diff options
| author | Kartik Agaram <vc@akkartik.com> | 2021-03-23 17:31:08 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2021-03-23 17:31:08 -0700 |
| commit | 3350c34a74844e21ea69077e01efff3bae64bdcd (patch) | |
| tree | fa06ba58542297d1cff6b78958d4547a40a25d21 | |
| parent | 62a244211024a8367332541c571621883c05bcce (diff) | |
| download | mu-3350c34a74844e21ea69077e01efff3bae64bdcd.tar.gz | |
.
| -rw-r--r-- | html/020syscalls.cc.html | 190 | ||||
| -rw-r--r-- | html/101screen.subx.html (renamed from html/baremetal/101screen.subx.html) | 7 | ||||
| -rw-r--r-- | html/102keyboard.subx.html (renamed from html/baremetal/102keyboard.subx.html) | 58 | ||||
| -rw-r--r-- | html/103grapheme.subx.html (renamed from html/baremetal/103grapheme.subx.html) | 14 | ||||
| -rw-r--r-- | html/104test.subx.html (renamed from html/baremetal/104test.subx.html) | 4 | ||||
| -rw-r--r-- | html/105string-equal.subx.html | 515 | ||||
| -rw-r--r-- | html/106stream.subx.html | 137 | ||||
| -rw-r--r-- | html/108write.subx.html | 388 | ||||
| -rw-r--r-- | html/109stream-equal.subx.html | 108 | ||||
| -rw-r--r-- | html/112read-byte.subx.html | 548 | ||||
| -rw-r--r-- | html/113write-stream.subx.html | 414 | ||||
| -rw-r--r-- | html/115write-byte.subx.html | 569 | ||||
| -rw-r--r-- | html/117write-int-hex.subx.html | 452 | ||||
| -rw-r--r-- | html/118parse-hex-int.subx.html | 252 | ||||
| -rw-r--r-- | html/120allocate.subx.html | 1799 | ||||
| -rw-r--r-- | html/121new-stream.subx.html | 155 | ||||
| -rw-r--r-- | html/123slice.subx.html | 581 | ||||
| -rw-r--r-- | html/124next-token.subx.html | 3621 | ||||
| -rw-r--r-- | html/126write-int-decimal.subx.html | 604 | ||||
| -rw-r--r-- | html/127next-word.subx.html | 68 | ||||
| -rw-r--r-- | html/301array-equal.subx.html | 59 | ||||
| -rw-r--r-- | html/302stack_allocate.subx.html | 6 | ||||
| -rw-r--r-- | html/308allocate-array.subx.html | 4 | ||||
| -rw-r--r-- | html/309stream.subx.html | 31 | ||||
| -rw-r--r-- | html/310copy-bytes.subx.html | 26 | ||||
| -rw-r--r-- | html/311decimal-int.subx.html | 63 | ||||
| -rw-r--r-- | html/312copy.subx.html | 61 | ||||
| -rw-r--r-- | html/313index-bounds-check.subx.html | 72 | ||||
| -rw-r--r-- | html/314divide.subx.html | 2 | ||||
| -rw-r--r-- | html/400.mu.html | 285 | ||||
| -rw-r--r-- | html/403unicode.mu.html | 497 | ||||
| -rw-r--r-- | html/405screen.mu.html | 1505 | ||||
| -rw-r--r-- | html/408float.mu.html | 28 | ||||
| -rw-r--r-- | html/411string.mu.html | 94 | ||||
| -rw-r--r-- | html/412print-float-decimal.mu.html | 714 | ||||
| -rw-r--r-- | html/412render-float-decimal.mu.html | 660 | ||||
| -rw-r--r-- | html/500text-screen.mu.html (renamed from html/baremetal/500text-screen.mu.html) | 210 | ||||
| -rw-r--r-- | html/501draw-text.mu.html | 528 | ||||
| -rw-r--r-- | html/502test.mu.html (renamed from html/baremetal/502test.mu.html) | 75 | ||||
| -rw-r--r-- | html/503manhattan-line.mu.html (renamed from html/baremetal/503manhattan-line.mu.html) | 14 | ||||
| -rw-r--r-- | html/504test-screen.mu.html (renamed from html/baremetal/504test-screen.mu.html) | 584 | ||||
| -rw-r--r-- | html/apps/boot.hex.html | 401 | ||||
| -rw-r--r-- | html/apps/browse/main.mu.html | 457 | ||||
| -rw-r--r-- | html/apps/browse/paginated-screen.mu.html | 726 | ||||
| -rw-r--r-- | html/apps/mu.subx.html | 36385 | ||||
| -rw-r--r-- | html/apps/tile/data.mu.html | 680 | ||||
| -rw-r--r-- | html/apps/tile/environment.mu.html | 1744 | ||||
| -rw-r--r-- | html/apps/tile/int-stack.mu.html | 125 | ||||
| -rw-r--r-- | html/apps/tile/main.mu.html | 207 | ||||
| -rw-r--r-- | html/apps/tile/word.mu.html | 663 | ||||
| -rw-r--r-- | html/apps/tui.mu.html | 96 | ||||
| -rw-r--r-- | html/baremetal/108write.subx.html | 284 | ||||
| -rw-r--r-- | html/baremetal/112read-byte.subx.html | 186 | ||||
| -rw-r--r-- | html/baremetal/115write-byte.subx.html | 144 | ||||
| -rw-r--r-- | html/baremetal/117write-int-hex.subx.html | 266 | ||||
| -rw-r--r-- | html/baremetal/312copy.subx.html | 74 | ||||
| -rw-r--r-- | html/baremetal/313index-bounds-check.subx.html | 120 | ||||
| -rw-r--r-- | html/baremetal/400.mu.html | 138 | ||||
| -rw-r--r-- | html/baremetal/403unicode.mu.html | 255 | ||||
| -rw-r--r-- | html/baremetal/412render-float-decimal.mu.html | 667 | ||||
| -rw-r--r-- | html/baremetal/500clear-screen.mu.html | 79 | ||||
| -rw-r--r-- | html/baremetal/501draw-text.mu.html | 588 | ||||
| -rw-r--r-- | html/baremetal/boot.hex.html | 590 | ||||
| -rw-r--r-- | html/baremetal/boot0.hex.html | 401 | ||||
| -rw-r--r-- | html/baremetal/ex1.hex.html | 76 | ||||
| -rw-r--r-- | html/baremetal/ex2.hex.html | 99 | ||||
| -rw-r--r-- | html/baremetal/ex3.hex.html | 115 | ||||
| -rw-r--r-- | html/baremetal/mu-init.subx.html | 86 | ||||
| -rw-r--r-- | html/baremetal/shell/eval.mu.html | 1011 | ||||
| -rw-r--r-- | html/baremetal/shell/gap-buffer.mu.html | 591 | ||||
| -rw-r--r-- | html/baremetal/shell/grapheme-stack.mu.html | 305 | ||||
| -rw-r--r-- | html/baremetal/shell/line.mu.html | 298 | ||||
| -rw-r--r-- | html/baremetal/shell/value-stack.mu.html | 304 | ||||
| -rw-r--r-- | html/baremetal/shell/value.mu.html | 326 | ||||
| -rw-r--r-- | html/baremetal/shell/word.mu.html | 784 | ||||
| -rw-r--r-- | html/baremetal/vga_palette.html | 283 | ||||
| -rw-r--r-- | html/boot.subx.html | 842 | ||||
| -rw-r--r-- | html/ex1.subx.html (renamed from html/baremetal/ex1.subx.html) | 21 | ||||
| -rw-r--r-- | html/ex2.mu.html (renamed from html/baremetal/ex2.mu.html) | 53 | ||||
| -rw-r--r-- | html/ex2.subx.html (renamed from html/baremetal/ex2.subx.html) | 59 | ||||
| -rw-r--r-- | html/ex3.mu.html (renamed from html/baremetal/ex3.mu.html) | 22 | ||||
| -rw-r--r-- | html/ex4.mu.html (renamed from html/baremetal/ex4.mu.html) | 8 | ||||
| -rw-r--r-- | html/ex5.mu.html (renamed from html/baremetal/ex5.mu.html) | 14 | ||||
| -rw-r--r-- | html/ex6.mu.html (renamed from html/baremetal/ex6.mu.html) | 34 | ||||
| -rw-r--r-- | html/ex7.mu.html (renamed from html/baremetal/ex7.mu.html) | 26 | ||||
| -rw-r--r-- | html/ex8.mu.html (renamed from html/baremetal/ex8.mu.html) | 24 | ||||
| -rw-r--r-- | html/life.mu.html (renamed from html/baremetal/life.mu.html) | 128 | ||||
| -rw-r--r-- | html/linux/000init.subx.html | 148 | ||||
| -rw-r--r-- | html/linux/101_write.subx.html (renamed from html/101_write.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/102test.subx.html (renamed from html/102test.subx.html) | 12 | ||||
| -rw-r--r-- | html/linux/103kernel-string-equal.subx.html (renamed from html/103kernel-string-equal.subx.html) | 22 | ||||
| -rw-r--r-- | html/linux/104new-segment.subx.html (renamed from html/104new-segment.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/105string-equal.subx.html (renamed from html/baremetal/105string-equal.subx.html) | 511 | ||||
| -rw-r--r-- | html/linux/106stream.subx.html (renamed from html/baremetal/106stream.subx.html) | 135 | ||||
| -rw-r--r-- | html/linux/107trace.subx.html (renamed from html/107trace.subx.html) | 1963 | ||||
| -rw-r--r-- | html/linux/108write.subx.html | 226 | ||||
| -rw-r--r-- | html/linux/109stream-equal.subx.html (renamed from html/baremetal/109stream-equal.subx.html) | 108 | ||||
| -rw-r--r-- | html/linux/110stop.subx.html (renamed from html/110stop.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/111read.subx.html (renamed from html/111read.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/112read-byte.subx.html | 484 | ||||
| -rw-r--r-- | html/linux/113write-stream.subx.html | 317 | ||||
| -rw-r--r-- | html/linux/114error.subx.html (renamed from html/114error.subx.html) | 10 | ||||
| -rw-r--r-- | html/linux/115write-byte.subx.html | 543 | ||||
| -rw-r--r-- | html/linux/116write-buffered.subx.html (renamed from html/116write-buffered.subx.html) | 12 | ||||
| -rw-r--r-- | html/linux/117write-int-hex.subx.html | 478 | ||||
| -rw-r--r-- | html/linux/118parse-hex-int.subx.html (renamed from html/baremetal/118parse-hex-int.subx.html) | 252 | ||||
| -rw-r--r-- | html/linux/119error-byte.subx.html (renamed from html/119error-byte.subx.html) | 12 | ||||
| -rw-r--r-- | html/linux/120allocate.subx.html (renamed from html/baremetal/120allocate.subx.html) | 1795 | ||||
| -rw-r--r-- | html/linux/121new-stream.subx.html | 199 | ||||
| -rw-r--r-- | html/linux/122read-line.subx.html (renamed from html/122read-line.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/123slice.subx.html (renamed from html/baremetal/123slice.subx.html) | 579 | ||||
| -rw-r--r-- | html/linux/124next-token.subx.html (renamed from html/baremetal/124next-token.subx.html) | 332 | ||||
| -rw-r--r-- | html/linux/125write-stream-data.subx.html (renamed from html/125write-stream-data.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/126write-int-decimal.subx.html (renamed from html/baremetal/126write-int-decimal.subx.html) | 602 | ||||
| -rw-r--r-- | html/linux/127next-word.subx.html (renamed from html/baremetal/127next-word.subx.html) | 60 | ||||
| -rw-r--r-- | html/linux/128subx-words.subx.html (renamed from html/128subx-words.subx.html) | 110 | ||||
| -rw-r--r-- | html/linux/129emit-hex.subx.html (renamed from html/129emit-hex.subx.html) | 40 | ||||
| -rw-r--r-- | html/linux/130emit.subx.html (renamed from html/130emit.subx.html) | 66 | ||||
| -rw-r--r-- | html/linux/131table.subx.html (renamed from html/131table.subx.html) | 92 | ||||
| -rw-r--r-- | html/linux/132slurp.subx.html (renamed from html/132slurp.subx.html) | 10 | ||||
| -rw-r--r-- | html/linux/133subx-widths.subx.html (renamed from html/133subx-widths.subx.html) | 8 | ||||
| -rw-r--r-- | html/linux/134emit-hex-array.subx.html (renamed from html/134emit-hex-array.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/135next-word-or-string.subx.html (renamed from html/135next-word-or-string.subx.html) | 8 | ||||
| -rw-r--r-- | html/linux/201register-names.subx.html (renamed from html/201register-names.subx.html) | 4 | ||||
| -rw-r--r-- | html/linux/202write-int.subx.html (renamed from html/202write-int.subx.html) | 12 | ||||
| -rw-r--r-- | html/linux/203stack.subx.html (renamed from html/203stack.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/301array-equal.subx.html (renamed from html/baremetal/301array-equal.subx.html) | 47 | ||||
| -rw-r--r-- | html/linux/302stack_allocate.subx.html (renamed from html/baremetal/302stack_allocate.subx.html) | 6 | ||||
| -rw-r--r-- | html/linux/303kernel-string.subx.html (renamed from html/303kernel-string.subx.html) | 10 | ||||
| -rw-r--r-- | html/linux/304screen.subx.html (renamed from html/304screen.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/305keyboard.subx.html (renamed from html/305keyboard.subx.html) | 20 | ||||
| -rw-r--r-- | html/linux/306files.subx.html (renamed from html/306files.subx.html) | 20 | ||||
| -rw-r--r-- | html/linux/307size.subx.html (renamed from html/307size.subx.html) | 6 | ||||
| -rw-r--r-- | html/linux/308allocate-array.subx.html (renamed from html/baremetal/308allocate-array.subx.html) | 6 | ||||
| -rw-r--r-- | html/linux/309stream.subx.html (renamed from html/baremetal/309stream.subx.html) | 33 | ||||
| -rw-r--r-- | html/linux/310copy-bytes.subx.html (renamed from html/baremetal/310copy-bytes.subx.html) | 24 | ||||
| -rw-r--r-- | html/linux/311decimal-int.subx.html (renamed from html/baremetal/311decimal-int.subx.html) | 51 | ||||
| -rw-r--r-- | html/linux/312copy.subx.html | 129 | ||||
| -rw-r--r-- | html/linux/313index-bounds-check.subx.html | 148 | ||||
| -rw-r--r-- | html/linux/314divide.subx.html (renamed from html/baremetal/314divide.subx.html) | 4 | ||||
| -rw-r--r-- | html/linux/315slice.subx.html (renamed from html/315slice.subx.html) | 6 | ||||
| -rw-r--r-- | html/linux/400.mu.html | 254 | ||||
| -rw-r--r-- | html/linux/401test.mu.html (renamed from html/401test.mu.html) | 20 | ||||
| -rw-r--r-- | html/linux/402time.mu.html (renamed from html/402time.mu.html) | 46 | ||||
| -rw-r--r-- | html/linux/403unicode.mu.html | 452 | ||||
| -rw-r--r-- | html/linux/404stream.mu.html (renamed from html/404stream.mu.html) | 66 | ||||
| -rw-r--r-- | html/linux/405screen.mu.html | 1509 | ||||
| -rw-r--r-- | html/linux/406int32.mu.html (renamed from html/406int32.mu.html) | 24 | ||||
| -rw-r--r-- | html/linux/407right-justify.mu.html (renamed from html/407right-justify.mu.html) | 24 | ||||
| -rw-r--r-- | html/linux/408float.mu.html (renamed from html/baremetal/408float.mu.html) | 26 | ||||
| -rw-r--r-- | html/linux/409print-float-hex.mu.html (renamed from html/409print-float-hex.mu.html) | 108 | ||||
| -rw-r--r-- | html/linux/410file.mu.html (renamed from html/410file.mu.html) | 23 | ||||
| -rw-r--r-- | html/linux/411string.mu.html (renamed from html/baremetal/411string.mu.html) | 88 | ||||
| -rw-r--r-- | html/linux/412print-float-decimal.mu.html | 705 | ||||
| -rw-r--r-- | html/linux/advent2020/1a.mu.html (renamed from html/apps/advent2020/1a.mu.html) | 92 | ||||
| -rw-r--r-- | html/linux/advent2020/1b.mu.html (renamed from html/apps/advent2020/1b.mu.html) | 108 | ||||
| -rw-r--r-- | html/linux/advent2020/2a.mu.html (renamed from html/apps/advent2020/2a.mu.html) | 92 | ||||
| -rw-r--r-- | html/linux/advent2020/2b.mu.html (renamed from html/apps/advent2020/2b.mu.html) | 100 | ||||
| -rw-r--r-- | html/linux/advent2020/3a.mu.html (renamed from html/apps/advent2020/3a.mu.html) | 90 | ||||
| -rw-r--r-- | html/linux/advent2020/3b.mu.html (renamed from html/apps/advent2020/3b.mu.html) | 124 | ||||
| -rw-r--r-- | html/linux/advent2020/4a.mu.html (renamed from html/apps/advent2020/4a.mu.html) | 78 | ||||
| -rw-r--r-- | html/linux/advent2020/4b.mu.html (renamed from html/apps/advent2020/4b.mu.html) | 286 | ||||
| -rw-r--r-- | html/linux/advent2020/5a.mu.html (renamed from html/apps/advent2020/5a.mu.html) | 68 | ||||
| -rw-r--r-- | html/linux/advent2020/5b.mu.html (renamed from html/apps/advent2020/5b.mu.html) | 70 | ||||
| -rw-r--r-- | html/linux/arith.mu.html (renamed from html/apps/arith.mu.html) | 192 | ||||
| -rw-r--r-- | html/linux/assort.subx.html (renamed from html/apps/assort.subx.html) | 184 | ||||
| -rw-r--r-- | html/linux/bootstrap/000organization.cc.html (renamed from html/000organization.cc.html) | 13 | ||||
| -rw-r--r-- | html/linux/bootstrap/001help.cc.html (renamed from html/001help.cc.html) | 431 | ||||
| -rw-r--r-- | html/linux/bootstrap/002test.cc.html (renamed from html/002test.cc.html) | 79 | ||||
| -rw-r--r-- | html/linux/bootstrap/003trace.cc.html (renamed from html/003trace.cc.html) | 158 | ||||
| -rw-r--r-- | html/linux/bootstrap/003trace.test.cc.html (renamed from html/003trace.test.cc.html) | 21 | ||||
| -rw-r--r-- | html/linux/bootstrap/010vm.cc.html (renamed from html/010vm.cc.html) | 202 | ||||
| -rw-r--r-- | html/linux/bootstrap/011run.cc.html (renamed from html/011run.cc.html) | 212 | ||||
| -rw-r--r-- | html/linux/bootstrap/012elf.cc.html (renamed from html/012elf.cc.html) | 81 | ||||
| -rw-r--r-- | html/linux/bootstrap/013direct_addressing.cc.html (renamed from html/013direct_addressing.cc.html) | 958 | ||||
| -rw-r--r-- | html/linux/bootstrap/014indirect_addressing.cc.html (renamed from html/014indirect_addressing.cc.html) | 929 | ||||
| -rw-r--r-- | html/linux/bootstrap/015immediate_addressing.cc.html (renamed from html/015immediate_addressing.cc.html) | 1022 | ||||
| -rw-r--r-- | html/linux/bootstrap/016index_addressing.cc.html (renamed from html/016index_addressing.cc.html) | 130 | ||||
| -rw-r--r-- | html/linux/bootstrap/017jump_disp8.cc.html (renamed from html/017jump_disp8.cc.html) | 265 | ||||
| -rw-r--r-- | html/linux/bootstrap/018jump_disp32.cc.html (renamed from html/018jump_disp32.cc.html) | 265 | ||||
| -rw-r--r-- | html/linux/bootstrap/019functions.cc.html (renamed from html/019functions.cc.html) | 127 | ||||
| -rw-r--r-- | html/linux/bootstrap/020byte_addressing.cc.html (renamed from html/021byte_addressing.cc.html) | 214 | ||||
| -rw-r--r-- | html/linux/bootstrap/021div.cc.html (renamed from html/022div.cc.html) | 42 | ||||
| -rw-r--r-- | html/linux/bootstrap/022float.cc.html (renamed from html/023float.cc.html) | 445 | ||||
| -rw-r--r-- | html/linux/bootstrap/029syscalls.cc.html | 189 | ||||
| -rw-r--r-- | html/linux/bootstrap/030translate.cc.html (renamed from html/030translate.cc.html) | 63 | ||||
| -rw-r--r-- | html/linux/bootstrap/031transforms.cc.html (renamed from html/031transforms.cc.html) | 15 | ||||
| -rw-r--r-- | html/linux/bootstrap/032operands.cc.html (renamed from html/032operands.cc.html) | 412 | ||||
| -rw-r--r-- | html/linux/bootstrap/033check_operands.cc.html (renamed from html/033check_operands.cc.html) | 506 | ||||
| -rw-r--r-- | html/linux/bootstrap/034check_operand_bounds.cc.html (renamed from html/034check_operand_bounds.cc.html) | 90 | ||||
| -rw-r--r-- | html/linux/bootstrap/035compute_segment_address.cc.html (renamed from html/035compute_segment_address.cc.html) | 34 | ||||
| -rw-r--r-- | html/linux/bootstrap/036labels.cc.html (renamed from html/036labels.cc.html) | 514 | ||||
| -rw-r--r-- | html/linux/bootstrap/037global_variables.cc.html (renamed from html/037global_variables.cc.html) | 186 | ||||
| -rw-r--r-- | html/linux/bootstrap/038literal_strings.cc.html (renamed from html/038literal_strings.cc.html) | 175 | ||||
| -rw-r--r-- | html/linux/bootstrap/039debug.cc.html (renamed from html/039debug.cc.html) | 72 | ||||
| -rw-r--r-- | html/linux/bootstrap/040tests.cc.html (renamed from html/040tests.cc.html) | 41 | ||||
| -rw-r--r-- | html/linux/braces.subx.html (renamed from html/apps/braces.subx.html) | 118 | ||||
| -rw-r--r-- | html/linux/calls.subx.html (renamed from html/apps/calls.subx.html) | 456 | ||||
| -rw-r--r-- | html/linux/crenshaw2-1.subx.html (renamed from html/apps/crenshaw2-1.subx.html) | 140 | ||||
| -rw-r--r-- | html/linux/crenshaw2-1b.subx.html (renamed from html/apps/crenshaw2-1b.subx.html) | 212 | ||||
| -rw-r--r-- | html/linux/dquotes.subx.html (renamed from html/apps/dquotes.subx.html) | 442 | ||||
| -rw-r--r-- | html/linux/ex1.mu.html (renamed from html/apps/ex1.mu.html) | 12 | ||||
| -rw-r--r-- | html/linux/ex1.subx.html (renamed from html/apps/ex1.subx.html) | 10 | ||||
| -rw-r--r-- | html/linux/ex10.subx.html (renamed from html/apps/ex10.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/ex11.subx.html (renamed from html/apps/ex11.subx.html) | 24 | ||||
| -rw-r--r-- | html/linux/ex12.subx.html (renamed from html/apps/ex12.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/ex13.subx.html (renamed from html/apps/ex13.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/ex14.subx.html (renamed from html/apps/ex14.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/ex2.mu.html (renamed from html/apps/ex2.mu.html) | 20 | ||||
| -rw-r--r-- | html/linux/ex2.subx.html (renamed from html/apps/ex2.subx.html) | 10 | ||||
| -rw-r--r-- | html/linux/ex3.2.mu.html (renamed from html/apps/ex3.2.mu.html) | 30 | ||||
| -rw-r--r-- | html/linux/ex3.mu.html (renamed from html/apps/ex3.mu.html) | 22 | ||||
| -rw-r--r-- | html/linux/ex3.subx.html (renamed from html/apps/ex3.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/ex4.subx.html (renamed from html/apps/ex4.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/ex5.subx.html (renamed from html/apps/ex5.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/ex6.subx.html (renamed from html/apps/ex6.subx.html) | 20 | ||||
| -rw-r--r-- | html/linux/ex7.subx.html (renamed from html/apps/ex7.subx.html) | 28 | ||||
| -rw-r--r-- | html/linux/ex8.subx.html (renamed from html/apps/ex8.subx.html) | 16 | ||||
| -rw-r--r-- | html/linux/ex9.subx.html (renamed from html/apps/ex9.subx.html) | 14 | ||||
| -rw-r--r-- | html/linux/factorial.mu.html (renamed from html/apps/factorial.mu.html) | 36 | ||||
| -rw-r--r-- | html/linux/factorial.subx.html (renamed from html/apps/factorial.subx.html) | 38 | ||||
| -rw-r--r-- | html/linux/factorial2.subx.html (renamed from html/apps/factorial2.subx.html) | 28 | ||||
| -rw-r--r-- | html/linux/factorial3.subx.html (renamed from html/apps/factorial3.subx.html) | 24 | ||||
| -rw-r--r-- | html/linux/factorial4.subx.html (renamed from html/apps/factorial4.subx.html) | 24 | ||||
| -rw-r--r-- | html/linux/hello.mu.html (renamed from html/apps/hello.mu.html) | 14 | ||||
| -rw-r--r-- | html/linux/hex.subx.html (renamed from html/apps/hex.subx.html) | 366 | ||||
| -rw-r--r-- | html/linux/mu-init-test.subx.html (renamed from html/mu-init-test.subx.html) | 8 | ||||
| -rw-r--r-- | html/linux/mu-init.subx.html | 122 | ||||
| -rw-r--r-- | html/linux/mu.subx.html | 36624 | ||||
| -rw-r--r-- | html/linux/pack.subx.html (renamed from html/apps/pack.subx.html) | 8264 | ||||
| -rw-r--r-- | html/linux/parse-int.mu.html (renamed from html/apps/parse-int.mu.html) | 48 | ||||
| -rw-r--r-- | html/linux/print-file.mu.html (renamed from html/apps/print-file.mu.html) | 38 | ||||
| -rw-r--r-- | html/linux/random.subx.html (renamed from html/apps/random.subx.html) | 28 | ||||
| -rw-r--r-- | html/linux/raytracing/1.mu.html (renamed from html/apps/raytracing/1.mu.html) | 32 | ||||
| -rw-r--r-- | html/linux/raytracing/2.mu.html (renamed from html/apps/raytracing/2.mu.html) | 96 | ||||
| -rw-r--r-- | html/linux/raytracing/3.mu.html (renamed from html/apps/raytracing/3.mu.html) | 406 | ||||
| -rw-r--r-- | html/linux/raytracing/color.mu.html (renamed from html/apps/raytracing/color.mu.html) | 56 | ||||
| -rw-r--r-- | html/linux/raytracing/ray.mu.html (renamed from html/apps/raytracing/ray.mu.html) | 24 | ||||
| -rw-r--r-- | html/linux/raytracing/vec.mu.html (renamed from html/apps/raytracing/vec.mu.html) | 142 | ||||
| -rw-r--r-- | html/linux/rpn.mu.html (renamed from html/apps/rpn.mu.html) | 116 | ||||
| -rw-r--r-- | html/linux/sigils.subx.html (renamed from html/apps/sigils.subx.html) | 8294 | ||||
| -rw-r--r-- | html/linux/subx-params.subx.html (renamed from html/apps/subx-params.subx.html) | 6 | ||||
| -rw-r--r-- | html/linux/survey_baremetal.subx.html | 2927 | ||||
| -rw-r--r-- | html/linux/survey_elf.subx.html (renamed from html/apps/survey.subx.html) | 6999 | ||||
| -rw-r--r-- | html/linux/tests.subx.html (renamed from html/apps/tests.subx.html) | 76 | ||||
| -rw-r--r-- | html/linux/texture.mu.html (renamed from html/apps/texture.mu.html) | 78 | ||||
| -rw-r--r-- | html/linux/tile/box.mu.html (renamed from html/apps/tile/box.mu.html) | 120 | ||||
| -rw-r--r-- | html/linux/tile/data.mu.html | 704 | ||||
| -rw-r--r-- | html/linux/tile/environment.mu.html | 2245 | ||||
| -rw-r--r-- | html/linux/tile/float-stack.mu.html (renamed from html/apps/tile/float-stack.mu.html) | 61 | ||||
| -rw-r--r-- | html/linux/tile/gap-buffer.mu.html (renamed from html/apps/tile/gap-buffer.mu.html) | 320 | ||||
| -rw-r--r-- | html/linux/tile/grapheme-stack.mu.html (renamed from html/apps/tile/grapheme-stack.mu.html) | 182 | ||||
| -rw-r--r-- | html/linux/tile/main.mu.html | 195 | ||||
| -rw-r--r-- | html/linux/tile/rpn.mu.html (renamed from html/apps/tile/rpn.mu.html) | 992 | ||||
| -rw-r--r-- | html/linux/tile/surface.mu.html (renamed from html/apps/tile/surface.mu.html) | 374 | ||||
| -rw-r--r-- | html/linux/tile/table.mu.html (renamed from html/apps/tile/table.mu.html) | 202 | ||||
| -rw-r--r-- | html/linux/tile/value-stack.mu.html (renamed from html/apps/tile/value-stack.mu.html) | 218 | ||||
| -rw-r--r-- | html/linux/tile/value.mu.html (renamed from html/apps/tile/value.mu.html) | 426 | ||||
| -rw-r--r-- | html/linux/tile/word.mu.html | 636 | ||||
| -rw-r--r-- | html/linux/tui.mu.html | 96 | ||||
| -rw-r--r-- | html/mu-init.subx.html | 86 | ||||
| -rw-r--r-- | html/mu_instructions.html | 431 | ||||
| -rw-r--r-- | html/rpn.mu.html (renamed from html/baremetal/rpn.mu.html) | 110 | ||||
| -rw-r--r-- | html/run_one_test.subx.html | 91 | ||||
| -rw-r--r-- | html/shell/cell.mu.html | 174 | ||||
| -rw-r--r-- | html/shell/eval.mu.html | 808 | ||||
| -rw-r--r-- | html/shell/gap-buffer.mu.html | 844 | ||||
| -rw-r--r-- | html/shell/grapheme-stack.mu.html | 343 | ||||
| -rw-r--r-- | html/shell/main.mu.html | 104 | ||||
| -rw-r--r-- | html/shell/parse.mu.html | 198 | ||||
| -rw-r--r-- | html/shell/print.mu.html | 344 | ||||
| -rw-r--r-- | html/shell/read.mu.html | 76 | ||||
| -rw-r--r-- | html/shell/sandbox.mu.html | 364 | ||||
| -rw-r--r-- | html/shell/tokenize.mu.html | 631 | ||||
| -rw-r--r-- | html/shell/trace.mu.html | 1641 | ||||
| -rwxr-xr-x | tools/update_html | 71 |
276 files changed, 85954 insertions, 83028 deletions
diff --git a/html/020syscalls.cc.html b/html/020syscalls.cc.html deleted file mode 100644 index 4e744513..00000000 --- a/html/020syscalls.cc.html +++ /dev/null @@ -1,190 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 020syscalls.cc</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="cpp"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.Comment { color: #005faf; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/020syscalls.cc'>https://github.com/akkartik/mu/blob/main/020syscalls.cc</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L2" class="LineNr"> 2 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">"software interrupt (int)"</span><span class="Delimiter">);</span> -<span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> -<span id="L5" class="LineNr"> 5 </span><span class="Normal">case</span> <span class="Constant">0xcd</span>: <span class="Delimiter">{</span> <span class="Comment">// int imm8 (software interrupt)</span> -<span id="L6" class="LineNr"> 6 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"syscall"</span> << end<span class="Delimiter">();</span> -<span id="L7" class="LineNr"> 7 </span> <span class="Normal">uint8_t</span> code = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>code != <span class="Constant">0x80</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Unimplemented interrupt code "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << code << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">" Only `int 80h` supported for now.\n"</span> << end<span class="Delimiter">();</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L12" class="LineNr"> 12 </span> <span class="Delimiter">}</span> -<span id="L13" class="LineNr"> 13 </span> <a href='020syscalls.cc.html#L18'>process_int80</a><span class="Delimiter">();</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L15" class="LineNr"> 15 </span><span class="Delimiter">}</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="Delimiter">:(code)</span> -<span id="L18" class="LineNr"> 18 </span><span class="Normal">void</span> <a href='020syscalls.cc.html#L18'>process_int80</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Normal">case</span> <span class="Constant">1</span>: -<span id="L21" class="LineNr"> 21 </span> exit<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">exit code</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> -<span id="L22" class="LineNr"> 22 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L23" class="LineNr"> 23 </span> <span class="Normal">case</span> <span class="Constant">3</span>: -<span id="L24" class="LineNr"> 24 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"read: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L25" class="LineNr"> 25 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = read<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> -<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L27" class="LineNr"> 27 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"read: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L28" class="LineNr"> 28 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Normal">case</span> <span class="Constant">4</span>: -<span id="L30" class="LineNr"> 30 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"write: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L31" class="LineNr"> 31 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L237'>mem_addr_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L32" class="LineNr"> 32 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = write<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> -<span id="L33" class="LineNr"> 33 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L34" class="LineNr"> 34 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"write: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L35" class="LineNr"> 35 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <a href='020syscalls.cc.html#L92'>check_flags</a><span class="Delimiter">(</span><a href='010vm.cc.html#L11'>ECX</a><span class="Delimiter">);</span> -<span id="L38" class="LineNr"> 38 </span> <a href='020syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><a href='010vm.cc.html#L12'>EDX</a><span class="Delimiter">);</span> -<span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"open: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L41" class="LineNr"> 41 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = open<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">flags</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> -<span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"open: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Normal">case</span> <span class="Constant">6</span>: -<span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"close: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L48" class="LineNr"> 48 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = close<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> -<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"close: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Normal">case</span> <span class="Constant">8</span>: -<span id="L53" class="LineNr"> 53 </span> <a href='020syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><a href='010vm.cc.html#L11'>ECX</a><span class="Delimiter">);</span> -<span id="L54" class="LineNr"> 54 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"creat: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L56" class="LineNr"> 56 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = creat<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> -<span id="L57" class="LineNr"> 57 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"creat: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Normal">case</span> <span class="Constant">10</span>: -<span id="L61" class="LineNr"> 61 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"unlink: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L63" class="LineNr"> 63 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = unlink<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> -<span id="L64" class="LineNr"> 64 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unlink: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Normal">case</span> <span class="Constant">38</span>: -<span id="L68" class="LineNr"> 68 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"rename: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" -> "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L70" class="LineNr"> 70 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L71" class="LineNr"> 71 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = rename<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">old filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">new filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> -<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"rename: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Normal">case</span> <span class="Constant">90</span>: <span class="Comment">// mmap: allocate memory outside existing segment allocations</span> -<span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"mmap: allocate new segment"</span> << end<span class="Delimiter">();</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Comment">// Ignore most arguments for now: address hint, protection flags, sharing flags, fd, offset.</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Comment">// We only support anonymous maps.</span> -<span id="L79" class="LineNr"> 79 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <a href='020syscalls.cc.html#L116'>new_segment</a><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">length</span><span class="Comment">*/</span><a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u+<span class="Constant">0x4</span><span class="Delimiter">));</span> -<span id="L80" class="LineNr"> 80 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Normal">case</span> <span class="Constant">0xa2</span>: <span class="Comment">// nanosleep</span> -<span id="L83" class="LineNr"> 83 </span> cerr << <span class="Constant">"not sleeping\n"</span><span class="Delimiter">;</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Normal">default</span>: -<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L226'>raise</a> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": unimplemented syscall "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> -<span id="L88" class="LineNr"> 88 </span><span class="Delimiter">}</span> -<span id="L89" class="LineNr"> 89 </span> -<span id="L90" class="LineNr"> 90 </span><span class="Comment">// SubX is oblivious to file permissions, directories, symbolic links, terminals, and much else besides.</span> -<span id="L91" class="LineNr"> 91 </span><span class="Comment">// Also ignoring any concurrency considerations for now.</span> -<span id="L92" class="LineNr"> 92 </span><span class="Normal">void</span> <a href='020syscalls.cc.html#L92'>check_flags</a><span class="Delimiter">(</span><span class="Normal">int</span> <a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Normal">uint32_t</span> flags = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>flags != <span class="Delimiter">((</span>flags & O_RDONLY<span class="Delimiter">)</span> | <span class="Delimiter">(</span>flags & O_WRONLY<span class="Delimiter">)))</span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": most POSIX flags to the open() syscall are not supported. Just O_RDONLY and O_WRONLY for now. Zero concurrent access support.\n"</span><span class="Delimiter">;</span> -<span id="L96" class="LineNr"> 96 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> -<span id="L98" class="LineNr"> 98 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>flags & O_RDONLY<span class="Delimiter">)</span> && <span class="Delimiter">(</span>flags & O_WRONLY<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": can't open a file for both reading and writing at once. See <a href="http://man7.org/linux/man-pages/man2/open.2.html">http://man7.org/linux/man-pages/man2/open.2.html</a>.\n"</span><span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> -<span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> -<span id="L103" class="LineNr">103 </span> -<span id="L104" class="LineNr">104 </span><span class="Normal">void</span> <a href='020syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><span class="Normal">int</span> <a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L105" class="LineNr">105 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u != <span class="PreProc">0</span><span class="Constant">600</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": SubX is oblivious to file permissions; register "</span> << <a href='010vm.cc.html#L20'>reg</a> << <span class="Constant">" must be 0x180.\n"</span><span class="Delimiter">;</span> -<span id="L107" class="LineNr">107 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> -<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> -<span id="L110" class="LineNr">110 </span> -<span id="L111" class="LineNr">111 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L112" class="LineNr">112 </span><span class="Comment">// Very primitive/fixed/insecure mmap segments for now.</span> -<span id="L113" class="LineNr">113 </span><span class="Normal">uint32_t</span> <span class="SpecialChar"><a href='020syscalls.cc.html#L113'>Segments_allocated_above</a></span> = <a href='012elf.cc.html#L151'>END_HEAP</a><span class="Delimiter">;</span> -<span id="L114" class="LineNr">114 </span><span class="Delimiter">:(code)</span> -<span id="L115" class="LineNr">115 </span><span class="Comment">// always allocate multiples of the segment size</span> -<span id="L116" class="LineNr">116 </span><span class="Normal">uint32_t</span> <a href='020syscalls.cc.html#L116'>new_segment</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> length<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L117" class="LineNr">117 </span> assert<span class="Delimiter">(</span>length > <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L118" class="LineNr">118 </span> <span class="Normal">uint32_t</span> result = <span class="Delimiter">(</span><span class="SpecialChar"><a href='020syscalls.cc.html#L113'>Segments_allocated_above</a></span> - length<span class="Delimiter">)</span> & <span class="Constant">0xff000000</span><span class="Delimiter">;</span> <span class="Comment">// same number of zeroes as SEGMENT_ALIGNMENT</span> -<span id="L119" class="LineNr">119 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result <= <a href='012elf.cc.html#L150'>START_HEAP</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Allocated too many segments; the VM ran out of memory. "</span> -<span id="L121" class="LineNr">121 </span> << <span class="Constant">"Maybe <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a> can be smaller?\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>result<span class="Delimiter">,</span> result+length<span class="Delimiter">));</span> -<span id="L124" class="LineNr">124 </span> <span class="SpecialChar"><a href='020syscalls.cc.html#L113'>Segments_allocated_above</a></span> = result<span class="Delimiter">;</span> -<span id="L125" class="LineNr">125 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> -<span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/101screen.subx.html b/html/101screen.subx.html index e00ec320..df062b67 100644 --- a/html/baremetal/101screen.subx.html +++ b/html/101screen.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/101screen.subx</title> +<title>Mu - 101screen.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,6 +14,7 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } .LineNr { } @@ -52,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/101screen.subx'>https://github.com/akkartik/mu/blob/main/baremetal/101screen.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/101screen.subx'>https://github.com/akkartik/mu/blob/main/101screen.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Primitives for screen control.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -84,7 +85,7 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr">28 </span> c1/shift 4/subop/left %eax 0xa/imm8 <span id="L29" class="LineNr">29 </span> 03/add-> *(ebp+8) 0/r32/eax <span id="L30" class="LineNr">30 </span> <span class="subxComment"># eax += location of frame buffer</span> -<span id="L31" class="LineNr">31 </span> 03/add-> *0x8128 0/r32/eax <span class="subxComment"># unsafe</span> +<span id="L31" class="LineNr">31 </span> 03/add-> *<span class="SpecialChar">Video-memory-addr</span> 0/r32/eax <span id="L32" class="LineNr">32 </span> <span class="subxComment"># *eax = color</span> <span id="L33" class="LineNr">33 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L34" class="LineNr">34 </span> 88/byte<- *eax 1/r32/CL diff --git a/html/baremetal/102keyboard.subx.html b/html/102keyboard.subx.html index e0cb3e51..b8f9a64b 100644 --- a/html/baremetal/102keyboard.subx.html +++ b/html/102keyboard.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/102keyboard.subx</title> +<title>Mu - 102keyboard.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,6 +14,7 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } .LineNr { } @@ -52,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/102keyboard.subx'>https://github.com/akkartik/mu/blob/main/baremetal/102keyboard.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/102keyboard.subx'>https://github.com/akkartik/mu/blob/main/102keyboard.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># check keyboard for a key</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># return 0 on no keypress or unrecognized key</span> @@ -75,33 +76,32 @@ if ('onhashchange' in window) { <span id="L19" class="LineNr">19 </span> 81 7/subop/compare %ecx 0/imm32 <span id="L20" class="LineNr">20 </span> { <span id="L21" class="LineNr">21 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22" class="LineNr">22 </span> <span class="subxComment"># var read/ecx: byte = keyboard buffer's read index</span> -<span id="L23" class="LineNr">23 </span> 8b/-> *0x802c 1/r32/CL <span class="subxComment"># keyboard-buffer-read</span> -<span id="L24" class="LineNr">24 </span> <span class="subxComment"># var next-key/eax: byte = *(keyboard buffer + ecx)</span> -<span id="L25" class="LineNr">25 </span> 8a/byte-> *(ecx+0x8030) 0/r32/AL <span class="subxComment"># keyboard-buffer-data</span> -<span id="L26" class="LineNr">26 </span> <span class="subxComment"># if (next-key != 0) lock and remove from keyboard buffer</span> -<span id="L27" class="LineNr">27 </span> 81 7/subop/compare %eax 0/imm32 -<span id="L28" class="LineNr">28 </span> { -<span id="L29" class="LineNr">29 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L30" class="LineNr">30 </span> <span class="subxComment"># TODO: add some instructions in this block to SubX if we ever want to</span> -<span id="L31" class="LineNr">31 </span> <span class="subxComment"># use bootstrap on baremetal programs</span> -<span id="L32" class="LineNr">32 </span> fa/disable-interrupts -<span id="L33" class="LineNr">33 </span> c6 0/subop/copy-byte *(ecx+0x8030) 0/imm8 <span class="subxComment"># keyboard-buffer-data</span> -<span id="L34" class="LineNr">34 </span> ff 0/subop/increment *0x802c <span class="subxComment"># keyboard-buffer-read</span> -<span id="L35" class="LineNr">35 </span> 81 4/subop/and *0x802c 0xf/imm32 <span class="subxComment"># keyboard-buffer-read</span> -<span id="L36" class="LineNr">36 </span> fb/enable-interrupts -<span id="L37" class="LineNr">37 </span> } -<span id="L38" class="LineNr">38 </span> <span class="subxComment"># return</span> -<span id="L39" class="LineNr">39 </span> eb $read-key:end/disp8 -<span id="L40" class="LineNr">40 </span> } -<span id="L41" class="LineNr">41 </span> <span class="subxComment"># TODO: fake keyboard</span> -<span id="L42" class="LineNr">42 </span><span class="Constant">$read-key:end</span>: -<span id="L43" class="LineNr">43 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L44" class="LineNr">44 </span> 59/pop-to-ecx -<span id="L45" class="LineNr">45 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L46" class="LineNr">46 </span> 89/<- %esp 5/r32/ebp -<span id="L47" class="LineNr">47 </span> 5d/pop-to-ebp -<span id="L48" class="LineNr">48 </span> c3/return +<span id="L22" class="LineNr">22 </span> <span class="subxComment"># var buffer-byte-addr/ecx: (addr byte)</span> +<span id="L23" class="LineNr">23 </span> 8b/-> *<span class="SpecialChar">Keyboard-buffer</span>:read 1/r32/CL +<span id="L24" class="LineNr">24 </span> 81 0/subop/add %ecx <span class="SpecialChar">Keyboard-buffer</span>:data/imm32 +<span id="L25" class="LineNr">25 </span> <span class="subxComment"># var next-key/eax: byte = *buffer-byte-addr</span> +<span id="L26" class="LineNr">26 </span> 8a/byte-> *ecx 0/r32/AL +<span id="L27" class="LineNr">27 </span> <span class="subxComment"># if (next-key != 0) lock and remove from keyboard buffer</span> +<span id="L28" class="LineNr">28 </span> 81 7/subop/compare %eax 0/imm32 +<span id="L29" class="LineNr">29 </span> { +<span id="L30" class="LineNr">30 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L31" class="LineNr">31 </span> fa/disable-interrupts +<span id="L32" class="LineNr">32 </span> c6 0/subop/copy-byte *ecx 0/imm8 +<span id="L33" class="LineNr">33 </span> ff 0/subop/increment *<span class="SpecialChar">Keyboard-buffer</span>:read +<span id="L34" class="LineNr">34 </span> 81 4/subop/and *<span class="SpecialChar">Keyboard-buffer</span>:read 0x0f/imm32 +<span id="L35" class="LineNr">35 </span> fb/enable-interrupts +<span id="L36" class="LineNr">36 </span> } +<span id="L37" class="LineNr">37 </span> <span class="subxComment"># return</span> +<span id="L38" class="LineNr">38 </span> eb $read-key:end/disp8 +<span id="L39" class="LineNr">39 </span> } +<span id="L40" class="LineNr">40 </span> <span class="subxComment"># TODO: fake keyboard</span> +<span id="L41" class="LineNr">41 </span><span class="Constant">$read-key:end</span>: +<span id="L42" class="LineNr">42 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L43" class="LineNr">43 </span> 59/pop-to-ecx +<span id="L44" class="LineNr">44 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L45" class="LineNr">45 </span> 89/<- %esp 5/r32/ebp +<span id="L46" class="LineNr">46 </span> 5d/pop-to-ebp +<span id="L47" class="LineNr">47 </span> c3/return </pre> </body> </html> diff --git a/html/baremetal/103grapheme.subx.html b/html/103grapheme.subx.html index f7157766..881bf543 100644 --- a/html/baremetal/103grapheme.subx.html +++ b/html/103grapheme.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/103grapheme.subx</title> +<title>Mu - 103grapheme.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -53,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/103grapheme.subx'>https://github.com/akkartik/mu/blob/main/baremetal/103grapheme.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/103grapheme.subx'>https://github.com/akkartik/mu/blob/main/103grapheme.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Use the built-in font to draw a grapheme to real screen.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -84,7 +84,7 @@ if ('onhashchange' in window) { <span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># var letter-bitmap/esi = font[g]</span> <span id="L28" class="LineNr"> 28 </span> 8b/-> *(ebp+8) 6/r32/esi <span id="L29" class="LineNr"> 29 </span> c1 4/subop/shift-left %esi 4/imm8 -<span id="L30" class="LineNr"> 30 </span> 8d/copy-address *(esi+0x8c00) 6/r32/esi <span class="subxComment"># font-start</span> +<span id="L30" class="LineNr"> 30 </span> 81 0/subop/add %esi <span class="SpecialChar">Font</span>/imm32 <span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># if (letter-bitmap >= 0x9400) return # characters beyond ASCII currently not supported</span> <span id="L32" class="LineNr"> 32 </span> 81 7/subop/compare %esi 0x9400/imm32 <span id="L33" class="LineNr"> 33 </span> 7d/jump-if->= $draw-grapheme-on-real-screen:end/disp8 @@ -182,13 +182,13 @@ if ('onhashchange' in window) { <span id="L125" class="LineNr">125 </span> 5d/pop-to-ebp <span id="L126" class="LineNr">126 </span> c3/return <span id="L127" class="LineNr">127 </span> -<span id="L128" class="LineNr">128 </span><span class="subxComment"># Draw cursor at current location. But this is rickety:</span> +<span id="L128" class="LineNr">128 </span><span class="subxComment"># Not a real `show-cursor` primitive:</span> <span id="L129" class="LineNr">129 </span><span class="subxComment"># - does not clear previous location cursor was shown at.</span> <span id="L130" class="LineNr">130 </span><span class="subxComment"># - does not preserve what was at the cursor. Caller is responsible for</span> <span id="L131" class="LineNr">131 </span><span class="subxComment"># tracking what was on the screen at this position before and passing it</span> <span id="L132" class="LineNr">132 </span><span class="subxComment"># in again.</span> <span id="L133" class="LineNr">133 </span><span class="subxComment"># - does not stop showing the cursor at this location when the cursor moves</span> -<span id="L134" class="LineNr">134 </span><span class="subxFunction">show-cursor-on-real-screen</span>: <span class="subxComment"># g: grapheme</span> +<span id="L134" class="LineNr">134 </span><span class="subxFunction">draw-cursor-on-real-screen</span>: <span class="subxComment"># g: grapheme</span> <span id="L135" class="LineNr">135 </span> <span class="subxS1Comment"># . prologue</span> <span id="L136" class="LineNr">136 </span> 55/push-ebp <span id="L137" class="LineNr">137 </span> 89/<- %ebp 4/r32/esp @@ -198,7 +198,7 @@ if ('onhashchange' in window) { <span id="L141" class="LineNr">141 </span> <span class="subxComment">#</span> <span id="L142" class="LineNr">142 </span> (<a href='103grapheme.subx.html#L96'>cursor-position-on-real-screen</a>) <span class="subxComment"># => eax, ecx</span> <span id="L143" class="LineNr">143 </span> (<a href='103grapheme.subx.html#L17'>draw-grapheme-on-real-screen</a> *(ebp+8) %eax %ecx 0 7) -<span id="L144" class="LineNr">144 </span><span class="Constant">$show-cursor-on-real-screen:end</span>: +<span id="L144" class="LineNr">144 </span><span class="Constant">$draw-cursor-on-real-screen:end</span>: <span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L146" class="LineNr">146 </span> 59/pop-to-ecx <span id="L147" class="LineNr">147 </span> 58/pop-to-eax @@ -213,7 +213,7 @@ if ('onhashchange' in window) { <span id="L156" class="LineNr">156 </span><span class="subxComment"># 'draw*cursor*') print to by default.</span> <span id="L157" class="LineNr">157 </span><span class="subxComment">#</span> <span id="L158" class="LineNr">158 </span><span class="subxComment"># We don't bother displaying the cursor when drawing. It only becomes visible</span> -<span id="L159" class="LineNr">159 </span><span class="subxComment"># on show-cursor, which is quite rickety (see above)</span> +<span id="L159" class="LineNr">159 </span><span class="subxComment"># on draw-cursor, which is quite rickety (see above)</span> <span id="L160" class="LineNr">160 </span><span class="subxComment">#</span> <span id="L161" class="LineNr">161 </span><span class="subxComment"># It's up to applications to manage cursor display:</span> <span id="L162" class="LineNr">162 </span><span class="subxComment"># - clean up where it used to be</span> diff --git a/html/baremetal/104test.subx.html b/html/104test.subx.html index ef99acf6..91df61e9 100644 --- a/html/baremetal/104test.subx.html +++ b/html/104test.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/104test.subx</title> +<title>Mu - 104test.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -53,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/104test.subx'>https://github.com/akkartik/mu/blob/main/baremetal/104test.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/104test.subx'>https://github.com/akkartik/mu/blob/main/104test.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Some helpers needed only because Mu doesn't support globals at the moment.</span> <span id="L2" class="LineNr"> 2 </span> diff --git a/html/105string-equal.subx.html b/html/105string-equal.subx.html index a9152b9c..a6c5402d 100644 --- a/html/105string-equal.subx.html +++ b/html/105string-equal.subx.html @@ -14,17 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } -.SpecialChar { color: #d70000; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxS2Comment { color: #8a8a8a; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -67,262 +65,255 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run all tests</span> -<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? e8/call test-compare-equal-strings/disp32</span> -<span id="L10" class="LineNr"> 10 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> -<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> -<span id="L12" class="LineNr"> 12 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L13" class="LineNr"> 13 </span> e8/call syscall_exit/disp32 -<span id="L14" class="LineNr"> 14 </span> -<span id="L15" class="LineNr"> 15 </span><span class="subxFunction">string-equal?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> -<span id="L16" class="LineNr"> 16 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># if (s->size != benchmark->size) return false</span> -<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># return string-starts-with?(s, benchmark)</span> -<span id="L19" class="LineNr"> 19 </span> <span class="subxComment">#</span> -<span id="L20" class="LineNr"> 20 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21" class="LineNr"> 21 </span> 55/push-ebp -<span id="L22" class="LineNr"> 22 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L23" class="LineNr"> 23 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24" class="LineNr"> 24 </span> 51/push-ecx -<span id="L25" class="LineNr"> 25 </span> 56/push-esi -<span id="L26" class="LineNr"> 26 </span> 57/push-edi -<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># esi = s</span> -<span id="L28" class="LineNr"> 28 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># edi = benchmark</span> -<span id="L30" class="LineNr"> 30 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># ecx = s->size</span> -<span id="L32" class="LineNr"> 32 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L33" class="LineNr"> 33 </span><span class="Constant">$string-equal?:sizes</span>: -<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># if (ecx != benchmark->size) return false</span> -<span id="L35" class="LineNr"> 35 </span> 39/compare 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *edi and ecx</span> -<span id="L36" class="LineNr"> 36 </span> b8/copy-to-eax 0/imm32/false -<span id="L37" class="LineNr"> 37 </span> 75/jump-if-!= $string-equal?:end/disp8 -<span id="L38" class="LineNr"> 38 </span><span class="Constant">$string-equal?:contents</span>: -<span id="L39" class="LineNr"> 39 </span> <span class="subxComment"># string-starts-with?(s, benchmark)</span> -<span id="L40" class="LineNr"> 40 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L42" class="LineNr"> 42 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L43" class="LineNr"> 43 </span> <span class="subxS2Comment"># . . call</span> -<span id="L44" class="LineNr"> 44 </span> e8/call <a href='105string-equal.subx.html#L57'>string-starts-with?</a>/disp32 -<span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L46" class="LineNr"> 46 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L47" class="LineNr"> 47 </span><span class="Constant">$string-equal?:end</span>: -<span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L49" class="LineNr"> 49 </span> 5f/pop-to-edi -<span id="L50" class="LineNr"> 50 </span> 5e/pop-to-esi -<span id="L51" class="LineNr"> 51 </span> 59/pop-to-ecx -<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L53" class="LineNr"> 53 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L54" class="LineNr"> 54 </span> 5d/pop-to-ebp -<span id="L55" class="LineNr"> 55 </span> c3/return -<span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="subxFunction">string-starts-with?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> -<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># pseudocode:</span> -<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># if (s->size < benchmark->size) return false</span> -<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># currs = s->data</span> -<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># currb = benchmark->data</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># maxb = &benchmark->data[benchmark->size]</span> -<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># while currb < maxb</span> -<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># c1 = *currs</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># c2 = *currb</span> -<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># if (c1 != c2) return false</span> -<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># ++currs, ++currb</span> -<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># return true</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">string-equal?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> +<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># pseudocode:</span> +<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># if (s->size != benchmark->size) return false</span> +<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># return string-starts-with?(s, benchmark)</span> +<span id="L12" class="LineNr"> 12 </span> <span class="subxComment">#</span> +<span id="L13" class="LineNr"> 13 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14" class="LineNr"> 14 </span> 55/push-ebp +<span id="L15" class="LineNr"> 15 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L16" class="LineNr"> 16 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17" class="LineNr"> 17 </span> 51/push-ecx +<span id="L18" class="LineNr"> 18 </span> 56/push-esi +<span id="L19" class="LineNr"> 19 </span> 57/push-edi +<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># esi = s</span> +<span id="L21" class="LineNr"> 21 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># edi = benchmark</span> +<span id="L23" class="LineNr"> 23 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> +<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># ecx = s->size</span> +<span id="L25" class="LineNr"> 25 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L26" class="LineNr"> 26 </span><span class="Constant">$string-equal?:sizes</span>: +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># if (ecx != benchmark->size) return false</span> +<span id="L28" class="LineNr"> 28 </span> 39/compare 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *edi and ecx</span> +<span id="L29" class="LineNr"> 29 </span> b8/copy-to-eax 0/imm32/false +<span id="L30" class="LineNr"> 30 </span> 75/jump-if-!= $string-equal?:end/disp8 +<span id="L31" class="LineNr"> 31 </span><span class="Constant">$string-equal?:contents</span>: +<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># string-starts-with?(s, benchmark)</span> +<span id="L33" class="LineNr"> 33 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L34" class="LineNr"> 34 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L35" class="LineNr"> 35 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L36" class="LineNr"> 36 </span> <span class="subxS2Comment"># . . call</span> +<span id="L37" class="LineNr"> 37 </span> e8/call <a href='105string-equal.subx.html#L50'>string-starts-with?</a>/disp32 +<span id="L38" class="LineNr"> 38 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L39" class="LineNr"> 39 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L40" class="LineNr"> 40 </span><span class="Constant">$string-equal?:end</span>: +<span id="L41" class="LineNr"> 41 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L42" class="LineNr"> 42 </span> 5f/pop-to-edi +<span id="L43" class="LineNr"> 43 </span> 5e/pop-to-esi +<span id="L44" class="LineNr"> 44 </span> 59/pop-to-ecx +<span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L47" class="LineNr"> 47 </span> 5d/pop-to-ebp +<span id="L48" class="LineNr"> 48 </span> c3/return +<span id="L49" class="LineNr"> 49 </span> +<span id="L50" class="LineNr"> 50 </span><span class="subxFunction">string-starts-with?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> +<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># pseudocode:</span> +<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># if (s->size < benchmark->size) return false</span> +<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># currs = s->data</span> +<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># currb = benchmark->data</span> +<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># maxb = &benchmark->data[benchmark->size]</span> +<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># while currb < maxb</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># c1 = *currs</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># c2 = *currb</span> +<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># if (c1 != c2) return false</span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># ++currs, ++currb</span> +<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># return true</span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxComment">#</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># registers:</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># currs: esi</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># maxs: ecx</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># currb: edi</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># c1: eax</span> +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># c2: ebx</span> <span id="L69" class="LineNr"> 69 </span> <span class="subxComment">#</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># registers:</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># currs: esi</span> -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># maxs: ecx</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># currb: edi</span> -<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># c1: eax</span> -<span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># c2: ebx</span> -<span id="L76" class="LineNr"> 76 </span> <span class="subxComment">#</span> -<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L78" class="LineNr"> 78 </span> 55/push-ebp -<span id="L79" class="LineNr"> 79 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L80" class="LineNr"> 80 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L81" class="LineNr"> 81 </span> 51/push-ecx -<span id="L82" class="LineNr"> 82 </span> 52/push-edx -<span id="L83" class="LineNr"> 83 </span> 56/push-esi -<span id="L84" class="LineNr"> 84 </span> 57/push-edi -<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># esi = s</span> -<span id="L86" class="LineNr"> 86 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># edi = benchmark</span> -<span id="L88" class="LineNr"> 88 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># var bsize/ecx: int = benchmark->size</span> -<span id="L90" class="LineNr"> 90 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L91" class="LineNr"> 91 </span><span class="Constant">$string-starts-with?:sizes</span>: -<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># if (s->size < bsize) return false</span> -<span id="L93" class="LineNr"> 93 </span> 39/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *esi with ecx</span> -<span id="L94" class="LineNr"> 94 </span> 7c/jump-if-< $string-starts-with?:false/disp8 -<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># var currs/esi: (addr byte) = s->data</span> -<span id="L96" class="LineNr"> 96 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esi</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var currb/edi: (addr byte) = benchmark->data</span> -<span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edi</span> -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var maxb/ecx: (addr byte) = &benchmark->data[benchmark->size]</span> -<span id="L100" class="LineNr">100 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edi to ecx</span> -<span id="L101" class="LineNr">101 </span> <span class="subxComment"># var c1/eax: byte = 0</span> -<span id="L102" class="LineNr">102 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L103" class="LineNr">103 </span> <span class="subxComment"># var c2/edx: byte = 0</span> -<span id="L104" class="LineNr">104 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> -<span id="L105" class="LineNr">105 </span><span class="Constant">$string-starts-with?:loop</span>: -<span id="L106" class="LineNr">106 </span> <span class="subxComment"># if (currs >= maxs) return true</span> -<span id="L107" class="LineNr">107 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with ecx</span> -<span id="L108" class="LineNr">108 </span> 73/jump-if-addr>= $string-starts-with?:true/disp8 -<span id="L109" class="LineNr">109 </span> <span class="subxComment"># c1 = *currs</span> -<span id="L110" class="LineNr">110 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> -<span id="L111" class="LineNr">111 </span> <span class="subxComment"># c2 = *currb</span> -<span id="L112" class="LineNr">112 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/DL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edi to DL</span> -<span id="L113" class="LineNr">113 </span> <span class="subxComment"># if (c1 != c2) return false</span> -<span id="L114" class="LineNr">114 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> -<span id="L115" class="LineNr">115 </span> 75/jump-if-!= $string-starts-with?:false/disp8 -<span id="L116" class="LineNr">116 </span> <span class="subxComment"># ++currs</span> -<span id="L117" class="LineNr">117 </span> 46/increment-esi -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># ++currb</span> -<span id="L119" class="LineNr">119 </span> 47/increment-edi -<span id="L120" class="LineNr">120 </span> eb/jump $string-starts-with?:<span class="Constant">loop</span>/disp8 -<span id="L121" class="LineNr">121 </span><span class="Constant">$string-starts-with?:true</span>: -<span id="L122" class="LineNr">122 </span> b8/copy-to-eax 1/imm32 -<span id="L123" class="LineNr">123 </span> eb/jump $string-starts-with?:end/disp8 -<span id="L124" class="LineNr">124 </span><span class="Constant">$string-starts-with?:false</span>: -<span id="L125" class="LineNr">125 </span> b8/copy-to-eax 0/imm32 -<span id="L126" class="LineNr">126 </span><span class="Constant">$string-starts-with?:end</span>: -<span id="L127" class="LineNr">127 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L128" class="LineNr">128 </span> 5f/pop-to-edi -<span id="L129" class="LineNr">129 </span> 5e/pop-to-esi -<span id="L130" class="LineNr">130 </span> 5a/pop-to-edx -<span id="L131" class="LineNr">131 </span> 59/pop-to-ecx -<span id="L132" class="LineNr">132 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L133" class="LineNr">133 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L134" class="LineNr">134 </span> 5d/pop-to-ebp -<span id="L135" class="LineNr">135 </span> c3/return -<span id="L136" class="LineNr">136 </span> -<span id="L137" class="LineNr">137 </span><span class="subxH1Comment"># - tests</span> -<span id="L138" class="LineNr">138 </span> -<span id="L139" class="LineNr">139 </span><span class="subxTest">test-compare-empty-with-empty-string</span>: -<span id="L140" class="LineNr">140 </span> <span class="subxComment"># eax = string-equal?("", "")</span> -<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L142" class="LineNr">142 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . call</span> -<span id="L145" class="LineNr">145 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L147" class="LineNr">147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L148" class="LineNr">148 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L150" class="LineNr">150 </span> 68/push <span class="Constant">"F - test-compare-empty-with-empty-string"</span>/imm32 -<span id="L151" class="LineNr">151 </span> 68/push 1/imm32/true -<span id="L152" class="LineNr">152 </span> 50/push-eax -<span id="L153" class="LineNr">153 </span> <span class="subxS2Comment"># . . call</span> -<span id="L154" class="LineNr">154 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L156" class="LineNr">156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L157" class="LineNr">157 </span> c3/return -<span id="L158" class="LineNr">158 </span> -<span id="L159" class="LineNr">159 </span><span class="subxTest">test-compare-empty-with-non-empty-string</span>: <span class="subxComment"># also checks size-mismatch code path</span> -<span id="L160" class="LineNr">160 </span> <span class="subxComment"># eax = string-equal?("", "Abc")</span> -<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L162" class="LineNr">162 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L163" class="LineNr">163 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . call</span> -<span id="L165" class="LineNr">165 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L167" class="LineNr">167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L168" class="LineNr">168 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L170" class="LineNr">170 </span> 68/push <span class="Constant">"F - test-compare-empty-with-non-empty-string"</span>/imm32 -<span id="L171" class="LineNr">171 </span> 68/push 0/imm32/false -<span id="L172" class="LineNr">172 </span> 50/push-eax -<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . call</span> -<span id="L174" class="LineNr">174 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L176" class="LineNr">176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L177" class="LineNr">177 </span> c3/return -<span id="L178" class="LineNr">178 </span> -<span id="L179" class="LineNr">179 </span><span class="subxTest">test-compare-equal-strings</span>: -<span id="L180" class="LineNr">180 </span> <span class="subxComment"># eax = string-equal?("Abc", "Abc")</span> -<span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L182" class="LineNr">182 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L183" class="LineNr">183 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L185" class="LineNr">185 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L187" class="LineNr">187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L188" class="LineNr">188 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L190" class="LineNr">190 </span> 68/push <span class="Constant">"F - test-compare-equal-strings"</span>/imm32 -<span id="L191" class="LineNr">191 </span> 68/push 1/imm32/true -<span id="L192" class="LineNr">192 </span> 50/push-eax -<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L194" class="LineNr">194 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L196" class="LineNr">196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L197" class="LineNr">197 </span> c3/return -<span id="L198" class="LineNr">198 </span> -<span id="L199" class="LineNr">199 </span><span class="subxTest">test-compare-inequal-strings-equal-sizes</span>: -<span id="L200" class="LineNr">200 </span> <span class="subxComment"># eax = string-equal?("Abc", "Adc")</span> -<span id="L201" class="LineNr">201 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L202" class="LineNr">202 </span> 68/push <span class="Constant">"Adc"</span>/imm32 -<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L205" class="LineNr">205 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L208" class="LineNr">208 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L210" class="LineNr">210 </span> 68/push <span class="Constant">"F - test-compare-inequal-strings-equal-sizes"</span>/imm32 -<span id="L211" class="LineNr">211 </span> 68/push 0/imm32/false -<span id="L212" class="LineNr">212 </span> 50/push-eax -<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L214" class="LineNr">214 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L217" class="LineNr">217 </span> c3/return -<span id="L218" class="LineNr">218 </span> -<span id="L219" class="LineNr">219 </span><span class="subxComment"># helper for later tests</span> -<span id="L220" class="LineNr">220 </span><span class="subxFunction">check-strings-equal</span>: <span class="subxComment"># s: (addr array byte), expected: (addr array byte), msg: (addr array byte)</span> -<span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L222" class="LineNr">222 </span> 55/push-ebp -<span id="L223" class="LineNr">223 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L224" class="LineNr">224 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L225" class="LineNr">225 </span> 50/push-eax -<span id="L226" class="LineNr">226 </span> <span class="subxComment"># var eax: boolean = string-equal?(s, expected)</span> -<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L228" class="LineNr">228 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L229" class="LineNr">229 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L230" class="LineNr">230 </span> <span class="subxS2Comment"># . . call</span> -<span id="L231" class="LineNr">231 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L233" class="LineNr">233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L234" class="LineNr">234 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L235" class="LineNr">235 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L236" class="LineNr">236 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L237" class="LineNr">237 </span> 68/push 1/imm32 -<span id="L238" class="LineNr">238 </span> 50/push-eax -<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . call</span> -<span id="L240" class="LineNr">240 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L242" class="LineNr">242 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L243" class="LineNr">243 </span><span class="Constant">$check-strings-equal:end</span>: -<span id="L244" class="LineNr">244 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L245" class="LineNr">245 </span> 58/pop-to-eax -<span id="L246" class="LineNr">246 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L247" class="LineNr">247 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L248" class="LineNr">248 </span> 5d/pop-to-ebp -<span id="L249" class="LineNr">249 </span> c3/return -<span id="L250" class="LineNr">250 </span> -<span id="L251" class="LineNr">251 </span><span class="subxComment"># test the helper</span> -<span id="L252" class="LineNr">252 </span><span class="subxTest">test-check-strings-equal</span>: -<span id="L253" class="LineNr">253 </span> <span class="subxComment"># check-strings-equal?("Abc", "Abc")</span> -<span id="L254" class="LineNr">254 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L255" class="LineNr">255 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L256" class="LineNr">256 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . call</span> -<span id="L258" class="LineNr">258 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 -<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L260" class="LineNr">260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L261" class="LineNr">261 </span> c3/return -<span id="L262" class="LineNr">262 </span> -<span id="L263" class="LineNr">263 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L71" class="LineNr"> 71 </span> 55/push-ebp +<span id="L72" class="LineNr"> 72 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L74" class="LineNr"> 74 </span> 51/push-ecx +<span id="L75" class="LineNr"> 75 </span> 52/push-edx +<span id="L76" class="LineNr"> 76 </span> 56/push-esi +<span id="L77" class="LineNr"> 77 </span> 57/push-edi +<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># esi = s</span> +<span id="L79" class="LineNr"> 79 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># edi = benchmark</span> +<span id="L81" class="LineNr"> 81 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># var bsize/ecx: int = benchmark->size</span> +<span id="L83" class="LineNr"> 83 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L84" class="LineNr"> 84 </span><span class="Constant">$string-starts-with?:sizes</span>: +<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># if (s->size < bsize) return false</span> +<span id="L86" class="LineNr"> 86 </span> 39/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *esi with ecx</span> +<span id="L87" class="LineNr"> 87 </span> 7c/jump-if-< $string-starts-with?:false/disp8 +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># var currs/esi: (addr byte) = s->data</span> +<span id="L89" class="LineNr"> 89 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esi</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># var currb/edi: (addr byte) = benchmark->data</span> +<span id="L91" class="LineNr"> 91 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edi</span> +<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># var maxb/ecx: (addr byte) = &benchmark->data[benchmark->size]</span> +<span id="L93" class="LineNr"> 93 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edi to ecx</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># var c1/eax: byte = 0</span> +<span id="L95" class="LineNr"> 95 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># var c2/edx: byte = 0</span> +<span id="L97" class="LineNr"> 97 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> +<span id="L98" class="LineNr"> 98 </span><span class="Constant">$string-starts-with?:loop</span>: +<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># if (currs >= maxs) return true</span> +<span id="L100" class="LineNr">100 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with ecx</span> +<span id="L101" class="LineNr">101 </span> 73/jump-if-addr>= $string-starts-with?:true/disp8 +<span id="L102" class="LineNr">102 </span> <span class="subxComment"># c1 = *currs</span> +<span id="L103" class="LineNr">103 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> +<span id="L104" class="LineNr">104 </span> <span class="subxComment"># c2 = *currb</span> +<span id="L105" class="LineNr">105 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/DL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edi to DL</span> +<span id="L106" class="LineNr">106 </span> <span class="subxComment"># if (c1 != c2) return false</span> +<span id="L107" class="LineNr">107 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> +<span id="L108" class="LineNr">108 </span> 75/jump-if-!= $string-starts-with?:false/disp8 +<span id="L109" class="LineNr">109 </span> <span class="subxComment"># ++currs</span> +<span id="L110" class="LineNr">110 </span> 46/increment-esi +<span id="L111" class="LineNr">111 </span> <span class="subxComment"># ++currb</span> +<span id="L112" class="LineNr">112 </span> 47/increment-edi +<span id="L113" class="LineNr">113 </span> eb/jump $string-starts-with?:<span class="Constant">loop</span>/disp8 +<span id="L114" class="LineNr">114 </span><span class="Constant">$string-starts-with?:true</span>: +<span id="L115" class="LineNr">115 </span> b8/copy-to-eax 1/imm32 +<span id="L116" class="LineNr">116 </span> eb/jump $string-starts-with?:end/disp8 +<span id="L117" class="LineNr">117 </span><span class="Constant">$string-starts-with?:false</span>: +<span id="L118" class="LineNr">118 </span> b8/copy-to-eax 0/imm32 +<span id="L119" class="LineNr">119 </span><span class="Constant">$string-starts-with?:end</span>: +<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L121" class="LineNr">121 </span> 5f/pop-to-edi +<span id="L122" class="LineNr">122 </span> 5e/pop-to-esi +<span id="L123" class="LineNr">123 </span> 5a/pop-to-edx +<span id="L124" class="LineNr">124 </span> 59/pop-to-ecx +<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L126" class="LineNr">126 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L127" class="LineNr">127 </span> 5d/pop-to-ebp +<span id="L128" class="LineNr">128 </span> c3/return +<span id="L129" class="LineNr">129 </span> +<span id="L130" class="LineNr">130 </span><span class="subxH1Comment"># - tests</span> +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="subxTest">test-compare-empty-with-empty-string</span>: +<span id="L133" class="LineNr">133 </span> <span class="subxComment"># eax = string-equal?("", "")</span> +<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L135" class="LineNr">135 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L136" class="LineNr">136 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> +<span id="L138" class="LineNr">138 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-compare-empty-with-empty-string"</span>/imm32 +<span id="L144" class="LineNr">144 </span> 68/push 1/imm32/true +<span id="L145" class="LineNr">145 </span> 50/push-eax +<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> +<span id="L147" class="LineNr">147 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L150" class="LineNr">150 </span> c3/return +<span id="L151" class="LineNr">151 </span> +<span id="L152" class="LineNr">152 </span><span class="subxTest">test-compare-empty-with-non-empty-string</span>: <span class="subxComment"># also checks size-mismatch code path</span> +<span id="L153" class="LineNr">153 </span> <span class="subxComment"># eax = string-equal?("", "Abc")</span> +<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L155" class="LineNr">155 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L156" class="LineNr">156 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . call</span> +<span id="L158" class="LineNr">158 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L161" class="LineNr">161 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L163" class="LineNr">163 </span> 68/push <span class="Constant">"F - test-compare-empty-with-non-empty-string"</span>/imm32 +<span id="L164" class="LineNr">164 </span> 68/push 0/imm32/false +<span id="L165" class="LineNr">165 </span> 50/push-eax +<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> +<span id="L167" class="LineNr">167 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L169" class="LineNr">169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L170" class="LineNr">170 </span> c3/return +<span id="L171" class="LineNr">171 </span> +<span id="L172" class="LineNr">172 </span><span class="subxTest">test-compare-equal-strings</span>: +<span id="L173" class="LineNr">173 </span> <span class="subxComment"># eax = string-equal?("Abc", "Abc")</span> +<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L175" class="LineNr">175 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L176" class="LineNr">176 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . call</span> +<span id="L178" class="LineNr">178 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L180" class="LineNr">180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L181" class="LineNr">181 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L183" class="LineNr">183 </span> 68/push <span class="Constant">"F - test-compare-equal-strings"</span>/imm32 +<span id="L184" class="LineNr">184 </span> 68/push 1/imm32/true +<span id="L185" class="LineNr">185 </span> 50/push-eax +<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . call</span> +<span id="L187" class="LineNr">187 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L189" class="LineNr">189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L190" class="LineNr">190 </span> c3/return +<span id="L191" class="LineNr">191 </span> +<span id="L192" class="LineNr">192 </span><span class="subxTest">test-compare-inequal-strings-equal-sizes</span>: +<span id="L193" class="LineNr">193 </span> <span class="subxComment"># eax = string-equal?("Abc", "Adc")</span> +<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L195" class="LineNr">195 </span> 68/push <span class="Constant">"Adc"</span>/imm32 +<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> +<span id="L198" class="LineNr">198 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L201" class="LineNr">201 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"F - test-compare-inequal-strings-equal-sizes"</span>/imm32 +<span id="L204" class="LineNr">204 </span> 68/push 0/imm32/false +<span id="L205" class="LineNr">205 </span> 50/push-eax +<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . call</span> +<span id="L207" class="LineNr">207 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L208" class="LineNr">208 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L209" class="LineNr">209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L210" class="LineNr">210 </span> c3/return +<span id="L211" class="LineNr">211 </span> +<span id="L212" class="LineNr">212 </span><span class="subxComment"># helper for later tests</span> +<span id="L213" class="LineNr">213 </span><span class="subxFunction">check-strings-equal</span>: <span class="subxComment"># s: (addr array byte), expected: (addr array byte), msg: (addr array byte)</span> +<span id="L214" class="LineNr">214 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L215" class="LineNr">215 </span> 55/push-ebp +<span id="L216" class="LineNr">216 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L218" class="LineNr">218 </span> 50/push-eax +<span id="L219" class="LineNr">219 </span> <span class="subxComment"># var eax: boolean = string-equal?(s, expected)</span> +<span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L221" class="LineNr">221 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L222" class="LineNr">222 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L223" class="LineNr">223 </span> <span class="subxS2Comment"># . . call</span> +<span id="L224" class="LineNr">224 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L225" class="LineNr">225 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L226" class="LineNr">226 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L227" class="LineNr">227 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L228" class="LineNr">228 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L229" class="LineNr">229 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L230" class="LineNr">230 </span> 68/push 1/imm32 +<span id="L231" class="LineNr">231 </span> 50/push-eax +<span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . call</span> +<span id="L233" class="LineNr">233 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L235" class="LineNr">235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L236" class="LineNr">236 </span><span class="Constant">$check-strings-equal:end</span>: +<span id="L237" class="LineNr">237 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L238" class="LineNr">238 </span> 58/pop-to-eax +<span id="L239" class="LineNr">239 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L240" class="LineNr">240 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L241" class="LineNr">241 </span> 5d/pop-to-ebp +<span id="L242" class="LineNr">242 </span> c3/return +<span id="L243" class="LineNr">243 </span> +<span id="L244" class="LineNr">244 </span><span class="subxComment"># test the helper</span> +<span id="L245" class="LineNr">245 </span><span class="subxTest">test-check-strings-equal</span>: +<span id="L246" class="LineNr">246 </span> <span class="subxComment"># check-strings-equal("Abc", "Abc")</span> +<span id="L247" class="LineNr">247 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L248" class="LineNr">248 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L249" class="LineNr">249 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L250" class="LineNr">250 </span> <span class="subxS2Comment"># . . call</span> +<span id="L251" class="LineNr">251 </span> e8/call <a href='105string-equal.subx.html#L213'>check-strings-equal</a>/disp32 +<span id="L252" class="LineNr">252 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L253" class="LineNr">253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L254" class="LineNr">254 </span> c3/return +<span id="L255" class="LineNr">255 </span> +<span id="L256" class="LineNr">256 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/106stream.subx.html b/html/106stream.subx.html index df024499..01f83b8c 100644 --- a/html/106stream.subx.html +++ b/html/106stream.subx.html @@ -14,14 +14,14 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -67,70 +67,73 @@ if ('onhashchange' in window) { <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># some primitives for operating on streams:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># - clear-stream (clears everything but the data size)</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># - rewind-stream (resets read pointer)</span> -<span id="L11" class="LineNr">11 </span> -<span id="L12" class="LineNr">12 </span>== code -<span id="L13" class="LineNr">13 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L14" class="LineNr">14 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L15" class="LineNr">15 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L16" class="LineNr">16 </span> -<span id="L17" class="LineNr">17 </span><span class="subxFunction">clear-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> -<span id="L18" class="LineNr">18 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19" class="LineNr">19 </span> 55/push-ebp -<span id="L20" class="LineNr">20 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L21" class="LineNr">21 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22" class="LineNr">22 </span> 50/push-eax -<span id="L23" class="LineNr">23 </span> 51/push-ecx -<span id="L24" class="LineNr">24 </span> <span class="subxComment"># eax = f</span> -<span id="L25" class="LineNr">25 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L26" class="LineNr">26 </span> <span class="subxComment"># var count/ecx: int = f->size</span> -<span id="L27" class="LineNr">27 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+8) to ecx</span> -<span id="L28" class="LineNr">28 </span> <span class="subxComment"># var max/ecx: (addr byte) = &f->data[f->size]</span> -<span id="L29" class="LineNr">29 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+12 to ecx</span> -<span id="L30" class="LineNr">30 </span> <span class="subxComment"># f->write = 0</span> -<span id="L31" class="LineNr">31 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *eax</span> -<span id="L32" class="LineNr">32 </span> <span class="subxComment"># f->read = 0</span> -<span id="L33" class="LineNr">33 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L34" class="LineNr">34 </span> <span class="subxH1Comment"># - clear all stream data</span> -<span id="L35" class="LineNr">35 </span> <span class="subxH1Comment"># - this isn't strictly necessary, and it can slow things down *a lot*, but better safe than sorry.</span> -<span id="L36" class="LineNr">36 </span> <span class="subxComment"># var curr/eax: (addr byte) = f->data</span> -<span id="L37" class="LineNr">37 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to eax</span> -<span id="L38" class="LineNr">38 </span><span class="Constant">$clear-stream:loop</span>: -<span id="L39" class="LineNr">39 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L40" class="LineNr">40 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> -<span id="L41" class="LineNr">41 </span> 73/jump-if-addr>= $clear-stream:end/disp8 -<span id="L42" class="LineNr">42 </span> <span class="subxComment"># *curr = 0</span> -<span id="L43" class="LineNr">43 </span> c6 0/subop/copy-byte 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *eax</span> -<span id="L44" class="LineNr">44 </span> <span class="subxComment"># ++curr</span> -<span id="L45" class="LineNr">45 </span> 40/increment-eax -<span id="L46" class="LineNr">46 </span> eb/jump $clear-stream:<span class="Constant">loop</span>/disp8 -<span id="L47" class="LineNr">47 </span><span class="Constant">$clear-stream:end</span>: -<span id="L48" class="LineNr">48 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L49" class="LineNr">49 </span> 59/pop-to-ecx -<span id="L50" class="LineNr">50 </span> 58/pop-to-eax -<span id="L51" class="LineNr">51 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L52" class="LineNr">52 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L53" class="LineNr">53 </span> 5d/pop-to-ebp -<span id="L54" class="LineNr">54 </span> c3/return -<span id="L55" class="LineNr">55 </span> -<span id="L56" class="LineNr">56 </span><span class="subxFunction">rewind-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> -<span id="L57" class="LineNr">57 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L58" class="LineNr">58 </span> 55/push-ebp -<span id="L59" class="LineNr">59 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L60" class="LineNr">60 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L61" class="LineNr">61 </span> 50/push-eax -<span id="L62" class="LineNr">62 </span> <span class="subxComment"># eax = f</span> -<span id="L63" class="LineNr">63 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L64" class="LineNr">64 </span> <span class="subxComment"># f->read = 0</span> -<span id="L65" class="LineNr">65 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L66" class="LineNr">66 </span><span class="Constant">$rewind-stream:end</span>: -<span id="L67" class="LineNr">67 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L68" class="LineNr">68 </span> 58/pop-to-eax -<span id="L69" class="LineNr">69 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L70" class="LineNr">70 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L71" class="LineNr">71 </span> 5d/pop-to-ebp -<span id="L72" class="LineNr">72 </span> c3/return -<span id="L73" class="LineNr">73 </span> -<span id="L74" class="LineNr">74 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L11" class="LineNr">11 </span><span class="subxComment">#</span> +<span id="L12" class="LineNr">12 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> +<span id="L13" class="LineNr">13 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> +<span id="L14" class="LineNr">14 </span> +<span id="L15" class="LineNr">15 </span>== code +<span id="L16" class="LineNr">16 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L17" class="LineNr">17 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L18" class="LineNr">18 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L19" class="LineNr">19 </span> +<span id="L20" class="LineNr">20 </span><span class="subxFunction">clear-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> +<span id="L21" class="LineNr">21 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22" class="LineNr">22 </span> 55/push-ebp +<span id="L23" class="LineNr">23 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25" class="LineNr">25 </span> 50/push-eax +<span id="L26" class="LineNr">26 </span> 51/push-ecx +<span id="L27" class="LineNr">27 </span> <span class="subxComment"># eax = f</span> +<span id="L28" class="LineNr">28 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L29" class="LineNr">29 </span> <span class="subxComment"># var count/ecx: int = f->size</span> +<span id="L30" class="LineNr">30 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+8) to ecx</span> +<span id="L31" class="LineNr">31 </span> <span class="subxComment"># var max/ecx: (addr byte) = &f->data[f->size]</span> +<span id="L32" class="LineNr">32 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+12 to ecx</span> +<span id="L33" class="LineNr">33 </span> <span class="subxComment"># f->write = 0</span> +<span id="L34" class="LineNr">34 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *eax</span> +<span id="L35" class="LineNr">35 </span> <span class="subxComment"># f->read = 0</span> +<span id="L36" class="LineNr">36 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> +<span id="L37" class="LineNr">37 </span> <span class="subxH1Comment"># - clear all stream data</span> +<span id="L38" class="LineNr">38 </span> <span class="subxH1Comment"># - this isn't strictly necessary, and it can slow things down *a lot*, but better safe than sorry.</span> +<span id="L39" class="LineNr">39 </span> <span class="subxComment"># var curr/eax: (addr byte) = f->data</span> +<span id="L40" class="LineNr">40 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to eax</span> +<span id="L41" class="LineNr">41 </span><span class="Constant">$clear-stream:loop</span>: +<span id="L42" class="LineNr">42 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L43" class="LineNr">43 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> +<span id="L44" class="LineNr">44 </span> 73/jump-if-addr>= $clear-stream:end/disp8 +<span id="L45" class="LineNr">45 </span> <span class="subxComment"># *curr = 0</span> +<span id="L46" class="LineNr">46 </span> c6 0/subop/copy-byte 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *eax</span> +<span id="L47" class="LineNr">47 </span> <span class="subxComment"># ++curr</span> +<span id="L48" class="LineNr">48 </span> 40/increment-eax +<span id="L49" class="LineNr">49 </span> eb/jump $clear-stream:<span class="Constant">loop</span>/disp8 +<span id="L50" class="LineNr">50 </span><span class="Constant">$clear-stream:end</span>: +<span id="L51" class="LineNr">51 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L52" class="LineNr">52 </span> 59/pop-to-ecx +<span id="L53" class="LineNr">53 </span> 58/pop-to-eax +<span id="L54" class="LineNr">54 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L55" class="LineNr">55 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L56" class="LineNr">56 </span> 5d/pop-to-ebp +<span id="L57" class="LineNr">57 </span> c3/return +<span id="L58" class="LineNr">58 </span> +<span id="L59" class="LineNr">59 </span><span class="subxFunction">rewind-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> +<span id="L60" class="LineNr">60 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L61" class="LineNr">61 </span> 55/push-ebp +<span id="L62" class="LineNr">62 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L63" class="LineNr">63 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L64" class="LineNr">64 </span> 50/push-eax +<span id="L65" class="LineNr">65 </span> <span class="subxComment"># eax = f</span> +<span id="L66" class="LineNr">66 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L67" class="LineNr">67 </span> <span class="subxComment"># f->read = 0</span> +<span id="L68" class="LineNr">68 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> +<span id="L69" class="LineNr">69 </span><span class="Constant">$rewind-stream:end</span>: +<span id="L70" class="LineNr">70 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L71" class="LineNr">71 </span> 58/pop-to-eax +<span id="L72" class="LineNr">72 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L73" class="LineNr">73 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L74" class="LineNr">74 </span> 5d/pop-to-ebp +<span id="L75" class="LineNr">75 </span> c3/return +<span id="L76" class="LineNr">76 </span> +<span id="L77" class="LineNr">77 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/108write.subx.html b/html/108write.subx.html index 03c5c07e..d1bc4070 100644 --- a/html/108write.subx.html +++ b/html/108write.subx.html @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } --> </style> @@ -58,168 +58,226 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/108write.subx'>https://github.com/akkartik/mu/blob/main/108write.subx</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write: like _write, but also support in-memory streams in addition to file</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># descriptors.</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># Our first dependency-injected and testable primitive. We can pass it either</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># a file descriptor or an address to a stream. If a file descriptor is passed</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># in, we _write to it using the right syscall. If a 'fake file descriptor' or</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># stream is passed in, we append to the stream. This lets us redirect output</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># in tests and check it later.</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># We assume our data segment will never begin at an address shorter than</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 0x08000000, so any smaller arguments are assumed to be real file descriptors.</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># A stream looks like this:</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># read: int # index at which to read next</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># write: int # index at which writes go</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># data: (array byte) # prefixed by size as usual</span> -<span id="L17" class="LineNr"> 17 </span> -<span id="L18" class="LineNr"> 18 </span>== code -<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L20" class="LineNr"> 20 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L21" class="LineNr"> 21 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L22" class="LineNr"> 22 </span> -<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># TODO: come up with a way to signal when a write to disk fails</span> -<span id="L24" class="LineNr"> 24 </span><span class="subxFunction">write</span>: <span class="subxComment"># f: fd or (addr stream byte), s: (addr array byte)</span> -<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26" class="LineNr"> 26 </span> 55/push-ebp -<span id="L27" class="LineNr"> 27 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># if (s == 0) return</span> -<span id="L29" class="LineNr"> 29 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 0/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L30" class="LineNr"> 30 </span> 74/jump-if-= $write:end/disp8 -<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># if (f < 0x08000000) _write(f, s) and return # f can't be a user-mode address, so treat it as a kernel file descriptor</span> -<span id="L32" class="LineNr"> 32 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x08000000/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L33" class="LineNr"> 33 </span> 73/jump-if-addr>= $write:fake/disp8 -<span id="L34" class="LineNr"> 34 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L35" class="LineNr"> 35 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L36" class="LineNr"> 36 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . call</span> -<span id="L38" class="LineNr"> 38 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L40" class="LineNr"> 40 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L41" class="LineNr"> 41 </span> eb/jump $write:end/disp8 -<span id="L42" class="LineNr"> 42 </span><span class="Constant">$write:fake</span>: -<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># otherwise, treat 'f' as a stream to append to</span> -<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L45" class="LineNr"> 45 </span> 50/push-eax -<span id="L46" class="LineNr"> 46 </span> 51/push-ecx -<span id="L47" class="LineNr"> 47 </span> 52/push-edx -<span id="L48" class="LineNr"> 48 </span> 53/push-ebx -<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># ecx = f</span> -<span id="L50" class="LineNr"> 50 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># edx = f->write</span> -<span id="L52" class="LineNr"> 52 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># ebx = f->size</span> -<span id="L54" class="LineNr"> 54 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to ebx</span> -<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># eax = _append-3(&f->data[f->write], &f->data[f->size], s)</span> -<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . push s</span> -<span id="L57" class="LineNr"> 57 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . push &f->data[f->size]</span> -<span id="L59" class="LineNr"> 59 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 3/index/ebx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+ebx+12 to ebx</span> -<span id="L60" class="LineNr"> 60 </span> 53/push-ebx -<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . push &f->data[f->write]</span> -<span id="L62" class="LineNr"> 62 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to ebx</span> -<span id="L63" class="LineNr"> 63 </span> 53/push-ebx -<span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . call</span> -<span id="L65" class="LineNr"> 65 </span> e8/call <a href='107trace.subx.html#L865'>_append-3</a>/disp32 -<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L67" class="LineNr"> 67 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># f->write += eax</span> -<span id="L69" class="LineNr"> 69 </span> 01/add 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *ecx</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L71" class="LineNr"> 71 </span> 5b/pop-to-ebx -<span id="L72" class="LineNr"> 72 </span> 5a/pop-to-edx -<span id="L73" class="LineNr"> 73 </span> 59/pop-to-ecx -<span id="L74" class="LineNr"> 74 </span> 58/pop-to-eax -<span id="L75" class="LineNr"> 75 </span><span class="Constant">$write:end</span>: -<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L77" class="LineNr"> 77 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L78" class="LineNr"> 78 </span> 5d/pop-to-ebp -<span id="L79" class="LineNr"> 79 </span> c3/return -<span id="L80" class="LineNr"> 80 </span> -<span id="L81" class="LineNr"> 81 </span><span class="subxTest">test-write-single</span>: -<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># clear-stream(_test-stream)</span> -<span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . call</span> -<span id="L86" class="LineNr"> 86 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L88" class="LineNr"> 88 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># write(_test-stream, "Ab")</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L91" class="LineNr"> 91 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L92" class="LineNr"> 92 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . call</span> -<span id="L94" class="LineNr"> 94 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L96" class="LineNr"> 96 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 41/A 62/b 00 00, msg)</span> -<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L99" class="LineNr"> 99 </span> 68/push <span class="Constant">"F - test-write-single"</span>/imm32 -<span id="L100" class="LineNr">100 </span> 68/push 0x006241/imm32/Ab -<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> -<span id="L102" class="LineNr">102 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L103" class="LineNr">103 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . call</span> -<span id="L105" class="LineNr">105 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L107" class="LineNr">107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L108" class="LineNr">108 </span> <span class="subxComment"># end</span> -<span id="L109" class="LineNr">109 </span> c3/return -<span id="L110" class="LineNr">110 </span> -<span id="L111" class="LineNr">111 </span><span class="subxTest">test-write-appends</span>: -<span id="L112" class="LineNr">112 </span> <span class="subxComment"># clear-stream(_test-stream)</span> -<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L114" class="LineNr">114 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . call</span> -<span id="L116" class="LineNr">116 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L117" class="LineNr">117 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L118" class="LineNr">118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L119" class="LineNr">119 </span> <span class="subxComment"># write(_test-stream, "C")</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L121" class="LineNr">121 </span> 68/push <span class="Constant">"C"</span>/imm32 -<span id="L122" class="LineNr">122 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . call</span> -<span id="L124" class="LineNr">124 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L126" class="LineNr">126 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L127" class="LineNr">127 </span> <span class="subxComment"># write(_test-stream, "D")</span> -<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L129" class="LineNr">129 </span> 68/push <span class="Constant">"D"</span>/imm32 -<span id="L130" class="LineNr">130 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . call</span> -<span id="L132" class="LineNr">132 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L133" class="LineNr">133 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L134" class="LineNr">134 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L135" class="LineNr">135 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 43/C 44/D 00 00, msg)</span> -<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L137" class="LineNr">137 </span> 68/push <span class="Constant">"F - test-write-appends"</span>/imm32 -<span id="L138" class="LineNr">138 </span> 68/push 0x00004443/imm32/C-D -<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> -<span id="L140" class="LineNr">140 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L141" class="LineNr">141 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . call</span> -<span id="L143" class="LineNr">143 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L145" class="LineNr">145 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L146" class="LineNr">146 </span> <span class="subxComment"># end</span> -<span id="L147" class="LineNr">147 </span> c3/return -<span id="L148" class="LineNr">148 </span> -<span id="L149" class="LineNr">149 </span>== data -<span id="L150" class="LineNr">150 </span> -<span id="L151" class="LineNr">151 </span><span class="subxMinorFunction">_test-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L152" class="LineNr">152 </span> <span class="subxComment"># current write index</span> -<span id="L153" class="LineNr">153 </span> 0/imm32 -<span id="L154" class="LineNr">154 </span> <span class="subxComment"># current read index</span> -<span id="L155" class="LineNr">155 </span> 0/imm32 -<span id="L156" class="LineNr">156 </span> <span class="subxComment"># size</span> -<span id="L157" class="LineNr">157 </span> 0x10/imm32 -<span id="L158" class="LineNr">158 </span> <span class="subxComment"># data (2 lines x 8 bytes/line)</span> -<span id="L159" class="LineNr">159 </span> 00 00 00 00 00 00 00 00 -<span id="L160" class="LineNr">160 </span> 00 00 00 00 00 00 00 00 -<span id="L161" class="LineNr">161 </span> -<span id="L162" class="LineNr">162 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write: write to in-memory streams</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span>== code +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L10" class="LineNr"> 10 </span> +<span id="L11" class="LineNr"> 11 </span><span class="subxFunction">write</span>: <span class="subxComment"># f: (addr stream byte), s: (addr array byte)</span> +<span id="L12" class="LineNr"> 12 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13" class="LineNr"> 13 </span> 55/push-ebp +<span id="L14" class="LineNr"> 14 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># if (s == 0) return</span> +<span id="L16" class="LineNr"> 16 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 0/imm32 <span class="subxComment"># compare *(ebp+12)</span> +<span id="L17" class="LineNr"> 17 </span> 74/jump-if-= $write:end/disp8 +<span id="L18" class="LineNr"> 18 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19" class="LineNr"> 19 </span> 50/push-eax +<span id="L20" class="LineNr"> 20 </span> 51/push-ecx +<span id="L21" class="LineNr"> 21 </span> 52/push-edx +<span id="L22" class="LineNr"> 22 </span> 53/push-ebx +<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># ecx = f</span> +<span id="L24" class="LineNr"> 24 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># edx = f->write</span> +<span id="L26" class="LineNr"> 26 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># ebx = f->size</span> +<span id="L28" class="LineNr"> 28 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to ebx</span> +<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># eax = _append-3(&f->data[f->write], &f->data[f->size], s)</span> +<span id="L30" class="LineNr"> 30 </span> <span class="subxS2Comment"># . . push s</span> +<span id="L31" class="LineNr"> 31 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L32" class="LineNr"> 32 </span> <span class="subxS2Comment"># . . push &f->data[f->size]</span> +<span id="L33" class="LineNr"> 33 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 3/index/ebx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+ebx+12 to ebx</span> +<span id="L34" class="LineNr"> 34 </span> 53/push-ebx +<span id="L35" class="LineNr"> 35 </span> <span class="subxS2Comment"># . . push &f->data[f->write]</span> +<span id="L36" class="LineNr"> 36 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to ebx</span> +<span id="L37" class="LineNr"> 37 </span> 53/push-ebx +<span id="L38" class="LineNr"> 38 </span> <span class="subxS2Comment"># . . call</span> +<span id="L39" class="LineNr"> 39 </span> e8/call <a href='108write.subx.html#L139'>_append-3</a>/disp32 +<span id="L40" class="LineNr"> 40 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L41" class="LineNr"> 41 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># f->write += eax</span> +<span id="L43" class="LineNr"> 43 </span> 01/add 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *ecx</span> +<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L45" class="LineNr"> 45 </span> 5b/pop-to-ebx +<span id="L46" class="LineNr"> 46 </span> 5a/pop-to-edx +<span id="L47" class="LineNr"> 47 </span> 59/pop-to-ecx +<span id="L48" class="LineNr"> 48 </span> 58/pop-to-eax +<span id="L49" class="LineNr"> 49 </span><span class="Constant">$write:end</span>: +<span id="L50" class="LineNr"> 50 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L51" class="LineNr"> 51 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L52" class="LineNr"> 52 </span> 5d/pop-to-ebp +<span id="L53" class="LineNr"> 53 </span> c3/return +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span><span class="subxTest">test-write-single</span>: +<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># clear-stream(_test-stream)</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L58" class="LineNr"> 58 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> +<span id="L60" class="LineNr"> 60 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># write(_test-stream, "Ab")</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L65" class="LineNr"> 65 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L66" class="LineNr"> 66 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . call</span> +<span id="L68" class="LineNr"> 68 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L69" class="LineNr"> 69 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L70" class="LineNr"> 70 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 41/A 62/b 00 00, msg)</span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L73" class="LineNr"> 73 </span> 68/push <span class="Constant">"F - test-write-single"</span>/imm32 +<span id="L74" class="LineNr"> 74 </span> 68/push 0x006241/imm32/Ab +<span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> +<span id="L76" class="LineNr"> 76 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L77" class="LineNr"> 77 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> +<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . call</span> +<span id="L79" class="LineNr"> 79 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L80" class="LineNr"> 80 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L81" class="LineNr"> 81 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># end</span> +<span id="L83" class="LineNr"> 83 </span> c3/return +<span id="L84" class="LineNr"> 84 </span> +<span id="L85" class="LineNr"> 85 </span><span class="subxTest">test-write-appends</span>: +<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># clear-stream(_test-stream)</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L88" class="LineNr"> 88 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . call</span> +<span id="L90" class="LineNr"> 90 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L92" class="LineNr"> 92 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># write(_test-stream, "C")</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L95" class="LineNr"> 95 </span> 68/push <span class="Constant">"C"</span>/imm32 +<span id="L96" class="LineNr"> 96 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . call</span> +<span id="L98" class="LineNr"> 98 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L100" class="LineNr">100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L101" class="LineNr">101 </span> <span class="subxComment"># write(_test-stream, "D")</span> +<span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L103" class="LineNr">103 </span> 68/push <span class="Constant">"D"</span>/imm32 +<span id="L104" class="LineNr">104 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . call</span> +<span id="L106" class="LineNr">106 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L108" class="LineNr">108 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L109" class="LineNr">109 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 43/C 44/D 00 00, msg)</span> +<span id="L110" class="LineNr">110 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L111" class="LineNr">111 </span> 68/push <span class="Constant">"F - test-write-appends"</span>/imm32 +<span id="L112" class="LineNr">112 </span> 68/push 0x00004443/imm32/C-D +<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> +<span id="L114" class="LineNr">114 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L115" class="LineNr">115 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> +<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . call</span> +<span id="L117" class="LineNr">117 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L119" class="LineNr">119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L120" class="LineNr">120 </span> <span class="subxComment"># end</span> +<span id="L121" class="LineNr">121 </span> c3/return +<span id="L122" class="LineNr">122 </span> +<span id="L123" class="LineNr">123 </span>== data +<span id="L124" class="LineNr">124 </span> +<span id="L125" class="LineNr">125 </span><span class="subxMinorFunction">_test-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L126" class="LineNr">126 </span> <span class="subxComment"># current write index</span> +<span id="L127" class="LineNr">127 </span> 0/imm32 +<span id="L128" class="LineNr">128 </span> <span class="subxComment"># current read index</span> +<span id="L129" class="LineNr">129 </span> 0/imm32 +<span id="L130" class="LineNr">130 </span> <span class="subxComment"># size</span> +<span id="L131" class="LineNr">131 </span> 0x10/imm32 +<span id="L132" class="LineNr">132 </span> <span class="subxComment"># data (2 lines x 8 bytes/line)</span> +<span id="L133" class="LineNr">133 </span> 00 00 00 00 00 00 00 00 +<span id="L134" class="LineNr">134 </span> 00 00 00 00 00 00 00 00 +<span id="L135" class="LineNr">135 </span> +<span id="L136" class="LineNr">136 </span>== code +<span id="L137" class="LineNr">137 </span> +<span id="L138" class="LineNr">138 </span><span class="subxComment"># 3-argument variant of _append</span> +<span id="L139" class="LineNr">139 </span><span class="subxMinorFunction">_append-3</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), s: (addr array byte) -> num_bytes_appended/eax</span> +<span id="L140" class="LineNr">140 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L141" class="LineNr">141 </span> 55/push-ebp +<span id="L142" class="LineNr">142 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L144" class="LineNr">144 </span> 51/push-ecx +<span id="L145" class="LineNr">145 </span> <span class="subxComment"># eax = _append-4(out, outend, &s->data[0], &s->data[s->size])</span> +<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . push &s->data[s->size]</span> +<span id="L147" class="LineNr">147 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L148" class="LineNr">148 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L149" class="LineNr">149 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L150" class="LineNr">150 </span> 51/push-ecx +<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push &s->data[0]</span> +<span id="L152" class="LineNr">152 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+4 to ecx</span> +<span id="L153" class="LineNr">153 </span> 51/push-ecx +<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push outend</span> +<span id="L155" class="LineNr">155 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push out</span> +<span id="L157" class="LineNr">157 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> +<span id="L159" class="LineNr">159 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L161" class="LineNr">161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L162" class="LineNr">162 </span><span class="Constant">$_append-3:end</span>: +<span id="L163" class="LineNr">163 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L164" class="LineNr">164 </span> 59/pop-to-ecx +<span id="L165" class="LineNr">165 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L166" class="LineNr">166 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L167" class="LineNr">167 </span> 5d/pop-to-ebp +<span id="L168" class="LineNr">168 </span> c3/return +<span id="L169" class="LineNr">169 </span> +<span id="L170" class="LineNr">170 </span><span class="subxComment"># 4-argument variant of _append</span> +<span id="L171" class="LineNr">171 </span><span class="subxMinorFunction">_append-4</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), in: (addr byte), inend: (addr byte) -> num_bytes_appended/eax: int</span> +<span id="L172" class="LineNr">172 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L173" class="LineNr">173 </span> 55/push-ebp +<span id="L174" class="LineNr">174 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L176" class="LineNr">176 </span> 51/push-ecx +<span id="L177" class="LineNr">177 </span> 52/push-edx +<span id="L178" class="LineNr">178 </span> 53/push-ebx +<span id="L179" class="LineNr">179 </span> 56/push-esi +<span id="L180" class="LineNr">180 </span> 57/push-edi +<span id="L181" class="LineNr">181 </span> <span class="subxComment"># num_bytes_appended = 0</span> +<span id="L182" class="LineNr">182 </span> b8/copy-to-eax 0/imm32 +<span id="L183" class="LineNr">183 </span> <span class="subxComment"># edi = out</span> +<span id="L184" class="LineNr">184 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L185" class="LineNr">185 </span> <span class="subxComment"># edx = outend</span> +<span id="L186" class="LineNr">186 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L187" class="LineNr">187 </span> <span class="subxComment"># esi = in</span> +<span id="L188" class="LineNr">188 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to esi</span> +<span id="L189" class="LineNr">189 </span> <span class="subxComment"># ecx = inend</span> +<span id="L190" class="LineNr">190 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> +<span id="L191" class="LineNr">191 </span><span class="Constant">$_append-4:loop</span>: +<span id="L192" class="LineNr">192 </span> <span class="subxComment"># if (in >= inend) break</span> +<span id="L193" class="LineNr">193 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> +<span id="L194" class="LineNr">194 </span> 73/jump-if-addr>= $_append-4:end/disp8 +<span id="L195" class="LineNr">195 </span> <span class="subxComment"># if (out >= outend) abort # just to catch test failures fast</span> +<span id="L196" class="LineNr">196 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with edx</span> +<span id="L197" class="LineNr">197 </span> 73/jump-if-addr>= $_append-4:end/disp8 <span class="subxComment"># TODO: abort</span> +<span id="L198" class="LineNr">198 </span> <span class="subxComment"># *out = *in</span> +<span id="L199" class="LineNr">199 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to BL</span> +<span id="L200" class="LineNr">200 </span> 88/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at BL to *edi</span> +<span id="L201" class="LineNr">201 </span> <span class="subxComment"># ++num_bytes_appended</span> +<span id="L202" class="LineNr">202 </span> 40/increment-eax +<span id="L203" class="LineNr">203 </span> <span class="subxComment"># ++in</span> +<span id="L204" class="LineNr">204 </span> 46/increment-esi +<span id="L205" class="LineNr">205 </span> <span class="subxComment"># ++out</span> +<span id="L206" class="LineNr">206 </span> 47/increment-edi +<span id="L207" class="LineNr">207 </span> eb/jump $_append-4:<span class="Constant">loop</span>/disp8 +<span id="L208" class="LineNr">208 </span><span class="Constant">$_append-4:end</span>: +<span id="L209" class="LineNr">209 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L210" class="LineNr">210 </span> 5f/pop-to-edi +<span id="L211" class="LineNr">211 </span> 5e/pop-to-esi +<span id="L212" class="LineNr">212 </span> 5b/pop-to-ebx +<span id="L213" class="LineNr">213 </span> 5a/pop-to-edx +<span id="L214" class="LineNr">214 </span> 59/pop-to-ecx +<span id="L215" class="LineNr">215 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L216" class="LineNr">216 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L217" class="LineNr">217 </span> 5d/pop-to-ebp +<span id="L218" class="LineNr">218 </span> c3/return +<span id="L219" class="LineNr">219 </span> +<span id="L220" class="LineNr">220 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/109stream-equal.subx.html b/html/109stream-equal.subx.html index 6d4bc9c9..203c2049 100644 --- a/html/109stream-equal.subx.html +++ b/html/109stream-equal.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -132,23 +132,23 @@ if ('onhashchange' in window) { <span id="L73" class="LineNr"> 73 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L76" class="LineNr"> 76 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L76" class="LineNr"> 76 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . call</span> -<span id="L78" class="LineNr"> 78 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L78" class="LineNr"> 78 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L80" class="LineNr"> 80 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># write(_test-stream, "Abc")</span> <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . push args</span> <span id="L83" class="LineNr"> 83 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . call</span> -<span id="L86" class="LineNr"> 86 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L86" class="LineNr"> 86 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L88" class="LineNr"> 88 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># eax = stream-data-equal?(_test-stream, "Abc")</span> <span id="L90" class="LineNr"> 90 </span> <span class="subxS2Comment"># . . push args</span> <span id="L91" class="LineNr"> 91 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L92" class="LineNr"> 92 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L92" class="LineNr"> 92 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . call</span> <span id="L94" class="LineNr"> 94 </span> e8/call <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a>/disp32 <span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . discard args</span> @@ -159,7 +159,7 @@ if ('onhashchange' in window) { <span id="L100" class="LineNr">100 </span> 68/push 1/imm32 <span id="L101" class="LineNr">101 </span> 50/push-eax <span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . call</span> -<span id="L103" class="LineNr">103 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L103" class="LineNr">103 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L105" class="LineNr">105 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L106" class="LineNr">106 </span> <span class="subxS1Comment"># . epilogue</span> @@ -173,23 +173,23 @@ if ('onhashchange' in window) { <span id="L114" class="LineNr">114 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L115" class="LineNr">115 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L117" class="LineNr">117 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L117" class="LineNr">117 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . call</span> -<span id="L119" class="LineNr">119 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L119" class="LineNr">119 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L121" class="LineNr">121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L122" class="LineNr">122 </span> <span class="subxComment"># write(_test-stream, "Abc")</span> <span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . push args</span> <span id="L124" class="LineNr">124 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L125" class="LineNr">125 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L125" class="LineNr">125 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . call</span> -<span id="L127" class="LineNr">127 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L127" class="LineNr">127 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L129" class="LineNr">129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L130" class="LineNr">130 </span> <span class="subxComment"># eax = stream-data-equal?(_test-stream, "Abd")</span> <span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . push args</span> <span id="L132" class="LineNr">132 </span> 68/push <span class="Constant">"Abd"</span>/imm32 -<span id="L133" class="LineNr">133 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L133" class="LineNr">133 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . call</span> <span id="L135" class="LineNr">135 </span> e8/call <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a>/disp32 <span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . discard args</span> @@ -200,7 +200,7 @@ if ('onhashchange' in window) { <span id="L141" class="LineNr">141 </span> 68/push 0/imm32 <span id="L142" class="LineNr">142 </span> 50/push-eax <span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . call</span> -<span id="L144" class="LineNr">144 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L144" class="LineNr">144 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L146" class="LineNr">146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L147" class="LineNr">147 </span> <span class="subxS1Comment"># . epilogue</span> @@ -214,23 +214,23 @@ if ('onhashchange' in window) { <span id="L155" class="LineNr">155 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L156" class="LineNr">156 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L158" class="LineNr">158 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L158" class="LineNr">158 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L160" class="LineNr">160 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L160" class="LineNr">160 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L162" class="LineNr">162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L163" class="LineNr">163 </span> <span class="subxComment"># write(_test-stream, "Abc")</span> <span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . push args</span> <span id="L165" class="LineNr">165 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L166" class="LineNr">166 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L166" class="LineNr">166 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L168" class="LineNr">168 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L168" class="LineNr">168 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L170" class="LineNr">170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L171" class="LineNr">171 </span> <span class="subxComment"># eax = stream-data-equal?(_test-stream, "Abcd")</span> <span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . push args</span> <span id="L173" class="LineNr">173 </span> 68/push <span class="Constant">"Abcd"</span>/imm32 -<span id="L174" class="LineNr">174 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L174" class="LineNr">174 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . call</span> <span id="L176" class="LineNr">176 </span> e8/call <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a>/disp32 <span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . discard args</span> @@ -241,7 +241,7 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr">182 </span> 68/push 0/imm32 <span id="L183" class="LineNr">183 </span> 50/push-eax <span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L185" class="LineNr">185 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L185" class="LineNr">185 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L187" class="LineNr">187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L188" class="LineNr">188 </span> <span class="subxS1Comment"># . epilogue</span> @@ -270,7 +270,7 @@ if ('onhashchange' in window) { <span id="L211" class="LineNr">211 </span> 68/push 1/imm32 <span id="L212" class="LineNr">212 </span> 50/push-eax <span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L214" class="LineNr">214 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L214" class="LineNr">214 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L217" class="LineNr">217 </span><span class="Constant">$check-stream-equal:end</span>: @@ -395,23 +395,23 @@ if ('onhashchange' in window) { <span id="L336" class="LineNr">336 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L337" class="LineNr">337 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L339" class="LineNr">339 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L339" class="LineNr">339 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . call</span> -<span id="L341" class="LineNr">341 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L341" class="LineNr">341 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L342" class="LineNr">342 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L343" class="LineNr">343 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L344" class="LineNr">344 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef")</span> <span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . push args</span> <span id="L346" class="LineNr">346 </span> 68/push <span class="Constant">"Abc\ndef"</span>/imm32 -<span id="L347" class="LineNr">347 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L347" class="LineNr">347 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L349" class="LineNr">349 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L349" class="LineNr">349 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L351" class="LineNr">351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L352" class="LineNr">352 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "Abc")</span> <span id="L353" class="LineNr">353 </span> <span class="subxS2Comment"># . . push args</span> <span id="L354" class="LineNr">354 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L355" class="LineNr">355 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L355" class="LineNr">355 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L356" class="LineNr">356 </span> <span class="subxS2Comment"># . . call</span> <span id="L357" class="LineNr">357 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L358" class="LineNr">358 </span> <span class="subxS2Comment"># . . discard args</span> @@ -422,7 +422,7 @@ if ('onhashchange' in window) { <span id="L363" class="LineNr">363 </span> 68/push 1/imm32 <span id="L364" class="LineNr">364 </span> 50/push-eax <span id="L365" class="LineNr">365 </span> <span class="subxS2Comment"># . . call</span> -<span id="L366" class="LineNr">366 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L366" class="LineNr">366 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L367" class="LineNr">367 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L368" class="LineNr">368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L369" class="LineNr">369 </span> <span class="subxS1Comment"># . epilogue</span> @@ -436,23 +436,23 @@ if ('onhashchange' in window) { <span id="L377" class="LineNr">377 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L378" class="LineNr">378 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L380" class="LineNr">380 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L380" class="LineNr">380 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . call</span> -<span id="L382" class="LineNr">382 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L382" class="LineNr">382 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L384" class="LineNr">384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L385" class="LineNr">385 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef")</span> <span id="L386" class="LineNr">386 </span> <span class="subxS2Comment"># . . push args</span> <span id="L387" class="LineNr">387 </span> 68/push <span class="Constant">"Abc\ndef"</span>/imm32 -<span id="L388" class="LineNr">388 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L388" class="LineNr">388 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> -<span id="L390" class="LineNr">390 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L390" class="LineNr">390 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L393" class="LineNr">393 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "def")</span> <span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . push args</span> <span id="L395" class="LineNr">395 </span> 68/push <span class="Constant">"def"</span>/imm32 -<span id="L396" class="LineNr">396 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L396" class="LineNr">396 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . call</span> <span id="L398" class="LineNr">398 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . discard args</span> @@ -463,7 +463,7 @@ if ('onhashchange' in window) { <span id="L404" class="LineNr">404 </span> 68/push 0/imm32 <span id="L405" class="LineNr">405 </span> 50/push-eax <span id="L406" class="LineNr">406 </span> <span class="subxS2Comment"># . . call</span> -<span id="L407" class="LineNr">407 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L407" class="LineNr">407 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L408" class="LineNr">408 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L409" class="LineNr">409 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L410" class="LineNr">410 </span> <span class="subxS1Comment"># . epilogue</span> @@ -477,23 +477,23 @@ if ('onhashchange' in window) { <span id="L418" class="LineNr">418 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L419" class="LineNr">419 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L420" class="LineNr">420 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L421" class="LineNr">421 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L421" class="LineNr">421 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L422" class="LineNr">422 </span> <span class="subxS2Comment"># . . call</span> -<span id="L423" class="LineNr">423 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L423" class="LineNr">423 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L425" class="LineNr">425 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L426" class="LineNr">426 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef\n")</span> <span id="L427" class="LineNr">427 </span> <span class="subxS2Comment"># . . push args</span> <span id="L428" class="LineNr">428 </span> 68/push <span class="Constant">"Abc\ndef\n"</span>/imm32 -<span id="L429" class="LineNr">429 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L429" class="LineNr">429 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L430" class="LineNr">430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L431" class="LineNr">431 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L431" class="LineNr">431 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L432" class="LineNr">432 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L433" class="LineNr">433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L434" class="LineNr">434 </span> <span class="subxComment"># next-stream-line-equal?(_test-stream, "Abc")</span> <span id="L435" class="LineNr">435 </span> <span class="subxS2Comment"># . . push args</span> <span id="L436" class="LineNr">436 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L437" class="LineNr">437 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L437" class="LineNr">437 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L438" class="LineNr">438 </span> <span class="subxS2Comment"># . . call</span> <span id="L439" class="LineNr">439 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L440" class="LineNr">440 </span> <span class="subxS2Comment"># . . discard args</span> @@ -501,7 +501,7 @@ if ('onhashchange' in window) { <span id="L442" class="LineNr">442 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "def")</span> <span id="L443" class="LineNr">443 </span> <span class="subxS2Comment"># . . push args</span> <span id="L444" class="LineNr">444 </span> 68/push <span class="Constant">"def"</span>/imm32 -<span id="L445" class="LineNr">445 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L445" class="LineNr">445 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L446" class="LineNr">446 </span> <span class="subxS2Comment"># . . call</span> <span id="L447" class="LineNr">447 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L448" class="LineNr">448 </span> <span class="subxS2Comment"># . . discard args</span> @@ -512,7 +512,7 @@ if ('onhashchange' in window) { <span id="L453" class="LineNr">453 </span> 68/push 1/imm32 <span id="L454" class="LineNr">454 </span> 50/push-eax <span id="L455" class="LineNr">455 </span> <span class="subxS2Comment"># . . call</span> -<span id="L456" class="LineNr">456 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L456" class="LineNr">456 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L457" class="LineNr">457 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L458" class="LineNr">458 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L459" class="LineNr">459 </span> <span class="subxS1Comment"># . epilogue</span> @@ -526,23 +526,23 @@ if ('onhashchange' in window) { <span id="L467" class="LineNr">467 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L468" class="LineNr">468 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L469" class="LineNr">469 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L470" class="LineNr">470 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L470" class="LineNr">470 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L471" class="LineNr">471 </span> <span class="subxS2Comment"># . . call</span> -<span id="L472" class="LineNr">472 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L472" class="LineNr">472 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L473" class="LineNr">473 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L474" class="LineNr">474 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L475" class="LineNr">475 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef")</span> <span id="L476" class="LineNr">476 </span> <span class="subxS2Comment"># . . push args</span> <span id="L477" class="LineNr">477 </span> 68/push <span class="Constant">"Abc\ndef"</span>/imm32 -<span id="L478" class="LineNr">478 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L478" class="LineNr">478 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L479" class="LineNr">479 </span> <span class="subxS2Comment"># . . call</span> -<span id="L480" class="LineNr">480 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L480" class="LineNr">480 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L481" class="LineNr">481 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L482" class="LineNr">482 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L483" class="LineNr">483 </span> <span class="subxComment"># next-stream-line-equal?(_test-stream, "Abc")</span> <span id="L484" class="LineNr">484 </span> <span class="subxS2Comment"># . . push args</span> <span id="L485" class="LineNr">485 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L486" class="LineNr">486 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L486" class="LineNr">486 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L487" class="LineNr">487 </span> <span class="subxS2Comment"># . . call</span> <span id="L488" class="LineNr">488 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L489" class="LineNr">489 </span> <span class="subxS2Comment"># . . discard args</span> @@ -550,7 +550,7 @@ if ('onhashchange' in window) { <span id="L491" class="LineNr">491 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "def")</span> <span id="L492" class="LineNr">492 </span> <span class="subxS2Comment"># . . push args</span> <span id="L493" class="LineNr">493 </span> 68/push <span class="Constant">"def"</span>/imm32 -<span id="L494" class="LineNr">494 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L494" class="LineNr">494 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L495" class="LineNr">495 </span> <span class="subxS2Comment"># . . call</span> <span id="L496" class="LineNr">496 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L497" class="LineNr">497 </span> <span class="subxS2Comment"># . . discard args</span> @@ -561,7 +561,7 @@ if ('onhashchange' in window) { <span id="L502" class="LineNr">502 </span> 68/push 1/imm32 <span id="L503" class="LineNr">503 </span> 50/push-eax <span id="L504" class="LineNr">504 </span> <span class="subxS2Comment"># . . call</span> -<span id="L505" class="LineNr">505 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L505" class="LineNr">505 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L506" class="LineNr">506 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L507" class="LineNr">507 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L508" class="LineNr">508 </span> <span class="subxS1Comment"># . epilogue</span> @@ -575,16 +575,16 @@ if ('onhashchange' in window) { <span id="L516" class="LineNr">516 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L517" class="LineNr">517 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L518" class="LineNr">518 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L519" class="LineNr">519 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L519" class="LineNr">519 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L520" class="LineNr">520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L521" class="LineNr">521 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L521" class="LineNr">521 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L522" class="LineNr">522 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L523" class="LineNr">523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L524" class="LineNr">524 </span> <span class="subxComment"># write nothing</span> <span id="L525" class="LineNr">525 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "")</span> <span id="L526" class="LineNr">526 </span> <span class="subxS2Comment"># . . push args</span> <span id="L527" class="LineNr">527 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L528" class="LineNr">528 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L528" class="LineNr">528 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L529" class="LineNr">529 </span> <span class="subxS2Comment"># . . call</span> <span id="L530" class="LineNr">530 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L531" class="LineNr">531 </span> <span class="subxS2Comment"># . . discard args</span> @@ -595,13 +595,13 @@ if ('onhashchange' in window) { <span id="L536" class="LineNr">536 </span> 68/push 1/imm32 <span id="L537" class="LineNr">537 </span> 50/push-eax <span id="L538" class="LineNr">538 </span> <span class="subxS2Comment"># . . call</span> -<span id="L539" class="LineNr">539 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L539" class="LineNr">539 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L540" class="LineNr">540 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L541" class="LineNr">541 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L542" class="LineNr">542 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "")</span> <span id="L543" class="LineNr">543 </span> <span class="subxS2Comment"># . . push args</span> <span id="L544" class="LineNr">544 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L545" class="LineNr">545 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L545" class="LineNr">545 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L546" class="LineNr">546 </span> <span class="subxS2Comment"># . . call</span> <span id="L547" class="LineNr">547 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . discard args</span> @@ -612,7 +612,7 @@ if ('onhashchange' in window) { <span id="L553" class="LineNr">553 </span> 68/push 1/imm32 <span id="L554" class="LineNr">554 </span> 50/push-eax <span id="L555" class="LineNr">555 </span> <span class="subxS2Comment"># . . call</span> -<span id="L556" class="LineNr">556 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L556" class="LineNr">556 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L557" class="LineNr">557 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L558" class="LineNr">558 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L559" class="LineNr">559 </span> <span class="subxS1Comment"># . epilogue</span> @@ -641,7 +641,7 @@ if ('onhashchange' in window) { <span id="L582" class="LineNr">582 </span> 68/push 1/imm32 <span id="L583" class="LineNr">583 </span> 50/push-eax <span id="L584" class="LineNr">584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L585" class="LineNr">585 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L585" class="LineNr">585 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L586" class="LineNr">586 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L587" class="LineNr">587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L588" class="LineNr">588 </span> <span class="subxS1Comment"># . restore registers</span> diff --git a/html/112read-byte.subx.html b/html/112read-byte.subx.html index cc322aaa..612f72d2 100644 --- a/html/112read-byte.subx.html +++ b/html/112read-byte.subx.html @@ -15,16 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } .subxMinorFunction { color: #875f5f; } -.SpecialChar { color: #d70000; } +.LineNr { } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .subxS2Comment { color: #8a8a8a; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -60,424 +57,129 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/112read-byte.subx'>https://github.com/akkartik/mu/blob/main/112read-byte.subx</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># read-byte-buffered: one higher-level abstraction atop 'read'.</span> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a single byte from a stream.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># There are many situations where 'read' is a lot to manage, and we need</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># to abstract some details away. One of them is when we want to read a file</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># character by character. In this situation we follow C's FILE data structure,</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># which manages the underlying file descriptor together with the buffer it</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># reads into. We call our version 'buffered-file'. Should be useful with other</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># primitives as well, in later layers.</span> -<span id="L9" class="LineNr"> 9 </span> -<span id="L10" class="LineNr"> 10 </span>== data -<span id="L11" class="LineNr"> 11 </span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># The buffered file for standard input. Also illustrates the layout for</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># buffered-file: a pointer to the backing store, followed by a 'buffer' stream</span> -<span id="L14" class="LineNr"> 14 </span><span class="SpecialChar">Stdin</span>: <span class="subxComment"># buffered-file</span> -<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L16" class="LineNr"> 16 </span> 0/imm32 <span class="subxComment"># standard input</span> -<span id="L17" class="LineNr"> 17 </span><span class="Constant">$Stdin->buffer</span>: -<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># inlined fields for a stream</span> -<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># current write index</span> -<span id="L20" class="LineNr"> 20 </span> 0/imm32 -<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># current read index</span> -<span id="L22" class="LineNr"> 22 </span> 0/imm32 -<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># size</span> -<span id="L24" class="LineNr"> 24 </span> 8/imm32 -<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># data</span> -<span id="L26" class="LineNr"> 26 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> -<span id="L27" class="LineNr"> 27 </span> -<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># TODO: 8 bytes is too small. We'll need to grow the buffer for efficiency. But</span> -<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># I don't want to type in 1024 bytes here.</span> -<span id="L30" class="LineNr"> 30 </span> -<span id="L31" class="LineNr"> 31 </span>== code -<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L33" class="LineNr"> 33 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L34" class="LineNr"> 34 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L35" class="LineNr"> 35 </span> -<span id="L36" class="LineNr"> 36 </span><span class="subxComment"># Return next byte value in eax, with top 3 bytes cleared.</span> -<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># On reaching end of file, return 0xffffffff (Eof).</span> -<span id="L38" class="LineNr"> 38 </span><span class="subxFunction">read-byte-buffered</span>: <span class="subxComment"># f: (addr buffered-file) -> byte-or-Eof/eax: byte</span> -<span id="L39" class="LineNr"> 39 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L40" class="LineNr"> 40 </span> 55/push-ebp -<span id="L41" class="LineNr"> 41 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L42" class="LineNr"> 42 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L43" class="LineNr"> 43 </span> 51/push-ecx -<span id="L44" class="LineNr"> 44 </span> 56/push-esi -<span id="L45" class="LineNr"> 45 </span> <span class="subxComment"># esi = f</span> -<span id="L46" class="LineNr"> 46 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L47" class="LineNr"> 47 </span> <span class="subxComment"># ecx = f->read</span> -<span id="L48" class="LineNr"> 48 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to ecx</span> -<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># if (f->read >= f->write) populate stream from file</span> -<span id="L50" class="LineNr"> 50 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+4)</span> -<span id="L51" class="LineNr"> 51 </span> 7c/jump-if-< $read-byte-buffered:from-stream/disp8 -<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . clear-stream(stream = f+4)</span> -<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L54" class="LineNr"> 54 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+4 to eax</span> -<span id="L55" class="LineNr"> 55 </span> 50/push-eax -<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . call</span> -<span id="L57" class="LineNr"> 57 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . f->read must now be 0; update its cache at ecx</span> -<span id="L61" class="LineNr"> 61 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . eax = read(f->fd, stream = f+4)</span> -<span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L64" class="LineNr"> 64 </span> 50/push-eax -<span id="L65" class="LineNr"> 65 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . call</span> -<span id="L67" class="LineNr"> 67 </span> e8/call <a href='111read.subx.html#L48'>read</a>/disp32 -<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L69" class="LineNr"> 69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># if (eax == 0) return 0xffffffff</span> -<span id="L71" class="LineNr"> 71 </span> 3d/compare-eax-and 0/imm32 -<span id="L72" class="LineNr"> 72 </span> 75/jump-if-!= $read-byte-buffered:from-stream/disp8 -<span id="L73" class="LineNr"> 73 </span> b8/copy-to-eax 0xffffffff/imm32/Eof -<span id="L74" class="LineNr"> 74 </span> eb/jump $read-byte-buffered:end/disp8 -<span id="L75" class="LineNr"> 75 </span><span class="Constant">$read-byte-buffered:from-stream</span>: -<span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># byte-or-Eof = f->data[f->read]</span> -<span id="L77" class="LineNr"> 77 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L78" class="LineNr"> 78 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+16) to AL</span> -<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># ++f->read</span> -<span id="L80" class="LineNr"> 80 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+8)</span> -<span id="L81" class="LineNr"> 81 </span><span class="Constant">$read-byte-buffered:end</span>: -<span id="L82" class="LineNr"> 82 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L83" class="LineNr"> 83 </span> 5e/pop-to-esi -<span id="L84" class="LineNr"> 84 </span> 59/pop-to-ecx -<span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L86" class="LineNr"> 86 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L87" class="LineNr"> 87 </span> 5d/pop-to-ebp -<span id="L88" class="LineNr"> 88 </span> c3/return -<span id="L89" class="LineNr"> 89 </span> -<span id="L90" class="LineNr"> 90 </span><span class="subxH1Comment"># - tests</span> -<span id="L91" class="LineNr"> 91 </span> -<span id="L92" class="LineNr"> 92 </span><span class="subxTest">test-read-byte-buffered-single</span>: -<span id="L93" class="LineNr"> 93 </span> <span class="subxH1Comment"># - check that read-byte-buffered returns first byte of 'file'</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># setup</span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L97" class="LineNr"> 97 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . call</span> -<span id="L99" class="LineNr"> 99 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L101" class="LineNr">101 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L102" class="LineNr">102 </span> <span class="subxS1Comment"># . clear-stream(_test-buffered-file->buffer)</span> -<span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L104" class="LineNr">104 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . call</span> -<span id="L106" class="LineNr">106 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L108" class="LineNr">108 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L109" class="LineNr">109 </span> <span class="subxS1Comment"># . write(_test-stream, "Ab")</span> -<span id="L110" class="LineNr">110 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L111" class="LineNr">111 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L112" class="LineNr">112 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . call</span> -<span id="L114" class="LineNr">114 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L116" class="LineNr">116 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L117" class="LineNr">117 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> -<span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L119" class="LineNr">119 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . call</span> -<span id="L121" class="LineNr">121 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 -<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L123" class="LineNr">123 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L124" class="LineNr">124 </span> <span class="subxComment"># check-ints-equal(eax, 'A', msg)</span> -<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L126" class="LineNr">126 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-single"</span>/imm32 -<span id="L127" class="LineNr">127 </span> 68/push 0x41/imm32 -<span id="L128" class="LineNr">128 </span> 50/push-eax -<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L130" class="LineNr">130 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . end</span> -<span id="L134" class="LineNr">134 </span> c3/return -<span id="L135" class="LineNr">135 </span> -<span id="L136" class="LineNr">136 </span><span class="subxTest">test-read-byte-buffered-multiple</span>: -<span id="L137" class="LineNr">137 </span> <span class="subxH1Comment"># - call read-byte-buffered twice, check that second call returns second byte</span> -<span id="L138" class="LineNr">138 </span> <span class="subxComment"># setup</span> -<span id="L139" class="LineNr">139 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L141" class="LineNr">141 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . call</span> -<span id="L143" class="LineNr">143 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L145" class="LineNr">145 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L146" class="LineNr">146 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L148" class="LineNr">148 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . call</span> -<span id="L150" class="LineNr">150 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L152" class="LineNr">152 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L153" class="LineNr">153 </span> <span class="subxS1Comment"># . write(_test-stream, "Ab")</span> -<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L155" class="LineNr">155 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L156" class="LineNr">156 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L158" class="LineNr">158 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L161" class="LineNr">161 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L163" class="LineNr">163 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . call</span> -<span id="L165" class="LineNr">165 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L167" class="LineNr">167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L168" class="LineNr">168 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> -<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L170" class="LineNr">170 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L172" class="LineNr">172 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 -<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L175" class="LineNr">175 </span> <span class="subxComment"># check-ints-equal(eax, 'b', msg)</span> -<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L177" class="LineNr">177 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-multiple"</span>/imm32 -<span id="L178" class="LineNr">178 </span> 68/push 0x62/imm32 -<span id="L179" class="LineNr">179 </span> 50/push-eax -<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L181" class="LineNr">181 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L183" class="LineNr">183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L184" class="LineNr">184 </span> <span class="subxS1Comment"># . end</span> -<span id="L185" class="LineNr">185 </span> c3/return -<span id="L186" class="LineNr">186 </span> -<span id="L187" class="LineNr">187 </span><span class="subxTest">test-read-byte-buffered-end-of-file</span>: -<span id="L188" class="LineNr">188 </span> <span class="subxH1Comment"># - call read-byte-buffered on an empty 'file', check that it returns Eof</span> -<span id="L189" class="LineNr">189 </span> <span class="subxComment"># setup</span> -<span id="L190" class="LineNr">190 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L192" class="LineNr">192 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L194" class="LineNr">194 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L196" class="LineNr">196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L197" class="LineNr">197 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L199" class="LineNr">199 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L201" class="LineNr">201 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L203" class="LineNr">203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L204" class="LineNr">204 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> -<span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L206" class="LineNr">206 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . call</span> -<span id="L208" class="LineNr">208 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 -<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L210" class="LineNr">210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L211" class="LineNr">211 </span> <span class="subxComment"># check-ints-equal(eax, 0xffffffff, msg)</span> -<span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L213" class="LineNr">213 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-end-of-file"</span>/imm32 -<span id="L214" class="LineNr">214 </span> 68/push 0xffffffff/imm32/Eof -<span id="L215" class="LineNr">215 </span> 50/push-eax -<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L217" class="LineNr">217 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L219" class="LineNr">219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L220" class="LineNr">220 </span> <span class="subxS1Comment"># . end</span> -<span id="L221" class="LineNr">221 </span> c3/return -<span id="L222" class="LineNr">222 </span> -<span id="L223" class="LineNr">223 </span><span class="subxTest">test-read-byte-buffered-refills-buffer</span>: -<span id="L224" class="LineNr">224 </span> <span class="subxH1Comment"># - consume buffered-file's buffer, check that next read-byte-buffered still works</span> -<span id="L225" class="LineNr">225 </span> <span class="subxComment"># setup</span> -<span id="L226" class="LineNr">226 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L228" class="LineNr">228 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . call</span> -<span id="L230" class="LineNr">230 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L232" class="LineNr">232 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L233" class="LineNr">233 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L235" class="LineNr">235 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . call</span> -<span id="L237" class="LineNr">237 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L238" class="LineNr">238 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L239" class="LineNr">239 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L240" class="LineNr">240 </span> <span class="subxS1Comment"># . write(_test-stream, "Abcdefgh")</span> -<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L242" class="LineNr">242 </span> 68/push <span class="Constant">"Abcdefgh"</span>/imm32 -<span id="L243" class="LineNr">243 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . call</span> -<span id="L245" class="LineNr">245 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L247" class="LineNr">247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L248" class="LineNr">248 </span> <span class="subxComment"># pretend buffer is full</span> -<span id="L249" class="LineNr">249 </span> <span class="subxS1Comment"># . _test-buffered-file->read = 6 # >= _test-buffered-file->size</span> -<span id="L250" class="LineNr">250 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L251" class="LineNr">251 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 6/imm32 <span class="subxComment"># copy to *(eax+8)</span> -<span id="L252" class="LineNr">252 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> -<span id="L253" class="LineNr">253 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L254" class="LineNr">254 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L255" class="LineNr">255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L256" class="LineNr">256 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 -<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L258" class="LineNr">258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L259" class="LineNr">259 </span> <span class="subxComment"># check-ints-equal(eax, 'A', msg)</span> -<span id="L260" class="LineNr">260 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L261" class="LineNr">261 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-refills-buffer"</span>/imm32 -<span id="L262" class="LineNr">262 </span> 68/push 0x41/imm32 -<span id="L263" class="LineNr">263 </span> 50/push-eax -<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . call</span> -<span id="L265" class="LineNr">265 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L267" class="LineNr">267 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L268" class="LineNr">268 </span> <span class="subxS1Comment"># . end</span> -<span id="L269" class="LineNr">269 </span> c3/return -<span id="L270" class="LineNr">270 </span> -<span id="L271" class="LineNr">271 </span><span class="subxComment"># Return next byte value in eax, with top 3 bytes cleared.</span> -<span id="L272" class="LineNr">272 </span><span class="subxComment"># Abort on reaching end of stream.</span> -<span id="L273" class="LineNr">273 </span><span class="subxFunction">read-byte</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> -<span id="L274" class="LineNr">274 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L275" class="LineNr">275 </span> 55/push-ebp -<span id="L276" class="LineNr">276 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L277" class="LineNr">277 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L278" class="LineNr">278 </span> 51/push-ecx -<span id="L279" class="LineNr">279 </span> 56/push-esi -<span id="L280" class="LineNr">280 </span> <span class="subxComment"># esi = s</span> -<span id="L281" class="LineNr">281 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L282" class="LineNr">282 </span> <span class="subxComment"># ecx = s->read</span> -<span id="L283" class="LineNr">283 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L284" class="LineNr">284 </span> <span class="subxComment"># if (f->read >= f->write) abort</span> -<span id="L285" class="LineNr">285 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> -<span id="L286" class="LineNr">286 </span> 0f 8d/jump-if->= $read-byte:abort/disp32 -<span id="L287" class="LineNr">287 </span> <span class="subxComment"># result = f->data[f->read]</span> -<span id="L288" class="LineNr">288 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L289" class="LineNr">289 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L290" class="LineNr">290 </span> <span class="subxComment"># ++f->read</span> -<span id="L291" class="LineNr">291 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> -<span id="L292" class="LineNr">292 </span><span class="Constant">$read-byte:end</span>: -<span id="L293" class="LineNr">293 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L294" class="LineNr">294 </span> 5e/pop-to-esi -<span id="L295" class="LineNr">295 </span> 59/pop-to-ecx -<span id="L296" class="LineNr">296 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L297" class="LineNr">297 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L298" class="LineNr">298 </span> 5d/pop-to-ebp -<span id="L299" class="LineNr">299 </span> c3/return -<span id="L300" class="LineNr">300 </span> -<span id="L301" class="LineNr">301 </span><span class="Constant">$read-byte:abort</span>: -<span id="L302" class="LineNr">302 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L303" class="LineNr">303 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L304" class="LineNr">304 </span> 68/push <span class="Constant">"read-byte: empty stream\n"</span>/imm32 -<span id="L305" class="LineNr">305 </span> 68/push 2/imm32/stderr -<span id="L306" class="LineNr">306 </span> <span class="subxS2Comment"># . . call</span> -<span id="L307" class="LineNr">307 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L308" class="LineNr">308 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L309" class="LineNr">309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L311" class="LineNr">311 </span> bb/copy-to-ebx 1/imm32 -<span id="L312" class="LineNr">312 </span> e8/call syscall_exit/disp32 -<span id="L313" class="LineNr">313 </span> <span class="subxComment"># never gets here</span> -<span id="L314" class="LineNr">314 </span> -<span id="L315" class="LineNr">315 </span>== data -<span id="L316" class="LineNr">316 </span> -<span id="L317" class="LineNr">317 </span><span class="subxComment"># a test buffered file for _test-stream</span> -<span id="L318" class="LineNr">318 </span><span class="subxMinorFunction">_test-buffered-file</span>: <span class="subxComment"># buffered-file</span> -<span id="L319" class="LineNr">319 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L320" class="LineNr">320 </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L321" class="LineNr">321 </span><span class="Constant">$_test-buffered-file->buffer</span>: -<span id="L322" class="LineNr">322 </span> <span class="subxComment"># current write index</span> -<span id="L323" class="LineNr">323 </span> 0/imm32 -<span id="L324" class="LineNr">324 </span> <span class="subxComment"># current read index</span> -<span id="L325" class="LineNr">325 </span> 0/imm32 -<span id="L326" class="LineNr">326 </span> <span class="subxComment"># size</span> -<span id="L327" class="LineNr">327 </span> 6/imm32 -<span id="L328" class="LineNr">328 </span> <span class="subxComment"># data</span> -<span id="L329" class="LineNr">329 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> -<span id="L330" class="LineNr">330 </span> -<span id="L331" class="LineNr">331 </span><span class="subxMinorFunction">_test-input-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L332" class="LineNr">332 </span> <span class="subxComment"># current write index</span> -<span id="L333" class="LineNr">333 </span> 0/imm32 -<span id="L334" class="LineNr">334 </span> <span class="subxComment"># current read index</span> -<span id="L335" class="LineNr">335 </span> 0/imm32 -<span id="L336" class="LineNr">336 </span> <span class="subxComment"># size</span> -<span id="L337" class="LineNr">337 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> -<span id="L338" class="LineNr">338 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> -<span id="L339" class="LineNr">339 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L340" class="LineNr">340 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L341" class="LineNr">341 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L342" class="LineNr">342 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L343" class="LineNr">343 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L344" class="LineNr">344 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L345" class="LineNr">345 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L346" class="LineNr">346 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L347" class="LineNr">347 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L348" class="LineNr">348 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L349" class="LineNr">349 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L350" class="LineNr">350 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L351" class="LineNr">351 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L352" class="LineNr">352 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L353" class="LineNr">353 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L354" class="LineNr">354 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L355" class="LineNr">355 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L356" class="LineNr">356 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L357" class="LineNr">357 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L358" class="LineNr">358 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L359" class="LineNr">359 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L360" class="LineNr">360 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L361" class="LineNr">361 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L362" class="LineNr">362 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L363" class="LineNr">363 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L364" class="LineNr">364 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L365" class="LineNr">365 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L366" class="LineNr">366 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L367" class="LineNr">367 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L368" class="LineNr">368 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L369" class="LineNr">369 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L370" class="LineNr">370 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L371" class="LineNr">371 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L372" class="LineNr">372 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L373" class="LineNr">373 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L374" class="LineNr">374 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L375" class="LineNr">375 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L376" class="LineNr">376 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L377" class="LineNr">377 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L378" class="LineNr">378 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L379" class="LineNr">379 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L380" class="LineNr">380 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L381" class="LineNr">381 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L382" class="LineNr">382 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L383" class="LineNr">383 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L384" class="LineNr">384 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L385" class="LineNr">385 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L386" class="LineNr">386 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L387" class="LineNr">387 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L388" class="LineNr">388 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L389" class="LineNr">389 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L390" class="LineNr">390 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L391" class="LineNr">391 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L392" class="LineNr">392 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L393" class="LineNr">393 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L394" class="LineNr">394 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L395" class="LineNr">395 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L396" class="LineNr">396 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L397" class="LineNr">397 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L398" class="LineNr">398 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L399" class="LineNr">399 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L400" class="LineNr">400 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L401" class="LineNr">401 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L402" class="LineNr">402 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L403" class="LineNr">403 </span> -<span id="L404" class="LineNr">404 </span><span class="subxComment"># a test buffered file for _test-input-stream</span> -<span id="L405" class="LineNr">405 </span><span class="subxMinorFunction">_test-input-buffered-file</span>: <span class="subxComment"># buffered-file</span> -<span id="L406" class="LineNr">406 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L407" class="LineNr">407 </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L408" class="LineNr">408 </span><span class="Constant">$_test-input-buffered-file->buffer</span>: -<span id="L409" class="LineNr">409 </span> <span class="subxComment"># current write index</span> -<span id="L410" class="LineNr">410 </span> 0/imm32 -<span id="L411" class="LineNr">411 </span> <span class="subxComment"># current read index</span> -<span id="L412" class="LineNr">412 </span> 0/imm32 -<span id="L413" class="LineNr">413 </span> <span class="subxComment"># size</span> -<span id="L414" class="LineNr">414 </span> 6/imm32 -<span id="L415" class="LineNr">415 </span> <span class="subxComment"># data</span> -<span id="L416" class="LineNr">416 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> -<span id="L417" class="LineNr">417 </span> -<span id="L418" class="LineNr">418 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span>== code +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L10" class="LineNr"> 10 </span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># Return next byte value in eax, with top 3 bytes cleared.</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># Abort on reaching end of stream.</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxFunction">read-byte</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> +<span id="L14" class="LineNr"> 14 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15" class="LineNr"> 15 </span> 55/push-ebp +<span id="L16" class="LineNr"> 16 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L17" class="LineNr"> 17 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18" class="LineNr"> 18 </span> 51/push-ecx +<span id="L19" class="LineNr"> 19 </span> 56/push-esi +<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># esi = s</span> +<span id="L21" class="LineNr"> 21 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># ecx = s->read</span> +<span id="L23" class="LineNr"> 23 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># if (f->read >= f->write) abort</span> +<span id="L25" class="LineNr"> 25 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> +<span id="L26" class="LineNr"> 26 </span> 0f 8d/jump-if->= $read-byte:<a href='501draw-text.mu.html#L459'>abort</a>/disp32 +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># result = f->data[f->read]</span> +<span id="L28" class="LineNr"> 28 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L29" class="LineNr"> 29 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># ++f->read</span> +<span id="L31" class="LineNr"> 31 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> +<span id="L32" class="LineNr"> 32 </span><span class="Constant">$read-byte:end</span>: +<span id="L33" class="LineNr"> 33 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34" class="LineNr"> 34 </span> 5e/pop-to-esi +<span id="L35" class="LineNr"> 35 </span> 59/pop-to-ecx +<span id="L36" class="LineNr"> 36 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37" class="LineNr"> 37 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L38" class="LineNr"> 38 </span> 5d/pop-to-ebp +<span id="L39" class="LineNr"> 39 </span> c3/return +<span id="L40" class="LineNr"> 40 </span> +<span id="L41" class="LineNr"> 41 </span><span class="Constant">$read-byte:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L42" class="LineNr"> 42 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"read-byte: empty stream"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L43" class="LineNr"> 43 </span> { +<span id="L44" class="LineNr"> 44 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L45" class="LineNr"> 45 </span> } +<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># never gets here</span> +<span id="L47" class="LineNr"> 47 </span> +<span id="L48" class="LineNr"> 48 </span>== data +<span id="L49" class="LineNr"> 49 </span> +<span id="L50" class="LineNr"> 50 </span><span class="subxMinorFunction">_test-input-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># current write index</span> +<span id="L52" class="LineNr"> 52 </span> 0/imm32 +<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># current read index</span> +<span id="L54" class="LineNr"> 54 </span> 0/imm32 +<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># size</span> +<span id="L56" class="LineNr"> 56 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> +<span id="L58" class="LineNr"> 58 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L59" class="LineNr"> 59 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L60" class="LineNr"> 60 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L61" class="LineNr"> 61 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L62" class="LineNr"> 62 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L63" class="LineNr"> 63 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L64" class="LineNr"> 64 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L65" class="LineNr"> 65 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L66" class="LineNr"> 66 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L67" class="LineNr"> 67 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L68" class="LineNr"> 68 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L69" class="LineNr"> 69 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L70" class="LineNr"> 70 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L71" class="LineNr"> 71 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L72" class="LineNr"> 72 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L73" class="LineNr"> 73 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L74" class="LineNr"> 74 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L75" class="LineNr"> 75 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L76" class="LineNr"> 76 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L77" class="LineNr"> 77 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L78" class="LineNr"> 78 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L79" class="LineNr"> 79 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L80" class="LineNr"> 80 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L81" class="LineNr"> 81 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L82" class="LineNr"> 82 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L83" class="LineNr"> 83 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L84" class="LineNr"> 84 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L85" class="LineNr"> 85 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L86" class="LineNr"> 86 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L87" class="LineNr"> 87 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L88" class="LineNr"> 88 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L89" class="LineNr"> 89 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L90" class="LineNr"> 90 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L91" class="LineNr"> 91 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L92" class="LineNr"> 92 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L93" class="LineNr"> 93 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L94" class="LineNr"> 94 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L95" class="LineNr"> 95 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L96" class="LineNr"> 96 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L97" class="LineNr"> 97 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L98" class="LineNr"> 98 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L99" class="LineNr"> 99 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L100" class="LineNr">100 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L101" class="LineNr">101 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L102" class="LineNr">102 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L103" class="LineNr">103 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L104" class="LineNr">104 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L105" class="LineNr">105 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L106" class="LineNr">106 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L107" class="LineNr">107 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L108" class="LineNr">108 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L109" class="LineNr">109 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L110" class="LineNr">110 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L111" class="LineNr">111 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L112" class="LineNr">112 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L113" class="LineNr">113 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L114" class="LineNr">114 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L115" class="LineNr">115 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L116" class="LineNr">116 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L117" class="LineNr">117 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L118" class="LineNr">118 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L119" class="LineNr">119 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L120" class="LineNr">120 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L121" class="LineNr">121 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L122" class="LineNr">122 </span> +<span id="L123" class="LineNr">123 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/113write-stream.subx.html b/html/113write-stream.subx.html index d40357f1..bbc72493 100644 --- a/html/113write-stream.subx.html +++ b/html/113write-stream.subx.html @@ -14,16 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } --> </style> @@ -66,251 +65,172 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? Entry: # manual test</span> -<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? # write-stream(stdout, _test-stream2)</span> -<span id="L10" class="LineNr"> 10 </span><span class="CommentedCode">#? 68/push _test-stream2/imm32</span> -<span id="L11" class="LineNr"> 11 </span><span class="CommentedCode">#? 68/push 1/imm32/stdout</span> -<span id="L12" class="LineNr"> 12 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> -<span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? # syscall(exit, Num-test-failures)</span> -<span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? 8b/copy 0/mod/indirect 5/rm32/.disp32 . . 3/r32/ebx Num-test-failures/disp32 # copy *Num-test-failures to ebx</span> -<span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="subxFunction">write-stream</span>: <span class="subxComment"># f: fd or (addr stream byte), s: (addr stream byte)</span> -<span id="L18" class="LineNr"> 18 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19" class="LineNr"> 19 </span> 55/push-ebp -<span id="L20" class="LineNr"> 20 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># if (f < 0x08000000) _write-stream(f, s), return # f can't be a user-mode address, so treat it as a kernel file descriptor</span> -<span id="L22" class="LineNr"> 22 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x08000000/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L23" class="LineNr"> 23 </span> 73/jump-if-addr>= $write-stream:fake/disp8 -<span id="L24" class="LineNr"> 24 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L25" class="LineNr"> 25 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L26" class="LineNr"> 26 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L27" class="LineNr"> 27 </span> <span class="subxS2Comment"># . . call</span> -<span id="L28" class="LineNr"> 28 </span> e8/call <a href='113write-stream.subx.html#L77'>_write-stream</a>/disp32 -<span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L30" class="LineNr"> 30 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L31" class="LineNr"> 31 </span> eb/jump $write-stream:end/disp8 -<span id="L32" class="LineNr"> 32 </span><span class="Constant">$write-stream:fake</span>: -<span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># otherwise, treat 'f' as a stream to append to</span> -<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35" class="LineNr"> 35 </span> 50/push-eax -<span id="L36" class="LineNr"> 36 </span> 56/push-esi -<span id="L37" class="LineNr"> 37 </span> 57/push-edi -<span id="L38" class="LineNr"> 38 </span> <span class="subxComment"># edi = f</span> -<span id="L39" class="LineNr"> 39 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># esi = s</span> -<span id="L41" class="LineNr"> 41 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># eax = _append-4(&f->data[f->write], &f->data[f->size], &s->data[s->read], &s->data[s->write])</span> -<span id="L43" class="LineNr"> 43 </span> <span class="subxS2Comment"># . . push &s->data[s->write]</span> -<span id="L44" class="LineNr"> 44 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L45" class="LineNr"> 45 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> -<span id="L46" class="LineNr"> 46 </span> 50/push-eax -<span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . push &s->data[s->read]</span> -<span id="L48" class="LineNr"> 48 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> -<span id="L49" class="LineNr"> 49 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> -<span id="L50" class="LineNr"> 50 </span> 50/push-eax -<span id="L51" class="LineNr"> 51 </span> <span class="subxS2Comment"># . . push &f->data[f->size]</span> -<span id="L52" class="LineNr"> 52 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to eax</span> -<span id="L53" class="LineNr"> 53 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+eax+12 to eax</span> -<span id="L54" class="LineNr"> 54 </span> 50/push-eax -<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . push &f->data[f->write]</span> -<span id="L56" class="LineNr"> 56 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> -<span id="L57" class="LineNr"> 57 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+eax+12 to eax</span> -<span id="L58" class="LineNr"> 58 </span> 50/push-eax -<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> -<span id="L60" class="LineNr"> 60 </span> e8/call <a href='107trace.subx.html#L897'>_append-4</a>/disp32 -<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># f->write += eax</span> -<span id="L64" class="LineNr"> 64 </span> 01/add 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *edi</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># s->read += eax</span> -<span id="L66" class="LineNr"> 66 </span> 01/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># add eax to *(esi+4)</span> -<span id="L67" class="LineNr"> 67 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L68" class="LineNr"> 68 </span> 5f/pop-to-edi -<span id="L69" class="LineNr"> 69 </span> 5e/pop-to-esi -<span id="L70" class="LineNr"> 70 </span> 58/pop-to-eax -<span id="L71" class="LineNr"> 71 </span><span class="Constant">$write-stream:end</span>: -<span id="L72" class="LineNr"> 72 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L73" class="LineNr"> 73 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L74" class="LineNr"> 74 </span> 5d/pop-to-ebp -<span id="L75" class="LineNr"> 75 </span> c3/return -<span id="L76" class="LineNr"> 76 </span> -<span id="L77" class="LineNr"> 77 </span><span class="subxMinorFunction">_write-stream</span>: <span class="subxComment"># fd: int, s: (addr stream byte)</span> -<span id="L78" class="LineNr"> 78 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L79" class="LineNr"> 79 </span> 55/push-ebp -<span id="L80" class="LineNr"> 80 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L82" class="LineNr"> 82 </span> 50/push-eax -<span id="L83" class="LineNr"> 83 </span> 51/push-ecx -<span id="L84" class="LineNr"> 84 </span> 52/push-edx -<span id="L85" class="LineNr"> 85 </span> 53/push-ebx -<span id="L86" class="LineNr"> 86 </span> 56/push-esi -<span id="L87" class="LineNr"> 87 </span> 57/push-edi -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># esi = s</span> -<span id="L89" class="LineNr"> 89 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># edi = s->read</span> -<span id="L91" class="LineNr"> 91 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edi</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># edx = s->write</span> -<span id="L93" class="LineNr"> 93 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># syscall(write, fd, &s->data[s->read], s->write - s->read)</span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . fd: ebx</span> -<span id="L96" class="LineNr"> 96 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . data: ecx = &s->data[s->read]</span> -<span id="L98" class="LineNr"> 98 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 7/index/edi <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edi+12 to ecx</span> -<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . size: edx = s->write - s->read</span> -<span id="L100" class="LineNr">100 </span> 29/subtract 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edi from edx</span> -<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . syscall</span> -<span id="L102" class="LineNr">102 </span> e8/call syscall_write/disp32 -<span id="L103" class="LineNr">103 </span> <span class="subxComment"># if (eax < 0) abort</span> -<span id="L104" class="LineNr">104 </span> 3d/compare-eax-with 0/imm32 -<span id="L105" class="LineNr">105 </span> 0f 8c/jump-if-< $_write-stream:abort/disp32 -<span id="L106" class="LineNr">106 </span> <span class="subxComment"># s->read += eax</span> -<span id="L107" class="LineNr">107 </span> 01/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># add eax to *(esi+4)</span> -<span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L109" class="LineNr">109 </span> 5f/pop-to-edi -<span id="L110" class="LineNr">110 </span> 5e/pop-to-esi -<span id="L111" class="LineNr">111 </span> 5b/pop-to-ebx -<span id="L112" class="LineNr">112 </span> 5a/pop-to-edx -<span id="L113" class="LineNr">113 </span> 59/pop-to-ecx -<span id="L114" class="LineNr">114 </span> 58/pop-to-eax -<span id="L115" class="LineNr">115 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L116" class="LineNr">116 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L117" class="LineNr">117 </span> 5d/pop-to-ebp -<span id="L118" class="LineNr">118 </span> c3/return -<span id="L119" class="LineNr">119 </span> -<span id="L120" class="LineNr">120 </span><span class="Constant">$_write-stream:abort</span>: -<span id="L121" class="LineNr">121 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L123" class="LineNr">123 </span> 68/push <span class="Constant">"_write-stream: failed to <a href='108write.subx.html#L24'>write</a> to file\n"</span>/imm32 -<span id="L124" class="LineNr">124 </span> 68/push 2/imm32/stderr -<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . call</span> -<span id="L126" class="LineNr">126 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L128" class="LineNr">128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L130" class="LineNr">130 </span> bb/copy-to-ebx 1/imm32 -<span id="L131" class="LineNr">131 </span> e8/call syscall_exit/disp32 -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># never gets here</span> -<span id="L133" class="LineNr">133 </span> -<span id="L134" class="LineNr">134 </span><span class="subxTest">test-write-stream-single</span>: -<span id="L135" class="LineNr">135 </span> <span class="subxComment"># setup</span> -<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L138" class="LineNr">138 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . call</span> -<span id="L140" class="LineNr">140 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L142" class="LineNr">142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . clear-stream(_test-stream2)</span> -<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L145" class="LineNr">145 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . write(_test-stream2, "Ab")</span> -<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L152" class="LineNr">152 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L153" class="LineNr">153 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">write-stream</span>: <span class="subxComment"># f: (addr stream byte), s: (addr stream byte)</span> +<span id="L9" class="LineNr"> 9 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10" class="LineNr"> 10 </span> 55/push-ebp +<span id="L11" class="LineNr"> 11 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L12" class="LineNr"> 12 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13" class="LineNr"> 13 </span> 50/push-eax +<span id="L14" class="LineNr"> 14 </span> 56/push-esi +<span id="L15" class="LineNr"> 15 </span> 57/push-edi +<span id="L16" class="LineNr"> 16 </span> <span class="subxComment"># edi = f</span> +<span id="L17" class="LineNr"> 17 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># esi = s</span> +<span id="L19" class="LineNr"> 19 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># eax = _append-4(&f->data[f->write], &f->data[f->size], &s->data[s->read], &s->data[s->write])</span> +<span id="L21" class="LineNr"> 21 </span> <span class="subxS2Comment"># . . push &s->data[s->write]</span> +<span id="L22" class="LineNr"> 22 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L23" class="LineNr"> 23 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L24" class="LineNr"> 24 </span> 50/push-eax +<span id="L25" class="LineNr"> 25 </span> <span class="subxS2Comment"># . . push &s->data[s->read]</span> +<span id="L26" class="LineNr"> 26 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> +<span id="L27" class="LineNr"> 27 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L28" class="LineNr"> 28 </span> 50/push-eax +<span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . push &f->data[f->size]</span> +<span id="L30" class="LineNr"> 30 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to eax</span> +<span id="L31" class="LineNr"> 31 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+eax+12 to eax</span> +<span id="L32" class="LineNr"> 32 </span> 50/push-eax +<span id="L33" class="LineNr"> 33 </span> <span class="subxS2Comment"># . . push &f->data[f->write]</span> +<span id="L34" class="LineNr"> 34 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> +<span id="L35" class="LineNr"> 35 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+eax+12 to eax</span> +<span id="L36" class="LineNr"> 36 </span> 50/push-eax +<span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . call</span> +<span id="L38" class="LineNr"> 38 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L40" class="LineNr"> 40 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># f->write += eax</span> +<span id="L42" class="LineNr"> 42 </span> 01/add 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *edi</span> +<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># s->read += eax</span> +<span id="L44" class="LineNr"> 44 </span> 01/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># add eax to *(esi+4)</span> +<span id="L45" class="LineNr"> 45 </span><span class="Constant">$write-stream:end</span>: +<span id="L46" class="LineNr"> 46 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L47" class="LineNr"> 47 </span> 5f/pop-to-edi +<span id="L48" class="LineNr"> 48 </span> 5e/pop-to-esi +<span id="L49" class="LineNr"> 49 </span> 58/pop-to-eax +<span id="L50" class="LineNr"> 50 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L51" class="LineNr"> 51 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L52" class="LineNr"> 52 </span> 5d/pop-to-ebp +<span id="L53" class="LineNr"> 53 </span> c3/return +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span><span class="subxTest">test-write-stream-single</span>: +<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># setup</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L59" class="LineNr"> 59 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . call</span> +<span id="L61" class="LineNr"> 61 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L63" class="LineNr"> 63 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxS1Comment"># . clear-stream(_test-stream2)</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L66" class="LineNr"> 66 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . call</span> +<span id="L68" class="LineNr"> 68 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L69" class="LineNr"> 69 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L70" class="LineNr"> 70 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . write(_test-stream2, "Ab")</span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L73" class="LineNr"> 73 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L74" class="LineNr"> 74 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . call</span> +<span id="L76" class="LineNr"> 76 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L78" class="LineNr"> 78 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># write-stream(_test-stream, _test-stream2)</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L81" class="LineNr"> 81 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L82" class="LineNr"> 82 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . call</span> +<span id="L84" class="LineNr"> 84 </span> e8/call <a href='113write-stream.subx.html#L8'>write-stream</a>/disp32 +<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L86" class="LineNr"> 86 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Ab", msg)</span> +<span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L89" class="LineNr"> 89 </span> 68/push <span class="Constant">"F - test-write-stream-single"</span>/imm32 +<span id="L90" class="LineNr"> 90 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L91" class="LineNr"> 91 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . call</span> +<span id="L93" class="LineNr"> 93 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L95" class="LineNr"> 95 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxS1Comment"># . end</span> +<span id="L97" class="LineNr"> 97 </span> c3/return +<span id="L98" class="LineNr"> 98 </span> +<span id="L99" class="LineNr"> 99 </span><span class="subxTest">test-write-stream-appends</span>: +<span id="L100" class="LineNr">100 </span> <span class="subxComment"># setup</span> +<span id="L101" class="LineNr">101 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L103" class="LineNr">103 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . call</span> +<span id="L105" class="LineNr">105 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L107" class="LineNr">107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . clear-stream(_test-stream2)</span> +<span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L110" class="LineNr">110 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . call</span> +<span id="L112" class="LineNr">112 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L114" class="LineNr">114 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L115" class="LineNr">115 </span> <span class="subxS1Comment"># . write(_test-stream2, "C")</span> +<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L117" class="LineNr">117 </span> 68/push <span class="Constant">"C"</span>/imm32 +<span id="L118" class="LineNr">118 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L119" class="LineNr">119 </span> <span class="subxS2Comment"># . . call</span> +<span id="L120" class="LineNr">120 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L121" class="LineNr">121 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L122" class="LineNr">122 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L123" class="LineNr">123 </span> <span class="subxComment"># first write</span> +<span id="L124" class="LineNr">124 </span> <span class="subxS1Comment"># . write-stream(_test-stream, _test-stream2)</span> +<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L126" class="LineNr">126 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L127" class="LineNr">127 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . call</span> +<span id="L129" class="LineNr">129 </span> e8/call <a href='113write-stream.subx.html#L8'>write-stream</a>/disp32 +<span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L131" class="LineNr">131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L132" class="LineNr">132 </span> <span class="subxComment"># second write</span> +<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . write(_test-stream2, "D")</span> +<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L135" class="LineNr">135 </span> 68/push <span class="Constant">"D"</span>/imm32 +<span id="L136" class="LineNr">136 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> +<span id="L138" class="LineNr">138 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L141" class="LineNr">141 </span> <span class="subxS1Comment"># . write-stream(_test-stream, _test-stream2)</span> +<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L143" class="LineNr">143 </span> 68/push <a href='113write-stream.subx.html#L163'>_test-stream2</a>/imm32 +<span id="L144" class="LineNr">144 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . call</span> +<span id="L146" class="LineNr">146 </span> e8/call <a href='113write-stream.subx.html#L8'>write-stream</a>/disp32 +<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L148" class="LineNr">148 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L149" class="LineNr">149 </span> <span class="subxComment"># check-stream-equal(_test-stream, "CD", msg)</span> +<span id="L150" class="LineNr">150 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L151" class="LineNr">151 </span> 68/push <span class="Constant">"F - test-write-stream-appends"</span>/imm32 +<span id="L152" class="LineNr">152 </span> 68/push <span class="Constant">"CD"</span>/imm32 +<span id="L153" class="LineNr">153 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L155" class="LineNr">155 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L155" class="LineNr">155 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L157" class="LineNr">157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L158" class="LineNr">158 </span> <span class="subxComment"># write-stream(_test-stream, _test-stream2)</span> -<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L160" class="LineNr">160 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 -<span id="L161" class="LineNr">161 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L163" class="LineNr">163 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L166" class="LineNr">166 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Ab", msg)</span> -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"F - test-write-stream-single"</span>/imm32 -<span id="L169" class="LineNr">169 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L170" class="LineNr">170 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L172" class="LineNr">172 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . end</span> -<span id="L176" class="LineNr">176 </span> c3/return -<span id="L177" class="LineNr">177 </span> -<span id="L178" class="LineNr">178 </span><span class="subxTest">test-write-stream-appends</span>: -<span id="L179" class="LineNr">179 </span> <span class="subxComment"># setup</span> -<span id="L180" class="LineNr">180 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L182" class="LineNr">182 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . call</span> -<span id="L184" class="LineNr">184 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L186" class="LineNr">186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L187" class="LineNr">187 </span> <span class="subxS1Comment"># . clear-stream(_test-stream2)</span> -<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L189" class="LineNr">189 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 -<span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . call</span> -<span id="L191" class="LineNr">191 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L192" class="LineNr">192 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L193" class="LineNr">193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L194" class="LineNr">194 </span> <span class="subxS1Comment"># . write(_test-stream2, "C")</span> -<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"C"</span>/imm32 -<span id="L197" class="LineNr">197 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 -<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> -<span id="L199" class="LineNr">199 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L201" class="LineNr">201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L202" class="LineNr">202 </span> <span class="subxComment"># first write</span> -<span id="L203" class="LineNr">203 </span> <span class="subxS1Comment"># . write-stream(_test-stream, _test-stream2)</span> -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L205" class="LineNr">205 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 -<span id="L206" class="LineNr">206 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . call</span> -<span id="L208" class="LineNr">208 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 -<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L210" class="LineNr">210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L211" class="LineNr">211 </span> <span class="subxComment"># second write</span> -<span id="L212" class="LineNr">212 </span> <span class="subxS1Comment"># . write(_test-stream2, "D")</span> -<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L214" class="LineNr">214 </span> 68/push <span class="Constant">"D"</span>/imm32 -<span id="L215" class="LineNr">215 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 -<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L217" class="LineNr">217 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L219" class="LineNr">219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L220" class="LineNr">220 </span> <span class="subxS1Comment"># . write-stream(_test-stream, _test-stream2)</span> -<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L222" class="LineNr">222 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 -<span id="L223" class="LineNr">223 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L224" class="LineNr">224 </span> <span class="subxS2Comment"># . . call</span> -<span id="L225" class="LineNr">225 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 -<span id="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L227" class="LineNr">227 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L228" class="LineNr">228 </span> <span class="subxComment"># check-stream-equal(_test-stream, "CD", msg)</span> -<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L230" class="LineNr">230 </span> 68/push <span class="Constant">"F - test-write-stream-appends"</span>/imm32 -<span id="L231" class="LineNr">231 </span> 68/push <span class="Constant">"CD"</span>/imm32 -<span id="L232" class="LineNr">232 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L233" class="LineNr">233 </span> <span class="subxS2Comment"># . . call</span> -<span id="L234" class="LineNr">234 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L235" class="LineNr">235 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L236" class="LineNr">236 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L237" class="LineNr">237 </span> <span class="subxS1Comment"># . end</span> -<span id="L238" class="LineNr">238 </span> c3/return -<span id="L239" class="LineNr">239 </span> -<span id="L240" class="LineNr">240 </span>== data -<span id="L241" class="LineNr">241 </span> -<span id="L242" class="LineNr">242 </span><span class="subxMinorFunction">_test-stream2</span>: <span class="subxComment"># (stream byte)</span> -<span id="L243" class="LineNr">243 </span> <span class="subxComment"># current write index</span> -<span id="L244" class="LineNr">244 </span> 4/imm32 -<span id="L245" class="LineNr">245 </span> <span class="subxComment"># current read index</span> -<span id="L246" class="LineNr">246 </span> 1/imm32 -<span id="L247" class="LineNr">247 </span> <span class="subxComment"># size</span> -<span id="L248" class="LineNr">248 </span> 8/imm32 -<span id="L249" class="LineNr">249 </span> <span class="subxComment"># data</span> -<span id="L250" class="LineNr">250 </span> 41/A 42/B 43/C 44/D 00 00 00 00 <span class="subxComment"># 8 bytes</span> -<span id="L251" class="LineNr">251 </span> -<span id="L252" class="LineNr">252 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L157" class="LineNr">157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L158" class="LineNr">158 </span> <span class="subxS1Comment"># . end</span> +<span id="L159" class="LineNr">159 </span> c3/return +<span id="L160" class="LineNr">160 </span> +<span id="L161" class="LineNr">161 </span>== data +<span id="L162" class="LineNr">162 </span> +<span id="L163" class="LineNr">163 </span><span class="subxMinorFunction">_test-stream2</span>: <span class="subxComment"># (stream byte)</span> +<span id="L164" class="LineNr">164 </span> <span class="subxComment"># current write index</span> +<span id="L165" class="LineNr">165 </span> 4/imm32 +<span id="L166" class="LineNr">166 </span> <span class="subxComment"># current read index</span> +<span id="L167" class="LineNr">167 </span> 1/imm32 +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># size</span> +<span id="L169" class="LineNr">169 </span> 8/imm32 +<span id="L170" class="LineNr">170 </span> <span class="subxComment"># data</span> +<span id="L171" class="LineNr">171 </span> 41/A 42/B 43/C 44/D 00 00 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L172" class="LineNr">172 </span> +<span id="L173" class="LineNr">173 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/115write-byte.subx.html b/html/115write-byte.subx.html index 6ec80f05..b0c05e8c 100644 --- a/html/115write-byte.subx.html +++ b/html/115write-byte.subx.html @@ -14,17 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } -.subxMinorFunction { color: #875f5f; } -.SpecialChar { color: #d70000; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } .Constant { color: #008787; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.subxS2Comment { color: #8a8a8a; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -60,481 +58,88 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/115write-byte.subx'>https://github.com/akkartik/mu/blob/main/115write-byte.subx</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write-byte-buffered: add a single byte to a buffered-file.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># flush: write out any buffered writes to disk.</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># TODO: Come up with a way to signal failure to write to disk. This is hard</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># since the failure may impact previous calls that were buffered.</span> -<span id="L6" class="LineNr"> 6 </span> -<span id="L7" class="LineNr"> 7 </span>== data -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># The buffered file for standard output.</span> -<span id="L10" class="LineNr"> 10 </span><span class="SpecialChar">Stdout</span>: <span class="subxComment"># buffered-file</span> -<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L12" class="LineNr"> 12 </span> 1/imm32 <span class="subxComment"># standard output</span> -<span id="L13" class="LineNr"> 13 </span><span class="Constant">$Stdout->buffer</span>: -<span id="L14" class="LineNr"> 14 </span> <span class="subxComment"># inlined fields for a stream</span> -<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># current write index</span> -<span id="L16" class="LineNr"> 16 </span> 0/imm32 -<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># current read index</span> -<span id="L18" class="LineNr"> 18 </span> 0/imm32 -<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># size</span> -<span id="L20" class="LineNr"> 20 </span> 8/imm32 -<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># data</span> -<span id="L22" class="LineNr"> 22 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> -<span id="L23" class="LineNr"> 23 </span> -<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># TODO: 8 bytes is too small. We'll need to grow the buffer for efficiency. But</span> -<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># I don't want to type in 1024 bytes here.</span> -<span id="L26" class="LineNr"> 26 </span> -<span id="L27" class="LineNr"> 27 </span>== code -<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L29" class="LineNr"> 29 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L31" class="LineNr"> 31 </span> -<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> -<span id="L33" class="LineNr"> 33 </span><span class="subxFunction">write-byte-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> -<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35" class="LineNr"> 35 </span> 55/push-ebp -<span id="L36" class="LineNr"> 36 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L37" class="LineNr"> 37 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L38" class="LineNr"> 38 </span> 51/push-ecx -<span id="L39" class="LineNr"> 39 </span> 57/push-edi -<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># edi = f</span> -<span id="L41" class="LineNr"> 41 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># ecx = f->write</span> -<span id="L43" class="LineNr"> 43 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> -<span id="L44" class="LineNr"> 44 </span> <span class="subxComment"># if (f->write >= f->size) flush and clear f's stream</span> -<span id="L45" class="LineNr"> 45 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+12)</span> -<span id="L46" class="LineNr"> 46 </span> 7c/jump-if-< $write-byte-buffered:to-stream/disp8 -<span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . flush(f)</span> -<span id="L48" class="LineNr"> 48 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L49" class="LineNr"> 49 </span> 57/push-edi -<span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> -<span id="L51" class="LineNr"> 51 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L53" class="LineNr"> 53 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L54" class="LineNr"> 54 </span> <span class="subxS1Comment"># . clear-stream(stream = f+4)</span> -<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L56" class="LineNr"> 56 </span> 8d/copy-address 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+4 to eax</span> -<span id="L57" class="LineNr"> 57 </span> 50/push-eax -<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . call</span> -<span id="L59" class="LineNr"> 59 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L61" class="LineNr"> 61 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . f->write must now be 0; update its cache at ecx</span> -<span id="L63" class="LineNr"> 63 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> -<span id="L64" class="LineNr"> 64 </span><span class="Constant">$write-byte-buffered:to-stream</span>: -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># write to stream</span> -<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># f->data[f->write] = LSB(n)</span> -<span id="L67" class="LineNr"> 67 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L68" class="LineNr"> 68 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> -<span id="L69" class="LineNr"> 69 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+16)</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># ++f->write</span> -<span id="L71" class="LineNr"> 71 </span> ff 0/subop/increment 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(edi+4)</span> -<span id="L72" class="LineNr"> 72 </span><span class="Constant">$write-byte-buffered:end</span>: -<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L74" class="LineNr"> 74 </span> 5f/pop-to-edi -<span id="L75" class="LineNr"> 75 </span> 59/pop-to-ecx -<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L77" class="LineNr"> 77 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L78" class="LineNr"> 78 </span> 5d/pop-to-ebp -<span id="L79" class="LineNr"> 79 </span> c3/return -<span id="L80" class="LineNr"> 80 </span> -<span id="L81" class="LineNr"> 81 </span><span class="subxFunction">flush</span>: <span class="subxComment"># f: (addr buffered-file)</span> -<span id="L82" class="LineNr"> 82 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L83" class="LineNr"> 83 </span> 55/push-ebp -<span id="L84" class="LineNr"> 84 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L86" class="LineNr"> 86 </span> 50/push-eax -<span id="L87" class="LineNr"> 87 </span> 51/push-ecx -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># eax = f</span> -<span id="L89" class="LineNr"> 89 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># write-stream(f->fd, data = f+4)</span> -<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L92" class="LineNr"> 92 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+4 to ecx</span> -<span id="L93" class="LineNr"> 93 </span> 51/push-ecx -<span id="L94" class="LineNr"> 94 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . call</span> -<span id="L96" class="LineNr"> 96 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L99" class="LineNr"> 99 </span><span class="Constant">$flush:end</span>: -<span id="L100" class="LineNr">100 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L101" class="LineNr">101 </span> 59/pop-to-ecx -<span id="L102" class="LineNr">102 </span> 58/pop-to-eax -<span id="L103" class="LineNr">103 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L104" class="LineNr">104 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L105" class="LineNr">105 </span> 5d/pop-to-ebp -<span id="L106" class="LineNr">106 </span> c3/return -<span id="L107" class="LineNr">107 </span> -<span id="L108" class="LineNr">108 </span><span class="subxTest">test-write-byte-buffered-single</span>: -<span id="L109" class="LineNr">109 </span> <span class="subxH1Comment"># - check that write-byte-buffered writes to first byte of 'file'</span> -<span id="L110" class="LineNr">110 </span> <span class="subxComment"># setup</span> -<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L113" class="LineNr">113 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L118" class="LineNr">118 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L119" class="LineNr">119 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L120" class="LineNr">120 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L121" class="LineNr">121 </span> <span class="subxS2Comment"># . . call</span> -<span id="L122" class="LineNr">122 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L124" class="LineNr">124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L125" class="LineNr">125 </span> <span class="subxComment"># write-byte-buffered(_test-buffered-file, 'A')</span> -<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L127" class="LineNr">127 </span> 68/push 0x41/imm32 -<span id="L128" class="LineNr">128 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L130" class="LineNr">130 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L133" class="LineNr">133 </span> <span class="subxComment"># flush(_test-buffered-file)</span> -<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L135" class="LineNr">135 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . call</span> -<span id="L137" class="LineNr">137 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L139" class="LineNr">139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L140" class="LineNr">140 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> -<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L142" class="LineNr">142 </span> 68/push <span class="Constant">"F - test-write-byte-buffered-single"</span>/imm32 -<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L144" class="LineNr">144 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . call</span> -<span id="L146" class="LineNr">146 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L148" class="LineNr">148 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L149" class="LineNr">149 </span> <span class="subxS1Comment"># . end</span> -<span id="L150" class="LineNr">150 </span> c3/return -<span id="L151" class="LineNr">151 </span> -<span id="L152" class="LineNr">152 </span><span class="subxTest">test-write-byte-buffered-multiple-flushes</span>: -<span id="L153" class="LineNr">153 </span> <span class="subxH1Comment"># - check that write-byte-buffered correctly flushes buffered data</span> -<span id="L154" class="LineNr">154 </span> <span class="subxComment"># setup</span> -<span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L157" class="LineNr">157 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> -<span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L161" class="LineNr">161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L163" class="LineNr">163 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L164" class="LineNr">164 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L165" class="LineNr">165 </span> <span class="subxS2Comment"># . . call</span> -<span id="L166" class="LineNr">166 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L168" class="LineNr">168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L169" class="LineNr">169 </span> <span class="subxComment"># fill up the buffer for _test-buffered-file</span> -<span id="L170" class="LineNr">170 </span> <span class="subxS1Comment"># . write($_test-buffered-file->buffer, "abcdef")</span> -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L172" class="LineNr">172 </span> 68/push <span class="Constant">"abcdef"</span>/imm32 -<span id="L173" class="LineNr">173 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . call</span> -<span id="L175" class="LineNr">175 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L177" class="LineNr">177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L178" class="LineNr">178 </span> <span class="subxComment"># write-byte-buffered(_test-buffered-file, 'g')</span> -<span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L180" class="LineNr">180 </span> 68/push 0x67/imm32 -<span id="L181" class="LineNr">181 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . call</span> -<span id="L183" class="LineNr">183 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L185" class="LineNr">185 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L186" class="LineNr">186 </span> <span class="subxComment"># flush(_test-buffered-file)</span> -<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L188" class="LineNr">188 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . call</span> -<span id="L190" class="LineNr">190 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L192" class="LineNr">192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L193" class="LineNr">193 </span> <span class="subxComment"># check-stream-equal(_test-stream, "abcdefg", msg)</span> -<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L195" class="LineNr">195 </span> 68/push <span class="Constant">"F - test-write-byte-buffered-multiple-flushes"</span>/imm32 -<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"abcdefg"</span>/imm32 -<span id="L197" class="LineNr">197 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> -<span id="L199" class="LineNr">199 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L201" class="LineNr">201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L202" class="LineNr">202 </span> <span class="subxS1Comment"># . end</span> -<span id="L203" class="LineNr">203 </span> c3/return -<span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span><span class="subxH1Comment"># - variant without buffering</span> -<span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> -<span id="L208" class="LineNr">208 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> -<span id="L209" class="LineNr">209 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L210" class="LineNr">210 </span> 55/push-ebp -<span id="L211" class="LineNr">211 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L212" class="LineNr">212 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L213" class="LineNr">213 </span> 51/push-ecx -<span id="L214" class="LineNr">214 </span> 57/push-edi -<span id="L215" class="LineNr">215 </span> <span class="subxComment"># edi = f</span> -<span id="L216" class="LineNr">216 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L217" class="LineNr">217 </span> <span class="subxComment"># ecx = f->write</span> -<span id="L218" class="LineNr">218 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L219" class="LineNr">219 </span> <span class="subxComment"># if (f->write >= f->size) abort</span> -<span id="L220" class="LineNr">220 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+8)</span> -<span id="L221" class="LineNr">221 </span> 7d/jump-if->= $append-byte:abort/disp8 -<span id="L222" class="LineNr">222 </span><span class="Constant">$append-byte:to-stream</span>: -<span id="L223" class="LineNr">223 </span> <span class="subxComment"># write to stream</span> -<span id="L224" class="LineNr">224 </span> <span class="subxComment"># f->data[f->write] = LSB(n)</span> -<span id="L225" class="LineNr">225 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L226" class="LineNr">226 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> -<span id="L227" class="LineNr">227 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+12)</span> -<span id="L228" class="LineNr">228 </span> <span class="subxComment"># ++f->write</span> -<span id="L229" class="LineNr">229 </span> ff 0/subop/increment 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *edi</span> -<span id="L230" class="LineNr">230 </span><span class="Constant">$append-byte:end</span>: -<span id="L231" class="LineNr">231 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L232" class="LineNr">232 </span> 5f/pop-to-edi -<span id="L233" class="LineNr">233 </span> 59/pop-to-ecx -<span id="L234" class="LineNr">234 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L235" class="LineNr">235 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L236" class="LineNr">236 </span> 5d/pop-to-ebp -<span id="L237" class="LineNr">237 </span> c3/return -<span id="L238" class="LineNr">238 </span> -<span id="L239" class="LineNr">239 </span><span class="Constant">$append-byte:abort</span>: -<span id="L240" class="LineNr">240 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L242" class="LineNr">242 </span> 68/push <span class="Constant">"append-byte: out of space\n"</span>/imm32 -<span id="L243" class="LineNr">243 </span> 68/push 2/imm32/stderr -<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . call</span> -<span id="L245" class="LineNr">245 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L247" class="LineNr">247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L248" class="LineNr">248 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L249" class="LineNr">249 </span> bb/copy-to-ebx 1/imm32 -<span id="L250" class="LineNr">250 </span> e8/call syscall_exit/disp32 -<span id="L251" class="LineNr">251 </span> <span class="subxComment"># never gets here</span> -<span id="L252" class="LineNr">252 </span> -<span id="L253" class="LineNr">253 </span><span class="subxTest">test-append-byte-single</span>: -<span id="L254" class="LineNr">254 </span> <span class="subxH1Comment"># - check that append-byte writes to first byte of 'file'</span> -<span id="L255" class="LineNr">255 </span> <span class="subxComment"># setup</span> -<span id="L256" class="LineNr">256 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L258" class="LineNr">258 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . call</span> -<span id="L260" class="LineNr">260 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L262" class="LineNr">262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L263" class="LineNr">263 </span> <span class="subxComment"># append-byte(_test-stream, 'A')</span> -<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L265" class="LineNr">265 </span> 68/push 0x41/imm32 -<span id="L266" class="LineNr">266 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L267" class="LineNr">267 </span> <span class="subxS2Comment"># . . call</span> -<span id="L268" class="LineNr">268 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 -<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L270" class="LineNr">270 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L271" class="LineNr">271 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> -<span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L273" class="LineNr">273 </span> 68/push <span class="Constant">"F - test-append-byte-single"</span>/imm32 -<span id="L274" class="LineNr">274 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L275" class="LineNr">275 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L276" class="LineNr">276 </span> <span class="subxS2Comment"># . . call</span> -<span id="L277" class="LineNr">277 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L279" class="LineNr">279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L280" class="LineNr">280 </span> <span class="subxS1Comment"># . end</span> -<span id="L281" class="LineNr">281 </span> c3/return -<span id="L282" class="LineNr">282 </span> -<span id="L283" class="LineNr">283 </span>== data -<span id="L284" class="LineNr">284 </span> -<span id="L285" class="LineNr">285 </span><span class="subxMinorFunction">_test-output-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L286" class="LineNr">286 </span> <span class="subxComment"># current write index</span> -<span id="L287" class="LineNr">287 </span> 0/imm32 -<span id="L288" class="LineNr">288 </span> <span class="subxComment"># current read index</span> -<span id="L289" class="LineNr">289 </span> 0/imm32 -<span id="L290" class="LineNr">290 </span> <span class="subxComment"># size</span> -<span id="L291" class="LineNr">291 </span> 0x800/imm32 <span class="subxComment"># 2048 bytes</span> -<span id="L292" class="LineNr">292 </span> <span class="subxComment"># data (128 lines x 16 bytes/line)</span> -<span id="L293" class="LineNr">293 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L294" class="LineNr">294 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L295" class="LineNr">295 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L296" class="LineNr">296 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L297" class="LineNr">297 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L298" class="LineNr">298 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L299" class="LineNr">299 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L300" class="LineNr">300 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L301" class="LineNr">301 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L302" class="LineNr">302 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L303" class="LineNr">303 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L304" class="LineNr">304 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L305" class="LineNr">305 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L306" class="LineNr">306 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L307" class="LineNr">307 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L308" class="LineNr">308 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L309" class="LineNr">309 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L310" class="LineNr">310 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L311" class="LineNr">311 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L312" class="LineNr">312 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L313" class="LineNr">313 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L314" class="LineNr">314 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L315" class="LineNr">315 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L316" class="LineNr">316 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L317" class="LineNr">317 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L318" class="LineNr">318 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L319" class="LineNr">319 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L320" class="LineNr">320 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L321" class="LineNr">321 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L322" class="LineNr">322 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L323" class="LineNr">323 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L324" class="LineNr">324 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L325" class="LineNr">325 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L326" class="LineNr">326 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L327" class="LineNr">327 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L328" class="LineNr">328 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L329" class="LineNr">329 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L330" class="LineNr">330 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L331" class="LineNr">331 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L332" class="LineNr">332 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L333" class="LineNr">333 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L334" class="LineNr">334 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L335" class="LineNr">335 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L336" class="LineNr">336 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L337" class="LineNr">337 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L338" class="LineNr">338 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L339" class="LineNr">339 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L340" class="LineNr">340 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L341" class="LineNr">341 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L342" class="LineNr">342 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L343" class="LineNr">343 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L344" class="LineNr">344 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L345" class="LineNr">345 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L346" class="LineNr">346 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L347" class="LineNr">347 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L348" class="LineNr">348 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L349" class="LineNr">349 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L350" class="LineNr">350 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L351" class="LineNr">351 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L352" class="LineNr">352 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L353" class="LineNr">353 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L354" class="LineNr">354 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L355" class="LineNr">355 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L356" class="LineNr">356 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L357" class="LineNr">357 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L358" class="LineNr">358 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L359" class="LineNr">359 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L360" class="LineNr">360 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L361" class="LineNr">361 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L362" class="LineNr">362 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L363" class="LineNr">363 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L364" class="LineNr">364 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L365" class="LineNr">365 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L366" class="LineNr">366 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L367" class="LineNr">367 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L368" class="LineNr">368 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L369" class="LineNr">369 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L370" class="LineNr">370 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L371" class="LineNr">371 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L372" class="LineNr">372 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L373" class="LineNr">373 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L374" class="LineNr">374 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L375" class="LineNr">375 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L376" class="LineNr">376 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L377" class="LineNr">377 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L378" class="LineNr">378 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L379" class="LineNr">379 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L380" class="LineNr">380 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L381" class="LineNr">381 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L382" class="LineNr">382 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L383" class="LineNr">383 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L384" class="LineNr">384 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L385" class="LineNr">385 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L386" class="LineNr">386 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L387" class="LineNr">387 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L388" class="LineNr">388 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L389" class="LineNr">389 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L390" class="LineNr">390 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L391" class="LineNr">391 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L392" class="LineNr">392 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L393" class="LineNr">393 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L394" class="LineNr">394 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L395" class="LineNr">395 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L396" class="LineNr">396 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L397" class="LineNr">397 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L398" class="LineNr">398 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L399" class="LineNr">399 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L400" class="LineNr">400 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L401" class="LineNr">401 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L402" class="LineNr">402 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L403" class="LineNr">403 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L404" class="LineNr">404 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L405" class="LineNr">405 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L406" class="LineNr">406 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L407" class="LineNr">407 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L408" class="LineNr">408 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L409" class="LineNr">409 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L410" class="LineNr">410 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L411" class="LineNr">411 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L412" class="LineNr">412 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L413" class="LineNr">413 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L414" class="LineNr">414 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L415" class="LineNr">415 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L416" class="LineNr">416 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L417" class="LineNr">417 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L418" class="LineNr">418 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L419" class="LineNr">419 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L420" class="LineNr">420 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L421" class="LineNr">421 </span> -<span id="L422" class="LineNr">422 </span><span class="subxComment"># a test buffered file for _test-output-stream</span> -<span id="L423" class="LineNr">423 </span><span class="subxMinorFunction">_test-output-buffered-file</span>: <span class="subxComment"># buffered-file</span> -<span id="L424" class="LineNr">424 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L425" class="LineNr">425 </span> <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L426" class="LineNr">426 </span><span class="Constant">$_test-output-buffered-file->buffer</span>: -<span id="L427" class="LineNr">427 </span> <span class="subxComment"># current write index</span> -<span id="L428" class="LineNr">428 </span> 0/imm32 -<span id="L429" class="LineNr">429 </span> <span class="subxComment"># current read index</span> -<span id="L430" class="LineNr">430 </span> 0/imm32 -<span id="L431" class="LineNr">431 </span> <span class="subxComment"># size</span> -<span id="L432" class="LineNr">432 </span> 6/imm32 -<span id="L433" class="LineNr">433 </span> <span class="subxComment"># data</span> -<span id="L434" class="LineNr">434 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> -<span id="L435" class="LineNr">435 </span> -<span id="L436" class="LineNr">436 </span><span class="subxMinorFunction">_test-error-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L437" class="LineNr">437 </span> <span class="subxComment"># current write index</span> -<span id="L438" class="LineNr">438 </span> 0/imm32 -<span id="L439" class="LineNr">439 </span> <span class="subxComment"># current read index</span> -<span id="L440" class="LineNr">440 </span> 0/imm32 -<span id="L441" class="LineNr">441 </span> <span class="subxComment"># line</span> -<span id="L442" class="LineNr">442 </span> 0x100/imm32 <span class="subxComment"># 256 bytes</span> -<span id="L443" class="LineNr">443 </span> <span class="subxComment"># data (16 lines x 16 bytes/line)</span> -<span id="L444" class="LineNr">444 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L445" class="LineNr">445 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L446" class="LineNr">446 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L447" class="LineNr">447 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L448" class="LineNr">448 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L449" class="LineNr">449 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L450" class="LineNr">450 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L451" class="LineNr">451 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L452" class="LineNr">452 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L453" class="LineNr">453 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L454" class="LineNr">454 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L455" class="LineNr">455 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L456" class="LineNr">456 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L457" class="LineNr">457 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L458" class="LineNr">458 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L459" class="LineNr">459 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L460" class="LineNr">460 </span> -<span id="L461" class="LineNr">461 </span><span class="subxComment"># a test buffered file for _test-error-stream</span> -<span id="L462" class="LineNr">462 </span><span class="subxMinorFunction">_test-error-buffered-file</span>: <span class="subxComment"># buffered-file</span> -<span id="L463" class="LineNr">463 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> -<span id="L464" class="LineNr">464 </span> <a href='115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 -<span id="L465" class="LineNr">465 </span><span class="Constant">$_test-error-buffered-file->buffer</span>: -<span id="L466" class="LineNr">466 </span> <span class="subxComment"># current write index</span> -<span id="L467" class="LineNr">467 </span> 0/imm32 -<span id="L468" class="LineNr">468 </span> <span class="subxComment"># current read index</span> -<span id="L469" class="LineNr">469 </span> 0/imm32 -<span id="L470" class="LineNr">470 </span> <span class="subxComment"># size</span> -<span id="L471" class="LineNr">471 </span> 6/imm32 -<span id="L472" class="LineNr">472 </span> <span class="subxComment"># data</span> -<span id="L473" class="LineNr">473 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> -<span id="L474" class="LineNr">474 </span> -<span id="L475" class="LineNr">475 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Write a single byte to a stream.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span>== code +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L10" class="LineNr">10 </span> +<span id="L11" class="LineNr">11 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> +<span id="L12" class="LineNr">12 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> +<span id="L13" class="LineNr">13 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14" class="LineNr">14 </span> 55/push-ebp +<span id="L15" class="LineNr">15 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L16" class="LineNr">16 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17" class="LineNr">17 </span> 50/push-eax +<span id="L18" class="LineNr">18 </span> 51/push-ecx +<span id="L19" class="LineNr">19 </span> 57/push-edi +<span id="L20" class="LineNr">20 </span> <span class="subxComment"># edi = f</span> +<span id="L21" class="LineNr">21 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L22" class="LineNr">22 </span> <span class="subxComment"># ecx = f->write</span> +<span id="L23" class="LineNr">23 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L24" class="LineNr">24 </span> <span class="subxComment"># if (f->write >= f->size) abort</span> +<span id="L25" class="LineNr">25 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+8)</span> +<span id="L26" class="LineNr">26 </span> 7d/jump-if->= $append-byte:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L27" class="LineNr">27 </span><span class="Constant">$append-byte:to-stream</span>: +<span id="L28" class="LineNr">28 </span> <span class="subxComment"># write to stream</span> +<span id="L29" class="LineNr">29 </span> <span class="subxComment"># f->data[f->write] = LSB(n)</span> +<span id="L30" class="LineNr">30 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L31" class="LineNr">31 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> +<span id="L32" class="LineNr">32 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+12)</span> +<span id="L33" class="LineNr">33 </span> <span class="subxComment"># ++f->write</span> +<span id="L34" class="LineNr">34 </span> ff 0/subop/increment 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *edi</span> +<span id="L35" class="LineNr">35 </span><span class="Constant">$append-byte:end</span>: +<span id="L36" class="LineNr">36 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L37" class="LineNr">37 </span> 5f/pop-to-edi +<span id="L38" class="LineNr">38 </span> 59/pop-to-ecx +<span id="L39" class="LineNr">39 </span> 58/pop-to-eax +<span id="L40" class="LineNr">40 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L41" class="LineNr">41 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L42" class="LineNr">42 </span> 5d/pop-to-ebp +<span id="L43" class="LineNr">43 </span> c3/return +<span id="L44" class="LineNr">44 </span> +<span id="L45" class="LineNr">45 </span><span class="Constant">$append-byte:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L46" class="LineNr">46 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"append-byte: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L47" class="LineNr">47 </span> { +<span id="L48" class="LineNr">48 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L49" class="LineNr">49 </span> } +<span id="L50" class="LineNr">50 </span> <span class="subxComment"># never gets here</span> +<span id="L51" class="LineNr">51 </span> +<span id="L52" class="LineNr">52 </span><span class="subxTest">test-append-byte-single</span>: +<span id="L53" class="LineNr">53 </span> <span class="subxH1Comment"># - check that append-byte writes to first byte of 'file'</span> +<span id="L54" class="LineNr">54 </span> <span class="subxComment"># setup</span> +<span id="L55" class="LineNr">55 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L56" class="LineNr">56 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L57" class="LineNr">57 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L58" class="LineNr">58 </span> <span class="subxS2Comment"># . . call</span> +<span id="L59" class="LineNr">59 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L60" class="LineNr">60 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L61" class="LineNr">61 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L62" class="LineNr">62 </span> <span class="subxComment"># append-byte(_test-stream, 'A')</span> +<span id="L63" class="LineNr">63 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L64" class="LineNr">64 </span> 68/push 0x41/imm32 +<span id="L65" class="LineNr">65 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L66" class="LineNr">66 </span> <span class="subxS2Comment"># . . call</span> +<span id="L67" class="LineNr">67 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 +<span id="L68" class="LineNr">68 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L69" class="LineNr">69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L70" class="LineNr">70 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> +<span id="L71" class="LineNr">71 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L72" class="LineNr">72 </span> 68/push <span class="Constant">"F - test-append-byte-single"</span>/imm32 +<span id="L73" class="LineNr">73 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L74" class="LineNr">74 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L75" class="LineNr">75 </span> <span class="subxS2Comment"># . . call</span> +<span id="L76" class="LineNr">76 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L77" class="LineNr">77 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L78" class="LineNr">78 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L79" class="LineNr">79 </span> <span class="subxS1Comment"># . end</span> +<span id="L80" class="LineNr">80 </span> c3/return +<span id="L81" class="LineNr">81 </span> +<span id="L82" class="LineNr">82 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/117write-int-hex.subx.html b/html/117write-int-hex.subx.html index 884ff2f0..754e1696 100644 --- a/html/117write-int-hex.subx.html +++ b/html/117write-int-hex.subx.html @@ -14,16 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } -.Folded { color: #080808; background-color: #949494; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -96,7 +95,7 @@ if ('onhashchange' in window) { <span id="L35" class="LineNr"> 35 </span> 50/push-eax <span id="L36" class="LineNr"> 36 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . call</span> -<span id="L38" class="LineNr"> 38 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 +<span id="L38" class="LineNr"> 38 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 <span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L40" class="LineNr"> 40 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># AL = convert lower nibble to hex</span> @@ -109,7 +108,7 @@ if ('onhashchange' in window) { <span id="L48" class="LineNr"> 48 </span> 50/push-eax <span id="L49" class="LineNr"> 49 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> -<span id="L51" class="LineNr"> 51 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 +<span id="L51" class="LineNr"> 51 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 <span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L53" class="LineNr"> 53 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L54" class="LineNr"> 54 </span><span class="Constant">$append-byte-hex:end</span>: @@ -125,15 +124,15 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># setup</span> <span id="L65" class="LineNr"> 65 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L67" class="LineNr"> 67 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L67" class="LineNr"> 67 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . call</span> -<span id="L69" class="LineNr"> 69 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L69" class="LineNr"> 69 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L71" class="LineNr"> 71 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># append-byte-hex(_test-stream, 0xa) # exercises digit, non-digit as well as leading zero</span> <span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . push args</span> <span id="L74" class="LineNr"> 74 </span> 68/push 0xa/imm32 -<span id="L75" class="LineNr"> 75 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L75" class="LineNr"> 75 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> <span id="L77" class="LineNr"> 77 </span> e8/call <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a>/disp32 <span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> @@ -142,7 +141,7 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . push args</span> <span id="L82" class="LineNr"> 82 </span> 68/push <span class="Constant">"F - test-append-byte-hex"</span>/imm32 <span id="L83" class="LineNr"> 83 </span> 68/push <span class="Constant">"0a"</span>/imm32 -<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . call</span> <span id="L86" class="LineNr"> 86 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . discard args</span> @@ -150,328 +149,117 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span> <span class="subxS1Comment"># . end</span> <span id="L90" class="LineNr"> 90 </span> c3/return <span id="L91" class="LineNr"> 91 </span> -<span id="L92" class="LineNr"> 92 </span><span class="subxComment"># print the hex representation for the lowest byte of a number</span> -<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">write-byte-hex-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L95" class="LineNr"> 95 </span> 55/push-ebp -<span id="L96" class="LineNr"> 96 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L98" class="LineNr"> 98 </span> 50/push-eax -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># AL = convert upper nibble to hex</span> -<span id="L100" class="LineNr">100 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L101" class="LineNr">101 </span> c1/shift 5/subop/logic-right 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift eax right by 4 bits, while padding zeroes</span> -<span id="L102" class="LineNr">102 </span> 25/and-eax 0xf/imm32 -<span id="L103" class="LineNr">103 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> -<span id="L104" class="LineNr">104 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L105" class="LineNr">105 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> -<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L107" class="LineNr">107 </span> 50/push-eax -<span id="L108" class="LineNr">108 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . call</span> -<span id="L110" class="LineNr">110 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L112" class="LineNr">112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L113" class="LineNr">113 </span> <span class="subxComment"># AL = convert lower nibble to hex</span> -<span id="L114" class="LineNr">114 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L115" class="LineNr">115 </span> 25/and-eax 0xf/imm32 -<span id="L116" class="LineNr">116 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> -<span id="L117" class="LineNr">117 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> -<span id="L119" class="LineNr">119 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L120" class="LineNr">120 </span> 50/push-eax -<span id="L121" class="LineNr">121 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . call</span> -<span id="L123" class="LineNr">123 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L125" class="LineNr">125 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L126" class="LineNr">126 </span><span class="Constant">$write-byte-hex-buffered:end</span>: -<span id="L127" class="LineNr">127 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L128" class="LineNr">128 </span> 58/pop-to-eax -<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L130" class="LineNr">130 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L131" class="LineNr">131 </span> 5d/pop-to-ebp -<span id="L132" class="LineNr">132 </span> c3/return -<span id="L133" class="LineNr">133 </span> -<span id="L134" class="LineNr">134 </span><span class="subxTest">test-write-byte-hex-buffered</span>: -<span id="L135" class="LineNr">135 </span> <span class="subxH1Comment"># - check that write-byte-hex-buffered prints the hex textual representation</span> -<span id="L136" class="LineNr">136 </span> <span class="subxComment"># setup</span> -<span id="L137" class="LineNr">137 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L139" class="LineNr">139 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . call</span> -<span id="L141" class="LineNr">141 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L143" class="LineNr">143 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L144" class="LineNr">144 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L146" class="LineNr">146 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . call</span> -<span id="L148" class="LineNr">148 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L150" class="LineNr">150 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L151" class="LineNr">151 </span> <span class="subxComment"># write-byte-hex-buffered(_test-buffered-file, 0xa) # exercises digit, non-digit as well as leading zero</span> -<span id="L152" class="LineNr">152 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L153" class="LineNr">153 </span> 68/push 0xa/imm32 -<span id="L154" class="LineNr">154 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . call</span> -<span id="L156" class="LineNr">156 </span> e8/call <a href='117write-int-hex.subx.html#L93'>write-byte-hex-buffered</a>/disp32 -<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L158" class="LineNr">158 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L159" class="LineNr">159 </span> <span class="subxComment"># flush(_test-buffered-file)</span> -<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L161" class="LineNr">161 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L163" class="LineNr">163 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L166" class="LineNr">166 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0a", msg)</span> -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"F - test-write-byte-hex-buffered"</span>/imm32 -<span id="L169" class="LineNr">169 </span> 68/push <span class="Constant">"0a"</span>/imm32 -<span id="L170" class="LineNr">170 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L172" class="LineNr">172 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . end</span> -<span id="L176" class="LineNr">176 </span> c3/return -<span id="L177" class="LineNr">177 </span> -<span id="L178" class="LineNr">178 </span><span class="subxFunction">write-int32-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> -<span id="L179" class="LineNr">179 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L180" class="LineNr">180 </span> 55/push-ebp -<span id="L181" class="LineNr">181 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L182" class="LineNr">182 </span><span class="Constant">$write-int32-hex:hex-prefix</span>: -<span id="L183" class="LineNr">183 </span> <span class="subxComment"># write(f, "0x")</span> -<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L185" class="LineNr">185 </span> 68/push <span class="Constant">"0x"</span>/imm32 -<span id="L186" class="LineNr">186 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . call</span> -<span id="L188" class="LineNr">188 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L190" class="LineNr">190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L191" class="LineNr">191 </span><span class="Constant">$write-int32-hex:rest</span>: -<span id="L192" class="LineNr">192 </span> <span class="subxComment"># write-int32-hex-bits(f, n, 32)</span> -<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L194" class="LineNr">194 </span> 68/push 0x20/imm32 -<span id="L195" class="LineNr">195 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L196" class="LineNr">196 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> -<span id="L198" class="LineNr">198 </span> e8/call <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a>/disp32 -<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L201" class="LineNr">201 </span><span class="Constant">$write-int32-hex:end</span>: -<span id="L202" class="LineNr">202 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L203" class="LineNr">203 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L204" class="LineNr">204 </span> 5d/pop-to-ebp -<span id="L205" class="LineNr">205 </span> c3/return -<span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> -<span id="L208" class="LineNr">208 </span><span class="subxComment"># bits must be multiple of 4</span> -<span id="L209" class="LineNr">209 </span><span class="subxFunction">write-int32-hex-bits</span>: <span class="subxComment"># f: (addr stream byte), n: int, bits: int</span> -<span id="L210" class="LineNr">210 </span> <span class="subxComment"># pseudocode:</span> -<span id="L211" class="LineNr">211 </span> <span class="subxComment"># bits -= 4</span> -<span id="L212" class="LineNr">212 </span> <span class="subxComment"># while true</span> -<span id="L213" class="LineNr">213 </span> <span class="subxComment"># if (bits < 0) break</span> -<span id="L214" class="LineNr">214 </span> <span class="subxComment"># eax = n >> bits</span> -<span id="L215" class="LineNr">215 </span> <span class="subxComment"># eax = eax & 0xf</span> -<span id="L216" class="LineNr">216 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L217" class="LineNr">217 </span> <span class="subxComment"># bits -= 4</span> -<span id="L218" class="LineNr">218 </span> <span class="subxComment">#</span> -<span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L220" class="LineNr">220 </span> 55/push-ebp -<span id="L221" class="LineNr">221 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L222" class="LineNr">222 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L223" class="LineNr">223 </span> 50/push-eax -<span id="L224" class="LineNr">224 </span> 51/push-ecx -<span id="L225" class="LineNr">225 </span> <span class="subxComment"># ecx = bits-4</span> -<span id="L226" class="LineNr">226 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L227" class="LineNr">227 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L228" class="LineNr">228 </span><span class="Constant">$write-int32-hex-bits:loop</span>: -<span id="L229" class="LineNr">229 </span> <span class="subxComment"># if (bits < 0) break</span> -<span id="L230" class="LineNr">230 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L231" class="LineNr">231 </span> 7c/jump-if-< $write-int32-hex-bits:end/disp8 -<span id="L232" class="LineNr">232 </span> <span class="subxComment"># eax = n >> bits</span> -<span id="L233" class="LineNr">233 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L234" class="LineNr">234 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> -<span id="L235" class="LineNr">235 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> -<span id="L236" class="LineNr">236 </span> 25/and-eax 0xf/imm32 -<span id="L237" class="LineNr">237 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L238" class="LineNr">238 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L240" class="LineNr">240 </span> 50/push-eax -<span id="L241" class="LineNr">241 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L242" class="LineNr">242 </span> <span class="subxS2Comment"># . . call</span> -<span id="L243" class="LineNr">243 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 -<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L245" class="LineNr">245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L246" class="LineNr">246 </span> <span class="subxComment"># bits -= 4</span> -<span id="L247" class="LineNr">247 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L248" class="LineNr">248 </span> eb/jump $write-int32-hex-bits:<span class="Constant">loop</span>/disp8 -<span id="L249" class="LineNr">249 </span><span class="Constant">$write-int32-hex-bits:end</span>: -<span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L251" class="LineNr">251 </span> 59/pop-to-ecx -<span id="L252" class="LineNr">252 </span> 58/pop-to-eax -<span id="L253" class="LineNr">253 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L254" class="LineNr">254 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L255" class="LineNr">255 </span> 5d/pop-to-ebp -<span id="L256" class="LineNr">256 </span> c3/return -<span id="L257" class="LineNr">257 </span> -<span id="L258" class="LineNr">258 </span><span class="subxTest">test-write-int32-hex</span>: -<span id="L259" class="LineNr">259 </span> <span class="subxH1Comment"># - check that write-int32-hex prints the hex textual representation</span> -<span id="L260" class="LineNr">260 </span> <span class="subxComment"># setup</span> -<span id="L261" class="LineNr">261 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L263" class="LineNr">263 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . call</span> -<span id="L265" class="LineNr">265 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L267" class="LineNr">267 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L268" class="LineNr">268 </span> <span class="subxComment"># write-int32-hex(_test-stream, 0x8899aa)</span> -<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L270" class="LineNr">270 </span> 68/push 0x8899aa/imm32 -<span id="L271" class="LineNr">271 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . call</span> -<span id="L273" class="LineNr">273 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 -<span id="L274" class="LineNr">274 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L275" class="LineNr">275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L276" class="LineNr">276 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> -<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L278" class="LineNr">278 </span> 68/push <span class="Constant">"F - test-write-int32-hex"</span>/imm32 -<span id="L279" class="LineNr">279 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 -<span id="L280" class="LineNr">280 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L281" class="LineNr">281 </span> <span class="subxS2Comment"># . . call</span> -<span id="L282" class="LineNr">282 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L284" class="LineNr">284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L285" class="LineNr">285 </span> <span class="subxS1Comment"># . end</span> -<span id="L286" class="LineNr">286 </span> c3/return -<span id="L287" class="LineNr">287 </span> -<span id="L288" class="LineNr">288 </span><span class="subxFunction">write-int32-hex-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> -<span id="L289" class="LineNr">289 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L290" class="LineNr">290 </span> 55/push-ebp -<span id="L291" class="LineNr">291 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L292" class="LineNr">292 </span><span class="Constant">$write-int32-hex-buffered:hex-prefix</span>: -<span id="L293" class="LineNr">293 </span> <span class="subxComment"># write-buffered(f, "0x")</span> -<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L295" class="LineNr">295 </span> 68/push <span class="Constant">"0x"</span>/imm32 -<span id="L296" class="LineNr">296 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L297" class="LineNr">297 </span> <span class="subxS2Comment"># . . call</span> -<span id="L298" class="LineNr">298 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L299" class="LineNr">299 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L300" class="LineNr">300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L301" class="LineNr">301 </span><span class="Constant">$write-int32-hex-buffered:rest</span>: -<span id="L302" class="LineNr">302 </span> <span class="subxComment"># write-int32-hex-bits-buffered(f, n, 32)</span> -<span id="L303" class="LineNr">303 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L304" class="LineNr">304 </span> 68/push 0x20/imm32 -<span id="L305" class="LineNr">305 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L306" class="LineNr">306 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . call</span> -<span id="L308" class="LineNr">308 </span> e8/call <a href='117write-int-hex.subx.html#L319'>write-int32-hex-bits-buffered</a>/disp32 -<span id="L309" class="LineNr">309 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L310" class="LineNr">310 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L311" class="LineNr">311 </span><span class="Constant">$write-int32-hex-buffered:end</span>: -<span id="L312" class="LineNr">312 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L313" class="LineNr">313 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L314" class="LineNr">314 </span> 5d/pop-to-ebp -<span id="L315" class="LineNr">315 </span> c3/return -<span id="L316" class="LineNr">316 </span> -<span id="L317" class="LineNr">317 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> -<span id="L318" class="LineNr">318 </span><span class="subxComment"># bits must be multiple of 4</span> -<span id="L319" class="LineNr">319 </span><span class="subxFunction">write-int32-hex-bits-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int, bits: int</span> -<span id="L320" class="LineNr">320 </span> <span class="subxComment"># pseudocode:</span> -<span id="L321" class="LineNr">321 </span> <span class="subxComment"># bits -= 4</span> -<span id="L322" class="LineNr">322 </span> <span class="subxComment"># while true</span> -<span id="L323" class="LineNr">323 </span> <span class="subxComment"># if (bits < 0) break</span> -<span id="L324" class="LineNr">324 </span> <span class="subxComment"># eax = n >> bits</span> -<span id="L325" class="LineNr">325 </span> <span class="subxComment"># eax = eax & 0xf</span> -<span id="L326" class="LineNr">326 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> -<span id="L327" class="LineNr">327 </span> <span class="subxComment"># bits -= 4</span> -<span id="L328" class="LineNr">328 </span> <span class="subxComment">#</span> -<span id="L329" class="LineNr">329 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L330" class="LineNr">330 </span> 55/push-ebp -<span id="L331" class="LineNr">331 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L332" class="LineNr">332 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L333" class="LineNr">333 </span> 50/push-eax -<span id="L334" class="LineNr">334 </span> 51/push-ecx -<span id="L335" class="LineNr">335 </span> <span class="subxComment"># ecx = bits-4</span> -<span id="L336" class="LineNr">336 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L337" class="LineNr">337 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L338" class="LineNr">338 </span><span class="Constant">$write-int32-hex-bits-buffered:loop</span>: -<span id="L339" class="LineNr">339 </span> <span class="subxComment"># if (bits < 0) break</span> -<span id="L340" class="LineNr">340 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L341" class="LineNr">341 </span> 7c/jump-if-< $write-int32-hex-bits-buffered:end/disp8 -<span id="L342" class="LineNr">342 </span> <span class="subxComment"># eax = n >> bits</span> -<span id="L343" class="LineNr">343 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L344" class="LineNr">344 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> -<span id="L345" class="LineNr">345 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> -<span id="L346" class="LineNr">346 </span> 25/and-eax 0xf/imm32 -<span id="L347" class="LineNr">347 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L348" class="LineNr">348 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> -<span id="L349" class="LineNr">349 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L350" class="LineNr">350 </span> 50/push-eax -<span id="L351" class="LineNr">351 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L352" class="LineNr">352 </span> <span class="subxS2Comment"># . . call</span> -<span id="L353" class="LineNr">353 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L354" class="LineNr">354 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L355" class="LineNr">355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L356" class="LineNr">356 </span> <span class="subxComment"># bits -= 4</span> -<span id="L357" class="LineNr">357 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L358" class="LineNr">358 </span> eb/jump $write-int32-hex-bits-buffered:<span class="Constant">loop</span>/disp8 -<span id="L359" class="LineNr">359 </span><span class="Constant">$write-int32-hex-bits-buffered:end</span>: -<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L361" class="LineNr">361 </span> 59/pop-to-ecx -<span id="L362" class="LineNr">362 </span> 58/pop-to-eax -<span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L364" class="LineNr">364 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L365" class="LineNr">365 </span> 5d/pop-to-ebp -<span id="L366" class="LineNr">366 </span> c3/return -<span id="L367" class="LineNr">367 </span> -<span id="L368" class="LineNr">368 </span><span class="subxTest">test-write-int32-hex-buffered</span>: -<span id="L369" class="LineNr">369 </span> <span class="subxH1Comment"># - check that write-int32-hex-buffered prints the hex textual representation</span> -<span id="L370" class="LineNr">370 </span> <span class="subxComment"># setup</span> -<span id="L371" class="LineNr">371 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L373" class="LineNr">373 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L374" class="LineNr">374 </span> <span class="subxS2Comment"># . . call</span> -<span id="L375" class="LineNr">375 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L377" class="LineNr">377 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L378" class="LineNr">378 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L380" class="LineNr">380 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . call</span> -<span id="L382" class="LineNr">382 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L384" class="LineNr">384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L385" class="LineNr">385 </span> <span class="subxComment"># write-int32-hex-buffered(_test-buffered-file, 0x8899aa)</span> -<span id="L386" class="LineNr">386 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L387" class="LineNr">387 </span> 68/push 0x8899aa/imm32 -<span id="L388" class="LineNr">388 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> -<span id="L390" class="LineNr">390 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L393" class="LineNr">393 </span> <span class="subxComment"># flush(_test-buffered-file)</span> -<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L395" class="LineNr">395 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L396" class="LineNr">396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L397" class="LineNr">397 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L398" class="LineNr">398 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L399" class="LineNr">399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L400" class="Folded">400 </span><span class="Folded">+-- 18 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L418" class="LineNr">418 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> -<span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L420" class="LineNr">420 </span> 68/push <span class="Constant">"F - test-write-int32-hex-buffered"</span>/imm32 -<span id="L421" class="LineNr">421 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 -<span id="L422" class="LineNr">422 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L423" class="LineNr">423 </span> <span class="subxS2Comment"># . . call</span> -<span id="L424" class="LineNr">424 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L425" class="LineNr">425 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L426" class="LineNr">426 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L427" class="LineNr">427 </span> <span class="subxS1Comment"># . end</span> -<span id="L428" class="LineNr">428 </span> c3/return -<span id="L429" class="LineNr">429 </span> -<span id="L430" class="LineNr">430 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L92" class="LineNr"> 92 </span><span class="subxFunction">write-int32-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> +<span id="L93" class="LineNr"> 93 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L94" class="LineNr"> 94 </span> 55/push-ebp +<span id="L95" class="LineNr"> 95 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L96" class="LineNr"> 96 </span><span class="Constant">$write-int32-hex:hex-prefix</span>: +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># write(f, "0x")</span> +<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L99" class="LineNr"> 99 </span> 68/push <span class="Constant">"0x"</span>/imm32 +<span id="L100" class="LineNr">100 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . call</span> +<span id="L102" class="LineNr">102 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L104" class="LineNr">104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L105" class="LineNr">105 </span><span class="Constant">$write-int32-hex:rest</span>: +<span id="L106" class="LineNr">106 </span> <span class="subxComment"># write-int32-hex-bits(f, n, 32)</span> +<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L108" class="LineNr">108 </span> 68/push 0x20/imm32 +<span id="L109" class="LineNr">109 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L110" class="LineNr">110 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . call</span> +<span id="L112" class="LineNr">112 </span> e8/call <a href='117write-int-hex.subx.html#L123'>write-int32-hex-bits</a>/disp32 +<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L114" class="LineNr">114 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L115" class="LineNr">115 </span><span class="Constant">$write-int32-hex:end</span>: +<span id="L116" class="LineNr">116 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L117" class="LineNr">117 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L118" class="LineNr">118 </span> 5d/pop-to-ebp +<span id="L119" class="LineNr">119 </span> c3/return +<span id="L120" class="LineNr">120 </span> +<span id="L121" class="LineNr">121 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> +<span id="L122" class="LineNr">122 </span><span class="subxComment"># bits must be multiple of 4</span> +<span id="L123" class="LineNr">123 </span><span class="subxFunction">write-int32-hex-bits</span>: <span class="subxComment"># f: (addr stream byte), n: int, bits: int</span> +<span id="L124" class="LineNr">124 </span> <span class="subxComment"># pseudocode:</span> +<span id="L125" class="LineNr">125 </span> <span class="subxComment"># bits -= 4</span> +<span id="L126" class="LineNr">126 </span> <span class="subxComment"># while true</span> +<span id="L127" class="LineNr">127 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L128" class="LineNr">128 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L129" class="LineNr">129 </span> <span class="subxComment"># eax = eax & 0xf</span> +<span id="L130" class="LineNr">130 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L131" class="LineNr">131 </span> <span class="subxComment"># bits -= 4</span> +<span id="L132" class="LineNr">132 </span> <span class="subxComment">#</span> +<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L134" class="LineNr">134 </span> 55/push-ebp +<span id="L135" class="LineNr">135 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L137" class="LineNr">137 </span> 50/push-eax +<span id="L138" class="LineNr">138 </span> 51/push-ecx +<span id="L139" class="LineNr">139 </span> <span class="subxComment"># ecx = bits-4</span> +<span id="L140" class="LineNr">140 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L141" class="LineNr">141 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L142" class="LineNr">142 </span><span class="Constant">$write-int32-hex-bits:loop</span>: +<span id="L143" class="LineNr">143 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L144" class="LineNr">144 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L145" class="LineNr">145 </span> 7c/jump-if-< $write-int32-hex-bits:end/disp8 +<span id="L146" class="LineNr">146 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L147" class="LineNr">147 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L148" class="LineNr">148 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> +<span id="L149" class="LineNr">149 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> +<span id="L150" class="LineNr">150 </span> 25/and-eax 0xf/imm32 +<span id="L151" class="LineNr">151 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L152" class="LineNr">152 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L153" class="LineNr">153 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L154" class="LineNr">154 </span> 50/push-eax +<span id="L155" class="LineNr">155 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . call</span> +<span id="L157" class="LineNr">157 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 +<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L159" class="LineNr">159 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L160" class="LineNr">160 </span> <span class="subxComment"># bits -= 4</span> +<span id="L161" class="LineNr">161 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L162" class="LineNr">162 </span> eb/jump $write-int32-hex-bits:<span class="Constant">loop</span>/disp8 +<span id="L163" class="LineNr">163 </span><span class="Constant">$write-int32-hex-bits:end</span>: +<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L165" class="LineNr">165 </span> 59/pop-to-ecx +<span id="L166" class="LineNr">166 </span> 58/pop-to-eax +<span id="L167" class="LineNr">167 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L168" class="LineNr">168 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L169" class="LineNr">169 </span> 5d/pop-to-ebp +<span id="L170" class="LineNr">170 </span> c3/return +<span id="L171" class="LineNr">171 </span> +<span id="L172" class="LineNr">172 </span><span class="subxTest">test-write-int32-hex</span>: +<span id="L173" class="LineNr">173 </span> <span class="subxH1Comment"># - check that write-int32-hex prints the hex textual representation</span> +<span id="L174" class="LineNr">174 </span> <span class="subxComment"># setup</span> +<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L177" class="LineNr">177 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . call</span> +<span id="L179" class="LineNr">179 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L181" class="LineNr">181 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L182" class="LineNr">182 </span> <span class="subxComment"># write-int32-hex(_test-stream, 0x8899aa)</span> +<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L184" class="LineNr">184 </span> 68/push 0x8899aa/imm32 +<span id="L185" class="LineNr">185 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . call</span> +<span id="L187" class="LineNr">187 </span> e8/call <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a>/disp32 +<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L189" class="LineNr">189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L190" class="LineNr">190 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> +<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L192" class="LineNr">192 </span> 68/push <span class="Constant">"F - test-write-int32-hex"</span>/imm32 +<span id="L193" class="LineNr">193 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 +<span id="L194" class="LineNr">194 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . call</span> +<span id="L196" class="LineNr">196 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L198" class="LineNr">198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L199" class="LineNr">199 </span> <span class="subxS1Comment"># . end</span> +<span id="L200" class="LineNr">200 </span> c3/return +<span id="L201" class="LineNr">201 </span> +<span id="L202" class="LineNr">202 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/118parse-hex-int.subx.html b/html/118parse-hex-int.subx.html index 8f8a15b1..07d6fe48 100644 --- a/html/118parse-hex-int.subx.html +++ b/html/118parse-hex-int.subx.html @@ -15,14 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.SpecialChar { color: #d70000; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -66,7 +65,7 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L7" class="LineNr"> 7 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">is-hex-int?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">hex-int?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> <span id="L10" class="LineNr"> 10 </span> <span class="subxS1Comment"># . prologue</span> <span id="L11" class="LineNr"> 11 </span> 55/push-ebp <span id="L12" class="LineNr"> 12 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -83,58 +82,58 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># if s is empty return false</span> <span id="L24" class="LineNr"> 24 </span> b8/copy-to-eax 0/imm32/false <span id="L25" class="LineNr"> 25 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L26" class="LineNr"> 26 </span> 73/jump-if-addr>= $is-hex-int?:end/disp8 +<span id="L26" class="LineNr"> 26 </span> 73/jump-if-addr>= $hex-int?:end/disp8 <span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># skip past leading '-'</span> <span id="L28" class="LineNr"> 28 </span> <span class="subxS1Comment"># . if (*curr == '-') ++curr</span> <span id="L29" class="LineNr"> 29 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> <span id="L30" class="LineNr"> 30 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> <span id="L31" class="LineNr"> 31 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2d/imm32/- <span class="subxComment"># compare ebx</span> -<span id="L32" class="LineNr"> 32 </span> 75/jump-if-!= $is-hex-int?:initial-0/disp8 +<span id="L32" class="LineNr"> 32 </span> 75/jump-if-!= $hex-int?:initial-0/disp8 <span id="L33" class="LineNr"> 33 </span> <span class="subxS1Comment"># . ++curr</span> <span id="L34" class="LineNr"> 34 </span> 41/increment-ecx <span id="L35" class="LineNr"> 35 </span> <span class="subxComment"># skip past leading '0x'</span> -<span id="L36" class="LineNr"> 36 </span><span class="Constant">$is-hex-int?:initial-0</span>: +<span id="L36" class="LineNr"> 36 </span><span class="Constant">$hex-int?:initial-0</span>: <span id="L37" class="LineNr"> 37 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> <span id="L38" class="LineNr"> 38 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> <span id="L39" class="LineNr"> 39 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> <span id="L40" class="LineNr"> 40 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32/0 <span class="subxComment"># compare ebx</span> -<span id="L41" class="LineNr"> 41 </span> 75/jump-if-!= $is-hex-int?:<span class="Constant">loop</span>/disp8 +<span id="L41" class="LineNr"> 41 </span> 75/jump-if-!= $hex-int?:<span class="Constant">loop</span>/disp8 <span id="L42" class="LineNr"> 42 </span> <span class="subxS1Comment"># . ++curr</span> <span id="L43" class="LineNr"> 43 </span> 41/increment-ecx -<span id="L44" class="LineNr"> 44 </span><span class="Constant">$is-hex-int?:initial-0x</span>: +<span id="L44" class="LineNr"> 44 </span><span class="Constant">$hex-int?:initial-0x</span>: <span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . if (curr >= in->end) return true</span> <span id="L46" class="LineNr"> 46 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L47" class="LineNr"> 47 </span> 73/jump-if-addr>= $is-hex-int?:true/disp8 +<span id="L47" class="LineNr"> 47 </span> 73/jump-if-addr>= $hex-int?:true/disp8 <span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> <span id="L49" class="LineNr"> 49 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> <span id="L50" class="LineNr"> 50 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> <span id="L51" class="LineNr"> 51 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x78/imm32/x <span class="subxComment"># compare ebx</span> -<span id="L52" class="LineNr"> 52 </span> 75/jump-if-!= $is-hex-int?:<span class="Constant">loop</span>/disp8 +<span id="L52" class="LineNr"> 52 </span> 75/jump-if-!= $hex-int?:<span class="Constant">loop</span>/disp8 <span id="L53" class="LineNr"> 53 </span> <span class="subxS1Comment"># . ++curr</span> <span id="L54" class="LineNr"> 54 </span> 41/increment-ecx -<span id="L55" class="LineNr"> 55 </span><span class="Constant">$is-hex-int?:loop</span>: +<span id="L55" class="LineNr"> 55 </span><span class="Constant">$hex-int?:loop</span>: <span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># if (curr >= in->end) return true</span> <span id="L57" class="LineNr"> 57 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L58" class="LineNr"> 58 </span> 73/jump-if-addr>= $is-hex-int?:true/disp8 -<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var eax: boolean = is-hex-digit?(*curr)</span> +<span id="L58" class="LineNr"> 58 </span> 73/jump-if-addr>= $hex-int?:true/disp8 +<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var eax: boolean = hex-digit?(*curr)</span> <span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . push args</span> <span id="L61" class="LineNr"> 61 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> <span id="L62" class="LineNr"> 62 </span> 50/push-eax <span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . call</span> -<span id="L64" class="LineNr"> 64 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L64" class="LineNr"> 64 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L66" class="LineNr"> 66 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># if (eax == false) return false</span> <span id="L68" class="LineNr"> 68 </span> 3d/compare-eax-and 0/imm32/false -<span id="L69" class="LineNr"> 69 </span> 74/jump-if-= $is-hex-int?:end/disp8 +<span id="L69" class="LineNr"> 69 </span> 74/jump-if-= $hex-int?:end/disp8 <span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># ++curr</span> <span id="L71" class="LineNr"> 71 </span> 41/increment-ecx <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># loop</span> -<span id="L73" class="LineNr"> 73 </span> eb/jump $is-hex-int?:<span class="Constant">loop</span>/disp8 -<span id="L74" class="LineNr"> 74 </span><span class="Constant">$is-hex-int?:true</span>: +<span id="L73" class="LineNr"> 73 </span> eb/jump $hex-int?:<span class="Constant">loop</span>/disp8 +<span id="L74" class="LineNr"> 74 </span><span class="Constant">$hex-int?:true</span>: <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># return true</span> <span id="L76" class="LineNr"> 76 </span> b8/copy-to-eax 1/imm32/true -<span id="L77" class="LineNr"> 77 </span><span class="Constant">$is-hex-int?:end</span>: +<span id="L77" class="LineNr"> 77 </span><span class="Constant">$hex-int?:end</span>: <span id="L78" class="LineNr"> 78 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L79" class="LineNr"> 79 </span> 5b/pop-to-ebx <span id="L80" class="LineNr"> 80 </span> 5a/pop-to-edx @@ -144,7 +143,7 @@ if ('onhashchange' in window) { <span id="L84" class="LineNr"> 84 </span> 5d/pop-to-ebp <span id="L85" class="LineNr"> 85 </span> c3/return <span id="L86" class="LineNr"> 86 </span> -<span id="L87" class="LineNr"> 87 </span><span class="subxTest">test-is-hex-int</span>: +<span id="L87" class="LineNr"> 87 </span><span class="subxTest">test-hex-int</span>: <span id="L88" class="LineNr"> 88 </span> <span class="subxS1Comment"># . prologue</span> <span id="L89" class="LineNr"> 89 </span> 55/push-ebp <span id="L90" class="LineNr"> 90 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -157,20 +156,20 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span> 51/push-ecx <span id="L98" class="LineNr"> 98 </span> 50/push-eax <span id="L99" class="LineNr"> 99 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L100" class="LineNr">100 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L100" class="LineNr">100 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . push args</span> <span id="L102" class="LineNr">102 </span> 51/push-ecx <span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . call</span> -<span id="L104" class="LineNr">104 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L104" class="LineNr">104 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L106" class="LineNr">106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L107" class="LineNr">107 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L108" class="LineNr">108 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L109" class="LineNr">109 </span> 68/push <span class="Constant">"F - test-is-hex-int"</span>/imm32 +<span id="L109" class="LineNr">109 </span> 68/push <span class="Constant">"F - test-hex-int"</span>/imm32 <span id="L110" class="LineNr">110 </span> 68/push 1/imm32/true <span id="L111" class="LineNr">111 </span> 50/push-eax <span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . call</span> -<span id="L113" class="LineNr">113 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L113" class="LineNr">113 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L115" class="LineNr">115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L116" class="LineNr">116 </span> <span class="subxS1Comment"># . epilogue</span> @@ -178,7 +177,7 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span> 5d/pop-to-ebp <span id="L119" class="LineNr">119 </span> c3/return <span id="L120" class="LineNr">120 </span> -<span id="L121" class="LineNr">121 </span><span class="subxTest">test-is-hex-int-handles-letters</span>: +<span id="L121" class="LineNr">121 </span><span class="subxTest">test-hex-int-handles-letters</span>: <span id="L122" class="LineNr">122 </span> <span class="subxS1Comment"># . prologue</span> <span id="L123" class="LineNr">123 </span> 55/push-ebp <span id="L124" class="LineNr">124 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -191,20 +190,20 @@ if ('onhashchange' in window) { <span id="L131" class="LineNr">131 </span> 51/push-ecx <span id="L132" class="LineNr">132 </span> 50/push-eax <span id="L133" class="LineNr">133 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L134" class="LineNr">134 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L134" class="LineNr">134 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push args</span> <span id="L136" class="LineNr">136 </span> 51/push-ecx <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L138" class="LineNr">138 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L138" class="LineNr">138 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-letters"</span>/imm32 +<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-hex-int-handles-letters"</span>/imm32 <span id="L144" class="LineNr">144 </span> 68/push 1/imm32/true <span id="L145" class="LineNr">145 </span> 50/push-eax <span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L147" class="LineNr">147 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . epilogue</span> @@ -212,7 +211,7 @@ if ('onhashchange' in window) { <span id="L152" class="LineNr">152 </span> 5d/pop-to-ebp <span id="L153" class="LineNr">153 </span> c3/return <span id="L154" class="LineNr">154 </span> -<span id="L155" class="LineNr">155 </span><span class="subxTest">test-is-hex-int-with-trailing-char</span>: +<span id="L155" class="LineNr">155 </span><span class="subxTest">test-hex-int-with-trailing-char</span>: <span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . prologue</span> <span id="L157" class="LineNr">157 </span> 55/push-ebp <span id="L158" class="LineNr">158 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -225,20 +224,20 @@ if ('onhashchange' in window) { <span id="L165" class="LineNr">165 </span> 51/push-ecx <span id="L166" class="LineNr">166 </span> 50/push-eax <span id="L167" class="LineNr">167 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L168" class="LineNr">168 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> <span id="L170" class="LineNr">170 </span> 51/push-ecx <span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L172" class="LineNr">172 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L172" class="LineNr">172 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L175" class="LineNr">175 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L177" class="LineNr">177 </span> 68/push <span class="Constant">"F - test-is-hex-int-with-trailing-char"</span>/imm32 +<span id="L177" class="LineNr">177 </span> 68/push <span class="Constant">"F - test-hex-int-with-trailing-char"</span>/imm32 <span id="L178" class="LineNr">178 </span> 68/push 0/imm32/false <span id="L179" class="LineNr">179 </span> 50/push-eax <span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L181" class="LineNr">181 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L181" class="LineNr">181 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L183" class="LineNr">183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L184" class="LineNr">184 </span> <span class="subxS1Comment"># . epilogue</span> @@ -246,7 +245,7 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr">186 </span> 5d/pop-to-ebp <span id="L187" class="LineNr">187 </span> c3/return <span id="L188" class="LineNr">188 </span> -<span id="L189" class="LineNr">189 </span><span class="subxTest">test-is-hex-int-with-leading-char</span>: +<span id="L189" class="LineNr">189 </span><span class="subxTest">test-hex-int-with-leading-char</span>: <span id="L190" class="LineNr">190 </span> <span class="subxS1Comment"># . prologue</span> <span id="L191" class="LineNr">191 </span> 55/push-ebp <span id="L192" class="LineNr">192 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -259,20 +258,20 @@ if ('onhashchange' in window) { <span id="L199" class="LineNr">199 </span> 51/push-ecx <span id="L200" class="LineNr">200 </span> 50/push-eax <span id="L201" class="LineNr">201 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L202" class="LineNr">202 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L202" class="LineNr">202 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . push args</span> <span id="L204" class="LineNr">204 </span> 51/push-ecx <span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . call</span> -<span id="L206" class="LineNr">206 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L206" class="LineNr">206 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L208" class="LineNr">208 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L209" class="LineNr">209 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L210" class="LineNr">210 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L211" class="LineNr">211 </span> 68/push <span class="Constant">"F - test-is-hex-int-with-leading-char"</span>/imm32 +<span id="L211" class="LineNr">211 </span> 68/push <span class="Constant">"F - test-hex-int-with-leading-char"</span>/imm32 <span id="L212" class="LineNr">212 </span> 68/push 0/imm32/false <span id="L213" class="LineNr">213 </span> 50/push-eax <span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . call</span> -<span id="L215" class="LineNr">215 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L215" class="LineNr">215 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L217" class="LineNr">217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . epilogue</span> @@ -280,7 +279,7 @@ if ('onhashchange' in window) { <span id="L220" class="LineNr">220 </span> 5d/pop-to-ebp <span id="L221" class="LineNr">221 </span> c3/return <span id="L222" class="LineNr">222 </span> -<span id="L223" class="LineNr">223 </span><span class="subxTest">test-is-hex-int-empty</span>: +<span id="L223" class="LineNr">223 </span><span class="subxTest">test-hex-int-empty</span>: <span id="L224" class="LineNr">224 </span> <span class="subxS1Comment"># . prologue</span> <span id="L225" class="LineNr">225 </span> 55/push-ebp <span id="L226" class="LineNr">226 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -288,20 +287,20 @@ if ('onhashchange' in window) { <span id="L228" class="LineNr">228 </span> 68/push 0/imm32 <span id="L229" class="LineNr">229 </span> 68/push 0/imm32 <span id="L230" class="LineNr">230 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L231" class="LineNr">231 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L231" class="LineNr">231 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . push args</span> <span id="L233" class="LineNr">233 </span> 51/push-ecx <span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L235" class="LineNr">235 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L235" class="LineNr">235 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L238" class="LineNr">238 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L240" class="LineNr">240 </span> 68/push <span class="Constant">"F - test-is-hex-int-empty"</span>/imm32 +<span id="L240" class="LineNr">240 </span> 68/push <span class="Constant">"F - test-hex-int-empty"</span>/imm32 <span id="L241" class="LineNr">241 </span> 68/push 0/imm32/false <span id="L242" class="LineNr">242 </span> 50/push-eax <span id="L243" class="LineNr">243 </span> <span class="subxS2Comment"># . . call</span> -<span id="L244" class="LineNr">244 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L244" class="LineNr">244 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L246" class="LineNr">246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L247" class="LineNr">247 </span> <span class="subxS1Comment"># . epilogue</span> @@ -309,7 +308,7 @@ if ('onhashchange' in window) { <span id="L249" class="LineNr">249 </span> 5d/pop-to-ebp <span id="L250" class="LineNr">250 </span> c3/return <span id="L251" class="LineNr">251 </span> -<span id="L252" class="LineNr">252 </span><span class="subxTest">test-is-hex-int-handles-0x-prefix</span>: +<span id="L252" class="LineNr">252 </span><span class="subxTest">test-hex-int-handles-0x-prefix</span>: <span id="L253" class="LineNr">253 </span> <span class="subxS1Comment"># . prologue</span> <span id="L254" class="LineNr">254 </span> 55/push-ebp <span id="L255" class="LineNr">255 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -322,20 +321,20 @@ if ('onhashchange' in window) { <span id="L262" class="LineNr">262 </span> 51/push-ecx <span id="L263" class="LineNr">263 </span> 50/push-eax <span id="L264" class="LineNr">264 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L265" class="LineNr">265 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L265" class="LineNr">265 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . push args</span> <span id="L267" class="LineNr">267 </span> 51/push-ecx <span id="L268" class="LineNr">268 </span> <span class="subxS2Comment"># . . call</span> -<span id="L269" class="LineNr">269 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L269" class="LineNr">269 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L270" class="LineNr">270 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L271" class="LineNr">271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L272" class="LineNr">272 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L273" class="LineNr">273 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L274" class="LineNr">274 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-0x-prefix"</span>/imm32 +<span id="L274" class="LineNr">274 </span> 68/push <span class="Constant">"F - test-hex-int-handles-0x-prefix"</span>/imm32 <span id="L275" class="LineNr">275 </span> 68/push 1/imm32/true <span id="L276" class="LineNr">276 </span> 50/push-eax <span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . call</span> -<span id="L278" class="LineNr">278 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L278" class="LineNr">278 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L279" class="LineNr">279 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L280" class="LineNr">280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L281" class="LineNr">281 </span> <span class="subxS1Comment"># . epilogue</span> @@ -343,7 +342,7 @@ if ('onhashchange' in window) { <span id="L283" class="LineNr">283 </span> 5d/pop-to-ebp <span id="L284" class="LineNr">284 </span> c3/return <span id="L285" class="LineNr">285 </span> -<span id="L286" class="LineNr">286 </span><span class="subxTest">test-is-hex-int-handles-negative</span>: +<span id="L286" class="LineNr">286 </span><span class="subxTest">test-hex-int-handles-negative</span>: <span id="L287" class="LineNr">287 </span> <span class="subxS1Comment"># . prologue</span> <span id="L288" class="LineNr">288 </span> 55/push-ebp <span id="L289" class="LineNr">289 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -356,20 +355,20 @@ if ('onhashchange' in window) { <span id="L296" class="LineNr">296 </span> 51/push-ecx <span id="L297" class="LineNr">297 </span> 50/push-eax <span id="L298" class="LineNr">298 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L299" class="LineNr">299 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L299" class="LineNr">299 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . push args</span> <span id="L301" class="LineNr">301 </span> 51/push-ecx <span id="L302" class="LineNr">302 </span> <span class="subxS2Comment"># . . call</span> -<span id="L303" class="LineNr">303 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L303" class="LineNr">303 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L304" class="LineNr">304 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L305" class="LineNr">305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L306" class="LineNr">306 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L308" class="LineNr">308 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-negative"</span>/imm32 +<span id="L308" class="LineNr">308 </span> 68/push <span class="Constant">"F - test-hex-int-handles-negative"</span>/imm32 <span id="L309" class="LineNr">309 </span> 68/push 1/imm32/true <span id="L310" class="LineNr">310 </span> 50/push-eax <span id="L311" class="LineNr">311 </span> <span class="subxS2Comment"># . . call</span> -<span id="L312" class="LineNr">312 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L312" class="LineNr">312 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L313" class="LineNr">313 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L314" class="LineNr">314 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L315" class="LineNr">315 </span> <span class="subxS1Comment"># . epilogue</span> @@ -377,7 +376,7 @@ if ('onhashchange' in window) { <span id="L317" class="LineNr">317 </span> 5d/pop-to-ebp <span id="L318" class="LineNr">318 </span> c3/return <span id="L319" class="LineNr">319 </span> -<span id="L320" class="LineNr">320 </span><span class="subxTest">test-is-hex-int-handles-negative-0x-prefix</span>: +<span id="L320" class="LineNr">320 </span><span class="subxTest">test-hex-int-handles-negative-0x-prefix</span>: <span id="L321" class="LineNr">321 </span> <span class="subxS1Comment"># . prologue</span> <span id="L322" class="LineNr">322 </span> 55/push-ebp <span id="L323" class="LineNr">323 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -390,20 +389,20 @@ if ('onhashchange' in window) { <span id="L330" class="LineNr">330 </span> 51/push-ecx <span id="L331" class="LineNr">331 </span> 50/push-eax <span id="L332" class="LineNr">332 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L333" class="LineNr">333 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L333" class="LineNr">333 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . push args</span> <span id="L335" class="LineNr">335 </span> 51/push-ecx <span id="L336" class="LineNr">336 </span> <span class="subxS2Comment"># . . call</span> -<span id="L337" class="LineNr">337 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L337" class="LineNr">337 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L339" class="LineNr">339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L340" class="LineNr">340 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L342" class="LineNr">342 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-negative-0x-prefix"</span>/imm32 +<span id="L342" class="LineNr">342 </span> 68/push <span class="Constant">"F - test-hex-int-handles-negative-0x-prefix"</span>/imm32 <span id="L343" class="LineNr">343 </span> 68/push 1/imm32/true <span id="L344" class="LineNr">344 </span> 50/push-eax <span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L346" class="LineNr">346 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L346" class="LineNr">346 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L349" class="LineNr">349 </span> <span class="subxS1Comment"># . epilogue</span> @@ -580,7 +579,7 @@ if ('onhashchange' in window) { <span id="L520" class="LineNr">520 </span> 68/push 0xa/imm32 <span id="L521" class="LineNr">521 </span> 50/push-eax <span id="L522" class="LineNr">522 </span> <span class="subxS2Comment"># . . call</span> -<span id="L523" class="LineNr">523 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L523" class="LineNr">523 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L524" class="LineNr">524 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L525" class="LineNr">525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L526" class="LineNr">526 </span> <span class="subxS1Comment"># . epilogue</span> @@ -614,7 +613,7 @@ if ('onhashchange' in window) { <span id="L554" class="LineNr">554 </span> 68/push 0x34a/imm32 <span id="L555" class="LineNr">555 </span> 50/push-eax <span id="L556" class="LineNr">556 </span> <span class="subxS2Comment"># . . call</span> -<span id="L557" class="LineNr">557 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L557" class="LineNr">557 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L558" class="LineNr">558 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L559" class="LineNr">559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L560" class="LineNr">560 </span> <span class="subxS1Comment"># . epilogue</span> @@ -648,7 +647,7 @@ if ('onhashchange' in window) { <span id="L588" class="LineNr">588 </span> 68/push 0x34/imm32 <span id="L589" class="LineNr">589 </span> 50/push-eax <span id="L590" class="LineNr">590 </span> <span class="subxS2Comment"># . . call</span> -<span id="L591" class="LineNr">591 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L591" class="LineNr">591 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L592" class="LineNr">592 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L593" class="LineNr">593 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L594" class="LineNr">594 </span> <span class="subxS1Comment"># . epilogue</span> @@ -682,7 +681,7 @@ if ('onhashchange' in window) { <span id="L622" class="LineNr">622 </span> 68/push 0/imm32 <span id="L623" class="LineNr">623 </span> 50/push-eax <span id="L624" class="LineNr">624 </span> <span class="subxS2Comment"># . . call</span> -<span id="L625" class="LineNr">625 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L625" class="LineNr">625 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L626" class="LineNr">626 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L627" class="LineNr">627 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L628" class="LineNr">628 </span> <span class="subxS1Comment"># . epilogue</span> @@ -716,7 +715,7 @@ if ('onhashchange' in window) { <span id="L656" class="LineNr">656 </span> 68/push 0x3/imm32 <span id="L657" class="LineNr">657 </span> 50/push-eax <span id="L658" class="LineNr">658 </span> <span class="subxS2Comment"># . . call</span> -<span id="L659" class="LineNr">659 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L659" class="LineNr">659 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L660" class="LineNr">660 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L661" class="LineNr">661 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L662" class="LineNr">662 </span> <span class="subxS1Comment"># . epilogue</span> @@ -750,7 +749,7 @@ if ('onhashchange' in window) { <span id="L690" class="LineNr">690 </span> 68/push -3/imm32 <span id="L691" class="LineNr">691 </span> 50/push-eax <span id="L692" class="LineNr">692 </span> <span class="subxS2Comment"># . . call</span> -<span id="L693" class="LineNr">693 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L693" class="LineNr">693 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L694" class="LineNr">694 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L695" class="LineNr">695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L696" class="LineNr">696 </span> <span class="subxS1Comment"># . epilogue</span> @@ -758,7 +757,7 @@ if ('onhashchange' in window) { <span id="L698" class="LineNr">698 </span> 5d/pop-to-ebp <span id="L699" class="LineNr">699 </span> c3/return <span id="L700" class="LineNr">700 </span> -<span id="L701" class="LineNr">701 </span><span class="subxFunction">is-hex-digit?</span>: <span class="subxComment"># c: byte -> result/eax: boolean</span> +<span id="L701" class="LineNr">701 </span><span class="subxFunction">hex-digit?</span>: <span class="subxComment"># c: byte -> result/eax: boolean</span> <span id="L702" class="LineNr">702 </span> <span class="subxS1Comment"># . prologue</span> <span id="L703" class="LineNr">703 </span> 55/push-ebp <span id="L704" class="LineNr">704 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -768,25 +767,25 @@ if ('onhashchange' in window) { <span id="L708" class="LineNr">708 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> <span id="L709" class="LineNr">709 </span> <span class="subxComment"># return false if c < '0'</span> <span id="L710" class="LineNr">710 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> -<span id="L711" class="LineNr">711 </span> 7c/jump-if-< $is-hex-digit?:false/disp8 +<span id="L711" class="LineNr">711 </span> 7c/jump-if-< $hex-digit?:false/disp8 <span id="L712" class="LineNr">712 </span> <span class="subxComment"># return true if c <= '9'</span> <span id="L713" class="LineNr">713 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> -<span id="L714" class="LineNr">714 </span> 7e/jump-if-<= $is-hex-digit?:true/disp8 +<span id="L714" class="LineNr">714 </span> 7e/jump-if-<= $hex-digit?:true/disp8 <span id="L715" class="LineNr">715 </span> <span class="subxComment"># drop case</span> <span id="L716" class="LineNr">716 </span> 25/and-eax-with 0x5f/imm32 <span id="L717" class="LineNr">717 </span> <span class="subxComment"># return false if c > 'f'</span> <span id="L718" class="LineNr">718 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x66/imm32 <span class="subxComment"># compare ecx</span> -<span id="L719" class="LineNr">719 </span> 7f/jump-if-> $is-hex-digit?:false/disp8 +<span id="L719" class="LineNr">719 </span> 7f/jump-if-> $hex-digit?:false/disp8 <span id="L720" class="LineNr">720 </span> <span class="subxComment"># return true if c >= 'a'</span> <span id="L721" class="LineNr">721 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x61/imm32 <span class="subxComment"># compare ecx</span> -<span id="L722" class="LineNr">722 </span> 7d/jump-if->= $is-hex-digit?:true/disp8 +<span id="L722" class="LineNr">722 </span> 7d/jump-if->= $hex-digit?:true/disp8 <span id="L723" class="LineNr">723 </span> <span class="subxComment"># otherwise return false</span> -<span id="L724" class="LineNr">724 </span><span class="Constant">$is-hex-digit?:false</span>: +<span id="L724" class="LineNr">724 </span><span class="Constant">$hex-digit?:false</span>: <span id="L725" class="LineNr">725 </span> b8/copy-to-eax 0/imm32/false -<span id="L726" class="LineNr">726 </span> eb/jump $is-hex-digit?:end/disp8 -<span id="L727" class="LineNr">727 </span><span class="Constant">$is-hex-digit?:true</span>: +<span id="L726" class="LineNr">726 </span> eb/jump $hex-digit?:end/disp8 +<span id="L727" class="LineNr">727 </span><span class="Constant">$hex-digit?:true</span>: <span id="L728" class="LineNr">728 </span> b8/copy-to-eax 1/imm32/true -<span id="L729" class="LineNr">729 </span><span class="Constant">$is-hex-digit?:end</span>: +<span id="L729" class="LineNr">729 </span><span class="Constant">$hex-digit?:end</span>: <span id="L730" class="LineNr">730 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L731" class="LineNr">731 </span> 59/pop-to-ecx <span id="L732" class="LineNr">732 </span> <span class="subxS1Comment"># . epilogue</span> @@ -795,11 +794,11 @@ if ('onhashchange' in window) { <span id="L735" class="LineNr">735 </span> c3/return <span id="L736" class="LineNr">736 </span> <span id="L737" class="LineNr">737 </span><span class="subxTest">test-hex-below-0</span>: -<span id="L738" class="LineNr">738 </span> <span class="subxComment"># eax = is-hex-digit?(0x2f)</span> +<span id="L738" class="LineNr">738 </span> <span class="subxComment"># eax = hex-digit?(0x2f)</span> <span id="L739" class="LineNr">739 </span> <span class="subxS2Comment"># . . push args</span> <span id="L740" class="LineNr">740 </span> 68/push 0x2f/imm32 <span id="L741" class="LineNr">741 </span> <span class="subxS2Comment"># . . call</span> -<span id="L742" class="LineNr">742 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L742" class="LineNr">742 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L743" class="LineNr">743 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L744" class="LineNr">744 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L745" class="LineNr">745 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -808,17 +807,17 @@ if ('onhashchange' in window) { <span id="L748" class="LineNr">748 </span> 68/push 0/imm32/false <span id="L749" class="LineNr">749 </span> 50/push-eax <span id="L750" class="LineNr">750 </span> <span class="subxS2Comment"># . . call</span> -<span id="L751" class="LineNr">751 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L751" class="LineNr">751 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L752" class="LineNr">752 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L753" class="LineNr">753 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L754" class="LineNr">754 </span> c3/return <span id="L755" class="LineNr">755 </span> <span id="L756" class="LineNr">756 </span><span class="subxTest">test-hex-0-to-9</span>: -<span id="L757" class="LineNr">757 </span> <span class="subxComment"># eax = is-hex-digit?(0x30)</span> +<span id="L757" class="LineNr">757 </span> <span class="subxComment"># eax = hex-digit?(0x30)</span> <span id="L758" class="LineNr">758 </span> <span class="subxS2Comment"># . . push args</span> <span id="L759" class="LineNr">759 </span> 68/push 0x30/imm32 <span id="L760" class="LineNr">760 </span> <span class="subxS2Comment"># . . call</span> -<span id="L761" class="LineNr">761 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L761" class="LineNr">761 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L762" class="LineNr">762 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L763" class="LineNr">763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L764" class="LineNr">764 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -827,14 +826,14 @@ if ('onhashchange' in window) { <span id="L767" class="LineNr">767 </span> 68/push 1/imm32/true <span id="L768" class="LineNr">768 </span> 50/push-eax <span id="L769" class="LineNr">769 </span> <span class="subxS2Comment"># . . call</span> -<span id="L770" class="LineNr">770 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L770" class="LineNr">770 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L771" class="LineNr">771 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L772" class="LineNr">772 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L773" class="LineNr">773 </span> <span class="subxComment"># eax = is-hex-digit?(0x39)</span> +<span id="L773" class="LineNr">773 </span> <span class="subxComment"># eax = hex-digit?(0x39)</span> <span id="L774" class="LineNr">774 </span> <span class="subxS2Comment"># . . push args</span> <span id="L775" class="LineNr">775 </span> 68/push 0x39/imm32 <span id="L776" class="LineNr">776 </span> <span class="subxS2Comment"># . . call</span> -<span id="L777" class="LineNr">777 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L777" class="LineNr">777 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L778" class="LineNr">778 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L779" class="LineNr">779 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L780" class="LineNr">780 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -843,17 +842,17 @@ if ('onhashchange' in window) { <span id="L783" class="LineNr">783 </span> 68/push 1/imm32/true <span id="L784" class="LineNr">784 </span> 50/push-eax <span id="L785" class="LineNr">785 </span> <span class="subxS2Comment"># . . call</span> -<span id="L786" class="LineNr">786 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L786" class="LineNr">786 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L787" class="LineNr">787 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L788" class="LineNr">788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L789" class="LineNr">789 </span> c3/return <span id="L790" class="LineNr">790 </span> <span id="L791" class="LineNr">791 </span><span class="subxTest">test-hex-above-9-to-a</span>: -<span id="L792" class="LineNr">792 </span> <span class="subxComment"># eax = is-hex-digit?(0x3a)</span> +<span id="L792" class="LineNr">792 </span> <span class="subxComment"># eax = hex-digit?(0x3a)</span> <span id="L793" class="LineNr">793 </span> <span class="subxS2Comment"># . . push args</span> <span id="L794" class="LineNr">794 </span> 68/push 0x3a/imm32 <span id="L795" class="LineNr">795 </span> <span class="subxS2Comment"># . . call</span> -<span id="L796" class="LineNr">796 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L796" class="LineNr">796 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L797" class="LineNr">797 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L798" class="LineNr">798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L799" class="LineNr">799 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -862,17 +861,17 @@ if ('onhashchange' in window) { <span id="L802" class="LineNr">802 </span> 68/push 0/imm32/false <span id="L803" class="LineNr">803 </span> 50/push-eax <span id="L804" class="LineNr">804 </span> <span class="subxS2Comment"># . . call</span> -<span id="L805" class="LineNr">805 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L805" class="LineNr">805 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L806" class="LineNr">806 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L807" class="LineNr">807 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L808" class="LineNr">808 </span> c3/return <span id="L809" class="LineNr">809 </span> <span id="L810" class="LineNr">810 </span><span class="subxTest">test-hex-a-to-f</span>: -<span id="L811" class="LineNr">811 </span> <span class="subxComment"># eax = is-hex-digit?(0x61)</span> +<span id="L811" class="LineNr">811 </span> <span class="subxComment"># eax = hex-digit?(0x61)</span> <span id="L812" class="LineNr">812 </span> <span class="subxS2Comment"># . . push args</span> <span id="L813" class="LineNr">813 </span> 68/push 0x61/imm32 <span id="L814" class="LineNr">814 </span> <span class="subxS2Comment"># . . call</span> -<span id="L815" class="LineNr">815 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L815" class="LineNr">815 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L816" class="LineNr">816 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L817" class="LineNr">817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L818" class="LineNr">818 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -881,14 +880,14 @@ if ('onhashchange' in window) { <span id="L821" class="LineNr">821 </span> 68/push 1/imm32/true <span id="L822" class="LineNr">822 </span> 50/push-eax <span id="L823" class="LineNr">823 </span> <span class="subxS2Comment"># . . call</span> -<span id="L824" class="LineNr">824 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L824" class="LineNr">824 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L825" class="LineNr">825 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L826" class="LineNr">826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L827" class="LineNr">827 </span> <span class="subxComment"># eax = is-hex-digit?(0x66)</span> +<span id="L827" class="LineNr">827 </span> <span class="subxComment"># eax = hex-digit?(0x66)</span> <span id="L828" class="LineNr">828 </span> <span class="subxS2Comment"># . . push args</span> <span id="L829" class="LineNr">829 </span> 68/push 0x66/imm32 <span id="L830" class="LineNr">830 </span> <span class="subxS2Comment"># . . call</span> -<span id="L831" class="LineNr">831 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L831" class="LineNr">831 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L832" class="LineNr">832 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L833" class="LineNr">833 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L834" class="LineNr">834 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -897,17 +896,17 @@ if ('onhashchange' in window) { <span id="L837" class="LineNr">837 </span> 68/push 1/imm32/true <span id="L838" class="LineNr">838 </span> 50/push-eax <span id="L839" class="LineNr">839 </span> <span class="subxS2Comment"># . . call</span> -<span id="L840" class="LineNr">840 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L840" class="LineNr">840 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L841" class="LineNr">841 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L842" class="LineNr">842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L843" class="LineNr">843 </span> c3/return <span id="L844" class="LineNr">844 </span> <span id="L845" class="LineNr">845 </span><span class="subxTest">test-hex-above-f</span>: -<span id="L846" class="LineNr">846 </span> <span class="subxComment"># eax = is-hex-digit?(0x67)</span> +<span id="L846" class="LineNr">846 </span> <span class="subxComment"># eax = hex-digit?(0x67)</span> <span id="L847" class="LineNr">847 </span> <span class="subxS2Comment"># . . push args</span> <span id="L848" class="LineNr">848 </span> 68/push 0x67/imm32 <span id="L849" class="LineNr">849 </span> <span class="subxS2Comment"># . . call</span> -<span id="L850" class="LineNr">850 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L850" class="LineNr">850 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L851" class="LineNr">851 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L852" class="LineNr">852 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L853" class="LineNr">853 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -916,7 +915,7 @@ if ('onhashchange' in window) { <span id="L856" class="LineNr">856 </span> 68/push 0/imm32/false <span id="L857" class="LineNr">857 </span> 50/push-eax <span id="L858" class="LineNr">858 </span> <span class="subxS2Comment"># . . call</span> -<span id="L859" class="LineNr">859 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L859" class="LineNr">859 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L860" class="LineNr">860 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L861" class="LineNr">861 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L862" class="LineNr">862 </span> c3/return @@ -925,11 +924,11 @@ if ('onhashchange' in window) { <span id="L865" class="LineNr">865 </span><span class="Constant">$from-hex-char:check0</span>: <span id="L866" class="LineNr">866 </span> <span class="subxComment"># if (eax < '0') goto abort</span> <span id="L867" class="LineNr">867 </span> 3d/compare-eax-with 0x30/imm32/0 -<span id="L868" class="LineNr">868 </span> 7c/jump-if-< $from-hex-char:abort/disp8 +<span id="L868" class="LineNr">868 </span> 7c/jump-if-< $from-hex-char:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 <span id="L869" class="LineNr">869 </span><span class="Constant">$from-hex-char:check1</span>: <span id="L870" class="LineNr">870 </span> <span class="subxComment"># if (eax > 'f') goto abort</span> <span id="L871" class="LineNr">871 </span> 3d/compare-eax-with 0x66/imm32/f -<span id="L872" class="LineNr">872 </span> 7f/jump-if-> $from-hex-char:abort/disp8 +<span id="L872" class="LineNr">872 </span> 7f/jump-if-> $from-hex-char:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 <span id="L873" class="LineNr">873 </span><span class="Constant">$from-hex-char:check2</span>: <span id="L874" class="LineNr">874 </span> <span class="subxComment"># if (eax > '9') goto next check</span> <span id="L875" class="LineNr">875 </span> 3d/compare-eax-with 0x39/imm32/9 @@ -941,61 +940,20 @@ if ('onhashchange' in window) { <span id="L881" class="LineNr">881 </span><span class="Constant">$from-hex-char:check3</span>: <span id="L882" class="LineNr">882 </span> <span class="subxComment"># if (eax < 'a') goto abort</span> <span id="L883" class="LineNr">883 </span> 3d/compare-eax-with 0x61/imm32/a -<span id="L884" class="LineNr">884 </span> 7c/jump-if-< $from-hex-char:abort/disp8 +<span id="L884" class="LineNr">884 </span> 7c/jump-if-< $from-hex-char:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 <span id="L885" class="LineNr">885 </span><span class="Constant">$from-hex-char:letter</span>: <span id="L886" class="LineNr">886 </span> <span class="subxComment"># return eax - ('a'-10)</span> <span id="L887" class="LineNr">887 </span> 2d/subtract-from-eax 0x57/imm32/a-10 <span id="L888" class="LineNr">888 </span> c3/return <span id="L889" class="LineNr">889 </span> -<span id="L890" class="LineNr">890 </span><span class="Constant">$from-hex-char:abort</span>: -<span id="L891" class="LineNr">891 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L892" class="LineNr">892 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L893" class="LineNr">893 </span> 68/push <span class="Constant">"invalid hex char: "</span>/imm32 -<span id="L894" class="LineNr">894 </span> 68/push 2/imm32/stderr -<span id="L895" class="LineNr">895 </span> <span class="subxS2Comment"># . . call</span> -<span id="L896" class="LineNr">896 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L897" class="LineNr">897 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L898" class="LineNr">898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L899" class="LineNr">899 </span> <span class="subxS1Comment"># . clear-stream($Stderr->buffer)</span> -<span id="L900" class="LineNr">900 </span> <span class="subxS2Comment"># . . save eax</span> -<span id="L901" class="LineNr">901 </span> 50/push-eax -<span id="L902" class="LineNr">902 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L903" class="LineNr">903 </span> 68/push $Stderr->buffer/imm32 -<span id="L904" class="LineNr">904 </span> <span class="subxS2Comment"># . . call</span> -<span id="L905" class="LineNr">905 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L906" class="LineNr">906 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L907" class="LineNr">907 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L908" class="LineNr">908 </span> <span class="subxS2Comment"># . . restore eax</span> -<span id="L909" class="LineNr">909 </span> 58/pop-to-eax -<span id="L910" class="LineNr">910 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(Stderr, eax)</span> -<span id="L911" class="LineNr">911 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L912" class="LineNr">912 </span> 50/push-eax -<span id="L913" class="LineNr">913 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L914" class="LineNr">914 </span> <span class="subxS2Comment"># . . call</span> -<span id="L915" class="LineNr">915 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L916" class="LineNr">916 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L917" class="LineNr">917 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L918" class="LineNr">918 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L919" class="LineNr">919 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L920" class="LineNr">920 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L921" class="LineNr">921 </span> <span class="subxS2Comment"># . . call</span> -<span id="L922" class="LineNr">922 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L923" class="LineNr">923 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L924" class="LineNr">924 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L925" class="LineNr">925 </span> <span class="subxS1Comment"># . _write(2/stderr, "\n")</span> -<span id="L926" class="LineNr">926 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L927" class="LineNr">927 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L928" class="LineNr">928 </span> 68/push 2/imm32/stderr -<span id="L929" class="LineNr">929 </span> <span class="subxS2Comment"># . . call</span> -<span id="L930" class="LineNr">930 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L931" class="LineNr">931 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L932" class="LineNr">932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L933" class="LineNr">933 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L934" class="LineNr">934 </span> bb/copy-to-ebx 1/imm32 -<span id="L935" class="LineNr">935 </span> e8/call syscall_exit/disp32 -<span id="L936" class="LineNr">936 </span> <span class="subxComment"># never gets here</span> -<span id="L937" class="LineNr">937 </span> -<span id="L938" class="LineNr">938 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L890" class="LineNr">890 </span><span class="Constant">$from-hex-char:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L891" class="LineNr">891 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"invalid hex char"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L892" class="LineNr">892 </span> { +<span id="L893" class="LineNr">893 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L894" class="LineNr">894 </span> } +<span id="L895" class="LineNr">895 </span> <span class="subxComment"># never gets here</span> +<span id="L896" class="LineNr">896 </span> +<span id="L897" class="LineNr">897 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/120allocate.subx.html b/html/120allocate.subx.html index 1201b452..fb6f052a 100644 --- a/html/120allocate.subx.html +++ b/html/120allocate.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -87,931 +87,892 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span><span class="subxComment"># A default allocation descriptor for programs to use.</span> <span id="L27" class="LineNr"> 27 </span><span class="SpecialChar">Heap</span>: <span class="subxComment"># allocation-descriptor</span> <span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># curr</span> -<span id="L29" class="LineNr"> 29 </span> 0/imm32 +<span id="L29" class="LineNr"> 29 </span> 0x01000000/imm32 <span class="subxComment"># 16 MB</span> <span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># limit</span> -<span id="L31" class="LineNr"> 31 </span> 0/imm32 +<span id="L31" class="LineNr"> 31 </span> 0x02000000/imm32 <span class="subxComment"># 32 MB</span> <span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># a reasonable default</span> -<span id="L34" class="LineNr"> 34 </span><span class="SpecialChar">Heap-size</span>: <span class="subxComment"># int</span> -<span id="L35" class="LineNr"> 35 </span> 0x800000/imm32/8MB -<span id="L36" class="LineNr"> 36 </span> -<span id="L37" class="LineNr"> 37 </span><span class="SpecialChar">Next-alloc-id</span>: <span class="subxComment"># int</span> -<span id="L38" class="LineNr"> 38 </span> 0x100/imm32 <span class="subxComment"># save a few alloc ids for fake handles</span> -<span id="L39" class="LineNr"> 39 </span> -<span id="L40" class="LineNr"> 40 </span>== code -<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L42" class="LineNr"> 42 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L43" class="LineNr"> 43 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L44" class="LineNr"> 44 </span> -<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># Let's start initializing the default allocation descriptor.</span> -<span id="L46" class="LineNr"> 46 </span> -<span id="L47" class="LineNr"> 47 </span><span class="SpecialChar">Entry</span>: -<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># initialize heap</span> -<span id="L49" class="LineNr"> 49 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> +<span id="L33" class="LineNr"> 33 </span><span class="SpecialChar">Next-alloc-id</span>: <span class="subxComment"># int</span> +<span id="L34" class="LineNr"> 34 </span> 0x100/imm32 <span class="subxComment"># save a few alloc ids for fake handles</span> +<span id="L35" class="LineNr"> 35 </span> +<span id="L36" class="LineNr"> 36 </span>== code +<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L38" class="LineNr"> 38 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L39" class="LineNr"> 39 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L40" class="LineNr"> 40 </span> +<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># Allocate and clear 'n' bytes of memory from an allocation-descriptor 'ad'.</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> +<span id="L43" class="LineNr"> 43 </span><span class="subxFunction">allocate</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L45" class="LineNr"> 45 </span> 55/push-ebp +<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L48" class="LineNr"> 48 </span> 50/push-eax +<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># allocate-raw(ad, n, out)</span> <span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L51" class="LineNr"> 51 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L52" class="LineNr"> 52 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> -<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . call</span> -<span id="L54" class="LineNr"> 54 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L56" class="LineNr"> 56 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L57" class="LineNr"> 57 </span> -<span id="L58" class="LineNr"> 58 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> -<span id="L59" class="LineNr"> 59 </span><span class="Constant">$array-equal-main:end</span>: -<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> -<span id="L61" class="LineNr"> 61 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L62" class="LineNr"> 62 </span> e8/call syscall_exit/disp32 -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span><span class="subxComment"># Allocate and clear 'n' bytes of memory from an allocation-descriptor 'ad'.</span> -<span id="L65" class="LineNr"> 65 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> -<span id="L66" class="LineNr"> 66 </span><span class="subxFunction">allocate</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L67" class="LineNr"> 67 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L68" class="LineNr"> 68 </span> 55/push-ebp -<span id="L69" class="LineNr"> 69 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L71" class="LineNr"> 71 </span> 50/push-eax -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># allocate-raw(ad, n, out)</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L74" class="LineNr"> 74 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L75" class="LineNr"> 75 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L76" class="LineNr"> 76 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . call</span> -<span id="L78" class="LineNr"> 78 </span> e8/call <a href='120allocate.subx.html#L103'>allocate-raw</a>/disp32 -<span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L80" class="LineNr"> 80 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># eax = out->payload + 4</span> -<span id="L82" class="LineNr"> 82 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L83" class="LineNr"> 83 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L84" class="LineNr"> 84 </span> 05/add-to-eax 4/imm32 -<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># zero-out(eax, n)</span> -<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L87" class="LineNr"> 87 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L88" class="LineNr"> 88 </span> 50/push-eax -<span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . call</span> -<span id="L90" class="LineNr"> 90 </span> e8/call <a href='120allocate.subx.html#L877'>zero-out</a>/disp32 -<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L92" class="LineNr"> 92 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L93" class="LineNr"> 93 </span><span class="Constant">$allocate:end</span>: -<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L95" class="LineNr"> 95 </span> 58/pop-to-eax -<span id="L96" class="LineNr"> 96 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L97" class="LineNr"> 97 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L98" class="LineNr"> 98 </span> 5d/pop-to-ebp -<span id="L99" class="LineNr"> 99 </span> c3/return -<span id="L100" class="LineNr">100 </span> -<span id="L101" class="LineNr">101 </span><span class="subxComment"># Claim the next 'n' bytes of memory starting at ad->curr and update ad->curr.</span> -<span id="L102" class="LineNr">102 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> -<span id="L103" class="LineNr">103 </span><span class="subxFunction">allocate-raw</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L104" class="LineNr">104 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L105" class="LineNr">105 </span> 55/push-ebp -<span id="L106" class="LineNr">106 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L107" class="LineNr">107 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L108" class="LineNr">108 </span> 50/push-eax -<span id="L109" class="LineNr">109 </span> 51/push-ecx -<span id="L110" class="LineNr">110 </span> 52/push-edx -<span id="L111" class="LineNr">111 </span> 53/push-ebx -<span id="L112" class="LineNr">112 </span> 56/push-esi -<span id="L113" class="LineNr">113 </span> 57/push-edi -<span id="L114" class="LineNr">114 </span> <span class="subxComment"># ecx = ad</span> -<span id="L115" class="LineNr">115 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L116" class="LineNr">116 </span> <span class="subxComment"># edx = out</span> -<span id="L117" class="LineNr">117 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># ebx = n</span> -<span id="L119" class="LineNr">119 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ebx</span> -<span id="L120" class="LineNr">120 </span> <span class="subxComment"># out->alloc-id = Next-alloc-id</span> -<span id="L121" class="LineNr">121 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to eax</span> -<span id="L122" class="LineNr">122 </span> 89/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edx</span> -<span id="L123" class="LineNr">123 </span> <span class="subxComment"># out->payload = ad->curr</span> -<span id="L124" class="LineNr">124 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L125" class="LineNr">125 </span><span class="Constant">$allocate-raw:save-payload-in-eax</span>: -<span id="L126" class="LineNr">126 </span> 89/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edx+4)</span> -<span id="L127" class="LineNr">127 </span> <span class="subxComment"># *out->payload = Next-alloc-id</span> -<span id="L128" class="LineNr">128 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to edi</span> -<span id="L129" class="LineNr">129 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to esi</span> -<span id="L130" class="LineNr">130 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *edi</span> -<span id="L131" class="LineNr">131 </span><span class="Constant">$allocate-raw:increment-next-alloc-id</span>: -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># increment *Next-alloc-id</span> -<span id="L133" class="LineNr">133 </span> ff 0/subop/increment 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># increment *Next-alloc-id</span> -<span id="L134" class="LineNr">134 </span> <span class="subxComment"># check if there's enough space</span> -<span id="L135" class="LineNr">135 </span> <span class="subxComment"># TODO: move this check up before any state updates when we support error recovery</span> -<span id="L136" class="LineNr">136 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 3/index/ebx <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ebx+4 to eax</span> -<span id="L137" class="LineNr">137 </span> 3b/compare 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare eax with *(ecx+4)</span> -<span id="L138" class="LineNr">138 </span> 73/jump-if->=-signed $allocate-raw:abort/disp8 -<span id="L139" class="LineNr">139 </span><span class="Constant">$allocate-raw:commit</span>: -<span id="L140" class="LineNr">140 </span> <span class="subxComment"># ad->curr += n+4</span> -<span id="L141" class="LineNr">141 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> -<span id="L142" class="LineNr">142 </span><span class="Constant">$allocate-raw:end</span>: -<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L144" class="LineNr">144 </span> 5f/pop-to-edi -<span id="L145" class="LineNr">145 </span> 5e/pop-to-esi -<span id="L146" class="LineNr">146 </span> 5b/pop-to-ebx -<span id="L147" class="LineNr">147 </span> 5a/pop-to-edx -<span id="L148" class="LineNr">148 </span> 59/pop-to-ecx -<span id="L149" class="LineNr">149 </span> 58/pop-to-eax -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L151" class="LineNr">151 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L152" class="LineNr">152 </span> 5d/pop-to-ebp -<span id="L153" class="LineNr">153 </span> c3/return -<span id="L154" class="LineNr">154 </span> -<span id="L155" class="LineNr">155 </span><span class="Constant">$allocate-raw:abort</span>: -<span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L158" class="LineNr">158 </span> 68/push <span class="Constant">"allocate: failed\n"</span>/imm32 -<span id="L159" class="LineNr">159 </span> 68/push 2/imm32/stderr -<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . call</span> -<span id="L161" class="LineNr">161 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L163" class="LineNr">163 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L165" class="LineNr">165 </span> bb/copy-to-ebx 1/imm32 -<span id="L166" class="LineNr">166 </span> e8/call syscall_exit/disp32 -<span id="L167" class="LineNr">167 </span> <span class="subxComment"># never gets here</span> -<span id="L168" class="LineNr">168 </span> -<span id="L169" class="LineNr">169 </span><span class="subxTest">test-allocate-raw-success</span>: -<span id="L170" class="LineNr">170 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L171" class="LineNr">171 </span> 55/push-ebp -<span id="L172" class="LineNr">172 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L173" class="LineNr">173 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span> -<span id="L174" class="LineNr">174 </span> 68/push 0/imm32/limit -<span id="L175" class="LineNr">175 </span> 68/push 0/imm32/curr -<span id="L176" class="LineNr">176 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L177" class="LineNr">177 </span> <span class="subxComment"># ad = new-segment(512)</span> -<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L179" class="LineNr">179 </span> 51/push-ecx -<span id="L180" class="LineNr">180 </span> 68/push 0x200/imm32 -<span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . call</span> -<span id="L182" class="LineNr">182 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L184" class="LineNr">184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L185" class="LineNr">185 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L186" class="LineNr">186 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L187" class="LineNr">187 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L188" class="LineNr">188 </span> 68/push 0/imm32 -<span id="L189" class="LineNr">189 </span> 68/push 0/imm32 -<span id="L190" class="LineNr">190 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L191" class="LineNr">191 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L192" class="LineNr">192 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L193" class="LineNr">193 </span> <span class="subxComment"># allocate-raw(ad, 3, h)</span> -<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L195" class="LineNr">195 </span> 52/push-edx -<span id="L196" class="LineNr">196 </span> 68/push 3/imm32 -<span id="L197" class="LineNr">197 </span> 51/push-ecx -<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> -<span id="L199" class="LineNr">199 </span> e8/call <a href='120allocate.subx.html#L103'>allocate-raw</a>/disp32 -<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L201" class="LineNr">201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L202" class="LineNr">202 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L204" class="LineNr">204 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: sets alloc-id in handle"</span>/imm32 -<span id="L205" class="LineNr">205 </span> 68/push 0x34/imm32 -<span id="L206" class="LineNr">206 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . call</span> -<span id="L208" class="LineNr">208 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L210" class="LineNr">210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L211" class="LineNr">211 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L213" class="LineNr">213 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: sets payload in handle"</span>/imm32 -<span id="L214" class="LineNr">214 </span> 53/push-ebx -<span id="L215" class="LineNr">215 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L217" class="LineNr">217 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L219" class="LineNr">219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L220" class="LineNr">220 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L222" class="LineNr">222 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: sets alloc-id in payload"</span>/imm32 -<span id="L223" class="LineNr">223 </span> 68/push 0x34/imm32 -<span id="L224" class="LineNr">224 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L225" class="LineNr">225 </span> <span class="subxS2Comment"># . . call</span> -<span id="L226" class="LineNr">226 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L228" class="LineNr">228 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L229" class="LineNr">229 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> -<span id="L230" class="LineNr">230 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L231" class="LineNr">231 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: increments Next-alloc-id"</span>/imm32 -<span id="L232" class="LineNr">232 </span> 68/push 0x35/imm32 -<span id="L233" class="LineNr">233 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> -<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L235" class="LineNr">235 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L238" class="LineNr">238 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id, msg)</span> -<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L240" class="LineNr">240 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: updates allocation descriptor"</span>/imm32 -<span id="L241" class="LineNr">241 </span> 68/push 7/imm32 -<span id="L242" class="LineNr">242 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L243" class="LineNr">243 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L244" class="LineNr">244 </span> 50/push-eax -<span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . call</span> -<span id="L246" class="LineNr">246 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L247" class="LineNr">247 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L248" class="LineNr">248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L249" class="LineNr">249 </span> <span class="subxComment"># clean up</span> -<span id="L250" class="LineNr">250 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L251" class="LineNr">251 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L252" class="LineNr">252 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L253" class="LineNr">253 </span> 5d/pop-to-ebp -<span id="L254" class="LineNr">254 </span> c3/return -<span id="L255" class="LineNr">255 </span> -<span id="L256" class="LineNr">256 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h: (handle _T) -> result/eax: (addr _T)</span> -<span id="L257" class="LineNr">257 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L258" class="LineNr">258 </span> 55/push-ebp -<span id="L259" class="LineNr">259 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L260" class="LineNr">260 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L261" class="LineNr">261 </span> 51/push-ecx -<span id="L262" class="LineNr">262 </span> <span class="subxComment"># eax = 0</span> -<span id="L263" class="LineNr">263 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L264" class="LineNr">264 </span> <span class="subxComment"># ecx = handle->alloc_id</span> -<span id="L265" class="LineNr">265 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L266" class="LineNr">266 </span> <span class="subxComment"># if (ecx == 0) return 0</span> -<span id="L267" class="LineNr">267 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L268" class="LineNr">268 </span> 74/jump-if-= $lookup:end/disp8 -<span id="L269" class="LineNr">269 </span> <span class="subxComment"># eax = handle->address (payload)</span> -<span id="L270" class="LineNr">270 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L271" class="LineNr">271 </span> <span class="subxComment"># if (ecx != *eax) abort</span> -<span id="L272" class="LineNr">272 </span> 39/compare 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *eax and ecx</span> -<span id="L273" class="LineNr">273 </span> 75/jump-if-!= $lookup:abort/disp8 -<span id="L274" class="LineNr">274 </span> <span class="subxComment"># add 4 to eax</span> -<span id="L275" class="LineNr">275 </span> 05/add-to-eax 4/imm32 -<span id="L276" class="LineNr">276 </span><span class="Constant">$lookup:end</span>: -<span id="L277" class="LineNr">277 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L278" class="LineNr">278 </span> 59/pop-to-ecx -<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L280" class="LineNr">280 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L281" class="LineNr">281 </span> 5d/pop-to-ebp -<span id="L282" class="LineNr">282 </span> c3/return -<span id="L283" class="LineNr">283 </span> -<span id="L284" class="LineNr">284 </span><span class="Constant">$lookup:abort</span>: -<span id="L285" class="LineNr">285 </span> <span class="subxS1Comment"># . _write(2/stderr, msg)</span> -<span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L287" class="LineNr">287 </span> 68/push <span class="Constant">"lookup failed\n"</span>/imm32 -<span id="L288" class="LineNr">288 </span> 68/push 2/imm32/stderr -<span id="L289" class="LineNr">289 </span> <span class="subxS2Comment"># . . call</span> -<span id="L290" class="LineNr">290 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L292" class="LineNr">292 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L293" class="LineNr">293 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L294" class="LineNr">294 </span> bb/copy-to-ebx 1/imm32/exit-status -<span id="L295" class="LineNr">295 </span> e8/call syscall_exit/disp32 -<span id="L296" class="LineNr">296 </span> -<span id="L297" class="LineNr">297 </span><span class="subxTest">test-lookup-success</span>: -<span id="L298" class="LineNr">298 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L299" class="LineNr">299 </span> 55/push-ebp -<span id="L300" class="LineNr">300 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L301" class="LineNr">301 </span> <span class="subxComment"># var ad/ebx: allocation-descriptor</span> -<span id="L302" class="LineNr">302 </span> 68/push 0/imm32/limit -<span id="L303" class="LineNr">303 </span> 68/push 0/imm32/curr -<span id="L304" class="LineNr">304 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L305" class="LineNr">305 </span> <span class="subxComment"># ad = new-segment(512)</span> -<span id="L306" class="LineNr">306 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L307" class="LineNr">307 </span> 53/push-ebx -<span id="L308" class="LineNr">308 </span> 68/push 0x200/imm32 -<span id="L309" class="LineNr">309 </span> <span class="subxS2Comment"># . . call</span> -<span id="L310" class="LineNr">310 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L311" class="LineNr">311 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L312" class="LineNr">312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L313" class="LineNr">313 </span> <span class="subxComment"># var handle/ecx: handle</span> -<span id="L314" class="LineNr">314 </span> 68/push 0/imm32/address -<span id="L315" class="LineNr">315 </span> 68/push 0/imm32/alloc-id -<span id="L316" class="LineNr">316 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L317" class="LineNr">317 </span> <span class="subxComment"># var old-top/edx = ad->curr</span> -<span id="L318" class="LineNr">318 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to edx</span> -<span id="L319" class="LineNr">319 </span> <span class="subxComment"># allocate-raw(ad, 2, handle)</span> -<span id="L320" class="LineNr">320 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L321" class="LineNr">321 </span> 51/push-ecx -<span id="L322" class="LineNr">322 </span> 68/push 2/imm32/size -<span id="L323" class="LineNr">323 </span> 53/push-ebx -<span id="L324" class="LineNr">324 </span> <span class="subxS2Comment"># . . call</span> -<span id="L325" class="LineNr">325 </span> e8/call <a href='120allocate.subx.html#L103'>allocate-raw</a>/disp32 -<span id="L326" class="LineNr">326 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L327" class="LineNr">327 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L328" class="LineNr">328 </span> <span class="subxComment"># eax = lookup(handle)</span> -<span id="L329" class="LineNr">329 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L330" class="LineNr">330 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L331" class="LineNr">331 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . call</span> -<span id="L333" class="LineNr">333 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L335" class="LineNr">335 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L336" class="LineNr">336 </span> <span class="subxComment"># eax contains old top of heap, except skipping the alloc-id in the payload</span> -<span id="L337" class="LineNr">337 </span> <span class="subxS1Comment"># . check-ints-equal(eax, old-top+4, msg)</span> -<span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L339" class="LineNr">339 </span> 68/push <span class="Constant">"F - test-lookup-success"</span>/imm32 -<span id="L340" class="LineNr">340 </span> 81 0/subop/add 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edx</span> -<span id="L341" class="LineNr">341 </span> 52/push-edx -<span id="L342" class="LineNr">342 </span> 50/push-eax -<span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . call</span> -<span id="L344" class="LineNr">344 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L346" class="LineNr">346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L347" class="LineNr">347 </span> <span class="subxComment"># clean up</span> -<span id="L348" class="LineNr">348 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L349" class="LineNr">349 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L350" class="LineNr">350 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L351" class="LineNr">351 </span> 5d/pop-to-ebp -<span id="L352" class="LineNr">352 </span> c3/return -<span id="L353" class="LineNr">353 </span> -<span id="L354" class="LineNr">354 </span><span class="subxTest">test-lookup-null-returns-null</span>: -<span id="L355" class="LineNr">355 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L356" class="LineNr">356 </span> 55/push-ebp -<span id="L357" class="LineNr">357 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L358" class="LineNr">358 </span> <span class="subxComment"># var handle/ecx: handle</span> -<span id="L359" class="LineNr">359 </span> 68/push 0/imm32/address -<span id="L360" class="LineNr">360 </span> 68/push 0/imm32/alloc-id -<span id="L361" class="LineNr">361 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L362" class="LineNr">362 </span> <span class="subxComment"># eax = lookup(handle)</span> -<span id="L363" class="LineNr">363 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L364" class="LineNr">364 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L365" class="LineNr">365 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . call</span> -<span id="L367" class="LineNr">367 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L368" class="LineNr">368 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L369" class="LineNr">369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L370" class="LineNr">370 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L372" class="LineNr">372 </span> 68/push <span class="Constant">"F - test-lookup-null-returns-null"</span>/imm32 -<span id="L373" class="LineNr">373 </span> 68/push 0/imm32 -<span id="L374" class="LineNr">374 </span> 50/push-eax -<span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L376" class="LineNr">376 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L377" class="LineNr">377 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L378" class="LineNr">378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L379" class="LineNr">379 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L380" class="LineNr">380 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L381" class="LineNr">381 </span> 5d/pop-to-ebp -<span id="L382" class="LineNr">382 </span> c3/return -<span id="L383" class="LineNr">383 </span> -<span id="L384" class="LineNr">384 </span><span class="subxMinorFunction">_pending-test-lookup-failure</span>: -<span id="L385" class="LineNr">385 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L386" class="LineNr">386 </span> 55/push-ebp -<span id="L387" class="LineNr">387 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L388" class="LineNr">388 </span> <span class="subxComment"># var heap/esi: allocation-descriptor</span> -<span id="L389" class="LineNr">389 </span> 68/push 0/imm32/limit -<span id="L390" class="LineNr">390 </span> 68/push 0/imm32/curr -<span id="L391" class="LineNr">391 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L392" class="LineNr">392 </span> <span class="subxComment"># heap = new-segment(512)</span> -<span id="L393" class="LineNr">393 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L394" class="LineNr">394 </span> 56/push-esi -<span id="L395" class="LineNr">395 </span> 68/push 0x200/imm32 -<span id="L396" class="LineNr">396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L397" class="LineNr">397 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L398" class="LineNr">398 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L399" class="LineNr">399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L400" class="LineNr">400 </span> <span class="subxComment"># var h1/ecx: handle</span> -<span id="L401" class="LineNr">401 </span> 68/push 0/imm32/address -<span id="L402" class="LineNr">402 </span> 68/push 0/imm32/alloc-id -<span id="L403" class="LineNr">403 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L404" class="LineNr">404 </span> <span class="subxComment"># var old_top/ebx = heap->curr</span> -<span id="L405" class="LineNr">405 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L406" class="LineNr">406 </span> <span class="subxComment"># first allocation, to h1</span> -<span id="L407" class="LineNr">407 </span> <span class="subxS1Comment"># . allocate(heap, 2, h1)</span> -<span id="L408" class="LineNr">408 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L409" class="LineNr">409 </span> 51/push-ecx -<span id="L410" class="LineNr">410 </span> 68/push 2/imm32/size -<span id="L411" class="LineNr">411 </span> 56/push-esi -<span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . call</span> -<span id="L413" class="LineNr">413 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 -<span id="L414" class="LineNr">414 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L415" class="LineNr">415 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L416" class="LineNr">416 </span> <span class="subxComment"># reset heap->curr to mimic reclamation</span> -<span id="L417" class="LineNr">417 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *esi</span> -<span id="L418" class="LineNr">418 </span> <span class="subxComment"># second allocation that returns the same address as the first</span> -<span id="L419" class="LineNr">419 </span> <span class="subxComment"># var h2/edx: handle</span> -<span id="L420" class="LineNr">420 </span> 68/push 0/imm32/address -<span id="L421" class="LineNr">421 </span> 68/push 0/imm32/alloc-id -<span id="L422" class="LineNr">422 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L423" class="LineNr">423 </span> <span class="subxS1Comment"># . allocate(heap, 2, h2)</span> -<span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L425" class="LineNr">425 </span> 52/push-edx -<span id="L426" class="LineNr">426 </span> 68/push 2/imm32/size -<span id="L427" class="LineNr">427 </span> 56/push-esi -<span id="L428" class="LineNr">428 </span> <span class="subxS2Comment"># . . call</span> -<span id="L429" class="LineNr">429 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 -<span id="L430" class="LineNr">430 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L431" class="LineNr">431 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L432" class="LineNr">432 </span> <span class="subxComment"># check-ints-equal(h1->address, h2->address, msg)</span> -<span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L434" class="LineNr">434 </span> 68/push <span class="Constant">"F - test-lookup-failure"</span>/imm32 -<span id="L435" class="LineNr">435 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L436" class="LineNr">436 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L437" class="LineNr">437 </span> <span class="subxS2Comment"># . . call</span> -<span id="L438" class="LineNr">438 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L439" class="LineNr">439 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L440" class="LineNr">440 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L441" class="LineNr">441 </span> <span class="subxComment"># lookup(h1) should crash</span> -<span id="L442" class="LineNr">442 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L443" class="LineNr">443 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L444" class="LineNr">444 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L445" class="LineNr">445 </span> <span class="subxS2Comment"># . . call</span> -<span id="L446" class="LineNr">446 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L447" class="LineNr">447 </span> <span class="subxComment"># should never get past this point</span> -<span id="L448" class="LineNr">448 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L449" class="LineNr">449 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L450" class="LineNr">450 </span> <span class="subxComment"># clean up</span> -<span id="L451" class="LineNr">451 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L452" class="LineNr">452 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L453" class="LineNr">453 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L454" class="LineNr">454 </span> 5d/pop-to-ebp -<span id="L455" class="LineNr">455 </span> c3/return -<span id="L456" class="LineNr">456 </span> -<span id="L457" class="LineNr">457 </span><span class="subxComment"># when comparing handles, just treat them as pure values</span> -<span id="L458" class="LineNr">458 </span><span class="subxFunction">handle-equal?</span>: <span class="subxComment"># a: (handle _T), b: (handle _T) -> result/eax: boolean</span> -<span id="L459" class="LineNr">459 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L460" class="LineNr">460 </span> 55/push-ebp -<span id="L461" class="LineNr">461 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L462" class="LineNr">462 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L463" class="LineNr">463 </span> 51/push-ecx -<span id="L464" class="LineNr">464 </span> <span class="subxComment"># eax = false</span> -<span id="L465" class="LineNr">465 </span> b8/copy-to-eax 0/imm32/false -<span id="L466" class="LineNr">466 </span><span class="Constant">$handle-equal?:compare-alloc-id</span>: -<span id="L467" class="LineNr">467 </span> <span class="subxComment"># ecx = a->alloc_id</span> -<span id="L468" class="LineNr">468 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L469" class="LineNr">469 </span> <span class="subxComment"># if (ecx != b->alloc_id) return false</span> -<span id="L470" class="LineNr">470 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+16)</span> -<span id="L471" class="LineNr">471 </span> 75/jump-if-!= $handle-equal?:end/disp8 -<span id="L472" class="LineNr">472 </span><span class="Constant">$handle-equal?:compare-address</span>: -<span id="L473" class="LineNr">473 </span> <span class="subxComment"># ecx = handle->address</span> -<span id="L474" class="LineNr">474 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L475" class="LineNr">475 </span> <span class="subxComment"># if (ecx != b->address) return false</span> -<span id="L476" class="LineNr">476 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+20)</span> -<span id="L477" class="LineNr">477 </span> 75/jump-if-!= $handle-equal?:end/disp8 -<span id="L478" class="LineNr">478 </span><span class="Constant">$handle-equal?:return-true</span>: -<span id="L479" class="LineNr">479 </span> <span class="subxComment"># return true</span> -<span id="L480" class="LineNr">480 </span> b8/copy-to-eax 1/imm32/true -<span id="L481" class="LineNr">481 </span><span class="Constant">$handle-equal?:end</span>: -<span id="L482" class="LineNr">482 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L483" class="LineNr">483 </span> 59/pop-to-ecx -<span id="L484" class="LineNr">484 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L485" class="LineNr">485 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L486" class="LineNr">486 </span> 5d/pop-to-ebp -<span id="L487" class="LineNr">487 </span> c3/return -<span id="L488" class="LineNr">488 </span> -<span id="L489" class="LineNr">489 </span><span class="subxFunction">copy-handle</span>: <span class="subxComment"># src: (handle _T), dest: (addr handle _T)</span> -<span id="L490" class="LineNr">490 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L491" class="LineNr">491 </span> 55/push-ebp -<span id="L492" class="LineNr">492 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L493" class="LineNr">493 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L494" class="LineNr">494 </span> 50/push-eax -<span id="L495" class="LineNr">495 </span> 51/push-ecx -<span id="L496" class="LineNr">496 </span> <span class="subxComment"># ecx = dest</span> -<span id="L497" class="LineNr">497 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L498" class="LineNr">498 </span> <span class="subxComment"># *dest = src</span> -<span id="L499" class="LineNr">499 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L500" class="LineNr">500 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> -<span id="L501" class="LineNr">501 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L502" class="LineNr">502 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> -<span id="L503" class="LineNr">503 </span><span class="Constant">$copy-handle:end</span>: -<span id="L504" class="LineNr">504 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L505" class="LineNr">505 </span> 59/pop-to-ecx -<span id="L506" class="LineNr">506 </span> 58/pop-to-eax -<span id="L507" class="LineNr">507 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L508" class="LineNr">508 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L509" class="LineNr">509 </span> 5d/pop-to-ebp -<span id="L510" class="LineNr">510 </span> c3/return -<span id="L511" class="LineNr">511 </span> -<span id="L512" class="LineNr">512 </span><span class="subxComment"># helper: create a nested allocation descriptor (useful for tests)</span> -<span id="L513" class="LineNr">513 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> -<span id="L514" class="LineNr">514 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L515" class="LineNr">515 </span> 55/push-ebp -<span id="L516" class="LineNr">516 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L517" class="LineNr">517 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L518" class="LineNr">518 </span> 50/push-eax -<span id="L519" class="LineNr">519 </span> 51/push-ecx -<span id="L520" class="LineNr">520 </span> <span class="subxComment"># allocate(ad, n, out)</span> -<span id="L521" class="LineNr">521 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L522" class="LineNr">522 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L523" class="LineNr">523 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L524" class="LineNr">524 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L525" class="LineNr">525 </span> <span class="subxS2Comment"># . . call</span> -<span id="L526" class="LineNr">526 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 -<span id="L527" class="LineNr">527 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L528" class="LineNr">528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L529" class="LineNr">529 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L530" class="LineNr">530 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L531" class="LineNr">531 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L532" class="LineNr">532 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L533" class="LineNr">533 </span> 05/add-to-eax 4/imm32 -<span id="L534" class="LineNr">534 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L535" class="LineNr">535 </span> 3d/compare-eax-and 0/imm32 -<span id="L536" class="LineNr">536 </span> 74/jump-if-= $allocate-region:abort/disp8 -<span id="L537" class="LineNr">537 </span> <span class="subxComment"># earmark 8 bytes at the start for a new allocation descriptor</span> -<span id="L538" class="LineNr">538 </span> <span class="subxS1Comment"># . *eax = eax + 8</span> -<span id="L539" class="LineNr">539 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L540" class="LineNr">540 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to ecx</span> -<span id="L541" class="LineNr">541 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L542" class="LineNr">542 </span> <span class="subxS1Comment"># . *(eax+4) = eax + n</span> -<span id="L543" class="LineNr">543 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L544" class="LineNr">544 </span> 03/add 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(ebp+12) to ecx</span> -<span id="L545" class="LineNr">545 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+4)</span> -<span id="L546" class="LineNr">546 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L547" class="LineNr">547 </span> 59/pop-to-ecx -<span id="L548" class="LineNr">548 </span> 58/pop-to-eax -<span id="L549" class="LineNr">549 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L550" class="LineNr">550 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L551" class="LineNr">551 </span> 5d/pop-to-ebp -<span id="L552" class="LineNr">552 </span> c3/return -<span id="L553" class="LineNr">553 </span> -<span id="L554" class="LineNr">554 </span><span class="subxComment"># We could create a more general '$abort' jump target, but then we'd need to do</span> -<span id="L555" class="LineNr">555 </span><span class="subxComment"># a conditional jump followed by loading the error message and an unconditional</span> -<span id="L556" class="LineNr">556 </span><span class="subxComment"># jump. Or we'd need to unconditionally load the error message before a</span> -<span id="L557" class="LineNr">557 </span><span class="subxComment"># conditional jump, even if it's unused the vast majority of the time. This way</span> -<span id="L558" class="LineNr">558 </span><span class="subxComment"># we bloat a potentially cold segment in RAM so we can abort with a single</span> -<span id="L559" class="LineNr">559 </span><span class="subxComment"># instruction.</span> -<span id="L560" class="LineNr">560 </span><span class="Constant">$allocate-region:abort</span>: -<span id="L561" class="LineNr">561 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L562" class="LineNr">562 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L563" class="LineNr">563 </span> 68/push <span class="Constant">"allocate-region: failed to allocate\n"</span>/imm32 -<span id="L564" class="LineNr">564 </span> 68/push 2/imm32/stderr -<span id="L565" class="LineNr">565 </span> <span class="subxS2Comment"># . . call</span> -<span id="L566" class="LineNr">566 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L567" class="LineNr">567 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L568" class="LineNr">568 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L569" class="LineNr">569 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L570" class="LineNr">570 </span> bb/copy-to-ebx 1/imm32 -<span id="L571" class="LineNr">571 </span> e8/call syscall_exit/disp32 -<span id="L572" class="LineNr">572 </span> <span class="subxComment"># never gets here</span> -<span id="L573" class="LineNr">573 </span> -<span id="L574" class="LineNr">574 </span><span class="subxComment"># Claim the next 'n+4' bytes of memory and initialize the first 4 to n.</span> -<span id="L575" class="LineNr">575 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> -<span id="L576" class="LineNr">576 </span><span class="subxFunction">allocate-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L577" class="LineNr">577 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L578" class="LineNr">578 </span> 55/push-ebp -<span id="L579" class="LineNr">579 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L580" class="LineNr">580 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L581" class="LineNr">581 </span> 50/push-eax -<span id="L582" class="LineNr">582 </span> 51/push-ecx -<span id="L583" class="LineNr">583 </span> 52/push-edx -<span id="L584" class="LineNr">584 </span> <span class="subxComment"># ecx = n</span> -<span id="L585" class="LineNr">585 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L586" class="LineNr">586 </span> <span class="subxComment"># var size/edx: int = n+4</span> -<span id="L587" class="LineNr">587 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+4 to edx</span> -<span id="L588" class="LineNr">588 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L589" class="LineNr">589 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L590" class="LineNr">590 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L591" class="LineNr">591 </span> 52/push-edx -<span id="L592" class="LineNr">592 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L593" class="LineNr">593 </span> <span class="subxS2Comment"># . . call</span> -<span id="L594" class="LineNr">594 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 -<span id="L595" class="LineNr">595 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L596" class="LineNr">596 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L597" class="LineNr">597 </span> <span class="subxComment"># *out->payload = n</span> -<span id="L598" class="LineNr">598 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L599" class="LineNr">599 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L600" class="LineNr">600 </span> <span class="subxS1Comment"># . skip payload->allocid</span> -<span id="L601" class="LineNr">601 </span> 05/add-to-eax 4/imm32 -<span id="L602" class="LineNr">602 </span> <span class="subxS1Comment"># .</span> -<span id="L603" class="LineNr">603 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L604" class="LineNr">604 </span><span class="Constant">$allocate-array:end</span>: -<span id="L605" class="LineNr">605 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L606" class="LineNr">606 </span> 5a/pop-to-edx -<span id="L607" class="LineNr">607 </span> 59/pop-to-ecx -<span id="L608" class="LineNr">608 </span> 58/pop-to-eax -<span id="L609" class="LineNr">609 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L610" class="LineNr">610 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L611" class="LineNr">611 </span> 5d/pop-to-ebp -<span id="L612" class="LineNr">612 </span> c3/return -<span id="L613" class="LineNr">613 </span> -<span id="L614" class="LineNr">614 </span><span class="subxTest">test-allocate-array</span>: -<span id="L615" class="LineNr">615 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L616" class="LineNr">616 </span> 55/push-ebp -<span id="L617" class="LineNr">617 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L618" class="LineNr">618 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span> -<span id="L619" class="LineNr">619 </span> 68/push 0/imm32/limit -<span id="L620" class="LineNr">620 </span> 68/push 0/imm32/curr -<span id="L621" class="LineNr">621 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L622" class="LineNr">622 </span> <span class="subxComment"># ad = new-segment(512)</span> +<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L52" class="LineNr"> 52 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L53" class="LineNr"> 53 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L54" class="LineNr"> 54 </span> <span class="subxS2Comment"># . . call</span> +<span id="L55" class="LineNr"> 55 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 +<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L57" class="LineNr"> 57 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># eax = out->payload + 4</span> +<span id="L59" class="LineNr"> 59 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L60" class="LineNr"> 60 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L61" class="LineNr"> 61 </span> 05/add-to-eax 4/imm32 +<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># zero-out(eax, n)</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L64" class="LineNr"> 64 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L65" class="LineNr"> 65 </span> 50/push-eax +<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . call</span> +<span id="L67" class="LineNr"> 67 </span> e8/call <a href='120allocate.subx.html#L836'>zero-out</a>/disp32 +<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L69" class="LineNr"> 69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L70" class="LineNr"> 70 </span><span class="Constant">$allocate:end</span>: +<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L72" class="LineNr"> 72 </span> 58/pop-to-eax +<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L74" class="LineNr"> 74 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L75" class="LineNr"> 75 </span> 5d/pop-to-ebp +<span id="L76" class="LineNr"> 76 </span> c3/return +<span id="L77" class="LineNr"> 77 </span> +<span id="L78" class="LineNr"> 78 </span><span class="subxComment"># Claim the next 'n' bytes of memory starting at ad->curr and update ad->curr.</span> +<span id="L79" class="LineNr"> 79 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> +<span id="L80" class="LineNr"> 80 </span><span class="subxFunction">allocate-raw</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L82" class="LineNr"> 82 </span> 55/push-ebp +<span id="L83" class="LineNr"> 83 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L84" class="LineNr"> 84 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L85" class="LineNr"> 85 </span> 50/push-eax +<span id="L86" class="LineNr"> 86 </span> 51/push-ecx +<span id="L87" class="LineNr"> 87 </span> 52/push-edx +<span id="L88" class="LineNr"> 88 </span> 53/push-ebx +<span id="L89" class="LineNr"> 89 </span> 56/push-esi +<span id="L90" class="LineNr"> 90 </span> 57/push-edi +<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># ecx = ad</span> +<span id="L92" class="LineNr"> 92 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># edx = out</span> +<span id="L94" class="LineNr"> 94 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> +<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># ebx = n</span> +<span id="L96" class="LineNr"> 96 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ebx</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># out->alloc-id = Next-alloc-id</span> +<span id="L98" class="LineNr"> 98 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to eax</span> +<span id="L99" class="LineNr"> 99 </span> 89/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edx</span> +<span id="L100" class="LineNr">100 </span> <span class="subxComment"># out->payload = ad->curr</span> +<span id="L101" class="LineNr">101 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L102" class="LineNr">102 </span><span class="Constant">$allocate-raw:save-payload-in-eax</span>: +<span id="L103" class="LineNr">103 </span> 89/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edx+4)</span> +<span id="L104" class="LineNr">104 </span> <span class="subxComment"># *out->payload = Next-alloc-id</span> +<span id="L105" class="LineNr">105 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to edi</span> +<span id="L106" class="LineNr">106 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to esi</span> +<span id="L107" class="LineNr">107 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *edi</span> +<span id="L108" class="LineNr">108 </span><span class="Constant">$allocate-raw:increment-next-alloc-id</span>: +<span id="L109" class="LineNr">109 </span> <span class="subxComment"># increment *Next-alloc-id</span> +<span id="L110" class="LineNr">110 </span> ff 0/subop/increment 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># increment *Next-alloc-id</span> +<span id="L111" class="LineNr">111 </span> <span class="subxComment"># check if there's enough space</span> +<span id="L112" class="LineNr">112 </span> <span class="subxComment"># TODO: move this check up before any state updates when we support error recovery</span> +<span id="L113" class="LineNr">113 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 3/index/ebx <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ebx+4 to eax</span> +<span id="L114" class="LineNr">114 </span> 3b/compare 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare eax with *(ecx+4)</span> +<span id="L115" class="LineNr">115 </span> 73/jump-if->=-signed $allocate-raw:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L116" class="LineNr">116 </span><span class="Constant">$allocate-raw:commit</span>: +<span id="L117" class="LineNr">117 </span> <span class="subxComment"># ad->curr += n+4</span> +<span id="L118" class="LineNr">118 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> +<span id="L119" class="LineNr">119 </span><span class="Constant">$allocate-raw:end</span>: +<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L121" class="LineNr">121 </span> 5f/pop-to-edi +<span id="L122" class="LineNr">122 </span> 5e/pop-to-esi +<span id="L123" class="LineNr">123 </span> 5b/pop-to-ebx +<span id="L124" class="LineNr">124 </span> 5a/pop-to-edx +<span id="L125" class="LineNr">125 </span> 59/pop-to-ecx +<span id="L126" class="LineNr">126 </span> 58/pop-to-eax +<span id="L127" class="LineNr">127 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L128" class="LineNr">128 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L129" class="LineNr">129 </span> 5d/pop-to-ebp +<span id="L130" class="LineNr">130 </span> c3/return +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="Constant">$allocate-raw:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L133" class="LineNr">133 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"allocate: failed"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L134" class="LineNr">134 </span> { +<span id="L135" class="LineNr">135 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L136" class="LineNr">136 </span> } +<span id="L137" class="LineNr">137 </span> <span class="subxComment"># never gets here</span> +<span id="L138" class="LineNr">138 </span> +<span id="L139" class="LineNr">139 </span><span class="subxTest">test-allocate-raw-success</span>: +<span id="L140" class="LineNr">140 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L141" class="LineNr">141 </span> 55/push-ebp +<span id="L142" class="LineNr">142 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L143" class="LineNr">143 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L144" class="LineNr">144 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L145" class="LineNr">145 </span> 89/<- %ecx 4/r32/esp +<span id="L146" class="LineNr">146 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L147" class="LineNr">147 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L148" class="LineNr">148 </span> 89/<- %edx 4/r32/esp +<span id="L149" class="LineNr">149 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L150" class="LineNr">150 </span> 51/push-ecx +<span id="L151" class="LineNr">151 </span> 52/push-edx +<span id="L152" class="LineNr">152 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L153" class="LineNr">153 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L154" class="LineNr">154 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L155" class="LineNr">155 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L156" class="LineNr">156 </span> 68/push 0/imm32 +<span id="L157" class="LineNr">157 </span> 68/push 0/imm32 +<span id="L158" class="LineNr">158 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L159" class="LineNr">159 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L160" class="LineNr">160 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L161" class="LineNr">161 </span> <span class="subxComment"># allocate-raw(ad, 3, h)</span> +<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L163" class="LineNr">163 </span> 52/push-edx +<span id="L164" class="LineNr">164 </span> 68/push 3/imm32 +<span id="L165" class="LineNr">165 </span> 51/push-ecx +<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> +<span id="L167" class="LineNr">167 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 +<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L169" class="LineNr">169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L170" class="LineNr">170 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L172" class="LineNr">172 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets alloc-id in handle"</span>/imm32 +<span id="L173" class="LineNr">173 </span> 68/push 0x34/imm32 +<span id="L174" class="LineNr">174 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . call</span> +<span id="L176" class="LineNr">176 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L178" class="LineNr">178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L179" class="LineNr">179 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L181" class="LineNr">181 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets payload in handle"</span>/imm32 +<span id="L182" class="LineNr">182 </span> 53/push-ebx +<span id="L183" class="LineNr">183 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . call</span> +<span id="L185" class="LineNr">185 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L187" class="LineNr">187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L188" class="LineNr">188 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> +<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L190" class="LineNr">190 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets alloc-id in payload"</span>/imm32 +<span id="L191" class="LineNr">191 </span> 68/push 0x34/imm32 +<span id="L192" class="LineNr">192 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> +<span id="L194" class="LineNr">194 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L196" class="LineNr">196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L197" class="LineNr">197 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L199" class="LineNr">199 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: increments Next-alloc-id"</span>/imm32 +<span id="L200" class="LineNr">200 </span> 68/push 0x35/imm32 +<span id="L201" class="LineNr">201 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . call</span> +<span id="L203" class="LineNr">203 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L205" class="LineNr">205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L206" class="LineNr">206 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id, msg)</span> +<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L208" class="LineNr">208 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: updates allocation descriptor"</span>/imm32 +<span id="L209" class="LineNr">209 </span> 68/push 7/imm32 +<span id="L210" class="LineNr">210 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L211" class="LineNr">211 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L212" class="LineNr">212 </span> 50/push-eax +<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> +<span id="L214" class="LineNr">214 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L217" class="LineNr">217 </span> <span class="subxComment"># clean up</span> +<span id="L218" class="LineNr">218 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L220" class="LineNr">220 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L222" class="LineNr">222 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L223" class="LineNr">223 </span> 5d/pop-to-ebp +<span id="L224" class="LineNr">224 </span> c3/return +<span id="L225" class="LineNr">225 </span> +<span id="L226" class="LineNr">226 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h: (handle _T) -> result/eax: (addr _T)</span> +<span id="L227" class="LineNr">227 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L228" class="LineNr">228 </span> 55/push-ebp +<span id="L229" class="LineNr">229 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L230" class="LineNr">230 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L231" class="LineNr">231 </span> 51/push-ecx +<span id="L232" class="LineNr">232 </span> <span class="subxComment"># eax = 0</span> +<span id="L233" class="LineNr">233 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L234" class="LineNr">234 </span> <span class="subxComment"># ecx = handle->alloc_id</span> +<span id="L235" class="LineNr">235 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L236" class="LineNr">236 </span> <span class="subxComment"># if (ecx == 0) return 0</span> +<span id="L237" class="LineNr">237 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L238" class="LineNr">238 </span> 74/jump-if-= $lookup:end/disp8 +<span id="L239" class="LineNr">239 </span> <span class="subxComment"># eax = handle->address (payload)</span> +<span id="L240" class="LineNr">240 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L241" class="LineNr">241 </span> <span class="subxComment"># if (ecx != *eax) abort</span> +<span id="L242" class="LineNr">242 </span> 39/compare 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *eax and ecx</span> +<span id="L243" class="LineNr">243 </span> 75/jump-if-!= $lookup:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L244" class="LineNr">244 </span> <span class="subxComment"># add 4 to eax</span> +<span id="L245" class="LineNr">245 </span> 05/add-to-eax 4/imm32 +<span id="L246" class="LineNr">246 </span><span class="Constant">$lookup:end</span>: +<span id="L247" class="LineNr">247 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L248" class="LineNr">248 </span> 59/pop-to-ecx +<span id="L249" class="LineNr">249 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L250" class="LineNr">250 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L251" class="LineNr">251 </span> 5d/pop-to-ebp +<span id="L252" class="LineNr">252 </span> c3/return +<span id="L253" class="LineNr">253 </span> +<span id="L254" class="LineNr">254 </span><span class="Constant">$lookup:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L255" class="LineNr">255 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"lookup: failed"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L256" class="LineNr">256 </span> { +<span id="L257" class="LineNr">257 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L258" class="LineNr">258 </span> } +<span id="L259" class="LineNr">259 </span> <span class="subxComment"># never gets here</span> +<span id="L260" class="LineNr">260 </span> +<span id="L261" class="LineNr">261 </span><span class="subxTest">test-lookup-success</span>: +<span id="L262" class="LineNr">262 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L263" class="LineNr">263 </span> 55/push-ebp +<span id="L264" class="LineNr">264 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L265" class="LineNr">265 </span> <span class="subxComment"># var ad/ebx: allocation-descriptor containing 16 bytes</span> +<span id="L266" class="LineNr">266 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L267" class="LineNr">267 </span> 89/<- %ecx 4/r32/esp +<span id="L268" class="LineNr">268 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L269" class="LineNr">269 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L270" class="LineNr">270 </span> 89/<- %edx 4/r32/esp +<span id="L271" class="LineNr">271 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L272" class="LineNr">272 </span> 51/push-ecx +<span id="L273" class="LineNr">273 </span> 52/push-edx +<span id="L274" class="LineNr">274 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L275" class="LineNr">275 </span> <span class="subxComment"># var handle/ecx: handle</span> +<span id="L276" class="LineNr">276 </span> 68/push 0/imm32/address +<span id="L277" class="LineNr">277 </span> 68/push 0/imm32/alloc-id +<span id="L278" class="LineNr">278 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L279" class="LineNr">279 </span> <span class="subxComment"># var old-top/edx = ad->curr</span> +<span id="L280" class="LineNr">280 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to edx</span> +<span id="L281" class="LineNr">281 </span> <span class="subxComment"># allocate-raw(ad, 2, handle)</span> +<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L283" class="LineNr">283 </span> 51/push-ecx +<span id="L284" class="LineNr">284 </span> 68/push 2/imm32/size +<span id="L285" class="LineNr">285 </span> 53/push-ebx +<span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . call</span> +<span id="L287" class="LineNr">287 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 +<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L289" class="LineNr">289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L290" class="LineNr">290 </span> <span class="subxComment"># eax = lookup(handle)</span> +<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L292" class="LineNr">292 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L293" class="LineNr">293 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . call</span> +<span id="L295" class="LineNr">295 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 +<span id="L296" class="LineNr">296 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L297" class="LineNr">297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L298" class="LineNr">298 </span> <span class="subxComment"># eax contains old top of heap, except skipping the alloc-id in the payload</span> +<span id="L299" class="LineNr">299 </span> <span class="subxS1Comment"># . check-ints-equal(eax, old-top+4, msg)</span> +<span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L301" class="LineNr">301 </span> 68/push <span class="Constant">"F - test-lookup-success"</span>/imm32 +<span id="L302" class="LineNr">302 </span> 81 0/subop/add 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edx</span> +<span id="L303" class="LineNr">303 </span> 52/push-edx +<span id="L304" class="LineNr">304 </span> 50/push-eax +<span id="L305" class="LineNr">305 </span> <span class="subxS2Comment"># . . call</span> +<span id="L306" class="LineNr">306 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L308" class="LineNr">308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L309" class="LineNr">309 </span> <span class="subxComment"># clean up</span> +<span id="L310" class="LineNr">310 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L311" class="LineNr">311 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L312" class="LineNr">312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L313" class="LineNr">313 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L314" class="LineNr">314 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L315" class="LineNr">315 </span> 5d/pop-to-ebp +<span id="L316" class="LineNr">316 </span> c3/return +<span id="L317" class="LineNr">317 </span> +<span id="L318" class="LineNr">318 </span><span class="subxTest">test-lookup-null-returns-null</span>: +<span id="L319" class="LineNr">319 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L320" class="LineNr">320 </span> 55/push-ebp +<span id="L321" class="LineNr">321 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L322" class="LineNr">322 </span> <span class="subxComment"># var handle/ecx: handle</span> +<span id="L323" class="LineNr">323 </span> 68/push 0/imm32/address +<span id="L324" class="LineNr">324 </span> 68/push 0/imm32/alloc-id +<span id="L325" class="LineNr">325 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L326" class="LineNr">326 </span> <span class="subxComment"># eax = lookup(handle)</span> +<span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L328" class="LineNr">328 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L329" class="LineNr">329 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L330" class="LineNr">330 </span> <span class="subxS2Comment"># . . call</span> +<span id="L331" class="LineNr">331 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 +<span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L333" class="LineNr">333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L334" class="LineNr">334 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L336" class="LineNr">336 </span> 68/push <span class="Constant">"F - test-lookup-null-returns-null"</span>/imm32 +<span id="L337" class="LineNr">337 </span> 68/push 0/imm32 +<span id="L338" class="LineNr">338 </span> 50/push-eax +<span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . call</span> +<span id="L340" class="LineNr">340 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L342" class="LineNr">342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L343" class="LineNr">343 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L344" class="LineNr">344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L345" class="LineNr">345 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L346" class="LineNr">346 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L347" class="LineNr">347 </span> 5d/pop-to-ebp +<span id="L348" class="LineNr">348 </span> c3/return +<span id="L349" class="LineNr">349 </span> +<span id="L350" class="LineNr">350 </span><span class="subxMinorFunction">_pending-test-lookup-failure</span>: +<span id="L351" class="LineNr">351 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L352" class="LineNr">352 </span> 55/push-ebp +<span id="L353" class="LineNr">353 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L354" class="LineNr">354 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L355" class="LineNr">355 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L356" class="LineNr">356 </span> 89/<- %ecx 4/r32/esp +<span id="L357" class="LineNr">357 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L358" class="LineNr">358 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L359" class="LineNr">359 </span> 89/<- %edx 4/r32/esp +<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L361" class="LineNr">361 </span> 51/push-ecx +<span id="L362" class="LineNr">362 </span> 52/push-edx +<span id="L363" class="LineNr">363 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L364" class="LineNr">364 </span> <span class="subxComment"># var h1/ecx: handle</span> +<span id="L365" class="LineNr">365 </span> 68/push 0/imm32/address +<span id="L366" class="LineNr">366 </span> 68/push 0/imm32/alloc-id +<span id="L367" class="LineNr">367 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L368" class="LineNr">368 </span> <span class="subxComment"># var old_top/ebx = ad->curr</span> +<span id="L369" class="LineNr">369 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L370" class="LineNr">370 </span> <span class="subxComment"># first allocation, to h1</span> +<span id="L371" class="LineNr">371 </span> <span class="subxS1Comment"># . allocate(ad, 2, h1)</span> +<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L373" class="LineNr">373 </span> 51/push-ecx +<span id="L374" class="LineNr">374 </span> 68/push 2/imm32/size +<span id="L375" class="LineNr">375 </span> 56/push-esi +<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . call</span> +<span id="L377" class="LineNr">377 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L378" class="LineNr">378 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L379" class="LineNr">379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L380" class="LineNr">380 </span> <span class="subxComment"># reset ad->curr to mimic reclamation</span> +<span id="L381" class="LineNr">381 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *esi</span> +<span id="L382" class="LineNr">382 </span> <span class="subxComment"># second allocation that returns the same address as the first</span> +<span id="L383" class="LineNr">383 </span> <span class="subxComment"># var h2/edx: handle</span> +<span id="L384" class="LineNr">384 </span> 68/push 0/imm32/address +<span id="L385" class="LineNr">385 </span> 68/push 0/imm32/alloc-id +<span id="L386" class="LineNr">386 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L387" class="LineNr">387 </span> <span class="subxS1Comment"># . allocate(ad, 2, h2)</span> +<span id="L388" class="LineNr">388 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L389" class="LineNr">389 </span> 52/push-edx +<span id="L390" class="LineNr">390 </span> 68/push 2/imm32/size +<span id="L391" class="LineNr">391 </span> 56/push-esi +<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . call</span> +<span id="L393" class="LineNr">393 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L395" class="LineNr">395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L396" class="LineNr">396 </span> <span class="subxComment"># check-ints-equal(h1->address, h2->address, msg)</span> +<span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L398" class="LineNr">398 </span> 68/push <span class="Constant">"F - test-lookup-failure"</span>/imm32 +<span id="L399" class="LineNr">399 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L400" class="LineNr">400 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . call</span> +<span id="L402" class="LineNr">402 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L403" class="LineNr">403 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L404" class="LineNr">404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L405" class="LineNr">405 </span> <span class="subxComment"># lookup(h1) should crash</span> +<span id="L406" class="LineNr">406 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L407" class="LineNr">407 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L408" class="LineNr">408 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L409" class="LineNr">409 </span> <span class="subxS2Comment"># . . call</span> +<span id="L410" class="LineNr">410 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 +<span id="L411" class="LineNr">411 </span> <span class="subxComment"># should never get past this point</span> +<span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L413" class="LineNr">413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L414" class="LineNr">414 </span> <span class="subxComment"># clean up</span> +<span id="L415" class="LineNr">415 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L417" class="LineNr">417 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L418" class="LineNr">418 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L419" class="LineNr">419 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L420" class="LineNr">420 </span> 5d/pop-to-ebp +<span id="L421" class="LineNr">421 </span> c3/return +<span id="L422" class="LineNr">422 </span> +<span id="L423" class="LineNr">423 </span><span class="subxComment"># when comparing handles, just treat them as pure values</span> +<span id="L424" class="LineNr">424 </span><span class="subxFunction">handle-equal?</span>: <span class="subxComment"># a: (handle _T), b: (handle _T) -> result/eax: boolean</span> +<span id="L425" class="LineNr">425 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L426" class="LineNr">426 </span> 55/push-ebp +<span id="L427" class="LineNr">427 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L428" class="LineNr">428 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L429" class="LineNr">429 </span> 51/push-ecx +<span id="L430" class="LineNr">430 </span> <span class="subxComment"># eax = false</span> +<span id="L431" class="LineNr">431 </span> b8/copy-to-eax 0/imm32/false +<span id="L432" class="LineNr">432 </span><span class="Constant">$handle-equal?:compare-alloc-id</span>: +<span id="L433" class="LineNr">433 </span> <span class="subxComment"># ecx = a->alloc_id</span> +<span id="L434" class="LineNr">434 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L435" class="LineNr">435 </span> <span class="subxComment"># if (ecx != b->alloc_id) return false</span> +<span id="L436" class="LineNr">436 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+16)</span> +<span id="L437" class="LineNr">437 </span> 75/jump-if-!= $handle-equal?:end/disp8 +<span id="L438" class="LineNr">438 </span><span class="Constant">$handle-equal?:compare-address</span>: +<span id="L439" class="LineNr">439 </span> <span class="subxComment"># ecx = handle->address</span> +<span id="L440" class="LineNr">440 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L441" class="LineNr">441 </span> <span class="subxComment"># if (ecx != b->address) return false</span> +<span id="L442" class="LineNr">442 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+20)</span> +<span id="L443" class="LineNr">443 </span> 75/jump-if-!= $handle-equal?:end/disp8 +<span id="L444" class="LineNr">444 </span><span class="Constant">$handle-equal?:return-true</span>: +<span id="L445" class="LineNr">445 </span> <span class="subxComment"># return true</span> +<span id="L446" class="LineNr">446 </span> b8/copy-to-eax 1/imm32/true +<span id="L447" class="LineNr">447 </span><span class="Constant">$handle-equal?:end</span>: +<span id="L448" class="LineNr">448 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L449" class="LineNr">449 </span> 59/pop-to-ecx +<span id="L450" class="LineNr">450 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L451" class="LineNr">451 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L452" class="LineNr">452 </span> 5d/pop-to-ebp +<span id="L453" class="LineNr">453 </span> c3/return +<span id="L454" class="LineNr">454 </span> +<span id="L455" class="LineNr">455 </span><span class="subxFunction">copy-handle</span>: <span class="subxComment"># src: (handle _T), dest: (addr handle _T)</span> +<span id="L456" class="LineNr">456 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L457" class="LineNr">457 </span> 55/push-ebp +<span id="L458" class="LineNr">458 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L459" class="LineNr">459 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L460" class="LineNr">460 </span> 50/push-eax +<span id="L461" class="LineNr">461 </span> 51/push-ecx +<span id="L462" class="LineNr">462 </span> <span class="subxComment"># ecx = dest</span> +<span id="L463" class="LineNr">463 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L464" class="LineNr">464 </span> <span class="subxComment"># *dest = src</span> +<span id="L465" class="LineNr">465 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L466" class="LineNr">466 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> +<span id="L467" class="LineNr">467 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L468" class="LineNr">468 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> +<span id="L469" class="LineNr">469 </span><span class="Constant">$copy-handle:end</span>: +<span id="L470" class="LineNr">470 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L471" class="LineNr">471 </span> 59/pop-to-ecx +<span id="L472" class="LineNr">472 </span> 58/pop-to-eax +<span id="L473" class="LineNr">473 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L474" class="LineNr">474 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L475" class="LineNr">475 </span> 5d/pop-to-ebp +<span id="L476" class="LineNr">476 </span> c3/return +<span id="L477" class="LineNr">477 </span> +<span id="L478" class="LineNr">478 </span><span class="subxComment"># helper: create a nested allocation descriptor (useful for tests)</span> +<span id="L479" class="LineNr">479 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L480" class="LineNr">480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L481" class="LineNr">481 </span> 55/push-ebp +<span id="L482" class="LineNr">482 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L483" class="LineNr">483 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L484" class="LineNr">484 </span> 50/push-eax +<span id="L485" class="LineNr">485 </span> 51/push-ecx +<span id="L486" class="LineNr">486 </span> <span class="subxComment"># allocate(ad, n, out)</span> +<span id="L487" class="LineNr">487 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L488" class="LineNr">488 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L489" class="LineNr">489 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L490" class="LineNr">490 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L491" class="LineNr">491 </span> <span class="subxS2Comment"># . . call</span> +<span id="L492" class="LineNr">492 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L493" class="LineNr">493 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L494" class="LineNr">494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L495" class="LineNr">495 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L496" class="LineNr">496 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L497" class="LineNr">497 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L498" class="LineNr">498 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L499" class="LineNr">499 </span> 05/add-to-eax 4/imm32 +<span id="L500" class="LineNr">500 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L501" class="LineNr">501 </span> 3d/compare-eax-and 0/imm32 +<span id="L502" class="LineNr">502 </span> 74/jump-if-= $allocate-region:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L503" class="LineNr">503 </span> <span class="subxComment"># earmark 8 bytes at the start for a new allocation descriptor</span> +<span id="L504" class="LineNr">504 </span> <span class="subxS1Comment"># . *eax = eax + 8</span> +<span id="L505" class="LineNr">505 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L506" class="LineNr">506 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to ecx</span> +<span id="L507" class="LineNr">507 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L508" class="LineNr">508 </span> <span class="subxS1Comment"># . *(eax+4) = eax + n</span> +<span id="L509" class="LineNr">509 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L510" class="LineNr">510 </span> 03/add 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(ebp+12) to ecx</span> +<span id="L511" class="LineNr">511 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+4)</span> +<span id="L512" class="LineNr">512 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L513" class="LineNr">513 </span> 59/pop-to-ecx +<span id="L514" class="LineNr">514 </span> 58/pop-to-eax +<span id="L515" class="LineNr">515 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L516" class="LineNr">516 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L517" class="LineNr">517 </span> 5d/pop-to-ebp +<span id="L518" class="LineNr">518 </span> c3/return +<span id="L519" class="LineNr">519 </span> +<span id="L520" class="LineNr">520 </span><span class="subxComment"># We could create a more general '$abort' jump target, but then we'd need to do</span> +<span id="L521" class="LineNr">521 </span><span class="subxComment"># a conditional jump followed by loading the error message and an unconditional</span> +<span id="L522" class="LineNr">522 </span><span class="subxComment"># jump. Or we'd need to unconditionally load the error message before a</span> +<span id="L523" class="LineNr">523 </span><span class="subxComment"># conditional jump, even if it's unused the vast majority of the time. This way</span> +<span id="L524" class="LineNr">524 </span><span class="subxComment"># we bloat a potentially cold segment in RAM so we can abort with a single</span> +<span id="L525" class="LineNr">525 </span><span class="subxComment"># instruction.</span> +<span id="L526" class="LineNr">526 </span><span class="Constant">$allocate-region:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L527" class="LineNr">527 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"allocate-region: failed to allocate"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L528" class="LineNr">528 </span> { +<span id="L529" class="LineNr">529 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L530" class="LineNr">530 </span> } +<span id="L531" class="LineNr">531 </span> <span class="subxComment"># never gets here</span> +<span id="L532" class="LineNr">532 </span> +<span id="L533" class="LineNr">533 </span><span class="subxComment"># Claim the next 'n+4' bytes of memory and initialize the first 4 to n.</span> +<span id="L534" class="LineNr">534 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> +<span id="L535" class="LineNr">535 </span><span class="subxFunction">allocate-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L536" class="LineNr">536 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L537" class="LineNr">537 </span> 55/push-ebp +<span id="L538" class="LineNr">538 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L539" class="LineNr">539 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L540" class="LineNr">540 </span> 50/push-eax +<span id="L541" class="LineNr">541 </span> 51/push-ecx +<span id="L542" class="LineNr">542 </span> 52/push-edx +<span id="L543" class="LineNr">543 </span> <span class="subxComment"># ecx = n</span> +<span id="L544" class="LineNr">544 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L545" class="LineNr">545 </span> <span class="subxComment"># var size/edx: int = n+4</span> +<span id="L546" class="LineNr">546 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+4 to edx</span> +<span id="L547" class="LineNr">547 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L549" class="LineNr">549 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L550" class="LineNr">550 </span> 52/push-edx +<span id="L551" class="LineNr">551 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L552" class="LineNr">552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L553" class="LineNr">553 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L554" class="LineNr">554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L555" class="LineNr">555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L556" class="LineNr">556 </span> <span class="subxComment"># *out->payload = n</span> +<span id="L557" class="LineNr">557 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L558" class="LineNr">558 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L559" class="LineNr">559 </span> <span class="subxS1Comment"># . skip payload->allocid</span> +<span id="L560" class="LineNr">560 </span> 05/add-to-eax 4/imm32 +<span id="L561" class="LineNr">561 </span> <span class="subxS1Comment"># .</span> +<span id="L562" class="LineNr">562 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L563" class="LineNr">563 </span><span class="Constant">$allocate-array:end</span>: +<span id="L564" class="LineNr">564 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L565" class="LineNr">565 </span> 5a/pop-to-edx +<span id="L566" class="LineNr">566 </span> 59/pop-to-ecx +<span id="L567" class="LineNr">567 </span> 58/pop-to-eax +<span id="L568" class="LineNr">568 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L569" class="LineNr">569 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L570" class="LineNr">570 </span> 5d/pop-to-ebp +<span id="L571" class="LineNr">571 </span> c3/return +<span id="L572" class="LineNr">572 </span> +<span id="L573" class="LineNr">573 </span><span class="subxTest">test-allocate-array</span>: +<span id="L574" class="LineNr">574 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L575" class="LineNr">575 </span> 55/push-ebp +<span id="L576" class="LineNr">576 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L577" class="LineNr">577 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L578" class="LineNr">578 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L579" class="LineNr">579 </span> 89/<- %ecx 4/r32/esp +<span id="L580" class="LineNr">580 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> +<span id="L581" class="LineNr">581 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L582" class="LineNr">582 </span> 89/<- %edx 4/r32/esp +<span id="L583" class="LineNr">583 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L584" class="LineNr">584 </span> 51/push-ecx +<span id="L585" class="LineNr">585 </span> 52/push-edx +<span id="L586" class="LineNr">586 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L587" class="LineNr">587 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L588" class="LineNr">588 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L589" class="LineNr">589 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L590" class="LineNr">590 </span> 68/push 0/imm32 +<span id="L591" class="LineNr">591 </span> 68/push 0/imm32 +<span id="L592" class="LineNr">592 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L593" class="LineNr">593 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L594" class="LineNr">594 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L595" class="LineNr">595 </span> <span class="subxComment"># allocate-array(ad, 3, h)</span> +<span id="L596" class="LineNr">596 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L597" class="LineNr">597 </span> 52/push-edx +<span id="L598" class="LineNr">598 </span> 68/push 3/imm32 +<span id="L599" class="LineNr">599 </span> 51/push-ecx +<span id="L600" class="LineNr">600 </span> <span class="subxS2Comment"># . . call</span> +<span id="L601" class="LineNr">601 </span> e8/call <a href='120allocate.subx.html#L535'>allocate-array</a>/disp32 +<span id="L602" class="LineNr">602 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L603" class="LineNr">603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L604" class="LineNr">604 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L605" class="LineNr">605 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L606" class="LineNr">606 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets alloc-id in handle"</span>/imm32 +<span id="L607" class="LineNr">607 </span> 68/push 0x34/imm32 +<span id="L608" class="LineNr">608 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L609" class="LineNr">609 </span> <span class="subxS2Comment"># . . call</span> +<span id="L610" class="LineNr">610 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L611" class="LineNr">611 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L612" class="LineNr">612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L613" class="LineNr">613 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L614" class="LineNr">614 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L615" class="LineNr">615 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets payload in handle"</span>/imm32 +<span id="L616" class="LineNr">616 </span> 53/push-ebx +<span id="L617" class="LineNr">617 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L618" class="LineNr">618 </span> <span class="subxS2Comment"># . . call</span> +<span id="L619" class="LineNr">619 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L620" class="LineNr">620 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L621" class="LineNr">621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L622" class="LineNr">622 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> <span id="L623" class="LineNr">623 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L624" class="LineNr">624 </span> 51/push-ecx -<span id="L625" class="LineNr">625 </span> 68/push 0x200/imm32 -<span id="L626" class="LineNr">626 </span> <span class="subxS2Comment"># . . call</span> -<span id="L627" class="LineNr">627 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L628" class="LineNr">628 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L629" class="LineNr">629 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L630" class="LineNr">630 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L631" class="LineNr">631 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L632" class="LineNr">632 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L633" class="LineNr">633 </span> 68/push 0/imm32 -<span id="L634" class="LineNr">634 </span> 68/push 0/imm32 -<span id="L635" class="LineNr">635 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L636" class="LineNr">636 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L637" class="LineNr">637 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L638" class="LineNr">638 </span> <span class="subxComment"># allocate-array(ad, 3, h)</span> -<span id="L639" class="LineNr">639 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L640" class="LineNr">640 </span> 52/push-edx -<span id="L641" class="LineNr">641 </span> 68/push 3/imm32 -<span id="L642" class="LineNr">642 </span> 51/push-ecx -<span id="L643" class="LineNr">643 </span> <span class="subxS2Comment"># . . call</span> -<span id="L644" class="LineNr">644 </span> e8/call <a href='120allocate.subx.html#L576'>allocate-array</a>/disp32 -<span id="L645" class="LineNr">645 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L646" class="LineNr">646 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L647" class="LineNr">647 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L648" class="LineNr">648 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L649" class="LineNr">649 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L614'>test-allocate-array</a>: sets alloc-id in handle"</span>/imm32 -<span id="L650" class="LineNr">650 </span> 68/push 0x34/imm32 -<span id="L651" class="LineNr">651 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L652" class="LineNr">652 </span> <span class="subxS2Comment"># . . call</span> -<span id="L653" class="LineNr">653 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L654" class="LineNr">654 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L655" class="LineNr">655 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L656" class="LineNr">656 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L657" class="LineNr">657 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L658" class="LineNr">658 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L614'>test-allocate-array</a>: sets payload in handle"</span>/imm32 -<span id="L659" class="LineNr">659 </span> 53/push-ebx -<span id="L660" class="LineNr">660 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L661" class="LineNr">661 </span> <span class="subxS2Comment"># . . call</span> -<span id="L662" class="LineNr">662 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L663" class="LineNr">663 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L664" class="LineNr">664 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L665" class="LineNr">665 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L666" class="LineNr">666 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L667" class="LineNr">667 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L614'>test-allocate-array</a>: sets alloc-id in payload"</span>/imm32 -<span id="L668" class="LineNr">668 </span> 68/push 0x34/imm32 -<span id="L669" class="LineNr">669 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L670" class="LineNr">670 </span> <span class="subxS2Comment"># . . call</span> -<span id="L671" class="LineNr">671 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L672" class="LineNr">672 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L673" class="LineNr">673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L674" class="LineNr">674 </span> <span class="subxComment"># check-ints-equal(h->payload->size, 3, msg)</span> -<span id="L675" class="LineNr">675 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L676" class="LineNr">676 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L614'>test-allocate-array</a>: sets array <a href='307size.subx.html#L5'>size</a> in payload"</span>/imm32 -<span id="L677" class="LineNr">677 </span> 68/push 3/imm32 -<span id="L678" class="LineNr">678 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L679" class="LineNr">679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L680" class="LineNr">680 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L681" class="LineNr">681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L682" class="LineNr">682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L683" class="LineNr">683 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L624" class="LineNr">624 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets alloc-id in payload"</span>/imm32 +<span id="L625" class="LineNr">625 </span> 68/push 0x34/imm32 +<span id="L626" class="LineNr">626 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L627" class="LineNr">627 </span> <span class="subxS2Comment"># . . call</span> +<span id="L628" class="LineNr">628 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L629" class="LineNr">629 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L630" class="LineNr">630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L631" class="LineNr">631 </span> <span class="subxComment"># check-ints-equal(h->payload->size, 3, msg)</span> +<span id="L632" class="LineNr">632 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L633" class="LineNr">633 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets array size in payload"</span>/imm32 +<span id="L634" class="LineNr">634 </span> 68/push 3/imm32 +<span id="L635" class="LineNr">635 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L636" class="LineNr">636 </span> <span class="subxS2Comment"># . . call</span> +<span id="L637" class="LineNr">637 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L638" class="LineNr">638 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L639" class="LineNr">639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L640" class="LineNr">640 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L641" class="LineNr">641 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L642" class="LineNr">642 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: increments Next-alloc-id"</span>/imm32 +<span id="L643" class="LineNr">643 </span> 68/push 0x35/imm32 +<span id="L644" class="LineNr">644 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L645" class="LineNr">645 </span> <span class="subxS2Comment"># . . call</span> +<span id="L646" class="LineNr">646 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L647" class="LineNr">647 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L648" class="LineNr">648 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L649" class="LineNr">649 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id + 4 for array size, msg)</span> +<span id="L650" class="LineNr">650 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L651" class="LineNr">651 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: updates allocation descriptor"</span>/imm32 +<span id="L652" class="LineNr">652 </span> 68/push 0xb/imm32 +<span id="L653" class="LineNr">653 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L654" class="LineNr">654 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L655" class="LineNr">655 </span> 50/push-eax +<span id="L656" class="LineNr">656 </span> <span class="subxS2Comment"># . . call</span> +<span id="L657" class="LineNr">657 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L658" class="LineNr">658 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L659" class="LineNr">659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L660" class="LineNr">660 </span> <span class="subxComment"># clean up</span> +<span id="L661" class="LineNr">661 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L662" class="LineNr">662 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L663" class="LineNr">663 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L664" class="LineNr">664 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L665" class="LineNr">665 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L666" class="LineNr">666 </span> 5d/pop-to-ebp +<span id="L667" class="LineNr">667 </span> c3/return +<span id="L668" class="LineNr">668 </span> +<span id="L669" class="LineNr">669 </span><span class="subxFunction">copy-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T)</span> +<span id="L670" class="LineNr">670 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L671" class="LineNr">671 </span> 55/push-ebp +<span id="L672" class="LineNr">672 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L673" class="LineNr">673 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L674" class="LineNr">674 </span> 50/push-eax +<span id="L675" class="LineNr">675 </span> 51/push-ecx +<span id="L676" class="LineNr">676 </span> 52/push-edx +<span id="L677" class="LineNr">677 </span> 56/push-esi +<span id="L678" class="LineNr">678 </span> <span class="subxComment"># esi = src</span> +<span id="L679" class="LineNr">679 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L680" class="LineNr">680 </span> <span class="subxComment"># var size/ecx: int = src->size+4</span> +<span id="L681" class="LineNr">681 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L682" class="LineNr">682 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L683" class="LineNr">683 </span> <span class="subxComment"># allocate(ad, size, out)</span> <span id="L684" class="LineNr">684 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L685" class="LineNr">685 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L614'>test-allocate-array</a>: increments Next-alloc-id"</span>/imm32 -<span id="L686" class="LineNr">686 </span> 68/push 0x35/imm32 -<span id="L687" class="LineNr">687 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L685" class="LineNr">685 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L686" class="LineNr">686 </span> 51/push-ecx +<span id="L687" class="LineNr">687 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L688" class="LineNr">688 </span> <span class="subxS2Comment"># . . call</span> -<span id="L689" class="LineNr">689 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L689" class="LineNr">689 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 <span id="L690" class="LineNr">690 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L691" class="LineNr">691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L692" class="LineNr">692 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id + 4 for array size, msg)</span> -<span id="L693" class="LineNr">693 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L694" class="LineNr">694 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L614'>test-allocate-array</a>: updates allocation descriptor"</span>/imm32 -<span id="L695" class="LineNr">695 </span> 68/push 0xb/imm32 -<span id="L696" class="LineNr">696 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L697" class="LineNr">697 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L698" class="LineNr">698 </span> 50/push-eax -<span id="L699" class="LineNr">699 </span> <span class="subxS2Comment"># . . call</span> -<span id="L700" class="LineNr">700 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L701" class="LineNr">701 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L702" class="LineNr">702 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L703" class="LineNr">703 </span> <span class="subxComment"># clean up</span> -<span id="L704" class="LineNr">704 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L705" class="LineNr">705 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L706" class="LineNr">706 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L707" class="LineNr">707 </span> 5d/pop-to-ebp -<span id="L708" class="LineNr">708 </span> c3/return -<span id="L709" class="LineNr">709 </span> -<span id="L710" class="LineNr">710 </span><span class="subxFunction">copy-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T)</span> -<span id="L711" class="LineNr">711 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L712" class="LineNr">712 </span> 55/push-ebp -<span id="L713" class="LineNr">713 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L714" class="LineNr">714 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L715" class="LineNr">715 </span> 50/push-eax -<span id="L716" class="LineNr">716 </span> 51/push-ecx -<span id="L717" class="LineNr">717 </span> 52/push-edx -<span id="L718" class="LineNr">718 </span> 56/push-esi -<span id="L719" class="LineNr">719 </span> <span class="subxComment"># esi = src</span> -<span id="L720" class="LineNr">720 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L721" class="LineNr">721 </span> <span class="subxComment"># var size/ecx: int = src->size+4</span> -<span id="L722" class="LineNr">722 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L723" class="LineNr">723 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> -<span id="L724" class="LineNr">724 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L725" class="LineNr">725 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L726" class="LineNr">726 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L727" class="LineNr">727 </span> 51/push-ecx -<span id="L728" class="LineNr">728 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L729" class="LineNr">729 </span> <span class="subxS2Comment"># . . call</span> -<span id="L730" class="LineNr">730 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 -<span id="L731" class="LineNr">731 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L732" class="LineNr">732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L733" class="LineNr">733 </span> <span class="subxComment"># var payload/eax: (addr byte) = out->payload</span> -<span id="L734" class="LineNr">734 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L735" class="LineNr">735 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L736" class="LineNr">736 </span> <span class="subxS1Comment"># . skip payload->allocid</span> -<span id="L737" class="LineNr">737 </span> 05/add-to-eax 4/imm32 -<span id="L738" class="LineNr">738 </span> <span class="subxComment"># var max/ecx: (addr byte) = payload + size</span> -<span id="L739" class="LineNr">739 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L740" class="LineNr">740 </span> <span class="subxComment"># _append-4(payload, max, src, &src->data[src->size])</span> -<span id="L741" class="LineNr">741 </span> <span class="subxS2Comment"># . . push &src->data[src->size]</span> -<span id="L742" class="LineNr">742 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L743" class="LineNr">743 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+4 to edx</span> -<span id="L744" class="LineNr">744 </span> 52/push-edx -<span id="L745" class="LineNr">745 </span> <span class="subxS2Comment"># . . push src</span> -<span id="L746" class="LineNr">746 </span> 56/push-esi -<span id="L747" class="LineNr">747 </span> <span class="subxS2Comment"># . . push max</span> -<span id="L748" class="LineNr">748 </span> 51/push-ecx -<span id="L749" class="LineNr">749 </span> <span class="subxS2Comment"># . . push payload</span> -<span id="L750" class="LineNr">750 </span> 50/push-eax -<span id="L751" class="LineNr">751 </span> <span class="subxS2Comment"># . . call</span> -<span id="L752" class="LineNr">752 </span> e8/call <a href='107trace.subx.html#L897'>_append-4</a>/disp32 -<span id="L753" class="LineNr">753 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L754" class="LineNr">754 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L755" class="LineNr">755 </span><span class="Constant">$copy-array:end</span>: -<span id="L756" class="LineNr">756 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L757" class="LineNr">757 </span> 5e/pop-to-esi -<span id="L758" class="LineNr">758 </span> 5a/pop-to-edx -<span id="L759" class="LineNr">759 </span> 59/pop-to-ecx -<span id="L760" class="LineNr">760 </span> 58/pop-to-eax -<span id="L761" class="LineNr">761 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L762" class="LineNr">762 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L763" class="LineNr">763 </span> 5d/pop-to-ebp -<span id="L764" class="LineNr">764 </span> c3/return -<span id="L765" class="LineNr">765 </span> -<span id="L766" class="LineNr">766 </span><span class="subxTest">test-copy-array</span>: -<span id="L767" class="LineNr">767 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L768" class="LineNr">768 </span> 55/push-ebp -<span id="L769" class="LineNr">769 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L770" class="LineNr">770 </span> <span class="subxComment"># var src/esi: (addr array int) = [3, 4, 5]</span> -<span id="L771" class="LineNr">771 </span> 68/push 5/imm32 -<span id="L772" class="LineNr">772 </span> 68/push 4/imm32 -<span id="L773" class="LineNr">773 </span> 68/push 3/imm32 -<span id="L774" class="LineNr">774 </span> 68/push 0xc/imm32/size -<span id="L775" class="LineNr">775 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L776" class="LineNr">776 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span> -<span id="L777" class="LineNr">777 </span> 68/push 0/imm32/limit -<span id="L778" class="LineNr">778 </span> 68/push 0/imm32/curr -<span id="L779" class="LineNr">779 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L780" class="LineNr">780 </span> <span class="subxComment"># ad = new-segment(512)</span> +<span id="L692" class="LineNr">692 </span> <span class="subxComment"># var payload/eax: (addr byte) = out->payload</span> +<span id="L693" class="LineNr">693 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L694" class="LineNr">694 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L695" class="LineNr">695 </span> <span class="subxS1Comment"># . skip payload->allocid</span> +<span id="L696" class="LineNr">696 </span> 05/add-to-eax 4/imm32 +<span id="L697" class="LineNr">697 </span> <span class="subxComment"># var max/ecx: (addr byte) = payload + size</span> +<span id="L698" class="LineNr">698 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L699" class="LineNr">699 </span> <span class="subxComment"># _append-4(payload, max, src, &src->data[src->size])</span> +<span id="L700" class="LineNr">700 </span> <span class="subxS2Comment"># . . push &src->data[src->size]</span> +<span id="L701" class="LineNr">701 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L702" class="LineNr">702 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+4 to edx</span> +<span id="L703" class="LineNr">703 </span> 52/push-edx +<span id="L704" class="LineNr">704 </span> <span class="subxS2Comment"># . . push src</span> +<span id="L705" class="LineNr">705 </span> 56/push-esi +<span id="L706" class="LineNr">706 </span> <span class="subxS2Comment"># . . push max</span> +<span id="L707" class="LineNr">707 </span> 51/push-ecx +<span id="L708" class="LineNr">708 </span> <span class="subxS2Comment"># . . push payload</span> +<span id="L709" class="LineNr">709 </span> 50/push-eax +<span id="L710" class="LineNr">710 </span> <span class="subxS2Comment"># . . call</span> +<span id="L711" class="LineNr">711 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L712" class="LineNr">712 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L713" class="LineNr">713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L714" class="LineNr">714 </span><span class="Constant">$copy-array:end</span>: +<span id="L715" class="LineNr">715 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L716" class="LineNr">716 </span> 5e/pop-to-esi +<span id="L717" class="LineNr">717 </span> 5a/pop-to-edx +<span id="L718" class="LineNr">718 </span> 59/pop-to-ecx +<span id="L719" class="LineNr">719 </span> 58/pop-to-eax +<span id="L720" class="LineNr">720 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L721" class="LineNr">721 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L722" class="LineNr">722 </span> 5d/pop-to-ebp +<span id="L723" class="LineNr">723 </span> c3/return +<span id="L724" class="LineNr">724 </span> +<span id="L725" class="LineNr">725 </span><span class="subxTest">test-copy-array</span>: +<span id="L726" class="LineNr">726 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L727" class="LineNr">727 </span> 55/push-ebp +<span id="L728" class="LineNr">728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L729" class="LineNr">729 </span> <span class="subxComment"># var src/esi: (addr array int) = [3, 4, 5]</span> +<span id="L730" class="LineNr">730 </span> 68/push 5/imm32 +<span id="L731" class="LineNr">731 </span> 68/push 4/imm32 +<span id="L732" class="LineNr">732 </span> 68/push 3/imm32 +<span id="L733" class="LineNr">733 </span> 68/push 0xc/imm32/size +<span id="L734" class="LineNr">734 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L735" class="LineNr">735 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 32 bytes</span> +<span id="L736" class="LineNr">736 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L737" class="LineNr">737 </span> 89/<- %ecx 4/r32/esp +<span id="L738" class="LineNr">738 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 32</span> +<span id="L739" class="LineNr">739 </span> 81 5/subop/subtract %esp 0x20/imm32 +<span id="L740" class="LineNr">740 </span> 89/<- %edx 4/r32/esp +<span id="L741" class="LineNr">741 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L742" class="LineNr">742 </span> 51/push-ecx +<span id="L743" class="LineNr">743 </span> 52/push-edx +<span id="L744" class="LineNr">744 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L745" class="LineNr">745 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L746" class="LineNr">746 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L747" class="LineNr">747 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L748" class="LineNr">748 </span> 68/push 0/imm32 +<span id="L749" class="LineNr">749 </span> 68/push 0/imm32 +<span id="L750" class="LineNr">750 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L751" class="LineNr">751 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L752" class="LineNr">752 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L753" class="LineNr">753 </span> <span class="subxComment"># copy-array(ad, src, h)</span> +<span id="L754" class="LineNr">754 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L755" class="LineNr">755 </span> 52/push-edx +<span id="L756" class="LineNr">756 </span> 56/push-esi +<span id="L757" class="LineNr">757 </span> 51/push-ecx +<span id="L758" class="LineNr">758 </span> <span class="subxS2Comment"># . . call</span> +<span id="L759" class="LineNr">759 </span> e8/call <a href='120allocate.subx.html#L669'>copy-array</a>/disp32 +<span id="L760" class="LineNr">760 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L761" class="LineNr">761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L762" class="LineNr">762 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L763" class="LineNr">763 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L764" class="LineNr">764 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets alloc-id in handle"</span>/imm32 +<span id="L765" class="LineNr">765 </span> 68/push 0x34/imm32 +<span id="L766" class="LineNr">766 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L767" class="LineNr">767 </span> <span class="subxS2Comment"># . . call</span> +<span id="L768" class="LineNr">768 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L769" class="LineNr">769 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L770" class="LineNr">770 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L771" class="LineNr">771 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L772" class="LineNr">772 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L773" class="LineNr">773 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets payload in handle"</span>/imm32 +<span id="L774" class="LineNr">774 </span> 53/push-ebx +<span id="L775" class="LineNr">775 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L776" class="LineNr">776 </span> <span class="subxS2Comment"># . . call</span> +<span id="L777" class="LineNr">777 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L778" class="LineNr">778 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L779" class="LineNr">779 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L780" class="LineNr">780 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> <span id="L781" class="LineNr">781 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L782" class="LineNr">782 </span> 51/push-ecx -<span id="L783" class="LineNr">783 </span> 68/push 0x200/imm32 -<span id="L784" class="LineNr">784 </span> <span class="subxS2Comment"># . . call</span> -<span id="L785" class="LineNr">785 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L786" class="LineNr">786 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L787" class="LineNr">787 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L788" class="LineNr">788 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L789" class="LineNr">789 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L790" class="LineNr">790 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L791" class="LineNr">791 </span> 68/push 0/imm32 -<span id="L792" class="LineNr">792 </span> 68/push 0/imm32 -<span id="L793" class="LineNr">793 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L794" class="LineNr">794 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L795" class="LineNr">795 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L796" class="LineNr">796 </span> <span class="subxComment"># copy-array(ad, src, h)</span> -<span id="L797" class="LineNr">797 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L798" class="LineNr">798 </span> 52/push-edx -<span id="L799" class="LineNr">799 </span> 56/push-esi -<span id="L800" class="LineNr">800 </span> 51/push-ecx -<span id="L801" class="LineNr">801 </span> <span class="subxS2Comment"># . . call</span> -<span id="L802" class="LineNr">802 </span> e8/call <a href='120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L803" class="LineNr">803 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L804" class="LineNr">804 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L805" class="LineNr">805 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L806" class="LineNr">806 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L807" class="LineNr">807 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L766'>test-copy-array</a>: sets alloc-id in handle"</span>/imm32 -<span id="L808" class="LineNr">808 </span> 68/push 0x34/imm32 -<span id="L809" class="LineNr">809 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L810" class="LineNr">810 </span> <span class="subxS2Comment"># . . call</span> -<span id="L811" class="LineNr">811 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L812" class="LineNr">812 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L813" class="LineNr">813 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L814" class="LineNr">814 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L815" class="LineNr">815 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L816" class="LineNr">816 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L766'>test-copy-array</a>: sets payload in handle"</span>/imm32 -<span id="L817" class="LineNr">817 </span> 53/push-ebx -<span id="L818" class="LineNr">818 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L819" class="LineNr">819 </span> <span class="subxS2Comment"># . . call</span> -<span id="L820" class="LineNr">820 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L821" class="LineNr">821 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L822" class="LineNr">822 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L823" class="LineNr">823 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L824" class="LineNr">824 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L825" class="LineNr">825 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L766'>test-copy-array</a>: sets alloc-id in payload"</span>/imm32 -<span id="L826" class="LineNr">826 </span> 68/push 0x34/imm32 -<span id="L827" class="LineNr">827 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L828" class="LineNr">828 </span> <span class="subxS2Comment"># . . call</span> -<span id="L829" class="LineNr">829 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L830" class="LineNr">830 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L831" class="LineNr">831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L832" class="LineNr">832 </span> <span class="subxComment"># var payload/eax: (addr int) = lookup(h)</span> -<span id="L833" class="LineNr">833 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L834" class="LineNr">834 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L835" class="LineNr">835 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L836" class="LineNr">836 </span> <span class="subxS2Comment"># . . call</span> -<span id="L837" class="LineNr">837 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L838" class="LineNr">838 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L839" class="LineNr">839 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L840" class="LineNr">840 </span> <span class="subxComment"># check-ints-equal(payload->size, 0xc, msg)</span> -<span id="L841" class="LineNr">841 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L842" class="LineNr">842 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L766'>test-copy-array</a>: sets array <a href='307size.subx.html#L5'>size</a> in payload"</span>/imm32 -<span id="L843" class="LineNr">843 </span> 68/push 0xc/imm32 -<span id="L844" class="LineNr">844 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L845" class="LineNr">845 </span> <span class="subxS2Comment"># . . call</span> -<span id="L846" class="LineNr">846 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L847" class="LineNr">847 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L848" class="LineNr">848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L849" class="LineNr">849 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> -<span id="L850" class="LineNr">850 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L851" class="LineNr">851 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L766'>test-copy-array</a>: increments Next-alloc-id"</span>/imm32 -<span id="L852" class="LineNr">852 </span> 68/push 0x35/imm32 -<span id="L853" class="LineNr">853 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> -<span id="L854" class="LineNr">854 </span> <span class="subxS2Comment"># . . call</span> -<span id="L855" class="LineNr">855 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L856" class="LineNr">856 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L857" class="LineNr">857 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L858" class="LineNr">858 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 12 + 4 for alloc-id + 4 for size, msg)</span> -<span id="L859" class="LineNr">859 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L860" class="LineNr">860 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L766'>test-copy-array</a>: updates allocation descriptor"</span>/imm32 -<span id="L861" class="LineNr">861 </span> 68/push 0x14/imm32 -<span id="L862" class="LineNr">862 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L863" class="LineNr">863 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L864" class="LineNr">864 </span> 50/push-eax -<span id="L865" class="LineNr">865 </span> <span class="subxS2Comment"># . . call</span> -<span id="L866" class="LineNr">866 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L867" class="LineNr">867 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L868" class="LineNr">868 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L869" class="LineNr">869 </span> <span class="subxComment"># clean up</span> -<span id="L870" class="LineNr">870 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L871" class="LineNr">871 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L872" class="LineNr">872 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L873" class="LineNr">873 </span> 5d/pop-to-ebp -<span id="L874" class="LineNr">874 </span> c3/return -<span id="L875" class="LineNr">875 </span> -<span id="L876" class="LineNr">876 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> -<span id="L877" class="LineNr">877 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), size: int</span> -<span id="L878" class="LineNr">878 </span> <span class="subxComment"># pseudocode:</span> -<span id="L879" class="LineNr">879 </span> <span class="subxComment"># curr/esi = start</span> -<span id="L880" class="LineNr">880 </span> <span class="subxComment"># i/ecx = 0</span> -<span id="L881" class="LineNr">881 </span> <span class="subxComment"># while true</span> -<span id="L882" class="LineNr">882 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L883" class="LineNr">883 </span> <span class="subxComment"># *curr = 0</span> -<span id="L884" class="LineNr">884 </span> <span class="subxComment"># ++curr</span> -<span id="L885" class="LineNr">885 </span> <span class="subxComment"># ++i</span> -<span id="L886" class="LineNr">886 </span> <span class="subxComment">#</span> -<span id="L887" class="LineNr">887 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L888" class="LineNr">888 </span> 55/push-ebp -<span id="L889" class="LineNr">889 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L890" class="LineNr">890 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L891" class="LineNr">891 </span> 50/push-eax +<span id="L782" class="LineNr">782 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets alloc-id in payload"</span>/imm32 +<span id="L783" class="LineNr">783 </span> 68/push 0x34/imm32 +<span id="L784" class="LineNr">784 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L785" class="LineNr">785 </span> <span class="subxS2Comment"># . . call</span> +<span id="L786" class="LineNr">786 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L787" class="LineNr">787 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L788" class="LineNr">788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L789" class="LineNr">789 </span> <span class="subxComment"># var payload/eax: (addr int) = lookup(h)</span> +<span id="L790" class="LineNr">790 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L791" class="LineNr">791 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L792" class="LineNr">792 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L793" class="LineNr">793 </span> <span class="subxS2Comment"># . . call</span> +<span id="L794" class="LineNr">794 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 +<span id="L795" class="LineNr">795 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L796" class="LineNr">796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L797" class="LineNr">797 </span> <span class="subxComment"># check-ints-equal(payload->size, 0xc, msg)</span> +<span id="L798" class="LineNr">798 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L799" class="LineNr">799 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets array size in payload"</span>/imm32 +<span id="L800" class="LineNr">800 </span> 68/push 0xc/imm32 +<span id="L801" class="LineNr">801 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L802" class="LineNr">802 </span> <span class="subxS2Comment"># . . call</span> +<span id="L803" class="LineNr">803 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L804" class="LineNr">804 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L805" class="LineNr">805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L806" class="LineNr">806 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L807" class="LineNr">807 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L808" class="LineNr">808 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: increments Next-alloc-id"</span>/imm32 +<span id="L809" class="LineNr">809 </span> 68/push 0x35/imm32 +<span id="L810" class="LineNr">810 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L811" class="LineNr">811 </span> <span class="subxS2Comment"># . . call</span> +<span id="L812" class="LineNr">812 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L813" class="LineNr">813 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L814" class="LineNr">814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L815" class="LineNr">815 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 12 + 4 for alloc-id + 4 for size, msg)</span> +<span id="L816" class="LineNr">816 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L817" class="LineNr">817 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: updates allocation descriptor"</span>/imm32 +<span id="L818" class="LineNr">818 </span> 68/push 0x14/imm32 +<span id="L819" class="LineNr">819 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L820" class="LineNr">820 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L821" class="LineNr">821 </span> 50/push-eax +<span id="L822" class="LineNr">822 </span> <span class="subxS2Comment"># . . call</span> +<span id="L823" class="LineNr">823 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L824" class="LineNr">824 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L825" class="LineNr">825 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L826" class="LineNr">826 </span> <span class="subxComment"># clean up</span> +<span id="L827" class="LineNr">827 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L828" class="LineNr">828 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L829" class="LineNr">829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x40/imm32 <span class="subxComment"># add to esp</span> +<span id="L830" class="LineNr">830 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L831" class="LineNr">831 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L832" class="LineNr">832 </span> 5d/pop-to-ebp +<span id="L833" class="LineNr">833 </span> c3/return +<span id="L834" class="LineNr">834 </span> +<span id="L835" class="LineNr">835 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> +<span id="L836" class="LineNr">836 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), size: int</span> +<span id="L837" class="LineNr">837 </span> <span class="subxComment"># pseudocode:</span> +<span id="L838" class="LineNr">838 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L839" class="LineNr">839 </span> <span class="subxComment"># i/ecx = 0</span> +<span id="L840" class="LineNr">840 </span> <span class="subxComment"># while true</span> +<span id="L841" class="LineNr">841 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L842" class="LineNr">842 </span> <span class="subxComment"># *curr = 0</span> +<span id="L843" class="LineNr">843 </span> <span class="subxComment"># ++curr</span> +<span id="L844" class="LineNr">844 </span> <span class="subxComment"># ++i</span> +<span id="L845" class="LineNr">845 </span> <span class="subxComment">#</span> +<span id="L846" class="LineNr">846 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L847" class="LineNr">847 </span> 55/push-ebp +<span id="L848" class="LineNr">848 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L849" class="LineNr">849 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L850" class="LineNr">850 </span> 50/push-eax +<span id="L851" class="LineNr">851 </span> 51/push-ecx +<span id="L852" class="LineNr">852 </span> 52/push-edx +<span id="L853" class="LineNr">853 </span> 56/push-esi +<span id="L854" class="LineNr">854 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L855" class="LineNr">855 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L856" class="LineNr">856 </span> <span class="subxComment"># var i/ecx: int = 0</span> +<span id="L857" class="LineNr">857 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> +<span id="L858" class="LineNr">858 </span> <span class="subxComment"># edx = size</span> +<span id="L859" class="LineNr">859 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L860" class="LineNr">860 </span><span class="Constant">$zero-out:loop</span>: +<span id="L861" class="LineNr">861 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L862" class="LineNr">862 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L863" class="LineNr">863 </span> 7d/jump-if->= $zero-out:end/disp8 +<span id="L864" class="LineNr">864 </span> <span class="subxComment"># *curr = 0</span> +<span id="L865" class="LineNr">865 </span> c6 0/subop/copy-byte 0/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *esi</span> +<span id="L866" class="LineNr">866 </span> <span class="subxComment"># ++curr</span> +<span id="L867" class="LineNr">867 </span> 46/increment-esi +<span id="L868" class="LineNr">868 </span> <span class="subxComment"># ++i</span> +<span id="L869" class="LineNr">869 </span> 41/increment-ecx +<span id="L870" class="LineNr">870 </span> eb/jump $zero-out:<span class="Constant">loop</span>/disp8 +<span id="L871" class="LineNr">871 </span><span class="Constant">$zero-out:end</span>: +<span id="L872" class="LineNr">872 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L873" class="LineNr">873 </span> 5e/pop-to-esi +<span id="L874" class="LineNr">874 </span> 5a/pop-to-edx +<span id="L875" class="LineNr">875 </span> 59/pop-to-ecx +<span id="L876" class="LineNr">876 </span> 58/pop-to-eax +<span id="L877" class="LineNr">877 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L878" class="LineNr">878 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L879" class="LineNr">879 </span> 5d/pop-to-ebp +<span id="L880" class="LineNr">880 </span> c3/return +<span id="L881" class="LineNr">881 </span> +<span id="L882" class="LineNr">882 </span><span class="subxTest">test-zero-out</span>: +<span id="L883" class="LineNr">883 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L884" class="LineNr">884 </span> 55/push-ebp +<span id="L885" class="LineNr">885 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L886" class="LineNr">886 </span> <span class="subxComment"># region/ecx = 34, 35, 36, 37</span> +<span id="L887" class="LineNr">887 </span> 68/push 0x37363534/imm32 +<span id="L888" class="LineNr">888 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L889" class="LineNr">889 </span> <span class="subxComment"># zero-out(ecx, 3)</span> +<span id="L890" class="LineNr">890 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L891" class="LineNr">891 </span> 68/push 3/imm32/size <span id="L892" class="LineNr">892 </span> 51/push-ecx -<span id="L893" class="LineNr">893 </span> 52/push-edx -<span id="L894" class="LineNr">894 </span> 56/push-esi -<span id="L895" class="LineNr">895 </span> <span class="subxComment"># curr/esi = start</span> -<span id="L896" class="LineNr">896 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L897" class="LineNr">897 </span> <span class="subxComment"># var i/ecx: int = 0</span> -<span id="L898" class="LineNr">898 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> -<span id="L899" class="LineNr">899 </span> <span class="subxComment"># edx = size</span> -<span id="L900" class="LineNr">900 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L901" class="LineNr">901 </span><span class="Constant">$zero-out:loop</span>: -<span id="L902" class="LineNr">902 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L903" class="LineNr">903 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L904" class="LineNr">904 </span> 7d/jump-if->= $zero-out:end/disp8 -<span id="L905" class="LineNr">905 </span> <span class="subxComment"># *curr = 0</span> -<span id="L906" class="LineNr">906 </span> c6 0/subop/copy-byte 0/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *esi</span> -<span id="L907" class="LineNr">907 </span> <span class="subxComment"># ++curr</span> -<span id="L908" class="LineNr">908 </span> 46/increment-esi -<span id="L909" class="LineNr">909 </span> <span class="subxComment"># ++i</span> -<span id="L910" class="LineNr">910 </span> 41/increment-ecx -<span id="L911" class="LineNr">911 </span> eb/jump $zero-out:<span class="Constant">loop</span>/disp8 -<span id="L912" class="LineNr">912 </span><span class="Constant">$zero-out:end</span>: -<span id="L913" class="LineNr">913 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L914" class="LineNr">914 </span> 5e/pop-to-esi -<span id="L915" class="LineNr">915 </span> 5a/pop-to-edx -<span id="L916" class="LineNr">916 </span> 59/pop-to-ecx -<span id="L917" class="LineNr">917 </span> 58/pop-to-eax -<span id="L918" class="LineNr">918 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L919" class="LineNr">919 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L920" class="LineNr">920 </span> 5d/pop-to-ebp -<span id="L921" class="LineNr">921 </span> c3/return -<span id="L922" class="LineNr">922 </span> -<span id="L923" class="LineNr">923 </span><span class="subxTest">test-zero-out</span>: -<span id="L924" class="LineNr">924 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L925" class="LineNr">925 </span> 55/push-ebp -<span id="L926" class="LineNr">926 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L927" class="LineNr">927 </span> <span class="subxComment"># region/ecx = 34, 35, 36, 37</span> -<span id="L928" class="LineNr">928 </span> 68/push 0x37363534/imm32 -<span id="L929" class="LineNr">929 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L930" class="LineNr">930 </span> <span class="subxComment"># zero-out(ecx, 3)</span> -<span id="L931" class="LineNr">931 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L932" class="LineNr">932 </span> 68/push 3/imm32/size -<span id="L933" class="LineNr">933 </span> 51/push-ecx -<span id="L934" class="LineNr">934 </span> <span class="subxS2Comment"># . . call</span> -<span id="L935" class="LineNr">935 </span> e8/call <a href='120allocate.subx.html#L877'>zero-out</a>/disp32 -<span id="L936" class="LineNr">936 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L937" class="LineNr">937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L938" class="LineNr">938 </span> <span class="subxComment"># first 3 bytes cleared, fourth left alone</span> -<span id="L939" class="LineNr">939 </span> <span class="subxS1Comment"># . check-ints-equal(*ecx, 0x37000000, msg)</span> -<span id="L940" class="LineNr">940 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L941" class="LineNr">941 </span> 68/push <span class="Constant">"F - test-zero-out"</span>/imm32 -<span id="L942" class="LineNr">942 </span> 68/push 0x37000000/imm32 -<span id="L943" class="LineNr">943 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L944" class="LineNr">944 </span> <span class="subxS2Comment"># . . call</span> -<span id="L945" class="LineNr">945 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L946" class="LineNr">946 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L947" class="LineNr">947 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L948" class="LineNr">948 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L949" class="LineNr">949 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L950" class="LineNr">950 </span> 5d/pop-to-ebp -<span id="L951" class="LineNr">951 </span> c3/return -<span id="L952" class="LineNr">952 </span> -<span id="L953" class="LineNr">953 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L893" class="LineNr">893 </span> <span class="subxS2Comment"># . . call</span> +<span id="L894" class="LineNr">894 </span> e8/call <a href='120allocate.subx.html#L836'>zero-out</a>/disp32 +<span id="L895" class="LineNr">895 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L896" class="LineNr">896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L897" class="LineNr">897 </span> <span class="subxComment"># first 3 bytes cleared, fourth left alone</span> +<span id="L898" class="LineNr">898 </span> <span class="subxS1Comment"># . check-ints-equal(*ecx, 0x37000000, msg)</span> +<span id="L899" class="LineNr">899 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L900" class="LineNr">900 </span> 68/push <span class="Constant">"F - test-zero-out"</span>/imm32 +<span id="L901" class="LineNr">901 </span> 68/push 0x37000000/imm32 +<span id="L902" class="LineNr">902 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L903" class="LineNr">903 </span> <span class="subxS2Comment"># . . call</span> +<span id="L904" class="LineNr">904 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L905" class="LineNr">905 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L906" class="LineNr">906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L907" class="LineNr">907 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L908" class="LineNr">908 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L909" class="LineNr">909 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L910" class="LineNr">910 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L911" class="LineNr">911 </span> 5d/pop-to-ebp +<span id="L912" class="LineNr">912 </span> c3/return +<span id="L913" class="LineNr">913 </span> +<span id="L914" class="LineNr">914 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/121new-stream.subx.html b/html/121new-stream.subx.html index 1102b1d9..efc8a085 100644 --- a/html/121new-stream.subx.html +++ b/html/121new-stream.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -79,7 +79,7 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr"> 20 </span> f7 4/subop/multiply 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># multiply *(ebp+12) into edx:eax</span> <span id="L21" class="LineNr"> 21 </span> <span class="subxS1Comment"># . if overflow abort</span> <span id="L22" class="LineNr"> 22 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare edx</span> -<span id="L23" class="LineNr"> 23 </span> 75/jump-if-!= $new-stream:abort/disp8 +<span id="L23" class="LineNr"> 23 </span> 75/jump-if-!= $new-stream:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 <span id="L24" class="LineNr"> 24 </span> <span class="subxS1Comment"># . edx = elemsize*length</span> <span id="L25" class="LineNr"> 25 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> <span id="L26" class="LineNr"> 26 </span> <span class="subxComment"># var n/eax: int = size + 12 (for read, write and size)</span> @@ -90,7 +90,7 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> 50/push-eax <span id="L32" class="LineNr"> 32 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L33" class="LineNr"> 33 </span> <span class="subxS2Comment"># . . call</span> -<span id="L34" class="LineNr"> 34 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L34" class="LineNr"> 34 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 <span id="L35" class="LineNr"> 35 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L36" class="LineNr"> 36 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># eax = out->payload</span> @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . push args</span> <span id="L46" class="LineNr"> 46 </span> 50/push-eax <span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . call</span> -<span id="L48" class="LineNr"> 48 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L48" class="LineNr"> 48 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L49" class="LineNr"> 49 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L50" class="LineNr"> 50 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L51" class="LineNr"> 51 </span><span class="Constant">$new-stream:end</span>: @@ -116,83 +116,74 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> 5d/pop-to-ebp <span id="L58" class="LineNr"> 58 </span> c3/return <span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span><span class="Constant">$new-stream:abort</span>: -<span id="L61" class="LineNr"> 61 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L63" class="LineNr"> 63 </span> 68/push <span class="Constant">"new-stream: <a href='307size.subx.html#L5'>size</a> too large\n"</span>/imm32 -<span id="L64" class="LineNr"> 64 </span> 68/push 2/imm32/stderr -<span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . call</span> -<span id="L66" class="LineNr"> 66 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L68" class="LineNr"> 68 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L70" class="LineNr"> 70 </span> bb/copy-to-ebx 1/imm32 -<span id="L71" class="LineNr"> 71 </span> e8/call syscall_exit/disp32 -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># never gets here</span> -<span id="L73" class="LineNr"> 73 </span> -<span id="L74" class="LineNr"> 74 </span><span class="subxTest">test-new-stream</span>: -<span id="L75" class="LineNr"> 75 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L76" class="LineNr"> 76 </span> 55/push-ebp -<span id="L77" class="LineNr"> 77 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># var heap/ecx: allocation-descriptor</span> -<span id="L79" class="LineNr"> 79 </span> 68/push 0/imm32/limit -<span id="L80" class="LineNr"> 80 </span> 68/push 0/imm32/curr -<span id="L81" class="LineNr"> 81 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># heap = new-segment(512)</span> -<span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L84" class="LineNr"> 84 </span> 51/push-ecx -<span id="L85" class="LineNr"> 85 </span> 68/push 0x200/imm32 -<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . call</span> -<span id="L87" class="LineNr"> 87 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L89" class="LineNr"> 89 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># var start/edx = ad->curr</span> -<span id="L91" class="LineNr"> 91 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># var h/ebx: (handle stream byte)</span> -<span id="L93" class="LineNr"> 93 </span> 68/push 0/imm32 -<span id="L94" class="LineNr"> 94 </span> 68/push 0/imm32 -<span id="L95" class="LineNr"> 95 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># new-stream(heap, 3, 2, h)</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L98" class="LineNr"> 98 </span> 53/push-ebx -<span id="L99" class="LineNr"> 99 </span> 68/push 2/imm32 -<span id="L100" class="LineNr">100 </span> 68/push 3/imm32 -<span id="L101" class="LineNr">101 </span> 51/push-ecx -<span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . call</span> -<span id="L103" class="LineNr">103 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 -<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L105" class="LineNr">105 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L106" class="LineNr">106 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L107" class="LineNr">107 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> -<span id="L108" class="LineNr">108 </span> <span class="subxComment"># check-ints-equal(eax, edx, msg)</span> -<span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L110" class="LineNr">110 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L74'>test-new-stream</a>: returns current pointer of allocation descriptor"</span>/imm32 -<span id="L111" class="LineNr">111 </span> 52/push-edx -<span id="L112" class="LineNr">112 </span> 50/push-eax -<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . call</span> -<span id="L114" class="LineNr">114 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L116" class="LineNr">116 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L117" class="LineNr">117 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L118" class="LineNr">118 </span> 05/add-to-eax 4/imm32 -<span id="L119" class="LineNr">119 </span> <span class="subxComment"># check-ints-equal(eax->size, 6, msg)</span> -<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L121" class="LineNr">121 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L74'>test-new-stream</a>: sets <a href='307size.subx.html#L5'>size</a> correctly"</span>/imm32 -<span id="L122" class="LineNr">122 </span> 68/push 6/imm32 -<span id="L123" class="LineNr">123 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="subxComment"># push *(eax+8)</span> -<span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . call</span> -<span id="L125" class="LineNr">125 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L127" class="LineNr">127 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L128" class="LineNr">128 </span> <span class="subxComment"># the rest is delegated to clear-stream() so we won't bother checking it</span> -<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L130" class="LineNr">130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L131" class="LineNr">131 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L132" class="LineNr">132 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L133" class="LineNr">133 </span> 5d/pop-to-ebp -<span id="L134" class="LineNr">134 </span> c3/return -<span id="L135" class="LineNr">135 </span> -<span id="L136" class="LineNr">136 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L60" class="LineNr"> 60 </span><span class="Constant">$new-stream:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L61" class="LineNr"> 61 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"new-stream: size too large"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L62" class="LineNr"> 62 </span> { +<span id="L63" class="LineNr"> 63 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L64" class="LineNr"> 64 </span> } +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># never gets here</span> +<span id="L66" class="LineNr"> 66 </span> +<span id="L67" class="LineNr"> 67 </span><span class="subxTest">test-new-stream</span>: +<span id="L68" class="LineNr"> 68 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L69" class="LineNr"> 69 </span> 55/push-ebp +<span id="L70" class="LineNr"> 70 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L73" class="LineNr"> 73 </span> 89/<- %ecx 4/r32/esp +<span id="L74" class="LineNr"> 74 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 32</span> +<span id="L75" class="LineNr"> 75 </span> 81 5/subop/subtract %esp 0x20/imm32 +<span id="L76" class="LineNr"> 76 </span> 89/<- %edx 4/r32/esp +<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L78" class="LineNr"> 78 </span> 51/push-ecx +<span id="L79" class="LineNr"> 79 </span> 52/push-edx +<span id="L80" class="LineNr"> 80 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># var start/edx = ad->curr</span> +<span id="L82" class="LineNr"> 82 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># var h/ebx: (handle stream byte)</span> +<span id="L84" class="LineNr"> 84 </span> 68/push 0/imm32 +<span id="L85" class="LineNr"> 85 </span> 68/push 0/imm32 +<span id="L86" class="LineNr"> 86 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># new-stream(ad, 3, 2, h)</span> +<span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L89" class="LineNr"> 89 </span> 53/push-ebx +<span id="L90" class="LineNr"> 90 </span> 68/push 2/imm32 +<span id="L91" class="LineNr"> 91 </span> 68/push 3/imm32 +<span id="L92" class="LineNr"> 92 </span> 51/push-ecx +<span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . call</span> +<span id="L94" class="LineNr"> 94 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 +<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L96" class="LineNr"> 96 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L98" class="LineNr"> 98 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> +<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># check-ints-equal(eax, edx, msg)</span> +<span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L101" class="LineNr">101 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L67'>test-new-stream</a>: returns current pointer of allocation descriptor"</span>/imm32 +<span id="L102" class="LineNr">102 </span> 52/push-edx +<span id="L103" class="LineNr">103 </span> 50/push-eax +<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . call</span> +<span id="L105" class="LineNr">105 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L107" class="LineNr">107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L108" class="LineNr">108 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L109" class="LineNr">109 </span> 05/add-to-eax 4/imm32 +<span id="L110" class="LineNr">110 </span> <span class="subxComment"># check-ints-equal(eax->size, 6, msg)</span> +<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L112" class="LineNr">112 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L67'>test-new-stream</a>: sets size correctly"</span>/imm32 +<span id="L113" class="LineNr">113 </span> 68/push 6/imm32 +<span id="L114" class="LineNr">114 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="subxComment"># push *(eax+8)</span> +<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . call</span> +<span id="L116" class="LineNr">116 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L117" class="LineNr">117 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L118" class="LineNr">118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L119" class="LineNr">119 </span> <span class="subxComment"># the rest is delegated to clear-stream() so we won't bother checking it</span> +<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L121" class="LineNr">121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># add to esp</span> +<span id="L122" class="LineNr">122 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L123" class="LineNr">123 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L124" class="LineNr">124 </span> 5d/pop-to-ebp +<span id="L125" class="LineNr">125 </span> c3/return +<span id="L126" class="LineNr">126 </span> +<span id="L127" class="LineNr">127 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/123slice.subx.html b/html/123slice.subx.html index 3fed457f..ce8848e1 100644 --- a/html/123slice.subx.html +++ b/html/123slice.subx.html @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -112,7 +112,7 @@ if ('onhashchange' in window) { <span id="L51" class="LineNr"> 51 </span> 68/push 1/imm32 <span id="L52" class="LineNr"> 52 </span> 50/push-eax <span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . call</span> -<span id="L54" class="LineNr"> 54 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L54" class="LineNr"> 54 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L56" class="LineNr"> 56 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . epilogue</span> @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> 68/push 0/imm32 <span id="L81" class="LineNr"> 81 </span> 50/push-eax <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . call</span> -<span id="L83" class="LineNr"> 83 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L83" class="LineNr"> 83 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L85" class="LineNr"> 85 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L86" class="LineNr"> 86 </span> <span class="subxS1Comment"># . epilogue</span> @@ -170,7 +170,7 @@ if ('onhashchange' in window) { <span id="L109" class="LineNr"> 109 </span> 68/push 1/imm32 <span id="L110" class="LineNr"> 110 </span> 50/push-eax <span id="L111" class="LineNr"> 111 </span> <span class="subxS2Comment"># . . call</span> -<span id="L112" class="LineNr"> 112 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L112" class="LineNr"> 112 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L113" class="LineNr"> 113 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L114" class="LineNr"> 114 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L115" class="LineNr"> 115 </span> <span class="subxS1Comment"># . epilogue</span> @@ -295,7 +295,7 @@ if ('onhashchange' in window) { <span id="L234" class="LineNr"> 234 </span> 68/push 1/imm32 <span id="L235" class="LineNr"> 235 </span> 50/push-eax <span id="L236" class="LineNr"> 236 </span> <span class="subxS2Comment"># . . call</span> -<span id="L237" class="LineNr"> 237 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L237" class="LineNr"> 237 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L239" class="LineNr"> 239 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L240" class="LineNr"> 240 </span> <span class="subxS1Comment"># . epilogue</span> @@ -331,7 +331,7 @@ if ('onhashchange' in window) { <span id="L270" class="LineNr"> 270 </span> 68/push 0/imm32 <span id="L271" class="LineNr"> 271 </span> 50/push-eax <span id="L272" class="LineNr"> 272 </span> <span class="subxS2Comment"># . . call</span> -<span id="L273" class="LineNr"> 273 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L273" class="LineNr"> 273 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L274" class="LineNr"> 274 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L275" class="LineNr"> 275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L276" class="LineNr"> 276 </span> <span class="subxS1Comment"># . epilogue</span> @@ -367,7 +367,7 @@ if ('onhashchange' in window) { <span id="L306" class="LineNr"> 306 </span> 68/push 0/imm32 <span id="L307" class="LineNr"> 307 </span> 50/push-eax <span id="L308" class="LineNr"> 308 </span> <span class="subxS2Comment"># . . call</span> -<span id="L309" class="LineNr"> 309 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L309" class="LineNr"> 309 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L310" class="LineNr"> 310 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L311" class="LineNr"> 311 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L312" class="LineNr"> 312 </span> <span class="subxS1Comment"># . epilogue</span> @@ -403,7 +403,7 @@ if ('onhashchange' in window) { <span id="L342" class="LineNr"> 342 </span> 68/push 0/imm32 <span id="L343" class="LineNr"> 343 </span> 50/push-eax <span id="L344" class="LineNr"> 344 </span> <span class="subxS2Comment"># . . call</span> -<span id="L345" class="LineNr"> 345 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L345" class="LineNr"> 345 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L347" class="LineNr"> 347 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L348" class="LineNr"> 348 </span> <span class="subxS1Comment"># . epilogue</span> @@ -434,7 +434,7 @@ if ('onhashchange' in window) { <span id="L373" class="LineNr"> 373 </span> 68/push 0/imm32 <span id="L374" class="LineNr"> 374 </span> 50/push-eax <span id="L375" class="LineNr"> 375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L376" class="LineNr"> 376 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L376" class="LineNr"> 376 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L377" class="LineNr"> 377 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L378" class="LineNr"> 378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L379" class="LineNr"> 379 </span> <span class="subxS1Comment"># . epilogue</span> @@ -470,7 +470,7 @@ if ('onhashchange' in window) { <span id="L409" class="LineNr"> 409 </span> 68/push 0/imm32 <span id="L410" class="LineNr"> 410 </span> 50/push-eax <span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . call</span> -<span id="L412" class="LineNr"> 412 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L412" class="LineNr"> 412 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L413" class="LineNr"> 413 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L414" class="LineNr"> 414 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L415" class="LineNr"> 415 </span> <span class="subxS1Comment"># . epilogue</span> @@ -501,7 +501,7 @@ if ('onhashchange' in window) { <span id="L440" class="LineNr"> 440 </span> 68/push 1/imm32 <span id="L441" class="LineNr"> 441 </span> 50/push-eax <span id="L442" class="LineNr"> 442 </span> <span class="subxS2Comment"># . . call</span> -<span id="L443" class="LineNr"> 443 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L443" class="LineNr"> 443 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L444" class="LineNr"> 444 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L445" class="LineNr"> 445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L446" class="LineNr"> 446 </span> <span class="subxS1Comment"># . epilogue</span> @@ -537,7 +537,7 @@ if ('onhashchange' in window) { <span id="L476" class="LineNr"> 476 </span> 68/push 0/imm32 <span id="L477" class="LineNr"> 477 </span> 50/push-eax <span id="L478" class="LineNr"> 478 </span> <span class="subxS2Comment"># . . call</span> -<span id="L479" class="LineNr"> 479 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L479" class="LineNr"> 479 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L480" class="LineNr"> 480 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L481" class="LineNr"> 481 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L482" class="LineNr"> 482 </span> <span class="subxS1Comment"># . epilogue</span> @@ -661,7 +661,7 @@ if ('onhashchange' in window) { <span id="L600" class="LineNr"> 600 </span> 68/push 1/imm32 <span id="L601" class="LineNr"> 601 </span> 50/push-eax <span id="L602" class="LineNr"> 602 </span> <span class="subxS2Comment"># . . call</span> -<span id="L603" class="LineNr"> 603 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L603" class="LineNr"> 603 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L605" class="LineNr"> 605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L606" class="LineNr"> 606 </span> <span class="subxS1Comment"># . epilogue</span> @@ -697,7 +697,7 @@ if ('onhashchange' in window) { <span id="L636" class="LineNr"> 636 </span> 68/push 1/imm32 <span id="L637" class="LineNr"> 637 </span> 50/push-eax <span id="L638" class="LineNr"> 638 </span> <span class="subxS2Comment"># . . call</span> -<span id="L639" class="LineNr"> 639 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L639" class="LineNr"> 639 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L641" class="LineNr"> 641 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L642" class="LineNr"> 642 </span> <span class="subxS1Comment"># . epilogue</span> @@ -733,7 +733,7 @@ if ('onhashchange' in window) { <span id="L672" class="LineNr"> 672 </span> 68/push 1/imm32 <span id="L673" class="LineNr"> 673 </span> 50/push-eax <span id="L674" class="LineNr"> 674 </span> <span class="subxS2Comment"># . . call</span> -<span id="L675" class="LineNr"> 675 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L675" class="LineNr"> 675 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L676" class="LineNr"> 676 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L677" class="LineNr"> 677 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L678" class="LineNr"> 678 </span> <span class="subxS1Comment"># . epilogue</span> @@ -769,7 +769,7 @@ if ('onhashchange' in window) { <span id="L708" class="LineNr"> 708 </span> 68/push 1/imm32 <span id="L709" class="LineNr"> 709 </span> 50/push-eax <span id="L710" class="LineNr"> 710 </span> <span class="subxS2Comment"># . . call</span> -<span id="L711" class="LineNr"> 711 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L711" class="LineNr"> 711 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L712" class="LineNr"> 712 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L713" class="LineNr"> 713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L714" class="LineNr"> 714 </span> <span class="subxS1Comment"># . epilogue</span> @@ -805,7 +805,7 @@ if ('onhashchange' in window) { <span id="L744" class="LineNr"> 744 </span> 68/push 0/imm32 <span id="L745" class="LineNr"> 745 </span> 50/push-eax <span id="L746" class="LineNr"> 746 </span> <span class="subxS2Comment"># . . call</span> -<span id="L747" class="LineNr"> 747 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L747" class="LineNr"> 747 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L748" class="LineNr"> 748 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L749" class="LineNr"> 749 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L750" class="LineNr"> 750 </span> <span class="subxS1Comment"># . epilogue</span> @@ -841,7 +841,7 @@ if ('onhashchange' in window) { <span id="L780" class="LineNr"> 780 </span> 68/push 0/imm32 <span id="L781" class="LineNr"> 781 </span> 50/push-eax <span id="L782" class="LineNr"> 782 </span> <span class="subxS2Comment"># . . call</span> -<span id="L783" class="LineNr"> 783 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L783" class="LineNr"> 783 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L785" class="LineNr"> 785 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L786" class="LineNr"> 786 </span> <span class="subxS1Comment"># . epilogue</span> @@ -880,7 +880,7 @@ if ('onhashchange' in window) { <span id="L819" class="LineNr"> 819 </span> 73/jump-if-addr>= $write-slice:loop-end/disp8 <span id="L820" class="LineNr"> 820 </span> <span class="subxComment"># if (out->write >= out->size) abort</span> <span id="L821" class="LineNr"> 821 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with edx</span> -<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:abort/disp8 +<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 <span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># out->data[out->write] = *in</span> <span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . AL = *in</span> <span id="L825" class="LineNr"> 825 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> @@ -908,352 +908,201 @@ if ('onhashchange' in window) { <span id="L847" class="LineNr"> 847 </span> 5d/pop-to-ebp <span id="L848" class="LineNr"> 848 </span> c3/return <span id="L849" class="LineNr"> 849 </span> -<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:abort</span>: -<span id="L851" class="LineNr"> 851 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L852" class="LineNr"> 852 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L853" class="LineNr"> 853 </span> 68/push <span class="Constant">"write-slice: out of space"</span>/imm32 -<span id="L854" class="LineNr"> 854 </span> 68/push 2/imm32/stderr -<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . call</span> -<span id="L856" class="LineNr"> 856 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L858" class="LineNr"> 858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L860" class="LineNr"> 860 </span> bb/copy-to-ebx 1/imm32 -<span id="L861" class="LineNr"> 861 </span> e8/call syscall_exit/disp32 -<span id="L862" class="LineNr"> 862 </span> <span class="subxComment"># never gets here</span> -<span id="L863" class="LineNr"> 863 </span> -<span id="L864" class="LineNr"> 864 </span><span class="subxTest">test-write-slice</span>: -<span id="L865" class="LineNr"> 865 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L866" class="LineNr"> 866 </span> 55/push-ebp -<span id="L867" class="LineNr"> 867 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L868" class="LineNr"> 868 </span> <span class="subxComment"># setup</span> -<span id="L869" class="LineNr"> 869 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L870" class="LineNr"> 870 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L871" class="LineNr"> 871 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L872" class="LineNr"> 872 </span> <span class="subxS2Comment"># . . call</span> -<span id="L873" class="LineNr"> 873 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L874" class="LineNr"> 874 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L875" class="LineNr"> 875 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L876" class="LineNr"> 876 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L877" class="LineNr"> 877 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L878" class="LineNr"> 878 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L879" class="LineNr"> 879 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L880" class="LineNr"> 880 </span> 05/add-to-eax 4/imm32 -<span id="L881" class="LineNr"> 881 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L882" class="LineNr"> 882 </span> 51/push-ecx -<span id="L883" class="LineNr"> 883 </span> 50/push-eax -<span id="L884" class="LineNr"> 884 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L885" class="LineNr"> 885 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> -<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L887" class="LineNr"> 887 </span> 51/push-ecx -<span id="L888" class="LineNr"> 888 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L889" class="LineNr"> 889 </span> <span class="subxS2Comment"># . . call</span> -<span id="L890" class="LineNr"> 890 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L892" class="LineNr"> 892 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L893" class="LineNr"> 893 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> -<span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L895" class="LineNr"> 895 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 -<span id="L896" class="LineNr"> 896 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L897" class="LineNr"> 897 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L898" class="LineNr"> 898 </span> <span class="subxS2Comment"># . . call</span> -<span id="L899" class="LineNr"> 899 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L901" class="LineNr"> 901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L903" class="LineNr"> 903 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L904" class="LineNr"> 904 </span> 5d/pop-to-ebp -<span id="L905" class="LineNr"> 905 </span> c3/return -<span id="L906" class="LineNr"> 906 </span> -<span id="L907" class="LineNr"> 907 </span><span class="subxComment"># write a slice to a buffered-file</span> -<span id="L908" class="LineNr"> 908 </span><span class="subxFunction">write-slice-buffered</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr slice)</span> -<span id="L909" class="LineNr"> 909 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L910" class="LineNr"> 910 </span> 55/push-ebp -<span id="L911" class="LineNr"> 911 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L912" class="LineNr"> 912 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L913" class="LineNr"> 913 </span> 50/push-eax -<span id="L914" class="LineNr"> 914 </span> 51/push-ecx -<span id="L915" class="LineNr"> 915 </span> 52/push-edx -<span id="L916" class="LineNr"> 916 </span> 53/push-ebx -<span id="L917" class="LineNr"> 917 </span> 56/push-esi -<span id="L918" class="LineNr"> 918 </span> 57/push-edi -<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># esi = s</span> -<span id="L920" class="LineNr"> 920 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->start</span> -<span id="L922" class="LineNr"> 922 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># var max/esi: (addr byte) = s->end</span> -<span id="L924" class="LineNr"> 924 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to esi</span> -<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># edi = out</span> -<span id="L926" class="LineNr"> 926 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L927" class="LineNr"> 927 </span> <span class="subxComment"># edx = out->size</span> -<span id="L928" class="LineNr"> 928 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+12) to edx</span> -<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># ebx = out->write</span> -<span id="L930" class="LineNr"> 930 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ebx</span> -<span id="L931" class="LineNr"> 931 </span><span class="Constant">$write-slice-buffered:loop</span>: -<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L933" class="LineNr"> 933 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with esi</span> -<span id="L934" class="LineNr"> 934 </span> 73/jump-if-addr>= $write-slice-buffered:loop-end/disp8 -<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (out->write >= out->size) flush and clear out's stream</span> -<span id="L936" class="LineNr"> 936 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with edx</span> -<span id="L937" class="LineNr"> 937 </span> 7c/jump-if-< $write-slice-buffered:to-stream/disp8 -<span id="L938" class="LineNr"> 938 </span> <span class="subxS1Comment"># . persist out->write</span> -<span id="L939" class="LineNr"> 939 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+4)</span> -<span id="L940" class="LineNr"> 940 </span> <span class="subxS1Comment"># . flush(out)</span> -<span id="L941" class="LineNr"> 941 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L942" class="LineNr"> 942 </span> 57/push-edi -<span id="L943" class="LineNr"> 943 </span> <span class="subxS2Comment"># . . call</span> -<span id="L944" class="LineNr"> 944 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L946" class="LineNr"> 946 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L947" class="LineNr"> 947 </span> <span class="subxS1Comment"># . clear-stream(stream = out+4)</span> -<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L949" class="LineNr"> 949 </span> 8d/copy-address 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+4 to eax</span> -<span id="L950" class="LineNr"> 950 </span> 50/push-eax -<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . call</span> -<span id="L952" class="LineNr"> 952 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L954" class="LineNr"> 954 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L955" class="LineNr"> 955 </span> <span class="subxS1Comment"># . out->write must now be 0; update its cache at ebx</span> -<span id="L956" class="LineNr"> 956 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L957" class="LineNr"> 957 </span><span class="Constant">$write-slice-buffered:to-stream</span>: -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># out->data[out->write] = *in</span> -<span id="L959" class="LineNr"> 959 </span> <span class="subxS1Comment"># . AL = *in</span> -<span id="L960" class="LineNr"> 960 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L961" class="LineNr"> 961 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L962" class="LineNr"> 962 </span> <span class="subxS1Comment"># . out->data[out->write] = AL</span> -<span id="L963" class="LineNr"> 963 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 3/index/ebx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ebx+16)</span> -<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># ++out->write</span> -<span id="L965" class="LineNr"> 965 </span> 43/increment-ebx -<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># ++in</span> -<span id="L967" class="LineNr"> 967 </span> 41/increment-ecx -<span id="L968" class="LineNr"> 968 </span> eb/jump $write-slice-buffered:<span class="Constant">loop</span>/disp8 -<span id="L969" class="LineNr"> 969 </span><span class="Constant">$write-slice-buffered:loop-end</span>: -<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># persist necessary variables from registers</span> -<span id="L971" class="LineNr"> 971 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+4)</span> -<span id="L972" class="LineNr"> 972 </span><span class="Constant">$write-slice-buffered:end</span>: -<span id="L973" class="LineNr"> 973 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L974" class="LineNr"> 974 </span> 5f/pop-to-edi -<span id="L975" class="LineNr"> 975 </span> 5e/pop-to-esi -<span id="L976" class="LineNr"> 976 </span> 5b/pop-to-ebx -<span id="L977" class="LineNr"> 977 </span> 5a/pop-to-edx -<span id="L978" class="LineNr"> 978 </span> 59/pop-to-ecx -<span id="L979" class="LineNr"> 979 </span> 58/pop-to-eax -<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L981" class="LineNr"> 981 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L982" class="LineNr"> 982 </span> 5d/pop-to-ebp -<span id="L983" class="LineNr"> 983 </span> c3/return -<span id="L984" class="LineNr"> 984 </span> -<span id="L985" class="LineNr"> 985 </span><span class="subxTest">test-write-slice-buffered</span>: -<span id="L986" class="LineNr"> 986 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L987" class="LineNr"> 987 </span> 55/push-ebp -<span id="L988" class="LineNr"> 988 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L989" class="LineNr"> 989 </span> <span class="subxComment"># setup</span> -<span id="L990" class="LineNr"> 990 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L992" class="LineNr"> 992 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . call</span> -<span id="L994" class="LineNr"> 994 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L995" class="LineNr"> 995 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L996" class="LineNr"> 996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L997" class="LineNr"> 997 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> -<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L999" class="LineNr"> 999 </span> 68/push $_test-buffered-file->buffer/imm32 -<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1001" class="LineNr">1001 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1003" class="LineNr">1003 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1004" class="LineNr">1004 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L1005" class="LineNr">1005 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L1006" class="LineNr">1006 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1007" class="LineNr">1007 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1008" class="LineNr">1008 </span> 05/add-to-eax 4/imm32 -<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L1010" class="LineNr">1010 </span> 51/push-ecx -<span id="L1011" class="LineNr">1011 </span> 50/push-eax -<span id="L1012" class="LineNr">1012 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1013" class="LineNr">1013 </span> <span class="subxComment"># write-slice-buffered(_test-buffered-file, slice)</span> -<span id="L1014" class="LineNr">1014 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1015" class="LineNr">1015 </span> 51/push-ecx -<span id="L1016" class="LineNr">1016 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1018" class="LineNr">1018 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L1019" class="LineNr">1019 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1020" class="LineNr">1020 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1021" class="LineNr">1021 </span> <span class="subxComment"># flush(_test-buffered-file)</span> -<span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1023" class="LineNr">1023 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 -<span id="L1024" class="LineNr">1024 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1025" class="LineNr">1025 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1026" class="LineNr">1026 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1027" class="LineNr">1027 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1028" class="LineNr">1028 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> -<span id="L1029" class="LineNr">1029 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1030" class="LineNr">1030 </span> 68/push <span class="Constant">"F - test-write-slice-buffered"</span>/imm32 -<span id="L1031" class="LineNr">1031 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L1032" class="LineNr">1032 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1034" class="LineNr">1034 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1036" class="LineNr">1036 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1037" class="LineNr">1037 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1038" class="LineNr">1038 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1039" class="LineNr">1039 </span> 5d/pop-to-ebp -<span id="L1040" class="LineNr">1040 </span> c3/return -<span id="L1041" class="LineNr">1041 </span> -<span id="L1042" class="LineNr">1042 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> -<span id="L1043" class="LineNr">1043 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> -<span id="L1044" class="LineNr">1044 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1045" class="LineNr">1045 </span> 55/push-ebp -<span id="L1046" class="LineNr">1046 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1047" class="LineNr">1047 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L851" class="LineNr"> 851 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-slice: out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L852" class="LineNr"> 852 </span> { +<span id="L853" class="LineNr"> 853 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L854" class="LineNr"> 854 </span> } +<span id="L855" class="LineNr"> 855 </span> <span class="subxComment"># never gets here</span> +<span id="L856" class="LineNr"> 856 </span> +<span id="L857" class="LineNr"> 857 </span><span class="subxTest">test-write-slice</span>: +<span id="L858" class="LineNr"> 858 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L859" class="LineNr"> 859 </span> 55/push-ebp +<span id="L860" class="LineNr"> 860 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L861" class="LineNr"> 861 </span> <span class="subxComment"># setup</span> +<span id="L862" class="LineNr"> 862 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L863" class="LineNr"> 863 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L864" class="LineNr"> 864 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . call</span> +<span id="L866" class="LineNr"> 866 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L868" class="LineNr"> 868 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L869" class="LineNr"> 869 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L870" class="LineNr"> 870 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L871" class="LineNr"> 871 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L872" class="LineNr"> 872 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L873" class="LineNr"> 873 </span> 05/add-to-eax 4/imm32 +<span id="L874" class="LineNr"> 874 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L875" class="LineNr"> 875 </span> 51/push-ecx +<span id="L876" class="LineNr"> 876 </span> 50/push-eax +<span id="L877" class="LineNr"> 877 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> +<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L880" class="LineNr"> 880 </span> 51/push-ecx +<span id="L881" class="LineNr"> 881 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . call</span> +<span id="L883" class="LineNr"> 883 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L885" class="LineNr"> 885 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L886" class="LineNr"> 886 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> +<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L888" class="LineNr"> 888 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 +<span id="L889" class="LineNr"> 889 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L890" class="LineNr"> 890 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . call</span> +<span id="L892" class="LineNr"> 892 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L894" class="LineNr"> 894 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L895" class="LineNr"> 895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L896" class="LineNr"> 896 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L897" class="LineNr"> 897 </span> 5d/pop-to-ebp +<span id="L898" class="LineNr"> 898 </span> c3/return +<span id="L899" class="LineNr"> 899 </span> +<span id="L900" class="LineNr"> 900 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> +<span id="L901" class="LineNr"> 901 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> +<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L903" class="LineNr"> 903 </span> 55/push-ebp +<span id="L904" class="LineNr"> 904 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L905" class="LineNr"> 905 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L906" class="LineNr"> 906 </span> 50/push-eax +<span id="L907" class="LineNr"> 907 </span> 51/push-ecx +<span id="L908" class="LineNr"> 908 </span> 52/push-edx +<span id="L909" class="LineNr"> 909 </span> 53/push-ebx +<span id="L910" class="LineNr"> 910 </span> 56/push-esi +<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># esi = in</span> +<span id="L912" class="LineNr"> 912 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> +<span id="L914" class="LineNr"> 914 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> +<span id="L916" class="LineNr"> 916 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> +<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> +<span id="L918" class="LineNr"> 918 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> +<span id="L919" class="LineNr"> 919 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> +<span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L923" class="LineNr"> 923 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L924" class="LineNr"> 924 </span> 51/push-ecx +<span id="L925" class="LineNr"> 925 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L926" class="LineNr"> 926 </span> <span class="subxS2Comment"># . . call</span> +<span id="L927" class="LineNr"> 927 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 +<span id="L928" class="LineNr"> 928 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L929" class="LineNr"> 929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L931" class="LineNr"> 931 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L932" class="LineNr"> 932 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L934" class="LineNr"> 934 </span> 05/add-to-eax 4/imm32 +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L936" class="LineNr"> 936 </span> 3d/compare-eax-and 0/imm32 +<span id="L937" class="LineNr"> 937 </span> 74/jump-if-= $slice-to-string:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># out->size = size-4</span> +<span id="L939" class="LineNr"> 939 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L940" class="LineNr"> 940 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> +<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># save out</span> +<span id="L942" class="LineNr"> 942 </span> 50/push-eax +<span id="L943" class="LineNr"> 943 </span><span class="Constant">$slice-to-string:initialize</span>: +<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> +<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L946" class="LineNr"> 946 </span> 53/push-ebx +<span id="L947" class="LineNr"> 947 </span> 52/push-edx +<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> +<span id="L949" class="LineNr"> 949 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L950" class="LineNr"> 950 </span> 51/push-ecx +<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> +<span id="L952" class="LineNr"> 952 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> +<span id="L953" class="LineNr"> 953 </span> 50/push-eax +<span id="L954" class="LineNr"> 954 </span> <span class="subxS2Comment"># . . call</span> +<span id="L955" class="LineNr"> 955 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 +<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L957" class="LineNr"> 957 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> +<span id="L959" class="LineNr"> 959 </span> 58/pop-to-eax +<span id="L960" class="LineNr"> 960 </span><span class="Constant">$slice-to-string:end</span>: +<span id="L961" class="LineNr"> 961 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L962" class="LineNr"> 962 </span> 5e/pop-to-esi +<span id="L963" class="LineNr"> 963 </span> 5b/pop-to-ebx +<span id="L964" class="LineNr"> 964 </span> 5a/pop-to-edx +<span id="L965" class="LineNr"> 965 </span> 59/pop-to-ecx +<span id="L966" class="LineNr"> 966 </span> 58/pop-to-eax +<span id="L967" class="LineNr"> 967 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L968" class="LineNr"> 968 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L969" class="LineNr"> 969 </span> 5d/pop-to-ebp +<span id="L970" class="LineNr"> 970 </span> c3/return +<span id="L971" class="LineNr"> 971 </span> +<span id="L972" class="LineNr"> 972 </span><span class="Constant">$slice-to-string:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L973" class="LineNr"> 973 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"slice-to-string: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L974" class="LineNr"> 974 </span> { +<span id="L975" class="LineNr"> 975 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L976" class="LineNr"> 976 </span> } +<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># never gets here</span> +<span id="L978" class="LineNr"> 978 </span> +<span id="L979" class="LineNr"> 979 </span><span class="subxTest">test-slice-to-string</span>: +<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L981" class="LineNr"> 981 </span> 55/push-ebp +<span id="L982" class="LineNr"> 982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># var ad/edx: allocation-descriptor containing 16 bytes</span> +<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> +<span id="L985" class="LineNr"> 985 </span> 89/<- %ecx 4/r32/esp +<span id="L986" class="LineNr"> 986 </span> 81 5/subop/subtract %esp 0x10/imm32 +<span id="L987" class="LineNr"> 987 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 0x10</span> +<span id="L988" class="LineNr"> 988 </span> 89/<- %edx 4/r32/esp +<span id="L989" class="LineNr"> 989 </span> <span class="subxS1Comment"># . ad = {start, end}</span> +<span id="L990" class="LineNr"> 990 </span> 51/push-ecx +<span id="L991" class="LineNr"> 991 </span> 52/push-edx +<span id="L992" class="LineNr"> 992 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L994" class="LineNr"> 994 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L995" class="LineNr"> 995 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L996" class="LineNr"> 996 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L997" class="LineNr"> 997 </span> 05/add-to-eax 4/imm32 +<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L999" class="LineNr"> 999 </span> 51/push-ecx +<span id="L1000" class="LineNr">1000 </span> 50/push-eax +<span id="L1001" class="LineNr">1001 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> +<span id="L1003" class="LineNr">1003 </span> 68/push 0/imm32 +<span id="L1004" class="LineNr">1004 </span> 68/push 0/imm32 +<span id="L1005" class="LineNr">1005 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># slice-to-string(ad, slice, h)</span> +<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1008" class="LineNr">1008 </span> 53/push-ebx +<span id="L1009" class="LineNr">1009 </span> 51/push-ecx +<span id="L1010" class="LineNr">1010 </span> 52/push-edx +<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1012" class="LineNr">1012 </span> e8/call <a href='123slice.subx.html#L901'>slice-to-string</a>/disp32 +<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1014" class="LineNr">1014 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1015" class="LineNr">1015 </span> <span class="subxComment"># eax = h->payload</span> +<span id="L1016" class="LineNr">1016 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> +<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L1018" class="LineNr">1018 </span> 05/add-to-eax 4/imm32 +<span id="L1019" class="Folded">1019 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1045" class="LineNr">1045 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> +<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1047" class="LineNr">1047 </span> 68/push <span class="Constant">"Abc"</span>/imm32 <span id="L1048" class="LineNr">1048 </span> 50/push-eax -<span id="L1049" class="LineNr">1049 </span> 51/push-ecx -<span id="L1050" class="LineNr">1050 </span> 52/push-edx -<span id="L1051" class="LineNr">1051 </span> 53/push-ebx -<span id="L1052" class="LineNr">1052 </span> 56/push-esi -<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># esi = in</span> -<span id="L1054" class="LineNr">1054 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L1055" class="LineNr">1055 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> -<span id="L1056" class="LineNr">1056 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L1057" class="LineNr">1057 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> -<span id="L1058" class="LineNr">1058 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> -<span id="L1059" class="LineNr">1059 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> -<span id="L1060" class="LineNr">1060 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> -<span id="L1061" class="LineNr">1061 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> -<span id="L1062" class="LineNr">1062 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> -<span id="L1063" class="LineNr">1063 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L1064" class="LineNr">1064 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1065" class="LineNr">1065 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L1066" class="LineNr">1066 </span> 51/push-ecx -<span id="L1067" class="LineNr">1067 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1068" class="LineNr">1068 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1069" class="LineNr">1069 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 -<span id="L1070" class="LineNr">1070 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1071" class="LineNr">1071 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1072" class="LineNr">1072 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L1073" class="LineNr">1073 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L1074" class="LineNr">1074 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L1075" class="LineNr">1075 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L1076" class="LineNr">1076 </span> 05/add-to-eax 4/imm32 -<span id="L1077" class="LineNr">1077 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L1078" class="LineNr">1078 </span> 3d/compare-eax-and 0/imm32 -<span id="L1079" class="LineNr">1079 </span> 74/jump-if-= $slice-to-string:abort/disp8 -<span id="L1080" class="LineNr">1080 </span> <span class="subxComment"># out->size = size-4</span> -<span id="L1081" class="LineNr">1081 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L1082" class="LineNr">1082 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> -<span id="L1083" class="LineNr">1083 </span> <span class="subxComment"># save out</span> -<span id="L1084" class="LineNr">1084 </span> 50/push-eax -<span id="L1085" class="LineNr">1085 </span><span class="Constant">$slice-to-string:initialize</span>: -<span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> -<span id="L1087" class="LineNr">1087 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1088" class="LineNr">1088 </span> 53/push-ebx -<span id="L1089" class="LineNr">1089 </span> 52/push-edx -<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> -<span id="L1091" class="LineNr">1091 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L1092" class="LineNr">1092 </span> 51/push-ecx -<span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> -<span id="L1094" class="LineNr">1094 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> -<span id="L1095" class="LineNr">1095 </span> 50/push-eax -<span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1097" class="LineNr">1097 </span> e8/call <a href='107trace.subx.html#L897'>_append-4</a>/disp32 -<span id="L1098" class="LineNr">1098 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1099" class="LineNr">1099 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1100" class="LineNr">1100 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> -<span id="L1101" class="LineNr">1101 </span> 58/pop-to-eax -<span id="L1102" class="LineNr">1102 </span><span class="Constant">$slice-to-string:end</span>: -<span id="L1103" class="LineNr">1103 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1104" class="LineNr">1104 </span> 5e/pop-to-esi -<span id="L1105" class="LineNr">1105 </span> 5b/pop-to-ebx -<span id="L1106" class="LineNr">1106 </span> 5a/pop-to-edx -<span id="L1107" class="LineNr">1107 </span> 59/pop-to-ecx -<span id="L1108" class="LineNr">1108 </span> 58/pop-to-eax -<span id="L1109" class="LineNr">1109 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1110" class="LineNr">1110 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1111" class="LineNr">1111 </span> 5d/pop-to-ebp -<span id="L1112" class="LineNr">1112 </span> c3/return -<span id="L1113" class="LineNr">1113 </span> -<span id="L1114" class="LineNr">1114 </span><span class="Constant">$slice-to-string:abort</span>: -<span id="L1115" class="LineNr">1115 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1117" class="LineNr">1117 </span> 68/push <span class="Constant">"slice-to-string: out of space\n"</span>/imm32 -<span id="L1118" class="LineNr">1118 </span> 68/push 2/imm32/stderr -<span id="L1119" class="LineNr">1119 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1120" class="LineNr">1120 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L1121" class="LineNr">1121 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1122" class="LineNr">1122 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1124" class="LineNr">1124 </span> bb/copy-to-ebx 1/imm32 -<span id="L1125" class="LineNr">1125 </span> e8/call syscall_exit/disp32 -<span id="L1126" class="LineNr">1126 </span> <span class="subxComment"># never gets here</span> -<span id="L1127" class="LineNr">1127 </span> -<span id="L1128" class="LineNr">1128 </span><span class="subxTest">test-slice-to-string</span>: -<span id="L1129" class="LineNr">1129 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1130" class="LineNr">1130 </span> 55/push-ebp -<span id="L1131" class="LineNr">1131 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1132" class="LineNr">1132 </span> <span class="subxComment"># var heap/edx: allocation-descriptor</span> -<span id="L1133" class="LineNr">1133 </span> 68/push 0/imm32/limit -<span id="L1134" class="LineNr">1134 </span> 68/push 0/imm32/curr -<span id="L1135" class="LineNr">1135 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1136" class="LineNr">1136 </span> <span class="subxComment"># heap = new-segment(512)</span> -<span id="L1137" class="LineNr">1137 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1138" class="LineNr">1138 </span> 52/push-edx -<span id="L1139" class="LineNr">1139 </span> 68/push 0x200/imm32 -<span id="L1140" class="LineNr">1140 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1141" class="LineNr">1141 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L1142" class="LineNr">1142 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1143" class="LineNr">1143 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1144" class="LineNr">1144 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L1145" class="LineNr">1145 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L1146" class="LineNr">1146 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1147" class="LineNr">1147 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1148" class="LineNr">1148 </span> 05/add-to-eax 4/imm32 -<span id="L1149" class="LineNr">1149 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L1150" class="LineNr">1150 </span> 51/push-ecx -<span id="L1151" class="LineNr">1151 </span> 50/push-eax -<span id="L1152" class="LineNr">1152 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> -<span id="L1154" class="LineNr">1154 </span> 68/push 0/imm32 -<span id="L1155" class="LineNr">1155 </span> 68/push 0/imm32 -<span id="L1156" class="LineNr">1156 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1157" class="LineNr">1157 </span> <span class="subxComment"># slice-to-string(heap, slice, h)</span> -<span id="L1158" class="LineNr">1158 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1159" class="LineNr">1159 </span> 53/push-ebx -<span id="L1160" class="LineNr">1160 </span> 51/push-ecx -<span id="L1161" class="LineNr">1161 </span> 52/push-edx -<span id="L1162" class="LineNr">1162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1163" class="LineNr">1163 </span> e8/call <a href='123slice.subx.html#L1043'>slice-to-string</a>/disp32 -<span id="L1164" class="LineNr">1164 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1165" class="LineNr">1165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1166" class="LineNr">1166 </span> <span class="subxComment"># eax = h->payload</span> -<span id="L1167" class="LineNr">1167 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> -<span id="L1168" class="LineNr">1168 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L1169" class="LineNr">1169 </span> 05/add-to-eax 4/imm32 -<span id="L1170" class="Folded">1170 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1196" class="LineNr">1196 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> -<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1198" class="LineNr">1198 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L1199" class="LineNr">1199 </span> 50/push-eax -<span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1201" class="LineNr">1201 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L1202" class="LineNr">1202 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1203" class="LineNr">1203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1204" class="LineNr">1204 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1206" class="LineNr">1206 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 -<span id="L1207" class="LineNr">1207 </span> 68/push 1/imm32/true -<span id="L1208" class="LineNr">1208 </span> 50/push-eax -<span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1210" class="LineNr">1210 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1212" class="LineNr">1212 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1214" class="LineNr">1214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1216" class="LineNr">1216 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1217" class="LineNr">1217 </span> 5d/pop-to-ebp -<span id="L1218" class="LineNr">1218 </span> c3/return -<span id="L1219" class="LineNr">1219 </span> -<span id="L1220" class="LineNr">1220 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1050" class="LineNr">1050 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 +<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1052" class="LineNr">1052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 +<span id="L1056" class="LineNr">1056 </span> 68/push 1/imm32/true +<span id="L1057" class="LineNr">1057 </span> 50/push-eax +<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1059" class="LineNr">1059 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1061" class="LineNr">1061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1062" class="LineNr">1062 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1064" class="LineNr">1064 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1065" class="LineNr">1065 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1066" class="LineNr">1066 </span> 5d/pop-to-ebp +<span id="L1067" class="LineNr">1067 </span> c3/return +<span id="L1068" class="LineNr">1068 </span> +<span id="L1069" class="LineNr">1069 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/124next-token.subx.html b/html/124next-token.subx.html index f7373845..21660396 100644 --- a/html/124next-token.subx.html +++ b/html/124next-token.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -66,46 +66,46 @@ if ('onhashchange' in window) { <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># extract the next run of characters that are different from a given 'delimiter' (skipping multiple delimiters if necessary)</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># on reaching end of file, return an empty interval</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">next-token</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte, out: (addr slice)</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxFunction">next-token-from-slice</span>: <span class="subxComment"># start: (addr byte), end: (addr byte), delimiter: byte, out: (addr slice)</span> <span id="L11" class="LineNr"> 11 </span> <span class="subxS1Comment"># . prologue</span> <span id="L12" class="LineNr"> 12 </span> 55/push-ebp <span id="L13" class="LineNr"> 13 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L14" class="LineNr"> 14 </span> <span class="subxS1Comment"># . save registers</span> <span id="L15" class="LineNr"> 15 </span> 50/push-eax <span id="L16" class="LineNr"> 16 </span> 51/push-ecx -<span id="L17" class="LineNr"> 17 </span> 56/push-esi +<span id="L17" class="LineNr"> 17 </span> 52/push-edx <span id="L18" class="LineNr"> 18 </span> 57/push-edi -<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># esi = in</span> -<span id="L20" class="LineNr"> 20 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># edi = out</span> -<span id="L22" class="LineNr"> 22 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edi</span> -<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># skip-chars-matching(in, delimiter)</span> -<span id="L24" class="LineNr"> 24 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L25" class="LineNr"> 25 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L26" class="LineNr"> 26 </span> 56/push-esi -<span id="L27" class="LineNr"> 27 </span> <span class="subxS2Comment"># . . call</span> -<span id="L28" class="LineNr"> 28 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 -<span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L30" class="LineNr"> 30 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L32" class="LineNr"> 32 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L33" class="LineNr"> 33 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> -<span id="L34" class="LineNr"> 34 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> -<span id="L35" class="LineNr"> 35 </span> <span class="subxComment"># skip-chars-not-matching(in, delimiter)</span> -<span id="L36" class="LineNr"> 36 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L37" class="LineNr"> 37 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L38" class="LineNr"> 38 </span> 56/push-esi -<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . call</span> -<span id="L40" class="LineNr"> 40 </span> e8/call <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a>/disp32 -<span id="L41" class="LineNr"> 41 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L42" class="LineNr"> 42 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L44" class="LineNr"> 44 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L45" class="LineNr"> 45 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># ecx = end</span> +<span id="L20" class="LineNr"> 20 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># edx = delimiter</span> +<span id="L22" class="LineNr"> 22 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> +<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># edi = out</span> +<span id="L24" class="LineNr"> 24 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to edi</span> +<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># eax = skip-chars-matching-in-slice(start, end, delimiter)</span> +<span id="L26" class="LineNr"> 26 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L27" class="LineNr"> 27 </span> 52/push-edx +<span id="L28" class="LineNr"> 28 </span> 51/push-ecx +<span id="L29" class="LineNr"> 29 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L30" class="LineNr"> 30 </span> <span class="subxS2Comment"># . . call</span> +<span id="L31" class="LineNr"> 31 </span> e8/call <a href='124next-token.subx.html#L651'>skip-chars-matching-in-slice</a>/disp32 +<span id="L32" class="LineNr"> 32 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L33" class="LineNr"> 33 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># out->start = eax</span> +<span id="L35" class="LineNr"> 35 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> +<span id="L36" class="LineNr"> 36 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, end, delimiter)</span> +<span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L38" class="LineNr"> 38 </span> 52/push-edx +<span id="L39" class="LineNr"> 39 </span> 51/push-ecx +<span id="L40" class="LineNr"> 40 </span> 50/push-eax +<span id="L41" class="LineNr"> 41 </span> <span class="subxS2Comment"># . . call</span> +<span id="L42" class="LineNr"> 42 </span> e8/call <a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a>/disp32 +<span id="L43" class="LineNr"> 43 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L44" class="LineNr"> 44 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L45" class="LineNr"> 45 </span> <span class="subxComment"># out->end = eax</span> <span id="L46" class="LineNr"> 46 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> <span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L48" class="LineNr"> 48 </span> 5f/pop-to-edi -<span id="L49" class="LineNr"> 49 </span> 5e/pop-to-esi +<span id="L49" class="LineNr"> 49 </span> 5a/pop-to-edx <span id="L50" class="LineNr"> 50 </span> 59/pop-to-ecx <span id="L51" class="LineNr"> 51 </span> 58/pop-to-eax <span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . epilogue</span> @@ -113,1875 +113,1722 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span> 5d/pop-to-ebp <span id="L55" class="LineNr"> 55 </span> c3/return <span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="subxTest">test-next-token</span>: +<span id="L57" class="LineNr"> 57 </span><span class="subxTest">test-next-token-from-slice</span>: <span id="L58" class="LineNr"> 58 </span> <span class="subxS1Comment"># . prologue</span> <span id="L59" class="LineNr"> 59 </span> 55/push-ebp <span id="L60" class="LineNr"> 60 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># setup</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L64" class="LineNr"> 64 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . call</span> -<span id="L66" class="LineNr"> 66 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L68" class="LineNr"> 68 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L70" class="LineNr"> 70 </span> 68/push 0/imm32/end -<span id="L71" class="LineNr"> 71 </span> 68/push 0/imm32/start -<span id="L72" class="LineNr"> 72 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># write(_test-stream, " ab")</span> -<span id="L74" class="LineNr"> 74 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L75" class="LineNr"> 75 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L76" class="LineNr"> 76 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . call</span> -<span id="L78" class="LineNr"> 78 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L80" class="LineNr"> 80 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># next-token(_test-stream, 0x20/space, slice)</span> +<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># (eax..ecx) = " ab"</span> +<span id="L62" class="LineNr"> 62 </span> b8/copy-to-eax <span class="Constant">" ab"</span>/imm32 +<span id="L63" class="LineNr"> 63 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L64" class="LineNr"> 64 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L65" class="LineNr"> 65 </span> 05/add-to-eax 4/imm32 +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># var out/edi: slice</span> +<span id="L67" class="LineNr"> 67 </span> 68/push 0/imm32/end +<span id="L68" class="LineNr"> 68 </span> 68/push 0/imm32/start +<span id="L69" class="LineNr"> 69 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edi</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># next-token-from-slice(eax, ecx, 0x20/space, out)</span> +<span id="L71" class="LineNr"> 71 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L72" class="LineNr"> 72 </span> 57/push-edi +<span id="L73" class="LineNr"> 73 </span> 68/push 0x20/imm32 +<span id="L74" class="LineNr"> 74 </span> 51/push-ecx +<span id="L75" class="LineNr"> 75 </span> 50/push-eax +<span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> +<span id="L77" class="LineNr"> 77 </span> e8/call <a href='124next-token.subx.html#L10'>next-token-from-slice</a>/disp32 +<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L79" class="LineNr"> 79 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># out->start should be at the 'a'</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . check-ints-equal(out->start - in->start, 2, msg)</span> <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L83" class="LineNr"> 83 </span> 51/push-ecx -<span id="L84" class="LineNr"> 84 </span> 68/push 0x20/imm32 -<span id="L85" class="LineNr"> 85 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . call</span> -<span id="L87" class="LineNr"> 87 </span> e8/call <a href='124next-token.subx.html#L10'>next-token</a>/disp32 -<span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L89" class="LineNr"> 89 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-stream->data, 2, msg)</span> -<span id="L91" class="LineNr"> 91 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-stream, 14, msg)</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L93" class="LineNr"> 93 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L57'>test-next-token</a>: start"</span>/imm32 -<span id="L94" class="LineNr"> 94 </span> 68/push 0xe/imm32 -<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> -<span id="L96" class="LineNr"> 96 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L97" class="LineNr"> 97 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L98" class="LineNr"> 98 </span> 50/push-eax -<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . call</span> -<span id="L100" class="LineNr"> 100 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L101" class="LineNr"> 101 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L102" class="LineNr"> 102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> -<span id="L104" class="LineNr"> 104 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-stream, 16, msg)</span> -<span id="L105" class="LineNr"> 105 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L106" class="LineNr"> 106 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L57'>test-next-token</a>: end"</span>/imm32 -<span id="L107" class="LineNr"> 107 </span> 68/push 0x10/imm32 -<span id="L108" class="LineNr"> 108 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> -<span id="L109" class="LineNr"> 109 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L110" class="LineNr"> 110 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L111" class="LineNr"> 111 </span> 50/push-eax -<span id="L112" class="LineNr"> 112 </span> <span class="subxS2Comment"># . . call</span> -<span id="L113" class="LineNr"> 113 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L114" class="LineNr"> 114 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L115" class="LineNr"> 115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L116" class="LineNr"> 116 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L117" class="LineNr"> 117 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L118" class="LineNr"> 118 </span> 5d/pop-to-ebp -<span id="L119" class="LineNr"> 119 </span> c3/return -<span id="L120" class="LineNr"> 120 </span> -<span id="L121" class="LineNr"> 121 </span><span class="subxTest">test-next-token-Eof</span>: -<span id="L122" class="LineNr"> 122 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L123" class="LineNr"> 123 </span> 55/push-ebp -<span id="L124" class="LineNr"> 124 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># setup</span> -<span id="L126" class="LineNr"> 126 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L127" class="LineNr"> 127 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L128" class="LineNr"> 128 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L129" class="LineNr"> 129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L130" class="LineNr"> 130 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L131" class="LineNr"> 131 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L132" class="LineNr"> 132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L134" class="LineNr"> 134 </span> 68/push 0/imm32/end -<span id="L135" class="LineNr"> 135 </span> 68/push 0/imm32/start -<span id="L136" class="LineNr"> 136 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L137" class="LineNr"> 137 </span> <span class="subxComment"># write nothing to _test-stream</span> -<span id="L138" class="LineNr"> 138 </span> <span class="subxComment"># next-token(_test-stream, 0x20/space, slice)</span> -<span id="L139" class="LineNr"> 139 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L140" class="LineNr"> 140 </span> 51/push-ecx -<span id="L141" class="LineNr"> 141 </span> 68/push 0x20/imm32 -<span id="L142" class="LineNr"> 142 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L143" class="LineNr"> 143 </span> <span class="subxS2Comment"># . . call</span> -<span id="L144" class="LineNr"> 144 </span> e8/call <a href='124next-token.subx.html#L10'>next-token</a>/disp32 -<span id="L145" class="LineNr"> 145 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L146" class="LineNr"> 146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L147" class="LineNr"> 147 </span> <span class="subxComment"># check-ints-equal(slice->end, slice->start, msg)</span> -<span id="L148" class="LineNr"> 148 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L149" class="LineNr"> 149 </span> 68/push <span class="Constant">"F - test-next-token-Eof"</span>/imm32 -<span id="L150" class="LineNr"> 150 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L151" class="LineNr"> 151 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L152" class="LineNr"> 152 </span> <span class="subxS2Comment"># . . call</span> -<span id="L153" class="LineNr"> 153 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L154" class="LineNr"> 154 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L155" class="LineNr"> 155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L156" class="LineNr"> 156 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L157" class="LineNr"> 157 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L158" class="LineNr"> 158 </span> 5d/pop-to-ebp -<span id="L159" class="LineNr"> 159 </span> c3/return -<span id="L160" class="LineNr"> 160 </span> -<span id="L161" class="LineNr"> 161 </span><span class="subxComment"># extract the next run of characters that are different from a given 'delimiter' (skipping multiple delimiters if necessary)</span> -<span id="L162" class="LineNr"> 162 </span><span class="subxComment"># on reaching end of file, return an empty interval</span> -<span id="L163" class="LineNr"> 163 </span><span class="subxFunction">next-token-from-slice</span>: <span class="subxComment"># start: (addr byte), end: (addr byte), delimiter: byte, out: (addr slice)</span> -<span id="L164" class="LineNr"> 164 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L165" class="LineNr"> 165 </span> 55/push-ebp -<span id="L166" class="LineNr"> 166 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L167" class="LineNr"> 167 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L168" class="LineNr"> 168 </span> 50/push-eax -<span id="L169" class="LineNr"> 169 </span> 51/push-ecx -<span id="L170" class="LineNr"> 170 </span> 52/push-edx -<span id="L171" class="LineNr"> 171 </span> 57/push-edi -<span id="L172" class="LineNr"> 172 </span> <span class="subxComment"># ecx = end</span> -<span id="L173" class="LineNr"> 173 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L174" class="LineNr"> 174 </span> <span class="subxComment"># edx = delimiter</span> -<span id="L175" class="LineNr"> 175 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> -<span id="L176" class="LineNr"> 176 </span> <span class="subxComment"># edi = out</span> -<span id="L177" class="LineNr"> 177 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to edi</span> -<span id="L178" class="LineNr"> 178 </span> <span class="subxComment"># eax = skip-chars-matching-in-slice(start, end, delimiter)</span> -<span id="L179" class="LineNr"> 179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L180" class="LineNr"> 180 </span> 52/push-edx -<span id="L181" class="LineNr"> 181 </span> 51/push-ecx -<span id="L182" class="LineNr"> 182 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L183" class="LineNr"> 183 </span> <span class="subxS2Comment"># . . call</span> -<span id="L184" class="LineNr"> 184 </span> e8/call <a href='124next-token.subx.html#L804'>skip-chars-matching-in-slice</a>/disp32 -<span id="L185" class="LineNr"> 185 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L186" class="LineNr"> 186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L187" class="LineNr"> 187 </span> <span class="subxComment"># out->start = eax</span> -<span id="L188" class="LineNr"> 188 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> -<span id="L189" class="LineNr"> 189 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, end, delimiter)</span> -<span id="L190" class="LineNr"> 190 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L191" class="LineNr"> 191 </span> 52/push-edx -<span id="L192" class="LineNr"> 192 </span> 51/push-ecx +<span id="L83" class="LineNr"> 83 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L57'>test-next-token-from-slice</a>: start"</span>/imm32 +<span id="L84" class="LineNr"> 84 </span> 68/push 2/imm32 +<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . push out->start - in->start</span> +<span id="L86" class="LineNr"> 86 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L87" class="LineNr"> 87 </span> 2b/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L88" class="LineNr"> 88 </span> 51/push-ecx +<span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . call</span> +<span id="L90" class="LineNr"> 90 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L92" class="LineNr"> 92 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># out->end should be after the 'b'</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># check-ints-equal(out->end - in->start, 4, msg)</span> +<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L96" class="LineNr"> 96 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L57'>test-next-token-from-slice</a>: end"</span>/imm32 +<span id="L97" class="LineNr"> 97 </span> 68/push 4/imm32 +<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . push out->end - in->start</span> +<span id="L99" class="LineNr"> 99 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> +<span id="L100" class="LineNr"> 100 </span> 2b/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L101" class="LineNr"> 101 </span> 51/push-ecx +<span id="L102" class="LineNr"> 102 </span> <span class="subxS2Comment"># . . call</span> +<span id="L103" class="LineNr"> 103 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L104" class="LineNr"> 104 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L105" class="LineNr"> 105 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L106" class="LineNr"> 106 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L107" class="LineNr"> 107 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L108" class="LineNr"> 108 </span> 5d/pop-to-ebp +<span id="L109" class="LineNr"> 109 </span> c3/return +<span id="L110" class="LineNr"> 110 </span> +<span id="L111" class="LineNr"> 111 </span><span class="subxTest">test-next-token-from-slice-Eof</span>: +<span id="L112" class="LineNr"> 112 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L113" class="LineNr"> 113 </span> 55/push-ebp +<span id="L114" class="LineNr"> 114 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># var out/edi: slice</span> +<span id="L116" class="LineNr"> 116 </span> 68/push 0/imm32/end +<span id="L117" class="LineNr"> 117 </span> 68/push 0/imm32/start +<span id="L118" class="LineNr"> 118 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edi</span> +<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># next-token-from-slice(0, 0, 0x20/space, out)</span> +<span id="L120" class="LineNr"> 120 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L121" class="LineNr"> 121 </span> 57/push-edi +<span id="L122" class="LineNr"> 122 </span> 68/push 0x20/imm32 +<span id="L123" class="LineNr"> 123 </span> 68/push 0/imm32 +<span id="L124" class="LineNr"> 124 </span> 68/push 0/imm32 +<span id="L125" class="LineNr"> 125 </span> <span class="subxS2Comment"># . . call</span> +<span id="L126" class="LineNr"> 126 </span> e8/call <a href='124next-token.subx.html#L10'>next-token-from-slice</a>/disp32 +<span id="L127" class="LineNr"> 127 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L128" class="LineNr"> 128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L129" class="LineNr"> 129 </span> <span class="subxComment"># out should be empty</span> +<span id="L130" class="LineNr"> 130 </span> <span class="subxS1Comment"># . check-ints-equal(out->end - out->start, 0, msg)</span> +<span id="L131" class="LineNr"> 131 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L132" class="LineNr"> 132 </span> 68/push <span class="Constant">"F - test-next-token-from-slice-Eof"</span>/imm32 +<span id="L133" class="LineNr"> 133 </span> 68/push 0/imm32 +<span id="L134" class="LineNr"> 134 </span> <span class="subxS2Comment"># . . push out->start - in->start</span> +<span id="L135" class="LineNr"> 135 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> +<span id="L136" class="LineNr"> 136 </span> 2b/subtract 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edi from ecx</span> +<span id="L137" class="LineNr"> 137 </span> 51/push-ecx +<span id="L138" class="LineNr"> 138 </span> <span class="subxS2Comment"># . . call</span> +<span id="L139" class="LineNr"> 139 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L140" class="LineNr"> 140 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L141" class="LineNr"> 141 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L142" class="LineNr"> 142 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L143" class="LineNr"> 143 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L144" class="LineNr"> 144 </span> 5d/pop-to-ebp +<span id="L145" class="LineNr"> 145 </span> c3/return +<span id="L146" class="LineNr"> 146 </span> +<span id="L147" class="LineNr"> 147 </span><span class="subxTest">test-next-token-from-slice-nothing</span>: +<span id="L148" class="LineNr"> 148 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L149" class="LineNr"> 149 </span> 55/push-ebp +<span id="L150" class="LineNr"> 150 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L151" class="LineNr"> 151 </span> <span class="subxComment"># (eax..ecx) = " "</span> +<span id="L152" class="LineNr"> 152 </span> b8/copy-to-eax <span class="Constant">" "</span>/imm32 +<span id="L153" class="LineNr"> 153 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L154" class="LineNr"> 154 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L155" class="LineNr"> 155 </span> 05/add-to-eax 4/imm32 +<span id="L156" class="LineNr"> 156 </span> <span class="subxComment"># var out/edi: slice</span> +<span id="L157" class="LineNr"> 157 </span> 68/push 0/imm32/end +<span id="L158" class="LineNr"> 158 </span> 68/push 0/imm32/start +<span id="L159" class="LineNr"> 159 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edi</span> +<span id="L160" class="LineNr"> 160 </span> <span class="subxComment"># next-token-from-slice(in, 0x20/space, out)</span> +<span id="L161" class="LineNr"> 161 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L162" class="LineNr"> 162 </span> 57/push-edi +<span id="L163" class="LineNr"> 163 </span> 68/push 0x20/imm32 +<span id="L164" class="LineNr"> 164 </span> 51/push-ecx +<span id="L165" class="LineNr"> 165 </span> 50/push-eax +<span id="L166" class="LineNr"> 166 </span> <span class="subxS2Comment"># . . call</span> +<span id="L167" class="LineNr"> 167 </span> e8/call <a href='124next-token.subx.html#L10'>next-token-from-slice</a>/disp32 +<span id="L168" class="LineNr"> 168 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L169" class="LineNr"> 169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L170" class="LineNr"> 170 </span> <span class="subxComment"># out should be empty</span> +<span id="L171" class="LineNr"> 171 </span> <span class="subxS1Comment"># . check-ints-equal(out->end - out->start, 0, msg)</span> +<span id="L172" class="LineNr"> 172 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L173" class="LineNr"> 173 </span> 68/push <span class="Constant">"F - test-next-token-from-slice-Eof"</span>/imm32 +<span id="L174" class="LineNr"> 174 </span> 68/push 0/imm32 +<span id="L175" class="LineNr"> 175 </span> <span class="subxS2Comment"># . . push out->start - in->start</span> +<span id="L176" class="LineNr"> 176 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> +<span id="L177" class="LineNr"> 177 </span> 2b/subtract 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edi from ecx</span> +<span id="L178" class="LineNr"> 178 </span> 51/push-ecx +<span id="L179" class="LineNr"> 179 </span> <span class="subxS2Comment"># . . call</span> +<span id="L180" class="LineNr"> 180 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L181" class="LineNr"> 181 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L182" class="LineNr"> 182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L183" class="LineNr"> 183 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L184" class="LineNr"> 184 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L185" class="LineNr"> 185 </span> 5d/pop-to-ebp +<span id="L186" class="LineNr"> 186 </span> c3/return +<span id="L187" class="LineNr"> 187 </span> +<span id="L188" class="LineNr"> 188 </span><span class="subxFunction">skip-chars-matching</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte</span> +<span id="L189" class="LineNr"> 189 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L190" class="LineNr"> 190 </span> 55/push-ebp +<span id="L191" class="LineNr"> 191 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L192" class="LineNr"> 192 </span> <span class="subxS1Comment"># . save registers</span> <span id="L193" class="LineNr"> 193 </span> 50/push-eax -<span id="L194" class="LineNr"> 194 </span> <span class="subxS2Comment"># . . call</span> -<span id="L195" class="LineNr"> 195 </span> e8/call <a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a>/disp32 -<span id="L196" class="LineNr"> 196 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L197" class="LineNr"> 197 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L198" class="LineNr"> 198 </span> <span class="subxComment"># out->end = eax</span> -<span id="L199" class="LineNr"> 199 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L200" class="LineNr"> 200 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L201" class="LineNr"> 201 </span> 5f/pop-to-edi -<span id="L202" class="LineNr"> 202 </span> 5a/pop-to-edx -<span id="L203" class="LineNr"> 203 </span> 59/pop-to-ecx -<span id="L204" class="LineNr"> 204 </span> 58/pop-to-eax -<span id="L205" class="LineNr"> 205 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L206" class="LineNr"> 206 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L207" class="LineNr"> 207 </span> 5d/pop-to-ebp -<span id="L208" class="LineNr"> 208 </span> c3/return -<span id="L209" class="LineNr"> 209 </span> -<span id="L210" class="LineNr"> 210 </span><span class="subxTest">test-next-token-from-slice</span>: -<span id="L211" class="LineNr"> 211 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L212" class="LineNr"> 212 </span> 55/push-ebp -<span id="L213" class="LineNr"> 213 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L214" class="LineNr"> 214 </span> <span class="subxComment"># (eax..ecx) = " ab"</span> -<span id="L215" class="LineNr"> 215 </span> b8/copy-to-eax <span class="Constant">" ab"</span>/imm32 -<span id="L216" class="LineNr"> 216 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L217" class="LineNr"> 217 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L218" class="LineNr"> 218 </span> 05/add-to-eax 4/imm32 -<span id="L219" class="LineNr"> 219 </span> <span class="subxComment"># var out/edi: slice</span> -<span id="L220" class="LineNr"> 220 </span> 68/push 0/imm32/end -<span id="L221" class="LineNr"> 221 </span> 68/push 0/imm32/start -<span id="L222" class="LineNr"> 222 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edi</span> -<span id="L223" class="LineNr"> 223 </span> <span class="subxComment"># next-token-from-slice(eax, ecx, 0x20/space, out)</span> -<span id="L224" class="LineNr"> 224 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L225" class="LineNr"> 225 </span> 57/push-edi -<span id="L226" class="LineNr"> 226 </span> 68/push 0x20/imm32 -<span id="L227" class="LineNr"> 227 </span> 51/push-ecx -<span id="L228" class="LineNr"> 228 </span> 50/push-eax -<span id="L229" class="LineNr"> 229 </span> <span class="subxS2Comment"># . . call</span> -<span id="L230" class="LineNr"> 230 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L231" class="LineNr"> 231 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L232" class="LineNr"> 232 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L233" class="LineNr"> 233 </span> <span class="subxComment"># out->start should be at the 'a'</span> -<span id="L234" class="LineNr"> 234 </span> <span class="subxS1Comment"># . check-ints-equal(out->start - in->start, 2, msg)</span> -<span id="L235" class="LineNr"> 235 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L236" class="LineNr"> 236 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L210'>test-next-token-from-slice</a>: start"</span>/imm32 -<span id="L237" class="LineNr"> 237 </span> 68/push 2/imm32 -<span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . push out->start - in->start</span> -<span id="L239" class="LineNr"> 239 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L240" class="LineNr"> 240 </span> 2b/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L241" class="LineNr"> 241 </span> 51/push-ecx -<span id="L242" class="LineNr"> 242 </span> <span class="subxS2Comment"># . . call</span> -<span id="L243" class="LineNr"> 243 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L244" class="LineNr"> 244 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L245" class="LineNr"> 245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L246" class="LineNr"> 246 </span> <span class="subxComment"># out->end should be after the 'b'</span> -<span id="L247" class="LineNr"> 247 </span> <span class="subxComment"># check-ints-equal(out->end - in->start, 4, msg)</span> -<span id="L248" class="LineNr"> 248 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L249" class="LineNr"> 249 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L210'>test-next-token-from-slice</a>: end"</span>/imm32 -<span id="L250" class="LineNr"> 250 </span> 68/push 4/imm32 -<span id="L251" class="LineNr"> 251 </span> <span class="subxS2Comment"># . . push out->end - in->start</span> -<span id="L252" class="LineNr"> 252 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> -<span id="L253" class="LineNr"> 253 </span> 2b/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L254" class="LineNr"> 254 </span> 51/push-ecx -<span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L256" class="LineNr"> 256 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L258" class="LineNr"> 258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L259" class="LineNr"> 259 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L260" class="LineNr"> 260 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L261" class="LineNr"> 261 </span> 5d/pop-to-ebp -<span id="L262" class="LineNr"> 262 </span> c3/return -<span id="L263" class="LineNr"> 263 </span> -<span id="L264" class="LineNr"> 264 </span><span class="subxTest">test-next-token-from-slice-Eof</span>: -<span id="L265" class="LineNr"> 265 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L266" class="LineNr"> 266 </span> 55/push-ebp -<span id="L267" class="LineNr"> 267 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L268" class="LineNr"> 268 </span> <span class="subxComment"># var out/edi: slice</span> -<span id="L269" class="LineNr"> 269 </span> 68/push 0/imm32/end -<span id="L270" class="LineNr"> 270 </span> 68/push 0/imm32/start -<span id="L271" class="LineNr"> 271 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edi</span> -<span id="L272" class="LineNr"> 272 </span> <span class="subxComment"># next-token-from-slice(0, 0, 0x20/space, out)</span> -<span id="L273" class="LineNr"> 273 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L274" class="LineNr"> 274 </span> 57/push-edi -<span id="L275" class="LineNr"> 275 </span> 68/push 0x20/imm32 -<span id="L276" class="LineNr"> 276 </span> 68/push 0/imm32 -<span id="L277" class="LineNr"> 277 </span> 68/push 0/imm32 -<span id="L278" class="LineNr"> 278 </span> <span class="subxS2Comment"># . . call</span> -<span id="L279" class="LineNr"> 279 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L280" class="LineNr"> 280 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L281" class="LineNr"> 281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L282" class="LineNr"> 282 </span> <span class="subxComment"># out should be empty</span> -<span id="L283" class="LineNr"> 283 </span> <span class="subxS1Comment"># . check-ints-equal(out->end - out->start, 0, msg)</span> -<span id="L284" class="LineNr"> 284 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L285" class="LineNr"> 285 </span> 68/push <span class="Constant">"F - test-next-token-from-slice-Eof"</span>/imm32 -<span id="L286" class="LineNr"> 286 </span> 68/push 0/imm32 -<span id="L287" class="LineNr"> 287 </span> <span class="subxS2Comment"># . . push out->start - in->start</span> -<span id="L288" class="LineNr"> 288 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> -<span id="L289" class="LineNr"> 289 </span> 2b/subtract 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edi from ecx</span> -<span id="L290" class="LineNr"> 290 </span> 51/push-ecx -<span id="L291" class="LineNr"> 291 </span> <span class="subxS2Comment"># . . call</span> -<span id="L292" class="LineNr"> 292 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L293" class="LineNr"> 293 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L294" class="LineNr"> 294 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L295" class="LineNr"> 295 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L296" class="LineNr"> 296 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L297" class="LineNr"> 297 </span> 5d/pop-to-ebp -<span id="L298" class="LineNr"> 298 </span> c3/return -<span id="L299" class="LineNr"> 299 </span> -<span id="L300" class="LineNr"> 300 </span><span class="subxTest">test-next-token-from-slice-nothing</span>: -<span id="L301" class="LineNr"> 301 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L302" class="LineNr"> 302 </span> 55/push-ebp -<span id="L303" class="LineNr"> 303 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L304" class="LineNr"> 304 </span> <span class="subxComment"># (eax..ecx) = " "</span> -<span id="L305" class="LineNr"> 305 </span> b8/copy-to-eax <span class="Constant">" "</span>/imm32 -<span id="L306" class="LineNr"> 306 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L307" class="LineNr"> 307 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L308" class="LineNr"> 308 </span> 05/add-to-eax 4/imm32 -<span id="L309" class="LineNr"> 309 </span> <span class="subxComment"># var out/edi: slice</span> -<span id="L310" class="LineNr"> 310 </span> 68/push 0/imm32/end -<span id="L311" class="LineNr"> 311 </span> 68/push 0/imm32/start -<span id="L312" class="LineNr"> 312 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edi</span> -<span id="L313" class="LineNr"> 313 </span> <span class="subxComment"># next-token-from-slice(in, 0x20/space, out)</span> -<span id="L314" class="LineNr"> 314 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L315" class="LineNr"> 315 </span> 57/push-edi -<span id="L316" class="LineNr"> 316 </span> 68/push 0x20/imm32 +<span id="L194" class="LineNr"> 194 </span> 51/push-ecx +<span id="L195" class="LineNr"> 195 </span> 52/push-edx +<span id="L196" class="LineNr"> 196 </span> 53/push-ebx +<span id="L197" class="LineNr"> 197 </span> 56/push-esi +<span id="L198" class="LineNr"> 198 </span> <span class="subxComment"># esi = in</span> +<span id="L199" class="LineNr"> 199 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L200" class="LineNr"> 200 </span> <span class="subxComment"># ecx = in->read</span> +<span id="L201" class="LineNr"> 201 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L202" class="LineNr"> 202 </span> <span class="subxComment"># ebx = in->write</span> +<span id="L203" class="LineNr"> 203 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L204" class="LineNr"> 204 </span> <span class="subxComment"># edx = delimiter</span> +<span id="L205" class="LineNr"> 205 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L206" class="LineNr"> 206 </span><span class="Constant">$skip-chars-matching:loop</span>: +<span id="L207" class="LineNr"> 207 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L208" class="LineNr"> 208 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> +<span id="L209" class="LineNr"> 209 </span> 7d/jump-if->= $skip-chars-matching:end/disp8 +<span id="L210" class="LineNr"> 210 </span> <span class="subxComment"># eax = in->data[in->read]</span> +<span id="L211" class="LineNr"> 211 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L212" class="LineNr"> 212 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L213" class="LineNr"> 213 </span> <span class="subxComment"># if (eax != delimiter) break</span> +<span id="L214" class="LineNr"> 214 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> +<span id="L215" class="LineNr"> 215 </span> 75/jump-if-!= $skip-chars-matching:end/disp8 +<span id="L216" class="LineNr"> 216 </span> <span class="subxComment"># ++in->read</span> +<span id="L217" class="LineNr"> 217 </span> 41/increment-ecx +<span id="L218" class="LineNr"> 218 </span> eb/jump $skip-chars-matching:<span class="Constant">loop</span>/disp8 +<span id="L219" class="LineNr"> 219 </span><span class="Constant">$skip-chars-matching:end</span>: +<span id="L220" class="LineNr"> 220 </span> <span class="subxComment"># persist in->read</span> +<span id="L221" class="LineNr"> 221 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> +<span id="L222" class="LineNr"> 222 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L223" class="LineNr"> 223 </span> 5e/pop-to-esi +<span id="L224" class="LineNr"> 224 </span> 5b/pop-to-ebx +<span id="L225" class="LineNr"> 225 </span> 5a/pop-to-edx +<span id="L226" class="LineNr"> 226 </span> 59/pop-to-ecx +<span id="L227" class="LineNr"> 227 </span> 58/pop-to-eax +<span id="L228" class="LineNr"> 228 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L229" class="LineNr"> 229 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L230" class="LineNr"> 230 </span> 5d/pop-to-ebp +<span id="L231" class="LineNr"> 231 </span> c3/return +<span id="L232" class="LineNr"> 232 </span> +<span id="L233" class="LineNr"> 233 </span><span class="subxTest">test-skip-chars-matching</span>: +<span id="L234" class="LineNr"> 234 </span> <span class="subxComment"># setup</span> +<span id="L235" class="LineNr"> 235 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L236" class="LineNr"> 236 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L237" class="LineNr"> 237 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . call</span> +<span id="L239" class="LineNr"> 239 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L240" class="LineNr"> 240 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L241" class="LineNr"> 241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L242" class="LineNr"> 242 </span> <span class="subxComment"># write(_test-stream, " ab")</span> +<span id="L243" class="LineNr"> 243 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L244" class="LineNr"> 244 </span> 68/push <span class="Constant">" ab"</span>/imm32 +<span id="L245" class="LineNr"> 245 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L246" class="LineNr"> 246 </span> <span class="subxS2Comment"># . . call</span> +<span id="L247" class="LineNr"> 247 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L248" class="LineNr"> 248 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L249" class="LineNr"> 249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L250" class="LineNr"> 250 </span> <span class="subxComment"># skip-chars-matching(_test-stream, 0x20/space)</span> +<span id="L251" class="LineNr"> 251 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L252" class="LineNr"> 252 </span> 68/push 0x20/imm32 +<span id="L253" class="LineNr"> 253 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . call</span> +<span id="L255" class="LineNr"> 255 </span> e8/call <a href='124next-token.subx.html#L188'>skip-chars-matching</a>/disp32 +<span id="L256" class="LineNr"> 256 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L257" class="LineNr"> 257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L258" class="LineNr"> 258 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> +<span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L260" class="LineNr"> 260 </span> 68/push <span class="Constant">"F - test-skip-chars-matching"</span>/imm32 +<span id="L261" class="LineNr"> 261 </span> 68/push 2/imm32 +<span id="L262" class="LineNr"> 262 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> +<span id="L263" class="LineNr"> 263 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L264" class="LineNr"> 264 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L265" class="LineNr"> 265 </span> <span class="subxS2Comment"># . . call</span> +<span id="L266" class="LineNr"> 266 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L268" class="LineNr"> 268 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L269" class="LineNr"> 269 </span> <span class="subxComment"># end</span> +<span id="L270" class="LineNr"> 270 </span> c3/return +<span id="L271" class="LineNr"> 271 </span> +<span id="L272" class="LineNr"> 272 </span><span class="subxTest">test-skip-chars-matching-none</span>: +<span id="L273" class="LineNr"> 273 </span> <span class="subxComment"># setup</span> +<span id="L274" class="LineNr"> 274 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L275" class="LineNr"> 275 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L276" class="LineNr"> 276 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L277" class="LineNr"> 277 </span> <span class="subxS2Comment"># . . call</span> +<span id="L278" class="LineNr"> 278 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L279" class="LineNr"> 279 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L280" class="LineNr"> 280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L281" class="LineNr"> 281 </span> <span class="subxComment"># write(_test-stream, "ab")</span> +<span id="L282" class="LineNr"> 282 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L283" class="LineNr"> 283 </span> 68/push <span class="Constant">"ab"</span>/imm32 +<span id="L284" class="LineNr"> 284 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L285" class="LineNr"> 285 </span> <span class="subxS2Comment"># . . call</span> +<span id="L286" class="LineNr"> 286 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L287" class="LineNr"> 287 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L288" class="LineNr"> 288 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L289" class="LineNr"> 289 </span> <span class="subxComment"># skip-chars-matching(_test-stream, 0x20/space)</span> +<span id="L290" class="LineNr"> 290 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L291" class="LineNr"> 291 </span> 68/push 0x20/imm32 +<span id="L292" class="LineNr"> 292 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L293" class="LineNr"> 293 </span> <span class="subxS2Comment"># . . call</span> +<span id="L294" class="LineNr"> 294 </span> e8/call <a href='124next-token.subx.html#L188'>skip-chars-matching</a>/disp32 +<span id="L295" class="LineNr"> 295 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L296" class="LineNr"> 296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L297" class="LineNr"> 297 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 0, msg)</span> +<span id="L298" class="LineNr"> 298 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L299" class="LineNr"> 299 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-none"</span>/imm32 +<span id="L300" class="LineNr"> 300 </span> 68/push 0/imm32 +<span id="L301" class="LineNr"> 301 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> +<span id="L302" class="LineNr"> 302 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L303" class="LineNr"> 303 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L304" class="LineNr"> 304 </span> <span class="subxS2Comment"># . . call</span> +<span id="L305" class="LineNr"> 305 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L306" class="LineNr"> 306 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L307" class="LineNr"> 307 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L308" class="LineNr"> 308 </span> <span class="subxComment"># end</span> +<span id="L309" class="LineNr"> 309 </span> c3/return +<span id="L310" class="LineNr"> 310 </span> +<span id="L311" class="LineNr"> 311 </span><span class="subxFunction">skip-chars-matching-whitespace</span>: <span class="subxComment"># in: (addr stream byte)</span> +<span id="L312" class="LineNr"> 312 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L313" class="LineNr"> 313 </span> 55/push-ebp +<span id="L314" class="LineNr"> 314 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L315" class="LineNr"> 315 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L316" class="LineNr"> 316 </span> 50/push-eax <span id="L317" class="LineNr"> 317 </span> 51/push-ecx -<span id="L318" class="LineNr"> 318 </span> 50/push-eax -<span id="L319" class="LineNr"> 319 </span> <span class="subxS2Comment"># . . call</span> -<span id="L320" class="LineNr"> 320 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L321" class="LineNr"> 321 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L322" class="LineNr"> 322 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L323" class="LineNr"> 323 </span> <span class="subxComment"># out should be empty</span> -<span id="L324" class="LineNr"> 324 </span> <span class="subxS1Comment"># . check-ints-equal(out->end - out->start, 0, msg)</span> -<span id="L325" class="LineNr"> 325 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L326" class="LineNr"> 326 </span> 68/push <span class="Constant">"F - test-next-token-from-slice-Eof"</span>/imm32 -<span id="L327" class="LineNr"> 327 </span> 68/push 0/imm32 -<span id="L328" class="LineNr"> 328 </span> <span class="subxS2Comment"># . . push out->start - in->start</span> -<span id="L329" class="LineNr"> 329 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> -<span id="L330" class="LineNr"> 330 </span> 2b/subtract 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edi from ecx</span> -<span id="L331" class="LineNr"> 331 </span> 51/push-ecx -<span id="L332" class="LineNr"> 332 </span> <span class="subxS2Comment"># . . call</span> -<span id="L333" class="LineNr"> 333 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L334" class="LineNr"> 334 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L335" class="LineNr"> 335 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L336" class="LineNr"> 336 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L337" class="LineNr"> 337 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L338" class="LineNr"> 338 </span> 5d/pop-to-ebp -<span id="L339" class="LineNr"> 339 </span> c3/return -<span id="L340" class="LineNr"> 340 </span> -<span id="L341" class="LineNr"> 341 </span><span class="subxFunction">skip-chars-matching</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte</span> -<span id="L342" class="LineNr"> 342 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L343" class="LineNr"> 343 </span> 55/push-ebp -<span id="L344" class="LineNr"> 344 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L345" class="LineNr"> 345 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L346" class="LineNr"> 346 </span> 50/push-eax -<span id="L347" class="LineNr"> 347 </span> 51/push-ecx -<span id="L348" class="LineNr"> 348 </span> 52/push-edx -<span id="L349" class="LineNr"> 349 </span> 53/push-ebx -<span id="L350" class="LineNr"> 350 </span> 56/push-esi -<span id="L351" class="LineNr"> 351 </span> <span class="subxComment"># esi = in</span> -<span id="L352" class="LineNr"> 352 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L353" class="LineNr"> 353 </span> <span class="subxComment"># ecx = in->read</span> -<span id="L354" class="LineNr"> 354 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L355" class="LineNr"> 355 </span> <span class="subxComment"># ebx = in->write</span> -<span id="L356" class="LineNr"> 356 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L357" class="LineNr"> 357 </span> <span class="subxComment"># edx = delimiter</span> -<span id="L358" class="LineNr"> 358 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L359" class="LineNr"> 359 </span><span class="Constant">$skip-chars-matching:loop</span>: -<span id="L360" class="LineNr"> 360 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L361" class="LineNr"> 361 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> -<span id="L362" class="LineNr"> 362 </span> 7d/jump-if->= $skip-chars-matching:end/disp8 -<span id="L363" class="LineNr"> 363 </span> <span class="subxComment"># eax = in->data[in->read]</span> -<span id="L364" class="LineNr"> 364 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L365" class="LineNr"> 365 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L366" class="LineNr"> 366 </span> <span class="subxComment"># if (eax != delimiter) break</span> -<span id="L367" class="LineNr"> 367 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> -<span id="L368" class="LineNr"> 368 </span> 75/jump-if-!= $skip-chars-matching:end/disp8 -<span id="L369" class="LineNr"> 369 </span> <span class="subxComment"># ++in->read</span> -<span id="L370" class="LineNr"> 370 </span> 41/increment-ecx -<span id="L371" class="LineNr"> 371 </span> eb/jump $skip-chars-matching:<span class="Constant">loop</span>/disp8 -<span id="L372" class="LineNr"> 372 </span><span class="Constant">$skip-chars-matching:end</span>: -<span id="L373" class="LineNr"> 373 </span> <span class="subxComment"># persist in->read</span> -<span id="L374" class="LineNr"> 374 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> -<span id="L375" class="LineNr"> 375 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L376" class="LineNr"> 376 </span> 5e/pop-to-esi -<span id="L377" class="LineNr"> 377 </span> 5b/pop-to-ebx -<span id="L378" class="LineNr"> 378 </span> 5a/pop-to-edx -<span id="L379" class="LineNr"> 379 </span> 59/pop-to-ecx -<span id="L380" class="LineNr"> 380 </span> 58/pop-to-eax -<span id="L381" class="LineNr"> 381 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L382" class="LineNr"> 382 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L383" class="LineNr"> 383 </span> 5d/pop-to-ebp -<span id="L384" class="LineNr"> 384 </span> c3/return -<span id="L385" class="LineNr"> 385 </span> -<span id="L386" class="LineNr"> 386 </span><span class="subxTest">test-skip-chars-matching</span>: -<span id="L387" class="LineNr"> 387 </span> <span class="subxComment"># setup</span> -<span id="L388" class="LineNr"> 388 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L389" class="LineNr"> 389 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L390" class="LineNr"> 390 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L391" class="LineNr"> 391 </span> <span class="subxS2Comment"># . . call</span> -<span id="L392" class="LineNr"> 392 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L393" class="LineNr"> 393 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L394" class="LineNr"> 394 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L395" class="LineNr"> 395 </span> <span class="subxComment"># write(_test-stream, " ab")</span> -<span id="L396" class="LineNr"> 396 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L397" class="LineNr"> 397 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L398" class="LineNr"> 398 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L399" class="LineNr"> 399 </span> <span class="subxS2Comment"># . . call</span> -<span id="L400" class="LineNr"> 400 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L401" class="LineNr"> 401 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L402" class="LineNr"> 402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L403" class="LineNr"> 403 </span> <span class="subxComment"># skip-chars-matching(_test-stream, 0x20/space)</span> -<span id="L404" class="LineNr"> 404 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L405" class="LineNr"> 405 </span> 68/push 0x20/imm32 -<span id="L406" class="LineNr"> 406 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L407" class="LineNr"> 407 </span> <span class="subxS2Comment"># . . call</span> -<span id="L408" class="LineNr"> 408 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 -<span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L410" class="LineNr"> 410 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L411" class="LineNr"> 411 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> -<span id="L412" class="LineNr"> 412 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L413" class="LineNr"> 413 </span> 68/push <span class="Constant">"F - test-skip-chars-matching"</span>/imm32 -<span id="L414" class="LineNr"> 414 </span> 68/push 2/imm32 -<span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L416" class="LineNr"> 416 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L417" class="LineNr"> 417 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L418" class="LineNr"> 418 </span> <span class="subxS2Comment"># . . call</span> -<span id="L419" class="LineNr"> 419 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L421" class="LineNr"> 421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># end</span> -<span id="L423" class="LineNr"> 423 </span> c3/return -<span id="L424" class="LineNr"> 424 </span> -<span id="L425" class="LineNr"> 425 </span><span class="subxTest">test-skip-chars-matching-none</span>: -<span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># setup</span> -<span id="L427" class="LineNr"> 427 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L429" class="LineNr"> 429 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L430" class="LineNr"> 430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L431" class="LineNr"> 431 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L432" class="LineNr"> 432 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L433" class="LineNr"> 433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L434" class="LineNr"> 434 </span> <span class="subxComment"># write(_test-stream, "ab")</span> -<span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L436" class="LineNr"> 436 </span> 68/push <span class="Constant">"ab"</span>/imm32 -<span id="L437" class="LineNr"> 437 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L438" class="LineNr"> 438 </span> <span class="subxS2Comment"># . . call</span> -<span id="L439" class="LineNr"> 439 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L440" class="LineNr"> 440 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L441" class="LineNr"> 441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L442" class="LineNr"> 442 </span> <span class="subxComment"># skip-chars-matching(_test-stream, 0x20/space)</span> -<span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L444" class="LineNr"> 444 </span> 68/push 0x20/imm32 -<span id="L445" class="LineNr"> 445 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L446" class="LineNr"> 446 </span> <span class="subxS2Comment"># . . call</span> -<span id="L447" class="LineNr"> 447 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 -<span id="L448" class="LineNr"> 448 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L449" class="LineNr"> 449 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L450" class="LineNr"> 450 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 0, msg)</span> -<span id="L451" class="LineNr"> 451 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L452" class="LineNr"> 452 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-none"</span>/imm32 -<span id="L453" class="LineNr"> 453 </span> 68/push 0/imm32 -<span id="L454" class="LineNr"> 454 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L455" class="LineNr"> 455 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L456" class="LineNr"> 456 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L457" class="LineNr"> 457 </span> <span class="subxS2Comment"># . . call</span> -<span id="L458" class="LineNr"> 458 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L459" class="LineNr"> 459 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L460" class="LineNr"> 460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L461" class="LineNr"> 461 </span> <span class="subxComment"># end</span> -<span id="L462" class="LineNr"> 462 </span> c3/return -<span id="L463" class="LineNr"> 463 </span> -<span id="L464" class="LineNr"> 464 </span><span class="subxFunction">skip-chars-matching-whitespace</span>: <span class="subxComment"># in: (addr stream byte)</span> -<span id="L465" class="LineNr"> 465 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L466" class="LineNr"> 466 </span> 55/push-ebp -<span id="L467" class="LineNr"> 467 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L468" class="LineNr"> 468 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L469" class="LineNr"> 469 </span> 50/push-eax -<span id="L470" class="LineNr"> 470 </span> 51/push-ecx -<span id="L471" class="LineNr"> 471 </span> 53/push-ebx -<span id="L472" class="LineNr"> 472 </span> 56/push-esi -<span id="L473" class="LineNr"> 473 </span> <span class="subxComment"># esi = in</span> -<span id="L474" class="LineNr"> 474 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># ecx = in->read</span> -<span id="L476" class="LineNr"> 476 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L477" class="LineNr"> 477 </span> <span class="subxComment"># ebx = in->write</span> -<span id="L478" class="LineNr"> 478 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L479" class="LineNr"> 479 </span><span class="Constant">$skip-chars-matching-whitespace:loop</span>: -<span id="L480" class="LineNr"> 480 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L481" class="LineNr"> 481 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> -<span id="L482" class="LineNr"> 482 </span> 7d/jump-if->= $skip-chars-matching-whitespace:end/disp8 -<span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># eax = in->data[in->read]</span> -<span id="L484" class="LineNr"> 484 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L485" class="LineNr"> 485 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># if (eax == ' ') goto body</span> -<span id="L487" class="LineNr"> 487 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L488" class="LineNr"> 488 </span> 74/jump-if-= $skip-chars-matching-whitespace:body/disp8 -<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># if (eax == '\n') goto body</span> -<span id="L490" class="LineNr"> 490 </span> 3d/compare-eax-and 0x0a/imm32/newline -<span id="L491" class="LineNr"> 491 </span> 74/jump-if-= $skip-chars-matching-whitespace:body/disp8 -<span id="L492" class="LineNr"> 492 </span> <span class="subxComment"># if (eax == '\t') goto body</span> -<span id="L493" class="LineNr"> 493 </span> 3d/compare-eax-and 0x09/imm32/tab -<span id="L494" class="LineNr"> 494 </span> 74/jump-if-= $skip-chars-matching-whitespace:body/disp8 -<span id="L495" class="LineNr"> 495 </span> <span class="subxComment"># if (eax != '\r') break</span> -<span id="L496" class="LineNr"> 496 </span> 3d/compare-eax-and 0x0d/imm32/cr -<span id="L497" class="LineNr"> 497 </span> 75/jump-if-!= $skip-chars-matching-whitespace:end/disp8 -<span id="L498" class="LineNr"> 498 </span><span class="Constant">$skip-chars-matching-whitespace:body</span>: -<span id="L499" class="LineNr"> 499 </span> <span class="subxComment"># ++in->read</span> -<span id="L500" class="LineNr"> 500 </span> 41/increment-ecx -<span id="L501" class="LineNr"> 501 </span> eb/jump $skip-chars-matching-whitespace:<span class="Constant">loop</span>/disp8 -<span id="L502" class="LineNr"> 502 </span><span class="Constant">$skip-chars-matching-whitespace:end</span>: -<span id="L503" class="LineNr"> 503 </span> <span class="subxComment"># persist in->read</span> -<span id="L504" class="LineNr"> 504 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> -<span id="L505" class="LineNr"> 505 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L506" class="LineNr"> 506 </span> 5e/pop-to-esi -<span id="L507" class="LineNr"> 507 </span> 5b/pop-to-ebx -<span id="L508" class="LineNr"> 508 </span> 59/pop-to-ecx -<span id="L509" class="LineNr"> 509 </span> 58/pop-to-eax -<span id="L510" class="LineNr"> 510 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L511" class="LineNr"> 511 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L512" class="LineNr"> 512 </span> 5d/pop-to-ebp -<span id="L513" class="LineNr"> 513 </span> c3/return -<span id="L514" class="LineNr"> 514 </span> -<span id="L515" class="LineNr"> 515 </span><span class="subxTest">test-skip-chars-matching-whitespace</span>: -<span id="L516" class="LineNr"> 516 </span> <span class="subxComment"># setup</span> -<span id="L517" class="LineNr"> 517 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L518" class="LineNr"> 518 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L519" class="LineNr"> 519 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L521" class="LineNr"> 521 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L523" class="LineNr"> 523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L524" class="LineNr"> 524 </span> <span class="subxComment"># write(_test-stream, " \nab")</span> -<span id="L525" class="LineNr"> 525 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L526" class="LineNr"> 526 </span> 68/push <span class="Constant">" \nab"</span>/imm32 -<span id="L527" class="LineNr"> 527 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L528" class="LineNr"> 528 </span> <span class="subxS2Comment"># . . call</span> -<span id="L529" class="LineNr"> 529 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L530" class="LineNr"> 530 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L531" class="LineNr"> 531 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L532" class="LineNr"> 532 </span> <span class="subxComment"># skip-chars-matching-whitespace(_test-stream)</span> -<span id="L533" class="LineNr"> 533 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L534" class="LineNr"> 534 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . call</span> -<span id="L536" class="LineNr"> 536 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 -<span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L538" class="LineNr"> 538 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L539" class="LineNr"> 539 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> -<span id="L540" class="LineNr"> 540 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L541" class="LineNr"> 541 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-whitespace"</span>/imm32 -<span id="L542" class="LineNr"> 542 </span> 68/push 2/imm32 -<span id="L543" class="LineNr"> 543 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L544" class="LineNr"> 544 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L545" class="LineNr"> 545 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L546" class="LineNr"> 546 </span> <span class="subxS2Comment"># . . call</span> -<span id="L547" class="LineNr"> 547 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L548" class="LineNr"> 548 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L549" class="LineNr"> 549 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L550" class="LineNr"> 550 </span> <span class="subxComment"># end</span> -<span id="L551" class="LineNr"> 551 </span> c3/return -<span id="L552" class="LineNr"> 552 </span> -<span id="L553" class="LineNr"> 553 </span><span class="subxComment"># minor fork of 'skip-chars-matching'</span> -<span id="L554" class="LineNr"> 554 </span><span class="subxFunction">skip-chars-not-matching</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte</span> -<span id="L555" class="LineNr"> 555 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L556" class="LineNr"> 556 </span> 55/push-ebp -<span id="L557" class="LineNr"> 557 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L558" class="LineNr"> 558 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L559" class="LineNr"> 559 </span> 50/push-eax -<span id="L560" class="LineNr"> 560 </span> 51/push-ecx -<span id="L561" class="LineNr"> 561 </span> 52/push-edx -<span id="L562" class="LineNr"> 562 </span> 53/push-ebx -<span id="L563" class="LineNr"> 563 </span> 56/push-esi -<span id="L564" class="LineNr"> 564 </span> <span class="subxComment"># esi = in</span> -<span id="L565" class="LineNr"> 565 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L566" class="LineNr"> 566 </span> <span class="subxComment"># ecx = in->read</span> -<span id="L567" class="LineNr"> 567 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L568" class="LineNr"> 568 </span> <span class="subxComment"># ebx = in->write</span> -<span id="L569" class="LineNr"> 569 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L570" class="LineNr"> 570 </span> <span class="subxComment"># edx = delimiter</span> -<span id="L571" class="LineNr"> 571 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L572" class="LineNr"> 572 </span><span class="Constant">$skip-chars-not-matching:loop</span>: -<span id="L573" class="LineNr"> 573 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L574" class="LineNr"> 574 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> -<span id="L575" class="LineNr"> 575 </span> 7d/jump-if->= $skip-chars-not-matching:end/disp8 -<span id="L576" class="LineNr"> 576 </span> <span class="subxComment"># eax = in->data[in->read]</span> -<span id="L577" class="LineNr"> 577 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L578" class="LineNr"> 578 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L579" class="LineNr"> 579 </span> <span class="subxComment"># if (eax == delimiter) break</span> -<span id="L580" class="LineNr"> 580 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> -<span id="L581" class="LineNr"> 581 </span> 74/jump-if-= $skip-chars-not-matching:end/disp8 -<span id="L582" class="LineNr"> 582 </span> <span class="subxComment"># ++in->read</span> -<span id="L583" class="LineNr"> 583 </span> 41/increment-ecx -<span id="L584" class="LineNr"> 584 </span> eb/jump $skip-chars-not-matching:<span class="Constant">loop</span>/disp8 -<span id="L585" class="LineNr"> 585 </span><span class="Constant">$skip-chars-not-matching:end</span>: -<span id="L586" class="LineNr"> 586 </span> <span class="subxComment"># persist in->read</span> -<span id="L587" class="LineNr"> 587 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> -<span id="L588" class="LineNr"> 588 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L589" class="LineNr"> 589 </span> 5e/pop-to-esi -<span id="L590" class="LineNr"> 590 </span> 5b/pop-to-ebx -<span id="L591" class="LineNr"> 591 </span> 5a/pop-to-edx -<span id="L592" class="LineNr"> 592 </span> 59/pop-to-ecx -<span id="L593" class="LineNr"> 593 </span> 58/pop-to-eax -<span id="L594" class="LineNr"> 594 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L595" class="LineNr"> 595 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L596" class="LineNr"> 596 </span> 5d/pop-to-ebp -<span id="L597" class="LineNr"> 597 </span> c3/return -<span id="L598" class="LineNr"> 598 </span> -<span id="L599" class="LineNr"> 599 </span><span class="subxTest">test-skip-chars-not-matching</span>: -<span id="L600" class="LineNr"> 600 </span> <span class="subxComment"># setup</span> -<span id="L601" class="LineNr"> 601 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L602" class="LineNr"> 602 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L603" class="LineNr"> 603 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . call</span> -<span id="L605" class="LineNr"> 605 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L607" class="LineNr"> 607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L608" class="LineNr"> 608 </span> <span class="subxComment"># write(_test-stream, "ab ")</span> -<span id="L609" class="LineNr"> 609 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L610" class="LineNr"> 610 </span> 68/push <span class="Constant">"ab "</span>/imm32 -<span id="L611" class="LineNr"> 611 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L612" class="LineNr"> 612 </span> <span class="subxS2Comment"># . . call</span> -<span id="L613" class="LineNr"> 613 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L614" class="LineNr"> 614 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L615" class="LineNr"> 615 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L616" class="LineNr"> 616 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> -<span id="L617" class="LineNr"> 617 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L618" class="LineNr"> 618 </span> 68/push 0x20/imm32 -<span id="L619" class="LineNr"> 619 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> -<span id="L621" class="LineNr"> 621 </span> e8/call <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a>/disp32 -<span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L623" class="LineNr"> 623 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L624" class="LineNr"> 624 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> -<span id="L625" class="LineNr"> 625 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L626" class="LineNr"> 626 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching"</span>/imm32 -<span id="L627" class="LineNr"> 627 </span> 68/push 2/imm32 -<span id="L628" class="LineNr"> 628 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L629" class="LineNr"> 629 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L630" class="LineNr"> 630 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L631" class="LineNr"> 631 </span> <span class="subxS2Comment"># . . call</span> -<span id="L632" class="LineNr"> 632 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L633" class="LineNr"> 633 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L634" class="LineNr"> 634 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># end</span> -<span id="L636" class="LineNr"> 636 </span> c3/return -<span id="L637" class="LineNr"> 637 </span> -<span id="L638" class="LineNr"> 638 </span><span class="subxTest">test-skip-chars-not-matching-none</span>: -<span id="L639" class="LineNr"> 639 </span> <span class="subxComment"># setup</span> -<span id="L640" class="LineNr"> 640 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L642" class="LineNr"> 642 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L643" class="LineNr"> 643 </span> <span class="subxS2Comment"># . . call</span> -<span id="L644" class="LineNr"> 644 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L646" class="LineNr"> 646 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L647" class="LineNr"> 647 </span> <span class="subxComment"># write(_test-stream, " ab")</span> -<span id="L648" class="LineNr"> 648 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L649" class="LineNr"> 649 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L650" class="LineNr"> 650 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . call</span> -<span id="L652" class="LineNr"> 652 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L654" class="LineNr"> 654 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L655" class="LineNr"> 655 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> -<span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L657" class="LineNr"> 657 </span> 68/push 0x20/imm32 -<span id="L658" class="LineNr"> 658 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L659" class="LineNr"> 659 </span> <span class="subxS2Comment"># . . call</span> -<span id="L660" class="LineNr"> 660 </span> e8/call <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a>/disp32 -<span id="L661" class="LineNr"> 661 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L662" class="LineNr"> 662 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L663" class="LineNr"> 663 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 0, msg)</span> -<span id="L664" class="LineNr"> 664 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L665" class="LineNr"> 665 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-none"</span>/imm32 -<span id="L666" class="LineNr"> 666 </span> 68/push 0/imm32 -<span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L668" class="LineNr"> 668 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L669" class="LineNr"> 669 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L670" class="LineNr"> 670 </span> <span class="subxS2Comment"># . . call</span> -<span id="L671" class="LineNr"> 671 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L673" class="LineNr"> 673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L674" class="LineNr"> 674 </span> <span class="subxComment"># end</span> -<span id="L675" class="LineNr"> 675 </span> c3/return -<span id="L676" class="LineNr"> 676 </span> -<span id="L677" class="LineNr"> 677 </span><span class="subxTest">test-skip-chars-not-matching-all</span>: -<span id="L678" class="LineNr"> 678 </span> <span class="subxComment"># setup</span> -<span id="L679" class="LineNr"> 679 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L680" class="LineNr"> 680 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L681" class="LineNr"> 681 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L682" class="LineNr"> 682 </span> <span class="subxS2Comment"># . . call</span> -<span id="L683" class="LineNr"> 683 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L685" class="LineNr"> 685 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L686" class="LineNr"> 686 </span> <span class="subxComment"># write(_test-stream, "ab")</span> -<span id="L687" class="LineNr"> 687 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L688" class="LineNr"> 688 </span> 68/push <span class="Constant">"ab"</span>/imm32 -<span id="L689" class="LineNr"> 689 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . call</span> -<span id="L691" class="LineNr"> 691 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L693" class="LineNr"> 693 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L694" class="LineNr"> 694 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> -<span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L696" class="LineNr"> 696 </span> 68/push 0x20/imm32 -<span id="L697" class="LineNr"> 697 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L698" class="LineNr"> 698 </span> <span class="subxS2Comment"># . . call</span> -<span id="L699" class="LineNr"> 699 </span> e8/call <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a>/disp32 -<span id="L700" class="LineNr"> 700 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L701" class="LineNr"> 701 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L702" class="LineNr"> 702 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> -<span id="L703" class="LineNr"> 703 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L704" class="LineNr"> 704 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-all"</span>/imm32 -<span id="L705" class="LineNr"> 705 </span> 68/push 2/imm32 -<span id="L706" class="LineNr"> 706 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L707" class="LineNr"> 707 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L708" class="LineNr"> 708 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . call</span> -<span id="L710" class="LineNr"> 710 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L712" class="LineNr"> 712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L713" class="LineNr"> 713 </span> <span class="subxComment"># end</span> -<span id="L714" class="LineNr"> 714 </span> c3/return -<span id="L715" class="LineNr"> 715 </span> -<span id="L716" class="LineNr"> 716 </span><span class="subxFunction">skip-chars-not-matching-whitespace</span>: <span class="subxComment"># in: (addr stream byte)</span> -<span id="L717" class="LineNr"> 717 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L718" class="LineNr"> 718 </span> 55/push-ebp -<span id="L719" class="LineNr"> 719 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L720" class="LineNr"> 720 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L721" class="LineNr"> 721 </span> 50/push-eax -<span id="L722" class="LineNr"> 722 </span> 51/push-ecx -<span id="L723" class="LineNr"> 723 </span> 53/push-ebx -<span id="L724" class="LineNr"> 724 </span> 56/push-esi -<span id="L725" class="LineNr"> 725 </span> <span class="subxComment"># esi = in</span> -<span id="L726" class="LineNr"> 726 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L727" class="LineNr"> 727 </span> <span class="subxComment"># ecx = in->read</span> -<span id="L728" class="LineNr"> 728 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L729" class="LineNr"> 729 </span> <span class="subxComment"># ebx = in->write</span> -<span id="L730" class="LineNr"> 730 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L731" class="LineNr"> 731 </span><span class="Constant">$skip-chars-not-matching-whitespace:loop</span>: -<span id="L732" class="LineNr"> 732 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L733" class="LineNr"> 733 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> -<span id="L734" class="LineNr"> 734 </span> 7d/jump-if->= $skip-chars-not-matching-whitespace:end/disp8 -<span id="L735" class="LineNr"> 735 </span> <span class="subxComment"># eax = in->data[in->read]</span> -<span id="L736" class="LineNr"> 736 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L737" class="LineNr"> 737 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L738" class="LineNr"> 738 </span> <span class="subxComment"># if (eax == ' ') break</span> -<span id="L739" class="LineNr"> 739 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L740" class="LineNr"> 740 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 -<span id="L741" class="LineNr"> 741 </span> <span class="subxComment"># if (eax == '\n') break</span> -<span id="L742" class="LineNr"> 742 </span> 3d/compare-eax-and 0x0a/imm32/newline -<span id="L743" class="LineNr"> 743 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 -<span id="L744" class="LineNr"> 744 </span> <span class="subxComment"># if (eax == '\t') break</span> -<span id="L745" class="LineNr"> 745 </span> 3d/compare-eax-and 0x09/imm32/tab -<span id="L746" class="LineNr"> 746 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 -<span id="L747" class="LineNr"> 747 </span> <span class="subxComment"># if (eax == '\r') break</span> -<span id="L748" class="LineNr"> 748 </span> 3d/compare-eax-and 0x0d/imm32/cr -<span id="L749" class="LineNr"> 749 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 -<span id="L750" class="LineNr"> 750 </span> <span class="subxComment"># ++in->read</span> -<span id="L751" class="LineNr"> 751 </span> 41/increment-ecx -<span id="L752" class="LineNr"> 752 </span> eb/jump $skip-chars-not-matching-whitespace:<span class="Constant">loop</span>/disp8 -<span id="L753" class="LineNr"> 753 </span><span class="Constant">$skip-chars-not-matching-whitespace:end</span>: -<span id="L754" class="LineNr"> 754 </span> <span class="subxComment"># persist in->read</span> -<span id="L755" class="LineNr"> 755 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> -<span id="L756" class="LineNr"> 756 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L757" class="LineNr"> 757 </span> 5e/pop-to-esi -<span id="L758" class="LineNr"> 758 </span> 5b/pop-to-ebx -<span id="L759" class="LineNr"> 759 </span> 59/pop-to-ecx -<span id="L760" class="LineNr"> 760 </span> 58/pop-to-eax -<span id="L761" class="LineNr"> 761 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L762" class="LineNr"> 762 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L763" class="LineNr"> 763 </span> 5d/pop-to-ebp -<span id="L764" class="LineNr"> 764 </span> c3/return -<span id="L765" class="LineNr"> 765 </span> -<span id="L766" class="LineNr"> 766 </span><span class="subxTest">test-skip-chars-not-matching-whitespace</span>: -<span id="L767" class="LineNr"> 767 </span> <span class="subxComment"># setup</span> -<span id="L768" class="LineNr"> 768 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L769" class="LineNr"> 769 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L770" class="LineNr"> 770 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L771" class="LineNr"> 771 </span> <span class="subxS2Comment"># . . call</span> -<span id="L772" class="LineNr"> 772 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L774" class="LineNr"> 774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L775" class="LineNr"> 775 </span> <span class="subxComment"># write(_test-stream, "ab\n")</span> -<span id="L776" class="LineNr"> 776 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L777" class="LineNr"> 777 </span> 68/push <span class="Constant">"ab\n"</span>/imm32 -<span id="L778" class="LineNr"> 778 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L779" class="LineNr"> 779 </span> <span class="subxS2Comment"># . . call</span> -<span id="L780" class="LineNr"> 780 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L781" class="LineNr"> 781 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L782" class="LineNr"> 782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(_test-stream)</span> -<span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L785" class="LineNr"> 785 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . call</span> -<span id="L787" class="LineNr"> 787 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 -<span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L789" class="LineNr"> 789 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L790" class="LineNr"> 790 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> -<span id="L791" class="LineNr"> 791 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L792" class="LineNr"> 792 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-whitespace"</span>/imm32 -<span id="L793" class="LineNr"> 793 </span> 68/push 2/imm32 -<span id="L794" class="LineNr"> 794 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L795" class="LineNr"> 795 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L796" class="LineNr"> 796 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L797" class="LineNr"> 797 </span> <span class="subxS2Comment"># . . call</span> -<span id="L798" class="LineNr"> 798 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L799" class="LineNr"> 799 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L800" class="LineNr"> 800 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># end</span> -<span id="L802" class="LineNr"> 802 </span> c3/return -<span id="L803" class="LineNr"> 803 </span> -<span id="L804" class="LineNr"> 804 </span><span class="subxFunction">skip-chars-matching-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> -<span id="L805" class="LineNr"> 805 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L806" class="LineNr"> 806 </span> 55/push-ebp -<span id="L807" class="LineNr"> 807 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L808" class="LineNr"> 808 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L809" class="LineNr"> 809 </span> 51/push-ecx -<span id="L810" class="LineNr"> 810 </span> 52/push-edx -<span id="L811" class="LineNr"> 811 </span> 53/push-ebx -<span id="L812" class="LineNr"> 812 </span> <span class="subxComment"># eax = curr</span> -<span id="L813" class="LineNr"> 813 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L814" class="LineNr"> 814 </span> <span class="subxComment"># ecx = end</span> -<span id="L815" class="LineNr"> 815 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L816" class="LineNr"> 816 </span> <span class="subxComment"># edx = delimiter</span> -<span id="L817" class="LineNr"> 817 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> -<span id="L818" class="LineNr"> 818 </span> <span class="subxComment"># var c/ebx: byte = 0</span> -<span id="L819" class="LineNr"> 819 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L820" class="LineNr"> 820 </span><span class="Constant">$skip-chars-matching-in-slice:loop</span>: -<span id="L821" class="LineNr"> 821 </span> <span class="subxComment"># if (curr >= end) break</span> -<span id="L822" class="LineNr"> 822 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> -<span id="L823" class="LineNr"> 823 </span> 73/jump-if-addr>= $skip-chars-matching-in-slice:end/disp8 -<span id="L824" class="LineNr"> 824 </span> <span class="subxComment"># c = *curr</span> -<span id="L825" class="LineNr"> 825 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> -<span id="L826" class="LineNr"> 826 </span> <span class="subxComment"># if (c != delimiter) break</span> -<span id="L827" class="LineNr"> 827 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx and edx</span> -<span id="L828" class="LineNr"> 828 </span> 75/jump-if-!= $skip-chars-matching-in-slice:end/disp8 -<span id="L829" class="LineNr"> 829 </span> <span class="subxComment"># ++curr</span> -<span id="L830" class="LineNr"> 830 </span> 40/increment-eax -<span id="L831" class="LineNr"> 831 </span> eb/jump $skip-chars-matching-in-slice:<span class="Constant">loop</span>/disp8 -<span id="L832" class="LineNr"> 832 </span><span class="Constant">$skip-chars-matching-in-slice:end</span>: -<span id="L833" class="LineNr"> 833 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L834" class="LineNr"> 834 </span> 5b/pop-to-ebx -<span id="L835" class="LineNr"> 835 </span> 5a/pop-to-edx -<span id="L836" class="LineNr"> 836 </span> 59/pop-to-ecx -<span id="L837" class="LineNr"> 837 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L838" class="LineNr"> 838 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L839" class="LineNr"> 839 </span> 5d/pop-to-ebp -<span id="L840" class="LineNr"> 840 </span> c3/return -<span id="L841" class="LineNr"> 841 </span> -<span id="L842" class="LineNr"> 842 </span><span class="subxTest">test-skip-chars-matching-in-slice</span>: -<span id="L843" class="LineNr"> 843 </span> <span class="subxComment"># (eax..ecx) = " ab"</span> -<span id="L844" class="LineNr"> 844 </span> b8/copy-to-eax <span class="Constant">" ab"</span>/imm32 -<span id="L845" class="LineNr"> 845 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L846" class="LineNr"> 846 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L847" class="LineNr"> 847 </span> 05/add-to-eax 4/imm32 -<span id="L848" class="LineNr"> 848 </span> <span class="subxComment"># eax = skip-chars-matching-in-slice(eax, ecx, 0x20/space)</span> -<span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L850" class="LineNr"> 850 </span> 68/push 0x20/imm32/space -<span id="L851" class="LineNr"> 851 </span> 51/push-ecx -<span id="L852" class="LineNr"> 852 </span> 50/push-eax -<span id="L853" class="LineNr"> 853 </span> <span class="subxS2Comment"># . . call</span> -<span id="L854" class="LineNr"> 854 </span> e8/call <a href='124next-token.subx.html#L804'>skip-chars-matching-in-slice</a>/disp32 -<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L856" class="LineNr"> 856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L857" class="LineNr"> 857 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 2, msg)</span> -<span id="L858" class="LineNr"> 858 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L859" class="LineNr"> 859 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-in-slice"</span>/imm32 -<span id="L860" class="LineNr"> 860 </span> 68/push 2/imm32 -<span id="L861" class="LineNr"> 861 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L862" class="LineNr"> 862 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L863" class="LineNr"> 863 </span> 51/push-ecx -<span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . call</span> -<span id="L865" class="LineNr"> 865 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L866" class="LineNr"> 866 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L867" class="LineNr"> 867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L868" class="LineNr"> 868 </span> <span class="subxComment"># end</span> -<span id="L869" class="LineNr"> 869 </span> c3/return -<span id="L870" class="LineNr"> 870 </span> -<span id="L871" class="LineNr"> 871 </span><span class="subxTest">test-skip-chars-matching-in-slice-none</span>: -<span id="L872" class="LineNr"> 872 </span> <span class="subxComment"># (eax..ecx) = "ab"</span> -<span id="L873" class="LineNr"> 873 </span> b8/copy-to-eax <span class="Constant">"ab"</span>/imm32 -<span id="L874" class="LineNr"> 874 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L875" class="LineNr"> 875 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L876" class="LineNr"> 876 </span> 05/add-to-eax 4/imm32 -<span id="L877" class="LineNr"> 877 </span> <span class="subxComment"># eax = skip-chars-matching-in-slice(eax, ecx, 0x20/space)</span> -<span id="L878" class="LineNr"> 878 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L879" class="LineNr"> 879 </span> 68/push 0x20/imm32/space -<span id="L880" class="LineNr"> 880 </span> 51/push-ecx -<span id="L881" class="LineNr"> 881 </span> 50/push-eax -<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . call</span> -<span id="L883" class="LineNr"> 883 </span> e8/call <a href='124next-token.subx.html#L804'>skip-chars-matching-in-slice</a>/disp32 -<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L885" class="LineNr"> 885 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L886" class="LineNr"> 886 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 2, msg)</span> -<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L888" class="LineNr"> 888 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-in-slice-none"</span>/imm32 -<span id="L889" class="LineNr"> 889 </span> 68/push 2/imm32 -<span id="L890" class="LineNr"> 890 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L891" class="LineNr"> 891 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L892" class="LineNr"> 892 </span> 51/push-ecx -<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . call</span> -<span id="L894" class="LineNr"> 894 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L895" class="LineNr"> 895 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L896" class="LineNr"> 896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L897" class="LineNr"> 897 </span> <span class="subxComment"># end</span> -<span id="L898" class="LineNr"> 898 </span> c3/return -<span id="L899" class="LineNr"> 899 </span> -<span id="L900" class="LineNr"> 900 </span><span class="subxFunction">skip-chars-matching-whitespace-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L901" class="LineNr"> 901 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L902" class="LineNr"> 902 </span> 55/push-ebp -<span id="L903" class="LineNr"> 903 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L904" class="LineNr"> 904 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L905" class="LineNr"> 905 </span> 51/push-ecx -<span id="L906" class="LineNr"> 906 </span> 53/push-ebx -<span id="L907" class="LineNr"> 907 </span> <span class="subxComment"># eax = curr</span> -<span id="L908" class="LineNr"> 908 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L909" class="LineNr"> 909 </span> <span class="subxComment"># ecx = end</span> -<span id="L910" class="LineNr"> 910 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># var c/ebx: byte = 0</span> -<span id="L912" class="LineNr"> 912 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L913" class="LineNr"> 913 </span><span class="Constant">$skip-chars-matching-whitespace-in-slice:loop</span>: -<span id="L914" class="LineNr"> 914 </span> <span class="subxComment"># if (curr >= end) break</span> -<span id="L915" class="LineNr"> 915 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> -<span id="L916" class="LineNr"> 916 </span> 0f 83/jump-if-addr>= $skip-chars-matching-in-slice:end/disp32 -<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># c = *curr</span> -<span id="L918" class="LineNr"> 918 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> -<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># if (c == ' ') goto body</span> -<span id="L920" class="LineNr"> 920 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32/space <span class="subxComment"># compare ebx</span> -<span id="L921" class="LineNr"> 921 </span> 74/jump-if-= $skip-chars-matching-whitespace-in-slice:body/disp8 -<span id="L922" class="LineNr"> 922 </span> <span class="subxComment"># if (c == '\n') goto body</span> -<span id="L923" class="LineNr"> 923 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0a/imm32/newline <span class="subxComment"># compare ebx</span> -<span id="L924" class="LineNr"> 924 </span> 74/jump-if-= $skip-chars-matching-whitespace-in-slice:body/disp8 -<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># if (c == '\t') goto body</span> -<span id="L926" class="LineNr"> 926 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x09/imm32/tab <span class="subxComment"># compare ebx</span> -<span id="L927" class="LineNr"> 927 </span> 74/jump-if-= $skip-chars-matching-whitespace-in-slice:body/disp8 -<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># if (c != '\r') break</span> -<span id="L929" class="LineNr"> 929 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0d/imm32/cr <span class="subxComment"># compare ebx</span> -<span id="L930" class="LineNr"> 930 </span> 75/jump-if-!= $skip-chars-matching-whitespace-in-slice:end/disp8 -<span id="L931" class="LineNr"> 931 </span><span class="Constant">$skip-chars-matching-whitespace-in-slice:body</span>: -<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># ++curr</span> -<span id="L933" class="LineNr"> 933 </span> 40/increment-eax -<span id="L934" class="LineNr"> 934 </span> eb/jump $skip-chars-matching-whitespace-in-slice:<span class="Constant">loop</span>/disp8 -<span id="L935" class="LineNr"> 935 </span><span class="Constant">$skip-chars-matching-whitespace-in-slice:end</span>: -<span id="L936" class="LineNr"> 936 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L937" class="LineNr"> 937 </span> 5b/pop-to-ebx -<span id="L938" class="LineNr"> 938 </span> 59/pop-to-ecx -<span id="L939" class="LineNr"> 939 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L940" class="LineNr"> 940 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L941" class="LineNr"> 941 </span> 5d/pop-to-ebp -<span id="L942" class="LineNr"> 942 </span> c3/return -<span id="L943" class="LineNr"> 943 </span> -<span id="L944" class="LineNr"> 944 </span><span class="subxTest">test-skip-chars-matching-whitespace-in-slice</span>: -<span id="L945" class="LineNr"> 945 </span> <span class="subxComment"># (eax..ecx) = " \nab"</span> -<span id="L946" class="LineNr"> 946 </span> b8/copy-to-eax <span class="Constant">" \nab"</span>/imm32 -<span id="L947" class="LineNr"> 947 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L948" class="LineNr"> 948 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L949" class="LineNr"> 949 </span> 05/add-to-eax 4/imm32 -<span id="L950" class="LineNr"> 950 </span> <span class="subxComment"># eax = skip-chars-matching-whitespace-in-slice(eax, ecx)</span> -<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L952" class="LineNr"> 952 </span> 51/push-ecx -<span id="L953" class="LineNr"> 953 </span> 50/push-eax -<span id="L954" class="LineNr"> 954 </span> <span class="subxS2Comment"># . . call</span> -<span id="L955" class="LineNr"> 955 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L957" class="LineNr"> 957 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 2, msg)</span> -<span id="L959" class="LineNr"> 959 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L960" class="LineNr"> 960 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-whitespace-in-slice"</span>/imm32 -<span id="L961" class="LineNr"> 961 </span> 68/push 2/imm32 -<span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L963" class="LineNr"> 963 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L964" class="LineNr"> 964 </span> 51/push-ecx -<span id="L965" class="LineNr"> 965 </span> <span class="subxS2Comment"># . . call</span> -<span id="L966" class="LineNr"> 966 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L967" class="LineNr"> 967 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L968" class="LineNr"> 968 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L969" class="LineNr"> 969 </span> <span class="subxComment"># end</span> -<span id="L970" class="LineNr"> 970 </span> c3/return -<span id="L971" class="LineNr"> 971 </span> -<span id="L972" class="LineNr"> 972 </span><span class="subxComment"># minor fork of 'skip-chars-matching-in-slice'</span> -<span id="L973" class="LineNr"> 973 </span><span class="subxFunction">skip-chars-not-matching-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> -<span id="L974" class="LineNr"> 974 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L975" class="LineNr"> 975 </span> 55/push-ebp -<span id="L976" class="LineNr"> 976 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L977" class="LineNr"> 977 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L978" class="LineNr"> 978 </span> 51/push-ecx -<span id="L979" class="LineNr"> 979 </span> 52/push-edx -<span id="L980" class="LineNr"> 980 </span> 53/push-ebx -<span id="L981" class="LineNr"> 981 </span> <span class="subxComment"># eax = curr</span> -<span id="L982" class="LineNr"> 982 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># ecx = end</span> -<span id="L984" class="LineNr"> 984 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L985" class="LineNr"> 985 </span> <span class="subxComment"># edx = delimiter</span> -<span id="L986" class="LineNr"> 986 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> -<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># var c/ebx: byte = 0</span> -<span id="L988" class="LineNr"> 988 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L989" class="LineNr"> 989 </span><span class="Constant">$skip-chars-not-matching-in-slice:loop</span>: -<span id="L990" class="LineNr"> 990 </span> <span class="subxComment"># if (curr >= end) break</span> -<span id="L991" class="LineNr"> 991 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> -<span id="L992" class="LineNr"> 992 </span> 73/jump-if-addr>= $skip-chars-not-matching-in-slice:end/disp8 -<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># c = *curr</span> -<span id="L994" class="LineNr"> 994 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> -<span id="L995" class="LineNr"> 995 </span> <span class="subxComment"># if (c == delimiter) break</span> -<span id="L996" class="LineNr"> 996 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx and edx</span> -<span id="L997" class="LineNr"> 997 </span> 74/jump-if-= $skip-chars-not-matching-in-slice:end/disp8 -<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># ++curr</span> -<span id="L999" class="LineNr"> 999 </span> 40/increment-eax -<span id="L1000" class="LineNr">1000 </span> eb/jump $skip-chars-not-matching-in-slice:<span class="Constant">loop</span>/disp8 -<span id="L1001" class="LineNr">1001 </span><span class="Constant">$skip-chars-not-matching-in-slice:end</span>: -<span id="L1002" class="LineNr">1002 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1003" class="LineNr">1003 </span> 5b/pop-to-ebx -<span id="L1004" class="LineNr">1004 </span> 5a/pop-to-edx -<span id="L1005" class="LineNr">1005 </span> 59/pop-to-ecx -<span id="L1006" class="LineNr">1006 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1007" class="LineNr">1007 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1008" class="LineNr">1008 </span> 5d/pop-to-ebp -<span id="L1009" class="LineNr">1009 </span> c3/return -<span id="L1010" class="LineNr">1010 </span> -<span id="L1011" class="LineNr">1011 </span><span class="subxTest">test-skip-chars-not-matching-in-slice</span>: -<span id="L1012" class="LineNr">1012 </span> <span class="subxComment"># (eax..ecx) = "ab "</span> -<span id="L1013" class="LineNr">1013 </span> b8/copy-to-eax <span class="Constant">"ab "</span>/imm32 -<span id="L1014" class="LineNr">1014 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1015" class="LineNr">1015 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1016" class="LineNr">1016 </span> 05/add-to-eax 4/imm32 -<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, ecx, 0x20/space)</span> -<span id="L1018" class="LineNr">1018 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1019" class="LineNr">1019 </span> 68/push 0x20/imm32/space -<span id="L1020" class="LineNr">1020 </span> 51/push-ecx -<span id="L1021" class="LineNr">1021 </span> 50/push-eax -<span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1023" class="LineNr">1023 </span> e8/call <a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a>/disp32 -<span id="L1024" class="LineNr">1024 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1025" class="LineNr">1025 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1026" class="LineNr">1026 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 1, msg)</span> -<span id="L1027" class="LineNr">1027 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1028" class="LineNr">1028 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-in-slice"</span>/imm32 -<span id="L1029" class="LineNr">1029 </span> 68/push 1/imm32 -<span id="L1030" class="LineNr">1030 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1031" class="LineNr">1031 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1032" class="LineNr">1032 </span> 51/push-ecx -<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1034" class="LineNr">1034 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1036" class="LineNr">1036 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1037" class="LineNr">1037 </span> <span class="subxComment"># end</span> -<span id="L1038" class="LineNr">1038 </span> c3/return -<span id="L1039" class="LineNr">1039 </span> -<span id="L1040" class="LineNr">1040 </span><span class="subxTest">test-skip-chars-not-matching-in-slice-none</span>: -<span id="L1041" class="LineNr">1041 </span> <span class="subxComment"># (eax..ecx) = " ab"</span> -<span id="L1042" class="LineNr">1042 </span> b8/copy-to-eax <span class="Constant">" ab"</span>/imm32 -<span id="L1043" class="LineNr">1043 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1044" class="LineNr">1044 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1045" class="LineNr">1045 </span> 05/add-to-eax 4/imm32 -<span id="L1046" class="LineNr">1046 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, ecx, 0x20/space)</span> -<span id="L1047" class="LineNr">1047 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1048" class="LineNr">1048 </span> 68/push 0x20/imm32/space -<span id="L1049" class="LineNr">1049 </span> 51/push-ecx -<span id="L1050" class="LineNr">1050 </span> 50/push-eax -<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1052" class="LineNr">1052 </span> e8/call <a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a>/disp32 -<span id="L1053" class="LineNr">1053 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1054" class="LineNr">1054 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1055" class="LineNr">1055 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 3, msg)</span> -<span id="L1056" class="LineNr">1056 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1057" class="LineNr">1057 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-in-slice-none"</span>/imm32 -<span id="L1058" class="LineNr">1058 </span> 68/push 3/imm32 -<span id="L1059" class="LineNr">1059 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1060" class="LineNr">1060 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1061" class="LineNr">1061 </span> 51/push-ecx -<span id="L1062" class="LineNr">1062 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1063" class="LineNr">1063 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1064" class="LineNr">1064 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1065" class="LineNr">1065 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1066" class="LineNr">1066 </span> <span class="subxComment"># end</span> -<span id="L1067" class="LineNr">1067 </span> c3/return -<span id="L1068" class="LineNr">1068 </span> -<span id="L1069" class="LineNr">1069 </span><span class="subxTest">test-skip-chars-not-matching-in-slice-all</span>: -<span id="L1070" class="LineNr">1070 </span> <span class="subxComment"># (eax..ecx) = "ab"</span> -<span id="L1071" class="LineNr">1071 </span> b8/copy-to-eax <span class="Constant">"ab"</span>/imm32 -<span id="L1072" class="LineNr">1072 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1073" class="LineNr">1073 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1074" class="LineNr">1074 </span> 05/add-to-eax 4/imm32 -<span id="L1075" class="LineNr">1075 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, ecx, 0x20/space)</span> -<span id="L1076" class="LineNr">1076 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1077" class="LineNr">1077 </span> 68/push 0x20/imm32/space -<span id="L1078" class="LineNr">1078 </span> 51/push-ecx -<span id="L1079" class="LineNr">1079 </span> 50/push-eax -<span id="L1080" class="LineNr">1080 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1081" class="LineNr">1081 </span> e8/call <a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a>/disp32 -<span id="L1082" class="LineNr">1082 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1083" class="LineNr">1083 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1084" class="LineNr">1084 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 0, msg)</span> -<span id="L1085" class="LineNr">1085 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1086" class="LineNr">1086 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-in-slice-all"</span>/imm32 -<span id="L1087" class="LineNr">1087 </span> 68/push 0/imm32 -<span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1089" class="LineNr">1089 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1090" class="LineNr">1090 </span> 51/push-ecx -<span id="L1091" class="LineNr">1091 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1092" class="LineNr">1092 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1094" class="LineNr">1094 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1095" class="LineNr">1095 </span> <span class="subxComment"># end</span> -<span id="L1096" class="LineNr">1096 </span> c3/return -<span id="L1097" class="LineNr">1097 </span> -<span id="L1098" class="LineNr">1098 </span><span class="subxFunction">skip-chars-not-matching-whitespace-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L1099" class="LineNr">1099 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1100" class="LineNr">1100 </span> 55/push-ebp -<span id="L1101" class="LineNr">1101 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1102" class="LineNr">1102 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1103" class="LineNr">1103 </span> 51/push-ecx -<span id="L1104" class="LineNr">1104 </span> 53/push-ebx -<span id="L1105" class="LineNr">1105 </span> <span class="subxComment"># eax = curr</span> -<span id="L1106" class="LineNr">1106 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L1107" class="LineNr">1107 </span> <span class="subxComment"># ecx = end</span> -<span id="L1108" class="LineNr">1108 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L1109" class="LineNr">1109 </span> <span class="subxComment"># var c/ebx: byte = 0</span> -<span id="L1110" class="LineNr">1110 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L1111" class="LineNr">1111 </span><span class="Constant">$skip-chars-not-matching-whitespace-in-slice:loop</span>: -<span id="L1112" class="LineNr">1112 </span> <span class="subxComment"># if (curr >= end) break</span> -<span id="L1113" class="LineNr">1113 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> -<span id="L1114" class="LineNr">1114 </span> 0f 83/jump-if-addr>= $skip-chars-not-matching-in-slice:end/disp32 -<span id="L1115" class="LineNr">1115 </span> <span class="subxComment"># c = *curr</span> -<span id="L1116" class="LineNr">1116 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> -<span id="L1117" class="LineNr">1117 </span> <span class="subxComment"># if (c == ' ') break</span> -<span id="L1118" class="LineNr">1118 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32/space <span class="subxComment"># compare ebx</span> -<span id="L1119" class="LineNr">1119 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 -<span id="L1120" class="LineNr">1120 </span> <span class="subxComment"># if (c == '\n') break</span> -<span id="L1121" class="LineNr">1121 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0a/imm32/newline <span class="subxComment"># compare ebx</span> -<span id="L1122" class="LineNr">1122 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 -<span id="L1123" class="LineNr">1123 </span> <span class="subxComment"># if (c == '\t') break</span> -<span id="L1124" class="LineNr">1124 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x09/imm32/tab <span class="subxComment"># compare ebx</span> -<span id="L1125" class="LineNr">1125 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 -<span id="L1126" class="LineNr">1126 </span> <span class="subxComment"># if (c == '\r') break</span> -<span id="L1127" class="LineNr">1127 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0d/imm32/cr <span class="subxComment"># compare ebx</span> -<span id="L1128" class="LineNr">1128 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 -<span id="L1129" class="LineNr">1129 </span> <span class="subxComment"># ++curr</span> -<span id="L1130" class="LineNr">1130 </span> 40/increment-eax -<span id="L1131" class="LineNr">1131 </span> eb/jump $skip-chars-not-matching-whitespace-in-slice:<span class="Constant">loop</span>/disp8 -<span id="L1132" class="LineNr">1132 </span><span class="Constant">$skip-chars-not-matching-whitespace-in-slice:end</span>: -<span id="L1133" class="LineNr">1133 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1134" class="LineNr">1134 </span> 5b/pop-to-ebx -<span id="L1135" class="LineNr">1135 </span> 59/pop-to-ecx -<span id="L1136" class="LineNr">1136 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1137" class="LineNr">1137 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1138" class="LineNr">1138 </span> 5d/pop-to-ebp -<span id="L1139" class="LineNr">1139 </span> c3/return -<span id="L1140" class="LineNr">1140 </span> -<span id="L1141" class="LineNr">1141 </span><span class="subxTest">test-skip-chars-not-matching-whitespace-in-slice</span>: -<span id="L1142" class="LineNr">1142 </span> <span class="subxComment"># (eax..ecx) = "ab\n"</span> -<span id="L1143" class="LineNr">1143 </span> b8/copy-to-eax <span class="Constant">"ab\n"</span>/imm32 -<span id="L1144" class="LineNr">1144 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1145" class="LineNr">1145 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1146" class="LineNr">1146 </span> 05/add-to-eax 4/imm32 -<span id="L1147" class="LineNr">1147 </span> <span class="subxComment"># eax = skip-chars-not-matching-whitespace-in-slice(eax, ecx)</span> -<span id="L1148" class="LineNr">1148 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1149" class="LineNr">1149 </span> 51/push-ecx -<span id="L1150" class="LineNr">1150 </span> 50/push-eax -<span id="L1151" class="LineNr">1151 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1152" class="LineNr">1152 </span> e8/call <a href='124next-token.subx.html#L1098'>skip-chars-not-matching-whitespace-in-slice</a>/disp32 -<span id="L1153" class="LineNr">1153 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1154" class="LineNr">1154 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1155" class="LineNr">1155 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 1, msg)</span> -<span id="L1156" class="LineNr">1156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1157" class="LineNr">1157 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-whitespace-in-slice"</span>/imm32 -<span id="L1158" class="LineNr">1158 </span> 68/push 1/imm32 -<span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1160" class="LineNr">1160 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1161" class="LineNr">1161 </span> 51/push-ecx -<span id="L1162" class="LineNr">1162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1163" class="LineNr">1163 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1164" class="LineNr">1164 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1165" class="LineNr">1165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1166" class="LineNr">1166 </span> <span class="subxComment"># end</span> -<span id="L1167" class="LineNr">1167 </span> c3/return -<span id="L1168" class="LineNr">1168 </span> -<span id="L1169" class="LineNr">1169 </span><span class="subxComment"># update line->read to end of string literal surrounded by double quotes</span> -<span id="L1170" class="LineNr">1170 </span><span class="subxComment"># line->read must start out at a double-quote</span> -<span id="L1171" class="LineNr">1171 </span><span class="subxFunction">skip-string</span>: <span class="subxComment"># line: (addr stream byte)</span> -<span id="L1172" class="LineNr">1172 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1173" class="LineNr">1173 </span> 55/push-ebp -<span id="L1174" class="LineNr">1174 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1175" class="LineNr">1175 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1176" class="LineNr">1176 </span> 50/push-eax -<span id="L1177" class="LineNr">1177 </span> 51/push-ecx -<span id="L1178" class="LineNr">1178 </span> 52/push-edx -<span id="L1179" class="LineNr">1179 </span> <span class="subxComment"># ecx = line</span> -<span id="L1180" class="LineNr">1180 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L1181" class="LineNr">1181 </span> <span class="subxComment"># eax = skip-string-in-slice(&line->data[line->read], &line->data[line->write])</span> -<span id="L1182" class="LineNr">1182 </span> <span class="subxS2Comment"># . . push &line->data[line->write]</span> -<span id="L1183" class="LineNr">1183 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to edx</span> -<span id="L1184" class="LineNr">1184 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> -<span id="L1185" class="LineNr">1185 </span> 52/push-edx -<span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . push &line->data[line->read]</span> -<span id="L1187" class="LineNr">1187 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> -<span id="L1188" class="LineNr">1188 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> -<span id="L1189" class="LineNr">1189 </span> 52/push-edx -<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1191" class="LineNr">1191 </span> e8/call <a href='124next-token.subx.html#L1413'>skip-string-in-slice</a>/disp32 -<span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1193" class="LineNr">1193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1194" class="LineNr">1194 </span> <span class="subxComment"># line->read = eax - line->data</span> -<span id="L1195" class="LineNr">1195 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1196" class="LineNr">1196 </span> 2d/subtract-from-eax 0xc/imm32 -<span id="L1197" class="LineNr">1197 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> -<span id="L1198" class="LineNr">1198 </span><span class="Constant">$skip-string:end</span>: -<span id="L1199" class="LineNr">1199 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1200" class="LineNr">1200 </span> 5a/pop-to-edx -<span id="L1201" class="LineNr">1201 </span> 59/pop-to-ecx -<span id="L1202" class="LineNr">1202 </span> 58/pop-to-eax -<span id="L1203" class="LineNr">1203 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1204" class="LineNr">1204 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1205" class="LineNr">1205 </span> 5d/pop-to-ebp -<span id="L1206" class="LineNr">1206 </span> c3/return -<span id="L1207" class="LineNr">1207 </span> -<span id="L1208" class="LineNr">1208 </span><span class="subxTest">test-skip-string</span>: -<span id="L1209" class="LineNr">1209 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1210" class="LineNr">1210 </span> 55/push-ebp -<span id="L1211" class="LineNr">1211 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1212" class="LineNr">1212 </span> <span class="subxComment"># setup</span> -<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1214" class="LineNr">1214 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1215" class="LineNr">1215 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1216" class="LineNr">1216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1217" class="LineNr">1217 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1219" class="LineNr">1219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1220" class="LineNr">1220 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\"abc\" def")</span> -<span id="L1221" class="LineNr">1221 </span> <span class="subxS1Comment"># . indices: 0123 45</span> -<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1223" class="LineNr">1223 </span> 68/push <span class="Constant">"\"</span>abc\<span class="Constant">" def"</span>/imm32 -<span id="L1224" class="LineNr">1224 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1225" class="LineNr">1225 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1226" class="LineNr">1226 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1227" class="LineNr">1227 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1228" class="LineNr">1228 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1229" class="LineNr">1229 </span> <span class="subxComment"># precondition: line->read == 0</span> -<span id="L1230" class="LineNr">1230 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1231" class="LineNr">1231 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1208'>test-skip-string</a>/precondition"</span>/imm32 -<span id="L1232" class="LineNr">1232 </span> 68/push 0/imm32 -<span id="L1233" class="LineNr">1233 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1234" class="LineNr">1234 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1235" class="LineNr">1235 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1236" class="LineNr">1236 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1237" class="LineNr">1237 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1238" class="LineNr">1238 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1239" class="LineNr">1239 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> -<span id="L1240" class="LineNr">1240 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1241" class="LineNr">1241 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1242" class="LineNr">1242 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1243" class="LineNr">1243 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 -<span id="L1244" class="LineNr">1244 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1245" class="LineNr">1245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1246" class="LineNr">1246 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> -<span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1248" class="LineNr">1248 </span> 68/push <span class="Constant">"F - test-skip-string"</span>/imm32 -<span id="L1249" class="LineNr">1249 </span> 68/push 5/imm32 -<span id="L1250" class="LineNr">1250 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1251" class="LineNr">1251 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1252" class="LineNr">1252 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1253" class="LineNr">1253 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1254" class="LineNr">1254 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1255" class="LineNr">1255 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1256" class="LineNr">1256 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1257" class="LineNr">1257 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1258" class="LineNr">1258 </span> 5d/pop-to-ebp -<span id="L1259" class="LineNr">1259 </span> c3/return -<span id="L1260" class="LineNr">1260 </span> -<span id="L1261" class="LineNr">1261 </span><span class="subxTest">test-skip-string-ignores-spaces</span>: -<span id="L1262" class="LineNr">1262 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1263" class="LineNr">1263 </span> 55/push-ebp -<span id="L1264" class="LineNr">1264 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1265" class="LineNr">1265 </span> <span class="subxComment"># setup</span> -<span id="L1266" class="LineNr">1266 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1267" class="LineNr">1267 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1268" class="LineNr">1268 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1269" class="LineNr">1269 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1270" class="LineNr">1270 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1271" class="LineNr">1271 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1272" class="LineNr">1272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1273" class="LineNr">1273 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\"a b\"/yz")</span> -<span id="L1274" class="LineNr">1274 </span> <span class="subxS1Comment"># . indices: 0123 45</span> -<span id="L1275" class="LineNr">1275 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1276" class="LineNr">1276 </span> 68/push <span class="Constant">"\"</span>a b\<span class="Constant">"/yz"</span>/imm32 -<span id="L1277" class="LineNr">1277 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1278" class="LineNr">1278 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1279" class="LineNr">1279 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1280" class="LineNr">1280 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1281" class="LineNr">1281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1282" class="LineNr">1282 </span> <span class="subxComment"># precondition: line->read == 0</span> -<span id="L1283" class="LineNr">1283 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1284" class="LineNr">1284 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1261'>test-skip-string-ignores-spaces</a>/precondition"</span>/imm32 -<span id="L1285" class="LineNr">1285 </span> 68/push 0/imm32 -<span id="L1286" class="LineNr">1286 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1287" class="LineNr">1287 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1289" class="LineNr">1289 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1290" class="LineNr">1290 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1291" class="LineNr">1291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1292" class="LineNr">1292 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> -<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1294" class="LineNr">1294 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1296" class="LineNr">1296 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 -<span id="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1298" class="LineNr">1298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1299" class="LineNr">1299 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> -<span id="L1300" class="LineNr">1300 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1301" class="LineNr">1301 </span> 68/push <span class="Constant">"F - test-skip-string-ignores-spaces"</span>/imm32 -<span id="L1302" class="LineNr">1302 </span> 68/push 5/imm32 -<span id="L1303" class="LineNr">1303 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1304" class="LineNr">1304 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1305" class="LineNr">1305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1306" class="LineNr">1306 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1308" class="LineNr">1308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1309" class="LineNr">1309 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1310" class="LineNr">1310 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1311" class="LineNr">1311 </span> 5d/pop-to-ebp -<span id="L1312" class="LineNr">1312 </span> c3/return -<span id="L1313" class="LineNr">1313 </span> -<span id="L1314" class="LineNr">1314 </span><span class="subxTest">test-skip-string-ignores-escapes</span>: -<span id="L1315" class="LineNr">1315 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1316" class="LineNr">1316 </span> 55/push-ebp -<span id="L1317" class="LineNr">1317 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1318" class="LineNr">1318 </span> <span class="subxComment"># setup</span> -<span id="L1319" class="LineNr">1319 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1321" class="LineNr">1321 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1323" class="LineNr">1323 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1324" class="LineNr">1324 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1325" class="LineNr">1325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1326" class="LineNr">1326 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\"a\\\"b\"/yz")</span> -<span id="L1327" class="LineNr">1327 </span> <span class="subxS1Comment"># . indices: 01 2 34 56</span> -<span id="L1328" class="LineNr">1328 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1329" class="LineNr">1329 </span> 68/push <span class="Constant">"\"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 -<span id="L1330" class="LineNr">1330 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1331" class="LineNr">1331 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1332" class="LineNr">1332 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1333" class="LineNr">1333 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1334" class="LineNr">1334 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1335" class="LineNr">1335 </span> <span class="subxComment"># precondition: line->read == 0</span> -<span id="L1336" class="LineNr">1336 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1337" class="LineNr">1337 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1314'>test-skip-string-ignores-escapes</a>/precondition"</span>/imm32 -<span id="L1338" class="LineNr">1338 </span> 68/push 0/imm32 -<span id="L1339" class="LineNr">1339 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1340" class="LineNr">1340 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1341" class="LineNr">1341 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1342" class="LineNr">1342 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1343" class="LineNr">1343 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1344" class="LineNr">1344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1345" class="LineNr">1345 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> -<span id="L1346" class="LineNr">1346 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1347" class="LineNr">1347 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1348" class="LineNr">1348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1349" class="LineNr">1349 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 -<span id="L1350" class="LineNr">1350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1351" class="LineNr">1351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1352" class="LineNr">1352 </span> <span class="subxComment"># check-ints-equal(line->read, 6, msg)</span> -<span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1354" class="LineNr">1354 </span> 68/push <span class="Constant">"F - test-skip-string-ignores-escapes"</span>/imm32 -<span id="L1355" class="LineNr">1355 </span> 68/push 6/imm32 -<span id="L1356" class="LineNr">1356 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1357" class="LineNr">1357 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L318" class="LineNr"> 318 </span> 53/push-ebx +<span id="L319" class="LineNr"> 319 </span> 56/push-esi +<span id="L320" class="LineNr"> 320 </span> <span class="subxComment"># esi = in</span> +<span id="L321" class="LineNr"> 321 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L322" class="LineNr"> 322 </span> <span class="subxComment"># ecx = in->read</span> +<span id="L323" class="LineNr"> 323 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L324" class="LineNr"> 324 </span> <span class="subxComment"># ebx = in->write</span> +<span id="L325" class="LineNr"> 325 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L326" class="LineNr"> 326 </span><span class="Constant">$skip-chars-matching-whitespace:loop</span>: +<span id="L327" class="LineNr"> 327 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L328" class="LineNr"> 328 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> +<span id="L329" class="LineNr"> 329 </span> 7d/jump-if->= $skip-chars-matching-whitespace:end/disp8 +<span id="L330" class="LineNr"> 330 </span> <span class="subxComment"># eax = in->data[in->read]</span> +<span id="L331" class="LineNr"> 331 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L332" class="LineNr"> 332 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L333" class="LineNr"> 333 </span> <span class="subxComment"># if (eax == ' ') goto body</span> +<span id="L334" class="LineNr"> 334 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L335" class="LineNr"> 335 </span> 74/jump-if-= $skip-chars-matching-whitespace:body/disp8 +<span id="L336" class="LineNr"> 336 </span> <span class="subxComment"># if (eax == '\n') goto body</span> +<span id="L337" class="LineNr"> 337 </span> 3d/compare-eax-and 0x0a/imm32/newline +<span id="L338" class="LineNr"> 338 </span> 74/jump-if-= $skip-chars-matching-whitespace:body/disp8 +<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># if (eax == '\t') goto body</span> +<span id="L340" class="LineNr"> 340 </span> 3d/compare-eax-and 0x09/imm32/tab +<span id="L341" class="LineNr"> 341 </span> 74/jump-if-= $skip-chars-matching-whitespace:body/disp8 +<span id="L342" class="LineNr"> 342 </span> <span class="subxComment"># if (eax != '\r') break</span> +<span id="L343" class="LineNr"> 343 </span> 3d/compare-eax-and 0x0d/imm32/cr +<span id="L344" class="LineNr"> 344 </span> 75/jump-if-!= $skip-chars-matching-whitespace:end/disp8 +<span id="L345" class="LineNr"> 345 </span><span class="Constant">$skip-chars-matching-whitespace:body</span>: +<span id="L346" class="LineNr"> 346 </span> <span class="subxComment"># ++in->read</span> +<span id="L347" class="LineNr"> 347 </span> 41/increment-ecx +<span id="L348" class="LineNr"> 348 </span> eb/jump $skip-chars-matching-whitespace:<span class="Constant">loop</span>/disp8 +<span id="L349" class="LineNr"> 349 </span><span class="Constant">$skip-chars-matching-whitespace:end</span>: +<span id="L350" class="LineNr"> 350 </span> <span class="subxComment"># persist in->read</span> +<span id="L351" class="LineNr"> 351 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> +<span id="L352" class="LineNr"> 352 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L353" class="LineNr"> 353 </span> 5e/pop-to-esi +<span id="L354" class="LineNr"> 354 </span> 5b/pop-to-ebx +<span id="L355" class="LineNr"> 355 </span> 59/pop-to-ecx +<span id="L356" class="LineNr"> 356 </span> 58/pop-to-eax +<span id="L357" class="LineNr"> 357 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L358" class="LineNr"> 358 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L359" class="LineNr"> 359 </span> 5d/pop-to-ebp +<span id="L360" class="LineNr"> 360 </span> c3/return +<span id="L361" class="LineNr"> 361 </span> +<span id="L362" class="LineNr"> 362 </span><span class="subxTest">test-skip-chars-matching-whitespace</span>: +<span id="L363" class="LineNr"> 363 </span> <span class="subxComment"># setup</span> +<span id="L364" class="LineNr"> 364 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L365" class="LineNr"> 365 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L366" class="LineNr"> 366 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L367" class="LineNr"> 367 </span> <span class="subxS2Comment"># . . call</span> +<span id="L368" class="LineNr"> 368 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L369" class="LineNr"> 369 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L370" class="LineNr"> 370 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L371" class="LineNr"> 371 </span> <span class="subxComment"># write(_test-stream, " \nab")</span> +<span id="L372" class="LineNr"> 372 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L373" class="LineNr"> 373 </span> 68/push <span class="Constant">" \nab"</span>/imm32 +<span id="L374" class="LineNr"> 374 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L375" class="LineNr"> 375 </span> <span class="subxS2Comment"># . . call</span> +<span id="L376" class="LineNr"> 376 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L377" class="LineNr"> 377 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L378" class="LineNr"> 378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L379" class="LineNr"> 379 </span> <span class="subxComment"># skip-chars-matching-whitespace(_test-stream)</span> +<span id="L380" class="LineNr"> 380 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L381" class="LineNr"> 381 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L382" class="LineNr"> 382 </span> <span class="subxS2Comment"># . . call</span> +<span id="L383" class="LineNr"> 383 </span> e8/call <a href='124next-token.subx.html#L311'>skip-chars-matching-whitespace</a>/disp32 +<span id="L384" class="LineNr"> 384 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L385" class="LineNr"> 385 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L386" class="LineNr"> 386 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> +<span id="L387" class="LineNr"> 387 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L388" class="LineNr"> 388 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-whitespace"</span>/imm32 +<span id="L389" class="LineNr"> 389 </span> 68/push 2/imm32 +<span id="L390" class="LineNr"> 390 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> +<span id="L391" class="LineNr"> 391 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L392" class="LineNr"> 392 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L393" class="LineNr"> 393 </span> <span class="subxS2Comment"># . . call</span> +<span id="L394" class="LineNr"> 394 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L395" class="LineNr"> 395 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L396" class="LineNr"> 396 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L397" class="LineNr"> 397 </span> <span class="subxComment"># end</span> +<span id="L398" class="LineNr"> 398 </span> c3/return +<span id="L399" class="LineNr"> 399 </span> +<span id="L400" class="LineNr"> 400 </span><span class="subxComment"># minor fork of 'skip-chars-matching'</span> +<span id="L401" class="LineNr"> 401 </span><span class="subxFunction">skip-chars-not-matching</span>: <span class="subxComment"># in: (addr stream byte), delimiter: byte</span> +<span id="L402" class="LineNr"> 402 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L403" class="LineNr"> 403 </span> 55/push-ebp +<span id="L404" class="LineNr"> 404 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L405" class="LineNr"> 405 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L406" class="LineNr"> 406 </span> 50/push-eax +<span id="L407" class="LineNr"> 407 </span> 51/push-ecx +<span id="L408" class="LineNr"> 408 </span> 52/push-edx +<span id="L409" class="LineNr"> 409 </span> 53/push-ebx +<span id="L410" class="LineNr"> 410 </span> 56/push-esi +<span id="L411" class="LineNr"> 411 </span> <span class="subxComment"># esi = in</span> +<span id="L412" class="LineNr"> 412 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># ecx = in->read</span> +<span id="L414" class="LineNr"> 414 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L415" class="LineNr"> 415 </span> <span class="subxComment"># ebx = in->write</span> +<span id="L416" class="LineNr"> 416 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L417" class="LineNr"> 417 </span> <span class="subxComment"># edx = delimiter</span> +<span id="L418" class="LineNr"> 418 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L419" class="LineNr"> 419 </span><span class="Constant">$skip-chars-not-matching:loop</span>: +<span id="L420" class="LineNr"> 420 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L421" class="LineNr"> 421 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> +<span id="L422" class="LineNr"> 422 </span> 7d/jump-if->= $skip-chars-not-matching:end/disp8 +<span id="L423" class="LineNr"> 423 </span> <span class="subxComment"># eax = in->data[in->read]</span> +<span id="L424" class="LineNr"> 424 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L425" class="LineNr"> 425 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># if (eax == delimiter) break</span> +<span id="L427" class="LineNr"> 427 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> +<span id="L428" class="LineNr"> 428 </span> 74/jump-if-= $skip-chars-not-matching:end/disp8 +<span id="L429" class="LineNr"> 429 </span> <span class="subxComment"># ++in->read</span> +<span id="L430" class="LineNr"> 430 </span> 41/increment-ecx +<span id="L431" class="LineNr"> 431 </span> eb/jump $skip-chars-not-matching:<span class="Constant">loop</span>/disp8 +<span id="L432" class="LineNr"> 432 </span><span class="Constant">$skip-chars-not-matching:end</span>: +<span id="L433" class="LineNr"> 433 </span> <span class="subxComment"># persist in->read</span> +<span id="L434" class="LineNr"> 434 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> +<span id="L435" class="LineNr"> 435 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L436" class="LineNr"> 436 </span> 5e/pop-to-esi +<span id="L437" class="LineNr"> 437 </span> 5b/pop-to-ebx +<span id="L438" class="LineNr"> 438 </span> 5a/pop-to-edx +<span id="L439" class="LineNr"> 439 </span> 59/pop-to-ecx +<span id="L440" class="LineNr"> 440 </span> 58/pop-to-eax +<span id="L441" class="LineNr"> 441 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L442" class="LineNr"> 442 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L443" class="LineNr"> 443 </span> 5d/pop-to-ebp +<span id="L444" class="LineNr"> 444 </span> c3/return +<span id="L445" class="LineNr"> 445 </span> +<span id="L446" class="LineNr"> 446 </span><span class="subxTest">test-skip-chars-not-matching</span>: +<span id="L447" class="LineNr"> 447 </span> <span class="subxComment"># setup</span> +<span id="L448" class="LineNr"> 448 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L449" class="LineNr"> 449 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L450" class="LineNr"> 450 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L451" class="LineNr"> 451 </span> <span class="subxS2Comment"># . . call</span> +<span id="L452" class="LineNr"> 452 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L454" class="LineNr"> 454 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># write(_test-stream, "ab ")</span> +<span id="L456" class="LineNr"> 456 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L457" class="LineNr"> 457 </span> 68/push <span class="Constant">"ab "</span>/imm32 +<span id="L458" class="LineNr"> 458 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L459" class="LineNr"> 459 </span> <span class="subxS2Comment"># . . call</span> +<span id="L460" class="LineNr"> 460 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L461" class="LineNr"> 461 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L462" class="LineNr"> 462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L463" class="LineNr"> 463 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> +<span id="L464" class="LineNr"> 464 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L465" class="LineNr"> 465 </span> 68/push 0x20/imm32 +<span id="L466" class="LineNr"> 466 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L467" class="LineNr"> 467 </span> <span class="subxS2Comment"># . . call</span> +<span id="L468" class="LineNr"> 468 </span> e8/call <a href='124next-token.subx.html#L401'>skip-chars-not-matching</a>/disp32 +<span id="L469" class="LineNr"> 469 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L470" class="LineNr"> 470 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L471" class="LineNr"> 471 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> +<span id="L472" class="LineNr"> 472 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L473" class="LineNr"> 473 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching"</span>/imm32 +<span id="L474" class="LineNr"> 474 </span> 68/push 2/imm32 +<span id="L475" class="LineNr"> 475 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> +<span id="L476" class="LineNr"> 476 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L477" class="LineNr"> 477 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L478" class="LineNr"> 478 </span> <span class="subxS2Comment"># . . call</span> +<span id="L479" class="LineNr"> 479 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L480" class="LineNr"> 480 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L481" class="LineNr"> 481 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L482" class="LineNr"> 482 </span> <span class="subxComment"># end</span> +<span id="L483" class="LineNr"> 483 </span> c3/return +<span id="L484" class="LineNr"> 484 </span> +<span id="L485" class="LineNr"> 485 </span><span class="subxTest">test-skip-chars-not-matching-none</span>: +<span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># setup</span> +<span id="L487" class="LineNr"> 487 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L488" class="LineNr"> 488 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L489" class="LineNr"> 489 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L490" class="LineNr"> 490 </span> <span class="subxS2Comment"># . . call</span> +<span id="L491" class="LineNr"> 491 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L492" class="LineNr"> 492 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L493" class="LineNr"> 493 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L494" class="LineNr"> 494 </span> <span class="subxComment"># write(_test-stream, " ab")</span> +<span id="L495" class="LineNr"> 495 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L496" class="LineNr"> 496 </span> 68/push <span class="Constant">" ab"</span>/imm32 +<span id="L497" class="LineNr"> 497 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L498" class="LineNr"> 498 </span> <span class="subxS2Comment"># . . call</span> +<span id="L499" class="LineNr"> 499 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L500" class="LineNr"> 500 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L501" class="LineNr"> 501 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L502" class="LineNr"> 502 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> +<span id="L503" class="LineNr"> 503 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L504" class="LineNr"> 504 </span> 68/push 0x20/imm32 +<span id="L505" class="LineNr"> 505 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L506" class="LineNr"> 506 </span> <span class="subxS2Comment"># . . call</span> +<span id="L507" class="LineNr"> 507 </span> e8/call <a href='124next-token.subx.html#L401'>skip-chars-not-matching</a>/disp32 +<span id="L508" class="LineNr"> 508 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L509" class="LineNr"> 509 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L510" class="LineNr"> 510 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 0, msg)</span> +<span id="L511" class="LineNr"> 511 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L512" class="LineNr"> 512 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-none"</span>/imm32 +<span id="L513" class="LineNr"> 513 </span> 68/push 0/imm32 +<span id="L514" class="LineNr"> 514 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> +<span id="L515" class="LineNr"> 515 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L516" class="LineNr"> 516 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L517" class="LineNr"> 517 </span> <span class="subxS2Comment"># . . call</span> +<span id="L518" class="LineNr"> 518 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L519" class="LineNr"> 519 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L520" class="LineNr"> 520 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L521" class="LineNr"> 521 </span> <span class="subxComment"># end</span> +<span id="L522" class="LineNr"> 522 </span> c3/return +<span id="L523" class="LineNr"> 523 </span> +<span id="L524" class="LineNr"> 524 </span><span class="subxTest">test-skip-chars-not-matching-all</span>: +<span id="L525" class="LineNr"> 525 </span> <span class="subxComment"># setup</span> +<span id="L526" class="LineNr"> 526 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L527" class="LineNr"> 527 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L528" class="LineNr"> 528 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L529" class="LineNr"> 529 </span> <span class="subxS2Comment"># . . call</span> +<span id="L530" class="LineNr"> 530 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L531" class="LineNr"> 531 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L532" class="LineNr"> 532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L533" class="LineNr"> 533 </span> <span class="subxComment"># write(_test-stream, "ab")</span> +<span id="L534" class="LineNr"> 534 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L535" class="LineNr"> 535 </span> 68/push <span class="Constant">"ab"</span>/imm32 +<span id="L536" class="LineNr"> 536 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . call</span> +<span id="L538" class="LineNr"> 538 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L539" class="LineNr"> 539 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L540" class="LineNr"> 540 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L541" class="LineNr"> 541 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> +<span id="L542" class="LineNr"> 542 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L543" class="LineNr"> 543 </span> 68/push 0x20/imm32 +<span id="L544" class="LineNr"> 544 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L545" class="LineNr"> 545 </span> <span class="subxS2Comment"># . . call</span> +<span id="L546" class="LineNr"> 546 </span> e8/call <a href='124next-token.subx.html#L401'>skip-chars-not-matching</a>/disp32 +<span id="L547" class="LineNr"> 547 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L548" class="LineNr"> 548 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L549" class="LineNr"> 549 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> +<span id="L550" class="LineNr"> 550 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L551" class="LineNr"> 551 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-all"</span>/imm32 +<span id="L552" class="LineNr"> 552 </span> 68/push 2/imm32 +<span id="L553" class="LineNr"> 553 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> +<span id="L554" class="LineNr"> 554 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L555" class="LineNr"> 555 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . call</span> +<span id="L557" class="LineNr"> 557 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L558" class="LineNr"> 558 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L559" class="LineNr"> 559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L560" class="LineNr"> 560 </span> <span class="subxComment"># end</span> +<span id="L561" class="LineNr"> 561 </span> c3/return +<span id="L562" class="LineNr"> 562 </span> +<span id="L563" class="LineNr"> 563 </span><span class="subxFunction">skip-chars-not-matching-whitespace</span>: <span class="subxComment"># in: (addr stream byte)</span> +<span id="L564" class="LineNr"> 564 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L565" class="LineNr"> 565 </span> 55/push-ebp +<span id="L566" class="LineNr"> 566 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L567" class="LineNr"> 567 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L568" class="LineNr"> 568 </span> 50/push-eax +<span id="L569" class="LineNr"> 569 </span> 51/push-ecx +<span id="L570" class="LineNr"> 570 </span> 53/push-ebx +<span id="L571" class="LineNr"> 571 </span> 56/push-esi +<span id="L572" class="LineNr"> 572 </span> <span class="subxComment"># esi = in</span> +<span id="L573" class="LineNr"> 573 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L574" class="LineNr"> 574 </span> <span class="subxComment"># ecx = in->read</span> +<span id="L575" class="LineNr"> 575 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L576" class="LineNr"> 576 </span> <span class="subxComment"># ebx = in->write</span> +<span id="L577" class="LineNr"> 577 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L578" class="LineNr"> 578 </span><span class="Constant">$skip-chars-not-matching-whitespace:loop</span>: +<span id="L579" class="LineNr"> 579 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L580" class="LineNr"> 580 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> +<span id="L581" class="LineNr"> 581 </span> 7d/jump-if->= $skip-chars-not-matching-whitespace:end/disp8 +<span id="L582" class="LineNr"> 582 </span> <span class="subxComment"># eax = in->data[in->read]</span> +<span id="L583" class="LineNr"> 583 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L584" class="LineNr"> 584 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L585" class="LineNr"> 585 </span> <span class="subxComment"># if (eax == ' ') break</span> +<span id="L586" class="LineNr"> 586 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L587" class="LineNr"> 587 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 +<span id="L588" class="LineNr"> 588 </span> <span class="subxComment"># if (eax == '\n') break</span> +<span id="L589" class="LineNr"> 589 </span> 3d/compare-eax-and 0x0a/imm32/newline +<span id="L590" class="LineNr"> 590 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 +<span id="L591" class="LineNr"> 591 </span> <span class="subxComment"># if (eax == '\t') break</span> +<span id="L592" class="LineNr"> 592 </span> 3d/compare-eax-and 0x09/imm32/tab +<span id="L593" class="LineNr"> 593 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 +<span id="L594" class="LineNr"> 594 </span> <span class="subxComment"># if (eax == '\r') break</span> +<span id="L595" class="LineNr"> 595 </span> 3d/compare-eax-and 0x0d/imm32/cr +<span id="L596" class="LineNr"> 596 </span> 74/jump-if-= $skip-chars-not-matching-whitespace:end/disp8 +<span id="L597" class="LineNr"> 597 </span> <span class="subxComment"># ++in->read</span> +<span id="L598" class="LineNr"> 598 </span> 41/increment-ecx +<span id="L599" class="LineNr"> 599 </span> eb/jump $skip-chars-not-matching-whitespace:<span class="Constant">loop</span>/disp8 +<span id="L600" class="LineNr"> 600 </span><span class="Constant">$skip-chars-not-matching-whitespace:end</span>: +<span id="L601" class="LineNr"> 601 </span> <span class="subxComment"># persist in->read</span> +<span id="L602" class="LineNr"> 602 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(esi+4)</span> +<span id="L603" class="LineNr"> 603 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L604" class="LineNr"> 604 </span> 5e/pop-to-esi +<span id="L605" class="LineNr"> 605 </span> 5b/pop-to-ebx +<span id="L606" class="LineNr"> 606 </span> 59/pop-to-ecx +<span id="L607" class="LineNr"> 607 </span> 58/pop-to-eax +<span id="L608" class="LineNr"> 608 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L609" class="LineNr"> 609 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L610" class="LineNr"> 610 </span> 5d/pop-to-ebp +<span id="L611" class="LineNr"> 611 </span> c3/return +<span id="L612" class="LineNr"> 612 </span> +<span id="L613" class="LineNr"> 613 </span><span class="subxTest">test-skip-chars-not-matching-whitespace</span>: +<span id="L614" class="LineNr"> 614 </span> <span class="subxComment"># setup</span> +<span id="L615" class="LineNr"> 615 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L616" class="LineNr"> 616 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L617" class="LineNr"> 617 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . call</span> +<span id="L619" class="LineNr"> 619 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L621" class="LineNr"> 621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L622" class="LineNr"> 622 </span> <span class="subxComment"># write(_test-stream, "ab\n")</span> +<span id="L623" class="LineNr"> 623 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L624" class="LineNr"> 624 </span> 68/push <span class="Constant">"ab\n"</span>/imm32 +<span id="L625" class="LineNr"> 625 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L626" class="LineNr"> 626 </span> <span class="subxS2Comment"># . . call</span> +<span id="L627" class="LineNr"> 627 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L628" class="LineNr"> 628 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L629" class="LineNr"> 629 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L630" class="LineNr"> 630 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(_test-stream)</span> +<span id="L631" class="LineNr"> 631 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L632" class="LineNr"> 632 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L633" class="LineNr"> 633 </span> <span class="subxS2Comment"># . . call</span> +<span id="L634" class="LineNr"> 634 </span> e8/call <a href='124next-token.subx.html#L563'>skip-chars-not-matching-whitespace</a>/disp32 +<span id="L635" class="LineNr"> 635 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L636" class="LineNr"> 636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L637" class="LineNr"> 637 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 2, msg)</span> +<span id="L638" class="LineNr"> 638 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L639" class="LineNr"> 639 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-whitespace"</span>/imm32 +<span id="L640" class="LineNr"> 640 </span> 68/push 2/imm32 +<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> +<span id="L642" class="LineNr"> 642 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L643" class="LineNr"> 643 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . call</span> +<span id="L645" class="LineNr"> 645 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L646" class="LineNr"> 646 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L647" class="LineNr"> 647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L648" class="LineNr"> 648 </span> <span class="subxComment"># end</span> +<span id="L649" class="LineNr"> 649 </span> c3/return +<span id="L650" class="LineNr"> 650 </span> +<span id="L651" class="LineNr"> 651 </span><span class="subxFunction">skip-chars-matching-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> +<span id="L652" class="LineNr"> 652 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L653" class="LineNr"> 653 </span> 55/push-ebp +<span id="L654" class="LineNr"> 654 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L655" class="LineNr"> 655 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L656" class="LineNr"> 656 </span> 51/push-ecx +<span id="L657" class="LineNr"> 657 </span> 52/push-edx +<span id="L658" class="LineNr"> 658 </span> 53/push-ebx +<span id="L659" class="LineNr"> 659 </span> <span class="subxComment"># eax = curr</span> +<span id="L660" class="LineNr"> 660 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L661" class="LineNr"> 661 </span> <span class="subxComment"># ecx = end</span> +<span id="L662" class="LineNr"> 662 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L663" class="LineNr"> 663 </span> <span class="subxComment"># edx = delimiter</span> +<span id="L664" class="LineNr"> 664 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> +<span id="L665" class="LineNr"> 665 </span> <span class="subxComment"># var c/ebx: byte = 0</span> +<span id="L666" class="LineNr"> 666 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L667" class="LineNr"> 667 </span><span class="Constant">$skip-chars-matching-in-slice:loop</span>: +<span id="L668" class="LineNr"> 668 </span> <span class="subxComment"># if (curr >= end) break</span> +<span id="L669" class="LineNr"> 669 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> +<span id="L670" class="LineNr"> 670 </span> 73/jump-if-addr>= $skip-chars-matching-in-slice:end/disp8 +<span id="L671" class="LineNr"> 671 </span> <span class="subxComment"># c = *curr</span> +<span id="L672" class="LineNr"> 672 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> +<span id="L673" class="LineNr"> 673 </span> <span class="subxComment"># if (c != delimiter) break</span> +<span id="L674" class="LineNr"> 674 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx and edx</span> +<span id="L675" class="LineNr"> 675 </span> 75/jump-if-!= $skip-chars-matching-in-slice:end/disp8 +<span id="L676" class="LineNr"> 676 </span> <span class="subxComment"># ++curr</span> +<span id="L677" class="LineNr"> 677 </span> 40/increment-eax +<span id="L678" class="LineNr"> 678 </span> eb/jump $skip-chars-matching-in-slice:<span class="Constant">loop</span>/disp8 +<span id="L679" class="LineNr"> 679 </span><span class="Constant">$skip-chars-matching-in-slice:end</span>: +<span id="L680" class="LineNr"> 680 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L681" class="LineNr"> 681 </span> 5b/pop-to-ebx +<span id="L682" class="LineNr"> 682 </span> 5a/pop-to-edx +<span id="L683" class="LineNr"> 683 </span> 59/pop-to-ecx +<span id="L684" class="LineNr"> 684 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L685" class="LineNr"> 685 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L686" class="LineNr"> 686 </span> 5d/pop-to-ebp +<span id="L687" class="LineNr"> 687 </span> c3/return +<span id="L688" class="LineNr"> 688 </span> +<span id="L689" class="LineNr"> 689 </span><span class="subxTest">test-skip-chars-matching-in-slice</span>: +<span id="L690" class="LineNr"> 690 </span> <span class="subxComment"># (eax..ecx) = " ab"</span> +<span id="L691" class="LineNr"> 691 </span> b8/copy-to-eax <span class="Constant">" ab"</span>/imm32 +<span id="L692" class="LineNr"> 692 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L693" class="LineNr"> 693 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L694" class="LineNr"> 694 </span> 05/add-to-eax 4/imm32 +<span id="L695" class="LineNr"> 695 </span> <span class="subxComment"># eax = skip-chars-matching-in-slice(eax, ecx, 0x20/space)</span> +<span id="L696" class="LineNr"> 696 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L697" class="LineNr"> 697 </span> 68/push 0x20/imm32/space +<span id="L698" class="LineNr"> 698 </span> 51/push-ecx +<span id="L699" class="LineNr"> 699 </span> 50/push-eax +<span id="L700" class="LineNr"> 700 </span> <span class="subxS2Comment"># . . call</span> +<span id="L701" class="LineNr"> 701 </span> e8/call <a href='124next-token.subx.html#L651'>skip-chars-matching-in-slice</a>/disp32 +<span id="L702" class="LineNr"> 702 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L703" class="LineNr"> 703 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L704" class="LineNr"> 704 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 2, msg)</span> +<span id="L705" class="LineNr"> 705 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L706" class="LineNr"> 706 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-in-slice"</span>/imm32 +<span id="L707" class="LineNr"> 707 </span> 68/push 2/imm32 +<span id="L708" class="LineNr"> 708 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L709" class="LineNr"> 709 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L710" class="LineNr"> 710 </span> 51/push-ecx +<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . call</span> +<span id="L712" class="LineNr"> 712 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L713" class="LineNr"> 713 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L714" class="LineNr"> 714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L715" class="LineNr"> 715 </span> <span class="subxComment"># end</span> +<span id="L716" class="LineNr"> 716 </span> c3/return +<span id="L717" class="LineNr"> 717 </span> +<span id="L718" class="LineNr"> 718 </span><span class="subxTest">test-skip-chars-matching-in-slice-none</span>: +<span id="L719" class="LineNr"> 719 </span> <span class="subxComment"># (eax..ecx) = "ab"</span> +<span id="L720" class="LineNr"> 720 </span> b8/copy-to-eax <span class="Constant">"ab"</span>/imm32 +<span id="L721" class="LineNr"> 721 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L722" class="LineNr"> 722 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L723" class="LineNr"> 723 </span> 05/add-to-eax 4/imm32 +<span id="L724" class="LineNr"> 724 </span> <span class="subxComment"># eax = skip-chars-matching-in-slice(eax, ecx, 0x20/space)</span> +<span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L726" class="LineNr"> 726 </span> 68/push 0x20/imm32/space +<span id="L727" class="LineNr"> 727 </span> 51/push-ecx +<span id="L728" class="LineNr"> 728 </span> 50/push-eax +<span id="L729" class="LineNr"> 729 </span> <span class="subxS2Comment"># . . call</span> +<span id="L730" class="LineNr"> 730 </span> e8/call <a href='124next-token.subx.html#L651'>skip-chars-matching-in-slice</a>/disp32 +<span id="L731" class="LineNr"> 731 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L732" class="LineNr"> 732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L733" class="LineNr"> 733 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 2, msg)</span> +<span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L735" class="LineNr"> 735 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-in-slice-none"</span>/imm32 +<span id="L736" class="LineNr"> 736 </span> 68/push 2/imm32 +<span id="L737" class="LineNr"> 737 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L738" class="LineNr"> 738 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L739" class="LineNr"> 739 </span> 51/push-ecx +<span id="L740" class="LineNr"> 740 </span> <span class="subxS2Comment"># . . call</span> +<span id="L741" class="LineNr"> 741 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L742" class="LineNr"> 742 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L743" class="LineNr"> 743 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L744" class="LineNr"> 744 </span> <span class="subxComment"># end</span> +<span id="L745" class="LineNr"> 745 </span> c3/return +<span id="L746" class="LineNr"> 746 </span> +<span id="L747" class="LineNr"> 747 </span><span class="subxFunction">skip-chars-matching-whitespace-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L748" class="LineNr"> 748 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L749" class="LineNr"> 749 </span> 55/push-ebp +<span id="L750" class="LineNr"> 750 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L751" class="LineNr"> 751 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L752" class="LineNr"> 752 </span> 51/push-ecx +<span id="L753" class="LineNr"> 753 </span> 53/push-ebx +<span id="L754" class="LineNr"> 754 </span> <span class="subxComment"># eax = curr</span> +<span id="L755" class="LineNr"> 755 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L756" class="LineNr"> 756 </span> <span class="subxComment"># ecx = end</span> +<span id="L757" class="LineNr"> 757 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L758" class="LineNr"> 758 </span> <span class="subxComment"># var c/ebx: byte = 0</span> +<span id="L759" class="LineNr"> 759 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L760" class="LineNr"> 760 </span><span class="Constant">$skip-chars-matching-whitespace-in-slice:loop</span>: +<span id="L761" class="LineNr"> 761 </span> <span class="subxComment"># if (curr >= end) break</span> +<span id="L762" class="LineNr"> 762 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> +<span id="L763" class="LineNr"> 763 </span> 0f 83/jump-if-addr>= $skip-chars-matching-in-slice:end/disp32 +<span id="L764" class="LineNr"> 764 </span> <span class="subxComment"># c = *curr</span> +<span id="L765" class="LineNr"> 765 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> +<span id="L766" class="LineNr"> 766 </span> <span class="subxComment"># if (c == ' ') goto body</span> +<span id="L767" class="LineNr"> 767 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32/space <span class="subxComment"># compare ebx</span> +<span id="L768" class="LineNr"> 768 </span> 74/jump-if-= $skip-chars-matching-whitespace-in-slice:body/disp8 +<span id="L769" class="LineNr"> 769 </span> <span class="subxComment"># if (c == '\n') goto body</span> +<span id="L770" class="LineNr"> 770 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0a/imm32/newline <span class="subxComment"># compare ebx</span> +<span id="L771" class="LineNr"> 771 </span> 74/jump-if-= $skip-chars-matching-whitespace-in-slice:body/disp8 +<span id="L772" class="LineNr"> 772 </span> <span class="subxComment"># if (c == '\t') goto body</span> +<span id="L773" class="LineNr"> 773 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x09/imm32/tab <span class="subxComment"># compare ebx</span> +<span id="L774" class="LineNr"> 774 </span> 74/jump-if-= $skip-chars-matching-whitespace-in-slice:body/disp8 +<span id="L775" class="LineNr"> 775 </span> <span class="subxComment"># if (c != '\r') break</span> +<span id="L776" class="LineNr"> 776 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0d/imm32/cr <span class="subxComment"># compare ebx</span> +<span id="L777" class="LineNr"> 777 </span> 75/jump-if-!= $skip-chars-matching-whitespace-in-slice:end/disp8 +<span id="L778" class="LineNr"> 778 </span><span class="Constant">$skip-chars-matching-whitespace-in-slice:body</span>: +<span id="L779" class="LineNr"> 779 </span> <span class="subxComment"># ++curr</span> +<span id="L780" class="LineNr"> 780 </span> 40/increment-eax +<span id="L781" class="LineNr"> 781 </span> eb/jump $skip-chars-matching-whitespace-in-slice:<span class="Constant">loop</span>/disp8 +<span id="L782" class="LineNr"> 782 </span><span class="Constant">$skip-chars-matching-whitespace-in-slice:end</span>: +<span id="L783" class="LineNr"> 783 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L784" class="LineNr"> 784 </span> 5b/pop-to-ebx +<span id="L785" class="LineNr"> 785 </span> 59/pop-to-ecx +<span id="L786" class="LineNr"> 786 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L787" class="LineNr"> 787 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L788" class="LineNr"> 788 </span> 5d/pop-to-ebp +<span id="L789" class="LineNr"> 789 </span> c3/return +<span id="L790" class="LineNr"> 790 </span> +<span id="L791" class="LineNr"> 791 </span><span class="subxTest">test-skip-chars-matching-whitespace-in-slice</span>: +<span id="L792" class="LineNr"> 792 </span> <span class="subxComment"># (eax..ecx) = " \nab"</span> +<span id="L793" class="LineNr"> 793 </span> b8/copy-to-eax <span class="Constant">" \nab"</span>/imm32 +<span id="L794" class="LineNr"> 794 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L795" class="LineNr"> 795 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L796" class="LineNr"> 796 </span> 05/add-to-eax 4/imm32 +<span id="L797" class="LineNr"> 797 </span> <span class="subxComment"># eax = skip-chars-matching-whitespace-in-slice(eax, ecx)</span> +<span id="L798" class="LineNr"> 798 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L799" class="LineNr"> 799 </span> 51/push-ecx +<span id="L800" class="LineNr"> 800 </span> 50/push-eax +<span id="L801" class="LineNr"> 801 </span> <span class="subxS2Comment"># . . call</span> +<span id="L802" class="LineNr"> 802 </span> e8/call <a href='124next-token.subx.html#L747'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L803" class="LineNr"> 803 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L804" class="LineNr"> 804 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L805" class="LineNr"> 805 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 2, msg)</span> +<span id="L806" class="LineNr"> 806 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L807" class="LineNr"> 807 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-whitespace-in-slice"</span>/imm32 +<span id="L808" class="LineNr"> 808 </span> 68/push 2/imm32 +<span id="L809" class="LineNr"> 809 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L810" class="LineNr"> 810 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L811" class="LineNr"> 811 </span> 51/push-ecx +<span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . call</span> +<span id="L813" class="LineNr"> 813 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L814" class="LineNr"> 814 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L815" class="LineNr"> 815 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L816" class="LineNr"> 816 </span> <span class="subxComment"># end</span> +<span id="L817" class="LineNr"> 817 </span> c3/return +<span id="L818" class="LineNr"> 818 </span> +<span id="L819" class="LineNr"> 819 </span><span class="subxComment"># minor fork of 'skip-chars-matching-in-slice'</span> +<span id="L820" class="LineNr"> 820 </span><span class="subxFunction">skip-chars-not-matching-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte), delimiter: byte -> curr/eax: (addr byte)</span> +<span id="L821" class="LineNr"> 821 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L822" class="LineNr"> 822 </span> 55/push-ebp +<span id="L823" class="LineNr"> 823 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L825" class="LineNr"> 825 </span> 51/push-ecx +<span id="L826" class="LineNr"> 826 </span> 52/push-edx +<span id="L827" class="LineNr"> 827 </span> 53/push-ebx +<span id="L828" class="LineNr"> 828 </span> <span class="subxComment"># eax = curr</span> +<span id="L829" class="LineNr"> 829 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L830" class="LineNr"> 830 </span> <span class="subxComment"># ecx = end</span> +<span id="L831" class="LineNr"> 831 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L832" class="LineNr"> 832 </span> <span class="subxComment"># edx = delimiter</span> +<span id="L833" class="LineNr"> 833 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> +<span id="L834" class="LineNr"> 834 </span> <span class="subxComment"># var c/ebx: byte = 0</span> +<span id="L835" class="LineNr"> 835 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L836" class="LineNr"> 836 </span><span class="Constant">$skip-chars-not-matching-in-slice:loop</span>: +<span id="L837" class="LineNr"> 837 </span> <span class="subxComment"># if (curr >= end) break</span> +<span id="L838" class="LineNr"> 838 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> +<span id="L839" class="LineNr"> 839 </span> 73/jump-if-addr>= $skip-chars-not-matching-in-slice:end/disp8 +<span id="L840" class="LineNr"> 840 </span> <span class="subxComment"># c = *curr</span> +<span id="L841" class="LineNr"> 841 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> +<span id="L842" class="LineNr"> 842 </span> <span class="subxComment"># if (c == delimiter) break</span> +<span id="L843" class="LineNr"> 843 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx and edx</span> +<span id="L844" class="LineNr"> 844 </span> 74/jump-if-= $skip-chars-not-matching-in-slice:end/disp8 +<span id="L845" class="LineNr"> 845 </span> <span class="subxComment"># ++curr</span> +<span id="L846" class="LineNr"> 846 </span> 40/increment-eax +<span id="L847" class="LineNr"> 847 </span> eb/jump $skip-chars-not-matching-in-slice:<span class="Constant">loop</span>/disp8 +<span id="L848" class="LineNr"> 848 </span><span class="Constant">$skip-chars-not-matching-in-slice:end</span>: +<span id="L849" class="LineNr"> 849 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L850" class="LineNr"> 850 </span> 5b/pop-to-ebx +<span id="L851" class="LineNr"> 851 </span> 5a/pop-to-edx +<span id="L852" class="LineNr"> 852 </span> 59/pop-to-ecx +<span id="L853" class="LineNr"> 853 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L854" class="LineNr"> 854 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L855" class="LineNr"> 855 </span> 5d/pop-to-ebp +<span id="L856" class="LineNr"> 856 </span> c3/return +<span id="L857" class="LineNr"> 857 </span> +<span id="L858" class="LineNr"> 858 </span><span class="subxTest">test-skip-chars-not-matching-in-slice</span>: +<span id="L859" class="LineNr"> 859 </span> <span class="subxComment"># (eax..ecx) = "ab "</span> +<span id="L860" class="LineNr"> 860 </span> b8/copy-to-eax <span class="Constant">"ab "</span>/imm32 +<span id="L861" class="LineNr"> 861 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L862" class="LineNr"> 862 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L863" class="LineNr"> 863 </span> 05/add-to-eax 4/imm32 +<span id="L864" class="LineNr"> 864 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, ecx, 0x20/space)</span> +<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L866" class="LineNr"> 866 </span> 68/push 0x20/imm32/space +<span id="L867" class="LineNr"> 867 </span> 51/push-ecx +<span id="L868" class="LineNr"> 868 </span> 50/push-eax +<span id="L869" class="LineNr"> 869 </span> <span class="subxS2Comment"># . . call</span> +<span id="L870" class="LineNr"> 870 </span> e8/call <a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a>/disp32 +<span id="L871" class="LineNr"> 871 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L872" class="LineNr"> 872 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L873" class="LineNr"> 873 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 1, msg)</span> +<span id="L874" class="LineNr"> 874 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L875" class="LineNr"> 875 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-in-slice"</span>/imm32 +<span id="L876" class="LineNr"> 876 </span> 68/push 1/imm32 +<span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L878" class="LineNr"> 878 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L879" class="LineNr"> 879 </span> 51/push-ecx +<span id="L880" class="LineNr"> 880 </span> <span class="subxS2Comment"># . . call</span> +<span id="L881" class="LineNr"> 881 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L883" class="LineNr"> 883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L884" class="LineNr"> 884 </span> <span class="subxComment"># end</span> +<span id="L885" class="LineNr"> 885 </span> c3/return +<span id="L886" class="LineNr"> 886 </span> +<span id="L887" class="LineNr"> 887 </span><span class="subxTest">test-skip-chars-not-matching-in-slice-none</span>: +<span id="L888" class="LineNr"> 888 </span> <span class="subxComment"># (eax..ecx) = " ab"</span> +<span id="L889" class="LineNr"> 889 </span> b8/copy-to-eax <span class="Constant">" ab"</span>/imm32 +<span id="L890" class="LineNr"> 890 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L891" class="LineNr"> 891 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L892" class="LineNr"> 892 </span> 05/add-to-eax 4/imm32 +<span id="L893" class="LineNr"> 893 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, ecx, 0x20/space)</span> +<span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L895" class="LineNr"> 895 </span> 68/push 0x20/imm32/space +<span id="L896" class="LineNr"> 896 </span> 51/push-ecx +<span id="L897" class="LineNr"> 897 </span> 50/push-eax +<span id="L898" class="LineNr"> 898 </span> <span class="subxS2Comment"># . . call</span> +<span id="L899" class="LineNr"> 899 </span> e8/call <a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a>/disp32 +<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L901" class="LineNr"> 901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L902" class="LineNr"> 902 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 3, msg)</span> +<span id="L903" class="LineNr"> 903 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L904" class="LineNr"> 904 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-in-slice-none"</span>/imm32 +<span id="L905" class="LineNr"> 905 </span> 68/push 3/imm32 +<span id="L906" class="LineNr"> 906 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L907" class="LineNr"> 907 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L908" class="LineNr"> 908 </span> 51/push-ecx +<span id="L909" class="LineNr"> 909 </span> <span class="subxS2Comment"># . . call</span> +<span id="L910" class="LineNr"> 910 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L911" class="LineNr"> 911 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L912" class="LineNr"> 912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># end</span> +<span id="L914" class="LineNr"> 914 </span> c3/return +<span id="L915" class="LineNr"> 915 </span> +<span id="L916" class="LineNr"> 916 </span><span class="subxTest">test-skip-chars-not-matching-in-slice-all</span>: +<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># (eax..ecx) = "ab"</span> +<span id="L918" class="LineNr"> 918 </span> b8/copy-to-eax <span class="Constant">"ab"</span>/imm32 +<span id="L919" class="LineNr"> 919 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L920" class="LineNr"> 920 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L921" class="LineNr"> 921 </span> 05/add-to-eax 4/imm32 +<span id="L922" class="LineNr"> 922 </span> <span class="subxComment"># eax = skip-chars-not-matching-in-slice(eax, ecx, 0x20/space)</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L924" class="LineNr"> 924 </span> 68/push 0x20/imm32/space +<span id="L925" class="LineNr"> 925 </span> 51/push-ecx +<span id="L926" class="LineNr"> 926 </span> 50/push-eax +<span id="L927" class="LineNr"> 927 </span> <span class="subxS2Comment"># . . call</span> +<span id="L928" class="LineNr"> 928 </span> e8/call <a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a>/disp32 +<span id="L929" class="LineNr"> 929 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L930" class="LineNr"> 930 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 0, msg)</span> +<span id="L932" class="LineNr"> 932 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L933" class="LineNr"> 933 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-in-slice-all"</span>/imm32 +<span id="L934" class="LineNr"> 934 </span> 68/push 0/imm32 +<span id="L935" class="LineNr"> 935 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L936" class="LineNr"> 936 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L937" class="LineNr"> 937 </span> 51/push-ecx +<span id="L938" class="LineNr"> 938 </span> <span class="subxS2Comment"># . . call</span> +<span id="L939" class="LineNr"> 939 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L940" class="LineNr"> 940 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L941" class="LineNr"> 941 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L942" class="LineNr"> 942 </span> <span class="subxComment"># end</span> +<span id="L943" class="LineNr"> 943 </span> c3/return +<span id="L944" class="LineNr"> 944 </span> +<span id="L945" class="LineNr"> 945 </span><span class="subxFunction">skip-chars-not-matching-whitespace-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L946" class="LineNr"> 946 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L947" class="LineNr"> 947 </span> 55/push-ebp +<span id="L948" class="LineNr"> 948 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L949" class="LineNr"> 949 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L950" class="LineNr"> 950 </span> 51/push-ecx +<span id="L951" class="LineNr"> 951 </span> 53/push-ebx +<span id="L952" class="LineNr"> 952 </span> <span class="subxComment"># eax = curr</span> +<span id="L953" class="LineNr"> 953 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L954" class="LineNr"> 954 </span> <span class="subxComment"># ecx = end</span> +<span id="L955" class="LineNr"> 955 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L956" class="LineNr"> 956 </span> <span class="subxComment"># var c/ebx: byte = 0</span> +<span id="L957" class="LineNr"> 957 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L958" class="LineNr"> 958 </span><span class="Constant">$skip-chars-not-matching-whitespace-in-slice:loop</span>: +<span id="L959" class="LineNr"> 959 </span> <span class="subxComment"># if (curr >= end) break</span> +<span id="L960" class="LineNr"> 960 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> +<span id="L961" class="LineNr"> 961 </span> 0f 83/jump-if-addr>= $skip-chars-not-matching-in-slice:end/disp32 +<span id="L962" class="LineNr"> 962 </span> <span class="subxComment"># c = *curr</span> +<span id="L963" class="LineNr"> 963 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to BL</span> +<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># if (c == ' ') break</span> +<span id="L965" class="LineNr"> 965 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32/space <span class="subxComment"># compare ebx</span> +<span id="L966" class="LineNr"> 966 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 +<span id="L967" class="LineNr"> 967 </span> <span class="subxComment"># if (c == '\n') break</span> +<span id="L968" class="LineNr"> 968 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0a/imm32/newline <span class="subxComment"># compare ebx</span> +<span id="L969" class="LineNr"> 969 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 +<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># if (c == '\t') break</span> +<span id="L971" class="LineNr"> 971 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x09/imm32/tab <span class="subxComment"># compare ebx</span> +<span id="L972" class="LineNr"> 972 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 +<span id="L973" class="LineNr"> 973 </span> <span class="subxComment"># if (c == '\r') break</span> +<span id="L974" class="LineNr"> 974 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x0d/imm32/cr <span class="subxComment"># compare ebx</span> +<span id="L975" class="LineNr"> 975 </span> 74/jump-if-= $skip-chars-not-matching-whitespace-in-slice:end/disp8 +<span id="L976" class="LineNr"> 976 </span> <span class="subxComment"># ++curr</span> +<span id="L977" class="LineNr"> 977 </span> 40/increment-eax +<span id="L978" class="LineNr"> 978 </span> eb/jump $skip-chars-not-matching-whitespace-in-slice:<span class="Constant">loop</span>/disp8 +<span id="L979" class="LineNr"> 979 </span><span class="Constant">$skip-chars-not-matching-whitespace-in-slice:end</span>: +<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L981" class="LineNr"> 981 </span> 5b/pop-to-ebx +<span id="L982" class="LineNr"> 982 </span> 59/pop-to-ecx +<span id="L983" class="LineNr"> 983 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L984" class="LineNr"> 984 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L985" class="LineNr"> 985 </span> 5d/pop-to-ebp +<span id="L986" class="LineNr"> 986 </span> c3/return +<span id="L987" class="LineNr"> 987 </span> +<span id="L988" class="LineNr"> 988 </span><span class="subxTest">test-skip-chars-not-matching-whitespace-in-slice</span>: +<span id="L989" class="LineNr"> 989 </span> <span class="subxComment"># (eax..ecx) = "ab\n"</span> +<span id="L990" class="LineNr"> 990 </span> b8/copy-to-eax <span class="Constant">"ab\n"</span>/imm32 +<span id="L991" class="LineNr"> 991 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L992" class="LineNr"> 992 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L993" class="LineNr"> 993 </span> 05/add-to-eax 4/imm32 +<span id="L994" class="LineNr"> 994 </span> <span class="subxComment"># eax = skip-chars-not-matching-whitespace-in-slice(eax, ecx)</span> +<span id="L995" class="LineNr"> 995 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L996" class="LineNr"> 996 </span> 51/push-ecx +<span id="L997" class="LineNr"> 997 </span> 50/push-eax +<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . call</span> +<span id="L999" class="LineNr"> 999 </span> e8/call <a href='124next-token.subx.html#L945'>skip-chars-not-matching-whitespace-in-slice</a>/disp32 +<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1001" class="LineNr">1001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 1, msg)</span> +<span id="L1003" class="LineNr">1003 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1004" class="LineNr">1004 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-whitespace-in-slice"</span>/imm32 +<span id="L1005" class="LineNr">1005 </span> 68/push 1/imm32 +<span id="L1006" class="LineNr">1006 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1007" class="LineNr">1007 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1008" class="LineNr">1008 </span> 51/push-ecx +<span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1010" class="LineNr">1010 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1012" class="LineNr">1012 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1013" class="LineNr">1013 </span> <span class="subxComment"># end</span> +<span id="L1014" class="LineNr">1014 </span> c3/return +<span id="L1015" class="LineNr">1015 </span> +<span id="L1016" class="LineNr">1016 </span><span class="subxComment"># update line->read to end of string literal surrounded by double quotes</span> +<span id="L1017" class="LineNr">1017 </span><span class="subxComment"># line->read must start out at a double-quote</span> +<span id="L1018" class="LineNr">1018 </span><span class="subxFunction">skip-string</span>: <span class="subxComment"># line: (addr stream byte)</span> +<span id="L1019" class="LineNr">1019 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1020" class="LineNr">1020 </span> 55/push-ebp +<span id="L1021" class="LineNr">1021 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1022" class="LineNr">1022 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1023" class="LineNr">1023 </span> 50/push-eax +<span id="L1024" class="LineNr">1024 </span> 51/push-ecx +<span id="L1025" class="LineNr">1025 </span> 52/push-edx +<span id="L1026" class="LineNr">1026 </span> <span class="subxComment"># ecx = line</span> +<span id="L1027" class="LineNr">1027 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L1028" class="LineNr">1028 </span> <span class="subxComment"># eax = skip-string-in-slice(&line->data[line->read], &line->data[line->write])</span> +<span id="L1029" class="LineNr">1029 </span> <span class="subxS2Comment"># . . push &line->data[line->write]</span> +<span id="L1030" class="LineNr">1030 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to edx</span> +<span id="L1031" class="LineNr">1031 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> +<span id="L1032" class="LineNr">1032 </span> 52/push-edx +<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . push &line->data[line->read]</span> +<span id="L1034" class="LineNr">1034 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L1035" class="LineNr">1035 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> +<span id="L1036" class="LineNr">1036 </span> 52/push-edx +<span id="L1037" class="LineNr">1037 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1038" class="LineNr">1038 </span> e8/call <a href='124next-token.subx.html#L1260'>skip-string-in-slice</a>/disp32 +<span id="L1039" class="LineNr">1039 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1040" class="LineNr">1040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1041" class="LineNr">1041 </span> <span class="subxComment"># line->read = eax - line->data</span> +<span id="L1042" class="LineNr">1042 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1043" class="LineNr">1043 </span> 2d/subtract-from-eax 0xc/imm32 +<span id="L1044" class="LineNr">1044 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> +<span id="L1045" class="LineNr">1045 </span><span class="Constant">$skip-string:end</span>: +<span id="L1046" class="LineNr">1046 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1047" class="LineNr">1047 </span> 5a/pop-to-edx +<span id="L1048" class="LineNr">1048 </span> 59/pop-to-ecx +<span id="L1049" class="LineNr">1049 </span> 58/pop-to-eax +<span id="L1050" class="LineNr">1050 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1051" class="LineNr">1051 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1052" class="LineNr">1052 </span> 5d/pop-to-ebp +<span id="L1053" class="LineNr">1053 </span> c3/return +<span id="L1054" class="LineNr">1054 </span> +<span id="L1055" class="LineNr">1055 </span><span class="subxTest">test-skip-string</span>: +<span id="L1056" class="LineNr">1056 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1057" class="LineNr">1057 </span> 55/push-ebp +<span id="L1058" class="LineNr">1058 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1059" class="LineNr">1059 </span> <span class="subxComment"># setup</span> +<span id="L1060" class="LineNr">1060 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1061" class="LineNr">1061 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1062" class="LineNr">1062 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1063" class="LineNr">1063 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1064" class="LineNr">1064 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1065" class="LineNr">1065 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1066" class="LineNr">1066 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1067" class="LineNr">1067 </span> <span class="subxS1Comment"># . write(_test-stream, "\"abc\" def")</span> +<span id="L1068" class="LineNr">1068 </span> <span class="subxS1Comment"># . indices: 0123 45</span> +<span id="L1069" class="LineNr">1069 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1070" class="LineNr">1070 </span> 68/push <span class="Constant">"\"</span>abc\<span class="Constant">" def"</span>/imm32 +<span id="L1071" class="LineNr">1071 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1072" class="LineNr">1072 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1073" class="LineNr">1073 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1074" class="LineNr">1074 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1075" class="LineNr">1075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1076" class="LineNr">1076 </span> <span class="subxComment"># precondition: line->read == 0</span> +<span id="L1077" class="LineNr">1077 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1078" class="LineNr">1078 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1055'>test-skip-string</a>/precondition"</span>/imm32 +<span id="L1079" class="LineNr">1079 </span> 68/push 0/imm32 +<span id="L1080" class="LineNr">1080 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1081" class="LineNr">1081 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1082" class="LineNr">1082 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1083" class="LineNr">1083 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1084" class="LineNr">1084 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1085" class="LineNr">1085 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1087" class="LineNr">1087 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1088" class="LineNr">1088 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1089" class="LineNr">1089 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1090" class="LineNr">1090 </span> e8/call <a href='124next-token.subx.html#L1018'>skip-string</a>/disp32 +<span id="L1091" class="LineNr">1091 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1092" class="LineNr">1092 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1093" class="LineNr">1093 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> +<span id="L1094" class="LineNr">1094 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1095" class="LineNr">1095 </span> 68/push <span class="Constant">"F - test-skip-string"</span>/imm32 +<span id="L1096" class="LineNr">1096 </span> 68/push 5/imm32 +<span id="L1097" class="LineNr">1097 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1098" class="LineNr">1098 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1100" class="LineNr">1100 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1102" class="LineNr">1102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1103" class="LineNr">1103 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1104" class="LineNr">1104 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1105" class="LineNr">1105 </span> 5d/pop-to-ebp +<span id="L1106" class="LineNr">1106 </span> c3/return +<span id="L1107" class="LineNr">1107 </span> +<span id="L1108" class="LineNr">1108 </span><span class="subxTest">test-skip-string-ignores-spaces</span>: +<span id="L1109" class="LineNr">1109 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1110" class="LineNr">1110 </span> 55/push-ebp +<span id="L1111" class="LineNr">1111 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1112" class="LineNr">1112 </span> <span class="subxComment"># setup</span> +<span id="L1113" class="LineNr">1113 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1115" class="LineNr">1115 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1117" class="LineNr">1117 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1118" class="LineNr">1118 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1119" class="LineNr">1119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1120" class="LineNr">1120 </span> <span class="subxS1Comment"># . write(_test-stream, "\"a b\"/yz")</span> +<span id="L1121" class="LineNr">1121 </span> <span class="subxS1Comment"># . indices: 0123 45</span> +<span id="L1122" class="LineNr">1122 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1123" class="LineNr">1123 </span> 68/push <span class="Constant">"\"</span>a b\<span class="Constant">"/yz"</span>/imm32 +<span id="L1124" class="LineNr">1124 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1125" class="LineNr">1125 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1126" class="LineNr">1126 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1127" class="LineNr">1127 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1128" class="LineNr">1128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1129" class="LineNr">1129 </span> <span class="subxComment"># precondition: line->read == 0</span> +<span id="L1130" class="LineNr">1130 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1131" class="LineNr">1131 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1108'>test-skip-string-ignores-spaces</a>/precondition"</span>/imm32 +<span id="L1132" class="LineNr">1132 </span> 68/push 0/imm32 +<span id="L1133" class="LineNr">1133 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1134" class="LineNr">1134 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1135" class="LineNr">1135 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1136" class="LineNr">1136 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1137" class="LineNr">1137 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1138" class="LineNr">1138 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1139" class="LineNr">1139 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1140" class="LineNr">1140 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1141" class="LineNr">1141 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1142" class="LineNr">1142 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1143" class="LineNr">1143 </span> e8/call <a href='124next-token.subx.html#L1018'>skip-string</a>/disp32 +<span id="L1144" class="LineNr">1144 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1145" class="LineNr">1145 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1146" class="LineNr">1146 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> +<span id="L1147" class="LineNr">1147 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1148" class="LineNr">1148 </span> 68/push <span class="Constant">"F - test-skip-string-ignores-spaces"</span>/imm32 +<span id="L1149" class="LineNr">1149 </span> 68/push 5/imm32 +<span id="L1150" class="LineNr">1150 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1151" class="LineNr">1151 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1152" class="LineNr">1152 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1153" class="LineNr">1153 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1154" class="LineNr">1154 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1155" class="LineNr">1155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1156" class="LineNr">1156 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1157" class="LineNr">1157 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1158" class="LineNr">1158 </span> 5d/pop-to-ebp +<span id="L1159" class="LineNr">1159 </span> c3/return +<span id="L1160" class="LineNr">1160 </span> +<span id="L1161" class="LineNr">1161 </span><span class="subxTest">test-skip-string-ignores-escapes</span>: +<span id="L1162" class="LineNr">1162 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1163" class="LineNr">1163 </span> 55/push-ebp +<span id="L1164" class="LineNr">1164 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1165" class="LineNr">1165 </span> <span class="subxComment"># setup</span> +<span id="L1166" class="LineNr">1166 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1167" class="LineNr">1167 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1168" class="LineNr">1168 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1169" class="LineNr">1169 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1170" class="LineNr">1170 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1171" class="LineNr">1171 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1172" class="LineNr">1172 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1173" class="LineNr">1173 </span> <span class="subxS1Comment"># . write(_test-stream, "\"a\\\"b\"/yz")</span> +<span id="L1174" class="LineNr">1174 </span> <span class="subxS1Comment"># . indices: 01 2 34 56</span> +<span id="L1175" class="LineNr">1175 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1176" class="LineNr">1176 </span> 68/push <span class="Constant">"\"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 +<span id="L1177" class="LineNr">1177 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1178" class="LineNr">1178 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1179" class="LineNr">1179 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1180" class="LineNr">1180 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1181" class="LineNr">1181 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1182" class="LineNr">1182 </span> <span class="subxComment"># precondition: line->read == 0</span> +<span id="L1183" class="LineNr">1183 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1184" class="LineNr">1184 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1161'>test-skip-string-ignores-escapes</a>/precondition"</span>/imm32 +<span id="L1185" class="LineNr">1185 </span> 68/push 0/imm32 +<span id="L1186" class="LineNr">1186 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1187" class="LineNr">1187 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1189" class="LineNr">1189 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1191" class="LineNr">1191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1192" class="LineNr">1192 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1194" class="LineNr">1194 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1196" class="LineNr">1196 </span> e8/call <a href='124next-token.subx.html#L1018'>skip-string</a>/disp32 +<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1198" class="LineNr">1198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1199" class="LineNr">1199 </span> <span class="subxComment"># check-ints-equal(line->read, 6, msg)</span> +<span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1201" class="LineNr">1201 </span> 68/push <span class="Constant">"F - test-skip-string-ignores-escapes"</span>/imm32 +<span id="L1202" class="LineNr">1202 </span> 68/push 6/imm32 +<span id="L1203" class="LineNr">1203 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1204" class="LineNr">1204 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1206" class="LineNr">1206 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1207" class="LineNr">1207 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1208" class="LineNr">1208 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1209" class="LineNr">1209 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1210" class="LineNr">1210 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1211" class="LineNr">1211 </span> 5d/pop-to-ebp +<span id="L1212" class="LineNr">1212 </span> c3/return +<span id="L1213" class="LineNr">1213 </span> +<span id="L1214" class="LineNr">1214 </span><span class="subxTest">test-skip-string-works-from-mid-stream</span>: +<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1216" class="LineNr">1216 </span> 55/push-ebp +<span id="L1217" class="LineNr">1217 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1218" class="LineNr">1218 </span> <span class="subxComment"># setup</span> +<span id="L1219" class="LineNr">1219 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1221" class="LineNr">1221 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1223" class="LineNr">1223 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1225" class="LineNr">1225 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1226" class="LineNr">1226 </span> <span class="subxS1Comment"># . write(_test-stream, "0 \"a\\\"b\"/yz")</span> +<span id="L1227" class="LineNr">1227 </span> <span class="subxS1Comment"># . indices: 01 2 34 56</span> +<span id="L1228" class="LineNr">1228 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1229" class="LineNr">1229 </span> 68/push <span class="Constant">"0 \"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 +<span id="L1230" class="LineNr">1230 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1231" class="LineNr">1231 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1232" class="LineNr">1232 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1233" class="LineNr">1233 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1234" class="LineNr">1234 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1235" class="LineNr">1235 </span> <span class="subxComment"># precondition: line->read == 2</span> +<span id="L1236" class="LineNr">1236 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1237" class="LineNr">1237 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 2/imm32 <span class="subxComment"># copy to *(eax+4)</span> +<span id="L1238" class="LineNr">1238 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1240" class="LineNr">1240 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1241" class="LineNr">1241 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1242" class="LineNr">1242 </span> e8/call <a href='124next-token.subx.html#L1018'>skip-string</a>/disp32 +<span id="L1243" class="LineNr">1243 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1244" class="LineNr">1244 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1245" class="LineNr">1245 </span> <span class="subxComment"># check-ints-equal(line->read, 8, msg)</span> +<span id="L1246" class="LineNr">1246 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1247" class="LineNr">1247 </span> 68/push <span class="Constant">"F - test-skip-string-works-from-mid-stream"</span>/imm32 +<span id="L1248" class="LineNr">1248 </span> 68/push 8/imm32 +<span id="L1249" class="LineNr">1249 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1250" class="LineNr">1250 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1252" class="LineNr">1252 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1254" class="LineNr">1254 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1255" class="LineNr">1255 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1256" class="LineNr">1256 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1257" class="LineNr">1257 </span> 5d/pop-to-ebp +<span id="L1258" class="LineNr">1258 </span> c3/return +<span id="L1259" class="LineNr">1259 </span> +<span id="L1260" class="LineNr">1260 </span><span class="subxFunction">skip-string-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L1261" class="LineNr">1261 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1262" class="LineNr">1262 </span> 55/push-ebp +<span id="L1263" class="LineNr">1263 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1264" class="LineNr">1264 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1265" class="LineNr">1265 </span> 51/push-ecx +<span id="L1266" class="LineNr">1266 </span> 52/push-edx +<span id="L1267" class="LineNr">1267 </span> 53/push-ebx +<span id="L1268" class="LineNr">1268 </span> <span class="subxComment"># ecx = curr</span> +<span id="L1269" class="LineNr">1269 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L1270" class="LineNr">1270 </span> <span class="subxComment"># edx = end</span> +<span id="L1271" class="LineNr">1271 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L1272" class="LineNr">1272 </span> <span class="subxComment"># var c/eax: byte = 0</span> +<span id="L1273" class="LineNr">1273 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1274" class="LineNr">1274 </span> <span class="subxComment"># skip initial dquote</span> +<span id="L1275" class="LineNr">1275 </span> 41/increment-ecx +<span id="L1276" class="LineNr">1276 </span><span class="Constant">$skip-string-in-slice:loop</span>: +<span id="L1277" class="LineNr">1277 </span> <span class="subxComment"># if (curr >= end) return curr</span> +<span id="L1278" class="LineNr">1278 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L1279" class="LineNr">1279 </span> 73/jump-if-addr>= $skip-string-in-slice:return-curr/disp8 +<span id="L1280" class="LineNr">1280 </span> <span class="subxComment"># c = *curr</span> +<span id="L1281" class="LineNr">1281 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L1282" class="LineNr">1282 </span><span class="Constant">$skip-string-in-slice:dquote</span>: +<span id="L1283" class="LineNr">1283 </span> <span class="subxComment"># if (c == '"') break</span> +<span id="L1284" class="LineNr">1284 </span> 3d/compare-eax-and 0x22/imm32/double-quote +<span id="L1285" class="LineNr">1285 </span> 74/jump-if-= $skip-string-in-slice:<span class="Constant">break</span>/disp8 +<span id="L1286" class="LineNr">1286 </span><span class="Constant">$skip-string-in-slice:check-for-escape</span>: +<span id="L1287" class="LineNr">1287 </span> <span class="subxComment"># if (c == '\') escape next char</span> +<span id="L1288" class="LineNr">1288 </span> 3d/compare-eax-and 0x5c/imm32/backslash +<span id="L1289" class="LineNr">1289 </span> 75/jump-if-!= $skip-string-in-slice:continue/disp8 +<span id="L1290" class="LineNr">1290 </span><span class="Constant">$skip-string-in-slice:escape</span>: +<span id="L1291" class="LineNr">1291 </span> 41/increment-ecx +<span id="L1292" class="LineNr">1292 </span><span class="Constant">$skip-string-in-slice:continue</span>: +<span id="L1293" class="LineNr">1293 </span> <span class="subxComment"># ++curr</span> +<span id="L1294" class="LineNr">1294 </span> 41/increment-ecx +<span id="L1295" class="LineNr">1295 </span> eb/jump $skip-string-in-slice:<span class="Constant">loop</span>/disp8 +<span id="L1296" class="LineNr">1296 </span><span class="Constant">$skip-string-in-slice:break</span>: +<span id="L1297" class="LineNr">1297 </span> <span class="subxComment"># skip final dquote</span> +<span id="L1298" class="LineNr">1298 </span> 41/increment-ecx +<span id="L1299" class="LineNr">1299 </span><span class="Constant">$skip-string-in-slice:return-curr</span>: +<span id="L1300" class="LineNr">1300 </span> <span class="subxComment"># return curr</span> +<span id="L1301" class="LineNr">1301 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to eax</span> +<span id="L1302" class="LineNr">1302 </span><span class="Constant">$skip-string-in-slice:end</span>: +<span id="L1303" class="LineNr">1303 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1304" class="LineNr">1304 </span> 5b/pop-to-ebx +<span id="L1305" class="LineNr">1305 </span> 5a/pop-to-edx +<span id="L1306" class="LineNr">1306 </span> 59/pop-to-ecx +<span id="L1307" class="LineNr">1307 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1308" class="LineNr">1308 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1309" class="LineNr">1309 </span> 5d/pop-to-ebp +<span id="L1310" class="LineNr">1310 </span> c3/return +<span id="L1311" class="LineNr">1311 </span> +<span id="L1312" class="LineNr">1312 </span><span class="subxTest">test-skip-string-in-slice</span>: +<span id="L1313" class="LineNr">1313 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1314" class="LineNr">1314 </span> 55/push-ebp +<span id="L1315" class="LineNr">1315 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1316" class="LineNr">1316 </span> <span class="subxComment"># setup: (eax..ecx) = "\"abc\" def"</span> +<span id="L1317" class="LineNr">1317 </span> b8/copy-to-eax <span class="Constant">"\"</span>abc\<span class="Constant">" def"</span>/imm32 +<span id="L1318" class="LineNr">1318 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1319" class="LineNr">1319 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1320" class="LineNr">1320 </span> 05/add-to-eax 4/imm32 +<span id="L1321" class="LineNr">1321 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> +<span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1323" class="LineNr">1323 </span> 51/push-ecx +<span id="L1324" class="LineNr">1324 </span> 50/push-eax +<span id="L1325" class="LineNr">1325 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1326" class="LineNr">1326 </span> e8/call <a href='124next-token.subx.html#L1260'>skip-string-in-slice</a>/disp32 +<span id="L1327" class="LineNr">1327 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1328" class="LineNr">1328 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1329" class="LineNr">1329 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 4, msg) # number of chars remaining after the string literal</span> +<span id="L1330" class="LineNr">1330 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1331" class="LineNr">1331 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice"</span>/imm32 +<span id="L1332" class="LineNr">1332 </span> 68/push 4/imm32 +<span id="L1333" class="LineNr">1333 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1334" class="LineNr">1334 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1335" class="LineNr">1335 </span> 51/push-ecx +<span id="L1336" class="LineNr">1336 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1337" class="LineNr">1337 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1338" class="LineNr">1338 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1339" class="LineNr">1339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1340" class="LineNr">1340 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1341" class="LineNr">1341 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1342" class="LineNr">1342 </span> 5d/pop-to-ebp +<span id="L1343" class="LineNr">1343 </span> c3/return +<span id="L1344" class="LineNr">1344 </span> +<span id="L1345" class="LineNr">1345 </span><span class="subxTest">test-skip-string-in-slice-ignores-spaces</span>: +<span id="L1346" class="LineNr">1346 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1347" class="LineNr">1347 </span> 55/push-ebp +<span id="L1348" class="LineNr">1348 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1349" class="LineNr">1349 </span> <span class="subxComment"># setup: (eax..ecx) = "\"a b\"/yz"</span> +<span id="L1350" class="LineNr">1350 </span> b8/copy-to-eax <span class="Constant">"\"</span>a b\<span class="Constant">"/yz"</span>/imm32 +<span id="L1351" class="LineNr">1351 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1352" class="LineNr">1352 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1353" class="LineNr">1353 </span> 05/add-to-eax 4/imm32 +<span id="L1354" class="LineNr">1354 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> +<span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1356" class="LineNr">1356 </span> 51/push-ecx +<span id="L1357" class="LineNr">1357 </span> 50/push-eax <span id="L1358" class="LineNr">1358 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1359" class="LineNr">1359 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1359" class="LineNr">1359 </span> e8/call <a href='124next-token.subx.html#L1260'>skip-string-in-slice</a>/disp32 <span id="L1360" class="LineNr">1360 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1361" class="LineNr">1361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1362" class="LineNr">1362 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1363" class="LineNr">1363 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1364" class="LineNr">1364 </span> 5d/pop-to-ebp -<span id="L1365" class="LineNr">1365 </span> c3/return -<span id="L1366" class="LineNr">1366 </span> -<span id="L1367" class="LineNr">1367 </span><span class="subxTest">test-skip-string-works-from-mid-stream</span>: -<span id="L1368" class="LineNr">1368 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1369" class="LineNr">1369 </span> 55/push-ebp -<span id="L1370" class="LineNr">1370 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1371" class="LineNr">1371 </span> <span class="subxComment"># setup</span> -<span id="L1372" class="LineNr">1372 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1373" class="LineNr">1373 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1374" class="LineNr">1374 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1375" class="LineNr">1375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1376" class="LineNr">1376 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1377" class="LineNr">1377 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1378" class="LineNr">1378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1379" class="LineNr">1379 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0 \"a\\\"b\"/yz")</span> -<span id="L1380" class="LineNr">1380 </span> <span class="subxS1Comment"># . indices: 01 2 34 56</span> -<span id="L1381" class="LineNr">1381 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1382" class="LineNr">1382 </span> 68/push <span class="Constant">"0 \"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 -<span id="L1383" class="LineNr">1383 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1384" class="LineNr">1384 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1385" class="LineNr">1385 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1386" class="LineNr">1386 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1387" class="LineNr">1387 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1388" class="LineNr">1388 </span> <span class="subxComment"># precondition: line->read == 2</span> -<span id="L1389" class="LineNr">1389 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1390" class="LineNr">1390 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 2/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L1391" class="LineNr">1391 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> -<span id="L1392" class="LineNr">1392 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1393" class="LineNr">1393 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1395" class="LineNr">1395 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 -<span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1397" class="LineNr">1397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># check-ints-equal(line->read, 8, msg)</span> -<span id="L1399" class="LineNr">1399 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1400" class="LineNr">1400 </span> 68/push <span class="Constant">"F - test-skip-string-works-from-mid-stream"</span>/imm32 -<span id="L1401" class="LineNr">1401 </span> 68/push 8/imm32 -<span id="L1402" class="LineNr">1402 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1403" class="LineNr">1403 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1404" class="LineNr">1404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1405" class="LineNr">1405 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1406" class="LineNr">1406 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1407" class="LineNr">1407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1408" class="LineNr">1408 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1409" class="LineNr">1409 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1410" class="LineNr">1410 </span> 5d/pop-to-ebp -<span id="L1411" class="LineNr">1411 </span> c3/return -<span id="L1412" class="LineNr">1412 </span> -<span id="L1413" class="LineNr">1413 </span><span class="subxFunction">skip-string-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L1414" class="LineNr">1414 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1415" class="LineNr">1415 </span> 55/push-ebp -<span id="L1416" class="LineNr">1416 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1417" class="LineNr">1417 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1418" class="LineNr">1418 </span> 51/push-ecx -<span id="L1419" class="LineNr">1419 </span> 52/push-edx -<span id="L1420" class="LineNr">1420 </span> 53/push-ebx -<span id="L1421" class="LineNr">1421 </span> <span class="subxComment"># ecx = curr</span> -<span id="L1422" class="LineNr">1422 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L1423" class="LineNr">1423 </span> <span class="subxComment"># edx = end</span> -<span id="L1424" class="LineNr">1424 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L1425" class="LineNr">1425 </span> <span class="subxComment"># var c/eax: byte = 0</span> -<span id="L1426" class="LineNr">1426 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1427" class="LineNr">1427 </span> <span class="subxComment"># skip initial dquote</span> -<span id="L1428" class="LineNr">1428 </span> 41/increment-ecx -<span id="L1429" class="LineNr">1429 </span><span class="Constant">$skip-string-in-slice:loop</span>: -<span id="L1430" class="LineNr">1430 </span> <span class="subxComment"># if (curr >= end) return curr</span> -<span id="L1431" class="LineNr">1431 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L1432" class="LineNr">1432 </span> 73/jump-if-addr>= $skip-string-in-slice:return-curr/disp8 -<span id="L1433" class="LineNr">1433 </span> <span class="subxComment"># c = *curr</span> -<span id="L1434" class="LineNr">1434 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L1435" class="LineNr">1435 </span><span class="Constant">$skip-string-in-slice:dquote</span>: -<span id="L1436" class="LineNr">1436 </span> <span class="subxComment"># if (c == '"') break</span> -<span id="L1437" class="LineNr">1437 </span> 3d/compare-eax-and 0x22/imm32/double-quote -<span id="L1438" class="LineNr">1438 </span> 74/jump-if-= $skip-string-in-slice:<span class="Constant">break</span>/disp8 -<span id="L1439" class="LineNr">1439 </span><span class="Constant">$skip-string-in-slice:check-for-escape</span>: -<span id="L1440" class="LineNr">1440 </span> <span class="subxComment"># if (c == '\') escape next char</span> -<span id="L1441" class="LineNr">1441 </span> 3d/compare-eax-and 0x5c/imm32/backslash -<span id="L1442" class="LineNr">1442 </span> 75/jump-if-!= $skip-string-in-slice:continue/disp8 -<span id="L1443" class="LineNr">1443 </span><span class="Constant">$skip-string-in-slice:escape</span>: -<span id="L1444" class="LineNr">1444 </span> 41/increment-ecx -<span id="L1445" class="LineNr">1445 </span><span class="Constant">$skip-string-in-slice:continue</span>: -<span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># ++curr</span> -<span id="L1447" class="LineNr">1447 </span> 41/increment-ecx -<span id="L1448" class="LineNr">1448 </span> eb/jump $skip-string-in-slice:<span class="Constant">loop</span>/disp8 -<span id="L1449" class="LineNr">1449 </span><span class="Constant">$skip-string-in-slice:break</span>: -<span id="L1450" class="LineNr">1450 </span> <span class="subxComment"># skip final dquote</span> -<span id="L1451" class="LineNr">1451 </span> 41/increment-ecx -<span id="L1452" class="LineNr">1452 </span><span class="Constant">$skip-string-in-slice:return-curr</span>: -<span id="L1453" class="LineNr">1453 </span> <span class="subxComment"># return curr</span> -<span id="L1454" class="LineNr">1454 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to eax</span> -<span id="L1455" class="LineNr">1455 </span><span class="Constant">$skip-string-in-slice:end</span>: -<span id="L1456" class="LineNr">1456 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1457" class="LineNr">1457 </span> 5b/pop-to-ebx -<span id="L1458" class="LineNr">1458 </span> 5a/pop-to-edx -<span id="L1459" class="LineNr">1459 </span> 59/pop-to-ecx -<span id="L1460" class="LineNr">1460 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1461" class="LineNr">1461 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1462" class="LineNr">1462 </span> 5d/pop-to-ebp -<span id="L1463" class="LineNr">1463 </span> c3/return -<span id="L1464" class="LineNr">1464 </span> -<span id="L1465" class="LineNr">1465 </span><span class="subxTest">test-skip-string-in-slice</span>: -<span id="L1466" class="LineNr">1466 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1467" class="LineNr">1467 </span> 55/push-ebp -<span id="L1468" class="LineNr">1468 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1469" class="LineNr">1469 </span> <span class="subxComment"># setup: (eax..ecx) = "\"abc\" def"</span> -<span id="L1470" class="LineNr">1470 </span> b8/copy-to-eax <span class="Constant">"\"</span>abc\<span class="Constant">" def"</span>/imm32 -<span id="L1471" class="LineNr">1471 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1472" class="LineNr">1472 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1473" class="LineNr">1473 </span> 05/add-to-eax 4/imm32 -<span id="L1474" class="LineNr">1474 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> -<span id="L1475" class="LineNr">1475 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1476" class="LineNr">1476 </span> 51/push-ecx -<span id="L1477" class="LineNr">1477 </span> 50/push-eax -<span id="L1478" class="LineNr">1478 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1479" class="LineNr">1479 </span> e8/call <a href='124next-token.subx.html#L1413'>skip-string-in-slice</a>/disp32 -<span id="L1480" class="LineNr">1480 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1481" class="LineNr">1481 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1482" class="LineNr">1482 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 4, msg) # number of chars remaining after the string literal</span> -<span id="L1483" class="LineNr">1483 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1484" class="LineNr">1484 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice"</span>/imm32 -<span id="L1485" class="LineNr">1485 </span> 68/push 4/imm32 -<span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1487" class="LineNr">1487 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1488" class="LineNr">1488 </span> 51/push-ecx -<span id="L1489" class="LineNr">1489 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1490" class="LineNr">1490 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1492" class="LineNr">1492 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1493" class="LineNr">1493 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1494" class="LineNr">1494 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1495" class="LineNr">1495 </span> 5d/pop-to-ebp -<span id="L1496" class="LineNr">1496 </span> c3/return -<span id="L1497" class="LineNr">1497 </span> -<span id="L1498" class="LineNr">1498 </span><span class="subxTest">test-skip-string-in-slice-ignores-spaces</span>: -<span id="L1499" class="LineNr">1499 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1500" class="LineNr">1500 </span> 55/push-ebp -<span id="L1501" class="LineNr">1501 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1502" class="LineNr">1502 </span> <span class="subxComment"># setup: (eax..ecx) = "\"a b\"/yz"</span> -<span id="L1503" class="LineNr">1503 </span> b8/copy-to-eax <span class="Constant">"\"</span>a b\<span class="Constant">"/yz"</span>/imm32 -<span id="L1504" class="LineNr">1504 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1505" class="LineNr">1505 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1506" class="LineNr">1506 </span> 05/add-to-eax 4/imm32 -<span id="L1507" class="LineNr">1507 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> -<span id="L1508" class="LineNr">1508 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1509" class="LineNr">1509 </span> 51/push-ecx -<span id="L1510" class="LineNr">1510 </span> 50/push-eax -<span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1512" class="LineNr">1512 </span> e8/call <a href='124next-token.subx.html#L1413'>skip-string-in-slice</a>/disp32 -<span id="L1513" class="LineNr">1513 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1514" class="LineNr">1514 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1515" class="LineNr">1515 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 3, msg) # number of chars remaining after the string literal</span> -<span id="L1516" class="LineNr">1516 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1517" class="LineNr">1517 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice-ignores-spaces"</span>/imm32 -<span id="L1518" class="LineNr">1518 </span> 68/push 3/imm32 -<span id="L1519" class="LineNr">1519 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1520" class="LineNr">1520 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1521" class="LineNr">1521 </span> 51/push-ecx -<span id="L1522" class="LineNr">1522 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1523" class="LineNr">1523 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1525" class="LineNr">1525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1526" class="LineNr">1526 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1527" class="LineNr">1527 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1528" class="LineNr">1528 </span> 5d/pop-to-ebp -<span id="L1529" class="LineNr">1529 </span> c3/return -<span id="L1530" class="LineNr">1530 </span> -<span id="L1531" class="LineNr">1531 </span><span class="subxTest">test-skip-string-in-slice-ignores-escapes</span>: -<span id="L1532" class="LineNr">1532 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1533" class="LineNr">1533 </span> 55/push-ebp -<span id="L1534" class="LineNr">1534 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1535" class="LineNr">1535 </span> <span class="subxComment"># setup: (eax..ecx) = "\"a\\\"b\"/yz"</span> -<span id="L1536" class="LineNr">1536 </span> b8/copy-to-eax <span class="Constant">"\"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 -<span id="L1537" class="LineNr">1537 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1538" class="LineNr">1538 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1539" class="LineNr">1539 </span> 05/add-to-eax 4/imm32 -<span id="L1540" class="LineNr">1540 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> -<span id="L1541" class="LineNr">1541 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1542" class="LineNr">1542 </span> 51/push-ecx -<span id="L1543" class="LineNr">1543 </span> 50/push-eax +<span id="L1361" class="LineNr">1361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1362" class="LineNr">1362 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 3, msg) # number of chars remaining after the string literal</span> +<span id="L1363" class="LineNr">1363 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1364" class="LineNr">1364 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice-ignores-spaces"</span>/imm32 +<span id="L1365" class="LineNr">1365 </span> 68/push 3/imm32 +<span id="L1366" class="LineNr">1366 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1367" class="LineNr">1367 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1368" class="LineNr">1368 </span> 51/push-ecx +<span id="L1369" class="LineNr">1369 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1370" class="LineNr">1370 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1371" class="LineNr">1371 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1372" class="LineNr">1372 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1373" class="LineNr">1373 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1374" class="LineNr">1374 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1375" class="LineNr">1375 </span> 5d/pop-to-ebp +<span id="L1376" class="LineNr">1376 </span> c3/return +<span id="L1377" class="LineNr">1377 </span> +<span id="L1378" class="LineNr">1378 </span><span class="subxTest">test-skip-string-in-slice-ignores-escapes</span>: +<span id="L1379" class="LineNr">1379 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1380" class="LineNr">1380 </span> 55/push-ebp +<span id="L1381" class="LineNr">1381 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1382" class="LineNr">1382 </span> <span class="subxComment"># setup: (eax..ecx) = "\"a\\\"b\"/yz"</span> +<span id="L1383" class="LineNr">1383 </span> b8/copy-to-eax <span class="Constant">"\"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 +<span id="L1384" class="LineNr">1384 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1385" class="LineNr">1385 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1386" class="LineNr">1386 </span> 05/add-to-eax 4/imm32 +<span id="L1387" class="LineNr">1387 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> +<span id="L1388" class="LineNr">1388 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1389" class="LineNr">1389 </span> 51/push-ecx +<span id="L1390" class="LineNr">1390 </span> 50/push-eax +<span id="L1391" class="LineNr">1391 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1392" class="LineNr">1392 </span> e8/call <a href='124next-token.subx.html#L1260'>skip-string-in-slice</a>/disp32 +<span id="L1393" class="LineNr">1393 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1394" class="LineNr">1394 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1395" class="LineNr">1395 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 3, msg) # number of chars remaining after the string literal</span> +<span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1397" class="LineNr">1397 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice-ignores-escapes"</span>/imm32 +<span id="L1398" class="LineNr">1398 </span> 68/push 3/imm32 +<span id="L1399" class="LineNr">1399 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1400" class="LineNr">1400 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1401" class="LineNr">1401 </span> 51/push-ecx +<span id="L1402" class="LineNr">1402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1403" class="LineNr">1403 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1404" class="LineNr">1404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1405" class="LineNr">1405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1406" class="LineNr">1406 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1407" class="LineNr">1407 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1408" class="LineNr">1408 </span> 5d/pop-to-ebp +<span id="L1409" class="LineNr">1409 </span> c3/return +<span id="L1410" class="LineNr">1410 </span> +<span id="L1411" class="LineNr">1411 </span><span class="subxTest">test-skip-string-in-slice-stops-at-end</span>: +<span id="L1412" class="LineNr">1412 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1413" class="LineNr">1413 </span> 55/push-ebp +<span id="L1414" class="LineNr">1414 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1415" class="LineNr">1415 </span> <span class="subxComment"># setup: (eax..ecx) = "\"abc" # unbalanced dquote</span> +<span id="L1416" class="LineNr">1416 </span> b8/copy-to-eax <span class="Constant">"\"</span>abc"/imm32 +<span id="L1417" class="LineNr">1417 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1418" class="LineNr">1418 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1419" class="LineNr">1419 </span> 05/add-to-eax 4/imm32 +<span id="L1420" class="LineNr">1420 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> +<span id="L1421" class="LineNr">1421 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1422" class="LineNr">1422 </span> 51/push-ecx +<span id="L1423" class="LineNr">1423 </span> 50/push-eax +<span id="L1424" class="LineNr">1424 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1425" class="LineNr">1425 </span> e8/call <a href='124next-token.subx.html#L1260'>skip-string-in-slice</a>/disp32 +<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1427" class="LineNr">1427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1428" class="LineNr">1428 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 0, msg) # skipped to end of slice</span> +<span id="L1429" class="LineNr">1429 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1430" class="LineNr">1430 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice-stops-at-end"</span>/imm32 +<span id="L1431" class="LineNr">1431 </span> 68/push 0/imm32 +<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1433" class="LineNr">1433 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1434" class="LineNr">1434 </span> 51/push-ecx +<span id="L1435" class="LineNr">1435 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1436" class="LineNr">1436 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1437" class="LineNr">1437 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1438" class="LineNr">1438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1439" class="LineNr">1439 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1440" class="LineNr">1440 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1441" class="LineNr">1441 </span> 5d/pop-to-ebp +<span id="L1442" class="LineNr">1442 </span> c3/return +<span id="L1443" class="LineNr">1443 </span> +<span id="L1444" class="LineNr">1444 </span><span class="subxComment"># update line->read to ')'</span> +<span id="L1445" class="LineNr">1445 </span><span class="subxComment"># line->read ends at ')'</span> +<span id="L1446" class="LineNr">1446 </span><span class="subxFunction">skip-until-close-paren</span>: <span class="subxComment"># line: (addr stream byte)</span> +<span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1448" class="LineNr">1448 </span> 55/push-ebp +<span id="L1449" class="LineNr">1449 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1450" class="LineNr">1450 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1451" class="LineNr">1451 </span> 50/push-eax +<span id="L1452" class="LineNr">1452 </span> 51/push-ecx +<span id="L1453" class="LineNr">1453 </span> 52/push-edx +<span id="L1454" class="LineNr">1454 </span> <span class="subxComment"># ecx = line</span> +<span id="L1455" class="LineNr">1455 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L1456" class="LineNr">1456 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(&line->data[line->read], &line->data[line->write])</span> +<span id="L1457" class="LineNr">1457 </span> <span class="subxS2Comment"># . . push &line->data[line->write]</span> +<span id="L1458" class="LineNr">1458 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to edx</span> +<span id="L1459" class="LineNr">1459 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> +<span id="L1460" class="LineNr">1460 </span> 52/push-edx +<span id="L1461" class="LineNr">1461 </span> <span class="subxS2Comment"># . . push &line->data[line->read]</span> +<span id="L1462" class="LineNr">1462 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L1463" class="LineNr">1463 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> +<span id="L1464" class="LineNr">1464 </span> 52/push-edx +<span id="L1465" class="LineNr">1465 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1466" class="LineNr">1466 </span> e8/call <a href='124next-token.subx.html#L1633'>skip-until-close-paren-in-slice</a>/disp32 +<span id="L1467" class="LineNr">1467 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1468" class="LineNr">1468 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1469" class="LineNr">1469 </span> <span class="subxComment"># line->read = eax - line->data</span> +<span id="L1470" class="LineNr">1470 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> +<span id="L1471" class="LineNr">1471 </span> 2d/subtract-from-eax 0xc/imm32 +<span id="L1472" class="LineNr">1472 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> +<span id="L1473" class="LineNr">1473 </span><span class="Constant">$skip-until-close-paren:end</span>: +<span id="L1474" class="LineNr">1474 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1475" class="LineNr">1475 </span> 5a/pop-to-edx +<span id="L1476" class="LineNr">1476 </span> 59/pop-to-ecx +<span id="L1477" class="LineNr">1477 </span> 58/pop-to-eax +<span id="L1478" class="LineNr">1478 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1479" class="LineNr">1479 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1480" class="LineNr">1480 </span> 5d/pop-to-ebp +<span id="L1481" class="LineNr">1481 </span> c3/return +<span id="L1482" class="LineNr">1482 </span> +<span id="L1483" class="LineNr">1483 </span><span class="subxTest">test-skip-until-close-paren</span>: +<span id="L1484" class="LineNr">1484 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1485" class="LineNr">1485 </span> 55/push-ebp +<span id="L1486" class="LineNr">1486 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1487" class="LineNr">1487 </span> <span class="subxComment"># setup</span> +<span id="L1488" class="LineNr">1488 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1489" class="LineNr">1489 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1490" class="LineNr">1490 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1492" class="LineNr">1492 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1494" class="LineNr">1494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1495" class="LineNr">1495 </span> <span class="subxS1Comment"># . write(_test-stream, "*(abc) def")</span> +<span id="L1496" class="LineNr">1496 </span> <span class="subxS1Comment"># . indices: 0123 45</span> +<span id="L1497" class="LineNr">1497 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1498" class="LineNr">1498 </span> 68/push <span class="Constant">"*(abc) def"</span>/imm32 +<span id="L1499" class="LineNr">1499 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1500" class="LineNr">1500 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1501" class="LineNr">1501 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1502" class="LineNr">1502 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1503" class="LineNr">1503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1504" class="LineNr">1504 </span> <span class="subxComment"># precondition: line->read == 0</span> +<span id="L1505" class="LineNr">1505 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1506" class="LineNr">1506 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1483'>test-skip-until-close-paren</a>/precondition"</span>/imm32 +<span id="L1507" class="LineNr">1507 </span> 68/push 0/imm32 +<span id="L1508" class="LineNr">1508 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1509" class="LineNr">1509 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1510" class="LineNr">1510 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1511" class="LineNr">1511 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1512" class="LineNr">1512 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1513" class="LineNr">1513 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1514" class="LineNr">1514 </span> <span class="subxComment"># skip-until-close-paren(_test-stream)</span> +<span id="L1515" class="LineNr">1515 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1516" class="LineNr">1516 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1518" class="LineNr">1518 </span> e8/call <a href='124next-token.subx.html#L1446'>skip-until-close-paren</a>/disp32 +<span id="L1519" class="LineNr">1519 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1520" class="LineNr">1520 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1521" class="LineNr">1521 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> +<span id="L1522" class="LineNr">1522 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1523" class="LineNr">1523 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren"</span>/imm32 +<span id="L1524" class="LineNr">1524 </span> 68/push 5/imm32 +<span id="L1525" class="LineNr">1525 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1526" class="LineNr">1526 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1527" class="LineNr">1527 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1528" class="LineNr">1528 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1529" class="LineNr">1529 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1530" class="LineNr">1530 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1531" class="LineNr">1531 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1532" class="LineNr">1532 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1533" class="LineNr">1533 </span> 5d/pop-to-ebp +<span id="L1534" class="LineNr">1534 </span> c3/return +<span id="L1535" class="LineNr">1535 </span> +<span id="L1536" class="LineNr">1536 </span><span class="subxTest">test-skip-until-close-paren-ignores-spaces</span>: +<span id="L1537" class="LineNr">1537 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1538" class="LineNr">1538 </span> 55/push-ebp +<span id="L1539" class="LineNr">1539 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1540" class="LineNr">1540 </span> <span class="subxComment"># setup</span> +<span id="L1541" class="LineNr">1541 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1542" class="LineNr">1542 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1543" class="LineNr">1543 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L1544" class="LineNr">1544 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1545" class="LineNr">1545 </span> e8/call <a href='124next-token.subx.html#L1413'>skip-string-in-slice</a>/disp32 +<span id="L1545" class="LineNr">1545 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L1546" class="LineNr">1546 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1547" class="LineNr">1547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1548" class="LineNr">1548 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 3, msg) # number of chars remaining after the string literal</span> +<span id="L1547" class="LineNr">1547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1548" class="LineNr">1548 </span> <span class="subxS1Comment"># . write(_test-stream, "*(a b)/yz")</span> <span id="L1549" class="LineNr">1549 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1550" class="LineNr">1550 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice-ignores-escapes"</span>/imm32 -<span id="L1551" class="LineNr">1551 </span> 68/push 3/imm32 -<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1553" class="LineNr">1553 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1554" class="LineNr">1554 </span> 51/push-ecx -<span id="L1555" class="LineNr">1555 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1556" class="LineNr">1556 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1558" class="LineNr">1558 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1559" class="LineNr">1559 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1560" class="LineNr">1560 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1561" class="LineNr">1561 </span> 5d/pop-to-ebp -<span id="L1562" class="LineNr">1562 </span> c3/return -<span id="L1563" class="LineNr">1563 </span> -<span id="L1564" class="LineNr">1564 </span><span class="subxTest">test-skip-string-in-slice-stops-at-end</span>: -<span id="L1565" class="LineNr">1565 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1566" class="LineNr">1566 </span> 55/push-ebp -<span id="L1567" class="LineNr">1567 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1568" class="LineNr">1568 </span> <span class="subxComment"># setup: (eax..ecx) = "\"abc" # unbalanced dquote</span> -<span id="L1569" class="LineNr">1569 </span> b8/copy-to-eax <span class="Constant">"\"</span>abc"/imm32 -<span id="L1570" class="LineNr">1570 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1571" class="LineNr">1571 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1572" class="LineNr">1572 </span> 05/add-to-eax 4/imm32 -<span id="L1573" class="LineNr">1573 </span> <span class="subxComment"># eax = skip-string-in-slice(eax, ecx)</span> +<span id="L1550" class="LineNr">1550 </span> 68/push <span class="Constant">"*(a b)/yz"</span>/imm32 +<span id="L1551" class="LineNr">1551 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1553" class="LineNr">1553 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1555" class="LineNr">1555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1556" class="LineNr">1556 </span> <span class="subxComment"># precondition: line->read == 0</span> +<span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1558" class="LineNr">1558 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1536'>test-skip-until-close-paren-ignores-spaces</a>/precondition"</span>/imm32 +<span id="L1559" class="LineNr">1559 </span> 68/push 0/imm32 +<span id="L1560" class="LineNr">1560 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1561" class="LineNr">1561 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1562" class="LineNr">1562 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1563" class="LineNr">1563 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1564" class="LineNr">1564 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1565" class="LineNr">1565 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1566" class="LineNr">1566 </span> <span class="subxComment"># skip-until-close-paren(_test-stream)</span> +<span id="L1567" class="LineNr">1567 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1568" class="LineNr">1568 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1569" class="LineNr">1569 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1570" class="LineNr">1570 </span> e8/call <a href='124next-token.subx.html#L1446'>skip-until-close-paren</a>/disp32 +<span id="L1571" class="LineNr">1571 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1572" class="LineNr">1572 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1573" class="LineNr">1573 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> <span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1575" class="LineNr">1575 </span> 51/push-ecx -<span id="L1576" class="LineNr">1576 </span> 50/push-eax -<span id="L1577" class="LineNr">1577 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1578" class="LineNr">1578 </span> e8/call <a href='124next-token.subx.html#L1413'>skip-string-in-slice</a>/disp32 -<span id="L1579" class="LineNr">1579 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1580" class="LineNr">1580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1581" class="LineNr">1581 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 0, msg) # skipped to end of slice</span> -<span id="L1582" class="LineNr">1582 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1583" class="LineNr">1583 </span> 68/push <span class="Constant">"F - test-skip-string-in-slice-stops-at-end"</span>/imm32 -<span id="L1584" class="LineNr">1584 </span> 68/push 0/imm32 -<span id="L1585" class="LineNr">1585 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1586" class="LineNr">1586 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1587" class="LineNr">1587 </span> 51/push-ecx -<span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1589" class="LineNr">1589 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1590" class="LineNr">1590 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1591" class="LineNr">1591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1592" class="LineNr">1592 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1593" class="LineNr">1593 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1594" class="LineNr">1594 </span> 5d/pop-to-ebp -<span id="L1595" class="LineNr">1595 </span> c3/return -<span id="L1596" class="LineNr">1596 </span> -<span id="L1597" class="LineNr">1597 </span><span class="subxComment"># update line->read to ')'</span> -<span id="L1598" class="LineNr">1598 </span><span class="subxComment"># line->read ends at ')'</span> -<span id="L1599" class="LineNr">1599 </span><span class="subxFunction">skip-until-close-paren</span>: <span class="subxComment"># line: (addr stream byte)</span> -<span id="L1600" class="LineNr">1600 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1601" class="LineNr">1601 </span> 55/push-ebp -<span id="L1602" class="LineNr">1602 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1603" class="LineNr">1603 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1604" class="LineNr">1604 </span> 50/push-eax -<span id="L1605" class="LineNr">1605 </span> 51/push-ecx -<span id="L1606" class="LineNr">1606 </span> 52/push-edx -<span id="L1607" class="LineNr">1607 </span> <span class="subxComment"># ecx = line</span> -<span id="L1608" class="LineNr">1608 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L1609" class="LineNr">1609 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(&line->data[line->read], &line->data[line->write])</span> -<span id="L1610" class="LineNr">1610 </span> <span class="subxS2Comment"># . . push &line->data[line->write]</span> -<span id="L1611" class="LineNr">1611 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to edx</span> -<span id="L1612" class="LineNr">1612 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> -<span id="L1613" class="LineNr">1613 </span> 52/push-edx -<span id="L1614" class="LineNr">1614 </span> <span class="subxS2Comment"># . . push &line->data[line->read]</span> -<span id="L1615" class="LineNr">1615 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> -<span id="L1616" class="LineNr">1616 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to edx</span> -<span id="L1617" class="LineNr">1617 </span> 52/push-edx -<span id="L1618" class="LineNr">1618 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1619" class="LineNr">1619 </span> e8/call <a href='124next-token.subx.html#L1786'>skip-until-close-paren-in-slice</a>/disp32 -<span id="L1620" class="LineNr">1620 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1621" class="LineNr">1621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1622" class="LineNr">1622 </span> <span class="subxComment"># line->read = eax - line->data</span> -<span id="L1623" class="LineNr">1623 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> -<span id="L1624" class="LineNr">1624 </span> 2d/subtract-from-eax 0xc/imm32 -<span id="L1625" class="LineNr">1625 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> -<span id="L1626" class="LineNr">1626 </span><span class="Constant">$skip-until-close-paren:end</span>: -<span id="L1627" class="LineNr">1627 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1628" class="LineNr">1628 </span> 5a/pop-to-edx -<span id="L1629" class="LineNr">1629 </span> 59/pop-to-ecx -<span id="L1630" class="LineNr">1630 </span> 58/pop-to-eax -<span id="L1631" class="LineNr">1631 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1632" class="LineNr">1632 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1633" class="LineNr">1633 </span> 5d/pop-to-ebp -<span id="L1634" class="LineNr">1634 </span> c3/return -<span id="L1635" class="LineNr">1635 </span> -<span id="L1636" class="LineNr">1636 </span><span class="subxTest">test-skip-until-close-paren</span>: -<span id="L1637" class="LineNr">1637 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1638" class="LineNr">1638 </span> 55/push-ebp -<span id="L1639" class="LineNr">1639 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># setup</span> -<span id="L1641" class="LineNr">1641 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1642" class="LineNr">1642 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1643" class="LineNr">1643 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1644" class="LineNr">1644 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1645" class="LineNr">1645 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1646" class="LineNr">1646 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1647" class="LineNr">1647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1648" class="LineNr">1648 </span> <span class="subxS1Comment"># . write(_test-input-stream, "*(abc) def")</span> -<span id="L1649" class="LineNr">1649 </span> <span class="subxS1Comment"># . indices: 0123 45</span> -<span id="L1650" class="LineNr">1650 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1651" class="LineNr">1651 </span> 68/push <span class="Constant">"*(abc) def"</span>/imm32 -<span id="L1652" class="LineNr">1652 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1653" class="LineNr">1653 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1654" class="LineNr">1654 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1655" class="LineNr">1655 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1656" class="LineNr">1656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1657" class="LineNr">1657 </span> <span class="subxComment"># precondition: line->read == 0</span> -<span id="L1658" class="LineNr">1658 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1659" class="LineNr">1659 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1636'>test-skip-until-close-paren</a>/precondition"</span>/imm32 -<span id="L1660" class="LineNr">1660 </span> 68/push 0/imm32 -<span id="L1661" class="LineNr">1661 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1662" class="LineNr">1662 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1663" class="LineNr">1663 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1664" class="LineNr">1664 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1665" class="LineNr">1665 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1666" class="LineNr">1666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1667" class="LineNr">1667 </span> <span class="subxComment"># skip-until-close-paren(_test-input-stream)</span> -<span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1669" class="LineNr">1669 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1670" class="LineNr">1670 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1671" class="LineNr">1671 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 -<span id="L1672" class="LineNr">1672 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1673" class="LineNr">1673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1674" class="LineNr">1674 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> -<span id="L1675" class="LineNr">1675 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1676" class="LineNr">1676 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren"</span>/imm32 -<span id="L1677" class="LineNr">1677 </span> 68/push 5/imm32 -<span id="L1678" class="LineNr">1678 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1679" class="LineNr">1679 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1680" class="LineNr">1680 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1681" class="LineNr">1681 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1682" class="LineNr">1682 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1683" class="LineNr">1683 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1684" class="LineNr">1684 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1685" class="LineNr">1685 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1686" class="LineNr">1686 </span> 5d/pop-to-ebp -<span id="L1687" class="LineNr">1687 </span> c3/return -<span id="L1688" class="LineNr">1688 </span> -<span id="L1689" class="LineNr">1689 </span><span class="subxTest">test-skip-until-close-paren-ignores-spaces</span>: -<span id="L1690" class="LineNr">1690 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1691" class="LineNr">1691 </span> 55/push-ebp -<span id="L1692" class="LineNr">1692 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1693" class="LineNr">1693 </span> <span class="subxComment"># setup</span> -<span id="L1694" class="LineNr">1694 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1695" class="LineNr">1695 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1696" class="LineNr">1696 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1575" class="LineNr">1575 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-ignores-spaces"</span>/imm32 +<span id="L1576" class="LineNr">1576 </span> 68/push 5/imm32 +<span id="L1577" class="LineNr">1577 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1578" class="LineNr">1578 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1579" class="LineNr">1579 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1580" class="LineNr">1580 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1581" class="LineNr">1581 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1582" class="LineNr">1582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1583" class="LineNr">1583 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1584" class="LineNr">1584 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1585" class="LineNr">1585 </span> 5d/pop-to-ebp +<span id="L1586" class="LineNr">1586 </span> c3/return +<span id="L1587" class="LineNr">1587 </span> +<span id="L1588" class="LineNr">1588 </span><span class="subxTest">test-skip-until-close-paren-works-from-mid-stream</span>: +<span id="L1589" class="LineNr">1589 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1590" class="LineNr">1590 </span> 55/push-ebp +<span id="L1591" class="LineNr">1591 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1592" class="LineNr">1592 </span> <span class="subxComment"># setup</span> +<span id="L1593" class="LineNr">1593 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1594" class="LineNr">1594 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1595" class="LineNr">1595 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1596" class="LineNr">1596 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1597" class="LineNr">1597 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1598" class="LineNr">1598 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1599" class="LineNr">1599 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1600" class="LineNr">1600 </span> <span class="subxS1Comment"># . write(_test-stream, "0 *(a b)/yz")</span> +<span id="L1601" class="LineNr">1601 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1602" class="LineNr">1602 </span> 68/push <span class="Constant">"0 *(a b)/yz"</span>/imm32 +<span id="L1603" class="LineNr">1603 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1604" class="LineNr">1604 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1605" class="LineNr">1605 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1606" class="LineNr">1606 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1607" class="LineNr">1607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1608" class="LineNr">1608 </span> <span class="subxComment"># precondition: _test-stream->read == 2</span> +<span id="L1609" class="LineNr">1609 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1610" class="LineNr">1610 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 2/imm32 <span class="subxComment"># copy to *(eax+4)</span> +<span id="L1611" class="LineNr">1611 </span> <span class="subxComment"># skip-until-close-paren(_test-stream)</span> +<span id="L1612" class="LineNr">1612 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1613" class="LineNr">1613 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1614" class="LineNr">1614 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1615" class="LineNr">1615 </span> e8/call <a href='124next-token.subx.html#L1446'>skip-until-close-paren</a>/disp32 +<span id="L1616" class="LineNr">1616 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1617" class="LineNr">1617 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1618" class="LineNr">1618 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 7, msg)</span> +<span id="L1619" class="LineNr">1619 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1620" class="LineNr">1620 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-works-from-mid-stream"</span>/imm32 +<span id="L1621" class="LineNr">1621 </span> 68/push 7/imm32 +<span id="L1622" class="LineNr">1622 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1623" class="LineNr">1623 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1624" class="LineNr">1624 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1625" class="LineNr">1625 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1626" class="LineNr">1626 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1627" class="LineNr">1627 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1628" class="LineNr">1628 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1629" class="LineNr">1629 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1630" class="LineNr">1630 </span> 5d/pop-to-ebp +<span id="L1631" class="LineNr">1631 </span> c3/return +<span id="L1632" class="LineNr">1632 </span> +<span id="L1633" class="LineNr">1633 </span><span class="subxFunction">skip-until-close-paren-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> +<span id="L1634" class="LineNr">1634 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1635" class="LineNr">1635 </span> 55/push-ebp +<span id="L1636" class="LineNr">1636 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1637" class="LineNr">1637 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1638" class="LineNr">1638 </span> 51/push-ecx +<span id="L1639" class="LineNr">1639 </span> 52/push-edx +<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># ecx = curr</span> +<span id="L1641" class="LineNr">1641 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L1642" class="LineNr">1642 </span> <span class="subxComment"># edx = end</span> +<span id="L1643" class="LineNr">1643 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L1644" class="LineNr">1644 </span> <span class="subxComment"># var c/eax: byte = 0</span> +<span id="L1645" class="LineNr">1645 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1646" class="LineNr">1646 </span> <span class="subxComment"># skip initial dquote</span> +<span id="L1647" class="LineNr">1647 </span> 41/increment-ecx +<span id="L1648" class="LineNr">1648 </span><span class="Constant">$skip-until-close-paren-in-slice:loop</span>: +<span id="L1649" class="LineNr">1649 </span> <span class="subxComment"># if (curr >= end) break</span> +<span id="L1650" class="LineNr">1650 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L1651" class="LineNr">1651 </span> 73/jump-if-addr>= $skip-until-close-paren-in-slice:<span class="Constant">break</span>/disp8 +<span id="L1652" class="LineNr">1652 </span> <span class="subxComment"># c = *curr</span> +<span id="L1653" class="LineNr">1653 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L1654" class="LineNr">1654 </span><span class="Constant">$skip-until-close-paren-in-slice:check-close</span>: +<span id="L1655" class="LineNr">1655 </span> <span class="subxComment"># if (c == ')') break</span> +<span id="L1656" class="LineNr">1656 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L1657" class="LineNr">1657 </span> 74/jump-if-= $skip-until-close-paren-in-slice:<span class="Constant">break</span>/disp8 +<span id="L1658" class="LineNr">1658 </span> <span class="subxComment"># ++curr</span> +<span id="L1659" class="LineNr">1659 </span> 41/increment-ecx +<span id="L1660" class="LineNr">1660 </span> eb/jump $skip-until-close-paren-in-slice:<span class="Constant">loop</span>/disp8 +<span id="L1661" class="LineNr">1661 </span><span class="Constant">$skip-until-close-paren-in-slice:break</span>: +<span id="L1662" class="LineNr">1662 </span> <span class="subxComment"># return curr</span> +<span id="L1663" class="LineNr">1663 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to eax</span> +<span id="L1664" class="LineNr">1664 </span><span class="Constant">$skip-until-close-paren-in-slice:end</span>: +<span id="L1665" class="LineNr">1665 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1666" class="LineNr">1666 </span> 5a/pop-to-edx +<span id="L1667" class="LineNr">1667 </span> 59/pop-to-ecx +<span id="L1668" class="LineNr">1668 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1669" class="LineNr">1669 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1670" class="LineNr">1670 </span> 5d/pop-to-ebp +<span id="L1671" class="LineNr">1671 </span> c3/return +<span id="L1672" class="LineNr">1672 </span> +<span id="L1673" class="LineNr">1673 </span><span class="subxTest">test-skip-until-close-paren-in-slice</span>: +<span id="L1674" class="LineNr">1674 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1675" class="LineNr">1675 </span> 55/push-ebp +<span id="L1676" class="LineNr">1676 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1677" class="LineNr">1677 </span> <span class="subxComment"># setup: (eax..ecx) = "*(abc) def"</span> +<span id="L1678" class="LineNr">1678 </span> b8/copy-to-eax <span class="Constant">"*(abc) def"</span>/imm32 +<span id="L1679" class="LineNr">1679 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1680" class="LineNr">1680 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1681" class="LineNr">1681 </span> 05/add-to-eax 4/imm32 +<span id="L1682" class="LineNr">1682 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(eax, ecx)</span> +<span id="L1683" class="LineNr">1683 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1684" class="LineNr">1684 </span> 51/push-ecx +<span id="L1685" class="LineNr">1685 </span> 50/push-eax +<span id="L1686" class="LineNr">1686 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1687" class="LineNr">1687 </span> e8/call <a href='124next-token.subx.html#L1633'>skip-until-close-paren-in-slice</a>/disp32 +<span id="L1688" class="LineNr">1688 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1689" class="LineNr">1689 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1690" class="LineNr">1690 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 5, msg) # eax is at the ')'</span> +<span id="L1691" class="LineNr">1691 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1692" class="LineNr">1692 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-in-slice"</span>/imm32 +<span id="L1693" class="LineNr">1693 </span> 68/push 5/imm32 +<span id="L1694" class="LineNr">1694 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1695" class="LineNr">1695 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1696" class="LineNr">1696 </span> 51/push-ecx <span id="L1697" class="LineNr">1697 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1698" class="LineNr">1698 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1698" class="LineNr">1698 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L1699" class="LineNr">1699 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1700" class="LineNr">1700 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1701" class="LineNr">1701 </span> <span class="subxS1Comment"># . write(_test-input-stream, "*(a b)/yz")</span> -<span id="L1702" class="LineNr">1702 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1703" class="LineNr">1703 </span> 68/push <span class="Constant">"*(a b)/yz"</span>/imm32 -<span id="L1704" class="LineNr">1704 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1705" class="LineNr">1705 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1706" class="LineNr">1706 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1707" class="LineNr">1707 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1708" class="LineNr">1708 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1709" class="LineNr">1709 </span> <span class="subxComment"># precondition: line->read == 0</span> -<span id="L1710" class="LineNr">1710 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1711" class="LineNr">1711 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1689'>test-skip-until-close-paren-ignores-spaces</a>/precondition"</span>/imm32 -<span id="L1712" class="LineNr">1712 </span> 68/push 0/imm32 -<span id="L1713" class="LineNr">1713 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1714" class="LineNr">1714 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1716" class="LineNr">1716 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1717" class="LineNr">1717 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1718" class="LineNr">1718 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1719" class="LineNr">1719 </span> <span class="subxComment"># skip-until-close-paren(_test-input-stream)</span> -<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1721" class="LineNr">1721 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1723" class="LineNr">1723 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 -<span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1725" class="LineNr">1725 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1726" class="LineNr">1726 </span> <span class="subxComment"># check-ints-equal(line->read, 5, msg)</span> -<span id="L1727" class="LineNr">1727 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1728" class="LineNr">1728 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-ignores-spaces"</span>/imm32 -<span id="L1729" class="LineNr">1729 </span> 68/push 5/imm32 -<span id="L1730" class="LineNr">1730 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1731" class="LineNr">1731 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1732" class="LineNr">1732 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1733" class="LineNr">1733 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1735" class="LineNr">1735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1736" class="LineNr">1736 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1737" class="LineNr">1737 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1738" class="LineNr">1738 </span> 5d/pop-to-ebp -<span id="L1739" class="LineNr">1739 </span> c3/return -<span id="L1740" class="LineNr">1740 </span> -<span id="L1741" class="LineNr">1741 </span><span class="subxTest">test-skip-until-close-paren-works-from-mid-stream</span>: -<span id="L1742" class="LineNr">1742 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1743" class="LineNr">1743 </span> 55/push-ebp -<span id="L1744" class="LineNr">1744 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1745" class="LineNr">1745 </span> <span class="subxComment"># setup</span> -<span id="L1746" class="LineNr">1746 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1747" class="LineNr">1747 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1748" class="LineNr">1748 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1750" class="LineNr">1750 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1752" class="LineNr">1752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1753" class="LineNr">1753 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0 *(a b)/yz")</span> -<span id="L1754" class="LineNr">1754 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1755" class="LineNr">1755 </span> 68/push <span class="Constant">"0 *(a b)/yz"</span>/imm32 -<span id="L1756" class="LineNr">1756 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1757" class="LineNr">1757 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1758" class="LineNr">1758 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 -<span id="L1759" class="LineNr">1759 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1760" class="LineNr">1760 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1761" class="LineNr">1761 </span> <span class="subxComment"># precondition: _test-input-stream->read == 2</span> -<span id="L1762" class="LineNr">1762 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1763" class="LineNr">1763 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 2/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L1764" class="LineNr">1764 </span> <span class="subxComment"># skip-until-close-paren(_test-input-stream)</span> -<span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1766" class="LineNr">1766 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1767" class="LineNr">1767 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1768" class="LineNr">1768 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 -<span id="L1769" class="LineNr">1769 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1770" class="LineNr">1770 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1771" class="LineNr">1771 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 7, msg)</span> -<span id="L1772" class="LineNr">1772 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1773" class="LineNr">1773 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-works-from-mid-stream"</span>/imm32 -<span id="L1774" class="LineNr">1774 </span> 68/push 7/imm32 -<span id="L1775" class="LineNr">1775 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1776" class="LineNr">1776 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1778" class="LineNr">1778 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1780" class="LineNr">1780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1781" class="LineNr">1781 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1782" class="LineNr">1782 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1783" class="LineNr">1783 </span> 5d/pop-to-ebp -<span id="L1784" class="LineNr">1784 </span> c3/return -<span id="L1785" class="LineNr">1785 </span> -<span id="L1786" class="LineNr">1786 </span><span class="subxFunction">skip-until-close-paren-in-slice</span>: <span class="subxComment"># curr: (addr byte), end: (addr byte) -> curr/eax: (addr byte)</span> -<span id="L1787" class="LineNr">1787 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1788" class="LineNr">1788 </span> 55/push-ebp -<span id="L1789" class="LineNr">1789 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1790" class="LineNr">1790 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1791" class="LineNr">1791 </span> 51/push-ecx -<span id="L1792" class="LineNr">1792 </span> 52/push-edx -<span id="L1793" class="LineNr">1793 </span> <span class="subxComment"># ecx = curr</span> -<span id="L1794" class="LineNr">1794 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L1795" class="LineNr">1795 </span> <span class="subxComment"># edx = end</span> -<span id="L1796" class="LineNr">1796 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L1797" class="LineNr">1797 </span> <span class="subxComment"># var c/eax: byte = 0</span> -<span id="L1798" class="LineNr">1798 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1799" class="LineNr">1799 </span> <span class="subxComment"># skip initial dquote</span> -<span id="L1800" class="LineNr">1800 </span> 41/increment-ecx -<span id="L1801" class="LineNr">1801 </span><span class="Constant">$skip-until-close-paren-in-slice:loop</span>: -<span id="L1802" class="LineNr">1802 </span> <span class="subxComment"># if (curr >= end) break</span> -<span id="L1803" class="LineNr">1803 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L1804" class="LineNr">1804 </span> 73/jump-if-addr>= $skip-until-close-paren-in-slice:<span class="Constant">break</span>/disp8 -<span id="L1805" class="LineNr">1805 </span> <span class="subxComment"># c = *curr</span> -<span id="L1806" class="LineNr">1806 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L1807" class="LineNr">1807 </span><span class="Constant">$skip-until-close-paren-in-slice:check-close</span>: -<span id="L1808" class="LineNr">1808 </span> <span class="subxComment"># if (c == ')') break</span> -<span id="L1809" class="LineNr">1809 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L1810" class="LineNr">1810 </span> 74/jump-if-= $skip-until-close-paren-in-slice:<span class="Constant">break</span>/disp8 -<span id="L1811" class="LineNr">1811 </span> <span class="subxComment"># ++curr</span> -<span id="L1812" class="LineNr">1812 </span> 41/increment-ecx -<span id="L1813" class="LineNr">1813 </span> eb/jump $skip-until-close-paren-in-slice:<span class="Constant">loop</span>/disp8 -<span id="L1814" class="LineNr">1814 </span><span class="Constant">$skip-until-close-paren-in-slice:break</span>: -<span id="L1815" class="LineNr">1815 </span> <span class="subxComment"># return curr</span> -<span id="L1816" class="LineNr">1816 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to eax</span> -<span id="L1817" class="LineNr">1817 </span><span class="Constant">$skip-until-close-paren-in-slice:end</span>: -<span id="L1818" class="LineNr">1818 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1819" class="LineNr">1819 </span> 5a/pop-to-edx -<span id="L1820" class="LineNr">1820 </span> 59/pop-to-ecx -<span id="L1821" class="LineNr">1821 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1822" class="LineNr">1822 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1823" class="LineNr">1823 </span> 5d/pop-to-ebp -<span id="L1824" class="LineNr">1824 </span> c3/return -<span id="L1825" class="LineNr">1825 </span> -<span id="L1826" class="LineNr">1826 </span><span class="subxTest">test-skip-until-close-paren-in-slice</span>: -<span id="L1827" class="LineNr">1827 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1828" class="LineNr">1828 </span> 55/push-ebp -<span id="L1829" class="LineNr">1829 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1830" class="LineNr">1830 </span> <span class="subxComment"># setup: (eax..ecx) = "*(abc) def"</span> -<span id="L1831" class="LineNr">1831 </span> b8/copy-to-eax <span class="Constant">"*(abc) def"</span>/imm32 -<span id="L1832" class="LineNr">1832 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1833" class="LineNr">1833 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1834" class="LineNr">1834 </span> 05/add-to-eax 4/imm32 -<span id="L1835" class="LineNr">1835 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(eax, ecx)</span> -<span id="L1836" class="LineNr">1836 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1837" class="LineNr">1837 </span> 51/push-ecx -<span id="L1838" class="LineNr">1838 </span> 50/push-eax -<span id="L1839" class="LineNr">1839 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1840" class="LineNr">1840 </span> e8/call <a href='124next-token.subx.html#L1786'>skip-until-close-paren-in-slice</a>/disp32 -<span id="L1841" class="LineNr">1841 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1842" class="LineNr">1842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1843" class="LineNr">1843 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 5, msg) # eax is at the ')'</span> -<span id="L1844" class="LineNr">1844 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1845" class="LineNr">1845 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-in-slice"</span>/imm32 -<span id="L1846" class="LineNr">1846 </span> 68/push 5/imm32 -<span id="L1847" class="LineNr">1847 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1848" class="LineNr">1848 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1849" class="LineNr">1849 </span> 51/push-ecx -<span id="L1850" class="LineNr">1850 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1851" class="LineNr">1851 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1852" class="LineNr">1852 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1853" class="LineNr">1853 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1854" class="LineNr">1854 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1855" class="LineNr">1855 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1856" class="LineNr">1856 </span> 5d/pop-to-ebp -<span id="L1857" class="LineNr">1857 </span> c3/return -<span id="L1858" class="LineNr">1858 </span> -<span id="L1859" class="LineNr">1859 </span><span class="subxTest">test-skip-until-close-paren-in-slice-ignores-spaces</span>: -<span id="L1860" class="LineNr">1860 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1861" class="LineNr">1861 </span> 55/push-ebp -<span id="L1862" class="LineNr">1862 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1863" class="LineNr">1863 </span> <span class="subxComment"># setup: (eax..ecx) = "*(a b)/yz"</span> -<span id="L1864" class="LineNr">1864 </span> b8/copy-to-eax <span class="Constant">"*(a b)/yz"</span>/imm32 -<span id="L1865" class="LineNr">1865 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1866" class="LineNr">1866 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1867" class="LineNr">1867 </span> 05/add-to-eax 4/imm32 -<span id="L1868" class="LineNr">1868 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(eax, ecx)</span> -<span id="L1869" class="LineNr">1869 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1870" class="LineNr">1870 </span> 51/push-ecx -<span id="L1871" class="LineNr">1871 </span> 50/push-eax -<span id="L1872" class="LineNr">1872 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1873" class="LineNr">1873 </span> e8/call <a href='124next-token.subx.html#L1786'>skip-until-close-paren-in-slice</a>/disp32 -<span id="L1874" class="LineNr">1874 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1875" class="LineNr">1875 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1876" class="LineNr">1876 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 4, msg) # eax is at the ')'</span> -<span id="L1877" class="LineNr">1877 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1878" class="LineNr">1878 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-in-slice-ignores-spaces"</span>/imm32 -<span id="L1879" class="LineNr">1879 </span> 68/push 4/imm32 -<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1881" class="LineNr">1881 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1882" class="LineNr">1882 </span> 51/push-ecx -<span id="L1883" class="LineNr">1883 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1884" class="LineNr">1884 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1886" class="LineNr">1886 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1887" class="LineNr">1887 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1888" class="LineNr">1888 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1889" class="LineNr">1889 </span> 5d/pop-to-ebp -<span id="L1890" class="LineNr">1890 </span> c3/return -<span id="L1891" class="LineNr">1891 </span> -<span id="L1892" class="LineNr">1892 </span><span class="subxTest">test-skip-until-close-paren-in-slice-stops-at-end</span>: -<span id="L1893" class="LineNr">1893 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1894" class="LineNr">1894 </span> 55/push-ebp -<span id="L1895" class="LineNr">1895 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1896" class="LineNr">1896 </span> <span class="subxComment"># setup: (eax..ecx) = "*(abc" # unbalanced dquote</span> -<span id="L1897" class="LineNr">1897 </span> b8/copy-to-eax <span class="Constant">"*(abc"</span>/imm32 -<span id="L1898" class="LineNr">1898 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1899" class="LineNr">1899 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1900" class="LineNr">1900 </span> 05/add-to-eax 4/imm32 -<span id="L1901" class="LineNr">1901 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(eax, ecx)</span> -<span id="L1902" class="LineNr">1902 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1903" class="LineNr">1903 </span> 51/push-ecx -<span id="L1904" class="LineNr">1904 </span> 50/push-eax -<span id="L1905" class="LineNr">1905 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1906" class="LineNr">1906 </span> e8/call <a href='124next-token.subx.html#L1786'>skip-until-close-paren-in-slice</a>/disp32 -<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1908" class="LineNr">1908 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1909" class="LineNr">1909 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 0, msg) # skipped to end of slice</span> -<span id="L1910" class="LineNr">1910 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1911" class="LineNr">1911 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-in-slice-stops-at-end"</span>/imm32 -<span id="L1912" class="LineNr">1912 </span> 68/push 0/imm32 -<span id="L1913" class="LineNr">1913 </span> <span class="subxS2Comment"># . . push ecx-eax</span> -<span id="L1914" class="LineNr">1914 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> -<span id="L1915" class="LineNr">1915 </span> 51/push-ecx -<span id="L1916" class="LineNr">1916 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1917" class="LineNr">1917 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1918" class="LineNr">1918 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1919" class="LineNr">1919 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1920" class="LineNr">1920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1921" class="LineNr">1921 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1922" class="LineNr">1922 </span> 5d/pop-to-ebp -<span id="L1923" class="LineNr">1923 </span> c3/return -<span id="L1924" class="LineNr">1924 </span> -<span id="L1925" class="LineNr">1925 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L1700" class="LineNr">1700 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1701" class="LineNr">1701 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1702" class="LineNr">1702 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1703" class="LineNr">1703 </span> 5d/pop-to-ebp +<span id="L1704" class="LineNr">1704 </span> c3/return +<span id="L1705" class="LineNr">1705 </span> +<span id="L1706" class="LineNr">1706 </span><span class="subxTest">test-skip-until-close-paren-in-slice-ignores-spaces</span>: +<span id="L1707" class="LineNr">1707 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1708" class="LineNr">1708 </span> 55/push-ebp +<span id="L1709" class="LineNr">1709 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1710" class="LineNr">1710 </span> <span class="subxComment"># setup: (eax..ecx) = "*(a b)/yz"</span> +<span id="L1711" class="LineNr">1711 </span> b8/copy-to-eax <span class="Constant">"*(a b)/yz"</span>/imm32 +<span id="L1712" class="LineNr">1712 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1713" class="LineNr">1713 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1714" class="LineNr">1714 </span> 05/add-to-eax 4/imm32 +<span id="L1715" class="LineNr">1715 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(eax, ecx)</span> +<span id="L1716" class="LineNr">1716 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1717" class="LineNr">1717 </span> 51/push-ecx +<span id="L1718" class="LineNr">1718 </span> 50/push-eax +<span id="L1719" class="LineNr">1719 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1720" class="LineNr">1720 </span> e8/call <a href='124next-token.subx.html#L1633'>skip-until-close-paren-in-slice</a>/disp32 +<span id="L1721" class="LineNr">1721 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1722" class="LineNr">1722 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1723" class="LineNr">1723 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 4, msg) # eax is at the ')'</span> +<span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1725" class="LineNr">1725 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-in-slice-ignores-spaces"</span>/imm32 +<span id="L1726" class="LineNr">1726 </span> 68/push 4/imm32 +<span id="L1727" class="LineNr">1727 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1728" class="LineNr">1728 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1729" class="LineNr">1729 </span> 51/push-ecx +<span id="L1730" class="LineNr">1730 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1731" class="LineNr">1731 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1732" class="LineNr">1732 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1733" class="LineNr">1733 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1734" class="LineNr">1734 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1735" class="LineNr">1735 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1736" class="LineNr">1736 </span> 5d/pop-to-ebp +<span id="L1737" class="LineNr">1737 </span> c3/return +<span id="L1738" class="LineNr">1738 </span> +<span id="L1739" class="LineNr">1739 </span><span class="subxTest">test-skip-until-close-paren-in-slice-stops-at-end</span>: +<span id="L1740" class="LineNr">1740 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1741" class="LineNr">1741 </span> 55/push-ebp +<span id="L1742" class="LineNr">1742 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1743" class="LineNr">1743 </span> <span class="subxComment"># setup: (eax..ecx) = "*(abc" # unbalanced dquote</span> +<span id="L1744" class="LineNr">1744 </span> b8/copy-to-eax <span class="Constant">"*(abc"</span>/imm32 +<span id="L1745" class="LineNr">1745 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1746" class="LineNr">1746 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1747" class="LineNr">1747 </span> 05/add-to-eax 4/imm32 +<span id="L1748" class="LineNr">1748 </span> <span class="subxComment"># eax = skip-until-close-paren-in-slice(eax, ecx)</span> +<span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1750" class="LineNr">1750 </span> 51/push-ecx +<span id="L1751" class="LineNr">1751 </span> 50/push-eax +<span id="L1752" class="LineNr">1752 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1753" class="LineNr">1753 </span> e8/call <a href='124next-token.subx.html#L1633'>skip-until-close-paren-in-slice</a>/disp32 +<span id="L1754" class="LineNr">1754 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1755" class="LineNr">1755 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1756" class="LineNr">1756 </span> <span class="subxComment"># check-ints-equal(ecx-eax, 0, msg) # skipped to end of slice</span> +<span id="L1757" class="LineNr">1757 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1758" class="LineNr">1758 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-in-slice-stops-at-end"</span>/imm32 +<span id="L1759" class="LineNr">1759 </span> 68/push 0/imm32 +<span id="L1760" class="LineNr">1760 </span> <span class="subxS2Comment"># . . push ecx-eax</span> +<span id="L1761" class="LineNr">1761 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> +<span id="L1762" class="LineNr">1762 </span> 51/push-ecx +<span id="L1763" class="LineNr">1763 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1764" class="LineNr">1764 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1766" class="LineNr">1766 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1767" class="LineNr">1767 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1768" class="LineNr">1768 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1769" class="LineNr">1769 </span> 5d/pop-to-ebp +<span id="L1770" class="LineNr">1770 </span> c3/return +<span id="L1771" class="LineNr">1771 </span> +<span id="L1772" class="LineNr">1772 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/126write-int-decimal.subx.html b/html/126write-int-decimal.subx.html index 9dfa4309..99872b11 100644 --- a/html/126write-int-decimal.subx.html +++ b/html/126write-int-decimal.subx.html @@ -14,18 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.SpecialChar { color: #d70000; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -131,10 +129,10 @@ if ('onhashchange' in window) { <span id="L68" class="LineNr"> 68 </span><span class="Constant">$write-int32-decimal:read-break</span>: <span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># if (n < 0) push('-')</span> <span id="L70" class="LineNr"> 70 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 0/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L71" class="LineNr"> 71 </span> 7d/jump-if->= $write-int32-decimal:<a href='108write.subx.html#L24'>write</a>/disp8 +<span id="L71" class="LineNr"> 71 </span> 7d/jump-if->= $write-int32-decimal:<a href='108write.subx.html#L11'>write</a>/disp8 <span id="L72" class="LineNr"> 72 </span><span class="Constant">$write-int32-decimal:push-negative</span>: <span id="L73" class="LineNr"> 73 </span> 68/push 0x2d/imm32/- -<span id="L74" class="LineNr"> 74 </span><span class="Constant">$write-int32-decimal:<a href='108write.subx.html#L24'>write</a></span>: +<span id="L74" class="LineNr"> 74 </span><span class="Constant">$write-int32-decimal:<a href='108write.subx.html#L11'>write</a></span>: <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># edi = out</span> <span id="L76" class="LineNr"> 76 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> <span id="L77" class="LineNr"> 77 </span> <span class="subxComment"># var w/edx: int = out->write</span> @@ -152,7 +150,7 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span> 74/jump-if-= $write-int32-decimal:write-break/disp8 <span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># if (curr >= max) abort</span> <span id="L91" class="LineNr"> 91 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> -<span id="L92" class="LineNr"> 92 </span> 73/jump-if-addr>= $write-int32-decimal:abort/disp8 +<span id="L92" class="LineNr"> 92 </span> 73/jump-if-addr>= $write-int32-decimal:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 <span id="L93" class="LineNr"> 93 </span><span class="Constant">$write-int32-decimal:write-char</span>: <span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># *curr = AL</span> <span id="L95" class="LineNr"> 95 </span> 88/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy AL to byte at *ecx</span> @@ -176,332 +174,294 @@ if ('onhashchange' in window) { <span id="L113" class="LineNr">113 </span> 5d/pop-to-ebp <span id="L114" class="LineNr">114 </span> c3/return <span id="L115" class="LineNr">115 </span> -<span id="L116" class="LineNr">116 </span><span class="Constant">$write-int32-decimal:abort</span>: -<span id="L117" class="LineNr">117 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L119" class="LineNr">119 </span> 68/push <span class="Constant">"write-int32-decimal: out of space\n"</span>/imm32 -<span id="L120" class="LineNr">120 </span> 68/push 2/imm32/stderr -<span id="L121" class="LineNr">121 </span> <span class="subxS2Comment"># . . call</span> -<span id="L122" class="LineNr">122 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L124" class="LineNr">124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L126" class="LineNr">126 </span> bb/copy-to-ebx 1/imm32 -<span id="L127" class="LineNr">127 </span> e8/call syscall_exit/disp32 -<span id="L128" class="LineNr">128 </span> <span class="subxComment"># never gets here</span> -<span id="L129" class="LineNr">129 </span> -<span id="L130" class="LineNr">130 </span><span class="subxTest">test-write-int32-decimal</span>: -<span id="L131" class="LineNr">131 </span> <span class="subxH1Comment"># - check that a single-digit number converts correctly</span> -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># setup</span> -<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L116" class="LineNr">116 </span><span class="Constant">$write-int32-decimal:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L117" class="LineNr">117 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-int32-decimal: stream out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L118" class="LineNr">118 </span> { +<span id="L119" class="LineNr">119 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L120" class="LineNr">120 </span> } +<span id="L121" class="LineNr">121 </span> <span class="subxComment"># never gets here</span> +<span id="L122" class="LineNr">122 </span> +<span id="L123" class="LineNr">123 </span><span class="subxTest">test-write-int32-decimal</span>: +<span id="L124" class="LineNr">124 </span> <span class="subxH1Comment"># - check that a single-digit number converts correctly</span> +<span id="L125" class="LineNr">125 </span> <span class="subxComment"># setup</span> +<span id="L126" class="LineNr">126 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L128" class="LineNr">128 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> +<span id="L130" class="LineNr">130 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L133" class="LineNr">133 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 9)</span> <span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L135" class="LineNr">135 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . call</span> -<span id="L137" class="LineNr">137 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L139" class="LineNr">139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L140" class="LineNr">140 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 9)</span> -<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L142" class="LineNr">142 </span> 68/push 9/imm32 -<span id="L143" class="LineNr">143 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . call</span> -<span id="L145" class="LineNr">145 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L147" class="LineNr">147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L148" class="LineNr">148 </span> <span class="subxComment"># check-stream-equal(_test-stream, "9", msg)</span> -<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L150" class="LineNr">150 </span> 68/push <span class="Constant">"F - test-write-int32-decimal"</span>/imm32 -<span id="L151" class="LineNr">151 </span> 68/push <span class="Constant">"9"</span>/imm32 -<span id="L152" class="LineNr">152 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L153" class="LineNr">153 </span> <span class="subxS2Comment"># . . call</span> -<span id="L154" class="LineNr">154 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L156" class="LineNr">156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L157" class="LineNr">157 </span> <span class="subxS1Comment"># . end</span> -<span id="L158" class="LineNr">158 </span> c3/return -<span id="L159" class="LineNr">159 </span> -<span id="L160" class="LineNr">160 </span><span class="subxTest">test-write-int32-decimal-zero</span>: -<span id="L161" class="LineNr">161 </span> <span class="subxH1Comment"># - check that 0 converts correctly</span> -<span id="L162" class="LineNr">162 </span> <span class="subxComment"># setup</span> -<span id="L163" class="LineNr">163 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L135" class="LineNr">135 </span> 68/push 9/imm32 +<span id="L136" class="LineNr">136 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> +<span id="L138" class="LineNr">138 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-stream-equal(_test-stream, "9", msg)</span> +<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-write-int32-decimal"</span>/imm32 +<span id="L144" class="LineNr">144 </span> 68/push <span class="Constant">"9"</span>/imm32 +<span id="L145" class="LineNr">145 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> +<span id="L147" class="LineNr">147 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . end</span> +<span id="L151" class="LineNr">151 </span> c3/return +<span id="L152" class="LineNr">152 </span> +<span id="L153" class="LineNr">153 </span><span class="subxTest">test-write-int32-decimal-zero</span>: +<span id="L154" class="LineNr">154 </span> <span class="subxH1Comment"># - check that 0 converts correctly</span> +<span id="L155" class="LineNr">155 </span> <span class="subxComment"># setup</span> +<span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L158" class="LineNr">158 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . call</span> +<span id="L160" class="LineNr">160 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L162" class="LineNr">162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L163" class="LineNr">163 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 0)</span> <span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L165" class="LineNr">165 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> -<span id="L167" class="LineNr">167 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L169" class="LineNr">169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L170" class="LineNr">170 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 0)</span> -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L172" class="LineNr">172 </span> 68/push 0/imm32 -<span id="L173" class="LineNr">173 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . call</span> -<span id="L175" class="LineNr">175 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L177" class="LineNr">177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L178" class="LineNr">178 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0", msg)</span> -<span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L180" class="LineNr">180 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-zero"</span>/imm32 -<span id="L181" class="LineNr">181 </span> 68/push <span class="Constant">"0"</span>/imm32 -<span id="L182" class="LineNr">182 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . call</span> -<span id="L184" class="LineNr">184 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L186" class="LineNr">186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L187" class="LineNr">187 </span> <span class="subxS1Comment"># . end</span> -<span id="L188" class="LineNr">188 </span> c3/return -<span id="L189" class="LineNr">189 </span> -<span id="L190" class="LineNr">190 </span><span class="subxTest">test-write-int32-decimal-multiple-digits</span>: -<span id="L191" class="LineNr">191 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> -<span id="L192" class="LineNr">192 </span> <span class="subxComment"># setup</span> -<span id="L193" class="LineNr">193 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L165" class="LineNr">165 </span> 68/push 0/imm32 +<span id="L166" class="LineNr">166 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . call</span> +<span id="L168" class="LineNr">168 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L170" class="LineNr">170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L171" class="LineNr">171 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0", msg)</span> +<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L173" class="LineNr">173 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-zero"</span>/imm32 +<span id="L174" class="LineNr">174 </span> 68/push <span class="Constant">"0"</span>/imm32 +<span id="L175" class="LineNr">175 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . call</span> +<span id="L177" class="LineNr">177 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L179" class="LineNr">179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L180" class="LineNr">180 </span> <span class="subxS1Comment"># . end</span> +<span id="L181" class="LineNr">181 </span> c3/return +<span id="L182" class="LineNr">182 </span> +<span id="L183" class="LineNr">183 </span><span class="subxTest">test-write-int32-decimal-multiple-digits</span>: +<span id="L184" class="LineNr">184 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> +<span id="L185" class="LineNr">185 </span> <span class="subxComment"># setup</span> +<span id="L186" class="LineNr">186 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L188" class="LineNr">188 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . call</span> +<span id="L190" class="LineNr">190 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L192" class="LineNr">192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L193" class="LineNr">193 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 10)</span> <span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L195" class="LineNr">195 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L196" class="LineNr">196 </span> <span class="subxS2Comment"># . . call</span> -<span id="L197" class="LineNr">197 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L199" class="LineNr">199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L200" class="LineNr">200 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 10)</span> -<span id="L201" class="LineNr">201 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L202" class="LineNr">202 </span> 68/push 0xa/imm32 -<span id="L203" class="LineNr">203 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L205" class="LineNr">205 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L208" class="LineNr">208 </span> <span class="subxComment"># check-stream-equal(_test-stream, "10", msg)</span> -<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L210" class="LineNr">210 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-multiple-digits"</span>/imm32 -<span id="L211" class="LineNr">211 </span> 68/push <span class="Constant">"10"</span>/imm32 -<span id="L212" class="LineNr">212 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L214" class="LineNr">214 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . end</span> -<span id="L218" class="LineNr">218 </span> c3/return -<span id="L219" class="LineNr">219 </span> -<span id="L220" class="LineNr">220 </span><span class="subxTest">test-write-int32-decimal-negative</span>: -<span id="L221" class="LineNr">221 </span> <span class="subxH1Comment"># - check that a negative single-digit number converts correctly</span> -<span id="L222" class="LineNr">222 </span> <span class="subxComment"># setup</span> -<span id="L223" class="LineNr">223 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L195" class="LineNr">195 </span> 68/push 0xa/imm32 +<span id="L196" class="LineNr">196 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> +<span id="L198" class="LineNr">198 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L201" class="LineNr">201 </span> <span class="subxComment"># check-stream-equal(_test-stream, "10", msg)</span> +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-multiple-digits"</span>/imm32 +<span id="L204" class="LineNr">204 </span> 68/push <span class="Constant">"10"</span>/imm32 +<span id="L205" class="LineNr">205 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . call</span> +<span id="L207" class="LineNr">207 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L208" class="LineNr">208 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L209" class="LineNr">209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L210" class="LineNr">210 </span> <span class="subxS1Comment"># . end</span> +<span id="L211" class="LineNr">211 </span> c3/return +<span id="L212" class="LineNr">212 </span> +<span id="L213" class="LineNr">213 </span><span class="subxTest">test-write-int32-decimal-negative</span>: +<span id="L214" class="LineNr">214 </span> <span class="subxH1Comment"># - check that a negative single-digit number converts correctly</span> +<span id="L215" class="LineNr">215 </span> <span class="subxComment"># setup</span> +<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L218" class="LineNr">218 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . call</span> +<span id="L220" class="LineNr">220 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L222" class="LineNr">222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L223" class="LineNr">223 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -9)</span> <span id="L224" class="LineNr">224 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L225" class="LineNr">225 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . call</span> -<span id="L227" class="LineNr">227 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L228" class="LineNr">228 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L229" class="LineNr">229 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L230" class="LineNr">230 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -9)</span> -<span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L232" class="LineNr">232 </span> 68/push -9/imm32 -<span id="L233" class="LineNr">233 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L235" class="LineNr">235 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L238" class="Folded">238 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream ------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L264" class="LineNr">264 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-9", msg)</span> -<span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L266" class="LineNr">266 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative"</span>/imm32 -<span id="L267" class="LineNr">267 </span> 68/push <span class="Constant">"-9"</span>/imm32 -<span id="L268" class="LineNr">268 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . call</span> -<span id="L270" class="LineNr">270 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L271" class="LineNr">271 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L272" class="LineNr">272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L273" class="LineNr">273 </span> <span class="subxS1Comment"># . end</span> -<span id="L274" class="LineNr">274 </span> c3/return -<span id="L275" class="LineNr">275 </span> -<span id="L276" class="LineNr">276 </span><span class="subxTest">test-write-int32-decimal-negative-multiple-digits</span>: -<span id="L277" class="LineNr">277 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> -<span id="L278" class="LineNr">278 </span> <span class="subxComment"># setup</span> -<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L225" class="LineNr">225 </span> 68/push -9/imm32 +<span id="L226" class="LineNr">226 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . call</span> +<span id="L228" class="LineNr">228 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L230" class="LineNr">230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L231" class="Folded">231 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream ------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L257" class="LineNr">257 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-9", msg)</span> +<span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L259" class="LineNr">259 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative"</span>/imm32 +<span id="L260" class="LineNr">260 </span> 68/push <span class="Constant">"-9"</span>/imm32 +<span id="L261" class="LineNr">261 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . call</span> +<span id="L263" class="LineNr">263 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L265" class="LineNr">265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L266" class="LineNr">266 </span> <span class="subxS1Comment"># . end</span> +<span id="L267" class="LineNr">267 </span> c3/return +<span id="L268" class="LineNr">268 </span> +<span id="L269" class="LineNr">269 </span><span class="subxTest">test-write-int32-decimal-negative-multiple-digits</span>: +<span id="L270" class="LineNr">270 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> +<span id="L271" class="LineNr">271 </span> <span class="subxComment"># setup</span> +<span id="L272" class="LineNr">272 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L273" class="LineNr">273 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . call</span> +<span id="L276" class="LineNr">276 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L278" class="LineNr">278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L279" class="LineNr">279 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -10)</span> <span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L281" class="LineNr">281 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . call</span> -<span id="L283" class="LineNr">283 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L284" class="LineNr">284 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L285" class="LineNr">285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L286" class="LineNr">286 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -10)</span> -<span id="L287" class="LineNr">287 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L288" class="LineNr">288 </span> 68/push -0xa/imm32 -<span id="L289" class="LineNr">289 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L290" class="LineNr">290 </span> <span class="subxS2Comment"># . . call</span> -<span id="L291" class="LineNr">291 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L293" class="LineNr">293 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L294" class="LineNr">294 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-10", msg)</span> -<span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L296" class="LineNr">296 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative-multiple-digits"</span>/imm32 -<span id="L297" class="LineNr">297 </span> 68/push <span class="Constant">"-10"</span>/imm32 -<span id="L298" class="LineNr">298 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 -<span id="L299" class="LineNr">299 </span> <span class="subxS2Comment"># . . call</span> -<span id="L300" class="LineNr">300 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L301" class="LineNr">301 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L302" class="LineNr">302 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . end</span> -<span id="L304" class="LineNr">304 </span> c3/return -<span id="L305" class="LineNr">305 </span> -<span id="L306" class="LineNr">306 </span><span class="subxFunction">is-decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> -<span id="L307" class="LineNr">307 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L308" class="LineNr">308 </span> 55/push-ebp -<span id="L309" class="LineNr">309 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L311" class="LineNr">311 </span> 51/push-ecx -<span id="L312" class="LineNr">312 </span> <span class="subxComment"># ecx = c</span> -<span id="L313" class="LineNr">313 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L314" class="LineNr">314 </span> <span class="subxComment"># result = false</span> -<span id="L315" class="LineNr">315 </span> b8/copy-to-eax 0/imm32/false -<span id="L316" class="LineNr">316 </span> <span class="subxComment"># return false if c < '0'</span> -<span id="L317" class="LineNr">317 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> -<span id="L318" class="LineNr">318 </span> 7c/jump-if-< $is-decimal-digit?:end/disp8 -<span id="L319" class="LineNr">319 </span> <span class="subxComment"># return (c <= '9')</span> -<span id="L320" class="LineNr">320 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> -<span id="L321" class="LineNr">321 </span> 7f/jump-if-> $is-decimal-digit?:end/disp8 -<span id="L322" class="LineNr">322 </span><span class="Constant">$is-decimal-digit?:true</span>: -<span id="L323" class="LineNr">323 </span> b8/copy-to-eax 1/imm32/true -<span id="L324" class="LineNr">324 </span><span class="Constant">$is-decimal-digit?:end</span>: -<span id="L325" class="LineNr">325 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L326" class="LineNr">326 </span> 59/pop-to-ecx -<span id="L327" class="LineNr">327 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L328" class="LineNr">328 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L329" class="LineNr">329 </span> 5d/pop-to-ebp -<span id="L330" class="LineNr">330 </span> c3/return -<span id="L331" class="LineNr">331 </span> -<span id="L332" class="LineNr">332 </span><span class="subxTest">test-is-decimal-digit-below-0</span>: -<span id="L333" class="LineNr">333 </span> <span class="subxComment"># eax = is-decimal-digit?(0x2f)</span> +<span id="L281" class="LineNr">281 </span> 68/push -0xa/imm32 +<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . call</span> +<span id="L284" class="LineNr">284 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L286" class="LineNr">286 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L287" class="LineNr">287 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-10", msg)</span> +<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L289" class="LineNr">289 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative-multiple-digits"</span>/imm32 +<span id="L290" class="LineNr">290 </span> 68/push <span class="Constant">"-10"</span>/imm32 +<span id="L291" class="LineNr">291 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . call</span> +<span id="L293" class="LineNr">293 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L295" class="LineNr">295 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L296" class="LineNr">296 </span> <span class="subxS1Comment"># . end</span> +<span id="L297" class="LineNr">297 </span> c3/return +<span id="L298" class="LineNr">298 </span> +<span id="L299" class="LineNr">299 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> +<span id="L300" class="LineNr">300 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L301" class="LineNr">301 </span> 55/push-ebp +<span id="L302" class="LineNr">302 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L304" class="LineNr">304 </span> 51/push-ecx +<span id="L305" class="LineNr">305 </span> <span class="subxComment"># ecx = c</span> +<span id="L306" class="LineNr">306 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L307" class="LineNr">307 </span> <span class="subxComment"># result = false</span> +<span id="L308" class="LineNr">308 </span> b8/copy-to-eax 0/imm32/false +<span id="L309" class="LineNr">309 </span> <span class="subxComment"># return false if c < '0'</span> +<span id="L310" class="LineNr">310 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> +<span id="L311" class="LineNr">311 </span> 7c/jump-if-< $decimal-digit?:end/disp8 +<span id="L312" class="LineNr">312 </span> <span class="subxComment"># return (c <= '9')</span> +<span id="L313" class="LineNr">313 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> +<span id="L314" class="LineNr">314 </span> 7f/jump-if-> $decimal-digit?:end/disp8 +<span id="L315" class="LineNr">315 </span><span class="Constant">$decimal-digit?:true</span>: +<span id="L316" class="LineNr">316 </span> b8/copy-to-eax 1/imm32/true +<span id="L317" class="LineNr">317 </span><span class="Constant">$decimal-digit?:end</span>: +<span id="L318" class="LineNr">318 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L319" class="LineNr">319 </span> 59/pop-to-ecx +<span id="L320" class="LineNr">320 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L321" class="LineNr">321 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L322" class="LineNr">322 </span> 5d/pop-to-ebp +<span id="L323" class="LineNr">323 </span> c3/return +<span id="L324" class="LineNr">324 </span> +<span id="L325" class="LineNr">325 </span><span class="subxTest">test-decimal-digit-below-0</span>: +<span id="L326" class="LineNr">326 </span> <span class="subxComment"># eax = decimal-digit?(0x2f)</span> +<span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L328" class="LineNr">328 </span> 68/push 0x2f/imm32 +<span id="L329" class="LineNr">329 </span> <span class="subxS2Comment"># . . call</span> +<span id="L330" class="LineNr">330 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 +<span id="L331" class="LineNr">331 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L332" class="LineNr">332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L333" class="LineNr">333 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L335" class="LineNr">335 </span> 68/push 0x2f/imm32 -<span id="L336" class="LineNr">336 </span> <span class="subxS2Comment"># . . call</span> -<span id="L337" class="LineNr">337 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a>/disp32 -<span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L339" class="LineNr">339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L340" class="LineNr">340 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L342" class="LineNr">342 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-below-0"</span>/imm32 -<span id="L343" class="LineNr">343 </span> 68/push 0/imm32/false -<span id="L344" class="LineNr">344 </span> 50/push-eax -<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L346" class="LineNr">346 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L349" class="LineNr">349 </span> c3/return -<span id="L350" class="LineNr">350 </span> -<span id="L351" class="LineNr">351 </span><span class="subxTest">test-is-decimal-digit-0-to-9</span>: -<span id="L352" class="LineNr">352 </span> <span class="subxComment"># eax = is-decimal-digit?(0x30)</span> +<span id="L335" class="LineNr">335 </span> 68/push <span class="Constant">"F - test-decimal-digit-below-0"</span>/imm32 +<span id="L336" class="LineNr">336 </span> 68/push 0/imm32/false +<span id="L337" class="LineNr">337 </span> 50/push-eax +<span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . call</span> +<span id="L339" class="LineNr">339 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L341" class="LineNr">341 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L342" class="LineNr">342 </span> c3/return +<span id="L343" class="LineNr">343 </span> +<span id="L344" class="LineNr">344 </span><span class="subxTest">test-decimal-digit-0-to-9</span>: +<span id="L345" class="LineNr">345 </span> <span class="subxComment"># eax = decimal-digit?(0x30)</span> +<span id="L346" class="LineNr">346 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L347" class="LineNr">347 </span> 68/push 0x30/imm32 +<span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . call</span> +<span id="L349" class="LineNr">349 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 +<span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L351" class="LineNr">351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L352" class="LineNr">352 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L353" class="LineNr">353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L354" class="LineNr">354 </span> 68/push 0x30/imm32 -<span id="L355" class="LineNr">355 </span> <span class="subxS2Comment"># . . call</span> -<span id="L356" class="LineNr">356 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a>/disp32 -<span id="L357" class="LineNr">357 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L358" class="LineNr">358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L359" class="LineNr">359 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L361" class="LineNr">361 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-at-0"</span>/imm32 -<span id="L362" class="LineNr">362 </span> 68/push 1/imm32/true -<span id="L363" class="LineNr">363 </span> 50/push-eax +<span id="L354" class="LineNr">354 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-0"</span>/imm32 +<span id="L355" class="LineNr">355 </span> 68/push 1/imm32/true +<span id="L356" class="LineNr">356 </span> 50/push-eax +<span id="L357" class="LineNr">357 </span> <span class="subxS2Comment"># . . call</span> +<span id="L358" class="LineNr">358 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L359" class="LineNr">359 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L360" class="LineNr">360 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L361" class="LineNr">361 </span> <span class="subxComment"># eax = decimal-digit?(0x39)</span> +<span id="L362" class="LineNr">362 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L363" class="LineNr">363 </span> 68/push 0x39/imm32 <span id="L364" class="LineNr">364 </span> <span class="subxS2Comment"># . . call</span> -<span id="L365" class="LineNr">365 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L365" class="LineNr">365 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 <span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L367" class="LineNr">367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L368" class="LineNr">368 </span> <span class="subxComment"># eax = is-decimal-digit?(0x39)</span> +<span id="L367" class="LineNr">367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L368" class="LineNr">368 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L369" class="LineNr">369 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L370" class="LineNr">370 </span> 68/push 0x39/imm32 -<span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . call</span> -<span id="L372" class="LineNr">372 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a>/disp32 -<span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L374" class="LineNr">374 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L375" class="LineNr">375 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L377" class="LineNr">377 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-at-9"</span>/imm32 -<span id="L378" class="LineNr">378 </span> 68/push 1/imm32/true -<span id="L379" class="LineNr">379 </span> 50/push-eax -<span id="L380" class="LineNr">380 </span> <span class="subxS2Comment"># . . call</span> -<span id="L381" class="LineNr">381 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L382" class="LineNr">382 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L383" class="LineNr">383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L384" class="LineNr">384 </span> c3/return -<span id="L385" class="LineNr">385 </span> -<span id="L386" class="LineNr">386 </span><span class="subxTest">test-is-decimal-digit-above-9</span>: -<span id="L387" class="LineNr">387 </span> <span class="subxComment"># eax = is-decimal-digit?(0x3a)</span> +<span id="L370" class="LineNr">370 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-9"</span>/imm32 +<span id="L371" class="LineNr">371 </span> 68/push 1/imm32/true +<span id="L372" class="LineNr">372 </span> 50/push-eax +<span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . call</span> +<span id="L374" class="LineNr">374 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L376" class="LineNr">376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L377" class="LineNr">377 </span> c3/return +<span id="L378" class="LineNr">378 </span> +<span id="L379" class="LineNr">379 </span><span class="subxTest">test-decimal-digit-above-9</span>: +<span id="L380" class="LineNr">380 </span> <span class="subxComment"># eax = decimal-digit?(0x3a)</span> +<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L382" class="LineNr">382 </span> 68/push 0x3a/imm32 +<span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . call</span> +<span id="L384" class="LineNr">384 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a>/disp32 +<span id="L385" class="LineNr">385 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L386" class="LineNr">386 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L387" class="LineNr">387 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L388" class="LineNr">388 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L389" class="LineNr">389 </span> 68/push 0x3a/imm32 -<span id="L390" class="LineNr">390 </span> <span class="subxS2Comment"># . . call</span> -<span id="L391" class="LineNr">391 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a>/disp32 -<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L393" class="LineNr">393 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L394" class="LineNr">394 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L395" class="LineNr">395 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L396" class="LineNr">396 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-above-9"</span>/imm32 -<span id="L397" class="LineNr">397 </span> 68/push 0/imm32/false -<span id="L398" class="LineNr">398 </span> 50/push-eax -<span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . call</span> -<span id="L400" class="LineNr">400 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L402" class="LineNr">402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L403" class="LineNr">403 </span> c3/return -<span id="L404" class="LineNr">404 </span> -<span id="L405" class="LineNr">405 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> -<span id="L406" class="LineNr">406 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L407" class="LineNr">407 </span> 55/push-ebp -<span id="L408" class="LineNr">408 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L409" class="LineNr">409 </span> <span class="subxComment"># eax = in</span> -<span id="L410" class="LineNr">410 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L411" class="LineNr">411 </span><span class="Constant">$to-decimal-digit:check0</span>: -<span id="L412" class="LineNr">412 </span> <span class="subxComment"># if (eax < '0') goto abort</span> -<span id="L413" class="LineNr">413 </span> 3d/compare-eax-with 0x30/imm32/0 -<span id="L414" class="LineNr">414 </span> 7c/jump-if-< $to-decimal-digit:abort/disp8 -<span id="L415" class="LineNr">415 </span><span class="Constant">$to-decimal-digit:check1</span>: -<span id="L416" class="LineNr">416 </span> <span class="subxComment"># if (eax > '9') goto abort</span> -<span id="L417" class="LineNr">417 </span> 3d/compare-eax-with 0x39/imm32/f -<span id="L418" class="LineNr">418 </span> 7f/jump-if-> $to-decimal-digit:abort/disp8 -<span id="L419" class="LineNr">419 </span><span class="Constant">$to-decimal-digit:digit</span>: -<span id="L420" class="LineNr">420 </span> <span class="subxComment"># return eax - '0'</span> -<span id="L421" class="LineNr">421 </span> 2d/subtract-from-eax 0x30/imm32/0 -<span id="L422" class="LineNr">422 </span><span class="Constant">$to-decimal-digit:end</span>: -<span id="L423" class="LineNr">423 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L424" class="LineNr">424 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L425" class="LineNr">425 </span> 5d/pop-to-ebp -<span id="L426" class="LineNr">426 </span> c3/return +<span id="L389" class="LineNr">389 </span> 68/push <span class="Constant">"F - test-decimal-digit-above-9"</span>/imm32 +<span id="L390" class="LineNr">390 </span> 68/push 0/imm32/false +<span id="L391" class="LineNr">391 </span> 50/push-eax +<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . call</span> +<span id="L393" class="LineNr">393 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L395" class="LineNr">395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L396" class="LineNr">396 </span> c3/return +<span id="L397" class="LineNr">397 </span> +<span id="L398" class="LineNr">398 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> +<span id="L399" class="LineNr">399 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L400" class="LineNr">400 </span> 55/push-ebp +<span id="L401" class="LineNr">401 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L402" class="LineNr">402 </span> <span class="subxComment"># eax = in</span> +<span id="L403" class="LineNr">403 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L404" class="LineNr">404 </span><span class="Constant">$to-decimal-digit:check0</span>: +<span id="L405" class="LineNr">405 </span> <span class="subxComment"># if (eax < '0') goto abort</span> +<span id="L406" class="LineNr">406 </span> 3d/compare-eax-with 0x30/imm32/0 +<span id="L407" class="LineNr">407 </span> 7c/jump-if-< $to-decimal-digit:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L408" class="LineNr">408 </span><span class="Constant">$to-decimal-digit:check1</span>: +<span id="L409" class="LineNr">409 </span> <span class="subxComment"># if (eax > '9') goto abort</span> +<span id="L410" class="LineNr">410 </span> 3d/compare-eax-with 0x39/imm32/f +<span id="L411" class="LineNr">411 </span> 7f/jump-if-> $to-decimal-digit:<a href='501draw-text.mu.html#L459'>abort</a>/disp8 +<span id="L412" class="LineNr">412 </span><span class="Constant">$to-decimal-digit:digit</span>: +<span id="L413" class="LineNr">413 </span> <span class="subxComment"># return eax - '0'</span> +<span id="L414" class="LineNr">414 </span> 2d/subtract-from-eax 0x30/imm32/0 +<span id="L415" class="LineNr">415 </span><span class="Constant">$to-decimal-digit:end</span>: +<span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L417" class="LineNr">417 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L418" class="LineNr">418 </span> 5d/pop-to-ebp +<span id="L419" class="LineNr">419 </span> c3/return +<span id="L420" class="LineNr">420 </span> +<span id="L421" class="LineNr">421 </span><span class="Constant">$to-decimal-digit:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L422" class="LineNr">422 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"to-decimal-digit: not a digit character"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L423" class="LineNr">423 </span> { +<span id="L424" class="LineNr">424 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L425" class="LineNr">425 </span> } +<span id="L426" class="LineNr">426 </span> <span class="subxComment"># never gets here</span> <span id="L427" class="LineNr">427 </span> -<span id="L428" class="LineNr">428 </span><span class="Constant">$to-decimal-digit:abort</span>: -<span id="L429" class="LineNr">429 </span> <span class="subxS1Comment"># . write-buffered(stderr, error)</span> -<span id="L430" class="LineNr">430 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L431" class="LineNr">431 </span> 68/push <span class="Constant">"to-decimal-digit: not a digit character: "</span>/imm32 -<span id="L432" class="LineNr">432 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . call</span> -<span id="L434" class="LineNr">434 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L435" class="LineNr">435 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L436" class="LineNr">436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L437" class="LineNr">437 </span> <span class="subxS1Comment"># . write-byte-buffered(stderr, %eax)</span> -<span id="L438" class="LineNr">438 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L439" class="LineNr">439 </span> 50/push-eax -<span id="L440" class="LineNr">440 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L441" class="LineNr">441 </span> <span class="subxS2Comment"># . . call</span> -<span id="L442" class="LineNr">442 </span><span class="CommentedCode">#? e8/call write-byte-buffered/disp32</span> -<span id="L443" class="LineNr">443 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L444" class="LineNr">444 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L445" class="LineNr">445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L446" class="LineNr">446 </span> <span class="subxS1Comment"># . write-buffered(stderr, "\n")</span> -<span id="L447" class="LineNr">447 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L448" class="LineNr">448 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L449" class="LineNr">449 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L450" class="LineNr">450 </span> <span class="subxS2Comment"># . . call</span> -<span id="L451" class="LineNr">451 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L452" class="LineNr">452 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L453" class="LineNr">453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L454" class="LineNr">454 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L455" class="LineNr">455 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L456" class="LineNr">456 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L457" class="LineNr">457 </span> <span class="subxS2Comment"># . . call</span> -<span id="L458" class="LineNr">458 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L459" class="LineNr">459 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L460" class="LineNr">460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L461" class="LineNr">461 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L462" class="LineNr">462 </span> bb/copy-to-ebx 1/imm32 -<span id="L463" class="LineNr">463 </span> e8/call syscall_exit/disp32 -<span id="L464" class="LineNr">464 </span> <span class="subxComment"># never gets here</span> -<span id="L465" class="LineNr">465 </span> -<span id="L466" class="LineNr">466 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L428" class="LineNr">428 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/127next-word.subx.html b/html/127next-word.subx.html index 1bdd36da..7305ad06 100644 --- a/html/127next-word.subx.html +++ b/html/127next-word.subx.html @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -84,7 +84,7 @@ if ('onhashchange' in window) { <span id="L25" class="LineNr"> 25 </span> <span class="subxS2Comment"># . . push args</span> <span id="L26" class="LineNr"> 26 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L27" class="LineNr"> 27 </span> <span class="subxS2Comment"># . . call</span> -<span id="L28" class="LineNr"> 28 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 +<span id="L28" class="LineNr"> 28 </span> e8/call <a href='124next-token.subx.html#L311'>skip-chars-matching-whitespace</a>/disp32 <span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L30" class="LineNr"> 30 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L31" class="LineNr"> 31 </span><span class="Constant">$next-word:check0</span>: @@ -125,7 +125,7 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . push args</span> <span id="L67" class="LineNr"> 67 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . call</span> -<span id="L69" class="LineNr"> 69 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 +<span id="L69" class="LineNr"> 69 </span> e8/call <a href='124next-token.subx.html#L563'>skip-chars-not-matching-whitespace</a>/disp32 <span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L71" class="LineNr"> 71 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> @@ -150,9 +150,9 @@ if ('onhashchange' in window) { <span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># setup</span> <span id="L92" class="LineNr"> 92 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L94" class="LineNr"> 94 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L94" class="LineNr"> 94 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . call</span> -<span id="L96" class="LineNr"> 96 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L96" class="LineNr"> 96 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -162,15 +162,15 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr">103 </span> <span class="subxComment"># write(_test-stream, " ab")</span> <span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . push args</span> <span id="L105" class="LineNr">105 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L106" class="LineNr">106 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L106" class="LineNr">106 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . call</span> -<span id="L108" class="LineNr">108 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L108" class="LineNr">108 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L110" class="LineNr">110 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L111" class="LineNr">111 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> <span id="L113" class="LineNr">113 </span> 51/push-ecx -<span id="L114" class="LineNr">114 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L114" class="LineNr">114 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . call</span> <span id="L116" class="LineNr">116 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L117" class="LineNr">117 </span> <span class="subxS2Comment"># . . discard args</span> @@ -182,10 +182,10 @@ if ('onhashchange' in window) { <span id="L123" class="LineNr">123 </span> 68/push 0xe/imm32 <span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> <span id="L125" class="LineNr">125 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L126" class="LineNr">126 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L126" class="LineNr">126 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L127" class="LineNr">127 </span> 50/push-eax <span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . call</span> -<span id="L129" class="LineNr">129 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L129" class="LineNr">129 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L131" class="LineNr">131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L132" class="LineNr">132 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> @@ -195,10 +195,10 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span> 68/push 0x10/imm32 <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> <span id="L138" class="LineNr">138 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L139" class="LineNr">139 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L139" class="LineNr">139 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L140" class="LineNr">140 </span> 50/push-eax <span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . call</span> -<span id="L142" class="LineNr">142 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L142" class="LineNr">142 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L144" class="LineNr">144 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . epilogue</span> @@ -213,9 +213,9 @@ if ('onhashchange' in window) { <span id="L154" class="LineNr">154 </span> <span class="subxComment"># setup</span> <span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L157" class="LineNr">157 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L157" class="LineNr">157 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> -<span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L161" class="LineNr">161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L162" class="LineNr">162 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -225,15 +225,15 @@ if ('onhashchange' in window) { <span id="L166" class="LineNr">166 </span> <span class="subxComment"># write(_test-stream, " # a")</span> <span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> <span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L169" class="LineNr">169 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L169" class="LineNr">169 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> -<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L174" class="LineNr">174 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . push args</span> <span id="L176" class="LineNr">176 </span> 51/push-ecx -<span id="L177" class="LineNr">177 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L177" class="LineNr">177 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . call</span> <span id="L179" class="LineNr">179 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . discard args</span> @@ -245,10 +245,10 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr">186 </span> 68/push 0xe/imm32 <span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> <span id="L188" class="LineNr">188 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L189" class="LineNr">189 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L189" class="LineNr">189 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L190" class="LineNr">190 </span> 50/push-eax <span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . call</span> -<span id="L192" class="LineNr">192 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L192" class="LineNr">192 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L194" class="LineNr">194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L195" class="LineNr">195 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 5, msg)</span> @@ -258,10 +258,10 @@ if ('onhashchange' in window) { <span id="L199" class="LineNr">199 </span> 68/push 0x11/imm32 <span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> <span id="L201" class="LineNr">201 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L202" class="LineNr">202 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L202" class="LineNr">202 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L203" class="LineNr">203 </span> 50/push-eax <span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L205" class="LineNr">205 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L205" class="LineNr">205 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . epilogue</span> @@ -276,9 +276,9 @@ if ('onhashchange' in window) { <span id="L217" class="LineNr">217 </span> <span class="subxComment"># setup</span> <span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L220" class="LineNr">220 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L220" class="LineNr">220 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . call</span> -<span id="L222" class="LineNr">222 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L222" class="LineNr">222 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L223" class="LineNr">223 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L224" class="LineNr">224 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L225" class="LineNr">225 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -289,7 +289,7 @@ if ('onhashchange' in window) { <span id="L230" class="LineNr">230 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . push args</span> <span id="L232" class="LineNr">232 </span> 51/push-ecx -<span id="L233" class="LineNr">233 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L233" class="LineNr">233 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> <span id="L235" class="LineNr">235 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> @@ -303,7 +303,7 @@ if ('onhashchange' in window) { <span id="L244" class="LineNr">244 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> <span id="L245" class="LineNr">245 </span> 50/push-eax <span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . call</span> -<span id="L247" class="LineNr">247 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L247" class="LineNr">247 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L248" class="LineNr">248 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L249" class="LineNr">249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . epilogue</span> @@ -318,9 +318,9 @@ if ('onhashchange' in window) { <span id="L259" class="LineNr">259 </span> <span class="subxComment"># setup</span> <span id="L260" class="LineNr">260 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L262" class="LineNr">262 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L262" class="LineNr">262 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . call</span> -<span id="L264" class="LineNr">264 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L264" class="LineNr">264 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 <span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L266" class="LineNr">266 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L267" class="LineNr">267 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -330,15 +330,15 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr">271 </span> <span class="subxComment"># write some whitespace and a newline</span> <span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . push args</span> <span id="L273" class="LineNr">273 </span> 68/push <span class="Constant">" \n"</span>/imm32 -<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . call</span> -<span id="L276" class="LineNr">276 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L276" class="LineNr">276 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 <span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L278" class="LineNr">278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L279" class="LineNr">279 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> <span id="L281" class="LineNr">281 </span> 51/push-ecx -<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . call</span> <span id="L284" class="LineNr">284 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . discard args</span> @@ -352,7 +352,7 @@ if ('onhashchange' in window) { <span id="L293" class="LineNr">293 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> <span id="L294" class="LineNr">294 </span> 50/push-eax <span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L296" class="LineNr">296 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L296" class="LineNr">296 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 <span id="L297" class="LineNr">297 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L298" class="LineNr">298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L299" class="LineNr">299 </span> <span class="subxS1Comment"># . epilogue</span> @@ -379,7 +379,7 @@ if ('onhashchange' in window) { <span id="L320" class="LineNr">320 </span> <span class="subxS2Comment"># . . push args</span> <span id="L321" class="LineNr">321 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L322" class="LineNr">322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L323" class="LineNr">323 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 +<span id="L323" class="LineNr">323 </span> e8/call <a href='124next-token.subx.html#L311'>skip-chars-matching-whitespace</a>/disp32 <span id="L324" class="LineNr">324 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L325" class="LineNr">325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L326" class="LineNr">326 </span><span class="Constant">$next-raw-word:check0</span>: @@ -402,7 +402,7 @@ if ('onhashchange' in window) { <span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . push args</span> <span id="L344" class="LineNr">344 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L346" class="LineNr">346 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 +<span id="L346" class="LineNr">346 </span> e8/call <a href='124next-token.subx.html#L563'>skip-chars-not-matching-whitespace</a>/disp32 <span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L349" class="LineNr">349 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> diff --git a/html/301array-equal.subx.html b/html/301array-equal.subx.html index 94b1f52d..f516d9d2 100644 --- a/html/301array-equal.subx.html +++ b/html/301array-equal.subx.html @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -158,7 +158,7 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> 89/<- %edx 4/r32/esp <span id="L99" class="LineNr"> 99 </span> <span class="subxComment">#</span> <span id="L100" class="LineNr">100 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L101" class="LineNr">101 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-empty-with-empty-array"</span>) +<span id="L101" class="LineNr">101 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-empty-with-empty-array"</span>) <span id="L102" class="LineNr">102 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L103" class="LineNr">103 </span> 89/<- %esp 5/r32/ebp <span id="L104" class="LineNr">104 </span> 5d/pop-to-ebp @@ -177,7 +177,7 @@ if ('onhashchange' in window) { <span id="L117" class="LineNr">117 </span> 89/<- %edx 4/r32/esp <span id="L118" class="LineNr">118 </span> <span class="subxComment">#</span> <span id="L119" class="LineNr">119 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L120" class="LineNr">120 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-empty-with-non-empty-array"</span>) +<span id="L120" class="LineNr">120 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-empty-with-non-empty-array"</span>) <span id="L121" class="LineNr">121 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L122" class="LineNr">122 </span> 89/<- %esp 5/r32/ebp <span id="L123" class="LineNr">123 </span> 5d/pop-to-ebp @@ -201,7 +201,7 @@ if ('onhashchange' in window) { <span id="L141" class="LineNr">141 </span> 89/<- %edx 4/r32/esp <span id="L142" class="LineNr">142 </span> <span class="subxComment">#</span> <span id="L143" class="LineNr">143 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L144" class="LineNr">144 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-equal-arrays"</span>) +<span id="L144" class="LineNr">144 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-equal-arrays"</span>) <span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L146" class="LineNr">146 </span> 89/<- %esp 5/r32/ebp <span id="L147" class="LineNr">147 </span> 5d/pop-to-ebp @@ -225,7 +225,7 @@ if ('onhashchange' in window) { <span id="L165" class="LineNr">165 </span> 89/<- %edx 4/r32/esp <span id="L166" class="LineNr">166 </span> <span class="subxComment">#</span> <span id="L167" class="LineNr">167 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L168" class="LineNr">168 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-inequal-arrays-equal-sizes"</span>) +<span id="L168" class="LineNr">168 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-inequal-arrays-equal-sizes"</span>) <span id="L169" class="LineNr">169 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L170" class="LineNr">170 </span> 89/<- %esp 5/r32/ebp <span id="L171" class="LineNr">171 </span> 5d/pop-to-ebp @@ -281,19 +281,19 @@ if ('onhashchange' in window) { <span id="L221" class="LineNr">221 </span> 39/compare %ecx 2/r32/edx <span id="L222" class="LineNr">222 </span> 73/jump-if-addr>= $_parse-array-of-ints:break1/disp8 <span id="L223" class="LineNr">223 </span> <span class="subxComment"># curr = skip-chars-matching-in-slice(curr, end, ' ')</span> -<span id="L224" class="LineNr">224 </span> (<a href='124next-token.subx.html#L804'>skip-chars-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L224" class="LineNr">224 </span> (<a href='124next-token.subx.html#L651'>skip-chars-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> <span id="L225" class="LineNr">225 </span> 89/<- %ecx 0/r32/eax <span id="L226" class="LineNr">226 </span> <span class="subxComment"># if (curr >= end) break</span> <span id="L227" class="LineNr">227 </span> 39/compare %ecx 2/r32/edx <span id="L228" class="LineNr">228 </span> 73/jump-if-addr>= $_parse-array-of-ints:break1/disp8 <span id="L229" class="LineNr">229 </span> <span class="subxComment"># curr = skip-chars-not-matching-in-slice(curr, end, ' ')</span> -<span id="L230" class="LineNr">230 </span> (<a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L230" class="LineNr">230 </span> (<a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> <span id="L231" class="LineNr">231 </span> 89/<- %ecx 0/r32/eax <span id="L232" class="LineNr">232 </span> <span class="subxComment"># size += 4</span> <span id="L233" class="LineNr">233 </span> 81 0/subop/add %ebx 4/imm32 <span id="L234" class="LineNr">234 </span> eb/jump $_parse-array-of-ints:loop1/disp8 <span id="L235" class="LineNr">235 </span><span class="Constant">$_parse-array-of-ints:break1</span>: -<span id="L236" class="LineNr">236 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) +<span id="L236" class="LineNr">236 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) <span id="L237" class="LineNr">237 </span><span class="Constant">$_parse-array-of-ints:pass2</span>: <span id="L238" class="LineNr">238 </span> <span class="subxComment"># var slice/edi: slice = {s->data, 0}</span> <span id="L239" class="LineNr">239 </span> 68/push 0/imm32/end @@ -302,20 +302,20 @@ if ('onhashchange' in window) { <span id="L242" class="LineNr">242 </span> 89/<- %edi 4/r32/esp <span id="L243" class="LineNr">243 </span> <span class="subxComment"># curr = lookup(out)->data</span> <span id="L244" class="LineNr">244 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L245" class="LineNr">245 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L245" class="LineNr">245 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L246" class="LineNr">246 </span> 8d/copy-address *(eax+4) 1/r32/ecx <span id="L247" class="LineNr">247 </span><span class="Constant">$_parse-array-of-ints:loop2</span>: <span id="L248" class="LineNr">248 </span> <span class="subxComment"># if (slice->start >= end) break</span> <span id="L249" class="LineNr">249 </span> 39/compare *edi 2/r32/edx <span id="L250" class="LineNr">250 </span> 73/jump-if-addr>= $_parse-array-of-ints:end/disp8 <span id="L251" class="LineNr">251 </span> <span class="subxComment"># slice->start = skip-chars-matching-in-slice(slice->start, end, ' ')</span> -<span id="L252" class="LineNr">252 </span> (<a href='124next-token.subx.html#L804'>skip-chars-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L252" class="LineNr">252 </span> (<a href='124next-token.subx.html#L651'>skip-chars-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> <span id="L253" class="LineNr">253 </span> 89/<- *edi 0/r32/eax <span id="L254" class="LineNr">254 </span> <span class="subxComment"># if (slice->start >= end) break</span> <span id="L255" class="LineNr">255 </span> 39/compare *edi 2/r32/edx <span id="L256" class="LineNr">256 </span> 73/jump-if-addr>= $_parse-array-of-ints:end/disp8 <span id="L257" class="LineNr">257 </span> <span class="subxComment"># slice->end = skip-chars-not-matching-in-slice(slice->start, end, ' ')</span> -<span id="L258" class="LineNr">258 </span> (<a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L258" class="LineNr">258 </span> (<a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> <span id="L259" class="LineNr">259 </span> 89/<- *(edi+4) 0/r32/eax <span id="L260" class="LineNr">260 </span> <span class="subxComment"># *curr = parse-hex-int-from-slice(slice)</span> <span id="L261" class="LineNr">261 </span> (<a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %edi) @@ -357,9 +357,9 @@ if ('onhashchange' in window) { <span id="L297" class="LineNr">297 </span> 89/<- %ecx 4/r32/esp <span id="L298" class="LineNr">298 </span> <span class="subxComment">#</span> <span id="L299" class="LineNr">299 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"1 2 3"</span> %esi) -<span id="L300" class="LineNr">300 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L300" class="LineNr">300 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L301" class="LineNr">301 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L302" class="LineNr">302 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints"</span>) +<span id="L302" class="LineNr">302 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints"</span>) <span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L304" class="LineNr">304 </span> 89/<- %esp 5/r32/ebp <span id="L305" class="LineNr">305 </span> 5d/pop-to-ebp @@ -376,8 +376,8 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr">316 </span> 89/<- %esi 4/r32/esp <span id="L317" class="LineNr">317 </span> <span class="subxComment">#</span> <span id="L318" class="LineNr">318 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">""</span> %esi) -<span id="L319" class="LineNr">319 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L320" class="LineNr">320 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-empty"</span>) +<span id="L319" class="LineNr">319 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L320" class="LineNr">320 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-empty"</span>) <span id="L321" class="LineNr">321 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L322" class="LineNr">322 </span> 89/<- %esp 5/r32/ebp <span id="L323" class="LineNr">323 </span> 5d/pop-to-ebp @@ -393,9 +393,9 @@ if ('onhashchange' in window) { <span id="L333" class="LineNr">333 </span> 68/push 0/imm32 <span id="L334" class="LineNr">334 </span> 89/<- %esi 4/r32/esp <span id="L335" class="LineNr">335 </span> <span class="subxComment">#</span> -<span id="L336" class="LineNr">336 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span> %esi) -<span id="L337" class="LineNr">337 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L338" class="LineNr">338 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-just-whitespace"</span>) +<span id="L336" class="LineNr">336 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='301array-equal.subx.html#L428'>Space</a></span> %esi) +<span id="L337" class="LineNr">337 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L338" class="LineNr">338 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-just-whitespace"</span>) <span id="L339" class="LineNr">339 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L340" class="LineNr">340 </span> 89/<- %esp 5/r32/ebp <span id="L341" class="LineNr">341 </span> 5d/pop-to-ebp @@ -417,9 +417,9 @@ if ('onhashchange' in window) { <span id="L357" class="LineNr">357 </span> 89/<- %ecx 4/r32/esp <span id="L358" class="LineNr">358 </span> <span class="subxComment">#</span> <span id="L359" class="LineNr">359 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">" 1 2 3 "</span> %esi) -<span id="L360" class="LineNr">360 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L360" class="LineNr">360 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L361" class="LineNr">361 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L362" class="LineNr">362 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints-extra-whitespace"</span>) +<span id="L362" class="LineNr">362 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints-extra-whitespace"</span>) <span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L364" class="LineNr">364 </span> 89/<- %esp 5/r32/ebp <span id="L365" class="LineNr">365 </span> 5d/pop-to-ebp @@ -452,10 +452,10 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr">392 </span> 89/<- %esi 4/r32/esp <span id="L393" class="LineNr">393 </span> <span class="subxComment"># var b/eax: (addr array int) = parse-array-of-ints(Heap, expected)</span> <span id="L394" class="LineNr">394 </span> (<a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> *(ebp+0xc) %esi) -<span id="L395" class="LineNr">395 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L395" class="LineNr">395 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L396" class="LineNr">396 </span> <span class="subxComment">#</span> <span id="L397" class="LineNr">397 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> *(ebp+8) %eax) -<span id="L398" class="LineNr">398 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 *(ebp+0x10)) +<span id="L398" class="LineNr">398 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 *(ebp+0x10)) <span id="L399" class="LineNr">399 </span><span class="Constant">$check-array-equal:end</span>: <span id="L400" class="LineNr">400 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L401" class="LineNr">401 </span> 5e/pop-to-esi @@ -481,6 +481,15 @@ if ('onhashchange' in window) { <span id="L421" class="LineNr">421 </span> 89/<- %esp 5/r32/ebp <span id="L422" class="LineNr">422 </span> 5d/pop-to-ebp <span id="L423" class="LineNr">423 </span> c3/return +<span id="L424" class="LineNr">424 </span> +<span id="L425" class="LineNr">425 </span>== data +<span id="L426" class="LineNr">426 </span> +<span id="L427" class="LineNr">427 </span><span class="subxComment"># length-prefixed string containing just a single space</span> +<span id="L428" class="LineNr">428 </span><span class="SpecialChar">Space</span>: <span class="subxComment"># (array byte)</span> +<span id="L429" class="LineNr">429 </span> <span class="subxComment"># size: int</span> +<span id="L430" class="LineNr">430 </span> 1/imm32 +<span id="L431" class="LineNr">431 </span> <span class="subxComment"># data</span> +<span id="L432" class="LineNr">432 </span> 20/space </pre> </body> </html> diff --git a/html/302stack_allocate.subx.html b/html/302stack_allocate.subx.html index 5752a165..0c1822cd 100644 --- a/html/302stack_allocate.subx.html +++ b/html/302stack_allocate.subx.html @@ -15,11 +15,11 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .SpecialChar { color: #d70000; } -.CommentedCode { color: #8a8a8a; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr">47 </span> 89/<- *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> 4/r32/esp <span id="L48" class="LineNr">48 </span> 81 0/subop/add *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> 4/imm32 <span id="L49" class="LineNr">49 </span> 81 0/subop/add *(ebp+4) 4/imm32 -<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L877'>zero-out</a> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> *(ebp+4)) <span class="subxComment"># n+4</span> +<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L836'>zero-out</a> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> *(ebp+4)) <span class="subxComment"># n+4</span> <span id="L51" class="LineNr">51 </span><span class="Constant">$push-n-zero-bytes:epilogue</span>: <span id="L52" class="LineNr">52 </span> 8b/-> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L56'>Push-n-zero-bytes-ebp</a></span> 5/r32/ebp <span class="subxComment"># restore spill</span> <span id="L53" class="LineNr">53 </span> c3/return diff --git a/html/308allocate-array.subx.html b/html/308allocate-array.subx.html index 6d020471..f61dea9b 100644 --- a/html/308allocate-array.subx.html +++ b/html/308allocate-array.subx.html @@ -15,8 +15,8 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -70,7 +70,7 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr">14 </span> 8b/-> *(ebp+0xc) 0/r32/eax <span id="L15" class="LineNr">15 </span> f7 4/subop/multiply-into-edx-eax *(ebp+0x10) <span id="L16" class="LineNr">16 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L17" class="LineNr">17 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> *(ebp+8) %eax *(ebp+0x14)) +<span id="L17" class="LineNr">17 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %eax *(ebp+0x14)) <span id="L18" class="LineNr">18 </span><span class="Constant">$allocate-array2:end</span>: <span id="L19" class="LineNr">19 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L20" class="LineNr">20 </span> 5a/pop-to-edx diff --git a/html/309stream.subx.html b/html/309stream.subx.html index 4330eafa..4039d145 100644 --- a/html/309stream.subx.html +++ b/html/309stream.subx.html @@ -15,9 +15,8 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -126,7 +125,7 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L70" class="LineNr"> 70 </span> 01/add-to %ecx 2/r32/edx <span id="L71" class="LineNr"> 71 </span> 3b/compare 1/r32/ecx *(edi+8) -<span id="L72" class="LineNr"> 72 </span> 0f 8f/jump-if-> $write-to-stream:abort/disp32 +<span id="L72" class="LineNr"> 72 </span> 0f 8f/jump-if-> $write-to-stream:<a href='501draw-text.mu.html#L459'>abort</a>/disp32 <span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># var out/edx: (addr byte) = s->data + s->write</span> <span id="L74" class="LineNr"> 74 </span> 8d/copy-address *(edi+edx+0xc) 2/r32/edx <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># var outend/ebx: (addr byte) = out + n</span> @@ -138,7 +137,7 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr"> 81 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L82" class="LineNr"> 82 </span> 8d/copy-address *(eax+ecx) 1/r32/ecx <span id="L83" class="LineNr"> 83 </span> <span class="subxComment">#</span> -<span id="L84" class="LineNr"> 84 </span> (<a href='107trace.subx.html#L897'>_append-4</a> %edx %ebx %eax %ecx) <span class="subxComment"># => eax</span> +<span id="L84" class="LineNr"> 84 </span> (<a href='108write.subx.html#L171'>_append-4</a> %edx %ebx %eax %ecx) <span class="subxComment"># => eax</span> <span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># s->write += n</span> <span id="L86" class="LineNr"> 86 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L87" class="LineNr"> 87 </span> 01/add-to *edi 1/r32/ecx @@ -154,11 +153,11 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span> 5d/pop-to-ebp <span id="L98" class="LineNr"> 98 </span> c3/return <span id="L99" class="LineNr"> 99 </span> -<span id="L100" class="LineNr">100 </span><span class="Constant">$write-to-stream:abort</span>: -<span id="L101" class="LineNr">101 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"write-to-stream: stream full\n"</span>) -<span id="L102" class="LineNr">102 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L103" class="LineNr">103 </span> bb/copy-to-ebx 1/imm32 -<span id="L104" class="LineNr">104 </span> (syscall_exit) +<span id="L100" class="LineNr">100 </span><span class="Constant">$write-to-stream:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L101" class="LineNr">101 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-to-stream: stream full"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L102" class="LineNr">102 </span> { +<span id="L103" class="LineNr">103 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L104" class="LineNr">104 </span> } <span id="L105" class="LineNr">105 </span> <span class="subxComment"># never gets here</span> <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="subxFunction">read-from-stream</span>: <span class="subxComment"># s: (addr stream _), out: (addr byte), n: int</span> @@ -179,7 +178,7 @@ if ('onhashchange' in window) { <span id="L122" class="LineNr">122 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L123" class="LineNr">123 </span> 01/add-to %ecx 2/r32/edx <span id="L124" class="LineNr">124 </span> 3b/compare 1/r32/ecx *esi -<span id="L125" class="LineNr">125 </span> 0f 8f/jump-if-> $read-from-stream:abort/disp32 +<span id="L125" class="LineNr">125 </span> 0f 8f/jump-if-> $read-from-stream:<a href='501draw-text.mu.html#L459'>abort</a>/disp32 <span id="L126" class="LineNr">126 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> <span id="L127" class="LineNr">127 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx <span id="L128" class="LineNr">128 </span> <span class="subxComment"># var inend/ebx: (addr byte) = in + n</span> @@ -191,7 +190,7 @@ if ('onhashchange' in window) { <span id="L134" class="LineNr">134 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L135" class="LineNr">135 </span> 8d/copy-address *(eax+ecx) 1/r32/ecx <span id="L136" class="LineNr">136 </span> <span class="subxComment">#</span> -<span id="L137" class="LineNr">137 </span> (<a href='107trace.subx.html#L897'>_append-4</a> %eax %ecx %edx %ebx) <span class="subxComment"># => eax</span> +<span id="L137" class="LineNr">137 </span> (<a href='108write.subx.html#L171'>_append-4</a> %eax %ecx %edx %ebx) <span class="subxComment"># => eax</span> <span id="L138" class="LineNr">138 </span> <span class="subxComment"># s->read += n</span> <span id="L139" class="LineNr">139 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L140" class="LineNr">140 </span> 01/add-to *(esi+4) 1/r32/ecx @@ -207,11 +206,11 @@ if ('onhashchange' in window) { <span id="L150" class="LineNr">150 </span> 5d/pop-to-ebp <span id="L151" class="LineNr">151 </span> c3/return <span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="Constant">$read-from-stream:abort</span>: -<span id="L154" class="LineNr">154 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"read-from-stream: stream empty\n"</span>) -<span id="L155" class="LineNr">155 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L156" class="LineNr">156 </span> bb/copy-to-ebx 1/imm32 -<span id="L157" class="LineNr">157 </span> (syscall_exit) +<span id="L153" class="LineNr">153 </span><span class="Constant">$read-from-stream:<a href='501draw-text.mu.html#L459'>abort</a></span>: +<span id="L154" class="LineNr">154 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"read-from-stream: stream empty"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L155" class="LineNr">155 </span> { +<span id="L156" class="LineNr">156 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L157" class="LineNr">157 </span> } <span id="L158" class="LineNr">158 </span> <span class="subxComment"># never gets here</span> <span id="L159" class="LineNr">159 </span> <span id="L160" class="LineNr">160 </span><span class="subxFunction">stream-first</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> diff --git a/html/310copy-bytes.subx.html b/html/310copy-bytes.subx.html index 83f0ce5a..351b9e9d 100644 --- a/html/310copy-bytes.subx.html +++ b/html/310copy-bytes.subx.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } +.LineNr { } +.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } -.subxTest { color: #5f8700; } --> </style> @@ -130,13 +130,13 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> 8b/-> *esi 1/r32/ecx <span id="L73" class="LineNr"> 73 </span> 2b/subtract *(esi+4) 1/r32/ecx <span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># allocate</span> -<span id="L75" class="LineNr"> 75 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L75" class="LineNr"> 75 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) <span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> <span id="L77" class="LineNr"> 77 </span> 8b/-> *(esi+4) 2/r32/edx <span id="L78" class="LineNr"> 78 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx <span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># var dest/eax: (addr byte) = data for out</span> <span id="L80" class="LineNr"> 80 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L81" class="LineNr"> 81 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L81" class="LineNr"> 81 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L82" class="LineNr"> 82 </span> 8d/copy-address *(eax+4) 0/r32/eax <span id="L83" class="LineNr"> 83 </span> <span class="subxComment">#</span> <span id="L84" class="LineNr"> 84 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %edx %eax %ecx) @@ -156,18 +156,18 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> 55/push-ebp <span id="L99" class="LineNr"> 99 </span> 89/<- %ebp 4/r32/esp <span id="L100" class="LineNr">100 </span> <span class="subxComment"># setup</span> -<span id="L101" class="LineNr">101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L102" class="LineNr">102 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"abc"</span>) +<span id="L101" class="LineNr">101 </span> (<a href='106stream.subx.html#L20'>clear-stream</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a>) +<span id="L102" class="LineNr">102 </span> (<a href='108write.subx.html#L11'>write</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a> <span class="Constant">"abc"</span>) <span id="L103" class="LineNr">103 </span> <span class="subxComment"># skip something</span> -<span id="L104" class="LineNr">104 </span> (<a href='112read-byte.subx.html#L273'>read-byte</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) <span class="subxComment"># => eax</span> +<span id="L104" class="LineNr">104 </span> (<a href='112read-byte.subx.html#L13'>read-byte</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a>) <span class="subxComment"># => eax</span> <span id="L105" class="LineNr">105 </span> <span class="subxComment"># var out/ecx: (handle array byte)</span> <span id="L106" class="LineNr">106 </span> 68/push 0/imm32 <span id="L107" class="LineNr">107 </span> 68/push 0/imm32 <span id="L108" class="LineNr">108 </span> 89/<- %ecx 4/r32/esp <span id="L109" class="LineNr">109 </span> <span class="subxComment">#</span> -<span id="L110" class="LineNr">110 </span> (<a href='310copy-bytes.subx.html#L60'>stream-to-array</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx) -<span id="L111" class="LineNr">111 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L112" class="LineNr">112 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"bc"</span>) +<span id="L110" class="LineNr">110 </span> (<a href='310copy-bytes.subx.html#L60'>stream-to-array</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a> %ecx) +<span id="L111" class="LineNr">111 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L112" class="LineNr">112 </span> (<a href='105string-equal.subx.html#L213'>check-strings-equal</a> %eax <span class="Constant">"bc"</span>) <span id="L113" class="LineNr">113 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L114" class="LineNr">114 </span> 89/<- %esp 5/r32/ebp <span id="L115" class="LineNr">115 </span> 5d/pop-to-ebp @@ -193,13 +193,13 @@ if ('onhashchange' in window) { <span id="L135" class="LineNr">135 </span> 7c/jump-if-< $unquote-stream-to-array:end/disp8 <span id="L136" class="LineNr">136 </span> 81 5/subop/subtract %ecx 2/imm32 <span id="L137" class="LineNr">137 </span> <span class="subxComment"># allocate</span> -<span id="L138" class="LineNr">138 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L138" class="LineNr">138 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) <span id="L139" class="LineNr">139 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read + 1</span> <span id="L140" class="LineNr">140 </span> 8b/-> *(esi+4) 2/r32/edx <span id="L141" class="LineNr">141 </span> 8d/copy-address *(esi+edx+0xd) 2/r32/edx <span class="subxComment"># Stream-data + 1</span> <span id="L142" class="LineNr">142 </span> <span class="subxComment"># var dest/eax: (addr byte) = data for out</span> <span id="L143" class="LineNr">143 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L144" class="LineNr">144 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L144" class="LineNr">144 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L145" class="LineNr">145 </span> 8d/copy-address *(eax+4) 0/r32/eax <span id="L146" class="LineNr">146 </span> <span class="subxComment">#</span> <span id="L147" class="LineNr">147 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %edx %eax %ecx) diff --git a/html/311decimal-int.subx.html b/html/311decimal-int.subx.html index 1563386c..2626adf5 100644 --- a/html/311decimal-int.subx.html +++ b/html/311decimal-int.subx.html @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxMinorFunction { color: #875f5f; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -184,10 +184,10 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span> <span class="subxComment"># if (curr >= in->end) break</span> <span id="L125" class="LineNr">125 </span> 39/compare %esi 7/r32/edi <span id="L126" class="LineNr">126 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L127" class="LineNr">127 </span> <span class="subxComment"># if !is-decimal-digit?(*curr) return 0</span> +<span id="L127" class="LineNr">127 </span> <span class="subxComment"># if !decimal-digit?(*curr) return 0</span> <span id="L128" class="LineNr">128 </span> 8a/copy-byte *esi 1/r32/CL <span id="L129" class="LineNr">129 </span> 50/push-eax -<span id="L130" class="LineNr">130 </span> (<a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L130" class="LineNr">130 </span> (<a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> <span id="L131" class="LineNr">131 </span> { <span id="L132" class="LineNr">132 </span> 3d/compare-eax-and 0/imm32/false <span id="L133" class="LineNr">133 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 @@ -247,7 +247,7 @@ if ('onhashchange' in window) { <span id="L187" class="LineNr">187 </span> 89/<- %ecx 4/r32/esp <span id="L188" class="LineNr">188 </span> <span class="subxComment">#</span> <span id="L189" class="LineNr">189 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L190" class="LineNr">190 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-parse-decimal-int-from-slice-single-digit"</span>) +<span id="L190" class="LineNr">190 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-parse-decimal-int-from-slice-single-digit"</span>) <span id="L191" class="LineNr">191 </span><span class="Constant">$test-parse-decimal-int-helper-single-digit:end</span>: <span id="L192" class="LineNr">192 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L193" class="LineNr">193 </span> 59/pop-to-ecx @@ -275,7 +275,7 @@ if ('onhashchange' in window) { <span id="L215" class="LineNr">215 </span> 89/<- %ecx 4/r32/esp <span id="L216" class="LineNr">216 </span> <span class="subxComment">#</span> <span id="L217" class="LineNr">217 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L218" class="LineNr">218 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0x22 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit"</span>) <span class="subxComment"># 34 in hex</span> +<span id="L218" class="LineNr">218 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0x22 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit"</span>) <span class="subxComment"># 34 in hex</span> <span id="L219" class="LineNr">219 </span><span class="Constant">$test-parse-decimal-int-helper-multi-digit:end</span>: <span id="L220" class="LineNr">220 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L221" class="LineNr">221 </span> 59/pop-to-ecx @@ -303,7 +303,7 @@ if ('onhashchange' in window) { <span id="L243" class="LineNr">243 </span> 89/<- %ecx 4/r32/esp <span id="L244" class="LineNr">244 </span> <span class="subxComment">#</span> <span id="L245" class="LineNr">245 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L246" class="LineNr">246 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-parse-decimal-int-from-slice-zero"</span>) +<span id="L246" class="LineNr">246 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-parse-decimal-int-from-slice-zero"</span>) <span id="L247" class="LineNr">247 </span><span class="Constant">$test-parse-decimal-int-helper-zero:end</span>: <span id="L248" class="LineNr">248 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L249" class="LineNr">249 </span> 59/pop-to-ecx @@ -331,7 +331,7 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr">271 </span> 89/<- %ecx 4/r32/esp <span id="L272" class="LineNr">272 </span> <span class="subxComment">#</span> <span id="L273" class="LineNr">273 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L274" class="LineNr">274 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax -3 <span class="Constant">"F - test-parse-decimal-int-from-slice-negative"</span>) +<span id="L274" class="LineNr">274 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax -3 <span class="Constant">"F - test-parse-decimal-int-from-slice-negative"</span>) <span id="L275" class="LineNr">275 </span><span class="Constant">$test-parse-decimal-int-helper-negative:end</span>: <span id="L276" class="LineNr">276 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L277" class="LineNr">277 </span> 59/pop-to-ecx @@ -359,7 +359,7 @@ if ('onhashchange' in window) { <span id="L299" class="LineNr">299 </span> 89/<- %ecx 4/r32/esp <span id="L300" class="LineNr">300 </span> <span class="subxComment">#</span> <span id="L301" class="LineNr">301 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L302" class="LineNr">302 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax -0x20 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit-negative"</span>) <span class="subxComment"># -32 in hex</span> +<span id="L302" class="LineNr">302 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax -0x20 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit-negative"</span>) <span class="subxComment"># -32 in hex</span> <span id="L303" class="LineNr">303 </span><span class="Constant">$test-parse-decimal-int-helper-multi-digit-negative:end</span>: <span id="L304" class="LineNr">304 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L305" class="LineNr">305 </span> 59/pop-to-ecx @@ -427,7 +427,7 @@ if ('onhashchange' in window) { <span id="L367" class="LineNr">367 </span> 89/<- %ebp 4/r32/esp <span id="L368" class="LineNr">368 </span> <span class="subxComment">#</span> <span id="L369" class="LineNr">369 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> 0) <span class="subxComment"># => eax</span> -<span id="L370" class="LineNr">370 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-of-zero"</span>) +<span id="L370" class="LineNr">370 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-of-zero"</span>) <span id="L371" class="LineNr">371 </span><span class="Constant">$test-decimal-size-of-zero:end</span>: <span id="L372" class="LineNr">372 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L373" class="LineNr">373 </span> 89/<- %esp 5/r32/ebp @@ -440,7 +440,7 @@ if ('onhashchange' in window) { <span id="L380" class="LineNr">380 </span> 89/<- %ebp 4/r32/esp <span id="L381" class="LineNr">381 </span> <span class="subxComment">#</span> <span id="L382" class="LineNr">382 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> 4) <span class="subxComment"># => eax</span> -<span id="L383" class="LineNr">383 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-single-digit"</span>) +<span id="L383" class="LineNr">383 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-single-digit"</span>) <span id="L384" class="LineNr">384 </span><span class="Constant">$test-decimal-size-single-digit:end</span>: <span id="L385" class="LineNr">385 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L386" class="LineNr">386 </span> 89/<- %esp 5/r32/ebp @@ -453,7 +453,7 @@ if ('onhashchange' in window) { <span id="L393" class="LineNr">393 </span> 89/<- %ebp 4/r32/esp <span id="L394" class="LineNr">394 </span> <span class="subxComment">#</span> <span id="L395" class="LineNr">395 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> 0xa) <span class="subxComment"># => eax</span> -<span id="L396" class="LineNr">396 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-multi-digit"</span>) +<span id="L396" class="LineNr">396 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-multi-digit"</span>) <span id="L397" class="LineNr">397 </span><span class="Constant">$test-decimal-size-multi-digit:end</span>: <span id="L398" class="LineNr">398 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L399" class="LineNr">399 </span> 89/<- %esp 5/r32/ebp @@ -466,7 +466,7 @@ if ('onhashchange' in window) { <span id="L406" class="LineNr">406 </span> 89/<- %ebp 4/r32/esp <span id="L407" class="LineNr">407 </span> <span class="subxComment">#</span> <span id="L408" class="LineNr">408 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> -4) <span class="subxComment"># => eax</span> -<span id="L409" class="LineNr">409 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-single-digit-negative"</span>) +<span id="L409" class="LineNr">409 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-single-digit-negative"</span>) <span id="L410" class="LineNr">410 </span><span class="Constant">$test-decimal-size-single-digit-negative:end</span>: <span id="L411" class="LineNr">411 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L412" class="LineNr">412 </span> 89/<- %esp 5/r32/ebp @@ -479,7 +479,7 @@ if ('onhashchange' in window) { <span id="L419" class="LineNr">419 </span> 89/<- %ebp 4/r32/esp <span id="L420" class="LineNr">420 </span> <span class="subxComment">#</span> <span id="L421" class="LineNr">421 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> -0xa) <span class="subxComment"># => eax</span> -<span id="L422" class="LineNr">422 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-decimal-size-multi-digit-negative"</span>) +<span id="L422" class="LineNr">422 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-decimal-size-multi-digit-negative"</span>) <span id="L423" class="LineNr">423 </span><span class="Constant">$test-decimal-size-multi-digit-negative:end</span>: <span id="L424" class="LineNr">424 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L425" class="LineNr">425 </span> 89/<- %esp 5/r32/ebp @@ -536,19 +536,19 @@ if ('onhashchange' in window) { <span id="L476" class="LineNr">476 </span> 39/compare %ecx 2/r32/edx <span id="L477" class="LineNr">477 </span> 73/jump-if-addr>= $_parse-array-of-decimal-ints:break1/disp8 <span id="L478" class="LineNr">478 </span> <span class="subxComment"># curr = skip-chars-matching-in-slice(curr, end, ' ')</span> -<span id="L479" class="LineNr">479 </span> (<a href='124next-token.subx.html#L804'>skip-chars-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L479" class="LineNr">479 </span> (<a href='124next-token.subx.html#L651'>skip-chars-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> <span id="L480" class="LineNr">480 </span> 89/<- %ecx 0/r32/eax <span id="L481" class="LineNr">481 </span> <span class="subxComment"># if (curr >= end) break</span> <span id="L482" class="LineNr">482 </span> 39/compare %ecx 2/r32/edx <span id="L483" class="LineNr">483 </span> 73/jump-if-addr>= $_parse-array-of-decimal-ints:break1/disp8 <span id="L484" class="LineNr">484 </span> <span class="subxComment"># curr = skip-chars-not-matching-in-slice(curr, end, ' ')</span> -<span id="L485" class="LineNr">485 </span> (<a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L485" class="LineNr">485 </span> (<a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a> %ecx %edx 0x20) <span class="subxComment"># => eax</span> <span id="L486" class="LineNr">486 </span> 89/<- %ecx 0/r32/eax <span id="L487" class="LineNr">487 </span> <span class="subxComment"># size += 4</span> <span id="L488" class="LineNr">488 </span> 81 0/subop/add %ebx 4/imm32 <span id="L489" class="LineNr">489 </span> eb/jump $_parse-array-of-decimal-ints:loop1/disp8 <span id="L490" class="LineNr">490 </span><span class="Constant">$_parse-array-of-decimal-ints:break1</span>: -<span id="L491" class="LineNr">491 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) +<span id="L491" class="LineNr">491 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) <span id="L492" class="LineNr">492 </span><span class="Constant">$_parse-array-of-decimal-ints:pass2</span>: <span id="L493" class="LineNr">493 </span> <span class="subxComment"># var slice/edi: slice = {s->data, 0}</span> <span id="L494" class="LineNr">494 </span> 68/push 0/imm32/end @@ -557,20 +557,20 @@ if ('onhashchange' in window) { <span id="L497" class="LineNr">497 </span> 89/<- %edi 4/r32/esp <span id="L498" class="LineNr">498 </span> <span class="subxComment"># curr = lookup(out)->data</span> <span id="L499" class="LineNr">499 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L500" class="LineNr">500 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L500" class="LineNr">500 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L501" class="LineNr">501 </span> 8d/copy-address *(eax+4) 1/r32/ecx <span id="L502" class="LineNr">502 </span><span class="Constant">$_parse-array-of-decimal-ints:loop2</span>: <span id="L503" class="LineNr">503 </span> <span class="subxComment"># if (slice->start >= end) break</span> <span id="L504" class="LineNr">504 </span> 39/compare *edi 2/r32/edx <span id="L505" class="LineNr">505 </span> 73/jump-if-addr>= $_parse-array-of-decimal-ints:end/disp8 <span id="L506" class="LineNr">506 </span> <span class="subxComment"># slice->start = skip-chars-matching-in-slice(slice->start, end, ' ')</span> -<span id="L507" class="LineNr">507 </span> (<a href='124next-token.subx.html#L804'>skip-chars-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L507" class="LineNr">507 </span> (<a href='124next-token.subx.html#L651'>skip-chars-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> <span id="L508" class="LineNr">508 </span> 89/<- *edi 0/r32/eax <span id="L509" class="LineNr">509 </span> <span class="subxComment"># if (slice->start >= end) break</span> <span id="L510" class="LineNr">510 </span> 39/compare *edi 2/r32/edx <span id="L511" class="LineNr">511 </span> 73/jump-if-addr>= $_parse-array-of-decimal-ints:end/disp8 <span id="L512" class="LineNr">512 </span> <span class="subxComment"># slice->end = skip-chars-not-matching-in-slice(slice->start, end, ' ')</span> -<span id="L513" class="LineNr">513 </span> (<a href='124next-token.subx.html#L973'>skip-chars-not-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> +<span id="L513" class="LineNr">513 </span> (<a href='124next-token.subx.html#L820'>skip-chars-not-matching-in-slice</a> *edi %edx 0x20) <span class="subxComment"># => eax</span> <span id="L514" class="LineNr">514 </span> 89/<- *(edi+4) 0/r32/eax <span id="L515" class="LineNr">515 </span> <span class="subxComment"># *curr = parse-hex-int-from-slice(slice)</span> <span id="L516" class="LineNr">516 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %edi) @@ -612,9 +612,9 @@ if ('onhashchange' in window) { <span id="L552" class="LineNr">552 </span> 89/<- %ecx 4/r32/esp <span id="L553" class="LineNr">553 </span> <span class="subxComment">#</span> <span id="L554" class="LineNr">554 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"1 2 3"</span> %esi) -<span id="L555" class="LineNr">555 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L555" class="LineNr">555 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L556" class="LineNr">556 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L557" class="LineNr">557 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints"</span>) +<span id="L557" class="LineNr">557 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints"</span>) <span id="L558" class="LineNr">558 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L559" class="LineNr">559 </span> 89/<- %esp 5/r32/ebp <span id="L560" class="LineNr">560 </span> 5d/pop-to-ebp @@ -631,8 +631,8 @@ if ('onhashchange' in window) { <span id="L571" class="LineNr">571 </span> 89/<- %esi 4/r32/esp <span id="L572" class="LineNr">572 </span> <span class="subxComment">#</span> <span id="L573" class="LineNr">573 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">""</span> %esi) -<span id="L574" class="LineNr">574 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L575" class="LineNr">575 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-empty"</span>) +<span id="L574" class="LineNr">574 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L575" class="LineNr">575 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-empty"</span>) <span id="L576" class="LineNr">576 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L577" class="LineNr">577 </span> 89/<- %esp 5/r32/ebp <span id="L578" class="LineNr">578 </span> 5d/pop-to-ebp @@ -648,9 +648,9 @@ if ('onhashchange' in window) { <span id="L588" class="LineNr">588 </span> 68/push 0/imm32 <span id="L589" class="LineNr">589 </span> 89/<- %esi 4/r32/esp <span id="L590" class="LineNr">590 </span> <span class="subxComment">#</span> -<span id="L591" class="LineNr">591 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span> %esi) -<span id="L592" class="LineNr">592 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L593" class="LineNr">593 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-just-whitespace"</span>) +<span id="L591" class="LineNr">591 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='301array-equal.subx.html#L428'>Space</a></span> %esi) +<span id="L592" class="LineNr">592 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L593" class="LineNr">593 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-just-whitespace"</span>) <span id="L594" class="LineNr">594 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L595" class="LineNr">595 </span> 89/<- %esp 5/r32/ebp <span id="L596" class="LineNr">596 </span> 5d/pop-to-ebp @@ -672,9 +672,9 @@ if ('onhashchange' in window) { <span id="L612" class="LineNr">612 </span> 89/<- %ecx 4/r32/esp <span id="L613" class="LineNr">613 </span> <span class="subxComment">#</span> <span id="L614" class="LineNr">614 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">" 1 2 3 "</span> %esi) -<span id="L615" class="LineNr">615 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L615" class="LineNr">615 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L616" class="LineNr">616 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L617" class="LineNr">617 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints-extra-whitespace"</span>) +<span id="L617" class="LineNr">617 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints-extra-whitespace"</span>) <span id="L618" class="LineNr">618 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L619" class="LineNr">619 </span> 89/<- %esp 5/r32/ebp <span id="L620" class="LineNr">620 </span> 5d/pop-to-ebp @@ -691,7 +691,6 @@ if ('onhashchange' in window) { <span id="L631" class="LineNr">631 </span> 89/<- %esp 5/r32/ebp <span id="L632" class="LineNr">632 </span> 5d/pop-to-ebp <span id="L633" class="LineNr">633 </span> c3/return -<span id="L634" class="LineNr">634 </span> </pre> </body> </html> diff --git a/html/312copy.subx.html b/html/312copy.subx.html index 904f1e49..5a9f151b 100644 --- a/html/312copy.subx.html +++ b/html/312copy.subx.html @@ -14,10 +14,10 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -62,67 +62,12 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span> 55/push-ebp <span id="L6" class="LineNr"> 6 </span> 89/<- %ebp 4/r32/esp <span id="L7" class="LineNr"> 7 </span> <span class="subxComment">#</span> -<span id="L8" class="LineNr"> 8 </span> (<a href='120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) *(ebp+0xc)) +<span id="L8" class="LineNr"> 8 </span> (<a href='120allocate.subx.html#L669'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) *(ebp+0xc)) <span id="L9" class="LineNr"> 9 </span><span class="Constant">$copy-array-object:end</span>: <span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L11" class="LineNr">11 </span> 89/<- %esp 5/r32/ebp <span id="L12" class="LineNr">12 </span> 5d/pop-to-ebp <span id="L13" class="LineNr">13 </span> c3/return -<span id="L14" class="LineNr">14 </span> -<span id="L15" class="LineNr">15 </span><span class="subxComment"># create an independent copy of file src into dest</span> -<span id="L16" class="LineNr">16 </span><span class="subxComment"># there's no way to do this without knowing the filename</span> -<span id="L17" class="LineNr">17 </span><span class="subxFunction">copy-file</span>: <span class="subxComment"># src: (addr buffered-file), dest-ah: (addr handle buffered-file), filename: (addr array byte)</span> -<span id="L18" class="LineNr">18 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19" class="LineNr">19 </span> 55/push-ebp -<span id="L20" class="LineNr">20 </span> 89/<- %ebp 4/r32/esp -<span id="L21" class="LineNr">21 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22" class="LineNr">22 </span> 50/push-eax -<span id="L23" class="LineNr">23 </span> 51/push-ecx -<span id="L24" class="LineNr">24 </span> 52/push-edx -<span id="L25" class="LineNr">25 </span> 53/push-ebx -<span id="L26" class="LineNr">26 </span> 56/push-esi -<span id="L27" class="LineNr">27 </span> 57/push-edi -<span id="L28" class="LineNr">28 </span> <span class="subxComment"># esi = src</span> -<span id="L29" class="LineNr">29 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L30" class="LineNr">30 </span> <span class="subxComment"># var n/ecx: int = src->buffer->size + 16</span> -<span id="L31" class="LineNr">31 </span> 8b/-> *(esi+0xc) 0/r32/eax -<span id="L32" class="LineNr">32 </span> 05/add-to-eax 0x10/imm32 <span class="subxComment"># buffered-file fields before buffer contents</span> -<span id="L33" class="LineNr">33 </span> 89/<- %ecx 0/r32/eax -<span id="L34" class="LineNr">34 </span> <span class="subxComment">#</span> -<span id="L35" class="LineNr">35 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) -<span id="L36" class="LineNr">36 </span> <span class="subxComment"># var dest/edi: (addr buffered-file) = lookup(*dest-ah)</span> -<span id="L37" class="LineNr">37 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L38" class="LineNr">38 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L39" class="LineNr">39 </span> 89/<- %edi 0/r32/eax -<span id="L40" class="LineNr">40 </span> <span class="subxComment">#</span> -<span id="L41" class="LineNr">41 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %esi %edi %ecx) -<span id="L42" class="LineNr">42 </span> <span class="subxComment"># var offset/ecx: int = lseek(src->fd, 0, SEEK_CUR)</span> -<span id="L43" class="LineNr">43 </span> 8b/-> *esi 3/r32/ebx -<span id="L44" class="LineNr">44 </span> b9/copy-to-ecx 0/imm32/offset -<span id="L45" class="LineNr">45 </span> ba/copy-to-edx 1/imm32/whence:SEEK_CUR -<span id="L46" class="LineNr">46 </span> (syscall_lseek) -<span id="L47" class="LineNr">47 </span> 89/<- %ecx 0/r32/eax -<span id="L48" class="LineNr">48 </span> <span class="subxComment"># at this point dest is identical to src, including file descriptor. Now</span> -<span id="L49" class="LineNr">49 </span> <span class="subxComment"># create an independent copy of the file descriptor</span> -<span id="L50" class="LineNr">50 </span> (<a href='306files.subx.html#L43'>open-fd</a> *(ebp+0x10) 0) <span class="subxComment"># false => eax</span> -<span id="L51" class="LineNr">51 </span> 89/<- *edi 0/r32/eax -<span id="L52" class="LineNr">52 </span> <span class="subxComment"># replicate offset in the new fd</span> -<span id="L53" class="LineNr">53 </span> 89/<- %ebx 0/r32/eax <span class="subxComment"># fd</span> -<span id="L54" class="LineNr">54 </span> 51/push-ecx <span class="subxComment"># offset</span> -<span id="L55" class="LineNr">55 </span> ba/copy-to-edx 0/imm32/whence:SEEK_SET -<span id="L56" class="LineNr">56 </span> (syscall_lseek) -<span id="L57" class="LineNr">57 </span><span class="Constant">$copy-file:end</span>: -<span id="L58" class="LineNr">58 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L59" class="LineNr">59 </span> 5f/pop-to-edi -<span id="L60" class="LineNr">60 </span> 5e/pop-to-esi -<span id="L61" class="LineNr">61 </span> 5b/pop-to-ebx -<span id="L62" class="LineNr">62 </span> 5a/pop-to-edx -<span id="L63" class="LineNr">63 </span> 59/pop-to-ecx -<span id="L64" class="LineNr">64 </span> 58/pop-to-eax -<span id="L65" class="LineNr">65 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L66" class="LineNr">66 </span> 89/<- %esp 5/r32/ebp -<span id="L67" class="LineNr">67 </span> 5d/pop-to-ebp -<span id="L68" class="LineNr">68 </span> c3/return </pre> </body> </html> diff --git a/html/313index-bounds-check.subx.html b/html/313index-bounds-check.subx.html index 50c34ac6..d46abf05 100644 --- a/html/313index-bounds-check.subx.html +++ b/html/313index-bounds-check.subx.html @@ -15,12 +15,10 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } -.SpecialChar { color: #d70000; } -.subxMinorFunction { color: #875f5f; } +.LineNr { } .Constant { color: #008787; } +.subxMinorFunction { color: #875f5f; } --> </style> @@ -84,17 +82,17 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr">26 </span> 39/compare %eax 1/r32/ecx <span id="L27" class="LineNr">27 </span> 0f 82/jump-if-unsigned< $__check-mu-array-bounds:end/disp32 <span class="subxComment"># negative index should always abort</span> <span id="L28" class="LineNr">28 </span> <span class="subxComment"># abort if necessary</span> -<span id="L29" class="LineNr">29 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) -<span id="L30" class="LineNr">30 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) -<span id="L31" class="LineNr">31 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset "</span>) -<span id="L32" class="LineNr">32 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L33" class="LineNr">33 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" is too large for array '"</span>) -<span id="L34" class="LineNr">34 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) -<span id="L35" class="LineNr">35 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'\n"</span>) -<span id="L36" class="LineNr">36 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L37" class="LineNr">37 </span> <span class="subxComment"># exit(1)</span> -<span id="L38" class="LineNr">38 </span> bb/copy-to-ebx 1/imm32 -<span id="L39" class="LineNr">39 </span> e8/call syscall_exit/disp32 +<span id="L29" class="LineNr">29 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L30" class="LineNr">30 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L31" class="LineNr">31 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset "</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L32" class="LineNr">32 </span> (<a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L33" class="LineNr">33 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" is too large for array '"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L34" class="LineNr">34 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x18) 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L35" class="LineNr">35 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"'"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L36" class="LineNr">36 </span> { +<span id="L37" class="LineNr">37 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L38" class="LineNr">38 </span> } +<span id="L39" class="LineNr">39 </span> <span class="subxComment"># never gets here</span> <span id="L40" class="LineNr">40 </span><span class="Constant">$__check-mu-array-bounds:end</span>: <span id="L41" class="LineNr">41 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L42" class="LineNr">42 </span> 5a/pop-to-edx @@ -106,40 +104,16 @@ if ('onhashchange' in window) { <span id="L48" class="LineNr">48 </span> c3/return <span id="L49" class="LineNr">49 </span> <span id="L50" class="LineNr">50 </span><span class="subxMinorFunction">__check-mu-array-bounds:overflow</span>: -<span id="L51" class="LineNr">51 </span> <span class="subxComment"># "fn " function-name ": offset to array '" array-name "' overflowed 32 bits\n"</span> -<span id="L52" class="LineNr">52 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) -<span id="L53" class="LineNr">53 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) -<span id="L54" class="LineNr">54 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset to array '"</span>) -<span id="L55" class="LineNr">55 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) -<span id="L56" class="LineNr">56 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"' overflowed 32 bits\n"</span>) -<span id="L57" class="LineNr">57 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L58" class="LineNr">58 </span> <span class="subxComment"># exit(1)</span> -<span id="L59" class="LineNr">59 </span> bb/copy-to-ebx 1/imm32 -<span id="L60" class="LineNr">60 </span> e8/call syscall_exit/disp32 -<span id="L61" class="LineNr">61 </span> -<span id="L62" class="LineNr">62 </span><span class="subxComment"># potential alternative</span> -<span id="L63" class="LineNr">63 </span> -<span id="L64" class="LineNr">64 </span><span class="CommentedCode">#? __bounds-check: # msg: (addr array byte)</span> -<span id="L65" class="LineNr">65 </span><span class="CommentedCode">#? (write-buffered Stderr "abort: array bounds exceeded in fn ")</span> -<span id="L66" class="LineNr">66 </span><span class="CommentedCode">#? 8b/-> *(esp+4) 0/r32/eax # we're going to abort, so just clobber away</span> -<span id="L67" class="LineNr">67 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L68" class="LineNr">68 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L69" class="LineNr">69 </span><span class="CommentedCode">#? # exit(1)</span> -<span id="L70" class="LineNr">70 </span><span class="CommentedCode">#? bb/copy-to-ebx 1/imm32</span> -<span id="L71" class="LineNr">71 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> -<span id="L72" class="LineNr">72 </span> -<span id="L73" class="LineNr">73 </span><span class="subxComment"># to be called as follows:</span> -<span id="L74" class="LineNr">74 </span><span class="subxComment"># var/reg <- index arr/rega: (addr array T), idx/regi: int</span> -<span id="L75" class="LineNr">75 </span><span class="subxComment"># | if size-of(T) is 1, 2, 4 or 8</span> -<span id="L76" class="LineNr">76 </span><span class="subxComment"># => # temporarily save array size to reg to check bounds</span> -<span id="L77" class="LineNr">77 </span><span class="subxComment"># "8b/-> *" rega " " reg "/r32"</span> -<span id="L78" class="LineNr">78 </span><span class="subxComment"># "c1/shift 5/subop/right %" reg " " log2(size-of(T)) "/imm32"</span> -<span id="L79" class="LineNr">79 </span><span class="subxComment"># "3b/compare " reg "/r32 *" rega</span> -<span id="L80" class="LineNr">80 </span><span class="subxComment"># "68/push \"" function "\"/imm32" # pass function name to error message</span> -<span id="L81" class="LineNr">81 </span><span class="subxComment"># "0f 8d/jump-if->= __bounds_check/disp32"</span> -<span id="L82" class="LineNr">82 </span><span class="subxComment"># "81 0/subop/add %esp 4/imm32" # drop function name</span> -<span id="L83" class="LineNr">83 </span><span class="subxComment"># # actually save the index addr in reg</span> -<span id="L84" class="LineNr">84 </span><span class="subxComment"># "8d/copy-address *(" rega "+" regi "<<" log2(size-of(T)) "+4) " reg "/r32"</span> +<span id="L51" class="LineNr">51 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L52" class="LineNr">52 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L53" class="LineNr">53 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset to array '"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L54" class="LineNr">54 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"offset to array overflowed 32 bits"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L55" class="LineNr">55 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x18) 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L56" class="LineNr">56 </span> (<a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"' overflowed 32 bits"</span> 3 0) <span class="subxComment"># 3=cyan</span> +<span id="L57" class="LineNr">57 </span> { +<span id="L58" class="LineNr">58 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L59" class="LineNr">59 </span> } +<span id="L60" class="LineNr">60 </span> <span class="subxComment"># never gets here</span> </pre> </body> </html> diff --git a/html/314divide.subx.html b/html/314divide.subx.html index 6d30db6f..e2325dca 100644 --- a/html/314divide.subx.html +++ b/html/314divide.subx.html @@ -15,8 +15,8 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> diff --git a/html/400.mu.html b/html/400.mu.html index b0bca113..a8857327 100644 --- a/html/400.mu.html +++ b/html/400.mu.html @@ -14,10 +14,10 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } .Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -53,201 +53,92 @@ if ('onhashchange' in window) { <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/400.mu'>https://github.com/akkartik/mu/blob/main/400.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># The 4xx series is for primitives implemented in Mu.</span> -<span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Signatures for major SubX functions defined so far.</span> -<span id="L4" class="LineNr"> 4 </span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># autogenerated</span> -<span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> run-tests -<span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># init.linux</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># TODO: make this OS-specific</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># TODO: include result type at least, even if register args are too much</span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">sig</span> syscall_exit <span class="muComment"># status/ebx: int</span> -<span id="L12" class="LineNr"> 12 </span><span class="PreProc">sig</span> syscall_read <span class="muComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> -<span id="L13" class="LineNr"> 13 </span><span class="PreProc">sig</span> syscall_write <span class="muComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> -<span id="L14" class="LineNr"> 14 </span><span class="PreProc">sig</span> syscall_open <span class="muComment"># filename/ebx: (addr kernel-string), flags/ecx: int, dummy=0x180/edx -> fd-or-error/eax: int</span> -<span id="L15" class="LineNr"> 15 </span><span class="PreProc">sig</span> syscall_close <span class="muComment"># fd/ebx: int -> status/eax</span> -<span id="L16" class="LineNr"> 16 </span><span class="PreProc">sig</span> syscall_creat <span class="muComment"># filename/ebx: (addr kernel-string) -> fd-or-error/eax: int</span> -<span id="L17" class="LineNr"> 17 </span><span class="PreProc">sig</span> syscall_unlink <span class="muComment"># filename/ebx: (addr kernel-string) -> status/eax: int</span> -<span id="L18" class="LineNr"> 18 </span><span class="PreProc">sig</span> syscall_rename <span class="muComment"># source/ebx: (addr kernel-string), dest/ecx: (addr kernel-string) -> status/eax: int</span> -<span id="L19" class="LineNr"> 19 </span><span class="PreProc">sig</span> syscall_mmap <span class="muComment"># arg/ebx: (addr mmap_arg_struct) -> status/eax: int</span> -<span id="L20" class="LineNr"> 20 </span><span class="PreProc">sig</span> syscall_ioctl <span class="muComment"># fd/ebx: int, cmd/ecx: int, arg/edx: (addr _)</span> -<span id="L21" class="LineNr"> 21 </span><span class="PreProc">sig</span> syscall_nanosleep <span class="muComment"># req/ebx: (addr timespec)</span> -<span id="L22" class="LineNr"> 22 </span><span class="PreProc">sig</span> syscall_clock_gettime <span class="muComment"># clock/ebx: int, out/ecx: (addr timespec)</span> -<span id="L23" class="LineNr"> 23 </span> -<span id="L24" class="LineNr"> 24 </span><span class="muComment"># Generated using:</span> -<span id="L25" class="LineNr"> 25 </span><span class="muComment"># grep -h '^[a-z]' [0-9]*.subx |grep -v '^test-'</span> -<span id="L26" class="LineNr"> 26 </span><span class="muComment"># Functions we don't want to make accessible from Mu are commented out.</span> -<span id="L27" class="LineNr"> 27 </span><span class="muComment"># Many functions here may not be usable yet because of missing features</span> -<span id="L28" class="LineNr"> 28 </span><span class="muComment"># (global variable support, etc.)</span> -<span id="L29" class="LineNr"> 29 </span><span class="PreProc">sig</span> <a href='102test.subx.html#L23'>check-ints-equal</a> a: int, b: int, msg: (addr array byte) -<span id="L30" class="LineNr"> 30 </span><span class="PreProc">sig</span> <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> s: (addr kernel-string), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L31" class="LineNr"> 31 </span><span class="PreProc">sig</span> <a href='104new-segment.subx.html#L40'>new-segment</a> len: int, ad: (addr allocation-descriptor) -<span id="L32" class="LineNr"> 32 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L15'>string-equal?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L33" class="LineNr"> 33 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L57'>string-starts-with?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L34" class="LineNr"> 34 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) -<span id="L35" class="LineNr"> 35 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L17'>clear-stream</a> f: (addr stream _) -<span id="L36" class="LineNr"> 36 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L56'>rewind-stream</a> f: (addr stream _) -<span id="L37" class="LineNr"> 37 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L48'>initialize-trace-stream</a> n: int -<span id="L38" class="LineNr"> 38 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L86'>trace</a> line: (addr array byte) -<span id="L39" class="LineNr"> 39 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L253'>check-trace-contains</a> line: (addr string), msg: (addr string) -<span id="L40" class="LineNr"> 40 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L278'>check-trace-scans-to</a> line: (addr string), msg: (addr string) -<span id="L41" class="LineNr"> 41 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L309'>trace-scan</a> line: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L42" class="LineNr"> 42 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L561'>next-line-matches?</a> t: (addr stream byte), line: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L43" class="LineNr"> 43 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L737'>skip-next-line</a> t: (addr stream byte) -<span id="L44" class="LineNr"> 44 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L845'>clear-trace-stream</a> -<span id="L45" class="LineNr"> 45 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L24'>write</a> f: (addr stream byte), s: (addr array byte) <span class="muComment"># writing to file descriptor not supported; use buffered-file</span> -<span id="L46" class="LineNr"> 46 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L47" class="LineNr"> 47 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) -<span id="L48" class="LineNr"> 48 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L49" class="LineNr"> 49 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) -<span id="L50" class="LineNr"> 50 </span><span class="PreProc">sig</span> <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> ed: (addr exit-descriptor), nbytes: int -<span id="L51" class="LineNr"> 51 </span><span class="PreProc">sig</span> <a href='110stop.subx.html#L92'>stop</a> ed: (addr exit-descriptor), value: int -<span id="L52" class="LineNr"> 52 </span><span class="muComment">#sig read f: fd or (addr stream byte), s: (addr stream byte) -> _/eax: int</span> -<span id="L53" class="LineNr"> 53 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> f: (addr buffered-file)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L54" class="LineNr"> 54 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L273'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L55" class="LineNr"> 55 </span><span class="muComment">#sig write-stream f: fd or (addr stream byte), s: (addr stream byte)</span> -<span id="L56" class="LineNr"> 56 </span><span class="muComment">#sig error ed: (addr exit-descriptor), out: fd or (addr stream byte), msg: (addr array byte)</span> -<span id="L57" class="LineNr"> 57 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L33'>write-byte-buffered</a> f: (addr buffered-file), n: int -<span id="L58" class="LineNr"> 58 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L81'>flush</a> f: (addr buffered-file) -<span id="L59" class="LineNr"> 59 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L208'>append-byte</a> f: (addr stream byte), n: int -<span id="L60" class="LineNr"> 60 </span><span class="PreProc">sig</span> <a href='116write-buffered.subx.html#L8'>write-buffered</a> f: (addr buffered-file), msg: (addr array byte) -<span id="L61" class="LineNr"> 61 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> -<span id="L62" class="LineNr"> 62 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a> f: (addr stream byte), n: int -<span id="L63" class="LineNr"> 63 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L93'>write-byte-hex-buffered</a> f: (addr buffered-file), n: int -<span id="L64" class="LineNr"> 64 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> f: (addr stream byte), n: int -<span id="L65" class="LineNr"> 65 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a> f: (addr stream byte), n: int, bits: int -<span id="L66" class="LineNr"> 66 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> f: (addr buffered-file), n: int -<span id="L67" class="LineNr"> 67 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L319'>write-int32-hex-bits-buffered</a> f: (addr buffered-file), n: int, bits: int -<span id="L68" class="LineNr"> 68 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L69" class="LineNr"> 69 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L70" class="LineNr"> 70 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L71" class="LineNr"> 71 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L72" class="LineNr"> 72 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L73" class="LineNr"> 73 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> -<span id="L74" class="LineNr"> 74 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L23'>parse-decimal-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L75" class="LineNr"> 75 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L76" class="LineNr"> 76 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L77" class="LineNr"> 77 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L78" class="LineNr"> 78 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L79" class="LineNr"> 79 </span><span class="PreProc">sig</span> <a href='119error-byte.subx.html#L26'>error-byte</a> ed: (addr exit-descriptor), out: (addr buffered-file), msg: (addr array byte), n: byte -<span id="L80" class="LineNr"> 80 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L81" class="LineNr"> 81 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L82" class="LineNr"> 82 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L256'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (addr _T) -<span id="L83" class="LineNr"> 83 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L458'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L84" class="LineNr"> 84 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L489'>copy-handle</a> src: (handle _T), dest: (addr handle _T) -<span id="L85" class="LineNr"> 85 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> -<span id="L86" class="LineNr"> 86 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L87" class="LineNr"> 87 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L710'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) -<span id="L88" class="LineNr"> 88 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> -<span id="L89" class="LineNr"> 89 </span><span class="muComment">#sig new-stream ad: (addr allocation-descriptor), length: int, elemsize: int, out: (addr handle stream _)</span> -<span id="L90" class="LineNr"> 90 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L9'>read-line-buffered</a> f: (addr buffered-file), s: (addr stream byte) -<span id="L91" class="LineNr"> 91 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L218'>read-line</a> f: (addr stream byte), s: (addr stream byte) -<span id="L92" class="LineNr"> 92 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L93" class="LineNr"> 93 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L95" class="LineNr"> 95 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L908'>write-slice-buffered</a> out: (addr buffered-file), s: (addr slice) -<span id="L97" class="LineNr"> 97 </span><span class="muComment"># bad name alert</span> -<span id="L98" class="LineNr"> 98 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L1043'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) -<span id="L99" class="LineNr"> 99 </span><span class="PreProc">sig</span> <a href='315slice.subx.html#L5'>_slice-to-string</a> in: (addr slice), out: (addr handle array byte) -<span id="L100" class="LineNr">100 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L10'>next-token</a> in: (addr stream byte), delimiter: byte, out: (addr slice) -<span id="L101" class="LineNr">101 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L163'>next-token-from-slice</a> start: (addr byte), end: (addr byte), delimiter: byte, out: (addr slice) -<span id="L102" class="LineNr">102 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L341'>skip-chars-matching</a> in: (addr stream byte), delimiter: byte -<span id="L103" class="LineNr">103 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> in: (addr stream byte) -<span id="L104" class="LineNr">104 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a> in: (addr stream byte), delimiter: byte -<span id="L105" class="LineNr">105 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a> in: (addr stream byte) -<span id="L106" class="LineNr">106 </span><span class="muComment">#sig skip-chars-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> _/eax: (addr byte)</span> -<span id="L107" class="LineNr">107 </span><span class="muComment">#sig skip-chars-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> -<span id="L108" class="LineNr">108 </span><span class="muComment">#sig skip-chars-not-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> _/eax: (addr byte)</span> -<span id="L109" class="LineNr">109 </span><span class="muComment">#sig skip-chars-not-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> -<span id="L110" class="LineNr">110 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1171'>skip-string</a> line: (addr stream byte) -<span id="L111" class="LineNr">111 </span><span class="muComment">#sig skip-string-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> -<span id="L112" class="LineNr">112 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a> line: (addr stream byte) -<span id="L113" class="LineNr">113 </span><span class="muComment">#sig skip-until-close-paren-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> -<span id="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='125write-stream-data.subx.html#L11'>write-stream-data</a> f: (addr buffered-file), s: (addr stream byte) -<span id="L115" class="LineNr">115 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int -<span id="L116" class="LineNr">116 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L117" class="LineNr">117 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L118" class="LineNr">118 </span><span class="muComment"># bad name alert</span> -<span id="L119" class="LineNr">119 </span><span class="muComment"># next-word really tokenizes</span> -<span id="L120" class="LineNr">120 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> -<span id="L121" class="LineNr">121 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L11'>next-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># skips '#' comments</span> -<span id="L122" class="LineNr">122 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L306'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> -<span id="L123" class="LineNr">123 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L8'>has-metadata?</a> word: (addr slice), s: (addr string)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L124" class="LineNr">124 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L278'>is-valid-name?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L125" class="LineNr">125 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L535'>is-label?</a> word: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L126" class="LineNr">126 </span><span class="PreProc">sig</span> <a href='129emit-hex.subx.html#L7'>emit-hex</a> out: (addr buffered-file), n: int, width: int -<span id="L127" class="LineNr">127 </span><span class="PreProc">sig</span> <a href='130emit.subx.html#L10'>emit</a> out: (addr buffered-file), word: (addr slice), width: int -<span id="L128" class="LineNr">128 </span><span class="muComment">#sig get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, abort-message-prefix: (addr array byte) -> _/eax: (addr T)</span> -<span id="L129" class="LineNr">129 </span><span class="muComment">#sig get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, abort-message-prefix: (addr array byte) -> _/eax: (addr T)</span> -<span id="L130" class="LineNr">130 </span><span class="muComment">#sig get-or-insert table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, ad: (addr allocation-descriptor) -> _/eax: (addr T)</span> -<span id="L131" class="LineNr">131 </span><span class="muComment">#sig get-or-insert-handle table: (addr stream {(handle array byte), T}), key: (handle array byte), row-size: int -> _/eax: (addr T)</span> -<span id="L132" class="LineNr">132 </span><span class="muComment">#sig get-or-insert-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, ad: (addr allocation-descriptor) -> _/eax: (addr T)</span> -<span id="L133" class="LineNr">133 </span><span class="muComment">#sig get-or-stop table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int</span> -<span id="L134" class="LineNr">134 </span><span class="muComment">#sig get-slice-or-stop table: (addr stream {(handle array byte), _}), key: (addr slice), row-size: int</span> -<span id="L135" class="LineNr">135 </span><span class="muComment">#sig maybe-get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int -> _/eax: (addr T)</span> -<span id="L136" class="LineNr">136 </span><span class="muComment">#sig maybe-get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int -> _/eax: (addr T)</span> -<span id="L137" class="LineNr">137 </span><span class="PreProc">sig</span> <a href='132slurp.subx.html#L8'>slurp</a> f: (addr buffered-file), s: (addr stream byte) -<span id="L138" class="LineNr">138 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L11'>compute-width</a> word: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L139" class="LineNr">139 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L140" class="LineNr">140 </span><span class="PreProc">sig</span> <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a> out: (addr buffered-file), arr: (addr array byte) -<span id="L141" class="LineNr">141 </span><span class="PreProc">sig</span> <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a> line: (addr stream byte), out: (addr slice) -<span id="L142" class="LineNr">142 </span><span class="PreProc">sig</span> <a href='202write-int.subx.html#L8'>write-int</a> out: (addr stream byte), n: int -<span id="L143" class="LineNr">143 </span><span class="muComment">#sig clear-stack s: (addr stack)</span> -<span id="L144" class="LineNr">144 </span><span class="muComment">#sig push s: (addr stack), n: int</span> -<span id="L145" class="LineNr">145 </span><span class="muComment">#sig pop s: (addr stack) -> _/eax: int</span> -<span id="L146" class="LineNr">146 </span><span class="muComment">#sig top s: (addr stack) -> _/eax: int</span> -<span id="L147" class="LineNr">147 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L5'>array-equal?</a> a: (addr array int), b: (addr array int)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L148" class="LineNr">148 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> s: (addr array byte), out: (addr handle array int) -<span id="L149" class="LineNr">149 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> s: (addr array byte), out: (addr handle array int) -<span id="L150" class="LineNr">150 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) -<span id="L151" class="LineNr">151 </span><span class="muComment">#sig push-n-zero-bytes n: int</span> -<span id="L152" class="LineNr">152 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L7'>kernel-string-to-string</a> ad: (addr allocation-descriptor), in: (addr kernel-string), out: (addr handle array byte) -<span id="L153" class="LineNr">153 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L57'>kernel-string-length</a> in: (addr kernel-string)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L154" class="LineNr">154 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L6'>enable-screen-grid-mode</a> -<span id="L155" class="LineNr">155 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L24'>enable-screen-type-mode</a> -<span id="L156" class="LineNr">156 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L37'>real-screen-size</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int -<span id="L157" class="LineNr">157 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L75'>clear-real-screen</a> -<span id="L158" class="LineNr">158 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L91'>move-cursor-on-real-screen</a> row: int, column: int -<span id="L159" class="LineNr">159 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> s: (addr array byte) -<span id="L160" class="LineNr">160 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L134'>print-slice-to-real-screen</a> s: (addr slice) -<span id="L161" class="LineNr">161 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L147'>print-stream-to-real-screen</a> s: (addr stream byte) -<span id="L162" class="LineNr">162 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c: grapheme -<span id="L163" class="LineNr">163 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n: int -<span id="L164" class="LineNr">164 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L239'>print-int32-hex-bits-to-real-screen</a> n: int, bits: int -<span id="L165" class="LineNr">165 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> n: int -<span id="L166" class="LineNr">166 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L265'>write-int32-decimal-buffered</a> f: (addr buffered-file), n: int -<span id="L167" class="LineNr">167 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L289'>reset-formatting-on-real-screen</a> -<span id="L168" class="LineNr">168 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L304'>start-color-on-real-screen</a> fg: int, bg: int -<span id="L169" class="LineNr">169 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L339'>start-bold-on-real-screen</a> -<span id="L170" class="LineNr">170 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L352'>start-underline-on-real-screen</a> -<span id="L171" class="LineNr">171 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L365'>start-reverse-video-on-real-screen</a> -<span id="L172" class="LineNr">172 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L379'>start-blinking-on-real-screen</a> -<span id="L173" class="LineNr">173 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L392'>hide-cursor-on-real-screen</a> -<span id="L174" class="LineNr">174 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L405'>show-cursor-on-real-screen</a> -<span id="L175" class="LineNr">175 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L176" class="LineNr">176 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L177" class="LineNr">177 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L132'>read-key-from-real-keyboard</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme -<span id="L178" class="LineNr">178 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> out: (addr stream byte) -<span id="L179" class="LineNr">179 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L12'>open</a> filename: (addr array byte), write?: boolean, out: (addr handle buffered-file) -<span id="L180" class="LineNr">180 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L89'>populate-buffered-file-containing</a> contents: (addr array byte), out: (addr handle buffered-file) -<span id="L181" class="LineNr">181 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L135'>new-buffered-file</a> out: (addr handle buffered-file) -<span id="L182" class="LineNr">182 </span><span class="muComment">#sig size in: (addr array _) -> _/eax: int</span> -<span id="L183" class="LineNr">183 </span> -<span id="L184" class="LineNr">184 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L185" class="LineNr">185 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L186" class="LineNr">186 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> in: (addr stream _), out: (addr handle array _) -<span id="L187" class="LineNr">187 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) -<span id="L188" class="LineNr">188 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L160'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L189" class="LineNr">189 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L187'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L190" class="LineNr">190 </span> -<span id="L191" class="LineNr">191 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> -<span id="L192" class="LineNr">192 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L3'>copy-array-object</a> src: (addr array _), dest-ah: (addr handle array _) -<span id="L193" class="LineNr">193 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L17'>copy-file</a> src: (addr buffered-file), dest-ah: (addr handle buffered-file), filename: (addr array byte) -<span id="L194" class="LineNr">194 </span> -<span id="L195" class="LineNr">195 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># screen</span> +<span id="L2" class="LineNr"> 2 </span><span class="PreProc">sig</span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x: int, y: int, color: int +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L17'>draw-grapheme-on-real-screen</a> g: grapheme, x: int, y: int, color: int, background-color: int +<span id="L4" class="LineNr"> 4 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L96'>cursor-position-on-real-screen</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int +<span id="L5" class="LineNr"> 5 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L109'>set-cursor-position-on-real-screen</a> x: int, y: int +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L134'>draw-cursor-on-real-screen</a> g: grapheme +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># keyboard</span> +<span id="L9" class="LineNr"> 9 </span><span class="PreProc">sig</span> <a href='102keyboard.subx.html#L9'>read-key</a> kbd: (addr keyboard)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L10" class="LineNr">10 </span> +<span id="L11" class="LineNr">11 </span><span class="muComment"># disk</span> +<span id="L12" class="LineNr">12 </span><span class="PreProc">sig</span> load-first-sector-from-primary-bus-secondary-drive out: (addr stream byte) +<span id="L13" class="LineNr">13 </span><span class="PreProc">sig</span> store-first-sector-to-primary-bus-secondary-drive out: (addr stream byte) +<span id="L14" class="LineNr">14 </span> +<span id="L15" class="LineNr">15 </span><span class="muComment"># tests</span> +<span id="L16" class="LineNr">16 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L17" class="LineNr">17 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L17'>num-test-failures</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L18" class="LineNr">18 </span> +<span id="L19" class="LineNr">19 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L8'>string-equal?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L20" class="LineNr">20 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L50'>string-starts-with?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L21" class="LineNr">21 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) +<span id="L22" class="LineNr">22 </span> +<span id="L23" class="LineNr">23 </span><span class="muComment"># streams</span> +<span id="L24" class="LineNr">24 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L20'>clear-stream</a> f: (addr stream _) +<span id="L25" class="LineNr">25 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L59'>rewind-stream</a> f: (addr stream _) +<span id="L26" class="LineNr">26 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L27" class="LineNr">27 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) +<span id="L28" class="LineNr">28 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L29" class="LineNr">29 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) +<span id="L30" class="LineNr">30 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L11'>write</a> f: (addr stream byte), s: (addr array byte) +<span id="L31" class="LineNr">31 </span><span class="PreProc">sig</span> <a href='113write-stream.subx.html#L8'>write-stream</a> f: (addr stream byte), s: (addr stream byte) +<span id="L32" class="LineNr">32 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L13'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L33" class="LineNr">33 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L12'>append-byte</a> f: (addr stream byte), n: int <span class="muComment"># really just a byte, but I want to pass in literal numbers</span> +<span id="L34" class="LineNr">34 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> +<span id="L35" class="LineNr">35 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a> f: (addr stream byte), n: int <span class="muComment"># really just a byte, but I want to pass in literal numbers</span> +<span id="L36" class="LineNr">36 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> f: (addr stream byte), n: int +<span id="L37" class="LineNr">37 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L123'>write-int32-hex-bits</a> f: (addr stream byte), n: int, bits: int +<span id="L38" class="LineNr">38 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L39" class="LineNr">39 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L40" class="LineNr">40 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L41" class="LineNr">41 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L42" class="LineNr">42 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L43" class="LineNr">43 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> +<span id="L44" class="LineNr">44 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L23'>parse-decimal-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L45" class="LineNr">45 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L46" class="LineNr">46 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L47" class="LineNr">47 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L48" class="LineNr">48 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L49" class="LineNr">49 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L50" class="LineNr">50 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L51" class="LineNr">51 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L226'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (addr _T) +<span id="L52" class="LineNr">52 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L424'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L53" class="LineNr">53 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L455'>copy-handle</a> src: (handle _T), dest: (addr handle _T) +<span id="L54" class="LineNr">54 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L55" class="LineNr">55 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L56" class="LineNr">56 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L669'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) +<span id="L57" class="LineNr">57 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> +<span id="L58" class="LineNr">58 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L59" class="LineNr">59 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L60" class="LineNr">60 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L61" class="LineNr">61 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) +<span id="L62" class="LineNr">62 </span><span class="muComment"># bad name alert</span> +<span id="L63" class="LineNr">63 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L901'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) +<span id="L64" class="LineNr">64 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int +<span id="L65" class="LineNr">65 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L299'>decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L66" class="LineNr">66 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L398'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L67" class="LineNr">67 </span><span class="muComment"># bad name alert</span> +<span id="L68" class="LineNr">68 </span><span class="muComment"># next-word really tokenizes</span> +<span id="L69" class="LineNr">69 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> +<span id="L70" class="LineNr">70 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L11'>next-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># skips '#' comments</span> +<span id="L71" class="LineNr">71 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L306'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> +<span id="L72" class="LineNr">72 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L73" class="LineNr">73 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L74" class="LineNr">74 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L75" class="LineNr">75 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L76" class="LineNr">76 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L160'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L77" class="LineNr">77 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L187'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L78" class="LineNr">78 </span> +<span id="L79" class="LineNr">79 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> +<span id="L80" class="LineNr">80 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L3'>copy-array-object</a> src: (addr array _), dest-ah: (addr handle array _) +<span id="L81" class="LineNr">81 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L5'>array-equal?</a> a: (addr array int), b: (addr array int)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L82" class="LineNr">82 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> s: (addr array byte), out: (addr handle array int) +<span id="L83" class="LineNr">83 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> s: (addr array byte), out: (addr handle array int) +<span id="L84" class="LineNr">84 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) +<span id="L85" class="LineNr">85 </span> +<span id="L86" class="LineNr">86 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int </pre> </body> </html> diff --git a/html/403unicode.mu.html b/html/403unicode.mu.html index 06592d59..125c628b 100644 --- a/html/403unicode.mu.html +++ b/html/403unicode.mu.html @@ -14,15 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -80,380 +78,177 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr"> 20 </span><span class="muComment"># The day we want to support combining characters, this function will need to</span> <span id="L21" class="LineNr"> 21 </span><span class="muComment"># take multiple code points. Or something.</span> <span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L22'>to-grapheme</a></span> in: code-point<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy in -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> first/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy in +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> first/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L26" class="LineNr"> 26 </span> $to-grapheme:compute-length: <span class="Delimiter">{</span> <span id="L27" class="LineNr"> 27 </span> <span class="muComment"># single byte: just return it</span> <span id="L28" class="LineNr"> 28 </span> compare c, <span class="Constant">0x7f</span> <span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-></span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c <span id="L32" class="LineNr"> 32 </span> <span class="PreProc">return</span> g <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">}</span> <span id="L34" class="LineNr"> 34 </span> <span class="muComment"># 2 bytes</span> <span id="L35" class="LineNr"> 35 </span> compare c, <span class="Constant">0x7ff</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> <span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-></span> -<span id="L38" class="LineNr"> 38 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L39" class="LineNr"> 39 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xc0</span> +<span id="L38" class="LineNr"> 38 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L39" class="LineNr"> 39 </span> first <span class="Special"><-</span> copy <span class="Constant">0xc0</span> <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break</span> $to-grapheme:compute-length <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 3 bytes</span> <span id="L43" class="LineNr"> 43 </span> compare c, <span class="Constant">0xffff</span> <span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> <span id="L45" class="LineNr"> 45 </span> <span class="PreProc">break-if-></span> -<span id="L46" class="LineNr"> 46 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L47" class="LineNr"> 47 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> +<span id="L46" class="LineNr"> 46 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L47" class="LineNr"> 47 </span> first <span class="Special"><-</span> copy <span class="Constant">0xe0</span> <span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break</span> $to-grapheme:compute-length <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> <span id="L50" class="LineNr"> 50 </span> <span class="muComment"># 4 bytes</span> <span id="L51" class="LineNr"> 51 </span> compare c, <span class="Constant">0x1fffff</span> <span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> <span id="L53" class="LineNr"> 53 </span> <span class="PreProc">break-if-></span> -<span id="L54" class="LineNr"> 54 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">3</span> -<span id="L55" class="LineNr"> 55 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xf0</span> +<span id="L54" class="LineNr"> 54 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L55" class="LineNr"> 55 </span> first <span class="Special"><-</span> copy <span class="Constant">0xf0</span> <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break</span> $to-grapheme:compute-length <span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> <span id="L58" class="LineNr"> 58 </span> <span class="muComment"># more than 4 bytes: unsupported</span> -<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># TODO: print to stderr</span> +<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># TODO: print error message to stderr</span> <span id="L60" class="LineNr"> 60 </span> compare c, <span class="Constant">0x1fffff</span> <span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">{</span> <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">break-if-></span> -<span id="L63" class="LineNr"> 63 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"unsupported code point "</span> -<span id="L64" class="LineNr"> 64 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> c -<span id="L65" class="LineNr"> 65 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L67" class="LineNr"> 67 </span> syscall_exit -<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">}</span> -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">{</span> -<span id="L73" class="LineNr"> 73 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if-<=</span> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> tmp/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L76" class="LineNr"> 76 </span> tmp <span class="SpecialChar"><-</span> and <span class="Constant">0x3f</span> -<span id="L77" class="LineNr"> 77 </span> tmp <span class="SpecialChar"><-</span> or <span class="Constant">0x80</span> -<span id="L78" class="LineNr"> 78 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> -<span id="L79" class="LineNr"> 79 </span> result <span class="SpecialChar"><-</span> or tmp -<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># update loop state</span> -<span id="L81" class="LineNr"> 81 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">6</span> -<span id="L82" class="LineNr"> 82 </span> num-trailers <span class="SpecialChar"><-</span> decrement -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">loop</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># emit engine</span> -<span id="L86" class="LineNr"> 86 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> -<span id="L87" class="LineNr"> 87 </span> result <span class="SpecialChar"><-</span> or c -<span id="L88" class="LineNr"> 88 </span> result <span class="SpecialChar"><-</span> or first -<span id="L89" class="LineNr"> 89 </span> <span class="muComment">#</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> result -<span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> -<span id="L92" class="LineNr"> 92 </span> -<span id="L93" class="LineNr"> 93 </span><span class="muComment"># single-byte code point have identical graphemes</span> -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L94'>test-to-grapheme-single-byte</a></span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> in-int/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> compare in-int, <span class="Constant">0x7f</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-></span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy in-int -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L102" class="LineNr">102 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, in-int, <span class="Constant">"F - test-to-grapheme-single-byte"</span> -<span id="L103" class="LineNr">103 </span> in-int <span class="SpecialChar"><-</span> increment -<span id="L104" class="LineNr">104 </span> <span class="PreProc">loop</span> -<span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> -<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> -<span id="L107" class="LineNr">107 </span> -<span id="L108" class="LineNr">108 </span> <span class="muComment"># byte | byte | byte | byte</span> -<span id="L109" class="LineNr">109 </span><span class="muComment"># smallest 2-byte utf-8</span> -<span id="L110" class="LineNr">110 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L110'>test-to-grapheme-two-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x80</span> <span class="muComment"># 10 00-0000</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L114" class="LineNr">114 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80c2</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/2a"</span> <span class="muComment"># 110 0-0010 10 00-0000</span> -<span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> -<span id="L116" class="LineNr">116 </span> -<span id="L117" class="LineNr">117 </span><span class="muComment"># largest 2-byte utf-8</span> -<span id="L118" class="LineNr">118 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L118'>test-to-grapheme-two-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x7ff</span> <span class="muComment"># 1-1111 11-1111</span> -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L122" class="LineNr">122 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfdf</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/2b"</span> <span class="muComment"># 110 1-1111 10 11-1111</span> -<span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> -<span id="L124" class="LineNr">124 </span> -<span id="L125" class="LineNr">125 </span><span class="muComment"># smallest 3-byte utf-8</span> -<span id="L126" class="LineNr">126 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L126'>test-to-grapheme-three-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x800</span> <span class="muComment"># 10-0000 00-0000</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L130" class="LineNr">130 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80a0e0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/3a"</span> <span class="muComment"># 1110 0000 10 10-0000 10 00-0000</span> -<span id="L131" class="LineNr">131 </span><span class="Delimiter">}</span> -<span id="L132" class="LineNr">132 </span> -<span id="L133" class="LineNr">133 </span><span class="muComment"># largest 3-byte utf-8</span> -<span id="L134" class="LineNr">134 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L134'>test-to-grapheme-three-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0xffff</span> <span class="muComment"># 1111 11-1111 11-1111</span> -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L138" class="LineNr">138 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfef</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/3b"</span> <span class="muComment"># 1110 1111 10 11-1111 10 11-1111</span> -<span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> -<span id="L140" class="LineNr">140 </span> -<span id="L141" class="LineNr">141 </span><span class="muComment"># smallest 4-byte utf-8</span> -<span id="L142" class="LineNr">142 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L142'>test-to-grapheme-four-bytes-min</a></span> <span class="Delimiter">{</span> -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x10000</span> <span class="muComment"># 1-0000 00-0000 00-0000</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L146" class="LineNr">146 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x808090f0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/4a"</span> <span class="muComment"># 1111-0 000 10 01-0000 10 00-0000 10 00-0000</span> -<span id="L147" class="LineNr">147 </span><span class="Delimiter">}</span> -<span id="L148" class="LineNr">148 </span> -<span id="L149" class="LineNr">149 </span><span class="muComment"># largest 4-byte utf-8</span> -<span id="L150" class="LineNr">150 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L150'>test-to-grapheme-four-bytes-max</a></span> <span class="Delimiter">{</span> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x1fffff</span> <span class="muComment"># 111 11-1111 11-1111 11-1111</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy out -<span id="L154" class="LineNr">154 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfbff7</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/4b"</span> <span class="muComment"># 1111-0 111 10 11-1111 10 11-1111 10 11-1111</span> -<span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> -<span id="L156" class="LineNr">156 </span> -<span id="L157" class="LineNr">157 </span><span class="muComment"># read the next grapheme from a stream of bytes</span> -<span id="L158" class="LineNr">158 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L158'>read-grapheme</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L159" class="LineNr">159 </span> <span class="muComment"># if at eof, return EOF</span> -<span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> eof?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in -<span id="L162" class="LineNr">162 </span> compare eof?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">break-if-=</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">return</span> <span class="Constant">0xffffffff</span> -<span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in -<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L168" class="LineNr">168 </span> $read-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="muComment"># single byte: just return it</span> -<span id="L170" class="LineNr">170 </span> compare c, <span class="Constant">0xc0</span> -<span id="L171" class="LineNr">171 </span> <span class="Delimiter">{</span> -<span id="L172" class="LineNr">172 </span> <span class="PreProc">break-if->=</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> g -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> -<span id="L176" class="LineNr">176 </span> compare c, <span class="Constant">0xfe</span> -<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-<</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L180" class="LineNr">180 </span> <span class="PreProc">return</span> g -<span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> -<span id="L182" class="LineNr">182 </span> <span class="muComment"># 2 bytes</span> -<span id="L183" class="LineNr">183 </span> compare c, <span class="Constant">0xe0</span> -<span id="L184" class="LineNr">184 </span> <span class="Delimiter">{</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">break-if->=</span> -<span id="L186" class="LineNr">186 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> -<span id="L189" class="LineNr">189 </span> <span class="muComment"># 3 bytes</span> -<span id="L190" class="LineNr">190 </span> compare c, <span class="Constant">0xf0</span> -<span id="L191" class="LineNr">191 </span> <span class="Delimiter">{</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if->=</span> -<span id="L193" class="LineNr">193 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span> <span class="muComment"># 4 bytes</span> -<span id="L197" class="LineNr">197 </span> compare c, <span class="Constant">0xf8</span> -<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if->=</span> -<span id="L200" class="LineNr">200 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">3</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> -<span id="L203" class="LineNr">203 </span>$read-grapheme:abort: <span class="Delimiter">{</span> -<span id="L204" class="LineNr">204 </span> <span class="muComment"># TODO: print to stderr</span> -<span id="L205" class="LineNr">205 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L207" class="LineNr">207 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n -<span id="L208" class="LineNr">208 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L210" class="LineNr">210 </span> syscall_exit -<span id="L211" class="LineNr">211 </span> <span class="Delimiter">}</span> -<span id="L212" class="LineNr">212 </span> <span class="Delimiter">}</span> -<span id="L213" class="LineNr">213 </span> <span class="muComment"># prepend trailer bytes</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L216" class="LineNr">216 </span> <span class="Delimiter">{</span> -<span id="L217" class="LineNr">217 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L218" class="LineNr">218 </span> <span class="PreProc">break-if-<=</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy tmp -<span id="L221" class="LineNr">221 </span> tmp2 <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> tmp2, num-byte-shifts -<span id="L222" class="LineNr">222 </span> result <span class="SpecialChar"><-</span> or tmp2 -<span id="L223" class="LineNr">223 </span> <span class="muComment"># update loop state</span> -<span id="L224" class="LineNr">224 </span> num-byte-shifts <span class="SpecialChar"><-</span> increment -<span id="L225" class="LineNr">225 </span> num-trailers <span class="SpecialChar"><-</span> decrement -<span id="L226" class="LineNr">226 </span> <span class="PreProc">loop</span> -<span id="L227" class="LineNr">227 </span> <span class="Delimiter">}</span> -<span id="L228" class="LineNr">228 </span> <span class="PreProc">return</span> result -<span id="L229" class="LineNr">229 </span><span class="Delimiter">}</span> -<span id="L230" class="LineNr">230 </span> -<span id="L231" class="LineNr">231 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L231'>test-read-grapheme</a></span> <span class="Delimiter">{</span> -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x30</span>) -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s -<span id="L234" class="LineNr">234 </span> <a href='108write.subx.html#L24'>write</a> s2, <span class="Constant">"aΒc世d界e"</span> -<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L237" class="LineNr">237 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x61</span>, <span class="Constant">"F - test grapheme/0"</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L240" class="LineNr">240 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x92ce</span>, <span class="Constant">"F - test grapheme/1"</span> <span class="muComment"># greek capital letter beta</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L243" class="LineNr">243 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x63</span>, <span class="Constant">"F - test grapheme/2"</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L246" class="LineNr">246 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x96b8e4</span>, <span class="Constant">"F - test grapheme/3"</span> -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L249" class="LineNr">249 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x64</span>, <span class="Constant">"F - test grapheme/4"</span> -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L252" class="LineNr">252 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x8c95e7</span>, <span class="Constant">"F - test grapheme/5"</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L255" class="LineNr">255 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x65</span>, <span class="Constant">"F - test grapheme/6"</span> -<span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> -<span id="L257" class="LineNr">257 </span> -<span id="L258" class="LineNr">258 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L258'>read-grapheme-buffered</a></span> in: (addr buffered-file)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L261" class="LineNr">261 </span> $read-grapheme-buffered:compute-length: <span class="Delimiter">{</span> -<span id="L262" class="LineNr">262 </span> <span class="muComment"># single byte: just return it</span> -<span id="L263" class="LineNr">263 </span> compare c, <span class="Constant">0xc0</span> -<span id="L264" class="LineNr">264 </span> <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">break-if->=</span> -<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L267" class="LineNr">267 </span> <span class="PreProc">return</span> g -<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> -<span id="L269" class="LineNr">269 </span> compare c, <span class="Constant">0xfe</span> -<span id="L270" class="LineNr">270 </span> <span class="Delimiter">{</span> -<span id="L271" class="LineNr">271 </span> <span class="PreProc">break-if-<</span> -<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L273" class="LineNr">273 </span> <span class="PreProc">return</span> g -<span id="L274" class="LineNr">274 </span> <span class="Delimiter">}</span> -<span id="L275" class="LineNr">275 </span> <span class="muComment"># 2 bytes</span> -<span id="L276" class="LineNr">276 </span> compare c, <span class="Constant">0xe0</span> -<span id="L277" class="LineNr">277 </span> <span class="Delimiter">{</span> -<span id="L278" class="LineNr">278 </span> <span class="PreProc">break-if->=</span> -<span id="L279" class="LineNr">279 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L280" class="LineNr">280 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length -<span id="L281" class="LineNr">281 </span> <span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> <span class="muComment"># 3 bytes</span> -<span id="L283" class="LineNr">283 </span> compare c, <span class="Constant">0xf0</span> -<span id="L284" class="LineNr">284 </span> <span class="Delimiter">{</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">break-if->=</span> -<span id="L286" class="LineNr">286 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L287" class="LineNr">287 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length -<span id="L288" class="LineNr">288 </span> <span class="Delimiter">}</span> -<span id="L289" class="LineNr">289 </span> <span class="muComment"># 4 bytes</span> -<span id="L290" class="LineNr">290 </span> compare c, <span class="Constant">0xf8</span> -<span id="L291" class="LineNr">291 </span> <span class="Delimiter">{</span> -<span id="L292" class="LineNr">292 </span> <span class="PreProc">break-if->=</span> -<span id="L293" class="LineNr">293 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">3</span> -<span id="L294" class="LineNr">294 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length -<span id="L295" class="LineNr">295 </span> <span class="Delimiter">}</span> -<span id="L296" class="LineNr">296 </span>$read-grapheme-buffered:abort: <span class="Delimiter">{</span> -<span id="L297" class="LineNr">297 </span> <span class="muComment"># TODO: print to stderr</span> -<span id="L298" class="LineNr">298 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> -<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L300" class="LineNr">300 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n -<span id="L301" class="LineNr">301 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L303" class="LineNr">303 </span> syscall_exit -<span id="L304" class="LineNr">304 </span> <span class="Delimiter">}</span> -<span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> -<span id="L306" class="LineNr">306 </span> <span class="muComment"># prepend trailer bytes</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L309" class="LineNr">309 </span> <span class="Delimiter">{</span> -<span id="L310" class="LineNr">310 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L311" class="LineNr">311 </span> <span class="PreProc">break-if-<=</span> -<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in -<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy tmp -<span id="L314" class="LineNr">314 </span> tmp2 <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> tmp2, num-byte-shifts -<span id="L315" class="LineNr">315 </span> result <span class="SpecialChar"><-</span> or tmp2 -<span id="L316" class="LineNr">316 </span> <span class="muComment"># update loop state</span> -<span id="L317" class="LineNr">317 </span> num-byte-shifts <span class="SpecialChar"><-</span> increment -<span id="L318" class="LineNr">318 </span> num-trailers <span class="SpecialChar"><-</span> decrement -<span id="L319" class="LineNr">319 </span> <span class="PreProc">loop</span> -<span id="L320" class="LineNr">320 </span> <span class="Delimiter">}</span> -<span id="L321" class="LineNr">321 </span> <span class="PreProc">return</span> result -<span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> -<span id="L323" class="LineNr">323 </span> -<span id="L324" class="LineNr">324 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> -<span id="L325" class="LineNr">325 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L325'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L328" class="LineNr">328 </span> <span class="Delimiter">{</span> -<span id="L329" class="LineNr">329 </span> compare i, k -<span id="L330" class="LineNr">330 </span> <span class="PreProc">break-if->=</span> -<span id="L331" class="LineNr">331 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> -<span id="L332" class="LineNr">332 </span> <span class="PreProc">break-if->=</span> -<span id="L333" class="LineNr">333 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> -<span id="L334" class="LineNr">334 </span> i <span class="SpecialChar"><-</span> increment -<span id="L335" class="LineNr">335 </span> <span class="PreProc">loop</span> -<span id="L336" class="LineNr">336 </span> <span class="Delimiter">}</span> -<span id="L337" class="LineNr">337 </span> <span class="PreProc">return</span> result -<span id="L338" class="LineNr">338 </span><span class="Delimiter">}</span> -<span id="L339" class="LineNr">339 </span> -<span id="L340" class="LineNr">340 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L340'>test-shift-left-bytes-0</a></span> <span class="Delimiter">{</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">0</span> -<span id="L342" class="LineNr">342 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 0"</span> -<span id="L343" class="LineNr">343 </span><span class="Delimiter">}</span> -<span id="L344" class="LineNr">344 </span> -<span id="L345" class="LineNr">345 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L345'>test-shift-left-bytes-1</a></span> <span class="Delimiter">{</span> -<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L347" class="LineNr">347 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x100</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 1"</span> -<span id="L348" class="LineNr">348 </span><span class="Delimiter">}</span> -<span id="L349" class="LineNr">349 </span> -<span id="L350" class="LineNr">350 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L350'>test-shift-left-bytes-2</a></span> <span class="Delimiter">{</span> -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">2</span> -<span id="L352" class="LineNr">352 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x10000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 2"</span> -<span id="L353" class="LineNr">353 </span><span class="Delimiter">}</span> -<span id="L354" class="LineNr">354 </span> -<span id="L355" class="LineNr">355 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L355'>test-shift-left-bytes-3</a></span> <span class="Delimiter">{</span> -<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">3</span> -<span id="L357" class="LineNr">357 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x1000000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 3"</span> -<span id="L358" class="LineNr">358 </span><span class="Delimiter">}</span> -<span id="L359" class="LineNr">359 </span> -<span id="L360" class="LineNr">360 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L360'>test-shift-left-bytes-4</a></span> <span class="Delimiter">{</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L362" class="LineNr">362 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 4"</span> -<span id="L363" class="LineNr">363 </span><span class="Delimiter">}</span> -<span id="L364" class="LineNr">364 </span> -<span id="L365" class="LineNr">365 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L365'>test-shift-left-bytes-5</a></span> <span class="Delimiter">{</span> -<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">5</span> -<span id="L367" class="LineNr">367 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> >4"</span> -<span id="L368" class="LineNr">368 </span><span class="Delimiter">}</span> -<span id="L369" class="LineNr">369 </span> -<span id="L370" class="LineNr">370 </span><span class="muComment"># To run all tests, uncomment this and run:</span> -<span id="L371" class="LineNr">371 </span><span class="muComment"># $ ./translate_mu && ./a.elf</span> -<span id="L372" class="LineNr">372 </span><span class="CommentedCode">#? fn main -> _/ebx: int {</span> -<span id="L373" class="LineNr">373 </span><span class="CommentedCode">#? run-tests</span> -<span id="L374" class="LineNr">374 </span><span class="CommentedCode">#? r <- copy 0</span> -<span id="L375" class="LineNr">375 </span><span class="CommentedCode">#? }</span> -<span id="L376" class="LineNr">376 </span> -<span id="L377" class="LineNr">377 </span><span class="muComment"># write a grapheme to a stream of bytes</span> -<span id="L378" class="LineNr">378 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> -<span id="L379" class="LineNr">379 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L379'>write-grapheme</a></span> out: (addr stream byte), g: grapheme <span class="Delimiter">{</span> -<span id="L380" class="LineNr">380 </span>$write-grapheme:body: <span class="Delimiter">{</span> -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy g -<span id="L382" class="LineNr">382 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> -<span id="L383" class="LineNr">383 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> -<span id="L384" class="LineNr">384 </span> compare c, <span class="Constant">0</span> -<span id="L385" class="LineNr">385 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L386" class="LineNr">386 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c -<span id="L387" class="LineNr">387 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> -<span id="L388" class="LineNr">388 </span> compare c, <span class="Constant">0</span> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L390" class="LineNr">390 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c -<span id="L391" class="LineNr">391 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> -<span id="L392" class="LineNr">392 </span> compare c, <span class="Constant">0</span> -<span id="L393" class="LineNr">393 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L394" class="LineNr">394 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c -<span id="L395" class="LineNr">395 </span><span class="Delimiter">}</span> -<span id="L396" class="LineNr">396 </span><span class="Delimiter">}</span> +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">}</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> +<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> +<span id="L69" class="LineNr"> 69 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break-if-<=</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> tmp/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy c +<span id="L72" class="LineNr"> 72 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x3f</span> +<span id="L73" class="LineNr"> 73 </span> tmp <span class="Special"><-</span> or <span class="Constant">0x80</span> +<span id="L74" class="LineNr"> 74 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L75" class="LineNr"> 75 </span> result <span class="Special"><-</span> or tmp +<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># update loop state</span> +<span id="L77" class="LineNr"> 77 </span> c <span class="Special"><-</span> shift-right <span class="Constant">6</span> +<span id="L78" class="LineNr"> 78 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">loop</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">}</span> +<span id="L81" class="LineNr"> 81 </span> <span class="muComment"># emit engine</span> +<span id="L82" class="LineNr"> 82 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L83" class="LineNr"> 83 </span> result <span class="Special"><-</span> or c +<span id="L84" class="LineNr"> 84 </span> result <span class="Special"><-</span> or first +<span id="L85" class="LineNr"> 85 </span> <span class="muComment">#</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">return</span> result +<span id="L87" class="LineNr"> 87 </span><span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span> +<span id="L89" class="LineNr"> 89 </span><span class="muComment"># TODO: bring in tests once we have check-ints-equal</span> +<span id="L90" class="LineNr"> 90 </span> +<span id="L91" class="LineNr"> 91 </span><span class="muComment"># read the next grapheme from a stream of bytes</span> +<span id="L92" class="LineNr"> 92 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L92'>read-grapheme</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L93" class="LineNr"> 93 </span> <span class="muComment"># if at eof, return EOF</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> eof?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in +<span id="L96" class="LineNr"> 96 </span> compare eof?, <span class="Constant">0</span>/false +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break-if-=</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">return</span> <span class="Constant">0xffffffff</span> +<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L102" class="LineNr">102 </span> $read-grapheme:compute-length: <span class="Delimiter">{</span> +<span id="L103" class="LineNr">103 </span> <span class="muComment"># single byte: just return it</span> +<span id="L104" class="LineNr">104 </span> compare c, <span class="Constant">0xc0</span> +<span id="L105" class="LineNr">105 </span> <span class="Delimiter">{</span> +<span id="L106" class="LineNr">106 </span> <span class="PreProc">break-if->=</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L108" class="LineNr">108 </span> <span class="PreProc">return</span> g +<span id="L109" class="LineNr">109 </span> <span class="Delimiter">}</span> +<span id="L110" class="LineNr">110 </span> compare c, <span class="Constant">0xfe</span> +<span id="L111" class="LineNr">111 </span> <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">break-if-<</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> g +<span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> +<span id="L116" class="LineNr">116 </span> <span class="muComment"># 2 bytes</span> +<span id="L117" class="LineNr">117 </span> compare c, <span class="Constant">0xe0</span> +<span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">break-if->=</span> +<span id="L120" class="LineNr">120 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L121" class="LineNr">121 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> +<span id="L123" class="LineNr">123 </span> <span class="muComment"># 3 bytes</span> +<span id="L124" class="LineNr">124 </span> compare c, <span class="Constant">0xf0</span> +<span id="L125" class="LineNr">125 </span> <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">break-if->=</span> +<span id="L127" class="LineNr">127 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> +<span id="L130" class="LineNr">130 </span> <span class="muComment"># 4 bytes</span> +<span id="L131" class="LineNr">131 </span> compare c, <span class="Constant">0xf8</span> +<span id="L132" class="LineNr">132 </span> <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">break-if->=</span> +<span id="L134" class="LineNr">134 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L135" class="LineNr">135 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> +<span id="L137" class="LineNr">137 </span> <span class="muComment"># TODO: print error message</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> +<span id="L140" class="LineNr">140 </span> <span class="muComment"># prepend trailer bytes</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy c +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> +<span id="L144" class="LineNr">144 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">break-if-<=</span> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy tmp +<span id="L148" class="LineNr">148 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L159'>shift-left-bytes</a> tmp2, num-byte-shifts +<span id="L149" class="LineNr">149 </span> result <span class="Special"><-</span> or tmp2 +<span id="L150" class="LineNr">150 </span> <span class="muComment"># update loop state</span> +<span id="L151" class="LineNr">151 </span> num-byte-shifts <span class="Special"><-</span> increment +<span id="L152" class="LineNr">152 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L153" class="LineNr">153 </span> <span class="PreProc">loop</span> +<span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> +<span id="L155" class="LineNr">155 </span> <span class="PreProc">return</span> result +<span id="L156" class="LineNr">156 </span><span class="Delimiter">}</span> +<span id="L157" class="LineNr">157 </span> +<span id="L158" class="LineNr">158 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> +<span id="L159" class="LineNr">159 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L159'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy n +<span id="L162" class="LineNr">162 </span> <span class="Delimiter">{</span> +<span id="L163" class="LineNr">163 </span> compare i, k +<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if->=</span> +<span id="L165" class="LineNr">165 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">break-if->=</span> +<span id="L167" class="LineNr">167 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L168" class="LineNr">168 </span> i <span class="Special"><-</span> increment +<span id="L169" class="LineNr">169 </span> <span class="PreProc">loop</span> +<span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> +<span id="L171" class="LineNr">171 </span> <span class="PreProc">return</span> result +<span id="L172" class="LineNr">172 </span><span class="Delimiter">}</span> +<span id="L173" class="LineNr">173 </span> +<span id="L174" class="LineNr">174 </span><span class="muComment"># write a grapheme to a stream of bytes</span> +<span id="L175" class="LineNr">175 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> +<span id="L176" class="LineNr">176 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L176'>write-grapheme</a></span> out: (addr stream byte), g: grapheme <span class="Delimiter">{</span> +<span id="L177" class="LineNr">177 </span>$write-grapheme:body: <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L179" class="LineNr">179 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> +<span id="L180" class="LineNr">180 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L181" class="LineNr">181 </span> compare c, <span class="Constant">0</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L183" class="LineNr">183 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c +<span id="L184" class="LineNr">184 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L185" class="LineNr">185 </span> compare c, <span class="Constant">0</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L187" class="LineNr">187 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c +<span id="L188" class="LineNr">188 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L189" class="LineNr">189 </span> compare c, <span class="Constant">0</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L191" class="LineNr">191 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c +<span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> +<span id="L193" class="LineNr">193 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/405screen.mu.html b/html/405screen.mu.html deleted file mode 100644 index 7b5b4f42..00000000 --- a/html/405screen.mu.html +++ /dev/null @@ -1,1505 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 405screen.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/405screen.mu'>https://github.com/akkartik/mu/blob/main/405screen.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Wrappers for real screen primitives that can be passed a fake screen.</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># The tests here have been painstakingly validated against a real terminal</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># emulator. I believe functionality here is broadly portable across terminal</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># emulators.</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment">#</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Remember: fake screen co-ordinates are 1-based, just like in real terminal</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># emulators.</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">type</span> <a href='405screen.mu.html#L9'>screen</a> <span class="Delimiter">{</span> -<span id="L10" class="LineNr"> 10 </span> num-rows: int -<span id="L11" class="LineNr"> 11 </span> num-cols: int -<span id="L12" class="LineNr"> 12 </span> data: (handle array <a href='405screen.mu.html#L20'>screen-cell</a>) -<span id="L13" class="LineNr"> 13 </span> top-index: int <span class="muComment"># 0-indexed</span> -<span id="L14" class="LineNr"> 14 </span> cursor-row: int <span class="muComment"># 1-indexed</span> -<span id="L15" class="LineNr"> 15 </span> cursor-col: int <span class="muComment"># 1-indexed</span> -<span id="L16" class="LineNr"> 16 </span> cursor-hide?: boolean -<span id="L17" class="LineNr"> 17 </span> curr-attributes: <a href='405screen.mu.html#L20'>screen-cell</a> -<span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> -<span id="L19" class="LineNr"> 19 </span> -<span id="L20" class="LineNr"> 20 </span><span class="PreProc">type</span> <a href='405screen.mu.html#L20'>screen-cell</a> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> data: grapheme -<span id="L22" class="LineNr"> 22 </span> color: int -<span id="L23" class="LineNr"> 23 </span> background-color: int -<span id="L24" class="LineNr"> 24 </span> bold?: boolean -<span id="L25" class="LineNr"> 25 </span> underline?: boolean -<span id="L26" class="LineNr"> 26 </span> reverse?: boolean -<span id="L27" class="LineNr"> 27 </span> blink?: boolean -<span id="L28" class="LineNr"> 28 </span><span class="Delimiter">}</span> -<span id="L29" class="LineNr"> 29 </span> -<span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L30'>initialize-screen</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), nrows: int, ncols: int <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># screen->num-rows = nrows</span> -<span id="L35" class="LineNr"> 35 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows -<span id="L36" class="LineNr"> 36 </span> tmp <span class="SpecialChar"><-</span> copy nrows -<span id="L37" class="LineNr"> 37 </span> copy-to *dest, tmp -<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># screen->num-cols = ncols</span> -<span id="L39" class="LineNr"> 39 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols -<span id="L40" class="LineNr"> 40 </span> tmp <span class="SpecialChar"><-</span> copy ncols -<span id="L41" class="LineNr"> 41 </span> copy-to *dest, tmp -<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># screen->data = new screen-cell[nrows*ncols]</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Delimiter">{</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L45" class="LineNr"> 45 </span> tmp <span class="SpecialChar"><-</span> multiply nrows -<span id="L46" class="LineNr"> 46 </span> populate data-addr, tmp -<span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">}</span> -<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># screen->cursor-row = 1</span> -<span id="L49" class="LineNr"> 49 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row -<span id="L50" class="LineNr"> 50 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># screen->cursor-col = 1</span> -<span id="L52" class="LineNr"> 52 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col -<span id="L53" class="LineNr"> 53 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># screen->curr-attributes->background-color = 7 (simulate light background)</span> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L56" class="LineNr"> 56 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> tmp2, background-color -<span id="L57" class="LineNr"> 57 </span> copy-to *dest, <span class="Constant">7</span> -<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> -<span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L60'>screen-size</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L63" class="LineNr"> 63 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">{</span> -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-!=</span> -<span id="L66" class="LineNr"> 66 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='304screen.subx.html#L37'>real-screen-size</a> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">return</span> nrows, ncols -<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> -<span id="L69" class="LineNr"> 69 </span> <span class="muComment"># fake screen</span> -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows -<span id="L72" class="LineNr"> 72 </span> nrows <span class="SpecialChar"><-</span> copy *tmp -<span id="L73" class="LineNr"> 73 </span> tmp <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols -<span id="L74" class="LineNr"> 74 </span> ncols <span class="SpecialChar"><-</span> copy *tmp -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">return</span> nrows, ncols -<span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> -<span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L78'>clear-screen</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-!=</span> -<span id="L82" class="LineNr"> 82 </span> <a href='304screen.subx.html#L75'>clear-real-screen</a> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">return</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># fake screen</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> space/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> -<span id="L87" class="LineNr"> 87 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows -<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> compare i, *nrows -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">break-if-></span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> j/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols -<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> compare j, *ncols -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-></span> -<span id="L99" class="LineNr"> 99 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, space -<span id="L100" class="LineNr"> 100 </span> j <span class="SpecialChar"><-</span> increment -<span id="L101" class="LineNr"> 101 </span> <span class="PreProc">loop</span> -<span id="L102" class="LineNr"> 102 </span> <span class="Delimiter">}</span> -<span id="L103" class="LineNr"> 103 </span> i <span class="SpecialChar"><-</span> increment -<span id="L104" class="LineNr"> 104 </span> <span class="PreProc">loop</span> -<span id="L105" class="LineNr"> 105 </span> <span class="Delimiter">}</span> -<span id="L106" class="LineNr"> 106 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L107" class="LineNr"> 107 </span><span class="Delimiter">}</span> -<span id="L108" class="LineNr"> 108 </span> -<span id="L109" class="LineNr"> 109 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L109'>move-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, column: int <span class="Delimiter">{</span> -<span id="L110" class="LineNr"> 110 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L111" class="LineNr"> 111 </span> <span class="Delimiter">{</span> -<span id="L112" class="LineNr"> 112 </span> <span class="PreProc">break-if-!=</span> -<span id="L113" class="LineNr"> 113 </span> <a href='304screen.subx.html#L91'>move-cursor-on-real-screen</a> row, column -<span id="L114" class="LineNr"> 114 </span> <span class="PreProc">return</span> -<span id="L115" class="LineNr"> 115 </span> <span class="Delimiter">}</span> -<span id="L116" class="LineNr"> 116 </span> <span class="muComment"># fake screen</span> -<span id="L117" class="LineNr"> 117 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L118" class="LineNr"> 118 </span> <span class="muComment"># row < 0 is ignored</span> -<span id="L119" class="LineNr"> 119 </span> <span class="Delimiter">{</span> -<span id="L120" class="LineNr"> 120 </span> compare row, <span class="Constant">0</span> -<span id="L121" class="LineNr"> 121 </span> <span class="PreProc">break-if->=</span> -<span id="L122" class="LineNr"> 122 </span> <span class="PreProc">return</span> -<span id="L123" class="LineNr"> 123 </span> <span class="Delimiter">}</span> -<span id="L124" class="LineNr"> 124 </span> <span class="muComment"># row = 0 is treated same as 1</span> -<span id="L125" class="LineNr"> 125 </span> <span class="Delimiter">{</span> -<span id="L126" class="LineNr"> 126 </span> compare row, <span class="Constant">0</span> -<span id="L127" class="LineNr"> 127 </span> <span class="PreProc">break-if-!=</span> -<span id="L128" class="LineNr"> 128 </span> copy-to row, <span class="Constant">1</span> -<span id="L129" class="LineNr"> 129 </span> <span class="Delimiter">}</span> -<span id="L130" class="LineNr"> 130 </span> <span class="muComment"># row > num-rows saturates to num-rows</span> -<span id="L131" class="LineNr"> 131 </span> <span class="Delimiter">{</span> -<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">var</span> nrows-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows -<span id="L133" class="LineNr"> 133 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *nrows-addr -<span id="L134" class="LineNr"> 134 </span> compare row, nrows -<span id="L135" class="LineNr"> 135 </span> <span class="PreProc">break-if-<=</span> -<span id="L136" class="LineNr"> 136 </span> copy-to row, nrows -<span id="L137" class="LineNr"> 137 </span> <span class="Delimiter">}</span> -<span id="L138" class="LineNr"> 138 </span> <span class="muComment"># column < 0 is ignored</span> -<span id="L139" class="LineNr"> 139 </span> <span class="Delimiter">{</span> -<span id="L140" class="LineNr"> 140 </span> compare column, <span class="Constant">0</span> -<span id="L141" class="LineNr"> 141 </span> <span class="PreProc">break-if->=</span> -<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">return</span> -<span id="L143" class="LineNr"> 143 </span> <span class="Delimiter">}</span> -<span id="L144" class="LineNr"> 144 </span> <span class="muComment"># column = 0 is treated same as 1</span> -<span id="L145" class="LineNr"> 145 </span> <span class="Delimiter">{</span> -<span id="L146" class="LineNr"> 146 </span> compare column, <span class="Constant">0</span> -<span id="L147" class="LineNr"> 147 </span> <span class="PreProc">break-if-!=</span> -<span id="L148" class="LineNr"> 148 </span> copy-to column, <span class="Constant">1</span> -<span id="L149" class="LineNr"> 149 </span> <span class="Delimiter">}</span> -<span id="L150" class="LineNr"> 150 </span> <span class="muComment"># column > num-cols saturates to num-cols+1 (so wrapping to next row)</span> -<span id="L151" class="LineNr"> 151 </span> <span class="Delimiter">{</span> -<span id="L152" class="LineNr"> 152 </span> <span class="PreProc">var</span> ncols-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols -<span id="L153" class="LineNr"> 153 </span> <span class="PreProc">var</span> ncols/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *ncols-addr -<span id="L154" class="LineNr"> 154 </span> compare column, ncols -<span id="L155" class="LineNr"> 155 </span> <span class="PreProc">break-if-<=</span> -<span id="L156" class="LineNr"> 156 </span> copy-to column, ncols -<span id="L157" class="LineNr"> 157 </span> increment column -<span id="L158" class="LineNr"> 158 </span> <span class="Delimiter">}</span> -<span id="L159" class="LineNr"> 159 </span> <span class="muComment"># screen->cursor-row = row</span> -<span id="L160" class="LineNr"> 160 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row -<span id="L161" class="LineNr"> 161 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy row -<span id="L162" class="LineNr"> 162 </span> copy-to *dest, src -<span id="L163" class="LineNr"> 163 </span> <span class="muComment"># screen->cursor-col = column</span> -<span id="L164" class="LineNr"> 164 </span> dest <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col -<span id="L165" class="LineNr"> 165 </span> src <span class="SpecialChar"><-</span> copy column -<span id="L166" class="LineNr"> 166 </span> copy-to *dest, src -<span id="L167" class="LineNr"> 167 </span><span class="Delimiter">}</span> -<span id="L168" class="LineNr"> 168 </span> -<span id="L169" class="LineNr"> 169 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L169'>print-string</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L170" class="LineNr"> 170 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L171" class="LineNr"> 171 </span> <span class="Delimiter">{</span> -<span id="L172" class="LineNr"> 172 </span> <span class="PreProc">break-if-!=</span> -<span id="L173" class="LineNr"> 173 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> s -<span id="L174" class="LineNr"> 174 </span> <span class="PreProc">return</span> -<span id="L175" class="LineNr"> 175 </span> <span class="Delimiter">}</span> -<span id="L176" class="LineNr"> 176 </span> <span class="muComment"># fake screen</span> -<span id="L177" class="LineNr"> 177 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) -<span id="L178" class="LineNr"> 178 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s2 -<span id="L179" class="LineNr"> 179 </span> <a href='108write.subx.html#L24'>write</a> s2-addr, s -<span id="L180" class="LineNr"> 180 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L181" class="LineNr"> 181 </span> <span class="Delimiter">{</span> -<span id="L182" class="LineNr"> 182 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr -<span id="L183" class="LineNr"> 183 </span> compare done?, <span class="Constant">0</span> -<span id="L184" class="LineNr"> 184 </span> <span class="PreProc">break-if-!=</span> -<span id="L185" class="LineNr"> 185 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr -<span id="L186" class="LineNr"> 186 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g -<span id="L187" class="LineNr"> 187 </span> <span class="PreProc">loop</span> -<span id="L188" class="LineNr"> 188 </span> <span class="Delimiter">}</span> -<span id="L189" class="LineNr"> 189 </span><span class="Delimiter">}</span> -<span id="L190" class="LineNr"> 190 </span> -<span id="L191" class="LineNr"> 191 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L191'>print-array-of-ints-in-decimal</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), _a: (addr array int) <span class="Delimiter">{</span> -<span id="L192" class="LineNr"> 192 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _a -<span id="L193" class="LineNr"> 193 </span> <span class="PreProc">var</span> max/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length a -<span id="L194" class="LineNr"> 194 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L195" class="LineNr"> 195 </span> <span class="Delimiter">{</span> -<span id="L196" class="LineNr"> 196 </span> compare i, max -<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">break-if->=</span> -<span id="L198" class="LineNr"> 198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr"> 199 </span> compare i, <span class="Constant">0</span> -<span id="L200" class="LineNr"> 200 </span> <span class="PreProc">break-if-=</span> -<span id="L201" class="LineNr"> 201 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L202" class="LineNr"> 202 </span> <span class="Delimiter">}</span> -<span id="L203" class="LineNr"> 203 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> index a, i -<span id="L204" class="LineNr"> 204 </span> <a href='405screen.mu.html#L480'>print-int32-decimal</a> <a href='405screen.mu.html#L9'>screen</a>, *x -<span id="L205" class="LineNr"> 205 </span> i <span class="SpecialChar"><-</span> increment -<span id="L206" class="LineNr"> 206 </span> <span class="PreProc">loop</span> -<span id="L207" class="LineNr"> 207 </span> <span class="Delimiter">}</span> -<span id="L208" class="LineNr"> 208 </span><span class="Delimiter">}</span> -<span id="L209" class="LineNr"> 209 </span> -<span id="L210" class="LineNr"> 210 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L210'>print-grapheme</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), c: grapheme <span class="Delimiter">{</span> -<span id="L211" class="LineNr"> 211 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L212" class="LineNr"> 212 </span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">break-if-!=</span> -<span id="L214" class="LineNr"> 214 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c -<span id="L215" class="LineNr"> 215 </span> <span class="PreProc">return</span> -<span id="L216" class="LineNr"> 216 </span> <span class="Delimiter">}</span> -<span id="L217" class="LineNr"> 217 </span> <span class="muComment"># fake screen</span> -<span id="L218" class="LineNr"> 218 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L219" class="LineNr"> 219 </span> <span class="PreProc">var</span> cursor-col-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col -<span id="L220" class="LineNr"> 220 </span> <span class="muComment"># adjust cursor if necessary</span> -<span id="L221" class="LineNr"> 221 </span> <span class="muComment"># to avoid premature scrolling it's important to do this lazily, at the last possible time</span> -<span id="L222" class="LineNr"> 222 </span> <span class="Delimiter">{</span> -<span id="L223" class="LineNr"> 223 </span> <span class="muComment"># next row</span> -<span id="L224" class="LineNr"> 224 </span> <span class="PreProc">var</span> num-cols-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols -<span id="L225" class="LineNr"> 225 </span> <span class="PreProc">var</span> num-cols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *num-cols-addr -<span id="L226" class="LineNr"> 226 </span> compare *cursor-col-addr, num-cols -<span id="L227" class="LineNr"> 227 </span> <span class="PreProc">break-if-<=</span> -<span id="L228" class="LineNr"> 228 </span> copy-to *cursor-col-addr, <span class="Constant">1</span> -<span id="L229" class="LineNr"> 229 </span> <span class="PreProc">var</span> cursor-row-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row -<span id="L230" class="LineNr"> 230 </span> increment *cursor-row-addr -<span id="L231" class="LineNr"> 231 </span> <span class="muComment"># scroll</span> -<span id="L232" class="LineNr"> 232 </span> <span class="PreProc">var</span> num-rows-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows -<span id="L233" class="LineNr"> 233 </span> <span class="PreProc">var</span> num-rows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *num-rows-addr -<span id="L234" class="LineNr"> 234 </span> compare *cursor-row-addr, num-rows -<span id="L235" class="LineNr"> 235 </span> <span class="PreProc">break-if-<=</span> -<span id="L236" class="LineNr"> 236 </span> copy-to *cursor-row-addr, num-rows -<span id="L237" class="LineNr"> 237 </span> <span class="muComment"># if (top-index > data size) top-index = 0, otherwise top-index += num-cols</span> -<span id="L238" class="LineNr"> 238 </span> $print-grapheme:perform-scroll: <span class="Delimiter">{</span> -<span id="L239" class="LineNr"> 239 </span> <span class="PreProc">var</span> top-index-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, top-index -<span id="L240" class="LineNr"> 240 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L241" class="LineNr"> 241 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L242" class="LineNr"> 242 </span> <span class="PreProc">var</span> max-index/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> length data -<span id="L243" class="LineNr"> 243 </span> compare *top-index-addr, max-index -<span id="L244" class="LineNr"> 244 </span> <span class="Delimiter">{</span> -<span id="L245" class="LineNr"> 245 </span> <span class="PreProc">break-if->=</span> -<span id="L246" class="LineNr"> 246 </span> add-to *top-index-addr, num-cols -<span id="L247" class="LineNr"> 247 </span> <span class="PreProc">break</span> $print-grapheme:perform-scroll -<span id="L248" class="LineNr"> 248 </span> <span class="Delimiter">}</span> -<span id="L249" class="LineNr"> 249 </span> <span class="Delimiter">{</span> -<span id="L250" class="LineNr"> 250 </span> <span class="PreProc">break-if-<</span> -<span id="L251" class="LineNr"> 251 </span> copy-to *top-index-addr, <span class="Constant">0</span> -<span id="L252" class="LineNr"> 252 </span> <span class="Delimiter">}</span> -<span id="L253" class="LineNr"> 253 </span> <span class="Delimiter">}</span> -<span id="L254" class="LineNr"> 254 </span> <span class="Delimiter">}</span> -<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L273'>current-screen-cell-index</a> screen-addr -<span id="L256" class="LineNr"> 256 </span><span class="CommentedCode">#? print-string-to-real-screen "printing grapheme at screen index "</span> -<span id="L257" class="LineNr"> 257 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen idx</span> -<span id="L258" class="LineNr"> 258 </span><span class="CommentedCode">#? print-string-to-real-screen ": "</span> -<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L260" class="LineNr"> 260 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L262" class="LineNr"> 262 </span> <span class="PreProc">var</span> dest-cell/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> src-cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L264" class="LineNr"> 264 </span> copy-object src-cell, dest-cell -<span id="L265" class="LineNr"> 265 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> dest-cell, data -<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> c2/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L267" class="LineNr"> 267 </span><span class="CommentedCode">#? print-grapheme-to-real-screen c2</span> -<span id="L268" class="LineNr"> 268 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L269" class="LineNr"> 269 </span> copy-to *dest, c2 -<span id="L270" class="LineNr"> 270 </span> increment *cursor-col-addr -<span id="L271" class="LineNr"> 271 </span><span class="Delimiter">}</span> -<span id="L272" class="LineNr"> 272 </span> -<span id="L273" class="LineNr"> 273 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L273'>current-screen-cell-index</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L274" class="LineNr"> 274 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> cursor-row-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, cursor-row -<span id="L276" class="LineNr"> 276 </span> <span class="PreProc">var</span> cursor-col-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, cursor-col -<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, *cursor-row-addr, *cursor-col-addr -<span id="L278" class="LineNr"> 278 </span> <span class="PreProc">return</span> result -<span id="L279" class="LineNr"> 279 </span><span class="Delimiter">}</span> -<span id="L280" class="LineNr"> 280 </span> -<span id="L281" class="LineNr"> 281 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L281'>screen-cell-index</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L282" class="LineNr"> 282 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L283" class="LineNr"> 283 </span> <span class="PreProc">var</span> num-cols-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, num-cols -<span id="L284" class="LineNr"> 284 </span> <span class="PreProc">var</span> num-cols/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *num-cols-addr -<span id="L285" class="LineNr"> 285 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy row -<span id="L286" class="LineNr"> 286 </span> result <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> -<span id="L287" class="LineNr"> 287 </span> result <span class="SpecialChar"><-</span> multiply num-cols -<span id="L288" class="LineNr"> 288 </span> result <span class="SpecialChar"><-</span> add col -<span id="L289" class="LineNr"> 289 </span> result <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> -<span id="L290" class="LineNr"> 290 </span> <span class="muComment"># result = (result + top-index) % data length</span> -<span id="L291" class="LineNr"> 291 </span> <span class="PreProc">var</span> top-index-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, top-index -<span id="L292" class="LineNr"> 292 </span> result <span class="SpecialChar"><-</span> add *top-index-addr -<span id="L293" class="LineNr"> 293 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, data -<span id="L294" class="LineNr"> 294 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L295" class="LineNr"> 295 </span> <span class="PreProc">var</span> max-index/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> length data -<span id="L296" class="LineNr"> 296 </span> compare result, max-index -<span id="L297" class="LineNr"> 297 </span> <span class="Delimiter">{</span> -<span id="L298" class="LineNr"> 298 </span> <span class="PreProc">break-if-<</span> -<span id="L299" class="LineNr"> 299 </span> result <span class="SpecialChar"><-</span> subtract max-index -<span id="L300" class="LineNr"> 300 </span> <span class="Delimiter">}</span> -<span id="L301" class="LineNr"> 301 </span> <span class="PreProc">return</span> result -<span id="L302" class="LineNr"> 302 </span><span class="Delimiter">}</span> -<span id="L303" class="LineNr"> 303 </span> -<span id="L304" class="LineNr"> 304 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L304'>screen-grapheme-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L305" class="LineNr"> 305 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L306" class="LineNr"> 306 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> screen-addr, row, col -<span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> screen-addr, idx -<span id="L308" class="LineNr"> 308 </span> <span class="PreProc">return</span> result -<span id="L309" class="LineNr"> 309 </span><span class="Delimiter">}</span> -<span id="L310" class="LineNr"> 310 </span> -<span id="L311" class="LineNr"> 311 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L312" class="LineNr"> 312 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L314" class="LineNr"> 314 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L315" class="LineNr"> 315 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> cell, data -<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">return</span> *src -<span id="L320" class="LineNr"> 320 </span><span class="Delimiter">}</span> -<span id="L321" class="LineNr"> 321 </span> -<span id="L322" class="LineNr"> 322 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L322'>screen-color-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L323" class="LineNr"> 323 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L324" class="LineNr"> 324 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> screen-addr, row, col -<span id="L325" class="LineNr"> 325 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L329'>screen-color-at-idx</a> screen-addr, idx -<span id="L326" class="LineNr"> 326 </span> <span class="PreProc">return</span> result -<span id="L327" class="LineNr"> 327 </span><span class="Delimiter">}</span> -<span id="L328" class="LineNr"> 328 </span> -<span id="L329" class="LineNr"> 329 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L329'>screen-color-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L330" class="LineNr"> 330 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L332" class="LineNr"> 332 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L333" class="LineNr"> 333 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L335" class="LineNr"> 335 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L336" class="LineNr"> 336 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> cell, color -<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *src -<span id="L338" class="LineNr"> 338 </span> <span class="PreProc">return</span> result -<span id="L339" class="LineNr"> 339 </span><span class="Delimiter">}</span> -<span id="L340" class="LineNr"> 340 </span> -<span id="L341" class="LineNr"> 341 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L341'>screen-background-color-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L343" class="LineNr"> 343 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> screen-addr, row, col -<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L348'>screen-background-color-at-idx</a> screen-addr, idx -<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">return</span> result -<span id="L346" class="LineNr"> 346 </span><span class="Delimiter">}</span> -<span id="L347" class="LineNr"> 347 </span> -<span id="L348" class="LineNr"> 348 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L348'>screen-background-color-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L349" class="LineNr"> 349 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L350" class="LineNr"> 350 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L351" class="LineNr"> 351 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L352" class="LineNr"> 352 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L353" class="LineNr"> 353 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L354" class="LineNr"> 354 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L355" class="LineNr"> 355 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> cell, background-color -<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">return</span> *src -<span id="L357" class="LineNr"> 357 </span><span class="Delimiter">}</span> -<span id="L358" class="LineNr"> 358 </span> -<span id="L359" class="LineNr"> 359 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L359'>screen-bold-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L360" class="LineNr"> 360 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L361" class="LineNr"> 361 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> screen-addr, row, col -<span id="L362" class="LineNr"> 362 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L366'>screen-bold-at-idx?</a> screen-addr, idx -<span id="L363" class="LineNr"> 363 </span> <span class="PreProc">return</span> result -<span id="L364" class="LineNr"> 364 </span><span class="Delimiter">}</span> -<span id="L365" class="LineNr"> 365 </span> -<span id="L366" class="LineNr"> 366 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L366'>screen-bold-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L367" class="LineNr"> 367 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L369" class="LineNr"> 369 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L370" class="LineNr"> 370 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L372" class="LineNr"> 372 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L373" class="LineNr"> 373 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> cell, bold? -<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">return</span> *src -<span id="L375" class="LineNr"> 375 </span><span class="Delimiter">}</span> -<span id="L376" class="LineNr"> 376 </span> -<span id="L377" class="LineNr"> 377 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L377'>screen-underline-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L378" class="LineNr"> 378 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> screen-addr, row, col -<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L384'>screen-underline-at-idx?</a> screen-addr, idx -<span id="L381" class="LineNr"> 381 </span> <span class="PreProc">return</span> result -<span id="L382" class="LineNr"> 382 </span><span class="Delimiter">}</span> -<span id="L383" class="LineNr"> 383 </span> -<span id="L384" class="LineNr"> 384 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L384'>screen-underline-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L385" class="LineNr"> 385 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L386" class="LineNr"> 386 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L387" class="LineNr"> 387 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L388" class="LineNr"> 388 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L389" class="LineNr"> 389 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L390" class="LineNr"> 390 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L391" class="LineNr"> 391 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> cell, underline? -<span id="L392" class="LineNr"> 392 </span> <span class="PreProc">return</span> *src -<span id="L393" class="LineNr"> 393 </span><span class="Delimiter">}</span> -<span id="L394" class="LineNr"> 394 </span> -<span id="L395" class="LineNr"> 395 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L395'>screen-reverse-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L396" class="LineNr"> 396 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L397" class="LineNr"> 397 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> screen-addr, row, col -<span id="L398" class="LineNr"> 398 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L402'>screen-reverse-at-idx?</a> screen-addr, idx -<span id="L399" class="LineNr"> 399 </span> <span class="PreProc">return</span> result -<span id="L400" class="LineNr"> 400 </span><span class="Delimiter">}</span> -<span id="L401" class="LineNr"> 401 </span> -<span id="L402" class="LineNr"> 402 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L402'>screen-reverse-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L404" class="LineNr"> 404 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L405" class="LineNr"> 405 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L406" class="LineNr"> 406 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L407" class="LineNr"> 407 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L408" class="LineNr"> 408 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L409" class="LineNr"> 409 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> cell, reverse? -<span id="L410" class="LineNr"> 410 </span> <span class="PreProc">return</span> *src -<span id="L411" class="LineNr"> 411 </span><span class="Delimiter">}</span> -<span id="L412" class="LineNr"> 412 </span> -<span id="L413" class="LineNr"> 413 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L413'>screen-blink-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L414" class="LineNr"> 414 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L415" class="LineNr"> 415 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> screen-addr, row, col -<span id="L416" class="LineNr"> 416 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L420'>screen-blink-at-idx?</a> screen-addr, idx -<span id="L417" class="LineNr"> 417 </span> <span class="PreProc">return</span> result -<span id="L418" class="LineNr"> 418 </span><span class="Delimiter">}</span> -<span id="L419" class="LineNr"> 419 </span> -<span id="L420" class="LineNr"> 420 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L420'>screen-blink-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L421" class="LineNr"> 421 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L422" class="LineNr"> 422 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data -<span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L424" class="LineNr"> 424 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L425" class="LineNr"> 425 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L426" class="LineNr"> 426 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L427" class="LineNr"> 427 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> cell, blink? -<span id="L428" class="LineNr"> 428 </span> <span class="PreProc">return</span> *src -<span id="L429" class="LineNr"> 429 </span><span class="Delimiter">}</span> -<span id="L430" class="LineNr"> 430 </span> -<span id="L431" class="LineNr"> 431 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L431'>print-code-point</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), c: code-point <span class="Delimiter">{</span> -<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> c -<span id="L433" class="LineNr"> 433 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g -<span id="L434" class="LineNr"> 434 </span><span class="Delimiter">}</span> -<span id="L435" class="LineNr"> 435 </span> -<span id="L436" class="LineNr"> 436 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L436'>print-int32-hex</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int <span class="Delimiter">{</span> -<span id="L437" class="LineNr"> 437 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L438" class="LineNr"> 438 </span> <span class="Delimiter">{</span> -<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">break-if-!=</span> -<span id="L440" class="LineNr"> 440 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n -<span id="L441" class="LineNr"> 441 </span> <span class="PreProc">return</span> -<span id="L442" class="LineNr"> 442 </span> <span class="Delimiter">}</span> -<span id="L443" class="LineNr"> 443 </span> <span class="muComment"># fake screen</span> -<span id="L444" class="LineNr"> 444 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) -<span id="L445" class="LineNr"> 445 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s2 -<span id="L446" class="LineNr"> 446 </span> <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> s2-addr, n -<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L448" class="LineNr"> 448 </span> <span class="Delimiter">{</span> -<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr -<span id="L450" class="LineNr"> 450 </span> compare done?, <span class="Constant">0</span> -<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">break-if-!=</span> -<span id="L452" class="LineNr"> 452 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr -<span id="L453" class="LineNr"> 453 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g -<span id="L454" class="LineNr"> 454 </span> <span class="PreProc">loop</span> -<span id="L455" class="LineNr"> 455 </span> <span class="Delimiter">}</span> -<span id="L456" class="LineNr"> 456 </span><span class="Delimiter">}</span> -<span id="L457" class="LineNr"> 457 </span> -<span id="L458" class="LineNr"> 458 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L458'>print-int32-hex-bits</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int, bits: int <span class="Delimiter">{</span> -<span id="L459" class="LineNr"> 459 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L460" class="LineNr"> 460 </span> <span class="Delimiter">{</span> -<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">break-if-!=</span> -<span id="L462" class="LineNr"> 462 </span> <a href='304screen.subx.html#L239'>print-int32-hex-bits-to-real-screen</a> n, bits -<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">return</span> -<span id="L464" class="LineNr"> 464 </span> <span class="Delimiter">}</span> -<span id="L465" class="LineNr"> 465 </span> <span class="muComment"># fake screen</span> -<span id="L466" class="LineNr"> 466 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) -<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s2 -<span id="L468" class="LineNr"> 468 </span> <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a> s2-addr, n, bits -<span id="L469" class="LineNr"> 469 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L470" class="LineNr"> 470 </span> <span class="Delimiter">{</span> -<span id="L471" class="LineNr"> 471 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr -<span id="L472" class="LineNr"> 472 </span> compare done?, <span class="Constant">0</span> -<span id="L473" class="LineNr"> 473 </span> <span class="PreProc">break-if-!=</span> -<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr -<span id="L475" class="LineNr"> 475 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g -<span id="L476" class="LineNr"> 476 </span> <span class="PreProc">loop</span> -<span id="L477" class="LineNr"> 477 </span> <span class="Delimiter">}</span> -<span id="L478" class="LineNr"> 478 </span><span class="Delimiter">}</span> -<span id="L479" class="LineNr"> 479 </span> -<span id="L480" class="LineNr"> 480 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L480'>print-int32-decimal</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int <span class="Delimiter">{</span> -<span id="L481" class="LineNr"> 481 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L482" class="LineNr"> 482 </span> <span class="Delimiter">{</span> -<span id="L483" class="LineNr"> 483 </span> <span class="PreProc">break-if-!=</span> -<span id="L484" class="LineNr"> 484 </span> <a href='304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> n -<span id="L485" class="LineNr"> 485 </span> <span class="PreProc">return</span> -<span id="L486" class="LineNr"> 486 </span> <span class="Delimiter">}</span> -<span id="L487" class="LineNr"> 487 </span> <span class="muComment"># fake screen</span> -<span id="L488" class="LineNr"> 488 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) -<span id="L489" class="LineNr"> 489 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s2 -<span id="L490" class="LineNr"> 490 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> s2-addr, n -<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L492" class="LineNr"> 492 </span> <span class="Delimiter">{</span> -<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr -<span id="L494" class="LineNr"> 494 </span> compare done?, <span class="Constant">0</span> -<span id="L495" class="LineNr"> 495 </span> <span class="PreProc">break-if-!=</span> -<span id="L496" class="LineNr"> 496 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr -<span id="L497" class="LineNr"> 497 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g -<span id="L498" class="LineNr"> 498 </span> <span class="PreProc">loop</span> -<span id="L499" class="LineNr"> 499 </span> <span class="Delimiter">}</span> -<span id="L500" class="LineNr"> 500 </span><span class="Delimiter">}</span> -<span id="L501" class="LineNr"> 501 </span> -<span id="L502" class="LineNr"> 502 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L502'>reset-formatting</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L503" class="LineNr"> 503 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L504" class="LineNr"> 504 </span> <span class="Delimiter">{</span> -<span id="L505" class="LineNr"> 505 </span> <span class="PreProc">break-if-!=</span> -<span id="L506" class="LineNr"> 506 </span> <a href='304screen.subx.html#L289'>reset-formatting-on-real-screen</a> -<span id="L507" class="LineNr"> 507 </span> <span class="PreProc">return</span> -<span id="L508" class="LineNr"> 508 </span> <span class="Delimiter">}</span> -<span id="L509" class="LineNr"> 509 </span> <span class="muComment"># fake screen</span> -<span id="L510" class="LineNr"> 510 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L511" class="LineNr"> 511 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L512" class="LineNr"> 512 </span> <span class="PreProc">var</span> default-cell: <a href='405screen.mu.html#L20'>screen-cell</a> -<span id="L513" class="LineNr"> 513 </span> <span class="PreProc">var</span> bg/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> default-cell, background-color -<span id="L514" class="LineNr"> 514 </span> copy-to *bg, <span class="Constant">7</span> -<span id="L515" class="LineNr"> 515 </span> <span class="PreProc">var</span> default-cell-addr/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> address default-cell -<span id="L516" class="LineNr"> 516 </span> copy-object default-cell-addr, dest -<span id="L517" class="LineNr"> 517 </span><span class="Delimiter">}</span> -<span id="L518" class="LineNr"> 518 </span> -<span id="L519" class="LineNr"> 519 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L519'>start-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, bg: int <span class="Delimiter">{</span> -<span id="L520" class="LineNr"> 520 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L521" class="LineNr"> 521 </span> <span class="Delimiter">{</span> -<span id="L522" class="LineNr"> 522 </span> <span class="PreProc">break-if-!=</span> -<span id="L523" class="LineNr"> 523 </span> <a href='304screen.subx.html#L304'>start-color-on-real-screen</a> fg, bg -<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">return</span> -<span id="L525" class="LineNr"> 525 </span> <span class="Delimiter">}</span> -<span id="L526" class="LineNr"> 526 </span> <span class="muComment"># fake screen</span> -<span id="L527" class="LineNr"> 527 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L528" class="LineNr"> 528 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, color -<span id="L530" class="LineNr"> 530 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy fg -<span id="L531" class="LineNr"> 531 </span> copy-to *dest, src -<span id="L532" class="LineNr"> 532 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, background-color -<span id="L533" class="LineNr"> 533 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy bg -<span id="L534" class="LineNr"> 534 </span> copy-to *dest, src -<span id="L535" class="LineNr"> 535 </span><span class="Delimiter">}</span> -<span id="L536" class="LineNr"> 536 </span> -<span id="L537" class="LineNr"> 537 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L537'>start-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L538" class="LineNr"> 538 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L539" class="LineNr"> 539 </span> <span class="Delimiter">{</span> -<span id="L540" class="LineNr"> 540 </span> <span class="PreProc">break-if-!=</span> -<span id="L541" class="LineNr"> 541 </span> <a href='304screen.subx.html#L339'>start-bold-on-real-screen</a> -<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">return</span> -<span id="L543" class="LineNr"> 543 </span> <span class="Delimiter">}</span> -<span id="L544" class="LineNr"> 544 </span> <span class="muComment"># fake screen</span> -<span id="L545" class="LineNr"> 545 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L546" class="LineNr"> 546 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L547" class="LineNr"> 547 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, bold? -<span id="L548" class="LineNr"> 548 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L549" class="LineNr"> 549 </span><span class="Delimiter">}</span> -<span id="L550" class="LineNr"> 550 </span> -<span id="L551" class="LineNr"> 551 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L551'>start-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L552" class="LineNr"> 552 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L553" class="LineNr"> 553 </span> <span class="Delimiter">{</span> -<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">break-if-!=</span> -<span id="L555" class="LineNr"> 555 </span> <a href='304screen.subx.html#L352'>start-underline-on-real-screen</a> -<span id="L556" class="LineNr"> 556 </span> <span class="PreProc">return</span> -<span id="L557" class="LineNr"> 557 </span> <span class="Delimiter">}</span> -<span id="L558" class="LineNr"> 558 </span> <span class="muComment"># fake screen</span> -<span id="L559" class="LineNr"> 559 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L560" class="LineNr"> 560 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L561" class="LineNr"> 561 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, underline? -<span id="L562" class="LineNr"> 562 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L563" class="LineNr"> 563 </span><span class="Delimiter">}</span> -<span id="L564" class="LineNr"> 564 </span> -<span id="L565" class="LineNr"> 565 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L565'>start-reverse-video</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L566" class="LineNr"> 566 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L567" class="LineNr"> 567 </span> <span class="Delimiter">{</span> -<span id="L568" class="LineNr"> 568 </span> <span class="PreProc">break-if-!=</span> -<span id="L569" class="LineNr"> 569 </span> <a href='304screen.subx.html#L365'>start-reverse-video-on-real-screen</a> -<span id="L570" class="LineNr"> 570 </span> <span class="PreProc">return</span> -<span id="L571" class="LineNr"> 571 </span> <span class="Delimiter">}</span> -<span id="L572" class="LineNr"> 572 </span> <span class="muComment"># fake screen</span> -<span id="L573" class="LineNr"> 573 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L575" class="LineNr"> 575 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, reverse? -<span id="L576" class="LineNr"> 576 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L577" class="LineNr"> 577 </span><span class="Delimiter">}</span> -<span id="L578" class="LineNr"> 578 </span> -<span id="L579" class="LineNr"> 579 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L579'>start-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L580" class="LineNr"> 580 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L581" class="LineNr"> 581 </span> <span class="Delimiter">{</span> -<span id="L582" class="LineNr"> 582 </span> <span class="PreProc">break-if-!=</span> -<span id="L583" class="LineNr"> 583 </span> <a href='304screen.subx.html#L379'>start-blinking-on-real-screen</a> -<span id="L584" class="LineNr"> 584 </span> <span class="PreProc">return</span> -<span id="L585" class="LineNr"> 585 </span> <span class="Delimiter">}</span> -<span id="L586" class="LineNr"> 586 </span> <span class="muComment"># fake screen</span> -<span id="L587" class="LineNr"> 587 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L588" class="LineNr"> 588 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes -<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> attr, blink? -<span id="L590" class="LineNr"> 590 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L591" class="LineNr"> 591 </span><span class="Delimiter">}</span> -<span id="L592" class="LineNr"> 592 </span> -<span id="L593" class="LineNr"> 593 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L593'>hide-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L594" class="LineNr"> 594 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L595" class="LineNr"> 595 </span> <span class="Delimiter">{</span> -<span id="L596" class="LineNr"> 596 </span> <span class="PreProc">break-if-!=</span> -<span id="L597" class="LineNr"> 597 </span> <a href='304screen.subx.html#L392'>hide-cursor-on-real-screen</a> -<span id="L598" class="LineNr"> 598 </span> <span class="PreProc">return</span> -<span id="L599" class="LineNr"> 599 </span> <span class="Delimiter">}</span> -<span id="L600" class="LineNr"> 600 </span> <span class="muComment"># fake screen</span> -<span id="L601" class="LineNr"> 601 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L602" class="LineNr"> 602 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? -<span id="L603" class="LineNr"> 603 </span> copy-to *hide?, <span class="Constant">1</span> -<span id="L604" class="LineNr"> 604 </span><span class="Delimiter">}</span> -<span id="L605" class="LineNr"> 605 </span> -<span id="L606" class="LineNr"> 606 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L606'>show-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L607" class="LineNr"> 607 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> -<span id="L608" class="LineNr"> 608 </span> <span class="Delimiter">{</span> -<span id="L609" class="LineNr"> 609 </span> <span class="PreProc">break-if-!=</span> -<span id="L610" class="LineNr"> 610 </span> <a href='304screen.subx.html#L405'>show-cursor-on-real-screen</a> -<span id="L611" class="LineNr"> 611 </span> <span class="PreProc">return</span> -<span id="L612" class="LineNr"> 612 </span> <span class="Delimiter">}</span> -<span id="L613" class="LineNr"> 613 </span> <span class="muComment"># fake screen</span> -<span id="L614" class="LineNr"> 614 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> -<span id="L615" class="LineNr"> 615 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? -<span id="L616" class="LineNr"> 616 </span> copy-to *hide?, <span class="Constant">0</span> -<span id="L617" class="LineNr"> 617 </span><span class="Delimiter">}</span> -<span id="L618" class="LineNr"> 618 </span> -<span id="L619" class="LineNr"> 619 </span><span class="muComment"># validate data on screen regardless of attributes (color, bold, etc.)</span> -<span id="L620" class="LineNr"> 620 </span><span class="muComment"># Mu doesn't have multi-line strings, so we provide functions for rows or portions of rows.</span> -<span id="L621" class="LineNr"> 621 </span><span class="muComment"># Tab characters (that translate into multiple screen cells) not supported.</span> -<span id="L622" class="LineNr"> 622 </span> -<span id="L623" class="LineNr"> 623 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L623'>check-screen-row</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L624" class="LineNr"> 624 </span> <a href='405screen.mu.html#L627'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L625" class="LineNr"> 625 </span><span class="Delimiter">}</span> -<span id="L626" class="LineNr"> 626 </span> -<span id="L627" class="LineNr"> 627 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L627'>check-screen-row-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L629" class="LineNr"> 629 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L630" class="LineNr"> 630 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L631" class="LineNr"> 631 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L632" class="LineNr"> 632 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L633" class="LineNr"> 633 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L634" class="LineNr"> 634 </span> <span class="Delimiter">{</span> -<span id="L635" class="LineNr"> 635 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L636" class="LineNr"> 636 </span> compare done?, <span class="Constant">0</span> -<span id="L637" class="LineNr"> 637 </span> <span class="PreProc">break-if-!=</span> -<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L639" class="LineNr"> 639 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L640" class="LineNr"> 640 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L641" class="LineNr"> 641 </span> <span class="muComment"># compare graphemes</span> -<span id="L642" class="LineNr"> 642 </span> $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L643" class="LineNr"> 643 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L644" class="LineNr"> 644 </span> <span class="Delimiter">{</span> -<span id="L645" class="LineNr"> 645 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L646" class="LineNr"> 646 </span> <span class="PreProc">break-if-!=</span> -<span id="L647" class="LineNr"> 647 </span> compare g, <span class="Constant">0</span> -<span id="L648" class="LineNr"> 648 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-graphemes -<span id="L649" class="LineNr"> 649 </span> <span class="Delimiter">}</span> -<span id="L650" class="LineNr"> 650 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L651" class="LineNr"> 651 </span> compare g, expected-grapheme -<span id="L652" class="LineNr"> 652 </span> <span class="Delimiter">{</span> -<span id="L653" class="LineNr"> 653 </span> <span class="PreProc">break-if-!=</span> -<span id="L654" class="LineNr"> 654 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L655" class="LineNr"> 655 </span> <span class="PreProc">break</span> $check-screen-row-from:compare-graphemes -<span id="L656" class="LineNr"> 656 </span> <span class="Delimiter">}</span> -<span id="L657" class="LineNr"> 657 </span> <span class="muComment"># otherwise print an error</span> -<span id="L658" class="LineNr"> 658 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L659" class="LineNr"> 659 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L660" class="LineNr"> 660 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L661" class="LineNr"> 661 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L662" class="LineNr"> 662 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L663" class="LineNr"> 663 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L664" class="LineNr"> 664 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L665" class="LineNr"> 665 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L666" class="LineNr"> 666 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g -<span id="L667" class="LineNr"> 667 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L668" class="LineNr"> 668 </span> <span class="Delimiter">}</span> -<span id="L669" class="LineNr"> 669 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L670" class="LineNr"> 670 </span> increment col-idx -<span id="L671" class="LineNr"> 671 </span> <span class="PreProc">loop</span> -<span id="L672" class="LineNr"> 672 </span> <span class="Delimiter">}</span> -<span id="L673" class="LineNr"> 673 </span><span class="Delimiter">}</span> -<span id="L674" class="LineNr"> 674 </span> -<span id="L675" class="LineNr"> 675 </span><span class="muComment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span> -<span id="L676" class="LineNr"> 676 </span> -<span id="L677" class="LineNr"> 677 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L677'>check-screen-row-in-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L678" class="LineNr"> 678 </span> <a href='405screen.mu.html#L681'>check-screen-row-in-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, fg, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L679" class="LineNr"> 679 </span><span class="Delimiter">}</span> -<span id="L680" class="LineNr"> 680 </span> -<span id="L681" class="LineNr"> 681 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L681'>check-screen-row-in-color-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L683" class="LineNr"> 683 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L684" class="LineNr"> 684 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L685" class="LineNr"> 685 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L686" class="LineNr"> 686 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L687" class="LineNr"> 687 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L688" class="LineNr"> 688 </span> <span class="Delimiter">{</span> -<span id="L689" class="LineNr"> 689 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L690" class="LineNr"> 690 </span> compare done?, <span class="Constant">0</span> -<span id="L691" class="LineNr"> 691 </span> <span class="PreProc">break-if-!=</span> -<span id="L692" class="LineNr"> 692 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L693" class="LineNr"> 693 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L695" class="LineNr"> 695 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L696" class="LineNr"> 696 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L697" class="LineNr"> 697 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L698" class="LineNr"> 698 </span> <span class="Delimiter">{</span> -<span id="L699" class="LineNr"> 699 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L700" class="LineNr"> 700 </span> <span class="PreProc">break-if-!=</span> -<span id="L701" class="LineNr"> 701 </span> compare g, <span class="Constant">0</span> -<span id="L702" class="LineNr"> 702 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells -<span id="L703" class="LineNr"> 703 </span> <span class="Delimiter">}</span> -<span id="L704" class="LineNr"> 704 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> -<span id="L705" class="LineNr"> 705 </span> <span class="Delimiter">{</span> -<span id="L706" class="LineNr"> 706 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L707" class="LineNr"> 707 </span> <span class="PreProc">break-if-!=</span> -<span id="L708" class="LineNr"> 708 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L329'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L709" class="LineNr"> 709 </span> compare color, fg -<span id="L710" class="LineNr"> 710 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells -<span id="L711" class="LineNr"> 711 </span> <span class="Delimiter">}</span> -<span id="L712" class="LineNr"> 712 </span> <span class="muComment"># compare graphemes</span> -<span id="L713" class="LineNr"> 713 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L714" class="LineNr"> 714 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L715" class="LineNr"> 715 </span> compare g, expected-grapheme -<span id="L716" class="LineNr"> 716 </span> <span class="Delimiter">{</span> -<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">break-if-!=</span> -<span id="L718" class="LineNr"> 718 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes -<span id="L720" class="LineNr"> 720 </span> <span class="Delimiter">}</span> -<span id="L721" class="LineNr"> 721 </span> <span class="muComment"># otherwise print an error</span> -<span id="L722" class="LineNr"> 722 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L723" class="LineNr"> 723 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L724" class="LineNr"> 724 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L725" class="LineNr"> 725 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L726" class="LineNr"> 726 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L727" class="LineNr"> 727 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L728" class="LineNr"> 728 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L729" class="LineNr"> 729 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L730" class="LineNr"> 730 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g -<span id="L731" class="LineNr"> 731 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L732" class="LineNr"> 732 </span> <span class="Delimiter">}</span> -<span id="L733" class="LineNr"> 733 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> -<span id="L734" class="LineNr"> 734 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L329'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L735" class="LineNr"> 735 </span> compare fg, color -<span id="L736" class="LineNr"> 736 </span> <span class="Delimiter">{</span> -<span id="L737" class="LineNr"> 737 </span> <span class="PreProc">break-if-!=</span> -<span id="L738" class="LineNr"> 738 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L739" class="LineNr"> 739 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors -<span id="L740" class="LineNr"> 740 </span> <span class="Delimiter">}</span> -<span id="L741" class="LineNr"> 741 </span> <span class="muComment"># otherwise print an error</span> -<span id="L742" class="LineNr"> 742 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L743" class="LineNr"> 743 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L744" class="LineNr"> 744 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L745" class="LineNr"> 745 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L746" class="LineNr"> 746 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L747" class="LineNr"> 747 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L748" class="LineNr"> 748 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L749" class="LineNr"> 749 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in color "</span> -<span id="L750" class="LineNr"> 750 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> fg -<span id="L751" class="LineNr"> 751 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> -<span id="L752" class="LineNr"> 752 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> color -<span id="L753" class="LineNr"> 753 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L754" class="LineNr"> 754 </span> <span class="Delimiter">}</span> -<span id="L755" class="LineNr"> 755 </span> <span class="Delimiter">}</span> -<span id="L756" class="LineNr"> 756 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L757" class="LineNr"> 757 </span> increment col-idx -<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">loop</span> -<span id="L759" class="LineNr"> 759 </span> <span class="Delimiter">}</span> -<span id="L760" class="LineNr"> 760 </span><span class="Delimiter">}</span> -<span id="L761" class="LineNr"> 761 </span> -<span id="L762" class="LineNr"> 762 </span><span class="muComment"># background color is visible even for spaces, so 'expected' behaves as an array of booleans.</span> -<span id="L763" class="LineNr"> 763 </span><span class="muComment"># non-space = given background must match; space = background must not match</span> -<span id="L764" class="LineNr"> 764 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L764'>check-screen-row-in-background-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), bg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L765" class="LineNr"> 765 </span> <a href='405screen.mu.html#L768'>check-screen-row-in-background-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, bg, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L766" class="LineNr"> 766 </span><span class="Delimiter">}</span> -<span id="L767" class="LineNr"> 767 </span> -<span id="L768" class="LineNr"> 768 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L768'>check-screen-row-in-background-color-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), bg: int, row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L769" class="LineNr"> 769 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L770" class="LineNr"> 770 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L771" class="LineNr"> 771 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L773" class="LineNr"> 773 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L774" class="LineNr"> 774 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L775" class="LineNr"> 775 </span> <span class="Delimiter">{</span> -<span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L777" class="LineNr"> 777 </span> compare done?, <span class="Constant">0</span> -<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">break-if-!=</span> -<span id="L779" class="LineNr"> 779 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L780" class="LineNr"> 780 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L781" class="LineNr"> 781 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L783" class="LineNr"> 783 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L784" class="LineNr"> 784 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L785" class="LineNr"> 785 </span> <span class="Delimiter">{</span> -<span id="L786" class="LineNr"> 786 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L787" class="LineNr"> 787 </span> <span class="PreProc">break-if-!=</span> -<span id="L788" class="LineNr"> 788 </span> compare g, <span class="Constant">0</span> -<span id="L789" class="LineNr"> 789 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells -<span id="L790" class="LineNr"> 790 </span> <span class="Delimiter">}</span> -<span id="L791" class="LineNr"> 791 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> -<span id="L792" class="LineNr"> 792 </span> <span class="Delimiter">{</span> -<span id="L793" class="LineNr"> 793 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L794" class="LineNr"> 794 </span> <span class="PreProc">break-if-!=</span> -<span id="L795" class="LineNr"> 795 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L348'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L796" class="LineNr"> 796 </span> compare color, bg -<span id="L797" class="LineNr"> 797 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells -<span id="L798" class="LineNr"> 798 </span> <span class="Delimiter">}</span> -<span id="L799" class="LineNr"> 799 </span> <span class="muComment"># compare graphemes</span> -<span id="L800" class="LineNr"> 800 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L801" class="LineNr"> 801 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L802" class="LineNr"> 802 </span> compare g, expected-grapheme -<span id="L803" class="LineNr"> 803 </span> <span class="Delimiter">{</span> -<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">break-if-!=</span> -<span id="L805" class="LineNr"> 805 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes -<span id="L807" class="LineNr"> 807 </span> <span class="Delimiter">}</span> -<span id="L808" class="LineNr"> 808 </span> <span class="muComment"># otherwise print an error</span> -<span id="L809" class="LineNr"> 809 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L810" class="LineNr"> 810 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L811" class="LineNr"> 811 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L812" class="LineNr"> 812 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L813" class="LineNr"> 813 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L814" class="LineNr"> 814 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L815" class="LineNr"> 815 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L816" class="LineNr"> 816 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L817" class="LineNr"> 817 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g -<span id="L818" class="LineNr"> 818 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L819" class="LineNr"> 819 </span> <span class="Delimiter">}</span> -<span id="L820" class="LineNr"> 820 </span> $check-screen-row-in-background-color-from:compare-colors: <span class="Delimiter">{</span> -<span id="L821" class="LineNr"> 821 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L348'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L822" class="LineNr"> 822 </span> compare bg, color -<span id="L823" class="LineNr"> 823 </span> <span class="Delimiter">{</span> -<span id="L824" class="LineNr"> 824 </span> <span class="PreProc">break-if-!=</span> -<span id="L825" class="LineNr"> 825 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-colors -<span id="L827" class="LineNr"> 827 </span> <span class="Delimiter">}</span> -<span id="L828" class="LineNr"> 828 </span> <span class="muComment"># otherwise print an error</span> -<span id="L829" class="LineNr"> 829 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L830" class="LineNr"> 830 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L831" class="LineNr"> 831 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L832" class="LineNr"> 832 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L833" class="LineNr"> 833 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L834" class="LineNr"> 834 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L835" class="LineNr"> 835 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L836" class="LineNr"> 836 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in background color "</span> -<span id="L837" class="LineNr"> 837 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> bg -<span id="L838" class="LineNr"> 838 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> -<span id="L839" class="LineNr"> 839 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> color -<span id="L840" class="LineNr"> 840 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> -<span id="L841" class="LineNr"> 841 </span> <span class="Delimiter">}</span> -<span id="L842" class="LineNr"> 842 </span> <span class="Delimiter">}</span> -<span id="L843" class="LineNr"> 843 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L844" class="LineNr"> 844 </span> increment col-idx -<span id="L845" class="LineNr"> 845 </span> <span class="PreProc">loop</span> -<span id="L846" class="LineNr"> 846 </span> <span class="Delimiter">}</span> -<span id="L847" class="LineNr"> 847 </span><span class="Delimiter">}</span> -<span id="L848" class="LineNr"> 848 </span> -<span id="L849" class="LineNr"> 849 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L849'>check-screen-row-in-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L850" class="LineNr"> 850 </span> <a href='405screen.mu.html#L853'>check-screen-row-in-bold-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L851" class="LineNr"> 851 </span><span class="Delimiter">}</span> -<span id="L852" class="LineNr"> 852 </span> -<span id="L853" class="LineNr"> 853 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L853'>check-screen-row-in-bold-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L854" class="LineNr"> 854 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L855" class="LineNr"> 855 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L856" class="LineNr"> 856 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L857" class="LineNr"> 857 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L858" class="LineNr"> 858 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L859" class="LineNr"> 859 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L860" class="LineNr"> 860 </span> <span class="Delimiter">{</span> -<span id="L861" class="LineNr"> 861 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L862" class="LineNr"> 862 </span> compare done?, <span class="Constant">0</span> -<span id="L863" class="LineNr"> 863 </span> <span class="PreProc">break-if-!=</span> -<span id="L864" class="LineNr"> 864 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L865" class="LineNr"> 865 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L866" class="LineNr"> 866 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L867" class="LineNr"> 867 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L868" class="LineNr"> 868 </span> $check-screen-row-in-bold-from:compare-cells: <span class="Delimiter">{</span> -<span id="L869" class="LineNr"> 869 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L870" class="LineNr"> 870 </span> <span class="Delimiter">{</span> -<span id="L871" class="LineNr"> 871 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L872" class="LineNr"> 872 </span> <span class="PreProc">break-if-!=</span> -<span id="L873" class="LineNr"> 873 </span> compare g, <span class="Constant">0</span> -<span id="L874" class="LineNr"> 874 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-bold-from:compare-cells -<span id="L875" class="LineNr"> 875 </span> <span class="Delimiter">}</span> -<span id="L876" class="LineNr"> 876 </span> <span class="muComment"># if expected-grapheme is space, non-bold is ok</span> -<span id="L877" class="LineNr"> 877 </span> <span class="Delimiter">{</span> -<span id="L878" class="LineNr"> 878 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">break-if-!=</span> -<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L366'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L881" class="LineNr"> 881 </span> compare bold?, <span class="Constant">1</span> -<span id="L882" class="LineNr"> 882 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-bold-from:compare-cells -<span id="L883" class="LineNr"> 883 </span> <span class="Delimiter">}</span> -<span id="L884" class="LineNr"> 884 </span> <span class="muComment"># compare graphemes</span> -<span id="L885" class="LineNr"> 885 </span> $check-screen-row-in-bold-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L886" class="LineNr"> 886 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L887" class="LineNr"> 887 </span> compare g, expected-grapheme -<span id="L888" class="LineNr"> 888 </span> <span class="Delimiter">{</span> -<span id="L889" class="LineNr"> 889 </span> <span class="PreProc">break-if-!=</span> -<span id="L890" class="LineNr"> 890 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L891" class="LineNr"> 891 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-graphemes -<span id="L892" class="LineNr"> 892 </span> <span class="Delimiter">}</span> -<span id="L893" class="LineNr"> 893 </span> <span class="muComment"># otherwise print an error</span> -<span id="L894" class="LineNr"> 894 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L895" class="LineNr"> 895 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L896" class="LineNr"> 896 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L897" class="LineNr"> 897 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L898" class="LineNr"> 898 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L899" class="LineNr"> 899 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L900" class="LineNr"> 900 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L901" class="LineNr"> 901 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L902" class="LineNr"> 902 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g -<span id="L903" class="LineNr"> 903 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L904" class="LineNr"> 904 </span> <span class="Delimiter">}</span> -<span id="L905" class="LineNr"> 905 </span> $check-screen-row-in-bold-from:compare-bold: <span class="Delimiter">{</span> -<span id="L906" class="LineNr"> 906 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L366'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L907" class="LineNr"> 907 </span> compare bold?, <span class="Constant">1</span> -<span id="L908" class="LineNr"> 908 </span> <span class="Delimiter">{</span> -<span id="L909" class="LineNr"> 909 </span> <span class="PreProc">break-if-!=</span> -<span id="L910" class="LineNr"> 910 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L911" class="LineNr"> 911 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-bold -<span id="L912" class="LineNr"> 912 </span> <span class="Delimiter">}</span> -<span id="L913" class="LineNr"> 913 </span> <span class="muComment"># otherwise print an error</span> -<span id="L914" class="LineNr"> 914 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L915" class="LineNr"> 915 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L916" class="LineNr"> 916 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L917" class="LineNr"> 917 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L918" class="LineNr"> 918 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L919" class="LineNr"> 919 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L920" class="LineNr"> 920 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L921" class="LineNr"> 921 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in bold\n"</span> -<span id="L922" class="LineNr"> 922 </span> <span class="Delimiter">}</span> -<span id="L923" class="LineNr"> 923 </span> <span class="Delimiter">}</span> -<span id="L924" class="LineNr"> 924 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L925" class="LineNr"> 925 </span> increment col-idx -<span id="L926" class="LineNr"> 926 </span> <span class="PreProc">loop</span> -<span id="L927" class="LineNr"> 927 </span> <span class="Delimiter">}</span> -<span id="L928" class="LineNr"> 928 </span><span class="Delimiter">}</span> -<span id="L929" class="LineNr"> 929 </span> -<span id="L930" class="LineNr"> 930 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L930'>check-screen-row-in-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L931" class="LineNr"> 931 </span> <a href='405screen.mu.html#L934'>check-screen-row-in-underline-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L932" class="LineNr"> 932 </span><span class="Delimiter">}</span> -<span id="L933" class="LineNr"> 933 </span> -<span id="L934" class="LineNr"> 934 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L934'>check-screen-row-in-underline-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L935" class="LineNr"> 935 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L936" class="LineNr"> 936 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L937" class="LineNr"> 937 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L938" class="LineNr"> 938 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L939" class="LineNr"> 939 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L940" class="LineNr"> 940 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L941" class="LineNr"> 941 </span> <span class="Delimiter">{</span> -<span id="L942" class="LineNr"> 942 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L943" class="LineNr"> 943 </span> compare done?, <span class="Constant">0</span> -<span id="L944" class="LineNr"> 944 </span> <span class="PreProc">break-if-!=</span> -<span id="L945" class="LineNr"> 945 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L946" class="LineNr"> 946 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L947" class="LineNr"> 947 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L948" class="LineNr"> 948 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L949" class="LineNr"> 949 </span> $check-screen-row-in-underline-from:compare-cells: <span class="Delimiter">{</span> -<span id="L950" class="LineNr"> 950 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L951" class="LineNr"> 951 </span> <span class="Delimiter">{</span> -<span id="L952" class="LineNr"> 952 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L953" class="LineNr"> 953 </span> <span class="PreProc">break-if-!=</span> -<span id="L954" class="LineNr"> 954 </span> compare g, <span class="Constant">0</span> -<span id="L955" class="LineNr"> 955 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-underline-from:compare-cells -<span id="L956" class="LineNr"> 956 </span> <span class="Delimiter">}</span> -<span id="L957" class="LineNr"> 957 </span> <span class="muComment"># if expected-grapheme is space, non-underline is ok</span> -<span id="L958" class="LineNr"> 958 </span> <span class="Delimiter">{</span> -<span id="L959" class="LineNr"> 959 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L960" class="LineNr"> 960 </span> <span class="PreProc">break-if-!=</span> -<span id="L961" class="LineNr"> 961 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L384'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L962" class="LineNr"> 962 </span> compare underline?, <span class="Constant">1</span> -<span id="L963" class="LineNr"> 963 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-underline-from:compare-cells -<span id="L964" class="LineNr"> 964 </span> <span class="Delimiter">}</span> -<span id="L965" class="LineNr"> 965 </span> <span class="muComment"># compare graphemes</span> -<span id="L966" class="LineNr"> 966 </span> $check-screen-row-in-underline-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L967" class="LineNr"> 967 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L968" class="LineNr"> 968 </span> compare g, expected-grapheme -<span id="L969" class="LineNr"> 969 </span> <span class="Delimiter">{</span> -<span id="L970" class="LineNr"> 970 </span> <span class="PreProc">break-if-!=</span> -<span id="L971" class="LineNr"> 971 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L972" class="LineNr"> 972 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-graphemes -<span id="L973" class="LineNr"> 973 </span> <span class="Delimiter">}</span> -<span id="L974" class="LineNr"> 974 </span> <span class="muComment"># otherwise print an error</span> -<span id="L975" class="LineNr"> 975 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L976" class="LineNr"> 976 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L977" class="LineNr"> 977 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L978" class="LineNr"> 978 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L979" class="LineNr"> 979 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L980" class="LineNr"> 980 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L981" class="LineNr"> 981 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L982" class="LineNr"> 982 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L983" class="LineNr"> 983 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g -<span id="L984" class="LineNr"> 984 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L985" class="LineNr"> 985 </span> <span class="Delimiter">}</span> -<span id="L986" class="LineNr"> 986 </span> $check-screen-row-in-underline-from:compare-underline: <span class="Delimiter">{</span> -<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L384'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L988" class="LineNr"> 988 </span> compare underline?, <span class="Constant">1</span> -<span id="L989" class="LineNr"> 989 </span> <span class="Delimiter">{</span> -<span id="L990" class="LineNr"> 990 </span> <span class="PreProc">break-if-!=</span> -<span id="L991" class="LineNr"> 991 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L992" class="LineNr"> 992 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-underline -<span id="L993" class="LineNr"> 993 </span> <span class="Delimiter">}</span> -<span id="L994" class="LineNr"> 994 </span> <span class="muComment"># otherwise print an error</span> -<span id="L995" class="LineNr"> 995 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L996" class="LineNr"> 996 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L997" class="LineNr"> 997 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L998" class="LineNr"> 998 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L999" class="LineNr"> 999 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1000" class="LineNr">1000 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1001" class="LineNr">1001 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1002" class="LineNr">1002 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be underlined\n"</span> -<span id="L1003" class="LineNr">1003 </span> <span class="Delimiter">}</span> -<span id="L1004" class="LineNr">1004 </span> <span class="Delimiter">}</span> -<span id="L1005" class="LineNr">1005 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L1006" class="LineNr">1006 </span> increment col-idx -<span id="L1007" class="LineNr">1007 </span> <span class="PreProc">loop</span> -<span id="L1008" class="LineNr">1008 </span> <span class="Delimiter">}</span> -<span id="L1009" class="LineNr">1009 </span><span class="Delimiter">}</span> -<span id="L1010" class="LineNr">1010 </span> -<span id="L1011" class="LineNr">1011 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1011'>check-screen-row-in-reverse</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L1012" class="LineNr">1012 </span> <a href='405screen.mu.html#L1015'>check-screen-row-in-reverse-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L1013" class="LineNr">1013 </span><span class="Delimiter">}</span> -<span id="L1014" class="LineNr">1014 </span> -<span id="L1015" class="LineNr">1015 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1015'>check-screen-row-in-reverse-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L1016" class="LineNr">1016 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L1017" class="LineNr">1017 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L1018" class="LineNr">1018 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L1019" class="LineNr">1019 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L1020" class="LineNr">1020 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L1021" class="LineNr">1021 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L1022" class="LineNr">1022 </span> <span class="Delimiter">{</span> -<span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L1024" class="LineNr">1024 </span> compare done?, <span class="Constant">0</span> -<span id="L1025" class="LineNr">1025 </span> <span class="PreProc">break-if-!=</span> -<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1027" class="LineNr">1027 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L1028" class="LineNr">1028 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L1029" class="LineNr">1029 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L1030" class="LineNr">1030 </span> $check-screen-row-in-reverse-from:compare-cells: <span class="Delimiter">{</span> -<span id="L1031" class="LineNr">1031 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L1032" class="LineNr">1032 </span> <span class="Delimiter">{</span> -<span id="L1033" class="LineNr">1033 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1034" class="LineNr">1034 </span> <span class="PreProc">break-if-!=</span> -<span id="L1035" class="LineNr">1035 </span> compare g, <span class="Constant">0</span> -<span id="L1036" class="LineNr">1036 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-reverse-from:compare-cells -<span id="L1037" class="LineNr">1037 </span> <span class="Delimiter">}</span> -<span id="L1038" class="LineNr">1038 </span> <span class="muComment"># if expected-grapheme is space, non-reverse is ok</span> -<span id="L1039" class="LineNr">1039 </span> <span class="Delimiter">{</span> -<span id="L1040" class="LineNr">1040 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1041" class="LineNr">1041 </span> <span class="PreProc">break-if-!=</span> -<span id="L1042" class="LineNr">1042 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L402'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1043" class="LineNr">1043 </span> compare reverse?, <span class="Constant">1</span> -<span id="L1044" class="LineNr">1044 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-reverse-from:compare-cells -<span id="L1045" class="LineNr">1045 </span> <span class="Delimiter">}</span> -<span id="L1046" class="LineNr">1046 </span> <span class="muComment"># compare graphemes</span> -<span id="L1047" class="LineNr">1047 </span> $check-screen-row-in-reverse-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L1048" class="LineNr">1048 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L1049" class="LineNr">1049 </span> compare g, expected-grapheme -<span id="L1050" class="LineNr">1050 </span> <span class="Delimiter">{</span> -<span id="L1051" class="LineNr">1051 </span> <span class="PreProc">break-if-!=</span> -<span id="L1052" class="LineNr">1052 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1053" class="LineNr">1053 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-graphemes -<span id="L1054" class="LineNr">1054 </span> <span class="Delimiter">}</span> -<span id="L1055" class="LineNr">1055 </span> <span class="muComment"># otherwise print an error</span> -<span id="L1056" class="LineNr">1056 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1057" class="LineNr">1057 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1058" class="LineNr">1058 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1059" class="LineNr">1059 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1060" class="LineNr">1060 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1061" class="LineNr">1061 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1062" class="LineNr">1062 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1063" class="LineNr">1063 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L1064" class="LineNr">1064 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g -<span id="L1065" class="LineNr">1065 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L1066" class="LineNr">1066 </span> <span class="Delimiter">}</span> -<span id="L1067" class="LineNr">1067 </span> $check-screen-row-in-reverse-from:compare-reverse: <span class="Delimiter">{</span> -<span id="L1068" class="LineNr">1068 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L402'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1069" class="LineNr">1069 </span> compare reverse?, <span class="Constant">1</span> -<span id="L1070" class="LineNr">1070 </span> <span class="Delimiter">{</span> -<span id="L1071" class="LineNr">1071 </span> <span class="PreProc">break-if-!=</span> -<span id="L1072" class="LineNr">1072 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1073" class="LineNr">1073 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-reverse -<span id="L1074" class="LineNr">1074 </span> <span class="Delimiter">}</span> -<span id="L1075" class="LineNr">1075 </span> <span class="muComment"># otherwise print an error</span> -<span id="L1076" class="LineNr">1076 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1077" class="LineNr">1077 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1078" class="LineNr">1078 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1079" class="LineNr">1079 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1080" class="LineNr">1080 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1081" class="LineNr">1081 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1082" class="LineNr">1082 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1083" class="LineNr">1083 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in reverse-video\n"</span> -<span id="L1084" class="LineNr">1084 </span> <span class="Delimiter">}</span> -<span id="L1085" class="LineNr">1085 </span> <span class="Delimiter">}</span> -<span id="L1086" class="LineNr">1086 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L1087" class="LineNr">1087 </span> increment col-idx -<span id="L1088" class="LineNr">1088 </span> <span class="PreProc">loop</span> -<span id="L1089" class="LineNr">1089 </span> <span class="Delimiter">}</span> -<span id="L1090" class="LineNr">1090 </span><span class="Delimiter">}</span> -<span id="L1091" class="LineNr">1091 </span> -<span id="L1092" class="LineNr">1092 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1092'>check-screen-row-in-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L1093" class="LineNr">1093 </span> <a href='405screen.mu.html#L1096'>check-screen-row-in-blinking-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg -<span id="L1094" class="LineNr">1094 </span><span class="Delimiter">}</span> -<span id="L1095" class="LineNr">1095 </span> -<span id="L1096" class="LineNr">1096 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1096'>check-screen-row-in-blinking-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L1097" class="LineNr">1097 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L1098" class="LineNr">1098 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L281'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx -<span id="L1099" class="LineNr">1099 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L1101" class="LineNr">1101 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L1102" class="LineNr">1102 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected -<span id="L1103" class="LineNr">1103 </span> <span class="Delimiter">{</span> -<span id="L1104" class="LineNr">1104 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L1105" class="LineNr">1105 </span> compare done?, <span class="Constant">0</span> -<span id="L1106" class="LineNr">1106 </span> <span class="PreProc">break-if-!=</span> -<span id="L1107" class="LineNr">1107 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L311'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L1109" class="LineNr">1109 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr -<span id="L1110" class="LineNr">1110 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L1111" class="LineNr">1111 </span> $check-screen-row-in-blinking-from:compare-cells: <span class="Delimiter">{</span> -<span id="L1112" class="LineNr">1112 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L1113" class="LineNr">1113 </span> <span class="Delimiter">{</span> -<span id="L1114" class="LineNr">1114 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1115" class="LineNr">1115 </span> <span class="PreProc">break-if-!=</span> -<span id="L1116" class="LineNr">1116 </span> compare g, <span class="Constant">0</span> -<span id="L1117" class="LineNr">1117 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-blinking-from:compare-cells -<span id="L1118" class="LineNr">1118 </span> <span class="Delimiter">}</span> -<span id="L1119" class="LineNr">1119 </span> <span class="muComment"># if expected-grapheme is space, non-blinking is ok</span> -<span id="L1120" class="LineNr">1120 </span> <span class="Delimiter">{</span> -<span id="L1121" class="LineNr">1121 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L1122" class="LineNr">1122 </span> <span class="PreProc">break-if-!=</span> -<span id="L1123" class="LineNr">1123 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L420'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1124" class="LineNr">1124 </span> compare blinking?, <span class="Constant">1</span> -<span id="L1125" class="LineNr">1125 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-blinking-from:compare-cells -<span id="L1126" class="LineNr">1126 </span> <span class="Delimiter">}</span> -<span id="L1127" class="LineNr">1127 </span> <span class="muComment"># compare graphemes</span> -<span id="L1128" class="LineNr">1128 </span> $check-screen-row-in-blinking-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L1129" class="LineNr">1129 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L1130" class="LineNr">1130 </span> compare g, expected-grapheme -<span id="L1131" class="LineNr">1131 </span> <span class="Delimiter">{</span> -<span id="L1132" class="LineNr">1132 </span> <span class="PreProc">break-if-!=</span> -<span id="L1133" class="LineNr">1133 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-graphemes -<span id="L1135" class="LineNr">1135 </span> <span class="Delimiter">}</span> -<span id="L1136" class="LineNr">1136 </span> <span class="muComment"># otherwise print an error</span> -<span id="L1137" class="LineNr">1137 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1138" class="LineNr">1138 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1139" class="LineNr">1139 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1140" class="LineNr">1140 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1141" class="LineNr">1141 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1142" class="LineNr">1142 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1143" class="LineNr">1143 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1144" class="LineNr">1144 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> -<span id="L1145" class="LineNr">1145 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g -<span id="L1146" class="LineNr">1146 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> -<span id="L1147" class="LineNr">1147 </span> <span class="Delimiter">}</span> -<span id="L1148" class="LineNr">1148 </span> $check-screen-row-in-blinking-from:compare-blinking: <span class="Delimiter">{</span> -<span id="L1149" class="LineNr">1149 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='405screen.mu.html#L420'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx -<span id="L1150" class="LineNr">1150 </span> compare blinking?, <span class="Constant">1</span> -<span id="L1151" class="LineNr">1151 </span> <span class="Delimiter">{</span> -<span id="L1152" class="LineNr">1152 </span> <span class="PreProc">break-if-!=</span> -<span id="L1153" class="LineNr">1153 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> -<span id="L1154" class="LineNr">1154 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-blinking -<span id="L1155" class="LineNr">1155 </span> <span class="Delimiter">}</span> -<span id="L1156" class="LineNr">1156 </span> <span class="muComment"># otherwise print an error</span> -<span id="L1157" class="LineNr">1157 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg -<span id="L1158" class="LineNr">1158 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> -<span id="L1159" class="LineNr">1159 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme -<span id="L1160" class="LineNr">1160 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> -<span id="L1161" class="LineNr">1161 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx -<span id="L1162" class="LineNr">1162 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> -<span id="L1163" class="LineNr">1163 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx -<span id="L1164" class="LineNr">1164 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be blinking\n"</span> -<span id="L1165" class="LineNr">1165 </span> <span class="Delimiter">}</span> -<span id="L1166" class="LineNr">1166 </span> <span class="Delimiter">}</span> -<span id="L1167" class="LineNr">1167 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L1168" class="LineNr">1168 </span> increment col-idx -<span id="L1169" class="LineNr">1169 </span> -<span id="L1170" class="LineNr">1170 </span> <span class="PreProc">loop</span> -<span id="L1171" class="LineNr">1171 </span> <span class="Delimiter">}</span> -<span id="L1172" class="LineNr">1172 </span><span class="Delimiter">}</span> -<span id="L1173" class="LineNr">1173 </span> -<span id="L1174" class="LineNr">1174 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1174'>test-print-single-grapheme</a></span> <span class="Delimiter">{</span> -<span id="L1175" class="LineNr">1175 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1176" class="LineNr">1176 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1177" class="LineNr">1177 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1178" class="LineNr">1178 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1179" class="LineNr">1179 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1180" class="LineNr">1180 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-single-grapheme"</span> <span class="muComment"># top-left corner of the screen</span> -<span id="L1181" class="LineNr">1181 </span><span class="Delimiter">}</span> -<span id="L1182" class="LineNr">1182 </span> -<span id="L1183" class="LineNr">1183 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1183'>test-print-multiple-graphemes</a></span> <span class="Delimiter">{</span> -<span id="L1184" class="LineNr">1184 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1185" class="LineNr">1185 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1186" class="LineNr">1186 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1187" class="LineNr">1187 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Hello, 世界"</span> -<span id="L1188" class="LineNr">1188 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-print-multiple-graphemes"</span> -<span id="L1189" class="LineNr">1189 </span><span class="Delimiter">}</span> -<span id="L1190" class="LineNr">1190 </span> -<span id="L1191" class="LineNr">1191 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1191'>test-move-cursor</a></span> <span class="Delimiter">{</span> -<span id="L1192" class="LineNr">1192 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1193" class="LineNr">1193 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1194" class="LineNr">1194 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1195" class="LineNr">1195 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L1196" class="LineNr">1196 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1197" class="LineNr">1197 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1198" class="LineNr">1198 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor"</span> <span class="muComment"># top row</span> -<span id="L1199" class="LineNr">1199 </span><span class="Delimiter">}</span> -<span id="L1200" class="LineNr">1200 </span> -<span id="L1201" class="LineNr">1201 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1201'>test-move-cursor-zeroes</a></span> <span class="Delimiter">{</span> -<span id="L1202" class="LineNr">1202 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1203" class="LineNr">1203 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1204" class="LineNr">1204 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1205" class="LineNr">1205 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L1206" class="LineNr">1206 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1207" class="LineNr">1207 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1208" class="LineNr">1208 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zeroes"</span> <span class="muComment"># top-left corner of the screen</span> -<span id="L1209" class="LineNr">1209 </span><span class="Delimiter">}</span> -<span id="L1210" class="LineNr">1210 </span> -<span id="L1211" class="LineNr">1211 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1211'>test-move-cursor-zero-row</a></span> <span class="Delimiter">{</span> -<span id="L1212" class="LineNr">1212 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1213" class="LineNr">1213 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1214" class="LineNr">1214 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1215" class="LineNr">1215 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">2</span> -<span id="L1216" class="LineNr">1216 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1217" class="LineNr">1217 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1218" class="LineNr">1218 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-zero-row"</span> <span class="muComment"># top row</span> -<span id="L1219" class="LineNr">1219 </span><span class="Delimiter">}</span> -<span id="L1220" class="LineNr">1220 </span> -<span id="L1221" class="LineNr">1221 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1221'>test-move-cursor-zero-column</a></span> <span class="Delimiter">{</span> -<span id="L1222" class="LineNr">1222 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1223" class="LineNr">1223 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1224" class="LineNr">1224 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1225" class="LineNr">1225 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">0</span> -<span id="L1226" class="LineNr">1226 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1227" class="LineNr">1227 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1228" class="LineNr">1228 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zero-column"</span> -<span id="L1229" class="LineNr">1229 </span><span class="Delimiter">}</span> -<span id="L1230" class="LineNr">1230 </span> -<span id="L1231" class="LineNr">1231 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1231'>test-move-cursor-negative-row</a></span> <span class="Delimiter">{</span> -<span id="L1232" class="LineNr">1232 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1233" class="LineNr">1233 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1234" class="LineNr">1234 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> -<span id="L1235" class="LineNr">1235 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">-1</span>, <span class="Constant">2</span> <span class="muComment"># row -1</span> -<span id="L1236" class="LineNr">1236 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1237" class="LineNr">1237 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1238" class="LineNr">1238 </span> <span class="muComment"># no move</span> -<span id="L1239" class="LineNr">1239 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-row"</span> -<span id="L1240" class="LineNr">1240 </span><span class="Delimiter">}</span> -<span id="L1241" class="LineNr">1241 </span> -<span id="L1242" class="LineNr">1242 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1242'>test-move-cursor-negative-column</a></span> <span class="Delimiter">{</span> -<span id="L1243" class="LineNr">1243 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1244" class="LineNr">1244 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1245" class="LineNr">1245 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> -<span id="L1246" class="LineNr">1246 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">-1</span> <span class="muComment"># column -1</span> -<span id="L1247" class="LineNr">1247 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1248" class="LineNr">1248 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1249" class="LineNr">1249 </span> <span class="muComment"># no move</span> -<span id="L1250" class="LineNr">1250 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-column"</span> -<span id="L1251" class="LineNr">1251 </span><span class="Delimiter">}</span> -<span id="L1252" class="LineNr">1252 </span> -<span id="L1253" class="LineNr">1253 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1253'>test-move-cursor-column-too-large</a></span> <span class="Delimiter">{</span> -<span id="L1254" class="LineNr">1254 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1255" class="LineNr">1255 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1256" class="LineNr">1256 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows, 3 columns</span> -<span id="L1257" class="LineNr">1257 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> <span class="muComment"># row 1, column 4 (overflow)</span> -<span id="L1258" class="LineNr">1258 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1259" class="LineNr">1259 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1260" class="LineNr">1260 </span> <span class="muComment"># top row is empty</span> -<span id="L1261" class="LineNr">1261 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> -<span id="L1262" class="LineNr">1262 </span> <span class="muComment"># character shows up on next row</span> -<span id="L1263" class="LineNr">1263 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> -<span id="L1264" class="LineNr">1264 </span><span class="Delimiter">}</span> -<span id="L1265" class="LineNr">1265 </span> -<span id="L1266" class="LineNr">1266 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1266'>test-move-cursor-column-too-large-saturates</a></span> <span class="Delimiter">{</span> -<span id="L1267" class="LineNr">1267 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1268" class="LineNr">1268 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1269" class="LineNr">1269 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows, 3 columns</span> -<span id="L1270" class="LineNr">1270 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">6</span> <span class="muComment"># row 1, column 6 (overflow)</span> -<span id="L1271" class="LineNr">1271 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1272" class="LineNr">1272 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1273" class="LineNr">1273 </span> <span class="muComment"># top row is empty</span> -<span id="L1274" class="LineNr">1274 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="muComment"># top-left corner of the screen</span> -<span id="L1275" class="LineNr">1275 </span> <span class="muComment"># character shows up at the start of next row</span> -<span id="L1276" class="LineNr">1276 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="muComment"># top-left corner of the screen</span> -<span id="L1277" class="LineNr">1277 </span><span class="Delimiter">}</span> -<span id="L1278" class="LineNr">1278 </span> -<span id="L1279" class="LineNr">1279 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1279'>test-move-cursor-row-too-large</a></span> <span class="Delimiter">{</span> -<span id="L1280" class="LineNr">1280 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1281" class="LineNr">1281 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1282" class="LineNr">1282 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows</span> -<span id="L1283" class="LineNr">1283 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">6</span>, <span class="Constant">2</span> <span class="muComment"># row 6 (overflow)</span> -<span id="L1284" class="LineNr">1284 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1285" class="LineNr">1285 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1286" class="LineNr">1286 </span> <span class="muComment"># bottom row shows the character</span> -<span id="L1287" class="LineNr">1287 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large"</span> -<span id="L1288" class="LineNr">1288 </span><span class="Delimiter">}</span> -<span id="L1289" class="LineNr">1289 </span> -<span id="L1290" class="LineNr">1290 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1290'>test-move-cursor-row-too-large-saturates</a></span> <span class="Delimiter">{</span> -<span id="L1291" class="LineNr">1291 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1292" class="LineNr">1292 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1293" class="LineNr">1293 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> <span class="muComment"># 5 rows</span> -<span id="L1294" class="LineNr">1294 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">9</span>, <span class="Constant">2</span> <span class="muComment"># row 9 (overflow)</span> -<span id="L1295" class="LineNr">1295 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1296" class="LineNr">1296 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1297" class="LineNr">1297 </span> <span class="muComment"># bottom row shows the character</span> -<span id="L1298" class="LineNr">1298 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large-saturates"</span> -<span id="L1299" class="LineNr">1299 </span><span class="Delimiter">}</span> -<span id="L1300" class="LineNr">1300 </span> -<span id="L1301" class="LineNr">1301 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1301'>test-check-screen-row-from</a></span> <span class="Delimiter">{</span> -<span id="L1302" class="LineNr">1302 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1303" class="LineNr">1303 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1304" class="LineNr">1304 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1305" class="LineNr">1305 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L1306" class="LineNr">1306 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1307" class="LineNr">1307 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1308" class="LineNr">1308 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1301'>test-check-screen-row-from</a>/baseline"</span> -<span id="L1309" class="LineNr">1309 </span> <a href='405screen.mu.html#L627'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-check-screen-row-from"</span> -<span id="L1310" class="LineNr">1310 </span><span class="Delimiter">}</span> -<span id="L1311" class="LineNr">1311 </span> -<span id="L1312" class="LineNr">1312 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1312'>test-print-string-overflows-to-next-row</a></span> <span class="Delimiter">{</span> -<span id="L1313" class="LineNr">1313 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1314" class="LineNr">1314 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1315" class="LineNr">1315 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> <span class="muComment"># 5 rows, 4 columns</span> -<span id="L1316" class="LineNr">1316 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"abcdefg"</span> -<span id="L1317" class="LineNr">1317 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> -<span id="L1318" class="LineNr">1318 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">"efg"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> -<span id="L1319" class="LineNr">1319 </span><span class="Delimiter">}</span> -<span id="L1320" class="LineNr">1320 </span> -<span id="L1321" class="LineNr">1321 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1321'>test-check-screen-scrolls-on-overflow</a></span> <span class="Delimiter">{</span> -<span id="L1322" class="LineNr">1322 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1323" class="LineNr">1323 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1324" class="LineNr">1324 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1325" class="LineNr">1325 </span> <span class="muComment"># single character starting at bottom right</span> -<span id="L1326" class="LineNr">1326 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1327" class="LineNr">1327 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1328" class="LineNr">1328 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1329" class="LineNr">1329 </span> <a href='405screen.mu.html#L627'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1321'>test-check-screen-scrolls-on-overflow</a>/baseline"</span> <span class="muComment"># bottom-right corner of the screen</span> -<span id="L1330" class="LineNr">1330 </span> <span class="muComment"># multiple characters starting at bottom right</span> -<span id="L1331" class="LineNr">1331 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1332" class="LineNr">1332 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"ab"</span> -<span id="L1333" class="LineNr">1333 </span> <span class="muComment"># screen scrolled up one row</span> -<span id="L1334" class="LineNr">1334 </span><span class="CommentedCode">#? check-screen-row screen, 1, " ", "F - test-check-screen-scrolls-on-overflow/x1"</span> -<span id="L1335" class="LineNr">1335 </span><span class="CommentedCode">#? check-screen-row screen, 2, " ", "F - test-check-screen-scrolls-on-overflow/x2"</span> -<span id="L1336" class="LineNr">1336 </span><span class="CommentedCode">#? check-screen-row screen, 3, " ", "F - test-check-screen-scrolls-on-overflow/x3"</span> -<span id="L1337" class="LineNr">1337 </span><span class="CommentedCode">#? check-screen-row screen, 4, " a", "F - test-check-screen-scrolls-on-overflow/x4"</span> -<span id="L1338" class="LineNr">1338 </span><span class="CommentedCode">#? check-screen-row screen, 5, "b ", "F - test-check-screen-scrolls-on-overflow/x5"</span> -<span id="L1339" class="LineNr">1339 </span> <a href='405screen.mu.html#L627'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">4</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1321'>test-check-screen-scrolls-on-overflow</a>/1"</span> -<span id="L1340" class="LineNr">1340 </span> <a href='405screen.mu.html#L627'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">"b"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1321'>test-check-screen-scrolls-on-overflow</a>/2"</span> -<span id="L1341" class="LineNr">1341 </span><span class="Delimiter">}</span> -<span id="L1342" class="LineNr">1342 </span> -<span id="L1343" class="LineNr">1343 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1343'>test-check-screen-color</a></span> <span class="Delimiter">{</span> -<span id="L1344" class="LineNr">1344 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1345" class="LineNr">1345 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1346" class="LineNr">1346 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1347" class="LineNr">1347 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1348" class="LineNr">1348 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1349" class="LineNr">1349 </span> <a href='405screen.mu.html#L519'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">0</span> <span class="muComment"># foreground=1</span> -<span id="L1350" class="LineNr">1350 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L1351" class="LineNr">1351 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1352" class="LineNr">1352 </span> <a href='405screen.mu.html#L519'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># back to default</span> -<span id="L1353" class="LineNr">1353 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L1354" class="LineNr">1354 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1355" class="LineNr">1355 </span> <a href='405screen.mu.html#L677'>check-screen-row-in-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-color"</span> -<span id="L1356" class="LineNr">1356 </span><span class="Delimiter">}</span> -<span id="L1357" class="LineNr">1357 </span> -<span id="L1358" class="LineNr">1358 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1358'>test-check-screen-background-color</a></span> <span class="Delimiter">{</span> -<span id="L1359" class="LineNr">1359 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1360" class="LineNr">1360 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1361" class="LineNr">1361 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1362" class="LineNr">1362 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1363" class="LineNr">1363 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1364" class="LineNr">1364 </span> <a href='405screen.mu.html#L519'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span> <span class="muComment"># background=1</span> -<span id="L1365" class="LineNr">1365 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L1366" class="LineNr">1366 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1367" class="LineNr">1367 </span> <a href='405screen.mu.html#L519'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">7</span> <span class="muComment"># back to default</span> -<span id="L1368" class="LineNr">1368 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L1369" class="LineNr">1369 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1370" class="LineNr">1370 </span> <a href='405screen.mu.html#L764'>check-screen-row-in-background-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-background-color"</span> -<span id="L1371" class="LineNr">1371 </span><span class="Delimiter">}</span> -<span id="L1372" class="LineNr">1372 </span> -<span id="L1373" class="LineNr">1373 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1373'>test-check-screen-bold</a></span> <span class="Delimiter">{</span> -<span id="L1374" class="LineNr">1374 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1375" class="LineNr">1375 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1376" class="LineNr">1376 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1377" class="LineNr">1377 </span> <a href='405screen.mu.html#L537'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1378" class="LineNr">1378 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1379" class="LineNr">1379 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1380" class="LineNr">1380 </span> <a href='405screen.mu.html#L502'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1381" class="LineNr">1381 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L1382" class="LineNr">1382 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1383" class="LineNr">1383 </span> <a href='405screen.mu.html#L537'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1384" class="LineNr">1384 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L1385" class="LineNr">1385 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1386" class="LineNr">1386 </span> <a href='405screen.mu.html#L849'>check-screen-row-in-bold</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-bold"</span> -<span id="L1387" class="LineNr">1387 </span><span class="Delimiter">}</span> -<span id="L1388" class="LineNr">1388 </span> -<span id="L1389" class="LineNr">1389 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1389'>test-check-screen-underline</a></span> <span class="Delimiter">{</span> -<span id="L1390" class="LineNr">1390 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1391" class="LineNr">1391 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1392" class="LineNr">1392 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1393" class="LineNr">1393 </span> <a href='405screen.mu.html#L551'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1394" class="LineNr">1394 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1395" class="LineNr">1395 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1396" class="LineNr">1396 </span> <a href='405screen.mu.html#L502'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1397" class="LineNr">1397 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L1398" class="LineNr">1398 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1399" class="LineNr">1399 </span> <a href='405screen.mu.html#L551'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1400" class="LineNr">1400 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L1401" class="LineNr">1401 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1402" class="LineNr">1402 </span> <a href='405screen.mu.html#L930'>check-screen-row-in-underline</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-underline"</span> -<span id="L1403" class="LineNr">1403 </span><span class="Delimiter">}</span> -<span id="L1404" class="LineNr">1404 </span> -<span id="L1405" class="LineNr">1405 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1405'>test-check-screen-reverse</a></span> <span class="Delimiter">{</span> -<span id="L1406" class="LineNr">1406 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1407" class="LineNr">1407 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1408" class="LineNr">1408 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1409" class="LineNr">1409 </span> <a href='405screen.mu.html#L565'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1410" class="LineNr">1410 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1411" class="LineNr">1411 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1412" class="LineNr">1412 </span> <a href='405screen.mu.html#L502'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1413" class="LineNr">1413 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L1414" class="LineNr">1414 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1415" class="LineNr">1415 </span> <a href='405screen.mu.html#L565'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1416" class="LineNr">1416 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L1417" class="LineNr">1417 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1418" class="LineNr">1418 </span> <a href='405screen.mu.html#L1011'>check-screen-row-in-reverse</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-reverse"</span> -<span id="L1419" class="LineNr">1419 </span><span class="Delimiter">}</span> -<span id="L1420" class="LineNr">1420 </span> -<span id="L1421" class="LineNr">1421 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1421'>test-check-screen-blinking</a></span> <span class="Delimiter">{</span> -<span id="L1422" class="LineNr">1422 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L1423" class="LineNr">1423 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L1424" class="LineNr">1424 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L1425" class="LineNr">1425 </span> <a href='405screen.mu.html#L579'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1426" class="LineNr">1426 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L1427" class="LineNr">1427 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1428" class="LineNr">1428 </span> <a href='405screen.mu.html#L502'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1429" class="LineNr">1429 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L1430" class="LineNr">1430 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1431" class="LineNr">1431 </span> <a href='405screen.mu.html#L579'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L1432" class="LineNr">1432 </span> c <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L1433" class="LineNr">1433 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c -<span id="L1434" class="LineNr">1434 </span> <a href='405screen.mu.html#L1092'>check-screen-row-in-blinking</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-blinking"</span> -<span id="L1435" class="LineNr">1435 </span><span class="Delimiter">}</span> -<span id="L1436" class="LineNr">1436 </span> -<span id="L1437" class="LineNr">1437 </span><span class="CommentedCode">#? fn main -> _/ebx: int {</span> -<span id="L1438" class="LineNr">1438 </span><span class="CommentedCode">#? #? test-check-screen-color</span> -<span id="L1439" class="LineNr">1439 </span><span class="CommentedCode">#? run-tests</span> -<span id="L1440" class="LineNr">1440 </span><span class="CommentedCode">#? return 0</span> -<span id="L1441" class="LineNr">1441 </span><span class="CommentedCode">#? }</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/408float.mu.html b/html/408float.mu.html index 183f4eda..31463014 100644 --- a/html/408float.mu.html +++ b/html/408float.mu.html @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -59,24 +59,24 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Some quick-n-dirty ways to create floats.</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='408float.mu.html#L3'>fill-in-rational</a></span> _out: (addr float), nr: int, dr: int <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> copy _out -<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert nr -<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert dr -<span id="L7" class="LineNr"> 7 </span> result <span class="SpecialChar"><-</span> divide divisor +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> copy _out +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert nr +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert dr +<span id="L7" class="LineNr"> 7 </span> result <span class="Special"><-</span> divide divisor <span id="L8" class="LineNr"> 8 </span> copy-to *out, result <span id="L9" class="LineNr"> 9 </span><span class="Delimiter">}</span> <span id="L10" class="LineNr">10 </span> <span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='408float.mu.html#L11'>fill-in-sqrt</a></span> _out: (addr float), n: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> copy _out -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert n -<span id="L14" class="LineNr">14 </span> result <span class="SpecialChar"><-</span> square-root result +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> copy _out +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert n +<span id="L14" class="LineNr">14 </span> result <span class="Special"><-</span> square-root result <span id="L15" class="LineNr">15 </span> copy-to *out, result <span id="L16" class="LineNr">16 </span><span class="Delimiter">}</span> <span id="L17" class="LineNr">17 </span> <span id="L18" class="LineNr">18 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='408float.mu.html#L18'>rational</a></span> nr: int, dr: int<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert nr -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert dr -<span id="L21" class="LineNr">21 </span> result <span class="SpecialChar"><-</span> divide divisor +<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert nr +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert dr +<span id="L21" class="LineNr">21 </span> result <span class="Special"><-</span> divide divisor <span id="L22" class="LineNr">22 </span> <span class="PreProc">return</span> result <span id="L23" class="LineNr">23 </span><span class="Delimiter">}</span> </pre> diff --git a/html/411string.mu.html b/html/411string.mu.html index 0f4c684b..bb8f1347 100644 --- a/html/411string.mu.html +++ b/html/411string.mu.html @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -61,36 +61,36 @@ if ('onhashchange' in window) { <span id="L1" class="LineNr"> 1 </span><span class="muComment"># read up to 'len' graphemes after skipping the first 'start' ones</span> <span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L2'>substring</a></span> in: (addr array byte), start: int, len: int, out-ah: (addr handle array byte) <span class="Delimiter">{</span> <span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-stream -<span id="L5" class="LineNr"> 5 </span> <a href='108write.subx.html#L24'>write</a> in-stream-addr, in +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream +<span id="L5" class="LineNr"> 5 </span> <a href='108write.subx.html#L11'>write</a> in-stream-addr, in <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> out-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> out-stream-addr/<span class="Constant">edi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address out-stream +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> out-stream-addr/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-stream <span id="L8" class="LineNr"> 8 </span> $substring:core: <span class="Delimiter">{</span> <span id="L9" class="LineNr"> 9 </span> <span class="muComment"># skip 'start' graphemes</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> <span id="L12" class="LineNr"> 12 </span> compare i, start <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">break-if->=</span> <span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr -<span id="L16" class="LineNr"> 16 </span> compare dummy, <span class="Constant">0xffffffff</span> <span class="muComment"># end-of-file</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> in-stream-addr +<span id="L16" class="LineNr"> 16 </span> compare dummy, <span class="Constant">0xffffffff</span>/end-of-file <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-=</span> $substring:core <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">}</span> -<span id="L19" class="LineNr"> 19 </span> i <span class="SpecialChar"><-</span> increment +<span id="L19" class="LineNr"> 19 </span> i <span class="Special"><-</span> increment <span id="L20" class="LineNr"> 20 </span> <span class="PreProc">loop</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> <span class="muComment"># copy 'len' graphemes</span> -<span id="L23" class="LineNr"> 23 </span> i <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L23" class="LineNr"> 23 </span> i <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> compare i, len <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if->=</span> <span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr -<span id="L29" class="LineNr"> 29 </span> compare g, <span class="Constant">0xffffffff</span> <span class="muComment"># end-of-file</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> in-stream-addr +<span id="L29" class="LineNr"> 29 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-=</span> $substring:core -<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L379'>write-grapheme</a> out-stream-addr, g +<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L176'>write-grapheme</a> out-stream-addr, g <span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> -<span id="L33" class="LineNr"> 33 </span> i <span class="SpecialChar"><-</span> increment +<span id="L33" class="LineNr"> 33 </span> i <span class="Special"><-</span> increment <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">loop</span> <span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">}</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">}</span> @@ -99,62 +99,62 @@ if ('onhashchange' in window) { <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muTest"><a href='411string.mu.html#L40'>test-substring</a></span> <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> out-h: (handle array byte) -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address out-h +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array byte) <span class="Special"><-</span> address out-h <span id="L43" class="LineNr"> 43 </span> <span class="muComment"># prefix substrings</span> <span id="L44" class="LineNr"> 44 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L46" class="LineNr"> 46 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/null"</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L46" class="LineNr"> 46 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/null"</span> <span id="L47" class="LineNr"> 47 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">""</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah <span id="L49" class="LineNr"> 49 </span><span class="CommentedCode">#? print-string-to-real-screen out</span> <span id="L50" class="LineNr"> 50 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L51" class="LineNr"> 51 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/empty"</span> +<span id="L51" class="LineNr"> 51 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/empty"</span> <span id="L52" class="LineNr"> 52 </span> <span class="muComment">#</span> <span id="L53" class="LineNr"> 53 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah <span id="L55" class="LineNr"> 55 </span><span class="CommentedCode">#? print-string-to-real-screen out</span> <span id="L56" class="LineNr"> 56 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L57" class="LineNr"> 57 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/truncate"</span> +<span id="L57" class="LineNr"> 57 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/truncate"</span> <span id="L58" class="LineNr"> 58 </span> <span class="muComment">#</span> <span id="L59" class="LineNr"> 59 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">5</span>, out-ah -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L61" class="LineNr"> 61 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/all"</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L61" class="LineNr"> 61 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/all"</span> <span id="L62" class="LineNr"> 62 </span> <span class="muComment">#</span> <span id="L63" class="LineNr"> 63 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">7</span>, out-ah -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L65" class="LineNr"> 65 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/too-small"</span> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L65" class="LineNr"> 65 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/too-small"</span> <span id="L66" class="LineNr"> 66 </span> <span class="muComment"># substrings outside string</span> <span id="L67" class="LineNr"> 67 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">6</span>, <span class="Constant">1</span>, out-ah -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L69" class="LineNr"> 69 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/start-too-large"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L69" class="LineNr"> 69 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/start-too-large"</span> <span id="L70" class="LineNr"> 70 </span> <span class="muComment"># trim prefix</span> <span id="L71" class="LineNr"> 71 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">""</span>, <span class="Constant">2</span>, <span class="Constant">3</span>, out-ah -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L73" class="LineNr"> 73 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-empty"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L73" class="LineNr"> 73 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-empty"</span> <span id="L74" class="LineNr"> 74 </span> <span class="muComment">#</span> <span id="L75" class="LineNr"> 75 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">2</span>, out-ah -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L77" class="LineNr"> 77 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"bc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-truncate"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L77" class="LineNr"> 77 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-truncate"</span> <span id="L78" class="LineNr"> 78 </span> <span class="muComment">#</span> <span id="L79" class="LineNr"> 79 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">4</span>, out-ah -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L81" class="LineNr"> 81 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-all"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L81" class="LineNr"> 81 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-all"</span> <span id="L82" class="LineNr"> 82 </span> <span class="muComment">#</span> <span id="L83" class="LineNr"> 83 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">5</span>, out-ah -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L85" class="LineNr"> 85 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L85" class="LineNr"> 85 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small"</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> <span id="L87" class="LineNr"> 87 </span> <span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L88'>split-string</a></span> in: (addr array byte), delim: grapheme, out: (addr handle array (handle array byte)) <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-stream -<span id="L91" class="LineNr"> 91 </span> <a href='108write.subx.html#L24'>write</a> in-stream-addr, in +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream +<span id="L91" class="LineNr"> 91 </span> <a href='108write.subx.html#L11'>write</a> in-stream-addr, in <span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> tokens-stream: (stream (handle array byte) <span class="Constant">0x100</span>) -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> tokens-stream-addr/<span class="Constant">edi</span>: (addr stream (handle array byte)) <span class="SpecialChar"><-</span> address tokens-stream +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> tokens-stream-addr/<span class="Constant">edi</span>: (addr stream (handle array byte)) <span class="Special"><-</span> address tokens-stream <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> curr-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-stream-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address curr-stream +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-stream-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address curr-stream <span id="L96" class="LineNr"> 96 </span> $split-string:core: <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> in-stream-addr <span id="L98" class="LineNr"> 98 </span> compare g, <span class="Constant">0xffffffff</span> <span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-=</span> <span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-grapheme-to-real-screen g</span> @@ -164,13 +164,13 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr">104 </span> <span class="PreProc">break-if-!=</span> <span id="L105" class="LineNr">105 </span> <span class="muComment"># token complete; flush</span> <span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> token: (handle array byte) -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> token-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address token +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> token-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address token <span id="L108" class="LineNr">108 </span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream-addr, token-ah <span id="L109" class="LineNr">109 </span> <a href='309stream.subx.html#L54'>write-to-stream</a> tokens-stream-addr, token-ah -<span id="L110" class="LineNr">110 </span> <a href='106stream.subx.html#L17'>clear-stream</a> curr-stream-addr +<span id="L110" class="LineNr">110 </span> <a href='106stream.subx.html#L20'>clear-stream</a> curr-stream-addr <span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> $split-string:core <span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> -<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L379'>write-grapheme</a> curr-stream-addr, g +<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L176'>write-grapheme</a> curr-stream-addr, g <span id="L114" class="LineNr">114 </span> <span class="PreProc">loop</span> <span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> tokens-stream-addr, out @@ -178,7 +178,7 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span> <span id="L119" class="LineNr">119 </span><span class="PreProc">fn</span> <span class="muTest"><a href='411string.mu.html#L119'>test-split-string</a></span> <span class="Delimiter">{</span> <span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> out-h: (handle array (handle array byte)) -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array (handle array byte)) <span class="SpecialChar"><-</span> address out-h +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array (handle array byte)) <span class="Special"><-</span> address out-h <span id="L122" class="LineNr">122 </span> <span class="muComment"># prefix substrings</span> <span id="L123" class="LineNr">123 </span> <a href='411string.mu.html#L88'>split-string</a> <span class="Constant">"bab"</span>, <span class="Constant">0x61</span>, out-ah <span id="L124" class="LineNr">124 </span> <span class="muComment"># no crash</span> diff --git a/html/412print-float-decimal.mu.html b/html/412print-float-decimal.mu.html deleted file mode 100644 index 37519ae7..00000000 --- a/html/412print-float-decimal.mu.html +++ /dev/null @@ -1,714 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 412print-float-decimal.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/412print-float-decimal.mu'>https://github.com/akkartik/mu/blob/main/412print-float-decimal.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># print out floats in decimal</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Basic idea:</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># Ignoring sign, floating point numbers are represented as 1.mantissa * 2^exponent</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Therefore, to print a float in decimal, we need to:</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># - compute its value without decimal point</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># - convert to an array of decimal digits</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># - print out the array while inserting the decimal point appropriately</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment">#</span> -<span id="L11" class="LineNr"> 11 </span><span class="muComment"># Basic complication: the computation generates numbers larger than an int can</span> -<span id="L12" class="LineNr"> 12 </span><span class="muComment"># hold. We need a way to represent big ints.</span> -<span id="L13" class="LineNr"> 13 </span><span class="muComment">#</span> -<span id="L14" class="LineNr"> 14 </span><span class="muComment"># Key insight: use a representation for big ints that's close to what we need</span> -<span id="L15" class="LineNr"> 15 </span><span class="muComment"># anyway, an array of decimal digits.</span> -<span id="L16" class="LineNr"> 16 </span><span class="muComment">#</span> -<span id="L17" class="LineNr"> 17 </span><span class="muComment"># Style note: we aren't creating a big int library here. The only operations</span> -<span id="L18" class="LineNr"> 18 </span><span class="muComment"># we need are halving and doubling. Following the link above, it seems more</span> -<span id="L19" class="LineNr"> 19 </span><span class="muComment"># comprehensible to keep these operations inlined so that we can track the</span> -<span id="L20" class="LineNr"> 20 </span><span class="muComment"># position of the decimal point with dispatch.</span> -<span id="L21" class="LineNr"> 21 </span><span class="muComment">#</span> -<span id="L22" class="LineNr"> 22 </span><span class="muComment"># This approach turns out to be fast enough for most purposes.</span> -<span id="L23" class="LineNr"> 23 </span><span class="muComment"># Optimizations, however, get wildly more complex.</span> -<span id="L24" class="LineNr"> 24 </span> -<span id="L25" class="LineNr"> 25 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L25'>test-print-float-decimal-approximate-normal</a></span> <span class="Delimiter">{</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L28" class="LineNr"> 28 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L29" class="LineNr"> 29 </span> <span class="muComment"># 0.5</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> half/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> -<span id="L31" class="LineNr"> 31 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, half, <span class="Constant">3</span> -<span id="L32" class="LineNr"> 32 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0.5 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-print-float-decimal-approximate-normal</a> 0.5"</span> -<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># 0.25</span> -<span id="L34" class="LineNr"> 34 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> quarter/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L36" class="LineNr"> 36 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, quarter, <span class="Constant">3</span> -<span id="L37" class="LineNr"> 37 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0.25 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-print-float-decimal-approximate-normal</a> 0.25"</span> -<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># 0.75</span> -<span id="L39" class="LineNr"> 39 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> three-quarters/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">3</span>, <span class="Constant">4</span> -<span id="L41" class="LineNr"> 41 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, three-quarters, <span class="Constant">3</span> -<span id="L42" class="LineNr"> 42 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0.75 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-print-float-decimal-approximate-normal</a> 0.75"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="muComment"># 0.125</span> -<span id="L44" class="LineNr"> 44 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> eighth/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">8</span> -<span id="L46" class="LineNr"> 46 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, eighth, <span class="Constant">3</span> -<span id="L47" class="LineNr"> 47 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0.125 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-print-float-decimal-approximate-normal</a> 0.125"</span> -<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># 0.0625; start using scientific notation</span> -<span id="L49" class="LineNr"> 49 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> sixteenth/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">0x10</span> -<span id="L51" class="LineNr"> 51 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, sixteenth, <span class="Constant">3</span> -<span id="L52" class="LineNr"> 52 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"6.25e-2 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-print-float-decimal-approximate-normal</a> 0.0625"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="muComment"># sqrt(2); truncate floats with lots of digits after the decimal but not too many before</span> -<span id="L54" class="LineNr"> 54 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> sqrt-2/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> square-root two-f -<span id="L57" class="LineNr"> 57 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, sqrt-2, <span class="Constant">3</span> -<span id="L58" class="LineNr"> 58 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.414 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-print-float-decimal-approximate-normal</a> √2"</span> -<span id="L59" class="LineNr"> 59 </span><span class="Delimiter">}</span> -<span id="L60" class="LineNr"> 60 </span> -<span id="L61" class="LineNr"> 61 </span><span class="muComment"># print whole integers without decimals</span> -<span id="L62" class="LineNr"> 62 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a></span> <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L65" class="LineNr"> 65 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># 1</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L68" class="LineNr"> 68 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, one-f, <span class="Constant">3</span> -<span id="L69" class="LineNr"> 69 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a> 1"</span> -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># 2</span> -<span id="L71" class="LineNr"> 71 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> -<span id="L73" class="LineNr"> 73 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, two-f, <span class="Constant">3</span> -<span id="L74" class="LineNr"> 74 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"2 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a> 2"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="muComment"># 10</span> -<span id="L76" class="LineNr"> 76 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0xa</span>, <span class="Constant">1</span> -<span id="L78" class="LineNr"> 78 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, ten-f, <span class="Constant">3</span> -<span id="L79" class="LineNr"> 79 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"10 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a> 10"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># -10</span> -<span id="L81" class="LineNr"> 81 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">-0xa</span>, <span class="Constant">1</span> -<span id="L83" class="LineNr"> 83 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, minus-ten-f, <span class="Constant">3</span> -<span id="L84" class="LineNr"> 84 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-10 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a> -10"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># 999</span> -<span id="L86" class="LineNr"> 86 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e7</span>, <span class="Constant">1</span> -<span id="L88" class="LineNr"> 88 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, minus-ten-f, <span class="Constant">3</span> -<span id="L89" class="LineNr"> 89 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"999 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a> 1000"</span> -<span id="L90" class="LineNr"> 90 </span> <span class="muComment"># 1000 - start using scientific notation</span> -<span id="L91" class="LineNr"> 91 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e8</span>, <span class="Constant">1</span> -<span id="L93" class="LineNr"> 93 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, minus-ten-f, <span class="Constant">3</span> -<span id="L94" class="LineNr"> 94 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.00e3 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a> 1000"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="muComment"># 100,000</span> -<span id="L96" class="LineNr"> 96 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> hundred-thousand/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x186a0</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> hundred-thousand-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert hundred-thousand -<span id="L99" class="LineNr"> 99 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, hundred-thousand-f, <span class="Constant">3</span> -<span id="L100" class="LineNr">100 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.00e5 "</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L62'>test-print-float-decimal-approximate-integer</a> 100,000"</span> -<span id="L101" class="LineNr">101 </span><span class="Delimiter">}</span> -<span id="L102" class="LineNr">102 </span> -<span id="L103" class="LineNr">103 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L103'>test-print-float-decimal-approximate-zero</a></span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L106" class="LineNr">106 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> zero: float -<span id="L108" class="LineNr">108 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, zero, <span class="Constant">3</span> -<span id="L109" class="LineNr">109 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0 "</span>, <span class="Constant">"F - test-print-float-decimal-approximate-zero"</span> -<span id="L110" class="LineNr">110 </span><span class="Delimiter">}</span> -<span id="L111" class="LineNr">111 </span> -<span id="L112" class="LineNr">112 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L112'>test-print-float-decimal-approximate-negative-zero</a></span> <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L115" class="LineNr">115 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> n: int -<span id="L117" class="LineNr">117 </span> copy-to n, <span class="Constant">0x80000000</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> negative-zero/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L119" class="LineNr">119 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, negative-zero, <span class="Constant">3</span> -<span id="L120" class="LineNr">120 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-0 "</span>, <span class="Constant">"F - test-print-float-decimal-approximate-negative-zero"</span> -<span id="L121" class="LineNr">121 </span><span class="Delimiter">}</span> -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L123'>test-print-float-decimal-approximate-infinity</a></span> <span class="Delimiter">{</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L126" class="LineNr">126 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> n: int -<span id="L128" class="LineNr">128 </span> <span class="muComment"># 0|11111111|00000000000000000000000</span> -<span id="L129" class="LineNr">129 </span> <span class="muComment"># 0111|1111|1000|0000|0000|0000|0000|0000</span> -<span id="L130" class="LineNr">130 </span> copy-to n, <span class="Constant">0x7f800000</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L132" class="LineNr">132 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, infinity, <span class="Constant">3</span> -<span id="L133" class="LineNr">133 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Inf "</span>, <span class="Constant">"F - test-print-float-decimal-approximate-infinity"</span> -<span id="L134" class="LineNr">134 </span><span class="Delimiter">}</span> -<span id="L135" class="LineNr">135 </span> -<span id="L136" class="LineNr">136 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L136'>test-print-float-decimal-approximate-negative-infinity</a></span> <span class="Delimiter">{</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L139" class="LineNr">139 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> n: int -<span id="L141" class="LineNr">141 </span> copy-to n, <span class="Constant">0xff800000</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L143" class="LineNr">143 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, negative-infinity, <span class="Constant">3</span> -<span id="L144" class="LineNr">144 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-Inf "</span>, <span class="Constant">"F - test-print-float-decimal-approximate-negative-infinity"</span> -<span id="L145" class="LineNr">145 </span><span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L147'>test-print-float-decimal-approximate-not-a-number</a></span> <span class="Delimiter">{</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L150" class="LineNr">150 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> n: int -<span id="L152" class="LineNr">152 </span> copy-to n, <span class="Constant">0xffffffff</span> <span class="muComment"># exponent must be all 1's, and mantissa must be non-zero</span> -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> nan/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L154" class="LineNr">154 </span> <a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='405screen.mu.html#L9'>screen</a>, nan, <span class="Constant">3</span> -<span id="L155" class="LineNr">155 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"NaN "</span>, <span class="Constant">"F - test-print-float-decimal-approximate-not-a-number"</span> -<span id="L156" class="LineNr">156 </span><span class="Delimiter">}</span> -<span id="L157" class="LineNr">157 </span> -<span id="L158" class="LineNr">158 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> -<span id="L159" class="LineNr">159 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), in: float, precision: int <span class="Delimiter">{</span> -<span id="L160" class="LineNr">160 </span> <span class="muComment"># - special names</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> reinterpret in -<span id="L162" class="LineNr">162 </span> compare bits, <span class="Constant">0</span> -<span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-!=</span> -<span id="L165" class="LineNr">165 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"0"</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">return</span> -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> -<span id="L168" class="LineNr">168 </span> compare bits, <span class="Constant">0x80000000</span> -<span id="L169" class="LineNr">169 </span> <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-!=</span> -<span id="L171" class="LineNr">171 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-0"</span> -<span id="L172" class="LineNr">172 </span> <span class="PreProc">return</span> -<span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> -<span id="L174" class="LineNr">174 </span> compare bits, <span class="Constant">0x7f800000</span> -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">{</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-!=</span> -<span id="L177" class="LineNr">177 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Inf"</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">return</span> -<span id="L179" class="LineNr">179 </span> <span class="Delimiter">}</span> -<span id="L180" class="LineNr">180 </span> compare bits, <span class="Constant">0xff800000</span> -<span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> -<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-!=</span> -<span id="L183" class="LineNr">183 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-Inf"</span> -<span id="L184" class="LineNr">184 </span> <span class="PreProc">return</span> -<span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L187" class="LineNr">187 </span> exponent <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> -<span id="L188" class="LineNr">188 </span> exponent <span class="SpecialChar"><-</span> and <span class="Constant">0xff</span> -<span id="L189" class="LineNr">189 </span> exponent <span class="SpecialChar"><-</span> subtract <span class="Constant">0x7f</span> -<span id="L190" class="LineNr">190 </span> compare exponent, <span class="Constant">0x80</span> -<span id="L191" class="LineNr">191 </span> <span class="Delimiter">{</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if-!=</span> -<span id="L193" class="LineNr">193 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"NaN"</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">return</span> -<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span> <span class="muComment"># - regular numbers</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L198" class="LineNr">198 </span> sign <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x1f</span> -<span id="L199" class="LineNr">199 </span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> compare sign, <span class="Constant">1</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">break-if-!=</span> -<span id="L202" class="LineNr">202 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-"</span> -<span id="L203" class="LineNr">203 </span> <span class="Delimiter">}</span> -<span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L207" class="LineNr">207 </span> v <span class="SpecialChar"><-</span> and <span class="Constant">0x7fffff</span> -<span id="L208" class="LineNr">208 </span> v <span class="SpecialChar"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> -<span id="L209" class="LineNr">209 </span> <span class="muComment"># e = exponent - 0x17</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy exponent -<span id="L211" class="LineNr">211 </span> e <span class="SpecialChar"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> -<span id="L212" class="LineNr">212 </span> -<span id="L213" class="LineNr">213 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> -<span id="L214" class="LineNr">214 </span> <span class="muComment"># unlike <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a>, no ascii here</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> address buf-storage -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412print-float-decimal.mu.html#L247'>decimal-digits</a> v, buf -<span id="L218" class="LineNr">218 </span> <span class="muComment"># I suspect we can do without reversing, but we'll follow <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> -<span id="L219" class="LineNr">219 </span> <span class="muComment"># closely for now.</span> -<span id="L220" class="LineNr">220 </span> <a href='412print-float-decimal.mu.html#L264'>reverse-digits</a> buf, n -<span id="L221" class="LineNr">221 </span> -<span id="L222" class="LineNr">222 </span> <span class="muComment"># loop if e > 0</span> -<span id="L223" class="LineNr">223 </span> <span class="Delimiter">{</span> -<span id="L224" class="LineNr">224 </span> compare e, <span class="Constant">0</span> -<span id="L225" class="LineNr">225 </span> <span class="PreProc">break-if-<=</span> -<span id="L226" class="LineNr">226 </span> n <span class="SpecialChar"><-</span> <a href='412print-float-decimal.mu.html#L307'>double-array-of-decimal-digits</a> buf, n -<span id="L227" class="LineNr">227 </span> e <span class="SpecialChar"><-</span> decrement -<span id="L228" class="LineNr">228 </span> <span class="PreProc">loop</span> -<span id="L229" class="LineNr">229 </span> <span class="Delimiter">}</span> -<span id="L230" class="LineNr">230 </span> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L232" class="LineNr">232 </span> -<span id="L233" class="LineNr">233 </span> <span class="muComment"># loop if e < 0</span> -<span id="L234" class="LineNr">234 </span> <span class="Delimiter">{</span> -<span id="L235" class="LineNr">235 </span> compare e, <span class="Constant">0</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">break-if->=</span> -<span id="L237" class="LineNr">237 </span> n, dp <span class="SpecialChar"><-</span> <a href='412print-float-decimal.mu.html#L358'>halve-array-of-decimal-digits</a> buf, n, dp -<span id="L238" class="LineNr">238 </span> e <span class="SpecialChar"><-</span> increment -<span id="L239" class="LineNr">239 </span> <span class="PreProc">loop</span> -<span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> -<span id="L241" class="LineNr">241 </span> -<span id="L242" class="LineNr">242 </span> <a href='412print-float-decimal.mu.html#L432'>print-float-buffer</a> <a href='405screen.mu.html#L9'>screen</a>, buf, n, dp, precision -<span id="L243" class="LineNr">243 </span><span class="Delimiter">}</span> -<span id="L244" class="LineNr">244 </span> -<span id="L245" class="LineNr">245 </span><span class="muComment"># store the decimal digits of 'n' into 'buf', units first</span> -<span id="L246" class="LineNr">246 </span><span class="muComment"># n must be positive</span> -<span id="L247" class="LineNr">247 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L247'>decimal-digits</a></span> n: int, _buf: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> curr-byte/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> -<span id="L253" class="LineNr">253 </span> compare curr, <span class="Constant">0</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">break-if-=</span> -<span id="L255" class="LineNr">255 </span> curr, curr-byte <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> curr, <span class="Constant">0xa</span> -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L257" class="LineNr">257 </span> copy-byte-to *dest, curr-byte -<span id="L258" class="LineNr">258 </span> i <span class="SpecialChar"><-</span> increment -<span id="L259" class="LineNr">259 </span> <span class="PreProc">loop</span> -<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> -<span id="L261" class="LineNr">261 </span> <span class="PreProc">return</span> i -<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span> -<span id="L263" class="LineNr">263 </span> -<span id="L264" class="LineNr">264 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L264'>reverse-digits</a></span> _buf: (addr array byte), n: int <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> buf/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L268" class="LineNr">268 </span> right <span class="SpecialChar"><-</span> decrement -<span id="L269" class="LineNr">269 </span> <span class="Delimiter">{</span> -<span id="L270" class="LineNr">270 </span> compare left, right -<span id="L271" class="LineNr">271 </span> <span class="PreProc">break-if->=</span> -<span id="L272" class="LineNr">272 </span> <span class="Delimiter">{</span> -<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> l-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, left -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> r-a/<span class="Constant">edx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, right -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> l/<span class="Constant">ebx</span>: byte <span class="SpecialChar"><-</span> copy-byte *l-a -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *r-a -<span id="L277" class="LineNr">277 </span> copy-byte-to *l-a, r -<span id="L278" class="LineNr">278 </span> copy-byte-to *r-a, l -<span id="L279" class="LineNr">279 </span> <span class="Delimiter">}</span> -<span id="L280" class="LineNr">280 </span> left <span class="SpecialChar"><-</span> increment -<span id="L281" class="LineNr">281 </span> right <span class="SpecialChar"><-</span> decrement -<span id="L282" class="LineNr">282 </span> <span class="PreProc">loop</span> -<span id="L283" class="LineNr">283 </span> <span class="Delimiter">}</span> -<span id="L284" class="LineNr">284 </span><span class="Delimiter">}</span> -<span id="L285" class="LineNr">285 </span> -<span id="L286" class="LineNr">286 </span><span class="muComment"># debug helper</span> -<span id="L287" class="LineNr">287 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L287'>dump-digits</a></span> _buf: (addr array byte), count: int, msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L290" class="LineNr">290 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, msg -<span id="L291" class="LineNr">291 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">": "</span> -<span id="L292" class="LineNr">292 </span> <span class="Delimiter">{</span> -<span id="L293" class="LineNr">293 </span> compare i, count -<span id="L294" class="LineNr">294 </span> <span class="PreProc">break-if->=</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> curr-byte/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *curr -<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> curr-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy curr-byte -<span id="L298" class="LineNr">298 </span> <a href='405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, curr-int -<span id="L299" class="LineNr">299 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L300" class="LineNr">300 </span> <span class="PreProc">break-if-=</span> -<span id="L301" class="LineNr">301 </span> i <span class="SpecialChar"><-</span> increment -<span id="L302" class="LineNr">302 </span> <span class="PreProc">loop</span> -<span id="L303" class="LineNr">303 </span> <span class="Delimiter">}</span> -<span id="L304" class="LineNr">304 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L305" class="LineNr">305 </span><span class="Delimiter">}</span> -<span id="L306" class="LineNr">306 </span> -<span id="L307" class="LineNr">307 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L307'>double-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L309" class="LineNr">309 </span> <span class="muComment"># initialize delta</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> delta/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L311" class="LineNr">311 </span> <span class="Delimiter">{</span> -<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, <span class="Constant">0</span> -<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *curr -<span id="L314" class="LineNr">314 </span> compare tmp, <span class="Constant">5</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">break-if-<</span> -<span id="L316" class="LineNr">316 </span> delta <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L317" class="LineNr">317 </span> <span class="Delimiter">}</span> -<span id="L318" class="LineNr">318 </span> <span class="muComment"># loop</span> -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L321" class="LineNr">321 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L322" class="LineNr">322 </span> <span class="Delimiter">{</span> -<span id="L323" class="LineNr">323 </span> compare i, <span class="Constant">0</span> -<span id="L324" class="LineNr">324 </span> <span class="PreProc">break-if-<=</span> -<span id="L325" class="LineNr">325 </span> <span class="muComment"># x += 2*buf[i]</span> -<span id="L326" class="LineNr">326 </span> <span class="Delimiter">{</span> -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *tmp -<span id="L329" class="LineNr">329 </span> x <span class="SpecialChar"><-</span> add tmp2 -<span id="L330" class="LineNr">330 </span> x <span class="SpecialChar"><-</span> add tmp2 -<span id="L331" class="LineNr">331 </span> <span class="Delimiter">}</span> -<span id="L332" class="LineNr">332 </span> <span class="muComment"># x, buf[i+delta] = x/10, x%10</span> -<span id="L333" class="LineNr">333 </span> <span class="Delimiter">{</span> -<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> dest-index/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy i -<span id="L335" class="LineNr">335 </span> dest-index <span class="SpecialChar"><-</span> add delta -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, dest-index -<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> next-digit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L338" class="LineNr">338 </span> x, next-digit <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">0xa</span> -<span id="L339" class="LineNr">339 </span> copy-byte-to *dest, next-digit -<span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> -<span id="L341" class="LineNr">341 </span> <span class="muComment">#</span> -<span id="L342" class="LineNr">342 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L343" class="LineNr">343 </span> <span class="PreProc">loop</span> -<span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> -<span id="L345" class="LineNr">345 </span> <span class="muComment"># final patch-up</span> -<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L347" class="LineNr">347 </span> compare delta, <span class="Constant">1</span> -<span id="L348" class="LineNr">348 </span> <span class="Delimiter">{</span> -<span id="L349" class="LineNr">349 </span> <span class="PreProc">break-if-!=</span> -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, <span class="Constant">0</span> -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> one/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L352" class="LineNr">352 </span> copy-byte-to *curr, one -<span id="L353" class="LineNr">353 </span> n <span class="SpecialChar"><-</span> increment -<span id="L354" class="LineNr">354 </span> <span class="Delimiter">}</span> -<span id="L355" class="LineNr">355 </span> <span class="PreProc">return</span> n -<span id="L356" class="LineNr">356 </span><span class="Delimiter">}</span> -<span id="L357" class="LineNr">357 </span> -<span id="L358" class="LineNr">358 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L358'>halve-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int, _dp: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _dp -<span id="L362" class="LineNr">362 </span> <span class="muComment"># initialize one side</span> -<span id="L363" class="LineNr">363 </span> <span class="Delimiter">{</span> -<span id="L364" class="LineNr">364 </span> <span class="muComment"># if buf[n-1]%2 == 0, break</span> -<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> right-index/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L366" class="LineNr">366 </span> right-index <span class="SpecialChar"><-</span> decrement -<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> right-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, right-index -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *right-a -<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> right-int/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy right -<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L371" class="LineNr">371 </span> <span class="Delimiter">{</span> -<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L373" class="LineNr">373 </span> dummy, remainder <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> right-int, <span class="Constant">2</span> -<span id="L374" class="LineNr">374 </span> <span class="Delimiter">}</span> -<span id="L375" class="LineNr">375 </span> compare remainder, <span class="Constant">0</span> -<span id="L376" class="LineNr">376 </span> <span class="PreProc">break-if-=</span> -<span id="L377" class="LineNr">377 </span> <span class="muComment"># buf[n] = 0</span> -<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> next-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, n -<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> zero/<span class="Constant">edx</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L380" class="LineNr">380 </span> copy-byte-to *next-a, zero -<span id="L381" class="LineNr">381 </span> <span class="muComment"># n++</span> -<span id="L382" class="LineNr">382 </span> n <span class="SpecialChar"><-</span> increment -<span id="L383" class="LineNr">383 </span> <span class="Delimiter">}</span> -<span id="L384" class="LineNr">384 </span> <span class="muComment"># initialize the other</span> -<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> delta/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L386" class="LineNr">386 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L387" class="LineNr">387 </span> <span class="Delimiter">{</span> -<span id="L388" class="LineNr">388 </span> <span class="muComment"># if buf[0] >= 2, break</span> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, <span class="Constant">0</span> -<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *left -<span id="L391" class="LineNr">391 </span> compare src, <span class="Constant">2</span> -<span id="L392" class="LineNr">392 </span> <span class="PreProc">break-if->=</span> -<span id="L393" class="LineNr">393 </span> <span class="muComment"># delta, x = 1, buf[0]</span> -<span id="L394" class="LineNr">394 </span> delta <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L395" class="LineNr">395 </span> x <span class="SpecialChar"><-</span> copy src -<span id="L396" class="LineNr">396 </span> <span class="muComment"># n--</span> -<span id="L397" class="LineNr">397 </span> n <span class="SpecialChar"><-</span> decrement -<span id="L398" class="LineNr">398 </span> <span class="muComment"># dp--</span> -<span id="L399" class="LineNr">399 </span> dp <span class="SpecialChar"><-</span> decrement -<span id="L400" class="LineNr">400 </span> <span class="Delimiter">}</span> -<span id="L401" class="LineNr">401 </span> <span class="muComment"># loop</span> -<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L403" class="LineNr">403 </span> <span class="Delimiter">{</span> -<span id="L404" class="LineNr">404 </span> compare i, n -<span id="L405" class="LineNr">405 </span> <span class="PreProc">break-if->=</span> -<span id="L406" class="LineNr">406 </span> <span class="muComment"># x = x*10 + buf[i+delta]</span> -<span id="L407" class="LineNr">407 </span> <span class="Delimiter">{</span> -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> ten/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> -<span id="L409" class="LineNr">409 </span> x <span class="SpecialChar"><-</span> multiply ten -<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> src-index/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy i -<span id="L411" class="LineNr">411 </span> src-index <span class="SpecialChar"><-</span> add delta -<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> src-a/<span class="Constant">edx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, src-index -<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: byte <span class="SpecialChar"><-</span> copy-byte *src-a -<span id="L414" class="LineNr">414 </span> x <span class="SpecialChar"><-</span> add src -<span id="L415" class="LineNr">415 </span> <span class="Delimiter">}</span> -<span id="L416" class="LineNr">416 </span> <span class="muComment"># buf[i], x = x/2, x%2</span> -<span id="L417" class="LineNr">417 </span> <span class="Delimiter">{</span> -<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> quotient/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L420" class="LineNr">420 </span> quotient, remainder <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">2</span> -<span id="L421" class="LineNr">421 </span> x <span class="SpecialChar"><-</span> copy remainder -<span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L423" class="LineNr">423 </span> copy-byte-to *dest, quotient -<span id="L424" class="LineNr">424 </span> <span class="Delimiter">}</span> -<span id="L425" class="LineNr">425 </span> <span class="muComment">#</span> -<span id="L426" class="LineNr">426 </span> i <span class="SpecialChar"><-</span> increment -<span id="L427" class="LineNr">427 </span> <span class="PreProc">loop</span> -<span id="L428" class="LineNr">428 </span> <span class="Delimiter">}</span> -<span id="L429" class="LineNr">429 </span> <span class="PreProc">return</span> n, dp -<span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> -<span id="L431" class="LineNr">431 </span> -<span id="L432" class="LineNr">432 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L432'>print-float-buffer</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), _buf: (addr array byte), n: int, dp: int, precision: int <span class="Delimiter">{</span> -<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L434" class="LineNr">434 </span><span class="CommentedCode">#? print-int32-hex 0, dp</span> -<span id="L435" class="LineNr">435 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L436" class="LineNr">436 </span> <span class="Delimiter">{</span> -<span id="L437" class="LineNr">437 </span> compare dp, <span class="Constant">0</span> -<span id="L438" class="LineNr">438 </span> <span class="PreProc">break-if->=</span> -<span id="L439" class="LineNr">439 </span> <a href='412print-float-decimal.mu.html#L482'>print-float-buffer-in-scientific-notation</a> <a href='405screen.mu.html#L9'>screen</a>, buf, n, dp, precision -<span id="L440" class="LineNr">440 </span> <span class="PreProc">return</span> -<span id="L441" class="LineNr">441 </span> <span class="Delimiter">}</span> -<span id="L442" class="LineNr">442 </span> <span class="Delimiter">{</span> -<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L444" class="LineNr">444 </span> compare dp2, precision -<span id="L445" class="LineNr">445 </span> <span class="PreProc">break-if-<=</span> -<span id="L446" class="LineNr">446 </span> <a href='412print-float-decimal.mu.html#L482'>print-float-buffer-in-scientific-notation</a> <a href='405screen.mu.html#L9'>screen</a>, buf, n, dp, precision -<span id="L447" class="LineNr">447 </span> <span class="PreProc">return</span> -<span id="L448" class="LineNr">448 </span> <span class="Delimiter">}</span> -<span id="L449" class="LineNr">449 </span> <span class="Delimiter">{</span> -<span id="L450" class="LineNr">450 </span> compare dp, <span class="Constant">0</span> -<span id="L451" class="LineNr">451 </span> <span class="PreProc">break-if-!=</span> -<span id="L452" class="LineNr">452 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"0"</span> -<span id="L453" class="LineNr">453 </span> <span class="Delimiter">}</span> -<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L455" class="LineNr">455 </span> <span class="muComment"># bounds = min(n, dp+3)</span> -<span id="L456" class="LineNr">456 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L457" class="LineNr">457 </span> limit <span class="SpecialChar"><-</span> add <span class="Constant">3</span> -<span id="L458" class="LineNr">458 </span> <span class="Delimiter">{</span> -<span id="L459" class="LineNr">459 </span> compare limit, n -<span id="L460" class="LineNr">460 </span> <span class="PreProc">break-if-<=</span> -<span id="L461" class="LineNr">461 </span> limit <span class="SpecialChar"><-</span> copy n -<span id="L462" class="LineNr">462 </span> <span class="Delimiter">}</span> -<span id="L463" class="LineNr">463 </span> <span class="Delimiter">{</span> -<span id="L464" class="LineNr">464 </span> compare i, limit -<span id="L465" class="LineNr">465 </span> <span class="PreProc">break-if->=</span> -<span id="L466" class="LineNr">466 </span> <span class="muComment"># print '.' if necessary</span> -<span id="L467" class="LineNr">467 </span> compare i, dp -<span id="L468" class="LineNr">468 </span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">break-if-!=</span> -<span id="L470" class="LineNr">470 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"."</span> -<span id="L471" class="LineNr">471 </span> <span class="Delimiter">}</span> -<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *curr-a -<span id="L474" class="LineNr">474 </span> curr <span class="SpecialChar"><-</span> add <span class="Constant">0x30</span> <span class="muComment"># '0'</span> -<span id="L475" class="LineNr">475 </span> <span class="PreProc">var</span> curr-grapheme/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy curr -<span id="L476" class="LineNr">476 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, curr-grapheme -<span id="L477" class="LineNr">477 </span> i <span class="SpecialChar"><-</span> increment -<span id="L478" class="LineNr">478 </span> <span class="PreProc">loop</span> -<span id="L479" class="LineNr">479 </span> <span class="Delimiter">}</span> -<span id="L480" class="LineNr">480 </span><span class="Delimiter">}</span> -<span id="L481" class="LineNr">481 </span> -<span id="L482" class="LineNr">482 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L482'>print-float-buffer-in-scientific-notation</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), _buf: (addr array byte), n: int, dp: int, precision: int <span class="Delimiter">{</span> -<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L484" class="LineNr">484 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L485" class="LineNr">485 </span> <span class="Delimiter">{</span> -<span id="L486" class="LineNr">486 </span> compare i, n -<span id="L487" class="LineNr">487 </span> <span class="PreProc">break-if->=</span> -<span id="L488" class="LineNr">488 </span> compare i, precision -<span id="L489" class="LineNr">489 </span> <span class="PreProc">break-if->=</span> -<span id="L490" class="LineNr">490 </span> compare i, <span class="Constant">1</span> -<span id="L491" class="LineNr">491 </span> <span class="Delimiter">{</span> -<span id="L492" class="LineNr">492 </span> <span class="PreProc">break-if-!=</span> -<span id="L493" class="LineNr">493 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"."</span> -<span id="L494" class="LineNr">494 </span> <span class="Delimiter">}</span> -<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L496" class="LineNr">496 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *curr-a -<span id="L497" class="LineNr">497 </span> curr <span class="SpecialChar"><-</span> add <span class="Constant">0x30</span> <span class="muComment"># '0'</span> -<span id="L498" class="LineNr">498 </span> <span class="PreProc">var</span> curr-grapheme/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy curr -<span id="L499" class="LineNr">499 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, curr-grapheme -<span id="L500" class="LineNr">500 </span> <span class="muComment">#</span> -<span id="L501" class="LineNr">501 </span> i <span class="SpecialChar"><-</span> increment -<span id="L502" class="LineNr">502 </span> <span class="PreProc">loop</span> -<span id="L503" class="LineNr">503 </span> <span class="Delimiter">}</span> -<span id="L504" class="LineNr">504 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"e"</span> -<span id="L505" class="LineNr">505 </span> decrement dp -<span id="L506" class="LineNr">506 </span> <a href='405screen.mu.html#L480'>print-int32-decimal</a> <a href='405screen.mu.html#L9'>screen</a>, dp -<span id="L507" class="LineNr">507 </span><span class="Delimiter">}</span> -<span id="L508" class="LineNr">508 </span> -<span id="L509" class="LineNr">509 </span><span class="muComment"># follows the structure of print-float-decimal-approximate</span> -<span id="L510" class="LineNr">510 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> -<span id="L511" class="LineNr">511 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L511'>float-size</a></span> in: float, precision: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L512" class="LineNr">512 </span> <span class="muComment"># - special names</span> -<span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> reinterpret in -<span id="L514" class="LineNr">514 </span> compare bits, <span class="Constant">0</span> -<span id="L515" class="LineNr">515 </span> <span class="Delimiter">{</span> -<span id="L516" class="LineNr">516 </span> <span class="PreProc">break-if-!=</span> -<span id="L517" class="LineNr">517 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># "0"</span> -<span id="L518" class="LineNr">518 </span> <span class="Delimiter">}</span> -<span id="L519" class="LineNr">519 </span> compare bits, <span class="Constant">0x80000000</span> -<span id="L520" class="LineNr">520 </span> <span class="Delimiter">{</span> -<span id="L521" class="LineNr">521 </span> <span class="PreProc">break-if-!=</span> -<span id="L522" class="LineNr">522 </span> <span class="PreProc">return</span> <span class="Constant">2</span> <span class="muComment"># "-0"</span> -<span id="L523" class="LineNr">523 </span> <span class="Delimiter">}</span> -<span id="L524" class="LineNr">524 </span> compare bits, <span class="Constant">0x7f800000</span> -<span id="L525" class="LineNr">525 </span> <span class="Delimiter">{</span> -<span id="L526" class="LineNr">526 </span> <span class="PreProc">break-if-!=</span> -<span id="L527" class="LineNr">527 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># "Inf"</span> -<span id="L528" class="LineNr">528 </span> <span class="Delimiter">}</span> -<span id="L529" class="LineNr">529 </span> compare bits, <span class="Constant">0xff800000</span> -<span id="L530" class="LineNr">530 </span> <span class="Delimiter">{</span> -<span id="L531" class="LineNr">531 </span> <span class="PreProc">break-if-!=</span> -<span id="L532" class="LineNr">532 </span> <span class="PreProc">return</span> <span class="Constant">4</span> <span class="muComment"># "-Inf"</span> -<span id="L533" class="LineNr">533 </span> <span class="Delimiter">}</span> -<span id="L534" class="LineNr">534 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L535" class="LineNr">535 </span> exponent <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> -<span id="L536" class="LineNr">536 </span> exponent <span class="SpecialChar"><-</span> and <span class="Constant">0xff</span> -<span id="L537" class="LineNr">537 </span> exponent <span class="SpecialChar"><-</span> subtract <span class="Constant">0x7f</span> -<span id="L538" class="LineNr">538 </span> compare exponent, <span class="Constant">0x80</span> -<span id="L539" class="LineNr">539 </span> <span class="Delimiter">{</span> -<span id="L540" class="LineNr">540 </span> <span class="PreProc">break-if-!=</span> -<span id="L541" class="LineNr">541 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># "NaN"</span> -<span id="L542" class="LineNr">542 </span> <span class="Delimiter">}</span> -<span id="L543" class="LineNr">543 </span> <span class="muComment"># - regular numbers</span> -<span id="L544" class="LineNr">544 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> -<span id="L545" class="LineNr">545 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L546" class="LineNr">546 </span> v <span class="SpecialChar"><-</span> and <span class="Constant">0x7fffff</span> -<span id="L547" class="LineNr">547 </span> v <span class="SpecialChar"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> -<span id="L548" class="LineNr">548 </span> <span class="muComment"># e = exponent - 0x17</span> -<span id="L549" class="LineNr">549 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy exponent -<span id="L550" class="LineNr">550 </span> e <span class="SpecialChar"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> -<span id="L551" class="LineNr">551 </span> -<span id="L552" class="LineNr">552 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> -<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) -<span id="L554" class="LineNr">554 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> address buf-storage -<span id="L555" class="LineNr">555 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412print-float-decimal.mu.html#L247'>decimal-digits</a> v, buf -<span id="L556" class="LineNr">556 </span> <a href='412print-float-decimal.mu.html#L264'>reverse-digits</a> buf, n -<span id="L557" class="LineNr">557 </span> -<span id="L558" class="LineNr">558 </span> <span class="muComment"># loop if e > 0</span> -<span id="L559" class="LineNr">559 </span> <span class="Delimiter">{</span> -<span id="L560" class="LineNr">560 </span> compare e, <span class="Constant">0</span> -<span id="L561" class="LineNr">561 </span> <span class="PreProc">break-if-<=</span> -<span id="L562" class="LineNr">562 </span> n <span class="SpecialChar"><-</span> <a href='412print-float-decimal.mu.html#L307'>double-array-of-decimal-digits</a> buf, n -<span id="L563" class="LineNr">563 </span> e <span class="SpecialChar"><-</span> decrement -<span id="L564" class="LineNr">564 </span> <span class="PreProc">loop</span> -<span id="L565" class="LineNr">565 </span> <span class="Delimiter">}</span> -<span id="L566" class="LineNr">566 </span> -<span id="L567" class="LineNr">567 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L568" class="LineNr">568 </span> -<span id="L569" class="LineNr">569 </span> <span class="muComment"># loop if e < 0</span> -<span id="L570" class="LineNr">570 </span> <span class="Delimiter">{</span> -<span id="L571" class="LineNr">571 </span> compare e, <span class="Constant">0</span> -<span id="L572" class="LineNr">572 </span> <span class="PreProc">break-if->=</span> -<span id="L573" class="LineNr">573 </span> n, dp <span class="SpecialChar"><-</span> <a href='412print-float-decimal.mu.html#L358'>halve-array-of-decimal-digits</a> buf, n, dp -<span id="L574" class="LineNr">574 </span> e <span class="SpecialChar"><-</span> increment -<span id="L575" class="LineNr">575 </span> <span class="PreProc">loop</span> -<span id="L576" class="LineNr">576 </span> <span class="Delimiter">}</span> -<span id="L577" class="LineNr">577 </span> -<span id="L578" class="LineNr">578 </span> compare dp, <span class="Constant">0</span> -<span id="L579" class="LineNr">579 </span> <span class="Delimiter">{</span> -<span id="L580" class="LineNr">580 </span> <span class="PreProc">break-if->=</span> -<span id="L581" class="LineNr">581 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> -<span id="L582" class="LineNr">582 </span> <span class="Delimiter">}</span> -<span id="L583" class="LineNr">583 </span> <span class="Delimiter">{</span> -<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L585" class="LineNr">585 </span> compare dp2, precision -<span id="L586" class="LineNr">586 </span> <span class="PreProc">break-if-<=</span> -<span id="L587" class="LineNr">587 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> -<span id="L588" class="LineNr">588 </span> <span class="Delimiter">}</span> -<span id="L589" class="LineNr">589 </span> -<span id="L590" class="LineNr">590 </span> <span class="muComment"># result = min(n, dp+3)</span> -<span id="L591" class="LineNr">591 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L592" class="LineNr">592 </span> result <span class="SpecialChar"><-</span> add <span class="Constant">3</span> -<span id="L593" class="LineNr">593 </span> <span class="Delimiter">{</span> -<span id="L594" class="LineNr">594 </span> compare result, n -<span id="L595" class="LineNr">595 </span> <span class="PreProc">break-if-<=</span> -<span id="L596" class="LineNr">596 </span> result <span class="SpecialChar"><-</span> copy n -<span id="L597" class="LineNr">597 </span> <span class="Delimiter">}</span> -<span id="L598" class="LineNr">598 </span> -<span id="L599" class="LineNr">599 </span> <span class="muComment"># account for decimal point</span> -<span id="L600" class="LineNr">600 </span> compare dp, n -<span id="L601" class="LineNr">601 </span> <span class="Delimiter">{</span> -<span id="L602" class="LineNr">602 </span> <span class="PreProc">break-if->=</span> -<span id="L603" class="LineNr">603 </span> result <span class="SpecialChar"><-</span> increment -<span id="L604" class="LineNr">604 </span> <span class="Delimiter">}</span> -<span id="L605" class="LineNr">605 </span> -<span id="L606" class="LineNr">606 </span> <span class="muComment"># account for sign</span> -<span id="L607" class="LineNr">607 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> reinterpret in -<span id="L608" class="LineNr">608 </span> sign <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x1f</span> -<span id="L609" class="LineNr">609 </span> <span class="Delimiter">{</span> -<span id="L610" class="LineNr">610 </span> compare sign, <span class="Constant">1</span> -<span id="L611" class="LineNr">611 </span> <span class="PreProc">break-if-!=</span> -<span id="L612" class="LineNr">612 </span> result <span class="SpecialChar"><-</span> increment -<span id="L613" class="LineNr">613 </span> <span class="Delimiter">}</span> -<span id="L614" class="LineNr">614 </span> <span class="PreProc">return</span> result -<span id="L615" class="LineNr">615 </span><span class="Delimiter">}</span> -<span id="L616" class="LineNr">616 </span> -<span id="L617" class="LineNr">617 </span><span class="muComment">## helper</span> -<span id="L618" class="LineNr">618 </span> -<span id="L619" class="LineNr">619 </span><span class="muComment"># like check-strings-equal, except array sizes don't have to match</span> -<span id="L620" class="LineNr">620 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L620'>check-buffer-contains</a></span> _buf: (addr array byte), _contents: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L621" class="LineNr">621 </span> <span class="PreProc">var</span> buf/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L622" class="LineNr">622 </span> <span class="PreProc">var</span> contents/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _contents -<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='105string-equal.subx.html#L57'>string-starts-with?</a> buf, contents -<span id="L624" class="LineNr">624 </span> <a href='401test.mu.html#L3'>check-true</a> a, msg -<span id="L625" class="LineNr">625 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length contents -<span id="L626" class="LineNr">626 </span> <span class="PreProc">var</span> len2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> length buf -<span id="L627" class="LineNr">627 </span> compare len, len2 -<span id="L628" class="LineNr">628 </span> <span class="PreProc">break-if-=</span> -<span id="L629" class="LineNr">629 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, len -<span id="L630" class="LineNr">630 </span> <span class="PreProc">var</span> d/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *c -<span id="L631" class="LineNr">631 </span> <span class="PreProc">var</span> e/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy d -<span id="L632" class="LineNr">632 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> e, <span class="Constant">0</span>, msg -<span id="L633" class="LineNr">633 </span><span class="Delimiter">}</span> -<span id="L634" class="LineNr">634 </span> -<span id="L635" class="LineNr">635 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L635'>test-check-buffer-contains</a></span> <span class="Delimiter">{</span> -<span id="L636" class="LineNr">636 </span> <span class="PreProc">var</span> arr: (array byte <span class="Constant">4</span>) -<span id="L637" class="LineNr">637 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> address arr -<span id="L638" class="LineNr">638 </span> <span class="PreProc">var</span> b/<span class="Constant">eax</span>: (addr byte) <span class="SpecialChar"><-</span> index a, <span class="Constant">0</span> -<span id="L639" class="LineNr">639 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L640" class="LineNr">640 </span> copy-byte-to *b, c -<span id="L641" class="LineNr">641 </span> <a href='412print-float-decimal.mu.html#L620'>check-buffer-contains</a> a, <span class="Constant">"a"</span>, <span class="Constant">"F - test-check-buffer-contains"</span> -<span id="L642" class="LineNr">642 </span> <a href='412print-float-decimal.mu.html#L620'>check-buffer-contains</a> <span class="Constant">"a"</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L635'>test-check-buffer-contains</a>/null"</span> <span class="muComment"># no null check when arrays have same length</span> -<span id="L643" class="LineNr">643 </span><span class="Delimiter">}</span> -<span id="L644" class="LineNr">644 </span> -<span id="L645" class="LineNr">645 </span><span class="CommentedCode">#? fn main -> _/ebx: int {</span> -<span id="L646" class="LineNr">646 </span><span class="CommentedCode">#? run-tests</span> -<span id="L647" class="LineNr">647 </span><span class="CommentedCode">#? #? test-print-float-decimal-approximate-integer</span> -<span id="L648" class="LineNr">648 </span><span class="CommentedCode">#? #? test-print-float-decimal-approximate-normal</span> -<span id="L649" class="LineNr">649 </span><span class="CommentedCode">#? return 0</span> -<span id="L650" class="LineNr">650 </span><span class="CommentedCode">#? }</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/412render-float-decimal.mu.html b/html/412render-float-decimal.mu.html new file mode 100644 index 00000000..04663aca --- /dev/null +++ b/html/412render-float-decimal.mu.html @@ -0,0 +1,660 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - 412render-float-decimal.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Delimiter { color: #c000c0; } +.Special { color: #ff6060; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/412render-float-decimal.mu'>https://github.com/akkartik/mu/blob/main/412render-float-decimal.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># print out floats in decimal</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Basic idea:</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># Ignoring sign, floating point numbers are represented as 1.mantissa * 2^exponent</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Therefore, to print a float in decimal, we need to:</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># - compute its value without decimal point</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># - convert to an array of decimal digits</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># - print out the array while inserting the decimal point appropriately</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment">#</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># Basic complication: the computation generates numbers larger than an int can</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># hold. We need a way to represent big ints.</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment">#</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># Key insight: use a representation for big ints that's close to what we need</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># anyway, an array of decimal digits.</span> +<span id="L16" class="LineNr"> 16 </span><span class="muComment">#</span> +<span id="L17" class="LineNr"> 17 </span><span class="muComment"># Style note: we aren't creating a big int library here. The only operations</span> +<span id="L18" class="LineNr"> 18 </span><span class="muComment"># we need are halving and doubling. Following the link above, it seems more</span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment"># comprehensible to keep these operations inlined so that we can track the</span> +<span id="L20" class="LineNr"> 20 </span><span class="muComment"># position of the decimal point with dispatch.</span> +<span id="L21" class="LineNr"> 21 </span><span class="muComment">#</span> +<span id="L22" class="LineNr"> 22 </span><span class="muComment"># This approach turns out to be fast enough for most purposes.</span> +<span id="L23" class="LineNr"> 23 </span><span class="muComment"># Optimizations, however, get wildly more complex.</span> +<span id="L24" class="LineNr"> 24 </span> +<span id="L25" class="LineNr"> 25 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a></span> <span class="Delimiter">{</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># 0.5</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> half/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L30" class="LineNr"> 30 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, half, <span class="Constant">3</span> +<span id="L31" class="LineNr"> 31 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.5"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.5"</span> +<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># 0.25</span> +<span id="L33" class="LineNr"> 33 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> quarter/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L35" class="LineNr"> 35 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, quarter, <span class="Constant">3</span> +<span id="L36" class="LineNr"> 36 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.25"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.25"</span> +<span id="L37" class="LineNr"> 37 </span> <span class="muComment"># 0.75</span> +<span id="L38" class="LineNr"> 38 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> three-quarters/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">3</span>, <span class="Constant">4</span> +<span id="L40" class="LineNr"> 40 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, three-quarters, <span class="Constant">3</span> +<span id="L41" class="LineNr"> 41 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.75"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.75"</span> +<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 0.125</span> +<span id="L43" class="LineNr"> 43 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> eighth/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">8</span> +<span id="L45" class="LineNr"> 45 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, eighth, <span class="Constant">3</span> +<span id="L46" class="LineNr"> 46 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.125"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.125"</span> +<span id="L47" class="LineNr"> 47 </span> <span class="muComment"># 0.0625; start using scientific notation</span> +<span id="L48" class="LineNr"> 48 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> sixteenth/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">0x10</span> +<span id="L50" class="LineNr"> 50 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, sixteenth, <span class="Constant">3</span> +<span id="L51" class="LineNr"> 51 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"6.25e-2"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.0625"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># sqrt(2); truncate floats with lots of digits after the decimal but not too many before</span> +<span id="L53" class="LineNr"> 53 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> sqrt-2/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> square-root two-f +<span id="L56" class="LineNr"> 56 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, sqrt-2, <span class="Constant">3</span> +<span id="L57" class="LineNr"> 57 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1.414"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> √2"</span> +<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="muComment"># print whole integers without decimals</span> +<span id="L61" class="LineNr"> 61 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a></span> <span class="Delimiter">{</span> +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L64" class="LineNr"> 64 </span> <span class="muComment"># 1</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L66" class="LineNr"> 66 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, one-f, <span class="Constant">3</span> +<span id="L67" class="LineNr"> 67 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 1"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="muComment"># 2</span> +<span id="L69" class="LineNr"> 69 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> +<span id="L71" class="LineNr"> 71 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, two-f, <span class="Constant">3</span> +<span id="L72" class="LineNr"> 72 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"2"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 2"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="muComment"># 10</span> +<span id="L74" class="LineNr"> 74 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0xa</span>, <span class="Constant">1</span> +<span id="L76" class="LineNr"> 76 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, ten-f, <span class="Constant">3</span> +<span id="L77" class="LineNr"> 77 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"10"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 10"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="muComment"># -10</span> +<span id="L79" class="LineNr"> 79 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">-0xa</span>, <span class="Constant">1</span> +<span id="L81" class="LineNr"> 81 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, minus-ten-f, <span class="Constant">3</span> +<span id="L82" class="LineNr"> 82 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"-10"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> -10"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="muComment"># 999</span> +<span id="L84" class="LineNr"> 84 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e7</span>, <span class="Constant">1</span> +<span id="L86" class="LineNr"> 86 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, minus-ten-f, <span class="Constant">3</span> +<span id="L87" class="LineNr"> 87 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"999"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 1000"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="muComment"># 1000 - start using scientific notation</span> +<span id="L89" class="LineNr"> 89 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e8</span>, <span class="Constant">1</span> +<span id="L91" class="LineNr"> 91 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, minus-ten-f, <span class="Constant">3</span> +<span id="L92" class="LineNr"> 92 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1.00e3"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 1000"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="muComment"># 100,000</span> +<span id="L94" class="LineNr"> 94 </span> <a href='106stream.subx.html#L20'>clear-stream</a> s +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> hundred-thousand/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0x186a0</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> hundred-thousand-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert hundred-thousand +<span id="L97" class="LineNr"> 97 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, hundred-thousand-f, <span class="Constant">3</span> +<span id="L98" class="LineNr"> 98 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1.00e5"</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 100,000"</span> +<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L101'>test-write-float-decimal-approximate-zero</a></span> <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> zero: float +<span id="L105" class="LineNr">105 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, zero, <span class="Constant">3</span> +<span id="L106" class="LineNr">106 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-zero"</span> +<span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> +<span id="L109" class="LineNr">109 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L109'>test-write-float-decimal-approximate-negative-zero</a></span> <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> n: int +<span id="L113" class="LineNr">113 </span> copy-to n, <span class="Constant">0x80000000</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> negative-zero/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L115" class="LineNr">115 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, negative-zero, <span class="Constant">3</span> +<span id="L116" class="LineNr">116 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"-0"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-negative-zero"</span> +<span id="L117" class="LineNr">117 </span><span class="Delimiter">}</span> +<span id="L118" class="LineNr">118 </span> +<span id="L119" class="LineNr">119 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L119'>test-write-float-decimal-approximate-infinity</a></span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> n: int +<span id="L123" class="LineNr">123 </span> <span class="muComment"># 0|11111111|00000000000000000000000</span> +<span id="L124" class="LineNr">124 </span> <span class="muComment"># 0111|1111|1000|0000|0000|0000|0000|0000</span> +<span id="L125" class="LineNr">125 </span> copy-to n, <span class="Constant">0x7f800000</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> infinity/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L127" class="LineNr">127 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, infinity, <span class="Constant">3</span> +<span id="L128" class="LineNr">128 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"Inf"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-infinity"</span> +<span id="L129" class="LineNr">129 </span><span class="Delimiter">}</span> +<span id="L130" class="LineNr">130 </span> +<span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L131'>test-write-float-decimal-approximate-negative-infinity</a></span> <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> n: int +<span id="L135" class="LineNr">135 </span> copy-to n, <span class="Constant">0xff800000</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L137" class="LineNr">137 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, negative-infinity, <span class="Constant">3</span> +<span id="L138" class="LineNr">138 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"-Inf"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-negative-infinity"</span> +<span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> +<span id="L140" class="LineNr">140 </span> +<span id="L141" class="LineNr">141 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L141'>test-write-float-decimal-approximate-not-a-number</a></span> <span class="Delimiter">{</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> n: int +<span id="L145" class="LineNr">145 </span> copy-to n, <span class="Constant">0xffffffff</span> <span class="muComment"># exponent must be all 1's, and mantissa must be non-zero</span> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> nan/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L147" class="LineNr">147 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, nan, <span class="Constant">3</span> +<span id="L148" class="LineNr">148 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"NaN"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-not-a-number"</span> +<span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> +<span id="L150" class="LineNr">150 </span> +<span id="L151" class="LineNr">151 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L151'>render-float-decimal</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), in: float, precision: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> s/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L154" class="LineNr">154 </span> <a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> s, in, precision +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L157" class="LineNr">157 </span> width, height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L111'>draw-stream-rightward</a> <a href='500text-screen.mu.html#L9'>screen</a>, s, x, width, y, color, background-color +<span id="L159" class="LineNr">159 </span> <span class="PreProc">return</span> result +<span id="L160" class="LineNr">160 </span><span class="Delimiter">}</span> +<span id="L161" class="LineNr">161 </span> +<span id="L162" class="LineNr">162 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> +<span id="L163" class="LineNr">163 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a></span> out: (addr stream byte), in: float, precision: int <span class="Delimiter">{</span> +<span id="L164" class="LineNr">164 </span> <span class="muComment"># - special names</span> +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="Special"><-</span> reinterpret in +<span id="L166" class="LineNr">166 </span> compare bits, <span class="Constant">0</span> +<span id="L167" class="LineNr">167 </span> <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">break-if-!=</span> +<span id="L169" class="LineNr">169 </span> <a href='108write.subx.html#L11'>write</a> out, <span class="Constant">"0"</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">return</span> +<span id="L171" class="LineNr">171 </span> <span class="Delimiter">}</span> +<span id="L172" class="LineNr">172 </span> compare bits, <span class="Constant">0x80000000</span> +<span id="L173" class="LineNr">173 </span> <span class="Delimiter">{</span> +<span id="L174" class="LineNr">174 </span> <span class="PreProc">break-if-!=</span> +<span id="L175" class="LineNr">175 </span> <a href='108write.subx.html#L11'>write</a> out, <span class="Constant">"-0"</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">return</span> +<span id="L177" class="LineNr">177 </span> <span class="Delimiter">}</span> +<span id="L178" class="LineNr">178 </span> compare bits, <span class="Constant">0x7f800000</span> +<span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> +<span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if-!=</span> +<span id="L181" class="LineNr">181 </span> <a href='108write.subx.html#L11'>write</a> out, <span class="Constant">"Inf"</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">return</span> +<span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> +<span id="L184" class="LineNr">184 </span> compare bits, <span class="Constant">0xff800000</span> +<span id="L185" class="LineNr">185 </span> <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-!=</span> +<span id="L187" class="LineNr">187 </span> <a href='108write.subx.html#L11'>write</a> out, <span class="Constant">"-Inf"</span> +<span id="L188" class="LineNr">188 </span> <span class="PreProc">return</span> +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bits +<span id="L191" class="LineNr">191 </span> exponent <span class="Special"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> +<span id="L192" class="LineNr">192 </span> exponent <span class="Special"><-</span> and <span class="Constant">0xff</span> +<span id="L193" class="LineNr">193 </span> exponent <span class="Special"><-</span> subtract <span class="Constant">0x7f</span> +<span id="L194" class="LineNr">194 </span> compare exponent, <span class="Constant">0x80</span> +<span id="L195" class="LineNr">195 </span> <span class="Delimiter">{</span> +<span id="L196" class="LineNr">196 </span> <span class="PreProc">break-if-!=</span> +<span id="L197" class="LineNr">197 </span> <a href='108write.subx.html#L11'>write</a> out, <span class="Constant">"NaN"</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">return</span> +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> +<span id="L200" class="LineNr">200 </span> <span class="muComment"># - regular numbers</span> +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy bits +<span id="L202" class="LineNr">202 </span> sign <span class="Special"><-</span> shift-right <span class="Constant">0x1f</span> +<span id="L203" class="LineNr">203 </span> <span class="Delimiter">{</span> +<span id="L204" class="LineNr">204 </span> compare sign, <span class="Constant">1</span> +<span id="L205" class="LineNr">205 </span> <span class="PreProc">break-if-!=</span> +<span id="L206" class="LineNr">206 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, <span class="Constant">0x2d</span>/minus +<span id="L207" class="LineNr">207 </span> <span class="Delimiter">}</span> +<span id="L208" class="LineNr">208 </span> +<span id="L209" class="LineNr">209 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy bits +<span id="L211" class="LineNr">211 </span> v <span class="Special"><-</span> and <span class="Constant">0x7fffff</span> +<span id="L212" class="LineNr">212 </span> v <span class="Special"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> +<span id="L213" class="LineNr">213 </span> <span class="muComment"># e = exponent - 0x17</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy exponent +<span id="L215" class="LineNr">215 </span> e <span class="Special"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> +<span id="L216" class="LineNr">216 </span> +<span id="L217" class="LineNr">217 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> +<span id="L218" class="LineNr">218 </span> <span class="muComment"># unlike <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a>, no ascii here</span> +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> address buf-storage +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='412render-float-decimal.mu.html#L251'>decimal-digits</a> v, buf +<span id="L222" class="LineNr">222 </span> <span class="muComment"># I suspect we can do without reversing, but we'll follow <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> +<span id="L223" class="LineNr">223 </span> <span class="muComment"># closely for now.</span> +<span id="L224" class="LineNr">224 </span> <a href='412render-float-decimal.mu.html#L268'>reverse-digits</a> buf, n +<span id="L225" class="LineNr">225 </span> +<span id="L226" class="LineNr">226 </span> <span class="muComment"># loop if e > 0</span> +<span id="L227" class="LineNr">227 </span> <span class="Delimiter">{</span> +<span id="L228" class="LineNr">228 </span> compare e, <span class="Constant">0</span> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-<=</span> +<span id="L230" class="LineNr">230 </span> n <span class="Special"><-</span> <a href='412render-float-decimal.mu.html#L290'>double-array-of-decimal-digits</a> buf, n +<span id="L231" class="LineNr">231 </span> e <span class="Special"><-</span> decrement +<span id="L232" class="LineNr">232 </span> <span class="PreProc">loop</span> +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy n +<span id="L236" class="LineNr">236 </span> +<span id="L237" class="LineNr">237 </span> <span class="muComment"># loop if e < 0</span> +<span id="L238" class="LineNr">238 </span> <span class="Delimiter">{</span> +<span id="L239" class="LineNr">239 </span> compare e, <span class="Constant">0</span> +<span id="L240" class="LineNr">240 </span> <span class="PreProc">break-if->=</span> +<span id="L241" class="LineNr">241 </span> n, dp <span class="Special"><-</span> <a href='412render-float-decimal.mu.html#L341'>halve-array-of-decimal-digits</a> buf, n, dp +<span id="L242" class="LineNr">242 </span> e <span class="Special"><-</span> increment +<span id="L243" class="LineNr">243 </span> <span class="PreProc">loop</span> +<span id="L244" class="LineNr">244 </span> <span class="Delimiter">}</span> +<span id="L245" class="LineNr">245 </span> +<span id="L246" class="LineNr">246 </span> <a href='412render-float-decimal.mu.html#L415'>_write-float-array-of-decimal-digits</a> out, buf, n, dp, precision +<span id="L247" class="LineNr">247 </span><span class="Delimiter">}</span> +<span id="L248" class="LineNr">248 </span> +<span id="L249" class="LineNr">249 </span><span class="muComment"># store the decimal digits of 'n' into 'buf', units first</span> +<span id="L250" class="LineNr">250 </span><span class="muComment"># n must be positive</span> +<span id="L251" class="LineNr">251 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L251'>decimal-digits</a></span> n: int, _buf: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy n +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> curr-byte/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L256" class="LineNr">256 </span> <span class="Delimiter">{</span> +<span id="L257" class="LineNr">257 </span> compare curr, <span class="Constant">0</span> +<span id="L258" class="LineNr">258 </span> <span class="PreProc">break-if-=</span> +<span id="L259" class="LineNr">259 </span> curr, curr-byte <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> curr, <span class="Constant">0xa</span> +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L261" class="LineNr">261 </span> copy-byte-to *dest, curr-byte +<span id="L262" class="LineNr">262 </span> i <span class="Special"><-</span> increment +<span id="L263" class="LineNr">263 </span> <span class="PreProc">loop</span> +<span id="L264" class="LineNr">264 </span> <span class="Delimiter">}</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">return</span> i +<span id="L266" class="LineNr">266 </span><span class="Delimiter">}</span> +<span id="L267" class="LineNr">267 </span> +<span id="L268" class="LineNr">268 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L268'>reverse-digits</a></span> _buf: (addr array byte), n: int <span class="Delimiter">{</span> +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> buf/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy n +<span id="L272" class="LineNr">272 </span> right <span class="Special"><-</span> decrement +<span id="L273" class="LineNr">273 </span> <span class="Delimiter">{</span> +<span id="L274" class="LineNr">274 </span> compare left, right +<span id="L275" class="LineNr">275 </span> <span class="PreProc">break-if->=</span> +<span id="L276" class="LineNr">276 </span> <span class="Delimiter">{</span> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> l-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, left +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> r-a/<span class="Constant">edx</span>: (addr byte) <span class="Special"><-</span> index buf, right +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> l/<span class="Constant">ebx</span>: byte <span class="Special"><-</span> copy-byte *l-a +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *r-a +<span id="L281" class="LineNr">281 </span> copy-byte-to *l-a, r +<span id="L282" class="LineNr">282 </span> copy-byte-to *r-a, l +<span id="L283" class="LineNr">283 </span> <span class="Delimiter">}</span> +<span id="L284" class="LineNr">284 </span> left <span class="Special"><-</span> increment +<span id="L285" class="LineNr">285 </span> right <span class="Special"><-</span> decrement +<span id="L286" class="LineNr">286 </span> <span class="PreProc">loop</span> +<span id="L287" class="LineNr">287 </span> <span class="Delimiter">}</span> +<span id="L288" class="LineNr">288 </span><span class="Delimiter">}</span> +<span id="L289" class="LineNr">289 </span> +<span id="L290" class="LineNr">290 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L290'>double-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L292" class="LineNr">292 </span> <span class="muComment"># initialize delta</span> +<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> delta/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L294" class="LineNr">294 </span> <span class="Delimiter">{</span> +<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index buf, <span class="Constant">0</span> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *curr +<span id="L297" class="LineNr">297 </span> compare tmp, <span class="Constant">5</span> +<span id="L298" class="LineNr">298 </span> <span class="PreProc">break-if-<</span> +<span id="L299" class="LineNr">299 </span> delta <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L300" class="LineNr">300 </span> <span class="Delimiter">}</span> +<span id="L301" class="LineNr">301 </span> <span class="muComment"># loop</span> +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _n +<span id="L304" class="LineNr">304 </span> i <span class="Special"><-</span> decrement +<span id="L305" class="LineNr">305 </span> <span class="Delimiter">{</span> +<span id="L306" class="LineNr">306 </span> compare i, <span class="Constant">0</span> +<span id="L307" class="LineNr">307 </span> <span class="PreProc">break-if-<=</span> +<span id="L308" class="LineNr">308 </span> <span class="muComment"># x += 2*buf[i]</span> +<span id="L309" class="LineNr">309 </span> <span class="Delimiter">{</span> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *tmp +<span id="L312" class="LineNr">312 </span> x <span class="Special"><-</span> add tmp2 +<span id="L313" class="LineNr">313 </span> x <span class="Special"><-</span> add tmp2 +<span id="L314" class="LineNr">314 </span> <span class="Delimiter">}</span> +<span id="L315" class="LineNr">315 </span> <span class="muComment"># x, buf[i+delta] = x/10, x%10</span> +<span id="L316" class="LineNr">316 </span> <span class="Delimiter">{</span> +<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> dest-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy i +<span id="L318" class="LineNr">318 </span> dest-index <span class="Special"><-</span> add delta +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr byte) <span class="Special"><-</span> index buf, dest-index +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> next-digit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L321" class="LineNr">321 </span> x, next-digit <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">0xa</span> +<span id="L322" class="LineNr">322 </span> copy-byte-to *dest, next-digit +<span id="L323" class="LineNr">323 </span> <span class="Delimiter">}</span> +<span id="L324" class="LineNr">324 </span> <span class="muComment">#</span> +<span id="L325" class="LineNr">325 </span> i <span class="Special"><-</span> decrement +<span id="L326" class="LineNr">326 </span> <span class="PreProc">loop</span> +<span id="L327" class="LineNr">327 </span> <span class="Delimiter">}</span> +<span id="L328" class="LineNr">328 </span> <span class="muComment"># final patch-up</span> +<span id="L329" class="LineNr">329 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _n +<span id="L330" class="LineNr">330 </span> compare delta, <span class="Constant">1</span> +<span id="L331" class="LineNr">331 </span> <span class="Delimiter">{</span> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">break-if-!=</span> +<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index buf, <span class="Constant">0</span> +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> one/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L335" class="LineNr">335 </span> copy-byte-to *curr, one +<span id="L336" class="LineNr">336 </span> n <span class="Special"><-</span> increment +<span id="L337" class="LineNr">337 </span> <span class="Delimiter">}</span> +<span id="L338" class="LineNr">338 </span> <span class="PreProc">return</span> n +<span id="L339" class="LineNr">339 </span><span class="Delimiter">}</span> +<span id="L340" class="LineNr">340 </span> +<span id="L341" class="LineNr">341 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L341'>halve-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int, _dp: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _n +<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _dp +<span id="L345" class="LineNr">345 </span> <span class="muComment"># initialize one side</span> +<span id="L346" class="LineNr">346 </span> <span class="Delimiter">{</span> +<span id="L347" class="LineNr">347 </span> <span class="muComment"># if buf[n-1]%2 == 0, break</span> +<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> right-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy n +<span id="L349" class="LineNr">349 </span> right-index <span class="Special"><-</span> decrement +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> right-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, right-index +<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *right-a +<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> right-int/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy right +<span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L354" class="LineNr">354 </span> <span class="Delimiter">{</span> +<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L356" class="LineNr">356 </span> dummy, remainder <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> right-int, <span class="Constant">2</span> +<span id="L357" class="LineNr">357 </span> <span class="Delimiter">}</span> +<span id="L358" class="LineNr">358 </span> compare remainder, <span class="Constant">0</span> +<span id="L359" class="LineNr">359 </span> <span class="PreProc">break-if-=</span> +<span id="L360" class="LineNr">360 </span> <span class="muComment"># buf[n] = 0</span> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> next-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, n +<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> zero/<span class="Constant">edx</span>: byte <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L363" class="LineNr">363 </span> copy-byte-to *next-a, zero +<span id="L364" class="LineNr">364 </span> <span class="muComment"># n++</span> +<span id="L365" class="LineNr">365 </span> n <span class="Special"><-</span> increment +<span id="L366" class="LineNr">366 </span> <span class="Delimiter">}</span> +<span id="L367" class="LineNr">367 </span> <span class="muComment"># initialize the other</span> +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> delta/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L370" class="LineNr">370 </span> <span class="Delimiter">{</span> +<span id="L371" class="LineNr">371 </span> <span class="muComment"># if buf[0] >= 2, break</span> +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, <span class="Constant">0</span> +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *left +<span id="L374" class="LineNr">374 </span> compare src, <span class="Constant">2</span> +<span id="L375" class="LineNr">375 </span> <span class="PreProc">break-if->=</span> +<span id="L376" class="LineNr">376 </span> <span class="muComment"># delta, x = 1, buf[0]</span> +<span id="L377" class="LineNr">377 </span> delta <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L378" class="LineNr">378 </span> x <span class="Special"><-</span> copy src +<span id="L379" class="LineNr">379 </span> <span class="muComment"># n--</span> +<span id="L380" class="LineNr">380 </span> n <span class="Special"><-</span> decrement +<span id="L381" class="LineNr">381 </span> <span class="muComment"># dp--</span> +<span id="L382" class="LineNr">382 </span> dp <span class="Special"><-</span> decrement +<span id="L383" class="LineNr">383 </span> <span class="Delimiter">}</span> +<span id="L384" class="LineNr">384 </span> <span class="muComment"># loop</span> +<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L386" class="LineNr">386 </span> <span class="Delimiter">{</span> +<span id="L387" class="LineNr">387 </span> compare i, n +<span id="L388" class="LineNr">388 </span> <span class="PreProc">break-if->=</span> +<span id="L389" class="LineNr">389 </span> <span class="muComment"># x = x*10 + buf[i+delta]</span> +<span id="L390" class="LineNr">390 </span> <span class="Delimiter">{</span> +<span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> ten/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xa</span> +<span id="L392" class="LineNr">392 </span> x <span class="Special"><-</span> multiply ten +<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> src-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy i +<span id="L394" class="LineNr">394 </span> src-index <span class="Special"><-</span> add delta +<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> src-a/<span class="Constant">edx</span>: (addr byte) <span class="Special"><-</span> index buf, src-index +<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: byte <span class="Special"><-</span> copy-byte *src-a +<span id="L397" class="LineNr">397 </span> x <span class="Special"><-</span> add src +<span id="L398" class="LineNr">398 </span> <span class="Delimiter">}</span> +<span id="L399" class="LineNr">399 </span> <span class="muComment"># buf[i], x = x/2, x%2</span> +<span id="L400" class="LineNr">400 </span> <span class="Delimiter">{</span> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> quotient/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L403" class="LineNr">403 </span> quotient, remainder <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">2</span> +<span id="L404" class="LineNr">404 </span> x <span class="Special"><-</span> copy remainder +<span id="L405" class="LineNr">405 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L406" class="LineNr">406 </span> copy-byte-to *dest, quotient +<span id="L407" class="LineNr">407 </span> <span class="Delimiter">}</span> +<span id="L408" class="LineNr">408 </span> <span class="muComment">#</span> +<span id="L409" class="LineNr">409 </span> i <span class="Special"><-</span> increment +<span id="L410" class="LineNr">410 </span> <span class="PreProc">loop</span> +<span id="L411" class="LineNr">411 </span> <span class="Delimiter">}</span> +<span id="L412" class="LineNr">412 </span> <span class="PreProc">return</span> n, dp +<span id="L413" class="LineNr">413 </span><span class="Delimiter">}</span> +<span id="L414" class="LineNr">414 </span> +<span id="L415" class="LineNr">415 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L415'>_write-float-array-of-decimal-digits</a></span> out: (addr stream byte), _buf: (addr array byte), n: int, dp: int, precision: int <span class="Delimiter">{</span> +<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L417" class="LineNr">417 </span> <span class="Delimiter">{</span> +<span id="L418" class="LineNr">418 </span> compare dp, <span class="Constant">0</span> +<span id="L419" class="LineNr">419 </span> <span class="PreProc">break-if->=</span> +<span id="L420" class="LineNr">420 </span> <a href='412render-float-decimal.mu.html#L464'>_write-float-array-of-decimal-digits-in-scientific-notation</a> out, buf, n, dp, precision +<span id="L421" class="LineNr">421 </span> <span class="PreProc">return</span> +<span id="L422" class="LineNr">422 </span> <span class="Delimiter">}</span> +<span id="L423" class="LineNr">423 </span> <span class="Delimiter">{</span> +<span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy dp +<span id="L425" class="LineNr">425 </span> compare dp2, precision +<span id="L426" class="LineNr">426 </span> <span class="PreProc">break-if-<=</span> +<span id="L427" class="LineNr">427 </span> <a href='412render-float-decimal.mu.html#L464'>_write-float-array-of-decimal-digits-in-scientific-notation</a> out, buf, n, dp, precision +<span id="L428" class="LineNr">428 </span> <span class="PreProc">return</span> +<span id="L429" class="LineNr">429 </span> <span class="Delimiter">}</span> +<span id="L430" class="LineNr">430 </span> <span class="Delimiter">{</span> +<span id="L431" class="LineNr">431 </span> compare dp, <span class="Constant">0</span> +<span id="L432" class="LineNr">432 </span> <span class="PreProc">break-if-!=</span> +<span id="L433" class="LineNr">433 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L434" class="LineNr">434 </span> <span class="Delimiter">}</span> +<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L436" class="LineNr">436 </span> <span class="muComment"># bounds = min(n, dp+3)</span> +<span id="L437" class="LineNr">437 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy dp +<span id="L438" class="LineNr">438 </span> limit <span class="Special"><-</span> add <span class="Constant">3</span> +<span id="L439" class="LineNr">439 </span> <span class="Delimiter">{</span> +<span id="L440" class="LineNr">440 </span> compare limit, n +<span id="L441" class="LineNr">441 </span> <span class="PreProc">break-if-<=</span> +<span id="L442" class="LineNr">442 </span> limit <span class="Special"><-</span> copy n +<span id="L443" class="LineNr">443 </span> <span class="Delimiter">}</span> +<span id="L444" class="LineNr">444 </span> <span class="Delimiter">{</span> +<span id="L445" class="LineNr">445 </span> compare i, limit +<span id="L446" class="LineNr">446 </span> <span class="PreProc">break-if->=</span> +<span id="L447" class="LineNr">447 </span> <span class="muComment"># print '.' if necessary</span> +<span id="L448" class="LineNr">448 </span> compare i, dp +<span id="L449" class="LineNr">449 </span> <span class="Delimiter">{</span> +<span id="L450" class="LineNr">450 </span> <span class="PreProc">break-if-!=</span> +<span id="L451" class="LineNr">451 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, <span class="Constant">0x2e</span>/decimal-point +<span id="L452" class="LineNr">452 </span> <span class="Delimiter">}</span> +<span id="L453" class="LineNr">453 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *curr-a +<span id="L455" class="LineNr">455 </span> <span class="PreProc">var</span> curr-int/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy curr +<span id="L456" class="LineNr">456 </span> curr-int <span class="Special"><-</span> add <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L457" class="LineNr">457 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, curr-int +<span id="L458" class="LineNr">458 </span> <span class="muComment">#</span> +<span id="L459" class="LineNr">459 </span> i <span class="Special"><-</span> increment +<span id="L460" class="LineNr">460 </span> <span class="PreProc">loop</span> +<span id="L461" class="LineNr">461 </span> <span class="Delimiter">}</span> +<span id="L462" class="LineNr">462 </span><span class="Delimiter">}</span> +<span id="L463" class="LineNr">463 </span> +<span id="L464" class="LineNr">464 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L464'>_write-float-array-of-decimal-digits-in-scientific-notation</a></span> out: (addr stream byte), _buf: (addr array byte), n: int, dp: int, precision: int <span class="Delimiter">{</span> +<span id="L465" class="LineNr">465 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L466" class="LineNr">466 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L467" class="LineNr">467 </span> <span class="Delimiter">{</span> +<span id="L468" class="LineNr">468 </span> compare i, n +<span id="L469" class="LineNr">469 </span> <span class="PreProc">break-if->=</span> +<span id="L470" class="LineNr">470 </span> compare i, precision +<span id="L471" class="LineNr">471 </span> <span class="PreProc">break-if->=</span> +<span id="L472" class="LineNr">472 </span> compare i, <span class="Constant">1</span> +<span id="L473" class="LineNr">473 </span> <span class="Delimiter">{</span> +<span id="L474" class="LineNr">474 </span> <span class="PreProc">break-if-!=</span> +<span id="L475" class="LineNr">475 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, <span class="Constant">0x2e</span>/decimal-point +<span id="L476" class="LineNr">476 </span> <span class="Delimiter">}</span> +<span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *curr-a +<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> curr-int/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy curr +<span id="L480" class="LineNr">480 </span> curr-int <span class="Special"><-</span> add <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L481" class="LineNr">481 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, curr-int +<span id="L482" class="LineNr">482 </span> <span class="muComment">#</span> +<span id="L483" class="LineNr">483 </span> i <span class="Special"><-</span> increment +<span id="L484" class="LineNr">484 </span> <span class="PreProc">loop</span> +<span id="L485" class="LineNr">485 </span> <span class="Delimiter">}</span> +<span id="L486" class="LineNr">486 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, <span class="Constant">0x65</span>/e +<span id="L487" class="LineNr">487 </span> decrement dp +<span id="L488" class="LineNr">488 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out, dp +<span id="L489" class="LineNr">489 </span><span class="Delimiter">}</span> +<span id="L490" class="LineNr">490 </span> +<span id="L491" class="LineNr">491 </span><span class="muComment"># follows the structure of write-float-decimal-approximate</span> +<span id="L492" class="LineNr">492 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> +<span id="L493" class="LineNr">493 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L493'>float-size</a></span> in: float, precision: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L494" class="LineNr">494 </span> <span class="muComment"># - special names</span> +<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="Special"><-</span> reinterpret in +<span id="L496" class="LineNr">496 </span> compare bits, <span class="Constant">0</span> +<span id="L497" class="LineNr">497 </span> <span class="Delimiter">{</span> +<span id="L498" class="LineNr">498 </span> <span class="PreProc">break-if-!=</span> +<span id="L499" class="LineNr">499 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># for "0"</span> +<span id="L500" class="LineNr">500 </span> <span class="Delimiter">}</span> +<span id="L501" class="LineNr">501 </span> compare bits, <span class="Constant">0x80000000</span> +<span id="L502" class="LineNr">502 </span> <span class="Delimiter">{</span> +<span id="L503" class="LineNr">503 </span> <span class="PreProc">break-if-!=</span> +<span id="L504" class="LineNr">504 </span> <span class="PreProc">return</span> <span class="Constant">2</span> <span class="muComment"># for "-0"</span> +<span id="L505" class="LineNr">505 </span> <span class="Delimiter">}</span> +<span id="L506" class="LineNr">506 </span> compare bits, <span class="Constant">0x7f800000</span> +<span id="L507" class="LineNr">507 </span> <span class="Delimiter">{</span> +<span id="L508" class="LineNr">508 </span> <span class="PreProc">break-if-!=</span> +<span id="L509" class="LineNr">509 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># for "Inf"</span> +<span id="L510" class="LineNr">510 </span> <span class="Delimiter">}</span> +<span id="L511" class="LineNr">511 </span> compare bits, <span class="Constant">0xff800000</span> +<span id="L512" class="LineNr">512 </span> <span class="Delimiter">{</span> +<span id="L513" class="LineNr">513 </span> <span class="PreProc">break-if-!=</span> +<span id="L514" class="LineNr">514 </span> <span class="PreProc">return</span> <span class="Constant">4</span> <span class="muComment"># for "-Inf"</span> +<span id="L515" class="LineNr">515 </span> <span class="Delimiter">}</span> +<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bits +<span id="L517" class="LineNr">517 </span> exponent <span class="Special"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> +<span id="L518" class="LineNr">518 </span> exponent <span class="Special"><-</span> and <span class="Constant">0xff</span> +<span id="L519" class="LineNr">519 </span> exponent <span class="Special"><-</span> subtract <span class="Constant">0x7f</span> +<span id="L520" class="LineNr">520 </span> compare exponent, <span class="Constant">0x80</span> +<span id="L521" class="LineNr">521 </span> <span class="Delimiter">{</span> +<span id="L522" class="LineNr">522 </span> <span class="PreProc">break-if-!=</span> +<span id="L523" class="LineNr">523 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># for "NaN"</span> +<span id="L524" class="LineNr">524 </span> <span class="Delimiter">}</span> +<span id="L525" class="LineNr">525 </span> <span class="muComment"># - regular numbers</span> +<span id="L526" class="LineNr">526 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> +<span id="L527" class="LineNr">527 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy bits +<span id="L528" class="LineNr">528 </span> v <span class="Special"><-</span> and <span class="Constant">0x7fffff</span> +<span id="L529" class="LineNr">529 </span> v <span class="Special"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> +<span id="L530" class="LineNr">530 </span> <span class="muComment"># e = exponent - 0x17</span> +<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy exponent +<span id="L532" class="LineNr">532 </span> e <span class="Special"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> +<span id="L533" class="LineNr">533 </span> +<span id="L534" class="LineNr">534 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> +<span id="L535" class="LineNr">535 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) +<span id="L536" class="LineNr">536 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> address buf-storage +<span id="L537" class="LineNr">537 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='412render-float-decimal.mu.html#L251'>decimal-digits</a> v, buf +<span id="L538" class="LineNr">538 </span> <a href='412render-float-decimal.mu.html#L268'>reverse-digits</a> buf, n +<span id="L539" class="LineNr">539 </span> +<span id="L540" class="LineNr">540 </span> <span class="muComment"># loop if e > 0</span> +<span id="L541" class="LineNr">541 </span> <span class="Delimiter">{</span> +<span id="L542" class="LineNr">542 </span> compare e, <span class="Constant">0</span> +<span id="L543" class="LineNr">543 </span> <span class="PreProc">break-if-<=</span> +<span id="L544" class="LineNr">544 </span> n <span class="Special"><-</span> <a href='412render-float-decimal.mu.html#L290'>double-array-of-decimal-digits</a> buf, n +<span id="L545" class="LineNr">545 </span> e <span class="Special"><-</span> decrement +<span id="L546" class="LineNr">546 </span> <span class="PreProc">loop</span> +<span id="L547" class="LineNr">547 </span> <span class="Delimiter">}</span> +<span id="L548" class="LineNr">548 </span> +<span id="L549" class="LineNr">549 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy n +<span id="L550" class="LineNr">550 </span> +<span id="L551" class="LineNr">551 </span> <span class="muComment"># loop if e < 0</span> +<span id="L552" class="LineNr">552 </span> <span class="Delimiter">{</span> +<span id="L553" class="LineNr">553 </span> compare e, <span class="Constant">0</span> +<span id="L554" class="LineNr">554 </span> <span class="PreProc">break-if->=</span> +<span id="L555" class="LineNr">555 </span> n, dp <span class="Special"><-</span> <a href='412render-float-decimal.mu.html#L341'>halve-array-of-decimal-digits</a> buf, n, dp +<span id="L556" class="LineNr">556 </span> e <span class="Special"><-</span> increment +<span id="L557" class="LineNr">557 </span> <span class="PreProc">loop</span> +<span id="L558" class="LineNr">558 </span> <span class="Delimiter">}</span> +<span id="L559" class="LineNr">559 </span> +<span id="L560" class="LineNr">560 </span> compare dp, <span class="Constant">0</span> +<span id="L561" class="LineNr">561 </span> <span class="Delimiter">{</span> +<span id="L562" class="LineNr">562 </span> <span class="PreProc">break-if->=</span> +<span id="L563" class="LineNr">563 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> +<span id="L564" class="LineNr">564 </span> <span class="Delimiter">}</span> +<span id="L565" class="LineNr">565 </span> <span class="Delimiter">{</span> +<span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy dp +<span id="L567" class="LineNr">567 </span> compare dp2, precision +<span id="L568" class="LineNr">568 </span> <span class="PreProc">break-if-<=</span> +<span id="L569" class="LineNr">569 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> +<span id="L570" class="LineNr">570 </span> <span class="Delimiter">}</span> +<span id="L571" class="LineNr">571 </span> +<span id="L572" class="LineNr">572 </span> <span class="muComment"># result = min(n, dp+3)</span> +<span id="L573" class="LineNr">573 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy dp +<span id="L574" class="LineNr">574 </span> result <span class="Special"><-</span> add <span class="Constant">3</span> +<span id="L575" class="LineNr">575 </span> <span class="Delimiter">{</span> +<span id="L576" class="LineNr">576 </span> compare result, n +<span id="L577" class="LineNr">577 </span> <span class="PreProc">break-if-<=</span> +<span id="L578" class="LineNr">578 </span> result <span class="Special"><-</span> copy n +<span id="L579" class="LineNr">579 </span> <span class="Delimiter">}</span> +<span id="L580" class="LineNr">580 </span> +<span id="L581" class="LineNr">581 </span> <span class="muComment"># account for decimal point</span> +<span id="L582" class="LineNr">582 </span> compare dp, n +<span id="L583" class="LineNr">583 </span> <span class="Delimiter">{</span> +<span id="L584" class="LineNr">584 </span> <span class="PreProc">break-if->=</span> +<span id="L585" class="LineNr">585 </span> result <span class="Special"><-</span> increment +<span id="L586" class="LineNr">586 </span> <span class="Delimiter">}</span> +<span id="L587" class="LineNr">587 </span> +<span id="L588" class="LineNr">588 </span> <span class="muComment"># account for sign</span> +<span id="L589" class="LineNr">589 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="Special"><-</span> reinterpret in +<span id="L590" class="LineNr">590 </span> sign <span class="Special"><-</span> shift-right <span class="Constant">0x1f</span> +<span id="L591" class="LineNr">591 </span> <span class="Delimiter">{</span> +<span id="L592" class="LineNr">592 </span> compare sign, <span class="Constant">1</span> +<span id="L593" class="LineNr">593 </span> <span class="PreProc">break-if-!=</span> +<span id="L594" class="LineNr">594 </span> result <span class="Special"><-</span> increment +<span id="L595" class="LineNr">595 </span> <span class="Delimiter">}</span> +<span id="L596" class="LineNr">596 </span> <span class="PreProc">return</span> result +<span id="L597" class="LineNr">597 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/500text-screen.mu.html b/html/500text-screen.mu.html index 5c1b0944..74b25b1f 100644 --- a/html/baremetal/500text-screen.mu.html +++ b/html/500text-screen.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/500text-screen.mu</title> +<title>Mu - 500text-screen.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/500text-screen.mu'>https://github.com/akkartik/mu/blob/main/baremetal/500text-screen.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/500text-screen.mu'>https://github.com/akkartik/mu/blob/main/500text-screen.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Testable primitives for writing text to screen.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># (Mu doesn't yet have testable primitives for graphics.)</span> @@ -79,46 +79,46 @@ if ('onhashchange' in window) { <span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> <span id="L23" class="LineNr"> 23 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L23'>initialize-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), width: int, height: int <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L27" class="LineNr"> 27 </span> <span class="muComment"># screen->width = width</span> -<span id="L28" class="LineNr"> 28 </span> dest <span class="SpecialChar"><-</span> get screen-addr, width -<span id="L29" class="LineNr"> 29 </span> tmp <span class="SpecialChar"><-</span> copy width +<span id="L28" class="LineNr"> 28 </span> dest <span class="Special"><-</span> get screen-addr, width +<span id="L29" class="LineNr"> 29 </span> tmp <span class="Special"><-</span> copy width <span id="L30" class="LineNr"> 30 </span> copy-to *dest, tmp <span id="L31" class="LineNr"> 31 </span> <span class="muComment"># screen->height = height</span> -<span id="L32" class="LineNr"> 32 </span> dest <span class="SpecialChar"><-</span> get screen-addr, height -<span id="L33" class="LineNr"> 33 </span> tmp <span class="SpecialChar"><-</span> copy height +<span id="L32" class="LineNr"> 32 </span> dest <span class="Special"><-</span> get screen-addr, height +<span id="L33" class="LineNr"> 33 </span> tmp <span class="Special"><-</span> copy height <span id="L34" class="LineNr"> 34 </span> copy-to *dest, tmp <span id="L35" class="LineNr"> 35 </span> <span class="muComment"># screen->data = new screen-cell[width*height]</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> get screen-addr, data -<span id="L38" class="LineNr"> 38 </span> tmp <span class="SpecialChar"><-</span> multiply width +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> get screen-addr, data +<span id="L38" class="LineNr"> 38 </span> tmp <span class="Special"><-</span> multiply width <span id="L39" class="LineNr"> 39 </span> populate data-addr, tmp <span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> <span id="L41" class="LineNr"> 41 </span> <span class="muComment"># screen->cursor-x = 0</span> -<span id="L42" class="LineNr"> 42 </span> dest <span class="SpecialChar"><-</span> get screen-addr, cursor-x +<span id="L42" class="LineNr"> 42 </span> dest <span class="Special"><-</span> get screen-addr, cursor-x <span id="L43" class="LineNr"> 43 </span> copy-to *dest, <span class="Constant">0</span> <span id="L44" class="LineNr"> 44 </span> <span class="muComment"># screen->cursor-y = 0</span> -<span id="L45" class="LineNr"> 45 </span> dest <span class="SpecialChar"><-</span> get screen-addr, cursor-y +<span id="L45" class="LineNr"> 45 </span> dest <span class="Special"><-</span> get screen-addr, cursor-y <span id="L46" class="LineNr"> 46 </span> copy-to *dest, <span class="Constant">0</span> <span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> <span id="L48" class="LineNr"> 48 </span> <span id="L49" class="LineNr"> 49 </span><span class="muComment"># in graphemes</span> <span id="L50" class="LineNr"> 50 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L50'>screen-size</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L53" class="LineNr"> 53 </span> compare <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">{</span> <span id="L55" class="LineNr"> 55 </span> <span class="PreProc">break-if-!=</span> <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">return</span> <span class="Constant">0x80</span>/<span class="Constant">128</span>, <span class="Constant">0x30</span>/<span class="Constant">48</span> <span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> <span id="L58" class="LineNr"> 58 </span> <span class="muComment"># fake screen</span> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, width -<span id="L61" class="LineNr"> 61 </span> width <span class="SpecialChar"><-</span> copy *tmp -<span id="L62" class="LineNr"> 62 </span> tmp <span class="SpecialChar"><-</span> get screen-addr, height -<span id="L63" class="LineNr"> 63 </span> height <span class="SpecialChar"><-</span> copy *tmp +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get screen-addr, width +<span id="L61" class="LineNr"> 61 </span> width <span class="Special"><-</span> copy *tmp +<span id="L62" class="LineNr"> 62 </span> tmp <span class="Special"><-</span> get screen-addr, height +<span id="L63" class="LineNr"> 63 </span> height <span class="Special"><-</span> copy *tmp <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">return</span> width, height <span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> <span id="L66" class="LineNr"> 66 </span> @@ -131,44 +131,44 @@ if ('onhashchange' in window) { <span id="L73" class="LineNr"> 73 </span> <span class="PreProc">return</span> <span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">}</span> <span id="L75" class="LineNr"> 75 </span> <span class="muComment"># fake screen</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> get screen-addr, data -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> dest-cell/<span class="Constant">ecx</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> dest-grapheme/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> get dest-cell, data -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> g2/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy g +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> get screen-addr, data +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> dest-cell/<span class="Constant">ecx</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> dest-grapheme/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> get dest-cell, data +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> g2/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy g <span id="L84" class="LineNr"> 84 </span> copy-to *dest-grapheme, g2 -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> dest-color/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get dest-cell, color -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> src-color/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy color +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> dest-color/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get dest-cell, color +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> src-color/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy color <span id="L87" class="LineNr"> 87 </span> copy-to *dest-color, src-color -<span id="L88" class="LineNr"> 88 </span> dest-color <span class="SpecialChar"><-</span> get dest-cell, background-color -<span id="L89" class="LineNr"> 89 </span> src-color <span class="SpecialChar"><-</span> copy background-color +<span id="L88" class="LineNr"> 88 </span> dest-color <span class="Special"><-</span> get dest-cell, background-color +<span id="L89" class="LineNr"> 89 </span> src-color <span class="Special"><-</span> copy background-color <span id="L90" class="LineNr"> 90 </span> copy-to *dest-color, src-color <span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> <span id="L92" class="LineNr"> 92 </span> <span id="L93" class="LineNr"> 93 </span><span class="muComment"># we can't really render non-ASCII yet, but when we do we'll be ready</span> <span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L94'>draw-code-point</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), c: code-point, x: int, y: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c <span id="L96" class="LineNr"> 96 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, x, y, color, background-color <span id="L97" class="LineNr"> 97 </span><span class="Delimiter">}</span> <span id="L98" class="LineNr"> 98 </span> <span id="L99" class="LineNr"> 99 </span><span class="muComment"># not really needed for a real screen, though it shouldn't do any harm</span> <span id="L100" class="LineNr">100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L100'>screen-cell-index</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack <span id="L102" class="LineNr">102 </span> <span class="muComment"># only one bounds check isn't automatically handled</span> <span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> xmax/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get <a href='500text-screen.mu.html#L9'>screen</a>, width -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy x +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> xmax/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500text-screen.mu.html#L9'>screen</a>, width +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x <span id="L106" class="LineNr">106 </span> compare xcurr, *xmax <span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-<</span> -<span id="L108" class="LineNr">108 </span> <a href='501draw-text.mu.html#L519'>abort</a> <span class="Constant">"tried to print out of <a href='500text-screen.mu.html#L9'>screen</a> bounds"</span> +<span id="L108" class="LineNr">108 </span> <a href='501draw-text.mu.html#L459'>abort</a> <span class="Constant">"tried to print out of <a href='500text-screen.mu.html#L9'>screen</a> bounds"</span> <span id="L109" class="LineNr">109 </span> <span class="Delimiter">}</span> -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> width-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get <a href='500text-screen.mu.html#L9'>screen</a>, width -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L112" class="LineNr">112 </span> result <span class="SpecialChar"><-</span> multiply *width-addr -<span id="L113" class="LineNr">113 </span> result <span class="SpecialChar"><-</span> add x +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> width-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get <a href='500text-screen.mu.html#L9'>screen</a>, width +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L112" class="LineNr">112 </span> result <span class="Special"><-</span> multiply *width-addr +<span id="L113" class="LineNr">113 </span> result <span class="Special"><-</span> add x <span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> result <span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> @@ -176,15 +176,15 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> <span id="L119" class="LineNr">119 </span> compare <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L120" class="LineNr">120 </span> <span class="PreProc">break-if-!=</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L123" class="LineNr">123 </span> x, y <span class="SpecialChar"><-</span> <a href='103grapheme.subx.html#L96'>cursor-position-on-real-screen</a> +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L123" class="LineNr">123 </span> x, y <span class="Special"><-</span> <a href='103grapheme.subx.html#L96'>cursor-position-on-real-screen</a> <span id="L124" class="LineNr">124 </span> <span class="PreProc">return</span> x, y <span id="L125" class="LineNr">125 </span> <span class="Delimiter">}</span> <span id="L126" class="LineNr">126 </span> <span class="muComment"># fake screen</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> cursor-x-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, cursor-x -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> cursor-y-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, cursor-y +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> cursor-x-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get screen-addr, cursor-x +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> cursor-y-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get screen-addr, cursor-y <span id="L130" class="LineNr">130 </span> <span class="PreProc">return</span> *cursor-x-addr, *cursor-y-addr <span id="L131" class="LineNr">131 </span><span class="Delimiter">}</span> <span id="L132" class="LineNr">132 </span> @@ -196,7 +196,7 @@ if ('onhashchange' in window) { <span id="L138" class="LineNr">138 </span> <span class="PreProc">return</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> <span id="L140" class="LineNr">140 </span> <span class="muComment"># fake screen</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> <span id="L142" class="LineNr">142 </span> <span class="muComment"># ignore x < 0</span> <span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> <span id="L144" class="LineNr">144 </span> compare x, <span class="Constant">0</span> @@ -205,8 +205,8 @@ if ('onhashchange' in window) { <span id="L147" class="LineNr">147 </span> <span class="Delimiter">}</span> <span id="L148" class="LineNr">148 </span> <span class="muComment"># ignore x >= width</span> <span id="L149" class="LineNr">149 </span> <span class="Delimiter">{</span> -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> width-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, width -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *width-addr +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> width-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get screen-addr, width +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *width-addr <span id="L152" class="LineNr">152 </span> compare x, width <span id="L153" class="LineNr">153 </span> <span class="PreProc">break-if-<=</span> <span id="L154" class="LineNr">154 </span> <span class="PreProc">return</span> @@ -219,33 +219,33 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr">161 </span> <span class="Delimiter">}</span> <span id="L162" class="LineNr">162 </span> <span class="muComment"># ignore y >= height</span> <span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> height-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, height -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> height/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *height-addr +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> height-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get screen-addr, height +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> height/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *height-addr <span id="L166" class="LineNr">166 </span> compare y, height <span id="L167" class="LineNr">167 </span> <span class="PreProc">break-if-<</span> <span id="L168" class="LineNr">168 </span> <span class="PreProc">return</span> <span id="L169" class="LineNr">169 </span> <span class="Delimiter">}</span> <span id="L170" class="LineNr">170 </span> <span class="muComment"># screen->cursor-x = x</span> -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, cursor-x -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy x +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> get screen-addr, cursor-x +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x <span id="L173" class="LineNr">173 </span> copy-to *dest, src <span id="L174" class="LineNr">174 </span> <span class="muComment"># screen->cursor-y = y</span> -<span id="L175" class="LineNr">175 </span> dest <span class="SpecialChar"><-</span> get screen-addr, cursor-y -<span id="L176" class="LineNr">176 </span> src <span class="SpecialChar"><-</span> copy y +<span id="L175" class="LineNr">175 </span> dest <span class="Special"><-</span> get screen-addr, cursor-y +<span id="L176" class="LineNr">176 </span> src <span class="Special"><-</span> copy y <span id="L177" class="LineNr">177 </span> copy-to *dest, src <span id="L178" class="LineNr">178 </span><span class="Delimiter">}</span> <span id="L179" class="LineNr">179 </span> -<span id="L180" class="LineNr">180 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L180'>show-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), g: grapheme <span class="Delimiter">{</span> +<span id="L180" class="LineNr">180 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L180'>draw-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), g: grapheme <span class="Delimiter">{</span> <span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> <span id="L182" class="LineNr">182 </span> compare <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L183" class="LineNr">183 </span> <span class="PreProc">break-if-!=</span> -<span id="L184" class="LineNr">184 </span> <a href='103grapheme.subx.html#L134'>show-cursor-on-real-screen</a> g +<span id="L184" class="LineNr">184 </span> <a href='103grapheme.subx.html#L134'>draw-cursor-on-real-screen</a> g <span id="L185" class="LineNr">185 </span> <span class="PreProc">return</span> <span id="L186" class="LineNr">186 </span> <span class="Delimiter">}</span> <span id="L187" class="LineNr">187 </span> <span class="muComment"># fake screen</span> -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L190" class="LineNr">190 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L190" class="LineNr">190 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> <span id="L191" class="LineNr">191 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, cursor-x, cursor-y, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg <span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> <span id="L193" class="LineNr">193 </span> @@ -258,22 +258,22 @@ if ('onhashchange' in window) { <span id="L200" class="LineNr">200 </span> <span class="Delimiter">}</span> <span id="L201" class="LineNr">201 </span> <span class="muComment"># fake screen</span> <span id="L202" class="LineNr">202 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, height +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get screen-addr, height <span id="L206" class="LineNr">206 </span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> compare y, *height <span id="L208" class="LineNr">208 </span> <span class="PreProc">break-if->=</span> -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> width/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> get screen-addr, width +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> width/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get screen-addr, width <span id="L211" class="LineNr">211 </span> <span class="Delimiter">{</span> <span id="L212" class="LineNr">212 </span> compare x, *width <span id="L213" class="LineNr">213 </span> <span class="PreProc">break-if->=</span> <span id="L214" class="LineNr">214 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space, x, y, <span class="Constant">0</span>/fg=black, <span class="Constant">0</span>/bg=black -<span id="L215" class="LineNr">215 </span> x <span class="SpecialChar"><-</span> increment +<span id="L215" class="LineNr">215 </span> x <span class="Special"><-</span> increment <span id="L216" class="LineNr">216 </span> <span class="PreProc">loop</span> <span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> -<span id="L218" class="LineNr">218 </span> y <span class="SpecialChar"><-</span> increment +<span id="L218" class="LineNr">218 </span> y <span class="Special"><-</span> increment <span id="L219" class="LineNr">219 </span> <span class="PreProc">loop</span> <span id="L220" class="LineNr">220 </span> <span class="Delimiter">}</span> <span id="L221" class="LineNr">221 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> @@ -282,76 +282,76 @@ if ('onhashchange' in window) { <span id="L224" class="LineNr">224 </span><span class="muComment"># there's no grapheme that guarantees to cover every pixel, so we'll bump down</span> <span id="L225" class="LineNr">225 </span><span class="muComment"># to pixels for a real screen</span> <span id="L226" class="LineNr">226 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L226'>clear-real-screen</a></span> <span class="Delimiter">{</span> -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> <span id="L229" class="LineNr">229 </span> compare y, <span class="Constant">0x300</span>/screen-height=<span class="Constant">768</span> <span id="L230" class="LineNr">230 </span> <span class="PreProc">break-if->=</span> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L232" class="LineNr">232 </span> <span class="Delimiter">{</span> <span id="L233" class="LineNr">233 </span> compare x, <span class="Constant">0x400</span>/screen-width=<span class="Constant">1024</span> <span id="L234" class="LineNr">234 </span> <span class="PreProc">break-if->=</span> <span id="L235" class="LineNr">235 </span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x, y, <span class="Constant">0</span>/color=black -<span id="L236" class="LineNr">236 </span> x <span class="SpecialChar"><-</span> increment +<span id="L236" class="LineNr">236 </span> x <span class="Special"><-</span> increment <span id="L237" class="LineNr">237 </span> <span class="PreProc">loop</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> -<span id="L239" class="LineNr">239 </span> y <span class="SpecialChar"><-</span> increment +<span id="L239" class="LineNr">239 </span> y <span class="Special"><-</span> increment <span id="L240" class="LineNr">240 </span> <span class="PreProc">loop</span> <span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> <span id="L242" class="LineNr">242 </span><span class="Delimiter">}</span> <span id="L243" class="LineNr">243 </span> <span id="L244" class="LineNr">244 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L244'>screen-grapheme-at</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> screen-addr, idx +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> screen-addr, idx <span id="L248" class="LineNr">248 </span> <span class="PreProc">return</span> result <span id="L249" class="LineNr">249 </span><span class="Delimiter">}</span> <span id="L250" class="LineNr">250 </span> <span id="L251" class="LineNr">251 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> get screen-addr, data -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> get cell, data +<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> get screen-addr, data +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> get cell, data <span id="L259" class="LineNr">259 </span> <span class="PreProc">return</span> *src <span id="L260" class="LineNr">260 </span><span class="Delimiter">}</span> <span id="L261" class="LineNr">261 </span> <span id="L262" class="LineNr">262 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L262'>screen-color-at</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L269'>screen-color-at-idx</a> screen-addr, idx +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L269'>screen-color-at-idx</a> screen-addr, idx <span id="L266" class="LineNr">266 </span> <span class="PreProc">return</span> result <span id="L267" class="LineNr">267 </span><span class="Delimiter">}</span> <span id="L268" class="LineNr">268 </span> <span id="L269" class="LineNr">269 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L269'>screen-color-at-idx</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> get screen-addr, data -<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get cell, color -<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *src +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> get screen-addr, data +<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get cell, color +<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *src <span id="L278" class="LineNr">278 </span> <span class="PreProc">return</span> result <span id="L279" class="LineNr">279 </span><span class="Delimiter">}</span> <span id="L280" class="LineNr">280 </span> <span id="L281" class="LineNr">281 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L281'>screen-background-color-at</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y -<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> screen-addr, idx +<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> screen-addr, x, y +<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> screen-addr, idx <span id="L285" class="LineNr">285 </span> <span class="PreProc">return</span> result <span id="L286" class="LineNr">286 </span><span class="Delimiter">}</span> <span id="L287" class="LineNr">287 </span> <span id="L288" class="LineNr">288 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> get screen-addr, data -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy idx-on-stack -<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data, idx -<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get cell, background-color -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *src +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> get screen-addr, data +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='500text-screen.mu.html#L17'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get cell, background-color +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *src <span id="L297" class="LineNr">297 </span> <span class="PreProc">return</span> result <span id="L298" class="LineNr">298 </span><span class="Delimiter">}</span> </pre> diff --git a/html/501draw-text.mu.html b/html/501draw-text.mu.html new file mode 100644 index 00000000..f1f55c77 --- /dev/null +++ b/html/501draw-text.mu.html @@ -0,0 +1,528 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - 501draw-text.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/501draw-text.mu'>https://github.com/akkartik/mu/blob/main/501draw-text.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># some primitives for moving the cursor without making assumptions about</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># raster order</span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L3'>move-cursor-left</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L6" class="LineNr"> 6 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L7" class="LineNr"> 7 </span> compare cursor-x, <span class="Constant">0</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if-></span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">return</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">}</span> +<span id="L12" class="LineNr"> 12 </span> cursor-x <span class="Special"><-</span> decrement +<span id="L13" class="LineNr"> 13 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y +<span id="L14" class="LineNr"> 14 </span><span class="Delimiter">}</span> +<span id="L15" class="LineNr"> 15 </span> +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L16'>move-cursor-right</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> _width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L19" class="LineNr"> 19 </span> _width, dummy <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _width +<span id="L21" class="LineNr"> 21 </span> limit <span class="Special"><-</span> decrement +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L24" class="LineNr"> 24 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L25" class="LineNr"> 25 </span> compare cursor-x, limit +<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-<</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> +<span id="L30" class="LineNr"> 30 </span> cursor-x <span class="Special"><-</span> increment +<span id="L31" class="LineNr"> 31 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y +<span id="L32" class="LineNr"> 32 </span><span class="Delimiter">}</span> +<span id="L33" class="LineNr"> 33 </span> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L34'>move-cursor-up</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L37" class="LineNr"> 37 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L38" class="LineNr"> 38 </span> compare cursor-y, <span class="Constant">0</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break-if-></span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">return</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> +<span id="L43" class="LineNr"> 43 </span> cursor-y <span class="Special"><-</span> decrement +<span id="L44" class="LineNr"> 44 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y +<span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span> +<span id="L47" class="LineNr"> 47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L47'>move-cursor-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> _height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L50" class="LineNr"> 50 </span> dummy, _height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _height +<span id="L52" class="LineNr"> 52 </span> limit <span class="Special"><-</span> decrement +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L55" class="LineNr"> 55 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L56" class="LineNr"> 56 </span> compare cursor-y, limit +<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">{</span> +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">break-if-<</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">return</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> +<span id="L61" class="LineNr"> 61 </span> cursor-y <span class="Special"><-</span> increment +<span id="L62" class="LineNr"> 62 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y +<span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> +<span id="L64" class="LineNr"> 64 </span> +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> _height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L68" class="LineNr"> 68 </span> dummy, _height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _height +<span id="L70" class="LineNr"> 70 </span> limit <span class="Special"><-</span> decrement +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L73" class="LineNr"> 73 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L74" class="LineNr"> 74 </span> compare cursor-y, limit +<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">break-if-<</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">return</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">}</span> +<span id="L79" class="LineNr"> 79 </span> cursor-y <span class="Special"><-</span> increment +<span id="L80" class="LineNr"> 80 </span> cursor-x <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L81" class="LineNr"> 81 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y +<span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> +<span id="L83" class="LineNr"> 83 </span> +<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), g: grapheme, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L87" class="LineNr"> 87 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L88" class="LineNr"> 88 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, cursor-x, cursor-y, color, background-color +<span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> +<span id="L90" class="LineNr"> 90 </span> +<span id="L91" class="LineNr"> 91 </span><span class="muComment"># we can't really render non-ASCII yet, but when we do we'll be ready</span> +<span id="L92" class="LineNr"> 92 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L92'>draw-code-point-at-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), c: code-point, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L94" class="LineNr"> 94 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, color, background-color +<span id="L95" class="LineNr"> 95 </span><span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span> +<span id="L97" class="LineNr"> 97 </span><span class="muComment"># draw a single line of text from x, y to xmax</span> +<span id="L98" class="LineNr"> 98 </span><span class="muComment"># return the next 'x' coordinate</span> +<span id="L99" class="LineNr"> 99 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L100" class="LineNr">100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L100'>draw-text-rightward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L103" class="LineNr">103 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L111'>draw-stream-rightward</a> <a href='500text-screen.mu.html#L9'>screen</a>, stream, x, xmax, y, color, background-color +<span id="L105" class="LineNr">105 </span> <span class="PreProc">return</span> xcurr +<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> +<span id="L107" class="LineNr">107 </span> +<span id="L108" class="LineNr">108 </span><span class="muComment"># draw a single-line stream from x, y to xmax</span> +<span id="L109" class="LineNr">109 </span><span class="muComment"># return the next 'x' coordinate</span> +<span id="L110" class="LineNr">110 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L111" class="LineNr">111 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L111'>draw-stream-rightward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), stream: (addr stream byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x +<span id="L113" class="LineNr">113 </span> <span class="Delimiter">{</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream +<span id="L115" class="LineNr">115 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L116" class="LineNr">116 </span> <span class="PreProc">break-if-=</span> +<span id="L117" class="LineNr">117 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, y, color, background-color +<span id="L118" class="LineNr">118 </span> xcurr <span class="Special"><-</span> increment +<span id="L119" class="LineNr">119 </span> <span class="PreProc">loop</span> +<span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, y +<span id="L122" class="LineNr">122 </span> <span class="PreProc">return</span> xcurr +<span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> +<span id="L124" class="LineNr">124 </span> +<span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L125'>draw-text-rightward-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L128" class="LineNr">128 </span> width, height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, x, width, y, color, background-color +<span id="L130" class="LineNr">130 </span> <span class="PreProc">return</span> result +<span id="L131" class="LineNr">131 </span><span class="Delimiter">}</span> +<span id="L132" class="LineNr">132 </span> +<span id="L133" class="LineNr">133 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L136" class="LineNr">136 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L137" class="LineNr">137 </span> cursor-x <span class="Special"><-</span> <a href='501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, cursor-x, xmax, cursor-y, color, background-color +<span id="L138" class="LineNr">138 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y +<span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> +<span id="L140" class="LineNr">140 </span> +<span id="L141" class="LineNr">141 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L141'>render-grapheme</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), g: grapheme, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L142" class="LineNr">142 </span> compare g, <span class="Constant">0xa</span>/newline +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x +<span id="L144" class="LineNr">144 </span> <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">break-if-!=</span> +<span id="L146" class="LineNr">146 </span> <span class="muComment"># minimum effort to clear cursor</span> +<span id="L147" class="LineNr">147 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space, x, y, color, background-color +<span id="L148" class="LineNr">148 </span> x <span class="Special"><-</span> copy xmin +<span id="L149" class="LineNr">149 </span> increment y +<span id="L150" class="LineNr">150 </span> <span class="PreProc">return</span> x, y +<span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> +<span id="L152" class="LineNr">152 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, x, y, color, background-color +<span id="L153" class="LineNr">153 </span> x <span class="Special"><-</span> increment +<span id="L154" class="LineNr">154 </span> compare x, xmax +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if-<</span> +<span id="L157" class="LineNr">157 </span> x <span class="Special"><-</span> copy xmin +<span id="L158" class="LineNr">158 </span> increment y +<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span> <span class="PreProc">return</span> x, y +<span id="L161" class="LineNr">161 </span><span class="Delimiter">}</span> +<span id="L162" class="LineNr">162 </span> +<span id="L163" class="LineNr">163 </span><span class="muComment"># draw text in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L164" class="LineNr">164 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L165" class="LineNr">165 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L166" class="LineNr">166 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L167" class="LineNr">167 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L170" class="LineNr">170 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _x +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L173" class="LineNr">173 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L181'>draw-stream-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, stream, xmin, ymin, xmax, ymax, x, y, color, background-color +<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> x, y +<span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> +<span id="L176" class="LineNr">176 </span> +<span id="L177" class="LineNr">177 </span><span class="muComment"># draw a stream in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L178" class="LineNr">178 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L179" class="LineNr">179 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L180" class="LineNr">180 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L181" class="LineNr">181 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L181'>draw-stream-wrapping-right-then-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L185" class="LineNr">185 </span> <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="Delimiter">{</span> +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream +<span id="L188" class="LineNr">188 </span> g <span class="Special"><-</span> copy _g +<span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> +<span id="L190" class="LineNr">190 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L191" class="LineNr">191 </span> <span class="PreProc">break-if-=</span> +<span id="L192" class="LineNr">192 </span> xcurr, ycurr <span class="Special"><-</span> <a href='501draw-text.mu.html#L141'>render-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xmin, ymin, xmax, ymax, xcurr, ycurr, color, background-color +<span id="L193" class="LineNr">193 </span> <span class="PreProc">loop</span> +<span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> +<span id="L195" class="LineNr">195 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr +<span id="L196" class="LineNr">196 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> +<span id="L198" class="LineNr">198 </span> +<span id="L199" class="LineNr">199 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), xmin: int, xmax: int <span class="Delimiter">{</span> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L202" class="LineNr">202 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L203" class="LineNr">203 </span> cursor-x <span class="Special"><-</span> increment +<span id="L204" class="LineNr">204 </span> compare cursor-x, xmax +<span id="L205" class="LineNr">205 </span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">break-if-<</span> +<span id="L207" class="LineNr">207 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L208" class="LineNr">208 </span> cursor-y <span class="Special"><-</span> increment +<span id="L209" class="LineNr">209 </span> <span class="Delimiter">}</span> +<span id="L210" class="LineNr">210 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y +<span id="L211" class="LineNr">211 </span><span class="Delimiter">}</span> +<span id="L212" class="LineNr">212 </span> +<span id="L213" class="LineNr">213 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L213'>draw-text-wrapping-right-then-down-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L216" class="LineNr">216 </span> x2, y2 <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> +<span id="L217" class="LineNr">217 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L218" class="LineNr">218 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L219" class="LineNr">219 </span><span class="Delimiter">}</span> +<span id="L220" class="LineNr">220 </span> +<span id="L221" class="LineNr">221 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L221'>draw-text-wrapping-right-then-down-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L224" class="LineNr">224 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> end-x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy cursor-x +<span id="L226" class="LineNr">226 </span> end-x <span class="Special"><-</span> increment +<span id="L227" class="LineNr">227 </span> compare end-x, xmax +<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-<</span> +<span id="L230" class="LineNr">230 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L231" class="LineNr">231 </span> cursor-y <span class="Special"><-</span> increment +<span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> +<span id="L233" class="LineNr">233 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> +<span id="L235" class="LineNr">235 </span> +<span id="L236" class="LineNr">236 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L239" class="LineNr">239 </span> width, height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L240" class="LineNr">240 </span> <a href='501draw-text.mu.html#L221'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color +<span id="L241" class="LineNr">241 </span><span class="Delimiter">}</span> +<span id="L242" class="LineNr">242 </span> +<span id="L243" class="LineNr">243 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L243'>draw-int32-hex-wrapping-right-then-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L246" class="LineNr">246 </span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, n +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy x +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L249" class="LineNr">249 </span> <span class="Delimiter">{</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream +<span id="L251" class="LineNr">251 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L252" class="LineNr">252 </span> <span class="PreProc">break-if-=</span> +<span id="L253" class="LineNr">253 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, ycurr, color, background-color +<span id="L254" class="LineNr">254 </span> xcurr <span class="Special"><-</span> increment +<span id="L255" class="LineNr">255 </span> compare xcurr, xmax +<span id="L256" class="LineNr">256 </span> <span class="Delimiter">{</span> +<span id="L257" class="LineNr">257 </span> <span class="PreProc">break-if-<</span> +<span id="L258" class="LineNr">258 </span> xcurr <span class="Special"><-</span> copy xmin +<span id="L259" class="LineNr">259 </span> ycurr <span class="Special"><-</span> increment +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">loop</span> +<span id="L262" class="LineNr">262 </span> <span class="Delimiter">}</span> +<span id="L263" class="LineNr">263 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr +<span id="L264" class="LineNr">264 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L265" class="LineNr">265 </span><span class="Delimiter">}</span> +<span id="L266" class="LineNr">266 </span> +<span id="L267" class="LineNr">267 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L267'>draw-int32-hex-wrapping-right-then-down-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L270" class="LineNr">270 </span> x2, y2 <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> +<span id="L271" class="LineNr">271 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L243'>draw-int32-hex-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L272" class="LineNr">272 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L273" class="LineNr">273 </span><span class="Delimiter">}</span> +<span id="L274" class="LineNr">274 </span> +<span id="L275" class="LineNr">275 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L275'>draw-int32-hex-wrapping-right-then-down-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L278" class="LineNr">278 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> end-x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy cursor-x +<span id="L280" class="LineNr">280 </span> end-x <span class="Special"><-</span> increment +<span id="L281" class="LineNr">281 </span> compare end-x, xmax +<span id="L282" class="LineNr">282 </span> <span class="Delimiter">{</span> +<span id="L283" class="LineNr">283 </span> <span class="PreProc">break-if-<</span> +<span id="L284" class="LineNr">284 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L285" class="LineNr">285 </span> cursor-y <span class="Special"><-</span> increment +<span id="L286" class="LineNr">286 </span> <span class="Delimiter">}</span> +<span id="L287" class="LineNr">287 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L243'>draw-int32-hex-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L288" class="LineNr">288 </span><span class="Delimiter">}</span> +<span id="L289" class="LineNr">289 </span> +<span id="L290" class="LineNr">290 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L293" class="LineNr">293 </span> width, height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L294" class="LineNr">294 </span> <a href='501draw-text.mu.html#L275'>draw-int32-hex-wrapping-right-then-down-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color +<span id="L295" class="LineNr">295 </span><span class="Delimiter">}</span> +<span id="L296" class="LineNr">296 </span> +<span id="L297" class="LineNr">297 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L297'>draw-int32-decimal-wrapping-right-then-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L300" class="LineNr">300 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> stream, n +<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy x +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L303" class="LineNr">303 </span> <span class="Delimiter">{</span> +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream +<span id="L305" class="LineNr">305 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L306" class="LineNr">306 </span> <span class="PreProc">break-if-=</span> +<span id="L307" class="LineNr">307 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, ycurr, color, background-color +<span id="L308" class="LineNr">308 </span> xcurr <span class="Special"><-</span> increment +<span id="L309" class="LineNr">309 </span> compare xcurr, xmax +<span id="L310" class="LineNr">310 </span> <span class="Delimiter">{</span> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">break-if-<</span> +<span id="L312" class="LineNr">312 </span> xcurr <span class="Special"><-</span> copy xmin +<span id="L313" class="LineNr">313 </span> ycurr <span class="Special"><-</span> increment +<span id="L314" class="LineNr">314 </span> <span class="Delimiter">}</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">loop</span> +<span id="L316" class="LineNr">316 </span> <span class="Delimiter">}</span> +<span id="L317" class="LineNr">317 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr +<span id="L318" class="LineNr">318 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L319" class="LineNr">319 </span><span class="Delimiter">}</span> +<span id="L320" class="LineNr">320 </span> +<span id="L321" class="LineNr">321 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L321'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L324" class="LineNr">324 </span> x2, y2 <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> +<span id="L325" class="LineNr">325 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L297'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L326" class="LineNr">326 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L327" class="LineNr">327 </span><span class="Delimiter">}</span> +<span id="L328" class="LineNr">328 </span> +<span id="L329" class="LineNr">329 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L329'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L332" class="LineNr">332 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> end-x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy cursor-x +<span id="L334" class="LineNr">334 </span> end-x <span class="Special"><-</span> increment +<span id="L335" class="LineNr">335 </span> compare end-x, xmax +<span id="L336" class="LineNr">336 </span> <span class="Delimiter">{</span> +<span id="L337" class="LineNr">337 </span> <span class="PreProc">break-if-<</span> +<span id="L338" class="LineNr">338 </span> cursor-x <span class="Special"><-</span> copy xmin +<span id="L339" class="LineNr">339 </span> cursor-y <span class="Special"><-</span> increment +<span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> +<span id="L341" class="LineNr">341 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L297'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L342" class="LineNr">342 </span><span class="Delimiter">}</span> +<span id="L343" class="LineNr">343 </span> +<span id="L344" class="LineNr">344 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L344'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L345" class="LineNr">345 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L347" class="LineNr">347 </span> width, height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L348" class="LineNr">348 </span> <a href='501draw-text.mu.html#L329'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color +<span id="L349" class="LineNr">349 </span><span class="Delimiter">}</span> +<span id="L350" class="LineNr">350 </span> +<span id="L351" class="LineNr">351 </span><span class="muComment">## Text direction: down then right</span> +<span id="L352" class="LineNr">352 </span> +<span id="L353" class="LineNr">353 </span><span class="muComment"># draw a single line of text vertically from x, y to ymax</span> +<span id="L354" class="LineNr">354 </span><span class="muComment"># return the next 'y' coordinate</span> +<span id="L355" class="LineNr">355 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L356" class="LineNr">356 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L356'>draw-text-downward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L359" class="LineNr">359 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L367'>draw-stream-downward</a> <a href='500text-screen.mu.html#L9'>screen</a>, stream, x, y, ymax, color, background-color +<span id="L361" class="LineNr">361 </span> <span class="PreProc">return</span> ycurr +<span id="L362" class="LineNr">362 </span><span class="Delimiter">}</span> +<span id="L363" class="LineNr">363 </span> +<span id="L364" class="LineNr">364 </span><span class="muComment"># draw a single-line stream vertically from x, y to ymax</span> +<span id="L365" class="LineNr">365 </span><span class="muComment"># return the next 'y' coordinate</span> +<span id="L366" class="LineNr">366 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L367" class="LineNr">367 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L367'>draw-stream-downward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), stream: (addr stream byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L369" class="LineNr">369 </span> <span class="Delimiter">{</span> +<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream +<span id="L371" class="LineNr">371 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L372" class="LineNr">372 </span> <span class="PreProc">break-if-=</span> +<span id="L373" class="LineNr">373 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, x, ycurr, color, background-color +<span id="L374" class="LineNr">374 </span> ycurr <span class="Special"><-</span> increment +<span id="L375" class="LineNr">375 </span> <span class="PreProc">loop</span> +<span id="L376" class="LineNr">376 </span> <span class="Delimiter">}</span> +<span id="L377" class="LineNr">377 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, ycurr +<span id="L378" class="LineNr">378 </span> <span class="PreProc">return</span> ycurr +<span id="L379" class="LineNr">379 </span><span class="Delimiter">}</span> +<span id="L380" class="LineNr">380 </span> +<span id="L381" class="LineNr">381 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L381'>draw-text-downward-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L384" class="LineNr">384 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L356'>draw-text-downward</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, cursor-x, cursor-y, ymax, color, background-color +<span id="L386" class="LineNr">386 </span><span class="Delimiter">}</span> +<span id="L387" class="LineNr">387 </span> +<span id="L388" class="LineNr">388 </span><span class="muComment"># draw text down and right in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L389" class="LineNr">389 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L390" class="LineNr">390 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L391" class="LineNr">391 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L392" class="LineNr">392 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L392'>draw-text-wrapping-down-then-right</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L395" class="LineNr">395 </span> <a href='108write.subx.html#L11'>write</a> stream, text +<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _x +<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L398" class="LineNr">398 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L406'>draw-stream-wrapping-down-then-right</a> <a href='500text-screen.mu.html#L9'>screen</a>, stream, xmin, ymin, xmax, ymax, x, y, color, background-color +<span id="L399" class="LineNr">399 </span> <span class="PreProc">return</span> x, y +<span id="L400" class="LineNr">400 </span><span class="Delimiter">}</span> +<span id="L401" class="LineNr">401 </span> +<span id="L402" class="LineNr">402 </span><span class="muComment"># draw a stream down and right in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> +<span id="L403" class="LineNr">403 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> +<span id="L404" class="LineNr">404 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> +<span id="L405" class="LineNr">405 </span><span class="muComment"># if there isn't enough space, truncate</span> +<span id="L406" class="LineNr">406 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L406'>draw-stream-wrapping-down-then-right</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), stream: (addr stream byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy x +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L409" class="LineNr">409 </span> <span class="Delimiter">{</span> +<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream +<span id="L411" class="LineNr">411 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file +<span id="L412" class="LineNr">412 </span> <span class="PreProc">break-if-=</span> +<span id="L413" class="LineNr">413 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, ycurr, color, background-color +<span id="L414" class="LineNr">414 </span> ycurr <span class="Special"><-</span> increment +<span id="L415" class="LineNr">415 </span> compare ycurr, ymax +<span id="L416" class="LineNr">416 </span> <span class="Delimiter">{</span> +<span id="L417" class="LineNr">417 </span> <span class="PreProc">break-if-<</span> +<span id="L418" class="LineNr">418 </span> xcurr <span class="Special"><-</span> increment +<span id="L419" class="LineNr">419 </span> ycurr <span class="Special"><-</span> copy ymin +<span id="L420" class="LineNr">420 </span> <span class="Delimiter">}</span> +<span id="L421" class="LineNr">421 </span> <span class="PreProc">loop</span> +<span id="L422" class="LineNr">422 </span> <span class="Delimiter">}</span> +<span id="L423" class="LineNr">423 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr +<span id="L424" class="LineNr">424 </span> <span class="PreProc">return</span> xcurr, ycurr +<span id="L425" class="LineNr">425 </span><span class="Delimiter">}</span> +<span id="L426" class="LineNr">426 </span> +<span id="L427" class="LineNr">427 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L427'>draw-text-wrapping-down-then-right-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L430" class="LineNr">430 </span> x2, y2 <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> +<span id="L431" class="LineNr">431 </span> x2, y2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L392'>draw-text-wrapping-down-then-right</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color +<span id="L432" class="LineNr">432 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> +<span id="L433" class="LineNr">433 </span><span class="Delimiter">}</span> +<span id="L434" class="LineNr">434 </span> +<span id="L435" class="LineNr">435 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L435'>draw-text-wrapping-down-then-right-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> +<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L437" class="LineNr">437 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L438" class="LineNr">438 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L439" class="LineNr">439 </span> <span class="PreProc">var</span> end-y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy cursor-y +<span id="L440" class="LineNr">440 </span> end-y <span class="Special"><-</span> increment +<span id="L441" class="LineNr">441 </span> compare end-y, ymax +<span id="L442" class="LineNr">442 </span> <span class="Delimiter">{</span> +<span id="L443" class="LineNr">443 </span> <span class="PreProc">break-if-<</span> +<span id="L444" class="LineNr">444 </span> cursor-x <span class="Special"><-</span> increment +<span id="L445" class="LineNr">445 </span> cursor-y <span class="Special"><-</span> copy ymin +<span id="L446" class="LineNr">446 </span> <span class="Delimiter">}</span> +<span id="L447" class="LineNr">447 </span> cursor-x, cursor-y <span class="Special"><-</span> <a href='501draw-text.mu.html#L392'>draw-text-wrapping-down-then-right</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color +<span id="L448" class="LineNr">448 </span><span class="Delimiter">}</span> +<span id="L449" class="LineNr">449 </span> +<span id="L450" class="LineNr">450 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L450'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> +<span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L453" class="LineNr">453 </span> width, height <span class="Special"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L454" class="LineNr">454 </span> <a href='501draw-text.mu.html#L435'>draw-text-wrapping-down-then-right-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color +<span id="L455" class="LineNr">455 </span><span class="Delimiter">}</span> +<span id="L456" class="LineNr">456 </span> +<span id="L457" class="LineNr">457 </span><span class="muComment"># hacky error-handling</span> +<span id="L458" class="LineNr">458 </span><span class="muComment"># just go into an infinite loop</span> +<span id="L459" class="LineNr">459 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L459'>abort</a></span> e: (addr array byte) <span class="Delimiter">{</span> +<span id="L460" class="LineNr">460 </span> <span class="PreProc">var</span> dummy1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L461" class="LineNr">461 </span> <span class="PreProc">var</span> dummy2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L462" class="LineNr">462 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='501draw-text.mu.html#L213'>draw-text-wrapping-right-then-down-over-full-screen</a> <span class="Constant">0</span>/screen, e, <span class="Constant">0</span>/x, <span class="Constant">0x2f</span>/y, <span class="Constant">0xf</span>/fg=white, <span class="Constant">0xc</span>/bg=red +<span id="L463" class="LineNr">463 </span> <span class="Delimiter">{</span> +<span id="L464" class="LineNr">464 </span> <span class="PreProc">loop</span> +<span id="L465" class="LineNr">465 </span> <span class="Delimiter">}</span> +<span id="L466" class="LineNr">466 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/502test.mu.html b/html/502test.mu.html index 8bce697e..444c5ca3 100644 --- a/html/baremetal/502test.mu.html +++ b/html/502test.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/502test.mu</title> +<title>Mu - 502test.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } @@ -55,48 +55,51 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/502test.mu'>https://github.com/akkartik/mu/blob/main/baremetal/502test.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/502test.mu'>https://github.com/akkartik/mu/blob/main/502test.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># print msg to screen if a != b, otherwise print "."</span> <span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='502test.mu.html#L2'>check-ints-equal</a></span> _a: int, b: int, msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _a +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _a <span id="L4" class="LineNr"> 4 </span> compare a, b <span id="L5" class="LineNr"> 5 </span> <span class="Delimiter">{</span> <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">break-if-!=</span> -<span id="L7" class="LineNr"> 7 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L7" class="LineNr"> 7 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">return</span> <span id="L9" class="LineNr"> 9 </span> <span class="Delimiter">}</span> -<span id="L10" class="LineNr">10 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L11" class="LineNr">11 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L12" class="LineNr">12 </span><span class="Delimiter">}</span> -<span id="L13" class="LineNr">13 </span> -<span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muTest"><a href='502test.mu.html#L14'>test-check-ints-equal</a></span> <span class="Delimiter">{</span> -<span id="L15" class="LineNr">15 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">"abc"</span> -<span id="L16" class="LineNr">16 </span><span class="Delimiter">}</span> -<span id="L17" class="LineNr">17 </span> -<span id="L18" class="LineNr">18 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='502test.mu.html#L18'>check</a></span> _a: boolean, msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _a -<span id="L20" class="LineNr">20 </span> compare a, <span class="Constant">0</span>/false -<span id="L21" class="LineNr">21 </span> <span class="Delimiter">{</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">break-if-=</span> -<span id="L23" class="LineNr">23 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L24" class="LineNr">24 </span> <span class="PreProc">return</span> -<span id="L25" class="LineNr">25 </span> <span class="Delimiter">}</span> -<span id="L26" class="LineNr">26 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L27" class="LineNr">27 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L28" class="LineNr">28 </span><span class="Delimiter">}</span> -<span id="L29" class="LineNr">29 </span> -<span id="L30" class="LineNr">30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='502test.mu.html#L30'>check-not</a></span> _a: boolean, msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L31" class="LineNr">31 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _a -<span id="L32" class="LineNr">32 </span> compare a, <span class="Constant">0</span>/false -<span id="L33" class="LineNr">33 </span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr">34 </span> <span class="PreProc">break-if-!=</span> -<span id="L35" class="LineNr">35 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L36" class="LineNr">36 </span> <span class="PreProc">return</span> -<span id="L37" class="LineNr">37 </span> <span class="Delimiter">}</span> -<span id="L38" class="LineNr">38 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L39" class="LineNr">39 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L40" class="LineNr">40 </span><span class="Delimiter">}</span> +<span id="L10" class="LineNr">10 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L11" class="LineNr">11 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L12" class="LineNr">12 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L13" class="LineNr">13 </span><span class="Delimiter">}</span> +<span id="L14" class="LineNr">14 </span> +<span id="L15" class="LineNr">15 </span><span class="PreProc">fn</span> <span class="muTest"><a href='502test.mu.html#L15'>test-check-ints-equal</a></span> <span class="Delimiter">{</span> +<span id="L16" class="LineNr">16 </span> <a href='502test.mu.html#L2'>check-ints-equal</a> <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">"abc"</span> +<span id="L17" class="LineNr">17 </span><span class="Delimiter">}</span> +<span id="L18" class="LineNr">18 </span> +<span id="L19" class="LineNr">19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='502test.mu.html#L19'>check</a></span> _a: boolean, msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _a +<span id="L21" class="LineNr">21 </span> compare a, <span class="Constant">0</span>/false +<span id="L22" class="LineNr">22 </span> <span class="Delimiter">{</span> +<span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if-=</span> +<span id="L24" class="LineNr">24 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L25" class="LineNr">25 </span> <span class="PreProc">return</span> +<span id="L26" class="LineNr">26 </span> <span class="Delimiter">}</span> +<span id="L27" class="LineNr">27 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L28" class="LineNr">28 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L29" class="LineNr">29 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L30" class="LineNr">30 </span><span class="Delimiter">}</span> +<span id="L31" class="LineNr">31 </span> +<span id="L32" class="LineNr">32 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='502test.mu.html#L32'>check-not</a></span> _a: boolean, msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _a +<span id="L34" class="LineNr">34 </span> compare a, <span class="Constant">0</span>/false +<span id="L35" class="LineNr">35 </span> <span class="Delimiter">{</span> +<span id="L36" class="LineNr">36 </span> <span class="PreProc">break-if-!=</span> +<span id="L37" class="LineNr">37 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L38" class="LineNr">38 </span> <span class="PreProc">return</span> +<span id="L39" class="LineNr">39 </span> <span class="Delimiter">}</span> +<span id="L40" class="LineNr">40 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L41" class="LineNr">41 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L42" class="LineNr">42 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L43" class="LineNr">43 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/baremetal/503manhattan-line.mu.html b/html/503manhattan-line.mu.html index e0fe8d04..b89ad0b7 100644 --- a/html/baremetal/503manhattan-line.mu.html +++ b/html/503manhattan-line.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/503manhattan-line.mu</title> +<title>Mu - 503manhattan-line.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -17,9 +17,9 @@ a { color:inherit; } .PreProc { color: #c000c0; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } +.Special { color: #ff6060; } --> </style> @@ -53,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/503manhattan-line.mu'>https://github.com/akkartik/mu/blob/main/baremetal/503manhattan-line.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/503manhattan-line.mu'>https://github.com/akkartik/mu/blob/main/503manhattan-line.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='503manhattan-line.mu.html#L1'>draw-box-on-real-screen</a></span> x1: int, y1: int, x2: int, y2: int, color: int <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> <a href='503manhattan-line.mu.html#L8'>draw-horizontal-line-on-real-screen</a> x1, x2, y1, color @@ -63,23 +63,23 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='503manhattan-line.mu.html#L8'>draw-horizontal-line-on-real-screen</a></span> x1: int, x2: int, y: int, color: int <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy x1 +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x1 <span id="L10" class="LineNr">10 </span> <span class="Delimiter">{</span> <span id="L11" class="LineNr">11 </span> compare x, x2 <span id="L12" class="LineNr">12 </span> <span class="PreProc">break-if->=</span> <span id="L13" class="LineNr">13 </span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x, y, color -<span id="L14" class="LineNr">14 </span> x <span class="SpecialChar"><-</span> increment +<span id="L14" class="LineNr">14 </span> x <span class="Special"><-</span> increment <span id="L15" class="LineNr">15 </span> <span class="PreProc">loop</span> <span id="L16" class="LineNr">16 </span> <span class="Delimiter">}</span> <span id="L17" class="LineNr">17 </span><span class="Delimiter">}</span> <span id="L18" class="LineNr">18 </span> <span id="L19" class="LineNr">19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='503manhattan-line.mu.html#L19'>draw-vertical-line-on-real-screen</a></span> x: int, y1: int, y2: int, color: int <span class="Delimiter">{</span> -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy y1 +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy y1 <span id="L21" class="LineNr">21 </span> <span class="Delimiter">{</span> <span id="L22" class="LineNr">22 </span> compare y, y2 <span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if->=</span> <span id="L24" class="LineNr">24 </span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x, y, color -<span id="L25" class="LineNr">25 </span> y <span class="SpecialChar"><-</span> increment +<span id="L25" class="LineNr">25 </span> y <span class="Special"><-</span> increment <span id="L26" class="LineNr">26 </span> <span class="PreProc">loop</span> <span id="L27" class="LineNr">27 </span> <span class="Delimiter">}</span> <span id="L28" class="LineNr">28 </span><span class="Delimiter">}</span> diff --git a/html/baremetal/504test-screen.mu.html b/html/504test-screen.mu.html index aa3894a4..7ea9be77 100644 --- a/html/baremetal/504test-screen.mu.html +++ b/html/504test-screen.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/504test-screen.mu</title> +<title>Mu - 504test-screen.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/504test-screen.mu'>https://github.com/akkartik/mu/blob/main/baremetal/504test-screen.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/504test-screen.mu'>https://github.com/akkartik/mu/blob/main/504test-screen.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Some primitives for checking the state of fake screen objects.</span> <span id="L2" class="LineNr"> 2 </span> @@ -68,19 +68,19 @@ if ('onhashchange' in window) { <span id="L9" class="LineNr"> 9 </span><span class="Delimiter">}</span> <span id="L10" class="LineNr"> 10 </span> <span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L11'>check-screen-row-from</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), x: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y <span id="L14" class="LineNr"> 14 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> <span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e <span id="L17" class="LineNr"> 17 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">{</span> -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr <span id="L20" class="LineNr"> 20 </span> compare done?, <span class="Constant">0</span> <span id="L21" class="LineNr"> 21 </span> <span class="PreProc">break-if-!=</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr <span id="L25" class="LineNr"> 25 </span> <span class="muComment"># compare graphemes</span> <span id="L26" class="LineNr"> 26 </span> $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span> <span id="L27" class="LineNr"> 27 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> @@ -94,288 +94,296 @@ if ('onhashchange' in window) { <span id="L35" class="LineNr"> 35 </span> compare g, expected-grapheme <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> <span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-!=</span> -<span id="L38" class="LineNr"> 38 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L38" class="LineNr"> 38 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg <span id="L39" class="LineNr"> 39 </span> <span class="PreProc">break</span> $check-screen-row-from:compare-graphemes <span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> <span id="L41" class="LineNr"> 41 </span> <span class="muComment"># otherwise print an error</span> <span id="L42" class="LineNr"> 42 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L43" class="LineNr"> 43 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L44" class="LineNr"> 44 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L45" class="LineNr"> 45 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L46" class="LineNr"> 46 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L47" class="LineNr"> 47 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L48" class="LineNr"> 48 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L49" class="LineNr"> 49 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L50" class="LineNr"> 50 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L51" class="LineNr"> 51 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L52" class="LineNr"> 52 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L53" class="LineNr"> 53 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L54" class="LineNr"> 54 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L57" class="LineNr"> 57 </span> increment x -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">loop</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">}</span> -<span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> -<span id="L61" class="LineNr"> 61 </span> -<span id="L62" class="LineNr"> 62 </span><span class="muComment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span> -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L64'>check-screen-row-in-color</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), fg: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L65" class="LineNr"> 65 </span> <a href='504test-screen.mu.html#L68'>check-screen-row-in-color-from</a> <a href='500text-screen.mu.html#L9'>screen</a>, fg, y, <span class="Constant">0</span>/x, expected, msg -<span id="L66" class="LineNr"> 66 </span><span class="Delimiter">}</span> -<span id="L67" class="LineNr"> 67 </span> -<span id="L68" class="LineNr"> 68 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L68'>check-screen-row-in-color-from</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), fg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y -<span id="L71" class="LineNr"> 71 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L74" class="LineNr"> 74 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected -<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L77" class="LineNr"> 77 </span> compare done?, <span class="Constant">0</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">break-if-!=</span> -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L83" class="LineNr"> 83 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L84" class="LineNr"> 84 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">{</span> -<span id="L86" class="LineNr"> 86 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">break-if-!=</span> -<span id="L88" class="LineNr"> 88 </span> compare g, <span class="Constant">0</span> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells -<span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">}</span> -<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">{</span> -<span id="L93" class="LineNr"> 93 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">break-if-!=</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L269'>screen-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L96" class="LineNr"> 96 </span> compare color, fg -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells -<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">}</span> -<span id="L99" class="LineNr"> 99 </span> <span class="muComment"># compare graphemes</span> -<span id="L100" class="LineNr">100 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L102" class="LineNr">102 </span> compare g, expected-grapheme -<span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">break-if-!=</span> -<span id="L105" class="LineNr">105 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L106" class="LineNr">106 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes -<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> -<span id="L108" class="LineNr">108 </span> <span class="muComment"># otherwise print an error</span> -<span id="L109" class="LineNr">109 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L110" class="LineNr">110 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L111" class="LineNr">111 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L112" class="LineNr">112 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L113" class="LineNr">113 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L114" class="LineNr">114 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L115" class="LineNr">115 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L116" class="LineNr">116 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L117" class="LineNr">117 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L118" class="LineNr">118 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L119" class="LineNr">119 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L120" class="LineNr">120 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L121" class="LineNr">121 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L269'>screen-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L125" class="LineNr">125 </span> compare fg, color -<span id="L126" class="LineNr">126 </span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">break-if-!=</span> -<span id="L128" class="LineNr">128 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L129" class="LineNr">129 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors -<span id="L130" class="LineNr">130 </span> <span class="Delimiter">}</span> -<span id="L131" class="LineNr">131 </span> <span class="muComment"># otherwise print an error</span> -<span id="L132" class="LineNr">132 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L133" class="LineNr">133 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L134" class="LineNr">134 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L135" class="LineNr">135 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L136" class="LineNr">136 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L137" class="LineNr">137 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L138" class="LineNr">138 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L139" class="LineNr">139 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L140" class="LineNr">140 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L141" class="LineNr">141 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L142" class="LineNr">142 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, fg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L143" class="LineNr">143 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L144" class="LineNr">144 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L145" class="LineNr">145 </span> <span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> <span class="Delimiter">}</span> -<span id="L147" class="LineNr">147 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L148" class="LineNr">148 </span> increment x -<span id="L149" class="LineNr">149 </span> <span class="PreProc">loop</span> -<span id="L150" class="LineNr">150 </span> <span class="Delimiter">}</span> -<span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> -<span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L153'>check-screen-row-in-background-color</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L154" class="LineNr">154 </span> <a href='504test-screen.mu.html#L157'>check-screen-row-in-background-color-from</a> <a href='500text-screen.mu.html#L9'>screen</a>, bg, y, <span class="Constant">0</span>/x, expected, msg -<span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> -<span id="L156" class="LineNr">156 </span> -<span id="L157" class="LineNr">157 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L157'>check-screen-row-in-background-color-from</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y -<span id="L160" class="LineNr">160 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L163" class="LineNr">163 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected -<span id="L164" class="LineNr">164 </span> <span class="Delimiter">{</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L166" class="LineNr">166 </span> compare done?, <span class="Constant">0</span> -<span id="L167" class="LineNr">167 </span> <span class="PreProc">break-if-!=</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-grapheme -<span id="L172" class="LineNr">172 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> -<span id="L174" class="LineNr">174 </span> <span class="Delimiter">{</span> -<span id="L175" class="LineNr">175 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-!=</span> -<span id="L177" class="LineNr">177 </span> compare g, <span class="Constant">0</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells -<span id="L179" class="LineNr">179 </span> <span class="Delimiter">}</span> -<span id="L180" class="LineNr">180 </span> <span class="muComment"># if expected-grapheme is space, a different background-color is ok</span> -<span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> -<span id="L182" class="LineNr">182 </span> compare expected-grapheme, <span class="Constant">0x20</span> -<span id="L183" class="LineNr">183 </span> <span class="PreProc">break-if-!=</span> -<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> background-color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L185" class="LineNr">185 </span> compare background-color, bg -<span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells -<span id="L187" class="LineNr">187 </span> <span class="Delimiter">}</span> -<span id="L188" class="LineNr">188 </span> <span class="muComment"># compare graphemes</span> -<span id="L189" class="LineNr">189 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> -<span id="L190" class="LineNr">190 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> -<span id="L191" class="LineNr">191 </span> compare g, expected-grapheme -<span id="L192" class="LineNr">192 </span> <span class="Delimiter">{</span> -<span id="L193" class="LineNr">193 </span> <span class="PreProc">break-if-!=</span> -<span id="L194" class="LineNr">194 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L195" class="LineNr">195 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes -<span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> -<span id="L197" class="LineNr">197 </span> <span class="muComment"># otherwise print an error</span> -<span id="L198" class="LineNr">198 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L199" class="LineNr">199 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L200" class="LineNr">200 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L201" class="LineNr">201 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L202" class="LineNr">202 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L203" class="LineNr">203 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L204" class="LineNr">204 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L205" class="LineNr">205 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L206" class="LineNr">206 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L207" class="LineNr">207 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L208" class="LineNr">208 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L209" class="LineNr">209 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L210" class="LineNr">210 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L211" class="LineNr">211 </span> <span class="Delimiter">}</span> -<span id="L212" class="LineNr">212 </span> $check-screen-row-in-background-color-from:compare-background-colors: <span class="Delimiter">{</span> -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> background-color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L214" class="LineNr">214 </span> compare bg, background-color -<span id="L215" class="LineNr">215 </span> <span class="Delimiter">{</span> -<span id="L216" class="LineNr">216 </span> <span class="PreProc">break-if-!=</span> -<span id="L217" class="LineNr">217 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L218" class="LineNr">218 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-background-colors -<span id="L219" class="LineNr">219 </span> <span class="Delimiter">}</span> -<span id="L220" class="LineNr">220 </span> <span class="muComment"># otherwise print an error</span> -<span id="L221" class="LineNr">221 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L222" class="LineNr">222 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L223" class="LineNr">223 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L224" class="LineNr">224 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg -<span id="L225" class="LineNr">225 </span> <a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width -<span id="L226" class="LineNr">226 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L227" class="LineNr">227 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L228" class="LineNr">228 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L229" class="LineNr">229 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L230" class="LineNr">230 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L231" class="LineNr">231 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L232" class="LineNr">232 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L233" class="LineNr">233 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L234" class="LineNr">234 </span> <span class="Delimiter">}</span> -<span id="L235" class="LineNr">235 </span> <span class="Delimiter">}</span> -<span id="L236" class="LineNr">236 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L237" class="LineNr">237 </span> increment x -<span id="L238" class="LineNr">238 </span> <span class="PreProc">loop</span> -<span id="L239" class="LineNr">239 </span> <span class="Delimiter">}</span> -<span id="L240" class="LineNr">240 </span><span class="Delimiter">}</span> -<span id="L241" class="LineNr">241 </span> -<span id="L242" class="LineNr">242 </span><span class="muComment"># helpers for checking just background color, not screen contents</span> -<span id="L243" class="LineNr">243 </span><span class="muComment"># these can validate bg for spaces</span> -<span id="L244" class="LineNr">244 </span> -<span id="L245" class="LineNr">245 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L245'>check-background-color-in-screen-row</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, expected-bitmap: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L246" class="LineNr">246 </span> <a href='504test-screen.mu.html#L249'>check-background-color-in-screen-row-from</a> <a href='500text-screen.mu.html#L9'>screen</a>, bg, y, <span class="Constant">0</span>/x, expected-bitmap, msg -<span id="L247" class="LineNr">247 </span><span class="Delimiter">}</span> -<span id="L248" class="LineNr">248 </span> -<span id="L249" class="LineNr">249 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L249'>check-background-color-in-screen-row-from</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, x: int, expected-bitmap: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy screen-on-stack -<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y -<span id="L252" class="LineNr">252 </span> <span class="muComment"># compare background color where 'expected-bitmap' is a non-space</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address e -<span id="L255" class="LineNr">255 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected-bitmap -<span id="L256" class="LineNr">256 </span> <span class="Delimiter">{</span> -<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr -<span id="L258" class="LineNr">258 </span> compare done?, <span class="Constant">0</span> -<span id="L259" class="LineNr">259 </span> <span class="PreProc">break-if-!=</span> -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> _expected-bit/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr -<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> expected-bit/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy _expected-bit -<span id="L262" class="LineNr">262 </span> $check-background-color-in-screen-row-from:compare-cells: <span class="Delimiter">{</span> -<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> background-color/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx -<span id="L264" class="LineNr">264 </span> <span class="muComment"># if expected-bit is space, assert that background is NOT bg</span> -<span id="L265" class="LineNr">265 </span> compare expected-bit, <span class="Constant">0x20</span> -<span id="L266" class="LineNr">266 </span> <span class="Delimiter">{</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">break-if-!=</span> -<span id="L268" class="LineNr">268 </span> compare background-color, bg -<span id="L269" class="LineNr">269 </span> <span class="PreProc">break-if-!=</span> $check-background-color-in-screen-row-from:compare-cells -<span id="L270" class="LineNr">270 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L271" class="LineNr">271 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L272" class="LineNr">272 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L273" class="LineNr">273 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L274" class="LineNr">274 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L275" class="LineNr">275 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L276" class="LineNr">276 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") to not be in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L277" class="LineNr">277 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L278" class="LineNr">278 </span> <span class="PreProc">break</span> $check-background-color-in-screen-row-from:compare-cells -<span id="L279" class="LineNr">279 </span> <span class="Delimiter">}</span> -<span id="L280" class="LineNr">280 </span> <span class="muComment"># otherwise assert that background IS bg</span> -<span id="L281" class="LineNr">281 </span> compare background-color, bg -<span id="L282" class="LineNr">282 </span> <span class="PreProc">break-if-=</span> $check-background-color-in-screen-row-from:compare-cells -<span id="L283" class="LineNr">283 </span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L284" class="LineNr">284 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L285" class="LineNr">285 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L286" class="LineNr">286 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L287" class="LineNr">287 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L288" class="LineNr">288 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L289" class="LineNr">289 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L290" class="LineNr">290 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L291" class="LineNr">291 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L292" class="LineNr">292 </span> <a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg -<span id="L293" class="LineNr">293 </span> <span class="Delimiter">}</span> -<span id="L294" class="LineNr">294 </span> idx <span class="SpecialChar"><-</span> increment -<span id="L295" class="LineNr">295 </span> increment x -<span id="L296" class="LineNr">296 </span> <span class="PreProc">loop</span> -<span id="L297" class="LineNr">297 </span> <span class="Delimiter">}</span> -<span id="L298" class="LineNr">298 </span><span class="Delimiter">}</span> -<span id="L299" class="LineNr">299 </span> -<span id="L300" class="LineNr">300 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L300'>test-draw-single-grapheme</a></span> <span class="Delimiter">{</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L303" class="LineNr">303 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L304" class="LineNr">304 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x61</span>/a, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg -<span id="L305" class="LineNr">305 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme"</span> <span class="muComment"># top-left corner of the screen</span> -<span id="L306" class="LineNr">306 </span> <a href='504test-screen.mu.html#L64'>check-screen-row-in-color</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme-fg"</span> -<span id="L307" class="LineNr">307 </span> <a href='504test-screen.mu.html#L153'>check-screen-row-in-background-color</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme-bg"</span> -<span id="L308" class="LineNr">308 </span> <a href='504test-screen.mu.html#L245'>check-background-color-in-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"x "</span>, <span class="Constant">"F - test-draw-single-grapheme-bg2"</span> -<span id="L309" class="LineNr">309 </span><span class="Delimiter">}</span> -<span id="L310" class="LineNr">310 </span> -<span id="L311" class="LineNr">311 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L311'>test-draw-multiple-graphemes</a></span> <span class="Delimiter">{</span> -<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L314" class="LineNr">314 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/rows, <span class="Constant">4</span>/cols -<span id="L315" class="LineNr">315 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg -<span id="L316" class="LineNr">316 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-graphemes"</span> -<span id="L317" class="LineNr">317 </span> <a href='504test-screen.mu.html#L64'>check-screen-row-in-color</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-graphemes-fg"</span> -<span id="L318" class="LineNr">318 </span> <a href='504test-screen.mu.html#L245'>check-background-color-in-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"xxxxxxxxx "</span>, <span class="Constant">"F - test-draw-multiple-graphemes-bg2"</span> -<span id="L319" class="LineNr">319 </span><span class="Delimiter">}</span> +<span id="L43" class="LineNr"> 43 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L44" class="LineNr"> 44 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L45" class="LineNr"> 45 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L46" class="LineNr"> 46 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L47" class="LineNr"> 47 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L48" class="LineNr"> 48 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L49" class="LineNr"> 49 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L50" class="LineNr"> 50 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L51" class="LineNr"> 51 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L52" class="LineNr"> 52 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L53" class="LineNr"> 53 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L54" class="LineNr"> 54 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L55" class="LineNr"> 55 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">}</span> +<span id="L57" class="LineNr"> 57 </span> idx <span class="Special"><-</span> increment +<span id="L58" class="LineNr"> 58 </span> increment x +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">loop</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> +<span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> +<span id="L62" class="LineNr"> 62 </span> +<span id="L63" class="LineNr"> 63 </span><span class="muComment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span> +<span id="L64" class="LineNr"> 64 </span> +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L65'>check-screen-row-in-color</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), fg: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <a href='504test-screen.mu.html#L69'>check-screen-row-in-color-from</a> <a href='500text-screen.mu.html#L9'>screen</a>, fg, y, <span class="Constant">0</span>/x, expected, msg +<span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> +<span id="L68" class="LineNr"> 68 </span> +<span id="L69" class="LineNr"> 69 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L69'>check-screen-row-in-color-from</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), fg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y +<span id="L72" class="LineNr"> 72 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L75" class="LineNr"> 75 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected +<span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">{</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L78" class="LineNr"> 78 </span> compare done?, <span class="Constant">0</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">break-if-!=</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L84" class="LineNr"> 84 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">{</span> +<span id="L87" class="LineNr"> 87 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">break-if-!=</span> +<span id="L89" class="LineNr"> 89 </span> compare g, <span class="Constant">0</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells +<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">}</span> +<span id="L92" class="LineNr"> 92 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-!=</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L269'>screen-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L97" class="LineNr"> 97 </span> compare color, fg +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells +<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> <span class="muComment"># compare graphemes</span> +<span id="L101" class="LineNr">101 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L103" class="LineNr">103 </span> compare g, expected-grapheme +<span id="L104" class="LineNr">104 </span> <span class="Delimiter">{</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">break-if-!=</span> +<span id="L106" class="LineNr">106 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L107" class="LineNr">107 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes +<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> <span class="muComment"># otherwise print an error</span> +<span id="L110" class="LineNr">110 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L111" class="LineNr">111 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L112" class="LineNr">112 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L113" class="LineNr">113 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L114" class="LineNr">114 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L115" class="LineNr">115 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L116" class="LineNr">116 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L117" class="LineNr">117 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L118" class="LineNr">118 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L119" class="LineNr">119 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L120" class="LineNr">120 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L121" class="LineNr">121 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L122" class="LineNr">122 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L123" class="LineNr">123 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> +<span id="L125" class="LineNr">125 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L269'>screen-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L127" class="LineNr">127 </span> compare fg, color +<span id="L128" class="LineNr">128 </span> <span class="Delimiter">{</span> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">break-if-!=</span> +<span id="L130" class="LineNr">130 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L131" class="LineNr">131 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors +<span id="L132" class="LineNr">132 </span> <span class="Delimiter">}</span> +<span id="L133" class="LineNr">133 </span> <span class="muComment"># otherwise print an error</span> +<span id="L134" class="LineNr">134 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L135" class="LineNr">135 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L136" class="LineNr">136 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L137" class="LineNr">137 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L138" class="LineNr">138 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L139" class="LineNr">139 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L140" class="LineNr">140 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L141" class="LineNr">141 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L142" class="LineNr">142 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L143" class="LineNr">143 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L144" class="LineNr">144 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, fg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L145" class="LineNr">145 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L146" class="LineNr">146 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L147" class="LineNr">147 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> +<span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> +<span id="L150" class="LineNr">150 </span> idx <span class="Special"><-</span> increment +<span id="L151" class="LineNr">151 </span> increment x +<span id="L152" class="LineNr">152 </span> <span class="PreProc">loop</span> +<span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> +<span id="L154" class="LineNr">154 </span><span class="Delimiter">}</span> +<span id="L155" class="LineNr">155 </span> +<span id="L156" class="LineNr">156 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L156'>check-screen-row-in-background-color</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L157" class="LineNr">157 </span> <a href='504test-screen.mu.html#L160'>check-screen-row-in-background-color-from</a> <a href='500text-screen.mu.html#L9'>screen</a>, bg, y, <span class="Constant">0</span>/x, expected, msg +<span id="L158" class="LineNr">158 </span><span class="Delimiter">}</span> +<span id="L159" class="LineNr">159 </span> +<span id="L160" class="LineNr">160 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L160'>check-screen-row-in-background-color-from</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, x: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y +<span id="L163" class="LineNr">163 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L166" class="LineNr">166 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected +<span id="L167" class="LineNr">167 </span> <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L169" class="LineNr">169 </span> compare done?, <span class="Constant">0</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-!=</span> +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='500text-screen.mu.html#L251'>screen-grapheme-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L175" class="LineNr">175 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> +<span id="L176" class="LineNr">176 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">break-if-!=</span> +<span id="L180" class="LineNr">180 </span> compare g, <span class="Constant">0</span> +<span id="L181" class="LineNr">181 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells +<span id="L182" class="LineNr">182 </span> <span class="Delimiter">}</span> +<span id="L183" class="LineNr">183 </span> <span class="muComment"># if expected-grapheme is space, a different background-color is ok</span> +<span id="L184" class="LineNr">184 </span> <span class="Delimiter">{</span> +<span id="L185" class="LineNr">185 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-!=</span> +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> background-color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L188" class="LineNr">188 </span> compare background-color, bg +<span id="L189" class="LineNr">189 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells +<span id="L190" class="LineNr">190 </span> <span class="Delimiter">}</span> +<span id="L191" class="LineNr">191 </span> <span class="muComment"># compare graphemes</span> +<span id="L192" class="LineNr">192 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L194" class="LineNr">194 </span> compare g, expected-grapheme +<span id="L195" class="LineNr">195 </span> <span class="Delimiter">{</span> +<span id="L196" class="LineNr">196 </span> <span class="PreProc">break-if-!=</span> +<span id="L197" class="LineNr">197 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L198" class="LineNr">198 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> +<span id="L200" class="LineNr">200 </span> <span class="muComment"># otherwise print an error</span> +<span id="L201" class="LineNr">201 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L202" class="LineNr">202 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L203" class="LineNr">203 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L204" class="LineNr">204 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L205" class="LineNr">205 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L206" class="LineNr">206 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L207" class="LineNr">207 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L208" class="LineNr">208 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L209" class="LineNr">209 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L210" class="LineNr">210 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") but observed '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L211" class="LineNr">211 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L212" class="LineNr">212 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L213" class="LineNr">213 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"'"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L214" class="LineNr">214 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L215" class="LineNr">215 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes +<span id="L216" class="LineNr">216 </span> <span class="Delimiter">}</span> +<span id="L217" class="LineNr">217 </span> $check-screen-row-in-background-color-from:compare-background-colors: <span class="Delimiter">{</span> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> background-color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L219" class="LineNr">219 </span> compare bg, background-color +<span id="L220" class="LineNr">220 </span> <span class="Delimiter">{</span> +<span id="L221" class="LineNr">221 </span> <span class="PreProc">break-if-!=</span> +<span id="L222" class="LineNr">222 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"."</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L223" class="LineNr">223 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-background-colors +<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> <span class="muComment"># otherwise print an error</span> +<span id="L226" class="LineNr">226 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L227" class="LineNr">227 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L228" class="LineNr">228 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected '"</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L229" class="LineNr">229 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, expected-grapheme, <span class="Constant">3</span>/cyan, <span class="Constant">0</span>/bg +<span id="L230" class="LineNr">230 </span> <a href='501draw-text.mu.html#L199'>move-cursor-rightward-and-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>/xmin, <span class="Constant">0x80</span>/xmax=screen-width +<span id="L231" class="LineNr">231 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"' at ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L232" class="LineNr">232 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L233" class="LineNr">233 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L234" class="LineNr">234 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L235" class="LineNr">235 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L236" class="LineNr">236 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L237" class="LineNr">237 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L238" class="LineNr">238 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L239" class="LineNr">239 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> +<span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> +<span id="L242" class="LineNr">242 </span> idx <span class="Special"><-</span> increment +<span id="L243" class="LineNr">243 </span> increment x +<span id="L244" class="LineNr">244 </span> <span class="PreProc">loop</span> +<span id="L245" class="LineNr">245 </span> <span class="Delimiter">}</span> +<span id="L246" class="LineNr">246 </span><span class="Delimiter">}</span> +<span id="L247" class="LineNr">247 </span> +<span id="L248" class="LineNr">248 </span><span class="muComment"># helpers for checking just background color, not screen contents</span> +<span id="L249" class="LineNr">249 </span><span class="muComment"># these can validate bg for spaces</span> +<span id="L250" class="LineNr">250 </span> +<span id="L251" class="LineNr">251 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L251'>check-background-color-in-screen-row</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, expected-bitmap: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L252" class="LineNr">252 </span> <a href='504test-screen.mu.html#L255'>check-background-color-in-screen-row-from</a> <a href='500text-screen.mu.html#L9'>screen</a>, bg, y, <span class="Constant">0</span>/x, expected-bitmap, msg +<span id="L253" class="LineNr">253 </span><span class="Delimiter">}</span> +<span id="L254" class="LineNr">254 </span> +<span id="L255" class="LineNr">255 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='504test-screen.mu.html#L255'>check-background-color-in-screen-row-from</a></span> screen-on-stack: (addr <a href='500text-screen.mu.html#L9'>screen</a>), bg: int, y: int, x: int, expected-bitmap: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L100'>screen-cell-index</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, y +<span id="L258" class="LineNr">258 </span> <span class="muComment"># compare background color where 'expected-bitmap' is a non-space</span> +<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L261" class="LineNr">261 </span> <a href='108write.subx.html#L11'>write</a> e-addr, expected-bitmap +<span id="L262" class="LineNr">262 </span> <span class="Delimiter">{</span> +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L264" class="LineNr">264 </span> compare done?, <span class="Constant">0</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">break-if-!=</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> _expected-bit/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> e-addr +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> expected-bit/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy _expected-bit +<span id="L268" class="LineNr">268 </span> $check-background-color-in-screen-row-from:compare-cells: <span class="Delimiter">{</span> +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> background-color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='500text-screen.mu.html#L288'>screen-background-color-at-idx</a> <a href='500text-screen.mu.html#L9'>screen</a>, idx +<span id="L270" class="LineNr">270 </span> <span class="muComment"># if expected-bit is space, assert that background is NOT bg</span> +<span id="L271" class="LineNr">271 </span> compare expected-bit, <span class="Constant">0x20</span> +<span id="L272" class="LineNr">272 </span> <span class="Delimiter">{</span> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">break-if-!=</span> +<span id="L274" class="LineNr">274 </span> compare background-color, bg +<span id="L275" class="LineNr">275 </span> <span class="PreProc">break-if-!=</span> $check-background-color-in-screen-row-from:compare-cells +<span id="L276" class="LineNr">276 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L277" class="LineNr">277 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L278" class="LineNr">278 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L279" class="LineNr">279 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L280" class="LineNr">280 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L281" class="LineNr">281 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L282" class="LineNr">282 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") to not be in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L283" class="LineNr">283 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L284" class="LineNr">284 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L285" class="LineNr">285 </span> <span class="PreProc">break</span> $check-background-color-in-screen-row-from:compare-cells +<span id="L286" class="LineNr">286 </span> <span class="Delimiter">}</span> +<span id="L287" class="LineNr">287 </span> <span class="muComment"># otherwise assert that background IS bg</span> +<span id="L288" class="LineNr">288 </span> compare background-color, bg +<span id="L289" class="LineNr">289 </span> <span class="PreProc">break-if-=</span> $check-background-color-in-screen-row-from:compare-cells +<span id="L290" class="LineNr">290 </span> <a href='104test.subx.html#L5'>count-test-failure</a> +<span id="L291" class="LineNr">291 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, msg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L292" class="LineNr">292 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">": expected ("</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L293" class="LineNr">293 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, x, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L294" class="LineNr">294 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">", "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L295" class="LineNr">295 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L296" class="LineNr">296 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">") in background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L297" class="LineNr">297 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, bg, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L298" class="LineNr">298 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">" but observed background-color "</span>, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L299" class="LineNr">299 </span> <a href='501draw-text.mu.html#L290'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, background-color, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L300" class="LineNr">300 </span> <a href='501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> <span class="Constant">0</span>/screen +<span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> +<span id="L302" class="LineNr">302 </span> idx <span class="Special"><-</span> increment +<span id="L303" class="LineNr">303 </span> increment x +<span id="L304" class="LineNr">304 </span> <span class="PreProc">loop</span> +<span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> +<span id="L306" class="LineNr">306 </span><span class="Delimiter">}</span> +<span id="L307" class="LineNr">307 </span> +<span id="L308" class="LineNr">308 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L308'>test-draw-single-grapheme</a></span> <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L311" class="LineNr">311 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L312" class="LineNr">312 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x61</span>/a, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg +<span id="L313" class="LineNr">313 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L314" class="LineNr">314 </span> <a href='504test-screen.mu.html#L65'>check-screen-row-in-color</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme-fg"</span> +<span id="L315" class="LineNr">315 </span> <a href='504test-screen.mu.html#L156'>check-screen-row-in-background-color</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"a"</span>, <span class="Constant">"F - test-draw-single-grapheme-bg"</span> +<span id="L316" class="LineNr">316 </span> <a href='504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"x "</span>, <span class="Constant">"F - test-draw-single-grapheme-bg2"</span> +<span id="L317" class="LineNr">317 </span><span class="Delimiter">}</span> +<span id="L318" class="LineNr">318 </span> +<span id="L319" class="LineNr">319 </span><span class="PreProc">fn</span> <span class="muTest"><a href='504test-screen.mu.html#L319'>test-draw-multiple-graphemes</a></span> <span class="Delimiter">{</span> +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> +<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L322" class="LineNr">322 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/rows, <span class="Constant">4</span>/cols +<span id="L323" class="LineNr">323 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">1</span>/fg, <span class="Constant">2</span>/bg +<span id="L324" class="LineNr">324 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-graphemes"</span> +<span id="L325" class="LineNr">325 </span> <a href='504test-screen.mu.html#L65'>check-screen-row-in-color</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/y, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-draw-multiple-graphemes-fg"</span> +<span id="L326" class="LineNr">326 </span> <a href='504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/bg, <span class="Constant">0</span>/y, <span class="Constant">"xxxxxxxxx "</span>, <span class="Constant">"F - test-draw-multiple-graphemes-bg2"</span> +<span id="L327" class="LineNr">327 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/apps/boot.hex.html b/html/apps/boot.hex.html deleted file mode 100644 index 73afd017..00000000 --- a/html/apps/boot.hex.html +++ /dev/null @@ -1,401 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/boot.hex</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="conf"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-family: monospace; color: #000000; background-color: #c6c6c6; } -* { font-size: 1em; } -.Todo { color: #000000; background-color: #ffff00; padding-bottom: 1px; } -.LineNr { color: #888888; } -.Comment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/boot.hex'>https://github.com/akkartik/mu/blob/main/apps/boot.hex</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># Bootable image that:</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment"># - loads more sectors past the first boot sector (using BIOS primitives)</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># - switches to 32-bit mode (giving up access to BIOS primitives)</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># - sets up a handler for keyboard events</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment"># - as an example program, prints alphabets to the top-left position on screen (by writing to memory-mapped VGA memory) as they're typed</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment">#</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment"># If the initial load fails, it prints 'D' to the top-left of the screen and</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># halts.</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment">#</span> -<span id="L10" class="LineNr"> 10 </span><span class="Comment"># To convert to a disk image, first prepare a realistically sized disk image:</span> -<span id="L11" class="LineNr"> 11 </span><span class="Comment"># dd if=/dev/zero of=disk.img count=20160 # 512-byte sectors, so 10MB</span> -<span id="L12" class="LineNr"> 12 </span><span class="Comment"># Now fill in sectors:</span> -<span id="L13" class="LineNr"> 13 </span><span class="Comment"># ./bootstrap run apps/hex < apps/boot.hex > boot.bin</span> -<span id="L14" class="LineNr"> 14 </span><span class="Comment"># dd if=boot.bin of=disk.img conv=notrunc</span> -<span id="L15" class="LineNr"> 15 </span><span class="Comment"># To run:</span> -<span id="L16" class="LineNr"> 16 </span><span class="Comment"># qemu-system-i386 disk.img</span> -<span id="L17" class="LineNr"> 17 </span><span class="Comment"># Or:</span> -<span id="L18" class="LineNr"> 18 </span><span class="Comment"># bochs -f apps/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L19" class="LineNr"> 19 </span><span class="Comment">#</span> -<span id="L20" class="LineNr"> 20 </span><span class="Comment"># Since we start out in 16-bit mode, we need instructions SubX doesn't</span> -<span id="L21" class="LineNr"> 21 </span><span class="Comment"># support.</span> -<span id="L22" class="LineNr"> 22 </span><span class="Comment"># This file contains just hex bytes and comments. Zero error-checking. Make</span> -<span id="L23" class="LineNr"> 23 </span><span class="Comment"># liberal use of:</span> -<span id="L24" class="LineNr"> 24 </span><span class="Comment"># - comments documenting expected offsets</span> -<span id="L25" class="LineNr"> 25 </span><span class="Comment"># - size checks on the emitted file (currently: 512 bytes)</span> -<span id="L26" class="LineNr"> 26 </span><span class="Comment"># - xxd to eyeball that offsets contain expected bytes</span> -<span id="L27" class="LineNr"> 27 </span> -<span id="L28" class="LineNr"> 28 </span><span class="Comment">## 16-bit entry point</span> -<span id="L29" class="LineNr"> 29 </span> -<span id="L30" class="LineNr"> 30 </span><span class="Comment"># Upon reset, the IBM PC</span> -<span id="L31" class="LineNr"> 31 </span><span class="Comment"># loads the first sector (512 bytes)</span> -<span id="L32" class="LineNr"> 32 </span><span class="Comment"># from some bootable image (see the boot sector marker at the end of this file)</span> -<span id="L33" class="LineNr"> 33 </span><span class="Comment"># to the address range [0x7c00, 0x7e00)</span> -<span id="L34" class="LineNr"> 34 </span> -<span id="L35" class="LineNr"> 35 </span><span class="Comment"># offset 00 (address 0x7c00):</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Comment"># disable interrupts for this initialization</span> -<span id="L37" class="LineNr"> 37 </span> fa <span class="Comment"># cli</span> -<span id="L38" class="LineNr"> 38 </span> -<span id="L39" class="LineNr"> 39 </span> <span class="Comment"># initialize segment registers</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Comment"># this isn't always needed, but is considered safe not to assume</span> -<span id="L41" class="LineNr"> 41 </span> b8 00 00 <span class="Comment"># ax <- 0</span> -<span id="L42" class="LineNr"> 42 </span> 8e d8 <span class="Comment"># ds <- ax</span> -<span id="L43" class="LineNr"> 43 </span> 8e d0 <span class="Comment"># ss <- ax</span> -<span id="L44" class="LineNr"> 44 </span> 8e c0 <span class="Comment"># es <- ax</span> -<span id="L45" class="LineNr"> 45 </span> 8e e0 <span class="Comment"># fs <- ax</span> -<span id="L46" class="LineNr"> 46 </span> 8e e8 <span class="Comment"># gs <- ax</span> -<span id="L47" class="LineNr"> 47 </span> -<span id="L48" class="LineNr"> 48 </span> <span class="Comment"># We don't read or write the stack before we get to 32-bit mode. No function</span> -<span id="L49" class="LineNr"> 49 </span> <span class="Comment"># calls, so we don't need to initialize the stack.</span> -<span id="L50" class="LineNr"> 50 </span> -<span id="L51" class="LineNr"> 51 </span><span class="Comment"># 0e:</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Comment"># load more sectors from disk</span> -<span id="L53" class="LineNr"> 53 </span> b4 02 <span class="Comment"># ah <- 2 # read sectors from disk</span> -<span id="L54" class="LineNr"> 54 </span> <span class="Comment"># dl comes conveniently initialized at boot time with the index of the device being booted</span> -<span id="L55" class="LineNr"> 55 </span> b5 00 <span class="Comment"># ch <- 0 # cylinder 0</span> -<span id="L56" class="LineNr"> 56 </span> b6 00 <span class="Comment"># dh <- 0 # track 0</span> -<span id="L57" class="LineNr"> 57 </span> b1 02 <span class="Comment"># cl <- 2 # second sector, 1-based</span> -<span id="L58" class="LineNr"> 58 </span> b0 01 <span class="Comment"># al <- 1 # number of sectors to read</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Comment"># address to write sectors to = es:bx = 0x7e00, contiguous with boot segment</span> -<span id="L60" class="LineNr"> 60 </span> bb 00 00 <span class="Comment"># bx <- 0</span> -<span id="L61" class="LineNr"> 61 </span> 8e c3 <span class="Comment"># es <- bx</span> -<span id="L62" class="LineNr"> 62 </span> bb 00 7e <span class="Comment"># bx <- 0x7e00</span> -<span id="L63" class="LineNr"> 63 </span> cd 13 <span class="Comment"># int 13h, BIOS disk service</span> -<span id="L64" class="LineNr"> 64 </span> 0f 82 76 00 <span class="Comment"># jump-if-carry disk-error</span> -<span id="L65" class="LineNr"> 65 </span> -<span id="L66" class="LineNr"> 66 </span><span class="Comment"># 26:</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Comment"># undo the A20 hack: <a href="https://en.wikipedia.org/wiki/A20_line">https://en.wikipedia.org/wiki/A20_line</a></span> -<span id="L68" class="LineNr"> 68 </span> <span class="Comment"># this is from <a href="https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S">https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S</a></span> -<span id="L69" class="LineNr"> 69 </span> <span class="Comment"># seta20.1:</span> -<span id="L70" class="LineNr"> 70 </span> e4 64 <span class="Comment"># al <- port 0x64</span> -<span id="L71" class="LineNr"> 71 </span> a8 02 <span class="Comment"># set zf if bit 1 (second-least significant) is not set</span> -<span id="L72" class="LineNr"> 72 </span> 75 fa <span class="Comment"># if zf not set, goto seta20.1 (-6)</span> -<span id="L73" class="LineNr"> 73 </span> -<span id="L74" class="LineNr"> 74 </span> b0 d1 <span class="Comment"># al <- 0xd1</span> -<span id="L75" class="LineNr"> 75 </span> e6 64 <span class="Comment"># port 0x64 <- al</span> -<span id="L76" class="LineNr"> 76 </span> -<span id="L77" class="LineNr"> 77 </span><span class="Comment"># 30:</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Comment"># seta20.2:</span> -<span id="L79" class="LineNr"> 79 </span> e4 64 <span class="Comment"># al <- port 0x64</span> -<span id="L80" class="LineNr"> 80 </span> a8 02 <span class="Comment"># set zf if bit 1 (second-least significant) is not set</span> -<span id="L81" class="LineNr"> 81 </span> 75 fa <span class="Comment"># if zf not set, goto seta20.2 (-6)</span> -<span id="L82" class="LineNr"> 82 </span> -<span id="L83" class="LineNr"> 83 </span> b0 df <span class="Comment"># al <- 0xdf</span> -<span id="L84" class="LineNr"> 84 </span> e6 64 <span class="Comment"># port 0x64 <- al</span> -<span id="L85" class="LineNr"> 85 </span> -<span id="L86" class="LineNr"> 86 </span><span class="Comment"># 3a:</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Comment"># switch to 32-bit mode</span> -<span id="L88" class="LineNr"> 88 </span> 0f 01 16 <span class="Comment"># lgdt 00/mod/indirect 010/subop 110/rm/use-disp16</span> -<span id="L89" class="LineNr"> 89 </span> 80 7c <span class="Comment"># *gdt_descriptor</span> -<span id="L90" class="LineNr"> 90 </span><span class="Comment"># 3f:</span> -<span id="L91" class="LineNr"> 91 </span> 0f 20 c0 <span class="Comment"># eax <- cr0</span> -<span id="L92" class="LineNr"> 92 </span> 66 83 c8 01 <span class="Comment"># eax <- or 0x1</span> -<span id="L93" class="LineNr"> 93 </span> 0f 22 c0 <span class="Comment"># cr0 <- eax</span> -<span id="L94" class="LineNr"> 94 </span> ea c0 7c 08 00 <span class="Comment"># far jump to initialize_32bit_mode after setting cs to the record at offset 8 in the gdt (gdt_code)</span> -<span id="L95" class="LineNr"> 95 </span> -<span id="L96" class="LineNr"> 96 </span><span class="Comment"># padding</span> -<span id="L97" class="LineNr"> 97 </span><span class="Comment"># 4e:</span> -<span id="L98" class="LineNr"> 98 </span> 00 00 -<span id="L99" class="LineNr"> 99 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L100" class="LineNr">100 </span> -<span id="L101" class="LineNr">101 </span><span class="Comment">## GDT: 3 records of 8 bytes each</span> -<span id="L102" class="LineNr">102 </span> -<span id="L103" class="LineNr">103 </span><span class="Comment"># 60:</span> -<span id="L104" class="LineNr">104 </span><span class="Comment"># gdt_start:</span> -<span id="L105" class="LineNr">105 </span><span class="Comment"># gdt_null: mandatory null descriptor</span> -<span id="L106" class="LineNr">106 </span> 00 00 00 00 00 00 00 00 -<span id="L107" class="LineNr">107 </span><span class="Comment"># gdt_code: (offset 8 from gdt_start)</span> -<span id="L108" class="LineNr">108 </span> ff ff <span class="Comment"># limit[0:16]</span> -<span id="L109" class="LineNr">109 </span> 00 00 00 <span class="Comment"># base[0:24]</span> -<span id="L110" class="LineNr">110 </span> 9a <span class="Comment"># 1/present 00/privilege 1/descriptor type = 1001b</span> -<span id="L111" class="LineNr">111 </span> <span class="Comment"># 1/code 0/conforming 1/readable 0/accessed = 1010b</span> -<span id="L112" class="LineNr">112 </span> cf <span class="Comment"># 1/granularity 1/32-bit 0/64-bit-segment 0/AVL = 1100b</span> -<span id="L113" class="LineNr">113 </span> <span class="Comment"># limit[16:20] = 1111b</span> -<span id="L114" class="LineNr">114 </span> 00 <span class="Comment"># base[24:32]</span> -<span id="L115" class="LineNr">115 </span><span class="Comment"># gdt_data: (offset 16 from gdt_start)</span> -<span id="L116" class="LineNr">116 </span> ff ff <span class="Comment"># limit[0:16]</span> -<span id="L117" class="LineNr">117 </span> 00 00 00 <span class="Comment"># base[0:24]</span> -<span id="L118" class="LineNr">118 </span> 92 <span class="Comment"># 1/present 00/privilege 1/descriptor type = 1001b</span> -<span id="L119" class="LineNr">119 </span> <span class="Comment"># 0/data 0/conforming 1/readable 0/accessed = 0010b</span> -<span id="L120" class="LineNr">120 </span> cf <span class="Comment"># same as gdt_code</span> -<span id="L121" class="LineNr">121 </span> 00 <span class="Comment"># base[24:32]</span> -<span id="L122" class="LineNr">122 </span><span class="Comment"># gdt_end:</span> -<span id="L123" class="LineNr">123 </span> -<span id="L124" class="LineNr">124 </span><span class="Comment"># padding</span> -<span id="L125" class="LineNr">125 </span><span class="Comment"># 78:</span> -<span id="L126" class="LineNr">126 </span> 00 00 00 00 00 00 00 00 -<span id="L127" class="LineNr">127 </span> -<span id="L128" class="LineNr">128 </span><span class="Comment"># 80:</span> -<span id="L129" class="LineNr">129 </span><span class="Comment"># gdt_descriptor:</span> -<span id="L130" class="LineNr">130 </span> 17 00 <span class="Comment"># final index of gdt = gdt_end - gdt_start - 1</span> -<span id="L131" class="LineNr">131 </span> 60 7c 00 00 <span class="Comment"># start = gdt_start</span> -<span id="L132" class="LineNr">132 </span> -<span id="L133" class="LineNr">133 </span><span class="Comment"># padding</span> -<span id="L134" class="LineNr">134 </span><span class="Comment"># 85:</span> -<span id="L135" class="LineNr">135 </span> 00 00 00 00 00 00 00 00 00 00 -<span id="L136" class="LineNr">136 </span> -<span id="L137" class="LineNr">137 </span><span class="Comment"># 90:</span> -<span id="L138" class="LineNr">138 </span><span class="Comment"># disk_error:</span> -<span id="L139" class="LineNr">139 </span> <span class="Comment"># print 'D' to top-left of screen to indicate disk error</span> -<span id="L140" class="LineNr">140 </span> <span class="Comment"># *0xb8000 <- 0x0f44</span> -<span id="L141" class="LineNr">141 </span> <span class="Comment"># bx <- 0xb800</span> -<span id="L142" class="LineNr">142 </span> bb 00 b8 -<span id="L143" class="LineNr">143 </span> <span class="Comment"># ds <- bx</span> -<span id="L144" class="LineNr">144 </span> 8e db <span class="Comment"># 11b/mod 011b/reg/ds 011b/rm/bx</span> -<span id="L145" class="LineNr">145 </span> <span class="Comment"># al <- 'D'</span> -<span id="L146" class="LineNr">146 </span> b0 44 -<span id="L147" class="LineNr">147 </span> <span class="Comment"># ah <- 0x0f # white on black</span> -<span id="L148" class="LineNr">148 </span> b4 0f -<span id="L149" class="LineNr">149 </span> <span class="Comment"># bx <- 0</span> -<span id="L150" class="LineNr">150 </span> bb 00 00 -<span id="L151" class="LineNr">151 </span> <span class="Comment"># *ds:bx <- ax</span> -<span id="L152" class="LineNr">152 </span> 89 07 <span class="Comment"># 00b/mod/indirect 000b/reg/ax 111b/rm/bx</span> -<span id="L153" class="LineNr">153 </span> -<span id="L154" class="LineNr">154 </span>e9 fb ff <span class="Comment"># loop forever</span> -<span id="L155" class="LineNr">155 </span> -<span id="L156" class="LineNr">156 </span><span class="Comment"># padding</span> -<span id="L157" class="LineNr">157 </span><span class="Comment"># a1:</span> -<span id="L158" class="LineNr">158 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L159" class="LineNr">159 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L160" class="LineNr">160 </span> -<span id="L161" class="LineNr">161 </span><span class="Comment">## 32-bit code from this point (still some instructions not in SubX)</span> -<span id="L162" class="LineNr">162 </span> -<span id="L163" class="LineNr">163 </span><span class="Comment"># c0:</span> -<span id="L164" class="LineNr">164 </span><span class="Comment"># initialize_32bit_mode:</span> -<span id="L165" class="LineNr">165 </span> 66 b8 10 00 <span class="Comment"># ax <- offset 16 from gdt_start</span> -<span id="L166" class="LineNr">166 </span> 8e d8 <span class="Comment"># ds <- ax</span> -<span id="L167" class="LineNr">167 </span> 8e d0 <span class="Comment"># ss <- ax</span> -<span id="L168" class="LineNr">168 </span> 8e c0 <span class="Comment"># es <- ax</span> -<span id="L169" class="LineNr">169 </span> 8e e0 <span class="Comment"># fs <- ax</span> -<span id="L170" class="LineNr">170 </span> 8e e8 <span class="Comment"># gs <- ax</span> -<span id="L171" class="LineNr">171 </span> -<span id="L172" class="LineNr">172 </span> <span class="Comment"># load interrupt handlers</span> -<span id="L173" class="LineNr">173 </span> 0f 01 1d <span class="Comment"># lidt 00/mod/indirect 011/subop 101/rm32/use-disp32</span> -<span id="L174" class="LineNr">174 </span> 00 7f 00 00 <span class="Comment"># *idt_descriptor</span> -<span id="L175" class="LineNr">175 </span> -<span id="L176" class="LineNr">176 </span> <span class="Comment"># enable keyboard IRQ</span> -<span id="L177" class="LineNr">177 </span> b0 fd <span class="Comment"># al <- 0xfd # enable just IRQ1</span> -<span id="L178" class="LineNr">178 </span> e6 21 <span class="Comment"># port 0x21 <- al</span> -<span id="L179" class="LineNr">179 </span> -<span id="L180" class="LineNr">180 </span> <span class="Comment"># initialization is done; enable interrupts</span> -<span id="L181" class="LineNr">181 </span> fb -<span id="L182" class="LineNr">182 </span> e9 21 00 00 00 <span class="Comment"># jump to 0x7d00</span> -<span id="L183" class="LineNr">183 </span> -<span id="L184" class="LineNr">184 </span><span class="Comment"># padding</span> -<span id="L185" class="LineNr">185 </span><span class="Comment"># df:</span> -<span id="L186" class="LineNr">186 </span> 00 -<span id="L187" class="LineNr">187 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L188" class="LineNr">188 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L189" class="LineNr">189 </span> -<span id="L190" class="LineNr">190 </span><span class="Comment">## 'application' SubX code: print one character to top-left of screen</span> -<span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="Comment"># offset 100 (address 0x7d00):</span> -<span id="L193" class="LineNr">193 </span><span class="Comment"># Entry:</span> -<span id="L194" class="LineNr">194 </span> <span class="Comment"># eax <- *0x7ff4 # random address in second segment containing 'H'</span> -<span id="L195" class="LineNr">195 </span> 8b <span class="Comment"># copy rm32 to r32</span> -<span id="L196" class="LineNr">196 </span> 05 <span class="Comment"># 00/mod/indirect 000/r32/eax 101/rm32/use-disp32</span> -<span id="L197" class="LineNr">197 </span> <span class="Comment"># disp32</span> -<span id="L198" class="LineNr">198 </span> f4 7f 00 00 -<span id="L199" class="LineNr">199 </span> <span class="Comment"># *0xb8000 <- eax</span> -<span id="L200" class="LineNr">200 </span> 89 <span class="Comment"># copy r32 to rm32</span> -<span id="L201" class="LineNr">201 </span> 05 <span class="Comment"># 00/mod/indirect 000/r32/eax 101/rm32/use-disp32</span> -<span id="L202" class="LineNr">202 </span> <span class="Comment"># disp32</span> -<span id="L203" class="LineNr">203 </span> 00 80 0b 00 -<span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span>e9 fb ff ff ff <span class="Comment"># loop forever</span> -<span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="Comment"># padding</span> -<span id="L208" class="LineNr">208 </span><span class="Comment"># 111:</span> -<span id="L209" class="LineNr">209 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L210" class="LineNr">210 </span> -<span id="L211" class="LineNr">211 </span><span class="Comment"># 120:</span> -<span id="L212" class="LineNr">212 </span><span class="Comment"># null interrupt handler:</span> -<span id="L213" class="LineNr">213 </span> cf <span class="Comment"># iret</span> -<span id="L214" class="LineNr">214 </span> -<span id="L215" class="LineNr">215 </span><span class="Comment"># padding</span> -<span id="L216" class="LineNr">216 </span><span class="Comment"># 121:</span> -<span id="L217" class="LineNr">217 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L218" class="LineNr">218 </span> -<span id="L219" class="LineNr">219 </span><span class="Comment"># 130:</span> -<span id="L220" class="LineNr">220 </span><span class="Comment"># keyboard interrupt handler:</span> -<span id="L221" class="LineNr">221 </span> <span class="Comment"># prologue</span> -<span id="L222" class="LineNr">222 </span> fa <span class="Comment"># disable interrupts</span> -<span id="L223" class="LineNr">223 </span> 60 <span class="Comment"># push all registers to stack</span> -<span id="L224" class="LineNr">224 </span> <span class="Comment"># acknowledge interrupt</span> -<span id="L225" class="LineNr">225 </span> b0 20 <span class="Comment"># al <- 0x20</span> -<span id="L226" class="LineNr">226 </span> e6 20 <span class="Comment"># port 0x20 <- al</span> -<span id="L227" class="LineNr">227 </span> <span class="Comment"># read keyboard status (</span><span class="Todo">TODO</span><span class="Comment">: why bit 0? Doesn't line up with <a href="https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)">https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)</a></span> -<span id="L228" class="LineNr">228 </span><span class="Comment">#? e4 64 # al <- port 0x64</span> -<span id="L229" class="LineNr">229 </span><span class="Comment">#? a8 01 # set zf if bit 0 (least significant) is not set</span> -<span id="L230" class="LineNr">230 </span><span class="Comment">#? 74 11 # if bit 0 is not set, skip to epilogue</span> -<span id="L231" class="LineNr">231 </span> <span class="Comment"># read keycode into eax</span> -<span id="L232" class="LineNr">232 </span> 31 c0 <span class="Comment"># eax <- xor eax; 11/direct 000/r32/eax 000/rm32/eax</span> -<span id="L233" class="LineNr">233 </span> e4 60 <span class="Comment"># al <- port 0x60</span> -<span id="L234" class="LineNr">234 </span> <span class="Comment"># map key '1' to ascii; if eax == 2, eax = 0x31</span> -<span id="L235" class="LineNr">235 </span> 3d 02 00 00 00 <span class="Comment"># compare eax with 0x02</span> -<span id="L236" class="LineNr">236 </span> 75 0b <span class="Comment"># if not equal, goto epilogue</span> -<span id="L237" class="LineNr">237 </span> b8 31 0f 00 00 <span class="Comment"># eax <- 0x0f31</span> -<span id="L238" class="LineNr">238 </span> <span class="Comment"># print eax to top-left of screen (*0xb8000)</span> -<span id="L239" class="LineNr">239 </span> 89 <span class="Comment"># copy r32 to rm32</span> -<span id="L240" class="LineNr">240 </span> 05 <span class="Comment"># 00/mod/indirect 000/r32/eax 101/rm32/use-disp32</span> -<span id="L241" class="LineNr">241 </span> <span class="Comment"># disp32</span> -<span id="L242" class="LineNr">242 </span> 00 80 0b 00 -<span id="L243" class="LineNr">243 </span> <span class="Comment"># epilogue</span> -<span id="L244" class="LineNr">244 </span> 61 <span class="Comment"># pop all registers</span> -<span id="L245" class="LineNr">245 </span> fb <span class="Comment"># enable interrupts</span> -<span id="L246" class="LineNr">246 </span> cf <span class="Comment"># iret</span> -<span id="L247" class="LineNr">247 </span> -<span id="L248" class="LineNr">248 </span><span class="Comment"># padding</span> -<span id="L249" class="LineNr">249 </span><span class="Comment"># 14f</span> -<span id="L250" class="LineNr">250 </span> 00 -<span id="L251" class="LineNr">251 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L252" class="LineNr">252 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L253" class="LineNr">253 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L254" class="LineNr">254 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L255" class="LineNr">255 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L256" class="LineNr">256 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L257" class="LineNr">257 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L258" class="LineNr">258 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L259" class="LineNr">259 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L260" class="LineNr">260 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L261" class="LineNr">261 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L262" class="LineNr">262 </span> -<span id="L263" class="LineNr">263 </span><span class="Comment"># final 2 bytes of boot sector</span> -<span id="L264" class="LineNr">264 </span>55 aa -<span id="L265" class="LineNr">265 </span> -<span id="L266" class="LineNr">266 </span><span class="Comment">## sector 2</span> -<span id="L267" class="LineNr">267 </span><span class="Comment"># not loaded on boot; loaded by load_disk</span> -<span id="L268" class="LineNr">268 </span> -<span id="L269" class="LineNr">269 </span><span class="Comment"># offset 200 (address 0x7e00): interrupt descriptor table</span> -<span id="L270" class="LineNr">270 </span><span class="Comment"># 32 entries * 8 bytes each = 256 bytes (0x100)</span> -<span id="L271" class="LineNr">271 </span><span class="Comment"># idt_start:</span> -<span id="L272" class="LineNr">272 </span> -<span id="L273" class="LineNr">273 </span>00 00 00 00 00 00 00 00 -<span id="L274" class="LineNr">274 </span>00 00 00 00 00 00 00 00 -<span id="L275" class="LineNr">275 </span>00 00 00 00 00 00 00 00 -<span id="L276" class="LineNr">276 </span>00 00 00 00 00 00 00 00 -<span id="L277" class="LineNr">277 </span>00 00 00 00 00 00 00 00 -<span id="L278" class="LineNr">278 </span>00 00 00 00 00 00 00 00 -<span id="L279" class="LineNr">279 </span>00 00 00 00 00 00 00 00 -<span id="L280" class="LineNr">280 </span>00 00 00 00 00 00 00 00 -<span id="L281" class="LineNr">281 </span> -<span id="L282" class="LineNr">282 </span><span class="Comment"># entry 8: clock</span> -<span id="L283" class="LineNr">283 </span> 20 7d <span class="Comment"># target[0:16] = null interrupt handler</span> -<span id="L284" class="LineNr">284 </span> 08 00 <span class="Comment"># segment selector (gdt_code)</span> -<span id="L285" class="LineNr">285 </span> 00 <span class="Comment"># unused</span> -<span id="L286" class="LineNr">286 </span> 8e <span class="Comment"># 1/p 00/dpl 0 1110/type/32-bit-interrupt-gate</span> -<span id="L287" class="LineNr">287 </span> 00 00 <span class="Comment"># target[16:32]</span> -<span id="L288" class="LineNr">288 </span> -<span id="L289" class="LineNr">289 </span><span class="Comment"># entry 9: keyboard</span> -<span id="L290" class="LineNr">290 </span> 30 7d <span class="Comment"># target[0:16] = keyboard interrupt handler</span> -<span id="L291" class="LineNr">291 </span> 08 00 <span class="Comment"># segment selector (gdt_code)</span> -<span id="L292" class="LineNr">292 </span> 00 <span class="Comment"># unused</span> -<span id="L293" class="LineNr">293 </span> 8e <span class="Comment"># 1/p 00/dpl 0 1110/type/32-bit-interrupt-gate</span> -<span id="L294" class="LineNr">294 </span> 00 00 <span class="Comment"># target[16:32]</span> -<span id="L295" class="LineNr">295 </span> -<span id="L296" class="LineNr">296 </span>00 00 00 00 00 00 00 00 -<span id="L297" class="LineNr">297 </span>00 00 00 00 00 00 00 00 -<span id="L298" class="LineNr">298 </span>00 00 00 00 00 00 00 00 -<span id="L299" class="LineNr">299 </span>00 00 00 00 00 00 00 00 -<span id="L300" class="LineNr">300 </span>00 00 00 00 00 00 00 00 -<span id="L301" class="LineNr">301 </span>00 00 00 00 00 00 00 00 -<span id="L302" class="LineNr">302 </span>00 00 00 00 00 00 00 00 -<span id="L303" class="LineNr">303 </span>00 00 00 00 00 00 00 00 -<span id="L304" class="LineNr">304 </span>00 00 00 00 00 00 00 00 -<span id="L305" class="LineNr">305 </span>00 00 00 00 00 00 00 00 -<span id="L306" class="LineNr">306 </span>00 00 00 00 00 00 00 00 -<span id="L307" class="LineNr">307 </span>00 00 00 00 00 00 00 00 -<span id="L308" class="LineNr">308 </span>00 00 00 00 00 00 00 00 -<span id="L309" class="LineNr">309 </span>00 00 00 00 00 00 00 00 -<span id="L310" class="LineNr">310 </span>00 00 00 00 00 00 00 00 -<span id="L311" class="LineNr">311 </span>00 00 00 00 00 00 00 00 -<span id="L312" class="LineNr">312 </span>00 00 00 00 00 00 00 00 -<span id="L313" class="LineNr">313 </span>00 00 00 00 00 00 00 00 -<span id="L314" class="LineNr">314 </span>00 00 00 00 00 00 00 00 -<span id="L315" class="LineNr">315 </span>00 00 00 00 00 00 00 00 -<span id="L316" class="LineNr">316 </span>00 00 00 00 00 00 00 00 -<span id="L317" class="LineNr">317 </span>00 00 00 00 00 00 00 00 -<span id="L318" class="LineNr">318 </span><span class="Comment"># idt_end:</span> -<span id="L319" class="LineNr">319 </span> -<span id="L320" class="LineNr">320 </span><span class="Comment"># offset 300 (address 0x7f00):</span> -<span id="L321" class="LineNr">321 </span><span class="Comment"># idt_descriptor:</span> -<span id="L322" class="LineNr">322 </span> ff 00 <span class="Comment"># idt_end - idt_start - 1</span> -<span id="L323" class="LineNr">323 </span> 00 7e 00 00 <span class="Comment"># start = idt_start</span> -<span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="Comment"># padding</span> -<span id="L326" class="LineNr">326 </span> 00 00 00 00 00 00 00 00 00 00 -<span id="L327" class="LineNr">327 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L328" class="LineNr">328 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L329" class="LineNr">329 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L330" class="LineNr">330 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L331" class="LineNr">331 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L332" class="LineNr">332 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L333" class="LineNr">333 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L334" class="LineNr">334 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L335" class="LineNr">335 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L336" class="LineNr">336 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L337" class="LineNr">337 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L338" class="LineNr">338 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L339" class="LineNr">339 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L340" class="LineNr">340 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L341" class="LineNr">341 </span>00 00 00 00 48 0f 00 00 00 00 00 00 00 00 00 00 <span class="Comment"># spot the 'H' with attributes</span> -<span id="L342" class="LineNr">342 </span><span class="Comment"># offset 400 (address 0x8000)</span> -<span id="L343" class="LineNr">343 </span> -<span id="L344" class="LineNr">344 </span><span class="Comment"># vim:ft=conf</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/browse/main.mu.html b/html/apps/browse/main.mu.html deleted file mode 100644 index 2cd268a1..00000000 --- a/html/apps/browse/main.mu.html +++ /dev/null @@ -1,457 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/browse/main.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/browse/main.mu'>https://github.com/akkartik/mu/blob/main/apps/browse/main.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L1'>main</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args -<span id="L4" class="LineNr"> 4 </span> <span class="muComment"># if (len(args) <= 1) print usage and exit</span> -<span id="L5" class="LineNr"> 5 </span> compare len, <span class="Constant">1</span> -<span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">break-if-></span> -<span id="L8" class="LineNr"> 8 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"usage: browse [filename]\n"</span> -<span id="L9" class="LineNr"> 9 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" or browse test\n"</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">return</span> <span class="Constant">1</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">}</span> -<span id="L12" class="LineNr"> 12 </span> <span class="muComment"># if (args[1] == "test") run-tests()</span> -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"test"</span> -<span id="L15" class="LineNr"> 15 </span> compare tmp2, <span class="Constant">0</span> -<span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">{</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-=</span> -<span id="L18" class="LineNr"> 18 </span> run-tests -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># TODO: get at Num-test-failures somehow</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">}</span> -<span id="L21" class="LineNr"> 21 </span> <span class="muComment"># otherwise interactive mode</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> arg/<span class="Constant">eax</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> filename/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> copy *arg -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> file-storage: (handle buffered-file) -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> file-storage-addr/<span class="Constant">esi</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address file-storage -<span id="L27" class="LineNr"> 27 </span> <a href='../../306files.subx.html#L12'>open</a> filename, <span class="Constant">0</span>, file-storage-addr -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> fs/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> file-storage -<span id="L29" class="LineNr"> 29 </span> <span class="muComment"># if no file, exit</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> compare fs, <span class="Constant">0</span> -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">break-if-!=</span> -<span id="L33" class="LineNr"> 33 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"file not found\n"</span> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">return</span> <span class="Constant">1</span> -<span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">}</span> -<span id="L36" class="LineNr"> 36 </span> <span class="muComment">#</span> -<span id="L37" class="LineNr"> 37 </span> <a href='main.mu.html#L41'>interactive</a> fs -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L39" class="LineNr"> 39 </span><span class="Delimiter">}</span> -<span id="L40" class="LineNr"> 40 </span> -<span id="L41" class="LineNr"> 41 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L41'>interactive</a></span> fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L42" class="LineNr"> 42 </span> <a href='../../304screen.subx.html#L6'>enable-screen-grid-mode</a> -<span id="L43" class="LineNr"> 43 </span> <a href='../../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># initialize screen state</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> paginated-screen-storage: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> <a href='paginated-screen.mu.html#L12'>paginated-screen</a>/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address paginated-screen-storage -<span id="L47" class="LineNr"> 47 </span> <a href='paginated-screen.mu.html#L29'>initialize-paginated-screen</a> <a href='paginated-screen.mu.html#L12'>paginated-screen</a>, <span class="Constant">0x40</span>, <span class="Constant">2</span>, <span class="Constant">5</span> -<span id="L48" class="LineNr"> 48 </span> <a href='main.mu.html#L391'>normal-text</a> <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L49" class="LineNr"> 49 </span> <span class="muComment">#</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <a href='main.mu.html#L60'>render</a> <a href='paginated-screen.mu.html#L12'>paginated-screen</a>, fs -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> -<span id="L53" class="LineNr"> 53 </span> compare key, <span class="Constant">0x71</span> <span class="muComment"># 'q'</span> -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">loop-if-!=</span> -<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> <a href='../../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L57" class="LineNr"> 57 </span> <a href='../../304screen.subx.html#L24'>enable-screen-type-mode</a> -<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> -<span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L60'>render</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L61" class="LineNr"> 61 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L62" class="LineNr"> 62 </span> <a href='main.mu.html#L160'>render-normal</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> -<span id="L64" class="LineNr"> 64 </span> -<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L65'>test-render-multicolumn-text</a></span> <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># input text</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L69" class="LineNr"> 69 </span> <a href='../../306files.subx.html#L89'>populate-buffered-file-containing</a> <span class="Constant">"abcdefgh"</span>, input-ah -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L71" class="LineNr"> 71 </span> <span class="muComment"># output screen</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> pg: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg -<span id="L74" class="LineNr"> 74 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg-addr, <span class="Constant">3</span>, <span class="Constant">6</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 3 rows, 6 columns, 2 pages * 2 columns each</span> -<span id="L75" class="LineNr"> 75 </span> <span class="muComment">#</span> -<span id="L76" class="LineNr"> 76 </span> <a href='main.mu.html#L60'>render</a> pg-addr, in -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L79" class="LineNr"> 79 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L65'>test-render-multicolumn-text</a>/row1"</span> -<span id="L80" class="LineNr"> 80 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" ab ef"</span>, <span class="Constant">"F - <a href='main.mu.html#L65'>test-render-multicolumn-text</a>/row2"</span> -<span id="L81" class="LineNr"> 81 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, <span class="Constant">" cd gh"</span>, <span class="Constant">"F - <a href='main.mu.html#L65'>test-render-multicolumn-text</a>/row3"</span> -<span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> -<span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L84'>test-render-heading-text</a></span> <span class="Delimiter">{</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># input text</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L88" class="LineNr"> 88 </span> <a href='../../306files.subx.html#L89'>populate-buffered-file-containing</a> <span class="Constant">"# abc\n\ndef"</span>, input-ah -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L90" class="LineNr"> 90 </span> <span class="muComment"># output screen</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> pg: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg -<span id="L93" class="LineNr"> 93 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> -<span id="L94" class="LineNr"> 94 </span> <span class="muComment">#</span> -<span id="L95" class="LineNr"> 95 </span> <a href='main.mu.html#L60'>render</a> pg-addr, in -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L98" class="LineNr"> 98 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L84'>test-render-heading-text</a>/row1"</span> -<span id="L99" class="LineNr"> 99 </span> <a href='../../405screen.mu.html#L677'>check-screen-row-in-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa0</span>, <span class="Constant">2</span>, <span class="Constant">" abc "</span>, <span class="Constant">"F - <a href='main.mu.html#L84'>test-render-heading-text</a>/heading"</span> -<span id="L100" class="LineNr">100 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L84'>test-render-heading-text</a>/row3"</span> -<span id="L101" class="LineNr">101 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">" def "</span>, <span class="Constant">"F - <a href='main.mu.html#L84'>test-render-heading-text</a>/row4"</span> -<span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> -<span id="L103" class="LineNr">103 </span> -<span id="L104" class="LineNr">104 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L104'>test-render-bold-text</a></span> <span class="Delimiter">{</span> -<span id="L105" class="LineNr">105 </span> <span class="muComment"># input text</span> -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L108" class="LineNr">108 </span> <a href='../../306files.subx.html#L89'>populate-buffered-file-containing</a> <span class="Constant">"a *b* c"</span>, input-ah -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L110" class="LineNr">110 </span> <span class="muComment"># output screen</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> pg: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg -<span id="L113" class="LineNr">113 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> -<span id="L114" class="LineNr">114 </span> <span class="muComment">#</span> -<span id="L115" class="LineNr">115 </span> <a href='main.mu.html#L60'>render</a> pg-addr, in -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L118" class="LineNr">118 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a b c"</span>, <span class="Constant">"F - <a href='main.mu.html#L104'>test-render-bold-text</a>/text"</span> -<span id="L119" class="LineNr">119 </span> <a href='../../405screen.mu.html#L849'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" b "</span>, <span class="Constant">"F - <a href='main.mu.html#L104'>test-render-bold-text</a>/bold"</span> -<span id="L120" class="LineNr">120 </span><span class="Delimiter">}</span> -<span id="L121" class="LineNr">121 </span> -<span id="L122" class="LineNr">122 </span><span class="muComment"># terminals don't always support italics, so we'll just always render italics</span> -<span id="L123" class="LineNr">123 </span><span class="muComment"># as bold.</span> -<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L124'>test-render-pseudoitalic-text</a></span> <span class="Delimiter">{</span> -<span id="L125" class="LineNr">125 </span> <span class="muComment"># input text</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L128" class="LineNr">128 </span> <a href='../../306files.subx.html#L89'>populate-buffered-file-containing</a> <span class="Constant">"a _b_ c"</span>, input-ah -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L130" class="LineNr">130 </span> <span class="muComment"># output screen</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> pg: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg -<span id="L133" class="LineNr">133 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> -<span id="L134" class="LineNr">134 </span> <span class="muComment">#</span> -<span id="L135" class="LineNr">135 </span> <a href='main.mu.html#L60'>render</a> pg-addr, in -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L138" class="LineNr">138 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a b c"</span>, <span class="Constant">"F - <a href='main.mu.html#L124'>test-render-pseudoitalic-text</a>/text"</span> -<span id="L139" class="LineNr">139 </span> <a href='../../405screen.mu.html#L849'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" b "</span>, <span class="Constant">"F - <a href='main.mu.html#L124'>test-render-pseudoitalic-text</a>/bold"</span> -<span id="L140" class="LineNr">140 </span><span class="Delimiter">}</span> -<span id="L141" class="LineNr">141 </span> -<span id="L142" class="LineNr">142 </span><span class="PreProc">fn</span> <span class="muTest"><a href='main.mu.html#L142'>test-render-asterisk-in-text</a></span> <span class="Delimiter">{</span> -<span id="L143" class="LineNr">143 </span> <span class="muComment"># input text</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> input-storage: (handle buffered-file) -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address input-storage -<span id="L146" class="LineNr">146 </span> <a href='../../306files.subx.html#L89'>populate-buffered-file-containing</a> <span class="Constant">"a*b*c"</span>, input-ah -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> input-storage -<span id="L148" class="LineNr">148 </span> <span class="muComment"># output screen</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> pg: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> pg-addr/<span class="Constant">ecx</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg -<span id="L151" class="LineNr">151 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg-addr, <span class="Constant">8</span>, <span class="Constant">6</span>, <span class="Constant">5</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 6 columns, single page</span> -<span id="L152" class="LineNr">152 </span> <span class="muComment">#</span> -<span id="L153" class="LineNr">153 </span> <a href='main.mu.html#L60'>render</a> pg-addr, in -<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L156" class="LineNr">156 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" a*b*c"</span>, <span class="Constant">"F - <a href='main.mu.html#L104'>test-render-bold-text</a>/text"</span> -<span id="L157" class="LineNr">157 </span> <a href='../../405screen.mu.html#L849'>check-screen-row-in-bold</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='main.mu.html#L104'>test-render-bold-text</a>/bold"</span> -<span id="L158" class="LineNr">158 </span><span class="Delimiter">}</span> -<span id="L159" class="LineNr">159 </span> -<span id="L160" class="LineNr">160 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L160'>render-normal</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> newline-seen?/<span class="Constant">esi</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> start-of-paragraph?/<span class="Constant">edi</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> previous-grapheme/<span class="Constant">ebx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L164" class="LineNr">164 </span>$render-normal:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L165" class="LineNr">165 </span> <span class="muComment"># if done-drawing?(screen) break</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L167" class="LineNr">167 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">break-if-!=</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L258'>read-grapheme-buffered</a> fs -<span id="L170" class="LineNr">170 </span>$render-normal:loop-body: <span class="Delimiter">{</span> -<span id="L171" class="LineNr">171 </span> <span class="muComment"># if (c == EOF) break</span> -<span id="L172" class="LineNr">172 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">break-if-=</span> $render-normal:<span class="PreProc">loop</span> -<span id="L174" class="LineNr">174 </span> -<span id="L175" class="LineNr">175 </span> <span class="muComment">## if (c == newline) perform some fairly sophisticated parsing for soft newlines</span> -<span id="L176" class="LineNr">176 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</span> -<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-!=</span> -<span id="L179" class="LineNr">179 </span> <span class="muComment"># if it's the first newline, buffer it</span> -<span id="L180" class="LineNr">180 </span> compare newline-seen?, <span class="Constant">0</span> -<span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> -<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-!=</span> -<span id="L183" class="LineNr">183 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L184" class="LineNr">184 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> <span class="muComment"># otherwise render two newlines</span> -<span id="L187" class="LineNr">187 </span> <span class="Delimiter">{</span> -<span id="L188" class="LineNr">188 </span> <span class="PreProc">break-if-=</span> -<span id="L189" class="LineNr">189 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="muComment"># newline</span> -<span id="L190" class="LineNr">190 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="muComment"># newline</span> -<span id="L191" class="LineNr">191 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L192" class="LineNr">192 </span> start-of-paragraph? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L193" class="LineNr">193 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> -<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span> <span class="muComment"># if start of paragraph and c == '#', switch to header</span> -<span id="L197" class="LineNr">197 </span> compare start-of-paragraph?, <span class="Constant">0</span> -<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if-=</span> -<span id="L200" class="LineNr">200 </span> compare c, <span class="Constant">0x23</span> <span class="muComment"># '#'</span> -<span id="L201" class="LineNr">201 </span> <span class="Delimiter">{</span> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">break-if-!=</span> -<span id="L203" class="LineNr">203 </span> <a href='main.mu.html#L270'>render-header-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<span id="L204" class="LineNr">204 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L205" class="LineNr">205 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L206" class="LineNr">206 </span> <span class="Delimiter">}</span> -<span id="L207" class="LineNr">207 </span> <span class="Delimiter">}</span> -<span id="L208" class="LineNr">208 </span> <span class="muComment"># c is not a newline</span> -<span id="L209" class="LineNr">209 </span> start-of-paragraph? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L210" class="LineNr">210 </span> <span class="muComment"># if c is unprintable (particularly a '\r' CR), skip it</span> -<span id="L211" class="LineNr">211 </span> compare c, <span class="Constant">0x20</span> -<span id="L212" class="LineNr">212 </span> <span class="PreProc">loop-if-<</span> $render-normal:<span class="PreProc">loop</span> -<span id="L213" class="LineNr">213 </span> <span class="muComment"># If there's a newline buffered and c is a space, print the buffered</span> -<span id="L214" class="LineNr">214 </span> <span class="muComment"># newline (hard newline).</span> -<span id="L215" class="LineNr">215 </span> <span class="muComment"># If there's a newline buffered and c is not a newline or space, print a</span> -<span id="L216" class="LineNr">216 </span> <span class="muComment"># space (soft newline).</span> -<span id="L217" class="LineNr">217 </span> compare newline-seen?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L218" class="LineNr">218 </span>$render-normal:flush-buffered-newline: <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">break-if-=</span> -<span id="L220" class="LineNr">220 </span> newline-seen? <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L221" class="LineNr">221 </span> <span class="Delimiter">{</span> -<span id="L222" class="LineNr">222 </span> compare c, <span class="Constant">0x20</span> -<span id="L223" class="LineNr">223 </span> <span class="PreProc">break-if-!=</span> -<span id="L224" class="LineNr">224 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span> <span class="muComment"># newline</span> -<span id="L225" class="LineNr">225 </span> <span class="PreProc">break</span> $render-normal:flush-buffered-newline -<span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> -<span id="L227" class="LineNr">227 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L228" class="LineNr">228 </span> <span class="muComment"># fall through to print c</span> -<span id="L229" class="LineNr">229 </span> <span class="Delimiter">}</span> -<span id="L230" class="LineNr">230 </span> <span class="muComment">## end soft newline support</span> -<span id="L231" class="LineNr">231 </span> -<span id="L232" class="LineNr">232 </span>$render-normal:whitespace-separated-regions: <span class="Delimiter">{</span> -<span id="L233" class="LineNr">233 </span> <span class="muComment"># if previous-grapheme wasn't whitespace, skip this block</span> -<span id="L234" class="LineNr">234 </span> <span class="Delimiter">{</span> -<span id="L235" class="LineNr">235 </span> compare previous-grapheme, <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">break-if-=</span> -<span id="L237" class="LineNr">237 </span> compare previous-grapheme, <span class="Constant">0xa</span> <span class="muComment"># newline</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">break-if-=</span> -<span id="L239" class="LineNr">239 </span> <span class="PreProc">break</span> $render-normal:whitespace-separated-regions -<span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> -<span id="L241" class="LineNr">241 </span> <span class="muComment"># if (c == '*') switch to bold</span> -<span id="L242" class="LineNr">242 </span> compare c, <span class="Constant">0x2a</span> <span class="muComment"># '*'</span> -<span id="L243" class="LineNr">243 </span> <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">break-if-!=</span> -<span id="L245" class="LineNr">245 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="muComment"># 236 = darkish gray</span> -<span id="L246" class="LineNr">246 </span> <a href='paginated-screen.mu.html#L557'>start-bold-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L247" class="LineNr">247 </span> <a href='main.mu.html#L349'>render-until-asterisk</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<span id="L248" class="LineNr">248 </span> <a href='main.mu.html#L391'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L250" class="LineNr">250 </span> <span class="Delimiter">}</span> -<span id="L251" class="LineNr">251 </span> <span class="muComment"># if (c == '_') switch to bold</span> -<span id="L252" class="LineNr">252 </span> compare c, <span class="Constant">0x5f</span> <span class="muComment"># '_'</span> -<span id="L253" class="LineNr">253 </span> <span class="Delimiter">{</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">break-if-!=</span> -<span id="L255" class="LineNr">255 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="muComment"># 236 = darkish gray</span> -<span id="L256" class="LineNr">256 </span> <a href='paginated-screen.mu.html#L557'>start-bold-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L257" class="LineNr">257 </span> <a href='main.mu.html#L370'>render-until-underscore</a> <a href='../../405screen.mu.html#L9'>screen</a>, fs -<span id="L258" class="LineNr">258 </span> <a href='main.mu.html#L391'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L259" class="LineNr">259 </span> <span class="PreProc">break</span> $render-normal:loop-body -<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> -<span id="L261" class="LineNr">261 </span> <span class="Delimiter">}</span> -<span id="L262" class="LineNr">262 </span> <span class="muComment">#</span> -<span id="L263" class="LineNr">263 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L264" class="LineNr">264 </span> <span class="Delimiter">}</span> <span class="muComment"># $render-normal:loop-body</span> -<span id="L265" class="LineNr">265 </span> previous-grapheme <span class="SpecialChar"><-</span> copy c -<span id="L266" class="LineNr">266 </span> <span class="PreProc">loop</span> -<span id="L267" class="LineNr">267 </span> <span class="Delimiter">}</span> <span class="muComment"># $render-normal:loop</span> -<span id="L268" class="LineNr">268 </span><span class="Delimiter">}</span> -<span id="L269" class="LineNr">269 </span> -<span id="L270" class="LineNr">270 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L270'>render-header-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L271" class="LineNr">271 </span>$render-header-line:body: <span class="Delimiter">{</span> -<span id="L272" class="LineNr">272 </span> <span class="muComment"># compute color based on number of '#'s</span> -<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> header-level/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># caller already grabbed one</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L275" class="LineNr">275 </span> <span class="Delimiter">{</span> -<span id="L276" class="LineNr">276 </span> <span class="muComment"># if done-drawing?(screen) return</span> -<span id="L277" class="LineNr">277 </span> <span class="Delimiter">{</span> -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L279" class="LineNr">279 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L280" class="LineNr">280 </span> <span class="PreProc">break-if-!=</span> $render-header-line:body -<span id="L281" class="LineNr">281 </span> <span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> <span class="muComment">#</span> -<span id="L283" class="LineNr">283 </span> c <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L258'>read-grapheme-buffered</a> fs -<span id="L284" class="LineNr">284 </span> <span class="muComment"># if (c != '#') break</span> -<span id="L285" class="LineNr">285 </span> compare c, <span class="Constant">0x23</span> <span class="muComment"># '#'</span> -<span id="L286" class="LineNr">286 </span> <span class="PreProc">break-if-!=</span> -<span id="L287" class="LineNr">287 </span> <span class="muComment">#</span> -<span id="L288" class="LineNr">288 </span> header-level <span class="SpecialChar"><-</span> increment -<span id="L289" class="LineNr">289 </span> <span class="muComment">#</span> -<span id="L290" class="LineNr">290 </span> <span class="PreProc">loop</span> -<span id="L291" class="LineNr">291 </span> <span class="Delimiter">}</span> -<span id="L292" class="LineNr">292 </span> <a href='main.mu.html#L318'>start-heading</a> <a href='../../405screen.mu.html#L9'>screen</a>, header-level -<span id="L293" class="LineNr">293 </span> <span class="Delimiter">{</span> -<span id="L294" class="LineNr">294 </span> <span class="muComment"># if done-drawing?(screen) break</span> -<span id="L295" class="LineNr">295 </span> <span class="Delimiter">{</span> -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L297" class="LineNr">297 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L298" class="LineNr">298 </span> <span class="PreProc">break-if-!=</span> -<span id="L299" class="LineNr">299 </span> <span class="Delimiter">}</span> -<span id="L300" class="LineNr">300 </span> <span class="muComment">#</span> -<span id="L301" class="LineNr">301 </span> c <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L258'>read-grapheme-buffered</a> fs -<span id="L302" class="LineNr">302 </span> <span class="muComment"># if (c == EOF) break</span> -<span id="L303" class="LineNr">303 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">break-if-=</span> -<span id="L305" class="LineNr">305 </span> <span class="muComment"># if (c == newline) break</span> -<span id="L306" class="LineNr">306 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">break-if-=</span> -<span id="L308" class="LineNr">308 </span> <span class="muComment">#</span> -<span id="L309" class="LineNr">309 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L310" class="LineNr">310 </span> <span class="muComment">#</span> -<span id="L311" class="LineNr">311 </span> <span class="PreProc">loop</span> -<span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> <a href='main.mu.html#L391'>normal-text</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L314" class="LineNr">314 </span><span class="Delimiter">}</span> -<span id="L315" class="LineNr">315 </span><span class="Delimiter">}</span> -<span id="L316" class="LineNr">316 </span> -<span id="L317" class="LineNr">317 </span><span class="muComment"># colors for a light background, going from bright to dark (meeting up with bold-text)</span> -<span id="L318" class="LineNr">318 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L318'>start-heading</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), header-level: int <span class="Delimiter">{</span> -<span id="L319" class="LineNr">319 </span>$start-heading:body: <span class="Delimiter">{</span> -<span id="L320" class="LineNr">320 </span> <a href='paginated-screen.mu.html#L557'>start-bold-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L321" class="LineNr">321 </span> compare header-level, <span class="Constant">1</span> -<span id="L322" class="LineNr">322 </span> <span class="Delimiter">{</span> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">break-if-!=</span> -<span id="L324" class="LineNr">324 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xa0</span>, <span class="Constant">7</span> -<span id="L325" class="LineNr">325 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L326" class="LineNr">326 </span> <span class="Delimiter">}</span> -<span id="L327" class="LineNr">327 </span> compare header-level, <span class="Constant">2</span> -<span id="L328" class="LineNr">328 </span> <span class="Delimiter">{</span> -<span id="L329" class="LineNr">329 </span> <span class="PreProc">break-if-!=</span> -<span id="L330" class="LineNr">330 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x7c</span>, <span class="Constant">7</span> -<span id="L331" class="LineNr">331 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L332" class="LineNr">332 </span> <span class="Delimiter">}</span> -<span id="L333" class="LineNr">333 </span> compare header-level, <span class="Constant">3</span> -<span id="L334" class="LineNr">334 </span> <span class="Delimiter">{</span> -<span id="L335" class="LineNr">335 </span> <span class="PreProc">break-if-!=</span> -<span id="L336" class="LineNr">336 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x58</span>, <span class="Constant">7</span> -<span id="L337" class="LineNr">337 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L338" class="LineNr">338 </span> <span class="Delimiter">}</span> -<span id="L339" class="LineNr">339 </span> compare header-level, <span class="Constant">4</span> -<span id="L340" class="LineNr">340 </span> <span class="Delimiter">{</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">break-if-!=</span> -<span id="L342" class="LineNr">342 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x34</span>, <span class="Constant">7</span> -<span id="L343" class="LineNr">343 </span> <span class="PreProc">break</span> $start-heading:body -<span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> -<span id="L345" class="LineNr">345 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xe8</span>, <span class="Constant">7</span> -<span id="L346" class="LineNr">346 </span><span class="Delimiter">}</span> -<span id="L347" class="LineNr">347 </span><span class="Delimiter">}</span> -<span id="L348" class="LineNr">348 </span> -<span id="L349" class="LineNr">349 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L349'>render-until-asterisk</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L350" class="LineNr">350 </span> <span class="Delimiter">{</span> -<span id="L351" class="LineNr">351 </span> <span class="muComment"># if done-drawing?(screen) break</span> -<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L353" class="LineNr">353 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L354" class="LineNr">354 </span> <span class="PreProc">break-if-!=</span> -<span id="L355" class="LineNr">355 </span> <span class="muComment">#</span> -<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L258'>read-grapheme-buffered</a> fs -<span id="L357" class="LineNr">357 </span> <span class="muComment"># if (c == EOF) break</span> -<span id="L358" class="LineNr">358 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> -<span id="L359" class="LineNr">359 </span> <span class="PreProc">break-if-=</span> -<span id="L360" class="LineNr">360 </span> <span class="muComment"># if (c == '*') break</span> -<span id="L361" class="LineNr">361 </span> compare c, <span class="Constant">0x2a</span> <span class="muComment"># '*'</span> -<span id="L362" class="LineNr">362 </span> <span class="PreProc">break-if-=</span> -<span id="L363" class="LineNr">363 </span> <span class="muComment">#</span> -<span id="L364" class="LineNr">364 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L365" class="LineNr">365 </span> <span class="muComment">#</span> -<span id="L366" class="LineNr">366 </span> <span class="PreProc">loop</span> -<span id="L367" class="LineNr">367 </span> <span class="Delimiter">}</span> -<span id="L368" class="LineNr">368 </span><span class="Delimiter">}</span> -<span id="L369" class="LineNr">369 </span> -<span id="L370" class="LineNr">370 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L370'>render-until-underscore</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), fs: (addr buffered-file) <span class="Delimiter">{</span> -<span id="L371" class="LineNr">371 </span> <span class="Delimiter">{</span> -<span id="L372" class="LineNr">372 </span> <span class="muComment"># if done-drawing?(screen) break</span> -<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L374" class="LineNr">374 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L375" class="LineNr">375 </span> <span class="PreProc">break-if-!=</span> -<span id="L376" class="LineNr">376 </span> <span class="muComment">#</span> -<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L258'>read-grapheme-buffered</a> fs -<span id="L378" class="LineNr">378 </span> <span class="muComment"># if (c == EOF) break</span> -<span id="L379" class="LineNr">379 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> -<span id="L380" class="LineNr">380 </span> <span class="PreProc">break-if-=</span> -<span id="L381" class="LineNr">381 </span> <span class="muComment"># if (c == '_') break</span> -<span id="L382" class="LineNr">382 </span> compare c, <span class="Constant">0x5f</span> <span class="muComment"># '_'</span> -<span id="L383" class="LineNr">383 </span> <span class="PreProc">break-if-=</span> -<span id="L384" class="LineNr">384 </span> <span class="muComment">#</span> -<span id="L385" class="LineNr">385 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, c -<span id="L386" class="LineNr">386 </span> <span class="muComment">#</span> -<span id="L387" class="LineNr">387 </span> <span class="PreProc">loop</span> -<span id="L388" class="LineNr">388 </span> <span class="Delimiter">}</span> -<span id="L389" class="LineNr">389 </span><span class="Delimiter">}</span> -<span id="L390" class="LineNr">390 </span> -<span id="L391" class="LineNr">391 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L391'>normal-text</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L392" class="LineNr">392 </span> <a href='paginated-screen.mu.html#L585'>reset-formatting-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L393" class="LineNr">393 </span> <a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xec</span>, <span class="Constant">7</span> <span class="muComment"># 236 = darkish gray</span> -<span id="L394" class="LineNr">394 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/browse/paginated-screen.mu.html b/html/apps/browse/paginated-screen.mu.html deleted file mode 100644 index a10e4d8f..00000000 --- a/html/apps/browse/paginated-screen.mu.html +++ /dev/null @@ -1,726 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/browse/paginated-screen.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.muS1Comment { color: #0000af; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/browse/paginated-screen.mu'>https://github.com/akkartik/mu/blob/main/apps/browse/paginated-screen.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># If a screen is too wide, split it up into a fixed size of pages.</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># We take control of drawing and moving the cursor, and delegate everything else.</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Never scroll; use the 'done-drawing?' method instead.</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment">#</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># Example usage:</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># initialize-paginated-screen</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># on each frame</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># start-drawing</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># while !done-drawing</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># add-grapheme ...</span> -<span id="L11" class="LineNr"> 11 </span> -<span id="L12" class="LineNr"> 12 </span><span class="PreProc">type</span> <a href='paginated-screen.mu.html#L12'>paginated-screen</a> <span class="Delimiter">{</span> -<span id="L13" class="LineNr"> 13 </span> <a href='../../405screen.mu.html#L9'>screen</a>: (handle <a href='../../405screen.mu.html#L9'>screen</a>) -<span id="L14" class="LineNr"> 14 </span> nrows: int <span class="muComment"># const</span> -<span id="L15" class="LineNr"> 15 </span> ncols: int <span class="muComment"># const</span> -<span id="L16" class="LineNr"> 16 </span> page-width: int -<span id="L17" class="LineNr"> 17 </span> top-margin: int -<span id="L18" class="LineNr"> 18 </span> left-margin: int -<span id="L19" class="LineNr"> 19 </span> <span class="muComment"># page bounds</span> -<span id="L20" class="LineNr"> 20 </span> toprow: int -<span id="L21" class="LineNr"> 21 </span> botrow: int <span class="muComment"># (inclusive)</span> -<span id="L22" class="LineNr"> 22 </span> leftcol: int -<span id="L23" class="LineNr"> 23 </span> rightcol: int <span class="muComment"># (exclusive)</span> -<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># current cursor position</span> -<span id="L25" class="LineNr"> 25 </span> row: int -<span id="L26" class="LineNr"> 26 </span> col: int -<span id="L27" class="LineNr"> 27 </span><span class="Delimiter">}</span> -<span id="L28" class="LineNr"> 28 </span> -<span id="L29" class="LineNr"> 29 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L29'>initialize-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), page-width: int, top-margin: int, left-margin: int <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> _screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen-addr -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L36" class="LineNr"> 36 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../../405screen.mu.html#L60'>screen-size</a> screen-addr -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># self->nrows = nrows</span> -<span id="L39" class="LineNr"> 39 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, nrows -<span id="L40" class="LineNr"> 40 </span> copy-to *dest, nrows -<span id="L41" class="LineNr"> 41 </span> <span class="muComment"># self->ncols = ncols</span> -<span id="L42" class="LineNr"> 42 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols -<span id="L43" class="LineNr"> 43 </span> copy-to *dest, ncols -<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># self->page-width = page-width</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">{</span> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy page-width -<span id="L47" class="LineNr"> 47 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, page-width -<span id="L48" class="LineNr"> 48 </span> copy-to *dest, tmp -<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> -<span id="L50" class="LineNr"> 50 </span> <span class="muComment"># self->top-margin = top-margin</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">{</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy top-margin -<span id="L53" class="LineNr"> 53 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, top-margin -<span id="L54" class="LineNr"> 54 </span> copy-to *dest, tmp -<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> <span class="muComment"># self->left-margin = left-margin</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy left-margin -<span id="L59" class="LineNr"> 59 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin -<span id="L60" class="LineNr"> 60 </span> copy-to *dest, tmp -<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> -<span id="L62" class="LineNr"> 62 </span> <span class="muComment"># self->toprow = 1 + top-margin</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">{</span> -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy top-margin -<span id="L65" class="LineNr"> 65 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, toprow -<span id="L66" class="LineNr"> 66 </span> copy-to *dest, <span class="Constant">1</span> -<span id="L67" class="LineNr"> 67 </span> add-to *dest, tmp -<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> -<span id="L69" class="LineNr"> 69 </span> <span class="muComment"># self->botrow = nrows</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, botrow -<span id="L72" class="LineNr"> 72 </span> copy-to *dest, nrows -<span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">}</span> -<span id="L74" class="LineNr"> 74 </span> <span class="muComment">#</span> -<span id="L75" class="LineNr"> 75 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> self -<span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> -<span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L78'>start-drawing</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L80" class="LineNr"> 80 </span> <a href='paginated-screen.mu.html#L543'>clear-paginated-screen</a> self -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L83" class="LineNr"> 83 </span> <span class="muComment"># self->leftcol = 1 + left-margin</span> -<span id="L84" class="LineNr"> 84 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin -<span id="L85" class="LineNr"> 85 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L86" class="LineNr"> 86 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L87" class="LineNr"> 87 </span> copy-to *tmp, <span class="Constant">1</span> -<span id="L88" class="LineNr"> 88 </span> add-to *tmp, tmp2 -<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? print-string-to-real-screen "start: left column: "</span> -<span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *tmp</span> -<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># self->rightcol = min(ncols+1, self->leftcol + page-width)</span> -<span id="L92" class="LineNr"> 92 </span> <span class="muS1Comment"># . tmp2 = self->leftcol + page-width</span> -<span id="L93" class="LineNr"> 93 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, page-width -<span id="L94" class="LineNr"> 94 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L95" class="LineNr"> 95 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L96" class="LineNr"> 96 </span> tmp2 <span class="SpecialChar"><-</span> add *tmp -<span id="L97" class="LineNr"> 97 </span> <span class="muS1Comment"># . if (tmp2 > ncols+1) tmp2 = ncols+1</span> -<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols -<span id="L100" class="LineNr">100 </span> compare tmp2, *tmp -<span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if-<=</span> -<span id="L102" class="LineNr">102 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L103" class="LineNr">103 </span> tmp2 <span class="SpecialChar"><-</span> increment -<span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> <span class="muS1Comment"># . self->rightcol = tmp2</span> -<span id="L106" class="LineNr">106 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol -<span id="L107" class="LineNr">107 </span> copy-to *tmp, tmp2 -<span id="L108" class="LineNr">108 </span><span class="CommentedCode">#? print-string-to-real-screen "; right column: "</span> -<span id="L109" class="LineNr">109 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *tmp</span> -<span id="L110" class="LineNr">110 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L111" class="LineNr">111 </span> <span class="muComment"># self->row = self->toprow</span> -<span id="L112" class="LineNr">112 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, toprow -<span id="L113" class="LineNr">113 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L114" class="LineNr">114 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, row -<span id="L115" class="LineNr">115 </span> copy-to *tmp, tmp2 -<span id="L116" class="LineNr">116 </span> <span class="muComment"># self->col = self->leftcol</span> -<span id="L117" class="LineNr">117 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L118" class="LineNr">118 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L119" class="LineNr">119 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col -<span id="L120" class="LineNr">120 </span> copy-to *tmp, tmp2 -<span id="L121" class="LineNr">121 </span> <span class="muComment">#</span> -<span id="L122" class="LineNr">122 </span> <a href='paginated-screen.mu.html#L529'>reposition-cursor</a> self -<span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> -<span id="L124" class="LineNr">124 </span> -<span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L125'>done-drawing?</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <span class="muComment"># if (self->leftcol == left-margin + 1) return false</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> first-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp -<span id="L130" class="LineNr">130 </span> first-col <span class="SpecialChar"><-</span> increment -<span id="L131" class="LineNr">131 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L132" class="LineNr">132 </span> $done-drawing:first-page?: <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> compare first-col, *tmp -<span id="L134" class="LineNr">134 </span> <span class="PreProc">break-if-!=</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> -<span id="L137" class="LineNr">137 </span> <span class="muComment"># return self->rightcol > self->ncols + 1</span> -<span id="L138" class="LineNr">138 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> max/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp -<span id="L140" class="LineNr">140 </span> max <span class="SpecialChar"><-</span> increment -<span id="L141" class="LineNr">141 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol -<span id="L142" class="LineNr">142 </span><span class="CommentedCode">#? print-string-to-real-screen "done-drawing? "</span> -<span id="L143" class="LineNr">143 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *tmp</span> -<span id="L144" class="LineNr">144 </span><span class="CommentedCode">#? print-string-to-real-screen " vs "</span> -<span id="L145" class="LineNr">145 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen max</span> -<span id="L146" class="LineNr">146 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L147" class="LineNr">147 </span> compare *tmp, max -<span id="L148" class="LineNr">148 </span> <span class="Delimiter">{</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">break-if-></span> -<span id="L150" class="LineNr">150 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L153" class="LineNr">153 </span><span class="Delimiter">}</span> -<span id="L154" class="LineNr">154 </span> -<span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L155'>add-grapheme</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), c: grapheme <span class="Delimiter">{</span> -<span id="L156" class="LineNr">156 </span><span class="CommentedCode">#? print-string-to-real-screen "add-grapheme: "</span> -<span id="L157" class="LineNr">157 </span><span class="CommentedCode">#? print-grapheme-to-real-screen c</span> -<span id="L158" class="LineNr">158 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L159" class="LineNr">159 </span>$add-grapheme:body: <span class="Delimiter">{</span> -<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L161" class="LineNr">161 </span> <span class="Delimiter">{</span> -<span id="L162" class="LineNr">162 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">break-if-!=</span> -<span id="L164" class="LineNr">164 </span> <a href='paginated-screen.mu.html#L594'>next-line</a> self -<span id="L165" class="LineNr">165 </span> <a href='paginated-screen.mu.html#L529'>reposition-cursor</a> self -<span id="L166" class="LineNr">166 </span> <span class="PreProc">break</span> $add-grapheme:body -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> -<span id="L168" class="LineNr">168 </span> <span class="muComment"># print c</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L171" class="LineNr">171 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> screen-addr, c -<span id="L172" class="LineNr">172 </span> <span class="muComment"># self->col++</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col -<span id="L174" class="LineNr">174 </span> increment *tmp -<span id="L175" class="LineNr">175 </span> <span class="muComment"># if (self->col > self->rightcol) next-line(self)</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp -<span id="L177" class="LineNr">177 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol -<span id="L178" class="LineNr">178 </span> compare tmp2, *tmp -<span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> -<span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if-<</span> -<span id="L181" class="LineNr">181 </span> <a href='paginated-screen.mu.html#L594'>next-line</a> self -<span id="L182" class="LineNr">182 </span> <a href='paginated-screen.mu.html#L529'>reposition-cursor</a> self -<span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> -<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> -<span id="L185" class="LineNr">185 </span><span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> -<span id="L187" class="LineNr">187 </span><span class="muComment">## tests</span> -<span id="L188" class="LineNr">188 </span> -<span id="L189" class="LineNr">189 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L189'>test-print-grapheme-on-paginated-screen</a></span> <span class="Delimiter">{</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L192" class="LineNr">192 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg, <span class="Constant">3</span>, <span class="Constant">0xa</span>, <span class="Constant">0xa</span>, <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L193" class="LineNr">193 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L194" class="LineNr">194 </span> <span class="Delimiter">{</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L196" class="LineNr">196 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L199" class="LineNr">199 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L189'>test-print-grapheme-on-paginated-screen</a>/done"</span> -<span id="L200" class="LineNr">200 </span> <span class="Delimiter">}</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L203" class="LineNr">203 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-grapheme-on-paginated-screen"</span> -<span id="L204" class="LineNr">204 </span><span class="Delimiter">}</span> -<span id="L205" class="LineNr">205 </span> -<span id="L206" class="LineNr">206 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L206'>test-print-single-page</a></span> <span class="Delimiter">{</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L209" class="LineNr">209 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">2</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 4 columns, 2 pages * 2 columns each</span> -<span id="L210" class="LineNr">210 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L211" class="LineNr">211 </span> <span class="muComment"># pages at columns [1, 3), [3, 5)</span> -<span id="L212" class="LineNr">212 </span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L214" class="LineNr">214 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L217" class="LineNr">217 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L206'>test-print-single-page</a>/done-1"</span> -<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> -<span id="L219" class="LineNr">219 </span> <span class="Delimiter">{</span> -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L221" class="LineNr">221 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L224" class="LineNr">224 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L206'>test-print-single-page</a>/done-2"</span> -<span id="L225" class="LineNr">225 </span> <span class="Delimiter">}</span> -<span id="L226" class="LineNr">226 </span> <span class="Delimiter">{</span> -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L228" class="LineNr">228 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L231" class="LineNr">231 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L206'>test-print-single-page</a>/done-3"</span> -<span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> -<span id="L233" class="LineNr">233 </span> <span class="Delimiter">{</span> -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> -<span id="L235" class="LineNr">235 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L238" class="LineNr">238 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L206'>test-print-single-page</a>/done-4"</span> -<span id="L239" class="LineNr">239 </span> <span class="Delimiter">}</span> -<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L242" class="LineNr">242 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ab "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L206'>test-print-single-page</a>/row1"</span> -<span id="L243" class="LineNr">243 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"cd "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L206'>test-print-single-page</a>/row2"</span> -<span id="L244" class="LineNr">244 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> -<span id="L245" class="LineNr">245 </span><span class="Delimiter">}</span> -<span id="L246" class="LineNr">246 </span> -<span id="L247" class="LineNr">247 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a></span> <span class="Delimiter">{</span> -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L250" class="LineNr">250 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">5</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 4 columns, 5-column pages</span> -<span id="L251" class="LineNr">251 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L254" class="LineNr">254 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L257" class="LineNr">257 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a>/done-1"</span> -<span id="L258" class="LineNr">258 </span> <span class="Delimiter">}</span> -<span id="L259" class="LineNr">259 </span> <span class="Delimiter">{</span> -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L261" class="LineNr">261 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L264" class="LineNr">264 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a>/done-2"</span> -<span id="L265" class="LineNr">265 </span> <span class="Delimiter">}</span> -<span id="L266" class="LineNr">266 </span> <span class="Delimiter">{</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L268" class="LineNr">268 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L271" class="LineNr">271 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a>/done-3"</span> -<span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> -<span id="L273" class="LineNr">273 </span> <span class="Delimiter">{</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> -<span id="L275" class="LineNr">275 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L278" class="LineNr">278 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a>/done-4"</span> -<span id="L279" class="LineNr">279 </span> <span class="Delimiter">}</span> -<span id="L280" class="LineNr">280 </span> <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> -<span id="L282" class="LineNr">282 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L285" class="LineNr">285 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a>/done-5"</span> -<span id="L286" class="LineNr">286 </span> <span class="Delimiter">}</span> -<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L289" class="LineNr">289 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a>/row1"</span> -<span id="L290" class="LineNr">290 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"e "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L247'>test-print-single-page-narrower-than-page-width</a>/row2"</span> -<span id="L291" class="LineNr">291 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> -<span id="L292" class="LineNr">292 </span><span class="Delimiter">}</span> -<span id="L293" class="LineNr">293 </span> -<span id="L294" class="LineNr">294 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a></span> <span class="Delimiter">{</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L297" class="LineNr">297 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">5</span>, <span class="Constant">0</span>, <span class="Constant">1</span> <span class="muComment"># 2 rows, 4 columns, 5-column pages, left margin</span> -<span id="L298" class="LineNr">298 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L299" class="LineNr">299 </span> <span class="Delimiter">{</span> -<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L301" class="LineNr">301 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L304" class="LineNr">304 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-1"</span> -<span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> -<span id="L306" class="LineNr">306 </span> <span class="Delimiter">{</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L308" class="LineNr">308 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L311" class="LineNr">311 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-2"</span> -<span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> <span class="Delimiter">{</span> -<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L315" class="LineNr">315 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L318" class="LineNr">318 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-3"</span> -<span id="L319" class="LineNr">319 </span> <span class="Delimiter">}</span> -<span id="L320" class="LineNr">320 </span> <span class="Delimiter">{</span> -<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> -<span id="L322" class="LineNr">322 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L325" class="LineNr">325 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-4"</span> -<span id="L326" class="LineNr">326 </span> <span class="Delimiter">}</span> -<span id="L327" class="LineNr">327 </span> <span class="Delimiter">{</span> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> -<span id="L329" class="LineNr">329 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L332" class="LineNr">332 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a>/done-5"</span> -<span id="L333" class="LineNr">333 </span> <span class="Delimiter">}</span> -<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L336" class="LineNr">336 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" abc"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a>/row1"</span> -<span id="L337" class="LineNr">337 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" de "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L294'>test-print-single-page-narrower-than-page-width-with-margin</a>/row2"</span> -<span id="L338" class="LineNr">338 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> -<span id="L339" class="LineNr">339 </span><span class="Delimiter">}</span> -<span id="L340" class="LineNr">340 </span> -<span id="L341" class="LineNr">341 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L341'>test-print-multiple-pages</a></span> <span class="Delimiter">{</span> -<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L344" class="LineNr">344 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 2 columns, 2 pages * 1 column each</span> -<span id="L345" class="LineNr">345 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L346" class="LineNr">346 </span> <span class="Delimiter">{</span> -<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L348" class="LineNr">348 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L351" class="LineNr">351 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L341'>test-print-multiple-pages</a>/done-1"</span> -<span id="L352" class="LineNr">352 </span> <span class="Delimiter">}</span> -<span id="L353" class="LineNr">353 </span> <span class="Delimiter">{</span> -<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L355" class="LineNr">355 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L358" class="LineNr">358 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L341'>test-print-multiple-pages</a>/done-2"</span> -<span id="L359" class="LineNr">359 </span> <span class="Delimiter">}</span> -<span id="L360" class="LineNr">360 </span> <span class="Delimiter">{</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L362" class="LineNr">362 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L364" class="LineNr">364 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L365" class="LineNr">365 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L341'>test-print-multiple-pages</a>/done-3"</span> -<span id="L366" class="LineNr">366 </span> <span class="Delimiter">}</span> -<span id="L367" class="LineNr">367 </span> <span class="Delimiter">{</span> -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> -<span id="L369" class="LineNr">369 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L372" class="LineNr">372 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">1</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L341'>test-print-multiple-pages</a>/done-4"</span> -<span id="L373" class="LineNr">373 </span> <span class="Delimiter">}</span> -<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L376" class="LineNr">376 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ac"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L341'>test-print-multiple-pages</a>/row1"</span> -<span id="L377" class="LineNr">377 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"bd"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L341'>test-print-multiple-pages</a>/row2"</span> -<span id="L378" class="LineNr">378 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> -<span id="L379" class="LineNr">379 </span><span class="Delimiter">}</span> -<span id="L380" class="LineNr">380 </span> -<span id="L381" class="LineNr">381 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a></span> <span class="Delimiter">{</span> -<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L384" class="LineNr">384 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg, <span class="Constant">2</span>, <span class="Constant">4</span>, <span class="Constant">2</span>, <span class="Constant">0</span>, <span class="Constant">0</span> <span class="muComment"># 2 rows, 4 columns, 2 pages * 2 columns each</span> -<span id="L385" class="LineNr">385 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L386" class="LineNr">386 </span> <span class="Delimiter">{</span> -<span id="L387" class="LineNr">387 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L388" class="LineNr">388 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L391" class="LineNr">391 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-1"</span> -<span id="L392" class="LineNr">392 </span> <span class="Delimiter">}</span> -<span id="L393" class="LineNr">393 </span> <span class="Delimiter">{</span> -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L395" class="LineNr">395 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L398" class="LineNr">398 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-2"</span> -<span id="L399" class="LineNr">399 </span> <span class="Delimiter">}</span> -<span id="L400" class="LineNr">400 </span> <span class="Delimiter">{</span> -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L402" class="LineNr">402 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L405" class="LineNr">405 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-3"</span> -<span id="L406" class="LineNr">406 </span> <span class="Delimiter">}</span> -<span id="L407" class="LineNr">407 </span> <span class="Delimiter">{</span> -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> -<span id="L409" class="LineNr">409 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L412" class="LineNr">412 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-4"</span> -<span id="L413" class="LineNr">413 </span> <span class="Delimiter">}</span> -<span id="L414" class="LineNr">414 </span> <span class="Delimiter">{</span> -<span id="L415" class="LineNr">415 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> -<span id="L416" class="LineNr">416 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L417" class="LineNr">417 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L419" class="LineNr">419 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-5"</span> -<span id="L420" class="LineNr">420 </span> <span class="Delimiter">}</span> -<span id="L421" class="LineNr">421 </span> <span class="Delimiter">{</span> -<span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x66</span> <span class="muComment"># 'f'</span> -<span id="L423" class="LineNr">423 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L426" class="LineNr">426 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-6"</span> -<span id="L427" class="LineNr">427 </span> <span class="Delimiter">}</span> -<span id="L428" class="LineNr">428 </span> <span class="Delimiter">{</span> -<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x67</span> <span class="muComment"># 'g'</span> -<span id="L430" class="LineNr">430 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L433" class="LineNr">433 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-7"</span> -<span id="L434" class="LineNr">434 </span> <span class="Delimiter">}</span> -<span id="L435" class="LineNr">435 </span> <span class="Delimiter">{</span> -<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x68</span> <span class="muComment"># 'h'</span> -<span id="L437" class="LineNr">437 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L438" class="LineNr">438 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L439" class="LineNr">439 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L440" class="LineNr">440 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">1</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/done-8"</span> -<span id="L441" class="LineNr">441 </span> <span class="Delimiter">}</span> -<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L444" class="LineNr">444 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abef"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/row1"</span> -<span id="L445" class="LineNr">445 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"cdgh"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L381'>test-print-multiple-pages-2</a>/row2"</span> -<span id="L446" class="LineNr">446 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> -<span id="L447" class="LineNr">447 </span><span class="Delimiter">}</span> -<span id="L448" class="LineNr">448 </span> -<span id="L449" class="LineNr">449 </span><span class="PreProc">fn</span> <span class="muTest"><a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a></span> <span class="Delimiter">{</span> -<span id="L450" class="LineNr">450 </span> <span class="PreProc">var</span> pg-on-stack: <a href='paginated-screen.mu.html#L12'>paginated-screen</a> -<span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> pg/<span class="Constant">eax</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> address pg-on-stack -<span id="L452" class="LineNr">452 </span> <a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a> pg, <span class="Constant">3</span>, <span class="Constant">6</span>, <span class="Constant">2</span>, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># 3 rows, 5 columns, 2 pages * 2 columns each</span> -<span id="L453" class="LineNr">453 </span> <a href='paginated-screen.mu.html#L78'>start-drawing</a> pg -<span id="L454" class="LineNr">454 </span> <span class="Delimiter">{</span> -<span id="L455" class="LineNr">455 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> -<span id="L456" class="LineNr">456 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L457" class="LineNr">457 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L459" class="LineNr">459 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-1"</span> -<span id="L460" class="LineNr">460 </span> <span class="Delimiter">}</span> -<span id="L461" class="LineNr">461 </span> <span class="Delimiter">{</span> -<span id="L462" class="LineNr">462 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span> <span class="muComment"># 'b'</span> -<span id="L463" class="LineNr">463 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L464" class="LineNr">464 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L465" class="LineNr">465 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L466" class="LineNr">466 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-2"</span> -<span id="L467" class="LineNr">467 </span> <span class="Delimiter">}</span> -<span id="L468" class="LineNr">468 </span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span> <span class="muComment"># 'c'</span> -<span id="L470" class="LineNr">470 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L473" class="LineNr">473 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-3"</span> -<span id="L474" class="LineNr">474 </span> <span class="Delimiter">}</span> -<span id="L475" class="LineNr">475 </span> <span class="Delimiter">{</span> -<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x64</span> <span class="muComment"># 'd'</span> -<span id="L477" class="LineNr">477 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L480" class="LineNr">480 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-4"</span> -<span id="L481" class="LineNr">481 </span> <span class="Delimiter">}</span> -<span id="L482" class="LineNr">482 </span> <span class="Delimiter">{</span> -<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x65</span> <span class="muComment"># 'e'</span> -<span id="L484" class="LineNr">484 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L486" class="LineNr">486 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L487" class="LineNr">487 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-5"</span> -<span id="L488" class="LineNr">488 </span> <span class="Delimiter">}</span> -<span id="L489" class="LineNr">489 </span> <span class="Delimiter">{</span> -<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x66</span> <span class="muComment"># 'f'</span> -<span id="L491" class="LineNr">491 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L494" class="LineNr">494 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-6"</span> -<span id="L495" class="LineNr">495 </span> <span class="Delimiter">}</span> -<span id="L496" class="LineNr">496 </span> <span class="Delimiter">{</span> -<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x67</span> <span class="muComment"># 'g'</span> -<span id="L498" class="LineNr">498 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L499" class="LineNr">499 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L501" class="LineNr">501 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">0</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-7"</span> -<span id="L502" class="LineNr">502 </span> <span class="Delimiter">}</span> -<span id="L503" class="LineNr">503 </span> <span class="Delimiter">{</span> -<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x68</span> <span class="muComment"># 'h'</span> -<span id="L505" class="LineNr">505 </span> <a href='paginated-screen.mu.html#L155'>add-grapheme</a> pg, c -<span id="L506" class="LineNr">506 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='paginated-screen.mu.html#L125'>done-drawing?</a> pg -<span id="L507" class="LineNr">507 </span> <span class="PreProc">var</span> done/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy done? -<span id="L508" class="LineNr">508 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> done, <span class="Constant">1</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/grapheme-8"</span> -<span id="L509" class="LineNr">509 </span> <span class="Delimiter">}</span> -<span id="L510" class="LineNr">510 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> pg, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L512" class="LineNr">512 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/row1"</span> -<span id="L513" class="LineNr">513 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" ab ef"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/row2"</span> -<span id="L514" class="LineNr">514 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">" cd gh"</span>, <span class="Constant">"F - <a href='paginated-screen.mu.html#L449'>test-print-multiple-pages-with-margins</a>/row3"</span> -<span id="L515" class="LineNr">515 </span> <span class="muComment"># currently it's hard-coded that we avoid printing to the bottom-most row of the screen</span> -<span id="L516" class="LineNr">516 </span><span class="Delimiter">}</span> -<span id="L517" class="LineNr">517 </span> -<span id="L518" class="LineNr">518 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L518'>initialize-fake-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), nrows: int, ncols: int, page-width: int, top-margin: int, left-margin: int <span class="Delimiter">{</span> -<span id="L519" class="LineNr">519 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L520" class="LineNr">520 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L521" class="LineNr">521 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> screen-ah -<span id="L522" class="LineNr">522 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L523" class="LineNr">523 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> screen-addr, nrows, ncols -<span id="L524" class="LineNr">524 </span> <a href='paginated-screen.mu.html#L29'>initialize-paginated-screen</a> self, page-width, top-margin, left-margin -<span id="L525" class="LineNr">525 </span><span class="Delimiter">}</span> -<span id="L526" class="LineNr">526 </span> -<span id="L527" class="LineNr">527 </span><span class="muComment">## simple delegates</span> -<span id="L528" class="LineNr">528 </span> -<span id="L529" class="LineNr">529 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L529'>reposition-cursor</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L530" class="LineNr">530 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> r/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, row -<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col -<span id="L533" class="LineNr">533 </span><span class="CommentedCode">#? print-string-to-real-screen "reposition cursor: "</span> -<span id="L534" class="LineNr">534 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *r</span> -<span id="L535" class="LineNr">535 </span><span class="CommentedCode">#? print-string-to-real-screen ", "</span> -<span id="L536" class="LineNr">536 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *c</span> -<span id="L537" class="LineNr">537 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L540" class="LineNr">540 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> screen-addr, *r *c -<span id="L541" class="LineNr">541 </span><span class="Delimiter">}</span> -<span id="L542" class="LineNr">542 </span> -<span id="L543" class="LineNr">543 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L543'>clear-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L544" class="LineNr">544 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L545" class="LineNr">545 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L546" class="LineNr">546 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L547" class="LineNr">547 </span> <a href='../../405screen.mu.html#L78'>clear-screen</a> screen-addr -<span id="L548" class="LineNr">548 </span><span class="Delimiter">}</span> -<span id="L549" class="LineNr">549 </span> -<span id="L550" class="LineNr">550 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L550'>start-color-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>), fg: int, bg: int <span class="Delimiter">{</span> -<span id="L551" class="LineNr">551 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L552" class="LineNr">552 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L554" class="LineNr">554 </span> <a href='../../405screen.mu.html#L519'>start-color</a> screen-addr, fg, bg -<span id="L555" class="LineNr">555 </span><span class="Delimiter">}</span> -<span id="L556" class="LineNr">556 </span> -<span id="L557" class="LineNr">557 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L557'>start-bold-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L558" class="LineNr">558 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L561" class="LineNr">561 </span> <a href='../../405screen.mu.html#L537'>start-bold</a> screen-addr -<span id="L562" class="LineNr">562 </span><span class="Delimiter">}</span> -<span id="L563" class="LineNr">563 </span> -<span id="L564" class="LineNr">564 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L564'>start-underline-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L565" class="LineNr">565 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L567" class="LineNr">567 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L568" class="LineNr">568 </span> <a href='../../405screen.mu.html#L551'>start-underline</a> screen-addr -<span id="L569" class="LineNr">569 </span><span class="Delimiter">}</span> -<span id="L570" class="LineNr">570 </span> -<span id="L571" class="LineNr">571 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L571'>start-reverse-video-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L572" class="LineNr">572 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L573" class="LineNr">573 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L574" class="LineNr">574 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L575" class="LineNr">575 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> screen-addr -<span id="L576" class="LineNr">576 </span><span class="Delimiter">}</span> -<span id="L577" class="LineNr">577 </span> -<span id="L578" class="LineNr">578 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L578'>start-blinking-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L579" class="LineNr">579 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L580" class="LineNr">580 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L581" class="LineNr">581 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L582" class="LineNr">582 </span> <a href='../../405screen.mu.html#L579'>start-blinking</a> screen-addr -<span id="L583" class="LineNr">583 </span><span class="Delimiter">}</span> -<span id="L584" class="LineNr">584 </span> -<span id="L585" class="LineNr">585 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L585'>reset-formatting-on-paginated-screen</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L586" class="LineNr">586 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L587" class="LineNr">587 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L588" class="LineNr">588 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L589" class="LineNr">589 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> screen-addr -<span id="L590" class="LineNr">590 </span><span class="Delimiter">}</span> -<span id="L591" class="LineNr">591 </span> -<span id="L592" class="LineNr">592 </span><span class="muComment">## helpers</span> -<span id="L593" class="LineNr">593 </span> -<span id="L594" class="LineNr">594 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L594'>next-line</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L595" class="LineNr">595 </span><span class="CommentedCode">#? print-string-to-real-screen "next-line\n"</span> -<span id="L596" class="LineNr">596 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L597" class="LineNr">597 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L598" class="LineNr">598 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L599" class="LineNr">599 </span> <span class="muComment"># self->col = self->leftcol</span> -<span id="L600" class="LineNr">600 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L601" class="LineNr">601 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L602" class="LineNr">602 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col -<span id="L603" class="LineNr">603 </span> copy-to *tmp, tmp2 -<span id="L604" class="LineNr">604 </span> <span class="muComment"># self->row++</span> -<span id="L605" class="LineNr">605 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, row -<span id="L606" class="LineNr">606 </span> increment *tmp -<span id="L607" class="LineNr">607 </span><span class="CommentedCode">#? print-string-to-real-screen "next-line: row: "</span> -<span id="L608" class="LineNr">608 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen *tmp</span> -<span id="L609" class="LineNr">609 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L610" class="LineNr">610 </span> <span class="muComment"># if (self->row > self->botrow) next-page(self)</span> -<span id="L611" class="LineNr">611 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L612" class="LineNr">612 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, botrow -<span id="L613" class="LineNr">613 </span> compare tmp2, *tmp -<span id="L614" class="LineNr">614 </span> <span class="Delimiter">{</span> -<span id="L615" class="LineNr">615 </span> <span class="PreProc">break-if-<=</span> -<span id="L616" class="LineNr">616 </span> <a href='paginated-screen.mu.html#L620'>next-page</a> self -<span id="L617" class="LineNr">617 </span> <span class="Delimiter">}</span> -<span id="L618" class="LineNr">618 </span><span class="Delimiter">}</span> -<span id="L619" class="LineNr">619 </span> -<span id="L620" class="LineNr">620 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='paginated-screen.mu.html#L620'>next-page</a></span> _self: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="Delimiter">{</span> -<span id="L621" class="LineNr">621 </span><span class="CommentedCode">#? print-string-to-real-screen "next-page\n"</span> -<span id="L622" class="LineNr">622 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='paginated-screen.mu.html#L12'>paginated-screen</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L625" class="LineNr">625 </span><span class="CommentedCode">#? # temporary: stop</span> -<span id="L626" class="LineNr">626 </span><span class="CommentedCode">#? tmp <- get self, ncols</span> -<span id="L627" class="LineNr">627 </span><span class="CommentedCode">#? tmp2 <- copy *tmp</span> -<span id="L628" class="LineNr">628 </span><span class="CommentedCode">#? tmp <- get self, rightcol</span> -<span id="L629" class="LineNr">629 </span><span class="CommentedCode">#? copy-to *tmp, tmp2</span> -<span id="L630" class="LineNr">630 </span> <span class="muComment"># real: multiple pages</span> -<span id="L631" class="LineNr">631 </span> <span class="muComment"># self->leftcol = self->rightcol + left-margin</span> -<span id="L632" class="LineNr">632 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol -<span id="L633" class="LineNr">633 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L634" class="LineNr">634 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left-margin -<span id="L635" class="LineNr">635 </span> tmp2 <span class="SpecialChar"><-</span> add *tmp -<span id="L636" class="LineNr">636 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L637" class="LineNr">637 </span> copy-to *tmp, tmp2 -<span id="L638" class="LineNr">638 </span><span class="CommentedCode">#? print-string-to-real-screen "left: "</span> -<span id="L639" class="LineNr">639 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen tmp2</span> -<span id="L640" class="LineNr">640 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L641" class="LineNr">641 </span> <span class="muComment"># self->rightcol = self->leftcol + page-width</span> -<span id="L642" class="LineNr">642 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, page-width -<span id="L643" class="LineNr">643 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L644" class="LineNr">644 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L645" class="LineNr">645 </span> tmp2 <span class="SpecialChar"><-</span> add *tmp -<span id="L646" class="LineNr">646 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, rightcol -<span id="L647" class="LineNr">647 </span> copy-to *tmp, tmp2 -<span id="L648" class="LineNr">648 </span><span class="CommentedCode">#? print-string-to-real-screen "right: "</span> -<span id="L649" class="LineNr">649 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen tmp2</span> -<span id="L650" class="LineNr">650 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L651" class="LineNr">651 </span> <span class="muComment"># self->row = self->toprow</span> -<span id="L652" class="LineNr">652 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, toprow -<span id="L653" class="LineNr">653 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L654" class="LineNr">654 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, row -<span id="L655" class="LineNr">655 </span> copy-to *tmp, tmp2 -<span id="L656" class="LineNr">656 </span> <span class="muComment"># self->col = self->leftcol</span> -<span id="L657" class="LineNr">657 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, leftcol -<span id="L658" class="LineNr">658 </span> tmp2 <span class="SpecialChar"><-</span> copy *tmp -<span id="L659" class="LineNr">659 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, col -<span id="L660" class="LineNr">660 </span> copy-to *tmp, tmp2 -<span id="L661" class="LineNr">661 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/mu.subx.html b/html/apps/mu.subx.html deleted file mode 100644 index 136b4a6c..00000000 --- a/html/apps/mu.subx.html +++ /dev/null @@ -1,36385 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/mu.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } -.SpecialChar { color: #d70000; } -.subxMinorFunction { color: #875f5f; } -.Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/mu.subx'>https://github.com/akkartik/mu/blob/main/apps/mu.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># The Mu computer's level-2 language, also called Mu.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># <a href="http://akkartik.name/post/mu-2019-2">http://akkartik.name/post/mu-2019-2</a></span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./translate_subx init.linux [0-9]*.subx apps/mu.subx</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./a.elf < prog.mu > prog.elf</span> -<span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># == Goals</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># 1. Be memory safe. It should be impossible to corrupt the heap, or to create</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># a bad pointer. (Requires strong type safety.)</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 2. Do as little as possible to achieve goal 1. The translator should be</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># implementable in machine code.</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># - minimize impedance mismatch between source language and SubX target</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># (e.g. programmer manages registers manually)</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># - checks over syntax</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># (e.g. programmer's register allocation is checked)</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># - runtime checks to avoid complex static analysis</span> -<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># (e.g. array indexing always checks bounds)</span> -<span id="L19" class="LineNr"> 19 </span> -<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># == Language description</span> -<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># A program is a sequence of function and type definitions.</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment">#</span> -<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># Function example:</span> -<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># fn foo n: int -> _/eax: int {</span> -<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># ...</span> -<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># }</span> -<span id="L27" class="LineNr"> 27 </span><span class="subxComment">#</span> -<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># Functions consist of a name, optional inputs, optional outputs and a block.</span> -<span id="L29" class="LineNr"> 29 </span><span class="subxComment">#</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># Function inputs and outputs are variables. All variables have a type and</span> -<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># storage specifier. They can be placed either in memory (on the stack) or in</span> -<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># one of 6 named registers.</span> -<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># eax ecx edx ebx esi edi</span> -<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># Variables in registers must be primitive 32-bit types.</span> -<span id="L35" class="LineNr"> 35 </span><span class="subxComment"># Variables not explicitly placed in a register are on the stack.</span> -<span id="L36" class="LineNr"> 36 </span><span class="subxComment">#</span> -<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># Function inputs are always passed in memory (on the stack), while outputs</span> -<span id="L38" class="LineNr"> 38 </span><span class="subxComment"># are always returned in registers. Outputs can't be named; they use the</span> -<span id="L39" class="LineNr"> 39 </span><span class="subxComment"># dummy value '_'.</span> -<span id="L40" class="LineNr"> 40 </span><span class="subxComment">#</span> -<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># Blocks mostly consist of statements.</span> -<span id="L42" class="LineNr"> 42 </span><span class="subxComment">#</span> -<span id="L43" class="LineNr"> 43 </span><span class="subxComment"># Statements mostly consist of a name, optional inputs and optional outputs.</span> -<span id="L44" class="LineNr"> 44 </span><span class="subxComment">#</span> -<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># Statement inputs are variables or literals. Variables need to specify type</span> -<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># (and storage) the first time they're mentioned but not later.</span> -<span id="L47" class="LineNr"> 47 </span><span class="subxComment">#</span> -<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># Statement outputs, like function outputs, must be variables in registers.</span> -<span id="L49" class="LineNr"> 49 </span><span class="subxComment">#</span> -<span id="L50" class="LineNr"> 50 </span><span class="subxComment"># Statement names must be either primitives or user-defined functions.</span> -<span id="L51" class="LineNr"> 51 </span><span class="subxComment">#</span> -<span id="L52" class="LineNr"> 52 </span><span class="subxComment"># Primitives can write to any register.</span> -<span id="L53" class="LineNr"> 53 </span><span class="subxComment"># User-defined functions only write to hard-coded registers. Outputs of each</span> -<span id="L54" class="LineNr"> 54 </span><span class="subxComment"># call must have the same registers as in the function definition.</span> -<span id="L55" class="LineNr"> 55 </span><span class="subxComment">#</span> -<span id="L56" class="LineNr"> 56 </span><span class="subxComment"># There are some other statement types:</span> -<span id="L57" class="LineNr"> 57 </span><span class="subxComment"># - blocks. Multiple statements surrounded by '{...}' and optionally</span> -<span id="L58" class="LineNr"> 58 </span><span class="subxComment"># prefixed with a label name and ':'</span> -<span id="L59" class="LineNr"> 59 </span><span class="subxComment"># - {</span> -<span id="L60" class="LineNr"> 60 </span><span class="subxComment"># ...</span> -<span id="L61" class="LineNr"> 61 </span><span class="subxComment"># }</span> -<span id="L62" class="LineNr"> 62 </span><span class="subxComment"># - foo: {</span> -<span id="L63" class="LineNr"> 63 </span><span class="subxComment"># ...</span> -<span id="L64" class="LineNr"> 64 </span><span class="subxComment"># }</span> -<span id="L65" class="LineNr"> 65 </span><span class="subxComment">#</span> -<span id="L66" class="LineNr"> 66 </span><span class="subxComment"># - variable definitions on the stack. E.g.:</span> -<span id="L67" class="LineNr"> 67 </span><span class="subxComment"># - var foo: int</span> -<span id="L68" class="LineNr"> 68 </span><span class="subxComment"># - var bar: (array int 3)</span> -<span id="L69" class="LineNr"> 69 </span><span class="subxComment"># There's no initializer; variables are automatically initialized.</span> -<span id="L70" class="LineNr"> 70 </span><span class="subxComment"># The type of a local variable is either word-length (4 bytes) or starts with 'ref'.</span> -<span id="L71" class="LineNr"> 71 </span><span class="subxComment">#</span> -<span id="L72" class="LineNr"> 72 </span><span class="subxComment"># - variables definitions in a register. E.g.:</span> -<span id="L73" class="LineNr"> 73 </span><span class="subxComment"># - var foo/eax: int <- add bar 1</span> -<span id="L74" class="LineNr"> 74 </span><span class="subxComment"># The initializer is mandatory and must be a valid instruction that writes</span> -<span id="L75" class="LineNr"> 75 </span><span class="subxComment"># a single output to the right register. In practice registers will</span> -<span id="L76" class="LineNr"> 76 </span><span class="subxComment"># usually be either initialized by primitives or copied from eax.</span> -<span id="L77" class="LineNr"> 77 </span><span class="subxComment"># - var eax: int <- foo bar quux</span> -<span id="L78" class="LineNr"> 78 </span><span class="subxComment"># var floo/ecx: int <- copy eax</span> -<span id="L79" class="LineNr"> 79 </span><span class="subxComment">#</span> -<span id="L80" class="LineNr"> 80 </span><span class="subxComment"># Still todo:</span> -<span id="L81" class="LineNr"> 81 </span><span class="subxComment"># global variables</span> -<span id="L82" class="LineNr"> 82 </span><span class="subxComment"># union types</span> -<span id="L83" class="LineNr"> 83 </span><span class="subxComment">#</span> -<span id="L84" class="LineNr"> 84 </span><span class="subxComment"># Formal types:</span> -<span id="L85" class="LineNr"> 85 </span><span class="subxComment"># A program is a linked list of functions</span> -<span id="L86" class="LineNr"> 86 </span><span class="subxComment"># A function contains:</span> -<span id="L87" class="LineNr"> 87 </span><span class="subxComment"># name: (handle array byte)</span> -<span id="L88" class="LineNr"> 88 </span><span class="subxComment"># inouts: linked list of vars <-- 'inouts' is more precise than 'inputs'</span> -<span id="L89" class="LineNr"> 89 </span><span class="subxComment"># data: (handle var)</span> -<span id="L90" class="LineNr"> 90 </span><span class="subxComment"># next: (handle list)</span> -<span id="L91" class="LineNr"> 91 </span><span class="subxComment"># outputs: linked list of vars</span> -<span id="L92" class="LineNr"> 92 </span><span class="subxComment"># data: (handle var)</span> -<span id="L93" class="LineNr"> 93 </span><span class="subxComment"># next: (handle list)</span> -<span id="L94" class="LineNr"> 94 </span><span class="subxComment"># body: (handle block)</span> -<span id="L95" class="LineNr"> 95 </span><span class="subxComment"># A var-type contains:</span> -<span id="L96" class="LineNr"> 96 </span><span class="subxComment"># name: (handle array byte)</span> -<span id="L97" class="LineNr"> 97 </span><span class="subxComment"># type: (handle type-tree)</span> -<span id="L98" class="LineNr"> 98 </span><span class="subxComment">#</span> -<span id="L99" class="LineNr"> 99 </span><span class="subxComment"># A statement can be:</span> -<span id="L100" class="LineNr"> 100 </span><span class="subxComment"># tag 0: a block</span> -<span id="L101" class="LineNr"> 101 </span><span class="subxComment"># tag 1: a simple statement (stmt1)</span> -<span id="L102" class="LineNr"> 102 </span><span class="subxComment"># tag 2: a variable defined on the stack</span> -<span id="L103" class="LineNr"> 103 </span><span class="subxComment"># tag 3: a variable defined in a register</span> -<span id="L104" class="LineNr"> 104 </span><span class="subxComment">#</span> -<span id="L105" class="LineNr"> 105 </span><span class="subxComment"># A block contains:</span> -<span id="L106" class="LineNr"> 106 </span><span class="subxComment"># tag: 0</span> -<span id="L107" class="LineNr"> 107 </span><span class="subxComment"># statements: (handle list stmt)</span> -<span id="L108" class="LineNr"> 108 </span><span class="subxComment"># name: (handle array byte) -- starting with '$'</span> -<span id="L109" class="LineNr"> 109 </span><span class="subxComment">#</span> -<span id="L110" class="LineNr"> 110 </span><span class="subxComment"># A regular statement contains:</span> -<span id="L111" class="LineNr"> 111 </span><span class="subxComment"># tag: 1</span> -<span id="L112" class="LineNr"> 112 </span><span class="subxComment"># operation: (handle array byte)</span> -<span id="L113" class="LineNr"> 113 </span><span class="subxComment"># inouts: (handle list operand)</span> -<span id="L114" class="LineNr"> 114 </span><span class="subxComment"># outputs: (handle list var)</span> -<span id="L115" class="LineNr"> 115 </span><span class="subxComment">#</span> -<span id="L116" class="LineNr"> 116 </span><span class="subxComment"># A variable defined on the stack contains:</span> -<span id="L117" class="LineNr"> 117 </span><span class="subxComment"># tag: 2</span> -<span id="L118" class="LineNr"> 118 </span><span class="subxComment"># name: (handle array byte)</span> -<span id="L119" class="LineNr"> 119 </span><span class="subxComment"># type: (handle type-tree)</span> -<span id="L120" class="LineNr"> 120 </span><span class="subxComment">#</span> -<span id="L121" class="LineNr"> 121 </span><span class="subxComment"># A variable defined in a register contains:</span> -<span id="L122" class="LineNr"> 122 </span><span class="subxComment"># tag: 3</span> -<span id="L123" class="LineNr"> 123 </span><span class="subxComment"># name: (handle array byte)</span> -<span id="L124" class="LineNr"> 124 </span><span class="subxComment"># type: (handle type-tree)</span> -<span id="L125" class="LineNr"> 125 </span><span class="subxComment"># reg: (handle array byte)</span> -<span id="L126" class="LineNr"> 126 </span> -<span id="L127" class="LineNr"> 127 </span><span class="subxComment"># == Translation: managing the stack</span> -<span id="L128" class="LineNr"> 128 </span><span class="subxComment"># Now that we know what the language looks like in the large, let's think</span> -<span id="L129" class="LineNr"> 129 </span><span class="subxComment"># about how translation happens from the bottom up. One crucial piece of the</span> -<span id="L130" class="LineNr"> 130 </span><span class="subxComment"># puzzle is how Mu will clean up variables defined on the stack for you.</span> -<span id="L131" class="LineNr"> 131 </span><span class="subxComment">#</span> -<span id="L132" class="LineNr"> 132 </span><span class="subxComment"># Assume that we maintain a 'functions' list while parsing source code. And a</span> -<span id="L133" class="LineNr"> 133 </span><span class="subxComment"># 'primitives' list is a global constant. Both these contain enough information</span> -<span id="L134" class="LineNr"> 134 </span><span class="subxComment"># to perform type-checking on function calls or primitive statements, respectively.</span> -<span id="L135" class="LineNr"> 135 </span><span class="subxComment">#</span> -<span id="L136" class="LineNr"> 136 </span><span class="subxComment"># Defining variables pushes them on a stack with the current block depth and</span> -<span id="L137" class="LineNr"> 137 </span><span class="subxComment"># enough information about their location (stack offset or register).</span> -<span id="L138" class="LineNr"> 138 </span><span class="subxComment"># Starting a block increments the current block id.</span> -<span id="L139" class="LineNr"> 139 </span><span class="subxComment"># Each statement now has enough information to emit code for it.</span> -<span id="L140" class="LineNr"> 140 </span><span class="subxComment"># Ending a block is where the magic happens:</span> -<span id="L141" class="LineNr"> 141 </span><span class="subxComment"># pop all variables at the current block depth</span> -<span id="L142" class="LineNr"> 142 </span><span class="subxComment"># emit code to restore all register variables introduced at the current depth</span> -<span id="L143" class="LineNr"> 143 </span><span class="subxComment"># emit code to clean up all stack variables at the current depth (just increment esp)</span> -<span id="L144" class="LineNr"> 144 </span><span class="subxComment"># decrement the current block depth</span> -<span id="L145" class="LineNr"> 145 </span><span class="subxComment">#</span> -<span id="L146" class="LineNr"> 146 </span><span class="subxComment"># Formal types:</span> -<span id="L147" class="LineNr"> 147 </span><span class="subxComment"># live-vars: stack of vars</span> -<span id="L148" class="LineNr"> 148 </span><span class="subxComment"># var:</span> -<span id="L149" class="LineNr"> 149 </span><span class="subxComment"># name: (handle array byte)</span> -<span id="L150" class="LineNr"> 150 </span><span class="subxComment"># type: (handle type-tree)</span> -<span id="L151" class="LineNr"> 151 </span><span class="subxComment"># block: int</span> -<span id="L152" class="LineNr"> 152 </span><span class="subxComment"># stack-offset: int (added to ebp)</span> -<span id="L153" class="LineNr"> 153 </span><span class="subxComment"># register: (handle array byte)</span> -<span id="L154" class="LineNr"> 154 </span><span class="subxComment"># either usual register names</span> -<span id="L155" class="LineNr"> 155 </span><span class="subxComment"># or '*' to indicate any register</span> -<span id="L156" class="LineNr"> 156 </span><span class="subxComment"># At most one of stack-offset or register-index must be non-zero.</span> -<span id="L157" class="LineNr"> 157 </span><span class="subxComment"># A register of '*' designates a variable _template_. Only legal in formal</span> -<span id="L158" class="LineNr"> 158 </span><span class="subxComment"># parameters for primitives.</span> -<span id="L159" class="LineNr"> 159 </span> -<span id="L160" class="LineNr"> 160 </span><span class="subxComment"># == Translating a single function call</span> -<span id="L161" class="LineNr"> 161 </span><span class="subxComment"># This one's easy. Assuming we've already checked things, we just drop the</span> -<span id="L162" class="LineNr"> 162 </span><span class="subxComment"># outputs (which use hard-coded registers) and emit inputs in a standard format.</span> -<span id="L163" class="LineNr"> 163 </span><span class="subxComment">#</span> -<span id="L164" class="LineNr"> 164 </span><span class="subxComment"># out1, out2, out3, ... <- name inout1, inout2, inout3, ...</span> -<span id="L165" class="LineNr"> 165 </span><span class="subxComment"># =></span> -<span id="L166" class="LineNr"> 166 </span><span class="subxComment"># (name inout1 inout2 inout3)</span> -<span id="L167" class="LineNr"> 167 </span><span class="subxComment">#</span> -<span id="L168" class="LineNr"> 168 </span><span class="subxComment"># Formal types:</span> -<span id="L169" class="LineNr"> 169 </span><span class="subxComment"># functions: linked list of info</span> -<span id="L170" class="LineNr"> 170 </span><span class="subxComment"># name: (handle array byte)</span> -<span id="L171" class="LineNr"> 171 </span><span class="subxComment"># inouts: linked list of vars</span> -<span id="L172" class="LineNr"> 172 </span><span class="subxComment"># outputs: linked list of vars</span> -<span id="L173" class="LineNr"> 173 </span><span class="subxComment"># body: block (linked list of statements)</span> -<span id="L174" class="LineNr"> 174 </span> -<span id="L175" class="LineNr"> 175 </span><span class="subxComment"># == Translating a single primitive instruction</span> -<span id="L176" class="LineNr"> 176 </span><span class="subxComment"># A second crucial piece of the puzzle is how Mu converts fairly regular</span> -<span id="L177" class="LineNr"> 177 </span><span class="subxComment"># primitives with their uniform syntax to SubX instructions with their gnarly</span> -<span id="L178" class="LineNr"> 178 </span><span class="subxComment"># x86 details.</span> -<span id="L179" class="LineNr"> 179 </span><span class="subxComment">#</span> -<span id="L180" class="LineNr"> 180 </span><span class="subxComment"># Mu instructions have inputs and outputs. Primitives can have up to 2 of</span> -<span id="L181" class="LineNr"> 181 </span><span class="subxComment"># them.</span> -<span id="L182" class="LineNr"> 182 </span><span class="subxComment"># SubX instructions have rm32 and r32 operands.</span> -<span id="L183" class="LineNr"> 183 </span><span class="subxComment"># The translation between them covers almost all the possibilities.</span> -<span id="L184" class="LineNr"> 184 </span><span class="subxComment"># Instructions with 1 inout may turn into ones with 1 rm32</span> -<span id="L185" class="LineNr"> 185 </span><span class="subxComment"># (e.g. incrementing a var on the stack)</span> -<span id="L186" class="LineNr"> 186 </span><span class="subxComment"># Instructions with 1 output may turn into ones with 1 rm32</span> -<span id="L187" class="LineNr"> 187 </span><span class="subxComment"># (e.g. incrementing a var in a register)</span> -<span id="L188" class="LineNr"> 188 </span><span class="subxComment"># 1 inout and 1 output may turn into 1 rm32 and 1 r32</span> -<span id="L189" class="LineNr"> 189 </span><span class="subxComment"># (e.g. adding a var to a reg)</span> -<span id="L190" class="LineNr"> 190 </span><span class="subxComment"># 2 inouts may turn into 1 rm32 and 1 r32</span> -<span id="L191" class="LineNr"> 191 </span><span class="subxComment"># (e.g. adding a reg to a var)</span> -<span id="L192" class="LineNr"> 192 </span><span class="subxComment"># 1 inout and 1 literal may turn into 1 rm32 and 1 imm32</span> -<span id="L193" class="LineNr"> 193 </span><span class="subxComment"># (e.g. adding a constant to a var)</span> -<span id="L194" class="LineNr"> 194 </span><span class="subxComment"># 1 output and 1 literal may turn into 1 rm32 and 1 imm32</span> -<span id="L195" class="LineNr"> 195 </span><span class="subxComment"># (e.g. adding a constant to a reg)</span> -<span id="L196" class="LineNr"> 196 </span><span class="subxComment"># 2 outputs to hardcoded registers and 1 inout may turn into 1 rm32</span> -<span id="L197" class="LineNr"> 197 </span><span class="subxComment"># (special-case: divide edx:eax by a var or reg)</span> -<span id="L198" class="LineNr"> 198 </span><span class="subxComment"># Observations:</span> -<span id="L199" class="LineNr"> 199 </span><span class="subxComment"># We always emit rm32. It may be the first inout or the first output.</span> -<span id="L200" class="LineNr"> 200 </span><span class="subxComment"># We may emit r32 or imm32 or neither.</span> -<span id="L201" class="LineNr"> 201 </span><span class="subxComment"># When we emit r32 it may come from first inout or second inout or first output.</span> -<span id="L202" class="LineNr"> 202 </span><span class="subxComment">#</span> -<span id="L203" class="LineNr"> 203 </span><span class="subxComment"># Accordingly, the formal data structure for a primitive looks like this:</span> -<span id="L204" class="LineNr"> 204 </span><span class="subxComment"># primitives: linked list of info</span> -<span id="L205" class="LineNr"> 205 </span><span class="subxComment"># name: (handle array byte)</span> -<span id="L206" class="LineNr"> 206 </span><span class="subxComment"># mu-inouts: linked list of vars to check</span> -<span id="L207" class="LineNr"> 207 </span><span class="subxComment"># mu-outputs: linked list of vars to check; at most a singleton</span> -<span id="L208" class="LineNr"> 208 </span><span class="subxComment"># subx-name: (handle array byte)</span> -<span id="L209" class="LineNr"> 209 </span><span class="subxComment"># subx-rm32: enum arg-location</span> -<span id="L210" class="LineNr"> 210 </span><span class="subxComment"># subx-r32: enum arg-location</span> -<span id="L211" class="LineNr"> 211 </span><span class="subxComment"># subx-imm32: enum arg-location</span> -<span id="L212" class="LineNr"> 212 </span><span class="subxComment"># subx-imm8: enum arg-location</span> -<span id="L213" class="LineNr"> 213 </span><span class="subxComment"># subx-disp32: enum arg-location</span> -<span id="L214" class="LineNr"> 214 </span><span class="subxComment"># subx-xm32: enum arg-location</span> -<span id="L215" class="LineNr"> 215 </span><span class="subxComment"># subx-x32: enum arg-location</span> -<span id="L216" class="LineNr"> 216 </span><span class="subxComment"># arg-location: enum</span> -<span id="L217" class="LineNr"> 217 </span><span class="subxComment"># 0 means none</span> -<span id="L218" class="LineNr"> 218 </span><span class="subxComment"># 1 means first inout</span> -<span id="L219" class="LineNr"> 219 </span><span class="subxComment"># 2 means second inout</span> -<span id="L220" class="LineNr"> 220 </span><span class="subxComment"># 3 means first output</span> -<span id="L221" class="LineNr"> 221 </span> -<span id="L222" class="LineNr"> 222 </span><span class="subxComment"># == Translating a block</span> -<span id="L223" class="LineNr"> 223 </span><span class="subxComment"># Emit block name if necessary</span> -<span id="L224" class="LineNr"> 224 </span><span class="subxComment"># Emit '{'</span> -<span id="L225" class="LineNr"> 225 </span><span class="subxComment"># When you encounter a statement, emit it as above</span> -<span id="L226" class="LineNr"> 226 </span><span class="subxComment"># When you encounter a variable declaration</span> -<span id="L227" class="LineNr"> 227 </span><span class="subxComment"># emit any code needed for it (bzeros)</span> -<span id="L228" class="LineNr"> 228 </span><span class="subxComment"># push it on the var stack</span> -<span id="L229" class="LineNr"> 229 </span><span class="subxComment"># update register dict if necessary</span> -<span id="L230" class="LineNr"> 230 </span><span class="subxComment"># When you encounter '}'</span> -<span id="L231" class="LineNr"> 231 </span><span class="subxComment"># While popping variables off the var stack until block id changes</span> -<span id="L232" class="LineNr"> 232 </span><span class="subxComment"># Emit code needed to clean up the stack</span> -<span id="L233" class="LineNr"> 233 </span><span class="subxComment"># either increment esp</span> -<span id="L234" class="LineNr"> 234 </span><span class="subxComment"># or pop into appropriate register</span> -<span id="L235" class="LineNr"> 235 </span> -<span id="L236" class="LineNr"> 236 </span><span class="subxComment"># The rest is straightforward.</span> -<span id="L237" class="LineNr"> 237 </span> -<span id="L238" class="LineNr"> 238 </span>== data -<span id="L239" class="LineNr"> 239 </span> -<span id="L240" class="LineNr"> 240 </span><span class="SpecialChar">Program</span>: -<span id="L241" class="LineNr"> 241 </span><span class="subxMinorFunction">_Program-functions</span>: <span class="subxComment"># (handle function)</span> -<span id="L242" class="LineNr"> 242 </span> 0/imm32 -<span id="L243" class="LineNr"> 243 </span><span class="subxMinorFunction">_Program-functions->payload</span>: -<span id="L244" class="LineNr"> 244 </span> 0/imm32 -<span id="L245" class="LineNr"> 245 </span><span class="subxMinorFunction">_Program-types</span>: <span class="subxComment"># (handle typeinfo)</span> -<span id="L246" class="LineNr"> 246 </span> 0/imm32 -<span id="L247" class="LineNr"> 247 </span><span class="subxMinorFunction">_Program-types->payload</span>: -<span id="L248" class="LineNr"> 248 </span> 0/imm32 -<span id="L249" class="LineNr"> 249 </span><span class="subxMinorFunction">_Program-signatures</span>: <span class="subxComment"># (handle function)</span> -<span id="L250" class="LineNr"> 250 </span> 0/imm32 -<span id="L251" class="LineNr"> 251 </span><span class="subxMinorFunction">_Program-signatures->payload</span>: -<span id="L252" class="LineNr"> 252 </span> 0/imm32 -<span id="L253" class="LineNr"> 253 </span> -<span id="L254" class="LineNr"> 254 </span><span class="subxComment"># Some constants for simulating the data structures described above.</span> -<span id="L255" class="LineNr"> 255 </span><span class="subxComment"># Many constants here come with a type in a comment.</span> -<span id="L256" class="LineNr"> 256 </span><span class="subxComment">#</span> -<span id="L257" class="LineNr"> 257 </span><span class="subxComment"># Sometimes the type is of the value at that offset for the given type. For</span> -<span id="L258" class="LineNr"> 258 </span><span class="subxComment"># example, if you start at a function record and move forward Function-inouts</span> -<span id="L259" class="LineNr"> 259 </span><span class="subxComment"># bytes, you'll find a (handle list var).</span> -<span id="L260" class="LineNr"> 260 </span><span class="subxComment">#</span> -<span id="L261" class="LineNr"> 261 </span><span class="subxComment"># At other times, the type is of the constant itself. For example, the type of</span> -<span id="L262" class="LineNr"> 262 </span><span class="subxComment"># the constant Function-size is (addr int). To get the size of a function,</span> -<span id="L263" class="LineNr"> 263 </span><span class="subxComment"># look in *Function-size.</span> -<span id="L264" class="LineNr"> 264 </span> -<span id="L265" class="LineNr"> 265 </span><span class="SpecialChar">Function-name</span>: <span class="subxComment"># (handle array byte)</span> -<span id="L266" class="LineNr"> 266 </span> 0/imm32 -<span id="L267" class="LineNr"> 267 </span><span class="SpecialChar">Function-inouts</span>: <span class="subxComment"># (handle list var)</span> -<span id="L268" class="LineNr"> 268 </span> 8/imm32 -<span id="L269" class="LineNr"> 269 </span><span class="SpecialChar">Function-outputs</span>: <span class="subxComment"># (handle list var)</span> -<span id="L270" class="LineNr"> 270 </span> 0x10/imm32 -<span id="L271" class="LineNr"> 271 </span><span class="SpecialChar">Function-body</span>: <span class="subxComment"># (handle block)</span> -<span id="L272" class="LineNr"> 272 </span> 0x18/imm32 -<span id="L273" class="LineNr"> 273 </span><span class="SpecialChar">Function-next</span>: <span class="subxComment"># (handle function)</span> -<span id="L274" class="LineNr"> 274 </span> 0x20/imm32 -<span id="L275" class="LineNr"> 275 </span><span class="SpecialChar">Function-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L276" class="LineNr"> 276 </span> 0x28/imm32/40 -<span id="L277" class="LineNr"> 277 </span> -<span id="L278" class="LineNr"> 278 </span><span class="SpecialChar">Primitive-name</span>: <span class="subxComment"># (handle array byte)</span> -<span id="L279" class="LineNr"> 279 </span> 0/imm32 -<span id="L280" class="LineNr"> 280 </span><span class="SpecialChar">Primitive-inouts</span>: <span class="subxComment"># (handle list var)</span> -<span id="L281" class="LineNr"> 281 </span> 8/imm32 -<span id="L282" class="LineNr"> 282 </span><span class="SpecialChar">Primitive-outputs</span>: <span class="subxComment"># (handle list var)</span> -<span id="L283" class="LineNr"> 283 </span> 0x10/imm32 -<span id="L284" class="LineNr"> 284 </span><span class="SpecialChar">Primitive-subx-name</span>: <span class="subxComment"># (handle array byte)</span> -<span id="L285" class="LineNr"> 285 </span> 0x18/imm32 -<span id="L286" class="LineNr"> 286 </span><span class="SpecialChar">Primitive-subx-rm32</span>: <span class="subxComment"># enum arg-location</span> -<span id="L287" class="LineNr"> 287 </span> 0x20/imm32 -<span id="L288" class="LineNr"> 288 </span><span class="SpecialChar">Primitive-subx-r32</span>: <span class="subxComment"># enum arg-location</span> -<span id="L289" class="LineNr"> 289 </span> 0x24/imm32 -<span id="L290" class="LineNr"> 290 </span><span class="SpecialChar">Primitive-subx-imm32</span>: <span class="subxComment"># enum arg-location</span> -<span id="L291" class="LineNr"> 291 </span> 0x28/imm32 -<span id="L292" class="LineNr"> 292 </span><span class="SpecialChar">Primitive-subx-imm8</span>: <span class="subxComment"># enum arg-location -- only for bit shifts</span> -<span id="L293" class="LineNr"> 293 </span> 0x2c/imm32 -<span id="L294" class="LineNr"> 294 </span><span class="SpecialChar">Primitive-subx-disp32</span>: <span class="subxComment"># enum arg-location -- only for branches</span> -<span id="L295" class="LineNr"> 295 </span> 0x30/imm32 -<span id="L296" class="LineNr"> 296 </span><span class="SpecialChar">Primitive-subx-xm32</span>: <span class="subxComment"># enum arg-location</span> -<span id="L297" class="LineNr"> 297 </span> 0x34/imm32 -<span id="L298" class="LineNr"> 298 </span><span class="SpecialChar">Primitive-subx-x32</span>: <span class="subxComment"># enum arg-location</span> -<span id="L299" class="LineNr"> 299 </span> 0x38/imm32 -<span id="L300" class="LineNr"> 300 </span><span class="SpecialChar">Primitive-next</span>: <span class="subxComment"># (handle function)</span> -<span id="L301" class="LineNr"> 301 </span> 0x3c/imm32 -<span id="L302" class="LineNr"> 302 </span><span class="SpecialChar">Primitive-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L303" class="LineNr"> 303 </span> 0x44/imm32/68 -<span id="L304" class="LineNr"> 304 </span> -<span id="L305" class="LineNr"> 305 </span><span class="SpecialChar">Stmt-tag</span>: <span class="subxComment"># int</span> -<span id="L306" class="LineNr"> 306 </span> 0/imm32 -<span id="L307" class="LineNr"> 307 </span> -<span id="L308" class="LineNr"> 308 </span><span class="SpecialChar">Block-stmts</span>: <span class="subxComment"># (handle list stmt)</span> -<span id="L309" class="LineNr"> 309 </span> 4/imm32 -<span id="L310" class="LineNr"> 310 </span><span class="SpecialChar">Block-var</span>: <span class="subxComment"># (handle var)</span> -<span id="L311" class="LineNr"> 311 </span> 0xc/imm32 -<span id="L312" class="LineNr"> 312 </span> -<span id="L313" class="LineNr"> 313 </span><span class="SpecialChar">Stmt1-operation</span>: <span class="subxComment"># (handle array byte)</span> -<span id="L314" class="LineNr"> 314 </span> 4/imm32 -<span id="L315" class="LineNr"> 315 </span><span class="SpecialChar">Stmt1-inouts</span>: <span class="subxComment"># (handle stmt-var)</span> -<span id="L316" class="LineNr"> 316 </span> 0xc/imm32 -<span id="L317" class="LineNr"> 317 </span><span class="SpecialChar">Stmt1-outputs</span>: <span class="subxComment"># (handle stmt-var)</span> -<span id="L318" class="LineNr"> 318 </span> 0x14/imm32 -<span id="L319" class="LineNr"> 319 </span> -<span id="L320" class="LineNr"> 320 </span><span class="SpecialChar">Vardef-var</span>: <span class="subxComment"># (handle var)</span> -<span id="L321" class="LineNr"> 321 </span> 4/imm32 -<span id="L322" class="LineNr"> 322 </span> -<span id="L323" class="LineNr"> 323 </span><span class="SpecialChar">Regvardef-operation</span>: <span class="subxComment"># (handle array byte)</span> -<span id="L324" class="LineNr"> 324 </span> 4/imm32 -<span id="L325" class="LineNr"> 325 </span><span class="SpecialChar">Regvardef-inouts</span>: <span class="subxComment"># (handle stmt-var)</span> -<span id="L326" class="LineNr"> 326 </span> 0xc/imm32 -<span id="L327" class="LineNr"> 327 </span><span class="SpecialChar">Regvardef-outputs</span>: <span class="subxComment"># (handle stmt-var) # will have exactly one element</span> -<span id="L328" class="LineNr"> 328 </span> 0x14/imm32 -<span id="L329" class="LineNr"> 329 </span> -<span id="L330" class="LineNr"> 330 </span><span class="SpecialChar">Stmt-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L331" class="LineNr"> 331 </span> 0x1c/imm32 -<span id="L332" class="LineNr"> 332 </span> -<span id="L333" class="LineNr"> 333 </span><span class="SpecialChar">Var-name</span>: <span class="subxComment"># (handle array byte)</span> -<span id="L334" class="LineNr"> 334 </span> 0/imm32 -<span id="L335" class="LineNr"> 335 </span><span class="SpecialChar">Var-type</span>: <span class="subxComment"># (handle type-tree)</span> -<span id="L336" class="LineNr"> 336 </span> 8/imm32 -<span id="L337" class="LineNr"> 337 </span><span class="SpecialChar">Var-block-depth</span>: <span class="subxComment"># int -- not available until code-generation time</span> -<span id="L338" class="LineNr"> 338 </span> 0x10/imm32 -<span id="L339" class="LineNr"> 339 </span><span class="SpecialChar">Var-offset</span>: <span class="subxComment"># int -- not available until code-generation time</span> -<span id="L340" class="LineNr"> 340 </span> 0x14/imm32 -<span id="L341" class="LineNr"> 341 </span><span class="SpecialChar">Var-register</span>: <span class="subxComment"># (handle array byte) -- name of a register</span> -<span id="L342" class="LineNr"> 342 </span> 0x18/imm32 -<span id="L343" class="LineNr"> 343 </span><span class="SpecialChar">Var-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L344" class="LineNr"> 344 </span> 0x20/imm32 -<span id="L345" class="LineNr"> 345 </span> -<span id="L346" class="LineNr"> 346 </span><span class="SpecialChar">List-value</span>: <span class="subxComment"># (handle _)</span> -<span id="L347" class="LineNr"> 347 </span> 0/imm32 -<span id="L348" class="LineNr"> 348 </span><span class="SpecialChar">List-next</span>: <span class="subxComment"># (handle list _)</span> -<span id="L349" class="LineNr"> 349 </span> 8/imm32 -<span id="L350" class="LineNr"> 350 </span><span class="SpecialChar">List-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L351" class="LineNr"> 351 </span> 0x10/imm32 -<span id="L352" class="LineNr"> 352 </span> -<span id="L353" class="LineNr"> 353 </span><span class="subxComment"># A stmt-var is like a list of vars with call-site specific metadata</span> -<span id="L354" class="LineNr"> 354 </span><span class="SpecialChar">Stmt-var-value</span>: <span class="subxComment"># (handle var)</span> -<span id="L355" class="LineNr"> 355 </span> 0/imm32 -<span id="L356" class="LineNr"> 356 </span><span class="SpecialChar">Stmt-var-next</span>: <span class="subxComment"># (handle stmt-var)</span> -<span id="L357" class="LineNr"> 357 </span> 8/imm32 -<span id="L358" class="LineNr"> 358 </span><span class="SpecialChar">Stmt-var-is-deref</span>: <span class="subxComment"># boolean</span> -<span id="L359" class="LineNr"> 359 </span> 0x10/imm32 -<span id="L360" class="LineNr"> 360 </span><span class="SpecialChar">Stmt-var-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L361" class="LineNr"> 361 </span> 0x14/imm32 -<span id="L362" class="LineNr"> 362 </span> -<span id="L363" class="LineNr"> 363 </span><span class="subxComment"># A live-var is a var augmented with information needed for tracking live</span> -<span id="L364" class="LineNr"> 364 </span><span class="subxComment"># variables.</span> -<span id="L365" class="LineNr"> 365 </span><span class="SpecialChar">Live-var-value</span>: <span class="subxComment"># (handle var)</span> -<span id="L366" class="LineNr"> 366 </span> 0/imm32 -<span id="L367" class="LineNr"> 367 </span><span class="SpecialChar">Live-var-register-spilled</span>: <span class="subxComment"># boolean; only used if value is in a register, and only during code-gen</span> -<span id="L368" class="LineNr"> 368 </span> 8/imm32 -<span id="L369" class="LineNr"> 369 </span><span class="SpecialChar">Live-var-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L370" class="LineNr"> 370 </span> 0xc/imm32 -<span id="L371" class="LineNr"> 371 </span> -<span id="L372" class="LineNr"> 372 </span><span class="subxComment"># Types are expressed as trees (s-expressions) of type-ids (ints).</span> -<span id="L373" class="LineNr"> 373 </span> -<span id="L374" class="LineNr"> 374 </span><span class="SpecialChar">Type-tree-is-atom</span>: <span class="subxComment"># boolean</span> -<span id="L375" class="LineNr"> 375 </span> 0/imm32 -<span id="L376" class="LineNr"> 376 </span><span class="subxComment"># if is-atom?</span> -<span id="L377" class="LineNr"> 377 </span><span class="SpecialChar">Type-tree-value</span>: <span class="subxComment"># type-id</span> -<span id="L378" class="LineNr"> 378 </span> 4/imm32 -<span id="L379" class="LineNr"> 379 </span><span class="SpecialChar">Type-tree-value-size</span>: <span class="subxComment"># int (for static data structure sizes)</span> -<span id="L380" class="LineNr"> 380 </span> 8/imm32 -<span id="L381" class="LineNr"> 381 </span><span class="SpecialChar">Type-tree-parameter-name</span>: <span class="subxComment"># (handle array byte) for type parameters</span> -<span id="L382" class="LineNr"> 382 </span> 8/imm32 -<span id="L383" class="LineNr"> 383 </span><span class="subxComment"># unless is-atom?</span> -<span id="L384" class="LineNr"> 384 </span><span class="SpecialChar">Type-tree-left</span>: <span class="subxComment"># (addr type-tree)</span> -<span id="L385" class="LineNr"> 385 </span> 4/imm32 -<span id="L386" class="LineNr"> 386 </span><span class="SpecialChar">Type-tree-right</span>: <span class="subxComment"># (addr type-tree)</span> -<span id="L387" class="LineNr"> 387 </span> 0xc/imm32 -<span id="L388" class="LineNr"> 388 </span><span class="subxComment">#</span> -<span id="L389" class="LineNr"> 389 </span><span class="SpecialChar">Type-tree-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L390" class="LineNr"> 390 </span> 0x14/imm32 -<span id="L391" class="LineNr"> 391 </span> -<span id="L392" class="LineNr"> 392 </span><span class="subxComment"># Types</span> -<span id="L393" class="LineNr"> 393 </span> -<span id="L394" class="LineNr"> 394 </span><span class="subxComment"># TODO: Turn this data structure into valid Mu, with (fake) handles rather than addrs.</span> -<span id="L395" class="LineNr"> 395 </span><span class="SpecialChar">Type-id</span>: <span class="subxComment"># (stream (addr array byte))</span> -<span id="L396" class="LineNr"> 396 </span> 0/imm32/write <span class="subxComment"># initialized later from Primitive-type-ids</span> -<span id="L397" class="LineNr"> 397 </span> 0/imm32/read -<span id="L398" class="LineNr"> 398 </span> 0x100/imm32/size -<span id="L399" class="LineNr"> 399 </span> <span class="subxComment"># data</span> -<span id="L400" class="LineNr"> 400 </span> 0/imm32 <span class="subxComment"># 0 reserved for literals; value is just the name</span> -<span id="L401" class="LineNr"> 401 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> -<span id="L402" class="LineNr"> 402 </span> <span class="Constant">"int"</span>/imm32 <span class="subxComment"># 1</span> -<span id="L403" class="LineNr"> 403 </span> <span class="Constant">"addr"</span>/imm32 <span class="subxComment"># 2</span> -<span id="L404" class="LineNr"> 404 </span> <span class="Constant">"array"</span>/imm32 <span class="subxComment"># 3</span> -<span id="L405" class="LineNr"> 405 </span> <span class="Constant">"handle"</span>/imm32 <span class="subxComment"># 4</span> -<span id="L406" class="LineNr"> 406 </span> <span class="Constant">"boolean"</span>/imm32 <span class="subxComment"># 5</span> -<span id="L407" class="LineNr"> 407 </span> 0/imm32 <span class="subxComment"># 6 reserved for constants; they're like literals, but value is an int in Var-offset</span> -<span id="L408" class="LineNr"> 408 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> -<span id="L409" class="LineNr"> 409 </span> <span class="Constant">"offset"</span>/imm32 <span class="subxComment"># 7: (offset T) is guaranteed to be a 32-bit multiple of size-of(T)</span> -<span id="L410" class="LineNr"> 410 </span> <span class="subxComment"># 0x20</span> -<span id="L411" class="LineNr"> 411 </span> <span class="Constant">"byte"</span>/imm32 <span class="subxComment"># 8</span> -<span id="L412" class="LineNr"> 412 </span> 0/imm32 <span class="subxComment"># 9 reserved for array-capacity; value is in Type-tree-size.</span> -<span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> -<span id="L414" class="LineNr"> 414 </span> 0/imm32 <span class="subxComment"># 10 reserved for type parameters; value is (address array byte) in Type-tree-value2.</span> -<span id="L415" class="LineNr"> 415 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> -<span id="L416" class="LineNr"> 416 </span> <span class="Constant">"stream"</span>/imm32 <span class="subxComment"># 11</span> -<span id="L417" class="LineNr"> 417 </span> <span class="Constant">"slice"</span>/imm32 <span class="subxComment"># 12</span> -<span id="L418" class="LineNr"> 418 </span> <span class="Constant">"code-point"</span>/imm32 <span class="subxComment"># 13; smallest scannable unit from a text stream</span> -<span id="L419" class="LineNr"> 419 </span> <span class="Constant">"grapheme"</span>/imm32 <span class="subxComment"># 14; smallest printable unit; will eventually be composed of multiple code-points, but currently corresponds 1:1</span> -<span id="L420" class="LineNr"> 420 </span> <span class="subxComment"># only 4-byte graphemes in utf-8 are currently supported;</span> -<span id="L421" class="LineNr"> 421 </span> <span class="subxComment"># unclear how we should deal with larger clusters.</span> -<span id="L422" class="LineNr"> 422 </span> <span class="Constant">"float"</span>/imm32 <span class="subxComment"># 15</span> -<span id="L423" class="LineNr"> 423 </span> <span class="subxComment"># 0x40</span> -<span id="L424" class="LineNr"> 424 </span> 0/imm32 <span class="subxComment"># 16 reserved for literal strings; value is just the name</span> -<span id="L425" class="LineNr"> 425 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> -<span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># TODO: move this up next to literal ints</span> -<span id="L427" class="LineNr"> 427 </span> <span class="subxComment"># Keep Primitive-type-ids in sync if you add types here.</span> -<span id="L428" class="LineNr"> 428 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 -<span id="L429" class="LineNr"> 429 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 -<span id="L430" class="LineNr"> 430 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 -<span id="L431" class="LineNr"> 431 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 -<span id="L432" class="LineNr"> 432 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 -<span id="L433" class="LineNr"> 433 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 -<span id="L434" class="LineNr"> 434 </span> -<span id="L435" class="LineNr"> 435 </span><span class="SpecialChar">Primitive-type-ids</span>: <span class="subxComment"># (addr int)</span> -<span id="L436" class="LineNr"> 436 </span> 0x44 -<span id="L437" class="LineNr"> 437 </span> -<span id="L438" class="LineNr"> 438 </span><span class="subxComment"># == Type definitions</span> -<span id="L439" class="LineNr"> 439 </span><span class="subxComment"># Program->types contains some typeinfo for each type definition.</span> -<span id="L440" class="LineNr"> 440 </span><span class="subxComment"># Types contain vars with types, but can't specify registers.</span> -<span id="L441" class="LineNr"> 441 </span><span class="SpecialChar">Typeinfo-id</span>: <span class="subxComment"># type-id</span> -<span id="L442" class="LineNr"> 442 </span> 0/imm32 -<span id="L443" class="LineNr"> 443 </span><span class="SpecialChar">Typeinfo-fields</span>: <span class="subxComment"># (handle table (handle array byte) (handle typeinfo-entry))</span> -<span id="L444" class="LineNr"> 444 </span> 4/imm32 -<span id="L445" class="LineNr"> 445 </span><span class="subxComment"># Total size must be >= 0</span> -<span id="L446" class="LineNr"> 446 </span><span class="subxComment"># During parsing it may take on two additional values:</span> -<span id="L447" class="LineNr"> 447 </span><span class="subxComment"># -2: not yet initialized</span> -<span id="L448" class="LineNr"> 448 </span><span class="subxComment"># -1: in process of being computed</span> -<span id="L449" class="LineNr"> 449 </span><span class="subxComment"># See populate-mu-type-sizes for details.</span> -<span id="L450" class="LineNr"> 450 </span><span class="SpecialChar">Typeinfo-total-size-in-bytes</span>: <span class="subxComment"># int</span> -<span id="L451" class="LineNr"> 451 </span> 0xc/imm32 -<span id="L452" class="LineNr"> 452 </span><span class="SpecialChar">Typeinfo-next</span>: <span class="subxComment"># (handle typeinfo)</span> -<span id="L453" class="LineNr"> 453 </span> 0x10/imm32 -<span id="L454" class="LineNr"> 454 </span><span class="SpecialChar">Typeinfo-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L455" class="LineNr"> 455 </span> 0x18/imm32 -<span id="L456" class="LineNr"> 456 </span> -<span id="L457" class="LineNr"> 457 </span><span class="subxComment"># Each entry in the typeinfo->fields table has a pointer to a string and a</span> -<span id="L458" class="LineNr"> 458 </span><span class="subxComment"># pointer to a typeinfo-entry.</span> -<span id="L459" class="LineNr"> 459 </span><span class="SpecialChar">Typeinfo-fields-row-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L460" class="LineNr"> 460 </span> 0x10/imm32 -<span id="L461" class="LineNr"> 461 </span> -<span id="L462" class="LineNr"> 462 </span><span class="subxComment"># typeinfo-entry objects have information about a field in a single record type</span> -<span id="L463" class="LineNr"> 463 </span><span class="subxComment">#</span> -<span id="L464" class="LineNr"> 464 </span><span class="subxComment"># each field of a type is represented using two var's:</span> -<span id="L465" class="LineNr"> 465 </span><span class="subxComment"># 1. the input var: expected type of the field; convenient for creating using parse-var-with-type</span> -<span id="L466" class="LineNr"> 466 </span><span class="subxComment"># 2. the output var: a constant containing the byte offset; convenient for code-generation</span> -<span id="L467" class="LineNr"> 467 </span><span class="subxComment"># computing the output happens after parsing; in the meantime we preserve the</span> -<span id="L468" class="LineNr"> 468 </span><span class="subxComment"># order of fields in the 'index' field.</span> -<span id="L469" class="LineNr"> 469 </span><span class="SpecialChar">Typeinfo-entry-input-var</span>: <span class="subxComment"># (handle var)</span> -<span id="L470" class="LineNr"> 470 </span> 0/imm32 -<span id="L471" class="LineNr"> 471 </span><span class="SpecialChar">Typeinfo-entry-index</span>: <span class="subxComment"># int</span> -<span id="L472" class="LineNr"> 472 </span> 8/imm32 -<span id="L473" class="LineNr"> 473 </span><span class="SpecialChar">Typeinfo-entry-output-var</span>: <span class="subxComment"># (handle var)</span> -<span id="L474" class="LineNr"> 474 </span> 0xc/imm32 -<span id="L475" class="LineNr"> 475 </span><span class="SpecialChar">Typeinfo-entry-size</span>: <span class="subxComment"># (addr int)</span> -<span id="L476" class="LineNr"> 476 </span> 0x14/imm32 -<span id="L477" class="LineNr"> 477 </span> -<span id="L478" class="LineNr"> 478 </span>== code -<span id="L479" class="LineNr"> 479 </span> -<span id="L480" class="LineNr"> 480 </span><span class="SpecialChar">Entry</span>: -<span id="L481" class="LineNr"> 481 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L482" class="LineNr"> 482 </span> 89/<- %ebp 4/r32/esp -<span id="L483" class="LineNr"> 483 </span> (<a href='../104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>) -<span id="L484" class="LineNr"> 484 </span> <span class="subxComment"># if (argv[1] == "test') run-tests()</span> -<span id="L485" class="LineNr"> 485 </span> { -<span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># if (argc <= 1) break</span> -<span id="L487" class="LineNr"> 487 </span> 81 7/subop/compare *ebp 1/imm32 -<span id="L488" class="LineNr"> 488 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># if (argv[1] != "test") break</span> -<span id="L490" class="LineNr"> 490 </span> (<a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> -<span id="L491" class="LineNr"> 491 </span> 3d/compare-eax-and 0/imm32/false -<span id="L492" class="LineNr"> 492 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L493" class="LineNr"> 493 </span> <span class="subxComment">#</span> -<span id="L494" class="LineNr"> 494 </span> (run-tests) -<span id="L495" class="LineNr"> 495 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L496" class="LineNr"> 496 </span> 8b/-> *<span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx -<span id="L497" class="LineNr"> 497 </span> eb/jump $mu-main:end/disp8 -<span id="L498" class="LineNr"> 498 </span> } -<span id="L499" class="LineNr"> 499 </span> <span class="subxComment"># otherwise convert Stdin</span> -<span id="L500" class="LineNr"> 500 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span> <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L501" class="LineNr"> 501 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>) -<span id="L502" class="LineNr"> 502 </span> <span class="subxComment"># syscall(exit, 0)</span> -<span id="L503" class="LineNr"> 503 </span> bb/copy-to-ebx 0/imm32 -<span id="L504" class="LineNr"> 504 </span><span class="Constant">$mu-main:end</span>: -<span id="L505" class="LineNr"> 505 </span> e8/call syscall_exit/disp32 -<span id="L506" class="LineNr"> 506 </span> -<span id="L507" class="LineNr"> 507 </span><span class="subxFunction">convert-mu</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L508" class="LineNr"> 508 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L509" class="LineNr"> 509 </span> 55/push-ebp -<span id="L510" class="LineNr"> 510 </span> 89/<- %ebp 4/r32/esp -<span id="L511" class="LineNr"> 511 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L512" class="LineNr"> 512 </span> 50/push-eax -<span id="L513" class="LineNr"> 513 </span> <span class="subxComment"># initialize global data structures</span> -<span id="L514" class="LineNr"> 514 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15498'>Next-block-index</a></span> 1/imm32 -<span id="L515" class="LineNr"> 515 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L516" class="LineNr"> 516 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L517" class="LineNr"> 517 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L518" class="LineNr"> 518 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L519" class="LineNr"> 519 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L520" class="LineNr"> 520 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L521" class="LineNr"> 521 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L522" class="LineNr"> 522 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L523" class="LineNr"> 523 </span> <span class="subxComment">#</span> -<span id="L524" class="LineNr"> 524 </span> (<a href='mu.subx.html#L15506'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) -<span id="L525" class="LineNr"> 525 </span> (<a href='mu.subx.html#L20550'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) -<span id="L526" class="LineNr"> 526 </span><span class="CommentedCode">#? (dump-typeinfos "=== typeinfos\n")</span> -<span id="L527" class="LineNr"> 527 </span> (<a href='mu.subx.html#L21079'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) -<span id="L528" class="LineNr"> 528 </span> (<a href='mu.subx.html#L26751'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L529" class="LineNr"> 529 </span><span class="Constant">$convert-mu:end</span>: -<span id="L530" class="LineNr"> 530 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L531" class="LineNr"> 531 </span> 58/pop-to-eax -<span id="L532" class="LineNr"> 532 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L533" class="LineNr"> 533 </span> 89/<- %esp 5/r32/ebp -<span id="L534" class="LineNr"> 534 </span> 5d/pop-to-ebp -<span id="L535" class="LineNr"> 535 </span> c3/return -<span id="L536" class="LineNr"> 536 </span> -<span id="L537" class="LineNr"> 537 </span><span class="subxTest">test-convert-empty-input</span>: -<span id="L538" class="LineNr"> 538 </span> <span class="subxComment"># empty input => empty output</span> -<span id="L539" class="LineNr"> 539 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L540" class="LineNr"> 540 </span> 55/push-ebp -<span id="L541" class="LineNr"> 541 </span> 89/<- %ebp 4/r32/esp -<span id="L542" class="LineNr"> 542 </span> <span class="subxComment"># setup</span> -<span id="L543" class="LineNr"> 543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L544" class="LineNr"> 544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L545" class="LineNr"> 545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L546" class="LineNr"> 546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L547" class="LineNr"> 547 </span> <span class="subxComment">#</span> -<span id="L548" class="LineNr"> 548 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L549" class="LineNr"> 549 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L550" class="LineNr"> 550 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - test-convert-empty-input"</span>) -<span id="L551" class="LineNr"> 551 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L552" class="LineNr"> 552 </span> 89/<- %esp 5/r32/ebp -<span id="L553" class="LineNr"> 553 </span> 5d/pop-to-ebp -<span id="L554" class="LineNr"> 554 </span> c3/return -<span id="L555" class="LineNr"> 555 </span> -<span id="L556" class="LineNr"> 556 </span><span class="subxTest">test-convert-function-skeleton</span>: -<span id="L557" class="LineNr"> 557 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L558" class="LineNr"> 558 </span> 55/push-ebp -<span id="L559" class="LineNr"> 559 </span> 89/<- %ebp 4/r32/esp -<span id="L560" class="LineNr"> 560 </span> <span class="subxComment"># setup</span> -<span id="L561" class="LineNr"> 561 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L562" class="LineNr"> 562 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L563" class="LineNr"> 563 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L564" class="LineNr"> 564 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L565" class="LineNr"> 565 </span> <span class="subxComment">#</span> -<span id="L566" class="LineNr"> 566 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L567" class="LineNr"> 567 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L568" class="LineNr"> 568 </span> <span class="subxComment"># convert</span> -<span id="L569" class="LineNr"> 569 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L570" class="LineNr"> 570 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L571" class="Folded"> 571 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L577" class="LineNr"> 577 </span> <span class="subxComment"># check output</span> -<span id="L578" class="LineNr"> 578 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/0"</span>) -<span id="L579" class="LineNr"> 579 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-skeleton/1"</span>) -<span id="L580" class="LineNr"> 580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/2"</span>) -<span id="L581" class="LineNr"> 581 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/3"</span>) -<span id="L582" class="LineNr"> 582 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-skeleton/4"</span>) -<span id="L583" class="LineNr"> 583 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/5"</span>) -<span id="L584" class="LineNr"> 584 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/6"</span>) -<span id="L585" class="LineNr"> 585 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/7"</span>) -<span id="L586" class="LineNr"> 586 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L587" class="LineNr"> 587 </span> 89/<- %esp 5/r32/ebp -<span id="L588" class="LineNr"> 588 </span> 5d/pop-to-ebp -<span id="L589" class="LineNr"> 589 </span> c3/return -<span id="L590" class="LineNr"> 590 </span> -<span id="L591" class="LineNr"> 591 </span><span class="subxTest">test-convert-multiple-function-skeletons</span>: -<span id="L592" class="LineNr"> 592 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L593" class="LineNr"> 593 </span> 55/push-ebp -<span id="L594" class="LineNr"> 594 </span> 89/<- %ebp 4/r32/esp -<span id="L595" class="LineNr"> 595 </span> <span class="subxComment"># setup</span> -<span id="L596" class="LineNr"> 596 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L597" class="LineNr"> 597 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L598" class="LineNr"> 598 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L599" class="LineNr"> 599 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L600" class="LineNr"> 600 </span> <span class="subxComment">#</span> -<span id="L601" class="LineNr"> 601 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L602" class="LineNr"> 602 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L603" class="LineNr"> 603 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn bar {\n"</span>) -<span id="L604" class="LineNr"> 604 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L605" class="LineNr"> 605 </span> <span class="subxComment"># convert</span> -<span id="L606" class="LineNr"> 606 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L607" class="LineNr"> 607 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L608" class="Folded"> 608 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L614" class="LineNr"> 614 </span> <span class="subxComment"># check first function</span> -<span id="L615" class="LineNr"> 615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/0"</span>) -<span id="L616" class="LineNr"> 616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/1"</span>) -<span id="L617" class="LineNr"> 617 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/2"</span>) -<span id="L618" class="LineNr"> 618 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/3"</span>) -<span id="L619" class="LineNr"> 619 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/4"</span>) -<span id="L620" class="LineNr"> 620 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/5"</span>) -<span id="L621" class="LineNr"> 621 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/6"</span>) -<span id="L622" class="LineNr"> 622 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/7"</span>) -<span id="L623" class="LineNr"> 623 </span> <span class="subxComment"># check second function</span> -<span id="L624" class="LineNr"> 624 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"bar:"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/10"</span>) -<span id="L625" class="LineNr"> 625 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/11"</span>) -<span id="L626" class="LineNr"> 626 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/12"</span>) -<span id="L627" class="LineNr"> 627 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/13"</span>) -<span id="L628" class="LineNr"> 628 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/14"</span>) -<span id="L629" class="LineNr"> 629 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/15"</span>) -<span id="L630" class="LineNr"> 630 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/16"</span>) -<span id="L631" class="LineNr"> 631 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/17"</span>) -<span id="L632" class="LineNr"> 632 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L633" class="LineNr"> 633 </span> 89/<- %esp 5/r32/ebp -<span id="L634" class="LineNr"> 634 </span> 5d/pop-to-ebp -<span id="L635" class="LineNr"> 635 </span> c3/return -<span id="L636" class="LineNr"> 636 </span> -<span id="L637" class="LineNr"> 637 </span><span class="subxTest">test-convert-function-with-arg</span>: -<span id="L638" class="LineNr"> 638 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L639" class="LineNr"> 639 </span> 55/push-ebp -<span id="L640" class="LineNr"> 640 </span> 89/<- %ebp 4/r32/esp -<span id="L641" class="LineNr"> 641 </span> <span class="subxComment"># setup</span> -<span id="L642" class="LineNr"> 642 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L643" class="LineNr"> 643 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L644" class="LineNr"> 644 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L645" class="LineNr"> 645 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L646" class="LineNr"> 646 </span> <span class="subxComment">#</span> -<span id="L647" class="LineNr"> 647 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo n: int {\n"</span>) -<span id="L648" class="LineNr"> 648 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L649" class="LineNr"> 649 </span> <span class="subxComment"># convert</span> -<span id="L650" class="LineNr"> 650 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L651" class="LineNr"> 651 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L652" class="Folded"> 652 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L658" class="LineNr"> 658 </span> <span class="subxComment"># check output</span> -<span id="L659" class="LineNr"> 659 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/0"</span>) -<span id="L660" class="LineNr"> 660 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg/1"</span>) -<span id="L661" class="LineNr"> 661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/2"</span>) -<span id="L662" class="LineNr"> 662 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/3"</span>) -<span id="L663" class="LineNr"> 663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-arg/4"</span>) -<span id="L664" class="LineNr"> 664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/5"</span>) -<span id="L665" class="LineNr"> 665 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/6"</span>) -<span id="L666" class="LineNr"> 666 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/7"</span>) -<span id="L667" class="LineNr"> 667 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L668" class="LineNr"> 668 </span> 89/<- %esp 5/r32/ebp -<span id="L669" class="LineNr"> 669 </span> 5d/pop-to-ebp -<span id="L670" class="LineNr"> 670 </span> c3/return -<span id="L671" class="LineNr"> 671 </span> -<span id="L672" class="LineNr"> 672 </span><span class="subxTest">test-function-with-redefined-name</span>: -<span id="L673" class="LineNr"> 673 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L674" class="LineNr"> 674 </span> 55/push-ebp -<span id="L675" class="LineNr"> 675 </span> 89/<- %ebp 4/r32/esp -<span id="L676" class="LineNr"> 676 </span> <span class="subxComment"># setup</span> -<span id="L677" class="LineNr"> 677 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L678" class="LineNr"> 678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L679" class="LineNr"> 679 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L680" class="LineNr"> 680 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L681" class="LineNr"> 681 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L682" class="LineNr"> 682 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L683" class="LineNr"> 683 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L684" class="LineNr"> 684 </span> 68/push 0/imm32 -<span id="L685" class="LineNr"> 685 </span> 68/push 0/imm32 -<span id="L686" class="LineNr"> 686 </span> 89/<- %edx 4/r32/esp -<span id="L687" class="LineNr"> 687 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L688" class="LineNr"> 688 </span> <span class="subxComment">#</span> -<span id="L689" class="LineNr"> 689 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L690" class="LineNr"> 690 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L691" class="LineNr"> 691 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L692" class="LineNr"> 692 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L693" class="LineNr"> 693 </span> <span class="subxComment"># convert</span> -<span id="L694" class="LineNr"> 694 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L695" class="LineNr"> 695 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L696" class="LineNr"> 696 </span> <span class="subxComment"># restore ed</span> -<span id="L697" class="LineNr"> 697 </span> 89/<- %edx 4/r32/esp -<span id="L698" class="LineNr"> 698 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L699" class="LineNr"> 699 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L700" class="Folded"> 700 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L706" class="LineNr"> 706 </span> <span class="subxComment"># check output</span> -<span id="L707" class="LineNr"> 707 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L672'>test-function-with-redefined-name</a>: output should be empty"</span>) -<span id="L708" class="LineNr"> 708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L672'>test-function-with-redefined-name</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L709" class="LineNr"> 709 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L710" class="LineNr"> 710 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L672'>test-function-with-redefined-name</a>: exit status"</span>) -<span id="L711" class="LineNr"> 711 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L712" class="LineNr"> 712 </span> 81 0/subop/add %esp 8/imm32 -<span id="L713" class="LineNr"> 713 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L714" class="LineNr"> 714 </span> 5d/pop-to-ebp -<span id="L715" class="LineNr"> 715 </span> c3/return -<span id="L716" class="LineNr"> 716 </span> -<span id="L717" class="LineNr"> 717 </span><span class="subxTest">test-function-with-redefined-name-2</span>: -<span id="L718" class="LineNr"> 718 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L719" class="LineNr"> 719 </span> 55/push-ebp -<span id="L720" class="LineNr"> 720 </span> 89/<- %ebp 4/r32/esp -<span id="L721" class="LineNr"> 721 </span> <span class="subxComment"># setup</span> -<span id="L722" class="LineNr"> 722 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L723" class="LineNr"> 723 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L724" class="LineNr"> 724 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L725" class="LineNr"> 725 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L726" class="LineNr"> 726 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L727" class="LineNr"> 727 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L728" class="LineNr"> 728 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L729" class="LineNr"> 729 </span> 68/push 0/imm32 -<span id="L730" class="LineNr"> 730 </span> 68/push 0/imm32 -<span id="L731" class="LineNr"> 731 </span> 89/<- %edx 4/r32/esp -<span id="L732" class="LineNr"> 732 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L733" class="LineNr"> 733 </span> <span class="subxComment">#</span> -<span id="L734" class="LineNr"> 734 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L735" class="LineNr"> 735 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L736" class="LineNr"> 736 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig foo\n"</span>) -<span id="L737" class="LineNr"> 737 </span> <span class="subxComment"># convert</span> -<span id="L738" class="LineNr"> 738 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L739" class="LineNr"> 739 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L740" class="LineNr"> 740 </span> <span class="subxComment"># restore ed</span> -<span id="L741" class="LineNr"> 741 </span> 89/<- %edx 4/r32/esp -<span id="L742" class="LineNr"> 742 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L743" class="LineNr"> 743 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L744" class="Folded"> 744 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L750" class="LineNr"> 750 </span> <span class="subxComment"># check output</span> -<span id="L751" class="LineNr"> 751 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L717'>test-function-with-redefined-name-2</a>: output should be empty"</span>) -<span id="L752" class="LineNr"> 752 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L717'>test-function-with-redefined-name-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L753" class="LineNr"> 753 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L754" class="LineNr"> 754 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L717'>test-function-with-redefined-name-2</a>: exit status"</span>) -<span id="L755" class="LineNr"> 755 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L756" class="LineNr"> 756 </span> 81 0/subop/add %esp 8/imm32 -<span id="L757" class="LineNr"> 757 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L758" class="LineNr"> 758 </span> 5d/pop-to-ebp -<span id="L759" class="LineNr"> 759 </span> c3/return -<span id="L760" class="LineNr"> 760 </span> -<span id="L761" class="LineNr"> 761 </span><span class="subxTest">test-function-with-redefined-name-3</span>: -<span id="L762" class="LineNr"> 762 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L763" class="LineNr"> 763 </span> 55/push-ebp -<span id="L764" class="LineNr"> 764 </span> 89/<- %ebp 4/r32/esp -<span id="L765" class="LineNr"> 765 </span> <span class="subxComment"># setup</span> -<span id="L766" class="LineNr"> 766 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L767" class="LineNr"> 767 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L768" class="LineNr"> 768 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L769" class="LineNr"> 769 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L770" class="LineNr"> 770 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L771" class="LineNr"> 771 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L772" class="LineNr"> 772 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L773" class="LineNr"> 773 </span> 68/push 0/imm32 -<span id="L774" class="LineNr"> 774 </span> 68/push 0/imm32 -<span id="L775" class="LineNr"> 775 </span> 89/<- %edx 4/r32/esp -<span id="L776" class="LineNr"> 776 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L777" class="LineNr"> 777 </span> <span class="subxComment">#</span> -<span id="L778" class="LineNr"> 778 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig foo\n"</span>) -<span id="L779" class="LineNr"> 779 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L780" class="LineNr"> 780 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L781" class="LineNr"> 781 </span> <span class="subxComment"># convert</span> -<span id="L782" class="LineNr"> 782 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L784" class="LineNr"> 784 </span> <span class="subxComment"># restore ed</span> -<span id="L785" class="LineNr"> 785 </span> 89/<- %edx 4/r32/esp -<span id="L786" class="LineNr"> 786 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L787" class="LineNr"> 787 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L788" class="Folded"> 788 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L794" class="LineNr"> 794 </span> <span class="subxComment"># check output</span> -<span id="L795" class="LineNr"> 795 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L761'>test-function-with-redefined-name-3</a>: output should be empty"</span>) -<span id="L796" class="LineNr"> 796 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L761'>test-function-with-redefined-name-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L797" class="LineNr"> 797 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L798" class="LineNr"> 798 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L761'>test-function-with-redefined-name-3</a>: exit status"</span>) -<span id="L799" class="LineNr"> 799 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L800" class="LineNr"> 800 </span> 81 0/subop/add %esp 8/imm32 -<span id="L801" class="LineNr"> 801 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L802" class="LineNr"> 802 </span> 5d/pop-to-ebp -<span id="L803" class="LineNr"> 803 </span> c3/return -<span id="L804" class="LineNr"> 804 </span> -<span id="L805" class="LineNr"> 805 </span><span class="subxTest">test-function-with-inout-in-register</span>: -<span id="L806" class="LineNr"> 806 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L807" class="LineNr"> 807 </span> 55/push-ebp -<span id="L808" class="LineNr"> 808 </span> 89/<- %ebp 4/r32/esp -<span id="L809" class="LineNr"> 809 </span> <span class="subxComment"># setup</span> -<span id="L810" class="LineNr"> 810 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L811" class="LineNr"> 811 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L812" class="LineNr"> 812 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L813" class="LineNr"> 813 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L814" class="LineNr"> 814 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L815" class="LineNr"> 815 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L816" class="LineNr"> 816 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L817" class="LineNr"> 817 </span> 68/push 0/imm32 -<span id="L818" class="LineNr"> 818 </span> 68/push 0/imm32 -<span id="L819" class="LineNr"> 819 </span> 89/<- %edx 4/r32/esp -<span id="L820" class="LineNr"> 820 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L821" class="LineNr"> 821 </span> <span class="subxComment">#</span> -<span id="L822" class="LineNr"> 822 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x/eax: int {\n"</span>) -<span id="L823" class="LineNr"> 823 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L824" class="LineNr"> 824 </span> <span class="subxComment"># convert</span> -<span id="L825" class="LineNr"> 825 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L826" class="LineNr"> 826 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L827" class="LineNr"> 827 </span> <span class="subxComment"># restore ed</span> -<span id="L828" class="LineNr"> 828 </span> 89/<- %edx 4/r32/esp -<span id="L829" class="LineNr"> 829 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L830" class="LineNr"> 830 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L831" class="Folded"> 831 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L837" class="LineNr"> 837 </span> <span class="subxComment"># check output</span> -<span id="L838" class="LineNr"> 838 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L805'>test-function-with-inout-in-register</a>: output should be empty"</span>) -<span id="L839" class="LineNr"> 839 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: function inout 'x' cannot be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L805'>test-function-with-inout-in-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L840" class="LineNr"> 840 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L841" class="LineNr"> 841 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L805'>test-function-with-inout-in-register</a>: exit status"</span>) -<span id="L842" class="LineNr"> 842 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L843" class="LineNr"> 843 </span> 81 0/subop/add %esp 8/imm32 -<span id="L844" class="LineNr"> 844 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L845" class="LineNr"> 845 </span> 5d/pop-to-ebp -<span id="L846" class="LineNr"> 846 </span> c3/return -<span id="L847" class="LineNr"> 847 </span> -<span id="L848" class="LineNr"> 848 </span><span class="subxTest">test-function-with-addr-output</span>: -<span id="L849" class="LineNr"> 849 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L850" class="LineNr"> 850 </span> 55/push-ebp -<span id="L851" class="LineNr"> 851 </span> 89/<- %ebp 4/r32/esp -<span id="L852" class="LineNr"> 852 </span> <span class="subxComment"># setup</span> -<span id="L853" class="LineNr"> 853 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L854" class="LineNr"> 854 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L855" class="LineNr"> 855 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L856" class="LineNr"> 856 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L857" class="LineNr"> 857 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L858" class="LineNr"> 858 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L859" class="LineNr"> 859 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L860" class="LineNr"> 860 </span> 68/push 0/imm32 -<span id="L861" class="LineNr"> 861 </span> 68/push 0/imm32 -<span id="L862" class="LineNr"> 862 </span> 89/<- %edx 4/r32/esp -<span id="L863" class="LineNr"> 863 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L864" class="LineNr"> 864 </span> <span class="subxComment">#</span> -<span id="L865" class="LineNr"> 865 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: (addr int) {\n"</span>) -<span id="L866" class="LineNr"> 866 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L867" class="LineNr"> 867 </span> <span class="subxComment"># convert</span> -<span id="L868" class="LineNr"> 868 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L869" class="LineNr"> 869 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L870" class="LineNr"> 870 </span> <span class="subxComment"># restore ed</span> -<span id="L871" class="LineNr"> 871 </span> 89/<- %edx 4/r32/esp -<span id="L872" class="LineNr"> 872 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L873" class="LineNr"> 873 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L874" class="Folded"> 874 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L880" class="LineNr"> 880 </span> <span class="subxComment"># check output</span> -<span id="L881" class="LineNr"> 881 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L848'>test-function-with-addr-output</a>: output should be empty"</span>) -<span id="L882" class="LineNr"> 882 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: output cannot have an addr type; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L848'>test-function-with-addr-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L883" class="LineNr"> 883 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L884" class="LineNr"> 884 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L848'>test-function-with-addr-output</a>: exit status"</span>) -<span id="L885" class="LineNr"> 885 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L886" class="LineNr"> 886 </span> 81 0/subop/add %esp 8/imm32 -<span id="L887" class="LineNr"> 887 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L888" class="LineNr"> 888 </span> 5d/pop-to-ebp -<span id="L889" class="LineNr"> 889 </span> c3/return -<span id="L890" class="LineNr"> 890 </span> -<span id="L891" class="LineNr"> 891 </span><span class="subxTest">test-function-with-addr-inout</span>: -<span id="L892" class="LineNr"> 892 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L893" class="LineNr"> 893 </span> 55/push-ebp -<span id="L894" class="LineNr"> 894 </span> 89/<- %ebp 4/r32/esp -<span id="L895" class="LineNr"> 895 </span> <span class="subxComment"># setup</span> -<span id="L896" class="LineNr"> 896 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L897" class="LineNr"> 897 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L898" class="LineNr"> 898 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L899" class="LineNr"> 899 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L900" class="LineNr"> 900 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L901" class="LineNr"> 901 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L902" class="LineNr"> 902 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L903" class="LineNr"> 903 </span> 68/push 0/imm32 -<span id="L904" class="LineNr"> 904 </span> 68/push 0/imm32 -<span id="L905" class="LineNr"> 905 </span> 89/<- %edx 4/r32/esp -<span id="L906" class="LineNr"> 906 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L907" class="LineNr"> 907 </span> <span class="subxComment">#</span> -<span id="L908" class="LineNr"> 908 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr addr int) {\n"</span>) -<span id="L909" class="LineNr"> 909 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L910" class="LineNr"> 910 </span> <span class="subxComment"># convert</span> -<span id="L911" class="LineNr"> 911 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L912" class="LineNr"> 912 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># restore ed</span> -<span id="L914" class="LineNr"> 914 </span> 89/<- %edx 4/r32/esp -<span id="L915" class="LineNr"> 915 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L916" class="LineNr"> 916 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L917" class="Folded"> 917 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># check output</span> -<span id="L924" class="LineNr"> 924 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L891'>test-function-with-addr-inout</a>: output should be empty"</span>) -<span id="L925" class="LineNr"> 925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L891'>test-function-with-addr-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L926" class="LineNr"> 926 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L927" class="LineNr"> 927 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L891'>test-function-with-addr-inout</a>: exit status"</span>) -<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L929" class="LineNr"> 929 </span> 81 0/subop/add %esp 8/imm32 -<span id="L930" class="LineNr"> 930 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L931" class="LineNr"> 931 </span> 5d/pop-to-ebp -<span id="L932" class="LineNr"> 932 </span> c3/return -<span id="L933" class="LineNr"> 933 </span> -<span id="L934" class="LineNr"> 934 </span><span class="subxTest">test-function-with-addr-inout-2</span>: -<span id="L935" class="LineNr"> 935 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L936" class="LineNr"> 936 </span> 55/push-ebp -<span id="L937" class="LineNr"> 937 </span> 89/<- %ebp 4/r32/esp -<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># setup</span> -<span id="L939" class="LineNr"> 939 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L940" class="LineNr"> 940 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L941" class="LineNr"> 941 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L942" class="LineNr"> 942 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L943" class="LineNr"> 943 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L944" class="LineNr"> 944 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L945" class="LineNr"> 945 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L946" class="LineNr"> 946 </span> 68/push 0/imm32 -<span id="L947" class="LineNr"> 947 </span> 68/push 0/imm32 -<span id="L948" class="LineNr"> 948 </span> 89/<- %edx 4/r32/esp -<span id="L949" class="LineNr"> 949 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L950" class="LineNr"> 950 </span> <span class="subxComment">#</span> -<span id="L951" class="LineNr"> 951 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array addr int) {\n"</span>) -<span id="L952" class="LineNr"> 952 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L953" class="LineNr"> 953 </span> <span class="subxComment"># convert</span> -<span id="L954" class="LineNr"> 954 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L956" class="LineNr"> 956 </span> <span class="subxComment"># restore ed</span> -<span id="L957" class="LineNr"> 957 </span> 89/<- %edx 4/r32/esp -<span id="L958" class="LineNr"> 958 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L959" class="LineNr"> 959 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L960" class="Folded"> 960 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># check output</span> -<span id="L967" class="LineNr"> 967 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L934'>test-function-with-addr-inout-2</a>: output should be empty"</span>) -<span id="L968" class="LineNr"> 968 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L934'>test-function-with-addr-inout-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L969" class="LineNr"> 969 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L970" class="LineNr"> 970 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L934'>test-function-with-addr-inout-2</a>: exit status"</span>) -<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L972" class="LineNr"> 972 </span> 81 0/subop/add %esp 8/imm32 -<span id="L973" class="LineNr"> 973 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L974" class="LineNr"> 974 </span> 5d/pop-to-ebp -<span id="L975" class="LineNr"> 975 </span> c3/return -<span id="L976" class="LineNr"> 976 </span> -<span id="L977" class="LineNr"> 977 </span><span class="subxTest">test-function-with-addr-inout-3</span>: -<span id="L978" class="LineNr"> 978 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L979" class="LineNr"> 979 </span> 55/push-ebp -<span id="L980" class="LineNr"> 980 </span> 89/<- %ebp 4/r32/esp -<span id="L981" class="LineNr"> 981 </span> <span class="subxComment"># setup</span> -<span id="L982" class="LineNr"> 982 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L983" class="LineNr"> 983 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L984" class="LineNr"> 984 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L985" class="LineNr"> 985 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L986" class="LineNr"> 986 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L987" class="LineNr"> 987 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L988" class="LineNr"> 988 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L989" class="LineNr"> 989 </span> 68/push 0/imm32 -<span id="L990" class="LineNr"> 990 </span> 68/push 0/imm32 -<span id="L991" class="LineNr"> 991 </span> 89/<- %edx 4/r32/esp -<span id="L992" class="LineNr"> 992 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L993" class="LineNr"> 993 </span> <span class="subxComment">#</span> -<span id="L994" class="LineNr"> 994 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array (addr int) 3) {\n"</span>) -<span id="L995" class="LineNr"> 995 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># convert</span> -<span id="L997" class="LineNr"> 997 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># restore ed</span> -<span id="L1000" class="LineNr"> 1000 </span> 89/<- %edx 4/r32/esp -<span id="L1001" class="LineNr"> 1001 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1002" class="LineNr"> 1002 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1003" class="Folded"> 1003 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1009" class="LineNr"> 1009 </span> <span class="subxComment"># check output</span> -<span id="L1010" class="LineNr"> 1010 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L977'>test-function-with-addr-inout-3</a>: output should be empty"</span>) -<span id="L1011" class="LineNr"> 1011 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L977'>test-function-with-addr-inout-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1012" class="LineNr"> 1012 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1013" class="LineNr"> 1013 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L977'>test-function-with-addr-inout-3</a>: exit status"</span>) -<span id="L1014" class="LineNr"> 1014 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1015" class="LineNr"> 1015 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1016" class="LineNr"> 1016 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1017" class="LineNr"> 1017 </span> 5d/pop-to-ebp -<span id="L1018" class="LineNr"> 1018 </span> c3/return -<span id="L1019" class="LineNr"> 1019 </span> -<span id="L1020" class="LineNr"> 1020 </span><span class="subxTest">test-function-with-addr-inout-4</span>: -<span id="L1021" class="LineNr"> 1021 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1022" class="LineNr"> 1022 </span> 55/push-ebp -<span id="L1023" class="LineNr"> 1023 </span> 89/<- %ebp 4/r32/esp -<span id="L1024" class="LineNr"> 1024 </span> <span class="subxComment"># setup</span> -<span id="L1025" class="LineNr"> 1025 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1026" class="LineNr"> 1026 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1027" class="LineNr"> 1027 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1028" class="LineNr"> 1028 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1029" class="LineNr"> 1029 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1030" class="LineNr"> 1030 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1031" class="LineNr"> 1031 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1032" class="LineNr"> 1032 </span> 68/push 0/imm32 -<span id="L1033" class="LineNr"> 1033 </span> 68/push 0/imm32 -<span id="L1034" class="LineNr"> 1034 </span> 89/<- %edx 4/r32/esp -<span id="L1035" class="LineNr"> 1035 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1036" class="LineNr"> 1036 </span> <span class="subxComment">#</span> -<span id="L1037" class="LineNr"> 1037 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (array (addr int) 3) {\n"</span>) -<span id="L1038" class="LineNr"> 1038 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1039" class="LineNr"> 1039 </span> <span class="subxComment"># convert</span> -<span id="L1040" class="LineNr"> 1040 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1041" class="LineNr"> 1041 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1042" class="LineNr"> 1042 </span> <span class="subxComment"># restore ed</span> -<span id="L1043" class="LineNr"> 1043 </span> 89/<- %edx 4/r32/esp -<span id="L1044" class="LineNr"> 1044 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1045" class="LineNr"> 1045 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1046" class="Folded"> 1046 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1052" class="LineNr"> 1052 </span> <span class="subxComment"># check output</span> -<span id="L1053" class="LineNr"> 1053 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1020'>test-function-with-addr-inout-4</a>: output should be empty"</span>) -<span id="L1054" class="LineNr"> 1054 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L1020'>test-function-with-addr-inout-4</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1055" class="LineNr"> 1055 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1056" class="LineNr"> 1056 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1020'>test-function-with-addr-inout-4</a>: exit status"</span>) -<span id="L1057" class="LineNr"> 1057 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1058" class="LineNr"> 1058 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1059" class="LineNr"> 1059 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1060" class="LineNr"> 1060 </span> 5d/pop-to-ebp -<span id="L1061" class="LineNr"> 1061 </span> c3/return -<span id="L1062" class="LineNr"> 1062 </span> -<span id="L1063" class="LineNr"> 1063 </span><span class="subxComment"># 'main' is an exception</span> -<span id="L1064" class="LineNr"> 1064 </span><span class="subxTest">test-function-main-with-addr-inout</span>: -<span id="L1065" class="LineNr"> 1065 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1066" class="LineNr"> 1066 </span> 55/push-ebp -<span id="L1067" class="LineNr"> 1067 </span> 89/<- %ebp 4/r32/esp -<span id="L1068" class="LineNr"> 1068 </span> <span class="subxComment"># setup</span> -<span id="L1069" class="LineNr"> 1069 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1070" class="LineNr"> 1070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1071" class="LineNr"> 1071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1072" class="LineNr"> 1072 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1073" class="LineNr"> 1073 </span> <span class="subxComment">#</span> -<span id="L1074" class="LineNr"> 1074 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main a: (addr addr int) {\n"</span>) -<span id="L1075" class="LineNr"> 1075 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1076" class="LineNr"> 1076 </span> <span class="subxComment"># convert</span> -<span id="L1077" class="LineNr"> 1077 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1078" class="LineNr"> 1078 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1079" class="LineNr"> 1079 </span> <span class="subxComment"># no errors</span> -<span id="L1080" class="LineNr"> 1080 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1081" class="LineNr"> 1081 </span> 89/<- %esp 5/r32/ebp -<span id="L1082" class="LineNr"> 1082 </span> 5d/pop-to-ebp -<span id="L1083" class="LineNr"> 1083 </span> c3/return -<span id="L1084" class="LineNr"> 1084 </span> -<span id="L1085" class="LineNr"> 1085 </span><span class="subxComment"># 'lookup' is an exception, but only in signatures</span> -<span id="L1086" class="LineNr"> 1086 </span><span class="subxTest">test-signature-lookup-with-addr-inout</span>: -<span id="L1087" class="LineNr"> 1087 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1088" class="LineNr"> 1088 </span> 55/push-ebp -<span id="L1089" class="LineNr"> 1089 </span> 89/<- %ebp 4/r32/esp -<span id="L1090" class="LineNr"> 1090 </span> <span class="subxComment"># setup</span> -<span id="L1091" class="LineNr"> 1091 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1092" class="LineNr"> 1092 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1093" class="LineNr"> 1093 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1094" class="LineNr"> 1094 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1095" class="LineNr"> 1095 </span> <span class="subxComment">#</span> -<span id="L1096" class="LineNr"> 1096 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig <a href='../120allocate.subx.html#L256'>lookup</a> h: (handle _T) -> _/eax: (addr _T)\n"</span>) -<span id="L1097" class="LineNr"> 1097 </span> <span class="subxComment"># convert</span> -<span id="L1098" class="LineNr"> 1098 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1099" class="LineNr"> 1099 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1100" class="LineNr"> 1100 </span> <span class="subxComment"># no errors</span> -<span id="L1101" class="LineNr"> 1101 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1102" class="LineNr"> 1102 </span> 89/<- %esp 5/r32/ebp -<span id="L1103" class="LineNr"> 1103 </span> 5d/pop-to-ebp -<span id="L1104" class="LineNr"> 1104 </span> c3/return -<span id="L1105" class="LineNr"> 1105 </span> -<span id="L1106" class="LineNr"> 1106 </span><span class="subxTest">test-convert-function-with-arg-and-body</span>: -<span id="L1107" class="LineNr"> 1107 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1108" class="LineNr"> 1108 </span> 55/push-ebp -<span id="L1109" class="LineNr"> 1109 </span> 89/<- %ebp 4/r32/esp -<span id="L1110" class="LineNr"> 1110 </span> <span class="subxComment"># setup</span> -<span id="L1111" class="LineNr"> 1111 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1112" class="LineNr"> 1112 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1113" class="LineNr"> 1113 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1114" class="LineNr"> 1114 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1115" class="LineNr"> 1115 </span> <span class="subxComment">#</span> -<span id="L1116" class="LineNr"> 1116 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo n: int {\n"</span>) -<span id="L1117" class="LineNr"> 1117 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment n\n"</span>) -<span id="L1118" class="LineNr"> 1118 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1119" class="LineNr"> 1119 </span> <span class="subxComment"># convert</span> -<span id="L1120" class="LineNr"> 1120 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1121" class="LineNr"> 1121 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1122" class="Folded"> 1122 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1128" class="LineNr"> 1128 </span> <span class="subxComment"># check output</span> -<span id="L1129" class="LineNr"> 1129 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/0"</span>) -<span id="L1130" class="LineNr"> 1130 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg-and-body/1"</span>) -<span id="L1131" class="LineNr"> 1131 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/2"</span>) -<span id="L1132" class="LineNr"> 1132 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/3"</span>) -<span id="L1133" class="LineNr"> 1133 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/4"</span>) -<span id="L1134" class="LineNr"> 1134 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/5"</span>) -<span id="L1135" class="LineNr"> 1135 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/6"</span>) -<span id="L1136" class="LineNr"> 1136 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/7"</span>) -<span id="L1137" class="LineNr"> 1137 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/8"</span>) -<span id="L1138" class="LineNr"> 1138 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-arg-and-body/9"</span>) -<span id="L1139" class="LineNr"> 1139 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/10"</span>) -<span id="L1140" class="LineNr"> 1140 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/11"</span>) -<span id="L1141" class="LineNr"> 1141 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/12"</span>) -<span id="L1142" class="LineNr"> 1142 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1143" class="LineNr"> 1143 </span> 89/<- %esp 5/r32/ebp -<span id="L1144" class="LineNr"> 1144 </span> 5d/pop-to-ebp -<span id="L1145" class="LineNr"> 1145 </span> c3/return -<span id="L1146" class="LineNr"> 1146 </span> -<span id="L1147" class="LineNr"> 1147 </span><span class="subxTest">test-convert-function-distinguishes-args</span>: -<span id="L1148" class="LineNr"> 1148 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1149" class="LineNr"> 1149 </span> 55/push-ebp -<span id="L1150" class="LineNr"> 1150 </span> 89/<- %ebp 4/r32/esp -<span id="L1151" class="LineNr"> 1151 </span> <span class="subxComment"># setup</span> -<span id="L1152" class="LineNr"> 1152 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1153" class="LineNr"> 1153 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1154" class="LineNr"> 1154 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1155" class="LineNr"> 1155 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1156" class="LineNr"> 1156 </span> <span class="subxComment">#</span> -<span id="L1157" class="LineNr"> 1157 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int {\n"</span>) -<span id="L1158" class="LineNr"> 1158 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment b\n"</span>) -<span id="L1159" class="LineNr"> 1159 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1160" class="LineNr"> 1160 </span> <span class="subxComment"># convert</span> -<span id="L1161" class="LineNr"> 1161 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1162" class="LineNr"> 1162 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1163" class="Folded"> 1163 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1169" class="LineNr"> 1169 </span> <span class="subxComment"># check output</span> -<span id="L1170" class="LineNr"> 1170 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/0"</span>) -<span id="L1171" class="LineNr"> 1171 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-distinguishes-args/1"</span>) -<span id="L1172" class="LineNr"> 1172 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/2"</span>) -<span id="L1173" class="LineNr"> 1173 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/3"</span>) -<span id="L1174" class="LineNr"> 1174 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/4"</span>) -<span id="L1175" class="LineNr"> 1175 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/5"</span>) -<span id="L1176" class="LineNr"> 1176 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/6"</span>) -<span id="L1177" class="LineNr"> 1177 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/7"</span>) -<span id="L1178" class="LineNr"> 1178 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/8"</span>) -<span id="L1179" class="LineNr"> 1179 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-distinguishes-args/9"</span>) -<span id="L1180" class="LineNr"> 1180 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/10"</span>) -<span id="L1181" class="LineNr"> 1181 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/11"</span>) -<span id="L1182" class="LineNr"> 1182 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/12"</span>) -<span id="L1183" class="LineNr"> 1183 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1184" class="LineNr"> 1184 </span> 89/<- %esp 5/r32/ebp -<span id="L1185" class="LineNr"> 1185 </span> 5d/pop-to-ebp -<span id="L1186" class="LineNr"> 1186 </span> c3/return -<span id="L1187" class="LineNr"> 1187 </span> -<span id="L1188" class="LineNr"> 1188 </span><span class="subxTest">test-convert-function-with-return-literal</span>: -<span id="L1189" class="LineNr"> 1189 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1190" class="LineNr"> 1190 </span> 55/push-ebp -<span id="L1191" class="LineNr"> 1191 </span> 89/<- %ebp 4/r32/esp -<span id="L1192" class="LineNr"> 1192 </span> <span class="subxComment"># setup</span> -<span id="L1193" class="LineNr"> 1193 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1194" class="LineNr"> 1194 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1195" class="LineNr"> 1195 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1196" class="LineNr"> 1196 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1197" class="LineNr"> 1197 </span> <span class="subxComment">#</span> -<span id="L1198" class="LineNr"> 1198 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1199" class="LineNr"> 1199 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) -<span id="L1200" class="LineNr"> 1200 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1201" class="LineNr"> 1201 </span> <span class="subxComment"># convert</span> -<span id="L1202" class="LineNr"> 1202 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1203" class="LineNr"> 1203 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1204" class="Folded"> 1204 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1210" class="LineNr"> 1210 </span> <span class="subxComment"># check output</span> -<span id="L1211" class="LineNr"> 1211 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/0"</span>) -<span id="L1212" class="LineNr"> 1212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-literal/1"</span>) -<span id="L1213" class="LineNr"> 1213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/2"</span>) -<span id="L1214" class="LineNr"> 1214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/3"</span>) -<span id="L1215" class="LineNr"> 1215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/4"</span>) -<span id="L1216" class="LineNr"> 1216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/5"</span>) -<span id="L1217" class="LineNr"> 1217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/6"</span>) -<span id="L1218" class="LineNr"> 1218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/7"</span>) -<span id="L1219" class="LineNr"> 1219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/8"</span>) -<span id="L1220" class="LineNr"> 1220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/9"</span>) -<span id="L1221" class="LineNr"> 1221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-literal/10"</span>) -<span id="L1222" class="LineNr"> 1222 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/11"</span>) -<span id="L1223" class="LineNr"> 1223 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/12"</span>) -<span id="L1224" class="LineNr"> 1224 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/13"</span>) -<span id="L1225" class="LineNr"> 1225 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1226" class="LineNr"> 1226 </span> 89/<- %esp 5/r32/ebp -<span id="L1227" class="LineNr"> 1227 </span> 5d/pop-to-ebp -<span id="L1228" class="LineNr"> 1228 </span> c3/return -<span id="L1229" class="LineNr"> 1229 </span> -<span id="L1230" class="LineNr"> 1230 </span><span class="subxTest">test-convert-function-with-return</span>: -<span id="L1231" class="LineNr"> 1231 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1232" class="LineNr"> 1232 </span> 55/push-ebp -<span id="L1233" class="LineNr"> 1233 </span> 89/<- %ebp 4/r32/esp -<span id="L1234" class="LineNr"> 1234 </span> <span class="subxComment"># setup</span> -<span id="L1235" class="LineNr"> 1235 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1236" class="LineNr"> 1236 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1237" class="LineNr"> 1237 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1238" class="LineNr"> 1238 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1239" class="LineNr"> 1239 </span> <span class="subxComment">#</span> -<span id="L1240" class="LineNr"> 1240 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1241" class="LineNr"> 1241 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L1242" class="LineNr"> 1242 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L1243" class="LineNr"> 1243 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1244" class="LineNr"> 1244 </span> <span class="subxComment"># convert</span> -<span id="L1245" class="LineNr"> 1245 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1246" class="LineNr"> 1246 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1247" class="Folded"> 1247 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1253" class="LineNr"> 1253 </span> <span class="subxComment"># check output</span> -<span id="L1254" class="LineNr"> 1254 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/0"</span>) -<span id="L1255" class="LineNr"> 1255 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return/1"</span>) -<span id="L1256" class="LineNr"> 1256 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/2"</span>) -<span id="L1257" class="LineNr"> 1257 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/3"</span>) -<span id="L1258" class="LineNr"> 1258 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/4"</span>) -<span id="L1259" class="LineNr"> 1259 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/5"</span>) -<span id="L1260" class="LineNr"> 1260 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/6"</span>) <span class="subxComment"># y</span> -<span id="L1261" class="LineNr"> 1261 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/7"</span>) -<span id="L1262" class="LineNr"> 1262 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/8"</span>) -<span id="L1263" class="LineNr"> 1263 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/9"</span>) -<span id="L1264" class="LineNr"> 1264 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/10"</span>) -<span id="L1265" class="LineNr"> 1265 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/11"</span>) -<span id="L1266" class="LineNr"> 1266 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return/12"</span>) -<span id="L1267" class="LineNr"> 1267 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/13"</span>) -<span id="L1268" class="LineNr"> 1268 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/14"</span>) -<span id="L1269" class="LineNr"> 1269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/15"</span>) -<span id="L1270" class="LineNr"> 1270 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1271" class="LineNr"> 1271 </span> 89/<- %esp 5/r32/ebp -<span id="L1272" class="LineNr"> 1272 </span> 5d/pop-to-ebp -<span id="L1273" class="LineNr"> 1273 </span> c3/return -<span id="L1274" class="LineNr"> 1274 </span> -<span id="L1275" class="LineNr"> 1275 </span><span class="subxTest">test-convert-function-with-return-float</span>: -<span id="L1276" class="LineNr"> 1276 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1277" class="LineNr"> 1277 </span> 55/push-ebp -<span id="L1278" class="LineNr"> 1278 </span> 89/<- %ebp 4/r32/esp -<span id="L1279" class="LineNr"> 1279 </span> <span class="subxComment"># setup</span> -<span id="L1280" class="LineNr"> 1280 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1281" class="LineNr"> 1281 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1282" class="LineNr"> 1282 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1283" class="LineNr"> 1283 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1284" class="LineNr"> 1284 </span> <span class="subxComment">#</span> -<span id="L1285" class="LineNr"> 1285 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm0: float {\n"</span>) -<span id="L1286" class="LineNr"> 1286 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: float\n"</span>) -<span id="L1287" class="LineNr"> 1287 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L1288" class="LineNr"> 1288 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1289" class="LineNr"> 1289 </span> <span class="subxComment"># convert</span> -<span id="L1290" class="LineNr"> 1290 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1291" class="LineNr"> 1291 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1292" class="Folded"> 1292 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1298" class="LineNr"> 1298 </span> <span class="subxComment"># check output</span> -<span id="L1299" class="LineNr"> 1299 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/0"</span>) -<span id="L1300" class="LineNr"> 1300 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return/1"</span>) -<span id="L1301" class="LineNr"> 1301 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/2"</span>) -<span id="L1302" class="LineNr"> 1302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/3"</span>) -<span id="L1303" class="LineNr"> 1303 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/4"</span>) -<span id="L1304" class="LineNr"> 1304 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/5"</span>) -<span id="L1305" class="LineNr"> 1305 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/6"</span>) <span class="subxComment"># y</span> -<span id="L1306" class="LineNr"> 1306 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *(ebp+0xfffffffc) 0x00000000/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/7"</span>) -<span id="L1307" class="LineNr"> 1307 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/8"</span>) -<span id="L1308" class="LineNr"> 1308 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/9"</span>) -<span id="L1309" class="LineNr"> 1309 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/10"</span>) -<span id="L1310" class="LineNr"> 1310 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/11"</span>) -<span id="L1311" class="LineNr"> 1311 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return/12"</span>) -<span id="L1312" class="LineNr"> 1312 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/13"</span>) -<span id="L1313" class="LineNr"> 1313 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/14"</span>) -<span id="L1314" class="LineNr"> 1314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/15"</span>) -<span id="L1315" class="LineNr"> 1315 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1316" class="LineNr"> 1316 </span> 89/<- %esp 5/r32/ebp -<span id="L1317" class="LineNr"> 1317 </span> 5d/pop-to-ebp -<span id="L1318" class="LineNr"> 1318 </span> c3/return -<span id="L1319" class="LineNr"> 1319 </span> -<span id="L1320" class="LineNr"> 1320 </span><span class="subxTest">test-convert-function-with-return-register</span>: -<span id="L1321" class="LineNr"> 1321 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1322" class="LineNr"> 1322 </span> 55/push-ebp -<span id="L1323" class="LineNr"> 1323 </span> 89/<- %ebp 4/r32/esp -<span id="L1324" class="LineNr"> 1324 </span> <span class="subxComment"># setup</span> -<span id="L1325" class="LineNr"> 1325 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1326" class="LineNr"> 1326 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1327" class="LineNr"> 1327 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1328" class="LineNr"> 1328 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1329" class="LineNr"> 1329 </span> <span class="subxComment">#</span> -<span id="L1330" class="LineNr"> 1330 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1331" class="LineNr"> 1331 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) -<span id="L1332" class="LineNr"> 1332 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L1333" class="LineNr"> 1333 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1334" class="LineNr"> 1334 </span> <span class="subxComment"># convert</span> -<span id="L1335" class="LineNr"> 1335 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1336" class="LineNr"> 1336 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1337" class="Folded"> 1337 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1343" class="LineNr"> 1343 </span> <span class="subxComment"># check output</span> -<span id="L1344" class="LineNr"> 1344 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/0"</span>) -<span id="L1345" class="LineNr"> 1345 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register/1"</span>) -<span id="L1346" class="LineNr"> 1346 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/2"</span>) -<span id="L1347" class="LineNr"> 1347 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/3"</span>) -<span id="L1348" class="LineNr"> 1348 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/4"</span>) -<span id="L1349" class="LineNr"> 1349 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/5"</span>) -<span id="L1350" class="LineNr"> 1350 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/6"</span>) -<span id="L1351" class="LineNr"> 1351 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/7"</span>) -<span id="L1352" class="LineNr"> 1352 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/8"</span>) -<span id="L1353" class="LineNr"> 1353 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/9"</span>) -<span id="L1354" class="LineNr"> 1354 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/10"</span>) -<span id="L1355" class="LineNr"> 1355 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/11"</span>) -<span id="L1356" class="LineNr"> 1356 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/12"</span>) -<span id="L1357" class="LineNr"> 1357 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register/13"</span>) -<span id="L1358" class="LineNr"> 1358 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/14"</span>) -<span id="L1359" class="LineNr"> 1359 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/15"</span>) -<span id="L1360" class="LineNr"> 1360 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/16"</span>) -<span id="L1361" class="LineNr"> 1361 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1362" class="LineNr"> 1362 </span> 89/<- %esp 5/r32/ebp -<span id="L1363" class="LineNr"> 1363 </span> 5d/pop-to-ebp -<span id="L1364" class="LineNr"> 1364 </span> c3/return -<span id="L1365" class="LineNr"> 1365 </span> -<span id="L1366" class="LineNr"> 1366 </span><span class="subxTest">test-function-with-output-without-register</span>: -<span id="L1367" class="LineNr"> 1367 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1368" class="LineNr"> 1368 </span> 55/push-ebp -<span id="L1369" class="LineNr"> 1369 </span> 89/<- %ebp 4/r32/esp -<span id="L1370" class="LineNr"> 1370 </span> <span class="subxComment"># setup</span> -<span id="L1371" class="LineNr"> 1371 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1372" class="LineNr"> 1372 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1373" class="LineNr"> 1373 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1374" class="LineNr"> 1374 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1375" class="LineNr"> 1375 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1376" class="LineNr"> 1376 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1377" class="LineNr"> 1377 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1378" class="LineNr"> 1378 </span> 68/push 0/imm32 -<span id="L1379" class="LineNr"> 1379 </span> 68/push 0/imm32 -<span id="L1380" class="LineNr"> 1380 </span> 89/<- %edx 4/r32/esp -<span id="L1381" class="LineNr"> 1381 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1382" class="LineNr"> 1382 </span> <span class="subxComment">#</span> -<span id="L1383" class="LineNr"> 1383 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _: int {\n"</span>) -<span id="L1384" class="LineNr"> 1384 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1385" class="LineNr"> 1385 </span> <span class="subxComment"># convert</span> -<span id="L1386" class="LineNr"> 1386 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1387" class="LineNr"> 1387 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1388" class="LineNr"> 1388 </span> <span class="subxComment"># restore ed</span> -<span id="L1389" class="LineNr"> 1389 </span> 89/<- %edx 4/r32/esp -<span id="L1390" class="LineNr"> 1390 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1391" class="LineNr"> 1391 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1392" class="Folded"> 1392 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1398" class="LineNr"> 1398 </span> <span class="subxComment"># check output</span> -<span id="L1399" class="LineNr"> 1399 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1366'>test-function-with-output-without-register</a>: output should be empty"</span>) -<span id="L1400" class="LineNr"> 1400 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: function output '_' must be in a register, in instruction 'fn foo -> _: int {"</span> <span class="Constant">"F - test-function-with-output-without-register: error message"</span>) -<span id="L1401" class="LineNr"> 1401 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1402" class="LineNr"> 1402 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1366'>test-function-with-output-without-register</a>: exit status"</span>) -<span id="L1403" class="LineNr"> 1403 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1404" class="LineNr"> 1404 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1405" class="LineNr"> 1405 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1406" class="LineNr"> 1406 </span> 5d/pop-to-ebp -<span id="L1407" class="LineNr"> 1407 </span> c3/return -<span id="L1408" class="LineNr"> 1408 </span> -<span id="L1409" class="LineNr"> 1409 </span><span class="subxTest">test-function-with-outputs-in-conflicting-registers</span>: -<span id="L1410" class="LineNr"> 1410 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1411" class="LineNr"> 1411 </span> 55/push-ebp -<span id="L1412" class="LineNr"> 1412 </span> 89/<- %ebp 4/r32/esp -<span id="L1413" class="LineNr"> 1413 </span> <span class="subxComment"># setup</span> -<span id="L1414" class="LineNr"> 1414 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1415" class="LineNr"> 1415 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1416" class="LineNr"> 1416 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1417" class="LineNr"> 1417 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1418" class="LineNr"> 1418 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1419" class="LineNr"> 1419 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1420" class="LineNr"> 1420 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1421" class="LineNr"> 1421 </span> 68/push 0/imm32 -<span id="L1422" class="LineNr"> 1422 </span> 68/push 0/imm32 -<span id="L1423" class="LineNr"> 1423 </span> 89/<- %edx 4/r32/esp -<span id="L1424" class="LineNr"> 1424 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1425" class="LineNr"> 1425 </span> <span class="subxComment">#</span> -<span id="L1426" class="LineNr"> 1426 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/eax: int {\n"</span>) -<span id="L1427" class="LineNr"> 1427 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1428" class="LineNr"> 1428 </span> <span class="subxComment"># convert</span> -<span id="L1429" class="LineNr"> 1429 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1430" class="LineNr"> 1430 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1431" class="LineNr"> 1431 </span> <span class="subxComment"># restore ed</span> -<span id="L1432" class="LineNr"> 1432 </span> 89/<- %edx 4/r32/esp -<span id="L1433" class="LineNr"> 1433 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1434" class="LineNr"> 1434 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1435" class="Folded"> 1435 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1441" class="LineNr"> 1441 </span> <span class="subxComment"># check output</span> -<span id="L1442" class="LineNr"> 1442 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1409'>test-function-with-outputs-in-conflicting-registers</a>: output should be empty"</span>) -<span id="L1443" class="LineNr"> 1443 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: outputs must be in unique registers"</span> <span class="Constant">"F - <a href='mu.subx.html#L1409'>test-function-with-outputs-in-conflicting-registers</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1444" class="LineNr"> 1444 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1445" class="LineNr"> 1445 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1409'>test-function-with-outputs-in-conflicting-registers</a>: exit status"</span>) -<span id="L1446" class="LineNr"> 1446 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1447" class="LineNr"> 1447 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1448" class="LineNr"> 1448 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1449" class="LineNr"> 1449 </span> 5d/pop-to-ebp -<span id="L1450" class="LineNr"> 1450 </span> c3/return -<span id="L1451" class="LineNr"> 1451 </span> -<span id="L1452" class="LineNr"> 1452 </span><span class="subxTest">test-function-with-named-output</span>: -<span id="L1453" class="LineNr"> 1453 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1454" class="LineNr"> 1454 </span> 55/push-ebp -<span id="L1455" class="LineNr"> 1455 </span> 89/<- %ebp 4/r32/esp -<span id="L1456" class="LineNr"> 1456 </span> <span class="subxComment"># setup</span> -<span id="L1457" class="LineNr"> 1457 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1458" class="LineNr"> 1458 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1459" class="LineNr"> 1459 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1460" class="LineNr"> 1460 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1461" class="LineNr"> 1461 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1462" class="LineNr"> 1462 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1463" class="LineNr"> 1463 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1464" class="LineNr"> 1464 </span> 68/push 0/imm32 -<span id="L1465" class="LineNr"> 1465 </span> 68/push 0/imm32 -<span id="L1466" class="LineNr"> 1466 </span> 89/<- %edx 4/r32/esp -<span id="L1467" class="LineNr"> 1467 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1468" class="LineNr"> 1468 </span> <span class="subxComment">#</span> -<span id="L1469" class="LineNr"> 1469 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> x/eax: int {\n"</span>) -<span id="L1470" class="LineNr"> 1470 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) -<span id="L1471" class="LineNr"> 1471 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1472" class="LineNr"> 1472 </span> <span class="subxComment"># convert</span> -<span id="L1473" class="LineNr"> 1473 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1474" class="LineNr"> 1474 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1475" class="LineNr"> 1475 </span> <span class="subxComment"># restore ed</span> -<span id="L1476" class="LineNr"> 1476 </span> 89/<- %edx 4/r32/esp -<span id="L1477" class="LineNr"> 1477 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1478" class="LineNr"> 1478 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1479" class="Folded"> 1479 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1485" class="LineNr"> 1485 </span> <span class="subxComment"># check output</span> -<span id="L1486" class="LineNr"> 1486 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1452'>test-function-with-named-output</a>: output should be empty"</span>) -<span id="L1487" class="LineNr"> 1487 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: function outputs cannot be named; rename 'x' in the header to '_'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1452'>test-function-with-named-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1488" class="LineNr"> 1488 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1489" class="LineNr"> 1489 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1452'>test-function-with-named-output</a>: exit status"</span>) -<span id="L1490" class="LineNr"> 1490 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1491" class="LineNr"> 1491 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1492" class="LineNr"> 1492 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1493" class="LineNr"> 1493 </span> 5d/pop-to-ebp -<span id="L1494" class="LineNr"> 1494 </span> c3/return -<span id="L1495" class="LineNr"> 1495 </span> -<span id="L1496" class="LineNr"> 1496 </span><span class="subxTest">test-return-with-wrong-type</span>: -<span id="L1497" class="LineNr"> 1497 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1498" class="LineNr"> 1498 </span> 55/push-ebp -<span id="L1499" class="LineNr"> 1499 </span> 89/<- %ebp 4/r32/esp -<span id="L1500" class="LineNr"> 1500 </span> <span class="subxComment"># setup</span> -<span id="L1501" class="LineNr"> 1501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1502" class="LineNr"> 1502 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1503" class="LineNr"> 1503 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1504" class="LineNr"> 1504 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1505" class="LineNr"> 1505 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1506" class="LineNr"> 1506 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1507" class="LineNr"> 1507 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1508" class="LineNr"> 1508 </span> 68/push 0/imm32 -<span id="L1509" class="LineNr"> 1509 </span> 68/push 0/imm32 -<span id="L1510" class="LineNr"> 1510 </span> 89/<- %edx 4/r32/esp -<span id="L1511" class="LineNr"> 1511 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1512" class="LineNr"> 1512 </span> <span class="subxComment">#</span> -<span id="L1513" class="LineNr"> 1513 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1514" class="LineNr"> 1514 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L1515" class="LineNr"> 1515 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return x\n"</span>) -<span id="L1516" class="LineNr"> 1516 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1517" class="LineNr"> 1517 </span> <span class="subxComment"># convert</span> -<span id="L1518" class="LineNr"> 1518 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1519" class="LineNr"> 1519 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1520" class="LineNr"> 1520 </span> <span class="subxComment"># restore ed</span> -<span id="L1521" class="LineNr"> 1521 </span> 89/<- %edx 4/r32/esp -<span id="L1522" class="LineNr"> 1522 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1523" class="LineNr"> 1523 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1524" class="Folded"> 1524 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1530" class="LineNr"> 1530 </span> <span class="subxComment"># check output</span> -<span id="L1531" class="LineNr"> 1531 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1496'>test-return-with-wrong-type</a>: output should be empty"</span>) -<span id="L1532" class="LineNr"> 1532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: return: 'x' has the wrong type"</span> <span class="Constant">"F - <a href='mu.subx.html#L1496'>test-return-with-wrong-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1533" class="LineNr"> 1533 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1534" class="LineNr"> 1534 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1496'>test-return-with-wrong-type</a>: exit status"</span>) -<span id="L1535" class="LineNr"> 1535 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1536" class="LineNr"> 1536 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1537" class="LineNr"> 1537 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1538" class="LineNr"> 1538 </span> 5d/pop-to-ebp -<span id="L1539" class="LineNr"> 1539 </span> c3/return -<span id="L1540" class="LineNr"> 1540 </span> -<span id="L1541" class="LineNr"> 1541 </span><span class="subxTest">test-missing-return</span>: -<span id="L1542" class="LineNr"> 1542 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1543" class="LineNr"> 1543 </span> 55/push-ebp -<span id="L1544" class="LineNr"> 1544 </span> 89/<- %ebp 4/r32/esp -<span id="L1545" class="LineNr"> 1545 </span> <span class="subxComment"># setup</span> -<span id="L1546" class="LineNr"> 1546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1547" class="LineNr"> 1547 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1548" class="LineNr"> 1548 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1549" class="LineNr"> 1549 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1550" class="LineNr"> 1550 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1551" class="LineNr"> 1551 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1552" class="LineNr"> 1552 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1553" class="LineNr"> 1553 </span> 68/push 0/imm32 -<span id="L1554" class="LineNr"> 1554 </span> 68/push 0/imm32 -<span id="L1555" class="LineNr"> 1555 </span> 89/<- %edx 4/r32/esp -<span id="L1556" class="LineNr"> 1556 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1557" class="LineNr"> 1557 </span> <span class="subxComment">#</span> -<span id="L1558" class="LineNr"> 1558 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1559" class="LineNr"> 1559 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L1560" class="LineNr"> 1560 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1561" class="LineNr"> 1561 </span> <span class="subxComment"># convert</span> -<span id="L1562" class="LineNr"> 1562 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1563" class="LineNr"> 1563 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1564" class="LineNr"> 1564 </span> <span class="subxComment"># restore ed</span> -<span id="L1565" class="LineNr"> 1565 </span> 89/<- %edx 4/r32/esp -<span id="L1566" class="LineNr"> 1566 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1567" class="LineNr"> 1567 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1568" class="Folded"> 1568 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1574" class="LineNr"> 1574 </span> <span class="subxComment"># check output</span> -<span id="L1575" class="LineNr"> 1575 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1541'>test-missing-return</a>: output should be empty"</span>) -<span id="L1576" class="LineNr"> 1576 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: final statement should be a 'return'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1541'>test-missing-return</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1577" class="LineNr"> 1577 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1578" class="LineNr"> 1578 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1541'>test-missing-return</a>: exit status"</span>) -<span id="L1579" class="LineNr"> 1579 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1580" class="LineNr"> 1580 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1581" class="LineNr"> 1581 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1582" class="LineNr"> 1582 </span> 5d/pop-to-ebp -<span id="L1583" class="LineNr"> 1583 </span> c3/return -<span id="L1584" class="LineNr"> 1584 </span> -<span id="L1585" class="LineNr"> 1585 </span><span class="subxTest">test-missing-return-2</span>: -<span id="L1586" class="LineNr"> 1586 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1587" class="LineNr"> 1587 </span> 55/push-ebp -<span id="L1588" class="LineNr"> 1588 </span> 89/<- %ebp 4/r32/esp -<span id="L1589" class="LineNr"> 1589 </span> <span class="subxComment"># setup</span> -<span id="L1590" class="LineNr"> 1590 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1591" class="LineNr"> 1591 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1592" class="LineNr"> 1592 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1593" class="LineNr"> 1593 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1594" class="LineNr"> 1594 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1595" class="LineNr"> 1595 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1596" class="LineNr"> 1596 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1597" class="LineNr"> 1597 </span> 68/push 0/imm32 -<span id="L1598" class="LineNr"> 1598 </span> 68/push 0/imm32 -<span id="L1599" class="LineNr"> 1599 </span> 89/<- %edx 4/r32/esp -<span id="L1600" class="LineNr"> 1600 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1601" class="LineNr"> 1601 </span> <span class="subxComment">#</span> -<span id="L1602" class="LineNr"> 1602 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1603" class="LineNr"> 1603 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1604" class="LineNr"> 1604 </span> <span class="subxComment"># convert</span> -<span id="L1605" class="LineNr"> 1605 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1606" class="LineNr"> 1606 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1607" class="LineNr"> 1607 </span> <span class="subxComment"># restore ed</span> -<span id="L1608" class="LineNr"> 1608 </span> 89/<- %edx 4/r32/esp -<span id="L1609" class="LineNr"> 1609 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1610" class="LineNr"> 1610 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1611" class="Folded"> 1611 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1617" class="LineNr"> 1617 </span> <span class="subxComment"># check output</span> -<span id="L1618" class="LineNr"> 1618 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1585'>test-missing-return-2</a>: output should be empty"</span>) -<span id="L1619" class="LineNr"> 1619 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: final statement should be a 'return'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1585'>test-missing-return-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1620" class="LineNr"> 1620 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1621" class="LineNr"> 1621 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1585'>test-missing-return-2</a>: exit status"</span>) -<span id="L1622" class="LineNr"> 1622 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1623" class="LineNr"> 1623 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1624" class="LineNr"> 1624 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1625" class="LineNr"> 1625 </span> 5d/pop-to-ebp -<span id="L1626" class="LineNr"> 1626 </span> c3/return -<span id="L1627" class="LineNr"> 1627 </span> -<span id="L1628" class="LineNr"> 1628 </span><span class="subxTest">test-early-exit-without-return</span>: -<span id="L1629" class="LineNr"> 1629 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1630" class="LineNr"> 1630 </span> 55/push-ebp -<span id="L1631" class="LineNr"> 1631 </span> 89/<- %ebp 4/r32/esp -<span id="L1632" class="LineNr"> 1632 </span> <span class="subxComment"># setup</span> -<span id="L1633" class="LineNr"> 1633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1634" class="LineNr"> 1634 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1635" class="LineNr"> 1635 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1636" class="LineNr"> 1636 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1637" class="LineNr"> 1637 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1638" class="LineNr"> 1638 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1639" class="LineNr"> 1639 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1640" class="LineNr"> 1640 </span> 68/push 0/imm32 -<span id="L1641" class="LineNr"> 1641 </span> 68/push 0/imm32 -<span id="L1642" class="LineNr"> 1642 </span> 89/<- %edx 4/r32/esp -<span id="L1643" class="LineNr"> 1643 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1644" class="LineNr"> 1644 </span> <span class="subxComment">#</span> -<span id="L1645" class="LineNr"> 1645 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1646" class="LineNr"> 1646 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break\n"</span>) -<span id="L1647" class="LineNr"> 1647 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) -<span id="L1648" class="LineNr"> 1648 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1649" class="LineNr"> 1649 </span> <span class="subxComment"># convert</span> -<span id="L1650" class="LineNr"> 1650 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1651" class="LineNr"> 1651 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1652" class="LineNr"> 1652 </span> <span class="subxComment"># restore ed</span> -<span id="L1653" class="LineNr"> 1653 </span> 89/<- %edx 4/r32/esp -<span id="L1654" class="LineNr"> 1654 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1655" class="LineNr"> 1655 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1656" class="Folded"> 1656 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1662" class="LineNr"> 1662 </span> <span class="subxComment"># check output</span> -<span id="L1663" class="LineNr"> 1663 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1628'>test-early-exit-without-return</a>: output should be empty"</span>) -<span id="L1664" class="LineNr"> 1664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo has outputs, so you cannot 'break' out of the outermost block. Use 'return'."</span> <span class="Constant">"F - <a href='mu.subx.html#L1628'>test-early-exit-without-return</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1665" class="LineNr"> 1665 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1666" class="LineNr"> 1666 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1628'>test-early-exit-without-return</a>: exit status"</span>) -<span id="L1667" class="LineNr"> 1667 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1668" class="LineNr"> 1668 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1669" class="LineNr"> 1669 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1670" class="LineNr"> 1670 </span> 5d/pop-to-ebp -<span id="L1671" class="LineNr"> 1671 </span> c3/return -<span id="L1672" class="LineNr"> 1672 </span> -<span id="L1673" class="LineNr"> 1673 </span><span class="subxTest">test-return-with-too-few-inouts</span>: -<span id="L1674" class="LineNr"> 1674 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1675" class="LineNr"> 1675 </span> 55/push-ebp -<span id="L1676" class="LineNr"> 1676 </span> 89/<- %ebp 4/r32/esp -<span id="L1677" class="LineNr"> 1677 </span> <span class="subxComment"># setup</span> -<span id="L1678" class="LineNr"> 1678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1679" class="LineNr"> 1679 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1680" class="LineNr"> 1680 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1681" class="LineNr"> 1681 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1682" class="LineNr"> 1682 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1683" class="LineNr"> 1683 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1684" class="LineNr"> 1684 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1685" class="LineNr"> 1685 </span> 68/push 0/imm32 -<span id="L1686" class="LineNr"> 1686 </span> 68/push 0/imm32 -<span id="L1687" class="LineNr"> 1687 </span> 89/<- %edx 4/r32/esp -<span id="L1688" class="LineNr"> 1688 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1689" class="LineNr"> 1689 </span> <span class="subxComment">#</span> -<span id="L1690" class="LineNr"> 1690 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1691" class="LineNr"> 1691 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return\n"</span>) -<span id="L1692" class="LineNr"> 1692 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1693" class="LineNr"> 1693 </span> <span class="subxComment"># convert</span> -<span id="L1694" class="LineNr"> 1694 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1695" class="LineNr"> 1695 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1696" class="LineNr"> 1696 </span> <span class="subxComment"># restore ed</span> -<span id="L1697" class="LineNr"> 1697 </span> 89/<- %edx 4/r32/esp -<span id="L1698" class="LineNr"> 1698 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1699" class="LineNr"> 1699 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1700" class="Folded"> 1700 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1706" class="LineNr"> 1706 </span> <span class="subxComment"># check output</span> -<span id="L1707" class="LineNr"> 1707 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1673'>test-return-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L1708" class="LineNr"> 1708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: return: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1673'>test-return-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1709" class="LineNr"> 1709 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1710" class="LineNr"> 1710 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1673'>test-return-with-too-few-inouts</a>: exit status"</span>) -<span id="L1711" class="LineNr"> 1711 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1712" class="LineNr"> 1712 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1713" class="LineNr"> 1713 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1714" class="LineNr"> 1714 </span> 5d/pop-to-ebp -<span id="L1715" class="LineNr"> 1715 </span> c3/return -<span id="L1716" class="LineNr"> 1716 </span> -<span id="L1717" class="LineNr"> 1717 </span><span class="subxTest">test-return-with-too-many-inouts</span>: -<span id="L1718" class="LineNr"> 1718 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1719" class="LineNr"> 1719 </span> 55/push-ebp -<span id="L1720" class="LineNr"> 1720 </span> 89/<- %ebp 4/r32/esp -<span id="L1721" class="LineNr"> 1721 </span> <span class="subxComment"># setup</span> -<span id="L1722" class="LineNr"> 1722 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1723" class="LineNr"> 1723 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1724" class="LineNr"> 1724 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1725" class="LineNr"> 1725 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1726" class="LineNr"> 1726 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1727" class="LineNr"> 1727 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1728" class="LineNr"> 1728 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1729" class="LineNr"> 1729 </span> 68/push 0/imm32 -<span id="L1730" class="LineNr"> 1730 </span> 68/push 0/imm32 -<span id="L1731" class="LineNr"> 1731 </span> 89/<- %edx 4/r32/esp -<span id="L1732" class="LineNr"> 1732 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1733" class="LineNr"> 1733 </span> <span class="subxComment">#</span> -<span id="L1734" class="LineNr"> 1734 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L1735" class="LineNr"> 1735 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0, 0\n"</span>) -<span id="L1736" class="LineNr"> 1736 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1737" class="LineNr"> 1737 </span> <span class="subxComment"># convert</span> -<span id="L1738" class="LineNr"> 1738 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1739" class="LineNr"> 1739 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1740" class="LineNr"> 1740 </span> <span class="subxComment"># restore ed</span> -<span id="L1741" class="LineNr"> 1741 </span> 89/<- %edx 4/r32/esp -<span id="L1742" class="LineNr"> 1742 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1743" class="LineNr"> 1743 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1744" class="Folded"> 1744 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1750" class="LineNr"> 1750 </span> <span class="subxComment"># check output</span> -<span id="L1751" class="LineNr"> 1751 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1717'>test-return-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L1752" class="LineNr"> 1752 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: return: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1717'>test-return-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1753" class="LineNr"> 1753 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1754" class="LineNr"> 1754 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1717'>test-return-with-too-many-inouts</a>: exit status"</span>) -<span id="L1755" class="LineNr"> 1755 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1756" class="LineNr"> 1756 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1757" class="LineNr"> 1757 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1758" class="LineNr"> 1758 </span> 5d/pop-to-ebp -<span id="L1759" class="LineNr"> 1759 </span> c3/return -<span id="L1760" class="LineNr"> 1760 </span> -<span id="L1761" class="LineNr"> 1761 </span><span class="subxTest">test-return-unavailable-value</span>: -<span id="L1762" class="LineNr"> 1762 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1763" class="LineNr"> 1763 </span> 55/push-ebp -<span id="L1764" class="LineNr"> 1764 </span> 89/<- %ebp 4/r32/esp -<span id="L1765" class="LineNr"> 1765 </span> <span class="subxComment"># setup</span> -<span id="L1766" class="LineNr"> 1766 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1767" class="LineNr"> 1767 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1768" class="LineNr"> 1768 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1769" class="LineNr"> 1769 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1770" class="LineNr"> 1770 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1771" class="LineNr"> 1771 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1772" class="LineNr"> 1772 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1773" class="LineNr"> 1773 </span> 68/push 0/imm32 -<span id="L1774" class="LineNr"> 1774 </span> 68/push 0/imm32 -<span id="L1775" class="LineNr"> 1775 </span> 89/<- %edx 4/r32/esp -<span id="L1776" class="LineNr"> 1776 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1777" class="LineNr"> 1777 </span> <span class="subxComment">#</span> -<span id="L1778" class="LineNr"> 1778 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/ecx: int {\n"</span>) -<span id="L1779" class="LineNr"> 1779 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L1780" class="LineNr"> 1780 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 0\n"</span>) -<span id="L1781" class="LineNr"> 1781 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y, x\n"</span>) -<span id="L1782" class="LineNr"> 1782 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1783" class="LineNr"> 1783 </span> <span class="subxComment"># convert</span> -<span id="L1784" class="LineNr"> 1784 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1785" class="LineNr"> 1785 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1786" class="LineNr"> 1786 </span> <span class="subxComment"># restore ed</span> -<span id="L1787" class="LineNr"> 1787 </span> 89/<- %edx 4/r32/esp -<span id="L1788" class="LineNr"> 1788 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1789" class="LineNr"> 1789 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1790" class="Folded"> 1790 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1796" class="LineNr"> 1796 </span> <span class="subxComment"># check output</span> -<span id="L1797" class="LineNr"> 1797 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1761'>test-return-unavailable-value</a>: output should be empty"</span>) -<span id="L1798" class="LineNr"> 1798 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: return: 'x' is no longer available"</span> <span class="Constant">"F - <a href='mu.subx.html#L1761'>test-return-unavailable-value</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1799" class="LineNr"> 1799 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1800" class="LineNr"> 1800 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1761'>test-return-unavailable-value</a>: exit status"</span>) -<span id="L1801" class="LineNr"> 1801 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1802" class="LineNr"> 1802 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1803" class="LineNr"> 1803 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1804" class="LineNr"> 1804 </span> 5d/pop-to-ebp -<span id="L1805" class="LineNr"> 1805 </span> c3/return -<span id="L1806" class="LineNr"> 1806 </span> -<span id="L1807" class="LineNr"> 1807 </span><span class="subxTest">test-return-literal-to-float</span>: -<span id="L1808" class="LineNr"> 1808 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1809" class="LineNr"> 1809 </span> 55/push-ebp -<span id="L1810" class="LineNr"> 1810 </span> 89/<- %ebp 4/r32/esp -<span id="L1811" class="LineNr"> 1811 </span> <span class="subxComment"># setup</span> -<span id="L1812" class="LineNr"> 1812 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1813" class="LineNr"> 1813 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1814" class="LineNr"> 1814 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1815" class="LineNr"> 1815 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1816" class="LineNr"> 1816 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1817" class="LineNr"> 1817 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1818" class="LineNr"> 1818 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1819" class="LineNr"> 1819 </span> 68/push 0/imm32 -<span id="L1820" class="LineNr"> 1820 </span> 68/push 0/imm32 -<span id="L1821" class="LineNr"> 1821 </span> 89/<- %edx 4/r32/esp -<span id="L1822" class="LineNr"> 1822 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1823" class="LineNr"> 1823 </span> <span class="subxComment">#</span> -<span id="L1824" class="LineNr"> 1824 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm0: float {\n"</span>) -<span id="L1825" class="LineNr"> 1825 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) -<span id="L1826" class="LineNr"> 1826 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1827" class="LineNr"> 1827 </span> <span class="subxComment"># convert</span> -<span id="L1828" class="LineNr"> 1828 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1829" class="LineNr"> 1829 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1830" class="LineNr"> 1830 </span> <span class="subxComment"># restore ed</span> -<span id="L1831" class="LineNr"> 1831 </span> 89/<- %edx 4/r32/esp -<span id="L1832" class="LineNr"> 1832 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1833" class="LineNr"> 1833 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1834" class="Folded"> 1834 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1840" class="LineNr"> 1840 </span> <span class="subxComment"># check output</span> -<span id="L1841" class="LineNr"> 1841 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1807'>test-return-literal-to-float</a>: output should be empty"</span>) -<span id="L1842" class="LineNr"> 1842 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: return: cannot copy literal '0' to float"</span> <span class="Constant">"F - <a href='mu.subx.html#L1807'>test-return-literal-to-float</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1843" class="LineNr"> 1843 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1844" class="LineNr"> 1844 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1807'>test-return-literal-to-float</a>: exit status"</span>) -<span id="L1845" class="LineNr"> 1845 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1846" class="LineNr"> 1846 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1847" class="LineNr"> 1847 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1848" class="LineNr"> 1848 </span> 5d/pop-to-ebp -<span id="L1849" class="LineNr"> 1849 </span> c3/return -<span id="L1850" class="LineNr"> 1850 </span> -<span id="L1851" class="LineNr"> 1851 </span><span class="subxTest">test-convert-return-with-duplicate-values</span>: -<span id="L1852" class="LineNr"> 1852 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1853" class="LineNr"> 1853 </span> 55/push-ebp -<span id="L1854" class="LineNr"> 1854 </span> 89/<- %ebp 4/r32/esp -<span id="L1855" class="LineNr"> 1855 </span> <span class="subxComment"># setup</span> -<span id="L1856" class="LineNr"> 1856 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1857" class="LineNr"> 1857 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1858" class="LineNr"> 1858 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1859" class="LineNr"> 1859 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1860" class="LineNr"> 1860 </span> <span class="subxComment">#</span> -<span id="L1861" class="LineNr"> 1861 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/ecx: int {\n"</span>) -<span id="L1862" class="LineNr"> 1862 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0x34\n"</span>) -<span id="L1863" class="LineNr"> 1863 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return x, x\n"</span>) -<span id="L1864" class="LineNr"> 1864 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1865" class="LineNr"> 1865 </span> <span class="subxComment"># convert</span> -<span id="L1866" class="LineNr"> 1866 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1867" class="LineNr"> 1867 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1868" class="Folded"> 1868 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1874" class="LineNr"> 1874 </span> <span class="subxComment"># check output</span> -<span id="L1875" class="LineNr"> 1875 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/0"</span>) -<span id="L1876" class="LineNr"> 1876 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values/1"</span>) -<span id="L1877" class="LineNr"> 1877 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/2"</span>) -<span id="L1878" class="LineNr"> 1878 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/3"</span>) -<span id="L1879" class="LineNr"> 1879 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/4"</span>) -<span id="L1880" class="LineNr"> 1880 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/5"</span>) -<span id="L1881" class="LineNr"> 1881 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/6"</span>) -<span id="L1882" class="LineNr"> 1882 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0x34/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/7"</span>) -<span id="L1883" class="LineNr"> 1883 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/8"</span>) -<span id="L1884" class="LineNr"> 1884 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/9"</span>) -<span id="L1885" class="LineNr"> 1885 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/10"</span>) -<span id="L1886" class="LineNr"> 1886 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/11"</span>) -<span id="L1887" class="LineNr"> 1887 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/12"</span>) -<span id="L1888" class="LineNr"> 1888 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/13"</span>) -<span id="L1889" class="LineNr"> 1889 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values/14"</span>) -<span id="L1890" class="LineNr"> 1890 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/15"</span>) -<span id="L1891" class="LineNr"> 1891 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/16"</span>) -<span id="L1892" class="LineNr"> 1892 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/17"</span>) -<span id="L1893" class="LineNr"> 1893 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1894" class="LineNr"> 1894 </span> 89/<- %esp 5/r32/ebp -<span id="L1895" class="LineNr"> 1895 </span> 5d/pop-to-ebp -<span id="L1896" class="LineNr"> 1896 </span> c3/return -<span id="L1897" class="LineNr"> 1897 </span> -<span id="L1898" class="LineNr"> 1898 </span><span class="subxTest">test-convert-return-with-duplicate-values-2</span>: -<span id="L1899" class="LineNr"> 1899 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1900" class="LineNr"> 1900 </span> 55/push-ebp -<span id="L1901" class="LineNr"> 1901 </span> 89/<- %ebp 4/r32/esp -<span id="L1902" class="LineNr"> 1902 </span> <span class="subxComment"># setup</span> -<span id="L1903" class="LineNr"> 1903 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1904" class="LineNr"> 1904 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1905" class="LineNr"> 1905 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1906" class="LineNr"> 1906 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1907" class="LineNr"> 1907 </span> <span class="subxComment">#</span> -<span id="L1908" class="LineNr"> 1908 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/ecx: int {\n"</span>) -<span id="L1909" class="LineNr"> 1909 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 0x34\n"</span>) -<span id="L1910" class="LineNr"> 1910 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return x, x\n"</span>) -<span id="L1911" class="LineNr"> 1911 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1912" class="LineNr"> 1912 </span> <span class="subxComment"># convert</span> -<span id="L1913" class="LineNr"> 1913 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L1914" class="LineNr"> 1914 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1915" class="Folded"> 1915 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1921" class="LineNr"> 1921 </span> <span class="subxComment"># check output</span> -<span id="L1922" class="LineNr"> 1922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/0"</span>) -<span id="L1923" class="LineNr"> 1923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values-2/1"</span>) -<span id="L1924" class="LineNr"> 1924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/2"</span>) -<span id="L1925" class="LineNr"> 1925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/3"</span>) -<span id="L1926" class="LineNr"> 1926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/4"</span>) -<span id="L1927" class="LineNr"> 1927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/5"</span>) -<span id="L1928" class="LineNr"> 1928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/6"</span>) -<span id="L1929" class="LineNr"> 1929 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x34/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/7"</span>) -<span id="L1930" class="LineNr"> 1930 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/8"</span>) -<span id="L1931" class="LineNr"> 1931 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/9"</span>) -<span id="L1932" class="LineNr"> 1932 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/10"</span>) -<span id="L1933" class="LineNr"> 1933 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/11"</span>) -<span id="L1934" class="LineNr"> 1934 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/12"</span>) -<span id="L1935" class="LineNr"> 1935 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/13"</span>) -<span id="L1936" class="LineNr"> 1936 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values-2/14"</span>) -<span id="L1937" class="LineNr"> 1937 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/15"</span>) -<span id="L1938" class="LineNr"> 1938 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/16"</span>) -<span id="L1939" class="LineNr"> 1939 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/17"</span>) -<span id="L1940" class="LineNr"> 1940 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1941" class="LineNr"> 1941 </span> 89/<- %esp 5/r32/ebp -<span id="L1942" class="LineNr"> 1942 </span> 5d/pop-to-ebp -<span id="L1943" class="LineNr"> 1943 </span> c3/return -<span id="L1944" class="LineNr"> 1944 </span> -<span id="L1945" class="LineNr"> 1945 </span><span class="subxTest">test-stmt-with-unknown-var</span>: -<span id="L1946" class="LineNr"> 1946 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1947" class="LineNr"> 1947 </span> 55/push-ebp -<span id="L1948" class="LineNr"> 1948 </span> 89/<- %ebp 4/r32/esp -<span id="L1949" class="LineNr"> 1949 </span> <span class="subxComment"># setup</span> -<span id="L1950" class="LineNr"> 1950 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1951" class="LineNr"> 1951 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1952" class="LineNr"> 1952 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1953" class="LineNr"> 1953 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1954" class="LineNr"> 1954 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1955" class="LineNr"> 1955 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L1956" class="LineNr"> 1956 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L1957" class="LineNr"> 1957 </span> 68/push 0/imm32 -<span id="L1958" class="LineNr"> 1958 </span> 68/push 0/imm32 -<span id="L1959" class="LineNr"> 1959 </span> 89/<- %edx 4/r32/esp -<span id="L1960" class="LineNr"> 1960 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L1961" class="LineNr"> 1961 </span> <span class="subxComment">#</span> -<span id="L1962" class="LineNr"> 1962 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L1963" class="LineNr"> 1963 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy 0x34\n"</span>) -<span id="L1964" class="LineNr"> 1964 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L1965" class="LineNr"> 1965 </span> <span class="subxComment"># convert</span> -<span id="L1966" class="LineNr"> 1966 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L1967" class="LineNr"> 1967 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L1968" class="LineNr"> 1968 </span> <span class="subxComment"># restore ed</span> -<span id="L1969" class="LineNr"> 1969 </span> 89/<- %edx 4/r32/esp -<span id="L1970" class="LineNr"> 1970 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L1971" class="LineNr"> 1971 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L1972" class="Folded"> 1972 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1978" class="LineNr"> 1978 </span> <span class="subxComment"># check output</span> -<span id="L1979" class="LineNr"> 1979 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1945'>test-stmt-with-unknown-var</a>: output should be empty"</span>) -<span id="L1980" class="LineNr"> 1980 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1945'>test-stmt-with-unknown-var</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L1981" class="LineNr"> 1981 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L1982" class="LineNr"> 1982 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1945'>test-stmt-with-unknown-var</a>: exit status"</span>) -<span id="L1983" class="LineNr"> 1983 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L1984" class="LineNr"> 1984 </span> 81 0/subop/add %esp 8/imm32 -<span id="L1985" class="LineNr"> 1985 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1986" class="LineNr"> 1986 </span> 5d/pop-to-ebp -<span id="L1987" class="LineNr"> 1987 </span> c3/return -<span id="L1988" class="LineNr"> 1988 </span> -<span id="L1989" class="LineNr"> 1989 </span><span class="subxTest">test-stmt-with-invalid-identifier</span>: -<span id="L1990" class="LineNr"> 1990 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1991" class="LineNr"> 1991 </span> 55/push-ebp -<span id="L1992" class="LineNr"> 1992 </span> 89/<- %ebp 4/r32/esp -<span id="L1993" class="LineNr"> 1993 </span> <span class="subxComment"># setup</span> -<span id="L1994" class="LineNr"> 1994 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L1995" class="LineNr"> 1995 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L1996" class="LineNr"> 1996 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L1997" class="LineNr"> 1997 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L1998" class="LineNr"> 1998 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L1999" class="LineNr"> 1999 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2000" class="LineNr"> 2000 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2001" class="LineNr"> 2001 </span> 68/push 0/imm32 -<span id="L2002" class="LineNr"> 2002 </span> 68/push 0/imm32 -<span id="L2003" class="LineNr"> 2003 </span> 89/<- %edx 4/r32/esp -<span id="L2004" class="LineNr"> 2004 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2005" class="LineNr"> 2005 </span> <span class="subxComment">#</span> -<span id="L2006" class="LineNr"> 2006 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2007" class="LineNr"> 2007 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" 1 <- copy 0x34\n"</span>) -<span id="L2008" class="LineNr"> 2008 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2009" class="LineNr"> 2009 </span> <span class="subxComment"># convert</span> -<span id="L2010" class="LineNr"> 2010 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2011" class="LineNr"> 2011 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2012" class="LineNr"> 2012 </span> <span class="subxComment"># restore ed</span> -<span id="L2013" class="LineNr"> 2013 </span> 89/<- %edx 4/r32/esp -<span id="L2014" class="LineNr"> 2014 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2015" class="LineNr"> 2015 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2016" class="Folded"> 2016 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2022" class="LineNr"> 2022 </span> <span class="subxComment"># check output</span> -<span id="L2023" class="LineNr"> 2023 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1989'>test-stmt-with-invalid-identifier</a>: output should be empty"</span>) -<span id="L2024" class="LineNr"> 2024 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: invalid identifier '1'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1989'>test-stmt-with-invalid-identifier</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2025" class="LineNr"> 2025 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2026" class="LineNr"> 2026 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1989'>test-stmt-with-invalid-identifier</a>: exit status"</span>) -<span id="L2027" class="LineNr"> 2027 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2028" class="LineNr"> 2028 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2029" class="LineNr"> 2029 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2030" class="LineNr"> 2030 </span> 5d/pop-to-ebp -<span id="L2031" class="LineNr"> 2031 </span> c3/return -<span id="L2032" class="LineNr"> 2032 </span> -<span id="L2033" class="LineNr"> 2033 </span><span class="subxTest">test-stmt-with-deref-var</span>: -<span id="L2034" class="LineNr"> 2034 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2035" class="LineNr"> 2035 </span> 55/push-ebp -<span id="L2036" class="LineNr"> 2036 </span> 89/<- %ebp 4/r32/esp -<span id="L2037" class="LineNr"> 2037 </span> <span class="subxComment"># setup</span> -<span id="L2038" class="LineNr"> 2038 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2039" class="LineNr"> 2039 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2040" class="LineNr"> 2040 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2041" class="LineNr"> 2041 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2042" class="LineNr"> 2042 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2043" class="LineNr"> 2043 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2044" class="LineNr"> 2044 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2045" class="LineNr"> 2045 </span> 68/push 0/imm32 -<span id="L2046" class="LineNr"> 2046 </span> 68/push 0/imm32 -<span id="L2047" class="LineNr"> 2047 </span> 89/<- %edx 4/r32/esp -<span id="L2048" class="LineNr"> 2048 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2049" class="LineNr"> 2049 </span> <span class="subxComment">#</span> -<span id="L2050" class="LineNr"> 2050 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2051" class="LineNr"> 2051 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" *x <- copy 0x34\n"</span>) -<span id="L2052" class="LineNr"> 2052 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2053" class="LineNr"> 2053 </span> <span class="subxComment"># convert</span> -<span id="L2054" class="LineNr"> 2054 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2055" class="LineNr"> 2055 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2056" class="LineNr"> 2056 </span> <span class="subxComment"># restore ed</span> -<span id="L2057" class="LineNr"> 2057 </span> 89/<- %edx 4/r32/esp -<span id="L2058" class="LineNr"> 2058 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2059" class="LineNr"> 2059 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2060" class="Folded"> 2060 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2066" class="LineNr"> 2066 </span> <span class="subxComment"># check output</span> -<span id="L2067" class="LineNr"> 2067 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2033'>test-stmt-with-deref-var</a>: output should be empty"</span>) -<span id="L2068" class="LineNr"> 2068 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: output '*x' should <a href='../108write.subx.html#L24'>write</a> to a register, and therefore cannot be dereferenced"</span> <span class="Constant">"F - <a href='mu.subx.html#L2033'>test-stmt-with-deref-var</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2069" class="LineNr"> 2069 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2070" class="LineNr"> 2070 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2033'>test-stmt-with-deref-var</a>: exit status"</span>) -<span id="L2071" class="LineNr"> 2071 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2072" class="LineNr"> 2072 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2073" class="LineNr"> 2073 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2074" class="LineNr"> 2074 </span> 5d/pop-to-ebp -<span id="L2075" class="LineNr"> 2075 </span> c3/return -<span id="L2076" class="LineNr"> 2076 </span> -<span id="L2077" class="LineNr"> 2077 </span><span class="subxTest">test-convert-function-with-literal-arg</span>: -<span id="L2078" class="LineNr"> 2078 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2079" class="LineNr"> 2079 </span> 55/push-ebp -<span id="L2080" class="LineNr"> 2080 </span> 89/<- %ebp 4/r32/esp -<span id="L2081" class="LineNr"> 2081 </span> <span class="subxComment"># setup</span> -<span id="L2082" class="LineNr"> 2082 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2083" class="LineNr"> 2083 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2084" class="LineNr"> 2084 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2085" class="LineNr"> 2085 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2086" class="LineNr"> 2086 </span> <span class="subxComment">#</span> -<span id="L2087" class="LineNr"> 2087 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/eax: int {\n"</span>) -<span id="L2088" class="LineNr"> 2088 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) -<span id="L2089" class="LineNr"> 2089 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) -<span id="L2090" class="LineNr"> 2090 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2091" class="LineNr"> 2091 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2092" class="LineNr"> 2092 </span> <span class="subxComment"># convert</span> -<span id="L2093" class="LineNr"> 2093 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2094" class="LineNr"> 2094 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2095" class="Folded"> 2095 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2101" class="LineNr"> 2101 </span> <span class="subxComment"># check output</span> -<span id="L2102" class="LineNr"> 2102 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/0"</span>) -<span id="L2103" class="LineNr"> 2103 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/1"</span>) -<span id="L2104" class="LineNr"> 2104 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/2"</span>) -<span id="L2105" class="LineNr"> 2105 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/3"</span>) -<span id="L2106" class="LineNr"> 2106 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/4"</span>) -<span id="L2107" class="LineNr"> 2107 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/5"</span>) -<span id="L2108" class="LineNr"> 2108 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/6"</span>) -<span id="L2109" class="LineNr"> 2109 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/7"</span>) -<span id="L2110" class="LineNr"> 2110 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 05/add-to-eax 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/8"</span>) -<span id="L2111" class="LineNr"> 2111 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/9"</span>) -<span id="L2112" class="LineNr"> 2112 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/10"</span>) -<span id="L2113" class="LineNr"> 2113 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/11"</span>) -<span id="L2114" class="LineNr"> 2114 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/12"</span>) -<span id="L2115" class="LineNr"> 2115 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/13"</span>) -<span id="L2116" class="LineNr"> 2116 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/14"</span>) -<span id="L2117" class="LineNr"> 2117 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/15"</span>) -<span id="L2118" class="LineNr"> 2118 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/16"</span>) -<span id="L2119" class="LineNr"> 2119 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/17"</span>) -<span id="L2120" class="LineNr"> 2120 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2121" class="LineNr"> 2121 </span> 89/<- %esp 5/r32/ebp -<span id="L2122" class="LineNr"> 2122 </span> 5d/pop-to-ebp -<span id="L2123" class="LineNr"> 2123 </span> c3/return -<span id="L2124" class="LineNr"> 2124 </span> -<span id="L2125" class="LineNr"> 2125 </span><span class="subxTest">test-convert-function-with-literal-arg-2</span>: -<span id="L2126" class="LineNr"> 2126 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2127" class="LineNr"> 2127 </span> 55/push-ebp -<span id="L2128" class="LineNr"> 2128 </span> 89/<- %ebp 4/r32/esp -<span id="L2129" class="LineNr"> 2129 </span> <span class="subxComment"># setup</span> -<span id="L2130" class="LineNr"> 2130 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2131" class="LineNr"> 2131 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2132" class="LineNr"> 2132 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2133" class="LineNr"> 2133 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2134" class="LineNr"> 2134 </span> <span class="subxComment">#</span> -<span id="L2135" class="LineNr"> 2135 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/ebx: int {\n"</span>) -<span id="L2136" class="LineNr"> 2136 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy a\n"</span>) -<span id="L2137" class="LineNr"> 2137 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) -<span id="L2138" class="LineNr"> 2138 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2139" class="LineNr"> 2139 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2140" class="LineNr"> 2140 </span> <span class="subxComment"># convert</span> -<span id="L2141" class="LineNr"> 2141 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2142" class="LineNr"> 2142 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2143" class="Folded"> 2143 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2149" class="LineNr"> 2149 </span> <span class="subxComment"># check output</span> -<span id="L2150" class="LineNr"> 2150 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/0"</span>) -<span id="L2151" class="LineNr"> 2151 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/1"</span>) -<span id="L2152" class="LineNr"> 2152 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/2"</span>) -<span id="L2153" class="LineNr"> 2153 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/3"</span>) -<span id="L2154" class="LineNr"> 2154 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/4"</span>) -<span id="L2155" class="LineNr"> 2155 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/5"</span>) -<span id="L2156" class="LineNr"> 2156 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/6"</span>) -<span id="L2157" class="LineNr"> 2157 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/7"</span>) -<span id="L2158" class="LineNr"> 2158 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %ebx 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/8"</span>) -<span id="L2159" class="LineNr"> 2159 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/9"</span>) -<span id="L2160" class="LineNr"> 2160 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/10"</span>) -<span id="L2161" class="LineNr"> 2161 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/11"</span>) -<span id="L2162" class="LineNr"> 2162 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/12"</span>) -<span id="L2163" class="LineNr"> 2163 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/13"</span>) -<span id="L2164" class="LineNr"> 2164 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/14"</span>) -<span id="L2165" class="LineNr"> 2165 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/15"</span>) -<span id="L2166" class="LineNr"> 2166 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/16"</span>) -<span id="L2167" class="LineNr"> 2167 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/17"</span>) -<span id="L2168" class="LineNr"> 2168 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2169" class="LineNr"> 2169 </span> 89/<- %esp 5/r32/ebp -<span id="L2170" class="LineNr"> 2170 </span> 5d/pop-to-ebp -<span id="L2171" class="LineNr"> 2171 </span> c3/return -<span id="L2172" class="LineNr"> 2172 </span> -<span id="L2173" class="LineNr"> 2173 </span><span class="subxTest">test-convert-function-call-with-literal-arg</span>: -<span id="L2174" class="LineNr"> 2174 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2175" class="LineNr"> 2175 </span> 55/push-ebp -<span id="L2176" class="LineNr"> 2176 </span> 89/<- %ebp 4/r32/esp -<span id="L2177" class="LineNr"> 2177 </span> <span class="subxComment"># setup</span> -<span id="L2178" class="LineNr"> 2178 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2179" class="LineNr"> 2179 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2180" class="LineNr"> 2180 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2181" class="LineNr"> 2181 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2182" class="LineNr"> 2182 </span> <span class="subxComment">#</span> -<span id="L2183" class="LineNr"> 2183 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) -<span id="L2184" class="LineNr"> 2184 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) -<span id="L2185" class="LineNr"> 2185 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2186" class="LineNr"> 2186 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2187" class="LineNr"> 2187 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn do-add a: int, b: int -> _/eax: int {\n"</span>) -<span id="L2188" class="LineNr"> 2188 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) -<span id="L2189" class="LineNr"> 2189 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add b\n"</span>) -<span id="L2190" class="LineNr"> 2190 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2191" class="LineNr"> 2191 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2192" class="LineNr"> 2192 </span> <span class="subxComment"># convert</span> -<span id="L2193" class="LineNr"> 2193 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2194" class="LineNr"> 2194 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2195" class="Folded"> 2195 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2201" class="LineNr"> 2201 </span> <span class="subxComment"># check output</span> -<span id="L2202" class="LineNr"> 2202 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/0"</span>) -<span id="L2203" class="LineNr"> 2203 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/1"</span>) -<span id="L2204" class="LineNr"> 2204 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/2"</span>) -<span id="L2205" class="LineNr"> 2205 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/3"</span>) -<span id="L2206" class="LineNr"> 2206 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/4"</span>) -<span id="L2207" class="LineNr"> 2207 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/5"</span>) -<span id="L2208" class="LineNr"> 2208 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L2209" class="LineNr"> 2209 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/7"</span>) -<span id="L2210" class="LineNr"> 2210 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L2211" class="LineNr"> 2211 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/9"</span>) -<span id="L2212" class="LineNr"> 2212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L2213" class="LineNr"> 2213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/11"</span>) -<span id="L2214" class="LineNr"> 2214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/12"</span>) -<span id="L2215" class="LineNr"> 2215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/13"</span>) -<span id="L2216" class="LineNr"> 2216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/14"</span>) -<span id="L2217" class="LineNr"> 2217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/15"</span>) -<span id="L2218" class="LineNr"> 2218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/16"</span>) -<span id="L2219" class="LineNr"> 2219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"do-add:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/17"</span>) -<span id="L2220" class="LineNr"> 2220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/18"</span>) -<span id="L2221" class="LineNr"> 2221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/19"</span>) -<span id="L2222" class="LineNr"> 2222 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/20"</span>) -<span id="L2223" class="LineNr"> 2223 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/21"</span>) -<span id="L2224" class="LineNr"> 2224 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/22"</span>) -<span id="L2225" class="LineNr"> 2225 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/23"</span>) -<span id="L2226" class="LineNr"> 2226 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/24"</span>) -<span id="L2227" class="LineNr"> 2227 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/25"</span>) -<span id="L2228" class="LineNr"> 2228 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/26"</span>) -<span id="L2229" class="LineNr"> 2229 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/27"</span>) -<span id="L2230" class="LineNr"> 2230 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $do-add:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/28"</span>) -<span id="L2231" class="LineNr"> 2231 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/29"</span>) -<span id="L2232" class="LineNr"> 2232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/30"</span>) -<span id="L2233" class="LineNr"> 2233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/31"</span>) -<span id="L2234" class="LineNr"> 2234 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/32"</span>) -<span id="L2235" class="LineNr"> 2235 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/33"</span>) -<span id="L2236" class="LineNr"> 2236 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/34"</span>) -<span id="L2237" class="LineNr"> 2237 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2238" class="LineNr"> 2238 </span> 89/<- %esp 5/r32/ebp -<span id="L2239" class="LineNr"> 2239 </span> 5d/pop-to-ebp -<span id="L2240" class="LineNr"> 2240 </span> c3/return -<span id="L2241" class="LineNr"> 2241 </span> -<span id="L2242" class="LineNr"> 2242 </span><span class="subxTest">test-convert-function-call-with-literal-string-arg</span>: -<span id="L2243" class="LineNr"> 2243 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2244" class="LineNr"> 2244 </span> 55/push-ebp -<span id="L2245" class="LineNr"> 2245 </span> 89/<- %ebp 4/r32/esp -<span id="L2246" class="LineNr"> 2246 </span> <span class="subxComment"># setup</span> -<span id="L2247" class="LineNr"> 2247 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2248" class="LineNr"> 2248 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2249" class="LineNr"> 2249 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2250" class="LineNr"> 2250 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2251" class="LineNr"> 2251 </span> <span class="subxComment">#</span> -<span id="L2252" class="LineNr"> 2252 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2253" class="LineNr"> 2253 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" string-func \"</span>abc\<span class="Constant">"\n"</span>) -<span id="L2254" class="LineNr"> 2254 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2255" class="LineNr"> 2255 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig string-func in: (addr array byte)\n"</span>) -<span id="L2256" class="LineNr"> 2256 </span> <span class="subxComment"># convert</span> -<span id="L2257" class="LineNr"> 2257 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2258" class="LineNr"> 2258 </span> <span class="subxComment"># no errors</span> -<span id="L2259" class="LineNr"> 2259 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L2260" class="LineNr"> 2260 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2261" class="LineNr"> 2261 </span> 89/<- %esp 5/r32/ebp -<span id="L2262" class="LineNr"> 2262 </span> 5d/pop-to-ebp -<span id="L2263" class="LineNr"> 2263 </span> c3/return -<span id="L2264" class="LineNr"> 2264 </span> -<span id="L2265" class="LineNr"> 2265 </span><span class="subxTest">test-convert-function-call-with-null-addr</span>: -<span id="L2266" class="LineNr"> 2266 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2267" class="LineNr"> 2267 </span> 55/push-ebp -<span id="L2268" class="LineNr"> 2268 </span> 89/<- %ebp 4/r32/esp -<span id="L2269" class="LineNr"> 2269 </span> <span class="subxComment"># setup</span> -<span id="L2270" class="LineNr"> 2270 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2271" class="LineNr"> 2271 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2272" class="LineNr"> 2272 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2273" class="LineNr"> 2273 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2274" class="LineNr"> 2274 </span> <span class="subxComment">#</span> -<span id="L2275" class="LineNr"> 2275 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2276" class="LineNr"> 2276 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" bar 0\n"</span>) -<span id="L2277" class="LineNr"> 2277 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2278" class="LineNr"> 2278 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig bar in: (addr int)\n"</span>) -<span id="L2279" class="LineNr"> 2279 </span> <span class="subxComment"># convert</span> -<span id="L2280" class="LineNr"> 2280 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2281" class="LineNr"> 2281 </span> <span class="subxComment"># no errors</span> -<span id="L2282" class="LineNr"> 2282 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L2283" class="LineNr"> 2283 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2284" class="LineNr"> 2284 </span> 89/<- %esp 5/r32/ebp -<span id="L2285" class="LineNr"> 2285 </span> 5d/pop-to-ebp -<span id="L2286" class="LineNr"> 2286 </span> c3/return -<span id="L2287" class="LineNr"> 2287 </span> -<span id="L2288" class="LineNr"> 2288 </span><span class="subxTest">test-convert-function-call-with-signature</span>: -<span id="L2289" class="LineNr"> 2289 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2290" class="LineNr"> 2290 </span> 55/push-ebp -<span id="L2291" class="LineNr"> 2291 </span> 89/<- %ebp 4/r32/esp -<span id="L2292" class="LineNr"> 2292 </span> <span class="subxComment"># setup</span> -<span id="L2293" class="LineNr"> 2293 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2294" class="LineNr"> 2294 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2295" class="LineNr"> 2295 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2296" class="LineNr"> 2296 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2297" class="LineNr"> 2297 </span> <span class="subxComment">#</span> -<span id="L2298" class="LineNr"> 2298 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) -<span id="L2299" class="LineNr"> 2299 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) -<span id="L2300" class="LineNr"> 2300 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2301" class="LineNr"> 2301 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2302" class="LineNr"> 2302 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig do-add a: int, b: int -> _/eax: int\n"</span>) -<span id="L2303" class="LineNr"> 2303 </span> <span class="subxComment"># convert</span> -<span id="L2304" class="LineNr"> 2304 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2305" class="LineNr"> 2305 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2306" class="Folded"> 2306 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2312" class="LineNr"> 2312 </span> <span class="subxComment"># check output</span> -<span id="L2313" class="LineNr"> 2313 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/0"</span>) -<span id="L2314" class="LineNr"> 2314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/1"</span>) -<span id="L2315" class="LineNr"> 2315 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/2"</span>) -<span id="L2316" class="LineNr"> 2316 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/3"</span>) -<span id="L2317" class="LineNr"> 2317 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/4"</span>) -<span id="L2318" class="LineNr"> 2318 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/5"</span>) -<span id="L2319" class="LineNr"> 2319 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L2320" class="LineNr"> 2320 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/6"</span>) -<span id="L2321" class="LineNr"> 2321 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L2322" class="LineNr"> 2322 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/9"</span>) -<span id="L2323" class="LineNr"> 2323 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L2324" class="LineNr"> 2324 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/7"</span>) -<span id="L2325" class="LineNr"> 2325 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/8"</span>) -<span id="L2326" class="LineNr"> 2326 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/9"</span>) -<span id="L2327" class="LineNr"> 2327 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/10"</span>) -<span id="L2328" class="LineNr"> 2328 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/11"</span>) -<span id="L2329" class="LineNr"> 2329 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/12"</span>) -<span id="L2330" class="LineNr"> 2330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2331" class="LineNr"> 2331 </span> 89/<- %esp 5/r32/ebp -<span id="L2332" class="LineNr"> 2332 </span> 5d/pop-to-ebp -<span id="L2333" class="LineNr"> 2333 </span> c3/return -<span id="L2334" class="LineNr"> 2334 </span> -<span id="L2335" class="LineNr"> 2335 </span><span class="subxTest">test-convert-function-with-local-var-in-mem</span>: -<span id="L2336" class="LineNr"> 2336 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2337" class="LineNr"> 2337 </span> 55/push-ebp -<span id="L2338" class="LineNr"> 2338 </span> 89/<- %ebp 4/r32/esp -<span id="L2339" class="LineNr"> 2339 </span> <span class="subxComment"># setup</span> -<span id="L2340" class="LineNr"> 2340 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2341" class="LineNr"> 2341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2342" class="LineNr"> 2342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2343" class="LineNr"> 2343 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2344" class="LineNr"> 2344 </span> <span class="subxComment">#</span> -<span id="L2345" class="LineNr"> 2345 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2346" class="LineNr"> 2346 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L2347" class="LineNr"> 2347 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L2348" class="LineNr"> 2348 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2349" class="LineNr"> 2349 </span> <span class="subxComment"># convert</span> -<span id="L2350" class="LineNr"> 2350 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2351" class="LineNr"> 2351 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2352" class="Folded"> 2352 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2358" class="LineNr"> 2358 </span> <span class="subxComment"># check output</span> -<span id="L2359" class="LineNr"> 2359 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/0"</span>) -<span id="L2360" class="LineNr"> 2360 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/1"</span>) -<span id="L2361" class="LineNr"> 2361 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/2"</span>) -<span id="L2362" class="LineNr"> 2362 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/3"</span>) -<span id="L2363" class="LineNr"> 2363 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/4"</span>) -<span id="L2364" class="LineNr"> 2364 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/5"</span>) -<span id="L2365" class="LineNr"> 2365 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/6"</span>) -<span id="L2366" class="LineNr"> 2366 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/7"</span>) -<span id="L2367" class="LineNr"> 2367 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/8"</span>) -<span id="L2368" class="LineNr"> 2368 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/9"</span>) -<span id="L2369" class="LineNr"> 2369 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/10"</span>) -<span id="L2370" class="LineNr"> 2370 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/11"</span>) -<span id="L2371" class="LineNr"> 2371 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/12"</span>) -<span id="L2372" class="LineNr"> 2372 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/13"</span>) -<span id="L2373" class="LineNr"> 2373 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/14"</span>) -<span id="L2374" class="LineNr"> 2374 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2375" class="LineNr"> 2375 </span> 89/<- %esp 5/r32/ebp -<span id="L2376" class="LineNr"> 2376 </span> 5d/pop-to-ebp -<span id="L2377" class="LineNr"> 2377 </span> c3/return -<span id="L2378" class="LineNr"> 2378 </span> -<span id="L2379" class="LineNr"> 2379 </span><span class="subxTest">test-convert-invalid-literal</span>: -<span id="L2380" class="LineNr"> 2380 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2381" class="LineNr"> 2381 </span> 55/push-ebp -<span id="L2382" class="LineNr"> 2382 </span> 89/<- %ebp 4/r32/esp -<span id="L2383" class="LineNr"> 2383 </span> <span class="subxComment"># setup</span> -<span id="L2384" class="LineNr"> 2384 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2385" class="LineNr"> 2385 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2386" class="LineNr"> 2386 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2387" class="LineNr"> 2387 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2388" class="LineNr"> 2388 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2389" class="LineNr"> 2389 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2390" class="LineNr"> 2390 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2391" class="LineNr"> 2391 </span> 68/push 0/imm32 -<span id="L2392" class="LineNr"> 2392 </span> 68/push 0/imm32 -<span id="L2393" class="LineNr"> 2393 </span> 89/<- %edx 4/r32/esp -<span id="L2394" class="LineNr"> 2394 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2395" class="LineNr"> 2395 </span> <span class="subxComment">#</span> -<span id="L2396" class="LineNr"> 2396 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2397" class="LineNr"> 2397 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment 1n\n"</span>) -<span id="L2398" class="LineNr"> 2398 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2399" class="LineNr"> 2399 </span> <span class="subxComment"># convert</span> -<span id="L2400" class="LineNr"> 2400 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2401" class="LineNr"> 2401 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2402" class="LineNr"> 2402 </span> <span class="subxComment"># restore ed</span> -<span id="L2403" class="LineNr"> 2403 </span> 89/<- %edx 4/r32/esp -<span id="L2404" class="LineNr"> 2404 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2405" class="LineNr"> 2405 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2406" class="Folded"> 2406 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2412" class="LineNr"> 2412 </span> <span class="subxComment"># check output</span> -<span id="L2413" class="LineNr"> 2413 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2379'>test-convert-invalid-literal</a>: output should be empty"</span>) -<span id="L2414" class="LineNr"> 2414 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: variable '1n' cannot begin with a digit (or do you have a typo in a number?)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2379'>test-convert-invalid-literal</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2415" class="LineNr"> 2415 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2416" class="LineNr"> 2416 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2379'>test-convert-invalid-literal</a>: exit status"</span>) -<span id="L2417" class="LineNr"> 2417 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2418" class="LineNr"> 2418 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2419" class="LineNr"> 2419 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2420" class="LineNr"> 2420 </span> 5d/pop-to-ebp -<span id="L2421" class="LineNr"> 2421 </span> c3/return -<span id="L2422" class="LineNr"> 2422 </span> -<span id="L2423" class="LineNr"> 2423 </span><span class="subxTest">test-local-var-in-mem-has-no-initializer</span>: -<span id="L2424" class="LineNr"> 2424 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2425" class="LineNr"> 2425 </span> 55/push-ebp -<span id="L2426" class="LineNr"> 2426 </span> 89/<- %ebp 4/r32/esp -<span id="L2427" class="LineNr"> 2427 </span> <span class="subxComment"># setup</span> -<span id="L2428" class="LineNr"> 2428 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2429" class="LineNr"> 2429 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2430" class="LineNr"> 2430 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2431" class="LineNr"> 2431 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2432" class="LineNr"> 2432 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2433" class="LineNr"> 2433 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2434" class="LineNr"> 2434 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2435" class="LineNr"> 2435 </span> 68/push 0/imm32 -<span id="L2436" class="LineNr"> 2436 </span> 68/push 0/imm32 -<span id="L2437" class="LineNr"> 2437 </span> 89/<- %edx 4/r32/esp -<span id="L2438" class="LineNr"> 2438 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2439" class="LineNr"> 2439 </span> <span class="subxComment">#</span> -<span id="L2440" class="LineNr"> 2440 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2441" class="LineNr"> 2441 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int <- copy 0\n"</span>) -<span id="L2442" class="LineNr"> 2442 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L2443" class="LineNr"> 2443 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2444" class="LineNr"> 2444 </span> <span class="subxComment"># convert</span> -<span id="L2445" class="LineNr"> 2445 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2446" class="LineNr"> 2446 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2447" class="LineNr"> 2447 </span> <span class="subxComment"># restore ed</span> -<span id="L2448" class="LineNr"> 2448 </span> 89/<- %edx 4/r32/esp -<span id="L2449" class="LineNr"> 2449 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2450" class="LineNr"> 2450 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2451" class="Folded"> 2451 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2457" class="LineNr"> 2457 </span> <span class="subxComment"># check output</span> -<span id="L2458" class="LineNr"> 2458 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: output should be empty"</span>) -<span id="L2459" class="LineNr"> 2459 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: var x: variables on the stack can't take an initializer"</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: error message"</span>) -<span id="L2460" class="LineNr"> 2460 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2461" class="LineNr"> 2461 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - test-var-in-mem-has-no-initializer: exit status"</span>) -<span id="L2462" class="LineNr"> 2462 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2463" class="LineNr"> 2463 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2464" class="LineNr"> 2464 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2465" class="LineNr"> 2465 </span> 5d/pop-to-ebp -<span id="L2466" class="LineNr"> 2466 </span> c3/return -<span id="L2467" class="LineNr"> 2467 </span> -<span id="L2468" class="LineNr"> 2468 </span><span class="subxTest">test-convert-function-with-local-var-with-compound-type-in-mem</span>: -<span id="L2469" class="LineNr"> 2469 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2470" class="LineNr"> 2470 </span> 55/push-ebp -<span id="L2471" class="LineNr"> 2471 </span> 89/<- %ebp 4/r32/esp -<span id="L2472" class="LineNr"> 2472 </span> <span class="subxComment"># setup</span> -<span id="L2473" class="LineNr"> 2473 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2474" class="LineNr"> 2474 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2475" class="LineNr"> 2475 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2476" class="LineNr"> 2476 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2477" class="LineNr"> 2477 </span> <span class="subxComment">#</span> -<span id="L2478" class="LineNr"> 2478 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2479" class="LineNr"> 2479 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L2480" class="LineNr"> 2480 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0\n"</span>) -<span id="L2481" class="LineNr"> 2481 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2482" class="LineNr"> 2482 </span> <span class="subxComment"># convert</span> -<span id="L2483" class="LineNr"> 2483 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2484" class="LineNr"> 2484 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2485" class="Folded"> 2485 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2491" class="LineNr"> 2491 </span> <span class="subxComment"># check output</span> -<span id="L2492" class="LineNr"> 2492 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/0"</span>) -<span id="L2493" class="LineNr"> 2493 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/1"</span>) -<span id="L2494" class="LineNr"> 2494 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/2"</span>) -<span id="L2495" class="LineNr"> 2495 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/3"</span>) -<span id="L2496" class="LineNr"> 2496 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/4"</span>) -<span id="L2497" class="LineNr"> 2497 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/5"</span>) -<span id="L2498" class="LineNr"> 2498 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/6"</span>) -<span id="L2499" class="LineNr"> 2499 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy *(ebp+0xfffffffc) 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/7"</span>) -<span id="L2500" class="LineNr"> 2500 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/8"</span>) -<span id="L2501" class="LineNr"> 2501 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/9"</span>) -<span id="L2502" class="LineNr"> 2502 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/10"</span>) -<span id="L2503" class="LineNr"> 2503 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/11"</span>) -<span id="L2504" class="LineNr"> 2504 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/12"</span>) -<span id="L2505" class="LineNr"> 2505 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/13"</span>) -<span id="L2506" class="LineNr"> 2506 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2468'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/14"</span>) -<span id="L2507" class="LineNr"> 2507 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2508" class="LineNr"> 2508 </span> 89/<- %esp 5/r32/ebp -<span id="L2509" class="LineNr"> 2509 </span> 5d/pop-to-ebp -<span id="L2510" class="LineNr"> 2510 </span> c3/return -<span id="L2511" class="LineNr"> 2511 </span> -<span id="L2512" class="LineNr"> 2512 </span><span class="subxTest">test-convert-function-with-local-var-in-reg</span>: -<span id="L2513" class="LineNr"> 2513 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2514" class="LineNr"> 2514 </span> 55/push-ebp -<span id="L2515" class="LineNr"> 2515 </span> 89/<- %ebp 4/r32/esp -<span id="L2516" class="LineNr"> 2516 </span> <span class="subxComment"># setup</span> -<span id="L2517" class="LineNr"> 2517 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2518" class="LineNr"> 2518 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2519" class="LineNr"> 2519 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2520" class="LineNr"> 2520 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2521" class="LineNr"> 2521 </span> <span class="subxComment">#</span> -<span id="L2522" class="LineNr"> 2522 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2523" class="LineNr"> 2523 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L2524" class="LineNr"> 2524 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L2525" class="LineNr"> 2525 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2526" class="LineNr"> 2526 </span> <span class="subxComment"># convert</span> -<span id="L2527" class="LineNr"> 2527 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2528" class="LineNr"> 2528 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2529" class="Folded"> 2529 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2535" class="LineNr"> 2535 </span> <span class="subxComment"># check output</span> -<span id="L2536" class="LineNr"> 2536 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/0"</span>) -<span id="L2537" class="LineNr"> 2537 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/1"</span>) -<span id="L2538" class="LineNr"> 2538 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/2"</span>) -<span id="L2539" class="LineNr"> 2539 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/3"</span>) -<span id="L2540" class="LineNr"> 2540 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/4"</span>) -<span id="L2541" class="LineNr"> 2541 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/5"</span>) -<span id="L2542" class="LineNr"> 2542 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/6"</span>) -<span id="L2543" class="LineNr"> 2543 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/7"</span>) -<span id="L2544" class="LineNr"> 2544 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/8"</span>) -<span id="L2545" class="LineNr"> 2545 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/9"</span>) -<span id="L2546" class="LineNr"> 2546 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/10"</span>) -<span id="L2547" class="LineNr"> 2547 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/11"</span>) -<span id="L2548" class="LineNr"> 2548 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/12"</span>) -<span id="L2549" class="LineNr"> 2549 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/13"</span>) -<span id="L2550" class="LineNr"> 2550 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/14"</span>) -<span id="L2551" class="LineNr"> 2551 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2512'>test-convert-function-with-local-var-in-reg</a>/15"</span>) -<span id="L2552" class="LineNr"> 2552 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2553" class="LineNr"> 2553 </span> 89/<- %esp 5/r32/ebp -<span id="L2554" class="LineNr"> 2554 </span> 5d/pop-to-ebp -<span id="L2555" class="LineNr"> 2555 </span> c3/return -<span id="L2556" class="LineNr"> 2556 </span> -<span id="L2557" class="LineNr"> 2557 </span><span class="subxTest">test-float-var-in-wrong-register</span>: -<span id="L2558" class="LineNr"> 2558 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2559" class="LineNr"> 2559 </span> 55/push-ebp -<span id="L2560" class="LineNr"> 2560 </span> 89/<- %ebp 4/r32/esp -<span id="L2561" class="LineNr"> 2561 </span> <span class="subxComment"># setup</span> -<span id="L2562" class="LineNr"> 2562 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2563" class="LineNr"> 2563 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2564" class="LineNr"> 2564 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2565" class="LineNr"> 2565 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2566" class="LineNr"> 2566 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2567" class="LineNr"> 2567 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2568" class="LineNr"> 2568 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2569" class="LineNr"> 2569 </span> 68/push 0/imm32 -<span id="L2570" class="LineNr"> 2570 </span> 68/push 0/imm32 -<span id="L2571" class="LineNr"> 2571 </span> 89/<- %edx 4/r32/esp -<span id="L2572" class="LineNr"> 2572 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2573" class="LineNr"> 2573 </span> <span class="subxComment">#</span> -<span id="L2574" class="LineNr"> 2574 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2575" class="LineNr"> 2575 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L2576" class="LineNr"> 2576 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: float <- convert x\n"</span>) -<span id="L2577" class="LineNr"> 2577 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2578" class="LineNr"> 2578 </span> <span class="subxComment"># convert</span> -<span id="L2579" class="LineNr"> 2579 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2580" class="LineNr"> 2580 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2581" class="LineNr"> 2581 </span> <span class="subxComment"># restore ed</span> -<span id="L2582" class="LineNr"> 2582 </span> 89/<- %edx 4/r32/esp -<span id="L2583" class="LineNr"> 2583 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2584" class="LineNr"> 2584 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2585" class="Folded"> 2585 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2591" class="LineNr"> 2591 </span> <span class="subxComment"># check output</span> -<span id="L2592" class="LineNr"> 2592 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2557'>test-float-var-in-wrong-register</a>: output should be empty"</span>) -<span id="L2593" class="LineNr"> 2593 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: float var 'y' should be in a floating-point register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2557'>test-float-var-in-wrong-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2594" class="LineNr"> 2594 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2595" class="LineNr"> 2595 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2557'>test-float-var-in-wrong-register</a>: exit status"</span>) -<span id="L2596" class="LineNr"> 2596 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2597" class="LineNr"> 2597 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2598" class="LineNr"> 2598 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2599" class="LineNr"> 2599 </span> 5d/pop-to-ebp -<span id="L2600" class="LineNr"> 2600 </span> c3/return -<span id="L2601" class="LineNr"> 2601 </span> -<span id="L2602" class="LineNr"> 2602 </span><span class="subxTest">test-non-float-var-in-wrong-register</span>: -<span id="L2603" class="LineNr"> 2603 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2604" class="LineNr"> 2604 </span> 55/push-ebp -<span id="L2605" class="LineNr"> 2605 </span> 89/<- %ebp 4/r32/esp -<span id="L2606" class="LineNr"> 2606 </span> <span class="subxComment"># setup</span> -<span id="L2607" class="LineNr"> 2607 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2608" class="LineNr"> 2608 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2609" class="LineNr"> 2609 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2610" class="LineNr"> 2610 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2611" class="LineNr"> 2611 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2612" class="LineNr"> 2612 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2613" class="LineNr"> 2613 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2614" class="LineNr"> 2614 </span> 68/push 0/imm32 -<span id="L2615" class="LineNr"> 2615 </span> 68/push 0/imm32 -<span id="L2616" class="LineNr"> 2616 </span> 89/<- %edx 4/r32/esp -<span id="L2617" class="LineNr"> 2617 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2618" class="LineNr"> 2618 </span> <span class="subxComment">#</span> -<span id="L2619" class="LineNr"> 2619 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2620" class="LineNr"> 2620 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm5: int <- copy 0\n"</span>) -<span id="L2621" class="LineNr"> 2621 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2622" class="LineNr"> 2622 </span> <span class="subxComment"># convert</span> -<span id="L2623" class="LineNr"> 2623 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2624" class="LineNr"> 2624 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2625" class="LineNr"> 2625 </span> <span class="subxComment"># restore ed</span> -<span id="L2626" class="LineNr"> 2626 </span> 89/<- %edx 4/r32/esp -<span id="L2627" class="LineNr"> 2627 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2628" class="LineNr"> 2628 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2629" class="Folded"> 2629 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2635" class="LineNr"> 2635 </span> <span class="subxComment"># check output</span> -<span id="L2636" class="LineNr"> 2636 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2602'>test-non-float-var-in-wrong-register</a>: output should be empty"</span>) -<span id="L2637" class="LineNr"> 2637 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: non-float var 'x' should be in an integer register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2602'>test-non-float-var-in-wrong-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2638" class="LineNr"> 2638 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2639" class="LineNr"> 2639 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2602'>test-non-float-var-in-wrong-register</a>: exit status"</span>) -<span id="L2640" class="LineNr"> 2640 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2641" class="LineNr"> 2641 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2642" class="LineNr"> 2642 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2643" class="LineNr"> 2643 </span> 5d/pop-to-ebp -<span id="L2644" class="LineNr"> 2644 </span> c3/return -<span id="L2645" class="LineNr"> 2645 </span> -<span id="L2646" class="LineNr"> 2646 </span><span class="subxTest">test-convert-function-with-allocate</span>: -<span id="L2647" class="LineNr"> 2647 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2648" class="LineNr"> 2648 </span> 55/push-ebp -<span id="L2649" class="LineNr"> 2649 </span> 89/<- %ebp 4/r32/esp -<span id="L2650" class="LineNr"> 2650 </span> <span class="subxComment"># setup</span> -<span id="L2651" class="LineNr"> 2651 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2652" class="LineNr"> 2652 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2653" class="LineNr"> 2653 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2654" class="LineNr"> 2654 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2655" class="LineNr"> 2655 </span> <span class="subxComment">#</span> -<span id="L2656" class="LineNr"> 2656 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2657" class="LineNr"> 2657 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L2658" class="LineNr"> 2658 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../120allocate.subx.html#L66'>allocate</a> x\n"</span>) -<span id="L2659" class="LineNr"> 2659 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2660" class="LineNr"> 2660 </span> <span class="subxComment"># convert</span> -<span id="L2661" class="LineNr"> 2661 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2662" class="LineNr"> 2662 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2663" class="Folded"> 2663 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2669" class="LineNr"> 2669 </span> <span class="subxComment"># check output</span> -<span id="L2670" class="LineNr"> 2670 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/0"</span>) -<span id="L2671" class="LineNr"> 2671 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-allocate/1"</span>) -<span id="L2672" class="LineNr"> 2672 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/2"</span>) -<span id="L2673" class="LineNr"> 2673 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/3"</span>) -<span id="L2674" class="LineNr"> 2674 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/4"</span>) -<span id="L2675" class="LineNr"> 2675 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/5"</span>) -<span id="L2676" class="LineNr"> 2676 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/6"</span>) -<span id="L2677" class="LineNr"> 2677 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/7"</span>) -<span id="L2678" class="LineNr"> 2678 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../120allocate.subx.html#L66'>allocate</a> <a href='../120allocate.subx.html#L27'>Heap</a> 0x00000004 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> -<span id="L2679" class="LineNr"> 2679 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/9"</span>) -<span id="L2680" class="LineNr"> 2680 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/10"</span>) -<span id="L2681" class="LineNr"> 2681 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/11"</span>) -<span id="L2682" class="LineNr"> 2682 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-allocate/12"</span>) -<span id="L2683" class="LineNr"> 2683 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/13"</span>) -<span id="L2684" class="LineNr"> 2684 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/14"</span>) -<span id="L2685" class="LineNr"> 2685 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2646'>test-convert-function-with-allocate</a>/15"</span>) -<span id="L2686" class="LineNr"> 2686 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2687" class="LineNr"> 2687 </span> 89/<- %esp 5/r32/ebp -<span id="L2688" class="LineNr"> 2688 </span> 5d/pop-to-ebp -<span id="L2689" class="LineNr"> 2689 </span> c3/return -<span id="L2690" class="LineNr"> 2690 </span> -<span id="L2691" class="LineNr"> 2691 </span><span class="subxTest">test-initializer-in-hex</span>: -<span id="L2692" class="LineNr"> 2692 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2693" class="LineNr"> 2693 </span> 55/push-ebp -<span id="L2694" class="LineNr"> 2694 </span> 89/<- %ebp 4/r32/esp -<span id="L2695" class="LineNr"> 2695 </span> <span class="subxComment"># setup</span> -<span id="L2696" class="LineNr"> 2696 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2697" class="LineNr"> 2697 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2698" class="LineNr"> 2698 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2699" class="LineNr"> 2699 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2700" class="LineNr"> 2700 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2701" class="LineNr"> 2701 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2702" class="LineNr"> 2702 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L2703" class="LineNr"> 2703 </span> 68/push 0/imm32 -<span id="L2704" class="LineNr"> 2704 </span> 68/push 0/imm32 -<span id="L2705" class="LineNr"> 2705 </span> 89/<- %edx 4/r32/esp -<span id="L2706" class="LineNr"> 2706 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2707" class="LineNr"> 2707 </span> <span class="subxComment">#</span> -<span id="L2708" class="LineNr"> 2708 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2709" class="LineNr"> 2709 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 10\n"</span>) -<span id="L2710" class="LineNr"> 2710 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2711" class="LineNr"> 2711 </span> <span class="subxComment"># convert</span> -<span id="L2712" class="LineNr"> 2712 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2713" class="LineNr"> 2713 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2714" class="LineNr"> 2714 </span> <span class="subxComment"># restore ed</span> -<span id="L2715" class="LineNr"> 2715 </span> 89/<- %edx 4/r32/esp -<span id="L2716" class="LineNr"> 2716 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2717" class="LineNr"> 2717 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2718" class="Folded"> 2718 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2724" class="LineNr"> 2724 </span> <span class="subxComment"># check output</span> -<span id="L2725" class="LineNr"> 2725 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2691'>test-initializer-in-hex</a>: output should be empty"</span>) -<span id="L2726" class="LineNr"> 2726 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L2691'>test-initializer-in-hex</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2727" class="LineNr"> 2727 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2728" class="LineNr"> 2728 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2691'>test-initializer-in-hex</a>: exit status"</span>) -<span id="L2729" class="LineNr"> 2729 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2730" class="LineNr"> 2730 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2731" class="LineNr"> 2731 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2732" class="LineNr"> 2732 </span> 5d/pop-to-ebp -<span id="L2733" class="LineNr"> 2733 </span> c3/return -<span id="L2734" class="LineNr"> 2734 </span> -<span id="L2735" class="LineNr"> 2735 </span><span class="subxTest">test-convert-function-with-second-local-var-in-same-reg</span>: -<span id="L2736" class="LineNr"> 2736 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2737" class="LineNr"> 2737 </span> 55/push-ebp -<span id="L2738" class="LineNr"> 2738 </span> 89/<- %ebp 4/r32/esp -<span id="L2739" class="LineNr"> 2739 </span> <span class="subxComment"># setup</span> -<span id="L2740" class="LineNr"> 2740 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2741" class="LineNr"> 2741 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2742" class="LineNr"> 2742 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2743" class="LineNr"> 2743 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2744" class="LineNr"> 2744 </span> <span class="subxComment">#</span> -<span id="L2745" class="LineNr"> 2745 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2746" class="LineNr"> 2746 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L2747" class="LineNr"> 2747 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L2748" class="LineNr"> 2748 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) -<span id="L2749" class="LineNr"> 2749 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2750" class="LineNr"> 2750 </span> <span class="subxComment"># convert</span> -<span id="L2751" class="LineNr"> 2751 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2752" class="LineNr"> 2752 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2753" class="Folded"> 2753 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2759" class="LineNr"> 2759 </span> <span class="subxComment"># check output</span> -<span id="L2760" class="LineNr"> 2760 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/0"</span>) -<span id="L2761" class="LineNr"> 2761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/1"</span>) -<span id="L2762" class="LineNr"> 2762 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/2"</span>) -<span id="L2763" class="LineNr"> 2763 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/3"</span>) -<span id="L2764" class="LineNr"> 2764 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/4"</span>) -<span id="L2765" class="LineNr"> 2765 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/5"</span>) -<span id="L2766" class="LineNr"> 2766 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/6"</span>) -<span id="L2767" class="LineNr"> 2767 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/7"</span>) -<span id="L2768" class="LineNr"> 2768 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/8"</span>) -<span id="L2769" class="LineNr"> 2769 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/9"</span>) -<span id="L2770" class="LineNr"> 2770 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/10"</span>) -<span id="L2771" class="LineNr"> 2771 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/11"</span>) -<span id="L2772" class="LineNr"> 2772 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/12"</span>) -<span id="L2773" class="LineNr"> 2773 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/13"</span>) -<span id="L2774" class="LineNr"> 2774 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/14"</span>) -<span id="L2775" class="LineNr"> 2775 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/15"</span>) -<span id="L2776" class="LineNr"> 2776 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2735'>test-convert-function-with-second-local-var-in-same-reg</a>/16"</span>) -<span id="L2777" class="LineNr"> 2777 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2778" class="LineNr"> 2778 </span> 89/<- %esp 5/r32/ebp -<span id="L2779" class="LineNr"> 2779 </span> 5d/pop-to-ebp -<span id="L2780" class="LineNr"> 2780 </span> c3/return -<span id="L2781" class="LineNr"> 2781 </span> -<span id="L2782" class="LineNr"> 2782 </span><span class="subxTest">test-read-clobbered-reg-var</span>: -<span id="L2783" class="LineNr"> 2783 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2784" class="LineNr"> 2784 </span> 55/push-ebp -<span id="L2785" class="LineNr"> 2785 </span> 89/<- %ebp 4/r32/esp -<span id="L2786" class="LineNr"> 2786 </span> <span class="subxComment"># setup</span> -<span id="L2787" class="LineNr"> 2787 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2788" class="LineNr"> 2788 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2789" class="LineNr"> 2789 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2790" class="LineNr"> 2790 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2791" class="LineNr"> 2791 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2792" class="LineNr"> 2792 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2793" class="LineNr"> 2793 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> -<span id="L2794" class="LineNr"> 2794 </span> 68/push 0/imm32 -<span id="L2795" class="LineNr"> 2795 </span> 68/push 0/imm32 -<span id="L2796" class="LineNr"> 2796 </span> 89/<- %edx 4/r32/esp -<span id="L2797" class="LineNr"> 2797 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2798" class="LineNr"> 2798 </span> <span class="subxComment">#</span> -<span id="L2799" class="LineNr"> 2799 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2800" class="LineNr"> 2800 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L2801" class="LineNr"> 2801 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L2802" class="LineNr"> 2802 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L2803" class="LineNr"> 2803 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2804" class="LineNr"> 2804 </span> <span class="subxComment"># convert</span> -<span id="L2805" class="LineNr"> 2805 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2806" class="LineNr"> 2806 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2807" class="LineNr"> 2807 </span> <span class="subxComment"># restore ed</span> -<span id="L2808" class="LineNr"> 2808 </span> 89/<- %edx 4/r32/esp -<span id="L2809" class="LineNr"> 2809 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2810" class="LineNr"> 2810 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2811" class="Folded"> 2811 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2817" class="LineNr"> 2817 </span> <span class="subxComment"># check output</span> -<span id="L2818" class="LineNr"> 2818 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2782'>test-read-clobbered-reg-var</a>: output should be empty"</span>) -<span id="L2819" class="LineNr"> 2819 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: register ecx reads var 'x' after writing var 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2782'>test-read-clobbered-reg-var</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2820" class="LineNr"> 2820 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L2821" class="LineNr"> 2821 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2782'>test-read-clobbered-reg-var</a>: exit status"</span>) -<span id="L2822" class="LineNr"> 2822 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2823" class="LineNr"> 2823 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2824" class="LineNr"> 2824 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2825" class="LineNr"> 2825 </span> 5d/pop-to-ebp -<span id="L2826" class="LineNr"> 2826 </span> c3/return -<span id="L2827" class="LineNr"> 2827 </span> -<span id="L2828" class="LineNr"> 2828 </span><span class="subxTest">test-overlapping-int-fp-registers</span>: -<span id="L2829" class="LineNr"> 2829 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2830" class="LineNr"> 2830 </span> 55/push-ebp -<span id="L2831" class="LineNr"> 2831 </span> 89/<- %ebp 4/r32/esp -<span id="L2832" class="LineNr"> 2832 </span> <span class="subxComment"># setup</span> -<span id="L2833" class="LineNr"> 2833 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2834" class="LineNr"> 2834 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2835" class="LineNr"> 2835 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2836" class="LineNr"> 2836 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2837" class="LineNr"> 2837 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L2838" class="LineNr"> 2838 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L2839" class="LineNr"> 2839 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> -<span id="L2840" class="LineNr"> 2840 </span> 68/push 0/imm32 -<span id="L2841" class="LineNr"> 2841 </span> 68/push 0/imm32 -<span id="L2842" class="LineNr"> 2842 </span> 89/<- %edx 4/r32/esp -<span id="L2843" class="LineNr"> 2843 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L2844" class="LineNr"> 2844 </span> <span class="subxComment">#</span> -<span id="L2845" class="LineNr"> 2845 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L2846" class="LineNr"> 2846 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) -<span id="L2847" class="LineNr"> 2847 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm0: float <- convert x\n"</span>) -<span id="L2848" class="LineNr"> 2848 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L2849" class="LineNr"> 2849 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2850" class="LineNr"> 2850 </span> <span class="subxComment"># convert</span> -<span id="L2851" class="LineNr"> 2851 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L2852" class="LineNr"> 2852 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L2853" class="LineNr"> 2853 </span> <span class="subxComment"># restore ed</span> -<span id="L2854" class="LineNr"> 2854 </span> 89/<- %edx 4/r32/esp -<span id="L2855" class="LineNr"> 2855 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2856" class="LineNr"> 2856 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L2857" class="Folded"> 2857 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2863" class="LineNr"> 2863 </span> <span class="subxComment"># no errors</span> -<span id="L2864" class="LineNr"> 2864 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2828'>test-overlapping-int-fp-registers</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L2865" class="LineNr"> 2865 </span> <span class="subxComment"># don't bother checking the generated code</span> -<span id="L2866" class="LineNr"> 2866 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L2867" class="LineNr"> 2867 </span> 81 0/subop/add %esp 8/imm32 -<span id="L2868" class="LineNr"> 2868 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2869" class="LineNr"> 2869 </span> 5d/pop-to-ebp -<span id="L2870" class="LineNr"> 2870 </span> c3/return -<span id="L2871" class="LineNr"> 2871 </span> -<span id="L2872" class="LineNr"> 2872 </span><span class="subxTest">test-convert-function-call</span>: -<span id="L2873" class="LineNr"> 2873 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2874" class="LineNr"> 2874 </span> 55/push-ebp -<span id="L2875" class="LineNr"> 2875 </span> 89/<- %ebp 4/r32/esp -<span id="L2876" class="LineNr"> 2876 </span> <span class="subxComment"># setup</span> -<span id="L2877" class="LineNr"> 2877 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2878" class="LineNr"> 2878 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2879" class="LineNr"> 2879 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2880" class="LineNr"> 2880 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2881" class="LineNr"> 2881 </span> <span class="subxComment">#</span> -<span id="L2882" class="LineNr"> 2882 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) -<span id="L2883" class="LineNr"> 2883 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- foo\n"</span>) -<span id="L2884" class="LineNr"> 2884 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2885" class="LineNr"> 2885 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2886" class="LineNr"> 2886 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/ebx: int {\n"</span>) -<span id="L2887" class="LineNr"> 2887 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy 3\n"</span>) -<span id="L2888" class="LineNr"> 2888 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) -<span id="L2889" class="LineNr"> 2889 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2890" class="LineNr"> 2890 </span> <span class="subxComment"># convert</span> -<span id="L2891" class="LineNr"> 2891 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2892" class="LineNr"> 2892 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2893" class="Folded"> 2893 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2899" class="LineNr"> 2899 </span> <span class="subxComment"># check output</span> -<span id="L2900" class="LineNr"> 2900 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/0"</span>) -<span id="L2901" class="LineNr"> 2901 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/1"</span>) -<span id="L2902" class="LineNr"> 2902 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/2"</span>) -<span id="L2903" class="LineNr"> 2903 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/3"</span>) -<span id="L2904" class="LineNr"> 2904 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/4"</span>) -<span id="L2905" class="LineNr"> 2905 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/5"</span>) -<span id="L2906" class="LineNr"> 2906 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L2907" class="LineNr"> 2907 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/6"</span>) -<span id="L2908" class="LineNr"> 2908 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L2909" class="LineNr"> 2909 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/27"</span>) -<span id="L2910" class="LineNr"> 2910 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L2911" class="LineNr"> 2911 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/7"</span>) -<span id="L2912" class="LineNr"> 2912 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/8"</span>) -<span id="L2913" class="LineNr"> 2913 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/9"</span>) -<span id="L2914" class="LineNr"> 2914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/10"</span>) -<span id="L2915" class="LineNr"> 2915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/11"</span>) -<span id="L2916" class="LineNr"> 2916 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/12"</span>) -<span id="L2917" class="LineNr"> 2917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/13"</span>) -<span id="L2918" class="LineNr"> 2918 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/14"</span>) -<span id="L2919" class="LineNr"> 2919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/15"</span>) -<span id="L2920" class="LineNr"> 2920 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/16"</span>) -<span id="L2921" class="LineNr"> 2921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/17"</span>) -<span id="L2922" class="LineNr"> 2922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/18"</span>) -<span id="L2923" class="LineNr"> 2923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) -<span id="L2924" class="LineNr"> 2924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" bb/copy-to-ebx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/19"</span>) -<span id="L2925" class="LineNr"> 2925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) -<span id="L2926" class="LineNr"> 2926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/27"</span>) -<span id="L2927" class="LineNr"> 2927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) -<span id="L2928" class="LineNr"> 2928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/20"</span>) -<span id="L2929" class="LineNr"> 2929 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/21"</span>) -<span id="L2930" class="LineNr"> 2930 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/22"</span>) -<span id="L2931" class="LineNr"> 2931 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/23"</span>) -<span id="L2932" class="LineNr"> 2932 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/24"</span>) -<span id="L2933" class="LineNr"> 2933 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2872'>test-convert-function-call</a>/25"</span>) -<span id="L2934" class="LineNr"> 2934 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2935" class="LineNr"> 2935 </span> 89/<- %esp 5/r32/ebp -<span id="L2936" class="LineNr"> 2936 </span> 5d/pop-to-ebp -<span id="L2937" class="LineNr"> 2937 </span> c3/return -<span id="L2938" class="LineNr"> 2938 </span> -<span id="L2939" class="LineNr"> 2939 </span><span class="subxTest">test-convert-function-call-with-inout-with-compound-type</span>: -<span id="L2940" class="LineNr"> 2940 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2941" class="LineNr"> 2941 </span> 55/push-ebp -<span id="L2942" class="LineNr"> 2942 </span> 89/<- %ebp 4/r32/esp -<span id="L2943" class="LineNr"> 2943 </span> <span class="subxComment"># setup</span> -<span id="L2944" class="LineNr"> 2944 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2945" class="LineNr"> 2945 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L2946" class="LineNr"> 2946 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L2947" class="LineNr"> 2947 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L2948" class="LineNr"> 2948 </span> <span class="subxComment">#</span> -<span id="L2949" class="LineNr"> 2949 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L2950" class="LineNr"> 2950 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L2951" class="LineNr"> 2951 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L2952" class="LineNr"> 2952 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2953" class="LineNr"> 2953 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr int) {\n"</span>) -<span id="L2954" class="LineNr"> 2954 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L2955" class="LineNr"> 2955 </span> <span class="subxComment"># convert</span> -<span id="L2956" class="LineNr"> 2956 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L2957" class="LineNr"> 2957 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L2958" class="Folded"> 2958 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2964" class="LineNr"> 2964 </span> <span class="subxComment"># check output</span> -<span id="L2965" class="LineNr"> 2965 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/0"</span>) -<span id="L2966" class="LineNr"> 2966 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/1"</span>) -<span id="L2967" class="LineNr"> 2967 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/2"</span>) -<span id="L2968" class="LineNr"> 2968 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/3"</span>) -<span id="L2969" class="LineNr"> 2969 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/4"</span>) -<span id="L2970" class="LineNr"> 2970 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/5"</span>) -<span id="L2971" class="LineNr"> 2971 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/6"</span>) -<span id="L2972" class="LineNr"> 2972 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (g *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/7"</span>) -<span id="L2973" class="LineNr"> 2973 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/8"</span>) -<span id="L2974" class="LineNr"> 2974 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/9"</span>) -<span id="L2975" class="LineNr"> 2975 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/10"</span>) -<span id="L2976" class="LineNr"> 2976 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/11"</span>) -<span id="L2977" class="LineNr"> 2977 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/12"</span>) -<span id="L2978" class="LineNr"> 2978 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/13"</span>) -<span id="L2979" class="LineNr"> 2979 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/14"</span>) -<span id="L2980" class="LineNr"> 2980 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"g:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/15"</span>) -<span id="L2981" class="LineNr"> 2981 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/16"</span>) -<span id="L2982" class="LineNr"> 2982 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/17"</span>) -<span id="L2983" class="LineNr"> 2983 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/18"</span>) -<span id="L2984" class="LineNr"> 2984 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/19"</span>) -<span id="L2985" class="LineNr"> 2985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/20"</span>) -<span id="L2986" class="LineNr"> 2986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/21"</span>) -<span id="L2987" class="LineNr"> 2987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2939'>test-convert-function-call-with-inout-with-compound-type</a>/22"</span>) -<span id="L2988" class="LineNr"> 2988 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2989" class="LineNr"> 2989 </span> 89/<- %esp 5/r32/ebp -<span id="L2990" class="LineNr"> 2990 </span> 5d/pop-to-ebp -<span id="L2991" class="LineNr"> 2991 </span> c3/return -<span id="L2992" class="LineNr"> 2992 </span> -<span id="L2993" class="LineNr"> 2993 </span><span class="subxTest">test-convert-function-call-with-inout-with-type-parameter</span>: -<span id="L2994" class="LineNr"> 2994 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2995" class="LineNr"> 2995 </span> 55/push-ebp -<span id="L2996" class="LineNr"> 2996 </span> 89/<- %ebp 4/r32/esp -<span id="L2997" class="LineNr"> 2997 </span> <span class="subxComment"># setup</span> -<span id="L2998" class="LineNr"> 2998 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L2999" class="LineNr"> 2999 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3000" class="LineNr"> 3000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3001" class="LineNr"> 3001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3002" class="LineNr"> 3002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3003" class="LineNr"> 3003 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3004" class="LineNr"> 3004 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3005" class="LineNr"> 3005 </span> 68/push 0/imm32 -<span id="L3006" class="LineNr"> 3006 </span> 68/push 0/imm32 -<span id="L3007" class="LineNr"> 3007 </span> 89/<- %edx 4/r32/esp -<span id="L3008" class="LineNr"> 3008 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3009" class="LineNr"> 3009 </span> <span class="subxComment">#</span> -<span id="L3010" class="LineNr"> 3010 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3011" class="LineNr"> 3011 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L3012" class="LineNr"> 3012 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3013" class="LineNr"> 3013 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3014" class="LineNr"> 3014 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) -<span id="L3015" class="LineNr"> 3015 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3016" class="LineNr"> 3016 </span> <span class="subxComment"># convert</span> -<span id="L3017" class="LineNr"> 3017 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3018" class="LineNr"> 3018 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3019" class="LineNr"> 3019 </span> <span class="subxComment"># restore ed</span> -<span id="L3020" class="LineNr"> 3020 </span> 89/<- %edx 4/r32/esp -<span id="L3021" class="LineNr"> 3021 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3022" class="LineNr"> 3022 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3023" class="Folded"> 3023 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3029" class="LineNr"> 3029 </span> <span class="subxComment"># no error; types matched</span> -<span id="L3030" class="LineNr"> 3030 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2993'>test-convert-function-call-with-inout-with-type-parameter</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L3031" class="LineNr"> 3031 </span> <span class="subxComment"># don't bother checking the generated code; that's in the test 'test-local-clobbered-by-fn-output' below</span> -<span id="L3032" class="LineNr"> 3032 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3033" class="LineNr"> 3033 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3034" class="LineNr"> 3034 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3035" class="LineNr"> 3035 </span> 5d/pop-to-ebp -<span id="L3036" class="LineNr"> 3036 </span> c3/return -<span id="L3037" class="LineNr"> 3037 </span> -<span id="L3038" class="LineNr"> 3038 </span><span class="subxTest">test-convert-function-call-with-incorrect-inout-type</span>: -<span id="L3039" class="LineNr"> 3039 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3040" class="LineNr"> 3040 </span> 55/push-ebp -<span id="L3041" class="LineNr"> 3041 </span> 89/<- %ebp 4/r32/esp -<span id="L3042" class="LineNr"> 3042 </span> <span class="subxComment"># setup</span> -<span id="L3043" class="LineNr"> 3043 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3044" class="LineNr"> 3044 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3045" class="LineNr"> 3045 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3046" class="LineNr"> 3046 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3047" class="LineNr"> 3047 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3048" class="LineNr"> 3048 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3049" class="LineNr"> 3049 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3050" class="LineNr"> 3050 </span> 68/push 0/imm32 -<span id="L3051" class="LineNr"> 3051 </span> 68/push 0/imm32 -<span id="L3052" class="LineNr"> 3052 </span> 89/<- %edx 4/r32/esp -<span id="L3053" class="LineNr"> 3053 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3054" class="LineNr"> 3054 </span> <span class="subxComment">#</span> -<span id="L3055" class="LineNr"> 3055 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3056" class="LineNr"> 3056 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L3057" class="LineNr"> 3057 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3058" class="LineNr"> 3058 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3059" class="LineNr"> 3059 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: foo {\n"</span>) -<span id="L3060" class="LineNr"> 3060 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3061" class="LineNr"> 3061 </span> <span class="subxComment"># convert</span> -<span id="L3062" class="LineNr"> 3062 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3063" class="LineNr"> 3063 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3064" class="LineNr"> 3064 </span> <span class="subxComment"># restore ed</span> -<span id="L3065" class="LineNr"> 3065 </span> 89/<- %edx 4/r32/esp -<span id="L3066" class="LineNr"> 3066 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3067" class="LineNr"> 3067 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3068" class="Folded"> 3068 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3074" class="LineNr"> 3074 </span> <span class="subxComment"># check output</span> -<span id="L3075" class="LineNr"> 3075 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3038'>test-convert-function-call-with-incorrect-inout-type</a>: output should be empty"</span>) -<span id="L3076" class="LineNr"> 3076 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3038'>test-convert-function-call-with-incorrect-inout-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3077" class="LineNr"> 3077 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3078" class="LineNr"> 3078 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3038'>test-convert-function-call-with-incorrect-inout-type</a>: exit status"</span>) -<span id="L3079" class="LineNr"> 3079 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3080" class="LineNr"> 3080 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3081" class="LineNr"> 3081 </span> 5d/pop-to-ebp -<span id="L3082" class="LineNr"> 3082 </span> c3/return -<span id="L3083" class="LineNr"> 3083 </span> -<span id="L3084" class="LineNr"> 3084 </span><span class="subxTest">test-convert-function-call-with-inout-with-incorrect-compound-type</span>: -<span id="L3085" class="LineNr"> 3085 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3086" class="LineNr"> 3086 </span> 55/push-ebp -<span id="L3087" class="LineNr"> 3087 </span> 89/<- %ebp 4/r32/esp -<span id="L3088" class="LineNr"> 3088 </span> <span class="subxComment"># setup</span> -<span id="L3089" class="LineNr"> 3089 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3090" class="LineNr"> 3090 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3091" class="LineNr"> 3091 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3092" class="LineNr"> 3092 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3093" class="LineNr"> 3093 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3094" class="LineNr"> 3094 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3095" class="LineNr"> 3095 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3096" class="LineNr"> 3096 </span> 68/push 0/imm32 -<span id="L3097" class="LineNr"> 3097 </span> 68/push 0/imm32 -<span id="L3098" class="LineNr"> 3098 </span> 89/<- %edx 4/r32/esp -<span id="L3099" class="LineNr"> 3099 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3100" class="LineNr"> 3100 </span> <span class="subxComment">#</span> -<span id="L3101" class="LineNr"> 3101 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3102" class="LineNr"> 3102 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L3103" class="LineNr"> 3103 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3104" class="LineNr"> 3104 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3105" class="LineNr"> 3105 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr bool) {\n"</span>) -<span id="L3106" class="LineNr"> 3106 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3107" class="LineNr"> 3107 </span> <span class="subxComment"># convert</span> -<span id="L3108" class="LineNr"> 3108 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3109" class="LineNr"> 3109 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3110" class="LineNr"> 3110 </span> <span class="subxComment"># restore ed</span> -<span id="L3111" class="LineNr"> 3111 </span> 89/<- %edx 4/r32/esp -<span id="L3112" class="LineNr"> 3112 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3113" class="LineNr"> 3113 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3114" class="Folded"> 3114 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3120" class="LineNr"> 3120 </span> <span class="subxComment"># check output</span> -<span id="L3121" class="LineNr"> 3121 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3084'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: output should be empty"</span>) -<span id="L3122" class="LineNr"> 3122 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3084'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3123" class="LineNr"> 3123 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3124" class="LineNr"> 3124 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3125" class="LineNr"> 3125 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3126" class="LineNr"> 3126 </span> 5d/pop-to-ebp -<span id="L3127" class="LineNr"> 3127 </span> c3/return -<span id="L3128" class="LineNr"> 3128 </span> -<span id="L3129" class="LineNr"> 3129 </span><span class="subxTest">test-convert-function-call-with-inout-with-multiple-type-parameters</span>: -<span id="L3130" class="LineNr"> 3130 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3131" class="LineNr"> 3131 </span> 55/push-ebp -<span id="L3132" class="LineNr"> 3132 </span> 89/<- %ebp 4/r32/esp -<span id="L3133" class="LineNr"> 3133 </span> <span class="subxComment"># setup</span> -<span id="L3134" class="LineNr"> 3134 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3135" class="LineNr"> 3135 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3136" class="LineNr"> 3136 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3137" class="LineNr"> 3137 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3138" class="LineNr"> 3138 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3139" class="LineNr"> 3139 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3140" class="LineNr"> 3140 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3141" class="LineNr"> 3141 </span> 68/push 0/imm32 -<span id="L3142" class="LineNr"> 3142 </span> 68/push 0/imm32 -<span id="L3143" class="LineNr"> 3143 </span> 89/<- %edx 4/r32/esp -<span id="L3144" class="LineNr"> 3144 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3145" class="LineNr"> 3145 </span> <span class="subxComment">#</span> -<span id="L3146" class="LineNr"> 3146 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3147" class="LineNr"> 3147 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L3148" class="LineNr"> 3148 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) -<span id="L3149" class="LineNr"> 3149 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) -<span id="L3150" class="LineNr"> 3150 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3151" class="LineNr"> 3151 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _), b: (addr _) {\n"</span>) -<span id="L3152" class="LineNr"> 3152 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3153" class="LineNr"> 3153 </span> <span class="subxComment"># convert</span> -<span id="L3154" class="LineNr"> 3154 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3155" class="LineNr"> 3155 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3156" class="LineNr"> 3156 </span> <span class="subxComment"># restore ed</span> -<span id="L3157" class="LineNr"> 3157 </span> 89/<- %edx 4/r32/esp -<span id="L3158" class="LineNr"> 3158 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3159" class="LineNr"> 3159 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3160" class="Folded"> 3160 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3166" class="LineNr"> 3166 </span> <span class="subxComment"># no errors</span> -<span id="L3167" class="LineNr"> 3167 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3129'>test-convert-function-call-with-inout-with-multiple-type-parameters</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L3168" class="LineNr"> 3168 </span> <span class="subxComment"># don't bother checking the generated code</span> -<span id="L3169" class="LineNr"> 3169 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3170" class="LineNr"> 3170 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3171" class="LineNr"> 3171 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3172" class="LineNr"> 3172 </span> 5d/pop-to-ebp -<span id="L3173" class="LineNr"> 3173 </span> c3/return -<span id="L3174" class="LineNr"> 3174 </span> -<span id="L3175" class="LineNr"> 3175 </span><span class="subxTest">test-type-parameter-matches-rest-of-type</span>: -<span id="L3176" class="LineNr"> 3176 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3177" class="LineNr"> 3177 </span> 55/push-ebp -<span id="L3178" class="LineNr"> 3178 </span> 89/<- %ebp 4/r32/esp -<span id="L3179" class="LineNr"> 3179 </span> <span class="subxComment"># setup</span> -<span id="L3180" class="LineNr"> 3180 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3181" class="LineNr"> 3181 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3182" class="LineNr"> 3182 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3183" class="LineNr"> 3183 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3184" class="LineNr"> 3184 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3185" class="LineNr"> 3185 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3186" class="LineNr"> 3186 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3187" class="LineNr"> 3187 </span> 68/push 0/imm32 -<span id="L3188" class="LineNr"> 3188 </span> 68/push 0/imm32 -<span id="L3189" class="LineNr"> 3189 </span> 89/<- %edx 4/r32/esp -<span id="L3190" class="LineNr"> 3190 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3191" class="LineNr"> 3191 </span> <span class="subxComment">#</span> -<span id="L3192" class="LineNr"> 3192 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3193" class="LineNr"> 3193 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr array int)\n"</span>) -<span id="L3194" class="LineNr"> 3194 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3195" class="LineNr"> 3195 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3196" class="LineNr"> 3196 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) -<span id="L3197" class="LineNr"> 3197 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3198" class="LineNr"> 3198 </span> <span class="subxComment"># convert</span> -<span id="L3199" class="LineNr"> 3199 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3200" class="LineNr"> 3200 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3201" class="LineNr"> 3201 </span> <span class="subxComment"># restore ed</span> -<span id="L3202" class="LineNr"> 3202 </span> 89/<- %edx 4/r32/esp -<span id="L3203" class="LineNr"> 3203 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3204" class="LineNr"> 3204 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3205" class="Folded"> 3205 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3211" class="LineNr"> 3211 </span> <span class="subxComment"># no errors</span> -<span id="L3212" class="LineNr"> 3212 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3175'>test-type-parameter-matches-rest-of-type</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L3213" class="LineNr"> 3213 </span> <span class="subxComment"># don't bother checking the generated code</span> -<span id="L3214" class="LineNr"> 3214 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3215" class="LineNr"> 3215 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3216" class="LineNr"> 3216 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3217" class="LineNr"> 3217 </span> 5d/pop-to-ebp -<span id="L3218" class="LineNr"> 3218 </span> c3/return -<span id="L3219" class="LineNr"> 3219 </span> -<span id="L3220" class="LineNr"> 3220 </span><span class="subxTest">test-convert-function-call-with-inout-with-incompatible-type-parameters</span>: -<span id="L3221" class="LineNr"> 3221 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3222" class="LineNr"> 3222 </span> 55/push-ebp -<span id="L3223" class="LineNr"> 3223 </span> 89/<- %ebp 4/r32/esp -<span id="L3224" class="LineNr"> 3224 </span> <span class="subxComment"># setup</span> -<span id="L3225" class="LineNr"> 3225 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3226" class="LineNr"> 3226 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3227" class="LineNr"> 3227 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3228" class="LineNr"> 3228 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3229" class="LineNr"> 3229 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3230" class="LineNr"> 3230 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3231" class="LineNr"> 3231 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3232" class="LineNr"> 3232 </span> 68/push 0/imm32 -<span id="L3233" class="LineNr"> 3233 </span> 68/push 0/imm32 -<span id="L3234" class="LineNr"> 3234 </span> 89/<- %edx 4/r32/esp -<span id="L3235" class="LineNr"> 3235 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3236" class="LineNr"> 3236 </span> <span class="subxComment">#</span> -<span id="L3237" class="LineNr"> 3237 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3238" class="LineNr"> 3238 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L3239" class="LineNr"> 3239 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr boolean)\n"</span>) -<span id="L3240" class="LineNr"> 3240 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) -<span id="L3241" class="LineNr"> 3241 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3242" class="LineNr"> 3242 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _T), b: (addr _T) {\n"</span>) -<span id="L3243" class="LineNr"> 3243 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3244" class="LineNr"> 3244 </span> <span class="subxComment"># convert</span> -<span id="L3245" class="LineNr"> 3245 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3246" class="LineNr"> 3246 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3247" class="LineNr"> 3247 </span> <span class="subxComment"># restore ed</span> -<span id="L3248" class="LineNr"> 3248 </span> 89/<- %edx 4/r32/esp -<span id="L3249" class="LineNr"> 3249 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3250" class="LineNr"> 3250 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3251" class="Folded"> 3251 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3257" class="LineNr"> 3257 </span> <span class="subxComment"># check output</span> -<span id="L3258" class="LineNr"> 3258 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3220'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: output should be empty"</span>) -<span id="L3259" class="LineNr"> 3259 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'y' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3220'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3260" class="LineNr"> 3260 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3261" class="LineNr"> 3261 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3262" class="LineNr"> 3262 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3263" class="LineNr"> 3263 </span> 5d/pop-to-ebp -<span id="L3264" class="LineNr"> 3264 </span> c3/return -<span id="L3265" class="LineNr"> 3265 </span> -<span id="L3266" class="LineNr"> 3266 </span><span class="subxTest">test-convert-function-call-with-too-few-inouts</span>: -<span id="L3267" class="LineNr"> 3267 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3268" class="LineNr"> 3268 </span> 55/push-ebp -<span id="L3269" class="LineNr"> 3269 </span> 89/<- %ebp 4/r32/esp -<span id="L3270" class="LineNr"> 3270 </span> <span class="subxComment"># setup</span> -<span id="L3271" class="LineNr"> 3271 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3272" class="LineNr"> 3272 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3273" class="LineNr"> 3273 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3274" class="LineNr"> 3274 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3275" class="LineNr"> 3275 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3276" class="LineNr"> 3276 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3277" class="LineNr"> 3277 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3278" class="LineNr"> 3278 </span> 68/push 0/imm32 -<span id="L3279" class="LineNr"> 3279 </span> 68/push 0/imm32 -<span id="L3280" class="LineNr"> 3280 </span> 89/<- %edx 4/r32/esp -<span id="L3281" class="LineNr"> 3281 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3282" class="LineNr"> 3282 </span> <span class="subxComment">#</span> -<span id="L3283" class="LineNr"> 3283 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3284" class="LineNr"> 3284 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) -<span id="L3285" class="LineNr"> 3285 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3286" class="LineNr"> 3286 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: int {\n"</span>) -<span id="L3287" class="LineNr"> 3287 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3288" class="LineNr"> 3288 </span> <span class="subxComment"># convert</span> -<span id="L3289" class="LineNr"> 3289 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3290" class="LineNr"> 3290 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3291" class="LineNr"> 3291 </span> <span class="subxComment"># restore ed</span> -<span id="L3292" class="LineNr"> 3292 </span> 89/<- %edx 4/r32/esp -<span id="L3293" class="LineNr"> 3293 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3294" class="LineNr"> 3294 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3295" class="Folded"> 3295 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3301" class="LineNr"> 3301 </span> <span class="subxComment"># check output</span> -<span id="L3302" class="LineNr"> 3302 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3266'>test-convert-function-call-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L3303" class="LineNr"> 3303 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3266'>test-convert-function-call-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3304" class="LineNr"> 3304 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3305" class="LineNr"> 3305 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3266'>test-convert-function-call-with-too-few-inouts</a>: exit status"</span>) -<span id="L3306" class="LineNr"> 3306 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3307" class="LineNr"> 3307 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3308" class="LineNr"> 3308 </span> 5d/pop-to-ebp -<span id="L3309" class="LineNr"> 3309 </span> c3/return -<span id="L3310" class="LineNr"> 3310 </span> -<span id="L3311" class="LineNr"> 3311 </span><span class="subxTest">test-convert-function-call-with-too-many-inouts</span>: -<span id="L3312" class="LineNr"> 3312 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3313" class="LineNr"> 3313 </span> 55/push-ebp -<span id="L3314" class="LineNr"> 3314 </span> 89/<- %ebp 4/r32/esp -<span id="L3315" class="LineNr"> 3315 </span> <span class="subxComment"># setup</span> -<span id="L3316" class="LineNr"> 3316 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3317" class="LineNr"> 3317 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3318" class="LineNr"> 3318 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3319" class="LineNr"> 3319 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3320" class="LineNr"> 3320 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3321" class="LineNr"> 3321 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3322" class="LineNr"> 3322 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3323" class="LineNr"> 3323 </span> 68/push 0/imm32 -<span id="L3324" class="LineNr"> 3324 </span> 68/push 0/imm32 -<span id="L3325" class="LineNr"> 3325 </span> 89/<- %edx 4/r32/esp -<span id="L3326" class="LineNr"> 3326 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3327" class="LineNr"> 3327 </span> <span class="subxComment">#</span> -<span id="L3328" class="LineNr"> 3328 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3329" class="LineNr"> 3329 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L3330" class="LineNr"> 3330 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) -<span id="L3331" class="LineNr"> 3331 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3332" class="LineNr"> 3332 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) -<span id="L3333" class="LineNr"> 3333 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3334" class="LineNr"> 3334 </span> <span class="subxComment"># convert</span> -<span id="L3335" class="LineNr"> 3335 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3336" class="LineNr"> 3336 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3337" class="LineNr"> 3337 </span> <span class="subxComment"># restore ed</span> -<span id="L3338" class="LineNr"> 3338 </span> 89/<- %edx 4/r32/esp -<span id="L3339" class="LineNr"> 3339 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3340" class="LineNr"> 3340 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3341" class="Folded"> 3341 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3347" class="LineNr"> 3347 </span> <span class="subxComment"># check output</span> -<span id="L3348" class="LineNr"> 3348 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3311'>test-convert-function-call-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L3349" class="LineNr"> 3349 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3311'>test-convert-function-call-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3350" class="LineNr"> 3350 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3351" class="LineNr"> 3351 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3311'>test-convert-function-call-with-too-many-inouts</a>: exit status"</span>) -<span id="L3352" class="LineNr"> 3352 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3353" class="LineNr"> 3353 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3354" class="LineNr"> 3354 </span> 5d/pop-to-ebp -<span id="L3355" class="LineNr"> 3355 </span> c3/return -<span id="L3356" class="LineNr"> 3356 </span> -<span id="L3357" class="LineNr"> 3357 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-type</span>: -<span id="L3358" class="LineNr"> 3358 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3359" class="LineNr"> 3359 </span> 55/push-ebp -<span id="L3360" class="LineNr"> 3360 </span> 89/<- %ebp 4/r32/esp -<span id="L3361" class="LineNr"> 3361 </span> <span class="subxComment"># setup</span> -<span id="L3362" class="LineNr"> 3362 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3363" class="LineNr"> 3363 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3364" class="LineNr"> 3364 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3365" class="LineNr"> 3365 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3366" class="LineNr"> 3366 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3367" class="LineNr"> 3367 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3368" class="LineNr"> 3368 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3369" class="LineNr"> 3369 </span> 68/push 0/imm32 -<span id="L3370" class="LineNr"> 3370 </span> 68/push 0/imm32 -<span id="L3371" class="LineNr"> 3371 </span> 89/<- %edx 4/r32/esp -<span id="L3372" class="LineNr"> 3372 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3373" class="LineNr"> 3373 </span> <span class="subxComment">#</span> -<span id="L3374" class="LineNr"> 3374 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3375" class="LineNr"> 3375 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) -<span id="L3376" class="LineNr"> 3376 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3377" class="LineNr"> 3377 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: foo {\n"</span>) -<span id="L3378" class="LineNr"> 3378 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3379" class="LineNr"> 3379 </span> <span class="subxComment"># convert</span> -<span id="L3380" class="LineNr"> 3380 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3381" class="LineNr"> 3381 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3382" class="LineNr"> 3382 </span> <span class="subxComment"># restore ed</span> -<span id="L3383" class="LineNr"> 3383 </span> 89/<- %edx 4/r32/esp -<span id="L3384" class="LineNr"> 3384 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3385" class="LineNr"> 3385 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3386" class="Folded"> 3386 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3392" class="LineNr"> 3392 </span> <span class="subxComment"># check output</span> -<span id="L3393" class="LineNr"> 3393 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3357'>test-convert-function-call-with-incorrect-output-type</a>: output should be empty"</span>) -<span id="L3394" class="LineNr"> 3394 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3357'>test-convert-function-call-with-incorrect-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3395" class="LineNr"> 3395 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3396" class="LineNr"> 3396 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3357'>test-convert-function-call-with-incorrect-output-type</a>: exit status"</span>) -<span id="L3397" class="LineNr"> 3397 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3398" class="LineNr"> 3398 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3399" class="LineNr"> 3399 </span> 5d/pop-to-ebp -<span id="L3400" class="LineNr"> 3400 </span> c3/return -<span id="L3401" class="LineNr"> 3401 </span> -<span id="L3402" class="LineNr"> 3402 </span><span class="subxTest">test-convert-function-call-with-too-few-outputs</span>: -<span id="L3403" class="LineNr"> 3403 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3404" class="LineNr"> 3404 </span> 55/push-ebp -<span id="L3405" class="LineNr"> 3405 </span> 89/<- %ebp 4/r32/esp -<span id="L3406" class="LineNr"> 3406 </span> <span class="subxComment"># setup</span> -<span id="L3407" class="LineNr"> 3407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3408" class="LineNr"> 3408 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3409" class="LineNr"> 3409 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3410" class="LineNr"> 3410 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3411" class="LineNr"> 3411 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3412" class="LineNr"> 3412 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3413" class="LineNr"> 3413 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3414" class="LineNr"> 3414 </span> 68/push 0/imm32 -<span id="L3415" class="LineNr"> 3415 </span> 68/push 0/imm32 -<span id="L3416" class="LineNr"> 3416 </span> 89/<- %edx 4/r32/esp -<span id="L3417" class="LineNr"> 3417 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3418" class="LineNr"> 3418 </span> <span class="subxComment">#</span> -<span id="L3419" class="LineNr"> 3419 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3420" class="LineNr"> 3420 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) -<span id="L3421" class="LineNr"> 3421 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3422" class="LineNr"> 3422 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) -<span id="L3423" class="LineNr"> 3423 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3424" class="LineNr"> 3424 </span> <span class="subxComment"># convert</span> -<span id="L3425" class="LineNr"> 3425 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3426" class="LineNr"> 3426 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3427" class="LineNr"> 3427 </span> <span class="subxComment"># restore ed</span> -<span id="L3428" class="LineNr"> 3428 </span> 89/<- %edx 4/r32/esp -<span id="L3429" class="LineNr"> 3429 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3430" class="LineNr"> 3430 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3431" class="Folded"> 3431 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3437" class="LineNr"> 3437 </span> <span class="subxComment"># check output</span> -<span id="L3438" class="LineNr"> 3438 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3402'>test-convert-function-call-with-too-few-outputs</a>: output should be empty"</span>) -<span id="L3439" class="LineNr"> 3439 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3402'>test-convert-function-call-with-too-few-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3440" class="LineNr"> 3440 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3441" class="LineNr"> 3441 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3402'>test-convert-function-call-with-too-few-outputs</a>: exit status"</span>) -<span id="L3442" class="LineNr"> 3442 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3443" class="LineNr"> 3443 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3444" class="LineNr"> 3444 </span> 5d/pop-to-ebp -<span id="L3445" class="LineNr"> 3445 </span> c3/return -<span id="L3446" class="LineNr"> 3446 </span> -<span id="L3447" class="LineNr"> 3447 </span><span class="subxTest">test-convert-function-call-with-too-many-outputs</span>: -<span id="L3448" class="LineNr"> 3448 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3449" class="LineNr"> 3449 </span> 55/push-ebp -<span id="L3450" class="LineNr"> 3450 </span> 89/<- %ebp 4/r32/esp -<span id="L3451" class="LineNr"> 3451 </span> <span class="subxComment"># setup</span> -<span id="L3452" class="LineNr"> 3452 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3453" class="LineNr"> 3453 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3454" class="LineNr"> 3454 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3455" class="LineNr"> 3455 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3456" class="LineNr"> 3456 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3457" class="LineNr"> 3457 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3458" class="LineNr"> 3458 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3459" class="LineNr"> 3459 </span> 68/push 0/imm32 -<span id="L3460" class="LineNr"> 3460 </span> 68/push 0/imm32 -<span id="L3461" class="LineNr"> 3461 </span> 89/<- %edx 4/r32/esp -<span id="L3462" class="LineNr"> 3462 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3463" class="LineNr"> 3463 </span> <span class="subxComment">#</span> -<span id="L3464" class="LineNr"> 3464 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3465" class="LineNr"> 3465 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) -<span id="L3466" class="LineNr"> 3466 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3467" class="LineNr"> 3467 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) -<span id="L3468" class="LineNr"> 3468 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3469" class="LineNr"> 3469 </span> <span class="subxComment"># convert</span> -<span id="L3470" class="LineNr"> 3470 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3471" class="LineNr"> 3471 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3472" class="LineNr"> 3472 </span> <span class="subxComment"># restore ed</span> -<span id="L3473" class="LineNr"> 3473 </span> 89/<- %edx 4/r32/esp -<span id="L3474" class="LineNr"> 3474 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3475" class="LineNr"> 3475 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3476" class="Folded"> 3476 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3482" class="LineNr"> 3482 </span> <span class="subxComment"># check output</span> -<span id="L3483" class="LineNr"> 3483 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3447'>test-convert-function-call-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L3484" class="LineNr"> 3484 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3447'>test-convert-function-call-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3485" class="LineNr"> 3485 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3486" class="LineNr"> 3486 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3447'>test-convert-function-call-with-too-many-outputs</a>: exit status"</span>) -<span id="L3487" class="LineNr"> 3487 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3488" class="LineNr"> 3488 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3489" class="LineNr"> 3489 </span> 5d/pop-to-ebp -<span id="L3490" class="LineNr"> 3490 </span> c3/return -<span id="L3491" class="LineNr"> 3491 </span> -<span id="L3492" class="LineNr"> 3492 </span><span class="subxTest">test-convert-function-call-with-missing-output-register</span>: -<span id="L3493" class="LineNr"> 3493 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3494" class="LineNr"> 3494 </span> 55/push-ebp -<span id="L3495" class="LineNr"> 3495 </span> 89/<- %ebp 4/r32/esp -<span id="L3496" class="LineNr"> 3496 </span> <span class="subxComment"># setup</span> -<span id="L3497" class="LineNr"> 3497 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3498" class="LineNr"> 3498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3499" class="LineNr"> 3499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3500" class="LineNr"> 3500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3501" class="LineNr"> 3501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3502" class="LineNr"> 3502 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3503" class="LineNr"> 3503 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3504" class="LineNr"> 3504 </span> 68/push 0/imm32 -<span id="L3505" class="LineNr"> 3505 </span> 68/push 0/imm32 -<span id="L3506" class="LineNr"> 3506 </span> 89/<- %edx 4/r32/esp -<span id="L3507" class="LineNr"> 3507 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3508" class="LineNr"> 3508 </span> <span class="subxComment">#</span> -<span id="L3509" class="LineNr"> 3509 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3510" class="LineNr"> 3510 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L3511" class="LineNr"> 3511 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- g\n"</span>) -<span id="L3512" class="LineNr"> 3512 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3513" class="LineNr"> 3513 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) -<span id="L3514" class="LineNr"> 3514 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3515" class="LineNr"> 3515 </span> <span class="subxComment"># convert</span> -<span id="L3516" class="LineNr"> 3516 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3517" class="LineNr"> 3517 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3518" class="LineNr"> 3518 </span> <span class="subxComment"># restore ed</span> -<span id="L3519" class="LineNr"> 3519 </span> 89/<- %edx 4/r32/esp -<span id="L3520" class="LineNr"> 3520 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3521" class="LineNr"> 3521 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3522" class="Folded"> 3522 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3528" class="LineNr"> 3528 </span> <span class="subxComment"># check output</span> -<span id="L3529" class="LineNr"> 3529 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3492'>test-convert-function-call-with-missing-output-register</a>: output should be empty"</span>) -<span id="L3530" class="LineNr"> 3530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: output 'x' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L3492'>test-convert-function-call-with-missing-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3531" class="LineNr"> 3531 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3532" class="LineNr"> 3532 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3492'>test-convert-function-call-with-missing-output-register</a>: exit status"</span>) -<span id="L3533" class="LineNr"> 3533 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3534" class="LineNr"> 3534 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3535" class="LineNr"> 3535 </span> 5d/pop-to-ebp -<span id="L3536" class="LineNr"> 3536 </span> c3/return -<span id="L3537" class="LineNr"> 3537 </span> -<span id="L3538" class="LineNr"> 3538 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-register</span>: -<span id="L3539" class="LineNr"> 3539 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3540" class="LineNr"> 3540 </span> 55/push-ebp -<span id="L3541" class="LineNr"> 3541 </span> 89/<- %ebp 4/r32/esp -<span id="L3542" class="LineNr"> 3542 </span> <span class="subxComment"># setup</span> -<span id="L3543" class="LineNr"> 3543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3544" class="LineNr"> 3544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3545" class="LineNr"> 3545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3546" class="LineNr"> 3546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3547" class="LineNr"> 3547 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3548" class="LineNr"> 3548 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3549" class="LineNr"> 3549 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3550" class="LineNr"> 3550 </span> 68/push 0/imm32 -<span id="L3551" class="LineNr"> 3551 </span> 68/push 0/imm32 -<span id="L3552" class="LineNr"> 3552 </span> 89/<- %edx 4/r32/esp -<span id="L3553" class="LineNr"> 3553 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3554" class="LineNr"> 3554 </span> <span class="subxComment">#</span> -<span id="L3555" class="LineNr"> 3555 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L3556" class="LineNr"> 3556 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- g\n"</span>) -<span id="L3557" class="LineNr"> 3557 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3558" class="LineNr"> 3558 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) -<span id="L3559" class="LineNr"> 3559 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3560" class="LineNr"> 3560 </span> <span class="subxComment"># convert</span> -<span id="L3561" class="LineNr"> 3561 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3562" class="LineNr"> 3562 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3563" class="LineNr"> 3563 </span> <span class="subxComment"># restore ed</span> -<span id="L3564" class="LineNr"> 3564 </span> 89/<- %edx 4/r32/esp -<span id="L3565" class="LineNr"> 3565 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3566" class="LineNr"> 3566 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3567" class="Folded"> 3567 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3573" class="LineNr"> 3573 </span> <span class="subxComment"># check output</span> -<span id="L3574" class="LineNr"> 3574 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3538'>test-convert-function-call-with-incorrect-output-register</a>: output should be empty"</span>) -<span id="L3575" class="LineNr"> 3575 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn f: call g: register for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3538'>test-convert-function-call-with-incorrect-output-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3576" class="LineNr"> 3576 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3577" class="LineNr"> 3577 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3538'>test-convert-function-call-with-incorrect-output-register</a>: exit status"</span>) -<span id="L3578" class="LineNr"> 3578 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3579" class="LineNr"> 3579 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3580" class="LineNr"> 3580 </span> 5d/pop-to-ebp -<span id="L3581" class="LineNr"> 3581 </span> c3/return -<span id="L3582" class="LineNr"> 3582 </span> -<span id="L3583" class="LineNr"> 3583 </span><span class="subxTest">test-convert-function-with-local-var-dereferenced</span>: -<span id="L3584" class="LineNr"> 3584 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3585" class="LineNr"> 3585 </span> 55/push-ebp -<span id="L3586" class="LineNr"> 3586 </span> 89/<- %ebp 4/r32/esp -<span id="L3587" class="LineNr"> 3587 </span> <span class="subxComment"># setup</span> -<span id="L3588" class="LineNr"> 3588 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3589" class="LineNr"> 3589 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3590" class="LineNr"> 3590 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3591" class="LineNr"> 3591 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3592" class="LineNr"> 3592 </span> <span class="subxComment">#</span> -<span id="L3593" class="LineNr"> 3593 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3594" class="LineNr"> 3594 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr int) <- copy 0\n"</span>) -<span id="L3595" class="LineNr"> 3595 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment *x\n"</span>) -<span id="L3596" class="LineNr"> 3596 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3597" class="LineNr"> 3597 </span> <span class="subxComment"># convert</span> -<span id="L3598" class="LineNr"> 3598 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3599" class="LineNr"> 3599 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3600" class="Folded"> 3600 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3606" class="LineNr"> 3606 </span> <span class="subxComment"># check output</span> -<span id="L3607" class="LineNr"> 3607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/0"</span>) -<span id="L3608" class="LineNr"> 3608 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/1"</span>) -<span id="L3609" class="LineNr"> 3609 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/2"</span>) -<span id="L3610" class="LineNr"> 3610 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/3"</span>) -<span id="L3611" class="LineNr"> 3611 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/4"</span>) -<span id="L3612" class="LineNr"> 3612 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/5"</span>) -<span id="L3613" class="LineNr"> 3613 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/6"</span>) -<span id="L3614" class="LineNr"> 3614 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/7"</span>) -<span id="L3615" class="LineNr"> 3615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/8"</span>) -<span id="L3616" class="LineNr"> 3616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/9"</span>) -<span id="L3617" class="LineNr"> 3617 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/10"</span>) -<span id="L3618" class="LineNr"> 3618 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/11"</span>) -<span id="L3619" class="LineNr"> 3619 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/12"</span>) -<span id="L3620" class="LineNr"> 3620 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/13"</span>) -<span id="L3621" class="LineNr"> 3621 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/14"</span>) -<span id="L3622" class="LineNr"> 3622 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3583'>test-convert-function-with-local-var-dereferenced</a>/15"</span>) -<span id="L3623" class="LineNr"> 3623 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3624" class="LineNr"> 3624 </span> 89/<- %esp 5/r32/ebp -<span id="L3625" class="LineNr"> 3625 </span> 5d/pop-to-ebp -<span id="L3626" class="LineNr"> 3626 </span> c3/return -<span id="L3627" class="LineNr"> 3627 </span> -<span id="L3628" class="LineNr"> 3628 </span><span class="subxTest">test-dereference-of-var-on-stack</span>: -<span id="L3629" class="LineNr"> 3629 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3630" class="LineNr"> 3630 </span> 55/push-ebp -<span id="L3631" class="LineNr"> 3631 </span> 89/<- %ebp 4/r32/esp -<span id="L3632" class="LineNr"> 3632 </span> <span class="subxComment"># setup</span> -<span id="L3633" class="LineNr"> 3633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3634" class="LineNr"> 3634 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3635" class="LineNr"> 3635 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3636" class="LineNr"> 3636 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3637" class="LineNr"> 3637 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3638" class="LineNr"> 3638 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3639" class="LineNr"> 3639 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3640" class="LineNr"> 3640 </span> 68/push 0/imm32 -<span id="L3641" class="LineNr"> 3641 </span> 68/push 0/imm32 -<span id="L3642" class="LineNr"> 3642 </span> 89/<- %edx 4/r32/esp -<span id="L3643" class="LineNr"> 3643 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3644" class="LineNr"> 3644 </span> <span class="subxComment">#</span> -<span id="L3645" class="LineNr"> 3645 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3646" class="LineNr"> 3646 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L3647" class="LineNr"> 3647 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment *x\n"</span>) -<span id="L3648" class="LineNr"> 3648 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3649" class="LineNr"> 3649 </span> <span class="subxComment"># convert</span> -<span id="L3650" class="LineNr"> 3650 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3651" class="LineNr"> 3651 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3652" class="LineNr"> 3652 </span> <span class="subxComment"># restore ed</span> -<span id="L3653" class="LineNr"> 3653 </span> 89/<- %edx 4/r32/esp -<span id="L3654" class="LineNr"> 3654 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3655" class="LineNr"> 3655 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3656" class="Folded"> 3656 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3662" class="LineNr"> 3662 </span> <span class="subxComment"># check output</span> -<span id="L3663" class="LineNr"> 3663 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3628'>test-dereference-of-var-on-stack</a>: output should be empty"</span>) -<span id="L3664" class="LineNr"> 3664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: cannot dereference var 'x' on stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3628'>test-dereference-of-var-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3665" class="LineNr"> 3665 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3666" class="LineNr"> 3666 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3628'>test-dereference-of-var-on-stack</a>: exit status"</span>) -<span id="L3667" class="LineNr"> 3667 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3668" class="LineNr"> 3668 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3669" class="LineNr"> 3669 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3670" class="LineNr"> 3670 </span> 5d/pop-to-ebp -<span id="L3671" class="LineNr"> 3671 </span> c3/return -<span id="L3672" class="LineNr"> 3672 </span> -<span id="L3673" class="LineNr"> 3673 </span><span class="subxTest">test-convert-function-with-byte-operations</span>: -<span id="L3674" class="LineNr"> 3674 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3675" class="LineNr"> 3675 </span> 55/push-ebp -<span id="L3676" class="LineNr"> 3676 </span> 89/<- %ebp 4/r32/esp -<span id="L3677" class="LineNr"> 3677 </span> <span class="subxComment"># setup</span> -<span id="L3678" class="LineNr"> 3678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3679" class="LineNr"> 3679 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3680" class="LineNr"> 3680 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3681" class="LineNr"> 3681 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3682" class="LineNr"> 3682 </span> <span class="subxComment">#</span> -<span id="L3683" class="LineNr"> 3683 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3684" class="LineNr"> 3684 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L3685" class="LineNr"> 3685 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy 0\n"</span>) -<span id="L3686" class="LineNr"> 3686 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte x\n"</span>) -<span id="L3687" class="LineNr"> 3687 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/edx: (addr byte) <- copy 0\n"</span>) -<span id="L3688" class="LineNr"> 3688 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte *z\n"</span>) -<span id="L3689" class="LineNr"> 3689 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *z, x\n"</span>) -<span id="L3690" class="LineNr"> 3690 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3691" class="LineNr"> 3691 </span> <span class="subxComment"># convert</span> -<span id="L3692" class="LineNr"> 3692 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3693" class="LineNr"> 3693 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3694" class="Folded"> 3694 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3700" class="LineNr"> 3700 </span> <span class="subxComment"># check output</span> -<span id="L3701" class="LineNr"> 3701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/0"</span>) -<span id="L3702" class="LineNr"> 3702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/1"</span>) -<span id="L3703" class="LineNr"> 3703 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/2"</span>) -<span id="L3704" class="LineNr"> 3704 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/3"</span>) -<span id="L3705" class="LineNr"> 3705 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/4"</span>) -<span id="L3706" class="LineNr"> 3706 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/5"</span>) -<span id="L3707" class="LineNr"> 3707 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/6"</span>) -<span id="L3708" class="LineNr"> 3708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/7"</span>) -<span id="L3709" class="LineNr"> 3709 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/8"</span>) -<span id="L3710" class="LineNr"> 3710 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/9"</span>) -<span id="L3711" class="LineNr"> 3711 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8a/byte-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/10"</span>) -<span id="L3712" class="LineNr"> 3712 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/11"</span>) -<span id="L3713" class="LineNr"> 3713 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/12"</span>) -<span id="L3714" class="LineNr"> 3714 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/13"</span>) -<span id="L3715" class="LineNr"> 3715 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8a/byte-> *edx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/14"</span>) -<span id="L3716" class="LineNr"> 3716 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/15"</span>) -<span id="L3717" class="LineNr"> 3717 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 88/byte<- *edx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/16"</span>) -<span id="L3718" class="LineNr"> 3718 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/17"</span>) -<span id="L3719" class="LineNr"> 3719 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/18"</span>) -<span id="L3720" class="LineNr"> 3720 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/19"</span>) -<span id="L3721" class="LineNr"> 3721 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/20"</span>) -<span id="L3722" class="LineNr"> 3722 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/21"</span>) -<span id="L3723" class="LineNr"> 3723 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/22"</span>) -<span id="L3724" class="LineNr"> 3724 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/23"</span>) -<span id="L3725" class="LineNr"> 3725 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/24"</span>) -<span id="L3726" class="LineNr"> 3726 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3673'>test-convert-function-with-byte-operations</a>/25"</span>) -<span id="L3727" class="LineNr"> 3727 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3728" class="LineNr"> 3728 </span> 89/<- %esp 5/r32/ebp -<span id="L3729" class="LineNr"> 3729 </span> 5d/pop-to-ebp -<span id="L3730" class="LineNr"> 3730 </span> c3/return -<span id="L3731" class="LineNr"> 3731 </span> -<span id="L3732" class="LineNr"> 3732 </span><span class="subxComment"># variables of type 'byte' are not allowed on the stack</span> -<span id="L3733" class="LineNr"> 3733 </span><span class="subxTest">test-byte-values-on-stack</span>: -<span id="L3734" class="LineNr"> 3734 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3735" class="LineNr"> 3735 </span> 55/push-ebp -<span id="L3736" class="LineNr"> 3736 </span> 89/<- %ebp 4/r32/esp -<span id="L3737" class="LineNr"> 3737 </span> <span class="subxComment"># setup</span> -<span id="L3738" class="LineNr"> 3738 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3739" class="LineNr"> 3739 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3740" class="LineNr"> 3740 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3741" class="LineNr"> 3741 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3742" class="LineNr"> 3742 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3743" class="LineNr"> 3743 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3744" class="LineNr"> 3744 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3745" class="LineNr"> 3745 </span> 68/push 0/imm32 -<span id="L3746" class="LineNr"> 3746 </span> 68/push 0/imm32 -<span id="L3747" class="LineNr"> 3747 </span> 89/<- %edx 4/r32/esp -<span id="L3748" class="LineNr"> 3748 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3749" class="LineNr"> 3749 </span> <span class="subxComment">#</span> -<span id="L3750" class="LineNr"> 3750 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3751" class="LineNr"> 3751 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: byte\n"</span>) -<span id="L3752" class="LineNr"> 3752 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3753" class="LineNr"> 3753 </span> <span class="subxComment"># convert</span> -<span id="L3754" class="LineNr"> 3754 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3755" class="LineNr"> 3755 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3756" class="LineNr"> 3756 </span> <span class="subxComment"># restore ed</span> -<span id="L3757" class="LineNr"> 3757 </span> 89/<- %edx 4/r32/esp -<span id="L3758" class="LineNr"> 3758 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3759" class="LineNr"> 3759 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3760" class="Folded"> 3760 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3766" class="LineNr"> 3766 </span> <span class="subxComment"># check output</span> -<span id="L3767" class="LineNr"> 3767 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3733'>test-byte-values-on-stack</a>: output should be empty"</span>) -<span id="L3768" class="LineNr"> 3768 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be on the stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3733'>test-byte-values-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3769" class="LineNr"> 3769 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3770" class="LineNr"> 3770 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3733'>test-byte-values-on-stack</a>: exit status"</span>) -<span id="L3771" class="LineNr"> 3771 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3772" class="LineNr"> 3772 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3773" class="LineNr"> 3773 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3774" class="LineNr"> 3774 </span> 5d/pop-to-ebp -<span id="L3775" class="LineNr"> 3775 </span> c3/return -<span id="L3776" class="LineNr"> 3776 </span> -<span id="L3777" class="LineNr"> 3777 </span><span class="subxComment"># variables of type 'byte' are not allowed in esi or edi</span> -<span id="L3778" class="LineNr"> 3778 </span><span class="subxTest">test-byte-values-in-unsupported-registers</span>: -<span id="L3779" class="LineNr"> 3779 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3780" class="LineNr"> 3780 </span> 55/push-ebp -<span id="L3781" class="LineNr"> 3781 </span> 89/<- %ebp 4/r32/esp -<span id="L3782" class="LineNr"> 3782 </span> <span class="subxComment"># setup</span> -<span id="L3783" class="LineNr"> 3783 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3784" class="LineNr"> 3784 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3785" class="LineNr"> 3785 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3786" class="LineNr"> 3786 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3787" class="LineNr"> 3787 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3788" class="LineNr"> 3788 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3789" class="LineNr"> 3789 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3790" class="LineNr"> 3790 </span> 68/push 0/imm32 -<span id="L3791" class="LineNr"> 3791 </span> 68/push 0/imm32 -<span id="L3792" class="LineNr"> 3792 </span> 89/<- %edx 4/r32/esp -<span id="L3793" class="LineNr"> 3793 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3794" class="LineNr"> 3794 </span> <span class="subxComment">#</span> -<span id="L3795" class="LineNr"> 3795 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3796" class="LineNr"> 3796 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: byte <- copy 0\n"</span>) -<span id="L3797" class="LineNr"> 3797 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3798" class="LineNr"> 3798 </span> <span class="subxComment"># convert</span> -<span id="L3799" class="LineNr"> 3799 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3800" class="LineNr"> 3800 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3801" class="LineNr"> 3801 </span> <span class="subxComment"># restore ed</span> -<span id="L3802" class="LineNr"> 3802 </span> 89/<- %edx 4/r32/esp -<span id="L3803" class="LineNr"> 3803 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3804" class="LineNr"> 3804 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3805" class="Folded"> 3805 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3811" class="LineNr"> 3811 </span> <span class="subxComment"># check output</span> -<span id="L3812" class="LineNr"> 3812 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3778'>test-byte-values-in-unsupported-registers</a>: output should be empty"</span>) -<span id="L3813" class="LineNr"> 3813 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be in esi or edi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3778'>test-byte-values-in-unsupported-registers</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3814" class="LineNr"> 3814 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3815" class="LineNr"> 3815 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3778'>test-byte-values-in-unsupported-registers</a>: exit status"</span>) -<span id="L3816" class="LineNr"> 3816 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3817" class="LineNr"> 3817 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3818" class="LineNr"> 3818 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3819" class="LineNr"> 3819 </span> 5d/pop-to-ebp -<span id="L3820" class="LineNr"> 3820 </span> c3/return -<span id="L3821" class="LineNr"> 3821 </span> -<span id="L3822" class="LineNr"> 3822 </span><span class="subxComment"># variables of type 'byte' _can_ be function args. They then occupy 4 bytes.</span> -<span id="L3823" class="LineNr"> 3823 </span><span class="subxTest">test-copy-byte-var-from-fn-arg</span>: -<span id="L3824" class="LineNr"> 3824 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3825" class="LineNr"> 3825 </span> 55/push-ebp -<span id="L3826" class="LineNr"> 3826 </span> 89/<- %ebp 4/r32/esp -<span id="L3827" class="LineNr"> 3827 </span> <span class="subxComment"># setup</span> -<span id="L3828" class="LineNr"> 3828 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3829" class="LineNr"> 3829 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3830" class="LineNr"> 3830 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3831" class="LineNr"> 3831 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3832" class="LineNr"> 3832 </span> <span class="subxComment">#</span> -<span id="L3833" class="LineNr"> 3833 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: byte, y: int {\n"</span>) -<span id="L3834" class="LineNr"> 3834 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: byte <- copy x\n"</span>) -<span id="L3835" class="LineNr"> 3835 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy y\n"</span>) -<span id="L3836" class="LineNr"> 3836 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3837" class="LineNr"> 3837 </span> <span class="subxComment"># convert</span> -<span id="L3838" class="LineNr"> 3838 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3839" class="LineNr"> 3839 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3840" class="Folded"> 3840 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3846" class="LineNr"> 3846 </span> <span class="subxComment"># check output</span> -<span id="L3847" class="LineNr"> 3847 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/0"</span>) -<span id="L3848" class="LineNr"> 3848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/1"</span>) -<span id="L3849" class="LineNr"> 3849 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/2"</span>) -<span id="L3850" class="LineNr"> 3850 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/3"</span>) -<span id="L3851" class="LineNr"> 3851 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/4"</span>) -<span id="L3852" class="LineNr"> 3852 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/5"</span>) -<span id="L3853" class="LineNr"> 3853 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/6"</span>) -<span id="L3854" class="LineNr"> 3854 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/7"</span>) -<span id="L3855" class="LineNr"> 3855 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/8"</span>) -<span id="L3856" class="LineNr"> 3856 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/9"</span>) -<span id="L3857" class="LineNr"> 3857 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/10"</span>) -<span id="L3858" class="LineNr"> 3858 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/11"</span>) -<span id="L3859" class="LineNr"> 3859 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/12"</span>) -<span id="L3860" class="LineNr"> 3860 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/13"</span>) -<span id="L3861" class="LineNr"> 3861 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/14"</span>) -<span id="L3862" class="LineNr"> 3862 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/15"</span>) -<span id="L3863" class="LineNr"> 3863 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3864" class="LineNr"> 3864 </span> 89/<- %esp 5/r32/ebp -<span id="L3865" class="LineNr"> 3865 </span> 5d/pop-to-ebp -<span id="L3866" class="LineNr"> 3866 </span> c3/return -<span id="L3867" class="LineNr"> 3867 </span> -<span id="L3868" class="LineNr"> 3868 </span><span class="subxTest">test-convert-compare-register-with-literal</span>: -<span id="L3869" class="LineNr"> 3869 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3870" class="LineNr"> 3870 </span> 55/push-ebp -<span id="L3871" class="LineNr"> 3871 </span> 89/<- %ebp 4/r32/esp -<span id="L3872" class="LineNr"> 3872 </span> <span class="subxComment"># setup</span> -<span id="L3873" class="LineNr"> 3873 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3874" class="LineNr"> 3874 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3875" class="LineNr"> 3875 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3876" class="LineNr"> 3876 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3877" class="LineNr"> 3877 </span> <span class="subxComment">#</span> -<span id="L3878" class="LineNr"> 3878 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3879" class="LineNr"> 3879 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 0\n"</span>) -<span id="L3880" class="LineNr"> 3880 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L3881" class="LineNr"> 3881 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3882" class="LineNr"> 3882 </span> <span class="subxComment"># convert</span> -<span id="L3883" class="LineNr"> 3883 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3884" class="LineNr"> 3884 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3885" class="Folded"> 3885 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3891" class="LineNr"> 3891 </span> <span class="subxComment"># check output</span> -<span id="L3892" class="LineNr"> 3892 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/0"</span>) -<span id="L3893" class="LineNr"> 3893 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/1"</span>) -<span id="L3894" class="LineNr"> 3894 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/2"</span>) -<span id="L3895" class="LineNr"> 3895 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/3"</span>) -<span id="L3896" class="LineNr"> 3896 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/4"</span>) -<span id="L3897" class="LineNr"> 3897 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/5"</span>) -<span id="L3898" class="LineNr"> 3898 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/6"</span>) -<span id="L3899" class="LineNr"> 3899 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/7"</span>) -<span id="L3900" class="LineNr"> 3900 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/8"</span>) -<span id="L3901" class="LineNr"> 3901 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/9"</span>) -<span id="L3902" class="LineNr"> 3902 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/10"</span>) -<span id="L3903" class="LineNr"> 3903 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/11"</span>) -<span id="L3904" class="LineNr"> 3904 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/12"</span>) -<span id="L3905" class="LineNr"> 3905 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/13"</span>) -<span id="L3906" class="LineNr"> 3906 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/14"</span>) -<span id="L3907" class="LineNr"> 3907 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/15"</span>) -<span id="L3908" class="LineNr"> 3908 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3909" class="LineNr"> 3909 </span> 89/<- %esp 5/r32/ebp -<span id="L3910" class="LineNr"> 3910 </span> 5d/pop-to-ebp -<span id="L3911" class="LineNr"> 3911 </span> c3/return -<span id="L3912" class="LineNr"> 3912 </span> -<span id="L3913" class="LineNr"> 3913 </span><span class="subxTest">test-convert-compare-byte-with-literal</span>: -<span id="L3914" class="LineNr"> 3914 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3915" class="LineNr"> 3915 </span> 55/push-ebp -<span id="L3916" class="LineNr"> 3916 </span> 89/<- %ebp 4/r32/esp -<span id="L3917" class="LineNr"> 3917 </span> <span class="subxComment"># setup</span> -<span id="L3918" class="LineNr"> 3918 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3919" class="LineNr"> 3919 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3920" class="LineNr"> 3920 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3921" class="LineNr"> 3921 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3922" class="LineNr"> 3922 </span> <span class="subxComment">#</span> -<span id="L3923" class="LineNr"> 3923 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3924" class="LineNr"> 3924 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 0\n"</span>) -<span id="L3925" class="LineNr"> 3925 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L3926" class="LineNr"> 3926 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3927" class="LineNr"> 3927 </span> <span class="subxComment"># convert</span> -<span id="L3928" class="LineNr"> 3928 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L3929" class="LineNr"> 3929 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3930" class="Folded"> 3930 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3936" class="LineNr"> 3936 </span> <span class="subxComment"># no errors; output is identical to test-convert-compare-register-with-literal</span> -<span id="L3937" class="LineNr"> 3937 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3938" class="LineNr"> 3938 </span> 89/<- %esp 5/r32/ebp -<span id="L3939" class="LineNr"> 3939 </span> 5d/pop-to-ebp -<span id="L3940" class="LineNr"> 3940 </span> c3/return -<span id="L3941" class="LineNr"> 3941 </span> -<span id="L3942" class="LineNr"> 3942 </span><span class="subxTest">test-unknown-variable</span>: -<span id="L3943" class="LineNr"> 3943 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3944" class="LineNr"> 3944 </span> 55/push-ebp -<span id="L3945" class="LineNr"> 3945 </span> 89/<- %ebp 4/r32/esp -<span id="L3946" class="LineNr"> 3946 </span> <span class="subxComment"># setup</span> -<span id="L3947" class="LineNr"> 3947 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3948" class="LineNr"> 3948 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3949" class="LineNr"> 3949 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3950" class="LineNr"> 3950 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3951" class="LineNr"> 3951 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L3952" class="LineNr"> 3952 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L3953" class="LineNr"> 3953 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L3954" class="LineNr"> 3954 </span> 68/push 0/imm32 -<span id="L3955" class="LineNr"> 3955 </span> 68/push 0/imm32 -<span id="L3956" class="LineNr"> 3956 </span> 89/<- %edx 4/r32/esp -<span id="L3957" class="LineNr"> 3957 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L3958" class="LineNr"> 3958 </span> <span class="subxComment">#</span> -<span id="L3959" class="LineNr"> 3959 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3960" class="LineNr"> 3960 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L3961" class="LineNr"> 3961 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L3962" class="LineNr"> 3962 </span> <span class="subxComment"># convert</span> -<span id="L3963" class="LineNr"> 3963 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L3964" class="LineNr"> 3964 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L3965" class="LineNr"> 3965 </span> <span class="subxComment"># restore ed</span> -<span id="L3966" class="LineNr"> 3966 </span> 89/<- %edx 4/r32/esp -<span id="L3967" class="LineNr"> 3967 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L3968" class="LineNr"> 3968 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L3969" class="Folded"> 3969 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3975" class="LineNr"> 3975 </span> <span class="subxComment"># check output</span> -<span id="L3976" class="LineNr"> 3976 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3942'>test-unknown-variable</a>: output should be empty"</span>) -<span id="L3977" class="LineNr"> 3977 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L3942'>test-unknown-variable</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L3978" class="LineNr"> 3978 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L3979" class="LineNr"> 3979 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3942'>test-unknown-variable</a>: exit status"</span>) -<span id="L3980" class="LineNr"> 3980 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L3981" class="LineNr"> 3981 </span> 81 0/subop/add %esp 8/imm32 -<span id="L3982" class="LineNr"> 3982 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3983" class="LineNr"> 3983 </span> 5d/pop-to-ebp -<span id="L3984" class="LineNr"> 3984 </span> c3/return -<span id="L3985" class="LineNr"> 3985 </span> -<span id="L3986" class="LineNr"> 3986 </span><span class="subxTest">test-convert-function-with-local-var-in-block</span>: -<span id="L3987" class="LineNr"> 3987 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3988" class="LineNr"> 3988 </span> 55/push-ebp -<span id="L3989" class="LineNr"> 3989 </span> 89/<- %ebp 4/r32/esp -<span id="L3990" class="LineNr"> 3990 </span> <span class="subxComment"># setup</span> -<span id="L3991" class="LineNr"> 3991 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L3992" class="LineNr"> 3992 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L3993" class="LineNr"> 3993 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L3994" class="LineNr"> 3994 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L3995" class="LineNr"> 3995 </span> <span class="subxComment">#</span> -<span id="L3996" class="LineNr"> 3996 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L3997" class="LineNr"> 3997 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L3998" class="LineNr"> 3998 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L3999" class="LineNr"> 3999 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4000" class="LineNr"> 4000 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4001" class="LineNr"> 4001 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4002" class="LineNr"> 4002 </span> <span class="subxComment"># convert</span> -<span id="L4003" class="LineNr"> 4003 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4004" class="LineNr"> 4004 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4005" class="Folded"> 4005 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4011" class="LineNr"> 4011 </span> <span class="subxComment"># check output</span> -<span id="L4012" class="LineNr"> 4012 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/0"</span>) -<span id="L4013" class="LineNr"> 4013 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/1"</span>) -<span id="L4014" class="LineNr"> 4014 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/2"</span>) -<span id="L4015" class="LineNr"> 4015 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/3"</span>) -<span id="L4016" class="LineNr"> 4016 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/4"</span>) -<span id="L4017" class="LineNr"> 4017 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/5"</span>) -<span id="L4018" class="LineNr"> 4018 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/6"</span>) -<span id="L4019" class="LineNr"> 4019 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/7"</span>) -<span id="L4020" class="LineNr"> 4020 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/8"</span>) -<span id="L4021" class="LineNr"> 4021 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/9"</span>) -<span id="L4022" class="LineNr"> 4022 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/10"</span>) -<span id="L4023" class="LineNr"> 4023 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/11"</span>) -<span id="L4024" class="LineNr"> 4024 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/12"</span>) -<span id="L4025" class="LineNr"> 4025 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/13"</span>) -<span id="L4026" class="LineNr"> 4026 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/14"</span>) -<span id="L4027" class="LineNr"> 4027 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/15"</span>) -<span id="L4028" class="LineNr"> 4028 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/16"</span>) -<span id="L4029" class="LineNr"> 4029 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/17"</span>) -<span id="L4030" class="LineNr"> 4030 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-function-with-local-var-in-block</a>/18"</span>) -<span id="L4031" class="LineNr"> 4031 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4032" class="LineNr"> 4032 </span> 89/<- %esp 5/r32/ebp -<span id="L4033" class="LineNr"> 4033 </span> 5d/pop-to-ebp -<span id="L4034" class="LineNr"> 4034 </span> c3/return -<span id="L4035" class="LineNr"> 4035 </span> -<span id="L4036" class="LineNr"> 4036 </span><span class="subxTest">test-convert-function-with-local-var-in-mem-after-block</span>: -<span id="L4037" class="LineNr"> 4037 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4038" class="LineNr"> 4038 </span> 55/push-ebp -<span id="L4039" class="LineNr"> 4039 </span> 89/<- %ebp 4/r32/esp -<span id="L4040" class="LineNr"> 4040 </span> <span class="subxComment"># setup</span> -<span id="L4041" class="LineNr"> 4041 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4042" class="LineNr"> 4042 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4043" class="LineNr"> 4043 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4044" class="LineNr"> 4044 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4045" class="LineNr"> 4045 </span> <span class="subxComment">#</span> -<span id="L4046" class="LineNr"> 4046 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4047" class="LineNr"> 4047 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4048" class="LineNr"> 4048 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L4049" class="LineNr"> 4049 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4050" class="LineNr"> 4050 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4051" class="LineNr"> 4051 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4052" class="LineNr"> 4052 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4053" class="LineNr"> 4053 </span> <span class="subxComment"># convert</span> -<span id="L4054" class="LineNr"> 4054 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4055" class="LineNr"> 4055 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4056" class="Folded"> 4056 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4062" class="LineNr"> 4062 </span> <span class="subxComment"># check output</span> -<span id="L4063" class="LineNr"> 4063 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/0"</span>) -<span id="L4064" class="LineNr"> 4064 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/1"</span>) -<span id="L4065" class="LineNr"> 4065 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/2"</span>) -<span id="L4066" class="LineNr"> 4066 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/3"</span>) -<span id="L4067" class="LineNr"> 4067 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/4"</span>) -<span id="L4068" class="LineNr"> 4068 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/5"</span>) -<span id="L4069" class="LineNr"> 4069 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/6"</span>) -<span id="L4070" class="LineNr"> 4070 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/7"</span>) -<span id="L4071" class="LineNr"> 4071 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/8"</span>) -<span id="L4072" class="LineNr"> 4072 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/9"</span>) -<span id="L4073" class="LineNr"> 4073 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/10"</span>) -<span id="L4074" class="LineNr"> 4074 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/11"</span>) -<span id="L4075" class="LineNr"> 4075 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/12"</span>) -<span id="L4076" class="LineNr"> 4076 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/13"</span>) -<span id="L4077" class="LineNr"> 4077 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/14"</span>) -<span id="L4078" class="LineNr"> 4078 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/15"</span>) -<span id="L4079" class="LineNr"> 4079 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/16"</span>) -<span id="L4080" class="LineNr"> 4080 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/17"</span>) -<span id="L4081" class="LineNr"> 4081 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/18"</span>) -<span id="L4082" class="LineNr"> 4082 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/19"</span>) -<span id="L4083" class="LineNr"> 4083 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4036'>test-convert-function-with-local-var-in-mem-after-block</a>/20"</span>) -<span id="L4084" class="LineNr"> 4084 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4085" class="LineNr"> 4085 </span> 89/<- %esp 5/r32/ebp -<span id="L4086" class="LineNr"> 4086 </span> 5d/pop-to-ebp -<span id="L4087" class="LineNr"> 4087 </span> c3/return -<span id="L4088" class="LineNr"> 4088 </span> -<span id="L4089" class="LineNr"> 4089 </span><span class="subxTest">test-convert-function-with-local-var-in-named-block</span>: -<span id="L4090" class="LineNr"> 4090 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4091" class="LineNr"> 4091 </span> 55/push-ebp -<span id="L4092" class="LineNr"> 4092 </span> 89/<- %ebp 4/r32/esp -<span id="L4093" class="LineNr"> 4093 </span> <span class="subxComment"># setup</span> -<span id="L4094" class="LineNr"> 4094 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4095" class="LineNr"> 4095 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4096" class="LineNr"> 4096 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4097" class="LineNr"> 4097 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4098" class="LineNr"> 4098 </span> <span class="subxComment">#</span> -<span id="L4099" class="LineNr"> 4099 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4100" class="LineNr"> 4100 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) -<span id="L4101" class="LineNr"> 4101 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4102" class="LineNr"> 4102 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4103" class="LineNr"> 4103 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4104" class="LineNr"> 4104 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4105" class="LineNr"> 4105 </span> <span class="subxComment"># convert</span> -<span id="L4106" class="LineNr"> 4106 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4107" class="LineNr"> 4107 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4108" class="Folded"> 4108 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4114" class="LineNr"> 4114 </span> <span class="subxComment"># check output</span> -<span id="L4115" class="LineNr"> 4115 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/0"</span>) -<span id="L4116" class="LineNr"> 4116 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/1"</span>) -<span id="L4117" class="LineNr"> 4117 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/2"</span>) -<span id="L4118" class="LineNr"> 4118 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/3"</span>) -<span id="L4119" class="LineNr"> 4119 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/4"</span>) -<span id="L4120" class="LineNr"> 4120 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/5"</span>) -<span id="L4121" class="LineNr"> 4121 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/6"</span>) -<span id="L4122" class="LineNr"> 4122 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/7"</span>) -<span id="L4123" class="LineNr"> 4123 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/8"</span>) -<span id="L4124" class="LineNr"> 4124 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/9"</span>) -<span id="L4125" class="LineNr"> 4125 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/10"</span>) -<span id="L4126" class="LineNr"> 4126 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/11"</span>) -<span id="L4127" class="LineNr"> 4127 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/12"</span>) -<span id="L4128" class="LineNr"> 4128 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/13"</span>) -<span id="L4129" class="LineNr"> 4129 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/14"</span>) -<span id="L4130" class="LineNr"> 4130 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/15"</span>) -<span id="L4131" class="LineNr"> 4131 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/16"</span>) -<span id="L4132" class="LineNr"> 4132 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/17"</span>) -<span id="L4133" class="LineNr"> 4133 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4089'>test-convert-function-with-local-var-in-named-block</a>/18"</span>) -<span id="L4134" class="LineNr"> 4134 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4135" class="LineNr"> 4135 </span> 89/<- %esp 5/r32/ebp -<span id="L4136" class="LineNr"> 4136 </span> 5d/pop-to-ebp -<span id="L4137" class="LineNr"> 4137 </span> c3/return -<span id="L4138" class="LineNr"> 4138 </span> -<span id="L4139" class="LineNr"> 4139 </span><span class="subxTest">test-unknown-variable-in-named-block</span>: -<span id="L4140" class="LineNr"> 4140 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4141" class="LineNr"> 4141 </span> 55/push-ebp -<span id="L4142" class="LineNr"> 4142 </span> 89/<- %ebp 4/r32/esp -<span id="L4143" class="LineNr"> 4143 </span> <span class="subxComment"># setup</span> -<span id="L4144" class="LineNr"> 4144 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4145" class="LineNr"> 4145 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4146" class="LineNr"> 4146 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4147" class="LineNr"> 4147 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4148" class="LineNr"> 4148 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L4149" class="LineNr"> 4149 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L4150" class="LineNr"> 4150 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L4151" class="LineNr"> 4151 </span> 68/push 0/imm32 -<span id="L4152" class="LineNr"> 4152 </span> 68/push 0/imm32 -<span id="L4153" class="LineNr"> 4153 </span> 89/<- %edx 4/r32/esp -<span id="L4154" class="LineNr"> 4154 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L4155" class="LineNr"> 4155 </span> <span class="subxComment">#</span> -<span id="L4156" class="LineNr"> 4156 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4157" class="LineNr"> 4157 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $a: {\n"</span>) -<span id="L4158" class="LineNr"> 4158 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) -<span id="L4159" class="LineNr"> 4159 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4160" class="LineNr"> 4160 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4161" class="LineNr"> 4161 </span> <span class="subxComment"># convert</span> -<span id="L4162" class="LineNr"> 4162 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L4163" class="LineNr"> 4163 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L4164" class="LineNr"> 4164 </span> <span class="subxComment"># restore ed</span> -<span id="L4165" class="LineNr"> 4165 </span> 89/<- %edx 4/r32/esp -<span id="L4166" class="LineNr"> 4166 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4167" class="LineNr"> 4167 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L4168" class="Folded"> 4168 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4174" class="LineNr"> 4174 </span> <span class="subxComment"># check output</span> -<span id="L4175" class="LineNr"> 4175 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4139'>test-unknown-variable-in-named-block</a>: output should be empty"</span>) -<span id="L4176" class="LineNr"> 4176 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L4139'>test-unknown-variable-in-named-block</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L4177" class="LineNr"> 4177 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L4178" class="LineNr"> 4178 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4139'>test-unknown-variable-in-named-block</a>: exit status"</span>) -<span id="L4179" class="LineNr"> 4179 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L4180" class="LineNr"> 4180 </span> 81 0/subop/add %esp 8/imm32 -<span id="L4181" class="LineNr"> 4181 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4182" class="LineNr"> 4182 </span> 5d/pop-to-ebp -<span id="L4183" class="LineNr"> 4183 </span> c3/return -<span id="L4184" class="LineNr"> 4184 </span> -<span id="L4185" class="LineNr"> 4185 </span><span class="subxTest">test-always-shadow-outermost-reg-vars-in-function</span>: -<span id="L4186" class="LineNr"> 4186 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4187" class="LineNr"> 4187 </span> 55/push-ebp -<span id="L4188" class="LineNr"> 4188 </span> 89/<- %ebp 4/r32/esp -<span id="L4189" class="LineNr"> 4189 </span> <span class="subxComment"># setup</span> -<span id="L4190" class="LineNr"> 4190 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4191" class="LineNr"> 4191 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4192" class="LineNr"> 4192 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4193" class="LineNr"> 4193 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4194" class="LineNr"> 4194 </span> <span class="subxComment">#</span> -<span id="L4195" class="LineNr"> 4195 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4196" class="LineNr"> 4196 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L4197" class="LineNr"> 4197 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4198" class="LineNr"> 4198 </span> <span class="subxComment"># convert</span> -<span id="L4199" class="LineNr"> 4199 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4200" class="LineNr"> 4200 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4201" class="Folded"> 4201 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4207" class="LineNr"> 4207 </span> <span class="subxComment"># check output</span> -<span id="L4208" class="LineNr"> 4208 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/0"</span>) -<span id="L4209" class="LineNr"> 4209 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/1"</span>) -<span id="L4210" class="LineNr"> 4210 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/2"</span>) -<span id="L4211" class="LineNr"> 4211 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/3"</span>) -<span id="L4212" class="LineNr"> 4212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/4"</span>) -<span id="L4213" class="LineNr"> 4213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/5"</span>) -<span id="L4214" class="LineNr"> 4214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/6"</span>) -<span id="L4215" class="LineNr"> 4215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/8"</span>) -<span id="L4216" class="LineNr"> 4216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3868'>test-convert-compare-register-with-literal</a>/9"</span>) -<span id="L4217" class="LineNr"> 4217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/12"</span>) -<span id="L4218" class="LineNr"> 4218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/13"</span>) -<span id="L4219" class="LineNr"> 4219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/14"</span>) -<span id="L4220" class="LineNr"> 4220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/15"</span>) -<span id="L4221" class="LineNr"> 4221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/16"</span>) -<span id="L4222" class="LineNr"> 4222 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4185'>test-always-shadow-outermost-reg-vars-in-function</a>/17"</span>) -<span id="L4223" class="LineNr"> 4223 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4224" class="LineNr"> 4224 </span> 89/<- %esp 5/r32/ebp -<span id="L4225" class="LineNr"> 4225 </span> 5d/pop-to-ebp -<span id="L4226" class="LineNr"> 4226 </span> c3/return -<span id="L4227" class="LineNr"> 4227 </span> -<span id="L4228" class="LineNr"> 4228 </span><span class="subxTest">test-shadow-local</span>: -<span id="L4229" class="LineNr"> 4229 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4230" class="LineNr"> 4230 </span> 55/push-ebp -<span id="L4231" class="LineNr"> 4231 </span> 89/<- %ebp 4/r32/esp -<span id="L4232" class="LineNr"> 4232 </span> <span class="subxComment"># setup</span> -<span id="L4233" class="LineNr"> 4233 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4234" class="LineNr"> 4234 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4235" class="LineNr"> 4235 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4236" class="LineNr"> 4236 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4237" class="LineNr"> 4237 </span> <span class="subxComment">#</span> -<span id="L4238" class="LineNr"> 4238 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4239" class="LineNr"> 4239 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L4240" class="LineNr"> 4240 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4241" class="LineNr"> 4241 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L4242" class="LineNr"> 4242 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4243" class="LineNr"> 4243 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L4244" class="LineNr"> 4244 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4245" class="LineNr"> 4245 </span> <span class="subxComment"># convert</span> -<span id="L4246" class="LineNr"> 4246 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4247" class="LineNr"> 4247 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4248" class="Folded"> 4248 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4254" class="LineNr"> 4254 </span> <span class="subxComment"># check output</span> -<span id="L4255" class="LineNr"> 4255 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/0"</span>) -<span id="L4256" class="LineNr"> 4256 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-local/1"</span>) -<span id="L4257" class="LineNr"> 4257 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/2"</span>) -<span id="L4258" class="LineNr"> 4258 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/3"</span>) -<span id="L4259" class="LineNr"> 4259 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/4"</span>) -<span id="L4260" class="LineNr"> 4260 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/5"</span>) -<span id="L4261" class="LineNr"> 4261 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/6"</span>) -<span id="L4262" class="LineNr"> 4262 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/7"</span>) -<span id="L4263" class="LineNr"> 4263 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/8"</span>) -<span id="L4264" class="LineNr"> 4264 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/9"</span>) -<span id="L4265" class="LineNr"> 4265 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/10"</span>) -<span id="L4266" class="LineNr"> 4266 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/11"</span>) -<span id="L4267" class="LineNr"> 4267 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/12"</span>) -<span id="L4268" class="LineNr"> 4268 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/13"</span>) -<span id="L4269" class="LineNr"> 4269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/14"</span>) -<span id="L4270" class="LineNr"> 4270 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/15"</span>) -<span id="L4271" class="LineNr"> 4271 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/16"</span>) -<span id="L4272" class="LineNr"> 4272 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/17"</span>) -<span id="L4273" class="LineNr"> 4273 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/18"</span>) -<span id="L4274" class="LineNr"> 4274 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-local/19"</span>) -<span id="L4275" class="LineNr"> 4275 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/20"</span>) -<span id="L4276" class="LineNr"> 4276 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/21"</span>) -<span id="L4277" class="LineNr"> 4277 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4228'>test-shadow-local</a>/22"</span>) -<span id="L4278" class="LineNr"> 4278 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4279" class="LineNr"> 4279 </span> 89/<- %esp 5/r32/ebp -<span id="L4280" class="LineNr"> 4280 </span> 5d/pop-to-ebp -<span id="L4281" class="LineNr"> 4281 </span> c3/return -<span id="L4282" class="LineNr"> 4282 </span> -<span id="L4283" class="LineNr"> 4283 </span><span class="subxTest">test-shadow-name</span>: -<span id="L4284" class="LineNr"> 4284 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4285" class="LineNr"> 4285 </span> 55/push-ebp -<span id="L4286" class="LineNr"> 4286 </span> 89/<- %ebp 4/r32/esp -<span id="L4287" class="LineNr"> 4287 </span> <span class="subxComment"># setup</span> -<span id="L4288" class="LineNr"> 4288 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4289" class="LineNr"> 4289 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4290" class="LineNr"> 4290 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4291" class="LineNr"> 4291 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4292" class="LineNr"> 4292 </span> <span class="subxComment">#</span> -<span id="L4293" class="LineNr"> 4293 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4294" class="LineNr"> 4294 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L4295" class="LineNr"> 4295 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4296" class="LineNr"> 4296 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) -<span id="L4297" class="LineNr"> 4297 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4298" class="LineNr"> 4298 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L4299" class="LineNr"> 4299 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4300" class="LineNr"> 4300 </span> <span class="subxComment"># convert</span> -<span id="L4301" class="LineNr"> 4301 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4302" class="LineNr"> 4302 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4303" class="Folded"> 4303 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4309" class="LineNr"> 4309 </span> <span class="subxComment"># check output</span> -<span id="L4310" class="LineNr"> 4310 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/0"</span>) -<span id="L4311" class="LineNr"> 4311 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name/1"</span>) -<span id="L4312" class="LineNr"> 4312 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/2"</span>) -<span id="L4313" class="LineNr"> 4313 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/3"</span>) -<span id="L4314" class="LineNr"> 4314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/4"</span>) -<span id="L4315" class="LineNr"> 4315 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/5"</span>) -<span id="L4316" class="LineNr"> 4316 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/6"</span>) -<span id="L4317" class="LineNr"> 4317 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/7"</span>) -<span id="L4318" class="LineNr"> 4318 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/8"</span>) -<span id="L4319" class="LineNr"> 4319 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/9"</span>) -<span id="L4320" class="LineNr"> 4320 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/10"</span>) -<span id="L4321" class="LineNr"> 4321 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/11"</span>) -<span id="L4322" class="LineNr"> 4322 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/12"</span>) -<span id="L4323" class="LineNr"> 4323 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/13"</span>) -<span id="L4324" class="LineNr"> 4324 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/14"</span>) -<span id="L4325" class="LineNr"> 4325 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/15"</span>) -<span id="L4326" class="LineNr"> 4326 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/16"</span>) -<span id="L4327" class="LineNr"> 4327 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/17"</span>) -<span id="L4328" class="LineNr"> 4328 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/18"</span>) -<span id="L4329" class="LineNr"> 4329 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name/19"</span>) -<span id="L4330" class="LineNr"> 4330 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/20"</span>) -<span id="L4331" class="LineNr"> 4331 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/21"</span>) -<span id="L4332" class="LineNr"> 4332 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4283'>test-shadow-name</a>/22"</span>) -<span id="L4333" class="LineNr"> 4333 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4334" class="LineNr"> 4334 </span> 89/<- %esp 5/r32/ebp -<span id="L4335" class="LineNr"> 4335 </span> 5d/pop-to-ebp -<span id="L4336" class="LineNr"> 4336 </span> c3/return -<span id="L4337" class="LineNr"> 4337 </span> -<span id="L4338" class="LineNr"> 4338 </span><span class="subxTest">test-shadow-name-2</span>: -<span id="L4339" class="LineNr"> 4339 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4340" class="LineNr"> 4340 </span> 55/push-ebp -<span id="L4341" class="LineNr"> 4341 </span> 89/<- %ebp 4/r32/esp -<span id="L4342" class="LineNr"> 4342 </span> <span class="subxComment"># setup</span> -<span id="L4343" class="LineNr"> 4343 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4344" class="LineNr"> 4344 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4345" class="LineNr"> 4345 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4346" class="LineNr"> 4346 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4347" class="LineNr"> 4347 </span> <span class="subxComment">#</span> -<span id="L4348" class="LineNr"> 4348 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4349" class="LineNr"> 4349 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L4350" class="LineNr"> 4350 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4351" class="LineNr"> 4351 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) -<span id="L4352" class="LineNr"> 4352 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 5\n"</span>) -<span id="L4353" class="LineNr"> 4353 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4354" class="LineNr"> 4354 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) -<span id="L4355" class="LineNr"> 4355 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4356" class="LineNr"> 4356 </span> <span class="subxComment"># convert</span> -<span id="L4357" class="LineNr"> 4357 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4358" class="LineNr"> 4358 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4359" class="Folded"> 4359 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4365" class="LineNr"> 4365 </span> <span class="subxComment"># check output</span> -<span id="L4366" class="LineNr"> 4366 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/0"</span>) -<span id="L4367" class="LineNr"> 4367 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name-2/1"</span>) -<span id="L4368" class="LineNr"> 4368 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/2"</span>) -<span id="L4369" class="LineNr"> 4369 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/3"</span>) -<span id="L4370" class="LineNr"> 4370 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/4"</span>) -<span id="L4371" class="LineNr"> 4371 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/5"</span>) -<span id="L4372" class="LineNr"> 4372 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/6"</span>) -<span id="L4373" class="LineNr"> 4373 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/7"</span>) -<span id="L4374" class="LineNr"> 4374 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/8"</span>) -<span id="L4375" class="LineNr"> 4375 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/9"</span>) -<span id="L4376" class="LineNr"> 4376 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/10"</span>) -<span id="L4377" class="LineNr"> 4377 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/11"</span>) -<span id="L4378" class="LineNr"> 4378 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/12"</span>) -<span id="L4379" class="LineNr"> 4379 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 5/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/13"</span>) -<span id="L4380" class="LineNr"> 4380 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/14"</span>) -<span id="L4381" class="LineNr"> 4381 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/15"</span>) -<span id="L4382" class="LineNr"> 4382 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/16"</span>) -<span id="L4383" class="LineNr"> 4383 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/17"</span>) -<span id="L4384" class="LineNr"> 4384 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/18"</span>) -<span id="L4385" class="LineNr"> 4385 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/19"</span>) -<span id="L4386" class="LineNr"> 4386 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/20"</span>) -<span id="L4387" class="LineNr"> 4387 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/21"</span>) -<span id="L4388" class="LineNr"> 4388 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name-2/22"</span>) -<span id="L4389" class="LineNr"> 4389 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/23"</span>) -<span id="L4390" class="LineNr"> 4390 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/24"</span>) -<span id="L4391" class="LineNr"> 4391 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4338'>test-shadow-name-2</a>/25"</span>) -<span id="L4392" class="LineNr"> 4392 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4393" class="LineNr"> 4393 </span> 89/<- %esp 5/r32/ebp -<span id="L4394" class="LineNr"> 4394 </span> 5d/pop-to-ebp -<span id="L4395" class="LineNr"> 4395 </span> c3/return -<span id="L4396" class="LineNr"> 4396 </span> -<span id="L4397" class="LineNr"> 4397 </span><span class="subxTest">test-do-not-spill-same-register-in-block</span>: -<span id="L4398" class="LineNr"> 4398 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4399" class="LineNr"> 4399 </span> 55/push-ebp -<span id="L4400" class="LineNr"> 4400 </span> 89/<- %ebp 4/r32/esp -<span id="L4401" class="LineNr"> 4401 </span> <span class="subxComment"># setup</span> -<span id="L4402" class="LineNr"> 4402 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4403" class="LineNr"> 4403 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4404" class="LineNr"> 4404 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4405" class="LineNr"> 4405 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4406" class="LineNr"> 4406 </span> <span class="subxComment">#</span> -<span id="L4407" class="LineNr"> 4407 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4408" class="LineNr"> 4408 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L4409" class="LineNr"> 4409 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L4410" class="LineNr"> 4410 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) -<span id="L4411" class="LineNr"> 4411 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4412" class="LineNr"> 4412 </span> <span class="subxComment"># convert</span> -<span id="L4413" class="LineNr"> 4413 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4414" class="LineNr"> 4414 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4415" class="Folded"> 4415 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4421" class="LineNr"> 4421 </span> <span class="subxComment"># check output</span> -<span id="L4422" class="LineNr"> 4422 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/0"</span>) -<span id="L4423" class="LineNr"> 4423 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/1"</span>) -<span id="L4424" class="LineNr"> 4424 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/2"</span>) -<span id="L4425" class="LineNr"> 4425 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/3"</span>) -<span id="L4426" class="LineNr"> 4426 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/4"</span>) -<span id="L4427" class="LineNr"> 4427 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/5"</span>) -<span id="L4428" class="LineNr"> 4428 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/6"</span>) -<span id="L4429" class="LineNr"> 4429 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/7"</span>) -<span id="L4430" class="LineNr"> 4430 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/8"</span>) -<span id="L4431" class="LineNr"> 4431 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/9"</span>) -<span id="L4432" class="LineNr"> 4432 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/10"</span>) -<span id="L4433" class="LineNr"> 4433 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/11"</span>) -<span id="L4434" class="LineNr"> 4434 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/12"</span>) -<span id="L4435" class="LineNr"> 4435 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/13"</span>) -<span id="L4436" class="LineNr"> 4436 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/14"</span>) -<span id="L4437" class="LineNr"> 4437 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/15"</span>) -<span id="L4438" class="LineNr"> 4438 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4397'>test-do-not-spill-same-register-in-block</a>/16"</span>) -<span id="L4439" class="LineNr"> 4439 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4440" class="LineNr"> 4440 </span> 89/<- %esp 5/r32/ebp -<span id="L4441" class="LineNr"> 4441 </span> 5d/pop-to-ebp -<span id="L4442" class="LineNr"> 4442 </span> c3/return -<span id="L4443" class="LineNr"> 4443 </span> -<span id="L4444" class="LineNr"> 4444 </span><span class="subxTest">test-spill-different-register-in-block</span>: -<span id="L4445" class="LineNr"> 4445 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4446" class="LineNr"> 4446 </span> 55/push-ebp -<span id="L4447" class="LineNr"> 4447 </span> 89/<- %ebp 4/r32/esp -<span id="L4448" class="LineNr"> 4448 </span> <span class="subxComment"># setup</span> -<span id="L4449" class="LineNr"> 4449 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4450" class="LineNr"> 4450 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4451" class="LineNr"> 4451 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4452" class="LineNr"> 4452 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4453" class="LineNr"> 4453 </span> <span class="subxComment">#</span> -<span id="L4454" class="LineNr"> 4454 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4455" class="LineNr"> 4455 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) -<span id="L4456" class="LineNr"> 4456 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) -<span id="L4457" class="LineNr"> 4457 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) -<span id="L4458" class="LineNr"> 4458 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4459" class="LineNr"> 4459 </span> <span class="subxComment"># convert</span> -<span id="L4460" class="LineNr"> 4460 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4461" class="LineNr"> 4461 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4462" class="Folded"> 4462 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4468" class="LineNr"> 4468 </span> <span class="subxComment"># check output</span> -<span id="L4469" class="LineNr"> 4469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/0"</span>) -<span id="L4470" class="LineNr"> 4470 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-spill-different-register-in-block/1"</span>) -<span id="L4471" class="LineNr"> 4471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/2"</span>) -<span id="L4472" class="LineNr"> 4472 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/3"</span>) -<span id="L4473" class="LineNr"> 4473 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/4"</span>) -<span id="L4474" class="LineNr"> 4474 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/5"</span>) -<span id="L4475" class="LineNr"> 4475 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/6"</span>) -<span id="L4476" class="LineNr"> 4476 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/7"</span>) -<span id="L4477" class="LineNr"> 4477 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/8"</span>) -<span id="L4478" class="LineNr"> 4478 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/9"</span>) -<span id="L4479" class="LineNr"> 4479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/10"</span>) -<span id="L4480" class="LineNr"> 4480 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/11"</span>) -<span id="L4481" class="LineNr"> 4481 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/12"</span>) -<span id="L4482" class="LineNr"> 4482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/13"</span>) -<span id="L4483" class="LineNr"> 4483 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/14"</span>) -<span id="L4484" class="LineNr"> 4484 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-spill-different-register-in-block/15"</span>) -<span id="L4485" class="LineNr"> 4485 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/16"</span>) -<span id="L4486" class="LineNr"> 4486 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/17"</span>) -<span id="L4487" class="LineNr"> 4487 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4444'>test-spill-different-register-in-block</a>/18"</span>) -<span id="L4488" class="LineNr"> 4488 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4489" class="LineNr"> 4489 </span> 89/<- %esp 5/r32/ebp -<span id="L4490" class="LineNr"> 4490 </span> 5d/pop-to-ebp -<span id="L4491" class="LineNr"> 4491 </span> c3/return -<span id="L4492" class="LineNr"> 4492 </span> -<span id="L4493" class="LineNr"> 4493 </span><span class="subxTest">test-convert-function-with-branches-in-block</span>: -<span id="L4494" class="LineNr"> 4494 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4495" class="LineNr"> 4495 </span> 55/push-ebp -<span id="L4496" class="LineNr"> 4496 </span> 89/<- %ebp 4/r32/esp -<span id="L4497" class="LineNr"> 4497 </span> <span class="subxComment"># setup</span> -<span id="L4498" class="LineNr"> 4498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4499" class="LineNr"> 4499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4500" class="LineNr"> 4500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4501" class="LineNr"> 4501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4502" class="LineNr"> 4502 </span> <span class="subxComment">#</span> -<span id="L4503" class="LineNr"> 4503 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4504" class="LineNr"> 4504 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4505" class="LineNr"> 4505 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L4506" class="LineNr"> 4506 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr<\n"</span>) -<span id="L4507" class="LineNr"> 4507 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4508" class="LineNr"> 4508 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4509" class="LineNr"> 4509 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4510" class="LineNr"> 4510 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4511" class="LineNr"> 4511 </span> <span class="subxComment"># convert</span> -<span id="L4512" class="LineNr"> 4512 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4513" class="LineNr"> 4513 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4514" class="Folded"> 4514 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4520" class="LineNr"> 4520 </span> <span class="subxComment"># check output</span> -<span id="L4521" class="LineNr"> 4521 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/0"</span>) -<span id="L4522" class="LineNr"> 4522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) -<span id="L4523" class="LineNr"> 4523 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/2"</span>) -<span id="L4524" class="LineNr"> 4524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/3"</span>) -<span id="L4525" class="LineNr"> 4525 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/4"</span>) -<span id="L4526" class="LineNr"> 4526 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/5"</span>) -<span id="L4527" class="LineNr"> 4527 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/6"</span>) -<span id="L4528" class="LineNr"> 4528 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/7"</span>) -<span id="L4529" class="LineNr"> 4529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/8"</span>) -<span id="L4530" class="LineNr"> 4530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/9"</span>) -<span id="L4531" class="LineNr"> 4531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/10"</span>) -<span id="L4532" class="LineNr"> 4532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/11"</span>) -<span id="L4533" class="LineNr"> 4533 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/12"</span>) -<span id="L4534" class="LineNr"> 4534 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/13"</span>) -<span id="L4535" class="LineNr"> 4535 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/14"</span>) -<span id="L4536" class="LineNr"> 4536 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/15"</span>) -<span id="L4537" class="LineNr"> 4537 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/16"</span>) -<span id="L4538" class="LineNr"> 4538 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/17"</span>) -<span id="L4539" class="LineNr"> 4539 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/18"</span>) -<span id="L4540" class="LineNr"> 4540 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/19"</span>) -<span id="L4541" class="LineNr"> 4541 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/20"</span>) -<span id="L4542" class="LineNr"> 4542 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/21"</span>) -<span id="L4543" class="LineNr"> 4543 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) -<span id="L4544" class="LineNr"> 4544 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/23"</span>) -<span id="L4545" class="LineNr"> 4545 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/24"</span>) -<span id="L4546" class="LineNr"> 4546 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/25"</span>) -<span id="L4547" class="LineNr"> 4547 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4548" class="LineNr"> 4548 </span> 89/<- %esp 5/r32/ebp -<span id="L4549" class="LineNr"> 4549 </span> 5d/pop-to-ebp -<span id="L4550" class="LineNr"> 4550 </span> c3/return -<span id="L4551" class="LineNr"> 4551 </span> -<span id="L4552" class="LineNr"> 4552 </span><span class="subxTest">test-convert-function-with-branches-in-block-2</span>: -<span id="L4553" class="LineNr"> 4553 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4554" class="LineNr"> 4554 </span> 55/push-ebp -<span id="L4555" class="LineNr"> 4555 </span> 89/<- %ebp 4/r32/esp -<span id="L4556" class="LineNr"> 4556 </span> <span class="subxComment"># setup</span> -<span id="L4557" class="LineNr"> 4557 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4558" class="LineNr"> 4558 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4559" class="LineNr"> 4559 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4560" class="LineNr"> 4560 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4561" class="LineNr"> 4561 </span> <span class="subxComment">#</span> -<span id="L4562" class="LineNr"> 4562 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4563" class="LineNr"> 4563 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4564" class="LineNr"> 4564 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L4565" class="LineNr"> 4565 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-float<\n"</span>) -<span id="L4566" class="LineNr"> 4566 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4567" class="LineNr"> 4567 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4568" class="LineNr"> 4568 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4569" class="LineNr"> 4569 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4570" class="LineNr"> 4570 </span> <span class="subxComment"># convert</span> -<span id="L4571" class="LineNr"> 4571 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4572" class="LineNr"> 4572 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4573" class="Folded"> 4573 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4579" class="LineNr"> 4579 </span> <span class="subxComment"># check output</span> -<span id="L4580" class="LineNr"> 4580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/0"</span>) -<span id="L4581" class="LineNr"> 4581 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) -<span id="L4582" class="LineNr"> 4582 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/2"</span>) -<span id="L4583" class="LineNr"> 4583 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/3"</span>) -<span id="L4584" class="LineNr"> 4584 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/4"</span>) -<span id="L4585" class="LineNr"> 4585 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/5"</span>) -<span id="L4586" class="LineNr"> 4586 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/6"</span>) -<span id="L4587" class="LineNr"> 4587 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/7"</span>) -<span id="L4588" class="LineNr"> 4588 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/8"</span>) -<span id="L4589" class="LineNr"> 4589 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/9"</span>) -<span id="L4590" class="LineNr"> 4590 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/10"</span>) -<span id="L4591" class="LineNr"> 4591 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/11"</span>) -<span id="L4592" class="LineNr"> 4592 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/12"</span>) -<span id="L4593" class="LineNr"> 4593 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/13"</span>) -<span id="L4594" class="LineNr"> 4594 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/14"</span>) -<span id="L4595" class="LineNr"> 4595 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/15"</span>) -<span id="L4596" class="LineNr"> 4596 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/16"</span>) -<span id="L4597" class="LineNr"> 4597 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/17"</span>) -<span id="L4598" class="LineNr"> 4598 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/18"</span>) -<span id="L4599" class="LineNr"> 4599 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/19"</span>) -<span id="L4600" class="LineNr"> 4600 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/20"</span>) -<span id="L4601" class="LineNr"> 4601 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/21"</span>) -<span id="L4602" class="LineNr"> 4602 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) -<span id="L4603" class="LineNr"> 4603 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/23"</span>) -<span id="L4604" class="LineNr"> 4604 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/24"</span>) -<span id="L4605" class="LineNr"> 4605 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4493'>test-convert-function-with-branches-in-block</a>/25"</span>) -<span id="L4606" class="LineNr"> 4606 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4607" class="LineNr"> 4607 </span> 89/<- %esp 5/r32/ebp -<span id="L4608" class="LineNr"> 4608 </span> 5d/pop-to-ebp -<span id="L4609" class="LineNr"> 4609 </span> c3/return -<span id="L4610" class="LineNr"> 4610 </span> -<span id="L4611" class="LineNr"> 4611 </span><span class="subxTest">test-convert-function-with-branches-in-named-block</span>: -<span id="L4612" class="LineNr"> 4612 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4613" class="LineNr"> 4613 </span> 55/push-ebp -<span id="L4614" class="LineNr"> 4614 </span> 89/<- %ebp 4/r32/esp -<span id="L4615" class="LineNr"> 4615 </span> <span class="subxComment"># setup</span> -<span id="L4616" class="LineNr"> 4616 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4617" class="LineNr"> 4617 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4618" class="LineNr"> 4618 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4619" class="LineNr"> 4619 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4620" class="LineNr"> 4620 </span> <span class="subxComment">#</span> -<span id="L4621" class="LineNr"> 4621 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4622" class="LineNr"> 4622 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) -<span id="L4623" class="LineNr"> 4623 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= $bar\n"</span>) -<span id="L4624" class="LineNr"> 4624 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr< $bar\n"</span>) -<span id="L4625" class="LineNr"> 4625 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4626" class="LineNr"> 4626 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4627" class="LineNr"> 4627 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4628" class="LineNr"> 4628 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4629" class="LineNr"> 4629 </span> <span class="subxComment"># convert</span> -<span id="L4630" class="LineNr"> 4630 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4631" class="LineNr"> 4631 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4632" class="Folded"> 4632 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4638" class="LineNr"> 4638 </span> <span class="subxComment"># check output</span> -<span id="L4639" class="LineNr"> 4639 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/0"</span>) -<span id="L4640" class="LineNr"> 4640 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/1"</span>) -<span id="L4641" class="LineNr"> 4641 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/2"</span>) -<span id="L4642" class="LineNr"> 4642 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/3"</span>) -<span id="L4643" class="LineNr"> 4643 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/4"</span>) -<span id="L4644" class="LineNr"> 4644 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/5"</span>) -<span id="L4645" class="LineNr"> 4645 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/6"</span>) -<span id="L4646" class="LineNr"> 4646 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/7"</span>) -<span id="L4647" class="LineNr"> 4647 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/8"</span>) -<span id="L4648" class="LineNr"> 4648 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/9"</span>) -<span id="L4649" class="LineNr"> 4649 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/10"</span>) -<span id="L4650" class="LineNr"> 4650 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/11"</span>) -<span id="L4651" class="LineNr"> 4651 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/12"</span>) -<span id="L4652" class="LineNr"> 4652 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/13"</span>) -<span id="L4653" class="LineNr"> 4653 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/14"</span>) -<span id="L4654" class="LineNr"> 4654 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/15"</span>) -<span id="L4655" class="LineNr"> 4655 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/16"</span>) -<span id="L4656" class="LineNr"> 4656 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/17"</span>) -<span id="L4657" class="LineNr"> 4657 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/18"</span>) -<span id="L4658" class="LineNr"> 4658 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/19"</span>) -<span id="L4659" class="LineNr"> 4659 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/20"</span>) -<span id="L4660" class="LineNr"> 4660 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/21"</span>) -<span id="L4661" class="LineNr"> 4661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/22"</span>) -<span id="L4662" class="LineNr"> 4662 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/23"</span>) -<span id="L4663" class="LineNr"> 4663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/24"</span>) -<span id="L4664" class="LineNr"> 4664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-named-block</a>/25"</span>) -<span id="L4665" class="LineNr"> 4665 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4666" class="LineNr"> 4666 </span> 89/<- %esp 5/r32/ebp -<span id="L4667" class="LineNr"> 4667 </span> 5d/pop-to-ebp -<span id="L4668" class="LineNr"> 4668 </span> c3/return -<span id="L4669" class="LineNr"> 4669 </span> -<span id="L4670" class="LineNr"> 4670 </span><span class="subxTest">test-convert-function-with-var-in-nested-block</span>: -<span id="L4671" class="LineNr"> 4671 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4672" class="LineNr"> 4672 </span> 55/push-ebp -<span id="L4673" class="LineNr"> 4673 </span> 89/<- %ebp 4/r32/esp -<span id="L4674" class="LineNr"> 4674 </span> <span class="subxComment"># setup</span> -<span id="L4675" class="LineNr"> 4675 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4676" class="LineNr"> 4676 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4677" class="LineNr"> 4677 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4678" class="LineNr"> 4678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4679" class="LineNr"> 4679 </span> <span class="subxComment">#</span> -<span id="L4680" class="LineNr"> 4680 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4681" class="LineNr"> 4681 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4682" class="LineNr"> 4682 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4683" class="LineNr"> 4683 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4684" class="LineNr"> 4684 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4685" class="LineNr"> 4685 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4686" class="LineNr"> 4686 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4687" class="LineNr"> 4687 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4688" class="LineNr"> 4688 </span> <span class="subxComment"># convert</span> -<span id="L4689" class="LineNr"> 4689 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4690" class="LineNr"> 4690 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4691" class="Folded"> 4691 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4697" class="LineNr"> 4697 </span> <span class="subxComment"># check output</span> -<span id="L4698" class="LineNr"> 4698 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/0"</span>) -<span id="L4699" class="LineNr"> 4699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/1"</span>) -<span id="L4700" class="LineNr"> 4700 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/2"</span>) -<span id="L4701" class="LineNr"> 4701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/3"</span>) -<span id="L4702" class="LineNr"> 4702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/4"</span>) -<span id="L4703" class="LineNr"> 4703 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/5"</span>) -<span id="L4704" class="LineNr"> 4704 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/6"</span>) -<span id="L4705" class="LineNr"> 4705 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/7"</span>) -<span id="L4706" class="LineNr"> 4706 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/8"</span>) -<span id="L4707" class="LineNr"> 4707 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/9"</span>) -<span id="L4708" class="LineNr"> 4708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/10"</span>) -<span id="L4709" class="LineNr"> 4709 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/11"</span>) -<span id="L4710" class="LineNr"> 4710 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/12"</span>) -<span id="L4711" class="LineNr"> 4711 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/13"</span>) -<span id="L4712" class="LineNr"> 4712 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/14"</span>) -<span id="L4713" class="LineNr"> 4713 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/15"</span>) -<span id="L4714" class="LineNr"> 4714 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/16"</span>) -<span id="L4715" class="LineNr"> 4715 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/17"</span>) -<span id="L4716" class="LineNr"> 4716 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/18"</span>) -<span id="L4717" class="LineNr"> 4717 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/19"</span>) -<span id="L4718" class="LineNr"> 4718 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/20"</span>) -<span id="L4719" class="LineNr"> 4719 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/21"</span>) -<span id="L4720" class="LineNr"> 4720 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4670'>test-convert-function-with-var-in-nested-block</a>/22"</span>) -<span id="L4721" class="LineNr"> 4721 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4722" class="LineNr"> 4722 </span> 89/<- %esp 5/r32/ebp -<span id="L4723" class="LineNr"> 4723 </span> 5d/pop-to-ebp -<span id="L4724" class="LineNr"> 4724 </span> c3/return -<span id="L4725" class="LineNr"> 4725 </span> -<span id="L4726" class="LineNr"> 4726 </span><span class="subxTest">test-convert-function-with-multiple-vars-in-nested-blocks</span>: -<span id="L4727" class="LineNr"> 4727 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4728" class="LineNr"> 4728 </span> 55/push-ebp -<span id="L4729" class="LineNr"> 4729 </span> 89/<- %ebp 4/r32/esp -<span id="L4730" class="LineNr"> 4730 </span> <span class="subxComment"># setup</span> -<span id="L4731" class="LineNr"> 4731 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4732" class="LineNr"> 4732 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4733" class="LineNr"> 4733 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4734" class="LineNr"> 4734 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4735" class="LineNr"> 4735 </span> <span class="subxComment">#</span> -<span id="L4736" class="LineNr"> 4736 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) -<span id="L4737" class="LineNr"> 4737 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4738" class="LineNr"> 4738 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L4739" class="LineNr"> 4739 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4740" class="LineNr"> 4740 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L4741" class="LineNr"> 4741 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) -<span id="L4742" class="LineNr"> 4742 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4743" class="LineNr"> 4743 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4744" class="LineNr"> 4744 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4745" class="LineNr"> 4745 </span> <span class="subxComment"># convert</span> -<span id="L4746" class="LineNr"> 4746 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4747" class="LineNr"> 4747 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4748" class="Folded"> 4748 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4754" class="LineNr"> 4754 </span> <span class="subxComment"># check output</span> -<span id="L4755" class="LineNr"> 4755 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/0"</span>) -<span id="L4756" class="LineNr"> 4756 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/1"</span>) -<span id="L4757" class="LineNr"> 4757 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/2"</span>) -<span id="L4758" class="LineNr"> 4758 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/3"</span>) -<span id="L4759" class="LineNr"> 4759 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/4"</span>) -<span id="L4760" class="LineNr"> 4760 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/5"</span>) -<span id="L4761" class="LineNr"> 4761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/6"</span>) -<span id="L4762" class="LineNr"> 4762 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/7"</span>) -<span id="L4763" class="LineNr"> 4763 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/8"</span>) -<span id="L4764" class="LineNr"> 4764 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/9"</span>) -<span id="L4765" class="LineNr"> 4765 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/10"</span>) -<span id="L4766" class="LineNr"> 4766 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/11"</span>) -<span id="L4767" class="LineNr"> 4767 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/12"</span>) -<span id="L4768" class="LineNr"> 4768 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/13"</span>) -<span id="L4769" class="LineNr"> 4769 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/14"</span>) -<span id="L4770" class="LineNr"> 4770 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/15"</span>) -<span id="L4771" class="LineNr"> 4771 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/16"</span>) -<span id="L4772" class="LineNr"> 4772 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/17"</span>) -<span id="L4773" class="LineNr"> 4773 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/18"</span>) -<span id="L4774" class="LineNr"> 4774 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/19"</span>) -<span id="L4775" class="LineNr"> 4775 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/20"</span>) -<span id="L4776" class="LineNr"> 4776 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/21"</span>) -<span id="L4777" class="LineNr"> 4777 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/22"</span>) -<span id="L4778" class="LineNr"> 4778 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/23"</span>) -<span id="L4779" class="LineNr"> 4779 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/24"</span>) -<span id="L4780" class="LineNr"> 4780 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4726'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/25"</span>) -<span id="L4781" class="LineNr"> 4781 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4782" class="LineNr"> 4782 </span> 89/<- %esp 5/r32/ebp -<span id="L4783" class="LineNr"> 4783 </span> 5d/pop-to-ebp -<span id="L4784" class="LineNr"> 4784 </span> c3/return -<span id="L4785" class="LineNr"> 4785 </span> -<span id="L4786" class="LineNr"> 4786 </span><span class="subxTest">test-convert-function-with-branches-and-local-vars</span>: -<span id="L4787" class="LineNr"> 4787 </span> <span class="subxComment"># A conditional 'break' after a 'var' in a block is converted into a</span> -<span id="L4788" class="LineNr"> 4788 </span> <span class="subxComment"># nested block that performs all necessary cleanup before jumping. This</span> -<span id="L4789" class="LineNr"> 4789 </span> <span class="subxComment"># results in some ugly code duplication.</span> -<span id="L4790" class="LineNr"> 4790 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4791" class="LineNr"> 4791 </span> 55/push-ebp -<span id="L4792" class="LineNr"> 4792 </span> 89/<- %ebp 4/r32/esp -<span id="L4793" class="LineNr"> 4793 </span> <span class="subxComment"># setup</span> -<span id="L4794" class="LineNr"> 4794 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4795" class="LineNr"> 4795 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4796" class="LineNr"> 4796 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4797" class="LineNr"> 4797 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4798" class="LineNr"> 4798 </span> <span class="subxComment">#</span> -<span id="L4799" class="LineNr"> 4799 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4800" class="LineNr"> 4800 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4801" class="LineNr"> 4801 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4802" class="LineNr"> 4802 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L4803" class="LineNr"> 4803 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4804" class="LineNr"> 4804 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4805" class="LineNr"> 4805 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4806" class="LineNr"> 4806 </span> <span class="subxComment"># convert</span> -<span id="L4807" class="LineNr"> 4807 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4808" class="LineNr"> 4808 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4809" class="Folded"> 4809 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4815" class="LineNr"> 4815 </span> <span class="subxComment"># check output</span> -<span id="L4816" class="LineNr"> 4816 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/0"</span>) -<span id="L4817" class="LineNr"> 4817 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/1"</span>) -<span id="L4818" class="LineNr"> 4818 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/2"</span>) -<span id="L4819" class="LineNr"> 4819 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/3"</span>) -<span id="L4820" class="LineNr"> 4820 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/4"</span>) -<span id="L4821" class="LineNr"> 4821 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/5"</span>) -<span id="L4822" class="LineNr"> 4822 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/6"</span>) -<span id="L4823" class="LineNr"> 4823 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/7"</span>) -<span id="L4824" class="LineNr"> 4824 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/8"</span>) -<span id="L4825" class="LineNr"> 4825 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/9"</span>) -<span id="L4826" class="LineNr"> 4826 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/10"</span>) -<span id="L4827" class="LineNr"> 4827 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/11"</span>) -<span id="L4828" class="LineNr"> 4828 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/12"</span>) -<span id="L4829" class="LineNr"> 4829 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/13"</span>) -<span id="L4830" class="LineNr"> 4830 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/14"</span>) -<span id="L4831" class="LineNr"> 4831 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/15"</span>) -<span id="L4832" class="LineNr"> 4832 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/16"</span>) -<span id="L4833" class="LineNr"> 4833 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/17"</span>) -<span id="L4834" class="LineNr"> 4834 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/18"</span>) -<span id="L4835" class="LineNr"> 4835 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/19"</span>) -<span id="L4836" class="LineNr"> 4836 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/20"</span>) -<span id="L4837" class="LineNr"> 4837 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/21"</span>) -<span id="L4838" class="LineNr"> 4838 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/22"</span>) -<span id="L4839" class="LineNr"> 4839 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4786'>test-convert-function-with-branches-and-local-vars</a>/23"</span>) -<span id="L4840" class="LineNr"> 4840 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4841" class="LineNr"> 4841 </span> 89/<- %esp 5/r32/ebp -<span id="L4842" class="LineNr"> 4842 </span> 5d/pop-to-ebp -<span id="L4843" class="LineNr"> 4843 </span> c3/return -<span id="L4844" class="LineNr"> 4844 </span> -<span id="L4845" class="LineNr"> 4845 </span><span class="subxTest">test-convert-function-with-conditional-loops-and-local-vars</span>: -<span id="L4846" class="LineNr"> 4846 </span> <span class="subxComment"># A conditional 'loop' after a 'var' in a block is converted into a nested</span> -<span id="L4847" class="LineNr"> 4847 </span> <span class="subxComment"># block that performs all necessary cleanup before jumping. This results</span> -<span id="L4848" class="LineNr"> 4848 </span> <span class="subxComment"># in some ugly code duplication.</span> -<span id="L4849" class="LineNr"> 4849 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4850" class="LineNr"> 4850 </span> 55/push-ebp -<span id="L4851" class="LineNr"> 4851 </span> 89/<- %ebp 4/r32/esp -<span id="L4852" class="LineNr"> 4852 </span> <span class="subxComment"># setup</span> -<span id="L4853" class="LineNr"> 4853 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4854" class="LineNr"> 4854 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4855" class="LineNr"> 4855 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4856" class="LineNr"> 4856 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4857" class="LineNr"> 4857 </span> <span class="subxComment">#</span> -<span id="L4858" class="LineNr"> 4858 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4859" class="LineNr"> 4859 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4860" class="LineNr"> 4860 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4861" class="LineNr"> 4861 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if->=\n"</span>) -<span id="L4862" class="LineNr"> 4862 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4863" class="LineNr"> 4863 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4864" class="LineNr"> 4864 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4865" class="LineNr"> 4865 </span> <span class="subxComment"># convert</span> -<span id="L4866" class="LineNr"> 4866 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4867" class="LineNr"> 4867 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4868" class="Folded"> 4868 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4874" class="LineNr"> 4874 </span> <span class="subxComment"># check output</span> -<span id="L4875" class="LineNr"> 4875 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/0"</span>) -<span id="L4876" class="LineNr"> 4876 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/1"</span>) -<span id="L4877" class="LineNr"> 4877 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/2"</span>) -<span id="L4878" class="LineNr"> 4878 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/3"</span>) -<span id="L4879" class="LineNr"> 4879 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/4"</span>) -<span id="L4880" class="LineNr"> 4880 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/5"</span>) -<span id="L4881" class="LineNr"> 4881 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/6"</span>) -<span id="L4882" class="LineNr"> 4882 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/7"</span>) -<span id="L4883" class="LineNr"> 4883 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/8"</span>) -<span id="L4884" class="LineNr"> 4884 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/9"</span>) -<span id="L4885" class="LineNr"> 4885 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/10"</span>) -<span id="L4886" class="LineNr"> 4886 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/11"</span>) -<span id="L4887" class="LineNr"> 4887 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/12"</span>) -<span id="L4888" class="LineNr"> 4888 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/13"</span>) -<span id="L4889" class="LineNr"> 4889 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/14"</span>) -<span id="L4890" class="LineNr"> 4890 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/15"</span>) -<span id="L4891" class="LineNr"> 4891 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/16"</span>) -<span id="L4892" class="LineNr"> 4892 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/17"</span>) -<span id="L4893" class="LineNr"> 4893 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/18"</span>) -<span id="L4894" class="LineNr"> 4894 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/19"</span>) -<span id="L4895" class="LineNr"> 4895 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/20"</span>) -<span id="L4896" class="LineNr"> 4896 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/21"</span>) -<span id="L4897" class="LineNr"> 4897 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/22"</span>) -<span id="L4898" class="LineNr"> 4898 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4845'>test-convert-function-with-conditional-loops-and-local-vars</a>/23"</span>) -<span id="L4899" class="LineNr"> 4899 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4900" class="LineNr"> 4900 </span> 89/<- %esp 5/r32/ebp -<span id="L4901" class="LineNr"> 4901 </span> 5d/pop-to-ebp -<span id="L4902" class="LineNr"> 4902 </span> c3/return -<span id="L4903" class="LineNr"> 4903 </span> -<span id="L4904" class="LineNr"> 4904 </span><span class="subxTest">test-convert-function-with-unconditional-loops-and-local-vars</span>: -<span id="L4905" class="LineNr"> 4905 </span> <span class="subxComment"># An unconditional 'loop' after a 'var' in a block is emitted _after_ the</span> -<span id="L4906" class="LineNr"> 4906 </span> <span class="subxComment"># regular block cleanup. Any instructions after 'loop' are dead and</span> -<span id="L4907" class="LineNr"> 4907 </span> <span class="subxComment"># therefore skipped.</span> -<span id="L4908" class="LineNr"> 4908 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4909" class="LineNr"> 4909 </span> 55/push-ebp -<span id="L4910" class="LineNr"> 4910 </span> 89/<- %ebp 4/r32/esp -<span id="L4911" class="LineNr"> 4911 </span> <span class="subxComment"># setup</span> -<span id="L4912" class="LineNr"> 4912 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4913" class="LineNr"> 4913 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4914" class="LineNr"> 4914 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4915" class="LineNr"> 4915 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4916" class="LineNr"> 4916 </span> <span class="subxComment">#</span> -<span id="L4917" class="LineNr"> 4917 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4918" class="LineNr"> 4918 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4919" class="LineNr"> 4919 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4920" class="LineNr"> 4920 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4921" class="LineNr"> 4921 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4922" class="LineNr"> 4922 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4923" class="LineNr"> 4923 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4924" class="LineNr"> 4924 </span> <span class="subxComment"># convert</span> -<span id="L4925" class="LineNr"> 4925 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4926" class="LineNr"> 4926 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4927" class="Folded"> 4927 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4933" class="LineNr"> 4933 </span> <span class="subxComment"># check output</span> -<span id="L4934" class="LineNr"> 4934 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/0"</span>) -<span id="L4935" class="LineNr"> 4935 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/1"</span>) -<span id="L4936" class="LineNr"> 4936 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/2"</span>) -<span id="L4937" class="LineNr"> 4937 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/3"</span>) -<span id="L4938" class="LineNr"> 4938 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/4"</span>) -<span id="L4939" class="LineNr"> 4939 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/5"</span>) -<span id="L4940" class="LineNr"> 4940 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/6"</span>) -<span id="L4941" class="LineNr"> 4941 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/7"</span>) -<span id="L4942" class="LineNr"> 4942 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/8"</span>) -<span id="L4943" class="LineNr"> 4943 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/9"</span>) -<span id="L4944" class="LineNr"> 4944 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/10"</span>) -<span id="L4945" class="LineNr"> 4945 </span> <span class="subxComment"># not emitted: ff 0/subop/increment *(ebp+0xfffffffc)</span> -<span id="L4946" class="LineNr"> 4946 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/11"</span>) -<span id="L4947" class="LineNr"> 4947 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/12"</span>) -<span id="L4948" class="LineNr"> 4948 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/13"</span>) -<span id="L4949" class="LineNr"> 4949 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/14"</span>) -<span id="L4950" class="LineNr"> 4950 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/15"</span>) -<span id="L4951" class="LineNr"> 4951 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/16"</span>) -<span id="L4952" class="LineNr"> 4952 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/17"</span>) -<span id="L4953" class="LineNr"> 4953 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-unconditional-loops-and-local-vars</a>/18"</span>) -<span id="L4954" class="LineNr"> 4954 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4955" class="LineNr"> 4955 </span> 89/<- %esp 5/r32/ebp -<span id="L4956" class="LineNr"> 4956 </span> 5d/pop-to-ebp -<span id="L4957" class="LineNr"> 4957 </span> c3/return -<span id="L4958" class="LineNr"> 4958 </span> -<span id="L4959" class="LineNr"> 4959 </span><span class="subxTest">test-convert-function-with-branches-and-loops-and-local-vars</span>: -<span id="L4960" class="LineNr"> 4960 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4961" class="LineNr"> 4961 </span> 55/push-ebp -<span id="L4962" class="LineNr"> 4962 </span> 89/<- %ebp 4/r32/esp -<span id="L4963" class="LineNr"> 4963 </span> <span class="subxComment"># setup</span> -<span id="L4964" class="LineNr"> 4964 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L4965" class="LineNr"> 4965 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L4966" class="LineNr"> 4966 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L4967" class="LineNr"> 4967 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L4968" class="LineNr"> 4968 </span> <span class="subxComment">#</span> -<span id="L4969" class="LineNr"> 4969 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L4970" class="LineNr"> 4970 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L4971" class="LineNr"> 4971 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L4972" class="LineNr"> 4972 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) -<span id="L4973" class="LineNr"> 4973 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L4974" class="LineNr"> 4974 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L4975" class="LineNr"> 4975 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L4976" class="LineNr"> 4976 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L4977" class="LineNr"> 4977 </span> <span class="subxComment"># convert</span> -<span id="L4978" class="LineNr"> 4978 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L4979" class="LineNr"> 4979 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L4980" class="Folded"> 4980 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4986" class="LineNr"> 4986 </span> <span class="subxComment"># check output</span> -<span id="L4987" class="LineNr"> 4987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/0"</span>) -<span id="L4988" class="LineNr"> 4988 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/1"</span>) -<span id="L4989" class="LineNr"> 4989 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/2"</span>) -<span id="L4990" class="LineNr"> 4990 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/3"</span>) -<span id="L4991" class="LineNr"> 4991 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/4"</span>) -<span id="L4992" class="LineNr"> 4992 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/5"</span>) -<span id="L4993" class="LineNr"> 4993 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/6"</span>) -<span id="L4994" class="LineNr"> 4994 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/7"</span>) -<span id="L4995" class="LineNr"> 4995 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/8"</span>) -<span id="L4996" class="LineNr"> 4996 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/9"</span>) -<span id="L4997" class="LineNr"> 4997 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/10"</span>) -<span id="L4998" class="LineNr"> 4998 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/11"</span>) -<span id="L4999" class="LineNr"> 4999 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/12"</span>) -<span id="L5000" class="LineNr"> 5000 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/13"</span>) -<span id="L5001" class="LineNr"> 5001 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/14"</span>) -<span id="L5002" class="LineNr"> 5002 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/15"</span>) -<span id="L5003" class="LineNr"> 5003 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/16"</span>) -<span id="L5004" class="LineNr"> 5004 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/17"</span>) -<span id="L5005" class="LineNr"> 5005 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/18"</span>) -<span id="L5006" class="LineNr"> 5006 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/19"</span>) -<span id="L5007" class="LineNr"> 5007 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/20"</span>) -<span id="L5008" class="LineNr"> 5008 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/21"</span>) -<span id="L5009" class="LineNr"> 5009 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/22"</span>) -<span id="L5010" class="LineNr"> 5010 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/23"</span>) -<span id="L5011" class="LineNr"> 5011 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4959'>test-convert-function-with-branches-and-loops-and-local-vars</a>/24"</span>) -<span id="L5012" class="LineNr"> 5012 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5013" class="LineNr"> 5013 </span> 89/<- %esp 5/r32/ebp -<span id="L5014" class="LineNr"> 5014 </span> 5d/pop-to-ebp -<span id="L5015" class="LineNr"> 5015 </span> c3/return -<span id="L5016" class="LineNr"> 5016 </span> -<span id="L5017" class="LineNr"> 5017 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</span>: -<span id="L5018" class="LineNr"> 5018 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5019" class="LineNr"> 5019 </span> 55/push-ebp -<span id="L5020" class="LineNr"> 5020 </span> 89/<- %ebp 4/r32/esp -<span id="L5021" class="LineNr"> 5021 </span> <span class="subxComment"># setup</span> -<span id="L5022" class="LineNr"> 5022 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5023" class="LineNr"> 5023 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5024" class="LineNr"> 5024 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5025" class="LineNr"> 5025 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5026" class="LineNr"> 5026 </span> <span class="subxComment">#</span> -<span id="L5027" class="LineNr"> 5027 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5028" class="LineNr"> 5028 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5029" class="LineNr"> 5029 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L5030" class="LineNr"> 5030 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5031" class="LineNr"> 5031 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L5032" class="LineNr"> 5032 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) -<span id="L5033" class="LineNr"> 5033 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L5034" class="LineNr"> 5034 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) -<span id="L5035" class="LineNr"> 5035 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5036" class="LineNr"> 5036 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5037" class="LineNr"> 5037 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5038" class="LineNr"> 5038 </span> <span class="subxComment"># convert</span> -<span id="L5039" class="LineNr"> 5039 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5040" class="LineNr"> 5040 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5041" class="Folded"> 5041 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5047" class="LineNr"> 5047 </span> <span class="subxComment"># check output</span> -<span id="L5048" class="LineNr"> 5048 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/0"</span>) -<span id="L5049" class="LineNr"> 5049 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/1"</span>) -<span id="L5050" class="LineNr"> 5050 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/2"</span>) -<span id="L5051" class="LineNr"> 5051 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/3"</span>) -<span id="L5052" class="LineNr"> 5052 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/4"</span>) -<span id="L5053" class="LineNr"> 5053 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/5"</span>) -<span id="L5054" class="LineNr"> 5054 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/6"</span>) -<span id="L5055" class="LineNr"> 5055 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/7"</span>) -<span id="L5056" class="LineNr"> 5056 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/8"</span>) -<span id="L5057" class="LineNr"> 5057 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/9"</span>) -<span id="L5058" class="LineNr"> 5058 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/10"</span>) -<span id="L5059" class="LineNr"> 5059 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/11"</span>) -<span id="L5060" class="LineNr"> 5060 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/12"</span>) -<span id="L5061" class="LineNr"> 5061 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/13"</span>) -<span id="L5062" class="LineNr"> 5062 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/14"</span>) -<span id="L5063" class="LineNr"> 5063 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/15"</span>) -<span id="L5064" class="LineNr"> 5064 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/16"</span>) -<span id="L5065" class="LineNr"> 5065 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/17"</span>) -<span id="L5066" class="LineNr"> 5066 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/18"</span>) -<span id="L5067" class="LineNr"> 5067 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/19"</span>) -<span id="L5068" class="LineNr"> 5068 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/20"</span>) -<span id="L5069" class="LineNr"> 5069 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/21"</span>) -<span id="L5070" class="LineNr"> 5070 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/22"</span>) -<span id="L5071" class="LineNr"> 5071 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/23"</span>) -<span id="L5072" class="LineNr"> 5072 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/24"</span>) -<span id="L5073" class="LineNr"> 5073 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/25"</span>) -<span id="L5074" class="LineNr"> 5074 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/26"</span>) -<span id="L5075" class="LineNr"> 5075 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/27"</span>) -<span id="L5076" class="LineNr"> 5076 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/28"</span>) -<span id="L5077" class="LineNr"> 5077 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/29"</span>) -<span id="L5078" class="LineNr"> 5078 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/30"</span>) -<span id="L5079" class="LineNr"> 5079 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5017'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/31"</span>) -<span id="L5080" class="LineNr"> 5080 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5081" class="LineNr"> 5081 </span> 89/<- %esp 5/r32/ebp -<span id="L5082" class="LineNr"> 5082 </span> 5d/pop-to-ebp -<span id="L5083" class="LineNr"> 5083 </span> c3/return -<span id="L5084" class="LineNr"> 5084 </span> -<span id="L5085" class="LineNr"> 5085 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</span>: -<span id="L5086" class="LineNr"> 5086 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5087" class="LineNr"> 5087 </span> 55/push-ebp -<span id="L5088" class="LineNr"> 5088 </span> 89/<- %ebp 4/r32/esp -<span id="L5089" class="LineNr"> 5089 </span> <span class="subxComment"># setup</span> -<span id="L5090" class="LineNr"> 5090 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5091" class="LineNr"> 5091 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5092" class="LineNr"> 5092 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5093" class="LineNr"> 5093 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5094" class="LineNr"> 5094 </span> <span class="subxComment"># non-local conditional branch from a block without a local variable,</span> -<span id="L5095" class="LineNr"> 5095 </span> <span class="subxComment"># unwinding a local on the stack</span> -<span id="L5096" class="LineNr"> 5096 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5097" class="LineNr"> 5097 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5098" class="LineNr"> 5098 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L5099" class="LineNr"> 5099 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5100" class="LineNr"> 5100 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) -<span id="L5101" class="LineNr"> 5101 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5102" class="LineNr"> 5102 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5103" class="LineNr"> 5103 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5104" class="LineNr"> 5104 </span> <span class="subxComment"># convert</span> -<span id="L5105" class="LineNr"> 5105 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5106" class="LineNr"> 5106 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5107" class="Folded"> 5107 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5113" class="LineNr"> 5113 </span> <span class="subxComment"># check output</span> -<span id="L5114" class="LineNr"> 5114 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/0"</span>) -<span id="L5115" class="LineNr"> 5115 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/1"</span>) -<span id="L5116" class="LineNr"> 5116 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/2"</span>) -<span id="L5117" class="LineNr"> 5117 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/3"</span>) -<span id="L5118" class="LineNr"> 5118 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/4"</span>) -<span id="L5119" class="LineNr"> 5119 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/5"</span>) -<span id="L5120" class="LineNr"> 5120 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/6"</span>) -<span id="L5121" class="LineNr"> 5121 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/7"</span>) -<span id="L5122" class="LineNr"> 5122 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/8"</span>) -<span id="L5123" class="LineNr"> 5123 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/9"</span>) -<span id="L5124" class="LineNr"> 5124 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/10"</span>) -<span id="L5125" class="LineNr"> 5125 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/11"</span>) -<span id="L5126" class="LineNr"> 5126 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/12"</span>) -<span id="L5127" class="LineNr"> 5127 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/13"</span>) -<span id="L5128" class="LineNr"> 5128 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/14"</span>) -<span id="L5129" class="LineNr"> 5129 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/15"</span>) -<span id="L5130" class="LineNr"> 5130 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/16"</span>) -<span id="L5131" class="LineNr"> 5131 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/17"</span>) -<span id="L5132" class="LineNr"> 5132 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/18"</span>) -<span id="L5133" class="LineNr"> 5133 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/19"</span>) -<span id="L5134" class="LineNr"> 5134 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/20"</span>) -<span id="L5135" class="LineNr"> 5135 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/21"</span>) -<span id="L5136" class="LineNr"> 5136 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/22"</span>) -<span id="L5137" class="LineNr"> 5137 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/23"</span>) -<span id="L5138" class="LineNr"> 5138 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/24"</span>) -<span id="L5139" class="LineNr"> 5139 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/25"</span>) -<span id="L5140" class="LineNr"> 5140 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5085'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/26"</span>) -<span id="L5141" class="LineNr"> 5141 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5142" class="LineNr"> 5142 </span> 89/<- %esp 5/r32/ebp -<span id="L5143" class="LineNr"> 5143 </span> 5d/pop-to-ebp -<span id="L5144" class="LineNr"> 5144 </span> c3/return -<span id="L5145" class="LineNr"> 5145 </span> -<span id="L5146" class="LineNr"> 5146 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</span>: -<span id="L5147" class="LineNr"> 5147 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5148" class="LineNr"> 5148 </span> 55/push-ebp -<span id="L5149" class="LineNr"> 5149 </span> 89/<- %ebp 4/r32/esp -<span id="L5150" class="LineNr"> 5150 </span> <span class="subxComment"># setup</span> -<span id="L5151" class="LineNr"> 5151 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5152" class="LineNr"> 5152 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5153" class="LineNr"> 5153 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5154" class="LineNr"> 5154 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5155" class="LineNr"> 5155 </span> <span class="subxComment"># non-local unconditional branch from a block without a local variable,</span> -<span id="L5156" class="LineNr"> 5156 </span> <span class="subxComment"># unwinding a local on the stack</span> -<span id="L5157" class="LineNr"> 5157 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5158" class="LineNr"> 5158 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5159" class="LineNr"> 5159 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L5160" class="LineNr"> 5160 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5161" class="LineNr"> 5161 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) -<span id="L5162" class="LineNr"> 5162 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5163" class="LineNr"> 5163 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5164" class="LineNr"> 5164 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5165" class="LineNr"> 5165 </span> <span class="subxComment"># convert</span> -<span id="L5166" class="LineNr"> 5166 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5167" class="LineNr"> 5167 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5168" class="Folded"> 5168 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5174" class="LineNr"> 5174 </span> <span class="subxComment"># check output</span> -<span id="L5175" class="LineNr"> 5175 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/0"</span>) -<span id="L5176" class="LineNr"> 5176 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/1"</span>) -<span id="L5177" class="LineNr"> 5177 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/2"</span>) -<span id="L5178" class="LineNr"> 5178 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/3"</span>) -<span id="L5179" class="LineNr"> 5179 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/4"</span>) -<span id="L5180" class="LineNr"> 5180 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/5"</span>) -<span id="L5181" class="LineNr"> 5181 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/6"</span>) -<span id="L5182" class="LineNr"> 5182 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/7"</span>) -<span id="L5183" class="LineNr"> 5183 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/8"</span>) -<span id="L5184" class="LineNr"> 5184 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/9"</span>) -<span id="L5185" class="LineNr"> 5185 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/10"</span>) -<span id="L5186" class="LineNr"> 5186 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/11"</span>) -<span id="L5187" class="LineNr"> 5187 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/12"</span>) -<span id="L5188" class="LineNr"> 5188 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/14"</span>) -<span id="L5189" class="LineNr"> 5189 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/15"</span>) -<span id="L5190" class="LineNr"> 5190 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/16"</span>) -<span id="L5191" class="LineNr"> 5191 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/17"</span>) -<span id="L5192" class="LineNr"> 5192 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/18"</span>) -<span id="L5193" class="LineNr"> 5193 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/19"</span>) -<span id="L5194" class="LineNr"> 5194 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/20"</span>) -<span id="L5195" class="LineNr"> 5195 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/21"</span>) -<span id="L5196" class="LineNr"> 5196 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/22"</span>) -<span id="L5197" class="LineNr"> 5197 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/23"</span>) -<span id="L5198" class="LineNr"> 5198 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5146'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/24"</span>) -<span id="L5199" class="LineNr"> 5199 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5200" class="LineNr"> 5200 </span> 89/<- %esp 5/r32/ebp -<span id="L5201" class="LineNr"> 5201 </span> 5d/pop-to-ebp -<span id="L5202" class="LineNr"> 5202 </span> c3/return -<span id="L5203" class="LineNr"> 5203 </span> -<span id="L5204" class="LineNr"> 5204 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</span>: -<span id="L5205" class="LineNr"> 5205 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5206" class="LineNr"> 5206 </span> 55/push-ebp -<span id="L5207" class="LineNr"> 5207 </span> 89/<- %ebp 4/r32/esp -<span id="L5208" class="LineNr"> 5208 </span> <span class="subxComment"># setup</span> -<span id="L5209" class="LineNr"> 5209 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5210" class="LineNr"> 5210 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5211" class="LineNr"> 5211 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5212" class="LineNr"> 5212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5213" class="LineNr"> 5213 </span> <span class="subxComment">#</span> -<span id="L5214" class="LineNr"> 5214 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5215" class="LineNr"> 5215 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5216" class="LineNr"> 5216 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: int <- copy 0\n"</span>) -<span id="L5217" class="LineNr"> 5217 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5218" class="LineNr"> 5218 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) -<span id="L5219" class="LineNr"> 5219 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5220" class="LineNr"> 5220 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5221" class="LineNr"> 5221 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5222" class="LineNr"> 5222 </span> <span class="subxComment"># convert</span> -<span id="L5223" class="LineNr"> 5223 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5224" class="LineNr"> 5224 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5225" class="Folded"> 5225 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5231" class="LineNr"> 5231 </span> <span class="subxComment"># check output</span> -<span id="L5232" class="LineNr"> 5232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/0"</span>) -<span id="L5233" class="LineNr"> 5233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/1"</span>) -<span id="L5234" class="LineNr"> 5234 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/2"</span>) -<span id="L5235" class="LineNr"> 5235 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/3"</span>) -<span id="L5236" class="LineNr"> 5236 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/4"</span>) -<span id="L5237" class="LineNr"> 5237 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/5"</span>) -<span id="L5238" class="LineNr"> 5238 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/6"</span>) -<span id="L5239" class="LineNr"> 5239 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/7"</span>) -<span id="L5240" class="LineNr"> 5240 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/8"</span>) -<span id="L5241" class="LineNr"> 5241 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/9"</span>) -<span id="L5242" class="LineNr"> 5242 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/10"</span>) -<span id="L5243" class="LineNr"> 5243 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/11"</span>) -<span id="L5244" class="LineNr"> 5244 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/12"</span>) -<span id="L5245" class="LineNr"> 5245 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/13"</span>) -<span id="L5246" class="LineNr"> 5246 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/14"</span>) -<span id="L5247" class="LineNr"> 5247 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/15"</span>) -<span id="L5248" class="LineNr"> 5248 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/16"</span>) -<span id="L5249" class="LineNr"> 5249 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/17"</span>) -<span id="L5250" class="LineNr"> 5250 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/18"</span>) -<span id="L5251" class="LineNr"> 5251 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/19"</span>) -<span id="L5252" class="LineNr"> 5252 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/20"</span>) -<span id="L5253" class="LineNr"> 5253 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/21"</span>) -<span id="L5254" class="LineNr"> 5254 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/22"</span>) -<span id="L5255" class="LineNr"> 5255 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/23"</span>) -<span id="L5256" class="LineNr"> 5256 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5204'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/24"</span>) -<span id="L5257" class="LineNr"> 5257 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5258" class="LineNr"> 5258 </span> 89/<- %esp 5/r32/ebp -<span id="L5259" class="LineNr"> 5259 </span> 5d/pop-to-ebp -<span id="L5260" class="LineNr"> 5260 </span> c3/return -<span id="L5261" class="LineNr"> 5261 </span> -<span id="L5262" class="LineNr"> 5262 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-break-and-local-vars</span>: -<span id="L5263" class="LineNr"> 5263 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5264" class="LineNr"> 5264 </span> 55/push-ebp -<span id="L5265" class="LineNr"> 5265 </span> 89/<- %ebp 4/r32/esp -<span id="L5266" class="LineNr"> 5266 </span> <span class="subxComment"># setup</span> -<span id="L5267" class="LineNr"> 5267 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5268" class="LineNr"> 5268 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5269" class="LineNr"> 5269 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5270" class="LineNr"> 5270 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5271" class="LineNr"> 5271 </span> <span class="subxComment">#</span> -<span id="L5272" class="LineNr"> 5272 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5273" class="LineNr"> 5273 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5274" class="LineNr"> 5274 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L5275" class="LineNr"> 5275 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5276" class="LineNr"> 5276 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L5277" class="LineNr"> 5277 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) -<span id="L5278" class="LineNr"> 5278 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L5279" class="LineNr"> 5279 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5280" class="LineNr"> 5280 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5281" class="LineNr"> 5281 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5282" class="LineNr"> 5282 </span> <span class="subxComment"># convert</span> -<span id="L5283" class="LineNr"> 5283 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5284" class="LineNr"> 5284 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5285" class="Folded"> 5285 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5291" class="LineNr"> 5291 </span> <span class="subxComment"># check output</span> -<span id="L5292" class="LineNr"> 5292 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/0"</span>) -<span id="L5293" class="LineNr"> 5293 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/1"</span>) -<span id="L5294" class="LineNr"> 5294 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/2"</span>) -<span id="L5295" class="LineNr"> 5295 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/3"</span>) -<span id="L5296" class="LineNr"> 5296 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/4"</span>) -<span id="L5297" class="LineNr"> 5297 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/5"</span>) -<span id="L5298" class="LineNr"> 5298 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/6"</span>) -<span id="L5299" class="LineNr"> 5299 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/7"</span>) -<span id="L5300" class="LineNr"> 5300 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/8"</span>) -<span id="L5301" class="LineNr"> 5301 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/9"</span>) -<span id="L5302" class="LineNr"> 5302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/10"</span>) -<span id="L5303" class="LineNr"> 5303 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/11"</span>) -<span id="L5304" class="LineNr"> 5304 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/12"</span>) -<span id="L5305" class="LineNr"> 5305 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/13"</span>) -<span id="L5306" class="LineNr"> 5306 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/14"</span>) -<span id="L5307" class="LineNr"> 5307 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/15"</span>) -<span id="L5308" class="LineNr"> 5308 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/16"</span>) -<span id="L5309" class="LineNr"> 5309 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/17"</span>) -<span id="L5310" class="LineNr"> 5310 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/18"</span>) -<span id="L5311" class="LineNr"> 5311 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/19"</span>) -<span id="L5312" class="LineNr"> 5312 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/20"</span>) -<span id="L5313" class="LineNr"> 5313 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/21"</span>) -<span id="L5314" class="LineNr"> 5314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/22"</span>) -<span id="L5315" class="LineNr"> 5315 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/23"</span>) -<span id="L5316" class="LineNr"> 5316 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/24"</span>) -<span id="L5317" class="LineNr"> 5317 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5262'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/25"</span>) -<span id="L5318" class="LineNr"> 5318 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5319" class="LineNr"> 5319 </span> 89/<- %esp 5/r32/ebp -<span id="L5320" class="LineNr"> 5320 </span> 5d/pop-to-ebp -<span id="L5321" class="LineNr"> 5321 </span> c3/return -<span id="L5322" class="LineNr"> 5322 </span> -<span id="L5323" class="LineNr"> 5323 </span><span class="subxTest">test-convert-function-with-unconditional-break-and-local-vars</span>: -<span id="L5324" class="LineNr"> 5324 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5325" class="LineNr"> 5325 </span> 55/push-ebp -<span id="L5326" class="LineNr"> 5326 </span> 89/<- %ebp 4/r32/esp -<span id="L5327" class="LineNr"> 5327 </span> <span class="subxComment"># setup</span> -<span id="L5328" class="LineNr"> 5328 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5329" class="LineNr"> 5329 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5330" class="LineNr"> 5330 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5331" class="LineNr"> 5331 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5332" class="LineNr"> 5332 </span> <span class="subxComment">#</span> -<span id="L5333" class="LineNr"> 5333 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5334" class="LineNr"> 5334 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5335" class="LineNr"> 5335 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L5336" class="LineNr"> 5336 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5337" class="LineNr"> 5337 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L5338" class="LineNr"> 5338 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break\n"</span>) -<span id="L5339" class="LineNr"> 5339 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L5340" class="LineNr"> 5340 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5341" class="LineNr"> 5341 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5342" class="LineNr"> 5342 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5343" class="LineNr"> 5343 </span> <span class="subxComment"># convert</span> -<span id="L5344" class="LineNr"> 5344 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5345" class="LineNr"> 5345 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5346" class="Folded"> 5346 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5352" class="LineNr"> 5352 </span> <span class="subxComment"># check output</span> -<span id="L5353" class="LineNr"> 5353 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/0"</span>) -<span id="L5354" class="LineNr"> 5354 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/1"</span>) -<span id="L5355" class="LineNr"> 5355 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/2"</span>) -<span id="L5356" class="LineNr"> 5356 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/3"</span>) -<span id="L5357" class="LineNr"> 5357 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/4"</span>) -<span id="L5358" class="LineNr"> 5358 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/5"</span>) -<span id="L5359" class="LineNr"> 5359 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/6"</span>) -<span id="L5360" class="LineNr"> 5360 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/7"</span>) -<span id="L5361" class="LineNr"> 5361 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/8"</span>) -<span id="L5362" class="LineNr"> 5362 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/9"</span>) -<span id="L5363" class="LineNr"> 5363 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/10"</span>) -<span id="L5364" class="LineNr"> 5364 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/11"</span>) -<span id="L5365" class="LineNr"> 5365 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/12"</span>) -<span id="L5366" class="LineNr"> 5366 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/13"</span>) -<span id="L5367" class="LineNr"> 5367 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/14"</span>) -<span id="L5368" class="LineNr"> 5368 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/15"</span>) -<span id="L5369" class="LineNr"> 5369 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/16"</span>) -<span id="L5370" class="LineNr"> 5370 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/17"</span>) -<span id="L5371" class="LineNr"> 5371 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/18"</span>) -<span id="L5372" class="LineNr"> 5372 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/19"</span>) -<span id="L5373" class="LineNr"> 5373 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/20"</span>) -<span id="L5374" class="LineNr"> 5374 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/21"</span>) -<span id="L5375" class="LineNr"> 5375 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/22"</span>) -<span id="L5376" class="LineNr"> 5376 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5323'>test-convert-function-with-unconditional-break-and-local-vars</a>/23"</span>) -<span id="L5377" class="LineNr"> 5377 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5378" class="LineNr"> 5378 </span> 89/<- %esp 5/r32/ebp -<span id="L5379" class="LineNr"> 5379 </span> 5d/pop-to-ebp -<span id="L5380" class="LineNr"> 5380 </span> c3/return -<span id="L5381" class="LineNr"> 5381 </span> -<span id="L5382" class="LineNr"> 5382 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</span>: -<span id="L5383" class="LineNr"> 5383 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5384" class="LineNr"> 5384 </span> 55/push-ebp -<span id="L5385" class="LineNr"> 5385 </span> 89/<- %ebp 4/r32/esp -<span id="L5386" class="LineNr"> 5386 </span> <span class="subxComment"># setup</span> -<span id="L5387" class="LineNr"> 5387 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5388" class="LineNr"> 5388 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5389" class="LineNr"> 5389 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5390" class="LineNr"> 5390 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5391" class="LineNr"> 5391 </span> <span class="subxComment">#</span> -<span id="L5392" class="LineNr"> 5392 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5393" class="LineNr"> 5393 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) -<span id="L5394" class="LineNr"> 5394 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L5395" class="LineNr"> 5395 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L5396" class="LineNr"> 5396 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L5397" class="LineNr"> 5397 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop a\n"</span>) -<span id="L5398" class="LineNr"> 5398 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L5399" class="LineNr"> 5399 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5400" class="LineNr"> 5400 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L5401" class="LineNr"> 5401 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5402" class="LineNr"> 5402 </span> <span class="subxComment"># convert</span> -<span id="L5403" class="LineNr"> 5403 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5404" class="LineNr"> 5404 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5405" class="Folded"> 5405 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5411" class="LineNr"> 5411 </span> <span class="subxComment"># check output</span> -<span id="L5412" class="LineNr"> 5412 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/0"</span>) -<span id="L5413" class="LineNr"> 5413 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/1"</span>) -<span id="L5414" class="LineNr"> 5414 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/2"</span>) -<span id="L5415" class="LineNr"> 5415 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/3"</span>) -<span id="L5416" class="LineNr"> 5416 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/4"</span>) -<span id="L5417" class="LineNr"> 5417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/5"</span>) -<span id="L5418" class="LineNr"> 5418 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/6"</span>) -<span id="L5419" class="LineNr"> 5419 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/7"</span>) -<span id="L5420" class="LineNr"> 5420 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/8"</span>) -<span id="L5421" class="LineNr"> 5421 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/9"</span>) -<span id="L5422" class="LineNr"> 5422 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/10"</span>) -<span id="L5423" class="LineNr"> 5423 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/11"</span>) -<span id="L5424" class="LineNr"> 5424 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/12"</span>) -<span id="L5425" class="LineNr"> 5425 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/13"</span>) -<span id="L5426" class="LineNr"> 5426 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump a:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/14"</span>) -<span id="L5427" class="LineNr"> 5427 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/15"</span>) -<span id="L5428" class="LineNr"> 5428 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/16"</span>) -<span id="L5429" class="LineNr"> 5429 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/17"</span>) -<span id="L5430" class="LineNr"> 5430 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/18"</span>) -<span id="L5431" class="LineNr"> 5431 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/19"</span>) -<span id="L5432" class="LineNr"> 5432 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/20"</span>) -<span id="L5433" class="LineNr"> 5433 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/21"</span>) -<span id="L5434" class="LineNr"> 5434 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/22"</span>) -<span id="L5435" class="LineNr"> 5435 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/23"</span>) -<span id="L5436" class="LineNr"> 5436 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/24"</span>) -<span id="L5437" class="LineNr"> 5437 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5382'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/25"</span>) -<span id="L5438" class="LineNr"> 5438 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5439" class="LineNr"> 5439 </span> 89/<- %esp 5/r32/ebp -<span id="L5440" class="LineNr"> 5440 </span> 5d/pop-to-ebp -<span id="L5441" class="LineNr"> 5441 </span> c3/return -<span id="L5442" class="LineNr"> 5442 </span> -<span id="L5443" class="LineNr"> 5443 </span><span class="subxTest">test-convert-function-with-local-array-var-in-mem</span>: -<span id="L5444" class="LineNr"> 5444 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5445" class="LineNr"> 5445 </span> 55/push-ebp -<span id="L5446" class="LineNr"> 5446 </span> 89/<- %ebp 4/r32/esp -<span id="L5447" class="LineNr"> 5447 </span> <span class="subxComment"># setup</span> -<span id="L5448" class="LineNr"> 5448 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5449" class="LineNr"> 5449 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5450" class="LineNr"> 5450 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5451" class="LineNr"> 5451 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5452" class="LineNr"> 5452 </span> <span class="subxComment">#</span> -<span id="L5453" class="LineNr"> 5453 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5454" class="LineNr"> 5454 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3)\n"</span>) -<span id="L5455" class="LineNr"> 5455 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5456" class="LineNr"> 5456 </span> <span class="subxComment"># convert</span> -<span id="L5457" class="LineNr"> 5457 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5458" class="LineNr"> 5458 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5459" class="Folded"> 5459 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5465" class="LineNr"> 5465 </span> <span class="subxComment"># check output</span> -<span id="L5466" class="LineNr"> 5466 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/0"</span>) -<span id="L5467" class="LineNr"> 5467 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/1"</span>) -<span id="L5468" class="LineNr"> 5468 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/2"</span>) -<span id="L5469" class="LineNr"> 5469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/3"</span>) -<span id="L5470" class="LineNr"> 5470 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/4"</span>) -<span id="L5471" class="LineNr"> 5471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/5"</span>) -<span id="L5472" class="LineNr"> 5472 </span> <span class="subxComment"># define x</span> -<span id="L5473" class="LineNr"> 5473 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/7"</span>) -<span id="L5474" class="LineNr"> 5474 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/8"</span>) -<span id="L5475" class="LineNr"> 5475 </span> <span class="subxComment"># reclaim x</span> -<span id="L5476" class="LineNr"> 5476 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/9"</span>) -<span id="L5477" class="LineNr"> 5477 </span> <span class="subxComment">#</span> -<span id="L5478" class="LineNr"> 5478 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/10"</span>) -<span id="L5479" class="LineNr"> 5479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/11"</span>) -<span id="L5480" class="LineNr"> 5480 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/12"</span>) -<span id="L5481" class="LineNr"> 5481 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/13"</span>) -<span id="L5482" class="LineNr"> 5482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/14"</span>) -<span id="L5483" class="LineNr"> 5483 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5443'>test-convert-function-with-local-array-var-in-mem</a>/15"</span>) -<span id="L5484" class="LineNr"> 5484 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5485" class="LineNr"> 5485 </span> 89/<- %esp 5/r32/ebp -<span id="L5486" class="LineNr"> 5486 </span> 5d/pop-to-ebp -<span id="L5487" class="LineNr"> 5487 </span> c3/return -<span id="L5488" class="LineNr"> 5488 </span> -<span id="L5489" class="LineNr"> 5489 </span><span class="subxTest">test-array-size-in-hex</span>: -<span id="L5490" class="LineNr"> 5490 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5491" class="LineNr"> 5491 </span> 55/push-ebp -<span id="L5492" class="LineNr"> 5492 </span> 89/<- %ebp 4/r32/esp -<span id="L5493" class="LineNr"> 5493 </span> <span class="subxComment"># setup</span> -<span id="L5494" class="LineNr"> 5494 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5495" class="LineNr"> 5495 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5496" class="LineNr"> 5496 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5497" class="LineNr"> 5497 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5498" class="LineNr"> 5498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L5499" class="LineNr"> 5499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L5500" class="LineNr"> 5500 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L5501" class="LineNr"> 5501 </span> 68/push 0/imm32 -<span id="L5502" class="LineNr"> 5502 </span> 68/push 0/imm32 -<span id="L5503" class="LineNr"> 5503 </span> 89/<- %edx 4/r32/esp -<span id="L5504" class="LineNr"> 5504 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L5505" class="LineNr"> 5505 </span> <span class="subxComment">#</span> -<span id="L5506" class="LineNr"> 5506 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5507" class="LineNr"> 5507 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 10)\n"</span>) -<span id="L5508" class="LineNr"> 5508 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5509" class="LineNr"> 5509 </span> <span class="subxComment"># convert</span> -<span id="L5510" class="LineNr"> 5510 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L5511" class="LineNr"> 5511 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L5512" class="LineNr"> 5512 </span> <span class="subxComment"># restore ed</span> -<span id="L5513" class="LineNr"> 5513 </span> 89/<- %edx 4/r32/esp -<span id="L5514" class="LineNr"> 5514 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5515" class="LineNr"> 5515 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L5516" class="Folded"> 5516 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5522" class="LineNr"> 5522 </span> <span class="subxComment"># check output</span> -<span id="L5523" class="LineNr"> 5523 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5489'>test-array-size-in-hex</a>: output should be empty"</span>) -<span id="L5524" class="LineNr"> 5524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L5489'>test-array-size-in-hex</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L5525" class="LineNr"> 5525 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L5526" class="LineNr"> 5526 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5489'>test-array-size-in-hex</a>: exit status"</span>) -<span id="L5527" class="LineNr"> 5527 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L5528" class="LineNr"> 5528 </span> 81 0/subop/add %esp 8/imm32 -<span id="L5529" class="LineNr"> 5529 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5530" class="LineNr"> 5530 </span> 5d/pop-to-ebp -<span id="L5531" class="LineNr"> 5531 </span> c3/return -<span id="L5532" class="LineNr"> 5532 </span> -<span id="L5533" class="LineNr"> 5533 </span><span class="subxTest">test-convert-function-with-populate</span>: -<span id="L5534" class="LineNr"> 5534 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5535" class="LineNr"> 5535 </span> 55/push-ebp -<span id="L5536" class="LineNr"> 5536 </span> 89/<- %ebp 4/r32/esp -<span id="L5537" class="LineNr"> 5537 </span> <span class="subxComment"># setup</span> -<span id="L5538" class="LineNr"> 5538 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5539" class="LineNr"> 5539 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5540" class="LineNr"> 5540 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5541" class="LineNr"> 5541 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5542" class="LineNr"> 5542 </span> <span class="subxComment">#</span> -<span id="L5543" class="LineNr"> 5543 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5544" class="LineNr"> 5544 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle array int) <- copy 0\n"</span>) -<span id="L5545" class="LineNr"> 5545 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 7\n"</span>) -<span id="L5546" class="LineNr"> 5546 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5547" class="LineNr"> 5547 </span> <span class="subxComment"># convert</span> -<span id="L5548" class="LineNr"> 5548 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5549" class="LineNr"> 5549 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5550" class="Folded"> 5550 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5556" class="LineNr"> 5556 </span> <span class="subxComment"># check output</span> -<span id="L5557" class="LineNr"> 5557 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/0"</span>) -<span id="L5558" class="LineNr"> 5558 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-populate/1"</span>) -<span id="L5559" class="LineNr"> 5559 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/2"</span>) -<span id="L5560" class="LineNr"> 5560 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/3"</span>) -<span id="L5561" class="LineNr"> 5561 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/4"</span>) -<span id="L5562" class="LineNr"> 5562 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/5"</span>) -<span id="L5563" class="LineNr"> 5563 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/6"</span>) -<span id="L5564" class="LineNr"> 5564 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/7"</span>) -<span id="L5565" class="LineNr"> 5565 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../308allocate-array.subx.html#L6'>allocate-array2</a> <a href='../120allocate.subx.html#L27'>Heap</a> 0x00000004 7 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> -<span id="L5566" class="LineNr"> 5566 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/9"</span>) -<span id="L5567" class="LineNr"> 5567 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/10"</span>) -<span id="L5568" class="LineNr"> 5568 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/11"</span>) -<span id="L5569" class="LineNr"> 5569 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-populate/12"</span>) -<span id="L5570" class="LineNr"> 5570 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/13"</span>) -<span id="L5571" class="LineNr"> 5571 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/14"</span>) -<span id="L5572" class="LineNr"> 5572 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5533'>test-convert-function-with-populate</a>/15"</span>) -<span id="L5573" class="LineNr"> 5573 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5574" class="LineNr"> 5574 </span> 89/<- %esp 5/r32/ebp -<span id="L5575" class="LineNr"> 5575 </span> 5d/pop-to-ebp -<span id="L5576" class="LineNr"> 5576 </span> c3/return -<span id="L5577" class="LineNr"> 5577 </span> -<span id="L5578" class="LineNr"> 5578 </span><span class="subxComment"># special-case for size(byte) when allocating array</span> -<span id="L5579" class="LineNr"> 5579 </span><span class="subxTest">test-convert-function-with-local-array-of-bytes-in-mem</span>: -<span id="L5580" class="LineNr"> 5580 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5581" class="LineNr"> 5581 </span> 55/push-ebp -<span id="L5582" class="LineNr"> 5582 </span> 89/<- %ebp 4/r32/esp -<span id="L5583" class="LineNr"> 5583 </span> <span class="subxComment"># setup</span> -<span id="L5584" class="LineNr"> 5584 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5585" class="LineNr"> 5585 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5586" class="LineNr"> 5586 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5587" class="LineNr"> 5587 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5588" class="LineNr"> 5588 </span> <span class="subxComment">#</span> -<span id="L5589" class="LineNr"> 5589 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5590" class="LineNr"> 5590 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array byte 3)\n"</span>) -<span id="L5591" class="LineNr"> 5591 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5592" class="LineNr"> 5592 </span> <span class="subxComment"># convert</span> -<span id="L5593" class="LineNr"> 5593 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5594" class="LineNr"> 5594 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5595" class="Folded"> 5595 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5601" class="LineNr"> 5601 </span> <span class="subxComment"># check output</span> -<span id="L5602" class="LineNr"> 5602 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/0"</span>) -<span id="L5603" class="LineNr"> 5603 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/1"</span>) -<span id="L5604" class="LineNr"> 5604 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/2"</span>) -<span id="L5605" class="LineNr"> 5605 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/3"</span>) -<span id="L5606" class="LineNr"> 5606 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/4"</span>) -<span id="L5607" class="LineNr"> 5607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/5"</span>) -<span id="L5608" class="LineNr"> 5608 </span> <span class="subxComment"># define x</span> -<span id="L5609" class="LineNr"> 5609 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/7"</span>) -<span id="L5610" class="LineNr"> 5610 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/8"</span>) -<span id="L5611" class="LineNr"> 5611 </span> <span class="subxComment"># reclaim x</span> -<span id="L5612" class="LineNr"> 5612 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/9"</span>) -<span id="L5613" class="LineNr"> 5613 </span> <span class="subxComment">#</span> -<span id="L5614" class="LineNr"> 5614 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/10"</span>) -<span id="L5615" class="LineNr"> 5615 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/11"</span>) -<span id="L5616" class="LineNr"> 5616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/12"</span>) -<span id="L5617" class="LineNr"> 5617 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/13"</span>) -<span id="L5618" class="LineNr"> 5618 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/14"</span>) -<span id="L5619" class="LineNr"> 5619 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5579'>test-convert-function-with-local-array-of-bytes-in-mem</a>/15"</span>) -<span id="L5620" class="LineNr"> 5620 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5621" class="LineNr"> 5621 </span> 89/<- %esp 5/r32/ebp -<span id="L5622" class="LineNr"> 5622 </span> 5d/pop-to-ebp -<span id="L5623" class="LineNr"> 5623 </span> c3/return -<span id="L5624" class="LineNr"> 5624 </span> -<span id="L5625" class="LineNr"> 5625 </span><span class="subxTest">test-convert-address</span>: -<span id="L5626" class="LineNr"> 5626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5627" class="LineNr"> 5627 </span> 55/push-ebp -<span id="L5628" class="LineNr"> 5628 </span> 89/<- %ebp 4/r32/esp -<span id="L5629" class="LineNr"> 5629 </span> <span class="subxComment"># setup</span> -<span id="L5630" class="LineNr"> 5630 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5631" class="LineNr"> 5631 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5632" class="LineNr"> 5632 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5633" class="LineNr"> 5633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5634" class="LineNr"> 5634 </span> <span class="subxComment">#</span> -<span id="L5635" class="LineNr"> 5635 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5636" class="LineNr"> 5636 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L5637" class="LineNr"> 5637 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- address a\n"</span>) -<span id="L5638" class="LineNr"> 5638 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5639" class="LineNr"> 5639 </span> <span class="subxComment"># convert</span> -<span id="L5640" class="LineNr"> 5640 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5641" class="LineNr"> 5641 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5642" class="Folded"> 5642 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5648" class="LineNr"> 5648 </span> <span class="subxComment"># check output</span> -<span id="L5649" class="LineNr"> 5649 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/0"</span>) -<span id="L5650" class="LineNr"> 5650 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-address/1"</span>) -<span id="L5651" class="LineNr"> 5651 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/2"</span>) -<span id="L5652" class="LineNr"> 5652 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/3"</span>) -<span id="L5653" class="LineNr"> 5653 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/4"</span>) -<span id="L5654" class="LineNr"> 5654 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/5"</span>) -<span id="L5655" class="LineNr"> 5655 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/6"</span>) -<span id="L5656" class="LineNr"> 5656 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/7"</span>) -<span id="L5657" class="LineNr"> 5657 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/8"</span>) -<span id="L5658" class="LineNr"> 5658 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/9"</span>) -<span id="L5659" class="LineNr"> 5659 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/10"</span>) -<span id="L5660" class="LineNr"> 5660 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/11"</span>) -<span id="L5661" class="LineNr"> 5661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/12"</span>) -<span id="L5662" class="LineNr"> 5662 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-address/13"</span>) -<span id="L5663" class="LineNr"> 5663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/14"</span>) -<span id="L5664" class="LineNr"> 5664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/15"</span>) -<span id="L5665" class="LineNr"> 5665 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5625'>test-convert-address</a>/16"</span>) -<span id="L5666" class="LineNr"> 5666 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5667" class="LineNr"> 5667 </span> 89/<- %esp 5/r32/ebp -<span id="L5668" class="LineNr"> 5668 </span> 5d/pop-to-ebp -<span id="L5669" class="LineNr"> 5669 </span> c3/return -<span id="L5670" class="LineNr"> 5670 </span> -<span id="L5671" class="LineNr"> 5671 </span><span class="subxTest">test-convert-floating-point-convert</span>: -<span id="L5672" class="LineNr"> 5672 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5673" class="LineNr"> 5673 </span> 55/push-ebp -<span id="L5674" class="LineNr"> 5674 </span> 89/<- %ebp 4/r32/esp -<span id="L5675" class="LineNr"> 5675 </span> <span class="subxComment"># setup</span> -<span id="L5676" class="LineNr"> 5676 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5677" class="LineNr"> 5677 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5678" class="LineNr"> 5678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5679" class="LineNr"> 5679 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5680" class="LineNr"> 5680 </span> <span class="subxComment">#</span> -<span id="L5681" class="LineNr"> 5681 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5682" class="LineNr"> 5682 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) -<span id="L5683" class="LineNr"> 5683 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) -<span id="L5684" class="LineNr"> 5684 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5685" class="LineNr"> 5685 </span> <span class="subxComment"># convert</span> -<span id="L5686" class="LineNr"> 5686 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5687" class="LineNr"> 5687 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5688" class="Folded"> 5688 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5694" class="LineNr"> 5694 </span> <span class="subxComment"># check output</span> -<span id="L5695" class="LineNr"> 5695 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/0"</span>) -<span id="L5696" class="LineNr"> 5696 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert/1"</span>) -<span id="L5697" class="LineNr"> 5697 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/2"</span>) -<span id="L5698" class="LineNr"> 5698 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/3"</span>) -<span id="L5699" class="LineNr"> 5699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/4"</span>) -<span id="L5700" class="LineNr"> 5700 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/5"</span>) -<span id="L5701" class="LineNr"> 5701 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/6"</span>) -<span id="L5702" class="LineNr"> 5702 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/7"</span>) -<span id="L5703" class="LineNr"> 5703 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/8"</span>) -<span id="L5704" class="LineNr"> 5704 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/9"</span>) -<span id="L5705" class="LineNr"> 5705 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/10"</span>) -<span id="L5706" class="LineNr"> 5706 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/11"</span>) -<span id="L5707" class="LineNr"> 5707 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert/12"</span>) -<span id="L5708" class="LineNr"> 5708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/13"</span>) -<span id="L5709" class="LineNr"> 5709 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/14"</span>) -<span id="L5710" class="LineNr"> 5710 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/15"</span>) -<span id="L5711" class="LineNr"> 5711 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert/16"</span>) -<span id="L5712" class="LineNr"> 5712 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/17"</span>) -<span id="L5713" class="LineNr"> 5713 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/18"</span>) -<span id="L5714" class="LineNr"> 5714 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5671'>test-convert-floating-point-convert</a>/19"</span>) -<span id="L5715" class="LineNr"> 5715 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5716" class="LineNr"> 5716 </span> 89/<- %esp 5/r32/ebp -<span id="L5717" class="LineNr"> 5717 </span> 5d/pop-to-ebp -<span id="L5718" class="LineNr"> 5718 </span> c3/return -<span id="L5719" class="LineNr"> 5719 </span> -<span id="L5720" class="LineNr"> 5720 </span><span class="subxTest">test-convert-floating-point-convert-2</span>: -<span id="L5721" class="LineNr"> 5721 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5722" class="LineNr"> 5722 </span> 55/push-ebp -<span id="L5723" class="LineNr"> 5723 </span> 89/<- %ebp 4/r32/esp -<span id="L5724" class="LineNr"> 5724 </span> <span class="subxComment"># setup</span> -<span id="L5725" class="LineNr"> 5725 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5726" class="LineNr"> 5726 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5727" class="LineNr"> 5727 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5728" class="LineNr"> 5728 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5729" class="LineNr"> 5729 </span> <span class="subxComment">#</span> -<span id="L5730" class="LineNr"> 5730 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L5731" class="LineNr"> 5731 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) -<span id="L5732" class="LineNr"> 5732 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) -<span id="L5733" class="LineNr"> 5733 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a <- convert b\n"</span>) -<span id="L5734" class="LineNr"> 5734 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5735" class="LineNr"> 5735 </span> <span class="subxComment"># convert</span> -<span id="L5736" class="LineNr"> 5736 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5737" class="LineNr"> 5737 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5738" class="Folded"> 5738 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5744" class="LineNr"> 5744 </span> <span class="subxComment"># check output</span> -<span id="L5745" class="LineNr"> 5745 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/0"</span>) -<span id="L5746" class="LineNr"> 5746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/1"</span>) -<span id="L5747" class="LineNr"> 5747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/2"</span>) -<span id="L5748" class="LineNr"> 5748 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/3"</span>) -<span id="L5749" class="LineNr"> 5749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/4"</span>) -<span id="L5750" class="LineNr"> 5750 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/5"</span>) -<span id="L5751" class="LineNr"> 5751 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/6"</span>) -<span id="L5752" class="LineNr"> 5752 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/7"</span>) -<span id="L5753" class="LineNr"> 5753 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/8"</span>) -<span id="L5754" class="LineNr"> 5754 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/9"</span>) -<span id="L5755" class="LineNr"> 5755 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/10"</span>) -<span id="L5756" class="LineNr"> 5756 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2d/convert-to-int %xmm1 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/11"</span>) -<span id="L5757" class="LineNr"> 5757 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/12"</span>) -<span id="L5758" class="LineNr"> 5758 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert-2/13"</span>) -<span id="L5759" class="LineNr"> 5759 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/14"</span>) -<span id="L5760" class="LineNr"> 5760 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/15"</span>) -<span id="L5761" class="LineNr"> 5761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/16"</span>) -<span id="L5762" class="LineNr"> 5762 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/17"</span>) -<span id="L5763" class="LineNr"> 5763 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/18"</span>) -<span id="L5764" class="LineNr"> 5764 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/19"</span>) -<span id="L5765" class="LineNr"> 5765 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5720'>test-convert-floating-point-convert-2</a>/20"</span>) -<span id="L5766" class="LineNr"> 5766 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5767" class="LineNr"> 5767 </span> 89/<- %esp 5/r32/ebp -<span id="L5768" class="LineNr"> 5768 </span> 5d/pop-to-ebp -<span id="L5769" class="LineNr"> 5769 </span> c3/return -<span id="L5770" class="LineNr"> 5770 </span> -<span id="L5771" class="LineNr"> 5771 </span><span class="subxTest">test-convert-floating-point-operation</span>: -<span id="L5772" class="LineNr"> 5772 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5773" class="LineNr"> 5773 </span> 55/push-ebp -<span id="L5774" class="LineNr"> 5774 </span> 89/<- %ebp 4/r32/esp -<span id="L5775" class="LineNr"> 5775 </span> <span class="subxComment"># setup</span> -<span id="L5776" class="LineNr"> 5776 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5777" class="LineNr"> 5777 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5778" class="LineNr"> 5778 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5779" class="LineNr"> 5779 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5780" class="LineNr"> 5780 </span> <span class="subxComment">#</span> -<span id="L5781" class="LineNr"> 5781 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L5782" class="LineNr"> 5782 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) -<span id="L5783" class="LineNr"> 5783 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) -<span id="L5784" class="LineNr"> 5784 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm5: float <- copy m\n"</span>) -<span id="L5785" class="LineNr"> 5785 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy y\n"</span>) -<span id="L5786" class="LineNr"> 5786 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to m, y\n"</span>) -<span id="L5787" class="LineNr"> 5787 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) -<span id="L5788" class="LineNr"> 5788 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add m\n"</span>) -<span id="L5789" class="LineNr"> 5789 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract y\n"</span>) -<span id="L5790" class="LineNr"> 5790 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract m\n"</span>) -<span id="L5791" class="LineNr"> 5791 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply y\n"</span>) -<span id="L5792" class="LineNr"> 5792 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply m\n"</span>) -<span id="L5793" class="LineNr"> 5793 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide y\n"</span>) -<span id="L5794" class="LineNr"> 5794 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide m\n"</span>) -<span id="L5795" class="LineNr"> 5795 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal y\n"</span>) -<span id="L5796" class="LineNr"> 5796 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal m\n"</span>) -<span id="L5797" class="LineNr"> 5797 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root y\n"</span>) -<span id="L5798" class="LineNr"> 5798 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root m\n"</span>) -<span id="L5799" class="LineNr"> 5799 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root y\n"</span>) -<span id="L5800" class="LineNr"> 5800 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root m\n"</span>) -<span id="L5801" class="LineNr"> 5801 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max y\n"</span>) -<span id="L5802" class="LineNr"> 5802 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max m\n"</span>) -<span id="L5803" class="LineNr"> 5803 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min y\n"</span>) -<span id="L5804" class="LineNr"> 5804 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min m\n"</span>) -<span id="L5805" class="LineNr"> 5805 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, y\n"</span>) -<span id="L5806" class="LineNr"> 5806 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, m\n"</span>) -<span id="L5807" class="LineNr"> 5807 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5808" class="LineNr"> 5808 </span> <span class="subxComment"># convert</span> -<span id="L5809" class="LineNr"> 5809 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5810" class="LineNr"> 5810 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5811" class="Folded"> 5811 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5817" class="LineNr"> 5817 </span> <span class="subxComment"># check output</span> -<span id="L5818" class="LineNr"> 5818 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/0"</span>) -<span id="L5819" class="LineNr"> 5819 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-operation/1"</span>) -<span id="L5820" class="LineNr"> 5820 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/2"</span>) -<span id="L5821" class="LineNr"> 5821 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/3"</span>) -<span id="L5822" class="LineNr"> 5822 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/4"</span>) -<span id="L5823" class="LineNr"> 5823 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/5"</span>) -<span id="L5824" class="LineNr"> 5824 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/6"</span>) -<span id="L5825" class="LineNr"> 5825 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/7"</span>) -<span id="L5826" class="LineNr"> 5826 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/8"</span>) -<span id="L5827" class="LineNr"> 5827 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/9"</span>) -<span id="L5828" class="LineNr"> 5828 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/10"</span>) -<span id="L5829" class="LineNr"> 5829 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/11"</span>) -<span id="L5830" class="LineNr"> 5830 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/12"</span>) -<span id="L5831" class="LineNr"> 5831 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy %xmm1 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/13"</span>) -<span id="L5832" class="LineNr"> 5832 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/14"</span>) -<span id="L5833" class="LineNr"> 5833 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/15"</span>) -<span id="L5834" class="LineNr"> 5834 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/16"</span>) -<span id="L5835" class="LineNr"> 5835 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/17"</span>) -<span id="L5836" class="LineNr"> 5836 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/18"</span>) -<span id="L5837" class="LineNr"> 5837 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/19"</span>) -<span id="L5838" class="LineNr"> 5838 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/20"</span>) -<span id="L5839" class="LineNr"> 5839 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/21"</span>) -<span id="L5840" class="LineNr"> 5840 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/22"</span>) -<span id="L5841" class="LineNr"> 5841 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/23"</span>) -<span id="L5842" class="LineNr"> 5842 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/24"</span>) -<span id="L5843" class="LineNr"> 5843 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/25"</span>) -<span id="L5844" class="LineNr"> 5844 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/26"</span>) -<span id="L5845" class="LineNr"> 5845 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/27"</span>) -<span id="L5846" class="LineNr"> 5846 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/28"</span>) -<span id="L5847" class="LineNr"> 5847 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/29"</span>) -<span id="L5848" class="LineNr"> 5848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/30"</span>) -<span id="L5849" class="LineNr"> 5849 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/31"</span>) -<span id="L5850" class="LineNr"> 5850 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/32"</span>) -<span id="L5851" class="LineNr"> 5851 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare %xmm1 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/33"</span>) -<span id="L5852" class="LineNr"> 5852 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/34"</span>) -<span id="L5853" class="LineNr"> 5853 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/35"</span>) -<span id="L5854" class="LineNr"> 5854 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/36"</span>) -<span id="L5855" class="LineNr"> 5855 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/37"</span>) -<span id="L5856" class="LineNr"> 5856 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/38"</span>) -<span id="L5857" class="LineNr"> 5857 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/39"</span>) -<span id="L5858" class="LineNr"> 5858 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/40"</span>) -<span id="L5859" class="LineNr"> 5859 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/41"</span>) -<span id="L5860" class="LineNr"> 5860 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-operation/42"</span>) -<span id="L5861" class="LineNr"> 5861 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/43"</span>) -<span id="L5862" class="LineNr"> 5862 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/44"</span>) -<span id="L5863" class="LineNr"> 5863 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-floating-point-operation</a>/45"</span>) -<span id="L5864" class="LineNr"> 5864 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5865" class="LineNr"> 5865 </span> 89/<- %esp 5/r32/ebp -<span id="L5866" class="LineNr"> 5866 </span> 5d/pop-to-ebp -<span id="L5867" class="LineNr"> 5867 </span> c3/return -<span id="L5868" class="LineNr"> 5868 </span> -<span id="L5869" class="LineNr"> 5869 </span><span class="subxTest">test-convert-floating-point-dereferenced</span>: -<span id="L5870" class="LineNr"> 5870 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5871" class="LineNr"> 5871 </span> 55/push-ebp -<span id="L5872" class="LineNr"> 5872 </span> 89/<- %ebp 4/r32/esp -<span id="L5873" class="LineNr"> 5873 </span> <span class="subxComment"># setup</span> -<span id="L5874" class="LineNr"> 5874 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5875" class="LineNr"> 5875 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5876" class="LineNr"> 5876 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5877" class="LineNr"> 5877 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5878" class="LineNr"> 5878 </span> <span class="subxComment">#</span> -<span id="L5879" class="LineNr"> 5879 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L5880" class="LineNr"> 5880 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) -<span id="L5881" class="LineNr"> 5881 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) -<span id="L5882" class="LineNr"> 5882 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr float) <- copy 0\n"</span>) -<span id="L5883" class="LineNr"> 5883 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply *y\n"</span>) -<span id="L5884" class="LineNr"> 5884 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5885" class="LineNr"> 5885 </span> <span class="subxComment"># convert</span> -<span id="L5886" class="LineNr"> 5886 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5887" class="LineNr"> 5887 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5888" class="Folded"> 5888 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5894" class="LineNr"> 5894 </span> <span class="subxComment"># check output</span> -<span id="L5895" class="LineNr"> 5895 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/0"</span>) -<span id="L5896" class="LineNr"> 5896 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/1"</span>) -<span id="L5897" class="LineNr"> 5897 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/2"</span>) -<span id="L5898" class="LineNr"> 5898 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/3"</span>) -<span id="L5899" class="LineNr"> 5899 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/4"</span>) -<span id="L5900" class="LineNr"> 5900 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/5"</span>) -<span id="L5901" class="LineNr"> 5901 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/6"</span>) -<span id="L5902" class="LineNr"> 5902 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/7"</span>) -<span id="L5903" class="LineNr"> 5903 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/8"</span>) -<span id="L5904" class="LineNr"> 5904 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/9"</span>) -<span id="L5905" class="LineNr"> 5905 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/10"</span>) -<span id="L5906" class="LineNr"> 5906 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/11"</span>) -<span id="L5907" class="LineNr"> 5907 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/12"</span>) -<span id="L5908" class="LineNr"> 5908 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/13"</span>) -<span id="L5909" class="LineNr"> 5909 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/14"</span>) -<span id="L5910" class="LineNr"> 5910 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/15"</span>) -<span id="L5911" class="LineNr"> 5911 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/16"</span>) -<span id="L5912" class="LineNr"> 5912 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/17"</span>) -<span id="L5913" class="LineNr"> 5913 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/18"</span>) -<span id="L5914" class="LineNr"> 5914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/19"</span>) -<span id="L5915" class="LineNr"> 5915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/20"</span>) -<span id="L5916" class="LineNr"> 5916 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/21"</span>) -<span id="L5917" class="LineNr"> 5917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/22"</span>) -<span id="L5918" class="LineNr"> 5918 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5919" class="LineNr"> 5919 </span> 89/<- %esp 5/r32/ebp -<span id="L5920" class="LineNr"> 5920 </span> 5d/pop-to-ebp -<span id="L5921" class="LineNr"> 5921 </span> c3/return -<span id="L5922" class="LineNr"> 5922 </span> -<span id="L5923" class="LineNr"> 5923 </span><span class="subxTest">test-convert-length-of-array</span>: -<span id="L5924" class="LineNr"> 5924 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5925" class="LineNr"> 5925 </span> 55/push-ebp -<span id="L5926" class="LineNr"> 5926 </span> 89/<- %ebp 4/r32/esp -<span id="L5927" class="LineNr"> 5927 </span> <span class="subxComment"># setup</span> -<span id="L5928" class="LineNr"> 5928 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5929" class="LineNr"> 5929 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5930" class="LineNr"> 5930 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5931" class="LineNr"> 5931 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5932" class="LineNr"> 5932 </span> <span class="subxComment">#</span> -<span id="L5933" class="LineNr"> 5933 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array int) {\n"</span>) -<span id="L5934" class="LineNr"> 5934 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array int) <- copy a\n"</span>) -<span id="L5935" class="LineNr"> 5935 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) -<span id="L5936" class="LineNr"> 5936 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5937" class="LineNr"> 5937 </span> <span class="subxComment"># convert</span> -<span id="L5938" class="LineNr"> 5938 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5939" class="LineNr"> 5939 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5940" class="Folded"> 5940 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5946" class="LineNr"> 5946 </span> <span class="subxComment"># check output</span> -<span id="L5947" class="LineNr"> 5947 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/0"</span>) -<span id="L5948" class="LineNr"> 5948 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array/1"</span>) -<span id="L5949" class="LineNr"> 5949 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/2"</span>) -<span id="L5950" class="LineNr"> 5950 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/3"</span>) -<span id="L5951" class="LineNr"> 5951 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/4"</span>) -<span id="L5952" class="LineNr"> 5952 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/5"</span>) -<span id="L5953" class="LineNr"> 5953 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/6"</span>) -<span id="L5954" class="LineNr"> 5954 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/7"</span>) -<span id="L5955" class="LineNr"> 5955 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/8"</span>) -<span id="L5956" class="LineNr"> 5956 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/9"</span>) -<span id="L5957" class="LineNr"> 5957 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/10"</span>) -<span id="L5958" class="LineNr"> 5958 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/11"</span>) -<span id="L5959" class="LineNr"> 5959 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/12"</span>) -<span id="L5960" class="LineNr"> 5960 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array/13"</span>) -<span id="L5961" class="LineNr"> 5961 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/14"</span>) -<span id="L5962" class="LineNr"> 5962 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/15"</span>) -<span id="L5963" class="LineNr"> 5963 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5923'>test-convert-length-of-array</a>/16"</span>) -<span id="L5964" class="LineNr"> 5964 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5965" class="LineNr"> 5965 </span> 89/<- %esp 5/r32/ebp -<span id="L5966" class="LineNr"> 5966 </span> 5d/pop-to-ebp -<span id="L5967" class="LineNr"> 5967 </span> c3/return -<span id="L5968" class="LineNr"> 5968 </span> -<span id="L5969" class="LineNr"> 5969 </span><span class="subxComment"># special-case for size(byte) when computing array length</span> -<span id="L5970" class="LineNr"> 5970 </span><span class="subxTest">test-convert-length-of-array-of-bytes</span>: -<span id="L5971" class="LineNr"> 5971 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5972" class="LineNr"> 5972 </span> 55/push-ebp -<span id="L5973" class="LineNr"> 5973 </span> 89/<- %ebp 4/r32/esp -<span id="L5974" class="LineNr"> 5974 </span> <span class="subxComment"># setup</span> -<span id="L5975" class="LineNr"> 5975 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L5976" class="LineNr"> 5976 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L5977" class="LineNr"> 5977 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L5978" class="LineNr"> 5978 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L5979" class="LineNr"> 5979 </span> <span class="subxComment">#</span> -<span id="L5980" class="LineNr"> 5980 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array byte) {\n"</span>) -<span id="L5981" class="LineNr"> 5981 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array byte) <- copy a\n"</span>) -<span id="L5982" class="LineNr"> 5982 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) -<span id="L5983" class="LineNr"> 5983 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L5984" class="LineNr"> 5984 </span> <span class="subxComment"># convert</span> -<span id="L5985" class="LineNr"> 5985 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L5986" class="LineNr"> 5986 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L5987" class="Folded"> 5987 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5993" class="LineNr"> 5993 </span> <span class="subxComment"># check output</span> -<span id="L5994" class="LineNr"> 5994 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/0"</span>) -<span id="L5995" class="LineNr"> 5995 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/1"</span>) -<span id="L5996" class="LineNr"> 5996 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/2"</span>) -<span id="L5997" class="LineNr"> 5997 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/3"</span>) -<span id="L5998" class="LineNr"> 5998 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/4"</span>) -<span id="L5999" class="LineNr"> 5999 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/5"</span>) -<span id="L6000" class="LineNr"> 6000 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/6"</span>) -<span id="L6001" class="LineNr"> 6001 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/7"</span>) -<span id="L6002" class="LineNr"> 6002 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/8"</span>) -<span id="L6003" class="LineNr"> 6003 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/9"</span>) -<span id="L6004" class="LineNr"> 6004 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/10"</span>) -<span id="L6005" class="LineNr"> 6005 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/11"</span>) -<span id="L6006" class="LineNr"> 6006 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/12"</span>) -<span id="L6007" class="LineNr"> 6007 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/13"</span>) -<span id="L6008" class="LineNr"> 6008 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/14"</span>) -<span id="L6009" class="LineNr"> 6009 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5970'>test-convert-length-of-array-of-bytes</a>/15"</span>) -<span id="L6010" class="LineNr"> 6010 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6011" class="LineNr"> 6011 </span> 89/<- %esp 5/r32/ebp -<span id="L6012" class="LineNr"> 6012 </span> 5d/pop-to-ebp -<span id="L6013" class="LineNr"> 6013 </span> c3/return -<span id="L6014" class="LineNr"> 6014 </span> -<span id="L6015" class="LineNr"> 6015 </span><span class="subxTest">test-convert-length-of-array-on-stack</span>: -<span id="L6016" class="LineNr"> 6016 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6017" class="LineNr"> 6017 </span> 55/push-ebp -<span id="L6018" class="LineNr"> 6018 </span> 89/<- %ebp 4/r32/esp -<span id="L6019" class="LineNr"> 6019 </span> <span class="subxComment"># setup</span> -<span id="L6020" class="LineNr"> 6020 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6021" class="LineNr"> 6021 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6022" class="LineNr"> 6022 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6023" class="LineNr"> 6023 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6024" class="LineNr"> 6024 </span> <span class="subxComment">#</span> -<span id="L6025" class="LineNr"> 6025 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6026" class="LineNr"> 6026 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L6027" class="LineNr"> 6027 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- length a\n"</span>) -<span id="L6028" class="LineNr"> 6028 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6029" class="LineNr"> 6029 </span> <span class="subxComment"># convert</span> -<span id="L6030" class="LineNr"> 6030 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6031" class="LineNr"> 6031 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6032" class="Folded"> 6032 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6038" class="LineNr"> 6038 </span> <span class="subxComment"># check output</span> -<span id="L6039" class="LineNr"> 6039 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/0"</span>) -<span id="L6040" class="LineNr"> 6040 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/1"</span>) -<span id="L6041" class="LineNr"> 6041 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/2"</span>) -<span id="L6042" class="LineNr"> 6042 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/3"</span>) -<span id="L6043" class="LineNr"> 6043 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/4"</span>) -<span id="L6044" class="LineNr"> 6044 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/5"</span>) -<span id="L6045" class="LineNr"> 6045 </span> <span class="subxComment"># define x</span> -<span id="L6046" class="LineNr"> 6046 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/6"</span>) -<span id="L6047" class="LineNr"> 6047 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/7"</span>) -<span id="L6048" class="LineNr"> 6048 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/8"</span>) -<span id="L6049" class="LineNr"> 6049 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff0) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/9"</span>) -<span id="L6050" class="LineNr"> 6050 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/10"</span>) -<span id="L6051" class="LineNr"> 6051 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/11"</span>) -<span id="L6052" class="LineNr"> 6052 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/12"</span>) -<span id="L6053" class="LineNr"> 6053 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/13"</span>) -<span id="L6054" class="LineNr"> 6054 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/14"</span>) -<span id="L6055" class="LineNr"> 6055 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/15"</span>) -<span id="L6056" class="LineNr"> 6056 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/16"</span>) -<span id="L6057" class="LineNr"> 6057 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/17"</span>) -<span id="L6058" class="LineNr"> 6058 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-length-of-array-on-stack</a>/18"</span>) -<span id="L6059" class="LineNr"> 6059 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6060" class="LineNr"> 6060 </span> 89/<- %esp 5/r32/ebp -<span id="L6061" class="LineNr"> 6061 </span> 5d/pop-to-ebp -<span id="L6062" class="LineNr"> 6062 </span> c3/return -<span id="L6063" class="LineNr"> 6063 </span> -<span id="L6064" class="LineNr"> 6064 </span><span class="subxTest">test-reg-var-def-with-read-of-same-register</span>: -<span id="L6065" class="LineNr"> 6065 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6066" class="LineNr"> 6066 </span> 55/push-ebp -<span id="L6067" class="LineNr"> 6067 </span> 89/<- %ebp 4/r32/esp -<span id="L6068" class="LineNr"> 6068 </span> <span class="subxComment"># setup</span> -<span id="L6069" class="LineNr"> 6069 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6070" class="LineNr"> 6070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6071" class="LineNr"> 6071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6072" class="LineNr"> 6072 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6073" class="LineNr"> 6073 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6074" class="LineNr"> 6074 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6075" class="LineNr"> 6075 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> -<span id="L6076" class="LineNr"> 6076 </span> 68/push 0/imm32 -<span id="L6077" class="LineNr"> 6077 </span> 68/push 0/imm32 -<span id="L6078" class="LineNr"> 6078 </span> 89/<- %edx 4/r32/esp -<span id="L6079" class="LineNr"> 6079 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6080" class="LineNr"> 6080 </span> <span class="subxComment">#</span> -<span id="L6081" class="LineNr"> 6081 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6082" class="LineNr"> 6082 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) -<span id="L6083" class="LineNr"> 6083 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- add x\n"</span>) -<span id="L6084" class="LineNr"> 6084 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6085" class="LineNr"> 6085 </span> <span class="subxComment"># convert</span> -<span id="L6086" class="LineNr"> 6086 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L6087" class="LineNr"> 6087 </span> <span class="subxComment"># registers except esp could be clobbered at this point (though they shouldn't be)</span> -<span id="L6088" class="LineNr"> 6088 </span> <span class="subxComment"># restore ed</span> -<span id="L6089" class="LineNr"> 6089 </span> 89/<- %edx 4/r32/esp -<span id="L6090" class="LineNr"> 6090 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6091" class="LineNr"> 6091 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L6092" class="Folded"> 6092 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6098" class="Folded"> 6098 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6104" class="LineNr"> 6104 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>: <a href='../114error.subx.html#L9'>error</a> stream should be empty"</span>) -<span id="L6105" class="LineNr"> 6105 </span> <span class="subxComment"># check output</span> -<span id="L6106" class="LineNr"> 6106 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/0"</span>) -<span id="L6107" class="LineNr"> 6107 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/1"</span>) -<span id="L6108" class="LineNr"> 6108 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/2"</span>) -<span id="L6109" class="LineNr"> 6109 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/3"</span>) -<span id="L6110" class="LineNr"> 6110 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/4"</span>) -<span id="L6111" class="LineNr"> 6111 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/5"</span>) -<span id="L6112" class="LineNr"> 6112 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/6"</span>) -<span id="L6113" class="LineNr"> 6113 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/7"</span>) -<span id="L6114" class="LineNr"> 6114 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 01/add-to %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/8"</span>) -<span id="L6115" class="LineNr"> 6115 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/9"</span>) -<span id="L6116" class="LineNr"> 6116 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/10"</span>) -<span id="L6117" class="LineNr"> 6117 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/11"</span>) -<span id="L6118" class="LineNr"> 6118 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/12"</span>) -<span id="L6119" class="LineNr"> 6119 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/13"</span>) -<span id="L6120" class="LineNr"> 6120 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/14"</span>) -<span id="L6121" class="LineNr"> 6121 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6064'>test-reg-var-def-with-read-of-same-register</a>/15"</span>) -<span id="L6122" class="LineNr"> 6122 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6123" class="LineNr"> 6123 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6124" class="LineNr"> 6124 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6125" class="LineNr"> 6125 </span> 5d/pop-to-ebp -<span id="L6126" class="LineNr"> 6126 </span> c3/return -<span id="L6127" class="LineNr"> 6127 </span> -<span id="L6128" class="LineNr"> 6128 </span><span class="subxTest">test-convert-index-into-array</span>: -<span id="L6129" class="LineNr"> 6129 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6130" class="LineNr"> 6130 </span> 55/push-ebp -<span id="L6131" class="LineNr"> 6131 </span> 89/<- %ebp 4/r32/esp -<span id="L6132" class="LineNr"> 6132 </span> <span class="subxComment"># setup</span> -<span id="L6133" class="LineNr"> 6133 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6134" class="LineNr"> 6134 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6135" class="LineNr"> 6135 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6136" class="LineNr"> 6136 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6137" class="LineNr"> 6137 </span> <span class="subxComment">#</span> -<span id="L6138" class="LineNr"> 6138 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6139" class="LineNr"> 6139 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L6140" class="LineNr"> 6140 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L6141" class="LineNr"> 6141 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, idx\n"</span>) -<span id="L6142" class="LineNr"> 6142 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6143" class="LineNr"> 6143 </span> <span class="subxComment"># convert</span> -<span id="L6144" class="LineNr"> 6144 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6145" class="LineNr"> 6145 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6146" class="Folded"> 6146 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6152" class="LineNr"> 6152 </span> <span class="subxComment"># check output</span> -<span id="L6153" class="LineNr"> 6153 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/0"</span>) -<span id="L6154" class="LineNr"> 6154 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array/1"</span>) -<span id="L6155" class="LineNr"> 6155 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/2"</span>) -<span id="L6156" class="LineNr"> 6156 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/3"</span>) -<span id="L6157" class="LineNr"> 6157 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/4"</span>) -<span id="L6158" class="LineNr"> 6158 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/5"</span>) -<span id="L6159" class="LineNr"> 6159 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/6"</span>) -<span id="L6160" class="LineNr"> 6160 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/7"</span>) -<span id="L6161" class="LineNr"> 6161 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/8"</span>) -<span id="L6162" class="LineNr"> 6162 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/9"</span>) -<span id="L6163" class="LineNr"> 6163 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000004 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/10"</span>) -<span id="L6164" class="LineNr"> 6164 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/11"</span>) -<span id="L6165" class="LineNr"> 6165 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/12"</span>) -<span id="L6166" class="LineNr"> 6166 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/13"</span>) -<span id="L6167" class="LineNr"> 6167 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/14"</span>) -<span id="L6168" class="LineNr"> 6168 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/15"</span>) -<span id="L6169" class="LineNr"> 6169 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array/16"</span>) -<span id="L6170" class="LineNr"> 6170 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/17"</span>) -<span id="L6171" class="LineNr"> 6171 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/18"</span>) -<span id="L6172" class="LineNr"> 6172 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6128'>test-convert-index-into-array</a>/19"</span>) -<span id="L6173" class="LineNr"> 6173 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6174" class="LineNr"> 6174 </span> 89/<- %esp 5/r32/ebp -<span id="L6175" class="LineNr"> 6175 </span> 5d/pop-to-ebp -<span id="L6176" class="LineNr"> 6176 </span> c3/return -<span id="L6177" class="LineNr"> 6177 </span> -<span id="L6178" class="LineNr"> 6178 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: -<span id="L6179" class="LineNr"> 6179 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6180" class="LineNr"> 6180 </span> 55/push-ebp -<span id="L6181" class="LineNr"> 6181 </span> 89/<- %ebp 4/r32/esp -<span id="L6182" class="LineNr"> 6182 </span> <span class="subxComment"># setup</span> -<span id="L6183" class="LineNr"> 6183 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6184" class="LineNr"> 6184 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6185" class="LineNr"> 6185 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6186" class="LineNr"> 6186 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6187" class="LineNr"> 6187 </span> <span class="subxComment">#</span> -<span id="L6188" class="LineNr"> 6188 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6189" class="LineNr"> 6189 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6190" class="LineNr"> 6190 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L6191" class="LineNr"> 6191 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, idx\n"</span>) -<span id="L6192" class="LineNr"> 6192 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6193" class="LineNr"> 6193 </span> <span class="subxComment"># convert</span> -<span id="L6194" class="LineNr"> 6194 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6195" class="LineNr"> 6195 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6196" class="Folded"> 6196 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6202" class="LineNr"> 6202 </span> <span class="subxComment"># check output</span> -<span id="L6203" class="LineNr"> 6203 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/0"</span>) -<span id="L6204" class="LineNr"> 6204 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</span>) -<span id="L6205" class="LineNr"> 6205 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/2"</span>) -<span id="L6206" class="LineNr"> 6206 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/3"</span>) -<span id="L6207" class="LineNr"> 6207 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/4"</span>) -<span id="L6208" class="LineNr"> 6208 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/5"</span>) -<span id="L6209" class="LineNr"> 6209 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/6"</span>) -<span id="L6210" class="LineNr"> 6210 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/7"</span>) -<span id="L6211" class="LineNr"> 6211 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/8"</span>) -<span id="L6212" class="LineNr"> 6212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/9"</span>) -<span id="L6213" class="LineNr"> 6213 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/10"</span>) -<span id="L6214" class="LineNr"> 6214 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000000 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/11"</span>) -<span id="L6215" class="LineNr"> 6215 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/12"</span>) -<span id="L6216" class="LineNr"> 6216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/13"</span>) -<span id="L6217" class="LineNr"> 6217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/14"</span>) -<span id="L6218" class="LineNr"> 6218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/15"</span>) -<span id="L6219" class="LineNr"> 6219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/16"</span>) -<span id="L6220" class="LineNr"> 6220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/17"</span>) -<span id="L6221" class="LineNr"> 6221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/18"</span>) -<span id="L6222" class="LineNr"> 6222 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6178'>test-convert-index-into-array-of-bytes</a>/19"</span>) -<span id="L6223" class="LineNr"> 6223 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6224" class="LineNr"> 6224 </span> 89/<- %esp 5/r32/ebp -<span id="L6225" class="LineNr"> 6225 </span> 5d/pop-to-ebp -<span id="L6226" class="LineNr"> 6226 </span> c3/return -<span id="L6227" class="LineNr"> 6227 </span> -<span id="L6228" class="LineNr"> 6228 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: -<span id="L6229" class="LineNr"> 6229 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6230" class="LineNr"> 6230 </span> 55/push-ebp -<span id="L6231" class="LineNr"> 6231 </span> 89/<- %ebp 4/r32/esp -<span id="L6232" class="LineNr"> 6232 </span> <span class="subxComment"># setup</span> -<span id="L6233" class="LineNr"> 6233 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6234" class="LineNr"> 6234 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6235" class="LineNr"> 6235 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6236" class="LineNr"> 6236 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6237" class="LineNr"> 6237 </span> <span class="subxComment">#</span> -<span id="L6238" class="LineNr"> 6238 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6239" class="LineNr"> 6239 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L6240" class="LineNr"> 6240 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) -<span id="L6241" class="LineNr"> 6241 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6242" class="LineNr"> 6242 </span> <span class="subxComment"># convert</span> -<span id="L6243" class="LineNr"> 6243 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6244" class="LineNr"> 6244 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6245" class="Folded"> 6245 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6251" class="LineNr"> 6251 </span> <span class="subxComment"># check output</span> -<span id="L6252" class="LineNr"> 6252 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/0"</span>) -<span id="L6253" class="LineNr"> 6253 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/1"</span>) -<span id="L6254" class="LineNr"> 6254 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/2"</span>) -<span id="L6255" class="LineNr"> 6255 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/3"</span>) -<span id="L6256" class="LineNr"> 6256 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/4"</span>) -<span id="L6257" class="LineNr"> 6257 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/5"</span>) -<span id="L6258" class="LineNr"> 6258 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/6"</span>) -<span id="L6259" class="LineNr"> 6259 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/7"</span>) -<span id="L6260" class="LineNr"> 6260 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/8"</span>) -<span id="L6261" class="LineNr"> 6261 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> -<span id="L6262" class="LineNr"> 6262 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/9"</span>) -<span id="L6263" class="LineNr"> 6263 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/10"</span>) -<span id="L6264" class="LineNr"> 6264 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/11"</span>) -<span id="L6265" class="LineNr"> 6265 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/12"</span>) -<span id="L6266" class="LineNr"> 6266 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/13"</span>) -<span id="L6267" class="LineNr"> 6267 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/14"</span>) -<span id="L6268" class="LineNr"> 6268 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/15"</span>) -<span id="L6269" class="LineNr"> 6269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6228'>test-convert-index-into-array-with-literal</a>/16"</span>) -<span id="L6270" class="LineNr"> 6270 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6271" class="LineNr"> 6271 </span> 89/<- %esp 5/r32/ebp -<span id="L6272" class="LineNr"> 6272 </span> 5d/pop-to-ebp -<span id="L6273" class="LineNr"> 6273 </span> c3/return -<span id="L6274" class="LineNr"> 6274 </span> -<span id="L6275" class="LineNr"> 6275 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: -<span id="L6276" class="LineNr"> 6276 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6277" class="LineNr"> 6277 </span> 55/push-ebp -<span id="L6278" class="LineNr"> 6278 </span> 89/<- %ebp 4/r32/esp -<span id="L6279" class="LineNr"> 6279 </span> <span class="subxComment"># setup</span> -<span id="L6280" class="LineNr"> 6280 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6281" class="LineNr"> 6281 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6282" class="LineNr"> 6282 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6283" class="LineNr"> 6283 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6284" class="LineNr"> 6284 </span> <span class="subxComment">#</span> -<span id="L6285" class="LineNr"> 6285 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6286" class="LineNr"> 6286 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6287" class="LineNr"> 6287 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) -<span id="L6288" class="LineNr"> 6288 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6289" class="LineNr"> 6289 </span> <span class="subxComment"># convert</span> -<span id="L6290" class="LineNr"> 6290 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6291" class="LineNr"> 6291 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6292" class="Folded"> 6292 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6298" class="LineNr"> 6298 </span> <span class="subxComment"># check output</span> -<span id="L6299" class="LineNr"> 6299 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</span>) -<span id="L6300" class="LineNr"> 6300 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/1"</span>) -<span id="L6301" class="LineNr"> 6301 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</span>) -<span id="L6302" class="LineNr"> 6302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</span>) -<span id="L6303" class="LineNr"> 6303 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</span>) -<span id="L6304" class="LineNr"> 6304 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</span>) -<span id="L6305" class="LineNr"> 6305 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</span>) -<span id="L6306" class="LineNr"> 6306 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</span>) -<span id="L6307" class="LineNr"> 6307 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) -<span id="L6308" class="LineNr"> 6308 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</span> -<span id="L6309" class="LineNr"> 6309 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000006) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) -<span id="L6310" class="LineNr"> 6310 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) -<span id="L6311" class="LineNr"> 6311 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) -<span id="L6312" class="LineNr"> 6312 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) -<span id="L6313" class="LineNr"> 6313 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/12"</span>) -<span id="L6314" class="LineNr"> 6314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) -<span id="L6315" class="LineNr"> 6315 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) -<span id="L6316" class="LineNr"> 6316 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6275'>test-convert-index-into-array-of-bytes-with-literal</a>/15"</span>) -<span id="L6317" class="LineNr"> 6317 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6318" class="LineNr"> 6318 </span> 89/<- %esp 5/r32/ebp -<span id="L6319" class="LineNr"> 6319 </span> 5d/pop-to-ebp -<span id="L6320" class="LineNr"> 6320 </span> c3/return -<span id="L6321" class="LineNr"> 6321 </span> -<span id="L6322" class="LineNr"> 6322 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: -<span id="L6323" class="LineNr"> 6323 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6324" class="LineNr"> 6324 </span> 55/push-ebp -<span id="L6325" class="LineNr"> 6325 </span> 89/<- %ebp 4/r32/esp -<span id="L6326" class="LineNr"> 6326 </span> <span class="subxComment"># setup</span> -<span id="L6327" class="LineNr"> 6327 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6328" class="LineNr"> 6328 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6329" class="LineNr"> 6329 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6330" class="LineNr"> 6330 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6331" class="LineNr"> 6331 </span> <span class="subxComment">#</span> -<span id="L6332" class="LineNr"> 6332 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6333" class="LineNr"> 6333 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) -<span id="L6334" class="LineNr"> 6334 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/eax: int <- copy 2\n"</span>) -<span id="L6335" class="LineNr"> 6335 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, idx\n"</span>) -<span id="L6336" class="LineNr"> 6336 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6337" class="LineNr"> 6337 </span> <span class="subxComment"># convert</span> -<span id="L6338" class="LineNr"> 6338 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6339" class="LineNr"> 6339 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6340" class="Folded"> 6340 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6346" class="LineNr"> 6346 </span> <span class="subxComment"># check output</span> -<span id="L6347" class="LineNr"> 6347 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/0"</span>) -<span id="L6348" class="LineNr"> 6348 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</span>) -<span id="L6349" class="LineNr"> 6349 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/2"</span>) -<span id="L6350" class="LineNr"> 6350 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/3"</span>) -<span id="L6351" class="LineNr"> 6351 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/4"</span>) -<span id="L6352" class="LineNr"> 6352 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/5"</span>) -<span id="L6353" class="LineNr"> 6353 </span> <span class="subxComment"># var arr</span> -<span id="L6354" class="LineNr"> 6354 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/6"</span>) -<span id="L6355" class="LineNr"> 6355 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/7"</span>) -<span id="L6356" class="LineNr"> 6356 </span> <span class="subxComment"># var idx</span> -<span id="L6357" class="LineNr"> 6357 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/8"</span>) -<span id="L6358" class="LineNr"> 6358 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 2/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/9"</span>) -<span id="L6359" class="LineNr"> 6359 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %eax 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/10"</span>) -<span id="L6360" class="LineNr"> 6360 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</span> -<span id="L6361" class="LineNr"> 6361 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + eax<<0x00000002 + 0xfffffff4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/11"</span>) -<span id="L6362" class="LineNr"> 6362 </span> <span class="subxComment"># reclaim idx</span> -<span id="L6363" class="LineNr"> 6363 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/12"</span>) -<span id="L6364" class="LineNr"> 6364 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6365" class="LineNr"> 6365 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/13"</span>) -<span id="L6366" class="LineNr"> 6366 </span> <span class="subxComment">#</span> -<span id="L6367" class="LineNr"> 6367 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/14"</span>) -<span id="L6368" class="LineNr"> 6368 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/15"</span>) -<span id="L6369" class="LineNr"> 6369 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/16"</span>) -<span id="L6370" class="LineNr"> 6370 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/17"</span>) -<span id="L6371" class="LineNr"> 6371 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/18"</span>) -<span id="L6372" class="LineNr"> 6372 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6322'>test-convert-index-into-array-on-stack</a>/19"</span>) -<span id="L6373" class="LineNr"> 6373 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6374" class="LineNr"> 6374 </span> 89/<- %esp 5/r32/ebp -<span id="L6375" class="LineNr"> 6375 </span> 5d/pop-to-ebp -<span id="L6376" class="LineNr"> 6376 </span> c3/return -<span id="L6377" class="LineNr"> 6377 </span> -<span id="L6378" class="LineNr"> 6378 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: -<span id="L6379" class="LineNr"> 6379 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6380" class="LineNr"> 6380 </span> 55/push-ebp -<span id="L6381" class="LineNr"> 6381 </span> 89/<- %ebp 4/r32/esp -<span id="L6382" class="LineNr"> 6382 </span> <span class="subxComment"># setup</span> -<span id="L6383" class="LineNr"> 6383 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6384" class="LineNr"> 6384 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6385" class="LineNr"> 6385 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6386" class="LineNr"> 6386 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6387" class="LineNr"> 6387 </span> <span class="subxComment">#</span> -<span id="L6388" class="LineNr"> 6388 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6389" class="LineNr"> 6389 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) -<span id="L6390" class="LineNr"> 6390 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) -<span id="L6391" class="LineNr"> 6391 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6392" class="LineNr"> 6392 </span> <span class="subxComment"># convert</span> -<span id="L6393" class="LineNr"> 6393 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6394" class="LineNr"> 6394 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6395" class="Folded"> 6395 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6401" class="LineNr"> 6401 </span> <span class="subxComment"># check output</span> -<span id="L6402" class="LineNr"> 6402 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/0"</span>) -<span id="L6403" class="LineNr"> 6403 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</span>) -<span id="L6404" class="LineNr"> 6404 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/2"</span>) -<span id="L6405" class="LineNr"> 6405 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/3"</span>) -<span id="L6406" class="LineNr"> 6406 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/4"</span>) -<span id="L6407" class="LineNr"> 6407 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) -<span id="L6408" class="LineNr"> 6408 </span> <span class="subxComment"># var arr</span> -<span id="L6409" class="LineNr"> 6409 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/6"</span>) -<span id="L6410" class="LineNr"> 6410 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) -<span id="L6411" class="LineNr"> 6411 </span> <span class="subxComment"># var x</span> -<span id="L6412" class="LineNr"> 6412 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/8"</span>) -<span id="L6413" class="LineNr"> 6413 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) -<span id="L6414" class="LineNr"> 6414 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</span> -<span id="L6415" class="LineNr"> 6415 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) -<span id="L6416" class="LineNr"> 6416 </span> <span class="subxComment"># reclaim x</span> -<span id="L6417" class="LineNr"> 6417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) -<span id="L6418" class="LineNr"> 6418 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6419" class="LineNr"> 6419 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/12"</span>) -<span id="L6420" class="LineNr"> 6420 </span> <span class="subxComment">#</span> -<span id="L6421" class="LineNr"> 6421 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/13"</span>) -<span id="L6422" class="LineNr"> 6422 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/14"</span>) -<span id="L6423" class="LineNr"> 6423 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/15"</span>) -<span id="L6424" class="LineNr"> 6424 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/16"</span>) -<span id="L6425" class="LineNr"> 6425 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/17"</span>) -<span id="L6426" class="LineNr"> 6426 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6378'>test-convert-index-into-array-on-stack-with-literal</a>/18"</span>) -<span id="L6427" class="LineNr"> 6427 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6428" class="LineNr"> 6428 </span> 89/<- %esp 5/r32/ebp -<span id="L6429" class="LineNr"> 6429 </span> 5d/pop-to-ebp -<span id="L6430" class="LineNr"> 6430 </span> c3/return -<span id="L6431" class="LineNr"> 6431 </span> -<span id="L6432" class="LineNr"> 6432 </span><span class="subxTest">test-convert-index-into-array-of-bytes-on-stack-with-literal</span>: -<span id="L6433" class="LineNr"> 6433 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6434" class="LineNr"> 6434 </span> 55/push-ebp -<span id="L6435" class="LineNr"> 6435 </span> 89/<- %ebp 4/r32/esp -<span id="L6436" class="LineNr"> 6436 </span> <span class="subxComment"># setup</span> -<span id="L6437" class="LineNr"> 6437 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6438" class="LineNr"> 6438 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6439" class="LineNr"> 6439 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6440" class="LineNr"> 6440 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6441" class="LineNr"> 6441 </span> <span class="subxComment">#</span> -<span id="L6442" class="LineNr"> 6442 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6443" class="LineNr"> 6443 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array byte 3)\n"</span>) -<span id="L6444" class="LineNr"> 6444 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) -<span id="L6445" class="LineNr"> 6445 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6446" class="LineNr"> 6446 </span> <span class="subxComment"># convert</span> -<span id="L6447" class="LineNr"> 6447 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6448" class="LineNr"> 6448 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6449" class="Folded"> 6449 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6455" class="LineNr"> 6455 </span> <span class="subxComment"># check output</span> -<span id="L6456" class="LineNr"> 6456 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</span>) -<span id="L6457" class="LineNr"> 6457 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</span>) -<span id="L6458" class="LineNr"> 6458 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</span>) -<span id="L6459" class="LineNr"> 6459 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</span>) -<span id="L6460" class="LineNr"> 6460 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</span>) -<span id="L6461" class="LineNr"> 6461 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) -<span id="L6462" class="LineNr"> 6462 </span> <span class="subxComment"># var arr</span> -<span id="L6463" class="LineNr"> 6463 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</span>) -<span id="L6464" class="LineNr"> 6464 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) -<span id="L6465" class="LineNr"> 6465 </span> <span class="subxComment"># var x</span> -<span id="L6466" class="LineNr"> 6466 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</span>) -<span id="L6467" class="LineNr"> 6467 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *(ebp+0xfffffff9) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) -<span id="L6468" class="LineNr"> 6468 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</span> -<span id="L6469" class="LineNr"> 6469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xffffffff) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) -<span id="L6470" class="LineNr"> 6470 </span> <span class="subxComment"># reclaim x</span> -<span id="L6471" class="LineNr"> 6471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) -<span id="L6472" class="LineNr"> 6472 </span> <span class="subxComment"># reclaim arr</span> -<span id="L6473" class="LineNr"> 6473 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</span>) -<span id="L6474" class="LineNr"> 6474 </span> <span class="subxComment">#</span> -<span id="L6475" class="LineNr"> 6475 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</span>) -<span id="L6476" class="LineNr"> 6476 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/14"</span>) -<span id="L6477" class="LineNr"> 6477 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/15"</span>) -<span id="L6478" class="LineNr"> 6478 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</span>) -<span id="L6479" class="LineNr"> 6479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) -<span id="L6480" class="LineNr"> 6480 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6432'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/18"</span>) -<span id="L6481" class="LineNr"> 6481 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6482" class="LineNr"> 6482 </span> 89/<- %esp 5/r32/ebp -<span id="L6483" class="LineNr"> 6483 </span> 5d/pop-to-ebp -<span id="L6484" class="LineNr"> 6484 </span> c3/return -<span id="L6485" class="LineNr"> 6485 </span> -<span id="L6486" class="LineNr"> 6486 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: -<span id="L6487" class="LineNr"> 6487 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6488" class="LineNr"> 6488 </span> 55/push-ebp -<span id="L6489" class="LineNr"> 6489 </span> 89/<- %ebp 4/r32/esp -<span id="L6490" class="LineNr"> 6490 </span> <span class="subxComment"># setup</span> -<span id="L6491" class="LineNr"> 6491 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6492" class="LineNr"> 6492 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6493" class="LineNr"> 6493 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6494" class="LineNr"> 6494 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6495" class="LineNr"> 6495 </span> <span class="subxComment">#</span> -<span id="L6496" class="LineNr"> 6496 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6497" class="LineNr"> 6497 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L6498" class="LineNr"> 6498 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L6499" class="LineNr"> 6499 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) -<span id="L6500" class="LineNr"> 6500 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) -<span id="L6501" class="LineNr"> 6501 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6502" class="LineNr"> 6502 </span> <span class="subxComment"># convert</span> -<span id="L6503" class="LineNr"> 6503 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6504" class="LineNr"> 6504 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6505" class="Folded"> 6505 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6511" class="LineNr"> 6511 </span> <span class="subxComment"># check output</span> -<span id="L6512" class="LineNr"> 6512 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/0"</span>) -<span id="L6513" class="LineNr"> 6513 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</span>) -<span id="L6514" class="LineNr"> 6514 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/2"</span>) -<span id="L6515" class="LineNr"> 6515 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/3"</span>) -<span id="L6516" class="LineNr"> 6516 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/4"</span>) -<span id="L6517" class="LineNr"> 6517 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/5"</span>) -<span id="L6518" class="LineNr"> 6518 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/6"</span>) -<span id="L6519" class="LineNr"> 6519 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/7"</span>) -<span id="L6520" class="LineNr"> 6520 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/8"</span>) -<span id="L6521" class="LineNr"> 6521 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/9"</span>) -<span id="L6522" class="LineNr"> 6522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/10"</span>) -<span id="L6523" class="LineNr"> 6523 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/11"</span>) -<span id="L6524" class="LineNr"> 6524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/12"</span>) -<span id="L6525" class="LineNr"> 6525 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/13"</span>) -<span id="L6526" class="LineNr"> 6526 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/14"</span>) -<span id="L6527" class="LineNr"> 6527 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/15"</span>) -<span id="L6528" class="LineNr"> 6528 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/16"</span>) -<span id="L6529" class="LineNr"> 6529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/17"</span>) -<span id="L6530" class="LineNr"> 6530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/18"</span>) -<span id="L6531" class="LineNr"> 6531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/19"</span>) -<span id="L6532" class="LineNr"> 6532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6486'>test-convert-index-into-array-using-offset</a>/20"</span>) -<span id="L6533" class="LineNr"> 6533 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6534" class="LineNr"> 6534 </span> 89/<- %esp 5/r32/ebp -<span id="L6535" class="LineNr"> 6535 </span> 5d/pop-to-ebp -<span id="L6536" class="LineNr"> 6536 </span> c3/return -<span id="L6537" class="LineNr"> 6537 </span> -<span id="L6538" class="LineNr"> 6538 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: -<span id="L6539" class="LineNr"> 6539 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6540" class="LineNr"> 6540 </span> 55/push-ebp -<span id="L6541" class="LineNr"> 6541 </span> 89/<- %ebp 4/r32/esp -<span id="L6542" class="LineNr"> 6542 </span> <span class="subxComment"># setup</span> -<span id="L6543" class="LineNr"> 6543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6544" class="LineNr"> 6544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6545" class="LineNr"> 6545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6546" class="LineNr"> 6546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6547" class="LineNr"> 6547 </span> <span class="subxComment">#</span> -<span id="L6548" class="LineNr"> 6548 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6549" class="LineNr"> 6549 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6550" class="LineNr"> 6550 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L6551" class="LineNr"> 6551 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) -<span id="L6552" class="LineNr"> 6552 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) -<span id="L6553" class="LineNr"> 6553 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6554" class="LineNr"> 6554 </span> <span class="subxComment"># convert</span> -<span id="L6555" class="LineNr"> 6555 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6556" class="LineNr"> 6556 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6557" class="Folded"> 6557 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6563" class="LineNr"> 6563 </span> <span class="subxComment"># check output</span> -<span id="L6564" class="LineNr"> 6564 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</span>) -<span id="L6565" class="LineNr"> 6565 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</span>) -<span id="L6566" class="LineNr"> 6566 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</span>) -<span id="L6567" class="LineNr"> 6567 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</span>) -<span id="L6568" class="LineNr"> 6568 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</span>) -<span id="L6569" class="LineNr"> 6569 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</span>) -<span id="L6570" class="LineNr"> 6570 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</span>) -<span id="L6571" class="LineNr"> 6571 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</span>) -<span id="L6572" class="LineNr"> 6572 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</span>) -<span id="L6573" class="LineNr"> 6573 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</span>) -<span id="L6574" class="LineNr"> 6574 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</span>) -<span id="L6575" class="LineNr"> 6575 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</span>) -<span id="L6576" class="LineNr"> 6576 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</span>) -<span id="L6577" class="LineNr"> 6577 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</span>) -<span id="L6578" class="LineNr"> 6578 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</span>) -<span id="L6579" class="LineNr"> 6579 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</span>) -<span id="L6580" class="LineNr"> 6580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/16"</span>) -<span id="L6581" class="LineNr"> 6581 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/17"</span>) -<span id="L6582" class="LineNr"> 6582 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</span>) -<span id="L6583" class="LineNr"> 6583 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/19"</span>) -<span id="L6584" class="LineNr"> 6584 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6538'>test-convert-index-into-array-of-bytes-using-offset</a>/20"</span>) -<span id="L6585" class="LineNr"> 6585 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6586" class="LineNr"> 6586 </span> 89/<- %esp 5/r32/ebp -<span id="L6587" class="LineNr"> 6587 </span> 5d/pop-to-ebp -<span id="L6588" class="LineNr"> 6588 </span> c3/return -<span id="L6589" class="LineNr"> 6589 </span> -<span id="L6590" class="LineNr"> 6590 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: -<span id="L6591" class="LineNr"> 6591 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6592" class="LineNr"> 6592 </span> 55/push-ebp -<span id="L6593" class="LineNr"> 6593 </span> 89/<- %ebp 4/r32/esp -<span id="L6594" class="LineNr"> 6594 </span> <span class="subxComment"># setup</span> -<span id="L6595" class="LineNr"> 6595 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6596" class="LineNr"> 6596 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6597" class="LineNr"> 6597 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6598" class="LineNr"> 6598 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6599" class="LineNr"> 6599 </span> <span class="subxComment">#</span> -<span id="L6600" class="LineNr"> 6600 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6601" class="LineNr"> 6601 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) -<span id="L6602" class="LineNr"> 6602 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) -<span id="L6603" class="LineNr"> 6603 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) -<span id="L6604" class="LineNr"> 6604 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) -<span id="L6605" class="LineNr"> 6605 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6606" class="LineNr"> 6606 </span> <span class="subxComment"># convert</span> -<span id="L6607" class="LineNr"> 6607 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6608" class="LineNr"> 6608 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6609" class="Folded"> 6609 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6615" class="LineNr"> 6615 </span> <span class="subxComment"># check output</span> -<span id="L6616" class="LineNr"> 6616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) -<span id="L6617" class="LineNr"> 6617 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/1"</span>) -<span id="L6618" class="LineNr"> 6618 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/2"</span>) -<span id="L6619" class="LineNr"> 6619 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/3"</span>) -<span id="L6620" class="LineNr"> 6620 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/4"</span>) -<span id="L6621" class="LineNr"> 6621 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/5"</span>) -<span id="L6622" class="LineNr"> 6622 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/6"</span>) -<span id="L6623" class="LineNr"> 6623 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/7"</span>) -<span id="L6624" class="LineNr"> 6624 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/8"</span>) -<span id="L6625" class="LineNr"> 6625 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/9"</span>) -<span id="L6626" class="LineNr"> 6626 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/10"</span>) -<span id="L6627" class="LineNr"> 6627 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/11"</span>) -<span id="L6628" class="LineNr"> 6628 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/12"</span>) -<span id="L6629" class="LineNr"> 6629 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/13"</span>) -<span id="L6630" class="LineNr"> 6630 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/14"</span>) -<span id="L6631" class="LineNr"> 6631 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/15"</span>) -<span id="L6632" class="LineNr"> 6632 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/16"</span>) -<span id="L6633" class="LineNr"> 6633 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/17"</span>) -<span id="L6634" class="LineNr"> 6634 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/18"</span>) -<span id="L6635" class="LineNr"> 6635 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/19"</span>) -<span id="L6636" class="LineNr"> 6636 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/20"</span>) -<span id="L6637" class="LineNr"> 6637 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6590'>test-convert-index-into-array-using-offset-on-stack</a>/21"</span>) -<span id="L6638" class="LineNr"> 6638 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6639" class="LineNr"> 6639 </span> 89/<- %esp 5/r32/ebp -<span id="L6640" class="LineNr"> 6640 </span> 5d/pop-to-ebp -<span id="L6641" class="LineNr"> 6641 </span> c3/return -<span id="L6642" class="LineNr"> 6642 </span> -<span id="L6643" class="LineNr"> 6643 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: -<span id="L6644" class="LineNr"> 6644 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6645" class="LineNr"> 6645 </span> 55/push-ebp -<span id="L6646" class="LineNr"> 6646 </span> 89/<- %ebp 4/r32/esp -<span id="L6647" class="LineNr"> 6647 </span> <span class="subxComment"># setup</span> -<span id="L6648" class="LineNr"> 6648 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6649" class="LineNr"> 6649 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6650" class="LineNr"> 6650 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6651" class="LineNr"> 6651 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6652" class="LineNr"> 6652 </span> <span class="subxComment">#</span> -<span id="L6653" class="LineNr"> 6653 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6654" class="LineNr"> 6654 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) -<span id="L6655" class="LineNr"> 6655 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) -<span id="L6656" class="LineNr"> 6656 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) -<span id="L6657" class="LineNr"> 6657 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) -<span id="L6658" class="LineNr"> 6658 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6659" class="LineNr"> 6659 </span> <span class="subxComment"># convert</span> -<span id="L6660" class="LineNr"> 6660 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6661" class="LineNr"> 6661 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6662" class="Folded"> 6662 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6668" class="LineNr"> 6668 </span> <span class="subxComment"># check output</span> -<span id="L6669" class="LineNr"> 6669 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</span>) -<span id="L6670" class="LineNr"> 6670 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/1"</span>) -<span id="L6671" class="LineNr"> 6671 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</span>) -<span id="L6672" class="LineNr"> 6672 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</span>) -<span id="L6673" class="LineNr"> 6673 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</span>) -<span id="L6674" class="LineNr"> 6674 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</span>) -<span id="L6675" class="LineNr"> 6675 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</span>) -<span id="L6676" class="LineNr"> 6676 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) -<span id="L6677" class="LineNr"> 6677 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) -<span id="L6678" class="LineNr"> 6678 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) -<span id="L6679" class="LineNr"> 6679 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) -<span id="L6680" class="LineNr"> 6680 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) -<span id="L6681" class="LineNr"> 6681 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) -<span id="L6682" class="LineNr"> 6682 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) -<span id="L6683" class="LineNr"> 6683 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) -<span id="L6684" class="LineNr"> 6684 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) -<span id="L6685" class="LineNr"> 6685 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) -<span id="L6686" class="LineNr"> 6686 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/17"</span>) -<span id="L6687" class="LineNr"> 6687 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/18"</span>) -<span id="L6688" class="LineNr"> 6688 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</span>) -<span id="L6689" class="LineNr"> 6689 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/20"</span>) -<span id="L6690" class="LineNr"> 6690 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6643'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/21"</span>) -<span id="L6691" class="LineNr"> 6691 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6692" class="LineNr"> 6692 </span> 89/<- %esp 5/r32/ebp -<span id="L6693" class="LineNr"> 6693 </span> 5d/pop-to-ebp -<span id="L6694" class="LineNr"> 6694 </span> c3/return -<span id="L6695" class="LineNr"> 6695 </span> -<span id="L6696" class="LineNr"> 6696 </span><span class="subxTest">test-convert-function-and-type-definition</span>: -<span id="L6697" class="LineNr"> 6697 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6698" class="LineNr"> 6698 </span> 55/push-ebp -<span id="L6699" class="LineNr"> 6699 </span> 89/<- %ebp 4/r32/esp -<span id="L6700" class="LineNr"> 6700 </span> <span class="subxComment"># setup</span> -<span id="L6701" class="LineNr"> 6701 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6702" class="LineNr"> 6702 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6703" class="LineNr"> 6703 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6704" class="LineNr"> 6704 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6705" class="LineNr"> 6705 </span> <span class="subxComment">#</span> -<span id="L6706" class="LineNr"> 6706 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr t) {\n"</span>) -<span id="L6707" class="LineNr"> 6707 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var _a/eax: (addr t) <- copy a\n"</span>) -<span id="L6708" class="LineNr"> 6708 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> _a, x\n"</span>) -<span id="L6709" class="LineNr"> 6709 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> _a, y\n"</span>) -<span id="L6710" class="LineNr"> 6710 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6711" class="LineNr"> 6711 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6712" class="LineNr"> 6712 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6713" class="LineNr"> 6713 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L6714" class="LineNr"> 6714 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6715" class="LineNr"> 6715 </span> <span class="subxComment"># convert</span> -<span id="L6716" class="LineNr"> 6716 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6717" class="LineNr"> 6717 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6718" class="Folded"> 6718 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6724" class="LineNr"> 6724 </span> <span class="subxComment"># check output</span> -<span id="L6725" class="LineNr"> 6725 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/0"</span>) -<span id="L6726" class="LineNr"> 6726 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</span>) -<span id="L6727" class="LineNr"> 6727 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/2"</span>) -<span id="L6728" class="LineNr"> 6728 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/3"</span>) -<span id="L6729" class="LineNr"> 6729 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/4"</span>) -<span id="L6730" class="LineNr"> 6730 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/5"</span>) -<span id="L6731" class="LineNr"> 6731 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/6"</span>) -<span id="L6732" class="LineNr"> 6732 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/7"</span>) -<span id="L6733" class="LineNr"> 6733 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/8"</span>) -<span id="L6734" class="LineNr"> 6734 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000000) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/9"</span>) -<span id="L6735" class="LineNr"> 6735 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000004) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/11"</span>) -<span id="L6736" class="LineNr"> 6736 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/13"</span>) -<span id="L6737" class="LineNr"> 6737 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/14"</span>) -<span id="L6738" class="LineNr"> 6738 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/15"</span>) -<span id="L6739" class="LineNr"> 6739 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/16"</span>) -<span id="L6740" class="LineNr"> 6740 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/17"</span>) -<span id="L6741" class="LineNr"> 6741 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/18"</span>) -<span id="L6742" class="LineNr"> 6742 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/19"</span>) -<span id="L6743" class="LineNr"> 6743 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6696'>test-convert-function-and-type-definition</a>/20"</span>) -<span id="L6744" class="LineNr"> 6744 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6745" class="LineNr"> 6745 </span> 89/<- %esp 5/r32/ebp -<span id="L6746" class="LineNr"> 6746 </span> 5d/pop-to-ebp -<span id="L6747" class="LineNr"> 6747 </span> c3/return -<span id="L6748" class="LineNr"> 6748 </span> -<span id="L6749" class="LineNr"> 6749 </span><span class="subxTest">test-type-definition-with-array</span>: -<span id="L6750" class="LineNr"> 6750 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6751" class="LineNr"> 6751 </span> 55/push-ebp -<span id="L6752" class="LineNr"> 6752 </span> 89/<- %ebp 4/r32/esp -<span id="L6753" class="LineNr"> 6753 </span> <span class="subxComment"># setup</span> -<span id="L6754" class="LineNr"> 6754 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6755" class="LineNr"> 6755 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6756" class="LineNr"> 6756 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6757" class="LineNr"> 6757 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6758" class="LineNr"> 6758 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6759" class="LineNr"> 6759 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6760" class="LineNr"> 6760 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6761" class="LineNr"> 6761 </span> 68/push 0/imm32 -<span id="L6762" class="LineNr"> 6762 </span> 68/push 0/imm32 -<span id="L6763" class="LineNr"> 6763 </span> 89/<- %edx 4/r32/esp -<span id="L6764" class="LineNr"> 6764 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6765" class="LineNr"> 6765 </span> <span class="subxComment">#</span> -<span id="L6766" class="LineNr"> 6766 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6767" class="LineNr"> 6767 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (array int 3)\n"</span>) -<span id="L6768" class="LineNr"> 6768 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6769" class="LineNr"> 6769 </span> <span class="subxComment"># convert</span> -<span id="L6770" class="LineNr"> 6770 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L6771" class="LineNr"> 6771 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6772" class="LineNr"> 6772 </span> <span class="subxComment"># restore ed</span> -<span id="L6773" class="LineNr"> 6773 </span> 89/<- %edx 4/r32/esp -<span id="L6774" class="LineNr"> 6774 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6775" class="LineNr"> 6775 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L6776" class="Folded"> 6776 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6782" class="LineNr"> 6782 </span> <span class="subxComment"># check output</span> -<span id="L6783" class="LineNr"> 6783 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6749'>test-type-definition-with-array</a>: output should be empty"</span>) -<span id="L6784" class="LineNr"> 6784 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"type t: 'array' elements not allowed for now"</span> <span class="Constant">"F - <a href='mu.subx.html#L6749'>test-type-definition-with-array</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6785" class="LineNr"> 6785 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6786" class="LineNr"> 6786 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6749'>test-type-definition-with-array</a>: exit status"</span>) -<span id="L6787" class="LineNr"> 6787 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6788" class="LineNr"> 6788 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6789" class="LineNr"> 6789 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6790" class="LineNr"> 6790 </span> 5d/pop-to-ebp -<span id="L6791" class="LineNr"> 6791 </span> c3/return -<span id="L6792" class="LineNr"> 6792 </span> -<span id="L6793" class="LineNr"> 6793 </span><span class="subxTest">test-type-definition-with-addr</span>: -<span id="L6794" class="LineNr"> 6794 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6795" class="LineNr"> 6795 </span> 55/push-ebp -<span id="L6796" class="LineNr"> 6796 </span> 89/<- %ebp 4/r32/esp -<span id="L6797" class="LineNr"> 6797 </span> <span class="subxComment"># setup</span> -<span id="L6798" class="LineNr"> 6798 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6799" class="LineNr"> 6799 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6800" class="LineNr"> 6800 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6801" class="LineNr"> 6801 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6802" class="LineNr"> 6802 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L6803" class="LineNr"> 6803 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L6804" class="LineNr"> 6804 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L6805" class="LineNr"> 6805 </span> 68/push 0/imm32 -<span id="L6806" class="LineNr"> 6806 </span> 68/push 0/imm32 -<span id="L6807" class="LineNr"> 6807 </span> 89/<- %edx 4/r32/esp -<span id="L6808" class="LineNr"> 6808 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L6809" class="LineNr"> 6809 </span> <span class="subxComment">#</span> -<span id="L6810" class="LineNr"> 6810 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6811" class="LineNr"> 6811 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (addr int)\n"</span>) -<span id="L6812" class="LineNr"> 6812 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6813" class="LineNr"> 6813 </span> <span class="subxComment"># convert</span> -<span id="L6814" class="LineNr"> 6814 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L6815" class="LineNr"> 6815 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L6816" class="LineNr"> 6816 </span> <span class="subxComment"># restore ed</span> -<span id="L6817" class="LineNr"> 6817 </span> 89/<- %edx 4/r32/esp -<span id="L6818" class="LineNr"> 6818 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6819" class="LineNr"> 6819 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L6820" class="Folded"> 6820 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6826" class="LineNr"> 6826 </span> <span class="subxComment"># check output</span> -<span id="L6827" class="LineNr"> 6827 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6793'>test-type-definition-with-addr</a>: output should be empty"</span>) -<span id="L6828" class="LineNr"> 6828 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L6793'>test-type-definition-with-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L6829" class="LineNr"> 6829 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L6830" class="LineNr"> 6830 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6793'>test-type-definition-with-addr</a>: exit status"</span>) -<span id="L6831" class="LineNr"> 6831 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L6832" class="LineNr"> 6832 </span> 81 0/subop/add %esp 8/imm32 -<span id="L6833" class="LineNr"> 6833 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6834" class="LineNr"> 6834 </span> 5d/pop-to-ebp -<span id="L6835" class="LineNr"> 6835 </span> c3/return -<span id="L6836" class="LineNr"> 6836 </span> -<span id="L6837" class="LineNr"> 6837 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: -<span id="L6838" class="LineNr"> 6838 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6839" class="LineNr"> 6839 </span> 55/push-ebp -<span id="L6840" class="LineNr"> 6840 </span> 89/<- %ebp 4/r32/esp -<span id="L6841" class="LineNr"> 6841 </span> <span class="subxComment"># setup</span> -<span id="L6842" class="LineNr"> 6842 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6843" class="LineNr"> 6843 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6844" class="LineNr"> 6844 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6845" class="LineNr"> 6845 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6846" class="LineNr"> 6846 </span> <span class="subxComment">#</span> -<span id="L6847" class="LineNr"> 6847 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6848" class="LineNr"> 6848 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L6849" class="LineNr"> 6849 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6850" class="LineNr"> 6850 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6851" class="LineNr"> 6851 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6852" class="LineNr"> 6852 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L6853" class="LineNr"> 6853 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6854" class="LineNr"> 6854 </span> <span class="subxComment"># convert</span> -<span id="L6855" class="LineNr"> 6855 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6856" class="LineNr"> 6856 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6857" class="Folded"> 6857 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6863" class="LineNr"> 6863 </span> <span class="subxComment"># check output</span> -<span id="L6864" class="LineNr"> 6864 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) -<span id="L6865" class="LineNr"> 6865 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/1"</span>) -<span id="L6866" class="LineNr"> 6866 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</span>) -<span id="L6867" class="LineNr"> 6867 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</span>) -<span id="L6868" class="LineNr"> 6868 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</span>) -<span id="L6869" class="LineNr"> 6869 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</span>) -<span id="L6870" class="LineNr"> 6870 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</span>) -<span id="L6871" class="LineNr"> 6871 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</span>) -<span id="L6872" class="LineNr"> 6872 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</span>) -<span id="L6873" class="LineNr"> 6873 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</span>) -<span id="L6874" class="LineNr"> 6874 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</span>) -<span id="L6875" class="LineNr"> 6875 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/11"</span>) -<span id="L6876" class="LineNr"> 6876 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</span>) -<span id="L6877" class="LineNr"> 6877 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</span>) -<span id="L6878" class="LineNr"> 6878 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6837'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) -<span id="L6879" class="LineNr"> 6879 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6880" class="LineNr"> 6880 </span> 89/<- %esp 5/r32/ebp -<span id="L6881" class="LineNr"> 6881 </span> 5d/pop-to-ebp -<span id="L6882" class="LineNr"> 6882 </span> c3/return -<span id="L6883" class="LineNr"> 6883 </span> -<span id="L6884" class="LineNr"> 6884 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: -<span id="L6885" class="LineNr"> 6885 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6886" class="LineNr"> 6886 </span> 55/push-ebp -<span id="L6887" class="LineNr"> 6887 </span> 89/<- %ebp 4/r32/esp -<span id="L6888" class="LineNr"> 6888 </span> <span class="subxComment"># setup</span> -<span id="L6889" class="LineNr"> 6889 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6890" class="LineNr"> 6890 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6891" class="LineNr"> 6891 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6892" class="LineNr"> 6892 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6893" class="LineNr"> 6893 </span> <span class="subxComment">#</span> -<span id="L6894" class="LineNr"> 6894 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L6895" class="LineNr"> 6895 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L6896" class="LineNr"> 6896 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6897" class="LineNr"> 6897 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6898" class="LineNr"> 6898 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: s\n"</span>) -<span id="L6899" class="LineNr"> 6899 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6900" class="LineNr"> 6900 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type s {\n"</span>) -<span id="L6901" class="LineNr"> 6901 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L6902" class="LineNr"> 6902 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6903" class="LineNr"> 6903 </span> <span class="subxComment"># convert</span> -<span id="L6904" class="LineNr"> 6904 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6905" class="LineNr"> 6905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6906" class="Folded"> 6906 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6912" class="LineNr"> 6912 </span> <span class="subxComment"># check output</span> -<span id="L6913" class="LineNr"> 6913 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</span>) -<span id="L6914" class="LineNr"> 6914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/1"</span>) -<span id="L6915" class="LineNr"> 6915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</span>) -<span id="L6916" class="LineNr"> 6916 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</span>) -<span id="L6917" class="LineNr"> 6917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</span>) -<span id="L6918" class="LineNr"> 6918 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</span>) -<span id="L6919" class="LineNr"> 6919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/7"</span>) -<span id="L6920" class="LineNr"> 6920 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/8"</span>) -<span id="L6921" class="LineNr"> 6921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/9"</span>) -<span id="L6922" class="LineNr"> 6922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/10"</span>) -<span id="L6923" class="LineNr"> 6923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</span>) -<span id="L6924" class="LineNr"> 6924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/12"</span>) -<span id="L6925" class="LineNr"> 6925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/13"</span>) -<span id="L6926" class="LineNr"> 6926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6884'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) -<span id="L6927" class="LineNr"> 6927 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6928" class="LineNr"> 6928 </span> 89/<- %esp 5/r32/ebp -<span id="L6929" class="LineNr"> 6929 </span> 5d/pop-to-ebp -<span id="L6930" class="LineNr"> 6930 </span> c3/return -<span id="L6931" class="LineNr"> 6931 </span> -<span id="L6932" class="LineNr"> 6932 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: -<span id="L6933" class="LineNr"> 6933 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6934" class="LineNr"> 6934 </span> 55/push-ebp -<span id="L6935" class="LineNr"> 6935 </span> 89/<- %ebp 4/r32/esp -<span id="L6936" class="LineNr"> 6936 </span> <span class="subxComment"># setup</span> -<span id="L6937" class="LineNr"> 6937 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L6938" class="LineNr"> 6938 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L6939" class="LineNr"> 6939 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L6940" class="LineNr"> 6940 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L6941" class="LineNr"> 6941 </span> <span class="subxComment">#</span> -<span id="L6942" class="LineNr"> 6942 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L6943" class="LineNr"> 6943 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L6944" class="LineNr"> 6944 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo a\n"</span>) -<span id="L6945" class="LineNr"> 6945 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6946" class="LineNr"> 6946 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) -<span id="L6947" class="LineNr"> 6947 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6948" class="LineNr"> 6948 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L6949" class="LineNr"> 6949 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L6950" class="LineNr"> 6950 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L6951" class="LineNr"> 6951 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L6952" class="LineNr"> 6952 </span> <span class="subxComment"># convert</span> -<span id="L6953" class="LineNr"> 6953 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L6954" class="LineNr"> 6954 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L6955" class="Folded"> 6955 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L6961" class="LineNr"> 6961 </span> <span class="subxComment"># check output</span> -<span id="L6962" class="LineNr"> 6962 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) -<span id="L6963" class="LineNr"> 6963 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) -<span id="L6964" class="LineNr"> 6964 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) -<span id="L6965" class="LineNr"> 6965 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L6966" class="LineNr"> 6966 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L6967" class="LineNr"> 6967 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L6968" class="LineNr"> 6968 </span> <span class="subxComment"># var a: t</span> -<span id="L6969" class="LineNr"> 6969 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) -<span id="L6970" class="LineNr"> 6970 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L6971" class="LineNr"> 6971 </span> <span class="subxComment"># foo a</span> -<span id="L6972" class="LineNr"> 6972 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L6973" class="LineNr"> 6973 </span> <span class="subxComment">#</span> -<span id="L6974" class="LineNr"> 6974 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) -<span id="L6975" class="LineNr"> 6975 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) -<span id="L6976" class="LineNr"> 6976 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) -<span id="L6977" class="LineNr"> 6977 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) -<span id="L6978" class="LineNr"> 6978 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) -<span id="L6979" class="LineNr"> 6979 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) -<span id="L6980" class="LineNr"> 6980 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) -<span id="L6981" class="LineNr"> 6981 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) -<span id="L6982" class="LineNr"> 6982 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) -<span id="L6983" class="LineNr"> 6983 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) -<span id="L6984" class="LineNr"> 6984 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) -<span id="L6985" class="LineNr"> 6985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) -<span id="L6986" class="LineNr"> 6986 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) -<span id="L6987" class="LineNr"> 6987 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) -<span id="L6988" class="LineNr"> 6988 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L6989" class="LineNr"> 6989 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6990" class="LineNr"> 6990 </span> 89/<- %esp 5/r32/ebp -<span id="L6991" class="LineNr"> 6991 </span> 5d/pop-to-ebp -<span id="L6992" class="LineNr"> 6992 </span> c3/return -<span id="L6993" class="LineNr"> 6993 </span> -<span id="L6994" class="LineNr"> 6994 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: -<span id="L6995" class="LineNr"> 6995 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L6996" class="LineNr"> 6996 </span> 55/push-ebp -<span id="L6997" class="LineNr"> 6997 </span> 89/<- %ebp 4/r32/esp -<span id="L6998" class="LineNr"> 6998 </span> <span class="subxComment"># setup</span> -<span id="L6999" class="LineNr"> 6999 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7000" class="LineNr"> 7000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7001" class="LineNr"> 7001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7002" class="LineNr"> 7002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7003" class="LineNr"> 7003 </span> <span class="subxComment">#</span> -<span id="L7004" class="LineNr"> 7004 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L7005" class="LineNr"> 7005 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr t) <- copy 0\n"</span>) -<span id="L7006" class="LineNr"> 7006 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo *a\n"</span>) -<span id="L7007" class="LineNr"> 7007 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7008" class="LineNr"> 7008 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) -<span id="L7009" class="LineNr"> 7009 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7010" class="LineNr"> 7010 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7011" class="LineNr"> 7011 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7012" class="LineNr"> 7012 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7013" class="LineNr"> 7013 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7014" class="LineNr"> 7014 </span> <span class="subxComment"># convert</span> -<span id="L7015" class="LineNr"> 7015 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7016" class="LineNr"> 7016 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7017" class="Folded"> 7017 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7023" class="LineNr"> 7023 </span> <span class="subxComment"># check output</span> -<span id="L7024" class="LineNr"> 7024 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) -<span id="L7025" class="LineNr"> 7025 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) -<span id="L7026" class="LineNr"> 7026 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) -<span id="L7027" class="LineNr"> 7027 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) -<span id="L7028" class="LineNr"> 7028 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) -<span id="L7029" class="LineNr"> 7029 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) -<span id="L7030" class="LineNr"> 7030 </span> <span class="subxComment"># var a</span> -<span id="L7031" class="LineNr"> 7031 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) -<span id="L7032" class="LineNr"> 7032 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) -<span id="L7033" class="LineNr"> 7033 </span> <span class="subxComment"># foo a</span> -<span id="L7034" class="LineNr"> 7034 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) -<span id="L7035" class="LineNr"> 7035 </span> <span class="subxComment">#</span> -<span id="L7036" class="LineNr"> 7036 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) -<span id="L7037" class="LineNr"> 7037 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) -<span id="L7038" class="LineNr"> 7038 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) -<span id="L7039" class="LineNr"> 7039 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) -<span id="L7040" class="LineNr"> 7040 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) -<span id="L7041" class="LineNr"> 7041 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) -<span id="L7042" class="LineNr"> 7042 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) -<span id="L7043" class="LineNr"> 7043 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) -<span id="L7044" class="LineNr"> 7044 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) -<span id="L7045" class="LineNr"> 7045 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) -<span id="L7046" class="LineNr"> 7046 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) -<span id="L7047" class="LineNr"> 7047 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) -<span id="L7048" class="LineNr"> 7048 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) -<span id="L7049" class="LineNr"> 7049 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) -<span id="L7050" class="LineNr"> 7050 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6932'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) -<span id="L7051" class="LineNr"> 7051 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7052" class="LineNr"> 7052 </span> 89/<- %esp 5/r32/ebp -<span id="L7053" class="LineNr"> 7053 </span> 5d/pop-to-ebp -<span id="L7054" class="LineNr"> 7054 </span> c3/return -<span id="L7055" class="LineNr"> 7055 </span> -<span id="L7056" class="LineNr"> 7056 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> -<span id="L7057" class="LineNr"> 7057 </span><span class="subxComment"># a new variable with the address of the arg</span> -<span id="L7058" class="LineNr"> 7058 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: -<span id="L7059" class="LineNr"> 7059 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7060" class="LineNr"> 7060 </span> 55/push-ebp -<span id="L7061" class="LineNr"> 7061 </span> 89/<- %ebp 4/r32/esp -<span id="L7062" class="LineNr"> 7062 </span> <span class="subxComment"># setup</span> -<span id="L7063" class="LineNr"> 7063 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7064" class="LineNr"> 7064 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7065" class="LineNr"> 7065 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7066" class="LineNr"> 7066 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7067" class="LineNr"> 7067 </span> <span class="subxComment">#</span> -<span id="L7068" class="LineNr"> 7068 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) -<span id="L7069" class="LineNr"> 7069 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L7070" class="LineNr"> 7070 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr t) <- address a\n"</span>) -<span id="L7071" class="LineNr"> 7071 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo b\n"</span>) -<span id="L7072" class="LineNr"> 7072 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7073" class="LineNr"> 7073 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: (addr t) {\n"</span>) -<span id="L7074" class="LineNr"> 7074 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr t) <- copy x\n"</span>) -<span id="L7075" class="LineNr"> 7075 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7076" class="LineNr"> 7076 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7077" class="LineNr"> 7077 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7078" class="LineNr"> 7078 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7079" class="LineNr"> 7079 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7080" class="LineNr"> 7080 </span> <span class="subxComment"># convert</span> -<span id="L7081" class="LineNr"> 7081 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7082" class="LineNr"> 7082 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7083" class="Folded"> 7083 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7089" class="LineNr"> 7089 </span> <span class="subxComment"># check output</span> -<span id="L7090" class="LineNr"> 7090 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</span>) -<span id="L7091" class="LineNr"> 7091 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/1"</span>) -<span id="L7092" class="LineNr"> 7092 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</span>) -<span id="L7093" class="LineNr"> 7093 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</span>) -<span id="L7094" class="LineNr"> 7094 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</span>) -<span id="L7095" class="LineNr"> 7095 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) -<span id="L7096" class="LineNr"> 7096 </span> <span class="subxComment"># var a: t</span> -<span id="L7097" class="LineNr"> 7097 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</span>) -<span id="L7098" class="LineNr"> 7098 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) -<span id="L7099" class="LineNr"> 7099 </span> <span class="subxComment"># var b/eax: (addr t)</span> -<span id="L7100" class="LineNr"> 7100 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</span>) -<span id="L7101" class="LineNr"> 7101 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) -<span id="L7102" class="LineNr"> 7102 </span> <span class="subxComment"># foo a</span> -<span id="L7103" class="LineNr"> 7103 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) -<span id="L7104" class="LineNr"> 7104 </span> <span class="subxComment">#</span> -<span id="L7105" class="LineNr"> 7105 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</span>) -<span id="L7106" class="LineNr"> 7106 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</span>) -<span id="L7107" class="LineNr"> 7107 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</span>) -<span id="L7108" class="LineNr"> 7108 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</span>) -<span id="L7109" class="LineNr"> 7109 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/15"</span>) -<span id="L7110" class="LineNr"> 7110 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</span>) -<span id="L7111" class="LineNr"> 7111 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</span>) -<span id="L7112" class="LineNr"> 7112 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</span>) -<span id="L7113" class="LineNr"> 7113 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</span>) -<span id="L7114" class="LineNr"> 7114 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/20"</span>) -<span id="L7115" class="LineNr"> 7115 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</span>) -<span id="L7116" class="LineNr"> 7116 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</span>) -<span id="L7117" class="LineNr"> 7117 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</span>) -<span id="L7118" class="LineNr"> 7118 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</span>) -<span id="L7119" class="LineNr"> 7119 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</span>) -<span id="L7120" class="LineNr"> 7120 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</span>) -<span id="L7121" class="LineNr"> 7121 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</span>) -<span id="L7122" class="LineNr"> 7122 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</span>) -<span id="L7123" class="LineNr"> 7123 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</span>) -<span id="L7124" class="LineNr"> 7124 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/30"</span>) -<span id="L7125" class="LineNr"> 7125 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/31"</span>) -<span id="L7126" class="LineNr"> 7126 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) -<span id="L7127" class="LineNr"> 7127 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7058'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) -<span id="L7128" class="LineNr"> 7128 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7129" class="LineNr"> 7129 </span> 89/<- %esp 5/r32/ebp -<span id="L7130" class="LineNr"> 7130 </span> 5d/pop-to-ebp -<span id="L7131" class="LineNr"> 7131 </span> c3/return -<span id="L7132" class="LineNr"> 7132 </span> -<span id="L7133" class="LineNr"> 7133 </span><span class="subxTest">test-convert-get-on-local-variable</span>: -<span id="L7134" class="LineNr"> 7134 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7135" class="LineNr"> 7135 </span> 55/push-ebp -<span id="L7136" class="LineNr"> 7136 </span> 89/<- %ebp 4/r32/esp -<span id="L7137" class="LineNr"> 7137 </span> <span class="subxComment"># setup</span> -<span id="L7138" class="LineNr"> 7138 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7139" class="LineNr"> 7139 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7140" class="LineNr"> 7140 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7141" class="LineNr"> 7141 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7142" class="LineNr"> 7142 </span> <span class="subxComment">#</span> -<span id="L7143" class="LineNr"> 7143 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7144" class="LineNr"> 7144 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L7145" class="LineNr"> 7145 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L7146" class="LineNr"> 7146 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7147" class="LineNr"> 7147 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7148" class="LineNr"> 7148 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7149" class="LineNr"> 7149 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7150" class="LineNr"> 7150 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7151" class="LineNr"> 7151 </span> <span class="subxComment"># convert</span> -<span id="L7152" class="LineNr"> 7152 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7153" class="LineNr"> 7153 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7154" class="Folded"> 7154 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7160" class="LineNr"> 7160 </span> <span class="subxComment"># check output</span> -<span id="L7161" class="LineNr"> 7161 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/0"</span>) -<span id="L7162" class="LineNr"> 7162 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/1"</span>) -<span id="L7163" class="LineNr"> 7163 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/2"</span>) -<span id="L7164" class="LineNr"> 7164 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/3"</span>) -<span id="L7165" class="LineNr"> 7165 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/4"</span>) -<span id="L7166" class="LineNr"> 7166 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/5"</span>) -<span id="L7167" class="LineNr"> 7167 </span> <span class="subxComment"># var a</span> -<span id="L7168" class="LineNr"> 7168 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/6"</span>) -<span id="L7169" class="LineNr"> 7169 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/7"</span>) -<span id="L7170" class="LineNr"> 7170 </span> <span class="subxComment"># var c</span> -<span id="L7171" class="LineNr"> 7171 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/8"</span>) -<span id="L7172" class="LineNr"> 7172 </span> <span class="subxComment"># get</span> -<span id="L7173" class="LineNr"> 7173 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/9"</span>) -<span id="L7174" class="LineNr"> 7174 </span> <span class="subxComment"># reclaim c</span> -<span id="L7175" class="LineNr"> 7175 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/10"</span>) -<span id="L7176" class="LineNr"> 7176 </span> <span class="subxComment"># reclaim a</span> -<span id="L7177" class="LineNr"> 7177 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/11"</span>) -<span id="L7178" class="LineNr"> 7178 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/12"</span>) -<span id="L7179" class="LineNr"> 7179 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/13"</span>) -<span id="L7180" class="LineNr"> 7180 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) -<span id="L7181" class="LineNr"> 7181 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/15"</span>) -<span id="L7182" class="LineNr"> 7182 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/16"</span>) -<span id="L7183" class="LineNr"> 7183 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7133'>test-convert-get-on-local-variable</a>/17"</span>) -<span id="L7184" class="LineNr"> 7184 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7185" class="LineNr"> 7185 </span> 89/<- %esp 5/r32/ebp -<span id="L7186" class="LineNr"> 7186 </span> 5d/pop-to-ebp -<span id="L7187" class="LineNr"> 7187 </span> c3/return -<span id="L7188" class="LineNr"> 7188 </span> -<span id="L7189" class="LineNr"> 7189 </span><span class="subxTest">test-convert-get-on-function-argument</span>: -<span id="L7190" class="LineNr"> 7190 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7191" class="LineNr"> 7191 </span> 55/push-ebp -<span id="L7192" class="LineNr"> 7192 </span> 89/<- %ebp 4/r32/esp -<span id="L7193" class="LineNr"> 7193 </span> <span class="subxComment"># setup</span> -<span id="L7194" class="LineNr"> 7194 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7195" class="LineNr"> 7195 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7196" class="LineNr"> 7196 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7197" class="LineNr"> 7197 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7198" class="LineNr"> 7198 </span> <span class="subxComment">#</span> -<span id="L7199" class="LineNr"> 7199 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) -<span id="L7200" class="LineNr"> 7200 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L7201" class="LineNr"> 7201 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7202" class="LineNr"> 7202 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7203" class="LineNr"> 7203 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7204" class="LineNr"> 7204 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7205" class="LineNr"> 7205 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7206" class="LineNr"> 7206 </span> <span class="subxComment"># convert</span> -<span id="L7207" class="LineNr"> 7207 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7208" class="LineNr"> 7208 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7209" class="Folded"> 7209 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7215" class="LineNr"> 7215 </span> <span class="subxComment"># check output</span> -<span id="L7216" class="LineNr"> 7216 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/0"</span>) -<span id="L7217" class="LineNr"> 7217 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/1"</span>) -<span id="L7218" class="LineNr"> 7218 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/2"</span>) -<span id="L7219" class="LineNr"> 7219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/3"</span>) -<span id="L7220" class="LineNr"> 7220 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/4"</span>) -<span id="L7221" class="LineNr"> 7221 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/5"</span>) -<span id="L7222" class="LineNr"> 7222 </span> <span class="subxComment"># var c</span> -<span id="L7223" class="LineNr"> 7223 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/6"</span>) -<span id="L7224" class="LineNr"> 7224 </span> <span class="subxComment"># get</span> -<span id="L7225" class="LineNr"> 7225 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/7"</span>) -<span id="L7226" class="LineNr"> 7226 </span> <span class="subxComment"># reclaim c</span> -<span id="L7227" class="LineNr"> 7227 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/8"</span>) -<span id="L7228" class="LineNr"> 7228 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/9"</span>) -<span id="L7229" class="LineNr"> 7229 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/10"</span>) -<span id="L7230" class="LineNr"> 7230 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/11"</span>) -<span id="L7231" class="LineNr"> 7231 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/12"</span>) -<span id="L7232" class="LineNr"> 7232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/13"</span>) -<span id="L7233" class="LineNr"> 7233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7189'>test-convert-get-on-function-argument</a>/14"</span>) -<span id="L7234" class="LineNr"> 7234 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7235" class="LineNr"> 7235 </span> 89/<- %esp 5/r32/ebp -<span id="L7236" class="LineNr"> 7236 </span> 5d/pop-to-ebp -<span id="L7237" class="LineNr"> 7237 </span> c3/return -<span id="L7238" class="LineNr"> 7238 </span> -<span id="L7239" class="LineNr"> 7239 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: -<span id="L7240" class="LineNr"> 7240 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7241" class="LineNr"> 7241 </span> 55/push-ebp -<span id="L7242" class="LineNr"> 7242 </span> 89/<- %ebp 4/r32/esp -<span id="L7243" class="LineNr"> 7243 </span> <span class="subxComment"># setup</span> -<span id="L7244" class="LineNr"> 7244 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7245" class="LineNr"> 7245 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7246" class="LineNr"> 7246 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7247" class="LineNr"> 7247 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7248" class="LineNr"> 7248 </span> <span class="subxComment">#</span> -<span id="L7249" class="LineNr"> 7249 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L7250" class="LineNr"> 7250 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L7251" class="LineNr"> 7251 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L7252" class="LineNr"> 7252 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7253" class="LineNr"> 7253 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) -<span id="L7254" class="LineNr"> 7254 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L7255" class="LineNr"> 7255 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7256" class="LineNr"> 7256 </span> <span class="subxComment"># convert</span> -<span id="L7257" class="LineNr"> 7257 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7258" class="LineNr"> 7258 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7259" class="Folded"> 7259 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7265" class="LineNr"> 7265 </span> <span class="subxComment"># check output</span> -<span id="L7266" class="LineNr"> 7266 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) -<span id="L7267" class="LineNr"> 7267 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/1"</span>) -<span id="L7268" class="LineNr"> 7268 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/2"</span>) -<span id="L7269" class="LineNr"> 7269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) -<span id="L7270" class="LineNr"> 7270 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) -<span id="L7271" class="LineNr"> 7271 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) -<span id="L7272" class="LineNr"> 7272 </span> <span class="subxComment"># var c</span> -<span id="L7273" class="LineNr"> 7273 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) -<span id="L7274" class="LineNr"> 7274 </span> <span class="subxComment"># get</span> -<span id="L7275" class="LineNr"> 7275 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) -<span id="L7276" class="LineNr"> 7276 </span> <span class="subxComment"># reclaim c</span> -<span id="L7277" class="LineNr"> 7277 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) -<span id="L7278" class="LineNr"> 7278 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) -<span id="L7279" class="LineNr"> 7279 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) -<span id="L7280" class="LineNr"> 7280 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/11"</span>) -<span id="L7281" class="LineNr"> 7281 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/12"</span>) -<span id="L7282" class="LineNr"> 7282 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/13"</span>) -<span id="L7283" class="LineNr"> 7283 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7239'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) -<span id="L7284" class="LineNr"> 7284 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7285" class="LineNr"> 7285 </span> 89/<- %esp 5/r32/ebp -<span id="L7286" class="LineNr"> 7286 </span> 5d/pop-to-ebp -<span id="L7287" class="LineNr"> 7287 </span> c3/return -<span id="L7288" class="LineNr"> 7288 </span> -<span id="L7289" class="LineNr"> 7289 </span><span class="subxTest">test-add-with-too-many-inouts</span>: -<span id="L7290" class="LineNr"> 7290 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7291" class="LineNr"> 7291 </span> 55/push-ebp -<span id="L7292" class="LineNr"> 7292 </span> 89/<- %ebp 4/r32/esp -<span id="L7293" class="LineNr"> 7293 </span> <span class="subxComment"># setup</span> -<span id="L7294" class="LineNr"> 7294 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7295" class="LineNr"> 7295 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7296" class="LineNr"> 7296 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7297" class="LineNr"> 7297 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7298" class="LineNr"> 7298 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7299" class="LineNr"> 7299 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7300" class="LineNr"> 7300 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7301" class="LineNr"> 7301 </span> 68/push 0/imm32 -<span id="L7302" class="LineNr"> 7302 </span> 68/push 0/imm32 -<span id="L7303" class="LineNr"> 7303 </span> 89/<- %edx 4/r32/esp -<span id="L7304" class="LineNr"> 7304 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7305" class="LineNr"> 7305 </span> <span class="subxComment">#</span> -<span id="L7306" class="LineNr"> 7306 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7307" class="LineNr"> 7307 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7308" class="LineNr"> 7308 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: int <- add a, 0\n"</span>) -<span id="L7309" class="LineNr"> 7309 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7310" class="LineNr"> 7310 </span> <span class="subxComment"># convert</span> -<span id="L7311" class="LineNr"> 7311 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7312" class="LineNr"> 7312 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7313" class="LineNr"> 7313 </span> <span class="subxComment"># restore ed</span> -<span id="L7314" class="LineNr"> 7314 </span> 89/<- %edx 4/r32/esp -<span id="L7315" class="LineNr"> 7315 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7316" class="LineNr"> 7316 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7317" class="Folded"> 7317 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7323" class="LineNr"> 7323 </span> <span class="subxComment"># check output</span> -<span id="L7324" class="LineNr"> 7324 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7289'>test-add-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L7325" class="LineNr"> 7325 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7289'>test-add-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7326" class="LineNr"> 7326 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7327" class="LineNr"> 7327 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7289'>test-add-with-too-many-inouts</a>: exit status"</span>) -<span id="L7328" class="LineNr"> 7328 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7329" class="LineNr"> 7329 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7330" class="LineNr"> 7330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7331" class="LineNr"> 7331 </span> 5d/pop-to-ebp -<span id="L7332" class="LineNr"> 7332 </span> c3/return -<span id="L7333" class="LineNr"> 7333 </span> -<span id="L7334" class="LineNr"> 7334 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: -<span id="L7335" class="LineNr"> 7335 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7336" class="LineNr"> 7336 </span> 55/push-ebp -<span id="L7337" class="LineNr"> 7337 </span> 89/<- %ebp 4/r32/esp -<span id="L7338" class="LineNr"> 7338 </span> <span class="subxComment"># setup</span> -<span id="L7339" class="LineNr"> 7339 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7340" class="LineNr"> 7340 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7341" class="LineNr"> 7341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7342" class="LineNr"> 7342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7343" class="LineNr"> 7343 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7344" class="LineNr"> 7344 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7345" class="LineNr"> 7345 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7346" class="LineNr"> 7346 </span> 68/push 0/imm32 -<span id="L7347" class="LineNr"> 7347 </span> 68/push 0/imm32 -<span id="L7348" class="LineNr"> 7348 </span> 89/<- %edx 4/r32/esp -<span id="L7349" class="LineNr"> 7349 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7350" class="LineNr"> 7350 </span> <span class="subxComment">#</span> -<span id="L7351" class="LineNr"> 7351 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7352" class="LineNr"> 7352 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7353" class="LineNr"> 7353 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to a, 0, 1\n"</span>) -<span id="L7354" class="LineNr"> 7354 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7355" class="LineNr"> 7355 </span> <span class="subxComment"># convert</span> -<span id="L7356" class="LineNr"> 7356 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7357" class="LineNr"> 7357 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7358" class="LineNr"> 7358 </span> <span class="subxComment"># restore ed</span> -<span id="L7359" class="LineNr"> 7359 </span> 89/<- %edx 4/r32/esp -<span id="L7360" class="LineNr"> 7360 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7361" class="LineNr"> 7361 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7362" class="Folded"> 7362 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7368" class="LineNr"> 7368 </span> <span class="subxComment"># check output</span> -<span id="L7369" class="LineNr"> 7369 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7334'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) -<span id="L7370" class="LineNr"> 7370 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add-to: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7334'>test-add-with-too-many-inouts-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7371" class="LineNr"> 7371 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7372" class="LineNr"> 7372 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7334'>test-add-with-too-many-inouts-2</a>: exit status"</span>) -<span id="L7373" class="LineNr"> 7373 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7374" class="LineNr"> 7374 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7375" class="LineNr"> 7375 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7376" class="LineNr"> 7376 </span> 5d/pop-to-ebp -<span id="L7377" class="LineNr"> 7377 </span> c3/return -<span id="L7378" class="LineNr"> 7378 </span> -<span id="L7379" class="LineNr"> 7379 </span><span class="subxTest">test-add-with-too-many-outputs</span>: -<span id="L7380" class="LineNr"> 7380 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7381" class="LineNr"> 7381 </span> 55/push-ebp -<span id="L7382" class="LineNr"> 7382 </span> 89/<- %ebp 4/r32/esp -<span id="L7383" class="LineNr"> 7383 </span> <span class="subxComment"># setup</span> -<span id="L7384" class="LineNr"> 7384 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7385" class="LineNr"> 7385 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7386" class="LineNr"> 7386 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7387" class="LineNr"> 7387 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7388" class="LineNr"> 7388 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7389" class="LineNr"> 7389 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7390" class="LineNr"> 7390 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7391" class="LineNr"> 7391 </span> 68/push 0/imm32 -<span id="L7392" class="LineNr"> 7392 </span> 68/push 0/imm32 -<span id="L7393" class="LineNr"> 7393 </span> 89/<- %edx 4/r32/esp -<span id="L7394" class="LineNr"> 7394 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7395" class="LineNr"> 7395 </span> <span class="subxComment">#</span> -<span id="L7396" class="LineNr"> 7396 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7397" class="LineNr"> 7397 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) -<span id="L7398" class="LineNr"> 7398 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) -<span id="L7399" class="LineNr"> 7399 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) -<span id="L7400" class="LineNr"> 7400 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- add a\n"</span>) -<span id="L7401" class="LineNr"> 7401 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7402" class="LineNr"> 7402 </span> <span class="subxComment"># convert</span> -<span id="L7403" class="LineNr"> 7403 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7404" class="LineNr"> 7404 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7405" class="LineNr"> 7405 </span> <span class="subxComment"># restore ed</span> -<span id="L7406" class="LineNr"> 7406 </span> 89/<- %edx 4/r32/esp -<span id="L7407" class="LineNr"> 7407 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7408" class="LineNr"> 7408 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7409" class="Folded"> 7409 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7415" class="LineNr"> 7415 </span> <span class="subxComment"># check output</span> -<span id="L7416" class="LineNr"> 7416 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7379'>test-add-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L7417" class="LineNr"> 7417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many outputs; most primitives support at most one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7379'>test-add-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7418" class="LineNr"> 7418 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7419" class="LineNr"> 7419 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7379'>test-add-with-too-many-outputs</a>: exit status"</span>) -<span id="L7420" class="LineNr"> 7420 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7421" class="LineNr"> 7421 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7422" class="LineNr"> 7422 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7423" class="LineNr"> 7423 </span> 5d/pop-to-ebp -<span id="L7424" class="LineNr"> 7424 </span> c3/return -<span id="L7425" class="LineNr"> 7425 </span> -<span id="L7426" class="LineNr"> 7426 </span><span class="subxTest">test-add-with-non-number</span>: -<span id="L7427" class="LineNr"> 7427 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7428" class="LineNr"> 7428 </span> 55/push-ebp -<span id="L7429" class="LineNr"> 7429 </span> 89/<- %ebp 4/r32/esp -<span id="L7430" class="LineNr"> 7430 </span> <span class="subxComment"># setup</span> -<span id="L7431" class="LineNr"> 7431 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7432" class="LineNr"> 7432 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7433" class="LineNr"> 7433 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7434" class="LineNr"> 7434 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7435" class="LineNr"> 7435 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7436" class="LineNr"> 7436 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7437" class="LineNr"> 7437 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7438" class="LineNr"> 7438 </span> 68/push 0/imm32 -<span id="L7439" class="LineNr"> 7439 </span> 68/push 0/imm32 -<span id="L7440" class="LineNr"> 7440 </span> 89/<- %edx 4/r32/esp -<span id="L7441" class="LineNr"> 7441 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7442" class="LineNr"> 7442 </span> <span class="subxComment">#</span> -<span id="L7443" class="LineNr"> 7443 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7444" class="LineNr"> 7444 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L7445" class="LineNr"> 7445 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- add a\n"</span>) -<span id="L7446" class="LineNr"> 7446 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7447" class="LineNr"> 7447 </span> <span class="subxComment"># convert</span> -<span id="L7448" class="LineNr"> 7448 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7449" class="LineNr"> 7449 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7450" class="LineNr"> 7450 </span> <span class="subxComment"># restore ed</span> -<span id="L7451" class="LineNr"> 7451 </span> 89/<- %edx 4/r32/esp -<span id="L7452" class="LineNr"> 7452 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7453" class="LineNr"> 7453 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7454" class="Folded"> 7454 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7460" class="LineNr"> 7460 </span> <span class="subxComment"># check output</span> -<span id="L7461" class="LineNr"> 7461 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7426'>test-add-with-non-number</a>: output should be empty"</span>) -<span id="L7462" class="LineNr"> 7462 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: 'b' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7426'>test-add-with-non-number</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7463" class="LineNr"> 7463 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7464" class="LineNr"> 7464 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7426'>test-add-with-non-number</a>: exit status"</span>) -<span id="L7465" class="LineNr"> 7465 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7466" class="LineNr"> 7466 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7467" class="LineNr"> 7467 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7468" class="LineNr"> 7468 </span> 5d/pop-to-ebp -<span id="L7469" class="LineNr"> 7469 </span> c3/return -<span id="L7470" class="LineNr"> 7470 </span> -<span id="L7471" class="LineNr"> 7471 </span><span class="subxTest">test-add-with-addr-dereferenced</span>: -<span id="L7472" class="LineNr"> 7472 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7473" class="LineNr"> 7473 </span> 55/push-ebp -<span id="L7474" class="LineNr"> 7474 </span> 89/<- %ebp 4/r32/esp -<span id="L7475" class="LineNr"> 7475 </span> <span class="subxComment"># setup</span> -<span id="L7476" class="LineNr"> 7476 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7477" class="LineNr"> 7477 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7478" class="LineNr"> 7478 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7479" class="LineNr"> 7479 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7480" class="LineNr"> 7480 </span> <span class="subxComment">#</span> -<span id="L7481" class="LineNr"> 7481 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7482" class="LineNr"> 7482 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr int) <- copy 0\n"</span>) -<span id="L7483" class="LineNr"> 7483 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to *a, 1\n"</span>) -<span id="L7484" class="LineNr"> 7484 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7485" class="LineNr"> 7485 </span> <span class="subxComment"># convert</span> -<span id="L7486" class="LineNr"> 7486 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7487" class="LineNr"> 7487 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7488" class="LineNr"> 7488 </span> <span class="subxComment"># no error</span> -<span id="L7489" class="LineNr"> 7489 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7490" class="LineNr"> 7490 </span> 89/<- %esp 5/r32/ebp -<span id="L7491" class="LineNr"> 7491 </span> 5d/pop-to-ebp -<span id="L7492" class="LineNr"> 7492 </span> c3/return -<span id="L7493" class="LineNr"> 7493 </span> -<span id="L7494" class="LineNr"> 7494 </span><span class="subxTest">test-copy-with-no-inout</span>: -<span id="L7495" class="LineNr"> 7495 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7496" class="LineNr"> 7496 </span> 55/push-ebp -<span id="L7497" class="LineNr"> 7497 </span> 89/<- %ebp 4/r32/esp -<span id="L7498" class="LineNr"> 7498 </span> <span class="subxComment"># setup</span> -<span id="L7499" class="LineNr"> 7499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7500" class="LineNr"> 7500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7501" class="LineNr"> 7501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7502" class="LineNr"> 7502 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7503" class="LineNr"> 7503 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7504" class="LineNr"> 7504 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7505" class="LineNr"> 7505 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7506" class="LineNr"> 7506 </span> 68/push 0/imm32 -<span id="L7507" class="LineNr"> 7507 </span> 68/push 0/imm32 -<span id="L7508" class="LineNr"> 7508 </span> 89/<- %edx 4/r32/esp -<span id="L7509" class="LineNr"> 7509 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7510" class="LineNr"> 7510 </span> <span class="subxComment">#</span> -<span id="L7511" class="LineNr"> 7511 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7512" class="LineNr"> 7512 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy\n"</span>) -<span id="L7513" class="LineNr"> 7513 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7514" class="LineNr"> 7514 </span> <span class="subxComment"># convert</span> -<span id="L7515" class="LineNr"> 7515 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7516" class="LineNr"> 7516 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7517" class="LineNr"> 7517 </span> <span class="subxComment"># restore ed</span> -<span id="L7518" class="LineNr"> 7518 </span> 89/<- %edx 4/r32/esp -<span id="L7519" class="LineNr"> 7519 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7520" class="LineNr"> 7520 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7521" class="Folded"> 7521 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7527" class="LineNr"> 7527 </span> <span class="subxComment"># check output</span> -<span id="L7528" class="LineNr"> 7528 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7494'>test-copy-with-no-inout</a>: output should be empty"</span>) -<span id="L7529" class="LineNr"> 7529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7494'>test-copy-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7530" class="LineNr"> 7530 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7531" class="LineNr"> 7531 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7494'>test-copy-with-no-inout</a>: exit status"</span>) -<span id="L7532" class="LineNr"> 7532 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7533" class="LineNr"> 7533 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7534" class="LineNr"> 7534 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7535" class="LineNr"> 7535 </span> 5d/pop-to-ebp -<span id="L7536" class="LineNr"> 7536 </span> c3/return -<span id="L7537" class="LineNr"> 7537 </span> -<span id="L7538" class="LineNr"> 7538 </span><span class="subxTest">test-copy-with-multiple-inouts</span>: -<span id="L7539" class="LineNr"> 7539 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7540" class="LineNr"> 7540 </span> 55/push-ebp -<span id="L7541" class="LineNr"> 7541 </span> 89/<- %ebp 4/r32/esp -<span id="L7542" class="LineNr"> 7542 </span> <span class="subxComment"># setup</span> -<span id="L7543" class="LineNr"> 7543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7544" class="LineNr"> 7544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7545" class="LineNr"> 7545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7546" class="LineNr"> 7546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7547" class="LineNr"> 7547 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7548" class="LineNr"> 7548 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7549" class="LineNr"> 7549 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7550" class="LineNr"> 7550 </span> 68/push 0/imm32 -<span id="L7551" class="LineNr"> 7551 </span> 68/push 0/imm32 -<span id="L7552" class="LineNr"> 7552 </span> 89/<- %edx 4/r32/esp -<span id="L7553" class="LineNr"> 7553 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7554" class="LineNr"> 7554 </span> <span class="subxComment">#</span> -<span id="L7555" class="LineNr"> 7555 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7556" class="LineNr"> 7556 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0, 0\n"</span>) -<span id="L7557" class="LineNr"> 7557 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7558" class="LineNr"> 7558 </span> <span class="subxComment"># convert</span> -<span id="L7559" class="LineNr"> 7559 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7560" class="LineNr"> 7560 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7561" class="LineNr"> 7561 </span> <span class="subxComment"># restore ed</span> -<span id="L7562" class="LineNr"> 7562 </span> 89/<- %edx 4/r32/esp -<span id="L7563" class="LineNr"> 7563 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7564" class="LineNr"> 7564 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7565" class="Folded"> 7565 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7571" class="LineNr"> 7571 </span> <span class="subxComment"># check output</span> -<span id="L7572" class="LineNr"> 7572 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7538'>test-copy-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L7573" class="LineNr"> 7573 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7538'>test-copy-with-multiple-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7574" class="LineNr"> 7574 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7575" class="LineNr"> 7575 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7538'>test-copy-with-multiple-inouts</a>: exit status"</span>) -<span id="L7576" class="LineNr"> 7576 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7577" class="LineNr"> 7577 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7578" class="LineNr"> 7578 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7579" class="LineNr"> 7579 </span> 5d/pop-to-ebp -<span id="L7580" class="LineNr"> 7580 </span> c3/return -<span id="L7581" class="LineNr"> 7581 </span> -<span id="L7582" class="LineNr"> 7582 </span><span class="subxTest">test-copy-with-no-output</span>: -<span id="L7583" class="LineNr"> 7583 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7584" class="LineNr"> 7584 </span> 55/push-ebp -<span id="L7585" class="LineNr"> 7585 </span> 89/<- %ebp 4/r32/esp -<span id="L7586" class="LineNr"> 7586 </span> <span class="subxComment"># setup</span> -<span id="L7587" class="LineNr"> 7587 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7588" class="LineNr"> 7588 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7589" class="LineNr"> 7589 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7590" class="LineNr"> 7590 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7591" class="LineNr"> 7591 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7592" class="LineNr"> 7592 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7593" class="LineNr"> 7593 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7594" class="LineNr"> 7594 </span> 68/push 0/imm32 -<span id="L7595" class="LineNr"> 7595 </span> 68/push 0/imm32 -<span id="L7596" class="LineNr"> 7596 </span> 89/<- %edx 4/r32/esp -<span id="L7597" class="LineNr"> 7597 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7598" class="LineNr"> 7598 </span> <span class="subxComment">#</span> -<span id="L7599" class="LineNr"> 7599 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7600" class="LineNr"> 7600 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy 0\n"</span>) -<span id="L7601" class="LineNr"> 7601 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7602" class="LineNr"> 7602 </span> <span class="subxComment"># convert</span> -<span id="L7603" class="LineNr"> 7603 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7604" class="LineNr"> 7604 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7605" class="LineNr"> 7605 </span> <span class="subxComment"># restore ed</span> -<span id="L7606" class="LineNr"> 7606 </span> 89/<- %edx 4/r32/esp -<span id="L7607" class="LineNr"> 7607 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7608" class="LineNr"> 7608 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7609" class="Folded"> 7609 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7615" class="LineNr"> 7615 </span> <span class="subxComment"># check output</span> -<span id="L7616" class="LineNr"> 7616 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7582'>test-copy-with-no-output</a>: output should be empty"</span>) -<span id="L7617" class="LineNr"> 7617 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7582'>test-copy-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7618" class="LineNr"> 7618 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7619" class="LineNr"> 7619 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7582'>test-copy-with-no-output</a>: exit status"</span>) -<span id="L7620" class="LineNr"> 7620 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7621" class="LineNr"> 7621 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7622" class="LineNr"> 7622 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7623" class="LineNr"> 7623 </span> 5d/pop-to-ebp -<span id="L7624" class="LineNr"> 7624 </span> c3/return -<span id="L7625" class="LineNr"> 7625 </span> -<span id="L7626" class="LineNr"> 7626 </span><span class="subxTest">test-copy-with-multiple-outputs</span>: -<span id="L7627" class="LineNr"> 7627 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7628" class="LineNr"> 7628 </span> 55/push-ebp -<span id="L7629" class="LineNr"> 7629 </span> 89/<- %ebp 4/r32/esp -<span id="L7630" class="LineNr"> 7630 </span> <span class="subxComment"># setup</span> -<span id="L7631" class="LineNr"> 7631 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7632" class="LineNr"> 7632 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7633" class="LineNr"> 7633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7634" class="LineNr"> 7634 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7635" class="LineNr"> 7635 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7636" class="LineNr"> 7636 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7637" class="LineNr"> 7637 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7638" class="LineNr"> 7638 </span> 68/push 0/imm32 -<span id="L7639" class="LineNr"> 7639 </span> 68/push 0/imm32 -<span id="L7640" class="LineNr"> 7640 </span> 89/<- %edx 4/r32/esp -<span id="L7641" class="LineNr"> 7641 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7642" class="LineNr"> 7642 </span> <span class="subxComment">#</span> -<span id="L7643" class="LineNr"> 7643 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7644" class="LineNr"> 7644 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L7645" class="LineNr"> 7645 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L7646" class="LineNr"> 7646 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy 0\n"</span>) -<span id="L7647" class="LineNr"> 7647 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7648" class="LineNr"> 7648 </span> <span class="subxComment"># convert</span> -<span id="L7649" class="LineNr"> 7649 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7650" class="LineNr"> 7650 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7651" class="LineNr"> 7651 </span> <span class="subxComment"># restore ed</span> -<span id="L7652" class="LineNr"> 7652 </span> 89/<- %edx 4/r32/esp -<span id="L7653" class="LineNr"> 7653 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7654" class="LineNr"> 7654 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7655" class="Folded"> 7655 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7661" class="LineNr"> 7661 </span> <span class="subxComment"># check output</span> -<span id="L7662" class="LineNr"> 7662 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7626'>test-copy-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L7663" class="LineNr"> 7663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7626'>test-copy-with-multiple-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7664" class="LineNr"> 7664 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7665" class="LineNr"> 7665 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7626'>test-copy-with-multiple-outputs</a>: exit status"</span>) -<span id="L7666" class="LineNr"> 7666 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7667" class="LineNr"> 7667 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7668" class="LineNr"> 7668 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7669" class="LineNr"> 7669 </span> 5d/pop-to-ebp -<span id="L7670" class="LineNr"> 7670 </span> c3/return -<span id="L7671" class="LineNr"> 7671 </span> -<span id="L7672" class="LineNr"> 7672 </span><span class="subxTest">test-copy-invalid-value-to-address</span>: -<span id="L7673" class="LineNr"> 7673 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7674" class="LineNr"> 7674 </span> 55/push-ebp -<span id="L7675" class="LineNr"> 7675 </span> 89/<- %ebp 4/r32/esp -<span id="L7676" class="LineNr"> 7676 </span> <span class="subxComment"># setup</span> -<span id="L7677" class="LineNr"> 7677 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7678" class="LineNr"> 7678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7679" class="LineNr"> 7679 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7680" class="LineNr"> 7680 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7681" class="LineNr"> 7681 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7682" class="LineNr"> 7682 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7683" class="LineNr"> 7683 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7684" class="LineNr"> 7684 </span> 68/push 0/imm32 -<span id="L7685" class="LineNr"> 7685 </span> 68/push 0/imm32 -<span id="L7686" class="LineNr"> 7686 </span> 89/<- %edx 4/r32/esp -<span id="L7687" class="LineNr"> 7687 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7688" class="LineNr"> 7688 </span> <span class="subxComment">#</span> -<span id="L7689" class="LineNr"> 7689 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7690" class="LineNr"> 7690 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L7691" class="LineNr"> 7691 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy x\n"</span>) -<span id="L7692" class="LineNr"> 7692 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7693" class="LineNr"> 7693 </span> <span class="subxComment"># convert</span> -<span id="L7694" class="LineNr"> 7694 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7695" class="LineNr"> 7695 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7696" class="LineNr"> 7696 </span> <span class="subxComment"># restore ed</span> -<span id="L7697" class="LineNr"> 7697 </span> 89/<- %edx 4/r32/esp -<span id="L7698" class="LineNr"> 7698 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7699" class="LineNr"> 7699 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7700" class="Folded"> 7700 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7706" class="LineNr"> 7706 </span> <span class="subxComment"># check output</span> -<span id="L7707" class="LineNr"> 7707 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7672'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L7708" class="LineNr"> 7708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7672'>test-copy-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7709" class="LineNr"> 7709 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7710" class="LineNr"> 7710 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7672'>test-copy-invalid-value-to-address</a>: exit status"</span>) -<span id="L7711" class="LineNr"> 7711 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7712" class="LineNr"> 7712 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7713" class="LineNr"> 7713 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7714" class="LineNr"> 7714 </span> 5d/pop-to-ebp -<span id="L7715" class="LineNr"> 7715 </span> c3/return -<span id="L7716" class="LineNr"> 7716 </span> -<span id="L7717" class="LineNr"> 7717 </span><span class="subxTest">test-copy-null-value-to-address</span>: -<span id="L7718" class="LineNr"> 7718 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7719" class="LineNr"> 7719 </span> 55/push-ebp -<span id="L7720" class="LineNr"> 7720 </span> 89/<- %ebp 4/r32/esp -<span id="L7721" class="LineNr"> 7721 </span> <span class="subxComment"># setup</span> -<span id="L7722" class="LineNr"> 7722 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7723" class="LineNr"> 7723 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7724" class="LineNr"> 7724 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7725" class="LineNr"> 7725 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7726" class="LineNr"> 7726 </span> <span class="subxComment">#</span> -<span id="L7727" class="LineNr"> 7727 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7728" class="LineNr"> 7728 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L7729" class="LineNr"> 7729 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7730" class="LineNr"> 7730 </span> <span class="subxComment"># convert</span> -<span id="L7731" class="LineNr"> 7731 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7732" class="LineNr"> 7732 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7733" class="LineNr"> 7733 </span> <span class="subxComment"># no errors</span> -<span id="L7734" class="LineNr"> 7734 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7735" class="LineNr"> 7735 </span> 89/<- %esp 5/r32/ebp -<span id="L7736" class="LineNr"> 7736 </span> 5d/pop-to-ebp -<span id="L7737" class="LineNr"> 7737 </span> c3/return -<span id="L7738" class="LineNr"> 7738 </span> -<span id="L7739" class="LineNr"> 7739 </span><span class="subxTest">test-copy-invalid-value-to-offset</span>: -<span id="L7740" class="LineNr"> 7740 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7741" class="LineNr"> 7741 </span> 55/push-ebp -<span id="L7742" class="LineNr"> 7742 </span> 89/<- %ebp 4/r32/esp -<span id="L7743" class="LineNr"> 7743 </span> <span class="subxComment"># setup</span> -<span id="L7744" class="LineNr"> 7744 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7745" class="LineNr"> 7745 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7746" class="LineNr"> 7746 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7747" class="LineNr"> 7747 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7748" class="LineNr"> 7748 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7749" class="LineNr"> 7749 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7750" class="LineNr"> 7750 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7751" class="LineNr"> 7751 </span> 68/push 0/imm32 -<span id="L7752" class="LineNr"> 7752 </span> 68/push 0/imm32 -<span id="L7753" class="LineNr"> 7753 </span> 89/<- %edx 4/r32/esp -<span id="L7754" class="LineNr"> 7754 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7755" class="LineNr"> 7755 </span> <span class="subxComment">#</span> -<span id="L7756" class="LineNr"> 7756 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7757" class="LineNr"> 7757 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L7758" class="LineNr"> 7758 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy x\n"</span>) -<span id="L7759" class="LineNr"> 7759 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7760" class="LineNr"> 7760 </span> <span class="subxComment"># convert</span> -<span id="L7761" class="LineNr"> 7761 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7762" class="LineNr"> 7762 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7763" class="LineNr"> 7763 </span> <span class="subxComment"># restore ed</span> -<span id="L7764" class="LineNr"> 7764 </span> 89/<- %edx 4/r32/esp -<span id="L7765" class="LineNr"> 7765 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7766" class="LineNr"> 7766 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7767" class="Folded"> 7767 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7773" class="LineNr"> 7773 </span> <span class="subxComment"># check output</span> -<span id="L7774" class="LineNr"> 7774 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7672'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L7775" class="LineNr"> 7775 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7672'>test-copy-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7776" class="LineNr"> 7776 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7777" class="LineNr"> 7777 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7739'>test-copy-invalid-value-to-offset</a>: exit status"</span>) -<span id="L7778" class="LineNr"> 7778 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7779" class="LineNr"> 7779 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7780" class="LineNr"> 7780 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7781" class="LineNr"> 7781 </span> 5d/pop-to-ebp -<span id="L7782" class="LineNr"> 7782 </span> c3/return -<span id="L7783" class="LineNr"> 7783 </span> -<span id="L7784" class="LineNr"> 7784 </span><span class="subxTest">test-copy-null-value-to-offset</span>: -<span id="L7785" class="LineNr"> 7785 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7786" class="LineNr"> 7786 </span> 55/push-ebp -<span id="L7787" class="LineNr"> 7787 </span> 89/<- %ebp 4/r32/esp -<span id="L7788" class="LineNr"> 7788 </span> <span class="subxComment"># setup</span> -<span id="L7789" class="LineNr"> 7789 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7790" class="LineNr"> 7790 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7791" class="LineNr"> 7791 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7792" class="LineNr"> 7792 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7793" class="LineNr"> 7793 </span> <span class="subxComment">#</span> -<span id="L7794" class="LineNr"> 7794 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7795" class="LineNr"> 7795 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy 0\n"</span>) -<span id="L7796" class="LineNr"> 7796 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7797" class="LineNr"> 7797 </span> <span class="subxComment"># convert</span> -<span id="L7798" class="LineNr"> 7798 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7799" class="LineNr"> 7799 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7800" class="Folded"> 7800 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7806" class="LineNr"> 7806 </span> <span class="subxComment"># no errors</span> -<span id="L7807" class="LineNr"> 7807 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7808" class="LineNr"> 7808 </span> 89/<- %esp 5/r32/ebp -<span id="L7809" class="LineNr"> 7809 </span> 5d/pop-to-ebp -<span id="L7810" class="LineNr"> 7810 </span> c3/return -<span id="L7811" class="LineNr"> 7811 </span> -<span id="L7812" class="LineNr"> 7812 </span><span class="subxTest">test-copy-non-literal-to-byte</span>: -<span id="L7813" class="LineNr"> 7813 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7814" class="LineNr"> 7814 </span> 55/push-ebp -<span id="L7815" class="LineNr"> 7815 </span> 89/<- %ebp 4/r32/esp -<span id="L7816" class="LineNr"> 7816 </span> <span class="subxComment"># setup</span> -<span id="L7817" class="LineNr"> 7817 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7818" class="LineNr"> 7818 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7819" class="LineNr"> 7819 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7820" class="LineNr"> 7820 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7821" class="LineNr"> 7821 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7822" class="LineNr"> 7822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7823" class="LineNr"> 7823 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7824" class="LineNr"> 7824 </span> 68/push 0/imm32 -<span id="L7825" class="LineNr"> 7825 </span> 68/push 0/imm32 -<span id="L7826" class="LineNr"> 7826 </span> 89/<- %edx 4/r32/esp -<span id="L7827" class="LineNr"> 7827 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7828" class="LineNr"> 7828 </span> <span class="subxComment">#</span> -<span id="L7829" class="LineNr"> 7829 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7830" class="LineNr"> 7830 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) -<span id="L7831" class="LineNr"> 7831 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy x\n"</span>) -<span id="L7832" class="LineNr"> 7832 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7833" class="LineNr"> 7833 </span> <span class="subxComment"># convert</span> -<span id="L7834" class="LineNr"> 7834 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7835" class="LineNr"> 7835 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7836" class="LineNr"> 7836 </span> <span class="subxComment"># restore ed</span> -<span id="L7837" class="LineNr"> 7837 </span> 89/<- %edx 4/r32/esp -<span id="L7838" class="LineNr"> 7838 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7839" class="LineNr"> 7839 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7840" class="Folded"> 7840 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7846" class="LineNr"> 7846 </span> <span class="subxComment"># check output</span> -<span id="L7847" class="LineNr"> 7847 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7812'>test-copy-non-literal-to-byte</a>: output should be empty"</span>) -<span id="L7848" class="LineNr"> 7848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: cannot copy non-literal to 'y' of type byte; use copy-byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L7812'>test-copy-non-literal-to-byte</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7849" class="LineNr"> 7849 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7850" class="LineNr"> 7850 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7812'>test-copy-non-literal-to-byte</a>: exit status"</span>) -<span id="L7851" class="LineNr"> 7851 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7852" class="LineNr"> 7852 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7853" class="LineNr"> 7853 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7854" class="LineNr"> 7854 </span> 5d/pop-to-ebp -<span id="L7855" class="LineNr"> 7855 </span> c3/return -<span id="L7856" class="LineNr"> 7856 </span> -<span id="L7857" class="LineNr"> 7857 </span><span class="subxTest">test-copy-deref-address</span>: -<span id="L7858" class="LineNr"> 7858 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7859" class="LineNr"> 7859 </span> 55/push-ebp -<span id="L7860" class="LineNr"> 7860 </span> 89/<- %ebp 4/r32/esp -<span id="L7861" class="LineNr"> 7861 </span> <span class="subxComment"># setup</span> -<span id="L7862" class="LineNr"> 7862 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7863" class="LineNr"> 7863 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7864" class="LineNr"> 7864 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7865" class="LineNr"> 7865 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7866" class="LineNr"> 7866 </span> <span class="subxComment">#</span> -<span id="L7867" class="LineNr"> 7867 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7868" class="LineNr"> 7868 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr addr int) <- copy 0\n"</span>) -<span id="L7869" class="LineNr"> 7869 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy *x\n"</span>) -<span id="L7870" class="LineNr"> 7870 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7871" class="LineNr"> 7871 </span> <span class="subxComment"># convert</span> -<span id="L7872" class="LineNr"> 7872 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L7873" class="LineNr"> 7873 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7874" class="LineNr"> 7874 </span> <span class="subxComment"># no errors</span> -<span id="L7875" class="LineNr"> 7875 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7876" class="LineNr"> 7876 </span> 5d/pop-to-ebp -<span id="L7877" class="LineNr"> 7877 </span> c3/return -<span id="L7878" class="LineNr"> 7878 </span> -<span id="L7879" class="LineNr"> 7879 </span><span class="subxTest">test-copy-to-non-register</span>: -<span id="L7880" class="LineNr"> 7880 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7881" class="LineNr"> 7881 </span> 55/push-ebp -<span id="L7882" class="LineNr"> 7882 </span> 89/<- %ebp 4/r32/esp -<span id="L7883" class="LineNr"> 7883 </span> <span class="subxComment"># setup</span> -<span id="L7884" class="LineNr"> 7884 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7885" class="LineNr"> 7885 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7886" class="LineNr"> 7886 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7887" class="LineNr"> 7887 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7888" class="LineNr"> 7888 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7889" class="LineNr"> 7889 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7890" class="LineNr"> 7890 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7891" class="LineNr"> 7891 </span> 68/push 0/imm32 -<span id="L7892" class="LineNr"> 7892 </span> 68/push 0/imm32 -<span id="L7893" class="LineNr"> 7893 </span> 89/<- %edx 4/r32/esp -<span id="L7894" class="LineNr"> 7894 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7895" class="LineNr"> 7895 </span> <span class="subxComment">#</span> -<span id="L7896" class="LineNr"> 7896 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7897" class="LineNr"> 7897 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L7898" class="LineNr"> 7898 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy 0\n"</span>) -<span id="L7899" class="LineNr"> 7899 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7900" class="LineNr"> 7900 </span> <span class="subxComment"># convert</span> -<span id="L7901" class="LineNr"> 7901 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7902" class="LineNr"> 7902 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7903" class="LineNr"> 7903 </span> <span class="subxComment"># restore ed</span> -<span id="L7904" class="LineNr"> 7904 </span> 89/<- %edx 4/r32/esp -<span id="L7905" class="LineNr"> 7905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7906" class="LineNr"> 7906 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7907" class="Folded"> 7907 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7913" class="LineNr"> 7913 </span> <span class="subxComment"># check output</span> -<span id="L7914" class="LineNr"> 7914 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7879'>test-copy-to-non-register</a>: output should be empty"</span>) -<span id="L7915" class="LineNr"> 7915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L7879'>test-copy-to-non-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7916" class="LineNr"> 7916 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7917" class="LineNr"> 7917 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7879'>test-copy-to-non-register</a>: exit status"</span>) -<span id="L7918" class="LineNr"> 7918 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7919" class="LineNr"> 7919 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7920" class="LineNr"> 7920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7921" class="LineNr"> 7921 </span> 5d/pop-to-ebp -<span id="L7922" class="LineNr"> 7922 </span> c3/return -<span id="L7923" class="LineNr"> 7923 </span> -<span id="L7924" class="LineNr"> 7924 </span><span class="subxTest">test-copy-from-non-scalar-inout</span>: -<span id="L7925" class="LineNr"> 7925 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7926" class="LineNr"> 7926 </span> 55/push-ebp -<span id="L7927" class="LineNr"> 7927 </span> 89/<- %ebp 4/r32/esp -<span id="L7928" class="LineNr"> 7928 </span> <span class="subxComment"># setup</span> -<span id="L7929" class="LineNr"> 7929 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7930" class="LineNr"> 7930 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7931" class="LineNr"> 7931 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7932" class="LineNr"> 7932 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7933" class="LineNr"> 7933 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7934" class="LineNr"> 7934 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7935" class="LineNr"> 7935 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7936" class="LineNr"> 7936 </span> 68/push 0/imm32 -<span id="L7937" class="LineNr"> 7937 </span> 68/push 0/imm32 -<span id="L7938" class="LineNr"> 7938 </span> 89/<- %edx 4/r32/esp -<span id="L7939" class="LineNr"> 7939 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7940" class="LineNr"> 7940 </span> <span class="subxComment">#</span> -<span id="L7941" class="LineNr"> 7941 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7942" class="LineNr"> 7942 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L7943" class="LineNr"> 7943 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy x\n"</span>) -<span id="L7944" class="LineNr"> 7944 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7945" class="LineNr"> 7945 </span> <span class="subxComment"># convert</span> -<span id="L7946" class="LineNr"> 7946 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7947" class="LineNr"> 7947 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7948" class="LineNr"> 7948 </span> <span class="subxComment"># restore ed</span> -<span id="L7949" class="LineNr"> 7949 </span> 89/<- %edx 4/r32/esp -<span id="L7950" class="LineNr"> 7950 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7951" class="LineNr"> 7951 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7952" class="Folded"> 7952 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L7958" class="LineNr"> 7958 </span> <span class="subxComment"># check output</span> -<span id="L7959" class="LineNr"> 7959 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7924'>test-copy-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L7960" class="LineNr"> 7960 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L7924'>test-copy-from-non-scalar-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L7961" class="LineNr"> 7961 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L7962" class="LineNr"> 7962 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7924'>test-copy-from-non-scalar-inout</a>: exit status"</span>) -<span id="L7963" class="LineNr"> 7963 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L7964" class="LineNr"> 7964 </span> 81 0/subop/add %esp 8/imm32 -<span id="L7965" class="LineNr"> 7965 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L7966" class="LineNr"> 7966 </span> 5d/pop-to-ebp -<span id="L7967" class="LineNr"> 7967 </span> c3/return -<span id="L7968" class="LineNr"> 7968 </span> -<span id="L7969" class="LineNr"> 7969 </span><span class="subxTest">test-copy-to-with-no-inout</span>: -<span id="L7970" class="LineNr"> 7970 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L7971" class="LineNr"> 7971 </span> 55/push-ebp -<span id="L7972" class="LineNr"> 7972 </span> 89/<- %ebp 4/r32/esp -<span id="L7973" class="LineNr"> 7973 </span> <span class="subxComment"># setup</span> -<span id="L7974" class="LineNr"> 7974 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L7975" class="LineNr"> 7975 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L7976" class="LineNr"> 7976 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L7977" class="LineNr"> 7977 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L7978" class="LineNr"> 7978 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L7979" class="LineNr"> 7979 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L7980" class="LineNr"> 7980 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L7981" class="LineNr"> 7981 </span> 68/push 0/imm32 -<span id="L7982" class="LineNr"> 7982 </span> 68/push 0/imm32 -<span id="L7983" class="LineNr"> 7983 </span> 89/<- %edx 4/r32/esp -<span id="L7984" class="LineNr"> 7984 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L7985" class="LineNr"> 7985 </span> <span class="subxComment">#</span> -<span id="L7986" class="LineNr"> 7986 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L7987" class="LineNr"> 7987 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to\n"</span>) -<span id="L7988" class="LineNr"> 7988 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L7989" class="LineNr"> 7989 </span> <span class="subxComment"># convert</span> -<span id="L7990" class="LineNr"> 7990 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L7991" class="LineNr"> 7991 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L7992" class="LineNr"> 7992 </span> <span class="subxComment"># restore ed</span> -<span id="L7993" class="LineNr"> 7993 </span> 89/<- %edx 4/r32/esp -<span id="L7994" class="LineNr"> 7994 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L7995" class="LineNr"> 7995 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L7996" class="Folded"> 7996 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8002" class="LineNr"> 8002 </span> <span class="subxComment"># check output</span> -<span id="L8003" class="LineNr"> 8003 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7969'>test-copy-to-with-no-inout</a>: output should be empty"</span>) -<span id="L8004" class="LineNr"> 8004 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L7969'>test-copy-to-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8005" class="LineNr"> 8005 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8006" class="LineNr"> 8006 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7969'>test-copy-to-with-no-inout</a>: exit status"</span>) -<span id="L8007" class="LineNr"> 8007 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8008" class="LineNr"> 8008 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8009" class="LineNr"> 8009 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8010" class="LineNr"> 8010 </span> 5d/pop-to-ebp -<span id="L8011" class="LineNr"> 8011 </span> c3/return -<span id="L8012" class="LineNr"> 8012 </span> -<span id="L8013" class="LineNr"> 8013 </span><span class="subxTest">test-copy-to-with-no-source</span>: -<span id="L8014" class="LineNr"> 8014 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8015" class="LineNr"> 8015 </span> 55/push-ebp -<span id="L8016" class="LineNr"> 8016 </span> 89/<- %ebp 4/r32/esp -<span id="L8017" class="LineNr"> 8017 </span> <span class="subxComment"># setup</span> -<span id="L8018" class="LineNr"> 8018 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8019" class="LineNr"> 8019 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8020" class="LineNr"> 8020 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8021" class="LineNr"> 8021 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8022" class="LineNr"> 8022 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8023" class="LineNr"> 8023 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8024" class="LineNr"> 8024 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8025" class="LineNr"> 8025 </span> 68/push 0/imm32 -<span id="L8026" class="LineNr"> 8026 </span> 68/push 0/imm32 -<span id="L8027" class="LineNr"> 8027 </span> 89/<- %edx 4/r32/esp -<span id="L8028" class="LineNr"> 8028 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8029" class="LineNr"> 8029 </span> <span class="subxComment">#</span> -<span id="L8030" class="LineNr"> 8030 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8031" class="LineNr"> 8031 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8032" class="LineNr"> 8032 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x\n"</span>) -<span id="L8033" class="LineNr"> 8033 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8034" class="LineNr"> 8034 </span> <span class="subxComment"># convert</span> -<span id="L8035" class="LineNr"> 8035 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8036" class="LineNr"> 8036 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8037" class="LineNr"> 8037 </span> <span class="subxComment"># restore ed</span> -<span id="L8038" class="LineNr"> 8038 </span> 89/<- %edx 4/r32/esp -<span id="L8039" class="LineNr"> 8039 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8040" class="LineNr"> 8040 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8041" class="Folded"> 8041 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8047" class="LineNr"> 8047 </span> <span class="subxComment"># check output</span> -<span id="L8048" class="LineNr"> 8048 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8013'>test-copy-to-with-no-source</a>: output should be empty"</span>) -<span id="L8049" class="LineNr"> 8049 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8013'>test-copy-to-with-no-source</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8050" class="LineNr"> 8050 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8051" class="LineNr"> 8051 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8013'>test-copy-to-with-no-source</a>: exit status"</span>) -<span id="L8052" class="LineNr"> 8052 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8053" class="LineNr"> 8053 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8054" class="LineNr"> 8054 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8055" class="LineNr"> 8055 </span> 5d/pop-to-ebp -<span id="L8056" class="LineNr"> 8056 </span> c3/return -<span id="L8057" class="LineNr"> 8057 </span> -<span id="L8058" class="LineNr"> 8058 </span><span class="subxTest">test-copy-to-with-no-register</span>: -<span id="L8059" class="LineNr"> 8059 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8060" class="LineNr"> 8060 </span> 55/push-ebp -<span id="L8061" class="LineNr"> 8061 </span> 89/<- %ebp 4/r32/esp -<span id="L8062" class="LineNr"> 8062 </span> <span class="subxComment"># setup</span> -<span id="L8063" class="LineNr"> 8063 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8064" class="LineNr"> 8064 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8065" class="LineNr"> 8065 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8066" class="LineNr"> 8066 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8067" class="LineNr"> 8067 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8068" class="LineNr"> 8068 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8069" class="LineNr"> 8069 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8070" class="LineNr"> 8070 </span> 68/push 0/imm32 -<span id="L8071" class="LineNr"> 8071 </span> 68/push 0/imm32 -<span id="L8072" class="LineNr"> 8072 </span> 89/<- %edx 4/r32/esp -<span id="L8073" class="LineNr"> 8073 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8074" class="LineNr"> 8074 </span> <span class="subxComment">#</span> -<span id="L8075" class="LineNr"> 8075 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8076" class="LineNr"> 8076 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8077" class="LineNr"> 8077 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, x\n"</span>) -<span id="L8078" class="LineNr"> 8078 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8079" class="LineNr"> 8079 </span> <span class="subxComment"># convert</span> -<span id="L8080" class="LineNr"> 8080 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8081" class="LineNr"> 8081 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8082" class="LineNr"> 8082 </span> <span class="subxComment"># restore ed</span> -<span id="L8083" class="LineNr"> 8083 </span> 89/<- %edx 4/r32/esp -<span id="L8084" class="LineNr"> 8084 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8085" class="LineNr"> 8085 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8086" class="Folded"> 8086 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8092" class="LineNr"> 8092 </span> <span class="subxComment"># check output</span> -<span id="L8093" class="LineNr"> 8093 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8058'>test-copy-to-with-no-register</a>: output should be empty"</span>) -<span id="L8094" class="LineNr"> 8094 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: source (second inout) is in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L8058'>test-copy-to-with-no-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8095" class="LineNr"> 8095 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8096" class="LineNr"> 8096 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8058'>test-copy-to-with-no-register</a>: exit status"</span>) -<span id="L8097" class="LineNr"> 8097 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8098" class="LineNr"> 8098 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8099" class="LineNr"> 8099 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8100" class="LineNr"> 8100 </span> 5d/pop-to-ebp -<span id="L8101" class="LineNr"> 8101 </span> c3/return -<span id="L8102" class="LineNr"> 8102 </span> -<span id="L8103" class="LineNr"> 8103 </span><span class="subxTest">test-copy-to-with-too-many-inouts</span>: -<span id="L8104" class="LineNr"> 8104 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8105" class="LineNr"> 8105 </span> 55/push-ebp -<span id="L8106" class="LineNr"> 8106 </span> 89/<- %ebp 4/r32/esp -<span id="L8107" class="LineNr"> 8107 </span> <span class="subxComment"># setup</span> -<span id="L8108" class="LineNr"> 8108 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8109" class="LineNr"> 8109 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8110" class="LineNr"> 8110 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8111" class="LineNr"> 8111 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8112" class="LineNr"> 8112 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8113" class="LineNr"> 8113 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8114" class="LineNr"> 8114 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8115" class="LineNr"> 8115 </span> 68/push 0/imm32 -<span id="L8116" class="LineNr"> 8116 </span> 68/push 0/imm32 -<span id="L8117" class="LineNr"> 8117 </span> 89/<- %edx 4/r32/esp -<span id="L8118" class="LineNr"> 8118 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8119" class="LineNr"> 8119 </span> <span class="subxComment">#</span> -<span id="L8120" class="LineNr"> 8120 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8121" class="LineNr"> 8121 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L8122" class="LineNr"> 8122 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0, 0\n"</span>) -<span id="L8123" class="LineNr"> 8123 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8124" class="LineNr"> 8124 </span> <span class="subxComment"># convert</span> -<span id="L8125" class="LineNr"> 8125 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8126" class="LineNr"> 8126 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8127" class="LineNr"> 8127 </span> <span class="subxComment"># restore ed</span> -<span id="L8128" class="LineNr"> 8128 </span> 89/<- %edx 4/r32/esp -<span id="L8129" class="LineNr"> 8129 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8130" class="LineNr"> 8130 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8131" class="Folded"> 8131 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8137" class="LineNr"> 8137 </span> <span class="subxComment"># check output</span> -<span id="L8138" class="LineNr"> 8138 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8103'>test-copy-to-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L8139" class="LineNr"> 8139 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8103'>test-copy-to-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8140" class="LineNr"> 8140 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8141" class="LineNr"> 8141 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8103'>test-copy-to-with-too-many-inouts</a>: exit status"</span>) -<span id="L8142" class="LineNr"> 8142 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8143" class="LineNr"> 8143 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8144" class="LineNr"> 8144 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8145" class="LineNr"> 8145 </span> 5d/pop-to-ebp -<span id="L8146" class="LineNr"> 8146 </span> c3/return -<span id="L8147" class="LineNr"> 8147 </span> -<span id="L8148" class="LineNr"> 8148 </span><span class="subxTest">test-copy-to-with-output</span>: -<span id="L8149" class="LineNr"> 8149 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8150" class="LineNr"> 8150 </span> 55/push-ebp -<span id="L8151" class="LineNr"> 8151 </span> 89/<- %ebp 4/r32/esp -<span id="L8152" class="LineNr"> 8152 </span> <span class="subxComment"># setup</span> -<span id="L8153" class="LineNr"> 8153 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8154" class="LineNr"> 8154 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8155" class="LineNr"> 8155 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8156" class="LineNr"> 8156 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8157" class="LineNr"> 8157 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8158" class="LineNr"> 8158 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8159" class="LineNr"> 8159 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8160" class="LineNr"> 8160 </span> 68/push 0/imm32 -<span id="L8161" class="LineNr"> 8161 </span> 68/push 0/imm32 -<span id="L8162" class="LineNr"> 8162 </span> 89/<- %edx 4/r32/esp -<span id="L8163" class="LineNr"> 8163 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8164" class="LineNr"> 8164 </span> <span class="subxComment">#</span> -<span id="L8165" class="LineNr"> 8165 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8166" class="LineNr"> 8166 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L8167" class="LineNr"> 8167 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L8168" class="LineNr"> 8168 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-to y, 0\n"</span>) -<span id="L8169" class="LineNr"> 8169 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8170" class="LineNr"> 8170 </span> <span class="subxComment"># convert</span> -<span id="L8171" class="LineNr"> 8171 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8172" class="LineNr"> 8172 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8173" class="LineNr"> 8173 </span> <span class="subxComment"># restore ed</span> -<span id="L8174" class="LineNr"> 8174 </span> 89/<- %edx 4/r32/esp -<span id="L8175" class="LineNr"> 8175 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8176" class="LineNr"> 8176 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8177" class="Folded"> 8177 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8183" class="LineNr"> 8183 </span> <span class="subxComment"># check output</span> -<span id="L8184" class="LineNr"> 8184 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8148'>test-copy-to-with-output</a>: output should be empty"</span>) -<span id="L8185" class="LineNr"> 8185 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L8148'>test-copy-to-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8186" class="LineNr"> 8186 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8187" class="LineNr"> 8187 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8148'>test-copy-to-with-output</a>: exit status"</span>) -<span id="L8188" class="LineNr"> 8188 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8189" class="LineNr"> 8189 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8190" class="LineNr"> 8190 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8191" class="LineNr"> 8191 </span> 5d/pop-to-ebp -<span id="L8192" class="LineNr"> 8192 </span> c3/return -<span id="L8193" class="LineNr"> 8193 </span> -<span id="L8194" class="LineNr"> 8194 </span><span class="subxTest">test-copy-to-invalid-value-to-address</span>: -<span id="L8195" class="LineNr"> 8195 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8196" class="LineNr"> 8196 </span> 55/push-ebp -<span id="L8197" class="LineNr"> 8197 </span> 89/<- %ebp 4/r32/esp -<span id="L8198" class="LineNr"> 8198 </span> <span class="subxComment"># setup</span> -<span id="L8199" class="LineNr"> 8199 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8200" class="LineNr"> 8200 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8201" class="LineNr"> 8201 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8202" class="LineNr"> 8202 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8203" class="LineNr"> 8203 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8204" class="LineNr"> 8204 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8205" class="LineNr"> 8205 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8206" class="LineNr"> 8206 </span> 68/push 0/imm32 -<span id="L8207" class="LineNr"> 8207 </span> 68/push 0/imm32 -<span id="L8208" class="LineNr"> 8208 </span> 89/<- %edx 4/r32/esp -<span id="L8209" class="LineNr"> 8209 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8210" class="LineNr"> 8210 </span> <span class="subxComment">#</span> -<span id="L8211" class="LineNr"> 8211 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8212" class="LineNr"> 8212 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L8213" class="LineNr"> 8213 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) -<span id="L8214" class="LineNr"> 8214 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) -<span id="L8215" class="LineNr"> 8215 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8216" class="LineNr"> 8216 </span> <span class="subxComment"># convert</span> -<span id="L8217" class="LineNr"> 8217 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8218" class="LineNr"> 8218 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8219" class="LineNr"> 8219 </span> <span class="subxComment"># restore ed</span> -<span id="L8220" class="LineNr"> 8220 </span> 89/<- %edx 4/r32/esp -<span id="L8221" class="LineNr"> 8221 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8222" class="LineNr"> 8222 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8223" class="Folded"> 8223 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8229" class="LineNr"> 8229 </span> <span class="subxComment"># check output</span> -<span id="L8230" class="LineNr"> 8230 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8194'>test-copy-to-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L8231" class="LineNr"> 8231 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8194'>test-copy-to-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8232" class="LineNr"> 8232 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8233" class="LineNr"> 8233 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8194'>test-copy-to-invalid-value-to-address</a>: exit status"</span>) -<span id="L8234" class="LineNr"> 8234 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8235" class="LineNr"> 8235 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8236" class="LineNr"> 8236 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8237" class="LineNr"> 8237 </span> 5d/pop-to-ebp -<span id="L8238" class="LineNr"> 8238 </span> c3/return -<span id="L8239" class="LineNr"> 8239 </span> -<span id="L8240" class="LineNr"> 8240 </span><span class="subxTest">test-copy-to-null-value-to-address</span>: -<span id="L8241" class="LineNr"> 8241 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8242" class="LineNr"> 8242 </span> 55/push-ebp -<span id="L8243" class="LineNr"> 8243 </span> 89/<- %ebp 4/r32/esp -<span id="L8244" class="LineNr"> 8244 </span> <span class="subxComment"># setup</span> -<span id="L8245" class="LineNr"> 8245 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8246" class="LineNr"> 8246 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8247" class="LineNr"> 8247 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8248" class="LineNr"> 8248 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8249" class="LineNr"> 8249 </span> <span class="subxComment">#</span> -<span id="L8250" class="LineNr"> 8250 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8251" class="LineNr"> 8251 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) -<span id="L8252" class="LineNr"> 8252 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) -<span id="L8253" class="LineNr"> 8253 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8254" class="LineNr"> 8254 </span> <span class="subxComment"># convert</span> -<span id="L8255" class="LineNr"> 8255 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8256" class="LineNr"> 8256 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8257" class="LineNr"> 8257 </span> <span class="subxComment"># no errors</span> -<span id="L8258" class="LineNr"> 8258 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8259" class="LineNr"> 8259 </span> 89/<- %esp 5/r32/ebp -<span id="L8260" class="LineNr"> 8260 </span> 5d/pop-to-ebp -<span id="L8261" class="LineNr"> 8261 </span> c3/return -<span id="L8262" class="LineNr"> 8262 </span> -<span id="L8263" class="LineNr"> 8263 </span><span class="subxTest">test-copy-to-invalid-value-to-offset</span>: -<span id="L8264" class="LineNr"> 8264 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8265" class="LineNr"> 8265 </span> 55/push-ebp -<span id="L8266" class="LineNr"> 8266 </span> 89/<- %ebp 4/r32/esp -<span id="L8267" class="LineNr"> 8267 </span> <span class="subxComment"># setup</span> -<span id="L8268" class="LineNr"> 8268 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8269" class="LineNr"> 8269 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8270" class="LineNr"> 8270 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8271" class="LineNr"> 8271 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8272" class="LineNr"> 8272 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8273" class="LineNr"> 8273 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8274" class="LineNr"> 8274 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8275" class="LineNr"> 8275 </span> 68/push 0/imm32 -<span id="L8276" class="LineNr"> 8276 </span> 68/push 0/imm32 -<span id="L8277" class="LineNr"> 8277 </span> 89/<- %edx 4/r32/esp -<span id="L8278" class="LineNr"> 8278 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8279" class="LineNr"> 8279 </span> <span class="subxComment">#</span> -<span id="L8280" class="LineNr"> 8280 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8281" class="LineNr"> 8281 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L8282" class="LineNr"> 8282 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) -<span id="L8283" class="LineNr"> 8283 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) -<span id="L8284" class="LineNr"> 8284 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8285" class="LineNr"> 8285 </span> <span class="subxComment"># convert</span> -<span id="L8286" class="LineNr"> 8286 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8287" class="LineNr"> 8287 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8288" class="LineNr"> 8288 </span> <span class="subxComment"># restore ed</span> -<span id="L8289" class="LineNr"> 8289 </span> 89/<- %edx 4/r32/esp -<span id="L8290" class="LineNr"> 8290 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8291" class="LineNr"> 8291 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8292" class="Folded"> 8292 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8298" class="LineNr"> 8298 </span> <span class="subxComment"># check output</span> -<span id="L8299" class="LineNr"> 8299 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8263'>test-copy-to-invalid-value-to-offset</a>: output should be empty"</span>) -<span id="L8300" class="LineNr"> 8300 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8263'>test-copy-to-invalid-value-to-offset</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8301" class="LineNr"> 8301 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8302" class="LineNr"> 8302 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8263'>test-copy-to-invalid-value-to-offset</a>: exit status"</span>) -<span id="L8303" class="LineNr"> 8303 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8304" class="LineNr"> 8304 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8305" class="LineNr"> 8305 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8306" class="LineNr"> 8306 </span> 5d/pop-to-ebp -<span id="L8307" class="LineNr"> 8307 </span> c3/return -<span id="L8308" class="LineNr"> 8308 </span> -<span id="L8309" class="LineNr"> 8309 </span><span class="subxTest">test-copy-to-null-value-to-offset</span>: -<span id="L8310" class="LineNr"> 8310 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8311" class="LineNr"> 8311 </span> 55/push-ebp -<span id="L8312" class="LineNr"> 8312 </span> 89/<- %ebp 4/r32/esp -<span id="L8313" class="LineNr"> 8313 </span> <span class="subxComment"># setup</span> -<span id="L8314" class="LineNr"> 8314 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8315" class="LineNr"> 8315 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8316" class="LineNr"> 8316 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8317" class="LineNr"> 8317 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8318" class="LineNr"> 8318 </span> <span class="subxComment">#</span> -<span id="L8319" class="LineNr"> 8319 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8320" class="LineNr"> 8320 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) -<span id="L8321" class="LineNr"> 8321 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) -<span id="L8322" class="LineNr"> 8322 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8323" class="LineNr"> 8323 </span> <span class="subxComment"># convert</span> -<span id="L8324" class="LineNr"> 8324 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8325" class="LineNr"> 8325 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8326" class="LineNr"> 8326 </span> <span class="subxComment"># no errors</span> -<span id="L8327" class="LineNr"> 8327 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8328" class="LineNr"> 8328 </span> 89/<- %esp 5/r32/ebp -<span id="L8329" class="LineNr"> 8329 </span> 5d/pop-to-ebp -<span id="L8330" class="LineNr"> 8330 </span> c3/return -<span id="L8331" class="LineNr"> 8331 </span> -<span id="L8332" class="LineNr"> 8332 </span><span class="subxTest">test-copy-to-non-literal-to-byte</span>: -<span id="L8333" class="LineNr"> 8333 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8334" class="LineNr"> 8334 </span> 55/push-ebp -<span id="L8335" class="LineNr"> 8335 </span> 89/<- %ebp 4/r32/esp -<span id="L8336" class="LineNr"> 8336 </span> <span class="subxComment"># setup</span> -<span id="L8337" class="LineNr"> 8337 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8338" class="LineNr"> 8338 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8339" class="LineNr"> 8339 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8340" class="LineNr"> 8340 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8341" class="LineNr"> 8341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8342" class="LineNr"> 8342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8343" class="LineNr"> 8343 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8344" class="LineNr"> 8344 </span> 68/push 0/imm32 -<span id="L8345" class="LineNr"> 8345 </span> 68/push 0/imm32 -<span id="L8346" class="LineNr"> 8346 </span> 89/<- %edx 4/r32/esp -<span id="L8347" class="LineNr"> 8347 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8348" class="LineNr"> 8348 </span> <span class="subxComment">#</span> -<span id="L8349" class="LineNr"> 8349 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8350" class="LineNr"> 8350 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 3\n"</span>) -<span id="L8351" class="LineNr"> 8351 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8352" class="LineNr"> 8352 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) -<span id="L8353" class="LineNr"> 8353 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8354" class="LineNr"> 8354 </span> <span class="subxComment"># convert</span> -<span id="L8355" class="LineNr"> 8355 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8356" class="LineNr"> 8356 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8357" class="LineNr"> 8357 </span> <span class="subxComment"># restore ed</span> -<span id="L8358" class="LineNr"> 8358 </span> 89/<- %edx 4/r32/esp -<span id="L8359" class="LineNr"> 8359 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8360" class="LineNr"> 8360 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8361" class="Folded"> 8361 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8367" class="LineNr"> 8367 </span> <span class="subxComment"># check output</span> -<span id="L8368" class="LineNr"> 8368 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8332'>test-copy-to-non-literal-to-byte</a>: output should be empty"</span>) -<span id="L8369" class="LineNr"> 8369 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to"</span> <span class="Constant">"F - <a href='mu.subx.html#L8332'>test-copy-to-non-literal-to-byte</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8370" class="LineNr"> 8370 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8371" class="LineNr"> 8371 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8332'>test-copy-to-non-literal-to-byte</a>: exit status"</span>) -<span id="L8372" class="LineNr"> 8372 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8373" class="LineNr"> 8373 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8374" class="LineNr"> 8374 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8375" class="LineNr"> 8375 </span> 5d/pop-to-ebp -<span id="L8376" class="LineNr"> 8376 </span> c3/return -<span id="L8377" class="LineNr"> 8377 </span> -<span id="L8378" class="LineNr"> 8378 </span><span class="subxTest">test-copy-to-deref-address</span>: -<span id="L8379" class="LineNr"> 8379 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8380" class="LineNr"> 8380 </span> 55/push-ebp -<span id="L8381" class="LineNr"> 8381 </span> 89/<- %ebp 4/r32/esp -<span id="L8382" class="LineNr"> 8382 </span> <span class="subxComment"># setup</span> -<span id="L8383" class="LineNr"> 8383 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8384" class="LineNr"> 8384 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8385" class="LineNr"> 8385 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8386" class="LineNr"> 8386 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8387" class="LineNr"> 8387 </span> <span class="subxComment">#</span> -<span id="L8388" class="LineNr"> 8388 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8389" class="LineNr"> 8389 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L8390" class="LineNr"> 8390 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) -<span id="L8391" class="LineNr"> 8391 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) -<span id="L8392" class="LineNr"> 8392 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8393" class="LineNr"> 8393 </span> <span class="subxComment"># convert</span> -<span id="L8394" class="LineNr"> 8394 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8395" class="LineNr"> 8395 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8396" class="LineNr"> 8396 </span> <span class="subxComment"># no errors</span> -<span id="L8397" class="LineNr"> 8397 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8398" class="LineNr"> 8398 </span> 5d/pop-to-ebp -<span id="L8399" class="LineNr"> 8399 </span> c3/return -<span id="L8400" class="LineNr"> 8400 </span> -<span id="L8401" class="LineNr"> 8401 </span><span class="subxTest">test-copy-to-from-non-scalar-inout</span>: -<span id="L8402" class="LineNr"> 8402 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8403" class="LineNr"> 8403 </span> 55/push-ebp -<span id="L8404" class="LineNr"> 8404 </span> 89/<- %ebp 4/r32/esp -<span id="L8405" class="LineNr"> 8405 </span> <span class="subxComment"># setup</span> -<span id="L8406" class="LineNr"> 8406 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8407" class="LineNr"> 8407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8408" class="LineNr"> 8408 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8409" class="LineNr"> 8409 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8410" class="LineNr"> 8410 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8411" class="LineNr"> 8411 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8412" class="LineNr"> 8412 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8413" class="LineNr"> 8413 </span> 68/push 0/imm32 -<span id="L8414" class="LineNr"> 8414 </span> 68/push 0/imm32 -<span id="L8415" class="LineNr"> 8415 </span> 89/<- %edx 4/r32/esp -<span id="L8416" class="LineNr"> 8416 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8417" class="LineNr"> 8417 </span> <span class="subxComment">#</span> -<span id="L8418" class="LineNr"> 8418 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8419" class="LineNr"> 8419 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8420" class="LineNr"> 8420 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L8421" class="LineNr"> 8421 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) -<span id="L8422" class="LineNr"> 8422 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8423" class="LineNr"> 8423 </span> <span class="subxComment"># convert</span> -<span id="L8424" class="LineNr"> 8424 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8425" class="LineNr"> 8425 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8426" class="LineNr"> 8426 </span> <span class="subxComment"># restore ed</span> -<span id="L8427" class="LineNr"> 8427 </span> 89/<- %edx 4/r32/esp -<span id="L8428" class="LineNr"> 8428 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8429" class="LineNr"> 8429 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8430" class="Folded"> 8430 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8436" class="LineNr"> 8436 </span> <span class="subxComment"># check output</span> -<span id="L8437" class="LineNr"> 8437 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8401'>test-copy-to-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8438" class="LineNr"> 8438 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L8401'>test-copy-to-from-non-scalar-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8439" class="LineNr"> 8439 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8440" class="LineNr"> 8440 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8401'>test-copy-to-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8441" class="LineNr"> 8441 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8442" class="LineNr"> 8442 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8443" class="LineNr"> 8443 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8444" class="LineNr"> 8444 </span> 5d/pop-to-ebp -<span id="L8445" class="LineNr"> 8445 </span> c3/return -<span id="L8446" class="LineNr"> 8446 </span> -<span id="L8447" class="LineNr"> 8447 </span><span class="subxTest">test-copy-byte-with-no-inout</span>: -<span id="L8448" class="LineNr"> 8448 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8449" class="LineNr"> 8449 </span> 55/push-ebp -<span id="L8450" class="LineNr"> 8450 </span> 89/<- %ebp 4/r32/esp -<span id="L8451" class="LineNr"> 8451 </span> <span class="subxComment"># setup</span> -<span id="L8452" class="LineNr"> 8452 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8453" class="LineNr"> 8453 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8454" class="LineNr"> 8454 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8455" class="LineNr"> 8455 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8456" class="LineNr"> 8456 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8457" class="LineNr"> 8457 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8458" class="LineNr"> 8458 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8459" class="LineNr"> 8459 </span> 68/push 0/imm32 -<span id="L8460" class="LineNr"> 8460 </span> 68/push 0/imm32 -<span id="L8461" class="LineNr"> 8461 </span> 89/<- %edx 4/r32/esp -<span id="L8462" class="LineNr"> 8462 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8463" class="LineNr"> 8463 </span> <span class="subxComment">#</span> -<span id="L8464" class="LineNr"> 8464 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8465" class="LineNr"> 8465 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte\n"</span>) -<span id="L8466" class="LineNr"> 8466 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8467" class="LineNr"> 8467 </span> <span class="subxComment"># convert</span> -<span id="L8468" class="LineNr"> 8468 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8469" class="LineNr"> 8469 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8470" class="LineNr"> 8470 </span> <span class="subxComment"># restore ed</span> -<span id="L8471" class="LineNr"> 8471 </span> 89/<- %edx 4/r32/esp -<span id="L8472" class="LineNr"> 8472 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8473" class="LineNr"> 8473 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8474" class="Folded"> 8474 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8480" class="LineNr"> 8480 </span> <span class="subxComment"># check output</span> -<span id="L8481" class="LineNr"> 8481 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8447'>test-copy-byte-with-no-inout</a>: output should be empty"</span>) -<span id="L8482" class="LineNr"> 8482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8447'>test-copy-byte-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8483" class="LineNr"> 8483 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8484" class="LineNr"> 8484 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8447'>test-copy-byte-with-no-inout</a>: exit status"</span>) -<span id="L8485" class="LineNr"> 8485 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8486" class="LineNr"> 8486 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8487" class="LineNr"> 8487 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8488" class="LineNr"> 8488 </span> 5d/pop-to-ebp -<span id="L8489" class="LineNr"> 8489 </span> c3/return -<span id="L8490" class="LineNr"> 8490 </span> -<span id="L8491" class="LineNr"> 8491 </span><span class="subxTest">test-copy-byte-with-multiple-inouts</span>: -<span id="L8492" class="LineNr"> 8492 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8493" class="LineNr"> 8493 </span> 55/push-ebp -<span id="L8494" class="LineNr"> 8494 </span> 89/<- %ebp 4/r32/esp -<span id="L8495" class="LineNr"> 8495 </span> <span class="subxComment"># setup</span> -<span id="L8496" class="LineNr"> 8496 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8497" class="LineNr"> 8497 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8498" class="LineNr"> 8498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8499" class="LineNr"> 8499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8500" class="LineNr"> 8500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8501" class="LineNr"> 8501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8502" class="LineNr"> 8502 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8503" class="LineNr"> 8503 </span> 68/push 0/imm32 -<span id="L8504" class="LineNr"> 8504 </span> 68/push 0/imm32 -<span id="L8505" class="LineNr"> 8505 </span> 89/<- %edx 4/r32/esp -<span id="L8506" class="LineNr"> 8506 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8507" class="LineNr"> 8507 </span> <span class="subxComment">#</span> -<span id="L8508" class="LineNr"> 8508 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8509" class="LineNr"> 8509 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte 0, 0\n"</span>) -<span id="L8510" class="LineNr"> 8510 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8511" class="LineNr"> 8511 </span> <span class="subxComment"># convert</span> -<span id="L8512" class="LineNr"> 8512 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8513" class="LineNr"> 8513 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8514" class="LineNr"> 8514 </span> <span class="subxComment"># restore ed</span> -<span id="L8515" class="LineNr"> 8515 </span> 89/<- %edx 4/r32/esp -<span id="L8516" class="LineNr"> 8516 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8517" class="LineNr"> 8517 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8518" class="Folded"> 8518 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8524" class="LineNr"> 8524 </span> <span class="subxComment"># check output</span> -<span id="L8525" class="LineNr"> 8525 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8491'>test-copy-byte-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L8526" class="LineNr"> 8526 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8491'>test-copy-byte-with-multiple-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8527" class="LineNr"> 8527 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8528" class="LineNr"> 8528 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8491'>test-copy-byte-with-multiple-inouts</a>: exit status"</span>) -<span id="L8529" class="LineNr"> 8529 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8530" class="LineNr"> 8530 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8531" class="LineNr"> 8531 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8532" class="LineNr"> 8532 </span> 5d/pop-to-ebp -<span id="L8533" class="LineNr"> 8533 </span> c3/return -<span id="L8534" class="LineNr"> 8534 </span> -<span id="L8535" class="LineNr"> 8535 </span><span class="subxTest">test-copy-byte-with-no-output</span>: -<span id="L8536" class="LineNr"> 8536 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8537" class="LineNr"> 8537 </span> 55/push-ebp -<span id="L8538" class="LineNr"> 8538 </span> 89/<- %ebp 4/r32/esp -<span id="L8539" class="LineNr"> 8539 </span> <span class="subxComment"># setup</span> -<span id="L8540" class="LineNr"> 8540 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8541" class="LineNr"> 8541 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8542" class="LineNr"> 8542 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8543" class="LineNr"> 8543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8544" class="LineNr"> 8544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8545" class="LineNr"> 8545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8546" class="LineNr"> 8546 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8547" class="LineNr"> 8547 </span> 68/push 0/imm32 -<span id="L8548" class="LineNr"> 8548 </span> 68/push 0/imm32 -<span id="L8549" class="LineNr"> 8549 </span> 89/<- %edx 4/r32/esp -<span id="L8550" class="LineNr"> 8550 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8551" class="LineNr"> 8551 </span> <span class="subxComment">#</span> -<span id="L8552" class="LineNr"> 8552 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8553" class="LineNr"> 8553 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte 0\n"</span>) -<span id="L8554" class="LineNr"> 8554 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8555" class="LineNr"> 8555 </span> <span class="subxComment"># convert</span> -<span id="L8556" class="LineNr"> 8556 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8557" class="LineNr"> 8557 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8558" class="LineNr"> 8558 </span> <span class="subxComment"># restore ed</span> -<span id="L8559" class="LineNr"> 8559 </span> 89/<- %edx 4/r32/esp -<span id="L8560" class="LineNr"> 8560 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8561" class="LineNr"> 8561 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8562" class="Folded"> 8562 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8568" class="LineNr"> 8568 </span> <span class="subxComment"># check output</span> -<span id="L8569" class="LineNr"> 8569 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8535'>test-copy-byte-with-no-output</a>: output should be empty"</span>) -<span id="L8570" class="LineNr"> 8570 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8535'>test-copy-byte-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8571" class="LineNr"> 8571 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8572" class="LineNr"> 8572 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8535'>test-copy-byte-with-no-output</a>: exit status"</span>) -<span id="L8573" class="LineNr"> 8573 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8574" class="LineNr"> 8574 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8575" class="LineNr"> 8575 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8576" class="LineNr"> 8576 </span> 5d/pop-to-ebp -<span id="L8577" class="LineNr"> 8577 </span> c3/return -<span id="L8578" class="LineNr"> 8578 </span> -<span id="L8579" class="LineNr"> 8579 </span><span class="subxTest">test-copy-byte-with-multiple-outputs</span>: -<span id="L8580" class="LineNr"> 8580 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8581" class="LineNr"> 8581 </span> 55/push-ebp -<span id="L8582" class="LineNr"> 8582 </span> 89/<- %ebp 4/r32/esp -<span id="L8583" class="LineNr"> 8583 </span> <span class="subxComment"># setup</span> -<span id="L8584" class="LineNr"> 8584 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8585" class="LineNr"> 8585 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8586" class="LineNr"> 8586 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8587" class="LineNr"> 8587 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8588" class="LineNr"> 8588 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8589" class="LineNr"> 8589 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8590" class="LineNr"> 8590 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8591" class="LineNr"> 8591 </span> 68/push 0/imm32 -<span id="L8592" class="LineNr"> 8592 </span> 68/push 0/imm32 -<span id="L8593" class="LineNr"> 8593 </span> 89/<- %edx 4/r32/esp -<span id="L8594" class="LineNr"> 8594 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8595" class="LineNr"> 8595 </span> <span class="subxComment">#</span> -<span id="L8596" class="LineNr"> 8596 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8597" class="LineNr"> 8597 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L8598" class="LineNr"> 8598 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy 0\n"</span>) -<span id="L8599" class="LineNr"> 8599 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy-byte 0\n"</span>) -<span id="L8600" class="LineNr"> 8600 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8601" class="LineNr"> 8601 </span> <span class="subxComment"># convert</span> -<span id="L8602" class="LineNr"> 8602 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8603" class="LineNr"> 8603 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8604" class="LineNr"> 8604 </span> <span class="subxComment"># restore ed</span> -<span id="L8605" class="LineNr"> 8605 </span> 89/<- %edx 4/r32/esp -<span id="L8606" class="LineNr"> 8606 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8607" class="LineNr"> 8607 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8608" class="Folded"> 8608 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8614" class="LineNr"> 8614 </span> <span class="subxComment"># check output</span> -<span id="L8615" class="LineNr"> 8615 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8579'>test-copy-byte-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L8616" class="LineNr"> 8616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8579'>test-copy-byte-with-multiple-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8617" class="LineNr"> 8617 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8618" class="LineNr"> 8618 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8579'>test-copy-byte-with-multiple-outputs</a>: exit status"</span>) -<span id="L8619" class="LineNr"> 8619 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8620" class="LineNr"> 8620 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8621" class="LineNr"> 8621 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8622" class="LineNr"> 8622 </span> 5d/pop-to-ebp -<span id="L8623" class="LineNr"> 8623 </span> c3/return -<span id="L8624" class="LineNr"> 8624 </span> -<span id="L8625" class="LineNr"> 8625 </span><span class="subxTest">test-copy-byte-deref-address</span>: -<span id="L8626" class="LineNr"> 8626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8627" class="LineNr"> 8627 </span> 55/push-ebp -<span id="L8628" class="LineNr"> 8628 </span> 89/<- %ebp 4/r32/esp -<span id="L8629" class="LineNr"> 8629 </span> <span class="subxComment"># setup</span> -<span id="L8630" class="LineNr"> 8630 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8631" class="LineNr"> 8631 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8632" class="LineNr"> 8632 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8633" class="LineNr"> 8633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8634" class="LineNr"> 8634 </span> <span class="subxComment">#</span> -<span id="L8635" class="LineNr"> 8635 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8636" class="LineNr"> 8636 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8637" class="LineNr"> 8637 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy-byte *x\n"</span>) -<span id="L8638" class="LineNr"> 8638 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8639" class="LineNr"> 8639 </span> <span class="subxComment"># convert</span> -<span id="L8640" class="LineNr"> 8640 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L8641" class="LineNr"> 8641 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8642" class="Folded"> 8642 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8648" class="LineNr"> 8648 </span> <span class="subxComment"># not bothering checking output</span> -<span id="L8649" class="LineNr"> 8649 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8625'>test-copy-byte-deref-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8650" class="LineNr"> 8650 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8651" class="LineNr"> 8651 </span> 5d/pop-to-ebp -<span id="L8652" class="LineNr"> 8652 </span> c3/return -<span id="L8653" class="LineNr"> 8653 </span> -<span id="L8654" class="LineNr"> 8654 </span><span class="subxTest">test-copy-byte-with-invalid-output-type</span>: -<span id="L8655" class="LineNr"> 8655 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8656" class="LineNr"> 8656 </span> 55/push-ebp -<span id="L8657" class="LineNr"> 8657 </span> 89/<- %ebp 4/r32/esp -<span id="L8658" class="LineNr"> 8658 </span> <span class="subxComment"># setup</span> -<span id="L8659" class="LineNr"> 8659 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8660" class="LineNr"> 8660 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8661" class="LineNr"> 8661 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8662" class="LineNr"> 8662 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8663" class="LineNr"> 8663 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8664" class="LineNr"> 8664 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8665" class="LineNr"> 8665 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8666" class="LineNr"> 8666 </span> 68/push 0/imm32 -<span id="L8667" class="LineNr"> 8667 </span> 68/push 0/imm32 -<span id="L8668" class="LineNr"> 8668 </span> 89/<- %edx 4/r32/esp -<span id="L8669" class="LineNr"> 8669 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8670" class="LineNr"> 8670 </span> <span class="subxComment">#</span> -<span id="L8671" class="LineNr"> 8671 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8672" class="LineNr"> 8672 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8673" class="LineNr"> 8673 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy-byte *x\n"</span>) -<span id="L8674" class="LineNr"> 8674 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8675" class="LineNr"> 8675 </span> <span class="subxComment"># convert</span> -<span id="L8676" class="LineNr"> 8676 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8677" class="LineNr"> 8677 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8678" class="LineNr"> 8678 </span> <span class="subxComment"># restore ed</span> -<span id="L8679" class="LineNr"> 8679 </span> 89/<- %edx 4/r32/esp -<span id="L8680" class="LineNr"> 8680 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8681" class="LineNr"> 8681 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8682" class="Folded"> 8682 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8688" class="LineNr"> 8688 </span> <span class="subxComment"># check output</span> -<span id="L8689" class="LineNr"> 8689 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8654'>test-copy-byte-with-invalid-output-type</a>: output should be empty"</span>) -<span id="L8690" class="LineNr"> 8690 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must <a href='../108write.subx.html#L24'>write</a> to output of type byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L8654'>test-copy-byte-with-invalid-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8691" class="LineNr"> 8691 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8692" class="LineNr"> 8692 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8654'>test-copy-byte-with-invalid-output-type</a>: exit status"</span>) -<span id="L8693" class="LineNr"> 8693 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8694" class="LineNr"> 8694 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8695" class="LineNr"> 8695 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8696" class="LineNr"> 8696 </span> 5d/pop-to-ebp -<span id="L8697" class="LineNr"> 8697 </span> c3/return -<span id="L8698" class="LineNr"> 8698 </span> -<span id="L8699" class="LineNr"> 8699 </span><span class="subxTest">test-copy-byte-from-non-scalar-inout</span>: -<span id="L8700" class="LineNr"> 8700 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8701" class="LineNr"> 8701 </span> 55/push-ebp -<span id="L8702" class="LineNr"> 8702 </span> 89/<- %ebp 4/r32/esp -<span id="L8703" class="LineNr"> 8703 </span> <span class="subxComment"># setup</span> -<span id="L8704" class="LineNr"> 8704 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8705" class="LineNr"> 8705 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8706" class="LineNr"> 8706 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8707" class="LineNr"> 8707 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8708" class="LineNr"> 8708 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8709" class="LineNr"> 8709 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8710" class="LineNr"> 8710 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8711" class="LineNr"> 8711 </span> 68/push 0/imm32 -<span id="L8712" class="LineNr"> 8712 </span> 68/push 0/imm32 -<span id="L8713" class="LineNr"> 8713 </span> 89/<- %edx 4/r32/esp -<span id="L8714" class="LineNr"> 8714 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8715" class="LineNr"> 8715 </span> <span class="subxComment">#</span> -<span id="L8716" class="LineNr"> 8716 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8717" class="LineNr"> 8717 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L8718" class="LineNr"> 8718 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: byte <- copy-byte x\n"</span>) -<span id="L8719" class="LineNr"> 8719 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8720" class="LineNr"> 8720 </span> <span class="subxComment"># convert</span> -<span id="L8721" class="LineNr"> 8721 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8722" class="LineNr"> 8722 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8723" class="LineNr"> 8723 </span> <span class="subxComment"># restore ed</span> -<span id="L8724" class="LineNr"> 8724 </span> 89/<- %edx 4/r32/esp -<span id="L8725" class="LineNr"> 8725 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8726" class="LineNr"> 8726 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8727" class="Folded"> 8727 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8733" class="LineNr"> 8733 </span> <span class="subxComment"># check output</span> -<span id="L8734" class="LineNr"> 8734 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8699'>test-copy-byte-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L8735" class="LineNr"> 8735 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8699'>test-copy-byte-from-non-scalar-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8736" class="LineNr"> 8736 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8737" class="LineNr"> 8737 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8699'>test-copy-byte-from-non-scalar-inout</a>: exit status"</span>) -<span id="L8738" class="LineNr"> 8738 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8739" class="LineNr"> 8739 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8740" class="LineNr"> 8740 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8741" class="LineNr"> 8741 </span> 5d/pop-to-ebp -<span id="L8742" class="LineNr"> 8742 </span> c3/return -<span id="L8743" class="LineNr"> 8743 </span> -<span id="L8744" class="LineNr"> 8744 </span><span class="subxTest">test-copy-byte-to-with-no-inout</span>: -<span id="L8745" class="LineNr"> 8745 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8746" class="LineNr"> 8746 </span> 55/push-ebp -<span id="L8747" class="LineNr"> 8747 </span> 89/<- %ebp 4/r32/esp -<span id="L8748" class="LineNr"> 8748 </span> <span class="subxComment"># setup</span> -<span id="L8749" class="LineNr"> 8749 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8750" class="LineNr"> 8750 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8751" class="LineNr"> 8751 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8752" class="LineNr"> 8752 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8753" class="LineNr"> 8753 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8754" class="LineNr"> 8754 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8755" class="LineNr"> 8755 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8756" class="LineNr"> 8756 </span> 68/push 0/imm32 -<span id="L8757" class="LineNr"> 8757 </span> 68/push 0/imm32 -<span id="L8758" class="LineNr"> 8758 </span> 89/<- %edx 4/r32/esp -<span id="L8759" class="LineNr"> 8759 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8760" class="LineNr"> 8760 </span> <span class="subxComment">#</span> -<span id="L8761" class="LineNr"> 8761 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8762" class="LineNr"> 8762 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to\n"</span>) -<span id="L8763" class="LineNr"> 8763 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8764" class="LineNr"> 8764 </span> <span class="subxComment"># convert</span> -<span id="L8765" class="LineNr"> 8765 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8766" class="LineNr"> 8766 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8767" class="LineNr"> 8767 </span> <span class="subxComment"># restore ed</span> -<span id="L8768" class="LineNr"> 8768 </span> 89/<- %edx 4/r32/esp -<span id="L8769" class="LineNr"> 8769 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8770" class="LineNr"> 8770 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8771" class="Folded"> 8771 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8777" class="LineNr"> 8777 </span> <span class="subxComment"># check output</span> -<span id="L8778" class="LineNr"> 8778 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8744'>test-copy-byte-to-with-no-inout</a>: output should be empty"</span>) -<span id="L8779" class="LineNr"> 8779 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8744'>test-copy-byte-to-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8780" class="LineNr"> 8780 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8781" class="LineNr"> 8781 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8744'>test-copy-byte-to-with-no-inout</a>: exit status"</span>) -<span id="L8782" class="LineNr"> 8782 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8783" class="LineNr"> 8783 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8784" class="LineNr"> 8784 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8785" class="LineNr"> 8785 </span> 5d/pop-to-ebp -<span id="L8786" class="LineNr"> 8786 </span> c3/return -<span id="L8787" class="LineNr"> 8787 </span> -<span id="L8788" class="LineNr"> 8788 </span><span class="subxTest">test-copy-byte-to-with-no-source</span>: -<span id="L8789" class="LineNr"> 8789 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8790" class="LineNr"> 8790 </span> 55/push-ebp -<span id="L8791" class="LineNr"> 8791 </span> 89/<- %ebp 4/r32/esp -<span id="L8792" class="LineNr"> 8792 </span> <span class="subxComment"># setup</span> -<span id="L8793" class="LineNr"> 8793 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8794" class="LineNr"> 8794 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8795" class="LineNr"> 8795 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8796" class="LineNr"> 8796 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8797" class="LineNr"> 8797 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8798" class="LineNr"> 8798 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8799" class="LineNr"> 8799 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8800" class="LineNr"> 8800 </span> 68/push 0/imm32 -<span id="L8801" class="LineNr"> 8801 </span> 68/push 0/imm32 -<span id="L8802" class="LineNr"> 8802 </span> 89/<- %edx 4/r32/esp -<span id="L8803" class="LineNr"> 8803 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8804" class="LineNr"> 8804 </span> <span class="subxComment">#</span> -<span id="L8805" class="LineNr"> 8805 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8806" class="LineNr"> 8806 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8807" class="LineNr"> 8807 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x\n"</span>) -<span id="L8808" class="LineNr"> 8808 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8809" class="LineNr"> 8809 </span> <span class="subxComment"># convert</span> -<span id="L8810" class="LineNr"> 8810 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8811" class="LineNr"> 8811 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8812" class="LineNr"> 8812 </span> <span class="subxComment"># restore ed</span> -<span id="L8813" class="LineNr"> 8813 </span> 89/<- %edx 4/r32/esp -<span id="L8814" class="LineNr"> 8814 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8815" class="LineNr"> 8815 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8816" class="Folded"> 8816 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8822" class="LineNr"> 8822 </span> <span class="subxComment"># check output</span> -<span id="L8823" class="LineNr"> 8823 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8788'>test-copy-byte-to-with-no-source</a>: output should be empty"</span>) -<span id="L8824" class="LineNr"> 8824 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8788'>test-copy-byte-to-with-no-source</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8825" class="LineNr"> 8825 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8826" class="LineNr"> 8826 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8788'>test-copy-byte-to-with-no-source</a>: exit status"</span>) -<span id="L8827" class="LineNr"> 8827 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8828" class="LineNr"> 8828 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8829" class="LineNr"> 8829 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8830" class="LineNr"> 8830 </span> 5d/pop-to-ebp -<span id="L8831" class="LineNr"> 8831 </span> c3/return -<span id="L8832" class="LineNr"> 8832 </span> -<span id="L8833" class="LineNr"> 8833 </span><span class="subxTest">test-copy-byte-to-with-too-many-inouts</span>: -<span id="L8834" class="LineNr"> 8834 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8835" class="LineNr"> 8835 </span> 55/push-ebp -<span id="L8836" class="LineNr"> 8836 </span> 89/<- %ebp 4/r32/esp -<span id="L8837" class="LineNr"> 8837 </span> <span class="subxComment"># setup</span> -<span id="L8838" class="LineNr"> 8838 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8839" class="LineNr"> 8839 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8840" class="LineNr"> 8840 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8841" class="LineNr"> 8841 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8842" class="LineNr"> 8842 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8843" class="LineNr"> 8843 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8844" class="LineNr"> 8844 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8845" class="LineNr"> 8845 </span> 68/push 0/imm32 -<span id="L8846" class="LineNr"> 8846 </span> 68/push 0/imm32 -<span id="L8847" class="LineNr"> 8847 </span> 89/<- %edx 4/r32/esp -<span id="L8848" class="LineNr"> 8848 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8849" class="LineNr"> 8849 </span> <span class="subxComment">#</span> -<span id="L8850" class="LineNr"> 8850 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8851" class="LineNr"> 8851 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8852" class="LineNr"> 8852 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0, 0\n"</span>) -<span id="L8853" class="LineNr"> 8853 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8854" class="LineNr"> 8854 </span> <span class="subxComment"># convert</span> -<span id="L8855" class="LineNr"> 8855 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8856" class="LineNr"> 8856 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8857" class="LineNr"> 8857 </span> <span class="subxComment"># restore ed</span> -<span id="L8858" class="LineNr"> 8858 </span> 89/<- %edx 4/r32/esp -<span id="L8859" class="LineNr"> 8859 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8860" class="LineNr"> 8860 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8861" class="Folded"> 8861 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8867" class="LineNr"> 8867 </span> <span class="subxComment"># check output</span> -<span id="L8868" class="LineNr"> 8868 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8833'>test-copy-byte-to-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L8869" class="LineNr"> 8869 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8833'>test-copy-byte-to-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8870" class="LineNr"> 8870 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8871" class="LineNr"> 8871 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8833'>test-copy-byte-to-with-too-many-inouts</a>: exit status"</span>) -<span id="L8872" class="LineNr"> 8872 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8873" class="LineNr"> 8873 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8874" class="LineNr"> 8874 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8875" class="LineNr"> 8875 </span> 5d/pop-to-ebp -<span id="L8876" class="LineNr"> 8876 </span> c3/return -<span id="L8877" class="LineNr"> 8877 </span> -<span id="L8878" class="LineNr"> 8878 </span><span class="subxTest">test-copy-byte-to-with-output</span>: -<span id="L8879" class="LineNr"> 8879 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8880" class="LineNr"> 8880 </span> 55/push-ebp -<span id="L8881" class="LineNr"> 8881 </span> 89/<- %ebp 4/r32/esp -<span id="L8882" class="LineNr"> 8882 </span> <span class="subxComment"># setup</span> -<span id="L8883" class="LineNr"> 8883 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8884" class="LineNr"> 8884 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8885" class="LineNr"> 8885 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8886" class="LineNr"> 8886 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8887" class="LineNr"> 8887 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8888" class="LineNr"> 8888 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8889" class="LineNr"> 8889 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8890" class="LineNr"> 8890 </span> 68/push 0/imm32 -<span id="L8891" class="LineNr"> 8891 </span> 68/push 0/imm32 -<span id="L8892" class="LineNr"> 8892 </span> 89/<- %edx 4/r32/esp -<span id="L8893" class="LineNr"> 8893 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8894" class="LineNr"> 8894 </span> <span class="subxComment">#</span> -<span id="L8895" class="LineNr"> 8895 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8896" class="LineNr"> 8896 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L8897" class="LineNr"> 8897 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) -<span id="L8898" class="LineNr"> 8898 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-byte-to *y, 0\n"</span>) -<span id="L8899" class="LineNr"> 8899 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8900" class="LineNr"> 8900 </span> <span class="subxComment"># convert</span> -<span id="L8901" class="LineNr"> 8901 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8902" class="LineNr"> 8902 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8903" class="LineNr"> 8903 </span> <span class="subxComment"># restore ed</span> -<span id="L8904" class="LineNr"> 8904 </span> 89/<- %edx 4/r32/esp -<span id="L8905" class="LineNr"> 8905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8906" class="LineNr"> 8906 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8907" class="Folded"> 8907 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8913" class="LineNr"> 8913 </span> <span class="subxComment"># check output</span> -<span id="L8914" class="LineNr"> 8914 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8878'>test-copy-byte-to-with-output</a>: output should be empty"</span>) -<span id="L8915" class="LineNr"> 8915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L8878'>test-copy-byte-to-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8916" class="LineNr"> 8916 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8917" class="LineNr"> 8917 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8878'>test-copy-byte-to-with-output</a>: exit status"</span>) -<span id="L8918" class="LineNr"> 8918 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8919" class="LineNr"> 8919 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8920" class="LineNr"> 8920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8921" class="LineNr"> 8921 </span> 5d/pop-to-ebp -<span id="L8922" class="LineNr"> 8922 </span> c3/return -<span id="L8923" class="LineNr"> 8923 </span> -<span id="L8924" class="LineNr"> 8924 </span><span class="subxTest">test-copy-byte-to-with-invalid-output-type</span>: -<span id="L8925" class="LineNr"> 8925 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8926" class="LineNr"> 8926 </span> 55/push-ebp -<span id="L8927" class="LineNr"> 8927 </span> 89/<- %ebp 4/r32/esp -<span id="L8928" class="LineNr"> 8928 </span> <span class="subxComment"># setup</span> -<span id="L8929" class="LineNr"> 8929 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8930" class="LineNr"> 8930 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8931" class="LineNr"> 8931 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8932" class="LineNr"> 8932 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8933" class="LineNr"> 8933 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8934" class="LineNr"> 8934 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8935" class="LineNr"> 8935 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8936" class="LineNr"> 8936 </span> 68/push 0/imm32 -<span id="L8937" class="LineNr"> 8937 </span> 68/push 0/imm32 -<span id="L8938" class="LineNr"> 8938 </span> 89/<- %edx 4/r32/esp -<span id="L8939" class="LineNr"> 8939 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8940" class="LineNr"> 8940 </span> <span class="subxComment">#</span> -<span id="L8941" class="LineNr"> 8941 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8942" class="LineNr"> 8942 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L8943" class="LineNr"> 8943 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L8944" class="LineNr"> 8944 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to y, x\n"</span>) -<span id="L8945" class="LineNr"> 8945 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8946" class="LineNr"> 8946 </span> <span class="subxComment"># convert</span> -<span id="L8947" class="LineNr"> 8947 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8948" class="LineNr"> 8948 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8949" class="LineNr"> 8949 </span> <span class="subxComment"># restore ed</span> -<span id="L8950" class="LineNr"> 8950 </span> 89/<- %edx 4/r32/esp -<span id="L8951" class="LineNr"> 8951 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8952" class="LineNr"> 8952 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8953" class="Folded"> 8953 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L8959" class="LineNr"> 8959 </span> <span class="subxComment"># check output</span> -<span id="L8960" class="LineNr"> 8960 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8924'>test-copy-byte-to-with-invalid-output-type</a>: output should be empty"</span>) -<span id="L8961" class="LineNr"> 8961 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'y' must be a byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L8924'>test-copy-byte-to-with-invalid-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L8962" class="LineNr"> 8962 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L8963" class="LineNr"> 8963 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8924'>test-copy-byte-to-with-invalid-output-type</a>: exit status"</span>) -<span id="L8964" class="LineNr"> 8964 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L8965" class="LineNr"> 8965 </span> 81 0/subop/add %esp 8/imm32 -<span id="L8966" class="LineNr"> 8966 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L8967" class="LineNr"> 8967 </span> 5d/pop-to-ebp -<span id="L8968" class="LineNr"> 8968 </span> c3/return -<span id="L8969" class="LineNr"> 8969 </span> -<span id="L8970" class="LineNr"> 8970 </span><span class="subxTest">test-copy-byte-to-with-literal-inout</span>: -<span id="L8971" class="LineNr"> 8971 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8972" class="LineNr"> 8972 </span> 55/push-ebp -<span id="L8973" class="LineNr"> 8973 </span> 89/<- %ebp 4/r32/esp -<span id="L8974" class="LineNr"> 8974 </span> <span class="subxComment"># setup</span> -<span id="L8975" class="LineNr"> 8975 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L8976" class="LineNr"> 8976 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L8977" class="LineNr"> 8977 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L8978" class="LineNr"> 8978 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L8979" class="LineNr"> 8979 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L8980" class="LineNr"> 8980 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L8981" class="LineNr"> 8981 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L8982" class="LineNr"> 8982 </span> 68/push 0/imm32 -<span id="L8983" class="LineNr"> 8983 </span> 68/push 0/imm32 -<span id="L8984" class="LineNr"> 8984 </span> 89/<- %edx 4/r32/esp -<span id="L8985" class="LineNr"> 8985 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L8986" class="LineNr"> 8986 </span> <span class="subxComment">#</span> -<span id="L8987" class="LineNr"> 8987 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L8988" class="LineNr"> 8988 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) -<span id="L8989" class="LineNr"> 8989 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0\n"</span>) -<span id="L8990" class="LineNr"> 8990 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L8991" class="LineNr"> 8991 </span> <span class="subxComment"># convert</span> -<span id="L8992" class="LineNr"> 8992 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L8993" class="LineNr"> 8993 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L8994" class="LineNr"> 8994 </span> <span class="subxComment"># restore ed</span> -<span id="L8995" class="LineNr"> 8995 </span> 89/<- %edx 4/r32/esp -<span id="L8996" class="LineNr"> 8996 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L8997" class="LineNr"> 8997 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L8998" class="Folded"> 8998 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9004" class="LineNr"> 9004 </span> <span class="subxComment"># check output</span> -<span id="L9005" class="LineNr"> 9005 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8970'>test-copy-byte-to-with-literal-inout</a>: output should be empty"</span>) -<span id="L9006" class="LineNr"> 9006 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: source (second inout) must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8970'>test-copy-byte-to-with-literal-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9007" class="LineNr"> 9007 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9008" class="LineNr"> 9008 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8970'>test-copy-byte-to-with-literal-inout</a>: exit status"</span>) -<span id="L9009" class="LineNr"> 9009 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9010" class="LineNr"> 9010 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9011" class="LineNr"> 9011 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9012" class="LineNr"> 9012 </span> 5d/pop-to-ebp -<span id="L9013" class="LineNr"> 9013 </span> c3/return -<span id="L9014" class="LineNr"> 9014 </span> -<span id="L9015" class="LineNr"> 9015 </span><span class="subxTest">test-copy-byte-to-deref-address</span>: -<span id="L9016" class="LineNr"> 9016 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9017" class="LineNr"> 9017 </span> 55/push-ebp -<span id="L9018" class="LineNr"> 9018 </span> 89/<- %ebp 4/r32/esp -<span id="L9019" class="LineNr"> 9019 </span> <span class="subxComment"># setup</span> -<span id="L9020" class="LineNr"> 9020 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9021" class="LineNr"> 9021 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9022" class="LineNr"> 9022 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9023" class="LineNr"> 9023 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9024" class="LineNr"> 9024 </span> <span class="subxComment">#</span> -<span id="L9025" class="LineNr"> 9025 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9026" class="LineNr"> 9026 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) -<span id="L9027" class="LineNr"> 9027 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) -<span id="L9028" class="LineNr"> 9028 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) -<span id="L9029" class="LineNr"> 9029 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9030" class="LineNr"> 9030 </span> <span class="subxComment"># convert</span> -<span id="L9031" class="LineNr"> 9031 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9032" class="LineNr"> 9032 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9033" class="LineNr"> 9033 </span> <span class="subxComment"># no errors</span> -<span id="L9034" class="LineNr"> 9034 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9035" class="LineNr"> 9035 </span> 5d/pop-to-ebp -<span id="L9036" class="LineNr"> 9036 </span> c3/return -<span id="L9037" class="LineNr"> 9037 </span> -<span id="L9038" class="LineNr"> 9038 </span><span class="subxTest">test-copy-byte-to-from-non-scalar-inout</span>: -<span id="L9039" class="LineNr"> 9039 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9040" class="LineNr"> 9040 </span> 55/push-ebp -<span id="L9041" class="LineNr"> 9041 </span> 89/<- %ebp 4/r32/esp -<span id="L9042" class="LineNr"> 9042 </span> <span class="subxComment"># setup</span> -<span id="L9043" class="LineNr"> 9043 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9044" class="LineNr"> 9044 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9045" class="LineNr"> 9045 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9046" class="LineNr"> 9046 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9047" class="LineNr"> 9047 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9048" class="LineNr"> 9048 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9049" class="LineNr"> 9049 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9050" class="LineNr"> 9050 </span> 68/push 0/imm32 -<span id="L9051" class="LineNr"> 9051 </span> 68/push 0/imm32 -<span id="L9052" class="LineNr"> 9052 </span> 89/<- %edx 4/r32/esp -<span id="L9053" class="LineNr"> 9053 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9054" class="LineNr"> 9054 </span> <span class="subxComment">#</span> -<span id="L9055" class="LineNr"> 9055 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9056" class="LineNr"> 9056 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L9057" class="LineNr"> 9057 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) -<span id="L9058" class="LineNr"> 9058 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) -<span id="L9059" class="LineNr"> 9059 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9060" class="LineNr"> 9060 </span> <span class="subxComment"># convert</span> -<span id="L9061" class="LineNr"> 9061 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9062" class="LineNr"> 9062 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9063" class="LineNr"> 9063 </span> <span class="subxComment"># restore ed</span> -<span id="L9064" class="LineNr"> 9064 </span> 89/<- %edx 4/r32/esp -<span id="L9065" class="LineNr"> 9065 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9066" class="LineNr"> 9066 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9067" class="Folded"> 9067 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9073" class="LineNr"> 9073 </span> <span class="subxComment"># check output</span> -<span id="L9074" class="LineNr"> 9074 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9038'>test-copy-byte-to-from-non-scalar-inout</a>: output should be empty"</span>) -<span id="L9075" class="LineNr"> 9075 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L9038'>test-copy-byte-to-from-non-scalar-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9076" class="LineNr"> 9076 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9077" class="LineNr"> 9077 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9038'>test-copy-byte-to-from-non-scalar-inout</a>: exit status"</span>) -<span id="L9078" class="LineNr"> 9078 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9079" class="LineNr"> 9079 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9080" class="LineNr"> 9080 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9081" class="LineNr"> 9081 </span> 5d/pop-to-ebp -<span id="L9082" class="LineNr"> 9082 </span> c3/return -<span id="L9083" class="LineNr"> 9083 </span> -<span id="L9084" class="LineNr"> 9084 </span><span class="subxTest">test-compare-with-no-inout</span>: -<span id="L9085" class="LineNr"> 9085 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9086" class="LineNr"> 9086 </span> 55/push-ebp -<span id="L9087" class="LineNr"> 9087 </span> 89/<- %ebp 4/r32/esp -<span id="L9088" class="LineNr"> 9088 </span> <span class="subxComment"># setup</span> -<span id="L9089" class="LineNr"> 9089 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9090" class="LineNr"> 9090 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9091" class="LineNr"> 9091 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9092" class="LineNr"> 9092 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9093" class="LineNr"> 9093 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9094" class="LineNr"> 9094 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9095" class="LineNr"> 9095 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9096" class="LineNr"> 9096 </span> 68/push 0/imm32 -<span id="L9097" class="LineNr"> 9097 </span> 68/push 0/imm32 -<span id="L9098" class="LineNr"> 9098 </span> 89/<- %edx 4/r32/esp -<span id="L9099" class="LineNr"> 9099 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9100" class="LineNr"> 9100 </span> <span class="subxComment">#</span> -<span id="L9101" class="LineNr"> 9101 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9102" class="LineNr"> 9102 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9103" class="LineNr"> 9103 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare\n"</span>) -<span id="L9104" class="LineNr"> 9104 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9105" class="LineNr"> 9105 </span> <span class="subxComment"># convert</span> -<span id="L9106" class="LineNr"> 9106 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9107" class="LineNr"> 9107 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9108" class="LineNr"> 9108 </span> <span class="subxComment"># restore ed</span> -<span id="L9109" class="LineNr"> 9109 </span> 89/<- %edx 4/r32/esp -<span id="L9110" class="LineNr"> 9110 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9111" class="LineNr"> 9111 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9112" class="Folded"> 9112 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9118" class="LineNr"> 9118 </span> <span class="subxComment"># check output</span> -<span id="L9119" class="LineNr"> 9119 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9084'>test-compare-with-no-inout</a>: output should be empty"</span>) -<span id="L9120" class="LineNr"> 9120 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9084'>test-compare-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9121" class="LineNr"> 9121 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9122" class="LineNr"> 9122 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9084'>test-compare-with-no-inout</a>: exit status"</span>) -<span id="L9123" class="LineNr"> 9123 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9124" class="LineNr"> 9124 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9125" class="LineNr"> 9125 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9126" class="LineNr"> 9126 </span> 5d/pop-to-ebp -<span id="L9127" class="LineNr"> 9127 </span> c3/return -<span id="L9128" class="LineNr"> 9128 </span> -<span id="L9129" class="LineNr"> 9129 </span><span class="subxTest">test-compare-with-just-one-inout</span>: -<span id="L9130" class="LineNr"> 9130 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9131" class="LineNr"> 9131 </span> 55/push-ebp -<span id="L9132" class="LineNr"> 9132 </span> 89/<- %ebp 4/r32/esp -<span id="L9133" class="LineNr"> 9133 </span> <span class="subxComment"># setup</span> -<span id="L9134" class="LineNr"> 9134 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9135" class="LineNr"> 9135 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9136" class="LineNr"> 9136 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9137" class="LineNr"> 9137 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9138" class="LineNr"> 9138 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9139" class="LineNr"> 9139 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9140" class="LineNr"> 9140 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9141" class="LineNr"> 9141 </span> 68/push 0/imm32 -<span id="L9142" class="LineNr"> 9142 </span> 68/push 0/imm32 -<span id="L9143" class="LineNr"> 9143 </span> 89/<- %edx 4/r32/esp -<span id="L9144" class="LineNr"> 9144 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9145" class="LineNr"> 9145 </span> <span class="subxComment">#</span> -<span id="L9146" class="LineNr"> 9146 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9147" class="LineNr"> 9147 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9148" class="LineNr"> 9148 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x\n"</span>) -<span id="L9149" class="LineNr"> 9149 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9150" class="LineNr"> 9150 </span> <span class="subxComment"># convert</span> -<span id="L9151" class="LineNr"> 9151 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9152" class="LineNr"> 9152 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9153" class="LineNr"> 9153 </span> <span class="subxComment"># restore ed</span> -<span id="L9154" class="LineNr"> 9154 </span> 89/<- %edx 4/r32/esp -<span id="L9155" class="LineNr"> 9155 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9156" class="LineNr"> 9156 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9157" class="Folded"> 9157 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9163" class="LineNr"> 9163 </span> <span class="subxComment"># check output</span> -<span id="L9164" class="LineNr"> 9164 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9129'>test-compare-with-just-one-inout</a>: output should be empty"</span>) -<span id="L9165" class="LineNr"> 9165 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9129'>test-compare-with-just-one-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9166" class="LineNr"> 9166 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9167" class="LineNr"> 9167 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9129'>test-compare-with-just-one-inout</a>: exit status"</span>) -<span id="L9168" class="LineNr"> 9168 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9169" class="LineNr"> 9169 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9170" class="LineNr"> 9170 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9171" class="LineNr"> 9171 </span> 5d/pop-to-ebp -<span id="L9172" class="LineNr"> 9172 </span> c3/return -<span id="L9173" class="LineNr"> 9173 </span> -<span id="L9174" class="LineNr"> 9174 </span><span class="subxTest">test-compare-with-too-many-inouts</span>: -<span id="L9175" class="LineNr"> 9175 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9176" class="LineNr"> 9176 </span> 55/push-ebp -<span id="L9177" class="LineNr"> 9177 </span> 89/<- %ebp 4/r32/esp -<span id="L9178" class="LineNr"> 9178 </span> <span class="subxComment"># setup</span> -<span id="L9179" class="LineNr"> 9179 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9180" class="LineNr"> 9180 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9181" class="LineNr"> 9181 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9182" class="LineNr"> 9182 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9183" class="LineNr"> 9183 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9184" class="LineNr"> 9184 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9185" class="LineNr"> 9185 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9186" class="LineNr"> 9186 </span> 68/push 0/imm32 -<span id="L9187" class="LineNr"> 9187 </span> 68/push 0/imm32 -<span id="L9188" class="LineNr"> 9188 </span> 89/<- %edx 4/r32/esp -<span id="L9189" class="LineNr"> 9189 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9190" class="LineNr"> 9190 </span> <span class="subxComment">#</span> -<span id="L9191" class="LineNr"> 9191 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9192" class="LineNr"> 9192 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9193" class="LineNr"> 9193 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0, 0\n"</span>) -<span id="L9194" class="LineNr"> 9194 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9195" class="LineNr"> 9195 </span> <span class="subxComment"># convert</span> -<span id="L9196" class="LineNr"> 9196 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9197" class="LineNr"> 9197 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9198" class="LineNr"> 9198 </span> <span class="subxComment"># restore ed</span> -<span id="L9199" class="LineNr"> 9199 </span> 89/<- %edx 4/r32/esp -<span id="L9200" class="LineNr"> 9200 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9201" class="LineNr"> 9201 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9202" class="Folded"> 9202 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9208" class="LineNr"> 9208 </span> <span class="subxComment"># check output</span> -<span id="L9209" class="LineNr"> 9209 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9174'>test-compare-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L9210" class="LineNr"> 9210 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9174'>test-compare-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9211" class="LineNr"> 9211 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9212" class="LineNr"> 9212 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9174'>test-compare-with-too-many-inouts</a>: exit status"</span>) -<span id="L9213" class="LineNr"> 9213 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9214" class="LineNr"> 9214 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9215" class="LineNr"> 9215 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9216" class="LineNr"> 9216 </span> 5d/pop-to-ebp -<span id="L9217" class="LineNr"> 9217 </span> c3/return -<span id="L9218" class="LineNr"> 9218 </span> -<span id="L9219" class="LineNr"> 9219 </span><span class="subxTest">test-compare-with-output</span>: -<span id="L9220" class="LineNr"> 9220 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9221" class="LineNr"> 9221 </span> 55/push-ebp -<span id="L9222" class="LineNr"> 9222 </span> 89/<- %ebp 4/r32/esp -<span id="L9223" class="LineNr"> 9223 </span> <span class="subxComment"># setup</span> -<span id="L9224" class="LineNr"> 9224 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9225" class="LineNr"> 9225 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9226" class="LineNr"> 9226 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9227" class="LineNr"> 9227 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9228" class="LineNr"> 9228 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9229" class="LineNr"> 9229 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9230" class="LineNr"> 9230 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9231" class="LineNr"> 9231 </span> 68/push 0/imm32 -<span id="L9232" class="LineNr"> 9232 </span> 68/push 0/imm32 -<span id="L9233" class="LineNr"> 9233 </span> 89/<- %edx 4/r32/esp -<span id="L9234" class="LineNr"> 9234 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9235" class="LineNr"> 9235 </span> <span class="subxComment">#</span> -<span id="L9236" class="LineNr"> 9236 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9237" class="LineNr"> 9237 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L9238" class="LineNr"> 9238 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L9239" class="LineNr"> 9239 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- compare y, 0\n"</span>) -<span id="L9240" class="LineNr"> 9240 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9241" class="LineNr"> 9241 </span> <span class="subxComment"># convert</span> -<span id="L9242" class="LineNr"> 9242 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9243" class="LineNr"> 9243 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9244" class="LineNr"> 9244 </span> <span class="subxComment"># restore ed</span> -<span id="L9245" class="LineNr"> 9245 </span> 89/<- %edx 4/r32/esp -<span id="L9246" class="LineNr"> 9246 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9247" class="LineNr"> 9247 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9248" class="Folded"> 9248 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9254" class="LineNr"> 9254 </span> <span class="subxComment"># check output</span> -<span id="L9255" class="LineNr"> 9255 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9219'>test-compare-with-output</a>: output should be empty"</span>) -<span id="L9256" class="LineNr"> 9256 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L9219'>test-compare-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9257" class="LineNr"> 9257 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9258" class="LineNr"> 9258 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9219'>test-compare-with-output</a>: exit status"</span>) -<span id="L9259" class="LineNr"> 9259 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9260" class="LineNr"> 9260 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9261" class="LineNr"> 9261 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9262" class="LineNr"> 9262 </span> 5d/pop-to-ebp -<span id="L9263" class="LineNr"> 9263 </span> c3/return -<span id="L9264" class="LineNr"> 9264 </span> -<span id="L9265" class="LineNr"> 9265 </span><span class="subxTest">test-compare-invalid-value-to-address</span>: -<span id="L9266" class="LineNr"> 9266 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9267" class="LineNr"> 9267 </span> 55/push-ebp -<span id="L9268" class="LineNr"> 9268 </span> 89/<- %ebp 4/r32/esp -<span id="L9269" class="LineNr"> 9269 </span> <span class="subxComment"># setup</span> -<span id="L9270" class="LineNr"> 9270 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9271" class="LineNr"> 9271 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9272" class="LineNr"> 9272 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9273" class="LineNr"> 9273 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9274" class="LineNr"> 9274 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9275" class="LineNr"> 9275 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9276" class="LineNr"> 9276 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9277" class="LineNr"> 9277 </span> 68/push 0/imm32 -<span id="L9278" class="LineNr"> 9278 </span> 68/push 0/imm32 -<span id="L9279" class="LineNr"> 9279 </span> 89/<- %edx 4/r32/esp -<span id="L9280" class="LineNr"> 9280 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9281" class="LineNr"> 9281 </span> <span class="subxComment">#</span> -<span id="L9282" class="LineNr"> 9282 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9283" class="LineNr"> 9283 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L9284" class="LineNr"> 9284 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) -<span id="L9285" class="LineNr"> 9285 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) -<span id="L9286" class="LineNr"> 9286 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9287" class="LineNr"> 9287 </span> <span class="subxComment"># convert</span> -<span id="L9288" class="LineNr"> 9288 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9289" class="LineNr"> 9289 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9290" class="LineNr"> 9290 </span> <span class="subxComment"># restore ed</span> -<span id="L9291" class="LineNr"> 9291 </span> 89/<- %edx 4/r32/esp -<span id="L9292" class="LineNr"> 9292 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9293" class="LineNr"> 9293 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9294" class="Folded"> 9294 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9300" class="LineNr"> 9300 </span> <span class="subxComment"># check output</span> -<span id="L9301" class="LineNr"> 9301 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9265'>test-compare-invalid-value-to-address</a>: output should be empty"</span>) -<span id="L9302" class="LineNr"> 9302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L9265'>test-compare-invalid-value-to-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9303" class="LineNr"> 9303 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9304" class="LineNr"> 9304 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9265'>test-compare-invalid-value-to-address</a>: exit status"</span>) -<span id="L9305" class="LineNr"> 9305 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9306" class="LineNr"> 9306 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9307" class="LineNr"> 9307 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9308" class="LineNr"> 9308 </span> 5d/pop-to-ebp -<span id="L9309" class="LineNr"> 9309 </span> c3/return -<span id="L9310" class="LineNr"> 9310 </span> -<span id="L9311" class="LineNr"> 9311 </span><span class="subxTest">test-compare-address</span>: -<span id="L9312" class="LineNr"> 9312 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9313" class="LineNr"> 9313 </span> 55/push-ebp -<span id="L9314" class="LineNr"> 9314 </span> 89/<- %ebp 4/r32/esp -<span id="L9315" class="LineNr"> 9315 </span> <span class="subxComment"># setup</span> -<span id="L9316" class="LineNr"> 9316 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9317" class="LineNr"> 9317 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9318" class="LineNr"> 9318 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9319" class="LineNr"> 9319 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9320" class="LineNr"> 9320 </span> <span class="subxComment">#</span> -<span id="L9321" class="LineNr"> 9321 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9322" class="LineNr"> 9322 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L9323" class="LineNr"> 9323 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L9324" class="LineNr"> 9324 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) -<span id="L9325" class="LineNr"> 9325 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9326" class="LineNr"> 9326 </span> <span class="subxComment"># convert</span> -<span id="L9327" class="LineNr"> 9327 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9328" class="LineNr"> 9328 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9329" class="LineNr"> 9329 </span> <span class="subxComment"># no errors</span> -<span id="L9330" class="LineNr"> 9330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9331" class="LineNr"> 9331 </span> 5d/pop-to-ebp -<span id="L9332" class="LineNr"> 9332 </span> c3/return -<span id="L9333" class="LineNr"> 9333 </span> -<span id="L9334" class="LineNr"> 9334 </span><span class="subxTest">test-compare-deref-address</span>: -<span id="L9335" class="LineNr"> 9335 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9336" class="LineNr"> 9336 </span> 55/push-ebp -<span id="L9337" class="LineNr"> 9337 </span> 89/<- %ebp 4/r32/esp -<span id="L9338" class="LineNr"> 9338 </span> <span class="subxComment"># setup</span> -<span id="L9339" class="LineNr"> 9339 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9340" class="LineNr"> 9340 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9341" class="LineNr"> 9341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9342" class="LineNr"> 9342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9343" class="LineNr"> 9343 </span> <span class="subxComment">#</span> -<span id="L9344" class="LineNr"> 9344 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9345" class="LineNr"> 9345 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L9346" class="LineNr"> 9346 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) -<span id="L9347" class="LineNr"> 9347 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare *y, x\n"</span>) -<span id="L9348" class="LineNr"> 9348 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9349" class="LineNr"> 9349 </span> <span class="subxComment"># convert</span> -<span id="L9350" class="LineNr"> 9350 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9351" class="LineNr"> 9351 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9352" class="LineNr"> 9352 </span> <span class="subxComment"># no errors</span> -<span id="L9353" class="LineNr"> 9353 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9354" class="LineNr"> 9354 </span> 5d/pop-to-ebp -<span id="L9355" class="LineNr"> 9355 </span> c3/return -<span id="L9356" class="LineNr"> 9356 </span> -<span id="L9357" class="LineNr"> 9357 </span><span class="subxTest">test-compare-two-vars-in-memory</span>: -<span id="L9358" class="LineNr"> 9358 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9359" class="LineNr"> 9359 </span> 55/push-ebp -<span id="L9360" class="LineNr"> 9360 </span> 89/<- %ebp 4/r32/esp -<span id="L9361" class="LineNr"> 9361 </span> <span class="subxComment"># setup</span> -<span id="L9362" class="LineNr"> 9362 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9363" class="LineNr"> 9363 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9364" class="LineNr"> 9364 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9365" class="LineNr"> 9365 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9366" class="LineNr"> 9366 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9367" class="LineNr"> 9367 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9368" class="LineNr"> 9368 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9369" class="LineNr"> 9369 </span> 68/push 0/imm32 -<span id="L9370" class="LineNr"> 9370 </span> 68/push 0/imm32 -<span id="L9371" class="LineNr"> 9371 </span> 89/<- %edx 4/r32/esp -<span id="L9372" class="LineNr"> 9372 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9373" class="LineNr"> 9373 </span> <span class="subxComment">#</span> -<span id="L9374" class="LineNr"> 9374 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9375" class="LineNr"> 9375 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L9376" class="LineNr"> 9376 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, x\n"</span>) -<span id="L9377" class="LineNr"> 9377 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9378" class="LineNr"> 9378 </span> <span class="subxComment"># convert</span> -<span id="L9379" class="LineNr"> 9379 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9380" class="LineNr"> 9380 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9381" class="LineNr"> 9381 </span> <span class="subxComment"># restore ed</span> -<span id="L9382" class="LineNr"> 9382 </span> 89/<- %edx 4/r32/esp -<span id="L9383" class="LineNr"> 9383 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9384" class="LineNr"> 9384 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9385" class="Folded"> 9385 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9391" class="LineNr"> 9391 </span> <span class="subxComment"># check output</span> -<span id="L9392" class="LineNr"> 9392 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9357'>test-compare-two-vars-in-memory</a>: output should be empty"</span>) -<span id="L9393" class="LineNr"> 9393 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9357'>test-compare-two-vars-in-memory</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9394" class="LineNr"> 9394 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9395" class="LineNr"> 9395 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9357'>test-compare-two-vars-in-memory</a>: exit status"</span>) -<span id="L9396" class="LineNr"> 9396 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9397" class="LineNr"> 9397 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9398" class="LineNr"> 9398 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9399" class="LineNr"> 9399 </span> 5d/pop-to-ebp -<span id="L9400" class="LineNr"> 9400 </span> c3/return -<span id="L9401" class="LineNr"> 9401 </span> -<span id="L9402" class="LineNr"> 9402 </span><span class="subxTest">test-compare-non-scalar</span>: -<span id="L9403" class="LineNr"> 9403 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9404" class="LineNr"> 9404 </span> 55/push-ebp -<span id="L9405" class="LineNr"> 9405 </span> 89/<- %ebp 4/r32/esp -<span id="L9406" class="LineNr"> 9406 </span> <span class="subxComment"># setup</span> -<span id="L9407" class="LineNr"> 9407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9408" class="LineNr"> 9408 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9409" class="LineNr"> 9409 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9410" class="LineNr"> 9410 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9411" class="LineNr"> 9411 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9412" class="LineNr"> 9412 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9413" class="LineNr"> 9413 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9414" class="LineNr"> 9414 </span> 68/push 0/imm32 -<span id="L9415" class="LineNr"> 9415 </span> 68/push 0/imm32 -<span id="L9416" class="LineNr"> 9416 </span> 89/<- %edx 4/r32/esp -<span id="L9417" class="LineNr"> 9417 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9418" class="LineNr"> 9418 </span> <span class="subxComment">#</span> -<span id="L9419" class="LineNr"> 9419 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9420" class="LineNr"> 9420 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) -<span id="L9421" class="LineNr"> 9421 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L9422" class="LineNr"> 9422 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) -<span id="L9423" class="LineNr"> 9423 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9424" class="LineNr"> 9424 </span> <span class="subxComment"># convert</span> -<span id="L9425" class="LineNr"> 9425 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9426" class="LineNr"> 9426 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9427" class="LineNr"> 9427 </span> <span class="subxComment"># restore ed</span> -<span id="L9428" class="LineNr"> 9428 </span> 89/<- %edx 4/r32/esp -<span id="L9429" class="LineNr"> 9429 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9430" class="LineNr"> 9430 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9431" class="Folded"> 9431 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9437" class="LineNr"> 9437 </span> <span class="subxComment"># check output</span> -<span id="L9438" class="LineNr"> 9438 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9402'>test-compare-non-scalar</a>: output should be empty"</span>) -<span id="L9439" class="LineNr"> 9439 </span><span class="CommentedCode">#? (check-next-stream-line-equal _test-error-stream "fn foo: stmt compare: 'x' is too large to compare" "F - test-compare-non-scalar: error message")</span> -<span id="L9440" class="LineNr"> 9440 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9402'>test-compare-non-scalar</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9441" class="LineNr"> 9441 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9442" class="LineNr"> 9442 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9402'>test-compare-non-scalar</a>: exit status"</span>) -<span id="L9443" class="LineNr"> 9443 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9444" class="LineNr"> 9444 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9445" class="LineNr"> 9445 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9446" class="LineNr"> 9446 </span> 5d/pop-to-ebp -<span id="L9447" class="LineNr"> 9447 </span> c3/return -<span id="L9448" class="LineNr"> 9448 </span> -<span id="L9449" class="LineNr"> 9449 </span><span class="subxTest">test-address-with-no-inout</span>: -<span id="L9450" class="LineNr"> 9450 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9451" class="LineNr"> 9451 </span> 55/push-ebp -<span id="L9452" class="LineNr"> 9452 </span> 89/<- %ebp 4/r32/esp -<span id="L9453" class="LineNr"> 9453 </span> <span class="subxComment"># setup</span> -<span id="L9454" class="LineNr"> 9454 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9455" class="LineNr"> 9455 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9456" class="LineNr"> 9456 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9457" class="LineNr"> 9457 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9458" class="LineNr"> 9458 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9459" class="LineNr"> 9459 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9460" class="LineNr"> 9460 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9461" class="LineNr"> 9461 </span> 68/push 0/imm32 -<span id="L9462" class="LineNr"> 9462 </span> 68/push 0/imm32 -<span id="L9463" class="LineNr"> 9463 </span> 89/<- %edx 4/r32/esp -<span id="L9464" class="LineNr"> 9464 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9465" class="LineNr"> 9465 </span> <span class="subxComment">#</span> -<span id="L9466" class="LineNr"> 9466 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9467" class="LineNr"> 9467 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address\n"</span>) -<span id="L9468" class="LineNr"> 9468 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9469" class="LineNr"> 9469 </span> <span class="subxComment"># convert</span> -<span id="L9470" class="LineNr"> 9470 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9471" class="LineNr"> 9471 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9472" class="LineNr"> 9472 </span> <span class="subxComment"># restore ed</span> -<span id="L9473" class="LineNr"> 9473 </span> 89/<- %edx 4/r32/esp -<span id="L9474" class="LineNr"> 9474 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9475" class="LineNr"> 9475 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9476" class="Folded"> 9476 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9482" class="LineNr"> 9482 </span> <span class="subxComment"># check output</span> -<span id="L9483" class="LineNr"> 9483 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9449'>test-address-with-no-inout</a>: output should be empty"</span>) -<span id="L9484" class="LineNr"> 9484 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9449'>test-address-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9485" class="LineNr"> 9485 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9486" class="LineNr"> 9486 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9449'>test-address-with-no-inout</a>: exit status"</span>) -<span id="L9487" class="LineNr"> 9487 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9488" class="LineNr"> 9488 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9489" class="LineNr"> 9489 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9490" class="LineNr"> 9490 </span> 5d/pop-to-ebp -<span id="L9491" class="LineNr"> 9491 </span> c3/return -<span id="L9492" class="LineNr"> 9492 </span> -<span id="L9493" class="LineNr"> 9493 </span><span class="subxTest">test-address-with-multiple-inouts</span>: -<span id="L9494" class="LineNr"> 9494 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9495" class="LineNr"> 9495 </span> 55/push-ebp -<span id="L9496" class="LineNr"> 9496 </span> 89/<- %ebp 4/r32/esp -<span id="L9497" class="LineNr"> 9497 </span> <span class="subxComment"># setup</span> -<span id="L9498" class="LineNr"> 9498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9499" class="LineNr"> 9499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9500" class="LineNr"> 9500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9501" class="LineNr"> 9501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9502" class="LineNr"> 9502 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9503" class="LineNr"> 9503 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9504" class="LineNr"> 9504 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9505" class="LineNr"> 9505 </span> 68/push 0/imm32 -<span id="L9506" class="LineNr"> 9506 </span> 68/push 0/imm32 -<span id="L9507" class="LineNr"> 9507 </span> 89/<- %edx 4/r32/esp -<span id="L9508" class="LineNr"> 9508 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9509" class="LineNr"> 9509 </span> <span class="subxComment">#</span> -<span id="L9510" class="LineNr"> 9510 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9511" class="LineNr"> 9511 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address 0, 0\n"</span>) -<span id="L9512" class="LineNr"> 9512 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9513" class="LineNr"> 9513 </span> <span class="subxComment"># convert</span> -<span id="L9514" class="LineNr"> 9514 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9515" class="LineNr"> 9515 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9516" class="LineNr"> 9516 </span> <span class="subxComment"># restore ed</span> -<span id="L9517" class="LineNr"> 9517 </span> 89/<- %edx 4/r32/esp -<span id="L9518" class="LineNr"> 9518 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9519" class="LineNr"> 9519 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9520" class="Folded"> 9520 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9526" class="LineNr"> 9526 </span> <span class="subxComment"># check output</span> -<span id="L9527" class="LineNr"> 9527 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9493'>test-address-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L9528" class="LineNr"> 9528 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9493'>test-address-with-multiple-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9529" class="LineNr"> 9529 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9530" class="LineNr"> 9530 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9493'>test-address-with-multiple-inouts</a>: exit status"</span>) -<span id="L9531" class="LineNr"> 9531 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9532" class="LineNr"> 9532 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9533" class="LineNr"> 9533 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9534" class="LineNr"> 9534 </span> 5d/pop-to-ebp -<span id="L9535" class="LineNr"> 9535 </span> c3/return -<span id="L9536" class="LineNr"> 9536 </span> -<span id="L9537" class="LineNr"> 9537 </span><span class="subxTest">test-address-with-no-output</span>: -<span id="L9538" class="LineNr"> 9538 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9539" class="LineNr"> 9539 </span> 55/push-ebp -<span id="L9540" class="LineNr"> 9540 </span> 89/<- %ebp 4/r32/esp -<span id="L9541" class="LineNr"> 9541 </span> <span class="subxComment"># setup</span> -<span id="L9542" class="LineNr"> 9542 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9543" class="LineNr"> 9543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9544" class="LineNr"> 9544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9545" class="LineNr"> 9545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9546" class="LineNr"> 9546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9547" class="LineNr"> 9547 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9548" class="LineNr"> 9548 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9549" class="LineNr"> 9549 </span> 68/push 0/imm32 -<span id="L9550" class="LineNr"> 9550 </span> 68/push 0/imm32 -<span id="L9551" class="LineNr"> 9551 </span> 89/<- %edx 4/r32/esp -<span id="L9552" class="LineNr"> 9552 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9553" class="LineNr"> 9553 </span> <span class="subxComment">#</span> -<span id="L9554" class="LineNr"> 9554 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9555" class="LineNr"> 9555 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" address 0\n"</span>) -<span id="L9556" class="LineNr"> 9556 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9557" class="LineNr"> 9557 </span> <span class="subxComment"># convert</span> -<span id="L9558" class="LineNr"> 9558 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9559" class="LineNr"> 9559 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9560" class="LineNr"> 9560 </span> <span class="subxComment"># restore ed</span> -<span id="L9561" class="LineNr"> 9561 </span> 89/<- %edx 4/r32/esp -<span id="L9562" class="LineNr"> 9562 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9563" class="LineNr"> 9563 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9564" class="Folded"> 9564 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9570" class="LineNr"> 9570 </span> <span class="subxComment"># check output</span> -<span id="L9571" class="LineNr"> 9571 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9537'>test-address-with-no-output</a>: output should be empty"</span>) -<span id="L9572" class="LineNr"> 9572 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9537'>test-address-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9573" class="LineNr"> 9573 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9574" class="LineNr"> 9574 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9537'>test-address-with-no-output</a>: exit status"</span>) -<span id="L9575" class="LineNr"> 9575 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9576" class="LineNr"> 9576 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9577" class="LineNr"> 9577 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9578" class="LineNr"> 9578 </span> 5d/pop-to-ebp -<span id="L9579" class="LineNr"> 9579 </span> c3/return -<span id="L9580" class="LineNr"> 9580 </span> -<span id="L9581" class="LineNr"> 9581 </span><span class="subxTest">test-address-with-multiple-outputs</span>: -<span id="L9582" class="LineNr"> 9582 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9583" class="LineNr"> 9583 </span> 55/push-ebp -<span id="L9584" class="LineNr"> 9584 </span> 89/<- %ebp 4/r32/esp -<span id="L9585" class="LineNr"> 9585 </span> <span class="subxComment"># setup</span> -<span id="L9586" class="LineNr"> 9586 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9587" class="LineNr"> 9587 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9588" class="LineNr"> 9588 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9589" class="LineNr"> 9589 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9590" class="LineNr"> 9590 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9591" class="LineNr"> 9591 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9592" class="LineNr"> 9592 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9593" class="LineNr"> 9593 </span> 68/push 0/imm32 -<span id="L9594" class="LineNr"> 9594 </span> 68/push 0/imm32 -<span id="L9595" class="LineNr"> 9595 </span> 89/<- %edx 4/r32/esp -<span id="L9596" class="LineNr"> 9596 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9597" class="LineNr"> 9597 </span> <span class="subxComment">#</span> -<span id="L9598" class="LineNr"> 9598 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9599" class="LineNr"> 9599 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L9600" class="LineNr"> 9600 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) -<span id="L9601" class="LineNr"> 9601 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- address 0\n"</span>) -<span id="L9602" class="LineNr"> 9602 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9603" class="LineNr"> 9603 </span> <span class="subxComment"># convert</span> -<span id="L9604" class="LineNr"> 9604 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9605" class="LineNr"> 9605 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9606" class="LineNr"> 9606 </span> <span class="subxComment"># restore ed</span> -<span id="L9607" class="LineNr"> 9607 </span> 89/<- %edx 4/r32/esp -<span id="L9608" class="LineNr"> 9608 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9609" class="LineNr"> 9609 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9610" class="Folded"> 9610 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9616" class="LineNr"> 9616 </span> <span class="subxComment"># check output</span> -<span id="L9617" class="LineNr"> 9617 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9581'>test-address-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L9618" class="LineNr"> 9618 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9581'>test-address-with-multiple-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9619" class="LineNr"> 9619 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9620" class="LineNr"> 9620 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9581'>test-address-with-multiple-outputs</a>: exit status"</span>) -<span id="L9621" class="LineNr"> 9621 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9622" class="LineNr"> 9622 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9623" class="LineNr"> 9623 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9624" class="LineNr"> 9624 </span> 5d/pop-to-ebp -<span id="L9625" class="LineNr"> 9625 </span> c3/return -<span id="L9626" class="LineNr"> 9626 </span> -<span id="L9627" class="LineNr"> 9627 </span><span class="subxComment"># silly but it works</span> -<span id="L9628" class="LineNr"> 9628 </span><span class="subxTest">test-address-of-deref</span>: -<span id="L9629" class="LineNr"> 9629 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9630" class="LineNr"> 9630 </span> 55/push-ebp -<span id="L9631" class="LineNr"> 9631 </span> 89/<- %ebp 4/r32/esp -<span id="L9632" class="LineNr"> 9632 </span> <span class="subxComment"># setup</span> -<span id="L9633" class="LineNr"> 9633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9634" class="LineNr"> 9634 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9635" class="LineNr"> 9635 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9636" class="LineNr"> 9636 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9637" class="LineNr"> 9637 </span> <span class="subxComment">#</span> -<span id="L9638" class="LineNr"> 9638 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9639" class="LineNr"> 9639 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L9640" class="LineNr"> 9640 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- address *x\n"</span>) -<span id="L9641" class="LineNr"> 9641 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9642" class="LineNr"> 9642 </span> <span class="subxComment"># convert</span> -<span id="L9643" class="LineNr"> 9643 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9644" class="LineNr"> 9644 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9645" class="LineNr"> 9645 </span> <span class="subxComment"># no errors</span> -<span id="L9646" class="LineNr"> 9646 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9647" class="LineNr"> 9647 </span> 5d/pop-to-ebp -<span id="L9648" class="LineNr"> 9648 </span> c3/return -<span id="L9649" class="LineNr"> 9649 </span> -<span id="L9650" class="LineNr"> 9650 </span><span class="subxTest">test-address-to-non-register</span>: -<span id="L9651" class="LineNr"> 9651 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9652" class="LineNr"> 9652 </span> 55/push-ebp -<span id="L9653" class="LineNr"> 9653 </span> 89/<- %ebp 4/r32/esp -<span id="L9654" class="LineNr"> 9654 </span> <span class="subxComment"># setup</span> -<span id="L9655" class="LineNr"> 9655 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9656" class="LineNr"> 9656 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9657" class="LineNr"> 9657 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9658" class="LineNr"> 9658 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9659" class="LineNr"> 9659 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9660" class="LineNr"> 9660 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9661" class="LineNr"> 9661 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9662" class="LineNr"> 9662 </span> 68/push 0/imm32 -<span id="L9663" class="LineNr"> 9663 </span> 68/push 0/imm32 -<span id="L9664" class="LineNr"> 9664 </span> 89/<- %edx 4/r32/esp -<span id="L9665" class="LineNr"> 9665 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9666" class="LineNr"> 9666 </span> <span class="subxComment">#</span> -<span id="L9667" class="LineNr"> 9667 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9668" class="LineNr"> 9668 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L9669" class="LineNr"> 9669 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- address 0\n"</span>) -<span id="L9670" class="LineNr"> 9670 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9671" class="LineNr"> 9671 </span> <span class="subxComment"># convert</span> -<span id="L9672" class="LineNr"> 9672 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9673" class="LineNr"> 9673 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9674" class="LineNr"> 9674 </span> <span class="subxComment"># restore ed</span> -<span id="L9675" class="LineNr"> 9675 </span> 89/<- %edx 4/r32/esp -<span id="L9676" class="LineNr"> 9676 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9677" class="LineNr"> 9677 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9678" class="Folded"> 9678 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9684" class="LineNr"> 9684 </span> <span class="subxComment"># check output</span> -<span id="L9685" class="LineNr"> 9685 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9650'>test-address-to-non-register</a>: output should be empty"</span>) -<span id="L9686" class="LineNr"> 9686 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9650'>test-address-to-non-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9687" class="LineNr"> 9687 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9688" class="LineNr"> 9688 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9650'>test-address-to-non-register</a>: exit status"</span>) -<span id="L9689" class="LineNr"> 9689 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9690" class="LineNr"> 9690 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9691" class="LineNr"> 9691 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9692" class="LineNr"> 9692 </span> 5d/pop-to-ebp -<span id="L9693" class="LineNr"> 9693 </span> c3/return -<span id="L9694" class="LineNr"> 9694 </span> -<span id="L9695" class="LineNr"> 9695 </span><span class="subxTest">test-address-with-wrong-type</span>: -<span id="L9696" class="LineNr"> 9696 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9697" class="LineNr"> 9697 </span> 55/push-ebp -<span id="L9698" class="LineNr"> 9698 </span> 89/<- %ebp 4/r32/esp -<span id="L9699" class="LineNr"> 9699 </span> <span class="subxComment"># setup</span> -<span id="L9700" class="LineNr"> 9700 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9701" class="LineNr"> 9701 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9702" class="LineNr"> 9702 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9703" class="LineNr"> 9703 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9704" class="LineNr"> 9704 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9705" class="LineNr"> 9705 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9706" class="LineNr"> 9706 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9707" class="LineNr"> 9707 </span> 68/push 0/imm32 -<span id="L9708" class="LineNr"> 9708 </span> 68/push 0/imm32 -<span id="L9709" class="LineNr"> 9709 </span> 89/<- %edx 4/r32/esp -<span id="L9710" class="LineNr"> 9710 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9711" class="LineNr"> 9711 </span> <span class="subxComment">#</span> -<span id="L9712" class="LineNr"> 9712 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9713" class="LineNr"> 9713 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L9714" class="LineNr"> 9714 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr boolean) <- address x\n"</span>) -<span id="L9715" class="LineNr"> 9715 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9716" class="LineNr"> 9716 </span> <span class="subxComment"># convert</span> -<span id="L9717" class="LineNr"> 9717 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9718" class="LineNr"> 9718 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9719" class="LineNr"> 9719 </span> <span class="subxComment"># restore ed</span> -<span id="L9720" class="LineNr"> 9720 </span> 89/<- %edx 4/r32/esp -<span id="L9721" class="LineNr"> 9721 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9722" class="LineNr"> 9722 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9723" class="Folded"> 9723 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9729" class="LineNr"> 9729 </span> <span class="subxComment"># check output</span> -<span id="L9730" class="LineNr"> 9730 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9695'>test-address-with-wrong-type</a>: output should be empty"</span>) -<span id="L9731" class="LineNr"> 9731 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'y' cannot hold address of 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9695'>test-address-with-wrong-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9732" class="LineNr"> 9732 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9733" class="LineNr"> 9733 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9695'>test-address-with-wrong-type</a>: exit status"</span>) -<span id="L9734" class="LineNr"> 9734 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9735" class="LineNr"> 9735 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9736" class="LineNr"> 9736 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9737" class="LineNr"> 9737 </span> 5d/pop-to-ebp -<span id="L9738" class="LineNr"> 9738 </span> c3/return -<span id="L9739" class="LineNr"> 9739 </span> -<span id="L9740" class="LineNr"> 9740 </span><span class="subxTest">test-address-with-right-type-for-array</span>: -<span id="L9741" class="LineNr"> 9741 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9742" class="LineNr"> 9742 </span> 55/push-ebp -<span id="L9743" class="LineNr"> 9743 </span> 89/<- %ebp 4/r32/esp -<span id="L9744" class="LineNr"> 9744 </span> <span class="subxComment"># setup</span> -<span id="L9745" class="LineNr"> 9745 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9746" class="LineNr"> 9746 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9747" class="LineNr"> 9747 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9748" class="LineNr"> 9748 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9749" class="LineNr"> 9749 </span> <span class="subxComment">#</span> -<span id="L9750" class="LineNr"> 9750 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9751" class="LineNr"> 9751 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3)\n"</span>) -<span id="L9752" class="LineNr"> 9752 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr array int) <- address x\n"</span>) -<span id="L9753" class="LineNr"> 9753 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9754" class="LineNr"> 9754 </span> <span class="subxComment"># convert</span> -<span id="L9755" class="LineNr"> 9755 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9756" class="LineNr"> 9756 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9757" class="LineNr"> 9757 </span> <span class="subxComment"># no errors</span> -<span id="L9758" class="LineNr"> 9758 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9759" class="LineNr"> 9759 </span> 89/<- %esp 5/r32/ebp -<span id="L9760" class="LineNr"> 9760 </span> 5d/pop-to-ebp -<span id="L9761" class="LineNr"> 9761 </span> c3/return -<span id="L9762" class="LineNr"> 9762 </span> -<span id="L9763" class="LineNr"> 9763 </span><span class="subxTest">test-address-with-right-type-for-stream</span>: -<span id="L9764" class="LineNr"> 9764 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9765" class="LineNr"> 9765 </span> 55/push-ebp -<span id="L9766" class="LineNr"> 9766 </span> 89/<- %ebp 4/r32/esp -<span id="L9767" class="LineNr"> 9767 </span> <span class="subxComment"># setup</span> -<span id="L9768" class="LineNr"> 9768 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9769" class="LineNr"> 9769 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9770" class="LineNr"> 9770 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9771" class="LineNr"> 9771 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9772" class="LineNr"> 9772 </span> <span class="subxComment">#</span> -<span id="L9773" class="LineNr"> 9773 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9774" class="LineNr"> 9774 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (stream int 3)\n"</span>) -<span id="L9775" class="LineNr"> 9775 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr stream int) <- address x\n"</span>) -<span id="L9776" class="LineNr"> 9776 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9777" class="LineNr"> 9777 </span> <span class="subxComment"># convert</span> -<span id="L9778" class="LineNr"> 9778 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L9779" class="LineNr"> 9779 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9780" class="LineNr"> 9780 </span> <span class="subxComment"># no errors</span> -<span id="L9781" class="LineNr"> 9781 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9782" class="LineNr"> 9782 </span> 89/<- %esp 5/r32/ebp -<span id="L9783" class="LineNr"> 9783 </span> 5d/pop-to-ebp -<span id="L9784" class="LineNr"> 9784 </span> c3/return -<span id="L9785" class="LineNr"> 9785 </span> -<span id="L9786" class="LineNr"> 9786 </span><span class="subxTest">test-get-with-wrong-field</span>: -<span id="L9787" class="LineNr"> 9787 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9788" class="LineNr"> 9788 </span> 55/push-ebp -<span id="L9789" class="LineNr"> 9789 </span> 89/<- %ebp 4/r32/esp -<span id="L9790" class="LineNr"> 9790 </span> <span class="subxComment"># setup</span> -<span id="L9791" class="LineNr"> 9791 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9792" class="LineNr"> 9792 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9793" class="LineNr"> 9793 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9794" class="LineNr"> 9794 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9795" class="LineNr"> 9795 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9796" class="LineNr"> 9796 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9797" class="LineNr"> 9797 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9798" class="LineNr"> 9798 </span> 68/push 0/imm32 -<span id="L9799" class="LineNr"> 9799 </span> 68/push 0/imm32 -<span id="L9800" class="LineNr"> 9800 </span> 89/<- %edx 4/r32/esp -<span id="L9801" class="LineNr"> 9801 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9802" class="LineNr"> 9802 </span> <span class="subxComment">#</span> -<span id="L9803" class="LineNr"> 9803 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9804" class="LineNr"> 9804 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L9805" class="LineNr"> 9805 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L9806" class="LineNr"> 9806 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9807" class="LineNr"> 9807 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L9808" class="LineNr"> 9808 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L9809" class="LineNr"> 9809 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9810" class="LineNr"> 9810 </span> <span class="subxComment"># convert</span> -<span id="L9811" class="LineNr"> 9811 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9812" class="LineNr"> 9812 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9813" class="LineNr"> 9813 </span> <span class="subxComment"># restore ed</span> -<span id="L9814" class="LineNr"> 9814 </span> 89/<- %edx 4/r32/esp -<span id="L9815" class="LineNr"> 9815 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9816" class="LineNr"> 9816 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9817" class="Folded"> 9817 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9823" class="LineNr"> 9823 </span> <span class="subxComment"># check output</span> -<span id="L9824" class="LineNr"> 9824 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9786'>test-get-with-wrong-field</a>: output should be empty"</span>) -<span id="L9825" class="LineNr"> 9825 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: type 't' has no member called 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9786'>test-get-with-wrong-field</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9826" class="LineNr"> 9826 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9827" class="LineNr"> 9827 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9786'>test-get-with-wrong-field</a>: exit status"</span>) -<span id="L9828" class="LineNr"> 9828 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9829" class="LineNr"> 9829 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9830" class="LineNr"> 9830 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9831" class="LineNr"> 9831 </span> 5d/pop-to-ebp -<span id="L9832" class="LineNr"> 9832 </span> c3/return -<span id="L9833" class="LineNr"> 9833 </span> -<span id="L9834" class="LineNr"> 9834 </span><span class="subxTest">test-get-with-wrong-base-type</span>: -<span id="L9835" class="LineNr"> 9835 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9836" class="LineNr"> 9836 </span> 55/push-ebp -<span id="L9837" class="LineNr"> 9837 </span> 89/<- %ebp 4/r32/esp -<span id="L9838" class="LineNr"> 9838 </span> <span class="subxComment"># setup</span> -<span id="L9839" class="LineNr"> 9839 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9840" class="LineNr"> 9840 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9841" class="LineNr"> 9841 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9842" class="LineNr"> 9842 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9843" class="LineNr"> 9843 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9844" class="LineNr"> 9844 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9845" class="LineNr"> 9845 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9846" class="LineNr"> 9846 </span> 68/push 0/imm32 -<span id="L9847" class="LineNr"> 9847 </span> 68/push 0/imm32 -<span id="L9848" class="LineNr"> 9848 </span> 89/<- %edx 4/r32/esp -<span id="L9849" class="LineNr"> 9849 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9850" class="LineNr"> 9850 </span> <span class="subxComment">#</span> -<span id="L9851" class="LineNr"> 9851 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9852" class="LineNr"> 9852 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L9853" class="LineNr"> 9853 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L9854" class="LineNr"> 9854 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9855" class="LineNr"> 9855 </span> <span class="subxComment"># convert</span> -<span id="L9856" class="LineNr"> 9856 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9857" class="LineNr"> 9857 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9858" class="LineNr"> 9858 </span> <span class="subxComment"># restore ed</span> -<span id="L9859" class="LineNr"> 9859 </span> 89/<- %edx 4/r32/esp -<span id="L9860" class="LineNr"> 9860 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9861" class="LineNr"> 9861 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9862" class="Folded"> 9862 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9868" class="LineNr"> 9868 </span> <span class="subxComment"># check output</span> -<span id="L9869" class="LineNr"> 9869 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9834'>test-get-with-wrong-base-type</a>: output should be empty"</span>) -<span id="L9870" class="LineNr"> 9870 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L9834'>test-get-with-wrong-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9871" class="LineNr"> 9871 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9872" class="LineNr"> 9872 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9834'>test-get-with-wrong-base-type</a>: exit status"</span>) -<span id="L9873" class="LineNr"> 9873 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9874" class="LineNr"> 9874 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9875" class="LineNr"> 9875 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9876" class="LineNr"> 9876 </span> 5d/pop-to-ebp -<span id="L9877" class="LineNr"> 9877 </span> c3/return -<span id="L9878" class="LineNr"> 9878 </span> -<span id="L9879" class="LineNr"> 9879 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: -<span id="L9880" class="LineNr"> 9880 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9881" class="LineNr"> 9881 </span> 55/push-ebp -<span id="L9882" class="LineNr"> 9882 </span> 89/<- %ebp 4/r32/esp -<span id="L9883" class="LineNr"> 9883 </span> <span class="subxComment"># setup</span> -<span id="L9884" class="LineNr"> 9884 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9885" class="LineNr"> 9885 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9886" class="LineNr"> 9886 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9887" class="LineNr"> 9887 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9888" class="LineNr"> 9888 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9889" class="LineNr"> 9889 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9890" class="LineNr"> 9890 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9891" class="LineNr"> 9891 </span> 68/push 0/imm32 -<span id="L9892" class="LineNr"> 9892 </span> 68/push 0/imm32 -<span id="L9893" class="LineNr"> 9893 </span> 89/<- %edx 4/r32/esp -<span id="L9894" class="LineNr"> 9894 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9895" class="LineNr"> 9895 </span> <span class="subxComment">#</span> -<span id="L9896" class="LineNr"> 9896 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9897" class="LineNr"> 9897 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr t)\n"</span>) -<span id="L9898" class="LineNr"> 9898 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L9899" class="LineNr"> 9899 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9900" class="LineNr"> 9900 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L9901" class="LineNr"> 9901 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L9902" class="LineNr"> 9902 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9903" class="LineNr"> 9903 </span> <span class="subxComment"># convert</span> -<span id="L9904" class="LineNr"> 9904 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9905" class="LineNr"> 9905 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9906" class="LineNr"> 9906 </span> <span class="subxComment"># restore ed</span> -<span id="L9907" class="LineNr"> 9907 </span> 89/<- %edx 4/r32/esp -<span id="L9908" class="LineNr"> 9908 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9909" class="LineNr"> 9909 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9910" class="Folded"> 9910 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9916" class="LineNr"> 9916 </span> <span class="subxComment"># check output</span> -<span id="L9917" class="LineNr"> 9917 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9879'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) -<span id="L9918" class="LineNr"> 9918 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: var 'a' is an 'addr' type, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9879'>test-get-with-wrong-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9919" class="LineNr"> 9919 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9920" class="LineNr"> 9920 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9879'>test-get-with-wrong-base-type-2</a>: exit status"</span>) -<span id="L9921" class="LineNr"> 9921 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9922" class="LineNr"> 9922 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9923" class="LineNr"> 9923 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9924" class="LineNr"> 9924 </span> 5d/pop-to-ebp -<span id="L9925" class="LineNr"> 9925 </span> c3/return -<span id="L9926" class="LineNr"> 9926 </span> -<span id="L9927" class="LineNr"> 9927 </span><span class="subxTest">test-get-with-wrong-base-type-3</span>: -<span id="L9928" class="LineNr"> 9928 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9929" class="LineNr"> 9929 </span> 55/push-ebp -<span id="L9930" class="LineNr"> 9930 </span> 89/<- %ebp 4/r32/esp -<span id="L9931" class="LineNr"> 9931 </span> <span class="subxComment"># setup</span> -<span id="L9932" class="LineNr"> 9932 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9933" class="LineNr"> 9933 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9934" class="LineNr"> 9934 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9935" class="LineNr"> 9935 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9936" class="LineNr"> 9936 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9937" class="LineNr"> 9937 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9938" class="LineNr"> 9938 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9939" class="LineNr"> 9939 </span> 68/push 0/imm32 -<span id="L9940" class="LineNr"> 9940 </span> 68/push 0/imm32 -<span id="L9941" class="LineNr"> 9941 </span> 89/<- %edx 4/r32/esp -<span id="L9942" class="LineNr"> 9942 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9943" class="LineNr"> 9943 </span> <span class="subxComment">#</span> -<span id="L9944" class="LineNr"> 9944 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9945" class="LineNr"> 9945 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L9946" class="LineNr"> 9946 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, y\n"</span>) -<span id="L9947" class="LineNr"> 9947 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9948" class="LineNr"> 9948 </span> <span class="subxComment"># convert</span> -<span id="L9949" class="LineNr"> 9949 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9950" class="LineNr"> 9950 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L9951" class="LineNr"> 9951 </span> <span class="subxComment"># restore ed</span> -<span id="L9952" class="LineNr"> 9952 </span> 89/<- %edx 4/r32/esp -<span id="L9953" class="LineNr"> 9953 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L9954" class="LineNr"> 9954 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L9955" class="Folded"> 9955 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L9961" class="LineNr"> 9961 </span> <span class="subxComment"># check output</span> -<span id="L9962" class="LineNr"> 9962 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9927'>test-get-with-wrong-base-type-3</a>: output should be empty"</span>) -<span id="L9963" class="LineNr"> 9963 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L9927'>test-get-with-wrong-base-type-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L9964" class="LineNr"> 9964 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L9965" class="LineNr"> 9965 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9927'>test-get-with-wrong-base-type-3</a>: exit status"</span>) -<span id="L9966" class="LineNr"> 9966 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L9967" class="LineNr"> 9967 </span> 81 0/subop/add %esp 8/imm32 -<span id="L9968" class="LineNr"> 9968 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L9969" class="LineNr"> 9969 </span> 5d/pop-to-ebp -<span id="L9970" class="LineNr"> 9970 </span> c3/return -<span id="L9971" class="LineNr"> 9971 </span> -<span id="L9972" class="LineNr"> 9972 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: -<span id="L9973" class="LineNr"> 9973 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L9974" class="LineNr"> 9974 </span> 55/push-ebp -<span id="L9975" class="LineNr"> 9975 </span> 89/<- %ebp 4/r32/esp -<span id="L9976" class="LineNr"> 9976 </span> <span class="subxComment"># setup</span> -<span id="L9977" class="LineNr"> 9977 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L9978" class="LineNr"> 9978 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L9979" class="LineNr"> 9979 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L9980" class="LineNr"> 9980 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L9981" class="LineNr"> 9981 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L9982" class="LineNr"> 9982 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L9983" class="LineNr"> 9983 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L9984" class="LineNr"> 9984 </span> 68/push 0/imm32 -<span id="L9985" class="LineNr"> 9985 </span> 68/push 0/imm32 -<span id="L9986" class="LineNr"> 9986 </span> 89/<- %edx 4/r32/esp -<span id="L9987" class="LineNr"> 9987 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L9988" class="LineNr"> 9988 </span> <span class="subxComment">#</span> -<span id="L9989" class="LineNr"> 9989 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L9990" class="LineNr"> 9990 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L9991" class="LineNr"> 9991 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) -<span id="L9992" class="LineNr"> 9992 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, b\n"</span>) -<span id="L9993" class="LineNr"> 9993 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9994" class="LineNr"> 9994 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L9995" class="LineNr"> 9995 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L9996" class="LineNr"> 9996 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L9997" class="LineNr"> 9997 </span> <span class="subxComment"># convert</span> -<span id="L9998" class="LineNr"> 9998 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L9999" class="LineNr"> 9999 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10000" class="LineNr">10000 </span> <span class="subxComment"># restore ed</span> -<span id="L10001" class="LineNr">10001 </span> 89/<- %edx 4/r32/esp -<span id="L10002" class="LineNr">10002 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10003" class="LineNr">10003 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10004" class="Folded">10004 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10010" class="LineNr">10010 </span> <span class="subxComment"># check output</span> -<span id="L10011" class="LineNr">10011 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9972'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) -<span id="L10012" class="LineNr">10012 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: type 't' has no member called 'b'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9972'>test-get-with-wrong-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10013" class="LineNr">10013 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10014" class="LineNr">10014 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9972'>test-get-with-wrong-offset-type</a>: exit status"</span>) -<span id="L10015" class="LineNr">10015 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10016" class="LineNr">10016 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10017" class="LineNr">10017 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10018" class="LineNr">10018 </span> 5d/pop-to-ebp -<span id="L10019" class="LineNr">10019 </span> c3/return -<span id="L10020" class="LineNr">10020 </span> -<span id="L10021" class="LineNr">10021 </span><span class="subxTest">test-get-with-wrong-output-type</span>: -<span id="L10022" class="LineNr">10022 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10023" class="LineNr">10023 </span> 55/push-ebp -<span id="L10024" class="LineNr">10024 </span> 89/<- %ebp 4/r32/esp -<span id="L10025" class="LineNr">10025 </span> <span class="subxComment"># setup</span> -<span id="L10026" class="LineNr">10026 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10027" class="LineNr">10027 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10028" class="LineNr">10028 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10029" class="LineNr">10029 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10030" class="LineNr">10030 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10031" class="LineNr">10031 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10032" class="LineNr">10032 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10033" class="LineNr">10033 </span> 68/push 0/imm32 -<span id="L10034" class="LineNr">10034 </span> 68/push 0/imm32 -<span id="L10035" class="LineNr">10035 </span> 89/<- %edx 4/r32/esp -<span id="L10036" class="LineNr">10036 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10037" class="LineNr">10037 </span> <span class="subxComment">#</span> -<span id="L10038" class="LineNr">10038 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10039" class="LineNr">10039 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10040" class="LineNr">10040 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c: (addr int)\n"</span>) -<span id="L10041" class="LineNr">10041 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c <- <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10042" class="LineNr">10042 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10043" class="LineNr">10043 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10044" class="LineNr">10044 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10045" class="LineNr">10045 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10046" class="LineNr">10046 </span> <span class="subxComment"># convert</span> -<span id="L10047" class="LineNr">10047 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10048" class="LineNr">10048 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10049" class="LineNr">10049 </span> <span class="subxComment"># restore ed</span> -<span id="L10050" class="LineNr">10050 </span> 89/<- %edx 4/r32/esp -<span id="L10051" class="LineNr">10051 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10052" class="LineNr">10052 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10053" class="Folded">10053 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10059" class="LineNr">10059 </span> <span class="subxComment"># check output</span> -<span id="L10060" class="LineNr">10060 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10021'>test-get-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L10061" class="LineNr">10061 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output 'c' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10021'>test-get-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10062" class="LineNr">10062 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10063" class="LineNr">10063 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10021'>test-get-with-wrong-output-type</a>: exit status"</span>) -<span id="L10064" class="LineNr">10064 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10065" class="LineNr">10065 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10066" class="LineNr">10066 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10067" class="LineNr">10067 </span> 5d/pop-to-ebp -<span id="L10068" class="LineNr">10068 </span> c3/return -<span id="L10069" class="LineNr">10069 </span> -<span id="L10070" class="LineNr">10070 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: -<span id="L10071" class="LineNr">10071 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10072" class="LineNr">10072 </span> 55/push-ebp -<span id="L10073" class="LineNr">10073 </span> 89/<- %ebp 4/r32/esp -<span id="L10074" class="LineNr">10074 </span> <span class="subxComment"># setup</span> -<span id="L10075" class="LineNr">10075 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10076" class="LineNr">10076 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10077" class="LineNr">10077 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10078" class="LineNr">10078 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10079" class="LineNr">10079 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10080" class="LineNr">10080 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10081" class="LineNr">10081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10082" class="LineNr">10082 </span> 68/push 0/imm32 -<span id="L10083" class="LineNr">10083 </span> 68/push 0/imm32 -<span id="L10084" class="LineNr">10084 </span> 89/<- %edx 4/r32/esp -<span id="L10085" class="LineNr">10085 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10086" class="LineNr">10086 </span> <span class="subxComment">#</span> -<span id="L10087" class="LineNr">10087 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10088" class="LineNr">10088 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10089" class="LineNr">10089 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10090" class="LineNr">10090 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10091" class="LineNr">10091 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10092" class="LineNr">10092 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10093" class="LineNr">10093 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10094" class="LineNr">10094 </span> <span class="subxComment"># convert</span> -<span id="L10095" class="LineNr">10095 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10096" class="LineNr">10096 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10097" class="LineNr">10097 </span> <span class="subxComment"># restore ed</span> -<span id="L10098" class="LineNr">10098 </span> 89/<- %edx 4/r32/esp -<span id="L10099" class="LineNr">10099 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10100" class="LineNr">10100 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10101" class="Folded">10101 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10107" class="LineNr">10107 </span> <span class="subxComment"># check output</span> -<span id="L10108" class="LineNr">10108 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-output-type-2</a>: output should be empty"</span>) -<span id="L10109" class="LineNr">10109 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-output-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10110" class="LineNr">10110 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10111" class="LineNr">10111 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-output-type-2</a>: exit status"</span>) -<span id="L10112" class="LineNr">10112 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10113" class="LineNr">10113 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10114" class="LineNr">10114 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10115" class="LineNr">10115 </span> 5d/pop-to-ebp -<span id="L10116" class="LineNr">10116 </span> c3/return -<span id="L10117" class="LineNr">10117 </span> -<span id="L10118" class="LineNr">10118 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: -<span id="L10119" class="LineNr">10119 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10120" class="LineNr">10120 </span> 55/push-ebp -<span id="L10121" class="LineNr">10121 </span> 89/<- %ebp 4/r32/esp -<span id="L10122" class="LineNr">10122 </span> <span class="subxComment"># setup</span> -<span id="L10123" class="LineNr">10123 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10124" class="LineNr">10124 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10125" class="LineNr">10125 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10126" class="LineNr">10126 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10127" class="LineNr">10127 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10128" class="LineNr">10128 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10129" class="LineNr">10129 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10130" class="LineNr">10130 </span> 68/push 0/imm32 -<span id="L10131" class="LineNr">10131 </span> 68/push 0/imm32 -<span id="L10132" class="LineNr">10132 </span> 89/<- %edx 4/r32/esp -<span id="L10133" class="LineNr">10133 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10134" class="LineNr">10134 </span> <span class="subxComment">#</span> -<span id="L10135" class="LineNr">10135 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10136" class="LineNr">10136 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10137" class="LineNr">10137 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (array int) <- <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10138" class="LineNr">10138 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10139" class="LineNr">10139 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10140" class="LineNr">10140 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10141" class="LineNr">10141 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10142" class="LineNr">10142 </span> <span class="subxComment"># convert</span> -<span id="L10143" class="LineNr">10143 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10144" class="LineNr">10144 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10145" class="LineNr">10145 </span> <span class="subxComment"># restore ed</span> -<span id="L10146" class="LineNr">10146 </span> 89/<- %edx 4/r32/esp -<span id="L10147" class="LineNr">10147 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10148" class="LineNr">10148 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10149" class="Folded">10149 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10155" class="LineNr">10155 </span> <span class="subxComment"># check output</span> -<span id="L10156" class="LineNr">10156 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10118'>test-get-with-wrong-output-type-3</a>: output should be empty"</span>) -<span id="L10157" class="LineNr">10157 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10118'>test-get-with-wrong-output-type-3</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10158" class="LineNr">10158 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10159" class="LineNr">10159 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10118'>test-get-with-wrong-output-type-3</a>: exit status"</span>) -<span id="L10160" class="LineNr">10160 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10161" class="LineNr">10161 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10162" class="LineNr">10162 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10163" class="LineNr">10163 </span> 5d/pop-to-ebp -<span id="L10164" class="LineNr">10164 </span> c3/return -<span id="L10165" class="LineNr">10165 </span> -<span id="L10166" class="LineNr">10166 </span><span class="subxTest">test-get-with-wrong-output-type-4</span>: -<span id="L10167" class="LineNr">10167 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10168" class="LineNr">10168 </span> 55/push-ebp -<span id="L10169" class="LineNr">10169 </span> 89/<- %ebp 4/r32/esp -<span id="L10170" class="LineNr">10170 </span> <span class="subxComment"># setup</span> -<span id="L10171" class="LineNr">10171 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10172" class="LineNr">10172 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10173" class="LineNr">10173 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10174" class="LineNr">10174 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10175" class="LineNr">10175 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10176" class="LineNr">10176 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10177" class="LineNr">10177 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10178" class="LineNr">10178 </span> 68/push 0/imm32 -<span id="L10179" class="LineNr">10179 </span> 68/push 0/imm32 -<span id="L10180" class="LineNr">10180 </span> 89/<- %edx 4/r32/esp -<span id="L10181" class="LineNr">10181 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10182" class="LineNr">10182 </span> <span class="subxComment">#</span> -<span id="L10183" class="LineNr">10183 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10184" class="LineNr">10184 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10185" class="LineNr">10185 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr boolean) <- <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10186" class="LineNr">10186 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10187" class="LineNr">10187 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10188" class="LineNr">10188 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10189" class="LineNr">10189 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10190" class="LineNr">10190 </span> <span class="subxComment"># convert</span> -<span id="L10191" class="LineNr">10191 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10192" class="LineNr">10192 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10193" class="LineNr">10193 </span> <span class="subxComment"># restore ed</span> -<span id="L10194" class="LineNr">10194 </span> 89/<- %edx 4/r32/esp -<span id="L10195" class="LineNr">10195 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10196" class="LineNr">10196 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10197" class="Folded">10197 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10203" class="LineNr">10203 </span> <span class="subxComment"># check output</span> -<span id="L10204" class="LineNr">10204 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10166'>test-get-with-wrong-output-type-4</a>: output should be empty"</span>) -<span id="L10205" class="LineNr">10205 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: wrong output type for member 'x' of type 't'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10166'>test-get-with-wrong-output-type-4</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10206" class="LineNr">10206 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10207" class="LineNr">10207 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10166'>test-get-with-wrong-output-type-4</a>: exit status"</span>) -<span id="L10208" class="LineNr">10208 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10209" class="LineNr">10209 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10210" class="LineNr">10210 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10211" class="LineNr">10211 </span> 5d/pop-to-ebp -<span id="L10212" class="LineNr">10212 </span> c3/return -<span id="L10213" class="LineNr">10213 </span> -<span id="L10214" class="LineNr">10214 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: -<span id="L10215" class="LineNr">10215 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10216" class="LineNr">10216 </span> 55/push-ebp -<span id="L10217" class="LineNr">10217 </span> 89/<- %ebp 4/r32/esp -<span id="L10218" class="LineNr">10218 </span> <span class="subxComment"># setup</span> -<span id="L10219" class="LineNr">10219 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10220" class="LineNr">10220 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10221" class="LineNr">10221 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10222" class="LineNr">10222 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10223" class="LineNr">10223 </span> <span class="subxComment">#</span> -<span id="L10224" class="LineNr">10224 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10225" class="LineNr">10225 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10226" class="LineNr">10226 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr handle int) <- <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10227" class="LineNr">10227 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10228" class="LineNr">10228 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10229" class="LineNr">10229 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: (handle int)\n"</span>) -<span id="L10230" class="LineNr">10230 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10231" class="LineNr">10231 </span> <span class="subxComment"># convert</span> -<span id="L10232" class="LineNr">10232 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10233" class="LineNr">10233 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10234" class="LineNr">10234 </span> <span class="subxComment"># no errors</span> -<span id="L10235" class="LineNr">10235 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10236" class="LineNr">10236 </span> 89/<- %esp 5/r32/ebp -<span id="L10237" class="LineNr">10237 </span> 5d/pop-to-ebp -<span id="L10238" class="LineNr">10238 </span> c3/return -<span id="L10239" class="LineNr">10239 </span> -<span id="L10240" class="LineNr">10240 </span><span class="subxTest">test-get-with-too-few-inouts</span>: -<span id="L10241" class="LineNr">10241 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10242" class="LineNr">10242 </span> 55/push-ebp -<span id="L10243" class="LineNr">10243 </span> 89/<- %ebp 4/r32/esp -<span id="L10244" class="LineNr">10244 </span> <span class="subxComment"># setup</span> -<span id="L10245" class="LineNr">10245 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10246" class="LineNr">10246 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10247" class="LineNr">10247 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10248" class="LineNr">10248 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10249" class="LineNr">10249 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10250" class="LineNr">10250 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10251" class="LineNr">10251 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10252" class="LineNr">10252 </span> 68/push 0/imm32 -<span id="L10253" class="LineNr">10253 </span> 68/push 0/imm32 -<span id="L10254" class="LineNr">10254 </span> 89/<- %edx 4/r32/esp -<span id="L10255" class="LineNr">10255 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10256" class="LineNr">10256 </span> <span class="subxComment">#</span> -<span id="L10257" class="LineNr">10257 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10258" class="LineNr">10258 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10259" class="LineNr">10259 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a\n"</span>) -<span id="L10260" class="LineNr">10260 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10261" class="LineNr">10261 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10262" class="LineNr">10262 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10263" class="LineNr">10263 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10264" class="LineNr">10264 </span> <span class="subxComment"># convert</span> -<span id="L10265" class="LineNr">10265 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10266" class="LineNr">10266 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10267" class="LineNr">10267 </span> <span class="subxComment"># restore ed</span> -<span id="L10268" class="LineNr">10268 </span> 89/<- %edx 4/r32/esp -<span id="L10269" class="LineNr">10269 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10270" class="LineNr">10270 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10271" class="Folded">10271 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10277" class="LineNr">10277 </span> <span class="subxComment"># check output</span> -<span id="L10278" class="LineNr">10278 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10240'>test-get-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L10279" class="LineNr">10279 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10240'>test-get-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10280" class="LineNr">10280 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10281" class="LineNr">10281 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10240'>test-get-with-too-few-inouts</a>: exit status"</span>) -<span id="L10282" class="LineNr">10282 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10283" class="LineNr">10283 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10284" class="LineNr">10284 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10285" class="LineNr">10285 </span> 5d/pop-to-ebp -<span id="L10286" class="LineNr">10286 </span> c3/return -<span id="L10287" class="LineNr">10287 </span> -<span id="L10288" class="LineNr">10288 </span><span class="subxTest">test-get-with-too-many-inouts</span>: -<span id="L10289" class="LineNr">10289 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10290" class="LineNr">10290 </span> 55/push-ebp -<span id="L10291" class="LineNr">10291 </span> 89/<- %ebp 4/r32/esp -<span id="L10292" class="LineNr">10292 </span> <span class="subxComment"># setup</span> -<span id="L10293" class="LineNr">10293 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10294" class="LineNr">10294 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10295" class="LineNr">10295 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10296" class="LineNr">10296 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10297" class="LineNr">10297 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10298" class="LineNr">10298 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10299" class="LineNr">10299 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10300" class="LineNr">10300 </span> 68/push 0/imm32 -<span id="L10301" class="LineNr">10301 </span> 68/push 0/imm32 -<span id="L10302" class="LineNr">10302 </span> 89/<- %edx 4/r32/esp -<span id="L10303" class="LineNr">10303 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10304" class="LineNr">10304 </span> <span class="subxComment">#</span> -<span id="L10305" class="LineNr">10305 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10306" class="LineNr">10306 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10307" class="LineNr">10307 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> a, x, 0\n"</span>) -<span id="L10308" class="LineNr">10308 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10309" class="LineNr">10309 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10310" class="LineNr">10310 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10311" class="LineNr">10311 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10312" class="LineNr">10312 </span> <span class="subxComment"># convert</span> -<span id="L10313" class="LineNr">10313 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10314" class="LineNr">10314 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10315" class="LineNr">10315 </span> <span class="subxComment"># restore ed</span> -<span id="L10316" class="LineNr">10316 </span> 89/<- %edx 4/r32/esp -<span id="L10317" class="LineNr">10317 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10318" class="LineNr">10318 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10319" class="Folded">10319 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10325" class="LineNr">10325 </span> <span class="subxComment"># check output</span> -<span id="L10326" class="LineNr">10326 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10288'>test-get-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L10327" class="LineNr">10327 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10288'>test-get-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10328" class="LineNr">10328 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10329" class="LineNr">10329 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10288'>test-get-with-too-many-inouts</a>: exit status"</span>) -<span id="L10330" class="LineNr">10330 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10331" class="LineNr">10331 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10332" class="LineNr">10332 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10333" class="LineNr">10333 </span> 5d/pop-to-ebp -<span id="L10334" class="LineNr">10334 </span> c3/return -<span id="L10335" class="LineNr">10335 </span> -<span id="L10336" class="LineNr">10336 </span><span class="subxTest">test-get-with-no-output</span>: -<span id="L10337" class="LineNr">10337 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10338" class="LineNr">10338 </span> 55/push-ebp -<span id="L10339" class="LineNr">10339 </span> 89/<- %ebp 4/r32/esp -<span id="L10340" class="LineNr">10340 </span> <span class="subxComment"># setup</span> -<span id="L10341" class="LineNr">10341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10342" class="LineNr">10342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10343" class="LineNr">10343 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10344" class="LineNr">10344 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10345" class="LineNr">10345 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10346" class="LineNr">10346 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10347" class="LineNr">10347 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10348" class="LineNr">10348 </span> 68/push 0/imm32 -<span id="L10349" class="LineNr">10349 </span> 68/push 0/imm32 -<span id="L10350" class="LineNr">10350 </span> 89/<- %edx 4/r32/esp -<span id="L10351" class="LineNr">10351 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10352" class="LineNr">10352 </span> <span class="subxComment">#</span> -<span id="L10353" class="LineNr">10353 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10354" class="LineNr">10354 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10355" class="LineNr">10355 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10356" class="LineNr">10356 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10357" class="LineNr">10357 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10358" class="LineNr">10358 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10359" class="LineNr">10359 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10360" class="LineNr">10360 </span> <span class="subxComment"># convert</span> -<span id="L10361" class="LineNr">10361 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10362" class="LineNr">10362 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10363" class="LineNr">10363 </span> <span class="subxComment"># restore ed</span> -<span id="L10364" class="LineNr">10364 </span> 89/<- %edx 4/r32/esp -<span id="L10365" class="LineNr">10365 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10366" class="LineNr">10366 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10367" class="Folded">10367 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10373" class="LineNr">10373 </span> <span class="subxComment"># check output</span> -<span id="L10374" class="LineNr">10374 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10336'>test-get-with-no-output</a>: output should be empty"</span>) -<span id="L10375" class="LineNr">10375 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L10336'>test-get-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10376" class="LineNr">10376 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10377" class="LineNr">10377 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10336'>test-get-with-no-output</a>: exit status"</span>) -<span id="L10378" class="LineNr">10378 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10379" class="LineNr">10379 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10380" class="LineNr">10380 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10381" class="LineNr">10381 </span> 5d/pop-to-ebp -<span id="L10382" class="LineNr">10382 </span> c3/return -<span id="L10383" class="LineNr">10383 </span> -<span id="L10384" class="LineNr">10384 </span><span class="subxTest">test-get-with-too-many-outputs</span>: -<span id="L10385" class="LineNr">10385 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10386" class="LineNr">10386 </span> 55/push-ebp -<span id="L10387" class="LineNr">10387 </span> 89/<- %ebp 4/r32/esp -<span id="L10388" class="LineNr">10388 </span> <span class="subxComment"># setup</span> -<span id="L10389" class="LineNr">10389 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10390" class="LineNr">10390 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10391" class="LineNr">10391 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10392" class="LineNr">10392 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10393" class="LineNr">10393 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10394" class="LineNr">10394 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10395" class="LineNr">10395 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10396" class="LineNr">10396 </span> 68/push 0/imm32 -<span id="L10397" class="LineNr">10397 </span> 68/push 0/imm32 -<span id="L10398" class="LineNr">10398 </span> 89/<- %edx 4/r32/esp -<span id="L10399" class="LineNr">10399 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10400" class="LineNr">10400 </span> <span class="subxComment">#</span> -<span id="L10401" class="LineNr">10401 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10402" class="LineNr">10402 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) -<span id="L10403" class="LineNr">10403 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) -<span id="L10404" class="LineNr">10404 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: (addr int) <- copy 0\n"</span>) -<span id="L10405" class="LineNr">10405 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- <a href='../131table.subx.html#L26'>get</a> a, x\n"</span>) -<span id="L10406" class="LineNr">10406 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10407" class="LineNr">10407 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) -<span id="L10408" class="LineNr">10408 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10409" class="LineNr">10409 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10410" class="LineNr">10410 </span> <span class="subxComment"># convert</span> -<span id="L10411" class="LineNr">10411 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10412" class="LineNr">10412 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10413" class="LineNr">10413 </span> <span class="subxComment"># restore ed</span> -<span id="L10414" class="LineNr">10414 </span> 89/<- %edx 4/r32/esp -<span id="L10415" class="LineNr">10415 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10416" class="LineNr">10416 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10417" class="Folded">10417 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10423" class="LineNr">10423 </span> <span class="subxComment"># check output</span> -<span id="L10424" class="LineNr">10424 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10384'>test-get-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L10425" class="LineNr">10425 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../131table.subx.html#L26'>get</a>: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10384'>test-get-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10426" class="LineNr">10426 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10427" class="LineNr">10427 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10384'>test-get-with-too-many-outputs</a>: exit status"</span>) -<span id="L10428" class="LineNr">10428 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10429" class="LineNr">10429 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10430" class="LineNr">10430 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10431" class="LineNr">10431 </span> 5d/pop-to-ebp -<span id="L10432" class="LineNr">10432 </span> c3/return -<span id="L10433" class="LineNr">10433 </span> -<span id="L10434" class="LineNr">10434 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: -<span id="L10435" class="LineNr">10435 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10436" class="LineNr">10436 </span> 55/push-ebp -<span id="L10437" class="LineNr">10437 </span> 89/<- %ebp 4/r32/esp -<span id="L10438" class="LineNr">10438 </span> <span class="subxComment"># setup</span> -<span id="L10439" class="LineNr">10439 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10440" class="LineNr">10440 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10441" class="LineNr">10441 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10442" class="LineNr">10442 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10443" class="LineNr">10443 </span> <span class="subxComment">#</span> -<span id="L10444" class="LineNr">10444 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> -<span id="L10445" class="LineNr">10445 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10446" class="LineNr">10446 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10447" class="LineNr">10447 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10448" class="LineNr">10448 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10449" class="LineNr">10449 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10450" class="LineNr">10450 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) -<span id="L10451" class="LineNr">10451 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr t) <- index arr, idx\n"</span>) -<span id="L10452" class="LineNr">10452 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10453" class="LineNr">10453 </span> <span class="subxComment"># convert</span> -<span id="L10454" class="LineNr">10454 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10455" class="LineNr">10455 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10456" class="Folded">10456 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10462" class="LineNr">10462 </span> <span class="subxComment"># check output</span> -<span id="L10463" class="LineNr">10463 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/0"</span>) -<span id="L10464" class="LineNr">10464 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) -<span id="L10465" class="LineNr">10465 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/2"</span>) -<span id="L10466" class="LineNr">10466 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/3"</span>) -<span id="L10467" class="LineNr">10467 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/4"</span>) -<span id="L10468" class="LineNr">10468 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/5"</span>) -<span id="L10469" class="LineNr">10469 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/6"</span>) -<span id="L10470" class="LineNr">10470 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/7"</span>) -<span id="L10471" class="LineNr">10471 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/8"</span>) -<span id="L10472" class="LineNr">10472 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/9"</span>) -<span id="L10473" class="LineNr">10473 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000008 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/10"</span>) -<span id="L10474" class="LineNr">10474 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/11"</span>) -<span id="L10475" class="LineNr">10475 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/12"</span>) -<span id="L10476" class="LineNr">10476 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/13"</span>) -<span id="L10477" class="LineNr">10477 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/14"</span>) -<span id="L10478" class="LineNr">10478 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/15"</span>) -<span id="L10479" class="LineNr">10479 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/16"</span>) -<span id="L10480" class="LineNr">10480 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/17"</span>) -<span id="L10481" class="LineNr">10481 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/18"</span>) -<span id="L10482" class="LineNr">10482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10434'>test-convert-array-of-user-defined-types</a>/19"</span>) -<span id="L10483" class="LineNr">10483 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10484" class="LineNr">10484 </span> 89/<- %esp 5/r32/ebp -<span id="L10485" class="LineNr">10485 </span> 5d/pop-to-ebp -<span id="L10486" class="LineNr">10486 </span> c3/return -<span id="L10487" class="LineNr">10487 </span> -<span id="L10488" class="LineNr">10488 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-eax</span>: -<span id="L10489" class="LineNr">10489 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10490" class="LineNr">10490 </span> 55/push-ebp -<span id="L10491" class="LineNr">10491 </span> 89/<- %ebp 4/r32/esp -<span id="L10492" class="LineNr">10492 </span> <span class="subxComment"># setup</span> -<span id="L10493" class="LineNr">10493 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10494" class="LineNr">10494 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10495" class="LineNr">10495 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10496" class="LineNr">10496 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10497" class="LineNr">10497 </span> <span class="subxComment">#</span> -<span id="L10498" class="LineNr">10498 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> -<span id="L10499" class="LineNr">10499 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10500" class="LineNr">10500 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10501" class="LineNr">10501 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10502" class="LineNr">10502 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10503" class="LineNr">10503 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10504" class="LineNr">10504 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10505" class="LineNr">10505 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- length arr\n"</span>) -<span id="L10506" class="LineNr">10506 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10507" class="LineNr">10507 </span> <span class="subxComment"># convert</span> -<span id="L10508" class="LineNr">10508 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10509" class="LineNr">10509 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10510" class="Folded">10510 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10516" class="LineNr">10516 </span> <span class="subxComment"># check output</span> -<span id="L10517" class="LineNr">10517 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</span>) -<span id="L10518" class="LineNr">10518 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/1"</span>) -<span id="L10519" class="LineNr">10519 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</span>) -<span id="L10520" class="LineNr">10520 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</span>) -<span id="L10521" class="LineNr">10521 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</span>) -<span id="L10522" class="LineNr">10522 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) -<span id="L10523" class="LineNr">10523 </span> <span class="subxComment"># var arr</span> -<span id="L10524" class="LineNr">10524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/6"</span>) -<span id="L10525" class="LineNr">10525 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) -<span id="L10526" class="LineNr">10526 </span> <span class="subxComment"># length instruction</span> -<span id="L10527" class="LineNr">10527 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</span>) -<span id="L10528" class="LineNr">10528 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</span>) -<span id="L10529" class="LineNr">10529 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</span>) -<span id="L10530" class="LineNr">10530 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</span>) -<span id="L10531" class="LineNr">10531 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</span>) -<span id="L10532" class="LineNr">10532 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</span>) -<span id="L10533" class="LineNr">10533 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</span>) -<span id="L10534" class="LineNr">10534 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) -<span id="L10535" class="LineNr">10535 </span> <span class="subxComment"># reclaim arr</span> -<span id="L10536" class="LineNr">10536 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) -<span id="L10537" class="LineNr">10537 </span> <span class="subxComment">#</span> -<span id="L10538" class="LineNr">10538 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</span>) -<span id="L10539" class="LineNr">10539 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</span>) -<span id="L10540" class="LineNr">10540 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</span>) -<span id="L10541" class="LineNr">10541 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</span>) -<span id="L10542" class="LineNr">10542 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</span>) -<span id="L10543" class="LineNr">10543 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10488'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) -<span id="L10544" class="LineNr">10544 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10545" class="LineNr">10545 </span> 89/<- %esp 5/r32/ebp -<span id="L10546" class="LineNr">10546 </span> 5d/pop-to-ebp -<span id="L10547" class="LineNr">10547 </span> c3/return -<span id="L10548" class="LineNr">10548 </span> -<span id="L10549" class="LineNr">10549 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: -<span id="L10550" class="LineNr">10550 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10551" class="LineNr">10551 </span> 55/push-ebp -<span id="L10552" class="LineNr">10552 </span> 89/<- %ebp 4/r32/esp -<span id="L10553" class="LineNr">10553 </span> <span class="subxComment"># setup</span> -<span id="L10554" class="LineNr">10554 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10555" class="LineNr">10555 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10556" class="LineNr">10556 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10557" class="LineNr">10557 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10558" class="LineNr">10558 </span> <span class="subxComment">#</span> -<span id="L10559" class="LineNr">10559 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> -<span id="L10560" class="LineNr">10560 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10561" class="LineNr">10561 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10562" class="LineNr">10562 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10563" class="LineNr">10563 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10564" class="LineNr">10564 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10565" class="LineNr">10565 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10566" class="LineNr">10566 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- length arr\n"</span>) -<span id="L10567" class="LineNr">10567 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10568" class="LineNr">10568 </span> <span class="subxComment"># convert</span> -<span id="L10569" class="LineNr">10569 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10570" class="LineNr">10570 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10571" class="Folded">10571 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10577" class="LineNr">10577 </span> <span class="subxComment"># check output</span> -<span id="L10578" class="LineNr">10578 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</span>) -<span id="L10579" class="LineNr">10579 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) -<span id="L10580" class="LineNr">10580 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</span>) -<span id="L10581" class="LineNr">10581 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</span>) -<span id="L10582" class="LineNr">10582 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</span>) -<span id="L10583" class="LineNr">10583 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) -<span id="L10584" class="LineNr">10584 </span> <span class="subxComment"># var a</span> -<span id="L10585" class="LineNr">10585 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</span>) -<span id="L10586" class="LineNr">10586 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) -<span id="L10587" class="LineNr">10587 </span> <span class="subxComment"># var x</span> -<span id="L10588" class="LineNr">10588 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) -<span id="L10589" class="LineNr">10589 </span> <span class="subxComment"># length instruction</span> -<span id="L10590" class="LineNr">10590 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</span>) -<span id="L10591" class="LineNr">10591 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) -<span id="L10592" class="LineNr">10592 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) -<span id="L10593" class="LineNr">10593 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</span>) -<span id="L10594" class="LineNr">10594 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) -<span id="L10595" class="LineNr">10595 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) -<span id="L10596" class="LineNr">10596 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) -<span id="L10597" class="LineNr">10597 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) -<span id="L10598" class="LineNr">10598 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) -<span id="L10599" class="LineNr">10599 </span> <span class="subxComment"># reclaim x</span> -<span id="L10600" class="LineNr">10600 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) -<span id="L10601" class="LineNr">10601 </span> <span class="subxComment"># reclaim a</span> -<span id="L10602" class="LineNr">10602 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) -<span id="L10603" class="LineNr">10603 </span> <span class="subxComment">#</span> -<span id="L10604" class="LineNr">10604 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</span>) -<span id="L10605" class="LineNr">10605 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</span>) -<span id="L10606" class="LineNr">10606 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/22"</span>) -<span id="L10607" class="LineNr">10607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</span>) -<span id="L10608" class="LineNr">10608 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</span>) -<span id="L10609" class="LineNr">10609 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10549'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) -<span id="L10610" class="LineNr">10610 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10611" class="LineNr">10611 </span> 89/<- %esp 5/r32/ebp -<span id="L10612" class="LineNr">10612 </span> 5d/pop-to-ebp -<span id="L10613" class="LineNr">10613 </span> c3/return -<span id="L10614" class="LineNr">10614 </span> -<span id="L10615" class="LineNr">10615 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: -<span id="L10616" class="LineNr">10616 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10617" class="LineNr">10617 </span> 55/push-ebp -<span id="L10618" class="LineNr">10618 </span> 89/<- %ebp 4/r32/esp -<span id="L10619" class="LineNr">10619 </span> <span class="subxComment"># setup</span> -<span id="L10620" class="LineNr">10620 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10621" class="LineNr">10621 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10622" class="LineNr">10622 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10623" class="LineNr">10623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10624" class="LineNr">10624 </span> <span class="subxComment">#</span> -<span id="L10625" class="LineNr">10625 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> -<span id="L10626" class="LineNr">10626 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10627" class="LineNr">10627 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10628" class="LineNr">10628 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10629" class="LineNr">10629 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10630" class="LineNr">10630 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10631" class="LineNr">10631 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10632" class="LineNr">10632 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- length arr\n"</span>) -<span id="L10633" class="LineNr">10633 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10634" class="LineNr">10634 </span> <span class="subxComment"># convert</span> -<span id="L10635" class="LineNr">10635 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10636" class="LineNr">10636 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10637" class="Folded">10637 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10643" class="LineNr">10643 </span> <span class="subxComment"># check output</span> -<span id="L10644" class="LineNr">10644 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) -<span id="L10645" class="LineNr">10645 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/1"</span>) -<span id="L10646" class="LineNr">10646 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</span>) -<span id="L10647" class="LineNr">10647 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</span>) -<span id="L10648" class="LineNr">10648 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</span>) -<span id="L10649" class="LineNr">10649 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) -<span id="L10650" class="LineNr">10650 </span> <span class="subxComment"># var a</span> -<span id="L10651" class="LineNr">10651 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</span>) -<span id="L10652" class="LineNr">10652 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) -<span id="L10653" class="LineNr">10653 </span> <span class="subxComment"># var x</span> -<span id="L10654" class="LineNr">10654 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) -<span id="L10655" class="LineNr">10655 </span> <span class="subxComment"># length instruction</span> -<span id="L10656" class="LineNr">10656 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) -<span id="L10657" class="LineNr">10657 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) -<span id="L10658" class="LineNr">10658 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</span>) -<span id="L10659" class="LineNr">10659 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</span>) -<span id="L10660" class="LineNr">10660 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</span>) -<span id="L10661" class="LineNr">10661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</span>) -<span id="L10662" class="LineNr">10662 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</span>) -<span id="L10663" class="LineNr">10663 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</span>) -<span id="L10664" class="LineNr">10664 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) -<span id="L10665" class="LineNr">10665 </span> <span class="subxComment"># reclaim x</span> -<span id="L10666" class="LineNr">10666 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) -<span id="L10667" class="LineNr">10667 </span> <span class="subxComment"># reclaim a</span> -<span id="L10668" class="LineNr">10668 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) -<span id="L10669" class="LineNr">10669 </span> <span class="subxComment">#</span> -<span id="L10670" class="LineNr">10670 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</span>) -<span id="L10671" class="LineNr">10671 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</span>) -<span id="L10672" class="LineNr">10672 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/22"</span>) -<span id="L10673" class="LineNr">10673 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</span>) -<span id="L10674" class="LineNr">10674 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</span>) -<span id="L10675" class="LineNr">10675 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10615'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) -<span id="L10676" class="LineNr">10676 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10677" class="LineNr">10677 </span> 89/<- %esp 5/r32/ebp -<span id="L10678" class="LineNr">10678 </span> 5d/pop-to-ebp -<span id="L10679" class="LineNr">10679 </span> c3/return -<span id="L10680" class="LineNr">10680 </span> -<span id="L10681" class="LineNr">10681 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: -<span id="L10682" class="LineNr">10682 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10683" class="LineNr">10683 </span> 55/push-ebp -<span id="L10684" class="LineNr">10684 </span> 89/<- %ebp 4/r32/esp -<span id="L10685" class="LineNr">10685 </span> <span class="subxComment"># setup</span> -<span id="L10686" class="LineNr">10686 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10687" class="LineNr">10687 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10688" class="LineNr">10688 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10689" class="LineNr">10689 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10690" class="LineNr">10690 </span> <span class="subxComment">#</span> -<span id="L10691" class="LineNr">10691 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> -<span id="L10692" class="LineNr">10692 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L10693" class="LineNr">10693 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L10694" class="LineNr">10694 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L10695" class="LineNr">10695 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10696" class="LineNr">10696 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10697" class="LineNr">10697 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) -<span id="L10698" class="LineNr">10698 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ebx: int <- length arr\n"</span>) -<span id="L10699" class="LineNr">10699 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10700" class="LineNr">10700 </span> <span class="subxComment"># convert</span> -<span id="L10701" class="LineNr">10701 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L10702" class="LineNr">10702 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10703" class="Folded">10703 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10709" class="LineNr">10709 </span> <span class="subxComment"># check output</span> -<span id="L10710" class="LineNr">10710 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/0"</span>) -<span id="L10711" class="LineNr">10711 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/1"</span>) -<span id="L10712" class="LineNr">10712 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/2"</span>) -<span id="L10713" class="LineNr">10713 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/3"</span>) -<span id="L10714" class="LineNr">10714 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/4"</span>) -<span id="L10715" class="LineNr">10715 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/5"</span>) -<span id="L10716" class="LineNr">10716 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/6"</span>) -<span id="L10717" class="LineNr">10717 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/7"</span>) -<span id="L10718" class="LineNr">10718 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/8"</span>) -<span id="L10719" class="LineNr">10719 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/9"</span>) -<span id="L10720" class="LineNr">10720 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/10"</span>) -<span id="L10721" class="LineNr">10721 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/11"</span>) -<span id="L10722" class="LineNr">10722 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/12"</span>) -<span id="L10723" class="LineNr">10723 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/13"</span>) -<span id="L10724" class="LineNr">10724 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/14"</span>) -<span id="L10725" class="LineNr">10725 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/15"</span>) -<span id="L10726" class="LineNr">10726 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/16"</span>) -<span id="L10727" class="LineNr">10727 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/17"</span>) -<span id="L10728" class="LineNr">10728 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/18"</span>) -<span id="L10729" class="LineNr">10729 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/19"</span>) -<span id="L10730" class="LineNr">10730 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/20"</span>) -<span id="L10731" class="LineNr">10731 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/21"</span>) -<span id="L10732" class="LineNr">10732 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/22"</span>) -<span id="L10733" class="LineNr">10733 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/23"</span>) -<span id="L10734" class="LineNr">10734 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/24"</span>) -<span id="L10735" class="LineNr">10735 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/25"</span>) -<span id="L10736" class="LineNr">10736 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/26"</span>) -<span id="L10737" class="LineNr">10737 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10681'>test-convert-length-of-array-of-user-defined-types</a>/27"</span>) -<span id="L10738" class="LineNr">10738 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10739" class="LineNr">10739 </span> 89/<- %esp 5/r32/ebp -<span id="L10740" class="LineNr">10740 </span> 5d/pop-to-ebp -<span id="L10741" class="LineNr">10741 </span> c3/return -<span id="L10742" class="LineNr">10742 </span> -<span id="L10743" class="LineNr">10743 </span><span class="subxTest">test-index-with-non-array-atom-base-type</span>: -<span id="L10744" class="LineNr">10744 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10745" class="LineNr">10745 </span> 55/push-ebp -<span id="L10746" class="LineNr">10746 </span> 89/<- %ebp 4/r32/esp -<span id="L10747" class="LineNr">10747 </span> <span class="subxComment"># setup</span> -<span id="L10748" class="LineNr">10748 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10749" class="LineNr">10749 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10750" class="LineNr">10750 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10751" class="LineNr">10751 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10752" class="LineNr">10752 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10753" class="LineNr">10753 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10754" class="LineNr">10754 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10755" class="LineNr">10755 </span> 68/push 0/imm32 -<span id="L10756" class="LineNr">10756 </span> 68/push 0/imm32 -<span id="L10757" class="LineNr">10757 </span> 89/<- %edx 4/r32/esp -<span id="L10758" class="LineNr">10758 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10759" class="LineNr">10759 </span> <span class="subxComment">#</span> -<span id="L10760" class="LineNr">10760 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10761" class="LineNr">10761 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L10762" class="LineNr">10762 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L10763" class="LineNr">10763 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10764" class="LineNr">10764 </span> <span class="subxComment"># convert</span> -<span id="L10765" class="LineNr">10765 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10766" class="LineNr">10766 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10767" class="LineNr">10767 </span> <span class="subxComment"># restore ed</span> -<span id="L10768" class="LineNr">10768 </span> 89/<- %edx 4/r32/esp -<span id="L10769" class="LineNr">10769 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10770" class="LineNr">10770 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10771" class="Folded">10771 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10777" class="LineNr">10777 </span> <span class="subxComment"># check output</span> -<span id="L10778" class="LineNr">10778 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10743'>test-index-with-non-array-atom-base-type</a>: output should be empty"</span>) -<span id="L10779" class="LineNr">10779 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10743'>test-index-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10780" class="LineNr">10780 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10781" class="LineNr">10781 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10743'>test-index-with-non-array-atom-base-type</a>: exit status"</span>) -<span id="L10782" class="LineNr">10782 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10783" class="LineNr">10783 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10784" class="LineNr">10784 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10785" class="LineNr">10785 </span> 5d/pop-to-ebp -<span id="L10786" class="LineNr">10786 </span> c3/return -<span id="L10787" class="LineNr">10787 </span> -<span id="L10788" class="LineNr">10788 </span><span class="subxTest">test-index-with-non-array-compound-base-type</span>: -<span id="L10789" class="LineNr">10789 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10790" class="LineNr">10790 </span> 55/push-ebp -<span id="L10791" class="LineNr">10791 </span> 89/<- %ebp 4/r32/esp -<span id="L10792" class="LineNr">10792 </span> <span class="subxComment"># setup</span> -<span id="L10793" class="LineNr">10793 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10794" class="LineNr">10794 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10795" class="LineNr">10795 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10796" class="LineNr">10796 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10797" class="LineNr">10797 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10798" class="LineNr">10798 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10799" class="LineNr">10799 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10800" class="LineNr">10800 </span> 68/push 0/imm32 -<span id="L10801" class="LineNr">10801 </span> 68/push 0/imm32 -<span id="L10802" class="LineNr">10802 </span> 89/<- %edx 4/r32/esp -<span id="L10803" class="LineNr">10803 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10804" class="LineNr">10804 </span> <span class="subxComment">#</span> -<span id="L10805" class="LineNr">10805 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10806" class="LineNr">10806 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L10807" class="LineNr">10807 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L10808" class="LineNr">10808 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10809" class="LineNr">10809 </span> <span class="subxComment"># convert</span> -<span id="L10810" class="LineNr">10810 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10811" class="LineNr">10811 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10812" class="LineNr">10812 </span> <span class="subxComment"># restore ed</span> -<span id="L10813" class="LineNr">10813 </span> 89/<- %edx 4/r32/esp -<span id="L10814" class="LineNr">10814 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10815" class="LineNr">10815 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10816" class="Folded">10816 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10822" class="LineNr">10822 </span> <span class="subxComment"># check output</span> -<span id="L10823" class="LineNr">10823 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10788'>test-index-with-non-array-compound-base-type</a>: output should be empty"</span>) -<span id="L10824" class="LineNr">10824 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10788'>test-index-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10825" class="LineNr">10825 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10826" class="LineNr">10826 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10788'>test-index-with-non-array-compound-base-type</a>: exit status"</span>) -<span id="L10827" class="LineNr">10827 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10828" class="LineNr">10828 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10829" class="LineNr">10829 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10830" class="LineNr">10830 </span> 5d/pop-to-ebp -<span id="L10831" class="LineNr">10831 </span> c3/return -<span id="L10832" class="LineNr">10832 </span> -<span id="L10833" class="LineNr">10833 </span><span class="subxTest">test-index-with-non-array-compound-base-type-2</span>: -<span id="L10834" class="LineNr">10834 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10835" class="LineNr">10835 </span> 55/push-ebp -<span id="L10836" class="LineNr">10836 </span> 89/<- %ebp 4/r32/esp -<span id="L10837" class="LineNr">10837 </span> <span class="subxComment"># setup</span> -<span id="L10838" class="LineNr">10838 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10839" class="LineNr">10839 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10840" class="LineNr">10840 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10841" class="LineNr">10841 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10842" class="LineNr">10842 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10843" class="LineNr">10843 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10844" class="LineNr">10844 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10845" class="LineNr">10845 </span> 68/push 0/imm32 -<span id="L10846" class="LineNr">10846 </span> 68/push 0/imm32 -<span id="L10847" class="LineNr">10847 </span> 89/<- %edx 4/r32/esp -<span id="L10848" class="LineNr">10848 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10849" class="LineNr">10849 </span> <span class="subxComment">#</span> -<span id="L10850" class="LineNr">10850 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10851" class="LineNr">10851 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L10852" class="LineNr">10852 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L10853" class="LineNr">10853 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10854" class="LineNr">10854 </span> <span class="subxComment"># convert</span> -<span id="L10855" class="LineNr">10855 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10856" class="LineNr">10856 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10857" class="LineNr">10857 </span> <span class="subxComment"># restore ed</span> -<span id="L10858" class="LineNr">10858 </span> 89/<- %edx 4/r32/esp -<span id="L10859" class="LineNr">10859 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10860" class="LineNr">10860 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10861" class="Folded">10861 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10867" class="LineNr">10867 </span> <span class="subxComment"># check output</span> -<span id="L10868" class="LineNr">10868 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10833'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</span>) -<span id="L10869" class="LineNr">10869 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10833'>test-index-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10870" class="LineNr">10870 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10871" class="LineNr">10871 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10833'>test-index-with-non-array-compound-base-type-2</a>: exit status"</span>) -<span id="L10872" class="LineNr">10872 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10873" class="LineNr">10873 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10874" class="LineNr">10874 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10875" class="LineNr">10875 </span> 5d/pop-to-ebp -<span id="L10876" class="LineNr">10876 </span> c3/return -<span id="L10877" class="LineNr">10877 </span> -<span id="L10878" class="LineNr">10878 </span><span class="subxTest">test-index-with-array-atom-base-type</span>: -<span id="L10879" class="LineNr">10879 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10880" class="LineNr">10880 </span> 55/push-ebp -<span id="L10881" class="LineNr">10881 </span> 89/<- %ebp 4/r32/esp -<span id="L10882" class="LineNr">10882 </span> <span class="subxComment"># setup</span> -<span id="L10883" class="LineNr">10883 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10884" class="LineNr">10884 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10885" class="LineNr">10885 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10886" class="LineNr">10886 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10887" class="LineNr">10887 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10888" class="LineNr">10888 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10889" class="LineNr">10889 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10890" class="LineNr">10890 </span> 68/push 0/imm32 -<span id="L10891" class="LineNr">10891 </span> 68/push 0/imm32 -<span id="L10892" class="LineNr">10892 </span> 89/<- %edx 4/r32/esp -<span id="L10893" class="LineNr">10893 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10894" class="LineNr">10894 </span> <span class="subxComment">#</span> -<span id="L10895" class="LineNr">10895 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10896" class="LineNr">10896 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) -<span id="L10897" class="LineNr">10897 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L10898" class="LineNr">10898 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10899" class="LineNr">10899 </span> <span class="subxComment"># convert</span> -<span id="L10900" class="LineNr">10900 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10901" class="LineNr">10901 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10902" class="LineNr">10902 </span> <span class="subxComment"># restore ed</span> -<span id="L10903" class="LineNr">10903 </span> 89/<- %edx 4/r32/esp -<span id="L10904" class="LineNr">10904 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10905" class="LineNr">10905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10906" class="Folded">10906 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10912" class="LineNr">10912 </span> <span class="subxComment"># check output</span> -<span id="L10913" class="LineNr">10913 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10878'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) -<span id="L10914" class="LineNr">10914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L10878'>test-index-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10915" class="LineNr">10915 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10916" class="LineNr">10916 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10878'>test-index-with-array-atom-base-type</a>: exit status"</span>) -<span id="L10917" class="LineNr">10917 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10918" class="LineNr">10918 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10919" class="LineNr">10919 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10920" class="LineNr">10920 </span> 5d/pop-to-ebp -<span id="L10921" class="LineNr">10921 </span> c3/return -<span id="L10922" class="LineNr">10922 </span> -<span id="L10923" class="LineNr">10923 </span><span class="subxTest">test-index-with-addr-base-on-stack</span>: -<span id="L10924" class="LineNr">10924 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10925" class="LineNr">10925 </span> 55/push-ebp -<span id="L10926" class="LineNr">10926 </span> 89/<- %ebp 4/r32/esp -<span id="L10927" class="LineNr">10927 </span> <span class="subxComment"># setup</span> -<span id="L10928" class="LineNr">10928 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10929" class="LineNr">10929 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10930" class="LineNr">10930 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10931" class="LineNr">10931 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10932" class="LineNr">10932 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10933" class="LineNr">10933 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10934" class="LineNr">10934 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10935" class="LineNr">10935 </span> 68/push 0/imm32 -<span id="L10936" class="LineNr">10936 </span> 68/push 0/imm32 -<span id="L10937" class="LineNr">10937 </span> 89/<- %edx 4/r32/esp -<span id="L10938" class="LineNr">10938 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10939" class="LineNr">10939 </span> <span class="subxComment">#</span> -<span id="L10940" class="LineNr">10940 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10941" class="LineNr">10941 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) -<span id="L10942" class="LineNr">10942 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) -<span id="L10943" class="LineNr">10943 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10944" class="LineNr">10944 </span> <span class="subxComment"># convert</span> -<span id="L10945" class="LineNr">10945 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10946" class="LineNr">10946 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10947" class="LineNr">10947 </span> <span class="subxComment"># restore ed</span> -<span id="L10948" class="LineNr">10948 </span> 89/<- %edx 4/r32/esp -<span id="L10949" class="LineNr">10949 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10950" class="LineNr">10950 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10951" class="Folded">10951 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L10957" class="LineNr">10957 </span> <span class="subxComment"># check output</span> -<span id="L10958" class="LineNr">10958 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10923'>test-index-with-addr-base-on-stack</a>: output should be empty"</span>) -<span id="L10959" class="LineNr">10959 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10923'>test-index-with-addr-base-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L10960" class="LineNr">10960 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L10961" class="LineNr">10961 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10923'>test-index-with-addr-base-on-stack</a>: exit status"</span>) -<span id="L10962" class="LineNr">10962 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L10963" class="LineNr">10963 </span> 81 0/subop/add %esp 8/imm32 -<span id="L10964" class="LineNr">10964 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L10965" class="LineNr">10965 </span> 5d/pop-to-ebp -<span id="L10966" class="LineNr">10966 </span> c3/return -<span id="L10967" class="LineNr">10967 </span> -<span id="L10968" class="LineNr">10968 </span><span class="subxTest">test-index-with-wrong-index-type</span>: -<span id="L10969" class="LineNr">10969 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L10970" class="LineNr">10970 </span> 55/push-ebp -<span id="L10971" class="LineNr">10971 </span> 89/<- %ebp 4/r32/esp -<span id="L10972" class="LineNr">10972 </span> <span class="subxComment"># setup</span> -<span id="L10973" class="LineNr">10973 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L10974" class="LineNr">10974 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L10975" class="LineNr">10975 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L10976" class="LineNr">10976 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L10977" class="LineNr">10977 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L10978" class="LineNr">10978 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L10979" class="LineNr">10979 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L10980" class="LineNr">10980 </span> 68/push 0/imm32 -<span id="L10981" class="LineNr">10981 </span> 68/push 0/imm32 -<span id="L10982" class="LineNr">10982 </span> 89/<- %edx 4/r32/esp -<span id="L10983" class="LineNr">10983 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L10984" class="LineNr">10984 </span> <span class="subxComment">#</span> -<span id="L10985" class="LineNr">10985 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L10986" class="LineNr">10986 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L10987" class="LineNr">10987 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L10988" class="LineNr">10988 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L10989" class="LineNr">10989 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L10990" class="LineNr">10990 </span> <span class="subxComment"># convert</span> -<span id="L10991" class="LineNr">10991 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L10992" class="LineNr">10992 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L10993" class="LineNr">10993 </span> <span class="subxComment"># restore ed</span> -<span id="L10994" class="LineNr">10994 </span> 89/<- %edx 4/r32/esp -<span id="L10995" class="LineNr">10995 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L10996" class="LineNr">10996 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L10997" class="Folded">10997 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11003" class="LineNr">11003 </span> <span class="subxComment"># check output</span> -<span id="L11004" class="LineNr">11004 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10968'>test-index-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L11005" class="LineNr">11005 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be an int or offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L10968'>test-index-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11006" class="LineNr">11006 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11007" class="LineNr">11007 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10968'>test-index-with-wrong-index-type</a>: exit status"</span>) -<span id="L11008" class="LineNr">11008 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11009" class="LineNr">11009 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11010" class="LineNr">11010 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11011" class="LineNr">11011 </span> 5d/pop-to-ebp -<span id="L11012" class="LineNr">11012 </span> c3/return -<span id="L11013" class="LineNr">11013 </span> -<span id="L11014" class="LineNr">11014 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: -<span id="L11015" class="LineNr">11015 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11016" class="LineNr">11016 </span> 55/push-ebp -<span id="L11017" class="LineNr">11017 </span> 89/<- %ebp 4/r32/esp -<span id="L11018" class="LineNr">11018 </span> <span class="subxComment"># setup</span> -<span id="L11019" class="LineNr">11019 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11020" class="LineNr">11020 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11021" class="LineNr">11021 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11022" class="LineNr">11022 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11023" class="LineNr">11023 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11024" class="LineNr">11024 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11025" class="LineNr">11025 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11026" class="LineNr">11026 </span> 68/push 0/imm32 -<span id="L11027" class="LineNr">11027 </span> 68/push 0/imm32 -<span id="L11028" class="LineNr">11028 </span> 89/<- %edx 4/r32/esp -<span id="L11029" class="LineNr">11029 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11030" class="LineNr">11030 </span> <span class="subxComment">#</span> -<span id="L11031" class="LineNr">11031 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11032" class="LineNr">11032 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11033" class="LineNr">11033 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: offset\n"</span>) -<span id="L11034" class="LineNr">11034 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L11035" class="LineNr">11035 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11036" class="LineNr">11036 </span> <span class="subxComment"># convert</span> -<span id="L11037" class="LineNr">11037 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11038" class="LineNr">11038 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11039" class="LineNr">11039 </span> <span class="subxComment"># restore ed</span> -<span id="L11040" class="LineNr">11040 </span> 89/<- %edx 4/r32/esp -<span id="L11041" class="LineNr">11041 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11042" class="LineNr">11042 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11043" class="Folded">11043 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11049" class="LineNr">11049 </span> <span class="subxComment"># check output</span> -<span id="L11050" class="LineNr">11050 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11014'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) -<span id="L11051" class="LineNr">11051 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: offset 'b' must specify the type of array elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11014'>test-index-with-offset-atom-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11052" class="LineNr">11052 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11053" class="LineNr">11053 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11014'>test-index-with-offset-atom-index-type</a>: exit status"</span>) -<span id="L11054" class="LineNr">11054 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11055" class="LineNr">11055 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11056" class="LineNr">11056 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11057" class="LineNr">11057 </span> 5d/pop-to-ebp -<span id="L11058" class="LineNr">11058 </span> c3/return -<span id="L11059" class="LineNr">11059 </span> -<span id="L11060" class="LineNr">11060 </span><span class="subxTest">test-index-with-offset-on-stack</span>: -<span id="L11061" class="LineNr">11061 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11062" class="LineNr">11062 </span> 55/push-ebp -<span id="L11063" class="LineNr">11063 </span> 89/<- %ebp 4/r32/esp -<span id="L11064" class="LineNr">11064 </span> <span class="subxComment"># setup</span> -<span id="L11065" class="LineNr">11065 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11066" class="LineNr">11066 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11067" class="LineNr">11067 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11068" class="LineNr">11068 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11069" class="LineNr">11069 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11070" class="LineNr">11070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11071" class="LineNr">11071 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11072" class="LineNr">11072 </span> 68/push 0/imm32 -<span id="L11073" class="LineNr">11073 </span> 68/push 0/imm32 -<span id="L11074" class="LineNr">11074 </span> 89/<- %edx 4/r32/esp -<span id="L11075" class="LineNr">11075 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11076" class="LineNr">11076 </span> <span class="subxComment">#</span> -<span id="L11077" class="LineNr">11077 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11078" class="LineNr">11078 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11079" class="LineNr">11079 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) -<span id="L11080" class="LineNr">11080 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L11081" class="LineNr">11081 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11082" class="LineNr">11082 </span> <span class="subxComment"># convert</span> -<span id="L11083" class="LineNr">11083 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11084" class="LineNr">11084 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11085" class="LineNr">11085 </span> <span class="subxComment"># restore ed</span> -<span id="L11086" class="LineNr">11086 </span> 89/<- %edx 4/r32/esp -<span id="L11087" class="LineNr">11087 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11088" class="LineNr">11088 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11089" class="Folded">11089 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11095" class="LineNr">11095 </span> <span class="subxComment"># check output</span> -<span id="L11096" class="LineNr">11096 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11060'>test-index-with-offset-on-stack</a>: output should be empty"</span>) -<span id="L11097" class="LineNr">11097 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L11060'>test-index-with-offset-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11098" class="LineNr">11098 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11099" class="LineNr">11099 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11060'>test-index-with-offset-on-stack</a>: exit status"</span>) -<span id="L11100" class="LineNr">11100 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11101" class="LineNr">11101 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11102" class="LineNr">11102 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11103" class="LineNr">11103 </span> 5d/pop-to-ebp -<span id="L11104" class="LineNr">11104 </span> c3/return -<span id="L11105" class="LineNr">11105 </span> -<span id="L11106" class="LineNr">11106 </span><span class="subxTest">test-index-needs-offset-type</span>: -<span id="L11107" class="LineNr">11107 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11108" class="LineNr">11108 </span> 55/push-ebp -<span id="L11109" class="LineNr">11109 </span> 89/<- %ebp 4/r32/esp -<span id="L11110" class="LineNr">11110 </span> <span class="subxComment"># setup</span> -<span id="L11111" class="LineNr">11111 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11112" class="LineNr">11112 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11113" class="LineNr">11113 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11114" class="LineNr">11114 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11115" class="LineNr">11115 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11116" class="LineNr">11116 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11117" class="LineNr">11117 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11118" class="LineNr">11118 </span> 68/push 0/imm32 -<span id="L11119" class="LineNr">11119 </span> 68/push 0/imm32 -<span id="L11120" class="LineNr">11120 </span> 89/<- %edx 4/r32/esp -<span id="L11121" class="LineNr">11121 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11122" class="LineNr">11122 </span> <span class="subxComment">#</span> -<span id="L11123" class="LineNr">11123 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11124" class="LineNr">11124 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array t) <- copy 0\n"</span>) -<span id="L11125" class="LineNr">11125 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) -<span id="L11126" class="LineNr">11126 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) -<span id="L11127" class="LineNr">11127 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11128" class="LineNr">11128 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size 12 is not a power of two</span> -<span id="L11129" class="LineNr">11129 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) -<span id="L11130" class="LineNr">11130 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) -<span id="L11131" class="LineNr">11131 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) -<span id="L11132" class="LineNr">11132 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11133" class="LineNr">11133 </span> <span class="subxComment"># convert</span> -<span id="L11134" class="LineNr">11134 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11135" class="LineNr">11135 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11136" class="LineNr">11136 </span> <span class="subxComment"># restore ed</span> -<span id="L11137" class="LineNr">11137 </span> 89/<- %edx 4/r32/esp -<span id="L11138" class="LineNr">11138 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11139" class="LineNr">11139 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11140" class="Folded">11140 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11146" class="LineNr">11146 </span> <span class="subxComment"># check output</span> -<span id="L11147" class="LineNr">11147 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11106'>test-index-needs-offset-type</a>: output should be empty"</span>) -<span id="L11148" class="LineNr">11148 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: cannot take an int for array 'a'; create an offset instead. See mu.md for details."</span> <span class="Constant">"F - <a href='mu.subx.html#L11106'>test-index-needs-offset-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11149" class="LineNr">11149 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11150" class="LineNr">11150 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11106'>test-index-needs-offset-type</a>: exit status"</span>) -<span id="L11151" class="LineNr">11151 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11152" class="LineNr">11152 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11153" class="LineNr">11153 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11154" class="LineNr">11154 </span> 5d/pop-to-ebp -<span id="L11155" class="LineNr">11155 </span> c3/return -<span id="L11156" class="LineNr">11156 </span> -<span id="L11157" class="LineNr">11157 </span><span class="subxTest">test-index-with-output-not-address</span>: -<span id="L11158" class="LineNr">11158 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11159" class="LineNr">11159 </span> 55/push-ebp -<span id="L11160" class="LineNr">11160 </span> 89/<- %ebp 4/r32/esp -<span id="L11161" class="LineNr">11161 </span> <span class="subxComment"># setup</span> -<span id="L11162" class="LineNr">11162 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11163" class="LineNr">11163 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11164" class="LineNr">11164 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11165" class="LineNr">11165 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11166" class="LineNr">11166 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11167" class="LineNr">11167 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11168" class="LineNr">11168 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11169" class="LineNr">11169 </span> 68/push 0/imm32 -<span id="L11170" class="LineNr">11170 </span> 68/push 0/imm32 -<span id="L11171" class="LineNr">11171 </span> 89/<- %edx 4/r32/esp -<span id="L11172" class="LineNr">11172 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11173" class="LineNr">11173 </span> <span class="subxComment">#</span> -<span id="L11174" class="LineNr">11174 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11175" class="LineNr">11175 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11176" class="LineNr">11176 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- index a, 0\n"</span>) -<span id="L11177" class="LineNr">11177 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11178" class="LineNr">11178 </span> <span class="subxComment"># convert</span> -<span id="L11179" class="LineNr">11179 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11180" class="LineNr">11180 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11181" class="LineNr">11181 </span> <span class="subxComment"># restore ed</span> -<span id="L11182" class="LineNr">11182 </span> 89/<- %edx 4/r32/esp -<span id="L11183" class="LineNr">11183 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11184" class="LineNr">11184 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11185" class="Folded">11185 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11191" class="LineNr">11191 </span> <span class="subxComment"># check output</span> -<span id="L11192" class="LineNr">11192 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11157'>test-index-with-output-not-address</a>: output should be empty"</span>) -<span id="L11193" class="LineNr">11193 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11157'>test-index-with-output-not-address</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11194" class="LineNr">11194 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11195" class="LineNr">11195 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11157'>test-index-with-output-not-address</a>: exit status"</span>) -<span id="L11196" class="LineNr">11196 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11197" class="LineNr">11197 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11198" class="LineNr">11198 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11199" class="LineNr">11199 </span> 5d/pop-to-ebp -<span id="L11200" class="LineNr">11200 </span> c3/return -<span id="L11201" class="LineNr">11201 </span> -<span id="L11202" class="LineNr">11202 </span><span class="subxTest">test-index-with-output-not-address-2</span>: -<span id="L11203" class="LineNr">11203 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11204" class="LineNr">11204 </span> 55/push-ebp -<span id="L11205" class="LineNr">11205 </span> 89/<- %ebp 4/r32/esp -<span id="L11206" class="LineNr">11206 </span> <span class="subxComment"># setup</span> -<span id="L11207" class="LineNr">11207 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11208" class="LineNr">11208 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11209" class="LineNr">11209 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11210" class="LineNr">11210 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11211" class="LineNr">11211 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11212" class="LineNr">11212 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11213" class="LineNr">11213 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11214" class="LineNr">11214 </span> 68/push 0/imm32 -<span id="L11215" class="LineNr">11215 </span> 68/push 0/imm32 -<span id="L11216" class="LineNr">11216 </span> 89/<- %edx 4/r32/esp -<span id="L11217" class="LineNr">11217 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11218" class="LineNr">11218 </span> <span class="subxComment">#</span> -<span id="L11219" class="LineNr">11219 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11220" class="LineNr">11220 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11221" class="LineNr">11221 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- index a, 0\n"</span>) -<span id="L11222" class="LineNr">11222 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11223" class="LineNr">11223 </span> <span class="subxComment"># convert</span> -<span id="L11224" class="LineNr">11224 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11225" class="LineNr">11225 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11226" class="LineNr">11226 </span> <span class="subxComment"># restore ed</span> -<span id="L11227" class="LineNr">11227 </span> 89/<- %edx 4/r32/esp -<span id="L11228" class="LineNr">11228 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11229" class="LineNr">11229 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11230" class="Folded">11230 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11236" class="LineNr">11236 </span> <span class="subxComment"># check output</span> -<span id="L11237" class="LineNr">11237 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11202'>test-index-with-output-not-address-2</a>: output should be empty"</span>) -<span id="L11238" class="LineNr">11238 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11202'>test-index-with-output-not-address-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11239" class="LineNr">11239 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11240" class="LineNr">11240 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11202'>test-index-with-output-not-address-2</a>: exit status"</span>) -<span id="L11241" class="LineNr">11241 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11242" class="LineNr">11242 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11243" class="LineNr">11243 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11244" class="LineNr">11244 </span> 5d/pop-to-ebp -<span id="L11245" class="LineNr">11245 </span> c3/return -<span id="L11246" class="LineNr">11246 </span> -<span id="L11247" class="LineNr">11247 </span><span class="subxTest">test-index-with-wrong-output-type</span>: -<span id="L11248" class="LineNr">11248 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11249" class="LineNr">11249 </span> 55/push-ebp -<span id="L11250" class="LineNr">11250 </span> 89/<- %ebp 4/r32/esp -<span id="L11251" class="LineNr">11251 </span> <span class="subxComment"># setup</span> -<span id="L11252" class="LineNr">11252 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11253" class="LineNr">11253 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11254" class="LineNr">11254 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11255" class="LineNr">11255 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11256" class="LineNr">11256 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11257" class="LineNr">11257 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11258" class="LineNr">11258 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11259" class="LineNr">11259 </span> 68/push 0/imm32 -<span id="L11260" class="LineNr">11260 </span> 68/push 0/imm32 -<span id="L11261" class="LineNr">11261 </span> 89/<- %edx 4/r32/esp -<span id="L11262" class="LineNr">11262 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11263" class="LineNr">11263 </span> <span class="subxComment">#</span> -<span id="L11264" class="LineNr">11264 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11265" class="LineNr">11265 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11266" class="LineNr">11266 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- index a, 0\n"</span>) -<span id="L11267" class="LineNr">11267 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11268" class="LineNr">11268 </span> <span class="subxComment"># convert</span> -<span id="L11269" class="LineNr">11269 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11270" class="LineNr">11270 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11271" class="LineNr">11271 </span> <span class="subxComment"># restore ed</span> -<span id="L11272" class="LineNr">11272 </span> 89/<- %edx 4/r32/esp -<span id="L11273" class="LineNr">11273 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11274" class="LineNr">11274 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11275" class="Folded">11275 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11281" class="LineNr">11281 </span> <span class="subxComment"># check output</span> -<span id="L11282" class="LineNr">11282 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11247'>test-index-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L11283" class="LineNr">11283 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11247'>test-index-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11284" class="LineNr">11284 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11285" class="LineNr">11285 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11247'>test-index-with-wrong-output-type</a>: exit status"</span>) -<span id="L11286" class="LineNr">11286 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11287" class="LineNr">11287 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11288" class="LineNr">11288 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11289" class="LineNr">11289 </span> 5d/pop-to-ebp -<span id="L11290" class="LineNr">11290 </span> c3/return -<span id="L11291" class="LineNr">11291 </span> -<span id="L11292" class="LineNr">11292 </span><span class="subxTest">test-index-with-wrong-output-compound-type</span>: -<span id="L11293" class="LineNr">11293 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11294" class="LineNr">11294 </span> 55/push-ebp -<span id="L11295" class="LineNr">11295 </span> 89/<- %ebp 4/r32/esp -<span id="L11296" class="LineNr">11296 </span> <span class="subxComment"># setup</span> -<span id="L11297" class="LineNr">11297 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11298" class="LineNr">11298 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11299" class="LineNr">11299 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11300" class="LineNr">11300 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11301" class="LineNr">11301 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11302" class="LineNr">11302 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11303" class="LineNr">11303 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11304" class="LineNr">11304 </span> 68/push 0/imm32 -<span id="L11305" class="LineNr">11305 </span> 68/push 0/imm32 -<span id="L11306" class="LineNr">11306 </span> 89/<- %edx 4/r32/esp -<span id="L11307" class="LineNr">11307 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11308" class="LineNr">11308 </span> <span class="subxComment">#</span> -<span id="L11309" class="LineNr">11309 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11310" class="LineNr">11310 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) -<span id="L11311" class="LineNr">11311 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- index a, 0\n"</span>) -<span id="L11312" class="LineNr">11312 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11313" class="LineNr">11313 </span> <span class="subxComment"># convert</span> -<span id="L11314" class="LineNr">11314 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11315" class="LineNr">11315 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11316" class="LineNr">11316 </span> <span class="subxComment"># restore ed</span> -<span id="L11317" class="LineNr">11317 </span> 89/<- %edx 4/r32/esp -<span id="L11318" class="LineNr">11318 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11319" class="LineNr">11319 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11320" class="Folded">11320 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11326" class="LineNr">11326 </span> <span class="subxComment"># check output</span> -<span id="L11327" class="LineNr">11327 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11292'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L11328" class="LineNr">11328 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11292'>test-index-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11329" class="LineNr">11329 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11330" class="LineNr">11330 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11292'>test-index-with-wrong-output-compound-type</a>: exit status"</span>) -<span id="L11331" class="LineNr">11331 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11332" class="LineNr">11332 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11333" class="LineNr">11333 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11334" class="LineNr">11334 </span> 5d/pop-to-ebp -<span id="L11335" class="LineNr">11335 </span> c3/return -<span id="L11336" class="LineNr">11336 </span> -<span id="L11337" class="LineNr">11337 </span><span class="subxTest">test-index-with-no-inouts</span>: -<span id="L11338" class="LineNr">11338 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11339" class="LineNr">11339 </span> 55/push-ebp -<span id="L11340" class="LineNr">11340 </span> 89/<- %ebp 4/r32/esp -<span id="L11341" class="LineNr">11341 </span> <span class="subxComment"># setup</span> -<span id="L11342" class="LineNr">11342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11343" class="LineNr">11343 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11344" class="LineNr">11344 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11345" class="LineNr">11345 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11346" class="LineNr">11346 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11347" class="LineNr">11347 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11348" class="LineNr">11348 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11349" class="LineNr">11349 </span> 68/push 0/imm32 -<span id="L11350" class="LineNr">11350 </span> 68/push 0/imm32 -<span id="L11351" class="LineNr">11351 </span> 89/<- %edx 4/r32/esp -<span id="L11352" class="LineNr">11352 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11353" class="LineNr">11353 </span> <span class="subxComment">#</span> -<span id="L11354" class="LineNr">11354 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11355" class="LineNr">11355 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index\n"</span>) -<span id="L11356" class="LineNr">11356 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11357" class="LineNr">11357 </span> <span class="subxComment"># convert</span> -<span id="L11358" class="LineNr">11358 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11359" class="LineNr">11359 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11360" class="LineNr">11360 </span> <span class="subxComment"># restore ed</span> -<span id="L11361" class="LineNr">11361 </span> 89/<- %edx 4/r32/esp -<span id="L11362" class="LineNr">11362 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11363" class="LineNr">11363 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11364" class="Folded">11364 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11370" class="LineNr">11370 </span> <span class="subxComment"># check output</span> -<span id="L11371" class="LineNr">11371 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11337'>test-index-with-no-inouts</a>: output should be empty"</span>) -<span id="L11372" class="LineNr">11372 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11337'>test-index-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11373" class="LineNr">11373 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11374" class="LineNr">11374 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11337'>test-index-with-no-inouts</a>: exit status"</span>) -<span id="L11375" class="LineNr">11375 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11376" class="LineNr">11376 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11377" class="LineNr">11377 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11378" class="LineNr">11378 </span> 5d/pop-to-ebp -<span id="L11379" class="LineNr">11379 </span> c3/return -<span id="L11380" class="LineNr">11380 </span> -<span id="L11381" class="LineNr">11381 </span><span class="subxTest">test-index-with-too-few-inouts</span>: -<span id="L11382" class="LineNr">11382 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11383" class="LineNr">11383 </span> 55/push-ebp -<span id="L11384" class="LineNr">11384 </span> 89/<- %ebp 4/r32/esp -<span id="L11385" class="LineNr">11385 </span> <span class="subxComment"># setup</span> -<span id="L11386" class="LineNr">11386 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11387" class="LineNr">11387 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11388" class="LineNr">11388 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11389" class="LineNr">11389 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11390" class="LineNr">11390 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11391" class="LineNr">11391 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11392" class="LineNr">11392 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11393" class="LineNr">11393 </span> 68/push 0/imm32 -<span id="L11394" class="LineNr">11394 </span> 68/push 0/imm32 -<span id="L11395" class="LineNr">11395 </span> 89/<- %edx 4/r32/esp -<span id="L11396" class="LineNr">11396 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11397" class="LineNr">11397 </span> <span class="subxComment">#</span> -<span id="L11398" class="LineNr">11398 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11399" class="LineNr">11399 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11400" class="LineNr">11400 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a\n"</span>) -<span id="L11401" class="LineNr">11401 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11402" class="LineNr">11402 </span> <span class="subxComment"># convert</span> -<span id="L11403" class="LineNr">11403 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11404" class="LineNr">11404 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11405" class="LineNr">11405 </span> <span class="subxComment"># restore ed</span> -<span id="L11406" class="LineNr">11406 </span> 89/<- %edx 4/r32/esp -<span id="L11407" class="LineNr">11407 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11408" class="LineNr">11408 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11409" class="Folded">11409 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11415" class="LineNr">11415 </span> <span class="subxComment"># check output</span> -<span id="L11416" class="LineNr">11416 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11381'>test-index-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L11417" class="LineNr">11417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11381'>test-index-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11418" class="LineNr">11418 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11419" class="LineNr">11419 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11381'>test-index-with-too-few-inouts</a>: exit status"</span>) -<span id="L11420" class="LineNr">11420 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11421" class="LineNr">11421 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11422" class="LineNr">11422 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11423" class="LineNr">11423 </span> 5d/pop-to-ebp -<span id="L11424" class="LineNr">11424 </span> c3/return -<span id="L11425" class="LineNr">11425 </span> -<span id="L11426" class="LineNr">11426 </span><span class="subxTest">test-index-with-too-many-inouts</span>: -<span id="L11427" class="LineNr">11427 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11428" class="LineNr">11428 </span> 55/push-ebp -<span id="L11429" class="LineNr">11429 </span> 89/<- %ebp 4/r32/esp -<span id="L11430" class="LineNr">11430 </span> <span class="subxComment"># setup</span> -<span id="L11431" class="LineNr">11431 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11432" class="LineNr">11432 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11433" class="LineNr">11433 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11434" class="LineNr">11434 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11435" class="LineNr">11435 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11436" class="LineNr">11436 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11437" class="LineNr">11437 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11438" class="LineNr">11438 </span> 68/push 0/imm32 -<span id="L11439" class="LineNr">11439 </span> 68/push 0/imm32 -<span id="L11440" class="LineNr">11440 </span> 89/<- %edx 4/r32/esp -<span id="L11441" class="LineNr">11441 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11442" class="LineNr">11442 </span> <span class="subxComment">#</span> -<span id="L11443" class="LineNr">11443 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11444" class="LineNr">11444 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11445" class="LineNr">11445 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0, 0\n"</span>) -<span id="L11446" class="LineNr">11446 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11447" class="LineNr">11447 </span> <span class="subxComment"># convert</span> -<span id="L11448" class="LineNr">11448 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11449" class="LineNr">11449 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11450" class="LineNr">11450 </span> <span class="subxComment"># restore ed</span> -<span id="L11451" class="LineNr">11451 </span> 89/<- %edx 4/r32/esp -<span id="L11452" class="LineNr">11452 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11453" class="LineNr">11453 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11454" class="Folded">11454 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11460" class="LineNr">11460 </span> <span class="subxComment"># check output</span> -<span id="L11461" class="LineNr">11461 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11426'>test-index-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L11462" class="LineNr">11462 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11426'>test-index-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11463" class="LineNr">11463 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11464" class="LineNr">11464 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11426'>test-index-with-too-many-inouts</a>: exit status"</span>) -<span id="L11465" class="LineNr">11465 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11466" class="LineNr">11466 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11467" class="LineNr">11467 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11468" class="LineNr">11468 </span> 5d/pop-to-ebp -<span id="L11469" class="LineNr">11469 </span> c3/return -<span id="L11470" class="LineNr">11470 </span> -<span id="L11471" class="LineNr">11471 </span><span class="subxTest">test-index-with-no-output</span>: -<span id="L11472" class="LineNr">11472 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11473" class="LineNr">11473 </span> 55/push-ebp -<span id="L11474" class="LineNr">11474 </span> 89/<- %ebp 4/r32/esp -<span id="L11475" class="LineNr">11475 </span> <span class="subxComment"># setup</span> -<span id="L11476" class="LineNr">11476 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11477" class="LineNr">11477 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11478" class="LineNr">11478 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11479" class="LineNr">11479 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11480" class="LineNr">11480 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11481" class="LineNr">11481 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11482" class="LineNr">11482 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11483" class="LineNr">11483 </span> 68/push 0/imm32 -<span id="L11484" class="LineNr">11484 </span> 68/push 0/imm32 -<span id="L11485" class="LineNr">11485 </span> 89/<- %edx 4/r32/esp -<span id="L11486" class="LineNr">11486 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11487" class="LineNr">11487 </span> <span class="subxComment">#</span> -<span id="L11488" class="LineNr">11488 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11489" class="LineNr">11489 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11490" class="LineNr">11490 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" index a, 0\n"</span>) -<span id="L11491" class="LineNr">11491 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11492" class="LineNr">11492 </span> <span class="subxComment"># convert</span> -<span id="L11493" class="LineNr">11493 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11494" class="LineNr">11494 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11495" class="LineNr">11495 </span> <span class="subxComment"># restore ed</span> -<span id="L11496" class="LineNr">11496 </span> 89/<- %edx 4/r32/esp -<span id="L11497" class="LineNr">11497 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11498" class="LineNr">11498 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11499" class="Folded">11499 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11505" class="LineNr">11505 </span> <span class="subxComment"># check output</span> -<span id="L11506" class="LineNr">11506 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11471'>test-index-with-no-output</a>: output should be empty"</span>) -<span id="L11507" class="LineNr">11507 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L11471'>test-index-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11508" class="LineNr">11508 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11509" class="LineNr">11509 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11471'>test-index-with-no-output</a>: exit status"</span>) -<span id="L11510" class="LineNr">11510 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11511" class="LineNr">11511 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11512" class="LineNr">11512 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11513" class="LineNr">11513 </span> 5d/pop-to-ebp -<span id="L11514" class="LineNr">11514 </span> c3/return -<span id="L11515" class="LineNr">11515 </span> -<span id="L11516" class="LineNr">11516 </span><span class="subxTest">test-index-with-too-many-outputs</span>: -<span id="L11517" class="LineNr">11517 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11518" class="LineNr">11518 </span> 55/push-ebp -<span id="L11519" class="LineNr">11519 </span> 89/<- %ebp 4/r32/esp -<span id="L11520" class="LineNr">11520 </span> <span class="subxComment"># setup</span> -<span id="L11521" class="LineNr">11521 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11522" class="LineNr">11522 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11523" class="LineNr">11523 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11524" class="LineNr">11524 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11525" class="LineNr">11525 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11526" class="LineNr">11526 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11527" class="LineNr">11527 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11528" class="LineNr">11528 </span> 68/push 0/imm32 -<span id="L11529" class="LineNr">11529 </span> 68/push 0/imm32 -<span id="L11530" class="LineNr">11530 </span> 89/<- %edx 4/r32/esp -<span id="L11531" class="LineNr">11531 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11532" class="LineNr">11532 </span> <span class="subxComment">#</span> -<span id="L11533" class="LineNr">11533 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11534" class="LineNr">11534 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L11535" class="LineNr">11535 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L11536" class="LineNr">11536 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) -<span id="L11537" class="LineNr">11537 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- index a, 0\n"</span>) -<span id="L11538" class="LineNr">11538 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11539" class="LineNr">11539 </span> <span class="subxComment"># convert</span> -<span id="L11540" class="LineNr">11540 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11541" class="LineNr">11541 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11542" class="LineNr">11542 </span> <span class="subxComment"># restore ed</span> -<span id="L11543" class="LineNr">11543 </span> 89/<- %edx 4/r32/esp -<span id="L11544" class="LineNr">11544 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11545" class="LineNr">11545 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11546" class="Folded">11546 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11552" class="LineNr">11552 </span> <span class="subxComment"># check output</span> -<span id="L11553" class="LineNr">11553 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11516'>test-index-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L11554" class="LineNr">11554 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11516'>test-index-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11555" class="LineNr">11555 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11556" class="LineNr">11556 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11516'>test-index-with-too-many-outputs</a>: exit status"</span>) -<span id="L11557" class="LineNr">11557 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11558" class="LineNr">11558 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11559" class="LineNr">11559 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11560" class="LineNr">11560 </span> 5d/pop-to-ebp -<span id="L11561" class="LineNr">11561 </span> c3/return -<span id="L11562" class="LineNr">11562 </span> -<span id="L11563" class="LineNr">11563 </span><span class="subxTest">test-compute-offset-with-non-array-atom-base-type</span>: -<span id="L11564" class="LineNr">11564 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11565" class="LineNr">11565 </span> 55/push-ebp -<span id="L11566" class="LineNr">11566 </span> 89/<- %ebp 4/r32/esp -<span id="L11567" class="LineNr">11567 </span> <span class="subxComment"># setup</span> -<span id="L11568" class="LineNr">11568 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11569" class="LineNr">11569 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11570" class="LineNr">11570 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11571" class="LineNr">11571 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11572" class="LineNr">11572 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11573" class="LineNr">11573 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11574" class="LineNr">11574 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11575" class="LineNr">11575 </span> 68/push 0/imm32 -<span id="L11576" class="LineNr">11576 </span> 68/push 0/imm32 -<span id="L11577" class="LineNr">11577 </span> 89/<- %edx 4/r32/esp -<span id="L11578" class="LineNr">11578 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11579" class="LineNr">11579 </span> <span class="subxComment">#</span> -<span id="L11580" class="LineNr">11580 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11581" class="LineNr">11581 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L11582" class="LineNr">11582 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11583" class="LineNr">11583 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11584" class="LineNr">11584 </span> <span class="subxComment"># convert</span> -<span id="L11585" class="LineNr">11585 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11586" class="LineNr">11586 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11587" class="LineNr">11587 </span> <span class="subxComment"># restore ed</span> -<span id="L11588" class="LineNr">11588 </span> 89/<- %edx 4/r32/esp -<span id="L11589" class="LineNr">11589 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11590" class="LineNr">11590 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11591" class="Folded">11591 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11597" class="LineNr">11597 </span> <span class="subxComment"># check output</span> -<span id="L11598" class="LineNr">11598 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11563'>test-compute-offset-with-non-array-atom-base-type</a>: output should be empty"</span>) -<span id="L11599" class="LineNr">11599 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11563'>test-compute-offset-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11600" class="LineNr">11600 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11601" class="LineNr">11601 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11563'>test-compute-offset-with-non-array-atom-base-type</a>: exit status"</span>) -<span id="L11602" class="LineNr">11602 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11603" class="LineNr">11603 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11604" class="LineNr">11604 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11605" class="LineNr">11605 </span> 5d/pop-to-ebp -<span id="L11606" class="LineNr">11606 </span> c3/return -<span id="L11607" class="LineNr">11607 </span> -<span id="L11608" class="LineNr">11608 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type</span>: -<span id="L11609" class="LineNr">11609 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11610" class="LineNr">11610 </span> 55/push-ebp -<span id="L11611" class="LineNr">11611 </span> 89/<- %ebp 4/r32/esp -<span id="L11612" class="LineNr">11612 </span> <span class="subxComment"># setup</span> -<span id="L11613" class="LineNr">11613 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11614" class="LineNr">11614 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11615" class="LineNr">11615 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11616" class="LineNr">11616 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11617" class="LineNr">11617 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11618" class="LineNr">11618 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11619" class="LineNr">11619 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11620" class="LineNr">11620 </span> 68/push 0/imm32 -<span id="L11621" class="LineNr">11621 </span> 68/push 0/imm32 -<span id="L11622" class="LineNr">11622 </span> 89/<- %edx 4/r32/esp -<span id="L11623" class="LineNr">11623 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11624" class="LineNr">11624 </span> <span class="subxComment">#</span> -<span id="L11625" class="LineNr">11625 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11626" class="LineNr">11626 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L11627" class="LineNr">11627 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11628" class="LineNr">11628 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11629" class="LineNr">11629 </span> <span class="subxComment"># convert</span> -<span id="L11630" class="LineNr">11630 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11631" class="LineNr">11631 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11632" class="LineNr">11632 </span> <span class="subxComment"># restore ed</span> -<span id="L11633" class="LineNr">11633 </span> 89/<- %edx 4/r32/esp -<span id="L11634" class="LineNr">11634 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11635" class="LineNr">11635 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11636" class="Folded">11636 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11642" class="LineNr">11642 </span> <span class="subxComment"># check output</span> -<span id="L11643" class="LineNr">11643 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11608'>test-compute-offset-with-non-array-compound-base-type</a>: output should be empty"</span>) -<span id="L11644" class="LineNr">11644 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11608'>test-compute-offset-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11645" class="LineNr">11645 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11646" class="LineNr">11646 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11608'>test-compute-offset-with-non-array-compound-base-type</a>: exit status"</span>) -<span id="L11647" class="LineNr">11647 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11648" class="LineNr">11648 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11649" class="LineNr">11649 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11650" class="LineNr">11650 </span> 5d/pop-to-ebp -<span id="L11651" class="LineNr">11651 </span> c3/return -<span id="L11652" class="LineNr">11652 </span> -<span id="L11653" class="LineNr">11653 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type-2</span>: -<span id="L11654" class="LineNr">11654 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11655" class="LineNr">11655 </span> 55/push-ebp -<span id="L11656" class="LineNr">11656 </span> 89/<- %ebp 4/r32/esp -<span id="L11657" class="LineNr">11657 </span> <span class="subxComment"># setup</span> -<span id="L11658" class="LineNr">11658 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11659" class="LineNr">11659 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11660" class="LineNr">11660 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11661" class="LineNr">11661 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11662" class="LineNr">11662 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11663" class="LineNr">11663 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11664" class="LineNr">11664 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11665" class="LineNr">11665 </span> 68/push 0/imm32 -<span id="L11666" class="LineNr">11666 </span> 68/push 0/imm32 -<span id="L11667" class="LineNr">11667 </span> 89/<- %edx 4/r32/esp -<span id="L11668" class="LineNr">11668 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11669" class="LineNr">11669 </span> <span class="subxComment">#</span> -<span id="L11670" class="LineNr">11670 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11671" class="LineNr">11671 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L11672" class="LineNr">11672 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11673" class="LineNr">11673 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11674" class="LineNr">11674 </span> <span class="subxComment"># convert</span> -<span id="L11675" class="LineNr">11675 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11676" class="LineNr">11676 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11677" class="LineNr">11677 </span> <span class="subxComment"># restore ed</span> -<span id="L11678" class="LineNr">11678 </span> 89/<- %edx 4/r32/esp -<span id="L11679" class="LineNr">11679 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11680" class="LineNr">11680 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11681" class="Folded">11681 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11687" class="LineNr">11687 </span> <span class="subxComment"># check output</span> -<span id="L11688" class="LineNr">11688 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11653'>test-compute-offset-with-non-array-compound-base-type-2</a>: output should be empty"</span>) -<span id="L11689" class="LineNr">11689 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11653'>test-compute-offset-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11690" class="LineNr">11690 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11691" class="LineNr">11691 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11653'>test-compute-offset-with-non-array-compound-base-type-2</a>: exit status"</span>) -<span id="L11692" class="LineNr">11692 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11693" class="LineNr">11693 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11694" class="LineNr">11694 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11695" class="LineNr">11695 </span> 5d/pop-to-ebp -<span id="L11696" class="LineNr">11696 </span> c3/return -<span id="L11697" class="LineNr">11697 </span> -<span id="L11698" class="LineNr">11698 </span><span class="subxTest">test-compute-offset-with-array-atom-base-type</span>: -<span id="L11699" class="LineNr">11699 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11700" class="LineNr">11700 </span> 55/push-ebp -<span id="L11701" class="LineNr">11701 </span> 89/<- %ebp 4/r32/esp -<span id="L11702" class="LineNr">11702 </span> <span class="subxComment"># setup</span> -<span id="L11703" class="LineNr">11703 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11704" class="LineNr">11704 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11705" class="LineNr">11705 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11706" class="LineNr">11706 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11707" class="LineNr">11707 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11708" class="LineNr">11708 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11709" class="LineNr">11709 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11710" class="LineNr">11710 </span> 68/push 0/imm32 -<span id="L11711" class="LineNr">11711 </span> 68/push 0/imm32 -<span id="L11712" class="LineNr">11712 </span> 89/<- %edx 4/r32/esp -<span id="L11713" class="LineNr">11713 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11714" class="LineNr">11714 </span> <span class="subxComment">#</span> -<span id="L11715" class="LineNr">11715 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11716" class="LineNr">11716 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) -<span id="L11717" class="LineNr">11717 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11718" class="LineNr">11718 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11719" class="LineNr">11719 </span> <span class="subxComment"># convert</span> -<span id="L11720" class="LineNr">11720 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11721" class="LineNr">11721 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11722" class="LineNr">11722 </span> <span class="subxComment"># restore ed</span> -<span id="L11723" class="LineNr">11723 </span> 89/<- %edx 4/r32/esp -<span id="L11724" class="LineNr">11724 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11725" class="LineNr">11725 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11726" class="Folded">11726 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11732" class="LineNr">11732 </span> <span class="subxComment"># check output</span> -<span id="L11733" class="LineNr">11733 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11698'>test-compute-offset-with-array-atom-base-type</a>: output should be empty"</span>) -<span id="L11734" class="LineNr">11734 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11698'>test-compute-offset-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11735" class="LineNr">11735 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11736" class="LineNr">11736 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11698'>test-compute-offset-with-array-atom-base-type</a>: exit status"</span>) -<span id="L11737" class="LineNr">11737 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11738" class="LineNr">11738 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11739" class="LineNr">11739 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11740" class="LineNr">11740 </span> 5d/pop-to-ebp -<span id="L11741" class="LineNr">11741 </span> c3/return -<span id="L11742" class="LineNr">11742 </span> -<span id="L11743" class="LineNr">11743 </span><span class="subxTest">test-compute-offset-with-wrong-index-type</span>: -<span id="L11744" class="LineNr">11744 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11745" class="LineNr">11745 </span> 55/push-ebp -<span id="L11746" class="LineNr">11746 </span> 89/<- %ebp 4/r32/esp -<span id="L11747" class="LineNr">11747 </span> <span class="subxComment"># setup</span> -<span id="L11748" class="LineNr">11748 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11749" class="LineNr">11749 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11750" class="LineNr">11750 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11751" class="LineNr">11751 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11752" class="LineNr">11752 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11753" class="LineNr">11753 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11754" class="LineNr">11754 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11755" class="LineNr">11755 </span> 68/push 0/imm32 -<span id="L11756" class="LineNr">11756 </span> 68/push 0/imm32 -<span id="L11757" class="LineNr">11757 </span> 89/<- %edx 4/r32/esp -<span id="L11758" class="LineNr">11758 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11759" class="LineNr">11759 </span> <span class="subxComment">#</span> -<span id="L11760" class="LineNr">11760 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11761" class="LineNr">11761 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) -<span id="L11762" class="LineNr">11762 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L11763" class="LineNr">11763 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, b\n"</span>) -<span id="L11764" class="LineNr">11764 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11765" class="LineNr">11765 </span> <span class="subxComment"># convert</span> -<span id="L11766" class="LineNr">11766 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11767" class="LineNr">11767 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11768" class="LineNr">11768 </span> <span class="subxComment"># restore ed</span> -<span id="L11769" class="LineNr">11769 </span> 89/<- %edx 4/r32/esp -<span id="L11770" class="LineNr">11770 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11771" class="LineNr">11771 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11772" class="Folded">11772 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11778" class="LineNr">11778 </span> <span class="subxComment"># check output</span> -<span id="L11779" class="LineNr">11779 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11743'>test-compute-offset-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L11780" class="LineNr">11780 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: second argument 'b' must be an int"</span> <span class="Constant">"F - <a href='mu.subx.html#L11743'>test-compute-offset-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11781" class="LineNr">11781 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11782" class="LineNr">11782 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11743'>test-compute-offset-with-wrong-index-type</a>: exit status"</span>) -<span id="L11783" class="LineNr">11783 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11784" class="LineNr">11784 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11785" class="LineNr">11785 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11786" class="LineNr">11786 </span> 5d/pop-to-ebp -<span id="L11787" class="LineNr">11787 </span> c3/return -<span id="L11788" class="LineNr">11788 </span> -<span id="L11789" class="LineNr">11789 </span><span class="subxTest">test-compute-offset-with-output-not-offset</span>: -<span id="L11790" class="LineNr">11790 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11791" class="LineNr">11791 </span> 55/push-ebp -<span id="L11792" class="LineNr">11792 </span> 89/<- %ebp 4/r32/esp -<span id="L11793" class="LineNr">11793 </span> <span class="subxComment"># setup</span> -<span id="L11794" class="LineNr">11794 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11795" class="LineNr">11795 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11796" class="LineNr">11796 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11797" class="LineNr">11797 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11798" class="LineNr">11798 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11799" class="LineNr">11799 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11800" class="LineNr">11800 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11801" class="LineNr">11801 </span> 68/push 0/imm32 -<span id="L11802" class="LineNr">11802 </span> 68/push 0/imm32 -<span id="L11803" class="LineNr">11803 </span> 89/<- %edx 4/r32/esp -<span id="L11804" class="LineNr">11804 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11805" class="LineNr">11805 </span> <span class="subxComment">#</span> -<span id="L11806" class="LineNr">11806 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11807" class="LineNr">11807 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11808" class="LineNr">11808 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- compute-offset a, 0\n"</span>) -<span id="L11809" class="LineNr">11809 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11810" class="LineNr">11810 </span> <span class="subxComment"># convert</span> -<span id="L11811" class="LineNr">11811 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11812" class="LineNr">11812 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11813" class="LineNr">11813 </span> <span class="subxComment"># restore ed</span> -<span id="L11814" class="LineNr">11814 </span> 89/<- %edx 4/r32/esp -<span id="L11815" class="LineNr">11815 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11816" class="LineNr">11816 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11817" class="Folded">11817 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11823" class="LineNr">11823 </span> <span class="subxComment"># check output</span> -<span id="L11824" class="LineNr">11824 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11789'>test-compute-offset-with-output-not-offset</a>: output should be empty"</span>) -<span id="L11825" class="LineNr">11825 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L11789'>test-compute-offset-with-output-not-offset</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11826" class="LineNr">11826 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11827" class="LineNr">11827 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11789'>test-compute-offset-with-output-not-offset</a>: exit status"</span>) -<span id="L11828" class="LineNr">11828 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11829" class="LineNr">11829 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11830" class="LineNr">11830 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11831" class="LineNr">11831 </span> 5d/pop-to-ebp -<span id="L11832" class="LineNr">11832 </span> c3/return -<span id="L11833" class="LineNr">11833 </span> -<span id="L11834" class="LineNr">11834 </span><span class="subxTest">test-compute-offset-with-output-not-address-2</span>: -<span id="L11835" class="LineNr">11835 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11836" class="LineNr">11836 </span> 55/push-ebp -<span id="L11837" class="LineNr">11837 </span> 89/<- %ebp 4/r32/esp -<span id="L11838" class="LineNr">11838 </span> <span class="subxComment"># setup</span> -<span id="L11839" class="LineNr">11839 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11840" class="LineNr">11840 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11841" class="LineNr">11841 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11842" class="LineNr">11842 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11843" class="LineNr">11843 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11844" class="LineNr">11844 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11845" class="LineNr">11845 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11846" class="LineNr">11846 </span> 68/push 0/imm32 -<span id="L11847" class="LineNr">11847 </span> 68/push 0/imm32 -<span id="L11848" class="LineNr">11848 </span> 89/<- %edx 4/r32/esp -<span id="L11849" class="LineNr">11849 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11850" class="LineNr">11850 </span> <span class="subxComment">#</span> -<span id="L11851" class="LineNr">11851 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11852" class="LineNr">11852 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11853" class="LineNr">11853 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- compute-offset a, 0\n"</span>) -<span id="L11854" class="LineNr">11854 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11855" class="LineNr">11855 </span> <span class="subxComment"># convert</span> -<span id="L11856" class="LineNr">11856 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11857" class="LineNr">11857 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11858" class="LineNr">11858 </span> <span class="subxComment"># restore ed</span> -<span id="L11859" class="LineNr">11859 </span> 89/<- %edx 4/r32/esp -<span id="L11860" class="LineNr">11860 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11861" class="LineNr">11861 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11862" class="Folded">11862 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11868" class="LineNr">11868 </span> <span class="subxComment"># check output</span> -<span id="L11869" class="LineNr">11869 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11834'>test-compute-offset-with-output-not-address-2</a>: output should be empty"</span>) -<span id="L11870" class="LineNr">11870 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L11834'>test-compute-offset-with-output-not-address-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11871" class="LineNr">11871 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11872" class="LineNr">11872 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11834'>test-compute-offset-with-output-not-address-2</a>: exit status"</span>) -<span id="L11873" class="LineNr">11873 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11874" class="LineNr">11874 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11875" class="LineNr">11875 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11876" class="LineNr">11876 </span> 5d/pop-to-ebp -<span id="L11877" class="LineNr">11877 </span> c3/return -<span id="L11878" class="LineNr">11878 </span> -<span id="L11879" class="LineNr">11879 </span><span class="subxTest">test-compute-offset-with-wrong-output-type</span>: -<span id="L11880" class="LineNr">11880 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11881" class="LineNr">11881 </span> 55/push-ebp -<span id="L11882" class="LineNr">11882 </span> 89/<- %ebp 4/r32/esp -<span id="L11883" class="LineNr">11883 </span> <span class="subxComment"># setup</span> -<span id="L11884" class="LineNr">11884 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11885" class="LineNr">11885 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11886" class="LineNr">11886 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11887" class="LineNr">11887 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11888" class="LineNr">11888 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11889" class="LineNr">11889 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11890" class="LineNr">11890 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11891" class="LineNr">11891 </span> 68/push 0/imm32 -<span id="L11892" class="LineNr">11892 </span> 68/push 0/imm32 -<span id="L11893" class="LineNr">11893 </span> 89/<- %edx 4/r32/esp -<span id="L11894" class="LineNr">11894 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11895" class="LineNr">11895 </span> <span class="subxComment">#</span> -<span id="L11896" class="LineNr">11896 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11897" class="LineNr">11897 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L11898" class="LineNr">11898 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L11899" class="LineNr">11899 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11900" class="LineNr">11900 </span> <span class="subxComment"># convert</span> -<span id="L11901" class="LineNr">11901 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11902" class="LineNr">11902 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11903" class="LineNr">11903 </span> <span class="subxComment"># restore ed</span> -<span id="L11904" class="LineNr">11904 </span> 89/<- %edx 4/r32/esp -<span id="L11905" class="LineNr">11905 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11906" class="LineNr">11906 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11907" class="Folded">11907 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11913" class="LineNr">11913 </span> <span class="subxComment"># check output</span> -<span id="L11914" class="LineNr">11914 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11879'>test-compute-offset-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L11915" class="LineNr">11915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11879'>test-compute-offset-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11916" class="LineNr">11916 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11917" class="LineNr">11917 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11879'>test-compute-offset-with-wrong-output-type</a>: exit status"</span>) -<span id="L11918" class="LineNr">11918 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11919" class="LineNr">11919 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11920" class="LineNr">11920 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11921" class="LineNr">11921 </span> 5d/pop-to-ebp -<span id="L11922" class="LineNr">11922 </span> c3/return -<span id="L11923" class="LineNr">11923 </span> -<span id="L11924" class="LineNr">11924 </span><span class="subxTest">test-compute-offset-with-wrong-output-compound-type</span>: -<span id="L11925" class="LineNr">11925 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11926" class="LineNr">11926 </span> 55/push-ebp -<span id="L11927" class="LineNr">11927 </span> 89/<- %ebp 4/r32/esp -<span id="L11928" class="LineNr">11928 </span> <span class="subxComment"># setup</span> -<span id="L11929" class="LineNr">11929 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11930" class="LineNr">11930 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11931" class="LineNr">11931 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11932" class="LineNr">11932 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11933" class="LineNr">11933 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11934" class="LineNr">11934 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11935" class="LineNr">11935 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11936" class="LineNr">11936 </span> 68/push 0/imm32 -<span id="L11937" class="LineNr">11937 </span> 68/push 0/imm32 -<span id="L11938" class="LineNr">11938 </span> 89/<- %edx 4/r32/esp -<span id="L11939" class="LineNr">11939 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11940" class="LineNr">11940 </span> <span class="subxComment">#</span> -<span id="L11941" class="LineNr">11941 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11942" class="LineNr">11942 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) -<span id="L11943" class="LineNr">11943 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset handle int) <- compute-offset a, 0\n"</span>) -<span id="L11944" class="LineNr">11944 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11945" class="LineNr">11945 </span> <span class="subxComment"># convert</span> -<span id="L11946" class="LineNr">11946 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11947" class="LineNr">11947 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11948" class="LineNr">11948 </span> <span class="subxComment"># restore ed</span> -<span id="L11949" class="LineNr">11949 </span> 89/<- %edx 4/r32/esp -<span id="L11950" class="LineNr">11950 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11951" class="LineNr">11951 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11952" class="Folded">11952 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L11958" class="LineNr">11958 </span> <span class="subxComment"># check output</span> -<span id="L11959" class="LineNr">11959 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11924'>test-compute-offset-with-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L11960" class="LineNr">11960 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11924'>test-compute-offset-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L11961" class="LineNr">11961 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L11962" class="LineNr">11962 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11924'>test-compute-offset-with-wrong-output-compound-type</a>: exit status"</span>) -<span id="L11963" class="LineNr">11963 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L11964" class="LineNr">11964 </span> 81 0/subop/add %esp 8/imm32 -<span id="L11965" class="LineNr">11965 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11966" class="LineNr">11966 </span> 5d/pop-to-ebp -<span id="L11967" class="LineNr">11967 </span> c3/return -<span id="L11968" class="LineNr">11968 </span> -<span id="L11969" class="LineNr">11969 </span><span class="subxTest">test-compute-offset-with-no-inouts</span>: -<span id="L11970" class="LineNr">11970 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L11971" class="LineNr">11971 </span> 55/push-ebp -<span id="L11972" class="LineNr">11972 </span> 89/<- %ebp 4/r32/esp -<span id="L11973" class="LineNr">11973 </span> <span class="subxComment"># setup</span> -<span id="L11974" class="LineNr">11974 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L11975" class="LineNr">11975 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L11976" class="LineNr">11976 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L11977" class="LineNr">11977 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L11978" class="LineNr">11978 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L11979" class="LineNr">11979 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L11980" class="LineNr">11980 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L11981" class="LineNr">11981 </span> 68/push 0/imm32 -<span id="L11982" class="LineNr">11982 </span> 68/push 0/imm32 -<span id="L11983" class="LineNr">11983 </span> 89/<- %edx 4/r32/esp -<span id="L11984" class="LineNr">11984 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L11985" class="LineNr">11985 </span> <span class="subxComment">#</span> -<span id="L11986" class="LineNr">11986 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L11987" class="LineNr">11987 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset\n"</span>) -<span id="L11988" class="LineNr">11988 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L11989" class="LineNr">11989 </span> <span class="subxComment"># convert</span> -<span id="L11990" class="LineNr">11990 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L11991" class="LineNr">11991 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L11992" class="LineNr">11992 </span> <span class="subxComment"># restore ed</span> -<span id="L11993" class="LineNr">11993 </span> 89/<- %edx 4/r32/esp -<span id="L11994" class="LineNr">11994 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L11995" class="LineNr">11995 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L11996" class="Folded">11996 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12002" class="LineNr">12002 </span> <span class="subxComment"># check output</span> -<span id="L12003" class="LineNr">12003 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11969'>test-compute-offset-with-no-inouts</a>: output should be empty"</span>) -<span id="L12004" class="LineNr">12004 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11969'>test-compute-offset-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12005" class="LineNr">12005 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12006" class="LineNr">12006 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11969'>test-compute-offset-with-no-inouts</a>: exit status"</span>) -<span id="L12007" class="LineNr">12007 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12008" class="LineNr">12008 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12009" class="LineNr">12009 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12010" class="LineNr">12010 </span> 5d/pop-to-ebp -<span id="L12011" class="LineNr">12011 </span> c3/return -<span id="L12012" class="LineNr">12012 </span> -<span id="L12013" class="LineNr">12013 </span><span class="subxTest">test-compute-offset-with-too-few-inouts</span>: -<span id="L12014" class="LineNr">12014 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12015" class="LineNr">12015 </span> 55/push-ebp -<span id="L12016" class="LineNr">12016 </span> 89/<- %ebp 4/r32/esp -<span id="L12017" class="LineNr">12017 </span> <span class="subxComment"># setup</span> -<span id="L12018" class="LineNr">12018 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12019" class="LineNr">12019 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12020" class="LineNr">12020 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12021" class="LineNr">12021 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12022" class="LineNr">12022 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12023" class="LineNr">12023 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12024" class="LineNr">12024 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12025" class="LineNr">12025 </span> 68/push 0/imm32 -<span id="L12026" class="LineNr">12026 </span> 68/push 0/imm32 -<span id="L12027" class="LineNr">12027 </span> 89/<- %edx 4/r32/esp -<span id="L12028" class="LineNr">12028 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12029" class="LineNr">12029 </span> <span class="subxComment">#</span> -<span id="L12030" class="LineNr">12030 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12031" class="LineNr">12031 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12032" class="LineNr">12032 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a\n"</span>) -<span id="L12033" class="LineNr">12033 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12034" class="LineNr">12034 </span> <span class="subxComment"># convert</span> -<span id="L12035" class="LineNr">12035 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12036" class="LineNr">12036 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12037" class="LineNr">12037 </span> <span class="subxComment"># restore ed</span> -<span id="L12038" class="LineNr">12038 </span> 89/<- %edx 4/r32/esp -<span id="L12039" class="LineNr">12039 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12040" class="LineNr">12040 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12041" class="Folded">12041 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12047" class="LineNr">12047 </span> <span class="subxComment"># check output</span> -<span id="L12048" class="LineNr">12048 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12013'>test-compute-offset-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L12049" class="LineNr">12049 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12013'>test-compute-offset-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12050" class="LineNr">12050 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12051" class="LineNr">12051 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12013'>test-compute-offset-with-too-few-inouts</a>: exit status"</span>) -<span id="L12052" class="LineNr">12052 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12053" class="LineNr">12053 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12054" class="LineNr">12054 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12055" class="LineNr">12055 </span> 5d/pop-to-ebp -<span id="L12056" class="LineNr">12056 </span> c3/return -<span id="L12057" class="LineNr">12057 </span> -<span id="L12058" class="LineNr">12058 </span><span class="subxTest">test-compute-offset-with-too-many-inouts</span>: -<span id="L12059" class="LineNr">12059 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12060" class="LineNr">12060 </span> 55/push-ebp -<span id="L12061" class="LineNr">12061 </span> 89/<- %ebp 4/r32/esp -<span id="L12062" class="LineNr">12062 </span> <span class="subxComment"># setup</span> -<span id="L12063" class="LineNr">12063 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12064" class="LineNr">12064 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12065" class="LineNr">12065 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12066" class="LineNr">12066 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12067" class="LineNr">12067 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12068" class="LineNr">12068 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12069" class="LineNr">12069 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12070" class="LineNr">12070 </span> 68/push 0/imm32 -<span id="L12071" class="LineNr">12071 </span> 68/push 0/imm32 -<span id="L12072" class="LineNr">12072 </span> 89/<- %edx 4/r32/esp -<span id="L12073" class="LineNr">12073 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12074" class="LineNr">12074 </span> <span class="subxComment">#</span> -<span id="L12075" class="LineNr">12075 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12076" class="LineNr">12076 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12077" class="LineNr">12077 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0, 0\n"</span>) -<span id="L12078" class="LineNr">12078 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12079" class="LineNr">12079 </span> <span class="subxComment"># convert</span> -<span id="L12080" class="LineNr">12080 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12081" class="LineNr">12081 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12082" class="LineNr">12082 </span> <span class="subxComment"># restore ed</span> -<span id="L12083" class="LineNr">12083 </span> 89/<- %edx 4/r32/esp -<span id="L12084" class="LineNr">12084 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12085" class="LineNr">12085 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12086" class="Folded">12086 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12092" class="LineNr">12092 </span> <span class="subxComment"># check output</span> -<span id="L12093" class="LineNr">12093 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12058'>test-compute-offset-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L12094" class="LineNr">12094 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12058'>test-compute-offset-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12095" class="LineNr">12095 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12096" class="LineNr">12096 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12058'>test-compute-offset-with-too-many-inouts</a>: exit status"</span>) -<span id="L12097" class="LineNr">12097 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12098" class="LineNr">12098 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12099" class="LineNr">12099 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12100" class="LineNr">12100 </span> 5d/pop-to-ebp -<span id="L12101" class="LineNr">12101 </span> c3/return -<span id="L12102" class="LineNr">12102 </span> -<span id="L12103" class="LineNr">12103 </span><span class="subxTest">test-compute-offset-with-no-output</span>: -<span id="L12104" class="LineNr">12104 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12105" class="LineNr">12105 </span> 55/push-ebp -<span id="L12106" class="LineNr">12106 </span> 89/<- %ebp 4/r32/esp -<span id="L12107" class="LineNr">12107 </span> <span class="subxComment"># setup</span> -<span id="L12108" class="LineNr">12108 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12109" class="LineNr">12109 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12110" class="LineNr">12110 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12111" class="LineNr">12111 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12112" class="LineNr">12112 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12113" class="LineNr">12113 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12114" class="LineNr">12114 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12115" class="LineNr">12115 </span> 68/push 0/imm32 -<span id="L12116" class="LineNr">12116 </span> 68/push 0/imm32 -<span id="L12117" class="LineNr">12117 </span> 89/<- %edx 4/r32/esp -<span id="L12118" class="LineNr">12118 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12119" class="LineNr">12119 </span> <span class="subxComment">#</span> -<span id="L12120" class="LineNr">12120 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12121" class="LineNr">12121 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12122" class="LineNr">12122 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compute-offset a, 0\n"</span>) -<span id="L12123" class="LineNr">12123 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12124" class="LineNr">12124 </span> <span class="subxComment"># convert</span> -<span id="L12125" class="LineNr">12125 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12126" class="LineNr">12126 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12127" class="LineNr">12127 </span> <span class="subxComment"># restore ed</span> -<span id="L12128" class="LineNr">12128 </span> 89/<- %edx 4/r32/esp -<span id="L12129" class="LineNr">12129 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12130" class="LineNr">12130 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12131" class="Folded">12131 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12137" class="LineNr">12137 </span> <span class="subxComment"># check output</span> -<span id="L12138" class="LineNr">12138 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12103'>test-compute-offset-with-no-output</a>: output should be empty"</span>) -<span id="L12139" class="LineNr">12139 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12103'>test-compute-offset-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12140" class="LineNr">12140 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12141" class="LineNr">12141 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12103'>test-compute-offset-with-no-output</a>: exit status"</span>) -<span id="L12142" class="LineNr">12142 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12143" class="LineNr">12143 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12144" class="LineNr">12144 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12145" class="LineNr">12145 </span> 5d/pop-to-ebp -<span id="L12146" class="LineNr">12146 </span> c3/return -<span id="L12147" class="LineNr">12147 </span> -<span id="L12148" class="LineNr">12148 </span><span class="subxTest">test-compute-offset-with-too-many-outputs</span>: -<span id="L12149" class="LineNr">12149 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12150" class="LineNr">12150 </span> 55/push-ebp -<span id="L12151" class="LineNr">12151 </span> 89/<- %ebp 4/r32/esp -<span id="L12152" class="LineNr">12152 </span> <span class="subxComment"># setup</span> -<span id="L12153" class="LineNr">12153 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12154" class="LineNr">12154 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12155" class="LineNr">12155 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12156" class="LineNr">12156 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12157" class="LineNr">12157 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12158" class="LineNr">12158 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12159" class="LineNr">12159 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12160" class="LineNr">12160 </span> 68/push 0/imm32 -<span id="L12161" class="LineNr">12161 </span> 68/push 0/imm32 -<span id="L12162" class="LineNr">12162 </span> 89/<- %edx 4/r32/esp -<span id="L12163" class="LineNr">12163 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12164" class="LineNr">12164 </span> <span class="subxComment">#</span> -<span id="L12165" class="LineNr">12165 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12166" class="LineNr">12166 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L12167" class="LineNr">12167 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (offset int) <- compute-offset a, 0\n"</span>) -<span id="L12168" class="LineNr">12168 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) -<span id="L12169" class="LineNr">12169 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- compute-offset a, 0\n"</span>) -<span id="L12170" class="LineNr">12170 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12171" class="LineNr">12171 </span> <span class="subxComment"># convert</span> -<span id="L12172" class="LineNr">12172 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12173" class="LineNr">12173 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12174" class="LineNr">12174 </span> <span class="subxComment"># restore ed</span> -<span id="L12175" class="LineNr">12175 </span> 89/<- %edx 4/r32/esp -<span id="L12176" class="LineNr">12176 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12177" class="LineNr">12177 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12178" class="Folded">12178 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12184" class="LineNr">12184 </span> <span class="subxComment"># check output</span> -<span id="L12185" class="LineNr">12185 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12148'>test-compute-offset-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L12186" class="LineNr">12186 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12148'>test-compute-offset-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12187" class="LineNr">12187 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12188" class="LineNr">12188 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12148'>test-compute-offset-with-too-many-outputs</a>: exit status"</span>) -<span id="L12189" class="LineNr">12189 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12190" class="LineNr">12190 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12191" class="LineNr">12191 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12192" class="LineNr">12192 </span> 5d/pop-to-ebp -<span id="L12193" class="LineNr">12193 </span> c3/return -<span id="L12194" class="LineNr">12194 </span> -<span id="L12195" class="LineNr">12195 </span><span class="subxTest">test-convert-read-from-stream</span>: -<span id="L12196" class="LineNr">12196 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12197" class="LineNr">12197 </span> 55/push-ebp -<span id="L12198" class="LineNr">12198 </span> 89/<- %ebp 4/r32/esp -<span id="L12199" class="LineNr">12199 </span> <span class="subxComment"># setup</span> -<span id="L12200" class="LineNr">12200 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12201" class="LineNr">12201 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12202" class="LineNr">12202 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12203" class="LineNr">12203 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12204" class="LineNr">12204 </span> <span class="subxComment">#</span> -<span id="L12205" class="LineNr">12205 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12206" class="LineNr">12206 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) -<span id="L12207" class="LineNr">12207 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) -<span id="L12208" class="LineNr">12208 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) -<span id="L12209" class="LineNr">12209 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12210" class="LineNr">12210 </span> <span class="subxComment"># convert</span> -<span id="L12211" class="LineNr">12211 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12212" class="LineNr">12212 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12213" class="LineNr">12213 </span> <span class="subxComment"># restore ed</span> -<span id="L12214" class="LineNr">12214 </span> 89/<- %edx 4/r32/esp -<span id="L12215" class="LineNr">12215 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12216" class="LineNr">12216 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12217" class="Folded">12217 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12223" class="LineNr">12223 </span> <span class="subxComment"># check output</span> -<span id="L12224" class="LineNr">12224 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/0"</span>) -<span id="L12225" class="LineNr">12225 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream/1"</span>) -<span id="L12226" class="LineNr">12226 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/2"</span>) -<span id="L12227" class="LineNr">12227 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/3"</span>) -<span id="L12228" class="LineNr">12228 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/4"</span>) -<span id="L12229" class="LineNr">12229 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/5"</span>) -<span id="L12230" class="LineNr">12230 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/6"</span>) -<span id="L12231" class="LineNr">12231 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/7"</span>) -<span id="L12232" class="LineNr">12232 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/8"</span>) -<span id="L12233" class="LineNr">12233 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/9"</span>) -<span id="L12234" class="LineNr">12234 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/10"</span>) -<span id="L12235" class="LineNr">12235 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/11"</span>) -<span id="L12236" class="LineNr">12236 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/12"</span>) -<span id="L12237" class="LineNr">12237 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/13"</span>) -<span id="L12238" class="LineNr">12238 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/14"</span>) -<span id="L12239" class="LineNr">12239 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream/15"</span>) -<span id="L12240" class="LineNr">12240 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/16"</span>) -<span id="L12241" class="LineNr">12241 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/17"</span>) -<span id="L12242" class="LineNr">12242 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12195'>test-convert-read-from-stream</a>/18"</span>) -<span id="L12243" class="LineNr">12243 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12244" class="LineNr">12244 </span> 89/<- %esp 5/r32/ebp -<span id="L12245" class="LineNr">12245 </span> 5d/pop-to-ebp -<span id="L12246" class="LineNr">12246 </span> c3/return -<span id="L12247" class="LineNr">12247 </span> -<span id="L12248" class="LineNr">12248 </span><span class="subxTest">test-convert-read-from-stream-with-correct-payload-size</span>: -<span id="L12249" class="LineNr">12249 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12250" class="LineNr">12250 </span> 55/push-ebp -<span id="L12251" class="LineNr">12251 </span> 89/<- %ebp 4/r32/esp -<span id="L12252" class="LineNr">12252 </span> <span class="subxComment"># setup</span> -<span id="L12253" class="LineNr">12253 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12254" class="LineNr">12254 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12255" class="LineNr">12255 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12256" class="LineNr">12256 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12257" class="LineNr">12257 </span> <span class="subxComment">#</span> -<span id="L12258" class="LineNr">12258 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12259" class="LineNr">12259 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) -<span id="L12260" class="LineNr">12260 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L12261" class="LineNr">12261 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) -<span id="L12262" class="LineNr">12262 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12263" class="LineNr">12263 </span> <span class="subxComment"># convert</span> -<span id="L12264" class="LineNr">12264 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12265" class="LineNr">12265 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12266" class="LineNr">12266 </span> <span class="subxComment"># restore ed</span> -<span id="L12267" class="LineNr">12267 </span> 89/<- %edx 4/r32/esp -<span id="L12268" class="LineNr">12268 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12269" class="LineNr">12269 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12270" class="Folded">12270 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12276" class="LineNr">12276 </span> <span class="subxComment"># check output</span> -<span id="L12277" class="LineNr">12277 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/0"</span>) -<span id="L12278" class="LineNr">12278 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/1"</span>) -<span id="L12279" class="LineNr">12279 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/2"</span>) -<span id="L12280" class="LineNr">12280 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/3"</span>) -<span id="L12281" class="LineNr">12281 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/4"</span>) -<span id="L12282" class="LineNr">12282 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/5"</span>) -<span id="L12283" class="LineNr">12283 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/6"</span>) -<span id="L12284" class="LineNr">12284 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/7"</span>) -<span id="L12285" class="LineNr">12285 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/8"</span>) -<span id="L12286" class="LineNr">12286 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/9"</span>) -<span id="L12287" class="LineNr">12287 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/10"</span>) -<span id="L12288" class="LineNr">12288 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/11"</span>) -<span id="L12289" class="LineNr">12289 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/12"</span>) -<span id="L12290" class="LineNr">12290 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/13"</span>) -<span id="L12291" class="LineNr">12291 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/14"</span>) -<span id="L12292" class="LineNr">12292 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/15"</span>) -<span id="L12293" class="LineNr">12293 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/16"</span>) -<span id="L12294" class="LineNr">12294 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/17"</span>) -<span id="L12295" class="LineNr">12295 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12248'>test-convert-read-from-stream-with-correct-payload-size</a>/18"</span>) -<span id="L12296" class="LineNr">12296 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12297" class="LineNr">12297 </span> 89/<- %esp 5/r32/ebp -<span id="L12298" class="LineNr">12298 </span> 5d/pop-to-ebp -<span id="L12299" class="LineNr">12299 </span> c3/return -<span id="L12300" class="LineNr">12300 </span> -<span id="L12301" class="LineNr">12301 </span><span class="subxTest">test-read-from-stream-with-non-stream-atom-base-type</span>: -<span id="L12302" class="LineNr">12302 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12303" class="LineNr">12303 </span> 55/push-ebp -<span id="L12304" class="LineNr">12304 </span> 89/<- %ebp 4/r32/esp -<span id="L12305" class="LineNr">12305 </span> <span class="subxComment"># setup</span> -<span id="L12306" class="LineNr">12306 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12307" class="LineNr">12307 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12308" class="LineNr">12308 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12309" class="LineNr">12309 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12310" class="LineNr">12310 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12311" class="LineNr">12311 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12312" class="LineNr">12312 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12313" class="LineNr">12313 </span> 68/push 0/imm32 -<span id="L12314" class="LineNr">12314 </span> 68/push 0/imm32 -<span id="L12315" class="LineNr">12315 </span> 89/<- %edx 4/r32/esp -<span id="L12316" class="LineNr">12316 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12317" class="LineNr">12317 </span> <span class="subxComment">#</span> -<span id="L12318" class="LineNr">12318 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12319" class="LineNr">12319 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L12320" class="LineNr">12320 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12321" class="LineNr">12321 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12322" class="LineNr">12322 </span> <span class="subxComment"># convert</span> -<span id="L12323" class="LineNr">12323 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12324" class="LineNr">12324 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12325" class="LineNr">12325 </span> <span class="subxComment"># restore ed</span> -<span id="L12326" class="LineNr">12326 </span> 89/<- %edx 4/r32/esp -<span id="L12327" class="LineNr">12327 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12328" class="LineNr">12328 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12329" class="Folded">12329 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12335" class="LineNr">12335 </span> <span class="subxComment"># check output</span> -<span id="L12336" class="LineNr">12336 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12301'>test-read-from-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L12337" class="LineNr">12337 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12301'>test-read-from-stream-with-non-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12338" class="LineNr">12338 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12339" class="LineNr">12339 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12301'>test-read-from-stream-with-non-stream-atom-base-type</a>: exit status"</span>) -<span id="L12340" class="LineNr">12340 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12341" class="LineNr">12341 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12342" class="LineNr">12342 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12343" class="LineNr">12343 </span> 5d/pop-to-ebp -<span id="L12344" class="LineNr">12344 </span> c3/return -<span id="L12345" class="LineNr">12345 </span> -<span id="L12346" class="LineNr">12346 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type</span>: -<span id="L12347" class="LineNr">12347 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12348" class="LineNr">12348 </span> 55/push-ebp -<span id="L12349" class="LineNr">12349 </span> 89/<- %ebp 4/r32/esp -<span id="L12350" class="LineNr">12350 </span> <span class="subxComment"># setup</span> -<span id="L12351" class="LineNr">12351 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12352" class="LineNr">12352 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12353" class="LineNr">12353 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12354" class="LineNr">12354 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12355" class="LineNr">12355 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12356" class="LineNr">12356 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12357" class="LineNr">12357 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12358" class="LineNr">12358 </span> 68/push 0/imm32 -<span id="L12359" class="LineNr">12359 </span> 68/push 0/imm32 -<span id="L12360" class="LineNr">12360 </span> 89/<- %edx 4/r32/esp -<span id="L12361" class="LineNr">12361 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12362" class="LineNr">12362 </span> <span class="subxComment">#</span> -<span id="L12363" class="LineNr">12363 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12364" class="LineNr">12364 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L12365" class="LineNr">12365 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12366" class="LineNr">12366 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12367" class="LineNr">12367 </span> <span class="subxComment"># convert</span> -<span id="L12368" class="LineNr">12368 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12369" class="LineNr">12369 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12370" class="LineNr">12370 </span> <span class="subxComment"># restore ed</span> -<span id="L12371" class="LineNr">12371 </span> 89/<- %edx 4/r32/esp -<span id="L12372" class="LineNr">12372 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12373" class="LineNr">12373 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12374" class="Folded">12374 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12380" class="LineNr">12380 </span> <span class="subxComment"># check output</span> -<span id="L12381" class="LineNr">12381 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12346'>test-read-from-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) -<span id="L12382" class="LineNr">12382 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12346'>test-read-from-stream-with-non-stream-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12383" class="LineNr">12383 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12384" class="LineNr">12384 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12346'>test-read-from-stream-with-non-stream-compound-base-type</a>: exit status"</span>) -<span id="L12385" class="LineNr">12385 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12386" class="LineNr">12386 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12387" class="LineNr">12387 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12388" class="LineNr">12388 </span> 5d/pop-to-ebp -<span id="L12389" class="LineNr">12389 </span> c3/return -<span id="L12390" class="LineNr">12390 </span> -<span id="L12391" class="LineNr">12391 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type-2</span>: -<span id="L12392" class="LineNr">12392 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12393" class="LineNr">12393 </span> 55/push-ebp -<span id="L12394" class="LineNr">12394 </span> 89/<- %ebp 4/r32/esp -<span id="L12395" class="LineNr">12395 </span> <span class="subxComment"># setup</span> -<span id="L12396" class="LineNr">12396 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12397" class="LineNr">12397 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12398" class="LineNr">12398 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12399" class="LineNr">12399 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12400" class="LineNr">12400 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12401" class="LineNr">12401 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12402" class="LineNr">12402 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12403" class="LineNr">12403 </span> 68/push 0/imm32 -<span id="L12404" class="LineNr">12404 </span> 68/push 0/imm32 -<span id="L12405" class="LineNr">12405 </span> 89/<- %edx 4/r32/esp -<span id="L12406" class="LineNr">12406 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12407" class="LineNr">12407 </span> <span class="subxComment">#</span> -<span id="L12408" class="LineNr">12408 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12409" class="LineNr">12409 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L12410" class="LineNr">12410 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12411" class="LineNr">12411 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12412" class="LineNr">12412 </span> <span class="subxComment"># convert</span> -<span id="L12413" class="LineNr">12413 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12414" class="LineNr">12414 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12415" class="LineNr">12415 </span> <span class="subxComment"># restore ed</span> -<span id="L12416" class="LineNr">12416 </span> 89/<- %edx 4/r32/esp -<span id="L12417" class="LineNr">12417 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12418" class="LineNr">12418 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12419" class="Folded">12419 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12425" class="LineNr">12425 </span> <span class="subxComment"># check output</span> -<span id="L12426" class="LineNr">12426 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12391'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) -<span id="L12427" class="LineNr">12427 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12391'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12428" class="LineNr">12428 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12429" class="LineNr">12429 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12391'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) -<span id="L12430" class="LineNr">12430 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12431" class="LineNr">12431 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12432" class="LineNr">12432 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12433" class="LineNr">12433 </span> 5d/pop-to-ebp -<span id="L12434" class="LineNr">12434 </span> c3/return -<span id="L12435" class="LineNr">12435 </span> -<span id="L12436" class="LineNr">12436 </span><span class="subxTest">test-read-from-stream-with-stream-atom-base-type</span>: -<span id="L12437" class="LineNr">12437 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12438" class="LineNr">12438 </span> 55/push-ebp -<span id="L12439" class="LineNr">12439 </span> 89/<- %ebp 4/r32/esp -<span id="L12440" class="LineNr">12440 </span> <span class="subxComment"># setup</span> -<span id="L12441" class="LineNr">12441 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12442" class="LineNr">12442 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12443" class="LineNr">12443 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12444" class="LineNr">12444 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12445" class="LineNr">12445 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12446" class="LineNr">12446 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12447" class="LineNr">12447 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12448" class="LineNr">12448 </span> 68/push 0/imm32 -<span id="L12449" class="LineNr">12449 </span> 68/push 0/imm32 -<span id="L12450" class="LineNr">12450 </span> 89/<- %edx 4/r32/esp -<span id="L12451" class="LineNr">12451 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12452" class="LineNr">12452 </span> <span class="subxComment">#</span> -<span id="L12453" class="LineNr">12453 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12454" class="LineNr">12454 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) -<span id="L12455" class="LineNr">12455 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) -<span id="L12456" class="LineNr">12456 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12457" class="LineNr">12457 </span> <span class="subxComment"># convert</span> -<span id="L12458" class="LineNr">12458 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12459" class="LineNr">12459 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12460" class="LineNr">12460 </span> <span class="subxComment"># restore ed</span> -<span id="L12461" class="LineNr">12461 </span> 89/<- %edx 4/r32/esp -<span id="L12462" class="LineNr">12462 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12463" class="LineNr">12463 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12464" class="Folded">12464 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12470" class="LineNr">12470 </span> <span class="subxComment"># check output</span> -<span id="L12471" class="LineNr">12471 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12436'>test-read-from-stream-with-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L12472" class="LineNr">12472 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12436'>test-read-from-stream-with-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12473" class="LineNr">12473 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12474" class="LineNr">12474 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12436'>test-read-from-stream-with-stream-atom-base-type</a>: exit status"</span>) -<span id="L12475" class="LineNr">12475 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12476" class="LineNr">12476 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12477" class="LineNr">12477 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12478" class="LineNr">12478 </span> 5d/pop-to-ebp -<span id="L12479" class="LineNr">12479 </span> c3/return -<span id="L12480" class="LineNr">12480 </span> -<span id="L12481" class="LineNr">12481 </span><span class="subxTest">test-read-from-stream-with-wrong-index-type</span>: -<span id="L12482" class="LineNr">12482 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12483" class="LineNr">12483 </span> 55/push-ebp -<span id="L12484" class="LineNr">12484 </span> 89/<- %ebp 4/r32/esp -<span id="L12485" class="LineNr">12485 </span> <span class="subxComment"># setup</span> -<span id="L12486" class="LineNr">12486 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12487" class="LineNr">12487 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12488" class="LineNr">12488 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12489" class="LineNr">12489 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12490" class="LineNr">12490 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12491" class="LineNr">12491 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12492" class="LineNr">12492 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12493" class="LineNr">12493 </span> 68/push 0/imm32 -<span id="L12494" class="LineNr">12494 </span> 68/push 0/imm32 -<span id="L12495" class="LineNr">12495 </span> 89/<- %edx 4/r32/esp -<span id="L12496" class="LineNr">12496 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12497" class="LineNr">12497 </span> <span class="subxComment">#</span> -<span id="L12498" class="LineNr">12498 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12499" class="LineNr">12499 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) -<span id="L12500" class="LineNr">12500 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L12501" class="LineNr">12501 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) -<span id="L12502" class="LineNr">12502 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12503" class="LineNr">12503 </span> <span class="subxComment"># convert</span> -<span id="L12504" class="LineNr">12504 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12505" class="LineNr">12505 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12506" class="LineNr">12506 </span> <span class="subxComment"># restore ed</span> -<span id="L12507" class="LineNr">12507 </span> 89/<- %edx 4/r32/esp -<span id="L12508" class="LineNr">12508 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12509" class="LineNr">12509 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12510" class="Folded">12510 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12516" class="LineNr">12516 </span> <span class="subxComment"># check output</span> -<span id="L12517" class="LineNr">12517 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12481'>test-read-from-stream-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L12518" class="LineNr">12518 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L12481'>test-read-from-stream-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12519" class="LineNr">12519 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12520" class="LineNr">12520 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12481'>test-read-from-stream-with-wrong-index-type</a>: exit status"</span>) -<span id="L12521" class="LineNr">12521 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12522" class="LineNr">12522 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12523" class="LineNr">12523 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12524" class="LineNr">12524 </span> 5d/pop-to-ebp -<span id="L12525" class="LineNr">12525 </span> c3/return -<span id="L12526" class="LineNr">12526 </span> -<span id="L12527" class="LineNr">12527 </span><span class="subxTest">test-read-from-stream-with-no-inouts</span>: -<span id="L12528" class="LineNr">12528 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12529" class="LineNr">12529 </span> 55/push-ebp -<span id="L12530" class="LineNr">12530 </span> 89/<- %ebp 4/r32/esp -<span id="L12531" class="LineNr">12531 </span> <span class="subxComment"># setup</span> -<span id="L12532" class="LineNr">12532 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12533" class="LineNr">12533 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12534" class="LineNr">12534 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12535" class="LineNr">12535 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12536" class="LineNr">12536 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12537" class="LineNr">12537 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12538" class="LineNr">12538 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12539" class="LineNr">12539 </span> 68/push 0/imm32 -<span id="L12540" class="LineNr">12540 </span> 68/push 0/imm32 -<span id="L12541" class="LineNr">12541 </span> 89/<- %edx 4/r32/esp -<span id="L12542" class="LineNr">12542 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12543" class="LineNr">12543 </span> <span class="subxComment">#</span> -<span id="L12544" class="LineNr">12544 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12545" class="LineNr">12545 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" read-from-stream\n"</span>) -<span id="L12546" class="LineNr">12546 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12547" class="LineNr">12547 </span> <span class="subxComment"># convert</span> -<span id="L12548" class="LineNr">12548 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12549" class="LineNr">12549 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12550" class="LineNr">12550 </span> <span class="subxComment"># restore ed</span> -<span id="L12551" class="LineNr">12551 </span> 89/<- %edx 4/r32/esp -<span id="L12552" class="LineNr">12552 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12553" class="LineNr">12553 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12554" class="Folded">12554 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12560" class="LineNr">12560 </span> <span class="subxComment"># check output</span> -<span id="L12561" class="LineNr">12561 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12527'>test-read-from-stream-with-no-inouts</a>: output should be empty"</span>) -<span id="L12562" class="LineNr">12562 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12527'>test-read-from-stream-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12563" class="LineNr">12563 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12564" class="LineNr">12564 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12527'>test-read-from-stream-with-no-inouts</a>: exit status"</span>) -<span id="L12565" class="LineNr">12565 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12566" class="LineNr">12566 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12567" class="LineNr">12567 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12568" class="LineNr">12568 </span> 5d/pop-to-ebp -<span id="L12569" class="LineNr">12569 </span> c3/return -<span id="L12570" class="LineNr">12570 </span> -<span id="L12571" class="LineNr">12571 </span><span class="subxTest">test-read-from-stream-with-too-few-inouts</span>: -<span id="L12572" class="LineNr">12572 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12573" class="LineNr">12573 </span> 55/push-ebp -<span id="L12574" class="LineNr">12574 </span> 89/<- %ebp 4/r32/esp -<span id="L12575" class="LineNr">12575 </span> <span class="subxComment"># setup</span> -<span id="L12576" class="LineNr">12576 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12577" class="LineNr">12577 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12578" class="LineNr">12578 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12579" class="LineNr">12579 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12580" class="LineNr">12580 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12581" class="LineNr">12581 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12582" class="LineNr">12582 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12583" class="LineNr">12583 </span> 68/push 0/imm32 -<span id="L12584" class="LineNr">12584 </span> 68/push 0/imm32 -<span id="L12585" class="LineNr">12585 </span> 89/<- %edx 4/r32/esp -<span id="L12586" class="LineNr">12586 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12587" class="LineNr">12587 </span> <span class="subxComment">#</span> -<span id="L12588" class="LineNr">12588 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12589" class="LineNr">12589 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L12590" class="LineNr">12590 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> a\n"</span>) -<span id="L12591" class="LineNr">12591 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12592" class="LineNr">12592 </span> <span class="subxComment"># convert</span> -<span id="L12593" class="LineNr">12593 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12594" class="LineNr">12594 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12595" class="LineNr">12595 </span> <span class="subxComment"># restore ed</span> -<span id="L12596" class="LineNr">12596 </span> 89/<- %edx 4/r32/esp -<span id="L12597" class="LineNr">12597 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12598" class="LineNr">12598 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12599" class="Folded">12599 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12605" class="LineNr">12605 </span> <span class="subxComment"># check output</span> -<span id="L12606" class="LineNr">12606 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12571'>test-read-from-stream-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L12607" class="LineNr">12607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12571'>test-read-from-stream-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12608" class="LineNr">12608 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12609" class="LineNr">12609 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12571'>test-read-from-stream-with-too-few-inouts</a>: exit status"</span>) -<span id="L12610" class="LineNr">12610 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12611" class="LineNr">12611 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12612" class="LineNr">12612 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12613" class="LineNr">12613 </span> 5d/pop-to-ebp -<span id="L12614" class="LineNr">12614 </span> c3/return -<span id="L12615" class="LineNr">12615 </span> -<span id="L12616" class="LineNr">12616 </span><span class="subxTest">test-read-from-stream-with-too-many-inouts</span>: -<span id="L12617" class="LineNr">12617 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12618" class="LineNr">12618 </span> 55/push-ebp -<span id="L12619" class="LineNr">12619 </span> 89/<- %ebp 4/r32/esp -<span id="L12620" class="LineNr">12620 </span> <span class="subxComment"># setup</span> -<span id="L12621" class="LineNr">12621 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12622" class="LineNr">12622 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12623" class="LineNr">12623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12624" class="LineNr">12624 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12625" class="LineNr">12625 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12626" class="LineNr">12626 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12627" class="LineNr">12627 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12628" class="LineNr">12628 </span> 68/push 0/imm32 -<span id="L12629" class="LineNr">12629 </span> 68/push 0/imm32 -<span id="L12630" class="LineNr">12630 </span> 89/<- %edx 4/r32/esp -<span id="L12631" class="LineNr">12631 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12632" class="LineNr">12632 </span> <span class="subxComment">#</span> -<span id="L12633" class="LineNr">12633 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12634" class="LineNr">12634 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L12635" class="LineNr">12635 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) -<span id="L12636" class="LineNr">12636 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L107'>read-from-stream</a> a, b, 0\n"</span>) -<span id="L12637" class="LineNr">12637 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12638" class="LineNr">12638 </span> <span class="subxComment"># convert</span> -<span id="L12639" class="LineNr">12639 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12640" class="LineNr">12640 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12641" class="LineNr">12641 </span> <span class="subxComment"># restore ed</span> -<span id="L12642" class="LineNr">12642 </span> 89/<- %edx 4/r32/esp -<span id="L12643" class="LineNr">12643 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12644" class="LineNr">12644 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12645" class="Folded">12645 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12651" class="LineNr">12651 </span> <span class="subxComment"># check output</span> -<span id="L12652" class="LineNr">12652 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12616'>test-read-from-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L12653" class="LineNr">12653 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12616'>test-read-from-stream-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12654" class="LineNr">12654 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12655" class="LineNr">12655 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12616'>test-read-from-stream-with-too-many-inouts</a>: exit status"</span>) -<span id="L12656" class="LineNr">12656 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12657" class="LineNr">12657 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12658" class="LineNr">12658 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12659" class="LineNr">12659 </span> 5d/pop-to-ebp -<span id="L12660" class="LineNr">12660 </span> c3/return -<span id="L12661" class="LineNr">12661 </span> -<span id="L12662" class="LineNr">12662 </span><span class="subxTest">test-read-from-stream-with-output</span>: -<span id="L12663" class="LineNr">12663 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12664" class="LineNr">12664 </span> 55/push-ebp -<span id="L12665" class="LineNr">12665 </span> 89/<- %ebp 4/r32/esp -<span id="L12666" class="LineNr">12666 </span> <span class="subxComment"># setup</span> -<span id="L12667" class="LineNr">12667 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12668" class="LineNr">12668 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12669" class="LineNr">12669 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12670" class="LineNr">12670 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12671" class="LineNr">12671 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12672" class="LineNr">12672 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12673" class="LineNr">12673 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12674" class="LineNr">12674 </span> 68/push 0/imm32 -<span id="L12675" class="LineNr">12675 </span> 68/push 0/imm32 -<span id="L12676" class="LineNr">12676 </span> 89/<- %edx 4/r32/esp -<span id="L12677" class="LineNr">12677 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12678" class="LineNr">12678 </span> <span class="subxComment">#</span> -<span id="L12679" class="LineNr">12679 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12680" class="LineNr">12680 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L12681" class="LineNr">12681 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L12682" class="LineNr">12682 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='../309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) -<span id="L12683" class="LineNr">12683 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12684" class="LineNr">12684 </span> <span class="subxComment"># convert</span> -<span id="L12685" class="LineNr">12685 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12686" class="LineNr">12686 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12687" class="LineNr">12687 </span> <span class="subxComment"># restore ed</span> -<span id="L12688" class="LineNr">12688 </span> 89/<- %edx 4/r32/esp -<span id="L12689" class="LineNr">12689 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12690" class="LineNr">12690 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12691" class="Folded">12691 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12697" class="LineNr">12697 </span> <span class="subxComment"># check output</span> -<span id="L12698" class="LineNr">12698 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12662'>test-read-from-stream-with-output</a>: output should be empty"</span>) -<span id="L12699" class="LineNr">12699 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12662'>test-read-from-stream-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12700" class="LineNr">12700 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12701" class="LineNr">12701 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12662'>test-read-from-stream-with-output</a>: exit status"</span>) -<span id="L12702" class="LineNr">12702 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12703" class="LineNr">12703 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12704" class="LineNr">12704 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12705" class="LineNr">12705 </span> 5d/pop-to-ebp -<span id="L12706" class="LineNr">12706 </span> c3/return -<span id="L12707" class="LineNr">12707 </span> -<span id="L12708" class="LineNr">12708 </span><span class="subxTest">test-convert-write-to-stream</span>: -<span id="L12709" class="LineNr">12709 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12710" class="LineNr">12710 </span> 55/push-ebp -<span id="L12711" class="LineNr">12711 </span> 89/<- %ebp 4/r32/esp -<span id="L12712" class="LineNr">12712 </span> <span class="subxComment"># setup</span> -<span id="L12713" class="LineNr">12713 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12714" class="LineNr">12714 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12715" class="LineNr">12715 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12716" class="LineNr">12716 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12717" class="LineNr">12717 </span> <span class="subxComment">#</span> -<span id="L12718" class="LineNr">12718 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12719" class="LineNr">12719 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) -<span id="L12720" class="LineNr">12720 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) -<span id="L12721" class="LineNr">12721 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) -<span id="L12722" class="LineNr">12722 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12723" class="LineNr">12723 </span> <span class="subxComment"># convert</span> -<span id="L12724" class="LineNr">12724 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12725" class="LineNr">12725 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12726" class="LineNr">12726 </span> <span class="subxComment"># restore ed</span> -<span id="L12727" class="LineNr">12727 </span> 89/<- %edx 4/r32/esp -<span id="L12728" class="LineNr">12728 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12729" class="LineNr">12729 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12730" class="Folded">12730 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12736" class="LineNr">12736 </span> <span class="subxComment"># check output</span> -<span id="L12737" class="LineNr">12737 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/0"</span>) -<span id="L12738" class="LineNr">12738 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream/1"</span>) -<span id="L12739" class="LineNr">12739 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/2"</span>) -<span id="L12740" class="LineNr">12740 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/3"</span>) -<span id="L12741" class="LineNr">12741 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/4"</span>) -<span id="L12742" class="LineNr">12742 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/5"</span>) -<span id="L12743" class="LineNr">12743 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/6"</span>) -<span id="L12744" class="LineNr">12744 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/7"</span>) -<span id="L12745" class="LineNr">12745 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/8"</span>) -<span id="L12746" class="LineNr">12746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/9"</span>) -<span id="L12747" class="LineNr">12747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/10"</span>) -<span id="L12748" class="LineNr">12748 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/11"</span>) -<span id="L12749" class="LineNr">12749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/12"</span>) -<span id="L12750" class="LineNr">12750 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/13"</span>) -<span id="L12751" class="LineNr">12751 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/14"</span>) -<span id="L12752" class="LineNr">12752 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream/15"</span>) -<span id="L12753" class="LineNr">12753 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/16"</span>) -<span id="L12754" class="LineNr">12754 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/17"</span>) -<span id="L12755" class="LineNr">12755 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12708'>test-convert-write-to-stream</a>/18"</span>) -<span id="L12756" class="LineNr">12756 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12757" class="LineNr">12757 </span> 89/<- %esp 5/r32/ebp -<span id="L12758" class="LineNr">12758 </span> 5d/pop-to-ebp -<span id="L12759" class="LineNr">12759 </span> c3/return -<span id="L12760" class="LineNr">12760 </span> -<span id="L12761" class="LineNr">12761 </span><span class="subxTest">test-convert-write-to-stream-with-correct-payload-size</span>: -<span id="L12762" class="LineNr">12762 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12763" class="LineNr">12763 </span> 55/push-ebp -<span id="L12764" class="LineNr">12764 </span> 89/<- %ebp 4/r32/esp -<span id="L12765" class="LineNr">12765 </span> <span class="subxComment"># setup</span> -<span id="L12766" class="LineNr">12766 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12767" class="LineNr">12767 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12768" class="LineNr">12768 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12769" class="LineNr">12769 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12770" class="LineNr">12770 </span> <span class="subxComment">#</span> -<span id="L12771" class="LineNr">12771 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12772" class="LineNr">12772 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) -<span id="L12773" class="LineNr">12773 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L12774" class="LineNr">12774 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) -<span id="L12775" class="LineNr">12775 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12776" class="LineNr">12776 </span> <span class="subxComment"># convert</span> -<span id="L12777" class="LineNr">12777 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L12778" class="LineNr">12778 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12779" class="LineNr">12779 </span> <span class="subxComment"># restore ed</span> -<span id="L12780" class="LineNr">12780 </span> 89/<- %edx 4/r32/esp -<span id="L12781" class="LineNr">12781 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12782" class="LineNr">12782 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12783" class="Folded">12783 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12789" class="LineNr">12789 </span> <span class="subxComment"># check output</span> -<span id="L12790" class="LineNr">12790 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/0"</span>) -<span id="L12791" class="LineNr">12791 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/1"</span>) -<span id="L12792" class="LineNr">12792 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/2"</span>) -<span id="L12793" class="LineNr">12793 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/3"</span>) -<span id="L12794" class="LineNr">12794 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/4"</span>) -<span id="L12795" class="LineNr">12795 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/5"</span>) -<span id="L12796" class="LineNr">12796 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/6"</span>) -<span id="L12797" class="LineNr">12797 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/7"</span>) -<span id="L12798" class="LineNr">12798 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/8"</span>) -<span id="L12799" class="LineNr">12799 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/9"</span>) -<span id="L12800" class="LineNr">12800 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" (<a href='../309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/10"</span>) -<span id="L12801" class="LineNr">12801 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/11"</span>) -<span id="L12802" class="LineNr">12802 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/12"</span>) -<span id="L12803" class="LineNr">12803 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/13"</span>) -<span id="L12804" class="LineNr">12804 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/14"</span>) -<span id="L12805" class="LineNr">12805 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/15"</span>) -<span id="L12806" class="LineNr">12806 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/16"</span>) -<span id="L12807" class="LineNr">12807 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/17"</span>) -<span id="L12808" class="LineNr">12808 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12761'>test-convert-write-to-stream-with-correct-payload-size</a>/18"</span>) -<span id="L12809" class="LineNr">12809 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12810" class="LineNr">12810 </span> 89/<- %esp 5/r32/ebp -<span id="L12811" class="LineNr">12811 </span> 5d/pop-to-ebp -<span id="L12812" class="LineNr">12812 </span> c3/return -<span id="L12813" class="LineNr">12813 </span> -<span id="L12814" class="LineNr">12814 </span><span class="subxTest">test-write-to-stream-with-non-stream-atom-base-type</span>: -<span id="L12815" class="LineNr">12815 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12816" class="LineNr">12816 </span> 55/push-ebp -<span id="L12817" class="LineNr">12817 </span> 89/<- %ebp 4/r32/esp -<span id="L12818" class="LineNr">12818 </span> <span class="subxComment"># setup</span> -<span id="L12819" class="LineNr">12819 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12820" class="LineNr">12820 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12821" class="LineNr">12821 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12822" class="LineNr">12822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12823" class="LineNr">12823 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12824" class="LineNr">12824 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12825" class="LineNr">12825 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12826" class="LineNr">12826 </span> 68/push 0/imm32 -<span id="L12827" class="LineNr">12827 </span> 68/push 0/imm32 -<span id="L12828" class="LineNr">12828 </span> 89/<- %edx 4/r32/esp -<span id="L12829" class="LineNr">12829 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12830" class="LineNr">12830 </span> <span class="subxComment">#</span> -<span id="L12831" class="LineNr">12831 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12832" class="LineNr">12832 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L12833" class="LineNr">12833 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L12834" class="LineNr">12834 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12835" class="LineNr">12835 </span> <span class="subxComment"># convert</span> -<span id="L12836" class="LineNr">12836 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12837" class="LineNr">12837 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12838" class="LineNr">12838 </span> <span class="subxComment"># restore ed</span> -<span id="L12839" class="LineNr">12839 </span> 89/<- %edx 4/r32/esp -<span id="L12840" class="LineNr">12840 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12841" class="LineNr">12841 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12842" class="Folded">12842 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12848" class="LineNr">12848 </span> <span class="subxComment"># check output</span> -<span id="L12849" class="LineNr">12849 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12814'>test-write-to-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L12850" class="LineNr">12850 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12814'>test-write-to-stream-with-non-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12851" class="LineNr">12851 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12852" class="LineNr">12852 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12814'>test-write-to-stream-with-non-stream-atom-base-type</a>: exit status"</span>) -<span id="L12853" class="LineNr">12853 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12854" class="LineNr">12854 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12855" class="LineNr">12855 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12856" class="LineNr">12856 </span> 5d/pop-to-ebp -<span id="L12857" class="LineNr">12857 </span> c3/return -<span id="L12858" class="LineNr">12858 </span> -<span id="L12859" class="LineNr">12859 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type</span>: -<span id="L12860" class="LineNr">12860 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12861" class="LineNr">12861 </span> 55/push-ebp -<span id="L12862" class="LineNr">12862 </span> 89/<- %ebp 4/r32/esp -<span id="L12863" class="LineNr">12863 </span> <span class="subxComment"># setup</span> -<span id="L12864" class="LineNr">12864 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12865" class="LineNr">12865 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12866" class="LineNr">12866 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12867" class="LineNr">12867 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12868" class="LineNr">12868 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12869" class="LineNr">12869 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12870" class="LineNr">12870 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12871" class="LineNr">12871 </span> 68/push 0/imm32 -<span id="L12872" class="LineNr">12872 </span> 68/push 0/imm32 -<span id="L12873" class="LineNr">12873 </span> 89/<- %edx 4/r32/esp -<span id="L12874" class="LineNr">12874 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12875" class="LineNr">12875 </span> <span class="subxComment">#</span> -<span id="L12876" class="LineNr">12876 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12877" class="LineNr">12877 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L12878" class="LineNr">12878 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L12879" class="LineNr">12879 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12880" class="LineNr">12880 </span> <span class="subxComment"># convert</span> -<span id="L12881" class="LineNr">12881 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12882" class="LineNr">12882 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12883" class="LineNr">12883 </span> <span class="subxComment"># restore ed</span> -<span id="L12884" class="LineNr">12884 </span> 89/<- %edx 4/r32/esp -<span id="L12885" class="LineNr">12885 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12886" class="LineNr">12886 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12887" class="Folded">12887 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12893" class="LineNr">12893 </span> <span class="subxComment"># check output</span> -<span id="L12894" class="LineNr">12894 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12859'>test-write-to-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) -<span id="L12895" class="LineNr">12895 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12859'>test-write-to-stream-with-non-stream-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12896" class="LineNr">12896 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12897" class="LineNr">12897 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12859'>test-write-to-stream-with-non-stream-compound-base-type</a>: exit status"</span>) -<span id="L12898" class="LineNr">12898 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12899" class="LineNr">12899 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12900" class="LineNr">12900 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12901" class="LineNr">12901 </span> 5d/pop-to-ebp -<span id="L12902" class="LineNr">12902 </span> c3/return -<span id="L12903" class="LineNr">12903 </span> -<span id="L12904" class="LineNr">12904 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type-2</span>: -<span id="L12905" class="LineNr">12905 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12906" class="LineNr">12906 </span> 55/push-ebp -<span id="L12907" class="LineNr">12907 </span> 89/<- %ebp 4/r32/esp -<span id="L12908" class="LineNr">12908 </span> <span class="subxComment"># setup</span> -<span id="L12909" class="LineNr">12909 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12910" class="LineNr">12910 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12911" class="LineNr">12911 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12912" class="LineNr">12912 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12913" class="LineNr">12913 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12914" class="LineNr">12914 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12915" class="LineNr">12915 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12916" class="LineNr">12916 </span> 68/push 0/imm32 -<span id="L12917" class="LineNr">12917 </span> 68/push 0/imm32 -<span id="L12918" class="LineNr">12918 </span> 89/<- %edx 4/r32/esp -<span id="L12919" class="LineNr">12919 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12920" class="LineNr">12920 </span> <span class="subxComment">#</span> -<span id="L12921" class="LineNr">12921 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12922" class="LineNr">12922 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L12923" class="LineNr">12923 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L12924" class="LineNr">12924 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12925" class="LineNr">12925 </span> <span class="subxComment"># convert</span> -<span id="L12926" class="LineNr">12926 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12927" class="LineNr">12927 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12928" class="LineNr">12928 </span> <span class="subxComment"># restore ed</span> -<span id="L12929" class="LineNr">12929 </span> 89/<- %edx 4/r32/esp -<span id="L12930" class="LineNr">12930 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12931" class="LineNr">12931 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12932" class="Folded">12932 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12938" class="LineNr">12938 </span> <span class="subxComment"># check output</span> -<span id="L12939" class="LineNr">12939 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12904'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) -<span id="L12940" class="LineNr">12940 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12904'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12941" class="LineNr">12941 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12942" class="LineNr">12942 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12904'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) -<span id="L12943" class="LineNr">12943 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12944" class="LineNr">12944 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12945" class="LineNr">12945 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12946" class="LineNr">12946 </span> 5d/pop-to-ebp -<span id="L12947" class="LineNr">12947 </span> c3/return -<span id="L12948" class="LineNr">12948 </span> -<span id="L12949" class="LineNr">12949 </span><span class="subxTest">test-write-to-stream-with-stream-atom-base-type</span>: -<span id="L12950" class="LineNr">12950 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12951" class="LineNr">12951 </span> 55/push-ebp -<span id="L12952" class="LineNr">12952 </span> 89/<- %ebp 4/r32/esp -<span id="L12953" class="LineNr">12953 </span> <span class="subxComment"># setup</span> -<span id="L12954" class="LineNr">12954 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L12955" class="LineNr">12955 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L12956" class="LineNr">12956 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L12957" class="LineNr">12957 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L12958" class="LineNr">12958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L12959" class="LineNr">12959 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L12960" class="LineNr">12960 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L12961" class="LineNr">12961 </span> 68/push 0/imm32 -<span id="L12962" class="LineNr">12962 </span> 68/push 0/imm32 -<span id="L12963" class="LineNr">12963 </span> 89/<- %edx 4/r32/esp -<span id="L12964" class="LineNr">12964 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L12965" class="LineNr">12965 </span> <span class="subxComment">#</span> -<span id="L12966" class="LineNr">12966 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L12967" class="LineNr">12967 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) -<span id="L12968" class="LineNr">12968 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) -<span id="L12969" class="LineNr">12969 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L12970" class="LineNr">12970 </span> <span class="subxComment"># convert</span> -<span id="L12971" class="LineNr">12971 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L12972" class="LineNr">12972 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L12973" class="LineNr">12973 </span> <span class="subxComment"># restore ed</span> -<span id="L12974" class="LineNr">12974 </span> 89/<- %edx 4/r32/esp -<span id="L12975" class="LineNr">12975 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L12976" class="LineNr">12976 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L12977" class="Folded">12977 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L12983" class="LineNr">12983 </span> <span class="subxComment"># check output</span> -<span id="L12984" class="LineNr">12984 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12949'>test-write-to-stream-with-stream-atom-base-type</a>: output should be empty"</span>) -<span id="L12985" class="LineNr">12985 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12949'>test-write-to-stream-with-stream-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L12986" class="LineNr">12986 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L12987" class="LineNr">12987 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12949'>test-write-to-stream-with-stream-atom-base-type</a>: exit status"</span>) -<span id="L12988" class="LineNr">12988 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L12989" class="LineNr">12989 </span> 81 0/subop/add %esp 8/imm32 -<span id="L12990" class="LineNr">12990 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L12991" class="LineNr">12991 </span> 5d/pop-to-ebp -<span id="L12992" class="LineNr">12992 </span> c3/return -<span id="L12993" class="LineNr">12993 </span> -<span id="L12994" class="LineNr">12994 </span><span class="subxTest">test-write-to-stream-with-wrong-index-type</span>: -<span id="L12995" class="LineNr">12995 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L12996" class="LineNr">12996 </span> 55/push-ebp -<span id="L12997" class="LineNr">12997 </span> 89/<- %ebp 4/r32/esp -<span id="L12998" class="LineNr">12998 </span> <span class="subxComment"># setup</span> -<span id="L12999" class="LineNr">12999 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13000" class="LineNr">13000 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13001" class="LineNr">13001 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13002" class="LineNr">13002 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13003" class="LineNr">13003 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13004" class="LineNr">13004 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13005" class="LineNr">13005 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13006" class="LineNr">13006 </span> 68/push 0/imm32 -<span id="L13007" class="LineNr">13007 </span> 68/push 0/imm32 -<span id="L13008" class="LineNr">13008 </span> 89/<- %edx 4/r32/esp -<span id="L13009" class="LineNr">13009 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13010" class="LineNr">13010 </span> <span class="subxComment">#</span> -<span id="L13011" class="LineNr">13011 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13012" class="LineNr">13012 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) -<span id="L13013" class="LineNr">13013 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) -<span id="L13014" class="LineNr">13014 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) -<span id="L13015" class="LineNr">13015 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13016" class="LineNr">13016 </span> <span class="subxComment"># convert</span> -<span id="L13017" class="LineNr">13017 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13018" class="LineNr">13018 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13019" class="LineNr">13019 </span> <span class="subxComment"># restore ed</span> -<span id="L13020" class="LineNr">13020 </span> 89/<- %edx 4/r32/esp -<span id="L13021" class="LineNr">13021 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13022" class="LineNr">13022 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13023" class="Folded">13023 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13029" class="LineNr">13029 </span> <span class="subxComment"># check output</span> -<span id="L13030" class="LineNr">13030 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12994'>test-write-to-stream-with-wrong-index-type</a>: output should be empty"</span>) -<span id="L13031" class="LineNr">13031 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L12994'>test-write-to-stream-with-wrong-index-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13032" class="LineNr">13032 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13033" class="LineNr">13033 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12994'>test-write-to-stream-with-wrong-index-type</a>: exit status"</span>) -<span id="L13034" class="LineNr">13034 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13035" class="LineNr">13035 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13036" class="LineNr">13036 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13037" class="LineNr">13037 </span> 5d/pop-to-ebp -<span id="L13038" class="LineNr">13038 </span> c3/return -<span id="L13039" class="LineNr">13039 </span> -<span id="L13040" class="LineNr">13040 </span><span class="subxTest">test-write-to-stream-with-no-inouts</span>: -<span id="L13041" class="LineNr">13041 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13042" class="LineNr">13042 </span> 55/push-ebp -<span id="L13043" class="LineNr">13043 </span> 89/<- %ebp 4/r32/esp -<span id="L13044" class="LineNr">13044 </span> <span class="subxComment"># setup</span> -<span id="L13045" class="LineNr">13045 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13046" class="LineNr">13046 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13047" class="LineNr">13047 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13048" class="LineNr">13048 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13049" class="LineNr">13049 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13050" class="LineNr">13050 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13051" class="LineNr">13051 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13052" class="LineNr">13052 </span> 68/push 0/imm32 -<span id="L13053" class="LineNr">13053 </span> 68/push 0/imm32 -<span id="L13054" class="LineNr">13054 </span> 89/<- %edx 4/r32/esp -<span id="L13055" class="LineNr">13055 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13056" class="LineNr">13056 </span> <span class="subxComment">#</span> -<span id="L13057" class="LineNr">13057 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13058" class="LineNr">13058 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" write-to-stream\n"</span>) -<span id="L13059" class="LineNr">13059 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13060" class="LineNr">13060 </span> <span class="subxComment"># convert</span> -<span id="L13061" class="LineNr">13061 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13062" class="LineNr">13062 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13063" class="LineNr">13063 </span> <span class="subxComment"># restore ed</span> -<span id="L13064" class="LineNr">13064 </span> 89/<- %edx 4/r32/esp -<span id="L13065" class="LineNr">13065 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13066" class="LineNr">13066 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13067" class="Folded">13067 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13073" class="LineNr">13073 </span> <span class="subxComment"># check output</span> -<span id="L13074" class="LineNr">13074 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13040'>test-write-to-stream-with-no-inouts</a>: output should be empty"</span>) -<span id="L13075" class="LineNr">13075 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13040'>test-write-to-stream-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13076" class="LineNr">13076 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13077" class="LineNr">13077 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13040'>test-write-to-stream-with-no-inouts</a>: exit status"</span>) -<span id="L13078" class="LineNr">13078 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13079" class="LineNr">13079 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13080" class="LineNr">13080 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13081" class="LineNr">13081 </span> 5d/pop-to-ebp -<span id="L13082" class="LineNr">13082 </span> c3/return -<span id="L13083" class="LineNr">13083 </span> -<span id="L13084" class="LineNr">13084 </span><span class="subxTest">test-write-to-stream-with-too-few-inouts</span>: -<span id="L13085" class="LineNr">13085 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13086" class="LineNr">13086 </span> 55/push-ebp -<span id="L13087" class="LineNr">13087 </span> 89/<- %ebp 4/r32/esp -<span id="L13088" class="LineNr">13088 </span> <span class="subxComment"># setup</span> -<span id="L13089" class="LineNr">13089 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13090" class="LineNr">13090 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13091" class="LineNr">13091 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13092" class="LineNr">13092 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13093" class="LineNr">13093 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13094" class="LineNr">13094 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13095" class="LineNr">13095 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13096" class="LineNr">13096 </span> 68/push 0/imm32 -<span id="L13097" class="LineNr">13097 </span> 68/push 0/imm32 -<span id="L13098" class="LineNr">13098 </span> 89/<- %edx 4/r32/esp -<span id="L13099" class="LineNr">13099 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13100" class="LineNr">13100 </span> <span class="subxComment">#</span> -<span id="L13101" class="LineNr">13101 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13102" class="LineNr">13102 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L13103" class="LineNr">13103 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> a\n"</span>) -<span id="L13104" class="LineNr">13104 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13105" class="LineNr">13105 </span> <span class="subxComment"># convert</span> -<span id="L13106" class="LineNr">13106 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13107" class="LineNr">13107 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13108" class="LineNr">13108 </span> <span class="subxComment"># restore ed</span> -<span id="L13109" class="LineNr">13109 </span> 89/<- %edx 4/r32/esp -<span id="L13110" class="LineNr">13110 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13111" class="LineNr">13111 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13112" class="Folded">13112 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13118" class="LineNr">13118 </span> <span class="subxComment"># check output</span> -<span id="L13119" class="LineNr">13119 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13084'>test-write-to-stream-with-too-few-inouts</a>: output should be empty"</span>) -<span id="L13120" class="LineNr">13120 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13084'>test-write-to-stream-with-too-few-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13121" class="LineNr">13121 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13122" class="LineNr">13122 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13084'>test-write-to-stream-with-too-few-inouts</a>: exit status"</span>) -<span id="L13123" class="LineNr">13123 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13124" class="LineNr">13124 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13125" class="LineNr">13125 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13126" class="LineNr">13126 </span> 5d/pop-to-ebp -<span id="L13127" class="LineNr">13127 </span> c3/return -<span id="L13128" class="LineNr">13128 </span> -<span id="L13129" class="LineNr">13129 </span><span class="subxTest">test-write-to-stream-with-too-many-inouts</span>: -<span id="L13130" class="LineNr">13130 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13131" class="LineNr">13131 </span> 55/push-ebp -<span id="L13132" class="LineNr">13132 </span> 89/<- %ebp 4/r32/esp -<span id="L13133" class="LineNr">13133 </span> <span class="subxComment"># setup</span> -<span id="L13134" class="LineNr">13134 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13135" class="LineNr">13135 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13136" class="LineNr">13136 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13137" class="LineNr">13137 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13138" class="LineNr">13138 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13139" class="LineNr">13139 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13140" class="LineNr">13140 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13141" class="LineNr">13141 </span> 68/push 0/imm32 -<span id="L13142" class="LineNr">13142 </span> 68/push 0/imm32 -<span id="L13143" class="LineNr">13143 </span> 89/<- %edx 4/r32/esp -<span id="L13144" class="LineNr">13144 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13145" class="LineNr">13145 </span> <span class="subxComment">#</span> -<span id="L13146" class="LineNr">13146 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13147" class="LineNr">13147 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L13148" class="LineNr">13148 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) -<span id="L13149" class="LineNr">13149 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../309stream.subx.html#L54'>write-to-stream</a> a, b, 0\n"</span>) -<span id="L13150" class="LineNr">13150 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13151" class="LineNr">13151 </span> <span class="subxComment"># convert</span> -<span id="L13152" class="LineNr">13152 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13153" class="LineNr">13153 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13154" class="LineNr">13154 </span> <span class="subxComment"># restore ed</span> -<span id="L13155" class="LineNr">13155 </span> 89/<- %edx 4/r32/esp -<span id="L13156" class="LineNr">13156 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13157" class="LineNr">13157 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13158" class="Folded">13158 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13164" class="LineNr">13164 </span> <span class="subxComment"># check output</span> -<span id="L13165" class="LineNr">13165 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13129'>test-write-to-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L13166" class="LineNr">13166 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13129'>test-write-to-stream-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13167" class="LineNr">13167 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13168" class="LineNr">13168 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13129'>test-write-to-stream-with-too-many-inouts</a>: exit status"</span>) -<span id="L13169" class="LineNr">13169 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13170" class="LineNr">13170 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13171" class="LineNr">13171 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13172" class="LineNr">13172 </span> 5d/pop-to-ebp -<span id="L13173" class="LineNr">13173 </span> c3/return -<span id="L13174" class="LineNr">13174 </span> -<span id="L13175" class="LineNr">13175 </span><span class="subxTest">test-write-to-stream-with-output</span>: -<span id="L13176" class="LineNr">13176 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13177" class="LineNr">13177 </span> 55/push-ebp -<span id="L13178" class="LineNr">13178 </span> 89/<- %ebp 4/r32/esp -<span id="L13179" class="LineNr">13179 </span> <span class="subxComment"># setup</span> -<span id="L13180" class="LineNr">13180 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13181" class="LineNr">13181 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13182" class="LineNr">13182 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13183" class="LineNr">13183 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13184" class="LineNr">13184 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13185" class="LineNr">13185 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13186" class="LineNr">13186 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13187" class="LineNr">13187 </span> 68/push 0/imm32 -<span id="L13188" class="LineNr">13188 </span> 68/push 0/imm32 -<span id="L13189" class="LineNr">13189 </span> 89/<- %edx 4/r32/esp -<span id="L13190" class="LineNr">13190 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13191" class="LineNr">13191 </span> <span class="subxComment">#</span> -<span id="L13192" class="LineNr">13192 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13193" class="LineNr">13193 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) -<span id="L13194" class="LineNr">13194 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) -<span id="L13195" class="LineNr">13195 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='../309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) -<span id="L13196" class="LineNr">13196 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13197" class="LineNr">13197 </span> <span class="subxComment"># convert</span> -<span id="L13198" class="LineNr">13198 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13199" class="LineNr">13199 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13200" class="LineNr">13200 </span> <span class="subxComment"># restore ed</span> -<span id="L13201" class="LineNr">13201 </span> 89/<- %edx 4/r32/esp -<span id="L13202" class="LineNr">13202 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13203" class="LineNr">13203 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13204" class="Folded">13204 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13210" class="LineNr">13210 </span> <span class="subxComment"># check output</span> -<span id="L13211" class="LineNr">13211 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13175'>test-write-to-stream-with-output</a>: output should be empty"</span>) -<span id="L13212" class="LineNr">13212 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13175'>test-write-to-stream-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13213" class="LineNr">13213 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13214" class="LineNr">13214 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13175'>test-write-to-stream-with-output</a>: exit status"</span>) -<span id="L13215" class="LineNr">13215 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13216" class="LineNr">13216 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13217" class="LineNr">13217 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13218" class="LineNr">13218 </span> 5d/pop-to-ebp -<span id="L13219" class="LineNr">13219 </span> c3/return -<span id="L13220" class="LineNr">13220 </span> -<span id="L13221" class="LineNr">13221 </span><span class="subxTest">test-length-with-non-array-atom-base-type</span>: -<span id="L13222" class="LineNr">13222 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13223" class="LineNr">13223 </span> 55/push-ebp -<span id="L13224" class="LineNr">13224 </span> 89/<- %ebp 4/r32/esp -<span id="L13225" class="LineNr">13225 </span> <span class="subxComment"># setup</span> -<span id="L13226" class="LineNr">13226 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13227" class="LineNr">13227 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13228" class="LineNr">13228 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13229" class="LineNr">13229 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13230" class="LineNr">13230 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13231" class="LineNr">13231 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13232" class="LineNr">13232 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13233" class="LineNr">13233 </span> 68/push 0/imm32 -<span id="L13234" class="LineNr">13234 </span> 68/push 0/imm32 -<span id="L13235" class="LineNr">13235 </span> 89/<- %edx 4/r32/esp -<span id="L13236" class="LineNr">13236 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13237" class="LineNr">13237 </span> <span class="subxComment">#</span> -<span id="L13238" class="LineNr">13238 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13239" class="LineNr">13239 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) -<span id="L13240" class="LineNr">13240 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a\n"</span>) -<span id="L13241" class="LineNr">13241 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13242" class="LineNr">13242 </span> <span class="subxComment"># convert</span> -<span id="L13243" class="LineNr">13243 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13244" class="LineNr">13244 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13245" class="LineNr">13245 </span> <span class="subxComment"># restore ed</span> -<span id="L13246" class="LineNr">13246 </span> 89/<- %edx 4/r32/esp -<span id="L13247" class="LineNr">13247 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13248" class="LineNr">13248 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13249" class="Folded">13249 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13255" class="LineNr">13255 </span> <span class="subxComment"># check output</span> -<span id="L13256" class="LineNr">13256 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13221'>test-length-with-non-array-atom-base-type</a>: output should be empty"</span>) -<span id="L13257" class="LineNr">13257 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13221'>test-length-with-non-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13258" class="LineNr">13258 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13259" class="LineNr">13259 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13221'>test-length-with-non-array-atom-base-type</a>: exit status"</span>) -<span id="L13260" class="LineNr">13260 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13261" class="LineNr">13261 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13262" class="LineNr">13262 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13263" class="LineNr">13263 </span> 5d/pop-to-ebp -<span id="L13264" class="LineNr">13264 </span> c3/return -<span id="L13265" class="LineNr">13265 </span> -<span id="L13266" class="LineNr">13266 </span><span class="subxTest">test-length-with-non-array-compound-base-type</span>: -<span id="L13267" class="LineNr">13267 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13268" class="LineNr">13268 </span> 55/push-ebp -<span id="L13269" class="LineNr">13269 </span> 89/<- %ebp 4/r32/esp -<span id="L13270" class="LineNr">13270 </span> <span class="subxComment"># setup</span> -<span id="L13271" class="LineNr">13271 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13272" class="LineNr">13272 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13273" class="LineNr">13273 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13274" class="LineNr">13274 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13275" class="LineNr">13275 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13276" class="LineNr">13276 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13277" class="LineNr">13277 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13278" class="LineNr">13278 </span> 68/push 0/imm32 -<span id="L13279" class="LineNr">13279 </span> 68/push 0/imm32 -<span id="L13280" class="LineNr">13280 </span> 89/<- %edx 4/r32/esp -<span id="L13281" class="LineNr">13281 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13282" class="LineNr">13282 </span> <span class="subxComment">#</span> -<span id="L13283" class="LineNr">13283 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13284" class="LineNr">13284 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) -<span id="L13285" class="LineNr">13285 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) -<span id="L13286" class="LineNr">13286 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13287" class="LineNr">13287 </span> <span class="subxComment"># convert</span> -<span id="L13288" class="LineNr">13288 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13289" class="LineNr">13289 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13290" class="LineNr">13290 </span> <span class="subxComment"># restore ed</span> -<span id="L13291" class="LineNr">13291 </span> 89/<- %edx 4/r32/esp -<span id="L13292" class="LineNr">13292 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13293" class="LineNr">13293 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13294" class="Folded">13294 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13300" class="LineNr">13300 </span> <span class="subxComment"># check output</span> -<span id="L13301" class="LineNr">13301 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13266'>test-length-with-non-array-compound-base-type</a>: output should be empty"</span>) -<span id="L13302" class="LineNr">13302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13266'>test-length-with-non-array-compound-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13303" class="LineNr">13303 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13304" class="LineNr">13304 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13266'>test-length-with-non-array-compound-base-type</a>: exit status"</span>) -<span id="L13305" class="LineNr">13305 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13306" class="LineNr">13306 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13307" class="LineNr">13307 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13308" class="LineNr">13308 </span> 5d/pop-to-ebp -<span id="L13309" class="LineNr">13309 </span> c3/return -<span id="L13310" class="LineNr">13310 </span> -<span id="L13311" class="LineNr">13311 </span><span class="subxTest">test-length-with-non-array-compound-base-type-2</span>: -<span id="L13312" class="LineNr">13312 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13313" class="LineNr">13313 </span> 55/push-ebp -<span id="L13314" class="LineNr">13314 </span> 89/<- %ebp 4/r32/esp -<span id="L13315" class="LineNr">13315 </span> <span class="subxComment"># setup</span> -<span id="L13316" class="LineNr">13316 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13317" class="LineNr">13317 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13318" class="LineNr">13318 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13319" class="LineNr">13319 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13320" class="LineNr">13320 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13321" class="LineNr">13321 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13322" class="LineNr">13322 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13323" class="LineNr">13323 </span> 68/push 0/imm32 -<span id="L13324" class="LineNr">13324 </span> 68/push 0/imm32 -<span id="L13325" class="LineNr">13325 </span> 89/<- %edx 4/r32/esp -<span id="L13326" class="LineNr">13326 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13327" class="LineNr">13327 </span> <span class="subxComment">#</span> -<span id="L13328" class="LineNr">13328 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13329" class="LineNr">13329 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) -<span id="L13330" class="LineNr">13330 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) -<span id="L13331" class="LineNr">13331 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13332" class="LineNr">13332 </span> <span class="subxComment"># convert</span> -<span id="L13333" class="LineNr">13333 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13334" class="LineNr">13334 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13335" class="LineNr">13335 </span> <span class="subxComment"># restore ed</span> -<span id="L13336" class="LineNr">13336 </span> 89/<- %edx 4/r32/esp -<span id="L13337" class="LineNr">13337 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13338" class="LineNr">13338 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13339" class="Folded">13339 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13345" class="LineNr">13345 </span> <span class="subxComment"># check output</span> -<span id="L13346" class="LineNr">13346 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13311'>test-length-with-non-array-compound-base-type-2</a>: output should be empty"</span>) -<span id="L13347" class="LineNr">13347 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13311'>test-length-with-non-array-compound-base-type-2</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13348" class="LineNr">13348 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13349" class="LineNr">13349 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13311'>test-length-with-non-array-compound-base-type-2</a>: exit status"</span>) -<span id="L13350" class="LineNr">13350 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13351" class="LineNr">13351 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13352" class="LineNr">13352 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13353" class="LineNr">13353 </span> 5d/pop-to-ebp -<span id="L13354" class="LineNr">13354 </span> c3/return -<span id="L13355" class="LineNr">13355 </span> -<span id="L13356" class="LineNr">13356 </span><span class="subxTest">test-length-with-array-atom-base-type</span>: -<span id="L13357" class="LineNr">13357 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13358" class="LineNr">13358 </span> 55/push-ebp -<span id="L13359" class="LineNr">13359 </span> 89/<- %ebp 4/r32/esp -<span id="L13360" class="LineNr">13360 </span> <span class="subxComment"># setup</span> -<span id="L13361" class="LineNr">13361 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13362" class="LineNr">13362 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13363" class="LineNr">13363 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13364" class="LineNr">13364 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13365" class="LineNr">13365 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13366" class="LineNr">13366 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13367" class="LineNr">13367 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13368" class="LineNr">13368 </span> 68/push 0/imm32 -<span id="L13369" class="LineNr">13369 </span> 68/push 0/imm32 -<span id="L13370" class="LineNr">13370 </span> 89/<- %edx 4/r32/esp -<span id="L13371" class="LineNr">13371 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13372" class="LineNr">13372 </span> <span class="subxComment">#</span> -<span id="L13373" class="LineNr">13373 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13374" class="LineNr">13374 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) -<span id="L13375" class="LineNr">13375 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) -<span id="L13376" class="LineNr">13376 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13377" class="LineNr">13377 </span> <span class="subxComment"># convert</span> -<span id="L13378" class="LineNr">13378 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13379" class="LineNr">13379 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13380" class="LineNr">13380 </span> <span class="subxComment"># restore ed</span> -<span id="L13381" class="LineNr">13381 </span> 89/<- %edx 4/r32/esp -<span id="L13382" class="LineNr">13382 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13383" class="LineNr">13383 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13384" class="Folded">13384 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13390" class="LineNr">13390 </span> <span class="subxComment"># check output</span> -<span id="L13391" class="LineNr">13391 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13356'>test-length-with-array-atom-base-type</a>: output should be empty"</span>) -<span id="L13392" class="LineNr">13392 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L13356'>test-length-with-array-atom-base-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13393" class="LineNr">13393 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13394" class="LineNr">13394 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13356'>test-length-with-array-atom-base-type</a>: exit status"</span>) -<span id="L13395" class="LineNr">13395 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13396" class="LineNr">13396 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13397" class="LineNr">13397 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13398" class="LineNr">13398 </span> 5d/pop-to-ebp -<span id="L13399" class="LineNr">13399 </span> c3/return -<span id="L13400" class="LineNr">13400 </span> -<span id="L13401" class="LineNr">13401 </span><span class="subxTest">test-length-with-addr-base-on-stack</span>: -<span id="L13402" class="LineNr">13402 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13403" class="LineNr">13403 </span> 55/push-ebp -<span id="L13404" class="LineNr">13404 </span> 89/<- %ebp 4/r32/esp -<span id="L13405" class="LineNr">13405 </span> <span class="subxComment"># setup</span> -<span id="L13406" class="LineNr">13406 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13407" class="LineNr">13407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13408" class="LineNr">13408 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13409" class="LineNr">13409 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13410" class="LineNr">13410 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13411" class="LineNr">13411 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13412" class="LineNr">13412 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13413" class="LineNr">13413 </span> 68/push 0/imm32 -<span id="L13414" class="LineNr">13414 </span> 68/push 0/imm32 -<span id="L13415" class="LineNr">13415 </span> 89/<- %edx 4/r32/esp -<span id="L13416" class="LineNr">13416 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13417" class="LineNr">13417 </span> <span class="subxComment">#</span> -<span id="L13418" class="LineNr">13418 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13419" class="LineNr">13419 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) -<span id="L13420" class="LineNr">13420 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) -<span id="L13421" class="LineNr">13421 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13422" class="LineNr">13422 </span> <span class="subxComment"># convert</span> -<span id="L13423" class="LineNr">13423 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13424" class="LineNr">13424 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13425" class="LineNr">13425 </span> <span class="subxComment"># restore ed</span> -<span id="L13426" class="LineNr">13426 </span> 89/<- %edx 4/r32/esp -<span id="L13427" class="LineNr">13427 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13428" class="LineNr">13428 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13429" class="Folded">13429 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13435" class="LineNr">13435 </span> <span class="subxComment"># check output</span> -<span id="L13436" class="LineNr">13436 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13401'>test-length-with-addr-base-on-stack</a>: output should be empty"</span>) -<span id="L13437" class="LineNr">13437 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L13401'>test-length-with-addr-base-on-stack</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13438" class="LineNr">13438 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13439" class="LineNr">13439 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13401'>test-length-with-addr-base-on-stack</a>: exit status"</span>) -<span id="L13440" class="LineNr">13440 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13441" class="LineNr">13441 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13442" class="LineNr">13442 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13443" class="LineNr">13443 </span> 5d/pop-to-ebp -<span id="L13444" class="LineNr">13444 </span> c3/return -<span id="L13445" class="LineNr">13445 </span> -<span id="L13446" class="LineNr">13446 </span><span class="subxTest">test-length-with-wrong-output-type</span>: -<span id="L13447" class="LineNr">13447 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13448" class="LineNr">13448 </span> 55/push-ebp -<span id="L13449" class="LineNr">13449 </span> 89/<- %ebp 4/r32/esp -<span id="L13450" class="LineNr">13450 </span> <span class="subxComment"># setup</span> -<span id="L13451" class="LineNr">13451 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13452" class="LineNr">13452 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13453" class="LineNr">13453 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13454" class="LineNr">13454 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13455" class="LineNr">13455 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13456" class="LineNr">13456 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13457" class="LineNr">13457 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13458" class="LineNr">13458 </span> 68/push 0/imm32 -<span id="L13459" class="LineNr">13459 </span> 68/push 0/imm32 -<span id="L13460" class="LineNr">13460 </span> 89/<- %edx 4/r32/esp -<span id="L13461" class="LineNr">13461 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13462" class="LineNr">13462 </span> <span class="subxComment">#</span> -<span id="L13463" class="LineNr">13463 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13464" class="LineNr">13464 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) -<span id="L13465" class="LineNr">13465 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- length a\n"</span>) -<span id="L13466" class="LineNr">13466 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13467" class="LineNr">13467 </span> <span class="subxComment"># convert</span> -<span id="L13468" class="LineNr">13468 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13469" class="LineNr">13469 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13470" class="LineNr">13470 </span> <span class="subxComment"># restore ed</span> -<span id="L13471" class="LineNr">13471 </span> 89/<- %edx 4/r32/esp -<span id="L13472" class="LineNr">13472 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13473" class="LineNr">13473 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13474" class="Folded">13474 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13480" class="LineNr">13480 </span> <span class="subxComment"># check output</span> -<span id="L13481" class="LineNr">13481 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13446'>test-length-with-wrong-output-type</a>: output should be empty"</span>) -<span id="L13482" class="LineNr">13482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13446'>test-length-with-wrong-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13483" class="LineNr">13483 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13484" class="LineNr">13484 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13446'>test-length-with-wrong-output-type</a>: exit status"</span>) -<span id="L13485" class="LineNr">13485 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13486" class="LineNr">13486 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13487" class="LineNr">13487 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13488" class="LineNr">13488 </span> 5d/pop-to-ebp -<span id="L13489" class="LineNr">13489 </span> c3/return -<span id="L13490" class="LineNr">13490 </span> -<span id="L13491" class="LineNr">13491 </span><span class="subxTest">test-length-with-wrong-output-compound-type</span>: -<span id="L13492" class="LineNr">13492 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13493" class="LineNr">13493 </span> 55/push-ebp -<span id="L13494" class="LineNr">13494 </span> 89/<- %ebp 4/r32/esp -<span id="L13495" class="LineNr">13495 </span> <span class="subxComment"># setup</span> -<span id="L13496" class="LineNr">13496 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13497" class="LineNr">13497 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13498" class="LineNr">13498 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13499" class="LineNr">13499 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13500" class="LineNr">13500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13501" class="LineNr">13501 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13502" class="LineNr">13502 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13503" class="LineNr">13503 </span> 68/push 0/imm32 -<span id="L13504" class="LineNr">13504 </span> 68/push 0/imm32 -<span id="L13505" class="LineNr">13505 </span> 89/<- %edx 4/r32/esp -<span id="L13506" class="LineNr">13506 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13507" class="LineNr">13507 </span> <span class="subxComment">#</span> -<span id="L13508" class="LineNr">13508 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13509" class="LineNr">13509 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) -<span id="L13510" class="LineNr">13510 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- length a\n"</span>) -<span id="L13511" class="LineNr">13511 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13512" class="LineNr">13512 </span> <span class="subxComment"># convert</span> -<span id="L13513" class="LineNr">13513 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13514" class="LineNr">13514 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13515" class="LineNr">13515 </span> <span class="subxComment"># restore ed</span> -<span id="L13516" class="LineNr">13516 </span> 89/<- %edx 4/r32/esp -<span id="L13517" class="LineNr">13517 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13518" class="LineNr">13518 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13519" class="Folded">13519 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13525" class="LineNr">13525 </span> <span class="subxComment"># check output</span> -<span id="L13526" class="LineNr">13526 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13491'>test-length-with-wrong-output-compound-type</a>: output should be empty"</span>) -<span id="L13527" class="LineNr">13527 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13491'>test-length-with-wrong-output-compound-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13528" class="LineNr">13528 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13529" class="LineNr">13529 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13491'>test-length-with-wrong-output-compound-type</a>: exit status"</span>) -<span id="L13530" class="LineNr">13530 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13531" class="LineNr">13531 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13532" class="LineNr">13532 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13533" class="LineNr">13533 </span> 5d/pop-to-ebp -<span id="L13534" class="LineNr">13534 </span> c3/return -<span id="L13535" class="LineNr">13535 </span> -<span id="L13536" class="LineNr">13536 </span><span class="subxTest">test-length-with-no-inouts</span>: -<span id="L13537" class="LineNr">13537 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13538" class="LineNr">13538 </span> 55/push-ebp -<span id="L13539" class="LineNr">13539 </span> 89/<- %ebp 4/r32/esp -<span id="L13540" class="LineNr">13540 </span> <span class="subxComment"># setup</span> -<span id="L13541" class="LineNr">13541 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13542" class="LineNr">13542 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13543" class="LineNr">13543 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13544" class="LineNr">13544 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13545" class="LineNr">13545 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13546" class="LineNr">13546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13547" class="LineNr">13547 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13548" class="LineNr">13548 </span> 68/push 0/imm32 -<span id="L13549" class="LineNr">13549 </span> 68/push 0/imm32 -<span id="L13550" class="LineNr">13550 </span> 89/<- %edx 4/r32/esp -<span id="L13551" class="LineNr">13551 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13552" class="LineNr">13552 </span> <span class="subxComment">#</span> -<span id="L13553" class="LineNr">13553 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13554" class="LineNr">13554 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length\n"</span>) -<span id="L13555" class="LineNr">13555 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13556" class="LineNr">13556 </span> <span class="subxComment"># convert</span> -<span id="L13557" class="LineNr">13557 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13558" class="LineNr">13558 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13559" class="LineNr">13559 </span> <span class="subxComment"># restore ed</span> -<span id="L13560" class="LineNr">13560 </span> 89/<- %edx 4/r32/esp -<span id="L13561" class="LineNr">13561 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13562" class="LineNr">13562 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13563" class="Folded">13563 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13569" class="LineNr">13569 </span> <span class="subxComment"># check output</span> -<span id="L13570" class="LineNr">13570 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13536'>test-length-with-no-inouts</a>: output should be empty"</span>) -<span id="L13571" class="LineNr">13571 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too few inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13536'>test-length-with-no-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13572" class="LineNr">13572 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13573" class="LineNr">13573 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13536'>test-length-with-no-inouts</a>: exit status"</span>) -<span id="L13574" class="LineNr">13574 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13575" class="LineNr">13575 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13576" class="LineNr">13576 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13577" class="LineNr">13577 </span> 5d/pop-to-ebp -<span id="L13578" class="LineNr">13578 </span> c3/return -<span id="L13579" class="LineNr">13579 </span> -<span id="L13580" class="LineNr">13580 </span><span class="subxTest">test-length-with-too-many-inouts</span>: -<span id="L13581" class="LineNr">13581 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13582" class="LineNr">13582 </span> 55/push-ebp -<span id="L13583" class="LineNr">13583 </span> 89/<- %ebp 4/r32/esp -<span id="L13584" class="LineNr">13584 </span> <span class="subxComment"># setup</span> -<span id="L13585" class="LineNr">13585 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13586" class="LineNr">13586 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13587" class="LineNr">13587 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13588" class="LineNr">13588 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13589" class="LineNr">13589 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13590" class="LineNr">13590 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13591" class="LineNr">13591 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13592" class="LineNr">13592 </span> 68/push 0/imm32 -<span id="L13593" class="LineNr">13593 </span> 68/push 0/imm32 -<span id="L13594" class="LineNr">13594 </span> 89/<- %edx 4/r32/esp -<span id="L13595" class="LineNr">13595 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13596" class="LineNr">13596 </span> <span class="subxComment">#</span> -<span id="L13597" class="LineNr">13597 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13598" class="LineNr">13598 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L13599" class="LineNr">13599 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a, 0, 0\n"</span>) -<span id="L13600" class="LineNr">13600 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13601" class="LineNr">13601 </span> <span class="subxComment"># convert</span> -<span id="L13602" class="LineNr">13602 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13603" class="LineNr">13603 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13604" class="LineNr">13604 </span> <span class="subxComment"># restore ed</span> -<span id="L13605" class="LineNr">13605 </span> 89/<- %edx 4/r32/esp -<span id="L13606" class="LineNr">13606 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13607" class="LineNr">13607 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13608" class="Folded">13608 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13614" class="LineNr">13614 </span> <span class="subxComment"># check output</span> -<span id="L13615" class="LineNr">13615 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13580'>test-length-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L13616" class="LineNr">13616 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13580'>test-length-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13617" class="LineNr">13617 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13618" class="LineNr">13618 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13580'>test-length-with-too-many-inouts</a>: exit status"</span>) -<span id="L13619" class="LineNr">13619 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13620" class="LineNr">13620 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13621" class="LineNr">13621 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13622" class="LineNr">13622 </span> 5d/pop-to-ebp -<span id="L13623" class="LineNr">13623 </span> c3/return -<span id="L13624" class="LineNr">13624 </span> -<span id="L13625" class="LineNr">13625 </span><span class="subxTest">test-length-with-no-output</span>: -<span id="L13626" class="LineNr">13626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13627" class="LineNr">13627 </span> 55/push-ebp -<span id="L13628" class="LineNr">13628 </span> 89/<- %ebp 4/r32/esp -<span id="L13629" class="LineNr">13629 </span> <span class="subxComment"># setup</span> -<span id="L13630" class="LineNr">13630 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13631" class="LineNr">13631 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13632" class="LineNr">13632 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13633" class="LineNr">13633 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13634" class="LineNr">13634 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13635" class="LineNr">13635 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13636" class="LineNr">13636 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13637" class="LineNr">13637 </span> 68/push 0/imm32 -<span id="L13638" class="LineNr">13638 </span> 68/push 0/imm32 -<span id="L13639" class="LineNr">13639 </span> 89/<- %edx 4/r32/esp -<span id="L13640" class="LineNr">13640 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13641" class="LineNr">13641 </span> <span class="subxComment">#</span> -<span id="L13642" class="LineNr">13642 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13643" class="LineNr">13643 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L13644" class="LineNr">13644 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" length a\n"</span>) -<span id="L13645" class="LineNr">13645 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13646" class="LineNr">13646 </span> <span class="subxComment"># convert</span> -<span id="L13647" class="LineNr">13647 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13648" class="LineNr">13648 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13649" class="LineNr">13649 </span> <span class="subxComment"># restore ed</span> -<span id="L13650" class="LineNr">13650 </span> 89/<- %edx 4/r32/esp -<span id="L13651" class="LineNr">13651 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13652" class="LineNr">13652 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13653" class="Folded">13653 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13659" class="LineNr">13659 </span> <span class="subxComment"># check output</span> -<span id="L13660" class="LineNr">13660 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13625'>test-length-with-no-output</a>: output should be empty"</span>) -<span id="L13661" class="LineNr">13661 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13625'>test-length-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13662" class="LineNr">13662 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13663" class="LineNr">13663 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13625'>test-length-with-no-output</a>: exit status"</span>) -<span id="L13664" class="LineNr">13664 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13665" class="LineNr">13665 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13666" class="LineNr">13666 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13667" class="LineNr">13667 </span> 5d/pop-to-ebp -<span id="L13668" class="LineNr">13668 </span> c3/return -<span id="L13669" class="LineNr">13669 </span> -<span id="L13670" class="LineNr">13670 </span><span class="subxTest">test-length-with-too-many-outputs</span>: -<span id="L13671" class="LineNr">13671 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13672" class="LineNr">13672 </span> 55/push-ebp -<span id="L13673" class="LineNr">13673 </span> 89/<- %ebp 4/r32/esp -<span id="L13674" class="LineNr">13674 </span> <span class="subxComment"># setup</span> -<span id="L13675" class="LineNr">13675 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13676" class="LineNr">13676 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13677" class="LineNr">13677 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13678" class="LineNr">13678 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13679" class="LineNr">13679 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13680" class="LineNr">13680 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13681" class="LineNr">13681 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13682" class="LineNr">13682 </span> 68/push 0/imm32 -<span id="L13683" class="LineNr">13683 </span> 68/push 0/imm32 -<span id="L13684" class="LineNr">13684 </span> 89/<- %edx 4/r32/esp -<span id="L13685" class="LineNr">13685 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13686" class="LineNr">13686 </span> <span class="subxComment">#</span> -<span id="L13687" class="LineNr">13687 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13688" class="LineNr">13688 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) -<span id="L13689" class="LineNr">13689 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy 0\n"</span>) -<span id="L13690" class="LineNr">13690 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) -<span id="L13691" class="LineNr">13691 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- length a\n"</span>) -<span id="L13692" class="LineNr">13692 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13693" class="LineNr">13693 </span> <span class="subxComment"># convert</span> -<span id="L13694" class="LineNr">13694 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13695" class="LineNr">13695 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13696" class="LineNr">13696 </span> <span class="subxComment"># restore ed</span> -<span id="L13697" class="LineNr">13697 </span> 89/<- %edx 4/r32/esp -<span id="L13698" class="LineNr">13698 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13699" class="LineNr">13699 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13700" class="Folded">13700 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13706" class="LineNr">13706 </span> <span class="subxComment"># check output</span> -<span id="L13707" class="LineNr">13707 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13670'>test-length-with-too-many-outputs</a>: output should be empty"</span>) -<span id="L13708" class="LineNr">13708 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13670'>test-length-with-too-many-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13709" class="LineNr">13709 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13710" class="LineNr">13710 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13670'>test-length-with-too-many-outputs</a>: exit status"</span>) -<span id="L13711" class="LineNr">13711 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13712" class="LineNr">13712 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13713" class="LineNr">13713 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13714" class="LineNr">13714 </span> 5d/pop-to-ebp -<span id="L13715" class="LineNr">13715 </span> c3/return -<span id="L13716" class="LineNr">13716 </span> -<span id="L13717" class="LineNr">13717 </span><span class="subxTest">test-convert-function-with-return-register-and-local</span>: -<span id="L13718" class="LineNr">13718 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13719" class="LineNr">13719 </span> 55/push-ebp -<span id="L13720" class="LineNr">13720 </span> 89/<- %ebp 4/r32/esp -<span id="L13721" class="LineNr">13721 </span> <span class="subxComment"># setup</span> -<span id="L13722" class="LineNr">13722 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13723" class="LineNr">13723 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13724" class="LineNr">13724 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13725" class="LineNr">13725 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13726" class="LineNr">13726 </span> <span class="subxComment">#</span> -<span id="L13727" class="LineNr">13727 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L13728" class="LineNr">13728 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) -<span id="L13729" class="LineNr">13729 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) -<span id="L13730" class="LineNr">13730 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L13731" class="LineNr">13731 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13732" class="LineNr">13732 </span> <span class="subxComment"># convert</span> -<span id="L13733" class="LineNr">13733 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L13734" class="LineNr">13734 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13735" class="Folded">13735 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13741" class="LineNr">13741 </span> <span class="subxComment"># check output</span> -<span id="L13742" class="LineNr">13742 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/0"</span>) -<span id="L13743" class="LineNr">13743 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/1"</span>) -<span id="L13744" class="LineNr">13744 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/2"</span>) -<span id="L13745" class="LineNr">13745 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/3"</span>) -<span id="L13746" class="LineNr">13746 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/4"</span>) -<span id="L13747" class="LineNr">13747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/5"</span>) -<span id="L13748" class="LineNr">13748 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/6"</span>) -<span id="L13749" class="LineNr">13749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/7"</span>) -<span id="L13750" class="LineNr">13750 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/8"</span>) -<span id="L13751" class="LineNr">13751 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/9"</span>) -<span id="L13752" class="LineNr">13752 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/10"</span>) -<span id="L13753" class="LineNr">13753 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/11"</span>) -<span id="L13754" class="LineNr">13754 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/12"</span>) -<span id="L13755" class="LineNr">13755 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/13"</span>) -<span id="L13756" class="LineNr">13756 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/14"</span>) -<span id="L13757" class="LineNr">13757 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/15"</span>) -<span id="L13758" class="LineNr">13758 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/16"</span>) -<span id="L13759" class="LineNr">13759 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/17"</span>) -<span id="L13760" class="LineNr">13760 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/18"</span>) -<span id="L13761" class="LineNr">13761 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13717'>test-convert-function-with-return-register-and-local</a>/19"</span>) -<span id="L13762" class="LineNr">13762 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13763" class="LineNr">13763 </span> 89/<- %esp 5/r32/ebp -<span id="L13764" class="LineNr">13764 </span> 5d/pop-to-ebp -<span id="L13765" class="LineNr">13765 </span> c3/return -<span id="L13766" class="LineNr">13766 </span> -<span id="L13767" class="LineNr">13767 </span><span class="subxTest">test-convert-function-with-return-register-and-local-2</span>: -<span id="L13768" class="LineNr">13768 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13769" class="LineNr">13769 </span> 55/push-ebp -<span id="L13770" class="LineNr">13770 </span> 89/<- %ebp 4/r32/esp -<span id="L13771" class="LineNr">13771 </span> <span class="subxComment"># setup</span> -<span id="L13772" class="LineNr">13772 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13773" class="LineNr">13773 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13774" class="LineNr">13774 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13775" class="LineNr">13775 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13776" class="LineNr">13776 </span> <span class="subxComment">#</span> -<span id="L13777" class="LineNr">13777 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L13778" class="LineNr">13778 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) -<span id="L13779" class="LineNr">13779 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) -<span id="L13780" class="LineNr">13780 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return z\n"</span>) -<span id="L13781" class="LineNr">13781 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13782" class="LineNr">13782 </span> <span class="subxComment"># convert</span> -<span id="L13783" class="LineNr">13783 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L13784" class="LineNr">13784 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13785" class="Folded">13785 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13791" class="LineNr">13791 </span> <span class="subxComment"># check output</span> -<span id="L13792" class="LineNr">13792 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/0"</span>) -<span id="L13793" class="LineNr">13793 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/1"</span>) -<span id="L13794" class="LineNr">13794 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/2"</span>) -<span id="L13795" class="LineNr">13795 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/3"</span>) -<span id="L13796" class="LineNr">13796 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/4"</span>) -<span id="L13797" class="LineNr">13797 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/5"</span>) -<span id="L13798" class="LineNr">13798 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/6"</span>) -<span id="L13799" class="LineNr">13799 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/7"</span>) -<span id="L13800" class="LineNr">13800 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/8"</span>) -<span id="L13801" class="LineNr">13801 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/9"</span>) -<span id="L13802" class="LineNr">13802 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/10"</span>) -<span id="L13803" class="LineNr">13803 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/11"</span>) -<span id="L13804" class="LineNr">13804 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/12"</span>) -<span id="L13805" class="LineNr">13805 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/13"</span>) -<span id="L13806" class="LineNr">13806 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/14"</span>) -<span id="L13807" class="LineNr">13807 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/15"</span>) -<span id="L13808" class="LineNr">13808 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/16"</span>) -<span id="L13809" class="LineNr">13809 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/17"</span>) -<span id="L13810" class="LineNr">13810 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/18"</span>) -<span id="L13811" class="LineNr">13811 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13767'>test-convert-function-with-return-register-and-local-2</a>/19"</span>) -<span id="L13812" class="LineNr">13812 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13813" class="LineNr">13813 </span> 89/<- %esp 5/r32/ebp -<span id="L13814" class="LineNr">13814 </span> 5d/pop-to-ebp -<span id="L13815" class="LineNr">13815 </span> c3/return -<span id="L13816" class="LineNr">13816 </span> -<span id="L13817" class="LineNr">13817 </span><span class="subxTest">test-convert-function-with-return-float-register-and-local</span>: -<span id="L13818" class="LineNr">13818 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13819" class="LineNr">13819 </span> 55/push-ebp -<span id="L13820" class="LineNr">13820 </span> 89/<- %ebp 4/r32/esp -<span id="L13821" class="LineNr">13821 </span> <span class="subxComment"># setup</span> -<span id="L13822" class="LineNr">13822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13823" class="LineNr">13823 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13824" class="LineNr">13824 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13825" class="LineNr">13825 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13826" class="LineNr">13826 </span> <span class="subxComment">#</span> -<span id="L13827" class="LineNr">13827 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm1: float {\n"</span>) -<span id="L13828" class="LineNr">13828 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) -<span id="L13829" class="LineNr">13829 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var g/xmm0: float <- convert y\n"</span>) -<span id="L13830" class="LineNr">13830 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var h/xmm1: float <- convert y\n"</span>) -<span id="L13831" class="LineNr">13831 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return g\n"</span>) -<span id="L13832" class="LineNr">13832 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13833" class="LineNr">13833 </span> <span class="subxComment"># convert</span> -<span id="L13834" class="LineNr">13834 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L13835" class="LineNr">13835 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13836" class="Folded">13836 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13842" class="LineNr">13842 </span> <span class="subxComment"># check output</span> -<span id="L13843" class="LineNr">13843 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/0"</span>) -<span id="L13844" class="LineNr">13844 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/1"</span>) -<span id="L13845" class="LineNr">13845 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/2"</span>) -<span id="L13846" class="LineNr">13846 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/3"</span>) -<span id="L13847" class="LineNr">13847 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/4"</span>) -<span id="L13848" class="LineNr">13848 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/5"</span>) -<span id="L13849" class="LineNr">13849 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/6"</span>) <span class="subxComment"># var y</span> -<span id="L13850" class="LineNr">13850 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/7"</span>) -<span id="L13851" class="LineNr">13851 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/8"</span>) <span class="subxComment"># var g</span> -<span id="L13852" class="LineNr">13852 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/9"</span>) -<span id="L13853" class="LineNr">13853 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000000/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/10"</span>) -<span id="L13854" class="LineNr">13854 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/11"</span>) <span class="subxComment"># var h</span> -<span id="L13855" class="LineNr">13855 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/12"</span>) -<span id="L13856" class="LineNr">13856 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/13"</span>) -<span id="L13857" class="LineNr">13857 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> %xmm0 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/14"</span>) <span class="subxComment"># return g</span> -<span id="L13858" class="LineNr">13858 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/15"</span>) <span class="subxComment"># reclaim h</span> -<span id="L13859" class="LineNr">13859 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/16"</span>) <span class="subxComment"># reclaim g</span> -<span id="L13860" class="LineNr">13860 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5869'>test-convert-floating-point-dereferenced</a>/17"</span>) -<span id="L13861" class="LineNr">13861 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/18"</span>) <span class="subxComment"># reclaim y</span> -<span id="L13862" class="LineNr">13862 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/19"</span>) -<span id="L13863" class="LineNr">13863 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/20"</span>) -<span id="L13864" class="LineNr">13864 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/21"</span>) -<span id="L13865" class="LineNr">13865 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/22"</span>) -<span id="L13866" class="LineNr">13866 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/23"</span>) -<span id="L13867" class="LineNr">13867 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/24"</span>) -<span id="L13868" class="LineNr">13868 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13817'>test-convert-function-with-return-float-register-and-local</a>/25"</span>) -<span id="L13869" class="LineNr">13869 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13870" class="LineNr">13870 </span> 89/<- %esp 5/r32/ebp -<span id="L13871" class="LineNr">13871 </span> 5d/pop-to-ebp -<span id="L13872" class="LineNr">13872 </span> c3/return -<span id="L13873" class="LineNr">13873 </span> -<span id="L13874" class="LineNr">13874 </span><span class="subxTest">test-convert-function-with-return-and-local-vars</span>: -<span id="L13875" class="LineNr">13875 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13876" class="LineNr">13876 </span> 55/push-ebp -<span id="L13877" class="LineNr">13877 </span> 89/<- %ebp 4/r32/esp -<span id="L13878" class="LineNr">13878 </span> <span class="subxComment"># setup</span> -<span id="L13879" class="LineNr">13879 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13880" class="LineNr">13880 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13881" class="LineNr">13881 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13882" class="LineNr">13882 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13883" class="LineNr">13883 </span> <span class="subxComment">#</span> -<span id="L13884" class="LineNr">13884 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) -<span id="L13885" class="LineNr">13885 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L13886" class="LineNr">13886 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L13887" class="LineNr">13887 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) -<span id="L13888" class="LineNr">13888 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L13889" class="LineNr">13889 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) -<span id="L13890" class="LineNr">13890 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) -<span id="L13891" class="LineNr">13891 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L13892" class="LineNr">13892 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) -<span id="L13893" class="LineNr">13893 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) -<span id="L13894" class="LineNr">13894 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13895" class="LineNr">13895 </span> <span class="subxComment"># convert</span> -<span id="L13896" class="LineNr">13896 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L13897" class="LineNr">13897 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13898" class="Folded">13898 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13904" class="LineNr">13904 </span> <span class="subxComment"># check output</span> -<span id="L13905" class="LineNr">13905 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/0"</span>) -<span id="L13906" class="LineNr">13906 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/1"</span>) -<span id="L13907" class="LineNr">13907 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/2"</span>) -<span id="L13908" class="LineNr">13908 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/3"</span>) -<span id="L13909" class="LineNr">13909 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/4"</span>) -<span id="L13910" class="LineNr">13910 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/5"</span>) -<span id="L13911" class="LineNr">13911 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/6"</span>) -<span id="L13912" class="LineNr">13912 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/7"</span>) -<span id="L13913" class="LineNr">13913 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/8"</span>) <span class="subxComment"># var x</span> -<span id="L13914" class="LineNr">13914 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/9"</span>) -<span id="L13915" class="LineNr">13915 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/10"</span>) -<span id="L13916" class="LineNr">13916 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/11"</span>) <span class="subxComment"># var y</span> -<span id="L13917" class="LineNr">13917 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/12"</span>) -<span id="L13918" class="LineNr">13918 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/13"</span>) -<span id="L13919" class="LineNr">13919 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/14"</span>) -<span id="L13920" class="LineNr">13920 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/15"</span>) -<span id="L13921" class="LineNr">13921 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/16"</span>) -<span id="L13922" class="LineNr">13922 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/17"</span>) -<span id="L13923" class="LineNr">13923 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/18"</span>) -<span id="L13924" class="LineNr">13924 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/19"</span>) -<span id="L13925" class="LineNr">13925 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/20"</span>) -<span id="L13926" class="LineNr">13926 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L13927" class="LineNr">13927 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L13928" class="LineNr">13928 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/21"</span>) -<span id="L13929" class="LineNr">13929 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/22"</span>) -<span id="L13930" class="LineNr">13930 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/23"</span>) -<span id="L13931" class="LineNr">13931 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/24"</span>) -<span id="L13932" class="LineNr">13932 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/25"</span>) -<span id="L13933" class="LineNr">13933 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13874'>test-convert-function-with-return-and-local-vars</a>/26"</span>) -<span id="L13934" class="LineNr">13934 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13935" class="LineNr">13935 </span> 89/<- %esp 5/r32/ebp -<span id="L13936" class="LineNr">13936 </span> 5d/pop-to-ebp -<span id="L13937" class="LineNr">13937 </span> c3/return -<span id="L13938" class="LineNr">13938 </span> -<span id="L13939" class="LineNr">13939 </span><span class="subxTest">test-copy-object-with-no-inout</span>: -<span id="L13940" class="LineNr">13940 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13941" class="LineNr">13941 </span> 55/push-ebp -<span id="L13942" class="LineNr">13942 </span> 89/<- %ebp 4/r32/esp -<span id="L13943" class="LineNr">13943 </span> <span class="subxComment"># setup</span> -<span id="L13944" class="LineNr">13944 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13945" class="LineNr">13945 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13946" class="LineNr">13946 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13947" class="LineNr">13947 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13948" class="LineNr">13948 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13949" class="LineNr">13949 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13950" class="LineNr">13950 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13951" class="LineNr">13951 </span> 68/push 0/imm32 -<span id="L13952" class="LineNr">13952 </span> 68/push 0/imm32 -<span id="L13953" class="LineNr">13953 </span> 89/<- %edx 4/r32/esp -<span id="L13954" class="LineNr">13954 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13955" class="LineNr">13955 </span> <span class="subxComment">#</span> -<span id="L13956" class="LineNr">13956 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L13957" class="LineNr">13957 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object\n"</span>) -<span id="L13958" class="LineNr">13958 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L13959" class="LineNr">13959 </span> <span class="subxComment"># convert</span> -<span id="L13960" class="LineNr">13960 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L13961" class="LineNr">13961 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L13962" class="LineNr">13962 </span> <span class="subxComment"># restore ed</span> -<span id="L13963" class="LineNr">13963 </span> 89/<- %edx 4/r32/esp -<span id="L13964" class="LineNr">13964 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L13965" class="LineNr">13965 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L13966" class="Folded">13966 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L13972" class="LineNr">13972 </span> <span class="subxComment"># check output</span> -<span id="L13973" class="LineNr">13973 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13939'>test-copy-object-with-no-inout</a>: output should be empty"</span>) -<span id="L13974" class="LineNr">13974 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L13939'>test-copy-object-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L13975" class="LineNr">13975 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L13976" class="LineNr">13976 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13939'>test-copy-object-with-no-inout</a>: exit status"</span>) -<span id="L13977" class="LineNr">13977 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L13978" class="LineNr">13978 </span> 81 0/subop/add %esp 8/imm32 -<span id="L13979" class="LineNr">13979 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L13980" class="LineNr">13980 </span> 5d/pop-to-ebp -<span id="L13981" class="LineNr">13981 </span> c3/return -<span id="L13982" class="LineNr">13982 </span> -<span id="L13983" class="LineNr">13983 </span><span class="subxTest">test-copy-object-with-no-source</span>: -<span id="L13984" class="LineNr">13984 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13985" class="LineNr">13985 </span> 55/push-ebp -<span id="L13986" class="LineNr">13986 </span> 89/<- %ebp 4/r32/esp -<span id="L13987" class="LineNr">13987 </span> <span class="subxComment"># setup</span> -<span id="L13988" class="LineNr">13988 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L13989" class="LineNr">13989 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L13990" class="LineNr">13990 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L13991" class="LineNr">13991 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L13992" class="LineNr">13992 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L13993" class="LineNr">13993 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L13994" class="LineNr">13994 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L13995" class="LineNr">13995 </span> 68/push 0/imm32 -<span id="L13996" class="LineNr">13996 </span> 68/push 0/imm32 -<span id="L13997" class="LineNr">13997 </span> 89/<- %edx 4/r32/esp -<span id="L13998" class="LineNr">13998 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L13999" class="LineNr">13999 </span> <span class="subxComment">#</span> -<span id="L14000" class="LineNr">14000 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14001" class="LineNr">14001 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L14002" class="LineNr">14002 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x\n"</span>) -<span id="L14003" class="LineNr">14003 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14004" class="LineNr">14004 </span> <span class="subxComment"># convert</span> -<span id="L14005" class="LineNr">14005 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14006" class="LineNr">14006 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14007" class="LineNr">14007 </span> <span class="subxComment"># restore ed</span> -<span id="L14008" class="LineNr">14008 </span> 89/<- %edx 4/r32/esp -<span id="L14009" class="LineNr">14009 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14010" class="LineNr">14010 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14011" class="Folded">14011 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14017" class="LineNr">14017 </span> <span class="subxComment"># check output</span> -<span id="L14018" class="LineNr">14018 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13983'>test-copy-object-with-no-source</a>: output should be empty"</span>) -<span id="L14019" class="LineNr">14019 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L13983'>test-copy-object-with-no-source</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14020" class="LineNr">14020 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14021" class="LineNr">14021 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13983'>test-copy-object-with-no-source</a>: exit status"</span>) -<span id="L14022" class="LineNr">14022 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14023" class="LineNr">14023 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14024" class="LineNr">14024 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14025" class="LineNr">14025 </span> 5d/pop-to-ebp -<span id="L14026" class="LineNr">14026 </span> c3/return -<span id="L14027" class="LineNr">14027 </span> -<span id="L14028" class="LineNr">14028 </span><span class="subxTest">test-copy-object-with-too-many-inouts</span>: -<span id="L14029" class="LineNr">14029 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14030" class="LineNr">14030 </span> 55/push-ebp -<span id="L14031" class="LineNr">14031 </span> 89/<- %ebp 4/r32/esp -<span id="L14032" class="LineNr">14032 </span> <span class="subxComment"># setup</span> -<span id="L14033" class="LineNr">14033 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14034" class="LineNr">14034 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14035" class="LineNr">14035 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14036" class="LineNr">14036 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14037" class="LineNr">14037 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14038" class="LineNr">14038 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14039" class="LineNr">14039 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14040" class="LineNr">14040 </span> 68/push 0/imm32 -<span id="L14041" class="LineNr">14041 </span> 68/push 0/imm32 -<span id="L14042" class="LineNr">14042 </span> 89/<- %edx 4/r32/esp -<span id="L14043" class="LineNr">14043 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14044" class="LineNr">14044 </span> <span class="subxComment">#</span> -<span id="L14045" class="LineNr">14045 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14046" class="LineNr">14046 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr boolean)\n"</span>) -<span id="L14047" class="LineNr">14047 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x, x, x\n"</span>) -<span id="L14048" class="LineNr">14048 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14049" class="LineNr">14049 </span> <span class="subxComment"># convert</span> -<span id="L14050" class="LineNr">14050 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14051" class="LineNr">14051 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14052" class="LineNr">14052 </span> <span class="subxComment"># restore ed</span> -<span id="L14053" class="LineNr">14053 </span> 89/<- %edx 4/r32/esp -<span id="L14054" class="LineNr">14054 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14055" class="LineNr">14055 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14056" class="Folded">14056 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14062" class="LineNr">14062 </span> <span class="subxComment"># check output</span> -<span id="L14063" class="LineNr">14063 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14028'>test-copy-object-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L14064" class="LineNr">14064 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14028'>test-copy-object-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14065" class="LineNr">14065 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14066" class="LineNr">14066 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14028'>test-copy-object-with-too-many-inouts</a>: exit status"</span>) -<span id="L14067" class="LineNr">14067 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14068" class="LineNr">14068 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14069" class="LineNr">14069 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14070" class="LineNr">14070 </span> 5d/pop-to-ebp -<span id="L14071" class="LineNr">14071 </span> c3/return -<span id="L14072" class="LineNr">14072 </span> -<span id="L14073" class="LineNr">14073 </span><span class="subxTest">test-copy-object-with-output</span>: -<span id="L14074" class="LineNr">14074 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14075" class="LineNr">14075 </span> 55/push-ebp -<span id="L14076" class="LineNr">14076 </span> 89/<- %ebp 4/r32/esp -<span id="L14077" class="LineNr">14077 </span> <span class="subxComment"># setup</span> -<span id="L14078" class="LineNr">14078 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14079" class="LineNr">14079 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14080" class="LineNr">14080 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14081" class="LineNr">14081 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14082" class="LineNr">14082 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14083" class="LineNr">14083 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14084" class="LineNr">14084 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14085" class="LineNr">14085 </span> 68/push 0/imm32 -<span id="L14086" class="LineNr">14086 </span> 68/push 0/imm32 -<span id="L14087" class="LineNr">14087 </span> 89/<- %edx 4/r32/esp -<span id="L14088" class="LineNr">14088 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14089" class="LineNr">14089 </span> <span class="subxComment">#</span> -<span id="L14090" class="LineNr">14090 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14091" class="LineNr">14091 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr boolean) <- copy 0\n"</span>) -<span id="L14092" class="LineNr">14092 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr boolean) <- copy 0\n"</span>) -<span id="L14093" class="LineNr">14093 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-object x, y\n"</span>) -<span id="L14094" class="LineNr">14094 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14095" class="LineNr">14095 </span> <span class="subxComment"># convert</span> -<span id="L14096" class="LineNr">14096 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14097" class="LineNr">14097 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14098" class="LineNr">14098 </span> <span class="subxComment"># restore ed</span> -<span id="L14099" class="LineNr">14099 </span> 89/<- %edx 4/r32/esp -<span id="L14100" class="LineNr">14100 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14101" class="LineNr">14101 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14102" class="Folded">14102 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14108" class="LineNr">14108 </span> <span class="subxComment"># check output</span> -<span id="L14109" class="LineNr">14109 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14073'>test-copy-object-with-output</a>: output should be empty"</span>) -<span id="L14110" class="LineNr">14110 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14073'>test-copy-object-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14111" class="LineNr">14111 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14112" class="LineNr">14112 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14073'>test-copy-object-with-output</a>: exit status"</span>) -<span id="L14113" class="LineNr">14113 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14114" class="LineNr">14114 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14115" class="LineNr">14115 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14116" class="LineNr">14116 </span> 5d/pop-to-ebp -<span id="L14117" class="LineNr">14117 </span> c3/return -<span id="L14118" class="LineNr">14118 </span> -<span id="L14119" class="LineNr">14119 </span><span class="subxTest">test-copy-object-deref-address</span>: -<span id="L14120" class="LineNr">14120 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14121" class="LineNr">14121 </span> 55/push-ebp -<span id="L14122" class="LineNr">14122 </span> 89/<- %ebp 4/r32/esp -<span id="L14123" class="LineNr">14123 </span> <span class="subxComment"># setup</span> -<span id="L14124" class="LineNr">14124 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14125" class="LineNr">14125 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14126" class="LineNr">14126 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14127" class="LineNr">14127 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14128" class="LineNr">14128 </span> <span class="subxComment">#</span> -<span id="L14129" class="LineNr">14129 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14130" class="LineNr">14130 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L14131" class="LineNr">14131 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) -<span id="L14132" class="LineNr">14132 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object *y, x\n"</span>) -<span id="L14133" class="LineNr">14133 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14134" class="LineNr">14134 </span> <span class="subxComment"># convert</span> -<span id="L14135" class="LineNr">14135 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14136" class="LineNr">14136 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14137" class="LineNr">14137 </span> <span class="subxComment"># no errors</span> -<span id="L14138" class="LineNr">14138 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14139" class="LineNr">14139 </span> 5d/pop-to-ebp -<span id="L14140" class="LineNr">14140 </span> c3/return -<span id="L14141" class="LineNr">14141 </span> -<span id="L14142" class="LineNr">14142 </span><span class="subxTest">test-copy-object-non-addr</span>: -<span id="L14143" class="LineNr">14143 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14144" class="LineNr">14144 </span> 55/push-ebp -<span id="L14145" class="LineNr">14145 </span> 89/<- %ebp 4/r32/esp -<span id="L14146" class="LineNr">14146 </span> <span class="subxComment"># setup</span> -<span id="L14147" class="LineNr">14147 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14148" class="LineNr">14148 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14149" class="LineNr">14149 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14150" class="LineNr">14150 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14151" class="LineNr">14151 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14152" class="LineNr">14152 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14153" class="LineNr">14153 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14154" class="LineNr">14154 </span> 68/push 0/imm32 -<span id="L14155" class="LineNr">14155 </span> 68/push 0/imm32 -<span id="L14156" class="LineNr">14156 </span> 89/<- %edx 4/r32/esp -<span id="L14157" class="LineNr">14157 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14158" class="LineNr">14158 </span> <span class="subxComment">#</span> -<span id="L14159" class="LineNr">14159 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14160" class="LineNr">14160 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L14161" class="LineNr">14161 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L14162" class="LineNr">14162 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) -<span id="L14163" class="LineNr">14163 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14164" class="LineNr">14164 </span> <span class="subxComment"># convert</span> -<span id="L14165" class="LineNr">14165 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14166" class="LineNr">14166 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14167" class="LineNr">14167 </span> <span class="subxComment"># restore ed</span> -<span id="L14168" class="LineNr">14168 </span> 89/<- %edx 4/r32/esp -<span id="L14169" class="LineNr">14169 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14170" class="LineNr">14170 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14171" class="Folded">14171 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14177" class="LineNr">14177 </span> <span class="subxComment"># check output</span> -<span id="L14178" class="LineNr">14178 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14142'>test-copy-object-non-addr</a>: output should be empty"</span>) -<span id="L14179" class="LineNr">14179 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14142'>test-copy-object-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14180" class="LineNr">14180 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14181" class="LineNr">14181 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14142'>test-copy-object-non-addr</a>: exit status"</span>) -<span id="L14182" class="LineNr">14182 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14183" class="LineNr">14183 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14184" class="LineNr">14184 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14185" class="LineNr">14185 </span> 5d/pop-to-ebp -<span id="L14186" class="LineNr">14186 </span> c3/return -<span id="L14187" class="LineNr">14187 </span> -<span id="L14188" class="LineNr">14188 </span><span class="subxTest">test-copy-object-non-equal</span>: -<span id="L14189" class="LineNr">14189 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14190" class="LineNr">14190 </span> 55/push-ebp -<span id="L14191" class="LineNr">14191 </span> 89/<- %ebp 4/r32/esp -<span id="L14192" class="LineNr">14192 </span> <span class="subxComment"># setup</span> -<span id="L14193" class="LineNr">14193 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14194" class="LineNr">14194 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14195" class="LineNr">14195 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14196" class="LineNr">14196 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14197" class="LineNr">14197 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14198" class="LineNr">14198 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14199" class="LineNr">14199 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14200" class="LineNr">14200 </span> 68/push 0/imm32 -<span id="L14201" class="LineNr">14201 </span> 68/push 0/imm32 -<span id="L14202" class="LineNr">14202 </span> 89/<- %edx 4/r32/esp -<span id="L14203" class="LineNr">14203 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14204" class="LineNr">14204 </span> <span class="subxComment">#</span> -<span id="L14205" class="LineNr">14205 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14206" class="LineNr">14206 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) -<span id="L14207" class="LineNr">14207 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr boolean)\n"</span>) -<span id="L14208" class="LineNr">14208 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) -<span id="L14209" class="LineNr">14209 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14210" class="LineNr">14210 </span> <span class="subxComment"># convert</span> -<span id="L14211" class="LineNr">14211 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14212" class="LineNr">14212 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14213" class="LineNr">14213 </span> <span class="subxComment"># restore ed</span> -<span id="L14214" class="LineNr">14214 </span> 89/<- %edx 4/r32/esp -<span id="L14215" class="LineNr">14215 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14216" class="LineNr">14216 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14217" class="Folded">14217 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14223" class="LineNr">14223 </span> <span class="subxComment"># check output</span> -<span id="L14224" class="LineNr">14224 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14188'>test-copy-object-non-equal</a>: output should be empty"</span>) -<span id="L14225" class="LineNr">14225 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14188'>test-copy-object-non-equal</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14226" class="LineNr">14226 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14227" class="LineNr">14227 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14188'>test-copy-object-non-equal</a>: exit status"</span>) -<span id="L14228" class="LineNr">14228 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14229" class="LineNr">14229 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14230" class="LineNr">14230 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14231" class="LineNr">14231 </span> 5d/pop-to-ebp -<span id="L14232" class="LineNr">14232 </span> c3/return -<span id="L14233" class="LineNr">14233 </span> -<span id="L14234" class="LineNr">14234 </span><span class="subxTest">test-allocate-with-no-inout</span>: -<span id="L14235" class="LineNr">14235 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14236" class="LineNr">14236 </span> 55/push-ebp -<span id="L14237" class="LineNr">14237 </span> 89/<- %ebp 4/r32/esp -<span id="L14238" class="LineNr">14238 </span> <span class="subxComment"># setup</span> -<span id="L14239" class="LineNr">14239 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14240" class="LineNr">14240 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14241" class="LineNr">14241 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14242" class="LineNr">14242 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14243" class="LineNr">14243 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14244" class="LineNr">14244 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14245" class="LineNr">14245 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14246" class="LineNr">14246 </span> 68/push 0/imm32 -<span id="L14247" class="LineNr">14247 </span> 68/push 0/imm32 -<span id="L14248" class="LineNr">14248 </span> 89/<- %edx 4/r32/esp -<span id="L14249" class="LineNr">14249 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14250" class="LineNr">14250 </span> <span class="subxComment">#</span> -<span id="L14251" class="LineNr">14251 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14252" class="LineNr">14252 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" allocate\n"</span>) -<span id="L14253" class="LineNr">14253 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14254" class="LineNr">14254 </span> <span class="subxComment"># convert</span> -<span id="L14255" class="LineNr">14255 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14256" class="LineNr">14256 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14257" class="LineNr">14257 </span> <span class="subxComment"># restore ed</span> -<span id="L14258" class="LineNr">14258 </span> 89/<- %edx 4/r32/esp -<span id="L14259" class="LineNr">14259 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14260" class="LineNr">14260 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14261" class="Folded">14261 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14267" class="LineNr">14267 </span> <span class="subxComment"># check output</span> -<span id="L14268" class="LineNr">14268 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14234'>test-allocate-with-no-inout</a>: output should be empty"</span>) -<span id="L14269" class="LineNr">14269 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14234'>test-allocate-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14270" class="LineNr">14270 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14271" class="LineNr">14271 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14234'>test-allocate-with-no-inout</a>: exit status"</span>) -<span id="L14272" class="LineNr">14272 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14273" class="LineNr">14273 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14274" class="LineNr">14274 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14275" class="LineNr">14275 </span> 5d/pop-to-ebp -<span id="L14276" class="LineNr">14276 </span> c3/return -<span id="L14277" class="LineNr">14277 </span> -<span id="L14278" class="LineNr">14278 </span><span class="subxTest">test-allocate-with-too-many-inouts</span>: -<span id="L14279" class="LineNr">14279 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14280" class="LineNr">14280 </span> 55/push-ebp -<span id="L14281" class="LineNr">14281 </span> 89/<- %ebp 4/r32/esp -<span id="L14282" class="LineNr">14282 </span> <span class="subxComment"># setup</span> -<span id="L14283" class="LineNr">14283 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14284" class="LineNr">14284 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14285" class="LineNr">14285 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14286" class="LineNr">14286 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14287" class="LineNr">14287 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14288" class="LineNr">14288 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14289" class="LineNr">14289 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14290" class="LineNr">14290 </span> 68/push 0/imm32 -<span id="L14291" class="LineNr">14291 </span> 68/push 0/imm32 -<span id="L14292" class="LineNr">14292 </span> 89/<- %edx 4/r32/esp -<span id="L14293" class="LineNr">14293 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14294" class="LineNr">14294 </span> <span class="subxComment">#</span> -<span id="L14295" class="LineNr">14295 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14296" class="LineNr">14296 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) -<span id="L14297" class="LineNr">14297 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../120allocate.subx.html#L66'>allocate</a> x, 0\n"</span>) -<span id="L14298" class="LineNr">14298 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14299" class="LineNr">14299 </span> <span class="subxComment"># convert</span> -<span id="L14300" class="LineNr">14300 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14301" class="LineNr">14301 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14302" class="LineNr">14302 </span> <span class="subxComment"># restore ed</span> -<span id="L14303" class="LineNr">14303 </span> 89/<- %edx 4/r32/esp -<span id="L14304" class="LineNr">14304 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14305" class="LineNr">14305 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14306" class="Folded">14306 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14312" class="LineNr">14312 </span> <span class="subxComment"># check output</span> -<span id="L14313" class="LineNr">14313 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14278'>test-allocate-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L14314" class="LineNr">14314 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14278'>test-allocate-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14315" class="LineNr">14315 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14316" class="LineNr">14316 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14278'>test-allocate-with-too-many-inouts</a>: exit status"</span>) -<span id="L14317" class="LineNr">14317 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14318" class="LineNr">14318 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14319" class="LineNr">14319 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14320" class="LineNr">14320 </span> 5d/pop-to-ebp -<span id="L14321" class="LineNr">14321 </span> c3/return -<span id="L14322" class="LineNr">14322 </span> -<span id="L14323" class="LineNr">14323 </span><span class="subxTest">test-allocate-with-output</span>: -<span id="L14324" class="LineNr">14324 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14325" class="LineNr">14325 </span> 55/push-ebp -<span id="L14326" class="LineNr">14326 </span> 89/<- %ebp 4/r32/esp -<span id="L14327" class="LineNr">14327 </span> <span class="subxComment"># setup</span> -<span id="L14328" class="LineNr">14328 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14329" class="LineNr">14329 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14330" class="LineNr">14330 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14331" class="LineNr">14331 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14332" class="LineNr">14332 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14333" class="LineNr">14333 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14334" class="LineNr">14334 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14335" class="LineNr">14335 </span> 68/push 0/imm32 -<span id="L14336" class="LineNr">14336 </span> 68/push 0/imm32 -<span id="L14337" class="LineNr">14337 </span> 89/<- %edx 4/r32/esp -<span id="L14338" class="LineNr">14338 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14339" class="LineNr">14339 </span> <span class="subxComment">#</span> -<span id="L14340" class="LineNr">14340 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14341" class="LineNr">14341 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L14342" class="LineNr">14342 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L14343" class="LineNr">14343 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- <a href='../120allocate.subx.html#L66'>allocate</a> y\n"</span>) -<span id="L14344" class="LineNr">14344 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14345" class="LineNr">14345 </span> <span class="subxComment"># convert</span> -<span id="L14346" class="LineNr">14346 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14347" class="LineNr">14347 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14348" class="LineNr">14348 </span> <span class="subxComment"># restore ed</span> -<span id="L14349" class="LineNr">14349 </span> 89/<- %edx 4/r32/esp -<span id="L14350" class="LineNr">14350 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14351" class="LineNr">14351 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14352" class="Folded">14352 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14358" class="LineNr">14358 </span> <span class="subxComment"># check output</span> -<span id="L14359" class="LineNr">14359 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14323'>test-allocate-with-output</a>: output should be empty"</span>) -<span id="L14360" class="LineNr">14360 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14323'>test-allocate-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14361" class="LineNr">14361 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14362" class="LineNr">14362 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14323'>test-allocate-with-output</a>: exit status"</span>) -<span id="L14363" class="LineNr">14363 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14364" class="LineNr">14364 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14365" class="LineNr">14365 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14366" class="LineNr">14366 </span> 5d/pop-to-ebp -<span id="L14367" class="LineNr">14367 </span> c3/return -<span id="L14368" class="LineNr">14368 </span> -<span id="L14369" class="LineNr">14369 </span><span class="subxTest">test-allocate-non-addr</span>: -<span id="L14370" class="LineNr">14370 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14371" class="LineNr">14371 </span> 55/push-ebp -<span id="L14372" class="LineNr">14372 </span> 89/<- %ebp 4/r32/esp -<span id="L14373" class="LineNr">14373 </span> <span class="subxComment"># setup</span> -<span id="L14374" class="LineNr">14374 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14375" class="LineNr">14375 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14376" class="LineNr">14376 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14377" class="LineNr">14377 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14378" class="LineNr">14378 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14379" class="LineNr">14379 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14380" class="LineNr">14380 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14381" class="LineNr">14381 </span> 68/push 0/imm32 -<span id="L14382" class="LineNr">14382 </span> 68/push 0/imm32 -<span id="L14383" class="LineNr">14383 </span> 89/<- %edx 4/r32/esp -<span id="L14384" class="LineNr">14384 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14385" class="LineNr">14385 </span> <span class="subxComment">#</span> -<span id="L14386" class="LineNr">14386 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14387" class="LineNr">14387 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) -<span id="L14388" class="LineNr">14388 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../120allocate.subx.html#L66'>allocate</a> y\n"</span>) -<span id="L14389" class="LineNr">14389 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14390" class="LineNr">14390 </span> <span class="subxComment"># convert</span> -<span id="L14391" class="LineNr">14391 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14392" class="LineNr">14392 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14393" class="LineNr">14393 </span> <span class="subxComment"># restore ed</span> -<span id="L14394" class="LineNr">14394 </span> 89/<- %edx 4/r32/esp -<span id="L14395" class="LineNr">14395 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14396" class="LineNr">14396 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14397" class="Folded">14397 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14403" class="LineNr">14403 </span> <span class="subxComment"># check output</span> -<span id="L14404" class="LineNr">14404 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14369'>test-allocate-non-addr</a>: output must be empty"</span>) -<span id="L14405" class="LineNr">14405 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14369'>test-allocate-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14406" class="LineNr">14406 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14407" class="LineNr">14407 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14369'>test-allocate-non-addr</a>: exit status"</span>) -<span id="L14408" class="LineNr">14408 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14409" class="LineNr">14409 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14410" class="LineNr">14410 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14411" class="LineNr">14411 </span> 5d/pop-to-ebp -<span id="L14412" class="LineNr">14412 </span> c3/return -<span id="L14413" class="LineNr">14413 </span> -<span id="L14414" class="LineNr">14414 </span><span class="subxTest">test-allocate-non-addr-handle</span>: -<span id="L14415" class="LineNr">14415 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14416" class="LineNr">14416 </span> 55/push-ebp -<span id="L14417" class="LineNr">14417 </span> 89/<- %ebp 4/r32/esp -<span id="L14418" class="LineNr">14418 </span> <span class="subxComment"># setup</span> -<span id="L14419" class="LineNr">14419 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14420" class="LineNr">14420 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14421" class="LineNr">14421 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14422" class="LineNr">14422 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14423" class="LineNr">14423 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14424" class="LineNr">14424 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14425" class="LineNr">14425 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14426" class="LineNr">14426 </span> 68/push 0/imm32 -<span id="L14427" class="LineNr">14427 </span> 68/push 0/imm32 -<span id="L14428" class="LineNr">14428 </span> 89/<- %edx 4/r32/esp -<span id="L14429" class="LineNr">14429 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14430" class="LineNr">14430 </span> <span class="subxComment">#</span> -<span id="L14431" class="LineNr">14431 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14432" class="LineNr">14432 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L14433" class="LineNr">14433 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../120allocate.subx.html#L66'>allocate</a> y\n"</span>) -<span id="L14434" class="LineNr">14434 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14435" class="LineNr">14435 </span> <span class="subxComment"># convert</span> -<span id="L14436" class="LineNr">14436 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14437" class="LineNr">14437 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14438" class="LineNr">14438 </span> <span class="subxComment"># restore ed</span> -<span id="L14439" class="LineNr">14439 </span> 89/<- %edx 4/r32/esp -<span id="L14440" class="LineNr">14440 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14441" class="LineNr">14441 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14442" class="Folded">14442 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14448" class="LineNr">14448 </span> <span class="subxComment"># check output</span> -<span id="L14449" class="LineNr">14449 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14414'>test-allocate-non-addr-handle</a>: output should be empty"</span>) -<span id="L14450" class="LineNr">14450 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='../120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14414'>test-allocate-non-addr-handle</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14451" class="LineNr">14451 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14452" class="LineNr">14452 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14414'>test-allocate-non-addr-handle</a>: exit status"</span>) -<span id="L14453" class="LineNr">14453 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14454" class="LineNr">14454 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14455" class="LineNr">14455 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14456" class="LineNr">14456 </span> 5d/pop-to-ebp -<span id="L14457" class="LineNr">14457 </span> c3/return -<span id="L14458" class="LineNr">14458 </span> -<span id="L14459" class="LineNr">14459 </span><span class="subxTest">test-allocate-deref-address</span>: -<span id="L14460" class="LineNr">14460 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14461" class="LineNr">14461 </span> 55/push-ebp -<span id="L14462" class="LineNr">14462 </span> 89/<- %ebp 4/r32/esp -<span id="L14463" class="LineNr">14463 </span> <span class="subxComment"># setup</span> -<span id="L14464" class="LineNr">14464 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14465" class="LineNr">14465 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14466" class="LineNr">14466 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14467" class="LineNr">14467 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14468" class="LineNr">14468 </span> <span class="subxComment">#</span> -<span id="L14469" class="LineNr">14469 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14470" class="LineNr">14470 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle int) <- copy 0\n"</span>) -<span id="L14471" class="LineNr">14471 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='../120allocate.subx.html#L66'>allocate</a> *y\n"</span>) -<span id="L14472" class="LineNr">14472 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14473" class="LineNr">14473 </span> <span class="subxComment"># convert</span> -<span id="L14474" class="LineNr">14474 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14475" class="LineNr">14475 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14476" class="LineNr">14476 </span> <span class="subxComment"># no errors</span> -<span id="L14477" class="LineNr">14477 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14478" class="LineNr">14478 </span> 5d/pop-to-ebp -<span id="L14479" class="LineNr">14479 </span> c3/return -<span id="L14480" class="LineNr">14480 </span> -<span id="L14481" class="LineNr">14481 </span><span class="subxTest">test-populate-with-no-inout</span>: -<span id="L14482" class="LineNr">14482 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14483" class="LineNr">14483 </span> 55/push-ebp -<span id="L14484" class="LineNr">14484 </span> 89/<- %ebp 4/r32/esp -<span id="L14485" class="LineNr">14485 </span> <span class="subxComment"># setup</span> -<span id="L14486" class="LineNr">14486 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14487" class="LineNr">14487 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14488" class="LineNr">14488 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14489" class="LineNr">14489 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14490" class="LineNr">14490 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14491" class="LineNr">14491 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14492" class="LineNr">14492 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14493" class="LineNr">14493 </span> 68/push 0/imm32 -<span id="L14494" class="LineNr">14494 </span> 68/push 0/imm32 -<span id="L14495" class="LineNr">14495 </span> 89/<- %edx 4/r32/esp -<span id="L14496" class="LineNr">14496 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14497" class="LineNr">14497 </span> <span class="subxComment">#</span> -<span id="L14498" class="LineNr">14498 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14499" class="LineNr">14499 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate\n"</span>) -<span id="L14500" class="LineNr">14500 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14501" class="LineNr">14501 </span> <span class="subxComment"># convert</span> -<span id="L14502" class="LineNr">14502 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14503" class="LineNr">14503 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14504" class="LineNr">14504 </span> <span class="subxComment"># restore ed</span> -<span id="L14505" class="LineNr">14505 </span> 89/<- %edx 4/r32/esp -<span id="L14506" class="LineNr">14506 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14507" class="LineNr">14507 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14508" class="Folded">14508 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14514" class="LineNr">14514 </span> <span class="subxComment"># check output</span> -<span id="L14515" class="LineNr">14515 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14481'>test-populate-with-no-inout</a>: output should be empty"</span>) -<span id="L14516" class="LineNr">14516 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14481'>test-populate-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14517" class="LineNr">14517 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14518" class="LineNr">14518 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14481'>test-populate-with-no-inout</a>: exit status"</span>) -<span id="L14519" class="LineNr">14519 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14520" class="LineNr">14520 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14521" class="LineNr">14521 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14522" class="LineNr">14522 </span> 5d/pop-to-ebp -<span id="L14523" class="LineNr">14523 </span> c3/return -<span id="L14524" class="LineNr">14524 </span> -<span id="L14525" class="LineNr">14525 </span><span class="subxTest">test-populate-with-too-many-inouts</span>: -<span id="L14526" class="LineNr">14526 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14527" class="LineNr">14527 </span> 55/push-ebp -<span id="L14528" class="LineNr">14528 </span> 89/<- %ebp 4/r32/esp -<span id="L14529" class="LineNr">14529 </span> <span class="subxComment"># setup</span> -<span id="L14530" class="LineNr">14530 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14531" class="LineNr">14531 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14532" class="LineNr">14532 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14533" class="LineNr">14533 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14534" class="LineNr">14534 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14535" class="LineNr">14535 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14536" class="LineNr">14536 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14537" class="LineNr">14537 </span> 68/push 0/imm32 -<span id="L14538" class="LineNr">14538 </span> 68/push 0/imm32 -<span id="L14539" class="LineNr">14539 </span> 89/<- %edx 4/r32/esp -<span id="L14540" class="LineNr">14540 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14541" class="LineNr">14541 </span> <span class="subxComment">#</span> -<span id="L14542" class="LineNr">14542 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14543" class="LineNr">14543 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) -<span id="L14544" class="LineNr">14544 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 3, 0\n"</span>) -<span id="L14545" class="LineNr">14545 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14546" class="LineNr">14546 </span> <span class="subxComment"># convert</span> -<span id="L14547" class="LineNr">14547 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14548" class="LineNr">14548 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14549" class="LineNr">14549 </span> <span class="subxComment"># restore ed</span> -<span id="L14550" class="LineNr">14550 </span> 89/<- %edx 4/r32/esp -<span id="L14551" class="LineNr">14551 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14552" class="LineNr">14552 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14553" class="Folded">14553 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14559" class="LineNr">14559 </span> <span class="subxComment"># check output</span> -<span id="L14560" class="LineNr">14560 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14525'>test-populate-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L14561" class="LineNr">14561 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14525'>test-populate-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14562" class="LineNr">14562 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14563" class="LineNr">14563 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14525'>test-populate-with-too-many-inouts</a>: exit status"</span>) -<span id="L14564" class="LineNr">14564 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14565" class="LineNr">14565 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14566" class="LineNr">14566 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14567" class="LineNr">14567 </span> 5d/pop-to-ebp -<span id="L14568" class="LineNr">14568 </span> c3/return -<span id="L14569" class="LineNr">14569 </span> -<span id="L14570" class="LineNr">14570 </span><span class="subxTest">test-populate-with-output</span>: -<span id="L14571" class="LineNr">14571 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14572" class="LineNr">14572 </span> 55/push-ebp -<span id="L14573" class="LineNr">14573 </span> 89/<- %ebp 4/r32/esp -<span id="L14574" class="LineNr">14574 </span> <span class="subxComment"># setup</span> -<span id="L14575" class="LineNr">14575 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14576" class="LineNr">14576 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14577" class="LineNr">14577 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14578" class="LineNr">14578 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14579" class="LineNr">14579 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14580" class="LineNr">14580 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14581" class="LineNr">14581 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14582" class="LineNr">14582 </span> 68/push 0/imm32 -<span id="L14583" class="LineNr">14583 </span> 68/push 0/imm32 -<span id="L14584" class="LineNr">14584 </span> 89/<- %edx 4/r32/esp -<span id="L14585" class="LineNr">14585 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14586" class="LineNr">14586 </span> <span class="subxComment">#</span> -<span id="L14587" class="LineNr">14587 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14588" class="LineNr">14588 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L14589" class="LineNr">14589 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L14590" class="LineNr">14590 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate y\n"</span>) -<span id="L14591" class="LineNr">14591 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14592" class="LineNr">14592 </span> <span class="subxComment"># convert</span> -<span id="L14593" class="LineNr">14593 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14594" class="LineNr">14594 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14595" class="LineNr">14595 </span> <span class="subxComment"># restore ed</span> -<span id="L14596" class="LineNr">14596 </span> 89/<- %edx 4/r32/esp -<span id="L14597" class="LineNr">14597 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14598" class="LineNr">14598 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14599" class="Folded">14599 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14605" class="LineNr">14605 </span> <span class="subxComment"># check output</span> -<span id="L14606" class="LineNr">14606 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14570'>test-populate-with-output</a>: output should be empty"</span>) -<span id="L14607" class="LineNr">14607 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14570'>test-populate-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14608" class="LineNr">14608 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14609" class="LineNr">14609 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14570'>test-populate-with-output</a>: exit status"</span>) -<span id="L14610" class="LineNr">14610 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14611" class="LineNr">14611 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14612" class="LineNr">14612 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14613" class="LineNr">14613 </span> 5d/pop-to-ebp -<span id="L14614" class="LineNr">14614 </span> c3/return -<span id="L14615" class="LineNr">14615 </span> -<span id="L14616" class="LineNr">14616 </span><span class="subxTest">test-populate-non-addr</span>: -<span id="L14617" class="LineNr">14617 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14618" class="LineNr">14618 </span> 55/push-ebp -<span id="L14619" class="LineNr">14619 </span> 89/<- %ebp 4/r32/esp -<span id="L14620" class="LineNr">14620 </span> <span class="subxComment"># setup</span> -<span id="L14621" class="LineNr">14621 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14622" class="LineNr">14622 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14623" class="LineNr">14623 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14624" class="LineNr">14624 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14625" class="LineNr">14625 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14626" class="LineNr">14626 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14627" class="LineNr">14627 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14628" class="LineNr">14628 </span> 68/push 0/imm32 -<span id="L14629" class="LineNr">14629 </span> 68/push 0/imm32 -<span id="L14630" class="LineNr">14630 </span> 89/<- %edx 4/r32/esp -<span id="L14631" class="LineNr">14631 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14632" class="LineNr">14632 </span> <span class="subxComment">#</span> -<span id="L14633" class="LineNr">14633 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14634" class="LineNr">14634 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) -<span id="L14635" class="LineNr">14635 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) -<span id="L14636" class="LineNr">14636 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14637" class="LineNr">14637 </span> <span class="subxComment"># convert</span> -<span id="L14638" class="LineNr">14638 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14639" class="LineNr">14639 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14640" class="LineNr">14640 </span> <span class="subxComment"># restore ed</span> -<span id="L14641" class="LineNr">14641 </span> 89/<- %edx 4/r32/esp -<span id="L14642" class="LineNr">14642 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14643" class="LineNr">14643 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14644" class="Folded">14644 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14650" class="LineNr">14650 </span> <span class="subxComment"># check output</span> -<span id="L14651" class="LineNr">14651 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14616'>test-populate-non-addr</a>: output must be empty"</span>) -<span id="L14652" class="LineNr">14652 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14616'>test-populate-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14653" class="LineNr">14653 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14654" class="LineNr">14654 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14616'>test-populate-non-addr</a>: exit status"</span>) -<span id="L14655" class="LineNr">14655 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14656" class="LineNr">14656 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14657" class="LineNr">14657 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14658" class="LineNr">14658 </span> 5d/pop-to-ebp -<span id="L14659" class="LineNr">14659 </span> c3/return -<span id="L14660" class="LineNr">14660 </span> -<span id="L14661" class="LineNr">14661 </span><span class="subxTest">test-populate-non-addr-handle</span>: -<span id="L14662" class="LineNr">14662 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14663" class="LineNr">14663 </span> 55/push-ebp -<span id="L14664" class="LineNr">14664 </span> 89/<- %ebp 4/r32/esp -<span id="L14665" class="LineNr">14665 </span> <span class="subxComment"># setup</span> -<span id="L14666" class="LineNr">14666 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14667" class="LineNr">14667 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14668" class="LineNr">14668 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14669" class="LineNr">14669 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14670" class="LineNr">14670 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14671" class="LineNr">14671 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14672" class="LineNr">14672 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14673" class="LineNr">14673 </span> 68/push 0/imm32 -<span id="L14674" class="LineNr">14674 </span> 68/push 0/imm32 -<span id="L14675" class="LineNr">14675 </span> 89/<- %edx 4/r32/esp -<span id="L14676" class="LineNr">14676 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14677" class="LineNr">14677 </span> <span class="subxComment">#</span> -<span id="L14678" class="LineNr">14678 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14679" class="LineNr">14679 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L14680" class="LineNr">14680 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) -<span id="L14681" class="LineNr">14681 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14682" class="LineNr">14682 </span> <span class="subxComment"># convert</span> -<span id="L14683" class="LineNr">14683 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14684" class="LineNr">14684 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14685" class="LineNr">14685 </span> <span class="subxComment"># restore ed</span> -<span id="L14686" class="LineNr">14686 </span> 89/<- %edx 4/r32/esp -<span id="L14687" class="LineNr">14687 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14688" class="LineNr">14688 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14689" class="Folded">14689 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14695" class="LineNr">14695 </span> <span class="subxComment"># check output</span> -<span id="L14696" class="LineNr">14696 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14661'>test-populate-non-addr-handle</a>: output should be empty"</span>) -<span id="L14697" class="LineNr">14697 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14661'>test-populate-non-addr-handle</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14698" class="LineNr">14698 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14699" class="LineNr">14699 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14661'>test-populate-non-addr-handle</a>: exit status"</span>) -<span id="L14700" class="LineNr">14700 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14701" class="LineNr">14701 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14702" class="LineNr">14702 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14703" class="LineNr">14703 </span> 5d/pop-to-ebp -<span id="L14704" class="LineNr">14704 </span> c3/return -<span id="L14705" class="LineNr">14705 </span> -<span id="L14706" class="LineNr">14706 </span><span class="subxTest">test-populate-non-addr-handle-array</span>: -<span id="L14707" class="LineNr">14707 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14708" class="LineNr">14708 </span> 55/push-ebp -<span id="L14709" class="LineNr">14709 </span> 89/<- %ebp 4/r32/esp -<span id="L14710" class="LineNr">14710 </span> <span class="subxComment"># setup</span> -<span id="L14711" class="LineNr">14711 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14712" class="LineNr">14712 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14713" class="LineNr">14713 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14714" class="LineNr">14714 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14715" class="LineNr">14715 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14716" class="LineNr">14716 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14717" class="LineNr">14717 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14718" class="LineNr">14718 </span> 68/push 0/imm32 -<span id="L14719" class="LineNr">14719 </span> 68/push 0/imm32 -<span id="L14720" class="LineNr">14720 </span> 89/<- %edx 4/r32/esp -<span id="L14721" class="LineNr">14721 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14722" class="LineNr">14722 </span> <span class="subxComment">#</span> -<span id="L14723" class="LineNr">14723 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14724" class="LineNr">14724 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L14725" class="LineNr">14725 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) -<span id="L14726" class="LineNr">14726 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14727" class="LineNr">14727 </span> <span class="subxComment"># convert</span> -<span id="L14728" class="LineNr">14728 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14729" class="LineNr">14729 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14730" class="LineNr">14730 </span> <span class="subxComment"># restore ed</span> -<span id="L14731" class="LineNr">14731 </span> 89/<- %edx 4/r32/esp -<span id="L14732" class="LineNr">14732 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14733" class="LineNr">14733 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14734" class="Folded">14734 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14740" class="LineNr">14740 </span> <span class="subxComment"># check output</span> -<span id="L14741" class="LineNr">14741 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14706'>test-populate-non-addr-handle-array</a>: output should be empty"</span>) -<span id="L14742" class="LineNr">14742 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14706'>test-populate-non-addr-handle-array</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14743" class="LineNr">14743 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14744" class="LineNr">14744 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14706'>test-populate-non-addr-handle-array</a>: exit status"</span>) -<span id="L14745" class="LineNr">14745 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14746" class="LineNr">14746 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14747" class="LineNr">14747 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14748" class="LineNr">14748 </span> 5d/pop-to-ebp -<span id="L14749" class="LineNr">14749 </span> c3/return -<span id="L14750" class="LineNr">14750 </span> -<span id="L14751" class="LineNr">14751 </span><span class="subxTest">test-populate-deref-address</span>: -<span id="L14752" class="LineNr">14752 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14753" class="LineNr">14753 </span> 55/push-ebp -<span id="L14754" class="LineNr">14754 </span> 89/<- %ebp 4/r32/esp -<span id="L14755" class="LineNr">14755 </span> <span class="subxComment"># setup</span> -<span id="L14756" class="LineNr">14756 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14757" class="LineNr">14757 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14758" class="LineNr">14758 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14759" class="LineNr">14759 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14760" class="LineNr">14760 </span> <span class="subxComment">#</span> -<span id="L14761" class="LineNr">14761 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14762" class="LineNr">14762 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle array int) <- copy 0\n"</span>) -<span id="L14763" class="LineNr">14763 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate *y, 3\n"</span>) -<span id="L14764" class="LineNr">14764 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14765" class="LineNr">14765 </span> <span class="subxComment"># convert</span> -<span id="L14766" class="LineNr">14766 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L14767" class="LineNr">14767 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14768" class="LineNr">14768 </span> <span class="subxComment"># no errors</span> -<span id="L14769" class="LineNr">14769 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14770" class="LineNr">14770 </span> 5d/pop-to-ebp -<span id="L14771" class="LineNr">14771 </span> c3/return -<span id="L14772" class="LineNr">14772 </span> -<span id="L14773" class="LineNr">14773 </span><span class="subxTest">test-populate-stream-with-no-inout</span>: -<span id="L14774" class="LineNr">14774 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14775" class="LineNr">14775 </span> 55/push-ebp -<span id="L14776" class="LineNr">14776 </span> 89/<- %ebp 4/r32/esp -<span id="L14777" class="LineNr">14777 </span> <span class="subxComment"># setup</span> -<span id="L14778" class="LineNr">14778 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14779" class="LineNr">14779 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14780" class="LineNr">14780 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14781" class="LineNr">14781 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14782" class="LineNr">14782 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14783" class="LineNr">14783 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14784" class="LineNr">14784 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14785" class="LineNr">14785 </span> 68/push 0/imm32 -<span id="L14786" class="LineNr">14786 </span> 68/push 0/imm32 -<span id="L14787" class="LineNr">14787 </span> 89/<- %edx 4/r32/esp -<span id="L14788" class="LineNr">14788 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14789" class="LineNr">14789 </span> <span class="subxComment">#</span> -<span id="L14790" class="LineNr">14790 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14791" class="LineNr">14791 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream\n"</span>) -<span id="L14792" class="LineNr">14792 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14793" class="LineNr">14793 </span> <span class="subxComment"># convert</span> -<span id="L14794" class="LineNr">14794 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14795" class="LineNr">14795 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14796" class="LineNr">14796 </span> <span class="subxComment"># restore ed</span> -<span id="L14797" class="LineNr">14797 </span> 89/<- %edx 4/r32/esp -<span id="L14798" class="LineNr">14798 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14799" class="LineNr">14799 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14800" class="Folded">14800 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14806" class="LineNr">14806 </span> <span class="subxComment"># check output</span> -<span id="L14807" class="LineNr">14807 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14773'>test-populate-stream-with-no-inout</a>: output should be empty"</span>) -<span id="L14808" class="LineNr">14808 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14773'>test-populate-stream-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14809" class="LineNr">14809 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14810" class="LineNr">14810 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14773'>test-populate-stream-with-no-inout</a>: exit status"</span>) -<span id="L14811" class="LineNr">14811 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14812" class="LineNr">14812 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14813" class="LineNr">14813 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14814" class="LineNr">14814 </span> 5d/pop-to-ebp -<span id="L14815" class="LineNr">14815 </span> c3/return -<span id="L14816" class="LineNr">14816 </span> -<span id="L14817" class="LineNr">14817 </span><span class="subxTest">test-populate-stream-with-too-many-inouts</span>: -<span id="L14818" class="LineNr">14818 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14819" class="LineNr">14819 </span> 55/push-ebp -<span id="L14820" class="LineNr">14820 </span> 89/<- %ebp 4/r32/esp -<span id="L14821" class="LineNr">14821 </span> <span class="subxComment"># setup</span> -<span id="L14822" class="LineNr">14822 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14823" class="LineNr">14823 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14824" class="LineNr">14824 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14825" class="LineNr">14825 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14826" class="LineNr">14826 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14827" class="LineNr">14827 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14828" class="LineNr">14828 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14829" class="LineNr">14829 </span> 68/push 0/imm32 -<span id="L14830" class="LineNr">14830 </span> 68/push 0/imm32 -<span id="L14831" class="LineNr">14831 </span> 89/<- %edx 4/r32/esp -<span id="L14832" class="LineNr">14832 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14833" class="LineNr">14833 </span> <span class="subxComment">#</span> -<span id="L14834" class="LineNr">14834 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14835" class="LineNr">14835 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) -<span id="L14836" class="LineNr">14836 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream x, 3, 0\n"</span>) -<span id="L14837" class="LineNr">14837 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14838" class="LineNr">14838 </span> <span class="subxComment"># convert</span> -<span id="L14839" class="LineNr">14839 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14840" class="LineNr">14840 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14841" class="LineNr">14841 </span> <span class="subxComment"># restore ed</span> -<span id="L14842" class="LineNr">14842 </span> 89/<- %edx 4/r32/esp -<span id="L14843" class="LineNr">14843 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14844" class="LineNr">14844 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14845" class="Folded">14845 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14851" class="LineNr">14851 </span> <span class="subxComment"># check output</span> -<span id="L14852" class="LineNr">14852 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14817'>test-populate-stream-with-too-many-inouts</a>: output should be empty"</span>) -<span id="L14853" class="LineNr">14853 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14817'>test-populate-stream-with-too-many-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14854" class="LineNr">14854 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14855" class="LineNr">14855 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14817'>test-populate-stream-with-too-many-inouts</a>: exit status"</span>) -<span id="L14856" class="LineNr">14856 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14857" class="LineNr">14857 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14858" class="LineNr">14858 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14859" class="LineNr">14859 </span> 5d/pop-to-ebp -<span id="L14860" class="LineNr">14860 </span> c3/return -<span id="L14861" class="LineNr">14861 </span> -<span id="L14862" class="LineNr">14862 </span><span class="subxTest">test-populate-stream-with-output</span>: -<span id="L14863" class="LineNr">14863 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14864" class="LineNr">14864 </span> 55/push-ebp -<span id="L14865" class="LineNr">14865 </span> 89/<- %ebp 4/r32/esp -<span id="L14866" class="LineNr">14866 </span> <span class="subxComment"># setup</span> -<span id="L14867" class="LineNr">14867 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14868" class="LineNr">14868 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14869" class="LineNr">14869 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14870" class="LineNr">14870 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14871" class="LineNr">14871 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14872" class="LineNr">14872 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14873" class="LineNr">14873 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14874" class="LineNr">14874 </span> 68/push 0/imm32 -<span id="L14875" class="LineNr">14875 </span> 68/push 0/imm32 -<span id="L14876" class="LineNr">14876 </span> 89/<- %edx 4/r32/esp -<span id="L14877" class="LineNr">14877 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14878" class="LineNr">14878 </span> <span class="subxComment">#</span> -<span id="L14879" class="LineNr">14879 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14880" class="LineNr">14880 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) -<span id="L14881" class="LineNr">14881 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L14882" class="LineNr">14882 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate-stream y\n"</span>) -<span id="L14883" class="LineNr">14883 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14884" class="LineNr">14884 </span> <span class="subxComment"># convert</span> -<span id="L14885" class="LineNr">14885 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14886" class="LineNr">14886 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14887" class="LineNr">14887 </span> <span class="subxComment"># restore ed</span> -<span id="L14888" class="LineNr">14888 </span> 89/<- %edx 4/r32/esp -<span id="L14889" class="LineNr">14889 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14890" class="LineNr">14890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14891" class="Folded">14891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14897" class="LineNr">14897 </span> <span class="subxComment"># check output</span> -<span id="L14898" class="LineNr">14898 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14862'>test-populate-stream-with-output</a>: output should be empty"</span>) -<span id="L14899" class="LineNr">14899 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14862'>test-populate-stream-with-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14900" class="LineNr">14900 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14901" class="LineNr">14901 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14862'>test-populate-stream-with-output</a>: exit status"</span>) -<span id="L14902" class="LineNr">14902 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14903" class="LineNr">14903 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14904" class="LineNr">14904 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14905" class="LineNr">14905 </span> 5d/pop-to-ebp -<span id="L14906" class="LineNr">14906 </span> c3/return -<span id="L14907" class="LineNr">14907 </span> -<span id="L14908" class="LineNr">14908 </span><span class="subxTest">test-populate-stream-non-addr</span>: -<span id="L14909" class="LineNr">14909 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14910" class="LineNr">14910 </span> 55/push-ebp -<span id="L14911" class="LineNr">14911 </span> 89/<- %ebp 4/r32/esp -<span id="L14912" class="LineNr">14912 </span> <span class="subxComment"># setup</span> -<span id="L14913" class="LineNr">14913 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14914" class="LineNr">14914 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14915" class="LineNr">14915 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14916" class="LineNr">14916 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14917" class="LineNr">14917 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14918" class="LineNr">14918 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14919" class="LineNr">14919 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14920" class="LineNr">14920 </span> 68/push 0/imm32 -<span id="L14921" class="LineNr">14921 </span> 68/push 0/imm32 -<span id="L14922" class="LineNr">14922 </span> 89/<- %edx 4/r32/esp -<span id="L14923" class="LineNr">14923 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14924" class="LineNr">14924 </span> <span class="subxComment">#</span> -<span id="L14925" class="LineNr">14925 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14926" class="LineNr">14926 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) -<span id="L14927" class="LineNr">14927 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) -<span id="L14928" class="LineNr">14928 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14929" class="LineNr">14929 </span> <span class="subxComment"># convert</span> -<span id="L14930" class="LineNr">14930 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14931" class="LineNr">14931 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14932" class="LineNr">14932 </span> <span class="subxComment"># restore ed</span> -<span id="L14933" class="LineNr">14933 </span> 89/<- %edx 4/r32/esp -<span id="L14934" class="LineNr">14934 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14935" class="LineNr">14935 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14936" class="Folded">14936 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14942" class="LineNr">14942 </span> <span class="subxComment"># check output</span> -<span id="L14943" class="LineNr">14943 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14908'>test-populate-stream-non-addr</a>: output must be empty"</span>) -<span id="L14944" class="LineNr">14944 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14908'>test-populate-stream-non-addr</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14945" class="LineNr">14945 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14946" class="LineNr">14946 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14908'>test-populate-stream-non-addr</a>: exit status"</span>) -<span id="L14947" class="LineNr">14947 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14948" class="LineNr">14948 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14949" class="LineNr">14949 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14950" class="LineNr">14950 </span> 5d/pop-to-ebp -<span id="L14951" class="LineNr">14951 </span> c3/return -<span id="L14952" class="LineNr">14952 </span> -<span id="L14953" class="LineNr">14953 </span><span class="subxTest">test-populate-stream-non-addr-handle</span>: -<span id="L14954" class="LineNr">14954 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14955" class="LineNr">14955 </span> 55/push-ebp -<span id="L14956" class="LineNr">14956 </span> 89/<- %ebp 4/r32/esp -<span id="L14957" class="LineNr">14957 </span> <span class="subxComment"># setup</span> -<span id="L14958" class="LineNr">14958 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L14959" class="LineNr">14959 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L14960" class="LineNr">14960 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L14961" class="LineNr">14961 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L14962" class="LineNr">14962 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L14963" class="LineNr">14963 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L14964" class="LineNr">14964 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L14965" class="LineNr">14965 </span> 68/push 0/imm32 -<span id="L14966" class="LineNr">14966 </span> 68/push 0/imm32 -<span id="L14967" class="LineNr">14967 </span> 89/<- %edx 4/r32/esp -<span id="L14968" class="LineNr">14968 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L14969" class="LineNr">14969 </span> <span class="subxComment">#</span> -<span id="L14970" class="LineNr">14970 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L14971" class="LineNr">14971 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) -<span id="L14972" class="LineNr">14972 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) -<span id="L14973" class="LineNr">14973 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L14974" class="LineNr">14974 </span> <span class="subxComment"># convert</span> -<span id="L14975" class="LineNr">14975 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L14976" class="LineNr">14976 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L14977" class="LineNr">14977 </span> <span class="subxComment"># restore ed</span> -<span id="L14978" class="LineNr">14978 </span> 89/<- %edx 4/r32/esp -<span id="L14979" class="LineNr">14979 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L14980" class="LineNr">14980 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L14981" class="Folded">14981 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L14987" class="LineNr">14987 </span> <span class="subxComment"># check output</span> -<span id="L14988" class="LineNr">14988 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14953'>test-populate-stream-non-addr-handle</a>: output should be empty"</span>) -<span id="L14989" class="LineNr">14989 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14953'>test-populate-stream-non-addr-handle</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L14990" class="LineNr">14990 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L14991" class="LineNr">14991 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14953'>test-populate-stream-non-addr-handle</a>: exit status"</span>) -<span id="L14992" class="LineNr">14992 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L14993" class="LineNr">14993 </span> 81 0/subop/add %esp 8/imm32 -<span id="L14994" class="LineNr">14994 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L14995" class="LineNr">14995 </span> 5d/pop-to-ebp -<span id="L14996" class="LineNr">14996 </span> c3/return -<span id="L14997" class="LineNr">14997 </span> -<span id="L14998" class="LineNr">14998 </span><span class="subxTest">test-populate-stream-non-addr-handle-stream</span>: -<span id="L14999" class="LineNr">14999 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15000" class="LineNr">15000 </span> 55/push-ebp -<span id="L15001" class="LineNr">15001 </span> 89/<- %ebp 4/r32/esp -<span id="L15002" class="LineNr">15002 </span> <span class="subxComment"># setup</span> -<span id="L15003" class="LineNr">15003 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15004" class="LineNr">15004 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15005" class="LineNr">15005 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15006" class="LineNr">15006 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15007" class="LineNr">15007 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15008" class="LineNr">15008 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15009" class="LineNr">15009 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15010" class="LineNr">15010 </span> 68/push 0/imm32 -<span id="L15011" class="LineNr">15011 </span> 68/push 0/imm32 -<span id="L15012" class="LineNr">15012 </span> 89/<- %edx 4/r32/esp -<span id="L15013" class="LineNr">15013 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15014" class="LineNr">15014 </span> <span class="subxComment">#</span> -<span id="L15015" class="LineNr">15015 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15016" class="LineNr">15016 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) -<span id="L15017" class="LineNr">15017 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) -<span id="L15018" class="LineNr">15018 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15019" class="LineNr">15019 </span> <span class="subxComment"># convert</span> -<span id="L15020" class="LineNr">15020 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15021" class="LineNr">15021 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15022" class="LineNr">15022 </span> <span class="subxComment"># restore ed</span> -<span id="L15023" class="LineNr">15023 </span> 89/<- %edx 4/r32/esp -<span id="L15024" class="LineNr">15024 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15025" class="LineNr">15025 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15026" class="Folded">15026 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15032" class="LineNr">15032 </span> <span class="subxComment"># check output</span> -<span id="L15033" class="LineNr">15033 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14998'>test-populate-stream-non-addr-handle-stream</a>: output should be empty"</span>) -<span id="L15034" class="LineNr">15034 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14998'>test-populate-stream-non-addr-handle-stream</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15035" class="LineNr">15035 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15036" class="LineNr">15036 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14998'>test-populate-stream-non-addr-handle-stream</a>: exit status"</span>) -<span id="L15037" class="LineNr">15037 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15038" class="LineNr">15038 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15039" class="LineNr">15039 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15040" class="LineNr">15040 </span> 5d/pop-to-ebp -<span id="L15041" class="LineNr">15041 </span> c3/return -<span id="L15042" class="LineNr">15042 </span> -<span id="L15043" class="LineNr">15043 </span><span class="subxTest">test-populate-stream-deref-address</span>: -<span id="L15044" class="LineNr">15044 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15045" class="LineNr">15045 </span> 55/push-ebp -<span id="L15046" class="LineNr">15046 </span> 89/<- %ebp 4/r32/esp -<span id="L15047" class="LineNr">15047 </span> <span class="subxComment"># setup</span> -<span id="L15048" class="LineNr">15048 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15049" class="LineNr">15049 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15050" class="LineNr">15050 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15051" class="LineNr">15051 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15052" class="LineNr">15052 </span> <span class="subxComment">#</span> -<span id="L15053" class="LineNr">15053 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15054" class="LineNr">15054 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle stream int) <- copy 0\n"</span>) -<span id="L15055" class="LineNr">15055 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream *y, 3\n"</span>) -<span id="L15056" class="LineNr">15056 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15057" class="LineNr">15057 </span> <span class="subxComment"># convert</span> -<span id="L15058" class="LineNr">15058 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L15059" class="LineNr">15059 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15060" class="LineNr">15060 </span> <span class="subxComment"># no errors</span> -<span id="L15061" class="LineNr">15061 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15062" class="LineNr">15062 </span> 5d/pop-to-ebp -<span id="L15063" class="LineNr">15063 </span> c3/return -<span id="L15064" class="LineNr">15064 </span> -<span id="L15065" class="LineNr">15065 </span><span class="subxTest">test-convert-with-no-inout</span>: -<span id="L15066" class="LineNr">15066 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15067" class="LineNr">15067 </span> 55/push-ebp -<span id="L15068" class="LineNr">15068 </span> 89/<- %ebp 4/r32/esp -<span id="L15069" class="LineNr">15069 </span> <span class="subxComment"># setup</span> -<span id="L15070" class="LineNr">15070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15071" class="LineNr">15071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15072" class="LineNr">15072 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15073" class="LineNr">15073 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15074" class="LineNr">15074 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15075" class="LineNr">15075 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15076" class="LineNr">15076 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15077" class="LineNr">15077 </span> 68/push 0/imm32 -<span id="L15078" class="LineNr">15078 </span> 68/push 0/imm32 -<span id="L15079" class="LineNr">15079 </span> 89/<- %edx 4/r32/esp -<span id="L15080" class="LineNr">15080 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15081" class="LineNr">15081 </span> <span class="subxComment">#</span> -<span id="L15082" class="LineNr">15082 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15083" class="LineNr">15083 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- convert\n"</span>) -<span id="L15084" class="LineNr">15084 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15085" class="LineNr">15085 </span> <span class="subxComment"># convert</span> -<span id="L15086" class="LineNr">15086 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15087" class="LineNr">15087 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15088" class="LineNr">15088 </span> <span class="subxComment"># restore ed</span> -<span id="L15089" class="LineNr">15089 </span> 89/<- %edx 4/r32/esp -<span id="L15090" class="LineNr">15090 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15091" class="LineNr">15091 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15092" class="Folded">15092 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15098" class="LineNr">15098 </span> <span class="subxComment"># check output</span> -<span id="L15099" class="LineNr">15099 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15065'>test-convert-with-no-inout</a>: output should be empty"</span>) -<span id="L15100" class="LineNr">15100 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15065'>test-convert-with-no-inout</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15101" class="LineNr">15101 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15102" class="LineNr">15102 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15065'>test-convert-with-no-inout</a>: exit status"</span>) -<span id="L15103" class="LineNr">15103 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15104" class="LineNr">15104 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15105" class="LineNr">15105 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15106" class="LineNr">15106 </span> 5d/pop-to-ebp -<span id="L15107" class="LineNr">15107 </span> c3/return -<span id="L15108" class="LineNr">15108 </span> -<span id="L15109" class="LineNr">15109 </span><span class="subxTest">test-convert-with-multiple-inouts</span>: -<span id="L15110" class="LineNr">15110 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15111" class="LineNr">15111 </span> 55/push-ebp -<span id="L15112" class="LineNr">15112 </span> 89/<- %ebp 4/r32/esp -<span id="L15113" class="LineNr">15113 </span> <span class="subxComment"># setup</span> -<span id="L15114" class="LineNr">15114 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15115" class="LineNr">15115 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15116" class="LineNr">15116 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15117" class="LineNr">15117 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15118" class="LineNr">15118 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15119" class="LineNr">15119 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15120" class="LineNr">15120 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15121" class="LineNr">15121 </span> 68/push 0/imm32 -<span id="L15122" class="LineNr">15122 </span> 68/push 0/imm32 -<span id="L15123" class="LineNr">15123 </span> 89/<- %edx 4/r32/esp -<span id="L15124" class="LineNr">15124 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15125" class="LineNr">15125 </span> <span class="subxComment">#</span> -<span id="L15126" class="LineNr">15126 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15127" class="LineNr">15127 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- convert 0, 0\n"</span>) -<span id="L15128" class="LineNr">15128 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15129" class="LineNr">15129 </span> <span class="subxComment"># convert</span> -<span id="L15130" class="LineNr">15130 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15131" class="LineNr">15131 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15132" class="LineNr">15132 </span> <span class="subxComment"># restore ed</span> -<span id="L15133" class="LineNr">15133 </span> 89/<- %edx 4/r32/esp -<span id="L15134" class="LineNr">15134 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15135" class="LineNr">15135 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15136" class="Folded">15136 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15142" class="LineNr">15142 </span> <span class="subxComment"># check output</span> -<span id="L15143" class="LineNr">15143 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15109'>test-convert-with-multiple-inouts</a>: output should be empty"</span>) -<span id="L15144" class="LineNr">15144 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15109'>test-convert-with-multiple-inouts</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15145" class="LineNr">15145 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15146" class="LineNr">15146 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15109'>test-convert-with-multiple-inouts</a>: exit status"</span>) -<span id="L15147" class="LineNr">15147 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15148" class="LineNr">15148 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15149" class="LineNr">15149 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15150" class="LineNr">15150 </span> 5d/pop-to-ebp -<span id="L15151" class="LineNr">15151 </span> c3/return -<span id="L15152" class="LineNr">15152 </span> -<span id="L15153" class="LineNr">15153 </span><span class="subxTest">test-convert-with-no-output</span>: -<span id="L15154" class="LineNr">15154 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15155" class="LineNr">15155 </span> 55/push-ebp -<span id="L15156" class="LineNr">15156 </span> 89/<- %ebp 4/r32/esp -<span id="L15157" class="LineNr">15157 </span> <span class="subxComment"># setup</span> -<span id="L15158" class="LineNr">15158 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15159" class="LineNr">15159 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15160" class="LineNr">15160 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15161" class="LineNr">15161 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15162" class="LineNr">15162 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15163" class="LineNr">15163 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15164" class="LineNr">15164 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15165" class="LineNr">15165 </span> 68/push 0/imm32 -<span id="L15166" class="LineNr">15166 </span> 68/push 0/imm32 -<span id="L15167" class="LineNr">15167 </span> 89/<- %edx 4/r32/esp -<span id="L15168" class="LineNr">15168 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15169" class="LineNr">15169 </span> <span class="subxComment">#</span> -<span id="L15170" class="LineNr">15170 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15171" class="LineNr">15171 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" convert 0\n"</span>) -<span id="L15172" class="LineNr">15172 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15173" class="LineNr">15173 </span> <span class="subxComment"># convert</span> -<span id="L15174" class="LineNr">15174 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15175" class="LineNr">15175 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15176" class="LineNr">15176 </span> <span class="subxComment"># restore ed</span> -<span id="L15177" class="LineNr">15177 </span> 89/<- %edx 4/r32/esp -<span id="L15178" class="LineNr">15178 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15179" class="LineNr">15179 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15180" class="Folded">15180 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15186" class="LineNr">15186 </span> <span class="subxComment"># check output</span> -<span id="L15187" class="LineNr">15187 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15153'>test-convert-with-no-output</a>: output should be empty"</span>) -<span id="L15188" class="LineNr">15188 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15153'>test-convert-with-no-output</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15189" class="LineNr">15189 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15190" class="LineNr">15190 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15153'>test-convert-with-no-output</a>: exit status"</span>) -<span id="L15191" class="LineNr">15191 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15192" class="LineNr">15192 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15193" class="LineNr">15193 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15194" class="LineNr">15194 </span> 5d/pop-to-ebp -<span id="L15195" class="LineNr">15195 </span> c3/return -<span id="L15196" class="LineNr">15196 </span> -<span id="L15197" class="LineNr">15197 </span><span class="subxTest">test-convert-with-multiple-outputs</span>: -<span id="L15198" class="LineNr">15198 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15199" class="LineNr">15199 </span> 55/push-ebp -<span id="L15200" class="LineNr">15200 </span> 89/<- %ebp 4/r32/esp -<span id="L15201" class="LineNr">15201 </span> <span class="subxComment"># setup</span> -<span id="L15202" class="LineNr">15202 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15203" class="LineNr">15203 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15204" class="LineNr">15204 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15205" class="LineNr">15205 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15206" class="LineNr">15206 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15207" class="LineNr">15207 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15208" class="LineNr">15208 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15209" class="LineNr">15209 </span> 68/push 0/imm32 -<span id="L15210" class="LineNr">15210 </span> 68/push 0/imm32 -<span id="L15211" class="LineNr">15211 </span> 89/<- %edx 4/r32/esp -<span id="L15212" class="LineNr">15212 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15213" class="LineNr">15213 </span> <span class="subxComment">#</span> -<span id="L15214" class="LineNr">15214 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15215" class="LineNr">15215 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) -<span id="L15216" class="LineNr">15216 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 0\n"</span>) -<span id="L15217" class="LineNr">15217 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- convert 0\n"</span>) -<span id="L15218" class="LineNr">15218 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15219" class="LineNr">15219 </span> <span class="subxComment"># convert</span> -<span id="L15220" class="LineNr">15220 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15221" class="LineNr">15221 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15222" class="LineNr">15222 </span> <span class="subxComment"># restore ed</span> -<span id="L15223" class="LineNr">15223 </span> 89/<- %edx 4/r32/esp -<span id="L15224" class="LineNr">15224 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15225" class="LineNr">15225 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15226" class="Folded">15226 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15232" class="LineNr">15232 </span> <span class="subxComment"># check output</span> -<span id="L15233" class="LineNr">15233 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15197'>test-convert-with-multiple-outputs</a>: output should be empty"</span>) -<span id="L15234" class="LineNr">15234 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15197'>test-convert-with-multiple-outputs</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15235" class="LineNr">15235 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15236" class="LineNr">15236 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15197'>test-convert-with-multiple-outputs</a>: exit status"</span>) -<span id="L15237" class="LineNr">15237 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15238" class="LineNr">15238 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15239" class="LineNr">15239 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15240" class="LineNr">15240 </span> 5d/pop-to-ebp -<span id="L15241" class="LineNr">15241 </span> c3/return -<span id="L15242" class="LineNr">15242 </span> -<span id="L15243" class="LineNr">15243 </span><span class="subxTest">test-convert-deref-address</span>: -<span id="L15244" class="LineNr">15244 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15245" class="LineNr">15245 </span> 55/push-ebp -<span id="L15246" class="LineNr">15246 </span> 89/<- %ebp 4/r32/esp -<span id="L15247" class="LineNr">15247 </span> <span class="subxComment"># setup</span> -<span id="L15248" class="LineNr">15248 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15249" class="LineNr">15249 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15250" class="LineNr">15250 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15251" class="LineNr">15251 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15252" class="LineNr">15252 </span> <span class="subxComment">#</span> -<span id="L15253" class="LineNr">15253 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15254" class="LineNr">15254 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) -<span id="L15255" class="LineNr">15255 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm4: float <- convert *x\n"</span>) -<span id="L15256" class="LineNr">15256 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15257" class="LineNr">15257 </span> <span class="subxComment"># convert</span> -<span id="L15258" class="LineNr">15258 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L15259" class="LineNr">15259 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15260" class="LineNr">15260 </span> <span class="subxComment"># no errors</span> -<span id="L15261" class="LineNr">15261 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15262" class="LineNr">15262 </span> 5d/pop-to-ebp -<span id="L15263" class="LineNr">15263 </span> c3/return -<span id="L15264" class="LineNr">15264 </span> -<span id="L15265" class="LineNr">15265 </span><span class="subxTest">test-convert-to-non-register</span>: -<span id="L15266" class="LineNr">15266 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15267" class="LineNr">15267 </span> 55/push-ebp -<span id="L15268" class="LineNr">15268 </span> 89/<- %ebp 4/r32/esp -<span id="L15269" class="LineNr">15269 </span> <span class="subxComment"># setup</span> -<span id="L15270" class="LineNr">15270 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15271" class="LineNr">15271 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15272" class="LineNr">15272 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15273" class="LineNr">15273 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15274" class="LineNr">15274 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15275" class="LineNr">15275 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15276" class="LineNr">15276 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15277" class="LineNr">15277 </span> 68/push 0/imm32 -<span id="L15278" class="LineNr">15278 </span> 68/push 0/imm32 -<span id="L15279" class="LineNr">15279 </span> 89/<- %edx 4/r32/esp -<span id="L15280" class="LineNr">15280 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15281" class="LineNr">15281 </span> <span class="subxComment">#</span> -<span id="L15282" class="LineNr">15282 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15283" class="LineNr">15283 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) -<span id="L15284" class="LineNr">15284 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) -<span id="L15285" class="LineNr">15285 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- convert y\n"</span>) -<span id="L15286" class="LineNr">15286 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15287" class="LineNr">15287 </span> <span class="subxComment"># convert</span> -<span id="L15288" class="LineNr">15288 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15289" class="LineNr">15289 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15290" class="LineNr">15290 </span> <span class="subxComment"># restore ed</span> -<span id="L15291" class="LineNr">15291 </span> 89/<- %edx 4/r32/esp -<span id="L15292" class="LineNr">15292 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15293" class="LineNr">15293 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15294" class="Folded">15294 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15300" class="LineNr">15300 </span> <span class="subxComment"># check output</span> -<span id="L15301" class="LineNr">15301 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15265'>test-convert-to-non-register</a>: output should be empty"</span>) -<span id="L15302" class="LineNr">15302 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L15265'>test-convert-to-non-register</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15303" class="LineNr">15303 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15304" class="LineNr">15304 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15265'>test-convert-to-non-register</a>: exit status"</span>) -<span id="L15305" class="LineNr">15305 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15306" class="LineNr">15306 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15307" class="LineNr">15307 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15308" class="LineNr">15308 </span> 5d/pop-to-ebp -<span id="L15309" class="LineNr">15309 </span> c3/return -<span id="L15310" class="LineNr">15310 </span> -<span id="L15311" class="LineNr">15311 </span><span class="subxTest">test-convert-invalid-inout-type</span>: -<span id="L15312" class="LineNr">15312 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15313" class="LineNr">15313 </span> 55/push-ebp -<span id="L15314" class="LineNr">15314 </span> 89/<- %ebp 4/r32/esp -<span id="L15315" class="LineNr">15315 </span> <span class="subxComment"># setup</span> -<span id="L15316" class="LineNr">15316 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15317" class="LineNr">15317 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15318" class="LineNr">15318 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15319" class="LineNr">15319 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15320" class="LineNr">15320 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15321" class="LineNr">15321 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15322" class="LineNr">15322 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15323" class="LineNr">15323 </span> 68/push 0/imm32 -<span id="L15324" class="LineNr">15324 </span> 68/push 0/imm32 -<span id="L15325" class="LineNr">15325 </span> 89/<- %edx 4/r32/esp -<span id="L15326" class="LineNr">15326 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15327" class="LineNr">15327 </span> <span class="subxComment">#</span> -<span id="L15328" class="LineNr">15328 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15329" class="LineNr">15329 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) -<span id="L15330" class="LineNr">15330 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm1: float <- convert x\n"</span>) -<span id="L15331" class="LineNr">15331 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15332" class="LineNr">15332 </span> <span class="subxComment"># convert</span> -<span id="L15333" class="LineNr">15333 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15334" class="LineNr">15334 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15335" class="LineNr">15335 </span> <span class="subxComment"># restore ed</span> -<span id="L15336" class="LineNr">15336 </span> 89/<- %edx 4/r32/esp -<span id="L15337" class="LineNr">15337 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15338" class="LineNr">15338 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15339" class="Folded">15339 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15345" class="LineNr">15345 </span> <span class="subxComment"># check output</span> -<span id="L15346" class="LineNr">15346 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15311'>test-convert-invalid-inout-type</a>: output should be empty"</span>) -<span id="L15347" class="LineNr">15347 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: inout 'x' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15311'>test-convert-invalid-inout-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15348" class="LineNr">15348 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15349" class="LineNr">15349 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15311'>test-convert-invalid-inout-type</a>: exit status"</span>) -<span id="L15350" class="LineNr">15350 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15351" class="LineNr">15351 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15352" class="LineNr">15352 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15353" class="LineNr">15353 </span> 5d/pop-to-ebp -<span id="L15354" class="LineNr">15354 </span> c3/return -<span id="L15355" class="LineNr">15355 </span> -<span id="L15356" class="LineNr">15356 </span><span class="subxTest">test-convert-invalid-output-type</span>: -<span id="L15357" class="LineNr">15357 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15358" class="LineNr">15358 </span> 55/push-ebp -<span id="L15359" class="LineNr">15359 </span> 89/<- %ebp 4/r32/esp -<span id="L15360" class="LineNr">15360 </span> <span class="subxComment"># setup</span> -<span id="L15361" class="LineNr">15361 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15362" class="LineNr">15362 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15363" class="LineNr">15363 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15364" class="LineNr">15364 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15365" class="LineNr">15365 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15366" class="LineNr">15366 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15367" class="LineNr">15367 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15368" class="LineNr">15368 </span> 68/push 0/imm32 -<span id="L15369" class="LineNr">15369 </span> 68/push 0/imm32 -<span id="L15370" class="LineNr">15370 </span> 89/<- %edx 4/r32/esp -<span id="L15371" class="LineNr">15371 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15372" class="LineNr">15372 </span> <span class="subxComment">#</span> -<span id="L15373" class="LineNr">15373 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15374" class="LineNr">15374 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) -<span id="L15375" class="LineNr">15375 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: boolean <- convert x\n"</span>) -<span id="L15376" class="LineNr">15376 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15377" class="LineNr">15377 </span> <span class="subxComment"># convert</span> -<span id="L15378" class="LineNr">15378 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15379" class="LineNr">15379 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15380" class="LineNr">15380 </span> <span class="subxComment"># restore ed</span> -<span id="L15381" class="LineNr">15381 </span> 89/<- %edx 4/r32/esp -<span id="L15382" class="LineNr">15382 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15383" class="LineNr">15383 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15384" class="Folded">15384 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15390" class="LineNr">15390 </span> <span class="subxComment"># check output</span> -<span id="L15391" class="LineNr">15391 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15356'>test-convert-invalid-output-type</a>: output should be empty"</span>) -<span id="L15392" class="LineNr">15392 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'y' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15356'>test-convert-invalid-output-type</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15393" class="LineNr">15393 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15394" class="LineNr">15394 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15356'>test-convert-invalid-output-type</a>: exit status"</span>) -<span id="L15395" class="LineNr">15395 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15396" class="LineNr">15396 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15397" class="LineNr">15397 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15398" class="LineNr">15398 </span> 5d/pop-to-ebp -<span id="L15399" class="LineNr">15399 </span> c3/return -<span id="L15400" class="LineNr">15400 </span> -<span id="L15401" class="LineNr">15401 </span><span class="subxTest">test-convert-int-to-int</span>: -<span id="L15402" class="LineNr">15402 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15403" class="LineNr">15403 </span> 55/push-ebp -<span id="L15404" class="LineNr">15404 </span> 89/<- %ebp 4/r32/esp -<span id="L15405" class="LineNr">15405 </span> <span class="subxComment"># setup</span> -<span id="L15406" class="LineNr">15406 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15407" class="LineNr">15407 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15408" class="LineNr">15408 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15409" class="LineNr">15409 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15410" class="LineNr">15410 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15411" class="LineNr">15411 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15412" class="LineNr">15412 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15413" class="LineNr">15413 </span> 68/push 0/imm32 -<span id="L15414" class="LineNr">15414 </span> 68/push 0/imm32 -<span id="L15415" class="LineNr">15415 </span> 89/<- %edx 4/r32/esp -<span id="L15416" class="LineNr">15416 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15417" class="LineNr">15417 </span> <span class="subxComment">#</span> -<span id="L15418" class="LineNr">15418 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15419" class="LineNr">15419 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) -<span id="L15420" class="LineNr">15420 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- convert x\n"</span>) -<span id="L15421" class="LineNr">15421 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15422" class="LineNr">15422 </span> <span class="subxComment"># convert</span> -<span id="L15423" class="LineNr">15423 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15424" class="LineNr">15424 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15425" class="LineNr">15425 </span> <span class="subxComment"># restore ed</span> -<span id="L15426" class="LineNr">15426 </span> 89/<- %edx 4/r32/esp -<span id="L15427" class="LineNr">15427 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15428" class="LineNr">15428 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15429" class="Folded">15429 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15435" class="LineNr">15435 </span> <span class="subxComment"># check output</span> -<span id="L15436" class="LineNr">15436 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15401'>test-convert-int-to-int</a>: output should be empty"</span>) -<span id="L15437" class="LineNr">15437 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert int to int"</span> <span class="Constant">"F - <a href='mu.subx.html#L15401'>test-convert-int-to-int</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15438" class="LineNr">15438 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15439" class="LineNr">15439 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15401'>test-convert-int-to-int</a>: exit status"</span>) -<span id="L15440" class="LineNr">15440 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15441" class="LineNr">15441 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15442" class="LineNr">15442 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15443" class="LineNr">15443 </span> 5d/pop-to-ebp -<span id="L15444" class="LineNr">15444 </span> c3/return -<span id="L15445" class="LineNr">15445 </span> -<span id="L15446" class="LineNr">15446 </span><span class="subxTest">test-convert-float-to-float</span>: -<span id="L15447" class="LineNr">15447 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15448" class="LineNr">15448 </span> 55/push-ebp -<span id="L15449" class="LineNr">15449 </span> 89/<- %ebp 4/r32/esp -<span id="L15450" class="LineNr">15450 </span> <span class="subxComment"># setup</span> -<span id="L15451" class="LineNr">15451 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L15452" class="LineNr">15452 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L15453" class="LineNr">15453 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L15454" class="LineNr">15454 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L15455" class="LineNr">15455 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>) -<span id="L15456" class="LineNr">15456 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) -<span id="L15457" class="LineNr">15457 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> -<span id="L15458" class="LineNr">15458 </span> 68/push 0/imm32 -<span id="L15459" class="LineNr">15459 </span> 68/push 0/imm32 -<span id="L15460" class="LineNr">15460 </span> 89/<- %edx 4/r32/esp -<span id="L15461" class="LineNr">15461 </span> (<a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) -<span id="L15462" class="LineNr">15462 </span> <span class="subxComment">#</span> -<span id="L15463" class="LineNr">15463 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) -<span id="L15464" class="LineNr">15464 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) -<span id="L15465" class="LineNr">15465 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm6: float <- convert x\n"</span>) -<span id="L15466" class="LineNr">15466 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) -<span id="L15467" class="LineNr">15467 </span> <span class="subxComment"># convert</span> -<span id="L15468" class="LineNr">15468 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a> %edx) -<span id="L15469" class="LineNr">15469 </span> <span class="subxComment"># registers except esp clobbered at this point</span> -<span id="L15470" class="LineNr">15470 </span> <span class="subxComment"># restore ed</span> -<span id="L15471" class="LineNr">15471 </span> 89/<- %edx 4/r32/esp -<span id="L15472" class="LineNr">15472 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L15473" class="LineNr">15473 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>) -<span id="L15474" class="Folded">15474 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15480" class="LineNr">15480 </span> <span class="subxComment"># check output</span> -<span id="L15481" class="LineNr">15481 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15446'>test-convert-float-to-float</a>: output should be empty"</span>) -<span id="L15482" class="LineNr">15482 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L436'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert float to float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15446'>test-convert-float-to-float</a>: <a href='../114error.subx.html#L9'>error</a> message"</span>) -<span id="L15483" class="LineNr">15483 </span> <span class="subxComment"># check that stop(1) was called</span> -<span id="L15484" class="LineNr">15484 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15446'>test-convert-float-to-float</a>: exit status"</span>) -<span id="L15485" class="LineNr">15485 </span> <span class="subxComment"># don't restore from ebp</span> -<span id="L15486" class="LineNr">15486 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15487" class="LineNr">15487 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15488" class="LineNr">15488 </span> 5d/pop-to-ebp -<span id="L15489" class="LineNr">15489 </span> c3/return -<span id="L15490" class="LineNr">15490 </span> -<span id="L15491" class="LineNr">15491 </span><span class="subxComment">#######################################################</span> -<span id="L15492" class="LineNr">15492 </span><span class="subxComment"># Parsing</span> -<span id="L15493" class="LineNr">15493 </span><span class="subxComment">#######################################################</span> -<span id="L15494" class="LineNr">15494 </span> -<span id="L15495" class="LineNr">15495 </span>== data -<span id="L15496" class="LineNr">15496 </span> -<span id="L15497" class="LineNr">15497 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> -<span id="L15498" class="LineNr">15498 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> -<span id="L15499" class="LineNr">15499 </span> 1/imm32 -<span id="L15500" class="LineNr">15500 </span> -<span id="L15501" class="LineNr">15501 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> -<span id="L15502" class="LineNr">15502 </span> 1/imm32 -<span id="L15503" class="LineNr">15503 </span> -<span id="L15504" class="LineNr">15504 </span>== code -<span id="L15505" class="LineNr">15505 </span> -<span id="L15506" class="LineNr">15506 </span><span class="subxFunction">parse-mu</span>: <span class="subxComment"># in: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L15507" class="LineNr">15507 </span> <span class="subxComment"># pseudocode</span> -<span id="L15508" class="LineNr">15508 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> -<span id="L15509" class="LineNr">15509 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> -<span id="L15510" class="LineNr">15510 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> -<span id="L15511" class="LineNr">15511 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L15512" class="LineNr">15512 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L15513" class="LineNr">15513 </span> <span class="subxComment"># while true # line loop</span> -<span id="L15514" class="LineNr">15514 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L15515" class="LineNr">15515 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L15516" class="LineNr">15516 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L15517" class="LineNr">15517 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L15518" class="LineNr">15518 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L15519" class="LineNr">15519 </span> <span class="subxComment"># continue</span> -<span id="L15520" class="LineNr">15520 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L15521" class="LineNr">15521 </span> <span class="subxComment"># continue # end of line</span> -<span id="L15522" class="LineNr">15522 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> -<span id="L15523" class="LineNr">15523 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L15524" class="LineNr">15524 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> -<span id="L15525" class="LineNr">15525 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> -<span id="L15526" class="LineNr">15526 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> -<span id="L15527" class="LineNr">15527 </span> <span class="subxComment"># assert(vars->top == 0)</span> -<span id="L15528" class="LineNr">15528 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L15529" class="LineNr">15529 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L15530" class="LineNr">15530 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> -<span id="L15531" class="LineNr">15531 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> -<span id="L15532" class="LineNr">15532 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> -<span id="L15533" class="LineNr">15533 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L15534" class="LineNr">15534 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L15535" class="LineNr">15535 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> -<span id="L15536" class="LineNr">15536 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L15537" class="LineNr">15537 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> -<span id="L15538" class="LineNr">15538 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> -<span id="L15539" class="LineNr">15539 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> -<span id="L15540" class="LineNr">15540 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> -<span id="L15541" class="LineNr">15541 </span> <span class="subxComment"># else</span> -<span id="L15542" class="LineNr">15542 </span> <span class="subxComment"># abort()</span> -<span id="L15543" class="LineNr">15543 </span> <span class="subxComment">#</span> -<span id="L15544" class="LineNr">15544 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15545" class="LineNr">15545 </span> 55/push-ebp -<span id="L15546" class="LineNr">15546 </span> 89/<- %ebp 4/r32/esp -<span id="L15547" class="LineNr">15547 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> -<span id="L15548" class="LineNr">15548 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 -<span id="L15549" class="LineNr">15549 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15550" class="LineNr">15550 </span> 50/push-eax -<span id="L15551" class="LineNr">15551 </span> 51/push-ecx -<span id="L15552" class="LineNr">15552 </span> 52/push-edx -<span id="L15553" class="LineNr">15553 </span> 53/push-ebx -<span id="L15554" class="LineNr">15554 </span> 56/push-esi -<span id="L15555" class="LineNr">15555 </span> 57/push-edi -<span id="L15556" class="LineNr">15556 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L15557" class="LineNr">15557 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L15558" class="LineNr">15558 </span> 68/push 0x200/imm32/size -<span id="L15559" class="LineNr">15559 </span> 68/push 0/imm32/read -<span id="L15560" class="LineNr">15560 </span> 68/push 0/imm32/write -<span id="L15561" class="LineNr">15561 </span> 89/<- %ecx 4/r32/esp -<span id="L15562" class="LineNr">15562 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L15563" class="LineNr">15563 </span> 68/push 0/imm32/end -<span id="L15564" class="LineNr">15564 </span> 68/push 0/imm32/start -<span id="L15565" class="LineNr">15565 </span> 89/<- %edx 4/r32/esp -<span id="L15566" class="LineNr">15566 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> -<span id="L15567" class="LineNr">15567 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 -<span id="L15568" class="LineNr">15568 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> -<span id="L15569" class="LineNr">15569 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L15570" class="LineNr">15570 </span> 68/push 0xc00/imm32/size -<span id="L15571" class="LineNr">15571 </span> 68/push 0/imm32/top -<span id="L15572" class="LineNr">15572 </span> 89/<- %ebx 4/r32/esp -<span id="L15573" class="LineNr">15573 </span> { -<span id="L15574" class="LineNr">15574 </span><span class="Constant">$parse-mu:line-loop</span>: -<span id="L15575" class="LineNr">15575 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L15576" class="LineNr">15576 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L15577" class="LineNr">15577 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L15578" class="LineNr">15578 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L15579" class="LineNr">15579 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15580" class="Folded">15580 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L15586" class="LineNr">15586 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> %ecx %edx) -<span id="L15587" class="LineNr">15587 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L15588" class="LineNr">15588 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L15589" class="LineNr">15589 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15590" class="LineNr">15590 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L15591" class="LineNr">15591 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> -<span id="L15592" class="LineNr">15592 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L15593" class="LineNr">15593 </span> 8b/-> *edx 0/r32/eax -<span id="L15594" class="LineNr">15594 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L15595" class="LineNr">15595 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L15596" class="LineNr">15596 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L15597" class="LineNr">15597 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L15598" class="LineNr">15598 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L15599" class="LineNr">15599 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> -<span id="L15600" class="LineNr">15600 </span> { -<span id="L15601" class="LineNr">15601 </span><span class="Constant">$parse-mu:fn</span>: -<span id="L15602" class="LineNr">15602 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> -<span id="L15603" class="LineNr">15603 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15604" class="LineNr">15604 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15605" class="LineNr">15605 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L15606" class="LineNr">15606 </span> 68/push 0/imm32 -<span id="L15607" class="LineNr">15607 </span> 68/push 0/imm32 -<span id="L15608" class="LineNr">15608 </span> 89/<- %esi 4/r32/esp -<span id="L15609" class="LineNr">15609 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L15610" class="LineNr">15610 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> %esi) -<span id="L15611" class="LineNr">15611 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L15612" class="LineNr">15612 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15613" class="LineNr">15613 </span> <span class="subxComment"># initialize vars</span> -<span id="L15614" class="LineNr">15614 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ebx) -<span id="L15615" class="LineNr">15615 </span> <span class="subxComment">#</span> -<span id="L15616" class="LineNr">15616 </span> (<a href='mu.subx.html#L15755'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L15617" class="LineNr">15617 </span> (<a href='mu.subx.html#L17872'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) -<span id="L15618" class="LineNr">15618 </span> <span class="subxComment"># *curr-function = new-function</span> -<span id="L15619" class="LineNr">15619 </span> 8b/-> *esi 0/r32/eax -<span id="L15620" class="LineNr">15620 </span> 89/<- *edi 0/r32/eax -<span id="L15621" class="LineNr">15621 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L15622" class="LineNr">15622 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L15623" class="LineNr">15623 </span> <span class="subxComment"># curr-function = &new-function->next</span> -<span id="L15624" class="LineNr">15624 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L15625" class="LineNr">15625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15626" class="LineNr">15626 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L15627" class="LineNr">15627 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L15628" class="LineNr">15628 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L15629" class="LineNr">15629 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15630" class="LineNr">15630 </span> <span class="subxComment">#</span> -<span id="L15631" class="LineNr">15631 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15632" class="LineNr">15632 </span> } -<span id="L15633" class="LineNr">15633 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> -<span id="L15634" class="LineNr">15634 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> -<span id="L15635" class="LineNr">15635 </span> { -<span id="L15636" class="LineNr">15636 </span><span class="Constant">$parse-mu:sig</span>: -<span id="L15637" class="LineNr">15637 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> -<span id="L15638" class="LineNr">15638 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15639" class="LineNr">15639 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15640" class="LineNr">15640 </span> <span class="subxComment"># edi = curr-function</span> -<span id="L15641" class="LineNr">15641 </span> 57/push-edi -<span id="L15642" class="LineNr">15642 </span> 8b/-> *(ebp-4) 7/r32/edi -<span id="L15643" class="LineNr">15643 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> -<span id="L15644" class="LineNr">15644 </span> 68/push 0/imm32 -<span id="L15645" class="LineNr">15645 </span> 68/push 0/imm32 -<span id="L15646" class="LineNr">15646 </span> 89/<- %esi 4/r32/esp -<span id="L15647" class="LineNr">15647 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> -<span id="L15648" class="LineNr">15648 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> %esi) -<span id="L15649" class="LineNr">15649 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> -<span id="L15650" class="LineNr">15650 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15651" class="LineNr">15651 </span> <span class="subxComment">#</span> -<span id="L15652" class="LineNr">15652 </span> (<a href='mu.subx.html#L16075'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L15653" class="LineNr">15653 </span> <span class="subxComment"># *curr-signature = new-function</span> -<span id="L15654" class="LineNr">15654 </span> 8b/-> *esi 0/r32/eax -<span id="L15655" class="LineNr">15655 </span> 89/<- *edi 0/r32/eax -<span id="L15656" class="LineNr">15656 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L15657" class="LineNr">15657 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L15658" class="LineNr">15658 </span> <span class="subxComment"># curr-signature = &new-function->next</span> -<span id="L15659" class="LineNr">15659 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> -<span id="L15660" class="LineNr">15660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L15661" class="LineNr">15661 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> -<span id="L15662" class="LineNr">15662 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> -<span id="L15663" class="LineNr">15663 </span> <span class="subxComment"># reclaim new-function</span> -<span id="L15664" class="LineNr">15664 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15665" class="LineNr">15665 </span> <span class="subxComment"># save curr-function</span> -<span id="L15666" class="LineNr">15666 </span> 89/<- *(ebp-4) 7/r32/edi -<span id="L15667" class="LineNr">15667 </span> <span class="subxComment"># restore edi</span> -<span id="L15668" class="LineNr">15668 </span> 5f/pop-to-edi -<span id="L15669" class="LineNr">15669 </span> <span class="subxComment">#</span> -<span id="L15670" class="LineNr">15670 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15671" class="LineNr">15671 </span> } -<span id="L15672" class="LineNr">15672 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> -<span id="L15673" class="LineNr">15673 </span> { -<span id="L15674" class="LineNr">15674 </span><span class="Constant">$parse-mu:type</span>: -<span id="L15675" class="LineNr">15675 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> -<span id="L15676" class="LineNr">15676 </span> 3d/compare-eax-and 0/imm32 -<span id="L15677" class="LineNr">15677 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L15678" class="LineNr">15678 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> %ecx %edx) -<span id="L15679" class="LineNr">15679 </span> <span class="subxComment"># var type-id/eax: int</span> -<span id="L15680" class="LineNr">15680 </span> (<a href='mu.subx.html#L17260'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> %edx) <span class="subxComment"># => eax</span> -<span id="L15681" class="LineNr">15681 </span> <span class="subxComment"># spill</span> -<span id="L15682" class="LineNr">15682 </span> 51/push-ecx -<span id="L15683" class="LineNr">15683 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> -<span id="L15684" class="LineNr">15684 </span> 68/push 0/imm32 -<span id="L15685" class="LineNr">15685 </span> 68/push 0/imm32 -<span id="L15686" class="LineNr">15686 </span> 89/<- %ecx 4/r32/esp -<span id="L15687" class="LineNr">15687 </span> (<a href='mu.subx.html#L20046'>find-or-create-typeinfo</a> %eax %ecx) -<span id="L15688" class="LineNr">15688 </span> <span class="subxComment">#</span> -<span id="L15689" class="LineNr">15689 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L15690" class="LineNr">15690 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> -<span id="L15691" class="LineNr">15691 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> -<span id="L15692" class="LineNr">15692 </span> (<a href='mu.subx.html#L20280'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L15693" class="LineNr">15693 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> -<span id="L15694" class="LineNr">15694 </span> <span class="subxComment"># reclaim new-type</span> -<span id="L15695" class="LineNr">15695 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15696" class="LineNr">15696 </span> <span class="subxComment"># restore</span> -<span id="L15697" class="LineNr">15697 </span> 59/pop-to-ecx -<span id="L15698" class="LineNr">15698 </span> e9/jump $parse-mu:line-loop/disp32 -<span id="L15699" class="LineNr">15699 </span> } -<span id="L15700" class="LineNr">15700 </span> <span class="subxComment"># otherwise abort</span> -<span id="L15701" class="LineNr">15701 </span> e9/jump $parse-mu:error1/disp32 -<span id="L15702" class="LineNr">15702 </span> } <span class="subxComment"># end line loop</span> -<span id="L15703" class="LineNr">15703 </span><span class="Constant">$parse-mu:end</span>: -<span id="L15704" class="LineNr">15704 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15705" class="LineNr">15705 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> -<span id="L15706" class="LineNr">15706 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> -<span id="L15707" class="LineNr">15707 </span> 81 0/subop/add %esp 8/imm32 -<span id="L15708" class="LineNr">15708 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15709" class="LineNr">15709 </span> 5f/pop-to-edi -<span id="L15710" class="LineNr">15710 </span> 5e/pop-to-esi -<span id="L15711" class="LineNr">15711 </span> 5b/pop-to-ebx -<span id="L15712" class="LineNr">15712 </span> 5a/pop-to-edx -<span id="L15713" class="LineNr">15713 </span> 59/pop-to-ecx -<span id="L15714" class="LineNr">15714 </span> 58/pop-to-eax -<span id="L15715" class="LineNr">15715 </span> <span class="subxS1Comment"># . reclaim local</span> -<span id="L15716" class="LineNr">15716 </span> 81 0/subop/add %esp 4/imm32 -<span id="L15717" class="LineNr">15717 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15718" class="LineNr">15718 </span> 89/<- %esp 5/r32/ebp -<span id="L15719" class="LineNr">15719 </span> 5d/pop-to-ebp -<span id="L15720" class="LineNr">15720 </span> c3/return -<span id="L15721" class="LineNr">15721 </span> -<span id="L15722" class="LineNr">15722 </span><span class="Constant">$parse-mu:error1</span>: -<span id="L15723" class="LineNr">15723 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> -<span id="L15724" class="LineNr">15724 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) -<span id="L15725" class="LineNr">15725 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) -<span id="L15726" class="LineNr">15726 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) -<span id="L15727" class="LineNr">15727 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L15728" class="LineNr">15728 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L15729" class="LineNr">15729 </span> <span class="subxComment"># never gets here</span> -<span id="L15730" class="LineNr">15730 </span> -<span id="L15731" class="LineNr">15731 </span><span class="Constant">$parse-mu:error2</span>: -<span id="L15732" class="LineNr">15732 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> -<span id="L15733" class="LineNr">15733 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) -<span id="L15734" class="LineNr">15734 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) -<span id="L15735" class="LineNr">15735 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> -<span id="L15736" class="LineNr">15736 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) -<span id="L15737" class="LineNr">15737 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L15738" class="LineNr">15738 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L15739" class="LineNr">15739 </span> <span class="subxComment"># never gets here</span> -<span id="L15740" class="LineNr">15740 </span> -<span id="L15741" class="LineNr">15741 </span><span class="subxComment"># scenarios considered:</span> -<span id="L15742" class="LineNr">15742 </span><span class="subxComment"># ✗ fn foo # no block</span> -<span id="L15743" class="LineNr">15743 </span><span class="subxComment"># ✓ fn foo {</span> -<span id="L15744" class="LineNr">15744 </span><span class="subxComment"># ✗ fn foo { {</span> -<span id="L15745" class="LineNr">15745 </span><span class="subxComment"># ✗ fn foo { }</span> -<span id="L15746" class="LineNr">15746 </span><span class="subxComment"># ✗ fn foo { } {</span> -<span id="L15747" class="LineNr">15747 </span><span class="subxComment"># ✗ fn foo x {</span> -<span id="L15748" class="LineNr">15748 </span><span class="subxComment"># ✗ fn foo x: {</span> -<span id="L15749" class="LineNr">15749 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L15750" class="LineNr">15750 </span><span class="subxComment"># ✓ fn foo x: int {</span> -<span id="L15751" class="LineNr">15751 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> -<span id="L15752" class="LineNr">15752 </span><span class="subxComment"># TODO:</span> -<span id="L15753" class="LineNr">15753 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L15754" class="LineNr">15754 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L15755" class="LineNr">15755 </span><span class="subxFunction">populate-mu-function-header</span>: <span class="subxComment"># first-line: (addr stream byte), out: (addr function), vars: (addr stack live-var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L15756" class="LineNr">15756 </span> <span class="subxComment"># pseudocode:</span> -<span id="L15757" class="LineNr">15757 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L15758" class="LineNr">15758 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L15759" class="LineNr">15759 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15760" class="LineNr">15760 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L15761" class="LineNr">15761 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L15762" class="LineNr">15762 </span> <span class="subxComment"># ## inouts</span> -<span id="L15763" class="LineNr">15763 </span> <span class="subxComment"># while true</span> -<span id="L15764" class="LineNr">15764 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L15765" class="LineNr">15765 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15766" class="LineNr">15766 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L15767" class="LineNr">15767 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L15768" class="LineNr">15768 </span> <span class="subxComment"># assert(word-slice != '}')</span> -<span id="L15769" class="LineNr">15769 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L15770" class="LineNr">15770 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L15771" class="LineNr">15771 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L15772" class="LineNr">15772 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L15773" class="LineNr">15773 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L15774" class="LineNr">15774 </span> <span class="subxComment"># ## outputs</span> -<span id="L15775" class="LineNr">15775 </span> <span class="subxComment"># while true</span> -<span id="L15776" class="LineNr">15776 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L15777" class="LineNr">15777 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15778" class="LineNr">15778 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L15779" class="LineNr">15779 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> -<span id="L15780" class="LineNr">15780 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L15781" class="LineNr">15781 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L15782" class="LineNr">15782 </span> <span class="subxComment"># assert(v->name == "_")</span> -<span id="L15783" class="LineNr">15783 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L15784" class="LineNr">15784 </span> <span class="subxComment"># done:</span> -<span id="L15785" class="LineNr">15785 </span> <span class="subxComment">#</span> -<span id="L15786" class="LineNr">15786 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15787" class="LineNr">15787 </span> 55/push-ebp -<span id="L15788" class="LineNr">15788 </span> 89/<- %ebp 4/r32/esp -<span id="L15789" class="LineNr">15789 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L15790" class="LineNr">15790 </span> 50/push-eax -<span id="L15791" class="LineNr">15791 </span> 51/push-ecx -<span id="L15792" class="LineNr">15792 </span> 52/push-edx -<span id="L15793" class="LineNr">15793 </span> 53/push-ebx -<span id="L15794" class="LineNr">15794 </span> 57/push-edi -<span id="L15795" class="LineNr">15795 </span> <span class="subxComment"># edi = out</span> -<span id="L15796" class="LineNr">15796 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L15797" class="LineNr">15797 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L15798" class="LineNr">15798 </span> 68/push 0/imm32/end -<span id="L15799" class="LineNr">15799 </span> 68/push 0/imm32/start -<span id="L15800" class="LineNr">15800 </span> 89/<- %ecx 4/r32/esp -<span id="L15801" class="LineNr">15801 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L15802" class="LineNr">15802 </span> 68/push 0/imm32 -<span id="L15803" class="LineNr">15803 </span> 68/push 0/imm32 -<span id="L15804" class="LineNr">15804 </span> 89/<- %ebx 4/r32/esp -<span id="L15805" class="LineNr">15805 </span> <span class="subxComment"># read function name</span> -<span id="L15806" class="LineNr">15806 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L15807" class="LineNr">15807 </span> <span class="subxComment"># error checking</span> -<span id="L15808" class="LineNr">15808 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15809" class="LineNr">15809 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15810" class="LineNr">15810 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15811" class="LineNr">15811 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15812" class="LineNr">15812 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L15813" class="LineNr">15813 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L15814" class="LineNr">15814 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15815" class="LineNr">15815 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15816" class="LineNr">15816 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L15817" class="LineNr">15817 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L15818" class="LineNr">15818 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15819" class="LineNr">15819 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15820" class="LineNr">15820 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L15821" class="LineNr">15821 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L15822" class="LineNr">15822 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15823" class="LineNr">15823 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15824" class="LineNr">15824 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L15825" class="LineNr">15825 </span> (<a href='mu.subx.html#L16427'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15826" class="LineNr">15826 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15827" class="LineNr">15827 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 -<span id="L15828" class="LineNr">15828 </span> <span class="subxComment">#</span> -<span id="L15829" class="LineNr">15829 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L15830" class="LineNr">15830 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15831" class="LineNr">15831 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-break/disp32 -<span id="L15832" class="LineNr">15832 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L15833" class="LineNr">15833 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15834" class="LineNr">15834 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 -<span id="L15835" class="LineNr">15835 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> -<span id="L15836" class="LineNr">15836 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15837" class="LineNr">15837 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 -<span id="L15838" class="LineNr">15838 </span> <span class="subxComment"># save function name</span> -<span id="L15839" class="LineNr">15839 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx %edi) <span class="subxComment"># Function-name</span> -<span id="L15840" class="LineNr">15840 </span> <span class="subxComment"># save function inouts</span> -<span id="L15841" class="LineNr">15841 </span> { -<span id="L15842" class="LineNr">15842 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: -<span id="L15843" class="LineNr">15843 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L15844" class="LineNr">15844 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15845" class="LineNr">15845 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15846" class="LineNr">15846 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15847" class="LineNr">15847 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15848" class="LineNr">15848 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> -<span id="L15849" class="LineNr">15849 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L15850" class="LineNr">15850 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15851" class="LineNr">15851 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 -<span id="L15852" class="LineNr">15852 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L15853" class="LineNr">15853 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L15854" class="LineNr">15854 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15855" class="LineNr">15855 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15856" class="LineNr">15856 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L15857" class="LineNr">15857 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L15858" class="LineNr">15858 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15859" class="LineNr">15859 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15860" class="LineNr">15860 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L15861" class="LineNr">15861 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15862" class="LineNr">15862 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L15863" class="LineNr">15863 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L15864" class="LineNr">15864 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L15865" class="LineNr">15865 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L15866" class="LineNr">15866 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L15867" class="LineNr">15867 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 -<span id="L15868" class="LineNr">15868 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L15869" class="LineNr">15869 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L15870" class="LineNr">15870 </span> { -<span id="L15871" class="LineNr">15871 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15872" class="LineNr">15872 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L15873" class="LineNr">15873 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15874" class="LineNr">15874 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L15875" class="LineNr">15875 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L15876" class="LineNr">15876 </span> (<a href='mu.subx.html#L16373'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L15877" class="LineNr">15877 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15878" class="LineNr">15878 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 -<span id="L15879" class="LineNr">15879 </span> } -<span id="L15880" class="LineNr">15880 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L15881" class="LineNr">15881 </span> <span class="subxComment">#</span> -<span id="L15882" class="LineNr">15882 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L15883" class="LineNr">15883 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L15884" class="LineNr">15884 </span> (<a href='mu.subx.html#L19815'>append-list</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+8) *(edi+0xc) %eax) <span class="subxComment"># Function-inouts, Function-inouts</span> -<span id="L15885" class="LineNr">15885 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L15886" class="LineNr">15886 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) -<span id="L15887" class="LineNr">15887 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) -<span id="L15888" class="LineNr">15888 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L15889" class="LineNr">15889 </span> <span class="subxComment">#</span> -<span id="L15890" class="LineNr">15890 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L15891" class="LineNr">15891 </span> } -<span id="L15892" class="LineNr">15892 </span> <span class="subxComment"># save function outputs</span> -<span id="L15893" class="LineNr">15893 </span> { -<span id="L15894" class="LineNr">15894 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: -<span id="L15895" class="LineNr">15895 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L15896" class="LineNr">15896 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> -<span id="L15897" class="LineNr">15897 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L15898" class="LineNr">15898 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15899" class="LineNr">15899 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15900" class="LineNr">15900 </span> <span class="subxComment"># if (word-slice == '{') break</span> -<span id="L15901" class="LineNr">15901 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L15902" class="LineNr">15902 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15903" class="LineNr">15903 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L15904" class="LineNr">15904 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L15905" class="LineNr">15905 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L15906" class="LineNr">15906 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15907" class="LineNr">15907 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15908" class="LineNr">15908 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L15909" class="LineNr">15909 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L15910" class="LineNr">15910 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15911" class="LineNr">15911 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 -<span id="L15912" class="LineNr">15912 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L15913" class="LineNr">15913 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15914" class="LineNr">15914 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L15915" class="LineNr">15915 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L15916" class="LineNr">15916 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L15917" class="LineNr">15917 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L15918" class="LineNr">15918 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L15919" class="LineNr">15919 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 -<span id="L15920" class="LineNr">15920 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L15921" class="LineNr">15921 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15922" class="LineNr">15922 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L15923" class="LineNr">15923 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15924" class="LineNr">15924 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 -<span id="L15925" class="LineNr">15925 </span> <span class="subxComment"># if v->type is an addr, abort</span> -<span id="L15926" class="LineNr">15926 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L15927" class="LineNr">15927 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L15928" class="LineNr">15928 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L15929" class="LineNr">15929 </span> 3d/compare-eax-and 0/imm32/false -<span id="L15930" class="LineNr">15930 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 -<span id="L15931" class="LineNr">15931 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L15932" class="LineNr">15932 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L15933" class="LineNr">15933 </span> (<a href='mu.subx.html#L19815'>append-list</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x10) *(edi+0x14) %eax) <span class="subxComment"># Function-outputs, Function-outputs</span> -<span id="L15934" class="LineNr">15934 </span> <span class="subxComment">#</span> -<span id="L15935" class="LineNr">15935 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L15936" class="LineNr">15936 </span> } -<span id="L15937" class="LineNr">15937 </span><span class="Constant">$populate-mu-function-header:done</span>: -<span id="L15938" class="LineNr">15938 </span> (<a href='mu.subx.html#L18184'>check-no-tokens-left</a> *(ebp+8)) -<span id="L15939" class="LineNr">15939 </span><span class="Constant">$populate-mu-function-header:end</span>: -<span id="L15940" class="LineNr">15940 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L15941" class="LineNr">15941 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L15942" class="LineNr">15942 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L15943" class="LineNr">15943 </span> 5f/pop-to-edi -<span id="L15944" class="LineNr">15944 </span> 5b/pop-to-ebx -<span id="L15945" class="LineNr">15945 </span> 5a/pop-to-edx -<span id="L15946" class="LineNr">15946 </span> 59/pop-to-ecx -<span id="L15947" class="LineNr">15947 </span> 58/pop-to-eax -<span id="L15948" class="LineNr">15948 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L15949" class="LineNr">15949 </span> 89/<- %esp 5/r32/ebp -<span id="L15950" class="LineNr">15950 </span> 5d/pop-to-ebp -<span id="L15951" class="LineNr">15951 </span> c3/return -<span id="L15952" class="LineNr">15952 </span> -<span id="L15953" class="LineNr">15953 </span><span class="Constant">$populate-mu-function-header:error1</span>: -<span id="L15954" class="LineNr">15954 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> -<span id="L15955" class="LineNr">15955 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"function header not in form 'fn <name> [inouts] [-> outputs] {' -- '"</span>) -<span id="L15956" class="LineNr">15956 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L15957" class="LineNr">15957 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L15958" class="LineNr">15958 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L15959" class="LineNr">15959 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L15960" class="LineNr">15960 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L15961" class="LineNr">15961 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L15962" class="LineNr">15962 </span> <span class="subxComment"># never gets here</span> -<span id="L15963" class="LineNr">15963 </span> -<span id="L15964" class="LineNr">15964 </span><span class="Constant">$populate-mu-function-header:error2</span>: -<span id="L15965" class="LineNr">15965 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L15966" class="LineNr">15966 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L15967" class="LineNr">15967 </span> 50/push-eax -<span id="L15968" class="LineNr">15968 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15969" class="LineNr">15969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L15970" class="LineNr">15970 </span> 58/pop-to-eax -<span id="L15971" class="LineNr">15971 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) -<span id="L15972" class="LineNr">15972 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15973" class="LineNr">15973 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L15974" class="LineNr">15974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) -<span id="L15975" class="LineNr">15975 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L15976" class="LineNr">15976 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L15977" class="LineNr">15977 </span> <span class="subxComment"># never gets here</span> -<span id="L15978" class="LineNr">15978 </span> -<span id="L15979" class="LineNr">15979 </span><span class="Constant">$populate-mu-function-header:error3</span>: -<span id="L15980" class="LineNr">15980 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L15981" class="LineNr">15981 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L15982" class="LineNr">15982 </span> 50/push-eax -<span id="L15983" class="LineNr">15983 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L15984" class="LineNr">15984 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L15985" class="LineNr">15985 </span> 58/pop-to-eax -<span id="L15986" class="LineNr">15986 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) -<span id="L15987" class="LineNr">15987 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L15988" class="LineNr">15988 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L15989" class="LineNr">15989 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L15990" class="LineNr">15990 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' must be in a register, in instruction '"</span>) -<span id="L15991" class="LineNr">15991 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L15992" class="LineNr">15992 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) -<span id="L15993" class="LineNr">15993 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L15994" class="LineNr">15994 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L15995" class="LineNr">15995 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L15996" class="LineNr">15996 </span> <span class="subxComment"># never gets here</span> -<span id="L15997" class="LineNr">15997 </span> -<span id="L15998" class="LineNr">15998 </span><span class="Constant">$populate-mu-function-header:error4</span>: -<span id="L15999" class="LineNr">15999 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L16000" class="LineNr">16000 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16001" class="LineNr">16001 </span> 50/push-eax -<span id="L16002" class="LineNr">16002 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16003" class="LineNr">16003 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16004" class="LineNr">16004 </span> 58/pop-to-eax -<span id="L16005" class="LineNr">16005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function outputs cannot be named; rename '"</span>) -<span id="L16006" class="LineNr">16006 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16007" class="LineNr">16007 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16008" class="LineNr">16008 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16009" class="LineNr">16009 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L16010" class="LineNr">16010 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16011" class="LineNr">16011 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16012" class="LineNr">16012 </span> <span class="subxComment"># never gets here</span> -<span id="L16013" class="LineNr">16013 </span> -<span id="L16014" class="LineNr">16014 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: -<span id="L16015" class="LineNr">16015 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16016" class="LineNr">16016 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L16017" class="LineNr">16017 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) -<span id="L16018" class="LineNr">16018 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16019" class="LineNr">16019 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16020" class="LineNr">16020 </span> <span class="subxComment"># never gets here</span> -<span id="L16021" class="LineNr">16021 </span> -<span id="L16022" class="LineNr">16022 </span><span class="Constant">$populate-mu-function-header:error-break</span>: -<span id="L16023" class="LineNr">16023 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"Sorry, I've reserved all function names starting with 'break' for now. Please contact mu@akkartik.com.\n"</span>) -<span id="L16024" class="LineNr">16024 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16025" class="LineNr">16025 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16026" class="LineNr">16026 </span> <span class="subxComment"># never gets here</span> -<span id="L16027" class="LineNr">16027 </span> -<span id="L16028" class="LineNr">16028 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: -<span id="L16029" class="LineNr">16029 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"Sorry, I've reserved all function names starting with 'loop' for now. Please contact mu@akkartik.com.\n"</span>) -<span id="L16030" class="LineNr">16030 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16031" class="LineNr">16031 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16032" class="LineNr">16032 </span> <span class="subxComment"># never gets here</span> -<span id="L16033" class="LineNr">16033 </span> -<span id="L16034" class="LineNr">16034 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: -<span id="L16035" class="LineNr">16035 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"cannot define a function called 'lookup'\n"</span>) -<span id="L16036" class="LineNr">16036 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16037" class="LineNr">16037 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16038" class="LineNr">16038 </span> <span class="subxComment"># never gets here</span> -<span id="L16039" class="LineNr">16039 </span> -<span id="L16040" class="LineNr">16040 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: -<span id="L16041" class="LineNr">16041 </span> <span class="subxComment"># error("fn " fn ": output cannot have an addr type; that could allow unsafe addresses to escape the function")</span> -<span id="L16042" class="LineNr">16042 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16043" class="LineNr">16043 </span> 50/push-eax -<span id="L16044" class="LineNr">16044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16045" class="LineNr">16045 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16046" class="LineNr">16046 </span> 58/pop-to-eax -<span id="L16047" class="LineNr">16047 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output cannot have an addr type; that could allow unsafe addresses to escape the function\n"</span>) -<span id="L16048" class="LineNr">16048 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16049" class="LineNr">16049 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16050" class="LineNr">16050 </span> <span class="subxComment"># never gets here</span> -<span id="L16051" class="LineNr">16051 </span> -<span id="L16052" class="LineNr">16052 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: -<span id="L16053" class="LineNr">16053 </span> <span class="subxComment"># error("fn " fn ": inout '" var "' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function")</span> -<span id="L16054" class="LineNr">16054 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L16055" class="LineNr">16055 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16056" class="LineNr">16056 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16057" class="LineNr">16057 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) -<span id="L16058" class="LineNr">16058 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16059" class="LineNr">16059 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16060" class="LineNr">16060 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L16061" class="LineNr">16061 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function\n"</span>) -<span id="L16062" class="LineNr">16062 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L16063" class="LineNr">16063 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L16064" class="LineNr">16064 </span> <span class="subxComment"># never gets here</span> -<span id="L16065" class="LineNr">16065 </span> -<span id="L16066" class="LineNr">16066 </span><span class="subxComment"># scenarios considered:</span> -<span id="L16067" class="LineNr">16067 </span><span class="subxComment"># ✓ fn foo</span> -<span id="L16068" class="LineNr">16068 </span><span class="subxComment"># ✗ fn foo {</span> -<span id="L16069" class="LineNr">16069 </span><span class="subxComment"># ✓ fn foo x</span> -<span id="L16070" class="LineNr">16070 </span><span class="subxComment"># ✓ fn foo x: int</span> -<span id="L16071" class="LineNr">16071 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> -<span id="L16072" class="LineNr">16072 </span><span class="subxComment"># TODO:</span> -<span id="L16073" class="LineNr">16073 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> -<span id="L16074" class="LineNr">16074 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> -<span id="L16075" class="LineNr">16075 </span><span class="subxFunction">populate-mu-function-signature</span>: <span class="subxComment"># first-line: (addr stream byte), out: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L16076" class="LineNr">16076 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16077" class="LineNr">16077 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L16078" class="LineNr">16078 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> -<span id="L16079" class="LineNr">16079 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L16080" class="LineNr">16080 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> -<span id="L16081" class="LineNr">16081 </span> <span class="subxComment"># ## inouts</span> -<span id="L16082" class="LineNr">16082 </span> <span class="subxComment"># while true</span> -<span id="L16083" class="LineNr">16083 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16084" class="LineNr">16084 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L16085" class="LineNr">16085 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16086" class="LineNr">16086 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> -<span id="L16087" class="LineNr">16087 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16088" class="LineNr">16088 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L16089" class="LineNr">16089 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> -<span id="L16090" class="LineNr">16090 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16091" class="LineNr">16091 </span> <span class="subxComment"># ## outputs</span> -<span id="L16092" class="LineNr">16092 </span> <span class="subxComment"># while true</span> -<span id="L16093" class="LineNr">16093 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> -<span id="L16094" class="LineNr">16094 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L16095" class="LineNr">16095 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> -<span id="L16096" class="LineNr">16096 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> -<span id="L16097" class="LineNr">16097 </span> <span class="subxComment"># assert(v->register != null)</span> -<span id="L16098" class="LineNr">16098 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16099" class="LineNr">16099 </span> <span class="subxComment">#</span> -<span id="L16100" class="LineNr">16100 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16101" class="LineNr">16101 </span> 55/push-ebp -<span id="L16102" class="LineNr">16102 </span> 89/<- %ebp 4/r32/esp -<span id="L16103" class="LineNr">16103 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16104" class="LineNr">16104 </span> 50/push-eax -<span id="L16105" class="LineNr">16105 </span> 51/push-ecx -<span id="L16106" class="LineNr">16106 </span> 52/push-edx -<span id="L16107" class="LineNr">16107 </span> 53/push-ebx -<span id="L16108" class="LineNr">16108 </span> 57/push-edi -<span id="L16109" class="LineNr">16109 </span> <span class="subxComment"># edi = out</span> -<span id="L16110" class="LineNr">16110 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L16111" class="LineNr">16111 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L16112" class="LineNr">16112 </span> 68/push 0/imm32/end -<span id="L16113" class="LineNr">16113 </span> 68/push 0/imm32/start -<span id="L16114" class="LineNr">16114 </span> 89/<- %ecx 4/r32/esp -<span id="L16115" class="LineNr">16115 </span> <span class="subxComment"># var v/ebx: (handle var)</span> -<span id="L16116" class="LineNr">16116 </span> 68/push 0/imm32 -<span id="L16117" class="LineNr">16117 </span> 68/push 0/imm32 -<span id="L16118" class="LineNr">16118 </span> 89/<- %ebx 4/r32/esp -<span id="L16119" class="LineNr">16119 </span> <span class="subxComment"># read function name</span> -<span id="L16120" class="LineNr">16120 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16121" class="LineNr">16121 </span> <span class="subxComment"># error checking</span> -<span id="L16122" class="LineNr">16122 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16123" class="LineNr">16123 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16124" class="LineNr">16124 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16125" class="LineNr">16125 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16126" class="LineNr">16126 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16127" class="LineNr">16127 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16128" class="LineNr">16128 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16129" class="LineNr">16129 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16130" class="LineNr">16130 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16131" class="LineNr">16131 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16132" class="LineNr">16132 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16133" class="LineNr">16133 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16134" class="LineNr">16134 </span> <span class="subxComment"># if word-slice already defined, abort</span> -<span id="L16135" class="LineNr">16135 </span> (<a href='mu.subx.html#L16427'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16136" class="LineNr">16136 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16137" class="LineNr">16137 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 -<span id="L16138" class="LineNr">16138 </span> <span class="subxComment">#</span> -<span id="L16139" class="LineNr">16139 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L16140" class="LineNr">16140 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16141" class="LineNr">16141 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 -<span id="L16142" class="LineNr">16142 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L16143" class="LineNr">16143 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16144" class="LineNr">16144 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 -<span id="L16145" class="LineNr">16145 </span> <span class="subxComment"># save function name</span> -<span id="L16146" class="LineNr">16146 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx %edi) <span class="subxComment"># Function-name</span> -<span id="L16147" class="LineNr">16147 </span> <span class="subxComment"># save function inouts</span> -<span id="L16148" class="LineNr">16148 </span> { -<span id="L16149" class="LineNr">16149 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: -<span id="L16150" class="LineNr">16150 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16151" class="LineNr">16151 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16152" class="LineNr">16152 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16153" class="LineNr">16153 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16154" class="LineNr">16154 </span> <span class="subxComment"># if (word-slice == '->') break</span> -<span id="L16155" class="LineNr">16155 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16156" class="LineNr">16156 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16157" class="LineNr">16157 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16158" class="LineNr">16158 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16159" class="LineNr">16159 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16160" class="LineNr">16160 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16161" class="LineNr">16161 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16162" class="LineNr">16162 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16163" class="LineNr">16163 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16164" class="LineNr">16164 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16165" class="LineNr">16165 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16166" class="LineNr">16166 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16167" class="LineNr">16167 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16168" class="LineNr">16168 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L16169" class="LineNr">16169 </span> <span class="subxComment"># if (v->register != null) abort</span> -<span id="L16170" class="LineNr">16170 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16171" class="LineNr">16171 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16172" class="LineNr">16172 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16173" class="LineNr">16173 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L16174" class="LineNr">16174 </span> <span class="subxComment"># if function name is not "main"</span> -<span id="L16175" class="LineNr">16175 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> -<span id="L16176" class="LineNr">16176 </span> { -<span id="L16177" class="LineNr">16177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16178" class="LineNr">16178 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> -<span id="L16179" class="LineNr">16179 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16180" class="LineNr">16180 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16181" class="LineNr">16181 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16182" class="LineNr">16182 </span> (<a href='mu.subx.html#L16373'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16183" class="LineNr">16183 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16184" class="LineNr">16184 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 -<span id="L16185" class="LineNr">16185 </span> } -<span id="L16186" class="LineNr">16186 </span> <span class="subxComment"># assert(v->register == null)</span> -<span id="L16187" class="LineNr">16187 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16188" class="LineNr">16188 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16189" class="LineNr">16189 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16190" class="LineNr">16190 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 -<span id="L16191" class="LineNr">16191 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> -<span id="L16192" class="LineNr">16192 </span> <span class="subxComment">#</span> -<span id="L16193" class="LineNr">16193 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> -<span id="L16194" class="LineNr">16194 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> -<span id="L16195" class="LineNr">16195 </span> (<a href='mu.subx.html#L19815'>append-list</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+8) *(edi+0xc) %eax) <span class="subxComment"># Function-inouts, Function-inouts</span> -<span id="L16196" class="LineNr">16196 </span> <span class="subxComment">#</span> -<span id="L16197" class="LineNr">16197 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16198" class="LineNr">16198 </span> } -<span id="L16199" class="LineNr">16199 </span> <span class="subxComment"># save function outputs</span> -<span id="L16200" class="LineNr">16200 </span> { -<span id="L16201" class="LineNr">16201 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: -<span id="L16202" class="LineNr">16202 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L16203" class="LineNr">16203 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16204" class="LineNr">16204 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16205" class="LineNr">16205 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16206" class="LineNr">16206 </span> <span class="subxComment"># if (word-slice == '{') abort</span> -<span id="L16207" class="LineNr">16207 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16208" class="LineNr">16208 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16209" class="LineNr">16209 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16210" class="LineNr">16210 </span> <span class="subxComment"># if (word-slice == '->') abort</span> -<span id="L16211" class="LineNr">16211 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16212" class="LineNr">16212 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16213" class="LineNr">16213 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16214" class="LineNr">16214 </span> <span class="subxComment"># if (word-slice == '}') abort</span> -<span id="L16215" class="LineNr">16215 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16216" class="LineNr">16216 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16217" class="LineNr">16217 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 -<span id="L16218" class="LineNr">16218 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L16219" class="LineNr">16219 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16220" class="LineNr">16220 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L16221" class="LineNr">16221 </span> <span class="subxComment"># assert(var->register != null)</span> -<span id="L16222" class="LineNr">16222 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> -<span id="L16223" class="LineNr">16223 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16224" class="LineNr">16224 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L16225" class="LineNr">16225 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 -<span id="L16226" class="LineNr">16226 </span> <span class="subxComment"># if (var->name != "_") abort</span> -<span id="L16227" class="LineNr">16227 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16228" class="LineNr">16228 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> -<span id="L16229" class="LineNr">16229 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16230" class="LineNr">16230 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 -<span id="L16231" class="LineNr">16231 </span> <span class="subxComment"># if function name is not "lookup"</span> -<span id="L16232" class="LineNr">16232 </span> <span class="subxComment"># and v->type is an addr, abort</span> -<span id="L16233" class="LineNr">16233 </span> { -<span id="L16234" class="LineNr">16234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16235" class="LineNr">16235 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> -<span id="L16236" class="LineNr">16236 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16237" class="LineNr">16237 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16238" class="LineNr">16238 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16239" class="LineNr">16239 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16240" class="LineNr">16240 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16241" class="LineNr">16241 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16242" class="LineNr">16242 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 -<span id="L16243" class="LineNr">16243 </span> } -<span id="L16244" class="LineNr">16244 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> -<span id="L16245" class="LineNr">16245 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> -<span id="L16246" class="LineNr">16246 </span> (<a href='mu.subx.html#L19815'>append-list</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x10) *(edi+0x14) %eax) <span class="subxComment"># Function-outputs, Function-outputs</span> -<span id="L16247" class="LineNr">16247 </span> <span class="subxComment">#</span> -<span id="L16248" class="LineNr">16248 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L16249" class="LineNr">16249 </span> } -<span id="L16250" class="LineNr">16250 </span><span class="Constant">$populate-mu-function-signature:done</span>: -<span id="L16251" class="LineNr">16251 </span> (<a href='mu.subx.html#L18184'>check-no-tokens-left</a> *(ebp+8)) -<span id="L16252" class="LineNr">16252 </span><span class="Constant">$populate-mu-function-signature:end</span>: -<span id="L16253" class="LineNr">16253 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16254" class="LineNr">16254 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L16255" class="LineNr">16255 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16256" class="LineNr">16256 </span> 5f/pop-to-edi -<span id="L16257" class="LineNr">16257 </span> 5b/pop-to-ebx -<span id="L16258" class="LineNr">16258 </span> 5a/pop-to-edx -<span id="L16259" class="LineNr">16259 </span> 59/pop-to-ecx -<span id="L16260" class="LineNr">16260 </span> 58/pop-to-eax -<span id="L16261" class="LineNr">16261 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16262" class="LineNr">16262 </span> 89/<- %esp 5/r32/ebp -<span id="L16263" class="LineNr">16263 </span> 5d/pop-to-ebp -<span id="L16264" class="LineNr">16264 </span> c3/return -<span id="L16265" class="LineNr">16265 </span> -<span id="L16266" class="LineNr">16266 </span><span class="Constant">$populate-mu-function-signature:error1</span>: -<span id="L16267" class="LineNr">16267 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> -<span id="L16268" class="LineNr">16268 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"function signature not in form 'fn <name> [inouts] [-> outputs] {' -- '"</span>) -<span id="L16269" class="LineNr">16269 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16270" class="LineNr">16270 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16271" class="LineNr">16271 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L16272" class="LineNr">16272 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L16273" class="LineNr">16273 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16274" class="LineNr">16274 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16275" class="LineNr">16275 </span> <span class="subxComment"># never gets here</span> -<span id="L16276" class="LineNr">16276 </span> -<span id="L16277" class="LineNr">16277 </span><span class="Constant">$populate-mu-function-signature:error2</span>: -<span id="L16278" class="LineNr">16278 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> -<span id="L16279" class="LineNr">16279 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16280" class="LineNr">16280 </span> 50/push-eax -<span id="L16281" class="LineNr">16281 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16282" class="LineNr">16282 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16283" class="LineNr">16283 </span> 58/pop-to-eax -<span id="L16284" class="LineNr">16284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) -<span id="L16285" class="LineNr">16285 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16286" class="LineNr">16286 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16287" class="LineNr">16287 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) -<span id="L16288" class="LineNr">16288 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16289" class="LineNr">16289 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16290" class="LineNr">16290 </span> <span class="subxComment"># never gets here</span> -<span id="L16291" class="LineNr">16291 </span> -<span id="L16292" class="LineNr">16292 </span><span class="Constant">$populate-mu-function-signature:error3</span>: -<span id="L16293" class="LineNr">16293 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> -<span id="L16294" class="LineNr">16294 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16295" class="LineNr">16295 </span> 50/push-eax -<span id="L16296" class="LineNr">16296 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16297" class="LineNr">16297 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16298" class="LineNr">16298 </span> 58/pop-to-eax -<span id="L16299" class="LineNr">16299 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) -<span id="L16300" class="LineNr">16300 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16301" class="LineNr">16301 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16302" class="LineNr">16302 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16303" class="LineNr">16303 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register, in instruction '"</span>) -<span id="L16304" class="LineNr">16304 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L16305" class="LineNr">16305 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) -<span id="L16306" class="LineNr">16306 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L16307" class="LineNr">16307 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16308" class="LineNr">16308 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16309" class="LineNr">16309 </span> <span class="subxComment"># never gets here</span> -<span id="L16310" class="LineNr">16310 </span> -<span id="L16311" class="LineNr">16311 </span><span class="Constant">$populate-mu-function-signature:error4</span>: -<span id="L16312" class="LineNr">16312 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> -<span id="L16313" class="LineNr">16313 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16314" class="LineNr">16314 </span> 50/push-eax -<span id="L16315" class="LineNr">16315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16316" class="LineNr">16316 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16317" class="LineNr">16317 </span> 58/pop-to-eax -<span id="L16318" class="LineNr">16318 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function outputs cannot be named; rename '"</span>) -<span id="L16319" class="LineNr">16319 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16320" class="LineNr">16320 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16321" class="LineNr">16321 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16322" class="LineNr">16322 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) -<span id="L16323" class="LineNr">16323 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16324" class="LineNr">16324 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16325" class="LineNr">16325 </span> <span class="subxComment"># never gets here</span> -<span id="L16326" class="LineNr">16326 </span> -<span id="L16327" class="LineNr">16327 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: -<span id="L16328" class="LineNr">16328 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16329" class="LineNr">16329 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) -<span id="L16330" class="LineNr">16330 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) -<span id="L16331" class="LineNr">16331 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16332" class="LineNr">16332 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16333" class="LineNr">16333 </span> <span class="subxComment"># never gets here</span> -<span id="L16334" class="LineNr">16334 </span> -<span id="L16335" class="LineNr">16335 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: -<span id="L16336" class="LineNr">16336 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"Sorry, I've reserved all function names starting with 'break' for now. Please contact mu@akkartik.com.\n"</span>) -<span id="L16337" class="LineNr">16337 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16338" class="LineNr">16338 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16339" class="LineNr">16339 </span> <span class="subxComment"># never gets here</span> -<span id="L16340" class="LineNr">16340 </span> -<span id="L16341" class="LineNr">16341 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: -<span id="L16342" class="LineNr">16342 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"Sorry, I've reserved all function names starting with 'loop' for now. Please contact mu@akkartik.com.\n"</span>) -<span id="L16343" class="LineNr">16343 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16344" class="LineNr">16344 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16345" class="LineNr">16345 </span> <span class="subxComment"># never gets here</span> -<span id="L16346" class="LineNr">16346 </span> -<span id="L16347" class="LineNr">16347 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: -<span id="L16348" class="LineNr">16348 </span> <span class="subxComment"># error("fn " fn ": output cannot have an addr type; that could allow unsafe addresses to escape the function")</span> -<span id="L16349" class="LineNr">16349 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16350" class="LineNr">16350 </span> 50/push-eax -<span id="L16351" class="LineNr">16351 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16352" class="LineNr">16352 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16353" class="LineNr">16353 </span> 58/pop-to-eax -<span id="L16354" class="LineNr">16354 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": output cannot have an addr type; that could allow unsafe addresses to escape the function\n"</span>) -<span id="L16355" class="LineNr">16355 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16356" class="LineNr">16356 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16357" class="LineNr">16357 </span> <span class="subxComment"># never gets here</span> -<span id="L16358" class="LineNr">16358 </span> -<span id="L16359" class="LineNr">16359 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: -<span id="L16360" class="LineNr">16360 </span> <span class="subxComment"># error("fn " fn ": inout '" var "' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function")</span> -<span id="L16361" class="LineNr">16361 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L16362" class="LineNr">16362 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16363" class="LineNr">16363 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16364" class="LineNr">16364 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) -<span id="L16365" class="LineNr">16365 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L16366" class="LineNr">16366 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16367" class="LineNr">16367 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L16368" class="LineNr">16368 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function\n"</span>) -<span id="L16369" class="LineNr">16369 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L16370" class="LineNr">16370 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L16371" class="LineNr">16371 </span> <span class="subxComment"># never gets here</span> -<span id="L16372" class="LineNr">16372 </span> -<span id="L16373" class="LineNr">16373 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> -<span id="L16374" class="LineNr">16374 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16375" class="LineNr">16375 </span> 55/push-ebp -<span id="L16376" class="LineNr">16376 </span> 89/<- %ebp 4/r32/esp -<span id="L16377" class="LineNr">16377 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> -<span id="L16378" class="LineNr">16378 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16379" class="LineNr">16379 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16380" class="LineNr">16380 </span> <span class="subxComment"># if t->right contains addr, return true</span> -<span id="L16381" class="LineNr">16381 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L16382" class="LineNr">16382 </span> (<a href='mu.subx.html#L16390'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L16383" class="LineNr">16383 </span> <span class="subxComment"># we don't have to look at t->left as long as it's guaranteed to be an atom</span> -<span id="L16384" class="LineNr">16384 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: -<span id="L16385" class="LineNr">16385 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16386" class="LineNr">16386 </span> 89/<- %esp 5/r32/ebp -<span id="L16387" class="LineNr">16387 </span> 5d/pop-to-ebp -<span id="L16388" class="LineNr">16388 </span> c3/return -<span id="L16389" class="LineNr">16389 </span> -<span id="L16390" class="LineNr">16390 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L16391" class="LineNr">16391 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16392" class="LineNr">16392 </span> 55/push-ebp -<span id="L16393" class="LineNr">16393 </span> 89/<- %ebp 4/r32/esp -<span id="L16394" class="LineNr">16394 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16395" class="LineNr">16395 </span> 51/push-ecx -<span id="L16396" class="LineNr">16396 </span> <span class="subxComment"># if t is null, return false</span> -<span id="L16397" class="LineNr">16397 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16398" class="LineNr">16398 </span> 3d/compare-eax-and 0/imm32 -<span id="L16399" class="LineNr">16399 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> -<span id="L16400" class="LineNr">16400 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> -<span id="L16401" class="LineNr">16401 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L16402" class="LineNr">16402 </span> { -<span id="L16403" class="LineNr">16403 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16404" class="LineNr">16404 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L16405" class="LineNr">16405 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L16406" class="LineNr">16406 </span> 0f 94/set-if-= %al -<span id="L16407" class="LineNr">16407 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16408" class="LineNr">16408 </span> eb/jump $type-tree-contains?:end/disp8 -<span id="L16409" class="LineNr">16409 </span> } -<span id="L16410" class="LineNr">16410 </span> <span class="subxComment"># if t->left contains n, return true</span> -<span id="L16411" class="LineNr">16411 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L16412" class="LineNr">16412 </span> (<a href='mu.subx.html#L16390'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16413" class="LineNr">16413 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16414" class="LineNr">16414 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 -<span id="L16415" class="LineNr">16415 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> -<span id="L16416" class="LineNr">16416 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L16417" class="LineNr">16417 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L16418" class="LineNr">16418 </span> (<a href='mu.subx.html#L16390'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L16419" class="LineNr">16419 </span><span class="Constant">$type-tree-contains?:end</span>: -<span id="L16420" class="LineNr">16420 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16421" class="LineNr">16421 </span> 59/pop-to-ecx -<span id="L16422" class="LineNr">16422 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16423" class="LineNr">16423 </span> 89/<- %esp 5/r32/ebp -<span id="L16424" class="LineNr">16424 </span> 5d/pop-to-ebp -<span id="L16425" class="LineNr">16425 </span> c3/return -<span id="L16426" class="LineNr">16426 </span> -<span id="L16427" class="LineNr">16427 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> -<span id="L16428" class="LineNr">16428 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16429" class="LineNr">16429 </span> 55/push-ebp -<span id="L16430" class="LineNr">16430 </span> 89/<- %ebp 4/r32/esp -<span id="L16431" class="LineNr">16431 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16432" class="LineNr">16432 </span> 51/push-ecx -<span id="L16433" class="LineNr">16433 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> -<span id="L16434" class="LineNr">16434 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L16435" class="LineNr">16435 </span> 89/<- %ecx 0/r32/eax -<span id="L16436" class="LineNr">16436 </span> { -<span id="L16437" class="LineNr">16437 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L16438" class="LineNr">16438 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16439" class="LineNr">16439 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16440" class="LineNr">16440 </span> <span class="subxComment"># if (curr->name == s) return true</span> -<span id="L16441" class="LineNr">16441 </span> { -<span id="L16442" class="LineNr">16442 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16443" class="LineNr">16443 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L16444" class="LineNr">16444 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16445" class="LineNr">16445 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16446" class="LineNr">16446 </span> b8/copy-to-eax 1/imm32/true -<span id="L16447" class="LineNr">16447 </span> e9/jump $function-exists?:end/disp32 -<span id="L16448" class="LineNr">16448 </span> } -<span id="L16449" class="LineNr">16449 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L16450" class="LineNr">16450 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L16451" class="LineNr">16451 </span> 89/<- %ecx 0/r32/eax -<span id="L16452" class="LineNr">16452 </span> <span class="subxComment">#</span> -<span id="L16453" class="LineNr">16453 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16454" class="LineNr">16454 </span> } -<span id="L16455" class="LineNr">16455 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> -<span id="L16456" class="LineNr">16456 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L16457" class="LineNr">16457 </span> 89/<- %ecx 0/r32/eax -<span id="L16458" class="LineNr">16458 </span> { -<span id="L16459" class="LineNr">16459 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L16460" class="LineNr">16460 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L16461" class="LineNr">16461 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16462" class="LineNr">16462 </span> <span class="subxComment"># if (curr->name == s) return true</span> -<span id="L16463" class="LineNr">16463 </span> { -<span id="L16464" class="LineNr">16464 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16465" class="LineNr">16465 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L16466" class="LineNr">16466 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16467" class="LineNr">16467 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16468" class="LineNr">16468 </span> b8/copy-to-eax 1/imm32/true -<span id="L16469" class="LineNr">16469 </span> eb/jump $function-exists?:end/disp8 -<span id="L16470" class="LineNr">16470 </span> } -<span id="L16471" class="LineNr">16471 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L16472" class="LineNr">16472 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L16473" class="LineNr">16473 </span> 89/<- %ecx 0/r32/eax -<span id="L16474" class="LineNr">16474 </span> <span class="subxComment">#</span> -<span id="L16475" class="LineNr">16475 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L16476" class="LineNr">16476 </span> } -<span id="L16477" class="LineNr">16477 </span> <span class="subxComment"># return false</span> -<span id="L16478" class="LineNr">16478 </span> b8/copy-to-eax 0/imm32/false -<span id="L16479" class="LineNr">16479 </span><span class="Constant">$function-exists?:end</span>: -<span id="L16480" class="LineNr">16480 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16481" class="LineNr">16481 </span> 59/pop-to-ecx -<span id="L16482" class="LineNr">16482 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16483" class="LineNr">16483 </span> 89/<- %esp 5/r32/ebp -<span id="L16484" class="LineNr">16484 </span> 5d/pop-to-ebp -<span id="L16485" class="LineNr">16485 </span> c3/return -<span id="L16486" class="LineNr">16486 </span> -<span id="L16487" class="LineNr">16487 </span><span class="subxTest">test-function-header-with-arg</span>: -<span id="L16488" class="LineNr">16488 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16489" class="LineNr">16489 </span> 55/push-ebp -<span id="L16490" class="LineNr">16490 </span> 89/<- %ebp 4/r32/esp -<span id="L16491" class="LineNr">16491 </span> <span class="subxComment"># setup</span> -<span id="L16492" class="LineNr">16492 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16493" class="LineNr">16493 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L16494" class="LineNr">16494 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16495" class="LineNr">16495 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16496" class="LineNr">16496 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16497" class="LineNr">16497 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16498" class="LineNr">16498 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16499" class="LineNr">16499 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16500" class="LineNr">16500 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16501" class="LineNr">16501 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"foo n: int {\n"</span>) -<span id="L16502" class="LineNr">16502 </span> <span class="subxComment"># var result/ecx: function</span> -<span id="L16503" class="LineNr">16503 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16504" class="LineNr">16504 </span> 89/<- %ecx 4/r32/esp -<span id="L16505" class="LineNr">16505 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) -<span id="L16506" class="LineNr">16506 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16507" class="LineNr">16507 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16508" class="LineNr">16508 </span> 68/push 0xc0/imm32/size -<span id="L16509" class="LineNr">16509 </span> 68/push 0/imm32/top -<span id="L16510" class="LineNr">16510 </span> 89/<- %ebx 4/r32/esp -<span id="L16511" class="LineNr">16511 </span> <span class="subxComment"># convert</span> -<span id="L16512" class="LineNr">16512 </span> (<a href='mu.subx.html#L15755'>populate-mu-function-header</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L16513" class="LineNr">16513 </span> <span class="subxComment"># check result->name</span> -<span id="L16514" class="LineNr">16514 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16515" class="LineNr">16515 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"foo"</span> <span class="Constant">"F - <a href='mu.subx.html#L16487'>test-function-header-with-arg</a>/name"</span>) -<span id="L16516" class="LineNr">16516 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> -<span id="L16517" class="LineNr">16517 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16518" class="LineNr">16518 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16519" class="LineNr">16519 </span> 89/<- %edx 0/r32/eax -<span id="L16520" class="LineNr">16520 </span> <span class="subxComment"># check v->name</span> -<span id="L16521" class="LineNr">16521 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16522" class="LineNr">16522 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L16487'>test-function-header-with-arg</a>/inout:0"</span>) -<span id="L16523" class="LineNr">16523 </span> <span class="subxComment"># check v->type</span> -<span id="L16524" class="LineNr">16524 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16525" class="LineNr">16525 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16487'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16526" class="LineNr">16526 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16487'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16527" class="LineNr">16527 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16487'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16528" class="LineNr">16528 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16529" class="LineNr">16529 </span> 89/<- %esp 5/r32/ebp -<span id="L16530" class="LineNr">16530 </span> 5d/pop-to-ebp -<span id="L16531" class="LineNr">16531 </span> c3/return -<span id="L16532" class="LineNr">16532 </span> -<span id="L16533" class="LineNr">16533 </span><span class="subxTest">test-function-header-with-multiple-args</span>: -<span id="L16534" class="LineNr">16534 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16535" class="LineNr">16535 </span> 55/push-ebp -<span id="L16536" class="LineNr">16536 </span> 89/<- %ebp 4/r32/esp -<span id="L16537" class="LineNr">16537 </span> <span class="subxComment"># setup</span> -<span id="L16538" class="LineNr">16538 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16539" class="LineNr">16539 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L16540" class="LineNr">16540 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16541" class="LineNr">16541 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16542" class="LineNr">16542 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16543" class="LineNr">16543 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16544" class="LineNr">16544 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16545" class="LineNr">16545 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16546" class="LineNr">16546 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16547" class="LineNr">16547 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"foo a: int, b: int c: int {\n"</span>) -<span id="L16548" class="LineNr">16548 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L16549" class="LineNr">16549 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16550" class="LineNr">16550 </span> 89/<- %ecx 4/r32/esp -<span id="L16551" class="LineNr">16551 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) -<span id="L16552" class="LineNr">16552 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16553" class="LineNr">16553 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16554" class="LineNr">16554 </span> 68/push 0xc0/imm32/size -<span id="L16555" class="LineNr">16555 </span> 68/push 0/imm32/top -<span id="L16556" class="LineNr">16556 </span> 89/<- %ebx 4/r32/esp -<span id="L16557" class="LineNr">16557 </span> <span class="subxComment"># convert</span> -<span id="L16558" class="LineNr">16558 </span> (<a href='mu.subx.html#L15755'>populate-mu-function-header</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L16559" class="LineNr">16559 </span> <span class="subxComment"># check result->name</span> -<span id="L16560" class="LineNr">16560 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16561" class="LineNr">16561 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"foo"</span> <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/name"</span>) -<span id="L16562" class="LineNr">16562 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L16563" class="LineNr">16563 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16564" class="LineNr">16564 </span> 89/<- %edx 0/r32/eax -<span id="L16565" class="LineNr">16565 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: -<span id="L16566" class="LineNr">16566 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L16567" class="LineNr">16567 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16568" class="LineNr">16568 </span> 89/<- %ebx 0/r32/eax -<span id="L16569" class="LineNr">16569 </span> <span class="subxComment"># check v->name</span> -<span id="L16570" class="LineNr">16570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16571" class="LineNr">16571 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"a"</span> <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> -<span id="L16572" class="LineNr">16572 </span> <span class="subxComment"># check v->type</span> -<span id="L16573" class="LineNr">16573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16574" class="LineNr">16574 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16575" class="LineNr">16575 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16576" class="LineNr">16576 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16577" class="LineNr">16577 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: -<span id="L16578" class="LineNr">16578 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16579" class="LineNr">16579 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16580" class="LineNr">16580 </span> 89/<- %edx 0/r32/eax -<span id="L16581" class="LineNr">16581 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16582" class="LineNr">16582 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16583" class="LineNr">16583 </span> 89/<- %ebx 0/r32/eax -<span id="L16584" class="LineNr">16584 </span> <span class="subxComment"># check v->name</span> -<span id="L16585" class="LineNr">16585 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16586" class="LineNr">16586 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"b"</span> <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> -<span id="L16587" class="LineNr">16587 </span> <span class="subxComment"># check v->type</span> -<span id="L16588" class="LineNr">16588 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16589" class="LineNr">16589 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16590" class="LineNr">16590 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16591" class="LineNr">16591 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16592" class="LineNr">16592 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: -<span id="L16593" class="LineNr">16593 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16594" class="LineNr">16594 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16595" class="LineNr">16595 </span> 89/<- %edx 0/r32/eax -<span id="L16596" class="LineNr">16596 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16597" class="LineNr">16597 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16598" class="LineNr">16598 </span> 89/<- %ebx 0/r32/eax -<span id="L16599" class="LineNr">16599 </span> <span class="subxComment"># check v->name</span> -<span id="L16600" class="LineNr">16600 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16601" class="LineNr">16601 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"c"</span> <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> -<span id="L16602" class="LineNr">16602 </span> <span class="subxComment"># check v->type</span> -<span id="L16603" class="LineNr">16603 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16604" class="LineNr">16604 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16605" class="LineNr">16605 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16606" class="LineNr">16606 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16533'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16607" class="LineNr">16607 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16608" class="LineNr">16608 </span> 89/<- %esp 5/r32/ebp -<span id="L16609" class="LineNr">16609 </span> 5d/pop-to-ebp -<span id="L16610" class="LineNr">16610 </span> c3/return -<span id="L16611" class="LineNr">16611 </span> -<span id="L16612" class="LineNr">16612 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: -<span id="L16613" class="LineNr">16613 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16614" class="LineNr">16614 </span> 55/push-ebp -<span id="L16615" class="LineNr">16615 </span> 89/<- %ebp 4/r32/esp -<span id="L16616" class="LineNr">16616 </span> <span class="subxComment"># setup</span> -<span id="L16617" class="LineNr">16617 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L16618" class="LineNr">16618 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L16619" class="LineNr">16619 </span> c7 0/subop/copy *_Program-functions 0/imm32 -<span id="L16620" class="LineNr">16620 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 -<span id="L16621" class="LineNr">16621 </span> c7 0/subop/copy *_Program-types 0/imm32 -<span id="L16622" class="LineNr">16622 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 -<span id="L16623" class="LineNr">16623 </span> c7 0/subop/copy *_Program-signatures 0/imm32 -<span id="L16624" class="LineNr">16624 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 -<span id="L16625" class="LineNr">16625 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L16626" class="LineNr">16626 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"foo a: int, b: int, c: int -> _/ecx: int _/edx: int {\n"</span>) -<span id="L16627" class="LineNr">16627 </span> <span class="subxComment"># result/ecx: function</span> -<span id="L16628" class="LineNr">16628 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp -<span id="L16629" class="LineNr">16629 </span> 89/<- %ecx 4/r32/esp -<span id="L16630" class="LineNr">16630 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) -<span id="L16631" class="LineNr">16631 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> -<span id="L16632" class="LineNr">16632 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L16633" class="LineNr">16633 </span> 68/push 0xc0/imm32/size -<span id="L16634" class="LineNr">16634 </span> 68/push 0/imm32/top -<span id="L16635" class="LineNr">16635 </span> 89/<- %ebx 4/r32/esp -<span id="L16636" class="LineNr">16636 </span> <span class="subxComment"># convert</span> -<span id="L16637" class="LineNr">16637 </span> (<a href='mu.subx.html#L15755'>populate-mu-function-header</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %ebx <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L16638" class="LineNr">16638 </span> <span class="subxComment"># check result->name</span> -<span id="L16639" class="LineNr">16639 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L16640" class="LineNr">16640 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"foo"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) -<span id="L16641" class="LineNr">16641 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> -<span id="L16642" class="LineNr">16642 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L16643" class="LineNr">16643 </span> 89/<- %edx 0/r32/eax -<span id="L16644" class="LineNr">16644 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: -<span id="L16645" class="LineNr">16645 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> -<span id="L16646" class="LineNr">16646 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16647" class="LineNr">16647 </span> 89/<- %ebx 0/r32/eax -<span id="L16648" class="LineNr">16648 </span> <span class="subxComment"># check v->name</span> -<span id="L16649" class="LineNr">16649 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16650" class="LineNr">16650 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"a"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) -<span id="L16651" class="LineNr">16651 </span> <span class="subxComment"># check v->type</span> -<span id="L16652" class="LineNr">16652 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16653" class="LineNr">16653 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16654" class="LineNr">16654 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16655" class="LineNr">16655 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16656" class="LineNr">16656 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: -<span id="L16657" class="LineNr">16657 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16658" class="LineNr">16658 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16659" class="LineNr">16659 </span> 89/<- %edx 0/r32/eax -<span id="L16660" class="LineNr">16660 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16661" class="LineNr">16661 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16662" class="LineNr">16662 </span> 89/<- %ebx 0/r32/eax -<span id="L16663" class="LineNr">16663 </span> <span class="subxComment"># check v->name</span> -<span id="L16664" class="LineNr">16664 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16665" class="LineNr">16665 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"b"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) -<span id="L16666" class="LineNr">16666 </span> <span class="subxComment"># check v->type</span> -<span id="L16667" class="LineNr">16667 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16668" class="LineNr">16668 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16669" class="LineNr">16669 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16670" class="LineNr">16670 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16671" class="LineNr">16671 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: -<span id="L16672" class="LineNr">16672 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L16673" class="LineNr">16673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16674" class="LineNr">16674 </span> 89/<- %edx 0/r32/eax -<span id="L16675" class="LineNr">16675 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16676" class="LineNr">16676 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16677" class="LineNr">16677 </span> 89/<- %ebx 0/r32/eax -<span id="L16678" class="LineNr">16678 </span> <span class="subxComment"># check v->name</span> -<span id="L16679" class="LineNr">16679 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16680" class="LineNr">16680 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"c"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) -<span id="L16681" class="LineNr">16681 </span> <span class="subxComment"># check v->type</span> -<span id="L16682" class="LineNr">16682 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16683" class="LineNr">16683 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16684" class="LineNr">16684 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16685" class="LineNr">16685 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16686" class="LineNr">16686 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: -<span id="L16687" class="LineNr">16687 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> -<span id="L16688" class="LineNr">16688 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L16689" class="LineNr">16689 </span> 89/<- %edx 0/r32/eax -<span id="L16690" class="LineNr">16690 </span> <span class="subxComment"># v = lookup(outputs->value)</span> -<span id="L16691" class="LineNr">16691 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16692" class="LineNr">16692 </span> 89/<- %ebx 0/r32/eax -<span id="L16693" class="LineNr">16693 </span> <span class="subxComment"># check v->name</span> -<span id="L16694" class="LineNr">16694 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16695" class="LineNr">16695 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"_"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) -<span id="L16696" class="LineNr">16696 </span> <span class="subxComment"># check v->register</span> -<span id="L16697" class="LineNr">16697 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16698" class="LineNr">16698 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) -<span id="L16699" class="LineNr">16699 </span> <span class="subxComment"># check v->type</span> -<span id="L16700" class="LineNr">16700 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16701" class="LineNr">16701 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16702" class="LineNr">16702 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16703" class="LineNr">16703 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16704" class="LineNr">16704 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: -<span id="L16705" class="LineNr">16705 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L16706" class="LineNr">16706 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L16707" class="LineNr">16707 </span> 89/<- %edx 0/r32/eax -<span id="L16708" class="LineNr">16708 </span> <span class="subxComment"># v = lookup(inouts->value)</span> -<span id="L16709" class="LineNr">16709 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L16710" class="LineNr">16710 </span> 89/<- %ebx 0/r32/eax -<span id="L16711" class="LineNr">16711 </span> <span class="subxComment"># check v->name</span> -<span id="L16712" class="LineNr">16712 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16713" class="LineNr">16713 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"_"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) -<span id="L16714" class="LineNr">16714 </span> <span class="subxComment"># check v->register</span> -<span id="L16715" class="LineNr">16715 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16716" class="LineNr">16716 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) -<span id="L16717" class="LineNr">16717 </span> <span class="subxComment"># check v->type</span> -<span id="L16718" class="LineNr">16718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16719" class="LineNr">16719 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16720" class="LineNr">16720 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L16721" class="LineNr">16721 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L16612'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L16722" class="LineNr">16722 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16723" class="LineNr">16723 </span> 89/<- %esp 5/r32/ebp -<span id="L16724" class="LineNr">16724 </span> 5d/pop-to-ebp -<span id="L16725" class="LineNr">16725 </span> c3/return -<span id="L16726" class="LineNr">16726 </span> -<span id="L16727" class="LineNr">16727 </span><span class="subxComment"># format for variables with types</span> -<span id="L16728" class="LineNr">16728 </span><span class="subxComment"># x: int</span> -<span id="L16729" class="LineNr">16729 </span><span class="subxComment"># x: int,</span> -<span id="L16730" class="LineNr">16730 </span><span class="subxComment"># x/eax: int</span> -<span id="L16731" class="LineNr">16731 </span><span class="subxComment"># x/eax: int,</span> -<span id="L16732" class="LineNr">16732 </span><span class="subxComment"># ignores at most one trailing comma</span> -<span id="L16733" class="LineNr">16733 </span><span class="subxComment"># WARNING: modifies name</span> -<span id="L16734" class="LineNr">16734 </span><span class="subxFunction">parse-var-with-type</span>: <span class="subxComment"># name: (addr slice), first-line: (addr stream byte), out: (addr handle var), fn-name: (addr array byte), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L16735" class="LineNr">16735 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16736" class="LineNr">16736 </span> <span class="subxComment"># var s: slice</span> -<span id="L16737" class="LineNr">16737 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> -<span id="L16738" class="LineNr">16738 </span> <span class="subxComment"># abort</span> -<span id="L16739" class="LineNr">16739 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L16740" class="LineNr">16740 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> -<span id="L16741" class="LineNr">16741 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L16742" class="LineNr">16742 </span> <span class="subxComment"># ## register</span> -<span id="L16743" class="LineNr">16743 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> -<span id="L16744" class="LineNr">16744 </span> <span class="subxComment"># if (!slice-empty?(s))</span> -<span id="L16745" class="LineNr">16745 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L16746" class="LineNr">16746 </span> <span class="subxComment"># ## type</span> -<span id="L16747" class="LineNr">16747 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> -<span id="L16748" class="LineNr">16748 </span> <span class="subxComment"># out->type = type</span> -<span id="L16749" class="LineNr">16749 </span> <span class="subxComment">#</span> -<span id="L16750" class="LineNr">16750 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16751" class="LineNr">16751 </span> 55/push-ebp -<span id="L16752" class="LineNr">16752 </span> 89/<- %ebp 4/r32/esp -<span id="L16753" class="LineNr">16753 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16754" class="LineNr">16754 </span> 50/push-eax -<span id="L16755" class="LineNr">16755 </span> 51/push-ecx -<span id="L16756" class="LineNr">16756 </span> 52/push-edx -<span id="L16757" class="LineNr">16757 </span> 53/push-ebx -<span id="L16758" class="LineNr">16758 </span> 56/push-esi -<span id="L16759" class="LineNr">16759 </span> 57/push-edi -<span id="L16760" class="LineNr">16760 </span> <span class="subxComment"># esi = name</span> -<span id="L16761" class="LineNr">16761 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L16762" class="LineNr">16762 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> -<span id="L16763" class="LineNr">16763 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> -<span id="L16764" class="LineNr">16764 </span> 49/decrement-ecx -<span id="L16765" class="LineNr">16765 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L16766" class="LineNr">16766 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L16767" class="LineNr">16767 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon -<span id="L16768" class="LineNr">16768 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 -<span id="L16769" class="LineNr">16769 </span> <span class="subxComment"># --name->end to skip ':'</span> -<span id="L16770" class="LineNr">16770 </span> ff 1/subop/decrement *(esi+4) -<span id="L16771" class="LineNr">16771 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L16772" class="LineNr">16772 </span> 68/push 0/imm32/end -<span id="L16773" class="LineNr">16773 </span> 68/push 0/imm32/start -<span id="L16774" class="LineNr">16774 </span> 89/<- %ecx 4/r32/esp -<span id="L16775" class="LineNr">16775 </span><span class="Constant">$parse-var-with-type:parse-name</span>: -<span id="L16776" class="LineNr">16776 </span> (<a href='../124next-token.subx.html#L163'>next-token-from-slice</a> *esi *(esi+4) 0x2f %ecx) <span class="subxComment"># Slice-start, Slice-end, '/'</span> -<span id="L16777" class="LineNr">16777 </span><span class="Constant">$parse-var-with-type:create-var</span>: -<span id="L16778" class="LineNr">16778 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> -<span id="L16779" class="LineNr">16779 </span> (<a href='mu.subx.html#L19738'>new-var-from-slice</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) -<span id="L16780" class="LineNr">16780 </span> <span class="subxComment"># save out->register</span> -<span id="L16781" class="LineNr">16781 </span><span class="Constant">$parse-var-with-type:save-register</span>: -<span id="L16782" class="LineNr">16782 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> -<span id="L16783" class="LineNr">16783 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L16784" class="LineNr">16784 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L16785" class="LineNr">16785 </span> 89/<- %edi 0/r32/eax -<span id="L16786" class="LineNr">16786 </span> <span class="subxS1Comment"># . s = next-token(...)</span> -<span id="L16787" class="LineNr">16787 </span> (<a href='../124next-token.subx.html#L163'>next-token-from-slice</a> *(ecx+4) *(esi+4) 0x2f %ecx) <span class="subxComment"># s->end, name->end, '/'</span> -<span id="L16788" class="LineNr">16788 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> -<span id="L16789" class="LineNr">16789 </span> { -<span id="L16790" class="LineNr">16790 </span><span class="Constant">$parse-var-with-type:write-register</span>: -<span id="L16791" class="LineNr">16791 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16792" class="LineNr">16792 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16793" class="LineNr">16793 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16794" class="LineNr">16794 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> -<span id="L16795" class="LineNr">16795 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> -<span id="L16796" class="LineNr">16796 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx %eax) -<span id="L16797" class="LineNr">16797 </span> } -<span id="L16798" class="LineNr">16798 </span><span class="Constant">$parse-var-with-type:save-type</span>: -<span id="L16799" class="LineNr">16799 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L16800" class="LineNr">16800 </span> (<a href='mu.subx.html#L16888'>parse-type</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L16801" class="LineNr">16801 </span><span class="Constant">$parse-var-with-type:check-register</span>: -<span id="L16802" class="LineNr">16802 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L16803" class="LineNr">16803 </span> 3d/compare-eax-and 0/imm32 -<span id="L16804" class="LineNr">16804 </span> 74/jump-if-= $parse-var-with-type:end/disp8 -<span id="L16805" class="LineNr">16805 </span> (<a href='mu.subx.html#L16873'>is-float-register?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16806" class="LineNr">16806 </span> { -<span id="L16807" class="LineNr">16807 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16808" class="LineNr">16808 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16809" class="LineNr">16809 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> -<span id="L16810" class="LineNr">16810 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16811" class="LineNr">16811 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L16812" class="LineNr">16812 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16813" class="LineNr">16813 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 -<span id="L16814" class="LineNr">16814 </span> eb/jump $parse-var-with-type:end/disp8 -<span id="L16815" class="LineNr">16815 </span> } -<span id="L16816" class="LineNr">16816 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> -<span id="L16817" class="LineNr">16817 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L16818" class="LineNr">16818 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> -<span id="L16819" class="LineNr">16819 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16820" class="LineNr">16820 </span> 0f 85/jump-if-!= $parse-var-with-type:error-float-in-integer-register/disp32 -<span id="L16821" class="LineNr">16821 </span><span class="Constant">$parse-var-with-type:end</span>: -<span id="L16822" class="LineNr">16822 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L16823" class="LineNr">16823 </span> 81 0/subop/add %esp 8/imm32 -<span id="L16824" class="LineNr">16824 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L16825" class="LineNr">16825 </span> 5f/pop-to-edi -<span id="L16826" class="LineNr">16826 </span> 5e/pop-to-esi -<span id="L16827" class="LineNr">16827 </span> 5b/pop-to-ebx -<span id="L16828" class="LineNr">16828 </span> 5a/pop-to-edx -<span id="L16829" class="LineNr">16829 </span> 59/pop-to-ecx -<span id="L16830" class="LineNr">16830 </span> 58/pop-to-eax -<span id="L16831" class="LineNr">16831 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16832" class="LineNr">16832 </span> 89/<- %esp 5/r32/ebp -<span id="L16833" class="LineNr">16833 </span> 5d/pop-to-ebp -<span id="L16834" class="LineNr">16834 </span> c3/return -<span id="L16835" class="LineNr">16835 </span> -<span id="L16836" class="LineNr">16836 </span><span class="Constant">$parse-var-with-type:abort</span>: -<span id="L16837" class="LineNr">16837 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> -<span id="L16838" class="LineNr">16838 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L16839" class="LineNr">16839 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L16840" class="LineNr">16840 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var should have form 'name: type' in '"</span>) -<span id="L16841" class="LineNr">16841 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L16842" class="LineNr">16842 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L16843" class="LineNr">16843 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L16844" class="LineNr">16844 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L16845" class="LineNr">16845 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L16846" class="LineNr">16846 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L16847" class="LineNr">16847 </span> <span class="subxComment"># never gets here</span> -<span id="L16848" class="LineNr">16848 </span> -<span id="L16849" class="LineNr">16849 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: -<span id="L16850" class="LineNr">16850 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> -<span id="L16851" class="LineNr">16851 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L16852" class="LineNr">16852 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L16853" class="LineNr">16853 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) -<span id="L16854" class="LineNr">16854 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16855" class="LineNr">16855 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L16856" class="LineNr">16856 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' should be in a floating-point register\n"</span>) -<span id="L16857" class="LineNr">16857 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L16858" class="LineNr">16858 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L16859" class="LineNr">16859 </span> <span class="subxComment"># never gets here</span> -<span id="L16860" class="LineNr">16860 </span> -<span id="L16861" class="LineNr">16861 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: -<span id="L16862" class="LineNr">16862 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> -<span id="L16863" class="LineNr">16863 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L16864" class="LineNr">16864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) -<span id="L16865" class="LineNr">16865 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) -<span id="L16866" class="LineNr">16866 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L16867" class="LineNr">16867 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L16868" class="LineNr">16868 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' should be in an integer register\n"</span>) -<span id="L16869" class="LineNr">16869 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L16870" class="LineNr">16870 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L16871" class="LineNr">16871 </span> <span class="subxComment"># never gets here</span> -<span id="L16872" class="LineNr">16872 </span> -<span id="L16873" class="LineNr">16873 </span><span class="subxFunction">is-float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> -<span id="L16874" class="LineNr">16874 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16875" class="LineNr">16875 </span> 55/push-ebp -<span id="L16876" class="LineNr">16876 </span> 89/<- %ebp 4/r32/esp -<span id="L16877" class="LineNr">16877 </span> <span class="subxComment">#</span> -<span id="L16878" class="LineNr">16878 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19209'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L16879" class="LineNr">16879 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers -<span id="L16880" class="LineNr">16880 </span> 0f 9d/set-if->= %al -<span id="L16881" class="LineNr">16881 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16882" class="LineNr">16882 </span><span class="Constant">$is-float-register?:end</span>: -<span id="L16883" class="LineNr">16883 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L16884" class="LineNr">16884 </span> 89/<- %esp 5/r32/ebp -<span id="L16885" class="LineNr">16885 </span> 5d/pop-to-ebp -<span id="L16886" class="LineNr">16886 </span> c3/return -<span id="L16887" class="LineNr">16887 </span> -<span id="L16888" class="LineNr">16888 </span><span class="subxFunction">parse-type</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr stream byte), out: (addr handle type-tree), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L16889" class="LineNr">16889 </span> <span class="subxComment"># pseudocode:</span> -<span id="L16890" class="LineNr">16890 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> -<span id="L16891" class="LineNr">16891 </span> <span class="subxComment"># assert s != ""</span> -<span id="L16892" class="LineNr">16892 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L16893" class="LineNr">16893 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L16894" class="LineNr">16894 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L16895" class="LineNr">16895 </span> <span class="subxComment"># if s == ")"</span> -<span id="L16896" class="LineNr">16896 </span> <span class="subxComment"># return</span> -<span id="L16897" class="LineNr">16897 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L16898" class="LineNr">16898 </span> <span class="subxComment"># if s != "("</span> -<span id="L16899" class="LineNr">16899 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> -<span id="L16900" class="LineNr">16900 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L16901" class="LineNr">16901 </span> <span class="subxComment"># if (s[0] == "_")</span> -<span id="L16902" class="LineNr">16902 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L16903" class="LineNr">16903 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L16904" class="LineNr">16904 </span> <span class="subxComment"># else</span> -<span id="L16905" class="LineNr">16905 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L16906" class="LineNr">16906 </span> <span class="subxComment"># return</span> -<span id="L16907" class="LineNr">16907 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L16908" class="LineNr">16908 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L16909" class="LineNr">16909 </span> <span class="subxComment">#</span> -<span id="L16910" class="LineNr">16910 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L16911" class="LineNr">16911 </span> 55/push-ebp -<span id="L16912" class="LineNr">16912 </span> 89/<- %ebp 4/r32/esp -<span id="L16913" class="LineNr">16913 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L16914" class="LineNr">16914 </span> 50/push-eax -<span id="L16915" class="LineNr">16915 </span> 51/push-ecx -<span id="L16916" class="LineNr">16916 </span> 52/push-edx -<span id="L16917" class="LineNr">16917 </span> <span class="subxComment"># clear out</span> -<span id="L16918" class="LineNr">16918 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L16919" class="LineNr">16919 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L16920" class="LineNr">16920 </span> 68/push 0/imm32 -<span id="L16921" class="LineNr">16921 </span> 68/push 0/imm32 -<span id="L16922" class="LineNr">16922 </span> 89/<- %ecx 4/r32/esp -<span id="L16923" class="LineNr">16923 </span> <span class="subxComment"># s = next-mu-token(in)</span> -<span id="L16924" class="LineNr">16924 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L16925" class="LineNr">16925 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> -<span id="L16926" class="LineNr">16926 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L16927" class="LineNr">16927 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> -<span id="L16928" class="LineNr">16928 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L16929" class="LineNr">16929 </span> <span class="subxComment"># assert s != ""</span> -<span id="L16930" class="LineNr">16930 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> -<span id="L16931" class="LineNr">16931 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16932" class="LineNr">16932 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L16933" class="LineNr">16933 </span> <span class="subxComment"># assert s != "{"</span> -<span id="L16934" class="LineNr">16934 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> -<span id="L16935" class="LineNr">16935 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16936" class="LineNr">16936 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L16937" class="LineNr">16937 </span> <span class="subxComment"># assert s != "}"</span> -<span id="L16938" class="LineNr">16938 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> -<span id="L16939" class="LineNr">16939 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16940" class="LineNr">16940 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L16941" class="LineNr">16941 </span> <span class="subxComment"># assert s != "->"</span> -<span id="L16942" class="LineNr">16942 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> -<span id="L16943" class="LineNr">16943 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16944" class="LineNr">16944 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 -<span id="L16945" class="LineNr">16945 </span> <span class="subxComment"># if (s == ")") return</span> -<span id="L16946" class="LineNr">16946 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> -<span id="L16947" class="LineNr">16947 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16948" class="LineNr">16948 </span> 0f 85/jump-if-!= $parse-type:end/disp32 -<span id="L16949" class="LineNr">16949 </span> <span class="subxComment"># out = new tree</span> -<span id="L16950" class="LineNr">16950 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> *(ebp+0x10)) -<span id="L16951" class="LineNr">16951 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> -<span id="L16952" class="LineNr">16952 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L16953" class="LineNr">16953 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L16954" class="LineNr">16954 </span> 89/<- %edx 0/r32/eax -<span id="L16955" class="LineNr">16955 </span> { -<span id="L16956" class="LineNr">16956 </span> <span class="subxComment"># if (s != "(") break</span> -<span id="L16957" class="LineNr">16957 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> -<span id="L16958" class="LineNr">16958 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16959" class="LineNr">16959 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L16960" class="LineNr">16960 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> -<span id="L16961" class="LineNr">16961 </span> { -<span id="L16962" class="LineNr">16962 </span><span class="Constant">$parse-type:check-for-int</span>: -<span id="L16963" class="LineNr">16963 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L16964" class="LineNr">16964 </span> 8b/-> *ecx 0/r32/eax -<span id="L16965" class="LineNr">16965 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L16966" class="LineNr">16966 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16967" class="LineNr">16967 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> -<span id="L16968" class="LineNr">16968 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L16969" class="LineNr">16969 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16970" class="LineNr">16970 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16971" class="LineNr">16971 </span> <span class="subxComment">#</span> -<span id="L16972" class="LineNr">16972 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16973" class="LineNr">16973 </span> 3d/compare-eax-and 0/imm32/false -<span id="L16974" class="LineNr">16974 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L16975" class="LineNr">16975 </span><span class="Constant">$parse-type:int</span>: -<span id="L16976" class="LineNr">16976 </span> (<a href='mu.subx.html#L19600'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L16977" class="LineNr">16977 </span> (<a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L16978" class="LineNr">16978 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> -<span id="L16979" class="LineNr">16979 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> -<span id="L16980" class="LineNr">16980 </span> e9/jump $parse-type:end/disp32 -<span id="L16981" class="LineNr">16981 </span> } -<span id="L16982" class="LineNr">16982 </span><span class="Constant">$parse-type:atom</span>: -<span id="L16983" class="LineNr">16983 </span> <span class="subxComment"># out->is-atom? = true</span> -<span id="L16984" class="LineNr">16984 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L16985" class="LineNr">16985 </span> { -<span id="L16986" class="LineNr">16986 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: -<span id="L16987" class="LineNr">16987 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> -<span id="L16988" class="LineNr">16988 </span> 8b/-> *ecx 0/r32/eax -<span id="L16989" class="LineNr">16989 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L16990" class="LineNr">16990 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L16991" class="LineNr">16991 </span> <span class="subxComment"># if (tmp != '_') break</span> -<span id="L16992" class="LineNr">16992 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L16993" class="LineNr">16993 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L16994" class="LineNr">16994 </span><span class="Constant">$parse-type:type-parameter</span>: -<span id="L16995" class="LineNr">16995 </span> <span class="subxComment"># out->value = type-parameter</span> -<span id="L16996" class="LineNr">16996 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L16997" class="LineNr">16997 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> -<span id="L16998" class="LineNr">16998 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> -<span id="L16999" class="LineNr">16999 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) -<span id="L17000" class="LineNr">17000 </span> e9/jump $parse-type:end/disp32 -<span id="L17001" class="LineNr">17001 </span> } -<span id="L17002" class="LineNr">17002 </span><span class="Constant">$parse-type:non-type-parameter</span>: -<span id="L17003" class="LineNr">17003 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> -<span id="L17004" class="LineNr">17004 </span> (<a href='mu.subx.html#L17260'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> %ecx) <span class="subxComment"># => eax</span> -<span id="L17005" class="LineNr">17005 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L17006" class="LineNr">17006 </span> e9/jump $parse-type:end/disp32 -<span id="L17007" class="LineNr">17007 </span> } -<span id="L17008" class="LineNr">17008 </span><span class="Constant">$parse-type:non-atom</span>: -<span id="L17009" class="LineNr">17009 </span> <span class="subxComment"># otherwise s == "("</span> -<span id="L17010" class="LineNr">17010 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> -<span id="L17011" class="LineNr">17011 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17012" class="LineNr">17012 </span> (<a href='mu.subx.html#L16888'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17013" class="LineNr">17013 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17014" class="LineNr">17014 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L17015" class="LineNr">17015 </span> (<a href='mu.subx.html#L17037'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17016" class="LineNr">17016 </span><span class="Constant">$parse-type:end</span>: -<span id="L17017" class="LineNr">17017 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17018" class="LineNr">17018 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17019" class="LineNr">17019 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17020" class="LineNr">17020 </span> 5a/pop-to-edx -<span id="L17021" class="LineNr">17021 </span> 59/pop-to-ecx -<span id="L17022" class="LineNr">17022 </span> 58/pop-to-eax -<span id="L17023" class="LineNr">17023 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17024" class="LineNr">17024 </span> 89/<- %esp 5/r32/ebp -<span id="L17025" class="LineNr">17025 </span> 5d/pop-to-ebp -<span id="L17026" class="LineNr">17026 </span> c3/return -<span id="L17027" class="LineNr">17027 </span> -<span id="L17028" class="LineNr">17028 </span><span class="Constant">$parse-type:abort</span>: -<span id="L17029" class="LineNr">17029 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> -<span id="L17030" class="LineNr">17030 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) -<span id="L17031" class="LineNr">17031 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) -<span id="L17032" class="LineNr">17032 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) -<span id="L17033" class="LineNr">17033 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L17034" class="LineNr">17034 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L17035" class="LineNr">17035 </span> <span class="subxComment"># never gets here</span> -<span id="L17036" class="LineNr">17036 </span> -<span id="L17037" class="LineNr">17037 </span><span class="subxFunction">parse-type-tree</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr stream byte), out: (addr handle type-tree), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L17038" class="LineNr">17038 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17039" class="LineNr">17039 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> -<span id="L17040" class="LineNr">17040 </span> <span class="subxComment"># if tmp == 0</span> -<span id="L17041" class="LineNr">17041 </span> <span class="subxComment"># return 0</span> -<span id="L17042" class="LineNr">17042 </span> <span class="subxComment"># out = allocate(Type-tree)</span> -<span id="L17043" class="LineNr">17043 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L17044" class="LineNr">17044 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17045" class="LineNr">17045 </span> <span class="subxComment">#</span> -<span id="L17046" class="LineNr">17046 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17047" class="LineNr">17047 </span> 55/push-ebp -<span id="L17048" class="LineNr">17048 </span> 89/<- %ebp 4/r32/esp -<span id="L17049" class="LineNr">17049 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17050" class="LineNr">17050 </span> 50/push-eax -<span id="L17051" class="LineNr">17051 </span> 51/push-ecx -<span id="L17052" class="LineNr">17052 </span> 52/push-edx -<span id="L17053" class="LineNr">17053 </span> <span class="subxComment">#</span> -<span id="L17054" class="LineNr">17054 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L17055" class="LineNr">17055 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> -<span id="L17056" class="LineNr">17056 </span> 68/push 0/imm32 -<span id="L17057" class="LineNr">17057 </span> 68/push 0/imm32 -<span id="L17058" class="LineNr">17058 </span> 89/<- %ecx 4/r32/esp -<span id="L17059" class="LineNr">17059 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> -<span id="L17060" class="LineNr">17060 </span> (<a href='mu.subx.html#L16888'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) -<span id="L17061" class="LineNr">17061 </span> <span class="subxComment"># if (tmp == 0) return</span> -<span id="L17062" class="LineNr">17062 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L17063" class="LineNr">17063 </span> 74/jump-if-= $parse-type-tree:end/disp8 -<span id="L17064" class="LineNr">17064 </span> <span class="subxComment"># out = new tree</span> -<span id="L17065" class="LineNr">17065 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> *(ebp+0x10)) -<span id="L17066" class="LineNr">17066 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> -<span id="L17067" class="LineNr">17067 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L17068" class="LineNr">17068 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17069" class="LineNr">17069 </span> 89/<- %edx 0/r32/eax -<span id="L17070" class="LineNr">17070 </span> <span class="subxComment"># out->left = tmp</span> -<span id="L17071" class="LineNr">17071 </span> 8b/-> *ecx 0/r32/eax -<span id="L17072" class="LineNr">17072 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17073" class="LineNr">17073 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L17074" class="LineNr">17074 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> -<span id="L17075" class="LineNr">17075 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> -<span id="L17076" class="LineNr">17076 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> -<span id="L17077" class="LineNr">17077 </span> (<a href='mu.subx.html#L17037'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17078" class="LineNr">17078 </span><span class="Constant">$parse-type-tree:end</span>: -<span id="L17079" class="LineNr">17079 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17080" class="LineNr">17080 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17081" class="LineNr">17081 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17082" class="LineNr">17082 </span> 5a/pop-to-edx -<span id="L17083" class="LineNr">17083 </span> 59/pop-to-ecx -<span id="L17084" class="LineNr">17084 </span> 58/pop-to-eax -<span id="L17085" class="LineNr">17085 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17086" class="LineNr">17086 </span> 89/<- %esp 5/r32/ebp -<span id="L17087" class="LineNr">17087 </span> 5d/pop-to-ebp -<span id="L17088" class="LineNr">17088 </span> c3/return -<span id="L17089" class="LineNr">17089 </span> -<span id="L17090" class="LineNr">17090 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> -<span id="L17091" class="LineNr">17091 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17092" class="LineNr">17092 </span> <span class="subxComment"># start:</span> -<span id="L17093" class="LineNr">17093 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> -<span id="L17094" class="LineNr">17094 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> -<span id="L17095" class="LineNr">17095 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L17096" class="LineNr">17096 </span> <span class="subxComment"># return</span> -<span id="L17097" class="LineNr">17097 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L17098" class="LineNr">17098 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L17099" class="LineNr">17099 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> -<span id="L17100" class="LineNr">17100 </span> <span class="subxComment"># ++in->read</span> -<span id="L17101" class="LineNr">17101 </span> <span class="subxComment"># goto start</span> -<span id="L17102" class="LineNr">17102 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> -<span id="L17103" class="LineNr">17103 </span> <span class="subxComment"># goto done # treat as eof</span> -<span id="L17104" class="LineNr">17104 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> -<span id="L17105" class="LineNr">17105 </span> <span class="subxComment"># skip-string(in)</span> -<span id="L17106" class="LineNr">17106 </span> <span class="subxComment"># goto done # no metadata</span> -<span id="L17107" class="LineNr">17107 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L17108" class="LineNr">17108 </span> <span class="subxComment"># ++in->read</span> -<span id="L17109" class="LineNr">17109 </span> <span class="subxComment"># goto done</span> -<span id="L17110" class="LineNr">17110 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L17111" class="LineNr">17111 </span> <span class="subxComment"># ++in->read</span> -<span id="L17112" class="LineNr">17112 </span> <span class="subxComment"># goto done</span> -<span id="L17113" class="LineNr">17113 </span> <span class="subxComment"># # read a word</span> -<span id="L17114" class="LineNr">17114 </span> <span class="subxComment"># while true</span> -<span id="L17115" class="LineNr">17115 </span> <span class="subxComment"># if in->read >= in->write</span> -<span id="L17116" class="LineNr">17116 </span> <span class="subxComment"># break</span> -<span id="L17117" class="LineNr">17117 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> -<span id="L17118" class="LineNr">17118 </span> <span class="subxComment"># if curr-byte == ' '</span> -<span id="L17119" class="LineNr">17119 </span> <span class="subxComment"># break</span> -<span id="L17120" class="LineNr">17120 </span> <span class="subxComment"># if curr-byte == '\r'</span> -<span id="L17121" class="LineNr">17121 </span> <span class="subxComment"># break</span> -<span id="L17122" class="LineNr">17122 </span> <span class="subxComment"># if curr-byte == '\n'</span> -<span id="L17123" class="LineNr">17123 </span> <span class="subxComment"># break</span> -<span id="L17124" class="LineNr">17124 </span> <span class="subxComment"># if curr-byte == '('</span> -<span id="L17125" class="LineNr">17125 </span> <span class="subxComment"># break</span> -<span id="L17126" class="LineNr">17126 </span> <span class="subxComment"># if curr-byte == ')'</span> -<span id="L17127" class="LineNr">17127 </span> <span class="subxComment"># break</span> -<span id="L17128" class="LineNr">17128 </span> <span class="subxComment"># if curr-byte == ','</span> -<span id="L17129" class="LineNr">17129 </span> <span class="subxComment"># break</span> -<span id="L17130" class="LineNr">17130 </span> <span class="subxComment"># ++in->read</span> -<span id="L17131" class="LineNr">17131 </span> <span class="subxComment"># done:</span> -<span id="L17132" class="LineNr">17132 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L17133" class="LineNr">17133 </span> <span class="subxComment">#</span> -<span id="L17134" class="LineNr">17134 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17135" class="LineNr">17135 </span> 55/push-ebp -<span id="L17136" class="LineNr">17136 </span> 89/<- %ebp 4/r32/esp -<span id="L17137" class="LineNr">17137 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17138" class="LineNr">17138 </span> 50/push-eax -<span id="L17139" class="LineNr">17139 </span> 51/push-ecx -<span id="L17140" class="LineNr">17140 </span> 56/push-esi -<span id="L17141" class="LineNr">17141 </span> 57/push-edi -<span id="L17142" class="LineNr">17142 </span> <span class="subxComment"># esi = in</span> -<span id="L17143" class="LineNr">17143 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17144" class="LineNr">17144 </span> <span class="subxComment"># edi = out</span> -<span id="L17145" class="LineNr">17145 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L17146" class="LineNr">17146 </span><span class="Constant">$next-mu-token:start</span>: -<span id="L17147" class="LineNr">17147 </span> (<a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) -<span id="L17148" class="LineNr">17148 </span><span class="Constant">$next-mu-token:check0</span>: -<span id="L17149" class="LineNr">17149 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> -<span id="L17150" class="LineNr">17150 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L17151" class="LineNr">17151 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17152" class="LineNr">17152 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> -<span id="L17153" class="LineNr">17153 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L17154" class="LineNr">17154 </span> c7 0/subop/copy *edi 0/imm32 -<span id="L17155" class="LineNr">17155 </span> c7 0/subop/copy *(edi+4) 0/imm32 -<span id="L17156" class="LineNr">17156 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 -<span id="L17157" class="LineNr">17157 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> -<span id="L17158" class="LineNr">17158 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L17159" class="LineNr">17159 </span> 89/<- *edi 0/r32/eax -<span id="L17160" class="LineNr">17160 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> -<span id="L17161" class="LineNr">17161 </span> 31/xor-with %eax 0/r32/eax -<span id="L17162" class="LineNr">17162 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L17163" class="LineNr">17163 </span> { -<span id="L17164" class="LineNr">17164 </span><span class="Constant">$next-mu-token:check-for-comma</span>: -<span id="L17165" class="LineNr">17165 </span> <span class="subxComment"># if (curr-byte != ',') break</span> -<span id="L17166" class="LineNr">17166 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L17167" class="LineNr">17167 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17168" class="LineNr">17168 </span> <span class="subxComment"># ++in->read</span> -<span id="L17169" class="LineNr">17169 </span> ff 0/subop/increment *(esi+4) -<span id="L17170" class="LineNr">17170 </span> <span class="subxComment"># restart</span> -<span id="L17171" class="LineNr">17171 </span> e9/jump $next-mu-token:start/disp32 -<span id="L17172" class="LineNr">17172 </span> } -<span id="L17173" class="LineNr">17173 </span> { -<span id="L17174" class="LineNr">17174 </span><span class="Constant">$next-mu-token:check-for-comment</span>: -<span id="L17175" class="LineNr">17175 </span> <span class="subxComment"># if (curr-byte != '#') break</span> -<span id="L17176" class="LineNr">17176 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L17177" class="LineNr">17177 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17178" class="LineNr">17178 </span> <span class="subxComment"># return eof</span> -<span id="L17179" class="LineNr">17179 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17180" class="LineNr">17180 </span> } -<span id="L17181" class="LineNr">17181 </span> { -<span id="L17182" class="LineNr">17182 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: -<span id="L17183" class="LineNr">17183 </span> <span class="subxComment"># if (curr-byte != '"') break</span> -<span id="L17184" class="LineNr">17184 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L17185" class="LineNr">17185 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17186" class="LineNr">17186 </span> (<a href='../124next-token.subx.html#L1171'>skip-string</a> %esi) -<span id="L17187" class="LineNr">17187 </span> <span class="subxComment"># return</span> -<span id="L17188" class="LineNr">17188 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17189" class="LineNr">17189 </span> } -<span id="L17190" class="LineNr">17190 </span> { -<span id="L17191" class="LineNr">17191 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: -<span id="L17192" class="LineNr">17192 </span> <span class="subxComment"># if (curr-byte != '(') break</span> -<span id="L17193" class="LineNr">17193 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L17194" class="LineNr">17194 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17195" class="LineNr">17195 </span> <span class="subxComment"># ++in->read</span> -<span id="L17196" class="LineNr">17196 </span> ff 0/subop/increment *(esi+4) -<span id="L17197" class="LineNr">17197 </span> <span class="subxComment"># return</span> -<span id="L17198" class="LineNr">17198 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17199" class="LineNr">17199 </span> } -<span id="L17200" class="LineNr">17200 </span> { -<span id="L17201" class="LineNr">17201 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: -<span id="L17202" class="LineNr">17202 </span> <span class="subxComment"># if (curr-byte != ')') break</span> -<span id="L17203" class="LineNr">17203 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L17204" class="LineNr">17204 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17205" class="LineNr">17205 </span> <span class="subxComment"># ++in->read</span> -<span id="L17206" class="LineNr">17206 </span> ff 0/subop/increment *(esi+4) -<span id="L17207" class="LineNr">17207 </span> <span class="subxComment"># return</span> -<span id="L17208" class="LineNr">17208 </span> e9/jump $next-mu-token:done/disp32 -<span id="L17209" class="LineNr">17209 </span> } -<span id="L17210" class="LineNr">17210 </span> { -<span id="L17211" class="LineNr">17211 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: -<span id="L17212" class="LineNr">17212 </span> <span class="subxComment"># if (in->read >= in->write) break</span> -<span id="L17213" class="LineNr">17213 </span> <span class="subxS1Comment"># . ecx = in->read</span> -<span id="L17214" class="LineNr">17214 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17215" class="LineNr">17215 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> -<span id="L17216" class="LineNr">17216 </span> 3b/compare<- *esi 1/r32/ecx -<span id="L17217" class="LineNr">17217 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L17218" class="LineNr">17218 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> -<span id="L17219" class="LineNr">17219 </span> 31/xor-with %eax 0/r32/eax -<span id="L17220" class="LineNr">17220 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL -<span id="L17221" class="LineNr">17221 </span> <span class="subxComment"># if (c == ' ') break</span> -<span id="L17222" class="LineNr">17222 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L17223" class="LineNr">17223 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17224" class="LineNr">17224 </span> <span class="subxComment"># if (c == '\r') break</span> -<span id="L17225" class="LineNr">17225 </span> 3d/compare-eax-and 0xd/imm32/carriage-return -<span id="L17226" class="LineNr">17226 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17227" class="LineNr">17227 </span> <span class="subxComment"># if (c == '\n') break</span> -<span id="L17228" class="LineNr">17228 </span> 3d/compare-eax-and 0xa/imm32/newline -<span id="L17229" class="LineNr">17229 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L17230" class="LineNr">17230 </span> <span class="subxComment"># if (c == '(') break</span> -<span id="L17231" class="LineNr">17231 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L17232" class="LineNr">17232 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17233" class="LineNr">17233 </span> <span class="subxComment"># if (c == ')') break</span> -<span id="L17234" class="LineNr">17234 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L17235" class="LineNr">17235 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17236" class="LineNr">17236 </span> <span class="subxComment"># if (c == ',') break</span> -<span id="L17237" class="LineNr">17237 </span> 3d/compare-eax-and 0x2c/imm32/comma -<span id="L17238" class="LineNr">17238 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17239" class="LineNr">17239 </span> <span class="subxComment"># ++in->read</span> -<span id="L17240" class="LineNr">17240 </span> ff 0/subop/increment *(esi+4) -<span id="L17241" class="LineNr">17241 </span> <span class="subxComment">#</span> -<span id="L17242" class="LineNr">17242 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L17243" class="LineNr">17243 </span> } -<span id="L17244" class="LineNr">17244 </span><span class="Constant">$next-mu-token:done</span>: -<span id="L17245" class="LineNr">17245 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> -<span id="L17246" class="LineNr">17246 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L17247" class="LineNr">17247 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax -<span id="L17248" class="LineNr">17248 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L17249" class="LineNr">17249 </span><span class="Constant">$next-mu-token:end</span>: -<span id="L17250" class="LineNr">17250 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17251" class="LineNr">17251 </span> 5f/pop-to-edi -<span id="L17252" class="LineNr">17252 </span> 5e/pop-to-esi -<span id="L17253" class="LineNr">17253 </span> 59/pop-to-ecx -<span id="L17254" class="LineNr">17254 </span> 58/pop-to-eax -<span id="L17255" class="LineNr">17255 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17256" class="LineNr">17256 </span> 89/<- %esp 5/r32/ebp -<span id="L17257" class="LineNr">17257 </span> 5d/pop-to-ebp -<span id="L17258" class="LineNr">17258 </span> c3/return -<span id="L17259" class="LineNr">17259 </span> -<span id="L17260" class="LineNr">17260 </span><span class="subxFunction">pos-or-insert-slice</span>: <span class="subxComment"># arr: (addr stream (addr array byte)), s: (addr slice) -> index/eax: int</span> -<span id="L17261" class="LineNr">17261 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17262" class="LineNr">17262 </span> 55/push-ebp -<span id="L17263" class="LineNr">17263 </span> 89/<- %ebp 4/r32/esp -<span id="L17264" class="LineNr">17264 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> -<span id="L17265" class="LineNr">17265 </span> (<a href='mu.subx.html#L17288'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L17266" class="LineNr">17266 </span> 3d/compare-eax-and -1/imm32 -<span id="L17267" class="LineNr">17267 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 -<span id="L17268" class="LineNr">17268 </span><span class="Constant">$pos-or-insert-slice:insert</span>: -<span id="L17269" class="LineNr">17269 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> -<span id="L17270" class="LineNr">17270 </span> 68/push 0/imm32 -<span id="L17271" class="LineNr">17271 </span> 68/push 0/imm32 -<span id="L17272" class="LineNr">17272 </span> 89/<- %eax 4/r32/esp -<span id="L17273" class="LineNr">17273 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax) -<span id="L17274" class="LineNr">17274 </span> <span class="subxComment"># throw away alloc-id</span> -<span id="L17275" class="LineNr">17275 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L17276" class="LineNr">17276 </span> (<a href='../202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) -<span id="L17277" class="LineNr">17277 </span> (<a href='mu.subx.html#L17288'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L17278" class="LineNr">17278 </span><span class="Constant">$pos-or-insert-slice:end</span>: -<span id="L17279" class="LineNr">17279 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L17280" class="LineNr">17280 </span> 81 0/subop/add %esp 8/imm32 -<span id="L17281" class="LineNr">17281 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17282" class="LineNr">17282 </span> 89/<- %esp 5/r32/ebp -<span id="L17283" class="LineNr">17283 </span> 5d/pop-to-ebp -<span id="L17284" class="LineNr">17284 </span> c3/return -<span id="L17285" class="LineNr">17285 </span> -<span id="L17286" class="LineNr">17286 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> -<span id="L17287" class="LineNr">17287 </span><span class="subxComment"># index is denominated in elements, not bytes</span> -<span id="L17288" class="LineNr">17288 </span><span class="subxFunction">pos-slice</span>: <span class="subxComment"># arr: (addr stream (addr array byte)), s: (addr slice) -> index/eax: int</span> -<span id="L17289" class="LineNr">17289 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17290" class="LineNr">17290 </span> 55/push-ebp -<span id="L17291" class="LineNr">17291 </span> 89/<- %ebp 4/r32/esp -<span id="L17292" class="LineNr">17292 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17293" class="LineNr">17293 </span> 51/push-ecx -<span id="L17294" class="LineNr">17294 </span> 52/push-edx -<span id="L17295" class="LineNr">17295 </span> 53/push-ebx -<span id="L17296" class="LineNr">17296 </span> 56/push-esi -<span id="L17297" class="LineNr">17297 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> -<span id="L17298" class="LineNr">17298 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L17299" class="LineNr">17299 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17300" class="LineNr">17300 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17301" class="LineNr">17301 </span> <span class="subxComment"># esi = arr</span> -<span id="L17302" class="LineNr">17302 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17303" class="LineNr">17303 </span> <span class="subxComment"># var index/ecx: int = 0</span> -<span id="L17304" class="LineNr">17304 </span> b9/copy-to-ecx 0/imm32 -<span id="L17305" class="LineNr">17305 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> -<span id="L17306" class="LineNr">17306 </span> 8d/copy-address *(esi+0xc) 2/r32/edx -<span id="L17307" class="LineNr">17307 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> -<span id="L17308" class="LineNr">17308 </span> 8b/-> *esi 3/r32/ebx -<span id="L17309" class="LineNr">17309 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx -<span id="L17310" class="LineNr">17310 </span> { -<span id="L17311" class="LineNr">17311 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L17312" class="LineNr">17312 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L17313" class="LineNr">17313 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17314" class="LineNr">17314 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17315" class="LineNr">17315 </span> <span class="subxComment"># if (curr >= max) return -1</span> -<span id="L17316" class="LineNr">17316 </span> 39/compare %edx 3/r32/ebx -<span id="L17317" class="LineNr">17317 </span> b8/copy-to-eax -1/imm32 -<span id="L17318" class="LineNr">17318 </span> 73/jump-if-addr>= $pos-slice:end/disp8 -<span id="L17319" class="LineNr">17319 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> -<span id="L17320" class="LineNr">17320 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> -<span id="L17321" class="LineNr">17321 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17322" class="LineNr">17322 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L17323" class="LineNr">17323 </span> <span class="subxComment"># ++index</span> -<span id="L17324" class="LineNr">17324 </span> 41/increment-ecx -<span id="L17325" class="LineNr">17325 </span> <span class="subxComment"># curr += 4</span> -<span id="L17326" class="LineNr">17326 </span> 81 0/subop/add %edx 4/imm32 -<span id="L17327" class="LineNr">17327 </span> <span class="subxComment">#</span> -<span id="L17328" class="LineNr">17328 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L17329" class="LineNr">17329 </span> } -<span id="L17330" class="LineNr">17330 </span> <span class="subxComment"># return index</span> -<span id="L17331" class="LineNr">17331 </span> 89/<- %eax 1/r32/ecx -<span id="L17332" class="LineNr">17332 </span><span class="Constant">$pos-slice:end</span>: -<span id="L17333" class="LineNr">17333 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L17334" class="LineNr">17334 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L17335" class="LineNr">17335 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> -<span id="L17336" class="LineNr">17336 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17337" class="LineNr">17337 </span> 5e/pop-to-esi -<span id="L17338" class="LineNr">17338 </span> 5b/pop-to-ebx -<span id="L17339" class="LineNr">17339 </span> 5a/pop-to-edx -<span id="L17340" class="LineNr">17340 </span> 59/pop-to-ecx -<span id="L17341" class="LineNr">17341 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17342" class="LineNr">17342 </span> 89/<- %esp 5/r32/ebp -<span id="L17343" class="LineNr">17343 </span> 5d/pop-to-ebp -<span id="L17344" class="LineNr">17344 </span> c3/return -<span id="L17345" class="LineNr">17345 </span> -<span id="L17346" class="LineNr">17346 </span><span class="subxTest">test-parse-var-with-type</span>: -<span id="L17347" class="LineNr">17347 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17348" class="LineNr">17348 </span> 55/push-ebp -<span id="L17349" class="LineNr">17349 </span> 89/<- %ebp 4/r32/esp -<span id="L17350" class="LineNr">17350 </span> <span class="subxComment"># setup</span> -<span id="L17351" class="LineNr">17351 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17352" class="LineNr">17352 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L17353" class="LineNr">17353 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17354" class="LineNr">17354 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17355" class="LineNr">17355 </span> 8b/-> *eax 1/r32/ecx -<span id="L17356" class="LineNr">17356 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17357" class="LineNr">17357 </span> 05/add-to-eax 4/imm32 -<span id="L17358" class="LineNr">17358 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17359" class="LineNr">17359 </span> 51/push-ecx -<span id="L17360" class="LineNr">17360 </span> 50/push-eax -<span id="L17361" class="LineNr">17361 </span> 89/<- %ecx 4/r32/esp -<span id="L17362" class="LineNr">17362 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L17363" class="LineNr">17363 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17364" class="LineNr">17364 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int"</span>) -<span id="L17365" class="LineNr">17365 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17366" class="LineNr">17366 </span> 68/push 0/imm32 -<span id="L17367" class="LineNr">17367 </span> 68/push 0/imm32 -<span id="L17368" class="LineNr">17368 </span> 89/<- %edx 4/r32/esp -<span id="L17369" class="LineNr">17369 </span> <span class="subxComment">#</span> -<span id="L17370" class="LineNr">17370 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L17371" class="LineNr">17371 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17372" class="LineNr">17372 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17373" class="LineNr">17373 </span> 89/<- %edx 0/r32/eax -<span id="L17374" class="LineNr">17374 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17375" class="LineNr">17375 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17376" class="LineNr">17376 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17346'>test-parse-var-with-type</a>/name"</span>) -<span id="L17377" class="LineNr">17377 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17378" class="LineNr">17378 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17379" class="LineNr">17379 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17346'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17380" class="LineNr">17380 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17346'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17381" class="LineNr">17381 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17346'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17382" class="LineNr">17382 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17383" class="LineNr">17383 </span> 89/<- %esp 5/r32/ebp -<span id="L17384" class="LineNr">17384 </span> 5d/pop-to-ebp -<span id="L17385" class="LineNr">17385 </span> c3/return -<span id="L17386" class="LineNr">17386 </span> -<span id="L17387" class="LineNr">17387 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: -<span id="L17388" class="LineNr">17388 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17389" class="LineNr">17389 </span> 55/push-ebp -<span id="L17390" class="LineNr">17390 </span> 89/<- %ebp 4/r32/esp -<span id="L17391" class="LineNr">17391 </span> <span class="subxComment"># setup</span> -<span id="L17392" class="LineNr">17392 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17393" class="LineNr">17393 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L17394" class="LineNr">17394 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L17395" class="LineNr">17395 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L17396" class="LineNr">17396 </span> 8b/-> *eax 1/r32/ecx -<span id="L17397" class="LineNr">17397 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17398" class="LineNr">17398 </span> 05/add-to-eax 4/imm32 -<span id="L17399" class="LineNr">17399 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17400" class="LineNr">17400 </span> 51/push-ecx -<span id="L17401" class="LineNr">17401 </span> 50/push-eax -<span id="L17402" class="LineNr">17402 </span> 89/<- %ecx 4/r32/esp -<span id="L17403" class="LineNr">17403 </span> <span class="subxComment"># _test-input-stream contains "int"</span> -<span id="L17404" class="LineNr">17404 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17405" class="LineNr">17405 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int"</span>) -<span id="L17406" class="LineNr">17406 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17407" class="LineNr">17407 </span> 68/push 0/imm32 -<span id="L17408" class="LineNr">17408 </span> 68/push 0/imm32 -<span id="L17409" class="LineNr">17409 </span> 89/<- %edx 4/r32/esp -<span id="L17410" class="LineNr">17410 </span> <span class="subxComment">#</span> -<span id="L17411" class="LineNr">17411 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L17412" class="LineNr">17412 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17413" class="LineNr">17413 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17414" class="LineNr">17414 </span> 89/<- %edx 0/r32/eax -<span id="L17415" class="LineNr">17415 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17416" class="LineNr">17416 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17417" class="LineNr">17417 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17387'>test-parse-var-with-type-and-register</a>/name"</span>) -<span id="L17418" class="LineNr">17418 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17419" class="LineNr">17419 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17420" class="LineNr">17420 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L17387'>test-parse-var-with-type-and-register</a>/register"</span>) -<span id="L17421" class="LineNr">17421 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17422" class="LineNr">17422 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17423" class="LineNr">17423 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17387'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17424" class="LineNr">17424 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17387'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17425" class="LineNr">17425 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17387'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17426" class="LineNr">17426 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17427" class="LineNr">17427 </span> 89/<- %esp 5/r32/ebp -<span id="L17428" class="LineNr">17428 </span> 5d/pop-to-ebp -<span id="L17429" class="LineNr">17429 </span> c3/return -<span id="L17430" class="LineNr">17430 </span> -<span id="L17431" class="LineNr">17431 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: -<span id="L17432" class="LineNr">17432 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17433" class="LineNr">17433 </span> 55/push-ebp -<span id="L17434" class="LineNr">17434 </span> 89/<- %ebp 4/r32/esp -<span id="L17435" class="LineNr">17435 </span> <span class="subxComment"># setup</span> -<span id="L17436" class="LineNr">17436 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17437" class="LineNr">17437 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L17438" class="LineNr">17438 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17439" class="LineNr">17439 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17440" class="LineNr">17440 </span> 8b/-> *eax 1/r32/ecx -<span id="L17441" class="LineNr">17441 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17442" class="LineNr">17442 </span> 05/add-to-eax 4/imm32 -<span id="L17443" class="LineNr">17443 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17444" class="LineNr">17444 </span> 51/push-ecx -<span id="L17445" class="LineNr">17445 </span> 50/push-eax -<span id="L17446" class="LineNr">17446 </span> 89/<- %ecx 4/r32/esp -<span id="L17447" class="LineNr">17447 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L17448" class="LineNr">17448 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17449" class="LineNr">17449 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int,"</span>) -<span id="L17450" class="LineNr">17450 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17451" class="LineNr">17451 </span> 68/push 0/imm32 -<span id="L17452" class="LineNr">17452 </span> 68/push 0/imm32 -<span id="L17453" class="LineNr">17453 </span> 89/<- %edx 4/r32/esp -<span id="L17454" class="LineNr">17454 </span> <span class="subxComment">#</span> -<span id="L17455" class="LineNr">17455 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L17456" class="LineNr">17456 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17457" class="LineNr">17457 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17458" class="LineNr">17458 </span> 89/<- %edx 0/r32/eax -<span id="L17459" class="LineNr">17459 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17460" class="LineNr">17460 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17461" class="LineNr">17461 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17431'>test-parse-var-with-trailing-characters</a>/name"</span>) -<span id="L17462" class="LineNr">17462 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17463" class="LineNr">17463 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17431'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L17464" class="LineNr">17464 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17465" class="LineNr">17465 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17466" class="LineNr">17466 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17431'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17467" class="LineNr">17467 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17431'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17468" class="LineNr">17468 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17431'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17469" class="LineNr">17469 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17470" class="LineNr">17470 </span> 89/<- %esp 5/r32/ebp -<span id="L17471" class="LineNr">17471 </span> 5d/pop-to-ebp -<span id="L17472" class="LineNr">17472 </span> c3/return -<span id="L17473" class="LineNr">17473 </span> -<span id="L17474" class="LineNr">17474 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: -<span id="L17475" class="LineNr">17475 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17476" class="LineNr">17476 </span> 55/push-ebp -<span id="L17477" class="LineNr">17477 </span> 89/<- %ebp 4/r32/esp -<span id="L17478" class="LineNr">17478 </span> <span class="subxComment"># setup</span> -<span id="L17479" class="LineNr">17479 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17480" class="LineNr">17480 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L17481" class="LineNr">17481 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> -<span id="L17482" class="LineNr">17482 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 -<span id="L17483" class="LineNr">17483 </span> 8b/-> *eax 1/r32/ecx -<span id="L17484" class="LineNr">17484 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17485" class="LineNr">17485 </span> 05/add-to-eax 4/imm32 -<span id="L17486" class="LineNr">17486 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17487" class="LineNr">17487 </span> 51/push-ecx -<span id="L17488" class="LineNr">17488 </span> 50/push-eax -<span id="L17489" class="LineNr">17489 </span> 89/<- %ecx 4/r32/esp -<span id="L17490" class="LineNr">17490 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> -<span id="L17491" class="LineNr">17491 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17492" class="LineNr">17492 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int,"</span>) -<span id="L17493" class="LineNr">17493 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17494" class="LineNr">17494 </span> 68/push 0/imm32 -<span id="L17495" class="LineNr">17495 </span> 68/push 0/imm32 -<span id="L17496" class="LineNr">17496 </span> 89/<- %edx 4/r32/esp -<span id="L17497" class="LineNr">17497 </span> <span class="subxComment">#</span> -<span id="L17498" class="LineNr">17498 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L17499" class="LineNr">17499 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17500" class="LineNr">17500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17501" class="LineNr">17501 </span> 89/<- %edx 0/r32/eax -<span id="L17502" class="LineNr">17502 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17503" class="LineNr">17503 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17504" class="LineNr">17504 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17474'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) -<span id="L17505" class="LineNr">17505 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17506" class="LineNr">17506 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L17507" class="LineNr">17507 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L17474'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) -<span id="L17508" class="LineNr">17508 </span> <span class="subxComment"># check v-addr->type</span> -<span id="L17509" class="LineNr">17509 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17510" class="LineNr">17510 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17474'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17511" class="LineNr">17511 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17474'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> -<span id="L17512" class="LineNr">17512 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17474'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17513" class="LineNr">17513 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17514" class="LineNr">17514 </span> 89/<- %esp 5/r32/ebp -<span id="L17515" class="LineNr">17515 </span> 5d/pop-to-ebp -<span id="L17516" class="LineNr">17516 </span> c3/return -<span id="L17517" class="LineNr">17517 </span> -<span id="L17518" class="LineNr">17518 </span><span class="subxTest">test-parse-var-with-compound-type</span>: -<span id="L17519" class="LineNr">17519 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17520" class="LineNr">17520 </span> 55/push-ebp -<span id="L17521" class="LineNr">17521 </span> 89/<- %ebp 4/r32/esp -<span id="L17522" class="LineNr">17522 </span> <span class="subxComment"># setup</span> -<span id="L17523" class="LineNr">17523 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L17524" class="LineNr">17524 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L17525" class="LineNr">17525 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> -<span id="L17526" class="LineNr">17526 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 -<span id="L17527" class="LineNr">17527 </span> 8b/-> *eax 1/r32/ecx -<span id="L17528" class="LineNr">17528 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17529" class="LineNr">17529 </span> 05/add-to-eax 4/imm32 -<span id="L17530" class="LineNr">17530 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17531" class="LineNr">17531 </span> 51/push-ecx -<span id="L17532" class="LineNr">17532 </span> 50/push-eax -<span id="L17533" class="LineNr">17533 </span> 89/<- %ecx 4/r32/esp -<span id="L17534" class="LineNr">17534 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> -<span id="L17535" class="LineNr">17535 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L17536" class="LineNr">17536 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"(addr int)"</span>) -<span id="L17537" class="LineNr">17537 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L17538" class="LineNr">17538 </span> 68/push 0/imm32 -<span id="L17539" class="LineNr">17539 </span> 68/push 0/imm32 -<span id="L17540" class="LineNr">17540 </span> 89/<- %edx 4/r32/esp -<span id="L17541" class="LineNr">17541 </span> <span class="subxComment">#</span> -<span id="L17542" class="LineNr">17542 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L17543" class="LineNr">17543 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> -<span id="L17544" class="LineNr">17544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L17545" class="LineNr">17545 </span> 89/<- %edx 0/r32/eax -<span id="L17546" class="LineNr">17546 </span> <span class="subxComment"># check v-addr->name</span> -<span id="L17547" class="LineNr">17547 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L17548" class="LineNr">17548 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/name"</span>) -<span id="L17549" class="LineNr">17549 </span> <span class="subxComment"># check v-addr->register</span> -<span id="L17550" class="LineNr">17550 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> -<span id="L17551" class="LineNr">17551 </span> <span class="subxH1Comment"># - check v-addr->type</span> -<span id="L17552" class="LineNr">17552 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> -<span id="L17553" class="LineNr">17553 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L17554" class="LineNr">17554 </span> 89/<- %edx 0/r32/eax -<span id="L17555" class="LineNr">17555 </span> <span class="subxComment"># type is a non-atom</span> -<span id="L17556" class="LineNr">17556 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17557" class="LineNr">17557 </span> <span class="subxComment"># type->left == atom(addr)</span> -<span id="L17558" class="LineNr">17558 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17559" class="LineNr">17559 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17560" class="LineNr">17560 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17561" class="LineNr">17561 </span> <span class="subxComment"># type->right->left == atom(int)</span> -<span id="L17562" class="LineNr">17562 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L17563" class="LineNr">17563 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L17564" class="LineNr">17564 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L17565" class="LineNr">17565 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L17566" class="LineNr">17566 </span> <span class="subxComment"># type->right->right == null</span> -<span id="L17567" class="LineNr">17567 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17518'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L17568" class="LineNr">17568 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17569" class="LineNr">17569 </span> 89/<- %esp 5/r32/ebp -<span id="L17570" class="LineNr">17570 </span> 5d/pop-to-ebp -<span id="L17571" class="LineNr">17571 </span> c3/return -<span id="L17572" class="LineNr">17572 </span> -<span id="L17573" class="LineNr">17573 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> -<span id="L17574" class="LineNr">17574 </span><span class="subxComment"># no constraints at the moment on later letters</span> -<span id="L17575" class="LineNr">17575 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> -<span id="L17576" class="LineNr">17576 </span><span class="subxFunction">is-identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> -<span id="L17577" class="LineNr">17577 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17578" class="LineNr">17578 </span> 55/push-ebp -<span id="L17579" class="LineNr">17579 </span> 89/<- %ebp 4/r32/esp -<span id="L17580" class="LineNr">17580 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> -<span id="L17581" class="LineNr">17581 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L17582" class="LineNr">17582 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17583" class="LineNr">17583 </span> 75/jump-if-!= $is-identifier?:false/disp8 -<span id="L17584" class="LineNr">17584 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> -<span id="L17585" class="LineNr">17585 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L17586" class="LineNr">17586 </span> 8b/-> *eax 0/r32/eax -<span id="L17587" class="LineNr">17587 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L17588" class="LineNr">17588 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L17589" class="LineNr">17589 </span> <span class="subxComment"># if (c == '$') return true</span> -<span id="L17590" class="LineNr">17590 </span> 3d/compare-eax-and 0x24/imm32/$ -<span id="L17591" class="LineNr">17591 </span> 74/jump-if-= $is-identifier?:true/disp8 -<span id="L17592" class="LineNr">17592 </span> <span class="subxComment"># if (c == '_') return true</span> -<span id="L17593" class="LineNr">17593 </span> 3d/compare-eax-and 0x5f/imm32/_ -<span id="L17594" class="LineNr">17594 </span> 74/jump-if-= $is-identifier?:true/disp8 -<span id="L17595" class="LineNr">17595 </span> <span class="subxComment"># drop case</span> -<span id="L17596" class="LineNr">17596 </span> 25/and-eax-with 0x5f/imm32 -<span id="L17597" class="LineNr">17597 </span> <span class="subxComment"># if (c < 'A') return false</span> -<span id="L17598" class="LineNr">17598 </span> 3d/compare-eax-and 0x41/imm32/A -<span id="L17599" class="LineNr">17599 </span> 7c/jump-if-< $is-identifier?:false/disp8 -<span id="L17600" class="LineNr">17600 </span> <span class="subxComment"># if (c > 'Z') return false</span> -<span id="L17601" class="LineNr">17601 </span> 3d/compare-eax-and 0x5a/imm32/Z -<span id="L17602" class="LineNr">17602 </span> 7f/jump-if-> $is-identifier?:false/disp8 -<span id="L17603" class="LineNr">17603 </span> <span class="subxComment"># otherwise return true</span> -<span id="L17604" class="LineNr">17604 </span><span class="Constant">$is-identifier?:true</span>: -<span id="L17605" class="LineNr">17605 </span> b8/copy-to-eax 1/imm32/true -<span id="L17606" class="LineNr">17606 </span> eb/jump $is-identifier?:end/disp8 -<span id="L17607" class="LineNr">17607 </span><span class="Constant">$is-identifier?:false</span>: -<span id="L17608" class="LineNr">17608 </span> b8/copy-to-eax 0/imm32/false -<span id="L17609" class="LineNr">17609 </span><span class="Constant">$is-identifier?:end</span>: -<span id="L17610" class="LineNr">17610 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17611" class="LineNr">17611 </span> 89/<- %esp 5/r32/ebp -<span id="L17612" class="LineNr">17612 </span> 5d/pop-to-ebp -<span id="L17613" class="LineNr">17613 </span> c3/return -<span id="L17614" class="LineNr">17614 </span> -<span id="L17615" class="LineNr">17615 </span><span class="subxTest">test-is-identifier-dollar</span>: -<span id="L17616" class="LineNr">17616 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17617" class="LineNr">17617 </span> 55/push-ebp -<span id="L17618" class="LineNr">17618 </span> 89/<- %ebp 4/r32/esp -<span id="L17619" class="LineNr">17619 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> -<span id="L17620" class="LineNr">17620 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 -<span id="L17621" class="LineNr">17621 </span> 8b/-> *eax 1/r32/ecx -<span id="L17622" class="LineNr">17622 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17623" class="LineNr">17623 </span> 05/add-to-eax 4/imm32 -<span id="L17624" class="LineNr">17624 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17625" class="LineNr">17625 </span> 51/push-ecx -<span id="L17626" class="LineNr">17626 </span> 50/push-eax -<span id="L17627" class="LineNr">17627 </span> 89/<- %ecx 4/r32/esp -<span id="L17628" class="LineNr">17628 </span> <span class="subxComment">#</span> -<span id="L17629" class="LineNr">17629 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17630" class="LineNr">17630 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) -<span id="L17631" class="LineNr">17631 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17632" class="LineNr">17632 </span> 89/<- %esp 5/r32/ebp -<span id="L17633" class="LineNr">17633 </span> 5d/pop-to-ebp -<span id="L17634" class="LineNr">17634 </span> c3/return -<span id="L17635" class="LineNr">17635 </span> -<span id="L17636" class="LineNr">17636 </span><span class="subxTest">test-is-identifier-underscore</span>: -<span id="L17637" class="LineNr">17637 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17638" class="LineNr">17638 </span> 55/push-ebp -<span id="L17639" class="LineNr">17639 </span> 89/<- %ebp 4/r32/esp -<span id="L17640" class="LineNr">17640 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> -<span id="L17641" class="LineNr">17641 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 -<span id="L17642" class="LineNr">17642 </span> 8b/-> *eax 1/r32/ecx -<span id="L17643" class="LineNr">17643 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17644" class="LineNr">17644 </span> 05/add-to-eax 4/imm32 -<span id="L17645" class="LineNr">17645 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17646" class="LineNr">17646 </span> 51/push-ecx -<span id="L17647" class="LineNr">17647 </span> 50/push-eax -<span id="L17648" class="LineNr">17648 </span> 89/<- %ecx 4/r32/esp -<span id="L17649" class="LineNr">17649 </span> <span class="subxComment">#</span> -<span id="L17650" class="LineNr">17650 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17651" class="LineNr">17651 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) -<span id="L17652" class="LineNr">17652 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17653" class="LineNr">17653 </span> 89/<- %esp 5/r32/ebp -<span id="L17654" class="LineNr">17654 </span> 5d/pop-to-ebp -<span id="L17655" class="LineNr">17655 </span> c3/return -<span id="L17656" class="LineNr">17656 </span> -<span id="L17657" class="LineNr">17657 </span><span class="subxTest">test-is-identifier-a</span>: -<span id="L17658" class="LineNr">17658 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17659" class="LineNr">17659 </span> 55/push-ebp -<span id="L17660" class="LineNr">17660 </span> 89/<- %ebp 4/r32/esp -<span id="L17661" class="LineNr">17661 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> -<span id="L17662" class="LineNr">17662 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 -<span id="L17663" class="LineNr">17663 </span> 8b/-> *eax 1/r32/ecx -<span id="L17664" class="LineNr">17664 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17665" class="LineNr">17665 </span> 05/add-to-eax 4/imm32 -<span id="L17666" class="LineNr">17666 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17667" class="LineNr">17667 </span> 51/push-ecx -<span id="L17668" class="LineNr">17668 </span> 50/push-eax -<span id="L17669" class="LineNr">17669 </span> 89/<- %ecx 4/r32/esp -<span id="L17670" class="LineNr">17670 </span> <span class="subxComment">#</span> -<span id="L17671" class="LineNr">17671 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17672" class="LineNr">17672 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) -<span id="L17673" class="LineNr">17673 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17674" class="LineNr">17674 </span> 89/<- %esp 5/r32/ebp -<span id="L17675" class="LineNr">17675 </span> 5d/pop-to-ebp -<span id="L17676" class="LineNr">17676 </span> c3/return -<span id="L17677" class="LineNr">17677 </span> -<span id="L17678" class="LineNr">17678 </span><span class="subxTest">test-is-identifier-z</span>: -<span id="L17679" class="LineNr">17679 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17680" class="LineNr">17680 </span> 55/push-ebp -<span id="L17681" class="LineNr">17681 </span> 89/<- %ebp 4/r32/esp -<span id="L17682" class="LineNr">17682 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> -<span id="L17683" class="LineNr">17683 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 -<span id="L17684" class="LineNr">17684 </span> 8b/-> *eax 1/r32/ecx -<span id="L17685" class="LineNr">17685 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17686" class="LineNr">17686 </span> 05/add-to-eax 4/imm32 -<span id="L17687" class="LineNr">17687 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17688" class="LineNr">17688 </span> 51/push-ecx -<span id="L17689" class="LineNr">17689 </span> 50/push-eax -<span id="L17690" class="LineNr">17690 </span> 89/<- %ecx 4/r32/esp -<span id="L17691" class="LineNr">17691 </span> <span class="subxComment">#</span> -<span id="L17692" class="LineNr">17692 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17693" class="LineNr">17693 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) -<span id="L17694" class="LineNr">17694 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17695" class="LineNr">17695 </span> 89/<- %esp 5/r32/ebp -<span id="L17696" class="LineNr">17696 </span> 5d/pop-to-ebp -<span id="L17697" class="LineNr">17697 </span> c3/return -<span id="L17698" class="LineNr">17698 </span> -<span id="L17699" class="LineNr">17699 </span><span class="subxTest">test-is-identifier-A</span>: -<span id="L17700" class="LineNr">17700 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17701" class="LineNr">17701 </span> 55/push-ebp -<span id="L17702" class="LineNr">17702 </span> 89/<- %ebp 4/r32/esp -<span id="L17703" class="LineNr">17703 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> -<span id="L17704" class="LineNr">17704 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 -<span id="L17705" class="LineNr">17705 </span> 8b/-> *eax 1/r32/ecx -<span id="L17706" class="LineNr">17706 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17707" class="LineNr">17707 </span> 05/add-to-eax 4/imm32 -<span id="L17708" class="LineNr">17708 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17709" class="LineNr">17709 </span> 51/push-ecx -<span id="L17710" class="LineNr">17710 </span> 50/push-eax -<span id="L17711" class="LineNr">17711 </span> 89/<- %ecx 4/r32/esp -<span id="L17712" class="LineNr">17712 </span> <span class="subxComment">#</span> -<span id="L17713" class="LineNr">17713 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17714" class="LineNr">17714 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) -<span id="L17715" class="LineNr">17715 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17716" class="LineNr">17716 </span> 89/<- %esp 5/r32/ebp -<span id="L17717" class="LineNr">17717 </span> 5d/pop-to-ebp -<span id="L17718" class="LineNr">17718 </span> c3/return -<span id="L17719" class="LineNr">17719 </span> -<span id="L17720" class="LineNr">17720 </span><span class="subxTest">test-is-identifier-Z</span>: -<span id="L17721" class="LineNr">17721 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17722" class="LineNr">17722 </span> 55/push-ebp -<span id="L17723" class="LineNr">17723 </span> 89/<- %ebp 4/r32/esp -<span id="L17724" class="LineNr">17724 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> -<span id="L17725" class="LineNr">17725 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 -<span id="L17726" class="LineNr">17726 </span> 8b/-> *eax 1/r32/ecx -<span id="L17727" class="LineNr">17727 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17728" class="LineNr">17728 </span> 05/add-to-eax 4/imm32 -<span id="L17729" class="LineNr">17729 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17730" class="LineNr">17730 </span> 51/push-ecx -<span id="L17731" class="LineNr">17731 </span> 50/push-eax -<span id="L17732" class="LineNr">17732 </span> 89/<- %ecx 4/r32/esp -<span id="L17733" class="LineNr">17733 </span> <span class="subxComment">#</span> -<span id="L17734" class="LineNr">17734 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17735" class="LineNr">17735 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) -<span id="L17736" class="LineNr">17736 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17737" class="LineNr">17737 </span> 89/<- %esp 5/r32/ebp -<span id="L17738" class="LineNr">17738 </span> 5d/pop-to-ebp -<span id="L17739" class="LineNr">17739 </span> c3/return -<span id="L17740" class="LineNr">17740 </span> -<span id="L17741" class="LineNr">17741 </span><span class="subxTest">test-is-identifier-at</span>: -<span id="L17742" class="LineNr">17742 </span> <span class="subxComment"># character before 'A' is invalid</span> -<span id="L17743" class="LineNr">17743 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17744" class="LineNr">17744 </span> 55/push-ebp -<span id="L17745" class="LineNr">17745 </span> 89/<- %ebp 4/r32/esp -<span id="L17746" class="LineNr">17746 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> -<span id="L17747" class="LineNr">17747 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 -<span id="L17748" class="LineNr">17748 </span> 8b/-> *eax 1/r32/ecx -<span id="L17749" class="LineNr">17749 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17750" class="LineNr">17750 </span> 05/add-to-eax 4/imm32 -<span id="L17751" class="LineNr">17751 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17752" class="LineNr">17752 </span> 51/push-ecx -<span id="L17753" class="LineNr">17753 </span> 50/push-eax -<span id="L17754" class="LineNr">17754 </span> 89/<- %ecx 4/r32/esp -<span id="L17755" class="LineNr">17755 </span> <span class="subxComment">#</span> -<span id="L17756" class="LineNr">17756 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17757" class="LineNr">17757 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L17758" class="LineNr">17758 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17759" class="LineNr">17759 </span> 89/<- %esp 5/r32/ebp -<span id="L17760" class="LineNr">17760 </span> 5d/pop-to-ebp -<span id="L17761" class="LineNr">17761 </span> c3/return -<span id="L17762" class="LineNr">17762 </span> -<span id="L17763" class="LineNr">17763 </span><span class="subxTest">test-is-identifier-square-bracket</span>: -<span id="L17764" class="LineNr">17764 </span> <span class="subxComment"># character after 'Z' is invalid</span> -<span id="L17765" class="LineNr">17765 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17766" class="LineNr">17766 </span> 55/push-ebp -<span id="L17767" class="LineNr">17767 </span> 89/<- %ebp 4/r32/esp -<span id="L17768" class="LineNr">17768 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> -<span id="L17769" class="LineNr">17769 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 -<span id="L17770" class="LineNr">17770 </span> 8b/-> *eax 1/r32/ecx -<span id="L17771" class="LineNr">17771 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17772" class="LineNr">17772 </span> 05/add-to-eax 4/imm32 -<span id="L17773" class="LineNr">17773 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17774" class="LineNr">17774 </span> 51/push-ecx -<span id="L17775" class="LineNr">17775 </span> 50/push-eax -<span id="L17776" class="LineNr">17776 </span> 89/<- %ecx 4/r32/esp -<span id="L17777" class="LineNr">17777 </span> <span class="subxComment">#</span> -<span id="L17778" class="LineNr">17778 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17779" class="LineNr">17779 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) -<span id="L17780" class="LineNr">17780 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17781" class="LineNr">17781 </span> 89/<- %esp 5/r32/ebp -<span id="L17782" class="LineNr">17782 </span> 5d/pop-to-ebp -<span id="L17783" class="LineNr">17783 </span> c3/return -<span id="L17784" class="LineNr">17784 </span> -<span id="L17785" class="LineNr">17785 </span><span class="subxTest">test-is-identifier-backtick</span>: -<span id="L17786" class="LineNr">17786 </span> <span class="subxComment"># character before 'a' is invalid</span> -<span id="L17787" class="LineNr">17787 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17788" class="LineNr">17788 </span> 55/push-ebp -<span id="L17789" class="LineNr">17789 </span> 89/<- %ebp 4/r32/esp -<span id="L17790" class="LineNr">17790 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> -<span id="L17791" class="LineNr">17791 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 -<span id="L17792" class="LineNr">17792 </span> 8b/-> *eax 1/r32/ecx -<span id="L17793" class="LineNr">17793 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17794" class="LineNr">17794 </span> 05/add-to-eax 4/imm32 -<span id="L17795" class="LineNr">17795 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17796" class="LineNr">17796 </span> 51/push-ecx -<span id="L17797" class="LineNr">17797 </span> 50/push-eax -<span id="L17798" class="LineNr">17798 </span> 89/<- %ecx 4/r32/esp -<span id="L17799" class="LineNr">17799 </span> <span class="subxComment">#</span> -<span id="L17800" class="LineNr">17800 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17801" class="LineNr">17801 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) -<span id="L17802" class="LineNr">17802 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17803" class="LineNr">17803 </span> 89/<- %esp 5/r32/ebp -<span id="L17804" class="LineNr">17804 </span> 5d/pop-to-ebp -<span id="L17805" class="LineNr">17805 </span> c3/return -<span id="L17806" class="LineNr">17806 </span> -<span id="L17807" class="LineNr">17807 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: -<span id="L17808" class="LineNr">17808 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> -<span id="L17809" class="LineNr">17809 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17810" class="LineNr">17810 </span> 55/push-ebp -<span id="L17811" class="LineNr">17811 </span> 89/<- %ebp 4/r32/esp -<span id="L17812" class="LineNr">17812 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> -<span id="L17813" class="LineNr">17813 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 -<span id="L17814" class="LineNr">17814 </span> 8b/-> *eax 1/r32/ecx -<span id="L17815" class="LineNr">17815 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17816" class="LineNr">17816 </span> 05/add-to-eax 4/imm32 -<span id="L17817" class="LineNr">17817 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17818" class="LineNr">17818 </span> 51/push-ecx -<span id="L17819" class="LineNr">17819 </span> 50/push-eax -<span id="L17820" class="LineNr">17820 </span> 89/<- %ecx 4/r32/esp -<span id="L17821" class="LineNr">17821 </span> <span class="subxComment">#</span> -<span id="L17822" class="LineNr">17822 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17823" class="LineNr">17823 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-curly-brace-open"</span>) -<span id="L17824" class="LineNr">17824 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17825" class="LineNr">17825 </span> 89/<- %esp 5/r32/ebp -<span id="L17826" class="LineNr">17826 </span> 5d/pop-to-ebp -<span id="L17827" class="LineNr">17827 </span> c3/return -<span id="L17828" class="LineNr">17828 </span> -<span id="L17829" class="LineNr">17829 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: -<span id="L17830" class="LineNr">17830 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17831" class="LineNr">17831 </span> 55/push-ebp -<span id="L17832" class="LineNr">17832 </span> 89/<- %ebp 4/r32/esp -<span id="L17833" class="LineNr">17833 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> -<span id="L17834" class="LineNr">17834 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 -<span id="L17835" class="LineNr">17835 </span> 8b/-> *eax 1/r32/ecx -<span id="L17836" class="LineNr">17836 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17837" class="LineNr">17837 </span> 05/add-to-eax 4/imm32 -<span id="L17838" class="LineNr">17838 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17839" class="LineNr">17839 </span> 51/push-ecx -<span id="L17840" class="LineNr">17840 </span> 50/push-eax -<span id="L17841" class="LineNr">17841 </span> 89/<- %ecx 4/r32/esp -<span id="L17842" class="LineNr">17842 </span> <span class="subxComment">#</span> -<span id="L17843" class="LineNr">17843 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17844" class="LineNr">17844 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-curly-brace-close"</span>) -<span id="L17845" class="LineNr">17845 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17846" class="LineNr">17846 </span> 89/<- %esp 5/r32/ebp -<span id="L17847" class="LineNr">17847 </span> 5d/pop-to-ebp -<span id="L17848" class="LineNr">17848 </span> c3/return -<span id="L17849" class="LineNr">17849 </span> -<span id="L17850" class="LineNr">17850 </span><span class="subxTest">test-is-identifier-hyphen</span>: -<span id="L17851" class="LineNr">17851 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> -<span id="L17852" class="LineNr">17852 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17853" class="LineNr">17853 </span> 55/push-ebp -<span id="L17854" class="LineNr">17854 </span> 89/<- %ebp 4/r32/esp -<span id="L17855" class="LineNr">17855 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> -<span id="L17856" class="LineNr">17856 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 -<span id="L17857" class="LineNr">17857 </span> 8b/-> *eax 1/r32/ecx -<span id="L17858" class="LineNr">17858 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx -<span id="L17859" class="LineNr">17859 </span> 05/add-to-eax 4/imm32 -<span id="L17860" class="LineNr">17860 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L17861" class="LineNr">17861 </span> 51/push-ecx -<span id="L17862" class="LineNr">17862 </span> 50/push-eax -<span id="L17863" class="LineNr">17863 </span> 89/<- %ecx 4/r32/esp -<span id="L17864" class="LineNr">17864 </span> <span class="subxComment">#</span> -<span id="L17865" class="LineNr">17865 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) -<span id="L17866" class="LineNr">17866 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) -<span id="L17867" class="LineNr">17867 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17868" class="LineNr">17868 </span> 89/<- %esp 5/r32/ebp -<span id="L17869" class="LineNr">17869 </span> 5d/pop-to-ebp -<span id="L17870" class="LineNr">17870 </span> c3/return -<span id="L17871" class="LineNr">17871 </span> -<span id="L17872" class="LineNr">17872 </span><span class="subxFunction">populate-mu-function-body</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr function), vars: (addr stack live-var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L17873" class="LineNr">17873 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17874" class="LineNr">17874 </span> 55/push-ebp -<span id="L17875" class="LineNr">17875 </span> 89/<- %ebp 4/r32/esp -<span id="L17876" class="LineNr">17876 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17877" class="LineNr">17877 </span> 50/push-eax -<span id="L17878" class="LineNr">17878 </span> 56/push-esi -<span id="L17879" class="LineNr">17879 </span> 57/push-edi -<span id="L17880" class="LineNr">17880 </span> <span class="subxComment"># esi = in</span> -<span id="L17881" class="LineNr">17881 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L17882" class="LineNr">17882 </span> <span class="subxComment"># edi = out</span> -<span id="L17883" class="LineNr">17883 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L17884" class="LineNr">17884 </span> <span class="subxComment"># initialize some global state</span> -<span id="L17885" class="LineNr">17885 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 1/imm32 -<span id="L17886" class="LineNr">17886 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> -<span id="L17887" class="LineNr">17887 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> -<span id="L17888" class="LineNr">17888 </span> (<a href='mu.subx.html#L17900'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) -<span id="L17889" class="LineNr">17889 </span><span class="Constant">$populate-mu-function-body:end</span>: -<span id="L17890" class="LineNr">17890 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L17891" class="LineNr">17891 </span> 5f/pop-to-edi -<span id="L17892" class="LineNr">17892 </span> 5e/pop-to-esi -<span id="L17893" class="LineNr">17893 </span> 58/pop-to-eax -<span id="L17894" class="LineNr">17894 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L17895" class="LineNr">17895 </span> 89/<- %esp 5/r32/ebp -<span id="L17896" class="LineNr">17896 </span> 5d/pop-to-ebp -<span id="L17897" class="LineNr">17897 </span> c3/return -<span id="L17898" class="LineNr">17898 </span> -<span id="L17899" class="LineNr">17899 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> -<span id="L17900" class="LineNr">17900 </span><span class="subxFunction">parse-mu-block</span>: <span class="subxComment"># in: (addr buffered-file), vars: (addr stack live-var), fn: (addr function), out: (addr handle block), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L17901" class="LineNr">17901 </span> <span class="subxComment"># pseudocode:</span> -<span id="L17902" class="LineNr">17902 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L17903" class="LineNr">17903 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L17904" class="LineNr">17904 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L17905" class="LineNr">17905 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> -<span id="L17906" class="LineNr">17906 </span> <span class="subxComment"># out-addr->tag = 0/block</span> -<span id="L17907" class="LineNr">17907 </span> <span class="subxComment"># out-addr->var = some unique name</span> -<span id="L17908" class="LineNr">17908 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> -<span id="L17909" class="LineNr">17909 </span> <span class="subxComment"># while true # line loop</span> -<span id="L17910" class="LineNr">17910 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L17911" class="LineNr">17911 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L17912" class="LineNr">17912 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L17913" class="LineNr">17913 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L17914" class="LineNr">17914 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L17915" class="LineNr">17915 </span> <span class="subxComment"># continue</span> -<span id="L17916" class="LineNr">17916 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> -<span id="L17917" class="LineNr">17917 </span> <span class="subxComment"># continue</span> -<span id="L17918" class="LineNr">17918 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> -<span id="L17919" class="LineNr">17919 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> -<span id="L17920" class="LineNr">17920 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> -<span id="L17921" class="LineNr">17921 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> -<span id="L17922" class="LineNr">17922 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> -<span id="L17923" class="LineNr">17923 </span> <span class="subxComment"># break</span> -<span id="L17924" class="LineNr">17924 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> -<span id="L17925" class="LineNr">17925 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> -<span id="L17926" class="LineNr">17926 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> -<span id="L17927" class="LineNr">17927 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> -<span id="L17928" class="LineNr">17928 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> -<span id="L17929" class="LineNr">17929 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> -<span id="L17930" class="LineNr">17930 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> -<span id="L17931" class="LineNr">17931 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> -<span id="L17932" class="LineNr">17932 </span> <span class="subxComment"># else</span> -<span id="L17933" class="LineNr">17933 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> -<span id="L17934" class="LineNr">17934 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> -<span id="L17935" class="LineNr">17935 </span> <span class="subxComment"># pop(vars)</span> -<span id="L17936" class="LineNr">17936 </span> <span class="subxComment">#</span> -<span id="L17937" class="LineNr">17937 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L17938" class="LineNr">17938 </span> 55/push-ebp -<span id="L17939" class="LineNr">17939 </span> 89/<- %ebp 4/r32/esp -<span id="L17940" class="LineNr">17940 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17941" class="LineNr">17941 </span> 50/push-eax -<span id="L17942" class="LineNr">17942 </span> 51/push-ecx -<span id="L17943" class="LineNr">17943 </span> 52/push-edx -<span id="L17944" class="LineNr">17944 </span> 53/push-ebx -<span id="L17945" class="LineNr">17945 </span> 57/push-edi -<span id="L17946" class="LineNr">17946 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L17947" class="LineNr">17947 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L17948" class="LineNr">17948 </span> 68/push 0x200/imm32/size -<span id="L17949" class="LineNr">17949 </span> 68/push 0/imm32/read -<span id="L17950" class="LineNr">17950 </span> 68/push 0/imm32/write -<span id="L17951" class="LineNr">17951 </span> 89/<- %ecx 4/r32/esp -<span id="L17952" class="LineNr">17952 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L17953" class="LineNr">17953 </span> 68/push 0/imm32/end -<span id="L17954" class="LineNr">17954 </span> 68/push 0/imm32/start -<span id="L17955" class="LineNr">17955 </span> 89/<- %edx 4/r32/esp -<span id="L17956" class="LineNr">17956 </span> <span class="subxComment"># allocate into out</span> -<span id="L17957" class="LineNr">17957 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> *(ebp+0x14)) -<span id="L17958" class="LineNr">17958 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> -<span id="L17959" class="LineNr">17959 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L17960" class="LineNr">17960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L17961" class="LineNr">17961 </span> 89/<- %edi 0/r32/eax -<span id="L17962" class="LineNr">17962 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> -<span id="L17963" class="LineNr">17963 </span> <span class="subxComment"># set out-addr->var</span> -<span id="L17964" class="LineNr">17964 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L17965" class="LineNr">17965 </span> (<a href='mu.subx.html#L18120'>new-block-name</a> *(ebp+0x10) %eax) -<span id="L17966" class="LineNr">17966 </span> <span class="subxComment"># push(vars, out-addr->var)</span> -<span id="L17967" class="LineNr">17967 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L17968" class="LineNr">17968 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L17969" class="LineNr">17969 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> -<span id="L17970" class="LineNr">17970 </span> <span class="subxComment"># increment *Curr-block-depth</span> -<span id="L17971" class="LineNr">17971 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> -<span id="L17972" class="LineNr">17972 </span> { -<span id="L17973" class="LineNr">17973 </span><span class="Constant">$parse-mu-block:line-loop</span>: -<span id="L17974" class="LineNr">17974 </span> <span class="subxComment"># line = read-line-buffered(in)</span> -<span id="L17975" class="LineNr">17975 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L17976" class="LineNr">17976 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L17977" class="LineNr">17977 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> -<span id="L17978" class="LineNr">17978 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> -<span id="L17979" class="LineNr">17979 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> -<span id="L17980" class="LineNr">17980 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17981" class="LineNr">17981 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> -<span id="L17982" class="LineNr">17982 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L17983" class="LineNr">17983 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L17984" class="LineNr">17984 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L17985" class="LineNr">17985 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> -<span id="L17986" class="LineNr">17986 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> -<span id="L17987" class="LineNr">17987 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L17988" class="LineNr">17988 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> %ecx %edx) -<span id="L17989" class="LineNr">17989 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> -<span id="L17990" class="LineNr">17990 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> -<span id="L17991" class="LineNr">17991 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L17992" class="LineNr">17992 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L17993" class="LineNr">17993 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L17994" class="LineNr">17994 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) -<span id="L17995" class="LineNr">17995 </span> 3d/compare-eax-and 0/imm32/false -<span id="L17996" class="LineNr">17996 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L17997" class="LineNr">17997 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> -<span id="L17998" class="LineNr">17998 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L17999" class="LineNr">17999 </span> 8b/-> *edx 0/r32/eax -<span id="L18000" class="LineNr">18000 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18001" class="LineNr">18001 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18002" class="LineNr">18002 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L18003" class="LineNr">18003 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L18004" class="LineNr">18004 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 -<span id="L18005" class="LineNr">18005 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> -<span id="L18006" class="LineNr">18006 </span> { -<span id="L18007" class="LineNr">18007 </span><span class="Constant">$parse-mu-block:check-for-block</span>: -<span id="L18008" class="LineNr">18008 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) -<span id="L18009" class="LineNr">18009 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18010" class="LineNr">18010 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18011" class="LineNr">18011 </span> (<a href='mu.subx.html#L18184'>check-no-tokens-left</a> %ecx) -<span id="L18012" class="LineNr">18012 </span> <span class="subxComment"># parse new block and append</span> -<span id="L18013" class="LineNr">18013 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> -<span id="L18014" class="LineNr">18014 </span> 68/push 0/imm32 -<span id="L18015" class="LineNr">18015 </span> 68/push 0/imm32 -<span id="L18016" class="LineNr">18016 </span> 89/<- %eax 4/r32/esp -<span id="L18017" class="LineNr">18017 </span> <span class="subxS1Comment"># .</span> -<span id="L18018" class="LineNr">18018 </span> (<a href='mu.subx.html#L17900'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18019" class="LineNr">18019 </span> (<a href='mu.subx.html#L19931'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18020" class="LineNr">18020 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L18021" class="LineNr">18021 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18022" class="LineNr">18022 </span> <span class="subxS1Comment"># .</span> -<span id="L18023" class="LineNr">18023 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18024" class="LineNr">18024 </span> } -<span id="L18025" class="LineNr">18025 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L18026" class="LineNr">18026 </span><span class="Constant">$parse-mu-block:check-for-end</span>: -<span id="L18027" class="LineNr">18027 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L18028" class="LineNr">18028 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18029" class="LineNr">18029 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18030" class="LineNr">18030 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> -<span id="L18031" class="LineNr">18031 </span> { -<span id="L18032" class="LineNr">18032 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: -<span id="L18033" class="LineNr">18033 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> -<span id="L18034" class="LineNr">18034 </span> 8b/-> *(edx+4) 0/r32/eax -<span id="L18035" class="LineNr">18035 </span> 48/decrement-eax -<span id="L18036" class="LineNr">18036 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18037" class="LineNr">18037 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18038" class="LineNr">18038 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> -<span id="L18039" class="LineNr">18039 </span> 3d/compare-eax-and 0x3a/imm32/colon -<span id="L18040" class="LineNr">18040 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18041" class="LineNr">18041 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> -<span id="L18042" class="LineNr">18042 </span> <span class="subxComment">#</span> -<span id="L18043" class="LineNr">18043 </span> <span class="subxComment"># skip ':'</span> -<span id="L18044" class="LineNr">18044 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> -<span id="L18045" class="LineNr">18045 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18046" class="LineNr">18046 </span> 68/push 0/imm32 -<span id="L18047" class="LineNr">18047 </span> 68/push 0/imm32 -<span id="L18048" class="LineNr">18048 </span> 89/<- %eax 4/r32/esp -<span id="L18049" class="LineNr">18049 </span> <span class="subxComment">#</span> -<span id="L18050" class="LineNr">18050 </span> (<a href='mu.subx.html#L18230'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18051" class="LineNr">18051 </span> (<a href='mu.subx.html#L19931'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18052" class="LineNr">18052 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18053" class="LineNr">18053 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18054" class="LineNr">18054 </span> <span class="subxComment">#</span> -<span id="L18055" class="LineNr">18055 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18056" class="LineNr">18056 </span> } -<span id="L18057" class="LineNr">18057 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> -<span id="L18058" class="LineNr">18058 </span> { -<span id="L18059" class="LineNr">18059 </span><span class="Constant">$parse-mu-block:check-for-var</span>: -<span id="L18060" class="LineNr">18060 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) -<span id="L18061" class="LineNr">18061 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18062" class="LineNr">18062 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18063" class="LineNr">18063 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18064" class="LineNr">18064 </span> 68/push 0/imm32 -<span id="L18065" class="LineNr">18065 </span> 68/push 0/imm32 -<span id="L18066" class="LineNr">18066 </span> 89/<- %eax 4/r32/esp -<span id="L18067" class="LineNr">18067 </span> <span class="subxComment">#</span> -<span id="L18068" class="LineNr">18068 </span> (<a href='mu.subx.html#L18286'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18069" class="LineNr">18069 </span> (<a href='mu.subx.html#L19931'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18070" class="LineNr">18070 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18071" class="LineNr">18071 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18072" class="LineNr">18072 </span> <span class="subxComment">#</span> -<span id="L18073" class="LineNr">18073 </span> e9/jump $parse-mu-block:line-loop/disp32 -<span id="L18074" class="LineNr">18074 </span> } -<span id="L18075" class="LineNr">18075 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: -<span id="L18076" class="LineNr">18076 </span> <span class="subxComment"># otherwise</span> -<span id="L18077" class="LineNr">18077 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> -<span id="L18078" class="LineNr">18078 </span> 68/push 0/imm32 -<span id="L18079" class="LineNr">18079 </span> 68/push 0/imm32 -<span id="L18080" class="LineNr">18080 </span> 89/<- %eax 4/r32/esp -<span id="L18081" class="LineNr">18081 </span> <span class="subxComment">#</span> -<span id="L18082" class="LineNr">18082 </span> (<a href='mu.subx.html#L18550'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18083" class="LineNr">18083 </span> (<a href='mu.subx.html#L19931'>append-to-block</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) -<span id="L18084" class="LineNr">18084 </span> <span class="subxComment"># reclaim tmp</span> -<span id="L18085" class="LineNr">18085 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18086" class="LineNr">18086 </span> <span class="subxComment">#</span> -<span id="L18087" class="LineNr">18087 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18088" class="LineNr">18088 </span> } <span class="subxComment"># end line loop</span> -<span id="L18089" class="LineNr">18089 </span> (<a href='mu.subx.html#L28200'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> *(ebp+0x10)) -<span id="L18090" class="LineNr">18090 </span> <span class="subxComment"># decrement *Curr-block-depth</span> -<span id="L18091" class="LineNr">18091 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> -<span id="L18092" class="LineNr">18092 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18093" class="LineNr">18093 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18094" class="LineNr">18094 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18095" class="LineNr">18095 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L18096" class="LineNr">18096 </span><span class="Constant">$parse-mu-block:end</span>: -<span id="L18097" class="LineNr">18097 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18098" class="LineNr">18098 </span> 81 0/subop/add %esp 0x214/imm32 -<span id="L18099" class="LineNr">18099 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18100" class="LineNr">18100 </span> 5f/pop-to-edi -<span id="L18101" class="LineNr">18101 </span> 5b/pop-to-ebx -<span id="L18102" class="LineNr">18102 </span> 5a/pop-to-edx -<span id="L18103" class="LineNr">18103 </span> 59/pop-to-ecx -<span id="L18104" class="LineNr">18104 </span> 58/pop-to-eax -<span id="L18105" class="LineNr">18105 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18106" class="LineNr">18106 </span> 89/<- %esp 5/r32/ebp -<span id="L18107" class="LineNr">18107 </span> 5d/pop-to-ebp -<span id="L18108" class="LineNr">18108 </span> c3/return -<span id="L18109" class="LineNr">18109 </span> -<span id="L18110" class="LineNr">18110 </span><span class="Constant">$parse-mu-block:abort</span>: -<span id="L18111" class="LineNr">18111 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> -<span id="L18112" class="LineNr">18112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'{' or '}' should be on its own line, but got '"</span>) -<span id="L18113" class="LineNr">18113 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L18114" class="LineNr">18114 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) -<span id="L18115" class="LineNr">18115 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18116" class="LineNr">18116 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18117" class="LineNr">18117 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18118" class="LineNr">18118 </span> <span class="subxComment"># never gets here</span> -<span id="L18119" class="LineNr">18119 </span> -<span id="L18120" class="LineNr">18120 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> -<span id="L18121" class="LineNr">18121 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18122" class="LineNr">18122 </span> 55/push-ebp -<span id="L18123" class="LineNr">18123 </span> 89/<- %ebp 4/r32/esp -<span id="L18124" class="LineNr">18124 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18125" class="LineNr">18125 </span> 50/push-eax -<span id="L18126" class="LineNr">18126 </span> 51/push-ecx -<span id="L18127" class="LineNr">18127 </span> 52/push-edx -<span id="L18128" class="LineNr">18128 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> -<span id="L18129" class="LineNr">18129 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18130" class="LineNr">18130 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18131" class="LineNr">18131 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> -<span id="L18132" class="LineNr">18132 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> -<span id="L18133" class="LineNr">18133 </span> 89/<- %ecx 0/r32/eax -<span id="L18134" class="LineNr">18134 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> -<span id="L18135" class="LineNr">18135 </span> 29/subtract-from %esp 1/r32/ecx -<span id="L18136" class="LineNr">18136 </span> ff 6/subop/push %ecx -<span id="L18137" class="LineNr">18137 </span> 68/push 0/imm32/read -<span id="L18138" class="LineNr">18138 </span> 68/push 0/imm32/write -<span id="L18139" class="LineNr">18139 </span> 89/<- %edx 4/r32/esp -<span id="L18140" class="LineNr">18140 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %edx) -<span id="L18141" class="LineNr">18141 </span> <span class="subxComment"># eax = fn->name</span> -<span id="L18142" class="LineNr">18142 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L18143" class="LineNr">18143 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18144" class="LineNr">18144 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> -<span id="L18145" class="LineNr">18145 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) -<span id="L18146" class="LineNr">18146 </span> (<a href='../108write.subx.html#L24'>write</a> %edx %eax) -<span id="L18147" class="LineNr">18147 </span> (<a href='../108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) -<span id="L18148" class="LineNr">18148 </span> (<a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L15498'>Next-block-index</a></span>) -<span id="L18149" class="LineNr">18149 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15498'>Next-block-index</a></span> -<span id="L18150" class="LineNr">18150 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> -<span id="L18151" class="LineNr">18151 </span> <span class="subxS1Comment"># . eax = name->write</span> -<span id="L18152" class="LineNr">18152 </span> 8b/-> *edx 0/r32/eax -<span id="L18153" class="LineNr">18153 </span> <span class="subxS1Comment"># . edx = name->data</span> -<span id="L18154" class="LineNr">18154 </span> 8d/copy-address *(edx+0xc) 2/r32/edx -<span id="L18155" class="LineNr">18155 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> -<span id="L18156" class="LineNr">18156 </span> 01/add-to %eax 2/r32/edx -<span id="L18157" class="LineNr">18157 </span> <span class="subxS1Comment"># . push {edx, eax}</span> -<span id="L18158" class="LineNr">18158 </span> ff 6/subop/push %eax -<span id="L18159" class="LineNr">18159 </span> ff 6/subop/push %edx -<span id="L18160" class="LineNr">18160 </span> 89/<- %eax 4/r32/esp -<span id="L18161" class="LineNr">18161 </span> <span class="subxComment"># out = new literal(s)</span> -<span id="L18162" class="LineNr">18162 </span> (<a href='mu.subx.html#L19658'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) -<span id="L18163" class="LineNr">18163 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> -<span id="L18164" class="LineNr">18164 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> -<span id="L18165" class="LineNr">18165 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> -<span id="L18166" class="LineNr">18166 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> -<span id="L18167" class="LineNr">18167 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18168" class="LineNr">18168 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18169" class="LineNr">18169 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18170" class="LineNr">18170 </span><span class="Constant">$new-block-name:end</span>: -<span id="L18171" class="LineNr">18171 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18172" class="LineNr">18172 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> -<span id="L18173" class="LineNr">18173 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> -<span id="L18174" class="LineNr">18174 </span> 01/add-to %esp 1/r32/ecx -<span id="L18175" class="LineNr">18175 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18176" class="LineNr">18176 </span> 5a/pop-to-edx -<span id="L18177" class="LineNr">18177 </span> 59/pop-to-ecx -<span id="L18178" class="LineNr">18178 </span> 58/pop-to-eax -<span id="L18179" class="LineNr">18179 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18180" class="LineNr">18180 </span> 89/<- %esp 5/r32/ebp -<span id="L18181" class="LineNr">18181 </span> 5d/pop-to-ebp -<span id="L18182" class="LineNr">18182 </span> c3/return -<span id="L18183" class="LineNr">18183 </span> -<span id="L18184" class="LineNr">18184 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> -<span id="L18185" class="LineNr">18185 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18186" class="LineNr">18186 </span> 55/push-ebp -<span id="L18187" class="LineNr">18187 </span> 89/<- %ebp 4/r32/esp -<span id="L18188" class="LineNr">18188 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18189" class="LineNr">18189 </span> 50/push-eax -<span id="L18190" class="LineNr">18190 </span> 51/push-ecx -<span id="L18191" class="LineNr">18191 </span> <span class="subxComment"># var s/ecx: slice</span> -<span id="L18192" class="LineNr">18192 </span> 68/push 0/imm32/end -<span id="L18193" class="LineNr">18193 </span> 68/push 0/imm32/start -<span id="L18194" class="LineNr">18194 </span> 89/<- %ecx 4/r32/esp -<span id="L18195" class="LineNr">18195 </span> <span class="subxComment">#</span> -<span id="L18196" class="LineNr">18196 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18197" class="LineNr">18197 </span> <span class="subxComment"># if slice-empty?(s) return</span> -<span id="L18198" class="LineNr">18198 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L18199" class="LineNr">18199 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18200" class="LineNr">18200 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 -<span id="L18201" class="LineNr">18201 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> -<span id="L18202" class="LineNr">18202 </span> <span class="subxS1Comment"># . eax = *s->start</span> -<span id="L18203" class="LineNr">18203 </span> 8b/-> *edx 0/r32/eax -<span id="L18204" class="LineNr">18204 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18205" class="LineNr">18205 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18206" class="LineNr">18206 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L18207" class="LineNr">18207 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L18208" class="LineNr">18208 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 -<span id="L18209" class="LineNr">18209 </span> <span class="subxComment"># abort</span> -<span id="L18210" class="LineNr">18210 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'{' or '}' should be on its own line, but got '"</span>) -<span id="L18211" class="LineNr">18211 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> %ecx) -<span id="L18212" class="LineNr">18212 </span> (<a href='../113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) -<span id="L18213" class="LineNr">18213 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'\n"</span>) -<span id="L18214" class="LineNr">18214 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L18215" class="LineNr">18215 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L18216" class="LineNr">18216 </span> bb/copy-to-ebx 1/imm32 -<span id="L18217" class="LineNr">18217 </span> e8/call syscall_exit/disp32 -<span id="L18218" class="LineNr">18218 </span> <span class="subxComment"># never gets here</span> -<span id="L18219" class="LineNr">18219 </span><span class="Constant">$check-no-tokens-left:end</span>: -<span id="L18220" class="LineNr">18220 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18221" class="LineNr">18221 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18222" class="LineNr">18222 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18223" class="LineNr">18223 </span> 59/pop-to-ecx -<span id="L18224" class="LineNr">18224 </span> 58/pop-to-eax -<span id="L18225" class="LineNr">18225 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18226" class="LineNr">18226 </span> 89/<- %esp 5/r32/ebp -<span id="L18227" class="LineNr">18227 </span> 5d/pop-to-ebp -<span id="L18228" class="LineNr">18228 </span> c3/return -<span id="L18229" class="LineNr">18229 </span> -<span id="L18230" class="LineNr">18230 </span><span class="subxFunction">parse-mu-named-block</span>: <span class="subxComment"># name: (addr slice), in: (addr buffered-file), vars: (addr stack live-var), fn: (addr function), out: (addr handle stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L18231" class="LineNr">18231 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18232" class="LineNr">18232 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L18233" class="LineNr">18233 </span> <span class="subxComment"># new-literal(name, v)</span> -<span id="L18234" class="LineNr">18234 </span> <span class="subxComment"># push(vars, {v, false})</span> -<span id="L18235" class="LineNr">18235 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> -<span id="L18236" class="LineNr">18236 </span> <span class="subxComment"># pop(vars)</span> -<span id="L18237" class="LineNr">18237 </span> <span class="subxComment"># out->tag = block</span> -<span id="L18238" class="LineNr">18238 </span> <span class="subxComment"># out->var = v</span> -<span id="L18239" class="LineNr">18239 </span> <span class="subxComment">#</span> -<span id="L18240" class="LineNr">18240 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18241" class="LineNr">18241 </span> 55/push-ebp -<span id="L18242" class="LineNr">18242 </span> 89/<- %ebp 4/r32/esp -<span id="L18243" class="LineNr">18243 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18244" class="LineNr">18244 </span> 50/push-eax -<span id="L18245" class="LineNr">18245 </span> 51/push-ecx -<span id="L18246" class="LineNr">18246 </span> 57/push-edi -<span id="L18247" class="LineNr">18247 </span> <span class="subxComment"># var v/ecx: (handle var)</span> -<span id="L18248" class="LineNr">18248 </span> 68/push 0/imm32 -<span id="L18249" class="LineNr">18249 </span> 68/push 0/imm32 -<span id="L18250" class="LineNr">18250 </span> 89/<- %ecx 4/r32/esp -<span id="L18251" class="LineNr">18251 </span> <span class="subxComment">#</span> -<span id="L18252" class="LineNr">18252 </span> (<a href='mu.subx.html#L19658'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) -<span id="L18253" class="LineNr">18253 </span> <span class="subxComment"># push(vars, v)</span> -<span id="L18254" class="LineNr">18254 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) -<span id="L18255" class="LineNr">18255 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) -<span id="L18256" class="LineNr">18256 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L18257" class="LineNr">18257 </span> <span class="subxComment">#</span> -<span id="L18258" class="LineNr">18258 </span> (<a href='mu.subx.html#L17900'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) -<span id="L18259" class="LineNr">18259 </span> <span class="subxComment"># pop v off vars</span> -<span id="L18260" class="LineNr">18260 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18261" class="LineNr">18261 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18262" class="LineNr">18262 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L18263" class="LineNr">18263 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L18264" class="LineNr">18264 </span> 8b/-> *(ebp+0x18) 7/r32/edi -<span id="L18265" class="LineNr">18265 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18266" class="LineNr">18266 </span> 89/<- %edi 0/r32/eax -<span id="L18267" class="LineNr">18267 </span> <span class="subxComment"># out-addr->tag = named-block</span> -<span id="L18268" class="LineNr">18268 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L18269" class="LineNr">18269 </span> <span class="subxComment"># out-addr->var = v</span> -<span id="L18270" class="LineNr">18270 </span> 8b/-> *ecx 0/r32/eax -<span id="L18271" class="LineNr">18271 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18272" class="LineNr">18272 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L18273" class="LineNr">18273 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> -<span id="L18274" class="LineNr">18274 </span><span class="Constant">$parse-mu-named-block:end</span>: -<span id="L18275" class="LineNr">18275 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18276" class="LineNr">18276 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18277" class="LineNr">18277 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18278" class="LineNr">18278 </span> 5f/pop-to-edi -<span id="L18279" class="LineNr">18279 </span> 59/pop-to-ecx -<span id="L18280" class="LineNr">18280 </span> 58/pop-to-eax -<span id="L18281" class="LineNr">18281 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18282" class="LineNr">18282 </span> 89/<- %esp 5/r32/ebp -<span id="L18283" class="LineNr">18283 </span> 5d/pop-to-ebp -<span id="L18284" class="LineNr">18284 </span> c3/return -<span id="L18285" class="LineNr">18285 </span> -<span id="L18286" class="LineNr">18286 </span><span class="subxFunction">parse-mu-var-def</span>: <span class="subxComment"># line: (addr stream byte), vars: (addr stack live-var), out: (addr handle stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L18287" class="LineNr">18287 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18288" class="LineNr">18288 </span> 55/push-ebp -<span id="L18289" class="LineNr">18289 </span> 89/<- %ebp 4/r32/esp -<span id="L18290" class="LineNr">18290 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18291" class="LineNr">18291 </span> 50/push-eax -<span id="L18292" class="LineNr">18292 </span> 51/push-ecx -<span id="L18293" class="LineNr">18293 </span> 52/push-edx -<span id="L18294" class="LineNr">18294 </span> 56/push-esi -<span id="L18295" class="LineNr">18295 </span> 57/push-edi -<span id="L18296" class="LineNr">18296 </span> <span class="subxComment"># edi = out</span> -<span id="L18297" class="LineNr">18297 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L18298" class="LineNr">18298 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L18299" class="LineNr">18299 </span> 68/push 0/imm32/end -<span id="L18300" class="LineNr">18300 </span> 68/push 0/imm32/start -<span id="L18301" class="LineNr">18301 </span> 89/<- %ecx 4/r32/esp -<span id="L18302" class="LineNr">18302 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L18303" class="LineNr">18303 </span> 68/push 0/imm32 -<span id="L18304" class="LineNr">18304 </span> 68/push 0/imm32 -<span id="L18305" class="LineNr">18305 </span> 89/<- %edx 4/r32/esp -<span id="L18306" class="LineNr">18306 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> -<span id="L18307" class="LineNr">18307 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18308" class="LineNr">18308 </span> { -<span id="L18309" class="LineNr">18309 </span> <span class="subxComment"># just for tests, support null fn</span> -<span id="L18310" class="LineNr">18310 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18311" class="LineNr">18311 </span> 3d/compare-eax-and 0/imm32 -<span id="L18312" class="LineNr">18312 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18313" class="LineNr">18313 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18314" class="LineNr">18314 </span> } -<span id="L18315" class="LineNr">18315 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) -<span id="L18316" class="LineNr">18316 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> -<span id="L18317" class="LineNr">18317 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18318" class="LineNr">18318 </span> 89/<- %esi 0/r32/eax -<span id="L18319" class="LineNr">18319 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L18320" class="LineNr">18320 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/r32/eax -<span id="L18321" class="LineNr">18321 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L18322" class="LineNr">18322 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> -<span id="L18323" class="LineNr">18323 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 -<span id="L18324" class="LineNr">18324 </span> { -<span id="L18325" class="LineNr">18325 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18326" class="LineNr">18326 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> -<span id="L18327" class="LineNr">18327 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18328" class="LineNr">18328 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L18329" class="LineNr">18329 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18330" class="LineNr">18330 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 -<span id="L18331" class="LineNr">18331 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> -<span id="L18332" class="LineNr">18332 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18333" class="LineNr">18333 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18334" class="LineNr">18334 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18335" class="LineNr">18335 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 -<span id="L18336" class="LineNr">18336 </span> <span class="subxComment">#</span> -<span id="L18337" class="LineNr">18337 </span> (<a href='mu.subx.html#L19762'>new-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L18338" class="LineNr">18338 </span> e9/jump $parse-mu-var-def:update-vars/disp32 -<span id="L18339" class="LineNr">18339 </span> } -<span id="L18340" class="LineNr">18340 </span> <span class="subxComment"># or v has a register and there's more to this line</span> -<span id="L18341" class="LineNr">18341 </span> { -<span id="L18342" class="LineNr">18342 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18343" class="LineNr">18343 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> -<span id="L18344" class="LineNr">18344 </span> { -<span id="L18345" class="LineNr">18345 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18346" class="LineNr">18346 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L18347" class="LineNr">18347 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18348" class="LineNr">18348 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18349" class="LineNr">18349 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L18350" class="LineNr">18350 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> -<span id="L18351" class="LineNr">18351 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18352" class="LineNr">18352 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L18353" class="LineNr">18353 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> -<span id="L18354" class="LineNr">18354 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> -<span id="L18355" class="LineNr">18355 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18356" class="LineNr">18356 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 -<span id="L18357" class="LineNr">18357 </span> } -<span id="L18358" class="LineNr">18358 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> -<span id="L18359" class="LineNr">18359 </span> <span class="subxComment"># ensure that the next word is '<-'</span> -<span id="L18360" class="LineNr">18360 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18361" class="LineNr">18361 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L18362" class="LineNr">18362 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18363" class="LineNr">18363 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 -<span id="L18364" class="LineNr">18364 </span> <span class="subxComment">#</span> -<span id="L18365" class="LineNr">18365 </span> (<a href='mu.subx.html#L19790'>new-reg-var-def</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) -<span id="L18366" class="LineNr">18366 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18367" class="LineNr">18367 </span> (<a href='mu.subx.html#L18667'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18368" class="LineNr">18368 </span> } -<span id="L18369" class="LineNr">18369 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: -<span id="L18370" class="LineNr">18370 </span> <span class="subxComment"># push 'v' at end of function</span> -<span id="L18371" class="LineNr">18371 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) -<span id="L18372" class="LineNr">18372 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) -<span id="L18373" class="LineNr">18373 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># Live-var-register-spilled is unused during parsing</span> -<span id="L18374" class="LineNr">18374 </span><span class="Constant">$parse-mu-var-def:end</span>: -<span id="L18375" class="LineNr">18375 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18376" class="LineNr">18376 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18377" class="LineNr">18377 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18378" class="LineNr">18378 </span> 5f/pop-to-edi -<span id="L18379" class="LineNr">18379 </span> 5e/pop-to-esi -<span id="L18380" class="LineNr">18380 </span> 5a/pop-to-edx -<span id="L18381" class="LineNr">18381 </span> 59/pop-to-ecx -<span id="L18382" class="LineNr">18382 </span> 58/pop-to-eax -<span id="L18383" class="LineNr">18383 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18384" class="LineNr">18384 </span> 89/<- %esp 5/r32/ebp -<span id="L18385" class="LineNr">18385 </span> 5d/pop-to-ebp -<span id="L18386" class="LineNr">18386 </span> c3/return -<span id="L18387" class="LineNr">18387 </span> -<span id="L18388" class="LineNr">18388 </span><span class="Constant">$parse-mu-var-def:error1</span>: -<span id="L18389" class="LineNr">18389 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L18390" class="LineNr">18390 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> -<span id="L18391" class="LineNr">18391 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"register variable requires a valid instruction to initialize but got '"</span>) -<span id="L18392" class="LineNr">18392 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18393" class="LineNr">18393 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) -<span id="L18394" class="LineNr">18394 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18395" class="LineNr">18395 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18396" class="LineNr">18396 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18397" class="LineNr">18397 </span> <span class="subxComment"># never gets here</span> -<span id="L18398" class="LineNr">18398 </span> -<span id="L18399" class="LineNr">18399 </span><span class="Constant">$parse-mu-var-def:error2</span>: -<span id="L18400" class="LineNr">18400 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> -<span id="L18401" class="LineNr">18401 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18402" class="LineNr">18402 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18403" class="LineNr">18403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18404" class="LineNr">18404 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18405" class="LineNr">18405 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) -<span id="L18406" class="LineNr">18406 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18407" class="LineNr">18407 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18408" class="LineNr">18408 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18409" class="LineNr">18409 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18410" class="LineNr">18410 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variables on the stack can't take an initializer\n"</span>) -<span id="L18411" class="LineNr">18411 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18412" class="LineNr">18412 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18413" class="LineNr">18413 </span> <span class="subxComment"># never gets here</span> -<span id="L18414" class="LineNr">18414 </span> -<span id="L18415" class="LineNr">18415 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: -<span id="L18416" class="LineNr">18416 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> -<span id="L18417" class="LineNr">18417 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18418" class="LineNr">18418 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18419" class="LineNr">18419 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18420" class="LineNr">18420 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18421" class="LineNr">18421 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L18422" class="LineNr">18422 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18423" class="LineNr">18423 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18424" class="LineNr">18424 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18425" class="LineNr">18425 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18426" class="LineNr">18426 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' of type 'byte' cannot be on the stack\n"</span>) -<span id="L18427" class="LineNr">18427 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18428" class="LineNr">18428 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18429" class="LineNr">18429 </span> <span class="subxComment"># never gets here</span> -<span id="L18430" class="LineNr">18430 </span> -<span id="L18431" class="LineNr">18431 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: -<span id="L18432" class="LineNr">18432 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> -<span id="L18433" class="LineNr">18433 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18434" class="LineNr">18434 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18435" class="LineNr">18435 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18436" class="LineNr">18436 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18437" class="LineNr">18437 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) -<span id="L18438" class="LineNr">18438 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> -<span id="L18439" class="LineNr">18439 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L18440" class="LineNr">18440 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18441" class="LineNr">18441 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18442" class="LineNr">18442 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' of type 'byte' cannot be in esi or edi\n"</span>) -<span id="L18443" class="LineNr">18443 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18444" class="LineNr">18444 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18445" class="LineNr">18445 </span> <span class="subxComment"># never gets here</span> -<span id="L18446" class="LineNr">18446 </span> -<span id="L18447" class="LineNr">18447 </span><span class="subxTest">test-parse-mu-var-def</span>: -<span id="L18448" class="LineNr">18448 </span> <span class="subxComment"># 'var n: int'</span> -<span id="L18449" class="LineNr">18449 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18450" class="LineNr">18450 </span> 55/push-ebp -<span id="L18451" class="LineNr">18451 </span> 89/<- %ebp 4/r32/esp -<span id="L18452" class="LineNr">18452 </span> <span class="subxComment"># setup</span> -<span id="L18453" class="LineNr">18453 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18454" class="LineNr">18454 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L18455" class="LineNr">18455 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18456" class="LineNr">18456 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"n: int\n"</span>) <span class="subxComment"># caller has consumed the 'var'</span> -<span id="L18457" class="LineNr">18457 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 1/imm32 -<span id="L18458" class="LineNr">18458 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L18459" class="LineNr">18459 </span> 68/push 0/imm32 -<span id="L18460" class="LineNr">18460 </span> 68/push 0/imm32 -<span id="L18461" class="LineNr">18461 </span> 89/<- %esi 4/r32/esp -<span id="L18462" class="LineNr">18462 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18463" class="LineNr">18463 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18464" class="LineNr">18464 </span> 68/push 0xc0/imm32/size -<span id="L18465" class="LineNr">18465 </span> 68/push 0/imm32/top -<span id="L18466" class="LineNr">18466 </span> 89/<- %ecx 4/r32/esp -<span id="L18467" class="LineNr">18467 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18468" class="LineNr">18468 </span> <span class="subxComment"># convert</span> -<span id="L18469" class="LineNr">18469 </span> (<a href='mu.subx.html#L18286'>parse-mu-var-def</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %esi 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L18470" class="LineNr">18470 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L18471" class="LineNr">18471 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18472" class="LineNr">18472 </span> 89/<- %esi 0/r32/eax -<span id="L18473" class="LineNr">18473 </span> <span class="subxComment">#</span> -<span id="L18474" class="LineNr">18474 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L18447'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> -<span id="L18475" class="LineNr">18475 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> -<span id="L18476" class="LineNr">18476 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L18477" class="LineNr">18477 </span> 89/<- %ecx 0/r32/eax -<span id="L18478" class="LineNr">18478 </span> <span class="subxComment"># v->name</span> -<span id="L18479" class="LineNr">18479 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18480" class="LineNr">18480 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L18447'>test-parse-mu-var-def</a>/var-name"</span>) -<span id="L18481" class="LineNr">18481 </span> <span class="subxComment"># v->register</span> -<span id="L18482" class="LineNr">18482 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L18447'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> -<span id="L18483" class="LineNr">18483 </span> <span class="subxComment"># v->block-depth</span> -<span id="L18484" class="LineNr">18484 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18447'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L18485" class="LineNr">18485 </span> <span class="subxComment"># v->type == int</span> -<span id="L18486" class="LineNr">18486 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18487" class="LineNr">18487 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18447'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18488" class="LineNr">18488 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18447'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L18489" class="LineNr">18489 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18447'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L18490" class="LineNr">18490 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18491" class="LineNr">18491 </span> 89/<- %esp 5/r32/ebp -<span id="L18492" class="LineNr">18492 </span> 5d/pop-to-ebp -<span id="L18493" class="LineNr">18493 </span> c3/return -<span id="L18494" class="LineNr">18494 </span> -<span id="L18495" class="LineNr">18495 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: -<span id="L18496" class="LineNr">18496 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> -<span id="L18497" class="LineNr">18497 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18498" class="LineNr">18498 </span> 55/push-ebp -<span id="L18499" class="LineNr">18499 </span> 89/<- %ebp 4/r32/esp -<span id="L18500" class="LineNr">18500 </span> <span class="subxComment"># setup</span> -<span id="L18501" class="LineNr">18501 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L18502" class="LineNr">18502 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L18503" class="LineNr">18503 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L18504" class="LineNr">18504 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"n/eax: int <- copy 0\n"</span>) <span class="subxComment"># caller has consumed the 'var'</span> -<span id="L18505" class="LineNr">18505 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 1/imm32 -<span id="L18506" class="LineNr">18506 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> -<span id="L18507" class="LineNr">18507 </span> 68/push 0/imm32 -<span id="L18508" class="LineNr">18508 </span> 68/push 0/imm32 -<span id="L18509" class="LineNr">18509 </span> 89/<- %esi 4/r32/esp -<span id="L18510" class="LineNr">18510 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L18511" class="LineNr">18511 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L18512" class="LineNr">18512 </span> 68/push 0xc0/imm32/size -<span id="L18513" class="LineNr">18513 </span> 68/push 0/imm32/top -<span id="L18514" class="LineNr">18514 </span> 89/<- %ecx 4/r32/esp -<span id="L18515" class="LineNr">18515 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L18516" class="LineNr">18516 </span> <span class="subxComment"># convert</span> -<span id="L18517" class="LineNr">18517 </span> (<a href='mu.subx.html#L18286'>parse-mu-var-def</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %esi 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L18518" class="LineNr">18518 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> -<span id="L18519" class="LineNr">18519 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18520" class="LineNr">18520 </span> 89/<- %esi 0/r32/eax -<span id="L18521" class="LineNr">18521 </span> <span class="subxComment">#</span> -<span id="L18522" class="LineNr">18522 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> -<span id="L18523" class="LineNr">18523 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> -<span id="L18524" class="LineNr">18524 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> -<span id="L18525" class="LineNr">18525 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L18526" class="LineNr">18526 </span> <span class="subxS1Comment"># .</span> -<span id="L18527" class="LineNr">18527 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> -<span id="L18528" class="LineNr">18528 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> -<span id="L18529" class="LineNr">18529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L18530" class="LineNr">18530 </span> <span class="subxS1Comment"># . ecx = eax</span> -<span id="L18531" class="LineNr">18531 </span> 89/<- %ecx 0/r32/eax -<span id="L18532" class="LineNr">18532 </span> <span class="subxComment"># v->name</span> -<span id="L18533" class="LineNr">18533 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18534" class="LineNr">18534 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> -<span id="L18535" class="LineNr">18535 </span> <span class="subxComment"># v->register</span> -<span id="L18536" class="LineNr">18536 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L18537" class="LineNr">18537 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/output-register"</span>) -<span id="L18538" class="LineNr">18538 </span> <span class="subxComment"># v->block-depth</span> -<span id="L18539" class="LineNr">18539 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> -<span id="L18540" class="LineNr">18540 </span> <span class="subxComment"># v->type == int</span> -<span id="L18541" class="LineNr">18541 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18542" class="LineNr">18542 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> -<span id="L18543" class="LineNr">18543 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> -<span id="L18544" class="LineNr">18544 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18495'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> -<span id="L18545" class="LineNr">18545 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18546" class="LineNr">18546 </span> 89/<- %esp 5/r32/ebp -<span id="L18547" class="LineNr">18547 </span> 5d/pop-to-ebp -<span id="L18548" class="LineNr">18548 </span> c3/return -<span id="L18549" class="LineNr">18549 </span> -<span id="L18550" class="LineNr">18550 </span><span class="subxFunction">parse-mu-stmt</span>: <span class="subxComment"># line: (addr stream byte), vars: (addr stack live-var), fn: (addr function), out: (addr handle stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L18551" class="LineNr">18551 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18552" class="LineNr">18552 </span> <span class="subxComment"># var name: slice</span> -<span id="L18553" class="LineNr">18553 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> -<span id="L18554" class="LineNr">18554 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> -<span id="L18555" class="LineNr">18555 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L18556" class="LineNr">18556 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> -<span id="L18557" class="LineNr">18557 </span> <span class="subxComment"># while true</span> -<span id="L18558" class="LineNr">18558 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18559" class="LineNr">18559 </span> <span class="subxComment"># if (name == '<-') break</span> -<span id="L18560" class="LineNr">18560 </span> <span class="subxComment"># assert(is-identifier?(name))</span> -<span id="L18561" class="LineNr">18561 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> -<span id="L18562" class="LineNr">18562 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> -<span id="L18563" class="LineNr">18563 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> -<span id="L18564" class="LineNr">18564 </span> <span class="subxComment">#</span> -<span id="L18565" class="LineNr">18565 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18566" class="LineNr">18566 </span> 55/push-ebp -<span id="L18567" class="LineNr">18567 </span> 89/<- %ebp 4/r32/esp -<span id="L18568" class="LineNr">18568 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18569" class="LineNr">18569 </span> 50/push-eax -<span id="L18570" class="LineNr">18570 </span> 51/push-ecx -<span id="L18571" class="LineNr">18571 </span> 52/push-edx -<span id="L18572" class="LineNr">18572 </span> 53/push-ebx -<span id="L18573" class="LineNr">18573 </span> 57/push-edi -<span id="L18574" class="LineNr">18574 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L18575" class="LineNr">18575 </span> 68/push 0/imm32/end -<span id="L18576" class="LineNr">18576 </span> 68/push 0/imm32/start -<span id="L18577" class="LineNr">18577 </span> 89/<- %ecx 4/r32/esp -<span id="L18578" class="LineNr">18578 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L18579" class="LineNr">18579 </span> ba/copy-to-edx 0/imm32/false -<span id="L18580" class="LineNr">18580 </span> <span class="subxComment"># var v: (handle var)</span> -<span id="L18581" class="LineNr">18581 </span> 68/push 0/imm32 -<span id="L18582" class="LineNr">18582 </span> 68/push 0/imm32 -<span id="L18583" class="LineNr">18583 </span> 89/<- %ebx 4/r32/esp -<span id="L18584" class="LineNr">18584 </span> <span class="subxComment">#</span> -<span id="L18585" class="LineNr">18585 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> *(ebp+0x14)) -<span id="L18586" class="LineNr">18586 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> -<span id="L18587" class="LineNr">18587 </span> 8b/-> *(ebp+0x14) 7/r32/edi -<span id="L18588" class="LineNr">18588 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L18589" class="LineNr">18589 </span> 89/<- %edi 0/r32/eax -<span id="L18590" class="LineNr">18590 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> -<span id="L18591" class="LineNr">18591 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L18592" class="LineNr">18592 </span> { -<span id="L18593" class="LineNr">18593 </span> (<a href='mu.subx.html#L18831'>stmt-has-outputs?</a> *(ebp+8)) -<span id="L18594" class="LineNr">18594 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18595" class="LineNr">18595 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18596" class="LineNr">18596 </span> { -<span id="L18597" class="LineNr">18597 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: -<span id="L18598" class="LineNr">18598 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18599" class="LineNr">18599 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18600" class="LineNr">18600 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L18601" class="LineNr">18601 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18602" class="LineNr">18602 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18603" class="LineNr">18603 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18604" class="LineNr">18604 </span> <span class="subxComment"># if (name == "<-") break</span> -<span id="L18605" class="LineNr">18605 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> -<span id="L18606" class="LineNr">18606 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18607" class="LineNr">18607 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18608" class="LineNr">18608 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> -<span id="L18609" class="LineNr">18609 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L18610" class="LineNr">18610 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18611" class="LineNr">18611 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18612" class="LineNr">18612 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L18613" class="LineNr">18613 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 -<span id="L18614" class="LineNr">18614 </span> <span class="subxComment"># assert(is-identifier?(name))</span> -<span id="L18615" class="LineNr">18615 </span> (<a href='mu.subx.html#L17576'>is-identifier?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18616" class="LineNr">18616 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18617" class="LineNr">18617 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 -<span id="L18618" class="LineNr">18618 </span> <span class="subxComment">#</span> -<span id="L18619" class="LineNr">18619 </span> (<a href='mu.subx.html#L18942'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18620" class="LineNr">18620 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> -<span id="L18621" class="LineNr">18621 </span> (<a href='mu.subx.html#L19873'>append-stmt-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x14) *(edi+0x18) 0 %eax) <span class="subxComment"># Stmt1-outputs</span> -<span id="L18622" class="LineNr">18622 </span> <span class="subxComment">#</span> -<span id="L18623" class="LineNr">18623 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18624" class="LineNr">18624 </span> } -<span id="L18625" class="LineNr">18625 </span> } -<span id="L18626" class="LineNr">18626 </span> (<a href='mu.subx.html#L18667'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18627" class="LineNr">18627 </span><span class="Constant">$parse-mu-stmt:end</span>: -<span id="L18628" class="LineNr">18628 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18629" class="LineNr">18629 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18630" class="LineNr">18630 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18631" class="LineNr">18631 </span> 5f/pop-to-edi -<span id="L18632" class="LineNr">18632 </span> 5b/pop-to-ebx -<span id="L18633" class="LineNr">18633 </span> 5a/pop-to-edx -<span id="L18634" class="LineNr">18634 </span> 59/pop-to-ecx -<span id="L18635" class="LineNr">18635 </span> 58/pop-to-eax -<span id="L18636" class="LineNr">18636 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18637" class="LineNr">18637 </span> 89/<- %esp 5/r32/ebp -<span id="L18638" class="LineNr">18638 </span> 5d/pop-to-ebp -<span id="L18639" class="LineNr">18639 </span> c3/return -<span id="L18640" class="LineNr">18640 </span> -<span id="L18641" class="LineNr">18641 </span><span class="Constant">$parse-mu-stmt:abort</span>: -<span id="L18642" class="LineNr">18642 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L18643" class="LineNr">18643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18644" class="LineNr">18644 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18645" class="LineNr">18645 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18646" class="LineNr">18646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18647" class="LineNr">18647 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) -<span id="L18648" class="LineNr">18648 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L18649" class="LineNr">18649 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18650" class="LineNr">18650 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18651" class="LineNr">18651 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18652" class="LineNr">18652 </span> <span class="subxComment"># never gets here</span> -<span id="L18653" class="LineNr">18653 </span> -<span id="L18654" class="LineNr">18654 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: -<span id="L18655" class="LineNr">18655 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> -<span id="L18656" class="LineNr">18656 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18657" class="LineNr">18657 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18658" class="LineNr">18658 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18659" class="LineNr">18659 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18660" class="LineNr">18660 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) -<span id="L18661" class="LineNr">18661 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) -<span id="L18662" class="LineNr">18662 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' should write to a register, and therefore cannot be dereferenced\n"</span>) -<span id="L18663" class="LineNr">18663 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18664" class="LineNr">18664 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18665" class="LineNr">18665 </span> <span class="subxComment"># never gets here</span> -<span id="L18666" class="LineNr">18666 </span> -<span id="L18667" class="LineNr">18667 </span><span class="subxFunction">add-operation-and-inputs-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), line: (addr stream byte), vars: (addr stack live-var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L18668" class="LineNr">18668 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18669" class="LineNr">18669 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> -<span id="L18670" class="LineNr">18670 </span> <span class="subxComment"># while true</span> -<span id="L18671" class="LineNr">18671 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18672" class="LineNr">18672 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> -<span id="L18673" class="LineNr">18673 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> -<span id="L18674" class="LineNr">18674 </span> <span class="subxComment">#</span> -<span id="L18675" class="LineNr">18675 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18676" class="LineNr">18676 </span> 55/push-ebp -<span id="L18677" class="LineNr">18677 </span> 89/<- %ebp 4/r32/esp -<span id="L18678" class="LineNr">18678 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18679" class="LineNr">18679 </span> 50/push-eax -<span id="L18680" class="LineNr">18680 </span> 51/push-ecx -<span id="L18681" class="LineNr">18681 </span> 52/push-edx -<span id="L18682" class="LineNr">18682 </span> 53/push-ebx -<span id="L18683" class="LineNr">18683 </span> 56/push-esi -<span id="L18684" class="LineNr">18684 </span> 57/push-edi -<span id="L18685" class="LineNr">18685 </span> <span class="subxComment"># edi = stmt</span> -<span id="L18686" class="LineNr">18686 </span> 8b/-> *(ebp+8) 7/r32/edi -<span id="L18687" class="LineNr">18687 </span> <span class="subxComment"># var name/ecx: slice</span> -<span id="L18688" class="LineNr">18688 </span> 68/push 0/imm32/end -<span id="L18689" class="LineNr">18689 </span> 68/push 0/imm32/start -<span id="L18690" class="LineNr">18690 </span> 89/<- %ecx 4/r32/esp -<span id="L18691" class="LineNr">18691 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> -<span id="L18692" class="LineNr">18692 </span> ba/copy-to-edx 0/imm32/false -<span id="L18693" class="LineNr">18693 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L18694" class="LineNr">18694 </span> 68/push 0/imm32 -<span id="L18695" class="LineNr">18695 </span> 68/push 0/imm32 -<span id="L18696" class="LineNr">18696 </span> 89/<- %esi 4/r32/esp -<span id="L18697" class="LineNr">18697 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: -<span id="L18698" class="LineNr">18698 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L18699" class="LineNr">18699 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> -<span id="L18700" class="LineNr">18700 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %ecx %eax) -<span id="L18701" class="LineNr">18701 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> -<span id="L18702" class="LineNr">18702 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L18703" class="LineNr">18703 </span> 89/<- %ebx 0/r32/eax -<span id="L18704" class="LineNr">18704 </span> { -<span id="L18705" class="LineNr">18705 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: -<span id="L18706" class="LineNr">18706 </span> <span class="subxComment"># name = next-mu-token(line)</span> -<span id="L18707" class="LineNr">18707 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+0xc) %ecx) -<span id="L18708" class="LineNr">18708 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L18709" class="LineNr">18709 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18710" class="LineNr">18710 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18711" class="LineNr">18711 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18712" class="LineNr">18712 </span> <span class="subxComment"># if (name == "<-") abort</span> -<span id="L18713" class="LineNr">18713 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L18714" class="LineNr">18714 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18715" class="LineNr">18715 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 -<span id="L18716" class="LineNr">18716 </span> <span class="subxComment"># if (is-get? && second operand) lookup or create offset</span> -<span id="L18717" class="LineNr">18717 </span> { -<span id="L18718" class="LineNr">18718 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L18719" class="LineNr">18719 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18720" class="LineNr">18720 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L18721" class="LineNr">18721 </span> 3d/compare-eax-and 0/imm32 -<span id="L18722" class="LineNr">18722 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18723" class="LineNr">18723 </span> (<a href='mu.subx.html#L19958'>lookup-or-create-constant</a> %eax %ecx %esi) -<span id="L18724" class="LineNr">18724 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L18725" class="LineNr">18725 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> -<span id="L18726" class="LineNr">18726 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L18727" class="LineNr">18727 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> -<span id="L18728" class="LineNr">18728 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> -<span id="L18729" class="LineNr">18729 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> -<span id="L18730" class="LineNr">18730 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L18731" class="LineNr">18731 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L18732" class="LineNr">18732 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L18733" class="LineNr">18733 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L18734" class="LineNr">18734 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 -<span id="L18735" class="LineNr">18735 </span> } -<span id="L18736" class="LineNr">18736 </span> <span class="subxComment"># is-deref? = false</span> -<span id="L18737" class="LineNr">18737 </span> ba/copy-to-edx 0/imm32/false -<span id="L18738" class="LineNr">18738 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> -<span id="L18739" class="LineNr">18739 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> -<span id="L18740" class="LineNr">18740 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18741" class="LineNr">18741 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18742" class="LineNr">18742 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L18743" class="LineNr">18743 </span> { -<span id="L18744" class="LineNr">18744 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18745" class="LineNr">18745 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: -<span id="L18746" class="LineNr">18746 </span> ff 0/subop/increment *ecx -<span id="L18747" class="LineNr">18747 </span> ba/copy-to-edx 1/imm32/true -<span id="L18748" class="LineNr">18748 </span> } -<span id="L18749" class="LineNr">18749 </span> (<a href='mu.subx.html#L18879'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18750" class="LineNr">18750 </span> <span class="subxComment"># if (is-deref?) some additional checks</span> -<span id="L18751" class="LineNr">18751 </span> 81 7/subop/compare %edx 0/imm32/false -<span id="L18752" class="LineNr">18752 </span> { -<span id="L18753" class="LineNr">18753 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18754" class="LineNr">18754 </span> <span class="subxComment"># if var is not in register, abort</span> -<span id="L18755" class="LineNr">18755 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18756" class="LineNr">18756 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L18757" class="LineNr">18757 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 -<span id="L18758" class="LineNr">18758 </span> <span class="subxComment"># if var is not an address, abort</span> -<span id="L18759" class="LineNr">18759 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L18760" class="LineNr">18760 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L18761" class="LineNr">18761 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18762" class="LineNr">18762 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 -<span id="L18763" class="LineNr">18763 </span> } -<span id="L18764" class="LineNr">18764 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: -<span id="L18765" class="LineNr">18765 </span> 8d/copy-address *(edi+0xc) 0/r32/eax -<span id="L18766" class="LineNr">18766 </span> (<a href='mu.subx.html#L19873'>append-stmt-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *esi *(esi+4) *(edi+0xc) *(edi+0x10) %edx %eax) <span class="subxComment"># Stmt1-inouts or Regvardef-inouts</span> -<span id="L18767" class="LineNr">18767 </span> <span class="subxComment">#</span> -<span id="L18768" class="LineNr">18768 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L18769" class="LineNr">18769 </span> } -<span id="L18770" class="LineNr">18770 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: -<span id="L18771" class="LineNr">18771 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18772" class="LineNr">18772 </span> 81 0/subop/add %esp 0x10/imm32 -<span id="L18773" class="LineNr">18773 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18774" class="LineNr">18774 </span> 5f/pop-to-edi -<span id="L18775" class="LineNr">18775 </span> 5e/pop-to-esi -<span id="L18776" class="LineNr">18776 </span> 5b/pop-to-ebx -<span id="L18777" class="LineNr">18777 </span> 5a/pop-to-edx -<span id="L18778" class="LineNr">18778 </span> 59/pop-to-ecx -<span id="L18779" class="LineNr">18779 </span> 58/pop-to-eax -<span id="L18780" class="LineNr">18780 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18781" class="LineNr">18781 </span> 89/<- %esp 5/r32/ebp -<span id="L18782" class="LineNr">18782 </span> 5d/pop-to-ebp -<span id="L18783" class="LineNr">18783 </span> c3/return -<span id="L18784" class="LineNr">18784 </span> -<span id="L18785" class="LineNr">18785 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: -<span id="L18786" class="LineNr">18786 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> -<span id="L18787" class="LineNr">18787 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18788" class="LineNr">18788 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18789" class="LineNr">18789 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18790" class="LineNr">18790 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18791" class="LineNr">18791 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L18792" class="LineNr">18792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) -<span id="L18793" class="LineNr">18793 </span> (<a href='../125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L18794" class="LineNr">18794 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18795" class="LineNr">18795 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18796" class="LineNr">18796 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18797" class="LineNr">18797 </span> <span class="subxComment"># never gets here</span> -<span id="L18798" class="LineNr">18798 </span> -<span id="L18799" class="LineNr">18799 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: -<span id="L18800" class="LineNr">18800 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> -<span id="L18801" class="LineNr">18801 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18802" class="LineNr">18802 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18803" class="LineNr">18803 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18804" class="LineNr">18804 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18805" class="LineNr">18805 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L18806" class="LineNr">18806 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) -<span id="L18807" class="LineNr">18807 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18808" class="LineNr">18808 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18809" class="LineNr">18809 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18810" class="LineNr">18810 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) -<span id="L18811" class="LineNr">18811 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18812" class="LineNr">18812 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18813" class="LineNr">18813 </span> <span class="subxComment"># never gets here</span> -<span id="L18814" class="LineNr">18814 </span> -<span id="L18815" class="LineNr">18815 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: -<span id="L18816" class="LineNr">18816 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> -<span id="L18817" class="LineNr">18817 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18818" class="LineNr">18818 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18819" class="LineNr">18819 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18820" class="LineNr">18820 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18821" class="LineNr">18821 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) -<span id="L18822" class="LineNr">18822 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) -<span id="L18823" class="LineNr">18823 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L18824" class="LineNr">18824 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L18825" class="LineNr">18825 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18826" class="LineNr">18826 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18827" class="LineNr">18827 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18828" class="LineNr">18828 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18829" class="LineNr">18829 </span> <span class="subxComment"># never gets here</span> -<span id="L18830" class="LineNr">18830 </span> -<span id="L18831" class="LineNr">18831 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> -<span id="L18832" class="LineNr">18832 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18833" class="LineNr">18833 </span> 55/push-ebp -<span id="L18834" class="LineNr">18834 </span> 89/<- %ebp 4/r32/esp -<span id="L18835" class="LineNr">18835 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18836" class="LineNr">18836 </span> 51/push-ecx -<span id="L18837" class="LineNr">18837 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L18838" class="LineNr">18838 </span> 68/push 0/imm32/end -<span id="L18839" class="LineNr">18839 </span> 68/push 0/imm32/start -<span id="L18840" class="LineNr">18840 </span> 89/<- %ecx 4/r32/esp -<span id="L18841" class="LineNr">18841 </span> <span class="subxComment"># result = false</span> -<span id="L18842" class="LineNr">18842 </span> b8/copy-to-eax 0/imm32/false -<span id="L18843" class="LineNr">18843 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L18844" class="LineNr">18844 </span> { -<span id="L18845" class="LineNr">18845 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> *(ebp+8) %ecx) -<span id="L18846" class="LineNr">18846 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L18847" class="LineNr">18847 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %ecx) -<span id="L18848" class="LineNr">18848 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18849" class="LineNr">18849 </span> b8/copy-to-eax 0/imm32/false/result <span class="subxComment"># restore result (if we're here it's still false)</span> -<span id="L18850" class="LineNr">18850 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L18851" class="LineNr">18851 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> -<span id="L18852" class="LineNr">18852 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> -<span id="L18853" class="LineNr">18853 </span> 8b/-> *ecx 0/r32/eax -<span id="L18854" class="LineNr">18854 </span> 8a/copy-byte *eax 0/r32/AL -<span id="L18855" class="LineNr">18855 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L18856" class="LineNr">18856 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> -<span id="L18857" class="LineNr">18857 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L18858" class="LineNr">18858 </span> b8/copy-to-eax 0/imm32/false/result <span class="subxComment"># restore result (if we're here it's still false)</span> -<span id="L18859" class="LineNr">18859 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L18860" class="LineNr">18860 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> -<span id="L18861" class="LineNr">18861 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) -<span id="L18862" class="LineNr">18862 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18863" class="LineNr">18863 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 -<span id="L18864" class="LineNr">18864 </span> b8/copy-to-eax 1/imm32/true -<span id="L18865" class="LineNr">18865 </span> } -<span id="L18866" class="LineNr">18866 </span><span class="Constant">$stmt-has-outputs:end</span>: -<span id="L18867" class="LineNr">18867 </span> (<a href='../106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) -<span id="L18868" class="LineNr">18868 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L18869" class="LineNr">18869 </span> 81 0/subop/add %esp 8/imm32 -<span id="L18870" class="LineNr">18870 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18871" class="LineNr">18871 </span> 59/pop-to-ecx -<span id="L18872" class="LineNr">18872 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18873" class="LineNr">18873 </span> 89/<- %esp 5/r32/ebp -<span id="L18874" class="LineNr">18874 </span> 5d/pop-to-ebp -<span id="L18875" class="LineNr">18875 </span> c3/return -<span id="L18876" class="LineNr">18876 </span> -<span id="L18877" class="LineNr">18877 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> -<span id="L18878" class="LineNr">18878 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L18879" class="LineNr">18879 </span><span class="subxFunction">lookup-var-or-literal</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L18880" class="LineNr">18880 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18881" class="LineNr">18881 </span> 55/push-ebp -<span id="L18882" class="LineNr">18882 </span> 89/<- %ebp 4/r32/esp -<span id="L18883" class="LineNr">18883 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18884" class="LineNr">18884 </span> 50/push-eax -<span id="L18885" class="LineNr">18885 </span> 51/push-ecx -<span id="L18886" class="LineNr">18886 </span> 56/push-esi -<span id="L18887" class="LineNr">18887 </span> <span class="subxComment"># esi = name</span> -<span id="L18888" class="LineNr">18888 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L18889" class="LineNr">18889 </span> <span class="subxComment"># if slice-empty?(name) abort</span> -<span id="L18890" class="LineNr">18890 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L18891" class="LineNr">18891 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18892" class="LineNr">18892 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 -<span id="L18893" class="LineNr">18893 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> -<span id="L18894" class="LineNr">18894 </span> 8b/-> *esi 1/r32/ecx -<span id="L18895" class="LineNr">18895 </span> 8a/copy-byte *ecx 1/r32/CL -<span id="L18896" class="LineNr">18896 </span> 81 4/subop/and %ecx 0xff/imm32 -<span id="L18897" class="LineNr">18897 </span> <span class="subxComment"># if (is-decimal-digit?(c) || c == '-') return new var(name)</span> -<span id="L18898" class="LineNr">18898 </span> { -<span id="L18899" class="LineNr">18899 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash -<span id="L18900" class="LineNr">18900 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 -<span id="L18901" class="LineNr">18901 </span> (<a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L18902" class="LineNr">18902 </span> 3d/compare-eax-and 0/imm32/false -<span id="L18903" class="LineNr">18903 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L18904" class="LineNr">18904 </span><span class="Constant">$lookup-var-or-literal:literal</span>: -<span id="L18905" class="LineNr">18905 </span> (<a href='mu.subx.html#L19548'>new-literal-integer</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18906" class="LineNr">18906 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L18907" class="LineNr">18907 </span> } -<span id="L18908" class="LineNr">18908 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> -<span id="L18909" class="LineNr">18909 </span> { -<span id="L18910" class="LineNr">18910 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote -<span id="L18911" class="LineNr">18911 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18912" class="LineNr">18912 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: -<span id="L18913" class="LineNr">18913 </span> (<a href='mu.subx.html#L19697'>new-literal-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) -<span id="L18914" class="LineNr">18914 </span> eb/jump $lookup-var-or-literal:end/disp8 -<span id="L18915" class="LineNr">18915 </span> } -<span id="L18916" class="LineNr">18916 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> -<span id="L18917" class="LineNr">18917 </span> { -<span id="L18918" class="LineNr">18918 </span><span class="Constant">$lookup-var-or-literal:var</span>: -<span id="L18919" class="LineNr">18919 </span> (<a href='mu.subx.html#L18942'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18920" class="LineNr">18920 </span> } -<span id="L18921" class="LineNr">18921 </span><span class="Constant">$lookup-var-or-literal:end</span>: -<span id="L18922" class="LineNr">18922 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18923" class="LineNr">18923 </span> 5e/pop-to-esi -<span id="L18924" class="LineNr">18924 </span> 59/pop-to-ecx -<span id="L18925" class="LineNr">18925 </span> 58/pop-to-eax -<span id="L18926" class="LineNr">18926 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18927" class="LineNr">18927 </span> 89/<- %esp 5/r32/ebp -<span id="L18928" class="LineNr">18928 </span> 5d/pop-to-ebp -<span id="L18929" class="LineNr">18929 </span> c3/return -<span id="L18930" class="LineNr">18930 </span> -<span id="L18931" class="LineNr">18931 </span><span class="Constant">$lookup-var-or-literal:abort</span>: -<span id="L18932" class="LineNr">18932 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18933" class="LineNr">18933 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18934" class="LineNr">18934 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18935" class="LineNr">18935 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18936" class="LineNr">18936 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) -<span id="L18937" class="LineNr">18937 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18938" class="LineNr">18938 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18939" class="LineNr">18939 </span> <span class="subxComment"># never gets here</span> -<span id="L18940" class="LineNr">18940 </span> -<span id="L18941" class="LineNr">18941 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> -<span id="L18942" class="LineNr">18942 </span><span class="subxFunction">lookup-var</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L18943" class="LineNr">18943 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18944" class="LineNr">18944 </span> 55/push-ebp -<span id="L18945" class="LineNr">18945 </span> 89/<- %ebp 4/r32/esp -<span id="L18946" class="LineNr">18946 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18947" class="LineNr">18947 </span> 50/push-eax -<span id="L18948" class="LineNr">18948 </span> <span class="subxComment">#</span> -<span id="L18949" class="LineNr">18949 </span> (<a href='mu.subx.html#L18976'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L18950" class="LineNr">18950 </span> <span class="subxComment"># if (*out == 0) abort</span> -<span id="L18951" class="LineNr">18951 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L18952" class="LineNr">18952 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L18953" class="LineNr">18953 </span> 74/jump-if-= $lookup-var:abort/disp8 -<span id="L18954" class="LineNr">18954 </span><span class="Constant">$lookup-var:end</span>: -<span id="L18955" class="LineNr">18955 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L18956" class="LineNr">18956 </span> 58/pop-to-eax -<span id="L18957" class="LineNr">18957 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L18958" class="LineNr">18958 </span> 89/<- %esp 5/r32/ebp -<span id="L18959" class="LineNr">18959 </span> 5d/pop-to-ebp -<span id="L18960" class="LineNr">18960 </span> c3/return -<span id="L18961" class="LineNr">18961 </span> -<span id="L18962" class="LineNr">18962 </span><span class="Constant">$lookup-var:abort</span>: -<span id="L18963" class="LineNr">18963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L18964" class="LineNr">18964 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L18965" class="LineNr">18965 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L18966" class="LineNr">18966 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L18967" class="LineNr">18967 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) -<span id="L18968" class="LineNr">18968 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L18969" class="LineNr">18969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L18970" class="LineNr">18970 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L18971" class="LineNr">18971 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L18972" class="LineNr">18972 </span> <span class="subxComment"># never gets here</span> -<span id="L18973" class="LineNr">18973 </span> -<span id="L18974" class="LineNr">18974 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> -<span id="L18975" class="LineNr">18975 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> -<span id="L18976" class="LineNr">18976 </span><span class="subxFunction">lookup-var-helper</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L18977" class="LineNr">18977 </span> <span class="subxComment"># pseudocode:</span> -<span id="L18978" class="LineNr">18978 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L18979" class="LineNr">18979 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L18980" class="LineNr">18980 </span> <span class="subxComment"># while curr >= min</span> -<span id="L18981" class="LineNr">18981 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L18982" class="LineNr">18982 </span> <span class="subxComment"># if v->name == name</span> -<span id="L18983" class="LineNr">18983 </span> <span class="subxComment"># return</span> -<span id="L18984" class="LineNr">18984 </span> <span class="subxComment"># curr -= 12</span> -<span id="L18985" class="LineNr">18985 </span> <span class="subxComment">#</span> -<span id="L18986" class="LineNr">18986 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L18987" class="LineNr">18987 </span> 55/push-ebp -<span id="L18988" class="LineNr">18988 </span> 89/<- %ebp 4/r32/esp -<span id="L18989" class="LineNr">18989 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18990" class="LineNr">18990 </span> 50/push-eax -<span id="L18991" class="LineNr">18991 </span> 51/push-ecx -<span id="L18992" class="LineNr">18992 </span> 52/push-edx -<span id="L18993" class="LineNr">18993 </span> 53/push-ebx -<span id="L18994" class="LineNr">18994 </span> 56/push-esi -<span id="L18995" class="LineNr">18995 </span> 57/push-edi -<span id="L18996" class="LineNr">18996 </span> <span class="subxComment"># clear out</span> -<span id="L18997" class="LineNr">18997 </span> (<a href='../120allocate.subx.html#L877'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='../120allocate.subx.html#L23'>Handle-size</a></span>) -<span id="L18998" class="LineNr">18998 </span> <span class="subxComment"># esi = vars</span> -<span id="L18999" class="LineNr">18999 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L19000" class="LineNr">19000 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L19001" class="LineNr">19001 </span> 8b/-> *esi 3/r32/ebx -<span id="L19002" class="LineNr">19002 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> -<span id="L19003" class="LineNr">19003 </span> 3b/compare<- *(esi+4) 0/r32/eax -<span id="L19004" class="LineNr">19004 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 -<span id="L19005" class="LineNr">19005 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19006" class="LineNr">19006 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19007" class="LineNr">19007 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19008" class="LineNr">19008 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19009" class="LineNr">19009 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> -<span id="L19010" class="LineNr">19010 </span> 68/push 0/imm32 -<span id="L19011" class="LineNr">19011 </span> 68/push 0/imm32 -<span id="L19012" class="LineNr">19012 </span> 68/push 0/imm32 -<span id="L19013" class="LineNr">19013 </span> 68/push 0/imm32 -<span id="L19014" class="LineNr">19014 </span> 68/push 0/imm32 -<span id="L19015" class="LineNr">19015 </span> 68/push 0/imm32 -<span id="L19016" class="LineNr">19016 </span> 68/push 0/imm32 -<span id="L19017" class="LineNr">19017 </span> 68/push 0/imm32 -<span id="L19018" class="LineNr">19018 </span> 68/push 0/imm32 -<span id="L19019" class="LineNr">19019 </span> 68/push 0/imm32 -<span id="L19020" class="LineNr">19020 </span> 68/push 0/imm32 -<span id="L19021" class="LineNr">19021 </span> 68/push 0/imm32 -<span id="L19022" class="LineNr">19022 </span> 68/push 0/imm32 -<span id="L19023" class="LineNr">19023 </span> 68/push 0/imm32 -<span id="L19024" class="LineNr">19024 </span> 68/push 0/imm32 -<span id="L19025" class="LineNr">19025 </span> 68/push 0/imm32 -<span id="L19026" class="LineNr">19026 </span> 89/<- %edi 4/r32/esp -<span id="L19027" class="LineNr">19027 </span> { -<span id="L19028" class="LineNr">19028 </span><span class="Constant">$lookup-var-helper:loop</span>: -<span id="L19029" class="LineNr">19029 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19030" class="LineNr">19030 </span> 39/compare %ebx 2/r32/edx -<span id="L19031" class="LineNr">19031 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19032" class="LineNr">19032 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> -<span id="L19033" class="LineNr">19033 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L19034" class="LineNr">19034 </span> 89/<- %ecx 0/r32/eax -<span id="L19035" class="LineNr">19035 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L19036" class="LineNr">19036 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19037" class="LineNr">19037 </span> <span class="subxComment"># if (vn == name) return curr</span> -<span id="L19038" class="LineNr">19038 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> -<span id="L19039" class="LineNr">19039 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19040" class="LineNr">19040 </span> { -<span id="L19041" class="LineNr">19041 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19042" class="LineNr">19042 </span><span class="Constant">$lookup-var-helper:found</span>: -<span id="L19043" class="LineNr">19043 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L19044" class="LineNr">19044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19045" class="LineNr">19045 </span> 3d/compare-eax-and 0/imm32 -<span id="L19046" class="LineNr">19046 </span> { -<span id="L19047" class="LineNr">19047 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19048" class="LineNr">19048 </span><span class="Constant">$lookup-var-helper:found-register</span>: -<span id="L19049" class="LineNr">19049 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> -<span id="L19050" class="LineNr">19050 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19209'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L19051" class="LineNr">19051 </span> 8b/-> *eax 0/r32/eax -<span id="L19052" class="LineNr">19052 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> -<span id="L19053" class="LineNr">19053 </span> 8b/-> *(edi+eax<<2) 0/r32/eax -<span id="L19054" class="LineNr">19054 </span> 3d/compare-eax-and 0/imm32 -<span id="L19055" class="LineNr">19055 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 -<span id="L19056" class="LineNr">19056 </span> } -<span id="L19057" class="LineNr">19057 </span><span class="Constant">$lookup-var-helper:return</span>: -<span id="L19058" class="LineNr">19058 </span> <span class="subxComment"># esi = out</span> -<span id="L19059" class="LineNr">19059 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L19060" class="LineNr">19060 </span> <span class="subxComment"># *out = *curr</span> -<span id="L19061" class="LineNr">19061 </span> 8b/-> *ebx 0/r32/eax -<span id="L19062" class="LineNr">19062 </span> 89/<- *esi 0/r32/eax -<span id="L19063" class="LineNr">19063 </span> 8b/-> *(ebx+4) 0/r32/eax -<span id="L19064" class="LineNr">19064 </span> 89/<- *(esi+4) 0/r32/eax -<span id="L19065" class="LineNr">19065 </span> <span class="subxComment"># return</span> -<span id="L19066" class="LineNr">19066 </span> eb/jump $lookup-var-helper:end/disp8 -<span id="L19067" class="LineNr">19067 </span> } -<span id="L19068" class="LineNr">19068 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> -<span id="L19069" class="LineNr">19069 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> -<span id="L19070" class="LineNr">19070 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19071" class="LineNr">19071 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> -<span id="L19072" class="LineNr">19072 </span> 3d/compare-eax-and 0/imm32 -<span id="L19073" class="LineNr">19073 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 -<span id="L19074" class="LineNr">19074 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> -<span id="L19075" class="LineNr">19075 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19209'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> -<span id="L19076" class="LineNr">19076 </span> 8b/-> *eax 0/r32/eax -<span id="L19077" class="LineNr">19077 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> -<span id="L19078" class="LineNr">19078 </span> 89/<- *(edi+eax<<2) 1/r32/ecx -<span id="L19079" class="LineNr">19079 </span><span class="Constant">$lookup-var-helper:continue</span>: -<span id="L19080" class="LineNr">19080 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19081" class="LineNr">19081 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L19082" class="LineNr">19082 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19083" class="LineNr">19083 </span> } -<span id="L19084" class="LineNr">19084 </span><span class="Constant">$lookup-var-helper:end</span>: -<span id="L19085" class="LineNr">19085 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19086" class="LineNr">19086 </span> 81 0/subop/add %esp 0x40/imm32 -<span id="L19087" class="LineNr">19087 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19088" class="LineNr">19088 </span> 5f/pop-to-edi -<span id="L19089" class="LineNr">19089 </span> 5e/pop-to-esi -<span id="L19090" class="LineNr">19090 </span> 5b/pop-to-ebx -<span id="L19091" class="LineNr">19091 </span> 5a/pop-to-edx -<span id="L19092" class="LineNr">19092 </span> 59/pop-to-ecx -<span id="L19093" class="LineNr">19093 </span> 58/pop-to-eax -<span id="L19094" class="LineNr">19094 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19095" class="LineNr">19095 </span> 89/<- %esp 5/r32/ebp -<span id="L19096" class="LineNr">19096 </span> 5d/pop-to-ebp -<span id="L19097" class="LineNr">19097 </span> c3/return -<span id="L19098" class="LineNr">19098 </span> -<span id="L19099" class="LineNr">19099 </span><span class="Constant">$lookup-var-helper:error1</span>: -<span id="L19100" class="LineNr">19100 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19101" class="LineNr">19101 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19102" class="LineNr">19102 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19103" class="LineNr">19103 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19104" class="LineNr">19104 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) -<span id="L19105" class="LineNr">19105 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L19106" class="LineNr">19106 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19107" class="LineNr">19107 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19108" class="LineNr">19108 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19109" class="LineNr">19109 </span> <span class="subxComment"># never gets here</span> -<span id="L19110" class="LineNr">19110 </span> -<span id="L19111" class="LineNr">19111 </span><span class="Constant">$lookup-var-helper:error2</span>: -<span id="L19112" class="LineNr">19112 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> -<span id="L19113" class="LineNr">19113 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19114" class="LineNr">19114 </span> 50/push-eax -<span id="L19115" class="LineNr">19115 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19116" class="LineNr">19116 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19117" class="LineNr">19117 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19118" class="LineNr">19118 </span> 58/pop-eax -<span id="L19119" class="LineNr">19119 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) -<span id="L19120" class="LineNr">19120 </span> 50/push-eax -<span id="L19121" class="LineNr">19121 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L19122" class="LineNr">19122 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19123" class="LineNr">19123 </span> 58/pop-to-eax -<span id="L19124" class="LineNr">19124 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) -<span id="L19125" class="LineNr">19125 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) -<span id="L19126" class="LineNr">19126 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) -<span id="L19127" class="LineNr">19127 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19128" class="LineNr">19128 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19129" class="LineNr">19129 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) -<span id="L19130" class="LineNr">19130 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19131" class="LineNr">19131 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19132" class="LineNr">19132 </span> <span class="subxComment"># never gets here</span> -<span id="L19133" class="LineNr">19133 </span> -<span id="L19134" class="LineNr">19134 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> -<span id="L19135" class="LineNr">19135 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19136" class="LineNr">19136 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19137" class="LineNr">19137 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19138" class="LineNr">19138 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19139" class="LineNr">19139 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19140" class="LineNr">19140 </span> <span class="subxComment"># print v</span> -<span id="L19141" class="LineNr">19141 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19142" class="LineNr">19142 </span> <span class="subxComment">#</span> -<span id="L19143" class="LineNr">19143 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19144" class="LineNr">19144 </span> 55/push-ebp -<span id="L19145" class="LineNr">19145 </span> 89/<- %ebp 4/r32/esp -<span id="L19146" class="LineNr">19146 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19147" class="LineNr">19147 </span> 52/push-edx -<span id="L19148" class="LineNr">19148 </span> 53/push-ebx -<span id="L19149" class="LineNr">19149 </span> 56/push-esi -<span id="L19150" class="LineNr">19150 </span> <span class="subxComment"># esi = vars</span> -<span id="L19151" class="LineNr">19151 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L19152" class="LineNr">19152 </span> <span class="subxComment"># ebx = vars->top</span> -<span id="L19153" class="LineNr">19153 </span> 8b/-> *esi 3/r32/ebx -<span id="L19154" class="LineNr">19154 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19155" class="LineNr">19155 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19156" class="LineNr">19156 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19157" class="LineNr">19157 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19158" class="LineNr">19158 </span> { -<span id="L19159" class="LineNr">19159 </span><span class="Constant">$dump-vars:loop</span>: -<span id="L19160" class="LineNr">19160 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19161" class="LineNr">19161 </span> 39/compare %ebx 2/r32/edx -<span id="L19162" class="LineNr">19162 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19163" class="LineNr">19163 </span> <span class="subxComment">#</span> -<span id="L19164" class="LineNr">19164 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" var@"</span>) -<span id="L19165" class="LineNr">19165 </span> (<a href='mu.subx.html#L21000'>dump-var</a> 2 %ebx) -<span id="L19166" class="LineNr">19166 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19167" class="LineNr">19167 </span> 81 5/subop/subtract %ebx 0xc/imm32 -<span id="L19168" class="LineNr">19168 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19169" class="LineNr">19169 </span> } -<span id="L19170" class="LineNr">19170 </span><span class="Constant">$dump-vars:end</span>: -<span id="L19171" class="LineNr">19171 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19172" class="LineNr">19172 </span> 5e/pop-to-esi -<span id="L19173" class="LineNr">19173 </span> 5b/pop-to-ebx -<span id="L19174" class="LineNr">19174 </span> 5a/pop-to-edx -<span id="L19175" class="LineNr">19175 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19176" class="LineNr">19176 </span> 89/<- %esp 5/r32/ebp -<span id="L19177" class="LineNr">19177 </span> 5d/pop-to-ebp -<span id="L19178" class="LineNr">19178 </span> c3/return -<span id="L19179" class="LineNr">19179 </span> -<span id="L19180" class="LineNr">19180 </span>== data -<span id="L19181" class="LineNr">19181 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> -<span id="L19182" class="LineNr">19182 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L19183" class="LineNr">19183 </span> <span class="subxComment"># a table is a stream</span> -<span id="L19184" class="LineNr">19184 </span> 0xa8/imm32/write -<span id="L19185" class="LineNr">19185 </span> 0/imm32/read -<span id="L19186" class="LineNr">19186 </span> 0xa8/imm32/length -<span id="L19187" class="LineNr">19187 </span> <span class="subxComment"># data</span> -<span id="L19188" class="LineNr">19188 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L19189" class="LineNr">19189 </span> <span class="subxComment"># it is perfectly ok to use fake alloc-ids -- as long as you never try to reclaim them</span> -<span id="L19190" class="LineNr">19190 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L19191" class="LineNr">19191 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L19192" class="LineNr">19192 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L19193" class="LineNr">19193 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L19194" class="LineNr">19194 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L19195" class="LineNr">19195 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L19196" class="LineNr">19196 </span> <span class="subxComment"># floating-point registers</span> -<span id="L19197" class="LineNr">19197 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 -<span id="L19198" class="LineNr">19198 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 -<span id="L19199" class="LineNr">19199 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 -<span id="L19200" class="LineNr">19200 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 -<span id="L19201" class="LineNr">19201 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 -<span id="L19202" class="LineNr">19202 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 -<span id="L19203" class="LineNr">19203 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 -<span id="L19204" class="LineNr">19204 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 -<span id="L19205" class="LineNr">19205 </span> -<span id="L19206" class="LineNr">19206 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> -<span id="L19207" class="LineNr">19207 </span><span class="subxComment"># registers.</span> -<span id="L19208" class="LineNr">19208 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> -<span id="L19209" class="LineNr">19209 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> -<span id="L19210" class="LineNr">19210 </span> <span class="subxComment"># a table is a stream</span> -<span id="L19211" class="LineNr">19211 </span> 0xa8/imm32/write -<span id="L19212" class="LineNr">19212 </span> 0/imm32/read -<span id="L19213" class="LineNr">19213 </span> 0xa8/imm32/length -<span id="L19214" class="LineNr">19214 </span> <span class="subxComment"># data</span> -<span id="L19215" class="LineNr">19215 </span> <span class="subxComment"># general-purpose registers</span> -<span id="L19216" class="LineNr">19216 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 -<span id="L19217" class="LineNr">19217 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 -<span id="L19218" class="LineNr">19218 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 -<span id="L19219" class="LineNr">19219 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 -<span id="L19220" class="LineNr">19220 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 -<span id="L19221" class="LineNr">19221 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 -<span id="L19222" class="LineNr">19222 </span> <span class="subxComment"># floating-point registers</span> -<span id="L19223" class="LineNr">19223 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 -<span id="L19224" class="LineNr">19224 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 -<span id="L19225" class="LineNr">19225 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 -<span id="L19226" class="LineNr">19226 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 -<span id="L19227" class="LineNr">19227 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 -<span id="L19228" class="LineNr">19228 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 -<span id="L19229" class="LineNr">19229 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 -<span id="L19230" class="LineNr">19230 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 -<span id="L19231" class="LineNr">19231 </span> -<span id="L19232" class="LineNr">19232 </span><span class="Constant">$Mu-register-eax</span>: -<span id="L19233" class="LineNr">19233 </span> 0x11/imm32/alloc-id -<span id="L19234" class="LineNr">19234 </span> 3/imm32/size -<span id="L19235" class="LineNr">19235 </span> 0x65/e 0x61/a 0x78/x -<span id="L19236" class="LineNr">19236 </span> -<span id="L19237" class="LineNr">19237 </span><span class="Constant">$Mu-register-ecx</span>: -<span id="L19238" class="LineNr">19238 </span> 0x11/imm32/alloc-id -<span id="L19239" class="LineNr">19239 </span> 3/imm32/size -<span id="L19240" class="LineNr">19240 </span> 0x65/e 0x63/c 0x78/x -<span id="L19241" class="LineNr">19241 </span> -<span id="L19242" class="LineNr">19242 </span><span class="Constant">$Mu-register-edx</span>: -<span id="L19243" class="LineNr">19243 </span> 0x11/imm32/alloc-id -<span id="L19244" class="LineNr">19244 </span> 3/imm32/size -<span id="L19245" class="LineNr">19245 </span> 0x65/e 0x64/d 0x78/x -<span id="L19246" class="LineNr">19246 </span> -<span id="L19247" class="LineNr">19247 </span><span class="Constant">$Mu-register-ebx</span>: -<span id="L19248" class="LineNr">19248 </span> 0x11/imm32/alloc-id -<span id="L19249" class="LineNr">19249 </span> 3/imm32/size -<span id="L19250" class="LineNr">19250 </span> 0x65/e 0x62/b 0x78/x -<span id="L19251" class="LineNr">19251 </span> -<span id="L19252" class="LineNr">19252 </span><span class="Constant">$Mu-register-esi</span>: -<span id="L19253" class="LineNr">19253 </span> 0x11/imm32/alloc-id -<span id="L19254" class="LineNr">19254 </span> 3/imm32/size -<span id="L19255" class="LineNr">19255 </span> 0x65/e 0x73/s 0x69/i -<span id="L19256" class="LineNr">19256 </span> -<span id="L19257" class="LineNr">19257 </span><span class="Constant">$Mu-register-edi</span>: -<span id="L19258" class="LineNr">19258 </span> 0x11/imm32/alloc-id -<span id="L19259" class="LineNr">19259 </span> 3/imm32/size -<span id="L19260" class="LineNr">19260 </span> 0x65/e 0x64/d 0x69/i -<span id="L19261" class="LineNr">19261 </span> -<span id="L19262" class="LineNr">19262 </span><span class="Constant">$Mu-register-xmm0</span>: -<span id="L19263" class="LineNr">19263 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19264" class="LineNr">19264 </span> <span class="subxComment"># "xmm0"</span> -<span id="L19265" class="LineNr">19265 </span> 0x4/imm32/size -<span id="L19266" class="LineNr">19266 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 -<span id="L19267" class="LineNr">19267 </span> -<span id="L19268" class="LineNr">19268 </span><span class="Constant">$Mu-register-xmm1</span>: -<span id="L19269" class="LineNr">19269 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19270" class="LineNr">19270 </span> <span class="subxComment"># "xmm1"</span> -<span id="L19271" class="LineNr">19271 </span> 0x4/imm32/size -<span id="L19272" class="LineNr">19272 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 -<span id="L19273" class="LineNr">19273 </span> -<span id="L19274" class="LineNr">19274 </span><span class="Constant">$Mu-register-xmm2</span>: -<span id="L19275" class="LineNr">19275 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19276" class="LineNr">19276 </span> <span class="subxComment"># "xmm2"</span> -<span id="L19277" class="LineNr">19277 </span> 0x4/imm32/size -<span id="L19278" class="LineNr">19278 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 -<span id="L19279" class="LineNr">19279 </span> -<span id="L19280" class="LineNr">19280 </span><span class="Constant">$Mu-register-xmm3</span>: -<span id="L19281" class="LineNr">19281 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19282" class="LineNr">19282 </span> <span class="subxComment"># "xmm3"</span> -<span id="L19283" class="LineNr">19283 </span> 0x4/imm32/size -<span id="L19284" class="LineNr">19284 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 -<span id="L19285" class="LineNr">19285 </span> -<span id="L19286" class="LineNr">19286 </span><span class="Constant">$Mu-register-xmm4</span>: -<span id="L19287" class="LineNr">19287 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19288" class="LineNr">19288 </span> <span class="subxComment"># "xmm4"</span> -<span id="L19289" class="LineNr">19289 </span> 0x4/imm32/size -<span id="L19290" class="LineNr">19290 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 -<span id="L19291" class="LineNr">19291 </span> -<span id="L19292" class="LineNr">19292 </span><span class="Constant">$Mu-register-xmm5</span>: -<span id="L19293" class="LineNr">19293 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19294" class="LineNr">19294 </span> <span class="subxComment"># "xmm5"</span> -<span id="L19295" class="LineNr">19295 </span> 0x4/imm32/size -<span id="L19296" class="LineNr">19296 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 -<span id="L19297" class="LineNr">19297 </span> -<span id="L19298" class="LineNr">19298 </span><span class="Constant">$Mu-register-xmm6</span>: -<span id="L19299" class="LineNr">19299 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19300" class="LineNr">19300 </span> <span class="subxComment"># "xmm6"</span> -<span id="L19301" class="LineNr">19301 </span> 0x4/imm32/size -<span id="L19302" class="LineNr">19302 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 -<span id="L19303" class="LineNr">19303 </span> -<span id="L19304" class="LineNr">19304 </span><span class="Constant">$Mu-register-xmm7</span>: -<span id="L19305" class="LineNr">19305 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L19306" class="LineNr">19306 </span> <span class="subxComment"># "xmm7"</span> -<span id="L19307" class="LineNr">19307 </span> 0x4/imm32/size -<span id="L19308" class="LineNr">19308 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 -<span id="L19309" class="LineNr">19309 </span> -<span id="L19310" class="LineNr">19310 </span>== code -<span id="L19311" class="LineNr">19311 </span> -<span id="L19312" class="LineNr">19312 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> -<span id="L19313" class="LineNr">19313 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> -<span id="L19314" class="LineNr">19314 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19315" class="LineNr">19315 </span> 55/push-ebp -<span id="L19316" class="LineNr">19316 </span> 89/<- %ebp 4/r32/esp -<span id="L19317" class="LineNr">19317 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19318" class="LineNr">19318 </span> 50/push-eax -<span id="L19319" class="LineNr">19319 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L19320" class="LineNr">19320 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L19321" class="LineNr">19321 </span> <span class="subxComment">#</span> -<span id="L19322" class="LineNr">19322 </span> (<a href='mu.subx.html#L19338'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L19323" class="LineNr">19323 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19324" class="LineNr">19324 </span> 75/jump-if-!= $maybe-define-var:end/disp8 -<span id="L19325" class="LineNr">19325 </span> <span class="subxComment"># otherwise update vars</span> -<span id="L19326" class="LineNr">19326 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) -<span id="L19327" class="LineNr">19327 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) -<span id="L19328" class="LineNr">19328 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># 'out' is always a fn output; never spill it</span> -<span id="L19329" class="LineNr">19329 </span><span class="Constant">$maybe-define-var:end</span>: -<span id="L19330" class="LineNr">19330 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19331" class="LineNr">19331 </span> 58/pop-to-eax -<span id="L19332" class="LineNr">19332 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19333" class="LineNr">19333 </span> 89/<- %esp 5/r32/ebp -<span id="L19334" class="LineNr">19334 </span> 5d/pop-to-ebp -<span id="L19335" class="LineNr">19335 </span> c3/return -<span id="L19336" class="LineNr">19336 </span> -<span id="L19337" class="LineNr">19337 </span><span class="subxComment"># simpler version of lookup-var-helper</span> -<span id="L19338" class="LineNr">19338 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> -<span id="L19339" class="LineNr">19339 </span> <span class="subxComment"># pseudocode:</span> -<span id="L19340" class="LineNr">19340 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19341" class="LineNr">19341 </span> <span class="subxComment"># var min = vars->data</span> -<span id="L19342" class="LineNr">19342 </span> <span class="subxComment"># while curr >= min</span> -<span id="L19343" class="LineNr">19343 </span> <span class="subxComment"># var v: (handle var) = *curr</span> -<span id="L19344" class="LineNr">19344 </span> <span class="subxComment"># if v->name == target->name</span> -<span id="L19345" class="LineNr">19345 </span> <span class="subxComment"># return true</span> -<span id="L19346" class="LineNr">19346 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19347" class="LineNr">19347 </span> <span class="subxComment"># return false</span> -<span id="L19348" class="LineNr">19348 </span> <span class="subxComment">#</span> -<span id="L19349" class="LineNr">19349 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19350" class="LineNr">19350 </span> 55/push-ebp -<span id="L19351" class="LineNr">19351 </span> 89/<- %ebp 4/r32/esp -<span id="L19352" class="LineNr">19352 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19353" class="LineNr">19353 </span> 51/push-ecx -<span id="L19354" class="LineNr">19354 </span> 52/push-edx -<span id="L19355" class="LineNr">19355 </span> 56/push-esi -<span id="L19356" class="LineNr">19356 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> -<span id="L19357" class="LineNr">19357 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L19358" class="LineNr">19358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19359" class="LineNr">19359 </span> 89/<- %ecx 0/r32/eax -<span id="L19360" class="LineNr">19360 </span> <span class="subxComment"># esi = vars</span> -<span id="L19361" class="LineNr">19361 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L19362" class="LineNr">19362 </span> <span class="subxComment"># eax = vars->top</span> -<span id="L19363" class="LineNr">19363 </span> 8b/-> *esi 0/r32/eax -<span id="L19364" class="LineNr">19364 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> -<span id="L19365" class="LineNr">19365 </span> 8d/copy-address *(esi+8) 2/r32/edx -<span id="L19366" class="LineNr">19366 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L19367" class="LineNr">19367 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> -<span id="L19368" class="LineNr">19368 </span> { -<span id="L19369" class="LineNr">19369 </span><span class="Constant">$binding-exists?:loop</span>: -<span id="L19370" class="LineNr">19370 </span> <span class="subxComment"># if (curr < min) return</span> -<span id="L19371" class="LineNr">19371 </span> 39/compare %esi 2/r32/edx -<span id="L19372" class="LineNr">19372 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L19373" class="LineNr">19373 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> -<span id="L19374" class="LineNr">19374 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L19375" class="LineNr">19375 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> -<span id="L19376" class="LineNr">19376 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19377" class="LineNr">19377 </span> <span class="subxComment"># if (vn == target-name) return true</span> -<span id="L19378" class="LineNr">19378 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L19379" class="LineNr">19379 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19380" class="LineNr">19380 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> -<span id="L19381" class="LineNr">19381 </span> <span class="subxComment"># curr -= 12</span> -<span id="L19382" class="LineNr">19382 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L19383" class="LineNr">19383 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L19384" class="LineNr">19384 </span> } -<span id="L19385" class="LineNr">19385 </span> b8/copy-to-eax 0/imm32/false -<span id="L19386" class="LineNr">19386 </span><span class="Constant">$binding-exists?:end</span>: -<span id="L19387" class="LineNr">19387 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19388" class="LineNr">19388 </span> 5e/pop-to-esi -<span id="L19389" class="LineNr">19389 </span> 5a/pop-to-edx -<span id="L19390" class="LineNr">19390 </span> 59/pop-to-ecx -<span id="L19391" class="LineNr">19391 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19392" class="LineNr">19392 </span> 89/<- %esp 5/r32/ebp -<span id="L19393" class="LineNr">19393 </span> 5d/pop-to-ebp -<span id="L19394" class="LineNr">19394 </span> c3/return -<span id="L19395" class="LineNr">19395 </span> -<span id="L19396" class="LineNr">19396 </span><span class="subxTest">test-parse-mu-stmt</span>: -<span id="L19397" class="LineNr">19397 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19398" class="LineNr">19398 </span> 55/push-ebp -<span id="L19399" class="LineNr">19399 </span> 89/<- %ebp 4/r32/esp -<span id="L19400" class="LineNr">19400 </span> <span class="subxComment"># setup</span> -<span id="L19401" class="LineNr">19401 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L19402" class="LineNr">19402 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L19403" class="LineNr">19403 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L19404" class="LineNr">19404 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"increment n\n"</span>) -<span id="L19405" class="LineNr">19405 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L19406" class="LineNr">19406 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L19407" class="LineNr">19407 </span> 68/push 0xc0/imm32/size -<span id="L19408" class="LineNr">19408 </span> 68/push 0/imm32/top -<span id="L19409" class="LineNr">19409 </span> 89/<- %ecx 4/r32/esp -<span id="L19410" class="LineNr">19410 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L19411" class="LineNr">19411 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L19412" class="LineNr">19412 </span> 68/push 0/imm32 -<span id="L19413" class="LineNr">19413 </span> 68/push 0/imm32 -<span id="L19414" class="LineNr">19414 </span> 89/<- %edx 4/r32/esp -<span id="L19415" class="LineNr">19415 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L19416" class="LineNr">19416 </span> 68/push 0/imm32 -<span id="L19417" class="LineNr">19417 </span> 68/push 0/imm32 -<span id="L19418" class="LineNr">19418 </span> 89/<- %eax 4/r32/esp -<span id="L19419" class="LineNr">19419 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L19420" class="LineNr">19420 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) -<span id="L19421" class="LineNr">19421 </span> (<a href='mu.subx.html#L19512'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L19422" class="LineNr">19422 </span> <span class="subxComment">#</span> -<span id="L19423" class="LineNr">19423 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L19424" class="LineNr">19424 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L19425" class="LineNr">19425 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L19426" class="LineNr">19426 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L19427" class="LineNr">19427 </span> 68/push 0/imm32 -<span id="L19428" class="LineNr">19428 </span> 68/push 0/imm32 -<span id="L19429" class="LineNr">19429 </span> 89/<- %eax 4/r32/esp -<span id="L19430" class="LineNr">19430 </span> <span class="subxComment"># convert</span> -<span id="L19431" class="LineNr">19431 </span> (<a href='mu.subx.html#L18550'>parse-mu-stmt</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %ecx 0 %eax <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L19432" class="LineNr">19432 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L19433" class="LineNr">19433 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19434" class="LineNr">19434 </span> 89/<- %edx 0/r32/eax -<span id="L19435" class="LineNr">19435 </span> <span class="subxComment"># out->tag</span> -<span id="L19436" class="LineNr">19436 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19396'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L19437" class="LineNr">19437 </span> <span class="subxComment"># out->operation</span> -<span id="L19438" class="LineNr">19438 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19439" class="LineNr">19439 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"increment"</span> <span class="Constant">"F - <a href='mu.subx.html#L19396'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L19440" class="LineNr">19440 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L19441" class="LineNr">19441 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L19442" class="LineNr">19442 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L19443" class="LineNr">19443 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L19444" class="LineNr">19444 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L19445" class="LineNr">19445 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L19446" class="LineNr">19446 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19447" class="LineNr">19447 </span> <span class="subxS1Comment"># .</span> -<span id="L19448" class="LineNr">19448 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L19396'>test-parse-mu-stmt</a>/inout:0"</span>) -<span id="L19449" class="LineNr">19449 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19450" class="LineNr">19450 </span> 89/<- %esp 5/r32/ebp -<span id="L19451" class="LineNr">19451 </span> 5d/pop-to-ebp -<span id="L19452" class="LineNr">19452 </span> c3/return -<span id="L19453" class="LineNr">19453 </span> -<span id="L19454" class="LineNr">19454 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: -<span id="L19455" class="LineNr">19455 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19456" class="LineNr">19456 </span> 55/push-ebp -<span id="L19457" class="LineNr">19457 </span> 89/<- %ebp 4/r32/esp -<span id="L19458" class="LineNr">19458 </span> <span class="subxComment"># setup</span> -<span id="L19459" class="LineNr">19459 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax -<span id="L19460" class="LineNr">19460 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> -<span id="L19461" class="LineNr">19461 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L19462" class="LineNr">19462 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"copy-to n, 3\n"</span>) -<span id="L19463" class="LineNr">19463 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> -<span id="L19464" class="LineNr">19464 </span> 81 5/subop/subtract %esp 0xc0/imm32 -<span id="L19465" class="LineNr">19465 </span> 68/push 0xc0/imm32/size -<span id="L19466" class="LineNr">19466 </span> 68/push 0/imm32/top -<span id="L19467" class="LineNr">19467 </span> 89/<- %ecx 4/r32/esp -<span id="L19468" class="LineNr">19468 </span> (<a href='../203stack.subx.html#L13'>clear-stack</a> %ecx) -<span id="L19469" class="LineNr">19469 </span> <span class="subxComment"># var v/edx: (handle var)</span> -<span id="L19470" class="LineNr">19470 </span> 68/push 0/imm32 -<span id="L19471" class="LineNr">19471 </span> 68/push 0/imm32 -<span id="L19472" class="LineNr">19472 </span> 89/<- %edx 4/r32/esp -<span id="L19473" class="LineNr">19473 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> -<span id="L19474" class="LineNr">19474 </span> 68/push 0/imm32 -<span id="L19475" class="LineNr">19475 </span> 68/push 0/imm32 -<span id="L19476" class="LineNr">19476 </span> 89/<- %eax 4/r32/esp -<span id="L19477" class="LineNr">19477 </span> <span class="subxComment"># v = new var("n")</span> -<span id="L19478" class="LineNr">19478 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) -<span id="L19479" class="LineNr">19479 </span> (<a href='mu.subx.html#L19512'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L19480" class="LineNr">19480 </span> <span class="subxComment">#</span> -<span id="L19481" class="LineNr">19481 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *edx) -<span id="L19482" class="LineNr">19482 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx *(edx+4)) -<span id="L19483" class="LineNr">19483 </span> (<a href='../203stack.subx.html#L114'>push</a> %ecx 0) -<span id="L19484" class="LineNr">19484 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> -<span id="L19485" class="LineNr">19485 </span> 68/push 0/imm32 -<span id="L19486" class="LineNr">19486 </span> 68/push 0/imm32 -<span id="L19487" class="LineNr">19487 </span> 89/<- %eax 4/r32/esp -<span id="L19488" class="LineNr">19488 </span> <span class="subxComment"># convert</span> -<span id="L19489" class="LineNr">19489 </span> (<a href='mu.subx.html#L18550'>parse-mu-stmt</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> %ecx 0 %eax <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L19490" class="LineNr">19490 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> -<span id="L19491" class="LineNr">19491 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19492" class="LineNr">19492 </span> 89/<- %edx 0/r32/eax -<span id="L19493" class="LineNr">19493 </span> <span class="subxComment"># out->tag</span> -<span id="L19494" class="LineNr">19494 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19454'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> -<span id="L19495" class="LineNr">19495 </span> <span class="subxComment"># out->operation</span> -<span id="L19496" class="LineNr">19496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L19497" class="LineNr">19497 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"copy-to"</span> <span class="Constant">"F - <a href='mu.subx.html#L19454'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> -<span id="L19498" class="LineNr">19498 </span> <span class="subxComment"># out->inouts->value->name</span> -<span id="L19499" class="LineNr">19499 </span> <span class="subxS1Comment"># . eax = out->inouts</span> -<span id="L19500" class="LineNr">19500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L19501" class="LineNr">19501 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> -<span id="L19502" class="LineNr">19502 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L19503" class="LineNr">19503 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> -<span id="L19504" class="LineNr">19504 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L19505" class="LineNr">19505 </span> <span class="subxS1Comment"># .</span> -<span id="L19506" class="LineNr">19506 </span> (<a href='../105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L19454'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) -<span id="L19507" class="LineNr">19507 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19508" class="LineNr">19508 </span> 89/<- %esp 5/r32/ebp -<span id="L19509" class="LineNr">19509 </span> 5d/pop-to-ebp -<span id="L19510" class="LineNr">19510 </span> c3/return -<span id="L19511" class="LineNr">19511 </span> -<span id="L19512" class="LineNr">19512 </span><span class="subxFunction">new-var</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (handle array byte), out: (addr handle var)</span> -<span id="L19513" class="LineNr">19513 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19514" class="LineNr">19514 </span> 55/push-ebp -<span id="L19515" class="LineNr">19515 </span> 89/<- %ebp 4/r32/esp -<span id="L19516" class="LineNr">19516 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19517" class="LineNr">19517 </span> 50/push-eax -<span id="L19518" class="LineNr">19518 </span> 51/push-ecx -<span id="L19519" class="LineNr">19519 </span> <span class="subxComment"># ecx = out</span> -<span id="L19520" class="LineNr">19520 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L19521" class="LineNr">19521 </span> <span class="subxComment">#</span> -<span id="L19522" class="LineNr">19522 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L343'>Var-size</a></span> %ecx) -<span id="L19523" class="LineNr">19523 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> -<span id="L19524" class="LineNr">19524 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19525" class="LineNr">19525 </span> <span class="subxComment"># out-addr->name = name</span> -<span id="L19526" class="LineNr">19526 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L19527" class="LineNr">19527 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L19528" class="LineNr">19528 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19529" class="LineNr">19529 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> -<span id="L19530" class="LineNr">19530 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L19531" class="LineNr">19531 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> -<span id="L19532" class="LineNr">19532 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L19533" class="LineNr">19533 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L19534" class="LineNr">19534 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> -<span id="L19535" class="LineNr">19535 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> -<span id="L19536" class="LineNr">19536 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L19537" class="LineNr">19537 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19538" class="LineNr">19538 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19539" class="LineNr">19539 </span><span class="Constant">$new-var:end</span>: -<span id="L19540" class="LineNr">19540 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19541" class="LineNr">19541 </span> 59/pop-to-ecx -<span id="L19542" class="LineNr">19542 </span> 58/pop-to-eax -<span id="L19543" class="LineNr">19543 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19544" class="LineNr">19544 </span> 89/<- %esp 5/r32/ebp -<span id="L19545" class="LineNr">19545 </span> 5d/pop-to-ebp -<span id="L19546" class="LineNr">19546 </span> c3/return -<span id="L19547" class="LineNr">19547 </span> -<span id="L19548" class="LineNr">19548 </span><span class="subxFunction">new-literal-integer</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L19549" class="LineNr">19549 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19550" class="LineNr">19550 </span> 55/push-ebp -<span id="L19551" class="LineNr">19551 </span> 89/<- %ebp 4/r32/esp -<span id="L19552" class="LineNr">19552 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19553" class="LineNr">19553 </span> 50/push-eax -<span id="L19554" class="LineNr">19554 </span> 51/push-ecx -<span id="L19555" class="LineNr">19555 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> -<span id="L19556" class="LineNr">19556 </span> (<a href='../118parse-hex-int.subx.html#L9'>is-hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L19557" class="LineNr">19557 </span> 3d/compare-eax-and 0/imm32/false -<span id="L19558" class="LineNr">19558 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 -<span id="L19559" class="LineNr">19559 </span> <span class="subxComment"># a little more error-checking</span> -<span id="L19560" class="LineNr">19560 </span> (<a href='mu.subx.html#L19600'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L19561" class="LineNr">19561 </span> <span class="subxComment"># out = new var(s)</span> -<span id="L19562" class="LineNr">19562 </span> (<a href='mu.subx.html#L19738'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L19563" class="LineNr">19563 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19564" class="LineNr">19564 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L19565" class="LineNr">19565 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19566" class="LineNr">19566 </span> 89/<- %ecx 0/r32/eax -<span id="L19567" class="LineNr">19567 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19568" class="LineNr">19568 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19569" class="LineNr">19569 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19570" class="LineNr">19570 </span> <span class="subxComment"># out-addr->type = new tree()</span> -<span id="L19571" class="LineNr">19571 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19572" class="LineNr">19572 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) -<span id="L19573" class="LineNr">19573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19574" class="LineNr">19574 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19575" class="LineNr">19575 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L19576" class="LineNr">19576 </span><span class="Constant">$new-literal-integer:end</span>: -<span id="L19577" class="LineNr">19577 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19578" class="LineNr">19578 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19579" class="LineNr">19579 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19580" class="LineNr">19580 </span> 59/pop-to-ecx -<span id="L19581" class="LineNr">19581 </span> 58/pop-to-eax -<span id="L19582" class="LineNr">19582 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19583" class="LineNr">19583 </span> 89/<- %esp 5/r32/ebp -<span id="L19584" class="LineNr">19584 </span> 5d/pop-to-ebp -<span id="L19585" class="LineNr">19585 </span> c3/return -<span id="L19586" class="LineNr">19586 </span> -<span id="L19587" class="LineNr">19587 </span><span class="Constant">$new-literal-integer:abort</span>: -<span id="L19588" class="LineNr">19588 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) -<span id="L19589" class="LineNr">19589 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19590" class="LineNr">19590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L19591" class="LineNr">19591 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) -<span id="L19592" class="LineNr">19592 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) -<span id="L19593" class="LineNr">19593 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) -<span id="L19594" class="LineNr">19594 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' cannot begin with a digit (or do you have a typo in a number?)\n"</span>) -<span id="L19595" class="LineNr">19595 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) -<span id="L19596" class="LineNr">19596 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) -<span id="L19597" class="LineNr">19597 </span> <span class="subxComment"># never gets here</span> -<span id="L19598" class="LineNr">19598 </span> -<span id="L19599" class="LineNr">19599 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> -<span id="L19600" class="LineNr">19600 </span><span class="subxFunction">check-mu-hex-int</span>: <span class="subxComment"># name: (addr slice), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L19601" class="LineNr">19601 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19602" class="LineNr">19602 </span> 55/push-ebp -<span id="L19603" class="LineNr">19603 </span> 89/<- %ebp 4/r32/esp -<span id="L19604" class="LineNr">19604 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19605" class="LineNr">19605 </span> 50/push-eax -<span id="L19606" class="LineNr">19606 </span> 51/push-ecx -<span id="L19607" class="LineNr">19607 </span> 52/push-edx -<span id="L19608" class="LineNr">19608 </span> <span class="subxComment"># ecx = name</span> -<span id="L19609" class="LineNr">19609 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L19610" class="LineNr">19610 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> -<span id="L19611" class="LineNr">19611 </span> 8b/-> *ecx 2/r32/edx -<span id="L19612" class="LineNr">19612 </span> <span class="subxComment"># if (*start == '-') ++start</span> -<span id="L19613" class="LineNr">19613 </span> b8/copy-to-eax 0/imm32 -<span id="L19614" class="LineNr">19614 </span> 8a/copy-byte *edx 0/r32/AL -<span id="L19615" class="LineNr">19615 </span> 3d/compare-eax-and 0x2d/imm32/dash -<span id="L19616" class="LineNr">19616 </span> { -<span id="L19617" class="LineNr">19617 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L19618" class="LineNr">19618 </span> 42/increment-edx -<span id="L19619" class="LineNr">19619 </span> } -<span id="L19620" class="LineNr">19620 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> -<span id="L19621" class="LineNr">19621 </span> 8b/-> *(ecx+4) 1/r32/ecx -<span id="L19622" class="LineNr">19622 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> -<span id="L19623" class="LineNr">19623 </span> 89/<- %eax 1/r32/ecx -<span id="L19624" class="LineNr">19624 </span> 29/subtract-from %eax 2/r32/edx -<span id="L19625" class="LineNr">19625 </span> <span class="subxComment"># if (len <= 1) return</span> -<span id="L19626" class="LineNr">19626 </span> 3d/compare-eax-with 1/imm32 -<span id="L19627" class="LineNr">19627 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 -<span id="L19628" class="LineNr">19628 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: -<span id="L19629" class="LineNr">19629 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> -<span id="L19630" class="LineNr">19630 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> -<span id="L19631" class="LineNr">19631 </span> 51/push-ecx -<span id="L19632" class="LineNr">19632 </span> 52/push-edx -<span id="L19633" class="LineNr">19633 </span> 89/<- %eax 4/r32/esp -<span id="L19634" class="LineNr">19634 </span> <span class="subxS1Comment"># .</span> -<span id="L19635" class="LineNr">19635 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> -<span id="L19636" class="LineNr">19636 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L19637" class="LineNr">19637 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19638" class="LineNr">19638 </span> <span class="subxS1Comment"># .</span> -<span id="L19639" class="LineNr">19639 </span> 3d/compare-eax-with 0/imm32/false -<span id="L19640" class="LineNr">19640 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 -<span id="L19641" class="LineNr">19641 </span><span class="Constant">$check-mu-hex-int:abort</span>: -<span id="L19642" class="LineNr">19642 </span> <span class="subxComment"># otherwise abort</span> -<span id="L19643" class="LineNr">19643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"literal integers are always hex in Mu; start '"</span>) -<span id="L19644" class="LineNr">19644 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) -<span id="L19645" class="LineNr">19645 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' with a '0x' to be unambiguous, converting it to hexadecimal as necessary.\n"</span>) -<span id="L19646" class="LineNr">19646 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L19647" class="LineNr">19647 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L19648" class="LineNr">19648 </span><span class="Constant">$check-mu-hex-int:end</span>: -<span id="L19649" class="LineNr">19649 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19650" class="LineNr">19650 </span> 5a/pop-to-edx -<span id="L19651" class="LineNr">19651 </span> 59/pop-to-ecx -<span id="L19652" class="LineNr">19652 </span> 58/pop-to-eax -<span id="L19653" class="LineNr">19653 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19654" class="LineNr">19654 </span> 89/<- %esp 5/r32/ebp -<span id="L19655" class="LineNr">19655 </span> 5d/pop-to-ebp -<span id="L19656" class="LineNr">19656 </span> c3/return -<span id="L19657" class="LineNr">19657 </span> -<span id="L19658" class="LineNr">19658 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> -<span id="L19659" class="LineNr">19659 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19660" class="LineNr">19660 </span> 55/push-ebp -<span id="L19661" class="LineNr">19661 </span> 89/<- %ebp 4/r32/esp -<span id="L19662" class="LineNr">19662 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19663" class="LineNr">19663 </span> 50/push-eax -<span id="L19664" class="LineNr">19664 </span> 51/push-ecx -<span id="L19665" class="LineNr">19665 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L19666" class="LineNr">19666 </span> 68/push 0/imm32 -<span id="L19667" class="LineNr">19667 </span> 68/push 0/imm32 -<span id="L19668" class="LineNr">19668 </span> 89/<- %ecx 4/r32/esp -<span id="L19669" class="LineNr">19669 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L19670" class="LineNr">19670 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %ecx) -<span id="L19671" class="LineNr">19671 </span> <span class="subxComment"># allocate to out</span> -<span id="L19672" class="LineNr">19672 </span> (<a href='mu.subx.html#L19512'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19673" class="LineNr">19673 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19674" class="LineNr">19674 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19675" class="LineNr">19675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19676" class="LineNr">19676 </span> 89/<- %ecx 0/r32/eax -<span id="L19677" class="LineNr">19677 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19678" class="LineNr">19678 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19679" class="LineNr">19679 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19680" class="LineNr">19680 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L19681" class="LineNr">19681 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19682" class="LineNr">19682 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) -<span id="L19683" class="LineNr">19683 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19684" class="LineNr">19684 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> -<span id="L19685" class="LineNr">19685 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19686" class="LineNr">19686 </span><span class="Constant">$new-literal:end</span>: -<span id="L19687" class="LineNr">19687 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19688" class="LineNr">19688 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19689" class="LineNr">19689 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19690" class="LineNr">19690 </span> 59/pop-to-ecx -<span id="L19691" class="LineNr">19691 </span> 58/pop-to-eax -<span id="L19692" class="LineNr">19692 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19693" class="LineNr">19693 </span> 89/<- %esp 5/r32/ebp -<span id="L19694" class="LineNr">19694 </span> 5d/pop-to-ebp -<span id="L19695" class="LineNr">19695 </span> c3/return -<span id="L19696" class="LineNr">19696 </span> -<span id="L19697" class="LineNr">19697 </span><span class="subxFunction">new-literal-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> -<span id="L19698" class="LineNr">19698 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19699" class="LineNr">19699 </span> 55/push-ebp -<span id="L19700" class="LineNr">19700 </span> 89/<- %ebp 4/r32/esp -<span id="L19701" class="LineNr">19701 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19702" class="LineNr">19702 </span> 50/push-eax -<span id="L19703" class="LineNr">19703 </span> 51/push-ecx -<span id="L19704" class="LineNr">19704 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> -<span id="L19705" class="LineNr">19705 </span> 68/push 0/imm32 -<span id="L19706" class="LineNr">19706 </span> 68/push 0/imm32 -<span id="L19707" class="LineNr">19707 </span> 89/<- %ecx 4/r32/esp -<span id="L19708" class="LineNr">19708 </span> <span class="subxComment"># s = slice-to-string(name)</span> -<span id="L19709" class="LineNr">19709 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %ecx) -<span id="L19710" class="LineNr">19710 </span> <span class="subxComment"># allocate to out</span> -<span id="L19711" class="LineNr">19711 </span> (<a href='mu.subx.html#L19512'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19712" class="LineNr">19712 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> -<span id="L19713" class="LineNr">19713 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19714" class="LineNr">19714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L19715" class="LineNr">19715 </span> 89/<- %ecx 0/r32/eax -<span id="L19716" class="LineNr">19716 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> -<span id="L19717" class="LineNr">19717 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/r32/eax -<span id="L19718" class="LineNr">19718 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L19719" class="LineNr">19719 </span> <span class="subxComment"># out-addr->type/eax = new type</span> -<span id="L19720" class="LineNr">19720 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L19721" class="LineNr">19721 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) -<span id="L19722" class="LineNr">19722 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L19723" class="LineNr">19723 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> -<span id="L19724" class="LineNr">19724 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> -<span id="L19725" class="LineNr">19725 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> -<span id="L19726" class="LineNr">19726 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L19727" class="LineNr">19727 </span><span class="Constant">$new-literal-string:end</span>: -<span id="L19728" class="LineNr">19728 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19729" class="LineNr">19729 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19730" class="LineNr">19730 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19731" class="LineNr">19731 </span> 59/pop-to-ecx -<span id="L19732" class="LineNr">19732 </span> 58/pop-to-eax -<span id="L19733" class="LineNr">19733 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19734" class="LineNr">19734 </span> 89/<- %esp 5/r32/ebp -<span id="L19735" class="LineNr">19735 </span> 5d/pop-to-ebp -<span id="L19736" class="LineNr">19736 </span> c3/return -<span id="L19737" class="LineNr">19737 </span> -<span id="L19738" class="LineNr">19738 </span><span class="subxFunction">new-var-from-slice</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> -<span id="L19739" class="LineNr">19739 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19740" class="LineNr">19740 </span> 55/push-ebp -<span id="L19741" class="LineNr">19741 </span> 89/<- %ebp 4/r32/esp -<span id="L19742" class="LineNr">19742 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19743" class="LineNr">19743 </span> 51/push-ecx -<span id="L19744" class="LineNr">19744 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> -<span id="L19745" class="LineNr">19745 </span> 68/push 0/imm32 -<span id="L19746" class="LineNr">19746 </span> 68/push 0/imm32 -<span id="L19747" class="LineNr">19747 </span> 89/<- %ecx 4/r32/esp -<span id="L19748" class="LineNr">19748 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> -<span id="L19749" class="LineNr">19749 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %ecx) -<span id="L19750" class="LineNr">19750 </span> <span class="subxComment"># out = new-var(tmp)</span> -<span id="L19751" class="LineNr">19751 </span> (<a href='mu.subx.html#L19512'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) -<span id="L19752" class="LineNr">19752 </span><span class="Constant">$new-var-from-slice:end</span>: -<span id="L19753" class="LineNr">19753 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19754" class="LineNr">19754 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19755" class="LineNr">19755 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19756" class="LineNr">19756 </span> 59/pop-to-ecx -<span id="L19757" class="LineNr">19757 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19758" class="LineNr">19758 </span> 89/<- %esp 5/r32/ebp -<span id="L19759" class="LineNr">19759 </span> 5d/pop-to-ebp -<span id="L19760" class="LineNr">19760 </span> c3/return -<span id="L19761" class="LineNr">19761 </span> -<span id="L19762" class="LineNr">19762 </span><span class="subxFunction">new-var-def</span>: <span class="subxComment"># ad: (addr allocation-descriptor), var: (handle var), out: (addr handle stmt)</span> -<span id="L19763" class="LineNr">19763 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19764" class="LineNr">19764 </span> 55/push-ebp -<span id="L19765" class="LineNr">19765 </span> 89/<- %ebp 4/r32/esp -<span id="L19766" class="LineNr">19766 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19767" class="LineNr">19767 </span> 50/push-eax -<span id="L19768" class="LineNr">19768 </span> 51/push-ecx -<span id="L19769" class="LineNr">19769 </span> <span class="subxComment">#</span> -<span id="L19770" class="LineNr">19770 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> *(ebp+0x14)) -<span id="L19771" class="LineNr">19771 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L19772" class="LineNr">19772 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19773" class="LineNr">19773 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19774" class="LineNr">19774 </span> <span class="subxComment"># out-addr->tag = stmt</span> -<span id="L19775" class="LineNr">19775 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> -<span id="L19776" class="LineNr">19776 </span> <span class="subxComment"># result->var = var</span> -<span id="L19777" class="LineNr">19777 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L19778" class="LineNr">19778 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L19779" class="LineNr">19779 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L19780" class="LineNr">19780 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> -<span id="L19781" class="LineNr">19781 </span><span class="Constant">$new-var-def:end</span>: -<span id="L19782" class="LineNr">19782 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19783" class="LineNr">19783 </span> 59/pop-to-ecx -<span id="L19784" class="LineNr">19784 </span> 58/pop-to-eax -<span id="L19785" class="LineNr">19785 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19786" class="LineNr">19786 </span> 89/<- %esp 5/r32/ebp -<span id="L19787" class="LineNr">19787 </span> 5d/pop-to-ebp -<span id="L19788" class="LineNr">19788 </span> c3/return -<span id="L19789" class="LineNr">19789 </span> -<span id="L19790" class="LineNr">19790 </span><span class="subxFunction">new-reg-var-def</span>: <span class="subxComment"># ad: (addr allocation-descriptor), var: (handle var), out: (addr handle stmt)</span> -<span id="L19791" class="LineNr">19791 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19792" class="LineNr">19792 </span> 55/push-ebp -<span id="L19793" class="LineNr">19793 </span> 89/<- %ebp 4/r32/esp -<span id="L19794" class="LineNr">19794 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19795" class="LineNr">19795 </span> 50/push-eax -<span id="L19796" class="LineNr">19796 </span> <span class="subxComment"># eax = out</span> -<span id="L19797" class="LineNr">19797 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L19798" class="LineNr">19798 </span> <span class="subxComment">#</span> -<span id="L19799" class="LineNr">19799 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> %eax) -<span id="L19800" class="LineNr">19800 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> -<span id="L19801" class="LineNr">19801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19802" class="LineNr">19802 </span> <span class="subxComment"># set tag</span> -<span id="L19803" class="LineNr">19803 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> -<span id="L19804" class="LineNr">19804 </span> <span class="subxComment"># set output</span> -<span id="L19805" class="LineNr">19805 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> -<span id="L19806" class="LineNr">19806 </span> (<a href='mu.subx.html#L19873'>append-stmt-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) *(ebp+0x10) 0 0 0 %eax) -<span id="L19807" class="LineNr">19807 </span><span class="Constant">$new-reg-var-def:end</span>: -<span id="L19808" class="LineNr">19808 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19809" class="LineNr">19809 </span> 58/pop-to-eax -<span id="L19810" class="LineNr">19810 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19811" class="LineNr">19811 </span> 89/<- %esp 5/r32/ebp -<span id="L19812" class="LineNr">19812 </span> 5d/pop-to-ebp -<span id="L19813" class="LineNr">19813 </span> c3/return -<span id="L19814" class="LineNr">19814 </span> -<span id="L19815" class="LineNr">19815 </span><span class="subxFunction">append-list</span>: <span class="subxComment"># ad: (addr allocation-descriptor), value: (handle _type), list: (handle list _type), out: (addr handle list _type)</span> -<span id="L19816" class="LineNr">19816 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19817" class="LineNr">19817 </span> 55/push-ebp -<span id="L19818" class="LineNr">19818 </span> 89/<- %ebp 4/r32/esp -<span id="L19819" class="LineNr">19819 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19820" class="LineNr">19820 </span> 50/push-eax -<span id="L19821" class="LineNr">19821 </span> 51/push-ecx -<span id="L19822" class="LineNr">19822 </span> 57/push-edi -<span id="L19823" class="LineNr">19823 </span> <span class="subxComment"># edi = out</span> -<span id="L19824" class="LineNr">19824 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L19825" class="LineNr">19825 </span> <span class="subxComment"># *out = new list</span> -<span id="L19826" class="LineNr">19826 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L350'>List-size</a></span> %edi) -<span id="L19827" class="LineNr">19827 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> -<span id="L19828" class="LineNr">19828 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L19829" class="LineNr">19829 </span> 89/<- %edi 0/r32/eax -<span id="L19830" class="LineNr">19830 </span> <span class="subxComment"># out-addr->value = value</span> -<span id="L19831" class="LineNr">19831 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L19832" class="LineNr">19832 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L19833" class="LineNr">19833 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L19834" class="LineNr">19834 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> -<span id="L19835" class="LineNr">19835 </span> <span class="subxComment"># if (list == null) return</span> -<span id="L19836" class="LineNr">19836 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 -<span id="L19837" class="LineNr">19837 </span> 74/jump-if-= $append-list:end/disp8 -<span id="L19838" class="LineNr">19838 </span> <span class="subxComment"># otherwise append</span> -<span id="L19839" class="LineNr">19839 </span><span class="Constant">$append-list:non-empty-list</span>: -<span id="L19840" class="LineNr">19840 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> -<span id="L19841" class="LineNr">19841 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L19842" class="LineNr">19842 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L19843" class="LineNr">19843 </span> { -<span id="L19844" class="LineNr">19844 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> -<span id="L19845" class="LineNr">19845 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19846" class="LineNr">19846 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L19847" class="LineNr">19847 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> -<span id="L19848" class="LineNr">19848 </span> <span class="subxComment">#</span> -<span id="L19849" class="LineNr">19849 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L19850" class="LineNr">19850 </span> } -<span id="L19851" class="LineNr">19851 </span> <span class="subxComment"># edi = out</span> -<span id="L19852" class="LineNr">19852 </span> 8b/-> *(ebp+0x1c) 7/r32/edi -<span id="L19853" class="LineNr">19853 </span> <span class="subxComment"># curr->next = out</span> -<span id="L19854" class="LineNr">19854 </span> 8b/-> *edi 1/r32/ecx -<span id="L19855" class="LineNr">19855 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L19856" class="LineNr">19856 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L19857" class="LineNr">19857 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> -<span id="L19858" class="LineNr">19858 </span> <span class="subxComment"># out = list</span> -<span id="L19859" class="LineNr">19859 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L19860" class="LineNr">19860 </span> 89/<- *edi 1/r32/ecx -<span id="L19861" class="LineNr">19861 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L19862" class="LineNr">19862 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L19863" class="LineNr">19863 </span><span class="Constant">$append-list:end</span>: -<span id="L19864" class="LineNr">19864 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19865" class="LineNr">19865 </span> 5f/pop-to-edi -<span id="L19866" class="LineNr">19866 </span> 59/pop-to-ecx -<span id="L19867" class="LineNr">19867 </span> 58/pop-to-eax -<span id="L19868" class="LineNr">19868 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19869" class="LineNr">19869 </span> 89/<- %esp 5/r32/ebp -<span id="L19870" class="LineNr">19870 </span> 5d/pop-to-ebp -<span id="L19871" class="LineNr">19871 </span> c3/return -<span id="L19872" class="LineNr">19872 </span> -<span id="L19873" class="LineNr">19873 </span><span class="subxFunction">append-stmt-var</span>: <span class="subxComment"># ad: (addr allocation-descriptor), v: (handle var), vars: (handle stmt-var), is-deref?: boolean, out: (addr handle stmt-var)</span> -<span id="L19874" class="LineNr">19874 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19875" class="LineNr">19875 </span> 55/push-ebp -<span id="L19876" class="LineNr">19876 </span> 89/<- %ebp 4/r32/esp -<span id="L19877" class="LineNr">19877 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19878" class="LineNr">19878 </span> 50/push-eax -<span id="L19879" class="LineNr">19879 </span> 51/push-ecx -<span id="L19880" class="LineNr">19880 </span> 57/push-edi -<span id="L19881" class="LineNr">19881 </span> <span class="subxComment"># edi = out</span> -<span id="L19882" class="LineNr">19882 </span> 8b/-> *(ebp+0x20) 7/r32/edi -<span id="L19883" class="LineNr">19883 </span> <span class="subxComment"># out = new stmt-var</span> -<span id="L19884" class="LineNr">19884 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L360'>Stmt-var-size</a></span> %edi) -<span id="L19885" class="LineNr">19885 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> -<span id="L19886" class="LineNr">19886 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L19887" class="LineNr">19887 </span> 89/<- %ecx 0/r32/eax -<span id="L19888" class="LineNr">19888 </span> <span class="subxComment"># out-addr->value = v</span> -<span id="L19889" class="LineNr">19889 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L19890" class="LineNr">19890 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L19891" class="LineNr">19891 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L19892" class="LineNr">19892 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> -<span id="L19893" class="LineNr">19893 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> -<span id="L19894" class="LineNr">19894 </span> 8b/-> *(ebp+0x1c) 0/r32/eax -<span id="L19895" class="LineNr">19895 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L19896" class="LineNr">19896 </span> <span class="subxComment"># if (vars == null) return result</span> -<span id="L19897" class="LineNr">19897 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null -<span id="L19898" class="LineNr">19898 </span> 74/jump-if-= $append-stmt-var:end/disp8 -<span id="L19899" class="LineNr">19899 </span> <span class="subxComment"># otherwise append</span> -<span id="L19900" class="LineNr">19900 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> -<span id="L19901" class="LineNr">19901 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L19902" class="LineNr">19902 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> -<span id="L19903" class="LineNr">19903 </span> { -<span id="L19904" class="LineNr">19904 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L19905" class="LineNr">19905 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L19906" class="LineNr">19906 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L19907" class="LineNr">19907 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next, Stmt-var-next => eax</span> -<span id="L19908" class="LineNr">19908 </span> <span class="subxComment">#</span> -<span id="L19909" class="LineNr">19909 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L19910" class="LineNr">19910 </span> } -<span id="L19911" class="LineNr">19911 </span> <span class="subxComment"># curr->next = out</span> -<span id="L19912" class="LineNr">19912 </span> 8b/-> *edi 1/r32/ecx -<span id="L19913" class="LineNr">19913 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L19914" class="LineNr">19914 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L19915" class="LineNr">19915 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> -<span id="L19916" class="LineNr">19916 </span> <span class="subxComment"># out = vars</span> -<span id="L19917" class="LineNr">19917 </span> 8b/-> *(ebp+0x14) 1/r32/ecx -<span id="L19918" class="LineNr">19918 </span> 89/<- *edi 1/r32/ecx -<span id="L19919" class="LineNr">19919 </span> 8b/-> *(ebp+0x18) 1/r32/ecx -<span id="L19920" class="LineNr">19920 </span> 89/<- *(edi+4) 1/r32/ecx -<span id="L19921" class="LineNr">19921 </span><span class="Constant">$append-stmt-var:end</span>: -<span id="L19922" class="LineNr">19922 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19923" class="LineNr">19923 </span> 5f/pop-to-edi -<span id="L19924" class="LineNr">19924 </span> 59/pop-to-ecx -<span id="L19925" class="LineNr">19925 </span> 58/pop-to-eax -<span id="L19926" class="LineNr">19926 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19927" class="LineNr">19927 </span> 89/<- %esp 5/r32/ebp -<span id="L19928" class="LineNr">19928 </span> 5d/pop-to-ebp -<span id="L19929" class="LineNr">19929 </span> c3/return -<span id="L19930" class="LineNr">19930 </span> -<span id="L19931" class="LineNr">19931 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> -<span id="L19932" class="LineNr">19932 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19933" class="LineNr">19933 </span> 55/push-ebp -<span id="L19934" class="LineNr">19934 </span> 89/<- %ebp 4/r32/esp -<span id="L19935" class="LineNr">19935 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19936" class="LineNr">19936 </span> 50/push-eax -<span id="L19937" class="LineNr">19937 </span> 56/push-esi -<span id="L19938" class="LineNr">19938 </span> <span class="subxComment"># esi = block</span> -<span id="L19939" class="LineNr">19939 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L19940" class="LineNr">19940 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> -<span id="L19941" class="LineNr">19941 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> -<span id="L19942" class="LineNr">19942 </span> (<a href='mu.subx.html#L19815'>append-list</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14) *(esi+4) *(esi+8) %eax) <span class="subxComment"># ad, x, x, Block-stmts, Block-stmts</span> -<span id="L19943" class="LineNr">19943 </span><span class="Constant">$append-to-block:end</span>: -<span id="L19944" class="LineNr">19944 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19945" class="LineNr">19945 </span> 5e/pop-to-esi -<span id="L19946" class="LineNr">19946 </span> 58/pop-to-eax -<span id="L19947" class="LineNr">19947 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L19948" class="LineNr">19948 </span> 89/<- %esp 5/r32/ebp -<span id="L19949" class="LineNr">19949 </span> 5d/pop-to-ebp -<span id="L19950" class="LineNr">19950 </span> c3/return -<span id="L19951" class="LineNr">19951 </span> -<span id="L19952" class="LineNr">19952 </span><span class="subxComment">## Parsing types</span> -<span id="L19953" class="LineNr">19953 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> -<span id="L19954" class="LineNr">19954 </span><span class="subxComment"># metadata as we parse instructions.</span> -<span id="L19955" class="LineNr">19955 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> -<span id="L19956" class="LineNr">19956 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> -<span id="L19957" class="LineNr">19957 </span> -<span id="L19958" class="LineNr">19958 </span><span class="subxFunction">lookup-or-create-constant</span>: <span class="subxComment"># container: (addr stmt-var), field-name: (addr slice), out: (addr handle var)</span> -<span id="L19959" class="LineNr">19959 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L19960" class="LineNr">19960 </span> 55/push-ebp -<span id="L19961" class="LineNr">19961 </span> 89/<- %ebp 4/r32/esp -<span id="L19962" class="LineNr">19962 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19963" class="LineNr">19963 </span> 50/push-eax -<span id="L19964" class="LineNr">19964 </span> 56/push-esi -<span id="L19965" class="LineNr">19965 </span> <span class="subxComment"># var container-type/esi: type-id</span> -<span id="L19966" class="LineNr">19966 </span> (<a href='mu.subx.html#L20009'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L19967" class="LineNr">19967 </span> 89/<- %esi 0/r32/eax -<span id="L19968" class="LineNr">19968 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> -<span id="L19969" class="LineNr">19969 </span> 68/push 0/imm32 -<span id="L19970" class="LineNr">19970 </span> 68/push 0/imm32 -<span id="L19971" class="LineNr">19971 </span> 89/<- %eax 4/r32/esp -<span id="L19972" class="LineNr">19972 </span> (<a href='mu.subx.html#L20046'>find-or-create-typeinfo</a> %esi %eax) -<span id="L19973" class="LineNr">19973 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> -<span id="L19974" class="LineNr">19974 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L19975" class="LineNr">19975 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> -<span id="L19976" class="LineNr">19976 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> -<span id="L19977" class="LineNr">19977 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> -<span id="L19978" class="LineNr">19978 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19979" class="LineNr">19979 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19980" class="LineNr">19980 </span> (<a href='mu.subx.html#L20162'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L19981" class="LineNr">19981 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> -<span id="L19982" class="LineNr">19982 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L19983" class="LineNr">19983 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L19984" class="LineNr">19984 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L19985" class="LineNr">19985 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> -<span id="L19986" class="LineNr">19986 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L19987" class="LineNr">19987 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19988" class="LineNr">19988 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19989" class="LineNr">19989 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> -<span id="L19990" class="LineNr">19990 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> -<span id="L19991" class="LineNr">19991 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L19992" class="LineNr">19992 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L19993" class="LineNr">19993 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L19994" class="LineNr">19994 </span><span class="Constant">$lookup-or-create-constant:end</span>: -<span id="L19995" class="LineNr">19995 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L19996" class="LineNr">19996 </span> 81 0/subop/add %esp 8/imm32 -<span id="L19997" class="LineNr">19997 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L19998" class="LineNr">19998 </span> 5e/pop-to-esi -<span id="L19999" class="LineNr">19999 </span> 58/pop-to-eax -<span id="L20000" class="LineNr">20000 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20001" class="LineNr">20001 </span> 89/<- %esp 5/r32/ebp -<span id="L20002" class="LineNr">20002 </span> 5d/pop-to-ebp -<span id="L20003" class="LineNr">20003 </span> c3/return -<span id="L20004" class="LineNr">20004 </span> -<span id="L20005" class="LineNr">20005 </span><span class="subxComment"># if addr var:</span> -<span id="L20006" class="LineNr">20006 </span><span class="subxComment"># container->var->type->right->left->value</span> -<span id="L20007" class="LineNr">20007 </span><span class="subxComment"># otherwise</span> -<span id="L20008" class="LineNr">20008 </span><span class="subxComment"># container->var->type->value</span> -<span id="L20009" class="LineNr">20009 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> -<span id="L20010" class="LineNr">20010 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20011" class="LineNr">20011 </span> 55/push-ebp -<span id="L20012" class="LineNr">20012 </span> 89/<- %ebp 4/r32/esp -<span id="L20013" class="LineNr">20013 </span> <span class="subxComment">#</span> -<span id="L20014" class="LineNr">20014 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20015" class="LineNr">20015 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L20016" class="LineNr">20016 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20017" class="LineNr">20017 </span> { -<span id="L20018" class="LineNr">20018 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20019" class="LineNr">20019 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20020" class="LineNr">20020 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L20021" class="LineNr">20021 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L20022" class="LineNr">20022 </span> } -<span id="L20023" class="LineNr">20023 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L20024" class="LineNr">20024 </span><span class="Constant">$container-type:end</span>: -<span id="L20025" class="LineNr">20025 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20026" class="LineNr">20026 </span> 89/<- %esp 5/r32/ebp -<span id="L20027" class="LineNr">20027 </span> 5d/pop-to-ebp -<span id="L20028" class="LineNr">20028 </span> c3/return -<span id="L20029" class="LineNr">20029 </span> -<span id="L20030" class="LineNr">20030 </span><span class="subxFunction">is-container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> -<span id="L20031" class="LineNr">20031 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20032" class="LineNr">20032 </span> 55/push-ebp -<span id="L20033" class="LineNr">20033 </span> 89/<- %ebp 4/r32/esp -<span id="L20034" class="LineNr">20034 </span> <span class="subxComment">#</span> -<span id="L20035" class="LineNr">20035 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20036" class="LineNr">20036 </span> c1/shift 4/subop/left %eax 2/imm8 -<span id="L20037" class="LineNr">20037 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> -<span id="L20038" class="LineNr">20038 </span> 0f 9d/set-if->= %al -<span id="L20039" class="LineNr">20039 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L20040" class="LineNr">20040 </span><span class="Constant">$is-container?:end</span>: -<span id="L20041" class="LineNr">20041 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20042" class="LineNr">20042 </span> 89/<- %esp 5/r32/ebp -<span id="L20043" class="LineNr">20043 </span> 5d/pop-to-ebp -<span id="L20044" class="LineNr">20044 </span> c3/return -<span id="L20045" class="LineNr">20045 </span> -<span id="L20046" class="LineNr">20046 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L20047" class="LineNr">20047 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20048" class="LineNr">20048 </span> 55/push-ebp -<span id="L20049" class="LineNr">20049 </span> 89/<- %ebp 4/r32/esp -<span id="L20050" class="LineNr">20050 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20051" class="LineNr">20051 </span> 50/push-eax -<span id="L20052" class="LineNr">20052 </span> 51/push-ecx -<span id="L20053" class="LineNr">20053 </span> 52/push-edx -<span id="L20054" class="LineNr">20054 </span> 57/push-edi -<span id="L20055" class="LineNr">20055 </span> <span class="subxComment"># edi = out</span> -<span id="L20056" class="LineNr">20056 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20057" class="LineNr">20057 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> -<span id="L20058" class="LineNr">20058 </span> 68/push 0/imm32 -<span id="L20059" class="LineNr">20059 </span> 68/push 0/imm32 -<span id="L20060" class="LineNr">20060 </span> 89/<- %ecx 4/r32/esp -<span id="L20061" class="LineNr">20061 </span> <span class="subxComment"># find-typeinfo(t, out)</span> -<span id="L20062" class="LineNr">20062 </span> (<a href='mu.subx.html#L20113'>find-typeinfo</a> *(ebp+8) %edi) -<span id="L20063" class="LineNr">20063 </span> { -<span id="L20064" class="LineNr">20064 </span> <span class="subxComment"># if (*out != 0) break</span> -<span id="L20065" class="LineNr">20065 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L20066" class="LineNr">20066 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20067" class="LineNr">20067 </span><span class="Constant">$find-or-create-typeinfo:create</span>: -<span id="L20068" class="LineNr">20068 </span> <span class="subxComment"># *out = allocate</span> -<span id="L20069" class="LineNr">20069 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L454'>Typeinfo-size</a></span> %edi) -<span id="L20070" class="LineNr">20070 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L20071" class="LineNr">20071 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20072" class="LineNr">20072 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> -<span id="L20073" class="LineNr">20073 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20074" class="LineNr">20074 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> -<span id="L20075" class="LineNr">20075 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20076" class="LineNr">20076 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20077" class="LineNr">20077 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20078" class="LineNr">20078 </span> <span class="subxComment"># tmp->id = t</span> -<span id="L20079" class="LineNr">20079 </span> 8b/-> *(ebp+8) 2/r32/edx -<span id="L20080" class="LineNr">20080 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> -<span id="L20081" class="LineNr">20081 </span> <span class="subxComment"># tmp->fields = new table</span> -<span id="L20082" class="LineNr">20082 </span> <span class="subxS1Comment"># . fields = new table</span> -<span id="L20083" class="LineNr">20083 </span> (<a href='../121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> 0x40 *<span class="SpecialChar"><a href='mu.subx.html#L459'>Typeinfo-fields-row-size</a></span> %ecx) -<span id="L20084" class="LineNr">20084 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> -<span id="L20085" class="LineNr">20085 </span> 8b/-> *ecx 2/r32/edx -<span id="L20086" class="LineNr">20086 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L20087" class="LineNr">20087 </span> 8b/-> *(ecx+4) 2/r32/edx -<span id="L20088" class="LineNr">20088 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> -<span id="L20089" class="LineNr">20089 </span> <span class="subxComment"># tmp->next = Program->types</span> -<span id="L20090" class="LineNr">20090 </span> 8b/-> *_Program-types 1/r32/ecx -<span id="L20091" class="LineNr">20091 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L20092" class="LineNr">20092 </span> 8b/-> *_Program-types->payload 1/r32/ecx -<span id="L20093" class="LineNr">20093 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> -<span id="L20094" class="LineNr">20094 </span> <span class="subxComment"># Program->types = out</span> -<span id="L20095" class="LineNr">20095 </span> 8b/-> *edi 1/r32/ecx -<span id="L20096" class="LineNr">20096 </span> 89/<- *_Program-types 1/r32/ecx -<span id="L20097" class="LineNr">20097 </span> 8b/-> *(edi+4) 1/r32/ecx -<span id="L20098" class="LineNr">20098 </span> 89/<- *_Program-types->payload 1/r32/ecx -<span id="L20099" class="LineNr">20099 </span> } -<span id="L20100" class="LineNr">20100 </span><span class="Constant">$find-or-create-typeinfo:end</span>: -<span id="L20101" class="LineNr">20101 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20102" class="LineNr">20102 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20103" class="LineNr">20103 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20104" class="LineNr">20104 </span> 5f/pop-to-edi -<span id="L20105" class="LineNr">20105 </span> 5a/pop-to-edx -<span id="L20106" class="LineNr">20106 </span> 59/pop-to-ecx -<span id="L20107" class="LineNr">20107 </span> 58/pop-to-eax -<span id="L20108" class="LineNr">20108 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20109" class="LineNr">20109 </span> 89/<- %esp 5/r32/ebp -<span id="L20110" class="LineNr">20110 </span> 5d/pop-to-ebp -<span id="L20111" class="LineNr">20111 </span> c3/return -<span id="L20112" class="LineNr">20112 </span> -<span id="L20113" class="LineNr">20113 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> -<span id="L20114" class="LineNr">20114 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20115" class="LineNr">20115 </span> 55/push-ebp -<span id="L20116" class="LineNr">20116 </span> 89/<- %ebp 4/r32/esp -<span id="L20117" class="LineNr">20117 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20118" class="LineNr">20118 </span> 50/push-eax -<span id="L20119" class="LineNr">20119 </span> 51/push-ecx -<span id="L20120" class="LineNr">20120 </span> 52/push-edx -<span id="L20121" class="LineNr">20121 </span> 57/push-edi -<span id="L20122" class="LineNr">20122 </span> <span class="subxComment"># ecx = t</span> -<span id="L20123" class="LineNr">20123 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20124" class="LineNr">20124 </span> <span class="subxComment"># edi = out</span> -<span id="L20125" class="LineNr">20125 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20126" class="LineNr">20126 </span> <span class="subxComment"># *out = Program->types</span> -<span id="L20127" class="LineNr">20127 </span> 8b/-> *_Program-types 0/r32/eax -<span id="L20128" class="LineNr">20128 </span> 89/<- *edi 0/r32/eax -<span id="L20129" class="LineNr">20129 </span> 8b/-> *_Program-types->payload 0/r32/eax -<span id="L20130" class="LineNr">20130 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L20131" class="LineNr">20131 </span> { -<span id="L20132" class="LineNr">20132 </span><span class="Constant">$find-typeinfo:loop</span>: -<span id="L20133" class="LineNr">20133 </span> <span class="subxComment"># if (*out == 0) break</span> -<span id="L20134" class="LineNr">20134 </span> 81 7/subop/compare *edi 0/imm32 -<span id="L20135" class="LineNr">20135 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20136" class="LineNr">20136 </span><span class="Constant">$find-typeinfo:check</span>: -<span id="L20137" class="LineNr">20137 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> -<span id="L20138" class="LineNr">20138 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20139" class="LineNr">20139 </span> <span class="subxComment"># if (tmp->id == t) break</span> -<span id="L20140" class="LineNr">20140 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> -<span id="L20141" class="LineNr">20141 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20142" class="LineNr">20142 </span><span class="Constant">$find-typeinfo:continue</span>: -<span id="L20143" class="LineNr">20143 </span> <span class="subxComment"># *out = tmp->next</span> -<span id="L20144" class="LineNr">20144 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L20145" class="LineNr">20145 </span> 89/<- *edi 2/r32/edx -<span id="L20146" class="LineNr">20146 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> -<span id="L20147" class="LineNr">20147 </span> 89/<- *(edi+4) 2/r32/edx -<span id="L20148" class="LineNr">20148 </span> <span class="subxComment">#</span> -<span id="L20149" class="LineNr">20149 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20150" class="LineNr">20150 </span> } -<span id="L20151" class="LineNr">20151 </span><span class="Constant">$find-typeinfo:end</span>: -<span id="L20152" class="LineNr">20152 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20153" class="LineNr">20153 </span> 5f/pop-to-edi -<span id="L20154" class="LineNr">20154 </span> 5a/pop-to-edx -<span id="L20155" class="LineNr">20155 </span> 59/pop-to-ecx -<span id="L20156" class="LineNr">20156 </span> 58/pop-to-eax -<span id="L20157" class="LineNr">20157 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20158" class="LineNr">20158 </span> 89/<- %esp 5/r32/ebp -<span id="L20159" class="LineNr">20159 </span> 5d/pop-to-ebp -<span id="L20160" class="LineNr">20160 </span> c3/return -<span id="L20161" class="LineNr">20161 </span> -<span id="L20162" class="LineNr">20162 </span><span class="subxFunction">find-or-create-typeinfo-output-var</span>: <span class="subxComment"># T: (addr typeinfo), f: (addr slice), out: (addr handle var)</span> -<span id="L20163" class="LineNr">20163 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20164" class="LineNr">20164 </span> 55/push-ebp -<span id="L20165" class="LineNr">20165 </span> 89/<- %ebp 4/r32/esp -<span id="L20166" class="LineNr">20166 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20167" class="LineNr">20167 </span> 50/push-eax -<span id="L20168" class="LineNr">20168 </span> 52/push-edx -<span id="L20169" class="LineNr">20169 </span> 57/push-edi -<span id="L20170" class="LineNr">20170 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> -<span id="L20171" class="LineNr">20171 </span> 68/push 0/imm32 -<span id="L20172" class="LineNr">20172 </span> 68/push 0/imm32 -<span id="L20173" class="LineNr">20173 </span> 89/<- %edi 4/r32/esp -<span id="L20174" class="LineNr">20174 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> -<span id="L20175" class="LineNr">20175 </span> (<a href='mu.subx.html#L20227'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) -<span id="L20176" class="LineNr">20176 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> -<span id="L20177" class="LineNr">20177 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> -<span id="L20178" class="LineNr">20178 </span> 89/<- %edi 0/r32/eax -<span id="L20179" class="LineNr">20179 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> -<span id="L20180" class="LineNr">20180 </span> { -<span id="L20181" class="LineNr">20181 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20182" class="LineNr">20182 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20183" class="LineNr">20183 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> -<span id="L20184" class="LineNr">20184 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> -<span id="L20185" class="LineNr">20185 </span> 68/push 0/imm32 -<span id="L20186" class="LineNr">20186 </span> 68/push 0/imm32 -<span id="L20187" class="LineNr">20187 </span> 89/<- %eax 4/r32/esp -<span id="L20188" class="LineNr">20188 </span> (<a href='../123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax) -<span id="L20189" class="LineNr">20189 </span> <span class="subxS1Comment"># . new var</span> -<span id="L20190" class="LineNr">20190 </span> 8d/copy-address *(edi+0xc) 2/r32/edx -<span id="L20191" class="LineNr">20191 </span> (<a href='mu.subx.html#L19512'>new-var</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) -<span id="L20192" class="LineNr">20192 </span> <span class="subxS1Comment"># . reclaim name</span> -<span id="L20193" class="LineNr">20193 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20194" class="LineNr">20194 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> -<span id="L20195" class="LineNr">20195 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> -<span id="L20196" class="LineNr">20196 </span> 89/<- %edx 0/r32/eax -<span id="L20197" class="LineNr">20197 </span> <span class="subxComment"># result->type = new constant type</span> -<span id="L20198" class="LineNr">20198 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L20199" class="LineNr">20199 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) -<span id="L20200" class="LineNr">20200 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> -<span id="L20201" class="LineNr">20201 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> -<span id="L20202" class="LineNr">20202 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> -<span id="L20203" class="LineNr">20203 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L20204" class="LineNr">20204 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20205" class="LineNr">20205 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L20206" class="LineNr">20206 </span> <span class="subxComment"># result->offset isn't filled out yet</span> -<span id="L20207" class="LineNr">20207 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L20208" class="LineNr">20208 </span> } -<span id="L20209" class="LineNr">20209 </span> <span class="subxComment"># out = dest-addr->output-var</span> -<span id="L20210" class="LineNr">20210 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L20211" class="LineNr">20211 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20212" class="LineNr">20212 </span> 89/<- *edx 0/r32/eax -<span id="L20213" class="LineNr">20213 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20214" class="LineNr">20214 </span> 89/<- *(edx+4) 0/r32/eax -<span id="L20215" class="LineNr">20215 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: -<span id="L20216" class="LineNr">20216 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20217" class="LineNr">20217 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20218" class="LineNr">20218 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20219" class="LineNr">20219 </span> 5f/pop-to-edi -<span id="L20220" class="LineNr">20220 </span> 5a/pop-to-edx -<span id="L20221" class="LineNr">20221 </span> 58/pop-to-eax -<span id="L20222" class="LineNr">20222 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20223" class="LineNr">20223 </span> 89/<- %esp 5/r32/ebp -<span id="L20224" class="LineNr">20224 </span> 5d/pop-to-ebp -<span id="L20225" class="LineNr">20225 </span> c3/return -<span id="L20226" class="LineNr">20226 </span> -<span id="L20227" class="LineNr">20227 </span><span class="subxFunction">find-or-create-typeinfo-fields</span>: <span class="subxComment"># T: (addr typeinfo), f: (addr slice), out: (addr handle typeinfo-entry)</span> -<span id="L20228" class="LineNr">20228 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20229" class="LineNr">20229 </span> 55/push-ebp -<span id="L20230" class="LineNr">20230 </span> 89/<- %ebp 4/r32/esp -<span id="L20231" class="LineNr">20231 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20232" class="LineNr">20232 </span> 50/push-eax -<span id="L20233" class="LineNr">20233 </span> 56/push-esi -<span id="L20234" class="LineNr">20234 </span> 57/push-edi -<span id="L20235" class="LineNr">20235 </span> <span class="subxComment"># eax = lookup(T->fields)</span> -<span id="L20236" class="LineNr">20236 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20237" class="LineNr">20237 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20238" class="LineNr">20238 </span> <span class="subxComment"># edi = out</span> -<span id="L20239" class="LineNr">20239 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L20240" class="LineNr">20240 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> -<span id="L20241" class="LineNr">20241 </span> (<a href='../131table.subx.html#L1022'>get-or-insert-slice</a> %eax *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L459'>Typeinfo-fields-row-size</a></span> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>) <span class="subxComment"># => eax</span> -<span id="L20242" class="LineNr">20242 </span> 89/<- %esi 0/r32/eax -<span id="L20243" class="LineNr">20243 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> -<span id="L20244" class="LineNr">20244 </span> { -<span id="L20245" class="LineNr">20245 </span> 81 7/subop/compare *esi 0/imm32 -<span id="L20246" class="LineNr">20246 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20247" class="LineNr">20247 </span> (<a href='../120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L475'>Typeinfo-entry-size</a></span> %esi) -<span id="L20248" class="LineNr">20248 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> -<span id="L20249" class="LineNr">20249 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L20250" class="LineNr">20250 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> -<span id="L20251" class="LineNr">20251 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> -<span id="L20252" class="LineNr">20252 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> -<span id="L20253" class="LineNr">20253 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> -<span id="L20254" class="LineNr">20254 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20255" class="LineNr">20255 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20256" class="LineNr">20256 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> -<span id="L20257" class="LineNr">20257 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> -<span id="L20258" class="LineNr">20258 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> -<span id="L20259" class="LineNr">20259 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> -<span id="L20260" class="LineNr">20260 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20261" class="LineNr">20261 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20262" class="LineNr">20262 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20263" class="LineNr">20263 </span> } -<span id="L20264" class="LineNr">20264 </span> <span class="subxComment"># *out = src</span> -<span id="L20265" class="LineNr">20265 </span> <span class="subxS1Comment"># . *edi = *src</span> -<span id="L20266" class="LineNr">20266 </span> 8b/-> *esi 0/r32/eax -<span id="L20267" class="LineNr">20267 </span> 89/<- *edi 0/r32/eax -<span id="L20268" class="LineNr">20268 </span> 8b/-> *(esi+4) 0/r32/eax -<span id="L20269" class="LineNr">20269 </span> 89/<- *(edi+4) 0/r32/eax -<span id="L20270" class="LineNr">20270 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: -<span id="L20271" class="LineNr">20271 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20272" class="LineNr">20272 </span> 5f/pop-to-edi -<span id="L20273" class="LineNr">20273 </span> 5e/pop-to-esi -<span id="L20274" class="LineNr">20274 </span> 58/pop-to-eax -<span id="L20275" class="LineNr">20275 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20276" class="LineNr">20276 </span> 89/<- %esp 5/r32/ebp -<span id="L20277" class="LineNr">20277 </span> 5d/pop-to-ebp -<span id="L20278" class="LineNr">20278 </span> c3/return -<span id="L20279" class="LineNr">20279 </span> -<span id="L20280" class="LineNr">20280 </span><span class="subxFunction">populate-mu-type</span>: <span class="subxComment"># in: (addr stream byte), t: (addr typeinfo), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L20281" class="LineNr">20281 </span> <span class="subxComment"># pseudocode:</span> -<span id="L20282" class="LineNr">20282 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L20283" class="LineNr">20283 </span> <span class="subxComment"># curr-index = 0</span> -<span id="L20284" class="LineNr">20284 </span> <span class="subxComment"># while true</span> -<span id="L20285" class="LineNr">20285 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L20286" class="LineNr">20286 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L20287" class="LineNr">20287 </span> <span class="subxComment"># if line->write == 0</span> -<span id="L20288" class="LineNr">20288 </span> <span class="subxComment"># abort</span> -<span id="L20289" class="LineNr">20289 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> -<span id="L20290" class="LineNr">20290 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L20291" class="LineNr">20291 </span> <span class="subxComment"># continue</span> -<span id="L20292" class="LineNr">20292 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> -<span id="L20293" class="LineNr">20293 </span> <span class="subxComment"># break</span> -<span id="L20294" class="LineNr">20294 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> -<span id="L20295" class="LineNr">20295 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> -<span id="L20296" class="LineNr">20296 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> -<span id="L20297" class="LineNr">20297 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L20298" class="LineNr">20298 </span> <span class="subxComment"># curr-index++</span> -<span id="L20299" class="LineNr">20299 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L20300" class="LineNr">20300 </span> <span class="subxComment"># if r->output-var == 0</span> -<span id="L20301" class="LineNr">20301 </span> <span class="subxComment"># r->output-var = new literal</span> -<span id="L20302" class="LineNr">20302 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> -<span id="L20303" class="LineNr">20303 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> -<span id="L20304" class="LineNr">20304 </span> <span class="subxComment">#</span> -<span id="L20305" class="LineNr">20305 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20306" class="LineNr">20306 </span> 55/push-ebp -<span id="L20307" class="LineNr">20307 </span> 89/<- %ebp 4/r32/esp -<span id="L20308" class="LineNr">20308 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> -<span id="L20309" class="LineNr">20309 </span> 68/push 0/imm32 -<span id="L20310" class="LineNr">20310 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20311" class="LineNr">20311 </span> 50/push-eax -<span id="L20312" class="LineNr">20312 </span> 51/push-ecx -<span id="L20313" class="LineNr">20313 </span> 52/push-edx -<span id="L20314" class="LineNr">20314 </span> 53/push-ebx -<span id="L20315" class="LineNr">20315 </span> 56/push-esi -<span id="L20316" class="LineNr">20316 </span> 57/push-edi -<span id="L20317" class="LineNr">20317 </span> <span class="subxComment"># edi = t</span> -<span id="L20318" class="LineNr">20318 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L20319" class="LineNr">20319 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L20320" class="LineNr">20320 </span> 81 5/subop/subtract %esp 0x200/imm32 -<span id="L20321" class="LineNr">20321 </span> 68/push 0x200/imm32/size -<span id="L20322" class="LineNr">20322 </span> 68/push 0/imm32/read -<span id="L20323" class="LineNr">20323 </span> 68/push 0/imm32/write -<span id="L20324" class="LineNr">20324 </span> 89/<- %ecx 4/r32/esp -<span id="L20325" class="LineNr">20325 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L20326" class="LineNr">20326 </span> 68/push 0/imm32/end -<span id="L20327" class="LineNr">20327 </span> 68/push 0/imm32/start -<span id="L20328" class="LineNr">20328 </span> 89/<- %edx 4/r32/esp -<span id="L20329" class="LineNr">20329 </span> <span class="subxComment"># var v/esi: (handle var)</span> -<span id="L20330" class="LineNr">20330 </span> 68/push 0/imm32 -<span id="L20331" class="LineNr">20331 </span> 68/push 0/imm32 -<span id="L20332" class="LineNr">20332 </span> 89/<- %esi 4/r32/esp -<span id="L20333" class="LineNr">20333 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L20334" class="LineNr">20334 </span> 68/push 0/imm32 -<span id="L20335" class="LineNr">20335 </span> 68/push 0/imm32 -<span id="L20336" class="LineNr">20336 </span> 89/<- %ebx 4/r32/esp -<span id="L20337" class="LineNr">20337 </span> { -<span id="L20338" class="LineNr">20338 </span><span class="Constant">$populate-mu-type:line-loop</span>: -<span id="L20339" class="LineNr">20339 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L20340" class="LineNr">20340 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) -<span id="L20341" class="LineNr">20341 </span> <span class="subxComment"># if (line->write == 0) abort</span> -<span id="L20342" class="LineNr">20342 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L20343" class="LineNr">20343 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 -<span id="L20344" class="Folded">20344 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L20350" class="LineNr">20350 </span> (<a href='mu.subx.html#L17090'>next-mu-token</a> %ecx %edx) -<span id="L20351" class="LineNr">20351 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> -<span id="L20352" class="LineNr">20352 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L20353" class="LineNr">20353 </span> 3d/compare-eax-and 0/imm32 -<span id="L20354" class="LineNr">20354 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 -<span id="L20355" class="LineNr">20355 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> -<span id="L20356" class="LineNr">20356 </span> (<a href='../123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) -<span id="L20357" class="LineNr">20357 </span> 3d/compare-eax-and 0/imm32 -<span id="L20358" class="LineNr">20358 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L20359" class="LineNr">20359 </span><span class="Constant">$populate-mu-type:parse-element</span>: -<span id="L20360" class="LineNr">20360 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> -<span id="L20361" class="LineNr">20361 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> -<span id="L20362" class="LineNr">20362 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> -<span id="L20363" class="LineNr">20363 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> -<span id="L20364" class="LineNr">20364 </span> (<a href='mu.subx.html#L20508'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20365" class="LineNr">20365 </span> (<a href='mu.subx.html#L16734'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) -<span id="L20366" class="LineNr">20366 </span> <span class="subxComment"># if v is an addr, abort</span> -<span id="L20367" class="LineNr">20367 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20368" class="LineNr">20368 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20369" class="LineNr">20369 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20370" class="LineNr">20370 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20371" class="LineNr">20371 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 -<span id="L20372" class="LineNr">20372 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> -<span id="L20373" class="LineNr">20373 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20374" class="LineNr">20374 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20375" class="LineNr">20375 </span> (<a href='mu.subx.html#L35524'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20376" class="LineNr">20376 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20377" class="LineNr">20377 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 -<span id="L20378" class="LineNr">20378 </span> <span class="subxComment"># if v is a byte, abort</span> -<span id="L20379" class="LineNr">20379 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20380" class="LineNr">20380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20381" class="LineNr">20381 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L20382" class="LineNr">20382 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20383" class="LineNr">20383 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 -<span id="L20384" class="LineNr">20384 </span> <span class="subxComment"># if v is a slice, abort</span> -<span id="L20385" class="LineNr">20385 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20386" class="LineNr">20386 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20387" class="LineNr">20387 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> -<span id="L20388" class="LineNr">20388 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20389" class="LineNr">20389 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 -<span id="L20390" class="LineNr">20390 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> -<span id="L20391" class="LineNr">20391 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L20392" class="LineNr">20392 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20393" class="LineNr">20393 </span> (<a href='mu.subx.html#L35586'>is-mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20394" class="LineNr">20394 </span> 3d/compare-eax-and 0/imm32/false -<span id="L20395" class="LineNr">20395 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 -<span id="L20396" class="LineNr">20396 </span> <span class="subxComment"># var tmp/ecx</span> -<span id="L20397" class="LineNr">20397 </span> 51/push-ecx -<span id="L20398" class="LineNr">20398 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: -<span id="L20399" class="LineNr">20399 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> -<span id="L20400" class="LineNr">20400 </span> (<a href='mu.subx.html#L20227'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) -<span id="L20401" class="LineNr">20401 </span> <span class="subxComment"># r->index = curr-index</span> -<span id="L20402" class="LineNr">20402 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L20403" class="LineNr">20403 </span> 8b/-> *(ebp-4) 1/r32/ecx -<span id="L20404" class="LineNr">20404 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> -<span id="L20405" class="LineNr">20405 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L20406" class="LineNr">20406 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> -<span id="L20407" class="LineNr">20407 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> -<span id="L20408" class="LineNr">20408 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20409" class="LineNr">20409 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20410" class="LineNr">20410 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L20411" class="LineNr">20411 </span> <span class="subxComment"># ++curr-index</span> -<span id="L20412" class="LineNr">20412 </span> ff 0/subop/increment *(ebp-4) -<span id="L20413" class="LineNr">20413 </span><span class="Constant">$populate-mu-type:set-input-type</span>: -<span id="L20414" class="LineNr">20414 </span> <span class="subxComment"># r->input-var = v</span> -<span id="L20415" class="LineNr">20415 </span> 8b/-> *esi 1/r32/ecx -<span id="L20416" class="LineNr">20416 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20417" class="LineNr">20417 </span> 8b/-> *(esi+4) 1/r32/ecx -<span id="L20418" class="LineNr">20418 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20419" class="LineNr">20419 </span> <span class="subxComment"># restore line</span> -<span id="L20420" class="LineNr">20420 </span> 59/pop-to-ecx -<span id="L20421" class="LineNr">20421 </span> { -<span id="L20422" class="LineNr">20422 </span><span class="Constant">$populate-mu-type:create-output-type</span>: -<span id="L20423" class="LineNr">20423 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> -<span id="L20424" class="LineNr">20424 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20425" class="LineNr">20425 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20426" class="LineNr">20426 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20427" class="LineNr">20427 </span> (<a href='mu.subx.html#L19658'>new-literal</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> %edx %eax) -<span id="L20428" class="LineNr">20428 </span> } -<span id="L20429" class="LineNr">20429 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L20430" class="LineNr">20430 </span> } -<span id="L20431" class="LineNr">20431 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: -<span id="L20432" class="LineNr">20432 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> -<span id="L20433" class="LineNr">20433 </span> <span class="subxComment"># have encountered the element types.</span> -<span id="L20434" class="LineNr">20434 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> -<span id="L20435" class="LineNr">20435 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20436" class="LineNr">20436 </span><span class="Constant">$populate-mu-type:end</span>: -<span id="L20437" class="LineNr">20437 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20438" class="LineNr">20438 </span> 81 0/subop/add %esp 0x224/imm32 -<span id="L20439" class="LineNr">20439 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20440" class="LineNr">20440 </span> 5f/pop-to-edi -<span id="L20441" class="LineNr">20441 </span> 5e/pop-to-esi -<span id="L20442" class="LineNr">20442 </span> 5b/pop-to-ebx -<span id="L20443" class="LineNr">20443 </span> 5a/pop-to-edx -<span id="L20444" class="LineNr">20444 </span> 59/pop-to-ecx -<span id="L20445" class="LineNr">20445 </span> 58/pop-to-eax -<span id="L20446" class="LineNr">20446 </span> <span class="subxComment"># reclaim curr-index</span> -<span id="L20447" class="LineNr">20447 </span> 81 0/subop/add %esp 4/imm32 -<span id="L20448" class="LineNr">20448 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20449" class="LineNr">20449 </span> 89/<- %esp 5/r32/ebp -<span id="L20450" class="LineNr">20450 </span> 5d/pop-to-ebp -<span id="L20451" class="LineNr">20451 </span> c3/return -<span id="L20452" class="LineNr">20452 </span> -<span id="L20453" class="LineNr">20453 </span><span class="Constant">$populate-mu-type:error1</span>: -<span id="L20454" class="LineNr">20454 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> -<span id="L20455" class="LineNr">20455 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) -<span id="L20456" class="LineNr">20456 </span> (<a href='mu.subx.html#L20508'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20457" class="LineNr">20457 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20458" class="LineNr">20458 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) -<span id="L20459" class="LineNr">20459 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20460" class="LineNr">20460 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20461" class="LineNr">20461 </span> <span class="subxComment"># never gets here</span> -<span id="L20462" class="LineNr">20462 </span> -<span id="L20463" class="LineNr">20463 </span><span class="Constant">$populate-mu-type:error2</span>: -<span id="L20464" class="LineNr">20464 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20465" class="LineNr">20465 </span> (<a href='mu.subx.html#L20508'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20466" class="LineNr">20466 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20467" class="LineNr">20467 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) -<span id="L20468" class="LineNr">20468 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20469" class="LineNr">20469 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20470" class="LineNr">20470 </span> <span class="subxComment"># never gets here</span> -<span id="L20471" class="LineNr">20471 </span> -<span id="L20472" class="LineNr">20472 </span><span class="Constant">$populate-mu-type:error3</span>: -<span id="L20473" class="LineNr">20473 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20474" class="LineNr">20474 </span> (<a href='mu.subx.html#L20508'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20475" class="LineNr">20475 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20476" class="LineNr">20476 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'array' elements not allowed for now\n"</span>) -<span id="L20477" class="LineNr">20477 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20478" class="LineNr">20478 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20479" class="LineNr">20479 </span> <span class="subxComment"># never gets here</span> -<span id="L20480" class="LineNr">20480 </span> -<span id="L20481" class="LineNr">20481 </span><span class="Constant">$populate-mu-type:error4</span>: -<span id="L20482" class="LineNr">20482 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20483" class="LineNr">20483 </span> (<a href='mu.subx.html#L20508'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20484" class="LineNr">20484 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20485" class="LineNr">20485 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) -<span id="L20486" class="LineNr">20486 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20487" class="LineNr">20487 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20488" class="LineNr">20488 </span> <span class="subxComment"># never gets here</span> -<span id="L20489" class="LineNr">20489 </span> -<span id="L20490" class="LineNr">20490 </span><span class="Constant">$populate-mu-type:error5</span>: -<span id="L20491" class="LineNr">20491 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20492" class="LineNr">20492 </span> (<a href='mu.subx.html#L20508'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20493" class="LineNr">20493 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20494" class="LineNr">20494 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) -<span id="L20495" class="LineNr">20495 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20496" class="LineNr">20496 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20497" class="LineNr">20497 </span> <span class="subxComment"># never gets here</span> -<span id="L20498" class="LineNr">20498 </span> -<span id="L20499" class="LineNr">20499 </span><span class="Constant">$populate-mu-type:error6</span>: -<span id="L20500" class="LineNr">20500 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) -<span id="L20501" class="LineNr">20501 </span> (<a href='mu.subx.html#L20508'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> -<span id="L20502" class="LineNr">20502 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L20503" class="LineNr">20503 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'stream' elements not allowed for now\n"</span>) -<span id="L20504" class="LineNr">20504 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L20505" class="LineNr">20505 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L20506" class="LineNr">20506 </span> <span class="subxComment"># never gets here</span> -<span id="L20507" class="LineNr">20507 </span> -<span id="L20508" class="LineNr">20508 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> -<span id="L20509" class="LineNr">20509 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20510" class="LineNr">20510 </span> 55/push-ebp -<span id="L20511" class="LineNr">20511 </span> 89/<- %ebp 4/r32/esp -<span id="L20512" class="LineNr">20512 </span> <span class="subxComment">#</span> -<span id="L20513" class="LineNr">20513 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) -<span id="L20514" class="LineNr">20514 </span><span class="Constant">$type-name:end</span>: -<span id="L20515" class="LineNr">20515 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20516" class="LineNr">20516 </span> 89/<- %esp 5/r32/ebp -<span id="L20517" class="LineNr">20517 </span> 5d/pop-to-ebp -<span id="L20518" class="LineNr">20518 </span> c3/return -<span id="L20519" class="LineNr">20519 </span> -<span id="L20520" class="LineNr">20520 </span><span class="subxFunction">index</span>: <span class="subxComment"># arr: (addr stream (handle array byte)), index: int -> result/eax: (addr array byte)</span> -<span id="L20521" class="LineNr">20521 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20522" class="LineNr">20522 </span> 55/push-ebp -<span id="L20523" class="LineNr">20523 </span> 89/<- %ebp 4/r32/esp -<span id="L20524" class="LineNr">20524 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20525" class="LineNr">20525 </span> 56/push-esi -<span id="L20526" class="LineNr">20526 </span> <span class="subxComment"># TODO: bounds-check index</span> -<span id="L20527" class="LineNr">20527 </span> <span class="subxComment"># esi = arr</span> -<span id="L20528" class="LineNr">20528 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20529" class="LineNr">20529 </span> <span class="subxComment"># eax = index</span> -<span id="L20530" class="LineNr">20530 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L20531" class="LineNr">20531 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> -<span id="L20532" class="LineNr">20532 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax -<span id="L20533" class="LineNr">20533 </span><span class="Constant">$index:end</span>: -<span id="L20534" class="LineNr">20534 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20535" class="LineNr">20535 </span> 5e/pop-to-esi -<span id="L20536" class="LineNr">20536 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20537" class="LineNr">20537 </span> 89/<- %esp 5/r32/ebp -<span id="L20538" class="LineNr">20538 </span> 5d/pop-to-ebp -<span id="L20539" class="LineNr">20539 </span> c3/return -<span id="L20540" class="LineNr">20540 </span> -<span id="L20541" class="LineNr">20541 </span><span class="subxComment">#######################################################</span> -<span id="L20542" class="LineNr">20542 </span><span class="subxComment"># Compute type sizes</span> -<span id="L20543" class="LineNr">20543 </span><span class="subxComment">#######################################################</span> -<span id="L20544" class="LineNr">20544 </span> -<span id="L20545" class="LineNr">20545 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> -<span id="L20546" class="LineNr">20546 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> -<span id="L20547" class="LineNr">20547 </span><span class="subxComment"># types, which we will compute as needed.</span> -<span id="L20548" class="LineNr">20548 </span> -<span id="L20549" class="LineNr">20549 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> -<span id="L20550" class="LineNr">20550 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L20551" class="LineNr">20551 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20552" class="LineNr">20552 </span> 55/push-ebp -<span id="L20553" class="LineNr">20553 </span> 89/<- %ebp 4/r32/esp -<span id="L20554" class="LineNr">20554 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: -<span id="L20555" class="LineNr">20555 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L20556" class="LineNr">20556 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L20557" class="LineNr">20557 </span> { -<span id="L20558" class="LineNr">20558 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20559" class="LineNr">20559 </span> 3d/compare-eax-and 0/imm32/null -<span id="L20560" class="LineNr">20560 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20561" class="LineNr">20561 </span> (<a href='mu.subx.html#L20587'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L20562" class="LineNr">20562 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20563" class="LineNr">20563 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L20564" class="LineNr">20564 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20565" class="LineNr">20565 </span> } -<span id="L20566" class="LineNr">20566 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: -<span id="L20567" class="LineNr">20567 </span> <span class="subxComment"># curr = *Program->types</span> -<span id="L20568" class="LineNr">20568 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L20569" class="LineNr">20569 </span> { -<span id="L20570" class="LineNr">20570 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20571" class="LineNr">20571 </span> 3d/compare-eax-and 0/imm32/null -<span id="L20572" class="LineNr">20572 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20573" class="LineNr">20573 </span> (<a href='mu.subx.html#L20751'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L20574" class="LineNr">20574 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L20575" class="LineNr">20575 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L20576" class="LineNr">20576 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20577" class="LineNr">20577 </span> } -<span id="L20578" class="LineNr">20578 </span><span class="Constant">$populate-mu-type-sizes:end</span>: -<span id="L20579" class="LineNr">20579 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20580" class="LineNr">20580 </span> 89/<- %esp 5/r32/ebp -<span id="L20581" class="LineNr">20581 </span> 5d/pop-to-ebp -<span id="L20582" class="LineNr">20582 </span> c3/return -<span id="L20583" class="LineNr">20583 </span> -<span id="L20584" class="LineNr">20584 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> -<span id="L20585" class="LineNr">20585 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> -<span id="L20586" class="LineNr">20586 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> -<span id="L20587" class="LineNr">20587 </span><span class="subxFunction">populate-mu-type-sizes-in-type</span>: <span class="subxComment"># T: (addr typeinfo), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L20588" class="LineNr">20588 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20589" class="LineNr">20589 </span> 55/push-ebp -<span id="L20590" class="LineNr">20590 </span> 89/<- %ebp 4/r32/esp -<span id="L20591" class="LineNr">20591 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20592" class="LineNr">20592 </span> 50/push-eax -<span id="L20593" class="LineNr">20593 </span> 51/push-ecx -<span id="L20594" class="LineNr">20594 </span> 52/push-edx -<span id="L20595" class="LineNr">20595 </span> 56/push-esi -<span id="L20596" class="LineNr">20596 </span> 57/push-edi -<span id="L20597" class="LineNr">20597 </span> <span class="subxComment"># esi = T</span> -<span id="L20598" class="LineNr">20598 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20599" class="LineNr">20599 </span> <span class="subxComment"># if T is already computed, return</span> -<span id="L20600" class="LineNr">20600 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20601" class="LineNr">20601 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 -<span id="L20602" class="LineNr">20602 </span> <span class="subxComment"># if T is being computed, abort</span> -<span id="L20603" class="LineNr">20603 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20604" class="LineNr">20604 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 -<span id="L20605" class="LineNr">20605 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> -<span id="L20606" class="LineNr">20606 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20607" class="LineNr">20607 </span> <span class="subxComment"># var total-size/edi: int = 0</span> -<span id="L20608" class="LineNr">20608 </span> bf/copy-to-edi 0/imm32 -<span id="L20609" class="LineNr">20609 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> -<span id="L20610" class="LineNr">20610 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L20611" class="LineNr">20611 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20612" class="LineNr">20612 </span> 89/<- %ecx 0/r32/eax -<span id="L20613" class="LineNr">20613 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L20614" class="LineNr">20614 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L20615" class="LineNr">20615 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L20616" class="LineNr">20616 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L20617" class="LineNr">20617 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L20618" class="LineNr">20618 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L20619" class="LineNr">20619 </span> { -<span id="L20620" class="LineNr">20620 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: -<span id="L20621" class="LineNr">20621 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L20622" class="LineNr">20622 </span> 39/compare %ecx 2/r32/edx -<span id="L20623" class="LineNr">20623 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L20624" class="LineNr">20624 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> -<span id="L20625" class="LineNr">20625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L20626" class="LineNr">20626 </span> <span class="subxComment"># if (t->input-var == 0) silently ignore it; we'll emit a nice error message while type-checking</span> -<span id="L20627" class="LineNr">20627 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20628" class="LineNr">20628 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 -<span id="L20629" class="LineNr">20629 </span> <span class="subxComment"># compute size of t->input-var</span> -<span id="L20630" class="LineNr">20630 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L20631" class="LineNr">20631 </span> (<a href='mu.subx.html#L20661'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L20632" class="LineNr">20632 </span> <span class="subxComment"># result += eax</span> -<span id="L20633" class="LineNr">20633 </span> 01/add-to %edi 0/r32/eax -<span id="L20634" class="LineNr">20634 </span> <span class="subxComment"># curr += row-size</span> -<span id="L20635" class="LineNr">20635 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L20636" class="LineNr">20636 </span> <span class="subxComment">#</span> -<span id="L20637" class="LineNr">20637 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20638" class="LineNr">20638 </span> } -<span id="L20639" class="LineNr">20639 </span> <span class="subxH1Comment"># - save result</span> -<span id="L20640" class="LineNr">20640 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20641" class="LineNr">20641 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: -<span id="L20642" class="LineNr">20642 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20643" class="LineNr">20643 </span> 5f/pop-to-edi -<span id="L20644" class="LineNr">20644 </span> 5e/pop-to-esi -<span id="L20645" class="LineNr">20645 </span> 5a/pop-to-edx -<span id="L20646" class="LineNr">20646 </span> 59/pop-to-ecx -<span id="L20647" class="LineNr">20647 </span> 58/pop-to-eax -<span id="L20648" class="LineNr">20648 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20649" class="LineNr">20649 </span> 89/<- %esp 5/r32/ebp -<span id="L20650" class="LineNr">20650 </span> 5d/pop-to-ebp -<span id="L20651" class="LineNr">20651 </span> c3/return -<span id="L20652" class="LineNr">20652 </span> -<span id="L20653" class="LineNr">20653 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: -<span id="L20654" class="LineNr">20654 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) -<span id="L20655" class="LineNr">20655 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L20656" class="LineNr">20656 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L20657" class="LineNr">20657 </span> <span class="subxComment"># never gets here</span> -<span id="L20658" class="LineNr">20658 </span> -<span id="L20659" class="LineNr">20659 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> -<span id="L20660" class="LineNr">20660 </span><span class="subxComment"># off the right data structures.</span> -<span id="L20661" class="LineNr">20661 </span><span class="subxFunction">compute-size-of-var</span>: <span class="subxComment"># in: (addr var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> -<span id="L20662" class="LineNr">20662 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20663" class="LineNr">20663 </span> 55/push-ebp -<span id="L20664" class="LineNr">20664 </span> 89/<- %ebp 4/r32/esp -<span id="L20665" class="LineNr">20665 </span> <span class="subxS1Comment"># . push registers</span> -<span id="L20666" class="LineNr">20666 </span> 51/push-ecx -<span id="L20667" class="LineNr">20667 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L20668" class="LineNr">20668 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20669" class="LineNr">20669 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L20670" class="LineNr">20670 </span> 89/<- %ecx 0/r32/eax -<span id="L20671" class="LineNr">20671 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L20672" class="LineNr">20672 </span> { -<span id="L20673" class="LineNr">20673 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L20674" class="LineNr">20674 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20675" class="LineNr">20675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L20676" class="LineNr">20676 </span> 89/<- %ecx 0/r32/eax -<span id="L20677" class="LineNr">20677 </span> } -<span id="L20678" class="LineNr">20678 </span> <span class="subxComment"># TODO: ensure t is an atom</span> -<span id="L20679" class="LineNr">20679 </span> (<a href='mu.subx.html#L20688'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L20680" class="LineNr">20680 </span><span class="Constant">$compute-size-of-var:end</span>: -<span id="L20681" class="LineNr">20681 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20682" class="LineNr">20682 </span> 59/pop-to-ecx -<span id="L20683" class="LineNr">20683 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20684" class="LineNr">20684 </span> 89/<- %esp 5/r32/ebp -<span id="L20685" class="LineNr">20685 </span> 5d/pop-to-ebp -<span id="L20686" class="LineNr">20686 </span> c3/return -<span id="L20687" class="LineNr">20687 </span> -<span id="L20688" class="LineNr">20688 </span><span class="subxFunction">compute-size-of-type-id</span>: <span class="subxComment"># t: type-id, err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> -<span id="L20689" class="LineNr">20689 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20690" class="LineNr">20690 </span> 55/push-ebp -<span id="L20691" class="LineNr">20691 </span> 89/<- %ebp 4/r32/esp -<span id="L20692" class="LineNr">20692 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20693" class="LineNr">20693 </span> 51/push-ecx -<span id="L20694" class="LineNr">20694 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L20695" class="LineNr">20695 </span> 68/push 0/imm32 -<span id="L20696" class="LineNr">20696 </span> 68/push 0/imm32 -<span id="L20697" class="LineNr">20697 </span> 89/<- %ecx 4/r32/esp -<span id="L20698" class="LineNr">20698 </span> <span class="subxComment"># eax = t</span> -<span id="L20699" class="LineNr">20699 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L20700" class="LineNr">20700 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L20701" class="LineNr">20701 </span> 3d/compare-eax-and 0/imm32/literal -<span id="L20702" class="LineNr">20702 </span> 0f 84/jump-if-= $compute-size-of-type-id:end/disp32 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L20703" class="LineNr">20703 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L20704" class="LineNr">20704 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L20705" class="LineNr">20705 </span> { -<span id="L20706" class="LineNr">20706 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20707" class="LineNr">20707 </span> b8/copy-to-eax 4/imm32 -<span id="L20708" class="LineNr">20708 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L20709" class="LineNr">20709 </span> } -<span id="L20710" class="LineNr">20710 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L20711" class="LineNr">20711 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L20712" class="LineNr">20712 </span> { -<span id="L20713" class="LineNr">20713 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20714" class="LineNr">20714 </span> b8/copy-to-eax 8/imm32 -<span id="L20715" class="LineNr">20715 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L20716" class="LineNr">20716 </span> } -<span id="L20717" class="LineNr">20717 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L20718" class="LineNr">20718 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L20719" class="LineNr">20719 </span> { -<span id="L20720" class="LineNr">20720 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L20721" class="LineNr">20721 </span> b8/copy-to-eax 8/imm32 -<span id="L20722" class="LineNr">20722 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L20723" class="LineNr">20723 </span> } -<span id="L20724" class="LineNr">20724 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> -<span id="L20725" class="LineNr">20725 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L20726" class="LineNr">20726 </span> (<a href='mu.subx.html#L20113'>find-typeinfo</a> %eax %ecx) -<span id="L20727" class="LineNr">20727 </span> { -<span id="L20728" class="LineNr">20728 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L20729" class="LineNr">20729 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20730" class="LineNr">20730 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: -<span id="L20731" class="LineNr">20731 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L20732" class="LineNr">20732 </span> (<a href='mu.subx.html#L20587'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L20733" class="LineNr">20733 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L20734" class="LineNr">20734 </span> eb/jump $compute-size-of-type-id:end/disp8 -<span id="L20735" class="LineNr">20735 </span> } -<span id="L20736" class="LineNr">20736 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L20737" class="LineNr">20737 </span> b8/copy-to-eax 4/imm32 -<span id="L20738" class="LineNr">20738 </span><span class="Constant">$compute-size-of-type-id:end</span>: -<span id="L20739" class="LineNr">20739 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L20740" class="LineNr">20740 </span> 81 0/subop/add %esp 8/imm32 -<span id="L20741" class="LineNr">20741 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20742" class="LineNr">20742 </span> 59/pop-to-ecx -<span id="L20743" class="LineNr">20743 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20744" class="LineNr">20744 </span> 89/<- %esp 5/r32/ebp -<span id="L20745" class="LineNr">20745 </span> 5d/pop-to-ebp -<span id="L20746" class="LineNr">20746 </span> c3/return -<span id="L20747" class="LineNr">20747 </span> -<span id="L20748" class="LineNr">20748 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> -<span id="L20749" class="LineNr">20749 </span><span class="subxComment"># compute offsets for each element</span> -<span id="L20750" class="LineNr">20750 </span><span class="subxComment"># complication: fields may be out of order</span> -<span id="L20751" class="LineNr">20751 </span><span class="subxFunction">populate-mu-type-offsets</span>: <span class="subxComment"># in: (addr typeinfo), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L20752" class="LineNr">20752 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20753" class="LineNr">20753 </span> 55/push-ebp -<span id="L20754" class="LineNr">20754 </span> 89/<- %ebp 4/r32/esp -<span id="L20755" class="LineNr">20755 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20756" class="LineNr">20756 </span> 50/push-eax -<span id="L20757" class="LineNr">20757 </span> 51/push-ecx -<span id="L20758" class="LineNr">20758 </span> 52/push-edx -<span id="L20759" class="LineNr">20759 </span> 53/push-ebx -<span id="L20760" class="LineNr">20760 </span> 56/push-esi -<span id="L20761" class="LineNr">20761 </span> 57/push-edi -<span id="L20762" class="LineNr">20762 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> -<span id="L20763" class="LineNr">20763 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> -<span id="L20764" class="LineNr">20764 </span> bf/copy-to-edi 0/imm32 -<span id="L20765" class="LineNr">20765 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> -<span id="L20766" class="LineNr">20766 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L20767" class="LineNr">20767 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20768" class="LineNr">20768 </span> 89/<- %ecx 0/r32/eax -<span id="L20769" class="LineNr">20769 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> -<span id="L20770" class="LineNr">20770 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L20771" class="LineNr">20771 </span> c1 5/subop/shift-right-logical %edx 4/imm8 -<span id="L20772" class="LineNr">20772 </span> <span class="subxComment"># var i/ebx: int = 0</span> -<span id="L20773" class="LineNr">20773 </span> bb/copy-to-ebx 0/imm32 -<span id="L20774" class="LineNr">20774 </span> { -<span id="L20775" class="LineNr">20775 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: -<span id="L20776" class="LineNr">20776 </span> 39/compare %ebx 2/r32/edx -<span id="L20777" class="LineNr">20777 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 -<span id="L20778" class="LineNr">20778 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> -<span id="L20779" class="LineNr">20779 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L20780" class="LineNr">20780 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> -<span id="L20781" class="LineNr">20781 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> -<span id="L20782" class="LineNr">20782 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20783" class="LineNr">20783 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20784" class="LineNr">20784 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> -<span id="L20785" class="LineNr">20785 </span> (<a href='mu.subx.html#L20818'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L20786" class="LineNr">20786 </span> 89/<- %esi 0/r32/eax -<span id="L20787" class="LineNr">20787 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> -<span id="L20788" class="LineNr">20788 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20789" class="LineNr">20789 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L20790" class="LineNr">20790 </span> <span class="subxComment"># if (v->input-var == 0) silently ignore v; we'll emit a nice error message while type-checking</span> -<span id="L20791" class="LineNr">20791 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> -<span id="L20792" class="LineNr">20792 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 -<span id="L20793" class="LineNr">20793 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> -<span id="L20794" class="LineNr">20794 </span> <span class="subxS1Comment"># . eax: (addr var)</span> -<span id="L20795" class="LineNr">20795 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Typeinfo-entry-output-var Typeinfo-entry-output-var => eax</span> -<span id="L20796" class="LineNr">20796 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> -<span id="L20797" class="LineNr">20797 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> -<span id="L20798" class="LineNr">20798 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L20799" class="LineNr">20799 </span> (<a href='mu.subx.html#L26338'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L20800" class="LineNr">20800 </span> 01/add-to %edi 0/r32/eax -<span id="L20801" class="LineNr">20801 </span> <span class="subxComment"># ++i</span> -<span id="L20802" class="LineNr">20802 </span> 43/increment-ebx -<span id="L20803" class="LineNr">20803 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L20804" class="LineNr">20804 </span> } -<span id="L20805" class="LineNr">20805 </span><span class="Constant">$populate-mu-type-offsets:end</span>: -<span id="L20806" class="LineNr">20806 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20807" class="LineNr">20807 </span> 5f/pop-to-edi -<span id="L20808" class="LineNr">20808 </span> 5e/pop-to-esi -<span id="L20809" class="LineNr">20809 </span> 5b/pop-to-ebx -<span id="L20810" class="LineNr">20810 </span> 5a/pop-to-edx -<span id="L20811" class="LineNr">20811 </span> 59/pop-to-ecx -<span id="L20812" class="LineNr">20812 </span> 58/pop-to-eax -<span id="L20813" class="LineNr">20813 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20814" class="LineNr">20814 </span> 89/<- %esp 5/r32/ebp -<span id="L20815" class="LineNr">20815 </span> 5d/pop-to-ebp -<span id="L20816" class="LineNr">20816 </span> c3/return -<span id="L20817" class="LineNr">20817 </span> -<span id="L20818" class="LineNr">20818 </span><span class="subxFunction">locate-typeinfo-entry-with-index</span>: <span class="subxComment"># table: (addr table (handle array byte) (handle typeinfo-entry)), idx: int, err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: (addr typeinfo-entry)</span> -<span id="L20819" class="LineNr">20819 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20820" class="LineNr">20820 </span> 55/push-ebp -<span id="L20821" class="LineNr">20821 </span> 89/<- %ebp 4/r32/esp -<span id="L20822" class="LineNr">20822 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20823" class="LineNr">20823 </span> 51/push-ecx -<span id="L20824" class="LineNr">20824 </span> 52/push-edx -<span id="L20825" class="LineNr">20825 </span> 53/push-ebx -<span id="L20826" class="LineNr">20826 </span> 56/push-esi -<span id="L20827" class="LineNr">20827 </span> 57/push-edi -<span id="L20828" class="LineNr">20828 </span> <span class="subxComment"># esi = table</span> -<span id="L20829" class="LineNr">20829 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20830" class="LineNr">20830 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> -<span id="L20831" class="LineNr">20831 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx -<span id="L20832" class="LineNr">20832 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> -<span id="L20833" class="LineNr">20833 </span> 8b/-> *esi 2/r32/edx -<span id="L20834" class="LineNr">20834 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L20835" class="LineNr">20835 </span> { -<span id="L20836" class="LineNr">20836 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: -<span id="L20837" class="LineNr">20837 </span> 39/compare %ecx 2/r32/edx -<span id="L20838" class="LineNr">20838 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L20839" class="LineNr">20839 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> -<span id="L20840" class="LineNr">20840 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> -<span id="L20841" class="LineNr">20841 </span> <span class="subxComment"># if (v->index == idx) return v</span> -<span id="L20842" class="LineNr">20842 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> -<span id="L20843" class="LineNr">20843 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> -<span id="L20844" class="LineNr">20844 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L20845" class="LineNr">20845 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> -<span id="L20846" class="LineNr">20846 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> -<span id="L20847" class="LineNr">20847 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20848" class="LineNr">20848 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20849" class="LineNr">20849 </span> 39/compare *(ebp+0xc) 3/r32/ebx -<span id="L20850" class="LineNr">20850 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 -<span id="L20851" class="LineNr">20851 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> -<span id="L20852" class="LineNr">20852 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> -<span id="L20853" class="LineNr">20853 </span> <span class="subxComment">#</span> -<span id="L20854" class="LineNr">20854 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20855" class="LineNr">20855 </span> } -<span id="L20856" class="LineNr">20856 </span> <span class="subxComment"># return 0</span> -<span id="L20857" class="LineNr">20857 </span> b8/copy-to-eax 0/imm32 -<span id="L20858" class="LineNr">20858 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: -<span id="L20859" class="LineNr">20859 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> -<span id="L20860" class="LineNr">20860 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L20861" class="LineNr">20861 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L20862" class="LineNr">20862 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L20863" class="LineNr">20863 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20864" class="LineNr">20864 </span> 5f/pop-to-edi -<span id="L20865" class="LineNr">20865 </span> 5e/pop-to-esi -<span id="L20866" class="LineNr">20866 </span> 5b/pop-to-ebx -<span id="L20867" class="LineNr">20867 </span> 5a/pop-to-edx -<span id="L20868" class="LineNr">20868 </span> 59/pop-to-ecx -<span id="L20869" class="LineNr">20869 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20870" class="LineNr">20870 </span> 89/<- %esp 5/r32/ebp -<span id="L20871" class="LineNr">20871 </span> 5d/pop-to-ebp -<span id="L20872" class="LineNr">20872 </span> c3/return -<span id="L20873" class="LineNr">20873 </span> -<span id="L20874" class="LineNr">20874 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> -<span id="L20875" class="LineNr">20875 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20876" class="LineNr">20876 </span> 55/push-ebp -<span id="L20877" class="LineNr">20877 </span> 89/<- %ebp 4/r32/esp -<span id="L20878" class="LineNr">20878 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20879" class="LineNr">20879 </span> 50/push-eax -<span id="L20880" class="LineNr">20880 </span> <span class="subxComment">#</span> -<span id="L20881" class="LineNr">20881 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L20882" class="LineNr">20882 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20883" class="LineNr">20883 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> -<span id="L20884" class="LineNr">20884 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> -<span id="L20885" class="LineNr">20885 </span> { -<span id="L20886" class="LineNr">20886 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L20887" class="LineNr">20887 </span> 3d/compare-eax-and 0/imm32 -<span id="L20888" class="LineNr">20888 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L20889" class="LineNr">20889 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"---\n"</span>) -<span id="L20890" class="LineNr">20890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20891" class="LineNr">20891 </span> (<a href='mu.subx.html#L20904'>dump-typeinfo</a> %eax) -<span id="L20892" class="LineNr">20892 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L20893" class="LineNr">20893 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> -<span id="L20894" class="LineNr">20894 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L20895" class="LineNr">20895 </span> } -<span id="L20896" class="LineNr">20896 </span><span class="Constant">$dump-typeinfos:end</span>: -<span id="L20897" class="LineNr">20897 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20898" class="LineNr">20898 </span> 58/pop-to-eax -<span id="L20899" class="LineNr">20899 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20900" class="LineNr">20900 </span> 89/<- %esp 5/r32/ebp -<span id="L20901" class="LineNr">20901 </span> 5d/pop-to-ebp -<span id="L20902" class="LineNr">20902 </span> c3/return -<span id="L20903" class="LineNr">20903 </span> -<span id="L20904" class="LineNr">20904 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> -<span id="L20905" class="LineNr">20905 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L20906" class="LineNr">20906 </span> 55/push-ebp -<span id="L20907" class="LineNr">20907 </span> 89/<- %ebp 4/r32/esp -<span id="L20908" class="LineNr">20908 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L20909" class="LineNr">20909 </span> 50/push-eax -<span id="L20910" class="LineNr">20910 </span> 51/push-ecx -<span id="L20911" class="LineNr">20911 </span> 52/push-edx -<span id="L20912" class="LineNr">20912 </span> 53/push-ebx -<span id="L20913" class="LineNr">20913 </span> 56/push-esi -<span id="L20914" class="LineNr">20914 </span> 57/push-edi -<span id="L20915" class="LineNr">20915 </span> <span class="subxComment"># esi = in</span> -<span id="L20916" class="LineNr">20916 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L20917" class="LineNr">20917 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> -<span id="L20918" class="LineNr">20918 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L20919" class="LineNr">20919 </span> 89/<- %ecx 0/r32/eax -<span id="L20920" class="LineNr">20920 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"id:"</span>) -<span id="L20921" class="LineNr">20921 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *esi) -<span id="L20922" class="LineNr">20922 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"\n"</span>) -<span id="L20923" class="LineNr">20923 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fields @ "</span>) -<span id="L20924" class="LineNr">20924 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %ecx) -<span id="L20925" class="LineNr">20925 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L20926" class="LineNr">20926 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20927" class="LineNr">20927 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='../108write.subx.html#L24'>write</a>: "</span>) -<span id="L20928" class="LineNr">20928 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) -<span id="L20929" class="LineNr">20929 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L20930" class="LineNr">20930 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20931" class="LineNr">20931 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='../111read.subx.html#L48'>read</a>: "</span>) -<span id="L20932" class="LineNr">20932 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+4)) -<span id="L20933" class="LineNr">20933 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L20934" class="LineNr">20934 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20935" class="LineNr">20935 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='../307size.subx.html#L5'>size</a>: "</span>) -<span id="L20936" class="LineNr">20936 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) -<span id="L20937" class="LineNr">20937 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L20938" class="LineNr">20938 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20939" class="LineNr">20939 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> -<span id="L20940" class="LineNr">20940 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> -<span id="L20941" class="LineNr">20941 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> -<span id="L20942" class="LineNr">20942 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx -<span id="L20943" class="LineNr">20943 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> -<span id="L20944" class="LineNr">20944 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L20945" class="LineNr">20945 </span> { -<span id="L20946" class="LineNr">20946 </span><span class="Constant">$dump-typeinfo:loop</span>: -<span id="L20947" class="LineNr">20947 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L20948" class="LineNr">20948 </span> 39/compare %ecx 2/r32/edx -<span id="L20949" class="LineNr">20949 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 -<span id="L20950" class="LineNr">20950 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" row:\n"</span>) -<span id="L20951" class="LineNr">20951 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" key: "</span>) -<span id="L20952" class="LineNr">20952 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) -<span id="L20953" class="LineNr">20953 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L20954" class="LineNr">20954 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+4)) -<span id="L20955" class="LineNr">20955 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" = '"</span>) -<span id="L20956" class="LineNr">20956 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) -<span id="L20957" class="LineNr">20957 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L20958" class="LineNr">20958 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"' @ "</span>) -<span id="L20959" class="LineNr">20959 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L20960" class="LineNr">20960 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L20961" class="LineNr">20961 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20962" class="LineNr">20962 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" value: "</span>) -<span id="L20963" class="LineNr">20963 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) -<span id="L20964" class="LineNr">20964 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L20965" class="LineNr">20965 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+0xc)) -<span id="L20966" class="LineNr">20966 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" = typeinfo-entry@"</span>) -<span id="L20967" class="LineNr">20967 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L20968" class="LineNr">20968 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L20969" class="LineNr">20969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L20970" class="LineNr">20970 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20971" class="LineNr">20971 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" input var@"</span>) -<span id="L20972" class="LineNr">20972 </span> (<a href='mu.subx.html#L21000'>dump-var</a> 5 %eax) -<span id="L20973" class="LineNr">20973 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) -<span id="L20974" class="LineNr">20974 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" index: "</span>) -<span id="L20975" class="LineNr">20975 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(eax+8)) -<span id="L20976" class="LineNr">20976 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L20977" class="LineNr">20977 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20978" class="LineNr">20978 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" output var@"</span>) -<span id="L20979" class="LineNr">20979 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> -<span id="L20980" class="LineNr">20980 </span> (<a href='mu.subx.html#L21000'>dump-var</a> 5 %eax) -<span id="L20981" class="LineNr">20981 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L20982" class="LineNr">20982 </span> <span class="subxComment"># curr += row-size</span> -<span id="L20983" class="LineNr">20983 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> -<span id="L20984" class="LineNr">20984 </span> <span class="subxComment">#</span> -<span id="L20985" class="LineNr">20985 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L20986" class="LineNr">20986 </span> } -<span id="L20987" class="LineNr">20987 </span><span class="Constant">$dump-typeinfo:end</span>: -<span id="L20988" class="LineNr">20988 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L20989" class="LineNr">20989 </span> 5f/pop-to-edi -<span id="L20990" class="LineNr">20990 </span> 5e/pop-to-esi -<span id="L20991" class="LineNr">20991 </span> 5b/pop-to-ebx -<span id="L20992" class="LineNr">20992 </span> 5a/pop-to-edx -<span id="L20993" class="LineNr">20993 </span> 59/pop-to-ecx -<span id="L20994" class="LineNr">20994 </span> 58/pop-to-eax -<span id="L20995" class="LineNr">20995 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L20996" class="LineNr">20996 </span> 89/<- %esp 5/r32/ebp -<span id="L20997" class="LineNr">20997 </span> 5d/pop-to-ebp -<span id="L20998" class="LineNr">20998 </span> c3/return -<span id="L20999" class="LineNr">20999 </span> -<span id="L21000" class="LineNr">21000 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> -<span id="L21001" class="LineNr">21001 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21002" class="LineNr">21002 </span> 55/push-ebp -<span id="L21003" class="LineNr">21003 </span> 89/<- %ebp 4/r32/esp -<span id="L21004" class="LineNr">21004 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21005" class="LineNr">21005 </span> 50/push-eax -<span id="L21006" class="LineNr">21006 </span> 53/push-ebx -<span id="L21007" class="LineNr">21007 </span> <span class="subxComment"># eax = v</span> -<span id="L21008" class="LineNr">21008 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21009" class="LineNr">21009 </span> <span class="subxComment">#</span> -<span id="L21010" class="LineNr">21010 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *eax) -<span id="L21011" class="LineNr">21011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21012" class="LineNr">21012 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(eax+4)) -<span id="L21013" class="LineNr">21013 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"->"</span>) -<span id="L21014" class="LineNr">21014 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) -<span id="L21015" class="LineNr">21015 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21016" class="LineNr">21016 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L21017" class="LineNr">21017 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21018" class="LineNr">21018 </span> { -<span id="L21019" class="LineNr">21019 </span> 3d/compare-eax-and 0/imm32 -<span id="L21020" class="LineNr">21020 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21021" class="LineNr">21021 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21022" class="LineNr">21022 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"name: "</span>) -<span id="L21023" class="LineNr">21023 </span> 89/<- %ebx 0/r32/eax -<span id="L21024" class="LineNr">21024 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *ebx) <span class="subxComment"># Var-name</span> -<span id="L21025" class="LineNr">21025 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21026" class="LineNr">21026 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+4)) <span class="subxComment"># Var-name</span> -<span id="L21027" class="LineNr">21027 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"->"</span>) -<span id="L21028" class="LineNr">21028 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> -<span id="L21029" class="LineNr">21029 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21030" class="LineNr">21030 </span> { -<span id="L21031" class="LineNr">21031 </span> 3d/compare-eax-and 0/imm32 -<span id="L21032" class="LineNr">21032 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21033" class="LineNr">21033 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L21034" class="LineNr">21034 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21035" class="LineNr">21035 </span> } -<span id="L21036" class="LineNr">21036 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L21037" class="LineNr">21037 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21038" class="LineNr">21038 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21039" class="LineNr">21039 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"block depth: "</span>) -<span id="L21040" class="LineNr">21040 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x10)) <span class="subxComment"># Var-block-depth</span> -<span id="L21041" class="LineNr">21041 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L21042" class="LineNr">21042 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21043" class="LineNr">21043 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21044" class="LineNr">21044 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"stack offset: "</span>) -<span id="L21045" class="LineNr">21045 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x14)) <span class="subxComment"># Var-offset</span> -<span id="L21046" class="LineNr">21046 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L21047" class="LineNr">21047 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21048" class="LineNr">21048 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) -<span id="L21049" class="LineNr">21049 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"reg: "</span>) -<span id="L21050" class="LineNr">21050 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x18)) <span class="subxComment"># Var-register</span> -<span id="L21051" class="LineNr">21051 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) -<span id="L21052" class="LineNr">21052 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x1c)) <span class="subxComment"># Var-register</span> -<span id="L21053" class="LineNr">21053 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"->"</span>) -<span id="L21054" class="LineNr">21054 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21055" class="LineNr">21055 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> -<span id="L21056" class="LineNr">21056 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21057" class="LineNr">21057 </span> { -<span id="L21058" class="LineNr">21058 </span> 3d/compare-eax-and 0/imm32 -<span id="L21059" class="LineNr">21059 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21060" class="LineNr">21060 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L21061" class="LineNr">21061 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> %eax) -<span id="L21062" class="LineNr">21062 </span> } -<span id="L21063" class="LineNr">21063 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L21064" class="LineNr">21064 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L21065" class="LineNr">21065 </span> } -<span id="L21066" class="LineNr">21066 </span><span class="Constant">$dump-var:end</span>: -<span id="L21067" class="LineNr">21067 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21068" class="LineNr">21068 </span> 5b/pop-to-ebx -<span id="L21069" class="LineNr">21069 </span> 58/pop-to-eax -<span id="L21070" class="LineNr">21070 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21071" class="LineNr">21071 </span> 89/<- %esp 5/r32/ebp -<span id="L21072" class="LineNr">21072 </span> 5d/pop-to-ebp -<span id="L21073" class="LineNr">21073 </span> c3/return -<span id="L21074" class="LineNr">21074 </span> -<span id="L21075" class="LineNr">21075 </span><span class="subxComment">#######################################################</span> -<span id="L21076" class="LineNr">21076 </span><span class="subxComment"># Type-checking</span> -<span id="L21077" class="LineNr">21077 </span><span class="subxComment">#######################################################</span> -<span id="L21078" class="LineNr">21078 </span> -<span id="L21079" class="LineNr">21079 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21080" class="LineNr">21080 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21081" class="LineNr">21081 </span> 55/push-ebp -<span id="L21082" class="LineNr">21082 </span> 89/<- %ebp 4/r32/esp -<span id="L21083" class="LineNr">21083 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21084" class="LineNr">21084 </span> 50/push-eax -<span id="L21085" class="LineNr">21085 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> -<span id="L21086" class="LineNr">21086 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L21087" class="LineNr">21087 </span> { -<span id="L21088" class="LineNr">21088 </span><span class="Constant">$check-mu-types:loop</span>: -<span id="L21089" class="LineNr">21089 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21090" class="LineNr">21090 </span> 3d/compare-eax-and 0/imm32 -<span id="L21091" class="LineNr">21091 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21092" class="Folded">21092 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L21100" class="LineNr">21100 </span> (<a href='mu.subx.html#L21113'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) -<span id="L21101" class="LineNr">21101 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L21102" class="LineNr">21102 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L21103" class="LineNr">21103 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21104" class="LineNr">21104 </span> } -<span id="L21105" class="LineNr">21105 </span><span class="Constant">$check-mu-types:end</span>: -<span id="L21106" class="LineNr">21106 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21107" class="LineNr">21107 </span> 58/pop-to-eax -<span id="L21108" class="LineNr">21108 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21109" class="LineNr">21109 </span> 89/<- %esp 5/r32/ebp -<span id="L21110" class="LineNr">21110 </span> 5d/pop-to-ebp -<span id="L21111" class="LineNr">21111 </span> c3/return -<span id="L21112" class="LineNr">21112 </span> -<span id="L21113" class="LineNr">21113 </span><span class="subxFunction">check-mu-function</span>: <span class="subxComment"># fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21114" class="LineNr">21114 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21115" class="LineNr">21115 </span> 55/push-ebp -<span id="L21116" class="LineNr">21116 </span> 89/<- %ebp 4/r32/esp -<span id="L21117" class="LineNr">21117 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21118" class="LineNr">21118 </span> 50/push-eax -<span id="L21119" class="LineNr">21119 </span> 56/push-esi -<span id="L21120" class="LineNr">21120 </span> <span class="subxComment"># esi = f</span> -<span id="L21121" class="LineNr">21121 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21122" class="LineNr">21122 </span> <span class="subxComment"># outputs</span> -<span id="L21123" class="LineNr">21123 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L21124" class="LineNr">21124 </span> (<a href='mu.subx.html#L23138'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21125" class="LineNr">21125 </span> <span class="subxComment"># body</span> -<span id="L21126" class="LineNr">21126 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L21127" class="LineNr">21127 </span> (<a href='mu.subx.html#L21143'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) -<span id="L21128" class="LineNr">21128 </span> <span class="subxComment"># if function has no outputs, we're done</span> -<span id="L21129" class="LineNr">21129 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 -<span id="L21130" class="LineNr">21130 </span> 74/jump-if-= $check-mu-function:end/disp8 -<span id="L21131" class="LineNr">21131 </span> <span class="subxComment"># some final checks on body</span> -<span id="L21132" class="LineNr">21132 </span> (<a href='mu.subx.html#L23351'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21133" class="LineNr">21133 </span> (<a href='mu.subx.html#L23403'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) -<span id="L21134" class="LineNr">21134 </span><span class="Constant">$check-mu-function:end</span>: -<span id="L21135" class="LineNr">21135 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21136" class="LineNr">21136 </span> 5e/pop-to-esi -<span id="L21137" class="LineNr">21137 </span> 58/pop-to-eax -<span id="L21138" class="LineNr">21138 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21139" class="LineNr">21139 </span> 89/<- %esp 5/r32/ebp -<span id="L21140" class="LineNr">21140 </span> 5d/pop-to-ebp -<span id="L21141" class="LineNr">21141 </span> c3/return -<span id="L21142" class="LineNr">21142 </span> -<span id="L21143" class="LineNr">21143 </span><span class="subxFunction">check-mu-block</span>: <span class="subxComment"># block: (addr block), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21144" class="LineNr">21144 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21145" class="LineNr">21145 </span> 55/push-ebp -<span id="L21146" class="LineNr">21146 </span> 89/<- %ebp 4/r32/esp -<span id="L21147" class="LineNr">21147 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21148" class="LineNr">21148 </span> 50/push-eax -<span id="L21149" class="LineNr">21149 </span> <span class="subxComment"># eax = block</span> -<span id="L21150" class="LineNr">21150 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21151" class="LineNr">21151 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L21152" class="LineNr">21152 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L21153" class="LineNr">21153 </span> <span class="subxComment">#</span> -<span id="L21154" class="LineNr">21154 </span> { -<span id="L21155" class="LineNr">21155 </span><span class="Constant">$check-mu-block:check-empty</span>: -<span id="L21156" class="LineNr">21156 </span> 3d/compare-eax-and 0/imm32 -<span id="L21157" class="LineNr">21157 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21158" class="LineNr">21158 </span> <span class="subxComment"># emit block->statements</span> -<span id="L21159" class="LineNr">21159 </span> (<a href='mu.subx.html#L21169'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21160" class="LineNr">21160 </span> } -<span id="L21161" class="LineNr">21161 </span><span class="Constant">$check-mu-block:end</span>: -<span id="L21162" class="LineNr">21162 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21163" class="LineNr">21163 </span> 58/pop-to-eax -<span id="L21164" class="LineNr">21164 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21165" class="LineNr">21165 </span> 89/<- %esp 5/r32/ebp -<span id="L21166" class="LineNr">21166 </span> 5d/pop-to-ebp -<span id="L21167" class="LineNr">21167 </span> c3/return -<span id="L21168" class="LineNr">21168 </span> -<span id="L21169" class="LineNr">21169 </span><span class="subxFunction">check-mu-stmt-list</span>: <span class="subxComment"># stmts: (addr list stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21170" class="LineNr">21170 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21171" class="LineNr">21171 </span> 55/push-ebp -<span id="L21172" class="LineNr">21172 </span> 89/<- %ebp 4/r32/esp -<span id="L21173" class="LineNr">21173 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21174" class="LineNr">21174 </span> 50/push-eax -<span id="L21175" class="LineNr">21175 </span> 56/push-esi -<span id="L21176" class="LineNr">21176 </span> <span class="subxComment"># esi = stmts</span> -<span id="L21177" class="LineNr">21177 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21178" class="LineNr">21178 </span> { -<span id="L21179" class="LineNr">21179 </span><span class="Constant">$check-mu-stmt-list:loop</span>: -<span id="L21180" class="LineNr">21180 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L21181" class="LineNr">21181 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L21182" class="LineNr">21182 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> -<span id="L21183" class="LineNr">21183 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L21184" class="LineNr">21184 </span> { -<span id="L21185" class="LineNr">21185 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: -<span id="L21186" class="LineNr">21186 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L21187" class="LineNr">21187 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21188" class="LineNr">21188 </span><span class="Constant">$check-mu-stmt-list:block</span>: -<span id="L21189" class="LineNr">21189 </span> (<a href='mu.subx.html#L21143'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21190" class="LineNr">21190 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21191" class="LineNr">21191 </span> } -<span id="L21192" class="LineNr">21192 </span> { -<span id="L21193" class="LineNr">21193 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: -<span id="L21194" class="LineNr">21194 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L21195" class="LineNr">21195 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L21196" class="LineNr">21196 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: -<span id="L21197" class="LineNr">21197 </span> (<a href='mu.subx.html#L21223'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21198" class="LineNr">21198 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21199" class="LineNr">21199 </span> } -<span id="L21200" class="LineNr">21200 </span> { -<span id="L21201" class="LineNr">21201 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: -<span id="L21202" class="LineNr">21202 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L21203" class="LineNr">21203 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L21204" class="LineNr">21204 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: -<span id="L21205" class="LineNr">21205 </span> (<a href='mu.subx.html#L21223'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21206" class="LineNr">21206 </span> eb/jump $check-mu-stmt-list:continue/disp8 -<span id="L21207" class="LineNr">21207 </span> } -<span id="L21208" class="LineNr">21208 </span><span class="Constant">$check-mu-stmt-list:continue</span>: -<span id="L21209" class="LineNr">21209 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L21210" class="LineNr">21210 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L21211" class="LineNr">21211 </span> 89/<- %esi 0/r32/eax -<span id="L21212" class="LineNr">21212 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21213" class="LineNr">21213 </span> } -<span id="L21214" class="LineNr">21214 </span><span class="Constant">$check-mu-stmt-list:end</span>: -<span id="L21215" class="LineNr">21215 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21216" class="LineNr">21216 </span> 5e/pop-to-esi -<span id="L21217" class="LineNr">21217 </span> 58/pop-to-eax -<span id="L21218" class="LineNr">21218 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21219" class="LineNr">21219 </span> 89/<- %esp 5/r32/ebp -<span id="L21220" class="LineNr">21220 </span> 5d/pop-to-ebp -<span id="L21221" class="LineNr">21221 </span> c3/return -<span id="L21222" class="LineNr">21222 </span> -<span id="L21223" class="LineNr">21223 </span><span class="subxFunction">check-mu-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21224" class="LineNr">21224 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21225" class="LineNr">21225 </span> 55/push-ebp -<span id="L21226" class="LineNr">21226 </span> 89/<- %ebp 4/r32/esp -<span id="L21227" class="LineNr">21227 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21228" class="LineNr">21228 </span> 50/push-eax -<span id="L21229" class="LineNr">21229 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> -<span id="L21230" class="LineNr">21230 </span> (<a href='mu.subx.html#L21276'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21231" class="LineNr">21231 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21232" class="LineNr">21232 </span> { -<span id="L21233" class="LineNr">21233 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21234" class="LineNr">21234 </span> (<a href='mu.subx.html#L21368'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21235" class="LineNr">21235 </span> e9/jump $check-mu-stmt:end/disp32 -<span id="L21236" class="LineNr">21236 </span> } -<span id="L21237" class="LineNr">21237 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> -<span id="L21238" class="LineNr">21238 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> -<span id="L21239" class="LineNr">21239 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L21240" class="LineNr">21240 </span> (<a href='mu.subx.html#L35372'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21241" class="LineNr">21241 </span> 3d/compare-eax-and 0/imm32 -<span id="L21242" class="LineNr">21242 </span> { -<span id="L21243" class="LineNr">21243 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21244" class="LineNr">21244 </span> (<a href='mu.subx.html#L25881'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21245" class="LineNr">21245 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L21246" class="LineNr">21246 </span> } -<span id="L21247" class="LineNr">21247 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> -<span id="L21248" class="LineNr">21248 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> -<span id="L21249" class="LineNr">21249 </span> (<a href='mu.subx.html#L35372'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21250" class="LineNr">21250 </span> 3d/compare-eax-and 0/imm32 -<span id="L21251" class="LineNr">21251 </span> { -<span id="L21252" class="LineNr">21252 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21253" class="LineNr">21253 </span> (<a href='mu.subx.html#L25881'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21254" class="LineNr">21254 </span> eb/jump $check-mu-stmt:end/disp8 -<span id="L21255" class="LineNr">21255 </span> } -<span id="L21256" class="LineNr">21256 </span> <span class="subxH1Comment"># - otherwise abort</span> -<span id="L21257" class="LineNr">21257 </span> e9/jump $check-mu-stmt:unknown-call/disp32 -<span id="L21258" class="LineNr">21258 </span><span class="Constant">$check-mu-stmt:end</span>: -<span id="L21259" class="LineNr">21259 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21260" class="LineNr">21260 </span> 58/pop-to-eax -<span id="L21261" class="LineNr">21261 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21262" class="LineNr">21262 </span> 89/<- %esp 5/r32/ebp -<span id="L21263" class="LineNr">21263 </span> 5d/pop-to-ebp -<span id="L21264" class="LineNr">21264 </span> c3/return -<span id="L21265" class="LineNr">21265 </span> -<span id="L21266" class="LineNr">21266 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: -<span id="L21267" class="LineNr">21267 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) -<span id="L21268" class="LineNr">21268 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21269" class="LineNr">21269 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21270" class="LineNr">21270 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21271" class="LineNr">21271 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L21272" class="LineNr">21272 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21273" class="LineNr">21273 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21274" class="LineNr">21274 </span> <span class="subxComment"># never gets here</span> -<span id="L21275" class="LineNr">21275 </span> -<span id="L21276" class="LineNr">21276 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L21277" class="LineNr">21277 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21278" class="LineNr">21278 </span> 55/push-ebp -<span id="L21279" class="LineNr">21279 </span> 89/<- %ebp 4/r32/esp -<span id="L21280" class="LineNr">21280 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21281" class="LineNr">21281 </span> 51/push-ecx -<span id="L21282" class="LineNr">21282 </span> 56/push-esi -<span id="L21283" class="LineNr">21283 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L21284" class="LineNr">21284 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21285" class="LineNr">21285 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21286" class="LineNr">21286 </span> 89/<- %esi 0/r32/eax -<span id="L21287" class="LineNr">21287 </span> <span class="subxComment"># if (name == "return") return true</span> -<span id="L21288" class="LineNr">21288 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L21289" class="LineNr">21289 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21290" class="LineNr">21290 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21291" class="LineNr">21291 </span> <span class="subxComment"># if (name == "get") return true</span> -<span id="L21292" class="LineNr">21292 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L21293" class="LineNr">21293 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21294" class="LineNr">21294 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21295" class="LineNr">21295 </span> <span class="subxComment"># if (name == "index") return true</span> -<span id="L21296" class="LineNr">21296 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L21297" class="LineNr">21297 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21298" class="LineNr">21298 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21299" class="LineNr">21299 </span> <span class="subxComment"># if (name == "length") return true</span> -<span id="L21300" class="LineNr">21300 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L21301" class="LineNr">21301 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21302" class="LineNr">21302 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21303" class="LineNr">21303 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> -<span id="L21304" class="LineNr">21304 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"compute-offset"</span>) <span class="subxComment"># => eax</span> -<span id="L21305" class="LineNr">21305 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21306" class="LineNr">21306 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21307" class="LineNr">21307 </span> <span class="subxComment"># if (name == "copy-object") return true</span> -<span id="L21308" class="LineNr">21308 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"copy-object"</span>) <span class="subxComment"># => eax</span> -<span id="L21309" class="LineNr">21309 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21310" class="LineNr">21310 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21311" class="LineNr">21311 </span> <span class="subxComment"># if (name == "clear-object") return true</span> -<span id="L21312" class="LineNr">21312 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"clear-object"</span>) <span class="subxComment"># => eax</span> -<span id="L21313" class="LineNr">21313 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21314" class="LineNr">21314 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21315" class="LineNr">21315 </span> <span class="subxComment"># if (name == "allocate") return true</span> -<span id="L21316" class="LineNr">21316 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L21317" class="LineNr">21317 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21318" class="LineNr">21318 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21319" class="LineNr">21319 </span> <span class="subxComment"># if (name == "populate") return true</span> -<span id="L21320" class="LineNr">21320 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L21321" class="LineNr">21321 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21322" class="LineNr">21322 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21323" class="LineNr">21323 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> -<span id="L21324" class="LineNr">21324 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L21325" class="LineNr">21325 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21326" class="LineNr">21326 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21327" class="LineNr">21327 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> -<span id="L21328" class="LineNr">21328 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"read-from-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L21329" class="LineNr">21329 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21330" class="LineNr">21330 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21331" class="LineNr">21331 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> -<span id="L21332" class="LineNr">21332 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"write-to-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L21333" class="LineNr">21333 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21334" class="LineNr">21334 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 -<span id="L21335" class="LineNr">21335 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> -<span id="L21336" class="LineNr">21336 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span>/imm32 -<span id="L21337" class="LineNr">21337 </span> { -<span id="L21338" class="LineNr">21338 </span><span class="Constant">$has-primitive-name?:loop</span>: -<span id="L21339" class="LineNr">21339 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L21340" class="LineNr">21340 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L21341" class="LineNr">21341 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21342" class="LineNr">21342 </span> <span class="subxComment"># if (primitive->name == name) return true</span> -<span id="L21343" class="LineNr">21343 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L21344" class="LineNr">21344 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L21345" class="LineNr">21345 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L21346" class="LineNr">21346 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L21347" class="LineNr">21347 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L21348" class="LineNr">21348 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21349" class="LineNr">21349 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 -<span id="L21350" class="LineNr">21350 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: -<span id="L21351" class="LineNr">21351 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L21352" class="LineNr">21352 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L21353" class="LineNr">21353 </span> 89/<- %ecx 0/r32/eax -<span id="L21354" class="LineNr">21354 </span> <span class="subxComment">#</span> -<span id="L21355" class="LineNr">21355 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L21356" class="LineNr">21356 </span> } -<span id="L21357" class="LineNr">21357 </span> <span class="subxComment"># return null</span> -<span id="L21358" class="LineNr">21358 </span> b8/copy-to-eax 0/imm32 -<span id="L21359" class="LineNr">21359 </span><span class="Constant">$has-primitive-name?:end</span>: -<span id="L21360" class="LineNr">21360 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21361" class="LineNr">21361 </span> 5e/pop-to-esi -<span id="L21362" class="LineNr">21362 </span> 59/pop-to-ecx -<span id="L21363" class="LineNr">21363 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21364" class="LineNr">21364 </span> 89/<- %esp 5/r32/ebp -<span id="L21365" class="LineNr">21365 </span> 5d/pop-to-ebp -<span id="L21366" class="LineNr">21366 </span> c3/return -<span id="L21367" class="LineNr">21367 </span> -<span id="L21368" class="LineNr">21368 </span><span class="subxFunction">check-mu-primitive</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21369" class="LineNr">21369 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21370" class="LineNr">21370 </span> 55/push-ebp -<span id="L21371" class="LineNr">21371 </span> 89/<- %ebp 4/r32/esp -<span id="L21372" class="LineNr">21372 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21373" class="LineNr">21373 </span> 50/push-eax -<span id="L21374" class="LineNr">21374 </span> 51/push-ecx -<span id="L21375" class="LineNr">21375 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L21376" class="LineNr">21376 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21377" class="LineNr">21377 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21378" class="LineNr">21378 </span> 89/<- %ecx 0/r32/eax -<span id="L21379" class="LineNr">21379 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> -<span id="L21380" class="LineNr">21380 </span> { -<span id="L21381" class="LineNr">21381 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> -<span id="L21382" class="LineNr">21382 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21383" class="LineNr">21383 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21384" class="LineNr">21384 </span> (<a href='mu.subx.html#L21787'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21385" class="LineNr">21385 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21386" class="LineNr">21386 </span> } -<span id="L21387" class="LineNr">21387 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> -<span id="L21388" class="LineNr">21388 </span> { -<span id="L21389" class="LineNr">21389 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-to"</span>) <span class="subxComment"># => eax</span> -<span id="L21390" class="LineNr">21390 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21391" class="LineNr">21391 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21392" class="LineNr">21392 </span> (<a href='mu.subx.html#L22006'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21393" class="LineNr">21393 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21394" class="LineNr">21394 </span> } -<span id="L21395" class="LineNr">21395 </span> <span class="subxComment"># if (op == "copy-byte") check-mu-copy-byte-stmt</span> -<span id="L21396" class="LineNr">21396 </span> { -<span id="L21397" class="LineNr">21397 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> -<span id="L21398" class="LineNr">21398 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21399" class="LineNr">21399 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21400" class="LineNr">21400 </span> (<a href='mu.subx.html#L22207'>check-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21401" class="LineNr">21401 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21402" class="LineNr">21402 </span> } -<span id="L21403" class="LineNr">21403 </span> <span class="subxComment"># if (op == "copy-byte-to") check-mu-copy-byte-to-stmt</span> -<span id="L21404" class="LineNr">21404 </span> { -<span id="L21405" class="LineNr">21405 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte-to"</span>) <span class="subxComment"># => eax</span> -<span id="L21406" class="LineNr">21406 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21407" class="LineNr">21407 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21408" class="LineNr">21408 </span> (<a href='mu.subx.html#L22378'>check-mu-copy-byte-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21409" class="LineNr">21409 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21410" class="LineNr">21410 </span> } -<span id="L21411" class="LineNr">21411 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> -<span id="L21412" class="LineNr">21412 </span> { -<span id="L21413" class="LineNr">21413 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> -<span id="L21414" class="LineNr">21414 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21415" class="LineNr">21415 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21416" class="LineNr">21416 </span> (<a href='mu.subx.html#L22530'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21417" class="LineNr">21417 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21418" class="LineNr">21418 </span> } -<span id="L21419" class="LineNr">21419 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> -<span id="L21420" class="LineNr">21420 </span> { -<span id="L21421" class="LineNr">21421 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> -<span id="L21422" class="LineNr">21422 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21423" class="LineNr">21423 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21424" class="LineNr">21424 </span> (<a href='mu.subx.html#L22735'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21425" class="LineNr">21425 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21426" class="LineNr">21426 </span> } -<span id="L21427" class="LineNr">21427 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> -<span id="L21428" class="LineNr">21428 </span> { -<span id="L21429" class="LineNr">21429 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L21430" class="LineNr">21430 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21431" class="LineNr">21431 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21432" class="LineNr">21432 </span> (<a href='mu.subx.html#L22979'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21433" class="LineNr">21433 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21434" class="LineNr">21434 </span> } -<span id="L21435" class="LineNr">21435 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> -<span id="L21436" class="LineNr">21436 </span> { -<span id="L21437" class="LineNr">21437 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L21438" class="LineNr">21438 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21439" class="LineNr">21439 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21440" class="LineNr">21440 </span> (<a href='mu.subx.html#L23455'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21441" class="LineNr">21441 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21442" class="LineNr">21442 </span> } -<span id="L21443" class="LineNr">21443 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> -<span id="L21444" class="LineNr">21444 </span> { -<span id="L21445" class="LineNr">21445 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L21446" class="LineNr">21446 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21447" class="LineNr">21447 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21448" class="LineNr">21448 </span> (<a href='mu.subx.html#L23750'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21449" class="LineNr">21449 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21450" class="LineNr">21450 </span> } -<span id="L21451" class="LineNr">21451 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> -<span id="L21452" class="LineNr">21452 </span> { -<span id="L21453" class="LineNr">21453 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L21454" class="LineNr">21454 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21455" class="LineNr">21455 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21456" class="LineNr">21456 </span> (<a href='mu.subx.html#L24133'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21457" class="LineNr">21457 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21458" class="LineNr">21458 </span> } -<span id="L21459" class="LineNr">21459 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> -<span id="L21460" class="LineNr">21460 </span> { -<span id="L21461" class="LineNr">21461 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compute-offset"</span>) <span class="subxComment"># => eax</span> -<span id="L21462" class="LineNr">21462 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21463" class="LineNr">21463 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21464" class="LineNr">21464 </span> (<a href='mu.subx.html#L24423'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21465" class="LineNr">21465 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21466" class="LineNr">21466 </span> } -<span id="L21467" class="LineNr">21467 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> -<span id="L21468" class="LineNr">21468 </span> { -<span id="L21469" class="LineNr">21469 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-object"</span>) <span class="subxComment"># => eax</span> -<span id="L21470" class="LineNr">21470 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21471" class="LineNr">21471 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21472" class="LineNr">21472 </span> (<a href='mu.subx.html#L24711'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21473" class="LineNr">21473 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21474" class="LineNr">21474 </span> } -<span id="L21475" class="LineNr">21475 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> -<span id="L21476" class="LineNr">21476 </span> { -<span id="L21477" class="LineNr">21477 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"clear-object"</span>) <span class="subxComment"># => eax</span> -<span id="L21478" class="LineNr">21478 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21479" class="LineNr">21479 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21480" class="LineNr">21480 </span> (<a href='mu.subx.html#L24833'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21481" class="LineNr">21481 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21482" class="LineNr">21482 </span> } -<span id="L21483" class="LineNr">21483 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> -<span id="L21484" class="LineNr">21484 </span> { -<span id="L21485" class="LineNr">21485 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L21486" class="LineNr">21486 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21487" class="LineNr">21487 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21488" class="LineNr">21488 </span> (<a href='mu.subx.html#L24927'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21489" class="LineNr">21489 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21490" class="LineNr">21490 </span> } -<span id="L21491" class="LineNr">21491 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> -<span id="L21492" class="LineNr">21492 </span> { -<span id="L21493" class="LineNr">21493 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L21494" class="LineNr">21494 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21495" class="LineNr">21495 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21496" class="LineNr">21496 </span> (<a href='mu.subx.html#L25031'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21497" class="LineNr">21497 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21498" class="LineNr">21498 </span> } -<span id="L21499" class="LineNr">21499 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> -<span id="L21500" class="LineNr">21500 </span> { -<span id="L21501" class="LineNr">21501 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L21502" class="LineNr">21502 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21503" class="LineNr">21503 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21504" class="LineNr">21504 </span> (<a href='mu.subx.html#L25181'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21505" class="LineNr">21505 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21506" class="LineNr">21506 </span> } -<span id="L21507" class="LineNr">21507 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> -<span id="L21508" class="LineNr">21508 </span> { -<span id="L21509" class="LineNr">21509 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"read-from-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L21510" class="LineNr">21510 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21511" class="LineNr">21511 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21512" class="LineNr">21512 </span> (<a href='mu.subx.html#L25331'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21513" class="LineNr">21513 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21514" class="LineNr">21514 </span> } -<span id="L21515" class="LineNr">21515 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> -<span id="L21516" class="LineNr">21516 </span> { -<span id="L21517" class="LineNr">21517 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"write-to-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L21518" class="LineNr">21518 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21519" class="LineNr">21519 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21520" class="LineNr">21520 </span> (<a href='mu.subx.html#L25498'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21521" class="LineNr">21521 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21522" class="LineNr">21522 </span> } -<span id="L21523" class="LineNr">21523 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> -<span id="L21524" class="LineNr">21524 </span> { -<span id="L21525" class="LineNr">21525 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> -<span id="L21526" class="LineNr">21526 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21527" class="LineNr">21527 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21528" class="LineNr">21528 </span> (<a href='mu.subx.html#L25665'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21529" class="LineNr">21529 </span> e9/jump $check-mu-primitive:end/disp32 -<span id="L21530" class="LineNr">21530 </span> } -<span id="L21531" class="LineNr">21531 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> -<span id="L21532" class="LineNr">21532 </span> (<a href='mu.subx.html#L21543'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21533" class="LineNr">21533 </span><span class="Constant">$check-mu-primitive:end</span>: -<span id="L21534" class="LineNr">21534 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21535" class="LineNr">21535 </span> 59/pop-to-ecx -<span id="L21536" class="LineNr">21536 </span> 58/pop-to-eax -<span id="L21537" class="LineNr">21537 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21538" class="LineNr">21538 </span> 89/<- %esp 5/r32/ebp -<span id="L21539" class="LineNr">21539 </span> 5d/pop-to-ebp -<span id="L21540" class="LineNr">21540 </span> c3/return -<span id="L21541" class="LineNr">21541 </span> -<span id="L21542" class="LineNr">21542 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> -<span id="L21543" class="LineNr">21543 </span><span class="subxFunction">check-mu-numberlike-primitive</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21544" class="LineNr">21544 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21545" class="LineNr">21545 </span> 55/push-ebp -<span id="L21546" class="LineNr">21546 </span> 89/<- %ebp 4/r32/esp -<span id="L21547" class="LineNr">21547 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21548" class="LineNr">21548 </span> 50/push-eax -<span id="L21549" class="LineNr">21549 </span> 51/push-ecx -<span id="L21550" class="LineNr">21550 </span> 56/push-esi -<span id="L21551" class="LineNr">21551 </span> <span class="subxComment"># esi = stmt</span> -<span id="L21552" class="LineNr">21552 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21553" class="LineNr">21553 </span> <span class="subxComment"># var gas/ecx: int = 2</span> -<span id="L21554" class="LineNr">21554 </span> b9/copy-to-ecx 2/imm32 -<span id="L21555" class="LineNr">21555 </span> <span class="subxH1Comment"># - check at most 1 output</span> -<span id="L21556" class="LineNr">21556 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> -<span id="L21557" class="LineNr">21557 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L21558" class="LineNr">21558 </span> { -<span id="L21559" class="LineNr">21559 </span> 3d/compare-eax-and 0/imm32 -<span id="L21560" class="LineNr">21560 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21561" class="LineNr">21561 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: -<span id="L21562" class="LineNr">21562 </span> (<a href='mu.subx.html#L21683'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21563" class="LineNr">21563 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L21564" class="LineNr">21564 </span> 3d/compare-eax-and 0/imm32 -<span id="L21565" class="LineNr">21565 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 -<span id="L21566" class="LineNr">21566 </span> <span class="subxComment"># check output is in a register</span> -<span id="L21567" class="LineNr">21567 </span> <span class="subxComment"># --gas</span> -<span id="L21568" class="LineNr">21568 </span> 49/decrement-ecx -<span id="L21569" class="LineNr">21569 </span> } -<span id="L21570" class="LineNr">21570 </span> <span class="subxH1Comment"># - check first inout</span> -<span id="L21571" class="LineNr">21571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21572" class="LineNr">21572 </span> { -<span id="L21573" class="LineNr">21573 </span> 3d/compare-eax-and 0/imm32 -<span id="L21574" class="LineNr">21574 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 -<span id="L21575" class="LineNr">21575 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: -<span id="L21576" class="LineNr">21576 </span> (<a href='mu.subx.html#L21632'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21577" class="LineNr">21577 </span> <span class="subxComment"># --gas</span> -<span id="L21578" class="LineNr">21578 </span> 49/decrement-ecx -<span id="L21579" class="LineNr">21579 </span> } -<span id="L21580" class="LineNr">21580 </span> <span class="subxH1Comment"># - check second inout</span> -<span id="L21581" class="LineNr">21581 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L21582" class="LineNr">21582 </span> { -<span id="L21583" class="LineNr">21583 </span> 3d/compare-eax-and 0/imm32 -<span id="L21584" class="LineNr">21584 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 -<span id="L21585" class="LineNr">21585 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: -<span id="L21586" class="LineNr">21586 </span> <span class="subxComment"># is a second inout allowed?</span> -<span id="L21587" class="LineNr">21587 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L21588" class="LineNr">21588 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L21589" class="LineNr">21589 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: -<span id="L21590" class="LineNr">21590 </span> (<a href='mu.subx.html#L21632'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21591" class="LineNr">21591 </span> } -<span id="L21592" class="LineNr">21592 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: -<span id="L21593" class="LineNr">21593 </span> <span class="subxComment"># if there's a third arg, raise an error</span> -<span id="L21594" class="LineNr">21594 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> -<span id="L21595" class="LineNr">21595 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 -<span id="L21596" class="LineNr">21596 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: -<span id="L21597" class="LineNr">21597 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21598" class="LineNr">21598 </span> 5e/pop-to-esi -<span id="L21599" class="LineNr">21599 </span> 59/pop-to-ecx -<span id="L21600" class="LineNr">21600 </span> 58/pop-to-eax -<span id="L21601" class="LineNr">21601 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21602" class="LineNr">21602 </span> 89/<- %esp 5/r32/ebp -<span id="L21603" class="LineNr">21603 </span> 5d/pop-to-ebp -<span id="L21604" class="LineNr">21604 </span> c3/return -<span id="L21605" class="LineNr">21605 </span> -<span id="L21606" class="LineNr">21606 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: -<span id="L21607" class="LineNr">21607 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21608" class="LineNr">21608 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21609" class="LineNr">21609 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21610" class="LineNr">21610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21611" class="LineNr">21611 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L21612" class="LineNr">21612 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21613" class="LineNr">21613 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21614" class="LineNr">21614 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": too many inouts; most primitives support at most two arguments, across inouts and outputs\n"</span>) -<span id="L21615" class="LineNr">21615 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21616" class="LineNr">21616 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21617" class="LineNr">21617 </span> <span class="subxComment"># never gets here</span> -<span id="L21618" class="LineNr">21618 </span> -<span id="L21619" class="LineNr">21619 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: -<span id="L21620" class="LineNr">21620 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21621" class="LineNr">21621 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21622" class="LineNr">21622 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21623" class="LineNr">21623 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21624" class="LineNr">21624 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) -<span id="L21625" class="LineNr">21625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21626" class="LineNr">21626 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21627" class="LineNr">21627 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": too many outputs; most primitives support at most one output\n"</span>) -<span id="L21628" class="LineNr">21628 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21629" class="LineNr">21629 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21630" class="LineNr">21630 </span> <span class="subxComment"># never gets here</span> -<span id="L21631" class="LineNr">21631 </span> -<span id="L21632" class="LineNr">21632 </span><span class="subxFunction">check-mu-numberlike-arg</span>: <span class="subxComment"># v: (addr stmt-var), stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21633" class="LineNr">21633 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21634" class="LineNr">21634 </span> 55/push-ebp -<span id="L21635" class="LineNr">21635 </span> 89/<- %ebp 4/r32/esp -<span id="L21636" class="LineNr">21636 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21637" class="LineNr">21637 </span> 50/push-eax -<span id="L21638" class="LineNr">21638 </span> 56/push-esi -<span id="L21639" class="LineNr">21639 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L21640" class="LineNr">21640 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21641" class="LineNr">21641 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21642" class="LineNr">21642 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21643" class="LineNr">21643 </span> 89/<- %esi 0/r32/eax -<span id="L21644" class="LineNr">21644 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: -<span id="L21645" class="LineNr">21645 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L21646" class="LineNr">21646 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> -<span id="L21647" class="LineNr">21647 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21648" class="LineNr">21648 </span> 0f 85/jump-if-!= $check-mu-numberlike-arg:end/disp32 -<span id="L21649" class="LineNr">21649 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: -<span id="L21650" class="LineNr">21650 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> -<span id="L21651" class="LineNr">21651 </span> { -<span id="L21652" class="LineNr">21652 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L21653" class="LineNr">21653 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21654" class="LineNr">21654 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21655" class="LineNr">21655 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21656" class="LineNr">21656 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L21657" class="LineNr">21657 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21658" class="LineNr">21658 </span> { -<span id="L21659" class="LineNr">21659 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21660" class="LineNr">21660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L21661" class="LineNr">21661 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L21662" class="LineNr">21662 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21663" class="LineNr">21663 </span> { -<span id="L21664" class="LineNr">21664 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21665" class="LineNr">21665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L21666" class="LineNr">21666 </span> } -<span id="L21667" class="LineNr">21667 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21668" class="LineNr">21668 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21669" class="LineNr">21669 </span> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 -<span id="L21670" class="LineNr">21670 </span> } -<span id="L21671" class="LineNr">21671 </span> } -<span id="L21672" class="LineNr">21672 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: -<span id="L21673" class="LineNr">21673 </span> (<a href='mu.subx.html#L21683'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L21674" class="LineNr">21674 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: -<span id="L21675" class="LineNr">21675 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21676" class="LineNr">21676 </span> 5e/pop-to-esi -<span id="L21677" class="LineNr">21677 </span> 58/pop-to-eax -<span id="L21678" class="LineNr">21678 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21679" class="LineNr">21679 </span> 89/<- %esp 5/r32/ebp -<span id="L21680" class="LineNr">21680 </span> 5d/pop-to-ebp -<span id="L21681" class="LineNr">21681 </span> c3/return -<span id="L21682" class="LineNr">21682 </span> -<span id="L21683" class="LineNr">21683 </span><span class="subxFunction">check-mu-numberlike-output</span>: <span class="subxComment"># v: (addr stmt-var), stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21684" class="LineNr">21684 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21685" class="LineNr">21685 </span> 55/push-ebp -<span id="L21686" class="LineNr">21686 </span> 89/<- %ebp 4/r32/esp -<span id="L21687" class="LineNr">21687 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21688" class="LineNr">21688 </span> 50/push-eax -<span id="L21689" class="LineNr">21689 </span> <span class="subxComment">#</span> -<span id="L21690" class="LineNr">21690 </span> (<a href='mu.subx.html#L21721'>is-mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L21691" class="LineNr">21691 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21692" class="LineNr">21692 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 -<span id="L21693" class="LineNr">21693 </span><span class="Constant">$check-mu-numberlike-output:end</span>: -<span id="L21694" class="LineNr">21694 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21695" class="LineNr">21695 </span> 58/pop-to-eax -<span id="L21696" class="LineNr">21696 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21697" class="LineNr">21697 </span> 89/<- %esp 5/r32/ebp -<span id="L21698" class="LineNr">21698 </span> 5d/pop-to-ebp -<span id="L21699" class="LineNr">21699 </span> c3/return -<span id="L21700" class="LineNr">21700 </span> -<span id="L21701" class="LineNr">21701 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: -<span id="L21702" class="LineNr">21702 </span> <span class="subxComment"># otherwise raise an error</span> -<span id="L21703" class="LineNr">21703 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L21704" class="LineNr">21704 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L21705" class="LineNr">21705 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21706" class="LineNr">21706 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21707" class="LineNr">21707 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) -<span id="L21708" class="LineNr">21708 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21709" class="LineNr">21709 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L21710" class="LineNr">21710 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21711" class="LineNr">21711 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) -<span id="L21712" class="LineNr">21712 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21713" class="LineNr">21713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21714" class="LineNr">21714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21715" class="LineNr">21715 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L21716" class="LineNr">21716 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' must be a non-addr non-offset scalar\n"</span>) -<span id="L21717" class="LineNr">21717 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L21718" class="LineNr">21718 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L21719" class="LineNr">21719 </span> <span class="subxComment"># never gets here</span> -<span id="L21720" class="LineNr">21720 </span> -<span id="L21721" class="LineNr">21721 </span><span class="subxFunction">is-mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> -<span id="L21722" class="LineNr">21722 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21723" class="LineNr">21723 </span> 55/push-ebp -<span id="L21724" class="LineNr">21724 </span> 89/<- %ebp 4/r32/esp -<span id="L21725" class="LineNr">21725 </span> <span class="subxComment">#</span> -<span id="L21726" class="LineNr">21726 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21727" class="LineNr">21727 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21728" class="LineNr">21728 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21729" class="LineNr">21729 </span> (<a href='mu.subx.html#L21736'>is-mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21730" class="LineNr">21730 </span><span class="Constant">$is-mu-numberlike-output-var?:end</span>: -<span id="L21731" class="LineNr">21731 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21732" class="LineNr">21732 </span> 89/<- %esp 5/r32/ebp -<span id="L21733" class="LineNr">21733 </span> 5d/pop-to-ebp -<span id="L21734" class="LineNr">21734 </span> c3/return -<span id="L21735" class="LineNr">21735 </span> -<span id="L21736" class="LineNr">21736 </span><span class="subxFunction">is-mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> result/eax: boolean</span> -<span id="L21737" class="LineNr">21737 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21738" class="LineNr">21738 </span> 55/push-ebp -<span id="L21739" class="LineNr">21739 </span> 89/<- %ebp 4/r32/esp -<span id="L21740" class="LineNr">21740 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21741" class="LineNr">21741 </span> 56/push-esi -<span id="L21742" class="LineNr">21742 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> -<span id="L21743" class="LineNr">21743 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21744" class="LineNr">21744 </span><span class="Constant">$is-mu-numberlike-output?:check-int</span>: -<span id="L21745" class="LineNr">21745 </span> <span class="subxComment"># if t is an int, return</span> -<span id="L21746" class="LineNr">21746 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> -<span id="L21747" class="LineNr">21747 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21748" class="LineNr">21748 </span> 0f 85/jump-if-!= $is-mu-numberlike-output?:return-true/disp32 -<span id="L21749" class="LineNr">21749 </span><span class="Constant">$is-mu-numberlike-output?:check-float</span>: -<span id="L21750" class="LineNr">21750 </span> <span class="subxComment"># if t is a float, return</span> -<span id="L21751" class="LineNr">21751 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> -<span id="L21752" class="LineNr">21752 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21753" class="LineNr">21753 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L21754" class="LineNr">21754 </span><span class="Constant">$is-mu-numberlike-output?:check-boolean</span>: -<span id="L21755" class="LineNr">21755 </span> <span class="subxComment"># if t is a boolean, return</span> -<span id="L21756" class="LineNr">21756 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> -<span id="L21757" class="LineNr">21757 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21758" class="LineNr">21758 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L21759" class="LineNr">21759 </span><span class="Constant">$is-mu-numberlike-output?:check-byte</span>: -<span id="L21760" class="LineNr">21760 </span> <span class="subxComment"># if t is a byte, return</span> -<span id="L21761" class="LineNr">21761 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> -<span id="L21762" class="LineNr">21762 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21763" class="LineNr">21763 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L21764" class="LineNr">21764 </span><span class="Constant">$is-mu-numberlike-output?:check-code-point</span>: -<span id="L21765" class="LineNr">21765 </span> <span class="subxComment"># if t is a code-point, return</span> -<span id="L21766" class="LineNr">21766 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> -<span id="L21767" class="LineNr">21767 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21768" class="LineNr">21768 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L21769" class="LineNr">21769 </span><span class="Constant">$is-mu-numberlike-output?:check-grapheme</span>: -<span id="L21770" class="LineNr">21770 </span> <span class="subxComment"># if t is a grapheme, return</span> -<span id="L21771" class="LineNr">21771 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> -<span id="L21772" class="LineNr">21772 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21773" class="LineNr">21773 </span> 75/jump-if-!= $is-mu-numberlike-output?:return-true/disp8 -<span id="L21774" class="LineNr">21774 </span><span class="Constant">$is-mu-numberlike-output?:return-false</span>: -<span id="L21775" class="LineNr">21775 </span> b8/copy-to-eax 0/imm32/false -<span id="L21776" class="LineNr">21776 </span> eb/jump $is-mu-numberlike-output?:end/disp8 -<span id="L21777" class="LineNr">21777 </span><span class="Constant">$is-mu-numberlike-output?:return-true</span>: -<span id="L21778" class="LineNr">21778 </span> b8/copy-to-eax 1/imm32/true -<span id="L21779" class="LineNr">21779 </span><span class="Constant">$is-mu-numberlike-output?:end</span>: -<span id="L21780" class="LineNr">21780 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21781" class="LineNr">21781 </span> 5e/pop-to-esi -<span id="L21782" class="LineNr">21782 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21783" class="LineNr">21783 </span> 89/<- %esp 5/r32/ebp -<span id="L21784" class="LineNr">21784 </span> 5d/pop-to-ebp -<span id="L21785" class="LineNr">21785 </span> c3/return -<span id="L21786" class="LineNr">21786 </span> -<span id="L21787" class="LineNr">21787 </span><span class="subxFunction">check-mu-copy-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L21788" class="LineNr">21788 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L21789" class="LineNr">21789 </span> 55/push-ebp -<span id="L21790" class="LineNr">21790 </span> 89/<- %ebp 4/r32/esp -<span id="L21791" class="LineNr">21791 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L21792" class="LineNr">21792 </span> 50/push-eax -<span id="L21793" class="LineNr">21793 </span> 51/push-ecx -<span id="L21794" class="LineNr">21794 </span> 52/push-edx -<span id="L21795" class="LineNr">21795 </span> 56/push-esi -<span id="L21796" class="LineNr">21796 </span> 57/push-edi -<span id="L21797" class="LineNr">21797 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L21798" class="LineNr">21798 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L21799" class="LineNr">21799 </span> 68/push 0x60/imm32/size -<span id="L21800" class="LineNr">21800 </span> 68/push 0/imm32/read -<span id="L21801" class="LineNr">21801 </span> 68/push 0/imm32/write -<span id="L21802" class="LineNr">21802 </span> 89/<- %edx 4/r32/esp -<span id="L21803" class="LineNr">21803 </span><span class="Constant">$check-mu-copy-stmt:get-output</span>: -<span id="L21804" class="LineNr">21804 </span> <span class="subxComment"># esi = stmt</span> -<span id="L21805" class="LineNr">21805 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L21806" class="LineNr">21806 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L21807" class="LineNr">21807 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L21808" class="LineNr">21808 </span> 89/<- %edi 0/r32/eax -<span id="L21809" class="LineNr">21809 </span> <span class="subxComment"># zero outputs</span> -<span id="L21810" class="LineNr">21810 </span> 3d/compare-eax-and 0/imm32 -<span id="L21811" class="LineNr">21811 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 -<span id="L21812" class="LineNr">21812 </span> <span class="subxComment"># > 1 output</span> -<span id="L21813" class="LineNr">21813 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L21814" class="LineNr">21814 </span> 3d/compare-eax-and 0/imm32 -<span id="L21815" class="LineNr">21815 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 -<span id="L21816" class="LineNr">21816 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: -<span id="L21817" class="LineNr">21817 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L21818" class="LineNr">21818 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L21819" class="LineNr">21819 </span> 89/<- %esi 0/r32/eax -<span id="L21820" class="LineNr">21820 </span> <span class="subxComment"># zero inouts</span> -<span id="L21821" class="LineNr">21821 </span> 3d/compare-eax-and 0/imm32 -<span id="L21822" class="LineNr">21822 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 -<span id="L21823" class="LineNr">21823 </span> <span class="subxComment"># > 1 inout</span> -<span id="L21824" class="LineNr">21824 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L21825" class="LineNr">21825 </span> 3d/compare-eax-and 0/imm32 -<span id="L21826" class="LineNr">21826 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 -<span id="L21827" class="LineNr">21827 </span><span class="Constant">$check-mu-copy-stmt:types</span>: -<span id="L21828" class="LineNr">21828 </span> <span class="subxComment"># if inout is not a scalar, abort</span> -<span id="L21829" class="LineNr">21829 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21830" class="LineNr">21830 </span> (<a href='mu.subx.html#L26338'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21831" class="LineNr">21831 </span> 3d/compare-eax-and 4/imm32 -<span id="L21832" class="LineNr">21832 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 -<span id="L21833" class="LineNr">21833 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L21834" class="LineNr">21834 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21835" class="LineNr">21835 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21836" class="LineNr">21836 </span> 89/<- %ecx 0/r32/eax -<span id="L21837" class="LineNr">21837 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L21838" class="LineNr">21838 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L21839" class="LineNr">21839 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21840" class="LineNr">21840 </span> { -<span id="L21841" class="LineNr">21841 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21842" class="LineNr">21842 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L21843" class="LineNr">21843 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L21844" class="LineNr">21844 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L21845" class="LineNr">21845 </span> { -<span id="L21846" class="LineNr">21846 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21847" class="LineNr">21847 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L21848" class="LineNr">21848 </span> } -<span id="L21849" class="LineNr">21849 </span> 89/<- %ecx 0/r32/eax -<span id="L21850" class="LineNr">21850 </span> } -<span id="L21851" class="LineNr">21851 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L21852" class="LineNr">21852 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21853" class="LineNr">21853 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L21854" class="LineNr">21854 </span> 3d/compare-eax-and 0/imm32 -<span id="L21855" class="LineNr">21855 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 -<span id="L21856" class="LineNr">21856 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> -<span id="L21857" class="LineNr">21857 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21858" class="LineNr">21858 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21859" class="LineNr">21859 </span> <span class="subxComment"># if (inout-type == output-type) return</span> -<span id="L21860" class="LineNr">21860 </span> (<a href='mu.subx.html#L26179'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L21861" class="LineNr">21861 </span> 3d/compare-eax-and 0/imm32 -<span id="L21862" class="LineNr">21862 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 -<span id="L21863" class="LineNr">21863 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> -<span id="L21864" class="LineNr">21864 </span> { -<span id="L21865" class="LineNr">21865 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21866" class="LineNr">21866 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21867" class="LineNr">21867 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L21868" class="LineNr">21868 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21869" class="LineNr">21869 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21870" class="LineNr">21870 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21871" class="LineNr">21871 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21872" class="LineNr">21872 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L21873" class="LineNr">21873 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21874" class="LineNr">21874 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21875" class="LineNr">21875 </span> e9/jump $check-mu-copy-stmt:end/disp32 -<span id="L21876" class="LineNr">21876 </span> } -<span id="L21877" class="LineNr">21877 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> -<span id="L21878" class="LineNr">21878 </span> { -<span id="L21879" class="LineNr">21879 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21880" class="LineNr">21880 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21881" class="LineNr">21881 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L21882" class="LineNr">21882 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L21883" class="LineNr">21883 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L21884" class="LineNr">21884 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L21885" class="LineNr">21885 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21886" class="LineNr">21886 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21887" class="LineNr">21887 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21888" class="LineNr">21888 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21889" class="LineNr">21889 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L21890" class="LineNr">21890 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21891" class="LineNr">21891 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21892" class="LineNr">21892 </span> e9/jump $check-mu-copy-stmt:end/disp32 -<span id="L21893" class="LineNr">21893 </span> } -<span id="L21894" class="LineNr">21894 </span> <span class="subxComment"># if output is a byte, abort if inout is not a literal. Otherwise return.</span> -<span id="L21895" class="LineNr">21895 </span> { -<span id="L21896" class="LineNr">21896 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21897" class="LineNr">21897 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21898" class="LineNr">21898 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L21899" class="LineNr">21899 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21900" class="LineNr">21900 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L21901" class="LineNr">21901 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21902" class="LineNr">21902 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L21903" class="LineNr">21903 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L21904" class="LineNr">21904 </span> 3d/compare-eax-and 0/imm32/false -<span id="L21905" class="LineNr">21905 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-non-literal-to-byte/disp32 -<span id="L21906" class="LineNr">21906 </span> eb/jump $check-mu-copy-stmt:end/disp8 -<span id="L21907" class="LineNr">21907 </span> } -<span id="L21908" class="LineNr">21908 </span> <span class="subxComment"># if output is not number-like, abort</span> -<span id="L21909" class="LineNr">21909 </span> (<a href='mu.subx.html#L21683'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L21910" class="LineNr">21910 </span><span class="Constant">$check-mu-copy-stmt:end</span>: -<span id="L21911" class="LineNr">21911 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L21912" class="LineNr">21912 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L21913" class="LineNr">21913 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L21914" class="LineNr">21914 </span> 5f/pop-to-edi -<span id="L21915" class="LineNr">21915 </span> 5e/pop-to-esi -<span id="L21916" class="LineNr">21916 </span> 5a/pop-to-edx -<span id="L21917" class="LineNr">21917 </span> 59/pop-to-ecx -<span id="L21918" class="LineNr">21918 </span> 58/pop-to-eax -<span id="L21919" class="LineNr">21919 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L21920" class="LineNr">21920 </span> 89/<- %esp 5/r32/ebp -<span id="L21921" class="LineNr">21921 </span> 5d/pop-to-ebp -<span id="L21922" class="LineNr">21922 </span> c3/return -<span id="L21923" class="LineNr">21923 </span> -<span id="L21924" class="LineNr">21924 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: -<span id="L21925" class="LineNr">21925 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21926" class="LineNr">21926 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21927" class="LineNr">21927 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21928" class="LineNr">21928 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21929" class="LineNr">21929 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' expects an inout\n"</span>) -<span id="L21930" class="LineNr">21930 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21931" class="LineNr">21931 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21932" class="LineNr">21932 </span> <span class="subxComment"># never gets here</span> -<span id="L21933" class="LineNr">21933 </span> -<span id="L21934" class="LineNr">21934 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: -<span id="L21935" class="LineNr">21935 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21936" class="LineNr">21936 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21937" class="LineNr">21937 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21938" class="LineNr">21938 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21939" class="LineNr">21939 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' must have just one inout\n"</span>) -<span id="L21940" class="LineNr">21940 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21941" class="LineNr">21941 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21942" class="LineNr">21942 </span> <span class="subxComment"># never gets here</span> -<span id="L21943" class="LineNr">21943 </span> -<span id="L21944" class="LineNr">21944 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: -<span id="L21945" class="LineNr">21945 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21946" class="LineNr">21946 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21947" class="LineNr">21947 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21948" class="LineNr">21948 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21949" class="LineNr">21949 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' expects an output\n"</span>) -<span id="L21950" class="LineNr">21950 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21951" class="LineNr">21951 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21952" class="LineNr">21952 </span> <span class="subxComment"># never gets here</span> -<span id="L21953" class="LineNr">21953 </span> -<span id="L21954" class="LineNr">21954 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: -<span id="L21955" class="LineNr">21955 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21956" class="LineNr">21956 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21957" class="LineNr">21957 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21958" class="LineNr">21958 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21959" class="LineNr">21959 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) -<span id="L21960" class="LineNr">21960 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21961" class="LineNr">21961 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21962" class="LineNr">21962 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21963" class="LineNr">21963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L21964" class="LineNr">21964 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21965" class="LineNr">21965 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21966" class="LineNr">21966 </span> <span class="subxComment"># never gets here</span> -<span id="L21967" class="LineNr">21967 </span> -<span id="L21968" class="LineNr">21968 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: -<span id="L21969" class="LineNr">21969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21970" class="LineNr">21970 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21971" class="LineNr">21971 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21972" class="LineNr">21972 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21973" class="LineNr">21973 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' must have just one output\n"</span>) -<span id="L21974" class="LineNr">21974 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21975" class="LineNr">21975 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21976" class="LineNr">21976 </span> <span class="subxComment"># never gets here</span> -<span id="L21977" class="LineNr">21977 </span> -<span id="L21978" class="LineNr">21978 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: -<span id="L21979" class="LineNr">21979 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21980" class="LineNr">21980 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21981" class="LineNr">21981 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21982" class="LineNr">21982 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21983" class="LineNr">21983 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) -<span id="L21984" class="LineNr">21984 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21985" class="LineNr">21985 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L21986" class="LineNr">21986 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21987" class="LineNr">21987 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to fit in a register\n"</span>) -<span id="L21988" class="LineNr">21988 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L21989" class="LineNr">21989 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L21990" class="LineNr">21990 </span> <span class="subxComment"># never gets here</span> -<span id="L21991" class="LineNr">21991 </span> -<span id="L21992" class="LineNr">21992 </span><span class="Constant">$check-mu-copy-stmt:error-non-literal-to-byte</span>: -<span id="L21993" class="LineNr">21993 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L21994" class="LineNr">21994 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L21995" class="LineNr">21995 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L21996" class="LineNr">21996 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L21997" class="LineNr">21997 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: cannot copy non-literal to '"</span>) -<span id="L21998" class="LineNr">21998 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L21999" class="LineNr">21999 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22000" class="LineNr">22000 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22001" class="LineNr">22001 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type byte; use copy-byte\n"</span>) -<span id="L22002" class="LineNr">22002 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22003" class="LineNr">22003 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22004" class="LineNr">22004 </span> <span class="subxComment"># never gets here</span> -<span id="L22005" class="LineNr">22005 </span> -<span id="L22006" class="LineNr">22006 </span><span class="subxFunction">check-mu-copy-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22007" class="LineNr">22007 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22008" class="LineNr">22008 </span> 55/push-ebp -<span id="L22009" class="LineNr">22009 </span> 89/<- %ebp 4/r32/esp -<span id="L22010" class="LineNr">22010 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22011" class="LineNr">22011 </span> 50/push-eax -<span id="L22012" class="LineNr">22012 </span> 51/push-ecx -<span id="L22013" class="LineNr">22013 </span> 52/push-edx -<span id="L22014" class="LineNr">22014 </span> 53/push-ebx -<span id="L22015" class="LineNr">22015 </span> 56/push-esi -<span id="L22016" class="LineNr">22016 </span> 57/push-edi -<span id="L22017" class="LineNr">22017 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22018" class="LineNr">22018 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22019" class="LineNr">22019 </span> 68/push 0x60/imm32/size -<span id="L22020" class="LineNr">22020 </span> 68/push 0/imm32/read -<span id="L22021" class="LineNr">22021 </span> 68/push 0/imm32/write -<span id="L22022" class="LineNr">22022 </span> 89/<- %edx 4/r32/esp -<span id="L22023" class="LineNr">22023 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22024" class="LineNr">22024 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22025" class="LineNr">22025 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: -<span id="L22026" class="LineNr">22026 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22027" class="LineNr">22027 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22028" class="LineNr">22028 </span> 3d/compare-eax-and 0/imm32 -<span id="L22029" class="LineNr">22029 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 -<span id="L22030" class="LineNr">22030 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: -<span id="L22031" class="LineNr">22031 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22032" class="LineNr">22032 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22033" class="LineNr">22033 </span> 89/<- %edi 0/r32/eax -<span id="L22034" class="LineNr">22034 </span> <span class="subxComment"># zero inouts</span> -<span id="L22035" class="LineNr">22035 </span> 3d/compare-eax-and 0/imm32 -<span id="L22036" class="LineNr">22036 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22037" class="LineNr">22037 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: -<span id="L22038" class="LineNr">22038 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L22039" class="LineNr">22039 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22040" class="LineNr">22040 </span> 89/<- %esi 0/r32/eax -<span id="L22041" class="LineNr">22041 </span> <span class="subxComment"># 1 inout</span> -<span id="L22042" class="LineNr">22042 </span> 3d/compare-eax-and 0/imm32 -<span id="L22043" class="LineNr">22043 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22044" class="LineNr">22044 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22045" class="LineNr">22045 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22046" class="LineNr">22046 </span> 3d/compare-eax-and 0/imm32 -<span id="L22047" class="LineNr">22047 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 -<span id="L22048" class="LineNr">22048 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: -<span id="L22049" class="LineNr">22049 </span> <span class="subxComment"># if src is not a scalar, abort</span> -<span id="L22050" class="LineNr">22050 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22051" class="LineNr">22051 </span> (<a href='mu.subx.html#L26338'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22052" class="LineNr">22052 </span> 3d/compare-eax-and 4/imm32 -<span id="L22053" class="LineNr">22053 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 -<span id="L22054" class="LineNr">22054 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L22055" class="LineNr">22055 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22056" class="LineNr">22056 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22057" class="LineNr">22057 </span> 89/<- %ecx 0/r32/eax -<span id="L22058" class="LineNr">22058 </span> <span class="subxComment"># if src not in register or literal, abort</span> -<span id="L22059" class="LineNr">22059 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> -<span id="L22060" class="LineNr">22060 </span> { -<span id="L22061" class="LineNr">22061 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22062" class="LineNr">22062 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22063" class="LineNr">22063 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22064" class="LineNr">22064 </span> 3d/compare-eax-and 0/imm32 -<span id="L22065" class="LineNr">22065 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22066" class="LineNr">22066 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22067" class="LineNr">22067 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22068" class="LineNr">22068 </span> 3d/compare-eax-and 0/imm32 -<span id="L22069" class="LineNr">22069 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22070" class="LineNr">22070 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 -<span id="L22071" class="LineNr">22071 </span> } -<span id="L22072" class="LineNr">22072 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L22073" class="LineNr">22073 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22074" class="LineNr">22074 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22075" class="LineNr">22075 </span> 89/<- %ebx 0/r32/eax -<span id="L22076" class="LineNr">22076 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L22077" class="LineNr">22077 </span><span class="Constant">$check-mu-copy-to-stmt:check-dest-deref</span>: -<span id="L22078" class="LineNr">22078 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22079" class="LineNr">22079 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22080" class="LineNr">22080 </span> { -<span id="L22081" class="LineNr">22081 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22082" class="LineNr">22082 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22083" class="LineNr">22083 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref</span>: -<span id="L22084" class="LineNr">22084 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L22085" class="LineNr">22085 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22086" class="LineNr">22086 </span> { -<span id="L22087" class="LineNr">22087 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22088" class="LineNr">22088 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref2</span>: -<span id="L22089" class="LineNr">22089 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22090" class="LineNr">22090 </span> } -<span id="L22091" class="LineNr">22091 </span> 89/<- %ebx 0/r32/eax -<span id="L22092" class="LineNr">22092 </span> } -<span id="L22093" class="LineNr">22093 </span> <span class="subxComment"># if dest is a byte and src is not a literal, abort</span> -<span id="L22094" class="LineNr">22094 </span> { -<span id="L22095" class="LineNr">22095 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-byte</span>: -<span id="L22096" class="LineNr">22096 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> -<span id="L22097" class="LineNr">22097 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22098" class="LineNr">22098 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22099" class="LineNr">22099 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ecx 0) <span class="subxComment"># literal => eax</span> -<span id="L22100" class="LineNr">22100 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22101" class="LineNr">22101 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-non-literal-to-byte/disp32 -<span id="L22102" class="LineNr">22102 </span> } -<span id="L22103" class="LineNr">22103 </span> <span class="subxComment"># if (src-type == dest-type) return</span> -<span id="L22104" class="LineNr">22104 </span> (<a href='mu.subx.html#L26179'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22105" class="LineNr">22105 </span> 3d/compare-eax-and 0/imm32 -<span id="L22106" class="LineNr">22106 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 -<span id="L22107" class="LineNr">22107 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> -<span id="L22108" class="LineNr">22108 </span> { -<span id="L22109" class="LineNr">22109 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-addr</span>: -<span id="L22110" class="LineNr">22110 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L22111" class="LineNr">22111 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22112" class="LineNr">22112 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22113" class="LineNr">22113 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22114" class="LineNr">22114 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22115" class="LineNr">22115 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22116" class="LineNr">22116 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22117" class="LineNr">22117 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22118" class="LineNr">22118 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 -<span id="L22119" class="LineNr">22119 </span> } -<span id="L22120" class="LineNr">22120 </span> <span class="subxComment"># if dest is an offset and src is 0, return</span> -<span id="L22121" class="LineNr">22121 </span> { -<span id="L22122" class="LineNr">22122 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-offset</span>: -<span id="L22123" class="LineNr">22123 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22124" class="LineNr">22124 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22125" class="LineNr">22125 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22126" class="LineNr">22126 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L22127" class="LineNr">22127 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22128" class="LineNr">22128 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22129" class="LineNr">22129 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22130" class="LineNr">22130 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22131" class="LineNr">22131 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22132" class="LineNr">22132 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22133" class="LineNr">22133 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22134" class="LineNr">22134 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 -<span id="L22135" class="LineNr">22135 </span> } -<span id="L22136" class="LineNr">22136 </span> <span class="subxComment"># if dest is not number-like, abort</span> -<span id="L22137" class="LineNr">22137 </span> (<a href='mu.subx.html#L21632'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22138" class="LineNr">22138 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: -<span id="L22139" class="LineNr">22139 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22140" class="LineNr">22140 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22141" class="LineNr">22141 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22142" class="LineNr">22142 </span> 5f/pop-to-edi -<span id="L22143" class="LineNr">22143 </span> 5e/pop-to-esi -<span id="L22144" class="LineNr">22144 </span> 5b/pop-to-ebx -<span id="L22145" class="LineNr">22145 </span> 5a/pop-to-edx -<span id="L22146" class="LineNr">22146 </span> 59/pop-to-ecx -<span id="L22147" class="LineNr">22147 </span> 58/pop-to-eax -<span id="L22148" class="LineNr">22148 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22149" class="LineNr">22149 </span> 89/<- %esp 5/r32/ebp -<span id="L22150" class="LineNr">22150 </span> 5d/pop-to-ebp -<span id="L22151" class="LineNr">22151 </span> c3/return -<span id="L22152" class="LineNr">22152 </span> -<span id="L22153" class="LineNr">22153 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: -<span id="L22154" class="LineNr">22154 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22155" class="LineNr">22155 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22156" class="LineNr">22156 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22157" class="LineNr">22157 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22158" class="LineNr">22158 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-to' must have two inouts\n"</span>) -<span id="L22159" class="LineNr">22159 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22160" class="LineNr">22160 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22161" class="LineNr">22161 </span> <span class="subxComment"># never gets here</span> -<span id="L22162" class="LineNr">22162 </span> -<span id="L22163" class="LineNr">22163 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: -<span id="L22164" class="LineNr">22164 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22165" class="LineNr">22165 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22166" class="LineNr">22166 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22167" class="LineNr">22167 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22168" class="LineNr">22168 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-to' must not have any outputs\n"</span>) -<span id="L22169" class="LineNr">22169 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22170" class="LineNr">22170 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22171" class="LineNr">22171 </span> <span class="subxComment"># never gets here</span> -<span id="L22172" class="LineNr">22172 </span> -<span id="L22173" class="LineNr">22173 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: -<span id="L22174" class="LineNr">22174 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22175" class="LineNr">22175 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22176" class="LineNr">22176 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22177" class="LineNr">22177 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22178" class="LineNr">22178 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: source (second inout) is in memory\n"</span>) -<span id="L22179" class="LineNr">22179 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22180" class="LineNr">22180 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22181" class="LineNr">22181 </span> <span class="subxComment"># never gets here</span> -<span id="L22182" class="LineNr">22182 </span> -<span id="L22183" class="LineNr">22183 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: -<span id="L22184" class="LineNr">22184 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22185" class="LineNr">22185 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22186" class="LineNr">22186 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22187" class="LineNr">22187 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22188" class="LineNr">22188 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) -<span id="L22189" class="LineNr">22189 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22190" class="LineNr">22190 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22191" class="LineNr">22191 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22192" class="LineNr">22192 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to copy\n"</span>) -<span id="L22193" class="LineNr">22193 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22194" class="LineNr">22194 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22195" class="LineNr">22195 </span> <span class="subxComment"># never gets here</span> -<span id="L22196" class="LineNr">22196 </span> -<span id="L22197" class="LineNr">22197 </span><span class="Constant">$check-mu-copy-to-stmt:error-non-literal-to-byte</span>: -<span id="L22198" class="LineNr">22198 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22199" class="LineNr">22199 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22200" class="LineNr">22200 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22201" class="LineNr">22201 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22202" class="LineNr">22202 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to\n"</span>) -<span id="L22203" class="LineNr">22203 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22204" class="LineNr">22204 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22205" class="LineNr">22205 </span> <span class="subxComment"># never gets here</span> -<span id="L22206" class="LineNr">22206 </span> -<span id="L22207" class="LineNr">22207 </span><span class="subxFunction">check-mu-copy-byte-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22208" class="LineNr">22208 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22209" class="LineNr">22209 </span> 55/push-ebp -<span id="L22210" class="LineNr">22210 </span> 89/<- %ebp 4/r32/esp -<span id="L22211" class="LineNr">22211 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22212" class="LineNr">22212 </span> 50/push-eax -<span id="L22213" class="LineNr">22213 </span> 51/push-ecx -<span id="L22214" class="LineNr">22214 </span> 52/push-edx -<span id="L22215" class="LineNr">22215 </span> 56/push-esi -<span id="L22216" class="LineNr">22216 </span> 57/push-edi -<span id="L22217" class="LineNr">22217 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22218" class="LineNr">22218 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22219" class="LineNr">22219 </span> 68/push 0x60/imm32/size -<span id="L22220" class="LineNr">22220 </span> 68/push 0/imm32/read -<span id="L22221" class="LineNr">22221 </span> 68/push 0/imm32/write -<span id="L22222" class="LineNr">22222 </span> 89/<- %edx 4/r32/esp -<span id="L22223" class="LineNr">22223 </span><span class="Constant">$check-mu-copy-byte-stmt:get-output</span>: -<span id="L22224" class="LineNr">22224 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22225" class="LineNr">22225 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22226" class="LineNr">22226 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L22227" class="LineNr">22227 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22228" class="LineNr">22228 </span> 89/<- %edi 0/r32/eax -<span id="L22229" class="LineNr">22229 </span> <span class="subxComment"># zero outputs</span> -<span id="L22230" class="LineNr">22230 </span> 3d/compare-eax-and 0/imm32 -<span id="L22231" class="LineNr">22231 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-output/disp32 -<span id="L22232" class="LineNr">22232 </span> <span class="subxComment"># > 1 output</span> -<span id="L22233" class="LineNr">22233 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22234" class="LineNr">22234 </span> 3d/compare-eax-and 0/imm32 -<span id="L22235" class="LineNr">22235 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-outputs/disp32 -<span id="L22236" class="LineNr">22236 </span><span class="Constant">$check-mu-copy-byte-stmt:get-inout</span>: -<span id="L22237" class="LineNr">22237 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L22238" class="LineNr">22238 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22239" class="LineNr">22239 </span> 89/<- %esi 0/r32/eax -<span id="L22240" class="LineNr">22240 </span> <span class="subxComment"># zero inouts</span> -<span id="L22241" class="LineNr">22241 </span> 3d/compare-eax-and 0/imm32 -<span id="L22242" class="LineNr">22242 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-inout/disp32 -<span id="L22243" class="LineNr">22243 </span> <span class="subxComment"># > 1 inout</span> -<span id="L22244" class="LineNr">22244 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22245" class="LineNr">22245 </span> 3d/compare-eax-and 0/imm32 -<span id="L22246" class="LineNr">22246 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-inouts/disp32 -<span id="L22247" class="LineNr">22247 </span><span class="Constant">$check-mu-copy-byte-stmt:types</span>: -<span id="L22248" class="LineNr">22248 </span> <span class="subxComment"># if inout is not a scalar, abort</span> -<span id="L22249" class="LineNr">22249 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22250" class="LineNr">22250 </span> (<a href='mu.subx.html#L26338'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22251" class="LineNr">22251 </span> 3d/compare-eax-and 4/imm32 -<span id="L22252" class="LineNr">22252 </span> 0f 8f/jump-if-> $check-mu-copy-byte-stmt:error-inout-too-large/disp32 -<span id="L22253" class="LineNr">22253 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L22254" class="LineNr">22254 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22255" class="LineNr">22255 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22256" class="LineNr">22256 </span> 89/<- %ecx 0/r32/eax -<span id="L22257" class="LineNr">22257 </span><span class="Constant">$check-mu-copy-byte-stmt:check-inout-deref</span>: -<span id="L22258" class="LineNr">22258 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L22259" class="LineNr">22259 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22260" class="LineNr">22260 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22261" class="LineNr">22261 </span> { -<span id="L22262" class="LineNr">22262 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22263" class="LineNr">22263 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref</span>: -<span id="L22264" class="LineNr">22264 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22265" class="LineNr">22265 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L22266" class="LineNr">22266 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22267" class="LineNr">22267 </span> { -<span id="L22268" class="LineNr">22268 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22269" class="LineNr">22269 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref2</span>: -<span id="L22270" class="LineNr">22270 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22271" class="LineNr">22271 </span> } -<span id="L22272" class="LineNr">22272 </span> 89/<- %ecx 0/r32/eax -<span id="L22273" class="LineNr">22273 </span> } -<span id="L22274" class="LineNr">22274 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L22275" class="LineNr">22275 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22276" class="LineNr">22276 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22277" class="LineNr">22277 </span> 3d/compare-eax-and 0/imm32 -<span id="L22278" class="LineNr">22278 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-output-not-in-register/disp32 -<span id="L22279" class="LineNr">22279 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> -<span id="L22280" class="LineNr">22280 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22281" class="LineNr">22281 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22282" class="LineNr">22282 </span> <span class="subxComment"># if output is not of type byte, abort</span> -<span id="L22283" class="LineNr">22283 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L22284" class="LineNr">22284 </span> 3d/compare-eax-and 0/imm32 -<span id="L22285" class="LineNr">22285 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-invalid-output-type/disp32 -<span id="L22286" class="LineNr">22286 </span><span class="Constant">$check-mu-copy-byte-stmt:end</span>: -<span id="L22287" class="LineNr">22287 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22288" class="LineNr">22288 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22289" class="LineNr">22289 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22290" class="LineNr">22290 </span> 5f/pop-to-edi -<span id="L22291" class="LineNr">22291 </span> 5e/pop-to-esi -<span id="L22292" class="LineNr">22292 </span> 5a/pop-to-edx -<span id="L22293" class="LineNr">22293 </span> 59/pop-to-ecx -<span id="L22294" class="LineNr">22294 </span> 58/pop-to-eax -<span id="L22295" class="LineNr">22295 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22296" class="LineNr">22296 </span> 89/<- %esp 5/r32/ebp -<span id="L22297" class="LineNr">22297 </span> 5d/pop-to-ebp -<span id="L22298" class="LineNr">22298 </span> c3/return -<span id="L22299" class="LineNr">22299 </span> -<span id="L22300" class="LineNr">22300 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-inout</span>: -<span id="L22301" class="LineNr">22301 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22302" class="LineNr">22302 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22303" class="LineNr">22303 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22304" class="LineNr">22304 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22305" class="LineNr">22305 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an inout\n"</span>) -<span id="L22306" class="LineNr">22306 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22307" class="LineNr">22307 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22308" class="LineNr">22308 </span> <span class="subxComment"># never gets here</span> -<span id="L22309" class="LineNr">22309 </span> -<span id="L22310" class="LineNr">22310 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-inouts</span>: -<span id="L22311" class="LineNr">22311 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22312" class="LineNr">22312 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22313" class="LineNr">22313 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22314" class="LineNr">22314 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22315" class="LineNr">22315 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one inout\n"</span>) -<span id="L22316" class="LineNr">22316 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22317" class="LineNr">22317 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22318" class="LineNr">22318 </span> <span class="subxComment"># never gets here</span> -<span id="L22319" class="LineNr">22319 </span> -<span id="L22320" class="LineNr">22320 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-output</span>: -<span id="L22321" class="LineNr">22321 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22322" class="LineNr">22322 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22323" class="LineNr">22323 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22324" class="LineNr">22324 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22325" class="LineNr">22325 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an output\n"</span>) -<span id="L22326" class="LineNr">22326 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22327" class="LineNr">22327 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22328" class="LineNr">22328 </span> <span class="subxComment"># never gets here</span> -<span id="L22329" class="LineNr">22329 </span> -<span id="L22330" class="LineNr">22330 </span><span class="Constant">$check-mu-copy-byte-stmt:error-output-not-in-register</span>: -<span id="L22331" class="LineNr">22331 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22332" class="LineNr">22332 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22333" class="LineNr">22333 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22334" class="LineNr">22334 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22335" class="LineNr">22335 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: output '"</span>) -<span id="L22336" class="LineNr">22336 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22337" class="LineNr">22337 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22338" class="LineNr">22338 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22339" class="LineNr">22339 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L22340" class="LineNr">22340 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22341" class="LineNr">22341 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22342" class="LineNr">22342 </span> <span class="subxComment"># never gets here</span> -<span id="L22343" class="LineNr">22343 </span> -<span id="L22344" class="LineNr">22344 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-outputs</span>: -<span id="L22345" class="LineNr">22345 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22346" class="LineNr">22346 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22347" class="LineNr">22347 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22348" class="LineNr">22348 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22349" class="LineNr">22349 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one output\n"</span>) -<span id="L22350" class="LineNr">22350 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22351" class="LineNr">22351 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22352" class="LineNr">22352 </span> <span class="subxComment"># never gets here</span> -<span id="L22353" class="LineNr">22353 </span> -<span id="L22354" class="LineNr">22354 </span><span class="Constant">$check-mu-copy-byte-stmt:error-invalid-output-type</span>: -<span id="L22355" class="LineNr">22355 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22356" class="LineNr">22356 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22357" class="LineNr">22357 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22358" class="LineNr">22358 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22359" class="LineNr">22359 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must <a href='../108write.subx.html#L24'>write</a> to output of type byte\n"</span>) -<span id="L22360" class="LineNr">22360 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22361" class="LineNr">22361 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22362" class="LineNr">22362 </span> <span class="subxComment"># never gets here</span> -<span id="L22363" class="LineNr">22363 </span> -<span id="L22364" class="LineNr">22364 </span><span class="Constant">$check-mu-copy-byte-stmt:error-inout-too-large</span>: -<span id="L22365" class="LineNr">22365 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22366" class="LineNr">22366 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22367" class="LineNr">22367 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22368" class="LineNr">22368 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22369" class="LineNr">22369 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: '"</span>) -<span id="L22370" class="LineNr">22370 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22371" class="LineNr">22371 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22372" class="LineNr">22372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22373" class="LineNr">22373 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to fit in a register\n"</span>) -<span id="L22374" class="LineNr">22374 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22375" class="LineNr">22375 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22376" class="LineNr">22376 </span> <span class="subxComment"># never gets here</span> -<span id="L22377" class="LineNr">22377 </span> -<span id="L22378" class="LineNr">22378 </span><span class="subxFunction">check-mu-copy-byte-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22379" class="LineNr">22379 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22380" class="LineNr">22380 </span> 55/push-ebp -<span id="L22381" class="LineNr">22381 </span> 89/<- %ebp 4/r32/esp -<span id="L22382" class="LineNr">22382 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22383" class="LineNr">22383 </span> 50/push-eax -<span id="L22384" class="LineNr">22384 </span> 52/push-edx -<span id="L22385" class="LineNr">22385 </span> 53/push-ebx -<span id="L22386" class="LineNr">22386 </span> 56/push-esi -<span id="L22387" class="LineNr">22387 </span> 57/push-edi -<span id="L22388" class="LineNr">22388 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22389" class="LineNr">22389 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22390" class="LineNr">22390 </span> 68/push 0x60/imm32/size -<span id="L22391" class="LineNr">22391 </span> 68/push 0/imm32/read -<span id="L22392" class="LineNr">22392 </span> 68/push 0/imm32/write -<span id="L22393" class="LineNr">22393 </span> 89/<- %edx 4/r32/esp -<span id="L22394" class="LineNr">22394 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22395" class="LineNr">22395 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22396" class="LineNr">22396 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-for-output</span>: -<span id="L22397" class="LineNr">22397 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22398" class="LineNr">22398 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22399" class="LineNr">22399 </span> 3d/compare-eax-and 0/imm32 -<span id="L22400" class="LineNr">22400 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-too-many-outputs/disp32 -<span id="L22401" class="LineNr">22401 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-dest</span>: -<span id="L22402" class="LineNr">22402 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22403" class="LineNr">22403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22404" class="LineNr">22404 </span> 89/<- %edi 0/r32/eax -<span id="L22405" class="LineNr">22405 </span> <span class="subxComment"># zero inouts</span> -<span id="L22406" class="LineNr">22406 </span> 3d/compare-eax-and 0/imm32 -<span id="L22407" class="LineNr">22407 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22408" class="LineNr">22408 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-src</span>: -<span id="L22409" class="LineNr">22409 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L22410" class="LineNr">22410 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22411" class="LineNr">22411 </span> 89/<- %esi 0/r32/eax -<span id="L22412" class="LineNr">22412 </span> <span class="subxComment"># 1 inout</span> -<span id="L22413" class="LineNr">22413 </span> 3d/compare-eax-and 0/imm32 -<span id="L22414" class="LineNr">22414 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22415" class="LineNr">22415 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22416" class="LineNr">22416 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22417" class="LineNr">22417 </span> 3d/compare-eax-and 0/imm32 -<span id="L22418" class="LineNr">22418 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 -<span id="L22419" class="LineNr">22419 </span><span class="Constant">$check-mu-copy-byte-to-stmt:types</span>: -<span id="L22420" class="LineNr">22420 </span> <span class="subxComment"># if src is not a scalar, abort</span> -<span id="L22421" class="LineNr">22421 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22422" class="LineNr">22422 </span> (<a href='mu.subx.html#L26338'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22423" class="LineNr">22423 </span> 3d/compare-eax-and 4/imm32 -<span id="L22424" class="LineNr">22424 </span> 0f 8f/jump-if-> $check-mu-copy-byte-to-stmt:error-src-too-large/disp32 -<span id="L22425" class="LineNr">22425 </span> <span class="subxComment"># if src not in register, abort</span> -<span id="L22426" class="LineNr">22426 </span> { -<span id="L22427" class="LineNr">22427 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22428" class="LineNr">22428 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22429" class="LineNr">22429 </span> 3d/compare-eax-and 0/imm32 -<span id="L22430" class="LineNr">22430 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22431" class="LineNr">22431 </span> e9/jump $check-mu-copy-byte-to-stmt:error-src-not-in-register/disp32 -<span id="L22432" class="LineNr">22432 </span> } -<span id="L22433" class="LineNr">22433 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L22434" class="LineNr">22434 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22435" class="LineNr">22435 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22436" class="LineNr">22436 </span> 89/<- %ebx 0/r32/eax -<span id="L22437" class="LineNr">22437 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L22438" class="LineNr">22438 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-dest-deref</span>: -<span id="L22439" class="LineNr">22439 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22440" class="LineNr">22440 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22441" class="LineNr">22441 </span> { -<span id="L22442" class="LineNr">22442 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22443" class="LineNr">22443 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22444" class="LineNr">22444 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref</span>: -<span id="L22445" class="LineNr">22445 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L22446" class="LineNr">22446 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22447" class="LineNr">22447 </span> { -<span id="L22448" class="LineNr">22448 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22449" class="LineNr">22449 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref2</span>: -<span id="L22450" class="LineNr">22450 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22451" class="LineNr">22451 </span> } -<span id="L22452" class="LineNr">22452 </span> 89/<- %ebx 0/r32/eax -<span id="L22453" class="LineNr">22453 </span> } -<span id="L22454" class="LineNr">22454 </span> <span class="subxComment"># if dest is not a byte, abort</span> -<span id="L22455" class="LineNr">22455 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> -<span id="L22456" class="LineNr">22456 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22457" class="LineNr">22457 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-invalid-dest-type/disp32 -<span id="L22458" class="LineNr">22458 </span><span class="Constant">$check-mu-copy-byte-to-stmt:end</span>: -<span id="L22459" class="LineNr">22459 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22460" class="LineNr">22460 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22461" class="LineNr">22461 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22462" class="LineNr">22462 </span> 5f/pop-to-edi -<span id="L22463" class="LineNr">22463 </span> 5e/pop-to-esi -<span id="L22464" class="LineNr">22464 </span> 5b/pop-to-ebx -<span id="L22465" class="LineNr">22465 </span> 5a/pop-to-edx -<span id="L22466" class="LineNr">22466 </span> 58/pop-to-eax -<span id="L22467" class="LineNr">22467 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22468" class="LineNr">22468 </span> 89/<- %esp 5/r32/ebp -<span id="L22469" class="LineNr">22469 </span> 5d/pop-to-ebp -<span id="L22470" class="LineNr">22470 </span> c3/return -<span id="L22471" class="LineNr">22471 </span> -<span id="L22472" class="LineNr">22472 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-incorrect-inouts</span>: -<span id="L22473" class="LineNr">22473 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22474" class="LineNr">22474 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22475" class="LineNr">22475 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22476" class="LineNr">22476 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22477" class="LineNr">22477 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must have two inouts\n"</span>) -<span id="L22478" class="LineNr">22478 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22479" class="LineNr">22479 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22480" class="LineNr">22480 </span> <span class="subxComment"># never gets here</span> -<span id="L22481" class="LineNr">22481 </span> -<span id="L22482" class="LineNr">22482 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-too-many-outputs</span>: -<span id="L22483" class="LineNr">22483 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22484" class="LineNr">22484 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22485" class="LineNr">22485 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22486" class="LineNr">22486 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22487" class="LineNr">22487 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must not have any outputs\n"</span>) -<span id="L22488" class="LineNr">22488 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22489" class="LineNr">22489 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22490" class="LineNr">22490 </span> <span class="subxComment"># never gets here</span> -<span id="L22491" class="LineNr">22491 </span> -<span id="L22492" class="LineNr">22492 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-not-in-register</span>: -<span id="L22493" class="LineNr">22493 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22494" class="LineNr">22494 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22495" class="LineNr">22495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22496" class="LineNr">22496 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22497" class="LineNr">22497 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: source (second inout) must be in a register\n"</span>) -<span id="L22498" class="LineNr">22498 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22499" class="LineNr">22499 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22500" class="LineNr">22500 </span> <span class="subxComment"># never gets here</span> -<span id="L22501" class="LineNr">22501 </span> -<span id="L22502" class="LineNr">22502 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-invalid-dest-type</span>: -<span id="L22503" class="LineNr">22503 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22504" class="LineNr">22504 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22505" class="LineNr">22505 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22506" class="LineNr">22506 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22507" class="LineNr">22507 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) -<span id="L22508" class="LineNr">22508 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22509" class="LineNr">22509 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22510" class="LineNr">22510 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22511" class="LineNr">22511 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be a byte\n"</span>) -<span id="L22512" class="LineNr">22512 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22513" class="LineNr">22513 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22514" class="LineNr">22514 </span> <span class="subxComment"># never gets here</span> -<span id="L22515" class="LineNr">22515 </span> -<span id="L22516" class="LineNr">22516 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-too-large</span>: -<span id="L22517" class="LineNr">22517 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22518" class="LineNr">22518 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22519" class="LineNr">22519 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22520" class="LineNr">22520 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22521" class="LineNr">22521 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) -<span id="L22522" class="LineNr">22522 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22523" class="LineNr">22523 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22524" class="LineNr">22524 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22525" class="LineNr">22525 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to copy\n"</span>) -<span id="L22526" class="LineNr">22526 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22527" class="LineNr">22527 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22528" class="LineNr">22528 </span> <span class="subxComment"># never gets here</span> -<span id="L22529" class="LineNr">22529 </span> -<span id="L22530" class="LineNr">22530 </span><span class="subxFunction">check-mu-compare-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22531" class="LineNr">22531 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22532" class="LineNr">22532 </span> 55/push-ebp -<span id="L22533" class="LineNr">22533 </span> 89/<- %ebp 4/r32/esp -<span id="L22534" class="LineNr">22534 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22535" class="LineNr">22535 </span> 50/push-eax -<span id="L22536" class="LineNr">22536 </span> 51/push-ecx -<span id="L22537" class="LineNr">22537 </span> 52/push-edx -<span id="L22538" class="LineNr">22538 </span> 53/push-ebx -<span id="L22539" class="LineNr">22539 </span> 56/push-esi -<span id="L22540" class="LineNr">22540 </span> 57/push-edi -<span id="L22541" class="LineNr">22541 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22542" class="LineNr">22542 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22543" class="LineNr">22543 </span> 68/push 0x60/imm32/size -<span id="L22544" class="LineNr">22544 </span> 68/push 0/imm32/read -<span id="L22545" class="LineNr">22545 </span> 68/push 0/imm32/write -<span id="L22546" class="LineNr">22546 </span> 89/<- %edx 4/r32/esp -<span id="L22547" class="LineNr">22547 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22548" class="LineNr">22548 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22549" class="LineNr">22549 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: -<span id="L22550" class="LineNr">22550 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L22551" class="LineNr">22551 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22552" class="LineNr">22552 </span> 3d/compare-eax-and 0/imm32 -<span id="L22553" class="LineNr">22553 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 -<span id="L22554" class="LineNr">22554 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: -<span id="L22555" class="LineNr">22555 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L22556" class="LineNr">22556 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22557" class="LineNr">22557 </span> 89/<- %edi 0/r32/eax -<span id="L22558" class="LineNr">22558 </span> <span class="subxComment"># zero inouts</span> -<span id="L22559" class="LineNr">22559 </span> 3d/compare-eax-and 0/imm32 -<span id="L22560" class="LineNr">22560 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22561" class="LineNr">22561 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: -<span id="L22562" class="LineNr">22562 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> -<span id="L22563" class="LineNr">22563 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22564" class="LineNr">22564 </span> 89/<- %esi 0/r32/eax -<span id="L22565" class="LineNr">22565 </span> <span class="subxComment"># 1 inout</span> -<span id="L22566" class="LineNr">22566 </span> 3d/compare-eax-and 0/imm32 -<span id="L22567" class="LineNr">22567 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22568" class="LineNr">22568 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L22569" class="LineNr">22569 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22570" class="LineNr">22570 </span> 3d/compare-eax-and 0/imm32 -<span id="L22571" class="LineNr">22571 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 -<span id="L22572" class="LineNr">22572 </span> <span class="subxComment"># if both inouts are in memory, abort</span> -<span id="L22573" class="LineNr">22573 </span> { -<span id="L22574" class="LineNr">22574 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: -<span id="L22575" class="LineNr">22575 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22576" class="LineNr">22576 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22577" class="LineNr">22577 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22578" class="LineNr">22578 </span> 3d/compare-eax-and 0/imm32 -<span id="L22579" class="LineNr">22579 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L22580" class="LineNr">22580 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22581" class="LineNr">22581 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22582" class="LineNr">22582 </span> 3d/compare-eax-and 0/imm32 -<span id="L22583" class="LineNr">22583 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22584" class="LineNr">22584 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22585" class="LineNr">22585 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22586" class="LineNr">22586 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L22587" class="LineNr">22587 </span> 3d/compare-eax-and 0/imm32 -<span id="L22588" class="LineNr">22588 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22589" class="LineNr">22589 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22590" class="LineNr">22590 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22591" class="LineNr">22591 </span> 3d/compare-eax-and 0/imm32 -<span id="L22592" class="LineNr">22592 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22593" class="LineNr">22593 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 -<span id="L22594" class="LineNr">22594 </span> } -<span id="L22595" class="LineNr">22595 </span><span class="Constant">$check-mu-compare-stmt:types</span>: -<span id="L22596" class="LineNr">22596 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> -<span id="L22597" class="LineNr">22597 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22598" class="LineNr">22598 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22599" class="LineNr">22599 </span> 89/<- %ecx 0/r32/eax -<span id="L22600" class="LineNr">22600 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> -<span id="L22601" class="LineNr">22601 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22602" class="LineNr">22602 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22603" class="LineNr">22603 </span> { -<span id="L22604" class="LineNr">22604 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22605" class="LineNr">22605 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22606" class="LineNr">22606 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> -<span id="L22607" class="LineNr">22607 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22608" class="LineNr">22608 </span> { -<span id="L22609" class="LineNr">22609 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22610" class="LineNr">22610 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22611" class="LineNr">22611 </span> } -<span id="L22612" class="LineNr">22612 </span> 89/<- %ecx 0/r32/eax -<span id="L22613" class="LineNr">22613 </span> } -<span id="L22614" class="LineNr">22614 </span> <span class="subxComment"># if right is not a scalar, abort</span> -<span id="L22615" class="LineNr">22615 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22616" class="LineNr">22616 </span> (<a href='mu.subx.html#L26338'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22617" class="LineNr">22617 </span> 3d/compare-eax-and 4/imm32 -<span id="L22618" class="LineNr">22618 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 -<span id="L22619" class="LineNr">22619 </span> <span class="subxComment"># if left is not a scalar, abort</span> -<span id="L22620" class="LineNr">22620 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22621" class="LineNr">22621 </span> (<a href='mu.subx.html#L26338'>size-of</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22622" class="LineNr">22622 </span> 3d/compare-eax-and 4/imm32 -<span id="L22623" class="LineNr">22623 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 -<span id="L22624" class="LineNr">22624 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</span> -<span id="L22625" class="LineNr">22625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22626" class="LineNr">22626 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22627" class="LineNr">22627 </span> 89/<- %ebx 0/r32/eax -<span id="L22628" class="LineNr">22628 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> -<span id="L22629" class="LineNr">22629 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22630" class="LineNr">22630 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22631" class="LineNr">22631 </span> { -<span id="L22632" class="LineNr">22632 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22633" class="LineNr">22633 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22634" class="LineNr">22634 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> -<span id="L22635" class="LineNr">22635 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22636" class="LineNr">22636 </span> { -<span id="L22637" class="LineNr">22637 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22638" class="LineNr">22638 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22639" class="LineNr">22639 </span> } -<span id="L22640" class="LineNr">22640 </span> 89/<- %ebx 0/r32/eax -<span id="L22641" class="LineNr">22641 </span> } -<span id="L22642" class="LineNr">22642 </span> <span class="subxComment"># if (left-type == right-type) return</span> -<span id="L22643" class="LineNr">22643 </span> (<a href='mu.subx.html#L26179'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L22644" class="LineNr">22644 </span> 3d/compare-eax-and 0/imm32 -<span id="L22645" class="LineNr">22645 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 -<span id="L22646" class="LineNr">22646 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> -<span id="L22647" class="LineNr">22647 </span> { -<span id="L22648" class="LineNr">22648 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22649" class="LineNr">22649 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22650" class="LineNr">22650 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L22651" class="LineNr">22651 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22652" class="LineNr">22652 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22653" class="LineNr">22653 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22654" class="LineNr">22654 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22655" class="LineNr">22655 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L22656" class="LineNr">22656 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22657" class="LineNr">22657 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22658" class="LineNr">22658 </span> eb/jump $check-mu-compare-stmt:end/disp8 -<span id="L22659" class="LineNr">22659 </span> } -<span id="L22660" class="LineNr">22660 </span> <span class="subxComment"># if left is not number-like, abort</span> -<span id="L22661" class="LineNr">22661 </span> (<a href='mu.subx.html#L21632'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L22662" class="LineNr">22662 </span><span class="Constant">$check-mu-compare-stmt:end</span>: -<span id="L22663" class="LineNr">22663 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L22664" class="LineNr">22664 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L22665" class="LineNr">22665 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22666" class="LineNr">22666 </span> 5f/pop-to-edi -<span id="L22667" class="LineNr">22667 </span> 5e/pop-to-esi -<span id="L22668" class="LineNr">22668 </span> 5b/pop-to-ebx -<span id="L22669" class="LineNr">22669 </span> 5a/pop-to-edx -<span id="L22670" class="LineNr">22670 </span> 59/pop-to-ecx -<span id="L22671" class="LineNr">22671 </span> 58/pop-to-eax -<span id="L22672" class="LineNr">22672 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22673" class="LineNr">22673 </span> 89/<- %esp 5/r32/ebp -<span id="L22674" class="LineNr">22674 </span> 5d/pop-to-ebp -<span id="L22675" class="LineNr">22675 </span> c3/return -<span id="L22676" class="LineNr">22676 </span> -<span id="L22677" class="LineNr">22677 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: -<span id="L22678" class="LineNr">22678 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22679" class="LineNr">22679 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22680" class="LineNr">22680 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22681" class="LineNr">22681 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22682" class="LineNr">22682 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'compare' must have two inouts\n"</span>) -<span id="L22683" class="LineNr">22683 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22684" class="LineNr">22684 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22685" class="LineNr">22685 </span> <span class="subxComment"># never gets here</span> -<span id="L22686" class="LineNr">22686 </span> -<span id="L22687" class="LineNr">22687 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: -<span id="L22688" class="LineNr">22688 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22689" class="LineNr">22689 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22690" class="LineNr">22690 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22691" class="LineNr">22691 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22692" class="LineNr">22692 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'compare' must not have any outputs\n"</span>) -<span id="L22693" class="LineNr">22693 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22694" class="LineNr">22694 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22695" class="LineNr">22695 </span> <span class="subxComment"># never gets here</span> -<span id="L22696" class="LineNr">22696 </span> -<span id="L22697" class="LineNr">22697 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: -<span id="L22698" class="LineNr">22698 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22699" class="LineNr">22699 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22700" class="LineNr">22700 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22701" class="LineNr">22701 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22702" class="LineNr">22702 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: both inouts are in memory\n"</span>) -<span id="L22703" class="LineNr">22703 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22704" class="LineNr">22704 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22705" class="LineNr">22705 </span> <span class="subxComment"># never gets here</span> -<span id="L22706" class="LineNr">22706 </span> -<span id="L22707" class="LineNr">22707 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: -<span id="L22708" class="LineNr">22708 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22709" class="LineNr">22709 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22710" class="LineNr">22710 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22711" class="LineNr">22711 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22712" class="LineNr">22712 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) -<span id="L22713" class="LineNr">22713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22714" class="LineNr">22714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22715" class="LineNr">22715 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22716" class="LineNr">22716 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to compare\n"</span>) -<span id="L22717" class="LineNr">22717 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22718" class="LineNr">22718 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22719" class="LineNr">22719 </span> <span class="subxComment"># never gets here</span> -<span id="L22720" class="LineNr">22720 </span> -<span id="L22721" class="LineNr">22721 </span><span class="Constant">$check-mu-compare-stmt:error-right-too-large</span>: -<span id="L22722" class="LineNr">22722 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22723" class="LineNr">22723 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22724" class="LineNr">22724 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22725" class="LineNr">22725 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22726" class="LineNr">22726 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) -<span id="L22727" class="LineNr">22727 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22728" class="LineNr">22728 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22729" class="LineNr">22729 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22730" class="LineNr">22730 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to compare\n"</span>) -<span id="L22731" class="LineNr">22731 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22732" class="LineNr">22732 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22733" class="LineNr">22733 </span> <span class="subxComment"># never gets here</span> -<span id="L22734" class="LineNr">22734 </span> -<span id="L22735" class="LineNr">22735 </span><span class="subxFunction">check-mu-address-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22736" class="LineNr">22736 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22737" class="LineNr">22737 </span> 55/push-ebp -<span id="L22738" class="LineNr">22738 </span> 89/<- %ebp 4/r32/esp -<span id="L22739" class="LineNr">22739 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22740" class="LineNr">22740 </span> 50/push-eax -<span id="L22741" class="LineNr">22741 </span> 51/push-ecx -<span id="L22742" class="LineNr">22742 </span> 52/push-edx -<span id="L22743" class="LineNr">22743 </span> 56/push-esi -<span id="L22744" class="LineNr">22744 </span> 57/push-edi -<span id="L22745" class="LineNr">22745 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: -<span id="L22746" class="LineNr">22746 </span> <span class="subxComment"># esi = stmt</span> -<span id="L22747" class="LineNr">22747 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L22748" class="LineNr">22748 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L22749" class="LineNr">22749 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L22750" class="LineNr">22750 </span> 89/<- %edi 0/r32/eax -<span id="L22751" class="LineNr">22751 </span> <span class="subxComment"># zero outputs</span> -<span id="L22752" class="LineNr">22752 </span> 3d/compare-eax-and 0/imm32 -<span id="L22753" class="LineNr">22753 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 -<span id="L22754" class="LineNr">22754 </span> <span class="subxComment"># > 1 output</span> -<span id="L22755" class="LineNr">22755 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22756" class="LineNr">22756 </span> 3d/compare-eax-and 0/imm32 -<span id="L22757" class="LineNr">22757 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 -<span id="L22758" class="LineNr">22758 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: -<span id="L22759" class="LineNr">22759 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L22760" class="LineNr">22760 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L22761" class="LineNr">22761 </span> 89/<- %esi 0/r32/eax -<span id="L22762" class="LineNr">22762 </span> <span class="subxComment"># zero inouts</span> -<span id="L22763" class="LineNr">22763 </span> 3d/compare-eax-and 0/imm32 -<span id="L22764" class="LineNr">22764 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 -<span id="L22765" class="LineNr">22765 </span> <span class="subxComment"># > 1 inout</span> -<span id="L22766" class="LineNr">22766 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L22767" class="LineNr">22767 </span> 3d/compare-eax-and 0/imm32 -<span id="L22768" class="LineNr">22768 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 -<span id="L22769" class="LineNr">22769 </span><span class="Constant">$check-mu-address-stmt:types</span>: -<span id="L22770" class="LineNr">22770 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L22771" class="LineNr">22771 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22772" class="LineNr">22772 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L22773" class="LineNr">22773 </span> 3d/compare-eax-and 0/imm32 -<span id="L22774" class="LineNr">22774 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 -<span id="L22775" class="LineNr">22775 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> -<span id="L22776" class="LineNr">22776 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22777" class="LineNr">22777 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22778" class="LineNr">22778 </span> 89/<- %edx 0/r32/eax -<span id="L22779" class="LineNr">22779 </span> <span class="subxComment"># if output-type not an addr, abort</span> -<span id="L22780" class="LineNr">22780 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L22781" class="LineNr">22781 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22782" class="LineNr">22782 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 -<span id="L22783" class="LineNr">22783 </span> <span class="subxComment"># output-type = output-type->right</span> -<span id="L22784" class="LineNr">22784 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22785" class="LineNr">22785 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> -<span id="L22786" class="LineNr">22786 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22787" class="LineNr">22787 </span> { -<span id="L22788" class="LineNr">22788 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22789" class="LineNr">22789 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22790" class="LineNr">22790 </span> } -<span id="L22791" class="LineNr">22791 </span> 89/<- %edx 0/r32/eax -<span id="L22792" class="LineNr">22792 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L22793" class="LineNr">22793 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22794" class="LineNr">22794 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L22795" class="LineNr">22795 </span> 89/<- %ecx 0/r32/eax -<span id="L22796" class="LineNr">22796 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L22797" class="LineNr">22797 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L22798" class="LineNr">22798 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22799" class="LineNr">22799 </span> { -<span id="L22800" class="LineNr">22800 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L22801" class="LineNr">22801 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22802" class="LineNr">22802 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L22803" class="LineNr">22803 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L22804" class="LineNr">22804 </span> { -<span id="L22805" class="LineNr">22805 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22806" class="LineNr">22806 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22807" class="LineNr">22807 </span> } -<span id="L22808" class="LineNr">22808 </span> 89/<- %ecx 0/r32/eax -<span id="L22809" class="LineNr">22809 </span> } -<span id="L22810" class="LineNr">22810 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> -<span id="L22811" class="LineNr">22811 </span> (<a href='mu.subx.html#L22912'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> -<span id="L22812" class="LineNr">22812 </span> 3d/compare-eax-and 0/imm32 -<span id="L22813" class="LineNr">22813 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 -<span id="L22814" class="LineNr">22814 </span><span class="Constant">$check-mu-address-stmt:end</span>: -<span id="L22815" class="LineNr">22815 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22816" class="LineNr">22816 </span> 5f/pop-to-edi -<span id="L22817" class="LineNr">22817 </span> 5e/pop-to-esi -<span id="L22818" class="LineNr">22818 </span> 5a/pop-to-edx -<span id="L22819" class="LineNr">22819 </span> 59/pop-to-ecx -<span id="L22820" class="LineNr">22820 </span> 58/pop-to-eax -<span id="L22821" class="LineNr">22821 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22822" class="LineNr">22822 </span> 89/<- %esp 5/r32/ebp -<span id="L22823" class="LineNr">22823 </span> 5d/pop-to-ebp -<span id="L22824" class="LineNr">22824 </span> c3/return -<span id="L22825" class="LineNr">22825 </span> -<span id="L22826" class="LineNr">22826 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: -<span id="L22827" class="LineNr">22827 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22828" class="LineNr">22828 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22829" class="LineNr">22829 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22830" class="LineNr">22830 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22831" class="LineNr">22831 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' expects an inout\n"</span>) -<span id="L22832" class="LineNr">22832 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22833" class="LineNr">22833 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22834" class="LineNr">22834 </span> <span class="subxComment"># never gets here</span> -<span id="L22835" class="LineNr">22835 </span> -<span id="L22836" class="LineNr">22836 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: -<span id="L22837" class="LineNr">22837 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22838" class="LineNr">22838 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22839" class="LineNr">22839 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22840" class="LineNr">22840 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22841" class="LineNr">22841 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' must have just one inout\n"</span>) -<span id="L22842" class="LineNr">22842 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22843" class="LineNr">22843 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22844" class="LineNr">22844 </span> <span class="subxComment"># never gets here</span> -<span id="L22845" class="LineNr">22845 </span> -<span id="L22846" class="LineNr">22846 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: -<span id="L22847" class="LineNr">22847 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22848" class="LineNr">22848 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22849" class="LineNr">22849 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22850" class="LineNr">22850 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22851" class="LineNr">22851 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' expects an output\n"</span>) -<span id="L22852" class="LineNr">22852 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22853" class="LineNr">22853 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22854" class="LineNr">22854 </span> <span class="subxComment"># never gets here</span> -<span id="L22855" class="LineNr">22855 </span> -<span id="L22856" class="LineNr">22856 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</span>: -<span id="L22857" class="LineNr">22857 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22858" class="LineNr">22858 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22859" class="LineNr">22859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22860" class="LineNr">22860 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22861" class="LineNr">22861 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L22862" class="LineNr">22862 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22863" class="LineNr">22863 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22864" class="LineNr">22864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22865" class="LineNr">22865 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L22866" class="LineNr">22866 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22867" class="LineNr">22867 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22868" class="LineNr">22868 </span> <span class="subxComment"># never gets here</span> -<span id="L22869" class="LineNr">22869 </span> -<span id="L22870" class="LineNr">22870 </span><span class="Constant">$check-mu-address-stmt:error-too-many-outputs</span>: -<span id="L22871" class="LineNr">22871 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22872" class="LineNr">22872 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22873" class="LineNr">22873 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22874" class="LineNr">22874 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22875" class="LineNr">22875 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' must have just one output\n"</span>) -<span id="L22876" class="LineNr">22876 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22877" class="LineNr">22877 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22878" class="LineNr">22878 </span> <span class="subxComment"># never gets here</span> -<span id="L22879" class="LineNr">22879 </span> -<span id="L22880" class="LineNr">22880 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: -<span id="L22881" class="LineNr">22881 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22882" class="LineNr">22882 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22883" class="LineNr">22883 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22884" class="LineNr">22884 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22885" class="LineNr">22885 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L22886" class="LineNr">22886 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22887" class="LineNr">22887 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22888" class="LineNr">22888 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22889" class="LineNr">22889 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an addr\n"</span>) -<span id="L22890" class="LineNr">22890 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22891" class="LineNr">22891 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22892" class="LineNr">22892 </span> <span class="subxComment"># never gets here</span> -<span id="L22893" class="LineNr">22893 </span> -<span id="L22894" class="LineNr">22894 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: -<span id="L22895" class="LineNr">22895 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L22896" class="LineNr">22896 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22897" class="LineNr">22897 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L22898" class="LineNr">22898 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22899" class="LineNr">22899 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) -<span id="L22900" class="LineNr">22900 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22901" class="LineNr">22901 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22902" class="LineNr">22902 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22903" class="LineNr">22903 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot hold address of '"</span>) -<span id="L22904" class="LineNr">22904 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L22905" class="LineNr">22905 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L22906" class="LineNr">22906 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L22907" class="LineNr">22907 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L22908" class="LineNr">22908 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L22909" class="LineNr">22909 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L22910" class="LineNr">22910 </span> <span class="subxComment"># never gets here</span> -<span id="L22911" class="LineNr">22911 </span> -<span id="L22912" class="LineNr">22912 </span><span class="subxFunction">type-equal-ignoring-capacity?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> -<span id="L22913" class="LineNr">22913 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22914" class="LineNr">22914 </span> 55/push-ebp -<span id="L22915" class="LineNr">22915 </span> 89/<- %ebp 4/r32/esp -<span id="L22916" class="LineNr">22916 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22917" class="LineNr">22917 </span> 51/push-ecx -<span id="L22918" class="LineNr">22918 </span> 52/push-edx -<span id="L22919" class="LineNr">22919 </span> 53/push-ebx -<span id="L22920" class="LineNr">22920 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> -<span id="L22921" class="LineNr">22921 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L22922" class="LineNr">22922 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> -<span id="L22923" class="LineNr">22923 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L22924" class="LineNr">22924 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> -<span id="L22925" class="LineNr">22925 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L22926" class="LineNr">22926 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 -<span id="L22927" class="LineNr">22927 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> -<span id="L22928" class="LineNr">22928 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22929" class="LineNr">22929 </span> 89/<- %edx 0/r32/eax -<span id="L22930" class="LineNr">22930 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22931" class="LineNr">22931 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> -<span id="L22932" class="LineNr">22932 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22933" class="LineNr">22933 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> -<span id="L22934" class="LineNr">22934 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> -<span id="L22935" class="LineNr">22935 </span> { -<span id="L22936" class="LineNr">22936 </span> (<a href='mu.subx.html#L26435'>is-mu-array?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L22937" class="LineNr">22937 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22938" class="LineNr">22938 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22939" class="LineNr">22939 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: -<span id="L22940" class="LineNr">22940 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L22941" class="LineNr">22941 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22942" class="LineNr">22942 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22943" class="LineNr">22943 </span> 89/<- %ecx 0/r32/eax -<span id="L22944" class="LineNr">22944 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L22945" class="LineNr">22945 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22946" class="LineNr">22946 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22947" class="LineNr">22947 </span> 89/<- %ebx 0/r32/eax -<span id="L22948" class="LineNr">22948 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 -<span id="L22949" class="LineNr">22949 </span> } -<span id="L22950" class="LineNr">22950 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> -<span id="L22951" class="LineNr">22951 </span> { -<span id="L22952" class="LineNr">22952 </span> (<a href='mu.subx.html#L26500'>is-mu-stream?</a> %edx) <span class="subxComment"># => eax</span> -<span id="L22953" class="LineNr">22953 </span> 3d/compare-eax-and 0/imm32/false -<span id="L22954" class="LineNr">22954 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L22955" class="LineNr">22955 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: -<span id="L22956" class="LineNr">22956 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> -<span id="L22957" class="LineNr">22957 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22958" class="LineNr">22958 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22959" class="LineNr">22959 </span> 89/<- %ecx 0/r32/eax -<span id="L22960" class="LineNr">22960 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> -<span id="L22961" class="LineNr">22961 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L22962" class="LineNr">22962 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L22963" class="LineNr">22963 </span> 89/<- %ebx 0/r32/eax -<span id="L22964" class="LineNr">22964 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 -<span id="L22965" class="LineNr">22965 </span> } -<span id="L22966" class="LineNr">22966 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: -<span id="L22967" class="LineNr">22967 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> -<span id="L22968" class="LineNr">22968 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L22969" class="LineNr">22969 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: -<span id="L22970" class="LineNr">22970 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L22971" class="LineNr">22971 </span> 5b/pop-to-ebx -<span id="L22972" class="LineNr">22972 </span> 5a/pop-to-edx -<span id="L22973" class="LineNr">22973 </span> 59/pop-to-ecx -<span id="L22974" class="LineNr">22974 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L22975" class="LineNr">22975 </span> 89/<- %esp 5/r32/ebp -<span id="L22976" class="LineNr">22976 </span> 5d/pop-to-ebp -<span id="L22977" class="LineNr">22977 </span> c3/return -<span id="L22978" class="LineNr">22978 </span> -<span id="L22979" class="LineNr">22979 </span><span class="subxFunction">check-mu-return-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L22980" class="LineNr">22980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22981" class="LineNr">22981 </span> 55/push-ebp -<span id="L22982" class="LineNr">22982 </span> 89/<- %ebp 4/r32/esp -<span id="L22983" class="LineNr">22983 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L22984" class="LineNr">22984 </span> 50/push-eax -<span id="L22985" class="LineNr">22985 </span> 51/push-ecx -<span id="L22986" class="LineNr">22986 </span> 52/push-edx -<span id="L22987" class="LineNr">22987 </span> 53/push-ebx -<span id="L22988" class="LineNr">22988 </span> 56/push-esi -<span id="L22989" class="LineNr">22989 </span> 57/push-edi -<span id="L22990" class="LineNr">22990 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L22991" class="LineNr">22991 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L22992" class="LineNr">22992 </span> 68/push 0x60/imm32/size -<span id="L22993" class="LineNr">22993 </span> 68/push 0/imm32/read -<span id="L22994" class="LineNr">22994 </span> 68/push 0/imm32/write -<span id="L22995" class="LineNr">22995 </span> 89/<- %edx 4/r32/esp -<span id="L22996" class="LineNr">22996 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> -<span id="L22997" class="LineNr">22997 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L22998" class="LineNr">22998 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L22999" class="LineNr">22999 </span> 89/<- %esi 0/r32/eax -<span id="L23000" class="LineNr">23000 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> -<span id="L23001" class="LineNr">23001 </span> 89/<- %ebx 0/r32/eax -<span id="L23002" class="LineNr">23002 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L23003" class="LineNr">23003 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23004" class="LineNr">23004 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23005" class="LineNr">23005 </span> 89/<- %edi 0/r32/eax -<span id="L23006" class="LineNr">23006 </span> { -<span id="L23007" class="LineNr">23007 </span> <span class="subxComment"># if template is null, break</span> -<span id="L23008" class="LineNr">23008 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L23009" class="LineNr">23009 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23010" class="LineNr">23010 </span> <span class="subxComment"># if curr is null, abort</span> -<span id="L23011" class="LineNr">23011 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23012" class="LineNr">23012 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 -<span id="L23013" class="LineNr">23013 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> -<span id="L23014" class="LineNr">23014 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23015" class="LineNr">23015 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23016" class="LineNr">23016 </span> 89/<- %ecx 0/r32/eax -<span id="L23017" class="LineNr">23017 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> -<span id="L23018" class="LineNr">23018 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23019" class="LineNr">23019 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23020" class="LineNr">23020 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> -<span id="L23021" class="LineNr">23021 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L23022" class="LineNr">23022 </span> { -<span id="L23023" class="LineNr">23023 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23024" class="LineNr">23024 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23025" class="LineNr">23025 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L23026" class="LineNr">23026 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23027" class="LineNr">23027 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23028" class="LineNr">23028 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23029" class="LineNr">23029 </span> } -<span id="L23030" class="LineNr">23030 </span> <span class="subxComment"># if curr-type is literal and template-type is float, abort</span> -<span id="L23031" class="LineNr">23031 </span> 50/push-eax -<span id="L23032" class="LineNr">23032 </span> { -<span id="L23033" class="LineNr">23033 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L23034" class="LineNr">23034 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23035" class="LineNr">23035 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23036" class="LineNr">23036 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L23037" class="LineNr">23037 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23038" class="LineNr">23038 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-literal-to-float/disp32 -<span id="L23039" class="LineNr">23039 </span> } -<span id="L23040" class="LineNr">23040 </span> 58/pop-to-eax -<span id="L23041" class="LineNr">23041 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> -<span id="L23042" class="LineNr">23042 </span> (<a href='mu.subx.html#L26179'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> -<span id="L23043" class="LineNr">23043 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23044" class="LineNr">23044 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 -<span id="L23045" class="LineNr">23045 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> -<span id="L23046" class="LineNr">23046 </span> (<a href='mu.subx.html#L23199'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23047" class="LineNr">23047 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23048" class="LineNr">23048 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 -<span id="L23049" class="LineNr">23049 </span> <span class="subxComment"># template = template->next</span> -<span id="L23050" class="LineNr">23050 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23051" class="LineNr">23051 </span> 89/<- %ebx 0/r32/eax -<span id="L23052" class="LineNr">23052 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23053" class="LineNr">23053 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23054" class="LineNr">23054 </span> 89/<- %edi 0/r32/eax -<span id="L23055" class="LineNr">23055 </span> <span class="subxComment">#</span> -<span id="L23056" class="LineNr">23056 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23057" class="LineNr">23057 </span> } -<span id="L23058" class="LineNr">23058 </span> <span class="subxComment"># if curr is not null, abort</span> -<span id="L23059" class="LineNr">23059 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23060" class="LineNr">23060 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 -<span id="L23061" class="LineNr">23061 </span><span class="Constant">$check-mu-return-stmt:end</span>: -<span id="L23062" class="LineNr">23062 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L23063" class="LineNr">23063 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L23064" class="LineNr">23064 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23065" class="LineNr">23065 </span> 5f/pop-to-edi -<span id="L23066" class="LineNr">23066 </span> 5e/pop-to-esi -<span id="L23067" class="LineNr">23067 </span> 5b/pop-to-ebx -<span id="L23068" class="LineNr">23068 </span> 5a/pop-to-edx -<span id="L23069" class="LineNr">23069 </span> 59/pop-to-ecx -<span id="L23070" class="LineNr">23070 </span> 58/pop-to-eax -<span id="L23071" class="LineNr">23071 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23072" class="LineNr">23072 </span> 89/<- %esp 5/r32/ebp -<span id="L23073" class="LineNr">23073 </span> 5d/pop-to-ebp -<span id="L23074" class="LineNr">23074 </span> c3/return -<span id="L23075" class="LineNr">23075 </span> -<span id="L23076" class="LineNr">23076 </span><span class="Constant">$check-mu-return-stmt:error1</span>: -<span id="L23077" class="LineNr">23077 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23078" class="LineNr">23078 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23079" class="LineNr">23079 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23080" class="LineNr">23080 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23081" class="LineNr">23081 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L23082" class="LineNr">23082 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23083" class="LineNr">23083 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23084" class="LineNr">23084 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23085" class="LineNr">23085 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) -<span id="L23086" class="LineNr">23086 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23087" class="LineNr">23087 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23088" class="LineNr">23088 </span> <span class="subxComment"># never gets here</span> -<span id="L23089" class="LineNr">23089 </span> -<span id="L23090" class="LineNr">23090 </span><span class="Constant">$check-mu-return-stmt:error2</span>: -<span id="L23091" class="LineNr">23091 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23092" class="LineNr">23092 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23093" class="LineNr">23093 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23094" class="LineNr">23094 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23095" class="LineNr">23095 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) -<span id="L23096" class="LineNr">23096 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23097" class="LineNr">23097 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23098" class="LineNr">23098 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23099" class="LineNr">23099 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is no longer available\n"</span>) -<span id="L23100" class="LineNr">23100 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23101" class="LineNr">23101 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23102" class="LineNr">23102 </span> <span class="subxComment"># never gets here</span> -<span id="L23103" class="LineNr">23103 </span> -<span id="L23104" class="LineNr">23104 </span><span class="Constant">$check-mu-return-stmt:error-literal-to-float</span>: -<span id="L23105" class="LineNr">23105 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23106" class="LineNr">23106 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23107" class="LineNr">23107 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23108" class="LineNr">23108 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23109" class="LineNr">23109 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: cannot copy literal '"</span>) -<span id="L23110" class="LineNr">23110 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23111" class="LineNr">23111 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23112" class="LineNr">23112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23113" class="LineNr">23113 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' to float\n"</span>) -<span id="L23114" class="LineNr">23114 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23115" class="LineNr">23115 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23116" class="LineNr">23116 </span> <span class="subxComment"># never gets here</span> -<span id="L23117" class="LineNr">23117 </span> -<span id="L23118" class="LineNr">23118 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: -<span id="L23119" class="LineNr">23119 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23120" class="LineNr">23120 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23121" class="LineNr">23121 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23122" class="LineNr">23122 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23123" class="LineNr">23123 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too few inouts\n"</span>) -<span id="L23124" class="LineNr">23124 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23125" class="LineNr">23125 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23126" class="LineNr">23126 </span> <span class="subxComment"># never gets here</span> -<span id="L23127" class="LineNr">23127 </span> -<span id="L23128" class="LineNr">23128 </span><span class="Constant">$check-mu-return-stmt:error-too-many-inouts</span>: -<span id="L23129" class="LineNr">23129 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23130" class="LineNr">23130 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23131" class="LineNr">23131 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23132" class="LineNr">23132 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23133" class="LineNr">23133 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too many inouts\n"</span>) -<span id="L23134" class="LineNr">23134 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23135" class="LineNr">23135 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23136" class="LineNr">23136 </span> <span class="subxComment"># never gets here</span> -<span id="L23137" class="LineNr">23137 </span> -<span id="L23138" class="LineNr">23138 </span><span class="subxFunction">check-all-unique-registers</span>: <span class="subxComment"># outputs: (addr list var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L23139" class="LineNr">23139 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23140" class="LineNr">23140 </span> 55/push-ebp -<span id="L23141" class="LineNr">23141 </span> 89/<- %ebp 4/r32/esp -<span id="L23142" class="LineNr">23142 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23143" class="LineNr">23143 </span> 50/push-eax -<span id="L23144" class="LineNr">23144 </span> 51/push-ecx -<span id="L23145" class="LineNr">23145 </span> 56/push-esi -<span id="L23146" class="LineNr">23146 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> -<span id="L23147" class="LineNr">23147 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L23148" class="LineNr">23148 </span> 68/push 0x60/imm32/size -<span id="L23149" class="LineNr">23149 </span> 68/push 0/imm32/read -<span id="L23150" class="LineNr">23150 </span> 68/push 0/imm32/write -<span id="L23151" class="LineNr">23151 </span> 89/<- %esi 4/r32/esp -<span id="L23152" class="LineNr">23152 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> -<span id="L23153" class="LineNr">23153 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L23154" class="LineNr">23154 </span> { -<span id="L23155" class="LineNr">23155 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L23156" class="LineNr">23156 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L23157" class="LineNr">23157 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23158" class="LineNr">23158 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> -<span id="L23159" class="LineNr">23159 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23160" class="LineNr">23160 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23161" class="LineNr">23161 </span> <span class="subxComment"># if reg exists in table, abort</span> -<span id="L23162" class="LineNr">23162 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> -<span id="L23163" class="LineNr">23163 </span> 3d/compare-eax-and 0/imm32 -<span id="L23164" class="LineNr">23164 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 -<span id="L23165" class="LineNr">23165 </span> <span class="subxComment"># insert reg in table</span> -<span id="L23166" class="LineNr">23166 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23167" class="LineNr">23167 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23168" class="LineNr">23168 </span> (<a href='../131table.subx.html#L421'>get-or-insert</a> %esi %eax 0xc <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>) -<span id="L23169" class="LineNr">23169 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23170" class="LineNr">23170 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23171" class="LineNr">23171 </span> 89/<- %ecx 0/r32/eax -<span id="L23172" class="LineNr">23172 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23173" class="LineNr">23173 </span> } -<span id="L23174" class="LineNr">23174 </span><span class="Constant">$check-all-unique-registers:end</span>: -<span id="L23175" class="LineNr">23175 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L23176" class="LineNr">23176 </span> 81 0/subop/add %esp 0x6c/imm32 -<span id="L23177" class="LineNr">23177 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23178" class="LineNr">23178 </span> 5e/pop-to-esi -<span id="L23179" class="LineNr">23179 </span> 59/pop-to-ecx -<span id="L23180" class="LineNr">23180 </span> 58/pop-to-eax -<span id="L23181" class="LineNr">23181 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23182" class="LineNr">23182 </span> 89/<- %esp 5/r32/ebp -<span id="L23183" class="LineNr">23183 </span> 5d/pop-to-ebp -<span id="L23184" class="LineNr">23184 </span> c3/return -<span id="L23185" class="LineNr">23185 </span> -<span id="L23186" class="LineNr">23186 </span><span class="Constant">$check-all-unique-registers:abort</span>: -<span id="L23187" class="LineNr">23187 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23188" class="LineNr">23188 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23189" class="LineNr">23189 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23190" class="LineNr">23190 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23191" class="LineNr">23191 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": outputs must be in unique registers\n"</span>) -<span id="L23192" class="LineNr">23192 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23193" class="LineNr">23193 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23194" class="LineNr">23194 </span> <span class="subxComment"># never gets here</span> -<span id="L23195" class="LineNr">23195 </span> -<span id="L23196" class="LineNr">23196 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> -<span id="L23197" class="LineNr">23197 </span><span class="subxComment"># return false if the positionally corresponding register in stmt->inouts (where s comes from) is also s's register</span> -<span id="L23198" class="LineNr">23198 </span><span class="subxComment"># otherwise return true</span> -<span id="L23199" class="LineNr">23199 </span><span class="subxFunction">register-within-list-with-conflict?</span>: <span class="subxComment"># s: (addr stmt-var), start: (addr list var), end: (addr list var), stmt: (addr stmt) -> result/eax: boolean</span> -<span id="L23200" class="LineNr">23200 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23201" class="LineNr">23201 </span> 55/push-ebp -<span id="L23202" class="LineNr">23202 </span> 89/<- %ebp 4/r32/esp -<span id="L23203" class="LineNr">23203 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23204" class="LineNr">23204 </span> 51/push-ecx -<span id="L23205" class="LineNr">23205 </span> 52/push-edx -<span id="L23206" class="LineNr">23206 </span> 53/push-ebx -<span id="L23207" class="LineNr">23207 </span> 56/push-esi -<span id="L23208" class="LineNr">23208 </span> 57/push-edi -<span id="L23209" class="LineNr">23209 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> -<span id="L23210" class="LineNr">23210 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23211" class="LineNr">23211 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23212" class="LineNr">23212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23213" class="LineNr">23213 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> -<span id="L23214" class="LineNr">23214 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L23215" class="LineNr">23215 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23216" class="LineNr">23216 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23217" class="LineNr">23217 </span> <span class="subxComment"># if (var->register == 0) return false</span> -<span id="L23218" class="LineNr">23218 </span> 3d/compare-eax-and 0/imm32 -<span id="L23219" class="LineNr">23219 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> -<span id="L23220" class="LineNr">23220 </span> 89/<- %ebx 0/r32/eax -<span id="L23221" class="LineNr">23221 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> -<span id="L23222" class="LineNr">23222 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L23223" class="LineNr">23223 </span> <span class="subxComment"># edx = end</span> -<span id="L23224" class="LineNr">23224 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L23225" class="LineNr">23225 </span> { -<span id="L23226" class="LineNr">23226 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L23227" class="LineNr">23227 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23228" class="LineNr">23228 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23229" class="LineNr">23229 </span> <span class="subxComment"># if (curr == end) break</span> -<span id="L23230" class="LineNr">23230 </span> 39/compare %ecx 2/r32/edx -<span id="L23231" class="LineNr">23231 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23232" class="LineNr">23232 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> -<span id="L23233" class="LineNr">23233 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23234" class="LineNr">23234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23235" class="LineNr">23235 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> -<span id="L23236" class="LineNr">23236 </span> 3d/compare-eax-and 0/imm32 -<span id="L23237" class="LineNr">23237 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 -<span id="L23238" class="LineNr">23238 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> -<span id="L23239" class="LineNr">23239 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L23240" class="LineNr">23240 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23241" class="LineNr">23241 </span> { -<span id="L23242" class="LineNr">23242 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23243" class="LineNr">23243 </span><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> -<span id="L23244" class="LineNr">23244 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23245" class="LineNr">23245 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> -<span id="L23246" class="LineNr">23246 </span> 8b/-> *(ebp+0x14) 0/r32/eax -<span id="L23247" class="LineNr">23247 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23248" class="LineNr">23248 </span> (<a href='mu.subx.html#L23275'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L23249" class="LineNr">23249 </span> eb/jump $register-within-list-with-conflict?:end/disp8 -<span id="L23250" class="LineNr">23250 </span> } -<span id="L23251" class="LineNr">23251 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: -<span id="L23252" class="LineNr">23252 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23253" class="LineNr">23253 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23254" class="LineNr">23254 </span> 89/<- %ecx 0/r32/eax -<span id="L23255" class="LineNr">23255 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23256" class="LineNr">23256 </span> } -<span id="L23257" class="LineNr">23257 </span> <span class="subxComment"># return false</span> -<span id="L23258" class="LineNr">23258 </span> b8/copy-to-eax 0/imm32/false -<span id="L23259" class="LineNr">23259 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: -<span id="L23260" class="LineNr">23260 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23261" class="LineNr">23261 </span> 5f/pop-to-edi -<span id="L23262" class="LineNr">23262 </span> 5e/pop-to-esi -<span id="L23263" class="LineNr">23263 </span> 5b/pop-to-ebx -<span id="L23264" class="LineNr">23264 </span> 5a/pop-to-edx -<span id="L23265" class="LineNr">23265 </span> 59/pop-to-ecx -<span id="L23266" class="LineNr">23266 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23267" class="LineNr">23267 </span> 89/<- %esp 5/r32/ebp -<span id="L23268" class="LineNr">23268 </span> 5d/pop-to-ebp -<span id="L23269" class="LineNr">23269 </span> c3/return -<span id="L23270" class="LineNr">23270 </span> -<span id="L23271" class="LineNr">23271 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> -<span id="L23272" class="LineNr">23272 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> -<span id="L23273" class="LineNr">23273 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> -<span id="L23274" class="LineNr">23274 </span><span class="subxComment"># reuse it as is.</span> -<span id="L23275" class="LineNr">23275 </span><span class="subxFunction">register-conflict?</span>: <span class="subxComment"># reg: (addr array byte), return-inouts: (addr stmt-var), fn-outputs: (addr list var) => result/eax: boolean</span> -<span id="L23276" class="LineNr">23276 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23277" class="LineNr">23277 </span> 55/push-ebp -<span id="L23278" class="LineNr">23278 </span> 89/<- %ebp 4/r32/esp -<span id="L23279" class="LineNr">23279 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23280" class="LineNr">23280 </span> 51/push-ecx -<span id="L23281" class="LineNr">23281 </span> 52/push-edx -<span id="L23282" class="LineNr">23282 </span> 53/push-ebx -<span id="L23283" class="LineNr">23283 </span> 56/push-esi -<span id="L23284" class="LineNr">23284 </span> 57/push-edi -<span id="L23285" class="LineNr">23285 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> -<span id="L23286" class="LineNr">23286 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> -<span id="L23287" class="LineNr">23287 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23288" class="LineNr">23288 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23289" class="LineNr">23289 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> -<span id="L23290" class="LineNr">23290 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L23291" class="LineNr">23291 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> -<span id="L23292" class="LineNr">23292 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L23293" class="LineNr">23293 </span> { -<span id="L23294" class="LineNr">23294 </span> <span class="subxComment"># if (curr-output == 0) abort</span> -<span id="L23295" class="LineNr">23295 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L23296" class="LineNr">23296 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L23297" class="LineNr">23297 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> -<span id="L23298" class="LineNr">23298 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23299" class="LineNr">23299 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23300" class="LineNr">23300 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23301" class="LineNr">23301 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23302" class="LineNr">23302 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 -<span id="L23303" class="LineNr">23303 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> -<span id="L23304" class="LineNr">23304 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23305" class="LineNr">23305 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> -<span id="L23306" class="LineNr">23306 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23307" class="LineNr">23307 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23308" class="LineNr">23308 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> -<span id="L23309" class="LineNr">23309 </span> 3d/compare-eax-and 0/imm32 -<span id="L23310" class="LineNr">23310 </span> { -<span id="L23311" class="LineNr">23311 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23312" class="LineNr">23312 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> -<span id="L23313" class="LineNr">23313 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23314" class="LineNr">23314 </span> b8/copy-to-eax 1/imm32/true -<span id="L23315" class="LineNr">23315 </span> e9/jump $register-conflict?:end/disp32 -<span id="L23316" class="LineNr">23316 </span> } -<span id="L23317" class="LineNr">23317 </span> <span class="subxComment"># return (curr-reg != reg)</span> -<span id="L23318" class="LineNr">23318 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L23319" class="LineNr">23319 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23320" class="LineNr">23320 </span> 0f 94/set-if-= %al -<span id="L23321" class="LineNr">23321 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> -<span id="L23322" class="LineNr">23322 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L23323" class="LineNr">23323 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L23324" class="LineNr">23324 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L23325" class="LineNr">23325 </span> eb/jump $register-conflict?:end/disp8 -<span id="L23326" class="LineNr">23326 </span><span class="Constant">$register-conflict?:continue</span>: -<span id="L23327" class="LineNr">23327 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L23328" class="LineNr">23328 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23329" class="LineNr">23329 </span> 89/<- %edi 0/r32/eax -<span id="L23330" class="LineNr">23330 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L23331" class="LineNr">23331 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23332" class="LineNr">23332 </span> 89/<- %esi 0/r32/eax -<span id="L23333" class="LineNr">23333 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23334" class="LineNr">23334 </span> } -<span id="L23335" class="LineNr">23335 </span> <span class="subxComment"># should never get here</span> -<span id="L23336" class="LineNr">23336 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"register-conflict? misused\n"</span>) -<span id="L23337" class="LineNr">23337 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>) -<span id="L23338" class="LineNr">23338 </span> e8/call syscall_exit/disp32 -<span id="L23339" class="LineNr">23339 </span><span class="Constant">$register-conflict?:end</span>: -<span id="L23340" class="LineNr">23340 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23341" class="LineNr">23341 </span> 5f/pop-to-edi -<span id="L23342" class="LineNr">23342 </span> 5e/pop-to-esi -<span id="L23343" class="LineNr">23343 </span> 5b/pop-to-ebx -<span id="L23344" class="LineNr">23344 </span> 5a/pop-to-edx -<span id="L23345" class="LineNr">23345 </span> 59/pop-to-ecx -<span id="L23346" class="LineNr">23346 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23347" class="LineNr">23347 </span> 89/<- %esp 5/r32/ebp -<span id="L23348" class="LineNr">23348 </span> 5d/pop-to-ebp -<span id="L23349" class="LineNr">23349 </span> c3/return -<span id="L23350" class="LineNr">23350 </span> -<span id="L23351" class="LineNr">23351 </span><span class="subxFunction">check-final-stmt-is-return</span>: <span class="subxComment"># block: (addr block), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L23352" class="LineNr">23352 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23353" class="LineNr">23353 </span> 55/push-ebp -<span id="L23354" class="LineNr">23354 </span> 89/<- %ebp 4/r32/esp -<span id="L23355" class="LineNr">23355 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23356" class="LineNr">23356 </span> 50/push-eax -<span id="L23357" class="LineNr">23357 </span> 51/push-ecx -<span id="L23358" class="LineNr">23358 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L23359" class="LineNr">23359 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23360" class="LineNr">23360 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L23361" class="LineNr">23361 </span> 3d/compare-eax-and 0/imm32 -<span id="L23362" class="LineNr">23362 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a>/disp8 -<span id="L23363" class="LineNr">23363 </span> 89/<- %ecx 0/r32/eax -<span id="L23364" class="LineNr">23364 </span> { -<span id="L23365" class="LineNr">23365 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L23366" class="LineNr">23366 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23367" class="LineNr">23367 </span> 3d/compare-eax-and 0/imm32 -<span id="L23368" class="LineNr">23368 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23369" class="LineNr">23369 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23370" class="LineNr">23370 </span> 89/<- %ecx 0/r32/eax -<span id="L23371" class="LineNr">23371 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23372" class="LineNr">23372 </span> } -<span id="L23373" class="LineNr">23373 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: -<span id="L23374" class="LineNr">23374 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> -<span id="L23375" class="LineNr">23375 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23376" class="LineNr">23376 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L23377" class="LineNr">23377 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a>/disp8 -<span id="L23378" class="LineNr">23378 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: -<span id="L23379" class="LineNr">23379 </span> <span class="subxComment"># if curr->operation != "return", abort</span> -<span id="L23380" class="LineNr">23380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23381" class="LineNr">23381 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) -<span id="L23382" class="LineNr">23382 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23383" class="LineNr">23383 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a>/disp8 -<span id="L23384" class="LineNr">23384 </span><span class="Constant">$check-final-stmt-is-return:end</span>: -<span id="L23385" class="LineNr">23385 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23386" class="LineNr">23386 </span> 59/pop-to-ecx -<span id="L23387" class="LineNr">23387 </span> 58/pop-to-eax -<span id="L23388" class="LineNr">23388 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23389" class="LineNr">23389 </span> 89/<- %esp 5/r32/ebp -<span id="L23390" class="LineNr">23390 </span> 5d/pop-to-ebp -<span id="L23391" class="LineNr">23391 </span> c3/return -<span id="L23392" class="LineNr">23392 </span> -<span id="L23393" class="LineNr">23393 </span><span class="Constant">$check-final-stmt-is-return:<a href='../114error.subx.html#L9'>error</a></span>: -<span id="L23394" class="LineNr">23394 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23395" class="LineNr">23395 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23396" class="LineNr">23396 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23397" class="LineNr">23397 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23398" class="LineNr">23398 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": final statement should be a 'return'\n"</span>) -<span id="L23399" class="LineNr">23399 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23400" class="LineNr">23400 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23401" class="LineNr">23401 </span> <span class="subxComment"># never gets here</span> -<span id="L23402" class="LineNr">23402 </span> -<span id="L23403" class="LineNr">23403 </span><span class="subxFunction">check-no-breaks</span>: <span class="subxComment"># block: (addr block), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L23404" class="LineNr">23404 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23405" class="LineNr">23405 </span> 55/push-ebp -<span id="L23406" class="LineNr">23406 </span> 89/<- %ebp 4/r32/esp -<span id="L23407" class="LineNr">23407 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23408" class="LineNr">23408 </span> 50/push-eax -<span id="L23409" class="LineNr">23409 </span> 51/push-ecx -<span id="L23410" class="LineNr">23410 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> -<span id="L23411" class="LineNr">23411 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L23412" class="LineNr">23412 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L23413" class="LineNr">23413 </span> 3d/compare-eax-and 0/imm32 -<span id="L23414" class="LineNr">23414 </span> 0f 84/jump-if-= $check-no-breaks:end/disp32 -<span id="L23415" class="LineNr">23415 </span> 89/<- %ecx 0/r32/eax -<span id="L23416" class="LineNr">23416 </span> { -<span id="L23417" class="LineNr">23417 </span> <span class="subxComment"># if curr->next == 0, break</span> -<span id="L23418" class="LineNr">23418 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23419" class="LineNr">23419 </span> 3d/compare-eax-and 0/imm32 -<span id="L23420" class="LineNr">23420 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23421" class="LineNr">23421 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> -<span id="L23422" class="LineNr">23422 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L23423" class="LineNr">23423 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L23424" class="LineNr">23424 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 -<span id="L23425" class="LineNr">23425 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> -<span id="L23426" class="LineNr">23426 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L23427" class="LineNr">23427 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L23428" class="LineNr">23428 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23429" class="LineNr">23429 </span> 75/jump-if-!= $check-no-breaks:<a href='../114error.subx.html#L9'>error</a>/disp8 -<span id="L23430" class="LineNr">23430 </span><span class="Constant">$check-no-breaks:continue</span>: -<span id="L23431" class="LineNr">23431 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L23432" class="LineNr">23432 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L23433" class="LineNr">23433 </span> 89/<- %ecx 0/r32/eax -<span id="L23434" class="LineNr">23434 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L23435" class="LineNr">23435 </span> } -<span id="L23436" class="LineNr">23436 </span><span class="Constant">$check-no-breaks:end</span>: -<span id="L23437" class="LineNr">23437 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23438" class="LineNr">23438 </span> 59/pop-to-ecx -<span id="L23439" class="LineNr">23439 </span> 58/pop-to-eax -<span id="L23440" class="LineNr">23440 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23441" class="LineNr">23441 </span> 89/<- %esp 5/r32/ebp -<span id="L23442" class="LineNr">23442 </span> 5d/pop-to-ebp -<span id="L23443" class="LineNr">23443 </span> c3/return -<span id="L23444" class="LineNr">23444 </span> -<span id="L23445" class="LineNr">23445 </span><span class="Constant">$check-no-breaks:<a href='../114error.subx.html#L9'>error</a></span>: -<span id="L23446" class="LineNr">23446 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23447" class="LineNr">23447 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23448" class="LineNr">23448 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23449" class="LineNr">23449 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23450" class="LineNr">23450 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" has outputs, so you cannot 'break' out of the outermost block. Use 'return'.\n"</span>) -<span id="L23451" class="LineNr">23451 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23452" class="LineNr">23452 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23453" class="LineNr">23453 </span> <span class="subxComment"># never gets here</span> -<span id="L23454" class="LineNr">23454 </span> -<span id="L23455" class="LineNr">23455 </span><span class="subxFunction">check-mu-get-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L23456" class="LineNr">23456 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23457" class="LineNr">23457 </span> 55/push-ebp -<span id="L23458" class="LineNr">23458 </span> 89/<- %ebp 4/r32/esp -<span id="L23459" class="LineNr">23459 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23460" class="LineNr">23460 </span> 50/push-eax -<span id="L23461" class="LineNr">23461 </span> 51/push-ecx -<span id="L23462" class="LineNr">23462 </span> 52/push-edx -<span id="L23463" class="LineNr">23463 </span> 53/push-ebx -<span id="L23464" class="LineNr">23464 </span> 56/push-esi -<span id="L23465" class="LineNr">23465 </span> 57/push-edi -<span id="L23466" class="LineNr">23466 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23467" class="LineNr">23467 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23468" class="LineNr">23468 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L23469" class="LineNr">23469 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L23470" class="LineNr">23470 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23471" class="LineNr">23471 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23472" class="LineNr">23472 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L23473" class="LineNr">23473 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23474" class="LineNr">23474 </span> 89/<- %ecx 0/r32/eax -<span id="L23475" class="LineNr">23475 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: -<span id="L23476" class="LineNr">23476 </span> <span class="subxH1Comment"># - check base type</span> -<span id="L23477" class="LineNr">23477 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> -<span id="L23478" class="LineNr">23478 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L23479" class="LineNr">23479 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23480" class="LineNr">23480 </span> 89/<- %ebx 0/r32/eax -<span id="L23481" class="LineNr">23481 </span> { -<span id="L23482" class="LineNr">23482 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23483" class="LineNr">23483 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L23484" class="LineNr">23484 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: -<span id="L23485" class="LineNr">23485 </span> <span class="subxComment"># if (type->left != addr) break</span> -<span id="L23486" class="LineNr">23486 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23487" class="LineNr">23487 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23488" class="LineNr">23488 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23489" class="LineNr">23489 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23490" class="LineNr">23490 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: -<span id="L23491" class="LineNr">23491 </span> <span class="subxComment"># now check for register</span> -<span id="L23492" class="LineNr">23492 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23493" class="LineNr">23493 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 -<span id="L23494" class="LineNr">23494 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: -<span id="L23495" class="LineNr">23495 </span> <span class="subxComment"># type->left is now an addr; skip it</span> -<span id="L23496" class="LineNr">23496 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23497" class="LineNr">23497 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L23498" class="LineNr">23498 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L23499" class="LineNr">23499 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: -<span id="L23500" class="LineNr">23500 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23501" class="LineNr">23501 </span> 89/<- %ebx 0/r32/eax -<span id="L23502" class="LineNr">23502 </span> } -<span id="L23503" class="LineNr">23503 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: -<span id="L23504" class="LineNr">23504 </span> <span class="subxComment"># ensure type is a container</span> -<span id="L23505" class="LineNr">23505 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23506" class="LineNr">23506 </span> { -<span id="L23507" class="LineNr">23507 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23508" class="LineNr">23508 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23509" class="LineNr">23509 </span> 89/<- %ebx 0/r32/eax -<span id="L23510" class="LineNr">23510 </span> } -<span id="L23511" class="LineNr">23511 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> -<span id="L23512" class="LineNr">23512 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> -<span id="L23513" class="LineNr">23513 </span> (<a href='mu.subx.html#L20030'>is-container?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23514" class="LineNr">23514 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23515" class="LineNr">23515 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 -<span id="L23516" class="LineNr">23516 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> -<span id="L23517" class="LineNr">23517 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> -<span id="L23518" class="LineNr">23518 </span> 68/push 0/imm32 -<span id="L23519" class="LineNr">23519 </span> 68/push 0/imm32 -<span id="L23520" class="LineNr">23520 </span> 89/<- %ecx 4/r32/esp -<span id="L23521" class="LineNr">23521 </span> <span class="subxS1Comment"># .</span> -<span id="L23522" class="LineNr">23522 </span> (<a href='mu.subx.html#L20113'>find-typeinfo</a> %ebx %ecx) -<span id="L23523" class="LineNr">23523 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L23524" class="LineNr">23524 </span> <span class="subxS1Comment"># . reclaim container</span> -<span id="L23525" class="LineNr">23525 </span> 81 0/subop/add %esp 8/imm32 -<span id="L23526" class="LineNr">23526 </span> <span class="subxS1Comment"># .</span> -<span id="L23527" class="LineNr">23527 </span> 89/<- %edx 0/r32/eax -<span id="L23528" class="LineNr">23528 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> -<span id="L23529" class="LineNr">23529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23530" class="LineNr">23530 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23531" class="LineNr">23531 </span> 89/<- %ecx 0/r32/eax -<span id="L23532" class="LineNr">23532 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L23533" class="LineNr">23533 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23534" class="LineNr">23534 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 -<span id="L23535" class="LineNr">23535 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> -<span id="L23536" class="LineNr">23536 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23537" class="LineNr">23537 </span> 89/<- %ecx 0/r32/eax -<span id="L23538" class="LineNr">23538 </span> <span class="subxH1Comment"># - check for valid field</span> -<span id="L23539" class="LineNr">23539 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> -<span id="L23540" class="LineNr">23540 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 -<span id="L23541" class="LineNr">23541 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L23542" class="LineNr">23542 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23543" class="LineNr">23543 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23544" class="LineNr">23544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23545" class="LineNr">23545 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23546" class="LineNr">23546 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 -<span id="L23547" class="LineNr">23547 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L23548" class="LineNr">23548 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23549" class="LineNr">23549 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L23550" class="LineNr">23550 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23551" class="LineNr">23551 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 -<span id="L23552" class="LineNr">23552 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23553" class="LineNr">23553 </span> 89/<- %edi 0/r32/eax -<span id="L23554" class="LineNr">23554 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: -<span id="L23555" class="LineNr">23555 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L23556" class="LineNr">23556 </span> <span class="subxComment"># must be in register</span> -<span id="L23557" class="LineNr">23557 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L23558" class="LineNr">23558 </span> 3d/compare-eax-and 0/imm32 -<span id="L23559" class="LineNr">23559 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 -<span id="L23560" class="LineNr">23560 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L23561" class="LineNr">23561 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23562" class="LineNr">23562 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23563" class="LineNr">23563 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L23564" class="LineNr">23564 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L23565" class="LineNr">23565 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23566" class="LineNr">23566 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> -<span id="L23567" class="LineNr">23567 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23568" class="LineNr">23568 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 -<span id="L23569" class="LineNr">23569 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: -<span id="L23570" class="LineNr">23570 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> -<span id="L23571" class="LineNr">23571 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23572" class="LineNr">23572 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23573" class="LineNr">23573 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> -<span id="L23574" class="LineNr">23574 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> -<span id="L23575" class="LineNr">23575 </span> { -<span id="L23576" class="LineNr">23576 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23577" class="LineNr">23577 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23578" class="LineNr">23578 </span> } -<span id="L23579" class="LineNr">23579 </span> 89/<- %edi 0/r32/eax -<span id="L23580" class="LineNr">23580 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> -<span id="L23581" class="LineNr">23581 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23582" class="LineNr">23582 </span> 89/<- %ecx 0/r32/eax -<span id="L23583" class="LineNr">23583 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> -<span id="L23584" class="LineNr">23584 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> -<span id="L23585" class="LineNr">23585 </span> (<a href='../131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> -<span id="L23586" class="LineNr">23586 </span> <span class="subxS1Comment"># .</span> -<span id="L23587" class="LineNr">23587 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L23588" class="LineNr">23588 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> -<span id="L23589" class="LineNr">23589 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23590" class="LineNr">23590 </span> <span class="subxS1Comment"># .</span> -<span id="L23591" class="LineNr">23591 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> -<span id="L23592" class="LineNr">23592 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23593" class="LineNr">23593 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 -<span id="L23594" class="LineNr">23594 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L23595" class="LineNr">23595 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23596" class="LineNr">23596 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23597" class="LineNr">23597 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23598" class="LineNr">23598 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 -<span id="L23599" class="LineNr">23599 </span><span class="Constant">$check-mu-get-stmt:end</span>: -<span id="L23600" class="LineNr">23600 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23601" class="LineNr">23601 </span> 5f/pop-to-edi -<span id="L23602" class="LineNr">23602 </span> 5e/pop-to-esi -<span id="L23603" class="LineNr">23603 </span> 5b/pop-to-ebx -<span id="L23604" class="LineNr">23604 </span> 5a/pop-to-edx -<span id="L23605" class="LineNr">23605 </span> 59/pop-to-ecx -<span id="L23606" class="LineNr">23606 </span> 58/pop-to-eax -<span id="L23607" class="LineNr">23607 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23608" class="LineNr">23608 </span> 89/<- %esp 5/r32/ebp -<span id="L23609" class="LineNr">23609 </span> 5d/pop-to-ebp -<span id="L23610" class="LineNr">23610 </span> c3/return -<span id="L23611" class="LineNr">23611 </span> -<span id="L23612" class="LineNr">23612 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: -<span id="L23613" class="LineNr">23613 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23614" class="LineNr">23614 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23615" class="LineNr">23615 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23616" class="LineNr">23616 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23617" class="LineNr">23617 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: too few inouts (2 required)\n"</span>) -<span id="L23618" class="LineNr">23618 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23619" class="LineNr">23619 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23620" class="LineNr">23620 </span> <span class="subxComment"># never gets here</span> -<span id="L23621" class="LineNr">23621 </span> -<span id="L23622" class="LineNr">23622 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: -<span id="L23623" class="LineNr">23623 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23624" class="LineNr">23624 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23625" class="LineNr">23625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23626" class="LineNr">23626 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23627" class="LineNr">23627 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: too many inouts (2 required)\n"</span>) -<span id="L23628" class="LineNr">23628 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23629" class="LineNr">23629 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23630" class="LineNr">23630 </span> <span class="subxComment"># never gets here</span> -<span id="L23631" class="LineNr">23631 </span> -<span id="L23632" class="LineNr">23632 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: -<span id="L23633" class="LineNr">23633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23634" class="LineNr">23634 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23635" class="LineNr">23635 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23636" class="LineNr">23636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23637" class="LineNr">23637 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: must have an output\n"</span>) -<span id="L23638" class="LineNr">23638 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23639" class="LineNr">23639 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23640" class="LineNr">23640 </span> <span class="subxComment"># never gets here</span> -<span id="L23641" class="LineNr">23641 </span> -<span id="L23642" class="LineNr">23642 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: -<span id="L23643" class="LineNr">23643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23644" class="LineNr">23644 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23645" class="LineNr">23645 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23646" class="LineNr">23646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23647" class="LineNr">23647 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: too many outputs (1 required)\n"</span>) -<span id="L23648" class="LineNr">23648 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23649" class="LineNr">23649 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23650" class="LineNr">23650 </span> <span class="subxComment"># never gets here</span> -<span id="L23651" class="LineNr">23651 </span> -<span id="L23652" class="LineNr">23652 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: -<span id="L23653" class="LineNr">23653 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> -<span id="L23654" class="LineNr">23654 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23655" class="LineNr">23655 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23656" class="LineNr">23656 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23657" class="LineNr">23657 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23658" class="LineNr">23658 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: var '"</span>) -<span id="L23659" class="LineNr">23659 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23660" class="LineNr">23660 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23661" class="LineNr">23661 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23662" class="LineNr">23662 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23663" class="LineNr">23663 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have a 'type' definition\n"</span>) -<span id="L23664" class="LineNr">23664 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23665" class="LineNr">23665 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23666" class="LineNr">23666 </span> <span class="subxComment"># never gets here</span> -<span id="L23667" class="LineNr">23667 </span> -<span id="L23668" class="LineNr">23668 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: -<span id="L23669" class="LineNr">23669 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23670" class="LineNr">23670 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23671" class="LineNr">23671 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23672" class="LineNr">23672 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23673" class="LineNr">23673 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: var '"</span>) -<span id="L23674" class="LineNr">23674 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23675" class="LineNr">23675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23676" class="LineNr">23676 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23677" class="LineNr">23677 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23678" class="LineNr">23678 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an 'addr' type, and so must live in a register\n"</span>) -<span id="L23679" class="LineNr">23679 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23680" class="LineNr">23680 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23681" class="LineNr">23681 </span> <span class="subxComment"># never gets here</span> -<span id="L23682" class="LineNr">23682 </span> -<span id="L23683" class="LineNr">23683 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: -<span id="L23684" class="LineNr">23684 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> -<span id="L23685" class="LineNr">23685 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23686" class="LineNr">23686 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23687" class="LineNr">23687 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23688" class="LineNr">23688 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23689" class="LineNr">23689 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: type '"</span>) -<span id="L23690" class="LineNr">23690 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> -<span id="L23691" class="LineNr">23691 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L23692" class="LineNr">23692 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L23693" class="LineNr">23693 </span> { -<span id="L23694" class="LineNr">23694 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L23695" class="LineNr">23695 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23696" class="LineNr">23696 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L23697" class="LineNr">23697 </span> } -<span id="L23698" class="LineNr">23698 </span> <span class="subxS1Comment"># .</span> -<span id="L23699" class="LineNr">23699 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) -<span id="L23700" class="LineNr">23700 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23701" class="LineNr">23701 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23702" class="LineNr">23702 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L23703" class="LineNr">23703 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23704" class="LineNr">23704 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23705" class="LineNr">23705 </span> <span class="subxComment"># never gets here</span> -<span id="L23706" class="LineNr">23706 </span> -<span id="L23707" class="LineNr">23707 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: -<span id="L23708" class="LineNr">23708 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23709" class="LineNr">23709 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23710" class="LineNr">23710 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23711" class="LineNr">23711 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23712" class="LineNr">23712 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: output '"</span>) -<span id="L23713" class="LineNr">23713 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23714" class="LineNr">23714 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23715" class="LineNr">23715 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) -<span id="L23716" class="LineNr">23716 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23717" class="LineNr">23717 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23718" class="LineNr">23718 </span> <span class="subxComment"># never gets here</span> -<span id="L23719" class="LineNr">23719 </span> -<span id="L23720" class="LineNr">23720 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: -<span id="L23721" class="LineNr">23721 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23722" class="LineNr">23722 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23723" class="LineNr">23723 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23724" class="LineNr">23724 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23725" class="LineNr">23725 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: output must be an addr\n"</span>) -<span id="L23726" class="LineNr">23726 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23727" class="LineNr">23727 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23728" class="LineNr">23728 </span> <span class="subxComment"># never gets here</span> -<span id="L23729" class="LineNr">23729 </span> -<span id="L23730" class="LineNr">23730 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: -<span id="L23731" class="LineNr">23731 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23732" class="LineNr">23732 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23733" class="LineNr">23733 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23734" class="LineNr">23734 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23735" class="LineNr">23735 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../131table.subx.html#L26'>get</a>: wrong output type for member '"</span>) -<span id="L23736" class="LineNr">23736 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) -<span id="L23737" class="LineNr">23737 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) -<span id="L23738" class="LineNr">23738 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 -<span id="L23739" class="LineNr">23739 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi -<span id="L23740" class="LineNr">23740 </span> { -<span id="L23741" class="LineNr">23741 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L23742" class="LineNr">23742 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23743" class="LineNr">23743 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) -<span id="L23744" class="LineNr">23744 </span> } -<span id="L23745" class="LineNr">23745 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) -<span id="L23746" class="LineNr">23746 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23747" class="LineNr">23747 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23748" class="LineNr">23748 </span> <span class="subxComment"># never gets here</span> -<span id="L23749" class="LineNr">23749 </span> -<span id="L23750" class="LineNr">23750 </span><span class="subxFunction">check-mu-index-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L23751" class="LineNr">23751 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23752" class="LineNr">23752 </span> 55/push-ebp -<span id="L23753" class="LineNr">23753 </span> 89/<- %ebp 4/r32/esp -<span id="L23754" class="LineNr">23754 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L23755" class="LineNr">23755 </span> 50/push-eax -<span id="L23756" class="LineNr">23756 </span> 51/push-ecx -<span id="L23757" class="LineNr">23757 </span> 52/push-edx -<span id="L23758" class="LineNr">23758 </span> 53/push-ebx -<span id="L23759" class="LineNr">23759 </span> 56/push-esi -<span id="L23760" class="LineNr">23760 </span> 57/push-edi -<span id="L23761" class="LineNr">23761 </span> <span class="subxComment"># esi = stmt</span> -<span id="L23762" class="LineNr">23762 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L23763" class="LineNr">23763 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L23764" class="LineNr">23764 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L23765" class="LineNr">23765 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23766" class="LineNr">23766 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: -<span id="L23767" class="LineNr">23767 </span> 3d/compare-eax-and 0/imm32 -<span id="L23768" class="LineNr">23768 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L23769" class="LineNr">23769 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23770" class="LineNr">23770 </span> 89/<- %ecx 0/r32/eax -<span id="L23771" class="LineNr">23771 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L23772" class="LineNr">23772 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L23773" class="LineNr">23773 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23774" class="LineNr">23774 </span> 89/<- %ebx 0/r32/eax -<span id="L23775" class="LineNr">23775 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L23776" class="LineNr">23776 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23777" class="LineNr">23777 </span> { -<span id="L23778" class="LineNr">23778 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23779" class="LineNr">23779 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L23780" class="LineNr">23780 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23781" class="LineNr">23781 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 -<span id="L23782" class="LineNr">23782 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L23783" class="LineNr">23783 </span> } -<span id="L23784" class="LineNr">23784 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: -<span id="L23785" class="LineNr">23785 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L23786" class="LineNr">23786 </span> { -<span id="L23787" class="LineNr">23787 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23788" class="LineNr">23788 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23789" class="LineNr">23789 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23790" class="LineNr">23790 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23791" class="LineNr">23791 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23792" class="LineNr">23792 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L23793" class="LineNr">23793 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23794" class="LineNr">23794 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23795" class="LineNr">23795 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L23796" class="LineNr">23796 </span> } -<span id="L23797" class="LineNr">23797 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L23798" class="LineNr">23798 </span> { -<span id="L23799" class="LineNr">23799 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23800" class="LineNr">23800 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23801" class="LineNr">23801 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23802" class="LineNr">23802 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23803" class="LineNr">23803 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: -<span id="L23804" class="LineNr">23804 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23805" class="LineNr">23805 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23806" class="LineNr">23806 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L23807" class="LineNr">23807 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23808" class="LineNr">23808 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 -<span id="L23809" class="LineNr">23809 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: -<span id="L23810" class="LineNr">23810 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23811" class="LineNr">23811 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L23812" class="LineNr">23812 </span> } -<span id="L23813" class="LineNr">23813 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L23814" class="LineNr">23814 </span> { -<span id="L23815" class="LineNr">23815 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23816" class="LineNr">23816 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L23817" class="LineNr">23817 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23818" class="LineNr">23818 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23819" class="LineNr">23819 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: -<span id="L23820" class="LineNr">23820 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23821" class="LineNr">23821 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 -<span id="L23822" class="LineNr">23822 </span> } -<span id="L23823" class="LineNr">23823 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L23824" class="LineNr">23824 </span> { -<span id="L23825" class="LineNr">23825 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23826" class="LineNr">23826 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23827" class="LineNr">23827 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23828" class="LineNr">23828 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23829" class="LineNr">23829 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L23830" class="LineNr">23830 </span> 89/<- %ebx 0/r32/eax -<span id="L23831" class="LineNr">23831 </span> } -<span id="L23832" class="LineNr">23832 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L23833" class="LineNr">23833 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L23834" class="LineNr">23834 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23835" class="LineNr">23835 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23836" class="LineNr">23836 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: -<span id="L23837" class="LineNr">23837 </span> 3d/compare-eax-and 0/imm32 -<span id="L23838" class="LineNr">23838 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 -<span id="L23839" class="LineNr">23839 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23840" class="LineNr">23840 </span> 89/<- %ecx 0/r32/eax -<span id="L23841" class="LineNr">23841 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L23842" class="LineNr">23842 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L23843" class="LineNr">23843 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23844" class="LineNr">23844 </span> 89/<- %edx 0/r32/eax -<span id="L23845" class="LineNr">23845 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> -<span id="L23846" class="LineNr">23846 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23847" class="LineNr">23847 </span> { -<span id="L23848" class="LineNr">23848 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23849" class="LineNr">23849 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: -<span id="L23850" class="LineNr">23850 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L23851" class="LineNr">23851 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23852" class="LineNr">23852 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L23853" class="LineNr">23853 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L23854" class="LineNr">23854 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23855" class="LineNr">23855 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 -<span id="L23856" class="LineNr">23856 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> -<span id="L23857" class="LineNr">23857 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23858" class="LineNr">23858 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 -<span id="L23859" class="LineNr">23859 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L23860" class="LineNr">23860 </span> } -<span id="L23861" class="LineNr">23861 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> -<span id="L23862" class="LineNr">23862 </span> { -<span id="L23863" class="LineNr">23863 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23864" class="LineNr">23864 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: -<span id="L23865" class="LineNr">23865 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23866" class="LineNr">23866 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L23867" class="LineNr">23867 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23868" class="LineNr">23868 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 -<span id="L23869" class="LineNr">23869 </span> } -<span id="L23870" class="LineNr">23870 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: -<span id="L23871" class="LineNr">23871 </span> <span class="subxComment"># check index is either a literal or in a register</span> -<span id="L23872" class="LineNr">23872 </span> { -<span id="L23873" class="LineNr">23873 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L23874" class="LineNr">23874 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23875" class="LineNr">23875 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L23876" class="LineNr">23876 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: -<span id="L23877" class="LineNr">23877 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L23878" class="LineNr">23878 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 -<span id="L23879" class="LineNr">23879 </span> } -<span id="L23880" class="LineNr">23880 </span> <span class="subxH1Comment"># - if index is an 'int', check that element type of base has size 1, 2, 4 or 8 bytes.</span> -<span id="L23881" class="LineNr">23881 </span> { -<span id="L23882" class="LineNr">23882 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L23883" class="LineNr">23883 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23884" class="LineNr">23884 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23885" class="LineNr">23885 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: -<span id="L23886" class="LineNr">23886 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23887" class="LineNr">23887 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23888" class="LineNr">23888 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> -<span id="L23889" class="LineNr">23889 </span> 3d/compare-eax-and 1/imm32 -<span id="L23890" class="LineNr">23890 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23891" class="LineNr">23891 </span> 3d/compare-eax-and 2/imm32 -<span id="L23892" class="LineNr">23892 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23893" class="LineNr">23893 </span> 3d/compare-eax-and 4/imm32 -<span id="L23894" class="LineNr">23894 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23895" class="LineNr">23895 </span> 3d/compare-eax-and 8/imm32 -<span id="L23896" class="LineNr">23896 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L23897" class="LineNr">23897 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 -<span id="L23898" class="LineNr">23898 </span> } -<span id="L23899" class="LineNr">23899 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L23900" class="LineNr">23900 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L23901" class="LineNr">23901 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23902" class="LineNr">23902 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23903" class="LineNr">23903 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23904" class="LineNr">23904 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 -<span id="L23905" class="LineNr">23905 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L23906" class="LineNr">23906 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L23907" class="LineNr">23907 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23908" class="LineNr">23908 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23909" class="LineNr">23909 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 -<span id="L23910" class="LineNr">23910 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L23911" class="LineNr">23911 </span> 89/<- %edi 0/r32/eax -<span id="L23912" class="LineNr">23912 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L23913" class="LineNr">23913 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L23914" class="LineNr">23914 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L23915" class="LineNr">23915 </span> 89/<- %edx 0/r32/eax -<span id="L23916" class="LineNr">23916 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L23917" class="LineNr">23917 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L23918" class="LineNr">23918 </span> <span class="subxComment"># type must start with (addr ...)</span> -<span id="L23919" class="LineNr">23919 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L23920" class="LineNr">23920 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L23921" class="LineNr">23921 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23922" class="LineNr">23922 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 -<span id="L23923" class="LineNr">23923 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L23924" class="LineNr">23924 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L23925" class="LineNr">23925 </span> 89/<- %ebx 0/r32/eax -<span id="L23926" class="LineNr">23926 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L23927" class="LineNr">23927 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L23928" class="LineNr">23928 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23929" class="LineNr">23929 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 -<span id="L23930" class="LineNr">23930 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L23931" class="LineNr">23931 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L23932" class="LineNr">23932 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L23933" class="LineNr">23933 </span> 3d/compare-eax-and 0/imm32/false -<span id="L23934" class="LineNr">23934 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 -<span id="L23935" class="LineNr">23935 </span><span class="Constant">$check-mu-index-stmt:end</span>: -<span id="L23936" class="LineNr">23936 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L23937" class="LineNr">23937 </span> 5f/pop-to-edi -<span id="L23938" class="LineNr">23938 </span> 5e/pop-to-esi -<span id="L23939" class="LineNr">23939 </span> 5b/pop-to-ebx -<span id="L23940" class="LineNr">23940 </span> 5a/pop-to-edx -<span id="L23941" class="LineNr">23941 </span> 59/pop-to-ecx -<span id="L23942" class="LineNr">23942 </span> 58/pop-to-eax -<span id="L23943" class="LineNr">23943 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L23944" class="LineNr">23944 </span> 89/<- %esp 5/r32/ebp -<span id="L23945" class="LineNr">23945 </span> 5d/pop-to-ebp -<span id="L23946" class="LineNr">23946 </span> c3/return -<span id="L23947" class="LineNr">23947 </span> -<span id="L23948" class="LineNr">23948 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: -<span id="L23949" class="LineNr">23949 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23950" class="LineNr">23950 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23951" class="LineNr">23951 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23952" class="LineNr">23952 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23953" class="LineNr">23953 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L23954" class="LineNr">23954 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23955" class="LineNr">23955 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23956" class="LineNr">23956 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L23957" class="LineNr">23957 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23958" class="LineNr">23958 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23959" class="LineNr">23959 </span> <span class="subxComment"># never gets here</span> -<span id="L23960" class="LineNr">23960 </span> -<span id="L23961" class="LineNr">23961 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: -<span id="L23962" class="LineNr">23962 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23963" class="LineNr">23963 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23964" class="LineNr">23964 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23965" class="LineNr">23965 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23966" class="LineNr">23966 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) -<span id="L23967" class="LineNr">23967 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23968" class="LineNr">23968 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23969" class="LineNr">23969 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of its elements\n"</span>) -<span id="L23970" class="LineNr">23970 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23971" class="LineNr">23971 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23972" class="LineNr">23972 </span> <span class="subxComment"># never gets here</span> -<span id="L23973" class="LineNr">23973 </span> -<span id="L23974" class="LineNr">23974 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: -<span id="L23975" class="LineNr">23975 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23976" class="LineNr">23976 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23977" class="LineNr">23977 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23978" class="LineNr">23978 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23979" class="LineNr">23979 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L23980" class="LineNr">23980 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23981" class="LineNr">23981 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23982" class="LineNr">23982 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an addr to an array, and so must live in a register\n"</span>) -<span id="L23983" class="LineNr">23983 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23984" class="LineNr">23984 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23985" class="LineNr">23985 </span> <span class="subxComment"># never gets here</span> -<span id="L23986" class="LineNr">23986 </span> -<span id="L23987" class="LineNr">23987 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: -<span id="L23988" class="LineNr">23988 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L23989" class="LineNr">23989 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L23990" class="LineNr">23990 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L23991" class="LineNr">23991 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23992" class="LineNr">23992 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) -<span id="L23993" class="LineNr">23993 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L23994" class="LineNr">23994 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L23995" class="LineNr">23995 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an array, and so must live on the stack\n"</span>) -<span id="L23996" class="LineNr">23996 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L23997" class="LineNr">23997 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L23998" class="LineNr">23998 </span> <span class="subxComment"># never gets here</span> -<span id="L23999" class="LineNr">23999 </span> -<span id="L24000" class="LineNr">24000 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: -<span id="L24001" class="LineNr">24001 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24002" class="LineNr">24002 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24003" class="LineNr">24003 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24004" class="LineNr">24004 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24005" class="LineNr">24005 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: too few inouts (2 required)\n"</span>) -<span id="L24006" class="LineNr">24006 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24007" class="LineNr">24007 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24008" class="LineNr">24008 </span> <span class="subxComment"># never gets here</span> -<span id="L24009" class="LineNr">24009 </span> -<span id="L24010" class="LineNr">24010 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: -<span id="L24011" class="LineNr">24011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24012" class="LineNr">24012 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24013" class="LineNr">24013 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24014" class="LineNr">24014 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24015" class="LineNr">24015 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L24016" class="LineNr">24016 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24017" class="LineNr">24017 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24018" class="LineNr">24018 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or offset\n"</span>) -<span id="L24019" class="LineNr">24019 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24020" class="LineNr">24020 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24021" class="LineNr">24021 </span> <span class="subxComment"># never gets here</span> -<span id="L24022" class="LineNr">24022 </span> -<span id="L24023" class="LineNr">24023 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: -<span id="L24024" class="LineNr">24024 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24025" class="LineNr">24025 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24026" class="LineNr">24026 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24027" class="LineNr">24027 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24028" class="LineNr">24028 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) -<span id="L24029" class="LineNr">24029 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24030" class="LineNr">24030 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24031" class="LineNr">24031 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of array elements\n"</span>) -<span id="L24032" class="LineNr">24032 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24033" class="LineNr">24033 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24034" class="LineNr">24034 </span> <span class="subxComment"># never gets here</span> -<span id="L24035" class="LineNr">24035 </span> -<span id="L24036" class="LineNr">24036 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: -<span id="L24037" class="LineNr">24037 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24038" class="LineNr">24038 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24039" class="LineNr">24039 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24040" class="LineNr">24040 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24041" class="LineNr">24041 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) -<span id="L24042" class="LineNr">24042 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24043" class="LineNr">24043 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24044" class="LineNr">24044 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register\n"</span>) -<span id="L24045" class="LineNr">24045 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24046" class="LineNr">24046 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24047" class="LineNr">24047 </span> <span class="subxComment"># never gets here</span> -<span id="L24048" class="LineNr">24048 </span> -<span id="L24049" class="LineNr">24049 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: -<span id="L24050" class="LineNr">24050 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24051" class="LineNr">24051 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24052" class="LineNr">24052 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24053" class="LineNr">24053 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24054" class="LineNr">24054 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: cannot take an int for array '"</span>) -<span id="L24055" class="LineNr">24055 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24056" class="LineNr">24056 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24057" class="LineNr">24057 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24058" class="LineNr">24058 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24059" class="LineNr">24059 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'; create an offset instead. See mu.md for details.\n"</span>) -<span id="L24060" class="LineNr">24060 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24061" class="LineNr">24061 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24062" class="LineNr">24062 </span> <span class="subxComment"># never gets here</span> -<span id="L24063" class="LineNr">24063 </span> -<span id="L24064" class="LineNr">24064 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: -<span id="L24065" class="LineNr">24065 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24066" class="LineNr">24066 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24067" class="LineNr">24067 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24068" class="LineNr">24068 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24069" class="LineNr">24069 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: too many inouts (2 required)\n"</span>) -<span id="L24070" class="LineNr">24070 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24071" class="LineNr">24071 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24072" class="LineNr">24072 </span> <span class="subxComment"># never gets here</span> -<span id="L24073" class="LineNr">24073 </span> -<span id="L24074" class="LineNr">24074 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: -<span id="L24075" class="LineNr">24075 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24076" class="LineNr">24076 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24077" class="LineNr">24077 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24078" class="LineNr">24078 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24079" class="LineNr">24079 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: must have an output\n"</span>) -<span id="L24080" class="LineNr">24080 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24081" class="LineNr">24081 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24082" class="LineNr">24082 </span> <span class="subxComment"># never gets here</span> -<span id="L24083" class="LineNr">24083 </span> -<span id="L24084" class="LineNr">24084 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: -<span id="L24085" class="LineNr">24085 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24086" class="LineNr">24086 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24087" class="LineNr">24087 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24088" class="LineNr">24088 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24089" class="LineNr">24089 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: too many outputs (1 required)\n"</span>) -<span id="L24090" class="LineNr">24090 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24091" class="LineNr">24091 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24092" class="LineNr">24092 </span> <span class="subxComment"># never gets here</span> -<span id="L24093" class="LineNr">24093 </span> -<span id="L24094" class="LineNr">24094 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: -<span id="L24095" class="LineNr">24095 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24096" class="LineNr">24096 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24097" class="LineNr">24097 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24098" class="LineNr">24098 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24099" class="LineNr">24099 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24100" class="LineNr">24100 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24101" class="LineNr">24101 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24102" class="LineNr">24102 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) -<span id="L24103" class="LineNr">24103 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24104" class="LineNr">24104 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24105" class="LineNr">24105 </span> <span class="subxComment"># never gets here</span> -<span id="L24106" class="LineNr">24106 </span> -<span id="L24107" class="LineNr">24107 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: -<span id="L24108" class="LineNr">24108 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24109" class="LineNr">24109 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24110" class="LineNr">24110 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24111" class="LineNr">24111 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24112" class="LineNr">24112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24113" class="LineNr">24113 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24114" class="LineNr">24114 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24115" class="LineNr">24115 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L24116" class="LineNr">24116 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24117" class="LineNr">24117 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24118" class="LineNr">24118 </span> <span class="subxComment"># never gets here</span> -<span id="L24119" class="LineNr">24119 </span> -<span id="L24120" class="LineNr">24120 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: -<span id="L24121" class="LineNr">24121 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24122" class="LineNr">24122 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24123" class="LineNr">24123 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24124" class="LineNr">24124 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24125" class="LineNr">24125 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) -<span id="L24126" class="LineNr">24126 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24127" class="LineNr">24127 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24128" class="LineNr">24128 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) -<span id="L24129" class="LineNr">24129 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24130" class="LineNr">24130 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24131" class="LineNr">24131 </span> <span class="subxComment"># never gets here</span> -<span id="L24132" class="LineNr">24132 </span> -<span id="L24133" class="LineNr">24133 </span><span class="subxFunction">check-mu-length-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L24134" class="LineNr">24134 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24135" class="LineNr">24135 </span> 55/push-ebp -<span id="L24136" class="LineNr">24136 </span> 89/<- %ebp 4/r32/esp -<span id="L24137" class="LineNr">24137 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24138" class="LineNr">24138 </span> 50/push-eax -<span id="L24139" class="LineNr">24139 </span> 51/push-ecx -<span id="L24140" class="LineNr">24140 </span> 52/push-edx -<span id="L24141" class="LineNr">24141 </span> 53/push-ebx -<span id="L24142" class="LineNr">24142 </span> 56/push-esi -<span id="L24143" class="LineNr">24143 </span> 57/push-edi -<span id="L24144" class="LineNr">24144 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24145" class="LineNr">24145 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24146" class="LineNr">24146 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L24147" class="LineNr">24147 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L24148" class="LineNr">24148 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24149" class="LineNr">24149 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: -<span id="L24150" class="LineNr">24150 </span> 3d/compare-eax-and 0/imm32 -<span id="L24151" class="LineNr">24151 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 -<span id="L24152" class="LineNr">24152 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24153" class="LineNr">24153 </span> 89/<- %ecx 0/r32/eax -<span id="L24154" class="LineNr">24154 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L24155" class="LineNr">24155 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L24156" class="LineNr">24156 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24157" class="LineNr">24157 </span> 89/<- %ebx 0/r32/eax -<span id="L24158" class="LineNr">24158 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L24159" class="LineNr">24159 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24160" class="LineNr">24160 </span> { -<span id="L24161" class="LineNr">24161 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24162" class="LineNr">24162 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L24163" class="LineNr">24163 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24164" class="LineNr">24164 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 -<span id="L24165" class="LineNr">24165 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24166" class="LineNr">24166 </span> } -<span id="L24167" class="LineNr">24167 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: -<span id="L24168" class="LineNr">24168 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24169" class="LineNr">24169 </span> { -<span id="L24170" class="LineNr">24170 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24171" class="LineNr">24171 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24172" class="LineNr">24172 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24173" class="LineNr">24173 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24174" class="LineNr">24174 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24175" class="LineNr">24175 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24176" class="LineNr">24176 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24177" class="LineNr">24177 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24178" class="LineNr">24178 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24179" class="LineNr">24179 </span> } -<span id="L24180" class="LineNr">24180 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24181" class="LineNr">24181 </span> { -<span id="L24182" class="LineNr">24182 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24183" class="LineNr">24183 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24184" class="LineNr">24184 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24185" class="LineNr">24185 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24186" class="LineNr">24186 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: -<span id="L24187" class="LineNr">24187 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24188" class="LineNr">24188 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24189" class="LineNr">24189 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24190" class="LineNr">24190 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24191" class="LineNr">24191 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 -<span id="L24192" class="LineNr">24192 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: -<span id="L24193" class="LineNr">24193 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24194" class="LineNr">24194 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 -<span id="L24195" class="LineNr">24195 </span> } -<span id="L24196" class="LineNr">24196 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> -<span id="L24197" class="LineNr">24197 </span> { -<span id="L24198" class="LineNr">24198 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24199" class="LineNr">24199 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24200" class="LineNr">24200 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24201" class="LineNr">24201 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24202" class="LineNr">24202 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: -<span id="L24203" class="LineNr">24203 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L24204" class="LineNr">24204 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 -<span id="L24205" class="LineNr">24205 </span> } -<span id="L24206" class="LineNr">24206 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24207" class="LineNr">24207 </span> { -<span id="L24208" class="LineNr">24208 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24209" class="LineNr">24209 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24210" class="LineNr">24210 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24211" class="LineNr">24211 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24212" class="LineNr">24212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24213" class="LineNr">24213 </span> 89/<- %ebx 0/r32/eax -<span id="L24214" class="LineNr">24214 </span> } -<span id="L24215" class="LineNr">24215 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24216" class="LineNr">24216 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24217" class="LineNr">24217 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24218" class="LineNr">24218 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24219" class="LineNr">24219 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 -<span id="L24220" class="LineNr">24220 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24221" class="LineNr">24221 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24222" class="LineNr">24222 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24223" class="LineNr">24223 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24224" class="LineNr">24224 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 -<span id="L24225" class="LineNr">24225 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24226" class="LineNr">24226 </span> 89/<- %edi 0/r32/eax -<span id="L24227" class="LineNr">24227 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24228" class="LineNr">24228 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24229" class="LineNr">24229 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24230" class="LineNr">24230 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L24231" class="LineNr">24231 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24232" class="LineNr">24232 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 -<span id="L24233" class="LineNr">24233 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24234" class="LineNr">24234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24235" class="LineNr">24235 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24236" class="LineNr">24236 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24237" class="LineNr">24237 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 -<span id="L24238" class="LineNr">24238 </span><span class="Constant">$check-mu-length-stmt:end</span>: -<span id="L24239" class="LineNr">24239 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24240" class="LineNr">24240 </span> 5f/pop-to-edi -<span id="L24241" class="LineNr">24241 </span> 5e/pop-to-esi -<span id="L24242" class="LineNr">24242 </span> 5b/pop-to-ebx -<span id="L24243" class="LineNr">24243 </span> 5a/pop-to-edx -<span id="L24244" class="LineNr">24244 </span> 59/pop-to-ecx -<span id="L24245" class="LineNr">24245 </span> 58/pop-to-eax -<span id="L24246" class="LineNr">24246 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24247" class="LineNr">24247 </span> 89/<- %esp 5/r32/ebp -<span id="L24248" class="LineNr">24248 </span> 5d/pop-to-ebp -<span id="L24249" class="LineNr">24249 </span> c3/return -<span id="L24250" class="LineNr">24250 </span> -<span id="L24251" class="LineNr">24251 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: -<span id="L24252" class="LineNr">24252 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24253" class="LineNr">24253 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24254" class="LineNr">24254 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24255" class="LineNr">24255 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24256" class="LineNr">24256 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24257" class="LineNr">24257 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24258" class="LineNr">24258 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24259" class="LineNr">24259 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L24260" class="LineNr">24260 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24261" class="LineNr">24261 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24262" class="LineNr">24262 </span> <span class="subxComment"># never gets here</span> -<span id="L24263" class="LineNr">24263 </span> -<span id="L24264" class="LineNr">24264 </span><span class="Constant">$check-mu-length-stmt:error-base-array-atom-type</span>: -<span id="L24265" class="LineNr">24265 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24266" class="LineNr">24266 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24267" class="LineNr">24267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24268" class="LineNr">24268 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24269" class="LineNr">24269 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: array '"</span>) -<span id="L24270" class="LineNr">24270 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24271" class="LineNr">24271 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24272" class="LineNr">24272 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of its elements\n"</span>) -<span id="L24273" class="LineNr">24273 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24274" class="LineNr">24274 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24275" class="LineNr">24275 </span> <span class="subxComment"># never gets here</span> -<span id="L24276" class="LineNr">24276 </span> -<span id="L24277" class="LineNr">24277 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: -<span id="L24278" class="LineNr">24278 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24279" class="LineNr">24279 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24280" class="LineNr">24280 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24281" class="LineNr">24281 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24282" class="LineNr">24282 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24283" class="LineNr">24283 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24284" class="LineNr">24284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24285" class="LineNr">24285 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an addr to an array, and so must live in a register\n"</span>) -<span id="L24286" class="LineNr">24286 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24287" class="LineNr">24287 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24288" class="LineNr">24288 </span> <span class="subxComment"># never gets here</span> -<span id="L24289" class="LineNr">24289 </span> -<span id="L24290" class="LineNr">24290 </span><span class="Constant">$check-mu-length-stmt:error-base-array-type-in-register</span>: -<span id="L24291" class="LineNr">24291 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24292" class="LineNr">24292 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24293" class="LineNr">24293 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24294" class="LineNr">24294 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24295" class="LineNr">24295 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) -<span id="L24296" class="LineNr">24296 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24297" class="LineNr">24297 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24298" class="LineNr">24298 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an array, and so must live on the stack\n"</span>) -<span id="L24299" class="LineNr">24299 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24300" class="LineNr">24300 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24301" class="LineNr">24301 </span> <span class="subxComment"># never gets here</span> -<span id="L24302" class="LineNr">24302 </span> -<span id="L24303" class="LineNr">24303 </span><span class="Constant">$check-mu-length-stmt:error-too-few-inouts</span>: -<span id="L24304" class="LineNr">24304 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24305" class="LineNr">24305 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24306" class="LineNr">24306 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24307" class="LineNr">24307 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24308" class="LineNr">24308 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: too few inouts (1 required)\n"</span>) -<span id="L24309" class="LineNr">24309 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24310" class="LineNr">24310 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24311" class="LineNr">24311 </span> <span class="subxComment"># never gets here</span> -<span id="L24312" class="LineNr">24312 </span> -<span id="L24313" class="LineNr">24313 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: -<span id="L24314" class="LineNr">24314 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24315" class="LineNr">24315 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24316" class="LineNr">24316 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24317" class="LineNr">24317 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24318" class="LineNr">24318 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L24319" class="LineNr">24319 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24320" class="LineNr">24320 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24321" class="LineNr">24321 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or offset\n"</span>) -<span id="L24322" class="LineNr">24322 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24323" class="LineNr">24323 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24324" class="LineNr">24324 </span> <span class="subxComment"># never gets here</span> -<span id="L24325" class="LineNr">24325 </span> -<span id="L24326" class="LineNr">24326 </span><span class="Constant">$check-mu-length-stmt:error-index-offset-atom-type</span>: -<span id="L24327" class="LineNr">24327 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24328" class="LineNr">24328 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24329" class="LineNr">24329 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24330" class="LineNr">24330 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24331" class="LineNr">24331 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: offset '"</span>) -<span id="L24332" class="LineNr">24332 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24333" class="LineNr">24333 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24334" class="LineNr">24334 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of array elements\n"</span>) -<span id="L24335" class="LineNr">24335 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24336" class="LineNr">24336 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24337" class="LineNr">24337 </span> <span class="subxComment"># never gets here</span> -<span id="L24338" class="LineNr">24338 </span> -<span id="L24339" class="LineNr">24339 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: -<span id="L24340" class="LineNr">24340 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24341" class="LineNr">24341 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24342" class="LineNr">24342 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24343" class="LineNr">24343 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24344" class="LineNr">24344 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) -<span id="L24345" class="LineNr">24345 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24346" class="LineNr">24346 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24347" class="LineNr">24347 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register\n"</span>) -<span id="L24348" class="LineNr">24348 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24349" class="LineNr">24349 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24350" class="LineNr">24350 </span> <span class="subxComment"># never gets here</span> -<span id="L24351" class="LineNr">24351 </span> -<span id="L24352" class="LineNr">24352 </span><span class="Constant">$check-mu-length-stmt:error-index-needs-offset</span>: -<span id="L24353" class="LineNr">24353 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24354" class="LineNr">24354 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24355" class="LineNr">24355 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24356" class="LineNr">24356 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24357" class="LineNr">24357 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: cannot take an int for array '"</span>) -<span id="L24358" class="LineNr">24358 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24359" class="LineNr">24359 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24360" class="LineNr">24360 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24361" class="LineNr">24361 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24362" class="LineNr">24362 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'; create an offset instead. See mu.md for details.\n"</span>) -<span id="L24363" class="LineNr">24363 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24364" class="LineNr">24364 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24365" class="LineNr">24365 </span> <span class="subxComment"># never gets here</span> -<span id="L24366" class="LineNr">24366 </span> -<span id="L24367" class="LineNr">24367 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: -<span id="L24368" class="LineNr">24368 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24369" class="LineNr">24369 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24370" class="LineNr">24370 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24371" class="LineNr">24371 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24372" class="LineNr">24372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: too many inouts (1 required)\n"</span>) -<span id="L24373" class="LineNr">24373 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24374" class="LineNr">24374 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24375" class="LineNr">24375 </span> <span class="subxComment"># never gets here</span> -<span id="L24376" class="LineNr">24376 </span> -<span id="L24377" class="LineNr">24377 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: -<span id="L24378" class="LineNr">24378 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24379" class="LineNr">24379 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24380" class="LineNr">24380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24381" class="LineNr">24381 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24382" class="LineNr">24382 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: must have an output\n"</span>) -<span id="L24383" class="LineNr">24383 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24384" class="LineNr">24384 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24385" class="LineNr">24385 </span> <span class="subxComment"># never gets here</span> -<span id="L24386" class="LineNr">24386 </span> -<span id="L24387" class="LineNr">24387 </span><span class="Constant">$check-mu-length-stmt:error-too-many-outputs</span>: -<span id="L24388" class="LineNr">24388 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24389" class="LineNr">24389 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24390" class="LineNr">24390 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24391" class="LineNr">24391 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24392" class="LineNr">24392 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: too many outputs (1 required)\n"</span>) -<span id="L24393" class="LineNr">24393 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24394" class="LineNr">24394 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24395" class="LineNr">24395 </span> <span class="subxComment"># never gets here</span> -<span id="L24396" class="LineNr">24396 </span> -<span id="L24397" class="LineNr">24397 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: -<span id="L24398" class="LineNr">24398 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24399" class="LineNr">24399 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24400" class="LineNr">24400 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24401" class="LineNr">24401 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24402" class="LineNr">24402 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L24403" class="LineNr">24403 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24404" class="LineNr">24404 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24405" class="LineNr">24405 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) -<span id="L24406" class="LineNr">24406 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24407" class="LineNr">24407 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24408" class="LineNr">24408 </span> <span class="subxComment"># never gets here</span> -<span id="L24409" class="LineNr">24409 </span> -<span id="L24410" class="LineNr">24410 </span><span class="Constant">$check-mu-length-stmt:error-invalid-output-type</span>: -<span id="L24411" class="LineNr">24411 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24412" class="LineNr">24412 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24413" class="LineNr">24413 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24414" class="LineNr">24414 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24415" class="LineNr">24415 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) -<span id="L24416" class="LineNr">24416 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24417" class="LineNr">24417 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24418" class="LineNr">24418 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) -<span id="L24419" class="LineNr">24419 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24420" class="LineNr">24420 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24421" class="LineNr">24421 </span> <span class="subxComment"># never gets here</span> -<span id="L24422" class="LineNr">24422 </span> -<span id="L24423" class="LineNr">24423 </span><span class="subxFunction">check-mu-compute-offset-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L24424" class="LineNr">24424 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24425" class="LineNr">24425 </span> 55/push-ebp -<span id="L24426" class="LineNr">24426 </span> 89/<- %ebp 4/r32/esp -<span id="L24427" class="LineNr">24427 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24428" class="LineNr">24428 </span> 50/push-eax -<span id="L24429" class="LineNr">24429 </span> 51/push-ecx -<span id="L24430" class="LineNr">24430 </span> 52/push-edx -<span id="L24431" class="LineNr">24431 </span> 53/push-ebx -<span id="L24432" class="LineNr">24432 </span> 56/push-esi -<span id="L24433" class="LineNr">24433 </span> 57/push-edi -<span id="L24434" class="LineNr">24434 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24435" class="LineNr">24435 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24436" class="LineNr">24436 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L24437" class="LineNr">24437 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L24438" class="LineNr">24438 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24439" class="LineNr">24439 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: -<span id="L24440" class="LineNr">24440 </span> 3d/compare-eax-and 0/imm32 -<span id="L24441" class="LineNr">24441 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L24442" class="LineNr">24442 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24443" class="LineNr">24443 </span> 89/<- %ecx 0/r32/eax -<span id="L24444" class="LineNr">24444 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> -<span id="L24445" class="LineNr">24445 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L24446" class="LineNr">24446 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24447" class="LineNr">24447 </span> 89/<- %ebx 0/r32/eax -<span id="L24448" class="LineNr">24448 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> -<span id="L24449" class="LineNr">24449 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24450" class="LineNr">24450 </span> { -<span id="L24451" class="LineNr">24451 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24452" class="LineNr">24452 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> -<span id="L24453" class="LineNr">24453 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24454" class="LineNr">24454 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 -<span id="L24455" class="LineNr">24455 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24456" class="LineNr">24456 </span> } -<span id="L24457" class="LineNr">24457 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: -<span id="L24458" class="LineNr">24458 </span> <span class="subxComment"># if type->left not addr or array, abort</span> -<span id="L24459" class="LineNr">24459 </span> { -<span id="L24460" class="LineNr">24460 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24461" class="LineNr">24461 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24462" class="LineNr">24462 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24463" class="LineNr">24463 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24464" class="LineNr">24464 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24465" class="LineNr">24465 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24466" class="LineNr">24466 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24467" class="LineNr">24467 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24468" class="LineNr">24468 </span> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24469" class="LineNr">24469 </span> } -<span id="L24470" class="LineNr">24470 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> -<span id="L24471" class="LineNr">24471 </span> { -<span id="L24472" class="LineNr">24472 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24473" class="LineNr">24473 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24474" class="LineNr">24474 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24475" class="LineNr">24475 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24476" class="LineNr">24476 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: -<span id="L24477" class="LineNr">24477 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24478" class="LineNr">24478 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24479" class="LineNr">24479 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L24480" class="LineNr">24480 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24481" class="LineNr">24481 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 -<span id="L24482" class="LineNr">24482 </span> } -<span id="L24483" class="LineNr">24483 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> -<span id="L24484" class="LineNr">24484 </span> { -<span id="L24485" class="LineNr">24485 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24486" class="LineNr">24486 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L24487" class="LineNr">24487 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24488" class="LineNr">24488 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24489" class="LineNr">24489 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24490" class="LineNr">24490 </span> 89/<- %ebx 0/r32/eax -<span id="L24491" class="LineNr">24491 </span> } -<span id="L24492" class="LineNr">24492 </span> <span class="subxH1Comment"># - check for 1 inout</span> -<span id="L24493" class="LineNr">24493 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L24494" class="LineNr">24494 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24495" class="LineNr">24495 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24496" class="LineNr">24496 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: -<span id="L24497" class="LineNr">24497 </span> 3d/compare-eax-and 0/imm32 -<span id="L24498" class="LineNr">24498 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 -<span id="L24499" class="LineNr">24499 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24500" class="LineNr">24500 </span> 89/<- %ecx 0/r32/eax -<span id="L24501" class="LineNr">24501 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> -<span id="L24502" class="LineNr">24502 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> -<span id="L24503" class="LineNr">24503 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24504" class="LineNr">24504 </span> 89/<- %edx 0/r32/eax -<span id="L24505" class="LineNr">24505 </span> <span class="subxComment"># index type must be a literal or int</span> -<span id="L24506" class="LineNr">24506 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24507" class="LineNr">24507 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L24508" class="LineNr">24508 </span> { -<span id="L24509" class="LineNr">24509 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: -<span id="L24510" class="LineNr">24510 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> -<span id="L24511" class="LineNr">24511 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24512" class="LineNr">24512 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24513" class="LineNr">24513 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L24514" class="LineNr">24514 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24515" class="LineNr">24515 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24516" class="LineNr">24516 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 -<span id="L24517" class="LineNr">24517 </span> } -<span id="L24518" class="LineNr">24518 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L24519" class="LineNr">24519 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24520" class="LineNr">24520 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24521" class="LineNr">24521 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24522" class="LineNr">24522 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24523" class="LineNr">24523 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 -<span id="L24524" class="LineNr">24524 </span> <span class="subxH1Comment"># - check for 0 outputs</span> -<span id="L24525" class="LineNr">24525 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> -<span id="L24526" class="LineNr">24526 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24527" class="LineNr">24527 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24528" class="LineNr">24528 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 -<span id="L24529" class="LineNr">24529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24530" class="LineNr">24530 </span> 89/<- %edi 0/r32/eax -<span id="L24531" class="LineNr">24531 </span> <span class="subxH1Comment"># - check output type</span> -<span id="L24532" class="LineNr">24532 </span> <span class="subxComment"># must have a non-atomic type</span> -<span id="L24533" class="LineNr">24533 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24534" class="LineNr">24534 </span> 89/<- %edx 0/r32/eax -<span id="L24535" class="LineNr">24535 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24536" class="LineNr">24536 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L24537" class="LineNr">24537 </span> <span class="subxComment"># type must start with (offset ...)</span> -<span id="L24538" class="LineNr">24538 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24539" class="LineNr">24539 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> -<span id="L24540" class="LineNr">24540 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24541" class="LineNr">24541 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 -<span id="L24542" class="LineNr">24542 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> -<span id="L24543" class="LineNr">24543 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L24544" class="LineNr">24544 </span> 89/<- %ebx 0/r32/eax -<span id="L24545" class="LineNr">24545 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L24546" class="LineNr">24546 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L24547" class="LineNr">24547 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24548" class="LineNr">24548 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-bad-output-type/disp32 -<span id="L24549" class="LineNr">24549 </span> <span class="subxH1Comment"># - check for too many outputs</span> -<span id="L24550" class="LineNr">24550 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24551" class="LineNr">24551 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24552" class="LineNr">24552 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24553" class="LineNr">24553 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 -<span id="L24554" class="LineNr">24554 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: -<span id="L24555" class="LineNr">24555 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24556" class="LineNr">24556 </span> 5f/pop-to-edi -<span id="L24557" class="LineNr">24557 </span> 5e/pop-to-esi -<span id="L24558" class="LineNr">24558 </span> 5b/pop-to-ebx -<span id="L24559" class="LineNr">24559 </span> 5a/pop-to-edx -<span id="L24560" class="LineNr">24560 </span> 59/pop-to-ecx -<span id="L24561" class="LineNr">24561 </span> 58/pop-to-eax -<span id="L24562" class="LineNr">24562 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24563" class="LineNr">24563 </span> 89/<- %esp 5/r32/ebp -<span id="L24564" class="LineNr">24564 </span> 5d/pop-to-ebp -<span id="L24565" class="LineNr">24565 </span> c3/return -<span id="L24566" class="LineNr">24566 </span> -<span id="L24567" class="LineNr">24567 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: -<span id="L24568" class="LineNr">24568 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24569" class="LineNr">24569 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24570" class="LineNr">24570 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24571" class="LineNr">24571 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24572" class="LineNr">24572 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) -<span id="L24573" class="LineNr">24573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24574" class="LineNr">24574 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24575" class="LineNr">24575 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) -<span id="L24576" class="LineNr">24576 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24577" class="LineNr">24577 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24578" class="LineNr">24578 </span> <span class="subxComment"># never gets here</span> -<span id="L24579" class="LineNr">24579 </span> -<span id="L24580" class="LineNr">24580 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-array-atom-type</span>: -<span id="L24581" class="LineNr">24581 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24582" class="LineNr">24582 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24583" class="LineNr">24583 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24584" class="LineNr">24584 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24585" class="LineNr">24585 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: array '"</span>) -<span id="L24586" class="LineNr">24586 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24587" class="LineNr">24587 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24588" class="LineNr">24588 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of its elements\n"</span>) -<span id="L24589" class="LineNr">24589 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24590" class="LineNr">24590 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24591" class="LineNr">24591 </span> <span class="subxComment"># never gets here</span> -<span id="L24592" class="LineNr">24592 </span> -<span id="L24593" class="LineNr">24593 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-inouts</span>: -<span id="L24594" class="LineNr">24594 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24595" class="LineNr">24595 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24596" class="LineNr">24596 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24597" class="LineNr">24597 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24598" class="LineNr">24598 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: too few inouts (2 required)\n"</span>) -<span id="L24599" class="LineNr">24599 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24600" class="LineNr">24600 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24601" class="LineNr">24601 </span> <span class="subxComment"># never gets here</span> -<span id="L24602" class="LineNr">24602 </span> -<span id="L24603" class="LineNr">24603 </span><span class="Constant">$check-mu-compute-offset-stmt:error-invalid-index-type</span>: -<span id="L24604" class="LineNr">24604 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24605" class="LineNr">24605 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24606" class="LineNr">24606 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24607" class="LineNr">24607 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24608" class="LineNr">24608 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) -<span id="L24609" class="LineNr">24609 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24610" class="LineNr">24610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24611" class="LineNr">24611 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L24612" class="LineNr">24612 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24613" class="LineNr">24613 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24614" class="LineNr">24614 </span> <span class="subxComment"># never gets here</span> -<span id="L24615" class="LineNr">24615 </span> -<span id="L24616" class="LineNr">24616 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: -<span id="L24617" class="LineNr">24617 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24618" class="LineNr">24618 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24619" class="LineNr">24619 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24620" class="LineNr">24620 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24621" class="LineNr">24621 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) -<span id="L24622" class="LineNr">24622 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24623" class="LineNr">24623 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24624" class="LineNr">24624 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of array elements\n"</span>) -<span id="L24625" class="LineNr">24625 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24626" class="LineNr">24626 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24627" class="LineNr">24627 </span> <span class="subxComment"># never gets here</span> -<span id="L24628" class="LineNr">24628 </span> -<span id="L24629" class="LineNr">24629 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-on-stack</span>: -<span id="L24630" class="LineNr">24630 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24631" class="LineNr">24631 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24632" class="LineNr">24632 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24633" class="LineNr">24633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24634" class="LineNr">24634 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) -<span id="L24635" class="LineNr">24635 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24636" class="LineNr">24636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24637" class="LineNr">24637 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register\n"</span>) -<span id="L24638" class="LineNr">24638 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24639" class="LineNr">24639 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24640" class="LineNr">24640 </span> <span class="subxComment"># never gets here</span> -<span id="L24641" class="LineNr">24641 </span> -<span id="L24642" class="LineNr">24642 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: -<span id="L24643" class="LineNr">24643 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24644" class="LineNr">24644 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24645" class="LineNr">24645 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24646" class="LineNr">24646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24647" class="LineNr">24647 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: too many inouts (2 required)\n"</span>) -<span id="L24648" class="LineNr">24648 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24649" class="LineNr">24649 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24650" class="LineNr">24650 </span> <span class="subxComment"># never gets here</span> -<span id="L24651" class="LineNr">24651 </span> -<span id="L24652" class="LineNr">24652 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: -<span id="L24653" class="LineNr">24653 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24654" class="LineNr">24654 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24655" class="LineNr">24655 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24656" class="LineNr">24656 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24657" class="LineNr">24657 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: must have an output\n"</span>) -<span id="L24658" class="LineNr">24658 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24659" class="LineNr">24659 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24660" class="LineNr">24660 </span> <span class="subxComment"># never gets here</span> -<span id="L24661" class="LineNr">24661 </span> -<span id="L24662" class="LineNr">24662 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-outputs</span>: -<span id="L24663" class="LineNr">24663 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24664" class="LineNr">24664 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24665" class="LineNr">24665 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24666" class="LineNr">24666 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24667" class="LineNr">24667 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: too many outputs (1 required)\n"</span>) -<span id="L24668" class="LineNr">24668 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24669" class="LineNr">24669 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24670" class="LineNr">24670 </span> <span class="subxComment"># never gets here</span> -<span id="L24671" class="LineNr">24671 </span> -<span id="L24672" class="LineNr">24672 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: -<span id="L24673" class="LineNr">24673 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24674" class="LineNr">24674 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24675" class="LineNr">24675 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24676" class="LineNr">24676 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24677" class="LineNr">24677 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24678" class="LineNr">24678 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24679" class="LineNr">24679 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24680" class="LineNr">24680 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) -<span id="L24681" class="LineNr">24681 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24682" class="LineNr">24682 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24683" class="LineNr">24683 </span> <span class="subxComment"># never gets here</span> -<span id="L24684" class="LineNr">24684 </span> -<span id="L24685" class="LineNr">24685 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: -<span id="L24686" class="LineNr">24686 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24687" class="LineNr">24687 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24688" class="LineNr">24688 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24689" class="LineNr">24689 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24690" class="LineNr">24690 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24691" class="LineNr">24691 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24692" class="LineNr">24692 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24693" class="LineNr">24693 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) -<span id="L24694" class="LineNr">24694 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24695" class="LineNr">24695 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24696" class="LineNr">24696 </span> <span class="subxComment"># never gets here</span> -<span id="L24697" class="LineNr">24697 </span> -<span id="L24698" class="LineNr">24698 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: -<span id="L24699" class="LineNr">24699 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24700" class="LineNr">24700 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24701" class="LineNr">24701 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24702" class="LineNr">24702 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24703" class="LineNr">24703 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) -<span id="L24704" class="LineNr">24704 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L24705" class="LineNr">24705 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24706" class="LineNr">24706 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) -<span id="L24707" class="LineNr">24707 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24708" class="LineNr">24708 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24709" class="LineNr">24709 </span> <span class="subxComment"># never gets here</span> -<span id="L24710" class="LineNr">24710 </span> -<span id="L24711" class="LineNr">24711 </span><span class="subxFunction">check-mu-copy-object-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L24712" class="LineNr">24712 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24713" class="LineNr">24713 </span> 55/push-ebp -<span id="L24714" class="LineNr">24714 </span> 89/<- %ebp 4/r32/esp -<span id="L24715" class="LineNr">24715 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24716" class="LineNr">24716 </span> 50/push-eax -<span id="L24717" class="LineNr">24717 </span> 51/push-ecx -<span id="L24718" class="LineNr">24718 </span> 53/push-ebx -<span id="L24719" class="LineNr">24719 </span> 56/push-esi -<span id="L24720" class="LineNr">24720 </span> 57/push-edi -<span id="L24721" class="LineNr">24721 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24722" class="LineNr">24722 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24723" class="LineNr">24723 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: -<span id="L24724" class="LineNr">24724 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L24725" class="LineNr">24725 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24726" class="LineNr">24726 </span> 3d/compare-eax-and 0/imm32 -<span id="L24727" class="LineNr">24727 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 -<span id="L24728" class="LineNr">24728 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: -<span id="L24729" class="LineNr">24729 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L24730" class="LineNr">24730 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24731" class="LineNr">24731 </span> 89/<- %edi 0/r32/eax -<span id="L24732" class="LineNr">24732 </span> <span class="subxComment"># zero inouts</span> -<span id="L24733" class="LineNr">24733 </span> 3d/compare-eax-and 0/imm32 -<span id="L24734" class="LineNr">24734 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L24735" class="LineNr">24735 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: -<span id="L24736" class="LineNr">24736 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> -<span id="L24737" class="LineNr">24737 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24738" class="LineNr">24738 </span> 89/<- %esi 0/r32/eax -<span id="L24739" class="LineNr">24739 </span> <span class="subxComment"># 1 inout</span> -<span id="L24740" class="LineNr">24740 </span> 3d/compare-eax-and 0/imm32 -<span id="L24741" class="LineNr">24741 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L24742" class="LineNr">24742 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L24743" class="LineNr">24743 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24744" class="LineNr">24744 </span> 3d/compare-eax-and 0/imm32 -<span id="L24745" class="LineNr">24745 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 -<span id="L24746" class="LineNr">24746 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: -<span id="L24747" class="LineNr">24747 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L24748" class="LineNr">24748 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24749" class="LineNr">24749 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24750" class="LineNr">24750 </span> 89/<- %ecx 0/r32/eax -<span id="L24751" class="LineNr">24751 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> -<span id="L24752" class="LineNr">24752 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L24753" class="LineNr">24753 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24754" class="LineNr">24754 </span> { -<span id="L24755" class="LineNr">24755 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24756" class="LineNr">24756 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24757" class="LineNr">24757 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L24758" class="LineNr">24758 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L24759" class="LineNr">24759 </span> { -<span id="L24760" class="LineNr">24760 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24761" class="LineNr">24761 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24762" class="LineNr">24762 </span> } -<span id="L24763" class="LineNr">24763 </span> 89/<- %ecx 0/r32/eax -<span id="L24764" class="LineNr">24764 </span> } -<span id="L24765" class="LineNr">24765 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L24766" class="LineNr">24766 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24767" class="LineNr">24767 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24768" class="LineNr">24768 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L24769" class="LineNr">24769 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> -<span id="L24770" class="LineNr">24770 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24771" class="LineNr">24771 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24772" class="LineNr">24772 </span> 89/<- %ebx 0/r32/eax -<span id="L24773" class="LineNr">24773 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> -<span id="L24774" class="LineNr">24774 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L24775" class="LineNr">24775 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24776" class="LineNr">24776 </span> { -<span id="L24777" class="LineNr">24777 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24778" class="LineNr">24778 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24779" class="LineNr">24779 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> -<span id="L24780" class="LineNr">24780 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L24781" class="LineNr">24781 </span> { -<span id="L24782" class="LineNr">24782 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24783" class="LineNr">24783 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24784" class="LineNr">24784 </span> } -<span id="L24785" class="LineNr">24785 </span> 89/<- %ebx 0/r32/eax -<span id="L24786" class="LineNr">24786 </span> } -<span id="L24787" class="LineNr">24787 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> -<span id="L24788" class="LineNr">24788 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L24789" class="LineNr">24789 </span> 3d/compare-eax-and 0/imm32 -<span id="L24790" class="LineNr">24790 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 -<span id="L24791" class="LineNr">24791 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: -<span id="L24792" class="LineNr">24792 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24793" class="LineNr">24793 </span> 5f/pop-to-edi -<span id="L24794" class="LineNr">24794 </span> 5e/pop-to-esi -<span id="L24795" class="LineNr">24795 </span> 5b/pop-to-ebx -<span id="L24796" class="LineNr">24796 </span> 59/pop-to-ecx -<span id="L24797" class="LineNr">24797 </span> 58/pop-to-eax -<span id="L24798" class="LineNr">24798 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24799" class="LineNr">24799 </span> 89/<- %esp 5/r32/ebp -<span id="L24800" class="LineNr">24800 </span> 5d/pop-to-ebp -<span id="L24801" class="LineNr">24801 </span> c3/return -<span id="L24802" class="LineNr">24802 </span> -<span id="L24803" class="LineNr">24803 </span><span class="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: -<span id="L24804" class="LineNr">24804 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24805" class="LineNr">24805 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24806" class="LineNr">24806 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24807" class="LineNr">24807 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24808" class="LineNr">24808 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-object' must have two inouts\n"</span>) -<span id="L24809" class="LineNr">24809 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24810" class="LineNr">24810 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24811" class="LineNr">24811 </span> <span class="subxComment"># never gets here</span> -<span id="L24812" class="LineNr">24812 </span> -<span id="L24813" class="LineNr">24813 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: -<span id="L24814" class="LineNr">24814 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24815" class="LineNr">24815 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24816" class="LineNr">24816 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24817" class="LineNr">24817 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24818" class="LineNr">24818 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-object' must not have any outputs\n"</span>) -<span id="L24819" class="LineNr">24819 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24820" class="LineNr">24820 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24821" class="LineNr">24821 </span> <span class="subxComment"># never gets here</span> -<span id="L24822" class="LineNr">24822 </span> -<span id="L24823" class="LineNr">24823 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: -<span id="L24824" class="LineNr">24824 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24825" class="LineNr">24825 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24826" class="LineNr">24826 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24827" class="LineNr">24827 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24828" class="LineNr">24828 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-object: two inouts with identical addr types expected\n"</span>) -<span id="L24829" class="LineNr">24829 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24830" class="LineNr">24830 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24831" class="LineNr">24831 </span> <span class="subxComment"># never gets here</span> -<span id="L24832" class="LineNr">24832 </span> -<span id="L24833" class="LineNr">24833 </span><span class="subxFunction">check-mu-clear-object-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L24834" class="LineNr">24834 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24835" class="LineNr">24835 </span> 55/push-ebp -<span id="L24836" class="LineNr">24836 </span> 89/<- %ebp 4/r32/esp -<span id="L24837" class="LineNr">24837 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24838" class="LineNr">24838 </span> 50/push-eax -<span id="L24839" class="LineNr">24839 </span> 51/push-ecx -<span id="L24840" class="LineNr">24840 </span> 53/push-ebx -<span id="L24841" class="LineNr">24841 </span> 56/push-esi -<span id="L24842" class="LineNr">24842 </span> 57/push-edi -<span id="L24843" class="LineNr">24843 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24844" class="LineNr">24844 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24845" class="LineNr">24845 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: -<span id="L24846" class="LineNr">24846 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L24847" class="LineNr">24847 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24848" class="LineNr">24848 </span> 3d/compare-eax-and 0/imm32 -<span id="L24849" class="LineNr">24849 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 -<span id="L24850" class="LineNr">24850 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: -<span id="L24851" class="LineNr">24851 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L24852" class="LineNr">24852 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24853" class="LineNr">24853 </span> 89/<- %edi 0/r32/eax -<span id="L24854" class="LineNr">24854 </span> <span class="subxComment"># zero inouts</span> -<span id="L24855" class="LineNr">24855 </span> 3d/compare-eax-and 0/imm32 -<span id="L24856" class="LineNr">24856 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L24857" class="LineNr">24857 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: -<span id="L24858" class="LineNr">24858 </span> <span class="subxComment"># > 1 inout</span> -<span id="L24859" class="LineNr">24859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24860" class="LineNr">24860 </span> 3d/compare-eax-and 0/imm32 -<span id="L24861" class="LineNr">24861 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 -<span id="L24862" class="LineNr">24862 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: -<span id="L24863" class="LineNr">24863 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> -<span id="L24864" class="LineNr">24864 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24865" class="LineNr">24865 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24866" class="LineNr">24866 </span> 89/<- %ecx 0/r32/eax -<span id="L24867" class="LineNr">24867 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> -<span id="L24868" class="LineNr">24868 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L24869" class="LineNr">24869 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24870" class="LineNr">24870 </span> { -<span id="L24871" class="LineNr">24871 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24872" class="LineNr">24872 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24873" class="LineNr">24873 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> -<span id="L24874" class="LineNr">24874 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L24875" class="LineNr">24875 </span> { -<span id="L24876" class="LineNr">24876 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24877" class="LineNr">24877 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24878" class="LineNr">24878 </span> } -<span id="L24879" class="LineNr">24879 </span> 89/<- %ecx 0/r32/eax -<span id="L24880" class="LineNr">24880 </span> } -<span id="L24881" class="LineNr">24881 </span> <span class="subxComment"># if src-type is not addr, abort</span> -<span id="L24882" class="LineNr">24882 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L24883" class="LineNr">24883 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24884" class="LineNr">24884 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 -<span id="L24885" class="LineNr">24885 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: -<span id="L24886" class="LineNr">24886 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24887" class="LineNr">24887 </span> 5f/pop-to-edi -<span id="L24888" class="LineNr">24888 </span> 5e/pop-to-esi -<span id="L24889" class="LineNr">24889 </span> 5b/pop-to-ebx -<span id="L24890" class="LineNr">24890 </span> 59/pop-to-ecx -<span id="L24891" class="LineNr">24891 </span> 58/pop-to-eax -<span id="L24892" class="LineNr">24892 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24893" class="LineNr">24893 </span> 89/<- %esp 5/r32/ebp -<span id="L24894" class="LineNr">24894 </span> 5d/pop-to-ebp -<span id="L24895" class="LineNr">24895 </span> c3/return -<span id="L24896" class="LineNr">24896 </span> -<span id="L24897" class="LineNr">24897 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: -<span id="L24898" class="LineNr">24898 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24899" class="LineNr">24899 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24900" class="LineNr">24900 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24901" class="LineNr">24901 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24902" class="LineNr">24902 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'clear-object' must have a single inout\n"</span>) -<span id="L24903" class="LineNr">24903 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24904" class="LineNr">24904 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24905" class="LineNr">24905 </span> <span class="subxComment"># never gets here</span> -<span id="L24906" class="LineNr">24906 </span> -<span id="L24907" class="LineNr">24907 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: -<span id="L24908" class="LineNr">24908 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24909" class="LineNr">24909 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24910" class="LineNr">24910 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24911" class="LineNr">24911 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24912" class="LineNr">24912 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'clear-object' must not have any outputs\n"</span>) -<span id="L24913" class="LineNr">24913 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24914" class="LineNr">24914 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24915" class="LineNr">24915 </span> <span class="subxComment"># never gets here</span> -<span id="L24916" class="LineNr">24916 </span> -<span id="L24917" class="LineNr">24917 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: -<span id="L24918" class="LineNr">24918 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24919" class="LineNr">24919 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L24920" class="LineNr">24920 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L24921" class="LineNr">24921 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L24922" class="LineNr">24922 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt clear-object: inout must have an addr type\n"</span>) -<span id="L24923" class="LineNr">24923 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L24924" class="LineNr">24924 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L24925" class="LineNr">24925 </span> <span class="subxComment"># never gets here</span> -<span id="L24926" class="LineNr">24926 </span> -<span id="L24927" class="LineNr">24927 </span><span class="subxFunction">check-mu-allocate-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L24928" class="LineNr">24928 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L24929" class="LineNr">24929 </span> 55/push-ebp -<span id="L24930" class="LineNr">24930 </span> 89/<- %ebp 4/r32/esp -<span id="L24931" class="LineNr">24931 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L24932" class="LineNr">24932 </span> 50/push-eax -<span id="L24933" class="LineNr">24933 </span> 53/push-ebx -<span id="L24934" class="LineNr">24934 </span> 56/push-esi -<span id="L24935" class="LineNr">24935 </span> 57/push-edi -<span id="L24936" class="LineNr">24936 </span> <span class="subxComment"># esi = stmt</span> -<span id="L24937" class="LineNr">24937 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L24938" class="LineNr">24938 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: -<span id="L24939" class="LineNr">24939 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L24940" class="LineNr">24940 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L24941" class="LineNr">24941 </span> 3d/compare-eax-and 0/imm32 -<span id="L24942" class="LineNr">24942 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 -<span id="L24943" class="LineNr">24943 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: -<span id="L24944" class="LineNr">24944 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L24945" class="LineNr">24945 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L24946" class="LineNr">24946 </span> 89/<- %edi 0/r32/eax -<span id="L24947" class="LineNr">24947 </span> <span class="subxComment"># zero inouts</span> -<span id="L24948" class="LineNr">24948 </span> 3d/compare-eax-and 0/imm32 -<span id="L24949" class="LineNr">24949 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L24950" class="LineNr">24950 </span> <span class="subxComment"># > 1 inouts</span> -<span id="L24951" class="LineNr">24951 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L24952" class="LineNr">24952 </span> 3d/compare-eax-and 0/imm32 -<span id="L24953" class="LineNr">24953 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 -<span id="L24954" class="LineNr">24954 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: -<span id="L24955" class="LineNr">24955 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L24956" class="LineNr">24956 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L24957" class="LineNr">24957 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L24958" class="LineNr">24958 </span> 89/<- %ebx 0/r32/eax -<span id="L24959" class="LineNr">24959 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L24960" class="LineNr">24960 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L24961" class="LineNr">24961 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24962" class="LineNr">24962 </span> { -<span id="L24963" class="LineNr">24963 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L24964" class="LineNr">24964 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24965" class="LineNr">24965 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L24966" class="LineNr">24966 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L24967" class="LineNr">24967 </span> { -<span id="L24968" class="LineNr">24968 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L24969" class="LineNr">24969 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24970" class="LineNr">24970 </span> } -<span id="L24971" class="LineNr">24971 </span> 89/<- %ebx 0/r32/eax -<span id="L24972" class="LineNr">24972 </span> } -<span id="L24973" class="LineNr">24973 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L24974" class="LineNr">24974 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L24975" class="LineNr">24975 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24976" class="LineNr">24976 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L24977" class="LineNr">24977 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L24978" class="LineNr">24978 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L24979" class="LineNr">24979 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L24980" class="LineNr">24980 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L24981" class="LineNr">24981 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L24982" class="LineNr">24982 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L24983" class="LineNr">24983 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L24984" class="LineNr">24984 </span> 3d/compare-eax-and 0/imm32/false -<span id="L24985" class="LineNr">24985 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 -<span id="L24986" class="LineNr">24986 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: -<span id="L24987" class="LineNr">24987 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L24988" class="LineNr">24988 </span> 5f/pop-to-edi -<span id="L24989" class="LineNr">24989 </span> 5e/pop-to-esi -<span id="L24990" class="LineNr">24990 </span> 5b/pop-to-ebx -<span id="L24991" class="LineNr">24991 </span> 58/pop-to-eax -<span id="L24992" class="LineNr">24992 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L24993" class="LineNr">24993 </span> 89/<- %esp 5/r32/ebp -<span id="L24994" class="LineNr">24994 </span> 5d/pop-to-ebp -<span id="L24995" class="LineNr">24995 </span> c3/return -<span id="L24996" class="LineNr">24996 </span> -<span id="L24997" class="LineNr">24997 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: -<span id="L24998" class="LineNr">24998 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L24999" class="LineNr">24999 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25000" class="LineNr">25000 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25001" class="LineNr">25001 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25002" class="LineNr">25002 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'allocate' must have a single inout\n"</span>) -<span id="L25003" class="LineNr">25003 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25004" class="LineNr">25004 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25005" class="LineNr">25005 </span> <span class="subxComment"># never gets here</span> -<span id="L25006" class="LineNr">25006 </span> -<span id="L25007" class="LineNr">25007 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: -<span id="L25008" class="LineNr">25008 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25009" class="LineNr">25009 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25010" class="LineNr">25010 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25011" class="LineNr">25011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25012" class="LineNr">25012 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'allocate' must not have any outputs\n"</span>) -<span id="L25013" class="LineNr">25013 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25014" class="LineNr">25014 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25015" class="LineNr">25015 </span> <span class="subxComment"># never gets here</span> -<span id="L25016" class="LineNr">25016 </span> -<span id="L25017" class="LineNr">25017 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: -<span id="L25018" class="LineNr">25018 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25019" class="LineNr">25019 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25020" class="LineNr">25020 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25021" class="LineNr">25021 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25022" class="LineNr">25022 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../120allocate.subx.html#L66'>allocate</a>: inout '"</span>) -<span id="L25023" class="LineNr">25023 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25024" class="LineNr">25024 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25025" class="LineNr">25025 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25026" class="LineNr">25026 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have type (addr handle ...)\n"</span>) -<span id="L25027" class="LineNr">25027 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25028" class="LineNr">25028 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25029" class="LineNr">25029 </span> <span class="subxComment"># never gets here</span> -<span id="L25030" class="LineNr">25030 </span> -<span id="L25031" class="LineNr">25031 </span><span class="subxFunction">check-mu-populate-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L25032" class="LineNr">25032 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25033" class="LineNr">25033 </span> 55/push-ebp -<span id="L25034" class="LineNr">25034 </span> 89/<- %ebp 4/r32/esp -<span id="L25035" class="LineNr">25035 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25036" class="LineNr">25036 </span> 50/push-eax -<span id="L25037" class="LineNr">25037 </span> 53/push-ebx -<span id="L25038" class="LineNr">25038 </span> 56/push-esi -<span id="L25039" class="LineNr">25039 </span> 57/push-edi -<span id="L25040" class="LineNr">25040 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25041" class="LineNr">25041 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25042" class="LineNr">25042 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: -<span id="L25043" class="LineNr">25043 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25044" class="LineNr">25044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25045" class="LineNr">25045 </span> 3d/compare-eax-and 0/imm32 -<span id="L25046" class="LineNr">25046 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 -<span id="L25047" class="LineNr">25047 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: -<span id="L25048" class="LineNr">25048 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25049" class="LineNr">25049 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25050" class="LineNr">25050 </span> 89/<- %edi 0/r32/eax -<span id="L25051" class="LineNr">25051 </span> <span class="subxComment"># zero inouts</span> -<span id="L25052" class="LineNr">25052 </span> 3d/compare-eax-and 0/imm32 -<span id="L25053" class="LineNr">25053 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25054" class="LineNr">25054 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: -<span id="L25055" class="LineNr">25055 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L25056" class="LineNr">25056 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25057" class="LineNr">25057 </span> 89/<- %esi 0/r32/eax -<span id="L25058" class="LineNr">25058 </span> <span class="subxComment"># 1 inout</span> -<span id="L25059" class="LineNr">25059 </span> 3d/compare-eax-and 0/imm32 -<span id="L25060" class="LineNr">25060 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25061" class="LineNr">25061 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L25062" class="LineNr">25062 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25063" class="LineNr">25063 </span> 3d/compare-eax-and 0/imm32 -<span id="L25064" class="LineNr">25064 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 -<span id="L25065" class="LineNr">25065 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: -<span id="L25066" class="LineNr">25066 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25067" class="LineNr">25067 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25068" class="LineNr">25068 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25069" class="LineNr">25069 </span> 89/<- %ebx 0/r32/eax -<span id="L25070" class="LineNr">25070 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: -<span id="L25071" class="LineNr">25071 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25072" class="LineNr">25072 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25073" class="LineNr">25073 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25074" class="LineNr">25074 </span> { -<span id="L25075" class="LineNr">25075 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25076" class="LineNr">25076 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25077" class="LineNr">25077 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25078" class="LineNr">25078 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25079" class="LineNr">25079 </span> { -<span id="L25080" class="LineNr">25080 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25081" class="LineNr">25081 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25082" class="LineNr">25082 </span> } -<span id="L25083" class="LineNr">25083 </span> 89/<- %ebx 0/r32/eax -<span id="L25084" class="LineNr">25084 </span> } -<span id="L25085" class="LineNr">25085 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: -<span id="L25086" class="LineNr">25086 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25087" class="LineNr">25087 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25088" class="LineNr">25088 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25089" class="LineNr">25089 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25090" class="LineNr">25090 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25091" class="LineNr">25091 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25092" class="LineNr">25092 </span> 89/<- %ebx 0/r32/eax -<span id="L25093" class="LineNr">25093 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25094" class="LineNr">25094 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25095" class="LineNr">25095 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: -<span id="L25096" class="LineNr">25096 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25097" class="LineNr">25097 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25098" class="LineNr">25098 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25099" class="LineNr">25099 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25100" class="LineNr">25100 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25101" class="LineNr">25101 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L25102" class="LineNr">25102 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25103" class="LineNr">25103 </span> 89/<- %ebx 0/r32/eax -<span id="L25104" class="LineNr">25104 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25105" class="LineNr">25105 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25106" class="LineNr">25106 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: -<span id="L25107" class="LineNr">25107 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> -<span id="L25108" class="LineNr">25108 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25109" class="LineNr">25109 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L25110" class="LineNr">25110 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25111" class="LineNr">25111 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 -<span id="L25112" class="LineNr">25112 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: -<span id="L25113" class="LineNr">25113 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25114" class="LineNr">25114 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25115" class="LineNr">25115 </span> 89/<- %ebx 0/r32/eax -<span id="L25116" class="LineNr">25116 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L25117" class="LineNr">25117 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25118" class="LineNr">25118 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 -<span id="L25119" class="LineNr">25119 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L25120" class="LineNr">25120 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25121" class="LineNr">25121 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 -<span id="L25122" class="LineNr">25122 </span><span class="Constant">$check-mu-populate-stmt:end</span>: -<span id="L25123" class="LineNr">25123 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25124" class="LineNr">25124 </span> 5f/pop-to-edi -<span id="L25125" class="LineNr">25125 </span> 5e/pop-to-esi -<span id="L25126" class="LineNr">25126 </span> 5b/pop-to-ebx -<span id="L25127" class="LineNr">25127 </span> 58/pop-to-eax -<span id="L25128" class="LineNr">25128 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25129" class="LineNr">25129 </span> 89/<- %esp 5/r32/ebp -<span id="L25130" class="LineNr">25130 </span> 5d/pop-to-ebp -<span id="L25131" class="LineNr">25131 </span> c3/return -<span id="L25132" class="LineNr">25132 </span> -<span id="L25133" class="LineNr">25133 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: -<span id="L25134" class="LineNr">25134 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25135" class="LineNr">25135 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25136" class="LineNr">25136 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25137" class="LineNr">25137 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25138" class="LineNr">25138 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate' must have two inouts\n"</span>) -<span id="L25139" class="LineNr">25139 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25140" class="LineNr">25140 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25141" class="LineNr">25141 </span> <span class="subxComment"># never gets here</span> -<span id="L25142" class="LineNr">25142 </span> -<span id="L25143" class="LineNr">25143 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: -<span id="L25144" class="LineNr">25144 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25145" class="LineNr">25145 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25146" class="LineNr">25146 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25147" class="LineNr">25147 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25148" class="LineNr">25148 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate' must not have any outputs\n"</span>) -<span id="L25149" class="LineNr">25149 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25150" class="LineNr">25150 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25151" class="LineNr">25151 </span> <span class="subxComment"># never gets here</span> -<span id="L25152" class="LineNr">25152 </span> -<span id="L25153" class="LineNr">25153 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: -<span id="L25154" class="LineNr">25154 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25155" class="LineNr">25155 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25156" class="LineNr">25156 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25157" class="LineNr">25157 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25158" class="LineNr">25158 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) -<span id="L25159" class="LineNr">25159 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25160" class="LineNr">25160 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25161" class="LineNr">25161 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25162" class="LineNr">25162 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have type (addr handle array ...)\n"</span>) -<span id="L25163" class="LineNr">25163 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25164" class="LineNr">25164 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25165" class="LineNr">25165 </span> <span class="subxComment"># never gets here</span> -<span id="L25166" class="LineNr">25166 </span> -<span id="L25167" class="LineNr">25167 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: -<span id="L25168" class="LineNr">25168 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25169" class="LineNr">25169 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25170" class="LineNr">25170 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25171" class="LineNr">25171 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25172" class="LineNr">25172 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) -<span id="L25173" class="LineNr">25173 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25174" class="LineNr">25174 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25175" class="LineNr">25175 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25176" class="LineNr">25176 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L25177" class="LineNr">25177 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25178" class="LineNr">25178 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25179" class="LineNr">25179 </span> <span class="subxComment"># never gets here</span> -<span id="L25180" class="LineNr">25180 </span> -<span id="L25181" class="LineNr">25181 </span><span class="subxFunction">check-mu-populate-stream-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L25182" class="LineNr">25182 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25183" class="LineNr">25183 </span> 55/push-ebp -<span id="L25184" class="LineNr">25184 </span> 89/<- %ebp 4/r32/esp -<span id="L25185" class="LineNr">25185 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25186" class="LineNr">25186 </span> 50/push-eax -<span id="L25187" class="LineNr">25187 </span> 53/push-ebx -<span id="L25188" class="LineNr">25188 </span> 56/push-esi -<span id="L25189" class="LineNr">25189 </span> 57/push-edi -<span id="L25190" class="LineNr">25190 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25191" class="LineNr">25191 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25192" class="LineNr">25192 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: -<span id="L25193" class="LineNr">25193 </span> <span class="subxComment"># if stmt->outputs abort</span> -<span id="L25194" class="LineNr">25194 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25195" class="LineNr">25195 </span> 3d/compare-eax-and 0/imm32 -<span id="L25196" class="LineNr">25196 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 -<span id="L25197" class="LineNr">25197 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: -<span id="L25198" class="LineNr">25198 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> -<span id="L25199" class="LineNr">25199 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25200" class="LineNr">25200 </span> 89/<- %edi 0/r32/eax -<span id="L25201" class="LineNr">25201 </span> <span class="subxComment"># zero inouts</span> -<span id="L25202" class="LineNr">25202 </span> 3d/compare-eax-and 0/imm32 -<span id="L25203" class="LineNr">25203 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25204" class="LineNr">25204 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: -<span id="L25205" class="LineNr">25205 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> -<span id="L25206" class="LineNr">25206 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25207" class="LineNr">25207 </span> 89/<- %esi 0/r32/eax -<span id="L25208" class="LineNr">25208 </span> <span class="subxComment"># 1 inout</span> -<span id="L25209" class="LineNr">25209 </span> 3d/compare-eax-and 0/imm32 -<span id="L25210" class="LineNr">25210 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25211" class="LineNr">25211 </span> <span class="subxComment"># > 2 inouts</span> -<span id="L25212" class="LineNr">25212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25213" class="LineNr">25213 </span> 3d/compare-eax-and 0/imm32 -<span id="L25214" class="LineNr">25214 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 -<span id="L25215" class="LineNr">25215 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: -<span id="L25216" class="LineNr">25216 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> -<span id="L25217" class="LineNr">25217 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25218" class="LineNr">25218 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25219" class="LineNr">25219 </span> 89/<- %ebx 0/r32/eax -<span id="L25220" class="LineNr">25220 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: -<span id="L25221" class="LineNr">25221 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> -<span id="L25222" class="LineNr">25222 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25223" class="LineNr">25223 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25224" class="LineNr">25224 </span> { -<span id="L25225" class="LineNr">25225 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25226" class="LineNr">25226 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25227" class="LineNr">25227 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> -<span id="L25228" class="LineNr">25228 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25229" class="LineNr">25229 </span> { -<span id="L25230" class="LineNr">25230 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25231" class="LineNr">25231 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25232" class="LineNr">25232 </span> } -<span id="L25233" class="LineNr">25233 </span> 89/<- %ebx 0/r32/eax -<span id="L25234" class="LineNr">25234 </span> } -<span id="L25235" class="LineNr">25235 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: -<span id="L25236" class="LineNr">25236 </span> <span class="subxComment"># if target-type is not addr, abort</span> -<span id="L25237" class="LineNr">25237 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25238" class="LineNr">25238 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25239" class="LineNr">25239 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25240" class="LineNr">25240 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> -<span id="L25241" class="LineNr">25241 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25242" class="LineNr">25242 </span> 89/<- %ebx 0/r32/eax -<span id="L25243" class="LineNr">25243 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25244" class="LineNr">25244 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25245" class="LineNr">25245 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: -<span id="L25246" class="LineNr">25246 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> -<span id="L25247" class="LineNr">25247 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25248" class="LineNr">25248 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> -<span id="L25249" class="LineNr">25249 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25250" class="LineNr">25250 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25251" class="LineNr">25251 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> -<span id="L25252" class="LineNr">25252 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25253" class="LineNr">25253 </span> 89/<- %ebx 0/r32/eax -<span id="L25254" class="LineNr">25254 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25255" class="LineNr">25255 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25256" class="LineNr">25256 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: -<span id="L25257" class="LineNr">25257 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> -<span id="L25258" class="LineNr">25258 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25259" class="LineNr">25259 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25260" class="LineNr">25260 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25261" class="LineNr">25261 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 -<span id="L25262" class="LineNr">25262 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: -<span id="L25263" class="LineNr">25263 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25264" class="LineNr">25264 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25265" class="LineNr">25265 </span> 89/<- %ebx 0/r32/eax -<span id="L25266" class="LineNr">25266 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> -<span id="L25267" class="LineNr">25267 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25268" class="LineNr">25268 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 -<span id="L25269" class="LineNr">25269 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> -<span id="L25270" class="LineNr">25270 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25271" class="LineNr">25271 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 -<span id="L25272" class="LineNr">25272 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: -<span id="L25273" class="LineNr">25273 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25274" class="LineNr">25274 </span> 5f/pop-to-edi -<span id="L25275" class="LineNr">25275 </span> 5e/pop-to-esi -<span id="L25276" class="LineNr">25276 </span> 5b/pop-to-ebx -<span id="L25277" class="LineNr">25277 </span> 58/pop-to-eax -<span id="L25278" class="LineNr">25278 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25279" class="LineNr">25279 </span> 89/<- %esp 5/r32/ebp -<span id="L25280" class="LineNr">25280 </span> 5d/pop-to-ebp -<span id="L25281" class="LineNr">25281 </span> c3/return -<span id="L25282" class="LineNr">25282 </span> -<span id="L25283" class="LineNr">25283 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: -<span id="L25284" class="LineNr">25284 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25285" class="LineNr">25285 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25286" class="LineNr">25286 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25287" class="LineNr">25287 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25288" class="LineNr">25288 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate-stream' must have two inouts\n"</span>) -<span id="L25289" class="LineNr">25289 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25290" class="LineNr">25290 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25291" class="LineNr">25291 </span> <span class="subxComment"># never gets here</span> -<span id="L25292" class="LineNr">25292 </span> -<span id="L25293" class="LineNr">25293 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: -<span id="L25294" class="LineNr">25294 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25295" class="LineNr">25295 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25296" class="LineNr">25296 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25297" class="LineNr">25297 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25298" class="LineNr">25298 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate-stream' must not have any outputs\n"</span>) -<span id="L25299" class="LineNr">25299 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25300" class="LineNr">25300 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25301" class="LineNr">25301 </span> <span class="subxComment"># never gets here</span> -<span id="L25302" class="LineNr">25302 </span> -<span id="L25303" class="LineNr">25303 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: -<span id="L25304" class="LineNr">25304 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25305" class="LineNr">25305 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25306" class="LineNr">25306 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25307" class="LineNr">25307 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25308" class="LineNr">25308 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) -<span id="L25309" class="LineNr">25309 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25310" class="LineNr">25310 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25311" class="LineNr">25311 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25312" class="LineNr">25312 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have type (addr handle stream ...)\n"</span>) -<span id="L25313" class="LineNr">25313 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25314" class="LineNr">25314 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25315" class="LineNr">25315 </span> <span class="subxComment"># never gets here</span> -<span id="L25316" class="LineNr">25316 </span> -<span id="L25317" class="LineNr">25317 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: -<span id="L25318" class="LineNr">25318 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25319" class="LineNr">25319 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25320" class="LineNr">25320 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25321" class="LineNr">25321 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25322" class="LineNr">25322 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) -<span id="L25323" class="LineNr">25323 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25324" class="LineNr">25324 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25325" class="LineNr">25325 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25326" class="LineNr">25326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) -<span id="L25327" class="LineNr">25327 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25328" class="LineNr">25328 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25329" class="LineNr">25329 </span> <span class="subxComment"># never gets here</span> -<span id="L25330" class="LineNr">25330 </span> -<span id="L25331" class="LineNr">25331 </span><span class="subxFunction">check-mu-read-from-stream-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L25332" class="LineNr">25332 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25333" class="LineNr">25333 </span> 55/push-ebp -<span id="L25334" class="LineNr">25334 </span> 89/<- %ebp 4/r32/esp -<span id="L25335" class="LineNr">25335 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25336" class="LineNr">25336 </span> 50/push-eax -<span id="L25337" class="LineNr">25337 </span> 51/push-ecx -<span id="L25338" class="LineNr">25338 </span> 52/push-edx -<span id="L25339" class="LineNr">25339 </span> 53/push-ebx -<span id="L25340" class="LineNr">25340 </span> 56/push-esi -<span id="L25341" class="LineNr">25341 </span> 57/push-edi -<span id="L25342" class="LineNr">25342 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25343" class="LineNr">25343 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25344" class="LineNr">25344 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L25345" class="LineNr">25345 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L25346" class="LineNr">25346 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25347" class="LineNr">25347 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: -<span id="L25348" class="LineNr">25348 </span> 3d/compare-eax-and 0/imm32 -<span id="L25349" class="LineNr">25349 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L25350" class="LineNr">25350 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25351" class="LineNr">25351 </span> 89/<- %ecx 0/r32/eax -<span id="L25352" class="LineNr">25352 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L25353" class="LineNr">25353 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L25354" class="LineNr">25354 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25355" class="LineNr">25355 </span> 89/<- %ebx 0/r32/eax -<span id="L25356" class="LineNr">25356 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: -<span id="L25357" class="LineNr">25357 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L25358" class="LineNr">25358 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25359" class="LineNr">25359 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25360" class="LineNr">25360 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: -<span id="L25361" class="LineNr">25361 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L25362" class="LineNr">25362 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25363" class="LineNr">25363 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25364" class="LineNr">25364 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25365" class="LineNr">25365 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25366" class="LineNr">25366 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L25367" class="LineNr">25367 </span> <span class="subxComment"># base-type = base-type->right</span> -<span id="L25368" class="LineNr">25368 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25369" class="LineNr">25369 </span> 89/<- %ebx 0/r32/eax -<span id="L25370" class="LineNr">25370 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L25371" class="LineNr">25371 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25372" class="LineNr">25372 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25373" class="LineNr">25373 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25374" class="LineNr">25374 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 -<span id="L25375" class="LineNr">25375 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L25376" class="LineNr">25376 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L25377" class="LineNr">25377 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25378" class="LineNr">25378 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25379" class="LineNr">25379 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: -<span id="L25380" class="LineNr">25380 </span> 3d/compare-eax-and 0/imm32 -<span id="L25381" class="LineNr">25381 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 -<span id="L25382" class="LineNr">25382 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25383" class="LineNr">25383 </span> 89/<- %ecx 0/r32/eax -<span id="L25384" class="LineNr">25384 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L25385" class="LineNr">25385 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25386" class="LineNr">25386 </span> 89/<- %edx 0/r32/eax -<span id="L25387" class="LineNr">25387 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L25388" class="LineNr">25388 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: -<span id="L25389" class="LineNr">25389 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25390" class="LineNr">25390 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L25391" class="LineNr">25391 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: -<span id="L25392" class="LineNr">25392 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L25393" class="LineNr">25393 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25394" class="LineNr">25394 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25395" class="LineNr">25395 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25396" class="LineNr">25396 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 -<span id="L25397" class="LineNr">25397 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L25398" class="LineNr">25398 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25399" class="LineNr">25399 </span> 89/<- %ebx 0/r32/eax -<span id="L25400" class="LineNr">25400 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L25401" class="LineNr">25401 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L25402" class="LineNr">25402 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25403" class="LineNr">25403 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 -<span id="L25404" class="LineNr">25404 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: -<span id="L25405" class="LineNr">25405 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L25406" class="LineNr">25406 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25407" class="LineNr">25407 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25408" class="LineNr">25408 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25409" class="LineNr">25409 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25410" class="LineNr">25410 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 -<span id="L25411" class="LineNr">25411 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: -<span id="L25412" class="LineNr">25412 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L25413" class="LineNr">25413 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25414" class="LineNr">25414 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25415" class="LineNr">25415 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 -<span id="L25416" class="LineNr">25416 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: -<span id="L25417" class="LineNr">25417 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25418" class="LineNr">25418 </span> 5f/pop-to-edi -<span id="L25419" class="LineNr">25419 </span> 5e/pop-to-esi -<span id="L25420" class="LineNr">25420 </span> 5b/pop-to-ebx -<span id="L25421" class="LineNr">25421 </span> 5a/pop-to-edx -<span id="L25422" class="LineNr">25422 </span> 59/pop-to-ecx -<span id="L25423" class="LineNr">25423 </span> 58/pop-to-eax -<span id="L25424" class="LineNr">25424 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25425" class="LineNr">25425 </span> 89/<- %esp 5/r32/ebp -<span id="L25426" class="LineNr">25426 </span> 5d/pop-to-ebp -<span id="L25427" class="LineNr">25427 </span> c3/return -<span id="L25428" class="LineNr">25428 </span> -<span id="L25429" class="LineNr">25429 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</span>: -<span id="L25430" class="LineNr">25430 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25431" class="LineNr">25431 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25432" class="LineNr">25432 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25433" class="LineNr">25433 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25434" class="LineNr">25434 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: var '"</span>) -<span id="L25435" class="LineNr">25435 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25436" class="LineNr">25436 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25437" class="LineNr">25437 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr to a stream\n"</span>) -<span id="L25438" class="LineNr">25438 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25439" class="LineNr">25439 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25440" class="LineNr">25440 </span> <span class="subxComment"># never gets here</span> -<span id="L25441" class="LineNr">25441 </span> -<span id="L25442" class="LineNr">25442 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-few-inouts</span>: -<span id="L25443" class="LineNr">25443 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25444" class="LineNr">25444 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25445" class="LineNr">25445 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25446" class="LineNr">25446 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25447" class="LineNr">25447 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)\n"</span>) -<span id="L25448" class="LineNr">25448 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25449" class="LineNr">25449 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25450" class="LineNr">25450 </span> <span class="subxComment"># never gets here</span> -<span id="L25451" class="LineNr">25451 </span> -<span id="L25452" class="LineNr">25452 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: -<span id="L25453" class="LineNr">25453 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25454" class="LineNr">25454 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25455" class="LineNr">25455 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25456" class="LineNr">25456 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25457" class="LineNr">25457 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: target '"</span>) -<span id="L25458" class="LineNr">25458 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25459" class="LineNr">25459 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25460" class="LineNr">25460 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L25461" class="LineNr">25461 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25462" class="LineNr">25462 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25463" class="LineNr">25463 </span> <span class="subxComment"># never gets here</span> -<span id="L25464" class="LineNr">25464 </span> -<span id="L25465" class="LineNr">25465 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-target-type</span>: -<span id="L25466" class="LineNr">25466 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25467" class="LineNr">25467 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25468" class="LineNr">25468 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25469" class="LineNr">25469 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25470" class="LineNr">25470 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: second inout '"</span>) -<span id="L25471" class="LineNr">25471 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25472" class="LineNr">25472 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25473" class="LineNr">25473 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) -<span id="L25474" class="LineNr">25474 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25475" class="LineNr">25475 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25476" class="LineNr">25476 </span> <span class="subxComment"># never gets here</span> -<span id="L25477" class="LineNr">25477 </span> -<span id="L25478" class="LineNr">25478 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: -<span id="L25479" class="LineNr">25479 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25480" class="LineNr">25480 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25481" class="LineNr">25481 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25482" class="LineNr">25482 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25483" class="LineNr">25483 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: too many inouts (2 required)\n"</span>) -<span id="L25484" class="LineNr">25484 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25485" class="LineNr">25485 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25486" class="LineNr">25486 </span> <span class="subxComment"># never gets here</span> -<span id="L25487" class="LineNr">25487 </span> -<span id="L25488" class="LineNr">25488 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: -<span id="L25489" class="LineNr">25489 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25490" class="LineNr">25490 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25491" class="LineNr">25491 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25492" class="LineNr">25492 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25493" class="LineNr">25493 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L107'>read-from-stream</a>: unexpected output\n"</span>) -<span id="L25494" class="LineNr">25494 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25495" class="LineNr">25495 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25496" class="LineNr">25496 </span> <span class="subxComment"># never gets here</span> -<span id="L25497" class="LineNr">25497 </span> -<span id="L25498" class="LineNr">25498 </span><span class="subxFunction">check-mu-write-to-stream-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L25499" class="LineNr">25499 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25500" class="LineNr">25500 </span> 55/push-ebp -<span id="L25501" class="LineNr">25501 </span> 89/<- %ebp 4/r32/esp -<span id="L25502" class="LineNr">25502 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25503" class="LineNr">25503 </span> 50/push-eax -<span id="L25504" class="LineNr">25504 </span> 51/push-ecx -<span id="L25505" class="LineNr">25505 </span> 52/push-edx -<span id="L25506" class="LineNr">25506 </span> 53/push-ebx -<span id="L25507" class="LineNr">25507 </span> 56/push-esi -<span id="L25508" class="LineNr">25508 </span> 57/push-edi -<span id="L25509" class="LineNr">25509 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25510" class="LineNr">25510 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25511" class="LineNr">25511 </span> <span class="subxH1Comment"># - check for 0 inouts</span> -<span id="L25512" class="LineNr">25512 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> -<span id="L25513" class="LineNr">25513 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25514" class="LineNr">25514 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: -<span id="L25515" class="LineNr">25515 </span> 3d/compare-eax-and 0/imm32 -<span id="L25516" class="LineNr">25516 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L25517" class="LineNr">25517 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25518" class="LineNr">25518 </span> 89/<- %ecx 0/r32/eax -<span id="L25519" class="LineNr">25519 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> -<span id="L25520" class="LineNr">25520 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> -<span id="L25521" class="LineNr">25521 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25522" class="LineNr">25522 </span> 89/<- %ebx 0/r32/eax -<span id="L25523" class="LineNr">25523 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: -<span id="L25524" class="LineNr">25524 </span> <span class="subxComment"># if base-type is an atom, abort</span> -<span id="L25525" class="LineNr">25525 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25526" class="LineNr">25526 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25527" class="LineNr">25527 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: -<span id="L25528" class="LineNr">25528 </span> <span class="subxComment"># if type->left not addr, abort</span> -<span id="L25529" class="LineNr">25529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25530" class="LineNr">25530 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25531" class="LineNr">25531 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25532" class="LineNr">25532 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25533" class="LineNr">25533 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: -<span id="L25534" class="LineNr">25534 </span> <span class="subxComment"># base-type = base-type->right</span> -<span id="L25535" class="LineNr">25535 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25536" class="LineNr">25536 </span> 89/<- %ebx 0/r32/eax -<span id="L25537" class="LineNr">25537 </span> <span class="subxComment"># ensure base-type->left == stream</span> -<span id="L25538" class="LineNr">25538 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25539" class="LineNr">25539 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> -<span id="L25540" class="LineNr">25540 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25541" class="LineNr">25541 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 -<span id="L25542" class="LineNr">25542 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> -<span id="L25543" class="LineNr">25543 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> -<span id="L25544" class="LineNr">25544 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25545" class="LineNr">25545 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25546" class="LineNr">25546 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: -<span id="L25547" class="LineNr">25547 </span> 3d/compare-eax-and 0/imm32 -<span id="L25548" class="LineNr">25548 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 -<span id="L25549" class="LineNr">25549 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25550" class="LineNr">25550 </span> 89/<- %ecx 0/r32/eax -<span id="L25551" class="LineNr">25551 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> -<span id="L25552" class="LineNr">25552 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25553" class="LineNr">25553 </span> 89/<- %edx 0/r32/eax -<span id="L25554" class="LineNr">25554 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> -<span id="L25555" class="LineNr">25555 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: -<span id="L25556" class="LineNr">25556 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L25557" class="LineNr">25557 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L25558" class="LineNr">25558 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: -<span id="L25559" class="LineNr">25559 </span> <span class="subxComment"># target type must start with (addr ...)</span> -<span id="L25560" class="LineNr">25560 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25561" class="LineNr">25561 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L25562" class="LineNr">25562 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25563" class="LineNr">25563 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 -<span id="L25564" class="LineNr">25564 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> -<span id="L25565" class="LineNr">25565 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L25566" class="LineNr">25566 </span> 89/<- %ebx 0/r32/eax -<span id="L25567" class="LineNr">25567 </span> (<a href='mu.subx.html#L26606'>type-tail</a> %edx) <span class="subxComment"># => eax</span> -<span id="L25568" class="LineNr">25568 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L25569" class="LineNr">25569 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25570" class="LineNr">25570 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 -<span id="L25571" class="LineNr">25571 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: -<span id="L25572" class="LineNr">25572 </span> <span class="subxH1Comment"># - check for too many inouts</span> -<span id="L25573" class="LineNr">25573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25574" class="LineNr">25574 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25575" class="LineNr">25575 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25576" class="LineNr">25576 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25577" class="LineNr">25577 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 -<span id="L25578" class="LineNr">25578 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: -<span id="L25579" class="LineNr">25579 </span> <span class="subxH1Comment"># - check for any output</span> -<span id="L25580" class="LineNr">25580 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25581" class="LineNr">25581 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25582" class="LineNr">25582 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 -<span id="L25583" class="LineNr">25583 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: -<span id="L25584" class="LineNr">25584 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25585" class="LineNr">25585 </span> 5f/pop-to-edi -<span id="L25586" class="LineNr">25586 </span> 5e/pop-to-esi -<span id="L25587" class="LineNr">25587 </span> 5b/pop-to-ebx -<span id="L25588" class="LineNr">25588 </span> 5a/pop-to-edx -<span id="L25589" class="LineNr">25589 </span> 59/pop-to-ecx -<span id="L25590" class="LineNr">25590 </span> 58/pop-to-eax -<span id="L25591" class="LineNr">25591 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25592" class="LineNr">25592 </span> 89/<- %esp 5/r32/ebp -<span id="L25593" class="LineNr">25593 </span> 5d/pop-to-ebp -<span id="L25594" class="LineNr">25594 </span> c3/return -<span id="L25595" class="LineNr">25595 </span> -<span id="L25596" class="LineNr">25596 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</span>: -<span id="L25597" class="LineNr">25597 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25598" class="LineNr">25598 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25599" class="LineNr">25599 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25600" class="LineNr">25600 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25601" class="LineNr">25601 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: var '"</span>) -<span id="L25602" class="LineNr">25602 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25603" class="LineNr">25603 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25604" class="LineNr">25604 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr to a stream\n"</span>) -<span id="L25605" class="LineNr">25605 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25606" class="LineNr">25606 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25607" class="LineNr">25607 </span> <span class="subxComment"># never gets here</span> -<span id="L25608" class="LineNr">25608 </span> -<span id="L25609" class="LineNr">25609 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-few-inouts</span>: -<span id="L25610" class="LineNr">25610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25611" class="LineNr">25611 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25612" class="LineNr">25612 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25613" class="LineNr">25613 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25614" class="LineNr">25614 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)\n"</span>) -<span id="L25615" class="LineNr">25615 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25616" class="LineNr">25616 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25617" class="LineNr">25617 </span> <span class="subxComment"># never gets here</span> -<span id="L25618" class="LineNr">25618 </span> -<span id="L25619" class="LineNr">25619 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</span>: -<span id="L25620" class="LineNr">25620 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25621" class="LineNr">25621 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25622" class="LineNr">25622 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25623" class="LineNr">25623 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25624" class="LineNr">25624 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: target '"</span>) -<span id="L25625" class="LineNr">25625 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25626" class="LineNr">25626 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25627" class="LineNr">25627 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) -<span id="L25628" class="LineNr">25628 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25629" class="LineNr">25629 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25630" class="LineNr">25630 </span> <span class="subxComment"># never gets here</span> -<span id="L25631" class="LineNr">25631 </span> -<span id="L25632" class="LineNr">25632 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-target-type</span>: -<span id="L25633" class="LineNr">25633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25634" class="LineNr">25634 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25635" class="LineNr">25635 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25636" class="LineNr">25636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25637" class="LineNr">25637 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: second inout '"</span>) -<span id="L25638" class="LineNr">25638 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25639" class="LineNr">25639 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25640" class="LineNr">25640 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) -<span id="L25641" class="LineNr">25641 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25642" class="LineNr">25642 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25643" class="LineNr">25643 </span> <span class="subxComment"># never gets here</span> -<span id="L25644" class="LineNr">25644 </span> -<span id="L25645" class="LineNr">25645 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: -<span id="L25646" class="LineNr">25646 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25647" class="LineNr">25647 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25648" class="LineNr">25648 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25649" class="LineNr">25649 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25650" class="LineNr">25650 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: too many inouts (2 required)\n"</span>) -<span id="L25651" class="LineNr">25651 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25652" class="LineNr">25652 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25653" class="LineNr">25653 </span> <span class="subxComment"># never gets here</span> -<span id="L25654" class="LineNr">25654 </span> -<span id="L25655" class="LineNr">25655 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: -<span id="L25656" class="LineNr">25656 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25657" class="LineNr">25657 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25658" class="LineNr">25658 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25659" class="LineNr">25659 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25660" class="LineNr">25660 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='../309stream.subx.html#L54'>write-to-stream</a>: unexpected output\n"</span>) -<span id="L25661" class="LineNr">25661 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25662" class="LineNr">25662 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25663" class="LineNr">25663 </span> <span class="subxComment"># never gets here</span> -<span id="L25664" class="LineNr">25664 </span> -<span id="L25665" class="LineNr">25665 </span><span class="subxFunction">check-mu-convert-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L25666" class="LineNr">25666 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25667" class="LineNr">25667 </span> 55/push-ebp -<span id="L25668" class="LineNr">25668 </span> 89/<- %ebp 4/r32/esp -<span id="L25669" class="LineNr">25669 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25670" class="LineNr">25670 </span> 50/push-eax -<span id="L25671" class="LineNr">25671 </span> 51/push-ecx -<span id="L25672" class="LineNr">25672 </span> 52/push-edx -<span id="L25673" class="LineNr">25673 </span> 56/push-esi -<span id="L25674" class="LineNr">25674 </span> 57/push-edi -<span id="L25675" class="LineNr">25675 </span><span class="Constant">$check-mu-convert-stmt:get-output</span>: -<span id="L25676" class="LineNr">25676 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25677" class="LineNr">25677 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25678" class="LineNr">25678 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> -<span id="L25679" class="LineNr">25679 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L25680" class="LineNr">25680 </span> 89/<- %edi 0/r32/eax -<span id="L25681" class="LineNr">25681 </span> <span class="subxComment"># zero outputs</span> -<span id="L25682" class="LineNr">25682 </span> 3d/compare-eax-and 0/imm32 -<span id="L25683" class="LineNr">25683 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-output/disp32 -<span id="L25684" class="LineNr">25684 </span> <span class="subxComment"># > 1 output</span> -<span id="L25685" class="LineNr">25685 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25686" class="LineNr">25686 </span> 3d/compare-eax-and 0/imm32 -<span id="L25687" class="LineNr">25687 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-outputs/disp32 -<span id="L25688" class="LineNr">25688 </span><span class="Constant">$check-mu-convert-stmt:get-inout</span>: -<span id="L25689" class="LineNr">25689 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> -<span id="L25690" class="LineNr">25690 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25691" class="LineNr">25691 </span> 89/<- %esi 0/r32/eax -<span id="L25692" class="LineNr">25692 </span> <span class="subxComment"># zero inouts</span> -<span id="L25693" class="LineNr">25693 </span> 3d/compare-eax-and 0/imm32 -<span id="L25694" class="LineNr">25694 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-inout/disp32 -<span id="L25695" class="LineNr">25695 </span> <span class="subxComment"># > 1 inout</span> -<span id="L25696" class="LineNr">25696 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25697" class="LineNr">25697 </span> 3d/compare-eax-and 0/imm32 -<span id="L25698" class="LineNr">25698 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-inouts/disp32 -<span id="L25699" class="LineNr">25699 </span><span class="Constant">$check-mu-convert-stmt:types</span>: -<span id="L25700" class="LineNr">25700 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> -<span id="L25701" class="LineNr">25701 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25702" class="LineNr">25702 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25703" class="LineNr">25703 </span> 89/<- %ecx 0/r32/eax -<span id="L25704" class="LineNr">25704 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> -<span id="L25705" class="LineNr">25705 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25706" class="LineNr">25706 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25707" class="LineNr">25707 </span> { -<span id="L25708" class="LineNr">25708 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25709" class="LineNr">25709 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25710" class="LineNr">25710 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> -<span id="L25711" class="LineNr">25711 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25712" class="LineNr">25712 </span> { -<span id="L25713" class="LineNr">25713 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25714" class="LineNr">25714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25715" class="LineNr">25715 </span> } -<span id="L25716" class="LineNr">25716 </span> 89/<- %ecx 0/r32/eax -<span id="L25717" class="LineNr">25717 </span> } -<span id="L25718" class="LineNr">25718 </span> <span class="subxComment"># if input is not int or float, abort</span> -<span id="L25719" class="LineNr">25719 </span> { -<span id="L25720" class="LineNr">25720 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> -<span id="L25721" class="LineNr">25721 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25722" class="LineNr">25722 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25723" class="LineNr">25723 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25724" class="LineNr">25724 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25725" class="LineNr">25725 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25726" class="LineNr">25726 </span> e9/jump $check-mu-convert-stmt:error-invalid-inout-type/disp32 -<span id="L25727" class="LineNr">25727 </span> } -<span id="L25728" class="LineNr">25728 </span> <span class="subxComment"># if output not in register, abort</span> -<span id="L25729" class="LineNr">25729 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25730" class="LineNr">25730 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L25731" class="LineNr">25731 </span> 3d/compare-eax-and 0/imm32 -<span id="L25732" class="LineNr">25732 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-output-not-in-register/disp32 -<span id="L25733" class="LineNr">25733 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> -<span id="L25734" class="LineNr">25734 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25735" class="LineNr">25735 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25736" class="LineNr">25736 </span> 89/<- %edx 0/r32/eax -<span id="L25737" class="LineNr">25737 </span> <span class="subxComment"># if output is not int or float, abort</span> -<span id="L25738" class="LineNr">25738 </span> { -<span id="L25739" class="LineNr">25739 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L25740" class="LineNr">25740 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25741" class="LineNr">25741 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25742" class="LineNr">25742 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25743" class="LineNr">25743 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25744" class="LineNr">25744 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25745" class="LineNr">25745 </span> e9/jump $check-mu-convert-stmt:error-invalid-output-type/disp32 -<span id="L25746" class="LineNr">25746 </span> } -<span id="L25747" class="LineNr">25747 </span> <span class="subxComment"># if both are ints, abort</span> -<span id="L25748" class="LineNr">25748 </span> { -<span id="L25749" class="LineNr">25749 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> -<span id="L25750" class="LineNr">25750 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25751" class="LineNr">25751 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25752" class="LineNr">25752 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> -<span id="L25753" class="LineNr">25753 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25754" class="LineNr">25754 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25755" class="LineNr">25755 </span> e9/jump $check-mu-convert-stmt:error-int-to-int/disp32 -<span id="L25756" class="LineNr">25756 </span> } -<span id="L25757" class="LineNr">25757 </span> <span class="subxComment"># if both are floats, abort</span> -<span id="L25758" class="LineNr">25758 </span> { -<span id="L25759" class="LineNr">25759 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25760" class="LineNr">25760 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25761" class="LineNr">25761 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25762" class="LineNr">25762 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> -<span id="L25763" class="LineNr">25763 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25764" class="LineNr">25764 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25765" class="LineNr">25765 </span> e9/jump $check-mu-convert-stmt:error-float-to-float/disp32 -<span id="L25766" class="LineNr">25766 </span> } -<span id="L25767" class="LineNr">25767 </span><span class="Constant">$check-mu-convert-stmt:end</span>: -<span id="L25768" class="LineNr">25768 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L25769" class="LineNr">25769 </span> 5f/pop-to-edi -<span id="L25770" class="LineNr">25770 </span> 5e/pop-to-esi -<span id="L25771" class="LineNr">25771 </span> 5a/pop-to-edx -<span id="L25772" class="LineNr">25772 </span> 59/pop-to-ecx -<span id="L25773" class="LineNr">25773 </span> 58/pop-to-eax -<span id="L25774" class="LineNr">25774 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L25775" class="LineNr">25775 </span> 89/<- %esp 5/r32/ebp -<span id="L25776" class="LineNr">25776 </span> 5d/pop-to-ebp -<span id="L25777" class="LineNr">25777 </span> c3/return -<span id="L25778" class="LineNr">25778 </span> -<span id="L25779" class="LineNr">25779 </span><span class="Constant">$check-mu-convert-stmt:error-no-inout</span>: -<span id="L25780" class="LineNr">25780 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25781" class="LineNr">25781 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25782" class="LineNr">25782 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25783" class="LineNr">25783 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25784" class="LineNr">25784 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' expects an inout\n"</span>) -<span id="L25785" class="LineNr">25785 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25786" class="LineNr">25786 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25787" class="LineNr">25787 </span> <span class="subxComment"># never gets here</span> -<span id="L25788" class="LineNr">25788 </span> -<span id="L25789" class="LineNr">25789 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-inouts</span>: -<span id="L25790" class="LineNr">25790 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25791" class="LineNr">25791 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25792" class="LineNr">25792 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25793" class="LineNr">25793 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25794" class="LineNr">25794 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' must have just one inout\n"</span>) -<span id="L25795" class="LineNr">25795 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25796" class="LineNr">25796 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25797" class="LineNr">25797 </span> <span class="subxComment"># never gets here</span> -<span id="L25798" class="LineNr">25798 </span> -<span id="L25799" class="LineNr">25799 </span><span class="Constant">$check-mu-convert-stmt:error-no-output</span>: -<span id="L25800" class="LineNr">25800 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25801" class="LineNr">25801 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25802" class="LineNr">25802 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25803" class="LineNr">25803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25804" class="LineNr">25804 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' expects an output\n"</span>) -<span id="L25805" class="LineNr">25805 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25806" class="LineNr">25806 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25807" class="LineNr">25807 </span> <span class="subxComment"># never gets here</span> -<span id="L25808" class="LineNr">25808 </span> -<span id="L25809" class="LineNr">25809 </span><span class="Constant">$check-mu-convert-stmt:error-output-not-in-register</span>: -<span id="L25810" class="LineNr">25810 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25811" class="LineNr">25811 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25812" class="LineNr">25812 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25813" class="LineNr">25813 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25814" class="LineNr">25814 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) -<span id="L25815" class="LineNr">25815 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25816" class="LineNr">25816 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25817" class="LineNr">25817 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25818" class="LineNr">25818 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) -<span id="L25819" class="LineNr">25819 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25820" class="LineNr">25820 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25821" class="LineNr">25821 </span> <span class="subxComment"># never gets here</span> -<span id="L25822" class="LineNr">25822 </span> -<span id="L25823" class="LineNr">25823 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-outputs</span>: -<span id="L25824" class="LineNr">25824 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25825" class="LineNr">25825 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25826" class="LineNr">25826 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25827" class="LineNr">25827 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25828" class="LineNr">25828 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' must have just one output\n"</span>) -<span id="L25829" class="LineNr">25829 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25830" class="LineNr">25830 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25831" class="LineNr">25831 </span> <span class="subxComment"># never gets here</span> -<span id="L25832" class="LineNr">25832 </span> -<span id="L25833" class="LineNr">25833 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-inout-type</span>: -<span id="L25834" class="LineNr">25834 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25835" class="LineNr">25835 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25836" class="LineNr">25836 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25837" class="LineNr">25837 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25838" class="LineNr">25838 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: inout '"</span>) -<span id="L25839" class="LineNr">25839 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25840" class="LineNr">25840 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25841" class="LineNr">25841 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25842" class="LineNr">25842 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or float\n"</span>) -<span id="L25843" class="LineNr">25843 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25844" class="LineNr">25844 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25845" class="LineNr">25845 </span> <span class="subxComment"># never gets here</span> -<span id="L25846" class="LineNr">25846 </span> -<span id="L25847" class="LineNr">25847 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-output-type</span>: -<span id="L25848" class="LineNr">25848 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25849" class="LineNr">25849 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25850" class="LineNr">25850 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25851" class="LineNr">25851 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25852" class="LineNr">25852 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) -<span id="L25853" class="LineNr">25853 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25854" class="LineNr">25854 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25855" class="LineNr">25855 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25856" class="LineNr">25856 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or float\n"</span>) -<span id="L25857" class="LineNr">25857 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25858" class="LineNr">25858 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25859" class="LineNr">25859 </span> <span class="subxComment"># never gets here</span> -<span id="L25860" class="LineNr">25860 </span> -<span id="L25861" class="LineNr">25861 </span><span class="Constant">$check-mu-convert-stmt:error-int-to-int</span>: -<span id="L25862" class="LineNr">25862 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25863" class="LineNr">25863 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25864" class="LineNr">25864 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25865" class="LineNr">25865 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25866" class="LineNr">25866 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: no need to convert int to int\n"</span>) -<span id="L25867" class="LineNr">25867 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25868" class="LineNr">25868 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25869" class="LineNr">25869 </span> <span class="subxComment"># never gets here</span> -<span id="L25870" class="LineNr">25870 </span> -<span id="L25871" class="LineNr">25871 </span><span class="Constant">$check-mu-convert-stmt:error-float-to-float</span>: -<span id="L25872" class="LineNr">25872 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) -<span id="L25873" class="LineNr">25873 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L25874" class="LineNr">25874 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25875" class="LineNr">25875 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) -<span id="L25876" class="LineNr">25876 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: no need to convert float to float\n"</span>) -<span id="L25877" class="LineNr">25877 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L25878" class="LineNr">25878 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L25879" class="LineNr">25879 </span> <span class="subxComment"># never gets here</span> -<span id="L25880" class="LineNr">25880 </span> -<span id="L25881" class="LineNr">25881 </span><span class="subxFunction">check-mu-call</span>: <span class="subxComment"># stmt: (addr stmt), callee: (addr function), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L25882" class="LineNr">25882 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L25883" class="LineNr">25883 </span> 55/push-ebp -<span id="L25884" class="LineNr">25884 </span> 89/<- %ebp 4/r32/esp -<span id="L25885" class="LineNr">25885 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> -<span id="L25886" class="LineNr">25886 </span> 68/push 0/imm32 -<span id="L25887" class="LineNr">25887 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> -<span id="L25888" class="LineNr">25888 </span> 81 5/subop/subtract %esp 0x60/imm32 -<span id="L25889" class="LineNr">25889 </span> 68/push 0x60/imm32/size -<span id="L25890" class="LineNr">25890 </span> 68/push 0/imm32/read -<span id="L25891" class="LineNr">25891 </span> 68/push 0/imm32/write -<span id="L25892" class="LineNr">25892 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> -<span id="L25893" class="LineNr">25893 </span> 89/<- *(ebp-4) 4/r32/esp -<span id="L25894" class="LineNr">25894 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) -<span id="L25895" class="LineNr">25895 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25896" class="LineNr">25896 </span> 50/push-eax -<span id="L25897" class="LineNr">25897 </span> 51/push-ecx -<span id="L25898" class="LineNr">25898 </span> 52/push-edx -<span id="L25899" class="LineNr">25899 </span> 53/push-ebx -<span id="L25900" class="LineNr">25900 </span> 56/push-esi -<span id="L25901" class="LineNr">25901 </span> 57/push-edi -<span id="L25902" class="LineNr">25902 </span> <span class="subxComment"># esi = stmt</span> -<span id="L25903" class="LineNr">25903 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L25904" class="LineNr">25904 </span> <span class="subxComment"># edi = callee</span> -<span id="L25905" class="LineNr">25905 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L25906" class="LineNr">25906 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L25907" class="LineNr">25907 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L25908" class="LineNr">25908 </span> 89/<- %ecx 0/r32/eax -<span id="L25909" class="LineNr">25909 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> -<span id="L25910" class="LineNr">25910 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L25911" class="LineNr">25911 </span> 89/<- %edx 0/r32/eax -<span id="L25912" class="LineNr">25912 </span> { -<span id="L25913" class="LineNr">25913 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: -<span id="L25914" class="LineNr">25914 </span> <span class="subxComment"># if (inouts == 0) break</span> -<span id="L25915" class="LineNr">25915 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L25916" class="LineNr">25916 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25917" class="LineNr">25917 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L25918" class="LineNr">25918 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L25919" class="LineNr">25919 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25920" class="LineNr">25920 </span><span class="Constant">$check-mu-call:check-null-addr</span>: -<span id="L25921" class="LineNr">25921 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> -<span id="L25922" class="LineNr">25922 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25923" class="LineNr">25923 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25924" class="LineNr">25924 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> -<span id="L25925" class="LineNr">25925 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25926" class="LineNr">25926 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 -<span id="L25927" class="LineNr">25927 </span><span class="Constant">$check-mu-call:check-inout-type</span>: -<span id="L25928" class="LineNr">25928 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> -<span id="L25929" class="LineNr">25929 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25930" class="LineNr">25930 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25931" class="LineNr">25931 </span> 89/<- %ebx 0/r32/eax -<span id="L25932" class="LineNr">25932 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> -<span id="L25933" class="LineNr">25933 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L25934" class="LineNr">25934 </span> { -<span id="L25935" class="LineNr">25935 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L25936" class="LineNr">25936 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L25937" class="LineNr">25937 </span> 89/<- %ebx 0/r32/eax -<span id="L25938" class="LineNr">25938 </span> <span class="subxComment"># if t->right is null, t = t->left</span> -<span id="L25939" class="LineNr">25939 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L25940" class="LineNr">25940 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L25941" class="LineNr">25941 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L25942" class="LineNr">25942 </span> 89/<- %ebx 0/r32/eax -<span id="L25943" class="LineNr">25943 </span> } -<span id="L25944" class="LineNr">25944 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L25945" class="LineNr">25945 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L25946" class="LineNr">25946 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L25947" class="LineNr">25947 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L25948" class="LineNr">25948 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L25949" class="LineNr">25949 </span> (<a href='mu.subx.html#L26179'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L25950" class="LineNr">25950 </span> 3d/compare-eax-and 0/imm32/false -<span id="L25951" class="LineNr">25951 </span> { -<span id="L25952" class="LineNr">25952 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L25953" class="LineNr">25953 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L25954" class="LineNr">25954 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L25955" class="LineNr">25955 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25956" class="LineNr">25956 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L25957" class="LineNr">25957 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L25958" class="LineNr">25958 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25959" class="LineNr">25959 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L25960" class="LineNr">25960 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) -<span id="L25961" class="LineNr">25961 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L25962" class="LineNr">25962 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L25963" class="LineNr">25963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L25964" class="LineNr">25964 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L25965" class="LineNr">25965 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L25966" class="LineNr">25966 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L25967" class="LineNr">25967 </span> } -<span id="L25968" class="LineNr">25968 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: -<span id="L25969" class="LineNr">25969 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> -<span id="L25970" class="LineNr">25970 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L25971" class="LineNr">25971 </span> 89/<- %ecx 0/r32/eax -<span id="L25972" class="LineNr">25972 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L25973" class="LineNr">25973 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L25974" class="LineNr">25974 </span> 89/<- %edx 0/r32/eax -<span id="L25975" class="LineNr">25975 </span> <span class="subxComment">#</span> -<span id="L25976" class="LineNr">25976 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L25977" class="LineNr">25977 </span> } -<span id="L25978" class="LineNr">25978 </span><span class="Constant">$check-mu-call:check-inout-count</span>: -<span id="L25979" class="LineNr">25979 </span> <span class="subxComment"># if (inouts == expected) proceed</span> -<span id="L25980" class="LineNr">25980 </span> 39/compare %ecx 2/r32/edx -<span id="L25981" class="LineNr">25981 </span> { -<span id="L25982" class="LineNr">25982 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25983" class="LineNr">25983 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L25984" class="LineNr">25984 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> -<span id="L25985" class="LineNr">25985 </span> { -<span id="L25986" class="LineNr">25986 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L25987" class="LineNr">25987 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L25988" class="LineNr">25988 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L25989" class="LineNr">25989 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L25990" class="LineNr">25990 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25991" class="LineNr">25991 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L25992" class="LineNr">25992 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L25993" class="LineNr">25993 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L25994" class="LineNr">25994 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L25995" class="LineNr">25995 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) -<span id="L25996" class="LineNr">25996 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L25997" class="LineNr">25997 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L25998" class="LineNr">25998 </span> } -<span id="L25999" class="LineNr">25999 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> -<span id="L26000" class="LineNr">26000 </span> { -<span id="L26001" class="LineNr">26001 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26002" class="LineNr">26002 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26003" class="LineNr">26003 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26004" class="LineNr">26004 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26005" class="LineNr">26005 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26006" class="LineNr">26006 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26007" class="LineNr">26007 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26008" class="LineNr">26008 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26009" class="LineNr">26009 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26010" class="LineNr">26010 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) -<span id="L26011" class="LineNr">26011 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26012" class="LineNr">26012 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26013" class="LineNr">26013 </span> } -<span id="L26014" class="LineNr">26014 </span> } -<span id="L26015" class="LineNr">26015 </span><span class="Constant">$check-mu-call:check-outputs</span>: -<span id="L26016" class="LineNr">26016 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L26017" class="LineNr">26017 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L26018" class="LineNr">26018 </span> 89/<- %ecx 0/r32/eax -<span id="L26019" class="LineNr">26019 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> -<span id="L26020" class="LineNr">26020 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L26021" class="LineNr">26021 </span> 89/<- %edx 0/r32/eax -<span id="L26022" class="LineNr">26022 </span> { -<span id="L26023" class="LineNr">26023 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: -<span id="L26024" class="LineNr">26024 </span> <span class="subxComment"># if (outputs == 0) break</span> -<span id="L26025" class="LineNr">26025 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26026" class="LineNr">26026 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26027" class="LineNr">26027 </span> <span class="subxComment"># if (expected == 0) error</span> -<span id="L26028" class="LineNr">26028 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26029" class="LineNr">26029 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26030" class="LineNr">26030 </span><span class="Constant">$check-mu-call:check-output-type</span>: -<span id="L26031" class="LineNr">26031 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L26032" class="LineNr">26032 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26033" class="LineNr">26033 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> -<span id="L26034" class="LineNr">26034 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26035" class="LineNr">26035 </span> 89/<- %ebx 0/r32/eax -<span id="L26036" class="LineNr">26036 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> -<span id="L26037" class="LineNr">26037 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L26038" class="LineNr">26038 </span> { -<span id="L26039" class="LineNr">26039 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26040" class="LineNr">26040 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26041" class="LineNr">26041 </span> 89/<- %ebx 0/r32/eax -<span id="L26042" class="LineNr">26042 </span> } -<span id="L26043" class="LineNr">26043 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26044" class="LineNr">26044 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26045" class="LineNr">26045 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> -<span id="L26046" class="LineNr">26046 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26047" class="LineNr">26047 </span> <span class="subxComment"># if (t != t2) error</span> -<span id="L26048" class="LineNr">26048 </span> (<a href='mu.subx.html#L26179'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> -<span id="L26049" class="LineNr">26049 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26050" class="LineNr">26050 </span> { -<span id="L26051" class="LineNr">26051 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26052" class="LineNr">26052 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26053" class="LineNr">26053 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26054" class="LineNr">26054 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26055" class="LineNr">26055 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26056" class="LineNr">26056 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26057" class="LineNr">26057 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26058" class="LineNr">26058 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26059" class="LineNr">26059 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) -<span id="L26060" class="LineNr">26060 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26061" class="LineNr">26061 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26062" class="LineNr">26062 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26063" class="LineNr">26063 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L26064" class="LineNr">26064 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26065" class="LineNr">26065 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26066" class="LineNr">26066 </span> } -<span id="L26067" class="LineNr">26067 </span><span class="Constant">$check-mu-call:check-output-register</span>: -<span id="L26068" class="LineNr">26068 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> -<span id="L26069" class="LineNr">26069 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26070" class="LineNr">26070 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> -<span id="L26071" class="LineNr">26071 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26072" class="LineNr">26072 </span> 89/<- %ebx 0/r32/eax -<span id="L26073" class="LineNr">26073 </span> <span class="subxComment"># if (r == 0) error</span> -<span id="L26074" class="LineNr">26074 </span> 3d/compare-eax-and 0/imm32 -<span id="L26075" class="LineNr">26075 </span> { -<span id="L26076" class="LineNr">26076 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26077" class="LineNr">26077 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26078" class="LineNr">26078 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26079" class="LineNr">26079 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26080" class="LineNr">26080 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26081" class="LineNr">26081 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26082" class="LineNr">26082 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26083" class="LineNr">26083 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26084" class="LineNr">26084 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) -<span id="L26085" class="LineNr">26085 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26086" class="LineNr">26086 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26087" class="LineNr">26087 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26088" class="LineNr">26088 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not in a register\n"</span>) -<span id="L26089" class="LineNr">26089 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26090" class="LineNr">26090 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26091" class="LineNr">26091 </span> } -<span id="L26092" class="LineNr">26092 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> -<span id="L26093" class="LineNr">26093 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26094" class="LineNr">26094 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> -<span id="L26095" class="LineNr">26095 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L26096" class="LineNr">26096 </span> <span class="subxComment"># if (r != r2) error</span> -<span id="L26097" class="LineNr">26097 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26098" class="LineNr">26098 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26099" class="LineNr">26099 </span> { -<span id="L26100" class="LineNr">26100 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26101" class="LineNr">26101 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26102" class="LineNr">26102 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26103" class="LineNr">26103 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26104" class="LineNr">26104 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26105" class="LineNr">26105 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26106" class="LineNr">26106 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26107" class="LineNr">26107 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26108" class="LineNr">26108 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) -<span id="L26109" class="LineNr">26109 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L26110" class="LineNr">26110 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L26111" class="LineNr">26111 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26112" class="LineNr">26112 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) -<span id="L26113" class="LineNr">26113 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26114" class="LineNr">26114 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26115" class="LineNr">26115 </span> } -<span id="L26116" class="LineNr">26116 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: -<span id="L26117" class="LineNr">26117 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> -<span id="L26118" class="LineNr">26118 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L26119" class="LineNr">26119 </span> 89/<- %ecx 0/r32/eax -<span id="L26120" class="LineNr">26120 </span> <span class="subxComment"># expected = lookup(expected->next)</span> -<span id="L26121" class="LineNr">26121 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26122" class="LineNr">26122 </span> 89/<- %edx 0/r32/eax -<span id="L26123" class="LineNr">26123 </span> <span class="subxComment">#</span> -<span id="L26124" class="LineNr">26124 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26125" class="LineNr">26125 </span> } -<span id="L26126" class="LineNr">26126 </span><span class="Constant">$check-mu-call:check-output-count</span>: -<span id="L26127" class="LineNr">26127 </span> <span class="subxComment"># if (outputs == expected) proceed</span> -<span id="L26128" class="LineNr">26128 </span> 39/compare %ecx 2/r32/edx -<span id="L26129" class="LineNr">26129 </span> { -<span id="L26130" class="LineNr">26130 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26131" class="LineNr">26131 </span> <span class="subxComment"># exactly one of the two is null</span> -<span id="L26132" class="LineNr">26132 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> -<span id="L26133" class="LineNr">26133 </span> { -<span id="L26134" class="LineNr">26134 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26135" class="LineNr">26135 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26136" class="LineNr">26136 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26137" class="LineNr">26137 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26138" class="LineNr">26138 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26139" class="LineNr">26139 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26140" class="LineNr">26140 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26141" class="LineNr">26141 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26142" class="LineNr">26142 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26143" class="LineNr">26143 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) -<span id="L26144" class="LineNr">26144 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26145" class="LineNr">26145 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26146" class="LineNr">26146 </span> } -<span id="L26147" class="LineNr">26147 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> -<span id="L26148" class="LineNr">26148 </span> { -<span id="L26149" class="LineNr">26149 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26150" class="LineNr">26150 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26151" class="LineNr">26151 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) -<span id="L26152" class="LineNr">26152 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L26153" class="LineNr">26153 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26154" class="LineNr">26154 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26155" class="LineNr">26155 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) -<span id="L26156" class="LineNr">26156 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26157" class="LineNr">26157 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) -<span id="L26158" class="LineNr">26158 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) -<span id="L26159" class="LineNr">26159 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L26160" class="LineNr">26160 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L26161" class="LineNr">26161 </span> } -<span id="L26162" class="LineNr">26162 </span> } -<span id="L26163" class="LineNr">26163 </span><span class="Constant">$check-mu-call:end</span>: -<span id="L26164" class="LineNr">26164 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26165" class="LineNr">26165 </span> 5f/pop-to-edi -<span id="L26166" class="LineNr">26166 </span> 5e/pop-to-esi -<span id="L26167" class="LineNr">26167 </span> 5b/pop-to-ebx -<span id="L26168" class="LineNr">26168 </span> 5a/pop-to-edx -<span id="L26169" class="LineNr">26169 </span> 59/pop-to-ecx -<span id="L26170" class="LineNr">26170 </span> 58/pop-to-eax -<span id="L26171" class="LineNr">26171 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> -<span id="L26172" class="LineNr">26172 </span> 81 0/subop/add %esp 0x70/imm32 -<span id="L26173" class="LineNr">26173 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26174" class="LineNr">26174 </span> 89/<- %esp 5/r32/ebp -<span id="L26175" class="LineNr">26175 </span> 5d/pop-to-ebp -<span id="L26176" class="LineNr">26176 </span> c3/return -<span id="L26177" class="LineNr">26177 </span> -<span id="L26178" class="LineNr">26178 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> -<span id="L26179" class="LineNr">26179 </span><span class="subxFunction">type-match?</span>: <span class="subxComment"># def: (addr type-tree), call: (addr type-tree), type-parameters: (addr table (handle array byte) (addr type-tree)) -> result/eax: boolean</span> -<span id="L26180" class="LineNr">26180 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26181" class="LineNr">26181 </span> 55/push-ebp -<span id="L26182" class="LineNr">26182 </span> 89/<- %ebp 4/r32/esp -<span id="L26183" class="LineNr">26183 </span> <span class="subxComment"># if (call is literal and def is numberlike) return true</span> -<span id="L26184" class="LineNr">26184 </span> { -<span id="L26185" class="LineNr">26185 </span><span class="Constant">$type-match?:check-literal-int</span>: -<span id="L26186" class="LineNr">26186 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> -<span id="L26187" class="LineNr">26187 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26188" class="LineNr">26188 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26189" class="LineNr">26189 </span> (<a href='mu.subx.html#L21736'>is-mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L26190" class="LineNr">26190 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26191" class="LineNr">26191 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26192" class="LineNr">26192 </span> b8/copy-to-eax 1/imm32/true -<span id="L26193" class="LineNr">26193 </span> e9/jump $type-match?:end/disp32 -<span id="L26194" class="LineNr">26194 </span> } -<span id="L26195" class="LineNr">26195 </span> <span class="subxComment"># if (call is literal-string and def is string) return true</span> -<span id="L26196" class="LineNr">26196 </span> { -<span id="L26197" class="LineNr">26197 </span><span class="Constant">$type-match?:check-literal-string</span>: -<span id="L26198" class="LineNr">26198 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> -<span id="L26199" class="LineNr">26199 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26200" class="LineNr">26200 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26201" class="LineNr">26201 </span> (<a href='mu.subx.html#L35546'>is-mu-string-type?</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L26202" class="LineNr">26202 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26203" class="LineNr">26203 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26204" class="LineNr">26204 </span> b8/copy-to-eax 1/imm32/true -<span id="L26205" class="LineNr">26205 </span> e9/jump $type-match?:end/disp32 -<span id="L26206" class="LineNr">26206 </span> } -<span id="L26207" class="LineNr">26207 </span><span class="Constant">$type-match?:baseline</span>: -<span id="L26208" class="LineNr">26208 </span> <span class="subxComment"># otherwise fall back</span> -<span id="L26209" class="LineNr">26209 </span> (<a href='mu.subx.html#L26216'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26210" class="LineNr">26210 </span><span class="Constant">$type-match?:end</span>: -<span id="L26211" class="LineNr">26211 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26212" class="LineNr">26212 </span> 89/<- %esp 5/r32/ebp -<span id="L26213" class="LineNr">26213 </span> 5d/pop-to-ebp -<span id="L26214" class="LineNr">26214 </span> c3/return -<span id="L26215" class="LineNr">26215 </span> -<span id="L26216" class="LineNr">26216 </span><span class="subxFunction">type-component-match?</span>: <span class="subxComment"># def: (addr type-tree), call: (addr type-tree), type-parameters: (addr table (handle array byte) (addr type-tree)) -> result/eax: boolean</span> -<span id="L26217" class="LineNr">26217 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26218" class="LineNr">26218 </span> 55/push-ebp -<span id="L26219" class="LineNr">26219 </span> 89/<- %ebp 4/r32/esp -<span id="L26220" class="LineNr">26220 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26221" class="LineNr">26221 </span> 51/push-ecx -<span id="L26222" class="LineNr">26222 </span> 52/push-edx -<span id="L26223" class="LineNr">26223 </span> 53/push-ebx -<span id="L26224" class="LineNr">26224 </span> <span class="subxComment"># ecx = def</span> -<span id="L26225" class="LineNr">26225 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26226" class="LineNr">26226 </span> <span class="subxComment"># edx = call</span> -<span id="L26227" class="LineNr">26227 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L26228" class="LineNr">26228 </span><span class="Constant">$type-component-match?:compare-addr</span>: -<span id="L26229" class="LineNr">26229 </span> <span class="subxComment"># if (def == call) return true</span> -<span id="L26230" class="LineNr">26230 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26231" class="LineNr">26231 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26232" class="LineNr">26232 </span> b8/copy-to-eax 1/imm32/true -<span id="L26233" class="LineNr">26233 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26234" class="LineNr">26234 </span> <span class="subxComment"># if (def == 0) return false</span> -<span id="L26235" class="LineNr">26235 </span> b8/copy-to-eax 0/imm32/false -<span id="L26236" class="LineNr">26236 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26237" class="LineNr">26237 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26238" class="LineNr">26238 </span> <span class="subxComment"># if (call == 0) return false</span> -<span id="L26239" class="LineNr">26239 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26240" class="LineNr">26240 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 -<span id="L26241" class="LineNr">26241 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> -<span id="L26242" class="LineNr">26242 </span> { -<span id="L26243" class="LineNr">26243 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: -<span id="L26244" class="LineNr">26244 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26245" class="LineNr">26245 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26246" class="LineNr">26246 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L26247" class="LineNr">26247 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26248" class="LineNr">26248 </span><span class="Constant">$type-component-match?:type-parameter</span>: -<span id="L26249" class="LineNr">26249 </span> (<a href='mu.subx.html#L26313'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26250" class="LineNr">26250 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26251" class="LineNr">26251 </span> } -<span id="L26252" class="LineNr">26252 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> -<span id="L26253" class="LineNr">26253 </span> { -<span id="L26254" class="LineNr">26254 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: -<span id="L26255" class="LineNr">26255 </span> <span class="subxComment"># if def is a list..</span> -<span id="L26256" class="LineNr">26256 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26257" class="LineNr">26257 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26258" class="LineNr">26258 </span> <span class="subxComment"># ..that's a singleton</span> -<span id="L26259" class="LineNr">26259 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> -<span id="L26260" class="LineNr">26260 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26261" class="LineNr">26261 </span> <span class="subxComment"># ..and whose head is a type parameter</span> -<span id="L26262" class="LineNr">26262 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26263" class="LineNr">26263 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26264" class="LineNr">26264 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26265" class="LineNr">26265 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> -<span id="L26266" class="LineNr">26266 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26267" class="LineNr">26267 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: -<span id="L26268" class="LineNr">26268 </span> (<a href='mu.subx.html#L26313'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26269" class="LineNr">26269 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26270" class="LineNr">26270 </span> } -<span id="L26271" class="LineNr">26271 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: -<span id="L26272" class="LineNr">26272 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> -<span id="L26273" class="LineNr">26273 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26274" class="LineNr">26274 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26275" class="LineNr">26275 </span> b8/copy-to-eax 0/imm32/false -<span id="L26276" class="LineNr">26276 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 -<span id="L26277" class="LineNr">26277 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> -<span id="L26278" class="LineNr">26278 </span> { -<span id="L26279" class="LineNr">26279 </span><span class="Constant">$type-component-match?:check-atom</span>: -<span id="L26280" class="LineNr">26280 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L26281" class="LineNr">26281 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26282" class="LineNr">26282 </span><span class="Constant">$type-component-match?:is-atom</span>: -<span id="L26283" class="LineNr">26283 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26284" class="LineNr">26284 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26285" class="LineNr">26285 </span> 0f 94/set-if-= %al -<span id="L26286" class="LineNr">26286 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26287" class="LineNr">26287 </span> e9/jump $type-component-match?:end/disp32 -<span id="L26288" class="LineNr">26288 </span> } -<span id="L26289" class="LineNr">26289 </span><span class="Constant">$type-component-match?:check-left</span>: -<span id="L26290" class="LineNr">26290 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> -<span id="L26291" class="LineNr">26291 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26292" class="LineNr">26292 </span> 89/<- %ebx 0/r32/eax -<span id="L26293" class="LineNr">26293 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26294" class="LineNr">26294 </span> (<a href='mu.subx.html#L26216'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26295" class="LineNr">26295 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26296" class="LineNr">26296 </span> 74/jump-if-= $type-component-match?:end/disp8 -<span id="L26297" class="LineNr">26297 </span><span class="Constant">$type-component-match?:check-right</span>: -<span id="L26298" class="LineNr">26298 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> -<span id="L26299" class="LineNr">26299 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26300" class="LineNr">26300 </span> 89/<- %ebx 0/r32/eax -<span id="L26301" class="LineNr">26301 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26302" class="LineNr">26302 </span> (<a href='mu.subx.html#L26216'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L26303" class="LineNr">26303 </span><span class="Constant">$type-component-match?:end</span>: -<span id="L26304" class="LineNr">26304 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26305" class="LineNr">26305 </span> 5b/pop-to-ebx -<span id="L26306" class="LineNr">26306 </span> 5a/pop-to-edx -<span id="L26307" class="LineNr">26307 </span> 59/pop-to-ecx -<span id="L26308" class="LineNr">26308 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26309" class="LineNr">26309 </span> 89/<- %esp 5/r32/ebp -<span id="L26310" class="LineNr">26310 </span> 5d/pop-to-ebp -<span id="L26311" class="LineNr">26311 </span> c3/return -<span id="L26312" class="LineNr">26312 </span> -<span id="L26313" class="LineNr">26313 </span><span class="subxFunction">type-parameter-match?</span>: <span class="subxComment"># type-parameter-name: (handle array byte), type: (addr type-tree), type-parameters: (addr table (handle array byte) (addr type-tree)) -> result/eax: boolean</span> -<span id="L26314" class="LineNr">26314 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26315" class="LineNr">26315 </span> 55/push-ebp -<span id="L26316" class="LineNr">26316 </span> 89/<- %ebp 4/r32/esp -<span id="L26317" class="LineNr">26317 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26318" class="LineNr">26318 </span> 51/push-ecx -<span id="L26319" class="LineNr">26319 </span> <span class="subxComment">#</span> -<span id="L26320" class="LineNr">26320 </span> (<a href='../131table.subx.html#L706'>get-or-insert-handle</a> *(ebp+0x14) *(ebp+8) *(ebp+0xc) 0xc) <span class="subxComment"># => eax</span> -<span id="L26321" class="LineNr">26321 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> -<span id="L26322" class="LineNr">26322 </span> { -<span id="L26323" class="LineNr">26323 </span> 81 7/subop/compare *eax 0/imm32 -<span id="L26324" class="LineNr">26324 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26325" class="LineNr">26325 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L26326" class="LineNr">26326 </span> 89/<- *eax 1/r32/ecx -<span id="L26327" class="LineNr">26327 </span> } -<span id="L26328" class="LineNr">26328 </span> <span class="subxComment">#</span> -<span id="L26329" class="LineNr">26329 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> -<span id="L26330" class="LineNr">26330 </span><span class="Constant">$type-parameter-match?:end</span>: -<span id="L26331" class="LineNr">26331 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26332" class="LineNr">26332 </span> 59/pop-to-ecx -<span id="L26333" class="LineNr">26333 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26334" class="LineNr">26334 </span> 89/<- %esp 5/r32/ebp -<span id="L26335" class="LineNr">26335 </span> 5d/pop-to-ebp -<span id="L26336" class="LineNr">26336 </span> c3/return -<span id="L26337" class="LineNr">26337 </span> -<span id="L26338" class="LineNr">26338 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L26339" class="LineNr">26339 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26340" class="LineNr">26340 </span> 55/push-ebp -<span id="L26341" class="LineNr">26341 </span> 89/<- %ebp 4/r32/esp -<span id="L26342" class="LineNr">26342 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26343" class="LineNr">26343 </span> 51/push-ecx -<span id="L26344" class="LineNr">26344 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L26345" class="LineNr">26345 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26346" class="LineNr">26346 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> -<span id="L26347" class="LineNr">26347 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> -<span id="L26348" class="LineNr">26348 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L26349" class="LineNr">26349 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> -<span id="L26350" class="LineNr">26350 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> -<span id="L26351" class="LineNr">26351 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L26352" class="LineNr">26352 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L26353" class="LineNr">26353 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26354" class="LineNr">26354 </span> 89/<- %ecx 0/r32/eax -<span id="L26355" class="LineNr">26355 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> -<span id="L26356" class="LineNr">26356 </span> { -<span id="L26357" class="LineNr">26357 </span> (<a href='mu.subx.html#L26435'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26358" class="LineNr">26358 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26359" class="LineNr">26359 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26360" class="LineNr">26360 </span> (<a href='mu.subx.html#L26466'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26361" class="LineNr">26361 </span> eb/jump $size-of:end/disp8 -<span id="L26362" class="LineNr">26362 </span> } -<span id="L26363" class="LineNr">26363 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> -<span id="L26364" class="LineNr">26364 </span> { -<span id="L26365" class="LineNr">26365 </span> (<a href='mu.subx.html#L26500'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26366" class="LineNr">26366 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26367" class="LineNr">26367 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26368" class="LineNr">26368 </span> (<a href='mu.subx.html#L26531'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26369" class="LineNr">26369 </span> eb/jump $size-of:end/disp8 -<span id="L26370" class="LineNr">26370 </span> } -<span id="L26371" class="LineNr">26371 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L26372" class="LineNr">26372 </span> { -<span id="L26373" class="LineNr">26373 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26374" class="LineNr">26374 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26375" class="LineNr">26375 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26376" class="LineNr">26376 </span> 89/<- %ecx 0/r32/eax -<span id="L26377" class="LineNr">26377 </span> } -<span id="L26378" class="LineNr">26378 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L26379" class="LineNr">26379 </span> (<a href='mu.subx.html#L26544'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L26380" class="LineNr">26380 </span><span class="Constant">$size-of:end</span>: -<span id="L26381" class="LineNr">26381 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26382" class="LineNr">26382 </span> 59/pop-to-ecx -<span id="L26383" class="LineNr">26383 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26384" class="LineNr">26384 </span> 89/<- %esp 5/r32/ebp -<span id="L26385" class="LineNr">26385 </span> 5d/pop-to-ebp -<span id="L26386" class="LineNr">26386 </span> c3/return -<span id="L26387" class="LineNr">26387 </span> -<span id="L26388" class="LineNr">26388 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> -<span id="L26389" class="LineNr">26389 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26390" class="LineNr">26390 </span> 55/push-ebp -<span id="L26391" class="LineNr">26391 </span> 89/<- %ebp 4/r32/esp -<span id="L26392" class="LineNr">26392 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26393" class="LineNr">26393 </span> 51/push-ecx -<span id="L26394" class="LineNr">26394 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> -<span id="L26395" class="LineNr">26395 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26396" class="LineNr">26396 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L26397" class="LineNr">26397 </span> 89/<- %ecx 0/r32/eax -<span id="L26398" class="LineNr">26398 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> -<span id="L26399" class="LineNr">26399 </span> <span class="subxComment"># t = lookup(t->right)</span> -<span id="L26400" class="LineNr">26400 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26401" class="LineNr">26401 </span> 89/<- %ecx 0/r32/eax -<span id="L26402" class="LineNr">26402 </span> <span class="subxComment"># if is-mu-array?(t) return size-of-array(t)</span> -<span id="L26403" class="LineNr">26403 </span> { -<span id="L26404" class="LineNr">26404 </span> (<a href='mu.subx.html#L26435'>is-mu-array?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26405" class="LineNr">26405 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26406" class="LineNr">26406 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26407" class="LineNr">26407 </span> (<a href='mu.subx.html#L26466'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26408" class="LineNr">26408 </span> eb/jump $size-of-deref:end/disp8 -<span id="L26409" class="LineNr">26409 </span> } -<span id="L26410" class="LineNr">26410 </span> <span class="subxComment"># if is-mu-stream?(t) return size-of-stream(t)</span> -<span id="L26411" class="LineNr">26411 </span> { -<span id="L26412" class="LineNr">26412 </span> (<a href='mu.subx.html#L26500'>is-mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26413" class="LineNr">26413 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26414" class="LineNr">26414 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26415" class="LineNr">26415 </span> (<a href='mu.subx.html#L26531'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26416" class="LineNr">26416 </span> eb/jump $size-of-deref:end/disp8 -<span id="L26417" class="LineNr">26417 </span> } -<span id="L26418" class="LineNr">26418 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> -<span id="L26419" class="LineNr">26419 </span> { -<span id="L26420" class="LineNr">26420 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26421" class="LineNr">26421 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26422" class="LineNr">26422 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26423" class="LineNr">26423 </span> 89/<- %ecx 0/r32/eax -<span id="L26424" class="LineNr">26424 </span> } -<span id="L26425" class="LineNr">26425 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> -<span id="L26426" class="LineNr">26426 </span> (<a href='mu.subx.html#L26544'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L26427" class="LineNr">26427 </span><span class="Constant">$size-of-deref:end</span>: -<span id="L26428" class="LineNr">26428 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26429" class="LineNr">26429 </span> 59/pop-to-ecx -<span id="L26430" class="LineNr">26430 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26431" class="LineNr">26431 </span> 89/<- %esp 5/r32/ebp -<span id="L26432" class="LineNr">26432 </span> 5d/pop-to-ebp -<span id="L26433" class="LineNr">26433 </span> c3/return -<span id="L26434" class="LineNr">26434 </span> -<span id="L26435" class="LineNr">26435 </span><span class="subxFunction">is-mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L26436" class="LineNr">26436 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26437" class="LineNr">26437 </span> 55/push-ebp -<span id="L26438" class="LineNr">26438 </span> 89/<- %ebp 4/r32/esp -<span id="L26439" class="LineNr">26439 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26440" class="LineNr">26440 </span> 51/push-ecx -<span id="L26441" class="LineNr">26441 </span> <span class="subxComment"># ecx = t</span> -<span id="L26442" class="LineNr">26442 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26443" class="LineNr">26443 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L26444" class="LineNr">26444 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26445" class="LineNr">26445 </span> 75/jump-if-!= $is-mu-array?:return-false/disp8 -<span id="L26446" class="LineNr">26446 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L26447" class="LineNr">26447 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26448" class="LineNr">26448 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26449" class="LineNr">26449 </span> 74/jump-if-= $is-mu-array?:return-false/disp8 -<span id="L26450" class="LineNr">26450 </span> <span class="subxComment"># return t->left->value == array</span> -<span id="L26451" class="LineNr">26451 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L26452" class="LineNr">26452 </span> 0f 94/set-if-= %al -<span id="L26453" class="LineNr">26453 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26454" class="LineNr">26454 </span> eb/jump $is-mu-array?:end/disp8 -<span id="L26455" class="LineNr">26455 </span><span class="Constant">$is-mu-array?:return-false</span>: -<span id="L26456" class="LineNr">26456 </span> b8/copy-to-eax 0/imm32/false -<span id="L26457" class="LineNr">26457 </span><span class="Constant">$is-mu-array?:end</span>: -<span id="L26458" class="LineNr">26458 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26459" class="LineNr">26459 </span> 59/pop-to-ecx -<span id="L26460" class="LineNr">26460 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26461" class="LineNr">26461 </span> 89/<- %esp 5/r32/ebp -<span id="L26462" class="LineNr">26462 </span> 5d/pop-to-ebp -<span id="L26463" class="LineNr">26463 </span> c3/return -<span id="L26464" class="LineNr">26464 </span> -<span id="L26465" class="LineNr">26465 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> -<span id="L26466" class="LineNr">26466 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L26467" class="LineNr">26467 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26468" class="LineNr">26468 </span> 55/push-ebp -<span id="L26469" class="LineNr">26469 </span> 89/<- %ebp 4/r32/esp -<span id="L26470" class="LineNr">26470 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26471" class="LineNr">26471 </span> 51/push-ecx -<span id="L26472" class="LineNr">26472 </span> 52/push-edx -<span id="L26473" class="LineNr">26473 </span> <span class="subxComment">#</span> -<span id="L26474" class="LineNr">26474 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26475" class="LineNr">26475 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> -<span id="L26476" class="LineNr">26476 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26477" class="LineNr">26477 </span> 89/<- %ecx 0/r32/eax -<span id="L26478" class="LineNr">26478 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> -<span id="L26479" class="LineNr">26479 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26480" class="LineNr">26480 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> -<span id="L26481" class="LineNr">26481 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> -<span id="L26482" class="LineNr">26482 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> -<span id="L26483" class="LineNr">26483 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26484" class="LineNr">26484 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26485" class="LineNr">26485 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> -<span id="L26486" class="LineNr">26486 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> -<span id="L26487" class="LineNr">26487 </span> (<a href='mu.subx.html#L28755'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> -<span id="L26488" class="LineNr">26488 </span> f7 4/subop/multiply-into-edx-eax %ecx -<span id="L26489" class="LineNr">26489 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> -<span id="L26490" class="LineNr">26490 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L26491" class="LineNr">26491 </span><span class="Constant">$size-of-array:end</span>: -<span id="L26492" class="LineNr">26492 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26493" class="LineNr">26493 </span> 5a/pop-to-edx -<span id="L26494" class="LineNr">26494 </span> 59/pop-to-ecx -<span id="L26495" class="LineNr">26495 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26496" class="LineNr">26496 </span> 89/<- %esp 5/r32/ebp -<span id="L26497" class="LineNr">26497 </span> 5d/pop-to-ebp -<span id="L26498" class="LineNr">26498 </span> c3/return -<span id="L26499" class="LineNr">26499 </span> -<span id="L26500" class="LineNr">26500 </span><span class="subxFunction">is-mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> -<span id="L26501" class="LineNr">26501 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26502" class="LineNr">26502 </span> 55/push-ebp -<span id="L26503" class="LineNr">26503 </span> 89/<- %ebp 4/r32/esp -<span id="L26504" class="LineNr">26504 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26505" class="LineNr">26505 </span> 51/push-ecx -<span id="L26506" class="LineNr">26506 </span> <span class="subxComment"># ecx = t</span> -<span id="L26507" class="LineNr">26507 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26508" class="LineNr">26508 </span> <span class="subxComment"># if t->is-atom?, return false</span> -<span id="L26509" class="LineNr">26509 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26510" class="LineNr">26510 </span> 75/jump-if-!= $is-mu-stream?:return-false/disp8 -<span id="L26511" class="LineNr">26511 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> -<span id="L26512" class="LineNr">26512 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26513" class="LineNr">26513 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26514" class="LineNr">26514 </span> 74/jump-if-= $is-mu-stream?:return-false/disp8 -<span id="L26515" class="LineNr">26515 </span> <span class="subxComment"># return t->left->value == stream</span> -<span id="L26516" class="LineNr">26516 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> -<span id="L26517" class="LineNr">26517 </span> 0f 94/set-if-= %al -<span id="L26518" class="LineNr">26518 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26519" class="LineNr">26519 </span> eb/jump $is-mu-stream?:end/disp8 -<span id="L26520" class="LineNr">26520 </span><span class="Constant">$is-mu-stream?:return-false</span>: -<span id="L26521" class="LineNr">26521 </span> b8/copy-to-eax 0/imm32/false -<span id="L26522" class="LineNr">26522 </span><span class="Constant">$is-mu-stream?:end</span>: -<span id="L26523" class="LineNr">26523 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26524" class="LineNr">26524 </span> 59/pop-to-ecx -<span id="L26525" class="LineNr">26525 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26526" class="LineNr">26526 </span> 89/<- %esp 5/r32/ebp -<span id="L26527" class="LineNr">26527 </span> 5d/pop-to-ebp -<span id="L26528" class="LineNr">26528 </span> c3/return -<span id="L26529" class="LineNr">26529 </span> -<span id="L26530" class="LineNr">26530 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> -<span id="L26531" class="LineNr">26531 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L26532" class="LineNr">26532 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26533" class="LineNr">26533 </span> 55/push-ebp -<span id="L26534" class="LineNr">26534 </span> 89/<- %ebp 4/r32/esp -<span id="L26535" class="LineNr">26535 </span> <span class="subxComment">#</span> -<span id="L26536" class="LineNr">26536 </span> (<a href='mu.subx.html#L26466'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> -<span id="L26537" class="LineNr">26537 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> -<span id="L26538" class="LineNr">26538 </span><span class="Constant">$size-of-stream:end</span>: -<span id="L26539" class="LineNr">26539 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26540" class="LineNr">26540 </span> 89/<- %esp 5/r32/ebp -<span id="L26541" class="LineNr">26541 </span> 5d/pop-to-ebp -<span id="L26542" class="LineNr">26542 </span> c3/return -<span id="L26543" class="LineNr">26543 </span> -<span id="L26544" class="LineNr">26544 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L26545" class="LineNr">26545 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26546" class="LineNr">26546 </span> 55/push-ebp -<span id="L26547" class="LineNr">26547 </span> 89/<- %ebp 4/r32/esp -<span id="L26548" class="LineNr">26548 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26549" class="LineNr">26549 </span> 51/push-ecx -<span id="L26550" class="LineNr">26550 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> -<span id="L26551" class="LineNr">26551 </span> 68/push 0/imm32 -<span id="L26552" class="LineNr">26552 </span> 68/push 0/imm32 -<span id="L26553" class="LineNr">26553 </span> 89/<- %ecx 4/r32/esp -<span id="L26554" class="LineNr">26554 </span> <span class="subxComment"># eax = t</span> -<span id="L26555" class="LineNr">26555 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L26556" class="LineNr">26556 </span> <span class="subxComment"># if t is a literal, return 0</span> -<span id="L26557" class="LineNr">26557 </span> 3d/compare-eax-and 0/imm32 -<span id="L26558" class="LineNr">26558 </span> 0f 84/jump-if-= $size-of-type-id:end/disp32 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L26559" class="LineNr">26559 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> -<span id="L26560" class="LineNr">26560 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L26561" class="LineNr">26561 </span> { -<span id="L26562" class="LineNr">26562 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26563" class="LineNr">26563 </span> b8/copy-to-eax 4/imm32 -<span id="L26564" class="LineNr">26564 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L26565" class="LineNr">26565 </span> } -<span id="L26566" class="LineNr">26566 </span> <span class="subxComment"># if t is a handle, return 8</span> -<span id="L26567" class="LineNr">26567 </span> 3d/compare-eax-and 4/imm32/handle -<span id="L26568" class="LineNr">26568 </span> { -<span id="L26569" class="LineNr">26569 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26570" class="LineNr">26570 </span> b8/copy-to-eax 8/imm32 -<span id="L26571" class="LineNr">26571 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L26572" class="LineNr">26572 </span> } -<span id="L26573" class="LineNr">26573 </span> <span class="subxComment"># if t is a slice, return 8</span> -<span id="L26574" class="LineNr">26574 </span> 3d/compare-eax-and 0xc/imm32/slice -<span id="L26575" class="LineNr">26575 </span> { -<span id="L26576" class="LineNr">26576 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26577" class="LineNr">26577 </span> b8/copy-to-eax 8/imm32 -<span id="L26578" class="LineNr">26578 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> -<span id="L26579" class="LineNr">26579 </span> } -<span id="L26580" class="LineNr">26580 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> -<span id="L26581" class="LineNr">26581 </span> <span class="subxComment"># TODO: support non-atom type</span> -<span id="L26582" class="LineNr">26582 </span> (<a href='mu.subx.html#L20113'>find-typeinfo</a> %eax %ecx) -<span id="L26583" class="LineNr">26583 </span> { -<span id="L26584" class="LineNr">26584 </span> 81 7/subop/compare *ecx 0/imm32 -<span id="L26585" class="LineNr">26585 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26586" class="LineNr">26586 </span><span class="Constant">$size-of-type-id:user-defined</span>: -<span id="L26587" class="LineNr">26587 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L26588" class="LineNr">26588 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> -<span id="L26589" class="LineNr">26589 </span> eb/jump $size-of-type-id:end/disp8 -<span id="L26590" class="LineNr">26590 </span> } -<span id="L26591" class="LineNr">26591 </span> <span class="subxComment"># otherwise return the word size</span> -<span id="L26592" class="LineNr">26592 </span> b8/copy-to-eax 4/imm32 -<span id="L26593" class="LineNr">26593 </span><span class="Constant">$size-of-type-id:end</span>: -<span id="L26594" class="LineNr">26594 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L26595" class="LineNr">26595 </span> 81 0/subop/add %esp 8/imm32 -<span id="L26596" class="LineNr">26596 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26597" class="LineNr">26597 </span> 59/pop-to-ecx -<span id="L26598" class="LineNr">26598 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26599" class="LineNr">26599 </span> 89/<- %esp 5/r32/ebp -<span id="L26600" class="LineNr">26600 </span> 5d/pop-to-ebp -<span id="L26601" class="LineNr">26601 </span> c3/return -<span id="L26602" class="LineNr">26602 </span> -<span id="L26603" class="LineNr">26603 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> -<span id="L26604" class="LineNr">26604 </span><span class="subxComment"># replace it with a handle some time.</span> -<span id="L26605" class="LineNr">26605 </span><span class="subxComment"># Returns null if t is an atom.</span> -<span id="L26606" class="LineNr">26606 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> -<span id="L26607" class="LineNr">26607 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26608" class="LineNr">26608 </span> 55/push-ebp -<span id="L26609" class="LineNr">26609 </span> 89/<- %ebp 4/r32/esp -<span id="L26610" class="LineNr">26610 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26611" class="LineNr">26611 </span> 51/push-ecx -<span id="L26612" class="LineNr">26612 </span> <span class="subxComment"># eax = 0</span> -<span id="L26613" class="LineNr">26613 </span> b8/copy-to-eax 0/imm32 -<span id="L26614" class="LineNr">26614 </span> <span class="subxComment"># ecx = t</span> -<span id="L26615" class="LineNr">26615 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26616" class="LineNr">26616 </span><span class="Constant">$type-tail:check-atom</span>: -<span id="L26617" class="LineNr">26617 </span> <span class="subxComment"># if t->is-atom? return 0</span> -<span id="L26618" class="LineNr">26618 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26619" class="LineNr">26619 </span> 0f 85/jump-if-!= $type-tail:end/disp32 -<span id="L26620" class="LineNr">26620 </span> <span class="subxComment"># var tail = t->right</span> -<span id="L26621" class="LineNr">26621 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26622" class="LineNr">26622 </span> 89/<- %ecx 0/r32/eax -<span id="L26623" class="LineNr">26623 </span><span class="Constant">$type-tail:check-singleton</span>: -<span id="L26624" class="LineNr">26624 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> -<span id="L26625" class="LineNr">26625 </span> { -<span id="L26626" class="LineNr">26626 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> -<span id="L26627" class="LineNr">26627 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26628" class="LineNr">26628 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26629" class="LineNr">26629 </span> e9/jump $type-tail:end/disp32 -<span id="L26630" class="LineNr">26630 </span> } -<span id="L26631" class="LineNr">26631 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> -<span id="L26632" class="LineNr">26632 </span> { -<span id="L26633" class="LineNr">26633 </span><span class="Constant">$type-tail:check-array-capacity</span>: -<span id="L26634" class="LineNr">26634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26635" class="LineNr">26635 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26636" class="LineNr">26636 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26637" class="LineNr">26637 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: -<span id="L26638" class="LineNr">26638 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26639" class="LineNr">26639 </span> 3d/compare-eax-and 0/imm32 -<span id="L26640" class="LineNr">26640 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26641" class="LineNr">26641 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: -<span id="L26642" class="LineNr">26642 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> -<span id="L26643" class="LineNr">26643 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26644" class="LineNr">26644 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26645" class="LineNr">26645 </span><span class="Constant">$type-tail:array-capacity</span>: -<span id="L26646" class="LineNr">26646 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26647" class="LineNr">26647 </span> eb/jump $type-tail:end/disp8 -<span id="L26648" class="LineNr">26648 </span> } -<span id="L26649" class="LineNr">26649 </span><span class="Constant">$type-tail:check-compound-left</span>: -<span id="L26650" class="LineNr">26650 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> -<span id="L26651" class="LineNr">26651 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26652" class="LineNr">26652 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26653" class="LineNr">26653 </span> 74/jump-if-= $type-tail:end/disp8 -<span id="L26654" class="LineNr">26654 </span><span class="Constant">$type-tail:return-tail</span>: -<span id="L26655" class="LineNr">26655 </span> <span class="subxComment"># return tail</span> -<span id="L26656" class="LineNr">26656 </span> 89/<- %eax 1/r32/ecx -<span id="L26657" class="LineNr">26657 </span><span class="Constant">$type-tail:end</span>: -<span id="L26658" class="LineNr">26658 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26659" class="LineNr">26659 </span> 59/pop-to-ecx -<span id="L26660" class="LineNr">26660 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26661" class="LineNr">26661 </span> 89/<- %esp 5/r32/ebp -<span id="L26662" class="LineNr">26662 </span> 5d/pop-to-ebp -<span id="L26663" class="LineNr">26663 </span> c3/return -<span id="L26664" class="LineNr">26664 </span> -<span id="L26665" class="LineNr">26665 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> -<span id="L26666" class="LineNr">26666 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26667" class="LineNr">26667 </span> 55/push-ebp -<span id="L26668" class="LineNr">26668 </span> 89/<- %ebp 4/r32/esp -<span id="L26669" class="LineNr">26669 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26670" class="LineNr">26670 </span> 51/push-ecx -<span id="L26671" class="LineNr">26671 </span> 52/push-edx -<span id="L26672" class="LineNr">26672 </span> 53/push-ebx -<span id="L26673" class="LineNr">26673 </span> <span class="subxComment"># ecx = a</span> -<span id="L26674" class="LineNr">26674 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26675" class="LineNr">26675 </span> <span class="subxComment"># edx = b</span> -<span id="L26676" class="LineNr">26676 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L26677" class="LineNr">26677 </span><span class="Constant">$type-equal?:compare-addr</span>: -<span id="L26678" class="LineNr">26678 </span> <span class="subxComment"># if (a == b) return true</span> -<span id="L26679" class="LineNr">26679 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26680" class="LineNr">26680 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> -<span id="L26681" class="LineNr">26681 </span> b8/copy-to-eax 1/imm32/true -<span id="L26682" class="LineNr">26682 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26683" class="LineNr">26683 </span><span class="Constant">$type-equal?:compare-null-a</span>: -<span id="L26684" class="LineNr">26684 </span> <span class="subxComment"># if (a == 0) return false</span> -<span id="L26685" class="LineNr">26685 </span> b8/copy-to-eax 0/imm32/false -<span id="L26686" class="LineNr">26686 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26687" class="LineNr">26687 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26688" class="LineNr">26688 </span><span class="Constant">$type-equal?:compare-null-b</span>: -<span id="L26689" class="LineNr">26689 </span> <span class="subxComment"># if (b == 0) return false</span> -<span id="L26690" class="LineNr">26690 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L26691" class="LineNr">26691 </span> 0f 84/jump-if-= $type-equal?:end/disp32 -<span id="L26692" class="LineNr">26692 </span><span class="Constant">$type-equal?:compare-atom-state</span>: -<span id="L26693" class="LineNr">26693 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> -<span id="L26694" class="LineNr">26694 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26695" class="LineNr">26695 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> -<span id="L26696" class="LineNr">26696 </span> b8/copy-to-eax 0/imm32/false -<span id="L26697" class="LineNr">26697 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 -<span id="L26698" class="LineNr">26698 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> -<span id="L26699" class="LineNr">26699 </span> { -<span id="L26700" class="LineNr">26700 </span><span class="Constant">$type-equal?:check-atom</span>: -<span id="L26701" class="LineNr">26701 </span> 81 7/subop/compare %ebx 0/imm32/false -<span id="L26702" class="LineNr">26702 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26703" class="LineNr">26703 </span><span class="Constant">$type-equal?:is-atom</span>: -<span id="L26704" class="LineNr">26704 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26705" class="LineNr">26705 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L26706" class="LineNr">26706 </span> 0f 94/set-if-= %al -<span id="L26707" class="LineNr">26707 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L26708" class="LineNr">26708 </span> e9/jump $type-equal?:end/disp32 -<span id="L26709" class="LineNr">26709 </span> } -<span id="L26710" class="LineNr">26710 </span><span class="Constant">$type-equal?:check-left</span>: -<span id="L26711" class="LineNr">26711 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> -<span id="L26712" class="LineNr">26712 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26713" class="LineNr">26713 </span> 89/<- %ebx 0/r32/eax -<span id="L26714" class="LineNr">26714 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L26715" class="LineNr">26715 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26716" class="LineNr">26716 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26717" class="LineNr">26717 </span> 74/jump-if-= $type-equal?:end/disp8 -<span id="L26718" class="LineNr">26718 </span><span class="Constant">$type-equal?:check-right</span>: -<span id="L26719" class="LineNr">26719 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> -<span id="L26720" class="LineNr">26720 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26721" class="LineNr">26721 </span> 89/<- %ebx 0/r32/eax -<span id="L26722" class="LineNr">26722 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L26723" class="LineNr">26723 </span> (<a href='mu.subx.html#L26665'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> -<span id="L26724" class="LineNr">26724 </span><span class="Constant">$type-equal?:end</span>: -<span id="L26725" class="LineNr">26725 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26726" class="LineNr">26726 </span> 5b/pop-to-ebx -<span id="L26727" class="LineNr">26727 </span> 5a/pop-to-edx -<span id="L26728" class="LineNr">26728 </span> 59/pop-to-ecx -<span id="L26729" class="LineNr">26729 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26730" class="LineNr">26730 </span> 89/<- %esp 5/r32/ebp -<span id="L26731" class="LineNr">26731 </span> 5d/pop-to-ebp -<span id="L26732" class="LineNr">26732 </span> c3/return -<span id="L26733" class="LineNr">26733 </span> -<span id="L26734" class="LineNr">26734 </span><span class="subxComment">#######################################################</span> -<span id="L26735" class="LineNr">26735 </span><span class="subxComment"># Code-generation</span> -<span id="L26736" class="LineNr">26736 </span><span class="subxComment">#######################################################</span> -<span id="L26737" class="LineNr">26737 </span> -<span id="L26738" class="LineNr">26738 </span>== data -<span id="L26739" class="LineNr">26739 </span> -<span id="L26740" class="LineNr">26740 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> -<span id="L26741" class="LineNr">26741 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> -<span id="L26742" class="LineNr">26742 </span> 0/imm32 -<span id="L26743" class="LineNr">26743 </span> -<span id="L26744" class="LineNr">26744 </span>== code -<span id="L26745" class="LineNr">26745 </span> -<span id="L26746" class="LineNr">26746 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> -<span id="L26747" class="LineNr">26747 </span><span class="subxComment"># getting type checks later in life.</span> -<span id="L26748" class="LineNr">26748 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> -<span id="L26749" class="LineNr">26749 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> -<span id="L26750" class="LineNr">26750 </span> -<span id="L26751" class="LineNr">26751 </span><span class="subxFunction">emit-subx</span>: <span class="subxComment"># out: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L26752" class="LineNr">26752 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26753" class="LineNr">26753 </span> 55/push-ebp -<span id="L26754" class="LineNr">26754 </span> 89/<- %ebp 4/r32/esp -<span id="L26755" class="LineNr">26755 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26756" class="LineNr">26756 </span> 50/push-eax -<span id="L26757" class="LineNr">26757 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> -<span id="L26758" class="LineNr">26758 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> -<span id="L26759" class="LineNr">26759 </span> { -<span id="L26760" class="LineNr">26760 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L26761" class="LineNr">26761 </span> 3d/compare-eax-and 0/imm32 -<span id="L26762" class="LineNr">26762 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26763" class="LineNr">26763 </span> (<a href='mu.subx.html#L26776'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) -<span id="L26764" class="LineNr">26764 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L26765" class="LineNr">26765 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L26766" class="LineNr">26766 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L26767" class="LineNr">26767 </span> } -<span id="L26768" class="LineNr">26768 </span><span class="Constant">$emit-subx:end</span>: -<span id="L26769" class="LineNr">26769 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26770" class="LineNr">26770 </span> 58/pop-to-eax -<span id="L26771" class="LineNr">26771 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26772" class="LineNr">26772 </span> 89/<- %esp 5/r32/ebp -<span id="L26773" class="LineNr">26773 </span> 5d/pop-to-ebp -<span id="L26774" class="LineNr">26774 </span> c3/return -<span id="L26775" class="LineNr">26775 </span> -<span id="L26776" class="LineNr">26776 </span><span class="subxFunction">emit-subx-function</span>: <span class="subxComment"># out: (addr buffered-file), f: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L26777" class="LineNr">26777 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26778" class="LineNr">26778 </span> 55/push-ebp -<span id="L26779" class="LineNr">26779 </span> 89/<- %ebp 4/r32/esp -<span id="L26780" class="LineNr">26780 </span> <span class="subxComment"># some preprocessing</span> -<span id="L26781" class="LineNr">26781 </span> (<a href='mu.subx.html#L26821'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) -<span id="L26782" class="LineNr">26782 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26783" class="LineNr">26783 </span> 50/push-eax -<span id="L26784" class="LineNr">26784 </span> 51/push-ecx -<span id="L26785" class="LineNr">26785 </span> 52/push-edx -<span id="L26786" class="LineNr">26786 </span> <span class="subxComment"># initialize some global state</span> -<span id="L26787" class="LineNr">26787 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> -<span id="L26788" class="LineNr">26788 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L26741'>Curr-local-stack-offset</a></span> 0/imm32 -<span id="L26789" class="LineNr">26789 </span> <span class="subxComment"># ecx = f</span> -<span id="L26790" class="LineNr">26790 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L26791" class="LineNr">26791 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> -<span id="L26792" class="LineNr">26792 </span> 81 5/subop/subtract %esp 0xc00/imm32 -<span id="L26793" class="LineNr">26793 </span> 68/push 0xc00/imm32/size -<span id="L26794" class="LineNr">26794 </span> 68/push 0/imm32/top -<span id="L26795" class="LineNr">26795 </span> 89/<- %edx 4/r32/esp -<span id="L26796" class="LineNr">26796 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> -<span id="L26797" class="LineNr">26797 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L26798" class="LineNr">26798 </span> <span class="subxComment">#</span> -<span id="L26799" class="LineNr">26799 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L26800" class="LineNr">26800 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) -<span id="L26801" class="LineNr">26801 </span> (<a href='mu.subx.html#L38059'>emit-subx-prologue</a> *(ebp+8)) -<span id="L26802" class="LineNr">26802 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> -<span id="L26803" class="LineNr">26803 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> -<span id="L26804" class="LineNr">26804 </span> <span class="subxComment">#</span> -<span id="L26805" class="LineNr">26805 </span> (<a href='mu.subx.html#L29873'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) -<span id="L26806" class="LineNr">26806 </span> (<a href='mu.subx.html#L38073'>emit-subx-epilogue</a> *(ebp+8)) -<span id="L26807" class="LineNr">26807 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> -<span id="L26808" class="LineNr">26808 </span> <span class="subxComment"># been cleaned up</span> -<span id="L26809" class="LineNr">26809 </span><span class="Constant">$emit-subx-function:end</span>: -<span id="L26810" class="LineNr">26810 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L26811" class="LineNr">26811 </span> 81 0/subop/add %esp 0xc08/imm32 -<span id="L26812" class="LineNr">26812 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26813" class="LineNr">26813 </span> 5a/pop-to-edx -<span id="L26814" class="LineNr">26814 </span> 59/pop-to-ecx -<span id="L26815" class="LineNr">26815 </span> 58/pop-to-eax -<span id="L26816" class="LineNr">26816 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26817" class="LineNr">26817 </span> 89/<- %esp 5/r32/ebp -<span id="L26818" class="LineNr">26818 </span> 5d/pop-to-ebp -<span id="L26819" class="LineNr">26819 </span> c3/return -<span id="L26820" class="LineNr">26820 </span> -<span id="L26821" class="LineNr">26821 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> -<span id="L26822" class="LineNr">26822 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26823" class="LineNr">26823 </span> 55/push-ebp -<span id="L26824" class="LineNr">26824 </span> 89/<- %ebp 4/r32/esp -<span id="L26825" class="LineNr">26825 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26826" class="LineNr">26826 </span> 50/push-eax -<span id="L26827" class="LineNr">26827 </span> 51/push-ecx -<span id="L26828" class="LineNr">26828 </span> 52/push-edx -<span id="L26829" class="LineNr">26829 </span> 53/push-ebx -<span id="L26830" class="LineNr">26830 </span> 57/push-edi -<span id="L26831" class="LineNr">26831 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> -<span id="L26832" class="LineNr">26832 </span> ba/copy-to-edx 8/imm32 -<span id="L26833" class="LineNr">26833 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> -<span id="L26834" class="LineNr">26834 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L26835" class="LineNr">26835 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> -<span id="L26836" class="LineNr">26836 </span> 89/<- %ecx 0/r32/eax -<span id="L26837" class="LineNr">26837 </span> { -<span id="L26838" class="LineNr">26838 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: -<span id="L26839" class="LineNr">26839 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L26840" class="LineNr">26840 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L26841" class="LineNr">26841 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> -<span id="L26842" class="LineNr">26842 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26843" class="LineNr">26843 </span> 89/<- %ebx 0/r32/eax -<span id="L26844" class="LineNr">26844 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> -<span id="L26845" class="LineNr">26845 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> -<span id="L26846" class="LineNr">26846 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L26847" class="LineNr">26847 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> -<span id="L26848" class="LineNr">26848 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> -<span id="L26849" class="LineNr">26849 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> -<span id="L26850" class="LineNr">26850 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> -<span id="L26851" class="LineNr">26851 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L26852" class="LineNr">26852 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L26853" class="LineNr">26853 </span> <span class="subxComment"># v->offset = next-offset</span> -<span id="L26854" class="LineNr">26854 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L26855" class="LineNr">26855 </span> <span class="subxComment"># next-offset += size-of(v)</span> -<span id="L26856" class="LineNr">26856 </span> (<a href='mu.subx.html#L26338'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L26857" class="LineNr">26857 </span> 01/add-to %edx 0/r32/eax -<span id="L26858" class="LineNr">26858 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L26859" class="LineNr">26859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L26860" class="LineNr">26860 </span> 89/<- %ecx 0/r32/eax -<span id="L26861" class="LineNr">26861 </span> <span class="subxComment">#</span> -<span id="L26862" class="LineNr">26862 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L26863" class="LineNr">26863 </span> } -<span id="L26864" class="LineNr">26864 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: -<span id="L26865" class="LineNr">26865 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L26866" class="LineNr">26866 </span> 5f/pop-to-edi -<span id="L26867" class="LineNr">26867 </span> 5b/pop-to-ebx -<span id="L26868" class="LineNr">26868 </span> 5a/pop-to-edx -<span id="L26869" class="LineNr">26869 </span> 59/pop-to-ecx -<span id="L26870" class="LineNr">26870 </span> 58/pop-to-eax -<span id="L26871" class="LineNr">26871 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L26872" class="LineNr">26872 </span> 89/<- %esp 5/r32/ebp -<span id="L26873" class="LineNr">26873 </span> 5d/pop-to-ebp -<span id="L26874" class="LineNr">26874 </span> c3/return -<span id="L26875" class="LineNr">26875 </span> -<span id="L26876" class="LineNr">26876 </span><span class="subxFunction">emit-subx-stmt-list</span>: <span class="subxComment"># out: (addr buffered-file), stmts: (addr list stmt), vars: (addr stack live-var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L26877" class="LineNr">26877 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L26878" class="LineNr">26878 </span> 55/push-ebp -<span id="L26879" class="LineNr">26879 </span> 89/<- %ebp 4/r32/esp -<span id="L26880" class="LineNr">26880 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26881" class="LineNr">26881 </span> 50/push-eax -<span id="L26882" class="LineNr">26882 </span> 51/push-ecx -<span id="L26883" class="LineNr">26883 </span> 53/push-ebx -<span id="L26884" class="LineNr">26884 </span> 56/push-esi -<span id="L26885" class="LineNr">26885 </span> <span class="subxComment"># esi = stmts</span> -<span id="L26886" class="LineNr">26886 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L26887" class="LineNr">26887 </span> <span class="subxComment">#</span> -<span id="L26888" class="LineNr">26888 </span> { -<span id="L26889" class="LineNr">26889 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: -<span id="L26890" class="LineNr">26890 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L26891" class="LineNr">26891 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26892" class="LineNr">26892 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> -<span id="L26893" class="LineNr">26893 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L26894" class="LineNr">26894 </span> 89/<- %ecx 0/r32/eax -<span id="L26895" class="LineNr">26895 </span> { -<span id="L26896" class="LineNr">26896 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: -<span id="L26897" class="LineNr">26897 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L26898" class="LineNr">26898 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L26899" class="LineNr">26899 </span><span class="Constant">$emit-subx-stmt-list:block</span>: -<span id="L26900" class="LineNr">26900 </span> (<a href='mu.subx.html#L29873'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L26901" class="LineNr">26901 </span> } -<span id="L26902" class="LineNr">26902 </span> { -<span id="L26903" class="LineNr">26903 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: -<span id="L26904" class="LineNr">26904 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L26905" class="LineNr">26905 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L26906" class="LineNr">26906 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: -<span id="L26907" class="LineNr">26907 </span> { -<span id="L26908" class="LineNr">26908 </span> (<a href='mu.subx.html#L27320'>is-mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L26909" class="LineNr">26909 </span> 3d/compare-eax-and 0/imm32/false -<span id="L26910" class="LineNr">26910 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L26911" class="LineNr">26911 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: -<span id="L26912" class="Folded">26912 </span><span class="Folded">+-- 25 lines: # unconditional return ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L26937" class="Folded">26937 </span><span class="Folded">+-- 27 lines: # unconditional loops -----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L26964" class="Folded">26964 </span><span class="Folded">+-- 16 lines: # unconditional breaks ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L26980" class="Folded">26980 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27018" class="Folded">27018 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target ----------------------------------------------------------------------------------------------------------------------------</span> -<span id="L27037" class="LineNr">27037 </span> } -<span id="L27038" class="LineNr">27038 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: -<span id="L27039" class="LineNr">27039 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27040" class="LineNr">27040 </span> e9/jump $emit-subx-stmt-list:continue/disp32 -<span id="L27041" class="LineNr">27041 </span> } -<span id="L27042" class="LineNr">27042 </span> { -<span id="L27043" class="LineNr">27043 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: -<span id="L27044" class="LineNr">27044 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> -<span id="L27045" class="LineNr">27045 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27046" class="LineNr">27046 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: -<span id="L27047" class="LineNr">27047 </span> (<a href='mu.subx.html#L28276'>emit-subx-var-def</a> *(ebp+8) %ecx) -<span id="L27048" class="LineNr">27048 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> -<span id="L27049" class="LineNr">27049 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> -<span id="L27050" class="LineNr">27050 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># Live-var-register-spilled = 0 for vars on the stack</span> -<span id="L27051" class="LineNr">27051 </span> <span class="subxComment">#</span> -<span id="L27052" class="LineNr">27052 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L27053" class="LineNr">27053 </span> } -<span id="L27054" class="LineNr">27054 </span> { -<span id="L27055" class="LineNr">27055 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: -<span id="L27056" class="LineNr">27056 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> -<span id="L27057" class="LineNr">27057 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27058" class="LineNr">27058 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: -<span id="L27059" class="LineNr">27059 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> -<span id="L27060" class="LineNr">27060 </span> (<a href='mu.subx.html#L27089'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27061" class="LineNr">27061 </span> <span class="subxComment"># emit the instruction as usual</span> -<span id="L27062" class="LineNr">27062 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L27063" class="LineNr">27063 </span> <span class="subxComment">#</span> -<span id="L27064" class="LineNr">27064 </span> eb/jump $emit-subx-stmt-list:continue/disp8 -<span id="L27065" class="LineNr">27065 </span> } -<span id="L27066" class="LineNr">27066 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: -<span id="L27067" class="LineNr">27067 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> -<span id="L27068" class="LineNr">27068 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27069" class="LineNr">27069 </span> 89/<- %esi 0/r32/eax -<span id="L27070" class="LineNr">27070 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27071" class="LineNr">27071 </span> } -<span id="L27072" class="LineNr">27072 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: -<span id="L27073" class="LineNr">27073 </span> (<a href='mu.subx.html#L27482'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27074" class="LineNr">27074 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: -<span id="L27075" class="LineNr">27075 </span> (<a href='mu.subx.html#L27812'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27076" class="LineNr">27076 </span> (<a href='mu.subx.html#L28200'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> *(ebp+0x14)) -<span id="L27077" class="LineNr">27077 </span><span class="Constant">$emit-subx-stmt-list:end</span>: -<span id="L27078" class="LineNr">27078 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27079" class="LineNr">27079 </span> 5e/pop-to-esi -<span id="L27080" class="LineNr">27080 </span> 5b/pop-to-ebx -<span id="L27081" class="LineNr">27081 </span> 59/pop-to-ecx -<span id="L27082" class="LineNr">27082 </span> 58/pop-to-eax -<span id="L27083" class="LineNr">27083 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27084" class="LineNr">27084 </span> 89/<- %esp 5/r32/ebp -<span id="L27085" class="LineNr">27085 </span> 5d/pop-to-ebp -<span id="L27086" class="LineNr">27086 </span> c3/return -<span id="L27087" class="LineNr">27087 </span> -<span id="L27088" class="LineNr">27088 </span><span class="subxComment"># 'later-stmts' includes 'stmt', but will behave the same even without it; reg-var-def stmts are guaranteed not to write to function outputs.</span> -<span id="L27089" class="LineNr">27089 </span><span class="subxFunction">push-output-and-maybe-emit-spill</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr reg-var-def), vars: (addr stack (handle var)), later-stmts: (addr list stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L27090" class="LineNr">27090 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27091" class="LineNr">27091 </span> 55/push-ebp -<span id="L27092" class="LineNr">27092 </span> 89/<- %ebp 4/r32/esp -<span id="L27093" class="LineNr">27093 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27094" class="LineNr">27094 </span> 50/push-eax -<span id="L27095" class="LineNr">27095 </span> 51/push-ecx -<span id="L27096" class="LineNr">27096 </span> 52/push-edx -<span id="L27097" class="LineNr">27097 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L27098" class="LineNr">27098 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27099" class="LineNr">27099 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> -<span id="L27100" class="LineNr">27100 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L27101" class="LineNr">27101 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> -<span id="L27102" class="LineNr">27102 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> -<span id="L27103" class="LineNr">27103 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L27104" class="LineNr">27104 </span> 89/<- %ecx 0/r32/eax -<span id="L27105" class="LineNr">27105 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L27106" class="LineNr">27106 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/r32/eax -<span id="L27107" class="LineNr">27107 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L27108" class="LineNr">27108 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L27109" class="LineNr">27109 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> -<span id="L27110" class="LineNr">27110 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27111" class="LineNr">27111 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> -<span id="L27112" class="LineNr">27112 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> -<span id="L27113" class="LineNr">27113 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27114" class="LineNr">27114 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27115" class="LineNr">27115 </span> <span class="subxComment"># ensure that v is in a register</span> -<span id="L27116" class="LineNr">27116 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27117" class="LineNr">27117 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 -<span id="L27118" class="LineNr">27118 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> -<span id="L27119" class="LineNr">27119 </span> (<a href='mu.subx.html#L27884'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27120" class="LineNr">27120 </span> 89/<- %edx 0/r32/eax -<span id="L27121" class="LineNr">27121 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27122" class="LineNr">27122 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 -<span id="L27123" class="LineNr">27123 </span> (<a href='mu.subx.html#L27957'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L27124" class="LineNr">27124 </span> 89/<- %edx 0/r32/eax -<span id="L27125" class="LineNr">27125 </span> <span class="subxComment"># check emit-spill?</span> -<span id="L27126" class="LineNr">27126 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27127" class="LineNr">27127 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a>/disp32 -<span id="L27128" class="LineNr">27128 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> -<span id="L27129" class="LineNr">27129 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> -<span id="L27130" class="LineNr">27130 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L26741'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L27131" class="LineNr">27131 </span> <span class="subxComment"># emit spill</span> -<span id="L27132" class="LineNr">27132 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27133" class="LineNr">27133 </span> (<a href='mu.subx.html#L27655'>emit-push-register</a> *(ebp+8) %eax) -<span id="L27134" class="LineNr">27134 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='../203stack.subx.html#L114'>push</a></span>: -<span id="L27135" class="LineNr">27135 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27136" class="LineNr">27136 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> -<span id="L27137" class="LineNr">27137 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> -<span id="L27138" class="LineNr">27138 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> -<span id="L27139" class="LineNr">27139 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> -<span id="L27140" class="LineNr">27140 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) -<span id="L27141" class="LineNr">27141 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: -<span id="L27142" class="LineNr">27142 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27143" class="LineNr">27143 </span> 5a/pop-to-edx -<span id="L27144" class="LineNr">27144 </span> 59/pop-to-ecx -<span id="L27145" class="LineNr">27145 </span> 58/pop-to-eax -<span id="L27146" class="LineNr">27146 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27147" class="LineNr">27147 </span> 89/<- %esp 5/r32/ebp -<span id="L27148" class="LineNr">27148 </span> 5d/pop-to-ebp -<span id="L27149" class="LineNr">27149 </span> c3/return -<span id="L27150" class="LineNr">27150 </span> -<span id="L27151" class="LineNr">27151 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: -<span id="L27152" class="LineNr">27152 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> -<span id="L27153" class="LineNr">27153 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) -<span id="L27154" class="LineNr">27154 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> -<span id="L27155" class="LineNr">27155 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"' initialized from an instruction must live in a register\n"</span>) -<span id="L27156" class="LineNr">27156 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) -<span id="L27157" class="LineNr">27157 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) -<span id="L27158" class="LineNr">27158 </span> <span class="subxComment"># never gets here</span> -<span id="L27159" class="LineNr">27159 </span> -<span id="L27160" class="LineNr">27160 </span><span class="subxFunction">emit-subx-cleanup-and-unconditional-nonlocal-branch</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1), vars: (addr stack live-var)</span> -<span id="L27161" class="LineNr">27161 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27162" class="LineNr">27162 </span> 55/push-ebp -<span id="L27163" class="LineNr">27163 </span> 89/<- %ebp 4/r32/esp -<span id="L27164" class="LineNr">27164 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27165" class="LineNr">27165 </span> 50/push-eax -<span id="L27166" class="LineNr">27166 </span> 51/push-ecx -<span id="L27167" class="LineNr">27167 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L27168" class="LineNr">27168 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27169" class="LineNr">27169 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> -<span id="L27170" class="LineNr">27170 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27171" class="LineNr">27171 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L27172" class="LineNr">27172 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27173" class="LineNr">27173 </span> <span class="subxComment"># clean up until target block</span> -<span id="L27174" class="LineNr">27174 </span> (<a href='mu.subx.html#L27735'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) -<span id="L27175" class="LineNr">27175 </span> <span class="subxComment"># emit jump to target block</span> -<span id="L27176" class="LineNr">27176 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27177" class="LineNr">27177 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L27178" class="LineNr">27178 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27179" class="LineNr">27179 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27180" class="LineNr">27180 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) -<span id="L27181" class="LineNr">27181 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27182" class="LineNr">27182 </span> { -<span id="L27183" class="LineNr">27183 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27184" class="LineNr">27184 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) -<span id="L27185" class="LineNr">27185 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 -<span id="L27186" class="LineNr">27186 </span> } -<span id="L27187" class="LineNr">27187 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) -<span id="L27188" class="LineNr">27188 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: -<span id="L27189" class="LineNr">27189 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27190" class="LineNr">27190 </span> 59/pop-to-ecx -<span id="L27191" class="LineNr">27191 </span> 58/pop-to-eax -<span id="L27192" class="LineNr">27192 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27193" class="LineNr">27193 </span> 89/<- %esp 5/r32/ebp -<span id="L27194" class="LineNr">27194 </span> 5d/pop-to-ebp -<span id="L27195" class="LineNr">27195 </span> c3/return -<span id="L27196" class="LineNr">27196 </span> -<span id="L27197" class="LineNr">27197 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> -<span id="L27198" class="LineNr">27198 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27199" class="LineNr">27199 </span> 55/push-ebp -<span id="L27200" class="LineNr">27200 </span> 89/<- %ebp 4/r32/esp -<span id="L27201" class="LineNr">27201 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27202" class="LineNr">27202 </span> 50/push-eax -<span id="L27203" class="LineNr">27203 </span> 51/push-ecx -<span id="L27204" class="LineNr">27204 </span> 56/push-esi -<span id="L27205" class="LineNr">27205 </span> 57/push-edi -<span id="L27206" class="LineNr">27206 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> -<span id="L27207" class="LineNr">27207 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27208" class="LineNr">27208 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L27209" class="LineNr">27209 </span> 89/<- %esi 0/r32/eax -<span id="L27210" class="LineNr">27210 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> -<span id="L27211" class="LineNr">27211 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L27212" class="LineNr">27212 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L27213" class="LineNr">27213 </span> 89/<- %edi 0/r32/eax -<span id="L27214" class="LineNr">27214 </span> { -<span id="L27215" class="LineNr">27215 </span><span class="Constant">$emit-outputs:loop</span>: -<span id="L27216" class="LineNr">27216 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L27217" class="LineNr">27217 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27218" class="LineNr">27218 </span> <span class="subxComment"># emit copy to output register</span> -<span id="L27219" class="LineNr">27219 </span> <span class="subxComment"># var curr-output-register/ecx: (addr array byte) = curr-output->value->register</span> -<span id="L27220" class="LineNr">27220 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L27221" class="LineNr">27221 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27222" class="LineNr">27222 </span> 89/<- %ecx 0/r32/eax -<span id="L27223" class="LineNr">27223 </span> <span class="subxComment"># if curr-output-register starts with "x", emit a floating-point copy</span> -<span id="L27224" class="LineNr">27224 </span> 8a/copy-byte *(ecx+4) 0/r32/AL -<span id="L27225" class="LineNr">27225 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27226" class="LineNr">27226 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27227" class="LineNr">27227 </span> { -<span id="L27228" class="LineNr">27228 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27229" class="LineNr">27229 </span> (<a href='mu.subx.html#L27298'>emit-float-output</a> *(ebp+8) %esi %ecx) -<span id="L27230" class="LineNr">27230 </span> eb/jump $emit-outputs:continue/disp8 -<span id="L27231" class="LineNr">27231 </span> } -<span id="L27232" class="LineNr">27232 </span> <span class="subxComment"># otherwise emit an int copy</span> -<span id="L27233" class="LineNr">27233 </span> (<a href='mu.subx.html#L27255'>emit-int-output</a> *(ebp+8) %esi %ecx) -<span id="L27234" class="LineNr">27234 </span><span class="Constant">$emit-outputs:continue</span>: -<span id="L27235" class="LineNr">27235 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> -<span id="L27236" class="LineNr">27236 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L27237" class="LineNr">27237 </span> 89/<- %esi 0/r32/eax -<span id="L27238" class="LineNr">27238 </span> <span class="subxComment"># curr-output = curr-output->next</span> -<span id="L27239" class="LineNr">27239 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L27240" class="LineNr">27240 </span> 89/<- %edi 0/r32/eax -<span id="L27241" class="LineNr">27241 </span> <span class="subxComment">#</span> -<span id="L27242" class="LineNr">27242 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27243" class="LineNr">27243 </span> } -<span id="L27244" class="LineNr">27244 </span><span class="Constant">$emit-outputs:end</span>: -<span id="L27245" class="LineNr">27245 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27246" class="LineNr">27246 </span> 5f/pop-to-edi -<span id="L27247" class="LineNr">27247 </span> 5e/pop-to-esi -<span id="L27248" class="LineNr">27248 </span> 59/pop-to-ecx -<span id="L27249" class="LineNr">27249 </span> 58/pop-to-eax -<span id="L27250" class="LineNr">27250 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27251" class="LineNr">27251 </span> 89/<- %esp 5/r32/ebp -<span id="L27252" class="LineNr">27252 </span> 5d/pop-to-ebp -<span id="L27253" class="LineNr">27253 </span> c3/return -<span id="L27254" class="LineNr">27254 </span> -<span id="L27255" class="LineNr">27255 </span><span class="subxFunction">emit-int-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> -<span id="L27256" class="LineNr">27256 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27257" class="LineNr">27257 </span> 55/push-ebp -<span id="L27258" class="LineNr">27258 </span> 89/<- %ebp 4/r32/esp -<span id="L27259" class="LineNr">27259 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27260" class="LineNr">27260 </span> 50/push-eax -<span id="L27261" class="LineNr">27261 </span> 51/push-ecx -<span id="L27262" class="LineNr">27262 </span> <span class="subxComment"># ecx = return-var->value</span> -<span id="L27263" class="LineNr">27263 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27264" class="LineNr">27264 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L27265" class="LineNr">27265 </span> 89/<- %ecx 0/r32/eax -<span id="L27266" class="LineNr">27266 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> -<span id="L27267" class="LineNr">27267 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L27268" class="LineNr">27268 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L27269" class="LineNr">27269 </span> { -<span id="L27270" class="LineNr">27270 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27271" class="LineNr">27271 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27272" class="LineNr">27272 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27273" class="LineNr">27273 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) -<span id="L27274" class="LineNr">27274 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x10)) -<span id="L27275" class="LineNr">27275 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27276" class="LineNr">27276 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27277" class="LineNr">27277 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27278" class="LineNr">27278 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27279" class="LineNr">27279 </span> e9/jump $emit-int-output:end/disp32 -<span id="L27280" class="LineNr">27280 </span> } -<span id="L27281" class="LineNr">27281 </span> <span class="subxComment"># otherwise emit an integer copy</span> -<span id="L27282" class="LineNr">27282 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27283" class="LineNr">27283 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) -<span id="L27284" class="LineNr">27284 </span> (<a href='mu.subx.html#L35002'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) -<span id="L27285" class="LineNr">27285 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27286" class="LineNr">27286 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L27287" class="LineNr">27287 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27288" class="LineNr">27288 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L27289" class="LineNr">27289 </span><span class="Constant">$emit-int-output:end</span>: -<span id="L27290" class="LineNr">27290 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27291" class="LineNr">27291 </span> 59/pop-to-ecx -<span id="L27292" class="LineNr">27292 </span> 58/pop-to-eax -<span id="L27293" class="LineNr">27293 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27294" class="LineNr">27294 </span> 89/<- %esp 5/r32/ebp -<span id="L27295" class="LineNr">27295 </span> 5d/pop-to-ebp -<span id="L27296" class="LineNr">27296 </span> c3/return -<span id="L27297" class="LineNr">27297 </span> -<span id="L27298" class="LineNr">27298 </span><span class="subxFunction">emit-float-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> -<span id="L27299" class="LineNr">27299 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27300" class="LineNr">27300 </span> 55/push-ebp -<span id="L27301" class="LineNr">27301 </span> 89/<- %ebp 4/r32/esp -<span id="L27302" class="LineNr">27302 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27303" class="LineNr">27303 </span> 50/push-eax -<span id="L27304" class="LineNr">27304 </span> <span class="subxComment">#</span> -<span id="L27305" class="LineNr">27305 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27306" class="LineNr">27306 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) -<span id="L27307" class="LineNr">27307 </span> (<a href='mu.subx.html#L35002'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) -<span id="L27308" class="LineNr">27308 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L27309" class="LineNr">27309 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L27310" class="LineNr">27310 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L27311" class="LineNr">27311 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27312" class="LineNr">27312 </span><span class="Constant">$emit-float-output:end</span>: -<span id="L27313" class="LineNr">27313 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27314" class="LineNr">27314 </span> 58/pop-to-eax -<span id="L27315" class="LineNr">27315 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27316" class="LineNr">27316 </span> 89/<- %esp 5/r32/ebp -<span id="L27317" class="LineNr">27317 </span> 5d/pop-to-ebp -<span id="L27318" class="LineNr">27318 </span> c3/return -<span id="L27319" class="LineNr">27319 </span> -<span id="L27320" class="LineNr">27320 </span><span class="subxFunction">is-mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> -<span id="L27321" class="LineNr">27321 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27322" class="LineNr">27322 </span> 55/push-ebp -<span id="L27323" class="LineNr">27323 </span> 89/<- %ebp 4/r32/esp -<span id="L27324" class="LineNr">27324 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27325" class="LineNr">27325 </span> 51/push-ecx -<span id="L27326" class="LineNr">27326 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L27327" class="LineNr">27327 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27328" class="LineNr">27328 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27329" class="LineNr">27329 </span> 89/<- %ecx 0/r32/eax -<span id="L27330" class="LineNr">27330 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> -<span id="L27331" class="LineNr">27331 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L27332" class="LineNr">27332 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27333" class="LineNr">27333 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 -<span id="L27334" class="LineNr">27334 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> -<span id="L27335" class="LineNr">27335 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L27336" class="LineNr">27336 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27337" class="LineNr">27337 </span> 75/jump-if-not-equal $is-mu-branch?:end/disp8 -<span id="L27338" class="LineNr">27338 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> -<span id="L27339" class="LineNr">27339 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> -<span id="L27340" class="LineNr">27340 </span><span class="Constant">$is-mu-branch?:end</span>: -<span id="L27341" class="LineNr">27341 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27342" class="LineNr">27342 </span> 59/pop-to-ecx -<span id="L27343" class="LineNr">27343 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27344" class="LineNr">27344 </span> 89/<- %esp 5/r32/ebp -<span id="L27345" class="LineNr">27345 </span> 5d/pop-to-ebp -<span id="L27346" class="LineNr">27346 </span> c3/return -<span id="L27347" class="LineNr">27347 </span> -<span id="L27348" class="LineNr">27348 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> -<span id="L27349" class="LineNr">27349 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27350" class="LineNr">27350 </span> 55/push-ebp -<span id="L27351" class="LineNr">27351 </span> 89/<- %ebp 4/r32/esp -<span id="L27352" class="LineNr">27352 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27353" class="LineNr">27353 </span> 50/push-eax -<span id="L27354" class="LineNr">27354 </span> <span class="subxComment"># eax = stmt</span> -<span id="L27355" class="LineNr">27355 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27356" class="LineNr">27356 </span> <span class="subxComment">#</span> -<span id="L27357" class="LineNr">27357 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L27358" class="LineNr">27358 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L27374'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> -<span id="L27359" class="LineNr">27359 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27360" class="LineNr">27360 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> -<span id="L27361" class="LineNr">27361 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27362" class="LineNr">27362 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) -<span id="L27363" class="LineNr">27363 </span><span class="Constant">$emit-reverse-break:end</span>: -<span id="L27364" class="LineNr">27364 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27365" class="LineNr">27365 </span> 58/pop-to-eax -<span id="L27366" class="LineNr">27366 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27367" class="LineNr">27367 </span> 89/<- %esp 5/r32/ebp -<span id="L27368" class="LineNr">27368 </span> 5d/pop-to-ebp -<span id="L27369" class="LineNr">27369 </span> c3/return -<span id="L27370" class="LineNr">27370 </span> -<span id="L27371" class="LineNr">27371 </span>== data -<span id="L27372" class="LineNr">27372 </span> -<span id="L27373" class="LineNr">27373 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> -<span id="L27374" class="LineNr">27374 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> -<span id="L27375" class="LineNr">27375 </span> <span class="subxComment"># a table is a stream</span> -<span id="L27376" class="LineNr">27376 </span> 0x1c0/imm32/write -<span id="L27377" class="LineNr">27377 </span> 0/imm32/read -<span id="L27378" class="LineNr">27378 </span> 0x1c0/imm32/size -<span id="L27379" class="LineNr">27379 </span> <span class="subxComment"># data</span> -<span id="L27380" class="LineNr">27380 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33372'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33719'>_string_0f_85_jump_label</a>/imm32 -<span id="L27381" class="LineNr">27381 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33482'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33719'>_string_0f_85_jump_label</a>/imm32 -<span id="L27382" class="LineNr">27382 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33387'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33704'>_string_0f_84_jump_label</a>/imm32 -<span id="L27383" class="LineNr">27383 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33497'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33704'>_string_0f_84_jump_label</a>/imm32 -<span id="L27384" class="LineNr">27384 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33362'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33779'>_string_0f_8d_jump_label</a>/imm32 -<span id="L27385" class="LineNr">27385 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33472'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33779'>_string_0f_8d_jump_label</a>/imm32 -<span id="L27386" class="LineNr">27386 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33377'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33794'>_string_0f_8e_jump_label</a>/imm32 -<span id="L27387" class="LineNr">27387 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33487'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33794'>_string_0f_8e_jump_label</a>/imm32 -<span id="L27388" class="LineNr">27388 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33367'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33809'>_string_0f_8f_jump_label</a>/imm32 -<span id="L27389" class="LineNr">27389 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33477'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33809'>_string_0f_8f_jump_label</a>/imm32 -<span id="L27390" class="LineNr">27390 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33382'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33764'>_string_0f_8c_jump_label</a>/imm32 -<span id="L27391" class="LineNr">27391 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33492'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33764'>_string_0f_8c_jump_label</a>/imm32 -<span id="L27392" class="LineNr">27392 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33392'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32 -<span id="L27393" class="LineNr">27393 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33502'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32 -<span id="L27394" class="LineNr">27394 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33402'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32 -<span id="L27395" class="LineNr">27395 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33512'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32 -<span id="L27396" class="LineNr">27396 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33397'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32 -<span id="L27397" class="LineNr">27397 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33507'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32 -<span id="L27398" class="LineNr">27398 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33407'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32 -<span id="L27399" class="LineNr">27399 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33517'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32 -<span id="L27400" class="LineNr">27400 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33412'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32 -<span id="L27401" class="LineNr">27401 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33522'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32 -<span id="L27402" class="LineNr">27402 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33422'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32 -<span id="L27403" class="LineNr">27403 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33532'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32 -<span id="L27404" class="LineNr">27404 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33417'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32 -<span id="L27405" class="LineNr">27405 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33527'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32 -<span id="L27406" class="LineNr">27406 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33427'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32 -<span id="L27407" class="LineNr">27407 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33537'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32 -<span id="L27408" class="LineNr">27408 </span> -<span id="L27409" class="LineNr">27409 </span>== code -<span id="L27410" class="LineNr">27410 </span> -<span id="L27411" class="LineNr">27411 </span><span class="subxFunction">emit-unconditional-jump-to-depth</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), depth: int, label-suffix: (addr array byte)</span> -<span id="L27412" class="LineNr">27412 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27413" class="LineNr">27413 </span> 55/push-ebp -<span id="L27414" class="LineNr">27414 </span> 89/<- %ebp 4/r32/esp -<span id="L27415" class="LineNr">27415 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27416" class="LineNr">27416 </span> 50/push-eax -<span id="L27417" class="LineNr">27417 </span> 51/push-ecx -<span id="L27418" class="LineNr">27418 </span> 52/push-edx -<span id="L27419" class="LineNr">27419 </span> 53/push-ebx -<span id="L27420" class="LineNr">27420 </span> 56/push-esi -<span id="L27421" class="LineNr">27421 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27422" class="LineNr">27422 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27423" class="LineNr">27423 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L27424" class="LineNr">27424 </span> 8b/-> *ecx 0/r32/eax -<span id="L27425" class="LineNr">27425 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27426" class="LineNr">27426 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27427" class="LineNr">27427 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27428" class="LineNr">27428 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L27429" class="LineNr">27429 </span> <span class="subxComment"># edx = depth</span> -<span id="L27430" class="LineNr">27430 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L27431" class="LineNr">27431 </span> { -<span id="L27432" class="LineNr">27432 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: -<span id="L27433" class="LineNr">27433 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27434" class="LineNr">27434 </span> 39/compare %esi 1/r32/ecx -<span id="L27435" class="LineNr">27435 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27436" class="LineNr">27436 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27437" class="LineNr">27437 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27438" class="LineNr">27438 </span> 89/<- %ebx 0/r32/eax -<span id="L27439" class="LineNr">27439 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L27440" class="LineNr">27440 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27441" class="LineNr">27441 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27442" class="LineNr">27442 </span> { -<span id="L27443" class="LineNr">27443 </span><span class="Constant">$emit-unconditional-jump-to-depth:check</span>: -<span id="L27444" class="LineNr">27444 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> -<span id="L27445" class="LineNr">27445 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27446" class="LineNr">27446 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27447" class="LineNr">27447 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: -<span id="L27448" class="LineNr">27448 </span> <span class="subxComment"># if v is not a literal, continue</span> -<span id="L27449" class="LineNr">27449 </span> (<a href='mu.subx.html#L26338'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27450" class="LineNr">27450 </span> 3d/compare-eax-and 0/imm32 -<span id="L27451" class="LineNr">27451 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27452" class="LineNr">27452 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: -<span id="L27453" class="LineNr">27453 </span> <span class="subxComment"># emit unconditional jump, then return</span> -<span id="L27454" class="LineNr">27454 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27455" class="LineNr">27455 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) -<span id="L27456" class="LineNr">27456 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27457" class="LineNr">27457 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L27458" class="LineNr">27458 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) -<span id="L27459" class="LineNr">27459 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) -<span id="L27460" class="LineNr">27460 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) -<span id="L27461" class="LineNr">27461 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 -<span id="L27462" class="LineNr">27462 </span> } -<span id="L27463" class="LineNr">27463 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27464" class="LineNr">27464 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27465" class="LineNr">27465 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27466" class="LineNr">27466 </span> } -<span id="L27467" class="LineNr">27467 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> -<span id="L27468" class="LineNr">27468 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: -<span id="L27469" class="LineNr">27469 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27470" class="LineNr">27470 </span> 5e/pop-to-esi -<span id="L27471" class="LineNr">27471 </span> 5b/pop-to-ebx -<span id="L27472" class="LineNr">27472 </span> 5a/pop-to-edx -<span id="L27473" class="LineNr">27473 </span> 59/pop-to-ecx -<span id="L27474" class="LineNr">27474 </span> 58/pop-to-eax -<span id="L27475" class="LineNr">27475 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27476" class="LineNr">27476 </span> 89/<- %esp 5/r32/ebp -<span id="L27477" class="LineNr">27477 </span> 5d/pop-to-ebp -<span id="L27478" class="LineNr">27478 </span> c3/return -<span id="L27479" class="LineNr">27479 </span> -<span id="L27480" class="LineNr">27480 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> -<span id="L27481" class="LineNr">27481 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27482" class="LineNr">27482 </span><span class="subxFunction">emit-cleanup-code-until-depth</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), until-block-depth: int</span> -<span id="L27483" class="LineNr">27483 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27484" class="LineNr">27484 </span> 55/push-ebp -<span id="L27485" class="LineNr">27485 </span> 89/<- %ebp 4/r32/esp -<span id="L27486" class="LineNr">27486 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27487" class="LineNr">27487 </span> 50/push-eax -<span id="L27488" class="LineNr">27488 </span> 51/push-ecx -<span id="L27489" class="LineNr">27489 </span> 52/push-edx -<span id="L27490" class="LineNr">27490 </span> 53/push-ebx -<span id="L27491" class="LineNr">27491 </span> 56/push-esi -<span id="L27492" class="LineNr">27492 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> -<span id="L27493" class="LineNr">27493 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27494" class="LineNr">27494 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27495" class="LineNr">27495 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27496" class="LineNr">27496 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L27497" class="LineNr">27497 </span> 8b/-> *ecx 6/r32/esi -<span id="L27498" class="LineNr">27498 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27499" class="LineNr">27499 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27500" class="LineNr">27500 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27501" class="LineNr">27501 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27502" class="LineNr">27502 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L27503" class="LineNr">27503 </span> 8b/-> *(ebp+0x10) 2/r32/edx -<span id="L27504" class="LineNr">27504 </span> { -<span id="L27505" class="LineNr">27505 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: -<span id="L27506" class="LineNr">27506 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27507" class="LineNr">27507 </span> 39/compare %esi 1/r32/ecx -<span id="L27508" class="LineNr">27508 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27509" class="LineNr">27509 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27510" class="LineNr">27510 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27511" class="LineNr">27511 </span> 89/<- %ebx 0/r32/eax -<span id="L27512" class="LineNr">27512 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> -<span id="L27513" class="LineNr">27513 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> -<span id="L27514" class="LineNr">27514 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L27515" class="LineNr">27515 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L27516" class="LineNr">27516 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L27517" class="LineNr">27517 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L27518" class="LineNr">27518 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27519" class="LineNr">27519 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27520" class="LineNr">27520 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27521" class="LineNr">27521 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27522" class="LineNr">27522 </span> { -<span id="L27523" class="LineNr">27523 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27524" class="LineNr">27524 </span> { -<span id="L27525" class="LineNr">27525 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: -<span id="L27526" class="LineNr">27526 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27527" class="LineNr">27527 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27528" class="LineNr">27528 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27529" class="LineNr">27529 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: -<span id="L27530" class="LineNr">27530 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27531" class="LineNr">27531 </span> (<a href='mu.subx.html#L27692'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L27532" class="LineNr">27532 </span> } -<span id="L27533" class="LineNr">27533 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 -<span id="L27534" class="LineNr">27534 </span> } -<span id="L27535" class="LineNr">27535 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27536" class="LineNr">27536 </span> { -<span id="L27537" class="LineNr">27537 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27538" class="LineNr">27538 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: -<span id="L27539" class="LineNr">27539 </span> (<a href='mu.subx.html#L26338'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27540" class="LineNr">27540 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L27541" class="LineNr">27541 </span> 3d/compare-eax-and 0/imm32 -<span id="L27542" class="LineNr">27542 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27543" class="LineNr">27543 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: -<span id="L27544" class="LineNr">27544 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27545" class="LineNr">27545 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L27546" class="LineNr">27546 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27547" class="LineNr">27547 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27548" class="LineNr">27548 </span> } -<span id="L27549" class="LineNr">27549 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: -<span id="L27550" class="LineNr">27550 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27551" class="LineNr">27551 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27552" class="LineNr">27552 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27553" class="LineNr">27553 </span> } -<span id="L27554" class="LineNr">27554 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: -<span id="L27555" class="LineNr">27555 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27556" class="LineNr">27556 </span> 5e/pop-to-esi -<span id="L27557" class="LineNr">27557 </span> 5b/pop-to-ebx -<span id="L27558" class="LineNr">27558 </span> 5a/pop-to-edx -<span id="L27559" class="LineNr">27559 </span> 59/pop-to-ecx -<span id="L27560" class="LineNr">27560 </span> 58/pop-to-eax -<span id="L27561" class="LineNr">27561 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27562" class="LineNr">27562 </span> 89/<- %esp 5/r32/ebp -<span id="L27563" class="LineNr">27563 </span> 5d/pop-to-ebp -<span id="L27564" class="LineNr">27564 </span> c3/return -<span id="L27565" class="LineNr">27565 </span> -<span id="L27566" class="LineNr">27566 </span><span class="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> -<span id="L27567" class="LineNr">27567 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27568" class="LineNr">27568 </span><span class="subxFunction">emit-cleanup-code-for-non-outputs</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), fn: (addr function)</span> -<span id="L27569" class="LineNr">27569 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27570" class="LineNr">27570 </span> 55/push-ebp -<span id="L27571" class="LineNr">27571 </span> 89/<- %ebp 4/r32/esp -<span id="L27572" class="LineNr">27572 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27573" class="LineNr">27573 </span> 50/push-eax -<span id="L27574" class="LineNr">27574 </span> 51/push-ecx -<span id="L27575" class="LineNr">27575 </span> 52/push-edx -<span id="L27576" class="LineNr">27576 </span> 53/push-ebx -<span id="L27577" class="LineNr">27577 </span> 56/push-esi -<span id="L27578" class="LineNr">27578 </span> 57/push-edi -<span id="L27579" class="LineNr">27579 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27580" class="LineNr">27580 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27581" class="LineNr">27581 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L27582" class="LineNr">27582 </span> 8b/-> *ecx 6/r32/esi -<span id="L27583" class="LineNr">27583 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27584" class="LineNr">27584 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27585" class="LineNr">27585 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27586" class="LineNr">27586 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27587" class="LineNr">27587 </span> { -<span id="L27588" class="LineNr">27588 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: -<span id="L27589" class="LineNr">27589 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27590" class="LineNr">27590 </span> 39/compare %esi 1/r32/ecx -<span id="L27591" class="LineNr">27591 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27592" class="LineNr">27592 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27593" class="LineNr">27593 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27594" class="LineNr">27594 </span> 89/<- %ebx 0/r32/eax -<span id="L27595" class="LineNr">27595 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27596" class="LineNr">27596 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27597" class="LineNr">27597 </span> { -<span id="L27598" class="LineNr">27598 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27599" class="LineNr">27599 </span> { -<span id="L27600" class="LineNr">27600 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: -<span id="L27601" class="LineNr">27601 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27602" class="LineNr">27602 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27603" class="LineNr">27603 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27604" class="LineNr">27604 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: -<span id="L27605" class="LineNr">27605 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> -<span id="L27606" class="LineNr">27606 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27607" class="LineNr">27607 </span> 89/<- %edi 0/r32/eax -<span id="L27608" class="LineNr">27608 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> -<span id="L27609" class="LineNr">27609 </span> (<a href='mu.subx.html#L28238'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> -<span id="L27610" class="LineNr">27610 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27611" class="LineNr">27611 </span> { -<span id="L27612" class="LineNr">27612 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27613" class="LineNr">27613 </span> (<a href='mu.subx.html#L27692'>emit-pop-register</a> *(ebp+8) %edi) -<span id="L27614" class="LineNr">27614 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 -<span id="L27615" class="LineNr">27615 </span> } -<span id="L27616" class="LineNr">27616 </span> <span class="subxComment"># otherwise just drop it from the stack</span> -<span id="L27617" class="LineNr">27617 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27618" class="LineNr">27618 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp 4/imm32\n"</span>) -<span id="L27619" class="LineNr">27619 </span> } -<span id="L27620" class="LineNr">27620 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: -<span id="L27621" class="LineNr">27621 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 -<span id="L27622" class="LineNr">27622 </span> } -<span id="L27623" class="LineNr">27623 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27624" class="LineNr">27624 </span> { -<span id="L27625" class="LineNr">27625 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27626" class="LineNr">27626 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: -<span id="L27627" class="LineNr">27627 </span> (<a href='mu.subx.html#L26338'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27628" class="LineNr">27628 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L27629" class="LineNr">27629 </span> 3d/compare-eax-and 0/imm32 -<span id="L27630" class="LineNr">27630 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27631" class="LineNr">27631 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: -<span id="L27632" class="LineNr">27632 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27633" class="LineNr">27633 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L27634" class="LineNr">27634 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27635" class="LineNr">27635 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27636" class="LineNr">27636 </span> } -<span id="L27637" class="LineNr">27637 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: -<span id="L27638" class="LineNr">27638 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27639" class="LineNr">27639 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27640" class="LineNr">27640 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27641" class="LineNr">27641 </span> } -<span id="L27642" class="LineNr">27642 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: -<span id="L27643" class="LineNr">27643 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27644" class="LineNr">27644 </span> 5f/pop-to-edi -<span id="L27645" class="LineNr">27645 </span> 5e/pop-to-esi -<span id="L27646" class="LineNr">27646 </span> 5b/pop-to-ebx -<span id="L27647" class="LineNr">27647 </span> 5a/pop-to-edx -<span id="L27648" class="LineNr">27648 </span> 59/pop-to-ecx -<span id="L27649" class="LineNr">27649 </span> 58/pop-to-eax -<span id="L27650" class="LineNr">27650 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27651" class="LineNr">27651 </span> 89/<- %esp 5/r32/ebp -<span id="L27652" class="LineNr">27652 </span> 5d/pop-to-ebp -<span id="L27653" class="LineNr">27653 </span> c3/return -<span id="L27654" class="LineNr">27654 </span> -<span id="L27655" class="LineNr">27655 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L27656" class="LineNr">27656 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27657" class="LineNr">27657 </span> 55/push-ebp -<span id="L27658" class="LineNr">27658 </span> 89/<- %ebp 4/r32/esp -<span id="L27659" class="LineNr">27659 </span> <span class="subxComment"># eax = reg</span> -<span id="L27660" class="LineNr">27660 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27661" class="LineNr">27661 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L27662" class="LineNr">27662 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L27663" class="LineNr">27663 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27664" class="LineNr">27664 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> -<span id="L27665" class="LineNr">27665 </span> { -<span id="L27666" class="LineNr">27666 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27667" class="LineNr">27667 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27668" class="LineNr">27668 </span> <span class="subxComment"># TODO validate register</span> -<span id="L27669" class="LineNr">27669 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27670" class="LineNr">27670 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp 4/imm32\n"</span>) -<span id="L27671" class="LineNr">27671 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27672" class="LineNr">27672 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) -<span id="L27673" class="LineNr">27673 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L27674" class="LineNr">27674 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27675" class="LineNr">27675 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L27676" class="LineNr">27676 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27677" class="LineNr">27677 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L27678" class="LineNr">27678 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27679" class="LineNr">27679 </span> e9/jump $emit-push-register:end/disp32 -<span id="L27680" class="LineNr">27680 </span> } -<span id="L27681" class="LineNr">27681 </span> <span class="subxComment"># otherwise push gp register</span> -<span id="L27682" class="LineNr">27682 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27683" class="LineNr">27683 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) -<span id="L27684" class="LineNr">27684 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L27685" class="LineNr">27685 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L27686" class="LineNr">27686 </span><span class="Constant">$emit-push-register:end</span>: -<span id="L27687" class="LineNr">27687 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27688" class="LineNr">27688 </span> 89/<- %esp 5/r32/ebp -<span id="L27689" class="LineNr">27689 </span> 5d/pop-to-ebp -<span id="L27690" class="LineNr">27690 </span> c3/return -<span id="L27691" class="LineNr">27691 </span> -<span id="L27692" class="LineNr">27692 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> -<span id="L27693" class="LineNr">27693 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27694" class="LineNr">27694 </span> 55/push-ebp -<span id="L27695" class="LineNr">27695 </span> 89/<- %ebp 4/r32/esp -<span id="L27696" class="LineNr">27696 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27697" class="LineNr">27697 </span> 50/push-eax -<span id="L27698" class="LineNr">27698 </span> <span class="subxComment"># eax = reg</span> -<span id="L27699" class="LineNr">27699 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27700" class="LineNr">27700 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> -<span id="L27701" class="LineNr">27701 </span> 8a/copy-byte *(eax+4) 0/r32/AL -<span id="L27702" class="LineNr">27702 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27703" class="LineNr">27703 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> -<span id="L27704" class="LineNr">27704 </span> { -<span id="L27705" class="LineNr">27705 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L27706" class="LineNr">27706 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27707" class="LineNr">27707 </span> <span class="subxComment"># TODO validate register</span> -<span id="L27708" class="LineNr">27708 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27709" class="LineNr">27709 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) -<span id="L27710" class="LineNr">27710 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> -<span id="L27711" class="LineNr">27711 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L27712" class="LineNr">27712 </span> 8a/copy-byte *(eax+7) 0/r32/AL -<span id="L27713" class="LineNr">27713 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L27714" class="LineNr">27714 </span> (<a href='../115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) -<span id="L27715" class="LineNr">27715 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) -<span id="L27716" class="LineNr">27716 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27717" class="LineNr">27717 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp 4/imm32\n"</span>) -<span id="L27718" class="LineNr">27718 </span> e9/jump $emit-pop-register:end/disp32 -<span id="L27719" class="LineNr">27719 </span> } -<span id="L27720" class="LineNr">27720 </span> <span class="subxComment"># otherwise pop to gp register</span> -<span id="L27721" class="LineNr">27721 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27722" class="LineNr">27722 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) -<span id="L27723" class="LineNr">27723 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L27724" class="LineNr">27724 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L27725" class="LineNr">27725 </span><span class="Constant">$emit-pop-register:end</span>: -<span id="L27726" class="LineNr">27726 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27727" class="LineNr">27727 </span> 58/pop-to-eax -<span id="L27728" class="LineNr">27728 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27729" class="LineNr">27729 </span> 89/<- %esp 5/r32/ebp -<span id="L27730" class="LineNr">27730 </span> 5d/pop-to-ebp -<span id="L27731" class="LineNr">27731 </span> c3/return -<span id="L27732" class="LineNr">27732 </span> -<span id="L27733" class="LineNr">27733 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> -<span id="L27734" class="LineNr">27734 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> -<span id="L27735" class="LineNr">27735 </span><span class="subxFunction">emit-cleanup-code-until-target</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), until-block-label: (addr array byte)</span> -<span id="L27736" class="LineNr">27736 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27737" class="LineNr">27737 </span> 55/push-ebp -<span id="L27738" class="LineNr">27738 </span> 89/<- %ebp 4/r32/esp -<span id="L27739" class="LineNr">27739 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27740" class="LineNr">27740 </span> 50/push-eax -<span id="L27741" class="LineNr">27741 </span> 51/push-ecx -<span id="L27742" class="LineNr">27742 </span> 52/push-edx -<span id="L27743" class="LineNr">27743 </span> 53/push-ebx -<span id="L27744" class="LineNr">27744 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27745" class="LineNr">27745 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27746" class="LineNr">27746 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L27747" class="LineNr">27747 </span> 8b/-> *ecx 0/r32/eax -<span id="L27748" class="LineNr">27748 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27749" class="LineNr">27749 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27750" class="LineNr">27750 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27751" class="LineNr">27751 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27752" class="LineNr">27752 </span> { -<span id="L27753" class="LineNr">27753 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: -<span id="L27754" class="LineNr">27754 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27755" class="LineNr">27755 </span> 39/compare %edx 1/r32/ecx -<span id="L27756" class="LineNr">27756 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27757" class="LineNr">27757 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> -<span id="L27758" class="LineNr">27758 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L27759" class="LineNr">27759 </span> 89/<- %ebx 0/r32/eax -<span id="L27760" class="LineNr">27760 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> -<span id="L27761" class="LineNr">27761 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L27762" class="LineNr">27762 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L27763" class="LineNr">27763 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27764" class="LineNr">27764 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L27765" class="LineNr">27765 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27766" class="LineNr">27766 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27767" class="LineNr">27767 </span> { -<span id="L27768" class="LineNr">27768 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27769" class="LineNr">27769 </span> { -<span id="L27770" class="LineNr">27770 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: -<span id="L27771" class="LineNr">27771 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27772" class="LineNr">27772 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27773" class="LineNr">27773 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27774" class="LineNr">27774 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: -<span id="L27775" class="LineNr">27775 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27776" class="LineNr">27776 </span> (<a href='mu.subx.html#L27692'>emit-pop-register</a> *(ebp+8) %eax) -<span id="L27777" class="LineNr">27777 </span> } -<span id="L27778" class="LineNr">27778 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 -<span id="L27779" class="LineNr">27779 </span> } -<span id="L27780" class="LineNr">27780 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27781" class="LineNr">27781 </span> { -<span id="L27782" class="LineNr">27782 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27783" class="LineNr">27783 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: -<span id="L27784" class="LineNr">27784 </span> (<a href='mu.subx.html#L26338'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27785" class="LineNr">27785 </span> <span class="subxComment"># don't emit code for labels</span> -<span id="L27786" class="LineNr">27786 </span> 3d/compare-eax-and 0/imm32 -<span id="L27787" class="LineNr">27787 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27788" class="LineNr">27788 </span> <span class="subxComment">#</span> -<span id="L27789" class="LineNr">27789 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L27790" class="LineNr">27790 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) -<span id="L27791" class="LineNr">27791 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L27792" class="LineNr">27792 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L27793" class="LineNr">27793 </span> } -<span id="L27794" class="LineNr">27794 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: -<span id="L27795" class="LineNr">27795 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27796" class="LineNr">27796 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L27797" class="LineNr">27797 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27798" class="LineNr">27798 </span> } -<span id="L27799" class="LineNr">27799 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: -<span id="L27800" class="LineNr">27800 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27801" class="LineNr">27801 </span> 5b/pop-to-ebx -<span id="L27802" class="LineNr">27802 </span> 5a/pop-to-edx -<span id="L27803" class="LineNr">27803 </span> 59/pop-to-ecx -<span id="L27804" class="LineNr">27804 </span> 58/pop-to-eax -<span id="L27805" class="LineNr">27805 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27806" class="LineNr">27806 </span> 89/<- %esp 5/r32/ebp -<span id="L27807" class="LineNr">27807 </span> 5d/pop-to-ebp -<span id="L27808" class="LineNr">27808 </span> c3/return -<span id="L27809" class="LineNr">27809 </span> -<span id="L27810" class="LineNr">27810 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> -<span id="L27811" class="LineNr">27811 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> -<span id="L27812" class="LineNr">27812 </span><span class="subxFunction">clean-up-stack-offset-state</span>: <span class="subxComment"># vars: (addr stack live-var), until-block-depth: int</span> -<span id="L27813" class="LineNr">27813 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27814" class="LineNr">27814 </span> 55/push-ebp -<span id="L27815" class="LineNr">27815 </span> 89/<- %ebp 4/r32/esp -<span id="L27816" class="LineNr">27816 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27817" class="LineNr">27817 </span> 50/push-eax -<span id="L27818" class="LineNr">27818 </span> 51/push-ecx -<span id="L27819" class="LineNr">27819 </span> 52/push-edx -<span id="L27820" class="LineNr">27820 </span> 53/push-ebx -<span id="L27821" class="LineNr">27821 </span> 56/push-esi -<span id="L27822" class="LineNr">27822 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27823" class="LineNr">27823 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27824" class="LineNr">27824 </span> <span class="subxComment"># var esi: int = vars->top</span> -<span id="L27825" class="LineNr">27825 </span> 8b/-> *ecx 6/r32/esi -<span id="L27826" class="LineNr">27826 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27827" class="LineNr">27827 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27828" class="LineNr">27828 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27829" class="LineNr">27829 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L27830" class="LineNr">27830 </span> <span class="subxComment"># edx = until-block-depth</span> -<span id="L27831" class="LineNr">27831 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L27832" class="LineNr">27832 </span> { -<span id="L27833" class="LineNr">27833 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: -<span id="L27834" class="LineNr">27834 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27835" class="LineNr">27835 </span> 39/compare %esi 1/r32/ecx -<span id="L27836" class="LineNr">27836 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27837" class="LineNr">27837 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> -<span id="L27838" class="LineNr">27838 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L27839" class="LineNr">27839 </span> 89/<- %ebx 0/r32/eax -<span id="L27840" class="LineNr">27840 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L27841" class="LineNr">27841 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> -<span id="L27842" class="LineNr">27842 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27843" class="LineNr">27843 </span> <span class="subxComment"># if v is in a register</span> -<span id="L27844" class="LineNr">27844 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L27845" class="LineNr">27845 </span> { -<span id="L27846" class="LineNr">27846 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27847" class="LineNr">27847 </span> { -<span id="L27848" class="LineNr">27848 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: -<span id="L27849" class="LineNr">27849 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> -<span id="L27850" class="LineNr">27850 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27851" class="LineNr">27851 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27852" class="LineNr">27852 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: -<span id="L27853" class="LineNr">27853 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L26741'>Curr-local-stack-offset</a></span> 4/imm32 -<span id="L27854" class="LineNr">27854 </span> } -<span id="L27855" class="LineNr">27855 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 -<span id="L27856" class="LineNr">27856 </span> } -<span id="L27857" class="LineNr">27857 </span> <span class="subxComment"># otherwise v is on the stack</span> -<span id="L27858" class="LineNr">27858 </span> { -<span id="L27859" class="LineNr">27859 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27860" class="LineNr">27860 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: -<span id="L27861" class="LineNr">27861 </span> (<a href='mu.subx.html#L26338'>size-of</a> %ebx) <span class="subxComment"># => eax</span> -<span id="L27862" class="LineNr">27862 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L26741'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L27863" class="LineNr">27863 </span> } -<span id="L27864" class="LineNr">27864 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: -<span id="L27865" class="LineNr">27865 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27866" class="LineNr">27866 </span> 81 5/subop/subtract %esi 0xc/imm32 -<span id="L27867" class="LineNr">27867 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27868" class="LineNr">27868 </span> } -<span id="L27869" class="LineNr">27869 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: -<span id="L27870" class="LineNr">27870 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27871" class="LineNr">27871 </span> 5e/pop-to-esi -<span id="L27872" class="LineNr">27872 </span> 5b/pop-to-ebx -<span id="L27873" class="LineNr">27873 </span> 5a/pop-to-edx -<span id="L27874" class="LineNr">27874 </span> 59/pop-to-ecx -<span id="L27875" class="LineNr">27875 </span> 58/pop-to-eax -<span id="L27876" class="LineNr">27876 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27877" class="LineNr">27877 </span> 89/<- %esp 5/r32/ebp -<span id="L27878" class="LineNr">27878 </span> 5d/pop-to-ebp -<span id="L27879" class="LineNr">27879 </span> c3/return -<span id="L27880" class="LineNr">27880 </span> -<span id="L27881" class="LineNr">27881 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> -<span id="L27882" class="LineNr">27882 </span><span class="subxComment"># and register as 'v'.</span> -<span id="L27883" class="LineNr">27883 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> -<span id="L27884" class="LineNr">27884 </span><span class="subxFunction">not-yet-spilled-this-block?</span>: <span class="subxComment"># v: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> -<span id="L27885" class="LineNr">27885 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27886" class="LineNr">27886 </span> 55/push-ebp -<span id="L27887" class="LineNr">27887 </span> 89/<- %ebp 4/r32/esp -<span id="L27888" class="LineNr">27888 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27889" class="LineNr">27889 </span> 51/push-ecx -<span id="L27890" class="LineNr">27890 </span> 52/push-edx -<span id="L27891" class="LineNr">27891 </span> 53/push-ebx -<span id="L27892" class="LineNr">27892 </span> 56/push-esi -<span id="L27893" class="LineNr">27893 </span> 57/push-edi -<span id="L27894" class="LineNr">27894 </span> <span class="subxComment"># ecx = vars</span> -<span id="L27895" class="LineNr">27895 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L27896" class="LineNr">27896 </span> <span class="subxComment"># var eax: int = vars->top</span> -<span id="L27897" class="LineNr">27897 </span> 8b/-> *ecx 0/r32/eax -<span id="L27898" class="LineNr">27898 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> -<span id="L27899" class="LineNr">27899 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> -<span id="L27900" class="LineNr">27900 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L27901" class="LineNr">27901 </span> 8d/copy-address *(ecx+8) 1/r32/ecx -<span id="L27902" class="LineNr">27902 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L27903" class="LineNr">27903 </span> 8b/-> *(ebp+8) 3/r32/ebx -<span id="L27904" class="LineNr">27904 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L27905" class="LineNr">27905 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> -<span id="L27906" class="LineNr">27906 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L27907" class="LineNr">27907 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27908" class="LineNr">27908 </span> 89/<- %esi 0/r32/eax -<span id="L27909" class="LineNr">27909 </span> { -<span id="L27910" class="LineNr">27910 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: -<span id="L27911" class="LineNr">27911 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L27912" class="LineNr">27912 </span> 39/compare %edx 1/r32/ecx -<span id="L27913" class="LineNr">27913 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L27914" class="LineNr">27914 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> -<span id="L27915" class="LineNr">27915 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> -<span id="L27916" class="LineNr">27916 </span> 89/<- %edi 0/r32/eax -<span id="L27917" class="LineNr">27917 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> -<span id="L27918" class="LineNr">27918 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L27919" class="LineNr">27919 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L27920" class="LineNr">27920 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> -<span id="L27921" class="LineNr">27921 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27922" class="LineNr">27922 </span> 89/<- %edi 0/r32/eax -<span id="L27923" class="LineNr">27923 </span> <span class="subxComment"># if (cand-reg == null) continue</span> -<span id="L27924" class="LineNr">27924 </span> { -<span id="L27925" class="LineNr">27925 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: -<span id="L27926" class="LineNr">27926 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L27927" class="LineNr">27927 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L27928" class="LineNr">27928 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> -<span id="L27929" class="LineNr">27929 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L27930" class="LineNr">27930 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27931" class="LineNr">27931 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L27932" class="LineNr">27932 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: -<span id="L27933" class="LineNr">27933 </span> b8/copy-to-eax 0/imm32/false -<span id="L27934" class="LineNr">27934 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 -<span id="L27935" class="LineNr">27935 </span> } -<span id="L27936" class="LineNr">27936 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: -<span id="L27937" class="LineNr">27937 </span> <span class="subxComment"># curr -= 12</span> -<span id="L27938" class="LineNr">27938 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L27939" class="LineNr">27939 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L27940" class="LineNr">27940 </span> } -<span id="L27941" class="LineNr">27941 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: -<span id="L27942" class="LineNr">27942 </span> <span class="subxComment"># return true</span> -<span id="L27943" class="LineNr">27943 </span> b8/copy-to-eax 1/imm32/true -<span id="L27944" class="LineNr">27944 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: -<span id="L27945" class="LineNr">27945 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L27946" class="LineNr">27946 </span> 5f/pop-to-edi -<span id="L27947" class="LineNr">27947 </span> 5e/pop-to-esi -<span id="L27948" class="LineNr">27948 </span> 5b/pop-to-ebx -<span id="L27949" class="LineNr">27949 </span> 5a/pop-to-edx -<span id="L27950" class="LineNr">27950 </span> 59/pop-to-ecx -<span id="L27951" class="LineNr">27951 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27952" class="LineNr">27952 </span> 89/<- %esp 5/r32/ebp -<span id="L27953" class="LineNr">27953 </span> 5d/pop-to-ebp -<span id="L27954" class="LineNr">27954 </span> c3/return -<span id="L27955" class="LineNr">27955 </span> -<span id="L27956" class="LineNr">27956 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> -<span id="L27957" class="LineNr">27957 </span><span class="subxFunction">will-not-write-some-register?</span>: <span class="subxComment"># v: (addr var), stmts: (addr list stmt), fn: (addr function) -> result/eax: boolean</span> -<span id="L27958" class="LineNr">27958 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27959" class="LineNr">27959 </span> 55/push-ebp -<span id="L27960" class="LineNr">27960 </span> 89/<- %ebp 4/r32/esp -<span id="L27961" class="LineNr">27961 </span> <span class="subxComment"># eax = v</span> -<span id="L27962" class="LineNr">27962 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L27963" class="LineNr">27963 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L27964" class="LineNr">27964 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L27965" class="LineNr">27965 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> -<span id="L27966" class="LineNr">27966 </span> (<a href='mu.subx.html#L27987'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> -<span id="L27967" class="LineNr">27967 </span> <span class="subxComment"># if (target == 0) return true</span> -<span id="L27968" class="LineNr">27968 </span> { -<span id="L27969" class="LineNr">27969 </span> 3d/compare-eax-and 0/imm32 -<span id="L27970" class="LineNr">27970 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L27971" class="LineNr">27971 </span> b8/copy-to-eax 1/imm32/true -<span id="L27972" class="LineNr">27972 </span> eb/jump $will-not-write-some-register?:end/disp8 -<span id="L27973" class="LineNr">27973 </span> } -<span id="L27974" class="LineNr">27974 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> -<span id="L27975" class="LineNr">27975 </span> (<a href='mu.subx.html#L28029'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L27976" class="LineNr">27976 </span> 3d/compare-eax-and 0/imm32/false -<span id="L27977" class="LineNr">27977 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> -<span id="L27978" class="LineNr">27978 </span> 0f 94/set-if-= %al -<span id="L27979" class="LineNr">27979 </span><span class="Constant">$will-not-write-some-register?:end</span>: -<span id="L27980" class="LineNr">27980 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L27981" class="LineNr">27981 </span> 89/<- %esp 5/r32/ebp -<span id="L27982" class="LineNr">27982 </span> 5d/pop-to-ebp -<span id="L27983" class="LineNr">27983 </span> c3/return -<span id="L27984" class="LineNr">27984 </span> -<span id="L27985" class="LineNr">27985 </span><span class="subxComment"># return fn output with matching register</span> -<span id="L27986" class="LineNr">27986 </span><span class="subxComment"># always returns false if 'reg' is null</span> -<span id="L27987" class="LineNr">27987 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> -<span id="L27988" class="LineNr">27988 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L27989" class="LineNr">27989 </span> 55/push-ebp -<span id="L27990" class="LineNr">27990 </span> 89/<- %ebp 4/r32/esp -<span id="L27991" class="LineNr">27991 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L27992" class="LineNr">27992 </span> 51/push-ecx -<span id="L27993" class="LineNr">27993 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L27994" class="LineNr">27994 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L27995" class="LineNr">27995 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L27996" class="LineNr">27996 </span> 89/<- %ecx 0/r32/eax -<span id="L27997" class="LineNr">27997 </span> { -<span id="L27998" class="LineNr">27998 </span><span class="Constant">$find-register:loop</span>: -<span id="L27999" class="LineNr">27999 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28000" class="LineNr">28000 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28001" class="LineNr">28001 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28002" class="LineNr">28002 </span> <span class="subxComment"># eax = curr->value->register</span> -<span id="L28003" class="LineNr">28003 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28004" class="LineNr">28004 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28005" class="LineNr">28005 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> -<span id="L28006" class="LineNr">28006 </span><span class="Constant">$find-register:compare</span>: -<span id="L28007" class="LineNr">28007 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> -<span id="L28008" class="LineNr">28008 </span> { -<span id="L28009" class="LineNr">28009 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28010" class="LineNr">28010 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28011" class="LineNr">28011 </span><span class="Constant">$find-register:found</span>: -<span id="L28012" class="LineNr">28012 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28013" class="LineNr">28013 </span> eb/jump $find-register:end/disp8 -<span id="L28014" class="LineNr">28014 </span> } -<span id="L28015" class="LineNr">28015 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28016" class="LineNr">28016 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28017" class="LineNr">28017 </span> 89/<- %ecx 0/r32/eax -<span id="L28018" class="LineNr">28018 </span> <span class="subxComment">#</span> -<span id="L28019" class="LineNr">28019 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28020" class="LineNr">28020 </span> } -<span id="L28021" class="LineNr">28021 </span><span class="Constant">$find-register:end</span>: -<span id="L28022" class="LineNr">28022 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28023" class="LineNr">28023 </span> 59/pop-to-ecx -<span id="L28024" class="LineNr">28024 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28025" class="LineNr">28025 </span> 89/<- %esp 5/r32/ebp -<span id="L28026" class="LineNr">28026 </span> 5d/pop-to-ebp -<span id="L28027" class="LineNr">28027 </span> c3/return -<span id="L28028" class="LineNr">28028 </span> -<span id="L28029" class="LineNr">28029 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L28030" class="LineNr">28030 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28031" class="LineNr">28031 </span> 55/push-ebp -<span id="L28032" class="LineNr">28032 </span> 89/<- %ebp 4/r32/esp -<span id="L28033" class="LineNr">28033 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28034" class="LineNr">28034 </span> 51/push-ecx -<span id="L28035" class="LineNr">28035 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> -<span id="L28036" class="LineNr">28036 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28037" class="LineNr">28037 </span> { -<span id="L28038" class="LineNr">28038 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28039" class="LineNr">28039 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28040" class="LineNr">28040 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28041" class="LineNr">28041 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> -<span id="L28042" class="LineNr">28042 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28043" class="LineNr">28043 </span> (<a href='mu.subx.html#L28060'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28044" class="LineNr">28044 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28045" class="LineNr">28045 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28046" class="LineNr">28046 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28047" class="LineNr">28047 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28048" class="LineNr">28048 </span> 89/<- %ecx 0/r32/eax -<span id="L28049" class="LineNr">28049 </span> <span class="subxComment">#</span> -<span id="L28050" class="LineNr">28050 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28051" class="LineNr">28051 </span> } -<span id="L28052" class="LineNr">28052 </span><span class="Constant">$assigns-in-stmts?:end</span>: -<span id="L28053" class="LineNr">28053 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28054" class="LineNr">28054 </span> 59/pop-to-ecx -<span id="L28055" class="LineNr">28055 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28056" class="LineNr">28056 </span> 89/<- %esp 5/r32/ebp -<span id="L28057" class="LineNr">28057 </span> 5d/pop-to-ebp -<span id="L28058" class="LineNr">28058 </span> c3/return -<span id="L28059" class="LineNr">28059 </span> -<span id="L28060" class="LineNr">28060 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> -<span id="L28061" class="LineNr">28061 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28062" class="LineNr">28062 </span> 55/push-ebp -<span id="L28063" class="LineNr">28063 </span> 89/<- %ebp 4/r32/esp -<span id="L28064" class="LineNr">28064 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28065" class="LineNr">28065 </span> 51/push-ecx -<span id="L28066" class="LineNr">28066 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L28067" class="LineNr">28067 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28068" class="LineNr">28068 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> -<span id="L28069" class="LineNr">28069 </span> { -<span id="L28070" class="LineNr">28070 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> -<span id="L28071" class="LineNr">28071 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28072" class="LineNr">28072 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28073" class="LineNr">28073 </span> (<a href='mu.subx.html#L28094'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28074" class="LineNr">28074 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L28075" class="LineNr">28075 </span> } -<span id="L28076" class="LineNr">28076 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> -<span id="L28077" class="LineNr">28077 </span> { -<span id="L28078" class="LineNr">28078 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> -<span id="L28079" class="LineNr">28079 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28080" class="LineNr">28080 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L28081" class="LineNr">28081 </span> (<a href='mu.subx.html#L28029'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28082" class="LineNr">28082 </span> eb/jump $assigns-in-stmt?:end/disp8 -<span id="L28083" class="LineNr">28083 </span> } -<span id="L28084" class="LineNr">28084 </span> <span class="subxComment"># otherwise return false</span> -<span id="L28085" class="LineNr">28085 </span> b8/copy 0/imm32/false -<span id="L28086" class="LineNr">28086 </span><span class="Constant">$assigns-in-stmt?:end</span>: -<span id="L28087" class="LineNr">28087 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28088" class="LineNr">28088 </span> 59/pop-to-ecx -<span id="L28089" class="LineNr">28089 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28090" class="LineNr">28090 </span> 89/<- %esp 5/r32/ebp -<span id="L28091" class="LineNr">28091 </span> 5d/pop-to-ebp -<span id="L28092" class="LineNr">28092 </span> c3/return -<span id="L28093" class="LineNr">28093 </span> -<span id="L28094" class="LineNr">28094 </span><span class="subxFunction">assigns-in-stmt-vars?</span>: <span class="subxComment"># stmt-var: (addr stmt-var), v: (addr var) -> result/eax: boolean</span> -<span id="L28095" class="LineNr">28095 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28096" class="LineNr">28096 </span> 55/push-ebp -<span id="L28097" class="LineNr">28097 </span> 89/<- %ebp 4/r32/esp -<span id="L28098" class="LineNr">28098 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28099" class="LineNr">28099 </span> 51/push-ecx -<span id="L28100" class="LineNr">28100 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> -<span id="L28101" class="LineNr">28101 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28102" class="LineNr">28102 </span> { -<span id="L28103" class="LineNr">28103 </span> <span class="subxComment"># if (curr == 0) break</span> -<span id="L28104" class="LineNr">28104 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28105" class="LineNr">28105 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28106" class="LineNr">28106 </span> <span class="subxComment"># eax = lookup(curr->value)</span> -<span id="L28107" class="LineNr">28107 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28108" class="LineNr">28108 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> -<span id="L28109" class="LineNr">28109 </span> { -<span id="L28110" class="LineNr">28110 </span> 39/compare *(ebp+0xc) 0/r32/eax -<span id="L28111" class="LineNr">28111 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28112" class="LineNr">28112 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L28113" class="LineNr">28113 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28114" class="LineNr">28114 </span> b8/copy-to-eax 1/imm32/true -<span id="L28115" class="LineNr">28115 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 -<span id="L28116" class="LineNr">28116 </span> } -<span id="L28117" class="LineNr">28117 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L28118" class="LineNr">28118 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L28119" class="LineNr">28119 </span> 89/<- %ecx 0/r32/eax -<span id="L28120" class="LineNr">28120 </span> <span class="subxComment">#</span> -<span id="L28121" class="LineNr">28121 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28122" class="LineNr">28122 </span> } -<span id="L28123" class="LineNr">28123 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: -<span id="L28124" class="LineNr">28124 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28125" class="LineNr">28125 </span> 59/pop-to-ecx -<span id="L28126" class="LineNr">28126 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28127" class="LineNr">28127 </span> 89/<- %esp 5/r32/ebp -<span id="L28128" class="LineNr">28128 </span> 5d/pop-to-ebp -<span id="L28129" class="LineNr">28129 </span> c3/return -<span id="L28130" class="LineNr">28130 </span> -<span id="L28131" class="LineNr">28131 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> -<span id="L28132" class="LineNr">28132 </span><span class="subxComment"># v is guaranteed to be within vars</span> -<span id="L28133" class="LineNr">28133 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> -<span id="L28134" class="LineNr">28134 </span><span class="subxComment"># *start == v</span> -<span id="L28135" class="LineNr">28135 </span><span class="subxFunction">same-register-spilled-before?</span>: <span class="subxComment"># v: (addr var), vars: (addr stack (handle var)), start: (addr var) -> result/eax: boolean</span> -<span id="L28136" class="LineNr">28136 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28137" class="LineNr">28137 </span> 55/push-ebp -<span id="L28138" class="LineNr">28138 </span> 89/<- %ebp 4/r32/esp -<span id="L28139" class="LineNr">28139 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28140" class="LineNr">28140 </span> 51/push-ecx -<span id="L28141" class="LineNr">28141 </span> 52/push-edx -<span id="L28142" class="LineNr">28142 </span> 53/push-ebx -<span id="L28143" class="LineNr">28143 </span> 56/push-esi -<span id="L28144" class="LineNr">28144 </span> 57/push-edi -<span id="L28145" class="LineNr">28145 </span> <span class="subxComment"># ecx = v</span> -<span id="L28146" class="LineNr">28146 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L28147" class="LineNr">28147 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> -<span id="L28148" class="LineNr">28148 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28149" class="LineNr">28149 </span> 89/<- %edx 0/r32/eax -<span id="L28150" class="LineNr">28150 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> -<span id="L28151" class="LineNr">28151 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28152" class="LineNr">28152 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> -<span id="L28153" class="LineNr">28153 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28154" class="LineNr">28154 </span> 81 0/subop/add %ecx 8/imm32 -<span id="L28155" class="LineNr">28155 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> -<span id="L28156" class="LineNr">28156 </span> <span class="subxComment"># TODO: check that *start == v</span> -<span id="L28157" class="LineNr">28157 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> -<span id="L28158" class="LineNr">28158 </span> 8b/-> *(ebp+0x10) 6/r32/esi -<span id="L28159" class="LineNr">28159 </span> <span class="subxComment"># curr -= 8</span> -<span id="L28160" class="LineNr">28160 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L28161" class="LineNr">28161 </span> { -<span id="L28162" class="LineNr">28162 </span><span class="Constant">$same-register-spilled-before?:loop</span>: -<span id="L28163" class="LineNr">28163 </span> <span class="subxComment"># if (curr < min) break</span> -<span id="L28164" class="LineNr">28164 </span> 39/compare %esi 1/r32/ecx -<span id="L28165" class="LineNr">28165 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 -<span id="L28166" class="LineNr">28166 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> -<span id="L28167" class="LineNr">28167 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L28168" class="LineNr">28168 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> -<span id="L28169" class="LineNr">28169 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> -<span id="L28170" class="LineNr">28170 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28171" class="LineNr">28171 </span> <span class="subxComment"># if (x->register == 0) continue</span> -<span id="L28172" class="LineNr">28172 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28173" class="LineNr">28173 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 -<span id="L28174" class="LineNr">28174 </span> <span class="subxComment"># if (x->register == reg) return true</span> -<span id="L28175" class="LineNr">28175 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28176" class="LineNr">28176 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> -<span id="L28177" class="LineNr">28177 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28178" class="LineNr">28178 </span> b8/copy-to-eax 1/imm32/true -<span id="L28179" class="LineNr">28179 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 -<span id="L28180" class="LineNr">28180 </span><span class="Constant">$same-register-spilled-before?:continue</span>: -<span id="L28181" class="LineNr">28181 </span> <span class="subxComment"># curr -= 8</span> -<span id="L28182" class="LineNr">28182 </span> 81 5/subop/subtract %esi 8/imm32 -<span id="L28183" class="LineNr">28183 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28184" class="LineNr">28184 </span> } -<span id="L28185" class="LineNr">28185 </span><span class="Constant">$same-register-spilled-before?:false</span>: -<span id="L28186" class="LineNr">28186 </span> b8/copy-to-eax 0/imm32/false -<span id="L28187" class="LineNr">28187 </span><span class="Constant">$same-register-spilled-before?:end</span>: -<span id="L28188" class="LineNr">28188 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28189" class="LineNr">28189 </span> 5f/pop-to-edi -<span id="L28190" class="LineNr">28190 </span> 5e/pop-to-esi -<span id="L28191" class="LineNr">28191 </span> 5b/pop-to-ebx -<span id="L28192" class="LineNr">28192 </span> 5a/pop-to-edx -<span id="L28193" class="LineNr">28193 </span> 59/pop-to-ecx -<span id="L28194" class="LineNr">28194 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28195" class="LineNr">28195 </span> 89/<- %esp 5/r32/ebp -<span id="L28196" class="LineNr">28196 </span> 5d/pop-to-ebp -<span id="L28197" class="LineNr">28197 </span> c3/return -<span id="L28198" class="LineNr">28198 </span> -<span id="L28199" class="LineNr">28199 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> -<span id="L28200" class="LineNr">28200 </span><span class="subxFunction">clean-up-blocks</span>: <span class="subxComment"># vars: (addr stack live-var), until-block-depth: int, fn: (addr function)</span> -<span id="L28201" class="LineNr">28201 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28202" class="LineNr">28202 </span> 55/push-ebp -<span id="L28203" class="LineNr">28203 </span> 89/<- %ebp 4/r32/esp -<span id="L28204" class="LineNr">28204 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28205" class="LineNr">28205 </span> 50/push-eax -<span id="L28206" class="LineNr">28206 </span> 51/push-ecx -<span id="L28207" class="LineNr">28207 </span> 56/push-esi -<span id="L28208" class="LineNr">28208 </span> <span class="subxComment"># esi = vars</span> -<span id="L28209" class="LineNr">28209 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L28210" class="LineNr">28210 </span> <span class="subxComment"># ecx = until-block-depth</span> -<span id="L28211" class="LineNr">28211 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28212" class="LineNr">28212 </span> { -<span id="L28213" class="LineNr">28213 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: -<span id="L28214" class="LineNr">28214 </span> <span class="subxComment"># if (vars->top <= 0) break</span> -<span id="L28215" class="LineNr">28215 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> -<span id="L28216" class="LineNr">28216 </span> 3d/compare-eax-and 0/imm32 -<span id="L28217" class="LineNr">28217 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 -<span id="L28218" class="LineNr">28218 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> -<span id="L28219" class="LineNr">28219 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+eax-4) *(esi+eax)) <span class="subxComment"># vars + 8 + vars->top - 12 => eax</span> -<span id="L28220" class="LineNr">28220 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> -<span id="L28221" class="LineNr">28221 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L28222" class="LineNr">28222 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 -<span id="L28223" class="LineNr">28223 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28224" class="LineNr">28224 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28225" class="LineNr">28225 </span> (<a href='../203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> -<span id="L28226" class="LineNr">28226 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L28227" class="LineNr">28227 </span> } -<span id="L28228" class="LineNr">28228 </span><span class="Constant">$clean-up-blocks:end</span>: -<span id="L28229" class="LineNr">28229 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28230" class="LineNr">28230 </span> 5e/pop-to-esi -<span id="L28231" class="LineNr">28231 </span> 59/pop-to-ecx -<span id="L28232" class="LineNr">28232 </span> 58/pop-to-eax -<span id="L28233" class="LineNr">28233 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28234" class="LineNr">28234 </span> 89/<- %esp 5/r32/ebp -<span id="L28235" class="LineNr">28235 </span> 5d/pop-to-ebp -<span id="L28236" class="LineNr">28236 </span> c3/return -<span id="L28237" class="LineNr">28237 </span> -<span id="L28238" class="LineNr">28238 </span><span class="subxFunction">reg-in-function-outputs?</span>: <span class="subxComment"># fn: (addr function), target: (addr array byte) -> result/eax: boolean</span> -<span id="L28239" class="LineNr">28239 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28240" class="LineNr">28240 </span> 55/push-ebp -<span id="L28241" class="LineNr">28241 </span> 89/<- %ebp 4/r32/esp -<span id="L28242" class="LineNr">28242 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28243" class="LineNr">28243 </span> 51/push-ecx -<span id="L28244" class="LineNr">28244 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> -<span id="L28245" class="LineNr">28245 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28246" class="LineNr">28246 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> -<span id="L28247" class="LineNr">28247 </span> 89/<- %ecx 0/r32/eax -<span id="L28248" class="LineNr">28248 </span> <span class="subxComment"># while curr != null</span> -<span id="L28249" class="LineNr">28249 </span> { -<span id="L28250" class="LineNr">28250 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L28251" class="LineNr">28251 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28252" class="LineNr">28252 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> -<span id="L28253" class="LineNr">28253 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L28254" class="LineNr">28254 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> -<span id="L28255" class="LineNr">28255 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28256" class="LineNr">28256 </span> <span class="subxComment"># if (reg == target) return true</span> -<span id="L28257" class="LineNr">28257 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L28258" class="LineNr">28258 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28259" class="LineNr">28259 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 -<span id="L28260" class="LineNr">28260 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L28261" class="LineNr">28261 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L28262" class="LineNr">28262 </span> 89/<- %ecx 0/r32/eax -<span id="L28263" class="LineNr">28263 </span> <span class="subxComment">#</span> -<span id="L28264" class="LineNr">28264 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28265" class="LineNr">28265 </span> } -<span id="L28266" class="LineNr">28266 </span> <span class="subxComment"># return false</span> -<span id="L28267" class="LineNr">28267 </span> b8/copy-to-eax 0/imm32 -<span id="L28268" class="LineNr">28268 </span><span class="Constant">$reg-in-function-outputs?:end</span>: -<span id="L28269" class="LineNr">28269 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28270" class="LineNr">28270 </span> 59/pop-to-ecx -<span id="L28271" class="LineNr">28271 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28272" class="LineNr">28272 </span> 89/<- %esp 5/r32/ebp -<span id="L28273" class="LineNr">28273 </span> 5d/pop-to-ebp -<span id="L28274" class="LineNr">28274 </span> c3/return -<span id="L28275" class="LineNr">28275 </span> -<span id="L28276" class="LineNr">28276 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L28277" class="LineNr">28277 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28278" class="LineNr">28278 </span> 55/push-ebp -<span id="L28279" class="LineNr">28279 </span> 89/<- %ebp 4/r32/esp -<span id="L28280" class="LineNr">28280 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28281" class="LineNr">28281 </span> 50/push-eax -<span id="L28282" class="LineNr">28282 </span> 51/push-ecx -<span id="L28283" class="LineNr">28283 </span> 52/push-edx -<span id="L28284" class="LineNr">28284 </span> <span class="subxComment"># eax = stmt</span> -<span id="L28285" class="LineNr">28285 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L28286" class="LineNr">28286 </span> <span class="subxComment"># var v/ecx: (addr var)</span> -<span id="L28287" class="LineNr">28287 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> -<span id="L28288" class="LineNr">28288 </span> 89/<- %ecx 0/r32/eax -<span id="L28289" class="LineNr">28289 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> -<span id="L28290" class="LineNr">28290 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/r32/eax -<span id="L28291" class="LineNr">28291 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> -<span id="L28292" class="LineNr">28292 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> -<span id="L28293" class="LineNr">28293 </span> (<a href='mu.subx.html#L26338'>size-of</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L28294" class="LineNr">28294 </span> 89/<- %edx 0/r32/eax -<span id="L28295" class="LineNr">28295 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> -<span id="L28296" class="LineNr">28296 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L26741'>Curr-local-stack-offset</a></span> 2/r32/edx -<span id="L28297" class="LineNr">28297 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> -<span id="L28298" class="LineNr">28298 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L26741'>Curr-local-stack-offset</a></span> 0/r32/eax -<span id="L28299" class="LineNr">28299 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L28300" class="LineNr">28300 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> -<span id="L28301" class="LineNr">28301 </span> { -<span id="L28302" class="LineNr">28302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28303" class="LineNr">28303 </span> (<a href='mu.subx.html#L26435'>is-mu-array?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28304" class="LineNr">28304 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28305" class="LineNr">28305 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28306" class="LineNr">28306 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> -<span id="L28307" class="LineNr">28307 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L28308" class="LineNr">28308 </span> <span class="subxComment">#</span> -<span id="L28309" class="LineNr">28309 </span> (<a href='mu.subx.html#L28351'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L28310" class="LineNr">28310 </span> e9/jump $emit-subx-var-def:end/disp32 -<span id="L28311" class="LineNr">28311 </span> } -<span id="L28312" class="LineNr">28312 </span> <span class="subxComment"># another special-case for initializing streams</span> -<span id="L28313" class="LineNr">28313 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> -<span id="L28314" class="LineNr">28314 </span> { -<span id="L28315" class="LineNr">28315 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28316" class="LineNr">28316 </span> (<a href='mu.subx.html#L26500'>is-mu-stream?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28317" class="LineNr">28317 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28318" class="LineNr">28318 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28319" class="LineNr">28319 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> -<span id="L28320" class="LineNr">28320 </span> 81 5/subop/subtract %edx 0xc/imm32 -<span id="L28321" class="LineNr">28321 </span> (<a href='mu.subx.html#L28351'>emit-array-data-initialization</a> *(ebp+8) %edx) -<span id="L28322" class="LineNr">28322 </span> <span class="subxComment"># emit read and write pointers</span> -<span id="L28323" class="LineNr">28323 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28324" class="LineNr">28324 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28325" class="LineNr">28325 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28326" class="LineNr">28326 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28327" class="LineNr">28327 </span> <span class="subxComment">#</span> -<span id="L28328" class="LineNr">28328 </span> eb/jump $emit-subx-var-def:end/disp8 -<span id="L28329" class="LineNr">28329 </span> } -<span id="L28330" class="LineNr">28330 </span> <span class="subxComment"># while n > 0</span> -<span id="L28331" class="LineNr">28331 </span> { -<span id="L28332" class="LineNr">28332 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L28333" class="LineNr">28333 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L28334" class="LineNr">28334 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28335" class="LineNr">28335 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) -<span id="L28336" class="LineNr">28336 </span> <span class="subxComment"># n -= 4</span> -<span id="L28337" class="LineNr">28337 </span> 81 5/subop/subtract %edx 4/imm32 -<span id="L28338" class="LineNr">28338 </span> <span class="subxComment">#</span> -<span id="L28339" class="LineNr">28339 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L28340" class="LineNr">28340 </span> } -<span id="L28341" class="LineNr">28341 </span><span class="Constant">$emit-subx-var-def:end</span>: -<span id="L28342" class="LineNr">28342 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28343" class="LineNr">28343 </span> 5a/pop-to-edx -<span id="L28344" class="LineNr">28344 </span> 59/pop-to-ecx -<span id="L28345" class="LineNr">28345 </span> 58/pop-to-eax -<span id="L28346" class="LineNr">28346 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28347" class="LineNr">28347 </span> 89/<- %esp 5/r32/ebp -<span id="L28348" class="LineNr">28348 </span> 5d/pop-to-ebp -<span id="L28349" class="LineNr">28349 </span> c3/return -<span id="L28350" class="LineNr">28350 </span> -<span id="L28351" class="LineNr">28351 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L28352" class="LineNr">28352 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28353" class="LineNr">28353 </span> 55/push-ebp -<span id="L28354" class="LineNr">28354 </span> 89/<- %ebp 4/r32/esp -<span id="L28355" class="LineNr">28355 </span> <span class="subxComment">#</span> -<span id="L28356" class="LineNr">28356 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28357" class="LineNr">28357 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='../302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> "</span>) -<span id="L28358" class="LineNr">28358 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28359" class="LineNr">28359 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L28360" class="LineNr">28360 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28361" class="LineNr">28361 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) -<span id="L28362" class="LineNr">28362 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28363" class="LineNr">28363 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28364" class="LineNr">28364 </span><span class="Constant">$emit-array-data-initialization:end</span>: -<span id="L28365" class="LineNr">28365 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28366" class="LineNr">28366 </span> 89/<- %esp 5/r32/ebp -<span id="L28367" class="LineNr">28367 </span> 5d/pop-to-ebp -<span id="L28368" class="LineNr">28368 </span> c3/return -<span id="L28369" class="LineNr">28369 </span> -<span id="L28370" class="LineNr">28370 </span><span class="subxFunction">emit-subx-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), primitives: (addr primitive), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L28371" class="LineNr">28371 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28372" class="LineNr">28372 </span> 55/push-ebp -<span id="L28373" class="LineNr">28373 </span> 89/<- %ebp 4/r32/esp -<span id="L28374" class="LineNr">28374 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28375" class="LineNr">28375 </span> 50/push-eax -<span id="L28376" class="LineNr">28376 </span> 51/push-ecx -<span id="L28377" class="LineNr">28377 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> -<span id="L28378" class="LineNr">28378 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L28379" class="LineNr">28379 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28380" class="LineNr">28380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L28381" class="LineNr">28381 </span> 89/<- %ecx 0/r32/eax -<span id="L28382" class="LineNr">28382 </span> <span class="subxComment"># copy byte (can be a primitive except we need to emit a second instruction)</span> -<span id="L28383" class="LineNr">28383 </span> { -<span id="L28384" class="LineNr">28384 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-byte")) break</span> -<span id="L28385" class="LineNr">28385 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> -<span id="L28386" class="LineNr">28386 </span> 3d/compare-eax-and 0/imm32 -<span id="L28387" class="LineNr">28387 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28388" class="LineNr">28388 </span> (<a href='mu.subx.html#L28841'>translate-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28389" class="LineNr">28389 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28390" class="LineNr">28390 </span> } -<span id="L28391" class="LineNr">28391 </span> <span class="subxComment"># copy-byte-to can be a primitive; writes to memory don't need to clear surrounding bytes</span> -<span id="L28392" class="LineNr">28392 </span> <span class="subxComment"># array size</span> -<span id="L28393" class="LineNr">28393 </span> { -<span id="L28394" class="LineNr">28394 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> -<span id="L28395" class="LineNr">28395 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> -<span id="L28396" class="LineNr">28396 </span> 3d/compare-eax-and 0/imm32 -<span id="L28397" class="LineNr">28397 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28398" class="LineNr">28398 </span> (<a href='mu.subx.html#L28515'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28399" class="LineNr">28399 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28400" class="LineNr">28400 </span> } -<span id="L28401" class="LineNr">28401 </span> <span class="subxComment"># index into array</span> -<span id="L28402" class="LineNr">28402 </span> { -<span id="L28403" class="LineNr">28403 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> -<span id="L28404" class="LineNr">28404 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> -<span id="L28405" class="LineNr">28405 </span> 3d/compare-eax-and 0/imm32 -<span id="L28406" class="LineNr">28406 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28407" class="LineNr">28407 </span> (<a href='mu.subx.html#L28883'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28408" class="LineNr">28408 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28409" class="LineNr">28409 </span> } -<span id="L28410" class="LineNr">28410 </span> <span class="subxComment"># compute-offset for index into array</span> -<span id="L28411" class="LineNr">28411 </span> { -<span id="L28412" class="LineNr">28412 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> -<span id="L28413" class="LineNr">28413 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compute-offset"</span>) <span class="subxComment"># => eax</span> -<span id="L28414" class="LineNr">28414 </span> 3d/compare-eax-and 0/imm32 -<span id="L28415" class="LineNr">28415 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28416" class="LineNr">28416 </span> (<a href='mu.subx.html#L29287'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28417" class="LineNr">28417 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28418" class="LineNr">28418 </span> } -<span id="L28419" class="LineNr">28419 </span> <span class="subxComment"># get field from record</span> -<span id="L28420" class="LineNr">28420 </span> { -<span id="L28421" class="LineNr">28421 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> -<span id="L28422" class="LineNr">28422 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> -<span id="L28423" class="LineNr">28423 </span> 3d/compare-eax-and 0/imm32 -<span id="L28424" class="LineNr">28424 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28425" class="LineNr">28425 </span> (<a href='mu.subx.html#L29335'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) -<span id="L28426" class="LineNr">28426 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28427" class="LineNr">28427 </span> } -<span id="L28428" class="LineNr">28428 </span> <span class="subxComment"># allocate scalar</span> -<span id="L28429" class="LineNr">28429 </span> { -<span id="L28430" class="LineNr">28430 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> -<span id="L28431" class="LineNr">28431 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> -<span id="L28432" class="LineNr">28432 </span> 3d/compare-eax-and 0/imm32 -<span id="L28433" class="LineNr">28433 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28434" class="LineNr">28434 </span> (<a href='mu.subx.html#L29454'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28435" class="LineNr">28435 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28436" class="LineNr">28436 </span> } -<span id="L28437" class="LineNr">28437 </span> <span class="subxComment"># copy-object</span> -<span id="L28438" class="LineNr">28438 </span> { -<span id="L28439" class="LineNr">28439 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> -<span id="L28440" class="LineNr">28440 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-object"</span>) <span class="subxComment"># => eax</span> -<span id="L28441" class="LineNr">28441 </span> 3d/compare-eax-and 0/imm32 -<span id="L28442" class="LineNr">28442 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28443" class="LineNr">28443 </span> (<a href='mu.subx.html#L29397'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28444" class="LineNr">28444 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28445" class="LineNr">28445 </span> } -<span id="L28446" class="LineNr">28446 </span> <span class="subxComment"># clear-object</span> -<span id="L28447" class="LineNr">28447 </span> { -<span id="L28448" class="LineNr">28448 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> -<span id="L28449" class="LineNr">28449 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"clear-object"</span>) <span class="subxComment"># => eax</span> -<span id="L28450" class="LineNr">28450 </span> 3d/compare-eax-and 0/imm32 -<span id="L28451" class="LineNr">28451 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28452" class="LineNr">28452 </span> (<a href='mu.subx.html#L29427'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28453" class="LineNr">28453 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28454" class="LineNr">28454 </span> } -<span id="L28455" class="LineNr">28455 </span> <span class="subxComment"># allocate array</span> -<span id="L28456" class="LineNr">28456 </span> { -<span id="L28457" class="LineNr">28457 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> -<span id="L28458" class="LineNr">28458 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> -<span id="L28459" class="LineNr">28459 </span> 3d/compare-eax-and 0/imm32 -<span id="L28460" class="LineNr">28460 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28461" class="LineNr">28461 </span> (<a href='mu.subx.html#L29550'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28462" class="LineNr">28462 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28463" class="LineNr">28463 </span> } -<span id="L28464" class="LineNr">28464 </span> <span class="subxComment"># allocate stream</span> -<span id="L28465" class="LineNr">28465 </span> { -<span id="L28466" class="LineNr">28466 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> -<span id="L28467" class="LineNr">28467 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L28468" class="LineNr">28468 </span> 3d/compare-eax-and 0/imm32 -<span id="L28469" class="LineNr">28469 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28470" class="LineNr">28470 </span> (<a href='mu.subx.html#L29586'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28471" class="LineNr">28471 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28472" class="LineNr">28472 </span> } -<span id="L28473" class="LineNr">28473 </span> <span class="subxComment"># read from stream</span> -<span id="L28474" class="LineNr">28474 </span> { -<span id="L28475" class="LineNr">28475 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> -<span id="L28476" class="LineNr">28476 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"read-from-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L28477" class="LineNr">28477 </span> 3d/compare-eax-and 0/imm32 -<span id="L28478" class="LineNr">28478 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28479" class="LineNr">28479 </span> (<a href='mu.subx.html#L29622'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28480" class="LineNr">28480 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28481" class="LineNr">28481 </span> } -<span id="L28482" class="LineNr">28482 </span> <span class="subxComment"># write to stream</span> -<span id="L28483" class="LineNr">28483 </span> { -<span id="L28484" class="LineNr">28484 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> -<span id="L28485" class="LineNr">28485 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"write-to-stream"</span>) <span class="subxComment"># => eax</span> -<span id="L28486" class="LineNr">28486 </span> 3d/compare-eax-and 0/imm32 -<span id="L28487" class="LineNr">28487 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28488" class="LineNr">28488 </span> (<a href='mu.subx.html#L29659'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) -<span id="L28489" class="LineNr">28489 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28490" class="LineNr">28490 </span> } -<span id="L28491" class="LineNr">28491 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> -<span id="L28492" class="LineNr">28492 </span> { -<span id="L28493" class="LineNr">28493 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: -<span id="L28494" class="LineNr">28494 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> -<span id="L28495" class="LineNr">28495 </span> (<a href='mu.subx.html#L35061'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> -<span id="L28496" class="LineNr">28496 </span> 3d/compare-eax-and 0/imm32 -<span id="L28497" class="LineNr">28497 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28498" class="LineNr">28498 </span><span class="Constant">$emit-subx-stmt:primitive</span>: -<span id="L28499" class="LineNr">28499 </span> (<a href='mu.subx.html#L34532'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> -<span id="L28500" class="LineNr">28500 </span> e9/jump $emit-subx-stmt:end/disp32 -<span id="L28501" class="LineNr">28501 </span> } -<span id="L28502" class="LineNr">28502 </span> <span class="subxH1Comment"># - otherwise emit a call</span> -<span id="L28503" class="LineNr">28503 </span> <span class="subxComment"># TODO: type-checking</span> -<span id="L28504" class="LineNr">28504 </span><span class="Constant">$emit-subx-stmt:call</span>: -<span id="L28505" class="LineNr">28505 </span> (<a href='mu.subx.html#L34801'>emit-call</a> *(ebp+8) *(ebp+0xc)) -<span id="L28506" class="LineNr">28506 </span><span class="Constant">$emit-subx-stmt:end</span>: -<span id="L28507" class="LineNr">28507 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28508" class="LineNr">28508 </span> 59/pop-to-ecx -<span id="L28509" class="LineNr">28509 </span> 58/pop-to-eax -<span id="L28510" class="LineNr">28510 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28511" class="LineNr">28511 </span> 89/<- %esp 5/r32/ebp -<span id="L28512" class="LineNr">28512 </span> 5d/pop-to-ebp -<span id="L28513" class="LineNr">28513 </span> c3/return -<span id="L28514" class="LineNr">28514 </span> -<span id="L28515" class="LineNr">28515 </span><span class="subxFunction">translate-mu-length-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L28516" class="LineNr">28516 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28517" class="LineNr">28517 </span> 55/push-ebp -<span id="L28518" class="LineNr">28518 </span> 89/<- %ebp 4/r32/esp -<span id="L28519" class="LineNr">28519 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28520" class="LineNr">28520 </span> 50/push-eax -<span id="L28521" class="LineNr">28521 </span> 51/push-ecx -<span id="L28522" class="LineNr">28522 </span> 52/push-edx -<span id="L28523" class="LineNr">28523 </span> 53/push-ebx -<span id="L28524" class="LineNr">28524 </span> 56/push-esi -<span id="L28525" class="LineNr">28525 </span> <span class="subxComment"># esi = stmt</span> -<span id="L28526" class="LineNr">28526 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L28527" class="LineNr">28527 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> -<span id="L28528" class="LineNr">28528 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28529" class="LineNr">28529 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28530" class="LineNr">28530 </span> 89/<- %ebx 0/r32/eax -<span id="L28531" class="LineNr">28531 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> -<span id="L28532" class="LineNr">28532 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L28533" class="LineNr">28533 </span> 89/<- %ecx 0/r32/eax -<span id="L28534" class="LineNr">28534 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> -<span id="L28535" class="LineNr">28535 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28536" class="LineNr">28536 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28537" class="LineNr">28537 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28538" class="LineNr">28538 </span> 89/<- %edx 0/r32/eax -<span id="L28539" class="LineNr">28539 </span> <span class="subxComment"># if elemsize == 1</span> -<span id="L28540" class="LineNr">28540 </span> { -<span id="L28541" class="LineNr">28541 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L28542" class="LineNr">28542 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28543" class="LineNr">28543 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: -<span id="L28544" class="LineNr">28544 </span> (<a href='mu.subx.html#L28776'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L28545" class="LineNr">28545 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L28546" class="LineNr">28546 </span> } -<span id="L28547" class="LineNr">28547 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> -<span id="L28548" class="LineNr">28548 </span> { -<span id="L28549" class="LineNr">28549 </span> (<a href='mu.subx.html#L29785'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L28550" class="LineNr">28550 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28551" class="LineNr">28551 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28552" class="LineNr">28552 </span> 81 7/subop/compare %ecx 0xff/imm32 -<span id="L28553" class="LineNr">28553 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 -<span id="L28554" class="LineNr">28554 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: -<span id="L28555" class="LineNr">28555 </span> (<a href='mu.subx.html#L28776'>emit-save-size-to</a> *(ebp+8) %ebx %edx) -<span id="L28556" class="LineNr">28556 </span> (<a href='mu.subx.html#L28819'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) -<span id="L28557" class="LineNr">28557 </span> e9/jump $translate-mu-length-stmt:end/disp32 -<span id="L28558" class="LineNr">28558 </span> } -<span id="L28559" class="LineNr">28559 </span> <span class="subxComment"># otherwise, the complex case</span> -<span id="L28560" class="LineNr">28560 </span> <span class="subxS1Comment"># . emit register spills</span> -<span id="L28561" class="LineNr">28561 </span> { -<span id="L28562" class="LineNr">28562 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: -<span id="L28563" class="LineNr">28563 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28564" class="LineNr">28564 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28565" class="LineNr">28565 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28566" class="LineNr">28566 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28567" class="LineNr">28567 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) -<span id="L28568" class="LineNr">28568 </span> } -<span id="L28569" class="LineNr">28569 </span> { -<span id="L28570" class="LineNr">28570 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L28571" class="LineNr">28571 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28572" class="LineNr">28572 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28573" class="LineNr">28573 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28574" class="LineNr">28574 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) -<span id="L28575" class="LineNr">28575 </span> } -<span id="L28576" class="LineNr">28576 </span> { -<span id="L28577" class="LineNr">28577 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L28578" class="LineNr">28578 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28579" class="LineNr">28579 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28580" class="LineNr">28580 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28581" class="LineNr">28581 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) -<span id="L28582" class="LineNr">28582 </span> } -<span id="L28583" class="LineNr">28583 </span> <span class="subxS1Comment"># .</span> -<span id="L28584" class="LineNr">28584 </span> (<a href='mu.subx.html#L28776'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) -<span id="L28585" class="LineNr">28585 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28586" class="LineNr">28586 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"31/xor %edx 2/r32/edx\n"</span>) -<span id="L28587" class="LineNr">28587 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28588" class="LineNr">28588 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) -<span id="L28589" class="LineNr">28589 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L28590" class="LineNr">28590 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) -<span id="L28591" class="LineNr">28591 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28592" class="LineNr">28592 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f7 7/subop/idiv-eax-edx-by %ecx\n"</span>) -<span id="L28593" class="LineNr">28593 </span> { -<span id="L28594" class="LineNr">28594 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28595" class="LineNr">28595 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28596" class="LineNr">28596 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28597" class="LineNr">28597 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28598" class="LineNr">28598 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) -<span id="L28599" class="LineNr">28599 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) -<span id="L28600" class="LineNr">28600 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) -<span id="L28601" class="LineNr">28601 </span> } -<span id="L28602" class="LineNr">28602 </span> <span class="subxS1Comment"># . emit register restores</span> -<span id="L28603" class="LineNr">28603 </span> { -<span id="L28604" class="LineNr">28604 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> -<span id="L28605" class="LineNr">28605 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28606" class="LineNr">28606 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28607" class="LineNr">28607 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28608" class="LineNr">28608 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) -<span id="L28609" class="LineNr">28609 </span> } -<span id="L28610" class="LineNr">28610 </span> { -<span id="L28611" class="LineNr">28611 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> -<span id="L28612" class="LineNr">28612 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28613" class="LineNr">28613 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28614" class="LineNr">28614 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28615" class="LineNr">28615 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) -<span id="L28616" class="LineNr">28616 </span> } -<span id="L28617" class="LineNr">28617 </span> { -<span id="L28618" class="LineNr">28618 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> -<span id="L28619" class="LineNr">28619 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28620" class="LineNr">28620 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 -<span id="L28621" class="LineNr">28621 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28622" class="LineNr">28622 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) -<span id="L28623" class="LineNr">28623 </span> } -<span id="L28624" class="LineNr">28624 </span><span class="Constant">$translate-mu-length-stmt:end</span>: -<span id="L28625" class="LineNr">28625 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28626" class="LineNr">28626 </span> 5e/pop-to-esi -<span id="L28627" class="LineNr">28627 </span> 5b/pop-to-ebx -<span id="L28628" class="LineNr">28628 </span> 5a/pop-to-edx -<span id="L28629" class="LineNr">28629 </span> 59/pop-to-ecx -<span id="L28630" class="LineNr">28630 </span> 58/pop-to-eax -<span id="L28631" class="LineNr">28631 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28632" class="LineNr">28632 </span> 89/<- %esp 5/r32/ebp -<span id="L28633" class="LineNr">28633 </span> 5d/pop-to-ebp -<span id="L28634" class="LineNr">28634 </span> c3/return -<span id="L28635" class="LineNr">28635 </span> -<span id="L28636" class="LineNr">28636 </span><span class="subxFunction">array-element-size</span>: <span class="subxComment"># arr: (addr var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> -<span id="L28637" class="LineNr">28637 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28638" class="LineNr">28638 </span> 55/push-ebp -<span id="L28639" class="LineNr">28639 </span> 89/<- %ebp 4/r32/esp -<span id="L28640" class="LineNr">28640 </span> <span class="subxComment">#</span> -<span id="L28641" class="LineNr">28641 </span> (<a href='mu.subx.html#L28649'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L28642" class="LineNr">28642 </span> (<a href='mu.subx.html#L28755'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28643" class="LineNr">28643 </span><span class="Constant">$array-element-size:end</span>: -<span id="L28644" class="LineNr">28644 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28645" class="LineNr">28645 </span> 89/<- %esp 5/r32/ebp -<span id="L28646" class="LineNr">28646 </span> 5d/pop-to-ebp -<span id="L28647" class="LineNr">28647 </span> c3/return -<span id="L28648" class="LineNr">28648 </span> -<span id="L28649" class="LineNr">28649 </span><span class="subxFunction">array-element-type-id</span>: <span class="subxComment"># v: (addr var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: type-id</span> -<span id="L28650" class="LineNr">28650 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L28651" class="LineNr">28651 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28652" class="LineNr">28652 </span> 55/push-ebp -<span id="L28653" class="LineNr">28653 </span> 89/<- %ebp 4/r32/esp -<span id="L28654" class="LineNr">28654 </span> <span class="subxComment">#</span> -<span id="L28655" class="LineNr">28655 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28656" class="LineNr">28656 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> -<span id="L28657" class="LineNr">28657 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28658" class="LineNr">28658 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L28659" class="LineNr">28659 </span> 3d/compare-eax-with 0/imm32 -<span id="L28660" class="LineNr">28660 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 -<span id="L28661" class="LineNr">28661 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L28662" class="LineNr">28662 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L28663" class="LineNr">28663 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 -<span id="L28664" class="LineNr">28664 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> -<span id="L28665" class="LineNr">28665 </span> { -<span id="L28666" class="LineNr">28666 </span> 50/push-eax -<span id="L28667" class="LineNr">28667 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L28668" class="LineNr">28668 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> -<span id="L28669" class="LineNr">28669 </span> 3d/compare-eax-with 0/imm32/false -<span id="L28670" class="LineNr">28670 </span> 58/pop-to-eax -<span id="L28671" class="LineNr">28671 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28672" class="LineNr">28672 </span><span class="Constant">$array-element-type-id:skip-addr</span>: -<span id="L28673" class="LineNr">28673 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L28674" class="LineNr">28674 </span> } -<span id="L28675" class="LineNr">28675 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L28676" class="LineNr">28676 </span> 3d/compare-eax-with 0/imm32 -<span id="L28677" class="LineNr">28677 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L28678" class="LineNr">28678 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L28679" class="LineNr">28679 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L28680" class="LineNr">28680 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L28681" class="LineNr">28681 </span> <span class="subxComment"># if t->left != array abort</span> -<span id="L28682" class="LineNr">28682 </span> { -<span id="L28683" class="LineNr">28683 </span> 50/push-eax -<span id="L28684" class="LineNr">28684 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L28685" class="LineNr">28685 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> -<span id="L28686" class="LineNr">28686 </span> 3d/compare-eax-with 0/imm32/false -<span id="L28687" class="LineNr">28687 </span> 58/pop-to-eax -<span id="L28688" class="LineNr">28688 </span><span class="Constant">$array-element-type-id:no-array</span>: -<span id="L28689" class="LineNr">28689 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L28690" class="LineNr">28690 </span> } -<span id="L28691" class="LineNr">28691 </span><span class="Constant">$array-element-type-id:skip-array</span>: -<span id="L28692" class="LineNr">28692 </span> <span class="subxComment"># t = t->right</span> -<span id="L28693" class="LineNr">28693 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L28694" class="LineNr">28694 </span> <span class="subxComment"># if t == 0 abort</span> -<span id="L28695" class="LineNr">28695 </span> 3d/compare-eax-with 0/imm32 -<span id="L28696" class="LineNr">28696 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 -<span id="L28697" class="LineNr">28697 </span> <span class="subxComment"># if t->is-atom? abort</span> -<span id="L28698" class="LineNr">28698 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L28699" class="LineNr">28699 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 -<span id="L28700" class="LineNr">28700 </span> <span class="subxComment"># t = t->left</span> -<span id="L28701" class="LineNr">28701 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L28702" class="LineNr">28702 </span> <span class="subxComment"># if (!t->is-atom?) t = t->left # TODO: assumes array element size can be determined from just first word of array element type</span> -<span id="L28703" class="LineNr">28703 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> -<span id="L28704" class="LineNr">28704 </span> { -<span id="L28705" class="LineNr">28705 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L28706" class="LineNr">28706 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28707" class="LineNr">28707 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L28708" class="LineNr">28708 </span> } -<span id="L28709" class="LineNr">28709 </span> <span class="subxComment"># return t->value</span> -<span id="L28710" class="LineNr">28710 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> -<span id="L28711" class="LineNr">28711 </span><span class="Constant">$array-element-type-id:end</span>: -<span id="L28712" class="LineNr">28712 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28713" class="LineNr">28713 </span> 89/<- %esp 5/r32/ebp -<span id="L28714" class="LineNr">28714 </span> 5d/pop-to-ebp -<span id="L28715" class="LineNr">28715 </span> c3/return -<span id="L28716" class="LineNr">28716 </span> -<span id="L28717" class="LineNr">28717 </span><span class="Constant">$array-element-type-id:error0</span>: -<span id="L28718" class="LineNr">28718 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L28719" class="LineNr">28719 </span> 50/push-eax -<span id="L28720" class="LineNr">28720 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28721" class="LineNr">28721 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L28722" class="LineNr">28722 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L28723" class="LineNr">28723 </span> 58/pop-to-eax -<span id="L28724" class="LineNr">28724 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) -<span id="L28725" class="LineNr">28725 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L28726" class="LineNr">28726 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L28727" class="LineNr">28727 </span> <span class="subxComment"># never gets here</span> -<span id="L28728" class="LineNr">28728 </span> -<span id="L28729" class="LineNr">28729 </span><span class="Constant">$array-element-type-id:error1</span>: -<span id="L28730" class="LineNr">28730 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L28731" class="LineNr">28731 </span> 50/push-eax -<span id="L28732" class="LineNr">28732 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28733" class="LineNr">28733 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L28734" class="LineNr">28734 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L28735" class="LineNr">28735 </span> 58/pop-to-eax -<span id="L28736" class="LineNr">28736 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) -<span id="L28737" class="LineNr">28737 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *(eax+4)) <span class="subxComment"># Type-tree-value</span> -<span id="L28738" class="LineNr">28738 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L28739" class="LineNr">28739 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L28740" class="LineNr">28740 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L28741" class="LineNr">28741 </span> <span class="subxComment"># never gets here</span> -<span id="L28742" class="LineNr">28742 </span> -<span id="L28743" class="LineNr">28743 </span><span class="Constant">$array-element-type-id:error2</span>: -<span id="L28744" class="LineNr">28744 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) -<span id="L28745" class="LineNr">28745 </span> 50/push-eax -<span id="L28746" class="LineNr">28746 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28747" class="LineNr">28747 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L28748" class="LineNr">28748 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) -<span id="L28749" class="LineNr">28749 </span> 58/pop-to-eax -<span id="L28750" class="LineNr">28750 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) -<span id="L28751" class="LineNr">28751 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L28752" class="LineNr">28752 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L28753" class="LineNr">28753 </span> <span class="subxComment"># never gets here</span> -<span id="L28754" class="LineNr">28754 </span> -<span id="L28755" class="LineNr">28755 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> -<span id="L28756" class="LineNr">28756 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28757" class="LineNr">28757 </span> 55/push-ebp -<span id="L28758" class="LineNr">28758 </span> 89/<- %ebp 4/r32/esp -<span id="L28759" class="LineNr">28759 </span> <span class="subxComment"># eax = t</span> -<span id="L28760" class="LineNr">28760 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L28761" class="LineNr">28761 </span> <span class="subxComment"># if t is 'byte', size is 1</span> -<span id="L28762" class="LineNr">28762 </span> 3d/compare-eax-and 8/imm32/byte -<span id="L28763" class="LineNr">28763 </span> { -<span id="L28764" class="LineNr">28764 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28765" class="LineNr">28765 </span> b8/copy-to-eax 1/imm32 -<span id="L28766" class="LineNr">28766 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 -<span id="L28767" class="LineNr">28767 </span> } -<span id="L28768" class="LineNr">28768 </span> <span class="subxComment"># otherwise proceed as usual</span> -<span id="L28769" class="LineNr">28769 </span> (<a href='mu.subx.html#L26544'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> -<span id="L28770" class="LineNr">28770 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: -<span id="L28771" class="LineNr">28771 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28772" class="LineNr">28772 </span> 89/<- %esp 5/r32/ebp -<span id="L28773" class="LineNr">28773 </span> 5d/pop-to-ebp -<span id="L28774" class="LineNr">28774 </span> c3/return -<span id="L28775" class="LineNr">28775 </span> -<span id="L28776" class="LineNr">28776 </span><span class="subxFunction">emit-save-size-to</span>: <span class="subxComment"># out: (addr buffered-file), base: (addr var), outreg: (addr array byte)</span> -<span id="L28777" class="LineNr">28777 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28778" class="LineNr">28778 </span> 55/push-ebp -<span id="L28779" class="LineNr">28779 </span> 89/<- %ebp 4/r32/esp -<span id="L28780" class="LineNr">28780 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28781" class="LineNr">28781 </span> 50/push-eax -<span id="L28782" class="LineNr">28782 </span> 53/push-ebx -<span id="L28783" class="LineNr">28783 </span> <span class="subxComment"># ebx = base</span> -<span id="L28784" class="LineNr">28784 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L28785" class="LineNr">28785 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28786" class="LineNr">28786 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) -<span id="L28787" class="LineNr">28787 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> -<span id="L28788" class="LineNr">28788 </span> { -<span id="L28789" class="LineNr">28789 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28790" class="LineNr">28790 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28791" class="LineNr">28791 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: -<span id="L28792" class="LineNr">28792 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28793" class="LineNr">28793 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L28794" class="LineNr">28794 </span> eb/jump $emit-save-size-to:emit-output/disp8 -<span id="L28795" class="LineNr">28795 </span> } -<span id="L28796" class="LineNr">28796 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> -<span id="L28797" class="LineNr">28797 </span> { -<span id="L28798" class="LineNr">28798 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L28799" class="LineNr">28799 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28800" class="LineNr">28800 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: -<span id="L28801" class="LineNr">28801 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) -<span id="L28802" class="LineNr">28802 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebx+0x14)) <span class="subxComment"># Var-offset</span> -<span id="L28803" class="LineNr">28803 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L28804" class="LineNr">28804 </span> } -<span id="L28805" class="LineNr">28805 </span><span class="Constant">$emit-save-size-to:emit-output</span>: -<span id="L28806" class="LineNr">28806 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L28807" class="LineNr">28807 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> -<span id="L28808" class="LineNr">28808 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L28809" class="LineNr">28809 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L28810" class="LineNr">28810 </span><span class="Constant">$emit-save-size-to:end</span>: -<span id="L28811" class="LineNr">28811 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28812" class="LineNr">28812 </span> 5b/pop-to-ebx -<span id="L28813" class="LineNr">28813 </span> 58/pop-to-eax -<span id="L28814" class="LineNr">28814 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28815" class="LineNr">28815 </span> 89/<- %esp 5/r32/ebp -<span id="L28816" class="LineNr">28816 </span> 5d/pop-to-ebp -<span id="L28817" class="LineNr">28817 </span> c3/return -<span id="L28818" class="LineNr">28818 </span> -<span id="L28819" class="LineNr">28819 </span><span class="subxFunction">emit-divide-by-shift-right</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte), size: int</span> -<span id="L28820" class="LineNr">28820 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28821" class="LineNr">28821 </span> 55/push-ebp -<span id="L28822" class="LineNr">28822 </span> 89/<- %ebp 4/r32/esp -<span id="L28823" class="LineNr">28823 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28824" class="LineNr">28824 </span> 50/push-eax -<span id="L28825" class="LineNr">28825 </span> <span class="subxComment">#</span> -<span id="L28826" class="LineNr">28826 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28827" class="LineNr">28827 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) -<span id="L28828" class="LineNr">28828 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) -<span id="L28829" class="LineNr">28829 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L28830" class="LineNr">28830 </span> (<a href='mu.subx.html#L29815'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L28831" class="LineNr">28831 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L28832" class="LineNr">28832 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) -<span id="L28833" class="LineNr">28833 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: -<span id="L28834" class="LineNr">28834 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28835" class="LineNr">28835 </span> 58/pop-to-eax -<span id="L28836" class="LineNr">28836 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28837" class="LineNr">28837 </span> 89/<- %esp 5/r32/ebp -<span id="L28838" class="LineNr">28838 </span> 5d/pop-to-ebp -<span id="L28839" class="LineNr">28839 </span> c3/return -<span id="L28840" class="LineNr">28840 </span> -<span id="L28841" class="LineNr">28841 </span><span class="subxFunction">translate-mu-copy-byte-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L28842" class="LineNr">28842 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28843" class="LineNr">28843 </span> 55/push-ebp -<span id="L28844" class="LineNr">28844 </span> 89/<- %ebp 4/r32/esp -<span id="L28845" class="LineNr">28845 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28846" class="LineNr">28846 </span> 50/push-eax -<span id="L28847" class="LineNr">28847 </span> 56/push-esi -<span id="L28848" class="LineNr">28848 </span> <span class="subxComment"># esi = stmt</span> -<span id="L28849" class="LineNr">28849 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L28850" class="LineNr">28850 </span> <span class="subxComment">#</span> -<span id="L28851" class="LineNr">28851 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28852" class="LineNr">28852 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8a/byte->"</span>) -<span id="L28853" class="LineNr">28853 </span> <span class="subxComment"># emit stmt->inouts[0]</span> -<span id="L28854" class="LineNr">28854 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28855" class="LineNr">28855 </span> (<a href='mu.subx.html#L35002'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L28856" class="LineNr">28856 </span> <span class="subxComment"># emit /r32 for stmt->outputs[0]->register</span> -<span id="L28857" class="LineNr">28857 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28858" class="LineNr">28858 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28859" class="LineNr">28859 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28860" class="LineNr">28860 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L28861" class="LineNr">28861 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L28862" class="LineNr">28862 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L28863" class="LineNr">28863 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L28864" class="LineNr">28864 </span> <span class="subxComment"># clear rest of register</span> -<span id="L28865" class="LineNr">28865 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28866" class="LineNr">28866 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 4/subop/and %"</span>) -<span id="L28867" class="LineNr">28867 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L28868" class="LineNr">28868 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L28869" class="LineNr">28869 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28870" class="LineNr">28870 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28871" class="LineNr">28871 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L28872" class="LineNr">28872 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0xff/imm32\n"</span>) -<span id="L28873" class="LineNr">28873 </span><span class="Constant">$translate-mu-copy-byte-stmt:end</span>: -<span id="L28874" class="LineNr">28874 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28875" class="LineNr">28875 </span> 5e/pop-to-esi -<span id="L28876" class="LineNr">28876 </span> 58/pop-to-eax -<span id="L28877" class="LineNr">28877 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28878" class="LineNr">28878 </span> 89/<- %esp 5/r32/ebp -<span id="L28879" class="LineNr">28879 </span> 5d/pop-to-ebp -<span id="L28880" class="LineNr">28880 </span> c3/return -<span id="L28881" class="LineNr">28881 </span> -<span id="L28882" class="LineNr">28882 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> -<span id="L28883" class="LineNr">28883 </span><span class="subxFunction">translate-mu-index-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L28884" class="LineNr">28884 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28885" class="LineNr">28885 </span> 55/push-ebp -<span id="L28886" class="LineNr">28886 </span> 89/<- %ebp 4/r32/esp -<span id="L28887" class="LineNr">28887 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28888" class="LineNr">28888 </span> 53/push-ebx -<span id="L28889" class="LineNr">28889 </span> <span class="subxComment"># ebx = stmt</span> -<span id="L28890" class="LineNr">28890 </span> 8b/-> *(ebp+0xc) 3/r32/ebx -<span id="L28891" class="LineNr">28891 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> -<span id="L28892" class="LineNr">28892 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28893" class="LineNr">28893 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28894" class="LineNr">28894 </span> 89/<- %ebx 0/r32/eax -<span id="L28895" class="LineNr">28895 </span> <span class="subxComment"># emit bounds-check</span> -<span id="L28896" class="LineNr">28896 </span> (<a href='mu.subx.html#L28933'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) -<span id="L28897" class="LineNr">28897 </span> <span class="subxComment"># if (var->register) do one thing</span> -<span id="L28898" class="LineNr">28898 </span> { -<span id="L28899" class="LineNr">28899 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28900" class="LineNr">28900 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28901" class="LineNr">28901 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L28902" class="LineNr">28902 </span> (<a href='mu.subx.html#L29052'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L28903" class="LineNr">28903 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L28904" class="LineNr">28904 </span> } -<span id="L28905" class="LineNr">28905 </span> <span class="subxComment"># if (var->offset) do a different thing</span> -<span id="L28906" class="LineNr">28906 </span> { -<span id="L28907" class="LineNr">28907 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L28908" class="LineNr">28908 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L28909" class="LineNr">28909 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> -<span id="L28910" class="LineNr">28910 </span> (<a href='mu.subx.html#L29168'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) -<span id="L28911" class="LineNr">28911 </span> eb/jump $translate-mu-index-stmt:end/disp8 -<span id="L28912" class="LineNr">28912 </span> } -<span id="L28913" class="LineNr">28913 </span><span class="Constant">$translate-mu-index-stmt:end</span>: -<span id="L28914" class="LineNr">28914 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L28915" class="LineNr">28915 </span> 5b/pop-to-ebx -<span id="L28916" class="LineNr">28916 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L28917" class="LineNr">28917 </span> 89/<- %esp 5/r32/ebp -<span id="L28918" class="LineNr">28918 </span> 5d/pop-to-ebp -<span id="L28919" class="LineNr">28919 </span> c3/return -<span id="L28920" class="LineNr">28920 </span> -<span id="L28921" class="LineNr">28921 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: -<span id="L28922" class="LineNr">28922 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"couldn't translate an index instruction. second (index) input must either lie in a register or be a literal\n"</span>) -<span id="L28923" class="LineNr">28923 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L28924" class="LineNr">28924 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L28925" class="LineNr">28925 </span> <span class="subxComment"># never gets here</span> -<span id="L28926" class="LineNr">28926 </span> -<span id="L28927" class="LineNr">28927 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: -<span id="L28928" class="LineNr">28928 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"couldn't translate an index instruction. second (index) input when in a register must be an int or offset\n"</span>) -<span id="L28929" class="LineNr">28929 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) -<span id="L28930" class="LineNr">28930 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) -<span id="L28931" class="LineNr">28931 </span> <span class="subxComment"># never gets here</span> -<span id="L28932" class="LineNr">28932 </span> -<span id="L28933" class="LineNr">28933 </span><span class="subxFunction">emit-mu-index-bounds-check</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L28934" class="LineNr">28934 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L28935" class="LineNr">28935 </span> 55/push-ebp -<span id="L28936" class="LineNr">28936 </span> 89/<- %ebp 4/r32/esp -<span id="L28937" class="LineNr">28937 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L28938" class="LineNr">28938 </span> 50/push-eax -<span id="L28939" class="LineNr">28939 </span> 51/push-ecx -<span id="L28940" class="LineNr">28940 </span> 52/push-edx -<span id="L28941" class="LineNr">28941 </span> 53/push-ebx -<span id="L28942" class="LineNr">28942 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L28943" class="LineNr">28943 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L28944" class="LineNr">28944 </span> <span class="subxComment">#</span> -<span id="L28945" class="LineNr">28945 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L28946" class="LineNr">28946 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='../313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> "</span>) -<span id="L28947" class="LineNr">28947 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: -<span id="L28948" class="LineNr">28948 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L28949" class="LineNr">28949 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28950" class="LineNr">28950 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28951" class="LineNr">28951 </span> 89/<- %ebx 0/r32/eax -<span id="L28952" class="LineNr">28952 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: -<span id="L28953" class="LineNr">28953 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L28954" class="LineNr">28954 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L28955" class="LineNr">28955 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L28956" class="LineNr">28956 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L28957" class="LineNr">28957 </span> 89/<- %edx 0/r32/eax -<span id="L28958" class="LineNr">28958 </span> <span class="subxComment"># if index->register, print its code</span> -<span id="L28959" class="LineNr">28959 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L28960" class="LineNr">28960 </span> { -<span id="L28961" class="LineNr">28961 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28962" class="LineNr">28962 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: -<span id="L28963" class="LineNr">28963 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) -<span id="L28964" class="LineNr">28964 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L28965" class="LineNr">28965 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L28966" class="LineNr">28966 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 -<span id="L28967" class="LineNr">28967 </span> } -<span id="L28968" class="LineNr">28968 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> -<span id="L28969" class="LineNr">28969 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: -<span id="L28970" class="LineNr">28970 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28971" class="LineNr">28971 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L28972" class="LineNr">28972 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28973" class="LineNr">28973 </span> { -<span id="L28974" class="LineNr">28974 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L28975" class="LineNr">28975 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L28976" class="LineNr">28976 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L28977" class="LineNr">28977 </span> } -<span id="L28978" class="LineNr">28978 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: -<span id="L28979" class="LineNr">28979 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L28980" class="LineNr">28980 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: -<span id="L28981" class="LineNr">28981 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> -<span id="L28982" class="LineNr">28982 </span> { -<span id="L28983" class="LineNr">28983 </span> { -<span id="L28984" class="LineNr">28984 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28985" class="LineNr">28985 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> -<span id="L28986" class="LineNr">28986 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28987" class="LineNr">28987 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28988" class="LineNr">28988 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L28989" class="LineNr">28989 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L28990" class="LineNr">28990 </span> 3d/compare-eax-and 0/imm32/false -<span id="L28991" class="LineNr">28991 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L28992" class="LineNr">28992 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 -<span id="L28993" class="LineNr">28993 </span> } -<span id="L28994" class="LineNr">28994 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: -<span id="L28995" class="LineNr">28995 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L28996" class="LineNr">28996 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L28997" class="LineNr">28997 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 -<span id="L28998" class="LineNr">28998 </span> } -<span id="L28999" class="LineNr">28999 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: -<span id="L29000" class="LineNr">29000 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> -<span id="L29001" class="LineNr">29001 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29002" class="LineNr">29002 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29003" class="LineNr">29003 </span> { -<span id="L29004" class="LineNr">29004 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29005" class="LineNr">29005 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29006" class="LineNr">29006 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29007" class="LineNr">29007 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29008" class="LineNr">29008 </span> { -<span id="L29009" class="LineNr">29009 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29010" class="LineNr">29010 </span><span class="Constant">$emit-mu-index-bounds-check:emit-offset-register-index</span>: -<span id="L29011" class="LineNr">29011 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) -<span id="L29012" class="LineNr">29012 </span> } -<span id="L29013" class="LineNr">29013 </span> } -<span id="L29014" class="LineNr">29014 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: -<span id="L29015" class="LineNr">29015 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> -<span id="L29016" class="LineNr">29016 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29017" class="LineNr">29017 </span> { -<span id="L29018" class="LineNr">29018 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L29019" class="LineNr">29019 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L29020" class="LineNr">29020 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29021" class="LineNr">29021 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29022" class="LineNr">29022 </span> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 -<span id="L29023" class="LineNr">29023 </span> } -<span id="L29024" class="LineNr">29024 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> -<span id="L29025" class="LineNr">29025 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L29026" class="LineNr">29026 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebx+0x14)) <span class="subxComment"># Var-offset</span> -<span id="L29027" class="LineNr">29027 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L29028" class="LineNr">29028 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: -<span id="L29029" class="LineNr">29029 </span> <span class="subxComment"># " \"" function-name "\""</span> -<span id="L29030" class="LineNr">29030 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L29031" class="LineNr">29031 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L29032" class="LineNr">29032 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L29033" class="LineNr">29033 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29034" class="LineNr">29034 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") -<span id="L29035" class="LineNr">29035 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: -<span id="L29036" class="LineNr">29036 </span> <span class="subxComment"># " \"" base->name "\""</span> -<span id="L29037" class="LineNr">29037 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") -<span id="L29038" class="LineNr">29038 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29039" class="LineNr">29039 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29040" class="LineNr">29040 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") -<span id="L29041" class="LineNr">29041 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: -<span id="L29042" class="LineNr">29042 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29043" class="LineNr">29043 </span> 5b/pop-to-ebx -<span id="L29044" class="LineNr">29044 </span> 5a/pop-to-edx -<span id="L29045" class="LineNr">29045 </span> 59/pop-to-ecx -<span id="L29046" class="LineNr">29046 </span> 58/pop-to-eax -<span id="L29047" class="LineNr">29047 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29048" class="LineNr">29048 </span> 89/<- %esp 5/r32/ebp -<span id="L29049" class="LineNr">29049 </span> 5d/pop-to-ebp -<span id="L29050" class="LineNr">29050 </span> c3/return -<span id="L29051" class="LineNr">29051 </span> -<span id="L29052" class="LineNr">29052 </span><span class="subxFunction">translate-mu-index-stmt-with-array-in-register</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29053" class="LineNr">29053 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29054" class="LineNr">29054 </span> 55/push-ebp -<span id="L29055" class="LineNr">29055 </span> 89/<- %ebp 4/r32/esp -<span id="L29056" class="LineNr">29056 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29057" class="LineNr">29057 </span> 50/push-eax -<span id="L29058" class="LineNr">29058 </span> 51/push-ecx -<span id="L29059" class="LineNr">29059 </span> 52/push-edx -<span id="L29060" class="LineNr">29060 </span> 53/push-ebx -<span id="L29061" class="LineNr">29061 </span> <span class="subxComment">#</span> -<span id="L29062" class="LineNr">29062 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29063" class="LineNr">29063 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) -<span id="L29064" class="LineNr">29064 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> -<span id="L29065" class="LineNr">29065 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: -<span id="L29066" class="LineNr">29066 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29067" class="LineNr">29067 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29068" class="LineNr">29068 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> -<span id="L29069" class="LineNr">29069 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29070" class="LineNr">29070 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29071" class="LineNr">29071 </span> 89/<- %ebx 0/r32/eax -<span id="L29072" class="LineNr">29072 </span> <span class="subxComment"># print base->register " + "</span> -<span id="L29073" class="LineNr">29073 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29074" class="LineNr">29074 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29075" class="LineNr">29075 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29076" class="LineNr">29076 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> -<span id="L29077" class="LineNr">29077 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29078" class="LineNr">29078 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29079" class="LineNr">29079 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29080" class="LineNr">29080 </span> 89/<- %edx 0/r32/eax -<span id="L29081" class="LineNr">29081 </span> <span class="subxComment"># if index->register</span> -<span id="L29082" class="LineNr">29082 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29083" class="LineNr">29083 </span> { -<span id="L29084" class="LineNr">29084 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29085" class="LineNr">29085 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: -<span id="L29086" class="LineNr">29086 </span> <span class="subxComment"># if index is an int</span> -<span id="L29087" class="LineNr">29087 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29088" class="LineNr">29088 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29089" class="LineNr">29089 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29090" class="LineNr">29090 </span> { -<span id="L29091" class="LineNr">29091 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29092" class="LineNr">29092 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: -<span id="L29093" class="LineNr">29093 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> -<span id="L29094" class="LineNr">29094 </span> <span class="subxS1Comment"># . index->register "<<"</span> -<span id="L29095" class="LineNr">29095 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29096" class="LineNr">29096 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29097" class="LineNr">29097 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L29098" class="LineNr">29098 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> -<span id="L29099" class="LineNr">29099 </span> <span class="subxComment"># we know size is a power of 2</span> -<span id="L29100" class="LineNr">29100 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29101" class="LineNr">29101 </span> (<a href='mu.subx.html#L29815'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29102" class="LineNr">29102 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29103" class="LineNr">29103 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 -<span id="L29104" class="LineNr">29104 </span> } -<span id="L29105" class="LineNr">29105 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L29106" class="LineNr">29106 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29107" class="LineNr">29107 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29108" class="LineNr">29108 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L29109" class="LineNr">29109 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L29110" class="LineNr">29110 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29111" class="LineNr">29111 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29112" class="LineNr">29112 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29113" class="LineNr">29113 </span> { -<span id="L29114" class="LineNr">29114 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29115" class="LineNr">29115 </span> <span class="subxComment"># print index->register</span> -<span id="L29116" class="LineNr">29116 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: -<span id="L29117" class="LineNr">29117 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29118" class="LineNr">29118 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29119" class="LineNr">29119 </span> } -<span id="L29120" class="LineNr">29120 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: -<span id="L29121" class="LineNr">29121 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) -<span id="L29122" class="LineNr">29122 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L29123" class="LineNr">29123 </span> } -<span id="L29124" class="LineNr">29124 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L29125" class="LineNr">29125 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29126" class="LineNr">29126 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29127" class="LineNr">29127 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29128" class="LineNr">29128 </span> { -<span id="L29129" class="LineNr">29129 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29130" class="LineNr">29130 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: -<span id="L29131" class="LineNr">29131 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> -<span id="L29132" class="LineNr">29132 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29133" class="LineNr">29133 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29134" class="LineNr">29134 </span> 89/<- %edx 0/r32/eax -<span id="L29135" class="LineNr">29135 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> -<span id="L29136" class="LineNr">29136 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29137" class="LineNr">29137 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L29138" class="LineNr">29138 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L29139" class="LineNr">29139 </span> 05/add-to-eax 4/imm32 -<span id="L29140" class="LineNr">29140 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L29141" class="LineNr">29141 </span> <span class="subxComment"># print offset</span> -<span id="L29142" class="LineNr">29142 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29143" class="LineNr">29143 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29144" class="LineNr">29144 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 -<span id="L29145" class="LineNr">29145 </span> } -<span id="L29146" class="LineNr">29146 </span> <span class="subxComment"># otherwise abort</span> -<span id="L29147" class="LineNr">29147 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L29148" class="LineNr">29148 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: -<span id="L29149" class="LineNr">29149 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29150" class="LineNr">29150 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29151" class="LineNr">29151 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29152" class="LineNr">29152 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29153" class="LineNr">29153 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29154" class="LineNr">29154 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29155" class="LineNr">29155 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29156" class="LineNr">29156 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29157" class="LineNr">29157 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: -<span id="L29158" class="LineNr">29158 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29159" class="LineNr">29159 </span> 5b/pop-to-ebx -<span id="L29160" class="LineNr">29160 </span> 5a/pop-to-edx -<span id="L29161" class="LineNr">29161 </span> 59/pop-to-ecx -<span id="L29162" class="LineNr">29162 </span> 58/pop-to-eax -<span id="L29163" class="LineNr">29163 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29164" class="LineNr">29164 </span> 89/<- %esp 5/r32/ebp -<span id="L29165" class="LineNr">29165 </span> 5d/pop-to-ebp -<span id="L29166" class="LineNr">29166 </span> c3/return -<span id="L29167" class="LineNr">29167 </span> -<span id="L29168" class="LineNr">29168 </span><span class="subxFunction">translate-mu-index-stmt-with-array-on-stack</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29169" class="LineNr">29169 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29170" class="LineNr">29170 </span> 55/push-ebp -<span id="L29171" class="LineNr">29171 </span> 89/<- %ebp 4/r32/esp -<span id="L29172" class="LineNr">29172 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29173" class="LineNr">29173 </span> 50/push-eax -<span id="L29174" class="LineNr">29174 </span> 51/push-ecx -<span id="L29175" class="LineNr">29175 </span> 52/push-edx -<span id="L29176" class="LineNr">29176 </span> 53/push-ebx -<span id="L29177" class="LineNr">29177 </span> <span class="subxComment">#</span> -<span id="L29178" class="LineNr">29178 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29179" class="LineNr">29179 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) -<span id="L29180" class="LineNr">29180 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L29181" class="LineNr">29181 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29182" class="LineNr">29182 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29183" class="LineNr">29183 </span> 89/<- %edx 0/r32/eax -<span id="L29184" class="LineNr">29184 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> -<span id="L29185" class="LineNr">29185 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29186" class="LineNr">29186 </span> 89/<- %ecx 0/r32/eax -<span id="L29187" class="LineNr">29187 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> -<span id="L29188" class="LineNr">29188 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29189" class="LineNr">29189 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> -<span id="L29190" class="LineNr">29190 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29191" class="LineNr">29191 </span> 89/<- %edx 0/r32/eax -<span id="L29192" class="LineNr">29192 </span> <span class="subxComment"># if index->register</span> -<span id="L29193" class="LineNr">29193 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29194" class="LineNr">29194 </span> { -<span id="L29195" class="LineNr">29195 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29196" class="LineNr">29196 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: -<span id="L29197" class="LineNr">29197 </span> <span class="subxComment"># if index is an int</span> -<span id="L29198" class="LineNr">29198 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29199" class="LineNr">29199 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> -<span id="L29200" class="LineNr">29200 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29201" class="LineNr">29201 </span> { -<span id="L29202" class="LineNr">29202 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29203" class="LineNr">29203 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: -<span id="L29204" class="LineNr">29204 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> -<span id="L29205" class="LineNr">29205 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> -<span id="L29206" class="LineNr">29206 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29207" class="LineNr">29207 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29208" class="LineNr">29208 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) -<span id="L29209" class="LineNr">29209 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> -<span id="L29210" class="LineNr">29210 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> -<span id="L29211" class="LineNr">29211 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29212" class="LineNr">29212 </span> (<a href='mu.subx.html#L29815'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> -<span id="L29213" class="LineNr">29213 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29214" class="LineNr">29214 </span> <span class="subxComment">#</span> -<span id="L29215" class="LineNr">29215 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29216" class="LineNr">29216 </span> <span class="subxComment">#</span> -<span id="L29217" class="LineNr">29217 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L29218" class="LineNr">29218 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> -<span id="L29219" class="LineNr">29219 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29220" class="LineNr">29220 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 -<span id="L29221" class="LineNr">29221 </span> } -<span id="L29222" class="LineNr">29222 </span> <span class="subxComment"># if index->type is any other atom, abort</span> -<span id="L29223" class="LineNr">29223 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29224" class="LineNr">29224 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L29225" class="LineNr">29225 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 -<span id="L29226" class="LineNr">29226 </span> <span class="subxComment"># if index has type (offset ...)</span> -<span id="L29227" class="LineNr">29227 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29228" class="LineNr">29228 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> -<span id="L29229" class="LineNr">29229 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29230" class="LineNr">29230 </span> { -<span id="L29231" class="LineNr">29231 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29232" class="LineNr">29232 </span> <span class="subxComment"># print index->register</span> -<span id="L29233" class="LineNr">29233 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: -<span id="L29234" class="LineNr">29234 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29235" class="LineNr">29235 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29236" class="LineNr">29236 </span> } -<span id="L29237" class="LineNr">29237 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: -<span id="L29238" class="LineNr">29238 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29239" class="LineNr">29239 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L29240" class="LineNr">29240 </span> } -<span id="L29241" class="LineNr">29241 </span> <span class="subxComment"># otherwise if index is a literal</span> -<span id="L29242" class="LineNr">29242 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29243" class="LineNr">29243 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> -<span id="L29244" class="LineNr">29244 </span> 3d/compare-eax-and 0/imm32/false -<span id="L29245" class="LineNr">29245 </span> { -<span id="L29246" class="LineNr">29246 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29247" class="LineNr">29247 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: -<span id="L29248" class="LineNr">29248 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> -<span id="L29249" class="LineNr">29249 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29250" class="LineNr">29250 </span> (<a href='../118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> -<span id="L29251" class="LineNr">29251 </span> 89/<- %edx 0/r32/eax -<span id="L29252" class="LineNr">29252 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> -<span id="L29253" class="LineNr">29253 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29254" class="LineNr">29254 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> -<span id="L29255" class="LineNr">29255 </span> <span class="subxComment"># offset += base->offset</span> -<span id="L29256" class="LineNr">29256 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L29257" class="LineNr">29257 </span> <span class="subxComment"># offset += 4 for array size</span> -<span id="L29258" class="LineNr">29258 </span> 05/add-to-eax 4/imm32 -<span id="L29259" class="LineNr">29259 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L29260" class="LineNr">29260 </span> <span class="subxComment"># print offset</span> -<span id="L29261" class="LineNr">29261 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29262" class="LineNr">29262 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29263" class="LineNr">29263 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 -<span id="L29264" class="LineNr">29264 </span> } -<span id="L29265" class="LineNr">29265 </span> <span class="subxComment"># otherwise abort</span> -<span id="L29266" class="LineNr">29266 </span> e9/jump $translate-mu-index-stmt:error1/disp32 -<span id="L29267" class="LineNr">29267 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: -<span id="L29268" class="LineNr">29268 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29269" class="LineNr">29269 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29270" class="LineNr">29270 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29271" class="LineNr">29271 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29272" class="LineNr">29272 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29273" class="LineNr">29273 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29274" class="LineNr">29274 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29275" class="LineNr">29275 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29276" class="LineNr">29276 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: -<span id="L29277" class="LineNr">29277 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29278" class="LineNr">29278 </span> 5b/pop-to-ebx -<span id="L29279" class="LineNr">29279 </span> 5a/pop-to-edx -<span id="L29280" class="LineNr">29280 </span> 59/pop-to-ecx -<span id="L29281" class="LineNr">29281 </span> 58/pop-to-eax -<span id="L29282" class="LineNr">29282 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29283" class="LineNr">29283 </span> 89/<- %esp 5/r32/ebp -<span id="L29284" class="LineNr">29284 </span> 5d/pop-to-ebp -<span id="L29285" class="LineNr">29285 </span> c3/return -<span id="L29286" class="LineNr">29286 </span> -<span id="L29287" class="LineNr">29287 </span><span class="subxFunction">translate-mu-compute-index-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29288" class="LineNr">29288 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29289" class="LineNr">29289 </span> 55/push-ebp -<span id="L29290" class="LineNr">29290 </span> 89/<- %ebp 4/r32/esp -<span id="L29291" class="LineNr">29291 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29292" class="LineNr">29292 </span> 50/push-eax -<span id="L29293" class="LineNr">29293 </span> 51/push-ecx -<span id="L29294" class="LineNr">29294 </span> 52/push-edx -<span id="L29295" class="LineNr">29295 </span> 53/push-ebx -<span id="L29296" class="LineNr">29296 </span> <span class="subxComment">#</span> -<span id="L29297" class="LineNr">29297 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29298" class="LineNr">29298 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) -<span id="L29299" class="LineNr">29299 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29300" class="LineNr">29300 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29301" class="LineNr">29301 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29302" class="LineNr">29302 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29303" class="LineNr">29303 </span> 89/<- %ebx 0/r32/eax -<span id="L29304" class="LineNr">29304 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: -<span id="L29305" class="LineNr">29305 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29306" class="LineNr">29306 </span> (<a href='mu.subx.html#L35002'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L29307" class="LineNr">29307 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L29308" class="LineNr">29308 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: -<span id="L29309" class="LineNr">29309 </span> <span class="subxComment"># var base/ebx: (addr var)</span> -<span id="L29310" class="LineNr">29310 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29311" class="LineNr">29311 </span> 89/<- %ebx 0/r32/eax -<span id="L29312" class="LineNr">29312 </span> <span class="subxComment"># print array-element-size(base)</span> -<span id="L29313" class="LineNr">29313 </span> (<a href='mu.subx.html#L28636'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29314" class="LineNr">29314 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29315" class="LineNr">29315 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) -<span id="L29316" class="LineNr">29316 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: -<span id="L29317" class="LineNr">29317 </span> <span class="subxComment"># outputs[0] "/r32"</span> -<span id="L29318" class="LineNr">29318 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29319" class="LineNr">29319 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29320" class="LineNr">29320 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29321" class="LineNr">29321 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29322" class="LineNr">29322 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29323" class="LineNr">29323 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29324" class="LineNr">29324 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: -<span id="L29325" class="LineNr">29325 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29326" class="LineNr">29326 </span> 5b/pop-to-ebx -<span id="L29327" class="LineNr">29327 </span> 5a/pop-to-edx -<span id="L29328" class="LineNr">29328 </span> 59/pop-to-ecx -<span id="L29329" class="LineNr">29329 </span> 58/pop-to-eax -<span id="L29330" class="LineNr">29330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29331" class="LineNr">29331 </span> 89/<- %esp 5/r32/ebp -<span id="L29332" class="LineNr">29332 </span> 5d/pop-to-ebp -<span id="L29333" class="LineNr">29333 </span> c3/return -<span id="L29334" class="LineNr">29334 </span> -<span id="L29335" class="LineNr">29335 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L29336" class="LineNr">29336 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29337" class="LineNr">29337 </span> 55/push-ebp -<span id="L29338" class="LineNr">29338 </span> 89/<- %ebp 4/r32/esp -<span id="L29339" class="LineNr">29339 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29340" class="LineNr">29340 </span> 50/push-eax -<span id="L29341" class="LineNr">29341 </span> 51/push-ecx -<span id="L29342" class="LineNr">29342 </span> 52/push-edx -<span id="L29343" class="LineNr">29343 </span> <span class="subxComment">#</span> -<span id="L29344" class="LineNr">29344 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29345" class="LineNr">29345 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) -<span id="L29346" class="LineNr">29346 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L29347" class="LineNr">29347 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L29348" class="LineNr">29348 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> -<span id="L29349" class="LineNr">29349 </span> (<a href='mu.subx.html#L29842'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L29350" class="LineNr">29350 </span> 89/<- %edx 0/r32/eax -<span id="L29351" class="LineNr">29351 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> -<span id="L29352" class="LineNr">29352 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29353" class="LineNr">29353 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29354" class="LineNr">29354 </span> <span class="subxComment"># if base is in a register</span> -<span id="L29355" class="LineNr">29355 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L29356" class="LineNr">29356 </span> { -<span id="L29357" class="LineNr">29357 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29358" class="LineNr">29358 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: -<span id="L29359" class="LineNr">29359 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> -<span id="L29360" class="LineNr">29360 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) -<span id="L29361" class="LineNr">29361 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29362" class="LineNr">29362 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29363" class="LineNr">29363 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) -<span id="L29364" class="LineNr">29364 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L29365" class="LineNr">29365 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29366" class="LineNr">29366 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 -<span id="L29367" class="LineNr">29367 </span> } -<span id="L29368" class="LineNr">29368 </span> <span class="subxComment"># otherwise base is on the stack</span> -<span id="L29369" class="LineNr">29369 </span> { -<span id="L29370" class="LineNr">29370 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: -<span id="L29371" class="LineNr">29371 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> -<span id="L29372" class="LineNr">29372 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L29373" class="LineNr">29373 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> -<span id="L29374" class="LineNr">29374 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) -<span id="L29375" class="LineNr">29375 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) -<span id="L29376" class="LineNr">29376 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 -<span id="L29377" class="LineNr">29377 </span> } -<span id="L29378" class="LineNr">29378 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: -<span id="L29379" class="LineNr">29379 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> -<span id="L29380" class="LineNr">29380 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L29381" class="LineNr">29381 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29382" class="LineNr">29382 </span> <span class="subxComment"># emit offset->register "/r32"</span> -<span id="L29383" class="LineNr">29383 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L29384" class="LineNr">29384 </span> (<a href='../131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> -<span id="L29385" class="LineNr">29385 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L29386" class="LineNr">29386 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) -<span id="L29387" class="LineNr">29387 </span><span class="Constant">$translate-mu-get-stmt:end</span>: -<span id="L29388" class="LineNr">29388 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29389" class="LineNr">29389 </span> 5a/pop-to-edx -<span id="L29390" class="LineNr">29390 </span> 59/pop-to-ecx -<span id="L29391" class="LineNr">29391 </span> 58/pop-to-eax -<span id="L29392" class="LineNr">29392 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29393" class="LineNr">29393 </span> 89/<- %esp 5/r32/ebp -<span id="L29394" class="LineNr">29394 </span> 5d/pop-to-ebp -<span id="L29395" class="LineNr">29395 </span> c3/return -<span id="L29396" class="LineNr">29396 </span> -<span id="L29397" class="LineNr">29397 </span><span class="subxFunction">translate-mu-copy-object-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29398" class="LineNr">29398 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29399" class="LineNr">29399 </span> 55/push-ebp -<span id="L29400" class="LineNr">29400 </span> 89/<- %ebp 4/r32/esp -<span id="L29401" class="LineNr">29401 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29402" class="LineNr">29402 </span> 50/push-eax -<span id="L29403" class="LineNr">29403 </span> <span class="subxComment">#</span> -<span id="L29404" class="LineNr">29404 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29405" class="LineNr">29405 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) -<span id="L29406" class="LineNr">29406 </span> <span class="subxComment"># eax = stmt</span> -<span id="L29407" class="LineNr">29407 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29408" class="LineNr">29408 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29409" class="LineNr">29409 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29410" class="LineNr">29410 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29411" class="LineNr">29411 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29412" class="LineNr">29412 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29413" class="LineNr">29413 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29414" class="LineNr">29414 </span> <span class="subxComment"># emit size of inouts</span> -<span id="L29415" class="LineNr">29415 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L29416" class="LineNr">29416 </span> (<a href='mu.subx.html#L29520'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29417" class="LineNr">29417 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29418" class="LineNr">29418 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29419" class="LineNr">29419 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: -<span id="L29420" class="LineNr">29420 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29421" class="LineNr">29421 </span> 58/pop-to-eax -<span id="L29422" class="LineNr">29422 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29423" class="LineNr">29423 </span> 89/<- %esp 5/r32/ebp -<span id="L29424" class="LineNr">29424 </span> 5d/pop-to-ebp -<span id="L29425" class="LineNr">29425 </span> c3/return -<span id="L29426" class="LineNr">29426 </span> -<span id="L29427" class="LineNr">29427 </span><span class="subxFunction">translate-mu-clear-object-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29428" class="LineNr">29428 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29429" class="LineNr">29429 </span> 55/push-ebp -<span id="L29430" class="LineNr">29430 </span> 89/<- %ebp 4/r32/esp -<span id="L29431" class="LineNr">29431 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29432" class="LineNr">29432 </span> 50/push-eax -<span id="L29433" class="LineNr">29433 </span> <span class="subxComment">#</span> -<span id="L29434" class="LineNr">29434 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29435" class="LineNr">29435 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) -<span id="L29436" class="LineNr">29436 </span> <span class="subxComment"># eax = stmt</span> -<span id="L29437" class="LineNr">29437 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L29438" class="LineNr">29438 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29439" class="LineNr">29439 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29440" class="LineNr">29440 </span> <span class="subxComment">#</span> -<span id="L29441" class="LineNr">29441 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L29442" class="LineNr">29442 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L29443" class="LineNr">29443 </span> (<a href='mu.subx.html#L29520'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29444" class="LineNr">29444 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29445" class="LineNr">29445 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29446" class="LineNr">29446 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: -<span id="L29447" class="LineNr">29447 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29448" class="LineNr">29448 </span> 58/pop-to-eax -<span id="L29449" class="LineNr">29449 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29450" class="LineNr">29450 </span> 89/<- %esp 5/r32/ebp -<span id="L29451" class="LineNr">29451 </span> 5d/pop-to-ebp -<span id="L29452" class="LineNr">29452 </span> c3/return -<span id="L29453" class="LineNr">29453 </span> -<span id="L29454" class="LineNr">29454 </span><span class="subxFunction">translate-mu-allocate-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29455" class="LineNr">29455 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29456" class="LineNr">29456 </span> 55/push-ebp -<span id="L29457" class="LineNr">29457 </span> 89/<- %ebp 4/r32/esp -<span id="L29458" class="LineNr">29458 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29459" class="LineNr">29459 </span> 50/push-eax -<span id="L29460" class="LineNr">29460 </span> 56/push-esi -<span id="L29461" class="LineNr">29461 </span> 57/push-edi -<span id="L29462" class="LineNr">29462 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29463" class="LineNr">29463 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29464" class="LineNr">29464 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29465" class="LineNr">29465 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29466" class="LineNr">29466 </span> 89/<- %edi 0/r32/eax -<span id="L29467" class="LineNr">29467 </span> <span class="subxComment">#</span> -<span id="L29468" class="LineNr">29468 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29469" class="LineNr">29469 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='../120allocate.subx.html#L66'>allocate</a> <a href='../120allocate.subx.html#L27'>Heap</a> "</span>) -<span id="L29470" class="LineNr">29470 </span> (<a href='mu.subx.html#L29484'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29471" class="LineNr">29471 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29472" class="LineNr">29472 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29473" class="LineNr">29473 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29474" class="LineNr">29474 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: -<span id="L29475" class="LineNr">29475 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29476" class="LineNr">29476 </span> 5f/pop-to-edi -<span id="L29477" class="LineNr">29477 </span> 5e/pop-to-esi -<span id="L29478" class="LineNr">29478 </span> 58/pop-to-eax -<span id="L29479" class="LineNr">29479 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29480" class="LineNr">29480 </span> 89/<- %esp 5/r32/ebp -<span id="L29481" class="LineNr">29481 </span> 5d/pop-to-ebp -<span id="L29482" class="LineNr">29482 </span> c3/return -<span id="L29483" class="LineNr">29483 </span> -<span id="L29484" class="LineNr">29484 </span><span class="subxFunction">addr-handle-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> -<span id="L29485" class="LineNr">29485 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29486" class="LineNr">29486 </span> 55/push-ebp -<span id="L29487" class="LineNr">29487 </span> 89/<- %ebp 4/r32/esp -<span id="L29488" class="LineNr">29488 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L29489" class="LineNr">29489 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29490" class="LineNr">29490 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29491" class="LineNr">29491 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29492" class="LineNr">29492 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29493" class="LineNr">29493 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29494" class="LineNr">29494 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L29495" class="LineNr">29495 </span> <span class="subxComment"># t = t->right</span> -<span id="L29496" class="LineNr">29496 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: -<span id="L29497" class="LineNr">29497 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29498" class="LineNr">29498 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29499" class="LineNr">29499 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29500" class="LineNr">29500 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L29501" class="LineNr">29501 </span> <span class="subxComment"># t = t->right</span> -<span id="L29502" class="LineNr">29502 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: -<span id="L29503" class="LineNr">29503 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29504" class="LineNr">29504 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29505" class="LineNr">29505 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L29506" class="LineNr">29506 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L29507" class="LineNr">29507 </span> { -<span id="L29508" class="LineNr">29508 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29509" class="LineNr">29509 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29510" class="LineNr">29510 </span> } -<span id="L29511" class="LineNr">29511 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L29512" class="LineNr">29512 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L29513" class="LineNr">29513 </span> (<a href='mu.subx.html#L26544'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L29514" class="LineNr">29514 </span><span class="Constant">$addr-handle-payload-size:end</span>: -<span id="L29515" class="LineNr">29515 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29516" class="LineNr">29516 </span> 89/<- %esp 5/r32/ebp -<span id="L29517" class="LineNr">29517 </span> 5d/pop-to-ebp -<span id="L29518" class="LineNr">29518 </span> c3/return -<span id="L29519" class="LineNr">29519 </span> -<span id="L29520" class="LineNr">29520 </span><span class="subxFunction">addr-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> -<span id="L29521" class="LineNr">29521 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29522" class="LineNr">29522 </span> 55/push-ebp -<span id="L29523" class="LineNr">29523 </span> 89/<- %ebp 4/r32/esp -<span id="L29524" class="LineNr">29524 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L29525" class="LineNr">29525 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29526" class="LineNr">29526 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29527" class="LineNr">29527 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29528" class="LineNr">29528 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29529" class="LineNr">29529 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29530" class="LineNr">29530 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L29531" class="LineNr">29531 </span> <span class="subxComment"># t = t->right</span> -<span id="L29532" class="LineNr">29532 </span><span class="Constant">$addr-payload-size:skip-addr</span>: -<span id="L29533" class="LineNr">29533 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29534" class="LineNr">29534 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29535" class="LineNr">29535 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L29536" class="LineNr">29536 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L29537" class="LineNr">29537 </span> { -<span id="L29538" class="LineNr">29538 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29539" class="LineNr">29539 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29540" class="LineNr">29540 </span> } -<span id="L29541" class="LineNr">29541 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L29542" class="LineNr">29542 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L29543" class="LineNr">29543 </span> (<a href='mu.subx.html#L26544'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L29544" class="LineNr">29544 </span><span class="Constant">$addr-payload-size:end</span>: -<span id="L29545" class="LineNr">29545 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29546" class="LineNr">29546 </span> 89/<- %esp 5/r32/ebp -<span id="L29547" class="LineNr">29547 </span> 5d/pop-to-ebp -<span id="L29548" class="LineNr">29548 </span> c3/return -<span id="L29549" class="LineNr">29549 </span> -<span id="L29550" class="LineNr">29550 </span><span class="subxFunction">translate-mu-populate-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29551" class="LineNr">29551 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29552" class="LineNr">29552 </span> 55/push-ebp -<span id="L29553" class="LineNr">29553 </span> 89/<- %ebp 4/r32/esp -<span id="L29554" class="LineNr">29554 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29555" class="LineNr">29555 </span> 50/push-eax -<span id="L29556" class="LineNr">29556 </span> 51/push-ecx -<span id="L29557" class="LineNr">29557 </span> 56/push-esi -<span id="L29558" class="LineNr">29558 </span> 57/push-edi -<span id="L29559" class="LineNr">29559 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29560" class="LineNr">29560 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29561" class="LineNr">29561 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29562" class="LineNr">29562 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29563" class="LineNr">29563 </span> 89/<- %edi 0/r32/eax -<span id="L29564" class="LineNr">29564 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29565" class="LineNr">29565 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29566" class="LineNr">29566 </span> 89/<- %ecx 0/r32/eax -<span id="L29567" class="LineNr">29567 </span> <span class="subxComment">#</span> -<span id="L29568" class="LineNr">29568 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29569" class="LineNr">29569 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='../308allocate-array.subx.html#L6'>allocate-array2</a> <a href='../120allocate.subx.html#L27'>Heap</a> "</span>) -<span id="L29570" class="LineNr">29570 </span> (<a href='mu.subx.html#L29699'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29571" class="LineNr">29571 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29572" class="LineNr">29572 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L29573" class="LineNr">29573 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29574" class="LineNr">29574 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29575" class="LineNr">29575 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: -<span id="L29576" class="LineNr">29576 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29577" class="LineNr">29577 </span> 5f/pop-to-edi -<span id="L29578" class="LineNr">29578 </span> 5e/pop-to-esi -<span id="L29579" class="LineNr">29579 </span> 59/pop-to-ecx -<span id="L29580" class="LineNr">29580 </span> 58/pop-to-eax -<span id="L29581" class="LineNr">29581 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29582" class="LineNr">29582 </span> 89/<- %esp 5/r32/ebp -<span id="L29583" class="LineNr">29583 </span> 5d/pop-to-ebp -<span id="L29584" class="LineNr">29584 </span> c3/return -<span id="L29585" class="LineNr">29585 </span> -<span id="L29586" class="LineNr">29586 </span><span class="subxFunction">translate-mu-populate-stream-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29587" class="LineNr">29587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29588" class="LineNr">29588 </span> 55/push-ebp -<span id="L29589" class="LineNr">29589 </span> 89/<- %ebp 4/r32/esp -<span id="L29590" class="LineNr">29590 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29591" class="LineNr">29591 </span> 50/push-eax -<span id="L29592" class="LineNr">29592 </span> 51/push-ecx -<span id="L29593" class="LineNr">29593 </span> 56/push-esi -<span id="L29594" class="LineNr">29594 </span> 57/push-edi -<span id="L29595" class="LineNr">29595 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29596" class="LineNr">29596 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29597" class="LineNr">29597 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29598" class="LineNr">29598 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29599" class="LineNr">29599 </span> 89/<- %edi 0/r32/eax -<span id="L29600" class="LineNr">29600 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29601" class="LineNr">29601 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29602" class="LineNr">29602 </span> 89/<- %ecx 0/r32/eax -<span id="L29603" class="LineNr">29603 </span> <span class="subxComment">#</span> -<span id="L29604" class="LineNr">29604 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29605" class="LineNr">29605 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='../121new-stream.subx.html#L8'>new-stream</a> <a href='../120allocate.subx.html#L27'>Heap</a> "</span>) -<span id="L29606" class="LineNr">29606 </span> (<a href='mu.subx.html#L29742'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29607" class="LineNr">29607 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29608" class="LineNr">29608 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L29609" class="LineNr">29609 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29610" class="LineNr">29610 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29611" class="LineNr">29611 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: -<span id="L29612" class="LineNr">29612 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29613" class="LineNr">29613 </span> 5f/pop-to-edi -<span id="L29614" class="LineNr">29614 </span> 5e/pop-to-esi -<span id="L29615" class="LineNr">29615 </span> 59/pop-to-ecx -<span id="L29616" class="LineNr">29616 </span> 58/pop-to-eax -<span id="L29617" class="LineNr">29617 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29618" class="LineNr">29618 </span> 89/<- %esp 5/r32/ebp -<span id="L29619" class="LineNr">29619 </span> 5d/pop-to-ebp -<span id="L29620" class="LineNr">29620 </span> c3/return -<span id="L29621" class="LineNr">29621 </span> -<span id="L29622" class="LineNr">29622 </span><span class="subxFunction">translate-mu-read-from-stream-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29623" class="LineNr">29623 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29624" class="LineNr">29624 </span> 55/push-ebp -<span id="L29625" class="LineNr">29625 </span> 89/<- %ebp 4/r32/esp -<span id="L29626" class="LineNr">29626 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29627" class="LineNr">29627 </span> 50/push-eax -<span id="L29628" class="LineNr">29628 </span> 51/push-ecx -<span id="L29629" class="LineNr">29629 </span> 56/push-esi -<span id="L29630" class="LineNr">29630 </span> 57/push-edi -<span id="L29631" class="LineNr">29631 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29632" class="LineNr">29632 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29633" class="LineNr">29633 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29634" class="LineNr">29634 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29635" class="LineNr">29635 </span> 89/<- %ecx 0/r32/eax -<span id="L29636" class="LineNr">29636 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29637" class="LineNr">29637 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29638" class="LineNr">29638 </span> 89/<- %edi 0/r32/eax -<span id="L29639" class="LineNr">29639 </span> <span class="subxComment">#</span> -<span id="L29640" class="LineNr">29640 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29641" class="LineNr">29641 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) -<span id="L29642" class="LineNr">29642 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L29643" class="LineNr">29643 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29644" class="LineNr">29644 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L29645" class="LineNr">29645 </span> (<a href='mu.subx.html#L29520'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29646" class="LineNr">29646 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29647" class="LineNr">29647 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29648" class="LineNr">29648 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: -<span id="L29649" class="LineNr">29649 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29650" class="LineNr">29650 </span> 5f/pop-to-edi -<span id="L29651" class="LineNr">29651 </span> 5e/pop-to-esi -<span id="L29652" class="LineNr">29652 </span> 59/pop-to-ecx -<span id="L29653" class="LineNr">29653 </span> 58/pop-to-eax -<span id="L29654" class="LineNr">29654 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29655" class="LineNr">29655 </span> 89/<- %esp 5/r32/ebp -<span id="L29656" class="LineNr">29656 </span> 5d/pop-to-ebp -<span id="L29657" class="LineNr">29657 </span> c3/return -<span id="L29658" class="LineNr">29658 </span> -<span id="L29659" class="LineNr">29659 </span><span class="subxFunction">translate-mu-write-to-stream-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29660" class="LineNr">29660 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29661" class="LineNr">29661 </span> 55/push-ebp -<span id="L29662" class="LineNr">29662 </span> 89/<- %ebp 4/r32/esp -<span id="L29663" class="LineNr">29663 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29664" class="LineNr">29664 </span> 50/push-eax -<span id="L29665" class="LineNr">29665 </span> 51/push-ecx -<span id="L29666" class="LineNr">29666 </span> 56/push-esi -<span id="L29667" class="LineNr">29667 </span> 57/push-edi -<span id="L29668" class="LineNr">29668 </span> <span class="subxComment"># esi = stmt</span> -<span id="L29669" class="LineNr">29669 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29670" class="LineNr">29670 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> -<span id="L29671" class="LineNr">29671 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29672" class="LineNr">29672 </span> 89/<- %ecx 0/r32/eax -<span id="L29673" class="LineNr">29673 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> -<span id="L29674" class="LineNr">29674 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29675" class="LineNr">29675 </span> 89/<- %edi 0/r32/eax -<span id="L29676" class="LineNr">29676 </span> <span class="subxComment">#</span> -<span id="L29677" class="LineNr">29677 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29678" class="LineNr">29678 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) -<span id="L29679" class="LineNr">29679 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %ecx) -<span id="L29680" class="LineNr">29680 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L29681" class="LineNr">29681 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %edi) -<span id="L29682" class="LineNr">29682 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L29683" class="LineNr">29683 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L29684" class="LineNr">29684 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+8)) -<span id="L29685" class="LineNr">29685 </span> (<a href='mu.subx.html#L29520'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> -<span id="L29686" class="LineNr">29686 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L29687" class="LineNr">29687 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L29688" class="LineNr">29688 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: -<span id="L29689" class="LineNr">29689 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29690" class="LineNr">29690 </span> 5f/pop-to-edi -<span id="L29691" class="LineNr">29691 </span> 5e/pop-to-esi -<span id="L29692" class="LineNr">29692 </span> 59/pop-to-ecx -<span id="L29693" class="LineNr">29693 </span> 58/pop-to-eax -<span id="L29694" class="LineNr">29694 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29695" class="LineNr">29695 </span> 89/<- %esp 5/r32/ebp -<span id="L29696" class="LineNr">29696 </span> 5d/pop-to-ebp -<span id="L29697" class="LineNr">29697 </span> c3/return -<span id="L29698" class="LineNr">29698 </span> -<span id="L29699" class="LineNr">29699 </span><span class="subxFunction">addr-handle-array-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> -<span id="L29700" class="LineNr">29700 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29701" class="LineNr">29701 </span> 55/push-ebp -<span id="L29702" class="LineNr">29702 </span> 89/<- %ebp 4/r32/esp -<span id="L29703" class="LineNr">29703 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L29704" class="LineNr">29704 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29705" class="LineNr">29705 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29706" class="LineNr">29706 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29707" class="LineNr">29707 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29708" class="LineNr">29708 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29709" class="LineNr">29709 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L29710" class="LineNr">29710 </span> <span class="subxComment"># t = t->right</span> -<span id="L29711" class="LineNr">29711 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: -<span id="L29712" class="LineNr">29712 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29713" class="LineNr">29713 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29714" class="LineNr">29714 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29715" class="LineNr">29715 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L29716" class="LineNr">29716 </span> <span class="subxComment"># t = t->right</span> -<span id="L29717" class="LineNr">29717 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: -<span id="L29718" class="LineNr">29718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29719" class="LineNr">29719 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29720" class="LineNr">29720 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29721" class="LineNr">29721 </span> <span class="subxComment"># TODO: check t->left == array</span> -<span id="L29722" class="LineNr">29722 </span> <span class="subxComment"># t = t->right</span> -<span id="L29723" class="LineNr">29723 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: -<span id="L29724" class="LineNr">29724 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29725" class="LineNr">29725 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29726" class="LineNr">29726 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L29727" class="LineNr">29727 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L29728" class="LineNr">29728 </span> { -<span id="L29729" class="LineNr">29729 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29730" class="LineNr">29730 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29731" class="LineNr">29731 </span> } -<span id="L29732" class="LineNr">29732 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: -<span id="L29733" class="LineNr">29733 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L29734" class="LineNr">29734 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L29735" class="LineNr">29735 </span> (<a href='mu.subx.html#L28755'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L29736" class="LineNr">29736 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: -<span id="L29737" class="LineNr">29737 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29738" class="LineNr">29738 </span> 89/<- %esp 5/r32/ebp -<span id="L29739" class="LineNr">29739 </span> 5d/pop-to-ebp -<span id="L29740" class="LineNr">29740 </span> c3/return -<span id="L29741" class="LineNr">29741 </span> -<span id="L29742" class="LineNr">29742 </span><span class="subxFunction">addr-handle-stream-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> -<span id="L29743" class="LineNr">29743 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29744" class="LineNr">29744 </span> 55/push-ebp -<span id="L29745" class="LineNr">29745 </span> 89/<- %ebp 4/r32/esp -<span id="L29746" class="LineNr">29746 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> -<span id="L29747" class="LineNr">29747 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29748" class="LineNr">29748 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29749" class="LineNr">29749 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L29750" class="LineNr">29750 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29751" class="LineNr">29751 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29752" class="LineNr">29752 </span> <span class="subxComment"># TODO: check t->left == addr</span> -<span id="L29753" class="LineNr">29753 </span> <span class="subxComment"># t = t->right</span> -<span id="L29754" class="LineNr">29754 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: -<span id="L29755" class="LineNr">29755 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29756" class="LineNr">29756 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29757" class="LineNr">29757 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29758" class="LineNr">29758 </span> <span class="subxComment"># TODO: check t->left == handle</span> -<span id="L29759" class="LineNr">29759 </span> <span class="subxComment"># t = t->right</span> -<span id="L29760" class="LineNr">29760 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: -<span id="L29761" class="LineNr">29761 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29762" class="LineNr">29762 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29763" class="LineNr">29763 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> -<span id="L29764" class="LineNr">29764 </span> <span class="subxComment"># TODO: check t->left == stream</span> -<span id="L29765" class="LineNr">29765 </span> <span class="subxComment"># t = t->right</span> -<span id="L29766" class="LineNr">29766 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: -<span id="L29767" class="LineNr">29767 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L29768" class="LineNr">29768 </span> <span class="subxComment"># TODO: check eax != 0</span> -<span id="L29769" class="LineNr">29769 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> -<span id="L29770" class="LineNr">29770 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L29771" class="LineNr">29771 </span> { -<span id="L29772" class="LineNr">29772 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L29773" class="LineNr">29773 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L29774" class="LineNr">29774 </span> } -<span id="L29775" class="LineNr">29775 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: -<span id="L29776" class="LineNr">29776 </span> <span class="subxComment"># TODO: check t->is-atom?</span> -<span id="L29777" class="LineNr">29777 </span> <span class="subxComment"># return size(t->value)</span> -<span id="L29778" class="LineNr">29778 </span> (<a href='mu.subx.html#L28755'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> -<span id="L29779" class="LineNr">29779 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: -<span id="L29780" class="LineNr">29780 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29781" class="LineNr">29781 </span> 89/<- %esp 5/r32/ebp -<span id="L29782" class="LineNr">29782 </span> 5d/pop-to-ebp -<span id="L29783" class="LineNr">29783 </span> c3/return -<span id="L29784" class="LineNr">29784 </span> -<span id="L29785" class="LineNr">29785 </span><span class="subxFunction">power-of-2?</span>: <span class="subxComment"># n: int, err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: boolean</span> -<span id="L29786" class="LineNr">29786 </span> <span class="subxComment"># precondition: n is positive</span> -<span id="L29787" class="LineNr">29787 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29788" class="LineNr">29788 </span> 55/push-ebp -<span id="L29789" class="LineNr">29789 </span> 89/<- %ebp 4/r32/esp -<span id="L29790" class="LineNr">29790 </span> <span class="subxComment"># eax = n</span> -<span id="L29791" class="LineNr">29791 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29792" class="LineNr">29792 </span> <span class="subxComment"># if (n < 0) abort</span> -<span id="L29793" class="LineNr">29793 </span> 3d/compare-eax-with 0/imm32 -<span id="L29794" class="LineNr">29794 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 -<span id="L29795" class="LineNr">29795 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> -<span id="L29796" class="LineNr">29796 </span> 48/decrement-eax -<span id="L29797" class="LineNr">29797 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> -<span id="L29798" class="LineNr">29798 </span> 23/and-> *(ebp+8) 0/r32/eax -<span id="L29799" class="LineNr">29799 </span> <span class="subxComment"># return (tmp2 == 0)</span> -<span id="L29800" class="LineNr">29800 </span> 3d/compare-eax-and 0/imm32 -<span id="L29801" class="LineNr">29801 </span> 0f 94/set-byte-if-= %al -<span id="L29802" class="LineNr">29802 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L29803" class="LineNr">29803 </span><span class="Constant">$power-of-2?:end</span>: -<span id="L29804" class="LineNr">29804 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29805" class="LineNr">29805 </span> 89/<- %esp 5/r32/ebp -<span id="L29806" class="LineNr">29806 </span> 5d/pop-to-ebp -<span id="L29807" class="LineNr">29807 </span> c3/return -<span id="L29808" class="LineNr">29808 </span> -<span id="L29809" class="LineNr">29809 </span><span class="Constant">$power-of-2?:abort</span>: -<span id="L29810" class="LineNr">29810 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"power-of-2?: negative number\n"</span>) -<span id="L29811" class="LineNr">29811 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) -<span id="L29812" class="LineNr">29812 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) -<span id="L29813" class="LineNr">29813 </span> <span class="subxComment"># never gets here</span> -<span id="L29814" class="LineNr">29814 </span> -<span id="L29815" class="LineNr">29815 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> -<span id="L29816" class="LineNr">29816 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> -<span id="L29817" class="LineNr">29817 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29818" class="LineNr">29818 </span> 55/push-ebp -<span id="L29819" class="LineNr">29819 </span> 89/<- %ebp 4/r32/esp -<span id="L29820" class="LineNr">29820 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29821" class="LineNr">29821 </span> 51/push-ecx -<span id="L29822" class="LineNr">29822 </span> <span class="subxComment"># var curr/ecx: int = n</span> -<span id="L29823" class="LineNr">29823 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L29824" class="LineNr">29824 </span> <span class="subxComment"># result = 0</span> -<span id="L29825" class="LineNr">29825 </span> b8/copy-to-eax 0/imm32 -<span id="L29826" class="LineNr">29826 </span> { -<span id="L29827" class="LineNr">29827 </span> <span class="subxComment"># if (curr <= 1) break</span> -<span id="L29828" class="LineNr">29828 </span> 81 7/subop/compare %ecx 1/imm32 -<span id="L29829" class="LineNr">29829 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L29830" class="LineNr">29830 </span> 40/increment-eax -<span id="L29831" class="LineNr">29831 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 -<span id="L29832" class="LineNr">29832 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L29833" class="LineNr">29833 </span> } -<span id="L29834" class="LineNr">29834 </span><span class="Constant">$num-shift-rights:end</span>: -<span id="L29835" class="LineNr">29835 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29836" class="LineNr">29836 </span> 59/pop-to-ecx -<span id="L29837" class="LineNr">29837 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29838" class="LineNr">29838 </span> 89/<- %esp 5/r32/ebp -<span id="L29839" class="LineNr">29839 </span> 5d/pop-to-ebp -<span id="L29840" class="LineNr">29840 </span> c3/return -<span id="L29841" class="LineNr">29841 </span> -<span id="L29842" class="LineNr">29842 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> -<span id="L29843" class="LineNr">29843 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29844" class="LineNr">29844 </span> 55/push-ebp -<span id="L29845" class="LineNr">29845 </span> 89/<- %ebp 4/r32/esp -<span id="L29846" class="LineNr">29846 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> -<span id="L29847" class="LineNr">29847 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L29848" class="LineNr">29848 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L29849" class="LineNr">29849 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L29850" class="LineNr">29850 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> -<span id="L29851" class="LineNr">29851 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L29852" class="LineNr">29852 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> -<span id="L29853" class="LineNr">29853 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L29854" class="LineNr">29854 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> -<span id="L29855" class="LineNr">29855 </span><span class="CommentedCode">#? 50/push-eax</span> -<span id="L29856" class="LineNr">29856 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> -<span id="L29857" class="LineNr">29857 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L29858" class="LineNr">29858 </span><span class="CommentedCode">#? 58/pop-to-eax</span> -<span id="L29859" class="LineNr">29859 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L29860" class="LineNr">29860 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L29861" class="LineNr">29861 </span> <span class="subxComment"># return output-var->stack-offset</span> -<span id="L29862" class="LineNr">29862 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> -<span id="L29863" class="LineNr">29863 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> -<span id="L29864" class="LineNr">29864 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> -<span id="L29865" class="LineNr">29865 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L29866" class="LineNr">29866 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L29867" class="LineNr">29867 </span><span class="Constant">$emit-get-offset:end</span>: -<span id="L29868" class="LineNr">29868 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29869" class="LineNr">29869 </span> 89/<- %esp 5/r32/ebp -<span id="L29870" class="LineNr">29870 </span> 5d/pop-to-ebp -<span id="L29871" class="LineNr">29871 </span> c3/return -<span id="L29872" class="LineNr">29872 </span> -<span id="L29873" class="LineNr">29873 </span><span class="subxFunction">emit-subx-block</span>: <span class="subxComment"># out: (addr buffered-file), block: (addr block), vars: (addr stack live-var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L29874" class="LineNr">29874 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L29875" class="LineNr">29875 </span> 55/push-ebp -<span id="L29876" class="LineNr">29876 </span> 89/<- %ebp 4/r32/esp -<span id="L29877" class="LineNr">29877 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L29878" class="LineNr">29878 </span> 50/push-eax -<span id="L29879" class="LineNr">29879 </span> 51/push-ecx -<span id="L29880" class="LineNr">29880 </span> 56/push-esi -<span id="L29881" class="LineNr">29881 </span> <span class="subxComment"># esi = block</span> -<span id="L29882" class="LineNr">29882 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L29883" class="LineNr">29883 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> -<span id="L29884" class="LineNr">29884 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L29885" class="LineNr">29885 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 1/r32/ecx -<span id="L29886" class="LineNr">29886 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> -<span id="L29887" class="LineNr">29887 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> -<span id="L29888" class="LineNr">29888 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L29889" class="LineNr">29889 </span> <span class="subxComment">#</span> -<span id="L29890" class="LineNr">29890 </span> { -<span id="L29891" class="LineNr">29891 </span><span class="Constant">$emit-subx-block:check-empty</span>: -<span id="L29892" class="LineNr">29892 </span> 3d/compare-eax-and 0/imm32 -<span id="L29893" class="LineNr">29893 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L29894" class="LineNr">29894 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29895" class="LineNr">29895 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) -<span id="L29896" class="LineNr">29896 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> -<span id="L29897" class="LineNr">29897 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> -<span id="L29898" class="LineNr">29898 </span> 89/<- %ecx 0/r32/eax -<span id="L29899" class="LineNr">29899 </span> <span class="subxComment">#</span> -<span id="L29900" class="LineNr">29900 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29901" class="LineNr">29901 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29902" class="LineNr">29902 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) -<span id="L29903" class="LineNr">29903 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> -<span id="L29904" class="LineNr">29904 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> -<span id="L29905" class="LineNr">29905 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> -<span id="L29906" class="LineNr">29906 </span> (<a href='../203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> -<span id="L29907" class="LineNr">29907 </span> <span class="subxComment"># emit block->statements</span> -<span id="L29908" class="LineNr">29908 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> -<span id="L29909" class="LineNr">29909 </span> (<a href='mu.subx.html#L26876'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) -<span id="L29910" class="LineNr">29910 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L29911" class="LineNr">29911 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L29912" class="LineNr">29912 </span> (<a href='../203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> -<span id="L29913" class="LineNr">29913 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> -<span id="L29914" class="LineNr">29914 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L29915" class="LineNr">29915 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) -<span id="L29916" class="LineNr">29916 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L29917" class="LineNr">29917 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L29918" class="LineNr">29918 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) -<span id="L29919" class="LineNr">29919 </span> } -<span id="L29920" class="LineNr">29920 </span><span class="Constant">$emit-subx-block:end</span>: -<span id="L29921" class="LineNr">29921 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L29922" class="LineNr">29922 </span> 5e/pop-to-esi -<span id="L29923" class="LineNr">29923 </span> 59/pop-to-ecx -<span id="L29924" class="LineNr">29924 </span> 58/pop-to-eax -<span id="L29925" class="LineNr">29925 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L29926" class="LineNr">29926 </span> 89/<- %esp 5/r32/ebp -<span id="L29927" class="LineNr">29927 </span> 5d/pop-to-ebp -<span id="L29928" class="LineNr">29928 </span> c3/return -<span id="L29929" class="LineNr">29929 </span> -<span id="L29930" class="LineNr">29930 </span><span class="subxComment"># Primitives supported</span> -<span id="L29931" class="LineNr">29931 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> -<span id="L29932" class="LineNr">29932 </span><span class="subxComment">#</span> -<span id="L29933" class="LineNr">29933 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> -<span id="L29934" class="LineNr">29934 </span><span class="subxComment">#</span> -<span id="L29935" class="LineNr">29935 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> -<span id="L29936" class="LineNr">29936 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> -<span id="L29937" class="LineNr">29937 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> -<span id="L29938" class="LineNr">29938 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> -<span id="L29939" class="LineNr">29939 </span><span class="subxComment">#</span> -<span id="L29940" class="LineNr">29940 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> -<span id="L29941" class="LineNr">29941 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> -<span id="L29942" class="LineNr">29942 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> -<span id="L29943" class="LineNr">29943 </span><span class="subxComment">#</span> -<span id="L29944" class="LineNr">29944 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> -<span id="L29945" class="LineNr">29945 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> -<span id="L29946" class="LineNr">29946 </span><span class="subxComment">#</span> -<span id="L29947" class="LineNr">29947 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> -<span id="L29948" class="LineNr">29948 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> -<span id="L29949" class="LineNr">29949 </span><span class="subxComment"># as usual.</span> -<span id="L29950" class="LineNr">29950 </span><span class="subxComment">#</span> -<span id="L29951" class="LineNr">29951 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> -<span id="L29952" class="LineNr">29952 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> -<span id="L29953" class="LineNr">29953 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> -<span id="L29954" class="LineNr">29954 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> -<span id="L29955" class="LineNr">29955 </span><span class="subxComment"># 0 0 # inouts</span> -<span id="L29956" class="LineNr">29956 </span><span class="subxComment"># 0x11 @(0x11/payload</span> -<span id="L29957" class="LineNr">29957 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> -<span id="L29958" class="LineNr">29958 </span><span class="subxComment"># 0 0 # Var-name</span> -<span id="L29959" class="LineNr">29959 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> -<span id="L29960" class="LineNr">29960 </span><span class="subxComment"># 1/is-atom</span> -<span id="L29961" class="LineNr">29961 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> -<span id="L29962" class="LineNr">29962 </span><span class="subxComment"># 0 0 # Type-tree-right</span> -<span id="L29963" class="LineNr">29963 </span><span class="subxComment"># )</span> -<span id="L29964" class="LineNr">29964 </span><span class="subxComment"># 1 # block-depth</span> -<span id="L29965" class="LineNr">29965 </span><span class="subxComment"># 0 # stack-offset</span> -<span id="L29966" class="LineNr">29966 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> -<span id="L29967" class="LineNr">29967 </span><span class="subxComment"># )</span> -<span id="L29968" class="LineNr">29968 </span><span class="subxComment"># 0 0) # List-next</span> -<span id="L29969" class="LineNr">29969 </span><span class="subxComment"># ...</span> -<span id="L29970" class="LineNr">29970 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> -<span id="L29971" class="LineNr">29971 </span><span class="subxComment"># ...</span> -<span id="L29972" class="LineNr">29972 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> -<span id="L29973" class="LineNr">29973 </span><span class="subxComment"># to learn here, so may be worth trying.</span> -<span id="L29974" class="LineNr">29974 </span><span class="subxComment">#</span> -<span id="L29975" class="LineNr">29975 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> -<span id="L29976" class="LineNr">29976 </span><span class="subxComment">#</span> -<span id="L29977" class="LineNr">29977 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> -<span id="L29978" class="LineNr">29978 </span><span class="subxComment"># to date.</span> -<span id="L29979" class="LineNr">29979 </span>== data -<span id="L29980" class="LineNr">29980 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L29981" class="LineNr">29981 </span><span class="subxH1Comment"># - increment/decrement</span> -<span id="L29982" class="LineNr">29982 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> -<span id="L29983" class="LineNr">29983 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> -<span id="L29984" class="LineNr">29984 </span> 0x11/imm32/alloc-id:fake -<span id="L29985" class="LineNr">29985 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L29986" class="LineNr">29986 </span> 0/imm32/no-inouts -<span id="L29987" class="LineNr">29987 </span> 0/imm32/no-inouts -<span id="L29988" class="LineNr">29988 </span> 0x11/imm32/alloc-id:fake -<span id="L29989" class="LineNr">29989 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L29990" class="LineNr">29990 </span> 0x11/imm32/alloc-id:fake -<span id="L29991" class="LineNr">29991 </span> <a href='mu.subx.html#L33964'>_string_40_increment_eax</a>/imm32/subx-name -<span id="L29992" class="LineNr">29992 </span> 0/imm32/no-rm32 -<span id="L29993" class="LineNr">29993 </span> 0/imm32/no-r32 -<span id="L29994" class="LineNr">29994 </span> 0/imm32/no-imm32 -<span id="L29995" class="LineNr">29995 </span> 0/imm32/no-imm8 -<span id="L29996" class="LineNr">29996 </span> 0/imm32/no-disp32 -<span id="L29997" class="LineNr">29997 </span> 0/imm32/no-xm32 -<span id="L29998" class="LineNr">29998 </span> 0/imm32/no-x32 -<span id="L29999" class="LineNr">29999 </span> 0x11/imm32/alloc-id:fake -<span id="L30000" class="LineNr">30000 </span> <a href='mu.subx.html#L30001'>_Primitive-increment-ecx</a>/imm32/next -<span id="L30001" class="LineNr">30001 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30002" class="LineNr">30002 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30003" class="LineNr">30003 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> -<span id="L30004" class="LineNr">30004 </span> 0x11/imm32/alloc-id:fake -<span id="L30005" class="LineNr">30005 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L30006" class="LineNr">30006 </span> 0/imm32/no-inouts -<span id="L30007" class="LineNr">30007 </span> 0/imm32/no-inouts -<span id="L30008" class="LineNr">30008 </span> 0x11/imm32/alloc-id:fake -<span id="L30009" class="LineNr">30009 </span> <span class="SpecialChar"><a href='mu.subx.html#L34347'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L30010" class="LineNr">30010 </span> 0x11/imm32/alloc-id:fake -<span id="L30011" class="LineNr">30011 </span> <a href='mu.subx.html#L33969'>_string_41_increment_ecx</a>/imm32/subx-name -<span id="L30012" class="LineNr">30012 </span> 0/imm32/no-rm32 -<span id="L30013" class="LineNr">30013 </span> 0/imm32/no-r32 -<span id="L30014" class="LineNr">30014 </span> 0/imm32/no-imm32 -<span id="L30015" class="LineNr">30015 </span> 0/imm32/no-imm8 -<span id="L30016" class="LineNr">30016 </span> 0/imm32/no-disp32 -<span id="L30017" class="LineNr">30017 </span> 0/imm32/no-xm32 -<span id="L30018" class="LineNr">30018 </span> 0/imm32/no-x32 -<span id="L30019" class="LineNr">30019 </span> 0x11/imm32/alloc-id:fake -<span id="L30020" class="LineNr">30020 </span> <a href='mu.subx.html#L30021'>_Primitive-increment-edx</a>/imm32/next -<span id="L30021" class="LineNr">30021 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30022" class="LineNr">30022 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30023" class="LineNr">30023 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> -<span id="L30024" class="LineNr">30024 </span> 0x11/imm32/alloc-id:fake -<span id="L30025" class="LineNr">30025 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L30026" class="LineNr">30026 </span> 0/imm32/no-inouts -<span id="L30027" class="LineNr">30027 </span> 0/imm32/no-inouts -<span id="L30028" class="LineNr">30028 </span> 0x11/imm32/alloc-id:fake -<span id="L30029" class="LineNr">30029 </span> <span class="SpecialChar"><a href='mu.subx.html#L34365'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L30030" class="LineNr">30030 </span> 0x11/imm32/alloc-id:fake -<span id="L30031" class="LineNr">30031 </span> <a href='mu.subx.html#L33974'>_string_42_increment_edx</a>/imm32/subx-name -<span id="L30032" class="LineNr">30032 </span> 0/imm32/no-rm32 -<span id="L30033" class="LineNr">30033 </span> 0/imm32/no-r32 -<span id="L30034" class="LineNr">30034 </span> 0/imm32/no-imm32 -<span id="L30035" class="LineNr">30035 </span> 0/imm32/no-imm8 -<span id="L30036" class="LineNr">30036 </span> 0/imm32/no-disp32 -<span id="L30037" class="LineNr">30037 </span> 0/imm32/no-xm32 -<span id="L30038" class="LineNr">30038 </span> 0/imm32/no-x32 -<span id="L30039" class="LineNr">30039 </span> 0x11/imm32/alloc-id:fake -<span id="L30040" class="LineNr">30040 </span> <a href='mu.subx.html#L30041'>_Primitive-increment-ebx</a>/imm32/next -<span id="L30041" class="LineNr">30041 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30042" class="LineNr">30042 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30043" class="LineNr">30043 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> -<span id="L30044" class="LineNr">30044 </span> 0x11/imm32/alloc-id:fake -<span id="L30045" class="LineNr">30045 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L30046" class="LineNr">30046 </span> 0/imm32/no-inouts -<span id="L30047" class="LineNr">30047 </span> 0/imm32/no-inouts -<span id="L30048" class="LineNr">30048 </span> 0x11/imm32/alloc-id:fake -<span id="L30049" class="LineNr">30049 </span> <span class="SpecialChar"><a href='mu.subx.html#L34383'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L30050" class="LineNr">30050 </span> 0x11/imm32/alloc-id:fake -<span id="L30051" class="LineNr">30051 </span> <a href='mu.subx.html#L33979'>_string_43_increment_ebx</a>/imm32/subx-name -<span id="L30052" class="LineNr">30052 </span> 0/imm32/no-rm32 -<span id="L30053" class="LineNr">30053 </span> 0/imm32/no-r32 -<span id="L30054" class="LineNr">30054 </span> 0/imm32/no-imm32 -<span id="L30055" class="LineNr">30055 </span> 0/imm32/no-imm8 -<span id="L30056" class="LineNr">30056 </span> 0/imm32/no-disp32 -<span id="L30057" class="LineNr">30057 </span> 0/imm32/no-xm32 -<span id="L30058" class="LineNr">30058 </span> 0/imm32/no-x32 -<span id="L30059" class="LineNr">30059 </span> 0x11/imm32/alloc-id:fake -<span id="L30060" class="LineNr">30060 </span> <a href='mu.subx.html#L30061'>_Primitive-increment-esi</a>/imm32/next -<span id="L30061" class="LineNr">30061 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30062" class="LineNr">30062 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30063" class="LineNr">30063 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> -<span id="L30064" class="LineNr">30064 </span> 0x11/imm32/alloc-id:fake -<span id="L30065" class="LineNr">30065 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L30066" class="LineNr">30066 </span> 0/imm32/no-inouts -<span id="L30067" class="LineNr">30067 </span> 0/imm32/no-inouts -<span id="L30068" class="LineNr">30068 </span> 0x11/imm32/alloc-id:fake -<span id="L30069" class="LineNr">30069 </span> <span class="SpecialChar"><a href='mu.subx.html#L34401'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L30070" class="LineNr">30070 </span> 0x11/imm32/alloc-id:fake -<span id="L30071" class="LineNr">30071 </span> <a href='mu.subx.html#L33984'>_string_46_increment_esi</a>/imm32/subx-name -<span id="L30072" class="LineNr">30072 </span> 0/imm32/no-rm32 -<span id="L30073" class="LineNr">30073 </span> 0/imm32/no-r32 -<span id="L30074" class="LineNr">30074 </span> 0/imm32/no-imm32 -<span id="L30075" class="LineNr">30075 </span> 0/imm32/no-imm8 -<span id="L30076" class="LineNr">30076 </span> 0/imm32/no-disp32 -<span id="L30077" class="LineNr">30077 </span> 0/imm32/no-xm32 -<span id="L30078" class="LineNr">30078 </span> 0/imm32/no-x32 -<span id="L30079" class="LineNr">30079 </span> 0x11/imm32/alloc-id:fake -<span id="L30080" class="LineNr">30080 </span> <a href='mu.subx.html#L30081'>_Primitive-increment-edi</a>/imm32/next -<span id="L30081" class="LineNr">30081 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30082" class="LineNr">30082 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30083" class="LineNr">30083 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> -<span id="L30084" class="LineNr">30084 </span> 0x11/imm32/alloc-id:fake -<span id="L30085" class="LineNr">30085 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L30086" class="LineNr">30086 </span> 0/imm32/no-inouts -<span id="L30087" class="LineNr">30087 </span> 0/imm32/no-inouts -<span id="L30088" class="LineNr">30088 </span> 0x11/imm32/alloc-id:fake -<span id="L30089" class="LineNr">30089 </span> <span class="SpecialChar"><a href='mu.subx.html#L34419'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L30090" class="LineNr">30090 </span> 0x11/imm32/alloc-id:fake -<span id="L30091" class="LineNr">30091 </span> <a href='mu.subx.html#L33989'>_string_47_increment_edi</a>/imm32/subx-name -<span id="L30092" class="LineNr">30092 </span> 0/imm32/no-rm32 -<span id="L30093" class="LineNr">30093 </span> 0/imm32/no-r32 -<span id="L30094" class="LineNr">30094 </span> 0/imm32/no-imm32 -<span id="L30095" class="LineNr">30095 </span> 0/imm32/no-imm8 -<span id="L30096" class="LineNr">30096 </span> 0/imm32/no-disp32 -<span id="L30097" class="LineNr">30097 </span> 0/imm32/no-xm32 -<span id="L30098" class="LineNr">30098 </span> 0/imm32/no-x32 -<span id="L30099" class="LineNr">30099 </span> 0x11/imm32/alloc-id:fake -<span id="L30100" class="LineNr">30100 </span> <a href='mu.subx.html#L30101'>_Primitive-decrement-eax</a>/imm32/next -<span id="L30101" class="LineNr">30101 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30102" class="LineNr">30102 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30103" class="LineNr">30103 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> -<span id="L30104" class="LineNr">30104 </span> 0x11/imm32/alloc-id:fake -<span id="L30105" class="LineNr">30105 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30106" class="LineNr">30106 </span> 0/imm32/no-inouts -<span id="L30107" class="LineNr">30107 </span> 0/imm32/no-inouts -<span id="L30108" class="LineNr">30108 </span> 0x11/imm32/alloc-id:fake -<span id="L30109" class="LineNr">30109 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30110" class="LineNr">30110 </span> 0x11/imm32/alloc-id:fake -<span id="L30111" class="LineNr">30111 </span> <a href='mu.subx.html#L33994'>_string_48_decrement_eax</a>/imm32/subx-name -<span id="L30112" class="LineNr">30112 </span> 0/imm32/no-rm32 -<span id="L30113" class="LineNr">30113 </span> 0/imm32/no-r32 -<span id="L30114" class="LineNr">30114 </span> 0/imm32/no-imm32 -<span id="L30115" class="LineNr">30115 </span> 0/imm32/no-imm8 -<span id="L30116" class="LineNr">30116 </span> 0/imm32/no-disp32 -<span id="L30117" class="LineNr">30117 </span> 0/imm32/no-xm32 -<span id="L30118" class="LineNr">30118 </span> 0/imm32/no-x32 -<span id="L30119" class="LineNr">30119 </span> 0x11/imm32/alloc-id:fake -<span id="L30120" class="LineNr">30120 </span> <a href='mu.subx.html#L30121'>_Primitive-decrement-ecx</a>/imm32/next -<span id="L30121" class="LineNr">30121 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30122" class="LineNr">30122 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30123" class="LineNr">30123 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> -<span id="L30124" class="LineNr">30124 </span> 0x11/imm32/alloc-id:fake -<span id="L30125" class="LineNr">30125 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30126" class="LineNr">30126 </span> 0/imm32/no-inouts -<span id="L30127" class="LineNr">30127 </span> 0/imm32/no-inouts -<span id="L30128" class="LineNr">30128 </span> 0x11/imm32/alloc-id:fake -<span id="L30129" class="LineNr">30129 </span> <span class="SpecialChar"><a href='mu.subx.html#L34347'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L30130" class="LineNr">30130 </span> 0x11/imm32/alloc-id:fake -<span id="L30131" class="LineNr">30131 </span> <a href='mu.subx.html#L33999'>_string_49_decrement_ecx</a>/imm32/subx-name -<span id="L30132" class="LineNr">30132 </span> 0/imm32/no-rm32 -<span id="L30133" class="LineNr">30133 </span> 0/imm32/no-r32 -<span id="L30134" class="LineNr">30134 </span> 0/imm32/no-imm32 -<span id="L30135" class="LineNr">30135 </span> 0/imm32/no-imm8 -<span id="L30136" class="LineNr">30136 </span> 0/imm32/no-disp32 -<span id="L30137" class="LineNr">30137 </span> 0/imm32/no-xm32 -<span id="L30138" class="LineNr">30138 </span> 0/imm32/no-x32 -<span id="L30139" class="LineNr">30139 </span> 0x11/imm32/alloc-id:fake -<span id="L30140" class="LineNr">30140 </span> <a href='mu.subx.html#L30141'>_Primitive-decrement-edx</a>/imm32/next -<span id="L30141" class="LineNr">30141 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30142" class="LineNr">30142 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30143" class="LineNr">30143 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> -<span id="L30144" class="LineNr">30144 </span> 0x11/imm32/alloc-id:fake -<span id="L30145" class="LineNr">30145 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30146" class="LineNr">30146 </span> 0/imm32/no-inouts -<span id="L30147" class="LineNr">30147 </span> 0/imm32/no-inouts -<span id="L30148" class="LineNr">30148 </span> 0x11/imm32/alloc-id:fake -<span id="L30149" class="LineNr">30149 </span> <span class="SpecialChar"><a href='mu.subx.html#L34365'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L30150" class="LineNr">30150 </span> 0x11/imm32/alloc-id:fake -<span id="L30151" class="LineNr">30151 </span> <a href='mu.subx.html#L34004'>_string_4a_decrement_edx</a>/imm32/subx-name -<span id="L30152" class="LineNr">30152 </span> 0/imm32/no-rm32 -<span id="L30153" class="LineNr">30153 </span> 0/imm32/no-r32 -<span id="L30154" class="LineNr">30154 </span> 0/imm32/no-imm32 -<span id="L30155" class="LineNr">30155 </span> 0/imm32/no-imm8 -<span id="L30156" class="LineNr">30156 </span> 0/imm32/no-disp32 -<span id="L30157" class="LineNr">30157 </span> 0/imm32/no-xm32 -<span id="L30158" class="LineNr">30158 </span> 0/imm32/no-x32 -<span id="L30159" class="LineNr">30159 </span> 0x11/imm32/alloc-id:fake -<span id="L30160" class="LineNr">30160 </span> <a href='mu.subx.html#L30161'>_Primitive-decrement-ebx</a>/imm32/next -<span id="L30161" class="LineNr">30161 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30162" class="LineNr">30162 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30163" class="LineNr">30163 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> -<span id="L30164" class="LineNr">30164 </span> 0x11/imm32/alloc-id:fake -<span id="L30165" class="LineNr">30165 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30166" class="LineNr">30166 </span> 0/imm32/no-inouts -<span id="L30167" class="LineNr">30167 </span> 0/imm32/no-inouts -<span id="L30168" class="LineNr">30168 </span> 0x11/imm32/alloc-id:fake -<span id="L30169" class="LineNr">30169 </span> <span class="SpecialChar"><a href='mu.subx.html#L34383'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L30170" class="LineNr">30170 </span> 0x11/imm32/alloc-id:fake -<span id="L30171" class="LineNr">30171 </span> <a href='mu.subx.html#L34009'>_string_4b_decrement_ebx</a>/imm32/subx-name -<span id="L30172" class="LineNr">30172 </span> 0/imm32/no-rm32 -<span id="L30173" class="LineNr">30173 </span> 0/imm32/no-r32 -<span id="L30174" class="LineNr">30174 </span> 0/imm32/no-imm32 -<span id="L30175" class="LineNr">30175 </span> 0/imm32/no-imm8 -<span id="L30176" class="LineNr">30176 </span> 0/imm32/no-disp32 -<span id="L30177" class="LineNr">30177 </span> 0/imm32/no-xm32 -<span id="L30178" class="LineNr">30178 </span> 0/imm32/no-x32 -<span id="L30179" class="LineNr">30179 </span> 0x11/imm32/alloc-id:fake -<span id="L30180" class="LineNr">30180 </span> <a href='mu.subx.html#L30181'>_Primitive-decrement-esi</a>/imm32/next -<span id="L30181" class="LineNr">30181 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30182" class="LineNr">30182 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30183" class="LineNr">30183 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> -<span id="L30184" class="LineNr">30184 </span> 0x11/imm32/alloc-id:fake -<span id="L30185" class="LineNr">30185 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30186" class="LineNr">30186 </span> 0/imm32/no-inouts -<span id="L30187" class="LineNr">30187 </span> 0/imm32/no-inouts -<span id="L30188" class="LineNr">30188 </span> 0x11/imm32/alloc-id:fake -<span id="L30189" class="LineNr">30189 </span> <span class="SpecialChar"><a href='mu.subx.html#L34401'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L30190" class="LineNr">30190 </span> 0x11/imm32/alloc-id:fake -<span id="L30191" class="LineNr">30191 </span> <a href='mu.subx.html#L34014'>_string_4e_decrement_esi</a>/imm32/subx-name -<span id="L30192" class="LineNr">30192 </span> 0/imm32/no-rm32 -<span id="L30193" class="LineNr">30193 </span> 0/imm32/no-r32 -<span id="L30194" class="LineNr">30194 </span> 0/imm32/no-imm32 -<span id="L30195" class="LineNr">30195 </span> 0/imm32/no-imm8 -<span id="L30196" class="LineNr">30196 </span> 0/imm32/no-disp32 -<span id="L30197" class="LineNr">30197 </span> 0/imm32/no-xm32 -<span id="L30198" class="LineNr">30198 </span> 0/imm32/no-x32 -<span id="L30199" class="LineNr">30199 </span> 0x11/imm32/alloc-id:fake -<span id="L30200" class="LineNr">30200 </span> <a href='mu.subx.html#L30201'>_Primitive-decrement-edi</a>/imm32/next -<span id="L30201" class="LineNr">30201 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30202" class="LineNr">30202 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30203" class="LineNr">30203 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> -<span id="L30204" class="LineNr">30204 </span> 0x11/imm32/alloc-id:fake -<span id="L30205" class="LineNr">30205 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30206" class="LineNr">30206 </span> 0/imm32/no-inouts -<span id="L30207" class="LineNr">30207 </span> 0/imm32/no-inouts -<span id="L30208" class="LineNr">30208 </span> 0x11/imm32/alloc-id:fake -<span id="L30209" class="LineNr">30209 </span> <span class="SpecialChar"><a href='mu.subx.html#L34419'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L30210" class="LineNr">30210 </span> 0x11/imm32/alloc-id:fake -<span id="L30211" class="LineNr">30211 </span> <a href='mu.subx.html#L34019'>_string_4f_decrement_edi</a>/imm32/subx-name -<span id="L30212" class="LineNr">30212 </span> 0/imm32/no-rm32 -<span id="L30213" class="LineNr">30213 </span> 0/imm32/no-r32 -<span id="L30214" class="LineNr">30214 </span> 0/imm32/no-imm32 -<span id="L30215" class="LineNr">30215 </span> 0/imm32/no-imm8 -<span id="L30216" class="LineNr">30216 </span> 0/imm32/no-disp32 -<span id="L30217" class="LineNr">30217 </span> 0/imm32/no-xm32 -<span id="L30218" class="LineNr">30218 </span> 0/imm32/no-x32 -<span id="L30219" class="LineNr">30219 </span> 0x11/imm32/alloc-id:fake -<span id="L30220" class="LineNr">30220 </span> <a href='mu.subx.html#L30221'>_Primitive-increment-mem</a>/imm32/next -<span id="L30221" class="LineNr">30221 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30222" class="LineNr">30222 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30223" class="LineNr">30223 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> -<span id="L30224" class="LineNr">30224 </span> 0x11/imm32/alloc-id:fake -<span id="L30225" class="LineNr">30225 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L30226" class="LineNr">30226 </span> 0x11/imm32/alloc-id:fake -<span id="L30227" class="LineNr">30227 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30228" class="LineNr">30228 </span> 0/imm32/no-outputs -<span id="L30229" class="LineNr">30229 </span> 0/imm32/no-outputs -<span id="L30230" class="LineNr">30230 </span> 0x11/imm32/alloc-id:fake -<span id="L30231" class="LineNr">30231 </span> <a href='mu.subx.html#L34134'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L30232" class="LineNr">30232 </span> 1/imm32/rm32-is-first-inout -<span id="L30233" class="LineNr">30233 </span> 0/imm32/no-r32 -<span id="L30234" class="LineNr">30234 </span> 0/imm32/no-imm32 -<span id="L30235" class="LineNr">30235 </span> 0/imm32/no-imm8 -<span id="L30236" class="LineNr">30236 </span> 0/imm32/no-disp32 -<span id="L30237" class="LineNr">30237 </span> 0/imm32/no-xm32 -<span id="L30238" class="LineNr">30238 </span> 0/imm32/no-x32 -<span id="L30239" class="LineNr">30239 </span> 0x11/imm32/alloc-id:fake -<span id="L30240" class="LineNr">30240 </span> <a href='mu.subx.html#L30241'>_Primitive-increment-reg</a>/imm32/next -<span id="L30241" class="LineNr">30241 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30242" class="LineNr">30242 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30243" class="LineNr">30243 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> -<span id="L30244" class="LineNr">30244 </span> 0x11/imm32/alloc-id:fake -<span id="L30245" class="LineNr">30245 </span> <a href='mu.subx.html#L33462'>_string-increment</a>/imm32/name -<span id="L30246" class="LineNr">30246 </span> 0/imm32/no-inouts -<span id="L30247" class="LineNr">30247 </span> 0/imm32/no-inouts -<span id="L30248" class="LineNr">30248 </span> 0x11/imm32/alloc-id:fake -<span id="L30249" class="LineNr">30249 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30250" class="LineNr">30250 </span> 0x11/imm32/alloc-id:fake -<span id="L30251" class="LineNr">30251 </span> <a href='mu.subx.html#L34134'>_string_ff_subop_increment</a>/imm32/subx-name -<span id="L30252" class="LineNr">30252 </span> 3/imm32/rm32-is-first-output -<span id="L30253" class="LineNr">30253 </span> 0/imm32/no-r32 -<span id="L30254" class="LineNr">30254 </span> 0/imm32/no-imm32 -<span id="L30255" class="LineNr">30255 </span> 0/imm32/no-imm8 -<span id="L30256" class="LineNr">30256 </span> 0/imm32/no-disp32 -<span id="L30257" class="LineNr">30257 </span> 0/imm32/no-xm32 -<span id="L30258" class="LineNr">30258 </span> 0/imm32/no-x32 -<span id="L30259" class="LineNr">30259 </span> 0x11/imm32/alloc-id:fake -<span id="L30260" class="LineNr">30260 </span> <a href='mu.subx.html#L30261'>_Primitive-decrement-mem</a>/imm32/next -<span id="L30261" class="LineNr">30261 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30262" class="LineNr">30262 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30263" class="LineNr">30263 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> -<span id="L30264" class="LineNr">30264 </span> 0x11/imm32/alloc-id:fake -<span id="L30265" class="LineNr">30265 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30266" class="LineNr">30266 </span> 0x11/imm32/alloc-id:fake -<span id="L30267" class="LineNr">30267 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30268" class="LineNr">30268 </span> 0/imm32/no-outputs -<span id="L30269" class="LineNr">30269 </span> 0/imm32/no-outputs -<span id="L30270" class="LineNr">30270 </span> 0x11/imm32/alloc-id:fake -<span id="L30271" class="LineNr">30271 </span> <a href='mu.subx.html#L34139'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L30272" class="LineNr">30272 </span> 1/imm32/rm32-is-first-inout -<span id="L30273" class="LineNr">30273 </span> 0/imm32/no-r32 -<span id="L30274" class="LineNr">30274 </span> 0/imm32/no-imm32 -<span id="L30275" class="LineNr">30275 </span> 0/imm32/no-imm8 -<span id="L30276" class="LineNr">30276 </span> 0/imm32/no-disp32 -<span id="L30277" class="LineNr">30277 </span> 0/imm32/no-xm32 -<span id="L30278" class="LineNr">30278 </span> 0/imm32/no-x32 -<span id="L30279" class="LineNr">30279 </span> 0x11/imm32/alloc-id:fake -<span id="L30280" class="LineNr">30280 </span> <a href='mu.subx.html#L30281'>_Primitive-decrement-reg</a>/imm32/next -<span id="L30281" class="LineNr">30281 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30282" class="LineNr">30282 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30283" class="LineNr">30283 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> -<span id="L30284" class="LineNr">30284 </span> 0x11/imm32/alloc-id:fake -<span id="L30285" class="LineNr">30285 </span> <a href='mu.subx.html#L33457'>_string-decrement</a>/imm32/name -<span id="L30286" class="LineNr">30286 </span> 0/imm32/no-inouts -<span id="L30287" class="LineNr">30287 </span> 0/imm32/no-inouts -<span id="L30288" class="LineNr">30288 </span> 0x11/imm32/alloc-id:fake -<span id="L30289" class="LineNr">30289 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30290" class="LineNr">30290 </span> 0x11/imm32/alloc-id:fake -<span id="L30291" class="LineNr">30291 </span> <a href='mu.subx.html#L34139'>_string_ff_subop_decrement</a>/imm32/subx-name -<span id="L30292" class="LineNr">30292 </span> 3/imm32/rm32-is-first-output -<span id="L30293" class="LineNr">30293 </span> 0/imm32/no-r32 -<span id="L30294" class="LineNr">30294 </span> 0/imm32/no-imm32 -<span id="L30295" class="LineNr">30295 </span> 0/imm32/no-imm8 -<span id="L30296" class="LineNr">30296 </span> 0/imm32/no-disp32 -<span id="L30297" class="LineNr">30297 </span> 0/imm32/no-xm32 -<span id="L30298" class="LineNr">30298 </span> 0/imm32/no-x32 -<span id="L30299" class="LineNr">30299 </span> 0x11/imm32/alloc-id:fake -<span id="L30300" class="LineNr">30300 </span> <a href='mu.subx.html#L30302'>_Primitive-add-to-eax</a>/imm32/next -<span id="L30301" class="LineNr">30301 </span><span class="subxH1Comment"># - add</span> -<span id="L30302" class="LineNr">30302 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30303" class="LineNr">30303 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30304" class="LineNr">30304 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> -<span id="L30305" class="LineNr">30305 </span> 0x11/imm32/alloc-id:fake -<span id="L30306" class="LineNr">30306 </span> <a href='mu.subx.html#L33332'>_string-add</a>/imm32/name -<span id="L30307" class="LineNr">30307 </span> 0x11/imm32/alloc-id:fake -<span id="L30308" class="LineNr">30308 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30309" class="LineNr">30309 </span> 0x11/imm32/alloc-id:fake -<span id="L30310" class="LineNr">30310 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30311" class="LineNr">30311 </span> 0x11/imm32/alloc-id:fake -<span id="L30312" class="LineNr">30312 </span> <a href='mu.subx.html#L33654'>_string_05_add_to_eax</a>/imm32/subx-name -<span id="L30313" class="LineNr">30313 </span> 0/imm32/no-rm32 -<span id="L30314" class="LineNr">30314 </span> 0/imm32/no-r32 -<span id="L30315" class="LineNr">30315 </span> 1/imm32/imm32-is-first-inout -<span id="L30316" class="LineNr">30316 </span> 0/imm32/no-imm8 -<span id="L30317" class="LineNr">30317 </span> 0/imm32/no-disp32 -<span id="L30318" class="LineNr">30318 </span> 0/imm32/no-xm32 -<span id="L30319" class="LineNr">30319 </span> 0/imm32/no-x32 -<span id="L30320" class="LineNr">30320 </span> 0x11/imm32/alloc-id:fake -<span id="L30321" class="LineNr">30321 </span> <a href='mu.subx.html#L30322'>_Primitive-add-reg-to-reg</a>/imm32/next -<span id="L30322" class="LineNr">30322 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30323" class="LineNr">30323 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30324" class="LineNr">30324 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> -<span id="L30325" class="LineNr">30325 </span> 0x11/imm32/alloc-id:fake -<span id="L30326" class="LineNr">30326 </span> <a href='mu.subx.html#L33332'>_string-add</a>/imm32/name -<span id="L30327" class="LineNr">30327 </span> 0x11/imm32/alloc-id:fake -<span id="L30328" class="LineNr">30328 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30329" class="LineNr">30329 </span> 0x11/imm32/alloc-id:fake -<span id="L30330" class="LineNr">30330 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30331" class="LineNr">30331 </span> 0x11/imm32/alloc-id:fake -<span id="L30332" class="LineNr">30332 </span> <a href='mu.subx.html#L33644'>_string_01_add_to</a>/imm32/subx-name -<span id="L30333" class="LineNr">30333 </span> 3/imm32/rm32-is-first-output -<span id="L30334" class="LineNr">30334 </span> 1/imm32/r32-is-first-inout -<span id="L30335" class="LineNr">30335 </span> 0/imm32/no-imm32 -<span id="L30336" class="LineNr">30336 </span> 0/imm32/no-imm8 -<span id="L30337" class="LineNr">30337 </span> 0/imm32/no-disp32 -<span id="L30338" class="LineNr">30338 </span> 0/imm32/no-xm32 -<span id="L30339" class="LineNr">30339 </span> 0/imm32/no-x32 -<span id="L30340" class="LineNr">30340 </span> 0x11/imm32/alloc-id:fake -<span id="L30341" class="LineNr">30341 </span> <a href='mu.subx.html#L30342'>_Primitive-add-reg-to-mem</a>/imm32/next -<span id="L30342" class="LineNr">30342 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30343" class="LineNr">30343 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30344" class="LineNr">30344 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> -<span id="L30345" class="LineNr">30345 </span> 0x11/imm32/alloc-id:fake -<span id="L30346" class="LineNr">30346 </span> <a href='mu.subx.html#L33342'>_string-add-to</a>/imm32/name -<span id="L30347" class="LineNr">30347 </span> 0x11/imm32/alloc-id:fake -<span id="L30348" class="LineNr">30348 </span> <span class="SpecialChar"><a href='mu.subx.html#L34198'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30349" class="LineNr">30349 </span> 0/imm32/no-outputs -<span id="L30350" class="LineNr">30350 </span> 0/imm32/no-outputs -<span id="L30351" class="LineNr">30351 </span> 0x11/imm32/alloc-id:fake -<span id="L30352" class="LineNr">30352 </span> <a href='mu.subx.html#L33644'>_string_01_add_to</a>/imm32/subx-name -<span id="L30353" class="LineNr">30353 </span> 1/imm32/rm32-is-first-inout -<span id="L30354" class="LineNr">30354 </span> 2/imm32/r32-is-second-inout -<span id="L30355" class="LineNr">30355 </span> 0/imm32/no-imm32 -<span id="L30356" class="LineNr">30356 </span> 0/imm32/no-imm8 -<span id="L30357" class="LineNr">30357 </span> 0/imm32/no-disp32 -<span id="L30358" class="LineNr">30358 </span> 0/imm32/no-xm32 -<span id="L30359" class="LineNr">30359 </span> 0/imm32/no-x32 -<span id="L30360" class="LineNr">30360 </span> 0x11/imm32/alloc-id:fake -<span id="L30361" class="LineNr">30361 </span> <a href='mu.subx.html#L30362'>_Primitive-add-mem-to-reg</a>/imm32/next -<span id="L30362" class="LineNr">30362 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30363" class="LineNr">30363 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30364" class="LineNr">30364 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> -<span id="L30365" class="LineNr">30365 </span> 0x11/imm32/alloc-id:fake -<span id="L30366" class="LineNr">30366 </span> <a href='mu.subx.html#L33332'>_string-add</a>/imm32/name -<span id="L30367" class="LineNr">30367 </span> 0x11/imm32/alloc-id:fake -<span id="L30368" class="LineNr">30368 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30369" class="LineNr">30369 </span> 0x11/imm32/alloc-id:fake -<span id="L30370" class="LineNr">30370 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30371" class="LineNr">30371 </span> 0x11/imm32/alloc-id:fake -<span id="L30372" class="LineNr">30372 </span> <a href='mu.subx.html#L33649'>_string_03_add</a>/imm32/subx-name -<span id="L30373" class="LineNr">30373 </span> 1/imm32/rm32-is-first-inout -<span id="L30374" class="LineNr">30374 </span> 3/imm32/r32-is-first-output -<span id="L30375" class="LineNr">30375 </span> 0/imm32/no-imm32 -<span id="L30376" class="LineNr">30376 </span> 0/imm32/no-imm8 -<span id="L30377" class="LineNr">30377 </span> 0/imm32/no-disp32 -<span id="L30378" class="LineNr">30378 </span> 0/imm32/no-xm32 -<span id="L30379" class="LineNr">30379 </span> 0/imm32/no-x32 -<span id="L30380" class="LineNr">30380 </span> 0x11/imm32/alloc-id:fake -<span id="L30381" class="LineNr">30381 </span> <a href='mu.subx.html#L30382'>_Primitive-add-lit-to-reg</a>/imm32/next -<span id="L30382" class="LineNr">30382 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30383" class="LineNr">30383 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30384" class="LineNr">30384 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L30385" class="LineNr">30385 </span> 0x11/imm32/alloc-id:fake -<span id="L30386" class="LineNr">30386 </span> <a href='mu.subx.html#L33332'>_string-add</a>/imm32/name -<span id="L30387" class="LineNr">30387 </span> 0x11/imm32/alloc-id:fake -<span id="L30388" class="LineNr">30388 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30389" class="LineNr">30389 </span> 0x11/imm32/alloc-id:fake -<span id="L30390" class="LineNr">30390 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30391" class="LineNr">30391 </span> 0x11/imm32/alloc-id:fake -<span id="L30392" class="LineNr">30392 </span> <a href='mu.subx.html#L34024'>_string_81_subop_add</a>/imm32/subx-name -<span id="L30393" class="LineNr">30393 </span> 3/imm32/rm32-is-first-output -<span id="L30394" class="LineNr">30394 </span> 0/imm32/no-r32 -<span id="L30395" class="LineNr">30395 </span> 1/imm32/imm32-is-first-inout -<span id="L30396" class="LineNr">30396 </span> 0/imm32/no-imm8 -<span id="L30397" class="LineNr">30397 </span> 0/imm32/no-disp32 -<span id="L30398" class="LineNr">30398 </span> 0/imm32/no-xm32 -<span id="L30399" class="LineNr">30399 </span> 0/imm32/no-x32 -<span id="L30400" class="LineNr">30400 </span> 0x11/imm32/alloc-id:fake -<span id="L30401" class="LineNr">30401 </span> <a href='mu.subx.html#L30402'>_Primitive-add-lit-to-mem</a>/imm32/next -<span id="L30402" class="LineNr">30402 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30403" class="LineNr">30403 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30404" class="LineNr">30404 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> -<span id="L30405" class="LineNr">30405 </span> 0x11/imm32/alloc-id:fake -<span id="L30406" class="LineNr">30406 </span> <a href='mu.subx.html#L33342'>_string-add-to</a>/imm32/name -<span id="L30407" class="LineNr">30407 </span> 0x11/imm32/alloc-id:fake -<span id="L30408" class="LineNr">30408 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30409" class="LineNr">30409 </span> 0/imm32/no-outputs -<span id="L30410" class="LineNr">30410 </span> 0/imm32/no-outputs -<span id="L30411" class="LineNr">30411 </span> 0x11/imm32/alloc-id:fake -<span id="L30412" class="LineNr">30412 </span> <a href='mu.subx.html#L34024'>_string_81_subop_add</a>/imm32/subx-name -<span id="L30413" class="LineNr">30413 </span> 1/imm32/rm32-is-first-inout -<span id="L30414" class="LineNr">30414 </span> 0/imm32/no-r32 -<span id="L30415" class="LineNr">30415 </span> 2/imm32/imm32-is-second-inout -<span id="L30416" class="LineNr">30416 </span> 0/imm32/no-imm8 -<span id="L30417" class="LineNr">30417 </span> 0/imm32/no-disp32 -<span id="L30418" class="LineNr">30418 </span> 0/imm32/no-xm32 -<span id="L30419" class="LineNr">30419 </span> 0/imm32/no-x32 -<span id="L30420" class="LineNr">30420 </span> 0x11/imm32/alloc-id:fake -<span id="L30421" class="LineNr">30421 </span> <a href='mu.subx.html#L30423'>_Primitive-subtract-from-eax</a>/imm32/next -<span id="L30422" class="LineNr">30422 </span><span class="subxH1Comment"># - subtract</span> -<span id="L30423" class="LineNr">30423 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30424" class="LineNr">30424 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30425" class="LineNr">30425 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> -<span id="L30426" class="LineNr">30426 </span> 0x11/imm32/alloc-id:fake -<span id="L30427" class="LineNr">30427 </span> <a href='mu.subx.html#L33607'>_string-subtract</a>/imm32/name -<span id="L30428" class="LineNr">30428 </span> 0x11/imm32/alloc-id:fake -<span id="L30429" class="LineNr">30429 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30430" class="LineNr">30430 </span> 0x11/imm32/alloc-id:fake -<span id="L30431" class="LineNr">30431 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30432" class="LineNr">30432 </span> 0x11/imm32/alloc-id:fake -<span id="L30433" class="LineNr">30433 </span> <a href='mu.subx.html#L33929'>_string_2d_subtract_from_eax</a>/imm32/subx-name -<span id="L30434" class="LineNr">30434 </span> 0/imm32/no-rm32 -<span id="L30435" class="LineNr">30435 </span> 0/imm32/no-r32 -<span id="L30436" class="LineNr">30436 </span> 1/imm32/imm32-is-first-inout -<span id="L30437" class="LineNr">30437 </span> 0/imm32/no-imm8 -<span id="L30438" class="LineNr">30438 </span> 0/imm32/no-disp32 -<span id="L30439" class="LineNr">30439 </span> 0/imm32/no-xm32 -<span id="L30440" class="LineNr">30440 </span> 0/imm32/no-x32 -<span id="L30441" class="LineNr">30441 </span> 0x11/imm32/alloc-id:fake -<span id="L30442" class="LineNr">30442 </span> <a href='mu.subx.html#L30443'>_Primitive-subtract-reg-from-reg</a>/imm32/next -<span id="L30443" class="LineNr">30443 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30444" class="LineNr">30444 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30445" class="LineNr">30445 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> -<span id="L30446" class="LineNr">30446 </span> 0x11/imm32/alloc-id:fake -<span id="L30447" class="LineNr">30447 </span> <a href='mu.subx.html#L33607'>_string-subtract</a>/imm32/name -<span id="L30448" class="LineNr">30448 </span> 0x11/imm32/alloc-id:fake -<span id="L30449" class="LineNr">30449 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30450" class="LineNr">30450 </span> 0x11/imm32/alloc-id:fake -<span id="L30451" class="LineNr">30451 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30452" class="LineNr">30452 </span> 0x11/imm32/alloc-id:fake -<span id="L30453" class="LineNr">30453 </span> <a href='mu.subx.html#L33919'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L30454" class="LineNr">30454 </span> 3/imm32/rm32-is-first-output -<span id="L30455" class="LineNr">30455 </span> 1/imm32/r32-is-first-inout -<span id="L30456" class="LineNr">30456 </span> 0/imm32/no-imm32 -<span id="L30457" class="LineNr">30457 </span> 0/imm32/no-imm8 -<span id="L30458" class="LineNr">30458 </span> 0/imm32/no-disp32 -<span id="L30459" class="LineNr">30459 </span> 0/imm32/no-xm32 -<span id="L30460" class="LineNr">30460 </span> 0/imm32/no-x32 -<span id="L30461" class="LineNr">30461 </span> 0x11/imm32/alloc-id:fake -<span id="L30462" class="LineNr">30462 </span> <a href='mu.subx.html#L30463'>_Primitive-subtract-reg-from-mem</a>/imm32/next -<span id="L30463" class="LineNr">30463 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30464" class="LineNr">30464 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30465" class="LineNr">30465 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> -<span id="L30466" class="LineNr">30466 </span> 0x11/imm32/alloc-id:fake -<span id="L30467" class="LineNr">30467 </span> <a href='mu.subx.html#L33612'>_string-subtract-from</a>/imm32/name -<span id="L30468" class="LineNr">30468 </span> 0x11/imm32/alloc-id:fake -<span id="L30469" class="LineNr">30469 </span> <span class="SpecialChar"><a href='mu.subx.html#L34198'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30470" class="LineNr">30470 </span> 0/imm32/no-outputs -<span id="L30471" class="LineNr">30471 </span> 0/imm32/no-outputs -<span id="L30472" class="LineNr">30472 </span> 0x11/imm32/alloc-id:fake -<span id="L30473" class="LineNr">30473 </span> <a href='mu.subx.html#L33919'>_string_29_subtract_from</a>/imm32/subx-name -<span id="L30474" class="LineNr">30474 </span> 1/imm32/rm32-is-first-inout -<span id="L30475" class="LineNr">30475 </span> 2/imm32/r32-is-second-inout -<span id="L30476" class="LineNr">30476 </span> 0/imm32/no-imm32 -<span id="L30477" class="LineNr">30477 </span> 0/imm32/no-imm8 -<span id="L30478" class="LineNr">30478 </span> 0/imm32/no-disp32 -<span id="L30479" class="LineNr">30479 </span> 0/imm32/no-xm32 -<span id="L30480" class="LineNr">30480 </span> 0/imm32/no-x32 -<span id="L30481" class="LineNr">30481 </span> 0x11/imm32/alloc-id:fake -<span id="L30482" class="LineNr">30482 </span> <a href='mu.subx.html#L30483'>_Primitive-subtract-mem-from-reg</a>/imm32/next -<span id="L30483" class="LineNr">30483 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30484" class="LineNr">30484 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30485" class="LineNr">30485 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> -<span id="L30486" class="LineNr">30486 </span> 0x11/imm32/alloc-id:fake -<span id="L30487" class="LineNr">30487 </span> <a href='mu.subx.html#L33607'>_string-subtract</a>/imm32/name -<span id="L30488" class="LineNr">30488 </span> 0x11/imm32/alloc-id:fake -<span id="L30489" class="LineNr">30489 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30490" class="LineNr">30490 </span> 0x11/imm32/alloc-id:fake -<span id="L30491" class="LineNr">30491 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30492" class="LineNr">30492 </span> 0x11/imm32/alloc-id:fake -<span id="L30493" class="LineNr">30493 </span> <a href='mu.subx.html#L33924'>_string_2b_subtract</a>/imm32/subx-name -<span id="L30494" class="LineNr">30494 </span> 1/imm32/rm32-is-first-inout -<span id="L30495" class="LineNr">30495 </span> 3/imm32/r32-is-first-output -<span id="L30496" class="LineNr">30496 </span> 0/imm32/no-imm32 -<span id="L30497" class="LineNr">30497 </span> 0/imm32/no-imm8 -<span id="L30498" class="LineNr">30498 </span> 0/imm32/no-disp32 -<span id="L30499" class="LineNr">30499 </span> 0/imm32/no-xm32 -<span id="L30500" class="LineNr">30500 </span> 0/imm32/no-x32 -<span id="L30501" class="LineNr">30501 </span> 0x11/imm32/alloc-id:fake -<span id="L30502" class="LineNr">30502 </span> <a href='mu.subx.html#L30503'>_Primitive-subtract-lit-from-reg</a>/imm32/next -<span id="L30503" class="LineNr">30503 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30504" class="LineNr">30504 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30505" class="LineNr">30505 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L30506" class="LineNr">30506 </span> 0x11/imm32/alloc-id:fake -<span id="L30507" class="LineNr">30507 </span> <a href='mu.subx.html#L33607'>_string-subtract</a>/imm32/name -<span id="L30508" class="LineNr">30508 </span> 0x11/imm32/alloc-id:fake -<span id="L30509" class="LineNr">30509 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30510" class="LineNr">30510 </span> 0x11/imm32/alloc-id:fake -<span id="L30511" class="LineNr">30511 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30512" class="LineNr">30512 </span> 0x11/imm32/alloc-id:fake -<span id="L30513" class="LineNr">30513 </span> <a href='mu.subx.html#L34039'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L30514" class="LineNr">30514 </span> 3/imm32/rm32-is-first-output -<span id="L30515" class="LineNr">30515 </span> 0/imm32/no-r32 -<span id="L30516" class="LineNr">30516 </span> 1/imm32/imm32-is-first-inout -<span id="L30517" class="LineNr">30517 </span> 0/imm32/no-imm8 -<span id="L30518" class="LineNr">30518 </span> 0/imm32/no-disp32 -<span id="L30519" class="LineNr">30519 </span> 0/imm32/no-xm32 -<span id="L30520" class="LineNr">30520 </span> 0/imm32/no-x32 -<span id="L30521" class="LineNr">30521 </span> 0x11/imm32/alloc-id:fake -<span id="L30522" class="LineNr">30522 </span> <a href='mu.subx.html#L30523'>_Primitive-subtract-lit-from-mem</a>/imm32/next -<span id="L30523" class="LineNr">30523 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30524" class="LineNr">30524 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30525" class="LineNr">30525 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> -<span id="L30526" class="LineNr">30526 </span> 0x11/imm32/alloc-id:fake -<span id="L30527" class="LineNr">30527 </span> <a href='mu.subx.html#L33612'>_string-subtract-from</a>/imm32/name -<span id="L30528" class="LineNr">30528 </span> 0x11/imm32/alloc-id:fake -<span id="L30529" class="LineNr">30529 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30530" class="LineNr">30530 </span> 0/imm32/no-outputs -<span id="L30531" class="LineNr">30531 </span> 0/imm32/no-outputs -<span id="L30532" class="LineNr">30532 </span> 0x11/imm32/alloc-id:fake -<span id="L30533" class="LineNr">30533 </span> <a href='mu.subx.html#L34039'>_string_81_subop_subtract</a>/imm32/subx-name -<span id="L30534" class="LineNr">30534 </span> 1/imm32/rm32-is-first-inout -<span id="L30535" class="LineNr">30535 </span> 0/imm32/no-r32 -<span id="L30536" class="LineNr">30536 </span> 2/imm32/imm32-is-second-inout -<span id="L30537" class="LineNr">30537 </span> 0/imm32/no-imm8 -<span id="L30538" class="LineNr">30538 </span> 0/imm32/no-disp32 -<span id="L30539" class="LineNr">30539 </span> 0/imm32/no-xm32 -<span id="L30540" class="LineNr">30540 </span> 0/imm32/no-x32 -<span id="L30541" class="LineNr">30541 </span> 0x11/imm32/alloc-id:fake -<span id="L30542" class="LineNr">30542 </span> <a href='mu.subx.html#L30544'>_Primitive-and-with-eax</a>/imm32/next -<span id="L30543" class="LineNr">30543 </span><span class="subxH1Comment"># - and</span> -<span id="L30544" class="LineNr">30544 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30545" class="LineNr">30545 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30546" class="LineNr">30546 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> -<span id="L30547" class="LineNr">30547 </span> 0x11/imm32/alloc-id:fake -<span id="L30548" class="LineNr">30548 </span> <a href='mu.subx.html#L33347'>_string-and</a>/imm32/name -<span id="L30549" class="LineNr">30549 </span> 0x11/imm32/alloc-id:fake -<span id="L30550" class="LineNr">30550 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30551" class="LineNr">30551 </span> 0x11/imm32/alloc-id:fake -<span id="L30552" class="LineNr">30552 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30553" class="LineNr">30553 </span> 0x11/imm32/alloc-id:fake -<span id="L30554" class="LineNr">30554 </span> <a href='mu.subx.html#L33914'>_string_25_and_with_eax</a>/imm32/subx-name -<span id="L30555" class="LineNr">30555 </span> 0/imm32/no-rm32 -<span id="L30556" class="LineNr">30556 </span> 0/imm32/no-r32 -<span id="L30557" class="LineNr">30557 </span> 1/imm32/imm32-is-first-inout -<span id="L30558" class="LineNr">30558 </span> 0/imm32/no-imm8 -<span id="L30559" class="LineNr">30559 </span> 0/imm32/no-disp32 -<span id="L30560" class="LineNr">30560 </span> 0/imm32/no-xm32 -<span id="L30561" class="LineNr">30561 </span> 0/imm32/no-x32 -<span id="L30562" class="LineNr">30562 </span> 0x11/imm32/alloc-id:fake -<span id="L30563" class="LineNr">30563 </span> <a href='mu.subx.html#L30564'>_Primitive-and-reg-with-reg</a>/imm32/next -<span id="L30564" class="LineNr">30564 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30565" class="LineNr">30565 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30566" class="LineNr">30566 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> -<span id="L30567" class="LineNr">30567 </span> 0x11/imm32/alloc-id:fake -<span id="L30568" class="LineNr">30568 </span> <a href='mu.subx.html#L33347'>_string-and</a>/imm32/name -<span id="L30569" class="LineNr">30569 </span> 0x11/imm32/alloc-id:fake -<span id="L30570" class="LineNr">30570 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30571" class="LineNr">30571 </span> 0x11/imm32/alloc-id:fake -<span id="L30572" class="LineNr">30572 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30573" class="LineNr">30573 </span> 0x11/imm32/alloc-id:fake -<span id="L30574" class="LineNr">30574 </span> <a href='mu.subx.html#L33904'>_string_21_and_with</a>/imm32/subx-name -<span id="L30575" class="LineNr">30575 </span> 3/imm32/rm32-is-first-output -<span id="L30576" class="LineNr">30576 </span> 1/imm32/r32-is-first-inout -<span id="L30577" class="LineNr">30577 </span> 0/imm32/no-imm32 -<span id="L30578" class="LineNr">30578 </span> 0/imm32/no-imm8 -<span id="L30579" class="LineNr">30579 </span> 0/imm32/no-disp32 -<span id="L30580" class="LineNr">30580 </span> 0/imm32/no-xm32 -<span id="L30581" class="LineNr">30581 </span> 0/imm32/no-x32 -<span id="L30582" class="LineNr">30582 </span> 0x11/imm32/alloc-id:fake -<span id="L30583" class="LineNr">30583 </span> <a href='mu.subx.html#L30584'>_Primitive-and-reg-with-mem</a>/imm32/next -<span id="L30584" class="LineNr">30584 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30585" class="LineNr">30585 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30586" class="LineNr">30586 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> -<span id="L30587" class="LineNr">30587 </span> 0x11/imm32/alloc-id:fake -<span id="L30588" class="LineNr">30588 </span> <a href='mu.subx.html#L33352'>_string-and-with</a>/imm32/name -<span id="L30589" class="LineNr">30589 </span> 0x11/imm32/alloc-id:fake -<span id="L30590" class="LineNr">30590 </span> <span class="SpecialChar"><a href='mu.subx.html#L34198'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30591" class="LineNr">30591 </span> 0/imm32/no-outputs -<span id="L30592" class="LineNr">30592 </span> 0/imm32/no-outputs -<span id="L30593" class="LineNr">30593 </span> 0x11/imm32/alloc-id:fake -<span id="L30594" class="LineNr">30594 </span> <a href='mu.subx.html#L33904'>_string_21_and_with</a>/imm32/subx-name -<span id="L30595" class="LineNr">30595 </span> 1/imm32/rm32-is-first-inout -<span id="L30596" class="LineNr">30596 </span> 2/imm32/r32-is-second-inout -<span id="L30597" class="LineNr">30597 </span> 0/imm32/no-imm32 -<span id="L30598" class="LineNr">30598 </span> 0/imm32/no-imm8 -<span id="L30599" class="LineNr">30599 </span> 0/imm32/no-disp32 -<span id="L30600" class="LineNr">30600 </span> 0/imm32/no-xm32 -<span id="L30601" class="LineNr">30601 </span> 0/imm32/no-x32 -<span id="L30602" class="LineNr">30602 </span> 0x11/imm32/alloc-id:fake -<span id="L30603" class="LineNr">30603 </span> <a href='mu.subx.html#L30604'>_Primitive-and-mem-with-reg</a>/imm32/next -<span id="L30604" class="LineNr">30604 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30605" class="LineNr">30605 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30606" class="LineNr">30606 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> -<span id="L30607" class="LineNr">30607 </span> 0x11/imm32/alloc-id:fake -<span id="L30608" class="LineNr">30608 </span> <a href='mu.subx.html#L33347'>_string-and</a>/imm32/name -<span id="L30609" class="LineNr">30609 </span> 0x11/imm32/alloc-id:fake -<span id="L30610" class="LineNr">30610 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30611" class="LineNr">30611 </span> 0x11/imm32/alloc-id:fake -<span id="L30612" class="LineNr">30612 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30613" class="LineNr">30613 </span> 0x11/imm32/alloc-id:fake -<span id="L30614" class="LineNr">30614 </span> <a href='mu.subx.html#L33909'>_string_23_and</a>/imm32/subx-name -<span id="L30615" class="LineNr">30615 </span> 1/imm32/rm32-is-first-inout -<span id="L30616" class="LineNr">30616 </span> 3/imm32/r32-is-first-output -<span id="L30617" class="LineNr">30617 </span> 0/imm32/no-imm32 -<span id="L30618" class="LineNr">30618 </span> 0/imm32/no-imm8 -<span id="L30619" class="LineNr">30619 </span> 0/imm32/no-disp32 -<span id="L30620" class="LineNr">30620 </span> 0/imm32/no-xm32 -<span id="L30621" class="LineNr">30621 </span> 0/imm32/no-x32 -<span id="L30622" class="LineNr">30622 </span> 0x11/imm32/alloc-id:fake -<span id="L30623" class="LineNr">30623 </span> <a href='mu.subx.html#L30624'>_Primitive-and-lit-with-reg</a>/imm32/next -<span id="L30624" class="LineNr">30624 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30625" class="LineNr">30625 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30626" class="LineNr">30626 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> -<span id="L30627" class="LineNr">30627 </span> 0x11/imm32/alloc-id:fake -<span id="L30628" class="LineNr">30628 </span> <a href='mu.subx.html#L33347'>_string-and</a>/imm32/name -<span id="L30629" class="LineNr">30629 </span> 0x11/imm32/alloc-id:fake -<span id="L30630" class="LineNr">30630 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30631" class="LineNr">30631 </span> 0x11/imm32/alloc-id:fake -<span id="L30632" class="LineNr">30632 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30633" class="LineNr">30633 </span> 0x11/imm32/alloc-id:fake -<span id="L30634" class="LineNr">30634 </span> <a href='mu.subx.html#L34034'>_string_81_subop_and</a>/imm32/subx-name -<span id="L30635" class="LineNr">30635 </span> 3/imm32/rm32-is-first-output -<span id="L30636" class="LineNr">30636 </span> 0/imm32/no-r32 -<span id="L30637" class="LineNr">30637 </span> 1/imm32/imm32-is-first-inout -<span id="L30638" class="LineNr">30638 </span> 0/imm32/no-imm8 -<span id="L30639" class="LineNr">30639 </span> 0/imm32/no-disp32 -<span id="L30640" class="LineNr">30640 </span> 0/imm32/no-xm32 -<span id="L30641" class="LineNr">30641 </span> 0/imm32/no-x32 -<span id="L30642" class="LineNr">30642 </span> 0x11/imm32/alloc-id:fake -<span id="L30643" class="LineNr">30643 </span> <a href='mu.subx.html#L30644'>_Primitive-and-lit-with-mem</a>/imm32/next -<span id="L30644" class="LineNr">30644 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30645" class="LineNr">30645 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30646" class="LineNr">30646 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> -<span id="L30647" class="LineNr">30647 </span> 0x11/imm32/alloc-id:fake -<span id="L30648" class="LineNr">30648 </span> <a href='mu.subx.html#L33352'>_string-and-with</a>/imm32/name -<span id="L30649" class="LineNr">30649 </span> 0x11/imm32/alloc-id:fake -<span id="L30650" class="LineNr">30650 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30651" class="LineNr">30651 </span> 0/imm32/no-outputs -<span id="L30652" class="LineNr">30652 </span> 0/imm32/no-outputs -<span id="L30653" class="LineNr">30653 </span> 0x11/imm32/alloc-id:fake -<span id="L30654" class="LineNr">30654 </span> <a href='mu.subx.html#L34034'>_string_81_subop_and</a>/imm32/subx-name -<span id="L30655" class="LineNr">30655 </span> 1/imm32/rm32-is-first-inout -<span id="L30656" class="LineNr">30656 </span> 0/imm32/no-r32 -<span id="L30657" class="LineNr">30657 </span> 2/imm32/imm32-is-second-inout -<span id="L30658" class="LineNr">30658 </span> 0/imm32/no-imm8 -<span id="L30659" class="LineNr">30659 </span> 0/imm32/no-disp32 -<span id="L30660" class="LineNr">30660 </span> 0/imm32/no-xm32 -<span id="L30661" class="LineNr">30661 </span> 0/imm32/no-x32 -<span id="L30662" class="LineNr">30662 </span> 0x11/imm32/alloc-id:fake -<span id="L30663" class="LineNr">30663 </span> <a href='mu.subx.html#L30665'>_Primitive-or-with-eax</a>/imm32/next -<span id="L30664" class="LineNr">30664 </span><span class="subxH1Comment"># - or</span> -<span id="L30665" class="LineNr">30665 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30666" class="LineNr">30666 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30667" class="LineNr">30667 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> -<span id="L30668" class="LineNr">30668 </span> 0x11/imm32/alloc-id:fake -<span id="L30669" class="LineNr">30669 </span> <a href='mu.subx.html#L33597'>_string-or</a>/imm32/name -<span id="L30670" class="LineNr">30670 </span> 0x11/imm32/alloc-id:fake -<span id="L30671" class="LineNr">30671 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30672" class="LineNr">30672 </span> 0x11/imm32/alloc-id:fake -<span id="L30673" class="LineNr">30673 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30674" class="LineNr">30674 </span> 0x11/imm32/alloc-id:fake -<span id="L30675" class="LineNr">30675 </span> <a href='mu.subx.html#L33669'>_string_0d_or_with_eax</a>/imm32/subx-name -<span id="L30676" class="LineNr">30676 </span> 0/imm32/no-rm32 -<span id="L30677" class="LineNr">30677 </span> 0/imm32/no-r32 -<span id="L30678" class="LineNr">30678 </span> 1/imm32/imm32-is-first-inout -<span id="L30679" class="LineNr">30679 </span> 0/imm32/no-imm8 -<span id="L30680" class="LineNr">30680 </span> 0/imm32/no-disp32 -<span id="L30681" class="LineNr">30681 </span> 0/imm32/no-xm32 -<span id="L30682" class="LineNr">30682 </span> 0/imm32/no-x32 -<span id="L30683" class="LineNr">30683 </span> 0x11/imm32/alloc-id:fake -<span id="L30684" class="LineNr">30684 </span> <a href='mu.subx.html#L30685'>_Primitive-or-reg-with-reg</a>/imm32/next -<span id="L30685" class="LineNr">30685 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30686" class="LineNr">30686 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30687" class="LineNr">30687 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> -<span id="L30688" class="LineNr">30688 </span> 0x11/imm32/alloc-id:fake -<span id="L30689" class="LineNr">30689 </span> <a href='mu.subx.html#L33597'>_string-or</a>/imm32/name -<span id="L30690" class="LineNr">30690 </span> 0x11/imm32/alloc-id:fake -<span id="L30691" class="LineNr">30691 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30692" class="LineNr">30692 </span> 0x11/imm32/alloc-id:fake -<span id="L30693" class="LineNr">30693 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30694" class="LineNr">30694 </span> 0x11/imm32/alloc-id:fake -<span id="L30695" class="LineNr">30695 </span> <a href='mu.subx.html#L33659'>_string_09_or_with</a>/imm32/subx-name -<span id="L30696" class="LineNr">30696 </span> 3/imm32/rm32-is-first-output -<span id="L30697" class="LineNr">30697 </span> 1/imm32/r32-is-first-inout -<span id="L30698" class="LineNr">30698 </span> 0/imm32/no-imm32 -<span id="L30699" class="LineNr">30699 </span> 0/imm32/no-imm8 -<span id="L30700" class="LineNr">30700 </span> 0/imm32/no-disp32 -<span id="L30701" class="LineNr">30701 </span> 0/imm32/no-xm32 -<span id="L30702" class="LineNr">30702 </span> 0/imm32/no-x32 -<span id="L30703" class="LineNr">30703 </span> 0x11/imm32/alloc-id:fake -<span id="L30704" class="LineNr">30704 </span> <a href='mu.subx.html#L30705'>_Primitive-or-reg-with-mem</a>/imm32/next -<span id="L30705" class="LineNr">30705 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30706" class="LineNr">30706 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30707" class="LineNr">30707 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> -<span id="L30708" class="LineNr">30708 </span> 0x11/imm32/alloc-id:fake -<span id="L30709" class="LineNr">30709 </span> <a href='mu.subx.html#L33602'>_string-or-with</a>/imm32/name -<span id="L30710" class="LineNr">30710 </span> 0x11/imm32/alloc-id:fake -<span id="L30711" class="LineNr">30711 </span> <span class="SpecialChar"><a href='mu.subx.html#L34198'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30712" class="LineNr">30712 </span> 0/imm32/no-outputs -<span id="L30713" class="LineNr">30713 </span> 0/imm32/no-outputs -<span id="L30714" class="LineNr">30714 </span> 0x11/imm32/alloc-id:fake -<span id="L30715" class="LineNr">30715 </span> <a href='mu.subx.html#L33659'>_string_09_or_with</a>/imm32/subx-name -<span id="L30716" class="LineNr">30716 </span> 1/imm32/rm32-is-first-inout -<span id="L30717" class="LineNr">30717 </span> 2/imm32/r32-is-second-inout -<span id="L30718" class="LineNr">30718 </span> 0/imm32/no-imm32 -<span id="L30719" class="LineNr">30719 </span> 0/imm32/no-imm8 -<span id="L30720" class="LineNr">30720 </span> 0/imm32/no-disp32 -<span id="L30721" class="LineNr">30721 </span> 0/imm32/no-xm32 -<span id="L30722" class="LineNr">30722 </span> 0/imm32/no-x32 -<span id="L30723" class="LineNr">30723 </span> 0x11/imm32/alloc-id:fake -<span id="L30724" class="LineNr">30724 </span> <a href='mu.subx.html#L30725'>_Primitive-or-mem-with-reg</a>/imm32/next -<span id="L30725" class="LineNr">30725 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30726" class="LineNr">30726 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30727" class="LineNr">30727 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> -<span id="L30728" class="LineNr">30728 </span> 0x11/imm32/alloc-id:fake -<span id="L30729" class="LineNr">30729 </span> <a href='mu.subx.html#L33597'>_string-or</a>/imm32/name -<span id="L30730" class="LineNr">30730 </span> 0x11/imm32/alloc-id:fake -<span id="L30731" class="LineNr">30731 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30732" class="LineNr">30732 </span> 0x11/imm32/alloc-id:fake -<span id="L30733" class="LineNr">30733 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30734" class="LineNr">30734 </span> 0x11/imm32/alloc-id:fake -<span id="L30735" class="LineNr">30735 </span> <a href='mu.subx.html#L33664'>_string_0b_or</a>/imm32/subx-name -<span id="L30736" class="LineNr">30736 </span> 1/imm32/rm32-is-first-inout -<span id="L30737" class="LineNr">30737 </span> 3/imm32/r32-is-first-output -<span id="L30738" class="LineNr">30738 </span> 0/imm32/no-imm32 -<span id="L30739" class="LineNr">30739 </span> 0/imm32/no-imm8 -<span id="L30740" class="LineNr">30740 </span> 0/imm32/no-disp32 -<span id="L30741" class="LineNr">30741 </span> 0/imm32/no-xm32 -<span id="L30742" class="LineNr">30742 </span> 0/imm32/no-x32 -<span id="L30743" class="LineNr">30743 </span> 0x11/imm32/alloc-id:fake -<span id="L30744" class="LineNr">30744 </span> <a href='mu.subx.html#L30745'>_Primitive-or-lit-with-reg</a>/imm32/next -<span id="L30745" class="LineNr">30745 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30746" class="LineNr">30746 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30747" class="LineNr">30747 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L30748" class="LineNr">30748 </span> 0x11/imm32/alloc-id:fake -<span id="L30749" class="LineNr">30749 </span> <a href='mu.subx.html#L33597'>_string-or</a>/imm32/name -<span id="L30750" class="LineNr">30750 </span> 0x11/imm32/alloc-id:fake -<span id="L30751" class="LineNr">30751 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30752" class="LineNr">30752 </span> 0x11/imm32/alloc-id:fake -<span id="L30753" class="LineNr">30753 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30754" class="LineNr">30754 </span> 0x11/imm32/alloc-id:fake -<span id="L30755" class="LineNr">30755 </span> <a href='mu.subx.html#L34029'>_string_81_subop_or</a>/imm32/subx-name -<span id="L30756" class="LineNr">30756 </span> 3/imm32/rm32-is-first-output -<span id="L30757" class="LineNr">30757 </span> 0/imm32/no-r32 -<span id="L30758" class="LineNr">30758 </span> 1/imm32/imm32-is-first-inout -<span id="L30759" class="LineNr">30759 </span> 0/imm32/no-imm8 -<span id="L30760" class="LineNr">30760 </span> 0/imm32/no-disp32 -<span id="L30761" class="LineNr">30761 </span> 0/imm32/no-xm32 -<span id="L30762" class="LineNr">30762 </span> 0/imm32/no-x32 -<span id="L30763" class="LineNr">30763 </span> 0x11/imm32/alloc-id:fake -<span id="L30764" class="LineNr">30764 </span> <a href='mu.subx.html#L30765'>_Primitive-or-lit-with-mem</a>/imm32/next -<span id="L30765" class="LineNr">30765 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30766" class="LineNr">30766 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30767" class="LineNr">30767 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> -<span id="L30768" class="LineNr">30768 </span> 0x11/imm32/alloc-id:fake -<span id="L30769" class="LineNr">30769 </span> <a href='mu.subx.html#L33602'>_string-or-with</a>/imm32/name -<span id="L30770" class="LineNr">30770 </span> 0x11/imm32/alloc-id:fake -<span id="L30771" class="LineNr">30771 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30772" class="LineNr">30772 </span> 0/imm32/no-outputs -<span id="L30773" class="LineNr">30773 </span> 0/imm32/no-outputs -<span id="L30774" class="LineNr">30774 </span> 0x11/imm32/alloc-id:fake -<span id="L30775" class="LineNr">30775 </span> <a href='mu.subx.html#L34029'>_string_81_subop_or</a>/imm32/subx-name -<span id="L30776" class="LineNr">30776 </span> 1/imm32/rm32-is-first-inout -<span id="L30777" class="LineNr">30777 </span> 0/imm32/no-r32 -<span id="L30778" class="LineNr">30778 </span> 2/imm32/imm32-is-second-inout -<span id="L30779" class="LineNr">30779 </span> 0/imm32/no-imm8 -<span id="L30780" class="LineNr">30780 </span> 0/imm32/no-disp32 -<span id="L30781" class="LineNr">30781 </span> 0/imm32/no-xm32 -<span id="L30782" class="LineNr">30782 </span> 0/imm32/no-x32 -<span id="L30783" class="LineNr">30783 </span> 0x11/imm32/alloc-id:fake -<span id="L30784" class="LineNr">30784 </span> <a href='mu.subx.html#L30786'>_Primitive-xor-with-eax</a>/imm32/next -<span id="L30785" class="LineNr">30785 </span><span class="subxH1Comment"># - xor</span> -<span id="L30786" class="LineNr">30786 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30787" class="LineNr">30787 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30788" class="LineNr">30788 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> -<span id="L30789" class="LineNr">30789 </span> 0x11/imm32/alloc-id:fake -<span id="L30790" class="LineNr">30790 </span> <a href='mu.subx.html#L33617'>_string-xor</a>/imm32/name -<span id="L30791" class="LineNr">30791 </span> 0x11/imm32/alloc-id:fake -<span id="L30792" class="LineNr">30792 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30793" class="LineNr">30793 </span> 0x11/imm32/alloc-id:fake -<span id="L30794" class="LineNr">30794 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L30795" class="LineNr">30795 </span> 0x11/imm32/alloc-id:fake -<span id="L30796" class="LineNr">30796 </span> <a href='mu.subx.html#L33944'>_string_35_xor_with_eax</a>/imm32/subx-name -<span id="L30797" class="LineNr">30797 </span> 0/imm32/no-rm32 -<span id="L30798" class="LineNr">30798 </span> 0/imm32/no-r32 -<span id="L30799" class="LineNr">30799 </span> 1/imm32/imm32-is-first-inout -<span id="L30800" class="LineNr">30800 </span> 0/imm32/no-imm8 -<span id="L30801" class="LineNr">30801 </span> 0/imm32/no-disp32 -<span id="L30802" class="LineNr">30802 </span> 0/imm32/no-xm32 -<span id="L30803" class="LineNr">30803 </span> 0/imm32/no-x32 -<span id="L30804" class="LineNr">30804 </span> 0x11/imm32/alloc-id:fake -<span id="L30805" class="LineNr">30805 </span> <a href='mu.subx.html#L30806'>_Primitive-xor-reg-with-reg</a>/imm32/next -<span id="L30806" class="LineNr">30806 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30807" class="LineNr">30807 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30808" class="LineNr">30808 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> -<span id="L30809" class="LineNr">30809 </span> 0x11/imm32/alloc-id:fake -<span id="L30810" class="LineNr">30810 </span> <a href='mu.subx.html#L33617'>_string-xor</a>/imm32/name -<span id="L30811" class="LineNr">30811 </span> 0x11/imm32/alloc-id:fake -<span id="L30812" class="LineNr">30812 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L30813" class="LineNr">30813 </span> 0x11/imm32/alloc-id:fake -<span id="L30814" class="LineNr">30814 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30815" class="LineNr">30815 </span> 0x11/imm32/alloc-id:fake -<span id="L30816" class="LineNr">30816 </span> <a href='mu.subx.html#L33934'>_string_31_xor_with</a>/imm32/subx-name -<span id="L30817" class="LineNr">30817 </span> 3/imm32/rm32-is-first-output -<span id="L30818" class="LineNr">30818 </span> 1/imm32/r32-is-first-inout -<span id="L30819" class="LineNr">30819 </span> 0/imm32/no-imm32 -<span id="L30820" class="LineNr">30820 </span> 0/imm32/no-imm8 -<span id="L30821" class="LineNr">30821 </span> 0/imm32/no-disp32 -<span id="L30822" class="LineNr">30822 </span> 0/imm32/no-xm32 -<span id="L30823" class="LineNr">30823 </span> 0/imm32/no-x32 -<span id="L30824" class="LineNr">30824 </span> 0x11/imm32/alloc-id:fake -<span id="L30825" class="LineNr">30825 </span> <a href='mu.subx.html#L30826'>_Primitive-xor-reg-with-mem</a>/imm32/next -<span id="L30826" class="LineNr">30826 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30827" class="LineNr">30827 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30828" class="LineNr">30828 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> -<span id="L30829" class="LineNr">30829 </span> 0x11/imm32/alloc-id:fake -<span id="L30830" class="LineNr">30830 </span> <a href='mu.subx.html#L33622'>_string-xor-with</a>/imm32/name -<span id="L30831" class="LineNr">30831 </span> 0x11/imm32/alloc-id:fake -<span id="L30832" class="LineNr">30832 </span> <span class="SpecialChar"><a href='mu.subx.html#L34198'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L30833" class="LineNr">30833 </span> 0/imm32/no-outputs -<span id="L30834" class="LineNr">30834 </span> 0/imm32/no-outputs -<span id="L30835" class="LineNr">30835 </span> 0x11/imm32/alloc-id:fake -<span id="L30836" class="LineNr">30836 </span> <a href='mu.subx.html#L33934'>_string_31_xor_with</a>/imm32/subx-name -<span id="L30837" class="LineNr">30837 </span> 1/imm32/rm32-is-first-inout -<span id="L30838" class="LineNr">30838 </span> 2/imm32/r32-is-second-inout -<span id="L30839" class="LineNr">30839 </span> 0/imm32/no-imm32 -<span id="L30840" class="LineNr">30840 </span> 0/imm32/no-imm8 -<span id="L30841" class="LineNr">30841 </span> 0/imm32/no-disp32 -<span id="L30842" class="LineNr">30842 </span> 0/imm32/no-xm32 -<span id="L30843" class="LineNr">30843 </span> 0/imm32/no-x32 -<span id="L30844" class="LineNr">30844 </span> 0x11/imm32/alloc-id:fake -<span id="L30845" class="LineNr">30845 </span> <a href='mu.subx.html#L30846'>_Primitive-xor-mem-with-reg</a>/imm32/next -<span id="L30846" class="LineNr">30846 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30847" class="LineNr">30847 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30848" class="LineNr">30848 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> -<span id="L30849" class="LineNr">30849 </span> 0x11/imm32/alloc-id:fake -<span id="L30850" class="LineNr">30850 </span> <a href='mu.subx.html#L33617'>_string-xor</a>/imm32/name -<span id="L30851" class="LineNr">30851 </span> 0x11/imm32/alloc-id:fake -<span id="L30852" class="LineNr">30852 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L30853" class="LineNr">30853 </span> 0x11/imm32/alloc-id:fake -<span id="L30854" class="LineNr">30854 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30855" class="LineNr">30855 </span> 0x11/imm32/alloc-id:fake -<span id="L30856" class="LineNr">30856 </span> <a href='mu.subx.html#L33939'>_string_33_xor</a>/imm32/subx-name -<span id="L30857" class="LineNr">30857 </span> 1/imm32/rm32-is-first-inout -<span id="L30858" class="LineNr">30858 </span> 3/imm32/r32-is-first-output -<span id="L30859" class="LineNr">30859 </span> 0/imm32/no-imm32 -<span id="L30860" class="LineNr">30860 </span> 0/imm32/no-imm8 -<span id="L30861" class="LineNr">30861 </span> 0/imm32/no-disp32 -<span id="L30862" class="LineNr">30862 </span> 0/imm32/no-xm32 -<span id="L30863" class="LineNr">30863 </span> 0/imm32/no-x32 -<span id="L30864" class="LineNr">30864 </span> 0x11/imm32/alloc-id:fake -<span id="L30865" class="LineNr">30865 </span> <a href='mu.subx.html#L30866'>_Primitive-xor-lit-with-reg</a>/imm32/next -<span id="L30866" class="LineNr">30866 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30867" class="LineNr">30867 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30868" class="LineNr">30868 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L30869" class="LineNr">30869 </span> 0x11/imm32/alloc-id:fake -<span id="L30870" class="LineNr">30870 </span> <a href='mu.subx.html#L33617'>_string-xor</a>/imm32/name -<span id="L30871" class="LineNr">30871 </span> 0x11/imm32/alloc-id:fake -<span id="L30872" class="LineNr">30872 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30873" class="LineNr">30873 </span> 0x11/imm32/alloc-id:fake -<span id="L30874" class="LineNr">30874 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30875" class="LineNr">30875 </span> 0x11/imm32/alloc-id:fake -<span id="L30876" class="LineNr">30876 </span> <a href='mu.subx.html#L34044'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L30877" class="LineNr">30877 </span> 3/imm32/rm32-is-first-output -<span id="L30878" class="LineNr">30878 </span> 0/imm32/no-r32 -<span id="L30879" class="LineNr">30879 </span> 1/imm32/imm32-is-first-inout -<span id="L30880" class="LineNr">30880 </span> 0/imm32/no-imm8 -<span id="L30881" class="LineNr">30881 </span> 0/imm32/no-disp32 -<span id="L30882" class="LineNr">30882 </span> 0/imm32/no-xm32 -<span id="L30883" class="LineNr">30883 </span> 0/imm32/no-x32 -<span id="L30884" class="LineNr">30884 </span> 0x11/imm32/alloc-id:fake -<span id="L30885" class="LineNr">30885 </span> <a href='mu.subx.html#L30886'>_Primitive-xor-lit-with-mem</a>/imm32/next -<span id="L30886" class="LineNr">30886 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30887" class="LineNr">30887 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30888" class="LineNr">30888 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> -<span id="L30889" class="LineNr">30889 </span> 0x11/imm32/alloc-id:fake -<span id="L30890" class="LineNr">30890 </span> <a href='mu.subx.html#L33622'>_string-xor-with</a>/imm32/name -<span id="L30891" class="LineNr">30891 </span> 0x11/imm32/alloc-id:fake -<span id="L30892" class="LineNr">30892 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30893" class="LineNr">30893 </span> 0/imm32/no-outputs -<span id="L30894" class="LineNr">30894 </span> 0/imm32/no-outputs -<span id="L30895" class="LineNr">30895 </span> 0x11/imm32/alloc-id:fake -<span id="L30896" class="LineNr">30896 </span> <a href='mu.subx.html#L34044'>_string_81_subop_xor</a>/imm32/subx-name -<span id="L30897" class="LineNr">30897 </span> 1/imm32/rm32-is-first-inout -<span id="L30898" class="LineNr">30898 </span> 0/imm32/no-r32 -<span id="L30899" class="LineNr">30899 </span> 2/imm32/imm32-is-second-inout -<span id="L30900" class="LineNr">30900 </span> 0/imm32/no-imm8 -<span id="L30901" class="LineNr">30901 </span> 0/imm32/no-disp32 -<span id="L30902" class="LineNr">30902 </span> 0/imm32/no-xm32 -<span id="L30903" class="LineNr">30903 </span> 0/imm32/no-x32 -<span id="L30904" class="LineNr">30904 </span> 0x11/imm32/alloc-id:fake -<span id="L30905" class="LineNr">30905 </span> <a href='mu.subx.html#L30906'>_Primitive-shift-reg-left-by-lit</a>/imm32/next -<span id="L30906" class="LineNr">30906 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30907" class="LineNr">30907 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30908" class="LineNr">30908 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L30909" class="LineNr">30909 </span> 0x11/imm32/alloc-id:fake -<span id="L30910" class="LineNr">30910 </span> <a href='mu.subx.html#L33627'>_string-shift-left</a>/imm32/name -<span id="L30911" class="LineNr">30911 </span> 0x11/imm32/alloc-id:fake -<span id="L30912" class="LineNr">30912 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30913" class="LineNr">30913 </span> 0x11/imm32/alloc-id:fake -<span id="L30914" class="LineNr">30914 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30915" class="LineNr">30915 </span> 0x11/imm32/alloc-id:fake -<span id="L30916" class="LineNr">30916 </span> <a href='mu.subx.html#L34144'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L30917" class="LineNr">30917 </span> 3/imm32/rm32-is-first-output -<span id="L30918" class="LineNr">30918 </span> 0/imm32/no-r32 -<span id="L30919" class="LineNr">30919 </span> 0/imm32/no-imm32 -<span id="L30920" class="LineNr">30920 </span> 1/imm32/imm8-is-first-inout -<span id="L30921" class="LineNr">30921 </span> 0/imm32/no-disp32 -<span id="L30922" class="LineNr">30922 </span> 0/imm32/no-xm32 -<span id="L30923" class="LineNr">30923 </span> 0/imm32/no-x32 -<span id="L30924" class="LineNr">30924 </span> 0x11/imm32/alloc-id:fake -<span id="L30925" class="LineNr">30925 </span> <a href='mu.subx.html#L30926'>_Primitive-shift-reg-right-by-lit</a>/imm32/next -<span id="L30926" class="LineNr">30926 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30927" class="LineNr">30927 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30928" class="LineNr">30928 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L30929" class="LineNr">30929 </span> 0x11/imm32/alloc-id:fake -<span id="L30930" class="LineNr">30930 </span> <a href='mu.subx.html#L33632'>_string-shift-right</a>/imm32/name -<span id="L30931" class="LineNr">30931 </span> 0x11/imm32/alloc-id:fake -<span id="L30932" class="LineNr">30932 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30933" class="LineNr">30933 </span> 0x11/imm32/alloc-id:fake -<span id="L30934" class="LineNr">30934 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30935" class="LineNr">30935 </span> 0x11/imm32/alloc-id:fake -<span id="L30936" class="LineNr">30936 </span> <a href='mu.subx.html#L34149'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L30937" class="LineNr">30937 </span> 3/imm32/rm32-is-first-output -<span id="L30938" class="LineNr">30938 </span> 0/imm32/no-r32 -<span id="L30939" class="LineNr">30939 </span> 0/imm32/no-imm32 -<span id="L30940" class="LineNr">30940 </span> 1/imm32/imm8-is-first-inout -<span id="L30941" class="LineNr">30941 </span> 0/imm32/no-disp32 -<span id="L30942" class="LineNr">30942 </span> 0/imm32/no-xm32 -<span id="L30943" class="LineNr">30943 </span> 0/imm32/no-x32 -<span id="L30944" class="LineNr">30944 </span> 0x11/imm32/alloc-id:fake -<span id="L30945" class="LineNr">30945 </span> <a href='mu.subx.html#L30946'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next -<span id="L30946" class="LineNr">30946 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30947" class="LineNr">30947 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30948" class="LineNr">30948 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L30949" class="LineNr">30949 </span> 0x11/imm32/alloc-id:fake -<span id="L30950" class="LineNr">30950 </span> <a href='mu.subx.html#L33637'>_string-shift-right-signed</a>/imm32/name -<span id="L30951" class="LineNr">30951 </span> 0x11/imm32/alloc-id:fake -<span id="L30952" class="LineNr">30952 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L30953" class="LineNr">30953 </span> 0x11/imm32/alloc-id:fake -<span id="L30954" class="LineNr">30954 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L30955" class="LineNr">30955 </span> 0x11/imm32/alloc-id:fake -<span id="L30956" class="LineNr">30956 </span> <a href='mu.subx.html#L34154'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L30957" class="LineNr">30957 </span> 3/imm32/rm32-is-first-output -<span id="L30958" class="LineNr">30958 </span> 0/imm32/no-r32 -<span id="L30959" class="LineNr">30959 </span> 0/imm32/no-imm32 -<span id="L30960" class="LineNr">30960 </span> 1/imm32/imm8-is-first-inout -<span id="L30961" class="LineNr">30961 </span> 0/imm32/no-disp32 -<span id="L30962" class="LineNr">30962 </span> 0/imm32/no-xm32 -<span id="L30963" class="LineNr">30963 </span> 0/imm32/no-x32 -<span id="L30964" class="LineNr">30964 </span> 0x11/imm32/alloc-id:fake -<span id="L30965" class="LineNr">30965 </span> <a href='mu.subx.html#L30966'>_Primitive-shift-mem-left-by-lit</a>/imm32/next -<span id="L30966" class="LineNr">30966 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30967" class="LineNr">30967 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30968" class="LineNr">30968 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> -<span id="L30969" class="LineNr">30969 </span> 0x11/imm32/alloc-id:fake -<span id="L30970" class="LineNr">30970 </span> <a href='mu.subx.html#L33627'>_string-shift-left</a>/imm32/name -<span id="L30971" class="LineNr">30971 </span> 0x11/imm32/alloc-id:fake -<span id="L30972" class="LineNr">30972 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30973" class="LineNr">30973 </span> 0/imm32/no-outputs -<span id="L30974" class="LineNr">30974 </span> 0/imm32/no-outputs -<span id="L30975" class="LineNr">30975 </span> 0x11/imm32/alloc-id:fake -<span id="L30976" class="LineNr">30976 </span> <a href='mu.subx.html#L34144'>_string_c1_subop_shift_left</a>/imm32/subx-name -<span id="L30977" class="LineNr">30977 </span> 1/imm32/rm32-is-first-inout -<span id="L30978" class="LineNr">30978 </span> 0/imm32/no-r32 -<span id="L30979" class="LineNr">30979 </span> 0/imm32/no-imm32 -<span id="L30980" class="LineNr">30980 </span> 2/imm32/imm8-is-second-inout -<span id="L30981" class="LineNr">30981 </span> 0/imm32/no-disp32 -<span id="L30982" class="LineNr">30982 </span> 0/imm32/no-xm32 -<span id="L30983" class="LineNr">30983 </span> 0/imm32/no-x32 -<span id="L30984" class="LineNr">30984 </span> 0x11/imm32/alloc-id:fake -<span id="L30985" class="LineNr">30985 </span> <a href='mu.subx.html#L30986'>_Primitive-shift-mem-right-by-lit</a>/imm32/next -<span id="L30986" class="LineNr">30986 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L30987" class="LineNr">30987 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L30988" class="LineNr">30988 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> -<span id="L30989" class="LineNr">30989 </span> 0x11/imm32/alloc-id:fake -<span id="L30990" class="LineNr">30990 </span> <a href='mu.subx.html#L33632'>_string-shift-right</a>/imm32/name -<span id="L30991" class="LineNr">30991 </span> 0x11/imm32/alloc-id:fake -<span id="L30992" class="LineNr">30992 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L30993" class="LineNr">30993 </span> 0/imm32/no-outputs -<span id="L30994" class="LineNr">30994 </span> 0/imm32/no-outputs -<span id="L30995" class="LineNr">30995 </span> 0x11/imm32/alloc-id:fake -<span id="L30996" class="LineNr">30996 </span> <a href='mu.subx.html#L34149'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name -<span id="L30997" class="LineNr">30997 </span> 1/imm32/rm32-is-first-inout -<span id="L30998" class="LineNr">30998 </span> 0/imm32/no-r32 -<span id="L30999" class="LineNr">30999 </span> 0/imm32/no-imm32 -<span id="L31000" class="LineNr">31000 </span> 2/imm32/imm8-is-second-inout -<span id="L31001" class="LineNr">31001 </span> 0/imm32/no-disp32 -<span id="L31002" class="LineNr">31002 </span> 0/imm32/no-xm32 -<span id="L31003" class="LineNr">31003 </span> 0/imm32/no-x32 -<span id="L31004" class="LineNr">31004 </span> 0x11/imm32/alloc-id:fake -<span id="L31005" class="LineNr">31005 </span> <a href='mu.subx.html#L31006'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next -<span id="L31006" class="LineNr">31006 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31007" class="LineNr">31007 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31008" class="LineNr">31008 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> -<span id="L31009" class="LineNr">31009 </span> 0x11/imm32/alloc-id:fake -<span id="L31010" class="LineNr">31010 </span> <a href='mu.subx.html#L33637'>_string-shift-right-signed</a>/imm32/name -<span id="L31011" class="LineNr">31011 </span> 0x11/imm32/alloc-id:fake -<span id="L31012" class="LineNr">31012 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31013" class="LineNr">31013 </span> 0/imm32/no-outputs -<span id="L31014" class="LineNr">31014 </span> 0/imm32/no-outputs -<span id="L31015" class="LineNr">31015 </span> 0x11/imm32/alloc-id:fake -<span id="L31016" class="LineNr">31016 </span> <a href='mu.subx.html#L34154'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name -<span id="L31017" class="LineNr">31017 </span> 1/imm32/rm32-is-first-inout -<span id="L31018" class="LineNr">31018 </span> 0/imm32/no-r32 -<span id="L31019" class="LineNr">31019 </span> 0/imm32/no-imm32 -<span id="L31020" class="LineNr">31020 </span> 2/imm32/imm8-is-second-inout -<span id="L31021" class="LineNr">31021 </span> 0/imm32/no-disp32 -<span id="L31022" class="LineNr">31022 </span> 0/imm32/no-xm32 -<span id="L31023" class="LineNr">31023 </span> 0/imm32/no-x32 -<span id="L31024" class="LineNr">31024 </span> 0x11/imm32/alloc-id:fake -<span id="L31025" class="LineNr">31025 </span> <a href='mu.subx.html#L31027'>_Primitive-copy-to-eax</a>/imm32/next -<span id="L31026" class="LineNr">31026 </span><span class="subxH1Comment"># - copy</span> -<span id="L31027" class="LineNr">31027 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31028" class="LineNr">31028 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31029" class="LineNr">31029 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> -<span id="L31030" class="LineNr">31030 </span> 0x11/imm32/alloc-id:fake -<span id="L31031" class="LineNr">31031 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31032" class="LineNr">31032 </span> 0x11/imm32/alloc-id:fake -<span id="L31033" class="LineNr">31033 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L31034" class="LineNr">31034 </span> 0x11/imm32/alloc-id:fake -<span id="L31035" class="LineNr">31035 </span> <span class="SpecialChar"><a href='mu.subx.html#L34329'>Single-int-var-in-eax</a></span>/imm32/outputs -<span id="L31036" class="LineNr">31036 </span> 0x11/imm32/alloc-id:fake -<span id="L31037" class="LineNr">31037 </span> <a href='mu.subx.html#L34079'>_string_b8_copy_to_eax</a>/imm32/subx-name -<span id="L31038" class="LineNr">31038 </span> 0/imm32/no-rm32 -<span id="L31039" class="LineNr">31039 </span> 0/imm32/no-r32 -<span id="L31040" class="LineNr">31040 </span> 1/imm32/imm32-is-first-inout -<span id="L31041" class="LineNr">31041 </span> 0/imm32/no-imm8 -<span id="L31042" class="LineNr">31042 </span> 0/imm32/no-disp32 -<span id="L31043" class="LineNr">31043 </span> 0/imm32/no-xm32 -<span id="L31044" class="LineNr">31044 </span> 0/imm32/no-x32 -<span id="L31045" class="LineNr">31045 </span> 0x11/imm32/alloc-id:fake -<span id="L31046" class="LineNr">31046 </span> <a href='mu.subx.html#L31047'>_Primitive-copy-to-ecx</a>/imm32/next -<span id="L31047" class="LineNr">31047 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31048" class="LineNr">31048 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31049" class="LineNr">31049 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> -<span id="L31050" class="LineNr">31050 </span> 0x11/imm32/alloc-id:fake -<span id="L31051" class="LineNr">31051 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31052" class="LineNr">31052 </span> 0x11/imm32/alloc-id:fake -<span id="L31053" class="LineNr">31053 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L31054" class="LineNr">31054 </span> 0x11/imm32/alloc-id:fake -<span id="L31055" class="LineNr">31055 </span> <span class="SpecialChar"><a href='mu.subx.html#L34347'>Single-int-var-in-ecx</a></span>/imm32/outputs -<span id="L31056" class="LineNr">31056 </span> 0x11/imm32/alloc-id:fake -<span id="L31057" class="LineNr">31057 </span> <a href='mu.subx.html#L34084'>_string_b9_copy_to_ecx</a>/imm32/subx-name -<span id="L31058" class="LineNr">31058 </span> 0/imm32/no-rm32 -<span id="L31059" class="LineNr">31059 </span> 0/imm32/no-r32 -<span id="L31060" class="LineNr">31060 </span> 1/imm32/imm32-is-first-inout -<span id="L31061" class="LineNr">31061 </span> 0/imm32/no-imm8 -<span id="L31062" class="LineNr">31062 </span> 0/imm32/no-disp32 -<span id="L31063" class="LineNr">31063 </span> 0/imm32/no-xm32 -<span id="L31064" class="LineNr">31064 </span> 0/imm32/no-x32 -<span id="L31065" class="LineNr">31065 </span> 0x11/imm32/alloc-id:fake -<span id="L31066" class="LineNr">31066 </span> <a href='mu.subx.html#L31067'>_Primitive-copy-to-edx</a>/imm32/next -<span id="L31067" class="LineNr">31067 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31068" class="LineNr">31068 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31069" class="LineNr">31069 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> -<span id="L31070" class="LineNr">31070 </span> 0x11/imm32/alloc-id:fake -<span id="L31071" class="LineNr">31071 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31072" class="LineNr">31072 </span> 0x11/imm32/alloc-id:fake -<span id="L31073" class="LineNr">31073 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L31074" class="LineNr">31074 </span> 0x11/imm32/alloc-id:fake -<span id="L31075" class="LineNr">31075 </span> <span class="SpecialChar"><a href='mu.subx.html#L34365'>Single-int-var-in-edx</a></span>/imm32/outputs -<span id="L31076" class="LineNr">31076 </span> 0x11/imm32/alloc-id:fake -<span id="L31077" class="LineNr">31077 </span> <a href='mu.subx.html#L34089'>_string_ba_copy_to_edx</a>/imm32/subx-name -<span id="L31078" class="LineNr">31078 </span> 0/imm32/no-rm32 -<span id="L31079" class="LineNr">31079 </span> 0/imm32/no-r32 -<span id="L31080" class="LineNr">31080 </span> 1/imm32/imm32-is-first-inout -<span id="L31081" class="LineNr">31081 </span> 0/imm32/no-imm8 -<span id="L31082" class="LineNr">31082 </span> 0/imm32/no-disp32 -<span id="L31083" class="LineNr">31083 </span> 0/imm32/no-xm32 -<span id="L31084" class="LineNr">31084 </span> 0/imm32/no-x32 -<span id="L31085" class="LineNr">31085 </span> 0x11/imm32/alloc-id:fake -<span id="L31086" class="LineNr">31086 </span> <a href='mu.subx.html#L31087'>_Primitive-copy-to-ebx</a>/imm32/next -<span id="L31087" class="LineNr">31087 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31088" class="LineNr">31088 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31089" class="LineNr">31089 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> -<span id="L31090" class="LineNr">31090 </span> 0x11/imm32/alloc-id:fake -<span id="L31091" class="LineNr">31091 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31092" class="LineNr">31092 </span> 0x11/imm32/alloc-id:fake -<span id="L31093" class="LineNr">31093 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L31094" class="LineNr">31094 </span> 0x11/imm32/alloc-id:fake -<span id="L31095" class="LineNr">31095 </span> <span class="SpecialChar"><a href='mu.subx.html#L34383'>Single-int-var-in-ebx</a></span>/imm32/outputs -<span id="L31096" class="LineNr">31096 </span> 0x11/imm32/alloc-id:fake -<span id="L31097" class="LineNr">31097 </span> <a href='mu.subx.html#L34094'>_string_bb_copy_to_ebx</a>/imm32/subx-name -<span id="L31098" class="LineNr">31098 </span> 0/imm32/no-rm32 -<span id="L31099" class="LineNr">31099 </span> 0/imm32/no-r32 -<span id="L31100" class="LineNr">31100 </span> 1/imm32/imm32-is-first-inout -<span id="L31101" class="LineNr">31101 </span> 0/imm32/no-imm8 -<span id="L31102" class="LineNr">31102 </span> 0/imm32/no-disp32 -<span id="L31103" class="LineNr">31103 </span> 0/imm32/no-xm32 -<span id="L31104" class="LineNr">31104 </span> 0/imm32/no-x32 -<span id="L31105" class="LineNr">31105 </span> 0x11/imm32/alloc-id:fake -<span id="L31106" class="LineNr">31106 </span> <a href='mu.subx.html#L31107'>_Primitive-copy-to-esi</a>/imm32/next -<span id="L31107" class="LineNr">31107 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31108" class="LineNr">31108 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31109" class="LineNr">31109 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> -<span id="L31110" class="LineNr">31110 </span> 0x11/imm32/alloc-id:fake -<span id="L31111" class="LineNr">31111 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31112" class="LineNr">31112 </span> 0x11/imm32/alloc-id:fake -<span id="L31113" class="LineNr">31113 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L31114" class="LineNr">31114 </span> 0x11/imm32/alloc-id:fake -<span id="L31115" class="LineNr">31115 </span> <span class="SpecialChar"><a href='mu.subx.html#L34401'>Single-int-var-in-esi</a></span>/imm32/outputs -<span id="L31116" class="LineNr">31116 </span> 0x11/imm32/alloc-id:fake -<span id="L31117" class="LineNr">31117 </span> <a href='mu.subx.html#L34099'>_string_be_copy_to_esi</a>/imm32/subx-name -<span id="L31118" class="LineNr">31118 </span> 0/imm32/no-rm32 -<span id="L31119" class="LineNr">31119 </span> 0/imm32/no-r32 -<span id="L31120" class="LineNr">31120 </span> 1/imm32/imm32-is-first-inout -<span id="L31121" class="LineNr">31121 </span> 0/imm32/no-imm8 -<span id="L31122" class="LineNr">31122 </span> 0/imm32/no-disp32 -<span id="L31123" class="LineNr">31123 </span> 0/imm32/no-xm32 -<span id="L31124" class="LineNr">31124 </span> 0/imm32/no-x32 -<span id="L31125" class="LineNr">31125 </span> 0x11/imm32/alloc-id:fake -<span id="L31126" class="LineNr">31126 </span> <a href='mu.subx.html#L31127'>_Primitive-copy-to-edi</a>/imm32/next -<span id="L31127" class="LineNr">31127 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31128" class="LineNr">31128 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31129" class="LineNr">31129 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> -<span id="L31130" class="LineNr">31130 </span> 0x11/imm32/alloc-id:fake -<span id="L31131" class="LineNr">31131 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31132" class="LineNr">31132 </span> 0x11/imm32/alloc-id:fake -<span id="L31133" class="LineNr">31133 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L31134" class="LineNr">31134 </span> 0x11/imm32/alloc-id:fake -<span id="L31135" class="LineNr">31135 </span> <span class="SpecialChar"><a href='mu.subx.html#L34419'>Single-int-var-in-edi</a></span>/imm32/outputs -<span id="L31136" class="LineNr">31136 </span> 0x11/imm32/alloc-id:fake -<span id="L31137" class="LineNr">31137 </span> <a href='mu.subx.html#L34104'>_string_bf_copy_to_edi</a>/imm32/subx-name -<span id="L31138" class="LineNr">31138 </span> 0/imm32/no-rm32 -<span id="L31139" class="LineNr">31139 </span> 0/imm32/no-r32 -<span id="L31140" class="LineNr">31140 </span> 1/imm32/imm32-is-first-inout -<span id="L31141" class="LineNr">31141 </span> 0/imm32/no-imm8 -<span id="L31142" class="LineNr">31142 </span> 0/imm32/no-disp32 -<span id="L31143" class="LineNr">31143 </span> 0/imm32/no-xm32 -<span id="L31144" class="LineNr">31144 </span> 0/imm32/no-x32 -<span id="L31145" class="LineNr">31145 </span> 0x11/imm32/alloc-id:fake -<span id="L31146" class="LineNr">31146 </span> <a href='mu.subx.html#L31147'>_Primitive-copy-reg-to-reg</a>/imm32/next -<span id="L31147" class="LineNr">31147 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31148" class="LineNr">31148 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31149" class="LineNr">31149 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> -<span id="L31150" class="LineNr">31150 </span> 0x11/imm32/alloc-id:fake -<span id="L31151" class="LineNr">31151 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31152" class="LineNr">31152 </span> 0x11/imm32/alloc-id:fake -<span id="L31153" class="LineNr">31153 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31154" class="LineNr">31154 </span> 0x11/imm32/alloc-id:fake -<span id="L31155" class="LineNr">31155 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31156" class="LineNr">31156 </span> 0x11/imm32/alloc-id:fake -<span id="L31157" class="LineNr">31157 </span> <a href='mu.subx.html#L34054'>_string_89_<-</a>/imm32/subx-name -<span id="L31158" class="LineNr">31158 </span> 3/imm32/rm32-is-first-output -<span id="L31159" class="LineNr">31159 </span> 1/imm32/r32-is-first-inout -<span id="L31160" class="LineNr">31160 </span> 0/imm32/no-imm32 -<span id="L31161" class="LineNr">31161 </span> 0/imm32/no-imm8 -<span id="L31162" class="LineNr">31162 </span> 0/imm32/no-disp32 -<span id="L31163" class="LineNr">31163 </span> 0/imm32/no-xm32 -<span id="L31164" class="LineNr">31164 </span> 0/imm32/no-x32 -<span id="L31165" class="LineNr">31165 </span> 0x11/imm32/alloc-id:fake -<span id="L31166" class="LineNr">31166 </span> <a href='mu.subx.html#L31167'>_Primitive-copy-reg-to-mem</a>/imm32/next -<span id="L31167" class="LineNr">31167 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31168" class="LineNr">31168 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31169" class="LineNr">31169 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> -<span id="L31170" class="LineNr">31170 </span> 0x11/imm32/alloc-id:fake -<span id="L31171" class="LineNr">31171 </span> <a href='mu.subx.html#L33442'>_string-copy-to</a>/imm32/name -<span id="L31172" class="LineNr">31172 </span> 0x11/imm32/alloc-id:fake -<span id="L31173" class="LineNr">31173 </span> <span class="SpecialChar"><a href='mu.subx.html#L34198'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31174" class="LineNr">31174 </span> 0/imm32/no-outputs -<span id="L31175" class="LineNr">31175 </span> 0/imm32/no-outputs -<span id="L31176" class="LineNr">31176 </span> 0x11/imm32/alloc-id:fake -<span id="L31177" class="LineNr">31177 </span> <a href='mu.subx.html#L34054'>_string_89_<-</a>/imm32/subx-name -<span id="L31178" class="LineNr">31178 </span> 1/imm32/rm32-is-first-inout -<span id="L31179" class="LineNr">31179 </span> 2/imm32/r32-is-second-inout -<span id="L31180" class="LineNr">31180 </span> 0/imm32/no-imm32 -<span id="L31181" class="LineNr">31181 </span> 0/imm32/no-imm8 -<span id="L31182" class="LineNr">31182 </span> 0/imm32/no-disp32 -<span id="L31183" class="LineNr">31183 </span> 0/imm32/no-xm32 -<span id="L31184" class="LineNr">31184 </span> 0/imm32/no-x32 -<span id="L31185" class="LineNr">31185 </span> 0x11/imm32/alloc-id:fake -<span id="L31186" class="LineNr">31186 </span> <a href='mu.subx.html#L31187'>_Primitive-copy-mem-to-reg</a>/imm32/next -<span id="L31187" class="LineNr">31187 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31188" class="LineNr">31188 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31189" class="LineNr">31189 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> -<span id="L31190" class="LineNr">31190 </span> 0x11/imm32/alloc-id:fake -<span id="L31191" class="LineNr">31191 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31192" class="LineNr">31192 </span> 0x11/imm32/alloc-id:fake -<span id="L31193" class="LineNr">31193 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31194" class="LineNr">31194 </span> 0x11/imm32/alloc-id:fake -<span id="L31195" class="LineNr">31195 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31196" class="LineNr">31196 </span> 0x11/imm32/alloc-id:fake -<span id="L31197" class="LineNr">31197 </span> <a href='mu.subx.html#L34059'>_string_8b_-></a>/imm32/subx-name -<span id="L31198" class="LineNr">31198 </span> 1/imm32/rm32-is-first-inout -<span id="L31199" class="LineNr">31199 </span> 3/imm32/r32-is-first-output -<span id="L31200" class="LineNr">31200 </span> 0/imm32/no-imm32 -<span id="L31201" class="LineNr">31201 </span> 0/imm32/no-imm8 -<span id="L31202" class="LineNr">31202 </span> 0/imm32/no-disp32 -<span id="L31203" class="LineNr">31203 </span> 0/imm32/no-xm32 -<span id="L31204" class="LineNr">31204 </span> 0/imm32/no-x32 -<span id="L31205" class="LineNr">31205 </span> 0x11/imm32/alloc-id:fake -<span id="L31206" class="LineNr">31206 </span> <a href='mu.subx.html#L31207'>_Primitive-copy-lit-to-reg</a>/imm32/next -<span id="L31207" class="LineNr">31207 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31208" class="LineNr">31208 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31209" class="LineNr">31209 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> -<span id="L31210" class="LineNr">31210 </span> 0x11/imm32/alloc-id:fake -<span id="L31211" class="LineNr">31211 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31212" class="LineNr">31212 </span> 0x11/imm32/alloc-id:fake -<span id="L31213" class="LineNr">31213 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L31214" class="LineNr">31214 </span> 0x11/imm32/alloc-id:fake -<span id="L31215" class="LineNr">31215 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31216" class="LineNr">31216 </span> 0x11/imm32/alloc-id:fake -<span id="L31217" class="LineNr">31217 </span> <a href='mu.subx.html#L34109'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L31218" class="LineNr">31218 </span> 3/imm32/rm32-is-first-output -<span id="L31219" class="LineNr">31219 </span> 0/imm32/no-r32 -<span id="L31220" class="LineNr">31220 </span> 1/imm32/imm32-is-first-inout -<span id="L31221" class="LineNr">31221 </span> 0/imm32/no-imm8 -<span id="L31222" class="LineNr">31222 </span> 0/imm32/no-disp32 -<span id="L31223" class="LineNr">31223 </span> 0/imm32/no-xm32 -<span id="L31224" class="LineNr">31224 </span> 0/imm32/no-x32 -<span id="L31225" class="LineNr">31225 </span> 0x11/imm32/alloc-id:fake -<span id="L31226" class="LineNr">31226 </span> <a href='mu.subx.html#L31227'>_Primitive-copy-lit-to-mem</a>/imm32/next -<span id="L31227" class="LineNr">31227 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31228" class="LineNr">31228 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31229" class="LineNr">31229 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> -<span id="L31230" class="LineNr">31230 </span> 0x11/imm32/alloc-id:fake -<span id="L31231" class="LineNr">31231 </span> <a href='mu.subx.html#L33442'>_string-copy-to</a>/imm32/name -<span id="L31232" class="LineNr">31232 </span> 0x11/imm32/alloc-id:fake -<span id="L31233" class="LineNr">31233 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31234" class="LineNr">31234 </span> 0/imm32/no-outputs -<span id="L31235" class="LineNr">31235 </span> 0/imm32/no-outputs -<span id="L31236" class="LineNr">31236 </span> 0x11/imm32/alloc-id:fake -<span id="L31237" class="LineNr">31237 </span> <a href='mu.subx.html#L34109'>_string_c7_subop_copy</a>/imm32/subx-name -<span id="L31238" class="LineNr">31238 </span> 1/imm32/rm32-is-first-inout -<span id="L31239" class="LineNr">31239 </span> 0/imm32/no-r32 -<span id="L31240" class="LineNr">31240 </span> 2/imm32/imm32-is-second-inout -<span id="L31241" class="LineNr">31241 </span> 0/imm32/no-imm8 -<span id="L31242" class="LineNr">31242 </span> 0/imm32/no-disp32 -<span id="L31243" class="LineNr">31243 </span> 0/imm32/no-xm32 -<span id="L31244" class="LineNr">31244 </span> 0/imm32/no-x32 -<span id="L31245" class="LineNr">31245 </span> 0x11/imm32/alloc-id:fake -<span id="L31246" class="LineNr">31246 </span> <a href='mu.subx.html#L31248'>_Primitive-copy-byte-from-reg</a>/imm32/next -<span id="L31247" class="LineNr">31247 </span><span class="subxH1Comment"># - copy byte</span> -<span id="L31248" class="LineNr">31248 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: -<span id="L31249" class="LineNr">31249 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31250" class="LineNr">31250 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> -<span id="L31251" class="LineNr">31251 </span> 0x11/imm32/alloc-id:fake -<span id="L31252" class="LineNr">31252 </span> <a href='mu.subx.html#L33447'>_string-copy-byte</a>/imm32/name -<span id="L31253" class="LineNr">31253 </span> 0x11/imm32/alloc-id:fake -<span id="L31254" class="LineNr">31254 </span> <span class="SpecialChar"><a href='mu.subx.html#L34283'>Single-byte-var-in-some-register</a></span>/imm32/inouts -<span id="L31255" class="LineNr">31255 </span> 0x11/imm32/alloc-id:fake -<span id="L31256" class="LineNr">31256 </span> <span class="SpecialChar"><a href='mu.subx.html#L34283'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L31257" class="LineNr">31257 </span> 0x11/imm32/alloc-id:fake -<span id="L31258" class="LineNr">31258 </span> <a href='mu.subx.html#L34064'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L31259" class="LineNr">31259 </span> 1/imm32/rm32-is-first-inout -<span id="L31260" class="LineNr">31260 </span> 3/imm32/r32-is-first-output -<span id="L31261" class="LineNr">31261 </span> 0/imm32/no-imm32 -<span id="L31262" class="LineNr">31262 </span> 0/imm32/no-imm8 -<span id="L31263" class="LineNr">31263 </span> 0/imm32/no-disp32 -<span id="L31264" class="LineNr">31264 </span> 0/imm32/no-xm32 -<span id="L31265" class="LineNr">31265 </span> 0/imm32/no-x32 -<span id="L31266" class="LineNr">31266 </span> 0x11/imm32/alloc-id:fake -<span id="L31267" class="LineNr">31267 </span> <a href='mu.subx.html#L31268'>_Primitive-copy-byte-from-mem</a>/imm32/next -<span id="L31268" class="LineNr">31268 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: -<span id="L31269" class="LineNr">31269 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31270" class="LineNr">31270 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> -<span id="L31271" class="LineNr">31271 </span> 0x11/imm32/alloc-id:fake -<span id="L31272" class="LineNr">31272 </span> <a href='mu.subx.html#L33447'>_string-copy-byte</a>/imm32/name -<span id="L31273" class="LineNr">31273 </span> 0x11/imm32/alloc-id:fake -<span id="L31274" class="LineNr">31274 </span> <span class="SpecialChar"><a href='mu.subx.html#L34179'>Single-byte-var-in-mem</a></span>/imm32/inouts -<span id="L31275" class="LineNr">31275 </span> 0x11/imm32/alloc-id:fake -<span id="L31276" class="LineNr">31276 </span> <span class="SpecialChar"><a href='mu.subx.html#L34283'>Single-byte-var-in-some-register</a></span>/imm32/outputs -<span id="L31277" class="LineNr">31277 </span> 0x11/imm32/alloc-id:fake -<span id="L31278" class="LineNr">31278 </span> <a href='mu.subx.html#L34064'>_string_8a_copy_byte</a>/imm32/subx-name -<span id="L31279" class="LineNr">31279 </span> 1/imm32/rm32-is-first-inout -<span id="L31280" class="LineNr">31280 </span> 3/imm32/r32-is-first-output -<span id="L31281" class="LineNr">31281 </span> 0/imm32/no-imm32 -<span id="L31282" class="LineNr">31282 </span> 0/imm32/no-imm8 -<span id="L31283" class="LineNr">31283 </span> 0/imm32/no-disp32 -<span id="L31284" class="LineNr">31284 </span> 0/imm32/no-xm32 -<span id="L31285" class="LineNr">31285 </span> 0/imm32/no-x32 -<span id="L31286" class="LineNr">31286 </span> 0x11/imm32/alloc-id:fake -<span id="L31287" class="LineNr">31287 </span> <a href='mu.subx.html#L31288'>_Primitive-copy-byte-to-mem</a>/imm32/next -<span id="L31288" class="LineNr">31288 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: -<span id="L31289" class="LineNr">31289 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31290" class="LineNr">31290 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> -<span id="L31291" class="LineNr">31291 </span> 0x11/imm32/alloc-id:fake -<span id="L31292" class="LineNr">31292 </span> <a href='mu.subx.html#L33452'>_string-copy-byte-to</a>/imm32/name -<span id="L31293" class="LineNr">31293 </span> 0x11/imm32/alloc-id:fake -<span id="L31294" class="LineNr">31294 </span> <span class="SpecialChar"><a href='mu.subx.html#L34213'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts -<span id="L31295" class="LineNr">31295 </span> 0/imm32/no-outputs -<span id="L31296" class="LineNr">31296 </span> 0/imm32/no-outputs -<span id="L31297" class="LineNr">31297 </span> 0x11/imm32/alloc-id:fake -<span id="L31298" class="LineNr">31298 </span> <a href='mu.subx.html#L34069'>_string_88_copy_byte</a>/imm32/subx-name -<span id="L31299" class="LineNr">31299 </span> 1/imm32/rm32-is-first-inout -<span id="L31300" class="LineNr">31300 </span> 2/imm32/r32-is-second-inout -<span id="L31301" class="LineNr">31301 </span> 0/imm32/no-imm32 -<span id="L31302" class="LineNr">31302 </span> 0/imm32/no-imm8 -<span id="L31303" class="LineNr">31303 </span> 0/imm32/no-disp32 -<span id="L31304" class="LineNr">31304 </span> 0/imm32/no-xm32 -<span id="L31305" class="LineNr">31305 </span> 0/imm32/no-x32 -<span id="L31306" class="LineNr">31306 </span> 0x11/imm32/alloc-id:fake -<span id="L31307" class="LineNr">31307 </span> <a href='mu.subx.html#L31309'>_Primitive-address</a>/imm32/next -<span id="L31308" class="LineNr">31308 </span><span class="subxH1Comment"># - address</span> -<span id="L31309" class="LineNr">31309 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31310" class="LineNr">31310 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31311" class="LineNr">31311 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L31312" class="LineNr">31312 </span> 0x11/imm32/alloc-id:fake -<span id="L31313" class="LineNr">31313 </span> <a href='mu.subx.html#L33337'>_string-address</a>/imm32/name -<span id="L31314" class="LineNr">31314 </span> 0x11/imm32/alloc-id:fake -<span id="L31315" class="LineNr">31315 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31316" class="LineNr">31316 </span> 0x11/imm32/alloc-id:fake -<span id="L31317" class="LineNr">31317 </span> <span class="SpecialChar"><a href='mu.subx.html#L34276'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L31318" class="LineNr">31318 </span> 0x11/imm32/alloc-id:fake -<span id="L31319" class="LineNr">31319 </span> <a href='mu.subx.html#L34074'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L31320" class="LineNr">31320 </span> 1/imm32/rm32-is-first-inout -<span id="L31321" class="LineNr">31321 </span> 3/imm32/r32-is-first-output -<span id="L31322" class="LineNr">31322 </span> 0/imm32/no-imm32 -<span id="L31323" class="LineNr">31323 </span> 0/imm32/no-imm8 -<span id="L31324" class="LineNr">31324 </span> 0/imm32/no-disp32 -<span id="L31325" class="LineNr">31325 </span> 0/imm32/no-xm32 -<span id="L31326" class="LineNr">31326 </span> 0/imm32/no-x32 -<span id="L31327" class="LineNr">31327 </span> 0x11/imm32/alloc-id:fake -<span id="L31328" class="LineNr">31328 </span> <a href='mu.subx.html#L31330'>_Primitive-compare-reg-with-reg</a>/imm32/next -<span id="L31329" class="LineNr">31329 </span><span class="subxH1Comment"># - compare</span> -<span id="L31330" class="LineNr">31330 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31331" class="LineNr">31331 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31332" class="LineNr">31332 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> -<span id="L31333" class="LineNr">31333 </span> 0x11/imm32/alloc-id:fake -<span id="L31334" class="LineNr">31334 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L31335" class="LineNr">31335 </span> 0x11/imm32/alloc-id:fake -<span id="L31336" class="LineNr">31336 </span> <span class="SpecialChar"><a href='mu.subx.html#L34205'>Two-int-args-in-regs</a></span>/imm32/inouts -<span id="L31337" class="LineNr">31337 </span> 0/imm32/no-outputs -<span id="L31338" class="LineNr">31338 </span> 0/imm32/no-outputs -<span id="L31339" class="LineNr">31339 </span> 0x11/imm32/alloc-id:fake -<span id="L31340" class="LineNr">31340 </span> <a href='mu.subx.html#L33949'>_string_39_compare-></a>/imm32/subx-name -<span id="L31341" class="LineNr">31341 </span> 1/imm32/rm32-is-first-inout -<span id="L31342" class="LineNr">31342 </span> 2/imm32/r32-is-second-inout -<span id="L31343" class="LineNr">31343 </span> 0/imm32/no-imm32 -<span id="L31344" class="LineNr">31344 </span> 0/imm32/no-imm8 -<span id="L31345" class="LineNr">31345 </span> 0/imm32/no-disp32 -<span id="L31346" class="LineNr">31346 </span> 0/imm32/no-xm32 -<span id="L31347" class="LineNr">31347 </span> 0/imm32/no-x32 -<span id="L31348" class="LineNr">31348 </span> 0x11/imm32/alloc-id:fake -<span id="L31349" class="LineNr">31349 </span> <a href='mu.subx.html#L31350'>_Primitive-compare-mem-with-reg</a>/imm32/next -<span id="L31350" class="LineNr">31350 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31351" class="LineNr">31351 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31352" class="LineNr">31352 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> -<span id="L31353" class="LineNr">31353 </span> 0x11/imm32/alloc-id:fake -<span id="L31354" class="LineNr">31354 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L31355" class="LineNr">31355 </span> 0x11/imm32/alloc-id:fake -<span id="L31356" class="LineNr">31356 </span> <span class="SpecialChar"><a href='mu.subx.html#L34198'>Two-args-int-stack-int-reg</a></span>/imm32/inouts -<span id="L31357" class="LineNr">31357 </span> 0/imm32/no-outputs -<span id="L31358" class="LineNr">31358 </span> 0/imm32/no-outputs -<span id="L31359" class="LineNr">31359 </span> 0x11/imm32/alloc-id:fake -<span id="L31360" class="LineNr">31360 </span> <a href='mu.subx.html#L33949'>_string_39_compare-></a>/imm32/subx-name -<span id="L31361" class="LineNr">31361 </span> 1/imm32/rm32-is-first-inout -<span id="L31362" class="LineNr">31362 </span> 2/imm32/r32-is-second-inout -<span id="L31363" class="LineNr">31363 </span> 0/imm32/no-imm32 -<span id="L31364" class="LineNr">31364 </span> 0/imm32/no-imm8 -<span id="L31365" class="LineNr">31365 </span> 0/imm32/no-disp32 -<span id="L31366" class="LineNr">31366 </span> 0/imm32/no-xm32 -<span id="L31367" class="LineNr">31367 </span> 0/imm32/no-x32 -<span id="L31368" class="LineNr">31368 </span> 0x11/imm32/alloc-id:fake -<span id="L31369" class="LineNr">31369 </span> <a href='mu.subx.html#L31370'>_Primitive-compare-reg-with-mem</a>/imm32/next -<span id="L31370" class="LineNr">31370 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31371" class="LineNr">31371 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31372" class="LineNr">31372 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> -<span id="L31373" class="LineNr">31373 </span> 0x11/imm32/alloc-id:fake -<span id="L31374" class="LineNr">31374 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L31375" class="LineNr">31375 </span> 0x11/imm32/alloc-id:fake -<span id="L31376" class="LineNr">31376 </span> <span class="SpecialChar"><a href='mu.subx.html#L34220'>Two-args-int-reg-int-stack</a></span>/imm32/inouts -<span id="L31377" class="LineNr">31377 </span> 0/imm32/no-outputs -<span id="L31378" class="LineNr">31378 </span> 0/imm32/no-outputs -<span id="L31379" class="LineNr">31379 </span> 0x11/imm32/alloc-id:fake -<span id="L31380" class="LineNr">31380 </span> <a href='mu.subx.html#L33954'>_string_3b_compare<-</a>/imm32/subx-name -<span id="L31381" class="LineNr">31381 </span> 2/imm32/rm32-is-second-inout -<span id="L31382" class="LineNr">31382 </span> 1/imm32/r32-is-first-inout -<span id="L31383" class="LineNr">31383 </span> 0/imm32/no-imm32 -<span id="L31384" class="LineNr">31384 </span> 0/imm32/no-imm8 -<span id="L31385" class="LineNr">31385 </span> 0/imm32/no-disp32 -<span id="L31386" class="LineNr">31386 </span> 0/imm32/no-xm32 -<span id="L31387" class="LineNr">31387 </span> 0/imm32/no-x32 -<span id="L31388" class="LineNr">31388 </span> 0x11/imm32/alloc-id:fake -<span id="L31389" class="LineNr">31389 </span> <a href='mu.subx.html#L31390'>_Primitive-compare-eax-with-literal</a>/imm32/next -<span id="L31390" class="LineNr">31390 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31391" class="LineNr">31391 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31392" class="LineNr">31392 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> -<span id="L31393" class="LineNr">31393 </span> 0x11/imm32/alloc-id:fake -<span id="L31394" class="LineNr">31394 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L31395" class="LineNr">31395 </span> 0x11/imm32/alloc-id:fake -<span id="L31396" class="LineNr">31396 </span> <span class="SpecialChar"><a href='mu.subx.html#L34227'>Two-args-int-eax-int-literal</a></span>/imm32/inouts -<span id="L31397" class="LineNr">31397 </span> 0/imm32/no-outputs -<span id="L31398" class="LineNr">31398 </span> 0/imm32/no-outputs -<span id="L31399" class="LineNr">31399 </span> 0x11/imm32/alloc-id:fake -<span id="L31400" class="LineNr">31400 </span> <a href='mu.subx.html#L33959'>_string_3d_compare_eax_with</a>/imm32/subx-name -<span id="L31401" class="LineNr">31401 </span> 0/imm32/no-rm32 -<span id="L31402" class="LineNr">31402 </span> 0/imm32/no-r32 -<span id="L31403" class="LineNr">31403 </span> 2/imm32/imm32-is-second-inout -<span id="L31404" class="LineNr">31404 </span> 0/imm32/no-imm8 -<span id="L31405" class="LineNr">31405 </span> 0/imm32/no-disp32 -<span id="L31406" class="LineNr">31406 </span> 0/imm32/no-xm32 -<span id="L31407" class="LineNr">31407 </span> 0/imm32/no-x32 -<span id="L31408" class="LineNr">31408 </span> 0x11/imm32/alloc-id:fake -<span id="L31409" class="LineNr">31409 </span> <a href='mu.subx.html#L31410'>_Primitive-compare-reg-with-literal</a>/imm32/next -<span id="L31410" class="LineNr">31410 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31411" class="LineNr">31411 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31412" class="LineNr">31412 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> -<span id="L31413" class="LineNr">31413 </span> 0x11/imm32/alloc-id:fake -<span id="L31414" class="LineNr">31414 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L31415" class="LineNr">31415 </span> 0x11/imm32/alloc-id:fake -<span id="L31416" class="LineNr">31416 </span> <span class="SpecialChar"><a href='mu.subx.html#L34241'>Int-var-in-register-and-literal</a></span>/imm32/inouts -<span id="L31417" class="LineNr">31417 </span> 0/imm32/no-outputs -<span id="L31418" class="LineNr">31418 </span> 0/imm32/no-outputs -<span id="L31419" class="LineNr">31419 </span> 0x11/imm32/alloc-id:fake -<span id="L31420" class="LineNr">31420 </span> <a href='mu.subx.html#L34049'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L31421" class="LineNr">31421 </span> 1/imm32/rm32-is-first-inout -<span id="L31422" class="LineNr">31422 </span> 0/imm32/no-r32 -<span id="L31423" class="LineNr">31423 </span> 2/imm32/imm32-is-second-inout -<span id="L31424" class="LineNr">31424 </span> 0/imm32/no-imm8 -<span id="L31425" class="LineNr">31425 </span> 0/imm32/no-disp32 -<span id="L31426" class="LineNr">31426 </span> 0/imm32/no-xm32 -<span id="L31427" class="LineNr">31427 </span> 0/imm32/no-x32 -<span id="L31428" class="LineNr">31428 </span> 0x11/imm32/alloc-id:fake -<span id="L31429" class="LineNr">31429 </span> <a href='mu.subx.html#L31430'>_Primitive-compare-mem-with-literal</a>/imm32/next -<span id="L31430" class="LineNr">31430 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31431" class="LineNr">31431 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31432" class="LineNr">31432 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> -<span id="L31433" class="LineNr">31433 </span> 0x11/imm32/alloc-id:fake -<span id="L31434" class="LineNr">31434 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L31435" class="LineNr">31435 </span> 0x11/imm32/alloc-id:fake -<span id="L31436" class="LineNr">31436 </span> <span class="SpecialChar"><a href='mu.subx.html#L34234'>Int-var-and-literal</a></span>/imm32/inouts -<span id="L31437" class="LineNr">31437 </span> 0/imm32/no-outputs -<span id="L31438" class="LineNr">31438 </span> 0/imm32/no-outputs -<span id="L31439" class="LineNr">31439 </span> 0x11/imm32/alloc-id:fake -<span id="L31440" class="LineNr">31440 </span> <a href='mu.subx.html#L34049'>_string_81_subop_compare</a>/imm32/subx-name -<span id="L31441" class="LineNr">31441 </span> 1/imm32/rm32-is-first-inout -<span id="L31442" class="LineNr">31442 </span> 0/imm32/no-r32 -<span id="L31443" class="LineNr">31443 </span> 2/imm32/imm32-is-second-inout -<span id="L31444" class="LineNr">31444 </span> 0/imm32/no-imm8 -<span id="L31445" class="LineNr">31445 </span> 0/imm32/no-disp32 -<span id="L31446" class="LineNr">31446 </span> 0/imm32/no-xm32 -<span id="L31447" class="LineNr">31447 </span> 0/imm32/no-x32 -<span id="L31448" class="LineNr">31448 </span> 0x11/imm32/alloc-id:fake -<span id="L31449" class="LineNr">31449 </span> <a href='mu.subx.html#L31451'>_Primitive-negate-reg</a>/imm32/next -<span id="L31450" class="LineNr">31450 </span><span class="subxH1Comment"># - negate</span> -<span id="L31451" class="LineNr">31451 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31452" class="LineNr">31452 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31453" class="LineNr">31453 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> -<span id="L31454" class="LineNr">31454 </span> 0x11/imm32/alloc-id:fake -<span id="L31455" class="LineNr">31455 </span> <a href='mu.subx.html#L33592'>_string-negate</a>/imm32/name -<span id="L31456" class="LineNr">31456 </span> 0/imm32/no-inouts -<span id="L31457" class="LineNr">31457 </span> 0/imm32/no-inouts -<span id="L31458" class="LineNr">31458 </span> 0x11/imm32/alloc-id:fake -<span id="L31459" class="LineNr">31459 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31460" class="LineNr">31460 </span> 0x11/imm32/alloc-id:fake -<span id="L31461" class="LineNr">31461 </span> <a href='mu.subx.html#L34129'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L31462" class="LineNr">31462 </span> 3/imm32/rm32-is-first-output -<span id="L31463" class="LineNr">31463 </span> 0/imm32/no-r32 -<span id="L31464" class="LineNr">31464 </span> 0/imm32/no-imm32 -<span id="L31465" class="LineNr">31465 </span> 0/imm32/no-imm8 -<span id="L31466" class="LineNr">31466 </span> 0/imm32/no-disp32 -<span id="L31467" class="LineNr">31467 </span> 0/imm32/no-xm32 -<span id="L31468" class="LineNr">31468 </span> 0/imm32/no-x32 -<span id="L31469" class="LineNr">31469 </span> 0x11/imm32/alloc-id:fake -<span id="L31470" class="LineNr">31470 </span> <a href='mu.subx.html#L31471'>_Primitive-negate-mem</a>/imm32/next -<span id="L31471" class="LineNr">31471 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31472" class="LineNr">31472 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31473" class="LineNr">31473 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> -<span id="L31474" class="LineNr">31474 </span> 0x11/imm32/alloc-id:fake -<span id="L31475" class="LineNr">31475 </span> <a href='mu.subx.html#L33592'>_string-negate</a>/imm32/name -<span id="L31476" class="LineNr">31476 </span> 0x11/imm32/alloc-id:fake -<span id="L31477" class="LineNr">31477 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31478" class="LineNr">31478 </span> 0/imm32/no-outputs -<span id="L31479" class="LineNr">31479 </span> 0/imm32/no-outputs -<span id="L31480" class="LineNr">31480 </span> 0x11/imm32/alloc-id:fake -<span id="L31481" class="LineNr">31481 </span> <a href='mu.subx.html#L34129'>_string_f7_subop_negate</a>/imm32/subx-name -<span id="L31482" class="LineNr">31482 </span> 1/imm32/rm32-is-first-inout -<span id="L31483" class="LineNr">31483 </span> 0/imm32/no-r32 -<span id="L31484" class="LineNr">31484 </span> 0/imm32/no-imm32 -<span id="L31485" class="LineNr">31485 </span> 0/imm32/no-imm8 -<span id="L31486" class="LineNr">31486 </span> 0/imm32/no-disp32 -<span id="L31487" class="LineNr">31487 </span> 0/imm32/no-xm32 -<span id="L31488" class="LineNr">31488 </span> 0/imm32/no-x32 -<span id="L31489" class="LineNr">31489 </span> 0x11/imm32/alloc-id:fake -<span id="L31490" class="LineNr">31490 </span> <a href='mu.subx.html#L31492'>_Primitive-multiply-reg-by-reg</a>/imm32/next -<span id="L31491" class="LineNr">31491 </span><span class="subxH1Comment"># - multiply</span> -<span id="L31492" class="LineNr">31492 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31493" class="LineNr">31493 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31494" class="LineNr">31494 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L31495" class="LineNr">31495 </span> 0x11/imm32/alloc-id:fake -<span id="L31496" class="LineNr">31496 </span> <a href='mu.subx.html#L33542'>_string-multiply</a>/imm32/name -<span id="L31497" class="LineNr">31497 </span> 0x11/imm32/alloc-id:fake -<span id="L31498" class="LineNr">31498 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31499" class="LineNr">31499 </span> 0x11/imm32/alloc-id:fake -<span id="L31500" class="LineNr">31500 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31501" class="LineNr">31501 </span> 0x11/imm32/alloc-id:fake -<span id="L31502" class="LineNr">31502 </span> <a href='mu.subx.html#L33824'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L31503" class="LineNr">31503 </span> 1/imm32/rm32-is-first-inout -<span id="L31504" class="LineNr">31504 </span> 3/imm32/r32-is-first-output -<span id="L31505" class="LineNr">31505 </span> 0/imm32/no-imm32 -<span id="L31506" class="LineNr">31506 </span> 0/imm32/no-imm8 -<span id="L31507" class="LineNr">31507 </span> 0/imm32/no-disp32 -<span id="L31508" class="LineNr">31508 </span> 0/imm32/no-xm32 -<span id="L31509" class="LineNr">31509 </span> 0/imm32/no-x32 -<span id="L31510" class="LineNr">31510 </span> 0x11/imm32/alloc-id:fake -<span id="L31511" class="LineNr">31511 </span> <a href='mu.subx.html#L31512'>_Primitive-multiply-reg-by-mem</a>/imm32/next -<span id="L31512" class="LineNr">31512 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31513" class="LineNr">31513 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31514" class="LineNr">31514 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> -<span id="L31515" class="LineNr">31515 </span> 0x11/imm32/alloc-id:fake -<span id="L31516" class="LineNr">31516 </span> <a href='mu.subx.html#L33542'>_string-multiply</a>/imm32/name -<span id="L31517" class="LineNr">31517 </span> 0x11/imm32/alloc-id:fake -<span id="L31518" class="LineNr">31518 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31519" class="LineNr">31519 </span> 0x11/imm32/alloc-id:fake -<span id="L31520" class="LineNr">31520 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31521" class="LineNr">31521 </span> 0x11/imm32/alloc-id:fake -<span id="L31522" class="LineNr">31522 </span> <a href='mu.subx.html#L33824'>_string_0f_af_multiply</a>/imm32/subx-name -<span id="L31523" class="LineNr">31523 </span> 1/imm32/rm32-is-first-inout -<span id="L31524" class="LineNr">31524 </span> 3/imm32/r32-is-first-output -<span id="L31525" class="LineNr">31525 </span> 0/imm32/no-imm32 -<span id="L31526" class="LineNr">31526 </span> 0/imm32/no-imm8 -<span id="L31527" class="LineNr">31527 </span> 0/imm32/no-disp32 -<span id="L31528" class="LineNr">31528 </span> 0/imm32/no-xm32 -<span id="L31529" class="LineNr">31529 </span> 0/imm32/no-x32 -<span id="L31530" class="LineNr">31530 </span> 0x11/imm32/alloc-id:fake -<span id="L31531" class="LineNr">31531 </span> <a href='mu.subx.html#L31533'>_Primitive-convert-mem-to-xreg</a>/imm32/next -<span id="L31532" class="LineNr">31532 </span><span class="subxH1Comment"># - convert int to floating point</span> -<span id="L31533" class="LineNr">31533 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31534" class="LineNr">31534 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31535" class="LineNr">31535 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L31536" class="LineNr">31536 </span> 0x11/imm32/alloc-id:fake -<span id="L31537" class="LineNr">31537 </span> <a href='mu.subx.html#L33547'>_string-convert</a>/imm32/name -<span id="L31538" class="LineNr">31538 </span> 0x11/imm32/alloc-id:fake -<span id="L31539" class="LineNr">31539 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31540" class="LineNr">31540 </span> 0x11/imm32/alloc-id:fake -<span id="L31541" class="LineNr">31541 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31542" class="LineNr">31542 </span> 0x11/imm32/alloc-id:fake -<span id="L31543" class="LineNr">31543 </span> <a href='mu.subx.html#L33829'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L31544" class="LineNr">31544 </span> 1/imm32/rm32-is-first-inout -<span id="L31545" class="LineNr">31545 </span> 0/imm32/no-r32 -<span id="L31546" class="LineNr">31546 </span> 0/imm32/no-imm32 -<span id="L31547" class="LineNr">31547 </span> 0/imm32/no-imm8 -<span id="L31548" class="LineNr">31548 </span> 0/imm32/no-disp32 -<span id="L31549" class="LineNr">31549 </span> 0/imm32/no-xm32 -<span id="L31550" class="LineNr">31550 </span> 3/imm32/x32-is-first-output -<span id="L31551" class="LineNr">31551 </span> 0x11/imm32/alloc-id:fake -<span id="L31552" class="LineNr">31552 </span> <a href='mu.subx.html#L31553'>_Primitive-convert-reg-to-xreg</a>/imm32/next -<span id="L31553" class="LineNr">31553 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31554" class="LineNr">31554 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31555" class="LineNr">31555 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> -<span id="L31556" class="LineNr">31556 </span> 0x11/imm32/alloc-id:fake -<span id="L31557" class="LineNr">31557 </span> <a href='mu.subx.html#L33547'>_string-convert</a>/imm32/name -<span id="L31558" class="LineNr">31558 </span> 0x11/imm32/alloc-id:fake -<span id="L31559" class="LineNr">31559 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/inouts -<span id="L31560" class="LineNr">31560 </span> 0x11/imm32/alloc-id:fake -<span id="L31561" class="LineNr">31561 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31562" class="LineNr">31562 </span> 0x11/imm32/alloc-id:fake -<span id="L31563" class="LineNr">31563 </span> <a href='mu.subx.html#L33829'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name -<span id="L31564" class="LineNr">31564 </span> 1/imm32/rm32-is-first-inout -<span id="L31565" class="LineNr">31565 </span> 0/imm32/no-r32 -<span id="L31566" class="LineNr">31566 </span> 0/imm32/no-imm32 -<span id="L31567" class="LineNr">31567 </span> 0/imm32/no-imm8 -<span id="L31568" class="LineNr">31568 </span> 0/imm32/no-disp32 -<span id="L31569" class="LineNr">31569 </span> 0/imm32/no-xm32 -<span id="L31570" class="LineNr">31570 </span> 3/imm32/x32-is-first-output -<span id="L31571" class="LineNr">31571 </span> 0x11/imm32/alloc-id:fake -<span id="L31572" class="LineNr">31572 </span> <a href='mu.subx.html#L31574'>_Primitive-convert-xmem-to-reg</a>/imm32/next -<span id="L31573" class="LineNr">31573 </span><span class="subxH1Comment"># - convert floating point to int</span> -<span id="L31574" class="LineNr">31574 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31575" class="LineNr">31575 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31576" class="LineNr">31576 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L31577" class="LineNr">31577 </span> 0x11/imm32/alloc-id:fake -<span id="L31578" class="LineNr">31578 </span> <a href='mu.subx.html#L33547'>_string-convert</a>/imm32/name -<span id="L31579" class="LineNr">31579 </span> 0x11/imm32/alloc-id:fake -<span id="L31580" class="LineNr">31580 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31581" class="LineNr">31581 </span> 0x11/imm32/alloc-id:fake -<span id="L31582" class="LineNr">31582 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31583" class="LineNr">31583 </span> 0x11/imm32/alloc-id:fake -<span id="L31584" class="LineNr">31584 </span> <a href='mu.subx.html#L33834'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L31585" class="LineNr">31585 </span> 0/imm32/no-rm32 -<span id="L31586" class="LineNr">31586 </span> 3/imm32/r32-is-first-output -<span id="L31587" class="LineNr">31587 </span> 0/imm32/no-imm32 -<span id="L31588" class="LineNr">31588 </span> 0/imm32/no-imm8 -<span id="L31589" class="LineNr">31589 </span> 0/imm32/no-disp32 -<span id="L31590" class="LineNr">31590 </span> 1/imm32/xm32-is-first-inout -<span id="L31591" class="LineNr">31591 </span> 0/imm32/no-x32 -<span id="L31592" class="LineNr">31592 </span> 0x11/imm32/alloc-id:fake -<span id="L31593" class="LineNr">31593 </span> <a href='mu.subx.html#L31594'>_Primitive-convert-xreg-to-reg</a>/imm32/next -<span id="L31594" class="LineNr">31594 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31595" class="LineNr">31595 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31596" class="LineNr">31596 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> -<span id="L31597" class="LineNr">31597 </span> 0x11/imm32/alloc-id:fake -<span id="L31598" class="LineNr">31598 </span> <a href='mu.subx.html#L33547'>_string-convert</a>/imm32/name -<span id="L31599" class="LineNr">31599 </span> 0x11/imm32/alloc-id:fake -<span id="L31600" class="LineNr">31600 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31601" class="LineNr">31601 </span> 0x11/imm32/alloc-id:fake -<span id="L31602" class="LineNr">31602 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31603" class="LineNr">31603 </span> 0x11/imm32/alloc-id:fake -<span id="L31604" class="LineNr">31604 </span> <a href='mu.subx.html#L33834'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name -<span id="L31605" class="LineNr">31605 </span> 0/imm32/no-rm32 -<span id="L31606" class="LineNr">31606 </span> 3/imm32/r32-is-first-output -<span id="L31607" class="LineNr">31607 </span> 0/imm32/no-imm32 -<span id="L31608" class="LineNr">31608 </span> 0/imm32/no-imm8 -<span id="L31609" class="LineNr">31609 </span> 0/imm32/no-disp32 -<span id="L31610" class="LineNr">31610 </span> 1/imm32/xm32-is-first-inout -<span id="L31611" class="LineNr">31611 </span> 0/imm32/no-x32 -<span id="L31612" class="LineNr">31612 </span> 0x11/imm32/alloc-id:fake -<span id="L31613" class="LineNr">31613 </span> <a href='mu.subx.html#L31614'>_Primitive-truncate-xmem-to-reg</a>/imm32/next -<span id="L31614" class="LineNr">31614 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31615" class="LineNr">31615 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31616" class="LineNr">31616 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> -<span id="L31617" class="LineNr">31617 </span> 0x11/imm32/alloc-id:fake -<span id="L31618" class="LineNr">31618 </span> <a href='mu.subx.html#L33552'>_string-truncate</a>/imm32/name -<span id="L31619" class="LineNr">31619 </span> 0x11/imm32/alloc-id:fake -<span id="L31620" class="LineNr">31620 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31621" class="LineNr">31621 </span> 0x11/imm32/alloc-id:fake -<span id="L31622" class="LineNr">31622 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31623" class="LineNr">31623 </span> 0x11/imm32/alloc-id:fake -<span id="L31624" class="LineNr">31624 </span> <a href='mu.subx.html#L33839'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L31625" class="LineNr">31625 </span> 0/imm32/no-rm32 -<span id="L31626" class="LineNr">31626 </span> 3/imm32/r32-is-first-output -<span id="L31627" class="LineNr">31627 </span> 0/imm32/no-imm32 -<span id="L31628" class="LineNr">31628 </span> 0/imm32/no-imm8 -<span id="L31629" class="LineNr">31629 </span> 0/imm32/no-disp32 -<span id="L31630" class="LineNr">31630 </span> 1/imm32/xm32-is-first-inout -<span id="L31631" class="LineNr">31631 </span> 0/imm32/no-x32 -<span id="L31632" class="LineNr">31632 </span> 0x11/imm32/alloc-id:fake -<span id="L31633" class="LineNr">31633 </span> <a href='mu.subx.html#L31634'>_Primitive-truncate-xreg-to-reg</a>/imm32/next -<span id="L31634" class="LineNr">31634 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31635" class="LineNr">31635 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31636" class="LineNr">31636 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> -<span id="L31637" class="LineNr">31637 </span> 0x11/imm32/alloc-id:fake -<span id="L31638" class="LineNr">31638 </span> <a href='mu.subx.html#L33552'>_string-truncate</a>/imm32/name -<span id="L31639" class="LineNr">31639 </span> 0x11/imm32/alloc-id:fake -<span id="L31640" class="LineNr">31640 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31641" class="LineNr">31641 </span> 0x11/imm32/alloc-id:fake -<span id="L31642" class="LineNr">31642 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31643" class="LineNr">31643 </span> 0x11/imm32/alloc-id:fake -<span id="L31644" class="LineNr">31644 </span> <a href='mu.subx.html#L33839'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name -<span id="L31645" class="LineNr">31645 </span> 0/imm32/no-rm32 -<span id="L31646" class="LineNr">31646 </span> 3/imm32/r32-is-first-output -<span id="L31647" class="LineNr">31647 </span> 0/imm32/no-imm32 -<span id="L31648" class="LineNr">31648 </span> 0/imm32/no-imm8 -<span id="L31649" class="LineNr">31649 </span> 0/imm32/no-disp32 -<span id="L31650" class="LineNr">31650 </span> 1/imm32/xm32-is-first-inout -<span id="L31651" class="LineNr">31651 </span> 0/imm32/no-x32 -<span id="L31652" class="LineNr">31652 </span> 0x11/imm32/alloc-id:fake -<span id="L31653" class="LineNr">31653 </span> <a href='mu.subx.html#L31655'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next -<span id="L31654" class="LineNr">31654 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> -<span id="L31655" class="LineNr">31655 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31656" class="LineNr">31656 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31657" class="LineNr">31657 </span> <span class="subxComment"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> -<span id="L31658" class="LineNr">31658 </span> 0x11/imm32/alloc-id:fake -<span id="L31659" class="LineNr">31659 </span> <a href='mu.subx.html#L33557'>_string-reinterpret</a>/imm32/name -<span id="L31660" class="LineNr">31660 </span> 0x11/imm32/alloc-id:fake -<span id="L31661" class="LineNr">31661 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31662" class="LineNr">31662 </span> 0x11/imm32/alloc-id:fake -<span id="L31663" class="LineNr">31663 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/outputs -<span id="L31664" class="LineNr">31664 </span> 0x11/imm32/alloc-id:fake -<span id="L31665" class="LineNr">31665 </span> <a href='mu.subx.html#L34059'>_string_8b_-></a>/imm32/subx-name -<span id="L31666" class="LineNr">31666 </span> 0/imm32/no-rm32 -<span id="L31667" class="LineNr">31667 </span> 3/imm32/r32-is-first-output -<span id="L31668" class="LineNr">31668 </span> 0/imm32/no-imm32 -<span id="L31669" class="LineNr">31669 </span> 0/imm32/no-imm8 -<span id="L31670" class="LineNr">31670 </span> 0/imm32/no-disp32 -<span id="L31671" class="LineNr">31671 </span> 1/imm32/xm32-is-first-inout -<span id="L31672" class="LineNr">31672 </span> 0/imm32/no-x32 -<span id="L31673" class="LineNr">31673 </span> 0x11/imm32/alloc-id:fake -<span id="L31674" class="LineNr">31674 </span> <a href='mu.subx.html#L31675'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next -<span id="L31675" class="LineNr">31675 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31676" class="LineNr">31676 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31677" class="LineNr">31677 </span> <span class="subxComment"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</span> -<span id="L31678" class="LineNr">31678 </span> 0x11/imm32/alloc-id:fake -<span id="L31679" class="LineNr">31679 </span> <a href='mu.subx.html#L33557'>_string-reinterpret</a>/imm32/name -<span id="L31680" class="LineNr">31680 </span> 0x11/imm32/alloc-id:fake -<span id="L31681" class="LineNr">31681 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/inouts -<span id="L31682" class="LineNr">31682 </span> 0x11/imm32/alloc-id:fake -<span id="L31683" class="LineNr">31683 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31684" class="LineNr">31684 </span> 0x11/imm32/alloc-id:fake -<span id="L31685" class="LineNr">31685 </span> <a href='mu.subx.html#L33889'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L31686" class="LineNr">31686 </span> 1/imm32/rm32-is-first-inout -<span id="L31687" class="LineNr">31687 </span> 0/imm32/no-r32 -<span id="L31688" class="LineNr">31688 </span> 0/imm32/no-imm32 -<span id="L31689" class="LineNr">31689 </span> 0/imm32/no-imm8 -<span id="L31690" class="LineNr">31690 </span> 0/imm32/no-disp32 -<span id="L31691" class="LineNr">31691 </span> 0/imm32/no-xm32 -<span id="L31692" class="LineNr">31692 </span> 3/imm32/x32-is-first-output -<span id="L31693" class="LineNr">31693 </span> 0x11/imm32/alloc-id:fake -<span id="L31694" class="LineNr">31694 </span> <a href='mu.subx.html#L31696'>_Primitive-copy-xreg-to-xreg</a>/imm32/next -<span id="L31695" class="LineNr">31695 </span><span class="subxH1Comment"># - floating-point copy</span> -<span id="L31696" class="LineNr">31696 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31697" class="LineNr">31697 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31698" class="LineNr">31698 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> -<span id="L31699" class="LineNr">31699 </span> 0x11/imm32/alloc-id:fake -<span id="L31700" class="LineNr">31700 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31701" class="LineNr">31701 </span> 0x11/imm32/alloc-id:fake -<span id="L31702" class="LineNr">31702 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31703" class="LineNr">31703 </span> 0x11/imm32/alloc-id:fake -<span id="L31704" class="LineNr">31704 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31705" class="LineNr">31705 </span> 0x11/imm32/alloc-id:fake -<span id="L31706" class="LineNr">31706 </span> <a href='mu.subx.html#L33894'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L31707" class="LineNr">31707 </span> 0/imm32/no-rm32 -<span id="L31708" class="LineNr">31708 </span> 0/imm32/no-r32 -<span id="L31709" class="LineNr">31709 </span> 0/imm32/no-imm32 -<span id="L31710" class="LineNr">31710 </span> 0/imm32/no-imm8 -<span id="L31711" class="LineNr">31711 </span> 0/imm32/no-disp32 -<span id="L31712" class="LineNr">31712 </span> 3/imm32/xm32-is-first-output -<span id="L31713" class="LineNr">31713 </span> 1/imm32/x32-is-first-inout -<span id="L31714" class="LineNr">31714 </span> 0x11/imm32/alloc-id:fake -<span id="L31715" class="LineNr">31715 </span> <a href='mu.subx.html#L31716'>_Primitive-copy-xreg-to-mem</a>/imm32/next -<span id="L31716" class="LineNr">31716 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31717" class="LineNr">31717 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31718" class="LineNr">31718 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> -<span id="L31719" class="LineNr">31719 </span> 0x11/imm32/alloc-id:fake -<span id="L31720" class="LineNr">31720 </span> <a href='mu.subx.html#L33442'>_string-copy-to</a>/imm32/name -<span id="L31721" class="LineNr">31721 </span> 0x11/imm32/alloc-id:fake -<span id="L31722" class="LineNr">31722 </span> <span class="SpecialChar"><a href='mu.subx.html#L34262'>Two-args-float-stack-float-reg</a></span>/imm32/inouts -<span id="L31723" class="LineNr">31723 </span> 0/imm32/no-outputs -<span id="L31724" class="LineNr">31724 </span> 0/imm32/no-outputs -<span id="L31725" class="LineNr">31725 </span> 0x11/imm32/alloc-id:fake -<span id="L31726" class="LineNr">31726 </span> <a href='mu.subx.html#L33894'>_string_f3_0f_11_copy</a>/imm32/subx-name -<span id="L31727" class="LineNr">31727 </span> 0/imm32/no-rm32 -<span id="L31728" class="LineNr">31728 </span> 0/imm32/no-r32 -<span id="L31729" class="LineNr">31729 </span> 0/imm32/no-imm32 -<span id="L31730" class="LineNr">31730 </span> 0/imm32/no-imm8 -<span id="L31731" class="LineNr">31731 </span> 0/imm32/no-disp32 -<span id="L31732" class="LineNr">31732 </span> 1/imm32/xm32-is-first-inout -<span id="L31733" class="LineNr">31733 </span> 2/imm32/x32-is-second-inout -<span id="L31734" class="LineNr">31734 </span> 0x11/imm32/alloc-id:fake -<span id="L31735" class="LineNr">31735 </span> <a href='mu.subx.html#L31736'>_Primitive-copy-mem-to-xreg</a>/imm32/next -<span id="L31736" class="LineNr">31736 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31737" class="LineNr">31737 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31738" class="LineNr">31738 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> -<span id="L31739" class="LineNr">31739 </span> 0x11/imm32/alloc-id:fake -<span id="L31740" class="LineNr">31740 </span> <a href='mu.subx.html#L33437'>_string-copy</a>/imm32/name -<span id="L31741" class="LineNr">31741 </span> 0x11/imm32/alloc-id:fake -<span id="L31742" class="LineNr">31742 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31743" class="LineNr">31743 </span> 0x11/imm32/alloc-id:fake -<span id="L31744" class="LineNr">31744 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31745" class="LineNr">31745 </span> 0x11/imm32/alloc-id:fake -<span id="L31746" class="LineNr">31746 </span> <a href='mu.subx.html#L33889'>_string_f3_0f_10_copy</a>/imm32/subx-name -<span id="L31747" class="LineNr">31747 </span> 0/imm32/no-rm32 -<span id="L31748" class="LineNr">31748 </span> 0/imm32/no-r32 -<span id="L31749" class="LineNr">31749 </span> 0/imm32/no-imm32 -<span id="L31750" class="LineNr">31750 </span> 0/imm32/no-imm8 -<span id="L31751" class="LineNr">31751 </span> 0/imm32/no-disp32 -<span id="L31752" class="LineNr">31752 </span> 1/imm32/xm32-is-first-inout -<span id="L31753" class="LineNr">31753 </span> 3/imm32/x32-is-first-output -<span id="L31754" class="LineNr">31754 </span> 0x11/imm32/alloc-id:fake -<span id="L31755" class="LineNr">31755 </span> <a href='mu.subx.html#L31757'>_Primitive-address-of-xmem</a>/imm32/next -<span id="L31756" class="LineNr">31756 </span><span class="subxH1Comment"># - floating-point-address</span> -<span id="L31757" class="LineNr">31757 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31758" class="LineNr">31758 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31759" class="LineNr">31759 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> -<span id="L31760" class="LineNr">31760 </span> 0x11/imm32/alloc-id:fake -<span id="L31761" class="LineNr">31761 </span> <a href='mu.subx.html#L33337'>_string-address</a>/imm32/name -<span id="L31762" class="LineNr">31762 </span> 0x11/imm32/alloc-id:fake -<span id="L31763" class="LineNr">31763 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31764" class="LineNr">31764 </span> 0x11/imm32/alloc-id:fake -<span id="L31765" class="LineNr">31765 </span> <span class="SpecialChar"><a href='mu.subx.html#L34276'>Single-addr-var-in-some-register</a></span>/imm32/outputs -<span id="L31766" class="LineNr">31766 </span> 0x11/imm32/alloc-id:fake -<span id="L31767" class="LineNr">31767 </span> <a href='mu.subx.html#L34074'>_string_8d_copy_address</a>/imm32/subx-name -<span id="L31768" class="LineNr">31768 </span> 1/imm32/rm32-is-first-inout -<span id="L31769" class="LineNr">31769 </span> 3/imm32/r32-is-first-output -<span id="L31770" class="LineNr">31770 </span> 0/imm32/no-imm32 -<span id="L31771" class="LineNr">31771 </span> 0/imm32/no-imm8 -<span id="L31772" class="LineNr">31772 </span> 0/imm32/no-disp32 -<span id="L31773" class="LineNr">31773 </span> 0/imm32/no-xm32 -<span id="L31774" class="LineNr">31774 </span> 0/imm32/no-x32 -<span id="L31775" class="LineNr">31775 </span> 0x11/imm32/alloc-id:fake -<span id="L31776" class="LineNr">31776 </span> <a href='mu.subx.html#L31778'>_Primitive-add-xreg-to-xreg</a>/imm32/next -<span id="L31777" class="LineNr">31777 </span><span class="subxH1Comment"># - floating-point add</span> -<span id="L31778" class="LineNr">31778 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31779" class="LineNr">31779 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31780" class="LineNr">31780 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> -<span id="L31781" class="LineNr">31781 </span> 0x11/imm32/alloc-id:fake -<span id="L31782" class="LineNr">31782 </span> <a href='mu.subx.html#L33332'>_string-add</a>/imm32/name -<span id="L31783" class="LineNr">31783 </span> 0x11/imm32/alloc-id:fake -<span id="L31784" class="LineNr">31784 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31785" class="LineNr">31785 </span> 0x11/imm32/alloc-id:fake -<span id="L31786" class="LineNr">31786 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31787" class="LineNr">31787 </span> 0x11/imm32/alloc-id:fake -<span id="L31788" class="LineNr">31788 </span> <a href='mu.subx.html#L33844'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L31789" class="LineNr">31789 </span> 0/imm32/no-rm32 -<span id="L31790" class="LineNr">31790 </span> 0/imm32/no-r32 -<span id="L31791" class="LineNr">31791 </span> 0/imm32/no-imm32 -<span id="L31792" class="LineNr">31792 </span> 0/imm32/no-imm8 -<span id="L31793" class="LineNr">31793 </span> 0/imm32/no-disp32 -<span id="L31794" class="LineNr">31794 </span> 1/imm32/xm32-is-first-inout -<span id="L31795" class="LineNr">31795 </span> 3/imm32/x32-is-first-output -<span id="L31796" class="LineNr">31796 </span> 0x11/imm32/alloc-id:fake -<span id="L31797" class="LineNr">31797 </span> <a href='mu.subx.html#L31798'>_Primitive-add-mem-to-xreg</a>/imm32/next -<span id="L31798" class="LineNr">31798 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31799" class="LineNr">31799 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31800" class="LineNr">31800 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> -<span id="L31801" class="LineNr">31801 </span> 0x11/imm32/alloc-id:fake -<span id="L31802" class="LineNr">31802 </span> <a href='mu.subx.html#L33332'>_string-add</a>/imm32/name -<span id="L31803" class="LineNr">31803 </span> 0x11/imm32/alloc-id:fake -<span id="L31804" class="LineNr">31804 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31805" class="LineNr">31805 </span> 0x11/imm32/alloc-id:fake -<span id="L31806" class="LineNr">31806 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31807" class="LineNr">31807 </span> 0x11/imm32/alloc-id:fake -<span id="L31808" class="LineNr">31808 </span> <a href='mu.subx.html#L33844'>_string_f3_0f_58_add</a>/imm32/subx-name -<span id="L31809" class="LineNr">31809 </span> 0/imm32/no-rm32 -<span id="L31810" class="LineNr">31810 </span> 0/imm32/no-r32 -<span id="L31811" class="LineNr">31811 </span> 0/imm32/no-imm32 -<span id="L31812" class="LineNr">31812 </span> 0/imm32/no-imm8 -<span id="L31813" class="LineNr">31813 </span> 0/imm32/no-disp32 -<span id="L31814" class="LineNr">31814 </span> 1/imm32/xm32-is-first-inout -<span id="L31815" class="LineNr">31815 </span> 3/imm32/x32-is-first-output -<span id="L31816" class="LineNr">31816 </span> 0x11/imm32/alloc-id:fake -<span id="L31817" class="LineNr">31817 </span> <a href='mu.subx.html#L31819'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next -<span id="L31818" class="LineNr">31818 </span><span class="subxH1Comment"># - floating-point subtract</span> -<span id="L31819" class="LineNr">31819 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31820" class="LineNr">31820 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31821" class="LineNr">31821 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> -<span id="L31822" class="LineNr">31822 </span> 0x11/imm32/alloc-id:fake -<span id="L31823" class="LineNr">31823 </span> <a href='mu.subx.html#L33607'>_string-subtract</a>/imm32/name -<span id="L31824" class="LineNr">31824 </span> 0x11/imm32/alloc-id:fake -<span id="L31825" class="LineNr">31825 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31826" class="LineNr">31826 </span> 0x11/imm32/alloc-id:fake -<span id="L31827" class="LineNr">31827 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31828" class="LineNr">31828 </span> 0x11/imm32/alloc-id:fake -<span id="L31829" class="LineNr">31829 </span> <a href='mu.subx.html#L33849'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L31830" class="LineNr">31830 </span> 0/imm32/no-rm32 -<span id="L31831" class="LineNr">31831 </span> 0/imm32/no-r32 -<span id="L31832" class="LineNr">31832 </span> 0/imm32/no-imm32 -<span id="L31833" class="LineNr">31833 </span> 0/imm32/no-imm8 -<span id="L31834" class="LineNr">31834 </span> 0/imm32/no-disp32 -<span id="L31835" class="LineNr">31835 </span> 1/imm32/xm32-is-first-inout -<span id="L31836" class="LineNr">31836 </span> 3/imm32/x32-is-first-output -<span id="L31837" class="LineNr">31837 </span> 0x11/imm32/alloc-id:fake -<span id="L31838" class="LineNr">31838 </span> <a href='mu.subx.html#L31839'>_Primitive-subtract-mem-from-xreg</a>/imm32/next -<span id="L31839" class="LineNr">31839 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31840" class="LineNr">31840 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31841" class="LineNr">31841 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> -<span id="L31842" class="LineNr">31842 </span> 0x11/imm32/alloc-id:fake -<span id="L31843" class="LineNr">31843 </span> <a href='mu.subx.html#L33607'>_string-subtract</a>/imm32/name -<span id="L31844" class="LineNr">31844 </span> 0x11/imm32/alloc-id:fake -<span id="L31845" class="LineNr">31845 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31846" class="LineNr">31846 </span> 0x11/imm32/alloc-id:fake -<span id="L31847" class="LineNr">31847 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31848" class="LineNr">31848 </span> 0x11/imm32/alloc-id:fake -<span id="L31849" class="LineNr">31849 </span> <a href='mu.subx.html#L33849'>_string_f3_0f_5c_subtract</a>/imm32/subx-name -<span id="L31850" class="LineNr">31850 </span> 0/imm32/no-rm32 -<span id="L31851" class="LineNr">31851 </span> 0/imm32/no-r32 -<span id="L31852" class="LineNr">31852 </span> 0/imm32/no-imm32 -<span id="L31853" class="LineNr">31853 </span> 0/imm32/no-imm8 -<span id="L31854" class="LineNr">31854 </span> 0/imm32/no-disp32 -<span id="L31855" class="LineNr">31855 </span> 1/imm32/xm32-is-first-inout -<span id="L31856" class="LineNr">31856 </span> 3/imm32/x32-is-first-output -<span id="L31857" class="LineNr">31857 </span> 0x11/imm32/alloc-id:fake -<span id="L31858" class="LineNr">31858 </span> <a href='mu.subx.html#L31860'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next -<span id="L31859" class="LineNr">31859 </span><span class="subxH1Comment"># - floating-point multiply</span> -<span id="L31860" class="LineNr">31860 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31861" class="LineNr">31861 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31862" class="LineNr">31862 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L31863" class="LineNr">31863 </span> 0x11/imm32/alloc-id:fake -<span id="L31864" class="LineNr">31864 </span> <a href='mu.subx.html#L33542'>_string-multiply</a>/imm32/name -<span id="L31865" class="LineNr">31865 </span> 0x11/imm32/alloc-id:fake -<span id="L31866" class="LineNr">31866 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31867" class="LineNr">31867 </span> 0x11/imm32/alloc-id:fake -<span id="L31868" class="LineNr">31868 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31869" class="LineNr">31869 </span> 0x11/imm32/alloc-id:fake -<span id="L31870" class="LineNr">31870 </span> <a href='mu.subx.html#L33854'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L31871" class="LineNr">31871 </span> 0/imm32/no-rm32 -<span id="L31872" class="LineNr">31872 </span> 0/imm32/no-r32 -<span id="L31873" class="LineNr">31873 </span> 0/imm32/no-imm32 -<span id="L31874" class="LineNr">31874 </span> 0/imm32/no-imm8 -<span id="L31875" class="LineNr">31875 </span> 0/imm32/no-disp32 -<span id="L31876" class="LineNr">31876 </span> 1/imm32/xm32-is-first-inout -<span id="L31877" class="LineNr">31877 </span> 3/imm32/x32-is-first-output -<span id="L31878" class="LineNr">31878 </span> 0x11/imm32/alloc-id:fake -<span id="L31879" class="LineNr">31879 </span> <a href='mu.subx.html#L31880'>_Primitive-multiply-xreg-by-mem</a>/imm32/next -<span id="L31880" class="LineNr">31880 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31881" class="LineNr">31881 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31882" class="LineNr">31882 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> -<span id="L31883" class="LineNr">31883 </span> 0x11/imm32/alloc-id:fake -<span id="L31884" class="LineNr">31884 </span> <a href='mu.subx.html#L33542'>_string-multiply</a>/imm32/name -<span id="L31885" class="LineNr">31885 </span> 0x11/imm32/alloc-id:fake -<span id="L31886" class="LineNr">31886 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31887" class="LineNr">31887 </span> 0x11/imm32/alloc-id:fake -<span id="L31888" class="LineNr">31888 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31889" class="LineNr">31889 </span> 0x11/imm32/alloc-id:fake -<span id="L31890" class="LineNr">31890 </span> <a href='mu.subx.html#L33854'>_string_f3_0f_59_multiply</a>/imm32/subx-name -<span id="L31891" class="LineNr">31891 </span> 0/imm32/no-rm32 -<span id="L31892" class="LineNr">31892 </span> 0/imm32/no-r32 -<span id="L31893" class="LineNr">31893 </span> 0/imm32/no-imm32 -<span id="L31894" class="LineNr">31894 </span> 0/imm32/no-imm8 -<span id="L31895" class="LineNr">31895 </span> 0/imm32/no-disp32 -<span id="L31896" class="LineNr">31896 </span> 1/imm32/xm32-is-first-inout -<span id="L31897" class="LineNr">31897 </span> 3/imm32/x32-is-first-output -<span id="L31898" class="LineNr">31898 </span> 0x11/imm32/alloc-id:fake -<span id="L31899" class="LineNr">31899 </span> <a href='mu.subx.html#L31901'>_Primitive-divide-xreg-by-xreg</a>/imm32/next -<span id="L31900" class="LineNr">31900 </span><span class="subxH1Comment"># - floating-point divide</span> -<span id="L31901" class="LineNr">31901 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31902" class="LineNr">31902 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31903" class="LineNr">31903 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L31904" class="LineNr">31904 </span> 0x11/imm32/alloc-id:fake -<span id="L31905" class="LineNr">31905 </span> <a href='mu.subx.html#L33562'>_string-divide</a>/imm32/name -<span id="L31906" class="LineNr">31906 </span> 0x11/imm32/alloc-id:fake -<span id="L31907" class="LineNr">31907 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31908" class="LineNr">31908 </span> 0x11/imm32/alloc-id:fake -<span id="L31909" class="LineNr">31909 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31910" class="LineNr">31910 </span> 0x11/imm32/alloc-id:fake -<span id="L31911" class="LineNr">31911 </span> <a href='mu.subx.html#L33859'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L31912" class="LineNr">31912 </span> 0/imm32/no-rm32 -<span id="L31913" class="LineNr">31913 </span> 0/imm32/no-r32 -<span id="L31914" class="LineNr">31914 </span> 0/imm32/no-imm32 -<span id="L31915" class="LineNr">31915 </span> 0/imm32/no-imm8 -<span id="L31916" class="LineNr">31916 </span> 0/imm32/no-disp32 -<span id="L31917" class="LineNr">31917 </span> 1/imm32/xm32-is-first-inout -<span id="L31918" class="LineNr">31918 </span> 3/imm32/x32-is-first-output -<span id="L31919" class="LineNr">31919 </span> 0x11/imm32/alloc-id:fake -<span id="L31920" class="LineNr">31920 </span> <a href='mu.subx.html#L31921'>_Primitive-divide-xreg-by-mem</a>/imm32/next -<span id="L31921" class="LineNr">31921 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31922" class="LineNr">31922 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31923" class="LineNr">31923 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> -<span id="L31924" class="LineNr">31924 </span> 0x11/imm32/alloc-id:fake -<span id="L31925" class="LineNr">31925 </span> <a href='mu.subx.html#L33562'>_string-divide</a>/imm32/name -<span id="L31926" class="LineNr">31926 </span> 0x11/imm32/alloc-id:fake -<span id="L31927" class="LineNr">31927 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31928" class="LineNr">31928 </span> 0x11/imm32/alloc-id:fake -<span id="L31929" class="LineNr">31929 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31930" class="LineNr">31930 </span> 0x11/imm32/alloc-id:fake -<span id="L31931" class="LineNr">31931 </span> <a href='mu.subx.html#L33859'>_string_f3_0f_5e_divide</a>/imm32/subx-name -<span id="L31932" class="LineNr">31932 </span> 0/imm32/no-rm32 -<span id="L31933" class="LineNr">31933 </span> 0/imm32/no-r32 -<span id="L31934" class="LineNr">31934 </span> 0/imm32/no-imm32 -<span id="L31935" class="LineNr">31935 </span> 0/imm32/no-imm8 -<span id="L31936" class="LineNr">31936 </span> 0/imm32/no-disp32 -<span id="L31937" class="LineNr">31937 </span> 1/imm32/xm32-is-first-inout -<span id="L31938" class="LineNr">31938 </span> 3/imm32/x32-is-first-output -<span id="L31939" class="LineNr">31939 </span> 0x11/imm32/alloc-id:fake -<span id="L31940" class="LineNr">31940 </span> <a href='mu.subx.html#L31942'>_Primitive-max-xreg-with-xreg</a>/imm32/next -<span id="L31941" class="LineNr">31941 </span><span class="subxH1Comment"># - floating-point maximum</span> -<span id="L31942" class="LineNr">31942 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31943" class="LineNr">31943 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31944" class="LineNr">31944 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L31945" class="LineNr">31945 </span> 0x11/imm32/alloc-id:fake -<span id="L31946" class="LineNr">31946 </span> <a href='mu.subx.html#L33567'>_string-max</a>/imm32/name -<span id="L31947" class="LineNr">31947 </span> 0x11/imm32/alloc-id:fake -<span id="L31948" class="LineNr">31948 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31949" class="LineNr">31949 </span> 0x11/imm32/alloc-id:fake -<span id="L31950" class="LineNr">31950 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31951" class="LineNr">31951 </span> 0x11/imm32/alloc-id:fake -<span id="L31952" class="LineNr">31952 </span> <a href='mu.subx.html#L33884'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L31953" class="LineNr">31953 </span> 0/imm32/no-rm32 -<span id="L31954" class="LineNr">31954 </span> 0/imm32/no-r32 -<span id="L31955" class="LineNr">31955 </span> 0/imm32/no-imm32 -<span id="L31956" class="LineNr">31956 </span> 0/imm32/no-imm8 -<span id="L31957" class="LineNr">31957 </span> 0/imm32/no-disp32 -<span id="L31958" class="LineNr">31958 </span> 1/imm32/xm32-is-first-inout -<span id="L31959" class="LineNr">31959 </span> 3/imm32/x32-is-first-output -<span id="L31960" class="LineNr">31960 </span> 0x11/imm32/alloc-id:fake -<span id="L31961" class="LineNr">31961 </span> <a href='mu.subx.html#L31962'>_Primitive-max-xreg-with-mem</a>/imm32/next -<span id="L31962" class="LineNr">31962 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31963" class="LineNr">31963 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31964" class="LineNr">31964 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> -<span id="L31965" class="LineNr">31965 </span> 0x11/imm32/alloc-id:fake -<span id="L31966" class="LineNr">31966 </span> <a href='mu.subx.html#L33567'>_string-max</a>/imm32/name -<span id="L31967" class="LineNr">31967 </span> 0x11/imm32/alloc-id:fake -<span id="L31968" class="LineNr">31968 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L31969" class="LineNr">31969 </span> 0x11/imm32/alloc-id:fake -<span id="L31970" class="LineNr">31970 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31971" class="LineNr">31971 </span> 0x11/imm32/alloc-id:fake -<span id="L31972" class="LineNr">31972 </span> <a href='mu.subx.html#L33884'>_string_f3_0f_5f_max</a>/imm32/subx-name -<span id="L31973" class="LineNr">31973 </span> 0/imm32/no-rm32 -<span id="L31974" class="LineNr">31974 </span> 0/imm32/no-r32 -<span id="L31975" class="LineNr">31975 </span> 0/imm32/no-imm32 -<span id="L31976" class="LineNr">31976 </span> 0/imm32/no-imm8 -<span id="L31977" class="LineNr">31977 </span> 0/imm32/no-disp32 -<span id="L31978" class="LineNr">31978 </span> 1/imm32/xm32-is-first-inout -<span id="L31979" class="LineNr">31979 </span> 3/imm32/x32-is-first-output -<span id="L31980" class="LineNr">31980 </span> 0x11/imm32/alloc-id:fake -<span id="L31981" class="LineNr">31981 </span> <a href='mu.subx.html#L31983'>_Primitive-min-xreg-with-xreg</a>/imm32/next -<span id="L31982" class="LineNr">31982 </span><span class="subxH1Comment"># - floating-point minimum</span> -<span id="L31983" class="LineNr">31983 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L31984" class="LineNr">31984 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L31985" class="LineNr">31985 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L31986" class="LineNr">31986 </span> 0x11/imm32/alloc-id:fake -<span id="L31987" class="LineNr">31987 </span> <a href='mu.subx.html#L33572'>_string-min</a>/imm32/name -<span id="L31988" class="LineNr">31988 </span> 0x11/imm32/alloc-id:fake -<span id="L31989" class="LineNr">31989 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L31990" class="LineNr">31990 </span> 0x11/imm32/alloc-id:fake -<span id="L31991" class="LineNr">31991 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L31992" class="LineNr">31992 </span> 0x11/imm32/alloc-id:fake -<span id="L31993" class="LineNr">31993 </span> <a href='mu.subx.html#L33879'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L31994" class="LineNr">31994 </span> 0/imm32/no-rm32 -<span id="L31995" class="LineNr">31995 </span> 0/imm32/no-r32 -<span id="L31996" class="LineNr">31996 </span> 0/imm32/no-imm32 -<span id="L31997" class="LineNr">31997 </span> 0/imm32/no-imm8 -<span id="L31998" class="LineNr">31998 </span> 0/imm32/no-disp32 -<span id="L31999" class="LineNr">31999 </span> 1/imm32/xm32-is-first-inout -<span id="L32000" class="LineNr">32000 </span> 3/imm32/x32-is-first-output -<span id="L32001" class="LineNr">32001 </span> 0x11/imm32/alloc-id:fake -<span id="L32002" class="LineNr">32002 </span> <a href='mu.subx.html#L32003'>_Primitive-min-xreg-with-mem</a>/imm32/next -<span id="L32003" class="LineNr">32003 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32004" class="LineNr">32004 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32005" class="LineNr">32005 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> -<span id="L32006" class="LineNr">32006 </span> 0x11/imm32/alloc-id:fake -<span id="L32007" class="LineNr">32007 </span> <a href='mu.subx.html#L33572'>_string-min</a>/imm32/name -<span id="L32008" class="LineNr">32008 </span> 0x11/imm32/alloc-id:fake -<span id="L32009" class="LineNr">32009 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32010" class="LineNr">32010 </span> 0x11/imm32/alloc-id:fake -<span id="L32011" class="LineNr">32011 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32012" class="LineNr">32012 </span> 0x11/imm32/alloc-id:fake -<span id="L32013" class="LineNr">32013 </span> <a href='mu.subx.html#L33879'>_string_f3_0f_5d_min</a>/imm32/subx-name -<span id="L32014" class="LineNr">32014 </span> 0/imm32/no-rm32 -<span id="L32015" class="LineNr">32015 </span> 0/imm32/no-r32 -<span id="L32016" class="LineNr">32016 </span> 0/imm32/no-imm32 -<span id="L32017" class="LineNr">32017 </span> 0/imm32/no-imm8 -<span id="L32018" class="LineNr">32018 </span> 0/imm32/no-disp32 -<span id="L32019" class="LineNr">32019 </span> 1/imm32/xm32-is-first-inout -<span id="L32020" class="LineNr">32020 </span> 3/imm32/x32-is-first-output -<span id="L32021" class="LineNr">32021 </span> 0x11/imm32/alloc-id:fake -<span id="L32022" class="LineNr">32022 </span> <a href='mu.subx.html#L32024'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next -<span id="L32023" class="LineNr">32023 </span><span class="subxH1Comment"># - floating-point reciprocal</span> -<span id="L32024" class="LineNr">32024 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32025" class="LineNr">32025 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32026" class="LineNr">32026 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L32027" class="LineNr">32027 </span> 0x11/imm32/alloc-id:fake -<span id="L32028" class="LineNr">32028 </span> <a href='mu.subx.html#L33577'>_string-reciprocal</a>/imm32/name -<span id="L32029" class="LineNr">32029 </span> 0x11/imm32/alloc-id:fake -<span id="L32030" class="LineNr">32030 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32031" class="LineNr">32031 </span> 0x11/imm32/alloc-id:fake -<span id="L32032" class="LineNr">32032 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32033" class="LineNr">32033 </span> 0x11/imm32/alloc-id:fake -<span id="L32034" class="LineNr">32034 </span> <a href='mu.subx.html#L33864'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L32035" class="LineNr">32035 </span> 0/imm32/no-rm32 -<span id="L32036" class="LineNr">32036 </span> 0/imm32/no-r32 -<span id="L32037" class="LineNr">32037 </span> 0/imm32/no-imm32 -<span id="L32038" class="LineNr">32038 </span> 0/imm32/no-imm8 -<span id="L32039" class="LineNr">32039 </span> 0/imm32/no-disp32 -<span id="L32040" class="LineNr">32040 </span> 1/imm32/xm32-is-first-inout -<span id="L32041" class="LineNr">32041 </span> 3/imm32/x32-is-first-output -<span id="L32042" class="LineNr">32042 </span> 0x11/imm32/alloc-id:fake -<span id="L32043" class="LineNr">32043 </span> <a href='mu.subx.html#L32044'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next -<span id="L32044" class="LineNr">32044 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32045" class="LineNr">32045 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32046" class="LineNr">32046 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> -<span id="L32047" class="LineNr">32047 </span> 0x11/imm32/alloc-id:fake -<span id="L32048" class="LineNr">32048 </span> <a href='mu.subx.html#L33577'>_string-reciprocal</a>/imm32/name -<span id="L32049" class="LineNr">32049 </span> 0x11/imm32/alloc-id:fake -<span id="L32050" class="LineNr">32050 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32051" class="LineNr">32051 </span> 0x11/imm32/alloc-id:fake -<span id="L32052" class="LineNr">32052 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32053" class="LineNr">32053 </span> 0x11/imm32/alloc-id:fake -<span id="L32054" class="LineNr">32054 </span> <a href='mu.subx.html#L33864'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name -<span id="L32055" class="LineNr">32055 </span> 0/imm32/no-rm32 -<span id="L32056" class="LineNr">32056 </span> 0/imm32/no-r32 -<span id="L32057" class="LineNr">32057 </span> 0/imm32/no-imm32 -<span id="L32058" class="LineNr">32058 </span> 0/imm32/no-imm8 -<span id="L32059" class="LineNr">32059 </span> 0/imm32/no-disp32 -<span id="L32060" class="LineNr">32060 </span> 1/imm32/xm32-is-first-inout -<span id="L32061" class="LineNr">32061 </span> 3/imm32/x32-is-first-output -<span id="L32062" class="LineNr">32062 </span> 0x11/imm32/alloc-id:fake -<span id="L32063" class="LineNr">32063 </span> <a href='mu.subx.html#L32065'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next -<span id="L32064" class="LineNr">32064 </span><span class="subxH1Comment"># - floating-point square root</span> -<span id="L32065" class="LineNr">32065 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32066" class="LineNr">32066 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32067" class="LineNr">32067 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L32068" class="LineNr">32068 </span> 0x11/imm32/alloc-id:fake -<span id="L32069" class="LineNr">32069 </span> <a href='mu.subx.html#L33582'>_string-square-root</a>/imm32/name -<span id="L32070" class="LineNr">32070 </span> 0x11/imm32/alloc-id:fake -<span id="L32071" class="LineNr">32071 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32072" class="LineNr">32072 </span> 0x11/imm32/alloc-id:fake -<span id="L32073" class="LineNr">32073 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32074" class="LineNr">32074 </span> 0x11/imm32/alloc-id:fake -<span id="L32075" class="LineNr">32075 </span> <a href='mu.subx.html#L33869'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L32076" class="LineNr">32076 </span> 0/imm32/no-rm32 -<span id="L32077" class="LineNr">32077 </span> 0/imm32/no-r32 -<span id="L32078" class="LineNr">32078 </span> 0/imm32/no-imm32 -<span id="L32079" class="LineNr">32079 </span> 0/imm32/no-imm8 -<span id="L32080" class="LineNr">32080 </span> 0/imm32/no-disp32 -<span id="L32081" class="LineNr">32081 </span> 1/imm32/xm32-is-first-inout -<span id="L32082" class="LineNr">32082 </span> 3/imm32/x32-is-first-output -<span id="L32083" class="LineNr">32083 </span> 0x11/imm32/alloc-id:fake -<span id="L32084" class="LineNr">32084 </span> <a href='mu.subx.html#L32085'>_Primitive-square-root-mem-to-xreg</a>/imm32/next -<span id="L32085" class="LineNr">32085 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32086" class="LineNr">32086 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32087" class="LineNr">32087 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> -<span id="L32088" class="LineNr">32088 </span> 0x11/imm32/alloc-id:fake -<span id="L32089" class="LineNr">32089 </span> <a href='mu.subx.html#L33582'>_string-square-root</a>/imm32/name -<span id="L32090" class="LineNr">32090 </span> 0x11/imm32/alloc-id:fake -<span id="L32091" class="LineNr">32091 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32092" class="LineNr">32092 </span> 0x11/imm32/alloc-id:fake -<span id="L32093" class="LineNr">32093 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32094" class="LineNr">32094 </span> 0x11/imm32/alloc-id:fake -<span id="L32095" class="LineNr">32095 </span> <a href='mu.subx.html#L33869'>_string_f3_0f_51_square_root</a>/imm32/subx-name -<span id="L32096" class="LineNr">32096 </span> 0/imm32/no-rm32 -<span id="L32097" class="LineNr">32097 </span> 0/imm32/no-r32 -<span id="L32098" class="LineNr">32098 </span> 0/imm32/no-imm32 -<span id="L32099" class="LineNr">32099 </span> 0/imm32/no-imm8 -<span id="L32100" class="LineNr">32100 </span> 0/imm32/no-disp32 -<span id="L32101" class="LineNr">32101 </span> 1/imm32/xm32-is-first-inout -<span id="L32102" class="LineNr">32102 </span> 3/imm32/x32-is-first-output -<span id="L32103" class="LineNr">32103 </span> 0x11/imm32/alloc-id:fake -<span id="L32104" class="LineNr">32104 </span> <a href='mu.subx.html#L32106'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next -<span id="L32105" class="LineNr">32105 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> -<span id="L32106" class="LineNr">32106 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32107" class="LineNr">32107 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32108" class="LineNr">32108 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L32109" class="LineNr">32109 </span> 0x11/imm32/alloc-id:fake -<span id="L32110" class="LineNr">32110 </span> <a href='mu.subx.html#L33587'>_string-inverse-square-root</a>/imm32/name -<span id="L32111" class="LineNr">32111 </span> 0x11/imm32/alloc-id:fake -<span id="L32112" class="LineNr">32112 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/inouts -<span id="L32113" class="LineNr">32113 </span> 0x11/imm32/alloc-id:fake -<span id="L32114" class="LineNr">32114 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32115" class="LineNr">32115 </span> 0x11/imm32/alloc-id:fake -<span id="L32116" class="LineNr">32116 </span> <a href='mu.subx.html#L33874'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L32117" class="LineNr">32117 </span> 0/imm32/no-rm32 -<span id="L32118" class="LineNr">32118 </span> 0/imm32/no-r32 -<span id="L32119" class="LineNr">32119 </span> 0/imm32/no-imm32 -<span id="L32120" class="LineNr">32120 </span> 0/imm32/no-imm8 -<span id="L32121" class="LineNr">32121 </span> 0/imm32/no-disp32 -<span id="L32122" class="LineNr">32122 </span> 1/imm32/xm32-is-first-inout -<span id="L32123" class="LineNr">32123 </span> 3/imm32/x32-is-first-output -<span id="L32124" class="LineNr">32124 </span> 0x11/imm32/alloc-id:fake -<span id="L32125" class="LineNr">32125 </span> <a href='mu.subx.html#L32126'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next -<span id="L32126" class="LineNr">32126 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32127" class="LineNr">32127 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32128" class="LineNr">32128 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> -<span id="L32129" class="LineNr">32129 </span> 0x11/imm32/alloc-id:fake -<span id="L32130" class="LineNr">32130 </span> <a href='mu.subx.html#L33587'>_string-inverse-square-root</a>/imm32/name -<span id="L32131" class="LineNr">32131 </span> 0x11/imm32/alloc-id:fake -<span id="L32132" class="LineNr">32132 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/inouts -<span id="L32133" class="LineNr">32133 </span> 0x11/imm32/alloc-id:fake -<span id="L32134" class="LineNr">32134 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/outputs -<span id="L32135" class="LineNr">32135 </span> 0x11/imm32/alloc-id:fake -<span id="L32136" class="LineNr">32136 </span> <a href='mu.subx.html#L33874'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name -<span id="L32137" class="LineNr">32137 </span> 0/imm32/no-rm32 -<span id="L32138" class="LineNr">32138 </span> 0/imm32/no-r32 -<span id="L32139" class="LineNr">32139 </span> 0/imm32/no-imm32 -<span id="L32140" class="LineNr">32140 </span> 0/imm32/no-imm8 -<span id="L32141" class="LineNr">32141 </span> 0/imm32/no-disp32 -<span id="L32142" class="LineNr">32142 </span> 1/imm32/xm32-is-first-inout -<span id="L32143" class="LineNr">32143 </span> 3/imm32/x32-is-first-output -<span id="L32144" class="LineNr">32144 </span> 0x11/imm32/alloc-id:fake -<span id="L32145" class="LineNr">32145 </span> <a href='mu.subx.html#L32147'>_Primitive-compare-xreg-with-xreg</a>/imm32/next -<span id="L32146" class="LineNr">32146 </span><span class="subxH1Comment"># - floating-point compare</span> -<span id="L32147" class="LineNr">32147 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32148" class="LineNr">32148 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32149" class="LineNr">32149 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> -<span id="L32150" class="LineNr">32150 </span> 0x11/imm32/alloc-id:fake -<span id="L32151" class="LineNr">32151 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L32152" class="LineNr">32152 </span> 0x11/imm32/alloc-id:fake -<span id="L32153" class="LineNr">32153 </span> <span class="SpecialChar"><a href='mu.subx.html#L34248'>Two-float-args-in-regs</a></span>/imm32/inouts -<span id="L32154" class="LineNr">32154 </span> 0/imm32/no-outputs -<span id="L32155" class="LineNr">32155 </span> 0/imm32/no-outputs -<span id="L32156" class="LineNr">32156 </span> 0x11/imm32/alloc-id:fake -<span id="L32157" class="LineNr">32157 </span> <a href='mu.subx.html#L33899'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L32158" class="LineNr">32158 </span> 0/imm32/no-rm32 -<span id="L32159" class="LineNr">32159 </span> 0/imm32/no-r32 -<span id="L32160" class="LineNr">32160 </span> 0/imm32/no-imm32 -<span id="L32161" class="LineNr">32161 </span> 0/imm32/no-imm8 -<span id="L32162" class="LineNr">32162 </span> 0/imm32/no-disp32 -<span id="L32163" class="LineNr">32163 </span> 1/imm32/xm32-is-first-inout -<span id="L32164" class="LineNr">32164 </span> 2/imm32/x32-is-second-inout -<span id="L32165" class="LineNr">32165 </span> 0x11/imm32/alloc-id:fake -<span id="L32166" class="LineNr">32166 </span> <a href='mu.subx.html#L32167'>_Primitive-compare-xreg-with-mem</a>/imm32/next -<span id="L32167" class="LineNr">32167 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32168" class="LineNr">32168 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32169" class="LineNr">32169 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> -<span id="L32170" class="LineNr">32170 </span> 0x11/imm32/alloc-id:fake -<span id="L32171" class="LineNr">32171 </span> <a href='mu.subx.html#L33432'>_string-compare</a>/imm32/name -<span id="L32172" class="LineNr">32172 </span> 0x11/imm32/alloc-id:fake -<span id="L32173" class="LineNr">32173 </span> <span class="SpecialChar"><a href='mu.subx.html#L34255'>Two-args-float-reg-float-stack</a></span>/imm32/inouts -<span id="L32174" class="LineNr">32174 </span> 0/imm32/no-outputs -<span id="L32175" class="LineNr">32175 </span> 0/imm32/no-outputs -<span id="L32176" class="LineNr">32176 </span> 0x11/imm32/alloc-id:fake -<span id="L32177" class="LineNr">32177 </span> <a href='mu.subx.html#L33899'>_string_0f_2f_compare</a>/imm32/subx-name -<span id="L32178" class="LineNr">32178 </span> 0/imm32/no-rm32 -<span id="L32179" class="LineNr">32179 </span> 0/imm32/no-r32 -<span id="L32180" class="LineNr">32180 </span> 0/imm32/no-imm32 -<span id="L32181" class="LineNr">32181 </span> 0/imm32/no-imm8 -<span id="L32182" class="LineNr">32182 </span> 0/imm32/no-disp32 -<span id="L32183" class="LineNr">32183 </span> 2/imm32/xm32-is-second-inout -<span id="L32184" class="LineNr">32184 </span> 1/imm32/x32-is-first-inout -<span id="L32185" class="LineNr">32185 </span> 0x11/imm32/alloc-id:fake -<span id="L32186" class="LineNr">32186 </span> <a href='mu.subx.html#L32188'>_Primitive-break-if-addr<</a>/imm32/next -<span id="L32187" class="LineNr">32187 </span><span class="subxH1Comment"># - branches</span> -<span id="L32188" class="LineNr">32188 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32189" class="LineNr">32189 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32190" class="LineNr">32190 </span> 0x11/imm32/alloc-id:fake -<span id="L32191" class="LineNr">32191 </span> <a href='mu.subx.html#L33392'>_string-break-if-addr<</a>/imm32/name -<span id="L32192" class="LineNr">32192 </span> 0/imm32/no-inouts -<span id="L32193" class="LineNr">32193 </span> 0/imm32/no-inouts -<span id="L32194" class="LineNr">32194 </span> 0/imm32/no-outputs -<span id="L32195" class="LineNr">32195 </span> 0/imm32/no-outputs -<span id="L32196" class="LineNr">32196 </span> 0x11/imm32/alloc-id:fake -<span id="L32197" class="LineNr">32197 </span> <a href='mu.subx.html#L33679'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L32198" class="LineNr">32198 </span> 0/imm32/no-rm32 -<span id="L32199" class="LineNr">32199 </span> 0/imm32/no-r32 -<span id="L32200" class="LineNr">32200 </span> 0/imm32/no-imm32 -<span id="L32201" class="LineNr">32201 </span> 0/imm32/no-imm8 -<span id="L32202" class="LineNr">32202 </span> 0/imm32/no-disp32 -<span id="L32203" class="LineNr">32203 </span> 0/imm32/no-xm32 -<span id="L32204" class="LineNr">32204 </span> 0/imm32/no-x32 -<span id="L32205" class="LineNr">32205 </span> 0x11/imm32/alloc-id:fake -<span id="L32206" class="LineNr">32206 </span> <a href='mu.subx.html#L32207'>_Primitive-break-if-addr>=</a>/imm32/next -<span id="L32207" class="LineNr">32207 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32208" class="LineNr">32208 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32209" class="LineNr">32209 </span> 0x11/imm32/alloc-id:fake -<span id="L32210" class="LineNr">32210 </span> <a href='mu.subx.html#L33407'>_string-break-if-addr>=</a>/imm32/name -<span id="L32211" class="LineNr">32211 </span> 0/imm32/no-inouts -<span id="L32212" class="LineNr">32212 </span> 0/imm32/no-inouts -<span id="L32213" class="LineNr">32213 </span> 0/imm32/no-outputs -<span id="L32214" class="LineNr">32214 </span> 0/imm32/no-outputs -<span id="L32215" class="LineNr">32215 </span> 0x11/imm32/alloc-id:fake -<span id="L32216" class="LineNr">32216 </span> <a href='mu.subx.html#L33694'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L32217" class="LineNr">32217 </span> 0/imm32/no-rm32 -<span id="L32218" class="LineNr">32218 </span> 0/imm32/no-r32 -<span id="L32219" class="LineNr">32219 </span> 0/imm32/no-imm32 -<span id="L32220" class="LineNr">32220 </span> 0/imm32/no-imm8 -<span id="L32221" class="LineNr">32221 </span> 0/imm32/no-disp32 -<span id="L32222" class="LineNr">32222 </span> 0/imm32/no-xm32 -<span id="L32223" class="LineNr">32223 </span> 0/imm32/no-x32 -<span id="L32224" class="LineNr">32224 </span> 0x11/imm32/alloc-id:fake -<span id="L32225" class="LineNr">32225 </span> <a href='mu.subx.html#L32226'>_Primitive-break-if-=</a>/imm32/next -<span id="L32226" class="LineNr">32226 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32227" class="LineNr">32227 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32228" class="LineNr">32228 </span> 0x11/imm32/alloc-id:fake -<span id="L32229" class="LineNr">32229 </span> <a href='mu.subx.html#L33372'>_string-break-if-=</a>/imm32/name -<span id="L32230" class="LineNr">32230 </span> 0/imm32/no-inouts -<span id="L32231" class="LineNr">32231 </span> 0/imm32/no-inouts -<span id="L32232" class="LineNr">32232 </span> 0/imm32/no-outputs -<span id="L32233" class="LineNr">32233 </span> 0/imm32/no-outputs -<span id="L32234" class="LineNr">32234 </span> 0x11/imm32/alloc-id:fake -<span id="L32235" class="LineNr">32235 </span> <a href='mu.subx.html#L33709'>_string_0f_84_jump_break</a>/imm32/subx-name -<span id="L32236" class="LineNr">32236 </span> 0/imm32/no-rm32 -<span id="L32237" class="LineNr">32237 </span> 0/imm32/no-r32 -<span id="L32238" class="LineNr">32238 </span> 0/imm32/no-imm32 -<span id="L32239" class="LineNr">32239 </span> 0/imm32/no-imm8 -<span id="L32240" class="LineNr">32240 </span> 0/imm32/no-disp32 -<span id="L32241" class="LineNr">32241 </span> 0/imm32/no-xm32 -<span id="L32242" class="LineNr">32242 </span> 0/imm32/no-x32 -<span id="L32243" class="LineNr">32243 </span> 0x11/imm32/alloc-id:fake -<span id="L32244" class="LineNr">32244 </span> <a href='mu.subx.html#L32245'>_Primitive-break-if-!=</a>/imm32/next -<span id="L32245" class="LineNr">32245 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32246" class="LineNr">32246 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32247" class="LineNr">32247 </span> 0x11/imm32/alloc-id:fake -<span id="L32248" class="LineNr">32248 </span> <a href='mu.subx.html#L33387'>_string-break-if-!=</a>/imm32/name -<span id="L32249" class="LineNr">32249 </span> 0/imm32/no-inouts -<span id="L32250" class="LineNr">32250 </span> 0/imm32/no-inouts -<span id="L32251" class="LineNr">32251 </span> 0/imm32/no-outputs -<span id="L32252" class="LineNr">32252 </span> 0/imm32/no-outputs -<span id="L32253" class="LineNr">32253 </span> 0x11/imm32/alloc-id:fake -<span id="L32254" class="LineNr">32254 </span> <a href='mu.subx.html#L33724'>_string_0f_85_jump_break</a>/imm32/subx-name -<span id="L32255" class="LineNr">32255 </span> 0/imm32/no-rm32 -<span id="L32256" class="LineNr">32256 </span> 0/imm32/no-r32 -<span id="L32257" class="LineNr">32257 </span> 0/imm32/no-imm32 -<span id="L32258" class="LineNr">32258 </span> 0/imm32/no-imm8 -<span id="L32259" class="LineNr">32259 </span> 0/imm32/no-disp32 -<span id="L32260" class="LineNr">32260 </span> 0/imm32/no-xm32 -<span id="L32261" class="LineNr">32261 </span> 0/imm32/no-x32 -<span id="L32262" class="LineNr">32262 </span> 0x11/imm32/alloc-id:fake -<span id="L32263" class="LineNr">32263 </span> <a href='mu.subx.html#L32264'>_Primitive-break-if-addr<=</a>/imm32/next -<span id="L32264" class="LineNr">32264 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32265" class="LineNr">32265 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32266" class="LineNr">32266 </span> 0x11/imm32/alloc-id:fake -<span id="L32267" class="LineNr">32267 </span> <a href='mu.subx.html#L33397'>_string-break-if-addr<=</a>/imm32/name -<span id="L32268" class="LineNr">32268 </span> 0/imm32/no-inouts -<span id="L32269" class="LineNr">32269 </span> 0/imm32/no-inouts -<span id="L32270" class="LineNr">32270 </span> 0/imm32/no-outputs -<span id="L32271" class="LineNr">32271 </span> 0/imm32/no-outputs -<span id="L32272" class="LineNr">32272 </span> 0x11/imm32/alloc-id:fake -<span id="L32273" class="LineNr">32273 </span> <a href='mu.subx.html#L33739'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L32274" class="LineNr">32274 </span> 0/imm32/no-rm32 -<span id="L32275" class="LineNr">32275 </span> 0/imm32/no-r32 -<span id="L32276" class="LineNr">32276 </span> 0/imm32/no-imm32 -<span id="L32277" class="LineNr">32277 </span> 0/imm32/no-imm8 -<span id="L32278" class="LineNr">32278 </span> 0/imm32/no-disp32 -<span id="L32279" class="LineNr">32279 </span> 0/imm32/no-xm32 -<span id="L32280" class="LineNr">32280 </span> 0/imm32/no-x32 -<span id="L32281" class="LineNr">32281 </span> 0x11/imm32/alloc-id:fake -<span id="L32282" class="LineNr">32282 </span> <a href='mu.subx.html#L32283'>_Primitive-break-if-addr></a>/imm32/next -<span id="L32283" class="LineNr">32283 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32284" class="LineNr">32284 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32285" class="LineNr">32285 </span> 0x11/imm32/alloc-id:fake -<span id="L32286" class="LineNr">32286 </span> <a href='mu.subx.html#L33402'>_string-break-if-addr></a>/imm32/name -<span id="L32287" class="LineNr">32287 </span> 0/imm32/no-inouts -<span id="L32288" class="LineNr">32288 </span> 0/imm32/no-inouts -<span id="L32289" class="LineNr">32289 </span> 0/imm32/no-outputs -<span id="L32290" class="LineNr">32290 </span> 0/imm32/no-outputs -<span id="L32291" class="LineNr">32291 </span> 0x11/imm32/alloc-id:fake -<span id="L32292" class="LineNr">32292 </span> <a href='mu.subx.html#L33754'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L32293" class="LineNr">32293 </span> 0/imm32/no-rm32 -<span id="L32294" class="LineNr">32294 </span> 0/imm32/no-r32 -<span id="L32295" class="LineNr">32295 </span> 0/imm32/no-imm32 -<span id="L32296" class="LineNr">32296 </span> 0/imm32/no-imm8 -<span id="L32297" class="LineNr">32297 </span> 0/imm32/no-disp32 -<span id="L32298" class="LineNr">32298 </span> 0/imm32/no-xm32 -<span id="L32299" class="LineNr">32299 </span> 0/imm32/no-x32 -<span id="L32300" class="LineNr">32300 </span> 0x11/imm32/alloc-id:fake -<span id="L32301" class="LineNr">32301 </span> <a href='mu.subx.html#L32302'>_Primitive-break-if-<</a>/imm32/next -<span id="L32302" class="LineNr">32302 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32303" class="LineNr">32303 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32304" class="LineNr">32304 </span> 0x11/imm32/alloc-id:fake -<span id="L32305" class="LineNr">32305 </span> <a href='mu.subx.html#L33362'>_string-break-if-<</a>/imm32/name -<span id="L32306" class="LineNr">32306 </span> 0/imm32/no-inouts -<span id="L32307" class="LineNr">32307 </span> 0/imm32/no-inouts -<span id="L32308" class="LineNr">32308 </span> 0/imm32/no-outputs -<span id="L32309" class="LineNr">32309 </span> 0/imm32/no-outputs -<span id="L32310" class="LineNr">32310 </span> 0x11/imm32/alloc-id:fake -<span id="L32311" class="LineNr">32311 </span> <a href='mu.subx.html#L33769'>_string_0f_8c_jump_break</a>/imm32/subx-name -<span id="L32312" class="LineNr">32312 </span> 0/imm32/no-rm32 -<span id="L32313" class="LineNr">32313 </span> 0/imm32/no-r32 -<span id="L32314" class="LineNr">32314 </span> 0/imm32/no-imm32 -<span id="L32315" class="LineNr">32315 </span> 0/imm32/no-imm8 -<span id="L32316" class="LineNr">32316 </span> 0/imm32/no-disp32 -<span id="L32317" class="LineNr">32317 </span> 0/imm32/no-xm32 -<span id="L32318" class="LineNr">32318 </span> 0/imm32/no-x32 -<span id="L32319" class="LineNr">32319 </span> 0x11/imm32/alloc-id:fake -<span id="L32320" class="LineNr">32320 </span> <a href='mu.subx.html#L32321'>_Primitive-break-if->=</a>/imm32/next -<span id="L32321" class="LineNr">32321 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32322" class="LineNr">32322 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32323" class="LineNr">32323 </span> 0x11/imm32/alloc-id:fake -<span id="L32324" class="LineNr">32324 </span> <a href='mu.subx.html#L33382'>_string-break-if->=</a>/imm32/name -<span id="L32325" class="LineNr">32325 </span> 0/imm32/no-inouts -<span id="L32326" class="LineNr">32326 </span> 0/imm32/no-inouts -<span id="L32327" class="LineNr">32327 </span> 0/imm32/no-outputs -<span id="L32328" class="LineNr">32328 </span> 0/imm32/no-outputs -<span id="L32329" class="LineNr">32329 </span> 0x11/imm32/alloc-id:fake -<span id="L32330" class="LineNr">32330 </span> <a href='mu.subx.html#L33784'>_string_0f_8d_jump_break</a>/imm32/subx-name -<span id="L32331" class="LineNr">32331 </span> 0/imm32/no-rm32 -<span id="L32332" class="LineNr">32332 </span> 0/imm32/no-r32 -<span id="L32333" class="LineNr">32333 </span> 0/imm32/no-imm32 -<span id="L32334" class="LineNr">32334 </span> 0/imm32/no-imm8 -<span id="L32335" class="LineNr">32335 </span> 0/imm32/no-disp32 -<span id="L32336" class="LineNr">32336 </span> 0/imm32/no-xm32 -<span id="L32337" class="LineNr">32337 </span> 0/imm32/no-x32 -<span id="L32338" class="LineNr">32338 </span> 0x11/imm32/alloc-id:fake -<span id="L32339" class="LineNr">32339 </span> <a href='mu.subx.html#L32340'>_Primitive-break-if-<=</a>/imm32/next -<span id="L32340" class="LineNr">32340 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32341" class="LineNr">32341 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32342" class="LineNr">32342 </span> 0x11/imm32/alloc-id:fake -<span id="L32343" class="LineNr">32343 </span> <a href='mu.subx.html#L33367'>_string-break-if-<=</a>/imm32/name -<span id="L32344" class="LineNr">32344 </span> 0/imm32/no-inouts -<span id="L32345" class="LineNr">32345 </span> 0/imm32/no-inouts -<span id="L32346" class="LineNr">32346 </span> 0/imm32/no-outputs -<span id="L32347" class="LineNr">32347 </span> 0/imm32/no-outputs -<span id="L32348" class="LineNr">32348 </span> 0x11/imm32/alloc-id:fake -<span id="L32349" class="LineNr">32349 </span> <a href='mu.subx.html#L33799'>_string_0f_8e_jump_break</a>/imm32/subx-name -<span id="L32350" class="LineNr">32350 </span> 0/imm32/no-rm32 -<span id="L32351" class="LineNr">32351 </span> 0/imm32/no-r32 -<span id="L32352" class="LineNr">32352 </span> 0/imm32/no-imm32 -<span id="L32353" class="LineNr">32353 </span> 0/imm32/no-imm8 -<span id="L32354" class="LineNr">32354 </span> 0/imm32/no-disp32 -<span id="L32355" class="LineNr">32355 </span> 0/imm32/no-xm32 -<span id="L32356" class="LineNr">32356 </span> 0/imm32/no-x32 -<span id="L32357" class="LineNr">32357 </span> 0x11/imm32/alloc-id:fake -<span id="L32358" class="LineNr">32358 </span> <a href='mu.subx.html#L32359'>_Primitive-break-if-></a>/imm32/next -<span id="L32359" class="LineNr">32359 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32360" class="LineNr">32360 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32361" class="LineNr">32361 </span> 0x11/imm32/alloc-id:fake -<span id="L32362" class="LineNr">32362 </span> <a href='mu.subx.html#L33377'>_string-break-if-></a>/imm32/name -<span id="L32363" class="LineNr">32363 </span> 0/imm32/no-inouts -<span id="L32364" class="LineNr">32364 </span> 0/imm32/no-inouts -<span id="L32365" class="LineNr">32365 </span> 0/imm32/no-outputs -<span id="L32366" class="LineNr">32366 </span> 0/imm32/no-outputs -<span id="L32367" class="LineNr">32367 </span> 0x11/imm32/alloc-id:fake -<span id="L32368" class="LineNr">32368 </span> <a href='mu.subx.html#L33814'>_string_0f_8f_jump_break</a>/imm32/subx-name -<span id="L32369" class="LineNr">32369 </span> 0/imm32/no-rm32 -<span id="L32370" class="LineNr">32370 </span> 0/imm32/no-r32 -<span id="L32371" class="LineNr">32371 </span> 0/imm32/no-imm32 -<span id="L32372" class="LineNr">32372 </span> 0/imm32/no-imm8 -<span id="L32373" class="LineNr">32373 </span> 0/imm32/no-disp32 -<span id="L32374" class="LineNr">32374 </span> 0/imm32/no-xm32 -<span id="L32375" class="LineNr">32375 </span> 0/imm32/no-x32 -<span id="L32376" class="LineNr">32376 </span> 0x11/imm32/alloc-id:fake -<span id="L32377" class="LineNr">32377 </span> <a href='mu.subx.html#L32378'>_Primitive-break</a>/imm32/next -<span id="L32378" class="LineNr">32378 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32379" class="LineNr">32379 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32380" class="LineNr">32380 </span> 0x11/imm32/alloc-id:fake -<span id="L32381" class="LineNr">32381 </span> <a href='mu.subx.html#L33357'>_string-break</a>/imm32/name -<span id="L32382" class="LineNr">32382 </span> 0/imm32/no-inouts -<span id="L32383" class="LineNr">32383 </span> 0/imm32/no-inouts -<span id="L32384" class="LineNr">32384 </span> 0/imm32/no-outputs -<span id="L32385" class="LineNr">32385 </span> 0/imm32/no-outputs -<span id="L32386" class="LineNr">32386 </span> 0x11/imm32/alloc-id:fake -<span id="L32387" class="LineNr">32387 </span> <a href='mu.subx.html#L34119'>_string_e9_jump_break</a>/imm32/subx-name -<span id="L32388" class="LineNr">32388 </span> 0/imm32/no-rm32 -<span id="L32389" class="LineNr">32389 </span> 0/imm32/no-r32 -<span id="L32390" class="LineNr">32390 </span> 0/imm32/no-imm32 -<span id="L32391" class="LineNr">32391 </span> 0/imm32/no-imm8 -<span id="L32392" class="LineNr">32392 </span> 0/imm32/no-disp32 -<span id="L32393" class="LineNr">32393 </span> 0/imm32/no-xm32 -<span id="L32394" class="LineNr">32394 </span> 0/imm32/no-x32 -<span id="L32395" class="LineNr">32395 </span> 0x11/imm32/alloc-id:fake -<span id="L32396" class="LineNr">32396 </span> <a href='mu.subx.html#L32397'>_Primitive-loop-if-addr<</a>/imm32/next -<span id="L32397" class="LineNr">32397 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32398" class="LineNr">32398 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32399" class="LineNr">32399 </span> 0x11/imm32/alloc-id:fake -<span id="L32400" class="LineNr">32400 </span> <a href='mu.subx.html#L33502'>_string-loop-if-addr<</a>/imm32/name -<span id="L32401" class="LineNr">32401 </span> 0/imm32/no-inouts -<span id="L32402" class="LineNr">32402 </span> 0/imm32/no-inouts -<span id="L32403" class="LineNr">32403 </span> 0/imm32/no-outputs -<span id="L32404" class="LineNr">32404 </span> 0/imm32/no-outputs -<span id="L32405" class="LineNr">32405 </span> 0x11/imm32/alloc-id:fake -<span id="L32406" class="LineNr">32406 </span> <a href='mu.subx.html#L33684'>_string_0f_82_jump_loop</a>/imm32/subx-name -<span id="L32407" class="LineNr">32407 </span> 0/imm32/no-rm32 -<span id="L32408" class="LineNr">32408 </span> 0/imm32/no-r32 -<span id="L32409" class="LineNr">32409 </span> 0/imm32/no-imm32 -<span id="L32410" class="LineNr">32410 </span> 0/imm32/no-imm8 -<span id="L32411" class="LineNr">32411 </span> 0/imm32/no-disp32 -<span id="L32412" class="LineNr">32412 </span> 0/imm32/no-xm32 -<span id="L32413" class="LineNr">32413 </span> 0/imm32/no-x32 -<span id="L32414" class="LineNr">32414 </span> 0x11/imm32/alloc-id:fake -<span id="L32415" class="LineNr">32415 </span> <a href='mu.subx.html#L32416'>_Primitive-loop-if-addr>=</a>/imm32/next -<span id="L32416" class="LineNr">32416 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32417" class="LineNr">32417 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32418" class="LineNr">32418 </span> 0x11/imm32/alloc-id:fake -<span id="L32419" class="LineNr">32419 </span> <a href='mu.subx.html#L33517'>_string-loop-if-addr>=</a>/imm32/name -<span id="L32420" class="LineNr">32420 </span> 0/imm32/no-inouts -<span id="L32421" class="LineNr">32421 </span> 0/imm32/no-inouts -<span id="L32422" class="LineNr">32422 </span> 0/imm32/no-outputs -<span id="L32423" class="LineNr">32423 </span> 0/imm32/no-outputs -<span id="L32424" class="LineNr">32424 </span> 0x11/imm32/alloc-id:fake -<span id="L32425" class="LineNr">32425 </span> <a href='mu.subx.html#L33699'>_string_0f_83_jump_loop</a>/imm32/subx-name -<span id="L32426" class="LineNr">32426 </span> 0/imm32/no-rm32 -<span id="L32427" class="LineNr">32427 </span> 0/imm32/no-r32 -<span id="L32428" class="LineNr">32428 </span> 0/imm32/no-imm32 -<span id="L32429" class="LineNr">32429 </span> 0/imm32/no-imm8 -<span id="L32430" class="LineNr">32430 </span> 0/imm32/no-disp32 -<span id="L32431" class="LineNr">32431 </span> 0/imm32/no-xm32 -<span id="L32432" class="LineNr">32432 </span> 0/imm32/no-x32 -<span id="L32433" class="LineNr">32433 </span> 0x11/imm32/alloc-id:fake -<span id="L32434" class="LineNr">32434 </span> <a href='mu.subx.html#L32435'>_Primitive-loop-if-=</a>/imm32/next -<span id="L32435" class="LineNr">32435 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32436" class="LineNr">32436 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32437" class="LineNr">32437 </span> 0x11/imm32/alloc-id:fake -<span id="L32438" class="LineNr">32438 </span> <a href='mu.subx.html#L33482'>_string-loop-if-=</a>/imm32/name -<span id="L32439" class="LineNr">32439 </span> 0/imm32/no-inouts -<span id="L32440" class="LineNr">32440 </span> 0/imm32/no-inouts -<span id="L32441" class="LineNr">32441 </span> 0/imm32/no-outputs -<span id="L32442" class="LineNr">32442 </span> 0/imm32/no-outputs -<span id="L32443" class="LineNr">32443 </span> 0x11/imm32/alloc-id:fake -<span id="L32444" class="LineNr">32444 </span> <a href='mu.subx.html#L33714'>_string_0f_84_jump_loop</a>/imm32/subx-name -<span id="L32445" class="LineNr">32445 </span> 0/imm32/no-rm32 -<span id="L32446" class="LineNr">32446 </span> 0/imm32/no-r32 -<span id="L32447" class="LineNr">32447 </span> 0/imm32/no-imm32 -<span id="L32448" class="LineNr">32448 </span> 0/imm32/no-imm8 -<span id="L32449" class="LineNr">32449 </span> 0/imm32/no-disp32 -<span id="L32450" class="LineNr">32450 </span> 0/imm32/no-xm32 -<span id="L32451" class="LineNr">32451 </span> 0/imm32/no-x32 -<span id="L32452" class="LineNr">32452 </span> 0x11/imm32/alloc-id:fake -<span id="L32453" class="LineNr">32453 </span> <a href='mu.subx.html#L32454'>_Primitive-loop-if-!=</a>/imm32/next -<span id="L32454" class="LineNr">32454 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32455" class="LineNr">32455 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32456" class="LineNr">32456 </span> 0x11/imm32/alloc-id:fake -<span id="L32457" class="LineNr">32457 </span> <a href='mu.subx.html#L33497'>_string-loop-if-!=</a>/imm32/name -<span id="L32458" class="LineNr">32458 </span> 0/imm32/no-inouts -<span id="L32459" class="LineNr">32459 </span> 0/imm32/no-inouts -<span id="L32460" class="LineNr">32460 </span> 0/imm32/no-outputs -<span id="L32461" class="LineNr">32461 </span> 0/imm32/no-outputs -<span id="L32462" class="LineNr">32462 </span> 0x11/imm32/alloc-id:fake -<span id="L32463" class="LineNr">32463 </span> <a href='mu.subx.html#L33729'>_string_0f_85_jump_loop</a>/imm32/subx-name -<span id="L32464" class="LineNr">32464 </span> 0/imm32/no-rm32 -<span id="L32465" class="LineNr">32465 </span> 0/imm32/no-r32 -<span id="L32466" class="LineNr">32466 </span> 0/imm32/no-imm32 -<span id="L32467" class="LineNr">32467 </span> 0/imm32/no-imm8 -<span id="L32468" class="LineNr">32468 </span> 0/imm32/no-disp32 -<span id="L32469" class="LineNr">32469 </span> 0/imm32/no-xm32 -<span id="L32470" class="LineNr">32470 </span> 0/imm32/no-x32 -<span id="L32471" class="LineNr">32471 </span> 0x11/imm32/alloc-id:fake -<span id="L32472" class="LineNr">32472 </span> <a href='mu.subx.html#L32473'>_Primitive-loop-if-addr<=</a>/imm32/next -<span id="L32473" class="LineNr">32473 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32474" class="LineNr">32474 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32475" class="LineNr">32475 </span> 0x11/imm32/alloc-id:fake -<span id="L32476" class="LineNr">32476 </span> <a href='mu.subx.html#L33507'>_string-loop-if-addr<=</a>/imm32/name -<span id="L32477" class="LineNr">32477 </span> 0/imm32/no-inouts -<span id="L32478" class="LineNr">32478 </span> 0/imm32/no-inouts -<span id="L32479" class="LineNr">32479 </span> 0/imm32/no-outputs -<span id="L32480" class="LineNr">32480 </span> 0/imm32/no-outputs -<span id="L32481" class="LineNr">32481 </span> 0x11/imm32/alloc-id:fake -<span id="L32482" class="LineNr">32482 </span> <a href='mu.subx.html#L33744'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L32483" class="LineNr">32483 </span> 0/imm32/no-rm32 -<span id="L32484" class="LineNr">32484 </span> 0/imm32/no-r32 -<span id="L32485" class="LineNr">32485 </span> 0/imm32/no-imm32 -<span id="L32486" class="LineNr">32486 </span> 0/imm32/no-imm8 -<span id="L32487" class="LineNr">32487 </span> 0/imm32/no-disp32 -<span id="L32488" class="LineNr">32488 </span> 0/imm32/no-xm32 -<span id="L32489" class="LineNr">32489 </span> 0/imm32/no-x32 -<span id="L32490" class="LineNr">32490 </span> 0x11/imm32/alloc-id:fake -<span id="L32491" class="LineNr">32491 </span> <a href='mu.subx.html#L32492'>_Primitive-loop-if-addr></a>/imm32/next -<span id="L32492" class="LineNr">32492 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32493" class="LineNr">32493 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32494" class="LineNr">32494 </span> 0x11/imm32/alloc-id:fake -<span id="L32495" class="LineNr">32495 </span> <a href='mu.subx.html#L33512'>_string-loop-if-addr></a>/imm32/name -<span id="L32496" class="LineNr">32496 </span> 0/imm32/no-inouts -<span id="L32497" class="LineNr">32497 </span> 0/imm32/no-inouts -<span id="L32498" class="LineNr">32498 </span> 0/imm32/no-outputs -<span id="L32499" class="LineNr">32499 </span> 0/imm32/no-outputs -<span id="L32500" class="LineNr">32500 </span> 0x11/imm32/alloc-id:fake -<span id="L32501" class="LineNr">32501 </span> <a href='mu.subx.html#L33759'>_string_0f_87_jump_loop</a>/imm32/subx-name -<span id="L32502" class="LineNr">32502 </span> 0/imm32/no-rm32 -<span id="L32503" class="LineNr">32503 </span> 0/imm32/no-r32 -<span id="L32504" class="LineNr">32504 </span> 0/imm32/no-imm32 -<span id="L32505" class="LineNr">32505 </span> 0/imm32/no-imm8 -<span id="L32506" class="LineNr">32506 </span> 0/imm32/no-disp32 -<span id="L32507" class="LineNr">32507 </span> 0/imm32/no-xm32 -<span id="L32508" class="LineNr">32508 </span> 0/imm32/no-x32 -<span id="L32509" class="LineNr">32509 </span> 0x11/imm32/alloc-id:fake -<span id="L32510" class="LineNr">32510 </span> <a href='mu.subx.html#L32511'>_Primitive-loop-if-<</a>/imm32/next -<span id="L32511" class="LineNr">32511 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32512" class="LineNr">32512 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32513" class="LineNr">32513 </span> 0x11/imm32/alloc-id:fake -<span id="L32514" class="LineNr">32514 </span> <a href='mu.subx.html#L33472'>_string-loop-if-<</a>/imm32/name -<span id="L32515" class="LineNr">32515 </span> 0/imm32/no-inouts -<span id="L32516" class="LineNr">32516 </span> 0/imm32/no-inouts -<span id="L32517" class="LineNr">32517 </span> 0/imm32/no-outputs -<span id="L32518" class="LineNr">32518 </span> 0/imm32/no-outputs -<span id="L32519" class="LineNr">32519 </span> 0x11/imm32/alloc-id:fake -<span id="L32520" class="LineNr">32520 </span> <a href='mu.subx.html#L33774'>_string_0f_8c_jump_loop</a>/imm32/subx-name -<span id="L32521" class="LineNr">32521 </span> 0/imm32/no-rm32 -<span id="L32522" class="LineNr">32522 </span> 0/imm32/no-r32 -<span id="L32523" class="LineNr">32523 </span> 0/imm32/no-imm32 -<span id="L32524" class="LineNr">32524 </span> 0/imm32/no-imm8 -<span id="L32525" class="LineNr">32525 </span> 0/imm32/no-disp32 -<span id="L32526" class="LineNr">32526 </span> 0/imm32/no-xm32 -<span id="L32527" class="LineNr">32527 </span> 0/imm32/no-x32 -<span id="L32528" class="LineNr">32528 </span> 0x11/imm32/alloc-id:fake -<span id="L32529" class="LineNr">32529 </span> <a href='mu.subx.html#L32530'>_Primitive-loop-if->=</a>/imm32/next -<span id="L32530" class="LineNr">32530 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32531" class="LineNr">32531 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32532" class="LineNr">32532 </span> 0x11/imm32/alloc-id:fake -<span id="L32533" class="LineNr">32533 </span> <a href='mu.subx.html#L33492'>_string-loop-if->=</a>/imm32/name -<span id="L32534" class="LineNr">32534 </span> 0/imm32/no-inouts -<span id="L32535" class="LineNr">32535 </span> 0/imm32/no-inouts -<span id="L32536" class="LineNr">32536 </span> 0/imm32/no-outputs -<span id="L32537" class="LineNr">32537 </span> 0/imm32/no-outputs -<span id="L32538" class="LineNr">32538 </span> 0x11/imm32/alloc-id:fake -<span id="L32539" class="LineNr">32539 </span> <a href='mu.subx.html#L33789'>_string_0f_8d_jump_loop</a>/imm32/subx-name -<span id="L32540" class="LineNr">32540 </span> 0/imm32/no-rm32 -<span id="L32541" class="LineNr">32541 </span> 0/imm32/no-r32 -<span id="L32542" class="LineNr">32542 </span> 0/imm32/no-imm32 -<span id="L32543" class="LineNr">32543 </span> 0/imm32/no-imm8 -<span id="L32544" class="LineNr">32544 </span> 0/imm32/no-disp32 -<span id="L32545" class="LineNr">32545 </span> 0/imm32/no-xm32 -<span id="L32546" class="LineNr">32546 </span> 0/imm32/no-x32 -<span id="L32547" class="LineNr">32547 </span> 0x11/imm32/alloc-id:fake -<span id="L32548" class="LineNr">32548 </span> <a href='mu.subx.html#L32549'>_Primitive-loop-if-<=</a>/imm32/next -<span id="L32549" class="LineNr">32549 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32550" class="LineNr">32550 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32551" class="LineNr">32551 </span> 0x11/imm32/alloc-id:fake -<span id="L32552" class="LineNr">32552 </span> <a href='mu.subx.html#L33477'>_string-loop-if-<=</a>/imm32/name -<span id="L32553" class="LineNr">32553 </span> 0/imm32/no-inouts -<span id="L32554" class="LineNr">32554 </span> 0/imm32/no-inouts -<span id="L32555" class="LineNr">32555 </span> 0/imm32/no-outputs -<span id="L32556" class="LineNr">32556 </span> 0/imm32/no-outputs -<span id="L32557" class="LineNr">32557 </span> 0x11/imm32/alloc-id:fake -<span id="L32558" class="LineNr">32558 </span> <a href='mu.subx.html#L33804'>_string_0f_8e_jump_loop</a>/imm32/subx-name -<span id="L32559" class="LineNr">32559 </span> 0/imm32/no-rm32 -<span id="L32560" class="LineNr">32560 </span> 0/imm32/no-r32 -<span id="L32561" class="LineNr">32561 </span> 0/imm32/no-imm32 -<span id="L32562" class="LineNr">32562 </span> 0/imm32/no-imm8 -<span id="L32563" class="LineNr">32563 </span> 0/imm32/no-disp32 -<span id="L32564" class="LineNr">32564 </span> 0/imm32/no-xm32 -<span id="L32565" class="LineNr">32565 </span> 0/imm32/no-x32 -<span id="L32566" class="LineNr">32566 </span> 0x11/imm32/alloc-id:fake -<span id="L32567" class="LineNr">32567 </span> <a href='mu.subx.html#L32568'>_Primitive-loop-if-></a>/imm32/next -<span id="L32568" class="LineNr">32568 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32569" class="LineNr">32569 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32570" class="LineNr">32570 </span> 0x11/imm32/alloc-id:fake -<span id="L32571" class="LineNr">32571 </span> <a href='mu.subx.html#L33487'>_string-loop-if-></a>/imm32/name -<span id="L32572" class="LineNr">32572 </span> 0/imm32/no-inouts -<span id="L32573" class="LineNr">32573 </span> 0/imm32/no-inouts -<span id="L32574" class="LineNr">32574 </span> 0/imm32/no-outputs -<span id="L32575" class="LineNr">32575 </span> 0/imm32/no-outputs -<span id="L32576" class="LineNr">32576 </span> 0x11/imm32/alloc-id:fake -<span id="L32577" class="LineNr">32577 </span> <a href='mu.subx.html#L33819'>_string_0f_8f_jump_loop</a>/imm32/subx-name -<span id="L32578" class="LineNr">32578 </span> 0/imm32/no-rm32 -<span id="L32579" class="LineNr">32579 </span> 0/imm32/no-r32 -<span id="L32580" class="LineNr">32580 </span> 0/imm32/no-imm32 -<span id="L32581" class="LineNr">32581 </span> 0/imm32/no-imm8 -<span id="L32582" class="LineNr">32582 </span> 0/imm32/no-disp32 -<span id="L32583" class="LineNr">32583 </span> 0/imm32/no-xm32 -<span id="L32584" class="LineNr">32584 </span> 0/imm32/no-x32 -<span id="L32585" class="LineNr">32585 </span> 0x11/imm32/alloc-id:fake -<span id="L32586" class="LineNr">32586 </span> <a href='mu.subx.html#L32587'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L32587" class="LineNr">32587 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32588" class="LineNr">32588 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32589" class="LineNr">32589 </span> 0x11/imm32/alloc-id:fake -<span id="L32590" class="LineNr">32590 </span> <a href='mu.subx.html#L33467'>_string-loop</a>/imm32/name -<span id="L32591" class="LineNr">32591 </span> 0/imm32/no-inouts -<span id="L32592" class="LineNr">32592 </span> 0/imm32/no-inouts -<span id="L32593" class="LineNr">32593 </span> 0/imm32/no-outputs -<span id="L32594" class="LineNr">32594 </span> 0/imm32/no-outputs -<span id="L32595" class="LineNr">32595 </span> 0x11/imm32/alloc-id:fake -<span id="L32596" class="LineNr">32596 </span> <a href='mu.subx.html#L34124'>_string_e9_jump_loop</a>/imm32/subx-name -<span id="L32597" class="LineNr">32597 </span> 0/imm32/no-rm32 -<span id="L32598" class="LineNr">32598 </span> 0/imm32/no-r32 -<span id="L32599" class="LineNr">32599 </span> 0/imm32/no-imm32 -<span id="L32600" class="LineNr">32600 </span> 0/imm32/no-imm8 -<span id="L32601" class="LineNr">32601 </span> 0/imm32/no-disp32 -<span id="L32602" class="LineNr">32602 </span> 0/imm32/no-xm32 -<span id="L32603" class="LineNr">32603 </span> 0/imm32/no-x32 -<span id="L32604" class="LineNr">32604 </span> 0x11/imm32/alloc-id:fake -<span id="L32605" class="LineNr">32605 </span> <a href='mu.subx.html#L32607'>_Primitive-break-if-addr<-named</a>/imm32/next -<span id="L32606" class="LineNr">32606 </span><span class="subxH1Comment"># - branches to named blocks</span> -<span id="L32607" class="LineNr">32607 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32608" class="LineNr">32608 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32609" class="LineNr">32609 </span> 0x11/imm32/alloc-id:fake -<span id="L32610" class="LineNr">32610 </span> <a href='mu.subx.html#L33392'>_string-break-if-addr<</a>/imm32/name -<span id="L32611" class="LineNr">32611 </span> 0x11/imm32/alloc-id:fake -<span id="L32612" class="LineNr">32612 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32613" class="LineNr">32613 </span> 0/imm32/no-outputs -<span id="L32614" class="LineNr">32614 </span> 0/imm32/no-outputs -<span id="L32615" class="LineNr">32615 </span> 0x11/imm32/alloc-id:fake -<span id="L32616" class="LineNr">32616 </span> <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L32617" class="LineNr">32617 </span> 0/imm32/no-rm32 -<span id="L32618" class="LineNr">32618 </span> 0/imm32/no-r32 -<span id="L32619" class="LineNr">32619 </span> 0/imm32/no-imm32 -<span id="L32620" class="LineNr">32620 </span> 0/imm32/no-imm8 -<span id="L32621" class="LineNr">32621 </span> 1/imm32/disp32-is-first-inout -<span id="L32622" class="LineNr">32622 </span> 0/imm32/no-xm32 -<span id="L32623" class="LineNr">32623 </span> 0/imm32/no-x32 -<span id="L32624" class="LineNr">32624 </span> 0x11/imm32/alloc-id:fake -<span id="L32625" class="LineNr">32625 </span> <a href='mu.subx.html#L32626'>_Primitive-break-if-addr>=-named</a>/imm32/next -<span id="L32626" class="LineNr">32626 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32627" class="LineNr">32627 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32628" class="LineNr">32628 </span> 0x11/imm32/alloc-id:fake -<span id="L32629" class="LineNr">32629 </span> <a href='mu.subx.html#L33407'>_string-break-if-addr>=</a>/imm32/name -<span id="L32630" class="LineNr">32630 </span> 0x11/imm32/alloc-id:fake -<span id="L32631" class="LineNr">32631 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32632" class="LineNr">32632 </span> 0/imm32/no-outputs -<span id="L32633" class="LineNr">32633 </span> 0/imm32/no-outputs -<span id="L32634" class="LineNr">32634 </span> 0x11/imm32/alloc-id:fake -<span id="L32635" class="LineNr">32635 </span> <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L32636" class="LineNr">32636 </span> 0/imm32/no-rm32 -<span id="L32637" class="LineNr">32637 </span> 0/imm32/no-r32 -<span id="L32638" class="LineNr">32638 </span> 0/imm32/no-imm32 -<span id="L32639" class="LineNr">32639 </span> 0/imm32/no-imm8 -<span id="L32640" class="LineNr">32640 </span> 1/imm32/disp32-is-first-inout -<span id="L32641" class="LineNr">32641 </span> 0/imm32/no-xm32 -<span id="L32642" class="LineNr">32642 </span> 0/imm32/no-x32 -<span id="L32643" class="LineNr">32643 </span> 0x11/imm32/alloc-id:fake -<span id="L32644" class="LineNr">32644 </span> <a href='mu.subx.html#L32645'>_Primitive-break-if-=-named</a>/imm32/next -<span id="L32645" class="LineNr">32645 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32646" class="LineNr">32646 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32647" class="LineNr">32647 </span> 0x11/imm32/alloc-id:fake -<span id="L32648" class="LineNr">32648 </span> <a href='mu.subx.html#L33372'>_string-break-if-=</a>/imm32/name -<span id="L32649" class="LineNr">32649 </span> 0x11/imm32/alloc-id:fake -<span id="L32650" class="LineNr">32650 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32651" class="LineNr">32651 </span> 0/imm32/no-outputs -<span id="L32652" class="LineNr">32652 </span> 0/imm32/no-outputs -<span id="L32653" class="LineNr">32653 </span> 0x11/imm32/alloc-id:fake -<span id="L32654" class="LineNr">32654 </span> <a href='mu.subx.html#L33704'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L32655" class="LineNr">32655 </span> 0/imm32/no-rm32 -<span id="L32656" class="LineNr">32656 </span> 0/imm32/no-r32 -<span id="L32657" class="LineNr">32657 </span> 0/imm32/no-imm32 -<span id="L32658" class="LineNr">32658 </span> 0/imm32/no-imm8 -<span id="L32659" class="LineNr">32659 </span> 1/imm32/disp32-is-first-inout -<span id="L32660" class="LineNr">32660 </span> 0/imm32/no-xm32 -<span id="L32661" class="LineNr">32661 </span> 0/imm32/no-x32 -<span id="L32662" class="LineNr">32662 </span> 0x11/imm32/alloc-id:fake -<span id="L32663" class="LineNr">32663 </span> <a href='mu.subx.html#L32664'>_Primitive-break-if-!=-named</a>/imm32/next -<span id="L32664" class="LineNr">32664 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32665" class="LineNr">32665 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32666" class="LineNr">32666 </span> 0x11/imm32/alloc-id:fake -<span id="L32667" class="LineNr">32667 </span> <a href='mu.subx.html#L33387'>_string-break-if-!=</a>/imm32/name -<span id="L32668" class="LineNr">32668 </span> 0x11/imm32/alloc-id:fake -<span id="L32669" class="LineNr">32669 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32670" class="LineNr">32670 </span> 0/imm32/no-outputs -<span id="L32671" class="LineNr">32671 </span> 0/imm32/no-outputs -<span id="L32672" class="LineNr">32672 </span> 0x11/imm32/alloc-id:fake -<span id="L32673" class="LineNr">32673 </span> <a href='mu.subx.html#L33719'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L32674" class="LineNr">32674 </span> 0/imm32/no-rm32 -<span id="L32675" class="LineNr">32675 </span> 0/imm32/no-r32 -<span id="L32676" class="LineNr">32676 </span> 0/imm32/no-imm32 -<span id="L32677" class="LineNr">32677 </span> 0/imm32/no-imm8 -<span id="L32678" class="LineNr">32678 </span> 1/imm32/disp32-is-first-inout -<span id="L32679" class="LineNr">32679 </span> 0/imm32/no-xm32 -<span id="L32680" class="LineNr">32680 </span> 0/imm32/no-x32 -<span id="L32681" class="LineNr">32681 </span> 0x11/imm32/alloc-id:fake -<span id="L32682" class="LineNr">32682 </span> <a href='mu.subx.html#L32683'>_Primitive-break-if-addr<=-named</a>/imm32/next -<span id="L32683" class="LineNr">32683 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32684" class="LineNr">32684 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32685" class="LineNr">32685 </span> 0x11/imm32/alloc-id:fake -<span id="L32686" class="LineNr">32686 </span> <a href='mu.subx.html#L33397'>_string-break-if-addr<=</a>/imm32/name -<span id="L32687" class="LineNr">32687 </span> 0x11/imm32/alloc-id:fake -<span id="L32688" class="LineNr">32688 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32689" class="LineNr">32689 </span> 0/imm32/no-outputs -<span id="L32690" class="LineNr">32690 </span> 0/imm32/no-outputs -<span id="L32691" class="LineNr">32691 </span> 0x11/imm32/alloc-id:fake -<span id="L32692" class="LineNr">32692 </span> <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L32693" class="LineNr">32693 </span> 0/imm32/no-rm32 -<span id="L32694" class="LineNr">32694 </span> 0/imm32/no-r32 -<span id="L32695" class="LineNr">32695 </span> 0/imm32/no-imm32 -<span id="L32696" class="LineNr">32696 </span> 0/imm32/no-imm8 -<span id="L32697" class="LineNr">32697 </span> 1/imm32/disp32-is-first-inout -<span id="L32698" class="LineNr">32698 </span> 0/imm32/no-xm32 -<span id="L32699" class="LineNr">32699 </span> 0/imm32/no-x32 -<span id="L32700" class="LineNr">32700 </span> 0x11/imm32/alloc-id:fake -<span id="L32701" class="LineNr">32701 </span> <a href='mu.subx.html#L32702'>_Primitive-break-if-addr>-named</a>/imm32/next -<span id="L32702" class="LineNr">32702 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32703" class="LineNr">32703 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32704" class="LineNr">32704 </span> 0x11/imm32/alloc-id:fake -<span id="L32705" class="LineNr">32705 </span> <a href='mu.subx.html#L33402'>_string-break-if-addr></a>/imm32/name -<span id="L32706" class="LineNr">32706 </span> 0x11/imm32/alloc-id:fake -<span id="L32707" class="LineNr">32707 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32708" class="LineNr">32708 </span> 0/imm32/no-outputs -<span id="L32709" class="LineNr">32709 </span> 0/imm32/no-outputs -<span id="L32710" class="LineNr">32710 </span> 0x11/imm32/alloc-id:fake -<span id="L32711" class="LineNr">32711 </span> <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L32712" class="LineNr">32712 </span> 0/imm32/no-rm32 -<span id="L32713" class="LineNr">32713 </span> 0/imm32/no-r32 -<span id="L32714" class="LineNr">32714 </span> 0/imm32/no-imm32 -<span id="L32715" class="LineNr">32715 </span> 0/imm32/no-imm8 -<span id="L32716" class="LineNr">32716 </span> 1/imm32/disp32-is-first-inout -<span id="L32717" class="LineNr">32717 </span> 0/imm32/no-xm32 -<span id="L32718" class="LineNr">32718 </span> 0/imm32/no-x32 -<span id="L32719" class="LineNr">32719 </span> 0x11/imm32/alloc-id:fake -<span id="L32720" class="LineNr">32720 </span> <a href='mu.subx.html#L32721'>_Primitive-break-if-<-named</a>/imm32/next -<span id="L32721" class="LineNr">32721 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32722" class="LineNr">32722 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32723" class="LineNr">32723 </span> 0x11/imm32/alloc-id:fake -<span id="L32724" class="LineNr">32724 </span> <a href='mu.subx.html#L33362'>_string-break-if-<</a>/imm32/name -<span id="L32725" class="LineNr">32725 </span> 0x11/imm32/alloc-id:fake -<span id="L32726" class="LineNr">32726 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32727" class="LineNr">32727 </span> 0/imm32/no-outputs -<span id="L32728" class="LineNr">32728 </span> 0/imm32/no-outputs -<span id="L32729" class="LineNr">32729 </span> 0x11/imm32/alloc-id:fake -<span id="L32730" class="LineNr">32730 </span> <a href='mu.subx.html#L33764'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L32731" class="LineNr">32731 </span> 0/imm32/no-rm32 -<span id="L32732" class="LineNr">32732 </span> 0/imm32/no-r32 -<span id="L32733" class="LineNr">32733 </span> 0/imm32/no-imm32 -<span id="L32734" class="LineNr">32734 </span> 0/imm32/no-imm8 -<span id="L32735" class="LineNr">32735 </span> 1/imm32/disp32-is-first-inout -<span id="L32736" class="LineNr">32736 </span> 0/imm32/no-xm32 -<span id="L32737" class="LineNr">32737 </span> 0/imm32/no-x32 -<span id="L32738" class="LineNr">32738 </span> 0x11/imm32/alloc-id:fake -<span id="L32739" class="LineNr">32739 </span> <a href='mu.subx.html#L32740'>_Primitive-break-if->=-named</a>/imm32/next -<span id="L32740" class="LineNr">32740 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32741" class="LineNr">32741 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32742" class="LineNr">32742 </span> 0x11/imm32/alloc-id:fake -<span id="L32743" class="LineNr">32743 </span> <a href='mu.subx.html#L33382'>_string-break-if->=</a>/imm32/name -<span id="L32744" class="LineNr">32744 </span> 0x11/imm32/alloc-id:fake -<span id="L32745" class="LineNr">32745 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32746" class="LineNr">32746 </span> 0/imm32/no-outputs -<span id="L32747" class="LineNr">32747 </span> 0/imm32/no-outputs -<span id="L32748" class="LineNr">32748 </span> 0x11/imm32/alloc-id:fake -<span id="L32749" class="LineNr">32749 </span> <a href='mu.subx.html#L33779'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L32750" class="LineNr">32750 </span> 0/imm32/no-rm32 -<span id="L32751" class="LineNr">32751 </span> 0/imm32/no-r32 -<span id="L32752" class="LineNr">32752 </span> 0/imm32/no-imm32 -<span id="L32753" class="LineNr">32753 </span> 0/imm32/no-imm8 -<span id="L32754" class="LineNr">32754 </span> 1/imm32/disp32-is-first-inout -<span id="L32755" class="LineNr">32755 </span> 0/imm32/no-xm32 -<span id="L32756" class="LineNr">32756 </span> 0/imm32/no-x32 -<span id="L32757" class="LineNr">32757 </span> 0x11/imm32/alloc-id:fake -<span id="L32758" class="LineNr">32758 </span> <a href='mu.subx.html#L32759'>_Primitive-break-if-<=-named</a>/imm32/next -<span id="L32759" class="LineNr">32759 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32760" class="LineNr">32760 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32761" class="LineNr">32761 </span> 0x11/imm32/alloc-id:fake -<span id="L32762" class="LineNr">32762 </span> <a href='mu.subx.html#L33367'>_string-break-if-<=</a>/imm32/name -<span id="L32763" class="LineNr">32763 </span> 0x11/imm32/alloc-id:fake -<span id="L32764" class="LineNr">32764 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32765" class="LineNr">32765 </span> 0/imm32/no-outputs -<span id="L32766" class="LineNr">32766 </span> 0/imm32/no-outputs -<span id="L32767" class="LineNr">32767 </span> 0x11/imm32/alloc-id:fake -<span id="L32768" class="LineNr">32768 </span> <a href='mu.subx.html#L33794'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L32769" class="LineNr">32769 </span> 0/imm32/no-rm32 -<span id="L32770" class="LineNr">32770 </span> 0/imm32/no-r32 -<span id="L32771" class="LineNr">32771 </span> 0/imm32/no-imm32 -<span id="L32772" class="LineNr">32772 </span> 0/imm32/no-imm8 -<span id="L32773" class="LineNr">32773 </span> 1/imm32/disp32-is-first-inout -<span id="L32774" class="LineNr">32774 </span> 0/imm32/no-xm32 -<span id="L32775" class="LineNr">32775 </span> 0/imm32/no-x32 -<span id="L32776" class="LineNr">32776 </span> 0x11/imm32/alloc-id:fake -<span id="L32777" class="LineNr">32777 </span> <a href='mu.subx.html#L32778'>_Primitive-break-if->-named</a>/imm32/next -<span id="L32778" class="LineNr">32778 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32779" class="LineNr">32779 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32780" class="LineNr">32780 </span> 0x11/imm32/alloc-id:fake -<span id="L32781" class="LineNr">32781 </span> <a href='mu.subx.html#L33377'>_string-break-if-></a>/imm32/name -<span id="L32782" class="LineNr">32782 </span> 0x11/imm32/alloc-id:fake -<span id="L32783" class="LineNr">32783 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32784" class="LineNr">32784 </span> 0/imm32/no-outputs -<span id="L32785" class="LineNr">32785 </span> 0/imm32/no-outputs -<span id="L32786" class="LineNr">32786 </span> 0x11/imm32/alloc-id:fake -<span id="L32787" class="LineNr">32787 </span> <a href='mu.subx.html#L33809'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L32788" class="LineNr">32788 </span> 0/imm32/no-rm32 -<span id="L32789" class="LineNr">32789 </span> 0/imm32/no-r32 -<span id="L32790" class="LineNr">32790 </span> 0/imm32/no-imm32 -<span id="L32791" class="LineNr">32791 </span> 0/imm32/no-imm8 -<span id="L32792" class="LineNr">32792 </span> 1/imm32/disp32-is-first-inout -<span id="L32793" class="LineNr">32793 </span> 0/imm32/no-xm32 -<span id="L32794" class="LineNr">32794 </span> 0/imm32/no-x32 -<span id="L32795" class="LineNr">32795 </span> 0x11/imm32/alloc-id:fake -<span id="L32796" class="LineNr">32796 </span> <a href='mu.subx.html#L32797'>_Primitive-break-named</a>/imm32/next -<span id="L32797" class="LineNr">32797 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32798" class="LineNr">32798 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32799" class="LineNr">32799 </span> 0x11/imm32/alloc-id:fake -<span id="L32800" class="LineNr">32800 </span> <a href='mu.subx.html#L33357'>_string-break</a>/imm32/name -<span id="L32801" class="LineNr">32801 </span> 0x11/imm32/alloc-id:fake -<span id="L32802" class="LineNr">32802 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32803" class="LineNr">32803 </span> 0/imm32/no-outputs -<span id="L32804" class="LineNr">32804 </span> 0/imm32/no-outputs -<span id="L32805" class="LineNr">32805 </span> 0x11/imm32/alloc-id:fake -<span id="L32806" class="LineNr">32806 </span> <a href='mu.subx.html#L34114'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L32807" class="LineNr">32807 </span> 0/imm32/no-rm32 -<span id="L32808" class="LineNr">32808 </span> 0/imm32/no-r32 -<span id="L32809" class="LineNr">32809 </span> 0/imm32/no-imm32 -<span id="L32810" class="LineNr">32810 </span> 0/imm32/no-imm8 -<span id="L32811" class="LineNr">32811 </span> 1/imm32/disp32-is-first-inout -<span id="L32812" class="LineNr">32812 </span> 0/imm32/no-xm32 -<span id="L32813" class="LineNr">32813 </span> 0/imm32/no-x32 -<span id="L32814" class="LineNr">32814 </span> 0x11/imm32/alloc-id:fake -<span id="L32815" class="LineNr">32815 </span> <a href='mu.subx.html#L32816'>_Primitive-loop-if-addr<-named</a>/imm32/next -<span id="L32816" class="LineNr">32816 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32817" class="LineNr">32817 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32818" class="LineNr">32818 </span> 0x11/imm32/alloc-id:fake -<span id="L32819" class="LineNr">32819 </span> <a href='mu.subx.html#L33502'>_string-loop-if-addr<</a>/imm32/name -<span id="L32820" class="LineNr">32820 </span> 0x11/imm32/alloc-id:fake -<span id="L32821" class="LineNr">32821 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32822" class="LineNr">32822 </span> 0/imm32/no-outputs -<span id="L32823" class="LineNr">32823 </span> 0/imm32/no-outputs -<span id="L32824" class="LineNr">32824 </span> 0x11/imm32/alloc-id:fake -<span id="L32825" class="LineNr">32825 </span> <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L32826" class="LineNr">32826 </span> 0/imm32/no-rm32 -<span id="L32827" class="LineNr">32827 </span> 0/imm32/no-r32 -<span id="L32828" class="LineNr">32828 </span> 0/imm32/no-imm32 -<span id="L32829" class="LineNr">32829 </span> 0/imm32/no-imm8 -<span id="L32830" class="LineNr">32830 </span> 1/imm32/disp32-is-first-inout -<span id="L32831" class="LineNr">32831 </span> 0/imm32/no-xm32 -<span id="L32832" class="LineNr">32832 </span> 0/imm32/no-x32 -<span id="L32833" class="LineNr">32833 </span> 0x11/imm32/alloc-id:fake -<span id="L32834" class="LineNr">32834 </span> <a href='mu.subx.html#L32835'>_Primitive-loop-if-addr>=-named</a>/imm32/next -<span id="L32835" class="LineNr">32835 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32836" class="LineNr">32836 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32837" class="LineNr">32837 </span> 0x11/imm32/alloc-id:fake -<span id="L32838" class="LineNr">32838 </span> <a href='mu.subx.html#L33517'>_string-loop-if-addr>=</a>/imm32/name -<span id="L32839" class="LineNr">32839 </span> 0x11/imm32/alloc-id:fake -<span id="L32840" class="LineNr">32840 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32841" class="LineNr">32841 </span> 0/imm32/no-outputs -<span id="L32842" class="LineNr">32842 </span> 0/imm32/no-outputs -<span id="L32843" class="LineNr">32843 </span> 0x11/imm32/alloc-id:fake -<span id="L32844" class="LineNr">32844 </span> <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L32845" class="LineNr">32845 </span> 0/imm32/no-rm32 -<span id="L32846" class="LineNr">32846 </span> 0/imm32/no-r32 -<span id="L32847" class="LineNr">32847 </span> 0/imm32/no-imm32 -<span id="L32848" class="LineNr">32848 </span> 0/imm32/no-imm8 -<span id="L32849" class="LineNr">32849 </span> 1/imm32/disp32-is-first-inout -<span id="L32850" class="LineNr">32850 </span> 0/imm32/no-xm32 -<span id="L32851" class="LineNr">32851 </span> 0/imm32/no-x32 -<span id="L32852" class="LineNr">32852 </span> 0x11/imm32/alloc-id:fake -<span id="L32853" class="LineNr">32853 </span> <a href='mu.subx.html#L32854'>_Primitive-loop-if-=-named</a>/imm32/next -<span id="L32854" class="LineNr">32854 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32855" class="LineNr">32855 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32856" class="LineNr">32856 </span> 0x11/imm32/alloc-id:fake -<span id="L32857" class="LineNr">32857 </span> <a href='mu.subx.html#L33482'>_string-loop-if-=</a>/imm32/name -<span id="L32858" class="LineNr">32858 </span> 0x11/imm32/alloc-id:fake -<span id="L32859" class="LineNr">32859 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32860" class="LineNr">32860 </span> 0/imm32/no-outputs -<span id="L32861" class="LineNr">32861 </span> 0/imm32/no-outputs -<span id="L32862" class="LineNr">32862 </span> 0x11/imm32/alloc-id:fake -<span id="L32863" class="LineNr">32863 </span> <a href='mu.subx.html#L33704'>_string_0f_84_jump_label</a>/imm32/subx-name -<span id="L32864" class="LineNr">32864 </span> 0/imm32/no-rm32 -<span id="L32865" class="LineNr">32865 </span> 0/imm32/no-r32 -<span id="L32866" class="LineNr">32866 </span> 0/imm32/no-imm32 -<span id="L32867" class="LineNr">32867 </span> 0/imm32/no-imm8 -<span id="L32868" class="LineNr">32868 </span> 1/imm32/disp32-is-first-inout -<span id="L32869" class="LineNr">32869 </span> 0/imm32/no-xm32 -<span id="L32870" class="LineNr">32870 </span> 0/imm32/no-x32 -<span id="L32871" class="LineNr">32871 </span> 0x11/imm32/alloc-id:fake -<span id="L32872" class="LineNr">32872 </span> <a href='mu.subx.html#L32873'>_Primitive-loop-if-!=-named</a>/imm32/next -<span id="L32873" class="LineNr">32873 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32874" class="LineNr">32874 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32875" class="LineNr">32875 </span> 0x11/imm32/alloc-id:fake -<span id="L32876" class="LineNr">32876 </span> <a href='mu.subx.html#L33497'>_string-loop-if-!=</a>/imm32/name -<span id="L32877" class="LineNr">32877 </span> 0x11/imm32/alloc-id:fake -<span id="L32878" class="LineNr">32878 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32879" class="LineNr">32879 </span> 0/imm32/no-outputs -<span id="L32880" class="LineNr">32880 </span> 0/imm32/no-outputs -<span id="L32881" class="LineNr">32881 </span> 0x11/imm32/alloc-id:fake -<span id="L32882" class="LineNr">32882 </span> <a href='mu.subx.html#L33719'>_string_0f_85_jump_label</a>/imm32/subx-name -<span id="L32883" class="LineNr">32883 </span> 0/imm32/no-rm32 -<span id="L32884" class="LineNr">32884 </span> 0/imm32/no-r32 -<span id="L32885" class="LineNr">32885 </span> 0/imm32/no-imm32 -<span id="L32886" class="LineNr">32886 </span> 0/imm32/no-imm8 -<span id="L32887" class="LineNr">32887 </span> 1/imm32/disp32-is-first-inout -<span id="L32888" class="LineNr">32888 </span> 0/imm32/no-xm32 -<span id="L32889" class="LineNr">32889 </span> 0/imm32/no-x32 -<span id="L32890" class="LineNr">32890 </span> 0x11/imm32/alloc-id:fake -<span id="L32891" class="LineNr">32891 </span> <a href='mu.subx.html#L32892'>_Primitive-loop-if-addr<=-named</a>/imm32/next -<span id="L32892" class="LineNr">32892 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32893" class="LineNr">32893 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32894" class="LineNr">32894 </span> 0x11/imm32/alloc-id:fake -<span id="L32895" class="LineNr">32895 </span> <a href='mu.subx.html#L33507'>_string-loop-if-addr<=</a>/imm32/name -<span id="L32896" class="LineNr">32896 </span> 0x11/imm32/alloc-id:fake -<span id="L32897" class="LineNr">32897 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32898" class="LineNr">32898 </span> 0/imm32/no-outputs -<span id="L32899" class="LineNr">32899 </span> 0/imm32/no-outputs -<span id="L32900" class="LineNr">32900 </span> 0x11/imm32/alloc-id:fake -<span id="L32901" class="LineNr">32901 </span> <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L32902" class="LineNr">32902 </span> 0/imm32/no-rm32 -<span id="L32903" class="LineNr">32903 </span> 0/imm32/no-r32 -<span id="L32904" class="LineNr">32904 </span> 0/imm32/no-imm32 -<span id="L32905" class="LineNr">32905 </span> 0/imm32/no-imm8 -<span id="L32906" class="LineNr">32906 </span> 1/imm32/disp32-is-first-inout -<span id="L32907" class="LineNr">32907 </span> 0/imm32/no-xm32 -<span id="L32908" class="LineNr">32908 </span> 0/imm32/no-x32 -<span id="L32909" class="LineNr">32909 </span> 0x11/imm32/alloc-id:fake -<span id="L32910" class="LineNr">32910 </span> <a href='mu.subx.html#L32911'>_Primitive-loop-if-addr>-named</a>/imm32/next -<span id="L32911" class="LineNr">32911 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32912" class="LineNr">32912 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32913" class="LineNr">32913 </span> 0x11/imm32/alloc-id:fake -<span id="L32914" class="LineNr">32914 </span> <a href='mu.subx.html#L33512'>_string-loop-if-addr></a>/imm32/name -<span id="L32915" class="LineNr">32915 </span> 0x11/imm32/alloc-id:fake -<span id="L32916" class="LineNr">32916 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32917" class="LineNr">32917 </span> 0/imm32/no-outputs -<span id="L32918" class="LineNr">32918 </span> 0/imm32/no-outputs -<span id="L32919" class="LineNr">32919 </span> 0x11/imm32/alloc-id:fake -<span id="L32920" class="LineNr">32920 </span> <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L32921" class="LineNr">32921 </span> 0/imm32/no-rm32 -<span id="L32922" class="LineNr">32922 </span> 0/imm32/no-r32 -<span id="L32923" class="LineNr">32923 </span> 0/imm32/no-imm32 -<span id="L32924" class="LineNr">32924 </span> 0/imm32/no-imm8 -<span id="L32925" class="LineNr">32925 </span> 1/imm32/disp32-is-first-inout -<span id="L32926" class="LineNr">32926 </span> 0/imm32/no-xm32 -<span id="L32927" class="LineNr">32927 </span> 0/imm32/no-x32 -<span id="L32928" class="LineNr">32928 </span> 0x11/imm32/alloc-id:fake -<span id="L32929" class="LineNr">32929 </span> <a href='mu.subx.html#L32930'>_Primitive-loop-if-<-named</a>/imm32/next -<span id="L32930" class="LineNr">32930 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32931" class="LineNr">32931 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32932" class="LineNr">32932 </span> 0x11/imm32/alloc-id:fake -<span id="L32933" class="LineNr">32933 </span> <a href='mu.subx.html#L33472'>_string-loop-if-<</a>/imm32/name -<span id="L32934" class="LineNr">32934 </span> 0x11/imm32/alloc-id:fake -<span id="L32935" class="LineNr">32935 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32936" class="LineNr">32936 </span> 0/imm32/no-outputs -<span id="L32937" class="LineNr">32937 </span> 0/imm32/no-outputs -<span id="L32938" class="LineNr">32938 </span> 0x11/imm32/alloc-id:fake -<span id="L32939" class="LineNr">32939 </span> <a href='mu.subx.html#L33764'>_string_0f_8c_jump_label</a>/imm32/subx-name -<span id="L32940" class="LineNr">32940 </span> 0/imm32/no-rm32 -<span id="L32941" class="LineNr">32941 </span> 0/imm32/no-r32 -<span id="L32942" class="LineNr">32942 </span> 0/imm32/no-imm32 -<span id="L32943" class="LineNr">32943 </span> 0/imm32/no-imm8 -<span id="L32944" class="LineNr">32944 </span> 1/imm32/disp32-is-first-inout -<span id="L32945" class="LineNr">32945 </span> 0/imm32/no-xm32 -<span id="L32946" class="LineNr">32946 </span> 0/imm32/no-x32 -<span id="L32947" class="LineNr">32947 </span> 0x11/imm32/alloc-id:fake -<span id="L32948" class="LineNr">32948 </span> <a href='mu.subx.html#L32949'>_Primitive-loop-if->=-named</a>/imm32/next -<span id="L32949" class="LineNr">32949 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32950" class="LineNr">32950 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32951" class="LineNr">32951 </span> 0x11/imm32/alloc-id:fake -<span id="L32952" class="LineNr">32952 </span> <a href='mu.subx.html#L33492'>_string-loop-if->=</a>/imm32/name -<span id="L32953" class="LineNr">32953 </span> 0x11/imm32/alloc-id:fake -<span id="L32954" class="LineNr">32954 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32955" class="LineNr">32955 </span> 0/imm32/no-outputs -<span id="L32956" class="LineNr">32956 </span> 0/imm32/no-outputs -<span id="L32957" class="LineNr">32957 </span> 0x11/imm32/alloc-id:fake -<span id="L32958" class="LineNr">32958 </span> <a href='mu.subx.html#L33779'>_string_0f_8d_jump_label</a>/imm32/subx-name -<span id="L32959" class="LineNr">32959 </span> 0/imm32/no-rm32 -<span id="L32960" class="LineNr">32960 </span> 0/imm32/no-r32 -<span id="L32961" class="LineNr">32961 </span> 0/imm32/no-imm32 -<span id="L32962" class="LineNr">32962 </span> 0/imm32/no-imm8 -<span id="L32963" class="LineNr">32963 </span> 1/imm32/disp32-is-first-inout -<span id="L32964" class="LineNr">32964 </span> 0/imm32/no-xm32 -<span id="L32965" class="LineNr">32965 </span> 0/imm32/no-x32 -<span id="L32966" class="LineNr">32966 </span> 0x11/imm32/alloc-id:fake -<span id="L32967" class="LineNr">32967 </span> <a href='mu.subx.html#L32968'>_Primitive-loop-if-<=-named</a>/imm32/next -<span id="L32968" class="LineNr">32968 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32969" class="LineNr">32969 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32970" class="LineNr">32970 </span> 0x11/imm32/alloc-id:fake -<span id="L32971" class="LineNr">32971 </span> <a href='mu.subx.html#L33477'>_string-loop-if-<=</a>/imm32/name -<span id="L32972" class="LineNr">32972 </span> 0x11/imm32/alloc-id:fake -<span id="L32973" class="LineNr">32973 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32974" class="LineNr">32974 </span> 0/imm32/no-outputs -<span id="L32975" class="LineNr">32975 </span> 0/imm32/no-outputs -<span id="L32976" class="LineNr">32976 </span> 0x11/imm32/alloc-id:fake -<span id="L32977" class="LineNr">32977 </span> <a href='mu.subx.html#L33794'>_string_0f_8e_jump_label</a>/imm32/subx-name -<span id="L32978" class="LineNr">32978 </span> 0/imm32/no-rm32 -<span id="L32979" class="LineNr">32979 </span> 0/imm32/no-r32 -<span id="L32980" class="LineNr">32980 </span> 0/imm32/no-imm32 -<span id="L32981" class="LineNr">32981 </span> 0/imm32/no-imm8 -<span id="L32982" class="LineNr">32982 </span> 1/imm32/disp32-is-first-inout -<span id="L32983" class="LineNr">32983 </span> 0/imm32/no-xm32 -<span id="L32984" class="LineNr">32984 </span> 0/imm32/no-x32 -<span id="L32985" class="LineNr">32985 </span> 0x11/imm32/alloc-id:fake -<span id="L32986" class="LineNr">32986 </span> <a href='mu.subx.html#L32987'>_Primitive-loop-if->-named</a>/imm32/next -<span id="L32987" class="LineNr">32987 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L32988" class="LineNr">32988 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L32989" class="LineNr">32989 </span> 0x11/imm32/alloc-id:fake -<span id="L32990" class="LineNr">32990 </span> <a href='mu.subx.html#L33487'>_string-loop-if-></a>/imm32/name -<span id="L32991" class="LineNr">32991 </span> 0x11/imm32/alloc-id:fake -<span id="L32992" class="LineNr">32992 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L32993" class="LineNr">32993 </span> 0/imm32/no-outputs -<span id="L32994" class="LineNr">32994 </span> 0/imm32/no-outputs -<span id="L32995" class="LineNr">32995 </span> 0x11/imm32/alloc-id:fake -<span id="L32996" class="LineNr">32996 </span> <a href='mu.subx.html#L33809'>_string_0f_8f_jump_label</a>/imm32/subx-name -<span id="L32997" class="LineNr">32997 </span> 0/imm32/no-rm32 -<span id="L32998" class="LineNr">32998 </span> 0/imm32/no-r32 -<span id="L32999" class="LineNr">32999 </span> 0/imm32/no-imm32 -<span id="L33000" class="LineNr">33000 </span> 0/imm32/no-imm8 -<span id="L33001" class="LineNr">33001 </span> 1/imm32/disp32-is-first-inout -<span id="L33002" class="LineNr">33002 </span> 0/imm32/no-xm32 -<span id="L33003" class="LineNr">33003 </span> 0/imm32/no-x32 -<span id="L33004" class="LineNr">33004 </span> 0x11/imm32/alloc-id:fake -<span id="L33005" class="LineNr">33005 </span> <a href='mu.subx.html#L33006'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> -<span id="L33006" class="LineNr">33006 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33007" class="LineNr">33007 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33008" class="LineNr">33008 </span> 0x11/imm32/alloc-id:fake -<span id="L33009" class="LineNr">33009 </span> <a href='mu.subx.html#L33467'>_string-loop</a>/imm32/name -<span id="L33010" class="LineNr">33010 </span> 0x11/imm32/alloc-id:fake -<span id="L33011" class="LineNr">33011 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33012" class="LineNr">33012 </span> 0/imm32/no-outputs -<span id="L33013" class="LineNr">33013 </span> 0/imm32/no-outputs -<span id="L33014" class="LineNr">33014 </span> 0x11/imm32/alloc-id:fake -<span id="L33015" class="LineNr">33015 </span> <a href='mu.subx.html#L34114'>_string_e9_jump_label</a>/imm32/subx-name -<span id="L33016" class="LineNr">33016 </span> 0/imm32/no-rm32 -<span id="L33017" class="LineNr">33017 </span> 0/imm32/no-r32 -<span id="L33018" class="LineNr">33018 </span> 0/imm32/no-imm32 -<span id="L33019" class="LineNr">33019 </span> 0/imm32/no-imm8 -<span id="L33020" class="LineNr">33020 </span> 1/imm32/disp32-is-first-inout -<span id="L33021" class="LineNr">33021 </span> 0/imm32/no-xm32 -<span id="L33022" class="LineNr">33022 </span> 0/imm32/no-x32 -<span id="L33023" class="LineNr">33023 </span> 0x11/imm32/alloc-id:fake -<span id="L33024" class="LineNr">33024 </span> <a href='mu.subx.html#L33026'>_Primitive-break-if-float<</a>/imm32/next -<span id="L33025" class="LineNr">33025 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> -<span id="L33026" class="LineNr">33026 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33027" class="LineNr">33027 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33028" class="LineNr">33028 </span> 0x11/imm32/alloc-id:fake -<span id="L33029" class="LineNr">33029 </span> <a href='mu.subx.html#L33412'>_string-break-if-float<</a>/imm32/name -<span id="L33030" class="LineNr">33030 </span> 0/imm32/no-inouts -<span id="L33031" class="LineNr">33031 </span> 0/imm32/no-inouts -<span id="L33032" class="LineNr">33032 </span> 0/imm32/no-outputs -<span id="L33033" class="LineNr">33033 </span> 0/imm32/no-outputs -<span id="L33034" class="LineNr">33034 </span> 0x11/imm32/alloc-id:fake -<span id="L33035" class="LineNr">33035 </span> <a href='mu.subx.html#L33679'>_string_0f_82_jump_break</a>/imm32/subx-name -<span id="L33036" class="LineNr">33036 </span> 0/imm32/no-rm32 -<span id="L33037" class="LineNr">33037 </span> 0/imm32/no-r32 -<span id="L33038" class="LineNr">33038 </span> 0/imm32/no-imm32 -<span id="L33039" class="LineNr">33039 </span> 0/imm32/no-imm8 -<span id="L33040" class="LineNr">33040 </span> 0/imm32/no-disp32 -<span id="L33041" class="LineNr">33041 </span> 0/imm32/no-xm32 -<span id="L33042" class="LineNr">33042 </span> 0/imm32/no-x32 -<span id="L33043" class="LineNr">33043 </span> 0x11/imm32/alloc-id:fake -<span id="L33044" class="LineNr">33044 </span> <a href='mu.subx.html#L33045'>_Primitive-break-if-float>=</a>/imm32/next -<span id="L33045" class="LineNr">33045 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33046" class="LineNr">33046 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33047" class="LineNr">33047 </span> 0x11/imm32/alloc-id:fake -<span id="L33048" class="LineNr">33048 </span> <a href='mu.subx.html#L33427'>_string-break-if-float>=</a>/imm32/name -<span id="L33049" class="LineNr">33049 </span> 0/imm32/no-inouts -<span id="L33050" class="LineNr">33050 </span> 0/imm32/no-inouts -<span id="L33051" class="LineNr">33051 </span> 0/imm32/no-outputs -<span id="L33052" class="LineNr">33052 </span> 0/imm32/no-outputs -<span id="L33053" class="LineNr">33053 </span> 0x11/imm32/alloc-id:fake -<span id="L33054" class="LineNr">33054 </span> <a href='mu.subx.html#L33694'>_string_0f_83_jump_break</a>/imm32/subx-name -<span id="L33055" class="LineNr">33055 </span> 0/imm32/no-rm32 -<span id="L33056" class="LineNr">33056 </span> 0/imm32/no-r32 -<span id="L33057" class="LineNr">33057 </span> 0/imm32/no-imm32 -<span id="L33058" class="LineNr">33058 </span> 0/imm32/no-imm8 -<span id="L33059" class="LineNr">33059 </span> 0/imm32/no-disp32 -<span id="L33060" class="LineNr">33060 </span> 0/imm32/no-xm32 -<span id="L33061" class="LineNr">33061 </span> 0/imm32/no-x32 -<span id="L33062" class="LineNr">33062 </span> 0x11/imm32/alloc-id:fake -<span id="L33063" class="LineNr">33063 </span> <a href='mu.subx.html#L33064'>_Primitive-break-if-float<=</a>/imm32/next -<span id="L33064" class="LineNr">33064 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33065" class="LineNr">33065 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33066" class="LineNr">33066 </span> 0x11/imm32/alloc-id:fake -<span id="L33067" class="LineNr">33067 </span> <a href='mu.subx.html#L33417'>_string-break-if-float<=</a>/imm32/name -<span id="L33068" class="LineNr">33068 </span> 0/imm32/no-inouts -<span id="L33069" class="LineNr">33069 </span> 0/imm32/no-inouts -<span id="L33070" class="LineNr">33070 </span> 0/imm32/no-outputs -<span id="L33071" class="LineNr">33071 </span> 0/imm32/no-outputs -<span id="L33072" class="LineNr">33072 </span> 0x11/imm32/alloc-id:fake -<span id="L33073" class="LineNr">33073 </span> <a href='mu.subx.html#L33739'>_string_0f_86_jump_break</a>/imm32/subx-name -<span id="L33074" class="LineNr">33074 </span> 0/imm32/no-rm32 -<span id="L33075" class="LineNr">33075 </span> 0/imm32/no-r32 -<span id="L33076" class="LineNr">33076 </span> 0/imm32/no-imm32 -<span id="L33077" class="LineNr">33077 </span> 0/imm32/no-imm8 -<span id="L33078" class="LineNr">33078 </span> 0/imm32/no-disp32 -<span id="L33079" class="LineNr">33079 </span> 0/imm32/no-xm32 -<span id="L33080" class="LineNr">33080 </span> 0/imm32/no-x32 -<span id="L33081" class="LineNr">33081 </span> 0x11/imm32/alloc-id:fake -<span id="L33082" class="LineNr">33082 </span> <a href='mu.subx.html#L33083'>_Primitive-break-if-float></a>/imm32/next -<span id="L33083" class="LineNr">33083 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33084" class="LineNr">33084 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33085" class="LineNr">33085 </span> 0x11/imm32/alloc-id:fake -<span id="L33086" class="LineNr">33086 </span> <a href='mu.subx.html#L33422'>_string-break-if-float></a>/imm32/name -<span id="L33087" class="LineNr">33087 </span> 0/imm32/no-inouts -<span id="L33088" class="LineNr">33088 </span> 0/imm32/no-inouts -<span id="L33089" class="LineNr">33089 </span> 0/imm32/no-outputs -<span id="L33090" class="LineNr">33090 </span> 0/imm32/no-outputs -<span id="L33091" class="LineNr">33091 </span> 0x11/imm32/alloc-id:fake -<span id="L33092" class="LineNr">33092 </span> <a href='mu.subx.html#L33754'>_string_0f_87_jump_break</a>/imm32/subx-name -<span id="L33093" class="LineNr">33093 </span> 0/imm32/no-rm32 -<span id="L33094" class="LineNr">33094 </span> 0/imm32/no-r32 -<span id="L33095" class="LineNr">33095 </span> 0/imm32/no-imm32 -<span id="L33096" class="LineNr">33096 </span> 0/imm32/no-imm8 -<span id="L33097" class="LineNr">33097 </span> 0/imm32/no-disp32 -<span id="L33098" class="LineNr">33098 </span> 0/imm32/no-xm32 -<span id="L33099" class="LineNr">33099 </span> 0/imm32/no-x32 -<span id="L33100" class="LineNr">33100 </span> 0x11/imm32/alloc-id:fake -<span id="L33101" class="LineNr">33101 </span> <a href='mu.subx.html#L33102'>_Primitive-loop-if-float<</a>/imm32/next -<span id="L33102" class="LineNr">33102 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33103" class="LineNr">33103 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33104" class="LineNr">33104 </span> 0x11/imm32/alloc-id:fake -<span id="L33105" class="LineNr">33105 </span> <a href='mu.subx.html#L33522'>_string-loop-if-float<</a>/imm32/name -<span id="L33106" class="LineNr">33106 </span> 0/imm32/no-inouts -<span id="L33107" class="LineNr">33107 </span> 0/imm32/no-inouts -<span id="L33108" class="LineNr">33108 </span> 0/imm32/no-outputs -<span id="L33109" class="LineNr">33109 </span> 0/imm32/no-outputs -<span id="L33110" class="LineNr">33110 </span> 0x11/imm32/alloc-id:fake -<span id="L33111" class="LineNr">33111 </span> <a href='mu.subx.html#L33684'>_string_0f_82_jump_loop</a>/imm32/subx-name -<span id="L33112" class="LineNr">33112 </span> 0/imm32/no-rm32 -<span id="L33113" class="LineNr">33113 </span> 0/imm32/no-r32 -<span id="L33114" class="LineNr">33114 </span> 0/imm32/no-imm32 -<span id="L33115" class="LineNr">33115 </span> 0/imm32/no-imm8 -<span id="L33116" class="LineNr">33116 </span> 0/imm32/no-disp32 -<span id="L33117" class="LineNr">33117 </span> 0/imm32/no-xm32 -<span id="L33118" class="LineNr">33118 </span> 0/imm32/no-x32 -<span id="L33119" class="LineNr">33119 </span> 0x11/imm32/alloc-id:fake -<span id="L33120" class="LineNr">33120 </span> <a href='mu.subx.html#L33121'>_Primitive-loop-if-float>=</a>/imm32/next -<span id="L33121" class="LineNr">33121 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33122" class="LineNr">33122 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33123" class="LineNr">33123 </span> 0x11/imm32/alloc-id:fake -<span id="L33124" class="LineNr">33124 </span> <a href='mu.subx.html#L33537'>_string-loop-if-float>=</a>/imm32/name -<span id="L33125" class="LineNr">33125 </span> 0/imm32/no-inouts -<span id="L33126" class="LineNr">33126 </span> 0/imm32/no-inouts -<span id="L33127" class="LineNr">33127 </span> 0/imm32/no-outputs -<span id="L33128" class="LineNr">33128 </span> 0/imm32/no-outputs -<span id="L33129" class="LineNr">33129 </span> 0x11/imm32/alloc-id:fake -<span id="L33130" class="LineNr">33130 </span> <a href='mu.subx.html#L33699'>_string_0f_83_jump_loop</a>/imm32/subx-name -<span id="L33131" class="LineNr">33131 </span> 0/imm32/no-rm32 -<span id="L33132" class="LineNr">33132 </span> 0/imm32/no-r32 -<span id="L33133" class="LineNr">33133 </span> 0/imm32/no-imm32 -<span id="L33134" class="LineNr">33134 </span> 0/imm32/no-imm8 -<span id="L33135" class="LineNr">33135 </span> 0/imm32/no-disp32 -<span id="L33136" class="LineNr">33136 </span> 0/imm32/no-xm32 -<span id="L33137" class="LineNr">33137 </span> 0/imm32/no-x32 -<span id="L33138" class="LineNr">33138 </span> 0x11/imm32/alloc-id:fake -<span id="L33139" class="LineNr">33139 </span> <a href='mu.subx.html#L33140'>_Primitive-loop-if-float<=</a>/imm32/next -<span id="L33140" class="LineNr">33140 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33141" class="LineNr">33141 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33142" class="LineNr">33142 </span> 0x11/imm32/alloc-id:fake -<span id="L33143" class="LineNr">33143 </span> <a href='mu.subx.html#L33527'>_string-loop-if-float<=</a>/imm32/name -<span id="L33144" class="LineNr">33144 </span> 0/imm32/no-inouts -<span id="L33145" class="LineNr">33145 </span> 0/imm32/no-inouts -<span id="L33146" class="LineNr">33146 </span> 0/imm32/no-outputs -<span id="L33147" class="LineNr">33147 </span> 0/imm32/no-outputs -<span id="L33148" class="LineNr">33148 </span> 0x11/imm32/alloc-id:fake -<span id="L33149" class="LineNr">33149 </span> <a href='mu.subx.html#L33744'>_string_0f_86_jump_loop</a>/imm32/subx-name -<span id="L33150" class="LineNr">33150 </span> 0/imm32/no-rm32 -<span id="L33151" class="LineNr">33151 </span> 0/imm32/no-r32 -<span id="L33152" class="LineNr">33152 </span> 0/imm32/no-imm32 -<span id="L33153" class="LineNr">33153 </span> 0/imm32/no-imm8 -<span id="L33154" class="LineNr">33154 </span> 0/imm32/no-disp32 -<span id="L33155" class="LineNr">33155 </span> 0/imm32/no-xm32 -<span id="L33156" class="LineNr">33156 </span> 0/imm32/no-x32 -<span id="L33157" class="LineNr">33157 </span> 0x11/imm32/alloc-id:fake -<span id="L33158" class="LineNr">33158 </span> <a href='mu.subx.html#L33159'>_Primitive-loop-if-float></a>/imm32/next -<span id="L33159" class="LineNr">33159 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33160" class="LineNr">33160 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33161" class="LineNr">33161 </span> 0x11/imm32/alloc-id:fake -<span id="L33162" class="LineNr">33162 </span> <a href='mu.subx.html#L33532'>_string-loop-if-float></a>/imm32/name -<span id="L33163" class="LineNr">33163 </span> 0/imm32/no-inouts -<span id="L33164" class="LineNr">33164 </span> 0/imm32/no-inouts -<span id="L33165" class="LineNr">33165 </span> 0/imm32/no-outputs -<span id="L33166" class="LineNr">33166 </span> 0/imm32/no-outputs -<span id="L33167" class="LineNr">33167 </span> 0x11/imm32/alloc-id:fake -<span id="L33168" class="LineNr">33168 </span> <a href='mu.subx.html#L33759'>_string_0f_87_jump_loop</a>/imm32/subx-name -<span id="L33169" class="LineNr">33169 </span> 0/imm32/no-rm32 -<span id="L33170" class="LineNr">33170 </span> 0/imm32/no-r32 -<span id="L33171" class="LineNr">33171 </span> 0/imm32/no-imm32 -<span id="L33172" class="LineNr">33172 </span> 0/imm32/no-imm8 -<span id="L33173" class="LineNr">33173 </span> 0/imm32/no-disp32 -<span id="L33174" class="LineNr">33174 </span> 0/imm32/no-xm32 -<span id="L33175" class="LineNr">33175 </span> 0/imm32/no-x32 -<span id="L33176" class="LineNr">33176 </span> 0x11/imm32/alloc-id:fake -<span id="L33177" class="LineNr">33177 </span> <a href='mu.subx.html#L33178'>_Primitive-break-if-float<-named</a>/imm32/next -<span id="L33178" class="LineNr">33178 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33179" class="LineNr">33179 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33180" class="LineNr">33180 </span> 0x11/imm32/alloc-id:fake -<span id="L33181" class="LineNr">33181 </span> <a href='mu.subx.html#L33412'>_string-break-if-float<</a>/imm32/name -<span id="L33182" class="LineNr">33182 </span> 0x11/imm32/alloc-id:fake -<span id="L33183" class="LineNr">33183 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33184" class="LineNr">33184 </span> 0/imm32/no-outputs -<span id="L33185" class="LineNr">33185 </span> 0/imm32/no-outputs -<span id="L33186" class="LineNr">33186 </span> 0x11/imm32/alloc-id:fake -<span id="L33187" class="LineNr">33187 </span> <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L33188" class="LineNr">33188 </span> 0/imm32/no-rm32 -<span id="L33189" class="LineNr">33189 </span> 0/imm32/no-r32 -<span id="L33190" class="LineNr">33190 </span> 0/imm32/no-imm32 -<span id="L33191" class="LineNr">33191 </span> 0/imm32/no-imm8 -<span id="L33192" class="LineNr">33192 </span> 1/imm32/disp32-is-first-inout -<span id="L33193" class="LineNr">33193 </span> 0/imm32/no-xm32 -<span id="L33194" class="LineNr">33194 </span> 0/imm32/no-x32 -<span id="L33195" class="LineNr">33195 </span> 0x11/imm32/alloc-id:fake -<span id="L33196" class="LineNr">33196 </span> <a href='mu.subx.html#L33197'>_Primitive-break-if-float>=-named</a>/imm32/next -<span id="L33197" class="LineNr">33197 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33198" class="LineNr">33198 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33199" class="LineNr">33199 </span> 0x11/imm32/alloc-id:fake -<span id="L33200" class="LineNr">33200 </span> <a href='mu.subx.html#L33427'>_string-break-if-float>=</a>/imm32/name -<span id="L33201" class="LineNr">33201 </span> 0x11/imm32/alloc-id:fake -<span id="L33202" class="LineNr">33202 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33203" class="LineNr">33203 </span> 0/imm32/no-outputs -<span id="L33204" class="LineNr">33204 </span> 0/imm32/no-outputs -<span id="L33205" class="LineNr">33205 </span> 0x11/imm32/alloc-id:fake -<span id="L33206" class="LineNr">33206 </span> <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L33207" class="LineNr">33207 </span> 0/imm32/no-rm32 -<span id="L33208" class="LineNr">33208 </span> 0/imm32/no-r32 -<span id="L33209" class="LineNr">33209 </span> 0/imm32/no-imm32 -<span id="L33210" class="LineNr">33210 </span> 0/imm32/no-imm8 -<span id="L33211" class="LineNr">33211 </span> 1/imm32/disp32-is-first-inout -<span id="L33212" class="LineNr">33212 </span> 0/imm32/no-xm32 -<span id="L33213" class="LineNr">33213 </span> 0/imm32/no-x32 -<span id="L33214" class="LineNr">33214 </span> 0x11/imm32/alloc-id:fake -<span id="L33215" class="LineNr">33215 </span> <a href='mu.subx.html#L33216'>_Primitive-break-if-float<=-named</a>/imm32/next -<span id="L33216" class="LineNr">33216 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33217" class="LineNr">33217 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33218" class="LineNr">33218 </span> 0x11/imm32/alloc-id:fake -<span id="L33219" class="LineNr">33219 </span> <a href='mu.subx.html#L33417'>_string-break-if-float<=</a>/imm32/name -<span id="L33220" class="LineNr">33220 </span> 0x11/imm32/alloc-id:fake -<span id="L33221" class="LineNr">33221 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33222" class="LineNr">33222 </span> 0/imm32/no-outputs -<span id="L33223" class="LineNr">33223 </span> 0/imm32/no-outputs -<span id="L33224" class="LineNr">33224 </span> 0x11/imm32/alloc-id:fake -<span id="L33225" class="LineNr">33225 </span> <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L33226" class="LineNr">33226 </span> 0/imm32/no-rm32 -<span id="L33227" class="LineNr">33227 </span> 0/imm32/no-r32 -<span id="L33228" class="LineNr">33228 </span> 0/imm32/no-imm32 -<span id="L33229" class="LineNr">33229 </span> 0/imm32/no-imm8 -<span id="L33230" class="LineNr">33230 </span> 1/imm32/disp32-is-first-inout -<span id="L33231" class="LineNr">33231 </span> 0/imm32/no-xm32 -<span id="L33232" class="LineNr">33232 </span> 0/imm32/no-x32 -<span id="L33233" class="LineNr">33233 </span> 0x11/imm32/alloc-id:fake -<span id="L33234" class="LineNr">33234 </span> <a href='mu.subx.html#L33235'>_Primitive-break-if-float>-named</a>/imm32/next -<span id="L33235" class="LineNr">33235 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33236" class="LineNr">33236 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33237" class="LineNr">33237 </span> 0x11/imm32/alloc-id:fake -<span id="L33238" class="LineNr">33238 </span> <a href='mu.subx.html#L33422'>_string-break-if-float></a>/imm32/name -<span id="L33239" class="LineNr">33239 </span> 0x11/imm32/alloc-id:fake -<span id="L33240" class="LineNr">33240 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33241" class="LineNr">33241 </span> 0/imm32/no-outputs -<span id="L33242" class="LineNr">33242 </span> 0/imm32/no-outputs -<span id="L33243" class="LineNr">33243 </span> 0x11/imm32/alloc-id:fake -<span id="L33244" class="LineNr">33244 </span> <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L33245" class="LineNr">33245 </span> 0/imm32/no-rm32 -<span id="L33246" class="LineNr">33246 </span> 0/imm32/no-r32 -<span id="L33247" class="LineNr">33247 </span> 0/imm32/no-imm32 -<span id="L33248" class="LineNr">33248 </span> 0/imm32/no-imm8 -<span id="L33249" class="LineNr">33249 </span> 1/imm32/disp32-is-first-inout -<span id="L33250" class="LineNr">33250 </span> 0/imm32/no-xm32 -<span id="L33251" class="LineNr">33251 </span> 0/imm32/no-x32 -<span id="L33252" class="LineNr">33252 </span> 0x11/imm32/alloc-id:fake -<span id="L33253" class="LineNr">33253 </span> <a href='mu.subx.html#L33254'>_Primitive-loop-if-float<-named</a>/imm32/next -<span id="L33254" class="LineNr">33254 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33255" class="LineNr">33255 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33256" class="LineNr">33256 </span> 0x11/imm32/alloc-id:fake -<span id="L33257" class="LineNr">33257 </span> <a href='mu.subx.html#L33522'>_string-loop-if-float<</a>/imm32/name -<span id="L33258" class="LineNr">33258 </span> 0x11/imm32/alloc-id:fake -<span id="L33259" class="LineNr">33259 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33260" class="LineNr">33260 </span> 0/imm32/no-outputs -<span id="L33261" class="LineNr">33261 </span> 0/imm32/no-outputs -<span id="L33262" class="LineNr">33262 </span> 0x11/imm32/alloc-id:fake -<span id="L33263" class="LineNr">33263 </span> <a href='mu.subx.html#L33674'>_string_0f_82_jump_label</a>/imm32/subx-name -<span id="L33264" class="LineNr">33264 </span> 0/imm32/no-rm32 -<span id="L33265" class="LineNr">33265 </span> 0/imm32/no-r32 -<span id="L33266" class="LineNr">33266 </span> 0/imm32/no-imm32 -<span id="L33267" class="LineNr">33267 </span> 0/imm32/no-imm8 -<span id="L33268" class="LineNr">33268 </span> 1/imm32/disp32-is-first-inout -<span id="L33269" class="LineNr">33269 </span> 0/imm32/no-xm32 -<span id="L33270" class="LineNr">33270 </span> 0/imm32/no-x32 -<span id="L33271" class="LineNr">33271 </span> 0x11/imm32/alloc-id:fake -<span id="L33272" class="LineNr">33272 </span> <a href='mu.subx.html#L33273'>_Primitive-loop-if-float>=-named</a>/imm32/next -<span id="L33273" class="LineNr">33273 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33274" class="LineNr">33274 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33275" class="LineNr">33275 </span> 0x11/imm32/alloc-id:fake -<span id="L33276" class="LineNr">33276 </span> <a href='mu.subx.html#L33537'>_string-loop-if-float>=</a>/imm32/name -<span id="L33277" class="LineNr">33277 </span> 0x11/imm32/alloc-id:fake -<span id="L33278" class="LineNr">33278 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33279" class="LineNr">33279 </span> 0/imm32/no-outputs -<span id="L33280" class="LineNr">33280 </span> 0/imm32/no-outputs -<span id="L33281" class="LineNr">33281 </span> 0x11/imm32/alloc-id:fake -<span id="L33282" class="LineNr">33282 </span> <a href='mu.subx.html#L33689'>_string_0f_83_jump_label</a>/imm32/subx-name -<span id="L33283" class="LineNr">33283 </span> 0/imm32/no-rm32 -<span id="L33284" class="LineNr">33284 </span> 0/imm32/no-r32 -<span id="L33285" class="LineNr">33285 </span> 0/imm32/no-imm32 -<span id="L33286" class="LineNr">33286 </span> 0/imm32/no-imm8 -<span id="L33287" class="LineNr">33287 </span> 1/imm32/disp32-is-first-inout -<span id="L33288" class="LineNr">33288 </span> 0/imm32/no-xm32 -<span id="L33289" class="LineNr">33289 </span> 0/imm32/no-x32 -<span id="L33290" class="LineNr">33290 </span> 0x11/imm32/alloc-id:fake -<span id="L33291" class="LineNr">33291 </span> <a href='mu.subx.html#L33292'>_Primitive-loop-if-float<=-named</a>/imm32/next -<span id="L33292" class="LineNr">33292 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33293" class="LineNr">33293 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33294" class="LineNr">33294 </span> 0x11/imm32/alloc-id:fake -<span id="L33295" class="LineNr">33295 </span> <a href='mu.subx.html#L33527'>_string-loop-if-float<=</a>/imm32/name -<span id="L33296" class="LineNr">33296 </span> 0x11/imm32/alloc-id:fake -<span id="L33297" class="LineNr">33297 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33298" class="LineNr">33298 </span> 0/imm32/no-outputs -<span id="L33299" class="LineNr">33299 </span> 0/imm32/no-outputs -<span id="L33300" class="LineNr">33300 </span> 0x11/imm32/alloc-id:fake -<span id="L33301" class="LineNr">33301 </span> <a href='mu.subx.html#L33734'>_string_0f_86_jump_label</a>/imm32/subx-name -<span id="L33302" class="LineNr">33302 </span> 0/imm32/no-rm32 -<span id="L33303" class="LineNr">33303 </span> 0/imm32/no-r32 -<span id="L33304" class="LineNr">33304 </span> 0/imm32/no-imm32 -<span id="L33305" class="LineNr">33305 </span> 0/imm32/no-imm8 -<span id="L33306" class="LineNr">33306 </span> 1/imm32/disp32-is-first-inout -<span id="L33307" class="LineNr">33307 </span> 0/imm32/no-xm32 -<span id="L33308" class="LineNr">33308 </span> 0/imm32/no-x32 -<span id="L33309" class="LineNr">33309 </span> 0x11/imm32/alloc-id:fake -<span id="L33310" class="LineNr">33310 </span> <a href='mu.subx.html#L33311'>_Primitive-loop-if-float>-named</a>/imm32/next -<span id="L33311" class="LineNr">33311 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> -<span id="L33312" class="LineNr">33312 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33313" class="LineNr">33313 </span> 0x11/imm32/alloc-id:fake -<span id="L33314" class="LineNr">33314 </span> <a href='mu.subx.html#L33532'>_string-loop-if-float></a>/imm32/name -<span id="L33315" class="LineNr">33315 </span> 0x11/imm32/alloc-id:fake -<span id="L33316" class="LineNr">33316 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/inouts -<span id="L33317" class="LineNr">33317 </span> 0/imm32/no-outputs -<span id="L33318" class="LineNr">33318 </span> 0/imm32/no-outputs -<span id="L33319" class="LineNr">33319 </span> 0x11/imm32/alloc-id:fake -<span id="L33320" class="LineNr">33320 </span> <a href='mu.subx.html#L33749'>_string_0f_87_jump_label</a>/imm32/subx-name -<span id="L33321" class="LineNr">33321 </span> 0/imm32/no-rm32 -<span id="L33322" class="LineNr">33322 </span> 0/imm32/no-r32 -<span id="L33323" class="LineNr">33323 </span> 0/imm32/no-imm32 -<span id="L33324" class="LineNr">33324 </span> 0/imm32/no-imm8 -<span id="L33325" class="LineNr">33325 </span> 1/imm32/disp32-is-first-inout -<span id="L33326" class="LineNr">33326 </span> 0/imm32/no-xm32 -<span id="L33327" class="LineNr">33327 </span> 0/imm32/no-x32 -<span id="L33328" class="LineNr">33328 </span> 0/imm32/next -<span id="L33329" class="LineNr">33329 </span> 0/imm32/next -<span id="L33330" class="LineNr">33330 </span> -<span id="L33331" class="LineNr">33331 </span><span class="subxComment"># string literals for Mu instructions</span> -<span id="L33332" class="LineNr">33332 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33333" class="LineNr">33333 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33334" class="LineNr">33334 </span> <span class="subxComment"># "add"</span> -<span id="L33335" class="LineNr">33335 </span> 0x3/imm32/size -<span id="L33336" class="LineNr">33336 </span> 0x61/a 0x64/d 0x64/d -<span id="L33337" class="LineNr">33337 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33338" class="LineNr">33338 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33339" class="LineNr">33339 </span> <span class="subxComment"># "address"</span> -<span id="L33340" class="LineNr">33340 </span> 0x7/imm32/size -<span id="L33341" class="LineNr">33341 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s -<span id="L33342" class="LineNr">33342 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33343" class="LineNr">33343 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33344" class="LineNr">33344 </span> <span class="subxComment"># "add-to"</span> -<span id="L33345" class="LineNr">33345 </span> 0x6/imm32/size -<span id="L33346" class="LineNr">33346 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L33347" class="LineNr">33347 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33348" class="LineNr">33348 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33349" class="LineNr">33349 </span> <span class="subxComment"># "and"</span> -<span id="L33350" class="LineNr">33350 </span> 0x3/imm32/size -<span id="L33351" class="LineNr">33351 </span> 0x61/a 0x6e/n 0x64/d -<span id="L33352" class="LineNr">33352 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33353" class="LineNr">33353 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33354" class="LineNr">33354 </span> <span class="subxComment"># "and-with"</span> -<span id="L33355" class="LineNr">33355 </span> 0x8/imm32/size -<span id="L33356" class="LineNr">33356 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33357" class="LineNr">33357 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33358" class="LineNr">33358 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33359" class="LineNr">33359 </span> <span class="subxComment"># "break"</span> -<span id="L33360" class="LineNr">33360 </span> 0x5/imm32/size -<span id="L33361" class="LineNr">33361 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k -<span id="L33362" class="LineNr">33362 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33363" class="LineNr">33363 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33364" class="LineNr">33364 </span> <span class="subxComment"># "break-if-<"</span> -<span id="L33365" class="LineNr">33365 </span> 0xa/imm32/size -<span id="L33366" class="LineNr">33366 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L33367" class="LineNr">33367 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33368" class="LineNr">33368 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33369" class="LineNr">33369 </span> <span class="subxComment"># "break-if-<="</span> -<span id="L33370" class="LineNr">33370 </span> 0xb/imm32/size -<span id="L33371" class="LineNr">33371 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L33372" class="LineNr">33372 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33373" class="LineNr">33373 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33374" class="LineNr">33374 </span> <span class="subxComment"># "break-if-="</span> -<span id="L33375" class="LineNr">33375 </span> 0xa/imm32/size -<span id="L33376" class="LineNr">33376 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L33377" class="LineNr">33377 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33378" class="LineNr">33378 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33379" class="LineNr">33379 </span> <span class="subxComment"># "break-if->"</span> -<span id="L33380" class="LineNr">33380 </span> 0xa/imm32/size -<span id="L33381" class="LineNr">33381 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L33382" class="LineNr">33382 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33383" class="LineNr">33383 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33384" class="LineNr">33384 </span> <span class="subxComment"># "break-if->="</span> -<span id="L33385" class="LineNr">33385 </span> 0xb/imm32/size -<span id="L33386" class="LineNr">33386 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L33387" class="LineNr">33387 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33388" class="LineNr">33388 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33389" class="LineNr">33389 </span> <span class="subxComment"># "break-if-!="</span> -<span id="L33390" class="LineNr">33390 </span> 0xb/imm32/size -<span id="L33391" class="LineNr">33391 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L33392" class="LineNr">33392 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33393" class="LineNr">33393 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33394" class="LineNr">33394 </span> <span class="subxComment"># "break-if-addr<"</span> -<span id="L33395" class="LineNr">33395 </span> 0xe/imm32/size -<span id="L33396" class="LineNr">33396 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< -<span id="L33397" class="LineNr">33397 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33398" class="LineNr">33398 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33399" class="LineNr">33399 </span> <span class="subxComment"># "break-if-addr<="</span> -<span id="L33400" class="LineNr">33400 </span> 0xf/imm32/size -<span id="L33401" class="LineNr">33401 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= -<span id="L33402" class="LineNr">33402 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33403" class="LineNr">33403 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33404" class="LineNr">33404 </span> <span class="subxComment"># "break-if-addr>"</span> -<span id="L33405" class="LineNr">33405 </span> 0xe/imm32/size -<span id="L33406" class="LineNr">33406 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> -<span id="L33407" class="LineNr">33407 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33408" class="LineNr">33408 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33409" class="LineNr">33409 </span> <span class="subxComment"># "break-if-addr>="</span> -<span id="L33410" class="LineNr">33410 </span> 0xf/imm32/size -<span id="L33411" class="LineNr">33411 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= -<span id="L33412" class="LineNr">33412 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33413" class="LineNr">33413 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33414" class="LineNr">33414 </span> <span class="subxComment"># "break-if-float<"</span> -<span id="L33415" class="LineNr">33415 </span> 0xf/imm32/size -<span id="L33416" class="LineNr">33416 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< -<span id="L33417" class="LineNr">33417 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33418" class="LineNr">33418 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33419" class="LineNr">33419 </span> <span class="subxComment"># "break-if-float<="</span> -<span id="L33420" class="LineNr">33420 </span> 0x10/imm32/size -<span id="L33421" class="LineNr">33421 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< 0x3d/= -<span id="L33422" class="LineNr">33422 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33423" class="LineNr">33423 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33424" class="LineNr">33424 </span> <span class="subxComment"># "break-if-float>"</span> -<span id="L33425" class="LineNr">33425 </span> 0xf/imm32/size -<span id="L33426" class="LineNr">33426 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> -<span id="L33427" class="LineNr">33427 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33428" class="LineNr">33428 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33429" class="LineNr">33429 </span> <span class="subxComment"># "break-if-float>="</span> -<span id="L33430" class="LineNr">33430 </span> 0x10/imm32/size -<span id="L33431" class="LineNr">33431 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> 0x3d/= -<span id="L33432" class="LineNr">33432 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33433" class="LineNr">33433 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33434" class="LineNr">33434 </span> <span class="subxComment"># "compare"</span> -<span id="L33435" class="LineNr">33435 </span> 0x7/imm32/size -<span id="L33436" class="LineNr">33436 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e -<span id="L33437" class="LineNr">33437 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33438" class="LineNr">33438 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33439" class="LineNr">33439 </span> <span class="subxComment"># "copy"</span> -<span id="L33440" class="LineNr">33440 </span> 0x4/imm32/size -<span id="L33441" class="LineNr">33441 </span> 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L33442" class="LineNr">33442 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33443" class="LineNr">33443 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33444" class="LineNr">33444 </span> <span class="subxComment"># "copy-to"</span> -<span id="L33445" class="LineNr">33445 </span> 0x7/imm32/size -<span id="L33446" class="LineNr">33446 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o -<span id="L33447" class="LineNr">33447 </span><span class="subxMinorFunction">_string-copy-byte</span>: -<span id="L33448" class="LineNr">33448 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33449" class="LineNr">33449 </span> <span class="subxComment"># "copy-byte"</span> -<span id="L33450" class="LineNr">33450 </span> 0x9/imm32/size -<span id="L33451" class="LineNr">33451 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e -<span id="L33452" class="LineNr">33452 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: -<span id="L33453" class="LineNr">33453 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33454" class="LineNr">33454 </span> <span class="subxComment"># "copy-byte-to"</span> -<span id="L33455" class="LineNr">33455 </span> 0xc/imm32/size -<span id="L33456" class="LineNr">33456 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x74/t 0x6f/o -<span id="L33457" class="LineNr">33457 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33458" class="LineNr">33458 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33459" class="LineNr">33459 </span> <span class="subxComment"># "decrement"</span> -<span id="L33460" class="LineNr">33460 </span> 0x9/imm32/size -<span id="L33461" class="LineNr">33461 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L33462" class="LineNr">33462 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33463" class="LineNr">33463 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33464" class="LineNr">33464 </span> <span class="subxComment"># "increment"</span> -<span id="L33465" class="LineNr">33465 </span> 0x9/imm32/size -<span id="L33466" class="LineNr">33466 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L33467" class="LineNr">33467 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33468" class="LineNr">33468 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33469" class="LineNr">33469 </span> <span class="subxComment"># "loop"</span> -<span id="L33470" class="LineNr">33470 </span> 0x4/imm32/size -<span id="L33471" class="LineNr">33471 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p -<span id="L33472" class="LineNr">33472 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33473" class="LineNr">33473 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33474" class="LineNr">33474 </span> <span class="subxComment"># "loop-if-<"</span> -<span id="L33475" class="LineNr">33475 </span> 0x9/imm32/size -<span id="L33476" class="LineNr">33476 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L33477" class="LineNr">33477 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33478" class="LineNr">33478 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33479" class="LineNr">33479 </span> <span class="subxComment"># "loop-if-<="</span> -<span id="L33480" class="LineNr">33480 </span> 0xa/imm32/size -<span id="L33481" class="LineNr">33481 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L33482" class="LineNr">33482 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33483" class="LineNr">33483 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33484" class="LineNr">33484 </span> <span class="subxComment"># "loop-if-="</span> -<span id="L33485" class="LineNr">33485 </span> 0x9/imm32/size -<span id="L33486" class="LineNr">33486 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L33487" class="LineNr">33487 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33488" class="LineNr">33488 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33489" class="LineNr">33489 </span> <span class="subxComment"># "loop-if->"</span> -<span id="L33490" class="LineNr">33490 </span> 0x9/imm32/size -<span id="L33491" class="LineNr">33491 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L33492" class="LineNr">33492 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33493" class="LineNr">33493 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33494" class="LineNr">33494 </span> <span class="subxComment"># "loop-if->="</span> -<span id="L33495" class="LineNr">33495 </span> 0xa/imm32/size -<span id="L33496" class="LineNr">33496 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L33497" class="LineNr">33497 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33498" class="LineNr">33498 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33499" class="LineNr">33499 </span> <span class="subxComment"># "loop-if-!="</span> -<span id="L33500" class="LineNr">33500 </span> 0xa/imm32/size -<span id="L33501" class="LineNr">33501 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L33502" class="LineNr">33502 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33503" class="LineNr">33503 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33504" class="LineNr">33504 </span> <span class="subxComment"># "loop-if-addr<"</span> -<span id="L33505" class="LineNr">33505 </span> 0xd/imm32/size -<span id="L33506" class="LineNr">33506 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< -<span id="L33507" class="LineNr">33507 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33508" class="LineNr">33508 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33509" class="LineNr">33509 </span> <span class="subxComment"># "loop-if-addr<="</span> -<span id="L33510" class="LineNr">33510 </span> 0xe/imm32/size -<span id="L33511" class="LineNr">33511 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= -<span id="L33512" class="LineNr">33512 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33513" class="LineNr">33513 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33514" class="LineNr">33514 </span> <span class="subxComment"># "loop-if-addr>"</span> -<span id="L33515" class="LineNr">33515 </span> 0xd/imm32/size -<span id="L33516" class="LineNr">33516 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> -<span id="L33517" class="LineNr">33517 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33518" class="LineNr">33518 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33519" class="LineNr">33519 </span> <span class="subxComment"># "loop-if-addr>="</span> -<span id="L33520" class="LineNr">33520 </span> 0xe/imm32/size -<span id="L33521" class="LineNr">33521 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= -<span id="L33522" class="LineNr">33522 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33523" class="LineNr">33523 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33524" class="LineNr">33524 </span> <span class="subxComment"># "loop-if-float<"</span> -<span id="L33525" class="LineNr">33525 </span> 0xe/imm32/size -<span id="L33526" class="LineNr">33526 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< -<span id="L33527" class="LineNr">33527 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33528" class="LineNr">33528 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33529" class="LineNr">33529 </span> <span class="subxComment"># "loop-if-float<="</span> -<span id="L33530" class="LineNr">33530 </span> 0xf/imm32/size -<span id="L33531" class="LineNr">33531 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< 0x3d/= -<span id="L33532" class="LineNr">33532 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33533" class="LineNr">33533 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33534" class="LineNr">33534 </span> <span class="subxComment"># "loop-if-float>"</span> -<span id="L33535" class="LineNr">33535 </span> 0xe/imm32/size -<span id="L33536" class="LineNr">33536 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> -<span id="L33537" class="LineNr">33537 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33538" class="LineNr">33538 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33539" class="LineNr">33539 </span> <span class="subxComment"># "loop-if-float>="</span> -<span id="L33540" class="LineNr">33540 </span> 0xf/imm32/size -<span id="L33541" class="LineNr">33541 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> 0x3d/= -<span id="L33542" class="LineNr">33542 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33543" class="LineNr">33543 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33544" class="LineNr">33544 </span> <span class="subxComment"># "multiply"</span> -<span id="L33545" class="LineNr">33545 </span> 0x8/imm32/size -<span id="L33546" class="LineNr">33546 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y -<span id="L33547" class="LineNr">33547 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33548" class="LineNr">33548 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33549" class="LineNr">33549 </span> <span class="subxComment"># "convert"</span> -<span id="L33550" class="LineNr">33550 </span> 0x7/imm32/size -<span id="L33551" class="LineNr">33551 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t -<span id="L33552" class="LineNr">33552 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33553" class="LineNr">33553 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33554" class="LineNr">33554 </span> <span class="subxComment"># "truncate"</span> -<span id="L33555" class="LineNr">33555 </span> 0x8/imm32/size -<span id="L33556" class="LineNr">33556 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e -<span id="L33557" class="LineNr">33557 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33558" class="LineNr">33558 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33559" class="LineNr">33559 </span> <span class="subxComment"># "reinterpret"</span> -<span id="L33560" class="LineNr">33560 </span> 0xb/imm32/size -<span id="L33561" class="LineNr">33561 </span> 0x72/r 0x65/e 0x69/i 0x6e/n 0x74/t 0x65/e 0x72/r 0x70/p 0x72/r 0x65/e 0x74/t -<span id="L33562" class="LineNr">33562 </span><span class="subxMinorFunction">_string-divide</span>: -<span id="L33563" class="LineNr">33563 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33564" class="LineNr">33564 </span> <span class="subxComment"># "divide"</span> -<span id="L33565" class="LineNr">33565 </span> 0x6/imm32/size -<span id="L33566" class="LineNr">33566 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e -<span id="L33567" class="LineNr">33567 </span><span class="subxMinorFunction">_string-max</span>: -<span id="L33568" class="LineNr">33568 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33569" class="LineNr">33569 </span> <span class="subxComment"># "max"</span> -<span id="L33570" class="LineNr">33570 </span> 0x3/imm32/size -<span id="L33571" class="LineNr">33571 </span> 0x6d/m 0x61/a 0x78/x -<span id="L33572" class="LineNr">33572 </span><span class="subxMinorFunction">_string-min</span>: -<span id="L33573" class="LineNr">33573 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33574" class="LineNr">33574 </span> <span class="subxComment"># "min"</span> -<span id="L33575" class="LineNr">33575 </span> 0x3/imm32/size -<span id="L33576" class="LineNr">33576 </span> 0x6d/m 0x69/i 0x6e/n -<span id="L33577" class="LineNr">33577 </span><span class="subxMinorFunction">_string-reciprocal</span>: -<span id="L33578" class="LineNr">33578 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33579" class="LineNr">33579 </span> <span class="subxComment"># "reciprocal"</span> -<span id="L33580" class="LineNr">33580 </span> 0xa/imm32/size -<span id="L33581" class="LineNr">33581 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l -<span id="L33582" class="LineNr">33582 </span><span class="subxMinorFunction">_string-square-root</span>: -<span id="L33583" class="LineNr">33583 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33584" class="LineNr">33584 </span> <span class="subxComment"># "square-root"</span> -<span id="L33585" class="LineNr">33585 </span> 0xb/imm32/size -<span id="L33586" class="LineNr">33586 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L33587" class="LineNr">33587 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: -<span id="L33588" class="LineNr">33588 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33589" class="LineNr">33589 </span> <span class="subxComment"># "inverse-square-root"</span> -<span id="L33590" class="LineNr">33590 </span> 0x13/imm32/size -<span id="L33591" class="LineNr">33591 </span> 0x69/i 0x6e/n 0x76/v 0x65/e 0x72/r 0x73/s 0x65/e 0x2d/- 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L33592" class="LineNr">33592 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33593" class="LineNr">33593 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33594" class="LineNr">33594 </span> <span class="subxComment"># "negate"</span> -<span id="L33595" class="LineNr">33595 </span> 0x6/imm32/size -<span id="L33596" class="LineNr">33596 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e -<span id="L33597" class="LineNr">33597 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33598" class="LineNr">33598 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33599" class="LineNr">33599 </span> <span class="subxComment"># "or"</span> -<span id="L33600" class="LineNr">33600 </span> 0x2/imm32/size -<span id="L33601" class="LineNr">33601 </span> 0x6f/o 0x72/r -<span id="L33602" class="LineNr">33602 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33603" class="LineNr">33603 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33604" class="LineNr">33604 </span> <span class="subxComment"># "or-with"</span> -<span id="L33605" class="LineNr">33605 </span> 0x7/imm32/size -<span id="L33606" class="LineNr">33606 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33607" class="LineNr">33607 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33608" class="LineNr">33608 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33609" class="LineNr">33609 </span> <span class="subxComment"># "subtract"</span> -<span id="L33610" class="LineNr">33610 </span> 0x8/imm32/size -<span id="L33611" class="LineNr">33611 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L33612" class="LineNr">33612 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33613" class="LineNr">33613 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33614" class="LineNr">33614 </span> <span class="subxComment"># "subtract-from"</span> -<span id="L33615" class="LineNr">33615 </span> 0xd/imm32/size -<span id="L33616" class="LineNr">33616 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t 0x2d/dash 0x66/f 0x72/r 0x6f/o 0x6d/m -<span id="L33617" class="LineNr">33617 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33618" class="LineNr">33618 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33619" class="LineNr">33619 </span> <span class="subxComment"># "xor"</span> -<span id="L33620" class="LineNr">33620 </span> 0x3/imm32/size -<span id="L33621" class="LineNr">33621 </span> 0x78/x 0x6f/o 0x72/r -<span id="L33622" class="LineNr">33622 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33623" class="LineNr">33623 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33624" class="LineNr">33624 </span> <span class="subxComment"># "xor-with"</span> -<span id="L33625" class="LineNr">33625 </span> 0x8/imm32/size -<span id="L33626" class="LineNr">33626 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33627" class="LineNr">33627 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33628" class="LineNr">33628 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33629" class="LineNr">33629 </span> <span class="subxComment"># "shift-left"</span> -<span id="L33630" class="LineNr">33630 </span> 0xa/imm32/size -<span id="L33631" class="LineNr">33631 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t -<span id="L33632" class="LineNr">33632 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33633" class="LineNr">33633 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33634" class="LineNr">33634 </span> <span class="subxComment"># "shift-right"</span> -<span id="L33635" class="LineNr">33635 </span> 0xb/imm32/size -<span id="L33636" class="LineNr">33636 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t -<span id="L33637" class="LineNr">33637 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33638" class="LineNr">33638 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33639" class="LineNr">33639 </span> <span class="subxComment"># "shift-right-signed"</span> -<span id="L33640" class="LineNr">33640 </span> 0x12/imm32/size -<span id="L33641" class="LineNr">33641 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t 0x2d/dash 0x73/s 0x69/i 0x67/g 0x6e/n 0x65/e 0x64/d -<span id="L33642" class="LineNr">33642 </span> -<span id="L33643" class="LineNr">33643 </span><span class="subxComment"># string literals for SubX instructions</span> -<span id="L33644" class="LineNr">33644 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33645" class="LineNr">33645 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33646" class="LineNr">33646 </span> <span class="subxComment"># "01/add-to"</span> -<span id="L33647" class="LineNr">33647 </span> 0x9/imm32/size -<span id="L33648" class="LineNr">33648 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o -<span id="L33649" class="LineNr">33649 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33650" class="LineNr">33650 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33651" class="LineNr">33651 </span> <span class="subxComment"># "03/add"</span> -<span id="L33652" class="LineNr">33652 </span> 0x6/imm32/size -<span id="L33653" class="LineNr">33653 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d -<span id="L33654" class="LineNr">33654 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33655" class="LineNr">33655 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33656" class="LineNr">33656 </span> <span class="subxComment"># "05/add-to-eax"</span> -<span id="L33657" class="LineNr">33657 </span> 0xd/imm32/size -<span id="L33658" class="LineNr">33658 </span> 0x30/0 0x35/5 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L33659" class="LineNr">33659 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33660" class="LineNr">33660 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33661" class="LineNr">33661 </span> <span class="subxComment"># "09/or-with"</span> -<span id="L33662" class="LineNr">33662 </span> 0xa/imm32/size -<span id="L33663" class="LineNr">33663 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33664" class="LineNr">33664 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33665" class="LineNr">33665 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33666" class="LineNr">33666 </span> <span class="subxComment"># "0b/or"</span> -<span id="L33667" class="LineNr">33667 </span> 0x5/imm32/size -<span id="L33668" class="LineNr">33668 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r -<span id="L33669" class="LineNr">33669 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33670" class="LineNr">33670 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33671" class="LineNr">33671 </span> <span class="subxComment"># "0d/or-with-eax"</span> -<span id="L33672" class="LineNr">33672 </span> 0xe/imm32/size -<span id="L33673" class="LineNr">33673 </span> 0x30/0 0x64/d 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L33674" class="LineNr">33674 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33675" class="LineNr">33675 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33676" class="LineNr">33676 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> -<span id="L33677" class="LineNr">33677 </span> 0x13/imm32/size -<span id="L33678" class="LineNr">33678 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x32/2 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< -<span id="L33679" class="LineNr">33679 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33680" class="LineNr">33680 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33681" class="LineNr">33681 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> -<span id="L33682" class="LineNr">33682 </span> 0x20/imm32/size -<span id="L33683" class="LineNr">33683 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x32/2 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33684" class="LineNr">33684 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33685" class="LineNr">33685 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33686" class="LineNr">33686 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> -<span id="L33687" class="LineNr">33687 </span> 0x1f/imm32/size -<span id="L33688" class="LineNr">33688 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x32/2 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33689" class="LineNr">33689 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33690" class="LineNr">33690 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33691" class="LineNr">33691 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> -<span id="L33692" class="LineNr">33692 </span> 0x14/imm32/size -<span id="L33693" class="LineNr">33693 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x33/3 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= -<span id="L33694" class="LineNr">33694 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33695" class="LineNr">33695 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33696" class="LineNr">33696 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> -<span id="L33697" class="LineNr">33697 </span> 0x21/imm32/size -<span id="L33698" class="LineNr">33698 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x33/3 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33699" class="LineNr">33699 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33700" class="LineNr">33700 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33701" class="LineNr">33701 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> -<span id="L33702" class="LineNr">33702 </span> 0x20/imm32/size -<span id="L33703" class="LineNr">33703 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x33/3 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33704" class="LineNr">33704 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33705" class="LineNr">33705 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33706" class="LineNr">33706 </span> <span class="subxComment"># "0f 84/jump-if-="</span> -<span id="L33707" class="LineNr">33707 </span> 0xf/imm32/size -<span id="L33708" class="LineNr">33708 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x34/4 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= -<span id="L33709" class="LineNr">33709 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33710" class="LineNr">33710 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33711" class="LineNr">33711 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> -<span id="L33712" class="LineNr">33712 </span> 0x1c/imm32/size -<span id="L33713" class="LineNr">33713 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x34/4 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33714" class="LineNr">33714 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33715" class="LineNr">33715 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33716" class="LineNr">33716 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> -<span id="L33717" class="LineNr">33717 </span> 0x1b/imm32/size -<span id="L33718" class="LineNr">33718 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x34/4 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33719" class="LineNr">33719 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33720" class="LineNr">33720 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33721" class="LineNr">33721 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> -<span id="L33722" class="LineNr">33722 </span> 0x10/imm32/size -<span id="L33723" class="LineNr">33723 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x35/5 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= -<span id="L33724" class="LineNr">33724 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33725" class="LineNr">33725 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33726" class="LineNr">33726 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> -<span id="L33727" class="LineNr">33727 </span> 0x1d/imm32/size -<span id="L33728" class="LineNr">33728 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x35/5 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33729" class="LineNr">33729 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33730" class="LineNr">33730 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33731" class="LineNr">33731 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> -<span id="L33732" class="LineNr">33732 </span> 0x1c/imm32/size -<span id="L33733" class="LineNr">33733 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x35/5 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33734" class="LineNr">33734 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33735" class="LineNr">33735 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33736" class="LineNr">33736 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> -<span id="L33737" class="LineNr">33737 </span> 0x14/imm32/size -<span id="L33738" class="LineNr">33738 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x36/6 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= -<span id="L33739" class="LineNr">33739 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33740" class="LineNr">33740 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33741" class="LineNr">33741 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> -<span id="L33742" class="LineNr">33742 </span> 0x21/imm32/size -<span id="L33743" class="LineNr">33743 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x36/6 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33744" class="LineNr">33744 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33745" class="LineNr">33745 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33746" class="LineNr">33746 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> -<span id="L33747" class="LineNr">33747 </span> 0x20/imm32/size -<span id="L33748" class="LineNr">33748 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x36/6 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33749" class="LineNr">33749 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33750" class="LineNr">33750 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33751" class="LineNr">33751 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> -<span id="L33752" class="LineNr">33752 </span> 0x13/imm32/size -<span id="L33753" class="LineNr">33753 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x37/7 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> -<span id="L33754" class="LineNr">33754 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33755" class="LineNr">33755 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33756" class="LineNr">33756 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> -<span id="L33757" class="LineNr">33757 </span> 0x20/imm32/size -<span id="L33758" class="LineNr">33758 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x37/7 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33759" class="LineNr">33759 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33760" class="LineNr">33760 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33761" class="LineNr">33761 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> -<span id="L33762" class="LineNr">33762 </span> 0x1f/imm32/size -<span id="L33763" class="LineNr">33763 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x37/7 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33764" class="LineNr">33764 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33765" class="LineNr">33765 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33766" class="LineNr">33766 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> -<span id="L33767" class="LineNr">33767 </span> 0xf/imm32/size -<span id="L33768" class="LineNr">33768 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x63/c 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< -<span id="L33769" class="LineNr">33769 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33770" class="LineNr">33770 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33771" class="LineNr">33771 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> -<span id="L33772" class="LineNr">33772 </span> 0x1c/imm32/size -<span id="L33773" class="LineNr">33773 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x63/c 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33774" class="LineNr">33774 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33775" class="LineNr">33775 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33776" class="LineNr">33776 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> -<span id="L33777" class="LineNr">33777 </span> 0x1b/imm32/size -<span id="L33778" class="LineNr">33778 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x63/c 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33779" class="LineNr">33779 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33780" class="LineNr">33780 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33781" class="LineNr">33781 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> -<span id="L33782" class="LineNr">33782 </span> 0x10/imm32/size -<span id="L33783" class="LineNr">33783 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x64/d 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= -<span id="L33784" class="LineNr">33784 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33785" class="LineNr">33785 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33786" class="LineNr">33786 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> -<span id="L33787" class="LineNr">33787 </span> 0x1d/imm32/size -<span id="L33788" class="LineNr">33788 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x64/d 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33789" class="LineNr">33789 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33790" class="LineNr">33790 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33791" class="LineNr">33791 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> -<span id="L33792" class="LineNr">33792 </span> 0x1c/imm32/size -<span id="L33793" class="LineNr">33793 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x64/d 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33794" class="LineNr">33794 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33795" class="LineNr">33795 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33796" class="LineNr">33796 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> -<span id="L33797" class="LineNr">33797 </span> 0x10/imm32/size -<span id="L33798" class="LineNr">33798 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x65/e 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= -<span id="L33799" class="LineNr">33799 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33800" class="LineNr">33800 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33801" class="LineNr">33801 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> -<span id="L33802" class="LineNr">33802 </span> 0x1d/imm32/size -<span id="L33803" class="LineNr">33803 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x65/e 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33804" class="LineNr">33804 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33805" class="LineNr">33805 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33806" class="LineNr">33806 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> -<span id="L33807" class="LineNr">33807 </span> 0x1c/imm32/size -<span id="L33808" class="LineNr">33808 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x65/e 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33809" class="LineNr">33809 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33810" class="LineNr">33810 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33811" class="LineNr">33811 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> -<span id="L33812" class="LineNr">33812 </span> 0xf/imm32/size -<span id="L33813" class="LineNr">33813 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x66/f 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> -<span id="L33814" class="LineNr">33814 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33815" class="LineNr">33815 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33816" class="LineNr">33816 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> -<span id="L33817" class="LineNr">33817 </span> 0x1c/imm32/size -<span id="L33818" class="LineNr">33818 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x66/f 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33819" class="LineNr">33819 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33820" class="LineNr">33820 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33821" class="LineNr">33821 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> -<span id="L33822" class="LineNr">33822 </span> 0x1b/imm32/size -<span id="L33823" class="LineNr">33823 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x66/f 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L33824" class="LineNr">33824 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33825" class="LineNr">33825 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33826" class="LineNr">33826 </span> <span class="subxComment"># "0f af/multiply"</span> -<span id="L33827" class="LineNr">33827 </span> 0xe/imm32/size -<span id="L33828" class="LineNr">33828 </span> 0x30/0 0x66/f 0x20/space 0x61/a 0x66/f 0x2f/slash 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y -<span id="L33829" class="LineNr">33829 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: -<span id="L33830" class="LineNr">33830 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33831" class="LineNr">33831 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> -<span id="L33832" class="LineNr">33832 </span> 0x19/imm32/size -<span id="L33833" class="LineNr">33833 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x32/2 0x61/a 0x2f/slash 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t -<span id="L33834" class="LineNr">33834 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: -<span id="L33835" class="LineNr">33835 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33836" class="LineNr">33836 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> -<span id="L33837" class="LineNr">33837 </span> 0x17/imm32/size -<span id="L33838" class="LineNr">33838 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x32/2 0x64/d 0x2f/slash 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x69/i 0x6e/n 0x74/t -<span id="L33839" class="LineNr">33839 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: -<span id="L33840" class="LineNr">33840 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33841" class="LineNr">33841 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> -<span id="L33842" class="LineNr">33842 </span> 0x18/imm32/size -<span id="L33843" class="LineNr">33843 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x32/2 0x63/c 0x2f/slash 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x69/i 0x6e/n 0x74/t -<span id="L33844" class="LineNr">33844 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: -<span id="L33845" class="LineNr">33845 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33846" class="LineNr">33846 </span> <span class="subxComment"># "f3 0f 58/add"</span> -<span id="L33847" class="LineNr">33847 </span> 0xc/imm32/size -<span id="L33848" class="LineNr">33848 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x38/8 0x2f/slash 0x61/a 0x64/d 0x64/d -<span id="L33849" class="LineNr">33849 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: -<span id="L33850" class="LineNr">33850 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33851" class="LineNr">33851 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> -<span id="L33852" class="LineNr">33852 </span> 0x11/imm32/size -<span id="L33853" class="LineNr">33853 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x63/c 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L33854" class="LineNr">33854 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: -<span id="L33855" class="LineNr">33855 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33856" class="LineNr">33856 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> -<span id="L33857" class="LineNr">33857 </span> 0x11/imm32/size -<span id="L33858" class="LineNr">33858 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x39/9 0x2f/slash 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y -<span id="L33859" class="LineNr">33859 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: -<span id="L33860" class="LineNr">33860 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33861" class="LineNr">33861 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> -<span id="L33862" class="LineNr">33862 </span> 0xf/imm32/size -<span id="L33863" class="LineNr">33863 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x65/e 0x2f/slash 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e -<span id="L33864" class="LineNr">33864 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: -<span id="L33865" class="LineNr">33865 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33866" class="LineNr">33866 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> -<span id="L33867" class="LineNr">33867 </span> 0x13/imm32/size -<span id="L33868" class="LineNr">33868 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x33/3 0x2f/slash 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l -<span id="L33869" class="LineNr">33869 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: -<span id="L33870" class="LineNr">33870 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33871" class="LineNr">33871 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> -<span id="L33872" class="LineNr">33872 </span> 0x14/imm32/size -<span id="L33873" class="LineNr">33873 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x31/1 0x2f/slash 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/dash 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L33874" class="LineNr">33874 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: -<span id="L33875" class="LineNr">33875 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33876" class="LineNr">33876 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> -<span id="L33877" class="LineNr">33877 </span> 0x1c/imm32/size -<span id="L33878" class="LineNr">33878 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x32/2 0x2f/slash 0x69/i 0x6e/n 0x76/v 0x65/e 0x72/r 0x73/s 0x65/e 0x2d/dash 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/dash 0x72/r 0x6f/o 0x6f/o 0x74/t -<span id="L33879" class="LineNr">33879 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: -<span id="L33880" class="LineNr">33880 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33881" class="LineNr">33881 </span> <span class="subxComment"># "f3 0f 5d/min"</span> -<span id="L33882" class="LineNr">33882 </span> 0xc/imm32/size -<span id="L33883" class="LineNr">33883 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x64/d 0x2f/slash 0x6d/m 0x69/i 0x6e/n -<span id="L33884" class="LineNr">33884 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: -<span id="L33885" class="LineNr">33885 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33886" class="LineNr">33886 </span> <span class="subxComment"># "f3 0f 5f/max"</span> -<span id="L33887" class="LineNr">33887 </span> 0xc/imm32/size -<span id="L33888" class="LineNr">33888 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x66/f 0x2f/slash 0x6d/m 0x61/a 0x78/x -<span id="L33889" class="LineNr">33889 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: -<span id="L33890" class="LineNr">33890 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33891" class="LineNr">33891 </span> <span class="subxComment"># "f3 0f 10/copy"</span> -<span id="L33892" class="LineNr">33892 </span> 0xd/imm32/size -<span id="L33893" class="LineNr">33893 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x31/1 0x30/0 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L33894" class="LineNr">33894 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: -<span id="L33895" class="LineNr">33895 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33896" class="LineNr">33896 </span> <span class="subxComment"># "f3 0f 11/copy"</span> -<span id="L33897" class="LineNr">33897 </span> 0xd/imm32/size -<span id="L33898" class="LineNr">33898 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x31/1 0x31/1 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L33899" class="LineNr">33899 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: -<span id="L33900" class="LineNr">33900 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33901" class="LineNr">33901 </span> <span class="subxComment"># "0f 2f/compare"</span> -<span id="L33902" class="LineNr">33902 </span> 0xd/imm32/size -<span id="L33903" class="LineNr">33903 </span> 0x30/0 0x66/f 0x20/space 0x32/2 0x66/f 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e -<span id="L33904" class="LineNr">33904 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33905" class="LineNr">33905 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33906" class="LineNr">33906 </span> <span class="subxComment"># "21/and-with"</span> -<span id="L33907" class="LineNr">33907 </span> 0xb/imm32/size -<span id="L33908" class="LineNr">33908 </span> 0x32/2 0x31/1 0x2f/slash 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33909" class="LineNr">33909 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33910" class="LineNr">33910 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33911" class="LineNr">33911 </span> <span class="subxComment"># "23/and"</span> -<span id="L33912" class="LineNr">33912 </span> 0x6/imm32/size -<span id="L33913" class="LineNr">33913 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d -<span id="L33914" class="LineNr">33914 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33915" class="LineNr">33915 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33916" class="LineNr">33916 </span> <span class="subxComment"># "25/and-with-eax"</span> -<span id="L33917" class="LineNr">33917 </span> 0xf/imm32/size -<span id="L33918" class="LineNr">33918 </span> 0x32/2 0x35/5 0x2f/slash 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L33919" class="LineNr">33919 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33920" class="LineNr">33920 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33921" class="LineNr">33921 </span> <span class="subxComment"># "29/subtract-from"</span> -<span id="L33922" class="LineNr">33922 </span> 0x10/imm32/size -<span id="L33923" class="LineNr">33923 </span> 0x32/2 0x39/9 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t 0x2d/dash 0x66/f 0x72/r 0x6f/o 0x6d/m -<span id="L33924" class="LineNr">33924 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33925" class="LineNr">33925 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33926" class="LineNr">33926 </span> <span class="subxComment"># "2b/subtract"</span> -<span id="L33927" class="LineNr">33927 </span> 0xb/imm32/size -<span id="L33928" class="LineNr">33928 </span> 0x32/2 0x62/b 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L33929" class="LineNr">33929 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33930" class="LineNr">33930 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33931" class="LineNr">33931 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> -<span id="L33932" class="LineNr">33932 </span> 0x14/imm32/size -<span id="L33933" class="LineNr">33933 </span> 0x32/2 0x64/d 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t 0x2d/dash 0x66/f 0x72/r 0x6f/o 0x6d/m 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L33934" class="LineNr">33934 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33935" class="LineNr">33935 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33936" class="LineNr">33936 </span> <span class="subxComment"># "31/xor-with"</span> -<span id="L33937" class="LineNr">33937 </span> 0xb/imm32/size -<span id="L33938" class="LineNr">33938 </span> 0x33/3 0x31/1 0x2f/slash 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33939" class="LineNr">33939 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33940" class="LineNr">33940 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33941" class="LineNr">33941 </span> <span class="subxComment"># "33/xor"</span> -<span id="L33942" class="LineNr">33942 </span> 0x6/imm32/size -<span id="L33943" class="LineNr">33943 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r -<span id="L33944" class="LineNr">33944 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33945" class="LineNr">33945 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33946" class="LineNr">33946 </span> <span class="subxComment"># "35/xor-with-eax"</span> -<span id="L33947" class="LineNr">33947 </span> 0xf/imm32/size -<span id="L33948" class="LineNr">33948 </span> 0x33/3 0x35/5 0x2f/slash 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L33949" class="LineNr">33949 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33950" class="LineNr">33950 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33951" class="LineNr">33951 </span> <span class="subxComment"># "39/compare->"</span> -<span id="L33952" class="LineNr">33952 </span> 0xc/imm32/size -<span id="L33953" class="LineNr">33953 </span> 0x33/3 0x39/9 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e 0x2d/dash 0x3e/> -<span id="L33954" class="LineNr">33954 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33955" class="LineNr">33955 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33956" class="LineNr">33956 </span> <span class="subxComment"># "3b/compare<-"</span> -<span id="L33957" class="LineNr">33957 </span> 0xc/imm32/size -<span id="L33958" class="LineNr">33958 </span> 0x33/3 0x62/b 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e 0x3c/< 0x2d/dash -<span id="L33959" class="LineNr">33959 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33960" class="LineNr">33960 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33961" class="LineNr">33961 </span> <span class="subxComment"># "3d/compare-eax-with"</span> -<span id="L33962" class="LineNr">33962 </span> 0x13/imm32/size -<span id="L33963" class="LineNr">33963 </span> 0x33/3 0x64/d 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e 0x2d/dash 0x65/e 0x61/a 0x78/x 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h -<span id="L33964" class="LineNr">33964 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33965" class="LineNr">33965 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33966" class="LineNr">33966 </span> <span class="subxComment"># "40/increment-eax"</span> -<span id="L33967" class="LineNr">33967 </span> 0x10/imm32/size -<span id="L33968" class="LineNr">33968 </span> 0x34/4 0x30/0 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L33969" class="LineNr">33969 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33970" class="LineNr">33970 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33971" class="LineNr">33971 </span> <span class="subxComment"># "41/increment-ecx"</span> -<span id="L33972" class="LineNr">33972 </span> 0x10/imm32/size -<span id="L33973" class="LineNr">33973 </span> 0x34/4 0x31/1 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x63/c 0x78/x -<span id="L33974" class="LineNr">33974 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33975" class="LineNr">33975 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33976" class="LineNr">33976 </span> <span class="subxComment"># "42/increment-edx"</span> -<span id="L33977" class="LineNr">33977 </span> 0x10/imm32/size -<span id="L33978" class="LineNr">33978 </span> 0x34/4 0x32/2 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x78/x -<span id="L33979" class="LineNr">33979 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33980" class="LineNr">33980 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33981" class="LineNr">33981 </span> <span class="subxComment"># "43/increment-ebx"</span> -<span id="L33982" class="LineNr">33982 </span> 0x10/imm32/size -<span id="L33983" class="LineNr">33983 </span> 0x34/4 0x33/3 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x62/b 0x78/x -<span id="L33984" class="LineNr">33984 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33985" class="LineNr">33985 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33986" class="LineNr">33986 </span> <span class="subxComment"># "46/increment-esi"</span> -<span id="L33987" class="LineNr">33987 </span> 0x10/imm32/size -<span id="L33988" class="LineNr">33988 </span> 0x34/4 0x36/6 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x73/s 0x69/i -<span id="L33989" class="LineNr">33989 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33990" class="LineNr">33990 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33991" class="LineNr">33991 </span> <span class="subxComment"># "47/increment-edi"</span> -<span id="L33992" class="LineNr">33992 </span> 0x10/imm32/size -<span id="L33993" class="LineNr">33993 </span> 0x34/4 0x37/7 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x69/i -<span id="L33994" class="LineNr">33994 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L33995" class="LineNr">33995 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L33996" class="LineNr">33996 </span> <span class="subxComment"># "48/decrement-eax"</span> -<span id="L33997" class="LineNr">33997 </span> 0x10/imm32/size -<span id="L33998" class="LineNr">33998 </span> 0x34/4 0x38/8 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L33999" class="LineNr">33999 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34000" class="LineNr">34000 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34001" class="LineNr">34001 </span> <span class="subxComment"># "49/decrement-ecx"</span> -<span id="L34002" class="LineNr">34002 </span> 0x10/imm32/size -<span id="L34003" class="LineNr">34003 </span> 0x34/4 0x39/9 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x63/c 0x78/x -<span id="L34004" class="LineNr">34004 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34005" class="LineNr">34005 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34006" class="LineNr">34006 </span> <span class="subxComment"># "4a/decrement-edx"</span> -<span id="L34007" class="LineNr">34007 </span> 0x10/imm32/size -<span id="L34008" class="LineNr">34008 </span> 0x34/4 0x61/a 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x78/x -<span id="L34009" class="LineNr">34009 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34010" class="LineNr">34010 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34011" class="LineNr">34011 </span> <span class="subxComment"># "4b/decrement-ebx"</span> -<span id="L34012" class="LineNr">34012 </span> 0x10/imm32/size -<span id="L34013" class="LineNr">34013 </span> 0x34/4 0x62/b 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x62/b 0x78/x -<span id="L34014" class="LineNr">34014 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34015" class="LineNr">34015 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34016" class="LineNr">34016 </span> <span class="subxComment"># "4e/decrement-esi"</span> -<span id="L34017" class="LineNr">34017 </span> 0x10/imm32/size -<span id="L34018" class="LineNr">34018 </span> 0x34/4 0x65/e 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x73/s 0x69/i -<span id="L34019" class="LineNr">34019 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34020" class="LineNr">34020 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34021" class="LineNr">34021 </span> <span class="subxComment"># "4f/decrement-edi"</span> -<span id="L34022" class="LineNr">34022 </span> 0x10/imm32/size -<span id="L34023" class="LineNr">34023 </span> 0x34/4 0x66/f 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x69/i -<span id="L34024" class="LineNr">34024 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34025" class="LineNr">34025 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34026" class="LineNr">34026 </span> <span class="subxComment"># "81 0/subop/add"</span> -<span id="L34027" class="LineNr">34027 </span> 0xe/imm32/size -<span id="L34028" class="LineNr">34028 </span> 0x38/8 0x31/1 0x20/space 0x30/0 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x61/a 0x64/d 0x64/d -<span id="L34029" class="LineNr">34029 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34030" class="LineNr">34030 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34031" class="LineNr">34031 </span> <span class="subxComment"># "81 1/subop/or"</span> -<span id="L34032" class="LineNr">34032 </span> 0xd/imm32/size -<span id="L34033" class="LineNr">34033 </span> 0x38/8 0x31/1 0x20/space 0x31/1 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x6f/o 0x72/r -<span id="L34034" class="LineNr">34034 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34035" class="LineNr">34035 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34036" class="LineNr">34036 </span> <span class="subxComment"># "81 4/subop/and"</span> -<span id="L34037" class="LineNr">34037 </span> 0xe/imm32/size -<span id="L34038" class="LineNr">34038 </span> 0x38/8 0x31/1 0x20/space 0x34/4 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x61/a 0x6e/n 0x64/d -<span id="L34039" class="LineNr">34039 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34040" class="LineNr">34040 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34041" class="LineNr">34041 </span> <span class="subxComment"># "81 5/subop/subtract"</span> -<span id="L34042" class="LineNr">34042 </span> 0x13/imm32/size -<span id="L34043" class="LineNr">34043 </span> 0x38/8 0x31/1 0x20/space 0x35/5 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t -<span id="L34044" class="LineNr">34044 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34045" class="LineNr">34045 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34046" class="LineNr">34046 </span> <span class="subxComment"># "81 6/subop/xor"</span> -<span id="L34047" class="LineNr">34047 </span> 0xe/imm32/size -<span id="L34048" class="LineNr">34048 </span> 0x38/8 0x31/1 0x20/space 0x36/6 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x78/x 0x6f/o 0x72/r -<span id="L34049" class="LineNr">34049 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34050" class="LineNr">34050 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34051" class="LineNr">34051 </span> <span class="subxComment"># "81 7/subop/compare"</span> -<span id="L34052" class="LineNr">34052 </span> 0x12/imm32/size -<span id="L34053" class="LineNr">34053 </span> 0x38/8 0x31/1 0x20/space 0x37/7 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e -<span id="L34054" class="LineNr">34054 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34055" class="LineNr">34055 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34056" class="LineNr">34056 </span> <span class="subxComment"># "89/<-"</span> -<span id="L34057" class="LineNr">34057 </span> 0x5/imm32/size -<span id="L34058" class="LineNr">34058 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash -<span id="L34059" class="LineNr">34059 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34060" class="LineNr">34060 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34061" class="LineNr">34061 </span> <span class="subxComment"># "8b/->"</span> -<span id="L34062" class="LineNr">34062 </span> 0x5/imm32/size -<span id="L34063" class="LineNr">34063 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> -<span id="L34064" class="LineNr">34064 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: -<span id="L34065" class="LineNr">34065 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34066" class="LineNr">34066 </span> <span class="subxComment"># "8a/byte->"</span> -<span id="L34067" class="LineNr">34067 </span> 0x9/imm32/size -<span id="L34068" class="LineNr">34068 </span> 0x38/8 0x61/a 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x3e/> -<span id="L34069" class="LineNr">34069 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: -<span id="L34070" class="LineNr">34070 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34071" class="LineNr">34071 </span> <span class="subxComment"># "88/byte<-"</span> -<span id="L34072" class="LineNr">34072 </span> 0x9/imm32/size -<span id="L34073" class="LineNr">34073 </span> 0x38/8 0x38/8 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- -<span id="L34074" class="LineNr">34074 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34075" class="LineNr">34075 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34076" class="LineNr">34076 </span> <span class="subxComment"># "8d/copy-address"</span> -<span id="L34077" class="LineNr">34077 </span> 0xf/imm32/size -<span id="L34078" class="LineNr">34078 </span> 0x38/8 0x64/d 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s -<span id="L34079" class="LineNr">34079 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34080" class="LineNr">34080 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34081" class="LineNr">34081 </span> <span class="subxComment"># "b8/copy-to-eax"</span> -<span id="L34082" class="LineNr">34082 </span> 0xe/imm32/size -<span id="L34083" class="LineNr">34083 </span> 0x62/b 0x38/8 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x61/a 0x78/x -<span id="L34084" class="LineNr">34084 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34085" class="LineNr">34085 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34086" class="LineNr">34086 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> -<span id="L34087" class="LineNr">34087 </span> 0xe/imm32/size -<span id="L34088" class="LineNr">34088 </span> 0x62/b 0x39/9 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x63/c 0x78/x -<span id="L34089" class="LineNr">34089 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34090" class="LineNr">34090 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34091" class="LineNr">34091 </span> <span class="subxComment"># "ba/copy-to-edx"</span> -<span id="L34092" class="LineNr">34092 </span> 0xe/imm32/size -<span id="L34093" class="LineNr">34093 </span> 0x62/b 0x61/a 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x64/d 0x78/x -<span id="L34094" class="LineNr">34094 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34095" class="LineNr">34095 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34096" class="LineNr">34096 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> -<span id="L34097" class="LineNr">34097 </span> 0xe/imm32/size -<span id="L34098" class="LineNr">34098 </span> 0x62/b 0x62/b 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x62/b 0x78/x -<span id="L34099" class="LineNr">34099 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34100" class="LineNr">34100 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34101" class="LineNr">34101 </span> <span class="subxComment"># "be/copy-to-esi"</span> -<span id="L34102" class="LineNr">34102 </span> 0xe/imm32/size -<span id="L34103" class="LineNr">34103 </span> 0x62/b 0x65/e 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x73/s 0x69/i -<span id="L34104" class="LineNr">34104 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34105" class="LineNr">34105 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34106" class="LineNr">34106 </span> <span class="subxComment"># "bf/copy-to-edi"</span> -<span id="L34107" class="LineNr">34107 </span> 0xe/imm32/size -<span id="L34108" class="LineNr">34108 </span> 0x62/b 0x66/f 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x64/d 0x69/i -<span id="L34109" class="LineNr">34109 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34110" class="LineNr">34110 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34111" class="LineNr">34111 </span> <span class="subxComment"># "c7 0/subop/copy"</span> -<span id="L34112" class="LineNr">34112 </span> 0xf/imm32/size -<span id="L34113" class="LineNr">34113 </span> 0x63/c 0x37/7 0x20/space 0x30/0 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y -<span id="L34114" class="LineNr">34114 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34115" class="LineNr">34115 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34116" class="LineNr">34116 </span> <span class="subxComment"># "e9/jump"</span> -<span id="L34117" class="LineNr">34117 </span> 0x7/imm32/size -<span id="L34118" class="LineNr">34118 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p -<span id="L34119" class="LineNr">34119 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34120" class="LineNr">34120 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34121" class="LineNr">34121 </span> <span class="subxComment"># "e9/jump break/disp32"</span> -<span id="L34122" class="LineNr">34122 </span> 0x14/imm32/size -<span id="L34123" class="LineNr">34123 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L34124" class="LineNr">34124 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34125" class="LineNr">34125 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34126" class="LineNr">34126 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> -<span id="L34127" class="LineNr">34127 </span> 0x13/imm32/size -<span id="L34128" class="LineNr">34128 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 -<span id="L34129" class="LineNr">34129 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: -<span id="L34130" class="LineNr">34130 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34131" class="LineNr">34131 </span> <span class="subxComment"># "f7 3/subop/negate"</span> -<span id="L34132" class="LineNr">34132 </span> 0x11/imm32/size -<span id="L34133" class="LineNr">34133 </span> 0x66/f 0x37/7 0x20/space 0x33/3 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e -<span id="L34134" class="LineNr">34134 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34135" class="LineNr">34135 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34136" class="LineNr">34136 </span> <span class="subxComment"># "ff 0/subop/increment"</span> -<span id="L34137" class="LineNr">34137 </span> 0x14/imm32/size -<span id="L34138" class="LineNr">34138 </span> 0x66/f 0x66/f 0x20/space 0x30/0 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L34139" class="LineNr">34139 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34140" class="LineNr">34140 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34141" class="LineNr">34141 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> -<span id="L34142" class="LineNr">34142 </span> 0x14/imm32/size -<span id="L34143" class="LineNr">34143 </span> 0x66/f 0x66/f 0x20/space 0x31/1 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t -<span id="L34144" class="LineNr">34144 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34145" class="LineNr">34145 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34146" class="LineNr">34146 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> -<span id="L34147" class="LineNr">34147 </span> 0x15/imm32/size -<span id="L34148" class="LineNr">34148 </span> 0x63/c 0x31/1 0x2f/slash 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x20/space 0x34/4 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x6c/l 0x65/e 0x66/f 0x74/t -<span id="L34149" class="LineNr">34149 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34150" class="LineNr">34150 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34151" class="LineNr">34151 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> -<span id="L34152" class="LineNr">34152 </span> 0x25/imm32/size -<span id="L34153" class="LineNr">34153 </span> 0x63/c 0x31/1 0x2f/slash 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x20/space 0x35/5 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t 0x2d/dash 0x70/p 0x61/a 0x64/d 0x64/d 0x69/i 0x6e/n 0x67/g 0x2d/dash 0x7a/z 0x65/e 0x72/r 0x6f/o 0x65/e 0x73/s -<span id="L34154" class="LineNr">34154 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34155" class="LineNr">34155 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34156" class="LineNr">34156 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> -<span id="L34157" class="LineNr">34157 </span> 0x26/imm32/size -<span id="L34158" class="LineNr">34158 </span> 0x63/c 0x31/1 0x2f/slash 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x20/space 0x37/7 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t 0x2d/dash 0x70/p 0x72/r 0x65/e 0x73/s 0x65/e 0x72/r 0x76/v 0x69/i 0x6e/n 0x67/g 0x2d/dash 0x73/s 0x69/i 0x67/g 0x6e/n -<span id="L34159" class="LineNr">34159 </span> -<span id="L34160" class="LineNr">34160 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34161" class="LineNr">34161 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34162" class="LineNr">34162 </span> 0x11/imm32/alloc-id:fake -<span id="L34163" class="LineNr">34163 </span> <span class="SpecialChar"><a href='mu.subx.html#L34167'>Int-var-in-mem</a></span>/imm32 -<span id="L34164" class="LineNr">34164 </span> 0/imm32/next -<span id="L34165" class="LineNr">34165 </span> 0/imm32/next -<span id="L34166" class="LineNr">34166 </span> -<span id="L34167" class="LineNr">34167 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L34168" class="LineNr">34168 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34169" class="LineNr">34169 </span> 0/imm32/name -<span id="L34170" class="LineNr">34170 </span> 0/imm32/name -<span id="L34171" class="LineNr">34171 </span> 0x11/imm32/alloc-id:fake -<span id="L34172" class="LineNr">34172 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34173" class="LineNr">34173 </span> 1/imm32/some-block-depth -<span id="L34174" class="LineNr">34174 </span> 1/imm32/some-stack-offset -<span id="L34175" class="LineNr">34175 </span> 0/imm32/no-register -<span id="L34176" class="LineNr">34176 </span> 0/imm32/no-register -<span id="L34177" class="LineNr">34177 </span> -<span id="L34178" class="LineNr">34178 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34179" class="LineNr">34179 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34180" class="LineNr">34180 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34181" class="LineNr">34181 </span> 0x11/imm32/alloc-id:fake -<span id="L34182" class="LineNr">34182 </span> <span class="SpecialChar"><a href='mu.subx.html#L34187'>Byte-var-in-mem</a></span>/imm32 -<span id="L34183" class="LineNr">34183 </span> 0/imm32/next -<span id="L34184" class="LineNr">34184 </span> 0/imm32/next -<span id="L34185" class="LineNr">34185 </span> -<span id="L34186" class="LineNr">34186 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34187" class="LineNr">34187 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L34188" class="LineNr">34188 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34189" class="LineNr">34189 </span> 0/imm32/name -<span id="L34190" class="LineNr">34190 </span> 0/imm32/name -<span id="L34191" class="LineNr">34191 </span> 0x11/imm32/alloc-id:fake -<span id="L34192" class="LineNr">34192 </span> <span class="SpecialChar"><a href='mu.subx.html#L34515'>Type-byte</a></span>/imm32 -<span id="L34193" class="LineNr">34193 </span> 1/imm32/some-block-depth -<span id="L34194" class="LineNr">34194 </span> 1/imm32/some-stack-offset -<span id="L34195" class="LineNr">34195 </span> 0/imm32/no-register -<span id="L34196" class="LineNr">34196 </span> 0/imm32/no-register -<span id="L34197" class="LineNr">34197 </span> -<span id="L34198" class="LineNr">34198 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34199" class="LineNr">34199 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34200" class="LineNr">34200 </span> 0x11/imm32/alloc-id:fake -<span id="L34201" class="LineNr">34201 </span> <span class="SpecialChar"><a href='mu.subx.html#L34167'>Int-var-in-mem</a></span>/imm32 -<span id="L34202" class="LineNr">34202 </span> 0x11/imm32/alloc-id:fake -<span id="L34203" class="LineNr">34203 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L34204" class="LineNr">34204 </span> -<span id="L34205" class="LineNr">34205 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34206" class="LineNr">34206 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34207" class="LineNr">34207 </span> 0x11/imm32/alloc-id:fake -<span id="L34208" class="LineNr">34208 </span> <span class="SpecialChar"><a href='mu.subx.html#L34290'>Int-var-in-some-register</a></span>/imm32 -<span id="L34209" class="LineNr">34209 </span> 0x11/imm32/alloc-id:fake -<span id="L34210" class="LineNr">34210 </span> <span class="SpecialChar"><a href='mu.subx.html#L34269'>Single-int-var-in-some-register</a></span>/imm32/next -<span id="L34211" class="LineNr">34211 </span> -<span id="L34212" class="LineNr">34212 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> -<span id="L34213" class="LineNr">34213 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34214" class="LineNr">34214 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34215" class="LineNr">34215 </span> 0x11/imm32/alloc-id:fake -<span id="L34216" class="LineNr">34216 </span> <span class="SpecialChar"><a href='mu.subx.html#L34187'>Byte-var-in-mem</a></span>/imm32 -<span id="L34217" class="LineNr">34217 </span> 0x11/imm32/alloc-id:fake -<span id="L34218" class="LineNr">34218 </span> <span class="SpecialChar"><a href='mu.subx.html#L34283'>Single-byte-var-in-some-register</a></span>/imm32/next -<span id="L34219" class="LineNr">34219 </span> -<span id="L34220" class="LineNr">34220 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34221" class="LineNr">34221 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34222" class="LineNr">34222 </span> 0x11/imm32/alloc-id:fake -<span id="L34223" class="LineNr">34223 </span> <span class="SpecialChar"><a href='mu.subx.html#L34290'>Int-var-in-some-register</a></span>/imm32 -<span id="L34224" class="LineNr">34224 </span> 0x11/imm32/alloc-id:fake -<span id="L34225" class="LineNr">34225 </span> <span class="SpecialChar"><a href='mu.subx.html#L34160'>Single-int-var-in-mem</a></span>/imm32/next -<span id="L34226" class="LineNr">34226 </span> -<span id="L34227" class="LineNr">34227 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34228" class="LineNr">34228 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34229" class="LineNr">34229 </span> 0x11/imm32/alloc-id:fake -<span id="L34230" class="LineNr">34230 </span> <span class="SpecialChar"><a href='mu.subx.html#L34336'>Int-var-in-eax</a></span>/imm32 -<span id="L34231" class="LineNr">34231 </span> 0x11/imm32/alloc-id:fake -<span id="L34232" class="LineNr">34232 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/next -<span id="L34233" class="LineNr">34233 </span> -<span id="L34234" class="LineNr">34234 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34235" class="LineNr">34235 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34236" class="LineNr">34236 </span> 0x11/imm32/alloc-id:fake -<span id="L34237" class="LineNr">34237 </span> <span class="SpecialChar"><a href='mu.subx.html#L34167'>Int-var-in-mem</a></span>/imm32 -<span id="L34238" class="LineNr">34238 </span> 0x11/imm32/alloc-id:fake -<span id="L34239" class="LineNr">34239 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/next -<span id="L34240" class="LineNr">34240 </span> -<span id="L34241" class="LineNr">34241 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34242" class="LineNr">34242 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34243" class="LineNr">34243 </span> 0x11/imm32/alloc-id:fake -<span id="L34244" class="LineNr">34244 </span> <span class="SpecialChar"><a href='mu.subx.html#L34290'>Int-var-in-some-register</a></span>/imm32 -<span id="L34245" class="LineNr">34245 </span> 0x11/imm32/alloc-id:fake -<span id="L34246" class="LineNr">34246 </span> <span class="SpecialChar"><a href='mu.subx.html#L34437'>Single-lit-var</a></span>/imm32/next -<span id="L34247" class="LineNr">34247 </span> -<span id="L34248" class="LineNr">34248 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34249" class="LineNr">34249 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34250" class="LineNr">34250 </span> 0x11/imm32/alloc-id:fake -<span id="L34251" class="LineNr">34251 </span> <span class="SpecialChar"><a href='mu.subx.html#L34480'>Float-var-in-some-register</a></span>/imm32 -<span id="L34252" class="LineNr">34252 </span> 0x11/imm32/alloc-id:fake -<span id="L34253" class="LineNr">34253 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L34254" class="LineNr">34254 </span> -<span id="L34255" class="LineNr">34255 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34256" class="LineNr">34256 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34257" class="LineNr">34257 </span> 0x11/imm32/alloc-id:fake -<span id="L34258" class="LineNr">34258 </span> <span class="SpecialChar"><a href='mu.subx.html#L34480'>Float-var-in-some-register</a></span>/imm32 -<span id="L34259" class="LineNr">34259 </span> 0x11/imm32/alloc-id:fake -<span id="L34260" class="LineNr">34260 </span> <span class="SpecialChar"><a href='mu.subx.html#L34455'>Single-float-var-in-mem</a></span>/imm32/next -<span id="L34261" class="LineNr">34261 </span> -<span id="L34262" class="LineNr">34262 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34263" class="LineNr">34263 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34264" class="LineNr">34264 </span> 0x11/imm32/alloc-id:fake -<span id="L34265" class="LineNr">34265 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Float-var-in-mem</a></span>/imm32 -<span id="L34266" class="LineNr">34266 </span> 0x11/imm32/alloc-id:fake -<span id="L34267" class="LineNr">34267 </span> <span class="SpecialChar"><a href='mu.subx.html#L34473'>Single-float-var-in-some-register</a></span>/imm32/next -<span id="L34268" class="LineNr">34268 </span> -<span id="L34269" class="LineNr">34269 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34270" class="LineNr">34270 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34271" class="LineNr">34271 </span> 0x11/imm32/alloc-id:fake -<span id="L34272" class="LineNr">34272 </span> <span class="SpecialChar"><a href='mu.subx.html#L34290'>Int-var-in-some-register</a></span>/imm32 -<span id="L34273" class="LineNr">34273 </span> 0/imm32/next -<span id="L34274" class="LineNr">34274 </span> 0/imm32/next -<span id="L34275" class="LineNr">34275 </span> -<span id="L34276" class="LineNr">34276 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34277" class="LineNr">34277 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34278" class="LineNr">34278 </span> 0x11/imm32/alloc-id:fake -<span id="L34279" class="LineNr">34279 </span> <span class="SpecialChar"><a href='mu.subx.html#L34307'>Addr-var-in-some-register</a></span>/imm32 -<span id="L34280" class="LineNr">34280 </span> 0/imm32/next -<span id="L34281" class="LineNr">34281 </span> 0/imm32/next -<span id="L34282" class="LineNr">34282 </span> -<span id="L34283" class="LineNr">34283 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34284" class="LineNr">34284 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34285" class="LineNr">34285 </span> 0x11/imm32/alloc-id:fake -<span id="L34286" class="LineNr">34286 </span> <span class="SpecialChar"><a href='mu.subx.html#L34318'>Byte-var-in-some-register</a></span>/imm32 -<span id="L34287" class="LineNr">34287 </span> 0/imm32/next -<span id="L34288" class="LineNr">34288 </span> 0/imm32/next -<span id="L34289" class="LineNr">34289 </span> -<span id="L34290" class="LineNr">34290 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L34291" class="LineNr">34291 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34292" class="LineNr">34292 </span> 0/imm32/name -<span id="L34293" class="LineNr">34293 </span> 0/imm32/name -<span id="L34294" class="LineNr">34294 </span> 0x11/imm32/alloc-id:fake -<span id="L34295" class="LineNr">34295 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34296" class="LineNr">34296 </span> 1/imm32/some-block-depth -<span id="L34297" class="LineNr">34297 </span> 0/imm32/no-stack-offset -<span id="L34298" class="LineNr">34298 </span> 0x11/imm32/alloc-id:fake -<span id="L34299" class="LineNr">34299 </span> <span class="SpecialChar"><a href='mu.subx.html#L34301'>Any-register</a></span>/imm32 -<span id="L34300" class="LineNr">34300 </span> -<span id="L34301" class="LineNr">34301 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> -<span id="L34302" class="LineNr">34302 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34303" class="LineNr">34303 </span> 1/imm32/size -<span id="L34304" class="LineNr">34304 </span> <span class="subxComment"># data</span> -<span id="L34305" class="LineNr">34305 </span> 2a/asterisk -<span id="L34306" class="LineNr">34306 </span> -<span id="L34307" class="LineNr">34307 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L34308" class="LineNr">34308 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34309" class="LineNr">34309 </span> 0/imm32/name -<span id="L34310" class="LineNr">34310 </span> 0/imm32/name -<span id="L34311" class="LineNr">34311 </span> 0x11/imm32/alloc-id:fake -<span id="L34312" class="LineNr">34312 </span> <span class="SpecialChar"><a href='mu.subx.html#L34507'>Type-addr</a></span>/imm32 -<span id="L34313" class="LineNr">34313 </span> 1/imm32/some-block-depth -<span id="L34314" class="LineNr">34314 </span> 0/imm32/no-stack-offset -<span id="L34315" class="LineNr">34315 </span> 0x11/imm32/alloc-id:fake -<span id="L34316" class="LineNr">34316 </span> <span class="SpecialChar"><a href='mu.subx.html#L34301'>Any-register</a></span>/imm32 -<span id="L34317" class="LineNr">34317 </span> -<span id="L34318" class="LineNr">34318 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L34319" class="LineNr">34319 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34320" class="LineNr">34320 </span> 0/imm32/name -<span id="L34321" class="LineNr">34321 </span> 0/imm32/name -<span id="L34322" class="LineNr">34322 </span> 0x11/imm32/alloc-id:fake -<span id="L34323" class="LineNr">34323 </span> <span class="SpecialChar"><a href='mu.subx.html#L34515'>Type-byte</a></span>/imm32 -<span id="L34324" class="LineNr">34324 </span> 1/imm32/some-block-depth -<span id="L34325" class="LineNr">34325 </span> 0/imm32/no-stack-offset -<span id="L34326" class="LineNr">34326 </span> 0x11/imm32/alloc-id:fake -<span id="L34327" class="LineNr">34327 </span> <span class="SpecialChar"><a href='mu.subx.html#L34301'>Any-register</a></span>/imm32 -<span id="L34328" class="LineNr">34328 </span> -<span id="L34329" class="LineNr">34329 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34330" class="LineNr">34330 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34331" class="LineNr">34331 </span> 0x11/imm32/alloc-id:fake -<span id="L34332" class="LineNr">34332 </span> <span class="SpecialChar"><a href='mu.subx.html#L34336'>Int-var-in-eax</a></span>/imm32 -<span id="L34333" class="LineNr">34333 </span> 0/imm32/next -<span id="L34334" class="LineNr">34334 </span> 0/imm32/next -<span id="L34335" class="LineNr">34335 </span> -<span id="L34336" class="LineNr">34336 </span><span class="SpecialChar">Int-var-in-eax</span>: -<span id="L34337" class="LineNr">34337 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34338" class="LineNr">34338 </span> 0/imm32/name -<span id="L34339" class="LineNr">34339 </span> 0/imm32/name -<span id="L34340" class="LineNr">34340 </span> 0x11/imm32/alloc-id:fake -<span id="L34341" class="LineNr">34341 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34342" class="LineNr">34342 </span> 1/imm32/some-block-depth -<span id="L34343" class="LineNr">34343 </span> 0/imm32/no-stack-offset -<span id="L34344" class="LineNr">34344 </span> 0x11/imm32/alloc-id:fake -<span id="L34345" class="LineNr">34345 </span> $Mu-register-eax/imm32 <span class="subxComment"># can't use Register-eax only to keep our buggy tools/treeshake.cc happy (TODO)</span> -<span id="L34346" class="LineNr">34346 </span> -<span id="L34347" class="LineNr">34347 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34348" class="LineNr">34348 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34349" class="LineNr">34349 </span> 0x11/imm32/alloc-id:fake -<span id="L34350" class="LineNr">34350 </span> <span class="SpecialChar"><a href='mu.subx.html#L34354'>Int-var-in-ecx</a></span>/imm32 -<span id="L34351" class="LineNr">34351 </span> 0/imm32/next -<span id="L34352" class="LineNr">34352 </span> 0/imm32/next -<span id="L34353" class="LineNr">34353 </span> -<span id="L34354" class="LineNr">34354 </span><span class="SpecialChar">Int-var-in-ecx</span>: -<span id="L34355" class="LineNr">34355 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34356" class="LineNr">34356 </span> 0/imm32/name -<span id="L34357" class="LineNr">34357 </span> 0/imm32/name -<span id="L34358" class="LineNr">34358 </span> 0x11/imm32/alloc-id:fake -<span id="L34359" class="LineNr">34359 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34360" class="LineNr">34360 </span> 1/imm32/some-block-depth -<span id="L34361" class="LineNr">34361 </span> 0/imm32/no-stack-offset -<span id="L34362" class="LineNr">34362 </span> 0x11/imm32/alloc-id:fake -<span id="L34363" class="LineNr">34363 </span> $Register-ecx/imm32/register -<span id="L34364" class="LineNr">34364 </span> -<span id="L34365" class="LineNr">34365 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34366" class="LineNr">34366 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34367" class="LineNr">34367 </span> 0x11/imm32/alloc-id:fake -<span id="L34368" class="LineNr">34368 </span> <span class="SpecialChar"><a href='mu.subx.html#L34372'>Int-var-in-edx</a></span>/imm32 -<span id="L34369" class="LineNr">34369 </span> 0/imm32/next -<span id="L34370" class="LineNr">34370 </span> 0/imm32/next -<span id="L34371" class="LineNr">34371 </span> -<span id="L34372" class="LineNr">34372 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34373" class="LineNr">34373 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34374" class="LineNr">34374 </span> 0/imm32/name -<span id="L34375" class="LineNr">34375 </span> 0/imm32/name -<span id="L34376" class="LineNr">34376 </span> 0x11/imm32/alloc-id:fake -<span id="L34377" class="LineNr">34377 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34378" class="LineNr">34378 </span> 1/imm32/some-block-depth -<span id="L34379" class="LineNr">34379 </span> 0/imm32/no-stack-offset -<span id="L34380" class="LineNr">34380 </span> 0x11/imm32/alloc-id:fake -<span id="L34381" class="LineNr">34381 </span> $Register-edx/imm32/register -<span id="L34382" class="LineNr">34382 </span> -<span id="L34383" class="LineNr">34383 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34384" class="LineNr">34384 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34385" class="LineNr">34385 </span> 0x11/imm32/alloc-id:fake -<span id="L34386" class="LineNr">34386 </span> <span class="SpecialChar"><a href='mu.subx.html#L34390'>Int-var-in-ebx</a></span>/imm32 -<span id="L34387" class="LineNr">34387 </span> 0/imm32/next -<span id="L34388" class="LineNr">34388 </span> 0/imm32/next -<span id="L34389" class="LineNr">34389 </span> -<span id="L34390" class="LineNr">34390 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34391" class="LineNr">34391 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34392" class="LineNr">34392 </span> 0/imm32/name -<span id="L34393" class="LineNr">34393 </span> 0/imm32/name -<span id="L34394" class="LineNr">34394 </span> 0x11/imm32/alloc-id:fake -<span id="L34395" class="LineNr">34395 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34396" class="LineNr">34396 </span> 1/imm32/some-block-depth -<span id="L34397" class="LineNr">34397 </span> 0/imm32/no-stack-offset -<span id="L34398" class="LineNr">34398 </span> 0x11/imm32/alloc-id:fake -<span id="L34399" class="LineNr">34399 </span> $Register-ebx/imm32/register -<span id="L34400" class="LineNr">34400 </span> -<span id="L34401" class="LineNr">34401 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34402" class="LineNr">34402 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34403" class="LineNr">34403 </span> 0x11/imm32/alloc-id:fake -<span id="L34404" class="LineNr">34404 </span> <span class="SpecialChar"><a href='mu.subx.html#L34408'>Int-var-in-esi</a></span>/imm32 -<span id="L34405" class="LineNr">34405 </span> 0/imm32/next -<span id="L34406" class="LineNr">34406 </span> 0/imm32/next -<span id="L34407" class="LineNr">34407 </span> -<span id="L34408" class="LineNr">34408 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34409" class="LineNr">34409 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34410" class="LineNr">34410 </span> 0/imm32/name -<span id="L34411" class="LineNr">34411 </span> 0/imm32/name -<span id="L34412" class="LineNr">34412 </span> 0x11/imm32/alloc-id:fake -<span id="L34413" class="LineNr">34413 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34414" class="LineNr">34414 </span> 1/imm32/some-block-depth -<span id="L34415" class="LineNr">34415 </span> 0/imm32/no-stack-offset -<span id="L34416" class="LineNr">34416 </span> 0x11/imm32/alloc-id:fake -<span id="L34417" class="LineNr">34417 </span> $Register-esi/imm32/register -<span id="L34418" class="LineNr">34418 </span> -<span id="L34419" class="LineNr">34419 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34420" class="LineNr">34420 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34421" class="LineNr">34421 </span> 0x11/imm32/alloc-id:fake -<span id="L34422" class="LineNr">34422 </span> <span class="SpecialChar"><a href='mu.subx.html#L34426'>Int-var-in-edi</a></span>/imm32 -<span id="L34423" class="LineNr">34423 </span> 0/imm32/next -<span id="L34424" class="LineNr">34424 </span> 0/imm32/next -<span id="L34425" class="LineNr">34425 </span> -<span id="L34426" class="LineNr">34426 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34427" class="LineNr">34427 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34428" class="LineNr">34428 </span> 0/imm32/name -<span id="L34429" class="LineNr">34429 </span> 0/imm32/name -<span id="L34430" class="LineNr">34430 </span> 0x11/imm32/alloc-id:fake -<span id="L34431" class="LineNr">34431 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Type-int</a></span>/imm32 -<span id="L34432" class="LineNr">34432 </span> 1/imm32/some-block-depth -<span id="L34433" class="LineNr">34433 </span> 0/imm32/no-stack-offset -<span id="L34434" class="LineNr">34434 </span> 0x11/imm32/alloc-id:fake -<span id="L34435" class="LineNr">34435 </span> $Register-edi/imm32/register -<span id="L34436" class="LineNr">34436 </span> -<span id="L34437" class="LineNr">34437 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34438" class="LineNr">34438 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34439" class="LineNr">34439 </span> 0x11/imm32/alloc-id:fake -<span id="L34440" class="LineNr">34440 </span> <span class="SpecialChar"><a href='mu.subx.html#L34444'>Lit-var</a></span>/imm32 -<span id="L34441" class="LineNr">34441 </span> 0/imm32/next -<span id="L34442" class="LineNr">34442 </span> 0/imm32/next -<span id="L34443" class="LineNr">34443 </span> -<span id="L34444" class="LineNr">34444 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> -<span id="L34445" class="LineNr">34445 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34446" class="LineNr">34446 </span> 0/imm32/name -<span id="L34447" class="LineNr">34447 </span> 0/imm32/name -<span id="L34448" class="LineNr">34448 </span> 0x11/imm32/alloc-id:fake -<span id="L34449" class="LineNr">34449 </span> <span class="SpecialChar"><a href='mu.subx.html#L34499'>Type-literal</a></span>/imm32 -<span id="L34450" class="LineNr">34450 </span> 1/imm32/some-block-depth -<span id="L34451" class="LineNr">34451 </span> 0/imm32/no-stack-offset -<span id="L34452" class="LineNr">34452 </span> 0/imm32/no-register -<span id="L34453" class="LineNr">34453 </span> 0/imm32/no-register -<span id="L34454" class="LineNr">34454 </span> -<span id="L34455" class="LineNr">34455 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34456" class="LineNr">34456 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34457" class="LineNr">34457 </span> 0x11/imm32/alloc-id:fake -<span id="L34458" class="LineNr">34458 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Float-var-in-mem</a></span>/imm32 -<span id="L34459" class="LineNr">34459 </span> 0/imm32/next -<span id="L34460" class="LineNr">34460 </span> 0/imm32/next -<span id="L34461" class="LineNr">34461 </span> -<span id="L34462" class="LineNr">34462 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> -<span id="L34463" class="LineNr">34463 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34464" class="LineNr">34464 </span> 0/imm32/name -<span id="L34465" class="LineNr">34465 </span> 0/imm32/name -<span id="L34466" class="LineNr">34466 </span> 0x11/imm32/alloc-id:fake -<span id="L34467" class="LineNr">34467 </span> <span class="SpecialChar"><a href='mu.subx.html#L34523'>Type-float</a></span>/imm32 -<span id="L34468" class="LineNr">34468 </span> 1/imm32/some-block-depth -<span id="L34469" class="LineNr">34469 </span> 1/imm32/some-stack-offset -<span id="L34470" class="LineNr">34470 </span> 0/imm32/no-register -<span id="L34471" class="LineNr">34471 </span> 0/imm32/no-register -<span id="L34472" class="LineNr">34472 </span> -<span id="L34473" class="LineNr">34473 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> -<span id="L34474" class="LineNr">34474 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34475" class="LineNr">34475 </span> 0x11/imm32/alloc-id:fake -<span id="L34476" class="LineNr">34476 </span> <span class="SpecialChar"><a href='mu.subx.html#L34480'>Float-var-in-some-register</a></span>/imm32 -<span id="L34477" class="LineNr">34477 </span> 0/imm32/next -<span id="L34478" class="LineNr">34478 </span> 0/imm32/next -<span id="L34479" class="LineNr">34479 </span> -<span id="L34480" class="LineNr">34480 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> -<span id="L34481" class="LineNr">34481 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34482" class="LineNr">34482 </span> 0/imm32/name -<span id="L34483" class="LineNr">34483 </span> 0/imm32/name -<span id="L34484" class="LineNr">34484 </span> 0x11/imm32/alloc-id:fake -<span id="L34485" class="LineNr">34485 </span> <span class="SpecialChar"><a href='mu.subx.html#L34523'>Type-float</a></span>/imm32 -<span id="L34486" class="LineNr">34486 </span> 1/imm32/some-block-depth -<span id="L34487" class="LineNr">34487 </span> 0/imm32/no-stack-offset -<span id="L34488" class="LineNr">34488 </span> 0x11/imm32/alloc-id:fake -<span id="L34489" class="LineNr">34489 </span> <span class="SpecialChar"><a href='mu.subx.html#L34301'>Any-register</a></span>/imm32 -<span id="L34490" class="LineNr">34490 </span> -<span id="L34491" class="LineNr">34491 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34492" class="LineNr">34492 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34493" class="LineNr">34493 </span> 1/imm32/is-atom -<span id="L34494" class="LineNr">34494 </span> 1/imm32/value:int -<span id="L34495" class="LineNr">34495 </span> 0/imm32/left:unused -<span id="L34496" class="LineNr">34496 </span> 0/imm32/right:null -<span id="L34497" class="LineNr">34497 </span> 0/imm32/right:null -<span id="L34498" class="LineNr">34498 </span> -<span id="L34499" class="LineNr">34499 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34500" class="LineNr">34500 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34501" class="LineNr">34501 </span> 1/imm32/is-atom -<span id="L34502" class="LineNr">34502 </span> 0/imm32/value:literal -<span id="L34503" class="LineNr">34503 </span> 0/imm32/left:unused -<span id="L34504" class="LineNr">34504 </span> 0/imm32/right:null -<span id="L34505" class="LineNr">34505 </span> 0/imm32/right:null -<span id="L34506" class="LineNr">34506 </span> -<span id="L34507" class="LineNr">34507 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34508" class="LineNr">34508 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34509" class="LineNr">34509 </span> 1/imm32/is-atom -<span id="L34510" class="LineNr">34510 </span> 2/imm32/value:addr -<span id="L34511" class="LineNr">34511 </span> 0/imm32/left:unused -<span id="L34512" class="LineNr">34512 </span> 0/imm32/right:null -<span id="L34513" class="LineNr">34513 </span> 0/imm32/right:null -<span id="L34514" class="LineNr">34514 </span> -<span id="L34515" class="LineNr">34515 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34516" class="LineNr">34516 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34517" class="LineNr">34517 </span> 1/imm32/is-atom -<span id="L34518" class="LineNr">34518 </span> 8/imm32/value:byte -<span id="L34519" class="LineNr">34519 </span> 0/imm32/left:unused -<span id="L34520" class="LineNr">34520 </span> 0/imm32/right:null -<span id="L34521" class="LineNr">34521 </span> 0/imm32/right:null -<span id="L34522" class="LineNr">34522 </span> -<span id="L34523" class="LineNr">34523 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> -<span id="L34524" class="LineNr">34524 </span> 0x11/imm32/alloc-id:fake:payload -<span id="L34525" class="LineNr">34525 </span> 1/imm32/is-atom -<span id="L34526" class="LineNr">34526 </span> 0xf/imm32/value:float -<span id="L34527" class="LineNr">34527 </span> 0/imm32/left:unused -<span id="L34528" class="LineNr">34528 </span> 0/imm32/right:null -<span id="L34529" class="LineNr">34529 </span> 0/imm32/right:null -<span id="L34530" class="LineNr">34530 </span> -<span id="L34531" class="LineNr">34531 </span>== code -<span id="L34532" class="LineNr">34532 </span><span class="subxFunction">emit-subx-primitive</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), primitive: (addr primitive), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L34533" class="LineNr">34533 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34534" class="LineNr">34534 </span> 55/push-ebp -<span id="L34535" class="LineNr">34535 </span> 89/<- %ebp 4/r32/esp -<span id="L34536" class="LineNr">34536 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34537" class="LineNr">34537 </span> 50/push-eax -<span id="L34538" class="LineNr">34538 </span> 51/push-ecx -<span id="L34539" class="LineNr">34539 </span> <span class="subxComment"># ecx = primitive</span> -<span id="L34540" class="LineNr">34540 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L34541" class="LineNr">34541 </span> <span class="subxComment"># emit primitive name</span> -<span id="L34542" class="LineNr">34542 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L34543" class="LineNr">34543 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Primitive-subx-name Primitive-subx-name => eax</span> -<span id="L34544" class="LineNr">34544 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34545" class="LineNr">34545 </span> <span class="subxComment"># emit rm32 if necessary</span> -<span id="L34546" class="LineNr">34546 </span> (<a href='mu.subx.html#L34569'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> -<span id="L34547" class="LineNr">34547 </span> <span class="subxComment"># emit xm32 if necessary</span> -<span id="L34548" class="LineNr">34548 </span> (<a href='mu.subx.html#L34569'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> -<span id="L34549" class="LineNr">34549 </span> <span class="subxComment"># emit r32 if necessary</span> -<span id="L34550" class="LineNr">34550 </span> (<a href='mu.subx.html#L34643'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> -<span id="L34551" class="LineNr">34551 </span> <span class="subxComment"># emit x32 if necessary</span> -<span id="L34552" class="LineNr">34552 </span> (<a href='mu.subx.html#L34674'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> -<span id="L34553" class="LineNr">34553 </span> <span class="subxComment"># emit imm32 if necessary</span> -<span id="L34554" class="LineNr">34554 </span> (<a href='mu.subx.html#L34705'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> -<span id="L34555" class="LineNr">34555 </span> <span class="subxComment"># emit imm8 if necessary</span> -<span id="L34556" class="LineNr">34556 </span> (<a href='mu.subx.html#L34731'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> -<span id="L34557" class="LineNr">34557 </span> <span class="subxComment"># emit disp32 if necessary</span> -<span id="L34558" class="LineNr">34558 </span> (<a href='mu.subx.html#L34757'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> -<span id="L34559" class="LineNr">34559 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L34560" class="LineNr">34560 </span><span class="Constant">$emit-subx-primitive:end</span>: -<span id="L34561" class="LineNr">34561 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34562" class="LineNr">34562 </span> 59/pop-to-ecx -<span id="L34563" class="LineNr">34563 </span> 58/pop-to-eax -<span id="L34564" class="LineNr">34564 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34565" class="LineNr">34565 </span> 89/<- %esp 5/r32/ebp -<span id="L34566" class="LineNr">34566 </span> 5d/pop-to-ebp -<span id="L34567" class="LineNr">34567 </span> c3/return -<span id="L34568" class="LineNr">34568 </span> -<span id="L34569" class="LineNr">34569 </span><span class="subxFunction">emit-subx-rm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L34570" class="LineNr">34570 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34571" class="LineNr">34571 </span> 55/push-ebp -<span id="L34572" class="LineNr">34572 </span> 89/<- %ebp 4/r32/esp -<span id="L34573" class="LineNr">34573 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34574" class="LineNr">34574 </span> 50/push-eax -<span id="L34575" class="LineNr">34575 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L34576" class="LineNr">34576 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L34577" class="LineNr">34577 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 -<span id="L34578" class="LineNr">34578 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L34579" class="LineNr">34579 </span> (<a href='mu.subx.html#L34589'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L34580" class="LineNr">34580 </span> (<a href='mu.subx.html#L35002'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) -<span id="L34581" class="LineNr">34581 </span><span class="Constant">$emit-subx-rm32:end</span>: -<span id="L34582" class="LineNr">34582 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34583" class="LineNr">34583 </span> 58/pop-to-eax -<span id="L34584" class="LineNr">34584 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34585" class="LineNr">34585 </span> 89/<- %esp 5/r32/ebp -<span id="L34586" class="LineNr">34586 </span> 5d/pop-to-ebp -<span id="L34587" class="LineNr">34587 </span> c3/return -<span id="L34588" class="LineNr">34588 </span> -<span id="L34589" class="LineNr">34589 </span><span class="subxFunction">get-stmt-operand-from-arg-location</span>: <span class="subxComment"># stmt: (addr stmt), l: arg-location, err: (addr buffered-file), ed: (addr exit-descriptor) -> var/eax: (addr stmt-var)</span> -<span id="L34590" class="LineNr">34590 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34591" class="LineNr">34591 </span> 55/push-ebp -<span id="L34592" class="LineNr">34592 </span> 89/<- %ebp 4/r32/esp -<span id="L34593" class="LineNr">34593 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34594" class="LineNr">34594 </span> 51/push-ecx -<span id="L34595" class="LineNr">34595 </span> <span class="subxComment"># eax = l</span> -<span id="L34596" class="LineNr">34596 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L34597" class="LineNr">34597 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L34598" class="LineNr">34598 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L34599" class="LineNr">34599 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> -<span id="L34600" class="LineNr">34600 </span> { -<span id="L34601" class="LineNr">34601 </span> 3d/compare-eax-and 1/imm32 -<span id="L34602" class="LineNr">34602 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L34603" class="LineNr">34603 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: -<span id="L34604" class="LineNr">34604 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L34605" class="LineNr">34605 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L34606" class="LineNr">34606 </span> } -<span id="L34607" class="LineNr">34607 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> -<span id="L34608" class="LineNr">34608 </span> { -<span id="L34609" class="LineNr">34609 </span> 3d/compare-eax-and 2/imm32 -<span id="L34610" class="LineNr">34610 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L34611" class="LineNr">34611 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: -<span id="L34612" class="LineNr">34612 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L34613" class="LineNr">34613 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L34614" class="LineNr">34614 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L34615" class="LineNr">34615 </span> } -<span id="L34616" class="LineNr">34616 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> -<span id="L34617" class="LineNr">34617 </span> { -<span id="L34618" class="LineNr">34618 </span> 3d/compare-eax-and 3/imm32 -<span id="L34619" class="LineNr">34619 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L34620" class="LineNr">34620 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: -<span id="L34621" class="LineNr">34621 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L34622" class="LineNr">34622 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 -<span id="L34623" class="LineNr">34623 </span> } -<span id="L34624" class="LineNr">34624 </span> <span class="subxComment"># abort</span> -<span id="L34625" class="LineNr">34625 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 -<span id="L34626" class="LineNr">34626 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: -<span id="L34627" class="LineNr">34627 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34628" class="LineNr">34628 </span> 59/pop-to-ecx -<span id="L34629" class="LineNr">34629 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34630" class="LineNr">34630 </span> 89/<- %esp 5/r32/ebp -<span id="L34631" class="LineNr">34631 </span> 5d/pop-to-ebp -<span id="L34632" class="LineNr">34632 </span> c3/return -<span id="L34633" class="LineNr">34633 </span> -<span id="L34634" class="LineNr">34634 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: -<span id="L34635" class="LineNr">34635 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> -<span id="L34636" class="LineNr">34636 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) -<span id="L34637" class="LineNr">34637 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) -<span id="L34638" class="LineNr">34638 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) -<span id="L34639" class="LineNr">34639 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) -<span id="L34640" class="LineNr">34640 </span> (<a href='../110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) -<span id="L34641" class="LineNr">34641 </span> <span class="subxComment"># never gets here</span> -<span id="L34642" class="LineNr">34642 </span> -<span id="L34643" class="LineNr">34643 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L34644" class="LineNr">34644 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34645" class="LineNr">34645 </span> 55/push-ebp -<span id="L34646" class="LineNr">34646 </span> 89/<- %ebp 4/r32/esp -<span id="L34647" class="LineNr">34647 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34648" class="LineNr">34648 </span> 50/push-eax -<span id="L34649" class="LineNr">34649 </span> 51/push-ecx -<span id="L34650" class="LineNr">34650 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L34651" class="LineNr">34651 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L34652" class="LineNr">34652 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 -<span id="L34653" class="LineNr">34653 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L34654" class="LineNr">34654 </span> (<a href='mu.subx.html#L34589'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L34655" class="LineNr">34655 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L34656" class="LineNr">34656 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L34657" class="LineNr">34657 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L34658" class="LineNr">34658 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L34659" class="LineNr">34659 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L34660" class="LineNr">34660 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L34661" class="LineNr">34661 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L34662" class="LineNr">34662 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L34663" class="LineNr">34663 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L34664" class="LineNr">34664 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) -<span id="L34665" class="LineNr">34665 </span><span class="Constant">$emit-subx-r32:end</span>: -<span id="L34666" class="LineNr">34666 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34667" class="LineNr">34667 </span> 59/pop-to-ecx -<span id="L34668" class="LineNr">34668 </span> 58/pop-to-eax -<span id="L34669" class="LineNr">34669 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34670" class="LineNr">34670 </span> 89/<- %esp 5/r32/ebp -<span id="L34671" class="LineNr">34671 </span> 5d/pop-to-ebp -<span id="L34672" class="LineNr">34672 </span> c3/return -<span id="L34673" class="LineNr">34673 </span> -<span id="L34674" class="LineNr">34674 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L34675" class="LineNr">34675 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34676" class="LineNr">34676 </span> 55/push-ebp -<span id="L34677" class="LineNr">34677 </span> 89/<- %ebp 4/r32/esp -<span id="L34678" class="LineNr">34678 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34679" class="LineNr">34679 </span> 50/push-eax -<span id="L34680" class="LineNr">34680 </span> 51/push-ecx -<span id="L34681" class="LineNr">34681 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L34682" class="LineNr">34682 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L34683" class="LineNr">34683 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 -<span id="L34684" class="LineNr">34684 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L34685" class="LineNr">34685 </span> (<a href='mu.subx.html#L34589'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L34686" class="LineNr">34686 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L34687" class="LineNr">34687 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L34688" class="LineNr">34688 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> -<span id="L34689" class="LineNr">34689 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L34690" class="LineNr">34690 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L34691" class="LineNr">34691 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L34692" class="LineNr">34692 </span> (<a href='../131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19182'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> -<span id="L34693" class="LineNr">34693 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L34694" class="LineNr">34694 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) -<span id="L34695" class="LineNr">34695 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) -<span id="L34696" class="LineNr">34696 </span><span class="Constant">$emit-subx-x32:end</span>: -<span id="L34697" class="LineNr">34697 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34698" class="LineNr">34698 </span> 59/pop-to-ecx -<span id="L34699" class="LineNr">34699 </span> 58/pop-to-eax -<span id="L34700" class="LineNr">34700 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34701" class="LineNr">34701 </span> 89/<- %esp 5/r32/ebp -<span id="L34702" class="LineNr">34702 </span> 5d/pop-to-ebp -<span id="L34703" class="LineNr">34703 </span> c3/return -<span id="L34704" class="LineNr">34704 </span> -<span id="L34705" class="LineNr">34705 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L34706" class="LineNr">34706 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34707" class="LineNr">34707 </span> 55/push-ebp -<span id="L34708" class="LineNr">34708 </span> 89/<- %ebp 4/r32/esp -<span id="L34709" class="LineNr">34709 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34710" class="LineNr">34710 </span> 50/push-eax -<span id="L34711" class="LineNr">34711 </span> 51/push-ecx -<span id="L34712" class="LineNr">34712 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L34713" class="LineNr">34713 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L34714" class="LineNr">34714 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L34715" class="LineNr">34715 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L34716" class="LineNr">34716 </span> (<a href='mu.subx.html#L34589'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L34717" class="LineNr">34717 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L34718" class="LineNr">34718 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L34719" class="LineNr">34719 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L34720" class="LineNr">34720 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34721" class="LineNr">34721 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) -<span id="L34722" class="LineNr">34722 </span><span class="Constant">$emit-subx-imm32:end</span>: -<span id="L34723" class="LineNr">34723 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34724" class="LineNr">34724 </span> 59/pop-to-ecx -<span id="L34725" class="LineNr">34725 </span> 58/pop-to-eax -<span id="L34726" class="LineNr">34726 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34727" class="LineNr">34727 </span> 89/<- %esp 5/r32/ebp -<span id="L34728" class="LineNr">34728 </span> 5d/pop-to-ebp -<span id="L34729" class="LineNr">34729 </span> c3/return -<span id="L34730" class="LineNr">34730 </span> -<span id="L34731" class="LineNr">34731 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> -<span id="L34732" class="LineNr">34732 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34733" class="LineNr">34733 </span> 55/push-ebp -<span id="L34734" class="LineNr">34734 </span> 89/<- %ebp 4/r32/esp -<span id="L34735" class="LineNr">34735 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34736" class="LineNr">34736 </span> 50/push-eax -<span id="L34737" class="LineNr">34737 </span> 51/push-ecx -<span id="L34738" class="LineNr">34738 </span> <span class="subxComment"># if (l == 0) return</span> -<span id="L34739" class="LineNr">34739 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L34740" class="LineNr">34740 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 -<span id="L34741" class="LineNr">34741 </span> <span class="subxComment"># var v/eax: (handle var)</span> -<span id="L34742" class="LineNr">34742 </span> (<a href='mu.subx.html#L34589'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L34743" class="LineNr">34743 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L34744" class="LineNr">34744 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L34745" class="LineNr">34745 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L34746" class="LineNr">34746 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34747" class="LineNr">34747 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) -<span id="L34748" class="LineNr">34748 </span><span class="Constant">$emit-subx-imm8:end</span>: -<span id="L34749" class="LineNr">34749 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34750" class="LineNr">34750 </span> 59/pop-to-ecx -<span id="L34751" class="LineNr">34751 </span> 58/pop-to-eax -<span id="L34752" class="LineNr">34752 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34753" class="LineNr">34753 </span> 89/<- %esp 5/r32/ebp -<span id="L34754" class="LineNr">34754 </span> 5d/pop-to-ebp -<span id="L34755" class="LineNr">34755 </span> c3/return -<span id="L34756" class="LineNr">34756 </span> -<span id="L34757" class="LineNr">34757 </span><span class="subxFunction">emit-subx-disp32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> -<span id="L34758" class="LineNr">34758 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34759" class="LineNr">34759 </span> 55/push-ebp -<span id="L34760" class="LineNr">34760 </span> 89/<- %ebp 4/r32/esp -<span id="L34761" class="LineNr">34761 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34762" class="LineNr">34762 </span> 50/push-eax -<span id="L34763" class="LineNr">34763 </span> 51/push-ecx -<span id="L34764" class="LineNr">34764 </span> <span class="subxComment"># if (location == 0) return</span> -<span id="L34765" class="LineNr">34765 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 -<span id="L34766" class="LineNr">34766 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 -<span id="L34767" class="LineNr">34767 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> -<span id="L34768" class="LineNr">34768 </span> (<a href='mu.subx.html#L34589'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> -<span id="L34769" class="LineNr">34769 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L34770" class="LineNr">34770 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L34771" class="LineNr">34771 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L34772" class="LineNr">34772 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34773" class="LineNr">34773 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> -<span id="L34774" class="LineNr">34774 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> -<span id="L34775" class="LineNr">34775 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L34776" class="LineNr">34776 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L34777" class="LineNr">34777 </span> 89/<- %ecx 0/r32/eax -<span id="L34778" class="LineNr">34778 </span> { -<span id="L34779" class="LineNr">34779 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> -<span id="L34780" class="LineNr">34780 </span> 3d/compare-eax-and 0/imm32/false -<span id="L34781" class="LineNr">34781 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L34782" class="LineNr">34782 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) -<span id="L34783" class="LineNr">34783 </span> } -<span id="L34784" class="LineNr">34784 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> -<span id="L34785" class="LineNr">34785 </span> { -<span id="L34786" class="LineNr">34786 </span> (<a href='../105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> -<span id="L34787" class="LineNr">34787 </span> 3d/compare-eax-and 0/imm32/false -<span id="L34788" class="LineNr">34788 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L34789" class="LineNr">34789 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) -<span id="L34790" class="LineNr">34790 </span> } -<span id="L34791" class="LineNr">34791 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) -<span id="L34792" class="LineNr">34792 </span><span class="Constant">$emit-subx-disp32:end</span>: -<span id="L34793" class="LineNr">34793 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34794" class="LineNr">34794 </span> 59/pop-to-ecx -<span id="L34795" class="LineNr">34795 </span> 58/pop-to-eax -<span id="L34796" class="LineNr">34796 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34797" class="LineNr">34797 </span> 89/<- %esp 5/r32/ebp -<span id="L34798" class="LineNr">34798 </span> 5d/pop-to-ebp -<span id="L34799" class="LineNr">34799 </span> c3/return -<span id="L34800" class="LineNr">34800 </span> -<span id="L34801" class="LineNr">34801 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> -<span id="L34802" class="LineNr">34802 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34803" class="LineNr">34803 </span> 55/push-ebp -<span id="L34804" class="LineNr">34804 </span> 89/<- %ebp 4/r32/esp -<span id="L34805" class="LineNr">34805 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34806" class="LineNr">34806 </span> 50/push-eax -<span id="L34807" class="LineNr">34807 </span> 51/push-ecx -<span id="L34808" class="LineNr">34808 </span> <span class="subxComment">#</span> -<span id="L34809" class="LineNr">34809 </span> (<a href='mu.subx.html#L38035'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span>) -<span id="L34810" class="LineNr">34810 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) -<span id="L34811" class="LineNr">34811 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L34812" class="LineNr">34812 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L34813" class="LineNr">34813 </span> <span class="subxH1Comment"># - emit function name</span> -<span id="L34814" class="LineNr">34814 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L34815" class="LineNr">34815 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34816" class="LineNr">34816 </span> <span class="subxH1Comment"># - emit arguments</span> -<span id="L34817" class="LineNr">34817 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L34818" class="LineNr">34818 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L34819" class="LineNr">34819 </span> { -<span id="L34820" class="LineNr">34820 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L34821" class="LineNr">34821 </span> 3d/compare-eax-and 0/imm32 -<span id="L34822" class="LineNr">34822 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L34823" class="LineNr">34823 </span> <span class="subxComment">#</span> -<span id="L34824" class="LineNr">34824 </span> (<a href='mu.subx.html#L34840'>emit-subx-call-operand</a> *(ebp+8) %eax) -<span id="L34825" class="LineNr">34825 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L34826" class="LineNr">34826 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L34827" class="LineNr">34827 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L34828" class="LineNr">34828 </span> } -<span id="L34829" class="LineNr">34829 </span> <span class="subxComment">#</span> -<span id="L34830" class="LineNr">34830 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) -<span id="L34831" class="LineNr">34831 </span><span class="Constant">$emit-call:end</span>: -<span id="L34832" class="LineNr">34832 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34833" class="LineNr">34833 </span> 59/pop-to-ecx -<span id="L34834" class="LineNr">34834 </span> 58/pop-to-eax -<span id="L34835" class="LineNr">34835 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34836" class="LineNr">34836 </span> 89/<- %esp 5/r32/ebp -<span id="L34837" class="LineNr">34837 </span> 5d/pop-to-ebp -<span id="L34838" class="LineNr">34838 </span> c3/return -<span id="L34839" class="LineNr">34839 </span> -<span id="L34840" class="LineNr">34840 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L34841" class="LineNr">34841 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> -<span id="L34842" class="LineNr">34842 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34843" class="LineNr">34843 </span> 55/push-ebp -<span id="L34844" class="LineNr">34844 </span> 89/<- %ebp 4/r32/esp -<span id="L34845" class="LineNr">34845 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34846" class="LineNr">34846 </span> 50/push-eax -<span id="L34847" class="LineNr">34847 </span> 51/push-ecx -<span id="L34848" class="LineNr">34848 </span> 56/push-esi -<span id="L34849" class="LineNr">34849 </span> <span class="subxComment"># ecx = s</span> -<span id="L34850" class="LineNr">34850 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L34851" class="LineNr">34851 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L34852" class="LineNr">34852 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L34853" class="LineNr">34853 </span> 89/<- %esi 0/r32/eax -<span id="L34854" class="LineNr">34854 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L34855" class="LineNr">34855 </span> { -<span id="L34856" class="LineNr">34856 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: -<span id="L34857" class="LineNr">34857 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L34858" class="LineNr">34858 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L34859" class="LineNr">34859 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L34860" class="LineNr">34860 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L34861" class="LineNr">34861 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: -<span id="L34862" class="LineNr">34862 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L34863" class="LineNr">34863 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L34864" class="LineNr">34864 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34865" class="LineNr">34865 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L34866" class="LineNr">34866 </span> } -<span id="L34867" class="LineNr">34867 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L34868" class="LineNr">34868 </span> { -<span id="L34869" class="LineNr">34869 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: -<span id="L34870" class="LineNr">34870 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L34871" class="LineNr">34871 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L34872" class="LineNr">34872 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L34873" class="LineNr">34873 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L34874" class="LineNr">34874 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: -<span id="L34875" class="LineNr">34875 </span> (<a href='mu.subx.html#L34917'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) -<span id="L34876" class="LineNr">34876 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L34877" class="LineNr">34877 </span> } -<span id="L34878" class="LineNr">34878 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L34879" class="LineNr">34879 </span> { -<span id="L34880" class="LineNr">34880 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L34881" class="LineNr">34881 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L34882" class="LineNr">34882 </span><span class="Constant">$emit-subx-call-operand:stack</span>: -<span id="L34883" class="LineNr">34883 </span> (<a href='mu.subx.html#L34962'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) -<span id="L34884" class="LineNr">34884 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L34885" class="LineNr">34885 </span> } -<span id="L34886" class="LineNr">34886 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> -<span id="L34887" class="LineNr">34887 </span> { -<span id="L34888" class="LineNr">34888 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L34889" class="LineNr">34889 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L34890" class="LineNr">34890 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L34891" class="LineNr">34891 </span><span class="Constant">$emit-subx-call-operand:literal</span>: -<span id="L34892" class="LineNr">34892 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L34893" class="LineNr">34893 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L34894" class="LineNr">34894 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34895" class="LineNr">34895 </span> e9/jump $emit-subx-call-operand:end/disp32 -<span id="L34896" class="LineNr">34896 </span> } -<span id="L34897" class="LineNr">34897 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> -<span id="L34898" class="LineNr">34898 </span> { -<span id="L34899" class="LineNr">34899 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L34900" class="LineNr">34900 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> -<span id="L34901" class="LineNr">34901 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L34902" class="LineNr">34902 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: -<span id="L34903" class="LineNr">34903 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L34904" class="LineNr">34904 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> -<span id="L34905" class="LineNr">34905 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L34906" class="LineNr">34906 </span> } -<span id="L34907" class="LineNr">34907 </span><span class="Constant">$emit-subx-call-operand:end</span>: -<span id="L34908" class="LineNr">34908 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34909" class="LineNr">34909 </span> 5e/pop-to-esi -<span id="L34910" class="LineNr">34910 </span> 59/pop-to-ecx -<span id="L34911" class="LineNr">34911 </span> 58/pop-to-eax -<span id="L34912" class="LineNr">34912 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34913" class="LineNr">34913 </span> 89/<- %esp 5/r32/ebp -<span id="L34914" class="LineNr">34914 </span> 5d/pop-to-ebp -<span id="L34915" class="LineNr">34915 </span> c3/return -<span id="L34916" class="LineNr">34916 </span> -<span id="L34917" class="LineNr">34917 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L34918" class="LineNr">34918 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34919" class="LineNr">34919 </span> 55/push-ebp -<span id="L34920" class="LineNr">34920 </span> 89/<- %ebp 4/r32/esp -<span id="L34921" class="LineNr">34921 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34922" class="LineNr">34922 </span> 50/push-eax -<span id="L34923" class="LineNr">34923 </span> 51/push-ecx -<span id="L34924" class="LineNr">34924 </span> 56/push-esi -<span id="L34925" class="LineNr">34925 </span> <span class="subxComment"># esi = v</span> -<span id="L34926" class="LineNr">34926 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L34927" class="LineNr">34927 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> -<span id="L34928" class="LineNr">34928 </span> (<a href='mu.subx.html#L26388'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> -<span id="L34929" class="LineNr">34929 </span> 89/<- %ecx 0/r32/eax -<span id="L34930" class="LineNr">34930 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> -<span id="L34931" class="LineNr">34931 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L34932" class="LineNr">34932 </span> 89/<- %esi 0/r32/eax -<span id="L34933" class="LineNr">34933 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L34934" class="LineNr">34934 </span> <span class="subxComment"># var i/eax: int = 0</span> -<span id="L34935" class="LineNr">34935 </span> b8/copy-to-eax 0/imm32 -<span id="L34936" class="LineNr">34936 </span> { -<span id="L34937" class="LineNr">34937 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: -<span id="L34938" class="LineNr">34938 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L34939" class="LineNr">34939 </span> 39/compare %eax 1/r32/ecx -<span id="L34940" class="LineNr">34940 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L34941" class="LineNr">34941 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> -<span id="L34942" class="LineNr">34942 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) -<span id="L34943" class="LineNr">34943 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) -<span id="L34944" class="LineNr">34944 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) -<span id="L34945" class="LineNr">34945 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) -<span id="L34946" class="LineNr">34946 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L34947" class="LineNr">34947 </span> <span class="subxComment"># i += 4</span> -<span id="L34948" class="LineNr">34948 </span> 05/add-to-eax 4/imm32 -<span id="L34949" class="LineNr">34949 </span> <span class="subxComment">#</span> -<span id="L34950" class="LineNr">34950 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L34951" class="LineNr">34951 </span> } -<span id="L34952" class="LineNr">34952 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: -<span id="L34953" class="LineNr">34953 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34954" class="LineNr">34954 </span> 5e/pop-to-esi -<span id="L34955" class="LineNr">34955 </span> 59/pop-to-ecx -<span id="L34956" class="LineNr">34956 </span> 58/pop-to-eax -<span id="L34957" class="LineNr">34957 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34958" class="LineNr">34958 </span> 89/<- %esp 5/r32/ebp -<span id="L34959" class="LineNr">34959 </span> 5d/pop-to-ebp -<span id="L34960" class="LineNr">34960 </span> c3/return -<span id="L34961" class="LineNr">34961 </span> -<span id="L34962" class="LineNr">34962 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> -<span id="L34963" class="LineNr">34963 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L34964" class="LineNr">34964 </span> 55/push-ebp -<span id="L34965" class="LineNr">34965 </span> 89/<- %ebp 4/r32/esp -<span id="L34966" class="LineNr">34966 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L34967" class="LineNr">34967 </span> 50/push-eax -<span id="L34968" class="LineNr">34968 </span> 51/push-ecx -<span id="L34969" class="LineNr">34969 </span> 56/push-esi -<span id="L34970" class="LineNr">34970 </span> <span class="subxComment"># esi = v</span> -<span id="L34971" class="LineNr">34971 </span> 8b/-> *(ebp+0xc) 6/r32/esi -<span id="L34972" class="LineNr">34972 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> -<span id="L34973" class="LineNr">34973 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> -<span id="L34974" class="LineNr">34974 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> -<span id="L34975" class="LineNr">34975 </span> (<a href='mu.subx.html#L26338'>size-of</a> %esi) <span class="subxComment"># => eax</span> -<span id="L34976" class="LineNr">34976 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> -<span id="L34977" class="LineNr">34977 </span> 01/add-to %eax 1/r32/ecx -<span id="L34978" class="LineNr">34978 </span> { -<span id="L34979" class="LineNr">34979 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: -<span id="L34980" class="LineNr">34980 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L34981" class="LineNr">34981 </span> 39/compare %ecx 0/r32/eax -<span id="L34982" class="LineNr">34982 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 -<span id="L34983" class="LineNr">34983 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> -<span id="L34984" class="LineNr">34984 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) -<span id="L34985" class="LineNr">34985 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) -<span id="L34986" class="LineNr">34986 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L34987" class="LineNr">34987 </span> <span class="subxComment"># i += 4</span> -<span id="L34988" class="LineNr">34988 </span> 81 0/subop/add %ecx 4/imm32 -<span id="L34989" class="LineNr">34989 </span> <span class="subxComment">#</span> -<span id="L34990" class="LineNr">34990 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L34991" class="LineNr">34991 </span> } -<span id="L34992" class="LineNr">34992 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: -<span id="L34993" class="LineNr">34993 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34994" class="LineNr">34994 </span> 5e/pop-to-esi -<span id="L34995" class="LineNr">34995 </span> 59/pop-to-ecx -<span id="L34996" class="LineNr">34996 </span> 58/pop-to-eax -<span id="L34997" class="LineNr">34997 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L34998" class="LineNr">34998 </span> 89/<- %esp 5/r32/ebp -<span id="L34999" class="LineNr">34999 </span> 5d/pop-to-ebp -<span id="L35000" class="LineNr">35000 </span> c3/return -<span id="L35001" class="LineNr">35001 </span> -<span id="L35002" class="LineNr">35002 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> -<span id="L35003" class="LineNr">35003 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35004" class="LineNr">35004 </span> 55/push-ebp -<span id="L35005" class="LineNr">35005 </span> 89/<- %ebp 4/r32/esp -<span id="L35006" class="LineNr">35006 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35007" class="LineNr">35007 </span> 50/push-eax -<span id="L35008" class="LineNr">35008 </span> 51/push-ecx -<span id="L35009" class="LineNr">35009 </span> 56/push-esi -<span id="L35010" class="LineNr">35010 </span> <span class="subxComment"># ecx = s</span> -<span id="L35011" class="LineNr">35011 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35012" class="LineNr">35012 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> -<span id="L35013" class="LineNr">35013 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35014" class="LineNr">35014 </span> 89/<- %esi 0/r32/eax -<span id="L35015" class="LineNr">35015 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> -<span id="L35016" class="LineNr">35016 </span> { -<span id="L35017" class="LineNr">35017 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: -<span id="L35018" class="LineNr">35018 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35019" class="LineNr">35019 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35020" class="LineNr">35020 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35021" class="LineNr">35021 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35022" class="LineNr">35022 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: -<span id="L35023" class="LineNr">35023 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) -<span id="L35024" class="LineNr">35024 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35025" class="LineNr">35025 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35026" class="LineNr">35026 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L35027" class="LineNr">35027 </span> } -<span id="L35028" class="LineNr">35028 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> -<span id="L35029" class="LineNr">35029 </span> { -<span id="L35030" class="LineNr">35030 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: -<span id="L35031" class="LineNr">35031 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35032" class="LineNr">35032 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35033" class="LineNr">35033 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35034" class="LineNr">35034 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35035" class="LineNr">35035 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: -<span id="L35036" class="LineNr">35036 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) -<span id="L35037" class="LineNr">35037 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35038" class="LineNr">35038 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) -<span id="L35039" class="LineNr">35039 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 -<span id="L35040" class="LineNr">35040 </span> } -<span id="L35041" class="LineNr">35041 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> -<span id="L35042" class="LineNr">35042 </span> { -<span id="L35043" class="LineNr">35043 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> -<span id="L35044" class="LineNr">35044 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35045" class="LineNr">35045 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: -<span id="L35046" class="LineNr">35046 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) -<span id="L35047" class="LineNr">35047 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) -<span id="L35048" class="LineNr">35048 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(esi+0x14)) <span class="subxComment"># Var-offset</span> -<span id="L35049" class="LineNr">35049 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) -<span id="L35050" class="LineNr">35050 </span> } -<span id="L35051" class="LineNr">35051 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: -<span id="L35052" class="LineNr">35052 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35053" class="LineNr">35053 </span> 5e/pop-to-esi -<span id="L35054" class="LineNr">35054 </span> 59/pop-to-ecx -<span id="L35055" class="LineNr">35055 </span> 58/pop-to-eax -<span id="L35056" class="LineNr">35056 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35057" class="LineNr">35057 </span> 89/<- %esp 5/r32/ebp -<span id="L35058" class="LineNr">35058 </span> 5d/pop-to-ebp -<span id="L35059" class="LineNr">35059 </span> c3/return -<span id="L35060" class="LineNr">35060 </span> -<span id="L35061" class="LineNr">35061 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> -<span id="L35062" class="LineNr">35062 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35063" class="LineNr">35063 </span> 55/push-ebp -<span id="L35064" class="LineNr">35064 </span> 89/<- %ebp 4/r32/esp -<span id="L35065" class="LineNr">35065 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35066" class="LineNr">35066 </span> 51/push-ecx -<span id="L35067" class="LineNr">35067 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> -<span id="L35068" class="LineNr">35068 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35069" class="LineNr">35069 </span> { -<span id="L35070" class="LineNr">35070 </span><span class="Constant">$find-matching-primitive:loop</span>: -<span id="L35071" class="LineNr">35071 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L35072" class="LineNr">35072 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L35073" class="LineNr">35073 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35074" class="LineNr">35074 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> -<span id="L35075" class="LineNr">35075 </span> { -<span id="L35076" class="LineNr">35076 </span> (<a href='mu.subx.html#L35099'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L35077" class="LineNr">35077 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35078" class="LineNr">35078 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35079" class="LineNr">35079 </span> 89/<- %eax 1/r32/ecx -<span id="L35080" class="LineNr">35080 </span> eb/jump $find-matching-primitive:end/disp8 -<span id="L35081" class="LineNr">35081 </span> } -<span id="L35082" class="LineNr">35082 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: -<span id="L35083" class="LineNr">35083 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L35084" class="LineNr">35084 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> -<span id="L35085" class="LineNr">35085 </span> 89/<- %ecx 0/r32/eax -<span id="L35086" class="LineNr">35086 </span> <span class="subxComment">#</span> -<span id="L35087" class="LineNr">35087 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35088" class="LineNr">35088 </span> } -<span id="L35089" class="LineNr">35089 </span> <span class="subxComment"># return null</span> -<span id="L35090" class="LineNr">35090 </span> b8/copy-to-eax 0/imm32 -<span id="L35091" class="LineNr">35091 </span><span class="Constant">$find-matching-primitive:end</span>: -<span id="L35092" class="LineNr">35092 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35093" class="LineNr">35093 </span> 59/pop-to-ecx -<span id="L35094" class="LineNr">35094 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35095" class="LineNr">35095 </span> 89/<- %esp 5/r32/ebp -<span id="L35096" class="LineNr">35096 </span> 5d/pop-to-ebp -<span id="L35097" class="LineNr">35097 </span> c3/return -<span id="L35098" class="LineNr">35098 </span> -<span id="L35099" class="LineNr">35099 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> -<span id="L35100" class="LineNr">35100 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> -<span id="L35101" class="LineNr">35101 </span> <span class="subxComment"># match, and all the output vars match.</span> -<span id="L35102" class="LineNr">35102 </span> <span class="subxComment"># Vars match if types match and registers match.</span> -<span id="L35103" class="LineNr">35103 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> -<span id="L35104" class="LineNr">35104 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> -<span id="L35105" class="LineNr">35105 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35106" class="LineNr">35106 </span> 55/push-ebp -<span id="L35107" class="LineNr">35107 </span> 89/<- %ebp 4/r32/esp -<span id="L35108" class="LineNr">35108 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35109" class="LineNr">35109 </span> 51/push-ecx -<span id="L35110" class="LineNr">35110 </span> 52/push-edx -<span id="L35111" class="LineNr">35111 </span> 53/push-ebx -<span id="L35112" class="LineNr">35112 </span> 56/push-esi -<span id="L35113" class="LineNr">35113 </span> 57/push-edi -<span id="L35114" class="LineNr">35114 </span> <span class="subxComment"># ecx = stmt</span> -<span id="L35115" class="LineNr">35115 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35116" class="LineNr">35116 </span> <span class="subxComment"># edx = primitive</span> -<span id="L35117" class="LineNr">35117 </span> 8b/-> *(ebp+0xc) 2/r32/edx -<span id="L35118" class="LineNr">35118 </span> { -<span id="L35119" class="LineNr">35119 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: -<span id="L35120" class="LineNr">35120 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> -<span id="L35121" class="LineNr">35121 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> -<span id="L35122" class="LineNr">35122 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35123" class="LineNr">35123 </span> 89/<- %esi 0/r32/eax -<span id="L35124" class="LineNr">35124 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> -<span id="L35125" class="LineNr">35125 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> -<span id="L35126" class="LineNr">35126 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> -<span id="L35127" class="LineNr">35127 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> -<span id="L35128" class="LineNr">35128 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35129" class="LineNr">35129 </span> 89/<- %edi 0/r32/eax -<span id="L35130" class="LineNr">35130 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> -<span id="L35131" class="LineNr">35131 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35132" class="LineNr">35132 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35133" class="LineNr">35133 </span> b8/copy-to-eax 0/imm32 -<span id="L35134" class="LineNr">35134 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35135" class="LineNr">35135 </span> } -<span id="L35136" class="LineNr">35136 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> -<span id="L35137" class="LineNr">35137 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> -<span id="L35138" class="LineNr">35138 </span> 89/<- %esi 0/r32/eax -<span id="L35139" class="LineNr">35139 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> -<span id="L35140" class="LineNr">35140 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> -<span id="L35141" class="LineNr">35141 </span> 89/<- %edi 0/r32/eax -<span id="L35142" class="LineNr">35142 </span> { -<span id="L35143" class="LineNr">35143 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: -<span id="L35144" class="LineNr">35144 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> -<span id="L35145" class="LineNr">35145 </span> { -<span id="L35146" class="LineNr">35146 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: -<span id="L35147" class="LineNr">35147 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L35148" class="LineNr">35148 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35149" class="LineNr">35149 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: -<span id="L35150" class="LineNr">35150 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35151" class="LineNr">35151 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 -<span id="L35152" class="LineNr">35152 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: -<span id="L35153" class="LineNr">35153 </span> <span class="subxComment"># return false</span> -<span id="L35154" class="LineNr">35154 </span> b8/copy-to-eax 0/imm32/false -<span id="L35155" class="LineNr">35155 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35156" class="LineNr">35156 </span> } -<span id="L35157" class="LineNr">35157 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L35158" class="LineNr">35158 </span> { -<span id="L35159" class="LineNr">35159 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: -<span id="L35160" class="LineNr">35160 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35161" class="LineNr">35161 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35162" class="LineNr">35162 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: -<span id="L35163" class="LineNr">35163 </span> b8/copy-to-eax 0/imm32/false -<span id="L35164" class="LineNr">35164 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35165" class="LineNr">35165 </span> } -<span id="L35166" class="LineNr">35166 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L35167" class="LineNr">35167 </span> { -<span id="L35168" class="LineNr">35168 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: -<span id="L35169" class="LineNr">35169 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L35170" class="LineNr">35170 </span> (<a href='mu.subx.html#L35259'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L35171" class="LineNr">35171 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35172" class="LineNr">35172 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35173" class="LineNr">35173 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: -<span id="L35174" class="LineNr">35174 </span> b8/copy-to-eax 0/imm32/false -<span id="L35175" class="LineNr">35175 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35176" class="LineNr">35176 </span> } -<span id="L35177" class="LineNr">35177 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: -<span id="L35178" class="LineNr">35178 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L35179" class="LineNr">35179 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L35180" class="LineNr">35180 </span> 89/<- %esi 0/r32/eax -<span id="L35181" class="LineNr">35181 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L35182" class="LineNr">35182 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L35183" class="LineNr">35183 </span> 89/<- %edi 0/r32/eax -<span id="L35184" class="LineNr">35184 </span> <span class="subxComment">#</span> -<span id="L35185" class="LineNr">35185 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35186" class="LineNr">35186 </span> } -<span id="L35187" class="LineNr">35187 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: -<span id="L35188" class="LineNr">35188 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> -<span id="L35189" class="LineNr">35189 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> -<span id="L35190" class="LineNr">35190 </span> 89/<- %esi 0/r32/eax -<span id="L35191" class="LineNr">35191 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> -<span id="L35192" class="LineNr">35192 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> -<span id="L35193" class="LineNr">35193 </span> 89/<- %edi 0/r32/eax -<span id="L35194" class="LineNr">35194 </span> { -<span id="L35195" class="LineNr">35195 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: -<span id="L35196" class="LineNr">35196 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> -<span id="L35197" class="LineNr">35197 </span> { -<span id="L35198" class="LineNr">35198 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: -<span id="L35199" class="LineNr">35199 </span> 81 7/subop/compare %esi 0/imm32 -<span id="L35200" class="LineNr">35200 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35201" class="LineNr">35201 </span> { -<span id="L35202" class="LineNr">35202 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: -<span id="L35203" class="LineNr">35203 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35204" class="LineNr">35204 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35205" class="LineNr">35205 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: -<span id="L35206" class="LineNr">35206 </span> <span class="subxComment"># return true</span> -<span id="L35207" class="LineNr">35207 </span> b8/copy-to-eax 1/imm32 -<span id="L35208" class="LineNr">35208 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35209" class="LineNr">35209 </span> } -<span id="L35210" class="LineNr">35210 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: -<span id="L35211" class="LineNr">35211 </span> <span class="subxComment"># return false</span> -<span id="L35212" class="LineNr">35212 </span> b8/copy-to-eax 0/imm32 -<span id="L35213" class="LineNr">35213 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35214" class="LineNr">35214 </span> } -<span id="L35215" class="LineNr">35215 </span> <span class="subxComment"># if (curr2 == 0) return false</span> -<span id="L35216" class="LineNr">35216 </span> { -<span id="L35217" class="LineNr">35217 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: -<span id="L35218" class="LineNr">35218 </span> 81 7/subop/compare %edi 0/imm32 -<span id="L35219" class="LineNr">35219 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35220" class="LineNr">35220 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: -<span id="L35221" class="LineNr">35221 </span> b8/copy-to-eax 0/imm32 -<span id="L35222" class="LineNr">35222 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35223" class="LineNr">35223 </span> } -<span id="L35224" class="LineNr">35224 </span> <span class="subxComment"># if (curr != curr2) return false</span> -<span id="L35225" class="LineNr">35225 </span> { -<span id="L35226" class="LineNr">35226 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: -<span id="L35227" class="LineNr">35227 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> -<span id="L35228" class="LineNr">35228 </span> (<a href='mu.subx.html#L35259'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> -<span id="L35229" class="LineNr">35229 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35230" class="LineNr">35230 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35231" class="LineNr">35231 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: -<span id="L35232" class="LineNr">35232 </span> b8/copy-to-eax 0/imm32 -<span id="L35233" class="LineNr">35233 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 -<span id="L35234" class="LineNr">35234 </span> } -<span id="L35235" class="LineNr">35235 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: -<span id="L35236" class="LineNr">35236 </span> <span class="subxComment"># curr = lookup(curr->next)</span> -<span id="L35237" class="LineNr">35237 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> -<span id="L35238" class="LineNr">35238 </span> 89/<- %esi 0/r32/eax -<span id="L35239" class="LineNr">35239 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> -<span id="L35240" class="LineNr">35240 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> -<span id="L35241" class="LineNr">35241 </span> 89/<- %edi 0/r32/eax -<span id="L35242" class="LineNr">35242 </span> <span class="subxComment">#</span> -<span id="L35243" class="LineNr">35243 </span> e9/jump <span class="Constant">loop</span>/disp32 -<span id="L35244" class="LineNr">35244 </span> } -<span id="L35245" class="LineNr">35245 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: -<span id="L35246" class="LineNr">35246 </span> b8/copy-to-eax 1/imm32 -<span id="L35247" class="LineNr">35247 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: -<span id="L35248" class="LineNr">35248 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35249" class="LineNr">35249 </span> 5f/pop-to-edi -<span id="L35250" class="LineNr">35250 </span> 5e/pop-to-esi -<span id="L35251" class="LineNr">35251 </span> 5b/pop-to-ebx -<span id="L35252" class="LineNr">35252 </span> 5a/pop-to-edx -<span id="L35253" class="LineNr">35253 </span> 59/pop-to-ecx -<span id="L35254" class="LineNr">35254 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35255" class="LineNr">35255 </span> 89/<- %esp 5/r32/ebp -<span id="L35256" class="LineNr">35256 </span> 5d/pop-to-ebp -<span id="L35257" class="LineNr">35257 </span> c3/return -<span id="L35258" class="LineNr">35258 </span> -<span id="L35259" class="LineNr">35259 </span><span class="subxFunction">operand-matches-primitive?</span>: <span class="subxComment"># s: (addr stmt-var), prim-var: (addr var) -> result/eax: boolean</span> -<span id="L35260" class="LineNr">35260 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35261" class="LineNr">35261 </span> 55/push-ebp -<span id="L35262" class="LineNr">35262 </span> 89/<- %ebp 4/r32/esp -<span id="L35263" class="LineNr">35263 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35264" class="LineNr">35264 </span> 51/push-ecx -<span id="L35265" class="LineNr">35265 </span> 52/push-edx -<span id="L35266" class="LineNr">35266 </span> 53/push-ebx -<span id="L35267" class="LineNr">35267 </span> 56/push-esi -<span id="L35268" class="LineNr">35268 </span> 57/push-edi -<span id="L35269" class="LineNr">35269 </span> <span class="subxComment"># ecx = s</span> -<span id="L35270" class="LineNr">35270 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35271" class="LineNr">35271 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> -<span id="L35272" class="LineNr">35272 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> -<span id="L35273" class="LineNr">35273 </span> 89/<- %esi 0/r32/eax -<span id="L35274" class="LineNr">35274 </span> <span class="subxComment"># edi = prim-var</span> -<span id="L35275" class="LineNr">35275 </span> 8b/-> *(ebp+0xc) 7/r32/edi -<span id="L35276" class="LineNr">35276 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: -<span id="L35277" class="LineNr">35277 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> -<span id="L35278" class="LineNr">35278 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> -<span id="L35279" class="LineNr">35279 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35280" class="LineNr">35280 </span> 89/<- %ebx 0/r32/eax -<span id="L35281" class="LineNr">35281 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> -<span id="L35282" class="LineNr">35282 </span> { -<span id="L35283" class="LineNr">35283 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35284" class="LineNr">35284 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35285" class="LineNr">35285 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: -<span id="L35286" class="LineNr">35286 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> -<span id="L35287" class="LineNr">35287 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35288" class="LineNr">35288 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> -<span id="L35289" class="LineNr">35289 </span> 81 7/subop/compare *eax 0/imm32/false -<span id="L35290" class="LineNr">35290 </span> { -<span id="L35291" class="LineNr">35291 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35292" class="LineNr">35292 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35293" class="LineNr">35293 </span> } -<span id="L35294" class="LineNr">35294 </span> <span class="subxS1Comment"># .</span> -<span id="L35295" class="LineNr">35295 </span> 89/<- %ebx 0/r32/eax -<span id="L35296" class="LineNr">35296 </span> } -<span id="L35297" class="LineNr">35297 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> -<span id="L35298" class="LineNr">35298 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> -<span id="L35299" class="LineNr">35299 </span> (<a href='mu.subx.html#L35436'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> -<span id="L35300" class="LineNr">35300 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35301" class="LineNr">35301 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 -<span id="L35302" class="LineNr">35302 </span> { -<span id="L35303" class="LineNr">35303 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: -<span id="L35304" class="LineNr">35304 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> -<span id="L35305" class="LineNr">35305 </span> { -<span id="L35306" class="LineNr">35306 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35307" class="LineNr">35307 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 -<span id="L35308" class="LineNr">35308 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35309" class="LineNr">35309 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35310" class="LineNr">35310 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35311" class="LineNr">35311 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35312" class="LineNr">35312 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: -<span id="L35313" class="LineNr">35313 </span> e9/jump $operand-matches-primitive?:return-true/disp32 -<span id="L35314" class="LineNr">35314 </span> } -<span id="L35315" class="LineNr">35315 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> -<span id="L35316" class="LineNr">35316 </span> { -<span id="L35317" class="LineNr">35317 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35318" class="LineNr">35318 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L35319" class="LineNr">35319 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> -<span id="L35320" class="LineNr">35320 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 -<span id="L35321" class="LineNr">35321 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> -<span id="L35322" class="LineNr">35322 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35323" class="LineNr">35323 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: -<span id="L35324" class="LineNr">35324 </span> e9/jump $operand-matches-primitive?:return-false/disp32 -<span id="L35325" class="LineNr">35325 </span> } -<span id="L35326" class="LineNr">35326 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> -<span id="L35327" class="LineNr">35327 </span> { -<span id="L35328" class="LineNr">35328 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> -<span id="L35329" class="LineNr">35329 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> -<span id="L35330" class="LineNr">35330 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35331" class="LineNr">35331 </span> 89/<- %ebx 0/r32/eax -<span id="L35332" class="LineNr">35332 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> -<span id="L35333" class="LineNr">35333 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> -<span id="L35334" class="LineNr">35334 </span> 89/<- %ecx 0/r32/eax -<span id="L35335" class="LineNr">35335 </span> <span class="subxComment"># if (vreg == preg) break</span> -<span id="L35336" class="LineNr">35336 </span> 39/compare %ecx 3/r32/ebx -<span id="L35337" class="LineNr">35337 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35338" class="LineNr">35338 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: -<span id="L35339" class="LineNr">35339 </span> <span class="subxComment"># if either address is 0, return false</span> -<span id="L35340" class="LineNr">35340 </span> 81 7/subop/compare %ebx 0/imm32 -<span id="L35341" class="LineNr">35341 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L35342" class="LineNr">35342 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L35343" class="LineNr">35343 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L35344" class="LineNr">35344 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> -<span id="L35345" class="LineNr">35345 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"*"</span>) <span class="subxComment"># Any-register => eax</span> -<span id="L35346" class="LineNr">35346 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35347" class="LineNr">35347 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35348" class="LineNr">35348 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: -<span id="L35349" class="LineNr">35349 </span> <span class="subxComment"># if string contents aren't equal, return false</span> -<span id="L35350" class="LineNr">35350 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> -<span id="L35351" class="LineNr">35351 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35352" class="LineNr">35352 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 -<span id="L35353" class="LineNr">35353 </span> } -<span id="L35354" class="LineNr">35354 </span> } -<span id="L35355" class="LineNr">35355 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: -<span id="L35356" class="LineNr">35356 </span> b8/copy-to-eax 1/imm32/true -<span id="L35357" class="LineNr">35357 </span> eb/jump $operand-matches-primitive?:end/disp8 -<span id="L35358" class="LineNr">35358 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: -<span id="L35359" class="LineNr">35359 </span> b8/copy-to-eax 0/imm32/false -<span id="L35360" class="LineNr">35360 </span><span class="Constant">$operand-matches-primitive?:end</span>: -<span id="L35361" class="LineNr">35361 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35362" class="LineNr">35362 </span> 5f/pop-to-edi -<span id="L35363" class="LineNr">35363 </span> 5e/pop-to-esi -<span id="L35364" class="LineNr">35364 </span> 5b/pop-to-ebx -<span id="L35365" class="LineNr">35365 </span> 5a/pop-to-edx -<span id="L35366" class="LineNr">35366 </span> 59/pop-to-ecx -<span id="L35367" class="LineNr">35367 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35368" class="LineNr">35368 </span> 89/<- %esp 5/r32/ebp -<span id="L35369" class="LineNr">35369 </span> 5d/pop-to-ebp -<span id="L35370" class="LineNr">35370 </span> c3/return -<span id="L35371" class="LineNr">35371 </span> -<span id="L35372" class="LineNr">35372 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> -<span id="L35373" class="LineNr">35373 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35374" class="LineNr">35374 </span> 55/push-ebp -<span id="L35375" class="LineNr">35375 </span> 89/<- %ebp 4/r32/esp -<span id="L35376" class="LineNr">35376 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35377" class="LineNr">35377 </span> 51/push-ecx -<span id="L35378" class="LineNr">35378 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> -<span id="L35379" class="LineNr">35379 </span> 8b/-> *(ebp+8) 1/r32/ecx -<span id="L35380" class="LineNr">35380 </span> { -<span id="L35381" class="LineNr">35381 </span> <span class="subxComment"># if (curr == null) break</span> -<span id="L35382" class="LineNr">35382 </span> 81 7/subop/compare %ecx 0/imm32 -<span id="L35383" class="LineNr">35383 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35384" class="LineNr">35384 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> -<span id="L35385" class="LineNr">35385 </span><span class="CommentedCode">#? (flush Stderr)</span> -<span id="L35386" class="LineNr">35386 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> -<span id="L35387" class="LineNr">35387 </span> { -<span id="L35388" class="LineNr">35388 </span> (<a href='mu.subx.html#L35411'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> -<span id="L35389" class="LineNr">35389 </span> 3d/compare-eax-and 0/imm32/false -<span id="L35390" class="LineNr">35390 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 -<span id="L35391" class="LineNr">35391 </span> 89/<- %eax 1/r32/ecx -<span id="L35392" class="LineNr">35392 </span> eb/jump $find-matching-function:end/disp8 -<span id="L35393" class="LineNr">35393 </span> } -<span id="L35394" class="LineNr">35394 </span> <span class="subxComment"># curr = curr->next</span> -<span id="L35395" class="LineNr">35395 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> -<span id="L35396" class="LineNr">35396 </span> 89/<- %ecx 0/r32/eax -<span id="L35397" class="LineNr">35397 </span> <span class="subxComment">#</span> -<span id="L35398" class="LineNr">35398 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35399" class="LineNr">35399 </span> } -<span id="L35400" class="LineNr">35400 </span> <span class="subxComment"># return null</span> -<span id="L35401" class="LineNr">35401 </span> b8/copy-to-eax 0/imm32 -<span id="L35402" class="LineNr">35402 </span><span class="Constant">$find-matching-function:end</span>: -<span id="L35403" class="LineNr">35403 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35404" class="LineNr">35404 </span> 59/pop-to-ecx -<span id="L35405" class="LineNr">35405 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35406" class="LineNr">35406 </span> 89/<- %esp 5/r32/ebp -<span id="L35407" class="LineNr">35407 </span> 5d/pop-to-ebp -<span id="L35408" class="LineNr">35408 </span> c3/return -<span id="L35409" class="LineNr">35409 </span> -<span id="L35410" class="LineNr">35410 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> -<span id="L35411" class="LineNr">35411 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> -<span id="L35412" class="LineNr">35412 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35413" class="LineNr">35413 </span> 55/push-ebp -<span id="L35414" class="LineNr">35414 </span> 89/<- %ebp 4/r32/esp -<span id="L35415" class="LineNr">35415 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35416" class="LineNr">35416 </span> 51/push-ecx -<span id="L35417" class="LineNr">35417 </span> <span class="subxComment"># return function->name == stmt->operation</span> -<span id="L35418" class="LineNr">35418 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> -<span id="L35419" class="LineNr">35419 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35420" class="LineNr">35420 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> -<span id="L35421" class="LineNr">35421 </span> 89/<- %ecx 0/r32/eax -<span id="L35422" class="LineNr">35422 </span> <span class="subxComment"># eax = lookup(function->name)</span> -<span id="L35423" class="LineNr">35423 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L35424" class="LineNr">35424 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> -<span id="L35425" class="LineNr">35425 </span> (<a href='../105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> -<span id="L35426" class="LineNr">35426 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: -<span id="L35427" class="LineNr">35427 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35428" class="LineNr">35428 </span> 59/pop-to-ecx -<span id="L35429" class="LineNr">35429 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35430" class="LineNr">35430 </span> 89/<- %esp 5/r32/ebp -<span id="L35431" class="LineNr">35431 </span> 5d/pop-to-ebp -<span id="L35432" class="LineNr">35432 </span> c3/return -<span id="L35433" class="LineNr">35433 </span> -<span id="L35434" class="LineNr">35434 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> -<span id="L35435" class="LineNr">35435 </span><span class="subxComment"># primitives.</span> -<span id="L35436" class="LineNr">35436 </span><span class="subxFunction">subx-type-category-match?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> -<span id="L35437" class="LineNr">35437 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35438" class="LineNr">35438 </span> 55/push-ebp -<span id="L35439" class="LineNr">35439 </span> 89/<- %ebp 4/r32/esp -<span id="L35440" class="LineNr">35440 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35441" class="LineNr">35441 </span> 51/push-ecx -<span id="L35442" class="LineNr">35442 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> -<span id="L35443" class="LineNr">35443 </span> (<a href='mu.subx.html#L35459'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> -<span id="L35444" class="LineNr">35444 </span> 89/<- %ecx 0/r32/eax -<span id="L35445" class="LineNr">35445 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> -<span id="L35446" class="LineNr">35446 </span> (<a href='mu.subx.html#L35459'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> -<span id="L35447" class="LineNr">35447 </span> <span class="subxComment"># return cata == catb</span> -<span id="L35448" class="LineNr">35448 </span> 39/compare %eax 1/r32/ecx -<span id="L35449" class="LineNr">35449 </span> 0f 94/set-byte-if-= %al -<span id="L35450" class="LineNr">35450 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35451" class="LineNr">35451 </span><span class="Constant">$subx-type-category-match?:end</span>: -<span id="L35452" class="LineNr">35452 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35453" class="LineNr">35453 </span> 59/pop-to-ecx -<span id="L35454" class="LineNr">35454 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35455" class="LineNr">35455 </span> 89/<- %esp 5/r32/ebp -<span id="L35456" class="LineNr">35456 </span> 5d/pop-to-ebp -<span id="L35457" class="LineNr">35457 </span> c3/return -<span id="L35458" class="LineNr">35458 </span> -<span id="L35459" class="LineNr">35459 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> -<span id="L35460" class="LineNr">35460 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35461" class="LineNr">35461 </span> 55/push-ebp -<span id="L35462" class="LineNr">35462 </span> 89/<- %ebp 4/r32/esp -<span id="L35463" class="LineNr">35463 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35464" class="LineNr">35464 </span> 51/push-ecx -<span id="L35465" class="LineNr">35465 </span> <span class="subxComment"># var lit?/ecx: boolean = is-literal-type?(a)</span> -<span id="L35466" class="LineNr">35466 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> -<span id="L35467" class="LineNr">35467 </span> 89/<- %ecx 0/r32/eax -<span id="L35468" class="LineNr">35468 </span> <span class="subxComment"># var float?/eax: int = is-float?(a)</span> -<span id="L35469" class="LineNr">35469 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> -<span id="L35470" class="LineNr">35470 </span> <span class="subxComment"># set bits for lit? and float?</span> -<span id="L35471" class="LineNr">35471 </span> c1/shift 4/subop/left %ecx 1/imm8 -<span id="L35472" class="LineNr">35472 </span> 09/or %eax 1/r32/ecx -<span id="L35473" class="LineNr">35473 </span><span class="Constant">$type-category:end</span>: -<span id="L35474" class="LineNr">35474 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35475" class="LineNr">35475 </span> 59/pop-to-ecx -<span id="L35476" class="LineNr">35476 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35477" class="LineNr">35477 </span> 89/<- %esp 5/r32/ebp -<span id="L35478" class="LineNr">35478 </span> 5d/pop-to-ebp -<span id="L35479" class="LineNr">35479 </span> c3/return -<span id="L35480" class="LineNr">35480 </span> -<span id="L35481" class="LineNr">35481 </span><span class="subxFunction">is-simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> -<span id="L35482" class="LineNr">35482 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35483" class="LineNr">35483 </span> 55/push-ebp -<span id="L35484" class="LineNr">35484 </span> 89/<- %ebp 4/r32/esp -<span id="L35485" class="LineNr">35485 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35486" class="LineNr">35486 </span> 51/push-ecx -<span id="L35487" class="LineNr">35487 </span> <span class="subxComment"># ecx = n</span> -<span id="L35488" class="LineNr">35488 </span> 8b/-> *(ebp+0xc) 1/r32/ecx -<span id="L35489" class="LineNr">35489 </span> <span class="subxComment"># return (a->value == n)</span> -<span id="L35490" class="LineNr">35490 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35491" class="LineNr">35491 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> -<span id="L35492" class="LineNr">35492 </span> 0f 94/set-byte-if-= %al -<span id="L35493" class="LineNr">35493 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35494" class="LineNr">35494 </span><span class="Constant">$is-simple-mu-type?:end</span>: -<span id="L35495" class="LineNr">35495 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35496" class="LineNr">35496 </span> 59/pop-to-ecx -<span id="L35497" class="LineNr">35497 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35498" class="LineNr">35498 </span> 89/<- %esp 5/r32/ebp -<span id="L35499" class="LineNr">35499 </span> 5d/pop-to-ebp -<span id="L35500" class="LineNr">35500 </span> c3/return -<span id="L35501" class="LineNr">35501 </span> -<span id="L35502" class="LineNr">35502 </span><span class="subxFunction">is-mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L35503" class="LineNr">35503 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35504" class="LineNr">35504 </span> 55/push-ebp -<span id="L35505" class="LineNr">35505 </span> 89/<- %ebp 4/r32/esp -<span id="L35506" class="LineNr">35506 </span> <span class="subxComment"># eax = a</span> -<span id="L35507" class="LineNr">35507 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35508" class="LineNr">35508 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L35509" class="LineNr">35509 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35510" class="LineNr">35510 </span> { -<span id="L35511" class="LineNr">35511 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35512" class="LineNr">35512 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35513" class="LineNr">35513 </span> } -<span id="L35514" class="LineNr">35514 </span> <span class="subxComment"># return (a->value == addr)</span> -<span id="L35515" class="LineNr">35515 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> -<span id="L35516" class="LineNr">35516 </span> 0f 94/set-byte-if-= %al -<span id="L35517" class="LineNr">35517 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35518" class="LineNr">35518 </span><span class="Constant">$is-mu-addr-type?:end</span>: -<span id="L35519" class="LineNr">35519 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35520" class="LineNr">35520 </span> 89/<- %esp 5/r32/ebp -<span id="L35521" class="LineNr">35521 </span> 5d/pop-to-ebp -<span id="L35522" class="LineNr">35522 </span> c3/return -<span id="L35523" class="LineNr">35523 </span> -<span id="L35524" class="LineNr">35524 </span><span class="subxFunction">is-mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L35525" class="LineNr">35525 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35526" class="LineNr">35526 </span> 55/push-ebp -<span id="L35527" class="LineNr">35527 </span> 89/<- %ebp 4/r32/esp -<span id="L35528" class="LineNr">35528 </span> <span class="subxComment"># eax = a</span> -<span id="L35529" class="LineNr">35529 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35530" class="LineNr">35530 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L35531" class="LineNr">35531 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35532" class="LineNr">35532 </span> { -<span id="L35533" class="LineNr">35533 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35534" class="LineNr">35534 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35535" class="LineNr">35535 </span> } -<span id="L35536" class="LineNr">35536 </span> <span class="subxComment"># return (a->value == array)</span> -<span id="L35537" class="LineNr">35537 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> -<span id="L35538" class="LineNr">35538 </span> 0f 94/set-byte-if-= %al -<span id="L35539" class="LineNr">35539 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35540" class="LineNr">35540 </span><span class="Constant">$is-mu-array-type?:end</span>: -<span id="L35541" class="LineNr">35541 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35542" class="LineNr">35542 </span> 89/<- %esp 5/r32/ebp -<span id="L35543" class="LineNr">35543 </span> 5d/pop-to-ebp -<span id="L35544" class="LineNr">35544 </span> c3/return -<span id="L35545" class="LineNr">35545 </span> -<span id="L35546" class="LineNr">35546 </span><span class="subxFunction">is-mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L35547" class="LineNr">35547 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35548" class="LineNr">35548 </span> 55/push-ebp -<span id="L35549" class="LineNr">35549 </span> 89/<- %ebp 4/r32/esp -<span id="L35550" class="LineNr">35550 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L35551" class="LineNr">35551 </span> 56/push-esi -<span id="L35552" class="LineNr">35552 </span> <span class="subxComment"># esi = a</span> -<span id="L35553" class="LineNr">35553 </span> 8b/-> *(ebp+8) 6/r32/esi -<span id="L35554" class="LineNr">35554 </span> <span class="subxComment"># if (a->is-atom?) return false</span> -<span id="L35555" class="LineNr">35555 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35556" class="LineNr">35556 </span> 0f 85/jump-if-!= $is-mu-string-type?:return-false/disp32 -<span id="L35557" class="LineNr">35557 </span> <span class="subxComment"># if a is not an addr, return false</span> -<span id="L35558" class="LineNr">35558 </span> (<a href='mu.subx.html#L35502'>is-mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> -<span id="L35559" class="LineNr">35559 </span> 3d/compare-eax-with 0/imm32/false -<span id="L35560" class="LineNr">35560 </span> 0f 84/jump-if-= $is-mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> -<span id="L35561" class="LineNr">35561 </span> <span class="subxComment"># if a is not an array, return false</span> -<span id="L35562" class="LineNr">35562 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35563" class="LineNr">35563 </span> (<a href='mu.subx.html#L35524'>is-mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> -<span id="L35564" class="LineNr">35564 </span> 3d/compare-eax-with 0/imm32/false -<span id="L35565" class="LineNr">35565 </span> 74/jump-if-= $is-mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> -<span id="L35566" class="LineNr">35566 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> -<span id="L35567" class="LineNr">35567 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35568" class="LineNr">35568 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> -<span id="L35569" class="LineNr">35569 </span> <span class="subxComment"># if p is an atom, return false</span> -<span id="L35570" class="LineNr">35570 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35571" class="LineNr">35571 </span> 75/jump-if-!= $is-mu-string-type?:return-false/disp8 -<span id="L35572" class="LineNr">35572 </span> <span class="subxComment"># return (p == byte)</span> -<span id="L35573" class="LineNr">35573 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35574" class="LineNr">35574 </span> (<a href='mu.subx.html#L35481'>is-simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> -<span id="L35575" class="LineNr">35575 </span> eb/jump $is-mu-string-type?:end/disp8 -<span id="L35576" class="LineNr">35576 </span><span class="Constant">$is-mu-string-type?:return-false</span>: -<span id="L35577" class="LineNr">35577 </span> b8/copy-to-eax 0/imm32/false -<span id="L35578" class="LineNr">35578 </span><span class="Constant">$is-mu-string-type?:end</span>: -<span id="L35579" class="LineNr">35579 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L35580" class="LineNr">35580 </span> 5e/pop-to-esi -<span id="L35581" class="LineNr">35581 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35582" class="LineNr">35582 </span> 89/<- %esp 5/r32/ebp -<span id="L35583" class="LineNr">35583 </span> 5d/pop-to-ebp -<span id="L35584" class="LineNr">35584 </span> c3/return -<span id="L35585" class="LineNr">35585 </span> -<span id="L35586" class="LineNr">35586 </span><span class="subxFunction">is-mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> -<span id="L35587" class="LineNr">35587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35588" class="LineNr">35588 </span> 55/push-ebp -<span id="L35589" class="LineNr">35589 </span> 89/<- %ebp 4/r32/esp -<span id="L35590" class="LineNr">35590 </span> <span class="subxComment"># eax = a</span> -<span id="L35591" class="LineNr">35591 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L35592" class="LineNr">35592 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> -<span id="L35593" class="LineNr">35593 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> -<span id="L35594" class="LineNr">35594 </span> { -<span id="L35595" class="LineNr">35595 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L35596" class="LineNr">35596 </span> (<a href='../120allocate.subx.html#L256'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> -<span id="L35597" class="LineNr">35597 </span> } -<span id="L35598" class="LineNr">35598 </span> <span class="subxComment"># return (a->value == stream)</span> -<span id="L35599" class="LineNr">35599 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> -<span id="L35600" class="LineNr">35600 </span> 0f 94/set-byte-if-= %al -<span id="L35601" class="LineNr">35601 </span> 81 4/subop/and %eax 0xff/imm32 -<span id="L35602" class="LineNr">35602 </span><span class="Constant">$is-mu-stream-type?:end</span>: -<span id="L35603" class="LineNr">35603 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35604" class="LineNr">35604 </span> 89/<- %esp 5/r32/ebp -<span id="L35605" class="LineNr">35605 </span> 5d/pop-to-ebp -<span id="L35606" class="LineNr">35606 </span> c3/return -<span id="L35607" class="LineNr">35607 </span> -<span id="L35608" class="LineNr">35608 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: -<span id="L35609" class="LineNr">35609 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> -<span id="L35610" class="LineNr">35610 </span> <span class="subxComment"># increment foo</span> -<span id="L35611" class="LineNr">35611 </span> <span class="subxComment"># =></span> -<span id="L35612" class="LineNr">35612 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> -<span id="L35613" class="LineNr">35613 </span> <span class="subxComment">#</span> -<span id="L35614" class="LineNr">35614 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L35615" class="LineNr">35615 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L35616" class="LineNr">35616 </span> <span class="subxComment"># type: int</span> -<span id="L35617" class="LineNr">35617 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L35618" class="LineNr">35618 </span> <span class="subxComment">#</span> -<span id="L35619" class="LineNr">35619 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L35620" class="LineNr">35620 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L35621" class="LineNr">35621 </span> <span class="subxComment"># inouts: int/mem</span> -<span id="L35622" class="LineNr">35622 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L35623" class="LineNr">35623 </span> <span class="subxComment">#</span> -<span id="L35624" class="LineNr">35624 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35625" class="LineNr">35625 </span> 55/push-ebp -<span id="L35626" class="LineNr">35626 </span> 89/<- %ebp 4/r32/esp -<span id="L35627" class="LineNr">35627 </span> <span class="subxComment"># setup</span> -<span id="L35628" class="LineNr">35628 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35629" class="LineNr">35629 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35630" class="LineNr">35630 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> -<span id="L35631" class="LineNr">35631 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: -<span id="L35632" class="LineNr">35632 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35633" class="LineNr">35633 </span> 68/push 0/imm32/right:null -<span id="L35634" class="LineNr">35634 </span> 68/push 0/imm32/right:null -<span id="L35635" class="LineNr">35635 </span> 68/push 0/imm32/left:unused -<span id="L35636" class="LineNr">35636 </span> 68/push 1/imm32/value:int -<span id="L35637" class="LineNr">35637 </span> 68/push 1/imm32/is-atom?:true -<span id="L35638" class="LineNr">35638 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35639" class="LineNr">35639 </span> 89/<- %ecx 4/r32/esp -<span id="L35640" class="LineNr">35640 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: -<span id="L35641" class="LineNr">35641 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L35642" class="LineNr">35642 </span> 68/push 0/imm32/no-register -<span id="L35643" class="LineNr">35643 </span> 68/push 0/imm32/no-register -<span id="L35644" class="LineNr">35644 </span> 68/push -8/imm32/stack-offset -<span id="L35645" class="LineNr">35645 </span> 68/push 1/imm32/block-depth -<span id="L35646" class="LineNr">35646 </span> 51/push-ecx/type -<span id="L35647" class="LineNr">35647 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35648" class="LineNr">35648 </span> 68/push 0/imm32/name -<span id="L35649" class="LineNr">35649 </span> 68/push 0/imm32/name -<span id="L35650" class="LineNr">35650 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35651" class="LineNr">35651 </span> 89/<- %ecx 4/r32/esp -<span id="L35652" class="LineNr">35652 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: -<span id="L35653" class="LineNr">35653 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L35654" class="LineNr">35654 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35655" class="LineNr">35655 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L35656" class="LineNr">35656 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: -<span id="L35657" class="LineNr">35657 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L35658" class="LineNr">35658 </span> 68/push 0/imm32/is-deref:false -<span id="L35659" class="LineNr">35659 </span> 68/push 0/imm32/next -<span id="L35660" class="LineNr">35660 </span> 68/push 0/imm32/next -<span id="L35661" class="LineNr">35661 </span> 51/push-ecx/var-foo -<span id="L35662" class="LineNr">35662 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35663" class="LineNr">35663 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35664" class="LineNr">35664 </span> 89/<- %ebx 4/r32/esp -<span id="L35665" class="LineNr">35665 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: -<span id="L35666" class="LineNr">35666 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35667" class="LineNr">35667 </span> 68/push 0/imm32/no-outputs -<span id="L35668" class="LineNr">35668 </span> 68/push 0/imm32/no-outputs -<span id="L35669" class="LineNr">35669 </span> 53/push-ebx/inouts -<span id="L35670" class="LineNr">35670 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35671" class="LineNr">35671 </span> 68/push 0/imm32/operation -<span id="L35672" class="LineNr">35672 </span> 68/push 0/imm32/operation -<span id="L35673" class="LineNr">35673 </span> 68/push 1/imm32/tag -<span id="L35674" class="LineNr">35674 </span> 89/<- %esi 4/r32/esp -<span id="L35675" class="LineNr">35675 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: -<span id="L35676" class="LineNr">35676 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L35677" class="LineNr">35677 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35678" class="LineNr">35678 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L35679" class="LineNr">35679 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: -<span id="L35680" class="LineNr">35680 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L35681" class="LineNr">35681 </span> 68/push 0/imm32/next -<span id="L35682" class="LineNr">35682 </span> 68/push 0/imm32/next -<span id="L35683" class="LineNr">35683 </span> 68/push 0/imm32/no-x32 -<span id="L35684" class="LineNr">35684 </span> 68/push 0/imm32/no-xm32 -<span id="L35685" class="LineNr">35685 </span> 68/push 0/imm32/no-disp32 -<span id="L35686" class="LineNr">35686 </span> 68/push 0/imm32/no-imm8 -<span id="L35687" class="LineNr">35687 </span> 68/push 0/imm32/no-imm32 -<span id="L35688" class="LineNr">35688 </span> 68/push 0/imm32/no-r32 -<span id="L35689" class="LineNr">35689 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L35690" class="LineNr">35690 </span> 68/push 0/imm32/subx-name -<span id="L35691" class="LineNr">35691 </span> 68/push 0/imm32/subx-name -<span id="L35692" class="LineNr">35692 </span> 68/push 0/imm32/no-outputs -<span id="L35693" class="LineNr">35693 </span> 68/push 0/imm32/no-outputs -<span id="L35694" class="LineNr">35694 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L35695" class="LineNr">35695 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35696" class="LineNr">35696 </span> 68/push 0/imm32/name -<span id="L35697" class="LineNr">35697 </span> 68/push 0/imm32/name -<span id="L35698" class="LineNr">35698 </span> 89/<- %ebx 4/r32/esp -<span id="L35699" class="LineNr">35699 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: -<span id="L35700" class="LineNr">35700 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L35701" class="LineNr">35701 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L35702" class="LineNr">35702 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: -<span id="L35703" class="LineNr">35703 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L35704" class="LineNr">35704 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L35705" class="LineNr">35705 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L35706" class="LineNr">35706 </span> <span class="subxComment"># convert</span> -<span id="L35707" class="LineNr">35707 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L35708" class="LineNr">35708 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35709" class="LineNr">35709 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35710" class="Folded">35710 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35716" class="LineNr">35716 </span> <span class="subxComment"># check output</span> -<span id="L35717" class="LineNr">35717 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment *(ebp+0xfffffff8)"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive"</span>) -<span id="L35718" class="LineNr">35718 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35719" class="LineNr">35719 </span> 89/<- %esp 5/r32/ebp -<span id="L35720" class="LineNr">35720 </span> 5d/pop-to-ebp -<span id="L35721" class="LineNr">35721 </span> c3/return -<span id="L35722" class="LineNr">35722 </span> -<span id="L35723" class="LineNr">35723 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: -<span id="L35724" class="LineNr">35724 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> -<span id="L35725" class="LineNr">35725 </span> <span class="subxComment"># foo <- increment</span> -<span id="L35726" class="LineNr">35726 </span> <span class="subxComment"># =></span> -<span id="L35727" class="LineNr">35727 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L35728" class="LineNr">35728 </span> <span class="subxComment">#</span> -<span id="L35729" class="LineNr">35729 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L35730" class="LineNr">35730 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L35731" class="LineNr">35731 </span> <span class="subxComment"># type: int</span> -<span id="L35732" class="LineNr">35732 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L35733" class="LineNr">35733 </span> <span class="subxComment">#</span> -<span id="L35734" class="LineNr">35734 </span> <span class="subxComment"># There's a primitive with this info:</span> -<span id="L35735" class="LineNr">35735 </span> <span class="subxComment"># name: 'increment'</span> -<span id="L35736" class="LineNr">35736 </span> <span class="subxComment"># out: int/reg</span> -<span id="L35737" class="LineNr">35737 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L35738" class="LineNr">35738 </span> <span class="subxComment">#</span> -<span id="L35739" class="LineNr">35739 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35740" class="LineNr">35740 </span> 55/push-ebp -<span id="L35741" class="LineNr">35741 </span> 89/<- %ebp 4/r32/esp -<span id="L35742" class="LineNr">35742 </span> <span class="subxComment"># setup</span> -<span id="L35743" class="LineNr">35743 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35744" class="LineNr">35744 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35745" class="LineNr">35745 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: -<span id="L35746" class="LineNr">35746 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35747" class="LineNr">35747 </span> 68/push 0/imm32/right:null -<span id="L35748" class="LineNr">35748 </span> 68/push 0/imm32/right:null -<span id="L35749" class="LineNr">35749 </span> 68/push 0/imm32/left:unused -<span id="L35750" class="LineNr">35750 </span> 68/push 1/imm32/value:int -<span id="L35751" class="LineNr">35751 </span> 68/push 1/imm32/is-atom?:true -<span id="L35752" class="LineNr">35752 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35753" class="LineNr">35753 </span> 89/<- %ecx 4/r32/esp -<span id="L35754" class="LineNr">35754 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: -<span id="L35755" class="LineNr">35755 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L35756" class="LineNr">35756 </span> 68/push 0/imm32/register -<span id="L35757" class="LineNr">35757 </span> 68/push 0/imm32/register -<span id="L35758" class="LineNr">35758 </span> 68/push 0/imm32/no-stack-offset -<span id="L35759" class="LineNr">35759 </span> 68/push 1/imm32/block-depth -<span id="L35760" class="LineNr">35760 </span> 51/push-ecx -<span id="L35761" class="LineNr">35761 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35762" class="LineNr">35762 </span> 68/push 0/imm32/name -<span id="L35763" class="LineNr">35763 </span> 68/push 0/imm32/name -<span id="L35764" class="LineNr">35764 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35765" class="LineNr">35765 </span> 89/<- %ecx 4/r32/esp -<span id="L35766" class="LineNr">35766 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: -<span id="L35767" class="LineNr">35767 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L35768" class="LineNr">35768 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35769" class="LineNr">35769 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L35770" class="LineNr">35770 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: -<span id="L35771" class="LineNr">35771 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L35772" class="LineNr">35772 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35773" class="LineNr">35773 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L35774" class="LineNr">35774 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: -<span id="L35775" class="LineNr">35775 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L35776" class="LineNr">35776 </span> 68/push 0/imm32/is-deref:false -<span id="L35777" class="LineNr">35777 </span> 68/push 0/imm32/next -<span id="L35778" class="LineNr">35778 </span> 68/push 0/imm32/next -<span id="L35779" class="LineNr">35779 </span> 51/push-ecx/var-foo -<span id="L35780" class="LineNr">35780 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35781" class="LineNr">35781 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35782" class="LineNr">35782 </span> 89/<- %ebx 4/r32/esp -<span id="L35783" class="LineNr">35783 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: -<span id="L35784" class="LineNr">35784 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35785" class="LineNr">35785 </span> 53/push-ebx/outputs -<span id="L35786" class="LineNr">35786 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35787" class="LineNr">35787 </span> 68/push 0/imm32/no-inouts -<span id="L35788" class="LineNr">35788 </span> 68/push 0/imm32/no-inouts -<span id="L35789" class="LineNr">35789 </span> 68/push 0/imm32/operation -<span id="L35790" class="LineNr">35790 </span> 68/push 0/imm32/operation -<span id="L35791" class="LineNr">35791 </span> 68/push 1/imm32 -<span id="L35792" class="LineNr">35792 </span> 89/<- %esi 4/r32/esp -<span id="L35793" class="LineNr">35793 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: -<span id="L35794" class="LineNr">35794 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L35795" class="LineNr">35795 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35796" class="LineNr">35796 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L35797" class="LineNr">35797 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: -<span id="L35798" class="LineNr">35798 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L35799" class="LineNr">35799 </span> 68/push 0/imm32/register -<span id="L35800" class="LineNr">35800 </span> 68/push 0/imm32/register -<span id="L35801" class="LineNr">35801 </span> 68/push 0/imm32/no-stack-offset -<span id="L35802" class="LineNr">35802 </span> 68/push 1/imm32/block-depth -<span id="L35803" class="LineNr">35803 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L35804" class="LineNr">35804 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35805" class="LineNr">35805 </span> 68/push 0/imm32/name -<span id="L35806" class="LineNr">35806 </span> 68/push 0/imm32/name -<span id="L35807" class="LineNr">35807 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35808" class="LineNr">35808 </span> 89/<- %ebx 4/r32/esp -<span id="L35809" class="LineNr">35809 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: -<span id="L35810" class="LineNr">35810 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L35811" class="LineNr">35811 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35812" class="LineNr">35812 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L35813" class="LineNr">35813 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: -<span id="L35814" class="LineNr">35814 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L35815" class="LineNr">35815 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35816" class="LineNr">35816 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L35817" class="LineNr">35817 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: -<span id="L35818" class="LineNr">35818 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L35819" class="LineNr">35819 </span> 68/push 0/imm32/next -<span id="L35820" class="LineNr">35820 </span> 68/push 0/imm32/next -<span id="L35821" class="LineNr">35821 </span> 53/push-ebx/formal-var -<span id="L35822" class="LineNr">35822 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35823" class="LineNr">35823 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35824" class="LineNr">35824 </span> 89/<- %ebx 4/r32/esp -<span id="L35825" class="LineNr">35825 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: -<span id="L35826" class="LineNr">35826 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L35827" class="LineNr">35827 </span> 68/push 0/imm32/next -<span id="L35828" class="LineNr">35828 </span> 68/push 0/imm32/next -<span id="L35829" class="LineNr">35829 </span> 68/push 0/imm32/no-x32 -<span id="L35830" class="LineNr">35830 </span> 68/push 0/imm32/no-xm32 -<span id="L35831" class="LineNr">35831 </span> 68/push 0/imm32/no-disp32 -<span id="L35832" class="LineNr">35832 </span> 68/push 0/imm32/no-imm8 -<span id="L35833" class="LineNr">35833 </span> 68/push 0/imm32/no-imm32 -<span id="L35834" class="LineNr">35834 </span> 68/push 0/imm32/no-r32 -<span id="L35835" class="LineNr">35835 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L35836" class="LineNr">35836 </span> 68/push 0/imm32/subx-name -<span id="L35837" class="LineNr">35837 </span> 68/push 0/imm32/subx-name -<span id="L35838" class="LineNr">35838 </span> 53/push-ebx/outputs -<span id="L35839" class="LineNr">35839 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35840" class="LineNr">35840 </span> 68/push 0/imm32/no-inouts -<span id="L35841" class="LineNr">35841 </span> 68/push 0/imm32/no-inouts -<span id="L35842" class="LineNr">35842 </span> 68/push 0/imm32/name -<span id="L35843" class="LineNr">35843 </span> 68/push 0/imm32/name -<span id="L35844" class="LineNr">35844 </span> 89/<- %ebx 4/r32/esp -<span id="L35845" class="LineNr">35845 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: -<span id="L35846" class="LineNr">35846 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L35847" class="LineNr">35847 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L35848" class="LineNr">35848 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: -<span id="L35849" class="LineNr">35849 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L35850" class="LineNr">35850 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L35851" class="LineNr">35851 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L35852" class="LineNr">35852 </span> <span class="subxComment"># convert</span> -<span id="L35853" class="LineNr">35853 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L35854" class="LineNr">35854 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L35855" class="LineNr">35855 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L35856" class="Folded">35856 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L35862" class="LineNr">35862 </span> <span class="subxComment"># check output</span> -<span id="L35863" class="LineNr">35863 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive-register"</span>) -<span id="L35864" class="LineNr">35864 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L35865" class="LineNr">35865 </span> 89/<- %esp 5/r32/ebp -<span id="L35866" class="LineNr">35866 </span> 5d/pop-to-ebp -<span id="L35867" class="LineNr">35867 </span> c3/return -<span id="L35868" class="LineNr">35868 </span> -<span id="L35869" class="LineNr">35869 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: -<span id="L35870" class="LineNr">35870 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L35871" class="LineNr">35871 </span> <span class="subxComment"># foo <- increment</span> -<span id="L35872" class="LineNr">35872 </span> <span class="subxComment"># =></span> -<span id="L35873" class="LineNr">35873 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L35874" class="LineNr">35874 </span> <span class="subxComment">#</span> -<span id="L35875" class="LineNr">35875 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L35876" class="LineNr">35876 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L35877" class="LineNr">35877 </span> <span class="subxComment"># type: int</span> -<span id="L35878" class="LineNr">35878 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L35879" class="LineNr">35879 </span> <span class="subxComment">#</span> -<span id="L35880" class="LineNr">35880 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L35881" class="LineNr">35881 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L35882" class="LineNr">35882 </span> <span class="subxComment"># out: int/reg</span> -<span id="L35883" class="LineNr">35883 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L35884" class="LineNr">35884 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L35885" class="LineNr">35885 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L35886" class="LineNr">35886 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L35887" class="LineNr">35887 </span> <span class="subxComment">#</span> -<span id="L35888" class="LineNr">35888 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L35889" class="LineNr">35889 </span> 55/push-ebp -<span id="L35890" class="LineNr">35890 </span> 89/<- %ebp 4/r32/esp -<span id="L35891" class="LineNr">35891 </span> <span class="subxComment"># setup</span> -<span id="L35892" class="LineNr">35892 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L35893" class="LineNr">35893 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L35894" class="LineNr">35894 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: -<span id="L35895" class="LineNr">35895 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L35896" class="LineNr">35896 </span> 68/push 0/imm32/right:null -<span id="L35897" class="LineNr">35897 </span> 68/push 0/imm32/right:null -<span id="L35898" class="LineNr">35898 </span> 68/push 0/imm32/left:unused -<span id="L35899" class="LineNr">35899 </span> 68/push 1/imm32/value:int -<span id="L35900" class="LineNr">35900 </span> 68/push 1/imm32/is-atom?:true -<span id="L35901" class="LineNr">35901 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35902" class="LineNr">35902 </span> 89/<- %ecx 4/r32/esp -<span id="L35903" class="LineNr">35903 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: -<span id="L35904" class="LineNr">35904 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L35905" class="LineNr">35905 </span> 68/push 0/imm32/register -<span id="L35906" class="LineNr">35906 </span> 68/push 0/imm32/register -<span id="L35907" class="LineNr">35907 </span> 68/push 0/imm32/no-stack-offset -<span id="L35908" class="LineNr">35908 </span> 68/push 1/imm32/block-depth -<span id="L35909" class="LineNr">35909 </span> 51/push-ecx -<span id="L35910" class="LineNr">35910 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35911" class="LineNr">35911 </span> 68/push 0/imm32/name -<span id="L35912" class="LineNr">35912 </span> 68/push 0/imm32/name -<span id="L35913" class="LineNr">35913 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35914" class="LineNr">35914 </span> 89/<- %ecx 4/r32/esp -<span id="L35915" class="LineNr">35915 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: -<span id="L35916" class="LineNr">35916 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L35917" class="LineNr">35917 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35918" class="LineNr">35918 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L35919" class="LineNr">35919 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: -<span id="L35920" class="LineNr">35920 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L35921" class="LineNr">35921 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35922" class="LineNr">35922 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L35923" class="LineNr">35923 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: -<span id="L35924" class="LineNr">35924 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L35925" class="LineNr">35925 </span> 68/push 0/imm32/is-deref:false -<span id="L35926" class="LineNr">35926 </span> 68/push 0/imm32/next -<span id="L35927" class="LineNr">35927 </span> 68/push 0/imm32/next -<span id="L35928" class="LineNr">35928 </span> 51/push-ecx/var-foo -<span id="L35929" class="LineNr">35929 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35930" class="LineNr">35930 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35931" class="LineNr">35931 </span> 89/<- %ebx 4/r32/esp -<span id="L35932" class="LineNr">35932 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: -<span id="L35933" class="LineNr">35933 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L35934" class="LineNr">35934 </span> 53/push-ebx/outputs -<span id="L35935" class="LineNr">35935 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35936" class="LineNr">35936 </span> 68/push 0/imm32/no-inouts -<span id="L35937" class="LineNr">35937 </span> 68/push 0/imm32/no-inouts -<span id="L35938" class="LineNr">35938 </span> 68/push 0/imm32/operation -<span id="L35939" class="LineNr">35939 </span> 68/push 0/imm32/operation -<span id="L35940" class="LineNr">35940 </span> 68/push 1/imm32 -<span id="L35941" class="LineNr">35941 </span> 89/<- %esi 4/r32/esp -<span id="L35942" class="LineNr">35942 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: -<span id="L35943" class="LineNr">35943 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L35944" class="LineNr">35944 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L35945" class="LineNr">35945 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L35946" class="LineNr">35946 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: -<span id="L35947" class="LineNr">35947 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L35948" class="LineNr">35948 </span> 68/push 0/imm32/register -<span id="L35949" class="LineNr">35949 </span> 68/push 0/imm32/register -<span id="L35950" class="LineNr">35950 </span> 68/push 0/imm32/no-stack-offset -<span id="L35951" class="LineNr">35951 </span> 68/push 1/imm32/block-depth -<span id="L35952" class="LineNr">35952 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L35953" class="LineNr">35953 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35954" class="LineNr">35954 </span> 68/push 0/imm32/name -<span id="L35955" class="LineNr">35955 </span> 68/push 0/imm32/name -<span id="L35956" class="LineNr">35956 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35957" class="LineNr">35957 </span> 89/<- %ebx 4/r32/esp -<span id="L35958" class="LineNr">35958 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: -<span id="L35959" class="LineNr">35959 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L35960" class="LineNr">35960 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L35961" class="LineNr">35961 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L35962" class="LineNr">35962 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: -<span id="L35963" class="LineNr">35963 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L35964" class="LineNr">35964 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L35965" class="LineNr">35965 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L35966" class="LineNr">35966 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: -<span id="L35967" class="LineNr">35967 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> -<span id="L35968" class="LineNr">35968 </span> 68/push 0/imm32/next -<span id="L35969" class="LineNr">35969 </span> 68/push 0/imm32/next -<span id="L35970" class="LineNr">35970 </span> 53/push-ebx/formal-var -<span id="L35971" class="LineNr">35971 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35972" class="LineNr">35972 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35973" class="LineNr">35973 </span> 89/<- %ebx 4/r32/esp -<span id="L35974" class="LineNr">35974 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: -<span id="L35975" class="LineNr">35975 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L35976" class="LineNr">35976 </span> 68/push 0/imm32/next -<span id="L35977" class="LineNr">35977 </span> 68/push 0/imm32/next -<span id="L35978" class="LineNr">35978 </span> 68/push 0/imm32/no-x32 -<span id="L35979" class="LineNr">35979 </span> 68/push 0/imm32/no-xm32 -<span id="L35980" class="LineNr">35980 </span> 68/push 0/imm32/no-disp32 -<span id="L35981" class="LineNr">35981 </span> 68/push 0/imm32/no-imm8 -<span id="L35982" class="LineNr">35982 </span> 68/push 0/imm32/no-imm32 -<span id="L35983" class="LineNr">35983 </span> 68/push 0/imm32/no-r32 -<span id="L35984" class="LineNr">35984 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L35985" class="LineNr">35985 </span> 68/push 0/imm32/subx-name -<span id="L35986" class="LineNr">35986 </span> 68/push 0/imm32/subx-name -<span id="L35987" class="LineNr">35987 </span> 53/push-ebx/outputs -<span id="L35988" class="LineNr">35988 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L35989" class="LineNr">35989 </span> 68/push 0/imm32/no-inouts -<span id="L35990" class="LineNr">35990 </span> 68/push 0/imm32/no-inouts -<span id="L35991" class="LineNr">35991 </span> 68/push 0/imm32/name -<span id="L35992" class="LineNr">35992 </span> 68/push 0/imm32/name -<span id="L35993" class="LineNr">35993 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L35994" class="LineNr">35994 </span> 89/<- %edi 4/r32/esp -<span id="L35995" class="LineNr">35995 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: -<span id="L35996" class="LineNr">35996 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L35997" class="LineNr">35997 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L35998" class="LineNr">35998 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L35999" class="LineNr">35999 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: -<span id="L36000" class="LineNr">36000 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36001" class="LineNr">36001 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L36002" class="LineNr">36002 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36003" class="LineNr">36003 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: -<span id="L36004" class="LineNr">36004 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36005" class="LineNr">36005 </span> 57/push-edi -<span id="L36006" class="LineNr">36006 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36007" class="LineNr">36007 </span> 68/push 0/imm32/no-x32 -<span id="L36008" class="LineNr">36008 </span> 68/push 0/imm32/no-xm32 -<span id="L36009" class="LineNr">36009 </span> 68/push 0/imm32/no-disp32 -<span id="L36010" class="LineNr">36010 </span> 68/push 0/imm32/no-imm8 -<span id="L36011" class="LineNr">36011 </span> 68/push 0/imm32/no-imm32 -<span id="L36012" class="LineNr">36012 </span> 68/push 0/imm32/no-r32 -<span id="L36013" class="LineNr">36013 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36014" class="LineNr">36014 </span> 68/push 0/imm32/subx-name -<span id="L36015" class="LineNr">36015 </span> 68/push 0/imm32/subx-name -<span id="L36016" class="LineNr">36016 </span> 68/push 0/imm32/no-outputs -<span id="L36017" class="LineNr">36017 </span> 68/push 0/imm32/no-outputs -<span id="L36018" class="LineNr">36018 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L36019" class="LineNr">36019 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36020" class="LineNr">36020 </span> 68/push 0/imm32/name -<span id="L36021" class="LineNr">36021 </span> 68/push 0/imm32/name -<span id="L36022" class="LineNr">36022 </span> 89/<- %ebx 4/r32/esp -<span id="L36023" class="LineNr">36023 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: -<span id="L36024" class="LineNr">36024 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36025" class="LineNr">36025 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L36026" class="LineNr">36026 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: -<span id="L36027" class="LineNr">36027 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36028" class="LineNr">36028 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36029" class="LineNr">36029 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36030" class="LineNr">36030 </span> <span class="subxComment"># convert</span> -<span id="L36031" class="LineNr">36031 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36032" class="LineNr">36032 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36033" class="LineNr">36033 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36034" class="Folded">36034 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36040" class="LineNr">36040 </span> <span class="subxComment"># check output</span> -<span id="L36041" class="LineNr">36041 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive"</span>) -<span id="L36042" class="LineNr">36042 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36043" class="LineNr">36043 </span> 89/<- %esp 5/r32/ebp -<span id="L36044" class="LineNr">36044 </span> 5d/pop-to-ebp -<span id="L36045" class="LineNr">36045 </span> c3/return -<span id="L36046" class="LineNr">36046 </span> -<span id="L36047" class="LineNr">36047 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: -<span id="L36048" class="LineNr">36048 </span> <span class="subxComment"># Select the right primitive between overloads.</span> -<span id="L36049" class="LineNr">36049 </span> <span class="subxComment"># increment foo</span> -<span id="L36050" class="LineNr">36050 </span> <span class="subxComment"># =></span> -<span id="L36051" class="LineNr">36051 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> -<span id="L36052" class="LineNr">36052 </span> <span class="subxComment">#</span> -<span id="L36053" class="LineNr">36053 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36054" class="LineNr">36054 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36055" class="LineNr">36055 </span> <span class="subxComment"># type: int</span> -<span id="L36056" class="LineNr">36056 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L36057" class="LineNr">36057 </span> <span class="subxComment">#</span> -<span id="L36058" class="LineNr">36058 </span> <span class="subxComment"># There's two primitives, as follows:</span> -<span id="L36059" class="LineNr">36059 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36060" class="LineNr">36060 </span> <span class="subxComment"># out: int/reg</span> -<span id="L36061" class="LineNr">36061 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36062" class="LineNr">36062 </span> <span class="subxComment"># - name: 'increment'</span> -<span id="L36063" class="LineNr">36063 </span> <span class="subxComment"># inout: int/mem</span> -<span id="L36064" class="LineNr">36064 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> -<span id="L36065" class="LineNr">36065 </span> <span class="subxComment">#</span> -<span id="L36066" class="LineNr">36066 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36067" class="LineNr">36067 </span> 55/push-ebp -<span id="L36068" class="LineNr">36068 </span> 89/<- %ebp 4/r32/esp -<span id="L36069" class="LineNr">36069 </span> <span class="subxComment"># setup</span> -<span id="L36070" class="LineNr">36070 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36071" class="LineNr">36071 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36072" class="LineNr">36072 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: -<span id="L36073" class="LineNr">36073 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36074" class="LineNr">36074 </span> 68/push 0/imm32/right:null -<span id="L36075" class="LineNr">36075 </span> 68/push 0/imm32/right:null -<span id="L36076" class="LineNr">36076 </span> 68/push 0/imm32/left:unused -<span id="L36077" class="LineNr">36077 </span> 68/push 1/imm32/value:int -<span id="L36078" class="LineNr">36078 </span> 68/push 1/imm32/is-atom?:true -<span id="L36079" class="LineNr">36079 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36080" class="LineNr">36080 </span> 89/<- %ecx 4/r32/esp -<span id="L36081" class="LineNr">36081 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: -<span id="L36082" class="LineNr">36082 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36083" class="LineNr">36083 </span> 68/push 0/imm32/register -<span id="L36084" class="LineNr">36084 </span> 68/push 0/imm32/register -<span id="L36085" class="LineNr">36085 </span> 68/push 0/imm32/no-stack-offset -<span id="L36086" class="LineNr">36086 </span> 68/push 1/imm32/block-depth -<span id="L36087" class="LineNr">36087 </span> 51/push-ecx -<span id="L36088" class="LineNr">36088 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36089" class="LineNr">36089 </span> 68/push 0/imm32/name -<span id="L36090" class="LineNr">36090 </span> 68/push 0/imm32/name -<span id="L36091" class="LineNr">36091 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36092" class="LineNr">36092 </span> 89/<- %ecx 4/r32/esp -<span id="L36093" class="LineNr">36093 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: -<span id="L36094" class="LineNr">36094 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36095" class="LineNr">36095 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36096" class="LineNr">36096 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L36097" class="LineNr">36097 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: -<span id="L36098" class="LineNr">36098 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36099" class="LineNr">36099 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36100" class="LineNr">36100 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36101" class="LineNr">36101 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: -<span id="L36102" class="LineNr">36102 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36103" class="LineNr">36103 </span> 68/push 0/imm32/is-deref:false -<span id="L36104" class="LineNr">36104 </span> 68/push 0/imm32/next -<span id="L36105" class="LineNr">36105 </span> 68/push 0/imm32/next -<span id="L36106" class="LineNr">36106 </span> 51/push-ecx/var-foo -<span id="L36107" class="LineNr">36107 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36108" class="LineNr">36108 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36109" class="LineNr">36109 </span> 89/<- %ebx 4/r32/esp -<span id="L36110" class="LineNr">36110 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: -<span id="L36111" class="LineNr">36111 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36112" class="LineNr">36112 </span> 68/push 0/imm32/no-outputs -<span id="L36113" class="LineNr">36113 </span> 68/push 0/imm32/no-outputs -<span id="L36114" class="LineNr">36114 </span> 53/push-ebx/inouts -<span id="L36115" class="LineNr">36115 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36116" class="LineNr">36116 </span> 68/push 0/imm32/operation -<span id="L36117" class="LineNr">36117 </span> 68/push 0/imm32/operation -<span id="L36118" class="LineNr">36118 </span> 68/push 1/imm32 -<span id="L36119" class="LineNr">36119 </span> 89/<- %esi 4/r32/esp -<span id="L36120" class="LineNr">36120 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: -<span id="L36121" class="LineNr">36121 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36122" class="LineNr">36122 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36123" class="LineNr">36123 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36124" class="LineNr">36124 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: -<span id="L36125" class="LineNr">36125 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> -<span id="L36126" class="LineNr">36126 </span> 68/push 0/imm32/register -<span id="L36127" class="LineNr">36127 </span> 68/push 0/imm32/register -<span id="L36128" class="LineNr">36128 </span> 68/push 0/imm32/no-stack-offset -<span id="L36129" class="LineNr">36129 </span> 68/push 1/imm32/block-depth -<span id="L36130" class="LineNr">36130 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> -<span id="L36131" class="LineNr">36131 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36132" class="LineNr">36132 </span> 68/push 0/imm32/name -<span id="L36133" class="LineNr">36133 </span> 68/push 0/imm32/name -<span id="L36134" class="LineNr">36134 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36135" class="LineNr">36135 </span> 89/<- %ebx 4/r32/esp -<span id="L36136" class="LineNr">36136 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: -<span id="L36137" class="LineNr">36137 </span> <span class="subxComment"># formal-var->name = "dummy"</span> -<span id="L36138" class="LineNr">36138 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36139" class="LineNr">36139 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) -<span id="L36140" class="LineNr">36140 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: -<span id="L36141" class="LineNr">36141 </span> <span class="subxComment"># formal-var->register = "*"</span> -<span id="L36142" class="LineNr">36142 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36143" class="LineNr">36143 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> -<span id="L36144" class="LineNr">36144 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: -<span id="L36145" class="LineNr">36145 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> -<span id="L36146" class="LineNr">36146 </span> 68/push 0/imm32/next -<span id="L36147" class="LineNr">36147 </span> 68/push 0/imm32/next -<span id="L36148" class="LineNr">36148 </span> 53/push-ebx/formal-var -<span id="L36149" class="LineNr">36149 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36150" class="LineNr">36150 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36151" class="LineNr">36151 </span> 89/<- %ebx 4/r32/esp -<span id="L36152" class="LineNr">36152 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: -<span id="L36153" class="LineNr">36153 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> -<span id="L36154" class="LineNr">36154 </span> 68/push 0/imm32/next -<span id="L36155" class="LineNr">36155 </span> 68/push 0/imm32/next -<span id="L36156" class="LineNr">36156 </span> 68/push 0/imm32/no-x32 -<span id="L36157" class="LineNr">36157 </span> 68/push 0/imm32/no-xm32 -<span id="L36158" class="LineNr">36158 </span> 68/push 0/imm32/no-disp32 -<span id="L36159" class="LineNr">36159 </span> 68/push 0/imm32/no-imm8 -<span id="L36160" class="LineNr">36160 </span> 68/push 0/imm32/no-imm32 -<span id="L36161" class="LineNr">36161 </span> 68/push 0/imm32/no-r32 -<span id="L36162" class="LineNr">36162 </span> 68/push 3/imm32/rm32-is-first-output -<span id="L36163" class="LineNr">36163 </span> 68/push 0/imm32/subx-name -<span id="L36164" class="LineNr">36164 </span> 68/push 0/imm32/subx-name -<span id="L36165" class="LineNr">36165 </span> 53/push-ebx/outputs -<span id="L36166" class="LineNr">36166 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36167" class="LineNr">36167 </span> 68/push 0/imm32/no-inouts -<span id="L36168" class="LineNr">36168 </span> 68/push 0/imm32/no-inouts -<span id="L36169" class="LineNr">36169 </span> 68/push 0/imm32/name -<span id="L36170" class="LineNr">36170 </span> 68/push 0/imm32/name -<span id="L36171" class="LineNr">36171 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36172" class="LineNr">36172 </span> 89/<- %edi 4/r32/esp -<span id="L36173" class="LineNr">36173 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: -<span id="L36174" class="LineNr">36174 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36175" class="LineNr">36175 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> -<span id="L36176" class="LineNr">36176 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36177" class="LineNr">36177 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: -<span id="L36178" class="LineNr">36178 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36179" class="LineNr">36179 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> -<span id="L36180" class="LineNr">36180 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36181" class="LineNr">36181 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: -<span id="L36182" class="LineNr">36182 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> -<span id="L36183" class="LineNr">36183 </span> 57/push-edi -<span id="L36184" class="LineNr">36184 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36185" class="LineNr">36185 </span> 68/push 0/imm32/no-x32 -<span id="L36186" class="LineNr">36186 </span> 68/push 0/imm32/no-xm32 -<span id="L36187" class="LineNr">36187 </span> 68/push 0/imm32/no-disp32 -<span id="L36188" class="LineNr">36188 </span> 68/push 0/imm32/no-imm8 -<span id="L36189" class="LineNr">36189 </span> 68/push 0/imm32/no-imm32 -<span id="L36190" class="LineNr">36190 </span> 68/push 0/imm32/no-r32 -<span id="L36191" class="LineNr">36191 </span> 68/push 1/imm32/rm32-is-first-inout -<span id="L36192" class="LineNr">36192 </span> 68/push 0/imm32/subx-name -<span id="L36193" class="LineNr">36193 </span> 68/push 0/imm32/subx-name -<span id="L36194" class="LineNr">36194 </span> 68/push 0/imm32/no-outputs -<span id="L36195" class="LineNr">36195 </span> 68/push 0/imm32/no-outputs -<span id="L36196" class="LineNr">36196 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> -<span id="L36197" class="LineNr">36197 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36198" class="LineNr">36198 </span> 68/push 0/imm32/name -<span id="L36199" class="LineNr">36199 </span> 68/push 0/imm32/name -<span id="L36200" class="LineNr">36200 </span> 89/<- %ebx 4/r32/esp -<span id="L36201" class="LineNr">36201 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: -<span id="L36202" class="LineNr">36202 </span> <span class="subxComment"># primitives->name = "increment"</span> -<span id="L36203" class="LineNr">36203 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> -<span id="L36204" class="LineNr">36204 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: -<span id="L36205" class="LineNr">36205 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> -<span id="L36206" class="LineNr">36206 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> -<span id="L36207" class="LineNr">36207 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) -<span id="L36208" class="LineNr">36208 </span> <span class="subxComment"># convert</span> -<span id="L36209" class="LineNr">36209 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36210" class="LineNr">36210 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36211" class="LineNr">36211 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36212" class="Folded">36212 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36218" class="LineNr">36218 </span> <span class="subxComment"># check output</span> -<span id="L36219" class="LineNr">36219 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive-2"</span>) -<span id="L36220" class="LineNr">36220 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36221" class="LineNr">36221 </span> 89/<- %esp 5/r32/ebp -<span id="L36222" class="LineNr">36222 </span> 5d/pop-to-ebp -<span id="L36223" class="LineNr">36223 </span> c3/return -<span id="L36224" class="LineNr">36224 </span> -<span id="L36225" class="LineNr">36225 </span><span class="subxTest">test-increment-register</span>: -<span id="L36226" class="LineNr">36226 </span> <span class="subxComment"># Select the right register between overloads.</span> -<span id="L36227" class="LineNr">36227 </span> <span class="subxComment"># foo <- increment</span> -<span id="L36228" class="LineNr">36228 </span> <span class="subxComment"># =></span> -<span id="L36229" class="LineNr">36229 </span> <span class="subxComment"># 50/increment-eax</span> -<span id="L36230" class="LineNr">36230 </span> <span class="subxComment">#</span> -<span id="L36231" class="LineNr">36231 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L36232" class="LineNr">36232 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L36233" class="LineNr">36233 </span> <span class="subxComment"># type: int</span> -<span id="L36234" class="LineNr">36234 </span> <span class="subxComment"># register: 'eax'</span> -<span id="L36235" class="LineNr">36235 </span> <span class="subxComment">#</span> -<span id="L36236" class="LineNr">36236 </span> <span class="subxComment"># Primitives are the global definitions.</span> -<span id="L36237" class="LineNr">36237 </span> <span class="subxComment">#</span> -<span id="L36238" class="LineNr">36238 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36239" class="LineNr">36239 </span> 55/push-ebp -<span id="L36240" class="LineNr">36240 </span> 89/<- %ebp 4/r32/esp -<span id="L36241" class="LineNr">36241 </span> <span class="subxComment"># setup</span> -<span id="L36242" class="LineNr">36242 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36243" class="LineNr">36243 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36244" class="LineNr">36244 </span><span class="Constant">$test-increment-register:initialize-type</span>: -<span id="L36245" class="LineNr">36245 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36246" class="LineNr">36246 </span> 68/push 0/imm32/right:null -<span id="L36247" class="LineNr">36247 </span> 68/push 0/imm32/right:null -<span id="L36248" class="LineNr">36248 </span> 68/push 0/imm32/left:unused -<span id="L36249" class="LineNr">36249 </span> 68/push 1/imm32/value:int -<span id="L36250" class="LineNr">36250 </span> 68/push 1/imm32/is-atom?:true -<span id="L36251" class="LineNr">36251 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36252" class="LineNr">36252 </span> 89/<- %ecx 4/r32/esp -<span id="L36253" class="LineNr">36253 </span><span class="Constant">$test-increment-register:initialize-var</span>: -<span id="L36254" class="LineNr">36254 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> -<span id="L36255" class="LineNr">36255 </span> 68/push 0/imm32/register -<span id="L36256" class="LineNr">36256 </span> 68/push 0/imm32/register -<span id="L36257" class="LineNr">36257 </span> 68/push 0/imm32/no-stack-offset -<span id="L36258" class="LineNr">36258 </span> 68/push 1/imm32/block-depth -<span id="L36259" class="LineNr">36259 </span> 51/push-ecx -<span id="L36260" class="LineNr">36260 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36261" class="LineNr">36261 </span> 68/push 0/imm32/name -<span id="L36262" class="LineNr">36262 </span> 68/push 0/imm32/name -<span id="L36263" class="LineNr">36263 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36264" class="LineNr">36264 </span> 89/<- %ecx 4/r32/esp -<span id="L36265" class="LineNr">36265 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: -<span id="L36266" class="LineNr">36266 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L36267" class="LineNr">36267 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36268" class="LineNr">36268 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L36269" class="LineNr">36269 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: -<span id="L36270" class="LineNr">36270 </span> <span class="subxComment"># var-foo->register = "eax"</span> -<span id="L36271" class="LineNr">36271 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36272" class="LineNr">36272 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36273" class="LineNr">36273 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: -<span id="L36274" class="LineNr">36274 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> -<span id="L36275" class="LineNr">36275 </span> 68/push 0/imm32/is-deref:false -<span id="L36276" class="LineNr">36276 </span> 68/push 0/imm32/next -<span id="L36277" class="LineNr">36277 </span> 68/push 0/imm32/next -<span id="L36278" class="LineNr">36278 </span> 51/push-ecx/var-foo -<span id="L36279" class="LineNr">36279 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36280" class="LineNr">36280 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36281" class="LineNr">36281 </span> 89/<- %ebx 4/r32/esp -<span id="L36282" class="LineNr">36282 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: -<span id="L36283" class="LineNr">36283 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36284" class="LineNr">36284 </span> 53/push-ebx/outputs -<span id="L36285" class="LineNr">36285 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36286" class="LineNr">36286 </span> 68/push 0/imm32/no-inouts -<span id="L36287" class="LineNr">36287 </span> 68/push 0/imm32/no-inouts -<span id="L36288" class="LineNr">36288 </span> 68/push 0/imm32/operation -<span id="L36289" class="LineNr">36289 </span> 68/push 0/imm32/operation -<span id="L36290" class="LineNr">36290 </span> 68/push 1/imm32 -<span id="L36291" class="LineNr">36291 </span> 89/<- %esi 4/r32/esp -<span id="L36292" class="LineNr">36292 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: -<span id="L36293" class="LineNr">36293 </span> <span class="subxComment"># stmt->operation = "increment"</span> -<span id="L36294" class="LineNr">36294 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36295" class="LineNr">36295 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) -<span id="L36296" class="LineNr">36296 </span> <span class="subxComment"># convert</span> -<span id="L36297" class="LineNr">36297 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36298" class="LineNr">36298 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36299" class="LineNr">36299 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36300" class="Folded">36300 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36306" class="LineNr">36306 </span> <span class="subxComment"># check output</span> -<span id="L36307" class="LineNr">36307 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"40/increment-eax"</span> <span class="Constant">"F - test-increment-register"</span>) -<span id="L36308" class="LineNr">36308 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36309" class="LineNr">36309 </span> 89/<- %esp 5/r32/ebp -<span id="L36310" class="LineNr">36310 </span> 5d/pop-to-ebp -<span id="L36311" class="LineNr">36311 </span> c3/return -<span id="L36312" class="LineNr">36312 </span> -<span id="L36313" class="LineNr">36313 </span><span class="subxTest">test-add-reg-to-reg</span>: -<span id="L36314" class="LineNr">36314 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> -<span id="L36315" class="LineNr">36315 </span> <span class="subxComment"># =></span> -<span id="L36316" class="LineNr">36316 </span> <span class="subxComment"># 01/add-to %var1 var2</span> -<span id="L36317" class="LineNr">36317 </span> <span class="subxComment">#</span> -<span id="L36318" class="LineNr">36318 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36319" class="LineNr">36319 </span> 55/push-ebp -<span id="L36320" class="LineNr">36320 </span> 89/<- %ebp 4/r32/esp -<span id="L36321" class="LineNr">36321 </span> <span class="subxComment"># setup</span> -<span id="L36322" class="LineNr">36322 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36323" class="LineNr">36323 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36324" class="LineNr">36324 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: -<span id="L36325" class="LineNr">36325 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36326" class="LineNr">36326 </span> 68/push 0/imm32/right:null -<span id="L36327" class="LineNr">36327 </span> 68/push 0/imm32/right:null -<span id="L36328" class="LineNr">36328 </span> 68/push 0/imm32/left:unused -<span id="L36329" class="LineNr">36329 </span> 68/push 1/imm32/value:int -<span id="L36330" class="LineNr">36330 </span> 68/push 1/imm32/is-atom?:true -<span id="L36331" class="LineNr">36331 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36332" class="LineNr">36332 </span> 89/<- %ecx 4/r32/esp -<span id="L36333" class="LineNr">36333 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: -<span id="L36334" class="LineNr">36334 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L36335" class="LineNr">36335 </span> 68/push 0/imm32/register -<span id="L36336" class="LineNr">36336 </span> 68/push 0/imm32/register -<span id="L36337" class="LineNr">36337 </span> 68/push 0/imm32/no-stack-offset -<span id="L36338" class="LineNr">36338 </span> 68/push 1/imm32/block-depth -<span id="L36339" class="LineNr">36339 </span> 51/push-ecx -<span id="L36340" class="LineNr">36340 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36341" class="LineNr">36341 </span> 68/push 0/imm32/name -<span id="L36342" class="LineNr">36342 </span> 68/push 0/imm32/name -<span id="L36343" class="LineNr">36343 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36344" class="LineNr">36344 </span> 89/<- %ecx 4/r32/esp -<span id="L36345" class="LineNr">36345 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: -<span id="L36346" class="LineNr">36346 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L36347" class="LineNr">36347 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36348" class="LineNr">36348 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L36349" class="LineNr">36349 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: -<span id="L36350" class="LineNr">36350 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L36351" class="LineNr">36351 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36352" class="LineNr">36352 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36353" class="LineNr">36353 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: -<span id="L36354" class="LineNr">36354 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L36355" class="LineNr">36355 </span> 68/push 0/imm32/register -<span id="L36356" class="LineNr">36356 </span> 68/push 0/imm32/register -<span id="L36357" class="LineNr">36357 </span> 68/push 0/imm32/no-stack-offset -<span id="L36358" class="LineNr">36358 </span> 68/push 1/imm32/block-depth -<span id="L36359" class="LineNr">36359 </span> ff 6/subop/push *(ecx+0x10) -<span id="L36360" class="LineNr">36360 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36361" class="LineNr">36361 </span> 68/push 0/imm32/name -<span id="L36362" class="LineNr">36362 </span> 68/push 0/imm32/name -<span id="L36363" class="LineNr">36363 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36364" class="LineNr">36364 </span> 89/<- %edx 4/r32/esp -<span id="L36365" class="LineNr">36365 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: -<span id="L36366" class="LineNr">36366 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L36367" class="LineNr">36367 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36368" class="LineNr">36368 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L36369" class="LineNr">36369 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: -<span id="L36370" class="LineNr">36370 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L36371" class="LineNr">36371 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36372" class="LineNr">36372 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L36373" class="LineNr">36373 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: -<span id="L36374" class="LineNr">36374 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L36375" class="LineNr">36375 </span> 68/push 0/imm32/is-deref:false -<span id="L36376" class="LineNr">36376 </span> 68/push 0/imm32/next -<span id="L36377" class="LineNr">36377 </span> 68/push 0/imm32/next -<span id="L36378" class="LineNr">36378 </span> 52/push-edx/var2 -<span id="L36379" class="LineNr">36379 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36380" class="LineNr">36380 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36381" class="LineNr">36381 </span> 89/<- %esi 4/r32/esp -<span id="L36382" class="LineNr">36382 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: -<span id="L36383" class="LineNr">36383 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L36384" class="LineNr">36384 </span> 68/push 0/imm32/is-deref:false -<span id="L36385" class="LineNr">36385 </span> 68/push 0/imm32/next -<span id="L36386" class="LineNr">36386 </span> 68/push 0/imm32/next -<span id="L36387" class="LineNr">36387 </span> 51/push-ecx/var1 -<span id="L36388" class="LineNr">36388 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36389" class="LineNr">36389 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36390" class="LineNr">36390 </span> 89/<- %edi 4/r32/esp -<span id="L36391" class="LineNr">36391 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: -<span id="L36392" class="LineNr">36392 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36393" class="LineNr">36393 </span> 68/push 0/imm32/next -<span id="L36394" class="LineNr">36394 </span> 68/push 0/imm32/next -<span id="L36395" class="LineNr">36395 </span> 57/push-edi/outputs -<span id="L36396" class="LineNr">36396 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36397" class="LineNr">36397 </span> 56/push-esi/inouts -<span id="L36398" class="LineNr">36398 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36399" class="LineNr">36399 </span> 68/push 0/imm32/operation -<span id="L36400" class="LineNr">36400 </span> 68/push 0/imm32/operation -<span id="L36401" class="LineNr">36401 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36402" class="LineNr">36402 </span> 89/<- %esi 4/r32/esp -<span id="L36403" class="LineNr">36403 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: -<span id="L36404" class="LineNr">36404 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L36405" class="LineNr">36405 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36406" class="LineNr">36406 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L36407" class="LineNr">36407 </span> <span class="subxComment"># convert</span> -<span id="L36408" class="LineNr">36408 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36409" class="LineNr">36409 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36410" class="LineNr">36410 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36411" class="Folded">36411 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36417" class="LineNr">36417 </span> <span class="subxComment"># check output</span> -<span id="L36418" class="LineNr">36418 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"01/add-to %eax 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-reg"</span>) -<span id="L36419" class="LineNr">36419 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36420" class="LineNr">36420 </span> 89/<- %esp 5/r32/ebp -<span id="L36421" class="LineNr">36421 </span> 5d/pop-to-ebp -<span id="L36422" class="LineNr">36422 </span> c3/return -<span id="L36423" class="LineNr">36423 </span> -<span id="L36424" class="LineNr">36424 </span><span class="subxTest">test-add-reg-to-mem</span>: -<span id="L36425" class="LineNr">36425 </span> <span class="subxComment"># add-to var1 var2/reg</span> -<span id="L36426" class="LineNr">36426 </span> <span class="subxComment"># =></span> -<span id="L36427" class="LineNr">36427 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> -<span id="L36428" class="LineNr">36428 </span> <span class="subxComment">#</span> -<span id="L36429" class="LineNr">36429 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36430" class="LineNr">36430 </span> 55/push-ebp -<span id="L36431" class="LineNr">36431 </span> 89/<- %ebp 4/r32/esp -<span id="L36432" class="LineNr">36432 </span> <span class="subxComment"># setup</span> -<span id="L36433" class="LineNr">36433 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36434" class="LineNr">36434 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36435" class="LineNr">36435 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: -<span id="L36436" class="LineNr">36436 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36437" class="LineNr">36437 </span> 68/push 0/imm32/right:null -<span id="L36438" class="LineNr">36438 </span> 68/push 0/imm32/right:null -<span id="L36439" class="LineNr">36439 </span> 68/push 0/imm32/left:unused -<span id="L36440" class="LineNr">36440 </span> 68/push 1/imm32/value:int -<span id="L36441" class="LineNr">36441 </span> 68/push 1/imm32/is-atom?:true -<span id="L36442" class="LineNr">36442 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36443" class="LineNr">36443 </span> 89/<- %ecx 4/r32/esp -<span id="L36444" class="LineNr">36444 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: -<span id="L36445" class="LineNr">36445 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L36446" class="LineNr">36446 </span> 68/push 0/imm32/register -<span id="L36447" class="LineNr">36447 </span> 68/push 0/imm32/register -<span id="L36448" class="LineNr">36448 </span> 68/push 8/imm32/stack-offset -<span id="L36449" class="LineNr">36449 </span> 68/push 1/imm32/block-depth -<span id="L36450" class="LineNr">36450 </span> 51/push-ecx -<span id="L36451" class="LineNr">36451 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36452" class="LineNr">36452 </span> 68/push 0/imm32/name -<span id="L36453" class="LineNr">36453 </span> 68/push 0/imm32/name -<span id="L36454" class="LineNr">36454 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36455" class="LineNr">36455 </span> 89/<- %ecx 4/r32/esp -<span id="L36456" class="LineNr">36456 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: -<span id="L36457" class="LineNr">36457 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L36458" class="LineNr">36458 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36459" class="LineNr">36459 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L36460" class="LineNr">36460 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: -<span id="L36461" class="LineNr">36461 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L36462" class="LineNr">36462 </span> 68/push 0/imm32/register -<span id="L36463" class="LineNr">36463 </span> 68/push 0/imm32/register -<span id="L36464" class="LineNr">36464 </span> 68/push 0/imm32/no-stack-offset -<span id="L36465" class="LineNr">36465 </span> 68/push 1/imm32/block-depth -<span id="L36466" class="LineNr">36466 </span> ff 6/subop/push *(ecx+0x10) -<span id="L36467" class="LineNr">36467 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36468" class="LineNr">36468 </span> 68/push 0/imm32/name -<span id="L36469" class="LineNr">36469 </span> 68/push 0/imm32/name -<span id="L36470" class="LineNr">36470 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36471" class="LineNr">36471 </span> 89/<- %edx 4/r32/esp -<span id="L36472" class="LineNr">36472 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: -<span id="L36473" class="LineNr">36473 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L36474" class="LineNr">36474 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36475" class="LineNr">36475 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L36476" class="LineNr">36476 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: -<span id="L36477" class="LineNr">36477 </span> <span class="subxComment"># var2->register = "ecx"</span> -<span id="L36478" class="LineNr">36478 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36479" class="LineNr">36479 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L36480" class="LineNr">36480 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: -<span id="L36481" class="LineNr">36481 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L36482" class="LineNr">36482 </span> 68/push 0/imm32/is-deref:false -<span id="L36483" class="LineNr">36483 </span> 68/push 0/imm32/next -<span id="L36484" class="LineNr">36484 </span> 68/push 0/imm32/next -<span id="L36485" class="LineNr">36485 </span> 52/push-edx/var2 -<span id="L36486" class="LineNr">36486 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36487" class="LineNr">36487 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36488" class="LineNr">36488 </span> 89/<- %esi 4/r32/esp -<span id="L36489" class="LineNr">36489 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L36490" class="LineNr">36490 </span> 68/push 0/imm32/is-deref:false -<span id="L36491" class="LineNr">36491 </span> 56/push-esi/next -<span id="L36492" class="LineNr">36492 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36493" class="LineNr">36493 </span> 51/push-ecx/var1 -<span id="L36494" class="LineNr">36494 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36495" class="LineNr">36495 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36496" class="LineNr">36496 </span> 89/<- %esi 4/r32/esp -<span id="L36497" class="LineNr">36497 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: -<span id="L36498" class="LineNr">36498 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36499" class="LineNr">36499 </span> 68/push 0/imm32/next -<span id="L36500" class="LineNr">36500 </span> 68/push 0/imm32/next -<span id="L36501" class="LineNr">36501 </span> 68/push 0/imm32/outputs -<span id="L36502" class="LineNr">36502 </span> 68/push 0/imm32/outputs -<span id="L36503" class="LineNr">36503 </span> 56/push-esi/inouts -<span id="L36504" class="LineNr">36504 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36505" class="LineNr">36505 </span> 68/push 0/imm32/operation -<span id="L36506" class="LineNr">36506 </span> 68/push 0/imm32/operation -<span id="L36507" class="LineNr">36507 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36508" class="LineNr">36508 </span> 89/<- %esi 4/r32/esp -<span id="L36509" class="LineNr">36509 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: -<span id="L36510" class="LineNr">36510 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L36511" class="LineNr">36511 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36512" class="LineNr">36512 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) -<span id="L36513" class="LineNr">36513 </span> <span class="subxComment"># convert</span> -<span id="L36514" class="LineNr">36514 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36515" class="LineNr">36515 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36516" class="LineNr">36516 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36517" class="Folded">36517 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36523" class="LineNr">36523 </span> <span class="subxComment"># check output</span> -<span id="L36524" class="LineNr">36524 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"01/add-to *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-mem"</span>) -<span id="L36525" class="LineNr">36525 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36526" class="LineNr">36526 </span> 89/<- %esp 5/r32/ebp -<span id="L36527" class="LineNr">36527 </span> 5d/pop-to-ebp -<span id="L36528" class="LineNr">36528 </span> c3/return -<span id="L36529" class="LineNr">36529 </span> -<span id="L36530" class="LineNr">36530 </span><span class="subxTest">test-add-mem-to-reg</span>: -<span id="L36531" class="LineNr">36531 </span> <span class="subxComment"># var1/reg <- add var2</span> -<span id="L36532" class="LineNr">36532 </span> <span class="subxComment"># =></span> -<span id="L36533" class="LineNr">36533 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> -<span id="L36534" class="LineNr">36534 </span> <span class="subxComment">#</span> -<span id="L36535" class="LineNr">36535 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36536" class="LineNr">36536 </span> 55/push-ebp -<span id="L36537" class="LineNr">36537 </span> 89/<- %ebp 4/r32/esp -<span id="L36538" class="LineNr">36538 </span> <span class="subxComment"># setup</span> -<span id="L36539" class="LineNr">36539 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36540" class="LineNr">36540 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36541" class="LineNr">36541 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: -<span id="L36542" class="LineNr">36542 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36543" class="LineNr">36543 </span> 68/push 0/imm32/right:null -<span id="L36544" class="LineNr">36544 </span> 68/push 0/imm32/right:null -<span id="L36545" class="LineNr">36545 </span> 68/push 0/imm32/left:unused -<span id="L36546" class="LineNr">36546 </span> 68/push 1/imm32/value:int -<span id="L36547" class="LineNr">36547 </span> 68/push 1/imm32/is-atom?:true -<span id="L36548" class="LineNr">36548 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36549" class="LineNr">36549 </span> 89/<- %ecx 4/r32/esp -<span id="L36550" class="LineNr">36550 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: -<span id="L36551" class="LineNr">36551 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L36552" class="LineNr">36552 </span> 68/push 0/imm32/register -<span id="L36553" class="LineNr">36553 </span> 68/push 0/imm32/register -<span id="L36554" class="LineNr">36554 </span> 68/push 0/imm32/no-stack-offset -<span id="L36555" class="LineNr">36555 </span> 68/push 1/imm32/block-depth -<span id="L36556" class="LineNr">36556 </span> 51/push-ecx -<span id="L36557" class="LineNr">36557 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36558" class="LineNr">36558 </span> 68/push 0/imm32/name -<span id="L36559" class="LineNr">36559 </span> 68/push 0/imm32/name -<span id="L36560" class="LineNr">36560 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36561" class="LineNr">36561 </span> 89/<- %ecx 4/r32/esp -<span id="L36562" class="LineNr">36562 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: -<span id="L36563" class="LineNr">36563 </span> <span class="subxComment"># var1->name = "foo"</span> -<span id="L36564" class="LineNr">36564 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36565" class="LineNr">36565 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L36566" class="LineNr">36566 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: -<span id="L36567" class="LineNr">36567 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L36568" class="LineNr">36568 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36569" class="LineNr">36569 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36570" class="LineNr">36570 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: -<span id="L36571" class="LineNr">36571 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L36572" class="LineNr">36572 </span> 68/push 0/imm32/register -<span id="L36573" class="LineNr">36573 </span> 68/push 0/imm32/register -<span id="L36574" class="LineNr">36574 </span> 68/push 8/imm32/stack-offset -<span id="L36575" class="LineNr">36575 </span> 68/push 1/imm32/block-depth -<span id="L36576" class="LineNr">36576 </span> ff 6/subop/push *(ecx+0x10) -<span id="L36577" class="LineNr">36577 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36578" class="LineNr">36578 </span> 68/push 0/imm32/name -<span id="L36579" class="LineNr">36579 </span> 68/push 0/imm32/name -<span id="L36580" class="LineNr">36580 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36581" class="LineNr">36581 </span> 89/<- %edx 4/r32/esp -<span id="L36582" class="LineNr">36582 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: -<span id="L36583" class="LineNr">36583 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L36584" class="LineNr">36584 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36585" class="LineNr">36585 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L36586" class="LineNr">36586 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: -<span id="L36587" class="LineNr">36587 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L36588" class="LineNr">36588 </span> 68/push 0/imm32/is-deref:false -<span id="L36589" class="LineNr">36589 </span> 68/push 0/imm32/next -<span id="L36590" class="LineNr">36590 </span> 68/push 0/imm32/next -<span id="L36591" class="LineNr">36591 </span> 52/push-edx/var2 -<span id="L36592" class="LineNr">36592 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36593" class="LineNr">36593 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36594" class="LineNr">36594 </span> 89/<- %esi 4/r32/esp -<span id="L36595" class="LineNr">36595 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: -<span id="L36596" class="LineNr">36596 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> -<span id="L36597" class="LineNr">36597 </span> 68/push 0/imm32/is-deref:false -<span id="L36598" class="LineNr">36598 </span> 68/push 0/imm32/next -<span id="L36599" class="LineNr">36599 </span> 68/push 0/imm32/next -<span id="L36600" class="LineNr">36600 </span> 51/push-ecx/var1 -<span id="L36601" class="LineNr">36601 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36602" class="LineNr">36602 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36603" class="LineNr">36603 </span> 89/<- %edi 4/r32/esp -<span id="L36604" class="LineNr">36604 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: -<span id="L36605" class="LineNr">36605 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36606" class="LineNr">36606 </span> 68/push 0/imm32/next -<span id="L36607" class="LineNr">36607 </span> 68/push 0/imm32/next -<span id="L36608" class="LineNr">36608 </span> 57/push-edi/outputs -<span id="L36609" class="LineNr">36609 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36610" class="LineNr">36610 </span> 56/push-esi/inouts -<span id="L36611" class="LineNr">36611 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36612" class="LineNr">36612 </span> 68/push 0/imm32/operation -<span id="L36613" class="LineNr">36613 </span> 68/push 0/imm32/operation -<span id="L36614" class="LineNr">36614 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36615" class="LineNr">36615 </span> 89/<- %esi 4/r32/esp -<span id="L36616" class="LineNr">36616 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: -<span id="L36617" class="LineNr">36617 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L36618" class="LineNr">36618 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36619" class="LineNr">36619 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L36620" class="LineNr">36620 </span> <span class="subxComment"># convert</span> -<span id="L36621" class="LineNr">36621 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36622" class="LineNr">36622 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36623" class="LineNr">36623 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36624" class="Folded">36624 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36630" class="LineNr">36630 </span> <span class="subxComment"># check output</span> -<span id="L36631" class="LineNr">36631 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"03/add *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-add-mem-to-reg"</span>) -<span id="L36632" class="LineNr">36632 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36633" class="LineNr">36633 </span> 89/<- %esp 5/r32/ebp -<span id="L36634" class="LineNr">36634 </span> 5d/pop-to-ebp -<span id="L36635" class="LineNr">36635 </span> c3/return -<span id="L36636" class="LineNr">36636 </span> -<span id="L36637" class="LineNr">36637 </span><span class="subxTest">test-add-literal-to-eax</span>: -<span id="L36638" class="LineNr">36638 </span> <span class="subxComment"># var1/eax <- add 0x34</span> -<span id="L36639" class="LineNr">36639 </span> <span class="subxComment"># =></span> -<span id="L36640" class="LineNr">36640 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> -<span id="L36641" class="LineNr">36641 </span> <span class="subxComment">#</span> -<span id="L36642" class="LineNr">36642 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36643" class="LineNr">36643 </span> 55/push-ebp -<span id="L36644" class="LineNr">36644 </span> 89/<- %ebp 4/r32/esp -<span id="L36645" class="LineNr">36645 </span> <span class="subxComment"># setup</span> -<span id="L36646" class="LineNr">36646 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36647" class="LineNr">36647 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36648" class="LineNr">36648 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: -<span id="L36649" class="LineNr">36649 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36650" class="LineNr">36650 </span> 68/push 0/imm32/right:null -<span id="L36651" class="LineNr">36651 </span> 68/push 0/imm32/right:null -<span id="L36652" class="LineNr">36652 </span> 68/push 0/imm32/left:unused -<span id="L36653" class="LineNr">36653 </span> 68/push 1/imm32/value:int -<span id="L36654" class="LineNr">36654 </span> 68/push 1/imm32/is-atom?:true -<span id="L36655" class="LineNr">36655 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36656" class="LineNr">36656 </span> 89/<- %ecx 4/r32/esp -<span id="L36657" class="LineNr">36657 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: -<span id="L36658" class="LineNr">36658 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L36659" class="LineNr">36659 </span> 68/push 0/imm32/register -<span id="L36660" class="LineNr">36660 </span> 68/push 0/imm32/register -<span id="L36661" class="LineNr">36661 </span> 68/push 0/imm32/no-stack-offset -<span id="L36662" class="LineNr">36662 </span> 68/push 1/imm32/block-depth -<span id="L36663" class="LineNr">36663 </span> 51/push-ecx -<span id="L36664" class="LineNr">36664 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36665" class="LineNr">36665 </span> 68/push 0/imm32/name -<span id="L36666" class="LineNr">36666 </span> 68/push 0/imm32/name -<span id="L36667" class="LineNr">36667 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36668" class="LineNr">36668 </span> 89/<- %ecx 4/r32/esp -<span id="L36669" class="LineNr">36669 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: -<span id="L36670" class="LineNr">36670 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L36671" class="LineNr">36671 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36672" class="LineNr">36672 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L36673" class="LineNr">36673 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: -<span id="L36674" class="LineNr">36674 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L36675" class="LineNr">36675 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36676" class="LineNr">36676 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L36677" class="LineNr">36677 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: -<span id="L36678" class="LineNr">36678 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L36679" class="LineNr">36679 </span> 68/push 0/imm32/right:null -<span id="L36680" class="LineNr">36680 </span> 68/push 0/imm32/right:null -<span id="L36681" class="LineNr">36681 </span> 68/push 0/imm32/left:unused -<span id="L36682" class="LineNr">36682 </span> 68/push 0/imm32/value:literal -<span id="L36683" class="LineNr">36683 </span> 68/push 1/imm32/is-atom?:true -<span id="L36684" class="LineNr">36684 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36685" class="LineNr">36685 </span> 89/<- %edx 4/r32/esp -<span id="L36686" class="LineNr">36686 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: -<span id="L36687" class="LineNr">36687 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L36688" class="LineNr">36688 </span> 68/push 0/imm32/register -<span id="L36689" class="LineNr">36689 </span> 68/push 0/imm32/register -<span id="L36690" class="LineNr">36690 </span> 68/push 0/imm32/no-stack-offset -<span id="L36691" class="LineNr">36691 </span> 68/push 1/imm32/block-depth -<span id="L36692" class="LineNr">36692 </span> 52/push-edx -<span id="L36693" class="LineNr">36693 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36694" class="LineNr">36694 </span> 68/push 0/imm32/name -<span id="L36695" class="LineNr">36695 </span> 68/push 0/imm32/name -<span id="L36696" class="LineNr">36696 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36697" class="LineNr">36697 </span> 89/<- %edx 4/r32/esp -<span id="L36698" class="LineNr">36698 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: -<span id="L36699" class="LineNr">36699 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L36700" class="LineNr">36700 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36701" class="LineNr">36701 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L36702" class="LineNr">36702 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: -<span id="L36703" class="LineNr">36703 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L36704" class="LineNr">36704 </span> 68/push 0/imm32/is-deref:false -<span id="L36705" class="LineNr">36705 </span> 68/push 0/imm32/next -<span id="L36706" class="LineNr">36706 </span> 68/push 0/imm32/next -<span id="L36707" class="LineNr">36707 </span> 52/push-edx/l -<span id="L36708" class="LineNr">36708 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36709" class="LineNr">36709 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36710" class="LineNr">36710 </span> 89/<- %esi 4/r32/esp -<span id="L36711" class="LineNr">36711 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: -<span id="L36712" class="LineNr">36712 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L36713" class="LineNr">36713 </span> 68/push 0/imm32/is-deref:false -<span id="L36714" class="LineNr">36714 </span> 68/push 0/imm32/next -<span id="L36715" class="LineNr">36715 </span> 68/push 0/imm32/next -<span id="L36716" class="LineNr">36716 </span> 51/push-ecx/v -<span id="L36717" class="LineNr">36717 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36718" class="LineNr">36718 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36719" class="LineNr">36719 </span> 89/<- %edi 4/r32/esp -<span id="L36720" class="LineNr">36720 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: -<span id="L36721" class="LineNr">36721 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36722" class="LineNr">36722 </span> 68/push 0/imm32/next -<span id="L36723" class="LineNr">36723 </span> 68/push 0/imm32/next -<span id="L36724" class="LineNr">36724 </span> 57/push-edi/outputs -<span id="L36725" class="LineNr">36725 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36726" class="LineNr">36726 </span> 56/push-esi/inouts -<span id="L36727" class="LineNr">36727 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36728" class="LineNr">36728 </span> 68/push 0/imm32/operation -<span id="L36729" class="LineNr">36729 </span> 68/push 0/imm32/operation -<span id="L36730" class="LineNr">36730 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36731" class="LineNr">36731 </span> 89/<- %esi 4/r32/esp -<span id="L36732" class="LineNr">36732 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: -<span id="L36733" class="LineNr">36733 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L36734" class="LineNr">36734 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36735" class="LineNr">36735 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L36736" class="LineNr">36736 </span> <span class="subxComment"># convert</span> -<span id="L36737" class="LineNr">36737 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36738" class="LineNr">36738 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36739" class="LineNr">36739 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36740" class="Folded">36740 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36746" class="LineNr">36746 </span> <span class="subxComment"># check output</span> -<span id="L36747" class="LineNr">36747 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"05/add-to-eax 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-eax"</span>) -<span id="L36748" class="LineNr">36748 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36749" class="LineNr">36749 </span> 89/<- %esp 5/r32/ebp -<span id="L36750" class="LineNr">36750 </span> 5d/pop-to-ebp -<span id="L36751" class="LineNr">36751 </span> c3/return -<span id="L36752" class="LineNr">36752 </span> -<span id="L36753" class="LineNr">36753 </span><span class="subxTest">test-add-literal-to-reg</span>: -<span id="L36754" class="LineNr">36754 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> -<span id="L36755" class="LineNr">36755 </span> <span class="subxComment"># =></span> -<span id="L36756" class="LineNr">36756 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> -<span id="L36757" class="LineNr">36757 </span> <span class="subxComment">#</span> -<span id="L36758" class="LineNr">36758 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36759" class="LineNr">36759 </span> 55/push-ebp -<span id="L36760" class="LineNr">36760 </span> 89/<- %ebp 4/r32/esp -<span id="L36761" class="LineNr">36761 </span> <span class="subxComment"># setup</span> -<span id="L36762" class="LineNr">36762 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36763" class="LineNr">36763 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36764" class="LineNr">36764 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: -<span id="L36765" class="LineNr">36765 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36766" class="LineNr">36766 </span> 68/push 0/imm32/right:null -<span id="L36767" class="LineNr">36767 </span> 68/push 0/imm32/right:null -<span id="L36768" class="LineNr">36768 </span> 68/push 0/imm32/left:unused -<span id="L36769" class="LineNr">36769 </span> 68/push 1/imm32/value:int -<span id="L36770" class="LineNr">36770 </span> 68/push 1/imm32/is-atom?:true -<span id="L36771" class="LineNr">36771 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36772" class="LineNr">36772 </span> 89/<- %ecx 4/r32/esp -<span id="L36773" class="LineNr">36773 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: -<span id="L36774" class="LineNr">36774 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L36775" class="LineNr">36775 </span> 68/push 0/imm32/register -<span id="L36776" class="LineNr">36776 </span> 68/push 0/imm32/register -<span id="L36777" class="LineNr">36777 </span> 68/push 0/imm32/no-stack-offset -<span id="L36778" class="LineNr">36778 </span> 68/push 1/imm32/block-depth -<span id="L36779" class="LineNr">36779 </span> 51/push-ecx -<span id="L36780" class="LineNr">36780 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36781" class="LineNr">36781 </span> 68/push 0/imm32/name -<span id="L36782" class="LineNr">36782 </span> 68/push 0/imm32/name -<span id="L36783" class="LineNr">36783 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36784" class="LineNr">36784 </span> 89/<- %ecx 4/r32/esp -<span id="L36785" class="LineNr">36785 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: -<span id="L36786" class="LineNr">36786 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L36787" class="LineNr">36787 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36788" class="LineNr">36788 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L36789" class="LineNr">36789 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: -<span id="L36790" class="LineNr">36790 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L36791" class="LineNr">36791 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L36792" class="LineNr">36792 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L36793" class="LineNr">36793 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: -<span id="L36794" class="LineNr">36794 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L36795" class="LineNr">36795 </span> 68/push 0/imm32/right:null -<span id="L36796" class="LineNr">36796 </span> 68/push 0/imm32/right:null -<span id="L36797" class="LineNr">36797 </span> 68/push 0/imm32/left:unused -<span id="L36798" class="LineNr">36798 </span> 68/push 0/imm32/value:literal -<span id="L36799" class="LineNr">36799 </span> 68/push 1/imm32/is-atom?:true -<span id="L36800" class="LineNr">36800 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36801" class="LineNr">36801 </span> 89/<- %edx 4/r32/esp -<span id="L36802" class="LineNr">36802 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: -<span id="L36803" class="LineNr">36803 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L36804" class="LineNr">36804 </span> 68/push 0/imm32/register -<span id="L36805" class="LineNr">36805 </span> 68/push 0/imm32/register -<span id="L36806" class="LineNr">36806 </span> 68/push 0/imm32/no-stack-offset -<span id="L36807" class="LineNr">36807 </span> 68/push 1/imm32/block-depth -<span id="L36808" class="LineNr">36808 </span> 52/push-edx -<span id="L36809" class="LineNr">36809 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36810" class="LineNr">36810 </span> 68/push 0/imm32/name -<span id="L36811" class="LineNr">36811 </span> 68/push 0/imm32/name -<span id="L36812" class="LineNr">36812 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36813" class="LineNr">36813 </span> 89/<- %edx 4/r32/esp -<span id="L36814" class="LineNr">36814 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: -<span id="L36815" class="LineNr">36815 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L36816" class="LineNr">36816 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36817" class="LineNr">36817 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L36818" class="LineNr">36818 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: -<span id="L36819" class="LineNr">36819 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L36820" class="LineNr">36820 </span> 68/push 0/imm32/is-deref:false -<span id="L36821" class="LineNr">36821 </span> 68/push 0/imm32/next -<span id="L36822" class="LineNr">36822 </span> 68/push 0/imm32/next -<span id="L36823" class="LineNr">36823 </span> 52/push-edx/l -<span id="L36824" class="LineNr">36824 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36825" class="LineNr">36825 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36826" class="LineNr">36826 </span> 89/<- %esi 4/r32/esp -<span id="L36827" class="LineNr">36827 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: -<span id="L36828" class="LineNr">36828 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L36829" class="LineNr">36829 </span> 68/push 0/imm32/is-deref:false -<span id="L36830" class="LineNr">36830 </span> 68/push 0/imm32/next -<span id="L36831" class="LineNr">36831 </span> 68/push 0/imm32/next -<span id="L36832" class="LineNr">36832 </span> 51/push-ecx/v -<span id="L36833" class="LineNr">36833 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36834" class="LineNr">36834 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36835" class="LineNr">36835 </span> 89/<- %edi 4/r32/esp -<span id="L36836" class="LineNr">36836 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: -<span id="L36837" class="LineNr">36837 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36838" class="LineNr">36838 </span> 68/push 0/imm32/next -<span id="L36839" class="LineNr">36839 </span> 68/push 0/imm32/next -<span id="L36840" class="LineNr">36840 </span> 57/push-edi/outputs -<span id="L36841" class="LineNr">36841 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36842" class="LineNr">36842 </span> 56/push-esi/inouts -<span id="L36843" class="LineNr">36843 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36844" class="LineNr">36844 </span> 68/push 0/imm32/operation -<span id="L36845" class="LineNr">36845 </span> 68/push 0/imm32/operation -<span id="L36846" class="LineNr">36846 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36847" class="LineNr">36847 </span> 89/<- %esi 4/r32/esp -<span id="L36848" class="LineNr">36848 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: -<span id="L36849" class="LineNr">36849 </span> <span class="subxComment"># stmt->operation = "add"</span> -<span id="L36850" class="LineNr">36850 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36851" class="LineNr">36851 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) -<span id="L36852" class="LineNr">36852 </span> <span class="subxComment"># convert</span> -<span id="L36853" class="LineNr">36853 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36854" class="LineNr">36854 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36855" class="LineNr">36855 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36856" class="Folded">36856 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36862" class="LineNr">36862 </span> <span class="subxComment"># check output</span> -<span id="L36863" class="LineNr">36863 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 0/subop/add %ecx 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-reg"</span>) -<span id="L36864" class="LineNr">36864 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36865" class="LineNr">36865 </span> 89/<- %esp 5/r32/ebp -<span id="L36866" class="LineNr">36866 </span> 5d/pop-to-ebp -<span id="L36867" class="LineNr">36867 </span> c3/return -<span id="L36868" class="LineNr">36868 </span> -<span id="L36869" class="LineNr">36869 </span><span class="subxTest">test-add-literal-to-mem</span>: -<span id="L36870" class="LineNr">36870 </span> <span class="subxComment"># add-to var1, 0x34</span> -<span id="L36871" class="LineNr">36871 </span> <span class="subxComment"># =></span> -<span id="L36872" class="LineNr">36872 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> -<span id="L36873" class="LineNr">36873 </span> <span class="subxComment">#</span> -<span id="L36874" class="LineNr">36874 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36875" class="LineNr">36875 </span> 55/push-ebp -<span id="L36876" class="LineNr">36876 </span> 89/<- %ebp 4/r32/esp -<span id="L36877" class="LineNr">36877 </span> <span class="subxComment"># setup</span> -<span id="L36878" class="LineNr">36878 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36879" class="LineNr">36879 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36880" class="LineNr">36880 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: -<span id="L36881" class="LineNr">36881 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36882" class="LineNr">36882 </span> 68/push 0/imm32/right:null -<span id="L36883" class="LineNr">36883 </span> 68/push 0/imm32/right:null -<span id="L36884" class="LineNr">36884 </span> 68/push 0/imm32/left:unused -<span id="L36885" class="LineNr">36885 </span> 68/push 1/imm32/value:int -<span id="L36886" class="LineNr">36886 </span> 68/push 1/imm32/is-atom?:true -<span id="L36887" class="LineNr">36887 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36888" class="LineNr">36888 </span> 89/<- %ecx 4/r32/esp -<span id="L36889" class="LineNr">36889 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: -<span id="L36890" class="LineNr">36890 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L36891" class="LineNr">36891 </span> 68/push 0/imm32/register -<span id="L36892" class="LineNr">36892 </span> 68/push 0/imm32/register -<span id="L36893" class="LineNr">36893 </span> 68/push 8/imm32/stack-offset -<span id="L36894" class="LineNr">36894 </span> 68/push 1/imm32/block-depth -<span id="L36895" class="LineNr">36895 </span> 51/push-ecx -<span id="L36896" class="LineNr">36896 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36897" class="LineNr">36897 </span> 68/push 0/imm32/name -<span id="L36898" class="LineNr">36898 </span> 68/push 0/imm32/name -<span id="L36899" class="LineNr">36899 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36900" class="LineNr">36900 </span> 89/<- %ecx 4/r32/esp -<span id="L36901" class="LineNr">36901 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: -<span id="L36902" class="LineNr">36902 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L36903" class="LineNr">36903 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36904" class="LineNr">36904 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L36905" class="LineNr">36905 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: -<span id="L36906" class="LineNr">36906 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L36907" class="LineNr">36907 </span> 68/push 0/imm32/right:null -<span id="L36908" class="LineNr">36908 </span> 68/push 0/imm32/right:null -<span id="L36909" class="LineNr">36909 </span> 68/push 0/imm32/left:unused -<span id="L36910" class="LineNr">36910 </span> 68/push 0/imm32/value:literal -<span id="L36911" class="LineNr">36911 </span> 68/push 1/imm32/is-atom?:true -<span id="L36912" class="LineNr">36912 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36913" class="LineNr">36913 </span> 89/<- %edx 4/r32/esp -<span id="L36914" class="LineNr">36914 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: -<span id="L36915" class="LineNr">36915 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L36916" class="LineNr">36916 </span> 68/push 0/imm32/register -<span id="L36917" class="LineNr">36917 </span> 68/push 0/imm32/register -<span id="L36918" class="LineNr">36918 </span> 68/push 0/imm32/no-stack-offset -<span id="L36919" class="LineNr">36919 </span> 68/push 1/imm32/block-depth -<span id="L36920" class="LineNr">36920 </span> 52/push-edx -<span id="L36921" class="LineNr">36921 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36922" class="LineNr">36922 </span> 68/push 0/imm32/name -<span id="L36923" class="LineNr">36923 </span> 68/push 0/imm32/name -<span id="L36924" class="LineNr">36924 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36925" class="LineNr">36925 </span> 89/<- %edx 4/r32/esp -<span id="L36926" class="LineNr">36926 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: -<span id="L36927" class="LineNr">36927 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L36928" class="LineNr">36928 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L36929" class="LineNr">36929 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L36930" class="LineNr">36930 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: -<span id="L36931" class="LineNr">36931 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L36932" class="LineNr">36932 </span> 68/push 0/imm32/is-deref:false -<span id="L36933" class="LineNr">36933 </span> 68/push 0/imm32/next -<span id="L36934" class="LineNr">36934 </span> 68/push 0/imm32/next -<span id="L36935" class="LineNr">36935 </span> 52/push-edx/l -<span id="L36936" class="LineNr">36936 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36937" class="LineNr">36937 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36938" class="LineNr">36938 </span> 89/<- %esi 4/r32/esp -<span id="L36939" class="LineNr">36939 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L36940" class="LineNr">36940 </span> 68/push 0/imm32/is-deref:false -<span id="L36941" class="LineNr">36941 </span> 56/push-esi/next -<span id="L36942" class="LineNr">36942 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36943" class="LineNr">36943 </span> 51/push-ecx/var1 -<span id="L36944" class="LineNr">36944 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36945" class="LineNr">36945 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36946" class="LineNr">36946 </span> 89/<- %esi 4/r32/esp -<span id="L36947" class="LineNr">36947 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: -<span id="L36948" class="LineNr">36948 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L36949" class="LineNr">36949 </span> 68/push 0/imm32/next -<span id="L36950" class="LineNr">36950 </span> 68/push 0/imm32/next -<span id="L36951" class="LineNr">36951 </span> 68/push 0/imm32/outputs -<span id="L36952" class="LineNr">36952 </span> 68/push 0/imm32/outputs -<span id="L36953" class="LineNr">36953 </span> 56/push-esi/inouts -<span id="L36954" class="LineNr">36954 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L36955" class="LineNr">36955 </span> 68/push 0/imm32/operation -<span id="L36956" class="LineNr">36956 </span> 68/push 0/imm32/operation -<span id="L36957" class="LineNr">36957 </span> 68/push 1/imm32/tag:stmt1 -<span id="L36958" class="LineNr">36958 </span> 89/<- %esi 4/r32/esp -<span id="L36959" class="LineNr">36959 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: -<span id="L36960" class="LineNr">36960 </span> <span class="subxComment"># stmt->operation = "add-to"</span> -<span id="L36961" class="LineNr">36961 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L36962" class="LineNr">36962 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) -<span id="L36963" class="LineNr">36963 </span> <span class="subxComment"># convert</span> -<span id="L36964" class="LineNr">36964 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L36965" class="LineNr">36965 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L36966" class="LineNr">36966 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L36967" class="Folded">36967 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L36973" class="LineNr">36973 </span> <span class="subxComment"># check output</span> -<span id="L36974" class="LineNr">36974 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 0/subop/add *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-mem"</span>) -<span id="L36975" class="LineNr">36975 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L36976" class="LineNr">36976 </span> 89/<- %esp 5/r32/ebp -<span id="L36977" class="LineNr">36977 </span> 5d/pop-to-ebp -<span id="L36978" class="LineNr">36978 </span> c3/return -<span id="L36979" class="LineNr">36979 </span> -<span id="L36980" class="LineNr">36980 </span><span class="subxTest">test-shift-reg-by-literal</span>: -<span id="L36981" class="LineNr">36981 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> -<span id="L36982" class="LineNr">36982 </span> <span class="subxComment"># =></span> -<span id="L36983" class="LineNr">36983 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> -<span id="L36984" class="LineNr">36984 </span> <span class="subxComment">#</span> -<span id="L36985" class="LineNr">36985 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L36986" class="LineNr">36986 </span> 55/push-ebp -<span id="L36987" class="LineNr">36987 </span> 89/<- %ebp 4/r32/esp -<span id="L36988" class="LineNr">36988 </span> <span class="subxComment"># setup</span> -<span id="L36989" class="LineNr">36989 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L36990" class="LineNr">36990 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L36991" class="LineNr">36991 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: -<span id="L36992" class="LineNr">36992 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L36993" class="LineNr">36993 </span> 68/push 0/imm32/right:null -<span id="L36994" class="LineNr">36994 </span> 68/push 0/imm32/right:null -<span id="L36995" class="LineNr">36995 </span> 68/push 0/imm32/left:unused -<span id="L36996" class="LineNr">36996 </span> 68/push 1/imm32/value:int -<span id="L36997" class="LineNr">36997 </span> 68/push 1/imm32/is-atom?:true -<span id="L36998" class="LineNr">36998 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L36999" class="LineNr">36999 </span> 89/<- %ecx 4/r32/esp -<span id="L37000" class="LineNr">37000 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: -<span id="L37001" class="LineNr">37001 </span> <span class="subxComment"># var v/ecx: (payload var)</span> -<span id="L37002" class="LineNr">37002 </span> 68/push 0/imm32/register -<span id="L37003" class="LineNr">37003 </span> 68/push 0/imm32/register -<span id="L37004" class="LineNr">37004 </span> 68/push 0/imm32/no-stack-offset -<span id="L37005" class="LineNr">37005 </span> 68/push 1/imm32/block-depth -<span id="L37006" class="LineNr">37006 </span> 51/push-ecx -<span id="L37007" class="LineNr">37007 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37008" class="LineNr">37008 </span> 68/push 0/imm32/name -<span id="L37009" class="LineNr">37009 </span> 68/push 0/imm32/name -<span id="L37010" class="LineNr">37010 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37011" class="LineNr">37011 </span> 89/<- %ecx 4/r32/esp -<span id="L37012" class="LineNr">37012 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: -<span id="L37013" class="LineNr">37013 </span> <span class="subxComment"># v->name = "v"</span> -<span id="L37014" class="LineNr">37014 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37015" class="LineNr">37015 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) -<span id="L37016" class="LineNr">37016 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: -<span id="L37017" class="LineNr">37017 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L37018" class="LineNr">37018 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37019" class="LineNr">37019 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L37020" class="LineNr">37020 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: -<span id="L37021" class="LineNr">37021 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37022" class="LineNr">37022 </span> 68/push 0/imm32/right:null -<span id="L37023" class="LineNr">37023 </span> 68/push 0/imm32/right:null -<span id="L37024" class="LineNr">37024 </span> 68/push 0/imm32/left:unused -<span id="L37025" class="LineNr">37025 </span> 68/push 0/imm32/value:literal -<span id="L37026" class="LineNr">37026 </span> 68/push 1/imm32/is-atom?:true -<span id="L37027" class="LineNr">37027 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37028" class="LineNr">37028 </span> 89/<- %edx 4/r32/esp -<span id="L37029" class="LineNr">37029 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: -<span id="L37030" class="LineNr">37030 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37031" class="LineNr">37031 </span> 68/push 0/imm32/register -<span id="L37032" class="LineNr">37032 </span> 68/push 0/imm32/register -<span id="L37033" class="LineNr">37033 </span> 68/push 0/imm32/no-stack-offset -<span id="L37034" class="LineNr">37034 </span> 68/push 1/imm32/block-depth -<span id="L37035" class="LineNr">37035 </span> 52/push-edx -<span id="L37036" class="LineNr">37036 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37037" class="LineNr">37037 </span> 68/push 0/imm32/name -<span id="L37038" class="LineNr">37038 </span> 68/push 0/imm32/name -<span id="L37039" class="LineNr">37039 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37040" class="LineNr">37040 </span> 89/<- %edx 4/r32/esp -<span id="L37041" class="LineNr">37041 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: -<span id="L37042" class="LineNr">37042 </span> <span class="subxComment"># l->name = "2"</span> -<span id="L37043" class="LineNr">37043 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37044" class="LineNr">37044 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"2"</span> %eax) -<span id="L37045" class="LineNr">37045 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: -<span id="L37046" class="LineNr">37046 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37047" class="LineNr">37047 </span> 68/push 0/imm32/is-deref:false -<span id="L37048" class="LineNr">37048 </span> 68/push 0/imm32/next -<span id="L37049" class="LineNr">37049 </span> 68/push 0/imm32/next -<span id="L37050" class="LineNr">37050 </span> 52/push-edx/l -<span id="L37051" class="LineNr">37051 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37052" class="LineNr">37052 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37053" class="LineNr">37053 </span> 89/<- %esi 4/r32/esp -<span id="L37054" class="LineNr">37054 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: -<span id="L37055" class="LineNr">37055 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> -<span id="L37056" class="LineNr">37056 </span> 68/push 0/imm32/is-deref:false -<span id="L37057" class="LineNr">37057 </span> 68/push 0/imm32/next -<span id="L37058" class="LineNr">37058 </span> 68/push 0/imm32/next -<span id="L37059" class="LineNr">37059 </span> 51/push-ecx/v -<span id="L37060" class="LineNr">37060 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37061" class="LineNr">37061 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37062" class="LineNr">37062 </span> 89/<- %edi 4/r32/esp -<span id="L37063" class="LineNr">37063 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: -<span id="L37064" class="LineNr">37064 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37065" class="LineNr">37065 </span> 68/push 0/imm32/next -<span id="L37066" class="LineNr">37066 </span> 68/push 0/imm32/next -<span id="L37067" class="LineNr">37067 </span> 57/push-edi/outputs -<span id="L37068" class="LineNr">37068 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37069" class="LineNr">37069 </span> 56/push-esi/inouts -<span id="L37070" class="LineNr">37070 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37071" class="LineNr">37071 </span> 68/push 0/imm32/operation -<span id="L37072" class="LineNr">37072 </span> 68/push 0/imm32/operation -<span id="L37073" class="LineNr">37073 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37074" class="LineNr">37074 </span> 89/<- %esi 4/r32/esp -<span id="L37075" class="LineNr">37075 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: -<span id="L37076" class="LineNr">37076 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L37077" class="LineNr">37077 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37078" class="LineNr">37078 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) -<span id="L37079" class="LineNr">37079 </span> <span class="subxComment"># convert</span> -<span id="L37080" class="LineNr">37080 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37081" class="LineNr">37081 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37082" class="LineNr">37082 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37083" class="Folded">37083 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37089" class="LineNr">37089 </span> <span class="subxComment"># check output</span> -<span id="L37090" class="LineNr">37090 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left %ecx 2/imm8"</span> <span class="Constant">"F - test-shift-reg-by-literal"</span>) -<span id="L37091" class="LineNr">37091 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37092" class="LineNr">37092 </span> 89/<- %esp 5/r32/ebp -<span id="L37093" class="LineNr">37093 </span> 5d/pop-to-ebp -<span id="L37094" class="LineNr">37094 </span> c3/return -<span id="L37095" class="LineNr">37095 </span> -<span id="L37096" class="LineNr">37096 </span><span class="subxTest">test-shift-mem-by-literal</span>: -<span id="L37097" class="LineNr">37097 </span> <span class="subxComment"># shift-left var 3</span> -<span id="L37098" class="LineNr">37098 </span> <span class="subxComment"># =></span> -<span id="L37099" class="LineNr">37099 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> -<span id="L37100" class="LineNr">37100 </span> <span class="subxComment">#</span> -<span id="L37101" class="LineNr">37101 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37102" class="LineNr">37102 </span> 55/push-ebp -<span id="L37103" class="LineNr">37103 </span> 89/<- %ebp 4/r32/esp -<span id="L37104" class="LineNr">37104 </span> <span class="subxComment"># setup</span> -<span id="L37105" class="LineNr">37105 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37106" class="LineNr">37106 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37107" class="LineNr">37107 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: -<span id="L37108" class="LineNr">37108 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37109" class="LineNr">37109 </span> 68/push 0/imm32/right:null -<span id="L37110" class="LineNr">37110 </span> 68/push 0/imm32/right:null -<span id="L37111" class="LineNr">37111 </span> 68/push 0/imm32/left:unused -<span id="L37112" class="LineNr">37112 </span> 68/push 1/imm32/value:int -<span id="L37113" class="LineNr">37113 </span> 68/push 1/imm32/is-atom?:true -<span id="L37114" class="LineNr">37114 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37115" class="LineNr">37115 </span> 89/<- %ecx 4/r32/esp -<span id="L37116" class="LineNr">37116 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: -<span id="L37117" class="LineNr">37117 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37118" class="LineNr">37118 </span> 68/push 0/imm32/register -<span id="L37119" class="LineNr">37119 </span> 68/push 0/imm32/register -<span id="L37120" class="LineNr">37120 </span> 68/push 8/imm32/stack-offset -<span id="L37121" class="LineNr">37121 </span> 68/push 1/imm32/block-depth -<span id="L37122" class="LineNr">37122 </span> 51/push-ecx -<span id="L37123" class="LineNr">37123 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37124" class="LineNr">37124 </span> 68/push 0/imm32/name -<span id="L37125" class="LineNr">37125 </span> 68/push 0/imm32/name -<span id="L37126" class="LineNr">37126 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37127" class="LineNr">37127 </span> 89/<- %ecx 4/r32/esp -<span id="L37128" class="LineNr">37128 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: -<span id="L37129" class="LineNr">37129 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37130" class="LineNr">37130 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37131" class="LineNr">37131 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37132" class="LineNr">37132 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: -<span id="L37133" class="LineNr">37133 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37134" class="LineNr">37134 </span> 68/push 0/imm32/right:null -<span id="L37135" class="LineNr">37135 </span> 68/push 0/imm32/right:null -<span id="L37136" class="LineNr">37136 </span> 68/push 0/imm32/left:unused -<span id="L37137" class="LineNr">37137 </span> 68/push 0/imm32/value:literal -<span id="L37138" class="LineNr">37138 </span> 68/push 1/imm32/is-atom?:true -<span id="L37139" class="LineNr">37139 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37140" class="LineNr">37140 </span> 89/<- %edx 4/r32/esp -<span id="L37141" class="LineNr">37141 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: -<span id="L37142" class="LineNr">37142 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37143" class="LineNr">37143 </span> 68/push 0/imm32/register -<span id="L37144" class="LineNr">37144 </span> 68/push 0/imm32/register -<span id="L37145" class="LineNr">37145 </span> 68/push 0/imm32/no-stack-offset -<span id="L37146" class="LineNr">37146 </span> 68/push 1/imm32/block-depth -<span id="L37147" class="LineNr">37147 </span> 52/push-edx -<span id="L37148" class="LineNr">37148 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37149" class="LineNr">37149 </span> 68/push 0/imm32/name -<span id="L37150" class="LineNr">37150 </span> 68/push 0/imm32/name -<span id="L37151" class="LineNr">37151 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37152" class="LineNr">37152 </span> 89/<- %edx 4/r32/esp -<span id="L37153" class="LineNr">37153 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: -<span id="L37154" class="LineNr">37154 </span> <span class="subxComment"># l->name = "3"</span> -<span id="L37155" class="LineNr">37155 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37156" class="LineNr">37156 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"3"</span> %eax) -<span id="L37157" class="LineNr">37157 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: -<span id="L37158" class="LineNr">37158 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37159" class="LineNr">37159 </span> 68/push 0/imm32/is-deref:false -<span id="L37160" class="LineNr">37160 </span> 68/push 0/imm32/next -<span id="L37161" class="LineNr">37161 </span> 68/push 0/imm32/next -<span id="L37162" class="LineNr">37162 </span> 52/push-edx/l -<span id="L37163" class="LineNr">37163 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37164" class="LineNr">37164 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37165" class="LineNr">37165 </span> 89/<- %esi 4/r32/esp -<span id="L37166" class="LineNr">37166 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37167" class="LineNr">37167 </span> 68/push 0/imm32/is-deref:false -<span id="L37168" class="LineNr">37168 </span> 56/push-esi/next -<span id="L37169" class="LineNr">37169 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37170" class="LineNr">37170 </span> 51/push-ecx/var1 -<span id="L37171" class="LineNr">37171 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37172" class="LineNr">37172 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37173" class="LineNr">37173 </span> 89/<- %esi 4/r32/esp -<span id="L37174" class="LineNr">37174 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: -<span id="L37175" class="LineNr">37175 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37176" class="LineNr">37176 </span> 68/push 0/imm32/next -<span id="L37177" class="LineNr">37177 </span> 68/push 0/imm32/next -<span id="L37178" class="LineNr">37178 </span> 68/push 0/imm32/outputs -<span id="L37179" class="LineNr">37179 </span> 68/push 0/imm32/outputs -<span id="L37180" class="LineNr">37180 </span> 56/push-esi/inouts -<span id="L37181" class="LineNr">37181 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37182" class="LineNr">37182 </span> 68/push 0/imm32/operation -<span id="L37183" class="LineNr">37183 </span> 68/push 0/imm32/operation -<span id="L37184" class="LineNr">37184 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37185" class="LineNr">37185 </span> 89/<- %esi 4/r32/esp -<span id="L37186" class="LineNr">37186 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: -<span id="L37187" class="LineNr">37187 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> -<span id="L37188" class="LineNr">37188 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37189" class="LineNr">37189 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) -<span id="L37190" class="LineNr">37190 </span> <span class="subxComment"># convert</span> -<span id="L37191" class="LineNr">37191 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37192" class="LineNr">37192 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37193" class="LineNr">37193 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37194" class="Folded">37194 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37200" class="LineNr">37200 </span> <span class="subxComment"># check output</span> -<span id="L37201" class="LineNr">37201 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left *(ebp+0x00000008) 3/imm8"</span> <span class="Constant">"F - test-shift-mem-by-literal"</span>) -<span id="L37202" class="LineNr">37202 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37203" class="LineNr">37203 </span> 89/<- %esp 5/r32/ebp -<span id="L37204" class="LineNr">37204 </span> 5d/pop-to-ebp -<span id="L37205" class="LineNr">37205 </span> c3/return -<span id="L37206" class="LineNr">37206 </span> -<span id="L37207" class="LineNr">37207 </span><span class="subxTest">test-compare-reg-with-reg</span>: -<span id="L37208" class="LineNr">37208 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> -<span id="L37209" class="LineNr">37209 </span> <span class="subxComment"># =></span> -<span id="L37210" class="LineNr">37210 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> -<span id="L37211" class="LineNr">37211 </span> <span class="subxComment">#</span> -<span id="L37212" class="LineNr">37212 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37213" class="LineNr">37213 </span> 55/push-ebp -<span id="L37214" class="LineNr">37214 </span> 89/<- %ebp 4/r32/esp -<span id="L37215" class="LineNr">37215 </span> <span class="subxComment"># setup</span> -<span id="L37216" class="LineNr">37216 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37217" class="LineNr">37217 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37218" class="LineNr">37218 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: -<span id="L37219" class="LineNr">37219 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37220" class="LineNr">37220 </span> 68/push 0/imm32/right:null -<span id="L37221" class="LineNr">37221 </span> 68/push 0/imm32/right:null -<span id="L37222" class="LineNr">37222 </span> 68/push 0/imm32/left:unused -<span id="L37223" class="LineNr">37223 </span> 68/push 1/imm32/value:int -<span id="L37224" class="LineNr">37224 </span> 68/push 1/imm32/is-atom?:true -<span id="L37225" class="LineNr">37225 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37226" class="LineNr">37226 </span> 89/<- %ecx 4/r32/esp -<span id="L37227" class="LineNr">37227 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: -<span id="L37228" class="LineNr">37228 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37229" class="LineNr">37229 </span> 68/push 0/imm32/register -<span id="L37230" class="LineNr">37230 </span> 68/push 0/imm32/register -<span id="L37231" class="LineNr">37231 </span> 68/push 0/imm32/no-stack-offset -<span id="L37232" class="LineNr">37232 </span> 68/push 1/imm32/block-depth -<span id="L37233" class="LineNr">37233 </span> 51/push-ecx -<span id="L37234" class="LineNr">37234 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37235" class="LineNr">37235 </span> 68/push 0/imm32/name -<span id="L37236" class="LineNr">37236 </span> 68/push 0/imm32/name -<span id="L37237" class="LineNr">37237 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37238" class="LineNr">37238 </span> 89/<- %ecx 4/r32/esp -<span id="L37239" class="LineNr">37239 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: -<span id="L37240" class="LineNr">37240 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37241" class="LineNr">37241 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37242" class="LineNr">37242 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37243" class="LineNr">37243 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: -<span id="L37244" class="LineNr">37244 </span> <span class="subxComment"># var1->register = "ecx"</span> -<span id="L37245" class="LineNr">37245 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37246" class="LineNr">37246 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L37247" class="LineNr">37247 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: -<span id="L37248" class="LineNr">37248 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37249" class="LineNr">37249 </span> 68/push 0/imm32/register -<span id="L37250" class="LineNr">37250 </span> 68/push 0/imm32/register -<span id="L37251" class="LineNr">37251 </span> 68/push 0/imm32/no-stack-offset -<span id="L37252" class="LineNr">37252 </span> 68/push 1/imm32/block-depth -<span id="L37253" class="LineNr">37253 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37254" class="LineNr">37254 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37255" class="LineNr">37255 </span> 68/push 0/imm32/name -<span id="L37256" class="LineNr">37256 </span> 68/push 0/imm32/name -<span id="L37257" class="LineNr">37257 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37258" class="LineNr">37258 </span> 89/<- %edx 4/r32/esp -<span id="L37259" class="LineNr">37259 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: -<span id="L37260" class="LineNr">37260 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37261" class="LineNr">37261 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37262" class="LineNr">37262 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L37263" class="LineNr">37263 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: -<span id="L37264" class="LineNr">37264 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L37265" class="LineNr">37265 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37266" class="LineNr">37266 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37267" class="LineNr">37267 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: -<span id="L37268" class="LineNr">37268 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37269" class="LineNr">37269 </span> 68/push 0/imm32/is-deref:false -<span id="L37270" class="LineNr">37270 </span> 68/push 0/imm32/next -<span id="L37271" class="LineNr">37271 </span> 68/push 0/imm32/next -<span id="L37272" class="LineNr">37272 </span> 52/push-edx/var2 -<span id="L37273" class="LineNr">37273 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37274" class="LineNr">37274 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37275" class="LineNr">37275 </span> 89/<- %esi 4/r32/esp -<span id="L37276" class="LineNr">37276 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L37277" class="LineNr">37277 </span> 68/push 0/imm32/is-deref:false -<span id="L37278" class="LineNr">37278 </span> 56/push-esi/next -<span id="L37279" class="LineNr">37279 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37280" class="LineNr">37280 </span> 51/push-ecx/var1 -<span id="L37281" class="LineNr">37281 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37282" class="LineNr">37282 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37283" class="LineNr">37283 </span> 89/<- %esi 4/r32/esp -<span id="L37284" class="LineNr">37284 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: -<span id="L37285" class="LineNr">37285 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37286" class="LineNr">37286 </span> 68/push 0/imm32/next -<span id="L37287" class="LineNr">37287 </span> 68/push 0/imm32/next -<span id="L37288" class="LineNr">37288 </span> 68/push 0/imm32/outputs -<span id="L37289" class="LineNr">37289 </span> 68/push 0/imm32/outputs -<span id="L37290" class="LineNr">37290 </span> 56/push-esi/inouts -<span id="L37291" class="LineNr">37291 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37292" class="LineNr">37292 </span> 68/push 0/imm32/operation -<span id="L37293" class="LineNr">37293 </span> 68/push 0/imm32/operation -<span id="L37294" class="LineNr">37294 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37295" class="LineNr">37295 </span> 89/<- %esi 4/r32/esp -<span id="L37296" class="LineNr">37296 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: -<span id="L37297" class="LineNr">37297 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37298" class="LineNr">37298 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37299" class="LineNr">37299 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37300" class="LineNr">37300 </span> <span class="subxComment"># convert</span> -<span id="L37301" class="LineNr">37301 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37302" class="LineNr">37302 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37303" class="LineNr">37303 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37304" class="Folded">37304 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37310" class="LineNr">37310 </span> <span class="subxComment"># check output</span> -<span id="L37311" class="LineNr">37311 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"39/compare-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-reg"</span>) -<span id="L37312" class="LineNr">37312 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37313" class="LineNr">37313 </span> 89/<- %esp 5/r32/ebp -<span id="L37314" class="LineNr">37314 </span> 5d/pop-to-ebp -<span id="L37315" class="LineNr">37315 </span> c3/return -<span id="L37316" class="LineNr">37316 </span> -<span id="L37317" class="LineNr">37317 </span><span class="subxTest">test-compare-mem-with-reg</span>: -<span id="L37318" class="LineNr">37318 </span> <span class="subxComment"># compare var1, var2/eax</span> -<span id="L37319" class="LineNr">37319 </span> <span class="subxComment"># =></span> -<span id="L37320" class="LineNr">37320 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> -<span id="L37321" class="LineNr">37321 </span> <span class="subxComment">#</span> -<span id="L37322" class="LineNr">37322 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37323" class="LineNr">37323 </span> 55/push-ebp -<span id="L37324" class="LineNr">37324 </span> 89/<- %ebp 4/r32/esp -<span id="L37325" class="LineNr">37325 </span> <span class="subxComment"># setup</span> -<span id="L37326" class="LineNr">37326 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37327" class="LineNr">37327 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37328" class="LineNr">37328 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: -<span id="L37329" class="LineNr">37329 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37330" class="LineNr">37330 </span> 68/push 0/imm32/right:null -<span id="L37331" class="LineNr">37331 </span> 68/push 0/imm32/right:null -<span id="L37332" class="LineNr">37332 </span> 68/push 0/imm32/left:unused -<span id="L37333" class="LineNr">37333 </span> 68/push 1/imm32/value:int -<span id="L37334" class="LineNr">37334 </span> 68/push 1/imm32/is-atom?:true -<span id="L37335" class="LineNr">37335 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37336" class="LineNr">37336 </span> 89/<- %ecx 4/r32/esp -<span id="L37337" class="LineNr">37337 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: -<span id="L37338" class="LineNr">37338 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37339" class="LineNr">37339 </span> 68/push 0/imm32/register -<span id="L37340" class="LineNr">37340 </span> 68/push 0/imm32/register -<span id="L37341" class="LineNr">37341 </span> 68/push 8/imm32/stack-offset -<span id="L37342" class="LineNr">37342 </span> 68/push 1/imm32/block-depth -<span id="L37343" class="LineNr">37343 </span> 51/push-ecx -<span id="L37344" class="LineNr">37344 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37345" class="LineNr">37345 </span> 68/push 0/imm32/name -<span id="L37346" class="LineNr">37346 </span> 68/push 0/imm32/name -<span id="L37347" class="LineNr">37347 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37348" class="LineNr">37348 </span> 89/<- %ecx 4/r32/esp -<span id="L37349" class="LineNr">37349 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: -<span id="L37350" class="LineNr">37350 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37351" class="LineNr">37351 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37352" class="LineNr">37352 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37353" class="LineNr">37353 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: -<span id="L37354" class="LineNr">37354 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37355" class="LineNr">37355 </span> 68/push 0/imm32/register -<span id="L37356" class="LineNr">37356 </span> 68/push 0/imm32/register -<span id="L37357" class="LineNr">37357 </span> 68/push 0/imm32/no-stack-offset -<span id="L37358" class="LineNr">37358 </span> 68/push 1/imm32/block-depth -<span id="L37359" class="LineNr">37359 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37360" class="LineNr">37360 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37361" class="LineNr">37361 </span> 68/push 0/imm32/name -<span id="L37362" class="LineNr">37362 </span> 68/push 0/imm32/name -<span id="L37363" class="LineNr">37363 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37364" class="LineNr">37364 </span> 89/<- %edx 4/r32/esp -<span id="L37365" class="LineNr">37365 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: -<span id="L37366" class="LineNr">37366 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37367" class="LineNr">37367 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37368" class="LineNr">37368 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L37369" class="LineNr">37369 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: -<span id="L37370" class="LineNr">37370 </span> <span class="subxComment"># var2->register = "eax"</span> -<span id="L37371" class="LineNr">37371 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37372" class="LineNr">37372 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37373" class="LineNr">37373 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: -<span id="L37374" class="LineNr">37374 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37375" class="LineNr">37375 </span> 68/push 0/imm32/is-deref:false -<span id="L37376" class="LineNr">37376 </span> 68/push 0/imm32/next -<span id="L37377" class="LineNr">37377 </span> 68/push 0/imm32/next -<span id="L37378" class="LineNr">37378 </span> 52/push-edx/var2 -<span id="L37379" class="LineNr">37379 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37380" class="LineNr">37380 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37381" class="LineNr">37381 </span> 89/<- %esi 4/r32/esp -<span id="L37382" class="LineNr">37382 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L37383" class="LineNr">37383 </span> 68/push 0/imm32/is-deref:false -<span id="L37384" class="LineNr">37384 </span> 56/push-esi/next -<span id="L37385" class="LineNr">37385 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37386" class="LineNr">37386 </span> 51/push-ecx/var1 -<span id="L37387" class="LineNr">37387 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37388" class="LineNr">37388 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37389" class="LineNr">37389 </span> 89/<- %esi 4/r32/esp -<span id="L37390" class="LineNr">37390 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: -<span id="L37391" class="LineNr">37391 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37392" class="LineNr">37392 </span> 68/push 0/imm32/next -<span id="L37393" class="LineNr">37393 </span> 68/push 0/imm32/next -<span id="L37394" class="LineNr">37394 </span> 68/push 0/imm32/outputs -<span id="L37395" class="LineNr">37395 </span> 68/push 0/imm32/outputs -<span id="L37396" class="LineNr">37396 </span> 56/push-esi/inouts -<span id="L37397" class="LineNr">37397 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37398" class="LineNr">37398 </span> 68/push 0/imm32/operation -<span id="L37399" class="LineNr">37399 </span> 68/push 0/imm32/operation -<span id="L37400" class="LineNr">37400 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37401" class="LineNr">37401 </span> 89/<- %esi 4/r32/esp -<span id="L37402" class="LineNr">37402 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: -<span id="L37403" class="LineNr">37403 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37404" class="LineNr">37404 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37405" class="LineNr">37405 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37406" class="LineNr">37406 </span> <span class="subxComment"># convert</span> -<span id="L37407" class="LineNr">37407 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37408" class="LineNr">37408 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37409" class="LineNr">37409 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37410" class="Folded">37410 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37416" class="LineNr">37416 </span> <span class="subxComment"># check output</span> -<span id="L37417" class="LineNr">37417 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"39/compare-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-mem-with-reg"</span>) -<span id="L37418" class="LineNr">37418 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37419" class="LineNr">37419 </span> 89/<- %esp 5/r32/ebp -<span id="L37420" class="LineNr">37420 </span> 5d/pop-to-ebp -<span id="L37421" class="LineNr">37421 </span> c3/return -<span id="L37422" class="LineNr">37422 </span> -<span id="L37423" class="LineNr">37423 </span><span class="subxTest">test-compare-reg-with-mem</span>: -<span id="L37424" class="LineNr">37424 </span> <span class="subxComment"># compare var1/eax, var2</span> -<span id="L37425" class="LineNr">37425 </span> <span class="subxComment"># =></span> -<span id="L37426" class="LineNr">37426 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> -<span id="L37427" class="LineNr">37427 </span> <span class="subxComment">#</span> -<span id="L37428" class="LineNr">37428 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37429" class="LineNr">37429 </span> 55/push-ebp -<span id="L37430" class="LineNr">37430 </span> 89/<- %ebp 4/r32/esp -<span id="L37431" class="LineNr">37431 </span> <span class="subxComment"># setup</span> -<span id="L37432" class="LineNr">37432 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37433" class="LineNr">37433 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37434" class="LineNr">37434 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: -<span id="L37435" class="LineNr">37435 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37436" class="LineNr">37436 </span> 68/push 0/imm32/right:null -<span id="L37437" class="LineNr">37437 </span> 68/push 0/imm32/right:null -<span id="L37438" class="LineNr">37438 </span> 68/push 0/imm32/left:unused -<span id="L37439" class="LineNr">37439 </span> 68/push 1/imm32/value:int -<span id="L37440" class="LineNr">37440 </span> 68/push 1/imm32/is-atom?:true -<span id="L37441" class="LineNr">37441 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37442" class="LineNr">37442 </span> 89/<- %ecx 4/r32/esp -<span id="L37443" class="LineNr">37443 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: -<span id="L37444" class="LineNr">37444 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37445" class="LineNr">37445 </span> 68/push 0/imm32/register -<span id="L37446" class="LineNr">37446 </span> 68/push 0/imm32/register -<span id="L37447" class="LineNr">37447 </span> 68/push 0/imm32/no-stack-offset -<span id="L37448" class="LineNr">37448 </span> 68/push 1/imm32/block-depth -<span id="L37449" class="LineNr">37449 </span> 51/push-ecx -<span id="L37450" class="LineNr">37450 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37451" class="LineNr">37451 </span> 68/push 0/imm32/name -<span id="L37452" class="LineNr">37452 </span> 68/push 0/imm32/name -<span id="L37453" class="LineNr">37453 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37454" class="LineNr">37454 </span> 89/<- %ecx 4/r32/esp -<span id="L37455" class="LineNr">37455 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: -<span id="L37456" class="LineNr">37456 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37457" class="LineNr">37457 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37458" class="LineNr">37458 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37459" class="LineNr">37459 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: -<span id="L37460" class="LineNr">37460 </span> <span class="subxComment"># var1->register = "eax"</span> -<span id="L37461" class="LineNr">37461 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37462" class="LineNr">37462 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37463" class="LineNr">37463 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: -<span id="L37464" class="LineNr">37464 </span> <span class="subxComment"># var var2/edx: (payload var)</span> -<span id="L37465" class="LineNr">37465 </span> 68/push 0/imm32/register -<span id="L37466" class="LineNr">37466 </span> 68/push 0/imm32/register -<span id="L37467" class="LineNr">37467 </span> 68/push 8/imm32/stack-offset -<span id="L37468" class="LineNr">37468 </span> 68/push 1/imm32/block-depth -<span id="L37469" class="LineNr">37469 </span> ff 6/subop/push *(ecx+0x10) -<span id="L37470" class="LineNr">37470 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37471" class="LineNr">37471 </span> 68/push 0/imm32/name -<span id="L37472" class="LineNr">37472 </span> 68/push 0/imm32/name -<span id="L37473" class="LineNr">37473 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37474" class="LineNr">37474 </span> 89/<- %edx 4/r32/esp -<span id="L37475" class="LineNr">37475 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: -<span id="L37476" class="LineNr">37476 </span> <span class="subxComment"># var2->name = "var2"</span> -<span id="L37477" class="LineNr">37477 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37478" class="LineNr">37478 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) -<span id="L37479" class="LineNr">37479 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: -<span id="L37480" class="LineNr">37480 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> -<span id="L37481" class="LineNr">37481 </span> 68/push 0/imm32/is-deref:false -<span id="L37482" class="LineNr">37482 </span> 68/push 0/imm32/next -<span id="L37483" class="LineNr">37483 </span> 68/push 0/imm32/next -<span id="L37484" class="LineNr">37484 </span> 52/push-edx/var2 -<span id="L37485" class="LineNr">37485 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37486" class="LineNr">37486 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37487" class="LineNr">37487 </span> 89/<- %esi 4/r32/esp -<span id="L37488" class="LineNr">37488 </span> <span class="subxComment"># inouts = [var1, var2]</span> -<span id="L37489" class="LineNr">37489 </span> 68/push 0/imm32/is-deref:false -<span id="L37490" class="LineNr">37490 </span> 56/push-esi/next -<span id="L37491" class="LineNr">37491 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37492" class="LineNr">37492 </span> 51/push-ecx/var1 -<span id="L37493" class="LineNr">37493 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37494" class="LineNr">37494 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37495" class="LineNr">37495 </span> 89/<- %esi 4/r32/esp -<span id="L37496" class="LineNr">37496 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: -<span id="L37497" class="LineNr">37497 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37498" class="LineNr">37498 </span> 68/push 0/imm32/next -<span id="L37499" class="LineNr">37499 </span> 68/push 0/imm32/next -<span id="L37500" class="LineNr">37500 </span> 68/push 0/imm32/outputs -<span id="L37501" class="LineNr">37501 </span> 68/push 0/imm32/outputs -<span id="L37502" class="LineNr">37502 </span> 56/push-esi/inouts -<span id="L37503" class="LineNr">37503 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37504" class="LineNr">37504 </span> 68/push 0/imm32/operation -<span id="L37505" class="LineNr">37505 </span> 68/push 0/imm32/operation -<span id="L37506" class="LineNr">37506 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37507" class="LineNr">37507 </span> 89/<- %esi 4/r32/esp -<span id="L37508" class="LineNr">37508 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: -<span id="L37509" class="LineNr">37509 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37510" class="LineNr">37510 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37511" class="LineNr">37511 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37512" class="LineNr">37512 </span> <span class="subxComment"># convert</span> -<span id="L37513" class="LineNr">37513 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37514" class="LineNr">37514 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37515" class="LineNr">37515 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37516" class="Folded">37516 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37522" class="LineNr">37522 </span> <span class="subxComment"># check output</span> -<span id="L37523" class="LineNr">37523 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"3b/compare<- *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-mem"</span>) -<span id="L37524" class="LineNr">37524 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37525" class="LineNr">37525 </span> 89/<- %esp 5/r32/ebp -<span id="L37526" class="LineNr">37526 </span> 5d/pop-to-ebp -<span id="L37527" class="LineNr">37527 </span> c3/return -<span id="L37528" class="LineNr">37528 </span> -<span id="L37529" class="LineNr">37529 </span><span class="subxTest">test-compare-mem-with-literal</span>: -<span id="L37530" class="LineNr">37530 </span> <span class="subxComment"># compare var1, 0x34</span> -<span id="L37531" class="LineNr">37531 </span> <span class="subxComment"># =></span> -<span id="L37532" class="LineNr">37532 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> -<span id="L37533" class="LineNr">37533 </span> <span class="subxComment">#</span> -<span id="L37534" class="LineNr">37534 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37535" class="LineNr">37535 </span> 55/push-ebp -<span id="L37536" class="LineNr">37536 </span> 89/<- %ebp 4/r32/esp -<span id="L37537" class="LineNr">37537 </span> <span class="subxComment"># setup</span> -<span id="L37538" class="LineNr">37538 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37539" class="LineNr">37539 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37540" class="LineNr">37540 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: -<span id="L37541" class="LineNr">37541 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37542" class="LineNr">37542 </span> 68/push 0/imm32/right:null -<span id="L37543" class="LineNr">37543 </span> 68/push 0/imm32/right:null -<span id="L37544" class="LineNr">37544 </span> 68/push 0/imm32/left:unused -<span id="L37545" class="LineNr">37545 </span> 68/push 1/imm32/value:int -<span id="L37546" class="LineNr">37546 </span> 68/push 1/imm32/is-atom?:true -<span id="L37547" class="LineNr">37547 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37548" class="LineNr">37548 </span> 89/<- %ecx 4/r32/esp -<span id="L37549" class="LineNr">37549 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: -<span id="L37550" class="LineNr">37550 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37551" class="LineNr">37551 </span> 68/push 0/imm32/register -<span id="L37552" class="LineNr">37552 </span> 68/push 0/imm32/register -<span id="L37553" class="LineNr">37553 </span> 68/push 8/imm32/stack-offset -<span id="L37554" class="LineNr">37554 </span> 68/push 1/imm32/block-depth -<span id="L37555" class="LineNr">37555 </span> 51/push-ecx -<span id="L37556" class="LineNr">37556 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37557" class="LineNr">37557 </span> 68/push 0/imm32/name -<span id="L37558" class="LineNr">37558 </span> 68/push 0/imm32/name -<span id="L37559" class="LineNr">37559 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37560" class="LineNr">37560 </span> 89/<- %ecx 4/r32/esp -<span id="L37561" class="LineNr">37561 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: -<span id="L37562" class="LineNr">37562 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37563" class="LineNr">37563 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37564" class="LineNr">37564 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37565" class="LineNr">37565 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: -<span id="L37566" class="LineNr">37566 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37567" class="LineNr">37567 </span> 68/push 0/imm32/right:null -<span id="L37568" class="LineNr">37568 </span> 68/push 0/imm32/right:null -<span id="L37569" class="LineNr">37569 </span> 68/push 0/imm32/left:unused -<span id="L37570" class="LineNr">37570 </span> 68/push 0/imm32/value:literal -<span id="L37571" class="LineNr">37571 </span> 68/push 1/imm32/is-atom?:true -<span id="L37572" class="LineNr">37572 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37573" class="LineNr">37573 </span> 89/<- %edx 4/r32/esp -<span id="L37574" class="LineNr">37574 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: -<span id="L37575" class="LineNr">37575 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37576" class="LineNr">37576 </span> 68/push 0/imm32/register -<span id="L37577" class="LineNr">37577 </span> 68/push 0/imm32/register -<span id="L37578" class="LineNr">37578 </span> 68/push 0/imm32/no-stack-offset -<span id="L37579" class="LineNr">37579 </span> 68/push 1/imm32/block-depth -<span id="L37580" class="LineNr">37580 </span> 52/push-edx -<span id="L37581" class="LineNr">37581 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37582" class="LineNr">37582 </span> 68/push 0/imm32/name -<span id="L37583" class="LineNr">37583 </span> 68/push 0/imm32/name -<span id="L37584" class="LineNr">37584 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37585" class="LineNr">37585 </span> 89/<- %edx 4/r32/esp -<span id="L37586" class="LineNr">37586 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: -<span id="L37587" class="LineNr">37587 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37588" class="LineNr">37588 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37589" class="LineNr">37589 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L37590" class="LineNr">37590 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: -<span id="L37591" class="LineNr">37591 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37592" class="LineNr">37592 </span> 68/push 0/imm32/is-deref:false -<span id="L37593" class="LineNr">37593 </span> 68/push 0/imm32/next -<span id="L37594" class="LineNr">37594 </span> 68/push 0/imm32/next -<span id="L37595" class="LineNr">37595 </span> 52/push-edx/l -<span id="L37596" class="LineNr">37596 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37597" class="LineNr">37597 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37598" class="LineNr">37598 </span> 89/<- %esi 4/r32/esp -<span id="L37599" class="LineNr">37599 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37600" class="LineNr">37600 </span> 68/push 0/imm32/is-deref:false -<span id="L37601" class="LineNr">37601 </span> 56/push-esi/next -<span id="L37602" class="LineNr">37602 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37603" class="LineNr">37603 </span> 51/push-ecx/var1 -<span id="L37604" class="LineNr">37604 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37605" class="LineNr">37605 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37606" class="LineNr">37606 </span> 89/<- %esi 4/r32/esp -<span id="L37607" class="LineNr">37607 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: -<span id="L37608" class="LineNr">37608 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37609" class="LineNr">37609 </span> 68/push 0/imm32/next -<span id="L37610" class="LineNr">37610 </span> 68/push 0/imm32/next -<span id="L37611" class="LineNr">37611 </span> 68/push 0/imm32/outputs -<span id="L37612" class="LineNr">37612 </span> 68/push 0/imm32/outputs -<span id="L37613" class="LineNr">37613 </span> 56/push-esi/inouts -<span id="L37614" class="LineNr">37614 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37615" class="LineNr">37615 </span> 68/push 0/imm32/operation -<span id="L37616" class="LineNr">37616 </span> 68/push 0/imm32/operation -<span id="L37617" class="LineNr">37617 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37618" class="LineNr">37618 </span> 89/<- %esi 4/r32/esp -<span id="L37619" class="LineNr">37619 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: -<span id="L37620" class="LineNr">37620 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37621" class="LineNr">37621 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37622" class="LineNr">37622 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37623" class="LineNr">37623 </span> <span class="subxComment"># convert</span> -<span id="L37624" class="LineNr">37624 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37625" class="LineNr">37625 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37626" class="LineNr">37626 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37627" class="Folded">37627 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37633" class="LineNr">37633 </span> <span class="subxComment"># check output</span> -<span id="L37634" class="LineNr">37634 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-compare-mem-with-literal"</span>) -<span id="L37635" class="LineNr">37635 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37636" class="LineNr">37636 </span> 89/<- %esp 5/r32/ebp -<span id="L37637" class="LineNr">37637 </span> 5d/pop-to-ebp -<span id="L37638" class="LineNr">37638 </span> c3/return -<span id="L37639" class="LineNr">37639 </span> -<span id="L37640" class="LineNr">37640 </span><span class="subxTest">test-compare-eax-with-literal</span>: -<span id="L37641" class="LineNr">37641 </span> <span class="subxComment"># compare var1/eax 0x34</span> -<span id="L37642" class="LineNr">37642 </span> <span class="subxComment"># =></span> -<span id="L37643" class="LineNr">37643 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> -<span id="L37644" class="LineNr">37644 </span> <span class="subxComment">#</span> -<span id="L37645" class="LineNr">37645 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37646" class="LineNr">37646 </span> 55/push-ebp -<span id="L37647" class="LineNr">37647 </span> 89/<- %ebp 4/r32/esp -<span id="L37648" class="LineNr">37648 </span> <span class="subxComment"># setup</span> -<span id="L37649" class="LineNr">37649 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37650" class="LineNr">37650 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37651" class="LineNr">37651 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: -<span id="L37652" class="LineNr">37652 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37653" class="LineNr">37653 </span> 68/push 0/imm32/right:null -<span id="L37654" class="LineNr">37654 </span> 68/push 0/imm32/right:null -<span id="L37655" class="LineNr">37655 </span> 68/push 0/imm32/left:unused -<span id="L37656" class="LineNr">37656 </span> 68/push 1/imm32/value:int -<span id="L37657" class="LineNr">37657 </span> 68/push 1/imm32/is-atom?:true -<span id="L37658" class="LineNr">37658 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37659" class="LineNr">37659 </span> 89/<- %ecx 4/r32/esp -<span id="L37660" class="LineNr">37660 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: -<span id="L37661" class="LineNr">37661 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37662" class="LineNr">37662 </span> 68/push 0/imm32/register -<span id="L37663" class="LineNr">37663 </span> 68/push 0/imm32/register -<span id="L37664" class="LineNr">37664 </span> 68/push 0/imm32/no-stack-offset -<span id="L37665" class="LineNr">37665 </span> 68/push 1/imm32/block-depth -<span id="L37666" class="LineNr">37666 </span> 51/push-ecx -<span id="L37667" class="LineNr">37667 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37668" class="LineNr">37668 </span> 68/push 0/imm32/name -<span id="L37669" class="LineNr">37669 </span> 68/push 0/imm32/name -<span id="L37670" class="LineNr">37670 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37671" class="LineNr">37671 </span> 89/<- %ecx 4/r32/esp -<span id="L37672" class="LineNr">37672 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: -<span id="L37673" class="LineNr">37673 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37674" class="LineNr">37674 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37675" class="LineNr">37675 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37676" class="LineNr">37676 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: -<span id="L37677" class="LineNr">37677 </span> <span class="subxComment"># v->register = "eax"</span> -<span id="L37678" class="LineNr">37678 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37679" class="LineNr">37679 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) -<span id="L37680" class="LineNr">37680 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: -<span id="L37681" class="LineNr">37681 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37682" class="LineNr">37682 </span> 68/push 0/imm32/right:null -<span id="L37683" class="LineNr">37683 </span> 68/push 0/imm32/right:null -<span id="L37684" class="LineNr">37684 </span> 68/push 0/imm32/left:unused -<span id="L37685" class="LineNr">37685 </span> 68/push 0/imm32/value:literal -<span id="L37686" class="LineNr">37686 </span> 68/push 1/imm32/is-atom?:true -<span id="L37687" class="LineNr">37687 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37688" class="LineNr">37688 </span> 89/<- %edx 4/r32/esp -<span id="L37689" class="LineNr">37689 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: -<span id="L37690" class="LineNr">37690 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37691" class="LineNr">37691 </span> 68/push 0/imm32/register -<span id="L37692" class="LineNr">37692 </span> 68/push 0/imm32/register -<span id="L37693" class="LineNr">37693 </span> 68/push 0/imm32/no-stack-offset -<span id="L37694" class="LineNr">37694 </span> 68/push 1/imm32/block-depth -<span id="L37695" class="LineNr">37695 </span> 52/push-edx -<span id="L37696" class="LineNr">37696 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37697" class="LineNr">37697 </span> 68/push 0/imm32/name -<span id="L37698" class="LineNr">37698 </span> 68/push 0/imm32/name -<span id="L37699" class="LineNr">37699 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37700" class="LineNr">37700 </span> 89/<- %edx 4/r32/esp -<span id="L37701" class="LineNr">37701 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: -<span id="L37702" class="LineNr">37702 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37703" class="LineNr">37703 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37704" class="LineNr">37704 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L37705" class="LineNr">37705 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: -<span id="L37706" class="LineNr">37706 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37707" class="LineNr">37707 </span> 68/push 0/imm32/is-deref:false -<span id="L37708" class="LineNr">37708 </span> 68/push 0/imm32/next -<span id="L37709" class="LineNr">37709 </span> 68/push 0/imm32/next -<span id="L37710" class="LineNr">37710 </span> 52/push-edx/l -<span id="L37711" class="LineNr">37711 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37712" class="LineNr">37712 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37713" class="LineNr">37713 </span> 89/<- %esi 4/r32/esp -<span id="L37714" class="LineNr">37714 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37715" class="LineNr">37715 </span> 68/push 0/imm32/is-deref:false -<span id="L37716" class="LineNr">37716 </span> 56/push-esi/next -<span id="L37717" class="LineNr">37717 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37718" class="LineNr">37718 </span> 51/push-ecx/var1 -<span id="L37719" class="LineNr">37719 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37720" class="LineNr">37720 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37721" class="LineNr">37721 </span> 89/<- %esi 4/r32/esp -<span id="L37722" class="LineNr">37722 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: -<span id="L37723" class="LineNr">37723 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37724" class="LineNr">37724 </span> 68/push 0/imm32/next -<span id="L37725" class="LineNr">37725 </span> 68/push 0/imm32/next -<span id="L37726" class="LineNr">37726 </span> 68/push 0/imm32/outputs -<span id="L37727" class="LineNr">37727 </span> 68/push 0/imm32/outputs -<span id="L37728" class="LineNr">37728 </span> 56/push-esi/inouts -<span id="L37729" class="LineNr">37729 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37730" class="LineNr">37730 </span> 68/push 0/imm32/operation -<span id="L37731" class="LineNr">37731 </span> 68/push 0/imm32/operation -<span id="L37732" class="LineNr">37732 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37733" class="LineNr">37733 </span> 89/<- %esi 4/r32/esp -<span id="L37734" class="LineNr">37734 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: -<span id="L37735" class="LineNr">37735 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37736" class="LineNr">37736 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37737" class="LineNr">37737 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37738" class="LineNr">37738 </span> <span class="subxComment"># convert</span> -<span id="L37739" class="LineNr">37739 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37740" class="LineNr">37740 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37741" class="LineNr">37741 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37742" class="Folded">37742 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37748" class="LineNr">37748 </span> <span class="subxComment"># check output</span> -<span id="L37749" class="LineNr">37749 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"3d/compare-eax-with 0x34/imm32"</span> <span class="Constant">"F - test-compare-eax-with-literal"</span>) -<span id="L37750" class="LineNr">37750 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37751" class="LineNr">37751 </span> 89/<- %esp 5/r32/ebp -<span id="L37752" class="LineNr">37752 </span> 5d/pop-to-ebp -<span id="L37753" class="LineNr">37753 </span> c3/return -<span id="L37754" class="LineNr">37754 </span> -<span id="L37755" class="LineNr">37755 </span><span class="subxTest">test-compare-reg-with-literal</span>: -<span id="L37756" class="LineNr">37756 </span> <span class="subxComment"># compare var1/ecx 0x34</span> -<span id="L37757" class="LineNr">37757 </span> <span class="subxComment"># =></span> -<span id="L37758" class="LineNr">37758 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> -<span id="L37759" class="LineNr">37759 </span> <span class="subxComment">#</span> -<span id="L37760" class="LineNr">37760 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37761" class="LineNr">37761 </span> 55/push-ebp -<span id="L37762" class="LineNr">37762 </span> 89/<- %ebp 4/r32/esp -<span id="L37763" class="LineNr">37763 </span> <span class="subxComment"># setup</span> -<span id="L37764" class="LineNr">37764 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37765" class="LineNr">37765 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37766" class="LineNr">37766 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: -<span id="L37767" class="LineNr">37767 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37768" class="LineNr">37768 </span> 68/push 0/imm32/right:null -<span id="L37769" class="LineNr">37769 </span> 68/push 0/imm32/right:null -<span id="L37770" class="LineNr">37770 </span> 68/push 0/imm32/left:unused -<span id="L37771" class="LineNr">37771 </span> 68/push 1/imm32/value:int -<span id="L37772" class="LineNr">37772 </span> 68/push 1/imm32/is-atom?:true -<span id="L37773" class="LineNr">37773 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37774" class="LineNr">37774 </span> 89/<- %ecx 4/r32/esp -<span id="L37775" class="LineNr">37775 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: -<span id="L37776" class="LineNr">37776 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> -<span id="L37777" class="LineNr">37777 </span> 68/push 0/imm32/register -<span id="L37778" class="LineNr">37778 </span> 68/push 0/imm32/register -<span id="L37779" class="LineNr">37779 </span> 68/push 0/imm32/no-stack-offset -<span id="L37780" class="LineNr">37780 </span> 68/push 1/imm32/block-depth -<span id="L37781" class="LineNr">37781 </span> 51/push-ecx -<span id="L37782" class="LineNr">37782 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37783" class="LineNr">37783 </span> 68/push 0/imm32/name -<span id="L37784" class="LineNr">37784 </span> 68/push 0/imm32/name -<span id="L37785" class="LineNr">37785 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37786" class="LineNr">37786 </span> 89/<- %ecx 4/r32/esp -<span id="L37787" class="LineNr">37787 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: -<span id="L37788" class="LineNr">37788 </span> <span class="subxComment"># var1->name = "var1"</span> -<span id="L37789" class="LineNr">37789 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37790" class="LineNr">37790 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) -<span id="L37791" class="LineNr">37791 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: -<span id="L37792" class="LineNr">37792 </span> <span class="subxComment"># v->register = "ecx"</span> -<span id="L37793" class="LineNr">37793 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> -<span id="L37794" class="LineNr">37794 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) -<span id="L37795" class="LineNr">37795 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: -<span id="L37796" class="LineNr">37796 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> -<span id="L37797" class="LineNr">37797 </span> 68/push 0/imm32/right:null -<span id="L37798" class="LineNr">37798 </span> 68/push 0/imm32/right:null -<span id="L37799" class="LineNr">37799 </span> 68/push 0/imm32/left:unused -<span id="L37800" class="LineNr">37800 </span> 68/push 0/imm32/value:literal -<span id="L37801" class="LineNr">37801 </span> 68/push 1/imm32/is-atom?:true -<span id="L37802" class="LineNr">37802 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37803" class="LineNr">37803 </span> 89/<- %edx 4/r32/esp -<span id="L37804" class="LineNr">37804 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: -<span id="L37805" class="LineNr">37805 </span> <span class="subxComment"># var l/edx: (payload var)</span> -<span id="L37806" class="LineNr">37806 </span> 68/push 0/imm32/register -<span id="L37807" class="LineNr">37807 </span> 68/push 0/imm32/register -<span id="L37808" class="LineNr">37808 </span> 68/push 0/imm32/no-stack-offset -<span id="L37809" class="LineNr">37809 </span> 68/push 1/imm32/block-depth -<span id="L37810" class="LineNr">37810 </span> 52/push-edx -<span id="L37811" class="LineNr">37811 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37812" class="LineNr">37812 </span> 68/push 0/imm32/name -<span id="L37813" class="LineNr">37813 </span> 68/push 0/imm32/name -<span id="L37814" class="LineNr">37814 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37815" class="LineNr">37815 </span> 89/<- %edx 4/r32/esp -<span id="L37816" class="LineNr">37816 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: -<span id="L37817" class="LineNr">37817 </span> <span class="subxComment"># l->name = "0x34"</span> -<span id="L37818" class="LineNr">37818 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37819" class="LineNr">37819 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L37820" class="LineNr">37820 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: -<span id="L37821" class="LineNr">37821 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> -<span id="L37822" class="LineNr">37822 </span> 68/push 0/imm32/is-deref:false -<span id="L37823" class="LineNr">37823 </span> 68/push 0/imm32/next -<span id="L37824" class="LineNr">37824 </span> 68/push 0/imm32/next -<span id="L37825" class="LineNr">37825 </span> 52/push-edx/l -<span id="L37826" class="LineNr">37826 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37827" class="LineNr">37827 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37828" class="LineNr">37828 </span> 89/<- %esi 4/r32/esp -<span id="L37829" class="LineNr">37829 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> -<span id="L37830" class="LineNr">37830 </span> 68/push 0/imm32/is-deref:false -<span id="L37831" class="LineNr">37831 </span> 56/push-esi/next -<span id="L37832" class="LineNr">37832 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37833" class="LineNr">37833 </span> 51/push-ecx/var1 -<span id="L37834" class="LineNr">37834 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37835" class="LineNr">37835 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37836" class="LineNr">37836 </span> 89/<- %esi 4/r32/esp -<span id="L37837" class="LineNr">37837 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: -<span id="L37838" class="LineNr">37838 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37839" class="LineNr">37839 </span> 68/push 0/imm32/next -<span id="L37840" class="LineNr">37840 </span> 68/push 0/imm32/next -<span id="L37841" class="LineNr">37841 </span> 68/push 0/imm32/outputs -<span id="L37842" class="LineNr">37842 </span> 68/push 0/imm32/outputs -<span id="L37843" class="LineNr">37843 </span> 56/push-esi/inouts -<span id="L37844" class="LineNr">37844 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37845" class="LineNr">37845 </span> 68/push 0/imm32/operation -<span id="L37846" class="LineNr">37846 </span> 68/push 0/imm32/operation -<span id="L37847" class="LineNr">37847 </span> 68/push 1/imm32/tag:stmt1 -<span id="L37848" class="LineNr">37848 </span> 89/<- %esi 4/r32/esp -<span id="L37849" class="LineNr">37849 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: -<span id="L37850" class="LineNr">37850 </span> <span class="subxComment"># stmt->operation = "compare"</span> -<span id="L37851" class="LineNr">37851 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37852" class="LineNr">37852 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) -<span id="L37853" class="LineNr">37853 </span> <span class="subxComment"># convert</span> -<span id="L37854" class="LineNr">37854 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37855" class="LineNr">37855 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L29980'>Primitives</a></span> 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37856" class="LineNr">37856 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37857" class="Folded">37857 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37863" class="LineNr">37863 </span> <span class="subxComment"># check output</span> -<span id="L37864" class="LineNr">37864 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare %ecx 0x34/imm32"</span> <span class="Constant">"F - test-compare-reg-with-literal"</span>) -<span id="L37865" class="LineNr">37865 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37866" class="LineNr">37866 </span> 89/<- %esp 5/r32/ebp -<span id="L37867" class="LineNr">37867 </span> 5d/pop-to-ebp -<span id="L37868" class="LineNr">37868 </span> c3/return -<span id="L37869" class="LineNr">37869 </span> -<span id="L37870" class="LineNr">37870 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: -<span id="L37871" class="LineNr">37871 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> -<span id="L37872" class="LineNr">37872 </span> <span class="subxComment"># f foo</span> -<span id="L37873" class="LineNr">37873 </span> <span class="subxComment"># =></span> -<span id="L37874" class="LineNr">37874 </span> <span class="subxComment"># (f *(ebp-8))</span> -<span id="L37875" class="LineNr">37875 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> -<span id="L37876" class="LineNr">37876 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> -<span id="L37877" class="LineNr">37877 </span> <span class="subxComment">#</span> -<span id="L37878" class="LineNr">37878 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> -<span id="L37879" class="LineNr">37879 </span> <span class="subxComment"># name: 'foo'</span> -<span id="L37880" class="LineNr">37880 </span> <span class="subxComment"># type: int</span> -<span id="L37881" class="LineNr">37881 </span> <span class="subxComment"># stack-offset: -8</span> -<span id="L37882" class="LineNr">37882 </span> <span class="subxComment">#</span> -<span id="L37883" class="LineNr">37883 </span> <span class="subxComment"># There's nothing in primitives.</span> -<span id="L37884" class="LineNr">37884 </span> <span class="subxComment">#</span> -<span id="L37885" class="LineNr">37885 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> -<span id="L37886" class="LineNr">37886 </span> <span class="subxComment">#</span> -<span id="L37887" class="LineNr">37887 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37888" class="LineNr">37888 </span> 55/push-ebp -<span id="L37889" class="LineNr">37889 </span> 89/<- %ebp 4/r32/esp -<span id="L37890" class="LineNr">37890 </span> <span class="subxComment"># setup</span> -<span id="L37891" class="LineNr">37891 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37892" class="LineNr">37892 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37893" class="LineNr">37893 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: -<span id="L37894" class="LineNr">37894 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37895" class="LineNr">37895 </span> 68/push 0/imm32/right:null -<span id="L37896" class="LineNr">37896 </span> 68/push 0/imm32/right:null -<span id="L37897" class="LineNr">37897 </span> 68/push 0/imm32/left:unused -<span id="L37898" class="LineNr">37898 </span> 68/push 1/imm32/value:int -<span id="L37899" class="LineNr">37899 </span> 68/push 1/imm32/is-atom?:true -<span id="L37900" class="LineNr">37900 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37901" class="LineNr">37901 </span> 89/<- %ecx 4/r32/esp -<span id="L37902" class="LineNr">37902 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: -<span id="L37903" class="LineNr">37903 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> -<span id="L37904" class="LineNr">37904 </span> 68/push 0/imm32/no-register -<span id="L37905" class="LineNr">37905 </span> 68/push 0/imm32/no-register -<span id="L37906" class="LineNr">37906 </span> 68/push -8/imm32/stack-offset -<span id="L37907" class="LineNr">37907 </span> 68/push 1/imm32/block-depth -<span id="L37908" class="LineNr">37908 </span> 51/push-ecx/type -<span id="L37909" class="LineNr">37909 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37910" class="LineNr">37910 </span> 68/push 0/imm32/name -<span id="L37911" class="LineNr">37911 </span> 68/push 0/imm32/name -<span id="L37912" class="LineNr">37912 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37913" class="LineNr">37913 </span> 89/<- %ecx 4/r32/esp -<span id="L37914" class="LineNr">37914 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: -<span id="L37915" class="LineNr">37915 </span> <span class="subxComment"># var-foo->name = "foo"</span> -<span id="L37916" class="LineNr">37916 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37917" class="LineNr">37917 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) -<span id="L37918" class="LineNr">37918 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: -<span id="L37919" class="LineNr">37919 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L37920" class="LineNr">37920 </span> 68/push 0/imm32/is-deref:false -<span id="L37921" class="LineNr">37921 </span> 68/push 0/imm32/next -<span id="L37922" class="LineNr">37922 </span> 68/push 0/imm32/next -<span id="L37923" class="LineNr">37923 </span> 51/push-ecx/var-foo -<span id="L37924" class="LineNr">37924 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37925" class="LineNr">37925 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37926" class="LineNr">37926 </span> 89/<- %ebx 4/r32/esp -<span id="L37927" class="LineNr">37927 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: -<span id="L37928" class="LineNr">37928 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L37929" class="LineNr">37929 </span> 68/push 0/imm32/no-outputs -<span id="L37930" class="LineNr">37930 </span> 68/push 0/imm32/no-outputs -<span id="L37931" class="LineNr">37931 </span> 53/push-ebx/inouts -<span id="L37932" class="LineNr">37932 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37933" class="LineNr">37933 </span> 68/push 0/imm32/operation -<span id="L37934" class="LineNr">37934 </span> 68/push 0/imm32/operation -<span id="L37935" class="LineNr">37935 </span> 68/push 1/imm32/tag -<span id="L37936" class="LineNr">37936 </span> 89/<- %esi 4/r32/esp -<span id="L37937" class="LineNr">37937 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: -<span id="L37938" class="LineNr">37938 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L37939" class="LineNr">37939 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L37940" class="LineNr">37940 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) -<span id="L37941" class="LineNr">37941 </span> <span class="subxComment"># convert</span> -<span id="L37942" class="LineNr">37942 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L37943" class="LineNr">37943 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi 0 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L37944" class="LineNr">37944 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L37945" class="Folded">37945 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L37951" class="LineNr">37951 </span> <span class="subxComment"># check output</span> -<span id="L37952" class="LineNr">37952 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"(f *(ebp+0xfffffff8))"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call"</span>) -<span id="L37953" class="LineNr">37953 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37954" class="LineNr">37954 </span> 89/<- %esp 5/r32/ebp -<span id="L37955" class="LineNr">37955 </span> 5d/pop-to-ebp -<span id="L37956" class="LineNr">37956 </span> c3/return -<span id="L37957" class="LineNr">37957 </span> -<span id="L37958" class="LineNr">37958 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: -<span id="L37959" class="LineNr">37959 </span> <span class="subxComment"># Call a function on a literal.</span> -<span id="L37960" class="LineNr">37960 </span> <span class="subxComment"># f 0x34</span> -<span id="L37961" class="LineNr">37961 </span> <span class="subxComment"># =></span> -<span id="L37962" class="LineNr">37962 </span> <span class="subxComment"># (f2 0x34)</span> -<span id="L37963" class="LineNr">37963 </span> <span class="subxComment">#</span> -<span id="L37964" class="LineNr">37964 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L37965" class="LineNr">37965 </span> 55/push-ebp -<span id="L37966" class="LineNr">37966 </span> 89/<- %ebp 4/r32/esp -<span id="L37967" class="LineNr">37967 </span> <span class="subxComment"># setup</span> -<span id="L37968" class="LineNr">37968 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L37969" class="LineNr">37969 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) -<span id="L37970" class="LineNr">37970 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: -<span id="L37971" class="LineNr">37971 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> -<span id="L37972" class="LineNr">37972 </span> 68/push 0/imm32/right:null -<span id="L37973" class="LineNr">37973 </span> 68/push 0/imm32/right:null -<span id="L37974" class="LineNr">37974 </span> 68/push 0/imm32/left:unused -<span id="L37975" class="LineNr">37975 </span> 68/push 0/imm32/value:literal -<span id="L37976" class="LineNr">37976 </span> 68/push 1/imm32/is-atom?:true -<span id="L37977" class="LineNr">37977 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37978" class="LineNr">37978 </span> 89/<- %ecx 4/r32/esp -<span id="L37979" class="LineNr">37979 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: -<span id="L37980" class="LineNr">37980 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> -<span id="L37981" class="LineNr">37981 </span> 68/push 0/imm32/no-register -<span id="L37982" class="LineNr">37982 </span> 68/push 0/imm32/no-register -<span id="L37983" class="LineNr">37983 </span> 68/push 0/imm32/no-stack-offset -<span id="L37984" class="LineNr">37984 </span> 68/push 1/imm32/block-depth -<span id="L37985" class="LineNr">37985 </span> 51/push-ecx/type -<span id="L37986" class="LineNr">37986 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L37987" class="LineNr">37987 </span> 68/push 0/imm32/name -<span id="L37988" class="LineNr">37988 </span> 68/push 0/imm32/name -<span id="L37989" class="LineNr">37989 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L37990" class="LineNr">37990 </span> 89/<- %ecx 4/r32/esp -<span id="L37991" class="LineNr">37991 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: -<span id="L37992" class="LineNr">37992 </span> <span class="subxComment"># var-foo->name = "0x34"</span> -<span id="L37993" class="LineNr">37993 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> -<span id="L37994" class="LineNr">37994 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) -<span id="L37995" class="LineNr">37995 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: -<span id="L37996" class="LineNr">37996 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> -<span id="L37997" class="LineNr">37997 </span> 68/push 0/imm32/is-deref:false -<span id="L37998" class="LineNr">37998 </span> 68/push 0/imm32/next -<span id="L37999" class="LineNr">37999 </span> 68/push 0/imm32/next -<span id="L38000" class="LineNr">38000 </span> 51/push-ecx/var-foo -<span id="L38001" class="LineNr">38001 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38002" class="LineNr">38002 </span> 68/push 0x11/imm32/alloc-id:fake:payload -<span id="L38003" class="LineNr">38003 </span> 89/<- %ebx 4/r32/esp -<span id="L38004" class="LineNr">38004 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: -<span id="L38005" class="LineNr">38005 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> -<span id="L38006" class="LineNr">38006 </span> 68/push 0/imm32/no-outputs -<span id="L38007" class="LineNr">38007 </span> 68/push 0/imm32/no-outputs -<span id="L38008" class="LineNr">38008 </span> 53/push-ebx/inouts -<span id="L38009" class="LineNr">38009 </span> 68/push 0x11/imm32/alloc-id:fake -<span id="L38010" class="LineNr">38010 </span> 68/push 0/imm32/operation -<span id="L38011" class="LineNr">38011 </span> 68/push 0/imm32/operation -<span id="L38012" class="LineNr">38012 </span> 68/push 1/imm32/tag -<span id="L38013" class="LineNr">38013 </span> 89/<- %esi 4/r32/esp -<span id="L38014" class="LineNr">38014 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: -<span id="L38015" class="LineNr">38015 </span> <span class="subxComment"># stmt->operation = "f"</span> -<span id="L38016" class="LineNr">38016 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> -<span id="L38017" class="LineNr">38017 </span> (<a href='../120allocate.subx.html#L710'>copy-array</a> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) -<span id="L38018" class="LineNr">38018 </span> <span class="subxComment"># convert</span> -<span id="L38019" class="LineNr">38019 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15501'>Curr-block-depth</a></span> 0/imm32 -<span id="L38020" class="LineNr">38020 </span> (<a href='mu.subx.html#L28370'>emit-subx-stmt</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a> %esi 0 %ebx 0 <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span> 0) -<span id="L38021" class="LineNr">38021 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) -<span id="L38022" class="Folded">38022 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L38028" class="LineNr">38028 </span> <span class="subxComment"># check output</span> -<span id="L38029" class="LineNr">38029 </span> (<a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"(f 0x34)"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call-with-literal-arg"</span>) -<span id="L38030" class="LineNr">38030 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38031" class="LineNr">38031 </span> 89/<- %esp 5/r32/ebp -<span id="L38032" class="LineNr">38032 </span> 5d/pop-to-ebp -<span id="L38033" class="LineNr">38033 </span> c3/return -<span id="L38034" class="LineNr">38034 </span> -<span id="L38035" class="LineNr">38035 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> -<span id="L38036" class="LineNr">38036 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38037" class="LineNr">38037 </span> 55/push-ebp -<span id="L38038" class="LineNr">38038 </span> 89/<- %ebp 4/r32/esp -<span id="L38039" class="LineNr">38039 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L38040" class="LineNr">38040 </span> 50/push-eax -<span id="L38041" class="LineNr">38041 </span> <span class="subxComment"># var i/eax: int = n</span> -<span id="L38042" class="LineNr">38042 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L38043" class="LineNr">38043 </span> { -<span id="L38044" class="LineNr">38044 </span> <span class="subxComment"># if (i <= 0) break</span> -<span id="L38045" class="LineNr">38045 </span> 3d/compare-eax-with 0/imm32 -<span id="L38046" class="LineNr">38046 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 -<span id="L38047" class="LineNr">38047 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) -<span id="L38048" class="LineNr">38048 </span> 48/decrement-eax -<span id="L38049" class="LineNr">38049 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L38050" class="LineNr">38050 </span> } -<span id="L38051" class="LineNr">38051 </span><span class="Constant">$emit-indent:end</span>: -<span id="L38052" class="LineNr">38052 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L38053" class="LineNr">38053 </span> 58/pop-to-eax -<span id="L38054" class="LineNr">38054 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38055" class="LineNr">38055 </span> 89/<- %esp 5/r32/ebp -<span id="L38056" class="LineNr">38056 </span> 5d/pop-to-ebp -<span id="L38057" class="LineNr">38057 </span> c3/return -<span id="L38058" class="LineNr">38058 </span> -<span id="L38059" class="LineNr">38059 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L38060" class="LineNr">38060 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38061" class="LineNr">38061 </span> 55/push-ebp -<span id="L38062" class="LineNr">38062 </span> 89/<- %ebp 4/r32/esp -<span id="L38063" class="LineNr">38063 </span> <span class="subxComment">#</span> -<span id="L38064" class="LineNr">38064 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) -<span id="L38065" class="LineNr">38065 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) -<span id="L38066" class="LineNr">38066 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 89/<- %ebp 4/r32/esp\n"</span>) -<span id="L38067" class="LineNr">38067 </span><span class="Constant">$emit-subx-prologue:end</span>: -<span id="L38068" class="LineNr">38068 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38069" class="LineNr">38069 </span> 89/<- %esp 5/r32/ebp -<span id="L38070" class="LineNr">38070 </span> 5d/pop-to-ebp -<span id="L38071" class="LineNr">38071 </span> c3/return -<span id="L38072" class="LineNr">38072 </span> -<span id="L38073" class="LineNr">38073 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> -<span id="L38074" class="LineNr">38074 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L38075" class="LineNr">38075 </span> 55/push-ebp -<span id="L38076" class="LineNr">38076 </span> 89/<- %ebp 4/r32/esp -<span id="L38077" class="LineNr">38077 </span> <span class="subxComment">#</span> -<span id="L38078" class="LineNr">38078 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) -<span id="L38079" class="LineNr">38079 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 89/<- %esp 5/r32/ebp\n"</span>) -<span id="L38080" class="LineNr">38080 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) -<span id="L38081" class="LineNr">38081 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) -<span id="L38082" class="LineNr">38082 </span><span class="Constant">$emit-subx-epilogue:end</span>: -<span id="L38083" class="LineNr">38083 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L38084" class="LineNr">38084 </span> 89/<- %esp 5/r32/ebp -<span id="L38085" class="LineNr">38085 </span> 5d/pop-to-ebp -<span id="L38086" class="LineNr">38086 </span> c3/return -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/data.mu.html b/html/apps/tile/data.mu.html deleted file mode 100644 index 46940746..00000000 --- a/html/apps/tile/data.mu.html +++ /dev/null @@ -1,680 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/data.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/data.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/data.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='data.mu.html#L1'>sandbox</a> <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> setup: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L3" class="LineNr"> 3 </span> data: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L4" class="LineNr"> 4 </span> <span class="muComment"># display data</span> -<span id="L5" class="LineNr"> 5 </span> cursor-call-path: (handle <a href='data.mu.html#L65'>call-path-element</a>) -<span id="L6" class="LineNr"> 6 </span> expanded-words: (handle <a href='data.mu.html#L59'>call-path</a>) -<span id="L7" class="LineNr"> 7 </span> partial-name-for-cursor-word: (handle <a href='data.mu.html#L30'>word</a>) <span class="muComment"># only when renaming word</span> -<span id="L8" class="LineNr"> 8 </span> partial-name-for-function: (handle <a href='data.mu.html#L30'>word</a>) <span class="muComment"># only when defining function</span> -<span id="L9" class="LineNr"> 9 </span> <span class="muComment">#</span> -<span id="L10" class="LineNr"> 10 </span> next: (handle <a href='data.mu.html#L1'>sandbox</a>) -<span id="L11" class="LineNr"> 11 </span> prev: (handle <a href='data.mu.html#L1'>sandbox</a>) -<span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> -<span id="L13" class="LineNr"> 13 </span> -<span id="L14" class="LineNr"> 14 </span><span class="PreProc">type</span> <a href='data.mu.html#L14'>function</a> <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> name: (handle array byte) -<span id="L16" class="LineNr"> 16 </span> args: (handle <a href='data.mu.html#L30'>word</a>) <span class="muComment"># in reverse order</span> -<span id="L17" class="LineNr"> 17 </span> body: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L18" class="LineNr"> 18 </span> <span class="muComment"># some sort of indication of spatial location</span> -<span id="L19" class="LineNr"> 19 </span> next: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L20" class="LineNr"> 20 </span><span class="Delimiter">}</span> -<span id="L21" class="LineNr"> 21 </span> -<span id="L22" class="LineNr"> 22 </span><span class="PreProc">type</span> <a href='data.mu.html#L22'>line</a> <span class="Delimiter">{</span> -<span id="L23" class="LineNr"> 23 </span> name: (handle array byte) -<span id="L24" class="LineNr"> 24 </span> data: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L25" class="LineNr"> 25 </span> <a href='data.mu.html#L70'>result</a>: (handle <a href='data.mu.html#L70'>result</a>) <span class="muComment"># might be cached</span> -<span id="L26" class="LineNr"> 26 </span> next: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L27" class="LineNr"> 27 </span> prev: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L28" class="LineNr"> 28 </span><span class="Delimiter">}</span> -<span id="L29" class="LineNr"> 29 </span> -<span id="L30" class="LineNr"> 30 </span><span class="PreProc">type</span> <a href='data.mu.html#L30'>word</a> <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> scalar-data: (handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) -<span id="L32" class="LineNr"> 32 </span> next: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L33" class="LineNr"> 33 </span> prev: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> -<span id="L35" class="LineNr"> 35 </span> -<span id="L36" class="LineNr"> 36 </span><span class="muComment"># todo: turn this into a sum type</span> -<span id="L37" class="LineNr"> 37 </span><span class="PreProc">type</span> <a href='data.mu.html#L37'>value</a> <span class="Delimiter">{</span> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">type</span>: int -<span id="L39" class="LineNr"> 39 </span> number-data: float <span class="muComment"># if type = 0</span> -<span id="L40" class="LineNr"> 40 </span> text-data: (handle array byte) <span class="muComment"># if type = 1</span> -<span id="L41" class="LineNr"> 41 </span> array-data: (handle array <a href='data.mu.html#L37'>value</a>) <span class="muComment"># if type = 2</span> -<span id="L42" class="LineNr"> 42 </span> file-data: (handle buffered-file) <span class="muComment"># if type = 3</span> -<span id="L43" class="LineNr"> 43 </span> filename: (handle array byte) <span class="muComment"># if type = 3</span> -<span id="L44" class="LineNr"> 44 </span> screen-data: (handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="muComment"># if type = 4</span> -<span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> -<span id="L47" class="LineNr"> 47 </span><span class="PreProc">type</span> <a href='data.mu.html#L47'>table</a> <span class="Delimiter">{</span> -<span id="L48" class="LineNr"> 48 </span> data: (handle array <a href='data.mu.html#L52'>bind</a>) -<span id="L49" class="LineNr"> 49 </span> next: (handle <a href='data.mu.html#L47'>table</a>) -<span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> -<span id="L51" class="LineNr"> 51 </span> -<span id="L52" class="LineNr"> 52 </span><span class="PreProc">type</span> <a href='data.mu.html#L52'>bind</a> <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> key: (handle array byte) -<span id="L54" class="LineNr"> 54 </span> <a href='data.mu.html#L37'>value</a>: (handle <a href='data.mu.html#L37'>value</a>) <span class="muComment"># I'd inline this but we sometimes want to return a specific value from a table</span> -<span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> -<span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="muComment"># A call-path is a data structure that can unambiguously refer to any specific</span> -<span id="L58" class="LineNr"> 58 </span><span class="muComment"># call arbitrarily deep inside the call hierarchy of a program.</span> -<span id="L59" class="LineNr"> 59 </span><span class="PreProc">type</span> <a href='data.mu.html#L59'>call-path</a> <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> data: (handle <a href='data.mu.html#L65'>call-path-element</a>) -<span id="L61" class="LineNr"> 61 </span> next: (handle <a href='data.mu.html#L59'>call-path</a>) -<span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span><span class="muComment"># A call-path element is a list of elements, each of which corresponds to some call.</span> -<span id="L65" class="LineNr"> 65 </span><span class="PreProc">type</span> <a href='data.mu.html#L65'>call-path-element</a> <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> <a href='data.mu.html#L30'>word</a>: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L67" class="LineNr"> 67 </span> next: (handle <a href='data.mu.html#L65'>call-path-element</a>) -<span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> -<span id="L69" class="LineNr"> 69 </span> -<span id="L70" class="LineNr"> 70 </span><span class="PreProc">type</span> <a href='data.mu.html#L70'>result</a> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> data: <a href='value-stack.mu.html#L3'>value-stack</a> -<span id="L72" class="LineNr"> 72 </span> <a href='../../114error.subx.html#L9'>error</a>: (handle array byte) <span class="muComment"># single error message for now</span> -<span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> -<span id="L74" class="LineNr"> 74 </span> -<span id="L75" class="LineNr"> 75 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L75'>initialize-sandbox</a></span> _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L78" class="LineNr"> 78 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> line-ah -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah -<span id="L80" class="LineNr"> 80 </span> <a href='data.mu.html#L90'>initialize-line</a> <a href='data.mu.html#L22'>line</a> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L83" class="LineNr"> 83 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> cursor-call-path-ah -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L86" class="LineNr"> 86 </span> copy-object word-ah, dest -<span id="L87" class="LineNr"> 87 </span><span class="Delimiter">}</span> -<span id="L88" class="LineNr"> 88 </span> -<span id="L89" class="LineNr"> 89 </span><span class="muComment"># initialize line with a single empty word</span> -<span id="L90" class="LineNr"> 90 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L90'>initialize-line</a></span> _line: (addr <a href='data.mu.html#L22'>line</a>) <span class="Delimiter">{</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L93" class="LineNr"> 93 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> word-ah -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> <a href='data.mu.html#L30'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah -<span id="L95" class="LineNr"> 95 </span> <a href='word.mu.html#L1'>initialize-word</a> <a href='data.mu.html#L30'>word</a> -<span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> -<span id="L97" class="LineNr"> 97 </span> -<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L98'>create-primitive-functions</a></span> _self: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> <span class="muComment"># x 2* = x 2 *</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L101" class="LineNr">101 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> self -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *self -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L105" class="LineNr">105 </span> <a href='data.mu.html#L263'>populate-text-with</a> name-ah, <span class="Constant">"2*"</span> -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L107" class="LineNr">107 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah -<span id="L109" class="LineNr">109 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body -<span id="L111" class="LineNr">111 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L113" class="LineNr">113 </span> <a href='data.mu.html#L90'>initialize-line</a> body -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> curr-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L115" class="LineNr">115 </span> <a href='word.mu.html#L575'>parse-words</a> <span class="Constant">"x 2 *"</span>, curr-word-ah -<span id="L116" class="LineNr">116 </span> <span class="muComment"># x 1+ = x 1 +</span> -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next -<span id="L118" class="LineNr">118 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L122" class="LineNr">122 </span> <a href='data.mu.html#L263'>populate-text-with</a> name-ah, <span class="Constant">"1+"</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L124" class="LineNr">124 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah -<span id="L126" class="LineNr">126 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body -<span id="L128" class="LineNr">128 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L130" class="LineNr">130 </span> <a href='data.mu.html#L90'>initialize-line</a> body -<span id="L131" class="LineNr">131 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L132" class="LineNr">132 </span> <a href='word.mu.html#L575'>parse-words</a> <span class="Constant">"x 1 +"</span>, curr-word-ah -<span id="L133" class="LineNr">133 </span> <span class="muComment"># x 2+ = x 1+ 1+</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next -<span id="L135" class="LineNr">135 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L139" class="LineNr">139 </span> <a href='data.mu.html#L263'>populate-text-with</a> name-ah, <span class="Constant">"2+"</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L141" class="LineNr">141 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah -<span id="L143" class="LineNr">143 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body -<span id="L145" class="LineNr">145 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L147" class="LineNr">147 </span> <a href='data.mu.html#L90'>initialize-line</a> body -<span id="L148" class="LineNr">148 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L149" class="LineNr">149 </span> <a href='word.mu.html#L575'>parse-words</a> <span class="Constant">"x 1+ 1+"</span>, curr-word-ah -<span id="L150" class="LineNr">150 </span> <span class="muComment"># x square = x x *</span> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next -<span id="L152" class="LineNr">152 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next -<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L156" class="LineNr">156 </span> <a href='data.mu.html#L263'>populate-text-with</a> name-ah, <span class="Constant">"square"</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L158" class="LineNr">158 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah -<span id="L160" class="LineNr">160 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body -<span id="L162" class="LineNr">162 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L164" class="LineNr">164 </span> <a href='data.mu.html#L90'>initialize-line</a> body -<span id="L165" class="LineNr">165 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L166" class="LineNr">166 </span> <a href='word.mu.html#L575'>parse-words</a> <span class="Constant">"x x *"</span>, curr-word-ah -<span id="L167" class="LineNr">167 </span> <span class="muComment"># x 1- = x 1 -</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next -<span id="L169" class="LineNr">169 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L173" class="LineNr">173 </span> <a href='data.mu.html#L263'>populate-text-with</a> name-ah, <span class="Constant">"1-"</span> -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L175" class="LineNr">175 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah -<span id="L177" class="LineNr">177 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body -<span id="L179" class="LineNr">179 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L181" class="LineNr">181 </span> <a href='data.mu.html#L90'>initialize-line</a> body -<span id="L182" class="LineNr">182 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L183" class="LineNr">183 </span> <a href='word.mu.html#L575'>parse-words</a> <span class="Constant">"x 1 -"</span>, curr-word-ah -<span id="L184" class="LineNr">184 </span> <span class="muComment"># x y sub = x y -</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next -<span id="L186" class="LineNr">186 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L190" class="LineNr">190 </span> <a href='data.mu.html#L263'>populate-text-with</a> name-ah, <span class="Constant">"sub"</span> -<span id="L191" class="LineNr">191 </span> <span class="muComment"># critical lesson: args are stored in reverse order</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L193" class="LineNr">193 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> args-ah -<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *args-ah -<span id="L195" class="LineNr">195 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"y"</span> -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> next-arg-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> args, next -<span id="L197" class="LineNr">197 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next-arg-ah -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> next-arg/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-arg-ah -<span id="L199" class="LineNr">199 </span> <a href='word.mu.html#L11'>initialize-word-with</a> next-arg, <span class="Constant">"x"</span> -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body -<span id="L201" class="LineNr">201 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L203" class="LineNr">203 </span> <a href='data.mu.html#L90'>initialize-line</a> body -<span id="L204" class="LineNr">204 </span> curr-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L205" class="LineNr">205 </span> <a href='word.mu.html#L575'>parse-words</a> <span class="Constant">"x y -"</span>, curr-word-ah -<span id="L206" class="LineNr">206 </span><span class="Delimiter">}</span> -<span id="L207" class="LineNr">207 </span> -<span id="L208" class="LineNr">208 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L208'>function-body</a></span> functions: (addr handle <a href='data.mu.html#L14'>function</a>), _word: (addr handle <a href='data.mu.html#L30'>word</a>), out: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="Delimiter">{</span> -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> function-name-storage: (handle array byte) -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> function-name-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address function-name-storage -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _word -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> <a href='data.mu.html#L30'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> gap-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L30'>word</a>, scalar-data -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *gap-ah -<span id="L215" class="LineNr">215 </span> <a href='gap-buffer.mu.html#L30'>gap-buffer-to-string</a> gap, function-name-ah -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> _function-name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *function-name-ah -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> function-name/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _function-name -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy functions -<span id="L219" class="LineNr">219 </span> $function-body:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _curr -<span id="L222" class="LineNr">222 </span> compare curr, <span class="Constant">0</span> -<span id="L223" class="LineNr">223 </span> <span class="PreProc">break-if-=</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, name -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-name-ah -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> curr-name, function-name -<span id="L227" class="LineNr">227 </span> compare found?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-=</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, body -<span id="L231" class="LineNr">231 </span> copy-object src, out -<span id="L232" class="LineNr">232 </span> <span class="PreProc">break</span> $function-body:<span class="PreProc">loop</span> -<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> -<span id="L234" class="LineNr">234 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L235" class="LineNr">235 </span> <span class="PreProc">loop</span> -<span id="L236" class="LineNr">236 </span> <span class="Delimiter">}</span> -<span id="L237" class="LineNr">237 </span><span class="Delimiter">}</span> -<span id="L238" class="LineNr">238 </span> -<span id="L239" class="LineNr">239 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L239'>body-length</a></span> functions: (addr handle <a href='data.mu.html#L14'>function</a>), function-name: (addr handle <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> body-storage: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> address body-storage -<span id="L242" class="LineNr">242 </span> <a href='data.mu.html#L208'>function-body</a> functions, function-name, body-ah -<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='data.mu.html#L248'>num-words-in-line</a> body -<span id="L245" class="LineNr">245 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L246" class="LineNr">246 </span><span class="Delimiter">}</span> -<span id="L247" class="LineNr">247 </span> -<span id="L248" class="LineNr">248 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L248'>num-words-in-line</a></span> _in: (addr <a href='data.mu.html#L22'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _in -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L254" class="LineNr">254 </span> compare curr, <span class="Constant">0</span> -<span id="L255" class="LineNr">255 </span> <span class="PreProc">break-if-=</span> -<span id="L256" class="LineNr">256 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L257" class="LineNr">257 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> increment -<span id="L258" class="LineNr">258 </span> <span class="PreProc">loop</span> -<span id="L259" class="LineNr">259 </span> <span class="Delimiter">}</span> -<span id="L260" class="LineNr">260 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L261" class="LineNr">261 </span><span class="Delimiter">}</span> -<span id="L262" class="LineNr">262 </span> -<span id="L263" class="LineNr">263 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L263'>populate-text-with</a></span> _out: (addr handle array byte), _in: (addr array byte) <span class="Delimiter">{</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _in -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length in -<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> out/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> copy _out -<span id="L267" class="LineNr">267 </span> populate out, n -<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> _out-addr/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out -<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">edx</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _out-addr -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L271" class="LineNr">271 </span> <span class="Delimiter">{</span> -<span id="L272" class="LineNr">272 </span> compare i, n -<span id="L273" class="LineNr">273 </span> <span class="PreProc">break-if->=</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr byte) <span class="SpecialChar"><-</span> index in, i -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *src -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr byte) <span class="SpecialChar"><-</span> index out-addr, i -<span id="L277" class="LineNr">277 </span> copy-byte-to *dest, val -<span id="L278" class="LineNr">278 </span> i <span class="SpecialChar"><-</span> increment -<span id="L279" class="LineNr">279 </span> <span class="PreProc">loop</span> -<span id="L280" class="LineNr">280 </span> <span class="Delimiter">}</span> -<span id="L281" class="LineNr">281 </span><span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> -<span id="L283" class="LineNr">283 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L283'>initialize-path-from-sandbox</a></span> _in: (addr <a href='data.mu.html#L1'>sandbox</a>), _out: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _in -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah -<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _out -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, <a href='data.mu.html#L30'>word</a> -<span id="L291" class="LineNr">291 </span> copy-object src, dest -<span id="L292" class="LineNr">292 </span><span class="Delimiter">}</span> -<span id="L293" class="LineNr">293 </span> -<span id="L294" class="LineNr">294 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L294'>initialize-path-from-line</a></span> _line: (addr <a href='data.mu.html#L22'>line</a>), _out: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _out -<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, <a href='data.mu.html#L30'>word</a> -<span id="L300" class="LineNr">300 </span> copy-object src, dest -<span id="L301" class="LineNr">301 </span><span class="Delimiter">}</span> -<span id="L302" class="LineNr">302 </span> -<span id="L303" class="LineNr">303 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L303'>find-in-call-paths</a></span> call-paths: (addr handle <a href='data.mu.html#L59'>call-path</a>), needle: (addr handle <a href='data.mu.html#L65'>call-path-element</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> copy call-paths -<span id="L305" class="LineNr">305 </span> $find-in-call-path:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L307" class="LineNr">307 </span> compare curr, <span class="Constant">0</span> -<span id="L308" class="LineNr">308 </span> <span class="PreProc">break-if-=</span> -<span id="L309" class="LineNr">309 </span> <span class="Delimiter">{</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> curr-data/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, data -<span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L324'>call-path-element-match?</a> curr-data, needle -<span id="L312" class="LineNr">312 </span> compare match?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L313" class="LineNr">313 </span> <span class="Delimiter">{</span> -<span id="L314" class="LineNr">314 </span> <span class="PreProc">break-if-=</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L316" class="LineNr">316 </span> <span class="Delimiter">}</span> -<span id="L317" class="LineNr">317 </span> <span class="Delimiter">}</span> -<span id="L318" class="LineNr">318 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L319" class="LineNr">319 </span> <span class="PreProc">loop</span> -<span id="L320" class="LineNr">320 </span> <span class="Delimiter">}</span> -<span id="L321" class="LineNr">321 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> -<span id="L323" class="LineNr">323 </span> -<span id="L324" class="LineNr">324 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L324'>call-path-element-match?</a></span> _x: (addr handle <a href='data.mu.html#L65'>call-path-element</a>), _y: (addr handle <a href='data.mu.html#L65'>call-path-element</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> x-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _x -<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> x-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *x-ah -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy x-a -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> y-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _y -<span id="L329" class="LineNr">329 </span> <span class="PreProc">var</span> y-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *y-ah -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> y/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy y-a -<span id="L331" class="LineNr">331 </span> compare x, y -<span id="L332" class="LineNr">332 </span> <span class="Delimiter">{</span> -<span id="L333" class="LineNr">333 </span> <span class="PreProc">break-if-!=</span> -<span id="L334" class="LineNr">334 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L335" class="LineNr">335 </span> <span class="Delimiter">}</span> -<span id="L336" class="LineNr">336 </span> compare x, <span class="Constant">0</span> -<span id="L337" class="LineNr">337 </span> <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <span class="PreProc">break-if-!=</span> -<span id="L339" class="LineNr">339 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> -<span id="L341" class="LineNr">341 </span> compare y, <span class="Constant">0</span> -<span id="L342" class="LineNr">342 </span> <span class="Delimiter">{</span> -<span id="L343" class="LineNr">343 </span> <span class="PreProc">break-if-!=</span> -<span id="L344" class="LineNr">344 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L345" class="LineNr">345 </span> <span class="Delimiter">}</span> -<span id="L346" class="LineNr">346 </span> <span class="muComment"># compare word addresses, not contents</span> -<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> x-data-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> x, <a href='data.mu.html#L30'>word</a> -<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> x-data-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *x-data-ah -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> x-data/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy x-data-a -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> y-data-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> y, <a href='data.mu.html#L30'>word</a> -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> y-data-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *y-data-ah -<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> y-data/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy y-data-a -<span id="L353" class="LineNr">353 </span><span class="CommentedCode">#? print-string 0, "match? "</span> -<span id="L354" class="LineNr">354 </span><span class="CommentedCode">#? print-int32-hex 0, x-data</span> -<span id="L355" class="LineNr">355 </span><span class="CommentedCode">#? print-string 0, " vs "</span> -<span id="L356" class="LineNr">356 </span><span class="CommentedCode">#? print-int32-hex 0, y-data</span> -<span id="L357" class="LineNr">357 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L358" class="LineNr">358 </span> compare x-data, y-data -<span id="L359" class="LineNr">359 </span> <span class="Delimiter">{</span> -<span id="L360" class="LineNr">360 </span> <span class="PreProc">break-if-=</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L362" class="LineNr">362 </span> <span class="Delimiter">}</span> -<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> x-next/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> x, next -<span id="L364" class="LineNr">364 </span> <span class="PreProc">var</span> y-next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> y, next -<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L324'>call-path-element-match?</a> x-next, y-next -<span id="L366" class="LineNr">366 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L367" class="LineNr">367 </span><span class="Delimiter">}</span> -<span id="L368" class="LineNr">368 </span> -<span id="L369" class="LineNr">369 </span><span class="muComment"># order is irrelevant</span> -<span id="L370" class="LineNr">370 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L370'>insert-in-call-path</a></span> list: (addr handle <a href='data.mu.html#L59'>call-path</a>), new: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> new-path-storage: (handle <a href='data.mu.html#L59'>call-path</a>) -<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> new-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> address new-path-storage -<span id="L373" class="LineNr">373 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-path-ah -<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> new-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-path-ah -<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> next/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-path, next -<span id="L376" class="LineNr">376 </span> copy-object list, next -<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-path, data -<span id="L378" class="LineNr">378 </span> <a href='data.mu.html#L383'>deep-copy-call-path-element</a> new, dest -<span id="L379" class="LineNr">379 </span> copy-object new-path-ah, list -<span id="L380" class="LineNr">380 </span><span class="Delimiter">}</span> -<span id="L381" class="LineNr">381 </span> -<span id="L382" class="LineNr">382 </span><span class="muComment"># assumes dest is initially clear</span> -<span id="L383" class="LineNr">383 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L383'>deep-copy-call-path-element</a></span> _src: (addr handle <a href='data.mu.html#L65'>call-path-element</a>), _dest: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L384" class="LineNr">384 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L385" class="LineNr">385 </span> <span class="muComment"># if src is null, return</span> -<span id="L386" class="LineNr">386 </span> <span class="PreProc">var</span> _src-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src -<span id="L387" class="LineNr">387 </span> compare _src-addr, <span class="Constant">0</span> -<span id="L388" class="LineNr">388 </span> <span class="PreProc">break-if-=</span> -<span id="L389" class="LineNr">389 </span> <span class="muComment"># allocate</span> -<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _src-addr -<span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _dest -<span id="L392" class="LineNr">392 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest -<span id="L393" class="LineNr">393 </span> <span class="muComment"># copy data</span> -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest -<span id="L395" class="LineNr">395 </span> <span class="Delimiter">{</span> -<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> dest-data-addr/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <a href='data.mu.html#L30'>word</a> -<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> src-data-addr/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-addr, <a href='data.mu.html#L30'>word</a> -<span id="L398" class="LineNr">398 </span> copy-object src-data-addr, dest-data-addr -<span id="L399" class="LineNr">399 </span> <span class="Delimiter">}</span> -<span id="L400" class="LineNr">400 </span> <span class="muComment"># recurse</span> -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> src-next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-addr, next -<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> dest-next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, next -<span id="L403" class="LineNr">403 </span> <a href='data.mu.html#L383'>deep-copy-call-path-element</a> src-next, dest-next -<span id="L404" class="LineNr">404 </span><span class="Delimiter">}</span> -<span id="L405" class="LineNr">405 </span> -<span id="L406" class="LineNr">406 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L406'>delete-in-call-path</a></span> list: (addr handle <a href='data.mu.html#L59'>call-path</a>), needle: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> copy list -<span id="L408" class="LineNr">408 </span> $delete-in-call-path:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> copy _curr -<span id="L411" class="LineNr">411 </span> compare curr, <span class="Constant">0</span> -<span id="L412" class="LineNr">412 </span> <span class="PreProc">break-if-=</span> -<span id="L413" class="LineNr">413 </span> <span class="Delimiter">{</span> -<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> curr-data/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, data -<span id="L415" class="LineNr">415 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L324'>call-path-element-match?</a> curr-data, needle -<span id="L416" class="LineNr">416 </span> compare match?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L417" class="LineNr">417 </span> <span class="Delimiter">{</span> -<span id="L418" class="LineNr">418 </span> <span class="PreProc">break-if-=</span> -<span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L420" class="LineNr">420 </span> copy-object next-ah, curr-ah -<span id="L421" class="LineNr">421 </span> <span class="PreProc">loop</span> $delete-in-call-path:<span class="PreProc">loop</span> -<span id="L422" class="LineNr">422 </span> <span class="Delimiter">}</span> -<span id="L423" class="LineNr">423 </span> <span class="Delimiter">}</span> -<span id="L424" class="LineNr">424 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L425" class="LineNr">425 </span> <span class="PreProc">loop</span> -<span id="L426" class="LineNr">426 </span> <span class="Delimiter">}</span> -<span id="L427" class="LineNr">427 </span><span class="Delimiter">}</span> -<span id="L428" class="LineNr">428 </span> -<span id="L429" class="LineNr">429 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L429'>increment-final-element</a></span> list: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L430" class="LineNr">430 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy list -<span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-ah -<span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L30'>word</a> -<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L434" class="LineNr">434 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, next -<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-ah -<span id="L436" class="LineNr">436 </span> compare target, <span class="Constant">0</span> -<span id="L437" class="LineNr">437 </span> <span class="PreProc">break-if-=</span> -<span id="L438" class="LineNr">438 </span> copy-object new-ah, val-ah -<span id="L439" class="LineNr">439 </span><span class="Delimiter">}</span> -<span id="L440" class="LineNr">440 </span> -<span id="L441" class="LineNr">441 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L441'>decrement-final-element</a></span> list: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy list -<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-ah -<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L30'>word</a> -<span id="L445" class="LineNr">445 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L446" class="LineNr">446 </span><span class="CommentedCode">#? print-string 0, "replacing "</span> -<span id="L447" class="LineNr">447 </span><span class="CommentedCode">#? {</span> -<span id="L448" class="LineNr">448 </span><span class="CommentedCode">#? var foo/eax: int <- copy val</span> -<span id="L449" class="LineNr">449 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L450" class="LineNr">450 </span><span class="CommentedCode">#? }</span> -<span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, prev -<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-ah -<span id="L453" class="LineNr">453 </span> compare target, <span class="Constant">0</span> -<span id="L454" class="LineNr">454 </span> <span class="PreProc">break-if-=</span> -<span id="L455" class="LineNr">455 </span> <span class="muComment"># val = val->prev</span> -<span id="L456" class="LineNr">456 </span><span class="CommentedCode">#? print-string 0, " with "</span> -<span id="L457" class="LineNr">457 </span><span class="CommentedCode">#? {</span> -<span id="L458" class="LineNr">458 </span><span class="CommentedCode">#? var foo/eax: int <- copy target</span> -<span id="L459" class="LineNr">459 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L460" class="LineNr">460 </span><span class="CommentedCode">#? }</span> -<span id="L461" class="LineNr">461 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L462" class="LineNr">462 </span> copy-object new-ah, val-ah -<span id="L463" class="LineNr">463 </span><span class="Delimiter">}</span> -<span id="L464" class="LineNr">464 </span> -<span id="L465" class="LineNr">465 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L465'>move-final-element-to-start-of-line</a></span> list: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L466" class="LineNr">466 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy list -<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-ah -<span id="L468" class="LineNr">468 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L30'>word</a> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, prev -<span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-ah -<span id="L472" class="LineNr">472 </span> compare target, <span class="Constant">0</span> -<span id="L473" class="LineNr">473 </span> <span class="PreProc">break-if-=</span> -<span id="L474" class="LineNr">474 </span> copy-object new-ah, val-ah -<span id="L475" class="LineNr">475 </span> <a href='data.mu.html#L465'>move-final-element-to-start-of-line</a> list -<span id="L476" class="LineNr">476 </span><span class="Delimiter">}</span> -<span id="L477" class="LineNr">477 </span> -<span id="L478" class="LineNr">478 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L478'>move-final-element-to-end-of-line</a></span> list: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy list -<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-ah -<span id="L481" class="LineNr">481 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L30'>word</a> -<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, next -<span id="L484" class="LineNr">484 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-ah -<span id="L485" class="LineNr">485 </span> compare target, <span class="Constant">0</span> -<span id="L486" class="LineNr">486 </span> <span class="PreProc">break-if-=</span> -<span id="L487" class="LineNr">487 </span> copy-object new-ah, val-ah -<span id="L488" class="LineNr">488 </span> <a href='data.mu.html#L478'>move-final-element-to-end-of-line</a> list -<span id="L489" class="LineNr">489 </span><span class="Delimiter">}</span> -<span id="L490" class="LineNr">490 </span> -<span id="L491" class="LineNr">491 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L491'>push-to-call-path-element</a></span> list: (addr handle <a href='data.mu.html#L65'>call-path-element</a>), new: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> new-element-storage: (handle <a href='data.mu.html#L65'>call-path-element</a>) -<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> new-element-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> address new-element-storage -<span id="L494" class="LineNr">494 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-element-ah -<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> new-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-element-ah -<span id="L496" class="LineNr">496 </span> <span class="muComment"># save word</span> -<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-element, <a href='data.mu.html#L30'>word</a> -<span id="L498" class="LineNr">498 </span> copy-object new, dest -<span id="L499" class="LineNr">499 </span> <span class="muComment"># save next</span> -<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> dest2/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-element, next -<span id="L501" class="LineNr">501 </span> copy-object list, dest2 -<span id="L502" class="LineNr">502 </span> <span class="muComment"># return</span> -<span id="L503" class="LineNr">503 </span> copy-object new-element-ah, list -<span id="L504" class="LineNr">504 </span><span class="Delimiter">}</span> -<span id="L505" class="LineNr">505 </span> -<span id="L506" class="LineNr">506 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L506'>drop-from-call-path-element</a></span> _list: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L507" class="LineNr">507 </span> <span class="PreProc">var</span> list-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _list -<span id="L508" class="LineNr">508 </span> <span class="PreProc">var</span> list/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *list-ah -<span id="L509" class="LineNr">509 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> list, next -<span id="L510" class="LineNr">510 </span> copy-object next, _list -<span id="L511" class="LineNr">511 </span><span class="Delimiter">}</span> -<span id="L512" class="LineNr">512 </span> -<span id="L513" class="LineNr">513 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L513'>drop-nested-calls</a></span> _list: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L514" class="LineNr">514 </span> <span class="PreProc">var</span> list-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _list -<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> list/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *list-ah -<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> list, next -<span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L518" class="LineNr">518 </span> compare next, <span class="Constant">0</span> -<span id="L519" class="LineNr">519 </span> <span class="PreProc">break-if-=</span> -<span id="L520" class="LineNr">520 </span> copy-object next-ah, _list -<span id="L521" class="LineNr">521 </span> <a href='data.mu.html#L513'>drop-nested-calls</a> _list -<span id="L522" class="LineNr">522 </span><span class="Delimiter">}</span> -<span id="L523" class="LineNr">523 </span> -<span id="L524" class="LineNr">524 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L524'>dump-call-path-element</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _x-ah: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="Delimiter">{</span> -<span id="L525" class="LineNr">525 </span> <span class="PreProc">var</span> x-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _x-ah -<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> _x/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *x-ah -<span id="L527" class="LineNr">527 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _x -<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> x, <a href='data.mu.html#L30'>word</a> -<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> <a href='data.mu.html#L30'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah -<span id="L530" class="LineNr">530 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L30'>word</a> -<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> x, next -<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L533" class="LineNr">533 </span> compare next, <span class="Constant">0</span> -<span id="L534" class="LineNr">534 </span> <span class="Delimiter">{</span> -<span id="L535" class="LineNr">535 </span> <span class="PreProc">break-if-=</span> -<span id="L536" class="LineNr">536 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L537" class="LineNr">537 </span> <a href='data.mu.html#L524'>dump-call-path-element</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah -<span id="L538" class="LineNr">538 </span> <span class="PreProc">return</span> -<span id="L539" class="LineNr">539 </span> <span class="Delimiter">}</span> -<span id="L540" class="LineNr">540 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> -<span id="L541" class="LineNr">541 </span><span class="Delimiter">}</span> -<span id="L542" class="LineNr">542 </span> -<span id="L543" class="LineNr">543 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L543'>dump-call-paths</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _x-ah: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="Delimiter">{</span> -<span id="L544" class="LineNr">544 </span> <span class="PreProc">var</span> x-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> copy _x-ah -<span id="L545" class="LineNr">545 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *x-ah -<span id="L546" class="LineNr">546 </span> compare x, <span class="Constant">0</span> -<span id="L547" class="LineNr">547 </span> <span class="PreProc">break-if-=</span> -<span id="L548" class="LineNr">548 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> x, data -<span id="L549" class="LineNr">549 </span> <a href='data.mu.html#L524'>dump-call-path-element</a> <a href='../../405screen.mu.html#L9'>screen</a>, src -<span id="L550" class="LineNr">550 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> x, next -<span id="L551" class="LineNr">551 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L552" class="LineNr">552 </span> compare next, <span class="Constant">0</span> -<span id="L553" class="LineNr">553 </span> <span class="Delimiter">{</span> -<span id="L554" class="LineNr">554 </span> <span class="PreProc">break-if-=</span> -<span id="L555" class="LineNr">555 </span> <a href='data.mu.html#L543'>dump-call-paths</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah -<span id="L556" class="LineNr">556 </span> <span class="Delimiter">}</span> -<span id="L557" class="LineNr">557 </span><span class="Delimiter">}</span> -<span id="L558" class="LineNr">558 </span> -<span id="L559" class="LineNr">559 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L559'>function-width</a></span> _self: (addr <a href='data.mu.html#L14'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L561" class="LineNr">561 </span> <span class="PreProc">var</span> args/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, args -<span id="L562" class="LineNr">562 </span> <span class="PreProc">var</span> arg-width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L556'>word-list-length</a> args -<span id="L563" class="LineNr">563 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy arg-width -<span id="L564" class="LineNr">564 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add <span class="Constant">4</span> <span class="muComment"># function-header-indent + body-indent</span> -<span id="L565" class="LineNr">565 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, body -<span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> <a href='data.mu.html#L577'>body-width</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='data.mu.html#L577'>body-width</a> body-ah -<span id="L567" class="LineNr">567 </span> <a href='data.mu.html#L577'>body-width</a> <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># right margin</span> -<span id="L568" class="LineNr">568 </span> <a href='data.mu.html#L577'>body-width</a> <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># body-indent for "≡ "</span> -<span id="L569" class="LineNr">569 </span> compare <a href='data.mu.html#L70'>result</a>, <a href='data.mu.html#L577'>body-width</a> -<span id="L570" class="LineNr">570 </span> <span class="Delimiter">{</span> -<span id="L571" class="LineNr">571 </span> <span class="PreProc">break-if->=</span> -<span id="L572" class="LineNr">572 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> copy <a href='data.mu.html#L577'>body-width</a> -<span id="L573" class="LineNr">573 </span> <span class="Delimiter">}</span> -<span id="L574" class="LineNr">574 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L575" class="LineNr">575 </span><span class="Delimiter">}</span> -<span id="L576" class="LineNr">576 </span> -<span id="L577" class="LineNr">577 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L577'>body-width</a></span> lines: (addr handle <a href='data.mu.html#L22'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L578" class="LineNr">578 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy lines -<span id="L579" class="LineNr">579 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L580" class="LineNr">580 </span> <span class="Delimiter">{</span> -<span id="L581" class="LineNr">581 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L582" class="LineNr">582 </span> compare curr, <span class="Constant">0</span> -<span id="L583" class="LineNr">583 </span> <span class="PreProc">break-if-=</span> -<span id="L584" class="LineNr">584 </span> <span class="Delimiter">{</span> -<span id="L585" class="LineNr">585 </span> <span class="PreProc">var</span> words/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, data -<span id="L586" class="LineNr">586 </span> <span class="PreProc">var</span> curr-len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L556'>word-list-length</a> words -<span id="L587" class="LineNr">587 </span> compare curr-len, <a href='data.mu.html#L70'>result</a> -<span id="L588" class="LineNr">588 </span> <span class="PreProc">break-if-<=</span> -<span id="L589" class="LineNr">589 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> copy curr-len -<span id="L590" class="LineNr">590 </span> <span class="Delimiter">}</span> -<span id="L591" class="LineNr">591 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L592" class="LineNr">592 </span> <span class="PreProc">loop</span> -<span id="L593" class="LineNr">593 </span> <span class="Delimiter">}</span> -<span id="L594" class="LineNr">594 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L595" class="LineNr">595 </span><span class="Delimiter">}</span> -<span id="L596" class="LineNr">596 </span> -<span id="L597" class="LineNr">597 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L597'>function-height</a></span> _self: (addr <a href='data.mu.html#L14'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L598" class="LineNr">598 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L599" class="LineNr">599 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, body -<span id="L600" class="LineNr">600 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='data.mu.html#L605'>line-list-length</a> body-ah -<span id="L601" class="LineNr">601 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> increment <span class="muComment"># for function header</span> -<span id="L602" class="LineNr">602 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L603" class="LineNr">603 </span><span class="Delimiter">}</span> -<span id="L604" class="LineNr">604 </span> -<span id="L605" class="LineNr">605 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L605'>line-list-length</a></span> lines: (addr handle <a href='data.mu.html#L22'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L606" class="LineNr">606 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy lines -<span id="L607" class="LineNr">607 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L608" class="LineNr">608 </span> <span class="Delimiter">{</span> -<span id="L609" class="LineNr">609 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L610" class="LineNr">610 </span> compare curr, <span class="Constant">0</span> -<span id="L611" class="LineNr">611 </span> <span class="PreProc">break-if-=</span> -<span id="L612" class="LineNr">612 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L613" class="LineNr">613 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> increment -<span id="L614" class="LineNr">614 </span> <span class="PreProc">loop</span> -<span id="L615" class="LineNr">615 </span> <span class="Delimiter">}</span> -<span id="L616" class="LineNr">616 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L617" class="LineNr">617 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/environment.mu.html b/html/apps/tile/environment.mu.html deleted file mode 100644 index 744501c3..00000000 --- a/html/apps/tile/environment.mu.html +++ /dev/null @@ -1,1744 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/environment.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } -.muS2Comment { color: #8a8a8a; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/environment.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/environment.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='environment.mu.html#L1'>environment</a> <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <a href='../../405screen.mu.html#L9'>screen</a>: (handle <a href='../../405screen.mu.html#L9'>screen</a>) -<span id="L3" class="LineNr"> 3 </span> functions: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L4" class="LineNr"> 4 </span> sandboxes: (handle <a href='data.mu.html#L1'>sandbox</a>) -<span id="L5" class="LineNr"> 5 </span> cursor-sandbox: (handle <a href='data.mu.html#L1'>sandbox</a>) -<span id="L6" class="LineNr"> 6 </span> nrows: int -<span id="L7" class="LineNr"> 7 </span> ncols: int -<span id="L8" class="LineNr"> 8 </span> code-separator-col: int -<span id="L9" class="LineNr"> 9 </span><span class="Delimiter">}</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L11'>initialize-environment</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env -<span id="L13" class="LineNr"> 13 </span> <span class="muComment"># initialize some predefined function definitions</span> -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> functions/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, functions -<span id="L15" class="LineNr"> 15 </span> <a href='data.mu.html#L98'>create-primitive-functions</a> functions -<span id="L16" class="LineNr"> 16 </span> <span class="muComment"># initialize first sandbox</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, sandboxes -<span id="L18" class="LineNr"> 18 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> sandbox-ah -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *sandbox-ah -<span id="L20" class="LineNr"> 20 </span> <a href='data.mu.html#L75'>initialize-sandbox</a> <a href='data.mu.html#L1'>sandbox</a> -<span id="L21" class="LineNr"> 21 </span> <span class="muComment"># initialize cursor sandbox</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> cursor-sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, cursor-sandbox -<span id="L23" class="LineNr"> 23 </span> copy-object sandbox-ah, cursor-sandbox-ah -<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># initialize screen</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L30" class="LineNr"> 30 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../../405screen.mu.html#L60'>screen-size</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, nrows -<span id="L32" class="LineNr"> 32 </span> copy-to *dest, nrows -<span id="L33" class="LineNr"> 33 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, ncols -<span id="L34" class="LineNr"> 34 </span> copy-to *dest, ncols -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> repl-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy ncols -<span id="L36" class="LineNr"> 36 </span> repl-col <span class="SpecialChar"><-</span> shift-right <span class="Constant">1</span> -<span id="L37" class="LineNr"> 37 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col -<span id="L38" class="LineNr"> 38 </span> copy-to *dest, repl-col -<span id="L39" class="LineNr"> 39 </span><span class="Delimiter">}</span> -<span id="L40" class="LineNr"> 40 </span> -<span id="L41" class="LineNr"> 41 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L41'>draw-screen</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *dest -<span id="L48" class="LineNr"> 48 </span> <a href='environment.mu.html#L1474'>clear-canvas</a> env -<span id="L49" class="LineNr"> 49 </span> tmp <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># repl-margin-left</span> -<span id="L50" class="LineNr"> 50 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>, tmp <span class="muComment"># input-row</span> -<span id="L51" class="LineNr"> 51 </span><span class="Delimiter">}</span> -<span id="L52" class="LineNr"> 52 </span> -<span id="L53" class="LineNr"> 53 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L53'>initialize-environment-with-fake-screen</a></span> _self: (addr <a href='environment.mu.html#L1'>environment</a>), nrows: int, ncols: int <span class="Delimiter">{</span> -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L56" class="LineNr"> 56 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> screen-ah -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L58" class="LineNr"> 58 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> screen-addr, nrows, ncols -<span id="L59" class="LineNr"> 59 </span> <a href='environment.mu.html#L11'>initialize-environment</a> self -<span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> -<span id="L61" class="LineNr"> 61 </span> -<span id="L62" class="LineNr"> 62 </span><span class="muComment">#############</span> -<span id="L63" class="LineNr"> 63 </span><span class="muComment"># Iterate</span> -<span id="L64" class="LineNr"> 64 </span><span class="muComment">#############</span> -<span id="L65" class="LineNr"> 65 </span> -<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L66'>process</a></span> _self: (addr <a href='environment.mu.html#L1'>environment</a>), key: grapheme <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor-sandbox -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *sandbox-ah -<span id="L70" class="LineNr"> 70 </span><span class="CommentedCode">#? print-string 0, "processing sandbox\n"</span> -<span id="L71" class="LineNr"> 71 </span> <a href='environment.mu.html#L74'>process-sandbox</a> self, <a href='data.mu.html#L1'>sandbox</a>, key -<span id="L72" class="LineNr"> 72 </span><span class="Delimiter">}</span> -<span id="L73" class="LineNr"> 73 </span> -<span id="L74" class="LineNr"> 74 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L74'>process-sandbox</a></span> _self: (addr <a href='environment.mu.html#L1'>environment</a>), _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> rename-word-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-cursor-word -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> rename-word-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *rename-word-mode-ah? -<span id="L79" class="LineNr"> 79 </span> compare rename-word-mode?, <span class="Constant">0</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-=</span> -<span id="L82" class="LineNr"> 82 </span><span class="CommentedCode">#? print-string 0, "processing sandbox rename\n"</span> -<span id="L83" class="LineNr"> 83 </span> <a href='environment.mu.html#L529'>process-sandbox-rename</a> <a href='data.mu.html#L1'>sandbox</a>, key -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">return</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> define-function-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-function -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> define-function-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *define-function-mode-ah? -<span id="L88" class="LineNr"> 88 </span> compare define-function-mode?, <span class="Constant">0</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">{</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-=</span> -<span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? print-string 0, "processing function definition\n"</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> functions/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, functions -<span id="L93" class="LineNr"> 93 </span> <a href='environment.mu.html#L645'>process-sandbox-define</a> <a href='data.mu.html#L1'>sandbox</a>, functions, key -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">return</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> -<span id="L96" class="LineNr"> 96 </span><span class="CommentedCode">#? print-string 0, "processing sandbox edit\n"</span> -<span id="L97" class="LineNr"> 97 </span> <a href='environment.mu.html#L100'>process-sandbox-edit</a> self, <a href='data.mu.html#L1'>sandbox</a>, key -<span id="L98" class="LineNr"> 98 </span><span class="Delimiter">}</span> -<span id="L99" class="LineNr"> 99 </span> -<span id="L100" class="LineNr"> 100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L100'>process-sandbox-edit</a></span> _self: (addr <a href='environment.mu.html#L1'>environment</a>), _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> -<span id="L101" class="LineNr"> 101 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L102" class="LineNr"> 102 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L103" class="LineNr"> 103 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L104" class="LineNr"> 104 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L105" class="LineNr"> 105 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ebx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L106" class="LineNr"> 106 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L107" class="LineNr"> 107 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _cursor-word -<span id="L108" class="LineNr"> 108 </span> compare key, <span class="Constant">0x445b1b</span> <span class="muComment"># left-arrow</span> -<span id="L109" class="LineNr"> 109 </span> $process-sandbox-edit:key-left-arrow: <span class="Delimiter">{</span> -<span id="L110" class="LineNr"> 110 </span> <span class="PreProc">break-if-!=</span> -<span id="L111" class="LineNr"> 111 </span><span class="CommentedCode">#? print-string 0, "left-arrow\n"</span> -<span id="L112" class="LineNr"> 112 </span> <span class="muComment"># if not at start, move left within current word</span> -<span id="L113" class="LineNr"> 113 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L170'>cursor-at-start?</a> cursor-word -<span id="L114" class="LineNr"> 114 </span> compare at-start?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L115" class="LineNr"> 115 </span> <span class="Delimiter">{</span> -<span id="L116" class="LineNr"> 116 </span> <span class="PreProc">break-if-!=</span> -<span id="L117" class="LineNr"> 117 </span><span class="CommentedCode">#? print-string 0, "cursor left within word\n"</span> -<span id="L118" class="LineNr"> 118 </span> <a href='word.mu.html#L186'>cursor-left</a> cursor-word -<span id="L119" class="LineNr"> 119 </span> <span class="PreProc">return</span> -<span id="L120" class="LineNr"> 120 </span> <span class="Delimiter">}</span> -<span id="L121" class="LineNr"> 121 </span> <span class="muComment"># if current word is expanded, move to the rightmost word in its body</span> -<span id="L122" class="LineNr"> 122 </span> <span class="Delimiter">{</span> -<span id="L123" class="LineNr"> 123 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L124" class="LineNr"> 124 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, expanded-words -<span id="L125" class="LineNr"> 125 </span> <span class="PreProc">var</span> curr-word-is-expanded?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L303'>find-in-call-paths</a> expanded-words, cursor-call-path -<span id="L126" class="LineNr"> 126 </span> compare curr-word-is-expanded?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L127" class="LineNr"> 127 </span> <span class="PreProc">break-if-=</span> -<span id="L128" class="LineNr"> 128 </span> <span class="muComment"># update cursor-call-path</span> -<span id="L129" class="LineNr"> 129 </span><span class="CommentedCode">#? print-string 0, "curr word is expanded\n"</span> -<span id="L130" class="LineNr"> 130 </span> <span class="PreProc">var</span> self/<span class="Constant">ecx</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L131" class="LineNr"> 131 </span> <span class="PreProc">var</span> functions/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, functions -<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">var</span> body: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L133" class="LineNr"> 133 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> address body -<span id="L134" class="LineNr"> 134 </span> <a href='data.mu.html#L208'>function-body</a> functions, cursor-word-ah, body-ah -<span id="L135" class="LineNr"> 135 </span> <span class="PreProc">var</span> body-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L136" class="LineNr"> 136 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body-addr, data -<span id="L137" class="LineNr"> 137 </span> <span class="PreProc">var</span> final-word-h: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L138" class="LineNr"> 138 </span> <span class="PreProc">var</span> final-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address final-word-h -<span id="L139" class="LineNr"> 139 </span> <a href='word.mu.html#L129'>final-word</a> first-word-ah, final-word-ah -<span id="L140" class="LineNr"> 140 </span> <a href='data.mu.html#L491'>push-to-call-path-element</a> cursor-call-path, final-word-ah -<span id="L141" class="LineNr"> 141 </span> <span class="muComment"># move cursor to end of word</span> -<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L143" class="LineNr"> 143 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L144" class="LineNr"> 144 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L146" class="LineNr"> 146 </span> <a href='word.mu.html#L207'>cursor-to-end</a> cursor-word -<span id="L147" class="LineNr"> 147 </span> <span class="PreProc">return</span> -<span id="L148" class="LineNr"> 148 </span> <span class="Delimiter">}</span> -<span id="L149" class="LineNr"> 149 </span> <span class="muComment"># if at first word, look for a caller to jump to</span> -<span id="L150" class="LineNr"> 150 </span> $process-sandbox-edit:key-left-arrow-first-word: <span class="Delimiter">{</span> -<span id="L151" class="LineNr"> 151 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, prev -<span id="L152" class="LineNr"> 152 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah -<span id="L153" class="LineNr"> 153 </span> compare prev-word, <span class="Constant">0</span> -<span id="L154" class="LineNr"> 154 </span> <span class="PreProc">break-if-!=</span> -<span id="L155" class="LineNr"> 155 </span> $process-sandbox-edit:key-left-arrow-first-word-and-caller: <span class="Delimiter">{</span> -<span id="L156" class="LineNr"> 156 </span><span class="CommentedCode">#? print-string 0, "return\n"</span> -<span id="L157" class="LineNr"> 157 </span> <span class="Delimiter">{</span> -<span id="L158" class="LineNr"> 158 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L159" class="LineNr"> 159 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L160" class="LineNr"> 160 </span> <span class="PreProc">var</span> next-cursor-element-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, next -<span id="L161" class="LineNr"> 161 </span> <span class="PreProc">var</span> next-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-cursor-element-ah -<span id="L162" class="LineNr"> 162 </span> compare next-cursor-element, <span class="Constant">0</span> -<span id="L163" class="LineNr"> 163 </span> <span class="PreProc">break-if-=</span> $process-sandbox-edit:key-left-arrow-first-word-and-caller -<span id="L164" class="LineNr"> 164 </span> copy-object next-cursor-element-ah, cursor-call-path-ah -<span id="L165" class="LineNr"> 165 </span> <span class="Delimiter">}</span> -<span id="L166" class="LineNr"> 166 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L167" class="LineNr"> 167 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L168" class="LineNr"> 168 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L169" class="LineNr"> 169 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L170" class="LineNr"> 170 </span> cursor-word <span class="SpecialChar"><-</span> copy _cursor-word -<span id="L171" class="LineNr"> 171 </span> <span class="Delimiter">}</span> -<span id="L172" class="LineNr"> 172 </span> <span class="Delimiter">}</span> -<span id="L173" class="LineNr"> 173 </span> <span class="muComment"># then move to end of previous word</span> -<span id="L174" class="LineNr"> 174 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, prev -<span id="L175" class="LineNr"> 175 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah -<span id="L176" class="LineNr"> 176 </span> <span class="Delimiter">{</span> -<span id="L177" class="LineNr"> 177 </span> compare prev-word, <span class="Constant">0</span> -<span id="L178" class="LineNr"> 178 </span> <span class="PreProc">break-if-=</span> -<span id="L179" class="LineNr"> 179 </span><span class="CommentedCode">#? print-string 0, "move to previous word\n"</span> -<span id="L180" class="LineNr"> 180 </span> <a href='word.mu.html#L207'>cursor-to-end</a> prev-word -<span id="L181" class="LineNr"> 181 </span><span class="CommentedCode">#? {</span> -<span id="L182" class="LineNr"> 182 </span><span class="CommentedCode">#? var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path</span> -<span id="L183" class="LineNr"> 183 </span><span class="CommentedCode">#? var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah</span> -<span id="L184" class="LineNr"> 184 </span><span class="CommentedCode">#? var cursor-word-ah/eax: (addr handle word) <- get cursor-call-path, word</span> -<span id="L185" class="LineNr"> 185 </span><span class="CommentedCode">#? var _cursor-word/eax: (addr word) <- lookup *cursor-word-ah</span> -<span id="L186" class="LineNr"> 186 </span><span class="CommentedCode">#? var cursor-word/ebx: (addr word) <- copy _cursor-word</span> -<span id="L187" class="LineNr"> 187 </span><span class="CommentedCode">#? print-string 0, "word at cursor before: "</span> -<span id="L188" class="LineNr"> 188 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> -<span id="L189" class="LineNr"> 189 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L190" class="LineNr"> 190 </span><span class="CommentedCode">#? }</span> -<span id="L191" class="LineNr"> 191 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L192" class="LineNr"> 192 </span> <a href='data.mu.html#L441'>decrement-final-element</a> cursor-call-path -<span id="L193" class="LineNr"> 193 </span><span class="CommentedCode">#? {</span> -<span id="L194" class="LineNr"> 194 </span><span class="CommentedCode">#? var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path</span> -<span id="L195" class="LineNr"> 195 </span><span class="CommentedCode">#? var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah</span> -<span id="L196" class="LineNr"> 196 </span><span class="CommentedCode">#? var cursor-word-ah/eax: (addr handle word) <- get cursor-call-path, word</span> -<span id="L197" class="LineNr"> 197 </span><span class="CommentedCode">#? var _cursor-word/eax: (addr word) <- lookup *cursor-word-ah</span> -<span id="L198" class="LineNr"> 198 </span><span class="CommentedCode">#? var cursor-word/ebx: (addr word) <- copy _cursor-word</span> -<span id="L199" class="LineNr"> 199 </span><span class="CommentedCode">#? print-string 0, "word at cursor after: "</span> -<span id="L200" class="LineNr"> 200 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> -<span id="L201" class="LineNr"> 201 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L202" class="LineNr"> 202 </span><span class="CommentedCode">#? }</span> -<span id="L203" class="LineNr"> 203 </span> <span class="Delimiter">}</span> -<span id="L204" class="LineNr"> 204 </span> <span class="PreProc">return</span> -<span id="L205" class="LineNr"> 205 </span> <span class="Delimiter">}</span> -<span id="L206" class="LineNr"> 206 </span> compare key, <span class="Constant">0x435b1b</span> <span class="muComment"># right-arrow</span> -<span id="L207" class="LineNr"> 207 </span> $process-sandbox-edit:key-right-arrow: <span class="Delimiter">{</span> -<span id="L208" class="LineNr"> 208 </span> <span class="PreProc">break-if-!=</span> -<span id="L209" class="LineNr"> 209 </span> <span class="muComment"># if not at end, move right within current word</span> -<span id="L210" class="LineNr"> 210 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L178'>cursor-at-end?</a> cursor-word -<span id="L211" class="LineNr"> 211 </span> compare at-end?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L212" class="LineNr"> 212 </span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">break-if-!=</span> -<span id="L214" class="LineNr"> 214 </span><span class="CommentedCode">#? print-string 0, "a\n"</span> -<span id="L215" class="LineNr"> 215 </span> <a href='word.mu.html#L193'>cursor-right</a> cursor-word -<span id="L216" class="LineNr"> 216 </span> <span class="PreProc">return</span> -<span id="L217" class="LineNr"> 217 </span> <span class="Delimiter">}</span> -<span id="L218" class="LineNr"> 218 </span> <span class="muComment"># if at final word, look for a caller to jump to</span> -<span id="L219" class="LineNr"> 219 </span> <span class="Delimiter">{</span> -<span id="L220" class="LineNr"> 220 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next -<span id="L221" class="LineNr"> 221 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah -<span id="L222" class="LineNr"> 222 </span> compare <a href='../../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> -<span id="L223" class="LineNr"> 223 </span> <span class="PreProc">break-if-!=</span> -<span id="L224" class="LineNr"> 224 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L225" class="LineNr"> 225 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L226" class="LineNr"> 226 </span> <span class="PreProc">var</span> next-cursor-element-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, next -<span id="L227" class="LineNr"> 227 </span> <span class="PreProc">var</span> next-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-cursor-element-ah -<span id="L228" class="LineNr"> 228 </span> compare next-cursor-element, <span class="Constant">0</span> -<span id="L229" class="LineNr"> 229 </span> <span class="PreProc">break-if-=</span> -<span id="L230" class="LineNr"> 230 </span> copy-object next-cursor-element-ah, cursor-call-path-ah -<span id="L231" class="LineNr"> 231 </span> <span class="PreProc">return</span> -<span id="L232" class="LineNr"> 232 </span> <span class="Delimiter">}</span> -<span id="L233" class="LineNr"> 233 </span> <span class="muComment"># otherwise, move to the next word</span> -<span id="L234" class="LineNr"> 234 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next -<span id="L235" class="LineNr"> 235 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah -<span id="L236" class="LineNr"> 236 </span> <span class="Delimiter">{</span> -<span id="L237" class="LineNr"> 237 </span> compare <a href='../../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> -<span id="L238" class="LineNr"> 238 </span> <span class="PreProc">break-if-=</span> -<span id="L239" class="LineNr"> 239 </span><span class="CommentedCode">#? print-string 0, "b\n"</span> -<span id="L240" class="LineNr"> 240 </span> <a href='word.mu.html#L200'>cursor-to-start</a> <a href='../../127next-word.subx.html#L11'>next-word</a> -<span id="L241" class="LineNr"> 241 </span> <span class="muS2Comment"># . . cursor-word now out of date</span> -<span id="L242" class="LineNr"> 242 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L243" class="LineNr"> 243 </span> <a href='data.mu.html#L429'>increment-final-element</a> cursor-call-path -<span id="L244" class="LineNr"> 244 </span> <span class="muComment"># Is the new cursor word expanded? If so, it's a function call. Add a</span> -<span id="L245" class="LineNr"> 245 </span> <span class="muComment"># new level to the cursor-call-path for the call's body.</span> -<span id="L246" class="LineNr"> 246 </span> $process-sandbox-edit:key-right-arrow-next-word-is-call-expanded: <span class="Delimiter">{</span> -<span id="L247" class="LineNr"> 247 </span><span class="CommentedCode">#? print-string 0, "c\n"</span> -<span id="L248" class="LineNr"> 248 </span> <span class="Delimiter">{</span> -<span id="L249" class="LineNr"> 249 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, expanded-words -<span id="L250" class="LineNr"> 250 </span> <span class="PreProc">var</span> curr-word-is-expanded?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L303'>find-in-call-paths</a> expanded-words, cursor-call-path -<span id="L251" class="LineNr"> 251 </span> compare curr-word-is-expanded?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L252" class="LineNr"> 252 </span> <span class="PreProc">break-if-=</span> $process-sandbox-edit:key-right-arrow-next-word-is-call-expanded -<span id="L253" class="LineNr"> 253 </span> <span class="Delimiter">}</span> -<span id="L254" class="LineNr"> 254 </span> <span class="PreProc">var</span> callee-h: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> address callee-h -<span id="L256" class="LineNr"> 256 </span> <span class="PreProc">var</span> functions/<span class="Constant">ebx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, functions -<span id="L257" class="LineNr"> 257 </span> <a href='environment.mu.html#L1397'>callee</a> functions, <a href='../../127next-word.subx.html#L11'>next-word</a>, callee-ah -<span id="L258" class="LineNr"> 258 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1397'>callee</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-ah -<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> callee-body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1397'>callee</a>, body -<span id="L260" class="LineNr"> 260 </span> <span class="PreProc">var</span> callee-body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-body-ah -<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> callee-body-first-word/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> callee-body, data -<span id="L262" class="LineNr"> 262 </span> <a href='data.mu.html#L491'>push-to-call-path-element</a> cursor-call-path, callee-body-first-word -<span id="L263" class="LineNr"> 263 </span> <span class="muComment"># position cursor at left</span> -<span id="L264" class="LineNr"> 264 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L265" class="LineNr"> 265 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L267" class="LineNr"> 267 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L268" class="LineNr"> 268 </span> <a href='word.mu.html#L200'>cursor-to-start</a> cursor-word -<span id="L269" class="LineNr"> 269 </span><span class="CommentedCode">#? print-string 0, "d\n"</span> -<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">return</span> -<span id="L271" class="LineNr"> 271 </span> <span class="Delimiter">}</span> -<span id="L272" class="LineNr"> 272 </span> <span class="Delimiter">}</span> -<span id="L273" class="LineNr"> 273 </span> <span class="PreProc">return</span> -<span id="L274" class="LineNr"> 274 </span> <span class="Delimiter">}</span> -<span id="L275" class="LineNr"> 275 </span> compare key, <span class="Constant">0xa</span> <span class="muComment"># enter</span> -<span id="L276" class="LineNr"> 276 </span> <span class="Delimiter">{</span> -<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">break-if-!=</span> -<span id="L278" class="LineNr"> 278 </span> <span class="muComment"># toggle display of subsidiary stack</span> -<span id="L279" class="LineNr"> 279 </span> <a href='environment.mu.html#L906'>toggle-cursor-word</a> <a href='data.mu.html#L1'>sandbox</a> -<span id="L280" class="LineNr"> 280 </span> <span class="PreProc">return</span> -<span id="L281" class="LineNr"> 281 </span> <span class="Delimiter">}</span> -<span id="L282" class="LineNr"> 282 </span> compare key, <span class="Constant">0xc</span> <span class="muComment"># ctrl-l</span> -<span id="L283" class="LineNr"> 283 </span> $process-sandbox-edit:new-line: <span class="Delimiter">{</span> -<span id="L284" class="LineNr"> 284 </span> <span class="PreProc">break-if-!=</span> -<span id="L285" class="LineNr"> 285 </span> <span class="muComment"># new line in sandbox</span> -<span id="L286" class="LineNr"> 286 </span> <a href='environment.mu.html#L932'>append-line</a> <a href='data.mu.html#L1'>sandbox</a> -<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">return</span> -<span id="L288" class="LineNr"> 288 </span> <span class="Delimiter">}</span> -<span id="L289" class="LineNr"> 289 </span> <span class="muComment"># word-based motions</span> -<span id="L290" class="LineNr"> 290 </span> compare key, <span class="Constant">2</span> <span class="muComment"># ctrl-b</span> -<span id="L291" class="LineNr"> 291 </span> $process-sandbox-edit:prev-word: <span class="Delimiter">{</span> -<span id="L292" class="LineNr"> 292 </span> <span class="PreProc">break-if-!=</span> -<span id="L293" class="LineNr"> 293 </span> <span class="muComment"># jump to previous word at same level</span> -<span id="L294" class="LineNr"> 294 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, prev -<span id="L295" class="LineNr"> 295 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah -<span id="L296" class="LineNr"> 296 </span> <span class="Delimiter">{</span> -<span id="L297" class="LineNr"> 297 </span> compare prev-word, <span class="Constant">0</span> -<span id="L298" class="LineNr"> 298 </span> <span class="PreProc">break-if-=</span> -<span id="L299" class="LineNr"> 299 </span> <a href='word.mu.html#L207'>cursor-to-end</a> prev-word -<span id="L300" class="LineNr"> 300 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L301" class="LineNr"> 301 </span> <a href='data.mu.html#L441'>decrement-final-element</a> cursor-call-path -<span id="L302" class="LineNr"> 302 </span> <span class="PreProc">return</span> -<span id="L303" class="LineNr"> 303 </span> <span class="Delimiter">}</span> -<span id="L304" class="LineNr"> 304 </span> <span class="muComment"># if previous word doesn't exist, try to bump up one level</span> -<span id="L305" class="LineNr"> 305 </span> <span class="Delimiter">{</span> -<span id="L306" class="LineNr"> 306 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L307" class="LineNr"> 307 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L308" class="LineNr"> 308 </span> <span class="PreProc">var</span> caller-cursor-element-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, next -<span id="L309" class="LineNr"> 309 </span> <span class="PreProc">var</span> caller-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *caller-cursor-element-ah -<span id="L310" class="LineNr"> 310 </span> compare caller-cursor-element, <span class="Constant">0</span> -<span id="L311" class="LineNr"> 311 </span> <span class="PreProc">break-if-=</span> -<span id="L312" class="LineNr"> 312 </span> <span class="muComment"># check if previous word exists in caller</span> -<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">var</span> caller-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> caller-cursor-element, <a href='data.mu.html#L30'>word</a> -<span id="L314" class="LineNr"> 314 </span> <span class="PreProc">var</span> caller-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *caller-word-ah -<span id="L315" class="LineNr"> 315 </span> <span class="PreProc">var</span> word-before-caller-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> caller-word, prev -<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> word-before-caller/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-before-caller-ah -<span id="L317" class="LineNr"> 317 </span> compare word-before-caller, <span class="Constant">0</span> -<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">break-if-=</span> -<span id="L319" class="LineNr"> 319 </span> <span class="muComment"># if so jump to it</span> -<span id="L320" class="LineNr"> 320 </span> <a href='data.mu.html#L506'>drop-from-call-path-element</a> cursor-call-path-ah -<span id="L321" class="LineNr"> 321 </span> <a href='data.mu.html#L441'>decrement-final-element</a> cursor-call-path-ah -<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">return</span> -<span id="L323" class="LineNr"> 323 </span> <span class="Delimiter">}</span> -<span id="L324" class="LineNr"> 324 </span> <span class="Delimiter">}</span> -<span id="L325" class="LineNr"> 325 </span> compare key, <span class="Constant">6</span> <span class="muComment"># ctrl-f</span> -<span id="L326" class="LineNr"> 326 </span> $process-sandbox-edit:<a href='../../127next-word.subx.html#L11'>next-word</a>: <span class="Delimiter">{</span> -<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">break-if-!=</span> -<span id="L328" class="LineNr"> 328 </span><span class="CommentedCode">#? print-string 0, "AA\n"</span> -<span id="L329" class="LineNr"> 329 </span> <span class="muComment"># jump to previous word at same level</span> -<span id="L330" class="LineNr"> 330 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next -<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah -<span id="L332" class="LineNr"> 332 </span> <span class="Delimiter">{</span> -<span id="L333" class="LineNr"> 333 </span> compare <a href='../../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> -<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">break-if-=</span> -<span id="L335" class="LineNr"> 335 </span><span class="CommentedCode">#? print-string 0, "BB\n"</span> -<span id="L336" class="LineNr"> 336 </span> <a href='word.mu.html#L207'>cursor-to-end</a> <a href='../../127next-word.subx.html#L11'>next-word</a> -<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L338" class="LineNr"> 338 </span> <a href='data.mu.html#L429'>increment-final-element</a> cursor-call-path -<span id="L339" class="LineNr"> 339 </span> <span class="PreProc">return</span> -<span id="L340" class="LineNr"> 340 </span> <span class="Delimiter">}</span> -<span id="L341" class="LineNr"> 341 </span> <span class="muComment"># if next word doesn't exist, try to bump up one level</span> -<span id="L342" class="LineNr"> 342 </span><span class="CommentedCode">#? print-string 0, "CC\n"</span> -<span id="L343" class="LineNr"> 343 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> caller-cursor-element-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, next -<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">var</span> caller-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *caller-cursor-element-ah -<span id="L347" class="LineNr"> 347 </span> compare caller-cursor-element, <span class="Constant">0</span> -<span id="L348" class="LineNr"> 348 </span> <span class="PreProc">break-if-=</span> -<span id="L349" class="LineNr"> 349 </span><span class="CommentedCode">#? print-string 0, "DD\n"</span> -<span id="L350" class="LineNr"> 350 </span> copy-object caller-cursor-element-ah, cursor-call-path-ah -<span id="L351" class="LineNr"> 351 </span> <span class="PreProc">return</span> -<span id="L352" class="LineNr"> 352 </span> <span class="Delimiter">}</span> -<span id="L353" class="LineNr"> 353 </span> <span class="muComment"># line-based motions</span> -<span id="L354" class="LineNr"> 354 </span> compare key, <span class="Constant">1</span> <span class="muComment"># ctrl-a</span> -<span id="L355" class="LineNr"> 355 </span> $process-sandbox-edit:start-of-line: <span class="Delimiter">{</span> -<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">break-if-!=</span> -<span id="L357" class="LineNr"> 357 </span> <span class="muComment"># move cursor up past all calls and to start of line</span> -<span id="L358" class="LineNr"> 358 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L359" class="LineNr"> 359 </span> <a href='data.mu.html#L513'>drop-nested-calls</a> cursor-call-path-ah -<span id="L360" class="LineNr"> 360 </span> <a href='data.mu.html#L465'>move-final-element-to-start-of-line</a> cursor-call-path-ah -<span id="L361" class="LineNr"> 361 </span> <span class="muComment"># move cursor to start of word</span> -<span id="L362" class="LineNr"> 362 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L363" class="LineNr"> 363 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L364" class="LineNr"> 364 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L365" class="LineNr"> 365 </span> <a href='word.mu.html#L200'>cursor-to-start</a> cursor-word -<span id="L366" class="LineNr"> 366 </span> <span class="muComment"># this works as long as the first word isn't expanded</span> -<span id="L367" class="LineNr"> 367 </span> <span class="muComment"># but we don't expect to see zero-arg functions first-up</span> -<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">return</span> -<span id="L369" class="LineNr"> 369 </span> <span class="Delimiter">}</span> -<span id="L370" class="LineNr"> 370 </span> compare key, <span class="Constant">5</span> <span class="muComment"># ctrl-e</span> -<span id="L371" class="LineNr"> 371 </span> $process-sandbox-edit:end-of-line: <span class="Delimiter">{</span> -<span id="L372" class="LineNr"> 372 </span> <span class="PreProc">break-if-!=</span> -<span id="L373" class="LineNr"> 373 </span> <span class="muComment"># move cursor up past all calls and to start of line</span> -<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L375" class="LineNr"> 375 </span> <a href='data.mu.html#L513'>drop-nested-calls</a> cursor-call-path-ah -<span id="L376" class="LineNr"> 376 </span> <a href='data.mu.html#L478'>move-final-element-to-end-of-line</a> cursor-call-path-ah -<span id="L377" class="LineNr"> 377 </span> <span class="muComment"># move cursor to end of word</span> -<span id="L378" class="LineNr"> 378 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L381" class="LineNr"> 381 </span> <a href='word.mu.html#L207'>cursor-to-end</a> cursor-word -<span id="L382" class="LineNr"> 382 </span> <span class="muComment"># this works because expanded words lie to the right of their bodies</span> -<span id="L383" class="LineNr"> 383 </span> <span class="muComment"># so the final word is always guaranteed to be at the top-level</span> -<span id="L384" class="LineNr"> 384 </span> <span class="PreProc">return</span> -<span id="L385" class="LineNr"> 385 </span> <span class="Delimiter">}</span> -<span id="L386" class="LineNr"> 386 </span> compare key, <span class="Constant">0x15</span> <span class="muComment"># ctrl-u</span> -<span id="L387" class="LineNr"> 387 </span> $process-sandbox-edit:clear-line: <span class="Delimiter">{</span> -<span id="L388" class="LineNr"> 388 </span> <span class="PreProc">break-if-!=</span> -<span id="L389" class="LineNr"> 389 </span> <span class="muComment"># clear line in sandbox</span> -<span id="L390" class="LineNr"> 390 </span> <a href='data.mu.html#L75'>initialize-sandbox</a> <a href='data.mu.html#L1'>sandbox</a> -<span id="L391" class="LineNr"> 391 </span> <span class="PreProc">return</span> -<span id="L392" class="LineNr"> 392 </span> <span class="Delimiter">}</span> -<span id="L393" class="LineNr"> 393 </span> <span class="muComment"># if cursor is within a call, disable editing hotkeys below</span> -<span id="L394" class="LineNr"> 394 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L395" class="LineNr"> 395 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L396" class="LineNr"> 396 </span> <span class="PreProc">var</span> next-cursor-element-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, next -<span id="L397" class="LineNr"> 397 </span> <span class="PreProc">var</span> next-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-cursor-element-ah -<span id="L398" class="LineNr"> 398 </span> compare next-cursor-element, <span class="Constant">0</span> -<span id="L399" class="LineNr"> 399 </span> <span class="Delimiter">{</span> -<span id="L400" class="LineNr"> 400 </span> <span class="PreProc">break-if-=</span> -<span id="L401" class="LineNr"> 401 </span> <span class="PreProc">return</span> -<span id="L402" class="LineNr"> 402 </span> <span class="Delimiter">}</span> -<span id="L403" class="LineNr"> 403 </span> <span class="muComment"># - remaining keys only work at the top row outside any function calls</span> -<span id="L404" class="LineNr"> 404 </span> compare key, <span class="Constant">0x7f</span> <span class="muComment"># del (backspace on Macs)</span> -<span id="L405" class="LineNr"> 405 </span> $process-sandbox-edit:backspace: <span class="Delimiter">{</span> -<span id="L406" class="LineNr"> 406 </span> <span class="PreProc">break-if-!=</span> -<span id="L407" class="LineNr"> 407 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> -<span id="L408" class="LineNr"> 408 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L170'>cursor-at-start?</a> cursor-word -<span id="L409" class="LineNr"> 409 </span> compare at-start?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L410" class="LineNr"> 410 </span> <span class="Delimiter">{</span> -<span id="L411" class="LineNr"> 411 </span> <span class="PreProc">break-if-!=</span> -<span id="L412" class="LineNr"> 412 </span> <a href='word.mu.html#L222'>delete-before-cursor</a> cursor-word -<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">return</span> -<span id="L414" class="LineNr"> 414 </span> <span class="Delimiter">}</span> -<span id="L415" class="LineNr"> 415 </span> <span class="muComment"># otherwise delete current word and move to end of prev word</span> -<span id="L416" class="LineNr"> 416 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, prev -<span id="L417" class="LineNr"> 417 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah -<span id="L418" class="LineNr"> 418 </span> <span class="Delimiter">{</span> -<span id="L419" class="LineNr"> 419 </span> compare prev-word, <span class="Constant">0</span> -<span id="L420" class="LineNr"> 420 </span> <span class="PreProc">break-if-=</span> -<span id="L421" class="LineNr"> 421 </span> <a href='word.mu.html#L207'>cursor-to-end</a> prev-word -<span id="L422" class="LineNr"> 422 </span> <a href='word.mu.html#L237'>delete-next</a> prev-word -<span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L424" class="LineNr"> 424 </span> <a href='data.mu.html#L441'>decrement-final-element</a> cursor-call-path -<span id="L425" class="LineNr"> 425 </span> <span class="Delimiter">}</span> -<span id="L426" class="LineNr"> 426 </span> <span class="PreProc">return</span> -<span id="L427" class="LineNr"> 427 </span> <span class="Delimiter">}</span> -<span id="L428" class="LineNr"> 428 </span> compare key, <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L429" class="LineNr"> 429 </span> $process-sandbox-edit:space: <span class="Delimiter">{</span> -<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">break-if-!=</span> -<span id="L431" class="LineNr"> 431 </span><span class="CommentedCode">#? print-string 0, "space\n"</span> -<span id="L432" class="LineNr"> 432 </span> <span class="muComment"># if cursor is at start of word, insert word before</span> -<span id="L433" class="LineNr"> 433 </span> <span class="Delimiter">{</span> -<span id="L434" class="LineNr"> 434 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L170'>cursor-at-start?</a> cursor-word -<span id="L435" class="LineNr"> 435 </span> compare at-start?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">break-if-=</span> -<span id="L437" class="LineNr"> 437 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, prev -<span id="L438" class="LineNr"> 438 </span> <a href='word.mu.html#L384'>append-word</a> prev-word-ah -<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L440" class="LineNr"> 440 </span> <a href='data.mu.html#L441'>decrement-final-element</a> cursor-call-path -<span id="L441" class="LineNr"> 441 </span> <span class="PreProc">return</span> -<span id="L442" class="LineNr"> 442 </span> <span class="Delimiter">}</span> -<span id="L443" class="LineNr"> 443 </span> <span class="muComment"># if start of word is quote and grapheme before cursor is not, just insert it as usual</span> -<span id="L444" class="LineNr"> 444 </span> <span class="muComment"># TODO: support string escaping</span> -<span id="L445" class="LineNr"> 445 </span> <span class="Delimiter">{</span> -<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">var</span> <a href='word.mu.html#L147'>first-grapheme</a>/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='word.mu.html#L147'>first-grapheme</a> cursor-word -<span id="L447" class="LineNr"> 447 </span> compare <a href='word.mu.html#L147'>first-grapheme</a>, <span class="Constant">0x22</span> <span class="muComment"># double quote</span> -<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">break-if-!=</span> -<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">var</span> final-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='word.mu.html#L155'>grapheme-before-cursor</a> cursor-word -<span id="L450" class="LineNr"> 450 </span> compare final-grapheme, <span class="Constant">0x22</span> <span class="muComment"># double quote</span> -<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">break-if-=</span> -<span id="L452" class="LineNr"> 452 </span> <span class="PreProc">break</span> $process-sandbox-edit:space -<span id="L453" class="LineNr"> 453 </span> <span class="Delimiter">}</span> -<span id="L454" class="LineNr"> 454 </span> <span class="muComment"># if start of word is '[' and grapheme before cursor is not ']', just insert it as usual</span> -<span id="L455" class="LineNr"> 455 </span> <span class="muComment"># TODO: support nested arrays</span> -<span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">{</span> -<span id="L457" class="LineNr"> 457 </span> <span class="PreProc">var</span> <a href='word.mu.html#L147'>first-grapheme</a>/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='word.mu.html#L147'>first-grapheme</a> cursor-word -<span id="L458" class="LineNr"> 458 </span> compare <a href='word.mu.html#L147'>first-grapheme</a>, <span class="Constant">0x5b</span> <span class="muComment"># '['</span> -<span id="L459" class="LineNr"> 459 </span> <span class="PreProc">break-if-!=</span> -<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">var</span> final-grapheme/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='word.mu.html#L155'>grapheme-before-cursor</a> cursor-word -<span id="L461" class="LineNr"> 461 </span> compare final-grapheme, <span class="Constant">0x5d</span> <span class="muComment"># ']'</span> -<span id="L462" class="LineNr"> 462 </span> <span class="PreProc">break-if-=</span> -<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">break</span> $process-sandbox-edit:space -<span id="L464" class="LineNr"> 464 </span> <span class="Delimiter">}</span> -<span id="L465" class="LineNr"> 465 </span> <span class="muComment"># otherwise insert word after and move cursor to it for the next key</span> -<span id="L466" class="LineNr"> 466 </span> <span class="muComment"># (but we'll continue to track the current cursor-word for the rest of this function)</span> -<span id="L467" class="LineNr"> 467 </span> <a href='word.mu.html#L384'>append-word</a> cursor-word-ah -<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L469" class="LineNr"> 469 </span> <a href='data.mu.html#L429'>increment-final-element</a> cursor-call-path -<span id="L470" class="LineNr"> 470 </span> <span class="muComment"># if cursor is at end of word, that's all</span> -<span id="L471" class="LineNr"> 471 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L178'>cursor-at-end?</a> cursor-word -<span id="L472" class="LineNr"> 472 </span> compare at-end?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L473" class="LineNr"> 473 </span> <span class="Delimiter">{</span> -<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">break-if-=</span> -<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">return</span> -<span id="L476" class="LineNr"> 476 </span> <span class="Delimiter">}</span> -<span id="L477" class="LineNr"> 477 </span> <span class="muComment"># otherwise we're in the middle of a word</span> -<span id="L478" class="LineNr"> 478 </span> <span class="muComment"># move everything after cursor to the (just created) next word</span> -<span id="L479" class="LineNr"> 479 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next -<span id="L480" class="LineNr"> 480 </span> <span class="PreProc">var</span> _next-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah -<span id="L481" class="LineNr"> 481 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _next-word -<span id="L482" class="LineNr"> 482 </span> <span class="Delimiter">{</span> -<span id="L483" class="LineNr"> 483 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L178'>cursor-at-end?</a> cursor-word -<span id="L484" class="LineNr"> 484 </span> compare at-end?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L485" class="LineNr"> 485 </span> <span class="PreProc">break-if-!=</span> -<span id="L486" class="LineNr"> 486 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='word.mu.html#L229'>pop-after-cursor</a> cursor-word -<span id="L487" class="LineNr"> 487 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> <a href='../../127next-word.subx.html#L11'>next-word</a>, g -<span id="L488" class="LineNr"> 488 </span> <span class="PreProc">loop</span> -<span id="L489" class="LineNr"> 489 </span> <span class="Delimiter">}</span> -<span id="L490" class="LineNr"> 490 </span> <a href='word.mu.html#L200'>cursor-to-start</a> <a href='../../127next-word.subx.html#L11'>next-word</a> -<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">return</span> -<span id="L492" class="LineNr"> 492 </span> <span class="Delimiter">}</span> -<span id="L493" class="LineNr"> 493 </span> compare key, <span class="Constant">0xe</span> <span class="muComment"># ctrl-n</span> -<span id="L494" class="LineNr"> 494 </span> $process:rename-word: <span class="Delimiter">{</span> -<span id="L495" class="LineNr"> 495 </span> <span class="PreProc">break-if-!=</span> -<span id="L496" class="LineNr"> 496 </span> <span class="muComment"># TODO: ensure current word is not a function</span> -<span id="L497" class="LineNr"> 497 </span> <span class="muComment"># rename word at cursor</span> -<span id="L498" class="LineNr"> 498 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-cursor-word -<span id="L499" class="LineNr"> 499 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-name-ah -<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L501" class="LineNr"> 501 </span> <a href='word.mu.html#L1'>initialize-word</a> new-name -<span id="L502" class="LineNr"> 502 </span> <span class="PreProc">return</span> -<span id="L503" class="LineNr"> 503 </span> <span class="Delimiter">}</span> -<span id="L504" class="LineNr"> 504 </span> compare key, <span class="Constant">4</span> <span class="muComment"># ctrl-d</span> -<span id="L505" class="LineNr"> 505 </span> $process:define-function: <span class="Delimiter">{</span> -<span id="L506" class="LineNr"> 506 </span> <span class="PreProc">break-if-!=</span> -<span id="L507" class="LineNr"> 507 </span> <span class="muComment"># define function out of line at cursor</span> -<span id="L508" class="LineNr"> 508 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-function -<span id="L509" class="LineNr"> 509 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-name-ah -<span id="L510" class="LineNr"> 510 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L511" class="LineNr"> 511 </span> <a href='word.mu.html#L1'>initialize-word</a> new-name -<span id="L512" class="LineNr"> 512 </span> <span class="PreProc">return</span> -<span id="L513" class="LineNr"> 513 </span> <span class="Delimiter">}</span> -<span id="L514" class="LineNr"> 514 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L515" class="LineNr"> 515 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy key -<span id="L516" class="LineNr"> 516 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1646'>real-grapheme?</a> key -<span id="L517" class="LineNr"> 517 </span> $process-sandbox-edit:real-grapheme: <span class="Delimiter">{</span> -<span id="L518" class="LineNr"> 518 </span> compare print?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L519" class="LineNr"> 519 </span> <span class="PreProc">break-if-=</span> -<span id="L520" class="LineNr"> 520 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> cursor-word, g -<span id="L521" class="LineNr"> 521 </span> <span class="PreProc">return</span> -<span id="L522" class="LineNr"> 522 </span> <span class="Delimiter">}</span> -<span id="L523" class="LineNr"> 523 </span> <span class="muComment"># silently ignore other hotkeys</span> -<span id="L524" class="LineNr"> 524 </span><span class="Delimiter">}</span> -<span id="L525" class="LineNr"> 525 </span> -<span id="L526" class="LineNr"> 526 </span><span class="muComment"># collect new name in partial-name-for-cursor-word, and then rename the word</span> -<span id="L527" class="LineNr"> 527 </span><span class="muComment"># at cursor to it</span> -<span id="L528" class="LineNr"> 528 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> -<span id="L529" class="LineNr"> 529 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L529'>process-sandbox-rename</a></span> _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> -<span id="L530" class="LineNr"> 530 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-cursor-word -<span id="L532" class="LineNr"> 532 </span> <span class="muComment"># if 'esc' pressed, cancel rename</span> -<span id="L533" class="LineNr"> 533 </span> compare key, <span class="Constant">0x1b</span> <span class="muComment"># esc</span> -<span id="L534" class="LineNr"> 534 </span> $process-sandbox-rename:cancel: <span class="Delimiter">{</span> -<span id="L535" class="LineNr"> 535 </span> <span class="PreProc">break-if-!=</span> -<span id="L536" class="LineNr"> 536 </span> clear-object new-name-ah -<span id="L537" class="LineNr"> 537 </span> <span class="PreProc">return</span> -<span id="L538" class="LineNr"> 538 </span> <span class="Delimiter">}</span> -<span id="L539" class="LineNr"> 539 </span> <span class="muComment"># if 'enter' pressed, perform rename</span> -<span id="L540" class="LineNr"> 540 </span> compare key, <span class="Constant">0xa</span> <span class="muComment"># enter</span> -<span id="L541" class="LineNr"> 541 </span> $process-sandbox-rename:commit: <span class="Delimiter">{</span> -<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">break-if-!=</span> -<span id="L543" class="LineNr"> 543 </span><span class="CommentedCode">#? print-string 0, "rename\n"</span> -<span id="L544" class="LineNr"> 544 </span> <span class="muComment"># new line</span> -<span id="L545" class="LineNr"> 545 </span> <span class="PreProc">var</span> new-line-h: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L546" class="LineNr"> 546 </span> <span class="PreProc">var</span> new-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> address new-line-h -<span id="L547" class="LineNr"> 547 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-line-ah -<span id="L548" class="LineNr"> 548 </span> <span class="PreProc">var</span> new-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-line-ah -<span id="L549" class="LineNr"> 549 </span> <a href='data.mu.html#L90'>initialize-line</a> new-line -<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> new-line-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-line, data -<span id="L551" class="LineNr"> 551 </span> <span class="Delimiter">{</span> -<span id="L552" class="LineNr"> 552 </span> <span class="muComment"># move word at cursor to new line</span> -<span id="L553" class="LineNr"> 553 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">var</span> cursor/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-ah -<span id="L555" class="LineNr"> 555 </span> <span class="PreProc">var</span> word-at-cursor-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor, <a href='data.mu.html#L30'>word</a> -<span id="L556" class="LineNr"> 556 </span><span class="CommentedCode">#? print-string 0, "cursor before at word "</span> -<span id="L557" class="LineNr"> 557 </span><span class="CommentedCode">#? {</span> -<span id="L558" class="LineNr"> 558 </span><span class="CommentedCode">#? var cursor-word/eax: (addr word) <- lookup *word-at-cursor-ah</span> -<span id="L559" class="LineNr"> 559 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> -<span id="L560" class="LineNr"> 560 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L561" class="LineNr"> 561 </span><span class="CommentedCode">#? }</span> -<span id="L562" class="LineNr"> 562 </span> <a href='word.mu.html#L51'>move-word-contents</a> word-at-cursor-ah, new-line-word-ah -<span id="L563" class="LineNr"> 563 </span> <span class="muComment"># copy name to word at cursor</span> -<span id="L564" class="LineNr"> 564 </span> <a href='word.mu.html#L74'>copy-word-contents-before-cursor</a> new-name-ah, word-at-cursor-ah -<span id="L565" class="LineNr"> 565 </span><span class="CommentedCode">#? print-string 0, "cursor after at word "</span> -<span id="L566" class="LineNr"> 566 </span><span class="CommentedCode">#? {</span> -<span id="L567" class="LineNr"> 567 </span><span class="CommentedCode">#? var cursor-word/eax: (addr word) <- lookup *word-at-cursor-ah</span> -<span id="L568" class="LineNr"> 568 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> -<span id="L569" class="LineNr"> 569 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L570" class="LineNr"> 570 </span><span class="CommentedCode">#? var foo/eax: int <- copy cursor-word</span> -<span id="L571" class="LineNr"> 571 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L572" class="LineNr"> 572 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L573" class="LineNr"> 573 </span><span class="CommentedCode">#? }</span> -<span id="L574" class="LineNr"> 574 </span><span class="CommentedCode">#? print-string 0, "new name word "</span> -<span id="L575" class="LineNr"> 575 </span><span class="CommentedCode">#? {</span> -<span id="L576" class="LineNr"> 576 </span><span class="CommentedCode">#? var new-name/eax: (addr word) <- lookup *new-name-ah</span> -<span id="L577" class="LineNr"> 577 </span><span class="CommentedCode">#? print-word 0, new-name</span> -<span id="L578" class="LineNr"> 578 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L579" class="LineNr"> 579 </span><span class="CommentedCode">#? var foo/eax: int <- copy new-name</span> -<span id="L580" class="LineNr"> 580 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L581" class="LineNr"> 581 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L582" class="LineNr"> 582 </span><span class="CommentedCode">#? }</span> -<span id="L583" class="LineNr"> 583 </span> <span class="Delimiter">}</span> -<span id="L584" class="LineNr"> 584 </span> <span class="muComment"># prepend '=' to name</span> -<span id="L585" class="LineNr"> 585 </span> <span class="Delimiter">{</span> -<span id="L586" class="LineNr"> 586 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L587" class="LineNr"> 587 </span> <a href='word.mu.html#L200'>cursor-to-start</a> new-name -<span id="L588" class="LineNr"> 588 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> new-name, <span class="Constant">0x3d</span> <span class="muComment"># '='</span> -<span id="L589" class="LineNr"> 589 </span> <span class="Delimiter">}</span> -<span id="L590" class="LineNr"> 590 </span> <span class="muComment"># append name to new line</span> -<span id="L591" class="LineNr"> 591 </span> <a href='word.mu.html#L487'>chain-words</a> new-line-word-ah, new-name-ah -<span id="L592" class="LineNr"> 592 </span> <span class="muComment"># new-line->next = sandbox->data</span> -<span id="L593" class="LineNr"> 593 </span> <span class="PreProc">var</span> new-line-next/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-line, next -<span id="L594" class="LineNr"> 594 </span> <span class="PreProc">var</span> sandbox-slot/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L595" class="LineNr"> 595 </span> copy-object sandbox-slot, new-line-next -<span id="L596" class="LineNr"> 596 </span> <span class="muComment"># sandbox->data = new-line</span> -<span id="L597" class="LineNr"> 597 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> new-line-h, sandbox-slot -<span id="L598" class="LineNr"> 598 </span> <span class="muComment"># clear partial-name-for-cursor-word</span> -<span id="L599" class="LineNr"> 599 </span> clear-object new-name-ah -<span id="L600" class="LineNr"> 600 </span><span class="CommentedCode">#? var cursor-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path</span> -<span id="L601" class="LineNr"> 601 </span><span class="CommentedCode">#? var cursor/eax: (addr call-path-element) <- lookup *cursor-ah</span> -<span id="L602" class="LineNr"> 602 </span><span class="CommentedCode">#? var word-at-cursor-ah/eax: (addr handle word) <- get cursor, word</span> -<span id="L603" class="LineNr"> 603 </span><span class="CommentedCode">#? print-string 0, "cursor after rename: "</span> -<span id="L604" class="LineNr"> 604 </span><span class="CommentedCode">#? {</span> -<span id="L605" class="LineNr"> 605 </span><span class="CommentedCode">#? var cursor-word/eax: (addr word) <- lookup *word-at-cursor-ah</span> -<span id="L606" class="LineNr"> 606 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> -<span id="L607" class="LineNr"> 607 </span><span class="CommentedCode">#? print-string 0, " -- "</span> -<span id="L608" class="LineNr"> 608 </span><span class="CommentedCode">#? var foo/eax: int <- copy cursor-word</span> -<span id="L609" class="LineNr"> 609 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L610" class="LineNr"> 610 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L611" class="LineNr"> 611 </span><span class="CommentedCode">#? }</span> -<span id="L612" class="LineNr"> 612 </span> <span class="PreProc">return</span> -<span id="L613" class="LineNr"> 613 </span> <span class="Delimiter">}</span> -<span id="L614" class="LineNr"> 614 </span> <span class="muComment">#</span> -<span id="L615" class="LineNr"> 615 </span> compare key, <span class="Constant">0x7f</span> <span class="muComment"># del (backspace on Macs)</span> -<span id="L616" class="LineNr"> 616 </span> $process-sandbox-rename:backspace: <span class="Delimiter">{</span> -<span id="L617" class="LineNr"> 617 </span> <span class="PreProc">break-if-!=</span> -<span id="L618" class="LineNr"> 618 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> -<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L620" class="LineNr"> 620 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L170'>cursor-at-start?</a> new-name -<span id="L621" class="LineNr"> 621 </span> compare at-start?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L622" class="LineNr"> 622 </span> <span class="Delimiter">{</span> -<span id="L623" class="LineNr"> 623 </span> <span class="PreProc">break-if-!=</span> -<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L625" class="LineNr"> 625 </span> <a href='word.mu.html#L222'>delete-before-cursor</a> new-name -<span id="L626" class="LineNr"> 626 </span> <span class="Delimiter">}</span> -<span id="L627" class="LineNr"> 627 </span> <span class="PreProc">return</span> -<span id="L628" class="LineNr"> 628 </span> <span class="Delimiter">}</span> -<span id="L629" class="LineNr"> 629 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L630" class="LineNr"> 630 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1646'>real-grapheme?</a> key -<span id="L631" class="LineNr"> 631 </span> $process-sandbox-rename:real-grapheme: <span class="Delimiter">{</span> -<span id="L632" class="LineNr"> 632 </span> compare print?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L633" class="LineNr"> 633 </span> <span class="PreProc">break-if-=</span> -<span id="L634" class="LineNr"> 634 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L635" class="LineNr"> 635 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> new-name, key -<span id="L636" class="LineNr"> 636 </span> <span class="PreProc">return</span> -<span id="L637" class="LineNr"> 637 </span> <span class="Delimiter">}</span> -<span id="L638" class="LineNr"> 638 </span> <span class="muComment"># silently ignore other hotkeys</span> -<span id="L639" class="LineNr"> 639 </span><span class="Delimiter">}</span> -<span id="L640" class="LineNr"> 640 </span> -<span id="L641" class="LineNr"> 641 </span><span class="muComment"># collect new name in partial-name-for-function, and then define the last line</span> -<span id="L642" class="LineNr"> 642 </span><span class="muComment"># of the sandbox to be a new function with that name. Replace the last line</span> -<span id="L643" class="LineNr"> 643 </span><span class="muComment"># with a call to the appropriate function.</span> -<span id="L644" class="LineNr"> 644 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> -<span id="L645" class="LineNr"> 645 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L645'>process-sandbox-define</a></span> _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), functions: (addr handle <a href='data.mu.html#L14'>function</a>), key: grapheme <span class="Delimiter">{</span> -<span id="L646" class="LineNr"> 646 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L647" class="LineNr"> 647 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-function -<span id="L648" class="LineNr"> 648 </span> <span class="muComment"># if 'esc' pressed, cancel define</span> -<span id="L649" class="LineNr"> 649 </span> compare key, <span class="Constant">0x1b</span> <span class="muComment"># esc</span> -<span id="L650" class="LineNr"> 650 </span> $process-sandbox-define:cancel: <span class="Delimiter">{</span> -<span id="L651" class="LineNr"> 651 </span> <span class="PreProc">break-if-!=</span> -<span id="L652" class="LineNr"> 652 </span> clear-object new-name-ah -<span id="L653" class="LineNr"> 653 </span> <span class="PreProc">return</span> -<span id="L654" class="LineNr"> 654 </span> <span class="Delimiter">}</span> -<span id="L655" class="LineNr"> 655 </span> <span class="muComment"># if 'enter' pressed, perform define</span> -<span id="L656" class="LineNr"> 656 </span> compare key, <span class="Constant">0xa</span> <span class="muComment"># enter</span> -<span id="L657" class="LineNr"> 657 </span> $process-sandbox-define:commit: <span class="Delimiter">{</span> -<span id="L658" class="LineNr"> 658 </span> <span class="PreProc">break-if-!=</span> -<span id="L659" class="LineNr"> 659 </span><span class="CommentedCode">#? print-string 0, "define\n"</span> -<span id="L660" class="LineNr"> 660 </span> <span class="muComment"># create new function</span> -<span id="L661" class="LineNr"> 661 </span> <span class="PreProc">var</span> new-function: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L662" class="LineNr"> 662 </span> <span class="PreProc">var</span> new-function-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> address new-function -<span id="L663" class="LineNr"> 663 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-function-ah -<span id="L664" class="LineNr"> 664 </span> <span class="PreProc">var</span> _new-function/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-function-ah -<span id="L665" class="LineNr"> 665 </span> <span class="PreProc">var</span> new-function/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _new-function -<span id="L666" class="LineNr"> 666 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-function, next -<span id="L667" class="LineNr"> 667 </span> copy-object functions, dest -<span id="L668" class="LineNr"> 668 </span> copy-object new-function-ah, functions -<span id="L669" class="LineNr"> 669 </span> <span class="muComment"># set function name to new-name</span> -<span id="L670" class="LineNr"> 670 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L671" class="LineNr"> 671 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-function, name -<span id="L672" class="LineNr"> 672 </span> <a href='word.mu.html#L508'>word-to-string</a> new-name, dest -<span id="L673" class="LineNr"> 673 </span> <span class="muComment"># move final line to body</span> -<span id="L674" class="LineNr"> 674 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-function, body -<span id="L675" class="LineNr"> 675 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> body-ah -<span id="L676" class="LineNr"> 676 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L677" class="LineNr"> 677 </span> <span class="PreProc">var</span> body-contents/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L678" class="LineNr"> 678 </span> <span class="PreProc">var</span> final-line-storage: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L679" class="LineNr"> 679 </span> <span class="PreProc">var</span> final-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> address final-line-storage -<span id="L680" class="LineNr"> 680 </span> <a href='environment.mu.html#L1084'>final-line</a> <a href='data.mu.html#L1'>sandbox</a>, final-line-ah -<span id="L681" class="LineNr"> 681 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1084'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-line-ah -<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">var</span> final-line-contents/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1084'>final-line</a>, data -<span id="L683" class="LineNr"> 683 </span> copy-object final-line-contents, body-contents -<span id="L684" class="LineNr"> 684 </span> <span class="muComment">#</span> -<span id="L685" class="LineNr"> 685 </span> <a href='environment.mu.html#L730'>copy-unbound-words-to-args</a> functions -<span id="L686" class="LineNr"> 686 </span> <span class="muComment">#</span> -<span id="L687" class="LineNr"> 687 </span> <span class="PreProc">var</span> empty-word: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L688" class="LineNr"> 688 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> empty-word, final-line-contents -<span id="L689" class="LineNr"> 689 </span> <a href='environment.mu.html#L877'>construct-call</a> functions, final-line-contents -<span id="L690" class="LineNr"> 690 </span> <span class="muComment"># clear partial-name-for-function</span> -<span id="L691" class="LineNr"> 691 </span> <span class="PreProc">var</span> empty-word: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L692" class="LineNr"> 692 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> empty-word, new-name-ah -<span id="L693" class="LineNr"> 693 </span> <span class="muComment"># update cursor</span> -<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1084'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> final-line-storage -<span id="L695" class="LineNr"> 695 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L696" class="LineNr"> 696 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> cursor-call-path-ah <span class="muComment"># leak</span> -<span id="L697" class="LineNr"> 697 </span> <a href='data.mu.html#L294'>initialize-path-from-line</a> <a href='environment.mu.html#L1084'>final-line</a>, cursor-call-path-ah -<span id="L698" class="LineNr"> 698 </span> <span class="PreProc">return</span> -<span id="L699" class="LineNr"> 699 </span> <span class="Delimiter">}</span> -<span id="L700" class="LineNr"> 700 </span> <span class="muComment">#</span> -<span id="L701" class="LineNr"> 701 </span> compare key, <span class="Constant">0x7f</span> <span class="muComment"># del (backspace on Macs)</span> -<span id="L702" class="LineNr"> 702 </span> $process-sandbox-define:backspace: <span class="Delimiter">{</span> -<span id="L703" class="LineNr"> 703 </span> <span class="PreProc">break-if-!=</span> -<span id="L704" class="LineNr"> 704 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> -<span id="L705" class="LineNr"> 705 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L706" class="LineNr"> 706 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L170'>cursor-at-start?</a> new-name -<span id="L707" class="LineNr"> 707 </span> compare at-start?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L708" class="LineNr"> 708 </span> <span class="Delimiter">{</span> -<span id="L709" class="LineNr"> 709 </span> <span class="PreProc">break-if-!=</span> -<span id="L710" class="LineNr"> 710 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L711" class="LineNr"> 711 </span> <a href='word.mu.html#L222'>delete-before-cursor</a> new-name -<span id="L712" class="LineNr"> 712 </span> <span class="Delimiter">}</span> -<span id="L713" class="LineNr"> 713 </span> <span class="PreProc">return</span> -<span id="L714" class="LineNr"> 714 </span> <span class="Delimiter">}</span> -<span id="L715" class="LineNr"> 715 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L716" class="LineNr"> 716 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1646'>real-grapheme?</a> key -<span id="L717" class="LineNr"> 717 </span> $process-sandbox-define:real-grapheme: <span class="Delimiter">{</span> -<span id="L718" class="LineNr"> 718 </span> compare print?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">break-if-=</span> -<span id="L720" class="LineNr"> 720 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *new-name-ah -<span id="L721" class="LineNr"> 721 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> new-name, key -<span id="L722" class="LineNr"> 722 </span> <span class="PreProc">return</span> -<span id="L723" class="LineNr"> 723 </span> <span class="Delimiter">}</span> -<span id="L724" class="LineNr"> 724 </span> <span class="muComment"># silently ignore other hotkeys</span> -<span id="L725" class="LineNr"> 725 </span><span class="Delimiter">}</span> -<span id="L726" class="LineNr"> 726 </span> -<span id="L727" class="LineNr"> 727 </span><span class="muComment"># extract from the body of the first function in 'functions' all words that</span> -<span id="L728" class="LineNr"> 728 </span><span class="muComment"># aren't defined in the rest of 'functions'. Prepend them in reverse order.</span> -<span id="L729" class="LineNr"> 729 </span><span class="muComment"># Assumes function body is a single line for now.</span> -<span id="L730" class="LineNr"> 730 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L730'>copy-unbound-words-to-args</a></span> _functions: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="Delimiter">{</span> -<span id="L731" class="LineNr"> 731 </span> <span class="muComment"># target</span> -<span id="L732" class="LineNr"> 732 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _functions -<span id="L733" class="LineNr"> 733 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target-ah -<span id="L734" class="LineNr"> 734 </span> <span class="PreProc">var</span> target/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _target -<span id="L735" class="LineNr"> 735 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, args -<span id="L736" class="LineNr"> 736 </span> <span class="muComment"># next</span> -<span id="L737" class="LineNr"> 737 </span> <span class="PreProc">var</span> functions-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, next -<span id="L738" class="LineNr"> 738 </span> <span class="muComment"># src</span> -<span id="L739" class="LineNr"> 739 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, body -<span id="L740" class="LineNr"> 740 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah -<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L742" class="LineNr"> 742 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L743" class="LineNr"> 743 </span> <span class="Delimiter">{</span> -<span id="L744" class="LineNr"> 744 </span> compare curr, <span class="Constant">0</span> -<span id="L745" class="LineNr"> 745 </span> <span class="PreProc">break-if-=</span> -<span id="L746" class="LineNr"> 746 </span> $copy-unbound-words-to-args:loop-iter: <span class="Delimiter">{</span> -<span id="L747" class="LineNr"> 747 </span> <span class="muComment"># is it a number?</span> -<span id="L748" class="LineNr"> 748 </span> <span class="Delimiter">{</span> -<span id="L749" class="LineNr"> 749 </span> <span class="PreProc">var</span> is-int?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L515'>word-is-decimal-integer?</a> curr -<span id="L750" class="LineNr"> 750 </span> compare is-int?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L751" class="LineNr"> 751 </span> <span class="PreProc">break-if-!=</span> $copy-unbound-words-to-args:loop-iter -<span id="L752" class="LineNr"> 752 </span> <span class="Delimiter">}</span> -<span id="L753" class="LineNr"> 753 </span> <span class="muComment"># is it a pre-existing function?</span> -<span id="L754" class="LineNr"> 754 </span> <span class="PreProc">var</span> bound?/<span class="Constant">ebx</span>: boolean <span class="SpecialChar"><-</span> <a href='environment.mu.html#L774'>bound-function?</a> curr, functions-ah -<span id="L755" class="LineNr"> 755 </span> compare bound?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L756" class="LineNr"> 756 </span> <span class="PreProc">break-if-!=</span> -<span id="L757" class="LineNr"> 757 </span> <span class="muComment"># is it already bound as an arg?</span> -<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">var</span> dup?/<span class="Constant">ebx</span>: boolean <span class="SpecialChar"><-</span> <a href='environment.mu.html#L868'>arg-exists?</a> _functions, curr <span class="muComment"># _functions = target-ah</span> -<span id="L759" class="LineNr"> 759 </span> compare dup?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">break-if-!=</span> $copy-unbound-words-to-args:loop-iter -<span id="L761" class="LineNr"> 761 </span> <span class="muComment"># push copy of curr before dest-ah</span> -<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">var</span> rest-h: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address rest-h -<span id="L764" class="LineNr"> 764 </span> copy-object dest-ah, rest-ah -<span id="L765" class="LineNr"> 765 </span> <a href='word.mu.html#L371'>copy-word</a> curr, dest-ah -<span id="L766" class="LineNr"> 766 </span> <a href='word.mu.html#L487'>chain-words</a> dest-ah, rest-ah -<span id="L767" class="LineNr"> 767 </span> <span class="Delimiter">}</span> -<span id="L768" class="LineNr"> 768 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L769" class="LineNr"> 769 </span> curr <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L770" class="LineNr"> 770 </span> <span class="PreProc">loop</span> -<span id="L771" class="LineNr"> 771 </span> <span class="Delimiter">}</span> -<span id="L772" class="LineNr"> 772 </span><span class="Delimiter">}</span> -<span id="L773" class="LineNr"> 773 </span> -<span id="L774" class="LineNr"> 774 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L774'>bound-function?</a></span> w: (addr <a href='data.mu.html#L30'>word</a>), functions-ah: (addr handle <a href='data.mu.html#L14'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: boolean <span class="Delimiter">{</span> -<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ebx</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L776" class="LineNr"> 776 </span> <span class="Delimiter">{</span> -<span id="L777" class="LineNr"> 777 </span> <span class="muComment">## numbers</span> -<span id="L778" class="LineNr"> 778 </span> <span class="muComment"># if w == "+" return true</span> -<span id="L779" class="LineNr"> 779 </span> <span class="PreProc">var</span> subresult/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"+"</span> -<span id="L780" class="LineNr"> 780 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L781" class="LineNr"> 781 </span> <span class="PreProc">break-if-!=</span> -<span id="L782" class="LineNr"> 782 </span> <span class="muComment"># if w == "-" return true</span> -<span id="L783" class="LineNr"> 783 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"-"</span> -<span id="L784" class="LineNr"> 784 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">break-if-!=</span> -<span id="L786" class="LineNr"> 786 </span> <span class="muComment"># if w == "*" return true</span> -<span id="L787" class="LineNr"> 787 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"*"</span> -<span id="L788" class="LineNr"> 788 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L789" class="LineNr"> 789 </span> <span class="PreProc">break-if-!=</span> -<span id="L790" class="LineNr"> 790 </span> <span class="muComment"># if w == "/" return true</span> -<span id="L791" class="LineNr"> 791 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"/"</span> -<span id="L792" class="LineNr"> 792 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">break-if-!=</span> -<span id="L794" class="LineNr"> 794 </span> <span class="muComment"># if w == "sqrt" return true</span> -<span id="L795" class="LineNr"> 795 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"sqrt"</span> -<span id="L796" class="LineNr"> 796 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L797" class="LineNr"> 797 </span> <span class="PreProc">break-if-!=</span> -<span id="L798" class="LineNr"> 798 </span> <span class="muComment">## strings/arrays</span> -<span id="L799" class="LineNr"> 799 </span> <span class="muComment"># if w == "len" return true</span> -<span id="L800" class="LineNr"> 800 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"len"</span> -<span id="L801" class="LineNr"> 801 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L802" class="LineNr"> 802 </span> <span class="PreProc">break-if-!=</span> -<span id="L803" class="LineNr"> 803 </span> <span class="muComment">## files</span> -<span id="L804" class="LineNr"> 804 </span> <span class="muComment"># if w == "open" return true</span> -<span id="L805" class="LineNr"> 805 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"open"</span> -<span id="L806" class="LineNr"> 806 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L807" class="LineNr"> 807 </span> <span class="PreProc">break-if-!=</span> -<span id="L808" class="LineNr"> 808 </span> <span class="muComment"># if w == "read" return true</span> -<span id="L809" class="LineNr"> 809 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"read"</span> -<span id="L810" class="LineNr"> 810 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L811" class="LineNr"> 811 </span> <span class="PreProc">break-if-!=</span> -<span id="L812" class="LineNr"> 812 </span> <span class="muComment"># if w == "slurp" return true</span> -<span id="L813" class="LineNr"> 813 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"slurp"</span> -<span id="L814" class="LineNr"> 814 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L815" class="LineNr"> 815 </span> <span class="PreProc">break-if-!=</span> -<span id="L816" class="LineNr"> 816 </span> <span class="muComment"># if w == "lines" return true</span> -<span id="L817" class="LineNr"> 817 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"lines"</span> -<span id="L818" class="LineNr"> 818 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L819" class="LineNr"> 819 </span> <span class="PreProc">break-if-!=</span> -<span id="L820" class="LineNr"> 820 </span> <span class="muComment">## screens</span> -<span id="L821" class="LineNr"> 821 </span> <span class="muComment"># if w == "fake-screen" return true</span> -<span id="L822" class="LineNr"> 822 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"fake-screen"</span> -<span id="L823" class="LineNr"> 823 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L824" class="LineNr"> 824 </span> <span class="PreProc">break-if-!=</span> -<span id="L825" class="LineNr"> 825 </span> <span class="muComment"># if w == "print" return true</span> -<span id="L826" class="LineNr"> 826 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"print"</span> -<span id="L827" class="LineNr"> 827 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">break-if-!=</span> -<span id="L829" class="LineNr"> 829 </span> <span class="muComment"># if w == "move" return true</span> -<span id="L830" class="LineNr"> 830 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"move"</span> -<span id="L831" class="LineNr"> 831 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L832" class="LineNr"> 832 </span> <span class="PreProc">break-if-!=</span> -<span id="L833" class="LineNr"> 833 </span> <span class="muComment"># if w == "up" return true</span> -<span id="L834" class="LineNr"> 834 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"up"</span> -<span id="L835" class="LineNr"> 835 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L836" class="LineNr"> 836 </span> <span class="PreProc">break-if-!=</span> -<span id="L837" class="LineNr"> 837 </span> <span class="muComment"># if w == "down" return true</span> -<span id="L838" class="LineNr"> 838 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"down"</span> -<span id="L839" class="LineNr"> 839 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L840" class="LineNr"> 840 </span> <span class="PreProc">break-if-!=</span> -<span id="L841" class="LineNr"> 841 </span> <span class="muComment"># if w == "left" return true</span> -<span id="L842" class="LineNr"> 842 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"left"</span> -<span id="L843" class="LineNr"> 843 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L844" class="LineNr"> 844 </span> <span class="PreProc">break-if-!=</span> -<span id="L845" class="LineNr"> 845 </span> <span class="muComment"># if w == "right" return true</span> -<span id="L846" class="LineNr"> 846 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"right"</span> -<span id="L847" class="LineNr"> 847 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L848" class="LineNr"> 848 </span> <span class="PreProc">break-if-!=</span> -<span id="L849" class="LineNr"> 849 </span> <span class="muComment">## hacks</span> -<span id="L850" class="LineNr"> 850 </span> <span class="muComment"># if w == "dup" return true</span> -<span id="L851" class="LineNr"> 851 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"dup"</span> -<span id="L852" class="LineNr"> 852 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L853" class="LineNr"> 853 </span> <span class="PreProc">break-if-!=</span> -<span id="L854" class="LineNr"> 854 </span> <span class="muComment"># if w == "swap" return true</span> -<span id="L855" class="LineNr"> 855 </span> subresult <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"swap"</span> -<span id="L856" class="LineNr"> 856 </span> compare subresult, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L857" class="LineNr"> 857 </span> <span class="PreProc">break-if-!=</span> -<span id="L858" class="LineNr"> 858 </span> <span class="muComment"># return w in functions</span> -<span id="L859" class="LineNr"> 859 </span> <span class="PreProc">var</span> out-h: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L860" class="LineNr"> 860 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> address out-h -<span id="L861" class="LineNr"> 861 </span> <a href='environment.mu.html#L1397'>callee</a> functions-ah, w, out -<span id="L862" class="LineNr"> 862 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out -<span id="L863" class="LineNr"> 863 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> copy found? -<span id="L864" class="LineNr"> 864 </span> <span class="Delimiter">}</span> -<span id="L865" class="LineNr"> 865 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L866" class="LineNr"> 866 </span><span class="Delimiter">}</span> -<span id="L867" class="LineNr"> 867 </span> -<span id="L868" class="LineNr"> 868 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L868'>arg-exists?</a></span> _f-ah: (addr handle <a href='data.mu.html#L14'>function</a>), arg: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: boolean <span class="Delimiter">{</span> -<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f-ah -<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *f-ah -<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L872" class="LineNr"> 872 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ebx</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L524'>word-exists?</a> args-ah, arg -<span id="L873" class="LineNr"> 873 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L874" class="LineNr"> 874 </span><span class="Delimiter">}</span> -<span id="L875" class="LineNr"> 875 </span> -<span id="L876" class="LineNr"> 876 </span><span class="muComment"># construct a call to `f` with copies of exactly its args</span> -<span id="L877" class="LineNr"> 877 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L877'>construct-call</a></span> _f-ah: (addr handle <a href='data.mu.html#L14'>function</a>), _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L878" class="LineNr"> 878 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f-ah -<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *f-ah -<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L881" class="LineNr"> 881 </span> <span class="muComment"># append args in reverse</span> -<span id="L882" class="LineNr"> 882 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L883" class="LineNr"> 883 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L884" class="LineNr"> 884 </span> <a href='word.mu.html#L305'>copy-words-in-reverse</a> args-ah, dest-ah -<span id="L885" class="LineNr"> 885 </span> <span class="muComment"># append name</span> -<span id="L886" class="LineNr"> 886 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L887" class="LineNr"> 887 </span> <span class="PreProc">var</span> name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *name-ah -<span id="L888" class="LineNr"> 888 </span> <a href='word.mu.html#L347'>append-word-at-end-with</a> dest-ah, name -<span id="L889" class="LineNr"> 889 </span><span class="Delimiter">}</span> -<span id="L890" class="LineNr"> 890 </span> -<span id="L891" class="LineNr"> 891 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L891'>word-index</a></span> _words: (addr handle <a href='data.mu.html#L30'>word</a>), _n: int, out: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L892" class="LineNr"> 892 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L893" class="LineNr"> 893 </span> <span class="Delimiter">{</span> -<span id="L894" class="LineNr"> 894 </span> compare n, <span class="Constant">0</span> -<span id="L895" class="LineNr"> 895 </span> <span class="PreProc">break-if-!=</span> -<span id="L896" class="LineNr"> 896 </span> copy-object _words, out -<span id="L897" class="LineNr"> 897 </span> <span class="PreProc">return</span> -<span id="L898" class="LineNr"> 898 </span> <span class="Delimiter">}</span> -<span id="L899" class="LineNr"> 899 </span> <span class="PreProc">var</span> words-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _words -<span id="L900" class="LineNr"> 900 </span> <span class="PreProc">var</span> words/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *words-ah -<span id="L901" class="LineNr"> 901 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> words, next -<span id="L902" class="LineNr"> 902 </span> n <span class="SpecialChar"><-</span> decrement -<span id="L903" class="LineNr"> 903 </span> <a href='environment.mu.html#L891'>word-index</a> next, n, out -<span id="L904" class="LineNr"> 904 </span><span class="Delimiter">}</span> -<span id="L905" class="LineNr"> 905 </span> -<span id="L906" class="LineNr"> 906 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L906'>toggle-cursor-word</a></span> _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="Delimiter">{</span> -<span id="L907" class="LineNr"> 907 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L908" class="LineNr"> 908 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, expanded-words -<span id="L909" class="LineNr"> 909 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L910" class="LineNr"> 910 </span><span class="CommentedCode">#? print-string 0, "cursor call path: "</span> -<span id="L911" class="LineNr"> 911 </span><span class="CommentedCode">#? dump-call-path-element 0, cursor-call-path</span> -<span id="L912" class="LineNr"> 912 </span><span class="CommentedCode">#? print-string 0, "expanded words:\n"</span> -<span id="L913" class="LineNr"> 913 </span><span class="CommentedCode">#? dump-call-paths 0, expanded-words</span> -<span id="L914" class="LineNr"> 914 </span> <span class="PreProc">var</span> already-expanded?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L303'>find-in-call-paths</a> expanded-words, cursor-call-path -<span id="L915" class="LineNr"> 915 </span> compare already-expanded?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L916" class="LineNr"> 916 </span> <span class="Delimiter">{</span> -<span id="L917" class="LineNr"> 917 </span> <span class="PreProc">break-if-!=</span> -<span id="L918" class="LineNr"> 918 </span><span class="CommentedCode">#? print-string 0, "expand\n"</span> -<span id="L919" class="LineNr"> 919 </span> <span class="muComment"># if not already-expanded, insert</span> -<span id="L920" class="LineNr"> 920 </span> <a href='data.mu.html#L370'>insert-in-call-path</a> expanded-words cursor-call-path -<span id="L921" class="LineNr"> 921 </span><span class="CommentedCode">#? print-string 0, "expanded words now:\n"</span> -<span id="L922" class="LineNr"> 922 </span><span class="CommentedCode">#? dump-call-paths 0, expanded-words</span> -<span id="L923" class="LineNr"> 923 </span> <span class="PreProc">return</span> -<span id="L924" class="LineNr"> 924 </span> <span class="Delimiter">}</span> -<span id="L925" class="LineNr"> 925 </span> <span class="Delimiter">{</span> -<span id="L926" class="LineNr"> 926 </span> <span class="PreProc">break-if-=</span> -<span id="L927" class="LineNr"> 927 </span> <span class="muComment"># otherwise delete</span> -<span id="L928" class="LineNr"> 928 </span> <a href='data.mu.html#L406'>delete-in-call-path</a> expanded-words cursor-call-path -<span id="L929" class="LineNr"> 929 </span> <span class="Delimiter">}</span> -<span id="L930" class="LineNr"> 930 </span><span class="Delimiter">}</span> -<span id="L931" class="LineNr"> 931 </span> -<span id="L932" class="LineNr"> 932 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L932'>append-line</a></span> _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="Delimiter">{</span> -<span id="L933" class="LineNr"> 933 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L934" class="LineNr"> 934 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L935" class="LineNr"> 935 </span> <span class="Delimiter">{</span> -<span id="L936" class="LineNr"> 936 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah -<span id="L937" class="LineNr"> 937 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, next -<span id="L938" class="LineNr"> 938 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-line-ah -<span id="L939" class="LineNr"> 939 </span> compare next-line, <span class="Constant">0</span> -<span id="L940" class="LineNr"> 940 </span> <span class="PreProc">break-if-=</span> -<span id="L941" class="LineNr"> 941 </span> line-ah <span class="SpecialChar"><-</span> copy next-line-ah -<span id="L942" class="LineNr"> 942 </span> <span class="PreProc">loop</span> -<span id="L943" class="LineNr"> 943 </span> <span class="Delimiter">}</span> -<span id="L944" class="LineNr"> 944 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah -<span id="L945" class="LineNr"> 945 </span> <span class="PreProc">var</span> final-line-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, next -<span id="L946" class="LineNr"> 946 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> final-line-ah -<span id="L947" class="LineNr"> 947 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1084'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-line-ah -<span id="L948" class="LineNr"> 948 </span> <a href='data.mu.html#L90'>initialize-line</a> <a href='environment.mu.html#L1084'>final-line</a> -<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> final-prev/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1084'>final-line</a>, prev -<span id="L950" class="LineNr"> 950 </span> copy-object line-ah, final-prev -<span id="L951" class="LineNr"> 951 </span> <span class="muComment"># clear cursor</span> -<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1084'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-line-ah -<span id="L953" class="LineNr"> 953 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1084'>final-line</a>, data -<span id="L954" class="LineNr"> 954 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L955" class="LineNr"> 955 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L957" class="LineNr"> 957 </span> copy-object word-ah, dest -<span id="L958" class="LineNr"> 958 </span><span class="Delimiter">}</span> -<span id="L959" class="LineNr"> 959 </span> -<span id="L960" class="LineNr"> 960 </span><span class="muComment">#############</span> -<span id="L961" class="LineNr"> 961 </span><span class="muComment"># Visualize</span> -<span id="L962" class="LineNr"> 962 </span><span class="muComment">#############</span> -<span id="L963" class="LineNr"> 963 </span> -<span id="L964" class="LineNr"> 964 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L964'>evaluate-environment</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>), stack: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Delimiter">{</span> -<span id="L965" class="LineNr"> 965 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env -<span id="L966" class="LineNr"> 966 </span> <span class="muComment"># functions</span> -<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">var</span> functions/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, functions -<span id="L968" class="LineNr"> 968 </span> <span class="muComment"># line</span> -<span id="L969" class="LineNr"> 969 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, sandboxes -<span id="L970" class="LineNr"> 970 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *sandbox-ah -<span id="L971" class="LineNr"> 971 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> _line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *line-ah -<span id="L973" class="LineNr"> 973 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L974" class="LineNr"> 974 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, <span class="Constant">0</span>, <a href='data.mu.html#L22'>line</a>, <span class="Constant">0</span>, stack -<span id="L975" class="LineNr"> 975 </span><span class="Delimiter">}</span> -<span id="L976" class="LineNr"> 976 </span> -<span id="L977" class="LineNr"> 977 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L977'>render</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> -<span id="L978" class="LineNr"> 978 </span><span class="CommentedCode">#? print-string 0, "== render\n"</span> -<span id="L979" class="LineNr"> 979 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env -<span id="L980" class="LineNr"> 980 </span> <a href='environment.mu.html#L1474'>clear-canvas</a> env -<span id="L981" class="LineNr"> 981 </span> <span class="muComment"># screen</span> -<span id="L982" class="LineNr"> 982 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L983" class="LineNr"> 983 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L984" class="LineNr"> 984 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen -<span id="L985" class="LineNr"> 985 </span> <span class="muComment"># repl-col</span> -<span id="L986" class="LineNr"> 986 </span> <span class="PreProc">var</span> _repl-col/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col -<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">var</span> repl-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *_repl-col -<span id="L988" class="LineNr"> 988 </span> repl-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># repl-margin-left</span> -<span id="L989" class="LineNr"> 989 </span> <span class="muComment"># functions</span> -<span id="L990" class="LineNr"> 990 </span> <span class="PreProc">var</span> functions/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, functions -<span id="L991" class="LineNr"> 991 </span> <span class="muComment"># sandbox</span> -<span id="L992" class="LineNr"> 992 </span> <span class="PreProc">var</span> cursor-sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, cursor-sandbox -<span id="L993" class="LineNr"> 993 </span> <span class="PreProc">var</span> cursor-sandbox/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-sandbox-ah -<span id="L994" class="LineNr"> 994 </span> <span class="muComment"># bindings</span> -<span id="L995" class="LineNr"> 995 </span> <span class="PreProc">var</span> bindings-storage: <a href='data.mu.html#L47'>table</a> -<span id="L996" class="LineNr"> 996 </span> <span class="PreProc">var</span> bindings/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> address bindings-storage -<span id="L997" class="LineNr"> 997 </span> <a href='table.mu.html#L1'>initialize-table</a> bindings, <span class="Constant">0x10</span> -<span id="L998" class="LineNr"> 998 </span><span class="CommentedCode">#? print-string 0, "render-sandbox {\n"</span> -<span id="L999" class="LineNr"> 999 </span> <a href='environment.mu.html#L1003'>render-sandbox</a> <a href='../../405screen.mu.html#L9'>screen</a>, functions, bindings, cursor-sandbox, <span class="Constant">3</span>, repl-col -<span id="L1000" class="LineNr">1000 </span><span class="CommentedCode">#? print-string 0, "render-sandbox }\n"</span> -<span id="L1001" class="LineNr">1001 </span><span class="Delimiter">}</span> -<span id="L1002" class="LineNr">1002 </span> -<span id="L1003" class="LineNr">1003 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1003'>render-sandbox</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L14'>function</a>), bindings: (addr <a href='data.mu.html#L47'>table</a>), _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), top-row: int, left-col: int <span class="Delimiter">{</span> -<span id="L1004" class="LineNr">1004 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L1005" class="LineNr">1005 </span> <span class="muComment"># line</span> -<span id="L1006" class="LineNr">1006 </span> <span class="PreProc">var</span> curr-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L1007" class="LineNr">1007 </span> <span class="PreProc">var</span> _curr-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-line-ah -<span id="L1008" class="LineNr">1008 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _curr-line -<span id="L1009" class="LineNr">1009 </span> <span class="muComment">#</span> -<span id="L1010" class="LineNr">1010 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy top-row -<span id="L1011" class="LineNr">1011 </span> <span class="muComment"># cursor row, col</span> -<span id="L1012" class="LineNr">1012 </span> <span class="PreProc">var</span> cursor-row: int -<span id="L1013" class="LineNr">1013 </span> <span class="PreProc">var</span> cursor-row-addr: (addr int) -<span id="L1014" class="LineNr">1014 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> address cursor-row -<span id="L1015" class="LineNr">1015 </span> copy-to cursor-row-addr, tmp -<span id="L1016" class="LineNr">1016 </span> <span class="PreProc">var</span> cursor-col: int -<span id="L1017" class="LineNr">1017 </span> <span class="PreProc">var</span> cursor-col-addr: (addr int) -<span id="L1018" class="LineNr">1018 </span> tmp <span class="SpecialChar"><-</span> address cursor-col -<span id="L1019" class="LineNr">1019 </span> copy-to cursor-col-addr, tmp -<span id="L1020" class="LineNr">1020 </span> <span class="muComment"># render all but final line without stack</span> -<span id="L1021" class="LineNr">1021 </span><span class="CommentedCode">#? print-string 0, "render all but final line\n"</span> -<span id="L1022" class="LineNr">1022 </span> <span class="Delimiter">{</span> -<span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-line, next -<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-line-ah -<span id="L1025" class="LineNr">1025 </span> compare next-line, <span class="Constant">0</span> -<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">break-if-=</span> -<span id="L1027" class="LineNr">1027 </span> <span class="Delimiter">{</span> -<span id="L1028" class="LineNr">1028 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L1029" class="LineNr">1029 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L1030" class="LineNr">1030 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L1032" class="LineNr">1032 </span> <span class="muComment"># it's enough to pass in the first word of the path, because if the path isn't a singleton the word is guaranteed to be unique</span> -<span id="L1033" class="LineNr">1033 </span> <a href='environment.mu.html#L1184'>render-line-without-stack</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-line, curr-row, left-col, cursor-word, cursor-row-addr, cursor-col-addr -<span id="L1034" class="LineNr">1034 </span> <span class="Delimiter">}</span> -<span id="L1035" class="LineNr">1035 </span> curr-line <span class="SpecialChar"><-</span> copy next-line -<span id="L1036" class="LineNr">1036 </span> curr-row <span class="SpecialChar"><-</span> add <span class="Constant">2</span> -<span id="L1037" class="LineNr">1037 </span> <span class="PreProc">loop</span> -<span id="L1038" class="LineNr">1038 </span> <span class="Delimiter">}</span> -<span id="L1039" class="LineNr">1039 </span> <span class="muComment">#</span> -<span id="L1040" class="LineNr">1040 </span> <a href='environment.mu.html#L1047'>render-final-line-with-stack</a> <a href='../../405screen.mu.html#L9'>screen</a>, functions, bindings, <a href='data.mu.html#L1'>sandbox</a>, curr-row, left-col, cursor-row-addr, cursor-col-addr -<span id="L1041" class="LineNr">1041 </span> <span class="muComment"># at most one of the following dialogs will be rendered</span> -<span id="L1042" class="LineNr">1042 </span> <a href='environment.mu.html#L1099'>render-rename-dialog</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L1'>sandbox</a>, cursor-row, cursor-col -<span id="L1043" class="LineNr">1043 </span> <a href='environment.mu.html#L1141'>render-define-dialog</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L1'>sandbox</a>, cursor-row, cursor-col -<span id="L1044" class="LineNr">1044 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, cursor-row, cursor-col -<span id="L1045" class="LineNr">1045 </span><span class="Delimiter">}</span> -<span id="L1046" class="LineNr">1046 </span> -<span id="L1047" class="LineNr">1047 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1047'>render-final-line-with-stack</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L14'>function</a>), bindings: (addr <a href='data.mu.html#L47'>table</a>), _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), top-row: int, left-col: int, cursor-row-addr: (addr int), cursor-col-addr: (addr int) <span class="Delimiter">{</span> -<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L1049" class="LineNr">1049 </span> <span class="muComment"># expanded-words</span> -<span id="L1050" class="LineNr">1050 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L59'>call-path</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, expanded-words -<span id="L1051" class="LineNr">1051 </span> <span class="muComment"># cursor-word</span> -<span id="L1052" class="LineNr">1052 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L1053" class="LineNr">1053 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-call-path-ah -<span id="L1054" class="LineNr">1054 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L30'>word</a> -<span id="L1055" class="LineNr">1055 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L1056" class="LineNr">1056 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _cursor-word -<span id="L1057" class="LineNr">1057 </span><span class="CommentedCode">#? print-string 0, "word at cursor: "</span> -<span id="L1058" class="LineNr">1058 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> -<span id="L1059" class="LineNr">1059 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1060" class="LineNr">1060 </span> <span class="muComment"># cursor-call-path</span> -<span id="L1061" class="LineNr">1061 </span> <span class="PreProc">var</span> cursor-call-path: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) -<span id="L1062" class="LineNr">1062 </span> <span class="Delimiter">{</span> -<span id="L1063" class="LineNr">1063 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L1064" class="LineNr">1064 </span> copy-to cursor-call-path, src -<span id="L1065" class="LineNr">1065 </span> <span class="Delimiter">}</span> -<span id="L1066" class="LineNr">1066 </span> <span class="muComment"># first line</span> -<span id="L1067" class="LineNr">1067 </span> <span class="PreProc">var</span> first-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L1068" class="LineNr">1068 </span> <span class="PreProc">var</span> _first-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *first-line-ah -<span id="L1069" class="LineNr">1069 </span> <span class="PreProc">var</span> first-line/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _first-line -<span id="L1070" class="LineNr">1070 </span> <span class="muComment"># final line</span> -<span id="L1071" class="LineNr">1071 </span> <span class="PreProc">var</span> final-line-storage: (handle <a href='data.mu.html#L22'>line</a>) -<span id="L1072" class="LineNr">1072 </span> <span class="PreProc">var</span> final-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> address final-line-storage -<span id="L1073" class="LineNr">1073 </span> <a href='environment.mu.html#L1084'>final-line</a> <a href='data.mu.html#L1'>sandbox</a>, final-line-ah -<span id="L1074" class="LineNr">1074 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1084'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *final-line-ah -<span id="L1075" class="LineNr">1075 </span> <span class="muComment"># curr-path</span> -<span id="L1076" class="LineNr">1076 </span> <span class="PreProc">var</span> curr-path-storage: (handle <a href='data.mu.html#L65'>call-path-element</a>) -<span id="L1077" class="LineNr">1077 </span> <span class="PreProc">var</span> curr-path/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> address curr-path-storage -<span id="L1078" class="LineNr">1078 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> curr-path <span class="muComment"># leak</span> -<span id="L1079" class="LineNr">1079 </span> <a href='data.mu.html#L294'>initialize-path-from-line</a> <a href='environment.mu.html#L1084'>final-line</a>, curr-path -<span id="L1080" class="LineNr">1080 </span> <span class="muComment">#</span> -<span id="L1081" class="LineNr">1081 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1271'>render-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, functions, bindings, first-line, <a href='environment.mu.html#L1084'>final-line</a>, expanded-words, top-row, left-col, curr-path, cursor-word, cursor-call-path, cursor-row-addr, cursor-col-addr -<span id="L1082" class="LineNr">1082 </span><span class="Delimiter">}</span> -<span id="L1083" class="LineNr">1083 </span> -<span id="L1084" class="LineNr">1084 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1084'>final-line</a></span> _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), out: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="Delimiter">{</span> -<span id="L1085" class="LineNr">1085 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L1086" class="LineNr">1086 </span> <span class="PreProc">var</span> curr-line-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, data -<span id="L1087" class="LineNr">1087 </span> <span class="Delimiter">{</span> -<span id="L1088" class="LineNr">1088 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-line-ah -<span id="L1089" class="LineNr">1089 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-line, next -<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-line-ah -<span id="L1091" class="LineNr">1091 </span> compare next-line, <span class="Constant">0</span> -<span id="L1092" class="LineNr">1092 </span> <span class="PreProc">break-if-=</span> -<span id="L1093" class="LineNr">1093 </span> curr-line-ah <span class="SpecialChar"><-</span> copy next-line-ah -<span id="L1094" class="LineNr">1094 </span> <span class="PreProc">loop</span> -<span id="L1095" class="LineNr">1095 </span> <span class="Delimiter">}</span> -<span id="L1096" class="LineNr">1096 </span> copy-object curr-line-ah, out -<span id="L1097" class="LineNr">1097 </span><span class="Delimiter">}</span> -<span id="L1098" class="LineNr">1098 </span> -<span id="L1099" class="LineNr">1099 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1099'>render-rename-dialog</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), cursor-row: int, cursor-col: int <span class="Delimiter">{</span> -<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L1101" class="LineNr">1101 </span> <span class="PreProc">var</span> rename-word-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-cursor-word -<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">var</span> rename-word-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *rename-word-mode-ah? -<span id="L1103" class="LineNr">1103 </span> compare rename-word-mode?, <span class="Constant">0</span> -<span id="L1104" class="LineNr">1104 </span> <span class="PreProc">break-if-=</span> -<span id="L1105" class="LineNr">1105 </span> <span class="muComment"># clear a space for the dialog</span> -<span id="L1106" class="LineNr">1106 </span> <span class="PreProc">var</span> top-row/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy cursor-row -<span id="L1107" class="LineNr">1107 </span> top-row <span class="SpecialChar"><-</span> subtract <span class="Constant">3</span> -<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> bottom-row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy cursor-row -<span id="L1109" class="LineNr">1109 </span> bottom-row <span class="SpecialChar"><-</span> add <span class="Constant">3</span> -<span id="L1110" class="LineNr">1110 </span> <span class="PreProc">var</span> left-col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy cursor-col -<span id="L1111" class="LineNr">1111 </span> left-col <span class="SpecialChar"><-</span> subtract <span class="Constant">0x10</span> -<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">var</span> right-col/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy cursor-col -<span id="L1113" class="LineNr">1113 </span> right-col <span class="SpecialChar"><-</span> add <span class="Constant">0x10</span> -<span id="L1114" class="LineNr">1114 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col -<span id="L1115" class="LineNr">1115 </span> <a href='box.mu.html#L1'>draw-box</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col -<span id="L1116" class="LineNr">1116 </span> <span class="muComment"># render a little menu for the dialog</span> -<span id="L1117" class="LineNr">1117 </span> <span class="PreProc">var</span> menu-row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bottom-row -<span id="L1118" class="LineNr">1118 </span> menu-row <span class="SpecialChar"><-</span> decrement -<span id="L1119" class="LineNr">1119 </span> <span class="PreProc">var</span> menu-col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy left-col -<span id="L1120" class="LineNr">1120 </span> menu-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> -<span id="L1121" class="LineNr">1121 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, menu-row, menu-col -<span id="L1122" class="LineNr">1122 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1123" class="LineNr">1123 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" esc "</span> -<span id="L1124" class="LineNr">1124 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1125" class="LineNr">1125 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" cancel "</span> -<span id="L1126" class="LineNr">1126 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1127" class="LineNr">1127 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" enter "</span> -<span id="L1128" class="LineNr">1128 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1129" class="LineNr">1129 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" rename "</span> -<span id="L1130" class="LineNr">1130 </span> <span class="muComment"># draw the word, positioned appropriately around the cursor</span> -<span id="L1131" class="LineNr">1131 </span> <span class="PreProc">var</span> start-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy cursor-col -<span id="L1132" class="LineNr">1132 </span> <span class="PreProc">var</span> word-ah?/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-cursor-word -<span id="L1133" class="LineNr">1133 </span> <span class="PreProc">var</span> <a href='data.mu.html#L30'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah? -<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">var</span> <a href='word.mu.html#L214'>cursor-index</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L214'>cursor-index</a> <a href='data.mu.html#L30'>word</a> -<span id="L1135" class="LineNr">1135 </span> start-col <span class="SpecialChar"><-</span> subtract <a href='word.mu.html#L214'>cursor-index</a> -<span id="L1136" class="LineNr">1136 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, cursor-row, start-col -<span id="L1137" class="LineNr">1137 </span> <span class="PreProc">var</span> <a href='data.mu.html#L30'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah? -<span id="L1138" class="LineNr">1138 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L30'>word</a> -<span id="L1139" class="LineNr">1139 </span><span class="Delimiter">}</span> -<span id="L1140" class="LineNr">1140 </span> -<span id="L1141" class="LineNr">1141 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1141'>render-define-dialog</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>), cursor-row: int, cursor-col: int <span class="Delimiter">{</span> -<span id="L1142" class="LineNr">1142 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L1143" class="LineNr">1143 </span> <span class="PreProc">var</span> define-function-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-function -<span id="L1144" class="LineNr">1144 </span> <span class="PreProc">var</span> define-function-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *define-function-mode-ah? -<span id="L1145" class="LineNr">1145 </span> compare define-function-mode?, <span class="Constant">0</span> -<span id="L1146" class="LineNr">1146 </span> <span class="PreProc">break-if-=</span> -<span id="L1147" class="LineNr">1147 </span> <span class="muComment"># clear a space for the dialog</span> -<span id="L1148" class="LineNr">1148 </span> <span class="PreProc">var</span> top-row/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy cursor-row -<span id="L1149" class="LineNr">1149 </span> top-row <span class="SpecialChar"><-</span> subtract <span class="Constant">3</span> -<span id="L1150" class="LineNr">1150 </span> <span class="PreProc">var</span> bottom-row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy cursor-row -<span id="L1151" class="LineNr">1151 </span> bottom-row <span class="SpecialChar"><-</span> add <span class="Constant">3</span> -<span id="L1152" class="LineNr">1152 </span> <span class="PreProc">var</span> left-col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy cursor-col -<span id="L1153" class="LineNr">1153 </span> left-col <span class="SpecialChar"><-</span> subtract <span class="Constant">0x10</span> -<span id="L1154" class="LineNr">1154 </span> <span class="PreProc">var</span> right-col/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy cursor-col -<span id="L1155" class="LineNr">1155 </span> right-col <span class="SpecialChar"><-</span> add <span class="Constant">0x10</span> -<span id="L1156" class="LineNr">1156 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col -<span id="L1157" class="LineNr">1157 </span> <a href='box.mu.html#L1'>draw-box</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col -<span id="L1158" class="LineNr">1158 </span> <span class="muComment"># render a little menu for the dialog</span> -<span id="L1159" class="LineNr">1159 </span> <span class="PreProc">var</span> menu-row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bottom-row -<span id="L1160" class="LineNr">1160 </span> menu-row <span class="SpecialChar"><-</span> decrement -<span id="L1161" class="LineNr">1161 </span> <span class="PreProc">var</span> menu-col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy left-col -<span id="L1162" class="LineNr">1162 </span> menu-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> -<span id="L1163" class="LineNr">1163 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, menu-row, menu-col -<span id="L1164" class="LineNr">1164 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1165" class="LineNr">1165 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" esc "</span> -<span id="L1166" class="LineNr">1166 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1167" class="LineNr">1167 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" cancel "</span> -<span id="L1168" class="LineNr">1168 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1169" class="LineNr">1169 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" enter "</span> -<span id="L1170" class="LineNr">1170 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1171" class="LineNr">1171 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" define "</span> -<span id="L1172" class="LineNr">1172 </span> <span class="muComment"># draw the word, positioned appropriately around the cursor</span> -<span id="L1173" class="LineNr">1173 </span> <span class="PreProc">var</span> start-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy cursor-col -<span id="L1174" class="LineNr">1174 </span> <span class="PreProc">var</span> word-ah?/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, partial-name-for-function -<span id="L1175" class="LineNr">1175 </span> <span class="PreProc">var</span> <a href='data.mu.html#L30'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah? -<span id="L1176" class="LineNr">1176 </span> <span class="PreProc">var</span> <a href='word.mu.html#L214'>cursor-index</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L214'>cursor-index</a> <a href='data.mu.html#L30'>word</a> -<span id="L1177" class="LineNr">1177 </span> start-col <span class="SpecialChar"><-</span> subtract <a href='word.mu.html#L214'>cursor-index</a> -<span id="L1178" class="LineNr">1178 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, cursor-row, start-col -<span id="L1179" class="LineNr">1179 </span> <span class="PreProc">var</span> <a href='data.mu.html#L30'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah? -<span id="L1180" class="LineNr">1180 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L30'>word</a> -<span id="L1181" class="LineNr">1181 </span><span class="Delimiter">}</span> -<span id="L1182" class="LineNr">1182 </span> -<span id="L1183" class="LineNr">1183 </span><span class="muComment"># Render just the words in 'line'.</span> -<span id="L1184" class="LineNr">1184 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1184'>render-line-without-stack</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _line: (addr <a href='data.mu.html#L22'>line</a>), curr-row: int, left-col: int, cursor-word: (addr <a href='data.mu.html#L30'>word</a>), cursor-row-addr: (addr int), cursor-col-addr: (addr int) <span class="Delimiter">{</span> -<span id="L1185" class="LineNr">1185 </span> <span class="muComment"># curr-word</span> -<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L1187" class="LineNr">1187 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L1188" class="LineNr">1188 </span> <span class="PreProc">var</span> _curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *first-word-ah -<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _curr-word -<span id="L1190" class="LineNr">1190 </span> <span class="muComment">#</span> -<span id="L1191" class="LineNr">1191 </span> <span class="muComment"># loop-carried dependency</span> -<span id="L1192" class="LineNr">1192 </span> <span class="PreProc">var</span> curr-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy left-col -<span id="L1193" class="LineNr">1193 </span> <span class="muComment">#</span> -<span id="L1194" class="LineNr">1194 </span> <span class="Delimiter">{</span> -<span id="L1195" class="LineNr">1195 </span> compare curr-word, <span class="Constant">0</span> -<span id="L1196" class="LineNr">1196 </span> <span class="PreProc">break-if-=</span> -<span id="L1197" class="LineNr">1197 </span><span class="CommentedCode">#? print-string 0, "-- word in penultimate lines: "</span> -<span id="L1198" class="LineNr">1198 </span><span class="CommentedCode">#? {</span> -<span id="L1199" class="LineNr">1199 </span><span class="CommentedCode">#? var foo/eax: int <- copy curr-word</span> -<span id="L1200" class="LineNr">1200 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L1201" class="LineNr">1201 </span><span class="CommentedCode">#? }</span> -<span id="L1202" class="LineNr">1202 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1203" class="LineNr">1203 </span> <span class="PreProc">var</span> old-col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy curr-col -<span id="L1204" class="LineNr">1204 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1205" class="LineNr">1205 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-row, curr-col -<span id="L1206" class="LineNr">1206 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-word -<span id="L1207" class="LineNr">1207 </span> <span class="Delimiter">{</span> -<span id="L1208" class="LineNr">1208 </span> <span class="PreProc">var</span> max-width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L106'>word-length</a> curr-word -<span id="L1209" class="LineNr">1209 </span> curr-col <span class="SpecialChar"><-</span> add max-width -<span id="L1210" class="LineNr">1210 </span> curr-col <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># margin-right</span> -<span id="L1211" class="LineNr">1211 </span> <span class="Delimiter">}</span> -<span id="L1212" class="LineNr">1212 </span> <span class="muComment"># cache cursor column if necessary</span> -<span id="L1213" class="LineNr">1213 </span> <span class="Delimiter">{</span> -<span id="L1214" class="LineNr">1214 </span> compare curr-word, cursor-word -<span id="L1215" class="LineNr">1215 </span> <span class="PreProc">break-if-!=</span> -<span id="L1216" class="LineNr">1216 </span><span class="CommentedCode">#? print-string 0, "Cursor at "</span> -<span id="L1217" class="LineNr">1217 </span><span class="CommentedCode">#? print-int32-decimal 0, curr-row</span> -<span id="L1218" class="LineNr">1218 </span><span class="CommentedCode">#? print-string 0, ", "</span> -<span id="L1219" class="LineNr">1219 </span><span class="CommentedCode">#? print-int32-decimal 0, old-col</span> -<span id="L1220" class="LineNr">1220 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1221" class="LineNr">1221 </span><span class="CommentedCode">#? print-string 0, "contents: "</span> -<span id="L1222" class="LineNr">1222 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> -<span id="L1223" class="LineNr">1223 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1224" class="LineNr">1224 </span><span class="CommentedCode">#? {</span> -<span id="L1225" class="LineNr">1225 </span><span class="CommentedCode">#? var foo/eax: int <- copy cursor-word</span> -<span id="L1226" class="LineNr">1226 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L1227" class="LineNr">1227 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1228" class="LineNr">1228 </span><span class="CommentedCode">#? }</span> -<span id="L1229" class="LineNr">1229 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> copy cursor-row-addr -<span id="L1230" class="LineNr">1230 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy curr-row -<span id="L1231" class="LineNr">1231 </span> copy-to *dest, src -<span id="L1232" class="LineNr">1232 </span> dest <span class="SpecialChar"><-</span> copy cursor-col-addr -<span id="L1233" class="LineNr">1233 </span> copy-to *dest, old-col -<span id="L1234" class="LineNr">1234 </span> <span class="PreProc">var</span> cursor-index-in-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L214'>cursor-index</a> curr-word -<span id="L1235" class="LineNr">1235 </span> add-to *dest, cursor-index-in-word -<span id="L1236" class="LineNr">1236 </span> <span class="Delimiter">}</span> -<span id="L1237" class="LineNr">1237 </span> <span class="muComment"># loop update</span> -<span id="L1238" class="LineNr">1238 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next -<span id="L1239" class="LineNr">1239 </span> <span class="PreProc">var</span> _curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah -<span id="L1240" class="LineNr">1240 </span> curr-word <span class="SpecialChar"><-</span> copy _curr-word -<span id="L1241" class="LineNr">1241 </span> <span class="PreProc">loop</span> -<span id="L1242" class="LineNr">1242 </span> <span class="Delimiter">}</span> -<span id="L1243" class="LineNr">1243 </span><span class="Delimiter">}</span> -<span id="L1244" class="LineNr">1244 </span> -<span id="L1245" class="LineNr">1245 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1245'>call-depth-at-cursor</a></span> _sandbox: (addr <a href='data.mu.html#L1'>sandbox</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L1246" class="LineNr">1246 </span> <span class="PreProc">var</span> <a href='data.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L1'>sandbox</a>) <span class="SpecialChar"><-</span> copy _sandbox -<span id="L1247" class="LineNr">1247 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L1'>sandbox</a>, cursor-call-path -<span id="L1248" class="LineNr">1248 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1253'>call-path-element-length</a> cursor-call-path -<span id="L1249" class="LineNr">1249 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># input-row - 1</span> -<span id="L1250" class="LineNr">1250 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L1251" class="LineNr">1251 </span><span class="Delimiter">}</span> -<span id="L1252" class="LineNr">1252 </span> -<span id="L1253" class="LineNr">1253 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1253'>call-path-element-length</a></span> _x: (addr handle <a href='data.mu.html#L65'>call-path-element</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L1254" class="LineNr">1254 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> copy _x -<span id="L1255" class="LineNr">1255 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L1256" class="LineNr">1256 </span> <span class="Delimiter">{</span> -<span id="L1257" class="LineNr">1257 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L65'>call-path-element</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L1258" class="LineNr">1258 </span> compare curr, <span class="Constant">0</span> -<span id="L1259" class="LineNr">1259 </span> <span class="PreProc">break-if-=</span> -<span id="L1260" class="LineNr">1260 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L1261" class="LineNr">1261 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> increment -<span id="L1262" class="LineNr">1262 </span> <span class="PreProc">loop</span> -<span id="L1263" class="LineNr">1263 </span> <span class="Delimiter">}</span> -<span id="L1264" class="LineNr">1264 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L1265" class="LineNr">1265 </span><span class="Delimiter">}</span> -<span id="L1266" class="LineNr">1266 </span> -<span id="L1267" class="LineNr">1267 </span><span class="muComment"># Render the line of words in line, along with the state of the stack under each word.</span> -<span id="L1268" class="LineNr">1268 </span><span class="muComment"># Also render any expanded function calls using recursive calls.</span> -<span id="L1269" class="LineNr">1269 </span><span class="muComment">#</span> -<span id="L1270" class="LineNr">1270 </span><span class="muComment"># Along the way, compute the column the cursor should be positioned at (cursor-col-addr).</span> -<span id="L1271" class="LineNr">1271 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1271'>render-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L14'>function</a>), bindings: (addr <a href='data.mu.html#L47'>table</a>), first-line: (addr <a href='data.mu.html#L22'>line</a>), _line: (addr <a href='data.mu.html#L22'>line</a>), expanded-words: (addr handle <a href='data.mu.html#L59'>call-path</a>), top-row: int, left-col: int, curr-path: (addr handle <a href='data.mu.html#L65'>call-path-element</a>), cursor-word: (addr <a href='data.mu.html#L30'>word</a>), cursor-call-path: (addr handle <a href='data.mu.html#L65'>call-path-element</a>), cursor-row-addr: (addr int), cursor-col-addr: (addr int)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L1272" class="LineNr">1272 </span><span class="CommentedCode">#? print-string 0, "render-line\n"</span> -<span id="L1273" class="LineNr">1273 </span><span class="CommentedCode">#? dump-table bindings</span> -<span id="L1274" class="LineNr">1274 </span> <span class="muComment"># curr-word</span> -<span id="L1275" class="LineNr">1275 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L1276" class="LineNr">1276 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L1277" class="LineNr">1277 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *first-word-ah -<span id="L1278" class="LineNr">1278 </span> <span class="muComment">#</span> -<span id="L1279" class="LineNr">1279 </span> <span class="muComment"># loop-carried dependency</span> -<span id="L1280" class="LineNr">1280 </span> <span class="PreProc">var</span> curr-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy left-col -<span id="L1281" class="LineNr">1281 </span> <span class="muComment">#</span> -<span id="L1282" class="LineNr">1282 </span> <span class="Delimiter">{</span> -<span id="L1283" class="LineNr">1283 </span> compare curr-word, <span class="Constant">0</span> -<span id="L1284" class="LineNr">1284 </span> <span class="PreProc">break-if-=</span> -<span id="L1285" class="LineNr">1285 </span><span class="CommentedCode">#? print-string 0, "-- word "</span> -<span id="L1286" class="LineNr">1286 </span><span class="CommentedCode">#? print-word 0, curr-word</span> -<span id="L1287" class="LineNr">1287 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1288" class="LineNr">1288 </span> <span class="muComment"># if necessary, first render columns for subsidiary stack</span> -<span id="L1289" class="LineNr">1289 </span> $render-line:subsidiary: <span class="Delimiter">{</span> -<span id="L1290" class="LineNr">1290 </span> <span class="Delimiter">{</span> -<span id="L1291" class="LineNr">1291 </span><span class="CommentedCode">#? print-string 0, "check sub\n"</span> -<span id="L1292" class="LineNr">1292 </span> <span class="PreProc">var</span> display-subsidiary-stack?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L303'>find-in-call-paths</a> expanded-words, curr-path -<span id="L1293" class="LineNr">1293 </span> compare display-subsidiary-stack?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L1294" class="LineNr">1294 </span> <span class="PreProc">break-if-=</span> $render-line:subsidiary -<span id="L1295" class="LineNr">1295 </span> <span class="Delimiter">}</span> -<span id="L1296" class="LineNr">1296 </span><span class="CommentedCode">#? print-string 0, "render subsidiary stack\n"</span> -<span id="L1297" class="LineNr">1297 </span> <span class="muComment"># does function exist?</span> -<span id="L1298" class="LineNr">1298 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1397'>callee</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L1299" class="LineNr">1299 </span> <span class="Delimiter">{</span> -<span id="L1300" class="LineNr">1300 </span> <span class="PreProc">var</span> callee-h: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L1301" class="LineNr">1301 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> address callee-h -<span id="L1302" class="LineNr">1302 </span> <a href='environment.mu.html#L1397'>callee</a> functions, curr-word, callee-ah -<span id="L1303" class="LineNr">1303 </span> <span class="PreProc">var</span> _callee/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-ah -<span id="L1304" class="LineNr">1304 </span> <a href='environment.mu.html#L1397'>callee</a> <span class="SpecialChar"><-</span> copy _callee -<span id="L1305" class="LineNr">1305 </span> compare <a href='environment.mu.html#L1397'>callee</a>, <span class="Constant">0</span> -<span id="L1306" class="LineNr">1306 </span> <span class="PreProc">break-if-=</span> $render-line:subsidiary -<span id="L1307" class="LineNr">1307 </span> <span class="Delimiter">}</span> -<span id="L1308" class="LineNr">1308 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, curr-col -<span id="L1309" class="LineNr">1309 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">8</span>, <span class="Constant">7</span> -<span id="L1310" class="LineNr">1310 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-word -<span id="L1311" class="LineNr">1311 </span> <span class="Delimiter">{</span> -<span id="L1312" class="LineNr">1312 </span> <span class="PreProc">var</span> word-len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L106'>word-length</a> curr-word -<span id="L1313" class="LineNr">1313 </span> curr-col <span class="SpecialChar"><-</span> add word-len -<span id="L1314" class="LineNr">1314 </span> curr-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> -<span id="L1315" class="LineNr">1315 </span> increment top-row -<span id="L1316" class="LineNr">1316 </span> <span class="Delimiter">}</span> -<span id="L1317" class="LineNr">1317 </span> <span class="muComment"># obtain stack at call site</span> -<span id="L1318" class="LineNr">1318 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L3'>value-stack</a> -<span id="L1319" class="LineNr">1319 </span> <span class="PreProc">var</span> stack/<span class="Constant">edx</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> address stack-storage -<span id="L1320" class="LineNr">1320 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack, <span class="Constant">0x10</span> -<span id="L1321" class="LineNr">1321 </span> <span class="Delimiter">{</span> -<span id="L1322" class="LineNr">1322 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, prev -<span id="L1323" class="LineNr">1323 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-word-ah -<span id="L1324" class="LineNr">1324 </span> compare prev-word, <span class="Constant">0</span> -<span id="L1325" class="LineNr">1325 </span> <span class="PreProc">break-if-=</span> -<span id="L1326" class="LineNr">1326 </span> <span class="PreProc">var</span> bindings2-storage: <a href='data.mu.html#L47'>table</a> -<span id="L1327" class="LineNr">1327 </span> <span class="PreProc">var</span> bindings2/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> address bindings2-storage -<span id="L1328" class="LineNr">1328 </span> <a href='table.mu.html#L7'>deep-copy-table</a> bindings, bindings2 -<span id="L1329" class="LineNr">1329 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, bindings2, first-line, prev-word, stack -<span id="L1330" class="LineNr">1330 </span> <span class="Delimiter">}</span> -<span id="L1331" class="LineNr">1331 </span> <span class="muComment"># construct new bindings</span> -<span id="L1332" class="LineNr">1332 </span> <span class="PreProc">var</span> callee-bindings-storage: <a href='data.mu.html#L47'>table</a> -<span id="L1333" class="LineNr">1333 </span> <span class="PreProc">var</span> callee-bindings/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> address callee-bindings-storage -<span id="L1334" class="LineNr">1334 </span> <a href='table.mu.html#L1'>initialize-table</a> callee-bindings, <span class="Constant">0x10</span> -<span id="L1335" class="LineNr">1335 </span> <a href='rpn.mu.html#L828'>bind-args</a> <a href='environment.mu.html#L1397'>callee</a>, stack, callee-bindings -<span id="L1336" class="LineNr">1336 </span> <span class="muComment"># obtain body</span> -<span id="L1337" class="LineNr">1337 </span> <span class="PreProc">var</span> callee-body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1397'>callee</a>, body -<span id="L1338" class="LineNr">1338 </span> <span class="PreProc">var</span> callee-body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-body-ah -<span id="L1339" class="LineNr">1339 </span> <span class="PreProc">var</span> callee-body-first-word/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> callee-body, data -<span id="L1340" class="LineNr">1340 </span> <span class="muComment"># - render subsidiary stack</span> -<span id="L1341" class="LineNr">1341 </span> <a href='data.mu.html#L491'>push-to-call-path-element</a> curr-path, callee-body-first-word <span class="muComment"># leak</span> -<span id="L1342" class="LineNr">1342 </span><span class="CommentedCode">#? print-string 0, "subsidiary {\n"</span> -<span id="L1343" class="LineNr">1343 </span><span class="CommentedCode">#? dump-table callee-bindings</span> -<span id="L1344" class="LineNr">1344 </span><span class="CommentedCode">#? syscall_exit</span> -<span id="L1345" class="LineNr">1345 </span> curr-col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1271'>render-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, functions, callee-bindings, callee-body, callee-body, expanded-words, top-row, curr-col, curr-path, cursor-word, cursor-call-path, cursor-row-addr, cursor-col-addr -<span id="L1346" class="LineNr">1346 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> -<span id="L1347" class="LineNr">1347 </span> <a href='data.mu.html#L506'>drop-from-call-path-element</a> curr-path -<span id="L1348" class="LineNr">1348 </span> <span class="muComment">#</span> -<span id="L1349" class="LineNr">1349 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, curr-col -<span id="L1350" class="LineNr">1350 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x21d7</span> <span class="muComment"># ⇗</span> -<span id="L1351" class="LineNr">1351 </span> <span class="muComment">#</span> -<span id="L1352" class="LineNr">1352 </span> curr-col <span class="SpecialChar"><-</span> add <span class="Constant">2</span> -<span id="L1353" class="LineNr">1353 </span> decrement top-row -<span id="L1354" class="LineNr">1354 </span> <span class="Delimiter">}</span> -<span id="L1355" class="LineNr">1355 </span> <span class="muComment"># render main column</span> -<span id="L1356" class="LineNr">1356 </span> <span class="PreProc">var</span> old-col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy curr-col -<span id="L1357" class="LineNr">1357 </span> <span class="PreProc">var</span> bindings2-storage: <a href='data.mu.html#L47'>table</a> -<span id="L1358" class="LineNr">1358 </span> <span class="PreProc">var</span> bindings2/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> address bindings2-storage -<span id="L1359" class="LineNr">1359 </span><span class="CommentedCode">#? print-string 0, "deep-copy {\n"</span> -<span id="L1360" class="LineNr">1360 </span> <a href='table.mu.html#L7'>deep-copy-table</a> bindings, bindings2 -<span id="L1361" class="LineNr">1361 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> -<span id="L1362" class="LineNr">1362 </span><span class="CommentedCode">#? print-string 0, "render column {\n"</span> -<span id="L1363" class="LineNr">1363 </span> curr-col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1409'>render-column</a> <a href='../../405screen.mu.html#L9'>screen</a>, functions, bindings2, first-line, <a href='data.mu.html#L22'>line</a>, curr-word, top-row, curr-col -<span id="L1364" class="LineNr">1364 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> -<span id="L1365" class="LineNr">1365 </span> <span class="muComment"># cache cursor column if necessary</span> -<span id="L1366" class="LineNr">1366 </span> $render-line:cache-cursor-column: <span class="Delimiter">{</span> -<span id="L1367" class="LineNr">1367 </span> <span class="Delimiter">{</span> -<span id="L1368" class="LineNr">1368 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='data.mu.html#L324'>call-path-element-match?</a> curr-path, cursor-call-path -<span id="L1369" class="LineNr">1369 </span> compare found?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L1370" class="LineNr">1370 </span> <span class="PreProc">break-if-=</span> $render-line:cache-cursor-column -<span id="L1371" class="LineNr">1371 </span> <span class="Delimiter">}</span> -<span id="L1372" class="LineNr">1372 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> copy cursor-row-addr -<span id="L1373" class="LineNr">1373 </span> <span class="Delimiter">{</span> -<span id="L1374" class="LineNr">1374 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy top-row -<span id="L1375" class="LineNr">1375 </span> copy-to *dest, src -<span id="L1376" class="LineNr">1376 </span> <span class="Delimiter">}</span> -<span id="L1377" class="LineNr">1377 </span> dest <span class="SpecialChar"><-</span> copy cursor-col-addr -<span id="L1378" class="LineNr">1378 </span> copy-to *dest, old-col -<span id="L1379" class="LineNr">1379 </span> <span class="PreProc">var</span> cursor-index-in-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L214'>cursor-index</a> curr-word -<span id="L1380" class="LineNr">1380 </span> add-to *dest, cursor-index-in-word -<span id="L1381" class="LineNr">1381 </span> <span class="Delimiter">}</span> -<span id="L1382" class="LineNr">1382 </span> <span class="muComment"># loop update</span> -<span id="L1383" class="LineNr">1383 </span><span class="CommentedCode">#? print-string 0, "next word\n"</span> -<span id="L1384" class="LineNr">1384 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next -<span id="L1385" class="LineNr">1385 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah -<span id="L1386" class="LineNr">1386 </span><span class="CommentedCode">#? {</span> -<span id="L1387" class="LineNr">1387 </span><span class="CommentedCode">#? var foo/eax: int <- copy curr-word</span> -<span id="L1388" class="LineNr">1388 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L1389" class="LineNr">1389 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1390" class="LineNr">1390 </span><span class="CommentedCode">#? }</span> -<span id="L1391" class="LineNr">1391 </span> <a href='data.mu.html#L429'>increment-final-element</a> curr-path -<span id="L1392" class="LineNr">1392 </span> <span class="PreProc">loop</span> -<span id="L1393" class="LineNr">1393 </span> <span class="Delimiter">}</span> -<span id="L1394" class="LineNr">1394 </span> <span class="PreProc">return</span> curr-col -<span id="L1395" class="LineNr">1395 </span><span class="Delimiter">}</span> -<span id="L1396" class="LineNr">1396 </span> -<span id="L1397" class="LineNr">1397 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1397'>callee</a></span> functions: (addr handle <a href='data.mu.html#L14'>function</a>), <a href='data.mu.html#L30'>word</a>: (addr <a href='data.mu.html#L30'>word</a>), out: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="Delimiter">{</span> -<span id="L1398" class="LineNr">1398 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>) -<span id="L1399" class="LineNr">1399 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L1400" class="LineNr">1400 </span> <a href='word.mu.html#L501'>emit-word</a> <a href='data.mu.html#L30'>word</a>, stream -<span id="L1401" class="LineNr">1401 </span> <a href='rpn.mu.html#L774'>find-function</a> functions, stream, out -<span id="L1402" class="LineNr">1402 </span><span class="Delimiter">}</span> -<span id="L1403" class="LineNr">1403 </span> -<span id="L1404" class="LineNr">1404 </span><span class="muComment"># Render:</span> -<span id="L1405" class="LineNr">1405 </span><span class="muComment"># - starting at top-row, left-col: final-word</span> -<span id="L1406" class="LineNr">1406 </span><span class="muComment"># - starting somewhere below at left-col: the stack result from interpreting first-world to final-word (inclusive)</span> -<span id="L1407" class="LineNr">1407 </span><span class="muComment">#</span> -<span id="L1408" class="LineNr">1408 </span><span class="muComment"># Return the farthest column written.</span> -<span id="L1409" class="LineNr">1409 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1409'>render-column</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L14'>function</a>), bindings: (addr <a href='data.mu.html#L47'>table</a>), first-line: (addr <a href='data.mu.html#L22'>line</a>), <a href='data.mu.html#L22'>line</a>: (addr <a href='data.mu.html#L22'>line</a>), <a href='word.mu.html#L129'>final-word</a>: (addr <a href='data.mu.html#L30'>word</a>), top-row: int, left-col: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L1410" class="LineNr">1410 </span><span class="CommentedCode">#? print-string 0, "render-column\n"</span> -<span id="L1411" class="LineNr">1411 </span><span class="CommentedCode">#? dump-table bindings</span> -<span id="L1412" class="LineNr">1412 </span> <span class="PreProc">var</span> max-width/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L1413" class="LineNr">1413 </span> <span class="Delimiter">{</span> -<span id="L1414" class="LineNr">1414 </span> <span class="muComment"># compute stack</span> -<span id="L1415" class="LineNr">1415 </span> <span class="PreProc">var</span> stack: <a href='value-stack.mu.html#L3'>value-stack</a> -<span id="L1416" class="LineNr">1416 </span> <span class="PreProc">var</span> stack-addr/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> address stack -<span id="L1417" class="LineNr">1417 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack-addr, <span class="Constant">0x10</span> <span class="muComment"># max-words</span> -<span id="L1418" class="LineNr">1418 </span> <span class="muComment"># copy bindings</span> -<span id="L1419" class="LineNr">1419 </span> <span class="PreProc">var</span> bindings2-storage: <a href='data.mu.html#L47'>table</a> -<span id="L1420" class="LineNr">1420 </span> <span class="PreProc">var</span> bindings2/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> address bindings2-storage -<span id="L1421" class="LineNr">1421 </span><span class="CommentedCode">#? print-string 0, "deep copy table {\n"</span> -<span id="L1422" class="LineNr">1422 </span> <a href='table.mu.html#L7'>deep-copy-table</a> bindings, bindings2 -<span id="L1423" class="LineNr">1423 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> -<span id="L1424" class="LineNr">1424 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, bindings2, first-line, <a href='word.mu.html#L129'>final-word</a>, stack-addr -<span id="L1425" class="LineNr">1425 </span> <span class="muComment"># indent stack</span> -<span id="L1426" class="LineNr">1426 </span> <span class="PreProc">var</span> indented-col/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy left-col -<span id="L1427" class="LineNr">1427 </span> indented-col <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># margin-right</span> -<span id="L1428" class="LineNr">1428 </span> <span class="muComment"># render stack</span> -<span id="L1429" class="LineNr">1429 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy top-row -<span id="L1430" class="LineNr">1430 </span> curr-row <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># stack-margin-top</span> -<span id="L1431" class="LineNr">1431 </span> <span class="PreProc">var</span> _max-width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L125'>value-stack-max-width</a> stack-addr -<span id="L1432" class="LineNr">1432 </span> max-width <span class="SpecialChar"><-</span> copy _max-width -<span id="L1433" class="LineNr">1433 </span> <span class="Delimiter">{</span> -<span id="L1434" class="LineNr">1434 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> stack-addr, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L1435" class="LineNr">1435 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L1436" class="LineNr">1436 </span> <span class="PreProc">break-if-<=</span> -<span id="L1437" class="LineNr">1437 </span> decrement *top-addr -<span id="L1438" class="LineNr">1438 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> stack-addr, data -<span id="L1439" class="LineNr">1439 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L1440" class="LineNr">1440 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L1441" class="LineNr">1441 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">ecx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L1442" class="LineNr">1442 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L1443" class="LineNr">1443 </span> <a href='value.mu.html#L1'>render-value-at</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-row, indented-col, val, max-width -<span id="L1444" class="LineNr">1444 </span> <span class="PreProc">var</span> height/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L314'>value-height</a> val -<span id="L1445" class="LineNr">1445 </span> curr-row <span class="SpecialChar"><-</span> add height -<span id="L1446" class="LineNr">1446 </span> <span class="PreProc">loop</span> -<span id="L1447" class="LineNr">1447 </span> <span class="Delimiter">}</span> -<span id="L1448" class="LineNr">1448 </span> <span class="Delimiter">}</span> -<span id="L1449" class="LineNr">1449 </span> -<span id="L1450" class="LineNr">1450 </span> max-width <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># spaces on either side of items on the stack</span> -<span id="L1451" class="LineNr">1451 </span> -<span id="L1452" class="LineNr">1452 </span> <span class="muComment"># render word, initialize result</span> -<span id="L1453" class="LineNr">1453 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1454" class="LineNr">1454 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, top-row, left-col -<span id="L1455" class="LineNr">1455 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='word.mu.html#L129'>final-word</a> -<span id="L1456" class="LineNr">1456 </span> <span class="Delimiter">{</span> -<span id="L1457" class="LineNr">1457 </span> <span class="PreProc">var</span> <a href='../../307size.subx.html#L5'>size</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L106'>word-length</a> <a href='word.mu.html#L129'>final-word</a> -<span id="L1458" class="LineNr">1458 </span> compare <a href='../../307size.subx.html#L5'>size</a>, max-width -<span id="L1459" class="LineNr">1459 </span> <span class="PreProc">break-if-<=</span> -<span id="L1460" class="LineNr">1460 </span> max-width <span class="SpecialChar"><-</span> copy <a href='../../307size.subx.html#L5'>size</a> -<span id="L1461" class="LineNr">1461 </span> <span class="Delimiter">}</span> -<span id="L1462" class="LineNr">1462 </span> -<span id="L1463" class="LineNr">1463 </span> <span class="muComment"># post-process right-col</span> -<span id="L1464" class="LineNr">1464 </span> <span class="PreProc">var</span> right-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy left-col -<span id="L1465" class="LineNr">1465 </span> right-col <span class="SpecialChar"><-</span> add max-width -<span id="L1466" class="LineNr">1466 </span> right-col <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># margin-right</span> -<span id="L1467" class="LineNr">1467 </span><span class="CommentedCode">#? print-int32-decimal 0, left-col</span> -<span id="L1468" class="LineNr">1468 </span><span class="CommentedCode">#? print-string 0, " => "</span> -<span id="L1469" class="LineNr">1469 </span><span class="CommentedCode">#? print-int32-decimal 0, right-col</span> -<span id="L1470" class="LineNr">1470 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L1471" class="LineNr">1471 </span> <span class="PreProc">return</span> right-col -<span id="L1472" class="LineNr">1472 </span><span class="Delimiter">}</span> -<span id="L1473" class="LineNr">1473 </span> -<span id="L1474" class="LineNr">1474 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1474'>clear-canvas</a></span> _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> -<span id="L1475" class="LineNr">1475 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env -<span id="L1476" class="LineNr">1476 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1477" class="LineNr">1477 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L1478" class="LineNr">1478 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen -<span id="L1479" class="LineNr">1479 </span> <a href='../../405screen.mu.html#L78'>clear-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1480" class="LineNr">1480 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, nrows -<span id="L1481" class="LineNr">1481 </span> <span class="PreProc">var</span> _sep-col/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, code-separator-col -<span id="L1482" class="LineNr">1482 </span> <span class="PreProc">var</span> sep-col/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *_sep-col -<span id="L1483" class="LineNr">1483 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, *nrows, sep-col -<span id="L1484" class="LineNr">1484 </span> <span class="muComment"># wordstar-style cheatsheet of shortcuts</span> -<span id="L1485" class="LineNr">1485 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, *nrows, <span class="Constant">0</span> -<span id="L1486" class="LineNr">1486 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1487" class="LineNr">1487 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-q "</span> -<span id="L1488" class="LineNr">1488 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1489" class="LineNr">1489 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" quit "</span> -<span id="L1490" class="LineNr">1490 </span> <span class="PreProc">var</span> menu-start/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy sep-col -<span id="L1491" class="LineNr">1491 </span> menu-start <span class="SpecialChar"><-</span> subtract <span class="Constant">0x48</span> <span class="muComment"># 72 = half the size of the menu</span> -<span id="L1492" class="LineNr">1492 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, *nrows, menu-start -<span id="L1493" class="LineNr">1493 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1494" class="LineNr">1494 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-a "</span> -<span id="L1495" class="LineNr">1495 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1496" class="LineNr">1496 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ⏮ "</span> -<span id="L1497" class="LineNr">1497 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1498" class="LineNr">1498 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-b "</span> -<span id="L1499" class="LineNr">1499 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1500" class="LineNr">1500 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ◀ <a href='data.mu.html#L30'>word</a> "</span> -<span id="L1501" class="LineNr">1501 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1502" class="LineNr">1502 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-f "</span> -<span id="L1503" class="LineNr">1503 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1504" class="LineNr">1504 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" <a href='data.mu.html#L30'>word</a> ▶ "</span> -<span id="L1505" class="LineNr">1505 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1506" class="LineNr">1506 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-e "</span> -<span id="L1507" class="LineNr">1507 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1508" class="LineNr">1508 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ⏭ "</span> -<span id="L1509" class="LineNr">1509 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1510" class="LineNr">1510 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-l "</span> -<span id="L1511" class="LineNr">1511 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1512" class="LineNr">1512 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" new <a href='data.mu.html#L22'>line</a> "</span> -<span id="L1513" class="LineNr">1513 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1514" class="LineNr">1514 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-u "</span> -<span id="L1515" class="LineNr">1515 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1516" class="LineNr">1516 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" clear "</span> -<span id="L1517" class="LineNr">1517 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1518" class="LineNr">1518 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-n "</span> -<span id="L1519" class="LineNr">1519 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1520" class="LineNr">1520 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" name <a href='data.mu.html#L37'>value</a> "</span> -<span id="L1521" class="LineNr">1521 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1522" class="LineNr">1522 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-d "</span> -<span id="L1523" class="LineNr">1523 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1524" class="LineNr">1524 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" define <a href='data.mu.html#L14'>function</a> "</span> -<span id="L1525" class="LineNr">1525 </span> <span class="muComment"># primitives</span> -<span id="L1526" class="LineNr">1526 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1532'>render-primitives</a> <a href='../../405screen.mu.html#L9'>screen</a>, *nrows, sep-col -<span id="L1527" class="LineNr">1527 </span> <span class="muComment"># currently defined functions</span> -<span id="L1528" class="LineNr">1528 </span> <a href='environment.mu.html#L1582'>render-functions</a> <a href='../../405screen.mu.html#L9'>screen</a>, sep-col, env -<span id="L1529" class="LineNr">1529 </span><span class="Delimiter">}</span> -<span id="L1530" class="LineNr">1530 </span> -<span id="L1531" class="LineNr">1531 </span><span class="muComment"># return value: top-most row written to</span> -<span id="L1532" class="LineNr">1532 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1532'>render-primitives</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), bottom-margin-row: int, right-col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L1533" class="LineNr">1533 </span> <span class="muComment"># render primitives from the bottom of the screen upward</span> -<span id="L1534" class="LineNr">1534 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bottom-margin-row -<span id="L1535" class="LineNr">1535 </span> row <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> -<span id="L1536" class="LineNr">1536 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L1537" class="LineNr">1537 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L1538" class="LineNr">1538 </span> row, col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1555'>render-primitive-group</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"numbers: "</span>, <span class="Constant">"+ - * / sqrt "</span> -<span id="L1539" class="LineNr">1539 </span> row, col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1555'>render-primitive-group</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"arrays: "</span>, <span class="Constant">"len "</span> -<span id="L1540" class="LineNr">1540 </span> row, col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1555'>render-primitive-group</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"files: "</span>, <span class="Constant">"open <a href='../../111read.subx.html#L48'>read</a> <a href='../../132slurp.subx.html#L8'>slurp</a> lines "</span> -<span id="L1541" class="LineNr">1541 </span> row, col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1555'>render-primitive-group</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"misc: "</span>, <span class="Constant">"dup swap "</span> <span class="muComment"># hack: keep these at the right of the bottom row</span> -<span id="L1542" class="LineNr">1542 </span> row, col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1555'>render-primitive-group</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"screens: "</span>, <span class="Constant">"fake-screen print move up down left right "</span> -<span id="L1543" class="LineNr">1543 </span> <span class="muComment"># finally print heading up top</span> -<span id="L1544" class="LineNr">1544 </span> row <span class="SpecialChar"><-</span> decrement -<span id="L1545" class="LineNr">1545 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, <span class="Constant">1</span> -<span id="L1546" class="LineNr">1546 </span> <a href='../../405screen.mu.html#L537'>start-bold</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1547" class="LineNr">1547 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"primitives:"</span> -<span id="L1548" class="LineNr">1548 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1549" class="LineNr">1549 </span> <span class="PreProc">return</span> row -<span id="L1550" class="LineNr">1550 </span><span class="Delimiter">}</span> -<span id="L1551" class="LineNr">1551 </span> -<span id="L1552" class="LineNr">1552 </span><span class="muComment"># start at row, col and print the given strings</span> -<span id="L1553" class="LineNr">1553 </span><span class="muComment"># move up one row if there isn't enough room before right-col</span> -<span id="L1554" class="LineNr">1554 </span><span class="muComment"># return row, col printed until</span> -<span id="L1555" class="LineNr">1555 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1555'>render-primitive-group</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _row: int, _col: int, right-col: int, _heading: (addr array byte), _contents: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L1556" class="LineNr">1556 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _row -<span id="L1557" class="LineNr">1557 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _col -<span id="L1558" class="LineNr">1558 </span> <span class="muComment"># decrement row if necessary</span> -<span id="L1559" class="LineNr">1559 </span> <span class="PreProc">var</span> new-col/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy col -<span id="L1560" class="LineNr">1560 </span> <span class="PreProc">var</span> heading/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _heading -<span id="L1561" class="LineNr">1561 </span> <span class="PreProc">var</span> len1/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> length heading -<span id="L1562" class="LineNr">1562 </span> new-col <span class="SpecialChar"><-</span> add len1 -<span id="L1563" class="LineNr">1563 </span> <span class="PreProc">var</span> contents/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _contents -<span id="L1564" class="LineNr">1564 </span> <span class="PreProc">var</span> len2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> length contents -<span id="L1565" class="LineNr">1565 </span> new-col <span class="SpecialChar"><-</span> add len2 -<span id="L1566" class="LineNr">1566 </span> <span class="PreProc">var</span> bound/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy right-col -<span id="L1567" class="LineNr">1567 </span> bound <span class="SpecialChar"><-</span> decrement -<span id="L1568" class="LineNr">1568 </span> <span class="Delimiter">{</span> -<span id="L1569" class="LineNr">1569 </span> compare new-col, bound -<span id="L1570" class="LineNr">1570 </span> <span class="PreProc">break-if-<=</span> -<span id="L1571" class="LineNr">1571 </span> row <span class="SpecialChar"><-</span> decrement -<span id="L1572" class="LineNr">1572 </span> col <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L1573" class="LineNr">1573 </span> <span class="Delimiter">}</span> -<span id="L1574" class="LineNr">1574 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L1575" class="LineNr">1575 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xf6</span>, <span class="Constant">7</span> -<span id="L1576" class="LineNr">1576 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, heading -<span id="L1577" class="LineNr">1577 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1578" class="LineNr">1578 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, contents -<span id="L1579" class="LineNr">1579 </span> <span class="PreProc">return</span> row, new-col -<span id="L1580" class="LineNr">1580 </span><span class="Delimiter">}</span> -<span id="L1581" class="LineNr">1581 </span> -<span id="L1582" class="LineNr">1582 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1582'>render-functions</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), right-col: int, _env: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="Delimiter">{</span> -<span id="L1583" class="LineNr">1583 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L1584" class="LineNr">1584 </span> <span class="PreProc">var</span> dummy-col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy right-col -<span id="L1585" class="LineNr">1585 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> copy _env -<span id="L1586" class="LineNr">1586 </span> <span class="PreProc">var</span> functions/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> env, functions -<span id="L1587" class="LineNr">1587 </span> <span class="Delimiter">{</span> -<span id="L1588" class="LineNr">1588 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *functions -<span id="L1589" class="LineNr">1589 </span> compare curr, <span class="Constant">0</span> -<span id="L1590" class="LineNr">1590 </span> <span class="PreProc">break-if-=</span> -<span id="L1591" class="LineNr">1591 </span> row, dummy-col <span class="SpecialChar"><-</span> <a href='environment.mu.html#L1600'>render-function-right-aligned</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, right-col, curr -<span id="L1592" class="LineNr">1592 </span> functions <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L1593" class="LineNr">1593 </span> row <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># inter-function-margin</span> -<span id="L1594" class="LineNr">1594 </span> <span class="PreProc">loop</span> -<span id="L1595" class="LineNr">1595 </span> <span class="Delimiter">}</span> -<span id="L1596" class="LineNr">1596 </span><span class="Delimiter">}</span> -<span id="L1597" class="LineNr">1597 </span> -<span id="L1598" class="LineNr">1598 </span><span class="muComment"># print function starting at row, right-aligned before right-col</span> -<span id="L1599" class="LineNr">1599 </span><span class="muComment"># return row, col printed until</span> -<span id="L1600" class="LineNr">1600 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1600'>render-function-right-aligned</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, right-col: int, f: (addr <a href='data.mu.html#L14'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L1601" class="LineNr">1601 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy right-col -<span id="L1602" class="LineNr">1602 </span> col <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> <span class="muComment"># function-right-margin</span> -<span id="L1603" class="LineNr">1603 </span> <span class="PreProc">var</span> col2/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy col -<span id="L1604" class="LineNr">1604 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='data.mu.html#L559'>function-width</a> f -<span id="L1605" class="LineNr">1605 </span> col <span class="SpecialChar"><-</span> subtract width -<span id="L1606" class="LineNr">1606 </span> <span class="PreProc">var</span> new-row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy row -<span id="L1607" class="LineNr">1607 </span> <span class="PreProc">var</span> height/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='data.mu.html#L597'>function-height</a> f -<span id="L1608" class="LineNr">1608 </span> new-row <span class="SpecialChar"><-</span> add height -<span id="L1609" class="LineNr">1609 </span> new-row <span class="SpecialChar"><-</span> decrement -<span id="L1610" class="LineNr">1610 </span> col <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> <span class="muComment"># function-left-padding</span> -<span id="L1611" class="LineNr">1611 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf7</span> -<span id="L1612" class="LineNr">1612 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, new-row, col2 -<span id="L1613" class="LineNr">1613 </span> col <span class="SpecialChar"><-</span> add <span class="Constant">1</span> -<span id="L1614" class="LineNr">1614 </span><span class="CommentedCode">#? var dummy/eax: grapheme <- read-key-from-real-keyboard</span> -<span id="L1615" class="LineNr">1615 </span> <a href='environment.mu.html#L1625'>render-function</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, f -<span id="L1616" class="LineNr">1616 </span> new-row <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># function-bottom-margin</span> -<span id="L1617" class="LineNr">1617 </span> col <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> <span class="muComment"># function-left-padding</span> -<span id="L1618" class="LineNr">1618 </span> col <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> <span class="muComment"># function-left-margin</span> -<span id="L1619" class="LineNr">1619 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1620" class="LineNr">1620 </span> <span class="PreProc">return</span> new-row, col -<span id="L1621" class="LineNr">1621 </span><span class="Delimiter">}</span> -<span id="L1622" class="LineNr">1622 </span> -<span id="L1623" class="LineNr">1623 </span><span class="muComment"># render function starting at row, col</span> -<span id="L1624" class="LineNr">1624 </span><span class="muComment"># only single-line functions supported for now</span> -<span id="L1625" class="LineNr">1625 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1625'>render-function</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int, _f: (addr <a href='data.mu.html#L14'>function</a>) <span class="Delimiter">{</span> -<span id="L1626" class="LineNr">1626 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f -<span id="L1627" class="LineNr">1627 </span> <span class="PreProc">var</span> args/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, args -<span id="L1628" class="LineNr">1628 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L1629" class="LineNr">1629 </span> <a href='word.mu.html#L273'>print-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, args -<span id="L1630" class="LineNr">1630 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L1631" class="LineNr">1631 </span> <span class="PreProc">var</span> name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *name-ah -<span id="L1632" class="LineNr">1632 </span> <a href='../../405screen.mu.html#L537'>start-bold</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1633" class="LineNr">1633 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, name -<span id="L1634" class="LineNr">1634 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L1635" class="LineNr">1635 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf7</span> -<span id="L1636" class="LineNr">1636 </span> increment row -<span id="L1637" class="LineNr">1637 </span> add-to col, <span class="Constant">2</span> -<span id="L1638" class="LineNr">1638 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L1639" class="LineNr">1639 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"≡ "</span> -<span id="L1640" class="LineNr">1640 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, body -<span id="L1641" class="LineNr">1641 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah -<span id="L1642" class="LineNr">1642 </span> <span class="PreProc">var</span> body-words-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> body, data -<span id="L1643" class="LineNr">1643 </span> <a href='word.mu.html#L260'>print-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, body-words-ah -<span id="L1644" class="LineNr">1644 </span><span class="Delimiter">}</span> -<span id="L1645" class="LineNr">1645 </span> -<span id="L1646" class="LineNr">1646 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1646'>real-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L1647" class="LineNr">1647 </span> <span class="muComment"># if g == newline return true</span> -<span id="L1648" class="LineNr">1648 </span> compare g, <span class="Constant">0xa</span> -<span id="L1649" class="LineNr">1649 </span> <span class="Delimiter">{</span> -<span id="L1650" class="LineNr">1650 </span> <span class="PreProc">break-if-!=</span> -<span id="L1651" class="LineNr">1651 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L1652" class="LineNr">1652 </span> <span class="Delimiter">}</span> -<span id="L1653" class="LineNr">1653 </span> <span class="muComment"># if g == tab return true</span> -<span id="L1654" class="LineNr">1654 </span> compare g, <span class="Constant">9</span> -<span id="L1655" class="LineNr">1655 </span> <span class="Delimiter">{</span> -<span id="L1656" class="LineNr">1656 </span> <span class="PreProc">break-if-!=</span> -<span id="L1657" class="LineNr">1657 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L1658" class="LineNr">1658 </span> <span class="Delimiter">}</span> -<span id="L1659" class="LineNr">1659 </span> <span class="muComment"># if g < 32 return false</span> -<span id="L1660" class="LineNr">1660 </span> compare g, <span class="Constant">0x20</span> -<span id="L1661" class="LineNr">1661 </span> <span class="Delimiter">{</span> -<span id="L1662" class="LineNr">1662 </span> <span class="PreProc">break-if->=</span> -<span id="L1663" class="LineNr">1663 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L1664" class="LineNr">1664 </span> <span class="Delimiter">}</span> -<span id="L1665" class="LineNr">1665 </span> <span class="muComment"># if g <= 255 return true</span> -<span id="L1666" class="LineNr">1666 </span> compare g, <span class="Constant">0xff</span> -<span id="L1667" class="LineNr">1667 </span> <span class="Delimiter">{</span> -<span id="L1668" class="LineNr">1668 </span> <span class="PreProc">break-if-></span> -<span id="L1669" class="LineNr">1669 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L1670" class="LineNr">1670 </span> <span class="Delimiter">}</span> -<span id="L1671" class="LineNr">1671 </span> <span class="muComment"># if (g&0xff == Esc) it's an escape sequence</span> -<span id="L1672" class="LineNr">1672 </span> and-with g, <span class="Constant">0xff</span> -<span id="L1673" class="LineNr">1673 </span> compare g, <span class="Constant">0x1b</span> <span class="muComment"># Esc</span> -<span id="L1674" class="LineNr">1674 </span> <span class="Delimiter">{</span> -<span id="L1675" class="LineNr">1675 </span> <span class="PreProc">break-if-!=</span> -<span id="L1676" class="LineNr">1676 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L1677" class="LineNr">1677 </span> <span class="Delimiter">}</span> -<span id="L1678" class="LineNr">1678 </span> <span class="muComment"># otherwise return true</span> -<span id="L1679" class="LineNr">1679 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L1680" class="LineNr">1680 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/int-stack.mu.html b/html/apps/tile/int-stack.mu.html deleted file mode 100644 index d006df2b..00000000 --- a/html/apps/tile/int-stack.mu.html +++ /dev/null @@ -1,125 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/int-stack.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/int-stack.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/int-stack.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='int-stack.mu.html#L1'>int-stack</a> <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> data: (handle array int) -<span id="L3" class="LineNr"> 3 </span> <a href='../../203stack.subx.html#L338'>top</a>: int -<span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L6'>initialize-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L9" class="LineNr"> 9 </span> populate d, n -<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L11" class="LineNr">11 </span> copy-to *top, <span class="Constant">0</span> -<span id="L12" class="LineNr">12 </span><span class="Delimiter">}</span> -<span id="L13" class="LineNr">13 </span> -<span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L14'>clear-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="Delimiter">{</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L17" class="LineNr">17 </span> copy-to *top, <span class="Constant">0</span> -<span id="L18" class="LineNr">18 </span><span class="Delimiter">}</span> -<span id="L19" class="LineNr">19 </span> -<span id="L20" class="LineNr">20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L20'>push-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>), _val: int <span class="Delimiter">{</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _val -<span id="L28" class="LineNr">28 </span> copy-to *dest-addr, val -<span id="L29" class="LineNr">29 </span> add-to *top-addr, <span class="Constant">1</span> -<span id="L30" class="LineNr">30 </span><span class="Delimiter">}</span> -<span id="L31" class="LineNr">31 </span> -<span id="L32" class="LineNr">32 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L32'>pop-int-stack</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L35" class="LineNr">35 </span> <span class="Delimiter">{</span> -<span id="L36" class="LineNr">36 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L37" class="LineNr">37 </span> <span class="PreProc">break-if-></span> -<span id="L38" class="LineNr">38 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L39" class="LineNr">39 </span> <span class="Delimiter">}</span> -<span id="L40" class="LineNr">40 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L43" class="LineNr">43 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L45" class="LineNr">45 </span> <span class="PreProc">return</span> *result-addr -<span id="L46" class="LineNr">46 </span><span class="Delimiter">}</span> -<span id="L47" class="LineNr">47 </span> -<span id="L48" class="LineNr">48 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L48'>int-stack-empty?</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L50" class="LineNr">50 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L51" class="LineNr">51 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L52" class="LineNr">52 </span> <span class="Delimiter">{</span> -<span id="L53" class="LineNr">53 </span> <span class="PreProc">break-if-!=</span> -<span id="L54" class="LineNr">54 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L55" class="LineNr">55 </span> <span class="Delimiter">}</span> -<span id="L56" class="LineNr">56 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L57" class="LineNr">57 </span><span class="Delimiter">}</span> -<span id="L58" class="LineNr">58 </span> -<span id="L59" class="LineNr">59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='int-stack.mu.html#L59'>int-stack-length</a></span> _self: (addr <a href='int-stack.mu.html#L1'>int-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L60" class="LineNr">60 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='int-stack.mu.html#L1'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L62" class="LineNr">62 </span> <span class="PreProc">return</span> *top-addr -<span id="L63" class="LineNr">63 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/main.mu.html b/html/apps/tile/main.mu.html deleted file mode 100644 index a0552b51..00000000 --- a/html/apps/tile/main.mu.html +++ /dev/null @@ -1,207 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/main.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/main.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/main.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L1'>main</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args -<span id="L4" class="LineNr"> 4 </span> compare len, <span class="Constant">2</span> -<span id="L5" class="LineNr"> 5 </span> <span class="Delimiter">{</span> -<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">break-if-!=</span> -<span id="L7" class="LineNr"> 7 </span> <span class="muComment"># if single arg is 'test', run tests</span> -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"test"</span> -<span id="L10" class="LineNr"> 10 </span> compare tmp2, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">break-if-=</span> -<span id="L13" class="LineNr"> 13 </span> run-tests -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># TODO: get at Num-test-failures somehow</span> -<span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">}</span> -<span id="L16" class="LineNr"> 16 </span> <span class="muComment"># if single arg is 'screen', run in full-screen mode</span> -<span id="L17" class="LineNr"> 17 </span> tmp2 <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"screen"</span> -<span id="L18" class="LineNr"> 18 </span> compare tmp2, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">{</span> -<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">break-if-=</span> -<span id="L21" class="LineNr"> 21 </span> <a href='main.mu.html#L49'>interactive</a> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> -<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># if single arg is 'type', run in typewriter mode</span> -<span id="L25" class="LineNr"> 25 </span> tmp2 <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"type"</span> -<span id="L26" class="LineNr"> 26 </span> compare tmp2, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">break-if-=</span> -<span id="L29" class="LineNr"> 29 </span> <a href='main.mu.html#L99'>repl</a> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">}</span> -<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># if single arg is 'test' ...</span> -<span id="L33" class="LineNr"> 33 </span> tmp2 <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"test2"</span> -<span id="L34" class="LineNr"> 34 </span> compare tmp2, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">break-if-=</span> -<span id="L37" class="LineNr"> 37 </span> <a href='main.mu.html#L68'>test</a> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">}</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> -<span id="L41" class="LineNr"> 41 </span> <span class="muComment"># otherwise error message</span> -<span id="L42" class="LineNr"> 42 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"usage:\n"</span> -<span id="L43" class="LineNr"> 43 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" to run tests: tile test\n"</span> -<span id="L44" class="LineNr"> 44 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" full-screen mode: tile screen\n"</span> -<span id="L45" class="LineNr"> 45 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" regular REPL: tile type\n"</span> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">return</span> <span class="Constant">1</span> -<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> -<span id="L48" class="LineNr"> 48 </span> -<span id="L49" class="LineNr"> 49 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L49'>interactive</a></span> <span class="Delimiter">{</span> -<span id="L50" class="LineNr"> 50 </span> <a href='../../304screen.subx.html#L6'>enable-screen-grid-mode</a> -<span id="L51" class="LineNr"> 51 </span> <a href='../../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> env-storage: <a href='environment.mu.html#L1'>environment</a> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> address env-storage -<span id="L54" class="LineNr"> 54 </span> <a href='environment.mu.html#L11'>initialize-environment</a> env -<span id="L55" class="LineNr"> 55 </span> <a href='environment.mu.html#L41'>draw-screen</a> env -<span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">{</span> -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> -<span id="L58" class="LineNr"> 58 </span> compare key, <span class="Constant">0x11</span> <span class="muComment"># 'ctrl-q'</span> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">break-if-=</span> -<span id="L60" class="LineNr"> 60 </span> <a href='environment.mu.html#L66'>process</a> env, key -<span id="L61" class="LineNr"> 61 </span> <a href='environment.mu.html#L977'>render</a> env -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">loop</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">}</span> -<span id="L64" class="LineNr"> 64 </span> <a href='../../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L65" class="LineNr"> 65 </span> <a href='../../304screen.subx.html#L24'>enable-screen-type-mode</a> -<span id="L66" class="LineNr"> 66 </span><span class="Delimiter">}</span> -<span id="L67" class="LineNr"> 67 </span> -<span id="L68" class="LineNr"> 68 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L68'>test</a></span> <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> env-storage: <a href='environment.mu.html#L1'>environment</a> -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> address env-storage -<span id="L71" class="LineNr"> 71 </span> <a href='environment.mu.html#L53'>initialize-environment-with-fake-screen</a> env, <span class="Constant">0x20</span>, <span class="Constant">0xa0</span> -<span id="L72" class="LineNr"> 72 </span> <a href='main.mu.html#L85'>process-all</a> env, <span class="Constant">"3 3 fake-screen =s"</span> -<span id="L73" class="LineNr"> 73 </span> <a href='environment.mu.html#L66'>process</a> env, <span class="Constant">0xc</span> <span class="muComment"># ctrl-l</span> -<span id="L74" class="LineNr"> 74 </span> <a href='main.mu.html#L85'>process-all</a> env, <span class="Constant">"s 1 down 1 right"</span> -<span id="L75" class="LineNr"> 75 </span> <a href='environment.mu.html#L66'>process</a> env, <span class="Constant">4</span> <span class="muComment"># ctrl-d: start defining function</span> -<span id="L76" class="LineNr"> 76 </span> <a href='main.mu.html#L85'>process-all</a> env, <span class="Constant">"foo"</span> -<span id="L77" class="LineNr"> 77 </span> <a href='environment.mu.html#L66'>process</a> env, <span class="Constant">0xa</span> <span class="muComment"># newline: define function</span> -<span id="L78" class="LineNr"> 78 </span> <a href='environment.mu.html#L66'>process</a> env, <span class="Constant">0x435b1b</span> <span class="muComment"># right-arrow</span> -<span id="L79" class="LineNr"> 79 </span><span class="CommentedCode">#? process env, 5 # ctrl-e: end of line</span> -<span id="L80" class="LineNr"> 80 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"==\n"</span> -<span id="L81" class="LineNr"> 81 </span> <a href='environment.mu.html#L66'>process</a> env, <span class="Constant">0xa</span> <span class="muComment"># newline: expand</span> -<span id="L82" class="LineNr"> 82 </span> <a href='environment.mu.html#L977'>render</a> env -<span id="L83" class="LineNr"> 83 </span><span class="Delimiter">}</span> -<span id="L84" class="LineNr"> 84 </span> -<span id="L85" class="LineNr"> 85 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L85'>process-all</a></span> env: (addr <a href='environment.mu.html#L1'>environment</a>), cmds: (addr array byte) <span class="Delimiter">{</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> cmds-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> cmds-stream-a/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address cmds-stream -<span id="L88" class="LineNr"> 88 </span> <a href='../../108write.subx.html#L24'>write</a> cmds-stream-a, cmds -<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">{</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> cmds-stream-a -<span id="L91" class="LineNr"> 91 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">break-if-!=</span> -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> cmds-stream-a -<span id="L94" class="LineNr"> 94 </span> <a href='environment.mu.html#L66'>process</a> env, g -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">loop</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">}</span> -<span id="L97" class="LineNr"> 97 </span><span class="Delimiter">}</span> -<span id="L98" class="LineNr"> 98 </span> -<span id="L99" class="LineNr"> 99 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L99'>repl</a></span> <span class="Delimiter">{</span> -<span id="L100" class="LineNr">100 </span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="muComment"># prompt</span> -<span id="L102" class="LineNr">102 </span> <a href='../../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"> "</span> -<span id="L103" class="LineNr">103 </span> <span class="muComment"># read</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage -<span id="L106" class="LineNr">106 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> <a href='data.mu.html#L22'>line</a> -<span id="L107" class="LineNr">107 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> <a href='data.mu.html#L22'>line</a> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> <a href='data.mu.html#L22'>line</a> -<span id="L109" class="LineNr">109 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L110" class="LineNr">110 </span> <span class="PreProc">break-if-!=</span> -<span id="L111" class="LineNr">111 </span> <span class="muComment"># parse</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> env-storage: <a href='environment.mu.html#L1'>environment</a> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L1'>environment</a>) <span class="SpecialChar"><-</span> address env-storage -<span id="L114" class="LineNr">114 </span> <a href='environment.mu.html#L11'>initialize-environment</a> env -<span id="L115" class="LineNr">115 </span> <span class="Delimiter">{</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> <a href='data.mu.html#L22'>line</a> -<span id="L117" class="LineNr">117 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if-!=</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> <a href='data.mu.html#L22'>line</a> -<span id="L120" class="LineNr">120 </span> <a href='environment.mu.html#L66'>process</a> env, g -<span id="L121" class="LineNr">121 </span> <span class="PreProc">loop</span> -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="muComment"># eval</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L3'>value-stack</a> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> address stack-storage -<span id="L126" class="LineNr">126 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack, <span class="Constant">0x10</span> -<span id="L127" class="LineNr">127 </span> <a href='environment.mu.html#L964'>evaluate-environment</a> env, stack -<span id="L128" class="LineNr">128 </span> <span class="muComment"># print</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L108'>value-stack-empty?</a> stack -<span id="L130" class="LineNr">130 </span> <span class="Delimiter">{</span> -<span id="L131" class="LineNr">131 </span> compare empty?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if-!=</span> -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> stack -<span id="L134" class="LineNr">134 </span> <a href='../../412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <span class="Constant">0</span>, <a href='data.mu.html#L70'>result</a>, <span class="Constant">3</span> -<span id="L135" class="LineNr">135 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L136" class="LineNr">136 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"width: "</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../412print-float-decimal.mu.html#L511'>float-size</a> <a href='data.mu.html#L70'>result</a>, <span class="Constant">3</span> -<span id="L138" class="LineNr">138 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, width -<span id="L139" class="LineNr">139 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> -<span id="L141" class="LineNr">141 </span> <span class="muComment">#</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">loop</span> -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">}</span> -<span id="L144" class="LineNr">144 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/word.mu.html b/html/apps/tile/word.mu.html deleted file mode 100644 index 681865c4..00000000 --- a/html/apps/tile/word.mu.html +++ /dev/null @@ -1,663 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/word.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/word.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/word.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L1'>initialize-word</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L4" class="LineNr"> 4 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah -<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L6" class="LineNr"> 6 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> data -<span id="L7" class="LineNr"> 7 </span><span class="Delimiter">}</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment">## some helpers for creating words. mostly for tests</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L11'>initialize-word-with</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L14" class="LineNr"> 14 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L16" class="LineNr"> 16 </span> <a href='gap-buffer.mu.html#L15'>initialize-gap-buffer-with</a> data, s -<span id="L17" class="LineNr"> 17 </span><span class="Delimiter">}</span> -<span id="L18" class="LineNr"> 18 </span> -<span id="L19" class="LineNr"> 19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L19'>allocate-word-with</a></span> _out: (addr handle <a href='data.mu.html#L30'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _out -<span id="L21" class="LineNr"> 21 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> out -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out -<span id="L23" class="LineNr"> 23 </span> <a href='word.mu.html#L11'>initialize-word-with</a> out-addr, s -<span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span> -<span id="L25" class="LineNr"> 25 </span> -<span id="L26" class="LineNr"> 26 </span><span class="muComment"># just for tests for now</span> -<span id="L27" class="LineNr"> 27 </span><span class="muComment"># TODO: handle existing next</span> -<span id="L28" class="LineNr"> 28 </span><span class="muComment"># one implication of handles: append must take a handle</span> -<span id="L29" class="LineNr"> 29 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L29'>append-word-with</a></span> self-h: (handle <a href='data.mu.html#L30'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> self-h -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L32" class="LineNr"> 32 </span> <a href='word.mu.html#L19'>allocate-word-with</a> next-ah, s -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev -<span id="L35" class="LineNr"> 35 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> self-h, prev-ah -<span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> -<span id="L37" class="LineNr"> 37 </span> -<span id="L38" class="LineNr"> 38 </span><span class="muComment"># just for tests for now</span> -<span id="L39" class="LineNr"> 39 </span><span class="muComment"># TODO: handle existing prev</span> -<span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L40'>prepend-word-with</a></span> self-h: (handle <a href='data.mu.html#L30'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> self-h -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, prev -<span id="L43" class="LineNr"> 43 </span> <a href='word.mu.html#L19'>allocate-word-with</a> prev-ah, s -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> prev/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-ah -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> prev, next -<span id="L46" class="LineNr"> 46 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> self-h, next-ah -<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> -<span id="L48" class="LineNr"> 48 </span> -<span id="L49" class="LineNr"> 49 </span><span class="muComment">## real primitives</span> -<span id="L50" class="LineNr"> 50 </span> -<span id="L51" class="LineNr"> 51 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L51'>move-word-contents</a></span> _src-ah: (addr handle <a href='data.mu.html#L30'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> _src/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L58" class="LineNr"> 58 </span> <a href='word.mu.html#L200'>cursor-to-start</a> src -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, scalar-data -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> src-data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-data-ah -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> src-stack/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-data, right -<span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> src-stack -<span id="L64" class="LineNr"> 64 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-!=</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> src-stack -<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? print-grapheme 0, g</span> -<span id="L68" class="LineNr"> 68 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L69" class="LineNr"> 69 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> dest, g -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">loop</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">}</span> -<span id="L72" class="LineNr"> 72 </span><span class="Delimiter">}</span> -<span id="L73" class="LineNr"> 73 </span> -<span id="L74" class="LineNr"> 74 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L74'>copy-word-contents-before-cursor</a></span> _src-ah: (addr handle <a href='data.mu.html#L30'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, scalar-data -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> src-data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-data-ah -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> src-stack/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-data, left -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> src-stack-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-stack, data -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> _src-stack-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-stack-data-ah -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> src-stack-data/<span class="Constant">edx</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _src-stack-data -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-stack, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> -<span id="L89" class="LineNr"> 89 </span> compare i, *top-addr -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if->=</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index src-stack-data, i -<span id="L92" class="LineNr"> 92 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> dest, *g -<span id="L93" class="LineNr"> 93 </span> i <span class="SpecialChar"><-</span> increment -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> -<span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> -<span id="L97" class="LineNr"> 97 </span> -<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L98'>word-equal?</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> data, s -<span id="L103" class="LineNr">103 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> -<span id="L106" class="LineNr">106 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L106'>word-length</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L91'>gap-buffer-length</a> data -<span id="L111" class="LineNr">111 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> -<span id="L113" class="LineNr">113 </span> -<span id="L114" class="LineNr">114 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L114'>first-word</a></span> _in: (addr handle <a href='data.mu.html#L30'>word</a>), out: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _in -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> prev/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> prev <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, prev -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *prev -<span id="L121" class="LineNr">121 </span> compare curr, <span class="Constant">0</span> -<span id="L122" class="LineNr">122 </span> <span class="PreProc">break-if-=</span> -<span id="L123" class="LineNr">123 </span> copy-object prev, curr-ah -<span id="L124" class="LineNr">124 </span> <span class="PreProc">loop</span> -<span id="L125" class="LineNr">125 </span> <span class="Delimiter">}</span> -<span id="L126" class="LineNr">126 </span> copy-object curr-ah, out -<span id="L127" class="LineNr">127 </span><span class="Delimiter">}</span> -<span id="L128" class="LineNr">128 </span> -<span id="L129" class="LineNr">129 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L129'>final-word</a></span> _in: (addr handle <a href='data.mu.html#L30'>word</a>), out: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> curr-h: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address curr-h -<span id="L132" class="LineNr">132 </span> copy-object _in, curr-ah -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> next/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L135" class="LineNr">135 </span> <span class="Delimiter">{</span> -<span id="L136" class="LineNr">136 </span> curr <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L137" class="LineNr">137 </span> next <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L138" class="LineNr">138 </span> curr <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next -<span id="L139" class="LineNr">139 </span> compare curr, <span class="Constant">0</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">break-if-=</span> -<span id="L141" class="LineNr">141 </span> copy-object next, curr-ah -<span id="L142" class="LineNr">142 </span> <span class="PreProc">loop</span> -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">}</span> -<span id="L144" class="LineNr">144 </span> copy-object curr-ah, out -<span id="L145" class="LineNr">145 </span><span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L147'>first-grapheme</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L177'>first-grapheme-in-gap-buffer</a> data -<span id="L152" class="LineNr">152 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L153" class="LineNr">153 </span><span class="Delimiter">}</span> -<span id="L154" class="LineNr">154 </span> -<span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L155'>grapheme-before-cursor</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L207'>grapheme-before-cursor-in-gap-buffer</a> data -<span id="L160" class="LineNr">160 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L161" class="LineNr">161 </span><span class="Delimiter">}</span> -<span id="L162" class="LineNr">162 </span> -<span id="L163" class="LineNr">163 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L163'>add-grapheme-to-word</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>), c: grapheme <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L167" class="LineNr">167 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> data, c -<span id="L168" class="LineNr">168 </span><span class="Delimiter">}</span> -<span id="L169" class="LineNr">169 </span> -<span id="L170" class="LineNr">170 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L170'>cursor-at-start?</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L125'>gap-at-start?</a> data -<span id="L175" class="LineNr">175 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L176" class="LineNr">176 </span><span class="Delimiter">}</span> -<span id="L177" class="LineNr">177 </span> -<span id="L178" class="LineNr">178 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L178'>cursor-at-end?</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L132'>gap-at-end?</a> data -<span id="L183" class="LineNr">183 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> -<span id="L185" class="LineNr">185 </span> -<span id="L186" class="LineNr">186 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L186'>cursor-left</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> data -<span id="L191" class="LineNr">191 </span><span class="Delimiter">}</span> -<span id="L192" class="LineNr">192 </span> -<span id="L193" class="LineNr">193 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L193'>cursor-right</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> data -<span id="L198" class="LineNr">198 </span><span class="Delimiter">}</span> -<span id="L199" class="LineNr">199 </span> -<span id="L200" class="LineNr">200 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L200'>cursor-to-start</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L204" class="LineNr">204 </span> <a href='gap-buffer.mu.html#L109'>gap-to-start</a> data -<span id="L205" class="LineNr">205 </span><span class="Delimiter">}</span> -<span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L207'>cursor-to-end</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L211" class="LineNr">211 </span> <a href='gap-buffer.mu.html#L117'>gap-to-end</a> data -<span id="L212" class="LineNr">212 </span><span class="Delimiter">}</span> -<span id="L213" class="LineNr">213 </span> -<span id="L214" class="LineNr">214 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L214'>cursor-index</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L169'>gap-index</a> data -<span id="L219" class="LineNr">219 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span> -<span id="L222" class="LineNr">222 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L222'>delete-before-cursor</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L226" class="LineNr">226 </span> <a href='gap-buffer.mu.html#L223'>delete-before-gap</a> data -<span id="L227" class="LineNr">227 </span><span class="Delimiter">}</span> -<span id="L228" class="LineNr">228 </span> -<span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L229'>pop-after-cursor</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L229'>pop-after-gap</a> data -<span id="L234" class="LineNr">234 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span> -<span id="L236" class="LineNr">236 </span> -<span id="L237" class="LineNr">237 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L237'>delete-next</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L241" class="LineNr">241 </span> compare next, <span class="Constant">0</span> -<span id="L242" class="LineNr">242 </span> <span class="PreProc">break-if-=</span> -<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> next-next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, next -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev -<span id="L245" class="LineNr">245 </span> copy-object next-next-ah, next-ah -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> new-next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-next-ah -<span id="L247" class="LineNr">247 </span> compare new-next, <span class="Constant">0</span> -<span id="L248" class="LineNr">248 </span> <span class="PreProc">break-if-=</span> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-next, prev -<span id="L250" class="LineNr">250 </span> copy-object self-ah, dest -<span id="L251" class="LineNr">251 </span><span class="Delimiter">}</span> -<span id="L252" class="LineNr">252 </span> -<span id="L253" class="LineNr">253 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L253'>print-word</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L257" class="LineNr">257 </span> <a href='gap-buffer.mu.html#L83'>render-gap-buffer</a> <a href='../../405screen.mu.html#L9'>screen</a>, data -<span id="L258" class="LineNr">258 </span><span class="Delimiter">}</span> -<span id="L259" class="LineNr">259 </span> -<span id="L260" class="LineNr">260 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L260'>print-words</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _words-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> words-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _words-ah -<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> words-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *words-ah -<span id="L263" class="LineNr">263 </span> compare words-a, <span class="Constant">0</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">break-if-=</span> -<span id="L265" class="LineNr">265 </span> <span class="muComment"># print</span> -<span id="L266" class="LineNr">266 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, words-a -<span id="L267" class="LineNr">267 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L268" class="LineNr">268 </span> <span class="muComment"># recurse</span> -<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> words-a, next -<span id="L270" class="LineNr">270 </span> <a href='word.mu.html#L260'>print-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah -<span id="L271" class="LineNr">271 </span><span class="Delimiter">}</span> -<span id="L272" class="LineNr">272 </span> -<span id="L273" class="LineNr">273 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L273'>print-words-in-reverse</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _words-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> words-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _words-ah -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> words-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *words-ah -<span id="L276" class="LineNr">276 </span> compare words-a, <span class="Constant">0</span> -<span id="L277" class="LineNr">277 </span> <span class="PreProc">break-if-=</span> -<span id="L278" class="LineNr">278 </span> <span class="muComment"># recurse</span> -<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> words-a, next -<span id="L280" class="LineNr">280 </span> <a href='word.mu.html#L273'>print-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah -<span id="L281" class="LineNr">281 </span> <span class="muComment"># print</span> -<span id="L282" class="LineNr">282 </span> <a href='word.mu.html#L253'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, words-a -<span id="L283" class="LineNr">283 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L284" class="LineNr">284 </span><span class="Delimiter">}</span> -<span id="L285" class="LineNr">285 </span> -<span id="L286" class="LineNr">286 </span><span class="muComment"># Gotcha with some word operations: ensure dest-ah isn't in the middle of some</span> -<span id="L287" class="LineNr">287 </span><span class="muComment"># existing chain of words. There are two pointers to patch, and you'll forget</span> -<span id="L288" class="LineNr">288 </span><span class="muComment"># to do the other one.</span> -<span id="L289" class="LineNr">289 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L289'>copy-words</a></span> _src-ah: (addr handle <a href='data.mu.html#L30'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> src-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L292" class="LineNr">292 </span> compare src-a, <span class="Constant">0</span> -<span id="L293" class="LineNr">293 </span> <span class="PreProc">break-if-=</span> -<span id="L294" class="LineNr">294 </span> <span class="muComment"># copy</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L296" class="LineNr">296 </span> <a href='word.mu.html#L371'>copy-word</a> src-a, dest-ah -<span id="L297" class="LineNr">297 </span> <span class="muComment"># recurse</span> -<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> rest: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address rest -<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> next-src-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, next -<span id="L301" class="LineNr">301 </span> <a href='word.mu.html#L289'>copy-words</a> next-src-ah, rest-ah -<span id="L302" class="LineNr">302 </span> <a href='word.mu.html#L487'>chain-words</a> dest-ah, rest-ah -<span id="L303" class="LineNr">303 </span><span class="Delimiter">}</span> -<span id="L304" class="LineNr">304 </span> -<span id="L305" class="LineNr">305 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L305'>copy-words-in-reverse</a></span> _src-ah: (addr handle <a href='data.mu.html#L30'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _src-a -<span id="L309" class="LineNr">309 </span> compare src-a, <span class="Constant">0</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">break-if-=</span> -<span id="L311" class="LineNr">311 </span> <span class="muComment"># recurse</span> -<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> next-src-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, next -<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L314" class="LineNr">314 </span> <a href='word.mu.html#L305'>copy-words-in-reverse</a> next-src-ah, dest-ah -<span id="L315" class="LineNr">315 </span> <span class="muComment">#</span> -<span id="L316" class="LineNr">316 </span> <a href='word.mu.html#L319'>copy-word-at-end</a> src-a, dest-ah -<span id="L317" class="LineNr">317 </span><span class="Delimiter">}</span> -<span id="L318" class="LineNr">318 </span> -<span id="L319" class="LineNr">319 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L319'>copy-word-at-end</a></span> src: (addr <a href='data.mu.html#L30'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L321" class="LineNr">321 </span> <span class="muComment"># if dest is null, copy and return</span> -<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L323" class="LineNr">323 </span> compare dest-a, <span class="Constant">0</span> -<span id="L324" class="LineNr">324 </span> <span class="Delimiter">{</span> -<span id="L325" class="LineNr">325 </span> <span class="PreProc">break-if-!=</span> -<span id="L326" class="LineNr">326 </span> <a href='word.mu.html#L371'>copy-word</a> src, dest-ah -<span id="L327" class="LineNr">327 </span> <span class="PreProc">return</span> -<span id="L328" class="LineNr">328 </span> <span class="Delimiter">}</span> -<span id="L329" class="LineNr">329 </span> <span class="muComment"># copy current word</span> -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> new: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address new -<span id="L332" class="LineNr">332 </span> <a href='word.mu.html#L371'>copy-word</a> src, new-ah -<span id="L333" class="LineNr">333 </span> <span class="muComment"># append it at the end</span> -<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy dest-ah -<span id="L335" class="LineNr">335 </span> <span class="Delimiter">{</span> -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah <span class="muComment"># curr-a guaranteed not to be null</span> -<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-a, next -<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> next-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L339" class="LineNr">339 </span> compare next-a, <span class="Constant">0</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">break-if-=</span> -<span id="L341" class="LineNr">341 </span> curr-ah <span class="SpecialChar"><-</span> copy next-ah -<span id="L342" class="LineNr">342 </span> <span class="PreProc">loop</span> -<span id="L343" class="LineNr">343 </span> <span class="Delimiter">}</span> -<span id="L344" class="LineNr">344 </span> <a href='word.mu.html#L487'>chain-words</a> curr-ah, new-ah -<span id="L345" class="LineNr">345 </span><span class="Delimiter">}</span> -<span id="L346" class="LineNr">346 </span> -<span id="L347" class="LineNr">347 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L347'>append-word-at-end-with</a></span> _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L349" class="LineNr">349 </span> <span class="muComment"># if dest is null, copy and return</span> -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L351" class="LineNr">351 </span> compare dest-a, <span class="Constant">0</span> -<span id="L352" class="LineNr">352 </span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <span class="PreProc">break-if-!=</span> -<span id="L354" class="LineNr">354 </span> <a href='word.mu.html#L19'>allocate-word-with</a> dest-ah, s -<span id="L355" class="LineNr">355 </span> <span class="PreProc">return</span> -<span id="L356" class="LineNr">356 </span> <span class="Delimiter">}</span> -<span id="L357" class="LineNr">357 </span> <span class="muComment"># otherwise append at end</span> -<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy dest-ah -<span id="L359" class="LineNr">359 </span> <span class="Delimiter">{</span> -<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah <span class="muComment"># curr-a guaranteed not to be null</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-a, next -<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> next-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L363" class="LineNr">363 </span> compare next-a, <span class="Constant">0</span> -<span id="L364" class="LineNr">364 </span> <span class="PreProc">break-if-=</span> -<span id="L365" class="LineNr">365 </span> curr-ah <span class="SpecialChar"><-</span> copy next-ah -<span id="L366" class="LineNr">366 </span> <span class="PreProc">loop</span> -<span id="L367" class="LineNr">367 </span> <span class="Delimiter">}</span> -<span id="L368" class="LineNr">368 </span> <a href='word.mu.html#L29'>append-word-with</a> *curr-ah, s -<span id="L369" class="LineNr">369 </span><span class="Delimiter">}</span> -<span id="L370" class="LineNr">370 </span> -<span id="L371" class="LineNr">371 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L371'>copy-word</a></span> _src-a: (addr <a href='data.mu.html#L30'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L373" class="LineNr">373 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest-ah -<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _dest-a -<span id="L376" class="LineNr">376 </span> <a href='word.mu.html#L1'>initialize-word</a> dest-a -<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-a, scalar-data -<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> src-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _src-a -<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, scalar-data -<span id="L380" class="LineNr">380 </span> <a href='gap-buffer.mu.html#L314'>copy-gap-buffer</a> src, dest -<span id="L381" class="LineNr">381 </span><span class="Delimiter">}</span> -<span id="L382" class="LineNr">382 </span> -<span id="L383" class="LineNr">383 </span><span class="muComment"># one implication of handles: append must take a handle</span> -<span id="L384" class="LineNr">384 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L384'>append-word</a></span> _self-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> saved-self-storage: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L386" class="LineNr">386 </span> <span class="PreProc">var</span> saved-self/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address saved-self-storage -<span id="L387" class="LineNr">387 </span> copy-object _self-ah, saved-self -<span id="L388" class="LineNr">388 </span><span class="CommentedCode">#? {</span> -<span id="L389" class="LineNr">389 </span><span class="CommentedCode">#? print-string 0, "self-ah is "</span> -<span id="L390" class="LineNr">390 </span><span class="CommentedCode">#? var foo/eax: int <- copy _self-ah</span> -<span id="L391" class="LineNr">391 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L392" class="LineNr">392 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L393" class="LineNr">393 </span><span class="CommentedCode">#? }</span> -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self-ah -<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> _self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *self-ah -<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> self/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L397" class="LineNr">397 </span><span class="CommentedCode">#? {</span> -<span id="L398" class="LineNr">398 </span><span class="CommentedCode">#? print-string 0, "0: self is "</span> -<span id="L399" class="LineNr">399 </span><span class="CommentedCode">#? var self-ah/eax: (addr handle word) <- copy _self-ah</span> -<span id="L400" class="LineNr">400 </span><span class="CommentedCode">#? var self/eax: (addr word) <- lookup *self-ah</span> -<span id="L401" class="LineNr">401 </span><span class="CommentedCode">#? var foo/eax: int <- copy self</span> -<span id="L402" class="LineNr">402 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L403" class="LineNr">403 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L404" class="LineNr">404 </span><span class="CommentedCode">#? }</span> -<span id="L405" class="LineNr">405 </span> <span class="muComment"># allocate new handle</span> -<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> new: (handle <a href='data.mu.html#L30'>word</a>) -<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address new -<span id="L408" class="LineNr">408 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-ah -<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> new-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> new -<span id="L410" class="LineNr">410 </span> <a href='word.mu.html#L1'>initialize-word</a> new-addr -<span id="L411" class="LineNr">411 </span><span class="CommentedCode">#? {</span> -<span id="L412" class="LineNr">412 </span><span class="CommentedCode">#? print-string 0, "new is "</span> -<span id="L413" class="LineNr">413 </span><span class="CommentedCode">#? var foo/eax: int <- copy new-addr</span> -<span id="L414" class="LineNr">414 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L415" class="LineNr">415 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L416" class="LineNr">416 </span><span class="CommentedCode">#? }</span> -<span id="L417" class="LineNr">417 </span> <span class="muComment"># new->next = self->next</span> -<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L419" class="LineNr">419 </span><span class="CommentedCode">#? {</span> -<span id="L420" class="LineNr">420 </span><span class="CommentedCode">#? print-string 0, "src is "</span> -<span id="L421" class="LineNr">421 </span><span class="CommentedCode">#? var foo/eax: int <- copy src</span> -<span id="L422" class="LineNr">422 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L423" class="LineNr">423 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L424" class="LineNr">424 </span><span class="CommentedCode">#? }</span> -<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-addr, next -<span id="L426" class="LineNr">426 </span> copy-object src, dest -<span id="L427" class="LineNr">427 </span> <span class="muComment"># new->next->prev = new</span> -<span id="L428" class="LineNr">428 </span> <span class="Delimiter">{</span> -<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> next-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src -<span id="L430" class="LineNr">430 </span> compare next-addr, <span class="Constant">0</span> -<span id="L431" class="LineNr">431 </span> <span class="PreProc">break-if-=</span> -<span id="L432" class="LineNr">432 </span><span class="CommentedCode">#? {</span> -<span id="L433" class="LineNr">433 </span><span class="CommentedCode">#? print-string 0, "next-addr is "</span> -<span id="L434" class="LineNr">434 </span><span class="CommentedCode">#? var foo/eax: int <- copy next-addr</span> -<span id="L435" class="LineNr">435 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L436" class="LineNr">436 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L437" class="LineNr">437 </span><span class="CommentedCode">#? }</span> -<span id="L438" class="LineNr">438 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next-addr, prev -<span id="L439" class="LineNr">439 </span><span class="CommentedCode">#? #? {</span> -<span id="L440" class="LineNr">440 </span><span class="CommentedCode">#? #? print-string 0, "self-ah is "</span> -<span id="L441" class="LineNr">441 </span><span class="CommentedCode">#? #? var foo/eax: int <- copy _self-ah</span> -<span id="L442" class="LineNr">442 </span><span class="CommentedCode">#? #? print-int32-hex 0, foo</span> -<span id="L443" class="LineNr">443 </span><span class="CommentedCode">#? #? print-string 0, "\n"</span> -<span id="L444" class="LineNr">444 </span><span class="CommentedCode">#? #? print-string 0, "2: self is "</span> -<span id="L445" class="LineNr">445 </span><span class="CommentedCode">#? #? var self-ah/eax: (addr handle word) <- copy _self-ah</span> -<span id="L446" class="LineNr">446 </span><span class="CommentedCode">#? #? var self/eax: (addr word) <- lookup *self-ah</span> -<span id="L447" class="LineNr">447 </span><span class="CommentedCode">#? #? var foo/eax: int <- copy self</span> -<span id="L448" class="LineNr">448 </span><span class="CommentedCode">#? #? print-int32-hex 0, foo</span> -<span id="L449" class="LineNr">449 </span><span class="CommentedCode">#? #? print-string 0, "\n"</span> -<span id="L450" class="LineNr">450 </span><span class="CommentedCode">#? #? }</span> -<span id="L451" class="LineNr">451 </span><span class="CommentedCode">#? {</span> -<span id="L452" class="LineNr">452 </span><span class="CommentedCode">#? print-string 0, "copying new to "</span> -<span id="L453" class="LineNr">453 </span><span class="CommentedCode">#? var foo/eax: int <- copy dest</span> -<span id="L454" class="LineNr">454 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L455" class="LineNr">455 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L456" class="LineNr">456 </span><span class="CommentedCode">#? }</span> -<span id="L457" class="LineNr">457 </span> copy-object new-ah, dest -<span id="L458" class="LineNr">458 </span><span class="CommentedCode">#? {</span> -<span id="L459" class="LineNr">459 </span><span class="CommentedCode">#? print-string 0, "4: self is "</span> -<span id="L460" class="LineNr">460 </span><span class="CommentedCode">#? var self-ah/eax: (addr handle word) <- copy _self-ah</span> -<span id="L461" class="LineNr">461 </span><span class="CommentedCode">#? var self/eax: (addr word) <- lookup *self-ah</span> -<span id="L462" class="LineNr">462 </span><span class="CommentedCode">#? var foo/eax: int <- copy self</span> -<span id="L463" class="LineNr">463 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L464" class="LineNr">464 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L465" class="LineNr">465 </span><span class="CommentedCode">#? }</span> -<span id="L466" class="LineNr">466 </span> <span class="Delimiter">}</span> -<span id="L467" class="LineNr">467 </span> <span class="muComment"># new->prev = saved-self</span> -<span id="L468" class="LineNr">468 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-addr, prev -<span id="L469" class="LineNr">469 </span><span class="CommentedCode">#? {</span> -<span id="L470" class="LineNr">470 </span><span class="CommentedCode">#? print-string 0, "copying "</span> -<span id="L471" class="LineNr">471 </span><span class="CommentedCode">#? var self-ah/esi: (addr handle word) <- copy _self-ah</span> -<span id="L472" class="LineNr">472 </span><span class="CommentedCode">#? var self/eax: (addr word) <- lookup *self-ah</span> -<span id="L473" class="LineNr">473 </span><span class="CommentedCode">#? var foo/eax: int <- copy self</span> -<span id="L474" class="LineNr">474 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L475" class="LineNr">475 </span><span class="CommentedCode">#? print-string 0, " to "</span> -<span id="L476" class="LineNr">476 </span><span class="CommentedCode">#? foo <- copy dest</span> -<span id="L477" class="LineNr">477 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> -<span id="L478" class="LineNr">478 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L479" class="LineNr">479 </span><span class="CommentedCode">#? }</span> -<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> saved-self-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> address saved-self-storage -<span id="L481" class="LineNr">481 </span> copy-object saved-self-ah, dest -<span id="L482" class="LineNr">482 </span> <span class="muComment"># self->next = new</span> -<span id="L483" class="LineNr">483 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L484" class="LineNr">484 </span> copy-object new-ah, dest -<span id="L485" class="LineNr">485 </span><span class="Delimiter">}</span> -<span id="L486" class="LineNr">486 </span> -<span id="L487" class="LineNr">487 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L487'>chain-words</a></span> _self-ah: (addr handle <a href='data.mu.html#L30'>word</a>), _next: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self-ah -<span id="L489" class="LineNr">489 </span> <span class="PreProc">var</span> _self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *self-ah -<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> self/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L491" class="LineNr">491 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _next -<span id="L493" class="LineNr">493 </span> copy-object next-ah, dest -<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah -<span id="L495" class="LineNr">495 </span> compare next, <span class="Constant">0</span> -<span id="L496" class="LineNr">496 </span> <span class="PreProc">break-if-=</span> -<span id="L497" class="LineNr">497 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev -<span id="L498" class="LineNr">498 </span> copy-object self-ah, dest -<span id="L499" class="LineNr">499 </span><span class="Delimiter">}</span> -<span id="L500" class="LineNr">500 </span> -<span id="L501" class="LineNr">501 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L501'>emit-word</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L502" class="LineNr">502 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L503" class="LineNr">503 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L505" class="LineNr">505 </span> <a href='gap-buffer.mu.html#L37'>emit-gap-buffer</a> data, out -<span id="L506" class="LineNr">506 </span><span class="Delimiter">}</span> -<span id="L507" class="LineNr">507 </span> -<span id="L508" class="LineNr">508 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L508'>word-to-string</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>), out: (addr handle array byte) <span class="Delimiter">{</span> -<span id="L509" class="LineNr">509 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L510" class="LineNr">510 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L512" class="LineNr">512 </span> <a href='gap-buffer.mu.html#L30'>gap-buffer-to-string</a> data, out -<span id="L513" class="LineNr">513 </span><span class="Delimiter">}</span> -<span id="L514" class="LineNr">514 </span> -<span id="L515" class="LineNr">515 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L515'>word-is-decimal-integer?</a></span> _self: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L518" class="LineNr">518 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L519" class="LineNr">519 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L332'>gap-buffer-is-decimal-integer?</a> data -<span id="L520" class="LineNr">520 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L521" class="LineNr">521 </span><span class="Delimiter">}</span> -<span id="L522" class="LineNr">522 </span> -<span id="L523" class="LineNr">523 </span><span class="muComment"># ABSOLUTELY GHASTLY</span> -<span id="L524" class="LineNr">524 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L524'>word-exists?</a></span> _haystack-ah: (addr handle <a href='data.mu.html#L30'>word</a>), _needle: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: boolean <span class="Delimiter">{</span> -<span id="L525" class="LineNr">525 </span> <span class="PreProc">var</span> needle-name-storage: (handle array byte) -<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> needle-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address needle-name-storage -<span id="L527" class="LineNr">527 </span> <a href='word.mu.html#L508'>word-to-string</a> _needle, needle-name-ah <span class="muComment"># profligate leak</span> -<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> _needle-name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *needle-name-ah -<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> needle-name/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _needle-name -<span id="L530" class="LineNr">530 </span> <span class="muComment"># base case</span> -<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> haystack-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy _haystack-ah -<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *haystack-ah -<span id="L533" class="LineNr">533 </span> compare curr, <span class="Constant">0</span> -<span id="L534" class="LineNr">534 </span> <span class="Delimiter">{</span> -<span id="L535" class="LineNr">535 </span> <span class="PreProc">break-if-!=</span> -<span id="L536" class="LineNr">536 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L537" class="LineNr">537 </span> <span class="Delimiter">}</span> -<span id="L538" class="LineNr">538 </span> <span class="muComment"># check curr</span> -<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> curr-name-storage: (handle array byte) -<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address curr-name-storage -<span id="L541" class="LineNr">541 </span> <a href='word.mu.html#L508'>word-to-string</a> curr, curr-name-ah <span class="muComment"># profligate leak</span> -<span id="L542" class="LineNr">542 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-name-ah -<span id="L543" class="LineNr">543 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> needle-name, curr-name -<span id="L544" class="LineNr">544 </span> compare found?, <span class="Constant">0</span> -<span id="L545" class="LineNr">545 </span> <span class="Delimiter">{</span> -<span id="L546" class="LineNr">546 </span> <span class="PreProc">break-if-=</span> -<span id="L547" class="LineNr">547 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L548" class="LineNr">548 </span> <span class="Delimiter">}</span> -<span id="L549" class="LineNr">549 </span> <span class="muComment"># recurse</span> -<span id="L550" class="LineNr">550 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *haystack-ah -<span id="L551" class="LineNr">551 </span> <span class="PreProc">var</span> next-haystack-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L552" class="LineNr">552 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ebx</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L524'>word-exists?</a> next-haystack-ah, _needle -<span id="L553" class="LineNr">553 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L554" class="LineNr">554 </span><span class="Delimiter">}</span> -<span id="L555" class="LineNr">555 </span> -<span id="L556" class="LineNr">556 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L556'>word-list-length</a></span> words: (addr handle <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L557" class="LineNr">557 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy words -<span id="L558" class="LineNr">558 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L559" class="LineNr">559 </span> <span class="Delimiter">{</span> -<span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah -<span id="L561" class="LineNr">561 </span> compare curr, <span class="Constant">0</span> -<span id="L562" class="LineNr">562 </span> <span class="PreProc">break-if-=</span> -<span id="L563" class="LineNr">563 </span> <span class="Delimiter">{</span> -<span id="L564" class="LineNr">564 </span> <span class="PreProc">var</span> word-len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L106'>word-length</a> curr -<span id="L565" class="LineNr">565 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add word-len -<span id="L566" class="LineNr">566 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add <span class="Constant">1</span> <span class="muComment"># inter-word-margin</span> -<span id="L567" class="LineNr">567 </span> <span class="Delimiter">}</span> -<span id="L568" class="LineNr">568 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L569" class="LineNr">569 </span> <span class="PreProc">loop</span> -<span id="L570" class="LineNr">570 </span> <span class="Delimiter">}</span> -<span id="L571" class="LineNr">571 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> -<span id="L572" class="LineNr">572 </span><span class="Delimiter">}</span> -<span id="L573" class="LineNr">573 </span> -<span id="L574" class="LineNr">574 </span><span class="muComment"># out-ah already has a word allocated and initialized</span> -<span id="L575" class="LineNr">575 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L575'>parse-words</a></span> in: (addr array byte), out-ah: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="Delimiter">{</span> -<span id="L576" class="LineNr">576 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L577" class="LineNr">577 </span> <span class="PreProc">var</span> in-stream-a/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-stream -<span id="L578" class="LineNr">578 </span> <a href='../../108write.subx.html#L24'>write</a> in-stream-a, in -<span id="L579" class="LineNr">579 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ebx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy out-ah -<span id="L580" class="LineNr">580 </span> $parse-words:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L581" class="LineNr">581 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> in-stream-a -<span id="L582" class="LineNr">582 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> -<span id="L583" class="LineNr">583 </span> <span class="PreProc">break-if-!=</span> -<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> in-stream-a -<span id="L585" class="LineNr">585 </span> <span class="PreProc">var</span> g/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L586" class="LineNr">586 </span> <span class="muComment"># if not space, insert</span> -<span id="L587" class="LineNr">587 </span> compare g, <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L588" class="LineNr">588 </span> <span class="Delimiter">{</span> -<span id="L589" class="LineNr">589 </span> <span class="PreProc">break-if-=</span> -<span id="L590" class="LineNr">590 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L591" class="LineNr">591 </span> <a href='word.mu.html#L163'>add-grapheme-to-word</a> cursor-word, g -<span id="L592" class="LineNr">592 </span> <span class="PreProc">loop</span> $parse-words:<span class="PreProc">loop</span> -<span id="L593" class="LineNr">593 </span> <span class="Delimiter">}</span> -<span id="L594" class="LineNr">594 </span> <span class="muComment"># otherwise insert word after and move cursor to it</span> -<span id="L595" class="LineNr">595 </span> <a href='word.mu.html#L384'>append-word</a> cursor-word-ah -<span id="L596" class="LineNr">596 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *cursor-word-ah -<span id="L597" class="LineNr">597 </span> cursor-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next -<span id="L598" class="LineNr">598 </span> <span class="PreProc">loop</span> -<span id="L599" class="LineNr">599 </span> <span class="Delimiter">}</span> -<span id="L600" class="LineNr">600 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tui.mu.html b/html/apps/tui.mu.html deleted file mode 100644 index 3771b143..00000000 --- a/html/apps/tui.mu.html +++ /dev/null @@ -1,96 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tui.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tui.mu'>https://github.com/akkartik/mu/blob/main/apps/tui.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Test some primitives for text-mode.</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/tui.mu</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> -<span id="L6" class="LineNr"> 6 </span> -<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tui.mu.html#L7'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L10" class="LineNr">10 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../405screen.mu.html#L60'>screen-size</a> <span class="Constant">0</span> -<span id="L11" class="LineNr">11 </span> <a href='../304screen.subx.html#L6'>enable-screen-grid-mode</a> -<span id="L12" class="LineNr">12 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <span class="Constant">0</span>, <span class="Constant">5</span>, <span class="Constant">0x22</span> -<span id="L13" class="LineNr">13 </span> <a href='../405screen.mu.html#L519'>start-color</a> <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">0x7a</span> -<span id="L14" class="LineNr">14 </span> <a href='../405screen.mu.html#L579'>start-blinking</a> <span class="Constant">0</span> -<span id="L15" class="LineNr">15 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"Hello world!"</span> -<span id="L16" class="LineNr">16 </span> <a href='../405screen.mu.html#L502'>reset-formatting</a> <span class="Constant">0</span> -<span id="L17" class="LineNr">17 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <span class="Constant">0</span>, <span class="Constant">6</span>, <span class="Constant">0x22</span> -<span id="L18" class="LineNr">18 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"tty dimensions: "</span> -<span id="L19" class="LineNr">19 </span> <a href='../405screen.mu.html#L436'>print-int32-hex</a> <span class="Constant">0</span>, nrows -<span id="L20" class="LineNr">20 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" rows, "</span> -<span id="L21" class="LineNr">21 </span> <a href='../405screen.mu.html#L436'>print-int32-hex</a> <span class="Constant">0</span>, ncols -<span id="L22" class="LineNr">22 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" rows\n"</span> -<span id="L23" class="LineNr">23 </span> -<span id="L24" class="LineNr">24 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"press a key to see its code: "</span> -<span id="L25" class="LineNr">25 </span> <a href='../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> -<span id="L27" class="LineNr">27 </span> <a href='../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> -<span id="L28" class="LineNr">28 </span> <a href='../304screen.subx.html#L24'>enable-screen-type-mode</a> -<span id="L29" class="LineNr">29 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"You pressed "</span> -<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> x-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L31" class="LineNr">31 </span> <a href='../405screen.mu.html#L436'>print-int32-hex</a> <span class="Constant">0</span>, x-int -<span id="L32" class="LineNr">32 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L33" class="LineNr">33 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L34" class="LineNr">34 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/108write.subx.html b/html/baremetal/108write.subx.html deleted file mode 100644 index ac10717d..00000000 --- a/html/baremetal/108write.subx.html +++ /dev/null @@ -1,284 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/108write.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxMinorFunction { color: #875f5f; } -.subxComment { color: #005faf; } -.subxS1Comment { color: #0000af; } -.subxS2Comment { color: #8a8a8a; } -.LineNr { } -.Constant { color: #008787; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/108write.subx'>https://github.com/akkartik/mu/blob/main/baremetal/108write.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write: write to in-memory streams</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span>== code -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="subxFunction">write</span>: <span class="subxComment"># f: (addr stream byte), s: (addr array byte)</span> -<span id="L12" class="LineNr"> 12 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L13" class="LineNr"> 13 </span> 55/push-ebp -<span id="L14" class="LineNr"> 14 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># if (s == 0) return</span> -<span id="L16" class="LineNr"> 16 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 0/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L17" class="LineNr"> 17 </span> 74/jump-if-= $write:end/disp8 -<span id="L18" class="LineNr"> 18 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L19" class="LineNr"> 19 </span> 50/push-eax -<span id="L20" class="LineNr"> 20 </span> 51/push-ecx -<span id="L21" class="LineNr"> 21 </span> 52/push-edx -<span id="L22" class="LineNr"> 22 </span> 53/push-ebx -<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># ecx = f</span> -<span id="L24" class="LineNr"> 24 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># edx = f->write</span> -<span id="L26" class="LineNr"> 26 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># ebx = f->size</span> -<span id="L28" class="LineNr"> 28 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to ebx</span> -<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># eax = _append-3(&f->data[f->write], &f->data[f->size], s)</span> -<span id="L30" class="LineNr"> 30 </span> <span class="subxS2Comment"># . . push s</span> -<span id="L31" class="LineNr"> 31 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L32" class="LineNr"> 32 </span> <span class="subxS2Comment"># . . push &f->data[f->size]</span> -<span id="L33" class="LineNr"> 33 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 3/index/ebx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+ebx+12 to ebx</span> -<span id="L34" class="LineNr"> 34 </span> 53/push-ebx -<span id="L35" class="LineNr"> 35 </span> <span class="subxS2Comment"># . . push &f->data[f->write]</span> -<span id="L36" class="LineNr"> 36 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to ebx</span> -<span id="L37" class="LineNr"> 37 </span> 53/push-ebx -<span id="L38" class="LineNr"> 38 </span> <span class="subxS2Comment"># . . call</span> -<span id="L39" class="LineNr"> 39 </span> e8/call <a href='108write.subx.html#L139'>_append-3</a>/disp32 -<span id="L40" class="LineNr"> 40 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L41" class="LineNr"> 41 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># f->write += eax</span> -<span id="L43" class="LineNr"> 43 </span> 01/add 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *ecx</span> -<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L45" class="LineNr"> 45 </span> 5b/pop-to-ebx -<span id="L46" class="LineNr"> 46 </span> 5a/pop-to-edx -<span id="L47" class="LineNr"> 47 </span> 59/pop-to-ecx -<span id="L48" class="LineNr"> 48 </span> 58/pop-to-eax -<span id="L49" class="LineNr"> 49 </span><span class="Constant">$write:end</span>: -<span id="L50" class="LineNr"> 50 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L51" class="LineNr"> 51 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L52" class="LineNr"> 52 </span> 5d/pop-to-ebp -<span id="L53" class="LineNr"> 53 </span> c3/return -<span id="L54" class="LineNr"> 54 </span> -<span id="L55" class="LineNr"> 55 </span><span class="subxTest">test-write-single</span>: -<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># clear-stream(_test-stream)</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L58" class="LineNr"> 58 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> -<span id="L60" class="LineNr"> 60 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># write(_test-stream, "Ab")</span> -<span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L65" class="LineNr"> 65 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L66" class="LineNr"> 66 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . call</span> -<span id="L68" class="LineNr"> 68 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 -<span id="L69" class="LineNr"> 69 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L70" class="LineNr"> 70 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 41/A 62/b 00 00, msg)</span> -<span id="L72" class="LineNr"> 72 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L73" class="LineNr"> 73 </span> 68/push <span class="Constant">"F - test-write-single"</span>/imm32 -<span id="L74" class="LineNr"> 74 </span> 68/push 0x006241/imm32/Ab -<span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> -<span id="L76" class="LineNr"> 76 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L77" class="LineNr"> 77 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . call</span> -<span id="L79" class="LineNr"> 79 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L80" class="LineNr"> 80 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L81" class="LineNr"> 81 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># end</span> -<span id="L83" class="LineNr"> 83 </span> c3/return -<span id="L84" class="LineNr"> 84 </span> -<span id="L85" class="LineNr"> 85 </span><span class="subxTest">test-write-appends</span>: -<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># clear-stream(_test-stream)</span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L88" class="LineNr"> 88 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . call</span> -<span id="L90" class="LineNr"> 90 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L92" class="LineNr"> 92 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># write(_test-stream, "C")</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L95" class="LineNr"> 95 </span> 68/push <span class="Constant">"C"</span>/imm32 -<span id="L96" class="LineNr"> 96 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . call</span> -<span id="L98" class="LineNr"> 98 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 -<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L100" class="LineNr">100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L101" class="LineNr">101 </span> <span class="subxComment"># write(_test-stream, "D")</span> -<span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L103" class="LineNr">103 </span> 68/push <span class="Constant">"D"</span>/imm32 -<span id="L104" class="LineNr">104 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . call</span> -<span id="L106" class="LineNr">106 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 -<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L108" class="LineNr">108 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L109" class="LineNr">109 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 43/C 44/D 00 00, msg)</span> -<span id="L110" class="LineNr">110 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L111" class="LineNr">111 </span> 68/push <span class="Constant">"F - test-write-appends"</span>/imm32 -<span id="L112" class="LineNr">112 </span> 68/push 0x00004443/imm32/C-D -<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> -<span id="L114" class="LineNr">114 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L115" class="LineNr">115 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . call</span> -<span id="L117" class="LineNr">117 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L119" class="LineNr">119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L120" class="LineNr">120 </span> <span class="subxComment"># end</span> -<span id="L121" class="LineNr">121 </span> c3/return -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span>== data -<span id="L124" class="LineNr">124 </span> -<span id="L125" class="LineNr">125 </span><span class="subxMinorFunction">_test-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L126" class="LineNr">126 </span> <span class="subxComment"># current write index</span> -<span id="L127" class="LineNr">127 </span> 0/imm32 -<span id="L128" class="LineNr">128 </span> <span class="subxComment"># current read index</span> -<span id="L129" class="LineNr">129 </span> 0/imm32 -<span id="L130" class="LineNr">130 </span> <span class="subxComment"># size</span> -<span id="L131" class="LineNr">131 </span> 0x10/imm32 -<span id="L132" class="LineNr">132 </span> <span class="subxComment"># data (2 lines x 8 bytes/line)</span> -<span id="L133" class="LineNr">133 </span> 00 00 00 00 00 00 00 00 -<span id="L134" class="LineNr">134 </span> 00 00 00 00 00 00 00 00 -<span id="L135" class="LineNr">135 </span> -<span id="L136" class="LineNr">136 </span>== code -<span id="L137" class="LineNr">137 </span> -<span id="L138" class="LineNr">138 </span><span class="subxComment"># 3-argument variant of _append</span> -<span id="L139" class="LineNr">139 </span><span class="subxMinorFunction">_append-3</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), s: (addr array byte) -> num_bytes_appended/eax</span> -<span id="L140" class="LineNr">140 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L141" class="LineNr">141 </span> 55/push-ebp -<span id="L142" class="LineNr">142 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L144" class="LineNr">144 </span> 51/push-ecx -<span id="L145" class="LineNr">145 </span> <span class="subxComment"># eax = _append-4(out, outend, &s->data[0], &s->data[s->size])</span> -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . push &s->data[s->size]</span> -<span id="L147" class="LineNr">147 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L148" class="LineNr">148 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L149" class="LineNr">149 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L150" class="LineNr">150 </span> 51/push-ecx -<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push &s->data[0]</span> -<span id="L152" class="LineNr">152 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+4 to ecx</span> -<span id="L153" class="LineNr">153 </span> 51/push-ecx -<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push outend</span> -<span id="L155" class="LineNr">155 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push out</span> -<span id="L157" class="LineNr">157 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> -<span id="L159" class="LineNr">159 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 -<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L161" class="LineNr">161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L162" class="LineNr">162 </span><span class="Constant">$_append-3:end</span>: -<span id="L163" class="LineNr">163 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L164" class="LineNr">164 </span> 59/pop-to-ecx -<span id="L165" class="LineNr">165 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L166" class="LineNr">166 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L167" class="LineNr">167 </span> 5d/pop-to-ebp -<span id="L168" class="LineNr">168 </span> c3/return -<span id="L169" class="LineNr">169 </span> -<span id="L170" class="LineNr">170 </span><span class="subxComment"># 4-argument variant of _append</span> -<span id="L171" class="LineNr">171 </span><span class="subxMinorFunction">_append-4</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), in: (addr byte), inend: (addr byte) -> num_bytes_appended/eax: int</span> -<span id="L172" class="LineNr">172 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L173" class="LineNr">173 </span> 55/push-ebp -<span id="L174" class="LineNr">174 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L176" class="LineNr">176 </span> 51/push-ecx -<span id="L177" class="LineNr">177 </span> 52/push-edx -<span id="L178" class="LineNr">178 </span> 53/push-ebx -<span id="L179" class="LineNr">179 </span> 56/push-esi -<span id="L180" class="LineNr">180 </span> 57/push-edi -<span id="L181" class="LineNr">181 </span> <span class="subxComment"># num_bytes_appended = 0</span> -<span id="L182" class="LineNr">182 </span> b8/copy-to-eax 0/imm32 -<span id="L183" class="LineNr">183 </span> <span class="subxComment"># edi = out</span> -<span id="L184" class="LineNr">184 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L185" class="LineNr">185 </span> <span class="subxComment"># edx = outend</span> -<span id="L186" class="LineNr">186 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L187" class="LineNr">187 </span> <span class="subxComment"># esi = in</span> -<span id="L188" class="LineNr">188 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to esi</span> -<span id="L189" class="LineNr">189 </span> <span class="subxComment"># ecx = inend</span> -<span id="L190" class="LineNr">190 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> -<span id="L191" class="LineNr">191 </span><span class="Constant">$_append-4:loop</span>: -<span id="L192" class="LineNr">192 </span> <span class="subxComment"># if (in >= inend) break</span> -<span id="L193" class="LineNr">193 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> -<span id="L194" class="LineNr">194 </span> 73/jump-if-addr>= $_append-4:end/disp8 -<span id="L195" class="LineNr">195 </span> <span class="subxComment"># if (out >= outend) abort # just to catch test failures fast</span> -<span id="L196" class="LineNr">196 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with edx</span> -<span id="L197" class="LineNr">197 </span> 73/jump-if-addr>= $_append-4:end/disp8 <span class="subxComment"># TODO: abort</span> -<span id="L198" class="LineNr">198 </span> <span class="subxComment"># *out = *in</span> -<span id="L199" class="LineNr">199 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to BL</span> -<span id="L200" class="LineNr">200 </span> 88/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at BL to *edi</span> -<span id="L201" class="LineNr">201 </span> <span class="subxComment"># ++num_bytes_appended</span> -<span id="L202" class="LineNr">202 </span> 40/increment-eax -<span id="L203" class="LineNr">203 </span> <span class="subxComment"># ++in</span> -<span id="L204" class="LineNr">204 </span> 46/increment-esi -<span id="L205" class="LineNr">205 </span> <span class="subxComment"># ++out</span> -<span id="L206" class="LineNr">206 </span> 47/increment-edi -<span id="L207" class="LineNr">207 </span> eb/jump $_append-4:<span class="Constant">loop</span>/disp8 -<span id="L208" class="LineNr">208 </span><span class="Constant">$_append-4:end</span>: -<span id="L209" class="LineNr">209 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L210" class="LineNr">210 </span> 5f/pop-to-edi -<span id="L211" class="LineNr">211 </span> 5e/pop-to-esi -<span id="L212" class="LineNr">212 </span> 5b/pop-to-ebx -<span id="L213" class="LineNr">213 </span> 5a/pop-to-edx -<span id="L214" class="LineNr">214 </span> 59/pop-to-ecx -<span id="L215" class="LineNr">215 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L216" class="LineNr">216 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L217" class="LineNr">217 </span> 5d/pop-to-ebp -<span id="L218" class="LineNr">218 </span> c3/return -<span id="L219" class="LineNr">219 </span> -<span id="L220" class="LineNr">220 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/112read-byte.subx.html b/html/baremetal/112read-byte.subx.html deleted file mode 100644 index a853654b..00000000 --- a/html/baremetal/112read-byte.subx.html +++ /dev/null @@ -1,186 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/112read-byte.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.subxS1Comment { color: #0000af; } -.subxMinorFunction { color: #875f5f; } -.LineNr { } -.Constant { color: #008787; } -.subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/112read-byte.subx'>https://github.com/akkartik/mu/blob/main/baremetal/112read-byte.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a single byte from a stream.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span>== code -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># Return next byte value in eax, with top 3 bytes cleared.</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># Abort on reaching end of stream.</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxFunction">read-byte</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> -<span id="L14" class="LineNr"> 14 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L15" class="LineNr"> 15 </span> 55/push-ebp -<span id="L16" class="LineNr"> 16 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L17" class="LineNr"> 17 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L18" class="LineNr"> 18 </span> 51/push-ecx -<span id="L19" class="LineNr"> 19 </span> 56/push-esi -<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># esi = s</span> -<span id="L21" class="LineNr"> 21 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># ecx = s->read</span> -<span id="L23" class="LineNr"> 23 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># if (f->read >= f->write) abort</span> -<span id="L25" class="LineNr"> 25 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> -<span id="L26" class="LineNr"> 26 </span> 0f 8d/jump-if->= $read-byte:<a href='501draw-text.mu.html#L519'>abort</a>/disp32 -<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># result = f->data[f->read]</span> -<span id="L28" class="LineNr"> 28 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L29" class="LineNr"> 29 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># ++f->read</span> -<span id="L31" class="LineNr"> 31 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> -<span id="L32" class="LineNr"> 32 </span><span class="Constant">$read-byte:end</span>: -<span id="L33" class="LineNr"> 33 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L34" class="LineNr"> 34 </span> 5e/pop-to-esi -<span id="L35" class="LineNr"> 35 </span> 59/pop-to-ecx -<span id="L36" class="LineNr"> 36 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L37" class="LineNr"> 37 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L38" class="LineNr"> 38 </span> 5d/pop-to-ebp -<span id="L39" class="LineNr"> 39 </span> c3/return -<span id="L40" class="LineNr"> 40 </span> -<span id="L41" class="LineNr"> 41 </span><span class="Constant">$read-byte:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L42" class="LineNr"> 42 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"read-byte: empty stream"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L43" class="LineNr"> 43 </span> { -<span id="L44" class="LineNr"> 44 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L45" class="LineNr"> 45 </span> } -<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># never gets here</span> -<span id="L47" class="LineNr"> 47 </span> -<span id="L48" class="LineNr"> 48 </span>== data -<span id="L49" class="LineNr"> 49 </span> -<span id="L50" class="LineNr"> 50 </span><span class="subxMinorFunction">_test-input-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># current write index</span> -<span id="L52" class="LineNr"> 52 </span> 0/imm32 -<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># current read index</span> -<span id="L54" class="LineNr"> 54 </span> 0/imm32 -<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># size</span> -<span id="L56" class="LineNr"> 56 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> -<span id="L58" class="LineNr"> 58 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L59" class="LineNr"> 59 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L60" class="LineNr"> 60 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L61" class="LineNr"> 61 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L62" class="LineNr"> 62 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L63" class="LineNr"> 63 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L64" class="LineNr"> 64 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L65" class="LineNr"> 65 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L66" class="LineNr"> 66 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L67" class="LineNr"> 67 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L68" class="LineNr"> 68 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L69" class="LineNr"> 69 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L70" class="LineNr"> 70 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L71" class="LineNr"> 71 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L72" class="LineNr"> 72 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L73" class="LineNr"> 73 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L74" class="LineNr"> 74 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L75" class="LineNr"> 75 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L76" class="LineNr"> 76 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L77" class="LineNr"> 77 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L78" class="LineNr"> 78 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L79" class="LineNr"> 79 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L80" class="LineNr"> 80 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L81" class="LineNr"> 81 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L82" class="LineNr"> 82 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L83" class="LineNr"> 83 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L84" class="LineNr"> 84 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L85" class="LineNr"> 85 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L86" class="LineNr"> 86 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L87" class="LineNr"> 87 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L88" class="LineNr"> 88 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L89" class="LineNr"> 89 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L90" class="LineNr"> 90 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L91" class="LineNr"> 91 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L92" class="LineNr"> 92 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L93" class="LineNr"> 93 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L94" class="LineNr"> 94 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L95" class="LineNr"> 95 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L96" class="LineNr"> 96 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L97" class="LineNr"> 97 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L98" class="LineNr"> 98 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L99" class="LineNr"> 99 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L100" class="LineNr">100 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L101" class="LineNr">101 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L102" class="LineNr">102 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L103" class="LineNr">103 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L104" class="LineNr">104 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L105" class="LineNr">105 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L106" class="LineNr">106 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L107" class="LineNr">107 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L108" class="LineNr">108 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L109" class="LineNr">109 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L110" class="LineNr">110 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L111" class="LineNr">111 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L112" class="LineNr">112 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L113" class="LineNr">113 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L114" class="LineNr">114 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L115" class="LineNr">115 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L116" class="LineNr">116 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L117" class="LineNr">117 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L118" class="LineNr">118 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L119" class="LineNr">119 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L120" class="LineNr">120 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L121" class="LineNr">121 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/115write-byte.subx.html b/html/baremetal/115write-byte.subx.html deleted file mode 100644 index 002dc0c9..00000000 --- a/html/baremetal/115write-byte.subx.html +++ /dev/null @@ -1,144 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/115write-byte.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxH1Comment { color: #005faf; text-decoration: underline; } -.subxComment { color: #005faf; } -.subxS1Comment { color: #0000af; } -.subxS2Comment { color: #8a8a8a; } -.LineNr { } -.Constant { color: #008787; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/115write-byte.subx'>https://github.com/akkartik/mu/blob/main/baremetal/115write-byte.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Write a single byte to a stream.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span>== code -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> -<span id="L12" class="LineNr">12 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> -<span id="L13" class="LineNr">13 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14" class="LineNr">14 </span> 55/push-ebp -<span id="L15" class="LineNr">15 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L16" class="LineNr">16 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17" class="LineNr">17 </span> 51/push-ecx -<span id="L18" class="LineNr">18 </span> 57/push-edi -<span id="L19" class="LineNr">19 </span> <span class="subxComment"># edi = f</span> -<span id="L20" class="LineNr">20 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L21" class="LineNr">21 </span> <span class="subxComment"># ecx = f->write</span> -<span id="L22" class="LineNr">22 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L23" class="LineNr">23 </span> <span class="subxComment"># if (f->write >= f->size) abort</span> -<span id="L24" class="LineNr">24 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+8)</span> -<span id="L25" class="LineNr">25 </span> 7d/jump-if->= $append-byte:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 -<span id="L26" class="LineNr">26 </span><span class="Constant">$append-byte:to-stream</span>: -<span id="L27" class="LineNr">27 </span> <span class="subxComment"># write to stream</span> -<span id="L28" class="LineNr">28 </span> <span class="subxComment"># f->data[f->write] = LSB(n)</span> -<span id="L29" class="LineNr">29 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L30" class="LineNr">30 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> -<span id="L31" class="LineNr">31 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+12)</span> -<span id="L32" class="LineNr">32 </span> <span class="subxComment"># ++f->write</span> -<span id="L33" class="LineNr">33 </span> ff 0/subop/increment 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *edi</span> -<span id="L34" class="LineNr">34 </span><span class="Constant">$append-byte:end</span>: -<span id="L35" class="LineNr">35 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L36" class="LineNr">36 </span> 5f/pop-to-edi -<span id="L37" class="LineNr">37 </span> 59/pop-to-ecx -<span id="L38" class="LineNr">38 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L39" class="LineNr">39 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L40" class="LineNr">40 </span> 5d/pop-to-ebp -<span id="L41" class="LineNr">41 </span> c3/return -<span id="L42" class="LineNr">42 </span> -<span id="L43" class="LineNr">43 </span><span class="Constant">$append-byte:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L44" class="LineNr">44 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"append-byte: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L45" class="LineNr">45 </span> { -<span id="L46" class="LineNr">46 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L47" class="LineNr">47 </span> } -<span id="L48" class="LineNr">48 </span> <span class="subxComment"># never gets here</span> -<span id="L49" class="LineNr">49 </span> -<span id="L50" class="LineNr">50 </span><span class="subxTest">test-append-byte-single</span>: -<span id="L51" class="LineNr">51 </span> <span class="subxH1Comment"># - check that append-byte writes to first byte of 'file'</span> -<span id="L52" class="LineNr">52 </span> <span class="subxComment"># setup</span> -<span id="L53" class="LineNr">53 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L54" class="LineNr">54 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L55" class="LineNr">55 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L56" class="LineNr">56 </span> <span class="subxS2Comment"># . . call</span> -<span id="L57" class="LineNr">57 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L58" class="LineNr">58 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L59" class="LineNr">59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L60" class="LineNr">60 </span> <span class="subxComment"># append-byte(_test-stream, 'A')</span> -<span id="L61" class="LineNr">61 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L62" class="LineNr">62 </span> 68/push 0x41/imm32 -<span id="L63" class="LineNr">63 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L64" class="LineNr">64 </span> <span class="subxS2Comment"># . . call</span> -<span id="L65" class="LineNr">65 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 -<span id="L66" class="LineNr">66 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L67" class="LineNr">67 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L68" class="LineNr">68 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> -<span id="L69" class="LineNr">69 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L70" class="LineNr">70 </span> 68/push <span class="Constant">"F - test-append-byte-single"</span>/imm32 -<span id="L71" class="LineNr">71 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L72" class="LineNr">72 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L73" class="LineNr">73 </span> <span class="subxS2Comment"># . . call</span> -<span id="L74" class="LineNr">74 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L75" class="LineNr">75 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L76" class="LineNr">76 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L77" class="LineNr">77 </span> <span class="subxS1Comment"># . end</span> -<span id="L78" class="LineNr">78 </span> c3/return -<span id="L79" class="LineNr">79 </span> -<span id="L80" class="LineNr">80 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/117write-int-hex.subx.html b/html/baremetal/117write-int-hex.subx.html deleted file mode 100644 index f0800cbb..00000000 --- a/html/baremetal/117write-int-hex.subx.html +++ /dev/null @@ -1,266 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/117write-int-hex.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxH1Comment { color: #005faf; text-decoration: underline; } -.subxComment { color: #005faf; } -.subxS1Comment { color: #0000af; } -.subxS2Comment { color: #8a8a8a; } -.LineNr { } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/117write-int-hex.subx'>https://github.com/akkartik/mu/blob/main/baremetal/117write-int-hex.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Write out the (hex) textual representation of numbers.</span> -<span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span>== code -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># convert the lowest nibble of eax to ascii and return it in the lowest byte of eax</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">to-hex-char</span>: <span class="subxComment"># in/eax: int -> out/eax: int</span> -<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># no error checking; accepts argument in eax</span> -<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># if (eax <= 9) return eax + '0'</span> -<span id="L12" class="LineNr"> 12 </span> 3d/compare-eax-with 0x9/imm32/9 -<span id="L13" class="LineNr"> 13 </span> 7f/jump-if-> $to-hex-char:else/disp8 -<span id="L14" class="LineNr"> 14 </span> 05/add-to-eax 0x30/imm32/0 -<span id="L15" class="LineNr"> 15 </span> c3/return -<span id="L16" class="LineNr"> 16 </span><span class="Constant">$to-hex-char:else</span>: -<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># otherwise return eax + 'a' - 10</span> -<span id="L18" class="LineNr"> 18 </span> 05/add-to-eax 0x57/imm32/a-10 -<span id="L19" class="LineNr"> 19 </span> c3/return -<span id="L20" class="LineNr"> 20 </span> -<span id="L21" class="LineNr"> 21 </span><span class="subxFunction">append-byte-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> -<span id="L22" class="LineNr"> 22 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L23" class="LineNr"> 23 </span> 55/push-ebp -<span id="L24" class="LineNr"> 24 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L26" class="LineNr"> 26 </span> 50/push-eax -<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># AL = convert upper nibble to hex</span> -<span id="L28" class="LineNr"> 28 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L29" class="LineNr"> 29 </span> c1/shift 5/subop/logic-right 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift eax right by 4 bits, while padding zeroes</span> -<span id="L30" class="LineNr"> 30 </span> 25/and-eax 0xf/imm32 -<span id="L31" class="LineNr"> 31 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> -<span id="L32" class="LineNr"> 32 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L34" class="LineNr"> 34 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L35" class="LineNr"> 35 </span> 50/push-eax -<span id="L36" class="LineNr"> 36 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . call</span> -<span id="L38" class="LineNr"> 38 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 -<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L40" class="LineNr"> 40 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># AL = convert lower nibble to hex</span> -<span id="L42" class="LineNr"> 42 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L43" class="LineNr"> 43 </span> 25/and-eax 0xf/imm32 -<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> -<span id="L45" class="LineNr"> 45 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L48" class="LineNr"> 48 </span> 50/push-eax -<span id="L49" class="LineNr"> 49 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> -<span id="L51" class="LineNr"> 51 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 -<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L53" class="LineNr"> 53 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L54" class="LineNr"> 54 </span><span class="Constant">$append-byte-hex:end</span>: -<span id="L55" class="LineNr"> 55 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L56" class="LineNr"> 56 </span> 58/pop-to-eax -<span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L58" class="LineNr"> 58 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L59" class="LineNr"> 59 </span> 5d/pop-to-ebp -<span id="L60" class="LineNr"> 60 </span> c3/return -<span id="L61" class="LineNr"> 61 </span> -<span id="L62" class="LineNr"> 62 </span><span class="subxTest">test-append-byte-hex</span>: -<span id="L63" class="LineNr"> 63 </span> <span class="subxH1Comment"># - check that append-byte-hex adds the hex textual representation</span> -<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># setup</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L67" class="LineNr"> 67 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . call</span> -<span id="L69" class="LineNr"> 69 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L71" class="LineNr"> 71 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># append-byte-hex(_test-stream, 0xa) # exercises digit, non-digit as well as leading zero</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L74" class="LineNr"> 74 </span> 68/push 0xa/imm32 -<span id="L75" class="LineNr"> 75 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> -<span id="L77" class="LineNr"> 77 </span> e8/call <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a>/disp32 -<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L79" class="LineNr"> 79 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0a", msg)</span> -<span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L82" class="LineNr"> 82 </span> 68/push <span class="Constant">"F - test-append-byte-hex"</span>/imm32 -<span id="L83" class="LineNr"> 83 </span> 68/push <span class="Constant">"0a"</span>/imm32 -<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . call</span> -<span id="L86" class="LineNr"> 86 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L88" class="LineNr"> 88 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L89" class="LineNr"> 89 </span> <span class="subxS1Comment"># . end</span> -<span id="L90" class="LineNr"> 90 </span> c3/return -<span id="L91" class="LineNr"> 91 </span> -<span id="L92" class="LineNr"> 92 </span><span class="subxFunction">write-int32-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> -<span id="L93" class="LineNr"> 93 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L94" class="LineNr"> 94 </span> 55/push-ebp -<span id="L95" class="LineNr"> 95 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L96" class="LineNr"> 96 </span><span class="Constant">$write-int32-hex:hex-prefix</span>: -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># write(f, "0x")</span> -<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L99" class="LineNr"> 99 </span> 68/push <span class="Constant">"0x"</span>/imm32 -<span id="L100" class="LineNr">100 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . call</span> -<span id="L102" class="LineNr">102 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 -<span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L104" class="LineNr">104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L105" class="LineNr">105 </span><span class="Constant">$write-int32-hex:rest</span>: -<span id="L106" class="LineNr">106 </span> <span class="subxComment"># write-int32-hex-bits(f, n, 32)</span> -<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L108" class="LineNr">108 </span> 68/push 0x20/imm32 -<span id="L109" class="LineNr">109 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L110" class="LineNr">110 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . call</span> -<span id="L112" class="LineNr">112 </span> e8/call <a href='117write-int-hex.subx.html#L123'>write-int32-hex-bits</a>/disp32 -<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L114" class="LineNr">114 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L115" class="LineNr">115 </span><span class="Constant">$write-int32-hex:end</span>: -<span id="L116" class="LineNr">116 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L117" class="LineNr">117 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L118" class="LineNr">118 </span> 5d/pop-to-ebp -<span id="L119" class="LineNr">119 </span> c3/return -<span id="L120" class="LineNr">120 </span> -<span id="L121" class="LineNr">121 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> -<span id="L122" class="LineNr">122 </span><span class="subxComment"># bits must be multiple of 4</span> -<span id="L123" class="LineNr">123 </span><span class="subxFunction">write-int32-hex-bits</span>: <span class="subxComment"># f: (addr stream byte), n: int, bits: int</span> -<span id="L124" class="LineNr">124 </span> <span class="subxComment"># pseudocode:</span> -<span id="L125" class="LineNr">125 </span> <span class="subxComment"># bits -= 4</span> -<span id="L126" class="LineNr">126 </span> <span class="subxComment"># while true</span> -<span id="L127" class="LineNr">127 </span> <span class="subxComment"># if (bits < 0) break</span> -<span id="L128" class="LineNr">128 </span> <span class="subxComment"># eax = n >> bits</span> -<span id="L129" class="LineNr">129 </span> <span class="subxComment"># eax = eax & 0xf</span> -<span id="L130" class="LineNr">130 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L131" class="LineNr">131 </span> <span class="subxComment"># bits -= 4</span> -<span id="L132" class="LineNr">132 </span> <span class="subxComment">#</span> -<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L134" class="LineNr">134 </span> 55/push-ebp -<span id="L135" class="LineNr">135 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L137" class="LineNr">137 </span> 50/push-eax -<span id="L138" class="LineNr">138 </span> 51/push-ecx -<span id="L139" class="LineNr">139 </span> <span class="subxComment"># ecx = bits-4</span> -<span id="L140" class="LineNr">140 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L141" class="LineNr">141 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L142" class="LineNr">142 </span><span class="Constant">$write-int32-hex-bits:loop</span>: -<span id="L143" class="LineNr">143 </span> <span class="subxComment"># if (bits < 0) break</span> -<span id="L144" class="LineNr">144 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L145" class="LineNr">145 </span> 7c/jump-if-< $write-int32-hex-bits:end/disp8 -<span id="L146" class="LineNr">146 </span> <span class="subxComment"># eax = n >> bits</span> -<span id="L147" class="LineNr">147 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L148" class="LineNr">148 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> -<span id="L149" class="LineNr">149 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> -<span id="L150" class="LineNr">150 </span> 25/and-eax 0xf/imm32 -<span id="L151" class="LineNr">151 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 -<span id="L152" class="LineNr">152 </span> <span class="subxComment"># append-byte(f, AL)</span> -<span id="L153" class="LineNr">153 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L154" class="LineNr">154 </span> 50/push-eax -<span id="L155" class="LineNr">155 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . call</span> -<span id="L157" class="LineNr">157 </span> e8/call <a href='115write-byte.subx.html#L12'>append-byte</a>/disp32 -<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L159" class="LineNr">159 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L160" class="LineNr">160 </span> <span class="subxComment"># bits -= 4</span> -<span id="L161" class="LineNr">161 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L162" class="LineNr">162 </span> eb/jump $write-int32-hex-bits:<span class="Constant">loop</span>/disp8 -<span id="L163" class="LineNr">163 </span><span class="Constant">$write-int32-hex-bits:end</span>: -<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L165" class="LineNr">165 </span> 59/pop-to-ecx -<span id="L166" class="LineNr">166 </span> 58/pop-to-eax -<span id="L167" class="LineNr">167 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L168" class="LineNr">168 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L169" class="LineNr">169 </span> 5d/pop-to-ebp -<span id="L170" class="LineNr">170 </span> c3/return -<span id="L171" class="LineNr">171 </span> -<span id="L172" class="LineNr">172 </span><span class="subxTest">test-write-int32-hex</span>: -<span id="L173" class="LineNr">173 </span> <span class="subxH1Comment"># - check that write-int32-hex prints the hex textual representation</span> -<span id="L174" class="LineNr">174 </span> <span class="subxComment"># setup</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L177" class="LineNr">177 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . call</span> -<span id="L179" class="LineNr">179 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L181" class="LineNr">181 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L182" class="LineNr">182 </span> <span class="subxComment"># write-int32-hex(_test-stream, 0x8899aa)</span> -<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L184" class="LineNr">184 </span> 68/push 0x8899aa/imm32 -<span id="L185" class="LineNr">185 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . call</span> -<span id="L187" class="LineNr">187 </span> e8/call <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a>/disp32 -<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L189" class="LineNr">189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L190" class="LineNr">190 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> -<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L192" class="LineNr">192 </span> 68/push <span class="Constant">"F - test-write-int32-hex"</span>/imm32 -<span id="L193" class="LineNr">193 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 -<span id="L194" class="LineNr">194 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . call</span> -<span id="L196" class="LineNr">196 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L198" class="LineNr">198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L199" class="LineNr">199 </span> <span class="subxS1Comment"># . end</span> -<span id="L200" class="LineNr">200 </span> c3/return -<span id="L201" class="LineNr">201 </span> -<span id="L202" class="LineNr">202 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/312copy.subx.html b/html/baremetal/312copy.subx.html deleted file mode 100644 index 5b2754dc..00000000 --- a/html/baremetal/312copy.subx.html +++ /dev/null @@ -1,74 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/312copy.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.SpecialChar { color: #d70000; } -.subxComment { color: #005faf; } -.subxS1Comment { color: #0000af; } -.LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/312copy.subx'>https://github.com/akkartik/mu/blob/main/baremetal/312copy.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span>== code -<span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="subxFunction">copy-array-object</span>: <span class="subxComment"># src: (addr array T), dest-ah: (addr handle array T)</span> -<span id="L4" class="LineNr"> 4 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5" class="LineNr"> 5 </span> 55/push-ebp -<span id="L6" class="LineNr"> 6 </span> 89/<- %ebp 4/r32/esp -<span id="L7" class="LineNr"> 7 </span> <span class="subxComment">#</span> -<span id="L8" class="LineNr"> 8 </span> (<a href='120allocate.subx.html#L669'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) *(ebp+0xc)) -<span id="L9" class="LineNr"> 9 </span><span class="Constant">$copy-array-object:end</span>: -<span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L11" class="LineNr">11 </span> 89/<- %esp 5/r32/ebp -<span id="L12" class="LineNr">12 </span> 5d/pop-to-ebp -<span id="L13" class="LineNr">13 </span> c3/return -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/313index-bounds-check.subx.html b/html/baremetal/313index-bounds-check.subx.html deleted file mode 100644 index 8f2509c7..00000000 --- a/html/baremetal/313index-bounds-check.subx.html +++ /dev/null @@ -1,120 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/313index-bounds-check.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.subxS1Comment { color: #0000af; } -.LineNr { } -.Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/313index-bounds-check.subx'>https://github.com/akkartik/mu/blob/main/baremetal/313index-bounds-check.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helper to check an array's bounds, and to abort if they're violated.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Really only intended to be called from code generated by mu.subx.</span> -<span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span>== code -<span id="L5" class="LineNr"> 5 </span> -<span id="L6" class="LineNr"> 6 </span><span class="subxMinorFunction">__check-mu-array-bounds</span>: <span class="subxComment"># index: int, elem-size: int, arr-size: int, function-name: (addr array byte), array-name: (addr array byte)</span> -<span id="L7" class="LineNr"> 7 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L8" class="LineNr"> 8 </span> 55/push-ebp -<span id="L9" class="LineNr"> 9 </span> 89/<- %ebp 4/r32/esp -<span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L11" class="LineNr">11 </span> 50/push-eax -<span id="L12" class="LineNr">12 </span> 51/push-ecx -<span id="L13" class="LineNr">13 </span> 52/push-edx -<span id="L14" class="LineNr">14 </span> <span class="subxS1Comment"># . not bothering saving ebx; it's only clobbered if we're going to abort</span> -<span id="L15" class="LineNr">15 </span> <span class="subxComment"># ecx = arr-size</span> -<span id="L16" class="LineNr">16 </span> 8b/-> *(ebp+0x10) 1/r32/ecx -<span id="L17" class="LineNr">17 </span> <span class="subxComment"># var overflow/edx: int = 0</span> -<span id="L18" class="LineNr">18 </span> ba/copy-to-edx 0/imm32 -<span id="L19" class="LineNr">19 </span> <span class="subxComment"># var offset/eax: int = index * elem-size</span> -<span id="L20" class="LineNr">20 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L21" class="LineNr">21 </span> f7 4/subop/multiply-eax-with *(ebp+0xc) -<span id="L22" class="LineNr">22 </span> <span class="subxComment"># check for overflow</span> -<span id="L23" class="LineNr">23 </span> 81 7/subop/compare %edx 0/imm32 -<span id="L24" class="LineNr">24 </span> 0f 85/jump-if-!= <a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a>:overflow/disp32 -<span id="L25" class="LineNr">25 </span> <span class="subxComment"># check bounds</span> -<span id="L26" class="LineNr">26 </span> 39/compare %eax 1/r32/ecx -<span id="L27" class="LineNr">27 </span> 0f 82/jump-if-unsigned< $__check-mu-array-bounds:end/disp32 <span class="subxComment"># negative index should always abort</span> -<span id="L28" class="LineNr">28 </span> <span class="subxComment"># abort if necessary</span> -<span id="L29" class="LineNr">29 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L30" class="LineNr">30 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L31" class="LineNr">31 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset "</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L32" class="LineNr">32 </span> (<a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 %eax 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L33" class="LineNr">33 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">" is too large for array '"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L34" class="LineNr">34 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x18) 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L35" class="LineNr">35 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"'"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L36" class="LineNr">36 </span> { -<span id="L37" class="LineNr">37 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L38" class="LineNr">38 </span> } -<span id="L39" class="LineNr">39 </span> <span class="subxComment"># never gets here</span> -<span id="L40" class="LineNr">40 </span><span class="Constant">$__check-mu-array-bounds:end</span>: -<span id="L41" class="LineNr">41 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L42" class="LineNr">42 </span> 5a/pop-to-edx -<span id="L43" class="LineNr">43 </span> 59/pop-to-ecx -<span id="L44" class="LineNr">44 </span> 58/pop-to-eax -<span id="L45" class="LineNr">45 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L46" class="LineNr">46 </span> 89/<- %esp 5/r32/ebp -<span id="L47" class="LineNr">47 </span> 5d/pop-to-ebp -<span id="L48" class="LineNr">48 </span> c3/return -<span id="L49" class="LineNr">49 </span> -<span id="L50" class="LineNr">50 </span><span class="subxMinorFunction">__check-mu-array-bounds:overflow</span>: -<span id="L51" class="LineNr">51 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"fn "</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L52" class="LineNr">52 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x14) 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L53" class="LineNr">53 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">": offset to array '"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L54" class="LineNr">54 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"offset to array overflowed 32 bits"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L55" class="LineNr">55 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 *(ebp+0x18) 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L56" class="LineNr">56 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"' overflowed 32 bits"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L57" class="LineNr">57 </span> { -<span id="L58" class="LineNr">58 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L59" class="LineNr">59 </span> } -<span id="L60" class="LineNr">60 </span> <span class="subxComment"># never gets here</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/400.mu.html b/html/baremetal/400.mu.html deleted file mode 100644 index c5302dfc..00000000 --- a/html/baremetal/400.mu.html +++ /dev/null @@ -1,138 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/400.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/400.mu'>https://github.com/akkartik/mu/blob/main/baremetal/400.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># screen</span> -<span id="L2" class="LineNr"> 2 </span><span class="PreProc">sig</span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x: int, y: int, color: int -<span id="L3" class="LineNr"> 3 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L17'>draw-grapheme-on-real-screen</a> g: grapheme, x: int, y: int, color: int, background-color: int -<span id="L4" class="LineNr"> 4 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L96'>cursor-position-on-real-screen</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int -<span id="L5" class="LineNr"> 5 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L109'>set-cursor-position-on-real-screen</a> x: int, y: int -<span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> <a href='103grapheme.subx.html#L134'>show-cursor-on-real-screen</a> g: grapheme -<span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># keyboard</span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">sig</span> <a href='102keyboard.subx.html#L9'>read-key</a> kbd: (addr keyboard)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="muComment"># tests</span> -<span id="L12" class="LineNr">12 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L5'>count-test-failure</a> -<span id="L13" class="LineNr">13 </span><span class="PreProc">sig</span> <a href='104test.subx.html#L17'>num-test-failures</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L14" class="LineNr">14 </span> -<span id="L15" class="LineNr">15 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) -<span id="L16" class="LineNr">16 </span> -<span id="L17" class="LineNr">17 </span><span class="muComment"># streams</span> -<span id="L18" class="LineNr">18 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L20'>clear-stream</a> f: (addr stream _) -<span id="L19" class="LineNr">19 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L59'>rewind-stream</a> f: (addr stream _) -<span id="L20" class="LineNr">20 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L21" class="LineNr">21 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) -<span id="L22" class="LineNr">22 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L23" class="LineNr">23 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) -<span id="L24" class="LineNr">24 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L11'>write</a> f: (addr stream byte), s: (addr array byte) -<span id="L25" class="LineNr">25 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L13'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L26" class="LineNr">26 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L12'>append-byte</a> f: (addr stream byte), n: int -<span id="L27" class="LineNr">27 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> -<span id="L28" class="LineNr">28 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a> f: (addr stream byte), n: int -<span id="L29" class="LineNr">29 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> f: (addr stream byte), n: int -<span id="L30" class="LineNr">30 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L123'>write-int32-hex-bits</a> f: (addr stream byte), n: int, bits: int -<span id="L31" class="LineNr">31 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L32" class="LineNr">32 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L33" class="LineNr">33 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L34" class="LineNr">34 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L35" class="LineNr">35 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L36" class="LineNr">36 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> -<span id="L37" class="LineNr">37 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L23'>parse-decimal-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L38" class="LineNr">38 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L39" class="LineNr">39 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L40" class="LineNr">40 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> -<span id="L41" class="LineNr">41 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L42" class="LineNr">42 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L43" class="LineNr">43 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L44" class="LineNr">44 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L226'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (addr _T) -<span id="L45" class="LineNr">45 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L424'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L46" class="LineNr">46 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L455'>copy-handle</a> src: (handle _T), dest: (addr handle _T) -<span id="L47" class="LineNr">47 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> -<span id="L48" class="LineNr">48 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L49" class="LineNr">49 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L669'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) -<span id="L50" class="LineNr">50 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> -<span id="L51" class="LineNr">51 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L52" class="LineNr">52 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L53" class="LineNr">53 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L54" class="LineNr">54 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) -<span id="L55" class="LineNr">55 </span><span class="muComment"># bad name alert</span> -<span id="L56" class="LineNr">56 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L901'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) -<span id="L57" class="LineNr">57 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int -<span id="L58" class="LineNr">58 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L299'>is-decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L59" class="LineNr">59 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L398'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int -<span id="L60" class="LineNr">60 </span><span class="muComment"># bad name alert</span> -<span id="L61" class="LineNr">61 </span><span class="muComment"># next-word really tokenizes</span> -<span id="L62" class="LineNr">62 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> -<span id="L63" class="LineNr">63 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L11'>next-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># skips '#' comments</span> -<span id="L64" class="LineNr">64 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L306'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> -<span id="L65" class="LineNr">65 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L66" class="LineNr">66 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L67" class="LineNr">67 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> in: (addr stream _), out: (addr handle array _) -<span id="L68" class="LineNr">68 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) -<span id="L69" class="LineNr">69 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L160'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L70" class="LineNr">70 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L187'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte -<span id="L71" class="LineNr">71 </span> -<span id="L72" class="LineNr">72 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> -<span id="L73" class="LineNr">73 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L3'>copy-array-object</a> src: (addr array _), dest-ah: (addr handle array _) -<span id="L74" class="LineNr">74 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L5'>array-equal?</a> a: (addr array int), b: (addr array int)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean -<span id="L75" class="LineNr">75 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> s: (addr array byte), out: (addr handle array int) -<span id="L76" class="LineNr">76 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> s: (addr array byte), out: (addr handle array int) -<span id="L77" class="LineNr">77 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) -<span id="L78" class="LineNr">78 </span> -<span id="L79" class="LineNr">79 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/403unicode.mu.html b/html/baremetal/403unicode.mu.html deleted file mode 100644 index 30c58205..00000000 --- a/html/baremetal/403unicode.mu.html +++ /dev/null @@ -1,255 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/403unicode.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Delimiter { color: #c000c0; } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/403unicode.mu'>https://github.com/akkartik/mu/blob/main/baremetal/403unicode.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Helpers for Unicode.</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Mu has no characters, only code points and graphemes.</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Code points are the indivisible atoms of text streams.</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Code_point">https://en.wikipedia.org/wiki/Code_point</a></span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Graphemes are the smallest self-contained unit of text.</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># Graphemes may consist of multiple code points.</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># Mu graphemes are always represented in utf-8, and they are required to fit</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># in 4 bytes.</span> -<span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> -<span id="L12" class="LineNr"> 12 </span><span class="muComment"># Mu doesn't currently support combining code points, or graphemes made of</span> -<span id="L13" class="LineNr"> 13 </span><span class="muComment"># multiple code points. One day we will.</span> -<span id="L14" class="LineNr"> 14 </span><span class="muComment"># We also don't currently support code points that translate into multiple</span> -<span id="L15" class="LineNr"> 15 </span><span class="muComment"># or wide graphemes. (In particular, Tab will never be supported.)</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="muComment"># transliterated from tb_utf8_unicode_to_char in <a href="https://github.com/nsf/termbox">https://github.com/nsf/termbox</a></span> -<span id="L18" class="LineNr"> 18 </span><span class="muComment"># <a href="https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit">https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit</a> explains the algorithm</span> -<span id="L19" class="LineNr"> 19 </span><span class="muComment">#</span> -<span id="L20" class="LineNr"> 20 </span><span class="muComment"># The day we want to support combining characters, this function will need to</span> -<span id="L21" class="LineNr"> 21 </span><span class="muComment"># take multiple code points. Or something.</span> -<span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L22'>to-grapheme</a></span> in: code-point<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy in -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> first/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L26" class="LineNr"> 26 </span> $to-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># single byte: just return it</span> -<span id="L28" class="LineNr"> 28 </span> compare c, <span class="Constant">0x7f</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-></span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">return</span> g -<span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">}</span> -<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># 2 bytes</span> -<span id="L35" class="LineNr"> 35 </span> compare c, <span class="Constant">0x7ff</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-></span> -<span id="L38" class="LineNr"> 38 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L39" class="LineNr"> 39 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xc0</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> -<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 3 bytes</span> -<span id="L43" class="LineNr"> 43 </span> compare c, <span class="Constant">0xffff</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">break-if-></span> -<span id="L46" class="LineNr"> 46 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L47" class="LineNr"> 47 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> -<span id="L50" class="LineNr"> 50 </span> <span class="muComment"># 4 bytes</span> -<span id="L51" class="LineNr"> 51 </span> compare c, <span class="Constant">0x1fffff</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">break-if-></span> -<span id="L54" class="LineNr"> 54 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">3</span> -<span id="L55" class="LineNr"> 55 </span> first <span class="SpecialChar"><-</span> copy <span class="Constant">0xf0</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break</span> $to-grapheme:compute-length -<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> -<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># more than 4 bytes: unsupported</span> -<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># TODO: print error message to stderr</span> -<span id="L60" class="LineNr"> 60 </span> compare c, <span class="Constant">0x1fffff</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">{</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">break-if-></span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">}</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> -<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break-if-<=</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> tmp/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy c -<span id="L72" class="LineNr"> 72 </span> tmp <span class="SpecialChar"><-</span> and <span class="Constant">0x3f</span> -<span id="L73" class="LineNr"> 73 </span> tmp <span class="SpecialChar"><-</span> or <span class="Constant">0x80</span> -<span id="L74" class="LineNr"> 74 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> -<span id="L75" class="LineNr"> 75 </span> result <span class="SpecialChar"><-</span> or tmp -<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># update loop state</span> -<span id="L77" class="LineNr"> 77 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">6</span> -<span id="L78" class="LineNr"> 78 </span> num-trailers <span class="SpecialChar"><-</span> decrement -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">loop</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">}</span> -<span id="L81" class="LineNr"> 81 </span> <span class="muComment"># emit engine</span> -<span id="L82" class="LineNr"> 82 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> -<span id="L83" class="LineNr"> 83 </span> result <span class="SpecialChar"><-</span> or c -<span id="L84" class="LineNr"> 84 </span> result <span class="SpecialChar"><-</span> or first -<span id="L85" class="LineNr"> 85 </span> <span class="muComment">#</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">return</span> result -<span id="L87" class="LineNr"> 87 </span><span class="Delimiter">}</span> -<span id="L88" class="LineNr"> 88 </span> -<span id="L89" class="LineNr"> 89 </span><span class="muComment"># TODO: bring in tests once we have check-ints-equal</span> -<span id="L90" class="LineNr"> 90 </span> -<span id="L91" class="LineNr"> 91 </span><span class="muComment"># read the next grapheme from a stream of bytes</span> -<span id="L92" class="LineNr"> 92 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L92'>read-grapheme</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L93" class="LineNr"> 93 </span> <span class="muComment"># if at eof, return EOF</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> eof?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in -<span id="L96" class="LineNr"> 96 </span> compare eof?, <span class="Constant">0</span>/false -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break-if-=</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">return</span> <span class="Constant">0xffffffff</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L102" class="LineNr">102 </span> $read-grapheme:compute-length: <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="muComment"># single byte: just return it</span> -<span id="L104" class="LineNr">104 </span> compare c, <span class="Constant">0xc0</span> -<span id="L105" class="LineNr">105 </span> <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> <span class="PreProc">break-if->=</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L108" class="LineNr">108 </span> <span class="PreProc">return</span> g -<span id="L109" class="LineNr">109 </span> <span class="Delimiter">}</span> -<span id="L110" class="LineNr">110 </span> compare c, <span class="Constant">0xfe</span> -<span id="L111" class="LineNr">111 </span> <span class="Delimiter">{</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">break-if-<</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> g -<span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> -<span id="L116" class="LineNr">116 </span> <span class="muComment"># 2 bytes</span> -<span id="L117" class="LineNr">117 </span> compare c, <span class="Constant">0xe0</span> -<span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">break-if->=</span> -<span id="L120" class="LineNr">120 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="muComment"># 3 bytes</span> -<span id="L124" class="LineNr">124 </span> compare c, <span class="Constant">0xf0</span> -<span id="L125" class="LineNr">125 </span> <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">break-if->=</span> -<span id="L127" class="LineNr">127 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> -<span id="L130" class="LineNr">130 </span> <span class="muComment"># 4 bytes</span> -<span id="L131" class="LineNr">131 </span> compare c, <span class="Constant">0xf8</span> -<span id="L132" class="LineNr">132 </span> <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> <span class="PreProc">break-if->=</span> -<span id="L134" class="LineNr">134 </span> num-trailers <span class="SpecialChar"><-</span> copy <span class="Constant">3</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">break</span> $read-grapheme:compute-length -<span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> -<span id="L137" class="LineNr">137 </span> <span class="muComment"># TODO: print error message</span> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> -<span id="L140" class="LineNr">140 </span> <span class="muComment"># prepend trailer bytes</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> -<span id="L144" class="LineNr">144 </span> compare num-trailers, <span class="Constant">0</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">break-if-<=</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='112read-byte.subx.html#L13'>read-byte</a> in -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy tmp -<span id="L148" class="LineNr">148 </span> tmp2 <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L159'>shift-left-bytes</a> tmp2, num-byte-shifts -<span id="L149" class="LineNr">149 </span> result <span class="SpecialChar"><-</span> or tmp2 -<span id="L150" class="LineNr">150 </span> <span class="muComment"># update loop state</span> -<span id="L151" class="LineNr">151 </span> num-byte-shifts <span class="SpecialChar"><-</span> increment -<span id="L152" class="LineNr">152 </span> num-trailers <span class="SpecialChar"><-</span> decrement -<span id="L153" class="LineNr">153 </span> <span class="PreProc">loop</span> -<span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> -<span id="L155" class="LineNr">155 </span> <span class="PreProc">return</span> result -<span id="L156" class="LineNr">156 </span><span class="Delimiter">}</span> -<span id="L157" class="LineNr">157 </span> -<span id="L158" class="LineNr">158 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> -<span id="L159" class="LineNr">159 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L159'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L162" class="LineNr">162 </span> <span class="Delimiter">{</span> -<span id="L163" class="LineNr">163 </span> compare i, k -<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if->=</span> -<span id="L165" class="LineNr">165 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">break-if->=</span> -<span id="L167" class="LineNr">167 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span> -<span id="L168" class="LineNr">168 </span> i <span class="SpecialChar"><-</span> increment -<span id="L169" class="LineNr">169 </span> <span class="PreProc">loop</span> -<span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> -<span id="L171" class="LineNr">171 </span> <span class="PreProc">return</span> result -<span id="L172" class="LineNr">172 </span><span class="Delimiter">}</span> -<span id="L173" class="LineNr">173 </span> -<span id="L174" class="LineNr">174 </span><span class="muComment"># write a grapheme to a stream of bytes</span> -<span id="L175" class="LineNr">175 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> -<span id="L176" class="LineNr">176 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L176'>write-grapheme</a></span> out: (addr stream byte), g: grapheme <span class="Delimiter">{</span> -<span id="L177" class="LineNr">177 </span>$write-grapheme:body: <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy g -<span id="L179" class="LineNr">179 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> -<span id="L180" class="LineNr">180 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> -<span id="L181" class="LineNr">181 </span> compare c, <span class="Constant">0</span> -<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L183" class="LineNr">183 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c -<span id="L184" class="LineNr">184 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> -<span id="L185" class="LineNr">185 </span> compare c, <span class="Constant">0</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L187" class="LineNr">187 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c -<span id="L188" class="LineNr">188 </span> c <span class="SpecialChar"><-</span> shift-right <span class="Constant">8</span> -<span id="L189" class="LineNr">189 </span> compare c, <span class="Constant">0</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body -<span id="L191" class="LineNr">191 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> out, c -<span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/412render-float-decimal.mu.html b/html/baremetal/412render-float-decimal.mu.html deleted file mode 100644 index 4bcbefd7..00000000 --- a/html/baremetal/412render-float-decimal.mu.html +++ /dev/null @@ -1,667 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/412render-float-decimal.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/412render-float-decimal.mu'>https://github.com/akkartik/mu/blob/main/baremetal/412render-float-decimal.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># print out floats in decimal</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Basic idea:</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># Ignoring sign, floating point numbers are represented as 1.mantissa * 2^exponent</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Therefore, to print a float in decimal, we need to:</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># - compute its value without decimal point</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># - convert to an array of decimal digits</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># - print out the array while inserting the decimal point appropriately</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment">#</span> -<span id="L11" class="LineNr"> 11 </span><span class="muComment"># Basic complication: the computation generates numbers larger than an int can</span> -<span id="L12" class="LineNr"> 12 </span><span class="muComment"># hold. We need a way to represent big ints.</span> -<span id="L13" class="LineNr"> 13 </span><span class="muComment">#</span> -<span id="L14" class="LineNr"> 14 </span><span class="muComment"># Key insight: use a representation for big ints that's close to what we need</span> -<span id="L15" class="LineNr"> 15 </span><span class="muComment"># anyway, an array of decimal digits.</span> -<span id="L16" class="LineNr"> 16 </span><span class="muComment">#</span> -<span id="L17" class="LineNr"> 17 </span><span class="muComment"># Style note: we aren't creating a big int library here. The only operations</span> -<span id="L18" class="LineNr"> 18 </span><span class="muComment"># we need are halving and doubling. Following the link above, it seems more</span> -<span id="L19" class="LineNr"> 19 </span><span class="muComment"># comprehensible to keep these operations inlined so that we can track the</span> -<span id="L20" class="LineNr"> 20 </span><span class="muComment"># position of the decimal point with dispatch.</span> -<span id="L21" class="LineNr"> 21 </span><span class="muComment">#</span> -<span id="L22" class="LineNr"> 22 </span><span class="muComment"># This approach turns out to be fast enough for most purposes.</span> -<span id="L23" class="LineNr"> 23 </span><span class="muComment"># Optimizations, however, get wildly more complex.</span> -<span id="L24" class="LineNr"> 24 </span> -<span id="L25" class="LineNr"> 25 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L25'>test-render-float-decimal-normal</a></span> <span class="Delimiter">{</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L28" class="LineNr"> 28 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">5</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L29" class="LineNr"> 29 </span> <span class="muComment"># 0.5</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> half/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, half, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L32" class="LineNr"> 32 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0.5 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-render-float-decimal-normal</a> 0.5"</span> -<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># 0.25</span> -<span id="L34" class="LineNr"> 34 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> quarter/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">4</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, quarter, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L37" class="LineNr"> 37 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0.25 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-render-float-decimal-normal</a> 0.25"</span> -<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># 0.75</span> -<span id="L39" class="LineNr"> 39 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> three-quarters/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">3</span>, <span class="Constant">4</span> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, three-quarters, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L42" class="LineNr"> 42 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0.75 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-render-float-decimal-normal</a> 0.75"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="muComment"># 0.125</span> -<span id="L44" class="LineNr"> 44 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> eighth/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">8</span> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, eighth, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L47" class="LineNr"> 47 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0.125 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-render-float-decimal-normal</a> 0.125"</span> -<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># 0.0625; start using scientific notation</span> -<span id="L49" class="LineNr"> 49 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> sixteenth/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">0x10</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, sixteenth, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L52" class="LineNr"> 52 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"6.25e-2 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-render-float-decimal-normal</a> 0.0625"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="muComment"># sqrt(2); truncate floats with lots of digits after the decimal but not too many before</span> -<span id="L54" class="LineNr"> 54 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> sqrt-2/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> square-root two-f -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, sqrt-2, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L58" class="LineNr"> 58 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1.414 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L25'>test-render-float-decimal-normal</a> √2"</span> -<span id="L59" class="LineNr"> 59 </span><span class="Delimiter">}</span> -<span id="L60" class="LineNr"> 60 </span> -<span id="L61" class="LineNr"> 61 </span><span class="muComment"># print whole integers without decimals</span> -<span id="L62" class="LineNr"> 62 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a></span> <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L65" class="LineNr"> 65 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">5</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L66" class="LineNr"> 66 </span> <span class="muComment"># 1</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, one-f, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L69" class="LineNr"> 69 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a> 1"</span> -<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># 2</span> -<span id="L71" class="LineNr"> 71 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, two-f, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L74" class="LineNr"> 74 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"2 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a> 2"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="muComment"># 10</span> -<span id="L76" class="LineNr"> 76 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0xa</span>, <span class="Constant">1</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, ten-f, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L79" class="LineNr"> 79 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"10 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a> 10"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># -10</span> -<span id="L81" class="LineNr"> 81 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">-0xa</span>, <span class="Constant">1</span> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, minus-ten-f, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L84" class="LineNr"> 84 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"-10 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a> -10"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># 999</span> -<span id="L86" class="LineNr"> 86 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e7</span>, <span class="Constant">1</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, minus-ten-f, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L89" class="LineNr"> 89 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"999 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a> 1000"</span> -<span id="L90" class="LineNr"> 90 </span> <span class="muComment"># 1000 - start using scientific notation</span> -<span id="L91" class="LineNr"> 91 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e8</span>, <span class="Constant">1</span> -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, minus-ten-f, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L94" class="LineNr"> 94 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1.00e3 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a> 1000"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="muComment"># 100,000</span> -<span id="L96" class="LineNr"> 96 </span> <a href='500text-screen.mu.html#L194'>clear-screen</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> hundred-thousand/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x186a0</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> hundred-thousand-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert hundred-thousand -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, hundred-thousand-f, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L100" class="LineNr">100 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1.00e5 "</span>, <span class="Constant">"F - <a href='412render-float-decimal.mu.html#L62'>test-render-float-decimal-integer</a> 100,000"</span> -<span id="L101" class="LineNr">101 </span><span class="Delimiter">}</span> -<span id="L102" class="LineNr">102 </span> -<span id="L103" class="LineNr">103 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L103'>test-render-float-decimal-zero</a></span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L106" class="LineNr">106 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">5</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> zero: float -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, zero, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L109" class="LineNr">109 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 "</span>, <span class="Constant">"F - test-render-float-decimal-zero"</span> -<span id="L110" class="LineNr">110 </span><span class="Delimiter">}</span> -<span id="L111" class="LineNr">111 </span> -<span id="L112" class="LineNr">112 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L112'>test-render-float-decimal-negative-zero</a></span> <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L115" class="LineNr">115 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">5</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> n: int -<span id="L117" class="LineNr">117 </span> copy-to n, <span class="Constant">0x80000000</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> negative-zero/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, negative-zero, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L120" class="LineNr">120 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"-0 "</span>, <span class="Constant">"F - test-render-float-decimal-negative-zero"</span> -<span id="L121" class="LineNr">121 </span><span class="Delimiter">}</span> -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L123'>test-render-float-decimal-infinity</a></span> <span class="Delimiter">{</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L126" class="LineNr">126 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">5</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> n: int -<span id="L128" class="LineNr">128 </span> <span class="muComment"># 0|11111111|00000000000000000000000</span> -<span id="L129" class="LineNr">129 </span> <span class="muComment"># 0111|1111|1000|0000|0000|0000|0000|0000</span> -<span id="L130" class="LineNr">130 </span> copy-to n, <span class="Constant">0x7f800000</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, infinity, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L133" class="LineNr">133 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"Inf "</span>, <span class="Constant">"F - test-render-float-decimal-infinity"</span> -<span id="L134" class="LineNr">134 </span><span class="Delimiter">}</span> -<span id="L135" class="LineNr">135 </span> -<span id="L136" class="LineNr">136 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L136'>test-render-float-decimal-negative-infinity</a></span> <span class="Delimiter">{</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L139" class="LineNr">139 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">5</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> n: int -<span id="L141" class="LineNr">141 </span> copy-to n, <span class="Constant">0xff800000</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, negative-infinity, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L144" class="LineNr">144 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"-Inf "</span>, <span class="Constant">"F - test-render-float-decimal-negative-infinity"</span> -<span id="L145" class="LineNr">145 </span><span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412render-float-decimal.mu.html#L147'>test-render-float-decimal-not-a-number</a></span> <span class="Delimiter">{</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> screen-on-stack: <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> <a href='500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L150" class="LineNr">150 </span> <a href='500text-screen.mu.html#L23'>initialize-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">5</span> <span class="muComment"># 32 columns should be more than enough</span> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> n: int -<span id="L152" class="LineNr">152 </span> copy-to n, <span class="Constant">0xffffffff</span> <span class="muComment"># exponent must be all 1's, and mantissa must be non-zero</span> -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> nan/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n -<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a> <a href='500text-screen.mu.html#L9'>screen</a>, nan, <span class="Constant">3</span>/precision, <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L155" class="LineNr">155 </span> <a href='504test-screen.mu.html#L7'>check-screen-row</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"NaN "</span>, <span class="Constant">"F - test-render-float-decimal-not-a-number"</span> -<span id="L156" class="LineNr">156 </span><span class="Delimiter">}</span> -<span id="L157" class="LineNr">157 </span> -<span id="L158" class="LineNr">158 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> -<span id="L159" class="LineNr">159 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L159'>render-float-decimal</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), in: float, precision: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L160" class="LineNr">160 </span> <span class="muComment"># - special names</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> reinterpret in -<span id="L162" class="LineNr">162 </span> compare bits, <span class="Constant">0</span> -<span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-!=</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L116'>draw-text-rightward-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"0"</span>, x, y, color, background-color -<span id="L166" class="LineNr">166 </span> <span class="PreProc">return</span> new-x -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> -<span id="L168" class="LineNr">168 </span> compare bits, <span class="Constant">0x80000000</span> -<span id="L169" class="LineNr">169 </span> <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-!=</span> -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L116'>draw-text-rightward-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"-0"</span>, x, y, color, background-color -<span id="L172" class="LineNr">172 </span> <span class="PreProc">return</span> new-x -<span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> -<span id="L174" class="LineNr">174 </span> compare bits, <span class="Constant">0x7f800000</span> -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">{</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-!=</span> -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L116'>draw-text-rightward-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"Inf"</span>, x, y, color, background-color -<span id="L178" class="LineNr">178 </span> <span class="PreProc">return</span> new-x -<span id="L179" class="LineNr">179 </span> <span class="Delimiter">}</span> -<span id="L180" class="LineNr">180 </span> compare bits, <span class="Constant">0xff800000</span> -<span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> -<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-!=</span> -<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L116'>draw-text-rightward-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"-Inf"</span>, x, y, color, background-color -<span id="L184" class="LineNr">184 </span> <span class="PreProc">return</span> new-x -<span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L187" class="LineNr">187 </span> exponent <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> -<span id="L188" class="LineNr">188 </span> exponent <span class="SpecialChar"><-</span> and <span class="Constant">0xff</span> -<span id="L189" class="LineNr">189 </span> exponent <span class="SpecialChar"><-</span> subtract <span class="Constant">0x7f</span> -<span id="L190" class="LineNr">190 </span> compare exponent, <span class="Constant">0x80</span> -<span id="L191" class="LineNr">191 </span> <span class="Delimiter">{</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if-!=</span> -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L116'>draw-text-rightward-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"NaN"</span>, x, y, color, background-color -<span id="L194" class="LineNr">194 </span> <span class="PreProc">return</span> new-x -<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span> <span class="muComment"># - regular numbers</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L198" class="LineNr">198 </span> sign <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x1f</span> -<span id="L199" class="LineNr">199 </span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> compare sign, <span class="Constant">1</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">break-if-!=</span> -<span id="L202" class="LineNr">202 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x2d</span>/minus, x, y, color, background-color -<span id="L203" class="LineNr">203 </span> increment x -<span id="L204" class="LineNr">204 </span> <span class="Delimiter">}</span> -<span id="L205" class="LineNr">205 </span> -<span id="L206" class="LineNr">206 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L208" class="LineNr">208 </span> v <span class="SpecialChar"><-</span> and <span class="Constant">0x7fffff</span> -<span id="L209" class="LineNr">209 </span> v <span class="SpecialChar"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> -<span id="L210" class="LineNr">210 </span> <span class="muComment"># e = exponent - 0x17</span> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy exponent -<span id="L212" class="LineNr">212 </span> e <span class="SpecialChar"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> -<span id="L213" class="LineNr">213 </span> -<span id="L214" class="LineNr">214 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> -<span id="L215" class="LineNr">215 </span> <span class="muComment"># unlike <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a>, no ascii here</span> -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> address buf-storage -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L249'>decimal-digits</a> v, buf -<span id="L219" class="LineNr">219 </span> <span class="muComment"># I suspect we can do without reversing, but we'll follow <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> -<span id="L220" class="LineNr">220 </span> <span class="muComment"># closely for now.</span> -<span id="L221" class="LineNr">221 </span> <a href='412render-float-decimal.mu.html#L266'>reverse-digits</a> buf, n -<span id="L222" class="LineNr">222 </span> -<span id="L223" class="LineNr">223 </span> <span class="muComment"># loop if e > 0</span> -<span id="L224" class="LineNr">224 </span> <span class="Delimiter">{</span> -<span id="L225" class="LineNr">225 </span> compare e, <span class="Constant">0</span> -<span id="L226" class="LineNr">226 </span> <span class="PreProc">break-if-<=</span> -<span id="L227" class="LineNr">227 </span> n <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L288'>double-array-of-decimal-digits</a> buf, n -<span id="L228" class="LineNr">228 </span> e <span class="SpecialChar"><-</span> decrement -<span id="L229" class="LineNr">229 </span> <span class="PreProc">loop</span> -<span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> -<span id="L231" class="LineNr">231 </span> -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L233" class="LineNr">233 </span> -<span id="L234" class="LineNr">234 </span> <span class="muComment"># loop if e < 0</span> -<span id="L235" class="LineNr">235 </span> <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> compare e, <span class="Constant">0</span> -<span id="L237" class="LineNr">237 </span> <span class="PreProc">break-if->=</span> -<span id="L238" class="LineNr">238 </span> n, dp <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L339'>halve-array-of-decimal-digits</a> buf, n, dp -<span id="L239" class="LineNr">239 </span> e <span class="SpecialChar"><-</span> increment -<span id="L240" class="LineNr">240 </span> <span class="PreProc">loop</span> -<span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> -<span id="L242" class="LineNr">242 </span> -<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L413'>render-float-buffer</a> <a href='500text-screen.mu.html#L9'>screen</a>, buf, n, dp, precision, x, y, color, background-color -<span id="L244" class="LineNr">244 </span> <span class="PreProc">return</span> new-x -<span id="L245" class="LineNr">245 </span><span class="Delimiter">}</span> -<span id="L246" class="LineNr">246 </span> -<span id="L247" class="LineNr">247 </span><span class="muComment"># store the decimal digits of 'n' into 'buf', units first</span> -<span id="L248" class="LineNr">248 </span><span class="muComment"># n must be positive</span> -<span id="L249" class="LineNr">249 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L249'>decimal-digits</a></span> n: int, _buf: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> curr-byte/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L254" class="LineNr">254 </span> <span class="Delimiter">{</span> -<span id="L255" class="LineNr">255 </span> compare curr, <span class="Constant">0</span> -<span id="L256" class="LineNr">256 </span> <span class="PreProc">break-if-=</span> -<span id="L257" class="LineNr">257 </span> curr, curr-byte <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> curr, <span class="Constant">0xa</span> -<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L259" class="LineNr">259 </span> copy-byte-to *dest, curr-byte -<span id="L260" class="LineNr">260 </span> i <span class="SpecialChar"><-</span> increment -<span id="L261" class="LineNr">261 </span> <span class="PreProc">loop</span> -<span id="L262" class="LineNr">262 </span> <span class="Delimiter">}</span> -<span id="L263" class="LineNr">263 </span> <span class="PreProc">return</span> i -<span id="L264" class="LineNr">264 </span><span class="Delimiter">}</span> -<span id="L265" class="LineNr">265 </span> -<span id="L266" class="LineNr">266 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L266'>reverse-digits</a></span> _buf: (addr array byte), n: int <span class="Delimiter">{</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> buf/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L270" class="LineNr">270 </span> right <span class="SpecialChar"><-</span> decrement -<span id="L271" class="LineNr">271 </span> <span class="Delimiter">{</span> -<span id="L272" class="LineNr">272 </span> compare left, right -<span id="L273" class="LineNr">273 </span> <span class="PreProc">break-if->=</span> -<span id="L274" class="LineNr">274 </span> <span class="Delimiter">{</span> -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> l-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, left -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> r-a/<span class="Constant">edx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, right -<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> l/<span class="Constant">ebx</span>: byte <span class="SpecialChar"><-</span> copy-byte *l-a -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *r-a -<span id="L279" class="LineNr">279 </span> copy-byte-to *l-a, r -<span id="L280" class="LineNr">280 </span> copy-byte-to *r-a, l -<span id="L281" class="LineNr">281 </span> <span class="Delimiter">}</span> -<span id="L282" class="LineNr">282 </span> left <span class="SpecialChar"><-</span> increment -<span id="L283" class="LineNr">283 </span> right <span class="SpecialChar"><-</span> decrement -<span id="L284" class="LineNr">284 </span> <span class="PreProc">loop</span> -<span id="L285" class="LineNr">285 </span> <span class="Delimiter">}</span> -<span id="L286" class="LineNr">286 </span><span class="Delimiter">}</span> -<span id="L287" class="LineNr">287 </span> -<span id="L288" class="LineNr">288 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L288'>double-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L290" class="LineNr">290 </span> <span class="muComment"># initialize delta</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> delta/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L292" class="LineNr">292 </span> <span class="Delimiter">{</span> -<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, <span class="Constant">0</span> -<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *curr -<span id="L295" class="LineNr">295 </span> compare tmp, <span class="Constant">5</span> -<span id="L296" class="LineNr">296 </span> <span class="PreProc">break-if-<</span> -<span id="L297" class="LineNr">297 </span> delta <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L298" class="LineNr">298 </span> <span class="Delimiter">}</span> -<span id="L299" class="LineNr">299 </span> <span class="muComment"># loop</span> -<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L302" class="LineNr">302 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L303" class="LineNr">303 </span> <span class="Delimiter">{</span> -<span id="L304" class="LineNr">304 </span> compare i, <span class="Constant">0</span> -<span id="L305" class="LineNr">305 </span> <span class="PreProc">break-if-<=</span> -<span id="L306" class="LineNr">306 </span> <span class="muComment"># x += 2*buf[i]</span> -<span id="L307" class="LineNr">307 </span> <span class="Delimiter">{</span> -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *tmp -<span id="L310" class="LineNr">310 </span> x <span class="SpecialChar"><-</span> add tmp2 -<span id="L311" class="LineNr">311 </span> x <span class="SpecialChar"><-</span> add tmp2 -<span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> <span class="muComment"># x, buf[i+delta] = x/10, x%10</span> -<span id="L314" class="LineNr">314 </span> <span class="Delimiter">{</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> dest-index/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy i -<span id="L316" class="LineNr">316 </span> dest-index <span class="SpecialChar"><-</span> add delta -<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, dest-index -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> next-digit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L319" class="LineNr">319 </span> x, next-digit <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">0xa</span> -<span id="L320" class="LineNr">320 </span> copy-byte-to *dest, next-digit -<span id="L321" class="LineNr">321 </span> <span class="Delimiter">}</span> -<span id="L322" class="LineNr">322 </span> <span class="muComment">#</span> -<span id="L323" class="LineNr">323 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L324" class="LineNr">324 </span> <span class="PreProc">loop</span> -<span id="L325" class="LineNr">325 </span> <span class="Delimiter">}</span> -<span id="L326" class="LineNr">326 </span> <span class="muComment"># final patch-up</span> -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L328" class="LineNr">328 </span> compare delta, <span class="Constant">1</span> -<span id="L329" class="LineNr">329 </span> <span class="Delimiter">{</span> -<span id="L330" class="LineNr">330 </span> <span class="PreProc">break-if-!=</span> -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, <span class="Constant">0</span> -<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> one/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L333" class="LineNr">333 </span> copy-byte-to *curr, one -<span id="L334" class="LineNr">334 </span> n <span class="SpecialChar"><-</span> increment -<span id="L335" class="LineNr">335 </span> <span class="Delimiter">}</span> -<span id="L336" class="LineNr">336 </span> <span class="PreProc">return</span> n -<span id="L337" class="LineNr">337 </span><span class="Delimiter">}</span> -<span id="L338" class="LineNr">338 </span> -<span id="L339" class="LineNr">339 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L339'>halve-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int, _dp: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _dp -<span id="L343" class="LineNr">343 </span> <span class="muComment"># initialize one side</span> -<span id="L344" class="LineNr">344 </span> <span class="Delimiter">{</span> -<span id="L345" class="LineNr">345 </span> <span class="muComment"># if buf[n-1]%2 == 0, break</span> -<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> right-index/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L347" class="LineNr">347 </span> right-index <span class="SpecialChar"><-</span> decrement -<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> right-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, right-index -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *right-a -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> right-int/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy right -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L352" class="LineNr">352 </span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L354" class="LineNr">354 </span> dummy, remainder <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> right-int, <span class="Constant">2</span> -<span id="L355" class="LineNr">355 </span> <span class="Delimiter">}</span> -<span id="L356" class="LineNr">356 </span> compare remainder, <span class="Constant">0</span> -<span id="L357" class="LineNr">357 </span> <span class="PreProc">break-if-=</span> -<span id="L358" class="LineNr">358 </span> <span class="muComment"># buf[n] = 0</span> -<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> next-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, n -<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> zero/<span class="Constant">edx</span>: byte <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L361" class="LineNr">361 </span> copy-byte-to *next-a, zero -<span id="L362" class="LineNr">362 </span> <span class="muComment"># n++</span> -<span id="L363" class="LineNr">363 </span> n <span class="SpecialChar"><-</span> increment -<span id="L364" class="LineNr">364 </span> <span class="Delimiter">}</span> -<span id="L365" class="LineNr">365 </span> <span class="muComment"># initialize the other</span> -<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> delta/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L368" class="LineNr">368 </span> <span class="Delimiter">{</span> -<span id="L369" class="LineNr">369 </span> <span class="muComment"># if buf[0] >= 2, break</span> -<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, <span class="Constant">0</span> -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *left -<span id="L372" class="LineNr">372 </span> compare src, <span class="Constant">2</span> -<span id="L373" class="LineNr">373 </span> <span class="PreProc">break-if->=</span> -<span id="L374" class="LineNr">374 </span> <span class="muComment"># delta, x = 1, buf[0]</span> -<span id="L375" class="LineNr">375 </span> delta <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L376" class="LineNr">376 </span> x <span class="SpecialChar"><-</span> copy src -<span id="L377" class="LineNr">377 </span> <span class="muComment"># n--</span> -<span id="L378" class="LineNr">378 </span> n <span class="SpecialChar"><-</span> decrement -<span id="L379" class="LineNr">379 </span> <span class="muComment"># dp--</span> -<span id="L380" class="LineNr">380 </span> dp <span class="SpecialChar"><-</span> decrement -<span id="L381" class="LineNr">381 </span> <span class="Delimiter">}</span> -<span id="L382" class="LineNr">382 </span> <span class="muComment"># loop</span> -<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L384" class="LineNr">384 </span> <span class="Delimiter">{</span> -<span id="L385" class="LineNr">385 </span> compare i, n -<span id="L386" class="LineNr">386 </span> <span class="PreProc">break-if->=</span> -<span id="L387" class="LineNr">387 </span> <span class="muComment"># x = x*10 + buf[i+delta]</span> -<span id="L388" class="LineNr">388 </span> <span class="Delimiter">{</span> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> ten/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> -<span id="L390" class="LineNr">390 </span> x <span class="SpecialChar"><-</span> multiply ten -<span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> src-index/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy i -<span id="L392" class="LineNr">392 </span> src-index <span class="SpecialChar"><-</span> add delta -<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> src-a/<span class="Constant">edx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, src-index -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: byte <span class="SpecialChar"><-</span> copy-byte *src-a -<span id="L395" class="LineNr">395 </span> x <span class="SpecialChar"><-</span> add src -<span id="L396" class="LineNr">396 </span> <span class="Delimiter">}</span> -<span id="L397" class="LineNr">397 </span> <span class="muComment"># buf[i], x = x/2, x%2</span> -<span id="L398" class="LineNr">398 </span> <span class="Delimiter">{</span> -<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> quotient/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L401" class="LineNr">401 </span> quotient, remainder <span class="SpecialChar"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">2</span> -<span id="L402" class="LineNr">402 </span> x <span class="SpecialChar"><-</span> copy remainder -<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L404" class="LineNr">404 </span> copy-byte-to *dest, quotient -<span id="L405" class="LineNr">405 </span> <span class="Delimiter">}</span> -<span id="L406" class="LineNr">406 </span> <span class="muComment">#</span> -<span id="L407" class="LineNr">407 </span> i <span class="SpecialChar"><-</span> increment -<span id="L408" class="LineNr">408 </span> <span class="PreProc">loop</span> -<span id="L409" class="LineNr">409 </span> <span class="Delimiter">}</span> -<span id="L410" class="LineNr">410 </span> <span class="PreProc">return</span> n, dp -<span id="L411" class="LineNr">411 </span><span class="Delimiter">}</span> -<span id="L412" class="LineNr">412 </span> -<span id="L413" class="LineNr">413 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L413'>render-float-buffer</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), _buf: (addr array byte), n: int, dp: int, precision: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L415" class="LineNr">415 </span> <span class="Delimiter">{</span> -<span id="L416" class="LineNr">416 </span> compare dp, <span class="Constant">0</span> -<span id="L417" class="LineNr">417 </span> <span class="PreProc">break-if->=</span> -<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L465'>render-float-buffer-in-scientific-notation</a> <a href='500text-screen.mu.html#L9'>screen</a>, buf, n, dp, precision, x, y, color, background-color -<span id="L419" class="LineNr">419 </span> <span class="PreProc">return</span> new-x -<span id="L420" class="LineNr">420 </span> <span class="Delimiter">}</span> -<span id="L421" class="LineNr">421 </span> <span class="Delimiter">{</span> -<span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L423" class="LineNr">423 </span> compare dp2, precision -<span id="L424" class="LineNr">424 </span> <span class="PreProc">break-if-<=</span> -<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L465'>render-float-buffer-in-scientific-notation</a> <a href='500text-screen.mu.html#L9'>screen</a>, buf, n, dp, precision, x, y, color, background-color -<span id="L426" class="LineNr">426 </span> <span class="PreProc">return</span> new-x -<span id="L427" class="LineNr">427 </span> <span class="Delimiter">}</span> -<span id="L428" class="LineNr">428 </span> <span class="Delimiter">{</span> -<span id="L429" class="LineNr">429 </span> compare dp, <span class="Constant">0</span> -<span id="L430" class="LineNr">430 </span> <span class="PreProc">break-if-!=</span> -<span id="L431" class="LineNr">431 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x30</span>/<span class="Constant">0</span>, x, y, color, background-color -<span id="L432" class="LineNr">432 </span> increment x -<span id="L433" class="LineNr">433 </span> <span class="Delimiter">}</span> -<span id="L434" class="LineNr">434 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L435" class="LineNr">435 </span> <span class="muComment"># bounds = min(n, dp+3)</span> -<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L437" class="LineNr">437 </span> limit <span class="SpecialChar"><-</span> add <span class="Constant">3</span> -<span id="L438" class="LineNr">438 </span> <span class="Delimiter">{</span> -<span id="L439" class="LineNr">439 </span> compare limit, n -<span id="L440" class="LineNr">440 </span> <span class="PreProc">break-if-<=</span> -<span id="L441" class="LineNr">441 </span> limit <span class="SpecialChar"><-</span> copy n -<span id="L442" class="LineNr">442 </span> <span class="Delimiter">}</span> -<span id="L443" class="LineNr">443 </span> <span class="Delimiter">{</span> -<span id="L444" class="LineNr">444 </span> compare i, limit -<span id="L445" class="LineNr">445 </span> <span class="PreProc">break-if->=</span> -<span id="L446" class="LineNr">446 </span> <span class="muComment"># print '.' if necessary</span> -<span id="L447" class="LineNr">447 </span> compare i, dp -<span id="L448" class="LineNr">448 </span> <span class="Delimiter">{</span> -<span id="L449" class="LineNr">449 </span> <span class="PreProc">break-if-!=</span> -<span id="L450" class="LineNr">450 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x2e</span>/decimal-point, x, y, color, background-color -<span id="L451" class="LineNr">451 </span> increment x -<span id="L452" class="LineNr">452 </span> <span class="Delimiter">}</span> -<span id="L453" class="LineNr">453 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *curr-a -<span id="L455" class="LineNr">455 </span> curr <span class="SpecialChar"><-</span> add <span class="Constant">0x30</span>/<span class="Constant">0</span> -<span id="L456" class="LineNr">456 </span> <span class="PreProc">var</span> curr-grapheme/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy curr -<span id="L457" class="LineNr">457 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, curr-grapheme, x, y, color, background-color -<span id="L458" class="LineNr">458 </span> increment x -<span id="L459" class="LineNr">459 </span> i <span class="SpecialChar"><-</span> increment -<span id="L460" class="LineNr">460 </span> <span class="PreProc">loop</span> -<span id="L461" class="LineNr">461 </span> <span class="Delimiter">}</span> -<span id="L462" class="LineNr">462 </span> <span class="PreProc">return</span> x -<span id="L463" class="LineNr">463 </span><span class="Delimiter">}</span> -<span id="L464" class="LineNr">464 </span> -<span id="L465" class="LineNr">465 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L465'>render-float-buffer-in-scientific-notation</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), _buf: (addr array byte), n: int, dp: int, precision: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L466" class="LineNr">466 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _buf -<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L468" class="LineNr">468 </span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr">469 </span> compare i, n -<span id="L470" class="LineNr">470 </span> <span class="PreProc">break-if->=</span> -<span id="L471" class="LineNr">471 </span> compare i, precision -<span id="L472" class="LineNr">472 </span> <span class="PreProc">break-if->=</span> -<span id="L473" class="LineNr">473 </span> compare i, <span class="Constant">1</span> -<span id="L474" class="LineNr">474 </span> <span class="Delimiter">{</span> -<span id="L475" class="LineNr">475 </span> <span class="PreProc">break-if-!=</span> -<span id="L476" class="LineNr">476 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x2e</span>/decimal-point, x, y, color, background-color -<span id="L477" class="LineNr">477 </span> increment x -<span id="L478" class="LineNr">478 </span> <span class="Delimiter">}</span> -<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="SpecialChar"><-</span> index buf, i -<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="SpecialChar"><-</span> copy-byte *curr-a -<span id="L481" class="LineNr">481 </span> curr <span class="SpecialChar"><-</span> add <span class="Constant">0x30</span>/<span class="Constant">0</span> -<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> curr-grapheme/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy curr -<span id="L483" class="LineNr">483 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, curr-grapheme, x, y, color, background-color -<span id="L484" class="LineNr">484 </span> increment x -<span id="L485" class="LineNr">485 </span> <span class="muComment">#</span> -<span id="L486" class="LineNr">486 </span> i <span class="SpecialChar"><-</span> increment -<span id="L487" class="LineNr">487 </span> <span class="PreProc">loop</span> -<span id="L488" class="LineNr">488 </span> <span class="Delimiter">}</span> -<span id="L489" class="LineNr">489 </span> <a href='500text-screen.mu.html#L94'>draw-code-point</a> <a href='500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x65</span>/e, x, y, color, background-color -<span id="L490" class="LineNr">490 </span> increment x -<span id="L491" class="LineNr">491 </span> decrement dp -<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> new-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L494" class="LineNr">494 </span> new-x, new-y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L357'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a> <a href='500text-screen.mu.html#L9'>screen</a>, dp, x, y, color, background-color -<span id="L495" class="LineNr">495 </span> <span class="PreProc">return</span> new-x -<span id="L496" class="LineNr">496 </span><span class="Delimiter">}</span> -<span id="L497" class="LineNr">497 </span> -<span id="L498" class="LineNr">498 </span><span class="muComment"># follows the structure of render-float-decimal</span> -<span id="L499" class="LineNr">499 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> -<span id="L500" class="LineNr">500 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412render-float-decimal.mu.html#L500'>float-size</a></span> in: float, precision: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L501" class="LineNr">501 </span> <span class="muComment"># - special names</span> -<span id="L502" class="LineNr">502 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> reinterpret in -<span id="L503" class="LineNr">503 </span> compare bits, <span class="Constant">0</span> -<span id="L504" class="LineNr">504 </span> <span class="Delimiter">{</span> -<span id="L505" class="LineNr">505 </span> <span class="PreProc">break-if-!=</span> -<span id="L506" class="LineNr">506 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># for "0"</span> -<span id="L507" class="LineNr">507 </span> <span class="Delimiter">}</span> -<span id="L508" class="LineNr">508 </span> compare bits, <span class="Constant">0x80000000</span> -<span id="L509" class="LineNr">509 </span> <span class="Delimiter">{</span> -<span id="L510" class="LineNr">510 </span> <span class="PreProc">break-if-!=</span> -<span id="L511" class="LineNr">511 </span> <span class="PreProc">return</span> <span class="Constant">2</span> <span class="muComment"># for "-0"</span> -<span id="L512" class="LineNr">512 </span> <span class="Delimiter">}</span> -<span id="L513" class="LineNr">513 </span> compare bits, <span class="Constant">0x7f800000</span> -<span id="L514" class="LineNr">514 </span> <span class="Delimiter">{</span> -<span id="L515" class="LineNr">515 </span> <span class="PreProc">break-if-!=</span> -<span id="L516" class="LineNr">516 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># for "Inf"</span> -<span id="L517" class="LineNr">517 </span> <span class="Delimiter">}</span> -<span id="L518" class="LineNr">518 </span> compare bits, <span class="Constant">0xff800000</span> -<span id="L519" class="LineNr">519 </span> <span class="Delimiter">{</span> -<span id="L520" class="LineNr">520 </span> <span class="PreProc">break-if-!=</span> -<span id="L521" class="LineNr">521 </span> <span class="PreProc">return</span> <span class="Constant">4</span> <span class="muComment"># for "-Inf"</span> -<span id="L522" class="LineNr">522 </span> <span class="Delimiter">}</span> -<span id="L523" class="LineNr">523 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L524" class="LineNr">524 </span> exponent <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> -<span id="L525" class="LineNr">525 </span> exponent <span class="SpecialChar"><-</span> and <span class="Constant">0xff</span> -<span id="L526" class="LineNr">526 </span> exponent <span class="SpecialChar"><-</span> subtract <span class="Constant">0x7f</span> -<span id="L527" class="LineNr">527 </span> compare exponent, <span class="Constant">0x80</span> -<span id="L528" class="LineNr">528 </span> <span class="Delimiter">{</span> -<span id="L529" class="LineNr">529 </span> <span class="PreProc">break-if-!=</span> -<span id="L530" class="LineNr">530 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># for "NaN"</span> -<span id="L531" class="LineNr">531 </span> <span class="Delimiter">}</span> -<span id="L532" class="LineNr">532 </span> <span class="muComment"># - regular numbers</span> -<span id="L533" class="LineNr">533 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> -<span id="L534" class="LineNr">534 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L535" class="LineNr">535 </span> v <span class="SpecialChar"><-</span> and <span class="Constant">0x7fffff</span> -<span id="L536" class="LineNr">536 </span> v <span class="SpecialChar"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> -<span id="L537" class="LineNr">537 </span> <span class="muComment"># e = exponent - 0x17</span> -<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy exponent -<span id="L539" class="LineNr">539 </span> e <span class="SpecialChar"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> -<span id="L540" class="LineNr">540 </span> -<span id="L541" class="LineNr">541 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> -<span id="L542" class="LineNr">542 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) -<span id="L543" class="LineNr">543 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="SpecialChar"><-</span> address buf-storage -<span id="L544" class="LineNr">544 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L249'>decimal-digits</a> v, buf -<span id="L545" class="LineNr">545 </span> <a href='412render-float-decimal.mu.html#L266'>reverse-digits</a> buf, n -<span id="L546" class="LineNr">546 </span> -<span id="L547" class="LineNr">547 </span> <span class="muComment"># loop if e > 0</span> -<span id="L548" class="LineNr">548 </span> <span class="Delimiter">{</span> -<span id="L549" class="LineNr">549 </span> compare e, <span class="Constant">0</span> -<span id="L550" class="LineNr">550 </span> <span class="PreProc">break-if-<=</span> -<span id="L551" class="LineNr">551 </span> n <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L288'>double-array-of-decimal-digits</a> buf, n -<span id="L552" class="LineNr">552 </span> e <span class="SpecialChar"><-</span> decrement -<span id="L553" class="LineNr">553 </span> <span class="PreProc">loop</span> -<span id="L554" class="LineNr">554 </span> <span class="Delimiter">}</span> -<span id="L555" class="LineNr">555 </span> -<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L557" class="LineNr">557 </span> -<span id="L558" class="LineNr">558 </span> <span class="muComment"># loop if e < 0</span> -<span id="L559" class="LineNr">559 </span> <span class="Delimiter">{</span> -<span id="L560" class="LineNr">560 </span> compare e, <span class="Constant">0</span> -<span id="L561" class="LineNr">561 </span> <span class="PreProc">break-if->=</span> -<span id="L562" class="LineNr">562 </span> n, dp <span class="SpecialChar"><-</span> <a href='412render-float-decimal.mu.html#L339'>halve-array-of-decimal-digits</a> buf, n, dp -<span id="L563" class="LineNr">563 </span> e <span class="SpecialChar"><-</span> increment -<span id="L564" class="LineNr">564 </span> <span class="PreProc">loop</span> -<span id="L565" class="LineNr">565 </span> <span class="Delimiter">}</span> -<span id="L566" class="LineNr">566 </span> -<span id="L567" class="LineNr">567 </span> compare dp, <span class="Constant">0</span> -<span id="L568" class="LineNr">568 </span> <span class="Delimiter">{</span> -<span id="L569" class="LineNr">569 </span> <span class="PreProc">break-if->=</span> -<span id="L570" class="LineNr">570 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> -<span id="L571" class="LineNr">571 </span> <span class="Delimiter">}</span> -<span id="L572" class="LineNr">572 </span> <span class="Delimiter">{</span> -<span id="L573" class="LineNr">573 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L574" class="LineNr">574 </span> compare dp2, precision -<span id="L575" class="LineNr">575 </span> <span class="PreProc">break-if-<=</span> -<span id="L576" class="LineNr">576 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> -<span id="L577" class="LineNr">577 </span> <span class="Delimiter">}</span> -<span id="L578" class="LineNr">578 </span> -<span id="L579" class="LineNr">579 </span> <span class="muComment"># result = min(n, dp+3)</span> -<span id="L580" class="LineNr">580 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy dp -<span id="L581" class="LineNr">581 </span> result <span class="SpecialChar"><-</span> add <span class="Constant">3</span> -<span id="L582" class="LineNr">582 </span> <span class="Delimiter">{</span> -<span id="L583" class="LineNr">583 </span> compare result, n -<span id="L584" class="LineNr">584 </span> <span class="PreProc">break-if-<=</span> -<span id="L585" class="LineNr">585 </span> result <span class="SpecialChar"><-</span> copy n -<span id="L586" class="LineNr">586 </span> <span class="Delimiter">}</span> -<span id="L587" class="LineNr">587 </span> -<span id="L588" class="LineNr">588 </span> <span class="muComment"># account for decimal point</span> -<span id="L589" class="LineNr">589 </span> compare dp, n -<span id="L590" class="LineNr">590 </span> <span class="Delimiter">{</span> -<span id="L591" class="LineNr">591 </span> <span class="PreProc">break-if->=</span> -<span id="L592" class="LineNr">592 </span> result <span class="SpecialChar"><-</span> increment -<span id="L593" class="LineNr">593 </span> <span class="Delimiter">}</span> -<span id="L594" class="LineNr">594 </span> -<span id="L595" class="LineNr">595 </span> <span class="muComment"># account for sign</span> -<span id="L596" class="LineNr">596 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> reinterpret in -<span id="L597" class="LineNr">597 </span> sign <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x1f</span> -<span id="L598" class="LineNr">598 </span> <span class="Delimiter">{</span> -<span id="L599" class="LineNr">599 </span> compare sign, <span class="Constant">1</span> -<span id="L600" class="LineNr">600 </span> <span class="PreProc">break-if-!=</span> -<span id="L601" class="LineNr">601 </span> result <span class="SpecialChar"><-</span> increment -<span id="L602" class="LineNr">602 </span> <span class="Delimiter">}</span> -<span id="L603" class="LineNr">603 </span> <span class="PreProc">return</span> result -<span id="L604" class="LineNr">604 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/500clear-screen.mu.html b/html/baremetal/500clear-screen.mu.html deleted file mode 100644 index e78089e6..00000000 --- a/html/baremetal/500clear-screen.mu.html +++ /dev/null @@ -1,79 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/500clear-screen.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/500clear-screen.mu'>https://github.com/akkartik/mu/blob/main/baremetal/500clear-screen.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='500clear-screen.mu.html#L1'>clear-screen</a></span> screen: (addr screen) <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L3" class="LineNr"> 3 </span> <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> compare y, <span class="Constant">0x300</span> <span class="muComment"># 768</span> -<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">break-if->=</span> -<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L7" class="LineNr"> 7 </span> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> compare x, <span class="Constant">0x400</span> <span class="muComment"># 1024</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if->=</span> -<span id="L10" class="LineNr">10 </span> <a href='101screen.subx.html#L5'>pixel</a> <span class="Constant">0</span>, x, y, <span class="Constant">0</span> <span class="muComment"># black</span> -<span id="L11" class="LineNr">11 </span> x <span class="SpecialChar"><-</span> increment -<span id="L12" class="LineNr">12 </span> <span class="PreProc">loop</span> -<span id="L13" class="LineNr">13 </span> <span class="Delimiter">}</span> -<span id="L14" class="LineNr">14 </span> y <span class="SpecialChar"><-</span> increment -<span id="L15" class="LineNr">15 </span> <span class="PreProc">loop</span> -<span id="L16" class="LineNr">16 </span> <span class="Delimiter">}</span> -<span id="L17" class="LineNr">17 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/501draw-text.mu.html b/html/baremetal/501draw-text.mu.html deleted file mode 100644 index 9b81ae73..00000000 --- a/html/baremetal/501draw-text.mu.html +++ /dev/null @@ -1,588 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/501draw-text.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/501draw-text.mu'>https://github.com/akkartik/mu/blob/main/baremetal/501draw-text.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># some primitives for moving the cursor without making assumptions about</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># raster order</span> -<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L3'>move-cursor-left</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L6" class="LineNr"> 6 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L7" class="LineNr"> 7 </span> compare cursor-x, <span class="Constant">0</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if-></span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">return</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">}</span> -<span id="L12" class="LineNr"> 12 </span> cursor-x <span class="SpecialChar"><-</span> decrement -<span id="L13" class="LineNr"> 13 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y -<span id="L14" class="LineNr"> 14 </span><span class="Delimiter">}</span> -<span id="L15" class="LineNr"> 15 </span> -<span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L16'>move-cursor-right</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> _width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L19" class="LineNr"> 19 </span> _width, dummy <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _width -<span id="L21" class="LineNr"> 21 </span> limit <span class="SpecialChar"><-</span> decrement -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L24" class="LineNr"> 24 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L25" class="LineNr"> 25 </span> compare cursor-x, limit -<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">{</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-<</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> -<span id="L30" class="LineNr"> 30 </span> cursor-x <span class="SpecialChar"><-</span> increment -<span id="L31" class="LineNr"> 31 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y -<span id="L32" class="LineNr"> 32 </span><span class="Delimiter">}</span> -<span id="L33" class="LineNr"> 33 </span> -<span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L34'>move-cursor-up</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L37" class="LineNr"> 37 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L38" class="LineNr"> 38 </span> compare cursor-y, <span class="Constant">0</span> -<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break-if-></span> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">return</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> -<span id="L43" class="LineNr"> 43 </span> cursor-y <span class="SpecialChar"><-</span> decrement -<span id="L44" class="LineNr"> 44 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y -<span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> -<span id="L47" class="LineNr"> 47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L47'>move-cursor-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> _height/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L50" class="LineNr"> 50 </span> dummy, _height <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _height -<span id="L52" class="LineNr"> 52 </span> limit <span class="SpecialChar"><-</span> decrement -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L55" class="LineNr"> 55 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L56" class="LineNr"> 56 </span> compare cursor-y, limit -<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">break-if-<</span> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">return</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> -<span id="L61" class="LineNr"> 61 </span> cursor-y <span class="SpecialChar"><-</span> increment -<span id="L62" class="LineNr"> 62 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y -<span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> -<span id="L64" class="LineNr"> 64 </span> -<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), g: grapheme, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L68" class="LineNr"> 68 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L69" class="LineNr"> 69 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, cursor-x, cursor-y, color, background-color -<span id="L70" class="LineNr"> 70 </span><span class="Delimiter">}</span> -<span id="L71" class="LineNr"> 71 </span> -<span id="L72" class="LineNr"> 72 </span><span class="muComment"># we can't really render non-ASCII yet, but when we do we'll be ready</span> -<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L73'>draw-code-point-at-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), c: code-point, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L75" class="LineNr"> 75 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, color, background-color -<span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> -<span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="muComment"># draw a single line of text from x, y to xmax</span> -<span id="L79" class="LineNr"> 79 </span><span class="muComment"># return the next 'x' coordinate</span> -<span id="L80" class="LineNr"> 80 </span><span class="muComment"># if there isn't enough space, return 0 without modifying the screen</span> -<span id="L81" class="LineNr"> 81 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L81'>draw-text-rightward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, xmax: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L84" class="LineNr"> 84 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># check if we have enough space</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">{</span> -<span id="L88" class="LineNr"> 88 </span> compare xcurr, xmax -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-></span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L91" class="LineNr"> 91 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">break-if-=</span> -<span id="L93" class="LineNr"> 93 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> -<span id="L96" class="LineNr"> 96 </span> compare xcurr, xmax -<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">{</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-<=</span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L100" class="LineNr">100 </span> <span class="Delimiter">}</span> -<span id="L101" class="LineNr">101 </span> <span class="muComment"># we do; actually draw</span> -<span id="L102" class="LineNr">102 </span> <a href='106stream.subx.html#L59'>rewind-stream</a> stream -<span id="L103" class="LineNr">103 </span> xcurr <span class="SpecialChar"><-</span> copy x -<span id="L104" class="LineNr">104 </span> <span class="Delimiter">{</span> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L106" class="LineNr">106 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-=</span> -<span id="L108" class="LineNr">108 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, y, color, background-color -<span id="L109" class="LineNr">109 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L110" class="LineNr">110 </span> <span class="PreProc">loop</span> -<span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> -<span id="L112" class="LineNr">112 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, y -<span id="L113" class="LineNr">113 </span> <span class="PreProc">return</span> xcurr -<span id="L114" class="LineNr">114 </span><span class="Delimiter">}</span> -<span id="L115" class="LineNr">115 </span> -<span id="L116" class="LineNr">116 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L116'>draw-text-rightward-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L119" class="LineNr">119 </span> width, height <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L81'>draw-text-rightward</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, x, width, y, color, background-color -<span id="L121" class="LineNr">121 </span> <span class="PreProc">return</span> result -<span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> -<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L124'>draw-text-rightward-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L127" class="LineNr">127 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L81'>draw-text-rightward</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, cursor-x, xmax, cursor-y, color, background-color -<span id="L129" class="LineNr">129 </span> <span class="PreProc">return</span> result -<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> -<span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="muComment"># draw text in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> -<span id="L133" class="LineNr">133 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> -<span id="L134" class="LineNr">134 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> -<span id="L135" class="LineNr">135 </span><span class="muComment"># if there isn't enough space, return 0 without modifying the screen</span> -<span id="L136" class="LineNr">136 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L136'>draw-text-wrapping-right-then-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L139" class="LineNr">139 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L140" class="LineNr">140 </span> <span class="muComment"># check if we have enough space</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> -<span id="L144" class="LineNr">144 </span> compare ycurr, ymax -<span id="L145" class="LineNr">145 </span> <span class="PreProc">break-if->=</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L147" class="LineNr">147 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L148" class="LineNr">148 </span> <span class="PreProc">break-if-=</span> -<span id="L149" class="LineNr">149 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L150" class="LineNr">150 </span> compare xcurr, xmax -<span id="L151" class="LineNr">151 </span> <span class="Delimiter">{</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">break-if-<</span> -<span id="L153" class="LineNr">153 </span> xcurr <span class="SpecialChar"><-</span> copy xmin -<span id="L154" class="LineNr">154 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L155" class="LineNr">155 </span> <span class="Delimiter">}</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">loop</span> -<span id="L157" class="LineNr">157 </span> <span class="Delimiter">}</span> -<span id="L158" class="LineNr">158 </span> compare ycurr, ymax -<span id="L159" class="LineNr">159 </span> <span class="Delimiter">{</span> -<span id="L160" class="LineNr">160 </span> <span class="PreProc">break-if-<</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">return</span> <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L162" class="LineNr">162 </span> <span class="Delimiter">}</span> -<span id="L163" class="LineNr">163 </span> <span class="muComment"># we do; actually draw</span> -<span id="L164" class="LineNr">164 </span> <a href='106stream.subx.html#L59'>rewind-stream</a> stream -<span id="L165" class="LineNr">165 </span> xcurr <span class="SpecialChar"><-</span> copy x -<span id="L166" class="LineNr">166 </span> ycurr <span class="SpecialChar"><-</span> copy y -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">{</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L169" class="LineNr">169 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-=</span> -<span id="L171" class="LineNr">171 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, ycurr, color, background-color -<span id="L172" class="LineNr">172 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L173" class="LineNr">173 </span> compare xcurr, xmax -<span id="L174" class="LineNr">174 </span> <span class="Delimiter">{</span> -<span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if-<</span> -<span id="L176" class="LineNr">176 </span> xcurr <span class="SpecialChar"><-</span> copy xmin -<span id="L177" class="LineNr">177 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L178" class="LineNr">178 </span> <span class="Delimiter">}</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">loop</span> -<span id="L180" class="LineNr">180 </span> <span class="Delimiter">}</span> -<span id="L181" class="LineNr">181 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr -<span id="L182" class="LineNr">182 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L183" class="LineNr">183 </span><span class="Delimiter">}</span> -<span id="L184" class="LineNr">184 </span> -<span id="L185" class="LineNr">185 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L185'>move-cursor-rightward-and-downward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), xmin: int, xmax: int <span class="Delimiter">{</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L188" class="LineNr">188 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L189" class="LineNr">189 </span> cursor-x <span class="SpecialChar"><-</span> increment -<span id="L190" class="LineNr">190 </span> compare cursor-x, xmax -<span id="L191" class="LineNr">191 </span> <span class="Delimiter">{</span> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if-<</span> -<span id="L193" class="LineNr">193 </span> cursor-x <span class="SpecialChar"><-</span> copy xmin -<span id="L194" class="LineNr">194 </span> cursor-y <span class="SpecialChar"><-</span> increment -<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> -<span id="L196" class="LineNr">196 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, cursor-x, cursor-y -<span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> -<span id="L198" class="LineNr">198 </span> -<span id="L199" class="LineNr">199 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L199'>draw-text-wrapping-right-then-down-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L202" class="LineNr">202 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> -<span id="L203" class="LineNr">203 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L136'>draw-text-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L204" class="LineNr">204 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L205" class="LineNr">205 </span><span class="Delimiter">}</span> -<span id="L206" class="LineNr">206 </span> -<span id="L207" class="LineNr">207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L207'>draw-text-wrapping-right-then-down-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L210" class="LineNr">210 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> end-x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy cursor-x -<span id="L212" class="LineNr">212 </span> end-x <span class="SpecialChar"><-</span> increment -<span id="L213" class="LineNr">213 </span> compare end-x, xmax -<span id="L214" class="LineNr">214 </span> <span class="Delimiter">{</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">break-if-<</span> -<span id="L216" class="LineNr">216 </span> cursor-x <span class="SpecialChar"><-</span> copy xmin -<span id="L217" class="LineNr">217 </span> cursor-y <span class="SpecialChar"><-</span> increment -<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> -<span id="L219" class="LineNr">219 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L136'>draw-text-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color -<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span> -<span id="L222" class="LineNr">222 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> -<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L225" class="LineNr">225 </span> width, height <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L226" class="LineNr">226 </span> <a href='501draw-text.mu.html#L207'>draw-text-wrapping-right-then-down-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L227" class="LineNr">227 </span><span class="Delimiter">}</span> -<span id="L228" class="LineNr">228 </span> -<span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L229'>draw-int32-hex-wrapping-right-then-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L232" class="LineNr">232 </span> <a href='117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, n -<span id="L233" class="LineNr">233 </span> <span class="muComment"># check if we have enough space</span> -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L236" class="LineNr">236 </span> <span class="Delimiter">{</span> -<span id="L237" class="LineNr">237 </span> compare ycurr, ymax -<span id="L238" class="LineNr">238 </span> <span class="PreProc">break-if->=</span> -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L240" class="LineNr">240 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L241" class="LineNr">241 </span> <span class="PreProc">break-if-=</span> -<span id="L242" class="LineNr">242 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L243" class="LineNr">243 </span> compare xcurr, xmax -<span id="L244" class="LineNr">244 </span> <span class="Delimiter">{</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">break-if-<</span> -<span id="L246" class="LineNr">246 </span> xcurr <span class="SpecialChar"><-</span> copy xmin -<span id="L247" class="LineNr">247 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L248" class="LineNr">248 </span> <span class="Delimiter">}</span> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">loop</span> -<span id="L250" class="LineNr">250 </span> <span class="Delimiter">}</span> -<span id="L251" class="LineNr">251 </span> compare ycurr, ymax -<span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">break-if-<</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">return</span> <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L255" class="LineNr">255 </span> <span class="Delimiter">}</span> -<span id="L256" class="LineNr">256 </span> <span class="muComment"># we do; actually draw</span> -<span id="L257" class="LineNr">257 </span> <a href='106stream.subx.html#L59'>rewind-stream</a> stream -<span id="L258" class="LineNr">258 </span> xcurr <span class="SpecialChar"><-</span> copy x -<span id="L259" class="LineNr">259 </span> ycurr <span class="SpecialChar"><-</span> copy y -<span id="L260" class="LineNr">260 </span> <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L262" class="LineNr">262 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L263" class="LineNr">263 </span> <span class="PreProc">break-if-=</span> -<span id="L264" class="LineNr">264 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, ycurr, color, background-color -<span id="L265" class="LineNr">265 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L266" class="LineNr">266 </span> compare xcurr, xmax -<span id="L267" class="LineNr">267 </span> <span class="Delimiter">{</span> -<span id="L268" class="LineNr">268 </span> <span class="PreProc">break-if-<</span> -<span id="L269" class="LineNr">269 </span> xcurr <span class="SpecialChar"><-</span> copy xmin -<span id="L270" class="LineNr">270 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L271" class="LineNr">271 </span> <span class="Delimiter">}</span> -<span id="L272" class="LineNr">272 </span> <span class="PreProc">loop</span> -<span id="L273" class="LineNr">273 </span> <span class="Delimiter">}</span> -<span id="L274" class="LineNr">274 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr -<span id="L275" class="LineNr">275 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L276" class="LineNr">276 </span><span class="Delimiter">}</span> -<span id="L277" class="LineNr">277 </span> -<span id="L278" class="LineNr">278 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L278'>draw-int32-hex-wrapping-right-then-down-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L281" class="LineNr">281 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> -<span id="L282" class="LineNr">282 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L229'>draw-int32-hex-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L283" class="LineNr">283 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L284" class="LineNr">284 </span><span class="Delimiter">}</span> -<span id="L285" class="LineNr">285 </span> -<span id="L286" class="LineNr">286 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L286'>draw-int32-hex-wrapping-right-then-down-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L289" class="LineNr">289 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> end-x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy cursor-x -<span id="L291" class="LineNr">291 </span> end-x <span class="SpecialChar"><-</span> increment -<span id="L292" class="LineNr">292 </span> compare end-x, xmax -<span id="L293" class="LineNr">293 </span> <span class="Delimiter">{</span> -<span id="L294" class="LineNr">294 </span> <span class="PreProc">break-if-<</span> -<span id="L295" class="LineNr">295 </span> cursor-x <span class="SpecialChar"><-</span> copy xmin -<span id="L296" class="LineNr">296 </span> cursor-y <span class="SpecialChar"><-</span> increment -<span id="L297" class="LineNr">297 </span> <span class="Delimiter">}</span> -<span id="L298" class="LineNr">298 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L229'>draw-int32-hex-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color -<span id="L299" class="LineNr">299 </span><span class="Delimiter">}</span> -<span id="L300" class="LineNr">300 </span> -<span id="L301" class="LineNr">301 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L301'>draw-int32-hex-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L304" class="LineNr">304 </span> width, height <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L305" class="LineNr">305 </span> <a href='501draw-text.mu.html#L286'>draw-int32-hex-wrapping-right-then-down-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L306" class="LineNr">306 </span><span class="Delimiter">}</span> -<span id="L307" class="LineNr">307 </span> -<span id="L308" class="LineNr">308 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L308'>draw-int32-decimal-wrapping-right-then-down</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L311" class="LineNr">311 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> stream, n -<span id="L312" class="LineNr">312 </span> <span class="muComment"># check if we have enough space</span> -<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L315" class="LineNr">315 </span> <span class="Delimiter">{</span> -<span id="L316" class="LineNr">316 </span> compare ycurr, ymax -<span id="L317" class="LineNr">317 </span> <span class="PreProc">break-if->=</span> -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L319" class="LineNr">319 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L320" class="LineNr">320 </span> <span class="PreProc">break-if-=</span> -<span id="L321" class="LineNr">321 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L322" class="LineNr">322 </span> compare xcurr, xmax -<span id="L323" class="LineNr">323 </span> <span class="Delimiter">{</span> -<span id="L324" class="LineNr">324 </span> <span class="PreProc">break-if-<</span> -<span id="L325" class="LineNr">325 </span> xcurr <span class="SpecialChar"><-</span> copy xmin -<span id="L326" class="LineNr">326 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L327" class="LineNr">327 </span> <span class="Delimiter">}</span> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">loop</span> -<span id="L329" class="LineNr">329 </span> <span class="Delimiter">}</span> -<span id="L330" class="LineNr">330 </span> compare ycurr, ymax -<span id="L331" class="LineNr">331 </span> <span class="Delimiter">{</span> -<span id="L332" class="LineNr">332 </span> <span class="PreProc">break-if-<</span> -<span id="L333" class="LineNr">333 </span> <span class="PreProc">return</span> <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L334" class="LineNr">334 </span> <span class="Delimiter">}</span> -<span id="L335" class="LineNr">335 </span> <span class="muComment"># we do; actually draw</span> -<span id="L336" class="LineNr">336 </span> <a href='106stream.subx.html#L59'>rewind-stream</a> stream -<span id="L337" class="LineNr">337 </span> xcurr <span class="SpecialChar"><-</span> copy x -<span id="L338" class="LineNr">338 </span> ycurr <span class="SpecialChar"><-</span> copy y -<span id="L339" class="LineNr">339 </span> <span class="Delimiter">{</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L341" class="LineNr">341 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L342" class="LineNr">342 </span> <span class="PreProc">break-if-=</span> -<span id="L343" class="LineNr">343 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, ycurr, color, background-color -<span id="L344" class="LineNr">344 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L345" class="LineNr">345 </span> compare xcurr, xmax -<span id="L346" class="LineNr">346 </span> <span class="Delimiter">{</span> -<span id="L347" class="LineNr">347 </span> <span class="PreProc">break-if-<</span> -<span id="L348" class="LineNr">348 </span> xcurr <span class="SpecialChar"><-</span> copy xmin -<span id="L349" class="LineNr">349 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L350" class="LineNr">350 </span> <span class="Delimiter">}</span> -<span id="L351" class="LineNr">351 </span> <span class="PreProc">loop</span> -<span id="L352" class="LineNr">352 </span> <span class="Delimiter">}</span> -<span id="L353" class="LineNr">353 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr -<span id="L354" class="LineNr">354 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L355" class="LineNr">355 </span><span class="Delimiter">}</span> -<span id="L356" class="LineNr">356 </span> -<span id="L357" class="LineNr">357 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L357'>draw-int32-decimal-wrapping-right-then-down-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L360" class="LineNr">360 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> -<span id="L361" class="LineNr">361 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L308'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L362" class="LineNr">362 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L363" class="LineNr">363 </span><span class="Delimiter">}</span> -<span id="L364" class="LineNr">364 </span> -<span id="L365" class="LineNr">365 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L365'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L368" class="LineNr">368 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> end-x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy cursor-x -<span id="L370" class="LineNr">370 </span> end-x <span class="SpecialChar"><-</span> increment -<span id="L371" class="LineNr">371 </span> compare end-x, xmax -<span id="L372" class="LineNr">372 </span> <span class="Delimiter">{</span> -<span id="L373" class="LineNr">373 </span> <span class="PreProc">break-if-<</span> -<span id="L374" class="LineNr">374 </span> cursor-x <span class="SpecialChar"><-</span> copy xmin -<span id="L375" class="LineNr">375 </span> cursor-y <span class="SpecialChar"><-</span> increment -<span id="L376" class="LineNr">376 </span> <span class="Delimiter">}</span> -<span id="L377" class="LineNr">377 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L308'>draw-int32-decimal-wrapping-right-then-down</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color -<span id="L378" class="LineNr">378 </span><span class="Delimiter">}</span> -<span id="L379" class="LineNr">379 </span> -<span id="L380" class="LineNr">380 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L380'>draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), n: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L383" class="LineNr">383 </span> width, height <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L384" class="LineNr">384 </span> <a href='501draw-text.mu.html#L365'>draw-int32-decimal-wrapping-right-then-down-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, n, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L385" class="LineNr">385 </span><span class="Delimiter">}</span> -<span id="L386" class="LineNr">386 </span> -<span id="L387" class="LineNr">387 </span><span class="muComment">## Text direction: down then right</span> -<span id="L388" class="LineNr">388 </span> -<span id="L389" class="LineNr">389 </span><span class="muComment"># draw a single line of text vertically from x, y to ymax</span> -<span id="L390" class="LineNr">390 </span><span class="muComment"># return the next 'y' coordinate</span> -<span id="L391" class="LineNr">391 </span><span class="muComment"># if there isn't enough space, return 0 without modifying the screen</span> -<span id="L392" class="LineNr">392 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L392'>draw-text-downward</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, ymax: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L395" class="LineNr">395 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L396" class="LineNr">396 </span> <span class="muComment"># check if we have enough space</span> -<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L398" class="LineNr">398 </span> <span class="Delimiter">{</span> -<span id="L399" class="LineNr">399 </span> compare ycurr, ymax -<span id="L400" class="LineNr">400 </span> <span class="PreProc">break-if-></span> -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L402" class="LineNr">402 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L403" class="LineNr">403 </span> <span class="PreProc">break-if-=</span> -<span id="L404" class="LineNr">404 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L405" class="LineNr">405 </span> <span class="PreProc">loop</span> -<span id="L406" class="LineNr">406 </span> <span class="Delimiter">}</span> -<span id="L407" class="LineNr">407 </span> compare ycurr, ymax -<span id="L408" class="LineNr">408 </span> <span class="Delimiter">{</span> -<span id="L409" class="LineNr">409 </span> <span class="PreProc">break-if-<=</span> -<span id="L410" class="LineNr">410 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L411" class="LineNr">411 </span> <span class="Delimiter">}</span> -<span id="L412" class="LineNr">412 </span> <span class="muComment"># we do; actually draw</span> -<span id="L413" class="LineNr">413 </span> <a href='106stream.subx.html#L59'>rewind-stream</a> stream -<span id="L414" class="LineNr">414 </span> ycurr <span class="SpecialChar"><-</span> copy y -<span id="L415" class="LineNr">415 </span> <span class="Delimiter">{</span> -<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L417" class="LineNr">417 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L418" class="LineNr">418 </span> <span class="PreProc">break-if-=</span> -<span id="L419" class="LineNr">419 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, x, ycurr, color, background-color -<span id="L420" class="LineNr">420 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L421" class="LineNr">421 </span> <span class="PreProc">loop</span> -<span id="L422" class="LineNr">422 </span> <span class="Delimiter">}</span> -<span id="L423" class="LineNr">423 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, x, ycurr -<span id="L424" class="LineNr">424 </span> <span class="PreProc">return</span> ycurr -<span id="L425" class="LineNr">425 </span><span class="Delimiter">}</span> -<span id="L426" class="LineNr">426 </span> -<span id="L427" class="LineNr">427 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L427'>draw-text-downward-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L430" class="LineNr">430 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L392'>draw-text-downward</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, cursor-x, cursor-y, ymax, color, background-color -<span id="L432" class="LineNr">432 </span><span class="Delimiter">}</span> -<span id="L433" class="LineNr">433 </span> -<span id="L434" class="LineNr">434 </span><span class="muComment"># draw text down and right in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary</span> -<span id="L435" class="LineNr">435 </span><span class="muComment"># return the next (x, y) coordinate in raster order where drawing stopped</span> -<span id="L436" class="LineNr">436 </span><span class="muComment"># that way the caller can draw more if given the same min and max bounding-box.</span> -<span id="L437" class="LineNr">437 </span><span class="muComment"># if there isn't enough space, return 0 without modifying the screen</span> -<span id="L438" class="LineNr">438 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L438'>draw-text-wrapping-down-then-right</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L439" class="LineNr">439 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L440" class="LineNr">440 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L441" class="LineNr">441 </span> <a href='108write.subx.html#L11'>write</a> stream, text -<span id="L442" class="LineNr">442 </span> <span class="muComment"># check if we have enough space</span> -<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> xcurr/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> ycurr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L445" class="LineNr">445 </span> <span class="Delimiter">{</span> -<span id="L446" class="LineNr">446 </span> compare xcurr, xmax -<span id="L447" class="LineNr">447 </span> <span class="PreProc">break-if->=</span> -<span id="L448" class="LineNr">448 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L449" class="LineNr">449 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L450" class="LineNr">450 </span> <span class="PreProc">break-if-=</span> -<span id="L451" class="LineNr">451 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L452" class="LineNr">452 </span> compare ycurr, ymax -<span id="L453" class="LineNr">453 </span> <span class="Delimiter">{</span> -<span id="L454" class="LineNr">454 </span> <span class="PreProc">break-if-<</span> -<span id="L455" class="LineNr">455 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L456" class="LineNr">456 </span> ycurr <span class="SpecialChar"><-</span> copy ymin -<span id="L457" class="LineNr">457 </span> <span class="Delimiter">}</span> -<span id="L458" class="LineNr">458 </span> <span class="PreProc">loop</span> -<span id="L459" class="LineNr">459 </span> <span class="Delimiter">}</span> -<span id="L460" class="LineNr">460 </span> compare xcurr, xmax -<span id="L461" class="LineNr">461 </span> <span class="Delimiter">{</span> -<span id="L462" class="LineNr">462 </span> <span class="PreProc">break-if-<</span> -<span id="L463" class="LineNr">463 </span> <span class="PreProc">return</span> <span class="Constant">0</span>, <span class="Constant">0</span> -<span id="L464" class="LineNr">464 </span> <span class="Delimiter">}</span> -<span id="L465" class="LineNr">465 </span> <span class="muComment"># we do; actually draw</span> -<span id="L466" class="LineNr">466 </span> <a href='106stream.subx.html#L59'>rewind-stream</a> stream -<span id="L467" class="LineNr">467 </span> xcurr <span class="SpecialChar"><-</span> copy x -<span id="L468" class="LineNr">468 </span> ycurr <span class="SpecialChar"><-</span> copy y -<span id="L469" class="LineNr">469 </span> <span class="Delimiter">{</span> -<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> stream -<span id="L471" class="LineNr">471 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file -<span id="L472" class="LineNr">472 </span> <span class="PreProc">break-if-=</span> -<span id="L473" class="LineNr">473 </span> <a href='500text-screen.mu.html#L68'>draw-grapheme</a> <a href='500text-screen.mu.html#L9'>screen</a>, g, xcurr, ycurr, color, background-color -<span id="L474" class="LineNr">474 </span> ycurr <span class="SpecialChar"><-</span> increment -<span id="L475" class="LineNr">475 </span> compare ycurr, ymax -<span id="L476" class="LineNr">476 </span> <span class="Delimiter">{</span> -<span id="L477" class="LineNr">477 </span> <span class="PreProc">break-if-<</span> -<span id="L478" class="LineNr">478 </span> xcurr <span class="SpecialChar"><-</span> increment -<span id="L479" class="LineNr">479 </span> ycurr <span class="SpecialChar"><-</span> copy ymin -<span id="L480" class="LineNr">480 </span> <span class="Delimiter">}</span> -<span id="L481" class="LineNr">481 </span> <span class="PreProc">loop</span> -<span id="L482" class="LineNr">482 </span> <span class="Delimiter">}</span> -<span id="L483" class="LineNr">483 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a>, xcurr, ycurr -<span id="L484" class="LineNr">484 </span> <span class="PreProc">return</span> xcurr, ycurr -<span id="L485" class="LineNr">485 </span><span class="Delimiter">}</span> -<span id="L486" class="LineNr">486 </span> -<span id="L487" class="LineNr">487 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L487'>draw-text-wrapping-down-then-right-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), x: int, y: int, color: int, background-color: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L489" class="LineNr">489 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L490" class="LineNr">490 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> <span class="muComment"># width, height</span> -<span id="L491" class="LineNr">491 </span> x2, y2 <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L438'>draw-text-wrapping-down-then-right</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, x2, y2, x, y, color, background-color -<span id="L492" class="LineNr">492 </span> <span class="PreProc">return</span> x2, y2 <span class="muComment"># cursor-x, cursor-y</span> -<span id="L493" class="LineNr">493 </span><span class="Delimiter">}</span> -<span id="L494" class="LineNr">494 </span> -<span id="L495" class="LineNr">495 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L495'>draw-text-wrapping-down-then-right-from-cursor</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, color: int, background-color: int <span class="Delimiter">{</span> -<span id="L496" class="LineNr">496 </span> <span class="PreProc">var</span> cursor-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L498" class="LineNr">498 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L117'>cursor-position</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L499" class="LineNr">499 </span> <span class="PreProc">var</span> end-y/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy cursor-y -<span id="L500" class="LineNr">500 </span> end-y <span class="SpecialChar"><-</span> increment -<span id="L501" class="LineNr">501 </span> compare end-y, ymax -<span id="L502" class="LineNr">502 </span> <span class="Delimiter">{</span> -<span id="L503" class="LineNr">503 </span> <span class="PreProc">break-if-<</span> -<span id="L504" class="LineNr">504 </span> cursor-x <span class="SpecialChar"><-</span> increment -<span id="L505" class="LineNr">505 </span> cursor-y <span class="SpecialChar"><-</span> copy ymin -<span id="L506" class="LineNr">506 </span> <span class="Delimiter">}</span> -<span id="L507" class="LineNr">507 </span> cursor-x, cursor-y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L438'>draw-text-wrapping-down-then-right</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, xmin, ymin, xmax, ymax, cursor-x, cursor-y, color, background-color -<span id="L508" class="LineNr">508 </span><span class="Delimiter">}</span> -<span id="L509" class="LineNr">509 </span> -<span id="L510" class="LineNr">510 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L510'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a></span> <a href='500text-screen.mu.html#L9'>screen</a>: (addr <a href='500text-screen.mu.html#L9'>screen</a>), text: (addr array byte), color: int, background-color: int <span class="Delimiter">{</span> -<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L513" class="LineNr">513 </span> width, height <span class="SpecialChar"><-</span> <a href='500text-screen.mu.html#L50'>screen-size</a> <a href='500text-screen.mu.html#L9'>screen</a> -<span id="L514" class="LineNr">514 </span> <a href='501draw-text.mu.html#L495'>draw-text-wrapping-down-then-right-from-cursor</a> <a href='500text-screen.mu.html#L9'>screen</a>, text, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, width, height, color, background-color -<span id="L515" class="LineNr">515 </span><span class="Delimiter">}</span> -<span id="L516" class="LineNr">516 </span> -<span id="L517" class="LineNr">517 </span><span class="muComment"># hacky error-handling</span> -<span id="L518" class="LineNr">518 </span><span class="muComment"># just go into an infinite loop</span> -<span id="L519" class="LineNr">519 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='501draw-text.mu.html#L519'>abort</a></span> e: (addr array byte) <span class="Delimiter">{</span> -<span id="L520" class="LineNr">520 </span> <span class="PreProc">var</span> dummy1/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L521" class="LineNr">521 </span> <span class="PreProc">var</span> dummy2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L522" class="LineNr">522 </span> dummy1, dummy2 <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L199'>draw-text-wrapping-right-then-down-over-full-screen</a> <span class="Constant">0</span>/screen, e, <span class="Constant">0</span>/x, <span class="Constant">0x2f</span>/y, <span class="Constant">0xf</span>/fg=white, <span class="Constant">0xc</span>/bg=red -<span id="L523" class="LineNr">523 </span> <span class="Delimiter">{</span> -<span id="L524" class="LineNr">524 </span> <span class="PreProc">loop</span> -<span id="L525" class="LineNr">525 </span> <span class="Delimiter">}</span> -<span id="L526" class="LineNr">526 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/boot.hex.html b/html/baremetal/boot.hex.html deleted file mode 100644 index 2cbaef0e..00000000 --- a/html/baremetal/boot.hex.html +++ /dev/null @@ -1,590 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/boot.hex</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxH1Comment { color: #005faf; text-decoration: underline; } -.subxComment { color: #005faf; } -.LineNr { } -.Folded { color: #080808; background-color: #949494; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/boot.hex'>https://github.com/akkartik/mu/blob/main/baremetal/boot.hex</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Code for the first few disk sectors that all programs in this directory need:</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># - load sectors past the first (using BIOS primitives) since only the first is available by default</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># - if this fails, print 'D' at top-left of screen and halt</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># - initialize a minimal graphics mode</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># - switch to 32-bit mode (giving up access to BIOS primitives)</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># - set up a handler for keyboard events</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># - jump to start of program</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment">#</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># To convert to a disk image, first prepare a realistically sized disk image:</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># dd if=/dev/zero of=disk.img count=20160 # 512-byte sectors, so 10MB</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># Create initial sectors from this file:</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># ./bootstrap run apps/hex < baremetal/boot.hex > boot.bin</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># Translate other sectors into a file called a.img</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># Load all sectors into the disk image:</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># cat boot.bin a.img > disk.bin</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># dd if=disk.bin of=disk.img conv=notrunc</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># To run:</span> -<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># qemu-system-i386 disk.img</span> -<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># Or:</span> -<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L21" class="LineNr"> 21 </span><span class="subxComment">#</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># Since we start out in 16-bit mode, we need instructions SubX doesn't</span> -<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># support.</span> -<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># This file contains just lowercase hex bytes and comments. Programming it</span> -<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># requires liberal use of:</span> -<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># - comments documenting expected offsets</span> -<span id="L27" class="LineNr"> 27 </span><span class="subxComment"># - size checks on the emitted file (currently: 6144 bytes)</span> -<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># - xxd to spot-check contents of specific offsets in the generated output</span> -<span id="L29" class="LineNr"> 29 </span><span class="subxComment">#</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># Programs using this initialization:</span> -<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># - can't use any syscalls</span> -<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># - can't print text to video memory (past these boot sectors)</span> -<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># - must only print raw pixels (256 colors) to video memory (resolution 1024x768)</span> -<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># - must start executing immediately after this file (see outline below)</span> -<span id="L35" class="LineNr"> 35 </span><span class="subxComment">#</span> -<span id="L36" class="LineNr"> 36 </span><span class="subxComment"># Don't panic! This file doesn't contain any loops or function calls. 80% of</span> -<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># it is data. One pass through less than 1KB of code (there's lots of</span> -<span id="L38" class="LineNr"> 38 </span><span class="subxComment"># padding), and then we jump into a better notation. The rest of the stack</span> -<span id="L39" class="LineNr"> 39 </span><span class="subxComment"># (really only in a couple of slightly higher-level places) needs to know just</span> -<span id="L40" class="LineNr"> 40 </span><span class="subxComment"># a few magic constants:</span> -<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># Video memory: start is stored at 0x8128</span> -<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># Keyboard buffer: starts at 0x8028</span> -<span id="L43" class="LineNr"> 43 </span><span class="subxComment">#</span> -<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># No mouse support. _That_ would require panicking.</span> -<span id="L45" class="LineNr"> 45 </span> -<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># Outline of this file with offsets and the addresses they map to at run-time:</span> -<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># -- 16-bit mode code</span> -<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># offset 0 (address 7c00): boot code</span> -<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># -- 16-bit mode data</span> -<span id="L50" class="LineNr"> 50 </span><span class="subxComment"># e0 (address 7c80) global descriptor table</span> -<span id="L51" class="LineNr"> 51 </span><span class="subxComment"># f8 (address 7ca0) <== gdt_descriptor</span> -<span id="L52" class="LineNr"> 52 </span><span class="subxComment"># -- 32-bit mode code</span> -<span id="L53" class="LineNr"> 53 </span><span class="subxComment"># offset 100 (address 7d00): boot code</span> -<span id="L54" class="LineNr"> 54 </span><span class="subxComment"># 1fe (address 7dfe) boot sector marker (2 bytes)</span> -<span id="L55" class="LineNr"> 55 </span><span class="subxComment"># offset 200 (address 7e00): interrupt handler code</span> -<span id="L56" class="LineNr"> 56 </span><span class="subxComment"># -- 32-bit mode data</span> -<span id="L57" class="LineNr"> 57 </span><span class="subxComment"># offset 400 (address 8000): handler data</span> -<span id="L58" class="LineNr"> 58 </span><span class="subxComment"># 410 (address 8010): keyboard handler data</span> -<span id="L59" class="LineNr"> 59 </span><span class="subxComment"># 428 (address 8028) <== keyboard buffer</span> -<span id="L60" class="LineNr"> 60 </span><span class="subxComment"># offset 500 (address 8100): video mode data (256 bytes)</span> -<span id="L61" class="LineNr"> 61 </span><span class="subxComment"># 528 (address 8128) <== start of video RAM stored here</span> -<span id="L62" class="LineNr"> 62 </span><span class="subxComment"># offset 600 (address 8200): interrupt descriptor table (1KB)</span> -<span id="L63" class="LineNr"> 63 </span><span class="subxComment"># offset a00 (address 8600): keyboard mappings (1.5KB)</span> -<span id="L64" class="LineNr"> 64 </span><span class="subxComment"># offset 1000 (address 8c00): bitmap font (2KB)</span> -<span id="L65" class="LineNr"> 65 </span><span class="subxComment"># offset 1800 (address 9400): entrypoint for applications (don't forget to adjust survey_baremetal if this changes)</span> -<span id="L66" class="LineNr"> 66 </span> -<span id="L67" class="LineNr"> 67 </span><span class="subxComment"># Other details of the current memory map:</span> -<span id="L68" class="LineNr"> 68 </span><span class="subxComment"># code: 4 tracks of disk to [0x00007c00, 0x00027400)</span> -<span id="L69" class="LineNr"> 69 </span><span class="subxComment"># stack grows down from 0x00070000</span> -<span id="L70" class="LineNr"> 70 </span><span class="subxComment"># see below</span> -<span id="L71" class="LineNr"> 71 </span><span class="subxComment"># heap: [0x01000000, 0x02000000)</span> -<span id="L72" class="LineNr"> 72 </span><span class="subxComment"># see baremetal/120allocate.subx</span> -<span id="L73" class="LineNr"> 73 </span><span class="subxComment"># Consult <a href="https://wiki.osdev.org/Memory_Map_(x86)">https://wiki.osdev.org/Memory_Map_(x86)</a> before modifying any of this.</span> -<span id="L74" class="LineNr"> 74 </span> -<span id="L75" class="LineNr"> 75 </span><span class="subxComment">## 16-bit entry point</span> -<span id="L76" class="LineNr"> 76 </span> -<span id="L77" class="LineNr"> 77 </span><span class="subxComment"># Upon reset, the IBM PC:</span> -<span id="L78" class="LineNr"> 78 </span><span class="subxComment"># - loads the first sector (512 bytes)</span> -<span id="L79" class="LineNr"> 79 </span><span class="subxComment"># from some bootable image (see the boot sector marker at the end of this file)</span> -<span id="L80" class="LineNr"> 80 </span><span class="subxComment"># to the address range [0x7c00, 0x7e00)</span> -<span id="L81" class="LineNr"> 81 </span><span class="subxComment"># - starts executing code at address 0x7c00</span> -<span id="L82" class="LineNr"> 82 </span> -<span id="L83" class="LineNr"> 83 </span><span class="subxComment"># offset 00 (address 0x7c00):</span> -<span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># disable interrupts for this initialization</span> -<span id="L85" class="LineNr"> 85 </span> fa <span class="subxComment"># cli</span> -<span id="L86" class="LineNr"> 86 </span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># initialize segment registers</span> -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># this isn't always needed, but the recommendation is to not make assumptions</span> -<span id="L89" class="LineNr"> 89 </span> b8 00 00 <span class="subxComment"># ax <- 0</span> -<span id="L90" class="LineNr"> 90 </span> 8e d8 <span class="subxComment"># ds <- ax</span> -<span id="L91" class="LineNr"> 91 </span> 8e c0 <span class="subxComment"># es <- ax</span> -<span id="L92" class="LineNr"> 92 </span> 8e e0 <span class="subxComment"># fs <- ax</span> -<span id="L93" class="LineNr"> 93 </span> 8e e8 <span class="subxComment"># gs <- ax</span> -<span id="L94" class="LineNr"> 94 </span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># initialize stack to 0x00070000</span> -<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># We don't read or write the stack before we get to 32-bit mode, but BIOS</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># calls do. We need to move the stack in case BIOS initializes it to some</span> -<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># low address that we want to write code into.</span> -<span id="L99" class="LineNr"> 99 </span> b8 00 70 <span class="subxComment"># ax <- 0x7000</span> -<span id="L100" class="LineNr"> 100 </span> 8e d0 <span class="subxComment"># ss <- ax</span> -<span id="L101" class="LineNr"> 101 </span> bc 00 00 <span class="subxComment"># sp <- 0x0000</span> -<span id="L102" class="LineNr"> 102 </span> -<span id="L103" class="LineNr"> 103 </span><span class="subxComment"># 14:</span> -<span id="L104" class="LineNr"> 104 </span> <span class="subxComment"># load remaining sectors from first two tracks of disk into addresses [0x7e00, 0x17800)</span> -<span id="L105" class="LineNr"> 105 </span> b4 02 <span class="subxComment"># ah <- 2 # read sectors from disk</span> -<span id="L106" class="LineNr"> 106 </span> <span class="subxComment"># dl comes conveniently initialized at boot time with the index of the device being booted</span> -<span id="L107" class="LineNr"> 107 </span> b5 00 <span class="subxComment"># ch <- 0 # cylinder 0</span> -<span id="L108" class="LineNr"> 108 </span> b6 00 <span class="subxComment"># dh <- 0 # track 0</span> -<span id="L109" class="LineNr"> 109 </span> b1 02 <span class="subxComment"># cl <- 2 # second sector, 1-based</span> -<span id="L110" class="LineNr"> 110 </span> b0 7d <span class="subxComment"># al <- 125 # number of sectors to read = 2*63 - 1</span> -<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># address to write sectors to = es:bx = 0x7e00, contiguous with boot segment</span> -<span id="L112" class="LineNr"> 112 </span> bb 00 00 <span class="subxComment"># bx <- 0</span> -<span id="L113" class="LineNr"> 113 </span> 8e c3 <span class="subxComment"># es <- bx</span> -<span id="L114" class="LineNr"> 114 </span> bb 00 7e <span class="subxComment"># bx <- 0x7e00 [label]</span> -<span id="L115" class="LineNr"> 115 </span> cd 13 <span class="subxComment"># int 13h, BIOS disk service</span> -<span id="L116" class="LineNr"> 116 </span> 0f 82 a3 00 <span class="subxComment"># jump-if-carry disk_error [label]</span> -<span id="L117" class="LineNr"> 117 </span> -<span id="L118" class="LineNr"> 118 </span><span class="subxComment"># 2c:</span> -<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># load two more tracks of disk into addresses [0x17800, 0x27400)</span> -<span id="L120" class="LineNr"> 120 </span> b4 02 <span class="subxComment"># ah <- 2 # read sectors from disk</span> -<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># dl comes conveniently initialized at boot time with the index of the device being booted</span> -<span id="L122" class="LineNr"> 122 </span> b5 00 <span class="subxComment"># ch <- 0 # cylinder 0</span> -<span id="L123" class="LineNr"> 123 </span> b6 02 <span class="subxComment"># dh <- 2 # track 0</span> -<span id="L124" class="LineNr"> 124 </span> b1 01 <span class="subxComment"># cl <- 1 # first sector, 1-based</span> -<span id="L125" class="LineNr"> 125 </span> b0 7e <span class="subxComment"># al <- 126 # number of sectors to read = 2*63</span> -<span id="L126" class="LineNr"> 126 </span> <span class="subxComment"># address to write sectors to = es:bx = 0x17800</span> -<span id="L127" class="LineNr"> 127 </span> bb 80 17 <span class="subxComment"># bx <- 0x1780 [label]</span> -<span id="L128" class="LineNr"> 128 </span> 8e c3 <span class="subxComment"># es <- bx</span> -<span id="L129" class="LineNr"> 129 </span> bb 00 00 <span class="subxComment"># bx <- 0</span> -<span id="L130" class="LineNr"> 130 </span> cd 13 <span class="subxComment"># int 13h, BIOS disk service</span> -<span id="L131" class="LineNr"> 131 </span> 0f 82 9b 00 <span class="subxComment"># jump-if-carry disk_error [label]</span> -<span id="L132" class="LineNr"> 132 </span> <span class="subxComment"># reset es</span> -<span id="L133" class="LineNr"> 133 </span> bb 00 00 <span class="subxComment"># bx <- 0</span> -<span id="L134" class="LineNr"> 134 </span> 8e c3 <span class="subxComment"># es <- bx</span> -<span id="L135" class="LineNr"> 135 </span> -<span id="L136" class="LineNr"> 136 </span><span class="subxComment"># 39:</span> -<span id="L137" class="LineNr"> 137 </span> <span class="subxComment"># undo the A20 hack: <a href="https://en.wikipedia.org/wiki/A20_line">https://en.wikipedia.org/wiki/A20_line</a></span> -<span id="L138" class="LineNr"> 138 </span> <span class="subxComment"># this is from <a href="https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S">https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S</a></span> -<span id="L139" class="LineNr"> 139 </span> <span class="subxComment"># seta20.1:</span> -<span id="L140" class="LineNr"> 140 </span> e4 64 <span class="subxComment"># al <- port 0x64</span> -<span id="L141" class="LineNr"> 141 </span> a8 02 <span class="subxComment"># set zf if bit 1 (second-least significant) is not set</span> -<span id="L142" class="LineNr"> 142 </span> 75 fa <span class="subxComment"># if zf not set, goto seta20.1 (-6)</span> -<span id="L143" class="LineNr"> 143 </span> -<span id="L144" class="LineNr"> 144 </span> b0 d1 <span class="subxComment"># al <- 0xd1</span> -<span id="L145" class="LineNr"> 145 </span> e6 64 <span class="subxComment"># port 0x64 <- al</span> -<span id="L146" class="LineNr"> 146 </span> -<span id="L147" class="LineNr"> 147 </span><span class="subxComment"># 43:</span> -<span id="L148" class="LineNr"> 148 </span> <span class="subxComment"># seta20.2:</span> -<span id="L149" class="LineNr"> 149 </span> e4 64 <span class="subxComment"># al <- port 0x64</span> -<span id="L150" class="LineNr"> 150 </span> a8 02 <span class="subxComment"># set zf if bit 1 (second-least significant) is not set</span> -<span id="L151" class="LineNr"> 151 </span> 75 fa <span class="subxComment"># if zf not set, goto seta20.2 (-6)</span> -<span id="L152" class="LineNr"> 152 </span> -<span id="L153" class="LineNr"> 153 </span> b0 df <span class="subxComment"># al <- 0xdf</span> -<span id="L154" class="LineNr"> 154 </span> e6 64 <span class="subxComment"># port 0x64 <- al</span> -<span id="L155" class="LineNr"> 155 </span> -<span id="L156" class="LineNr"> 156 </span><span class="subxComment"># 4d:</span> -<span id="L157" class="LineNr"> 157 </span> <span class="subxComment"># adjust video mode</span> -<span id="L158" class="LineNr"> 158 </span> b4 4f <span class="subxComment"># ah <- 4f (VBE)</span> -<span id="L159" class="LineNr"> 159 </span> b0 02 <span class="subxComment"># al <- 02 (set video mode)</span> -<span id="L160" class="LineNr"> 160 </span> bb 05 41 <span class="subxComment"># bx <- 0x0105 (graphics 1024x768x256</span> -<span id="L161" class="LineNr"> 161 </span> <span class="subxComment"># 0x4000 bit = configure linear frame buffer in Bochs emulator; hopefully this doesn't hurt anything when running natively)</span> -<span id="L162" class="LineNr"> 162 </span> <span class="subxComment"># fallback mode: 0x0101 (640x480x256)</span> -<span id="L163" class="LineNr"> 163 </span> cd 10 <span class="subxComment"># int 10h, Vesa BIOS extensions</span> -<span id="L164" class="LineNr"> 164 </span> -<span id="L165" class="LineNr"> 165 </span><span class="subxComment"># 56:</span> -<span id="L166" class="LineNr"> 166 </span> <span class="subxComment"># load information for the (hopefully) current video mode</span> -<span id="L167" class="LineNr"> 167 </span> <span class="subxComment"># mostly just for the address to the linear frame buffer</span> -<span id="L168" class="LineNr"> 168 </span> b4 4f <span class="subxComment"># ah <- 4f (VBE)</span> -<span id="L169" class="LineNr"> 169 </span> b0 01 <span class="subxComment"># al <- 01 (get video mode info)</span> -<span id="L170" class="LineNr"> 170 </span> b9 07 01 <span class="subxComment"># cx <- 0x0107 (mode we requested)</span> -<span id="L171" class="LineNr"> 171 </span> bf 00 81 <span class="subxComment"># di <- 0x8100 (video mode info) [label]</span> -<span id="L172" class="LineNr"> 172 </span> cd 10 -<span id="L173" class="LineNr"> 173 </span> -<span id="L174" class="LineNr"> 174 </span><span class="subxComment"># 62:</span> -<span id="L175" class="LineNr"> 175 </span> <span class="subxComment"># switch to 32-bit mode</span> -<span id="L176" class="LineNr"> 176 </span> 0f 01 16 <span class="subxComment"># lgdt 00/mod/indirect 010/subop 110/rm/use-disp16</span> -<span id="L177" class="LineNr"> 177 </span> f8 7c <span class="subxComment"># *gdt_descriptor [label]</span> -<span id="L178" class="LineNr"> 178 </span> 0f 20 c0 <span class="subxComment"># eax <- cr0</span> -<span id="L179" class="LineNr"> 179 </span> 66 83 c8 01 <span class="subxComment"># eax <- or 0x1</span> -<span id="L180" class="LineNr"> 180 </span> 0f 22 c0 <span class="subxComment"># cr0 <- eax</span> -<span id="L181" class="LineNr"> 181 </span> ea 00 7d 08 00 <span class="subxComment"># far jump to initialize_32bit_mode after setting cs to the record at offset 8 in the gdt (gdt_code) [label]</span> -<span id="L182" class="LineNr"> 182 </span> -<span id="L183" class="LineNr"> 183 </span><span class="subxComment"># padding</span> -<span id="L184" class="LineNr"> 184 </span><span class="subxComment"># 76:</span> -<span id="L185" class="LineNr"> 185 </span> 00 00 00 00 00 00 00 00 00 00 -<span id="L186" class="LineNr"> 186 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L187" class="LineNr"> 187 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L188" class="LineNr"> 188 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L189" class="LineNr"> 189 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L190" class="LineNr"> 190 </span> -<span id="L191" class="LineNr"> 191 </span><span class="subxComment"># cf:</span> -<span id="L192" class="LineNr"> 192 </span><span class="subxComment"># disk_error:</span> -<span id="L193" class="LineNr"> 193 </span> <span class="subxComment"># print 'D' to top-left of screen to indicate disk error</span> -<span id="L194" class="LineNr"> 194 </span> <span class="subxComment"># *0xb8000 <- 0x0f44</span> -<span id="L195" class="LineNr"> 195 </span> <span class="subxComment"># bx <- 0xb800</span> -<span id="L196" class="LineNr"> 196 </span> bb 00 b8 -<span id="L197" class="LineNr"> 197 </span> <span class="subxComment"># ds <- bx</span> -<span id="L198" class="LineNr"> 198 </span> 8e db <span class="subxComment"># 11b/mod 011b/reg/ds 011b/rm/bx</span> -<span id="L199" class="LineNr"> 199 </span> <span class="subxComment"># al <- 'D'</span> -<span id="L200" class="LineNr"> 200 </span> b0 44 -<span id="L201" class="LineNr"> 201 </span> <span class="subxComment"># ah <- 0x0f # white on black</span> -<span id="L202" class="LineNr"> 202 </span> b4 0f -<span id="L203" class="LineNr"> 203 </span> <span class="subxComment"># bx <- 0</span> -<span id="L204" class="LineNr"> 204 </span> bb 00 00 -<span id="L205" class="LineNr"> 205 </span> <span class="subxComment"># *ds:bx <- ax</span> -<span id="L206" class="LineNr"> 206 </span> 89 07 <span class="subxComment"># 00b/mod/indirect 000b/reg/ax 111b/rm/bx</span> -<span id="L207" class="LineNr"> 207 </span> -<span id="L208" class="LineNr"> 208 </span>e9 fd ff <span class="subxComment"># loop forever</span> -<span id="L209" class="LineNr"> 209 </span> -<span id="L210" class="LineNr"> 210 </span><span class="subxComment">## GDT: 3 records of 8 bytes each</span> -<span id="L211" class="LineNr"> 211 </span> -<span id="L212" class="LineNr"> 212 </span><span class="subxComment"># e0:</span> -<span id="L213" class="LineNr"> 213 </span><span class="subxComment"># gdt_start:</span> -<span id="L214" class="LineNr"> 214 </span><span class="subxComment"># gdt_null: mandatory null descriptor</span> -<span id="L215" class="LineNr"> 215 </span> 00 00 00 00 00 00 00 00 -<span id="L216" class="LineNr"> 216 </span><span class="subxComment"># gdt_code: (offset 8 from gdt_start)</span> -<span id="L217" class="LineNr"> 217 </span> ff ff <span class="subxComment"># limit[0:16]</span> -<span id="L218" class="LineNr"> 218 </span> 00 00 00 <span class="subxComment"># base[0:24]</span> -<span id="L219" class="LineNr"> 219 </span> 9a <span class="subxComment"># 1/present 00/privilege 1/descriptor type = 1001b</span> -<span id="L220" class="LineNr"> 220 </span> <span class="subxComment"># 1/code 0/conforming 1/readable 0/accessed = 1010b</span> -<span id="L221" class="LineNr"> 221 </span> cf <span class="subxComment"># 1/granularity 1/32-bit 0/64-bit-segment 0/AVL = 1100b</span> -<span id="L222" class="LineNr"> 222 </span> <span class="subxComment"># limit[16:20] = 1111b</span> -<span id="L223" class="LineNr"> 223 </span> 00 <span class="subxComment"># base[24:32]</span> -<span id="L224" class="LineNr"> 224 </span><span class="subxComment"># gdt_data: (offset 16 from gdt_start)</span> -<span id="L225" class="LineNr"> 225 </span> ff ff <span class="subxComment"># limit[0:16]</span> -<span id="L226" class="LineNr"> 226 </span> 00 00 00 <span class="subxComment"># base[0:24]</span> -<span id="L227" class="LineNr"> 227 </span> 92 <span class="subxComment"># 1/present 00/privilege 1/descriptor type = 1001b</span> -<span id="L228" class="LineNr"> 228 </span> <span class="subxComment"># 0/data 0/conforming 1/readable 0/accessed = 0010b</span> -<span id="L229" class="LineNr"> 229 </span> cf <span class="subxComment"># same as gdt_code</span> -<span id="L230" class="LineNr"> 230 </span> 00 <span class="subxComment"># base[24:32]</span> -<span id="L231" class="LineNr"> 231 </span><span class="subxComment"># gdt_end:</span> -<span id="L232" class="LineNr"> 232 </span> -<span id="L233" class="LineNr"> 233 </span><span class="subxComment"># f8:</span> -<span id="L234" class="LineNr"> 234 </span><span class="subxComment"># gdt_descriptor:</span> -<span id="L235" class="LineNr"> 235 </span> 17 00 <span class="subxComment"># final index of gdt = gdt_end - gdt_start - 1</span> -<span id="L236" class="LineNr"> 236 </span> e0 7c 00 00 <span class="subxComment"># start = gdt_start [label]</span> -<span id="L237" class="LineNr"> 237 </span> -<span id="L238" class="LineNr"> 238 </span><span class="subxComment"># padding</span> -<span id="L239" class="LineNr"> 239 </span><span class="subxComment"># fe:</span> -<span id="L240" class="LineNr"> 240 </span> 00 00 -<span id="L241" class="LineNr"> 241 </span> -<span id="L242" class="LineNr"> 242 </span><span class="subxComment">## 32-bit code from this point (still some instructions not in SubX)</span> -<span id="L243" class="LineNr"> 243 </span> -<span id="L244" class="LineNr"> 244 </span><span class="subxComment"># offset 100 (address 0x7d00):</span> -<span id="L245" class="LineNr"> 245 </span><span class="subxComment"># initialize_32bit_mode:</span> -<span id="L246" class="LineNr"> 246 </span> 66 b8 10 00 <span class="subxComment"># ax <- offset 16 from gdt_start</span> -<span id="L247" class="LineNr"> 247 </span> 8e d8 <span class="subxComment"># ds <- ax</span> -<span id="L248" class="LineNr"> 248 </span> 8e d0 <span class="subxComment"># ss <- ax</span> -<span id="L249" class="LineNr"> 249 </span> 8e c0 <span class="subxComment"># es <- ax</span> -<span id="L250" class="LineNr"> 250 </span> 8e e0 <span class="subxComment"># fs <- ax</span> -<span id="L251" class="LineNr"> 251 </span> 8e e8 <span class="subxComment"># gs <- ax</span> -<span id="L252" class="LineNr"> 252 </span> -<span id="L253" class="LineNr"> 253 </span><span class="subxComment"># 10e:</span> -<span id="L254" class="LineNr"> 254 </span> bc 00 00 07 00 <span class="subxComment"># esp <- 0x00070000</span> -<span id="L255" class="LineNr"> 255 </span> -<span id="L256" class="LineNr"> 256 </span><span class="subxComment"># 113:</span> -<span id="L257" class="LineNr"> 257 </span> <span class="subxComment"># load interrupt handlers</span> -<span id="L258" class="LineNr"> 258 </span> 0f 01 1d <span class="subxComment"># lidt 00/mod/indirect 011/subop 101/rm32/use-disp32</span> -<span id="L259" class="LineNr"> 259 </span> 00 80 00 00 <span class="subxComment"># *idt_descriptor [label]</span> -<span id="L260" class="LineNr"> 260 </span> -<span id="L261" class="LineNr"> 261 </span> <span class="subxComment"># For now, not bothering reprogramming the IRQ to not conflict with software</span> -<span id="L262" class="LineNr"> 262 </span> <span class="subxComment"># exceptions.</span> -<span id="L263" class="LineNr"> 263 </span> <span class="subxComment"># <a href="https://wiki.osdev.org/index.php?title=8259_PIC&oldid=24650#Protected_Mode">https://wiki.osdev.org/index.php?title=8259_PIC&oldid=24650#Protected_Mode</a></span> -<span id="L264" class="LineNr"> 264 </span> <span class="subxComment">#</span> -<span id="L265" class="LineNr"> 265 </span> <span class="subxComment"># Interrupt 1 (keyboard) conflicts with debugger faults. We don't use a</span> -<span id="L266" class="LineNr"> 266 </span> <span class="subxComment"># debugger.</span> -<span id="L267" class="LineNr"> 267 </span> <span class="subxComment"># Reference:</span> -<span id="L268" class="LineNr"> 268 </span> <span class="subxComment"># <a href="https://wiki.osdev.org/Exceptions">https://wiki.osdev.org/Exceptions</a></span> -<span id="L269" class="LineNr"> 269 </span> -<span id="L270" class="LineNr"> 270 </span><span class="subxComment"># 11a:</span> -<span id="L271" class="LineNr"> 271 </span> <span class="subxComment"># enable keyboard IRQ (1)</span> -<span id="L272" class="LineNr"> 272 </span> b0 fd <span class="subxComment"># al <- 0xfd # disable mask for IRQ1</span> -<span id="L273" class="LineNr"> 273 </span> e6 21 <span class="subxComment"># port 0x21 <- al</span> -<span id="L274" class="LineNr"> 274 </span> -<span id="L275" class="LineNr"> 275 </span><span class="subxComment"># 11e:</span> -<span id="L276" class="LineNr"> 276 </span> fb <span class="subxComment"># enable interrupts</span> -<span id="L277" class="LineNr"> 277 </span> db e3 <span class="subxComment"># initialize FPU</span> -<span id="L278" class="LineNr"> 278 </span> <span class="subxComment"># eax <- cr4</span> -<span id="L279" class="LineNr"> 279 </span> 0f 20 <span class="subxComment"># copy cr4 to rm32</span> -<span id="L280" class="LineNr"> 280 </span> e0 <span class="subxComment"># 11/mod/direct 100/r32/CR4 000/rm32/eax</span> -<span id="L281" class="LineNr"> 281 </span> <span class="subxComment"># eax <- or bit 9</span> -<span id="L282" class="LineNr"> 282 </span> 0f ba -<span id="L283" class="LineNr"> 283 </span> e8 <span class="subxComment"># 11/mod/direct 101/subop/bit-test-and-set 000/rm32/eax</span> -<span id="L284" class="LineNr"> 284 </span> 09 <span class="subxComment"># imm8</span> -<span id="L285" class="LineNr"> 285 </span> <span class="subxComment"># cr4 <- eax</span> -<span id="L286" class="LineNr"> 286 </span> 0f 22 <span class="subxComment"># copy rm32 to cr4</span> -<span id="L287" class="LineNr"> 287 </span> e0 <span class="subxComment"># 11/mod/direct 100/r32/CR4 000/rm32/eax</span> -<span id="L288" class="LineNr"> 288 </span> e9 d0 16 00 00 <span class="subxComment"># jump to 0x9400 [label]</span> -<span id="L289" class="LineNr"> 289 </span> -<span id="L290" class="LineNr"> 290 </span><span class="subxComment"># padding</span> -<span id="L291" class="LineNr"> 291 </span><span class="subxComment"># 130:</span> -<span id="L292" class="LineNr"> 292 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L293" class="LineNr"> 293 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L294" class="LineNr"> 294 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L295" class="LineNr"> 295 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L296" class="LineNr"> 296 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L297" class="LineNr"> 297 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L298" class="LineNr"> 298 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L299" class="LineNr"> 299 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L300" class="LineNr"> 300 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L301" class="LineNr"> 301 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L302" class="LineNr"> 302 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L303" class="LineNr"> 303 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L304" class="LineNr"> 304 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L305" class="LineNr"> 305 </span> -<span id="L306" class="LineNr"> 306 </span><span class="subxComment"># 1fe:</span> -<span id="L307" class="LineNr"> 307 </span><span class="subxComment"># final 2 bytes of boot sector</span> -<span id="L308" class="LineNr"> 308 </span>55 aa -<span id="L309" class="LineNr"> 309 </span> -<span id="L310" class="LineNr"> 310 </span><span class="subxComment">## sector 2 onwards loaded by load_disk, not automatically on boot</span> -<span id="L311" class="LineNr"> 311 </span> -<span id="L312" class="LineNr"> 312 </span><span class="subxComment"># offset 200 (address 0x7e00):</span> -<span id="L313" class="LineNr"> 313 </span><span class="subxComment"># null interrupt handler:</span> -<span id="L314" class="LineNr"> 314 </span> cf <span class="subxComment"># iret</span> -<span id="L315" class="LineNr"> 315 </span> -<span id="L316" class="LineNr"> 316 </span><span class="subxComment"># padding</span> -<span id="L317" class="LineNr"> 317 </span><span class="subxComment"># 201:</span> -<span id="L318" class="LineNr"> 318 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L319" class="LineNr"> 319 </span> -<span id="L320" class="LineNr"> 320 </span><span class="subxComment"># 210:</span> -<span id="L321" class="LineNr"> 321 </span><span class="subxComment"># keyboard interrupt handler:</span> -<span id="L322" class="LineNr"> 322 </span> <span class="subxComment"># prologue</span> -<span id="L323" class="LineNr"> 323 </span> fa <span class="subxComment"># disable interrupts</span> -<span id="L324" class="LineNr"> 324 </span> 60 <span class="subxComment"># push all registers to stack</span> -<span id="L325" class="LineNr"> 325 </span> <span class="subxComment"># acknowledge interrupt</span> -<span id="L326" class="LineNr"> 326 </span> b0 20 <span class="subxComment"># al <- 0x20</span> -<span id="L327" class="LineNr"> 327 </span> e6 20 <span class="subxComment"># port 0x20 <- al</span> -<span id="L328" class="LineNr"> 328 </span> 31 c0 <span class="subxComment"># eax <- xor eax; 11/direct 000/r32/eax 000/rm32/eax</span> -<span id="L329" class="LineNr"> 329 </span> <span class="subxComment"># check output buffer of 8042 keyboard controller (<a href="https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)">https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)</a></span> -<span id="L330" class="LineNr"> 330 </span> e4 64 <span class="subxComment"># al <- port 0x64</span> -<span id="L331" class="LineNr"> 331 </span> a8 01 <span class="subxComment"># set zf if bit 0 (least significant) is not set</span> -<span id="L332" class="LineNr"> 332 </span> 74 89 <span class="subxComment"># jump to epilogue if 0 bit is not set [label]</span> -<span id="L333" class="LineNr"> 333 </span><span class="subxComment"># 21e:</span> -<span id="L334" class="LineNr"> 334 </span> <span class="subxH1Comment"># - if keyboard buffer is full, return</span> -<span id="L335" class="LineNr"> 335 </span> 31 c9 <span class="subxComment"># ecx <- xor ecx; 11/direct 001/r32/ecx 001/rm32/ecx</span> -<span id="L336" class="LineNr"> 336 </span> <span class="subxComment"># var index/ecx: byte</span> -<span id="L337" class="LineNr"> 337 </span> 8a <span class="subxComment"># copy m8 at r32 to r8</span> -<span id="L338" class="LineNr"> 338 </span> 0d <span class="subxComment"># 00/mod/indirect 001/r8/cl 101/rm32/use-disp32</span> -<span id="L339" class="LineNr"> 339 </span> 28 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L340" class="LineNr"> 340 </span> <span class="subxComment"># al = *(keyboard buffer + index)</span> -<span id="L341" class="LineNr"> 341 </span> 8a <span class="subxComment"># copy m8 at r32 to r8</span> -<span id="L342" class="LineNr"> 342 </span> 81 <span class="subxComment"># 10/mod/*+disp32 000/r8/al 001/rm32/ecx</span> -<span id="L343" class="LineNr"> 343 </span> 30 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L344" class="LineNr"> 344 </span> <span class="subxComment"># if (al != 0) return</span> -<span id="L345" class="LineNr"> 345 </span> 3c 00 <span class="subxComment"># compare al, 0</span> -<span id="L346" class="LineNr"> 346 </span> 75 77 <span class="subxComment"># jump to epilogue if != [label]</span> -<span id="L347" class="LineNr"> 347 </span><span class="subxComment"># 230:</span> -<span id="L348" class="LineNr"> 348 </span> <span class="subxH1Comment"># - read keycode</span> -<span id="L349" class="LineNr"> 349 </span> e4 60 <span class="subxComment"># al <- port 0x60</span> -<span id="L350" class="LineNr"> 350 </span> <span class="subxH1Comment"># - key released</span> -<span id="L351" class="LineNr"> 351 </span> <span class="subxComment"># if (al == 0xaa) shift = false # left shift is being lifted</span> -<span id="L352" class="LineNr"> 352 </span> 3c aa <span class="subxComment"># compare al, 0xaa</span> -<span id="L353" class="LineNr"> 353 </span> 75 0a <span class="subxComment"># jump to $1 if != [label]</span> -<span id="L354" class="LineNr"> 354 </span> <span class="subxComment"># *shift = 0</span> -<span id="L355" class="LineNr"> 355 </span> c7 <span class="subxComment"># copy imm32 to rm32</span> -<span id="L356" class="LineNr"> 356 </span> 05 <span class="subxComment"># 00/mod/indirect 000/subop/copy 101/rm32/use-disp32</span> -<span id="L357" class="LineNr"> 357 </span> 10 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L358" class="LineNr"> 358 </span> 00 00 00 00 <span class="subxComment"># imm32</span> -<span id="L359" class="LineNr"> 359 </span><span class="subxComment"># 240:</span> -<span id="L360" class="LineNr"> 360 </span><span class="subxComment"># $1:</span> -<span id="L361" class="LineNr"> 361 </span> <span class="subxComment"># if (al == 0xb6) shift = false # right shift is being lifted</span> -<span id="L362" class="LineNr"> 362 </span> 3c b6 <span class="subxComment"># compare al, 0xb6</span> -<span id="L363" class="LineNr"> 363 </span> 75 0a <span class="subxComment"># jump to $1 if != [label]</span> -<span id="L364" class="LineNr"> 364 </span> <span class="subxComment"># *shift = 0</span> -<span id="L365" class="LineNr"> 365 </span> c7 <span class="subxComment"># copy imm32 to rm32</span> -<span id="L366" class="LineNr"> 366 </span> 05 <span class="subxComment"># 00/mod/indirect 000/subop/copy 101/rm32/use-disp32</span> -<span id="L367" class="LineNr"> 367 </span> 10 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L368" class="LineNr"> 368 </span> 00 00 00 00 <span class="subxComment"># imm32</span> -<span id="L369" class="LineNr"> 369 </span><span class="subxComment"># $2:</span> -<span id="L370" class="LineNr"> 370 </span> <span class="subxComment"># if (al & 0x80) a key is being lifted; return</span> -<span id="L371" class="LineNr"> 371 </span> 50 <span class="subxComment"># push eax</span> -<span id="L372" class="LineNr"> 372 </span> 24 80 <span class="subxComment"># al <- and 0x80</span> -<span id="L373" class="LineNr"> 373 </span> 3c 00 <span class="subxComment"># compare al, 0</span> -<span id="L374" class="LineNr"> 374 </span> 58 <span class="subxComment"># pop to eax (without touching flags)</span> -<span id="L375" class="LineNr"> 375 </span> 75 51 <span class="subxComment"># jump to epilogue if != [label]</span> -<span id="L376" class="LineNr"> 376 </span><span class="subxComment"># 256:</span> -<span id="L377" class="LineNr"> 377 </span> <span class="subxH1Comment"># - key pressed</span> -<span id="L378" class="LineNr"> 378 </span> <span class="subxComment"># if (al == 0x2a) shift = true, return # left shift pressed</span> -<span id="L379" class="LineNr"> 379 </span> 3c 2a <span class="subxComment"># compare al, 0x2a</span> -<span id="L380" class="LineNr"> 380 </span> 75 0c <span class="subxComment"># jump to $3 if != [label]</span> -<span id="L381" class="LineNr"> 381 </span> <span class="subxComment"># *shift = 1</span> -<span id="L382" class="LineNr"> 382 </span> c7 <span class="subxComment"># copy imm32 to rm32</span> -<span id="L383" class="LineNr"> 383 </span> 05 <span class="subxComment"># 00/mod/indirect 000/subop/copy 101/rm32/use-disp32</span> -<span id="L384" class="LineNr"> 384 </span> 10 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L385" class="LineNr"> 385 </span> 01 00 00 00 <span class="subxComment"># imm32</span> -<span id="L386" class="LineNr"> 386 </span> eb 41 <span class="subxComment"># jump to epilogue [label]</span> -<span id="L387" class="LineNr"> 387 </span><span class="subxComment"># 266:</span> -<span id="L388" class="LineNr"> 388 </span><span class="subxComment"># $3:</span> -<span id="L389" class="LineNr"> 389 </span> <span class="subxComment"># if (al == 0x36) shift = true, return # right shift pressed</span> -<span id="L390" class="LineNr"> 390 </span> 3c 36 <span class="subxComment"># compare al, 0x36</span> -<span id="L391" class="LineNr"> 391 </span> 75 0c <span class="subxComment"># jump to $4 if != [label]</span> -<span id="L392" class="LineNr"> 392 </span> <span class="subxComment"># *shift = 1</span> -<span id="L393" class="LineNr"> 393 </span> c7 <span class="subxComment"># copy imm32 to rm32</span> -<span id="L394" class="LineNr"> 394 </span> 05 <span class="subxComment"># 00/mod/indirect 000/subop/copy 101/rm32/use-disp32</span> -<span id="L395" class="LineNr"> 395 </span> 10 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L396" class="LineNr"> 396 </span> 01 00 00 00 <span class="subxComment"># imm32</span> -<span id="L397" class="LineNr"> 397 </span> eb 31 <span class="subxComment"># jump to epilogue [label]</span> -<span id="L398" class="LineNr"> 398 </span><span class="subxComment"># 276:</span> -<span id="L399" class="LineNr"> 399 </span><span class="subxComment"># $4:</span> -<span id="L400" class="LineNr"> 400 </span> <span class="subxH1Comment"># - convert key to character</span> -<span id="L401" class="LineNr"> 401 </span> <span class="subxComment"># if (shift) use keyboard normal map</span> -<span id="L402" class="LineNr"> 402 </span> 81 <span class="subxComment"># operate on rm32 and imm32</span> -<span id="L403" class="LineNr"> 403 </span> 3d <span class="subxComment"># 00/mod/indirect 111/subop/compare 101/rm32/use-disp32</span> -<span id="L404" class="LineNr"> 404 </span> 10 80 00 00 <span class="subxComment"># disp32 = shift [label]</span> -<span id="L405" class="LineNr"> 405 </span> 00 00 00 00 <span class="subxComment"># imm32</span> -<span id="L406" class="LineNr"> 406 </span> 74 08 <span class="subxComment"># jump to $5 if = [label]</span> -<span id="L407" class="LineNr"> 407 </span> <span class="subxComment"># otherwise use keyboard shift map</span> -<span id="L408" class="LineNr"> 408 </span> <span class="subxComment"># al <- *(keyboard shift map + eax)</span> -<span id="L409" class="LineNr"> 409 </span> 8a <span class="subxComment"># copy m8 at rm32 to r8</span> -<span id="L410" class="LineNr"> 410 </span> 80 <span class="subxComment"># 10/mod/*+disp32 000/r8/al 000/rm32/eax</span> -<span id="L411" class="LineNr"> 411 </span> 00 87 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L412" class="LineNr"> 412 </span> eb 06 <span class="subxComment"># jump to $6 [label]</span> -<span id="L413" class="LineNr"> 413 </span><span class="subxComment"># 28a:</span> -<span id="L414" class="LineNr"> 414 </span><span class="subxComment"># $5:</span> -<span id="L415" class="LineNr"> 415 </span> <span class="subxComment"># al <- *(keyboard normal map + eax)</span> -<span id="L416" class="LineNr"> 416 </span> 8a <span class="subxComment"># copy m8 at rm32 to r8</span> -<span id="L417" class="LineNr"> 417 </span> 80 <span class="subxComment"># 10/mod/*+disp32 000/r8/al 000/rm32/eax</span> -<span id="L418" class="LineNr"> 418 </span> 00 86 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L419" class="LineNr"> 419 </span><span class="subxComment"># $6:</span> -<span id="L420" class="LineNr"> 420 </span> <span class="subxH1Comment"># - if there's no character mapping, return</span> -<span id="L421" class="LineNr"> 421 </span> 3c 00 <span class="subxComment"># compare al, 0</span> -<span id="L422" class="LineNr"> 422 </span> 74 13 <span class="subxComment"># jump to epilogue if = [label]</span> -<span id="L423" class="LineNr"> 423 </span><span class="subxComment"># 294:</span> -<span id="L424" class="LineNr"> 424 </span> <span class="subxH1Comment"># - store al in keyboard buffer</span> -<span id="L425" class="LineNr"> 425 </span> 88 <span class="subxComment"># copy r8 to m8 at r32</span> -<span id="L426" class="LineNr"> 426 </span> 81 <span class="subxComment"># 10/mod/*+disp32 000/r8/al 001/rm32/ecx</span> -<span id="L427" class="LineNr"> 427 </span> 30 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L428" class="LineNr"> 428 </span> <span class="subxComment"># increment index</span> -<span id="L429" class="LineNr"> 429 </span> fe <span class="subxComment"># increment byte</span> -<span id="L430" class="LineNr"> 430 </span> 05 <span class="subxComment"># 00/mod/indirect 000/subop/increment 101/rm32/use-disp32</span> -<span id="L431" class="LineNr"> 431 </span> 28 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L432" class="LineNr"> 432 </span> <span class="subxComment"># clear top nibble of index (keyboard buffer is circular)</span> -<span id="L433" class="LineNr"> 433 </span> 80 <span class="subxComment"># and byte</span> -<span id="L434" class="LineNr"> 434 </span> 25 <span class="subxComment"># 00/mod/indirect 100/subop/and 101/rm32/use-disp32</span> -<span id="L435" class="LineNr"> 435 </span> 28 80 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L436" class="LineNr"> 436 </span> 0f <span class="subxComment"># imm8</span> -<span id="L437" class="LineNr"> 437 </span><span class="subxComment"># 2a9:</span> -<span id="L438" class="LineNr"> 438 </span> <span class="subxComment"># epilogue</span> -<span id="L439" class="LineNr"> 439 </span> 61 <span class="subxComment"># pop all registers</span> -<span id="L440" class="LineNr"> 440 </span> fb <span class="subxComment"># enable interrupts</span> -<span id="L441" class="LineNr"> 441 </span> cf <span class="subxComment"># iret</span> -<span id="L442" class="LineNr"> 442 </span> -<span id="L443" class="LineNr"> 443 </span><span class="subxComment"># padding</span> -<span id="L444" class="LineNr"> 444 </span><span class="subxComment"># 2aa:</span> -<span id="L445" class="LineNr"> 445 </span> 00 00 00 00 00 00 -<span id="L446" class="LineNr"> 446 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L447" class="LineNr"> 447 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L448" class="LineNr"> 448 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L449" class="LineNr"> 449 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L450" class="LineNr"> 450 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L451" class="LineNr"> 451 </span><span class="subxComment"># 300:</span> -<span id="L452" class="LineNr"> 452 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L453" class="LineNr"> 453 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L454" class="LineNr"> 454 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L455" class="LineNr"> 455 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L456" class="LineNr"> 456 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L457" class="LineNr"> 457 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L458" class="LineNr"> 458 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L459" class="LineNr"> 459 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L460" class="LineNr"> 460 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L461" class="LineNr"> 461 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L462" class="LineNr"> 462 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L463" class="LineNr"> 463 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L464" class="LineNr"> 464 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L465" class="LineNr"> 465 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L466" class="LineNr"> 466 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L467" class="LineNr"> 467 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L468" class="LineNr"> 468 </span> -<span id="L469" class="LineNr"> 469 </span><span class="subxComment"># offset 400 (address 0x8000): interrupt handler data</span> -<span id="L470" class="LineNr"> 470 </span><span class="subxComment"># idt_descriptor:</span> -<span id="L471" class="LineNr"> 471 </span> ff 03 <span class="subxComment"># idt_end - idt_start - 1</span> -<span id="L472" class="LineNr"> 472 </span> 00 82 00 00 <span class="subxComment"># start = idt_start [label]</span> -<span id="L473" class="LineNr"> 473 </span> -<span id="L474" class="LineNr"> 474 </span><span class="subxComment"># padding</span> -<span id="L475" class="LineNr"> 475 </span><span class="subxComment"># 406:</span> -<span id="L476" class="LineNr"> 476 </span> 00 00 00 00 00 00 00 00 00 00 -<span id="L477" class="LineNr"> 477 </span> -<span id="L478" class="LineNr"> 478 </span><span class="subxComment"># 410:</span> -<span id="L479" class="LineNr"> 479 </span><span class="subxComment"># var shift: boolean</span> -<span id="L480" class="LineNr"> 480 </span> 00 00 00 00 -<span id="L481" class="LineNr"> 481 </span> -<span id="L482" class="LineNr"> 482 </span><span class="subxComment"># padding</span> -<span id="L483" class="LineNr"> 483 </span><span class="subxComment"># 414:</span> -<span id="L484" class="LineNr"> 484 </span> 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L485" class="LineNr"> 485 </span>00 00 00 00 00 00 00 00 -<span id="L486" class="LineNr"> 486 </span> -<span id="L487" class="LineNr"> 487 </span><span class="subxComment"># 428:</span> -<span id="L488" class="LineNr"> 488 </span><span class="subxComment"># var keyboard circular buffer</span> -<span id="L489" class="LineNr"> 489 </span><span class="subxComment"># write index: nibble</span> -<span id="L490" class="LineNr"> 490 </span><span class="subxComment"># still take up 4 bytes so SubX can handle it</span> -<span id="L491" class="LineNr"> 491 </span> 00 00 00 00 -<span id="L492" class="LineNr"> 492 </span><span class="subxComment"># 42c:</span> -<span id="L493" class="LineNr"> 493 </span><span class="subxComment"># read index: nibble</span> -<span id="L494" class="LineNr"> 494 </span><span class="subxComment"># still take up 4 bytes so SubX can handle it</span> -<span id="L495" class="LineNr"> 495 </span> 00 00 00 00 -<span id="L496" class="LineNr"> 496 </span><span class="subxComment"># 430:</span> -<span id="L497" class="LineNr"> 497 </span><span class="subxComment"># circular buffer: byte[16]</span> -<span id="L498" class="LineNr"> 498 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L499" class="LineNr"> 499 </span> -<span id="L500" class="LineNr"> 500 </span><span class="subxComment"># padding</span> -<span id="L501" class="LineNr"> 501 </span><span class="subxComment"># 440:</span> -<span id="L502" class="LineNr"> 502 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L503" class="LineNr"> 503 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L504" class="LineNr"> 504 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L505" class="LineNr"> 505 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L506" class="LineNr"> 506 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L507" class="LineNr"> 507 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L508" class="LineNr"> 508 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L509" class="LineNr"> 509 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L510" class="LineNr"> 510 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L511" class="LineNr"> 511 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L512" class="LineNr"> 512 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L513" class="LineNr"> 513 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L514" class="LineNr"> 514 </span> -<span id="L515" class="LineNr"> 515 </span><span class="subxComment"># offset 500 (address 0x8100):</span> -<span id="L516" class="Folded"> 516 </span><span class="Folded">+-- 53 lines: # video mode info ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L569" class="LineNr"> 569 </span> -<span id="L570" class="LineNr"> 570 </span><span class="subxComment"># offset 600 (address 0x8200):</span> -<span id="L571" class="Folded"> 571 </span><span class="Folded">+--161 lines: # interrupt descriptor table ----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L732" class="LineNr"> 732 </span> -<span id="L733" class="LineNr"> 733 </span><span class="subxComment">## the rest of this file has data</span> -<span id="L734" class="LineNr"> 734 </span> -<span id="L735" class="LineNr"> 735 </span><span class="subxComment"># offset a00 (address 0x8600):</span> -<span id="L736" class="Folded"> 736 </span><span class="Folded">+--152 lines: # translating keys to ASCII -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L888" class="LineNr"> 888 </span> -<span id="L889" class="LineNr"> 889 </span><span class="subxComment"># offset 1000 (address 0x8c00)</span> -<span id="L890" class="Folded"> 890 </span><span class="Folded">+--236 lines: # Bitmaps for some ASCII characters (soon Unicode) ------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1126" class="LineNr">1126 </span> -<span id="L1127" class="LineNr">1127 </span><span class="subxComment"># offset 1800 (address 0x9400)</span> -<span id="L1128" class="LineNr">1128 </span> -<span id="L1129" class="LineNr">1129 </span><span class="subxComment"># vim:ft=subx</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/boot0.hex.html b/html/baremetal/boot0.hex.html deleted file mode 100644 index fcb1dc3a..00000000 --- a/html/baremetal/boot0.hex.html +++ /dev/null @@ -1,401 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/boot0.hex</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="conf"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.LineNr { } -.Comment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/boot0.hex'>https://github.com/akkartik/mu/blob/main/baremetal/boot0.hex</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="Comment"># A minimal bootable image that:</span> -<span id="L2" class="LineNr"> 2 </span><span class="Comment"># - loads more sectors past the first boot sector (using BIOS primitives)</span> -<span id="L3" class="LineNr"> 3 </span><span class="Comment"># - switches to 32-bit mode (giving up access to BIOS primitives)</span> -<span id="L4" class="LineNr"> 4 </span><span class="Comment"># - sets up a keyboard handler to print '1' at the top-left of screen when '1' is typed</span> -<span id="L5" class="LineNr"> 5 </span><span class="Comment">#</span> -<span id="L6" class="LineNr"> 6 </span><span class="Comment"># When it's ready to accept keys, it prints 'H' to the top-left of the screen.</span> -<span id="L7" class="LineNr"> 7 </span><span class="Comment">#</span> -<span id="L8" class="LineNr"> 8 </span><span class="Comment"># If the initial load fails, it prints 'D' to the top-left of the screen and</span> -<span id="L9" class="LineNr"> 9 </span><span class="Comment"># halts.</span> -<span id="L10" class="LineNr"> 10 </span><span class="Comment">#</span> -<span id="L11" class="LineNr"> 11 </span><span class="Comment"># To convert to a disk image, first prepare a realistically sized disk image:</span> -<span id="L12" class="LineNr"> 12 </span><span class="Comment"># dd if=/dev/zero of=disk.img count=20160 # 512-byte sectors, so 10MB</span> -<span id="L13" class="LineNr"> 13 </span><span class="Comment"># Now fill in sectors:</span> -<span id="L14" class="LineNr"> 14 </span><span class="Comment"># ./bootstrap run apps/hex < baremetal/boot0.hex > boot.bin</span> -<span id="L15" class="LineNr"> 15 </span><span class="Comment"># dd if=boot.bin of=disk.img conv=notrunc</span> -<span id="L16" class="LineNr"> 16 </span><span class="Comment"># To run:</span> -<span id="L17" class="LineNr"> 17 </span><span class="Comment"># qemu-system-i386 disk.img</span> -<span id="L18" class="LineNr"> 18 </span><span class="Comment"># Or:</span> -<span id="L19" class="LineNr"> 19 </span><span class="Comment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L20" class="LineNr"> 20 </span><span class="Comment">#</span> -<span id="L21" class="LineNr"> 21 </span><span class="Comment"># Since we start out in 16-bit mode, we need instructions SubX doesn't</span> -<span id="L22" class="LineNr"> 22 </span><span class="Comment"># support.</span> -<span id="L23" class="LineNr"> 23 </span><span class="Comment"># This file contains just lowercase hex bytes and comments. Zero</span> -<span id="L24" class="LineNr"> 24 </span><span class="Comment"># error-checking. Make liberal use of:</span> -<span id="L25" class="LineNr"> 25 </span><span class="Comment"># - comments documenting expected offsets</span> -<span id="L26" class="LineNr"> 26 </span><span class="Comment"># - size checks on the emitted file (currently: 512 bytes)</span> -<span id="L27" class="LineNr"> 27 </span><span class="Comment"># - xxd to eyeball that offsets contain expected bytes</span> -<span id="L28" class="LineNr"> 28 </span> -<span id="L29" class="LineNr"> 29 </span><span class="Comment">## 16-bit entry point</span> -<span id="L30" class="LineNr"> 30 </span> -<span id="L31" class="LineNr"> 31 </span><span class="Comment"># Upon reset, the IBM PC</span> -<span id="L32" class="LineNr"> 32 </span><span class="Comment"># loads the first sector (512 bytes)</span> -<span id="L33" class="LineNr"> 33 </span><span class="Comment"># from some bootable image (see the boot sector marker at the end of this file)</span> -<span id="L34" class="LineNr"> 34 </span><span class="Comment"># to the address range [0x7c00, 0x7e00)</span> -<span id="L35" class="LineNr"> 35 </span> -<span id="L36" class="LineNr"> 36 </span><span class="Comment"># offset 00 (address 0x7c00):</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Comment"># disable interrupts for this initialization</span> -<span id="L38" class="LineNr"> 38 </span> fa <span class="Comment"># cli</span> -<span id="L39" class="LineNr"> 39 </span> -<span id="L40" class="LineNr"> 40 </span> <span class="Comment"># initialize segment registers</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Comment"># this isn't always needed, but the recommendation is to not make assumptions</span> -<span id="L42" class="LineNr"> 42 </span> b8 00 00 <span class="Comment"># ax <- 0</span> -<span id="L43" class="LineNr"> 43 </span> 8e d8 <span class="Comment"># ds <- ax</span> -<span id="L44" class="LineNr"> 44 </span> 8e d0 <span class="Comment"># ss <- ax</span> -<span id="L45" class="LineNr"> 45 </span> 8e c0 <span class="Comment"># es <- ax</span> -<span id="L46" class="LineNr"> 46 </span> 8e e0 <span class="Comment"># fs <- ax</span> -<span id="L47" class="LineNr"> 47 </span> 8e e8 <span class="Comment"># gs <- ax</span> -<span id="L48" class="LineNr"> 48 </span> -<span id="L49" class="LineNr"> 49 </span> <span class="Comment"># We don't read or write the stack before we get to 32-bit mode. No function</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Comment"># calls, so we don't need to initialize the stack.</span> -<span id="L51" class="LineNr"> 51 </span> -<span id="L52" class="LineNr"> 52 </span><span class="Comment"># 0e:</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Comment"># load more sectors from disk</span> -<span id="L54" class="LineNr"> 54 </span> b4 02 <span class="Comment"># ah <- 2 # read sectors from disk</span> -<span id="L55" class="LineNr"> 55 </span> <span class="Comment"># dl comes conveniently initialized at boot time with the index of the device being booted</span> -<span id="L56" class="LineNr"> 56 </span> b5 00 <span class="Comment"># ch <- 0 # cylinder 0</span> -<span id="L57" class="LineNr"> 57 </span> b6 00 <span class="Comment"># dh <- 0 # track 0</span> -<span id="L58" class="LineNr"> 58 </span> b1 02 <span class="Comment"># cl <- 2 # second sector, 1-based</span> -<span id="L59" class="LineNr"> 59 </span> b0 01 <span class="Comment"># al <- 1 # number of sectors to read</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Comment"># address to write sectors to = es:bx = 0x7e00, contiguous with boot segment</span> -<span id="L61" class="LineNr"> 61 </span> bb 00 00 <span class="Comment"># bx <- 0</span> -<span id="L62" class="LineNr"> 62 </span> 8e c3 <span class="Comment"># es <- bx</span> -<span id="L63" class="LineNr"> 63 </span> bb 00 7e <span class="Comment"># bx <- 0x7e00</span> -<span id="L64" class="LineNr"> 64 </span> cd 13 <span class="Comment"># int 13h, BIOS disk service</span> -<span id="L65" class="LineNr"> 65 </span> 0f 82 76 00 <span class="Comment"># jump-if-carry disk-error</span> -<span id="L66" class="LineNr"> 66 </span> -<span id="L67" class="LineNr"> 67 </span><span class="Comment"># 26:</span> -<span id="L68" class="LineNr"> 68 </span> <span class="Comment"># undo the A20 hack: <a href="https://en.wikipedia.org/wiki/A20_line">https://en.wikipedia.org/wiki/A20_line</a></span> -<span id="L69" class="LineNr"> 69 </span> <span class="Comment"># this is from <a href="https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S">https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S</a></span> -<span id="L70" class="LineNr"> 70 </span> <span class="Comment"># seta20.1:</span> -<span id="L71" class="LineNr"> 71 </span> e4 64 <span class="Comment"># al <- port 0x64</span> -<span id="L72" class="LineNr"> 72 </span> a8 02 <span class="Comment"># set zf if bit 1 (second-least significant) is not set</span> -<span id="L73" class="LineNr"> 73 </span> 75 fa <span class="Comment"># if zf not set, goto seta20.1 (-6)</span> -<span id="L74" class="LineNr"> 74 </span> -<span id="L75" class="LineNr"> 75 </span> b0 d1 <span class="Comment"># al <- 0xd1</span> -<span id="L76" class="LineNr"> 76 </span> e6 64 <span class="Comment"># port 0x64 <- al</span> -<span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="Comment"># 30:</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Comment"># seta20.2:</span> -<span id="L80" class="LineNr"> 80 </span> e4 64 <span class="Comment"># al <- port 0x64</span> -<span id="L81" class="LineNr"> 81 </span> a8 02 <span class="Comment"># set zf if bit 1 (second-least significant) is not set</span> -<span id="L82" class="LineNr"> 82 </span> 75 fa <span class="Comment"># if zf not set, goto seta20.2 (-6)</span> -<span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span> b0 df <span class="Comment"># al <- 0xdf</span> -<span id="L85" class="LineNr"> 85 </span> e6 64 <span class="Comment"># port 0x64 <- al</span> -<span id="L86" class="LineNr"> 86 </span> -<span id="L87" class="LineNr"> 87 </span><span class="Comment"># 3a:</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Comment"># switch to 32-bit mode</span> -<span id="L89" class="LineNr"> 89 </span> 0f 01 16 <span class="Comment"># lgdt 00/mod/indirect 010/subop 110/rm/use-disp16</span> -<span id="L90" class="LineNr"> 90 </span> 80 7c <span class="Comment"># *gdt_descriptor</span> -<span id="L91" class="LineNr"> 91 </span><span class="Comment"># 3f:</span> -<span id="L92" class="LineNr"> 92 </span> 0f 20 c0 <span class="Comment"># eax <- cr0</span> -<span id="L93" class="LineNr"> 93 </span> 66 83 c8 01 <span class="Comment"># eax <- or 0x1</span> -<span id="L94" class="LineNr"> 94 </span> 0f 22 c0 <span class="Comment"># cr0 <- eax</span> -<span id="L95" class="LineNr"> 95 </span> ea c0 7c 08 00 <span class="Comment"># far jump to initialize_32bit_mode after setting cs to the record at offset 8 in the gdt (gdt_code)</span> -<span id="L96" class="LineNr"> 96 </span> -<span id="L97" class="LineNr"> 97 </span><span class="Comment"># padding</span> -<span id="L98" class="LineNr"> 98 </span><span class="Comment"># 4e:</span> -<span id="L99" class="LineNr"> 99 </span> 00 00 -<span id="L100" class="LineNr">100 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L101" class="LineNr">101 </span> -<span id="L102" class="LineNr">102 </span><span class="Comment">## GDT: 3 records of 8 bytes each</span> -<span id="L103" class="LineNr">103 </span> -<span id="L104" class="LineNr">104 </span><span class="Comment"># 60:</span> -<span id="L105" class="LineNr">105 </span><span class="Comment"># gdt_start:</span> -<span id="L106" class="LineNr">106 </span><span class="Comment"># gdt_null: mandatory null descriptor</span> -<span id="L107" class="LineNr">107 </span> 00 00 00 00 00 00 00 00 -<span id="L108" class="LineNr">108 </span><span class="Comment"># gdt_code: (offset 8 from gdt_start)</span> -<span id="L109" class="LineNr">109 </span> ff ff <span class="Comment"># limit[0:16]</span> -<span id="L110" class="LineNr">110 </span> 00 00 00 <span class="Comment"># base[0:24]</span> -<span id="L111" class="LineNr">111 </span> 9a <span class="Comment"># 1/present 00/privilege 1/descriptor type = 1001b</span> -<span id="L112" class="LineNr">112 </span> <span class="Comment"># 1/code 0/conforming 1/readable 0/accessed = 1010b</span> -<span id="L113" class="LineNr">113 </span> cf <span class="Comment"># 1/granularity 1/32-bit 0/64-bit-segment 0/AVL = 1100b</span> -<span id="L114" class="LineNr">114 </span> <span class="Comment"># limit[16:20] = 1111b</span> -<span id="L115" class="LineNr">115 </span> 00 <span class="Comment"># base[24:32]</span> -<span id="L116" class="LineNr">116 </span><span class="Comment"># gdt_data: (offset 16 from gdt_start)</span> -<span id="L117" class="LineNr">117 </span> ff ff <span class="Comment"># limit[0:16]</span> -<span id="L118" class="LineNr">118 </span> 00 00 00 <span class="Comment"># base[0:24]</span> -<span id="L119" class="LineNr">119 </span> 92 <span class="Comment"># 1/present 00/privilege 1/descriptor type = 1001b</span> -<span id="L120" class="LineNr">120 </span> <span class="Comment"># 0/data 0/conforming 1/readable 0/accessed = 0010b</span> -<span id="L121" class="LineNr">121 </span> cf <span class="Comment"># same as gdt_code</span> -<span id="L122" class="LineNr">122 </span> 00 <span class="Comment"># base[24:32]</span> -<span id="L123" class="LineNr">123 </span><span class="Comment"># gdt_end:</span> -<span id="L124" class="LineNr">124 </span> -<span id="L125" class="LineNr">125 </span><span class="Comment"># padding</span> -<span id="L126" class="LineNr">126 </span><span class="Comment"># 78:</span> -<span id="L127" class="LineNr">127 </span> 00 00 00 00 00 00 00 00 -<span id="L128" class="LineNr">128 </span> -<span id="L129" class="LineNr">129 </span><span class="Comment"># 80:</span> -<span id="L130" class="LineNr">130 </span><span class="Comment"># gdt_descriptor:</span> -<span id="L131" class="LineNr">131 </span> 17 00 <span class="Comment"># final index of gdt = gdt_end - gdt_start - 1</span> -<span id="L132" class="LineNr">132 </span> 60 7c 00 00 <span class="Comment"># start = gdt_start</span> -<span id="L133" class="LineNr">133 </span> -<span id="L134" class="LineNr">134 </span><span class="Comment"># padding</span> -<span id="L135" class="LineNr">135 </span><span class="Comment"># 85:</span> -<span id="L136" class="LineNr">136 </span> 00 00 00 00 00 00 00 00 00 00 -<span id="L137" class="LineNr">137 </span> -<span id="L138" class="LineNr">138 </span><span class="Comment"># 90:</span> -<span id="L139" class="LineNr">139 </span><span class="Comment"># disk_error:</span> -<span id="L140" class="LineNr">140 </span> <span class="Comment"># print 'D' to top-left of screen to indicate disk error</span> -<span id="L141" class="LineNr">141 </span> <span class="Comment"># *0xb8000 <- 0x0f44</span> -<span id="L142" class="LineNr">142 </span> <span class="Comment"># bx <- 0xb800</span> -<span id="L143" class="LineNr">143 </span> bb 00 b8 -<span id="L144" class="LineNr">144 </span> <span class="Comment"># ds <- bx</span> -<span id="L145" class="LineNr">145 </span> 8e db <span class="Comment"># 11b/mod 011b/reg/ds 011b/rm/bx</span> -<span id="L146" class="LineNr">146 </span> <span class="Comment"># al <- 'D'</span> -<span id="L147" class="LineNr">147 </span> b0 44 -<span id="L148" class="LineNr">148 </span> <span class="Comment"># ah <- 0x0f # white on black</span> -<span id="L149" class="LineNr">149 </span> b4 0f -<span id="L150" class="LineNr">150 </span> <span class="Comment"># bx <- 0</span> -<span id="L151" class="LineNr">151 </span> bb 00 00 -<span id="L152" class="LineNr">152 </span> <span class="Comment"># *ds:bx <- ax</span> -<span id="L153" class="LineNr">153 </span> 89 07 <span class="Comment"># 00b/mod/indirect 000b/reg/ax 111b/rm/bx</span> -<span id="L154" class="LineNr">154 </span> -<span id="L155" class="LineNr">155 </span>e9 fb ff <span class="Comment"># loop forever</span> -<span id="L156" class="LineNr">156 </span> -<span id="L157" class="LineNr">157 </span><span class="Comment"># padding</span> -<span id="L158" class="LineNr">158 </span><span class="Comment"># a1:</span> -<span id="L159" class="LineNr">159 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L160" class="LineNr">160 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L161" class="LineNr">161 </span> -<span id="L162" class="LineNr">162 </span><span class="Comment">## 32-bit code from this point (still some instructions not in SubX)</span> -<span id="L163" class="LineNr">163 </span> -<span id="L164" class="LineNr">164 </span><span class="Comment"># c0:</span> -<span id="L165" class="LineNr">165 </span><span class="Comment"># initialize_32bit_mode:</span> -<span id="L166" class="LineNr">166 </span> 66 b8 10 00 <span class="Comment"># ax <- offset 16 from gdt_start</span> -<span id="L167" class="LineNr">167 </span> 8e d8 <span class="Comment"># ds <- ax</span> -<span id="L168" class="LineNr">168 </span> 8e d0 <span class="Comment"># ss <- ax</span> -<span id="L169" class="LineNr">169 </span> 8e c0 <span class="Comment"># es <- ax</span> -<span id="L170" class="LineNr">170 </span> 8e e0 <span class="Comment"># fs <- ax</span> -<span id="L171" class="LineNr">171 </span> 8e e8 <span class="Comment"># gs <- ax</span> -<span id="L172" class="LineNr">172 </span> -<span id="L173" class="LineNr">173 </span> <span class="Comment"># load interrupt handlers</span> -<span id="L174" class="LineNr">174 </span> 0f 01 1d <span class="Comment"># lidt 00/mod/indirect 011/subop 101/rm32/use-disp32</span> -<span id="L175" class="LineNr">175 </span> 00 7f 00 00 <span class="Comment"># *idt_descriptor</span> -<span id="L176" class="LineNr">176 </span> -<span id="L177" class="LineNr">177 </span> <span class="Comment"># enable keyboard IRQ</span> -<span id="L178" class="LineNr">178 </span> b0 fd <span class="Comment"># al <- 0xfd # enable just IRQ1</span> -<span id="L179" class="LineNr">179 </span> e6 21 <span class="Comment"># port 0x21 <- al</span> -<span id="L180" class="LineNr">180 </span> -<span id="L181" class="LineNr">181 </span> <span class="Comment"># initialization is done; enable interrupts</span> -<span id="L182" class="LineNr">182 </span> fb -<span id="L183" class="LineNr">183 </span> e9 21 00 00 00 <span class="Comment"># jump to 0x7d00</span> -<span id="L184" class="LineNr">184 </span> -<span id="L185" class="LineNr">185 </span><span class="Comment"># padding</span> -<span id="L186" class="LineNr">186 </span><span class="Comment"># df:</span> -<span id="L187" class="LineNr">187 </span> 00 -<span id="L188" class="LineNr">188 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L189" class="LineNr">189 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L190" class="LineNr">190 </span> -<span id="L191" class="LineNr">191 </span><span class="Comment">## 'application' SubX code: print one character to top-left of screen</span> -<span id="L192" class="LineNr">192 </span> -<span id="L193" class="LineNr">193 </span><span class="Comment"># offset 100 (address 0x7d00):</span> -<span id="L194" class="LineNr">194 </span><span class="Comment"># Entry:</span> -<span id="L195" class="LineNr">195 </span> <span class="Comment"># eax <- *0x7ff4 # random address in second segment containing 'H'</span> -<span id="L196" class="LineNr">196 </span> 8b <span class="Comment"># copy rm32 to r32</span> -<span id="L197" class="LineNr">197 </span> 05 <span class="Comment"># 00/mod/indirect 000/r32/eax 101/rm32/use-disp32</span> -<span id="L198" class="LineNr">198 </span> <span class="Comment"># disp32</span> -<span id="L199" class="LineNr">199 </span> f4 7f 00 00 -<span id="L200" class="LineNr">200 </span> <span class="Comment"># *0xb8000 <- eax</span> -<span id="L201" class="LineNr">201 </span> 89 <span class="Comment"># copy r32 to rm32</span> -<span id="L202" class="LineNr">202 </span> 05 <span class="Comment"># 00/mod/indirect 000/r32/eax 101/rm32/use-disp32</span> -<span id="L203" class="LineNr">203 </span> <span class="Comment"># disp32</span> -<span id="L204" class="LineNr">204 </span> 00 80 0b 00 -<span id="L205" class="LineNr">205 </span> -<span id="L206" class="LineNr">206 </span>e9 fb ff ff ff <span class="Comment"># loop forever</span> -<span id="L207" class="LineNr">207 </span> -<span id="L208" class="LineNr">208 </span><span class="Comment"># padding</span> -<span id="L209" class="LineNr">209 </span><span class="Comment"># 111:</span> -<span id="L210" class="LineNr">210 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L211" class="LineNr">211 </span> -<span id="L212" class="LineNr">212 </span><span class="Comment"># 120:</span> -<span id="L213" class="LineNr">213 </span><span class="Comment"># null interrupt handler:</span> -<span id="L214" class="LineNr">214 </span> cf <span class="Comment"># iret</span> -<span id="L215" class="LineNr">215 </span> -<span id="L216" class="LineNr">216 </span><span class="Comment"># padding</span> -<span id="L217" class="LineNr">217 </span><span class="Comment"># 121:</span> -<span id="L218" class="LineNr">218 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L219" class="LineNr">219 </span> -<span id="L220" class="LineNr">220 </span><span class="Comment"># 130:</span> -<span id="L221" class="LineNr">221 </span><span class="Comment"># keyboard interrupt handler:</span> -<span id="L222" class="LineNr">222 </span> <span class="Comment"># prologue</span> -<span id="L223" class="LineNr">223 </span> fa <span class="Comment"># disable interrupts</span> -<span id="L224" class="LineNr">224 </span> 60 <span class="Comment"># push all registers to stack</span> -<span id="L225" class="LineNr">225 </span> <span class="Comment"># acknowledge interrupt</span> -<span id="L226" class="LineNr">226 </span> b0 20 <span class="Comment"># al <- 0x20</span> -<span id="L227" class="LineNr">227 </span> e6 20 <span class="Comment"># port 0x20 <- al</span> -<span id="L228" class="LineNr">228 </span> <span class="Comment"># check output buffer of 8042 keyboard controller (<a href="https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)">https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)</a></span> -<span id="L229" class="LineNr">229 </span> e4 64 <span class="Comment"># al <- port 0x64</span> -<span id="L230" class="LineNr">230 </span> a8 01 <span class="Comment"># set zf if bit 0 (least significant) is not set</span> -<span id="L231" class="LineNr">231 </span> 74 11 <span class="Comment"># if bit 0 is not set, skip to epilogue</span> -<span id="L232" class="LineNr">232 </span> <span class="Comment"># read keycode into eax</span> -<span id="L233" class="LineNr">233 </span> 31 c0 <span class="Comment"># eax <- xor eax; 11/direct 000/r32/eax 000/rm32/eax</span> -<span id="L234" class="LineNr">234 </span> e4 60 <span class="Comment"># al <- port 0x60</span> -<span id="L235" class="LineNr">235 </span> <span class="Comment"># map key '1' to ascii; if eax == 2, eax = 0x31</span> -<span id="L236" class="LineNr">236 </span> 3d 02 00 00 00 <span class="Comment"># compare eax with 0x02</span> -<span id="L237" class="LineNr">237 </span> 75 0b <span class="Comment"># if not equal, goto epilogue</span> -<span id="L238" class="LineNr">238 </span> b8 31 0f 00 00 <span class="Comment"># eax <- 0x0f31</span> -<span id="L239" class="LineNr">239 </span> <span class="Comment"># print eax to top-left of screen (*0xb8000)</span> -<span id="L240" class="LineNr">240 </span> 89 <span class="Comment"># copy r32 to rm32</span> -<span id="L241" class="LineNr">241 </span> 05 <span class="Comment"># 00/mod/indirect 000/r32/eax 101/rm32/use-disp32</span> -<span id="L242" class="LineNr">242 </span> <span class="Comment"># disp32</span> -<span id="L243" class="LineNr">243 </span> 00 80 0b 00 -<span id="L244" class="LineNr">244 </span> <span class="Comment"># epilogue</span> -<span id="L245" class="LineNr">245 </span> 61 <span class="Comment"># pop all registers</span> -<span id="L246" class="LineNr">246 </span> fb <span class="Comment"># enable interrupts</span> -<span id="L247" class="LineNr">247 </span> cf <span class="Comment"># iret</span> -<span id="L248" class="LineNr">248 </span> -<span id="L249" class="LineNr">249 </span><span class="Comment"># padding</span> -<span id="L250" class="LineNr">250 </span><span class="Comment"># 155</span> -<span id="L251" class="LineNr">251 </span> 00 00 00 00 00 00 00 00 00 00 00 -<span id="L252" class="LineNr">252 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L253" class="LineNr">253 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L254" class="LineNr">254 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L255" class="LineNr">255 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L256" class="LineNr">256 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L257" class="LineNr">257 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L258" class="LineNr">258 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L259" class="LineNr">259 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L260" class="LineNr">260 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L261" class="LineNr">261 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L262" class="LineNr">262 </span> -<span id="L263" class="LineNr">263 </span><span class="Comment"># final 2 bytes of boot sector</span> -<span id="L264" class="LineNr">264 </span>55 aa -<span id="L265" class="LineNr">265 </span> -<span id="L266" class="LineNr">266 </span><span class="Comment">## sector 2</span> -<span id="L267" class="LineNr">267 </span><span class="Comment"># loaded by load_disk, not automatically on boot</span> -<span id="L268" class="LineNr">268 </span> -<span id="L269" class="LineNr">269 </span><span class="Comment"># offset 200 (address 0x7e00): interrupt descriptor table</span> -<span id="L270" class="LineNr">270 </span><span class="Comment"># 32 entries * 8 bytes each = 256 bytes (0x100)</span> -<span id="L271" class="LineNr">271 </span><span class="Comment"># idt_start:</span> -<span id="L272" class="LineNr">272 </span> -<span id="L273" class="LineNr">273 </span>00 00 00 00 00 00 00 00 -<span id="L274" class="LineNr">274 </span>00 00 00 00 00 00 00 00 -<span id="L275" class="LineNr">275 </span>00 00 00 00 00 00 00 00 -<span id="L276" class="LineNr">276 </span>00 00 00 00 00 00 00 00 -<span id="L277" class="LineNr">277 </span>00 00 00 00 00 00 00 00 -<span id="L278" class="LineNr">278 </span>00 00 00 00 00 00 00 00 -<span id="L279" class="LineNr">279 </span>00 00 00 00 00 00 00 00 -<span id="L280" class="LineNr">280 </span>00 00 00 00 00 00 00 00 -<span id="L281" class="LineNr">281 </span> -<span id="L282" class="LineNr">282 </span><span class="Comment"># entry 8: clock</span> -<span id="L283" class="LineNr">283 </span> 20 7d <span class="Comment"># target[0:16] = null interrupt handler</span> -<span id="L284" class="LineNr">284 </span> 08 00 <span class="Comment"># segment selector (gdt_code)</span> -<span id="L285" class="LineNr">285 </span> 00 <span class="Comment"># unused</span> -<span id="L286" class="LineNr">286 </span> 8e <span class="Comment"># 1/p 00/dpl 0 1110/type/32-bit-interrupt-gate</span> -<span id="L287" class="LineNr">287 </span> 00 00 <span class="Comment"># target[16:32]</span> -<span id="L288" class="LineNr">288 </span> -<span id="L289" class="LineNr">289 </span><span class="Comment"># entry 9: keyboard</span> -<span id="L290" class="LineNr">290 </span> 30 7d <span class="Comment"># target[0:16] = keyboard interrupt handler</span> -<span id="L291" class="LineNr">291 </span> 08 00 <span class="Comment"># segment selector (gdt_code)</span> -<span id="L292" class="LineNr">292 </span> 00 <span class="Comment"># unused</span> -<span id="L293" class="LineNr">293 </span> 8e <span class="Comment"># 1/p 00/dpl 0 1110/type/32-bit-interrupt-gate</span> -<span id="L294" class="LineNr">294 </span> 00 00 <span class="Comment"># target[16:32]</span> -<span id="L295" class="LineNr">295 </span> -<span id="L296" class="LineNr">296 </span>00 00 00 00 00 00 00 00 -<span id="L297" class="LineNr">297 </span>00 00 00 00 00 00 00 00 -<span id="L298" class="LineNr">298 </span>00 00 00 00 00 00 00 00 -<span id="L299" class="LineNr">299 </span>00 00 00 00 00 00 00 00 -<span id="L300" class="LineNr">300 </span>00 00 00 00 00 00 00 00 -<span id="L301" class="LineNr">301 </span>00 00 00 00 00 00 00 00 -<span id="L302" class="LineNr">302 </span>00 00 00 00 00 00 00 00 -<span id="L303" class="LineNr">303 </span>00 00 00 00 00 00 00 00 -<span id="L304" class="LineNr">304 </span>00 00 00 00 00 00 00 00 -<span id="L305" class="LineNr">305 </span>00 00 00 00 00 00 00 00 -<span id="L306" class="LineNr">306 </span>00 00 00 00 00 00 00 00 -<span id="L307" class="LineNr">307 </span>00 00 00 00 00 00 00 00 -<span id="L308" class="LineNr">308 </span>00 00 00 00 00 00 00 00 -<span id="L309" class="LineNr">309 </span>00 00 00 00 00 00 00 00 -<span id="L310" class="LineNr">310 </span>00 00 00 00 00 00 00 00 -<span id="L311" class="LineNr">311 </span>00 00 00 00 00 00 00 00 -<span id="L312" class="LineNr">312 </span>00 00 00 00 00 00 00 00 -<span id="L313" class="LineNr">313 </span>00 00 00 00 00 00 00 00 -<span id="L314" class="LineNr">314 </span>00 00 00 00 00 00 00 00 -<span id="L315" class="LineNr">315 </span>00 00 00 00 00 00 00 00 -<span id="L316" class="LineNr">316 </span>00 00 00 00 00 00 00 00 -<span id="L317" class="LineNr">317 </span>00 00 00 00 00 00 00 00 -<span id="L318" class="LineNr">318 </span><span class="Comment"># idt_end:</span> -<span id="L319" class="LineNr">319 </span> -<span id="L320" class="LineNr">320 </span><span class="Comment"># offset 300 (address 0x7f00):</span> -<span id="L321" class="LineNr">321 </span><span class="Comment"># idt_descriptor:</span> -<span id="L322" class="LineNr">322 </span> ff 00 <span class="Comment"># idt_end - idt_start - 1</span> -<span id="L323" class="LineNr">323 </span> 00 7e 00 00 <span class="Comment"># start = idt_start</span> -<span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="Comment"># padding</span> -<span id="L326" class="LineNr">326 </span> 00 00 00 00 00 00 00 00 00 00 -<span id="L327" class="LineNr">327 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L328" class="LineNr">328 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L329" class="LineNr">329 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L330" class="LineNr">330 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L331" class="LineNr">331 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L332" class="LineNr">332 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L333" class="LineNr">333 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L334" class="LineNr">334 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L335" class="LineNr">335 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L336" class="LineNr">336 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L337" class="LineNr">337 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L338" class="LineNr">338 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L339" class="LineNr">339 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L340" class="LineNr">340 </span>00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 -<span id="L341" class="LineNr">341 </span>00 00 00 00 48 0f 00 00 00 00 00 00 00 00 00 00 <span class="Comment"># spot the 'H' with attributes</span> -<span id="L342" class="LineNr">342 </span><span class="Comment"># offset 400 (address 0x8000)</span> -<span id="L343" class="LineNr">343 </span> -<span id="L344" class="LineNr">344 </span><span class="Comment"># vim:ft=conf</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/ex1.hex.html b/html/baremetal/ex1.hex.html deleted file mode 100644 index ae0b69d0..00000000 --- a/html/baremetal/ex1.hex.html +++ /dev/null @@ -1,76 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex1.hex</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex1.hex'>https://github.com/akkartik/mu/blob/main/baremetal/ex1.hex</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># The simplest possible program: just an infinite loop.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># All is well if your computer clears screen and hangs without restarting.</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># On an emulator the window may get bigger to accomodate the higher-resolution</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># graphics mode.</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To convert to a disk image, first prepare a realistically sized disk image:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># dd if=/dev/zero of=disk.img count=20160 # 512-byte sectors, so 10MB</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Load the program on the disk image:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># cat baremetal/boot.hex baremetal/ex1.hex |./bootstrap run apps/hex > a.bin</span> -<span id="L10" class="LineNr">10 </span><span class="subxComment"># dd if=a.bin of=disk.img conv=notrunc</span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># To run:</span> -<span id="L12" class="LineNr">12 </span><span class="subxComment"># qemu-system-i386 disk.img</span> -<span id="L13" class="LineNr">13 </span><span class="subxComment"># Or:</span> -<span id="L14" class="LineNr">14 </span><span class="subxComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L15" class="LineNr">15 </span> -<span id="L16" class="LineNr">16 </span><span class="subxComment"># main: (address 0x9400)</span> -<span id="L17" class="LineNr">17 </span>e9 fb ff ff ff <span class="subxComment"># jump to main, hanging indefinitely</span> -<span id="L18" class="LineNr">18 </span> -<span id="L19" class="LineNr">19 </span><span class="subxComment"># vim:ft=subx</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/ex2.hex.html b/html/baremetal/ex2.hex.html deleted file mode 100644 index 0af30d73..00000000 --- a/html/baremetal/ex2.hex.html +++ /dev/null @@ -1,99 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex2.hex</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex2.hex'>https://github.com/akkartik/mu/blob/main/baremetal/ex2.hex</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Test out the video mode by filling in the screen with pixels.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run, first prepare a realistically sized disk image:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># dd if=/dev/zero of=disk.img count=20160 # 512-byte sectors, so 10MB</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># Load the program on the disk image:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># cat baremetal/boot.hex baremetal/ex2.hex |./bootstrap run apps/hex > a.bin</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># dd if=a.bin of=disk.img conv=notrunc</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># To run:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># qemu-system-i386 disk.img</span> -<span id="L10" class="LineNr">10 </span><span class="subxComment"># Or:</span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L12" class="LineNr">12 </span><span class="subxComment">#</span> -<span id="L13" class="LineNr">13 </span><span class="subxComment"># Expected output:</span> -<span id="L14" class="LineNr">14 </span><span class="subxComment"># html/baremetal.png</span> -<span id="L15" class="LineNr">15 </span> -<span id="L16" class="LineNr">16 </span><span class="subxComment"># main: (address 0x9400)</span> -<span id="L17" class="LineNr">17 </span> -<span id="L18" class="LineNr">18 </span><span class="subxComment"># ecx <- LFB</span> -<span id="L19" class="LineNr">19 </span>8b <span class="subxComment"># copy *rm32 to r32</span> -<span id="L20" class="LineNr">20 </span> 0d <span class="subxComment"># 00/mod/indirect 001/r32/ecx 101/rm32/use-disp32</span> -<span id="L21" class="LineNr">21 </span> 28 81 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L22" class="LineNr">22 </span> -<span id="L23" class="LineNr">23 </span><span class="subxComment"># eax <- LFB + 0xbffff (1024*768 - 1)</span> -<span id="L24" class="LineNr">24 </span>8d <span class="subxComment"># copy-address rm32 to r32</span> -<span id="L25" class="LineNr">25 </span> 81 <span class="subxComment"># 10/mod/*+disp32 000/r32/eax 001/rm32/ecx</span> -<span id="L26" class="LineNr">26 </span> ff ff 0b 00 <span class="subxComment"># disp32</span> -<span id="L27" class="LineNr">27 </span> -<span id="L28" class="LineNr">28 </span><span class="subxComment"># $loop:</span> -<span id="L29" class="LineNr">29 </span><span class="subxComment"># if (eax < ecx) break</span> -<span id="L30" class="LineNr">30 </span>39 <span class="subxComment"># compare rm32 with r32</span> -<span id="L31" class="LineNr">31 </span> c8 <span class="subxComment"># 11/mod/direct 001/r32/ecx 000/rm32/eax</span> -<span id="L32" class="LineNr">32 </span>7c 05 <span class="subxComment"># break if < [label]</span> -<span id="L33" class="LineNr">33 </span><span class="subxComment"># *eax <- al</span> -<span id="L34" class="LineNr">34 </span>88 <span class="subxComment"># copy r8 to m8 at r32</span> -<span id="L35" class="LineNr">35 </span> 00 <span class="subxComment"># 00/mod/indirect 000/r8/AL 000/rm32/eax</span> -<span id="L36" class="LineNr">36 </span>48 <span class="subxComment"># decrement eax</span> -<span id="L37" class="LineNr">37 </span>eb f7 <span class="subxComment"># loop to -9 bytes [label]</span> -<span id="L38" class="LineNr">38 </span> -<span id="L39" class="LineNr">39 </span><span class="subxComment"># $break:</span> -<span id="L40" class="LineNr">40 </span>e9 fb ff ff ff <span class="subxComment"># hang indefinitely</span> -<span id="L41" class="LineNr">41 </span> -<span id="L42" class="LineNr">42 </span><span class="subxComment"># vim:ft=subx</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/ex3.hex.html b/html/baremetal/ex3.hex.html deleted file mode 100644 index 013dd705..00000000 --- a/html/baremetal/ex3.hex.html +++ /dev/null @@ -1,115 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex3.hex</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex3.hex'>https://github.com/akkartik/mu/blob/main/baremetal/ex3.hex</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Draw pixels in response to keyboard events, starting from the top-left</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># and in raster order.</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run, first prepare a realistically sized disk image:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># dd if=/dev/zero of=disk.img count=20160 # 512-byte sectors, so 10MB</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Load the program on the disk image:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># cat baremetal/boot.hex baremetal/ex3.hex |./bootstrap run apps/hex > a.bin</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># dd if=a.bin of=disk.img conv=notrunc</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># To run:</span> -<span id="L10" class="LineNr">10 </span><span class="subxComment"># qemu-system-i386 disk.img</span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># Or:</span> -<span id="L12" class="LineNr">12 </span><span class="subxComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L13" class="LineNr">13 </span> -<span id="L14" class="LineNr">14 </span><span class="subxComment"># main: (address 0x9000)</span> -<span id="L15" class="LineNr">15 </span> -<span id="L16" class="LineNr">16 </span><span class="subxComment"># eax <- LFB</span> -<span id="L17" class="LineNr">17 </span>8b <span class="subxComment"># copy *rm32 to r32</span> -<span id="L18" class="LineNr">18 </span> 05 <span class="subxComment"># 00/mod/indirect 000/r32/eax 101/rm32/use-disp32</span> -<span id="L19" class="LineNr">19 </span> 28 81 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L20" class="LineNr">20 </span> -<span id="L21" class="LineNr">21 </span><span class="subxComment"># var read index/ecx: byte = 0</span> -<span id="L22" class="LineNr">22 </span>31 c9 <span class="subxComment"># ecx <- xor ecx; 11/direct 001/r32/ecx 001/rm32/ecx</span> -<span id="L23" class="LineNr">23 </span> -<span id="L24" class="LineNr">24 </span><span class="subxComment"># $loop:</span> -<span id="L25" class="LineNr">25 </span> <span class="subxComment"># CL = *read index</span> -<span id="L26" class="LineNr">26 </span> 8a <span class="subxComment"># copy m8 at r32 to r8</span> -<span id="L27" class="LineNr">27 </span> 0d <span class="subxComment"># 00/mod/indirect 001/r8/cl 101/rm32/use-disp32</span> -<span id="L28" class="LineNr">28 </span> cc 7d 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L29" class="LineNr">29 </span> <span class="subxComment"># CL = *(keyboard buffer + ecx)</span> -<span id="L30" class="LineNr">30 </span> 8a <span class="subxComment"># copy m8 at r32 to r8</span> -<span id="L31" class="LineNr">31 </span> 89 <span class="subxComment"># 10/mod/*+disp32 001/r8/cl 001/rm32/ecx</span> -<span id="L32" class="LineNr">32 </span> d0 7d 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L33" class="LineNr">33 </span> <span class="subxComment"># if (CL == 0) loop (spin loop)</span> -<span id="L34" class="LineNr">34 </span> 80 -<span id="L35" class="LineNr">35 </span> f9 <span class="subxComment"># 11/mod/direct 111/subop/compare 001/rm8/CL</span> -<span id="L36" class="LineNr">36 </span> 00 <span class="subxComment"># imm8</span> -<span id="L37" class="LineNr">37 </span> 74 ef <span class="subxComment"># loop -17 [label]</span> -<span id="L38" class="LineNr">38 </span><span class="subxComment"># offset 0x19:</span> -<span id="L39" class="LineNr">39 </span> <span class="subxComment"># otherwise increment read index</span> -<span id="L40" class="LineNr">40 </span> fe <span class="subxComment"># increment byte</span> -<span id="L41" class="LineNr">41 </span> 05 <span class="subxComment"># 00/mod/indirect 000/subop/increment 101/rm32/use-disp32</span> -<span id="L42" class="LineNr">42 </span> cc 7d 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L43" class="LineNr">43 </span> <span class="subxComment"># clear top nibble of index (keyboard buffer is circular)</span> -<span id="L44" class="LineNr">44 </span> 80 <span class="subxComment"># and byte</span> -<span id="L45" class="LineNr">45 </span> 25 <span class="subxComment"># 00/mod/indirect 100/subop/and 101/rm32/use-disp32</span> -<span id="L46" class="LineNr">46 </span> cc 7d 00 00 <span class="subxComment"># disp32 [label]</span> -<span id="L47" class="LineNr">47 </span> 0f <span class="subxComment"># imm8</span> -<span id="L48" class="LineNr">48 </span> <span class="subxComment"># print a pixel in fluorescent green</span> -<span id="L49" class="LineNr">49 </span> c6 <span class="subxComment"># copy imm8 to m8 at rm32</span> -<span id="L50" class="LineNr">50 </span> 00 <span class="subxComment"># 00/mod/indirect 000/subop 000/rm32/eax</span> -<span id="L51" class="LineNr">51 </span> 31 <span class="subxComment"># imm32</span> -<span id="L52" class="LineNr">52 </span> 40 <span class="subxComment"># increment eax</span> -<span id="L53" class="LineNr">53 </span> eb dc <span class="subxComment"># loop -36 [label]</span> -<span id="L54" class="LineNr">54 </span> -<span id="L55" class="LineNr">55 </span><span class="subxComment"># $break:</span> -<span id="L56" class="LineNr">56 </span>e9 fb ff ff ff <span class="subxComment"># hang indefinitely</span> -<span id="L57" class="LineNr">57 </span> -<span id="L58" class="LineNr">58 </span><span class="subxComment"># vim:ft=subx</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/mu-init.subx.html b/html/baremetal/mu-init.subx.html deleted file mode 100644 index 440aab67..00000000 --- a/html/baremetal/mu-init.subx.html +++ /dev/null @@ -1,86 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/mu-init.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/mu-init.subx'>https://github.com/akkartik/mu/blob/main/baremetal/mu-init.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Initialize the minimal runtime for Mu programs.</span> -<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># See translate_mu_baremetal for how this file is used.</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># Mu baremetal programs start at a function called 'main' without inouts or outputs.</span> -<span id="L6" class="LineNr"> 6 </span> -<span id="L7" class="LineNr"> 7 </span>== code -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># initialize stack</span> -<span id="L10" class="LineNr">10 </span>bd/copy-to-ebp 0/imm32 -<span id="L11" class="LineNr">11 </span><span class="subxComment"># always first run tests</span> -<span id="L12" class="LineNr">12 </span>(run-tests) -<span id="L13" class="LineNr">13 </span>(<a href='104test.subx.html#L17'>num-test-failures</a>) <span class="subxComment"># => eax</span> -<span id="L14" class="LineNr">14 </span><span class="subxComment"># call main if tests all passed</span> -<span id="L15" class="LineNr">15 </span>{ -<span id="L16" class="LineNr">16 </span> 3d/compare-eax-and 0/imm32 -<span id="L17" class="LineNr">17 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 -<span id="L18" class="LineNr">18 </span> (<a href='500text-screen.mu.html#L226'>clear-real-screen</a>) -<span id="L19" class="LineNr">19 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L170'>Real-screen-cursor-x</a></span> 0/imm32 -<span id="L20" class="LineNr">20 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L172'>Real-screen-cursor-y</a></span> 0/imm32 -<span id="L21" class="LineNr">21 </span> (main) -<span id="L22" class="LineNr">22 </span>} -<span id="L23" class="LineNr">23 </span> -<span id="L24" class="LineNr">24 </span><span class="subxComment"># hang indefinitely</span> -<span id="L25" class="LineNr">25 </span>{ -<span id="L26" class="LineNr">26 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L27" class="LineNr">27 </span>} -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/shell/eval.mu.html b/html/baremetal/shell/eval.mu.html deleted file mode 100644 index 9e0d1e32..00000000 --- a/html/baremetal/shell/eval.mu.html +++ /dev/null @@ -1,1011 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/shell/eval.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.CommentedCode { color: #8a8a8a; } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/shell/eval.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/eval.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># evaluator (and parser) for the Mu shell language</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># inputs:</span> -<span id="L3" class="LineNr"> 3 </span><span class="muComment"># a list of lines, each a list of words, each an editable gap-buffer</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># end: a word to stop at</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># output:</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># a stack of values to render that summarizes the result of evaluation until 'end'</span> -<span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># Key features of the language:</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># words matching '=___' create bindings</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># line boundaries clear the stack (but not bindings)</span> -<span id="L11" class="LineNr"> 11 </span><span class="muComment"># { and } for grouping words</span> -<span id="L12" class="LineNr"> 12 </span><span class="muComment"># break and loop for control flow within groups</span> -<span id="L13" class="LineNr"> 13 </span><span class="muComment"># -> for conditionally skipping the next word or group</span> -<span id="L14" class="LineNr"> 14 </span> -<span id="L15" class="LineNr"> 15 </span><span class="muComment"># Example: Pushing numbers from 1 to n on the stack</span> -<span id="L16" class="LineNr"> 16 </span><span class="muComment">#</span> -<span id="L17" class="LineNr"> 17 </span><span class="muComment"># 3 =n</span> -<span id="L18" class="LineNr"> 18 </span><span class="muComment"># { n 1 < -> break n n 1- =n loop }</span> -<span id="L19" class="LineNr"> 19 </span><span class="muComment">#</span> -<span id="L20" class="LineNr"> 20 </span><span class="muComment"># Stack as we evaluate each word in the second line:</span> -<span id="L21" class="LineNr"> 21 </span><span class="muComment"># 3 1 false 3 3 2 3 1</span> -<span id="L22" class="LineNr"> 22 </span><span class="muComment"># 3 3 3 2</span> -<span id="L23" class="LineNr"> 23 </span><span class="muComment"># 3</span> -<span id="L24" class="LineNr"> 24 </span> -<span id="L25" class="LineNr"> 25 </span><span class="muComment"># Rules beyond simple postfix:</span> -<span id="L26" class="LineNr"> 26 </span><span class="muComment"># If the final word is `->`, clear stack</span> -<span id="L27" class="LineNr"> 27 </span><span class="muComment"># If the final word is `break`, pop top of stack</span> -<span id="L28" class="LineNr"> 28 </span><span class="muComment">#</span> -<span id="L29" class="LineNr"> 29 </span><span class="muComment"># `{` and `}` don't affect evaluation</span> -<span id="L30" class="LineNr"> 30 </span><span class="muComment"># If the final word is `{` or `}`, clear stack (to suppress rendering it)</span> -<span id="L31" class="LineNr"> 31 </span><span class="muComment">#</span> -<span id="L32" class="LineNr"> 32 </span><span class="muComment"># If `->` in middle and top of stack is falsy, skip next word or group</span> -<span id="L33" class="LineNr"> 33 </span><span class="muComment">#</span> -<span id="L34" class="LineNr"> 34 </span><span class="muComment"># If `break` in middle executes, skip to next containing `}`</span> -<span id="L35" class="LineNr"> 35 </span><span class="muComment"># If no containing `}`, clear stack (incomplete)</span> -<span id="L36" class="LineNr"> 36 </span><span class="muComment">#</span> -<span id="L37" class="LineNr"> 37 </span><span class="muComment"># If `loop` in middle executes, skip to previous containing `{`</span> -<span id="L38" class="LineNr"> 38 </span><span class="muComment"># If no containing `}`, clear stack (error)</span> -<span id="L39" class="LineNr"> 39 </span> -<span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L40'>evaluate</a></span> _in: (addr <a href='line.mu.html#L1'>line</a>), end: (addr <a href='word.mu.html#L1'>word</a>), out: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="Delimiter">{</span> -<span id="L41" class="LineNr"> 41 </span> <a href='value-stack.mu.html#L17'>clear-value-stack</a> out -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> <a href='line.mu.html#L1'>line</a>/<span class="Constant">eax</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy _in -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='line.mu.html#L1'>line</a>, data -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah -<span id="L45" class="LineNr"> 45 </span> <a href='eval.mu.html#L48'>evaluate-sub</a> curr, end, out, <span class="Constant">1</span>/top-level -<span id="L46" class="LineNr"> 46 </span><span class="Delimiter">}</span> -<span id="L47" class="LineNr"> 47 </span> -<span id="L48" class="LineNr"> 48 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L48'>evaluate-sub</a></span> _curr: (addr <a href='word.mu.html#L1'>word</a>), end: (addr <a href='word.mu.html#L1'>word</a>), out: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), top-level?: boolean <span class="Delimiter">{</span> -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _curr -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> curr-stream-storage: (stream byte <span class="Constant">0x10</span>) -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> curr-stream/<span class="Constant">edi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address curr-stream-storage -<span id="L52" class="LineNr"> 52 </span> $evaluate-sub:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> <span class="muComment"># safety net (should never hit)</span> -<span id="L54" class="LineNr"> 54 </span> compare curr, <span class="Constant">0</span> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">break-if-=</span> -<span id="L56" class="LineNr"> 56 </span> <span class="muComment"># pull next word in for parsing</span> -<span id="L57" class="LineNr"> 57 </span> <a href='word.mu.html#L613'>emit-word</a> curr, curr-stream -<span id="L58" class="LineNr"> 58 </span><span class="CommentedCode">#? {</span> -<span id="L59" class="LineNr"> 59 </span><span class="CommentedCode">#? clear-screen 0/screen</span> -<span id="L60" class="LineNr"> 60 </span><span class="CommentedCode">#? dump-stack out</span> -<span id="L61" class="LineNr"> 61 </span><span class="CommentedCode">#? var foo/eax: int <- render-word 0/screen, curr, 0/x, 0/y, 0/no-cursor</span> -<span id="L62" class="LineNr"> 62 </span><span class="CommentedCode">#? {</span> -<span id="L63" class="LineNr"> 63 </span><span class="CommentedCode">#? var key/eax: byte <- read-key 0/keyboard</span> -<span id="L64" class="LineNr"> 64 </span><span class="CommentedCode">#? compare key, 0</span> -<span id="L65" class="LineNr"> 65 </span><span class="CommentedCode">#? loop-if-=</span> -<span id="L66" class="LineNr"> 66 </span><span class="CommentedCode">#? }</span> -<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? }</span> -<span id="L68" class="LineNr"> 68 </span> $evaluate-sub:process-word: <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> <span class="muComment">### if curr-stream is an operator, perform it</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"+"</span> -<span id="L72" class="LineNr"> 72 </span> compare is-add?, <span class="Constant">0</span>/false -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-=</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L77" class="LineNr"> 77 </span> a <span class="SpecialChar"><-</span> add b -<span id="L78" class="LineNr"> 78 </span> <a href='value-stack.mu.html#L23'>push-number-to-value-stack</a> out, a -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">}</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">{</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"-"</span> -<span id="L83" class="LineNr"> 83 </span> compare is-sub?, <span class="Constant">0</span>/false -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">break-if-=</span> -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L88" class="LineNr"> 88 </span> a <span class="SpecialChar"><-</span> subtract b -<span id="L89" class="LineNr"> 89 </span> <a href='value-stack.mu.html#L23'>push-number-to-value-stack</a> out, a -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">}</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">{</span> -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"*"</span> -<span id="L94" class="LineNr"> 94 </span> compare is-mul?, <span class="Constant">0</span>/false -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-=</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L99" class="LineNr"> 99 </span> a <span class="SpecialChar"><-</span> multiply b -<span id="L100" class="LineNr">100 </span> <a href='value-stack.mu.html#L23'>push-number-to-value-stack</a> out, a -<span id="L101" class="LineNr">101 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L102" class="LineNr">102 </span> <span class="Delimiter">}</span> -<span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> is-div?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"/"</span> -<span id="L105" class="LineNr">105 </span> compare is-div?, <span class="Constant">0</span>/false -<span id="L106" class="LineNr">106 </span> <span class="PreProc">break-if-=</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L110" class="LineNr">110 </span> a <span class="SpecialChar"><-</span> divide b -<span id="L111" class="LineNr">111 </span> <a href='value-stack.mu.html#L23'>push-number-to-value-stack</a> out, a -<span id="L112" class="LineNr">112 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> -<span id="L114" class="LineNr">114 </span> <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> is-sqrt?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"sqrt"</span> -<span id="L116" class="LineNr">116 </span> compare is-sqrt?, <span class="Constant">0</span>/false -<span id="L117" class="LineNr">117 </span> <span class="PreProc">break-if-=</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L119" class="LineNr">119 </span> a <span class="SpecialChar"><-</span> square-root a -<span id="L120" class="LineNr">120 </span> <a href='value-stack.mu.html#L23'>push-number-to-value-stack</a> out, a -<span id="L121" class="LineNr">121 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="Delimiter">{</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> is-lesser?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"<"</span> -<span id="L125" class="LineNr">125 </span> compare is-lesser?, <span class="Constant">0</span>/false -<span id="L126" class="LineNr">126 </span> <span class="PreProc">break-if-=</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L130" class="LineNr">130 </span> compare a, b -<span id="L131" class="LineNr">131 </span> <span class="Delimiter">{</span> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if-float<</span> -<span id="L133" class="LineNr">133 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> out, <span class="Constant">0</span>/false -<span id="L134" class="LineNr">134 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L135" class="LineNr">135 </span> <span class="Delimiter">}</span> -<span id="L136" class="LineNr">136 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> out, <span class="Constant">1</span>/true -<span id="L137" class="LineNr">137 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L138" class="LineNr">138 </span> <span class="Delimiter">}</span> -<span id="L139" class="LineNr">139 </span> <span class="Delimiter">{</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> is-greater?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">">"</span> -<span id="L141" class="LineNr">141 </span> compare is-greater?, <span class="Constant">0</span>/false -<span id="L142" class="LineNr">142 </span> <span class="PreProc">break-if-=</span> -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L146" class="LineNr">146 </span> compare a, b -<span id="L147" class="LineNr">147 </span> <span class="Delimiter">{</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">break-if-float></span> -<span id="L149" class="LineNr">149 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> out, <span class="Constant">0</span>/false -<span id="L150" class="LineNr">150 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> -<span id="L152" class="LineNr">152 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> out, <span class="Constant">1</span>/true -<span id="L153" class="LineNr">153 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> -<span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> is-equal?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"=="</span> <span class="muComment"># TODO support non-numbers</span> -<span id="L157" class="LineNr">157 </span> compare is-equal?, <span class="Constant">0</span>/false -<span id="L158" class="LineNr">158 </span> <span class="PreProc">break-if-=</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L162" class="LineNr">162 </span> compare a, b -<span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-=</span> -<span id="L165" class="LineNr">165 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> out, <span class="Constant">0</span>/false -<span id="L166" class="LineNr">166 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> -<span id="L168" class="LineNr">168 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> out, <span class="Constant">1</span>/true -<span id="L169" class="LineNr">169 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> -<span id="L171" class="LineNr">171 </span> <span class="muComment">## control flow</span> -<span id="L172" class="LineNr">172 </span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> is-conditional?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"->"</span> -<span id="L174" class="LineNr">174 </span> compare is-conditional?, <span class="Constant">0</span>/false -<span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if-=</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a> out -<span id="L177" class="LineNr">177 </span> compare a, <span class="Constant">0</span>/false -<span id="L178" class="LineNr">178 </span> <span class="Delimiter">{</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">break-if-!=</span> -<span id="L180" class="LineNr">180 </span> <span class="muComment"># if a is false, skip one word</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L11'>next-word</a>: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address <a href='../../127next-word.subx.html#L11'>next-word</a> -<span id="L183" class="LineNr">183 </span> <a href='eval.mu.html#L378'>skip-word</a> curr, end, next-word-ah -<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-word-ah -<span id="L185" class="LineNr">185 </span> curr <span class="SpecialChar"><-</span> copy _curr -<span id="L186" class="LineNr">186 </span> <span class="Delimiter">}</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> -<span id="L189" class="LineNr">189 </span> <span class="Delimiter">{</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> is-group-start?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"{"</span> -<span id="L191" class="LineNr">191 </span> compare is-group-start?, <span class="Constant">0</span>/false -<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if-=</span> -<span id="L193" class="LineNr">193 </span> <span class="muComment"># if top-level? and this is the final word, clear the stack</span> -<span id="L194" class="LineNr">194 </span> compare top-level?, <span class="Constant">0</span>/false -<span id="L195" class="LineNr">195 </span> <span class="PreProc">break-if-=</span> $evaluate-sub:process-word -<span id="L196" class="LineNr">196 </span> compare curr, end -<span id="L197" class="LineNr">197 </span> <span class="PreProc">break-if-!=</span> $evaluate-sub:process-word -<span id="L198" class="LineNr">198 </span> <a href='value-stack.mu.html#L17'>clear-value-stack</a> out -<span id="L199" class="LineNr">199 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L200" class="LineNr">200 </span> <span class="Delimiter">}</span> -<span id="L201" class="LineNr">201 </span> <span class="Delimiter">{</span> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> is-group-end?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"}"</span> -<span id="L203" class="LineNr">203 </span> compare is-group-end?, <span class="Constant">0</span>/false -<span id="L204" class="LineNr">204 </span> <span class="PreProc">break-if-=</span> -<span id="L205" class="LineNr">205 </span> <span class="muComment"># if top-level? and this is the final word, clear the stack</span> -<span id="L206" class="LineNr">206 </span> compare top-level?, <span class="Constant">0</span>/false -<span id="L207" class="LineNr">207 </span> <span class="PreProc">break-if-=</span> $evaluate-sub:process-word -<span id="L208" class="LineNr">208 </span> compare curr, end -<span id="L209" class="LineNr">209 </span> <span class="PreProc">break-if-!=</span> $evaluate-sub:process-word -<span id="L210" class="LineNr">210 </span> <a href='value-stack.mu.html#L17'>clear-value-stack</a> out -<span id="L211" class="LineNr">211 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L212" class="LineNr">212 </span> <span class="Delimiter">}</span> -<span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> is-break?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"break"</span> -<span id="L215" class="LineNr">215 </span> compare is-break?, <span class="Constant">0</span>/false -<span id="L216" class="LineNr">216 </span> <span class="PreProc">break-if-=</span> -<span id="L217" class="LineNr">217 </span> <span class="muComment"># scan ahead to containing '}'</span> -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L11'>next-word</a>: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address <a href='../../127next-word.subx.html#L11'>next-word</a> -<span id="L220" class="LineNr">220 </span> <a href='eval.mu.html#L411'>skip-rest-of-group</a> curr, end, next-word-ah -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-word-ah -<span id="L222" class="LineNr">222 </span> curr <span class="SpecialChar"><-</span> copy _curr -<span id="L223" class="LineNr">223 </span> <span class="PreProc">loop</span> $evaluate-sub:<span class="PreProc">loop</span> -<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> -<span id="L225" class="LineNr">225 </span> <span class="Delimiter">{</span> -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> is-loop?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"loop"</span> -<span id="L227" class="LineNr">227 </span> compare is-loop?, <span class="Constant">0</span>/false -<span id="L228" class="LineNr">228 </span> <span class="PreProc">break-if-=</span> -<span id="L229" class="LineNr">229 </span> <span class="muComment"># scan back to containing '{'</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> open-word: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> open-word-ah/<span class="Constant">edx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address open-word -<span id="L232" class="LineNr">232 </span> <a href='eval.mu.html#L439'>scan-to-start-of-group</a> curr, end, open-word-ah -<span id="L233" class="LineNr">233 </span> <span class="muComment"># scan ahead to the containing '}'; record that as next word to eval at</span> -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> close-word: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> close-word-ah/<span class="Constant">ebx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address close-word -<span id="L236" class="LineNr">236 </span> <a href='eval.mu.html#L411'>skip-rest-of-group</a> curr, end, close-word-ah -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *close-word-ah -<span id="L238" class="LineNr">238 </span> curr <span class="SpecialChar"><-</span> copy _curr -<span id="L239" class="LineNr">239 </span> <span class="muComment"># now eval until getting there</span> -<span id="L240" class="LineNr">240 </span> <span class="muComment"># TODO: can 'curr' be after 'end' at this point?</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> <a href='../../306files.subx.html#L12'>open</a>/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *open-word-ah -<span id="L242" class="LineNr">242 </span> <a href='eval.mu.html#L48'>evaluate-sub</a> <a href='../../306files.subx.html#L12'>open</a>, curr, out, <span class="Constant">0</span>/nested -<span id="L243" class="LineNr">243 </span> <span class="PreProc">loop</span> $evaluate-sub:<span class="PreProc">loop</span> -<span id="L244" class="LineNr">244 </span> <span class="Delimiter">}</span> -<span id="L245" class="LineNr">245 </span> <span class="muComment">## TEMPORARY HACKS; we're trying to avoid turning this into Forth</span> -<span id="L246" class="LineNr">246 </span> <span class="Delimiter">{</span> -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> is-dup?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"dup"</span> -<span id="L248" class="LineNr">248 </span> compare is-dup?, <span class="Constant">0</span>/false -<span id="L249" class="LineNr">249 </span> <span class="PreProc">break-if-=</span> -<span id="L250" class="LineNr">250 </span> <span class="muComment"># read src-val from out</span> -<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L253" class="LineNr">253 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">break-if-<=</span> -<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L258" class="LineNr">258 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> src-val/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L261" class="LineNr">261 </span> <span class="muComment"># push a copy of it</span> -<span id="L262" class="LineNr">262 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> increment -<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L265" class="LineNr">265 </span> copy-object src-val, target-val -<span id="L266" class="LineNr">266 </span> <span class="muComment"># commit</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L268" class="LineNr">268 </span> increment *top-addr -<span id="L269" class="LineNr">269 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L270" class="LineNr">270 </span> <span class="Delimiter">}</span> -<span id="L271" class="LineNr">271 </span> <span class="Delimiter">{</span> -<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> is-swap?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"swap"</span> -<span id="L273" class="LineNr">273 </span> compare is-swap?, <span class="Constant">0</span>/false -<span id="L274" class="LineNr">274 </span> <span class="PreProc">break-if-=</span> -<span id="L275" class="LineNr">275 </span> <span class="muComment"># read top-val from out</span> -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L278" class="LineNr">278 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L279" class="LineNr">279 </span> <span class="PreProc">break-if-<=</span> -<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L283" class="LineNr">283 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> top-val/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L286" class="LineNr">286 </span> <span class="muComment"># read next val from out</span> -<span id="L287" class="LineNr">287 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> pen-top-val/<span class="Constant">ebx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L290" class="LineNr">290 </span> <span class="muComment"># swap</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> tmp: <a href='value.mu.html#L2'>value</a> -<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> tmp-a/<span class="Constant">eax</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> address tmp -<span id="L293" class="LineNr">293 </span> copy-object top-val, tmp-a -<span id="L294" class="LineNr">294 </span> copy-object pen-top-val, top-val -<span id="L295" class="LineNr">295 </span> copy-object tmp-a, pen-top-val -<span id="L296" class="LineNr">296 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L297" class="LineNr">297 </span> <span class="Delimiter">}</span> -<span id="L298" class="LineNr">298 </span> <span class="muComment">### if the word starts with a quote and ends with a quote, turn it into a string</span> -<span id="L299" class="LineNr">299 </span> <span class="Delimiter">{</span> -<span id="L300" class="LineNr">300 </span> <a href='../../106stream.subx.html#L56'>rewind-stream</a> curr-stream -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> start/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L160'>stream-first</a> curr-stream -<span id="L302" class="LineNr">302 </span> compare start, <span class="Constant">0x22</span>/double-quote -<span id="L303" class="LineNr">303 </span> <span class="PreProc">break-if-!=</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L187'>stream-final</a> curr-stream -<span id="L305" class="LineNr">305 </span> compare end, <span class="Constant">0x22</span>/double-quote -<span id="L306" class="LineNr">306 </span> <span class="PreProc">break-if-!=</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> h: (handle array byte) -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address h -<span id="L309" class="LineNr">309 </span> <a href='../../310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> curr-stream, s <span class="muComment"># leak</span> -<span id="L310" class="LineNr">310 </span> <a href='value-stack.mu.html#L55'>push-string-to-value-stack</a> out, *s -<span id="L311" class="LineNr">311 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L312" class="LineNr">312 </span> <span class="Delimiter">}</span> -<span id="L313" class="LineNr">313 </span> <span class="muComment">### if the word starts with a '[' and ends with a ']', turn it into an array</span> -<span id="L314" class="LineNr">314 </span> <span class="Delimiter">{</span> -<span id="L315" class="LineNr">315 </span> <a href='../../106stream.subx.html#L56'>rewind-stream</a> curr-stream -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> start/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L160'>stream-first</a> curr-stream -<span id="L317" class="LineNr">317 </span> compare start, <span class="Constant">0x5b</span>/open-bracket -<span id="L318" class="LineNr">318 </span> <span class="PreProc">break-if-!=</span> -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L187'>stream-final</a> curr-stream -<span id="L320" class="LineNr">320 </span> compare end, <span class="Constant">0x5d</span>/close-bracket -<span id="L321" class="LineNr">321 </span> <span class="PreProc">break-if-!=</span> -<span id="L322" class="LineNr">322 </span> <span class="muComment"># wastefully create a new input string to strip quotes</span> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> h: (handle array <a href='value.mu.html#L2'>value</a>) -<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address h -<span id="L325" class="LineNr">325 </span> <a href='../../310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> curr-stream, input-ah <span class="muComment"># leak</span> -<span id="L326" class="LineNr">326 </span> <span class="muComment"># wastefully parse input into int-array</span> -<span id="L327" class="LineNr">327 </span> <span class="muComment"># TODO: support parsing arrays of other types</span> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> input/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *input-ah -<span id="L329" class="LineNr">329 </span> <span class="PreProc">var</span> h2: (handle array int) -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> int-array-ah/<span class="Constant">esi</span>: (addr handle array int) <span class="SpecialChar"><-</span> address h2 -<span id="L331" class="LineNr">331 </span> <a href='../../311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> input, int-array-ah <span class="muComment"># leak</span> -<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> _int-array/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *int-array-ah -<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> int-array/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _int-array -<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> len/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> length int-array -<span id="L335" class="LineNr">335 </span> <span class="muComment"># push value-array of same size as int-array</span> -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> h3: (handle array <a href='value.mu.html#L2'>value</a>) -<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> value-array-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> address h3 -<span id="L338" class="LineNr">338 </span> populate value-array-ah, len -<span id="L339" class="LineNr">339 </span> <a href='value-stack.mu.html#L70'>push-array-to-value-stack</a> out, *value-array-ah -<span id="L340" class="LineNr">340 </span> <span class="muComment"># copy int-array into value-array</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> _value-array/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *value-array-ah -<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> value-array/<span class="Constant">edi</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _value-array -<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L344" class="LineNr">344 </span> <span class="Delimiter">{</span> -<span id="L345" class="LineNr">345 </span> compare i, len -<span id="L346" class="LineNr">346 </span> <span class="PreProc">break-if->=</span> -<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> index int-array, i -<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *src-addr -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> src-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert src -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset value-array, i -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index value-array, dest-offset -<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-val, number-data -<span id="L353" class="LineNr">353 </span> copy-to *dest, src-f -<span id="L354" class="LineNr">354 </span> i <span class="SpecialChar"><-</span> increment -<span id="L355" class="LineNr">355 </span> <span class="PreProc">loop</span> -<span id="L356" class="LineNr">356 </span> <span class="Delimiter">}</span> -<span id="L357" class="LineNr">357 </span> <span class="PreProc">break</span> $evaluate-sub:process-word -<span id="L358" class="LineNr">358 </span> <span class="Delimiter">}</span> -<span id="L359" class="LineNr">359 </span> <span class="muComment">### otherwise assume it's a literal number and push it (can't parse floats yet)</span> -<span id="L360" class="LineNr">360 </span> <span class="Delimiter">{</span> -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> curr-stream -<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> n-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert n -<span id="L363" class="LineNr">363 </span> <a href='value-stack.mu.html#L23'>push-number-to-value-stack</a> out, n-f -<span id="L364" class="LineNr">364 </span> <span class="Delimiter">}</span> -<span id="L365" class="LineNr">365 </span> <span class="Delimiter">}</span> -<span id="L366" class="LineNr">366 </span> <span class="muComment"># termination check</span> -<span id="L367" class="LineNr">367 </span> compare curr, end -<span id="L368" class="LineNr">368 </span> <span class="PreProc">break-if-=</span> -<span id="L369" class="LineNr">369 </span> <span class="muComment"># update</span> -<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-word-ah -<span id="L372" class="LineNr">372 </span> curr <span class="SpecialChar"><-</span> copy _curr -<span id="L373" class="LineNr">373 </span> <span class="muComment">#</span> -<span id="L374" class="LineNr">374 </span> <span class="PreProc">loop</span> -<span id="L375" class="LineNr">375 </span> <span class="Delimiter">}</span> -<span id="L376" class="LineNr">376 </span><span class="Delimiter">}</span> -<span id="L377" class="LineNr">377 </span> -<span id="L378" class="LineNr">378 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L378'>skip-word</a></span> _curr: (addr <a href='word.mu.html#L1'>word</a>), end: (addr <a href='word.mu.html#L1'>word</a>), out: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _curr -<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> bracket-count/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L382" class="LineNr">382 </span> <span class="Delimiter">{</span> -<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> result-val/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *result-ah -<span id="L384" class="LineNr">384 </span> compare result-val, end -<span id="L385" class="LineNr">385 </span> <span class="PreProc">break-if-=</span> -<span id="L386" class="LineNr">386 </span> <span class="Delimiter">{</span> -<span id="L387" class="LineNr">387 </span> <span class="PreProc">var</span> open?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L102'>word-equal?</a> result-val, <span class="Constant">"{"</span> -<span id="L388" class="LineNr">388 </span> compare open?, <span class="Constant">0</span>/false -<span id="L389" class="LineNr">389 </span> <span class="PreProc">break-if-=</span> -<span id="L390" class="LineNr">390 </span> bracket-count <span class="SpecialChar"><-</span> increment -<span id="L391" class="LineNr">391 </span> <span class="Delimiter">}</span> -<span id="L392" class="LineNr">392 </span> <span class="Delimiter">{</span> -<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> close?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L102'>word-equal?</a> result-val, <span class="Constant">"}"</span> -<span id="L394" class="LineNr">394 </span> compare close?, <span class="Constant">0</span>/false -<span id="L395" class="LineNr">395 </span> <span class="PreProc">break-if-=</span> -<span id="L396" class="LineNr">396 </span> bracket-count <span class="SpecialChar"><-</span> decrement -<span id="L397" class="LineNr">397 </span> compare bracket-count, <span class="Constant">0</span> -<span id="L398" class="LineNr">398 </span> <span class="Delimiter">{</span> -<span id="L399" class="LineNr">399 </span> <span class="PreProc">break-if->=</span> -<span id="L400" class="LineNr">400 </span> abort <span class="Constant">"'->' cannot be final <a href='word.mu.html#L1'>word</a> in a {} group"</span> <span class="muComment"># TODO: error-handling</span> -<span id="L401" class="LineNr">401 </span> <span class="Delimiter">}</span> -<span id="L402" class="LineNr">402 </span> <span class="Delimiter">}</span> -<span id="L403" class="LineNr">403 </span> compare bracket-count, <span class="Constant">0</span> -<span id="L404" class="LineNr">404 </span> <span class="PreProc">break-if-=</span> -<span id="L405" class="LineNr">405 </span> result-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> result-val, next -<span id="L406" class="LineNr">406 </span> <span class="PreProc">loop</span> -<span id="L407" class="LineNr">407 </span> <span class="Delimiter">}</span> -<span id="L408" class="LineNr">408 </span> copy-object result-ah, out -<span id="L409" class="LineNr">409 </span><span class="Delimiter">}</span> -<span id="L410" class="LineNr">410 </span> -<span id="L411" class="LineNr">411 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L411'>skip-rest-of-group</a></span> _curr: (addr <a href='word.mu.html#L1'>word</a>), end: (addr <a href='word.mu.html#L1'>word</a>), out: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _curr -<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> bracket-count/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L415" class="LineNr">415 </span> $skip-rest-of-group:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> result-val/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *result-ah -<span id="L417" class="LineNr">417 </span> compare result-val, end -<span id="L418" class="LineNr">418 </span> <span class="PreProc">break-if-=</span> -<span id="L419" class="LineNr">419 </span> <span class="Delimiter">{</span> -<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> open?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L102'>word-equal?</a> result-val, <span class="Constant">"{"</span> -<span id="L421" class="LineNr">421 </span> compare open?, <span class="Constant">0</span>/false -<span id="L422" class="LineNr">422 </span> <span class="PreProc">break-if-=</span> -<span id="L423" class="LineNr">423 </span> bracket-count <span class="SpecialChar"><-</span> increment -<span id="L424" class="LineNr">424 </span> <span class="Delimiter">}</span> -<span id="L425" class="LineNr">425 </span> <span class="Delimiter">{</span> -<span id="L426" class="LineNr">426 </span> <span class="PreProc">var</span> close?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L102'>word-equal?</a> result-val, <span class="Constant">"}"</span> -<span id="L427" class="LineNr">427 </span> compare close?, <span class="Constant">0</span>/false -<span id="L428" class="LineNr">428 </span> <span class="PreProc">break-if-=</span> -<span id="L429" class="LineNr">429 </span> compare bracket-count, <span class="Constant">0</span> -<span id="L430" class="LineNr">430 </span> <span class="PreProc">break-if-=</span> $skip-rest-of-group:<span class="PreProc">loop</span> -<span id="L431" class="LineNr">431 </span> bracket-count <span class="SpecialChar"><-</span> decrement -<span id="L432" class="LineNr">432 </span> <span class="Delimiter">}</span> -<span id="L433" class="LineNr">433 </span> result-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> result-val, next -<span id="L434" class="LineNr">434 </span> <span class="PreProc">loop</span> -<span id="L435" class="LineNr">435 </span> <span class="Delimiter">}</span> -<span id="L436" class="LineNr">436 </span> copy-object result-ah, out -<span id="L437" class="LineNr">437 </span><span class="Delimiter">}</span> -<span id="L438" class="LineNr">438 </span> -<span id="L439" class="LineNr">439 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L439'>scan-to-start-of-group</a></span> _curr: (addr <a href='word.mu.html#L1'>word</a>), end: (addr <a href='word.mu.html#L1'>word</a>), out: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L440" class="LineNr">440 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _curr -<span id="L441" class="LineNr">441 </span> <span class="PreProc">var</span> bracket-count/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, prev -<span id="L443" class="LineNr">443 </span> $scan-to-start-of-group:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> result-val/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *result-ah -<span id="L445" class="LineNr">445 </span> compare result-val, end -<span id="L446" class="LineNr">446 </span> <span class="PreProc">break-if-=</span> -<span id="L447" class="LineNr">447 </span> <span class="Delimiter">{</span> -<span id="L448" class="LineNr">448 </span> <span class="PreProc">var</span> open?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L102'>word-equal?</a> result-val, <span class="Constant">"{"</span> -<span id="L449" class="LineNr">449 </span> compare open?, <span class="Constant">0</span>/false -<span id="L450" class="LineNr">450 </span> <span class="PreProc">break-if-=</span> -<span id="L451" class="LineNr">451 </span> compare bracket-count, <span class="Constant">0</span> -<span id="L452" class="LineNr">452 </span> <span class="PreProc">break-if-=</span> $scan-to-start-of-group:<span class="PreProc">loop</span> -<span id="L453" class="LineNr">453 </span> bracket-count <span class="SpecialChar"><-</span> increment -<span id="L454" class="LineNr">454 </span> <span class="Delimiter">}</span> -<span id="L455" class="LineNr">455 </span> <span class="Delimiter">{</span> -<span id="L456" class="LineNr">456 </span> <span class="PreProc">var</span> close?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L102'>word-equal?</a> result-val, <span class="Constant">"}"</span> -<span id="L457" class="LineNr">457 </span> compare close?, <span class="Constant">0</span>/false -<span id="L458" class="LineNr">458 </span> <span class="PreProc">break-if-=</span> -<span id="L459" class="LineNr">459 </span> bracket-count <span class="SpecialChar"><-</span> decrement -<span id="L460" class="LineNr">460 </span> <span class="Delimiter">}</span> -<span id="L461" class="LineNr">461 </span> result-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> result-val, prev -<span id="L462" class="LineNr">462 </span> <span class="PreProc">loop</span> -<span id="L463" class="LineNr">463 </span> <span class="Delimiter">}</span> -<span id="L464" class="LineNr">464 </span> copy-object result-ah, out -<span id="L465" class="LineNr">465 </span><span class="Delimiter">}</span> -<span id="L466" class="LineNr">466 </span> -<span id="L467" class="LineNr">467 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L467'>test-eval-arithmetic</a></span> <span class="Delimiter">{</span> -<span id="L468" class="LineNr">468 </span> <span class="muComment"># in</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L471" class="LineNr">471 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 1 +"</span>, in -<span id="L472" class="LineNr">472 </span> <span class="muComment"># end</span> -<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L474" class="LineNr">474 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L475" class="LineNr">475 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L476" class="LineNr">476 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L478" class="LineNr">478 </span> <span class="muComment"># out</span> -<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L481" class="LineNr">481 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L482" class="LineNr">482 </span> <span class="muComment">#</span> -<span id="L483" class="LineNr">483 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L484" class="LineNr">484 </span> <span class="muComment">#</span> -<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L486" class="LineNr">486 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L467'>test-eval-arithmetic</a> stack size"</span> -<span id="L487" class="LineNr">487 </span> <span class="PreProc">var</span> n/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> n2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert n -<span id="L489" class="LineNr">489 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> n2, <span class="Constant">2</span>, <span class="Constant">"F - <a href='eval.mu.html#L467'>test-eval-arithmetic</a> result"</span> -<span id="L490" class="LineNr">490 </span><span class="Delimiter">}</span> -<span id="L491" class="LineNr">491 </span> -<span id="L492" class="LineNr">492 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L492'>test-eval-string</a></span> <span class="Delimiter">{</span> -<span id="L493" class="LineNr">493 </span> <span class="muComment"># in</span> -<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L496" class="LineNr">496 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"\"</span>abc\<span class="Constant">""</span>, in <span class="muComment"># TODO support spaces within strings</span> -<span id="L497" class="LineNr">497 </span> <span class="muComment"># end</span> -<span id="L498" class="LineNr">498 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L499" class="LineNr">499 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L501" class="LineNr">501 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L502" class="LineNr">502 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L503" class="LineNr">503 </span> <span class="muComment"># out</span> -<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L505" class="LineNr">505 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L506" class="LineNr">506 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L507" class="LineNr">507 </span> <span class="muComment">#</span> -<span id="L508" class="LineNr">508 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L509" class="LineNr">509 </span> <span class="muComment">#</span> -<span id="L510" class="LineNr">510 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L511" class="LineNr">511 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L492'>test-eval-string</a> stack size"</span> -<span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> out-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, data -<span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> out-data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *out-data-ah -<span id="L514" class="LineNr">514 </span> <span class="PreProc">var</span> v/<span class="Constant">eax</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index out-data, <span class="Constant">0</span> -<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, <span class="PreProc">type</span> -<span id="L516" class="LineNr">516 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> *<span class="PreProc">type</span>, <span class="Constant">1</span>/text, <span class="Constant">"F - <a href='eval.mu.html#L492'>test-eval-string</a> type"</span> -<span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> text-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, text-data -<span id="L518" class="LineNr">518 </span> <span class="PreProc">var</span> text/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *text-ah -<span id="L519" class="LineNr">519 </span> <a href='../../105string-equal.subx.html#L220'>check-strings-equal</a> text, <span class="Constant">"abc"</span>, <span class="Constant">"F - <a href='eval.mu.html#L492'>test-eval-string</a> result"</span> -<span id="L520" class="LineNr">520 </span><span class="Delimiter">}</span> -<span id="L521" class="LineNr">521 </span> -<span id="L522" class="LineNr">522 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L522'>test-eval-compare-lesser</a></span> <span class="Delimiter">{</span> -<span id="L523" class="LineNr">523 </span> <span class="muComment"># in</span> -<span id="L524" class="LineNr">524 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L525" class="LineNr">525 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L526" class="LineNr">526 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 <"</span>, in -<span id="L527" class="LineNr">527 </span> <span class="muComment"># end</span> -<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L530" class="LineNr">530 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L531" class="LineNr">531 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L533" class="LineNr">533 </span> <span class="muComment"># out</span> -<span id="L534" class="LineNr">534 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L535" class="LineNr">535 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L536" class="LineNr">536 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L537" class="LineNr">537 </span> <span class="muComment">#</span> -<span id="L538" class="LineNr">538 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L539" class="LineNr">539 </span> <span class="muComment">#</span> -<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L541" class="LineNr">541 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L522'>test-eval-compare-lesser</a> stack size"</span> -<span id="L542" class="LineNr">542 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a> out -<span id="L543" class="LineNr">543 </span> check result, <span class="Constant">"F - <a href='eval.mu.html#L522'>test-eval-compare-lesser</a> result"</span> -<span id="L544" class="LineNr">544 </span><span class="Delimiter">}</span> -<span id="L545" class="LineNr">545 </span> -<span id="L546" class="LineNr">546 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L546'>test-eval-compare-greater</a></span> <span class="Delimiter">{</span> -<span id="L547" class="LineNr">547 </span> <span class="muComment"># in</span> -<span id="L548" class="LineNr">548 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L549" class="LineNr">549 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L550" class="LineNr">550 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"2 1 >"</span>, in -<span id="L551" class="LineNr">551 </span> <span class="muComment"># end</span> -<span id="L552" class="LineNr">552 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L554" class="LineNr">554 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L555" class="LineNr">555 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L557" class="LineNr">557 </span> <span class="muComment"># out</span> -<span id="L558" class="LineNr">558 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L560" class="LineNr">560 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L561" class="LineNr">561 </span> <span class="muComment">#</span> -<span id="L562" class="LineNr">562 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L563" class="LineNr">563 </span> <span class="muComment">#</span> -<span id="L564" class="LineNr">564 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L565" class="LineNr">565 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L546'>test-eval-compare-greater</a> stack size"</span> -<span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a> out -<span id="L567" class="LineNr">567 </span> check result, <span class="Constant">"F - <a href='eval.mu.html#L546'>test-eval-compare-greater</a> result"</span> -<span id="L568" class="LineNr">568 </span><span class="Delimiter">}</span> -<span id="L569" class="LineNr">569 </span> -<span id="L570" class="LineNr">570 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L570'>test-eval-compare-equal-fails</a></span> <span class="Delimiter">{</span> -<span id="L571" class="LineNr">571 </span> <span class="muComment"># in</span> -<span id="L572" class="LineNr">572 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L573" class="LineNr">573 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L574" class="LineNr">574 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 =="</span>, in -<span id="L575" class="LineNr">575 </span> <span class="muComment"># end</span> -<span id="L576" class="LineNr">576 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L577" class="LineNr">577 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L578" class="LineNr">578 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L579" class="LineNr">579 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L580" class="LineNr">580 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L581" class="LineNr">581 </span> <span class="muComment"># out</span> -<span id="L582" class="LineNr">582 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L583" class="LineNr">583 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L584" class="LineNr">584 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L585" class="LineNr">585 </span> <span class="muComment">#</span> -<span id="L586" class="LineNr">586 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L587" class="LineNr">587 </span> <span class="muComment">#</span> -<span id="L588" class="LineNr">588 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L589" class="LineNr">589 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L570'>test-eval-compare-equal-fails</a> stack size"</span> -<span id="L590" class="LineNr">590 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a> out -<span id="L591" class="LineNr">591 </span> check-not result, <span class="Constant">"F - <a href='eval.mu.html#L570'>test-eval-compare-equal-fails</a> result"</span> -<span id="L592" class="LineNr">592 </span><span class="Delimiter">}</span> -<span id="L593" class="LineNr">593 </span> -<span id="L594" class="LineNr">594 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L594'>test-eval-compare-equal</a></span> <span class="Delimiter">{</span> -<span id="L595" class="LineNr">595 </span> <span class="muComment"># in</span> -<span id="L596" class="LineNr">596 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L597" class="LineNr">597 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L598" class="LineNr">598 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"2 2 =="</span>, in -<span id="L599" class="LineNr">599 </span> <span class="muComment"># end</span> -<span id="L600" class="LineNr">600 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L601" class="LineNr">601 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L602" class="LineNr">602 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L603" class="LineNr">603 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L604" class="LineNr">604 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L605" class="LineNr">605 </span> <span class="muComment"># out</span> -<span id="L606" class="LineNr">606 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L607" class="LineNr">607 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L608" class="LineNr">608 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L609" class="LineNr">609 </span> <span class="muComment">#</span> -<span id="L610" class="LineNr">610 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L611" class="LineNr">611 </span> <span class="muComment">#</span> -<span id="L612" class="LineNr">612 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L613" class="LineNr">613 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L594'>test-eval-compare-equal</a> stack size"</span> -<span id="L614" class="LineNr">614 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a> out -<span id="L615" class="LineNr">615 </span> check result, <span class="Constant">"F - <a href='eval.mu.html#L594'>test-eval-compare-equal</a> result"</span> -<span id="L616" class="LineNr">616 </span><span class="Delimiter">}</span> -<span id="L617" class="LineNr">617 </span> -<span id="L618" class="LineNr">618 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L618'>test-eval-conditional</a></span> <span class="Delimiter">{</span> -<span id="L619" class="LineNr">619 </span> <span class="muComment"># in</span> -<span id="L620" class="LineNr">620 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L621" class="LineNr">621 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L622" class="LineNr">622 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 < -> 3"</span>, in -<span id="L623" class="LineNr">623 </span> <span class="muComment"># end</span> -<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L625" class="LineNr">625 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L626" class="LineNr">626 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L627" class="LineNr">627 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L628" class="LineNr">628 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L629" class="LineNr">629 </span> <span class="muComment"># out</span> -<span id="L630" class="LineNr">630 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L631" class="LineNr">631 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L632" class="LineNr">632 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L633" class="LineNr">633 </span> <span class="muComment">#</span> -<span id="L634" class="LineNr">634 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L635" class="LineNr">635 </span> <span class="muComment">#</span> -<span id="L636" class="LineNr">636 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L637" class="LineNr">637 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L618'>test-eval-conditional</a> stack size"</span> -<span id="L638" class="LineNr">638 </span> <span class="PreProc">var</span> n/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L639" class="LineNr">639 </span> <span class="PreProc">var</span> n2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert n -<span id="L640" class="LineNr">640 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> n2, <span class="Constant">3</span>, <span class="Constant">"F - <a href='eval.mu.html#L618'>test-eval-conditional</a> result"</span> -<span id="L641" class="LineNr">641 </span><span class="Delimiter">}</span> -<span id="L642" class="LineNr">642 </span> -<span id="L643" class="LineNr">643 </span><span class="muComment"># if top of stack is false, `->` skips one word</span> -<span id="L644" class="LineNr">644 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L644'>test-eval-conditional-skipped</a></span> <span class="Delimiter">{</span> -<span id="L645" class="LineNr">645 </span> <span class="muComment"># in</span> -<span id="L646" class="LineNr">646 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L647" class="LineNr">647 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L648" class="LineNr">648 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 > -> 3"</span>, in -<span id="L649" class="LineNr">649 </span> <span class="muComment"># end</span> -<span id="L650" class="LineNr">650 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L651" class="LineNr">651 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L652" class="LineNr">652 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L653" class="LineNr">653 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L654" class="LineNr">654 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L655" class="LineNr">655 </span> <span class="muComment"># out</span> -<span id="L656" class="LineNr">656 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L657" class="LineNr">657 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L658" class="LineNr">658 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L659" class="LineNr">659 </span> <span class="muComment">#</span> -<span id="L660" class="LineNr">660 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L661" class="LineNr">661 </span> <span class="muComment">#</span> -<span id="L662" class="LineNr">662 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L663" class="LineNr">663 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">0</span>, <span class="Constant">"F - <a href='eval.mu.html#L644'>test-eval-conditional-skipped</a> stack size"</span> -<span id="L664" class="LineNr">664 </span><span class="Delimiter">}</span> -<span id="L665" class="LineNr">665 </span> -<span id="L666" class="LineNr">666 </span><span class="muComment"># curlies have no effect in isolation</span> -<span id="L667" class="LineNr">667 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L667'>test-eval-group</a></span> <span class="Delimiter">{</span> -<span id="L668" class="LineNr">668 </span> <span class="muComment"># in</span> -<span id="L669" class="LineNr">669 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L670" class="LineNr">670 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L671" class="LineNr">671 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"{ 1 } 1 +"</span>, in -<span id="L672" class="LineNr">672 </span> <span class="muComment"># end</span> -<span id="L673" class="LineNr">673 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L674" class="LineNr">674 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L675" class="LineNr">675 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L676" class="LineNr">676 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L677" class="LineNr">677 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L678" class="LineNr">678 </span> <span class="muComment"># out</span> -<span id="L679" class="LineNr">679 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L680" class="LineNr">680 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L681" class="LineNr">681 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L682" class="LineNr">682 </span> <span class="muComment">#</span> -<span id="L683" class="LineNr">683 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L684" class="LineNr">684 </span> <span class="muComment">#</span> -<span id="L685" class="LineNr">685 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L686" class="LineNr">686 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L667'>test-eval-group</a> stack size"</span> -<span id="L687" class="LineNr">687 </span> <span class="PreProc">var</span> n/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L688" class="LineNr">688 </span> <span class="PreProc">var</span> n2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert n -<span id="L689" class="LineNr">689 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> n2, <span class="Constant">2</span>, <span class="Constant">"F - <a href='eval.mu.html#L667'>test-eval-group</a> result"</span> -<span id="L690" class="LineNr">690 </span><span class="Delimiter">}</span> -<span id="L691" class="LineNr">691 </span> -<span id="L692" class="LineNr">692 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L692'>test-eval-group-open-at-end</a></span> <span class="Delimiter">{</span> -<span id="L693" class="LineNr">693 </span> <span class="muComment"># in</span> -<span id="L694" class="LineNr">694 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L695" class="LineNr">695 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L696" class="LineNr">696 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 1 + {"</span>, in -<span id="L697" class="LineNr">697 </span> <span class="muComment"># end</span> -<span id="L698" class="LineNr">698 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L699" class="LineNr">699 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L700" class="LineNr">700 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L701" class="LineNr">701 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L702" class="LineNr">702 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L703" class="LineNr">703 </span> <span class="muComment"># out</span> -<span id="L704" class="LineNr">704 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L705" class="LineNr">705 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L706" class="LineNr">706 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L707" class="LineNr">707 </span> <span class="muComment">#</span> -<span id="L708" class="LineNr">708 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L709" class="LineNr">709 </span> <span class="muComment">#</span> -<span id="L710" class="LineNr">710 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L711" class="LineNr">711 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">0</span>, <span class="Constant">"F - <a href='eval.mu.html#L692'>test-eval-group-open-at-end</a> stack size"</span> -<span id="L712" class="LineNr">712 </span><span class="Delimiter">}</span> -<span id="L713" class="LineNr">713 </span> -<span id="L714" class="LineNr">714 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L714'>test-eval-group-close-at-end</a></span> <span class="Delimiter">{</span> -<span id="L715" class="LineNr">715 </span> <span class="muComment"># in</span> -<span id="L716" class="LineNr">716 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L717" class="LineNr">717 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L718" class="LineNr">718 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"{ 1 1 + }"</span>, in -<span id="L719" class="LineNr">719 </span> <span class="muComment"># end</span> -<span id="L720" class="LineNr">720 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L721" class="LineNr">721 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L722" class="LineNr">722 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L723" class="LineNr">723 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L724" class="LineNr">724 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L725" class="LineNr">725 </span> <span class="muComment"># out</span> -<span id="L726" class="LineNr">726 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L727" class="LineNr">727 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L728" class="LineNr">728 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L729" class="LineNr">729 </span> <span class="muComment">#</span> -<span id="L730" class="LineNr">730 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L731" class="LineNr">731 </span> <span class="muComment">#</span> -<span id="L732" class="LineNr">732 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L733" class="LineNr">733 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">0</span>, <span class="Constant">"F - <a href='eval.mu.html#L714'>test-eval-group-close-at-end</a> stack size"</span> -<span id="L734" class="LineNr">734 </span><span class="Delimiter">}</span> -<span id="L735" class="LineNr">735 </span> -<span id="L736" class="LineNr">736 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L736'>test-eval-conditional-skips-group</a></span> <span class="Delimiter">{</span> -<span id="L737" class="LineNr">737 </span> <span class="muComment"># in</span> -<span id="L738" class="LineNr">738 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L739" class="LineNr">739 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L740" class="LineNr">740 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 > -> { 3 } 9"</span>, in -<span id="L741" class="LineNr">741 </span> <span class="muComment"># end</span> -<span id="L742" class="LineNr">742 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L743" class="LineNr">743 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L744" class="LineNr">744 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L745" class="LineNr">745 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L746" class="LineNr">746 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L747" class="LineNr">747 </span> <span class="muComment"># out</span> -<span id="L748" class="LineNr">748 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L749" class="LineNr">749 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L750" class="LineNr">750 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L751" class="LineNr">751 </span> <span class="muComment">#</span> -<span id="L752" class="LineNr">752 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L753" class="LineNr">753 </span> <span class="muComment"># out contains just the final sentinel '9'</span> -<span id="L754" class="LineNr">754 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L755" class="LineNr">755 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L736'>test-eval-conditional-skips-group</a> stack size"</span> -<span id="L756" class="LineNr">756 </span><span class="Delimiter">}</span> -<span id="L757" class="LineNr">757 </span> -<span id="L758" class="LineNr">758 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L758'>test-eval-conditional-skips-nested-group</a></span> <span class="Delimiter">{</span> -<span id="L759" class="LineNr">759 </span> <span class="muComment"># in</span> -<span id="L760" class="LineNr">760 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L761" class="LineNr">761 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L762" class="LineNr">762 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 > -> { { 3 } 4 } 9"</span>, in -<span id="L763" class="LineNr">763 </span> <span class="muComment"># end</span> -<span id="L764" class="LineNr">764 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L765" class="LineNr">765 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L766" class="LineNr">766 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L767" class="LineNr">767 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L768" class="LineNr">768 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L769" class="LineNr">769 </span> <span class="muComment"># out</span> -<span id="L770" class="LineNr">770 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L771" class="LineNr">771 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L772" class="LineNr">772 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L773" class="LineNr">773 </span> <span class="muComment">#</span> -<span id="L774" class="LineNr">774 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L775" class="LineNr">775 </span> <span class="muComment"># out contains just the final sentinel '9'</span> -<span id="L776" class="LineNr">776 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L777" class="LineNr">777 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L758'>test-eval-conditional-skips-nested-group</a> stack size"</span> -<span id="L778" class="LineNr">778 </span><span class="Delimiter">}</span> -<span id="L779" class="LineNr">779 </span> -<span id="L780" class="LineNr">780 </span><span class="muComment"># TODO: test error-handling on:</span> -<span id="L781" class="LineNr">781 </span><span class="muComment"># 1 2 > -> }</span> -<span id="L782" class="LineNr">782 </span> -<span id="L783" class="LineNr">783 </span><span class="muComment"># break skips to next containing `}`</span> -<span id="L784" class="LineNr">784 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L784'>test-eval-break</a></span> <span class="Delimiter">{</span> -<span id="L785" class="LineNr">785 </span> <span class="muComment"># in</span> -<span id="L786" class="LineNr">786 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L787" class="LineNr">787 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L788" class="LineNr">788 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"3 { 4 break 5 } +"</span>, in -<span id="L789" class="LineNr">789 </span> <span class="muComment"># end</span> -<span id="L790" class="LineNr">790 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L791" class="LineNr">791 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L792" class="LineNr">792 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L793" class="LineNr">793 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L794" class="LineNr">794 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L795" class="LineNr">795 </span> <span class="muComment"># out</span> -<span id="L796" class="LineNr">796 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L797" class="LineNr">797 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L798" class="LineNr">798 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L799" class="LineNr">799 </span> <span class="muComment">#</span> -<span id="L800" class="LineNr">800 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L801" class="LineNr">801 </span> <span class="muComment"># result is 3+4, not 4+5</span> -<span id="L802" class="LineNr">802 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L803" class="LineNr">803 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L784'>test-eval-break</a> stack size"</span> -<span id="L804" class="LineNr">804 </span> <span class="PreProc">var</span> n/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L805" class="LineNr">805 </span> <span class="PreProc">var</span> n2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert n -<span id="L806" class="LineNr">806 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> n2, <span class="Constant">7</span>, <span class="Constant">"F - <a href='eval.mu.html#L784'>test-eval-break</a> result"</span> -<span id="L807" class="LineNr">807 </span><span class="Delimiter">}</span> -<span id="L808" class="LineNr">808 </span> -<span id="L809" class="LineNr">809 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L809'>test-eval-break-nested</a></span> <span class="Delimiter">{</span> -<span id="L810" class="LineNr">810 </span> <span class="muComment"># in</span> -<span id="L811" class="LineNr">811 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L812" class="LineNr">812 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L813" class="LineNr">813 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"3 { 4 break { 5 } 6 } +"</span>, in -<span id="L814" class="LineNr">814 </span> <span class="muComment"># end</span> -<span id="L815" class="LineNr">815 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L816" class="LineNr">816 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L817" class="LineNr">817 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L818" class="LineNr">818 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L819" class="LineNr">819 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L820" class="LineNr">820 </span> <span class="muComment"># out</span> -<span id="L821" class="LineNr">821 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L822" class="LineNr">822 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L823" class="LineNr">823 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L824" class="LineNr">824 </span> <span class="muComment">#</span> -<span id="L825" class="LineNr">825 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L826" class="LineNr">826 </span> <span class="muComment"># result is 3+4, skipping remaining numbers</span> -<span id="L827" class="LineNr">827 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L828" class="LineNr">828 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L809'>test-eval-break-nested</a> stack size"</span> -<span id="L829" class="LineNr">829 </span> <span class="PreProc">var</span> n/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a> out -<span id="L830" class="LineNr">830 </span> <span class="PreProc">var</span> n2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert n -<span id="L831" class="LineNr">831 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> n2, <span class="Constant">7</span>, <span class="Constant">"F - <a href='eval.mu.html#L809'>test-eval-break-nested</a> result"</span> -<span id="L832" class="LineNr">832 </span><span class="Delimiter">}</span> -<span id="L833" class="LineNr">833 </span> -<span id="L834" class="LineNr">834 </span><span class="CommentedCode">#? 1 2 3 4 6 5 { < -> break loop }</span> -<span id="L835" class="LineNr">835 </span><span class="CommentedCode">#? 1 2 3 4 6 5 false 2</span> -<span id="L836" class="LineNr">836 </span><span class="CommentedCode">#? 1 2 3 4 6 4 1</span> -<span id="L837" class="LineNr">837 </span><span class="CommentedCode">#? 1 2 3 4 3</span> -<span id="L838" class="LineNr">838 </span><span class="CommentedCode">#? 1 2 3 2</span> -<span id="L839" class="LineNr">839 </span><span class="CommentedCode">#? 1 2 1</span> -<span id="L840" class="LineNr">840 </span><span class="CommentedCode">#? 1</span> -<span id="L841" class="LineNr">841 </span> -<span id="L842" class="LineNr">842 </span><span class="CommentedCode">#? 1 2 3 4 { 3 == -> return loop }</span> -<span id="L843" class="LineNr">843 </span><span class="CommentedCode">#? 1 2 3 4 3 false 2 => 3</span> -<span id="L844" class="LineNr">844 </span><span class="CommentedCode">#? 1 2 3 4 3 1</span> -<span id="L845" class="LineNr">845 </span><span class="CommentedCode">#? 1 2 3 2</span> -<span id="L846" class="LineNr">846 </span><span class="CommentedCode">#? 1 2 1</span> -<span id="L847" class="LineNr">847 </span><span class="CommentedCode">#? 1</span> -<span id="L848" class="LineNr">848 </span> -<span id="L849" class="LineNr">849 </span><span class="muComment"># loop skips to previous containing `{` and continues evaluating until control</span> -<span id="L850" class="LineNr">850 </span><span class="muComment"># leaves the group</span> -<span id="L851" class="LineNr">851 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L851'>test-eval-loop</a></span> <span class="Delimiter">{</span> -<span id="L852" class="LineNr">852 </span> <span class="muComment"># in</span> -<span id="L853" class="LineNr">853 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L854" class="LineNr">854 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L855" class="LineNr">855 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 4 3 { < -> break loop } 9"</span>, in -<span id="L856" class="LineNr">856 </span> <span class="muComment"># end</span> -<span id="L857" class="LineNr">857 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L858" class="LineNr">858 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L859" class="LineNr">859 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L860" class="LineNr">860 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L861" class="LineNr">861 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L862" class="LineNr">862 </span> <span class="muComment"># out</span> -<span id="L863" class="LineNr">863 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L864" class="LineNr">864 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L865" class="LineNr">865 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L866" class="LineNr">866 </span> <span class="muComment">#</span> -<span id="L867" class="LineNr">867 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L868" class="LineNr">868 </span> <span class="muComment"># evaluation order: 1 2 4 3 { < -> loop { < -> break 9</span> -<span id="L869" class="LineNr">869 </span> <span class="muComment"># stack contents: 9</span> -<span id="L870" class="LineNr">870 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L871" class="LineNr">871 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">1</span>, <span class="Constant">"F - <a href='eval.mu.html#L851'>test-eval-loop</a> stack size"</span> -<span id="L872" class="LineNr">872 </span><span class="Delimiter">}</span> -<span id="L873" class="LineNr">873 </span> -<span id="L874" class="LineNr">874 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L874'>test-eval-loop-2</a></span> <span class="Delimiter">{</span> -<span id="L875" class="LineNr">875 </span> <span class="muComment"># in</span> -<span id="L876" class="LineNr">876 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L877" class="LineNr">877 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L878" class="LineNr">878 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 4 3 { 4 == -> break loop } 9"</span>, in -<span id="L879" class="LineNr">879 </span> <span class="muComment"># end</span> -<span id="L880" class="LineNr">880 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L881" class="LineNr">881 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L882" class="LineNr">882 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L883" class="LineNr">883 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L884" class="LineNr">884 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L885" class="LineNr">885 </span> <span class="muComment"># out</span> -<span id="L886" class="LineNr">886 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L887" class="LineNr">887 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L888" class="LineNr">888 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L889" class="LineNr">889 </span> <span class="muComment">#</span> -<span id="L890" class="LineNr">890 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L891" class="LineNr">891 </span> <span class="muComment"># evaluation order: 1 2 4 3 { 4 == -> loop { 4 == -> break 9</span> -<span id="L892" class="LineNr">892 </span> <span class="muComment"># stack contents: 1 2 9</span> -<span id="L893" class="LineNr">893 </span><span class="CommentedCode">#? dump-stack out</span> -<span id="L894" class="LineNr">894 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L895" class="LineNr">895 </span><span class="CommentedCode">#? draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, len, 0xc/red, 0/black</span> -<span id="L896" class="LineNr">896 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">3</span>, <span class="Constant">"F - <a href='eval.mu.html#L874'>test-eval-loop-2</a> stack size"</span> -<span id="L897" class="LineNr">897 </span><span class="Delimiter">}</span> -<span id="L898" class="LineNr">898 </span> -<span id="L899" class="LineNr">899 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L899'>test-eval-loop-conditional</a></span> <span class="Delimiter">{</span> -<span id="L900" class="LineNr">900 </span> <span class="muComment"># in</span> -<span id="L901" class="LineNr">901 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L902" class="LineNr">902 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L903" class="LineNr">903 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 3 { 3 == -> loop } 9"</span>, in -<span id="L904" class="LineNr">904 </span> <span class="muComment"># end</span> -<span id="L905" class="LineNr">905 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L906" class="LineNr">906 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L907" class="LineNr">907 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L908" class="LineNr">908 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L909" class="LineNr">909 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L910" class="LineNr">910 </span> <span class="muComment"># out</span> -<span id="L911" class="LineNr">911 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L912" class="LineNr">912 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L913" class="LineNr">913 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L914" class="LineNr">914 </span> <span class="muComment">#</span> -<span id="L915" class="LineNr">915 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L916" class="LineNr">916 </span> <span class="muComment"># evaluation order: 1 2 3 { 3 == -> loop { 3 == -> 9</span> -<span id="L917" class="LineNr">917 </span> <span class="muComment"># stack contents: 1 9</span> -<span id="L918" class="LineNr">918 </span><span class="CommentedCode">#? dump-stack out</span> -<span id="L919" class="LineNr">919 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L920" class="LineNr">920 </span><span class="CommentedCode">#? draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, len, 0xc/red, 0/black</span> -<span id="L921" class="LineNr">921 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">2</span>, <span class="Constant">"F - test-eval-loop-2-conditional stack size"</span> -<span id="L922" class="LineNr">922 </span><span class="Delimiter">}</span> -<span id="L923" class="LineNr">923 </span> -<span id="L924" class="LineNr">924 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L924'>test-eval-loop-with-words-after-in-group</a></span> <span class="Delimiter">{</span> -<span id="L925" class="LineNr">925 </span> <span class="muComment"># in</span> -<span id="L926" class="LineNr">926 </span> <span class="PreProc">var</span> in-storage: <a href='line.mu.html#L1'>line</a> -<span id="L927" class="LineNr">927 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address in-storage -<span id="L928" class="LineNr">928 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2 3 { 3 == -> loop 37 } 9"</span>, in -<span id="L929" class="LineNr">929 </span> <span class="muComment"># end</span> -<span id="L930" class="LineNr">930 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L931" class="LineNr">931 </span> <span class="PreProc">var</span> end-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L932" class="LineNr">932 </span> <span class="PreProc">var</span> end-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address end-h -<span id="L933" class="LineNr">933 </span> <a href='word.mu.html#L145'>final-word</a> w-ah, end-ah -<span id="L934" class="LineNr">934 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *end-ah -<span id="L935" class="LineNr">935 </span> <span class="muComment"># out</span> -<span id="L936" class="LineNr">936 </span> <span class="PreProc">var</span> out-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L937" class="LineNr">937 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address out-storage -<span id="L938" class="LineNr">938 </span> <a href='value-stack.mu.html#L9'>initialize-value-stack</a> out, <span class="Constant">8</span> -<span id="L939" class="LineNr">939 </span> <span class="muComment">#</span> -<span id="L940" class="LineNr">940 </span> <a href='eval.mu.html#L40'>evaluate</a> in, end, out -<span id="L941" class="LineNr">941 </span> <span class="muComment"># evaluation order: 1 2 3 { 3 == -> loop { 3 == -> 37 } 9</span> -<span id="L942" class="LineNr">942 </span> <span class="muComment"># stack contents: 1 37 9</span> -<span id="L943" class="LineNr">943 </span><span class="CommentedCode">#? dump-stack out</span> -<span id="L944" class="LineNr">944 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L161'>value-stack-length</a> out -<span id="L945" class="LineNr">945 </span><span class="CommentedCode">#? draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, len, 0xc/red, 0/black</span> -<span id="L946" class="LineNr">946 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> len, <span class="Constant">3</span>, <span class="Constant">"F - <a href='eval.mu.html#L924'>test-eval-loop-with-words-after-in-group</a> stack size"</span> -<span id="L947" class="LineNr">947 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/shell/gap-buffer.mu.html b/html/baremetal/shell/gap-buffer.mu.html deleted file mode 100644 index 9a84a565..00000000 --- a/html/baremetal/shell/gap-buffer.mu.html +++ /dev/null @@ -1,591 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/shell/gap-buffer.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/shell/gap-buffer.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/gap-buffer.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># primitive for editing a single word</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># parameter: max-word-size = 16 graphemes</span> -<span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span><span class="PreProc">type</span> <a href='gap-buffer.mu.html#L4'>gap-buffer</a> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> left: <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a> -<span id="L6" class="LineNr"> 6 </span> right: <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a> -<span id="L7" class="LineNr"> 7 </span><span class="Delimiter">}</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L9'>initialize-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L12" class="LineNr"> 12 </span> <a href='grapheme-stack.mu.html#L9'>initialize-grapheme-stack</a> left, <span class="Constant">0x10</span>/max-word-size -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L14" class="LineNr"> 14 </span> <a href='grapheme-stack.mu.html#L9'>initialize-grapheme-stack</a> right, <span class="Constant">0x10</span>/max-word-size -<span id="L15" class="LineNr"> 15 </span><span class="Delimiter">}</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="muComment"># just for tests</span> -<span id="L18" class="LineNr"> 18 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a></span> self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L19" class="LineNr"> 19 </span> <a href='gap-buffer.mu.html#L9'>initialize-gap-buffer</a> self -<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/max-word-size) -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L22" class="LineNr"> 22 </span> <a href='../../108write.subx.html#L24'>write</a> stream, s -<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> stream -<span id="L25" class="LineNr"> 25 </span> compare done?, <span class="Constant">0</span>/false -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if-!=</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> stream -<span id="L28" class="LineNr"> 28 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> self, g -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">loop</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> -<span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> -<span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L33'>emit-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L35" class="LineNr"> 35 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> out -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L37" class="LineNr"> 37 </span> <a href='gap-buffer.mu.html#L43'>emit-stack-from-bottom</a> left, out -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L39" class="LineNr"> 39 </span> <a href='gap-buffer.mu.html#L61'>emit-stack-from-top</a> right, out -<span id="L40" class="LineNr"> 40 </span><span class="Delimiter">}</span> -<span id="L41" class="LineNr"> 41 </span> -<span id="L42" class="LineNr"> 42 </span><span class="muComment"># dump stack from bottom to top</span> -<span id="L43" class="LineNr"> 43 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L43'>emit-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> compare i, *top-addr -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">break-if->=</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L54" class="LineNr"> 54 </span> <a href='../../403unicode.mu.html#L379'>write-grapheme</a> out, *g -<span id="L55" class="LineNr"> 55 </span> i <span class="SpecialChar"><-</span> increment -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">loop</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> -<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> -<span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span><span class="muComment"># dump stack from top to bottom</span> -<span id="L61" class="LineNr"> 61 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L61'>emit-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L68" class="LineNr"> 68 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> -<span id="L70" class="LineNr"> 70 </span> compare i, <span class="Constant">0</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if-<</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L73" class="LineNr"> 73 </span> <a href='../../403unicode.mu.html#L379'>write-grapheme</a> out, *g -<span id="L74" class="LineNr"> 74 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">loop</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">}</span> -<span id="L77" class="LineNr"> 77 </span><span class="Delimiter">}</span> -<span id="L78" class="LineNr"> 78 </span> -<span id="L79" class="LineNr"> 79 </span><span class="muComment"># We implicitly render everything editable in a single color, and assume the</span> -<span id="L80" class="LineNr"> 80 </span><span class="muComment"># cursor is a single other color.</span> -<span id="L81" class="LineNr"> 81 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L81'>render-gap-buffer</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _gap: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _gap -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, left -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L81'>render-stack-from-bottom</a> <a href='../../405screen.mu.html#L9'>screen</a>, left, x, y -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, right -<span id="L86" class="LineNr"> 86 </span> x2 <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L102'>render-stack-from-top</a> <a href='../../405screen.mu.html#L9'>screen</a>, right, x2, y, render-cursor? -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> x3/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy x2 -<span id="L88" class="LineNr"> 88 </span> <span class="muComment"># decide whether we still need to print a cursor</span> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> bg/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L90" class="LineNr"> 90 </span> compare render-cursor?, <span class="Constant">0</span>/false -<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">break-if-=</span> -<span id="L93" class="LineNr"> 93 </span> <span class="muComment"># if the right side is empty, grapheme stack didn't print the cursor</span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L23'>grapheme-stack-empty?</a> right -<span id="L95" class="LineNr"> 95 </span> compare empty?, <span class="Constant">0</span>/false -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">break-if-=</span> -<span id="L97" class="LineNr"> 97 </span> bg <span class="SpecialChar"><-</span> copy <span class="Constant">7</span>/cursor -<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">}</span> -<span id="L99" class="LineNr"> 99 </span> <span class="muComment"># print a grapheme either way so that cursor position doesn't affect printed width</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> space/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> -<span id="L101" class="LineNr">101 </span> draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, space, x3, y, <span class="Constant">3</span>/fg=cyan, bg -<span id="L102" class="LineNr">102 </span> x3 <span class="SpecialChar"><-</span> increment -<span id="L103" class="LineNr">103 </span> <span class="PreProc">return</span> x3 -<span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> -<span id="L106" class="LineNr">106 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L106'>gap-buffer-length</a></span> _gap: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _gap -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, left -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> left-length/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> right/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, right -<span id="L112" class="LineNr">112 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *tmp -<span id="L114" class="LineNr">114 </span> result <span class="SpecialChar"><-</span> add left-length -<span id="L115" class="LineNr">115 </span> <span class="PreProc">return</span> result -<span id="L116" class="LineNr">116 </span><span class="Delimiter">}</span> -<span id="L117" class="LineNr">117 </span> -<span id="L118" class="LineNr">118 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), g: grapheme <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L121" class="LineNr">121 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> left, g -<span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> -<span id="L124" class="LineNr">124 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L124'>gap-to-start</a></span> self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L125" class="LineNr">125 </span> <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L168'>gap-left</a> self -<span id="L127" class="LineNr">127 </span> compare curr, <span class="Constant">-1</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">loop-if-!=</span> -<span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> -<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> -<span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L132'>gap-to-end</a></span> self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> <span class="Delimiter">{</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L154'>gap-right</a> self -<span id="L135" class="LineNr">135 </span> compare curr, <span class="Constant">-1</span> -<span id="L136" class="LineNr">136 </span> <span class="PreProc">loop-if-!=</span> -<span id="L137" class="LineNr">137 </span> <span class="Delimiter">}</span> -<span id="L138" class="LineNr">138 </span><span class="Delimiter">}</span> -<span id="L139" class="LineNr">139 </span> -<span id="L140" class="LineNr">140 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L140'>gap-at-start?</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L23'>grapheme-stack-empty?</a> left -<span id="L144" class="LineNr">144 </span> <span class="PreProc">return</span> result -<span id="L145" class="LineNr">145 </span><span class="Delimiter">}</span> -<span id="L146" class="LineNr">146 </span> -<span id="L147" class="LineNr">147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L147'>gap-at-end?</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L23'>grapheme-stack-empty?</a> right -<span id="L151" class="LineNr">151 </span> <span class="PreProc">return</span> result -<span id="L152" class="LineNr">152 </span><span class="Delimiter">}</span> -<span id="L153" class="LineNr">153 </span> -<span id="L154" class="LineNr">154 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L154'>gap-right</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L158" class="LineNr">158 </span> g <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a> right -<span id="L159" class="LineNr">159 </span> compare g, <span class="Constant">-1</span> -<span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">break-if-=</span> -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L163" class="LineNr">163 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> left, g -<span id="L164" class="LineNr">164 </span> <span class="Delimiter">}</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">return</span> g -<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span> -<span id="L167" class="LineNr">167 </span> -<span id="L168" class="LineNr">168 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L168'>gap-left</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L171" class="LineNr">171 </span> <span class="Delimiter">{</span> -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L173" class="LineNr">173 </span> g <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a> left -<span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> -<span id="L175" class="LineNr">175 </span> compare g, <span class="Constant">-1</span> -<span id="L176" class="LineNr">176 </span> <span class="Delimiter">{</span> -<span id="L177" class="LineNr">177 </span> <span class="PreProc">break-if-=</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L179" class="LineNr">179 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> right, g -<span id="L180" class="LineNr">180 </span> <span class="Delimiter">}</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">return</span> g -<span id="L182" class="LineNr">182 </span><span class="Delimiter">}</span> -<span id="L183" class="LineNr">183 </span> -<span id="L184" class="LineNr">184 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L184'>index-of-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L189" class="LineNr">189 </span> <span class="PreProc">return</span> result -<span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> -<span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L192'>first-grapheme-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L194" class="LineNr">194 </span> <span class="muComment"># try to read from left</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L197" class="LineNr">197 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if-<=</span> -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, data -<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <span class="Constant">0</span> -<span id="L203" class="LineNr">203 </span> <span class="PreProc">return</span> *result-addr -<span id="L204" class="LineNr">204 </span> <span class="Delimiter">}</span> -<span id="L205" class="LineNr">205 </span> <span class="muComment"># try to read from right</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L207" class="LineNr">207 </span> top-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L208" class="LineNr">208 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L209" class="LineNr">209 </span> <span class="Delimiter">{</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">break-if-<=</span> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, data -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L214" class="LineNr">214 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L216" class="LineNr">216 </span> <span class="PreProc">return</span> *result-addr -<span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> -<span id="L218" class="LineNr">218 </span> <span class="muComment"># give up</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> -<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span> -<span id="L222" class="LineNr">222 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L222'>grapheme-before-cursor-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L224" class="LineNr">224 </span> <span class="muComment"># try to read from left</span> -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L227" class="LineNr">227 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-<=</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a> left -<span id="L231" class="LineNr">231 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> left, result -<span id="L232" class="LineNr">232 </span> <span class="PreProc">return</span> result -<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> -<span id="L234" class="LineNr">234 </span> <span class="muComment"># give up</span> -<span id="L235" class="LineNr">235 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> -<span id="L236" class="LineNr">236 </span><span class="Delimiter">}</span> -<span id="L237" class="LineNr">237 </span> -<span id="L238" class="LineNr">238 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L238'>delete-before-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a> left -<span id="L242" class="LineNr">242 </span><span class="Delimiter">}</span> -<span id="L243" class="LineNr">243 </span> -<span id="L244" class="LineNr">244 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L244'>pop-after-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a> right -<span id="L248" class="LineNr">248 </span> <span class="PreProc">return</span> result -<span id="L249" class="LineNr">249 </span><span class="Delimiter">}</span> -<span id="L250" class="LineNr">250 </span> -<span id="L251" class="LineNr">251 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L251'>gap-buffer-equal?</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L253" class="LineNr">253 </span> <span class="muComment"># complication: graphemes may be multiple bytes</span> -<span id="L254" class="LineNr">254 </span> <span class="muComment"># so don't rely on length</span> -<span id="L255" class="LineNr">255 </span> <span class="muComment"># instead turn the expected result into a stream and arrange to read from it in order</span> -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/max-word-size) -<span id="L257" class="LineNr">257 </span> <span class="PreProc">var</span> expected-stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L258" class="LineNr">258 </span> <a href='../../108write.subx.html#L24'>write</a> expected-stream, s -<span id="L259" class="LineNr">259 </span> <span class="muComment"># compare left</span> -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L168'>prefix-match?</a> left, expected-stream -<span id="L262" class="LineNr">262 </span> compare result, <span class="Constant">0</span>/false -<span id="L263" class="LineNr">263 </span> <span class="Delimiter">{</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">break-if-!=</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">return</span> result -<span id="L266" class="LineNr">266 </span> <span class="Delimiter">}</span> -<span id="L267" class="LineNr">267 </span> <span class="muComment"># compare right</span> -<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L269" class="LineNr">269 </span> result <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L196'>suffix-match?</a> right, expected-stream -<span id="L270" class="LineNr">270 </span> compare result, <span class="Constant">0</span>/false -<span id="L271" class="LineNr">271 </span> <span class="Delimiter">{</span> -<span id="L272" class="LineNr">272 </span> <span class="PreProc">break-if-!=</span> -<span id="L273" class="LineNr">273 </span> <span class="PreProc">return</span> result -<span id="L274" class="LineNr">274 </span> <span class="Delimiter">}</span> -<span id="L275" class="LineNr">275 </span> <span class="muComment"># ensure there's nothing left over</span> -<span id="L276" class="LineNr">276 </span> result <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> expected-stream -<span id="L277" class="LineNr">277 </span> <span class="PreProc">return</span> result -<span id="L278" class="LineNr">278 </span><span class="Delimiter">}</span> -<span id="L279" class="LineNr">279 </span> -<span id="L280" class="LineNr">280 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L280'>test-gap-buffer-equal-from-end</a></span> <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g -<span id="L283" class="LineNr">283 </span> <a href='gap-buffer.mu.html#L9'>initialize-gap-buffer</a> g -<span id="L284" class="LineNr">284 </span> <span class="muComment">#</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L286" class="LineNr">286 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L287" class="LineNr">287 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L288" class="LineNr">288 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L289" class="LineNr">289 </span> <span class="muComment"># gap is at end (right is empty)</span> -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L251'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> -<span id="L291" class="LineNr">291 </span> check result, <span class="Constant">"F - test-gap-buffer-equal-from-end"</span> -<span id="L292" class="LineNr">292 </span><span class="Delimiter">}</span> -<span id="L293" class="LineNr">293 </span> -<span id="L294" class="LineNr">294 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L294'>test-gap-buffer-equal-from-middle</a></span> <span class="Delimiter">{</span> -<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g -<span id="L297" class="LineNr">297 </span> <a href='gap-buffer.mu.html#L9'>initialize-gap-buffer</a> g -<span id="L298" class="LineNr">298 </span> <span class="muComment">#</span> -<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L300" class="LineNr">300 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L301" class="LineNr">301 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L302" class="LineNr">302 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L168'>gap-left</a> g -<span id="L304" class="LineNr">304 </span> <span class="muComment"># gap is in the middle</span> -<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L251'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> -<span id="L306" class="LineNr">306 </span> check result, <span class="Constant">"F - test-gap-buffer-equal-from-middle"</span> -<span id="L307" class="LineNr">307 </span><span class="Delimiter">}</span> -<span id="L308" class="LineNr">308 </span> -<span id="L309" class="LineNr">309 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L309'>test-gap-buffer-equal-from-start</a></span> <span class="Delimiter">{</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g -<span id="L312" class="LineNr">312 </span> <a href='gap-buffer.mu.html#L9'>initialize-gap-buffer</a> g -<span id="L313" class="LineNr">313 </span> <span class="muComment">#</span> -<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L315" class="LineNr">315 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L316" class="LineNr">316 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L317" class="LineNr">317 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L168'>gap-left</a> g -<span id="L319" class="LineNr">319 </span> dummy <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L168'>gap-left</a> g -<span id="L320" class="LineNr">320 </span> dummy <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L168'>gap-left</a> g -<span id="L321" class="LineNr">321 </span> <span class="muComment"># gap is at the start</span> -<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L251'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> -<span id="L323" class="LineNr">323 </span> check result, <span class="Constant">"F - test-gap-buffer-equal-from-start"</span> -<span id="L324" class="LineNr">324 </span><span class="Delimiter">}</span> -<span id="L325" class="LineNr">325 </span> -<span id="L326" class="LineNr">326 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L326'>test-gap-buffer-equal-fails</a></span> <span class="Delimiter">{</span> -<span id="L327" class="LineNr">327 </span> <span class="muComment"># g = "aaa"</span> -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L329" class="LineNr">329 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g -<span id="L330" class="LineNr">330 </span> <a href='gap-buffer.mu.html#L9'>initialize-gap-buffer</a> g -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L332" class="LineNr">332 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L333" class="LineNr">333 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L334" class="LineNr">334 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> g, c -<span id="L335" class="LineNr">335 </span> <span class="muComment">#</span> -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L251'>gap-buffer-equal?</a> g, <span class="Constant">"aa"</span> -<span id="L337" class="LineNr">337 </span> check-not result, <span class="Constant">"F - test-gap-buffer-equal-fails"</span> -<span id="L338" class="LineNr">338 </span><span class="Delimiter">}</span> -<span id="L339" class="LineNr">339 </span> -<span id="L340" class="LineNr">340 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L340'>gap-buffers-equal?</a></span> self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), g: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L106'>gap-buffer-length</a> self -<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy tmp -<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> leng/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L106'>gap-buffer-length</a> g -<span id="L344" class="LineNr">344 </span> compare len, leng -<span id="L345" class="LineNr">345 </span> <span class="Delimiter">{</span> -<span id="L346" class="LineNr">346 </span> <span class="PreProc">break-if-=</span> -<span id="L347" class="LineNr">347 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L348" class="LineNr">348 </span> <span class="Delimiter">}</span> -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L350" class="LineNr">350 </span> <span class="Delimiter">{</span> -<span id="L351" class="LineNr">351 </span> compare i, len -<span id="L352" class="LineNr">352 </span> <span class="PreProc">break-if->=</span> -<span id="L353" class="LineNr">353 </span> <span class="Delimiter">{</span> -<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L367'>gap-index</a> self, i -<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy tmp -<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> currg/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L367'>gap-index</a> g, i -<span id="L357" class="LineNr">357 </span> compare curr, currg -<span id="L358" class="LineNr">358 </span> <span class="PreProc">break-if-=</span> -<span id="L359" class="LineNr">359 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L360" class="LineNr">360 </span> <span class="Delimiter">}</span> -<span id="L361" class="LineNr">361 </span> i <span class="SpecialChar"><-</span> increment -<span id="L362" class="LineNr">362 </span> <span class="PreProc">loop</span> -<span id="L363" class="LineNr">363 </span> <span class="Delimiter">}</span> -<span id="L364" class="LineNr">364 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L365" class="LineNr">365 </span><span class="Delimiter">}</span> -<span id="L366" class="LineNr">366 </span> -<span id="L367" class="LineNr">367 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L367'>gap-index</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), _n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> n/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy _n -<span id="L370" class="LineNr">370 </span> <span class="muComment"># if n < left->length, index into left</span> -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> left/<span class="Constant">edi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> left-len-a/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L373" class="LineNr">373 </span> compare n, *left-len-a -<span id="L374" class="LineNr">374 </span> <span class="Delimiter">{</span> -<span id="L375" class="LineNr">375 </span> <span class="PreProc">break-if->=</span> -<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, data -<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, n -<span id="L379" class="LineNr">379 </span> <span class="PreProc">return</span> *result -<span id="L380" class="LineNr">380 </span> <span class="Delimiter">}</span> -<span id="L381" class="LineNr">381 </span> <span class="muComment"># shrink n</span> -<span id="L382" class="LineNr">382 </span> n <span class="SpecialChar"><-</span> subtract *left-len-a -<span id="L383" class="LineNr">383 </span> <span class="muComment"># if n < right->length, index into right</span> -<span id="L384" class="LineNr">384 </span> <span class="PreProc">var</span> right/<span class="Constant">edi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> right-len-a/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L386" class="LineNr">386 </span> compare n, *right-len-a -<span id="L387" class="LineNr">387 </span> <span class="Delimiter">{</span> -<span id="L388" class="LineNr">388 </span> <span class="PreProc">break-if->=</span> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, data -<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, n -<span id="L392" class="LineNr">392 </span> <span class="PreProc">return</span> *result -<span id="L393" class="LineNr">393 </span> <span class="Delimiter">}</span> -<span id="L394" class="LineNr">394 </span> <span class="muComment"># error</span> -<span id="L395" class="LineNr">395 </span> abort <span class="Constant">"gap-index: out of bounds"</span> -<span id="L396" class="LineNr">396 </span> <span class="PreProc">return</span> <span class="Constant">0</span> -<span id="L397" class="LineNr">397 </span><span class="Delimiter">}</span> -<span id="L398" class="LineNr">398 </span> -<span id="L399" class="LineNr">399 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L399'>test-gap-buffers-equal?</a></span> <span class="Delimiter">{</span> -<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> _a: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _a -<span id="L402" class="LineNr">402 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> a, <span class="Constant">"abc"</span> -<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> _b: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> b/<span class="Constant">edi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _b -<span id="L405" class="LineNr">405 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> b, <span class="Constant">"abc"</span> -<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> _c: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> c/<span class="Constant">ebx</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _c -<span id="L408" class="LineNr">408 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> c, <span class="Constant">"ab"</span> -<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> _d: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> d/<span class="Constant">edx</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _d -<span id="L411" class="LineNr">411 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> d, <span class="Constant">"abd"</span> -<span id="L412" class="LineNr">412 </span> <span class="muComment">#</span> -<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L340'>gap-buffers-equal?</a> a, a -<span id="L414" class="LineNr">414 </span> check result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L399'>test-gap-buffers-equal?</a> - reflexive"</span> -<span id="L415" class="LineNr">415 </span> result <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L340'>gap-buffers-equal?</a> a, b -<span id="L416" class="LineNr">416 </span> check result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L399'>test-gap-buffers-equal?</a> - equal"</span> -<span id="L417" class="LineNr">417 </span> <span class="muComment"># length not equal</span> -<span id="L418" class="LineNr">418 </span> result <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L340'>gap-buffers-equal?</a> a, c -<span id="L419" class="LineNr">419 </span> check-not result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L399'>test-gap-buffers-equal?</a> - not equal"</span> -<span id="L420" class="LineNr">420 </span> <span class="muComment"># contents not equal</span> -<span id="L421" class="LineNr">421 </span> result <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L340'>gap-buffers-equal?</a> a, d -<span id="L422" class="LineNr">422 </span> check-not result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L399'>test-gap-buffers-equal?</a> - not equal 2"</span> -<span id="L423" class="LineNr">423 </span> result <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L340'>gap-buffers-equal?</a> d, a -<span id="L424" class="LineNr">424 </span> check-not result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L399'>test-gap-buffers-equal?</a> - not equal 3"</span> -<span id="L425" class="LineNr">425 </span><span class="Delimiter">}</span> -<span id="L426" class="LineNr">426 </span> -<span id="L427" class="LineNr">427 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L427'>copy-gap-buffer</a></span> _src-ah: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>), _dest-ah: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L428" class="LineNr">428 </span> <span class="muComment"># obtain src-a, dest-a</span> -<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L430" class="LineNr">430 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-ah -<span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _src-a -<span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *dest-ah -<span id="L434" class="LineNr">434 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">edi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _dest-a -<span id="L435" class="LineNr">435 </span> <span class="muComment"># copy left grapheme-stack</span> -<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, left -<span id="L437" class="LineNr">437 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-a, left -<span id="L438" class="LineNr">438 </span> <a href='grapheme-stack.mu.html#L62'>copy-grapheme-stack</a> src, dest -<span id="L439" class="LineNr">439 </span> <span class="muComment"># copy right grapheme-stack</span> -<span id="L440" class="LineNr">440 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, right -<span id="L441" class="LineNr">441 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-a, right -<span id="L442" class="LineNr">442 </span> <a href='grapheme-stack.mu.html#L62'>copy-grapheme-stack</a> src, dest -<span id="L443" class="LineNr">443 </span><span class="Delimiter">}</span> -<span id="L444" class="LineNr">444 </span> -<span id="L445" class="LineNr">445 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L445'>gap-buffer-is-decimal-integer?</a></span> _self: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L446" class="LineNr">446 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L447" class="LineNr">447 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L448" class="LineNr">448 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L223'>grapheme-stack-is-decimal-integer?</a> curr -<span id="L449" class="LineNr">449 </span> <span class="Delimiter">{</span> -<span id="L450" class="LineNr">450 </span> compare result, <span class="Constant">0</span>/false -<span id="L451" class="LineNr">451 </span> <span class="PreProc">break-if-=</span> -<span id="L452" class="LineNr">452 </span> curr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L453" class="LineNr">453 </span> result <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L223'>grapheme-stack-is-decimal-integer?</a> curr -<span id="L454" class="LineNr">454 </span> <span class="Delimiter">}</span> -<span id="L455" class="LineNr">455 </span> <span class="PreProc">return</span> result -<span id="L456" class="LineNr">456 </span><span class="Delimiter">}</span> -<span id="L457" class="LineNr">457 </span> -<span id="L458" class="LineNr">458 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L458'>test-render-gap-buffer-without-cursor</a></span> <span class="Delimiter">{</span> -<span id="L459" class="LineNr">459 </span> <span class="muComment"># setup</span> -<span id="L460" class="LineNr">460 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L461" class="LineNr">461 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address gap-storage -<span id="L462" class="LineNr">462 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> -<span id="L463" class="LineNr">463 </span> <span class="muComment"># setup: screen</span> -<span id="L464" class="LineNr">464 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L465" class="LineNr">465 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L466" class="LineNr">466 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L467" class="LineNr">467 </span> <span class="muComment">#</span> -<span id="L468" class="LineNr">468 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L81'>render-gap-buffer</a> <a href='../../405screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0</span>/no-cursor -<span id="L469" class="LineNr">469 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-without-cursor"</span> -<span id="L470" class="LineNr">470 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L458'>test-render-gap-buffer-without-cursor</a>: result"</span> -<span id="L471" class="LineNr">471 </span> <span class="muComment"># abc</span> -<span id="L472" class="LineNr">472 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L458'>test-render-gap-buffer-without-cursor</a>: bg"</span> -<span id="L473" class="LineNr">473 </span><span class="Delimiter">}</span> -<span id="L474" class="LineNr">474 </span> -<span id="L475" class="LineNr">475 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L475'>test-render-gap-buffer-with-cursor-at-end</a></span> <span class="Delimiter">{</span> -<span id="L476" class="LineNr">476 </span> <span class="muComment"># setup</span> -<span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address gap-storage -<span id="L479" class="LineNr">479 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> -<span id="L480" class="LineNr">480 </span> <a href='gap-buffer.mu.html#L132'>gap-to-end</a> gap -<span id="L481" class="LineNr">481 </span> <span class="muComment"># setup: screen</span> -<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L484" class="LineNr">484 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L485" class="LineNr">485 </span> <span class="muComment">#</span> -<span id="L486" class="LineNr">486 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L81'>render-gap-buffer</a> <a href='../../405screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/show-cursor -<span id="L487" class="LineNr">487 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-with-cursor-at-end"</span> -<span id="L488" class="LineNr">488 </span> <span class="muComment"># we've drawn one extra grapheme for the cursor</span> -<span id="L489" class="LineNr">489 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L475'>test-render-gap-buffer-with-cursor-at-end</a>: result"</span> -<span id="L490" class="LineNr">490 </span> <span class="muComment"># abc</span> -<span id="L491" class="LineNr">491 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" |"</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L475'>test-render-gap-buffer-with-cursor-at-end</a>: bg"</span> -<span id="L492" class="LineNr">492 </span><span class="Delimiter">}</span> -<span id="L493" class="LineNr">493 </span> -<span id="L494" class="LineNr">494 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L494'>test-render-gap-buffer-with-cursor-in-middle</a></span> <span class="Delimiter">{</span> -<span id="L495" class="LineNr">495 </span> <span class="muComment"># setup</span> -<span id="L496" class="LineNr">496 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address gap-storage -<span id="L498" class="LineNr">498 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> -<span id="L499" class="LineNr">499 </span> <a href='gap-buffer.mu.html#L132'>gap-to-end</a> gap -<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L168'>gap-left</a> gap -<span id="L501" class="LineNr">501 </span> <span class="muComment"># setup: screen</span> -<span id="L502" class="LineNr">502 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L503" class="LineNr">503 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L504" class="LineNr">504 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L505" class="LineNr">505 </span> <span class="muComment">#</span> -<span id="L506" class="LineNr">506 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L81'>render-gap-buffer</a> <a href='../../405screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/show-cursor -<span id="L507" class="LineNr">507 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-with-cursor-in-middle"</span> -<span id="L508" class="LineNr">508 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L494'>test-render-gap-buffer-with-cursor-in-middle</a>: result"</span> -<span id="L509" class="LineNr">509 </span> <span class="muComment"># abc</span> -<span id="L510" class="LineNr">510 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L494'>test-render-gap-buffer-with-cursor-in-middle</a>: bg"</span> -<span id="L511" class="LineNr">511 </span><span class="Delimiter">}</span> -<span id="L512" class="LineNr">512 </span> -<span id="L513" class="LineNr">513 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L513'>test-render-gap-buffer-with-cursor-at-start</a></span> <span class="Delimiter">{</span> -<span id="L514" class="LineNr">514 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L4'>gap-buffer</a> -<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> address gap-storage -<span id="L516" class="LineNr">516 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> -<span id="L517" class="LineNr">517 </span> <a href='gap-buffer.mu.html#L124'>gap-to-start</a> gap -<span id="L518" class="LineNr">518 </span> <span class="muComment"># setup: screen</span> -<span id="L519" class="LineNr">519 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L520" class="LineNr">520 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L521" class="LineNr">521 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L522" class="LineNr">522 </span> <span class="muComment">#</span> -<span id="L523" class="LineNr">523 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L81'>render-gap-buffer</a> <a href='../../405screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/show-cursor -<span id="L524" class="LineNr">524 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-with-cursor-at-start"</span> -<span id="L525" class="LineNr">525 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L513'>test-render-gap-buffer-with-cursor-at-start</a>: result"</span> -<span id="L526" class="LineNr">526 </span> <span class="muComment"># abc</span> -<span id="L527" class="LineNr">527 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L513'>test-render-gap-buffer-with-cursor-at-start</a>: bg"</span> -<span id="L528" class="LineNr">528 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/shell/grapheme-stack.mu.html b/html/baremetal/shell/grapheme-stack.mu.html deleted file mode 100644 index 3c38fee7..00000000 --- a/html/baremetal/shell/grapheme-stack.mu.html +++ /dev/null @@ -1,305 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/shell/grapheme-stack.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/shell/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/grapheme-stack.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># grapheme stacks are the smallest unit of editable text</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># they are typically rendered horizontally</span> -<span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span><span class="PreProc">type</span> <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> data: (handle array grapheme) -<span id="L6" class="LineNr"> 6 </span> <a href='../../203stack.subx.html#L338'>top</a>: int -<span id="L7" class="LineNr"> 7 </span><span class="Delimiter">}</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L9'>initialize-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L12" class="LineNr"> 12 </span> populate d, n -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L14" class="LineNr"> 14 </span> copy-to *top, <span class="Constant">0</span> -<span id="L15" class="LineNr"> 15 </span><span class="Delimiter">}</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L17'>clear-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="Delimiter">{</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L20" class="LineNr"> 20 </span> copy-to *top, <span class="Constant">0</span> -<span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> -<span id="L22" class="LineNr"> 22 </span> -<span id="L23" class="LineNr"> 23 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L23'>grapheme-stack-empty?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L26" class="LineNr"> 26 </span> compare *top, <span class="Constant">0</span> -<span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">break-if-!=</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L32" class="LineNr"> 32 </span><span class="Delimiter">}</span> -<span id="L33" class="LineNr"> 33 </span> -<span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), _val: grapheme <span class="Delimiter">{</span> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy _val -<span id="L42" class="LineNr"> 42 </span> copy-to *dest-addr, val -<span id="L43" class="LineNr"> 43 </span> add-to *top-addr, <span class="Constant">1</span> -<span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> -<span id="L45" class="LineNr"> 45 </span> -<span id="L46" class="LineNr"> 46 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">{</span> -<span id="L50" class="LineNr"> 50 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-></span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">return</span> *result-addr -<span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> -<span id="L61" class="LineNr"> 61 </span> -<span id="L62" class="LineNr"> 62 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L62'>copy-grapheme-stack</a></span> _src: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, data -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> -<span id="L70" class="LineNr"> 70 </span> compare i, *top-addr -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if->=</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L73" class="LineNr"> 73 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> dest, *g -<span id="L74" class="LineNr"> 74 </span> i <span class="SpecialChar"><-</span> increment -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">loop</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">}</span> -<span id="L77" class="LineNr"> 77 </span><span class="Delimiter">}</span> -<span id="L78" class="LineNr"> 78 </span> -<span id="L79" class="LineNr"> 79 </span><span class="muComment"># dump stack to screen from bottom to top</span> -<span id="L80" class="LineNr"> 80 </span><span class="muComment"># colors hardcoded</span> -<span id="L81" class="LineNr"> 81 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L81'>render-stack-from-bottom</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> -<span id="L89" class="LineNr"> 89 </span> compare i, *top-addr -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if->=</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L92" class="LineNr"> 92 </span> draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, *g, x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg -<span id="L93" class="LineNr"> 93 </span> i <span class="SpecialChar"><-</span> increment -<span id="L94" class="LineNr"> 94 </span> increment x <span class="muComment"># assume left to right</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">loop</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">}</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">return</span> x -<span id="L98" class="LineNr"> 98 </span><span class="Delimiter">}</span> -<span id="L99" class="LineNr"> 99 </span> -<span id="L100" class="LineNr">100 </span><span class="muComment"># dump stack to screen from top to bottom</span> -<span id="L101" class="LineNr">101 </span><span class="muComment"># optionally render a 'cursor' with the top grapheme</span> -<span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L102'>render-stack-from-top</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L109" class="LineNr">109 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L110" class="LineNr">110 </span> <span class="muComment"># if render-cursor?, peel off first iteration</span> -<span id="L111" class="LineNr">111 </span> <span class="Delimiter">{</span> -<span id="L112" class="LineNr">112 </span> compare render-cursor?, <span class="Constant">0</span>/false -<span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if-=</span> -<span id="L114" class="LineNr">114 </span> compare i, <span class="Constant">0</span> -<span id="L115" class="LineNr">115 </span> <span class="PreProc">break-if-<</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L117" class="LineNr">117 </span> draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, *g, x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">7</span>/bg=cursor -<span id="L118" class="LineNr">118 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L119" class="LineNr">119 </span> increment x <span class="muComment"># assume left to right</span> -<span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> -<span id="L121" class="LineNr">121 </span> <span class="muComment"># remaining iterations</span> -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">{</span> -<span id="L123" class="LineNr">123 </span> compare i, <span class="Constant">0</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">break-if-<</span> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L126" class="LineNr">126 </span> draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, *g, x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg -<span id="L127" class="LineNr">127 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L128" class="LineNr">128 </span> increment x <span class="muComment"># assume left to right</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">loop</span> -<span id="L130" class="LineNr">130 </span> <span class="Delimiter">}</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">return</span> x -<span id="L132" class="LineNr">132 </span><span class="Delimiter">}</span> -<span id="L133" class="LineNr">133 </span> -<span id="L134" class="LineNr">134 </span><span class="PreProc">fn</span> <span class="muTest"><a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a></span> <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span> <span class="muComment"># setup: gs = "abc"</span> -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> gs-storage: <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> gs/<span class="Constant">edi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> address gs-storage -<span id="L138" class="LineNr">138 </span> <a href='grapheme-stack.mu.html#L9'>initialize-grapheme-stack</a> gs, <span class="Constant">5</span> -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span>/a -<span id="L140" class="LineNr">140 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> gs, g -<span id="L141" class="LineNr">141 </span> g <span class="SpecialChar"><-</span> copy <span class="Constant">0x62</span>/b -<span id="L142" class="LineNr">142 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> gs, g -<span id="L143" class="LineNr">143 </span> g <span class="SpecialChar"><-</span> copy <span class="Constant">0x63</span>/c -<span id="L144" class="LineNr">144 </span> <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> gs, g -<span id="L145" class="LineNr">145 </span> <span class="muComment"># setup: screen</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L148" class="LineNr">148 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> -<span id="L149" class="LineNr">149 </span> <span class="muComment">#</span> -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L81'>render-stack-from-bottom</a> <a href='../../405screen.mu.html#L9'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y -<span id="L151" class="LineNr">151 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from bottom"</span> -<span id="L152" class="LineNr">152 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from bottom: result"</span> -<span id="L153" class="LineNr">153 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from bottom: bg"</span> -<span id="L154" class="LineNr">154 </span> <span class="muComment">#</span> -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L102'>render-stack-from-top</a> <a href='../../405screen.mu.html#L9'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">1</span>/y, <span class="Constant">0</span>/cursor=false -<span id="L156" class="LineNr">156 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor"</span> -<span id="L157" class="LineNr">157 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor: result"</span> -<span id="L158" class="LineNr">158 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor: bg"</span> -<span id="L159" class="LineNr">159 </span> <span class="muComment">#</span> -<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L102'>render-stack-from-top</a> <a href='../../405screen.mu.html#L9'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/cursor=true -<span id="L161" class="LineNr">161 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> with cursor"</span> -<span id="L162" class="LineNr">162 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor: result"</span> -<span id="L163" class="LineNr">163 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> with cursor: bg"</span> -<span id="L164" class="LineNr">164 </span><span class="Delimiter">}</span> -<span id="L165" class="LineNr">165 </span> -<span id="L166" class="LineNr">166 </span><span class="muComment"># compare from bottom</span> -<span id="L167" class="LineNr">167 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> -<span id="L168" class="LineNr">168 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L168'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L175" class="LineNr">175 </span> <span class="Delimiter">{</span> -<span id="L176" class="LineNr">176 </span> compare i, *top-addr -<span id="L177" class="LineNr">177 </span> <span class="PreProc">break-if->=</span> -<span id="L178" class="LineNr">178 </span> <span class="muComment"># if curr != expected, return false</span> -<span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s -<span id="L182" class="LineNr">182 </span> <span class="Delimiter">{</span> -<span id="L183" class="LineNr">183 </span> compare expected, *curr-a -<span id="L184" class="LineNr">184 </span> <span class="PreProc">break-if-=</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L186" class="LineNr">186 </span> <span class="Delimiter">}</span> -<span id="L187" class="LineNr">187 </span> <span class="Delimiter">}</span> -<span id="L188" class="LineNr">188 </span> i <span class="SpecialChar"><-</span> increment -<span id="L189" class="LineNr">189 </span> <span class="PreProc">loop</span> -<span id="L190" class="LineNr">190 </span> <span class="Delimiter">}</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> -<span id="L194" class="LineNr">194 </span><span class="muComment"># compare from bottom</span> -<span id="L195" class="LineNr">195 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> -<span id="L196" class="LineNr">196 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L196'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L203" class="LineNr">203 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L204" class="LineNr">204 </span> <span class="Delimiter">{</span> -<span id="L205" class="LineNr">205 </span> compare i, <span class="Constant">0</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">break-if-<</span> -<span id="L207" class="LineNr">207 </span> <span class="Delimiter">{</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s -<span id="L210" class="LineNr">210 </span> <span class="muComment"># if curr != expected, return false</span> -<span id="L211" class="LineNr">211 </span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> compare expected, *curr-a -<span id="L213" class="LineNr">213 </span> <span class="PreProc">break-if-=</span> -<span id="L214" class="LineNr">214 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> -<span id="L216" class="LineNr">216 </span> <span class="Delimiter">}</span> -<span id="L217" class="LineNr">217 </span> i <span class="SpecialChar"><-</span> decrement -<span id="L218" class="LineNr">218 </span> <span class="PreProc">loop</span> -<span id="L219" class="LineNr">219 </span> <span class="Delimiter">}</span> -<span id="L220" class="LineNr">220 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> -<span id="L221" class="LineNr">221 </span><span class="Delimiter">}</span> -<span id="L222" class="LineNr">222 </span> -<span id="L223" class="LineNr">223 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L223'>grapheme-stack-is-decimal-integer?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">1</span>/true -<span id="L231" class="LineNr">231 </span> $grapheme-stack-is-integer?:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L232" class="LineNr">232 </span> compare i, *top-addr -<span id="L233" class="LineNr">233 </span> <span class="PreProc">break-if->=</span> -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L235" class="LineNr">235 </span> result <span class="SpecialChar"><-</span> <a href='../../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> *g -<span id="L236" class="LineNr">236 </span> compare result, <span class="Constant">0</span>/false -<span id="L237" class="LineNr">237 </span> <span class="PreProc">break-if-=</span> -<span id="L238" class="LineNr">238 </span> i <span class="SpecialChar"><-</span> increment -<span id="L239" class="LineNr">239 </span> <span class="PreProc">loop</span> -<span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">return</span> result -<span id="L242" class="LineNr">242 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/shell/line.mu.html b/html/baremetal/shell/line.mu.html deleted file mode 100644 index 383c56ef..00000000 --- a/html/baremetal/shell/line.mu.html +++ /dev/null @@ -1,298 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/shell/line.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.CommentedCode { color: #8a8a8a; } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/shell/line.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/line.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='line.mu.html#L1'>line</a> <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> name: (handle array byte) -<span id="L3" class="LineNr"> 3 </span> data: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L4" class="LineNr"> 4 </span> cursor: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L5" class="LineNr"> 5 </span> next: (handle <a href='line.mu.html#L1'>line</a>) -<span id="L6" class="LineNr"> 6 </span> prev: (handle <a href='line.mu.html#L1'>line</a>) -<span id="L7" class="LineNr"> 7 </span><span class="Delimiter">}</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># initialize line with a single empty word</span> -<span id="L10" class="LineNr"> 10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L10'>initialize-line</a></span> _line: (addr <a href='line.mu.html#L1'>line</a>) <span class="Delimiter">{</span> -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> <a href='line.mu.html#L1'>line</a>/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='line.mu.html#L1'>line</a>, data -<span id="L13" class="LineNr"> 13 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> word-ah -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='line.mu.html#L1'>line</a>, cursor -<span id="L15" class="LineNr"> 15 </span> copy-object word-ah, cursor-ah -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> <a href='word.mu.html#L1'>word</a>/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *word-ah -<span id="L17" class="LineNr"> 17 </span> <a href='word.mu.html#L7'>initialize-word</a> <a href='word.mu.html#L1'>word</a> -<span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> -<span id="L19" class="LineNr"> 19 </span> -<span id="L20" class="LineNr"> 20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L20'>num-words-in-line</a></span> _in: (addr <a href='line.mu.html#L1'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy _in -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, data -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah -<span id="L26" class="LineNr"> 26 </span> compare curr, <span class="Constant">0</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-=</span> -<span id="L28" class="LineNr"> 28 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L29" class="LineNr"> 29 </span> result <span class="SpecialChar"><-</span> increment -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">loop</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">}</span> -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">return</span> result -<span id="L33" class="LineNr"> 33 </span><span class="Delimiter">}</span> -<span id="L34" class="LineNr"> 34 </span> -<span id="L35" class="LineNr"> 35 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L35'>line-list-length</a></span> lines: (addr handle <a href='line.mu.html#L1'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy lines -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">{</span> -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah -<span id="L40" class="LineNr"> 40 </span> compare curr, <span class="Constant">0</span> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">break-if-=</span> -<span id="L42" class="LineNr"> 42 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L43" class="LineNr"> 43 </span> result <span class="SpecialChar"><-</span> increment -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">loop</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">return</span> result -<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> -<span id="L48" class="LineNr"> 48 </span> -<span id="L49" class="LineNr"> 49 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L49'>render-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _line: (addr <a href='line.mu.html#L1'>line</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> <a href='line.mu.html#L1'>line</a>/<span class="Constant">eax</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='line.mu.html#L1'>line</a>, data -<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># cursor-word</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L54" class="LineNr"> 54 </span> compare render-cursor?, <span class="Constant">0</span>/false -<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-=</span> -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='line.mu.html#L1'>line</a>, cursor -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah -<span id="L59" class="LineNr"> 59 </span> cursor-word <span class="SpecialChar"><-</span> copy _cursor-word -<span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> -<span id="L61" class="LineNr"> 61 </span> <span class="muComment">#</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, first-word-ah, x, y, cursor-word -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">return</span> result -<span id="L64" class="LineNr"> 64 </span><span class="Delimiter">}</span> -<span id="L65" class="LineNr"> 65 </span> -<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L66'>parse-line</a></span> in: (addr array byte), _out: (addr <a href='line.mu.html#L1'>line</a>) <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy _out -<span id="L68" class="LineNr"> 68 </span> <a href='line.mu.html#L10'>initialize-line</a> out -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, data -<span id="L70" class="LineNr"> 70 </span> <a href='word.mu.html#L695'>parse-words</a> in, dest -<span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span> -<span id="L72" class="LineNr"> 72 </span> -<span id="L73" class="LineNr"> 73 </span><span class="CommentedCode">#? fn main {</span> -<span id="L74" class="LineNr"> 74 </span><span class="CommentedCode">#? # line = [aaa, bbb, ccc, ddd]</span> -<span id="L75" class="LineNr"> 75 </span><span class="CommentedCode">#? var line-storage: line</span> -<span id="L76" class="LineNr"> 76 </span><span class="CommentedCode">#? var w-ah/eax: (addr handle word) <- get line-storage, data</span> -<span id="L77" class="LineNr"> 77 </span><span class="CommentedCode">#? allocate-word-with w-ah, "aaa"</span> -<span id="L78" class="LineNr"> 78 </span><span class="CommentedCode">#? append-word-at-end-with w-ah, "bbb"</span> -<span id="L79" class="LineNr"> 79 </span><span class="CommentedCode">#? append-word-at-end-with w-ah, "ccc"</span> -<span id="L80" class="LineNr"> 80 </span><span class="CommentedCode">#? append-word-at-end-with w-ah, "ddd"</span> -<span id="L81" class="LineNr"> 81 </span><span class="CommentedCode">#? var cursor-ah/ecx: (addr handle word) <- get line-storage, cursor</span> -<span id="L82" class="LineNr"> 82 </span><span class="CommentedCode">#? var w/eax: (addr word) <- lookup *w-ah</span> -<span id="L83" class="LineNr"> 83 </span><span class="CommentedCode">#? var next-ah/eax: (addr handle word) <- get w, next</span> -<span id="L84" class="LineNr"> 84 </span><span class="CommentedCode">#? copy-object next-ah, cursor-ah</span> -<span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? var line-addr/eax: (addr line) <- address line-storage</span> -<span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? var dummy/eax: int <- render-line 0/screen, line-addr, 0/x, 0/y, 1/render-cursor</span> -<span id="L87" class="LineNr"> 87 </span><span class="CommentedCode">#? }</span> -<span id="L88" class="LineNr"> 88 </span> -<span id="L89" class="LineNr"> 89 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L89'>render-line-with-stack</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _line: (addr <a href='line.mu.html#L1'>line</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> <a href='line.mu.html#L1'>line</a>/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy _line -<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># cursor-word</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L93" class="LineNr"> 93 </span> compare render-cursor?, <span class="Constant">0</span>/false -<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-=</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='line.mu.html#L1'>line</a>, cursor -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah -<span id="L98" class="LineNr"> 98 </span> cursor-word <span class="SpecialChar"><-</span> copy _cursor-word -<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> -<span id="L100" class="LineNr">100 </span> <span class="muComment">#</span> -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> curr-word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='line.mu.html#L1'>line</a>, data -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> _curr-word/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-word-ah -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">edx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _curr-word -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy x <span class="muComment"># increases each iteration</span> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> new-y/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy y <span class="muComment"># compute max across all iterations</span> -<span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> compare curr-word, <span class="Constant">0</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">break-if-=</span> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> curr-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L110" class="LineNr">110 </span> new-x, curr-y <span class="SpecialChar"><-</span> <a href='line.mu.html#L126'>render-word-with-stack-and-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='line.mu.html#L1'>line</a>, curr-word, new-x, y, cursor-word -<span id="L111" class="LineNr">111 </span> compare curr-y, new-y -<span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if-<=</span> -<span id="L114" class="LineNr">114 </span> new-y <span class="SpecialChar"><-</span> copy curr-y -<span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> -<span id="L116" class="LineNr">116 </span> new-x <span class="SpecialChar"><-</span> add <span class="Constant">1</span>/inter-word-spacing -<span id="L117" class="LineNr">117 </span> <span class="muComment"># update</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> <a href='../../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-word-ah -<span id="L120" class="LineNr">120 </span> curr-word <span class="SpecialChar"><-</span> copy <a href='../../127next-word.subx.html#L11'>next-word</a> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">loop</span> -<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">return</span> new-x, new-y -<span id="L124" class="LineNr">124 </span><span class="Delimiter">}</span> -<span id="L125" class="LineNr">125 </span> -<span id="L126" class="LineNr">126 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L126'>render-word-with-stack-and-cursor</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), <a href='line.mu.html#L1'>line</a>: (addr <a href='line.mu.html#L1'>line</a>), curr-word: (addr <a href='word.mu.html#L1'>word</a>), x: int, y: int, _cursor-word-addr: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="muComment"># print curr-word, with cursor if necessary</span> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> render-cursor?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">0</span>/false -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> cursor-word-addr/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _cursor-word-addr -<span id="L130" class="LineNr">130 </span> <span class="Delimiter">{</span> -<span id="L131" class="LineNr">131 </span> compare cursor-word-addr, curr-word -<span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if-!=</span> -<span id="L133" class="LineNr">133 </span> render-cursor? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span>/true -<span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L269'>render-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-word, x, y, render-cursor? -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> new-x-saved/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy new-x -<span id="L137" class="LineNr">137 </span> add-to y, <span class="Constant">2</span>/word-stack-spacing -<span id="L138" class="LineNr">138 </span> <span class="muComment"># compute stack until word</span> -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address stack-storage -<span id="L141" class="LineNr">141 </span> <a href='eval.mu.html#L40'>evaluate</a> <a href='line.mu.html#L1'>line</a>, curr-word, stack -<span id="L142" class="LineNr">142 </span> <span class="muComment"># render stack</span> -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> new-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L144" class="LineNr">144 </span> new-x, new-y <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L200'>render-value-stack</a> <a href='../../405screen.mu.html#L9'>screen</a>, stack, x, y -<span id="L145" class="LineNr">145 </span><span class="CommentedCode">#? draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, new-x, 0xc/fg, 0/bg</span> -<span id="L146" class="LineNr">146 </span><span class="CommentedCode">#? draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, new-y, 3/fg, 0/bg</span> -<span id="L147" class="LineNr">147 </span> compare new-x, new-x-saved -<span id="L148" class="LineNr">148 </span> <span class="Delimiter">{</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">break-if->=</span> -<span id="L150" class="LineNr">150 </span> new-x <span class="SpecialChar"><-</span> copy new-x-saved -<span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> -<span id="L152" class="LineNr">152 </span><span class="CommentedCode">#? draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, new-x, 7/fg, 0/bg</span> -<span id="L153" class="LineNr">153 </span> <span class="PreProc">return</span> new-x, new-y -<span id="L154" class="LineNr">154 </span><span class="Delimiter">}</span> -<span id="L155" class="LineNr">155 </span> -<span id="L156" class="LineNr">156 </span><span class="PreProc">fn</span> <span class="muTest"><a href='line.mu.html#L156'>test-render-line-with-stack-singleton</a></span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr">157 </span> <span class="muComment"># line = [1]</span> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> line-storage: <a href='line.mu.html#L1'>line</a> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> <a href='line.mu.html#L1'>line</a>/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address line-storage -<span id="L160" class="LineNr">160 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1"</span>, <a href='line.mu.html#L1'>line</a> -<span id="L161" class="LineNr">161 </span> <span class="muComment"># setup: screen</span> -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L164" class="LineNr">164 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L165" class="LineNr">165 </span> <span class="muComment">#</span> -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> new-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L168" class="LineNr">168 </span> new-x, new-y <span class="SpecialChar"><-</span> <a href='line.mu.html#L89'>render-line-with-stack</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='line.mu.html#L1'>line</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0</span>/no-cursor -<span id="L169" class="LineNr">169 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1 "</span>, <span class="Constant">"F - <a href='line.mu.html#L156'>test-render-line-with-stack-singleton</a>/0"</span> -<span id="L170" class="LineNr">170 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='line.mu.html#L156'>test-render-line-with-stack-singleton</a>/1"</span> -<span id="L171" class="LineNr">171 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" 1 "</span>, <span class="Constant">"F - <a href='line.mu.html#L156'>test-render-line-with-stack-singleton</a>/2"</span> -<span id="L172" class="LineNr">172 </span> <span class="muComment"># not bothering to test hash colors for numbers</span> -<span id="L173" class="LineNr">173 </span><span class="Delimiter">}</span> -<span id="L174" class="LineNr">174 </span> -<span id="L175" class="LineNr">175 </span><span class="PreProc">fn</span> <span class="muTest"><a href='line.mu.html#L175'>test-render-line-with-stack</a></span> <span class="Delimiter">{</span> -<span id="L176" class="LineNr">176 </span> <span class="muComment"># line = [1 2]</span> -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> line-storage: <a href='line.mu.html#L1'>line</a> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> <a href='line.mu.html#L1'>line</a>/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address line-storage -<span id="L179" class="LineNr">179 </span> <a href='line.mu.html#L66'>parse-line</a> <span class="Constant">"1 2"</span>, <a href='line.mu.html#L1'>line</a> -<span id="L180" class="LineNr">180 </span> <span class="muComment"># setup: screen</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L183" class="LineNr">183 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L184" class="LineNr">184 </span> <span class="muComment">#</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> new-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L187" class="LineNr">187 </span> new-x, new-y <span class="SpecialChar"><-</span> <a href='line.mu.html#L89'>render-line-with-stack</a> <a href='../../405screen.mu.html#L9'>screen</a>, <a href='line.mu.html#L1'>line</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0</span>/no-cursor -<span id="L188" class="LineNr">188 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1 2 "</span>, <span class="Constant">"F - <a href='line.mu.html#L175'>test-render-line-with-stack</a>/0"</span> -<span id="L189" class="LineNr">189 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='line.mu.html#L175'>test-render-line-with-stack</a>/1"</span> -<span id="L190" class="LineNr">190 </span> <span class="muComment">#___ ___</span> -<span id="L191" class="LineNr">191 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" 1 2 "</span>, <span class="Constant">"F - <a href='line.mu.html#L175'>test-render-line-with-stack</a>/2"</span> -<span id="L192" class="LineNr">192 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">" 1 "</span>, <span class="Constant">"F - <a href='line.mu.html#L175'>test-render-line-with-stack</a>/3"</span> -<span id="L193" class="LineNr">193 </span> <span class="muComment"># not bothering to test hash colors for numbers</span> -<span id="L194" class="LineNr">194 </span><span class="Delimiter">}</span> -<span id="L195" class="LineNr">195 </span> -<span id="L196" class="LineNr">196 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L196'>edit-line</a></span> _self: (addr <a href='line.mu.html#L1'>line</a>), key: byte <span class="Delimiter">{</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, cursor -<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _cursor-word -<span id="L201" class="LineNr">201 </span> compare key, <span class="Constant">0x20</span>/space -<span id="L202" class="LineNr">202 </span> $edit-line:space: <span class="Delimiter">{</span> -<span id="L203" class="LineNr">203 </span> <span class="PreProc">break-if-!=</span> -<span id="L204" class="LineNr">204 </span> <a href='word.mu.html#L565'>append-word</a> cursor-word-ah -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next -<span id="L206" class="LineNr">206 </span> copy-object next-word-ah, cursor-word-ah -<span id="L207" class="LineNr">207 </span> <span class="PreProc">return</span> -<span id="L208" class="LineNr">208 </span> <span class="Delimiter">}</span> -<span id="L209" class="LineNr">209 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy key -<span id="L211" class="LineNr">211 </span> <a href='word.mu.html#L179'>add-grapheme-to-word</a> cursor-word, g -<span id="L212" class="LineNr">212 </span> <span class="muComment"># silently ignore other hotkeys</span> -<span id="L213" class="LineNr">213 </span><span class="Delimiter">}</span> -<span id="L214" class="LineNr">214 </span> -<span id="L215" class="LineNr">215 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='line.mu.html#L215'>main</a></span> <span class="Delimiter">{</span> -<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> line-storage: <a href='line.mu.html#L1'>line</a> -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> <a href='line.mu.html#L1'>line</a>/<span class="Constant">esi</span>: (addr <a href='line.mu.html#L1'>line</a>) <span class="SpecialChar"><-</span> address line-storage -<span id="L218" class="LineNr">218 </span> <a href='line.mu.html#L10'>initialize-line</a> <a href='line.mu.html#L1'>line</a> -<span id="L219" class="LineNr">219 </span> $main:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L220" class="LineNr">220 </span> <a href='../../405screen.mu.html#L78'>clear-screen</a> <span class="Constant">0</span>/screen -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> dummy1/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> dummy2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L223" class="LineNr">223 </span> dummy1, dummy2 <span class="SpecialChar"><-</span> <a href='line.mu.html#L89'>render-line-with-stack</a> <span class="Constant">0</span>/screen, <a href='line.mu.html#L1'>line</a>, <span class="Constant">2</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/show-cursor -<span id="L224" class="LineNr">224 </span> <span class="Delimiter">{</span> -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> read-key <span class="Constant">0</span>/keyboard -<span id="L226" class="LineNr">226 </span> compare key, <span class="Constant">0</span> -<span id="L227" class="LineNr">227 </span> <span class="PreProc">loop-if-=</span> -<span id="L228" class="LineNr">228 </span> compare key, <span class="Constant">0x71</span>/q -<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-=</span> $main:<span class="PreProc">loop</span> -<span id="L230" class="LineNr">230 </span> <a href='line.mu.html#L196'>edit-line</a> <a href='line.mu.html#L1'>line</a>, key -<span id="L231" class="LineNr">231 </span> <span class="Delimiter">}</span> -<span id="L232" class="LineNr">232 </span> <span class="PreProc">loop</span> -<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> -<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/shell/value-stack.mu.html b/html/baremetal/shell/value-stack.mu.html deleted file mode 100644 index 2b167886..00000000 --- a/html/baremetal/shell/value-stack.mu.html +++ /dev/null @@ -1,304 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/shell/value-stack.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/shell/value-stack.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/value-stack.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># value stacks encode the result of a program at a single point in time</span> -<span id="L2" class="LineNr"> 2 </span><span class="muComment"># they are typically rendered vertically</span> -<span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span><span class="PreProc">type</span> <a href='value-stack.mu.html#L4'>value-stack</a> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> data: (handle array <a href='value.mu.html#L2'>value</a>) -<span id="L6" class="LineNr"> 6 </span> <a href='../../203stack.subx.html#L338'>top</a>: int -<span id="L7" class="LineNr"> 7 </span><span class="Delimiter">}</span> -<span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L9'>initialize-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L12" class="LineNr"> 12 </span> populate d, n -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L14" class="LineNr"> 14 </span> copy-to *top, <span class="Constant">0</span> -<span id="L15" class="LineNr"> 15 </span><span class="Delimiter">}</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L17'>clear-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="Delimiter">{</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L20" class="LineNr"> 20 </span> copy-to *top, <span class="Constant">0</span> -<span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> -<span id="L22" class="LineNr"> 22 </span> -<span id="L23" class="LineNr"> 23 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L23'>push-number-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), _val: float <span class="Delimiter">{</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, number-data -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy _val -<span id="L33" class="LineNr"> 33 </span> copy-to *dest-addr2, val -<span id="L34" class="LineNr"> 34 </span> increment *top-addr -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> -<span id="L36" class="LineNr"> 36 </span> copy-to *type-addr, <span class="Constant">0</span>/number -<span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> -<span id="L38" class="LineNr"> 38 </span> -<span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L39'>push-int-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), _val: int <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, number-data -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert _val -<span id="L49" class="LineNr"> 49 </span> copy-to *dest-addr2, val -<span id="L50" class="LineNr"> 50 </span> increment *top-addr -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> -<span id="L52" class="LineNr"> 52 </span> copy-to *type-addr, <span class="Constant">0</span>/number -<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> -<span id="L55" class="LineNr"> 55 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L55'>push-string-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), val: (handle array byte) <span class="Delimiter">{</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, text-data -<span id="L64" class="LineNr"> 64 </span> <a href='../../120allocate.subx.html#L497'>copy-handle</a> val, dest-addr2 -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> dest-addr3/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> -<span id="L66" class="LineNr"> 66 </span> copy-to *dest-addr3, <span class="Constant">1</span>/string -<span id="L67" class="LineNr"> 67 </span> increment *top-addr -<span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> -<span id="L69" class="LineNr"> 69 </span> -<span id="L70" class="LineNr"> 70 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L70'>push-array-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), val: (handle array <a href='value.mu.html#L2'>value</a>) <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, array-data -<span id="L79" class="LineNr"> 79 </span> <a href='../../120allocate.subx.html#L497'>copy-handle</a> val, dest-addr2 -<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># update type</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> dest-addr3/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> -<span id="L82" class="LineNr"> 82 </span> copy-to *dest-addr3, <span class="Constant">2</span>/array -<span id="L83" class="LineNr"> 83 </span> increment *top-addr -<span id="L84" class="LineNr"> 84 </span><span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> -<span id="L86" class="LineNr"> 86 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), _val: boolean <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, boolean-data -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> val/<span class="Constant">esi</span>: boolean <span class="SpecialChar"><-</span> copy _val -<span id="L96" class="LineNr"> 96 </span> copy-to *dest-addr2, val -<span id="L97" class="LineNr"> 97 </span> increment *top-addr -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> -<span id="L99" class="LineNr"> 99 </span> copy-to *type-addr, <span class="Constant">3</span>/boolean -<span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> -<span id="L101" class="LineNr">101 </span> -<span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L102'>push-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), val: (addr <a href='value.mu.html#L2'>value</a>) <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L110" class="LineNr">110 </span> copy-object val, dest-addr -<span id="L111" class="LineNr">111 </span> increment *top-addr -<span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> -<span id="L113" class="LineNr">113 </span> -<span id="L114" class="LineNr">114 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L114'>pop-number-from-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L117" class="LineNr">117 </span> <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">break-if-></span> -<span id="L120" class="LineNr">120 </span> abort <span class="Constant">"pop number: empty stack"</span> -<span id="L121" class="LineNr">121 </span> <span class="Delimiter">}</span> -<span id="L122" class="LineNr">122 </span> decrement *top-addr -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> result-addr2/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> result-addr, number-data -<span id="L129" class="LineNr">129 </span> <span class="PreProc">return</span> *result-addr2 -<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> -<span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L135" class="LineNr">135 </span> <span class="Delimiter">{</span> -<span id="L136" class="LineNr">136 </span> compare *top-addr, <span class="Constant">0</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">break-if-></span> -<span id="L138" class="LineNr">138 </span> abort <span class="Constant">"pop boolean: empty stack"</span> -<span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> -<span id="L140" class="LineNr">140 </span> decrement *top-addr -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> result-addr2/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> result-addr, boolean-data -<span id="L147" class="LineNr">147 </span> <span class="PreProc">return</span> *result-addr2 -<span id="L148" class="LineNr">148 </span><span class="Delimiter">}</span> -<span id="L149" class="LineNr">149 </span> -<span id="L150" class="LineNr">150 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L150'>value-stack-empty?</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L153" class="LineNr">153 </span> compare *top, <span class="Constant">0</span> -<span id="L154" class="LineNr">154 </span> <span class="Delimiter">{</span> -<span id="L155" class="LineNr">155 </span> <span class="PreProc">break-if-!=</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L157" class="LineNr">157 </span> <span class="Delimiter">}</span> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> -<span id="L160" class="LineNr">160 </span> -<span id="L161" class="LineNr">161 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L161'>value-stack-length</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">return</span> *top-addr -<span id="L165" class="LineNr">165 </span><span class="Delimiter">}</span> -<span id="L166" class="LineNr">166 </span> -<span id="L167" class="LineNr">167 </span><span class="PreProc">fn</span> <span class="muTest"><a href='value-stack.mu.html#L167'>test-boolean</a></span> <span class="Delimiter">{</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> stack/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address stack-storage -<span id="L170" class="LineNr">170 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> stack, <span class="Constant">0</span>/false -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a> stack -<span id="L172" class="LineNr">172 </span> check-not result, <span class="Constant">"F - <a href='value-stack.mu.html#L167'>test-boolean</a>/false"</span> -<span id="L173" class="LineNr">173 </span> <a href='value-stack.mu.html#L86'>push-boolean-to-value-stack</a> stack, <span class="Constant">1</span>/true -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L132'>pop-boolean-from-value-stack</a> stack -<span id="L175" class="LineNr">175 </span> check result, <span class="Constant">"F - <a href='value-stack.mu.html#L167'>test-boolean</a>/true"</span> -<span id="L176" class="LineNr">176 </span><span class="Delimiter">}</span> -<span id="L177" class="LineNr">177 </span> -<span id="L178" class="LineNr">178 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L178'>dump-stack</a></span> _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="Delimiter">{</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L185" class="LineNr">185 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> draw-text-rightward-over-full-screen <span class="Constant">0</span>/screen, <span class="Constant">"=="</span>, <span class="Constant">0</span>/x, <span class="Constant">9</span>/y, <span class="Constant">0xc</span>/red, <span class="Constant">0</span>/bg -<span id="L188" class="LineNr">188 </span> <span class="Delimiter">{</span> -<span id="L189" class="LineNr">189 </span> compare <a href='../../203stack.subx.html#L338'>top</a>, <span class="Constant">0</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if-<</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">eax</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L12'>render-value</a> <span class="Constant">0</span>/screen, curr, <span class="Constant">0</span>/x, y, <span class="Constant">0</span>/no-color -<span id="L194" class="LineNr">194 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L195" class="LineNr">195 </span> y <span class="SpecialChar"><-</span> increment -<span id="L196" class="LineNr">196 </span> <span class="PreProc">loop</span> -<span id="L197" class="LineNr">197 </span> <span class="Delimiter">}</span> -<span id="L198" class="LineNr">198 </span><span class="Delimiter">}</span> -<span id="L199" class="LineNr">199 </span> -<span id="L200" class="LineNr">200 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L200'>render-value-stack</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='value-stack.mu.html#L4'>value-stack</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> self/<span class="Constant">ecx</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> curr-idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L207" class="LineNr">207 </span> curr-idx <span class="SpecialChar"><-</span> decrement -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> new-x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L209" class="LineNr">209 </span> <span class="Delimiter">{</span> -<span id="L210" class="LineNr">210 </span> compare curr-idx, <span class="Constant">0</span> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">break-if-<</span> -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">eax</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, curr-idx -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> curr-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L12'>render-value</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr, x, y, <span class="Constant">1</span>/top-level -<span id="L215" class="LineNr">215 </span> <span class="Delimiter">{</span> -<span id="L216" class="LineNr">216 </span> compare curr-x, new-x -<span id="L217" class="LineNr">217 </span> <span class="PreProc">break-if-<=</span> -<span id="L218" class="LineNr">218 </span> new-x <span class="SpecialChar"><-</span> copy curr-x -<span id="L219" class="LineNr">219 </span> <span class="Delimiter">}</span> -<span id="L220" class="LineNr">220 </span> curr-idx <span class="SpecialChar"><-</span> decrement -<span id="L221" class="LineNr">221 </span> increment y -<span id="L222" class="LineNr">222 </span> <span class="PreProc">loop</span> -<span id="L223" class="LineNr">223 </span> <span class="Delimiter">}</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">return</span> new-x, y -<span id="L225" class="LineNr">225 </span><span class="Delimiter">}</span> -<span id="L226" class="LineNr">226 </span> -<span id="L227" class="LineNr">227 </span><span class="PreProc">fn</span> <span class="muTest"><a href='value-stack.mu.html#L227'>test-render-value-stack</a></span> <span class="Delimiter">{</span> -<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L4'>value-stack</a> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> stack/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L4'>value-stack</a>) <span class="SpecialChar"><-</span> address stack-storage -<span id="L230" class="LineNr">230 </span> <a href='value-stack.mu.html#L39'>push-int-to-value-stack</a> stack, <span class="Constant">3</span> -<span id="L231" class="LineNr">231 </span> <span class="muComment"># setup: screen</span> -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L234" class="LineNr">234 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L235" class="LineNr">235 </span> <span class="muComment">#</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> final-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> final-y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L238" class="LineNr">238 </span> final-x, final-y <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L200'>render-value-stack</a> <a href='../../405screen.mu.html#L9'>screen</a>, stack, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y -<span id="L239" class="LineNr">239 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> final-y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='value-stack.mu.html#L227'>test-render-value-stack</a> y"</span> -<span id="L240" class="LineNr">240 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> final-x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='value-stack.mu.html#L227'>test-render-value-stack</a> x"</span> -<span id="L241" class="LineNr">241 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/shell/value.mu.html b/html/baremetal/shell/value.mu.html deleted file mode 100644 index 34998ed2..00000000 --- a/html/baremetal/shell/value.mu.html +++ /dev/null @@ -1,326 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/shell/value.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/shell/value.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/value.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="muComment"># todo: turn this into a sum type</span> -<span id="L2" class="LineNr"> 2 </span><span class="PreProc">type</span> <a href='value.mu.html#L2'>value</a> <span class="Delimiter">{</span> -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">type</span>: int -<span id="L4" class="LineNr"> 4 </span> number-data: float <span class="muComment"># if type = 0</span> -<span id="L5" class="LineNr"> 5 </span> text-data: (handle array byte) <span class="muComment"># if type = 1</span> -<span id="L6" class="LineNr"> 6 </span> array-data: (handle array <a href='value.mu.html#L2'>value</a>) <span class="muComment"># if type = 2</span> -<span id="L7" class="LineNr"> 7 </span> boolean-data: boolean <span class="muComment"># if type = 3</span> -<span id="L8" class="LineNr"> 8 </span><span class="Delimiter">}</span> -<span id="L9" class="LineNr"> 9 </span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># top-level? is a hack just for numbers</span> -<span id="L11" class="LineNr"> 11 </span><span class="muComment"># we'll eventually need to return a y coordinate as well to render 2D values</span> -<span id="L12" class="LineNr"> 12 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L12'>render-value</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _val: (addr <a href='value.mu.html#L2'>value</a>), x: int, y: int, top-level?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> val/<span class="Constant">esi</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _val -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> val-type/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, <span class="PreProc">type</span> -<span id="L15" class="LineNr"> 15 </span> compare *val-type, <span class="Constant">1</span>/string -<span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">{</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-!=</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, text-data -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> _val-string/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *val-ah -<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> val-string/<span class="Constant">ecx</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _val-string -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L128'>render-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, val-string, x, y -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">return</span> new-x -<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> -<span id="L24" class="LineNr"> 24 </span> compare *val-type, <span class="Constant">2</span>/array -<span id="L25" class="LineNr"> 25 </span> <span class="Delimiter">{</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if-!=</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, array-data -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> _val-array/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *val-ah -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> val-array/<span class="Constant">edx</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _val-array -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L200'>render-array</a> <a href='../../405screen.mu.html#L9'>screen</a>, val-array, x, y -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">return</span> new-x -<span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> -<span id="L33" class="LineNr"> 33 </span> compare *val-type, <span class="Constant">3</span>/boolean -<span id="L34" class="LineNr"> 34 </span> <span class="Delimiter">{</span> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">break-if-!=</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, boolean-data -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L253'>render-boolean</a> <a href='../../405screen.mu.html#L9'>screen</a>, *val, x, y -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">return</span> new-x -<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">}</span> -<span id="L40" class="LineNr"> 40 </span> <span class="muComment"># render ints by default for now</span> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> val-num/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, number-data -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L66'>render-number</a> <a href='../../405screen.mu.html#L9'>screen</a>, *val-num, x, y, top-level? -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">return</span> new-x -<span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> -<span id="L45" class="LineNr"> 45 </span> -<span id="L46" class="LineNr"> 46 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L46'>initialize-value-with-integer</a></span> _self: (addr <a href='value.mu.html#L2'>value</a>), n: int <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <span class="PreProc">type</span> -<span id="L49" class="LineNr"> 49 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">0</span>/number -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert n -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, number-data -<span id="L52" class="LineNr"> 52 </span> copy-to *dest, val -<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> -<span id="L55" class="LineNr"> 55 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L55'>initialize-value-with-float</a></span> _self: (addr <a href='value.mu.html#L2'>value</a>), n: float <span class="Delimiter">{</span> -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <span class="PreProc">type</span> -<span id="L58" class="LineNr"> 58 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">0</span>/number -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy n -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, number-data -<span id="L61" class="LineNr"> 61 </span> copy-to *dest, val -<span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> -<span id="L63" class="LineNr"> 63 </span> -<span id="L64" class="LineNr"> 64 </span><span class="muComment"># synaesthesia</span> -<span id="L65" class="LineNr"> 65 </span><span class="muComment"># TODO: right-justify</span> -<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L66'>render-number</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), val: float, x: int, y: int, top-level?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># if we're inside an array, don't color</span> -<span id="L68" class="LineNr"> 68 </span> compare top-level?, <span class="Constant">0</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break-if-!=</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> render-float-decimal <a href='../../405screen.mu.html#L9'>screen</a>, val, <span class="Constant">3</span>/precision, x, y, <span class="Constant">3</span>/fg, <span class="Constant">0</span>/bg -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">return</span> new-x -<span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">}</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> val-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert val -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> _bg/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L101'>hash-color</a> val-int -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> bg/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _bg -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> fg/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">7</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> compare bg, <span class="Constant">2</span> -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">break-if-!=</span> -<span id="L81" class="LineNr"> 81 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">}</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">{</span> -<span id="L84" class="LineNr"> 84 </span> compare bg, <span class="Constant">3</span> -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">break-if-!=</span> -<span id="L86" class="LineNr"> 86 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> -<span id="L89" class="LineNr"> 89 </span> compare bg, <span class="Constant">6</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-!=</span> -<span id="L91" class="LineNr"> 91 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> -<span id="L93" class="LineNr"> 93 </span> draw-code-point <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space, x, y, fg, bg -<span id="L94" class="LineNr"> 94 </span> increment x -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> render-float-decimal <a href='../../405screen.mu.html#L9'>screen</a>, val, <span class="Constant">3</span>/precision, x, y, fg, bg -<span id="L96" class="LineNr"> 96 </span> draw-code-point <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space, new-x, y, fg, bg -<span id="L97" class="LineNr"> 97 </span> new-x <span class="SpecialChar"><-</span> increment -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">return</span> new-x -<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> -<span id="L100" class="LineNr">100 </span> -<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L101'>hash-color</a></span> val: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> quotient/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L104" class="LineNr">104 </span> quotient, remainder <span class="SpecialChar"><-</span> <a href='../../314divide.subx.html#L3'>integer-divide</a> val, <span class="Constant">7</span> <span class="muComment"># assumes that 7 is always the background color</span> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">return</span> remainder -<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> -<span id="L107" class="LineNr">107 </span> -<span id="L108" class="LineNr">108 </span><span class="PreProc">fn</span> <span class="muTest"><a href='value.mu.html#L108'>test-render-number</a></span> <span class="Delimiter">{</span> -<span id="L109" class="LineNr">109 </span> <span class="muComment"># setup: screen</span> -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L112" class="LineNr">112 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L113" class="LineNr">113 </span> <span class="muComment"># integers render with some padding spaces</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L66'>render-number</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/n, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/at-top-level -<span id="L115" class="LineNr">115 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">" 0 "</span>, <span class="Constant">"F - test-render-number"</span> -<span id="L116" class="LineNr">116 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> new-x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='value.mu.html#L108'>test-render-number</a>: result"</span> -<span id="L117" class="LineNr">117 </span> <span class="muComment"># we won't bother testing the background colors; lots of flexibility there</span> -<span id="L118" class="LineNr">118 </span><span class="Delimiter">}</span> -<span id="L119" class="LineNr">119 </span> -<span id="L120" class="LineNr">120 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L120'>initialize-value-with-string</a></span> _self: (addr <a href='value.mu.html#L2'>value</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <span class="PreProc">type</span> -<span id="L123" class="LineNr">123 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">1</span>/string -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, text-data -<span id="L125" class="LineNr">125 </span> <a href='../../312copy.subx.html#L3'>copy-array-object</a> s, dest -<span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> -<span id="L127" class="LineNr">127 </span> -<span id="L128" class="LineNr">128 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L128'>render-string</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _val: (addr array byte), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> val/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _val -<span id="L130" class="LineNr">130 </span> compare val, <span class="Constant">0</span> -<span id="L131" class="LineNr">131 </span> <span class="Delimiter">{</span> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if-!=</span> -<span id="L133" class="LineNr">133 </span> <span class="PreProc">return</span> x -<span id="L134" class="LineNr">134 </span> <span class="Delimiter">}</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> orig-len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length val -<span id="L136" class="LineNr">136 </span> <span class="muComment"># truncate to 12 graphemes</span> -<span id="L137" class="LineNr">137 </span> <span class="muComment"># TODO: more sophisticated interactive rendering</span> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> truncated: (handle array byte) -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> truncated-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address truncated -<span id="L140" class="LineNr">140 </span> <a href='../../411string.mu.html#L2'>substring</a> val, <span class="Constant">0</span>, <span class="Constant">0xc</span>, truncated-ah -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> _truncated-string/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *truncated-ah -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> truncated-string/<span class="Constant">edx</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _truncated-string -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> len/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> length truncated-string -<span id="L144" class="LineNr">144 </span> draw-code-point <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x22</span>/double-quote, x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L145" class="LineNr">145 </span> increment x -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> draw-text-rightward-over-full-screen <a href='../../405screen.mu.html#L9'>screen</a>, truncated-string, x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L147" class="LineNr">147 </span> compare len, orig-len -<span id="L148" class="LineNr">148 </span> <span class="Delimiter">{</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">break-if-=</span> -<span id="L150" class="LineNr">150 </span> new-x <span class="SpecialChar"><-</span> draw-text-rightward-over-full-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"..."</span>, new-x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> -<span id="L152" class="LineNr">152 </span> draw-code-point <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x22</span>/double-quote, new-x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L153" class="LineNr">153 </span> new-x <span class="SpecialChar"><-</span> increment -<span id="L154" class="LineNr">154 </span> <span class="PreProc">return</span> new-x -<span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> -<span id="L156" class="LineNr">156 </span> -<span id="L157" class="LineNr">157 </span><span class="PreProc">fn</span> <span class="muTest"><a href='value.mu.html#L157'>test-render-string</a></span> <span class="Delimiter">{</span> -<span id="L158" class="LineNr">158 </span> <span class="muComment"># setup: screen</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L161" class="LineNr">161 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L162" class="LineNr">162 </span> <span class="muComment"># strings render with quotes</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L128'>render-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"abc"</span>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y -<span id="L164" class="LineNr">164 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"\"</span>abc\<span class="Constant">""</span>, <span class="Constant">"F - test-render-string"</span> -<span id="L165" class="LineNr">165 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> new-x, <span class="Constant">5</span>, <span class="Constant">"F - <a href='value.mu.html#L157'>test-render-string</a>: result"</span> -<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span> -<span id="L167" class="LineNr">167 </span> -<span id="L168" class="LineNr">168 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L168'>initialize-value-with-array-of-integers</a></span> _self: (addr <a href='value.mu.html#L2'>value</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="muComment"># parse s into a temporary array of ints</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> tmp-storage: (handle array int) -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle array int) <span class="SpecialChar"><-</span> address tmp-storage -<span id="L172" class="LineNr">172 </span> <a href='../../311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> s, tmp-ah <span class="muComment"># leak</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> _tmp/<span class="Constant">eax</span>: (addr array int ) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *tmp-ah -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> tmp/<span class="Constant">esi</span>: (addr array int ) <span class="SpecialChar"><-</span> copy _tmp -<span id="L175" class="LineNr">175 </span> <span class="muComment"># load the array into values</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> self/<span class="Constant">edi</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <span class="PreProc">type</span> -<span id="L178" class="LineNr">178 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">2</span>/string -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> dest-array-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, array-data -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> len/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> length tmp -<span id="L181" class="LineNr">181 </span> populate dest-array-ah, len -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> _dest-array/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *dest-array-ah -<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> dest-array/<span class="Constant">edi</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _dest-array -<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L185" class="LineNr">185 </span> <span class="Delimiter">{</span> -<span id="L186" class="LineNr">186 </span> compare i, len -<span id="L187" class="LineNr">187 </span> <span class="PreProc">break-if->=</span> -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> index tmp, i -<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *src-addr -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> src-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert src -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset dest-array, i -<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">edx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index dest-array, dest-offset -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-val, number-data -<span id="L194" class="LineNr">194 </span> copy-to *dest, src-f -<span id="L195" class="LineNr">195 </span> i <span class="SpecialChar"><-</span> increment -<span id="L196" class="LineNr">196 </span> <span class="PreProc">loop</span> -<span id="L197" class="LineNr">197 </span> <span class="Delimiter">}</span> -<span id="L198" class="LineNr">198 </span><span class="Delimiter">}</span> -<span id="L199" class="LineNr">199 </span> -<span id="L200" class="LineNr">200 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L200'>render-array</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _arr: (addr array <a href='value.mu.html#L2'>value</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L201" class="LineNr">201 </span> <span class="muComment"># don't surround in spaces</span> -<span id="L202" class="LineNr">202 </span> draw-code-point <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5b</span>/open-bracket, x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L203" class="LineNr">203 </span> increment x -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> arr/<span class="Constant">esi</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _arr -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> max/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length arr -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L208" class="LineNr">208 </span> <span class="Delimiter">{</span> -<span id="L209" class="LineNr">209 </span> compare i, max -<span id="L210" class="LineNr">210 </span> <span class="PreProc">break-if->=</span> -<span id="L211" class="LineNr">211 </span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> compare i, <span class="Constant">0</span> -<span id="L213" class="LineNr">213 </span> <span class="PreProc">break-if-=</span> -<span id="L214" class="LineNr">214 </span> draw-code-point <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space, new-x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L215" class="LineNr">215 </span> new-x <span class="SpecialChar"><-</span> increment -<span id="L216" class="LineNr">216 </span> <span class="Delimiter">}</span> -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> off/<span class="Constant">ecx</span>: (offset <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> compute-offset arr, i -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> index arr, off -<span id="L219" class="LineNr">219 </span> new-x <span class="SpecialChar"><-</span> <a href='value.mu.html#L12'>render-value</a> <a href='../../405screen.mu.html#L9'>screen</a>, x, new-x, y, <span class="Constant">0</span>/nested -<span id="L220" class="LineNr">220 </span> i <span class="SpecialChar"><-</span> increment -<span id="L221" class="LineNr">221 </span> <span class="PreProc">loop</span> -<span id="L222" class="LineNr">222 </span> <span class="Delimiter">}</span> -<span id="L223" class="LineNr">223 </span> draw-code-point <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5d</span>/close-bracket, new-x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L224" class="LineNr">224 </span> new-x <span class="SpecialChar"><-</span> increment -<span id="L225" class="LineNr">225 </span> <span class="PreProc">return</span> new-x -<span id="L226" class="LineNr">226 </span><span class="Delimiter">}</span> -<span id="L227" class="LineNr">227 </span> -<span id="L228" class="LineNr">228 </span><span class="PreProc">fn</span> <span class="muTest"><a href='value.mu.html#L228'>test-render-array</a></span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> <span class="muComment"># setup: screen</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L232" class="LineNr">232 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L233" class="LineNr">233 </span> <span class="muComment">#</span> -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> val-storage: <a href='value.mu.html#L2'>value</a> -<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> address val-storage -<span id="L236" class="LineNr">236 </span> <a href='value.mu.html#L168'>initialize-value-with-array-of-integers</a> val, <span class="Constant">"0 1 2"</span> -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> val-array-ah/<span class="Constant">eax</span>: (addr handle array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, array-data -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> val-array/<span class="Constant">eax</span>: (addr array <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *val-array-ah -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L200'>render-array</a> <a href='../../405screen.mu.html#L9'>screen</a>, val-array, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y -<span id="L240" class="LineNr">240 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"[0 1 2]"</span>, <span class="Constant">"F - test-render-array"</span> -<span id="L241" class="LineNr">241 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> new-x, <span class="Constant">7</span>, <span class="Constant">"F - <a href='value.mu.html#L228'>test-render-array</a>: result"</span> -<span id="L242" class="LineNr">242 </span><span class="Delimiter">}</span> -<span id="L243" class="LineNr">243 </span> -<span id="L244" class="LineNr">244 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L244'>initialize-value-with-boolean</a></span> _self: (addr <a href='value.mu.html#L2'>value</a>), _b: boolean <span class="Delimiter">{</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value.mu.html#L2'>value</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <span class="PreProc">type</span> -<span id="L247" class="LineNr">247 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">3</span>/boolean -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, boolean-data -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> b/<span class="Constant">esi</span>: boolean <span class="SpecialChar"><-</span> copy _b -<span id="L250" class="LineNr">250 </span> copy-to *dest, b -<span id="L251" class="LineNr">251 </span><span class="Delimiter">}</span> -<span id="L252" class="LineNr">252 </span> -<span id="L253" class="LineNr">253 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L253'>render-boolean</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), val: boolean, x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L255" class="LineNr">255 </span> compare val, <span class="Constant">0</span>/false -<span id="L256" class="LineNr">256 </span> <span class="Delimiter">{</span> -<span id="L257" class="LineNr">257 </span> <span class="PreProc">break-if-=</span> -<span id="L258" class="LineNr">258 </span> new-x <span class="SpecialChar"><-</span> draw-text-rightward-over-full-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"true"</span>, new-x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L259" class="LineNr">259 </span> <span class="PreProc">return</span> new-x -<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> -<span id="L261" class="LineNr">261 </span> new-x <span class="SpecialChar"><-</span> draw-text-rightward-over-full-screen <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"false"</span>, new-x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg -<span id="L262" class="LineNr">262 </span> <span class="PreProc">return</span> new-x -<span id="L263" class="LineNr">263 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/shell/word.mu.html b/html/baremetal/shell/word.mu.html deleted file mode 100644 index f69a8c09..00000000 --- a/html/baremetal/shell/word.mu.html +++ /dev/null @@ -1,784 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/shell/word.mu</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } -.LineNr { } -.Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muTest { color: #5f8700; } -.muComment { color: #005faf; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/shell/word.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/word.mu</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='word.mu.html#L1'>word</a> <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> scalar-data: (handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) -<span id="L3" class="LineNr"> 3 </span> next: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L4" class="LineNr"> 4 </span> prev: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L5" class="LineNr"> 5 </span><span class="Delimiter">}</span> -<span id="L6" class="LineNr"> 6 </span> -<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L7'>initialize-word</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L10" class="LineNr"> 10 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L12" class="LineNr"> 12 </span> <a href='gap-buffer.mu.html#L9'>initialize-gap-buffer</a> data -<span id="L13" class="LineNr"> 13 </span><span class="Delimiter">}</span> -<span id="L14" class="LineNr"> 14 </span> -<span id="L15" class="LineNr"> 15 </span><span class="muComment">## some helpers for creating words. mostly for tests</span> -<span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L17'>initialize-word-with</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L20" class="LineNr"> 20 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L22" class="LineNr"> 22 </span> <a href='gap-buffer.mu.html#L18'>initialize-gap-buffer-with</a> data, s -<span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> -<span id="L24" class="LineNr"> 24 </span> -<span id="L25" class="LineNr"> 25 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L25'>allocate-word-with</a></span> _out: (addr handle <a href='word.mu.html#L1'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _out -<span id="L27" class="LineNr"> 27 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> out -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *out -<span id="L29" class="LineNr"> 29 </span> <a href='word.mu.html#L17'>initialize-word-with</a> out-addr, s -<span id="L30" class="LineNr"> 30 </span><span class="Delimiter">}</span> -<span id="L31" class="LineNr"> 31 </span> -<span id="L32" class="LineNr"> 32 </span><span class="muComment"># just for tests for now</span> -<span id="L33" class="LineNr"> 33 </span><span class="muComment"># TODO: handle existing next</span> -<span id="L34" class="LineNr"> 34 </span><span class="muComment"># one implication of handles: append must take a handle</span> -<span id="L35" class="LineNr"> 35 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L35'>append-word-with</a></span> self-h: (handle <a href='word.mu.html#L1'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> self-h -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L38" class="LineNr"> 38 </span> <a href='word.mu.html#L25'>allocate-word-with</a> next-ah, s -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-ah -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev -<span id="L41" class="LineNr"> 41 </span> <a href='../../120allocate.subx.html#L497'>copy-handle</a> self-h, prev-ah -<span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> -<span id="L43" class="LineNr"> 43 </span> -<span id="L44" class="LineNr"> 44 </span><span class="muComment"># just for tests for now</span> -<span id="L45" class="LineNr"> 45 </span><span class="muComment"># TODO: handle existing prev</span> -<span id="L46" class="LineNr"> 46 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L46'>prepend-word-with</a></span> self-h: (handle <a href='word.mu.html#L1'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> self-h -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, prev -<span id="L49" class="LineNr"> 49 </span> <a href='word.mu.html#L25'>allocate-word-with</a> prev-ah, s -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> prev/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *prev-ah -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> prev, next -<span id="L52" class="LineNr"> 52 </span> <a href='../../120allocate.subx.html#L497'>copy-handle</a> self-h, next-ah -<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> -<span id="L55" class="LineNr"> 55 </span><span class="muComment">## real primitives</span> -<span id="L56" class="LineNr"> 56 </span> -<span id="L57" class="LineNr"> 57 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L57'>move-word-contents</a></span> _src-ah: (addr handle <a href='word.mu.html#L1'>word</a>), _dest-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *dest-ah -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> _src/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-ah -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L64" class="LineNr"> 64 </span> <a href='word.mu.html#L216'>cursor-to-start</a> src -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, scalar-data -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> src-data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-data-ah -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> src-stack/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-data, right -<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L23'>grapheme-stack-empty?</a> src-stack -<span id="L70" class="LineNr"> 70 </span> compare done?, <span class="Constant">0</span>/false -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if-!=</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a> src-stack -<span id="L73" class="LineNr"> 73 </span> <a href='word.mu.html#L179'>add-grapheme-to-word</a> dest, g -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">loop</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">}</span> -<span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> -<span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L78'>copy-word-contents-before-cursor</a></span> _src-ah: (addr handle <a href='word.mu.html#L1'>word</a>), _dest-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *dest-ah -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-ah -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, scalar-data -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> src-data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-data-ah -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> src-stack/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-data, left -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> src-stack-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-stack, data -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> _src-stack-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-stack-data-ah -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> src-stack-data/<span class="Constant">edx</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _src-stack-data -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-stack, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">{</span> -<span id="L93" class="LineNr"> 93 </span> compare i, *top-addr -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">break-if->=</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index src-stack-data, i -<span id="L96" class="LineNr"> 96 </span> <a href='word.mu.html#L179'>add-grapheme-to-word</a> dest, *g -<span id="L97" class="LineNr"> 97 </span> i <span class="SpecialChar"><-</span> increment -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">loop</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> -<span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> -<span id="L101" class="LineNr">101 </span> -<span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L102'>word-equal?</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L251'>gap-buffer-equal?</a> data, s -<span id="L107" class="LineNr">107 </span> <span class="PreProc">return</span> result -<span id="L108" class="LineNr">108 </span><span class="Delimiter">}</span> -<span id="L109" class="LineNr">109 </span> -<span id="L110" class="LineNr">110 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L110'>words-equal?</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>), _w: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> data/<span class="Constant">ecx</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> w-data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> w, scalar-data -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> w-data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w-data-ah -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L340'>gap-buffers-equal?</a> data, w-data -<span id="L119" class="LineNr">119 </span> <span class="PreProc">return</span> result -<span id="L120" class="LineNr">120 </span><span class="Delimiter">}</span> -<span id="L121" class="LineNr">121 </span> -<span id="L122" class="LineNr">122 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L122'>word-length</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L106'>gap-buffer-length</a> data -<span id="L127" class="LineNr">127 </span> <span class="PreProc">return</span> result -<span id="L128" class="LineNr">128 </span><span class="Delimiter">}</span> -<span id="L129" class="LineNr">129 </span> -<span id="L130" class="LineNr">130 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L130'>first-word</a></span> _in: (addr handle <a href='word.mu.html#L1'>word</a>), out: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _in -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> prev/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L134" class="LineNr">134 </span> <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span> prev <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, prev -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *prev -<span id="L137" class="LineNr">137 </span> compare curr, <span class="Constant">0</span> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-=</span> -<span id="L139" class="LineNr">139 </span> copy-object prev, curr-ah -<span id="L140" class="LineNr">140 </span> <span class="PreProc">loop</span> -<span id="L141" class="LineNr">141 </span> <span class="Delimiter">}</span> -<span id="L142" class="LineNr">142 </span> copy-object curr-ah, out -<span id="L143" class="LineNr">143 </span><span class="Delimiter">}</span> -<span id="L144" class="LineNr">144 </span> -<span id="L145" class="LineNr">145 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L145'>final-word</a></span> _in: (addr handle <a href='word.mu.html#L1'>word</a>), out: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> curr-h: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address curr-h -<span id="L148" class="LineNr">148 </span> copy-object _in, curr-ah -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> next/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L151" class="LineNr">151 </span> <span class="Delimiter">{</span> -<span id="L152" class="LineNr">152 </span> curr <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah -<span id="L153" class="LineNr">153 </span> next <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L154" class="LineNr">154 </span> curr <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next -<span id="L155" class="LineNr">155 </span> compare curr, <span class="Constant">0</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if-=</span> -<span id="L157" class="LineNr">157 </span> copy-object next, curr-ah -<span id="L158" class="LineNr">158 </span> <span class="PreProc">loop</span> -<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> -<span id="L160" class="LineNr">160 </span> copy-object curr-ah, out <span class="muComment"># modify 'out' right at the end, just in case it's same as 'in'</span> -<span id="L161" class="LineNr">161 </span><span class="Delimiter">}</span> -<span id="L162" class="LineNr">162 </span> -<span id="L163" class="LineNr">163 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L163'>first-grapheme</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L192'>first-grapheme-in-gap-buffer</a> data -<span id="L168" class="LineNr">168 </span> <span class="PreProc">return</span> result -<span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> -<span id="L170" class="LineNr">170 </span> -<span id="L171" class="LineNr">171 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L171'>grapheme-before-cursor</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L222'>grapheme-before-cursor-in-gap-buffer</a> data -<span id="L176" class="LineNr">176 </span> <span class="PreProc">return</span> result -<span id="L177" class="LineNr">177 </span><span class="Delimiter">}</span> -<span id="L178" class="LineNr">178 </span> -<span id="L179" class="LineNr">179 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L179'>add-grapheme-to-word</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>), c: grapheme <span class="Delimiter">{</span> -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L183" class="LineNr">183 </span> <a href='gap-buffer.mu.html#L118'>add-grapheme-at-gap</a> data, c -<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> -<span id="L185" class="LineNr">185 </span> -<span id="L186" class="LineNr">186 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L186'>cursor-at-start?</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L140'>gap-at-start?</a> data -<span id="L191" class="LineNr">191 </span> <span class="PreProc">return</span> result -<span id="L192" class="LineNr">192 </span><span class="Delimiter">}</span> -<span id="L193" class="LineNr">193 </span> -<span id="L194" class="LineNr">194 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L194'>cursor-at-end?</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L147'>gap-at-end?</a> data -<span id="L199" class="LineNr">199 </span> <span class="PreProc">return</span> result -<span id="L200" class="LineNr">200 </span><span class="Delimiter">}</span> -<span id="L201" class="LineNr">201 </span> -<span id="L202" class="LineNr">202 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L202'>cursor-left</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L205" class="LineNr">205 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L168'>gap-left</a> data -<span id="L207" class="LineNr">207 </span><span class="Delimiter">}</span> -<span id="L208" class="LineNr">208 </span> -<span id="L209" class="LineNr">209 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L209'>cursor-right</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L154'>gap-right</a> data -<span id="L214" class="LineNr">214 </span><span class="Delimiter">}</span> -<span id="L215" class="LineNr">215 </span> -<span id="L216" class="LineNr">216 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L216'>cursor-to-start</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L220" class="LineNr">220 </span> <a href='gap-buffer.mu.html#L124'>gap-to-start</a> data -<span id="L221" class="LineNr">221 </span><span class="Delimiter">}</span> -<span id="L222" class="LineNr">222 </span> -<span id="L223" class="LineNr">223 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L223'>cursor-to-end</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L227" class="LineNr">227 </span> <a href='gap-buffer.mu.html#L132'>gap-to-end</a> data -<span id="L228" class="LineNr">228 </span><span class="Delimiter">}</span> -<span id="L229" class="LineNr">229 </span> -<span id="L230" class="LineNr">230 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L230'>cursor-index</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L184'>index-of-gap</a> data -<span id="L235" class="LineNr">235 </span> <span class="PreProc">return</span> result -<span id="L236" class="LineNr">236 </span><span class="Delimiter">}</span> -<span id="L237" class="LineNr">237 </span> -<span id="L238" class="LineNr">238 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L238'>delete-before-cursor</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L242" class="LineNr">242 </span> <a href='gap-buffer.mu.html#L238'>delete-before-gap</a> data -<span id="L243" class="LineNr">243 </span><span class="Delimiter">}</span> -<span id="L244" class="LineNr">244 </span> -<span id="L245" class="LineNr">245 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L245'>pop-after-cursor</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L244'>pop-after-gap</a> data -<span id="L250" class="LineNr">250 </span> <span class="PreProc">return</span> result -<span id="L251" class="LineNr">251 </span><span class="Delimiter">}</span> -<span id="L252" class="LineNr">252 </span> -<span id="L253" class="LineNr">253 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L253'>delete-next</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-ah -<span id="L257" class="LineNr">257 </span> compare next, <span class="Constant">0</span> -<span id="L258" class="LineNr">258 </span> <span class="PreProc">break-if-=</span> -<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> next-next-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, next -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev -<span id="L261" class="LineNr">261 </span> copy-object next-next-ah, next-ah -<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> new-next/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-next-ah -<span id="L263" class="LineNr">263 </span> compare new-next, <span class="Constant">0</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">break-if-=</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-next, prev -<span id="L266" class="LineNr">266 </span> copy-object self-ah, dest -<span id="L267" class="LineNr">267 </span><span class="Delimiter">}</span> -<span id="L268" class="LineNr">268 </span> -<span id="L269" class="LineNr">269 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L269'>render-word</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='word.mu.html#L1'>word</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L81'>render-gap-buffer</a> <a href='../../405screen.mu.html#L9'>screen</a>, data, x, y, render-cursor? -<span id="L274" class="LineNr">274 </span> <span class="PreProc">return</span> result -<span id="L275" class="LineNr">275 </span><span class="Delimiter">}</span> -<span id="L276" class="LineNr">276 </span> -<span id="L277" class="LineNr">277 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L277'>render-words</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _words-ah: (addr handle <a href='word.mu.html#L1'>word</a>), x: int, y: int, cursor-word-addr: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> words-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _words-ah -<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> _words-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *words-ah -<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> words-a/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _words-a -<span id="L281" class="LineNr">281 </span> compare words-a, <span class="Constant">0</span> -<span id="L282" class="LineNr">282 </span> <span class="Delimiter">{</span> -<span id="L283" class="LineNr">283 </span> <span class="PreProc">break-if-!=</span> -<span id="L284" class="LineNr">284 </span> <span class="PreProc">return</span> x -<span id="L285" class="LineNr">285 </span> <span class="Delimiter">}</span> -<span id="L286" class="LineNr">286 </span> <span class="muComment"># print</span> -<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> render-cursor?/<span class="Constant">edx</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">0</span>/false -<span id="L288" class="LineNr">288 </span> <span class="Delimiter">{</span> -<span id="L289" class="LineNr">289 </span> compare cursor-word-addr, words-a -<span id="L290" class="LineNr">290 </span> <span class="PreProc">break-if-!=</span> -<span id="L291" class="LineNr">291 </span> render-cursor? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span>/true -<span id="L292" class="LineNr">292 </span> <span class="Delimiter">}</span> -<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> next-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L269'>render-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, words-a, x, y, render-cursor? -<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> space/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span>/space -<span id="L295" class="LineNr">295 </span> draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, space, next-x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg -<span id="L296" class="LineNr">296 </span> next-x <span class="SpecialChar"><-</span> increment -<span id="L297" class="LineNr">297 </span> <span class="muComment"># recurse</span> -<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> words-a, next -<span id="L299" class="LineNr">299 </span> next-x <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah, next-x, y, cursor-word-addr -<span id="L300" class="LineNr">300 </span> <span class="PreProc">return</span> next-x -<span id="L301" class="LineNr">301 </span><span class="Delimiter">}</span> -<span id="L302" class="LineNr">302 </span> -<span id="L303" class="LineNr">303 </span><span class="PreProc">fn</span> <span class="muTest"><a href='word.mu.html#L303'>test-render-words</a></span> <span class="Delimiter">{</span> -<span id="L304" class="LineNr">304 </span> <span class="muComment"># words = [aaa, bbb, ccc, ddd]</span> -<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> w-storage: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address w-storage -<span id="L307" class="LineNr">307 </span> <a href='word.mu.html#L25'>allocate-word-with</a> w-ah, <span class="Constant">"aaa"</span> -<span id="L308" class="LineNr">308 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"bbb"</span> -<span id="L309" class="LineNr">309 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"ccc"</span> -<span id="L310" class="LineNr">310 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"ddd"</span> -<span id="L311" class="LineNr">311 </span> <span class="muComment"># setup: screen</span> -<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L314" class="LineNr">314 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L315" class="LineNr">315 </span> <span class="muComment">#</span> -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> _w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w-ah -<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L320" class="LineNr">320 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L321" class="LineNr">321 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0 cursor"</span> -<span id="L322" class="LineNr">322 </span> <span class="muComment"># - start moving cursor left through final word</span> -<span id="L323" class="LineNr">323 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L326" class="LineNr">326 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L327" class="LineNr">327 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/1 cursor"</span> -<span id="L328" class="LineNr">328 </span> <span class="muComment">#</span> -<span id="L329" class="LineNr">329 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L332" class="LineNr">332 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L333" class="LineNr">333 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/2 cursor"</span> -<span id="L334" class="LineNr">334 </span> <span class="muComment">#</span> -<span id="L335" class="LineNr">335 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L338" class="LineNr">338 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L339" class="LineNr">339 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/3 cursor"</span> -<span id="L340" class="LineNr">340 </span> <span class="muComment"># further moves left within the word change nothing</span> -<span id="L341" class="LineNr">341 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L344" class="LineNr">344 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L345" class="LineNr">345 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/4 cursor"</span> -<span id="L346" class="LineNr">346 </span> <span class="muComment"># - switch to next word</span> -<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> w2-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> w, next -<span id="L348" class="LineNr">348 </span> <span class="PreProc">var</span> _w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w2-ah -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L352" class="LineNr">352 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L353" class="LineNr">353 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/5 cursor"</span> -<span id="L354" class="LineNr">354 </span> <span class="muComment"># now speed up a little</span> -<span id="L355" class="LineNr">355 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L356" class="LineNr">356 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L359" class="LineNr">359 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L360" class="LineNr">360 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/6 cursor"</span> -<span id="L361" class="LineNr">361 </span> <span class="muComment">#</span> -<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> w2-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> w, next -<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> _w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w2-ah -<span id="L364" class="LineNr">364 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L365" class="LineNr">365 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L277'>render-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L368" class="LineNr">368 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"aaa bbb ccc ddd "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/0"</span> -<span id="L369" class="LineNr">369 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L303'>test-render-words</a>/7 cursor"</span> -<span id="L370" class="LineNr">370 </span><span class="Delimiter">}</span> -<span id="L371" class="LineNr">371 </span> -<span id="L372" class="LineNr">372 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L372'>render-words-in-reverse</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _words-ah: (addr handle <a href='word.mu.html#L1'>word</a>), x: int, y: int, cursor-word-addr: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> words-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _words-ah -<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> _words-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *words-ah -<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> words-a/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _words-a -<span id="L376" class="LineNr">376 </span> compare words-a, <span class="Constant">0</span> -<span id="L377" class="LineNr">377 </span> <span class="Delimiter">{</span> -<span id="L378" class="LineNr">378 </span> <span class="PreProc">break-if-!=</span> -<span id="L379" class="LineNr">379 </span> <span class="PreProc">return</span> x -<span id="L380" class="LineNr">380 </span> <span class="Delimiter">}</span> -<span id="L381" class="LineNr">381 </span> <span class="muComment"># recurse</span> -<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> words-a, next -<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> next-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah, x, y, cursor-word-addr -<span id="L384" class="LineNr">384 </span> <span class="muComment"># print</span> -<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> render-cursor?/<span class="Constant">edx</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">0</span>/false -<span id="L386" class="LineNr">386 </span> <span class="Delimiter">{</span> -<span id="L387" class="LineNr">387 </span> compare cursor-word-addr, words-a -<span id="L388" class="LineNr">388 </span> <span class="PreProc">break-if-!=</span> -<span id="L389" class="LineNr">389 </span> render-cursor? <span class="SpecialChar"><-</span> copy <span class="Constant">1</span>/true -<span id="L390" class="LineNr">390 </span> <span class="Delimiter">}</span> -<span id="L391" class="LineNr">391 </span> next-x <span class="SpecialChar"><-</span> <a href='word.mu.html#L269'>render-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, words-a, next-x, y, render-cursor? -<span id="L392" class="LineNr">392 </span> <span class="PreProc">var</span> space/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span>/space -<span id="L393" class="LineNr">393 </span> draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, space, next-x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg -<span id="L394" class="LineNr">394 </span> next-x <span class="SpecialChar"><-</span> increment -<span id="L395" class="LineNr">395 </span> <span class="PreProc">return</span> next-x -<span id="L396" class="LineNr">396 </span><span class="Delimiter">}</span> -<span id="L397" class="LineNr">397 </span> -<span id="L398" class="LineNr">398 </span><span class="PreProc">fn</span> <span class="muTest"><a href='word.mu.html#L398'>test-render-words-in-reverse</a></span> <span class="Delimiter">{</span> -<span id="L399" class="LineNr">399 </span> <span class="muComment"># words = [aaa, bbb, ccc, ddd]</span> -<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> w-storage: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address w-storage -<span id="L402" class="LineNr">402 </span> <a href='word.mu.html#L25'>allocate-word-with</a> w-ah, <span class="Constant">"aaa"</span> -<span id="L403" class="LineNr">403 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"bbb"</span> -<span id="L404" class="LineNr">404 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"ccc"</span> -<span id="L405" class="LineNr">405 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"ddd"</span> -<span id="L406" class="LineNr">406 </span> <span class="muComment"># setup: screen</span> -<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack -<span id="L409" class="LineNr">409 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>, <span class="Constant">4</span> -<span id="L410" class="LineNr">410 </span> <span class="muComment">#</span> -<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> _w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w-ah -<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L415" class="LineNr">415 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/0"</span> -<span id="L416" class="LineNr">416 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/0 cursor"</span> -<span id="L417" class="LineNr">417 </span> <span class="muComment"># - start moving cursor left through final word</span> -<span id="L418" class="LineNr">418 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L421" class="LineNr">421 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/1"</span> -<span id="L422" class="LineNr">422 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/1 cursor"</span> -<span id="L423" class="LineNr">423 </span> <span class="muComment">#</span> -<span id="L424" class="LineNr">424 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L426" class="LineNr">426 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L427" class="LineNr">427 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/2"</span> -<span id="L428" class="LineNr">428 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/2 cursor"</span> -<span id="L429" class="LineNr">429 </span> <span class="muComment">#</span> -<span id="L430" class="LineNr">430 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L433" class="LineNr">433 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/3"</span> -<span id="L434" class="LineNr">434 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/3 cursor"</span> -<span id="L435" class="LineNr">435 </span> <span class="muComment"># further moves left within the word change nothing</span> -<span id="L436" class="LineNr">436 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L437" class="LineNr">437 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L438" class="LineNr">438 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L439" class="LineNr">439 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/4"</span> -<span id="L440" class="LineNr">440 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/4 cursor"</span> -<span id="L441" class="LineNr">441 </span> <span class="muComment"># - switch to next word</span> -<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> w2-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> w, next -<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> _w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w2-ah -<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L445" class="LineNr">445 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L446" class="LineNr">446 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L447" class="LineNr">447 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/5"</span> -<span id="L448" class="LineNr">448 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/5 cursor"</span> -<span id="L449" class="LineNr">449 </span> <span class="muComment"># now speed up a little</span> -<span id="L450" class="LineNr">450 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L451" class="LineNr">451 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L453" class="LineNr">453 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L454" class="LineNr">454 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/6"</span> -<span id="L455" class="LineNr">455 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/6 cursor"</span> -<span id="L456" class="LineNr">456 </span> <span class="muComment">#</span> -<span id="L457" class="LineNr">457 </span> <span class="PreProc">var</span> w2-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> w, next -<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> _w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w2-ah -<span id="L459" class="LineNr">459 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L460" class="LineNr">460 </span> <a href='word.mu.html#L202'>cursor-left</a> w -<span id="L461" class="LineNr">461 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy w -<span id="L462" class="LineNr">462 </span> <span class="PreProc">var</span> new-x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L372'>render-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>, w-ah, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, cursor-word -<span id="L463" class="LineNr">463 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"ddd ccc bbb aaa "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/7"</span> -<span id="L464" class="LineNr">464 </span> check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='word.mu.html#L398'>test-render-words-in-reverse</a>/7 cursor"</span> -<span id="L465" class="LineNr">465 </span><span class="Delimiter">}</span> -<span id="L466" class="LineNr">466 </span> -<span id="L467" class="LineNr">467 </span><span class="muComment"># Gotcha with some word operations: ensure dest-ah isn't in the middle of some</span> -<span id="L468" class="LineNr">468 </span><span class="muComment"># existing chain of words. There are two pointers to patch, and you'll forget</span> -<span id="L469" class="LineNr">469 </span><span class="muComment"># to do the other one.</span> -<span id="L470" class="LineNr">470 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L470'>copy-words</a></span> _src-ah: (addr handle <a href='word.mu.html#L1'>word</a>), _dest-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> src-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-ah -<span id="L473" class="LineNr">473 </span> compare src-a, <span class="Constant">0</span> -<span id="L474" class="LineNr">474 </span> <span class="PreProc">break-if-=</span> -<span id="L475" class="LineNr">475 </span> <span class="muComment"># copy</span> -<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L477" class="LineNr">477 </span> <a href='word.mu.html#L552'>copy-word</a> src-a, dest-ah -<span id="L478" class="LineNr">478 </span> <span class="muComment"># recurse</span> -<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> rest: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address rest -<span id="L481" class="LineNr">481 </span> <span class="PreProc">var</span> next-src-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, next -<span id="L482" class="LineNr">482 </span> <a href='word.mu.html#L470'>copy-words</a> next-src-ah, rest-ah -<span id="L483" class="LineNr">483 </span> <a href='word.mu.html#L599'>chain-words</a> dest-ah, rest-ah -<span id="L484" class="LineNr">484 </span><span class="Delimiter">}</span> -<span id="L485" class="LineNr">485 </span> -<span id="L486" class="LineNr">486 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L486'>copy-words-in-reverse</a></span> _src-ah: (addr handle <a href='word.mu.html#L1'>word</a>), _dest-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L487" class="LineNr">487 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src-ah -<span id="L489" class="LineNr">489 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _src-a -<span id="L490" class="LineNr">490 </span> compare src-a, <span class="Constant">0</span> -<span id="L491" class="LineNr">491 </span> <span class="PreProc">break-if-=</span> -<span id="L492" class="LineNr">492 </span> <span class="muComment"># recurse</span> -<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> next-src-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, next -<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L495" class="LineNr">495 </span> <a href='word.mu.html#L486'>copy-words-in-reverse</a> next-src-ah, dest-ah -<span id="L496" class="LineNr">496 </span> <span class="muComment">#</span> -<span id="L497" class="LineNr">497 </span> <a href='word.mu.html#L500'>copy-word-at-end</a> src-a, dest-ah -<span id="L498" class="LineNr">498 </span><span class="Delimiter">}</span> -<span id="L499" class="LineNr">499 </span> -<span id="L500" class="LineNr">500 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L500'>copy-word-at-end</a></span> src: (addr <a href='word.mu.html#L1'>word</a>), _dest-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L501" class="LineNr">501 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L502" class="LineNr">502 </span> <span class="muComment"># if dest is null, copy and return</span> -<span id="L503" class="LineNr">503 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *dest-ah -<span id="L504" class="LineNr">504 </span> compare dest-a, <span class="Constant">0</span> -<span id="L505" class="LineNr">505 </span> <span class="Delimiter">{</span> -<span id="L506" class="LineNr">506 </span> <span class="PreProc">break-if-!=</span> -<span id="L507" class="LineNr">507 </span> <a href='word.mu.html#L552'>copy-word</a> src, dest-ah -<span id="L508" class="LineNr">508 </span> <span class="PreProc">return</span> -<span id="L509" class="LineNr">509 </span> <span class="Delimiter">}</span> -<span id="L510" class="LineNr">510 </span> <span class="muComment"># copy current word</span> -<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> new: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address new -<span id="L513" class="LineNr">513 </span> <a href='word.mu.html#L552'>copy-word</a> src, new-ah -<span id="L514" class="LineNr">514 </span> <span class="muComment"># append it at the end</span> -<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy dest-ah -<span id="L516" class="LineNr">516 </span> <span class="Delimiter">{</span> -<span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah <span class="muComment"># curr-a guaranteed not to be null</span> -<span id="L518" class="LineNr">518 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-a, next -<span id="L519" class="LineNr">519 </span> <span class="PreProc">var</span> next-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-ah -<span id="L520" class="LineNr">520 </span> compare next-a, <span class="Constant">0</span> -<span id="L521" class="LineNr">521 </span> <span class="PreProc">break-if-=</span> -<span id="L522" class="LineNr">522 </span> curr-ah <span class="SpecialChar"><-</span> copy next-ah -<span id="L523" class="LineNr">523 </span> <span class="PreProc">loop</span> -<span id="L524" class="LineNr">524 </span> <span class="Delimiter">}</span> -<span id="L525" class="LineNr">525 </span> <a href='word.mu.html#L599'>chain-words</a> curr-ah, new-ah -<span id="L526" class="LineNr">526 </span><span class="Delimiter">}</span> -<span id="L527" class="LineNr">527 </span> -<span id="L528" class="LineNr">528 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L528'>append-word-at-end-with</a></span> _dest-ah: (addr handle <a href='word.mu.html#L1'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> -<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L530" class="LineNr">530 </span> <span class="muComment"># if dest is null, copy and return</span> -<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *dest-ah -<span id="L532" class="LineNr">532 </span> compare dest-a, <span class="Constant">0</span> -<span id="L533" class="LineNr">533 </span> <span class="Delimiter">{</span> -<span id="L534" class="LineNr">534 </span> <span class="PreProc">break-if-!=</span> -<span id="L535" class="LineNr">535 </span> <a href='word.mu.html#L25'>allocate-word-with</a> dest-ah, s -<span id="L536" class="LineNr">536 </span> <span class="PreProc">return</span> -<span id="L537" class="LineNr">537 </span> <span class="Delimiter">}</span> -<span id="L538" class="LineNr">538 </span> <span class="muComment"># otherwise append at end</span> -<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy dest-ah -<span id="L540" class="LineNr">540 </span> <span class="Delimiter">{</span> -<span id="L541" class="LineNr">541 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah <span class="muComment"># curr-a guaranteed not to be null</span> -<span id="L542" class="LineNr">542 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-a, next -<span id="L543" class="LineNr">543 </span> <span class="PreProc">var</span> next-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-ah -<span id="L544" class="LineNr">544 </span> compare next-a, <span class="Constant">0</span> -<span id="L545" class="LineNr">545 </span> <span class="PreProc">break-if-=</span> -<span id="L546" class="LineNr">546 </span> curr-ah <span class="SpecialChar"><-</span> copy next-ah -<span id="L547" class="LineNr">547 </span> <span class="PreProc">loop</span> -<span id="L548" class="LineNr">548 </span> <span class="Delimiter">}</span> -<span id="L549" class="LineNr">549 </span> <a href='word.mu.html#L35'>append-word-with</a> *curr-ah, s -<span id="L550" class="LineNr">550 </span><span class="Delimiter">}</span> -<span id="L551" class="LineNr">551 </span> -<span id="L552" class="LineNr">552 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L552'>copy-word</a></span> _src-a: (addr <a href='word.mu.html#L1'>word</a>), _dest-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L554" class="LineNr">554 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest-ah -<span id="L555" class="LineNr">555 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *dest-ah -<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _dest-a -<span id="L557" class="LineNr">557 </span> <a href='word.mu.html#L7'>initialize-word</a> dest-a -<span id="L558" class="LineNr">558 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-a, scalar-data -<span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> src-a/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _src-a -<span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, scalar-data -<span id="L561" class="LineNr">561 </span> <a href='gap-buffer.mu.html#L427'>copy-gap-buffer</a> src, dest -<span id="L562" class="LineNr">562 </span><span class="Delimiter">}</span> -<span id="L563" class="LineNr">563 </span> -<span id="L564" class="LineNr">564 </span><span class="muComment"># one implication of handles: append must take a handle</span> -<span id="L565" class="LineNr">565 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L565'>append-word</a></span> _self-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> saved-self-storage: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L567" class="LineNr">567 </span> <span class="PreProc">var</span> saved-self/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address saved-self-storage -<span id="L568" class="LineNr">568 </span> copy-object _self-ah, saved-self -<span id="L569" class="LineNr">569 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self-ah -<span id="L570" class="LineNr">570 </span> <span class="PreProc">var</span> _self/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *self-ah -<span id="L571" class="LineNr">571 </span> <span class="PreProc">var</span> self/<span class="Constant">ebx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L572" class="LineNr">572 </span> <span class="muComment"># allocate new handle</span> -<span id="L573" class="LineNr">573 </span> <span class="PreProc">var</span> new: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L574" class="LineNr">574 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">ecx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address new -<span id="L575" class="LineNr">575 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> new-ah -<span id="L576" class="LineNr">576 </span> <span class="PreProc">var</span> new-addr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> new -<span id="L577" class="LineNr">577 </span> <a href='word.mu.html#L7'>initialize-word</a> new-addr -<span id="L578" class="LineNr">578 </span> <span class="muComment"># new->next = self->next</span> -<span id="L579" class="LineNr">579 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L580" class="LineNr">580 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-addr, next -<span id="L581" class="LineNr">581 </span> copy-object src, dest -<span id="L582" class="LineNr">582 </span> <span class="muComment"># new->next->prev = new</span> -<span id="L583" class="LineNr">583 </span> <span class="Delimiter">{</span> -<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> next-addr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *src -<span id="L585" class="LineNr">585 </span> compare next-addr, <span class="Constant">0</span> -<span id="L586" class="LineNr">586 </span> <span class="PreProc">break-if-=</span> -<span id="L587" class="LineNr">587 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next-addr, prev -<span id="L588" class="LineNr">588 </span> copy-object new-ah, dest -<span id="L589" class="LineNr">589 </span> <span class="Delimiter">}</span> -<span id="L590" class="LineNr">590 </span> <span class="muComment"># new->prev = saved-self</span> -<span id="L591" class="LineNr">591 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> new-addr, prev -<span id="L592" class="LineNr">592 </span> <span class="PreProc">var</span> saved-self-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address saved-self-storage -<span id="L593" class="LineNr">593 </span> copy-object saved-self-ah, dest -<span id="L594" class="LineNr">594 </span> <span class="muComment"># self->next = new</span> -<span id="L595" class="LineNr">595 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L596" class="LineNr">596 </span> copy-object new-ah, dest -<span id="L597" class="LineNr">597 </span><span class="Delimiter">}</span> -<span id="L598" class="LineNr">598 </span> -<span id="L599" class="LineNr">599 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L599'>chain-words</a></span> _self-ah: (addr handle <a href='word.mu.html#L1'>word</a>), _next: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L600" class="LineNr">600 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self-ah -<span id="L601" class="LineNr">601 </span> <span class="PreProc">var</span> _self/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *self-ah -<span id="L602" class="LineNr">602 </span> <span class="PreProc">var</span> self/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L603" class="LineNr">603 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, next -<span id="L604" class="LineNr">604 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _next -<span id="L605" class="LineNr">605 </span> copy-object next-ah, dest -<span id="L606" class="LineNr">606 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-ah -<span id="L607" class="LineNr">607 </span> compare next, <span class="Constant">0</span> -<span id="L608" class="LineNr">608 </span> <span class="PreProc">break-if-=</span> -<span id="L609" class="LineNr">609 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next, prev -<span id="L610" class="LineNr">610 </span> copy-object self-ah, dest -<span id="L611" class="LineNr">611 </span><span class="Delimiter">}</span> -<span id="L612" class="LineNr">612 </span> -<span id="L613" class="LineNr">613 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L613'>emit-word</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L614" class="LineNr">614 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L615" class="LineNr">615 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L616" class="LineNr">616 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L617" class="LineNr">617 </span> <a href='gap-buffer.mu.html#L33'>emit-gap-buffer</a> data, out -<span id="L618" class="LineNr">618 </span><span class="Delimiter">}</span> -<span id="L619" class="LineNr">619 </span> -<span id="L620" class="LineNr">620 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L620'>word-is-decimal-integer?</a></span> _self: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L621" class="LineNr">621 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L622" class="LineNr">622 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, scalar-data -<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L4'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah -<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L445'>gap-buffer-is-decimal-integer?</a> data -<span id="L625" class="LineNr">625 </span> <span class="PreProc">return</span> result -<span id="L626" class="LineNr">626 </span><span class="Delimiter">}</span> -<span id="L627" class="LineNr">627 </span> -<span id="L628" class="LineNr">628 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L628'>word-exists?</a></span> haystack: (addr <a href='word.mu.html#L1'>word</a>), needle: (addr <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L629" class="LineNr">629 </span> <span class="muComment"># base case</span> -<span id="L630" class="LineNr">630 </span> compare haystack, <span class="Constant">0</span> -<span id="L631" class="LineNr">631 </span> <span class="Delimiter">{</span> -<span id="L632" class="LineNr">632 </span> <span class="PreProc">break-if-!=</span> -<span id="L633" class="LineNr">633 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false -<span id="L634" class="LineNr">634 </span> <span class="Delimiter">}</span> -<span id="L635" class="LineNr">635 </span> <span class="muComment"># check current word</span> -<span id="L636" class="LineNr">636 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L110'>words-equal?</a> haystack, needle -<span id="L637" class="LineNr">637 </span> compare found?, <span class="Constant">0</span>/false -<span id="L638" class="LineNr">638 </span> <span class="Delimiter">{</span> -<span id="L639" class="LineNr">639 </span> <span class="PreProc">break-if-=</span> -<span id="L640" class="LineNr">640 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true -<span id="L641" class="LineNr">641 </span> <span class="Delimiter">}</span> -<span id="L642" class="LineNr">642 </span> <span class="muComment"># recurse</span> -<span id="L643" class="LineNr">643 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy haystack -<span id="L644" class="LineNr">644 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L645" class="LineNr">645 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *next-ah -<span id="L646" class="LineNr">646 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L628'>word-exists?</a> next, needle -<span id="L647" class="LineNr">647 </span> <span class="PreProc">return</span> result -<span id="L648" class="LineNr">648 </span><span class="Delimiter">}</span> -<span id="L649" class="LineNr">649 </span> -<span id="L650" class="LineNr">650 </span><span class="PreProc">fn</span> <span class="muTest"><a href='word.mu.html#L650'>test-word-exists?</a></span> <span class="Delimiter">{</span> -<span id="L651" class="LineNr">651 </span> <span class="PreProc">var</span> needle-storage: <a href='word.mu.html#L1'>word</a> -<span id="L652" class="LineNr">652 </span> <span class="PreProc">var</span> needle/<span class="Constant">esi</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address needle-storage -<span id="L653" class="LineNr">653 </span> <a href='word.mu.html#L17'>initialize-word-with</a> needle, <span class="Constant">"abc"</span> -<span id="L654" class="LineNr">654 </span> <span class="PreProc">var</span> w-storage: (handle <a href='word.mu.html#L1'>word</a>) -<span id="L655" class="LineNr">655 </span> <span class="PreProc">var</span> w-ah/<span class="Constant">edi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> address w-storage -<span id="L656" class="LineNr">656 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> w-ah -<span id="L657" class="LineNr">657 </span> <span class="PreProc">var</span> _w/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *w-ah -<span id="L658" class="LineNr">658 </span> <span class="PreProc">var</span> w/<span class="Constant">ecx</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy _w -<span id="L659" class="LineNr">659 </span> <a href='word.mu.html#L17'>initialize-word-with</a> w, <span class="Constant">"aaa"</span> -<span id="L660" class="LineNr">660 </span> <span class="muComment">#</span> -<span id="L661" class="LineNr">661 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L628'>word-exists?</a> w, w -<span id="L662" class="LineNr">662 </span> check result, <span class="Constant">"F - <a href='word.mu.html#L650'>test-word-exists?</a> reflexive"</span> -<span id="L663" class="LineNr">663 </span> result <span class="SpecialChar"><-</span> <a href='word.mu.html#L628'>word-exists?</a> w, needle -<span id="L664" class="LineNr">664 </span> check-not result, <span class="Constant">"F - <a href='word.mu.html#L650'>test-word-exists?</a> 1"</span> -<span id="L665" class="LineNr">665 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"bbb"</span> -<span id="L666" class="LineNr">666 </span> result <span class="SpecialChar"><-</span> <a href='word.mu.html#L628'>word-exists?</a> w, needle -<span id="L667" class="LineNr">667 </span> check-not result, <span class="Constant">"F - <a href='word.mu.html#L650'>test-word-exists?</a> 2"</span> -<span id="L668" class="LineNr">668 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"abc"</span> -<span id="L669" class="LineNr">669 </span> result <span class="SpecialChar"><-</span> <a href='word.mu.html#L628'>word-exists?</a> w, needle -<span id="L670" class="LineNr">670 </span> check result, <span class="Constant">"F - <a href='word.mu.html#L650'>test-word-exists?</a> 3"</span> -<span id="L671" class="LineNr">671 </span> <a href='word.mu.html#L528'>append-word-at-end-with</a> w-ah, <span class="Constant">"ddd"</span> -<span id="L672" class="LineNr">672 </span> result <span class="SpecialChar"><-</span> <a href='word.mu.html#L628'>word-exists?</a> w, needle -<span id="L673" class="LineNr">673 </span> check result, <span class="Constant">"F - <a href='word.mu.html#L650'>test-word-exists?</a> 4"</span> -<span id="L674" class="LineNr">674 </span><span class="Delimiter">}</span> -<span id="L675" class="LineNr">675 </span> -<span id="L676" class="LineNr">676 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L676'>word-list-length</a></span> words: (addr handle <a href='word.mu.html#L1'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L677" class="LineNr">677 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy words -<span id="L678" class="LineNr">678 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L679" class="LineNr">679 </span> <span class="Delimiter">{</span> -<span id="L680" class="LineNr">680 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *curr-ah -<span id="L681" class="LineNr">681 </span> compare curr, <span class="Constant">0</span> -<span id="L682" class="LineNr">682 </span> <span class="PreProc">break-if-=</span> -<span id="L683" class="LineNr">683 </span> <span class="Delimiter">{</span> -<span id="L684" class="LineNr">684 </span> <span class="PreProc">var</span> word-len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='word.mu.html#L122'>word-length</a> curr -<span id="L685" class="LineNr">685 </span> result <span class="SpecialChar"><-</span> add word-len -<span id="L686" class="LineNr">686 </span> result <span class="SpecialChar"><-</span> add <span class="Constant">1</span>/inter-word-margin -<span id="L687" class="LineNr">687 </span> <span class="Delimiter">}</span> -<span id="L688" class="LineNr">688 </span> curr-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L689" class="LineNr">689 </span> <span class="PreProc">loop</span> -<span id="L690" class="LineNr">690 </span> <span class="Delimiter">}</span> -<span id="L691" class="LineNr">691 </span> <span class="PreProc">return</span> result -<span id="L692" class="LineNr">692 </span><span class="Delimiter">}</span> -<span id="L693" class="LineNr">693 </span> -<span id="L694" class="LineNr">694 </span><span class="muComment"># out-ah already has a word allocated and initialized</span> -<span id="L695" class="LineNr">695 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L695'>parse-words</a></span> in: (addr array byte), out-ah: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="Delimiter">{</span> -<span id="L696" class="LineNr">696 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L697" class="LineNr">697 </span> <span class="PreProc">var</span> in-stream-a/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-stream -<span id="L698" class="LineNr">698 </span> <a href='../../108write.subx.html#L24'>write</a> in-stream-a, in -<span id="L699" class="LineNr">699 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ebx</span>: (addr handle <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> copy out-ah -<span id="L700" class="LineNr">700 </span> $parse-words:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L701" class="LineNr">701 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> in-stream-a -<span id="L702" class="LineNr">702 </span> compare done?, <span class="Constant">0</span>/false -<span id="L703" class="LineNr">703 </span> <span class="PreProc">break-if-!=</span> -<span id="L704" class="LineNr">704 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> in-stream-a -<span id="L705" class="LineNr">705 </span> <span class="PreProc">var</span> g/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy _g -<span id="L706" class="LineNr">706 </span> <span class="muComment"># if not space, insert</span> -<span id="L707" class="LineNr">707 </span> compare g, <span class="Constant">0x20</span>/space -<span id="L708" class="LineNr">708 </span> <span class="Delimiter">{</span> -<span id="L709" class="LineNr">709 </span> <span class="PreProc">break-if-=</span> -<span id="L710" class="LineNr">710 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah -<span id="L711" class="LineNr">711 </span> <a href='word.mu.html#L179'>add-grapheme-to-word</a> cursor-word, g -<span id="L712" class="LineNr">712 </span> <span class="PreProc">loop</span> $parse-words:<span class="PreProc">loop</span> -<span id="L713" class="LineNr">713 </span> <span class="Delimiter">}</span> -<span id="L714" class="LineNr">714 </span> <span class="muComment"># otherwise insert word after and move cursor to it</span> -<span id="L715" class="LineNr">715 </span> <a href='word.mu.html#L565'>append-word</a> cursor-word-ah -<span id="L716" class="LineNr">716 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='word.mu.html#L1'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah -<span id="L717" class="LineNr">717 </span> <a href='word.mu.html#L216'>cursor-to-start</a> cursor-word <span class="muComment"># reset cursor in each function</span> -<span id="L718" class="LineNr">718 </span> cursor-word-ah <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cursor-word, next -<span id="L719" class="LineNr">719 </span> <span class="PreProc">loop</span> -<span id="L720" class="LineNr">720 </span> <span class="Delimiter">}</span> -<span id="L721" class="LineNr">721 </span><span class="Delimiter">}</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/vga_palette.html b/html/baremetal/vga_palette.html deleted file mode 100644 index 4a4be849..00000000 --- a/html/baremetal/vga_palette.html +++ /dev/null @@ -1,283 +0,0 @@ -<body style='background:#ffffff; width:130em; margin:0 auto; padding:0 auto'> -<h1>Default VGA 256-color palette</h1> - -<h2>First 16 colors</h2> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>000: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#0000aa'><div style='float:left; margin-right:1em'>001: 00 00 42</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#00aa00'><div style='float:left; margin-right:1em'>002: 00 42 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#00aaaa'><div style='float:left; margin-right:1em'>003: 00 42 42</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#aa0000'><div style='float:left; margin-right:1em'>004: 42 00 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#aa00aa'><div style='float:left; margin-right:1em'>005: 42 00 42</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#aa5500'><div style='float:left; margin-right:1em'>006: 42 21 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#aaaaaa'><div style='float:left; margin-right:1em'>007: 42 42 42</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#555555'><div style='float:left; margin-right:1em'>008: 21 21 21</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#5555ff'><div style='float:left; margin-right:1em'>009: 21 21 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#55ff55'><div style='float:left; margin-right:1em'>010: 21 63 21</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#55ffff'><div style='float:left; margin-right:1em'>011: 21 63 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff5555'><div style='float:left; margin-right:1em'>012: 63 21 21</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff55ff'><div style='float:left; margin-right:1em'>013: 63 21 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffff55'><div style='float:left; margin-right:1em'>014: 63 63 21</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffffff'><div style='float:left; margin-right:1em'>015: 63 63 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Greyscale</h2> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>016: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#141414'><div style='float:left; margin-right:1em'>017: 05 05 05</div> <div style='float:left; width:40em'>■■■■■ </div> <div style='float:left; width:40em'>■■■■■ </div> <div style='float:left; width:40em'>■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#202020'><div style='float:left; margin-right:1em'>018: 08 08 08</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c2c2c'><div style='float:left; margin-right:1em'>019: 11 11 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#383838'><div style='float:left; margin-right:1em'>020: 14 14 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#454545'><div style='float:left; margin-right:1em'>021: 17 17 17</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#515151'><div style='float:left; margin-right:1em'>022: 20 20 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#616161'><div style='float:left; margin-right:1em'>023: 24 24 24</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#717171'><div style='float:left; margin-right:1em'>024: 28 28 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#828282'><div style='float:left; margin-right:1em'>025: 32 32 32</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#929292'><div style='float:left; margin-right:1em'>026: 36 36 36</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#a2a2a2'><div style='float:left; margin-right:1em'>027: 40 40 40</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6b6b6'><div style='float:left; margin-right:1em'>028: 45 45 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#cbcbcb'><div style='float:left; margin-right:1em'>029: 50 50 50</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#e3e3e3'><div style='float:left; margin-right:1em'>030: 56 56 56</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffffff'><div style='float:left; margin-right:1em'>031: 63 63 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 0 (light)</h2> -<div style='clear:both; white-space:pre; color:#0000ff'><div style='float:left; margin-right:1em'>032: 00 00 63</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#4100ff'><div style='float:left; margin-right:1em'>033: 16 00 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7d00ff'><div style='float:left; margin-right:1em'>034: 31 00 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#be00ff'><div style='float:left; margin-right:1em'>035: 47 00 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff00ff'><div style='float:left; margin-right:1em'>036: 63 00 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff00be'><div style='float:left; margin-right:1em'>037: 63 00 47</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff007d'><div style='float:left; margin-right:1em'>038: 63 00 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff0041'><div style='float:left; margin-right:1em'>039: 63 00 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff0000'><div style='float:left; margin-right:1em'>040: 63 00 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#ff4100'><div style='float:left; margin-right:1em'>041: 63 16 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#ff7d00'><div style='float:left; margin-right:1em'>042: 63 31 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#ffbe00'><div style='float:left; margin-right:1em'>043: 63 47 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#ffff00'><div style='float:left; margin-right:1em'>044: 63 63 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#beff00'><div style='float:left; margin-right:1em'>045: 47 63 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#7dff00'><div style='float:left; margin-right:1em'>046: 31 63 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#41ff00'><div style='float:left; margin-right:1em'>047: 16 63 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#00ff00'><div style='float:left; margin-right:1em'>048: 00 63 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#00ff41'><div style='float:left; margin-right:1em'>049: 00 63 16</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#00ff7d'><div style='float:left; margin-right:1em'>050: 00 63 31</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#00ffbe'><div style='float:left; margin-right:1em'>051: 00 63 47</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#00ffff'><div style='float:left; margin-right:1em'>052: 00 63 63</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#00beff'><div style='float:left; margin-right:1em'>053: 00 47 63</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#007dff'><div style='float:left; margin-right:1em'>054: 00 31 63</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#0041ff'><div style='float:left; margin-right:1em'>055: 00 16 63</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 1 (lighter)</h2> -<div style='clear:both; white-space:pre; color:#7d7dff'><div style='float:left; margin-right:1em'>056: 31 31 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#9e7dff'><div style='float:left; margin-right:1em'>057: 39 31 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#be7dff'><div style='float:left; margin-right:1em'>058: 47 31 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#df7dff'><div style='float:left; margin-right:1em'>059: 55 31 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff7dff'><div style='float:left; margin-right:1em'>060: 63 31 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff7ddf'><div style='float:left; margin-right:1em'>061: 63 31 55</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff7dbe'><div style='float:left; margin-right:1em'>062: 63 31 47</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff7d9e'><div style='float:left; margin-right:1em'>063: 63 31 39</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff7d7d'><div style='float:left; margin-right:1em'>064: 63 31 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ff9e7d'><div style='float:left; margin-right:1em'>065: 63 39 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffbe7d'><div style='float:left; margin-right:1em'>066: 63 47 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffdf7d'><div style='float:left; margin-right:1em'>067: 63 55 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffff7d'><div style='float:left; margin-right:1em'>068: 63 63 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#dfff7d'><div style='float:left; margin-right:1em'>069: 55 63 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#beff7d'><div style='float:left; margin-right:1em'>070: 47 63 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#9eff7d'><div style='float:left; margin-right:1em'>071: 39 63 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7dff7d'><div style='float:left; margin-right:1em'>072: 31 63 31</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7dff9e'><div style='float:left; margin-right:1em'>073: 31 63 39</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7dffbe'><div style='float:left; margin-right:1em'>074: 31 63 47</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7dffdf'><div style='float:left; margin-right:1em'>075: 31 63 55</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7dffff'><div style='float:left; margin-right:1em'>076: 31 63 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7ddfff'><div style='float:left; margin-right:1em'>077: 31 55 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7dbeff'><div style='float:left; margin-right:1em'>078: 31 47 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#7d9eff'><div style='float:left; margin-right:1em'>079: 31 39 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 2 (lightest)</h2> -<div style='clear:both; white-space:pre; color:#b6b6ff'><div style='float:left; margin-right:1em'>080: 45 45 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#c7b6ff'><div style='float:left; margin-right:1em'>081: 49 45 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#dbb6ff'><div style='float:left; margin-right:1em'>082: 54 45 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ebb6ff'><div style='float:left; margin-right:1em'>083: 58 45 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffb6ff'><div style='float:left; margin-right:1em'>084: 63 45 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffb6eb'><div style='float:left; margin-right:1em'>085: 63 45 58</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffb6db'><div style='float:left; margin-right:1em'>086: 63 45 54</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffb6c7'><div style='float:left; margin-right:1em'>087: 63 45 49</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffb6b6'><div style='float:left; margin-right:1em'>088: 63 45 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffc7b6'><div style='float:left; margin-right:1em'>089: 63 49 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffdbb6'><div style='float:left; margin-right:1em'>090: 63 54 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffebb6'><div style='float:left; margin-right:1em'>091: 63 58 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ffffb6'><div style='float:left; margin-right:1em'>092: 63 63 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#ebffb6'><div style='float:left; margin-right:1em'>093: 58 63 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#dbffb6'><div style='float:left; margin-right:1em'>094: 54 63 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#c7ffb6'><div style='float:left; margin-right:1em'>095: 49 63 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6ffb6'><div style='float:left; margin-right:1em'>096: 45 63 45</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6ffc7'><div style='float:left; margin-right:1em'>097: 45 63 49</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6ffdb'><div style='float:left; margin-right:1em'>098: 45 63 54</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6ffeb'><div style='float:left; margin-right:1em'>099: 45 63 58</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6ffff'><div style='float:left; margin-right:1em'>100: 45 63 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6ebff'><div style='float:left; margin-right:1em'>101: 45 58 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6dbff'><div style='float:left; margin-right:1em'>102: 45 54 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#b6c7ff'><div style='float:left; margin-right:1em'>103: 45 49 63</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 3 (sober)</h2> -<div style='clear:both; white-space:pre; color:#000071'><div style='float:left; margin-right:1em'>104: 00 00 28</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#1c0071'><div style='float:left; margin-right:1em'>105: 07 00 28</div> <div style='float:left; width:40em'>■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#380071'><div style='float:left; margin-right:1em'>106: 14 00 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#550071'><div style='float:left; margin-right:1em'>107: 21 00 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#710071'><div style='float:left; margin-right:1em'>108: 28 00 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#710055'><div style='float:left; margin-right:1em'>109: 28 00 21</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#710038'><div style='float:left; margin-right:1em'>110: 28 00 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#71001c'><div style='float:left; margin-right:1em'>111: 28 00 07</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#710000'><div style='float:left; margin-right:1em'>112: 28 00 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#711c00'><div style='float:left; margin-right:1em'>113: 28 07 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#713800'><div style='float:left; margin-right:1em'>114: 28 14 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#715500'><div style='float:left; margin-right:1em'>115: 28 21 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#717100'><div style='float:left; margin-right:1em'>116: 28 28 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#557100'><div style='float:left; margin-right:1em'>117: 21 28 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#387100'><div style='float:left; margin-right:1em'>118: 14 28 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#1c7100'><div style='float:left; margin-right:1em'>119: 07 28 00</div> <div style='float:left; width:40em'>■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#007100'><div style='float:left; margin-right:1em'>120: 00 28 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#00711c'><div style='float:left; margin-right:1em'>121: 00 28 07</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#007138'><div style='float:left; margin-right:1em'>122: 00 28 14</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#007155'><div style='float:left; margin-right:1em'>123: 00 28 21</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#007171'><div style='float:left; margin-right:1em'>124: 00 28 28</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#005571'><div style='float:left; margin-right:1em'>125: 00 21 28</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#003871'><div style='float:left; margin-right:1em'>126: 00 14 28</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#001c71'><div style='float:left; margin-right:1em'>127: 00 07 28</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 4 (darker sober)</h2> -<div style='clear:both; white-space:pre; color:#383871'><div style='float:left; margin-right:1em'>128: 14 14 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#453871'><div style='float:left; margin-right:1em'>129: 17 14 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#553871'><div style='float:left; margin-right:1em'>130: 21 14 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#613871'><div style='float:left; margin-right:1em'>131: 24 14 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#713871'><div style='float:left; margin-right:1em'>132: 28 14 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#713861'><div style='float:left; margin-right:1em'>133: 28 14 24</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#713855'><div style='float:left; margin-right:1em'>134: 28 14 21</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#713845'><div style='float:left; margin-right:1em'>135: 28 14 17</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#713838'><div style='float:left; margin-right:1em'>136: 28 14 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#714538'><div style='float:left; margin-right:1em'>137: 28 17 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#715538'><div style='float:left; margin-right:1em'>138: 28 21 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#716138'><div style='float:left; margin-right:1em'>139: 28 24 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#717138'><div style='float:left; margin-right:1em'>140: 28 28 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#617138'><div style='float:left; margin-right:1em'>141: 24 28 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#557138'><div style='float:left; margin-right:1em'>142: 21 28 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#457138'><div style='float:left; margin-right:1em'>143: 17 28 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#387138'><div style='float:left; margin-right:1em'>144: 14 28 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#387145'><div style='float:left; margin-right:1em'>145: 14 28 17</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#387155'><div style='float:left; margin-right:1em'>146: 14 28 21</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#387161'><div style='float:left; margin-right:1em'>147: 14 28 24</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#387171'><div style='float:left; margin-right:1em'>148: 14 28 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#386171'><div style='float:left; margin-right:1em'>149: 14 24 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#385571'><div style='float:left; margin-right:1em'>150: 14 21 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#384571'><div style='float:left; margin-right:1em'>151: 14 17 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 5 (darkest sober)</h2> -<div style='clear:both; white-space:pre; color:#515171'><div style='float:left; margin-right:1em'>152: 20 20 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#595171'><div style='float:left; margin-right:1em'>153: 22 20 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#615171'><div style='float:left; margin-right:1em'>154: 24 20 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#695171'><div style='float:left; margin-right:1em'>155: 26 20 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#715171'><div style='float:left; margin-right:1em'>156: 28 20 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#715169'><div style='float:left; margin-right:1em'>157: 28 20 26</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#715161'><div style='float:left; margin-right:1em'>158: 28 20 24</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#715159'><div style='float:left; margin-right:1em'>159: 28 20 22</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#715151'><div style='float:left; margin-right:1em'>160: 28 20 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#715951'><div style='float:left; margin-right:1em'>161: 28 22 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#716151'><div style='float:left; margin-right:1em'>162: 28 24 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#716951'><div style='float:left; margin-right:1em'>163: 28 26 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#717151'><div style='float:left; margin-right:1em'>164: 28 28 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#697151'><div style='float:left; margin-right:1em'>165: 26 28 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#617151'><div style='float:left; margin-right:1em'>166: 24 28 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#597151'><div style='float:left; margin-right:1em'>167: 22 28 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#517151'><div style='float:left; margin-right:1em'>168: 20 28 20</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#517159'><div style='float:left; margin-right:1em'>169: 20 28 22</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#517161'><div style='float:left; margin-right:1em'>170: 20 28 24</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#517169'><div style='float:left; margin-right:1em'>171: 20 28 26</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#517171'><div style='float:left; margin-right:1em'>172: 20 28 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#516971'><div style='float:left; margin-right:1em'>173: 20 26 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#516171'><div style='float:left; margin-right:1em'>174: 20 24 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#515971'><div style='float:left; margin-right:1em'>175: 20 22 28</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 6 (dark)</h2> -<div style='clear:both; white-space:pre; color:#000041'><div style='float:left; margin-right:1em'>176: 00 00 16</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#100041'><div style='float:left; margin-right:1em'>177: 04 00 16</div> <div style='float:left; width:40em'>■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#200041'><div style='float:left; margin-right:1em'>178: 08 00 16</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#300041'><div style='float:left; margin-right:1em'>179: 12 00 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#410041'><div style='float:left; margin-right:1em'>180: 16 00 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#410030'><div style='float:left; margin-right:1em'>181: 16 00 12</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#410020'><div style='float:left; margin-right:1em'>182: 16 00 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#410010'><div style='float:left; margin-right:1em'>183: 16 00 04</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#410000'><div style='float:left; margin-right:1em'>184: 16 00 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#411000'><div style='float:left; margin-right:1em'>185: 16 04 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#412000'><div style='float:left; margin-right:1em'>186: 16 08 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#413000'><div style='float:left; margin-right:1em'>187: 16 12 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#414100'><div style='float:left; margin-right:1em'>188: 16 16 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#304100'><div style='float:left; margin-right:1em'>189: 12 16 00</div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#204100'><div style='float:left; margin-right:1em'>190: 08 16 00</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#104100'><div style='float:left; margin-right:1em'>191: 04 16 00</div> <div style='float:left; width:40em'>■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#004100'><div style='float:left; margin-right:1em'>192: 00 16 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#004110'><div style='float:left; margin-right:1em'>193: 00 16 04</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#004120'><div style='float:left; margin-right:1em'>194: 00 16 08</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#004130'><div style='float:left; margin-right:1em'>195: 00 16 12</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#004141'><div style='float:left; margin-right:1em'>196: 00 16 16</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#003041'><div style='float:left; margin-right:1em'>197: 00 12 16</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#002041'><div style='float:left; margin-right:1em'>198: 00 08 16</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#001041'><div style='float:left; margin-right:1em'>199: 00 04 16</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'>■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 7 (darker)</h2> -<div style='clear:both; white-space:pre; color:#202041'><div style='float:left; margin-right:1em'>200: 08 08 16</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#282041'><div style='float:left; margin-right:1em'>201: 10 08 16</div> <div style='float:left; width:40em'>■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#302041'><div style='float:left; margin-right:1em'>202: 12 08 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#382041'><div style='float:left; margin-right:1em'>203: 14 08 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412041'><div style='float:left; margin-right:1em'>204: 16 08 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412038'><div style='float:left; margin-right:1em'>205: 16 08 14</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412030'><div style='float:left; margin-right:1em'>206: 16 08 12</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412028'><div style='float:left; margin-right:1em'>207: 16 08 10</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412020'><div style='float:left; margin-right:1em'>208: 16 08 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412820'><div style='float:left; margin-right:1em'>209: 16 10 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#413020'><div style='float:left; margin-right:1em'>210: 16 12 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#413820'><div style='float:left; margin-right:1em'>211: 16 14 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#414120'><div style='float:left; margin-right:1em'>212: 16 16 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#384120'><div style='float:left; margin-right:1em'>213: 14 16 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#304120'><div style='float:left; margin-right:1em'>214: 12 16 08</div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#284120'><div style='float:left; margin-right:1em'>215: 10 16 08</div> <div style='float:left; width:40em'>■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#204120'><div style='float:left; margin-right:1em'>216: 08 16 08</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#204128'><div style='float:left; margin-right:1em'>217: 08 16 10</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#204130'><div style='float:left; margin-right:1em'>218: 08 16 12</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#204138'><div style='float:left; margin-right:1em'>219: 08 16 14</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#204141'><div style='float:left; margin-right:1em'>220: 08 16 16</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#203841'><div style='float:left; margin-right:1em'>221: 08 14 16</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#203041'><div style='float:left; margin-right:1em'>222: 08 12 16</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#202841'><div style='float:left; margin-right:1em'>223: 08 10 16</div> <div style='float:left; width:40em'>■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> - -<h2>Cycle 8 (darkest)</h2> -<div style='clear:both; white-space:pre; color:#2c2c41'><div style='float:left; margin-right:1em'>224: 11 11 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#302c41'><div style='float:left; margin-right:1em'>225: 12 11 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#342c41'><div style='float:left; margin-right:1em'>226: 13 11 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#3c2c41'><div style='float:left; margin-right:1em'>227: 15 11 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412c41'><div style='float:left; margin-right:1em'>228: 16 11 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412c3c'><div style='float:left; margin-right:1em'>229: 16 11 15</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412c34'><div style='float:left; margin-right:1em'>230: 16 11 13</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412c30'><div style='float:left; margin-right:1em'>231: 16 11 12</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#412c2c'><div style='float:left; margin-right:1em'>232: 16 11 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#41302c'><div style='float:left; margin-right:1em'>233: 16 12 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#41342c'><div style='float:left; margin-right:1em'>234: 16 13 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#413c2c'><div style='float:left; margin-right:1em'>235: 16 15 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#41412c'><div style='float:left; margin-right:1em'>236: 16 16 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#3c412c'><div style='float:left; margin-right:1em'>237: 15 16 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#34412c'><div style='float:left; margin-right:1em'>238: 13 16 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#30412c'><div style='float:left; margin-right:1em'>239: 12 16 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c412c'><div style='float:left; margin-right:1em'>240: 11 16 11</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c4130'><div style='float:left; margin-right:1em'>241: 11 16 12</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c4134'><div style='float:left; margin-right:1em'>242: 11 16 13</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c413c'><div style='float:left; margin-right:1em'>243: 11 16 15</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c4141'><div style='float:left; margin-right:1em'>244: 11 16 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c3c41'><div style='float:left; margin-right:1em'>245: 11 15 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c3441'><div style='float:left; margin-right:1em'>246: 11 13 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> -<div style='clear:both; white-space:pre; color:#2c3041'><div style='float:left; margin-right:1em'>247: 11 12 16</div> <div style='float:left; width:40em'>■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■ </div> <div style='float:left; width:40em'>■■■■■■■■■■■■■■■■ </div></div> - -<h2>Black</h2> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>248: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>249: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>250: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>251: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>252: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>253: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>254: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -<div style='clear:both; white-space:pre; color:#000000'><div style='float:left; margin-right:1em'>255: 00 00 00</div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div> <div style='float:left; width:40em'> </div></div> -</body> diff --git a/html/boot.subx.html b/html/boot.subx.html new file mode 100644 index 00000000..4518b0d0 --- /dev/null +++ b/html/boot.subx.html @@ -0,0 +1,842 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - boot.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.Folded { color: #080808; background-color: #949494; } +.subxS1Comment { color: #0000af; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/boot.subx'>https://github.com/akkartik/mu/blob/main/boot.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Code for the first few disk sectors that all programs in this directory need:</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># - load sectors past the first (using BIOS primitives) since only the first is available by default</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># - if this fails, print 'D' at top-left of screen and halt</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># - initialize a minimal graphics mode</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># - switch to 32-bit mode (giving up access to BIOS primitives)</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># - set up a handler for keyboard events</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># - jump to start of program</span> +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Code in this file needs to be more deliberate about the SubX facilities it</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># uses:</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># - sigils only support 32-bit general-purpose registers, so don't work with segment registers or 16-bit or 8-bit registers</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># - metadata like rm32 and r32 can sometimes misleadingly refer to only the bottom 16 bits of the register; pay attention to the register name</span> +<span id="L13" class="LineNr"> 13 </span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># Memory map of a Mu computer:</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># code: 4 tracks of disk to [0x00007c00, 0x00027400)</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># stack grows down from 0x00070000</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># see below</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># heap: [0x01000000, 0x02000000)</span> +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># see 120allocate.subx</span> +<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># Consult <a href="https://wiki.osdev.org/Memory_Map_(x86)">https://wiki.osdev.org/Memory_Map_(x86)</a> before modifying any of this.</span> +<span id="L21" class="LineNr"> 21 </span> +<span id="L22" class="LineNr"> 22 </span>== code +<span id="L23" class="LineNr"> 23 </span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment">## 16-bit entry point: 0x7c00</span> +<span id="L25" class="LineNr"> 25 </span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># Upon reset, the IBM PC:</span> +<span id="L27" class="LineNr"> 27 </span><span class="subxComment"># - loads the first sector (512 bytes)</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># from some bootable image (look for the boot-sector-marker further down this file)</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># to the address range [0x7c00, 0x7e00)</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># - starts executing code at address 0x7c00</span> +<span id="L31" class="LineNr"> 31 </span> +<span id="L32" class="LineNr"> 32 </span> fa/disable-interrupts +<span id="L33" class="LineNr"> 33 </span> +<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># initialize segment registers</span> +<span id="L35" class="LineNr"> 35 </span> b8/copy-to-ax 0/imm16 +<span id="L36" class="LineNr"> 36 </span> 8e/->seg 3/mod/direct 0/rm32/ax 3/r32/ds +<span id="L37" class="LineNr"> 37 </span> 8e/->seg 3/mod/direct 0/rm32/ax 0/r32/es +<span id="L38" class="LineNr"> 38 </span> 8e/->seg 3/mod/direct 0/rm32/ax 4/r32/fs +<span id="L39" class="LineNr"> 39 </span> 8e/->seg 3/mod/direct 0/rm32/ax 5/r32/gs +<span id="L40" class="LineNr"> 40 </span> +<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># initialize stack to 0x00070000</span> +<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># We don't read or write the stack before we get to 32-bit mode, but BIOS</span> +<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># calls do. We need to move the stack in case BIOS initializes it to some</span> +<span id="L44" class="LineNr"> 44 </span> <span class="subxComment"># low address that we want to write code into.</span> +<span id="L45" class="LineNr"> 45 </span> b8/copy-to-ax 0x7000/imm16 +<span id="L46" class="LineNr"> 46 </span> 8e/->seg 3/mod/direct 0/rm32/ax 2/r32/ss +<span id="L47" class="LineNr"> 47 </span> bc/copy-to-esp 0/imm16 +<span id="L48" class="LineNr"> 48 </span> +<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># undo the A20 hack: <a href="https://en.wikipedia.org/wiki/A20_line">https://en.wikipedia.org/wiki/A20_line</a></span> +<span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># this is from <a href="https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S">https://github.com/mit-pdos/xv6-public/blob/master/bootasm.S</a></span> +<span id="L51" class="LineNr"> 51 </span> { +<span id="L52" class="LineNr"> 52 </span> e4/read-port-into-al 0x64/imm8 +<span id="L53" class="LineNr"> 53 </span> a8/test-bits-in-al 0x02/imm8 <span class="subxComment"># set zf if bit 1 (second-least significant) is not set</span> +<span id="L54" class="LineNr"> 54 </span> 75/jump-if-!zero <span class="Constant">loop</span>/imm8 +<span id="L55" class="LineNr"> 55 </span> b0/copy-to-al 0xd1/imm8 +<span id="L56" class="LineNr"> 56 </span> e6/write-al-into-port 0x64/imm8 +<span id="L57" class="LineNr"> 57 </span> } +<span id="L58" class="LineNr"> 58 </span> { +<span id="L59" class="LineNr"> 59 </span> e4/read-port-into-al 0x64/imm8 +<span id="L60" class="LineNr"> 60 </span> a8/test-bits-in-al 0x02/imm8 <span class="subxComment"># set zf if bit 1 (second-least significant) is not set</span> +<span id="L61" class="LineNr"> 61 </span> 75/jump-if-!zero <span class="Constant">loop</span>/imm8 +<span id="L62" class="LineNr"> 62 </span> b0/copy-to-al 0xdf/imm8 +<span id="L63" class="LineNr"> 63 </span> e6/write-al-into-port 0x64/imm8 +<span id="L64" class="LineNr"> 64 </span> } +<span id="L65" class="LineNr"> 65 </span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># load remaining sectors from first two tracks of disk into addresses [0x7e00, 0x17800)</span> +<span id="L67" class="LineNr"> 67 </span> b4/copy-to-ah 2/imm8/read-drive +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># dl comes conveniently initialized at boot time with the index of the device being booted</span> +<span id="L69" class="LineNr"> 69 </span> b5/copy-to-ch 0/imm8/cylinder +<span id="L70" class="LineNr"> 70 </span> b6/copy-to-dh 0/imm8/head +<span id="L71" class="LineNr"> 71 </span> b1/copy-to-cl 2/imm8/sector <span class="subxComment"># 1-based</span> +<span id="L72" class="LineNr"> 72 </span> b0/copy-to-al 0x7d/imm8/num-sectors <span class="subxComment"># 2*63 - 1 = 125</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># address to write sectors to = es:bx = 0x7e00, contiguous with boot segment</span> +<span id="L74" class="LineNr"> 74 </span> bb/copy-to-bx 0/imm16 +<span id="L75" class="LineNr"> 75 </span> 8e/->seg 3/mod/direct 3/rm32/bx 0/r32/es +<span id="L76" class="LineNr"> 76 </span> bb/copy-to-bx 0x7e00/imm16 +<span id="L77" class="LineNr"> 77 </span> cd/syscall 0x13/imm8/bios-disk-services +<span id="L78" class="LineNr"> 78 </span> 0f 82/jump-if-carry <a href='boot.subx.html#L144'>disk_error</a>/disp16 +<span id="L79" class="LineNr"> 79 </span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># load two more tracks of disk into addresses [0x17800, 0x27400)</span> +<span id="L81" class="LineNr"> 81 </span> b4/copy-to-ah 2/imm8/read-drive +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># dl comes conveniently initialized at boot time with the index of the device being booted</span> +<span id="L83" class="LineNr"> 83 </span> b5/copy-to-ch 0/imm8/cylinder +<span id="L84" class="LineNr"> 84 </span> b6/copy-to-dh 2/imm8/head +<span id="L85" class="LineNr"> 85 </span> b1/copy-to-cl 1/imm8/sector <span class="subxComment"># 1-based</span> +<span id="L86" class="LineNr"> 86 </span> b0/copy-to-al 0x7e/imm8/num-sectors <span class="subxComment"># 2*63 = 126</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># address to write sectors to = es:bx = 0x17800, contiguous with boot segment</span> +<span id="L88" class="LineNr"> 88 </span> bb/copy-to-bx 0x1780/imm16 +<span id="L89" class="LineNr"> 89 </span> 8e/->seg 3/mod/direct 3/rm32/bx 0/r32/es +<span id="L90" class="LineNr"> 90 </span> bb/copy-to-bx 0/imm16 +<span id="L91" class="LineNr"> 91 </span> cd/syscall 0x13/imm8/bios-disk-services +<span id="L92" class="LineNr"> 92 </span> 0f 82/jump-if-carry <a href='boot.subx.html#L144'>disk_error</a>/disp16 +<span id="L93" class="LineNr"> 93 </span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># load two more tracks of disk into addresses [0x27400, 0x37000)</span> +<span id="L95" class="LineNr"> 95 </span> b4/copy-to-ah 2/imm8/read-drive +<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># dl comes conveniently initialized at boot time with the index of the device being booted</span> +<span id="L97" class="LineNr"> 97 </span> b5/copy-to-ch 0/imm8/cylinder +<span id="L98" class="LineNr"> 98 </span> b6/copy-to-dh 4/imm8/head +<span id="L99" class="LineNr"> 99 </span> b1/copy-to-cl 1/imm8/sector <span class="subxComment"># 1-based</span> +<span id="L100" class="LineNr"> 100 </span> b0/copy-to-al 0x7e/imm8/num-sectors <span class="subxComment"># 2*63 = 126</span> +<span id="L101" class="LineNr"> 101 </span> <span class="subxComment"># address to write sectors to = es:bx = 0x27400, contiguous with boot segment</span> +<span id="L102" class="LineNr"> 102 </span> bb/copy-to-bx 0x2740/imm16 +<span id="L103" class="LineNr"> 103 </span> 8e/->seg 3/mod/direct 3/rm32/bx 0/r32/es +<span id="L104" class="LineNr"> 104 </span> bb/copy-to-bx 0/imm16 +<span id="L105" class="LineNr"> 105 </span> cd/syscall 0x13/imm8/bios-disk-services +<span id="L106" class="LineNr"> 106 </span> 0f 82/jump-if-carry <a href='boot.subx.html#L144'>disk_error</a>/disp16 +<span id="L107" class="LineNr"> 107 </span> +<span id="L108" class="LineNr"> 108 </span> <span class="subxComment"># reset es</span> +<span id="L109" class="LineNr"> 109 </span> bb/copy-to-bx 0/imm16 +<span id="L110" class="LineNr"> 110 </span> 8e/->seg 3/mod/direct 3/rm32/bx 0/r32/es +<span id="L111" class="LineNr"> 111 </span> +<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># adjust video mode</span> +<span id="L113" class="LineNr"> 113 </span> b4/copy-to-ah 0x4f/imm8 <span class="subxComment"># VBE commands</span> +<span id="L114" class="LineNr"> 114 </span> b0/copy-to-al 2/imm8 <span class="subxComment"># set video mode</span> +<span id="L115" class="LineNr"> 115 </span> bb/copy-to-bx 0x4105/imm16 <span class="subxComment"># 0x0105 | 0x4000</span> +<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># 0x0105 = graphics mode 1024x768x256</span> +<span id="L117" class="LineNr"> 117 </span> <span class="subxComment"># (alternative candidate: 0x0101 for 640x480x256)</span> +<span id="L118" class="LineNr"> 118 </span> <span class="subxComment"># 0x4000 bit = configure linear frame buffer in Bochs emulator; hopefully this doesn't hurt anything when running natively</span> +<span id="L119" class="LineNr"> 119 </span> cd/syscall 0x10/imm8/bios-video-services +<span id="L120" class="LineNr"> 120 </span> +<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># load information for the (hopefully) current video mode</span> +<span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># mostly just for the address to the linear frame buffer</span> +<span id="L123" class="LineNr"> 123 </span> b4/copy-to-ah 0x4f/imm8 <span class="subxComment"># VBE commands</span> +<span id="L124" class="LineNr"> 124 </span> b0/copy-to-al 1/imm8 <span class="subxComment"># get video mode info</span> +<span id="L125" class="LineNr"> 125 </span> b9/copy-to-cx 0x0105/imm16 <span class="subxComment"># mode we requested</span> +<span id="L126" class="LineNr"> 126 </span> bf/copy-to-di <span class="SpecialChar"><a href='boot.subx.html#L385'>Video-mode-info</a></span>/imm16 +<span id="L127" class="LineNr"> 127 </span> cd/syscall 0x10/imm8/bios-video-services +<span id="L128" class="LineNr"> 128 </span> +<span id="L129" class="LineNr"> 129 </span> <span class="subxComment">## switch to 32-bit mode</span> +<span id="L130" class="LineNr"> 130 </span> <span class="subxComment"># load global descriptor table</span> +<span id="L131" class="LineNr"> 131 </span> <span class="subxComment"># We can't refer to the label directly because SubX doesn't do the right</span> +<span id="L132" class="LineNr"> 132 </span> <span class="subxComment"># thing for lgdt, so rather than make errors worse in most places we instead</span> +<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># pin gdt_descriptor below.</span> +<span id="L134" class="LineNr"> 134 </span> 0f 01 2/subop/lgdt 0/mod/indirect 6/rm32/use-disp16 0x7cf8/disp16/gdt_descriptor +<span id="L135" class="LineNr"> 135 </span> <span class="subxComment"># enable paging</span> +<span id="L136" class="LineNr"> 136 </span> 0f 20/<-cr 3/mod/direct 0/rm32/eax 0/r32/cr0 +<span id="L137" class="LineNr"> 137 </span> 66 83 1/subop/or 3/mod/direct 0/rm32/eax 1/imm8 <span class="subxComment"># eax <- or 0x1</span> +<span id="L138" class="LineNr"> 138 </span> 0f 22/->cr 3/mod/direct 0/rm32/eax 0/r32/cr0 +<span id="L139" class="LineNr"> 139 </span> <span class="subxComment"># far jump to initialize_32bit_mode that sets cs to offset 8 in the gdt in the process</span> +<span id="L140" class="LineNr"> 140 </span> <span class="subxComment"># We can't refer to the label directly because SubX doesn't have syntax for</span> +<span id="L141" class="LineNr"> 141 </span> <span class="subxComment"># segment selectors. So we instead pin initialize_32bit_mode below.</span> +<span id="L142" class="LineNr"> 142 </span> ea/jump-far-absolute 0x00087d00/disp32 <span class="subxComment"># address 0x7d00 in offset 8 of the gdt</span> +<span id="L143" class="LineNr"> 143 </span> +<span id="L144" class="LineNr"> 144 </span><span class="subxFunction">disk_error</span>: +<span id="L145" class="LineNr"> 145 </span> <span class="subxComment"># print 'D' to top-left of screen to indicate disk error</span> +<span id="L146" class="LineNr"> 146 </span> <span class="subxComment"># *0xb8000 <- 0x0f44</span> +<span id="L147" class="LineNr"> 147 </span> bb/copy-to-bx 0xb800/imm16 +<span id="L148" class="LineNr"> 148 </span> 8e/->seg 3/mod/direct 3/rm32/bx 3/r32/ds +<span id="L149" class="LineNr"> 149 </span> b0/copy-to-al 0x44/imm8/D +<span id="L150" class="LineNr"> 150 </span> b4/copy-to-ah 0x0f/imm8/white-on-black +<span id="L151" class="LineNr"> 151 </span> bb/copy-to-bx 0/imm16 +<span id="L152" class="LineNr"> 152 </span> 89/<- 0/mod/indirect 7/rm32/bx 0/r32/ax <span class="subxComment"># *ds:bx <- ax</span> +<span id="L153" class="LineNr"> 153 </span> <span class="subxComment"># loop forever</span> +<span id="L154" class="LineNr"> 154 </span> { +<span id="L155" class="LineNr"> 155 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L156" class="LineNr"> 156 </span> } +<span id="L157" class="LineNr"> 157 </span> +<span id="L158" class="LineNr"> 158 </span><span class="subxComment">## GDT: 3 records of 8 bytes each</span> +<span id="L159" class="LineNr"> 159 </span>== data +<span id="L160" class="LineNr"> 160 </span> +<span id="L161" class="LineNr"> 161 </span><span class="subxFunction">gdt_start</span>: +<span id="L162" class="LineNr"> 162 </span><span class="subxComment"># offset 0: gdt_null: mandatory null descriptor</span> +<span id="L163" class="LineNr"> 163 </span> 00 00 00 00 00 00 00 00 +<span id="L164" class="LineNr"> 164 </span><span class="subxComment"># offset 8: gdt_code</span> +<span id="L165" class="LineNr"> 165 </span> ff ff <span class="subxComment"># limit[0:16]</span> +<span id="L166" class="LineNr"> 166 </span> 00 00 00 <span class="subxComment"># base[0:24]</span> +<span id="L167" class="LineNr"> 167 </span> 9a <span class="subxComment"># 1/present 00/privilege 1/descriptor type = 1001b</span> +<span id="L168" class="LineNr"> 168 </span> <span class="subxComment"># 1/code 0/conforming 1/readable 0/accessed = 1010b</span> +<span id="L169" class="LineNr"> 169 </span> cf <span class="subxComment"># 1/granularity 1/32-bit 0/64-bit-segment 0/AVL = 1100b</span> +<span id="L170" class="LineNr"> 170 </span> <span class="subxComment"># limit[16:20] = 1111b</span> +<span id="L171" class="LineNr"> 171 </span> 00 <span class="subxComment"># base[24:32]</span> +<span id="L172" class="LineNr"> 172 </span><span class="subxComment"># offset 16: gdt_data</span> +<span id="L173" class="LineNr"> 173 </span> ff ff <span class="subxComment"># limit[0:16]</span> +<span id="L174" class="LineNr"> 174 </span> 00 00 00 <span class="subxComment"># base[0:24]</span> +<span id="L175" class="LineNr"> 175 </span> 92 <span class="subxComment"># 1/present 00/privilege 1/descriptor type = 1001b</span> +<span id="L176" class="LineNr"> 176 </span> <span class="subxComment"># 0/data 0/conforming 1/readable 0/accessed = 0010b</span> +<span id="L177" class="LineNr"> 177 </span> cf <span class="subxComment"># same as gdt_code</span> +<span id="L178" class="LineNr"> 178 </span> 00 <span class="subxComment"># base[24:32]</span> +<span id="L179" class="LineNr"> 179 </span><span class="subxComment"># gdt_end:</span> +<span id="L180" class="LineNr"> 180 </span> +<span id="L181" class="LineNr"> 181 </span>== data 0x7cf8 +<span id="L182" class="LineNr"> 182 </span><span class="subxFunction">gdt_descriptor</span>: +<span id="L183" class="LineNr"> 183 </span> 0x17/imm16 <span class="subxComment"># final index of gdt = size of gdt - 1</span> +<span id="L184" class="LineNr"> 184 </span> <a href='boot.subx.html#L161'>gdt_start</a>/imm32/start +<span id="L185" class="LineNr"> 185 </span> +<span id="L186" class="LineNr"> 186 </span><span class="subxComment">## 32-bit code from this point</span> +<span id="L187" class="LineNr"> 187 </span> +<span id="L188" class="LineNr"> 188 </span>== code 0x7d00 +<span id="L189" class="LineNr"> 189 </span><span class="subxFunction">initialize_32bit_mode</span>: +<span id="L190" class="LineNr"> 190 </span> 66 b8/copy-to-ax 0x10/imm16 <span class="subxComment"># offset 16 from gdt_start</span> +<span id="L191" class="LineNr"> 191 </span> 8e/->seg 3/mod/direct 0/rm32/ax 3/r32/ds +<span id="L192" class="LineNr"> 192 </span> 8e/->seg 3/mod/direct 0/rm32/ax 2/r32/ss +<span id="L193" class="LineNr"> 193 </span> 8e/->seg 3/mod/direct 0/rm32/ax 0/r32/es +<span id="L194" class="LineNr"> 194 </span> 8e/->seg 3/mod/direct 0/rm32/ax 4/r32/fs +<span id="L195" class="LineNr"> 195 </span> 8e/->seg 3/mod/direct 0/rm32/ax 5/r32/gs +<span id="L196" class="LineNr"> 196 </span> +<span id="L197" class="LineNr"> 197 </span> bc/copy-to-esp 0x00070000/imm32 +<span id="L198" class="LineNr"> 198 </span> +<span id="L199" class="LineNr"> 199 </span> <span class="subxComment">## load interrupt handlers</span> +<span id="L200" class="LineNr"> 200 </span> <span class="subxComment"># We can't refer to the label directly because SubX doesn't do the right</span> +<span id="L201" class="LineNr"> 201 </span> <span class="subxComment"># thing for lidt, so rather than make errors worse in most places we instead</span> +<span id="L202" class="LineNr"> 202 </span> <span class="subxComment"># pin idt_descriptor below.</span> +<span id="L203" class="LineNr"> 203 </span> 0f 01 3/subop/lidt 0/mod/indirect 5/rm32/use-disp32 0x8000/disp32/idt_descriptor +<span id="L204" class="LineNr"> 204 </span> +<span id="L205" class="LineNr"> 205 </span> <span class="subxComment"># For now, not bothering reprogramming the IRQ to not conflict with software</span> +<span id="L206" class="LineNr"> 206 </span> <span class="subxComment"># exceptions.</span> +<span id="L207" class="LineNr"> 207 </span> <span class="subxComment"># <a href="https://wiki.osdev.org/index.php?title=8259_PIC&oldid=24650#Protected_Mode">https://wiki.osdev.org/index.php?title=8259_PIC&oldid=24650#Protected_Mode</a></span> +<span id="L208" class="LineNr"> 208 </span> <span class="subxComment">#</span> +<span id="L209" class="LineNr"> 209 </span> <span class="subxComment"># Interrupt 1 (keyboard) conflicts with debugger faults. We don't use a</span> +<span id="L210" class="LineNr"> 210 </span> <span class="subxComment"># debugger.</span> +<span id="L211" class="LineNr"> 211 </span> <span class="subxComment"># Reference:</span> +<span id="L212" class="LineNr"> 212 </span> <span class="subxComment"># <a href="https://wiki.osdev.org/Exceptions">https://wiki.osdev.org/Exceptions</a></span> +<span id="L213" class="LineNr"> 213 </span> +<span id="L214" class="LineNr"> 214 </span> <span class="subxComment"># enable keyboard IRQ (1)</span> +<span id="L215" class="LineNr"> 215 </span> b0/copy-to-al 0xfd/imm8 <span class="subxComment"># disable mask for IRQ1</span> +<span id="L216" class="LineNr"> 216 </span> e6/write-al-into-port 0x21/imm8 +<span id="L217" class="LineNr"> 217 </span> +<span id="L218" class="LineNr"> 218 </span> fb/enable-interrupts +<span id="L219" class="LineNr"> 219 </span> +<span id="L220" class="LineNr"> 220 </span> <span class="subxComment">## enable floating point</span> +<span id="L221" class="LineNr"> 221 </span> db/floating-point-coprocessor e3/initialize +<span id="L222" class="LineNr"> 222 </span> <span class="subxComment"># eax <- cr4</span> +<span id="L223" class="LineNr"> 223 </span> 0f 20/<-cr 3/mod/direct 0/rm32/eax 4/r32/cr4 +<span id="L224" class="LineNr"> 224 </span> <span class="subxComment"># eax <- or bit 9</span> +<span id="L225" class="LineNr"> 225 </span> 0f ba/bit-test 5/subop/bit-test-and-set 3/mod/direct 0/rm32/eax 9/imm8 +<span id="L226" class="LineNr"> 226 </span> <span class="subxComment"># cr4 <- eax</span> +<span id="L227" class="LineNr"> 227 </span> 0f 22/->cr 3/mod/direct 0/rm32/eax 4/r32/cr4 +<span id="L228" class="LineNr"> 228 </span> +<span id="L229" class="LineNr"> 229 </span> e9/jump <span class="SpecialChar">Entry</span>/disp32 +<span id="L230" class="LineNr"> 230 </span> +<span id="L231" class="LineNr"> 231 </span>== boot-sector-marker 0x7dfe +<span id="L232" class="LineNr"> 232 </span><span class="subxComment"># final 2 bytes of boot sector</span> +<span id="L233" class="LineNr"> 233 </span>55 aa +<span id="L234" class="LineNr"> 234 </span> +<span id="L235" class="LineNr"> 235 </span><span class="subxComment">## sector 2 onwards loaded by load_disk, not automatically on boot</span> +<span id="L236" class="LineNr"> 236 </span>== code +<span id="L237" class="LineNr"> 237 </span> +<span id="L238" class="LineNr"> 238 </span><span class="subxFunction">null-interrupt-handler</span>: +<span id="L239" class="LineNr"> 239 </span> cf/return-from-interrupt +<span id="L240" class="LineNr"> 240 </span> +<span id="L241" class="LineNr"> 241 </span><span class="subxFunction">keyboard-interrupt-handler</span>: +<span id="L242" class="LineNr"> 242 </span> <span class="subxComment"># prologue</span> +<span id="L243" class="LineNr"> 243 </span> fa/disable-interrupts +<span id="L244" class="LineNr"> 244 </span> 60/push-all-registers +<span id="L245" class="LineNr"> 245 </span> <span class="subxComment"># acknowledge interrupt</span> +<span id="L246" class="LineNr"> 246 </span> b0/copy-to-al 0x20/imm8 +<span id="L247" class="LineNr"> 247 </span> e6/write-al-into-port 0x20/imm8 +<span id="L248" class="LineNr"> 248 </span> 31/xor %eax 0/r32/eax +<span id="L249" class="LineNr"> 249 </span> <span class="subxComment"># check output buffer of 8042 keyboard controller (<a href="https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)">https://web.archive.org/web/20040604041507/http://panda.cs.ndsu.nodak.edu/~achapwes/PICmicro/keyboard/atkeyboard.html)</a></span> +<span id="L250" class="LineNr"> 250 </span> e4/read-port-into-al 0x64/imm8 +<span id="L251" class="LineNr"> 251 </span> a8/test-bits-in-al 0x01/imm8 <span class="subxComment"># set zf if bit 0 (least significant) is not set</span> +<span id="L252" class="LineNr"> 252 </span> 74/jump-if-not-set $keyboard-interrupt-handler:epilogue/disp8 +<span id="L253" class="LineNr"> 253 </span> <span class="subxH1Comment"># - if keyboard buffer is full, return</span> +<span id="L254" class="LineNr"> 254 </span> <span class="subxComment"># var dest-addr/ecx: (addr byte) = (keyboard-buffer + *keyboard-buffer:write)</span> +<span id="L255" class="LineNr"> 255 </span> 31/xor %ecx 1/r32/ecx +<span id="L256" class="LineNr"> 256 </span> 8a/byte-> *<span class="SpecialChar">Keyboard-buffer</span>:<a href='108write.subx.html#L11'>write</a> 1/r32/cl +<span id="L257" class="LineNr"> 257 </span> 81 0/subop/add %ecx <span class="SpecialChar">Keyboard-buffer</span>:data/imm32 +<span id="L258" class="LineNr"> 258 </span> <span class="subxComment"># al = *dest-addr</span> +<span id="L259" class="LineNr"> 259 </span> 8a/byte-> *ecx 0/r32/al +<span id="L260" class="LineNr"> 260 </span> <span class="subxComment"># if (al != 0) return</span> +<span id="L261" class="LineNr"> 261 </span> 3c/compare-al-and 0/imm8 +<span id="L262" class="LineNr"> 262 </span> 75/jump-if-!= $keyboard-interrupt-handler:epilogue/disp8 +<span id="L263" class="LineNr"> 263 </span> <span class="subxH1Comment"># - read keycode</span> +<span id="L264" class="LineNr"> 264 </span> e4/read-port-into-al 0x60/imm8 +<span id="L265" class="LineNr"> 265 </span> <span class="subxH1Comment"># - key released</span> +<span id="L266" class="LineNr"> 266 </span> <span class="subxComment"># if (al == 0xaa) shift = false # left shift is being lifted</span> +<span id="L267" class="LineNr"> 267 </span> { +<span id="L268" class="LineNr"> 268 </span> 3c/compare-al-and 0xaa/imm8 +<span id="L269" class="LineNr"> 269 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L270" class="LineNr"> 270 </span> <span class="subxComment"># *shift = 0</span> +<span id="L271" class="LineNr"> 271 </span> c7 0/subop/copy *Keyboard-shift-pressed? 0/imm32 +<span id="L272" class="LineNr"> 272 </span> } +<span id="L273" class="LineNr"> 273 </span> <span class="subxComment"># if (al == 0xb6) shift = false # right shift is being lifted</span> +<span id="L274" class="LineNr"> 274 </span> { +<span id="L275" class="LineNr"> 275 </span> 3c/compare-al-and 0xb6/imm8 +<span id="L276" class="LineNr"> 276 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L277" class="LineNr"> 277 </span> <span class="subxComment"># *shift = 0</span> +<span id="L278" class="LineNr"> 278 </span> c7 0/subop/copy *Keyboard-shift-pressed? 0/imm32 +<span id="L279" class="LineNr"> 279 </span> } +<span id="L280" class="LineNr"> 280 </span> <span class="subxComment"># if (al == 0x9d) ctrl = false # ctrl is being lifted</span> +<span id="L281" class="LineNr"> 281 </span> { +<span id="L282" class="LineNr"> 282 </span> 3c/compare-al-and 0x9d/imm8 +<span id="L283" class="LineNr"> 283 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L284" class="LineNr"> 284 </span> <span class="subxComment"># *ctrl = 0</span> +<span id="L285" class="LineNr"> 285 </span> c7 0/subop/copy *Keyboard-ctrl-pressed? 0/imm32 +<span id="L286" class="LineNr"> 286 </span> } +<span id="L287" class="LineNr"> 287 </span> <span class="subxComment"># if (al & 0x80) a key is being lifted; return</span> +<span id="L288" class="LineNr"> 288 </span> 50/push-eax +<span id="L289" class="LineNr"> 289 </span> 24/and-al-with 0x80/imm8 +<span id="L290" class="LineNr"> 290 </span> 3c/compare-al-and 0/imm8 +<span id="L291" class="LineNr"> 291 </span> 58/pop-to-eax +<span id="L292" class="LineNr"> 292 </span> 75/jump-if-!= $keyboard-interrupt-handler:epilogue/disp8 +<span id="L293" class="LineNr"> 293 </span> <span class="subxH1Comment"># - key pressed</span> +<span id="L294" class="LineNr"> 294 </span> <span class="subxComment"># if (al == 0x2a) shift = true, return # left shift pressed</span> +<span id="L295" class="LineNr"> 295 </span> { +<span id="L296" class="LineNr"> 296 </span> 3c/compare-al-and 0x2a/imm8 +<span id="L297" class="LineNr"> 297 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L298" class="LineNr"> 298 </span> <span class="subxComment"># *shift = 1</span> +<span id="L299" class="LineNr"> 299 </span> c7 0/subop/copy *Keyboard-shift-pressed? 1/imm32 +<span id="L300" class="LineNr"> 300 </span> <span class="subxComment"># return</span> +<span id="L301" class="LineNr"> 301 </span> eb/jump $keyboard-interrupt-handler:epilogue/disp8 +<span id="L302" class="LineNr"> 302 </span> } +<span id="L303" class="LineNr"> 303 </span> <span class="subxComment"># if (al == 0x36) shift = true, return # right shift pressed</span> +<span id="L304" class="LineNr"> 304 </span> { +<span id="L305" class="LineNr"> 305 </span> 3c/compare-al-and 0x36/imm8 +<span id="L306" class="LineNr"> 306 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L307" class="LineNr"> 307 </span> <span class="subxComment"># *shift = 1</span> +<span id="L308" class="LineNr"> 308 </span> c7 0/subop/copy *Keyboard-shift-pressed? 1/imm32 +<span id="L309" class="LineNr"> 309 </span> <span class="subxComment"># return</span> +<span id="L310" class="LineNr"> 310 </span> eb/jump $keyboard-interrupt-handler:epilogue/disp8 +<span id="L311" class="LineNr"> 311 </span> } +<span id="L312" class="LineNr"> 312 </span> <span class="subxComment"># if (al == 0x1d) ctrl = true, return</span> +<span id="L313" class="LineNr"> 313 </span> { +<span id="L314" class="LineNr"> 314 </span> 3c/compare-al-and 0x1d/imm8 +<span id="L315" class="LineNr"> 315 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L316" class="LineNr"> 316 </span> <span class="subxComment"># *ctrl = 1</span> +<span id="L317" class="LineNr"> 317 </span> c7 0/subop/copy *Keyboard-ctrl-pressed? 1/imm32 +<span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># return</span> +<span id="L319" class="LineNr"> 319 </span> eb/jump $keyboard-interrupt-handler:epilogue/disp8 +<span id="L320" class="LineNr"> 320 </span> } +<span id="L321" class="LineNr"> 321 </span> <span class="subxH1Comment"># - convert key to character</span> +<span id="L322" class="LineNr"> 322 </span> <span class="subxComment"># if (shift) use keyboard shift map</span> +<span id="L323" class="LineNr"> 323 </span> { +<span id="L324" class="LineNr"> 324 </span> 81 7/subop/compare *Keyboard-shift-pressed? 0/imm32 +<span id="L325" class="LineNr"> 325 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L326" class="LineNr"> 326 </span> <span class="subxComment"># sigils don't currently support labels inside *(eax+label)</span> +<span id="L327" class="LineNr"> 327 </span> 05/add-to-eax <span class="SpecialChar"><a href='boot.subx.html#L634'>Keyboard-shift-map</a></span>/imm32 +<span id="L328" class="LineNr"> 328 </span> 8a/byte-> *eax 0/r32/al +<span id="L329" class="LineNr"> 329 </span> eb/jump $keyboard-interrupt-handler:select-map-done/disp8 +<span id="L330" class="LineNr"> 330 </span> } +<span id="L331" class="LineNr"> 331 </span> <span class="subxComment"># if (ctrl) al = *(ctrl map + al)</span> +<span id="L332" class="LineNr"> 332 </span> { +<span id="L333" class="LineNr"> 333 </span> 81 7/subop/compare *Keyboard-ctrl-pressed? 0/imm32 +<span id="L334" class="LineNr"> 334 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L335" class="LineNr"> 335 </span> 05/add-to-eax <span class="SpecialChar"><a href='boot.subx.html#L661'>Keyboard-ctrl-map</a></span>/imm32 +<span id="L336" class="LineNr"> 336 </span> 8a/byte-> *eax 0/r32/al +<span id="L337" class="LineNr"> 337 </span> eb/jump $keyboard-interrupt-handler:select-map-done/disp8 +<span id="L338" class="LineNr"> 338 </span> } +<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># otherwise al = *(normal map + al)</span> +<span id="L340" class="LineNr"> 340 </span> 05/add-to-eax <span class="SpecialChar"><a href='boot.subx.html#L605'>Keyboard-normal-map</a></span>/imm32 +<span id="L341" class="LineNr"> 341 </span> 8a/byte-> *eax 0/r32/al +<span id="L342" class="LineNr"> 342 </span><span class="Constant">$keyboard-interrupt-handler:select-map-done</span>: +<span id="L343" class="LineNr"> 343 </span> <span class="subxH1Comment"># - if there's no character mapping, return</span> +<span id="L344" class="LineNr"> 344 </span> { +<span id="L345" class="LineNr"> 345 </span> 3c/compare-al-and 0/imm8 +<span id="L346" class="LineNr"> 346 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L347" class="LineNr"> 347 </span> <span class="subxH1Comment"># - store al in keyboard buffer</span> +<span id="L348" class="LineNr"> 348 </span> 88/<- *ecx 0/r32/al +<span id="L349" class="LineNr"> 349 </span> <span class="subxComment"># increment index</span> +<span id="L350" class="LineNr"> 350 </span> fe/increment-byte *<span class="SpecialChar">Keyboard-buffer</span>:<a href='108write.subx.html#L11'>write</a> +<span id="L351" class="LineNr"> 351 </span> <span class="subxComment"># clear top nibble of index (keyboard buffer is circular)</span> +<span id="L352" class="LineNr"> 352 </span> 80 4/subop/and-byte *<span class="SpecialChar">Keyboard-buffer</span>:<a href='108write.subx.html#L11'>write</a> 0x0f/imm8 +<span id="L353" class="LineNr"> 353 </span> } +<span id="L354" class="LineNr"> 354 </span><span class="Constant">$keyboard-interrupt-handler:epilogue</span>: +<span id="L355" class="LineNr"> 355 </span> <span class="subxComment"># epilogue</span> +<span id="L356" class="LineNr"> 356 </span> 61/pop-all-registers +<span id="L357" class="LineNr"> 357 </span> fb/enable-interrupts +<span id="L358" class="LineNr"> 358 </span> cf/return-from-interrupt +<span id="L359" class="LineNr"> 359 </span> +<span id="L360" class="LineNr"> 360 </span><span class="subxComment">## the rest of this file is all data</span> +<span id="L361" class="LineNr"> 361 </span> +<span id="L362" class="LineNr"> 362 </span>== data 0x8000 +<span id="L363" class="LineNr"> 363 </span><span class="subxFunction">idt_descriptor</span>: +<span id="L364" class="LineNr"> 364 </span> ff 03 <span class="subxComment"># final index of idt = size of idt - 1</span> +<span id="L365" class="LineNr"> 365 </span> <a href='boot.subx.html#L443'>idt_start</a>/imm32/start +<span id="L366" class="LineNr"> 366 </span> +<span id="L367" class="LineNr"> 367 </span>Keyboard-shift-pressed?: <span class="subxComment"># boolean</span> +<span id="L368" class="LineNr"> 368 </span> 0/imm32 +<span id="L369" class="LineNr"> 369 </span> +<span id="L370" class="LineNr"> 370 </span>Keyboard-ctrl-pressed?: <span class="subxComment"># boolean</span> +<span id="L371" class="LineNr"> 371 </span> 0/imm32 +<span id="L372" class="LineNr"> 372 </span> +<span id="L373" class="LineNr"> 373 </span><span class="subxComment"># var keyboard circular buffer</span> +<span id="L374" class="LineNr"> 374 </span><span class="SpecialChar">Keyboard-buffer</span>:<a href='108write.subx.html#L11'>write</a>: <span class="subxComment"># nibble</span> +<span id="L375" class="LineNr"> 375 </span> 0/imm32 +<span id="L376" class="LineNr"> 376 </span><span class="SpecialChar">Keyboard-buffer</span>:read: <span class="subxComment"># nibble</span> +<span id="L377" class="LineNr"> 377 </span> 0/imm32 +<span id="L378" class="LineNr"> 378 </span><span class="SpecialChar">Keyboard-buffer</span>:data: <span class="subxComment"># byte[16]</span> +<span id="L379" class="LineNr"> 379 </span> 00 00 00 00 +<span id="L380" class="LineNr"> 380 </span> 00 00 00 00 +<span id="L381" class="LineNr"> 381 </span> 00 00 00 00 +<span id="L382" class="LineNr"> 382 </span> 00 00 00 00 +<span id="L383" class="LineNr"> 383 </span> +<span id="L384" class="LineNr"> 384 </span>== data 0x8100 +<span id="L385" class="LineNr"> 385 </span><span class="SpecialChar">Video-mode-info</span>: +<span id="L386" class="Folded"> 386 </span><span class="Folded">+-- 53 lines: # video mode info ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L439" class="LineNr"> 439 </span> +<span id="L440" class="LineNr"> 440 </span>== data 0x8200 +<span id="L441" class="Folded"> 441 </span><span class="Folded">+--161 lines: # interrupt descriptor table ----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L602" class="LineNr"> 602 </span> +<span id="L603" class="LineNr"> 603 </span>== data 0x8600 +<span id="L604" class="Folded"> 604 </span><span class="Folded">+-- 72 lines: # translating keys to ASCII -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L676" class="LineNr"> 676 </span> +<span id="L677" class="LineNr"> 677 </span>== data 0x8c00 +<span id="L678" class="LineNr"> 678 </span><span class="SpecialChar">Font</span>: +<span id="L679" class="Folded"> 679 </span><span class="Folded">+--236 lines: # Bitmaps for some ASCII characters (soon Unicode) ------------------------------------------------------------------------------------------------------------------------</span> +<span id="L915" class="LineNr"> 915 </span> +<span id="L916" class="LineNr"> 916 </span><span class="subxComment"># offset 1800 (address 0x9400)</span> +<span id="L917" class="LineNr"> 917 </span>== code 0x9400 +<span id="L918" class="LineNr"> 918 </span> +<span id="L919" class="LineNr"> 919 </span><span class="subxComment"># Use 28-bit PIO mode to read the first sector (512 bytes) from an IDE (ATA)</span> +<span id="L920" class="LineNr"> 920 </span><span class="subxComment"># disk drive.</span> +<span id="L921" class="LineNr"> 921 </span><span class="subxComment"># Inspired by <a href="https://colorforth.github.io/ide.html">https://colorforth.github.io/ide.html</a></span> +<span id="L922" class="LineNr"> 922 </span><span class="subxComment">#</span> +<span id="L923" class="LineNr"> 923 </span><span class="subxComment"># Resources:</span> +<span id="L924" class="LineNr"> 924 </span><span class="subxComment"># <a href="https://wiki.osdev.org/ATA_PIO_Mode">https://wiki.osdev.org/ATA_PIO_Mode</a></span> +<span id="L925" class="LineNr"> 925 </span><span class="subxComment"># <a href="https://forum.osdev.org/viewtopic.php?f=1&p=167798">https://forum.osdev.org/viewtopic.php?f=1&p=167798</a></span> +<span id="L926" class="LineNr"> 926 </span><span class="subxComment"># read-sector, according to <a href="https://www.scs.stanford.edu/11wi-cs140/pintos/specs/ata-3-std.pdf">https://www.scs.stanford.edu/11wi-cs140/pintos/specs/ata-3-std.pdf</a></span> +<span id="L927" class="LineNr"> 927 </span><span class="subxFunction">load-first-sector-from-primary-bus-secondary-drive</span>: <span class="subxComment"># out: (addr stream byte)</span> +<span id="L928" class="LineNr"> 928 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L929" class="LineNr"> 929 </span> 55/push-ebp +<span id="L930" class="LineNr"> 930 </span> 89/<- %ebp 4/r32/esp +<span id="L931" class="LineNr"> 931 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L932" class="LineNr"> 932 </span> 50/push-eax +<span id="L933" class="LineNr"> 933 </span> 51/push-ecx +<span id="L934" class="LineNr"> 934 </span> 52/push-edx +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># check for drive</span> +<span id="L936" class="LineNr"> 936 </span> (<a href='boot.subx.html#L1059'>secondary-drive-exists?</a>) <span class="subxComment"># => eax</span> +<span id="L937" class="LineNr"> 937 </span> 3d/compare-eax-and 0/imm32/false +<span id="L938" class="LineNr"> 938 </span> 0f 84/jump-if-= $load-first-sector-from-primary-bus-secondary-drive:end/disp32 +<span id="L939" class="LineNr"> 939 </span> <span class="subxComment"># kick off read</span> +<span id="L940" class="LineNr"> 940 </span> (<a href='boot.subx.html#L1119'>ata-drive-select</a> 0xf0) <span class="subxComment"># primary bus, secondary drive; 4 LSBs contain 4 upper bits of LBA (here 0)</span> +<span id="L941" class="LineNr"> 941 </span> (<a href='boot.subx.html#L1139'>clear-ata-error</a>) +<span id="L942" class="LineNr"> 942 </span> (<a href='boot.subx.html#L1159'>ata-sector-count</a> 1) +<span id="L943" class="LineNr"> 943 </span> (<a href='boot.subx.html#L1179'>ata-lba</a> 0 0 0) <span class="subxComment"># lower 24 bits of LBA, all 0</span> +<span id="L944" class="LineNr"> 944 </span> (<a href='boot.subx.html#L1237'>ata-command</a> 0x20) <span class="subxComment"># read sectors with retries</span> +<span id="L945" class="LineNr"> 945 </span> <span class="subxComment"># poll for results</span> +<span id="L946" class="LineNr"> 946 </span> (<a href='boot.subx.html#L1257'>while-ata-busy</a>) +<span id="L947" class="LineNr"> 947 </span> (<a href='boot.subx.html#L1275'>until-ata-data-available</a>) +<span id="L948" class="LineNr"> 948 </span> <span class="subxComment"># emit results</span> +<span id="L949" class="LineNr"> 949 </span> 31/xor %eax 0/r32/eax +<span id="L950" class="LineNr"> 950 </span> ba/copy-to-edx 0x1f0/imm32 +<span id="L951" class="LineNr"> 951 </span> b9/copy-to-ecx 0x200/imm32 <span class="subxComment"># 512 bytes per sector</span> +<span id="L952" class="LineNr"> 952 </span> { +<span id="L953" class="LineNr"> 953 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L954" class="LineNr"> 954 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L955" class="LineNr"> 955 </span> 66 ed/read-port-dx-into-ax +<span id="L956" class="LineNr"> 956 </span> <span class="subxComment"># write 2 bytes to stream one at a time</span> +<span id="L957" class="LineNr"> 957 </span> (<a href='115write-byte.subx.html#L12'>append-byte</a> *(ebp+8) %eax) +<span id="L958" class="LineNr"> 958 </span> 49/decrement-ecx +<span id="L959" class="LineNr"> 959 </span> c1/shift 5/subop/right-padding-zeroes %eax 8/imm8 +<span id="L960" class="LineNr"> 960 </span> (<a href='115write-byte.subx.html#L12'>append-byte</a> *(ebp+8) %eax) +<span id="L961" class="LineNr"> 961 </span> 49/decrement-ecx +<span id="L962" class="LineNr"> 962 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L963" class="LineNr"> 963 </span> } +<span id="L964" class="LineNr"> 964 </span><span class="Constant">$load-first-sector-from-primary-bus-secondary-drive:end</span>: +<span id="L965" class="LineNr"> 965 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L966" class="LineNr"> 966 </span> 5a/pop-to-edx +<span id="L967" class="LineNr"> 967 </span> 59/pop-to-ecx +<span id="L968" class="LineNr"> 968 </span> 58/pop-to-eax +<span id="L969" class="LineNr"> 969 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L970" class="LineNr"> 970 </span> 89/<- %esp 5/r32/ebp +<span id="L971" class="LineNr"> 971 </span> 5d/pop-to-ebp +<span id="L972" class="LineNr"> 972 </span> c3/return +<span id="L973" class="LineNr"> 973 </span> +<span id="L974" class="LineNr"> 974 </span><span class="subxFunction">store-first-sector-to-primary-bus-secondary-drive</span>: <span class="subxComment"># in: (addr stream byte)</span> +<span id="L975" class="LineNr"> 975 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L976" class="LineNr"> 976 </span> 55/push-ebp +<span id="L977" class="LineNr"> 977 </span> 89/<- %ebp 4/r32/esp +<span id="L978" class="LineNr"> 978 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L979" class="LineNr"> 979 </span> 50/push-eax +<span id="L980" class="LineNr"> 980 </span> 51/push-ecx +<span id="L981" class="LineNr"> 981 </span> 52/push-edx +<span id="L982" class="LineNr"> 982 </span> 53/push-ebx +<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># check for drive</span> +<span id="L984" class="LineNr"> 984 </span> (<a href='boot.subx.html#L1059'>secondary-drive-exists?</a>) <span class="subxComment"># => eax</span> +<span id="L985" class="LineNr"> 985 </span> 3d/compare-eax-and 0/imm32/false +<span id="L986" class="LineNr"> 986 </span> 0f 84/jump-if-= $store-first-sector-to-primary-bus-secondary-drive:end/disp32 +<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># kick off write</span> +<span id="L988" class="LineNr"> 988 </span> (<a href='boot.subx.html#L1119'>ata-drive-select</a> 0xf0) <span class="subxComment"># primary bus, secondary drive; 4 LSBs contain 4 upper bits of LBA (here 0)</span> +<span id="L989" class="LineNr"> 989 </span> (<a href='boot.subx.html#L1139'>clear-ata-error</a>) +<span id="L990" class="LineNr"> 990 </span> (<a href='boot.subx.html#L1159'>ata-sector-count</a> 1) +<span id="L991" class="LineNr"> 991 </span> (<a href='boot.subx.html#L1179'>ata-lba</a> 0 0 0) <span class="subxComment"># lower 24 bits of LBA, all 0</span> +<span id="L992" class="LineNr"> 992 </span> (<a href='boot.subx.html#L1237'>ata-command</a> 0x30) <span class="subxComment"># write sectors with retries</span> +<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># wait</span> +<span id="L994" class="LineNr"> 994 </span> (<a href='boot.subx.html#L1257'>while-ata-busy</a>) +<span id="L995" class="LineNr"> 995 </span> (<a href='boot.subx.html#L1293'>until-ata-ready-for-data</a>) +<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># send data</span> +<span id="L997" class="LineNr"> 997 </span> ba/copy-to-edx 0x1f0/imm32 +<span id="L998" class="LineNr"> 998 </span> b9/copy-to-ecx 0x200/imm32 <span class="subxComment"># 512 bytes per sector</span> +<span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># var first-byte/ebx: byte</span> +<span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># when it's more than 0xff, we're at an even-numbered byte</span> +<span id="L1001" class="LineNr">1001 </span> bb/copy-to-ebx 0xffff/imm32 +<span id="L1002" class="LineNr">1002 </span><span class="Constant">$store-first-sector-to-primary-bus-secondary-drive:loop</span>: +<span id="L1003" class="LineNr">1003 </span> { +<span id="L1004" class="LineNr">1004 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L1005" class="LineNr">1005 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># this loop is slow, but the ATA spec also requires a small delay</span> +<span id="L1007" class="LineNr">1007 </span> (<a href='309stream.subx.html#L6'>stream-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L1008" class="LineNr">1008 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1009" class="LineNr">1009 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L1010" class="LineNr">1010 </span> <span class="subxComment"># read byte from stream</span> +<span id="L1011" class="LineNr">1011 </span> (<a href='112read-byte.subx.html#L13'>read-byte</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L1012" class="LineNr">1012 </span> <span class="subxComment"># if we're at an odd-numbered byte, save it to first-byte</span> +<span id="L1013" class="LineNr">1013 </span> 81 7/subop/compare %ebx 0xff/imm32 +<span id="L1014" class="LineNr">1014 </span> { +<span id="L1015" class="LineNr">1015 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L1016" class="LineNr">1016 </span> 89/<- %ebx 0/r32/eax +<span id="L1017" class="LineNr">1017 </span> eb/jump $store-first-sector-to-primary-bus-secondary-drive:<span class="Constant">loop</span>/disp8 +<span id="L1018" class="LineNr">1018 </span> } +<span id="L1019" class="LineNr">1019 </span> <span class="subxComment"># otherwise OR it with first-byte and write it out</span> +<span id="L1020" class="LineNr">1020 </span> c1/shift 4/subop/left %eax 8/imm8 +<span id="L1021" class="LineNr">1021 </span> 09/or %eax 3/r32/ebx +<span id="L1022" class="LineNr">1022 </span> 66 ef/write-ax-into-port-dx +<span id="L1023" class="LineNr">1023 </span> 49/decrement-ecx +<span id="L1024" class="LineNr">1024 </span> 49/decrement-ecx +<span id="L1025" class="LineNr">1025 </span> <span class="subxComment"># reset first-byte</span> +<span id="L1026" class="LineNr">1026 </span> bb/copy-to-ebx 0xffff/imm32 +<span id="L1027" class="LineNr">1027 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L1028" class="LineNr">1028 </span> } +<span id="L1029" class="LineNr">1029 </span> <span class="subxComment"># write out first-byte if necessary</span> +<span id="L1030" class="LineNr">1030 </span> 81 7/subop/compare %ebx 0xff/imm32 +<span id="L1031" class="LineNr">1031 </span> { +<span id="L1032" class="LineNr">1032 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 +<span id="L1033" class="LineNr">1033 </span> 89/<- %eax 3/r32/ebx +<span id="L1034" class="LineNr">1034 </span> 66 ef/write-ax-into-port-dx +<span id="L1035" class="LineNr">1035 </span> 49/decrement-ecx +<span id="L1036" class="LineNr">1036 </span> 49/decrement-ecx +<span id="L1037" class="LineNr">1037 </span> } +<span id="L1038" class="LineNr">1038 </span> <span class="subxComment"># pad zeroes</span> +<span id="L1039" class="LineNr">1039 </span> 31/xor %eax 0/r32/eax +<span id="L1040" class="LineNr">1040 </span> { +<span id="L1041" class="LineNr">1041 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L1042" class="LineNr">1042 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L1043" class="LineNr">1043 </span> 66 ef/write-ax-into-port-dx +<span id="L1044" class="LineNr">1044 </span> 49/decrement-ecx +<span id="L1045" class="LineNr">1045 </span> 49/decrement-ecx +<span id="L1046" class="LineNr">1046 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L1047" class="LineNr">1047 </span> } +<span id="L1048" class="LineNr">1048 </span><span class="Constant">$store-first-sector-to-primary-bus-secondary-drive:end</span>: +<span id="L1049" class="LineNr">1049 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1050" class="LineNr">1050 </span> 5b/pop-to-ebx +<span id="L1051" class="LineNr">1051 </span> 5a/pop-to-edx +<span id="L1052" class="LineNr">1052 </span> 59/pop-to-ecx +<span id="L1053" class="LineNr">1053 </span> 58/pop-to-eax +<span id="L1054" class="LineNr">1054 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1055" class="LineNr">1055 </span> 89/<- %esp 5/r32/ebp +<span id="L1056" class="LineNr">1056 </span> 5d/pop-to-ebp +<span id="L1057" class="LineNr">1057 </span> c3/return +<span id="L1058" class="LineNr">1058 </span> +<span id="L1059" class="LineNr">1059 </span><span class="subxFunction">secondary-drive-exists?</span>: <span class="subxComment"># -> _/eax: boolean</span> +<span id="L1060" class="LineNr">1060 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1061" class="LineNr">1061 </span> 55/push-ebp +<span id="L1062" class="LineNr">1062 </span> 89/<- %ebp 4/r32/esp +<span id="L1063" class="LineNr">1063 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1064" class="LineNr">1064 </span> 52/push-edx +<span id="L1065" class="LineNr">1065 </span> <span class="subxComment"># check for floating bus</span> +<span id="L1066" class="LineNr">1066 </span> { +<span id="L1067" class="LineNr">1067 </span> 31/xor %eax 0/r32/eax +<span id="L1068" class="LineNr">1068 </span> ba/copy-to-edx 0x1f7/imm32 +<span id="L1069" class="LineNr">1069 </span> ec/read-port-dx-into-al +<span id="L1070" class="LineNr">1070 </span> 3d/compare-eax-and 0xff/imm32 +<span id="L1071" class="LineNr">1071 </span> <span class="subxComment"># if eax is 0xff, primary bus has no drives</span> +<span id="L1072" class="LineNr">1072 </span> b8/copy-to-eax 0/imm32/false +<span id="L1073" class="LineNr">1073 </span> 74/jump-if-= $secondary-drive-exists?:end/disp8 +<span id="L1074" class="LineNr">1074 </span> } +<span id="L1075" class="LineNr">1075 </span> <span class="subxComment"># identify</span> +<span id="L1076" class="LineNr">1076 </span> (<a href='boot.subx.html#L1119'>ata-drive-select</a> 0xb0) <span class="subxComment"># primary bus, secondary drive</span> +<span id="L1077" class="LineNr">1077 </span> (<a href='boot.subx.html#L1159'>ata-sector-count</a> 0) +<span id="L1078" class="LineNr">1078 </span> (<a href='boot.subx.html#L1179'>ata-lba</a> 0 0 0) +<span id="L1079" class="LineNr">1079 </span> (<a href='boot.subx.html#L1237'>ata-command</a> 0xec) <span class="subxComment"># identify</span> +<span id="L1080" class="LineNr">1080 </span> <span class="subxComment"># read status register</span> +<span id="L1081" class="LineNr">1081 </span> <span class="subxComment"># TODO: might need to spin here for 400ns: <a href="https://wiki.osdev.org/index.php?title=ATA_PIO_Mode&oldid=25664#400ns_delays">https://wiki.osdev.org/index.php?title=ATA_PIO_Mode&oldid=25664#400ns_delays</a></span> +<span id="L1082" class="LineNr">1082 </span> 31/xor %eax 0/r32/eax +<span id="L1083" class="LineNr">1083 </span> ba/copy-to-edx 0x1f7/imm32 +<span id="L1084" class="LineNr">1084 </span> ec/read-port-dx-into-al +<span id="L1085" class="LineNr">1085 </span> <span class="subxComment"># if eax is 0, secondary drive does not exist</span> +<span id="L1086" class="LineNr">1086 </span> 3d/compare-eax-and 0/imm32 +<span id="L1087" class="LineNr">1087 </span> { +<span id="L1088" class="LineNr">1088 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L1089" class="LineNr">1089 </span> b8/copy-to-eax 1/imm32/true +<span id="L1090" class="LineNr">1090 </span> eb/jump $secondary-drive-exists?:complete-identify/disp8 +<span id="L1091" class="LineNr">1091 </span> } +<span id="L1092" class="LineNr">1092 </span> <span class="subxComment"># TODO: might need to perform remaining steps at <a href="https://wiki.osdev.org/index.php?title=ATA_PIO_Mode&oldid=25664#IDENTIFY_command">https://wiki.osdev.org/index.php?title=ATA_PIO_Mode&oldid=25664#IDENTIFY_command</a></span> +<span id="L1093" class="LineNr">1093 </span> b8/copy-to-eax 0/imm32/false +<span id="L1094" class="LineNr">1094 </span><span class="Constant">$secondary-drive-exists?:complete-identify</span>: +<span id="L1095" class="LineNr">1095 </span> 50/push-eax +<span id="L1096" class="LineNr">1096 </span> <span class="subxComment"># clear FIFO from the drive</span> +<span id="L1097" class="LineNr">1097 </span> ba/copy-to-edx 0x1f0/imm32 +<span id="L1098" class="LineNr">1098 </span> b9/copy-to-ecx 0x200/imm32 +<span id="L1099" class="LineNr">1099 </span> { +<span id="L1100" class="LineNr">1100 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L1101" class="LineNr">1101 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L1102" class="LineNr">1102 </span> <span class="subxComment"># read 4 bytes</span> +<span id="L1103" class="LineNr">1103 </span> ed/read-port-dx-into-eax +<span id="L1104" class="LineNr">1104 </span> 49/decrement-ecx +<span id="L1105" class="LineNr">1105 </span> 49/decrement-ecx +<span id="L1106" class="LineNr">1106 </span> 49/decrement-ecx +<span id="L1107" class="LineNr">1107 </span> 49/decrement-ecx +<span id="L1108" class="LineNr">1108 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L1109" class="LineNr">1109 </span> } +<span id="L1110" class="LineNr">1110 </span> 58/pop-to-eax +<span id="L1111" class="LineNr">1111 </span><span class="Constant">$secondary-drive-exists?:end</span>: +<span id="L1112" class="LineNr">1112 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1113" class="LineNr">1113 </span> 5a/pop-to-edx +<span id="L1114" class="LineNr">1114 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1115" class="LineNr">1115 </span> 89/<- %esp 5/r32/ebp +<span id="L1116" class="LineNr">1116 </span> 5d/pop-to-ebp +<span id="L1117" class="LineNr">1117 </span> c3/return +<span id="L1118" class="LineNr">1118 </span> +<span id="L1119" class="LineNr">1119 </span><span class="subxFunction">ata-drive-select</span>: <span class="subxComment"># n: byte</span> +<span id="L1120" class="LineNr">1120 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1121" class="LineNr">1121 </span> 55/push-ebp +<span id="L1122" class="LineNr">1122 </span> 89/<- %ebp 4/r32/esp +<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1124" class="LineNr">1124 </span> 50/push-eax +<span id="L1125" class="LineNr">1125 </span> 52/push-edx +<span id="L1126" class="LineNr">1126 </span> <span class="subxComment">#</span> +<span id="L1127" class="LineNr">1127 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L1128" class="LineNr">1128 </span> ba/copy-to-edx 0x1f6/imm32 +<span id="L1129" class="LineNr">1129 </span> ee/write-al-into-port-dx +<span id="L1130" class="LineNr">1130 </span><span class="Constant">$ata-drive-select:end</span>: +<span id="L1131" class="LineNr">1131 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1132" class="LineNr">1132 </span> 5a/pop-to-edx +<span id="L1133" class="LineNr">1133 </span> 58/pop-to-eax +<span id="L1134" class="LineNr">1134 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1135" class="LineNr">1135 </span> 89/<- %esp 5/r32/ebp +<span id="L1136" class="LineNr">1136 </span> 5d/pop-to-ebp +<span id="L1137" class="LineNr">1137 </span> c3/return +<span id="L1138" class="LineNr">1138 </span> +<span id="L1139" class="LineNr">1139 </span><span class="subxFunction">clear-ata-error</span>: +<span id="L1140" class="LineNr">1140 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1141" class="LineNr">1141 </span> 55/push-ebp +<span id="L1142" class="LineNr">1142 </span> 89/<- %ebp 4/r32/esp +<span id="L1143" class="LineNr">1143 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1144" class="LineNr">1144 </span> 50/push-eax +<span id="L1145" class="LineNr">1145 </span> 52/push-edx +<span id="L1146" class="LineNr">1146 </span> <span class="subxComment">#</span> +<span id="L1147" class="LineNr">1147 </span> b8/copy-to-eax 0/imm32 +<span id="L1148" class="LineNr">1148 </span> ba/copy-to-edx 0x1f1/imm32 +<span id="L1149" class="LineNr">1149 </span> ee/write-al-into-port-dx +<span id="L1150" class="LineNr">1150 </span><span class="Constant">$ata-error:end</span>: +<span id="L1151" class="LineNr">1151 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1152" class="LineNr">1152 </span> 5a/pop-to-edx +<span id="L1153" class="LineNr">1153 </span> 58/pop-to-eax +<span id="L1154" class="LineNr">1154 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1155" class="LineNr">1155 </span> 89/<- %esp 5/r32/ebp +<span id="L1156" class="LineNr">1156 </span> 5d/pop-to-ebp +<span id="L1157" class="LineNr">1157 </span> c3/return +<span id="L1158" class="LineNr">1158 </span> +<span id="L1159" class="LineNr">1159 </span><span class="subxFunction">ata-sector-count</span>: <span class="subxComment"># n: byte</span> +<span id="L1160" class="LineNr">1160 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1161" class="LineNr">1161 </span> 55/push-ebp +<span id="L1162" class="LineNr">1162 </span> 89/<- %ebp 4/r32/esp +<span id="L1163" class="LineNr">1163 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1164" class="LineNr">1164 </span> 50/push-eax +<span id="L1165" class="LineNr">1165 </span> 52/push-edx +<span id="L1166" class="LineNr">1166 </span> <span class="subxComment">#</span> +<span id="L1167" class="LineNr">1167 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L1168" class="LineNr">1168 </span> ba/copy-to-edx 0x1f2/imm32 +<span id="L1169" class="LineNr">1169 </span> ee/write-al-into-port-dx +<span id="L1170" class="LineNr">1170 </span><span class="Constant">$ata-sector-count:end</span>: +<span id="L1171" class="LineNr">1171 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1172" class="LineNr">1172 </span> 5a/pop-to-edx +<span id="L1173" class="LineNr">1173 </span> 58/pop-to-eax +<span id="L1174" class="LineNr">1174 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1175" class="LineNr">1175 </span> 89/<- %esp 5/r32/ebp +<span id="L1176" class="LineNr">1176 </span> 5d/pop-to-ebp +<span id="L1177" class="LineNr">1177 </span> c3/return +<span id="L1178" class="LineNr">1178 </span> +<span id="L1179" class="LineNr">1179 </span><span class="subxFunction">ata-lba</span>: <span class="subxComment"># lo: byte, mid: byte, hi: byte</span> +<span id="L1180" class="LineNr">1180 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1181" class="LineNr">1181 </span> 55/push-ebp +<span id="L1182" class="LineNr">1182 </span> 89/<- %ebp 4/r32/esp +<span id="L1183" class="LineNr">1183 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1184" class="LineNr">1184 </span> 50/push-eax +<span id="L1185" class="LineNr">1185 </span> 52/push-edx +<span id="L1186" class="LineNr">1186 </span> <span class="subxComment"># lo</span> +<span id="L1187" class="LineNr">1187 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L1188" class="LineNr">1188 </span> ba/copy-to-edx 0x1f3/imm32 +<span id="L1189" class="LineNr">1189 </span> ee/write-al-into-port-dx +<span id="L1190" class="LineNr">1190 </span> <span class="subxComment"># mid</span> +<span id="L1191" class="LineNr">1191 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L1192" class="LineNr">1192 </span> ba/copy-to-edx 0x1f4/imm32 +<span id="L1193" class="LineNr">1193 </span> ee/write-al-into-port-dx +<span id="L1194" class="LineNr">1194 </span> <span class="subxComment"># hi</span> +<span id="L1195" class="LineNr">1195 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L1196" class="LineNr">1196 </span> ba/copy-to-edx 0x1f5/imm32 +<span id="L1197" class="LineNr">1197 </span> ee/write-al-into-port-dx +<span id="L1198" class="LineNr">1198 </span><span class="Constant">$ata-lba:end</span>: +<span id="L1199" class="LineNr">1199 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1200" class="LineNr">1200 </span> 5a/pop-to-edx +<span id="L1201" class="LineNr">1201 </span> 58/pop-to-eax +<span id="L1202" class="LineNr">1202 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1203" class="LineNr">1203 </span> 89/<- %esp 5/r32/ebp +<span id="L1204" class="LineNr">1204 </span> 5d/pop-to-ebp +<span id="L1205" class="LineNr">1205 </span> c3/return +<span id="L1206" class="LineNr">1206 </span> +<span id="L1207" class="LineNr">1207 </span><span class="subxComment"># sector: [1, 63]</span> +<span id="L1208" class="LineNr">1208 </span><span class="subxComment"># cylinder: [0, 1023]</span> +<span id="L1209" class="LineNr">1209 </span><span class="subxFunction">ata-cyl-sector</span>: <span class="subxComment"># sector: byte, cyl-lo: byte, cyl-hi: byte</span> +<span id="L1210" class="LineNr">1210 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1211" class="LineNr">1211 </span> 55/push-ebp +<span id="L1212" class="LineNr">1212 </span> 89/<- %ebp 4/r32/esp +<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1214" class="LineNr">1214 </span> 50/push-eax +<span id="L1215" class="LineNr">1215 </span> 52/push-edx +<span id="L1216" class="LineNr">1216 </span> <span class="subxComment"># sector</span> +<span id="L1217" class="LineNr">1217 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L1218" class="LineNr">1218 </span> ba/copy-to-edx 0x1f3/imm32 +<span id="L1219" class="LineNr">1219 </span> ee/write-al-into-port-dx +<span id="L1220" class="LineNr">1220 </span> <span class="subxComment"># cyl-lo</span> +<span id="L1221" class="LineNr">1221 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L1222" class="LineNr">1222 </span> ba/copy-to-edx 0x1f4/imm32 +<span id="L1223" class="LineNr">1223 </span> ee/write-al-into-port-dx +<span id="L1224" class="LineNr">1224 </span> <span class="subxComment"># cyl-hi</span> +<span id="L1225" class="LineNr">1225 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L1226" class="LineNr">1226 </span> ba/copy-to-edx 0x1f5/imm32 +<span id="L1227" class="LineNr">1227 </span> ee/write-al-into-port-dx +<span id="L1228" class="LineNr">1228 </span><span class="Constant">$ata-lba:end</span>: +<span id="L1229" class="LineNr">1229 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1230" class="LineNr">1230 </span> 5a/pop-to-edx +<span id="L1231" class="LineNr">1231 </span> 58/pop-to-eax +<span id="L1232" class="LineNr">1232 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1233" class="LineNr">1233 </span> 89/<- %esp 5/r32/ebp +<span id="L1234" class="LineNr">1234 </span> 5d/pop-to-ebp +<span id="L1235" class="LineNr">1235 </span> c3/return +<span id="L1236" class="LineNr">1236 </span> +<span id="L1237" class="LineNr">1237 </span><span class="subxFunction">ata-command</span>: <span class="subxComment"># cmd: byte</span> +<span id="L1238" class="LineNr">1238 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1239" class="LineNr">1239 </span> 55/push-ebp +<span id="L1240" class="LineNr">1240 </span> 89/<- %ebp 4/r32/esp +<span id="L1241" class="LineNr">1241 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1242" class="LineNr">1242 </span> 50/push-eax +<span id="L1243" class="LineNr">1243 </span> 52/push-edx +<span id="L1244" class="LineNr">1244 </span> <span class="subxComment">#</span> +<span id="L1245" class="LineNr">1245 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L1246" class="LineNr">1246 </span> ba/copy-to-edx 0x1f7/imm32 +<span id="L1247" class="LineNr">1247 </span> ee/write-al-into-port-dx +<span id="L1248" class="LineNr">1248 </span><span class="Constant">$ata-command:end</span>: +<span id="L1249" class="LineNr">1249 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1250" class="LineNr">1250 </span> 5a/pop-to-edx +<span id="L1251" class="LineNr">1251 </span> 58/pop-to-eax +<span id="L1252" class="LineNr">1252 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1253" class="LineNr">1253 </span> 89/<- %esp 5/r32/ebp +<span id="L1254" class="LineNr">1254 </span> 5d/pop-to-ebp +<span id="L1255" class="LineNr">1255 </span> c3/return +<span id="L1256" class="LineNr">1256 </span> +<span id="L1257" class="LineNr">1257 </span><span class="subxFunction">while-ata-busy</span>: +<span id="L1258" class="LineNr">1258 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1259" class="LineNr">1259 </span> 50/push-eax +<span id="L1260" class="LineNr">1260 </span> 52/push-edx +<span id="L1261" class="LineNr">1261 </span> <span class="subxComment">#</span> +<span id="L1262" class="LineNr">1262 </span> ba/copy-to-edx 0x1f7/imm32 +<span id="L1263" class="LineNr">1263 </span> { +<span id="L1264" class="LineNr">1264 </span> ec/read-port-dx-into-al +<span id="L1265" class="LineNr">1265 </span> a8/test-bits-in-al 0x80/imm8/bsy <span class="subxComment"># set zf if bit 7 (most significant) is not set</span> +<span id="L1266" class="LineNr">1266 </span> 75/jump-if-zf-not-set-and-bit-7-set <span class="Constant">loop</span>/disp8 +<span id="L1267" class="LineNr">1267 </span> } +<span id="L1268" class="LineNr">1268 </span><span class="Constant">$while-ata-busy:end</span>: +<span id="L1269" class="LineNr">1269 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1270" class="LineNr">1270 </span> 5a/pop-to-edx +<span id="L1271" class="LineNr">1271 </span> 58/pop-to-eax +<span id="L1272" class="LineNr">1272 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1273" class="LineNr">1273 </span> c3/return +<span id="L1274" class="LineNr">1274 </span> +<span id="L1275" class="LineNr">1275 </span><span class="subxFunction">until-ata-data-available</span>: +<span id="L1276" class="LineNr">1276 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1277" class="LineNr">1277 </span> 50/push-eax +<span id="L1278" class="LineNr">1278 </span> 52/push-edx +<span id="L1279" class="LineNr">1279 </span> <span class="subxComment">#</span> +<span id="L1280" class="LineNr">1280 </span> ba/copy-to-edx 0x1f7/imm32 +<span id="L1281" class="LineNr">1281 </span> { +<span id="L1282" class="LineNr">1282 </span> ec/read-port-dx-into-al +<span id="L1283" class="LineNr">1283 </span> a8/test-bits-in-al 8/imm8/drq <span class="subxComment"># set zf if bit 3 is not set</span> +<span id="L1284" class="LineNr">1284 </span> 74/jump-if-zf-set-and-bit-3-not-set <span class="Constant">loop</span>/disp8 +<span id="L1285" class="LineNr">1285 </span> } +<span id="L1286" class="LineNr">1286 </span><span class="Constant">$while-ata-busy:end</span>: +<span id="L1287" class="LineNr">1287 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1288" class="LineNr">1288 </span> 5a/pop-to-edx +<span id="L1289" class="LineNr">1289 </span> 58/pop-to-eax +<span id="L1290" class="LineNr">1290 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1291" class="LineNr">1291 </span> c3/return +<span id="L1292" class="LineNr">1292 </span> +<span id="L1293" class="LineNr">1293 </span><span class="subxFunction">until-ata-ready-for-data</span>: +<span id="L1294" class="LineNr">1294 </span> (<a href='boot.subx.html#L1275'>until-ata-data-available</a>) +<span id="L1295" class="LineNr">1295 </span> c3/return +<span id="L1296" class="LineNr">1296 </span> +<span id="L1297" class="LineNr">1297 </span><span class="subxComment"># vim:ft=subx</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/ex1.subx.html b/html/ex1.subx.html index 124ce287..b63ad763 100644 --- a/html/baremetal/ex1.subx.html +++ b/html/ex1.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex1.subx</title> +<title>Mu - ex1.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -16,7 +16,8 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } --> </style> @@ -50,7 +51,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex1.subx'>https://github.com/akkartik/mu/blob/main/baremetal/ex1.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/ex1.subx'>https://github.com/akkartik/mu/blob/main/ex1.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># The simplest possible program: just an infinite loop.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># All is well if your computer clears screen and hangs without restarting.</span> @@ -58,18 +59,20 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># graphics mode.</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To build a disk image:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># ./translate_subx_baremetal baremetal/ex2.subx # emits disk.img</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># ./translate_subx boot.subx ex1.subx # emits disk.img</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># To run:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># qemu-system-i386 disk.img</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># Or:</span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> +<span id="L11" class="LineNr">11 </span><span class="subxComment"># bochs -f bochsrc # bochsrc loads disk.img</span> <span id="L12" class="LineNr">12 </span> <span id="L13" class="LineNr">13 </span>== code <span id="L14" class="LineNr">14 </span> -<span id="L15" class="LineNr">15 </span><span class="subxFunction">main</span>: -<span id="L16" class="LineNr">16 </span> e9/jump <a href='ex1.subx.html#L15'>main</a>/disp32 -<span id="L17" class="LineNr">17 </span> -<span id="L18" class="LineNr">18 </span><span class="subxComment"># vim:ft=subx</span> +<span id="L15" class="LineNr">15 </span><span class="SpecialChar">Entry</span>: +<span id="L16" class="LineNr">16 </span> { +<span id="L17" class="LineNr">17 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L18" class="LineNr">18 </span> } +<span id="L19" class="LineNr">19 </span> +<span id="L20" class="LineNr">20 </span><span class="subxComment"># vim:ft=subx</span> </pre> </body> </html> diff --git a/html/baremetal/ex2.mu.html b/html/ex2.mu.html index 0f696fcf..6795bedf 100644 --- a/html/baremetal/ex2.mu.html +++ b/html/ex2.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex2.mu</title> +<title>Mu - ex2.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,39 +54,36 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex2.mu'>https://github.com/akkartik/mu/blob/main/baremetal/ex2.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/ex2.mu'>https://github.com/akkartik/mu/blob/main/ex2.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Test out the video mode by filling in the screen with pixels.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To build a disk image:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate_mu_baremetal baremetal/ex2.mu # emits disk.img</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate ex2.mu # emits disk.img</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># To run:</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># qemu-system-i386 disk.img</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># Or:</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment">#</span> -<span id="L10" class="LineNr">10 </span><span class="muComment"># Expected output:</span> -<span id="L11" class="LineNr">11 </span><span class="muComment"># html/baremetal.png</span> -<span id="L12" class="LineNr">12 </span> -<span id="L13" class="LineNr">13 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex2.mu.html#L13'>main</a></span> <span class="Delimiter">{</span> -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L15" class="LineNr">15 </span> <span class="Delimiter">{</span> -<span id="L16" class="LineNr">16 </span> compare y, <span class="Constant">0x300</span>/screen-height=<span class="Constant">768</span> -<span id="L17" class="LineNr">17 </span> <span class="PreProc">break-if->=</span> -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L19" class="LineNr">19 </span> <span class="Delimiter">{</span> -<span id="L20" class="LineNr">20 </span> compare x, <span class="Constant">0x400</span>/screen-width=<span class="Constant">1024</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">break-if->=</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> color/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L23" class="LineNr">23 </span> color <span class="SpecialChar"><-</span> and <span class="Constant">0xff</span> -<span id="L24" class="LineNr">24 </span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x, y, color -<span id="L25" class="LineNr">25 </span> x <span class="SpecialChar"><-</span> increment -<span id="L26" class="LineNr">26 </span> <span class="PreProc">loop</span> -<span id="L27" class="LineNr">27 </span> <span class="Delimiter">}</span> -<span id="L28" class="LineNr">28 </span> y <span class="SpecialChar"><-</span> increment -<span id="L29" class="LineNr">29 </span> <span class="PreProc">loop</span> -<span id="L30" class="LineNr">30 </span> <span class="Delimiter">}</span> -<span id="L31" class="LineNr">31 </span><span class="Delimiter">}</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads disk.img</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex2.mu.html#L10'>main</a></span> <span class="Delimiter">{</span> +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> y/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L12" class="LineNr">12 </span> <span class="Delimiter">{</span> +<span id="L13" class="LineNr">13 </span> compare y, <span class="Constant">0x300</span>/screen-height=<span class="Constant">768</span> +<span id="L14" class="LineNr">14 </span> <span class="PreProc">break-if->=</span> +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L16" class="LineNr">16 </span> <span class="Delimiter">{</span> +<span id="L17" class="LineNr">17 </span> compare x, <span class="Constant">0x400</span>/screen-width=<span class="Constant">1024</span> +<span id="L18" class="LineNr">18 </span> <span class="PreProc">break-if->=</span> +<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> color/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x +<span id="L20" class="LineNr">20 </span> color <span class="Special"><-</span> and <span class="Constant">0xff</span> +<span id="L21" class="LineNr">21 </span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x, y, color +<span id="L22" class="LineNr">22 </span> x <span class="Special"><-</span> increment +<span id="L23" class="LineNr">23 </span> <span class="PreProc">loop</span> +<span id="L24" class="LineNr">24 </span> <span class="Delimiter">}</span> +<span id="L25" class="LineNr">25 </span> y <span class="Special"><-</span> increment +<span id="L26" class="LineNr">26 </span> <span class="PreProc">loop</span> +<span id="L27" class="LineNr">27 </span> <span class="Delimiter">}</span> +<span id="L28" class="LineNr">28 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/baremetal/ex2.subx.html b/html/ex2.subx.html index 9b1f46e6..404e453a 100644 --- a/html/baremetal/ex2.subx.html +++ b/html/ex2.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex2.subx</title> +<title>Mu - ex2.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -16,7 +16,7 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } .LineNr { } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } --> </style> @@ -51,43 +51,40 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex2.subx'>https://github.com/akkartik/mu/blob/main/baremetal/ex2.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/ex2.subx'>https://github.com/akkartik/mu/blob/main/ex2.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Test out the video mode by filling in the screen with pixels.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To build a disk image:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># ./translate_subx_baremetal baremetal/ex2.subx # emits disk.img</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># ./translate_subx boot.subx ex2.subx # emits disk.img</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To run:</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># qemu-system-i386 disk.img</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># Or:</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> -<span id="L10" class="LineNr">10 </span><span class="subxComment"># Expected output:</span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># html/baremetal.png</span> -<span id="L12" class="LineNr">12 </span> -<span id="L13" class="LineNr">13 </span>== code -<span id="L14" class="LineNr">14 </span> -<span id="L15" class="LineNr">15 </span><span class="subxFunction">main</span>: -<span id="L16" class="LineNr">16 </span> <span class="subxComment"># ecx <- start of video memory</span> -<span id="L17" class="LineNr">17 </span> 8b/-> *0x8128 1/r32/ecx +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># bochs -f bochsrc # bochsrc loads disk.img</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr">10 </span>== code +<span id="L11" class="LineNr">11 </span> +<span id="L12" class="LineNr">12 </span><span class="SpecialChar">Entry</span>: +<span id="L13" class="LineNr">13 </span> <span class="subxComment"># ecx <- start of video memory</span> +<span id="L14" class="LineNr">14 </span> 8b/-> *<span class="SpecialChar">Video-memory-addr</span> 1/r32/ecx +<span id="L15" class="LineNr">15 </span> +<span id="L16" class="LineNr">16 </span> <span class="subxComment"># eax <- final pixel of video memory</span> +<span id="L17" class="LineNr">17 </span> 8d/copy-address *(ecx + 0x0bffff) 0/r32/eax <span class="subxComment"># 0xbffff = 1024*768 - 1</span> <span id="L18" class="LineNr">18 </span> -<span id="L19" class="LineNr">19 </span> <span class="subxComment"># eax <- final pixel of video memory</span> -<span id="L20" class="LineNr">20 </span> 8d/copy-address *(ecx + 0x0bffff) 0/r32/eax <span class="subxComment"># 0xbffff = 1024*768 - 1</span> -<span id="L21" class="LineNr">21 </span> -<span id="L22" class="LineNr">22 </span> <span class="subxComment"># for each pixel in video memory</span> -<span id="L23" class="LineNr">23 </span> { -<span id="L24" class="LineNr">24 </span> 39/compare %eax 1/r32/ecx -<span id="L25" class="LineNr">25 </span> 7c/jump-if-< <span class="Constant">break</span>/disp8 -<span id="L26" class="LineNr">26 </span> <span class="subxComment"># write its column number to it</span> -<span id="L27" class="LineNr">27 </span> 88/byte<- *eax 0/r32/AL -<span id="L28" class="LineNr">28 </span> 48/decrement-eax -<span id="L29" class="LineNr">29 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L30" class="LineNr">30 </span> } -<span id="L31" class="LineNr">31 </span> -<span id="L32" class="LineNr">32 </span> <span class="subxComment"># hang indefinitely</span> -<span id="L33" class="LineNr">33 </span> { -<span id="L34" class="LineNr">34 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L35" class="LineNr">35 </span> } +<span id="L19" class="LineNr">19 </span> <span class="subxComment"># for each pixel in video memory</span> +<span id="L20" class="LineNr">20 </span> { +<span id="L21" class="LineNr">21 </span> 39/compare %eax 1/r32/ecx +<span id="L22" class="LineNr">22 </span> 7c/jump-if-< <span class="Constant">break</span>/disp8 +<span id="L23" class="LineNr">23 </span> <span class="subxComment"># write its column number to it</span> +<span id="L24" class="LineNr">24 </span> 88/byte<- *eax 0/r32/AL +<span id="L25" class="LineNr">25 </span> 48/decrement-eax +<span id="L26" class="LineNr">26 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L27" class="LineNr">27 </span> } +<span id="L28" class="LineNr">28 </span> +<span id="L29" class="LineNr">29 </span> <span class="subxComment"># hang indefinitely</span> +<span id="L30" class="LineNr">30 </span> { +<span id="L31" class="LineNr">31 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L32" class="LineNr">32 </span> } </pre> </body> </html> diff --git a/html/baremetal/ex3.mu.html b/html/ex3.mu.html index 9da377c2..0c2dbe62 100644 --- a/html/baremetal/ex3.mu.html +++ b/html/ex3.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex3.mu</title> +<title>Mu - ex3.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,35 +54,35 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex3.mu'>https://github.com/akkartik/mu/blob/main/baremetal/ex3.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/ex3.mu'>https://github.com/akkartik/mu/blob/main/ex3.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Draw pixels in response to keyboard events, starting from the top-left</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># and in raster order.</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># To build a disk image:</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># ./translate_mu_baremetal baremetal/ex3.mu # emits disk.img</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># ./translate ex3.mu # emits disk.img</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># To run:</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># qemu-system-i386 disk.img</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># Or:</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads disk.img</span> <span id="L10" class="LineNr">10 </span><span class="muComment">#</span> <span id="L11" class="LineNr">11 </span><span class="muComment"># Expected output: a new green pixel starting from the top left corner of the</span> <span id="L12" class="LineNr">12 </span><span class="muComment"># screen every time you press a key (letter or digit)</span> <span id="L13" class="LineNr">13 </span> <span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex3.mu.html#L14'>main</a></span> <span class="Delimiter">{</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard <span id="L19" class="LineNr">19 </span> compare key, <span class="Constant">0</span> <span id="L20" class="LineNr">20 </span> <span class="PreProc">loop-if-=</span> <span class="muComment"># busy wait</span> <span id="L21" class="LineNr">21 </span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x, y, <span class="Constant">0x31</span>/green -<span id="L22" class="LineNr">22 </span> x <span class="SpecialChar"><-</span> increment +<span id="L22" class="LineNr">22 </span> x <span class="Special"><-</span> increment <span id="L23" class="LineNr">23 </span> compare x, <span class="Constant">0x400</span>/screen-width=<span class="Constant">1024</span> <span id="L24" class="LineNr">24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr">25 </span> <span class="PreProc">break-if-<</span> -<span id="L26" class="LineNr">26 </span> y <span class="SpecialChar"><-</span> increment -<span id="L27" class="LineNr">27 </span> x <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L26" class="LineNr">26 </span> y <span class="Special"><-</span> increment +<span id="L27" class="LineNr">27 </span> x <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L28" class="LineNr">28 </span> <span class="Delimiter">}</span> <span id="L29" class="LineNr">29 </span> <span class="PreProc">loop</span> <span id="L30" class="LineNr">30 </span> <span class="Delimiter">}</span> diff --git a/html/baremetal/ex4.mu.html b/html/ex4.mu.html index e1553b88..f0a1c000 100644 --- a/html/baremetal/ex4.mu.html +++ b/html/ex4.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex4.mu</title> +<title>Mu - ex4.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -53,16 +53,16 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex4.mu'>https://github.com/akkartik/mu/blob/main/baremetal/ex4.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/ex4.mu'>https://github.com/akkartik/mu/blob/main/ex4.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Draw a character using the built-in font (GNU unifont)</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To build a disk image:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate_mu_baremetal baremetal/ex4.mu # emits disk.img</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate ex4.mu # emits disk.img</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># To run:</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># qemu-system-i386 disk.img</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># Or:</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads disk.img</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment">#</span> <span id="L10" class="LineNr">10 </span><span class="muComment"># Expected output: letter 'A' in green near the top-left corner of screen</span> <span id="L11" class="LineNr">11 </span> diff --git a/html/baremetal/ex5.mu.html b/html/ex5.mu.html index 4f5f0d2e..fd9d7437 100644 --- a/html/baremetal/ex5.mu.html +++ b/html/ex5.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex5.mu</title> +<title>Mu - ex5.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,23 +54,23 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex5.mu'>https://github.com/akkartik/mu/blob/main/baremetal/ex5.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/ex5.mu'>https://github.com/akkartik/mu/blob/main/ex5.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Draw a single line of ASCII text using the built-in font (GNU unifont)</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># Also demonstrates bounds-checking _before_ drawing.</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># To build a disk image:</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># ./translate_mu_baremetal baremetal/ex5.mu # emits disk.img</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># ./translate ex5.mu # emits disk.img</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># To run:</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># qemu-system-i386 disk.img</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># Or:</span> -<span id="L9" class="LineNr"> 9 </span><span class="muComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads disk.img</span> <span id="L10" class="LineNr">10 </span><span class="muComment">#</span> <span id="L11" class="LineNr">11 </span><span class="muComment"># Expected output: text in green near the top-left corner of screen</span> <span id="L12" class="LineNr">12 </span> <span id="L13" class="LineNr">13 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex5.mu.html#L13'>main</a></span> <span class="Delimiter">{</span> -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L81'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"hello from baremetal Mu!"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x10</span>/y, <span class="Constant">0xa</span>/color -<span id="L15" class="LineNr">15 </span> dummy <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L81'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"you shouldn't see this"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0xa0</span>/xmax, <span class="Constant">0x30</span>/y, <span class="Constant">0x3</span>/color <span class="muComment"># xmax is too narrow</span> +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L100'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"hello from baremetal Mu!"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0x400</span>/xmax, <span class="Constant">0x10</span>/y, <span class="Constant">0xa</span>/color +<span id="L15" class="LineNr">15 </span> dummy <span class="Special"><-</span> <a href='501draw-text.mu.html#L100'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"you shouldn't see this"</span>, <span class="Constant">0x10</span>/x, <span class="Constant">0xa0</span>/xmax, <span class="Constant">0x30</span>/y, <span class="Constant">0x3</span>/color <span class="muComment"># xmax is too narrow</span> <span id="L16" class="LineNr">16 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/baremetal/ex6.mu.html b/html/ex6.mu.html index a6f1ce7a..525fc3b5 100644 --- a/html/baremetal/ex6.mu.html +++ b/html/ex6.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex6.mu</title> +<title>Mu - ex6.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,39 +54,39 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex6.mu'>https://github.com/akkartik/mu/blob/main/baremetal/ex6.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/ex6.mu'>https://github.com/akkartik/mu/blob/main/ex6.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Drawing ASCII text incrementally.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To build a disk image:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate_mu_baremetal baremetal/ex6.mu # emits disk.img</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate ex6.mu # emits disk.img</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># To run:</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># qemu-system-i386 disk.img</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># Or:</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads disk.img</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment">#</span> <span id="L10" class="LineNr">10 </span><span class="muComment"># Expected output: a box and text that doesn't overflow it</span> <span id="L11" class="LineNr">11 </span> <span id="L12" class="LineNr">12 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex6.mu.html#L12'>main</a></span> <span class="Delimiter">{</span> <span id="L13" class="LineNr">13 </span> <span class="muComment"># drawing text within a bounding box</span> <span id="L14" class="LineNr">14 </span> <a href='503manhattan-line.mu.html#L1'>draw-box-on-real-screen</a> <span class="Constant">0xf</span>, <span class="Constant">0x1f</span>, <span class="Constant">0x79</span>, <span class="Constant">0x51</span>, <span class="Constant">0x4</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> -<span id="L17" class="LineNr">17 </span> x, y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L136'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"hello "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color -<span id="L18" class="LineNr">18 </span> x, y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L136'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"from "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color -<span id="L19" class="LineNr">19 </span> x, y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L136'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"baremetal "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color -<span id="L20" class="LineNr">20 </span> x, y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L136'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"Mu!"</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0x20</span> +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x20</span> +<span id="L17" class="LineNr">17 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"hello "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color +<span id="L18" class="LineNr">18 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"from "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color +<span id="L19" class="LineNr">19 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"baremetal "</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color +<span id="L20" class="LineNr">20 </span> x, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, <span class="Constant">"Mu!"</span>, <span class="Constant">0x10</span>/xmin, <span class="Constant">0x20</span>/ymin, <span class="Constant">0x78</span>/xmax, <span class="Constant">0x50</span>/ymax, x, y, <span class="Constant">0xa</span>/color <span id="L21" class="LineNr">21 </span> <span id="L22" class="LineNr">22 </span> <span class="muComment"># drawing at the cursor in multiple directions</span> -<span id="L23" class="LineNr">23 </span> <a href='501draw-text.mu.html#L510'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"abc"</span>, <span class="Constant">0xa</span> -<span id="L24" class="LineNr">24 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"def"</span>, <span class="Constant">0xa</span> +<span id="L23" class="LineNr">23 </span> <a href='501draw-text.mu.html#L450'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"abc"</span>, <span class="Constant">0xa</span> +<span id="L24" class="LineNr">24 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"def"</span>, <span class="Constant">0xa</span> <span id="L25" class="LineNr">25 </span> <span id="L26" class="LineNr">26 </span> <span class="muComment"># test drawing near the edge</span> -<span id="L27" class="LineNr">27 </span> x <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L81'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"R"</span>, <span class="Constant">0x3f8</span>/x, <span class="Constant">0x400</span>/xmax=screen-width, <span class="Constant">0x100</span>/y, <span class="Constant">0xa</span>/color -<span id="L28" class="LineNr">28 </span> <a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"wrapped from R"</span>, <span class="Constant">0xa</span> +<span id="L27" class="LineNr">27 </span> x <span class="Special"><-</span> <a href='501draw-text.mu.html#L100'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"R"</span>, <span class="Constant">0x3f8</span>/x, <span class="Constant">0x400</span>/xmax=screen-width, <span class="Constant">0x100</span>/y, <span class="Constant">0xa</span>/color +<span id="L28" class="LineNr">28 </span> <a href='501draw-text.mu.html#L236'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"wrapped from R"</span>, <span class="Constant">0xa</span> <span id="L29" class="LineNr">29 </span> -<span id="L30" class="LineNr">30 </span> x <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L392'>draw-text-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">"D"</span>, <span class="Constant">0x100</span>/x, <span class="Constant">0x2f0</span>/y, <span class="Constant">0x300</span>/ymax=screen-height, <span class="Constant">0xa</span>/color -<span id="L31" class="LineNr">31 </span> <a href='501draw-text.mu.html#L510'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"wrapped from D"</span>, <span class="Constant">0xa</span> +<span id="L30" class="LineNr">30 </span> x <span class="Special"><-</span> <a href='501draw-text.mu.html#L356'>draw-text-downward</a> <span class="Constant">0</span>/screen, <span class="Constant">"D"</span>, <span class="Constant">0x100</span>/x, <span class="Constant">0x2f0</span>/y, <span class="Constant">0x300</span>/ymax=screen-height, <span class="Constant">0xa</span>/color +<span id="L31" class="LineNr">31 </span> <a href='501draw-text.mu.html#L450'>draw-text-wrapping-down-then-right-from-cursor-over-full-screen</a> <span class="Constant">0</span>/screen, <span class="Constant">"wrapped from D"</span>, <span class="Constant">0xa</span> <span id="L32" class="LineNr">32 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/baremetal/ex7.mu.html b/html/ex7.mu.html index 0235d49f..4aa7e95c 100644 --- a/html/baremetal/ex7.mu.html +++ b/html/ex7.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex7.mu</title> +<title>Mu - ex7.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,49 +54,49 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex7.mu'>https://github.com/akkartik/mu/blob/main/baremetal/ex7.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/ex7.mu'>https://github.com/akkartik/mu/blob/main/ex7.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Cursor-based motions.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To build a disk image:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate_mu_baremetal baremetal/ex7.mu # emits disk.img</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate ex7.mu # emits disk.img</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># To run:</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># qemu-system-i386 disk.img</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># Or:</span> -<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f baremetal/boot.bochsrc # boot.bochsrc loads disk.img</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads disk.img</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment">#</span> <span id="L10" class="LineNr">10 </span><span class="muComment"># Expected output: an interactive game a bit like "snakes". Try pressing h, j,</span> <span id="L11" class="LineNr">11 </span><span class="muComment"># k, l.</span> <span id="L12" class="LineNr">12 </span> <span id="L13" class="LineNr">13 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex7.mu.html#L13'>main</a></span> <span class="Delimiter">{</span> -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> space/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> space/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x20</span> <span id="L15" class="LineNr">15 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <span class="Constant">0</span>/screen, <span class="Constant">0</span>, <span class="Constant">0</span> <span id="L16" class="LineNr">16 </span> <span class="Delimiter">{</span> -<span id="L17" class="LineNr">17 </span> <a href='500text-screen.mu.html#L180'>show-cursor</a> <span class="Constant">0</span>/screen, space -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard +<span id="L17" class="LineNr">17 </span> <a href='500text-screen.mu.html#L180'>draw-cursor</a> <span class="Constant">0</span>/screen, space +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard <span id="L19" class="LineNr">19 </span> <span class="Delimiter">{</span> <span id="L20" class="LineNr">20 </span> compare key, <span class="Constant">0x68</span>/h <span id="L21" class="LineNr">21 </span> <span class="PreProc">break-if-!=</span> -<span id="L22" class="LineNr">22 </span> <a href='501draw-text.mu.html#L73'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L22" class="LineNr">22 </span> <a href='501draw-text.mu.html#L92'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L23" class="LineNr">23 </span> <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <span class="Constant">0</span> <span id="L24" class="LineNr">24 </span> <span class="Delimiter">}</span> <span id="L25" class="LineNr">25 </span> <span class="Delimiter">{</span> <span id="L26" class="LineNr">26 </span> compare key, <span class="Constant">0x6a</span>/j <span id="L27" class="LineNr">27 </span> <span class="PreProc">break-if-!=</span> -<span id="L28" class="LineNr">28 </span> <a href='501draw-text.mu.html#L73'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L28" class="LineNr">28 </span> <a href='501draw-text.mu.html#L92'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L29" class="LineNr">29 </span> <a href='501draw-text.mu.html#L47'>move-cursor-down</a> <span class="Constant">0</span> <span id="L30" class="LineNr">30 </span> <span class="Delimiter">}</span> <span id="L31" class="LineNr">31 </span> <span class="Delimiter">{</span> <span id="L32" class="LineNr">32 </span> compare key, <span class="Constant">0x6b</span>/k <span id="L33" class="LineNr">33 </span> <span class="PreProc">break-if-!=</span> -<span id="L34" class="LineNr">34 </span> <a href='501draw-text.mu.html#L73'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L34" class="LineNr">34 </span> <a href='501draw-text.mu.html#L92'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x7c</span>/vertical-bar, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L35" class="LineNr">35 </span> <a href='501draw-text.mu.html#L34'>move-cursor-up</a> <span class="Constant">0</span> <span id="L36" class="LineNr">36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr">37 </span> <span class="Delimiter">{</span> <span id="L38" class="LineNr">38 </span> compare key, <span class="Constant">0x6c</span>/l <span id="L39" class="LineNr">39 </span> <span class="PreProc">break-if-!=</span> -<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: code-point <span class="SpecialChar"><-</span> copy <span class="Constant">0x2d</span>/dash -<span id="L41" class="LineNr">41 </span> <a href='501draw-text.mu.html#L73'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x2d</span>/dash +<span id="L41" class="LineNr">41 </span> <a href='501draw-text.mu.html#L92'>draw-code-point-at-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">0x2d</span>/dash, <span class="Constant">0x31</span>/fg, <span class="Constant">0</span>/bg <span id="L42" class="LineNr">42 </span> <a href='501draw-text.mu.html#L16'>move-cursor-right</a> <span class="Constant">0</span> <span id="L43" class="LineNr">43 </span> <span class="Delimiter">}</span> <span id="L44" class="LineNr">44 </span> <span class="PreProc">loop</span> diff --git a/html/baremetal/ex8.mu.html b/html/ex8.mu.html index aef19cae..1ad38b46 100644 --- a/html/baremetal/ex8.mu.html +++ b/html/ex8.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/ex8.mu</title> +<title>Mu - ex8.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,14 +54,20 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/ex8.mu'>https://github.com/akkartik/mu/blob/main/baremetal/ex8.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/ex8.mu'>https://github.com/akkartik/mu/blob/main/ex8.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr">1 </span><span class="muComment"># Demo of floating-point</span> -<span id="L2" class="LineNr">2 </span> -<span id="L3" class="LineNr">3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex8.mu.html#L3'>main</a></span> <span class="Delimiter">{</span> -<span id="L4" class="LineNr">4 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L5" class="LineNr">5 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert n -<span id="L6" class="LineNr">6 </span><span class="Delimiter">}</span> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Demo of floating-point</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To build a disk image:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># ./translate ex8.mu # emits disk.img</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># To run:</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># bochs -f bochsrc # bochsrc loads disk.img</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># Set a breakpoint at 0x7c00 and start stepping.</span> +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex8.mu.html#L9'>main</a></span> <span class="Delimiter">{</span> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert n +<span id="L12" class="LineNr">12 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/baremetal/life.mu.html b/html/life.mu.html index da6fd7b9..791d6a3e 100644 --- a/html/baremetal/life.mu.html +++ b/html/life.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/life.mu</title> +<title>Mu - life.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,10 +15,10 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } -.SpecialChar { color: #d70000; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -55,12 +55,12 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/life.mu'>https://github.com/akkartik/mu/blob/main/baremetal/life.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/life.mu'>https://github.com/akkartik/mu/blob/main/life.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Conway's Game of Life</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To build:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu_baremetal baremetal/life.mu</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate life.mu</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># To run:</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ qemu-system-i386 disk.img</span> <span id="L7" class="LineNr"> 7 </span> @@ -86,100 +86,100 @@ if ('onhashchange' in window) { <span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-<</span> <span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> idx/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L31" class="LineNr"> 31 </span> idx <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span>/log2width -<span id="L32" class="LineNr"> 32 </span> idx <span class="SpecialChar"><-</span> add x -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> grid/<span class="Constant">esi</span>: (addr array boolean) <span class="SpecialChar"><-</span> copy _grid -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> index grid, idx +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> idx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy y +<span id="L31" class="LineNr"> 31 </span> idx <span class="Special"><-</span> shift-left <span class="Constant">8</span>/log2width +<span id="L32" class="LineNr"> 32 </span> idx <span class="Special"><-</span> add x +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> grid/<span class="Constant">esi</span>: (addr array boolean) <span class="Special"><-</span> copy _grid +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> index grid, idx <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">return</span> *result <span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='life.mu.html#L38'>set-state</a></span> _grid: (addr array boolean), x: int, y: int, val: boolean <span class="Delimiter">{</span> <span id="L39" class="LineNr"> 39 </span> <span class="muComment"># don't bother checking bounds</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> idx/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L41" class="LineNr"> 41 </span> idx <span class="SpecialChar"><-</span> shift-left <span class="Constant">8</span>/log2width -<span id="L42" class="LineNr"> 42 </span> idx <span class="SpecialChar"><-</span> add x -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> grid/<span class="Constant">esi</span>: (addr array boolean) <span class="SpecialChar"><-</span> copy _grid -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> index grid, idx -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: boolean <span class="SpecialChar"><-</span> copy val +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> idx/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy y +<span id="L41" class="LineNr"> 41 </span> idx <span class="Special"><-</span> shift-left <span class="Constant">8</span>/log2width +<span id="L42" class="LineNr"> 42 </span> idx <span class="Special"><-</span> add x +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> grid/<span class="Constant">esi</span>: (addr array boolean) <span class="Special"><-</span> copy _grid +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> index grid, idx +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy val <span id="L46" class="LineNr"> 46 </span> copy-to *result, src <span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> <span id="L48" class="LineNr"> 48 </span> <span id="L49" class="LineNr"> 49 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='life.mu.html#L49'>num-live-neighbors</a></span> grid: (addr array boolean), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L51" class="LineNr"> 51 </span> <span class="muComment"># row above: zig</span> <span id="L52" class="LineNr"> 52 </span> decrement y <span id="L53" class="LineNr"> 53 </span> decrement x -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> <span id="L56" class="LineNr"> 56 </span> compare s, <span class="Constant">0</span>/false <span id="L57" class="LineNr"> 57 </span> <span class="PreProc">break-if-=</span> -<span id="L58" class="LineNr"> 58 </span> result <span class="SpecialChar"><-</span> increment +<span id="L58" class="LineNr"> 58 </span> result <span class="Special"><-</span> increment <span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">}</span> <span id="L60" class="LineNr"> 60 </span> increment x -<span id="L61" class="LineNr"> 61 </span> s <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L61" class="LineNr"> 61 </span> s <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">{</span> <span id="L63" class="LineNr"> 63 </span> compare s, <span class="Constant">0</span>/false <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">break-if-=</span> -<span id="L65" class="LineNr"> 65 </span> result <span class="SpecialChar"><-</span> increment +<span id="L65" class="LineNr"> 65 </span> result <span class="Special"><-</span> increment <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> <span id="L67" class="LineNr"> 67 </span> increment x -<span id="L68" class="LineNr"> 68 </span> s <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L68" class="LineNr"> 68 </span> s <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> <span id="L70" class="LineNr"> 70 </span> compare s, <span class="Constant">0</span>/false <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if-=</span> -<span id="L72" class="LineNr"> 72 </span> result <span class="SpecialChar"><-</span> increment +<span id="L72" class="LineNr"> 72 </span> result <span class="Special"><-</span> increment <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">}</span> <span id="L74" class="LineNr"> 74 </span> <span class="muComment"># curr row: zag</span> <span id="L75" class="LineNr"> 75 </span> increment y -<span id="L76" class="LineNr"> 76 </span> s <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L76" class="LineNr"> 76 </span> s <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">{</span> <span id="L78" class="LineNr"> 78 </span> compare s, <span class="Constant">0</span>/false <span id="L79" class="LineNr"> 79 </span> <span class="PreProc">break-if-=</span> -<span id="L80" class="LineNr"> 80 </span> result <span class="SpecialChar"><-</span> increment +<span id="L80" class="LineNr"> 80 </span> result <span class="Special"><-</span> increment <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> subtract-from x, <span class="Constant">2</span> -<span id="L83" class="LineNr"> 83 </span> s <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L83" class="LineNr"> 83 </span> s <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> compare s, <span class="Constant">0</span>/false <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">break-if-=</span> -<span id="L87" class="LineNr"> 87 </span> result <span class="SpecialChar"><-</span> increment +<span id="L87" class="LineNr"> 87 </span> result <span class="Special"><-</span> increment <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">}</span> <span id="L89" class="LineNr"> 89 </span> <span class="muComment"># row below: zig</span> <span id="L90" class="LineNr"> 90 </span> increment y -<span id="L91" class="LineNr"> 91 </span> s <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L91" class="LineNr"> 91 </span> s <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> compare s, <span class="Constant">0</span>/false <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">break-if-=</span> -<span id="L95" class="LineNr"> 95 </span> result <span class="SpecialChar"><-</span> increment +<span id="L95" class="LineNr"> 95 </span> result <span class="Special"><-</span> increment <span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> increment x -<span id="L98" class="LineNr"> 98 </span> s <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L98" class="LineNr"> 98 </span> s <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">{</span> <span id="L100" class="LineNr">100 </span> compare s, <span class="Constant">0</span>/false <span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if-=</span> -<span id="L102" class="LineNr">102 </span> result <span class="SpecialChar"><-</span> increment +<span id="L102" class="LineNr">102 </span> result <span class="Special"><-</span> increment <span id="L103" class="LineNr">103 </span> <span class="Delimiter">}</span> <span id="L104" class="LineNr">104 </span> increment x -<span id="L105" class="LineNr">105 </span> s <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L105" class="LineNr">105 </span> s <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> <span id="L107" class="LineNr">107 </span> compare s, <span class="Constant">0</span>/false <span id="L108" class="LineNr">108 </span> <span class="PreProc">break-if-=</span> -<span id="L109" class="LineNr">109 </span> result <span class="SpecialChar"><-</span> increment +<span id="L109" class="LineNr">109 </span> result <span class="Special"><-</span> increment <span id="L110" class="LineNr">110 </span> <span class="Delimiter">}</span> <span id="L111" class="LineNr">111 </span> <span class="PreProc">return</span> result <span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span> <span id="L114" class="LineNr">114 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='life.mu.html#L114'>step</a></span> old-grid: (addr array boolean), new-grid: (addr array boolean) <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L116" class="LineNr">116 </span> <span class="Delimiter">{</span> <span id="L117" class="LineNr">117 </span> compare y, <span class="Constant">0xc0</span>/height <span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if->=</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L120" class="LineNr">120 </span> <span class="Delimiter">{</span> <span id="L121" class="LineNr">121 </span> compare x, <span class="Constant">0x100</span>/width <span id="L122" class="LineNr">122 </span> <span class="PreProc">break-if->=</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='life.mu.html#L49'>num-live-neighbors</a> old-grid, x, y +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='life.mu.html#L49'>num-live-neighbors</a> old-grid, x, y <span id="L124" class="LineNr">124 </span> <span class="muComment"># if neighbors < 2, die of loneliness</span> <span id="L125" class="LineNr">125 </span> <span class="Delimiter">{</span> <span id="L126" class="LineNr">126 </span> compare n, <span class="Constant">2</span> @@ -196,7 +196,7 @@ if ('onhashchange' in window) { <span id="L137" class="LineNr">137 </span> <span class="Delimiter">{</span> <span id="L138" class="LineNr">138 </span> compare n, <span class="Constant">2</span> <span id="L139" class="LineNr">139 </span> <span class="PreProc">break-if-!=</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> old-state/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> old-grid, x, y +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> old-state/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> old-grid, x, y <span id="L141" class="LineNr">141 </span> <a href='life.mu.html#L38'>set-state</a> new-grid, x, y, old-state <span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> <span id="L143" class="LineNr">143 </span> <span class="muComment"># if neighbors = 3, cell quickens to life</span> @@ -205,53 +205,53 @@ if ('onhashchange' in window) { <span id="L146" class="LineNr">146 </span> <span class="PreProc">break-if-!=</span> <span id="L147" class="LineNr">147 </span> <a href='life.mu.html#L38'>set-state</a> new-grid, x, y, <span class="Constant">1</span>/live <span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> -<span id="L149" class="LineNr">149 </span> x <span class="SpecialChar"><-</span> increment +<span id="L149" class="LineNr">149 </span> x <span class="Special"><-</span> increment <span id="L150" class="LineNr">150 </span> <span class="PreProc">loop</span> <span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> -<span id="L152" class="LineNr">152 </span> y <span class="SpecialChar"><-</span> increment +<span id="L152" class="LineNr">152 </span> y <span class="Special"><-</span> increment <span id="L153" class="LineNr">153 </span> <span class="PreProc">loop</span> <span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> <span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> <span id="L156" class="LineNr">156 </span> <span id="L157" class="LineNr">157 </span><span class="muComment"># color a square of size 'side' starting at x*side, y*side</span> <span id="L158" class="LineNr">158 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='life.mu.html#L158'>render-square</a></span> _x: int, _y: int, color: int <span class="Delimiter">{</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _y -<span id="L160" class="LineNr">160 </span> y <span class="SpecialChar"><-</span> shift-left <span class="Constant">2</span>/log2side -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> side/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L162" class="LineNr">162 </span> side <span class="SpecialChar"><-</span> shift-left <span class="Constant">2</span>/log2side -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> ymax/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy y -<span id="L164" class="LineNr">164 </span> ymax <span class="SpecialChar"><-</span> add side +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> y/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _y +<span id="L160" class="LineNr">160 </span> y <span class="Special"><-</span> shift-left <span class="Constant">2</span>/log2side +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> side/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L162" class="LineNr">162 </span> side <span class="Special"><-</span> shift-left <span class="Constant">2</span>/log2side +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> ymax/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy y +<span id="L164" class="LineNr">164 </span> ymax <span class="Special"><-</span> add side <span id="L165" class="LineNr">165 </span> <span class="Delimiter">{</span> <span id="L166" class="LineNr">166 </span> compare y, ymax <span id="L167" class="LineNr">167 </span> <span class="PreProc">break-if->=</span> <span id="L168" class="LineNr">168 </span> <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _x -<span id="L170" class="LineNr">170 </span> x <span class="SpecialChar"><-</span> shift-left <span class="Constant">2</span>/log2side -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> xmax/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy x -<span id="L172" class="LineNr">172 </span> xmax <span class="SpecialChar"><-</span> add side +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _x +<span id="L170" class="LineNr">170 </span> x <span class="Special"><-</span> shift-left <span class="Constant">2</span>/log2side +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> xmax/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x +<span id="L172" class="LineNr">172 </span> xmax <span class="Special"><-</span> add side <span id="L173" class="LineNr">173 </span> <span class="Delimiter">{</span> <span id="L174" class="LineNr">174 </span> compare x, xmax <span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if->=</span> <span id="L176" class="LineNr">176 </span> <a href='101screen.subx.html#L8'>pixel-on-real-screen</a> x, y, color -<span id="L177" class="LineNr">177 </span> x <span class="SpecialChar"><-</span> increment +<span id="L177" class="LineNr">177 </span> x <span class="Special"><-</span> increment <span id="L178" class="LineNr">178 </span> <span class="PreProc">loop</span> <span id="L179" class="LineNr">179 </span> <span class="Delimiter">}</span> <span id="L180" class="LineNr">180 </span> <span class="Delimiter">}</span> -<span id="L181" class="LineNr">181 </span> y <span class="SpecialChar"><-</span> increment +<span id="L181" class="LineNr">181 </span> y <span class="Special"><-</span> increment <span id="L182" class="LineNr">182 </span> <span class="PreProc">loop</span> <span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> <span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> <span id="L185" class="LineNr">185 </span> <span id="L186" class="LineNr">186 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='life.mu.html#L186'>render</a></span> grid: (addr array boolean) <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L188" class="LineNr">188 </span> <span class="Delimiter">{</span> <span id="L189" class="LineNr">189 </span> compare y, <span class="Constant">0xc0</span>/height <span id="L190" class="LineNr">190 </span> <span class="PreProc">break-if->=</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> x/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L192" class="LineNr">192 </span> <span class="Delimiter">{</span> <span id="L193" class="LineNr">193 </span> compare x, <span class="Constant">0x100</span>/width <span id="L194" class="LineNr">194 </span> <span class="PreProc">break-if->=</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> <a href='life.mu.html#L8'>state</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> <a href='life.mu.html#L8'>state</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='life.mu.html#L8'>state</a> grid, x, y <span id="L196" class="LineNr">196 </span> compare <a href='life.mu.html#L8'>state</a>, <span class="Constant">0</span>/false <span id="L197" class="LineNr">197 </span> <span class="Delimiter">{</span> <span id="L198" class="LineNr">198 </span> <span class="PreProc">break-if-=</span> @@ -262,10 +262,10 @@ if ('onhashchange' in window) { <span id="L203" class="LineNr">203 </span> <span class="PreProc">break-if-!=</span> <span id="L204" class="LineNr">204 </span> <a href='life.mu.html#L158'>render-square</a> x, y, <span class="Constant">0</span>/black <span id="L205" class="LineNr">205 </span> <span class="Delimiter">}</span> -<span id="L206" class="LineNr">206 </span> x <span class="SpecialChar"><-</span> increment +<span id="L206" class="LineNr">206 </span> x <span class="Special"><-</span> increment <span id="L207" class="LineNr">207 </span> <span class="PreProc">loop</span> <span id="L208" class="LineNr">208 </span> <span class="Delimiter">}</span> -<span id="L209" class="LineNr">209 </span> y <span class="SpecialChar"><-</span> increment +<span id="L209" class="LineNr">209 </span> y <span class="Special"><-</span> increment <span id="L210" class="LineNr">210 </span> <span class="PreProc">loop</span> <span id="L211" class="LineNr">211 </span> <span class="Delimiter">}</span> <span id="L212" class="LineNr">212 </span><span class="Delimiter">}</span> @@ -278,15 +278,15 @@ if ('onhashchange' in window) { <span id="L219" class="LineNr">219 </span><span class="CommentedCode">#? var grid2/edi: (addr array boolean) <- address grid2-storage</span> <span id="L220" class="LineNr">220 </span> <span class="muComment"># allocate on the heap</span> <span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> grid1-storage: (handle array boolean) -<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> grid1-ah/<span class="Constant">eax</span>: (addr handle array boolean) <span class="SpecialChar"><-</span> address grid1-storage +<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> grid1-ah/<span class="Constant">eax</span>: (addr handle array boolean) <span class="Special"><-</span> address grid1-storage <span id="L223" class="LineNr">223 </span> populate grid1-ah, <span class="Constant">0xc000</span> <span class="muComment"># width * height</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> _grid1/<span class="Constant">eax</span>: (addr array boolean) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *grid1-ah -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> grid1/<span class="Constant">esi</span>: (addr array boolean) <span class="SpecialChar"><-</span> copy _grid1 +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> _grid1/<span class="Constant">eax</span>: (addr array boolean) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *grid1-ah +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> grid1/<span class="Constant">esi</span>: (addr array boolean) <span class="Special"><-</span> copy _grid1 <span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> grid2-storage: (handle array boolean) -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> grid2-ah/<span class="Constant">eax</span>: (addr handle array boolean) <span class="SpecialChar"><-</span> address grid2-storage +<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> grid2-ah/<span class="Constant">eax</span>: (addr handle array boolean) <span class="Special"><-</span> address grid2-storage <span id="L228" class="LineNr">228 </span> populate grid2-ah, <span class="Constant">0xc000</span> <span class="muComment"># width * height</span> -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> _grid2/<span class="Constant">eax</span>: (addr array boolean) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *grid2-ah -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> grid2/<span class="Constant">edi</span>: (addr array boolean) <span class="SpecialChar"><-</span> copy _grid2 +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> _grid2/<span class="Constant">eax</span>: (addr array boolean) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *grid2-ah +<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> grid2/<span class="Constant">edi</span>: (addr array boolean) <span class="Special"><-</span> copy _grid2 <span id="L231" class="LineNr">231 </span> <span class="muComment"># initialize grid1</span> <span id="L232" class="LineNr">232 </span> <a href='life.mu.html#L38'>set-state</a> grid1, <span class="Constant">0x80</span>, <span class="Constant">0x5f</span>, <span class="Constant">1</span>/live <span id="L233" class="LineNr">233 </span> <a href='life.mu.html#L38'>set-state</a> grid1, <span class="Constant">0x81</span>, <span class="Constant">0x5f</span>, <span class="Constant">1</span>/live @@ -296,10 +296,10 @@ if ('onhashchange' in window) { <span id="L237" class="LineNr">237 </span> <span class="muComment"># render grid1</span> <span id="L238" class="LineNr">238 </span> <a href='life.mu.html#L186'>render</a> grid1 <span id="L239" class="LineNr">239 </span> <span class="Delimiter">{</span> -<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard <span id="L241" class="LineNr">241 </span> compare key, <span class="Constant">0</span> <span id="L242" class="LineNr">242 </span><span class="CommentedCode">#? loop-if-= # press key to step</span> -<span id="L243" class="LineNr">243 </span> <span class="PreProc">break-if-!=</span> <span class="muComment"># press key to quit</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">break-if-!=</span> <span class="muComment"># press key to quit # comment this out to run under bochs; I'm not sure why there's a newline in the keyboard buffer</span> <span id="L244" class="LineNr">244 </span> <span class="muComment"># iter: grid1 -> grid2</span> <span id="L245" class="LineNr">245 </span> <a href='life.mu.html#L114'>step</a> grid1, grid2 <span id="L246" class="LineNr">246 </span> <a href='life.mu.html#L186'>render</a> grid2 diff --git a/html/linux/000init.subx.html b/html/linux/000init.subx.html new file mode 100644 index 00000000..d37a8329 --- /dev/null +++ b/html/linux/000init.subx.html @@ -0,0 +1,148 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/000init.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxComment { color: #005faf; } +.LineNr { } +.subxFunction { color: #af5f00; text-decoration: underline; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/000init.subx'>https://github.com/akkartik/mu/blob/main/linux/000init.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Some OS-specific preliminaries for Linux.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Memory layout</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># 0 - 0x08047ffff - reserved for the kernel</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># 0x08048000 - 0xbffffffff - available for user programs</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># 0xc0000000 - 0xfffffffff - reserved for the kernel</span> +<span id="L8" class="LineNr"> 8 </span>== code 0x09000000 +<span id="L9" class="LineNr"> 9 </span>== data 0x0a000000 +<span id="L10" class="LineNr">10 </span> +<span id="L11" class="LineNr">11 </span><span class="subxComment"># Syscalls</span> +<span id="L12" class="LineNr">12 </span><span class="subxComment">#</span> +<span id="L13" class="LineNr">13 </span><span class="subxComment"># We don't have libc, so we need to know Linux's precise syscall layout.</span> +<span id="L14" class="LineNr">14 </span><span class="subxComment"># These are not real functions. Pass arguments in specific registers.</span> +<span id="L15" class="LineNr">15 </span>== code +<span id="L16" class="LineNr">16 </span> +<span id="L17" class="LineNr">17 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/exit.2.html">http://man7.org/linux/man-pages/man2/exit.2.html</a></span> +<span id="L18" class="LineNr">18 </span><span class="subxFunction">syscall_exit</span>: <span class="subxComment"># status/ebx: int</span> +<span id="L19" class="LineNr">19 </span> b8/copy-to-eax 1/imm32 +<span id="L20" class="LineNr">20 </span> cd/syscall 0x80/imm8 +<span id="L21" class="LineNr">21 </span> +<span id="L22" class="LineNr">22 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/read.2.html">http://man7.org/linux/man-pages/man2/read.2.html</a></span> +<span id="L23" class="LineNr">23 </span><span class="subxFunction">syscall_read</span>: <span class="subxComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> +<span id="L24" class="LineNr">24 </span> b8/copy-to-eax 3/imm32 +<span id="L25" class="LineNr">25 </span> cd/syscall 0x80/imm8 +<span id="L26" class="LineNr">26 </span> c3/return +<span id="L27" class="LineNr">27 </span> +<span id="L28" class="LineNr">28 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/write.2.html">http://man7.org/linux/man-pages/man2/write.2.html</a></span> +<span id="L29" class="LineNr">29 </span><span class="subxFunction">syscall_write</span>: <span class="subxComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> +<span id="L30" class="LineNr">30 </span> b8/copy-to-eax 4/imm32 +<span id="L31" class="LineNr">31 </span> cd/syscall 0x80/imm8 +<span id="L32" class="LineNr">32 </span> c3/return +<span id="L33" class="LineNr">33 </span> +<span id="L34" class="LineNr">34 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/open.2.html">http://man7.org/linux/man-pages/man2/open.2.html</a></span> +<span id="L35" class="LineNr">35 </span><span class="subxFunction">syscall_open</span>: <span class="subxComment"># filename/ebx: (addr kernel-string), flags/ecx: int, dummy=0x180/edx -> fd-or-error/eax: int</span> +<span id="L36" class="LineNr">36 </span> b8/copy-to-eax 5/imm32 +<span id="L37" class="LineNr">37 </span> cd/syscall 0x80/imm8 +<span id="L38" class="LineNr">38 </span> c3/return +<span id="L39" class="LineNr">39 </span> +<span id="L40" class="LineNr">40 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/close.2.html">http://man7.org/linux/man-pages/man2/close.2.html</a></span> +<span id="L41" class="LineNr">41 </span><span class="subxFunction">syscall_close</span>: <span class="subxComment"># fd/ebx: int -> status/eax</span> +<span id="L42" class="LineNr">42 </span> b8/copy-to-eax 6/imm32 +<span id="L43" class="LineNr">43 </span> cd/syscall 0x80/imm8 +<span id="L44" class="LineNr">44 </span> c3/return +<span id="L45" class="LineNr">45 </span> +<span id="L46" class="LineNr">46 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/lseek.2.html">http://man7.org/linux/man-pages/man2/lseek.2.html</a></span> +<span id="L47" class="LineNr">47 </span><span class="subxFunction">syscall_lseek</span>: <span class="subxComment"># fd/ebx: int, offset/ecx: int, whence/edx: int</span> +<span id="L48" class="LineNr">48 </span> b8/copy-to-eax 0x13/imm32 +<span id="L49" class="LineNr">49 </span> cd/syscall 0x80/imm8 +<span id="L50" class="LineNr">50 </span> c3/return +<span id="L51" class="LineNr">51 </span> +<span id="L52" class="LineNr">52 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/creat.2.html">http://man7.org/linux/man-pages/man2/creat.2.html</a></span> +<span id="L53" class="LineNr">53 </span><span class="subxFunction">syscall_creat</span>: <span class="subxComment"># filename/ebx: (addr kernel-string) -> fd-or-error/eax: int</span> +<span id="L54" class="LineNr">54 </span> b8/copy-to-eax 8/imm32 +<span id="L55" class="LineNr">55 </span> cd/syscall 0x80/imm8 +<span id="L56" class="LineNr">56 </span> c3/return +<span id="L57" class="LineNr">57 </span> +<span id="L58" class="LineNr">58 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/unlink.2.html">http://man7.org/linux/man-pages/man2/unlink.2.html</a></span> +<span id="L59" class="LineNr">59 </span><span class="subxFunction">syscall_unlink</span>: <span class="subxComment"># filename/ebx: (addr kernel-string) -> status/eax: int</span> +<span id="L60" class="LineNr">60 </span> b8/copy-to-eax 0xa/imm32 +<span id="L61" class="LineNr">61 </span> cd/syscall 0x80/imm8 +<span id="L62" class="LineNr">62 </span> c3/return +<span id="L63" class="LineNr">63 </span> +<span id="L64" class="LineNr">64 </span><span class="subxComment"># <a href="http://man7.org/linux/man-pages/man2/rename.2.html">http://man7.org/linux/man-pages/man2/rename.2.html</a></span> +<span id="L65" class="LineNr">65 </span><span class="subxFunction">syscall_rename</span>: <span class="subxComment"># source/ebx: (addr kernel-string), dest/ecx: (addr kernel-string) -> status/eax: int</span> +<span id="L66" class="LineNr">66 </span> b8/copy-to-eax 0x26/imm32 +<span id="L67" class="LineNr">67 </span> cd/syscall 0x80/imm8 +<span id="L68" class="LineNr">68 </span> c3/return +<span id="L69" class="LineNr">69 </span> +<span id="L70" class="LineNr">70 </span><span class="subxComment"># <a href="https://github.com/torvalds/linux/blob/fa121bb3fed6313b1f0af23952301e06cf6d32ed/mm/nommu.c#L1352">https://github.com/torvalds/linux/blob/fa121bb3fed6313b1f0af23952301e06cf6d32ed/mm/nommu.c#L1352</a></span> +<span id="L71" class="LineNr">71 </span><span class="subxFunction">syscall_mmap</span>: <span class="subxComment"># arg/ebx: (addr mmap_arg_struct) -> status/eax: int</span> +<span id="L72" class="LineNr">72 </span> <span class="subxComment"># the important thing: ebx+4 contains the 32-bit size to be allocated</span> +<span id="L73" class="LineNr">73 </span> b8/copy-to-eax 0x5a/imm32 +<span id="L74" class="LineNr">74 </span> cd/syscall 0x80/imm8 +<span id="L75" class="LineNr">75 </span> c3/return +<span id="L76" class="LineNr">76 </span> +<span id="L77" class="LineNr">77 </span><span class="subxFunction">syscall_ioctl</span>: <span class="subxComment"># fd/ebx: int, cmd/ecx: int, arg/edx: (addr _)</span> +<span id="L78" class="LineNr">78 </span> b8/copy-to-eax 0x36/imm32 +<span id="L79" class="LineNr">79 </span> cd/syscall 0x80/imm8 +<span id="L80" class="LineNr">80 </span> c3/return +<span id="L81" class="LineNr">81 </span> +<span id="L82" class="LineNr">82 </span><span class="subxFunction">syscall_nanosleep</span>: <span class="subxComment"># req/ebx: (addr timespec)</span> +<span id="L83" class="LineNr">83 </span> b8/copy-to-eax 0xa2/imm32 <span class="subxComment"># 162</span> +<span id="L84" class="LineNr">84 </span> cd/syscall 0x80/imm8 +<span id="L85" class="LineNr">85 </span> c3/return +<span id="L86" class="LineNr">86 </span> +<span id="L87" class="LineNr">87 </span><span class="subxFunction">syscall_clock_gettime</span>: <span class="subxComment"># clock/ebx: int, out/ecx: (addr timespec)</span> +<span id="L88" class="LineNr">88 </span> b8/copy-to-eax 0x109/imm32 <span class="subxComment"># 265</span> +<span id="L89" class="LineNr">89 </span> cd/syscall 0x80/imm8 +<span id="L90" class="LineNr">90 </span> c3/return +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/101_write.subx.html b/html/linux/101_write.subx.html index c992256b..eaf9c552 100644 --- a/html/101_write.subx.html +++ b/html/linux/101_write.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 101_write.subx</title> +<title>Mu - linux/101_write.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .SpecialChar { color: #d70000; } .subxMinorFunction { color: #875f5f; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/101_write.subx'>https://github.com/akkartik/mu/blob/main/101_write.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/101_write.subx'>https://github.com/akkartik/mu/blob/main/linux/101_write.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># _write: write to a file descriptor (fd)</span> <span id="L2" class="LineNr"> 2 </span> @@ -66,7 +66,7 @@ if ('onhashchange' in window) { <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># just exit; can't test _write just yet</span> <span id="L9" class="LineNr"> 9 </span> bb/copy-to-ebx 0/imm32 -<span id="L10" class="LineNr">10 </span> e8/call syscall_exit/disp32 +<span id="L10" class="LineNr">10 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L11" class="LineNr">11 </span> <span id="L12" class="LineNr">12 </span><span class="subxMinorFunction">_write</span>: <span class="subxComment"># fd: int, s: (addr array byte)</span> <span id="L13" class="LineNr">13 </span> <span class="subxS1Comment"># . prologue</span> @@ -87,7 +87,7 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr">28 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> <span id="L29" class="LineNr">29 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to edx</span> <span id="L30" class="LineNr">30 </span> <span class="subxS1Comment"># . syscall</span> -<span id="L31" class="LineNr">31 </span> e8/call syscall_write/disp32 +<span id="L31" class="LineNr">31 </span> e8/call <a href='000init.subx.html#L29'>syscall_write</a>/disp32 <span id="L32" class="LineNr">32 </span> <span class="subxComment"># if (eax < 0) abort</span> <span id="L33" class="LineNr">33 </span> 3d/compare-eax-with 0/imm32 <span id="L34" class="LineNr">34 </span> 0f 8c/jump-if-< $_write:abort/disp32 @@ -106,7 +106,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr">47 </span> <span class="subxComment"># can't write a message here for risk of an infinite loop, so we'll use a special exit code instead</span> <span id="L48" class="LineNr">48 </span> <span class="subxS1Comment"># . syscall(exit, 255)</span> <span id="L49" class="LineNr">49 </span> bb/copy-to-ebx 0xff/imm32 -<span id="L50" class="LineNr">50 </span> e8/call syscall_exit/disp32 +<span id="L50" class="LineNr">50 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L51" class="LineNr">51 </span> <span class="subxComment"># never gets here</span> <span id="L52" class="LineNr">52 </span> <span id="L53" class="LineNr">53 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> diff --git a/html/102test.subx.html b/html/linux/102test.subx.html index fcbc43b2..b655c390 100644 --- a/html/102test.subx.html +++ b/html/linux/102test.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 102test.subx</title> +<title>Mu - linux/102test.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/102test.subx'>https://github.com/akkartik/mu/blob/main/102test.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/102test.subx'>https://github.com/akkartik/mu/blob/main/linux/102test.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Rudimentary test harness</span> <span id="L2" class="LineNr"> 2 </span> @@ -76,7 +76,7 @@ if ('onhashchange' in window) { <span id="L17" class="LineNr"> 17 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L19" class="LineNr"> 19 </span> bb/copy-to-ebx 0/imm32 -<span id="L20" class="LineNr"> 20 </span> e8/call syscall_exit/disp32 +<span id="L20" class="LineNr"> 20 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L21" class="LineNr"> 21 </span> <span id="L22" class="LineNr"> 22 </span><span class="subxComment"># print msg to stderr if a != b, otherwise print "."</span> <span id="L23" class="LineNr"> 23 </span><span class="subxFunction">check-ints-equal</span>: <span class="subxComment"># a: int, b: int, msg: (addr array byte)</span> diff --git a/html/103kernel-string-equal.subx.html b/html/linux/103kernel-string-equal.subx.html index 7be0d2dd..cfe428d8 100644 --- a/html/103kernel-string-equal.subx.html +++ b/html/linux/103kernel-string-equal.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 103kernel-string-equal.subx</title> +<title>Mu - linux/103kernel-string-equal.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } .subxMinorFunction { color: #875f5f; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxS2Comment { color: #8a8a8a; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -58,7 +58,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/103kernel-string-equal.subx'>https://github.com/akkartik/mu/blob/main/103kernel-string-equal.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/103kernel-string-equal.subx'>https://github.com/akkartik/mu/blob/main/linux/103kernel-string-equal.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Checking null-terminated strings.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -71,8 +71,8 @@ if ('onhashchange' in window) { <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># string'.</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment">#</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># To run (from the subx directory):</span> -<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># $ ./bootstrap translate 05[0-2]*.subx -o /tmp/tmp52</span> -<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># $ ./bootstrap run /tmp/tmp52 # runs a series of tests</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># $ bootstrap/bootstrap translate 10[0-3]*.subx -o a.elf</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># $ bootstrap/bootstrap run a.elf # runs a series of tests</span> <span id="L14" class="LineNr"> 14 </span><span class="subxComment"># ...... # all tests pass</span> <span id="L15" class="LineNr"> 15 </span><span class="subxComment">#</span> <span id="L16" class="LineNr"> 16 </span><span class="subxComment"># (We can't yet run the tests when given a "test" commandline argument,</span> @@ -88,7 +88,7 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> <span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> <span id="L28" class="LineNr"> 28 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L29" class="LineNr"> 29 </span> e8/call syscall_exit/disp32 +<span id="L29" class="LineNr"> 29 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L30" class="LineNr"> 30 </span> <span id="L31" class="LineNr"> 31 </span><span class="subxFunction">kernel-string-equal?</span>: <span class="subxComment"># s: (addr kernel-string), benchmark: (addr array byte) -> result/eax: boolean</span> <span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># pseudocode:</span> diff --git a/html/104new-segment.subx.html b/html/linux/104new-segment.subx.html index b850f2b4..995ff7d8 100644 --- a/html/104new-segment.subx.html +++ b/html/linux/104new-segment.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 104new-segment.subx</title> +<title>Mu - linux/104new-segment.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Constant { color: #008787; } .subxMinorFunction { color: #875f5f; } +.SpecialChar { color: #d70000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/104new-segment.subx'>https://github.com/akkartik/mu/blob/main/104new-segment.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/104new-segment.subx'>https://github.com/akkartik/mu/blob/main/linux/104new-segment.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Create a new segment (pool of memory for allocating chunks from) in the form</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># of an *allocation descriptor* that can be passed to the memory allocator</span> @@ -95,7 +95,7 @@ if ('onhashchange' in window) { <span id="L35" class="LineNr">35 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x34/imm32 <span class="subxComment"># copy to *eax</span> <span id="L36" class="LineNr">36 </span> <span class="subxComment"># syscall(exit, eax)</span> <span id="L37" class="LineNr">37 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L38" class="LineNr">38 </span> e8/call syscall_exit/disp32 +<span id="L38" class="LineNr">38 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L39" class="LineNr">39 </span> <span id="L40" class="LineNr">40 </span><span class="subxFunction">new-segment</span>: <span class="subxComment"># len: int, ad: (addr allocation-descriptor)</span> <span id="L41" class="LineNr">41 </span> <span class="subxS1Comment"># . prologue</span> @@ -109,7 +109,7 @@ if ('onhashchange' in window) { <span id="L49" class="LineNr">49 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $_mmap-new-segment:len/disp32 <span class="subxComment"># copy eax to *$_mmap-new-segment:len</span> <span id="L50" class="LineNr">50 </span> <span class="subxComment"># mmap(_mmap-new-segment)</span> <span id="L51" class="LineNr">51 </span> bb/copy-to-ebx <a href='104new-segment.subx.html#L73'>_mmap-new-segment</a>/imm32 -<span id="L52" class="LineNr">52 </span> e8/call syscall_mmap/disp32 +<span id="L52" class="LineNr">52 </span> e8/call <a href='000init.subx.html#L71'>syscall_mmap</a>/disp32 <span id="L53" class="LineNr">53 </span> <span class="subxComment"># copy {eax, eax+len} to *ad</span> <span id="L54" class="LineNr">54 </span> <span class="subxS1Comment"># . ebx = ad</span> <span id="L55" class="LineNr">55 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ebx</span> diff --git a/html/baremetal/105string-equal.subx.html b/html/linux/105string-equal.subx.html index abef3a11..1a41c469 100644 --- a/html/baremetal/105string-equal.subx.html +++ b/html/linux/105string-equal.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/105string-equal.subx</title> +<title>Mu - linux/105string-equal.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -21,8 +21,10 @@ a { color:inherit; } .LineNr { } .Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -56,7 +58,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/105string-equal.subx'>https://github.com/akkartik/mu/blob/main/baremetal/105string-equal.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/105string-equal.subx'>https://github.com/akkartik/mu/blob/main/linux/105string-equal.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Comparing 'regular' size-prefixed strings.</span> <span id="L2" class="LineNr"> 2 </span> @@ -65,255 +67,262 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">string-equal?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> -<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># pseudocode:</span> -<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># if (s->size != benchmark->size) return false</span> -<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># return string-starts-with?(s, benchmark)</span> -<span id="L12" class="LineNr"> 12 </span> <span class="subxComment">#</span> -<span id="L13" class="LineNr"> 13 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L14" class="LineNr"> 14 </span> 55/push-ebp -<span id="L15" class="LineNr"> 15 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L16" class="LineNr"> 16 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L17" class="LineNr"> 17 </span> 51/push-ecx -<span id="L18" class="LineNr"> 18 </span> 56/push-esi -<span id="L19" class="LineNr"> 19 </span> 57/push-edi -<span id="L20" class="LineNr"> 20 </span> <span class="subxComment"># esi = s</span> -<span id="L21" class="LineNr"> 21 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L22" class="LineNr"> 22 </span> <span class="subxComment"># edi = benchmark</span> -<span id="L23" class="LineNr"> 23 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># ecx = s->size</span> -<span id="L25" class="LineNr"> 25 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L26" class="LineNr"> 26 </span><span class="Constant">$string-equal?:sizes</span>: -<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># if (ecx != benchmark->size) return false</span> -<span id="L28" class="LineNr"> 28 </span> 39/compare 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *edi and ecx</span> -<span id="L29" class="LineNr"> 29 </span> b8/copy-to-eax 0/imm32/false -<span id="L30" class="LineNr"> 30 </span> 75/jump-if-!= $string-equal?:end/disp8 -<span id="L31" class="LineNr"> 31 </span><span class="Constant">$string-equal?:contents</span>: -<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># string-starts-with?(s, benchmark)</span> -<span id="L33" class="LineNr"> 33 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L34" class="LineNr"> 34 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L35" class="LineNr"> 35 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L36" class="LineNr"> 36 </span> <span class="subxS2Comment"># . . call</span> -<span id="L37" class="LineNr"> 37 </span> e8/call <a href='105string-equal.subx.html#L50'>string-starts-with?</a>/disp32 -<span id="L38" class="LineNr"> 38 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L39" class="LineNr"> 39 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L40" class="LineNr"> 40 </span><span class="Constant">$string-equal?:end</span>: -<span id="L41" class="LineNr"> 41 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L42" class="LineNr"> 42 </span> 5f/pop-to-edi -<span id="L43" class="LineNr"> 43 </span> 5e/pop-to-esi -<span id="L44" class="LineNr"> 44 </span> 59/pop-to-ecx -<span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L47" class="LineNr"> 47 </span> 5d/pop-to-ebp -<span id="L48" class="LineNr"> 48 </span> c3/return -<span id="L49" class="LineNr"> 49 </span> -<span id="L50" class="LineNr"> 50 </span><span class="subxFunction">string-starts-with?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> -<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># pseudocode:</span> -<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># if (s->size < benchmark->size) return false</span> -<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># currs = s->data</span> -<span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># currb = benchmark->data</span> -<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># maxb = &benchmark->data[benchmark->size]</span> -<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># while currb < maxb</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># c1 = *currs</span> -<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># c2 = *currb</span> -<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># if (c1 != c2) return false</span> -<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># ++currs, ++currb</span> -<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># return true</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxComment">#</span> -<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># registers:</span> -<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># currs: esi</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># maxs: ecx</span> -<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># currb: edi</span> -<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># c1: eax</span> -<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># c2: ebx</span> +<span id="L8" class="LineNr"> 8 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run all tests</span> +<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? e8/call test-compare-equal-strings/disp32</span> +<span id="L10" class="LineNr"> 10 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> +<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> +<span id="L12" class="LineNr"> 12 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L13" class="LineNr"> 13 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L14" class="LineNr"> 14 </span> +<span id="L15" class="LineNr"> 15 </span><span class="subxFunction">string-equal?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> +<span id="L16" class="LineNr"> 16 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># if (s->size != benchmark->size) return false</span> +<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># return string-starts-with?(s, benchmark)</span> +<span id="L19" class="LineNr"> 19 </span> <span class="subxComment">#</span> +<span id="L20" class="LineNr"> 20 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21" class="LineNr"> 21 </span> 55/push-ebp +<span id="L22" class="LineNr"> 22 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L23" class="LineNr"> 23 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24" class="LineNr"> 24 </span> 51/push-ecx +<span id="L25" class="LineNr"> 25 </span> 56/push-esi +<span id="L26" class="LineNr"> 26 </span> 57/push-edi +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># esi = s</span> +<span id="L28" class="LineNr"> 28 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># edi = benchmark</span> +<span id="L30" class="LineNr"> 30 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> +<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># ecx = s->size</span> +<span id="L32" class="LineNr"> 32 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L33" class="LineNr"> 33 </span><span class="Constant">$string-equal?:sizes</span>: +<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># if (ecx != benchmark->size) return false</span> +<span id="L35" class="LineNr"> 35 </span> 39/compare 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *edi and ecx</span> +<span id="L36" class="LineNr"> 36 </span> b8/copy-to-eax 0/imm32/false +<span id="L37" class="LineNr"> 37 </span> 75/jump-if-!= $string-equal?:end/disp8 +<span id="L38" class="LineNr"> 38 </span><span class="Constant">$string-equal?:contents</span>: +<span id="L39" class="LineNr"> 39 </span> <span class="subxComment"># string-starts-with?(s, benchmark)</span> +<span id="L40" class="LineNr"> 40 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L42" class="LineNr"> 42 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L43" class="LineNr"> 43 </span> <span class="subxS2Comment"># . . call</span> +<span id="L44" class="LineNr"> 44 </span> e8/call <a href='105string-equal.subx.html#L57'>string-starts-with?</a>/disp32 +<span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L46" class="LineNr"> 46 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L47" class="LineNr"> 47 </span><span class="Constant">$string-equal?:end</span>: +<span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L49" class="LineNr"> 49 </span> 5f/pop-to-edi +<span id="L50" class="LineNr"> 50 </span> 5e/pop-to-esi +<span id="L51" class="LineNr"> 51 </span> 59/pop-to-ecx +<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L53" class="LineNr"> 53 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L54" class="LineNr"> 54 </span> 5d/pop-to-ebp +<span id="L55" class="LineNr"> 55 </span> c3/return +<span id="L56" class="LineNr"> 56 </span> +<span id="L57" class="LineNr"> 57 </span><span class="subxFunction">string-starts-with?</span>: <span class="subxComment"># s: (addr array byte), benchmark: (addr array byte) -> result/eax: boolean</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># pseudocode:</span> +<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># if (s->size < benchmark->size) return false</span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># currs = s->data</span> +<span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># currb = benchmark->data</span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># maxb = &benchmark->data[benchmark->size]</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># while currb < maxb</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># c1 = *currs</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># c2 = *currb</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># if (c1 != c2) return false</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># ++currs, ++currb</span> +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># return true</span> <span id="L69" class="LineNr"> 69 </span> <span class="subxComment">#</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L71" class="LineNr"> 71 </span> 55/push-ebp -<span id="L72" class="LineNr"> 72 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L74" class="LineNr"> 74 </span> 51/push-ecx -<span id="L75" class="LineNr"> 75 </span> 52/push-edx -<span id="L76" class="LineNr"> 76 </span> 56/push-esi -<span id="L77" class="LineNr"> 77 </span> 57/push-edi -<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># esi = s</span> -<span id="L79" class="LineNr"> 79 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># edi = benchmark</span> -<span id="L81" class="LineNr"> 81 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># var bsize/ecx: int = benchmark->size</span> -<span id="L83" class="LineNr"> 83 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L84" class="LineNr"> 84 </span><span class="Constant">$string-starts-with?:sizes</span>: -<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># if (s->size < bsize) return false</span> -<span id="L86" class="LineNr"> 86 </span> 39/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *esi with ecx</span> -<span id="L87" class="LineNr"> 87 </span> 7c/jump-if-< $string-starts-with?:false/disp8 -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># var currs/esi: (addr byte) = s->data</span> -<span id="L89" class="LineNr"> 89 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esi</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># var currb/edi: (addr byte) = benchmark->data</span> -<span id="L91" class="LineNr"> 91 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edi</span> -<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># var maxb/ecx: (addr byte) = &benchmark->data[benchmark->size]</span> -<span id="L93" class="LineNr"> 93 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edi to ecx</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># var c1/eax: byte = 0</span> -<span id="L95" class="LineNr"> 95 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># var c2/edx: byte = 0</span> -<span id="L97" class="LineNr"> 97 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> -<span id="L98" class="LineNr"> 98 </span><span class="Constant">$string-starts-with?:loop</span>: -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># if (currs >= maxs) return true</span> -<span id="L100" class="LineNr">100 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with ecx</span> -<span id="L101" class="LineNr">101 </span> 73/jump-if-addr>= $string-starts-with?:true/disp8 -<span id="L102" class="LineNr">102 </span> <span class="subxComment"># c1 = *currs</span> -<span id="L103" class="LineNr">103 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> -<span id="L104" class="LineNr">104 </span> <span class="subxComment"># c2 = *currb</span> -<span id="L105" class="LineNr">105 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/DL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edi to DL</span> -<span id="L106" class="LineNr">106 </span> <span class="subxComment"># if (c1 != c2) return false</span> -<span id="L107" class="LineNr">107 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> -<span id="L108" class="LineNr">108 </span> 75/jump-if-!= $string-starts-with?:false/disp8 -<span id="L109" class="LineNr">109 </span> <span class="subxComment"># ++currs</span> -<span id="L110" class="LineNr">110 </span> 46/increment-esi -<span id="L111" class="LineNr">111 </span> <span class="subxComment"># ++currb</span> -<span id="L112" class="LineNr">112 </span> 47/increment-edi -<span id="L113" class="LineNr">113 </span> eb/jump $string-starts-with?:<span class="Constant">loop</span>/disp8 -<span id="L114" class="LineNr">114 </span><span class="Constant">$string-starts-with?:true</span>: -<span id="L115" class="LineNr">115 </span> b8/copy-to-eax 1/imm32 -<span id="L116" class="LineNr">116 </span> eb/jump $string-starts-with?:end/disp8 -<span id="L117" class="LineNr">117 </span><span class="Constant">$string-starts-with?:false</span>: -<span id="L118" class="LineNr">118 </span> b8/copy-to-eax 0/imm32 -<span id="L119" class="LineNr">119 </span><span class="Constant">$string-starts-with?:end</span>: -<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L121" class="LineNr">121 </span> 5f/pop-to-edi -<span id="L122" class="LineNr">122 </span> 5e/pop-to-esi -<span id="L123" class="LineNr">123 </span> 5a/pop-to-edx -<span id="L124" class="LineNr">124 </span> 59/pop-to-ecx -<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L126" class="LineNr">126 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L127" class="LineNr">127 </span> 5d/pop-to-ebp -<span id="L128" class="LineNr">128 </span> c3/return -<span id="L129" class="LineNr">129 </span> -<span id="L130" class="LineNr">130 </span><span class="subxH1Comment"># - tests</span> -<span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="subxTest">test-compare-empty-with-empty-string</span>: -<span id="L133" class="LineNr">133 </span> <span class="subxComment"># eax = string-equal?("", "")</span> -<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L135" class="LineNr">135 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L136" class="LineNr">136 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L138" class="LineNr">138 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-compare-empty-with-empty-string"</span>/imm32 -<span id="L144" class="LineNr">144 </span> 68/push 1/imm32/true -<span id="L145" class="LineNr">145 </span> 50/push-eax -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L150" class="LineNr">150 </span> c3/return -<span id="L151" class="LineNr">151 </span> -<span id="L152" class="LineNr">152 </span><span class="subxTest">test-compare-empty-with-non-empty-string</span>: <span class="subxComment"># also checks size-mismatch code path</span> -<span id="L153" class="LineNr">153 </span> <span class="subxComment"># eax = string-equal?("", "Abc")</span> -<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L155" class="LineNr">155 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L156" class="LineNr">156 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L158" class="LineNr">158 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L161" class="LineNr">161 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L163" class="LineNr">163 </span> 68/push <span class="Constant">"F - test-compare-empty-with-non-empty-string"</span>/imm32 -<span id="L164" class="LineNr">164 </span> 68/push 0/imm32/false -<span id="L165" class="LineNr">165 </span> 50/push-eax -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> -<span id="L167" class="LineNr">167 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L169" class="LineNr">169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L170" class="LineNr">170 </span> c3/return -<span id="L171" class="LineNr">171 </span> -<span id="L172" class="LineNr">172 </span><span class="subxTest">test-compare-equal-strings</span>: -<span id="L173" class="LineNr">173 </span> <span class="subxComment"># eax = string-equal?("Abc", "Abc")</span> -<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L175" class="LineNr">175 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L176" class="LineNr">176 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . call</span> -<span id="L178" class="LineNr">178 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L180" class="LineNr">180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L181" class="LineNr">181 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L183" class="LineNr">183 </span> 68/push <span class="Constant">"F - test-compare-equal-strings"</span>/imm32 -<span id="L184" class="LineNr">184 </span> 68/push 1/imm32/true -<span id="L185" class="LineNr">185 </span> 50/push-eax -<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . call</span> -<span id="L187" class="LineNr">187 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L189" class="LineNr">189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L190" class="LineNr">190 </span> c3/return -<span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="subxTest">test-compare-inequal-strings-equal-sizes</span>: -<span id="L193" class="LineNr">193 </span> <span class="subxComment"># eax = string-equal?("Abc", "Adc")</span> -<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L195" class="LineNr">195 </span> 68/push <span class="Constant">"Adc"</span>/imm32 -<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> -<span id="L198" class="LineNr">198 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L201" class="LineNr">201 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"F - test-compare-inequal-strings-equal-sizes"</span>/imm32 -<span id="L204" class="LineNr">204 </span> 68/push 0/imm32/false -<span id="L205" class="LineNr">205 </span> 50/push-eax -<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L207" class="LineNr">207 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L208" class="LineNr">208 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L209" class="LineNr">209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L210" class="LineNr">210 </span> c3/return -<span id="L211" class="LineNr">211 </span> -<span id="L212" class="LineNr">212 </span><span class="subxComment"># helper for later tests</span> -<span id="L213" class="LineNr">213 </span><span class="subxFunction">check-strings-equal</span>: <span class="subxComment"># s: (addr array byte), expected: (addr array byte), msg: (addr array byte)</span> -<span id="L214" class="LineNr">214 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L215" class="LineNr">215 </span> 55/push-ebp -<span id="L216" class="LineNr">216 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L218" class="LineNr">218 </span> 50/push-eax -<span id="L219" class="LineNr">219 </span> <span class="subxComment"># var eax: boolean = string-equal?(s, expected)</span> -<span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L221" class="LineNr">221 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L222" class="LineNr">222 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L223" class="LineNr">223 </span> <span class="subxS2Comment"># . . call</span> -<span id="L224" class="LineNr">224 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L225" class="LineNr">225 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L226" class="LineNr">226 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L227" class="LineNr">227 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L228" class="LineNr">228 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L229" class="LineNr">229 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L230" class="LineNr">230 </span> 68/push 1/imm32 -<span id="L231" class="LineNr">231 </span> 50/push-eax -<span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . call</span> -<span id="L233" class="LineNr">233 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L235" class="LineNr">235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L236" class="LineNr">236 </span><span class="Constant">$check-strings-equal:end</span>: -<span id="L237" class="LineNr">237 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L238" class="LineNr">238 </span> 58/pop-to-eax -<span id="L239" class="LineNr">239 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L240" class="LineNr">240 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L241" class="LineNr">241 </span> 5d/pop-to-ebp -<span id="L242" class="LineNr">242 </span> c3/return -<span id="L243" class="LineNr">243 </span> -<span id="L244" class="LineNr">244 </span><span class="subxComment"># test the helper</span> -<span id="L245" class="LineNr">245 </span><span class="subxTest">test-check-strings-equal</span>: -<span id="L246" class="LineNr">246 </span> <span class="subxComment"># check-strings-equal("Abc", "Abc")</span> -<span id="L247" class="LineNr">247 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L248" class="LineNr">248 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L249" class="LineNr">249 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L250" class="LineNr">250 </span> <span class="subxS2Comment"># . . call</span> -<span id="L251" class="LineNr">251 </span> e8/call <a href='105string-equal.subx.html#L213'>check-strings-equal</a>/disp32 -<span id="L252" class="LineNr">252 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L253" class="LineNr">253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L254" class="LineNr">254 </span> c3/return -<span id="L255" class="LineNr">255 </span> -<span id="L256" class="LineNr">256 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># registers:</span> +<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># currs: esi</span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># maxs: ecx</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># currb: edi</span> +<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># c1: eax</span> +<span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># c2: ebx</span> +<span id="L76" class="LineNr"> 76 </span> <span class="subxComment">#</span> +<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L78" class="LineNr"> 78 </span> 55/push-ebp +<span id="L79" class="LineNr"> 79 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L81" class="LineNr"> 81 </span> 51/push-ecx +<span id="L82" class="LineNr"> 82 </span> 52/push-edx +<span id="L83" class="LineNr"> 83 </span> 56/push-esi +<span id="L84" class="LineNr"> 84 </span> 57/push-edi +<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># esi = s</span> +<span id="L86" class="LineNr"> 86 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># edi = benchmark</span> +<span id="L88" class="LineNr"> 88 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> +<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># var bsize/ecx: int = benchmark->size</span> +<span id="L90" class="LineNr"> 90 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L91" class="LineNr"> 91 </span><span class="Constant">$string-starts-with?:sizes</span>: +<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># if (s->size < bsize) return false</span> +<span id="L93" class="LineNr"> 93 </span> 39/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *esi with ecx</span> +<span id="L94" class="LineNr"> 94 </span> 7c/jump-if-< $string-starts-with?:false/disp8 +<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># var currs/esi: (addr byte) = s->data</span> +<span id="L96" class="LineNr"> 96 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esi</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var currb/edi: (addr byte) = benchmark->data</span> +<span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edi</span> +<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var maxb/ecx: (addr byte) = &benchmark->data[benchmark->size]</span> +<span id="L100" class="LineNr">100 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edi to ecx</span> +<span id="L101" class="LineNr">101 </span> <span class="subxComment"># var c1/eax: byte = 0</span> +<span id="L102" class="LineNr">102 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L103" class="LineNr">103 </span> <span class="subxComment"># var c2/edx: byte = 0</span> +<span id="L104" class="LineNr">104 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> +<span id="L105" class="LineNr">105 </span><span class="Constant">$string-starts-with?:loop</span>: +<span id="L106" class="LineNr">106 </span> <span class="subxComment"># if (currs >= maxs) return true</span> +<span id="L107" class="LineNr">107 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with ecx</span> +<span id="L108" class="LineNr">108 </span> 73/jump-if-addr>= $string-starts-with?:true/disp8 +<span id="L109" class="LineNr">109 </span> <span class="subxComment"># c1 = *currs</span> +<span id="L110" class="LineNr">110 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> +<span id="L111" class="LineNr">111 </span> <span class="subxComment"># c2 = *currb</span> +<span id="L112" class="LineNr">112 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/DL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edi to DL</span> +<span id="L113" class="LineNr">113 </span> <span class="subxComment"># if (c1 != c2) return false</span> +<span id="L114" class="LineNr">114 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and edx</span> +<span id="L115" class="LineNr">115 </span> 75/jump-if-!= $string-starts-with?:false/disp8 +<span id="L116" class="LineNr">116 </span> <span class="subxComment"># ++currs</span> +<span id="L117" class="LineNr">117 </span> 46/increment-esi +<span id="L118" class="LineNr">118 </span> <span class="subxComment"># ++currb</span> +<span id="L119" class="LineNr">119 </span> 47/increment-edi +<span id="L120" class="LineNr">120 </span> eb/jump $string-starts-with?:<span class="Constant">loop</span>/disp8 +<span id="L121" class="LineNr">121 </span><span class="Constant">$string-starts-with?:true</span>: +<span id="L122" class="LineNr">122 </span> b8/copy-to-eax 1/imm32 +<span id="L123" class="LineNr">123 </span> eb/jump $string-starts-with?:end/disp8 +<span id="L124" class="LineNr">124 </span><span class="Constant">$string-starts-with?:false</span>: +<span id="L125" class="LineNr">125 </span> b8/copy-to-eax 0/imm32 +<span id="L126" class="LineNr">126 </span><span class="Constant">$string-starts-with?:end</span>: +<span id="L127" class="LineNr">127 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L128" class="LineNr">128 </span> 5f/pop-to-edi +<span id="L129" class="LineNr">129 </span> 5e/pop-to-esi +<span id="L130" class="LineNr">130 </span> 5a/pop-to-edx +<span id="L131" class="LineNr">131 </span> 59/pop-to-ecx +<span id="L132" class="LineNr">132 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L133" class="LineNr">133 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L134" class="LineNr">134 </span> 5d/pop-to-ebp +<span id="L135" class="LineNr">135 </span> c3/return +<span id="L136" class="LineNr">136 </span> +<span id="L137" class="LineNr">137 </span><span class="subxH1Comment"># - tests</span> +<span id="L138" class="LineNr">138 </span> +<span id="L139" class="LineNr">139 </span><span class="subxTest">test-compare-empty-with-empty-string</span>: +<span id="L140" class="LineNr">140 </span> <span class="subxComment"># eax = string-equal?("", "")</span> +<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L142" class="LineNr">142 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . call</span> +<span id="L145" class="LineNr">145 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L147" class="LineNr">147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L148" class="LineNr">148 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L150" class="LineNr">150 </span> 68/push <span class="Constant">"F - test-compare-empty-with-empty-string"</span>/imm32 +<span id="L151" class="LineNr">151 </span> 68/push 1/imm32/true +<span id="L152" class="LineNr">152 </span> 50/push-eax +<span id="L153" class="LineNr">153 </span> <span class="subxS2Comment"># . . call</span> +<span id="L154" class="LineNr">154 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L156" class="LineNr">156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L157" class="LineNr">157 </span> c3/return +<span id="L158" class="LineNr">158 </span> +<span id="L159" class="LineNr">159 </span><span class="subxTest">test-compare-empty-with-non-empty-string</span>: <span class="subxComment"># also checks size-mismatch code path</span> +<span id="L160" class="LineNr">160 </span> <span class="subxComment"># eax = string-equal?("", "Abc")</span> +<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L162" class="LineNr">162 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L163" class="LineNr">163 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . call</span> +<span id="L165" class="LineNr">165 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L167" class="LineNr">167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L170" class="LineNr">170 </span> 68/push <span class="Constant">"F - test-compare-empty-with-non-empty-string"</span>/imm32 +<span id="L171" class="LineNr">171 </span> 68/push 0/imm32/false +<span id="L172" class="LineNr">172 </span> 50/push-eax +<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . call</span> +<span id="L174" class="LineNr">174 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L176" class="LineNr">176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L177" class="LineNr">177 </span> c3/return +<span id="L178" class="LineNr">178 </span> +<span id="L179" class="LineNr">179 </span><span class="subxTest">test-compare-equal-strings</span>: +<span id="L180" class="LineNr">180 </span> <span class="subxComment"># eax = string-equal?("Abc", "Abc")</span> +<span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L182" class="LineNr">182 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L183" class="LineNr">183 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . call</span> +<span id="L185" class="LineNr">185 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L187" class="LineNr">187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L188" class="LineNr">188 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L190" class="LineNr">190 </span> 68/push <span class="Constant">"F - test-compare-equal-strings"</span>/imm32 +<span id="L191" class="LineNr">191 </span> 68/push 1/imm32/true +<span id="L192" class="LineNr">192 </span> 50/push-eax +<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> +<span id="L194" class="LineNr">194 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L196" class="LineNr">196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L197" class="LineNr">197 </span> c3/return +<span id="L198" class="LineNr">198 </span> +<span id="L199" class="LineNr">199 </span><span class="subxTest">test-compare-inequal-strings-equal-sizes</span>: +<span id="L200" class="LineNr">200 </span> <span class="subxComment"># eax = string-equal?("Abc", "Adc")</span> +<span id="L201" class="LineNr">201 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L202" class="LineNr">202 </span> 68/push <span class="Constant">"Adc"</span>/imm32 +<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> +<span id="L205" class="LineNr">205 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L208" class="LineNr">208 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L210" class="LineNr">210 </span> 68/push <span class="Constant">"F - test-compare-inequal-strings-equal-sizes"</span>/imm32 +<span id="L211" class="LineNr">211 </span> 68/push 0/imm32/false +<span id="L212" class="LineNr">212 </span> 50/push-eax +<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> +<span id="L214" class="LineNr">214 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L217" class="LineNr">217 </span> c3/return +<span id="L218" class="LineNr">218 </span> +<span id="L219" class="LineNr">219 </span><span class="subxComment"># helper for later tests</span> +<span id="L220" class="LineNr">220 </span><span class="subxFunction">check-strings-equal</span>: <span class="subxComment"># s: (addr array byte), expected: (addr array byte), msg: (addr array byte)</span> +<span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L222" class="LineNr">222 </span> 55/push-ebp +<span id="L223" class="LineNr">223 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L224" class="LineNr">224 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L225" class="LineNr">225 </span> 50/push-eax +<span id="L226" class="LineNr">226 </span> <span class="subxComment"># var eax: boolean = string-equal?(s, expected)</span> +<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L228" class="LineNr">228 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L229" class="LineNr">229 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L230" class="LineNr">230 </span> <span class="subxS2Comment"># . . call</span> +<span id="L231" class="LineNr">231 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L233" class="LineNr">233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L234" class="LineNr">234 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L235" class="LineNr">235 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L236" class="LineNr">236 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L237" class="LineNr">237 </span> 68/push 1/imm32 +<span id="L238" class="LineNr">238 </span> 50/push-eax +<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . call</span> +<span id="L240" class="LineNr">240 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L242" class="LineNr">242 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L243" class="LineNr">243 </span><span class="Constant">$check-strings-equal:end</span>: +<span id="L244" class="LineNr">244 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L245" class="LineNr">245 </span> 58/pop-to-eax +<span id="L246" class="LineNr">246 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L247" class="LineNr">247 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L248" class="LineNr">248 </span> 5d/pop-to-ebp +<span id="L249" class="LineNr">249 </span> c3/return +<span id="L250" class="LineNr">250 </span> +<span id="L251" class="LineNr">251 </span><span class="subxComment"># test the helper</span> +<span id="L252" class="LineNr">252 </span><span class="subxTest">test-check-strings-equal</span>: +<span id="L253" class="LineNr">253 </span> <span class="subxComment"># check-strings-equal("Abc", "Abc")</span> +<span id="L254" class="LineNr">254 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L255" class="LineNr">255 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L256" class="LineNr">256 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . call</span> +<span id="L258" class="LineNr">258 </span> e8/call <a href='105string-equal.subx.html#L220'>check-strings-equal</a>/disp32 +<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L260" class="LineNr">260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L261" class="LineNr">261 </span> c3/return +<span id="L262" class="LineNr">262 </span> +<span id="L263" class="LineNr">263 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/baremetal/106stream.subx.html b/html/linux/106stream.subx.html index 3cc7493f..e5d97176 100644 --- a/html/baremetal/106stream.subx.html +++ b/html/linux/106stream.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/106stream.subx</title> +<title>Mu - linux/106stream.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/106stream.subx'>https://github.com/akkartik/mu/blob/main/baremetal/106stream.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/106stream.subx'>https://github.com/akkartik/mu/blob/main/linux/106stream.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># streams: data structure for operating on arrays in a stateful manner</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -67,73 +67,70 @@ if ('onhashchange' in window) { <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># some primitives for operating on streams:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># - clear-stream (clears everything but the data size)</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># - rewind-stream (resets read pointer)</span> -<span id="L11" class="LineNr">11 </span><span class="subxComment">#</span> -<span id="L12" class="LineNr">12 </span><span class="subxComment"># We need to do this in machine code because streams need to be opaque types,</span> -<span id="L13" class="LineNr">13 </span><span class="subxComment"># and we don't yet support opaque types in Mu.</span> -<span id="L14" class="LineNr">14 </span> -<span id="L15" class="LineNr">15 </span>== code -<span id="L16" class="LineNr">16 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L17" class="LineNr">17 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L18" class="LineNr">18 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L19" class="LineNr">19 </span> -<span id="L20" class="LineNr">20 </span><span class="subxFunction">clear-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> -<span id="L21" class="LineNr">21 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L22" class="LineNr">22 </span> 55/push-ebp -<span id="L23" class="LineNr">23 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L25" class="LineNr">25 </span> 50/push-eax -<span id="L26" class="LineNr">26 </span> 51/push-ecx -<span id="L27" class="LineNr">27 </span> <span class="subxComment"># eax = f</span> -<span id="L28" class="LineNr">28 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L29" class="LineNr">29 </span> <span class="subxComment"># var count/ecx: int = f->size</span> -<span id="L30" class="LineNr">30 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+8) to ecx</span> -<span id="L31" class="LineNr">31 </span> <span class="subxComment"># var max/ecx: (addr byte) = &f->data[f->size]</span> -<span id="L32" class="LineNr">32 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+12 to ecx</span> -<span id="L33" class="LineNr">33 </span> <span class="subxComment"># f->write = 0</span> -<span id="L34" class="LineNr">34 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *eax</span> -<span id="L35" class="LineNr">35 </span> <span class="subxComment"># f->read = 0</span> -<span id="L36" class="LineNr">36 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L37" class="LineNr">37 </span> <span class="subxH1Comment"># - clear all stream data</span> -<span id="L38" class="LineNr">38 </span> <span class="subxH1Comment"># - this isn't strictly necessary, and it can slow things down *a lot*, but better safe than sorry.</span> -<span id="L39" class="LineNr">39 </span> <span class="subxComment"># var curr/eax: (addr byte) = f->data</span> -<span id="L40" class="LineNr">40 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to eax</span> -<span id="L41" class="LineNr">41 </span><span class="Constant">$clear-stream:loop</span>: -<span id="L42" class="LineNr">42 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L43" class="LineNr">43 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> -<span id="L44" class="LineNr">44 </span> 73/jump-if-addr>= $clear-stream:end/disp8 -<span id="L45" class="LineNr">45 </span> <span class="subxComment"># *curr = 0</span> -<span id="L46" class="LineNr">46 </span> c6 0/subop/copy-byte 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *eax</span> -<span id="L47" class="LineNr">47 </span> <span class="subxComment"># ++curr</span> -<span id="L48" class="LineNr">48 </span> 40/increment-eax -<span id="L49" class="LineNr">49 </span> eb/jump $clear-stream:<span class="Constant">loop</span>/disp8 -<span id="L50" class="LineNr">50 </span><span class="Constant">$clear-stream:end</span>: -<span id="L51" class="LineNr">51 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L52" class="LineNr">52 </span> 59/pop-to-ecx -<span id="L53" class="LineNr">53 </span> 58/pop-to-eax -<span id="L54" class="LineNr">54 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L55" class="LineNr">55 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L56" class="LineNr">56 </span> 5d/pop-to-ebp -<span id="L57" class="LineNr">57 </span> c3/return -<span id="L58" class="LineNr">58 </span> -<span id="L59" class="LineNr">59 </span><span class="subxFunction">rewind-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> -<span id="L60" class="LineNr">60 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L61" class="LineNr">61 </span> 55/push-ebp -<span id="L62" class="LineNr">62 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L63" class="LineNr">63 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L64" class="LineNr">64 </span> 50/push-eax -<span id="L65" class="LineNr">65 </span> <span class="subxComment"># eax = f</span> -<span id="L66" class="LineNr">66 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L67" class="LineNr">67 </span> <span class="subxComment"># f->read = 0</span> -<span id="L68" class="LineNr">68 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L69" class="LineNr">69 </span><span class="Constant">$rewind-stream:end</span>: -<span id="L70" class="LineNr">70 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L71" class="LineNr">71 </span> 58/pop-to-eax -<span id="L72" class="LineNr">72 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L73" class="LineNr">73 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L74" class="LineNr">74 </span> 5d/pop-to-ebp -<span id="L75" class="LineNr">75 </span> c3/return -<span id="L76" class="LineNr">76 </span> -<span id="L77" class="LineNr">77 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L11" class="LineNr">11 </span> +<span id="L12" class="LineNr">12 </span>== code +<span id="L13" class="LineNr">13 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L14" class="LineNr">14 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L15" class="LineNr">15 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L16" class="LineNr">16 </span> +<span id="L17" class="LineNr">17 </span><span class="subxFunction">clear-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> +<span id="L18" class="LineNr">18 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19" class="LineNr">19 </span> 55/push-ebp +<span id="L20" class="LineNr">20 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L21" class="LineNr">21 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22" class="LineNr">22 </span> 50/push-eax +<span id="L23" class="LineNr">23 </span> 51/push-ecx +<span id="L24" class="LineNr">24 </span> <span class="subxComment"># eax = f</span> +<span id="L25" class="LineNr">25 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L26" class="LineNr">26 </span> <span class="subxComment"># var count/ecx: int = f->size</span> +<span id="L27" class="LineNr">27 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+8) to ecx</span> +<span id="L28" class="LineNr">28 </span> <span class="subxComment"># var max/ecx: (addr byte) = &f->data[f->size]</span> +<span id="L29" class="LineNr">29 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+12 to ecx</span> +<span id="L30" class="LineNr">30 </span> <span class="subxComment"># f->write = 0</span> +<span id="L31" class="LineNr">31 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *eax</span> +<span id="L32" class="LineNr">32 </span> <span class="subxComment"># f->read = 0</span> +<span id="L33" class="LineNr">33 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> +<span id="L34" class="LineNr">34 </span> <span class="subxH1Comment"># - clear all stream data</span> +<span id="L35" class="LineNr">35 </span> <span class="subxH1Comment"># - this isn't strictly necessary, and it can slow things down *a lot*, but better safe than sorry.</span> +<span id="L36" class="LineNr">36 </span> <span class="subxComment"># var curr/eax: (addr byte) = f->data</span> +<span id="L37" class="LineNr">37 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to eax</span> +<span id="L38" class="LineNr">38 </span><span class="Constant">$clear-stream:loop</span>: +<span id="L39" class="LineNr">39 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L40" class="LineNr">40 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> +<span id="L41" class="LineNr">41 </span> 73/jump-if-addr>= $clear-stream:end/disp8 +<span id="L42" class="LineNr">42 </span> <span class="subxComment"># *curr = 0</span> +<span id="L43" class="LineNr">43 </span> c6 0/subop/copy-byte 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *eax</span> +<span id="L44" class="LineNr">44 </span> <span class="subxComment"># ++curr</span> +<span id="L45" class="LineNr">45 </span> 40/increment-eax +<span id="L46" class="LineNr">46 </span> eb/jump $clear-stream:<span class="Constant">loop</span>/disp8 +<span id="L47" class="LineNr">47 </span><span class="Constant">$clear-stream:end</span>: +<span id="L48" class="LineNr">48 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L49" class="LineNr">49 </span> 59/pop-to-ecx +<span id="L50" class="LineNr">50 </span> 58/pop-to-eax +<span id="L51" class="LineNr">51 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L52" class="LineNr">52 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L53" class="LineNr">53 </span> 5d/pop-to-ebp +<span id="L54" class="LineNr">54 </span> c3/return +<span id="L55" class="LineNr">55 </span> +<span id="L56" class="LineNr">56 </span><span class="subxFunction">rewind-stream</span>: <span class="subxComment"># f: (addr stream byte)</span> +<span id="L57" class="LineNr">57 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L58" class="LineNr">58 </span> 55/push-ebp +<span id="L59" class="LineNr">59 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L60" class="LineNr">60 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L61" class="LineNr">61 </span> 50/push-eax +<span id="L62" class="LineNr">62 </span> <span class="subxComment"># eax = f</span> +<span id="L63" class="LineNr">63 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L64" class="LineNr">64 </span> <span class="subxComment"># f->read = 0</span> +<span id="L65" class="LineNr">65 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(eax+4)</span> +<span id="L66" class="LineNr">66 </span><span class="Constant">$rewind-stream:end</span>: +<span id="L67" class="LineNr">67 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L68" class="LineNr">68 </span> 58/pop-to-eax +<span id="L69" class="LineNr">69 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L70" class="LineNr">70 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L71" class="LineNr">71 </span> 5d/pop-to-ebp +<span id="L72" class="LineNr">72 </span> c3/return +<span id="L73" class="LineNr">73 </span> +<span id="L74" class="LineNr">74 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/107trace.subx.html b/html/linux/107trace.subx.html index afc6000c..da49bc51 100644 --- a/html/107trace.subx.html +++ b/html/linux/107trace.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 107trace.subx</title> +<title>Mu - linux/107trace.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } .subxMinorFunction { color: #875f5f; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.subxS2Comment { color: #8a8a8a; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -59,7 +59,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/107trace.subx'>https://github.com/akkartik/mu/blob/main/107trace.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/107trace.subx'>https://github.com/akkartik/mu/blob/main/linux/107trace.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># primitives for emitting traces to a 'trace' stream, and for tests to make assertions on its contents</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -77,982 +77,977 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr"> 14 </span> <span id="L15" class="LineNr"> 15 </span>== data <span id="L16" class="LineNr"> 16 </span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># Handles are addresses created on the heap.</span> -<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># In safe Mu they'll be fat pointers. But in SubX they're just addresses, since</span> -<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># SubX programs never reclaim memory.</span> -<span id="L20" class="LineNr"> 20 </span> -<span id="L21" class="LineNr"> 21 </span><span class="SpecialChar">Trace-stream</span>: <span class="subxComment"># (handle stream byte)</span> -<span id="L22" class="LineNr"> 22 </span> 0/imm32 -<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># we don't have safe handles (fat pointers) yet</span> -<span id="L24" class="LineNr"> 24 </span> -<span id="L25" class="LineNr"> 25 </span><span class="SpecialChar">Trace-segment</span>: -<span id="L26" class="LineNr"> 26 </span> 0/imm32/curr -<span id="L27" class="LineNr"> 27 </span> 0/imm32/limit -<span id="L28" class="LineNr"> 28 </span> -<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># Fake trace-stream for tests.</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># Also illustrates the layout of the real trace-stream (segment).</span> -<span id="L31" class="LineNr"> 31 </span><span class="subxMinorFunction">_test-trace-stream</span>: <span class="subxComment"># (stream byte)</span> -<span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># current write index</span> -<span id="L33" class="LineNr"> 33 </span> 0/imm32 -<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># current read index</span> -<span id="L35" class="LineNr"> 35 </span> 0/imm32 -<span id="L36" class="LineNr"> 36 </span> <span class="subxComment"># size</span> -<span id="L37" class="LineNr"> 37 </span> 8/imm32 -<span id="L38" class="LineNr"> 38 </span> <span class="subxComment"># data</span> -<span id="L39" class="LineNr"> 39 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L17" class="LineNr"> 17 </span><span class="SpecialChar">Trace-stream</span>: <span class="subxComment"># (addr stream byte) # TODO: make this a handle</span> +<span id="L18" class="LineNr"> 18 </span> 0/imm32 +<span id="L19" class="LineNr"> 19 </span> +<span id="L20" class="LineNr"> 20 </span><span class="SpecialChar">Trace-segment</span>: +<span id="L21" class="LineNr"> 21 </span> 0/imm32/curr +<span id="L22" class="LineNr"> 22 </span> 0/imm32/limit +<span id="L23" class="LineNr"> 23 </span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># Fake trace-stream for tests.</span> +<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># Also illustrates the layout of the real trace-stream (segment).</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxMinorFunction">_test-trace-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># current write index</span> +<span id="L28" class="LineNr"> 28 </span> 0/imm32 +<span id="L29" class="LineNr"> 29 </span> <span class="subxComment"># current read index</span> +<span id="L30" class="LineNr"> 30 </span> 0/imm32 +<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># size</span> +<span id="L32" class="LineNr"> 32 </span> 8/imm32 +<span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># data</span> +<span id="L34" class="LineNr"> 34 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L35" class="LineNr"> 35 </span> +<span id="L36" class="LineNr"> 36 </span>== code +<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L38" class="LineNr"> 38 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L39" class="LineNr"> 39 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L40" class="LineNr"> 40 </span> -<span id="L41" class="LineNr"> 41 </span>== code -<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L43" class="LineNr"> 43 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L44" class="LineNr"> 44 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L45" class="LineNr"> 45 </span> -<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># Allocate a new segment for the trace stream, initialize its size, and save its address to Trace-stream.</span> -<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># The Trace-stream segment will consist of variable-length lines separated by newlines (0x0a)</span> -<span id="L48" class="LineNr"> 48 </span><span class="subxFunction">initialize-trace-stream</span>: <span class="subxComment"># n: int</span> -<span id="L49" class="LineNr"> 49 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L50" class="LineNr"> 50 </span> 55/push-ebp -<span id="L51" class="LineNr"> 51 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L53" class="LineNr"> 53 </span> 50/push-eax -<span id="L54" class="LineNr"> 54 </span> 51/push-ecx -<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># ecx = n</span> -<span id="L56" class="LineNr"> 56 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># Trace-segment = new-segment(n)</span> -<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L59" class="LineNr"> 59 </span> 68/push <span class="SpecialChar"><a href='107trace.subx.html#L25'>Trace-segment</a></span>/imm32 -<span id="L60" class="LineNr"> 60 </span> 51/push-ecx -<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . call</span> -<span id="L62" class="LineNr"> 62 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L64" class="LineNr"> 64 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># copy Trace-segment->curr to *Trace-stream</span> -<span id="L66" class="LineNr"> 66 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L25'>Trace-segment</a></span>/disp32 <span class="subxComment"># copy *Trace-segment to eax</span> -<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? # watch point to catch Trace-stream leaks</span> -<span id="L68" class="LineNr"> 68 </span><span class="CommentedCode">#? $watch-1:</span> -<span id="L69" class="LineNr"> 69 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># Trace-stream->size = n - 12</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . ecx -= 12</span> -<span id="L72" class="LineNr"> 72 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># subtract from ecx</span> -<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . Trace-stream->size = ecx</span> -<span id="L74" class="LineNr"> 74 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+8)</span> -<span id="L75" class="LineNr"> 75 </span><span class="Constant">$initialize-trace-stream:end</span>: -<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L77" class="LineNr"> 77 </span> 59/pop-to-ecx -<span id="L78" class="LineNr"> 78 </span> 58/pop-to-eax -<span id="L79" class="LineNr"> 79 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L80" class="LineNr"> 80 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L81" class="LineNr"> 81 </span> 5d/pop-to-ebp -<span id="L82" class="LineNr"> 82 </span> c3/return -<span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span><span class="subxComment"># Append a string to the given trace stream.</span> -<span id="L85" class="LineNr"> 85 </span><span class="subxComment"># Silently give up if it's already full. Or truncate the string if there isn't enough room.</span> -<span id="L86" class="LineNr"> 86 </span><span class="subxFunction">trace</span>: <span class="subxComment"># line: (addr array byte)</span> -<span id="L87" class="LineNr"> 87 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L88" class="LineNr"> 88 </span> 55/push-ebp -<span id="L89" class="LineNr"> 89 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L90" class="LineNr"> 90 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L91" class="LineNr"> 91 </span> 50/push-eax -<span id="L92" class="LineNr"> 92 </span> 51/push-ecx -<span id="L93" class="LineNr"> 93 </span> 52/push-edx -<span id="L94" class="LineNr"> 94 </span> 53/push-ebx -<span id="L95" class="LineNr"> 95 </span> 56/push-esi -<span id="L96" class="LineNr"> 96 </span> 57/push-edi -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># var edi: (addr stream byte) = *Trace-stream</span> -<span id="L98" class="LineNr"> 98 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to edi</span> -<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># esi = line</span> -<span id="L100" class="LineNr">100 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L101" class="LineNr">101 </span> <span class="subxComment"># var ecx: int = t->write</span> -<span id="L102" class="LineNr">102 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L103" class="LineNr">103 </span> <span class="subxComment"># var edx: int = t->size</span> -<span id="L104" class="LineNr">104 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to edx</span> -<span id="L105" class="LineNr">105 </span> <span class="subxComment"># eax = _append-3(&t->data[t->write], &t->data[t->size], line)</span> -<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . push line</span> -<span id="L107" class="LineNr">107 </span> 56/push-esi -<span id="L108" class="LineNr">108 </span> <span class="subxS2Comment"># . . push &t->data[t->size]</span> -<span id="L109" class="LineNr">109 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+edx+12 to ebx</span> -<span id="L110" class="LineNr">110 </span> 53/push-ebx -<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . push &t->data[t->write]</span> -<span id="L112" class="LineNr">112 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+ecx+12 to ebx</span> -<span id="L113" class="LineNr">113 </span> 53/push-ebx -<span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='107trace.subx.html#L865'>_append-3</a>/disp32 -<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L118" class="LineNr">118 </span> <span class="subxComment"># if (eax == 0) return</span> -<span id="L119" class="LineNr">119 </span> 3d/compare-eax-and 0/imm32 -<span id="L120" class="LineNr">120 </span> 74/jump-if-= $trace:end/disp8 -<span id="L121" class="LineNr">121 </span> <span class="subxComment"># t->write += eax</span> -<span id="L122" class="LineNr">122 </span> 01/add 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *edi</span> -<span id="L123" class="LineNr">123 </span> <span class="subxComment"># refresh ecx = t->write</span> -<span id="L124" class="LineNr">124 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> -<span id="L125" class="LineNr">125 </span> <span class="subxComment"># eax = _append-3(&t->data[t->write], &t->data[t->size], line)</span> -<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . push line</span> -<span id="L127" class="LineNr">127 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . push &t->data[t->size]</span> -<span id="L129" class="LineNr">129 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+edx+12 to ebx</span> -<span id="L130" class="LineNr">130 </span> 53/push-ebx -<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . push &t->data[t->write]</span> -<span id="L132" class="LineNr">132 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+ecx+12 to ebx</span> -<span id="L133" class="LineNr">133 </span> 53/push-ebx -<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . call</span> -<span id="L135" class="LineNr">135 </span> e8/call <a href='107trace.subx.html#L865'>_append-3</a>/disp32 -<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L137" class="LineNr">137 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L138" class="LineNr">138 </span> <span class="subxComment"># t->write += eax</span> -<span id="L139" class="LineNr">139 </span> 01/add 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *edi</span> -<span id="L140" class="LineNr">140 </span><span class="Constant">$trace:end</span>: -<span id="L141" class="LineNr">141 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L142" class="LineNr">142 </span> 5f/pop-to-edi -<span id="L143" class="LineNr">143 </span> 5e/pop-to-esi -<span id="L144" class="LineNr">144 </span> 5b/pop-to-ebx -<span id="L145" class="LineNr">145 </span> 5a/pop-to-edx -<span id="L146" class="LineNr">146 </span> 59/pop-to-ecx -<span id="L147" class="LineNr">147 </span> 58/pop-to-eax -<span id="L148" class="LineNr">148 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L149" class="LineNr">149 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L150" class="LineNr">150 </span> 5d/pop-to-ebp -<span id="L151" class="LineNr">151 </span> c3/return -<span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="subxTest">test-trace-single</span>: -<span id="L154" class="LineNr">154 </span> <span class="subxComment"># push *Trace-stream</span> -<span id="L155" class="LineNr">155 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L156" class="LineNr">156 </span> <span class="subxComment"># *Trace-stream = _test-trace-stream</span> -<span id="L157" class="LineNr">157 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L158" class="LineNr">158 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L159" class="LineNr">159 </span> <span class="subxComment"># clear-trace-stream()</span> -<span id="L160" class="LineNr">160 </span> e8/call <a href='107trace.subx.html#L845'>clear-trace-stream</a>/disp32 -<span id="L161" class="LineNr">161 </span> <span class="subxComment"># trace("Ab")</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L163" class="LineNr">163 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . call</span> -<span id="L165" class="LineNr">165 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L167" class="LineNr">167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L168" class="LineNr">168 </span> <span class="subxComment"># check-ints-equal(*_test-trace-stream->data, 41/A 62/b 0a/newline 00, msg)</span> -<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L170" class="LineNr">170 </span> 68/push <span class="Constant">"F - test-trace-single"</span>/imm32 -<span id="L171" class="LineNr">171 </span> 68/push 0x0a6241/imm32/Ab-newline -<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . push *_test-trace-stream->data</span> -<span id="L173" class="LineNr">173 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L174" class="LineNr">174 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . call</span> -<span id="L176" class="LineNr">176 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L178" class="LineNr">178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L179" class="LineNr">179 </span> <span class="subxComment"># pop into *Trace-stream</span> -<span id="L180" class="LineNr">180 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> -<span id="L181" class="LineNr">181 </span> <span class="subxComment"># end</span> -<span id="L182" class="LineNr">182 </span> c3/return -<span id="L183" class="LineNr">183 </span> -<span id="L184" class="LineNr">184 </span><span class="subxTest">test-trace-appends</span>: -<span id="L185" class="LineNr">185 </span> <span class="subxComment"># push *Trace-stream</span> -<span id="L186" class="LineNr">186 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L187" class="LineNr">187 </span> <span class="subxComment"># *Trace-stream = _test-trace-stream</span> -<span id="L188" class="LineNr">188 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L189" class="LineNr">189 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L190" class="LineNr">190 </span> <span class="subxComment"># clear-trace-stream()</span> -<span id="L191" class="LineNr">191 </span> e8/call <a href='107trace.subx.html#L845'>clear-trace-stream</a>/disp32 -<span id="L192" class="LineNr">192 </span> <span class="subxComment"># trace("C")</span> -<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L194" class="LineNr">194 </span> 68/push <span class="Constant">"C"</span>/imm32 -<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . call</span> -<span id="L196" class="LineNr">196 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L198" class="LineNr">198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L199" class="LineNr">199 </span> <span class="subxComment"># trace("D")</span> -<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L201" class="LineNr">201 </span> 68/push <span class="Constant">"D"</span>/imm32 -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . call</span> -<span id="L203" class="LineNr">203 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L205" class="LineNr">205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L206" class="LineNr">206 </span> <span class="subxComment"># check-ints-equal(*_test-trace-stream->data, 43/C 0a/newline 44/D 0a/newline, msg)</span> -<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L208" class="LineNr">208 </span> 68/push <span class="Constant">"F - test-trace-appends"</span>/imm32 -<span id="L209" class="LineNr">209 </span> 68/push 0x0a440a43/imm32/C-newline-D-newline -<span id="L210" class="LineNr">210 </span> <span class="subxS2Comment"># . . push *_test-trace-stream->data</span> -<span id="L211" class="LineNr">211 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L212" class="LineNr">212 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L214" class="LineNr">214 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L217" class="LineNr">217 </span> <span class="subxComment"># pop into *Trace-stream</span> -<span id="L218" class="LineNr">218 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> -<span id="L219" class="LineNr">219 </span> <span class="subxComment"># end</span> -<span id="L220" class="LineNr">220 </span> c3/return -<span id="L221" class="LineNr">221 </span> -<span id="L222" class="LineNr">222 </span><span class="subxTest">test-trace-empty-line</span>: -<span id="L223" class="LineNr">223 </span> <span class="subxComment"># push *Trace-stream</span> -<span id="L224" class="LineNr">224 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L225" class="LineNr">225 </span> <span class="subxComment"># *Trace-stream = _test-trace-stream</span> -<span id="L226" class="LineNr">226 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L227" class="LineNr">227 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L228" class="LineNr">228 </span> <span class="subxComment"># clear-trace-stream()</span> -<span id="L229" class="LineNr">229 </span> e8/call <a href='107trace.subx.html#L845'>clear-trace-stream</a>/disp32 -<span id="L230" class="LineNr">230 </span> <span class="subxComment"># trace("")</span> -<span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L232" class="LineNr">232 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L233" class="LineNr">233 </span> <span class="subxS2Comment"># . . call</span> -<span id="L234" class="LineNr">234 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L235" class="LineNr">235 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L236" class="LineNr">236 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L237" class="LineNr">237 </span> <span class="subxComment"># check-ints-equal(*_test-trace-stream->data, 0, msg)</span> -<span id="L238" class="LineNr">238 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L239" class="LineNr">239 </span> 68/push <span class="Constant">"F - test-trace-empty-line"</span>/imm32 -<span id="L240" class="LineNr">240 </span> 68/push 0/imm32 -<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . push *_test-trace-stream->data</span> -<span id="L242" class="LineNr">242 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L243" class="LineNr">243 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> -<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . call</span> -<span id="L245" class="LineNr">245 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L247" class="LineNr">247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L248" class="LineNr">248 </span> <span class="subxComment"># pop into *Trace-stream</span> -<span id="L249" class="LineNr">249 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> -<span id="L250" class="LineNr">250 </span> <span class="subxComment"># end</span> -<span id="L251" class="LineNr">251 </span> c3/return -<span id="L252" class="LineNr">252 </span> -<span id="L253" class="LineNr">253 </span><span class="subxFunction">check-trace-contains</span>: <span class="subxComment"># line: (addr string), msg: (addr string)</span> -<span id="L254" class="LineNr">254 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L255" class="LineNr">255 </span> 55/push-ebp -<span id="L256" class="LineNr">256 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L257" class="LineNr">257 </span> <span class="subxComment"># rewind-stream(*Trace-stream)</span> -<span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L259" class="LineNr">259 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L260" class="LineNr">260 </span> <span class="subxS2Comment"># . . call</span> -<span id="L261" class="LineNr">261 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L263" class="LineNr">263 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L264" class="LineNr">264 </span> <span class="subxComment"># check-trace-scans-to(line, msg)</span> -<span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L266" class="LineNr">266 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L267" class="LineNr">267 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L268" class="LineNr">268 </span> <span class="subxS2Comment"># . . call</span> -<span id="L269" class="LineNr">269 </span> e8/call <a href='107trace.subx.html#L278'>check-trace-scans-to</a>/disp32 -<span id="L270" class="LineNr">270 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L271" class="LineNr">271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L272" class="LineNr">272 </span><span class="Constant">$check-trace-contains:end</span>: -<span id="L273" class="LineNr">273 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L274" class="LineNr">274 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L275" class="LineNr">275 </span> 5d/pop-to-ebp -<span id="L276" class="LineNr">276 </span> c3/return -<span id="L277" class="LineNr">277 </span> -<span id="L278" class="LineNr">278 </span><span class="subxFunction">check-trace-scans-to</span>: <span class="subxComment"># line: (addr string), msg: (addr string)</span> -<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L280" class="LineNr">280 </span> 55/push-ebp -<span id="L281" class="LineNr">281 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L282" class="LineNr">282 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L283" class="LineNr">283 </span> 50/push-eax -<span id="L284" class="LineNr">284 </span> <span class="subxComment"># eax = trace-scan(line)</span> -<span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L286" class="LineNr">286 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L287" class="LineNr">287 </span> <span class="subxS2Comment"># . . call</span> -<span id="L288" class="LineNr">288 </span> e8/call <a href='107trace.subx.html#L309'>trace-scan</a>/disp32 -<span id="L289" class="LineNr">289 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L290" class="LineNr">290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L291" class="LineNr">291 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L293" class="LineNr">293 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L294" class="LineNr">294 </span> 68/push 1/imm32 -<span id="L295" class="LineNr">295 </span> 50/push-eax -<span id="L296" class="LineNr">296 </span> <span class="subxS2Comment"># . . call</span> -<span id="L297" class="LineNr">297 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L298" class="LineNr">298 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L299" class="LineNr">299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L300" class="LineNr">300 </span><span class="Constant">$check-trace-scans-to:end</span>: -<span id="L301" class="LineNr">301 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L302" class="LineNr">302 </span> 58/pop-to-eax -<span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L304" class="LineNr">304 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L305" class="LineNr">305 </span> 5d/pop-to-ebp -<span id="L306" class="LineNr">306 </span> c3/return -<span id="L307" class="LineNr">307 </span> -<span id="L308" class="LineNr">308 </span><span class="subxComment"># Start scanning from Trace-stream->read for 'line'. If found, update Trace-stream->read and return true.</span> -<span id="L309" class="LineNr">309 </span><span class="subxFunction">trace-scan</span>: <span class="subxComment"># line: (addr array byte) -> result/eax: boolean</span> -<span id="L310" class="LineNr">310 </span> <span class="subxComment"># pseudocode:</span> -<span id="L311" class="LineNr">311 </span> <span class="subxComment"># push Trace-stream->read</span> -<span id="L312" class="LineNr">312 </span> <span class="subxComment"># while true:</span> -<span id="L313" class="LineNr">313 </span> <span class="subxComment"># if Trace-stream->read >= Trace-stream->write</span> -<span id="L314" class="LineNr">314 </span> <span class="subxComment"># break</span> -<span id="L315" class="LineNr">315 </span> <span class="subxComment"># if next-line-matches?(Trace-stream, line)</span> -<span id="L316" class="LineNr">316 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> -<span id="L317" class="LineNr">317 </span> <span class="subxComment"># dump saved copy of Trace-stream->read</span> -<span id="L318" class="LineNr">318 </span> <span class="subxComment"># return true</span> -<span id="L319" class="LineNr">319 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> -<span id="L320" class="LineNr">320 </span> <span class="subxComment"># pop saved copy of Trace-stream->read</span> -<span id="L321" class="LineNr">321 </span> <span class="subxComment"># return false</span> -<span id="L322" class="LineNr">322 </span> <span class="subxComment">#</span> -<span id="L323" class="LineNr">323 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L324" class="LineNr">324 </span> 55/push-ebp -<span id="L325" class="LineNr">325 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L326" class="LineNr">326 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L327" class="LineNr">327 </span> 51/push-ecx -<span id="L328" class="LineNr">328 </span> 56/push-esi -<span id="L329" class="LineNr">329 </span> <span class="subxComment"># esi = *Trace-stream</span> -<span id="L330" class="LineNr">330 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to esi</span> -<span id="L331" class="LineNr">331 </span> <span class="subxComment"># ecx = Trace-stream->write</span> -<span id="L332" class="LineNr">332 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L333" class="LineNr">333 </span> <span class="subxComment"># push Trace-stream->read</span> -<span id="L334" class="LineNr">334 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L335" class="LineNr">335 </span><span class="Constant">$trace-scan:loop</span>: -<span id="L336" class="LineNr">336 </span> <span class="subxComment"># if (Trace-stream->read >= Trace-stream->write) return false</span> -<span id="L337" class="LineNr">337 </span> 39/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+4)</span> -<span id="L338" class="LineNr">338 </span> 7d/jump-if->= $trace-scan:false/disp8 -<span id="L339" class="LineNr">339 </span> <span class="subxComment"># eax = next-line-matches?(Trace-stream, line)</span> -<span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L341" class="LineNr">341 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L342" class="LineNr">342 </span> 56/push-esi -<span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . call</span> -<span id="L344" class="LineNr">344 </span> e8/call <a href='107trace.subx.html#L561'>next-line-matches?</a>/disp32 -<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L346" class="LineNr">346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L347" class="LineNr">347 </span> <span class="subxComment"># if (eax == false) continue</span> -<span id="L348" class="LineNr">348 </span> 3d/compare-eax-and 0/imm32/false -<span id="L349" class="LineNr">349 </span> 74/jump-if-= $trace-scan:continue/disp8 -<span id="L350" class="LineNr">350 </span><span class="Constant">$trace-scan:true</span>: -<span id="L351" class="LineNr">351 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> -<span id="L352" class="LineNr">352 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L353" class="LineNr">353 </span> 56/push-esi -<span id="L354" class="LineNr">354 </span> <span class="subxS2Comment"># . . call</span> -<span id="L355" class="LineNr">355 </span> e8/call <a href='107trace.subx.html#L737'>skip-next-line</a>/disp32 -<span id="L356" class="LineNr">356 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L357" class="LineNr">357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L358" class="LineNr">358 </span> <span class="subxComment"># dump saved copy of Trace-stream->read</span> -<span id="L359" class="LineNr">359 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L360" class="LineNr">360 </span> <span class="subxComment"># return true</span> -<span id="L361" class="LineNr">361 </span> b8/copy-to-eax 1/imm32/true -<span id="L362" class="LineNr">362 </span> eb/jump $trace-scan:end/disp8 -<span id="L363" class="LineNr">363 </span><span class="Constant">$trace-scan:continue</span>: -<span id="L364" class="LineNr">364 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> -<span id="L365" class="LineNr">365 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L366" class="LineNr">366 </span> 56/push-esi -<span id="L367" class="LineNr">367 </span> <span class="subxS2Comment"># . . call</span> -<span id="L368" class="LineNr">368 </span> e8/call <a href='107trace.subx.html#L737'>skip-next-line</a>/disp32 -<span id="L369" class="LineNr">369 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L370" class="LineNr">370 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L371" class="LineNr">371 </span> eb/jump $trace-scan:<span class="Constant">loop</span>/disp8 -<span id="L372" class="LineNr">372 </span><span class="Constant">$trace-scan:false</span>: -<span id="L373" class="LineNr">373 </span> <span class="subxComment"># restore saved copy of Trace-stream->read</span> -<span id="L374" class="LineNr">374 </span> 8f 0/subop/pop 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># pop to *(esi+4)</span> -<span id="L375" class="LineNr">375 </span> <span class="subxComment"># return false</span> -<span id="L376" class="LineNr">376 </span> b8/copy-to-eax 0/imm32/false -<span id="L377" class="LineNr">377 </span><span class="Constant">$trace-scan:end</span>: -<span id="L378" class="LineNr">378 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L379" class="LineNr">379 </span> 59/pop-to-ecx -<span id="L380" class="LineNr">380 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L381" class="LineNr">381 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L382" class="LineNr">382 </span> 5d/pop-to-ebp -<span id="L383" class="LineNr">383 </span> c3/return -<span id="L384" class="LineNr">384 </span> -<span id="L385" class="LineNr">385 </span><span class="subxTest">test-trace-scan-first</span>: -<span id="L386" class="LineNr">386 </span> <span class="subxComment"># push *Trace-stream</span> -<span id="L387" class="LineNr">387 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L388" class="LineNr">388 </span> <span class="subxComment"># setup</span> -<span id="L389" class="LineNr">389 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> -<span id="L390" class="LineNr">390 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L391" class="LineNr">391 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L392" class="LineNr">392 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> -<span id="L393" class="LineNr">393 </span> e8/call <a href='107trace.subx.html#L845'>clear-trace-stream</a>/disp32 -<span id="L394" class="LineNr">394 </span> <span class="subxS1Comment"># . trace("Ab")</span> -<span id="L395" class="LineNr">395 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L396" class="LineNr">396 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . call</span> -<span id="L398" class="LineNr">398 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L400" class="LineNr">400 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L401" class="LineNr">401 </span> <span class="subxComment"># eax = trace-scan("Ab")</span> -<span id="L402" class="LineNr">402 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L403" class="LineNr">403 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L404" class="LineNr">404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L405" class="LineNr">405 </span> e8/call <a href='107trace.subx.html#L309'>trace-scan</a>/disp32 -<span id="L406" class="LineNr">406 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L407" class="LineNr">407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L408" class="LineNr">408 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L409" class="LineNr">409 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L410" class="LineNr">410 </span> 68/push <span class="Constant">"F - test-trace-scan-first"</span>/imm32 -<span id="L411" class="LineNr">411 </span> 68/push 1/imm32 -<span id="L412" class="LineNr">412 </span> 50/push-eax -<span id="L413" class="LineNr">413 </span> <span class="subxS2Comment"># . . call</span> -<span id="L414" class="LineNr">414 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L415" class="LineNr">415 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L416" class="LineNr">416 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L417" class="LineNr">417 </span> <span class="subxComment"># pop into *Trace-stream</span> -<span id="L418" class="LineNr">418 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> -<span id="L419" class="LineNr">419 </span> <span class="subxS1Comment"># . end</span> -<span id="L420" class="LineNr">420 </span> c3/return -<span id="L421" class="LineNr">421 </span> -<span id="L422" class="LineNr">422 </span><span class="subxTest">test-trace-scan-skips-lines-until-found</span>: -<span id="L423" class="LineNr">423 </span> <span class="subxComment"># push *Trace-stream</span> -<span id="L424" class="LineNr">424 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L425" class="LineNr">425 </span> <span class="subxComment"># setup</span> -<span id="L426" class="LineNr">426 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> -<span id="L427" class="LineNr">427 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L428" class="LineNr">428 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L429" class="LineNr">429 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> -<span id="L430" class="LineNr">430 </span> e8/call <a href='107trace.subx.html#L845'>clear-trace-stream</a>/disp32 -<span id="L431" class="LineNr">431 </span> <span class="subxS1Comment"># . trace("Ab")</span> -<span id="L432" class="LineNr">432 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L433" class="LineNr">433 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L434" class="LineNr">434 </span> <span class="subxS2Comment"># . . call</span> -<span id="L435" class="LineNr">435 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L436" class="LineNr">436 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L437" class="LineNr">437 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L438" class="LineNr">438 </span> <span class="subxS1Comment"># . trace("cd")</span> -<span id="L439" class="LineNr">439 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L440" class="LineNr">440 </span> 68/push <span class="Constant">"cd"</span>/imm32 -<span id="L441" class="LineNr">441 </span> <span class="subxS2Comment"># . . call</span> -<span id="L442" class="LineNr">442 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L443" class="LineNr">443 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L444" class="LineNr">444 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L445" class="LineNr">445 </span> <span class="subxComment"># eax = trace-scan("cd")</span> -<span id="L446" class="LineNr">446 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L447" class="LineNr">447 </span> 68/push <span class="Constant">"cd"</span>/imm32 -<span id="L448" class="LineNr">448 </span> <span class="subxS2Comment"># . . call</span> -<span id="L449" class="LineNr">449 </span> e8/call <a href='107trace.subx.html#L309'>trace-scan</a>/disp32 -<span id="L450" class="LineNr">450 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L451" class="LineNr">451 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L452" class="LineNr">452 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L453" class="LineNr">453 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L454" class="LineNr">454 </span> 68/push <span class="Constant">"F - test-trace-scan-skips-lines-until-found"</span>/imm32 -<span id="L455" class="LineNr">455 </span> 68/push 1/imm32 -<span id="L456" class="LineNr">456 </span> 50/push-eax -<span id="L457" class="LineNr">457 </span> <span class="subxS2Comment"># . . call</span> -<span id="L458" class="LineNr">458 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L459" class="LineNr">459 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L460" class="LineNr">460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L461" class="LineNr">461 </span> <span class="subxComment"># pop into *Trace-stream</span> -<span id="L462" class="LineNr">462 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> -<span id="L463" class="LineNr">463 </span> <span class="subxS1Comment"># . end</span> -<span id="L464" class="LineNr">464 </span> c3/return -<span id="L465" class="LineNr">465 </span> -<span id="L466" class="LineNr">466 </span><span class="subxTest">test-trace-second-scan-starts-where-first-left-off</span>: -<span id="L467" class="LineNr">467 </span> <span class="subxComment"># push *Trace-stream</span> -<span id="L468" class="LineNr">468 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L469" class="LineNr">469 </span> <span class="subxComment"># setup</span> -<span id="L470" class="LineNr">470 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> -<span id="L471" class="LineNr">471 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L472" class="LineNr">472 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L473" class="LineNr">473 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> -<span id="L474" class="LineNr">474 </span> e8/call <a href='107trace.subx.html#L845'>clear-trace-stream</a>/disp32 -<span id="L475" class="LineNr">475 </span> <span class="subxS1Comment"># . trace("Ab")</span> -<span id="L476" class="LineNr">476 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L477" class="LineNr">477 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L478" class="LineNr">478 </span> <span class="subxS2Comment"># . . call</span> -<span id="L479" class="LineNr">479 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L480" class="LineNr">480 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L481" class="LineNr">481 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L482" class="LineNr">482 </span> <span class="subxS1Comment"># . eax = trace-scan("Ab")</span> -<span id="L483" class="LineNr">483 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L484" class="LineNr">484 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L485" class="LineNr">485 </span> <span class="subxS2Comment"># . . call</span> -<span id="L486" class="LineNr">486 </span> e8/call <a href='107trace.subx.html#L309'>trace-scan</a>/disp32 -<span id="L487" class="LineNr">487 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L488" class="LineNr">488 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L489" class="LineNr">489 </span> <span class="subxComment"># second scan fails</span> -<span id="L490" class="LineNr">490 </span> <span class="subxS1Comment"># . eax = trace-scan("Ab")</span> -<span id="L491" class="LineNr">491 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L492" class="LineNr">492 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L493" class="LineNr">493 </span> <span class="subxS2Comment"># . . call</span> -<span id="L494" class="LineNr">494 </span> e8/call <a href='107trace.subx.html#L309'>trace-scan</a>/disp32 -<span id="L495" class="LineNr">495 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L496" class="LineNr">496 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L497" class="LineNr">497 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L498" class="LineNr">498 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L499" class="LineNr">499 </span> 68/push <span class="Constant">"F - test-trace-second-scan-starts-where-first-left-off"</span>/imm32 -<span id="L500" class="LineNr">500 </span> 68/push 0/imm32 -<span id="L501" class="LineNr">501 </span> 50/push-eax -<span id="L502" class="LineNr">502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L503" class="LineNr">503 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L504" class="LineNr">504 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L505" class="LineNr">505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L506" class="LineNr">506 </span> <span class="subxComment"># pop into *Trace-stream</span> -<span id="L507" class="LineNr">507 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> -<span id="L508" class="LineNr">508 </span> <span class="subxS1Comment"># . end</span> -<span id="L509" class="LineNr">509 </span> c3/return -<span id="L510" class="LineNr">510 </span> -<span id="L511" class="LineNr">511 </span><span class="subxTest">test-trace-scan-failure-leaves-read-index-untouched</span>: -<span id="L512" class="LineNr">512 </span> <span class="subxComment"># push *Trace-stream</span> -<span id="L513" class="LineNr">513 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L514" class="LineNr">514 </span> <span class="subxComment"># setup</span> -<span id="L515" class="LineNr">515 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> -<span id="L516" class="LineNr">516 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L517" class="LineNr">517 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> -<span id="L518" class="LineNr">518 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> -<span id="L519" class="LineNr">519 </span> e8/call <a href='107trace.subx.html#L845'>clear-trace-stream</a>/disp32 -<span id="L520" class="LineNr">520 </span> <span class="subxS1Comment"># . trace("Ab")</span> -<span id="L521" class="LineNr">521 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L522" class="LineNr">522 </span> 68/push <span class="Constant">"Ab"</span>/imm32 -<span id="L523" class="LineNr">523 </span> <span class="subxS2Comment"># . . call</span> -<span id="L524" class="LineNr">524 </span> e8/call <a href='107trace.subx.html#L86'>trace</a>/disp32 -<span id="L525" class="LineNr">525 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L526" class="LineNr">526 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L527" class="LineNr">527 </span> <span class="subxS1Comment"># . check-ints-equal(_test-trace-stream->read, 0, msg)</span> -<span id="L528" class="LineNr">528 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L529" class="LineNr">529 </span> 68/push <span class="Constant">"F - <a href='107trace.subx.html#L466'>test-trace-second-scan-starts-where-first-left-off</a>/precondition-failure"</span>/imm32 -<span id="L530" class="LineNr">530 </span> 68/push 0/imm32 -<span id="L531" class="LineNr">531 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L532" class="LineNr">532 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L533" class="LineNr">533 </span> <span class="subxS2Comment"># . . call</span> -<span id="L534" class="LineNr">534 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L535" class="LineNr">535 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L536" class="LineNr">536 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L537" class="LineNr">537 </span> <span class="subxComment"># perform a failing scan</span> -<span id="L538" class="LineNr">538 </span> <span class="subxS1Comment"># . eax = trace-scan("Ax")</span> -<span id="L539" class="LineNr">539 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L540" class="LineNr">540 </span> 68/push <span class="Constant">"Ax"</span>/imm32 -<span id="L541" class="LineNr">541 </span> <span class="subxS2Comment"># . . call</span> -<span id="L542" class="LineNr">542 </span> e8/call <a href='107trace.subx.html#L309'>trace-scan</a>/disp32 -<span id="L543" class="LineNr">543 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L544" class="LineNr">544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L545" class="LineNr">545 </span> <span class="subxComment"># no change in read index</span> -<span id="L546" class="LineNr">546 </span> <span class="subxS1Comment"># . check-ints-equal(_test-trace-stream->read, 0, msg)</span> -<span id="L547" class="LineNr">547 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L548" class="LineNr">548 </span> 68/push <span class="Constant">"F - test-trace-second-scan-starts-where-first-left-off"</span>/imm32 -<span id="L549" class="LineNr">549 </span> 68/push 0/imm32 -<span id="L550" class="LineNr">550 </span> b8/copy-to-eax <a href='107trace.subx.html#L31'>_test-trace-stream</a>/imm32 -<span id="L551" class="LineNr">551 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L552" class="LineNr">552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L553" class="LineNr">553 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L554" class="LineNr">554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L555" class="LineNr">555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L556" class="LineNr">556 </span> <span class="subxComment"># pop into *Trace-stream</span> -<span id="L557" class="LineNr">557 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> -<span id="L558" class="LineNr">558 </span> <span class="subxS1Comment"># . end</span> -<span id="L559" class="LineNr">559 </span> c3/return -<span id="L560" class="LineNr">560 </span> -<span id="L561" class="LineNr">561 </span><span class="subxFunction">next-line-matches?</span>: <span class="subxComment"># t: (addr stream byte), line: (addr array byte) -> result/eax: boolean</span> -<span id="L562" class="LineNr">562 </span> <span class="subxComment"># pseudocode:</span> -<span id="L563" class="LineNr">563 </span> <span class="subxComment"># while true:</span> -<span id="L564" class="LineNr">564 </span> <span class="subxComment"># if (currl >= maxl) break</span> -<span id="L565" class="LineNr">565 </span> <span class="subxComment"># if (currt >= maxt) return false</span> -<span id="L566" class="LineNr">566 </span> <span class="subxComment"># if (*currt != *currl) return false</span> -<span id="L567" class="LineNr">567 </span> <span class="subxComment"># ++currt</span> -<span id="L568" class="LineNr">568 </span> <span class="subxComment"># ++currl</span> -<span id="L569" class="LineNr">569 </span> <span class="subxComment"># return *currt == '\n'</span> -<span id="L570" class="LineNr">570 </span> <span class="subxComment">#</span> -<span id="L571" class="LineNr">571 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L572" class="LineNr">572 </span> 55/push-ebp -<span id="L573" class="LineNr">573 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L574" class="LineNr">574 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L575" class="LineNr">575 </span> 51/push-ecx -<span id="L576" class="LineNr">576 </span> 52/push-edx -<span id="L577" class="LineNr">577 </span> 53/push-ebx -<span id="L578" class="LineNr">578 </span> 56/push-esi -<span id="L579" class="LineNr">579 </span> 57/push-edi -<span id="L580" class="LineNr">580 </span> <span class="subxComment"># edx = line</span> -<span id="L581" class="LineNr">581 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L582" class="LineNr">582 </span> <span class="subxComment"># var currl/esi: (addr byte) = line->data</span> -<span id="L583" class="LineNr">583 </span> <span class="subxS1Comment"># . esi = line/edx->data</span> -<span id="L584" class="LineNr">584 </span> 8d/copy-address 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx+4 to esi</span> -<span id="L585" class="LineNr">585 </span> <span class="subxComment"># var maxl/ecx: (addr byte) = &line->data[line->size]</span> -<span id="L586" class="LineNr">586 </span> <span class="subxS1Comment"># . eax = line/edx->size</span> -<span id="L587" class="LineNr">587 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span> -<span id="L588" class="LineNr">588 </span> <span class="subxS1Comment"># . maxl = &line->data[line->size]</span> -<span id="L589" class="LineNr">589 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ecx</span> -<span id="L590" class="LineNr">590 </span> <span class="subxComment"># edi = t</span> -<span id="L591" class="LineNr">591 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L592" class="LineNr">592 </span> <span class="subxComment"># var ebx: (addr byte) = t->data</span> -<span id="L593" class="LineNr">593 </span> 8d/copy-address 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+12 to ebx</span> -<span id="L594" class="LineNr">594 </span> <span class="subxComment"># var maxt/edx: (addr byte) = &t->data[t->write]</span> -<span id="L595" class="LineNr">595 </span> <span class="subxS1Comment"># . eax = t->write</span> -<span id="L596" class="LineNr">596 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> -<span id="L597" class="LineNr">597 </span> <span class="subxS1Comment"># . maxt = &t->data[t->write]</span> -<span id="L598" class="LineNr">598 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 3/base/ebx 0/index/eax <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx+eax to edx</span> -<span id="L599" class="LineNr">599 </span> <span class="subxComment"># var currt/edi: (addr byte) = &t->data[t->read]</span> -<span id="L600" class="LineNr">600 </span> <span class="subxS1Comment"># . eax = t/edi->read</span> -<span id="L601" class="LineNr">601 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to eax</span> -<span id="L602" class="LineNr">602 </span> <span class="subxS1Comment"># . currt = &t->data[t->read]</span> -<span id="L603" class="LineNr">603 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 3/base/ebx 0/index/eax <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx+eax to edi</span> -<span id="L604" class="LineNr">604 </span><span class="Constant">$next-line-matches?:loop</span>: -<span id="L605" class="LineNr">605 </span> <span class="subxComment"># if (currl >= maxl) break</span> -<span id="L606" class="LineNr">606 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi and ecx</span> -<span id="L607" class="LineNr">607 </span> 73/jump-if-addr>= $next-line-matches?:<span class="Constant">break</span>/disp8 -<span id="L608" class="LineNr">608 </span> <span class="subxComment"># if (currt >= maxt) return false</span> -<span id="L609" class="LineNr">609 </span> <span class="subxS1Comment"># . eax = false</span> -<span id="L610" class="LineNr">610 </span> b8/copy-to-eax 0/imm32/false -<span id="L611" class="LineNr">611 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi and edx</span> -<span id="L612" class="LineNr">612 </span> 73/jump-if-addr>= $next-line-matches?:end/disp8 -<span id="L613" class="LineNr">613 </span> <span class="subxComment"># if (*currt != *currl) return false</span> -<span id="L614" class="LineNr">614 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L615" class="LineNr">615 </span> 31/xor 3/mod/direct 3/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L616" class="LineNr">616 </span> <span class="subxS1Comment"># . eax: byte = *currt</span> -<span id="L617" class="LineNr">617 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> -<span id="L618" class="LineNr">618 </span> <span class="subxS1Comment"># . ebx: byte = *currl</span> -<span id="L619" class="LineNr">619 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L620" class="LineNr">620 </span> <span class="subxS1Comment"># . eax >= ebx</span> -<span id="L621" class="LineNr">621 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and ebx</span> -<span id="L622" class="LineNr">622 </span> <span class="subxS1Comment"># . eax = false</span> -<span id="L623" class="LineNr">623 </span> b8/copy-to-eax 0/imm32/false -<span id="L624" class="LineNr">624 </span> 75/jump-if-!= $next-line-matches?:end/disp8 -<span id="L625" class="LineNr">625 </span> <span class="subxComment"># ++currt</span> -<span id="L626" class="LineNr">626 </span> 47/increment-edi -<span id="L627" class="LineNr">627 </span> <span class="subxComment"># ++currl</span> -<span id="L628" class="LineNr">628 </span> 46/increment-esi -<span id="L629" class="LineNr">629 </span> eb/jump $next-line-matches?:<span class="Constant">loop</span>/disp8 -<span id="L630" class="LineNr">630 </span><span class="Constant">$next-line-matches?:break</span>: -<span id="L631" class="LineNr">631 </span> <span class="subxComment"># return *currt == '\n'</span> -<span id="L632" class="LineNr">632 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L633" class="LineNr">633 </span> <span class="subxS1Comment"># . eax: byte = *currt</span> -<span id="L634" class="LineNr">634 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> -<span id="L635" class="LineNr">635 </span> 3d/compare-eax-and 0xa/imm32/newline -<span id="L636" class="LineNr">636 </span> <span class="subxS1Comment"># . eax = false</span> -<span id="L637" class="LineNr">637 </span> b8/copy-to-eax 1/imm32/true -<span id="L638" class="LineNr">638 </span> 74/jump-if-= $next-line-matches?:end/disp8 -<span id="L639" class="LineNr">639 </span> b8/copy-to-eax 0/imm32/true -<span id="L640" class="LineNr">640 </span><span class="Constant">$next-line-matches?:end</span>: -<span id="L641" class="LineNr">641 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L642" class="LineNr">642 </span> 5f/pop-to-edi -<span id="L643" class="LineNr">643 </span> 5e/pop-to-esi -<span id="L644" class="LineNr">644 </span> 5b/pop-to-ebx -<span id="L645" class="LineNr">645 </span> 5a/pop-to-edx -<span id="L646" class="LineNr">646 </span> 59/pop-to-ecx -<span id="L647" class="LineNr">647 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L648" class="LineNr">648 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L649" class="LineNr">649 </span> 5d/pop-to-ebp -<span id="L650" class="LineNr">650 </span> c3/return -<span id="L651" class="LineNr">651 </span> -<span id="L652" class="LineNr">652 </span><span class="subxTest">test-next-line-matches?-no-match-1</span>: -<span id="L653" class="LineNr">653 </span> <span class="subxComment"># next line of "ABABA" does not match "blah blah"</span> -<span id="L654" class="LineNr">654 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "blah blah")</span> -<span id="L655" class="LineNr">655 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L656" class="LineNr">656 </span> 68/push <span class="Constant">"blah blah"</span>/imm32 -<span id="L657" class="LineNr">657 </span> 68/push <a href='107trace.subx.html#L962'>_test-stream-line-ABABA</a>/imm32 -<span id="L658" class="LineNr">658 </span> <span class="subxS2Comment"># . . call</span> -<span id="L659" class="LineNr">659 </span> e8/call <a href='107trace.subx.html#L561'>next-line-matches?</a>/disp32 -<span id="L660" class="LineNr">660 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L661" class="LineNr">661 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L662" class="LineNr">662 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 0, msg)</span> -<span id="L663" class="LineNr">663 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L664" class="LineNr">664 </span> 68/push <span class="Constant">"F - test-next-line-matches?-no-match-1"</span>/imm32 -<span id="L665" class="LineNr">665 </span> 68/push 0/imm32 -<span id="L666" class="LineNr">666 </span> 50/push-eax -<span id="L667" class="LineNr">667 </span> <span class="subxS2Comment"># . . call</span> -<span id="L668" class="LineNr">668 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L669" class="LineNr">669 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L670" class="LineNr">670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L671" class="LineNr">671 </span> c3/return -<span id="L672" class="LineNr">672 </span> -<span id="L673" class="LineNr">673 </span><span class="subxTest">test-next-line-matches?-no-match-2</span>: -<span id="L674" class="LineNr">674 </span> <span class="subxComment"># next line of "ABABA" does not match ""</span> -<span id="L675" class="LineNr">675 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "")</span> -<span id="L676" class="LineNr">676 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L677" class="LineNr">677 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L678" class="LineNr">678 </span> 68/push <a href='107trace.subx.html#L962'>_test-stream-line-ABABA</a>/imm32 -<span id="L679" class="LineNr">679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L680" class="LineNr">680 </span> e8/call <a href='107trace.subx.html#L561'>next-line-matches?</a>/disp32 -<span id="L681" class="LineNr">681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L682" class="LineNr">682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L683" class="LineNr">683 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 0, msg)</span> -<span id="L684" class="LineNr">684 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L685" class="LineNr">685 </span> 68/push <span class="Constant">"F - test-next-line-matches?-no-match-2"</span>/imm32 -<span id="L686" class="LineNr">686 </span> 68/push 0/imm32 -<span id="L687" class="LineNr">687 </span> 50/push-eax -<span id="L688" class="LineNr">688 </span> <span class="subxS2Comment"># . . call</span> -<span id="L689" class="LineNr">689 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L690" class="LineNr">690 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L691" class="LineNr">691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L692" class="LineNr">692 </span> c3/return -<span id="L693" class="LineNr">693 </span> -<span id="L694" class="LineNr">694 </span><span class="subxTest">test-next-line-matches?-no-match-3</span>: -<span id="L695" class="LineNr">695 </span> <span class="subxComment"># next line of "ABABA" does not match "AA"</span> -<span id="L696" class="LineNr">696 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "AA")</span> -<span id="L697" class="LineNr">697 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L698" class="LineNr">698 </span> 68/push <span class="Constant">"AA"</span>/imm32 -<span id="L699" class="LineNr">699 </span> 68/push <a href='107trace.subx.html#L962'>_test-stream-line-ABABA</a>/imm32 -<span id="L700" class="LineNr">700 </span> <span class="subxS2Comment"># . . call</span> -<span id="L701" class="LineNr">701 </span> e8/call <a href='107trace.subx.html#L561'>next-line-matches?</a>/disp32 -<span id="L702" class="LineNr">702 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L703" class="LineNr">703 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L704" class="LineNr">704 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 0, msg)</span> -<span id="L705" class="LineNr">705 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L706" class="LineNr">706 </span> 68/push <span class="Constant">"F - test-next-line-matches?-no-match-3"</span>/imm32 -<span id="L707" class="LineNr">707 </span> 68/push 0/imm32 -<span id="L708" class="LineNr">708 </span> 50/push-eax -<span id="L709" class="LineNr">709 </span> <span class="subxS2Comment"># . . call</span> -<span id="L710" class="LineNr">710 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L711" class="LineNr">711 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L712" class="LineNr">712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L713" class="LineNr">713 </span> c3/return -<span id="L714" class="LineNr">714 </span> -<span id="L715" class="LineNr">715 </span><span class="subxTest">test-next-line-matches?-match</span>: -<span id="L716" class="LineNr">716 </span> <span class="subxComment"># next line of "ABABA" matches "ABABA"</span> -<span id="L717" class="LineNr">717 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "ABABA")</span> -<span id="L718" class="LineNr">718 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L719" class="LineNr">719 </span> 68/push <span class="Constant">"ABABA"</span>/imm32 -<span id="L720" class="LineNr">720 </span> 68/push <a href='107trace.subx.html#L962'>_test-stream-line-ABABA</a>/imm32 -<span id="L721" class="LineNr">721 </span> <span class="subxS2Comment"># . . call</span> -<span id="L722" class="LineNr">722 </span> e8/call <a href='107trace.subx.html#L561'>next-line-matches?</a>/disp32 -<span id="L723" class="LineNr">723 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L724" class="LineNr">724 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L725" class="LineNr">725 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 1, msg)</span> -<span id="L726" class="LineNr">726 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L727" class="LineNr">727 </span> 68/push <span class="Constant">"F - test-next-line-matches?-match"</span>/imm32 -<span id="L728" class="LineNr">728 </span> 68/push 1/imm32 -<span id="L729" class="LineNr">729 </span> 50/push-eax -<span id="L730" class="LineNr">730 </span> <span class="subxS2Comment"># . . call</span> -<span id="L731" class="LineNr">731 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L732" class="LineNr">732 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L733" class="LineNr">733 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L734" class="LineNr">734 </span> c3/return -<span id="L735" class="LineNr">735 </span> -<span id="L736" class="LineNr">736 </span><span class="subxComment"># move t->read to _after_ next newline</span> -<span id="L737" class="LineNr">737 </span><span class="subxFunction">skip-next-line</span>: <span class="subxComment"># t: (addr stream byte)</span> -<span id="L738" class="LineNr">738 </span> <span class="subxComment"># pseudocode:</span> -<span id="L739" class="LineNr">739 </span> <span class="subxComment"># max = &t->data[t->write]</span> -<span id="L740" class="LineNr">740 </span> <span class="subxComment"># i = t->read</span> -<span id="L741" class="LineNr">741 </span> <span class="subxComment"># curr = &t->data[t->read]</span> -<span id="L742" class="LineNr">742 </span> <span class="subxComment"># while true</span> -<span id="L743" class="LineNr">743 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L744" class="LineNr">744 </span> <span class="subxComment"># ++i</span> -<span id="L745" class="LineNr">745 </span> <span class="subxComment"># if (*curr == '\n') break</span> -<span id="L746" class="LineNr">746 </span> <span class="subxComment"># ++curr</span> -<span id="L747" class="LineNr">747 </span> <span class="subxComment"># t->read = i</span> -<span id="L748" class="LineNr">748 </span> <span class="subxComment">#</span> -<span id="L749" class="LineNr">749 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L750" class="LineNr">750 </span> 55/push-ebp -<span id="L751" class="LineNr">751 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L752" class="LineNr">752 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L753" class="LineNr">753 </span> 50/push-eax -<span id="L754" class="LineNr">754 </span> 51/push-ecx -<span id="L755" class="LineNr">755 </span> 52/push-edx -<span id="L756" class="LineNr">756 </span> 53/push-ebx -<span id="L757" class="LineNr">757 </span> <span class="subxComment"># ecx = t</span> -<span id="L758" class="LineNr">758 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L759" class="LineNr">759 </span> <span class="subxComment"># edx = t->data</span> -<span id="L760" class="LineNr">760 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+12 to edx</span> -<span id="L761" class="LineNr">761 </span> <span class="subxComment"># eax = t->write</span> -<span id="L762" class="LineNr">762 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L763" class="LineNr">763 </span> <span class="subxComment"># var max/ebx: (addr byte) = &t->data[t->write]</span> -<span id="L764" class="LineNr">764 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 2/base/edx 0/index/eax <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ebx</span> -<span id="L765" class="LineNr">765 </span> <span class="subxComment"># eax = t->read</span> -<span id="L766" class="LineNr">766 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> -<span id="L767" class="LineNr">767 </span> <span class="subxComment"># var curr/ecx: (addr byte) = &t->data[t->read]</span> -<span id="L768" class="LineNr">768 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 2/base/edx 0/index/eax <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ecx</span> -<span id="L769" class="LineNr">769 </span> <span class="subxComment"># var i/edx: int = t->read</span> -<span id="L770" class="LineNr">770 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L771" class="LineNr">771 </span><span class="Constant">$skip-next-line:loop</span>: -<span id="L772" class="LineNr">772 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L773" class="LineNr">773 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx and ebx</span> -<span id="L774" class="LineNr">774 </span> 73/jump-if-addr>= $skip-next-line:end/disp8 -<span id="L775" class="LineNr">775 </span> <span class="subxComment"># ++i</span> -<span id="L776" class="LineNr">776 </span> 42/increment-edx -<span id="L777" class="LineNr">777 </span> <span class="subxComment"># if (*curr == '\n') break</span> -<span id="L778" class="LineNr">778 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L779" class="LineNr">779 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L780" class="LineNr">780 </span> 3d/compare-eax-and 0a/imm32/newline -<span id="L781" class="LineNr">781 </span> 74/jump-if-= $skip-next-line:end/disp8 -<span id="L782" class="LineNr">782 </span> <span class="subxComment"># ++curr</span> -<span id="L783" class="LineNr">783 </span> 41/increment-ecx -<span id="L784" class="LineNr">784 </span> <span class="subxComment"># loop</span> -<span id="L785" class="LineNr">785 </span> eb/jump $skip-next-line:<span class="Constant">loop</span>/disp8 -<span id="L786" class="LineNr">786 </span><span class="Constant">$skip-next-line:end</span>: -<span id="L787" class="LineNr">787 </span> <span class="subxComment"># ecx = t</span> -<span id="L788" class="LineNr">788 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L789" class="LineNr">789 </span> <span class="subxComment"># t->read = i</span> -<span id="L790" class="LineNr">790 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx to *(ecx+4)</span> -<span id="L791" class="LineNr">791 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L792" class="LineNr">792 </span> 5b/pop-to-ebx -<span id="L793" class="LineNr">793 </span> 5a/pop-to-edx -<span id="L794" class="LineNr">794 </span> 59/pop-to-ecx -<span id="L795" class="LineNr">795 </span> 58/pop-to-eax -<span id="L796" class="LineNr">796 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L797" class="LineNr">797 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L798" class="LineNr">798 </span> 5d/pop-to-ebp -<span id="L799" class="LineNr">799 </span> c3/return -<span id="L800" class="LineNr">800 </span> -<span id="L801" class="LineNr">801 </span><span class="subxTest">test-skip-next-line-empty</span>: -<span id="L802" class="LineNr">802 </span> <span class="subxComment"># skipping next line in empty stream leaves read pointer at 0</span> -<span id="L803" class="LineNr">803 </span> <span class="subxS1Comment"># . skip-next-line(_test-stream-empty)</span> -<span id="L804" class="LineNr">804 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L805" class="LineNr">805 </span> 68/push <a href='107trace.subx.html#L972'>_test-stream-empty</a>/imm32 -<span id="L806" class="LineNr">806 </span> <span class="subxS2Comment"># . . call</span> -<span id="L807" class="LineNr">807 </span> e8/call <a href='107trace.subx.html#L737'>skip-next-line</a>/disp32 -<span id="L808" class="LineNr">808 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L809" class="LineNr">809 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L810" class="LineNr">810 </span> <span class="subxS1Comment"># . check-ints-equal(_test-stream-empty->read, 0, msg)</span> -<span id="L811" class="LineNr">811 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L812" class="LineNr">812 </span> 68/push <span class="Constant">"F - test-skip-next-line-empty"</span>/imm32 -<span id="L813" class="LineNr">813 </span> 68/push 0/imm32 -<span id="L814" class="LineNr">814 </span> b8/copy-to-eax <a href='107trace.subx.html#L972'>_test-stream-empty</a>/imm32 -<span id="L815" class="LineNr">815 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L816" class="LineNr">816 </span> 50/push-eax -<span id="L817" class="LineNr">817 </span> <span class="subxS2Comment"># . . call</span> -<span id="L818" class="LineNr">818 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L819" class="LineNr">819 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L820" class="LineNr">820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L821" class="LineNr">821 </span> c3/return -<span id="L822" class="LineNr">822 </span> -<span id="L823" class="LineNr">823 </span><span class="subxTest">test-skip-next-line-filled</span>: -<span id="L824" class="LineNr">824 </span> <span class="subxComment"># skipping next line increments read pointer by length of line + 1 (for newline)</span> -<span id="L825" class="LineNr">825 </span> <span class="subxS1Comment"># . skip-next-line(_test-stream-filled)</span> -<span id="L826" class="LineNr">826 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L827" class="LineNr">827 </span> 68/push <a href='107trace.subx.html#L982'>_test-stream-filled</a>/imm32 -<span id="L828" class="LineNr">828 </span> <span class="subxS2Comment"># . . call</span> -<span id="L829" class="LineNr">829 </span> e8/call <a href='107trace.subx.html#L737'>skip-next-line</a>/disp32 -<span id="L830" class="LineNr">830 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L831" class="LineNr">831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L832" class="LineNr">832 </span> <span class="subxS1Comment"># . check-ints-equal(_test-stream-filled->read, 5, msg)</span> -<span id="L833" class="LineNr">833 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L834" class="LineNr">834 </span> 68/push <span class="Constant">"F - test-skip-next-line-filled"</span>/imm32 -<span id="L835" class="LineNr">835 </span> 68/push 5/imm32 -<span id="L836" class="LineNr">836 </span> b8/copy-to-eax <a href='107trace.subx.html#L982'>_test-stream-filled</a>/imm32 -<span id="L837" class="LineNr">837 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L838" class="LineNr">838 </span> 50/push-eax -<span id="L839" class="LineNr">839 </span> <span class="subxS2Comment"># . . call</span> -<span id="L840" class="LineNr">840 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L841" class="LineNr">841 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L842" class="LineNr">842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L843" class="LineNr">843 </span> c3/return -<span id="L844" class="LineNr">844 </span> -<span id="L845" class="LineNr">845 </span><span class="subxFunction">clear-trace-stream</span>: -<span id="L846" class="LineNr">846 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L847" class="LineNr">847 </span> 55/push-ebp -<span id="L848" class="LineNr">848 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L849" class="LineNr">849 </span> <span class="subxComment"># clear-stream(*Trace-stream)</span> -<span id="L850" class="LineNr">850 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L851" class="LineNr">851 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L852" class="LineNr">852 </span> <span class="subxS2Comment"># . . call</span> -<span id="L853" class="LineNr">853 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L854" class="LineNr">854 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L855" class="LineNr">855 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L856" class="LineNr">856 </span><span class="Constant">$clear-trace-stream:end</span>: -<span id="L857" class="LineNr">857 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L858" class="LineNr">858 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L859" class="LineNr">859 </span> 5d/pop-to-ebp -<span id="L860" class="LineNr">860 </span> c3/return -<span id="L861" class="LineNr">861 </span> -<span id="L862" class="LineNr">862 </span><span class="subxH1Comment"># - helpers</span> -<span id="L863" class="LineNr">863 </span> -<span id="L864" class="LineNr">864 </span><span class="subxComment"># 3-argument variant of _append</span> -<span id="L865" class="LineNr">865 </span><span class="subxMinorFunction">_append-3</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), s: (addr array byte) -> num_bytes_appended/eax</span> -<span id="L866" class="LineNr">866 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L867" class="LineNr">867 </span> 55/push-ebp -<span id="L868" class="LineNr">868 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L869" class="LineNr">869 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L870" class="LineNr">870 </span> 51/push-ecx -<span id="L871" class="LineNr">871 </span> <span class="subxComment"># eax = _append-4(out, outend, &s->data[0], &s->data[s->size])</span> -<span id="L872" class="LineNr">872 </span> <span class="subxS2Comment"># . . push &s->data[s->size]</span> -<span id="L873" class="LineNr">873 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L874" class="LineNr">874 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L875" class="LineNr">875 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L876" class="LineNr">876 </span> 51/push-ecx -<span id="L877" class="LineNr">877 </span> <span class="subxS2Comment"># . . push &s->data[0]</span> -<span id="L878" class="LineNr">878 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+4 to ecx</span> -<span id="L879" class="LineNr">879 </span> 51/push-ecx -<span id="L880" class="LineNr">880 </span> <span class="subxS2Comment"># . . push outend</span> -<span id="L881" class="LineNr">881 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L882" class="LineNr">882 </span> <span class="subxS2Comment"># . . push out</span> -<span id="L883" class="LineNr">883 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L884" class="LineNr">884 </span> <span class="subxS2Comment"># . . call</span> -<span id="L885" class="LineNr">885 </span> e8/call <a href='107trace.subx.html#L897'>_append-4</a>/disp32 -<span id="L886" class="LineNr">886 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L887" class="LineNr">887 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L888" class="LineNr">888 </span><span class="Constant">$_append-3:end</span>: -<span id="L889" class="LineNr">889 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L890" class="LineNr">890 </span> 59/pop-to-ecx -<span id="L891" class="LineNr">891 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L892" class="LineNr">892 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L893" class="LineNr">893 </span> 5d/pop-to-ebp -<span id="L894" class="LineNr">894 </span> c3/return -<span id="L895" class="LineNr">895 </span> -<span id="L896" class="LineNr">896 </span><span class="subxComment"># 4-argument variant of _append</span> -<span id="L897" class="LineNr">897 </span><span class="subxMinorFunction">_append-4</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), in: (addr byte), inend: (addr byte) -> num_bytes_appended/eax: int</span> -<span id="L898" class="LineNr">898 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L899" class="LineNr">899 </span> 55/push-ebp -<span id="L900" class="LineNr">900 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L901" class="LineNr">901 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L902" class="LineNr">902 </span> 51/push-ecx -<span id="L903" class="LineNr">903 </span> 52/push-edx -<span id="L904" class="LineNr">904 </span> 53/push-ebx -<span id="L905" class="LineNr">905 </span> 56/push-esi -<span id="L906" class="LineNr">906 </span> 57/push-edi -<span id="L907" class="LineNr">907 </span> <span class="subxComment"># num_bytes_appended = 0</span> -<span id="L908" class="LineNr">908 </span> b8/copy-to-eax 0/imm32 -<span id="L909" class="LineNr">909 </span> <span class="subxComment"># edi = out</span> -<span id="L910" class="LineNr">910 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> -<span id="L911" class="LineNr">911 </span> <span class="subxComment"># edx = outend</span> -<span id="L912" class="LineNr">912 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L913" class="LineNr">913 </span> <span class="subxComment"># esi = in</span> -<span id="L914" class="LineNr">914 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to esi</span> -<span id="L915" class="LineNr">915 </span> <span class="subxComment"># ecx = inend</span> -<span id="L916" class="LineNr">916 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> -<span id="L917" class="LineNr">917 </span><span class="Constant">$_append-4:loop</span>: -<span id="L918" class="LineNr">918 </span> <span class="subxComment"># if (in >= inend) break</span> -<span id="L919" class="LineNr">919 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> -<span id="L920" class="LineNr">920 </span> 73/jump-if-addr>= $_append-4:end/disp8 -<span id="L921" class="LineNr">921 </span> <span class="subxComment"># if (out >= outend) abort # just to catch test failures fast</span> -<span id="L922" class="LineNr">922 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with edx</span> -<span id="L923" class="LineNr">923 </span> 73/jump-if-addr>= $_append-4:abort/disp8 -<span id="L924" class="LineNr">924 </span> <span class="subxComment"># *out = *in</span> -<span id="L925" class="LineNr">925 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to BL</span> -<span id="L926" class="LineNr">926 </span> 88/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at BL to *edi</span> -<span id="L927" class="LineNr">927 </span> <span class="subxComment"># ++num_bytes_appended</span> -<span id="L928" class="LineNr">928 </span> 40/increment-eax -<span id="L929" class="LineNr">929 </span> <span class="subxComment"># ++in</span> -<span id="L930" class="LineNr">930 </span> 46/increment-esi -<span id="L931" class="LineNr">931 </span> <span class="subxComment"># ++out</span> -<span id="L932" class="LineNr">932 </span> 47/increment-edi -<span id="L933" class="LineNr">933 </span> eb/jump $_append-4:<span class="Constant">loop</span>/disp8 -<span id="L934" class="LineNr">934 </span><span class="Constant">$_append-4:end</span>: -<span id="L935" class="LineNr">935 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L936" class="LineNr">936 </span> 5f/pop-to-edi -<span id="L937" class="LineNr">937 </span> 5e/pop-to-esi -<span id="L938" class="LineNr">938 </span> 5b/pop-to-ebx -<span id="L939" class="LineNr">939 </span> 5a/pop-to-edx -<span id="L940" class="LineNr">940 </span> 59/pop-to-ecx -<span id="L941" class="LineNr">941 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L942" class="LineNr">942 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L943" class="LineNr">943 </span> 5d/pop-to-ebp -<span id="L944" class="LineNr">944 </span> c3/return -<span id="L945" class="LineNr">945 </span> -<span id="L946" class="LineNr">946 </span><span class="Constant">$_append-4:abort</span>: -<span id="L947" class="LineNr">947 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L948" class="LineNr">948 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L949" class="LineNr">949 </span> 68/push <span class="Constant">"stream overflow\n"</span>/imm32 -<span id="L950" class="LineNr">950 </span> 68/push 2/imm32/stderr -<span id="L951" class="LineNr">951 </span> <span class="subxS2Comment"># . . call</span> -<span id="L952" class="LineNr">952 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 -<span id="L953" class="LineNr">953 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L954" class="LineNr">954 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L955" class="LineNr">955 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L956" class="LineNr">956 </span> bb/copy-to-ebx 1/imm32 -<span id="L957" class="LineNr">957 </span> e8/call syscall_exit/disp32 -<span id="L958" class="LineNr">958 </span> <span class="subxComment"># never gets here</span> -<span id="L959" class="LineNr">959 </span> -<span id="L960" class="LineNr">960 </span>== data -<span id="L961" class="LineNr">961 </span> -<span id="L962" class="LineNr">962 </span><span class="subxMinorFunction">_test-stream-line-ABABA</span>: <span class="subxComment"># (stream byte)</span> -<span id="L963" class="LineNr">963 </span> <span class="subxComment"># write</span> -<span id="L964" class="LineNr">964 </span> 8/imm32 -<span id="L965" class="LineNr">965 </span> <span class="subxComment"># read</span> -<span id="L966" class="LineNr">966 </span> 0/imm32 -<span id="L967" class="LineNr">967 </span> <span class="subxComment"># size</span> -<span id="L968" class="LineNr">968 </span> 8/imm32 -<span id="L969" class="LineNr">969 </span> <span class="subxComment"># data</span> -<span id="L970" class="LineNr">970 </span> 41 42 41 42 41 0a 00 00 <span class="subxComment"># 8 bytes</span> -<span id="L971" class="LineNr">971 </span> -<span id="L972" class="LineNr">972 </span><span class="subxMinorFunction">_test-stream-empty</span>: <span class="subxComment"># (stream byte)</span> -<span id="L973" class="LineNr">973 </span> <span class="subxComment"># write</span> -<span id="L974" class="LineNr">974 </span> 0/imm32 -<span id="L975" class="LineNr">975 </span> <span class="subxComment"># read</span> -<span id="L976" class="LineNr">976 </span> 0/imm32 -<span id="L977" class="LineNr">977 </span> <span class="subxComment"># size</span> -<span id="L978" class="LineNr">978 </span> 8/imm32 -<span id="L979" class="LineNr">979 </span> <span class="subxComment"># data</span> -<span id="L980" class="LineNr">980 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> -<span id="L981" class="LineNr">981 </span> -<span id="L982" class="LineNr">982 </span><span class="subxMinorFunction">_test-stream-filled</span>: <span class="subxComment"># (stream byte)</span> -<span id="L983" class="LineNr">983 </span> <span class="subxComment"># write</span> -<span id="L984" class="LineNr">984 </span> 8/imm32 -<span id="L985" class="LineNr">985 </span> <span class="subxComment"># read</span> -<span id="L986" class="LineNr">986 </span> 0/imm32 -<span id="L987" class="LineNr">987 </span> <span class="subxComment"># size</span> -<span id="L988" class="LineNr">988 </span> 8/imm32 -<span id="L989" class="LineNr">989 </span> <span class="subxComment"># data</span> -<span id="L990" class="LineNr">990 </span> 41 41 41 41 0a 41 41 41 <span class="subxComment"># 8 bytes</span> -<span id="L991" class="LineNr">991 </span> -<span id="L992" class="LineNr">992 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># Allocate a new segment for the trace stream, initialize its size, and save its address to Trace-stream.</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># The Trace-stream segment will consist of variable-length lines separated by newlines (0x0a)</span> +<span id="L43" class="LineNr"> 43 </span><span class="subxFunction">initialize-trace-stream</span>: <span class="subxComment"># n: int</span> +<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L45" class="LineNr"> 45 </span> 55/push-ebp +<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L48" class="LineNr"> 48 </span> 50/push-eax +<span id="L49" class="LineNr"> 49 </span> 51/push-ecx +<span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># ecx = n</span> +<span id="L51" class="LineNr"> 51 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># Trace-segment = new-segment(n)</span> +<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L54" class="LineNr"> 54 </span> 68/push <span class="SpecialChar"><a href='107trace.subx.html#L20'>Trace-segment</a></span>/imm32 +<span id="L55" class="LineNr"> 55 </span> 51/push-ecx +<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . call</span> +<span id="L57" class="LineNr"> 57 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># copy Trace-segment->curr to *Trace-stream</span> +<span id="L61" class="LineNr"> 61 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L20'>Trace-segment</a></span>/disp32 <span class="subxComment"># copy *Trace-segment to eax</span> +<span id="L62" class="LineNr"> 62 </span><span class="CommentedCode">#? # watch point to catch Trace-stream leaks</span> +<span id="L63" class="LineNr"> 63 </span><span class="CommentedCode">#? $watch-1:</span> +<span id="L64" class="LineNr"> 64 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># Trace-stream->size = n - 12</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxS1Comment"># . ecx -= 12</span> +<span id="L67" class="LineNr"> 67 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L68" class="LineNr"> 68 </span> <span class="subxS1Comment"># . Trace-stream->size = ecx</span> +<span id="L69" class="LineNr"> 69 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+8)</span> +<span id="L70" class="LineNr"> 70 </span><span class="Constant">$initialize-trace-stream:end</span>: +<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L72" class="LineNr"> 72 </span> 59/pop-to-ecx +<span id="L73" class="LineNr"> 73 </span> 58/pop-to-eax +<span id="L74" class="LineNr"> 74 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L75" class="LineNr"> 75 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L76" class="LineNr"> 76 </span> 5d/pop-to-ebp +<span id="L77" class="LineNr"> 77 </span> c3/return +<span id="L78" class="LineNr"> 78 </span> +<span id="L79" class="LineNr"> 79 </span><span class="subxComment"># Append a string to the given trace stream.</span> +<span id="L80" class="LineNr"> 80 </span><span class="subxComment"># Silently give up if it's already full. Or truncate the string if there isn't enough room.</span> +<span id="L81" class="LineNr"> 81 </span><span class="subxFunction">trace</span>: <span class="subxComment"># line: (addr array byte)</span> +<span id="L82" class="LineNr"> 82 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L83" class="LineNr"> 83 </span> 55/push-ebp +<span id="L84" class="LineNr"> 84 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L86" class="LineNr"> 86 </span> 50/push-eax +<span id="L87" class="LineNr"> 87 </span> 51/push-ecx +<span id="L88" class="LineNr"> 88 </span> 52/push-edx +<span id="L89" class="LineNr"> 89 </span> 53/push-ebx +<span id="L90" class="LineNr"> 90 </span> 56/push-esi +<span id="L91" class="LineNr"> 91 </span> 57/push-edi +<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># var edi: (addr stream byte) = *Trace-stream</span> +<span id="L93" class="LineNr"> 93 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to edi</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># esi = line</span> +<span id="L95" class="LineNr"> 95 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># var ecx: int = t->write</span> +<span id="L97" class="LineNr"> 97 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L98" class="LineNr"> 98 </span> <span class="subxComment"># var edx: int = t->size</span> +<span id="L99" class="LineNr"> 99 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to edx</span> +<span id="L100" class="LineNr">100 </span> <span class="subxComment"># eax = _append-3(&t->data[t->write], &t->data[t->size], line)</span> +<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . push line</span> +<span id="L102" class="LineNr">102 </span> 56/push-esi +<span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . push &t->data[t->size]</span> +<span id="L104" class="LineNr">104 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+edx+12 to ebx</span> +<span id="L105" class="LineNr">105 </span> 53/push-ebx +<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . push &t->data[t->write]</span> +<span id="L107" class="LineNr">107 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+ecx+12 to ebx</span> +<span id="L108" class="LineNr">108 </span> 53/push-ebx +<span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . call</span> +<span id="L110" class="LineNr">110 </span> e8/call <a href='107trace.subx.html#L860'>_append-3</a>/disp32 +<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L112" class="LineNr">112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L113" class="LineNr">113 </span> <span class="subxComment"># if (eax == 0) return</span> +<span id="L114" class="LineNr">114 </span> 3d/compare-eax-and 0/imm32 +<span id="L115" class="LineNr">115 </span> 74/jump-if-= $trace:end/disp8 +<span id="L116" class="LineNr">116 </span> <span class="subxComment"># t->write += eax</span> +<span id="L117" class="LineNr">117 </span> 01/add 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *edi</span> +<span id="L118" class="LineNr">118 </span> <span class="subxComment"># refresh ecx = t->write</span> +<span id="L119" class="LineNr">119 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L120" class="LineNr">120 </span> <span class="subxComment"># eax = _append-3(&t->data[t->write], &t->data[t->size], line)</span> +<span id="L121" class="LineNr">121 </span> <span class="subxS2Comment"># . . push line</span> +<span id="L122" class="LineNr">122 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . push &t->data[t->size]</span> +<span id="L124" class="LineNr">124 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+edx+12 to ebx</span> +<span id="L125" class="LineNr">125 </span> 53/push-ebx +<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . push &t->data[t->write]</span> +<span id="L127" class="LineNr">127 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+ecx+12 to ebx</span> +<span id="L128" class="LineNr">128 </span> 53/push-ebx +<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> +<span id="L130" class="LineNr">130 </span> e8/call <a href='107trace.subx.html#L860'>_append-3</a>/disp32 +<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L133" class="LineNr">133 </span> <span class="subxComment"># t->write += eax</span> +<span id="L134" class="LineNr">134 </span> 01/add 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *edi</span> +<span id="L135" class="LineNr">135 </span><span class="Constant">$trace:end</span>: +<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L137" class="LineNr">137 </span> 5f/pop-to-edi +<span id="L138" class="LineNr">138 </span> 5e/pop-to-esi +<span id="L139" class="LineNr">139 </span> 5b/pop-to-ebx +<span id="L140" class="LineNr">140 </span> 5a/pop-to-edx +<span id="L141" class="LineNr">141 </span> 59/pop-to-ecx +<span id="L142" class="LineNr">142 </span> 58/pop-to-eax +<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L144" class="LineNr">144 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L145" class="LineNr">145 </span> 5d/pop-to-ebp +<span id="L146" class="LineNr">146 </span> c3/return +<span id="L147" class="LineNr">147 </span> +<span id="L148" class="LineNr">148 </span><span class="subxTest">test-trace-single</span>: +<span id="L149" class="LineNr">149 </span> <span class="subxComment"># push *Trace-stream</span> +<span id="L150" class="LineNr">150 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L151" class="LineNr">151 </span> <span class="subxComment"># *Trace-stream = _test-trace-stream</span> +<span id="L152" class="LineNr">152 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L153" class="LineNr">153 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L154" class="LineNr">154 </span> <span class="subxComment"># clear-trace-stream()</span> +<span id="L155" class="LineNr">155 </span> e8/call <a href='107trace.subx.html#L840'>clear-trace-stream</a>/disp32 +<span id="L156" class="LineNr">156 </span> <span class="subxComment"># trace("Ab")</span> +<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L158" class="LineNr">158 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . call</span> +<span id="L160" class="LineNr">160 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L162" class="LineNr">162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L163" class="LineNr">163 </span> <span class="subxComment"># check-ints-equal(*_test-trace-stream->data, 41/A 62/b 0a/newline 00, msg)</span> +<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L165" class="LineNr">165 </span> 68/push <span class="Constant">"F - test-trace-single"</span>/imm32 +<span id="L166" class="LineNr">166 </span> 68/push 0x0a6241/imm32/Ab-newline +<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push *_test-trace-stream->data</span> +<span id="L168" class="LineNr">168 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L169" class="LineNr">169 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> +<span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> +<span id="L171" class="LineNr">171 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L174" class="LineNr">174 </span> <span class="subxComment"># pop into *Trace-stream</span> +<span id="L175" class="LineNr">175 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> +<span id="L176" class="LineNr">176 </span> <span class="subxComment"># end</span> +<span id="L177" class="LineNr">177 </span> c3/return +<span id="L178" class="LineNr">178 </span> +<span id="L179" class="LineNr">179 </span><span class="subxTest">test-trace-appends</span>: +<span id="L180" class="LineNr">180 </span> <span class="subxComment"># push *Trace-stream</span> +<span id="L181" class="LineNr">181 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L182" class="LineNr">182 </span> <span class="subxComment"># *Trace-stream = _test-trace-stream</span> +<span id="L183" class="LineNr">183 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L184" class="LineNr">184 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L185" class="LineNr">185 </span> <span class="subxComment"># clear-trace-stream()</span> +<span id="L186" class="LineNr">186 </span> e8/call <a href='107trace.subx.html#L840'>clear-trace-stream</a>/disp32 +<span id="L187" class="LineNr">187 </span> <span class="subxComment"># trace("C")</span> +<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L189" class="LineNr">189 </span> 68/push <span class="Constant">"C"</span>/imm32 +<span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . call</span> +<span id="L191" class="LineNr">191 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L192" class="LineNr">192 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L193" class="LineNr">193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L194" class="LineNr">194 </span> <span class="subxComment"># trace("D")</span> +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"D"</span>/imm32 +<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> +<span id="L198" class="LineNr">198 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L201" class="LineNr">201 </span> <span class="subxComment"># check-ints-equal(*_test-trace-stream->data, 43/C 0a/newline 44/D 0a/newline, msg)</span> +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"F - test-trace-appends"</span>/imm32 +<span id="L204" class="LineNr">204 </span> 68/push 0x0a440a43/imm32/C-newline-D-newline +<span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . push *_test-trace-stream->data</span> +<span id="L206" class="LineNr">206 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L207" class="LineNr">207 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> +<span id="L208" class="LineNr">208 </span> <span class="subxS2Comment"># . . call</span> +<span id="L209" class="LineNr">209 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L210" class="LineNr">210 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L211" class="LineNr">211 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L212" class="LineNr">212 </span> <span class="subxComment"># pop into *Trace-stream</span> +<span id="L213" class="LineNr">213 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> +<span id="L214" class="LineNr">214 </span> <span class="subxComment"># end</span> +<span id="L215" class="LineNr">215 </span> c3/return +<span id="L216" class="LineNr">216 </span> +<span id="L217" class="LineNr">217 </span><span class="subxTest">test-trace-empty-line</span>: +<span id="L218" class="LineNr">218 </span> <span class="subxComment"># push *Trace-stream</span> +<span id="L219" class="LineNr">219 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L220" class="LineNr">220 </span> <span class="subxComment"># *Trace-stream = _test-trace-stream</span> +<span id="L221" class="LineNr">221 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L222" class="LineNr">222 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L223" class="LineNr">223 </span> <span class="subxComment"># clear-trace-stream()</span> +<span id="L224" class="LineNr">224 </span> e8/call <a href='107trace.subx.html#L840'>clear-trace-stream</a>/disp32 +<span id="L225" class="LineNr">225 </span> <span class="subxComment"># trace("")</span> +<span id="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L227" class="LineNr">227 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L228" class="LineNr">228 </span> <span class="subxS2Comment"># . . call</span> +<span id="L229" class="LineNr">229 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L230" class="LineNr">230 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L231" class="LineNr">231 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L232" class="LineNr">232 </span> <span class="subxComment"># check-ints-equal(*_test-trace-stream->data, 0, msg)</span> +<span id="L233" class="LineNr">233 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L234" class="LineNr">234 </span> 68/push <span class="Constant">"F - test-trace-empty-line"</span>/imm32 +<span id="L235" class="LineNr">235 </span> 68/push 0/imm32 +<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . push *_test-trace-stream->data</span> +<span id="L237" class="LineNr">237 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L238" class="LineNr">238 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> +<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . call</span> +<span id="L240" class="LineNr">240 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L242" class="LineNr">242 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L243" class="LineNr">243 </span> <span class="subxComment"># pop into *Trace-stream</span> +<span id="L244" class="LineNr">244 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> +<span id="L245" class="LineNr">245 </span> <span class="subxComment"># end</span> +<span id="L246" class="LineNr">246 </span> c3/return +<span id="L247" class="LineNr">247 </span> +<span id="L248" class="LineNr">248 </span><span class="subxFunction">check-trace-contains</span>: <span class="subxComment"># line: (addr string), msg: (addr string)</span> +<span id="L249" class="LineNr">249 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L250" class="LineNr">250 </span> 55/push-ebp +<span id="L251" class="LineNr">251 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L252" class="LineNr">252 </span> <span class="subxComment"># rewind-stream(*Trace-stream)</span> +<span id="L253" class="LineNr">253 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L254" class="LineNr">254 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L255" class="LineNr">255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L256" class="LineNr">256 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L258" class="LineNr">258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L259" class="LineNr">259 </span> <span class="subxComment"># check-trace-scans-to(line, msg)</span> +<span id="L260" class="LineNr">260 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L261" class="LineNr">261 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L262" class="LineNr">262 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . call</span> +<span id="L264" class="LineNr">264 </span> e8/call <a href='107trace.subx.html#L273'>check-trace-scans-to</a>/disp32 +<span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L266" class="LineNr">266 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L267" class="LineNr">267 </span><span class="Constant">$check-trace-contains:end</span>: +<span id="L268" class="LineNr">268 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L269" class="LineNr">269 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L270" class="LineNr">270 </span> 5d/pop-to-ebp +<span id="L271" class="LineNr">271 </span> c3/return +<span id="L272" class="LineNr">272 </span> +<span id="L273" class="LineNr">273 </span><span class="subxFunction">check-trace-scans-to</span>: <span class="subxComment"># line: (addr string), msg: (addr string)</span> +<span id="L274" class="LineNr">274 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L275" class="LineNr">275 </span> 55/push-ebp +<span id="L276" class="LineNr">276 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L277" class="LineNr">277 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L278" class="LineNr">278 </span> 50/push-eax +<span id="L279" class="LineNr">279 </span> <span class="subxComment"># eax = trace-scan(line)</span> +<span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L281" class="LineNr">281 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . call</span> +<span id="L283" class="LineNr">283 </span> e8/call <a href='107trace.subx.html#L304'>trace-scan</a>/disp32 +<span id="L284" class="LineNr">284 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L285" class="LineNr">285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L286" class="LineNr">286 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L287" class="LineNr">287 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L288" class="LineNr">288 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L289" class="LineNr">289 </span> 68/push 1/imm32 +<span id="L290" class="LineNr">290 </span> 50/push-eax +<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . call</span> +<span id="L292" class="LineNr">292 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L293" class="LineNr">293 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L294" class="LineNr">294 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L295" class="LineNr">295 </span><span class="Constant">$check-trace-scans-to:end</span>: +<span id="L296" class="LineNr">296 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L297" class="LineNr">297 </span> 58/pop-to-eax +<span id="L298" class="LineNr">298 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L299" class="LineNr">299 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L300" class="LineNr">300 </span> 5d/pop-to-ebp +<span id="L301" class="LineNr">301 </span> c3/return +<span id="L302" class="LineNr">302 </span> +<span id="L303" class="LineNr">303 </span><span class="subxComment"># Start scanning from Trace-stream->read for 'line'. If found, update Trace-stream->read and return true.</span> +<span id="L304" class="LineNr">304 </span><span class="subxFunction">trace-scan</span>: <span class="subxComment"># line: (addr array byte) -> result/eax: boolean</span> +<span id="L305" class="LineNr">305 </span> <span class="subxComment"># pseudocode:</span> +<span id="L306" class="LineNr">306 </span> <span class="subxComment"># push Trace-stream->read</span> +<span id="L307" class="LineNr">307 </span> <span class="subxComment"># while true:</span> +<span id="L308" class="LineNr">308 </span> <span class="subxComment"># if Trace-stream->read >= Trace-stream->write</span> +<span id="L309" class="LineNr">309 </span> <span class="subxComment"># break</span> +<span id="L310" class="LineNr">310 </span> <span class="subxComment"># if next-line-matches?(Trace-stream, line)</span> +<span id="L311" class="LineNr">311 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> +<span id="L312" class="LineNr">312 </span> <span class="subxComment"># dump saved copy of Trace-stream->read</span> +<span id="L313" class="LineNr">313 </span> <span class="subxComment"># return true</span> +<span id="L314" class="LineNr">314 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> +<span id="L315" class="LineNr">315 </span> <span class="subxComment"># pop saved copy of Trace-stream->read</span> +<span id="L316" class="LineNr">316 </span> <span class="subxComment"># return false</span> +<span id="L317" class="LineNr">317 </span> <span class="subxComment">#</span> +<span id="L318" class="LineNr">318 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L319" class="LineNr">319 </span> 55/push-ebp +<span id="L320" class="LineNr">320 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L321" class="LineNr">321 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L322" class="LineNr">322 </span> 51/push-ecx +<span id="L323" class="LineNr">323 </span> 56/push-esi +<span id="L324" class="LineNr">324 </span> <span class="subxComment"># esi = *Trace-stream</span> +<span id="L325" class="LineNr">325 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to esi</span> +<span id="L326" class="LineNr">326 </span> <span class="subxComment"># ecx = Trace-stream->write</span> +<span id="L327" class="LineNr">327 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L328" class="LineNr">328 </span> <span class="subxComment"># push Trace-stream->read</span> +<span id="L329" class="LineNr">329 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L330" class="LineNr">330 </span><span class="Constant">$trace-scan:loop</span>: +<span id="L331" class="LineNr">331 </span> <span class="subxComment"># if (Trace-stream->read >= Trace-stream->write) return false</span> +<span id="L332" class="LineNr">332 </span> 39/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+4)</span> +<span id="L333" class="LineNr">333 </span> 7d/jump-if->= $trace-scan:false/disp8 +<span id="L334" class="LineNr">334 </span> <span class="subxComment"># eax = next-line-matches?(Trace-stream, line)</span> +<span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L336" class="LineNr">336 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L337" class="LineNr">337 </span> 56/push-esi +<span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . call</span> +<span id="L339" class="LineNr">339 </span> e8/call <a href='107trace.subx.html#L556'>next-line-matches?</a>/disp32 +<span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L341" class="LineNr">341 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L342" class="LineNr">342 </span> <span class="subxComment"># if (eax == false) continue</span> +<span id="L343" class="LineNr">343 </span> 3d/compare-eax-and 0/imm32/false +<span id="L344" class="LineNr">344 </span> 74/jump-if-= $trace-scan:continue/disp8 +<span id="L345" class="LineNr">345 </span><span class="Constant">$trace-scan:true</span>: +<span id="L346" class="LineNr">346 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> +<span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L348" class="LineNr">348 </span> 56/push-esi +<span id="L349" class="LineNr">349 </span> <span class="subxS2Comment"># . . call</span> +<span id="L350" class="LineNr">350 </span> e8/call <a href='107trace.subx.html#L732'>skip-next-line</a>/disp32 +<span id="L351" class="LineNr">351 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L352" class="LineNr">352 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L353" class="LineNr">353 </span> <span class="subxComment"># dump saved copy of Trace-stream->read</span> +<span id="L354" class="LineNr">354 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L355" class="LineNr">355 </span> <span class="subxComment"># return true</span> +<span id="L356" class="LineNr">356 </span> b8/copy-to-eax 1/imm32/true +<span id="L357" class="LineNr">357 </span> eb/jump $trace-scan:end/disp8 +<span id="L358" class="LineNr">358 </span><span class="Constant">$trace-scan:continue</span>: +<span id="L359" class="LineNr">359 </span> <span class="subxComment"># skip-next-line(Trace-stream)</span> +<span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L361" class="LineNr">361 </span> 56/push-esi +<span id="L362" class="LineNr">362 </span> <span class="subxS2Comment"># . . call</span> +<span id="L363" class="LineNr">363 </span> e8/call <a href='107trace.subx.html#L732'>skip-next-line</a>/disp32 +<span id="L364" class="LineNr">364 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L365" class="LineNr">365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L366" class="LineNr">366 </span> eb/jump $trace-scan:<span class="Constant">loop</span>/disp8 +<span id="L367" class="LineNr">367 </span><span class="Constant">$trace-scan:false</span>: +<span id="L368" class="LineNr">368 </span> <span class="subxComment"># restore saved copy of Trace-stream->read</span> +<span id="L369" class="LineNr">369 </span> 8f 0/subop/pop 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># pop to *(esi+4)</span> +<span id="L370" class="LineNr">370 </span> <span class="subxComment"># return false</span> +<span id="L371" class="LineNr">371 </span> b8/copy-to-eax 0/imm32/false +<span id="L372" class="LineNr">372 </span><span class="Constant">$trace-scan:end</span>: +<span id="L373" class="LineNr">373 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L374" class="LineNr">374 </span> 59/pop-to-ecx +<span id="L375" class="LineNr">375 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L376" class="LineNr">376 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L377" class="LineNr">377 </span> 5d/pop-to-ebp +<span id="L378" class="LineNr">378 </span> c3/return +<span id="L379" class="LineNr">379 </span> +<span id="L380" class="LineNr">380 </span><span class="subxTest">test-trace-scan-first</span>: +<span id="L381" class="LineNr">381 </span> <span class="subxComment"># push *Trace-stream</span> +<span id="L382" class="LineNr">382 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L383" class="LineNr">383 </span> <span class="subxComment"># setup</span> +<span id="L384" class="LineNr">384 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> +<span id="L385" class="LineNr">385 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L386" class="LineNr">386 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L387" class="LineNr">387 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> +<span id="L388" class="LineNr">388 </span> e8/call <a href='107trace.subx.html#L840'>clear-trace-stream</a>/disp32 +<span id="L389" class="LineNr">389 </span> <span class="subxS1Comment"># . trace("Ab")</span> +<span id="L390" class="LineNr">390 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L391" class="LineNr">391 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . call</span> +<span id="L393" class="LineNr">393 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L395" class="LineNr">395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L396" class="LineNr">396 </span> <span class="subxComment"># eax = trace-scan("Ab")</span> +<span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L398" class="LineNr">398 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . call</span> +<span id="L400" class="LineNr">400 </span> e8/call <a href='107trace.subx.html#L304'>trace-scan</a>/disp32 +<span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L402" class="LineNr">402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L403" class="LineNr">403 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L404" class="LineNr">404 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L405" class="LineNr">405 </span> 68/push <span class="Constant">"F - test-trace-scan-first"</span>/imm32 +<span id="L406" class="LineNr">406 </span> 68/push 1/imm32 +<span id="L407" class="LineNr">407 </span> 50/push-eax +<span id="L408" class="LineNr">408 </span> <span class="subxS2Comment"># . . call</span> +<span id="L409" class="LineNr">409 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L410" class="LineNr">410 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L411" class="LineNr">411 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L412" class="LineNr">412 </span> <span class="subxComment"># pop into *Trace-stream</span> +<span id="L413" class="LineNr">413 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> +<span id="L414" class="LineNr">414 </span> <span class="subxS1Comment"># . end</span> +<span id="L415" class="LineNr">415 </span> c3/return +<span id="L416" class="LineNr">416 </span> +<span id="L417" class="LineNr">417 </span><span class="subxTest">test-trace-scan-skips-lines-until-found</span>: +<span id="L418" class="LineNr">418 </span> <span class="subxComment"># push *Trace-stream</span> +<span id="L419" class="LineNr">419 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L420" class="LineNr">420 </span> <span class="subxComment"># setup</span> +<span id="L421" class="LineNr">421 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> +<span id="L422" class="LineNr">422 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L423" class="LineNr">423 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L424" class="LineNr">424 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> +<span id="L425" class="LineNr">425 </span> e8/call <a href='107trace.subx.html#L840'>clear-trace-stream</a>/disp32 +<span id="L426" class="LineNr">426 </span> <span class="subxS1Comment"># . trace("Ab")</span> +<span id="L427" class="LineNr">427 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L428" class="LineNr">428 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L429" class="LineNr">429 </span> <span class="subxS2Comment"># . . call</span> +<span id="L430" class="LineNr">430 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L431" class="LineNr">431 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L432" class="LineNr">432 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L433" class="LineNr">433 </span> <span class="subxS1Comment"># . trace("cd")</span> +<span id="L434" class="LineNr">434 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L435" class="LineNr">435 </span> 68/push <span class="Constant">"cd"</span>/imm32 +<span id="L436" class="LineNr">436 </span> <span class="subxS2Comment"># . . call</span> +<span id="L437" class="LineNr">437 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L438" class="LineNr">438 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L439" class="LineNr">439 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L440" class="LineNr">440 </span> <span class="subxComment"># eax = trace-scan("cd")</span> +<span id="L441" class="LineNr">441 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L442" class="LineNr">442 </span> 68/push <span class="Constant">"cd"</span>/imm32 +<span id="L443" class="LineNr">443 </span> <span class="subxS2Comment"># . . call</span> +<span id="L444" class="LineNr">444 </span> e8/call <a href='107trace.subx.html#L304'>trace-scan</a>/disp32 +<span id="L445" class="LineNr">445 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L446" class="LineNr">446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L447" class="LineNr">447 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L448" class="LineNr">448 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L449" class="LineNr">449 </span> 68/push <span class="Constant">"F - test-trace-scan-skips-lines-until-found"</span>/imm32 +<span id="L450" class="LineNr">450 </span> 68/push 1/imm32 +<span id="L451" class="LineNr">451 </span> 50/push-eax +<span id="L452" class="LineNr">452 </span> <span class="subxS2Comment"># . . call</span> +<span id="L453" class="LineNr">453 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L454" class="LineNr">454 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L455" class="LineNr">455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L456" class="LineNr">456 </span> <span class="subxComment"># pop into *Trace-stream</span> +<span id="L457" class="LineNr">457 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> +<span id="L458" class="LineNr">458 </span> <span class="subxS1Comment"># . end</span> +<span id="L459" class="LineNr">459 </span> c3/return +<span id="L460" class="LineNr">460 </span> +<span id="L461" class="LineNr">461 </span><span class="subxTest">test-trace-second-scan-starts-where-first-left-off</span>: +<span id="L462" class="LineNr">462 </span> <span class="subxComment"># push *Trace-stream</span> +<span id="L463" class="LineNr">463 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L464" class="LineNr">464 </span> <span class="subxComment"># setup</span> +<span id="L465" class="LineNr">465 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> +<span id="L466" class="LineNr">466 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L467" class="LineNr">467 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L468" class="LineNr">468 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> +<span id="L469" class="LineNr">469 </span> e8/call <a href='107trace.subx.html#L840'>clear-trace-stream</a>/disp32 +<span id="L470" class="LineNr">470 </span> <span class="subxS1Comment"># . trace("Ab")</span> +<span id="L471" class="LineNr">471 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L472" class="LineNr">472 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L473" class="LineNr">473 </span> <span class="subxS2Comment"># . . call</span> +<span id="L474" class="LineNr">474 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L475" class="LineNr">475 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L476" class="LineNr">476 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L477" class="LineNr">477 </span> <span class="subxS1Comment"># . eax = trace-scan("Ab")</span> +<span id="L478" class="LineNr">478 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L479" class="LineNr">479 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L480" class="LineNr">480 </span> <span class="subxS2Comment"># . . call</span> +<span id="L481" class="LineNr">481 </span> e8/call <a href='107trace.subx.html#L304'>trace-scan</a>/disp32 +<span id="L482" class="LineNr">482 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L483" class="LineNr">483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L484" class="LineNr">484 </span> <span class="subxComment"># second scan fails</span> +<span id="L485" class="LineNr">485 </span> <span class="subxS1Comment"># . eax = trace-scan("Ab")</span> +<span id="L486" class="LineNr">486 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L487" class="LineNr">487 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L488" class="LineNr">488 </span> <span class="subxS2Comment"># . . call</span> +<span id="L489" class="LineNr">489 </span> e8/call <a href='107trace.subx.html#L304'>trace-scan</a>/disp32 +<span id="L490" class="LineNr">490 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L491" class="LineNr">491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L492" class="LineNr">492 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L493" class="LineNr">493 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L494" class="LineNr">494 </span> 68/push <span class="Constant">"F - test-trace-second-scan-starts-where-first-left-off"</span>/imm32 +<span id="L495" class="LineNr">495 </span> 68/push 0/imm32 +<span id="L496" class="LineNr">496 </span> 50/push-eax +<span id="L497" class="LineNr">497 </span> <span class="subxS2Comment"># . . call</span> +<span id="L498" class="LineNr">498 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L499" class="LineNr">499 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L500" class="LineNr">500 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L501" class="LineNr">501 </span> <span class="subxComment"># pop into *Trace-stream</span> +<span id="L502" class="LineNr">502 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> +<span id="L503" class="LineNr">503 </span> <span class="subxS1Comment"># . end</span> +<span id="L504" class="LineNr">504 </span> c3/return +<span id="L505" class="LineNr">505 </span> +<span id="L506" class="LineNr">506 </span><span class="subxTest">test-trace-scan-failure-leaves-read-index-untouched</span>: +<span id="L507" class="LineNr">507 </span> <span class="subxComment"># push *Trace-stream</span> +<span id="L508" class="LineNr">508 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L509" class="LineNr">509 </span> <span class="subxComment"># setup</span> +<span id="L510" class="LineNr">510 </span> <span class="subxS1Comment"># . *Trace-stream = _test-trace-stream</span> +<span id="L511" class="LineNr">511 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L512" class="LineNr">512 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy eax to *Trace-stream</span> +<span id="L513" class="LineNr">513 </span> <span class="subxS1Comment"># . clear-trace-stream()</span> +<span id="L514" class="LineNr">514 </span> e8/call <a href='107trace.subx.html#L840'>clear-trace-stream</a>/disp32 +<span id="L515" class="LineNr">515 </span> <span class="subxS1Comment"># . trace("Ab")</span> +<span id="L516" class="LineNr">516 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L517" class="LineNr">517 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L518" class="LineNr">518 </span> <span class="subxS2Comment"># . . call</span> +<span id="L519" class="LineNr">519 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L520" class="LineNr">520 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L521" class="LineNr">521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L522" class="LineNr">522 </span> <span class="subxS1Comment"># . check-ints-equal(_test-trace-stream->read, 0, msg)</span> +<span id="L523" class="LineNr">523 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L524" class="LineNr">524 </span> 68/push <span class="Constant">"F - <a href='107trace.subx.html#L506'>test-trace-scan-failure-leaves-read-index-untouched</a>/precondition-failure"</span>/imm32 +<span id="L525" class="LineNr">525 </span> 68/push 0/imm32 +<span id="L526" class="LineNr">526 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L527" class="LineNr">527 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L528" class="LineNr">528 </span> <span class="subxS2Comment"># . . call</span> +<span id="L529" class="LineNr">529 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L530" class="LineNr">530 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L531" class="LineNr">531 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L532" class="LineNr">532 </span> <span class="subxComment"># perform a failing scan</span> +<span id="L533" class="LineNr">533 </span> <span class="subxS1Comment"># . eax = trace-scan("Ax")</span> +<span id="L534" class="LineNr">534 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L535" class="LineNr">535 </span> 68/push <span class="Constant">"Ax"</span>/imm32 +<span id="L536" class="LineNr">536 </span> <span class="subxS2Comment"># . . call</span> +<span id="L537" class="LineNr">537 </span> e8/call <a href='107trace.subx.html#L304'>trace-scan</a>/disp32 +<span id="L538" class="LineNr">538 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L539" class="LineNr">539 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L540" class="LineNr">540 </span> <span class="subxComment"># no change in read index</span> +<span id="L541" class="LineNr">541 </span> <span class="subxS1Comment"># . check-ints-equal(_test-trace-stream->read, 0, msg)</span> +<span id="L542" class="LineNr">542 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L543" class="LineNr">543 </span> 68/push <span class="Constant">"F - test-trace-scan-failure-leaves-read-index-untouched"</span>/imm32 +<span id="L544" class="LineNr">544 </span> 68/push 0/imm32 +<span id="L545" class="LineNr">545 </span> b8/copy-to-eax <a href='107trace.subx.html#L26'>_test-trace-stream</a>/imm32 +<span id="L546" class="LineNr">546 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L547" class="LineNr">547 </span> <span class="subxS2Comment"># . . call</span> +<span id="L548" class="LineNr">548 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L549" class="LineNr">549 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L550" class="LineNr">550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L551" class="LineNr">551 </span> <span class="subxComment"># pop into *Trace-stream</span> +<span id="L552" class="LineNr">552 </span> 8f 0/subop/pop 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># pop into *Trace-stream</span> +<span id="L553" class="LineNr">553 </span> <span class="subxS1Comment"># . end</span> +<span id="L554" class="LineNr">554 </span> c3/return +<span id="L555" class="LineNr">555 </span> +<span id="L556" class="LineNr">556 </span><span class="subxFunction">next-line-matches?</span>: <span class="subxComment"># t: (addr stream byte), line: (addr array byte) -> result/eax: boolean</span> +<span id="L557" class="LineNr">557 </span> <span class="subxComment"># pseudocode:</span> +<span id="L558" class="LineNr">558 </span> <span class="subxComment"># while true:</span> +<span id="L559" class="LineNr">559 </span> <span class="subxComment"># if (currl >= maxl) break</span> +<span id="L560" class="LineNr">560 </span> <span class="subxComment"># if (currt >= maxt) return false</span> +<span id="L561" class="LineNr">561 </span> <span class="subxComment"># if (*currt != *currl) return false</span> +<span id="L562" class="LineNr">562 </span> <span class="subxComment"># ++currt</span> +<span id="L563" class="LineNr">563 </span> <span class="subxComment"># ++currl</span> +<span id="L564" class="LineNr">564 </span> <span class="subxComment"># return *currt == '\n'</span> +<span id="L565" class="LineNr">565 </span> <span class="subxComment">#</span> +<span id="L566" class="LineNr">566 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L567" class="LineNr">567 </span> 55/push-ebp +<span id="L568" class="LineNr">568 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L569" class="LineNr">569 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L570" class="LineNr">570 </span> 51/push-ecx +<span id="L571" class="LineNr">571 </span> 52/push-edx +<span id="L572" class="LineNr">572 </span> 53/push-ebx +<span id="L573" class="LineNr">573 </span> 56/push-esi +<span id="L574" class="LineNr">574 </span> 57/push-edi +<span id="L575" class="LineNr">575 </span> <span class="subxComment"># edx = line</span> +<span id="L576" class="LineNr">576 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L577" class="LineNr">577 </span> <span class="subxComment"># var currl/esi: (addr byte) = line->data</span> +<span id="L578" class="LineNr">578 </span> <span class="subxS1Comment"># . esi = line/edx->data</span> +<span id="L579" class="LineNr">579 </span> 8d/copy-address 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx+4 to esi</span> +<span id="L580" class="LineNr">580 </span> <span class="subxComment"># var maxl/ecx: (addr byte) = &line->data[line->size]</span> +<span id="L581" class="LineNr">581 </span> <span class="subxS1Comment"># . eax = line/edx->size</span> +<span id="L582" class="LineNr">582 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span> +<span id="L583" class="LineNr">583 </span> <span class="subxS1Comment"># . maxl = &line->data[line->size]</span> +<span id="L584" class="LineNr">584 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ecx</span> +<span id="L585" class="LineNr">585 </span> <span class="subxComment"># edi = t</span> +<span id="L586" class="LineNr">586 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L587" class="LineNr">587 </span> <span class="subxComment"># var ebx: (addr byte) = t->data</span> +<span id="L588" class="LineNr">588 </span> 8d/copy-address 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+12 to ebx</span> +<span id="L589" class="LineNr">589 </span> <span class="subxComment"># var maxt/edx: (addr byte) = &t->data[t->write]</span> +<span id="L590" class="LineNr">590 </span> <span class="subxS1Comment"># . eax = t->write</span> +<span id="L591" class="LineNr">591 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> +<span id="L592" class="LineNr">592 </span> <span class="subxS1Comment"># . maxt = &t->data[t->write]</span> +<span id="L593" class="LineNr">593 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 3/base/ebx 0/index/eax <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx+eax to edx</span> +<span id="L594" class="LineNr">594 </span> <span class="subxComment"># var currt/edi: (addr byte) = &t->data[t->read]</span> +<span id="L595" class="LineNr">595 </span> <span class="subxS1Comment"># . eax = t/edi->read</span> +<span id="L596" class="LineNr">596 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to eax</span> +<span id="L597" class="LineNr">597 </span> <span class="subxS1Comment"># . currt = &t->data[t->read]</span> +<span id="L598" class="LineNr">598 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 3/base/ebx 0/index/eax <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx+eax to edi</span> +<span id="L599" class="LineNr">599 </span><span class="Constant">$next-line-matches?:loop</span>: +<span id="L600" class="LineNr">600 </span> <span class="subxComment"># if (currl >= maxl) break</span> +<span id="L601" class="LineNr">601 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi and ecx</span> +<span id="L602" class="LineNr">602 </span> 73/jump-if-addr>= $next-line-matches?:<span class="Constant">break</span>/disp8 +<span id="L603" class="LineNr">603 </span> <span class="subxComment"># if (currt >= maxt) return false</span> +<span id="L604" class="LineNr">604 </span> <span class="subxS1Comment"># . eax = false</span> +<span id="L605" class="LineNr">605 </span> b8/copy-to-eax 0/imm32/false +<span id="L606" class="LineNr">606 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi and edx</span> +<span id="L607" class="LineNr">607 </span> 73/jump-if-addr>= $next-line-matches?:end/disp8 +<span id="L608" class="LineNr">608 </span> <span class="subxComment"># if (*currt != *currl) return false</span> +<span id="L609" class="LineNr">609 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L610" class="LineNr">610 </span> 31/xor 3/mod/direct 3/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L611" class="LineNr">611 </span> <span class="subxS1Comment"># . eax: byte = *currt</span> +<span id="L612" class="LineNr">612 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> +<span id="L613" class="LineNr">613 </span> <span class="subxS1Comment"># . ebx: byte = *currl</span> +<span id="L614" class="LineNr">614 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L615" class="LineNr">615 </span> <span class="subxS1Comment"># . eax >= ebx</span> +<span id="L616" class="LineNr">616 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax and ebx</span> +<span id="L617" class="LineNr">617 </span> <span class="subxS1Comment"># . eax = false</span> +<span id="L618" class="LineNr">618 </span> b8/copy-to-eax 0/imm32/false +<span id="L619" class="LineNr">619 </span> 75/jump-if-!= $next-line-matches?:end/disp8 +<span id="L620" class="LineNr">620 </span> <span class="subxComment"># ++currt</span> +<span id="L621" class="LineNr">621 </span> 47/increment-edi +<span id="L622" class="LineNr">622 </span> <span class="subxComment"># ++currl</span> +<span id="L623" class="LineNr">623 </span> 46/increment-esi +<span id="L624" class="LineNr">624 </span> eb/jump $next-line-matches?:<span class="Constant">loop</span>/disp8 +<span id="L625" class="LineNr">625 </span><span class="Constant">$next-line-matches?:break</span>: +<span id="L626" class="LineNr">626 </span> <span class="subxComment"># return *currt == '\n'</span> +<span id="L627" class="LineNr">627 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L628" class="LineNr">628 </span> <span class="subxS1Comment"># . eax: byte = *currt</span> +<span id="L629" class="LineNr">629 </span> 8a/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> +<span id="L630" class="LineNr">630 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L631" class="LineNr">631 </span> <span class="subxS1Comment"># . eax = false</span> +<span id="L632" class="LineNr">632 </span> b8/copy-to-eax 1/imm32/true +<span id="L633" class="LineNr">633 </span> 74/jump-if-= $next-line-matches?:end/disp8 +<span id="L634" class="LineNr">634 </span> b8/copy-to-eax 0/imm32/true +<span id="L635" class="LineNr">635 </span><span class="Constant">$next-line-matches?:end</span>: +<span id="L636" class="LineNr">636 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L637" class="LineNr">637 </span> 5f/pop-to-edi +<span id="L638" class="LineNr">638 </span> 5e/pop-to-esi +<span id="L639" class="LineNr">639 </span> 5b/pop-to-ebx +<span id="L640" class="LineNr">640 </span> 5a/pop-to-edx +<span id="L641" class="LineNr">641 </span> 59/pop-to-ecx +<span id="L642" class="LineNr">642 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L643" class="LineNr">643 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L644" class="LineNr">644 </span> 5d/pop-to-ebp +<span id="L645" class="LineNr">645 </span> c3/return +<span id="L646" class="LineNr">646 </span> +<span id="L647" class="LineNr">647 </span><span class="subxTest">test-next-line-matches?-no-match-1</span>: +<span id="L648" class="LineNr">648 </span> <span class="subxComment"># next line of "ABABA" does not match "blah blah"</span> +<span id="L649" class="LineNr">649 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "blah blah")</span> +<span id="L650" class="LineNr">650 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L651" class="LineNr">651 </span> 68/push <span class="Constant">"blah blah"</span>/imm32 +<span id="L652" class="LineNr">652 </span> 68/push <a href='107trace.subx.html#L957'>_test-stream-line-ABABA</a>/imm32 +<span id="L653" class="LineNr">653 </span> <span class="subxS2Comment"># . . call</span> +<span id="L654" class="LineNr">654 </span> e8/call <a href='107trace.subx.html#L556'>next-line-matches?</a>/disp32 +<span id="L655" class="LineNr">655 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L656" class="LineNr">656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L657" class="LineNr">657 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 0, msg)</span> +<span id="L658" class="LineNr">658 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L659" class="LineNr">659 </span> 68/push <span class="Constant">"F - test-next-line-matches?-no-match-1"</span>/imm32 +<span id="L660" class="LineNr">660 </span> 68/push 0/imm32 +<span id="L661" class="LineNr">661 </span> 50/push-eax +<span id="L662" class="LineNr">662 </span> <span class="subxS2Comment"># . . call</span> +<span id="L663" class="LineNr">663 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L664" class="LineNr">664 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L665" class="LineNr">665 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L666" class="LineNr">666 </span> c3/return +<span id="L667" class="LineNr">667 </span> +<span id="L668" class="LineNr">668 </span><span class="subxTest">test-next-line-matches?-no-match-2</span>: +<span id="L669" class="LineNr">669 </span> <span class="subxComment"># next line of "ABABA" does not match ""</span> +<span id="L670" class="LineNr">670 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "")</span> +<span id="L671" class="LineNr">671 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L672" class="LineNr">672 </span> 68/push <span class="Constant">""</span>/imm32 +<span id="L673" class="LineNr">673 </span> 68/push <a href='107trace.subx.html#L957'>_test-stream-line-ABABA</a>/imm32 +<span id="L674" class="LineNr">674 </span> <span class="subxS2Comment"># . . call</span> +<span id="L675" class="LineNr">675 </span> e8/call <a href='107trace.subx.html#L556'>next-line-matches?</a>/disp32 +<span id="L676" class="LineNr">676 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L677" class="LineNr">677 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L678" class="LineNr">678 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 0, msg)</span> +<span id="L679" class="LineNr">679 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L680" class="LineNr">680 </span> 68/push <span class="Constant">"F - test-next-line-matches?-no-match-2"</span>/imm32 +<span id="L681" class="LineNr">681 </span> 68/push 0/imm32 +<span id="L682" class="LineNr">682 </span> 50/push-eax +<span id="L683" class="LineNr">683 </span> <span class="subxS2Comment"># . . call</span> +<span id="L684" class="LineNr">684 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L685" class="LineNr">685 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L686" class="LineNr">686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L687" class="LineNr">687 </span> c3/return +<span id="L688" class="LineNr">688 </span> +<span id="L689" class="LineNr">689 </span><span class="subxTest">test-next-line-matches?-no-match-3</span>: +<span id="L690" class="LineNr">690 </span> <span class="subxComment"># next line of "ABABA" does not match "AA"</span> +<span id="L691" class="LineNr">691 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "AA")</span> +<span id="L692" class="LineNr">692 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L693" class="LineNr">693 </span> 68/push <span class="Constant">"AA"</span>/imm32 +<span id="L694" class="LineNr">694 </span> 68/push <a href='107trace.subx.html#L957'>_test-stream-line-ABABA</a>/imm32 +<span id="L695" class="LineNr">695 </span> <span class="subxS2Comment"># . . call</span> +<span id="L696" class="LineNr">696 </span> e8/call <a href='107trace.subx.html#L556'>next-line-matches?</a>/disp32 +<span id="L697" class="LineNr">697 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L698" class="LineNr">698 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L699" class="LineNr">699 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 0, msg)</span> +<span id="L700" class="LineNr">700 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L701" class="LineNr">701 </span> 68/push <span class="Constant">"F - test-next-line-matches?-no-match-3"</span>/imm32 +<span id="L702" class="LineNr">702 </span> 68/push 0/imm32 +<span id="L703" class="LineNr">703 </span> 50/push-eax +<span id="L704" class="LineNr">704 </span> <span class="subxS2Comment"># . . call</span> +<span id="L705" class="LineNr">705 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L706" class="LineNr">706 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L707" class="LineNr">707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L708" class="LineNr">708 </span> c3/return +<span id="L709" class="LineNr">709 </span> +<span id="L710" class="LineNr">710 </span><span class="subxTest">test-next-line-matches?-match</span>: +<span id="L711" class="LineNr">711 </span> <span class="subxComment"># next line of "ABABA" matches "ABABA"</span> +<span id="L712" class="LineNr">712 </span> <span class="subxS1Comment"># . eax = next-line-matches?(_test-stream-line-ABABA, "ABABA")</span> +<span id="L713" class="LineNr">713 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L714" class="LineNr">714 </span> 68/push <span class="Constant">"ABABA"</span>/imm32 +<span id="L715" class="LineNr">715 </span> 68/push <a href='107trace.subx.html#L957'>_test-stream-line-ABABA</a>/imm32 +<span id="L716" class="LineNr">716 </span> <span class="subxS2Comment"># . . call</span> +<span id="L717" class="LineNr">717 </span> e8/call <a href='107trace.subx.html#L556'>next-line-matches?</a>/disp32 +<span id="L718" class="LineNr">718 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L719" class="LineNr">719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L720" class="LineNr">720 </span> <span class="subxS1Comment"># . check-ints-equal(eax, 1, msg)</span> +<span id="L721" class="LineNr">721 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L722" class="LineNr">722 </span> 68/push <span class="Constant">"F - test-next-line-matches?-match"</span>/imm32 +<span id="L723" class="LineNr">723 </span> 68/push 1/imm32 +<span id="L724" class="LineNr">724 </span> 50/push-eax +<span id="L725" class="LineNr">725 </span> <span class="subxS2Comment"># . . call</span> +<span id="L726" class="LineNr">726 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L727" class="LineNr">727 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L728" class="LineNr">728 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L729" class="LineNr">729 </span> c3/return +<span id="L730" class="LineNr">730 </span> +<span id="L731" class="LineNr">731 </span><span class="subxComment"># move t->read to _after_ next newline</span> +<span id="L732" class="LineNr">732 </span><span class="subxFunction">skip-next-line</span>: <span class="subxComment"># t: (addr stream byte)</span> +<span id="L733" class="LineNr">733 </span> <span class="subxComment"># pseudocode:</span> +<span id="L734" class="LineNr">734 </span> <span class="subxComment"># max = &t->data[t->write]</span> +<span id="L735" class="LineNr">735 </span> <span class="subxComment"># i = t->read</span> +<span id="L736" class="LineNr">736 </span> <span class="subxComment"># curr = &t->data[t->read]</span> +<span id="L737" class="LineNr">737 </span> <span class="subxComment"># while true</span> +<span id="L738" class="LineNr">738 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L739" class="LineNr">739 </span> <span class="subxComment"># ++i</span> +<span id="L740" class="LineNr">740 </span> <span class="subxComment"># if (*curr == '\n') break</span> +<span id="L741" class="LineNr">741 </span> <span class="subxComment"># ++curr</span> +<span id="L742" class="LineNr">742 </span> <span class="subxComment"># t->read = i</span> +<span id="L743" class="LineNr">743 </span> <span class="subxComment">#</span> +<span id="L744" class="LineNr">744 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L745" class="LineNr">745 </span> 55/push-ebp +<span id="L746" class="LineNr">746 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L747" class="LineNr">747 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L748" class="LineNr">748 </span> 50/push-eax +<span id="L749" class="LineNr">749 </span> 51/push-ecx +<span id="L750" class="LineNr">750 </span> 52/push-edx +<span id="L751" class="LineNr">751 </span> 53/push-ebx +<span id="L752" class="LineNr">752 </span> <span class="subxComment"># ecx = t</span> +<span id="L753" class="LineNr">753 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L754" class="LineNr">754 </span> <span class="subxComment"># edx = t->data</span> +<span id="L755" class="LineNr">755 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+12 to edx</span> +<span id="L756" class="LineNr">756 </span> <span class="subxComment"># eax = t->write</span> +<span id="L757" class="LineNr">757 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L758" class="LineNr">758 </span> <span class="subxComment"># var max/ebx: (addr byte) = &t->data[t->write]</span> +<span id="L759" class="LineNr">759 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 2/base/edx 0/index/eax <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ebx</span> +<span id="L760" class="LineNr">760 </span> <span class="subxComment"># eax = t->read</span> +<span id="L761" class="LineNr">761 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L762" class="LineNr">762 </span> <span class="subxComment"># var curr/ecx: (addr byte) = &t->data[t->read]</span> +<span id="L763" class="LineNr">763 </span> 8d/copy-address 0/mod/indirect 4/rm32/sib 2/base/edx 0/index/eax <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edx+eax to ecx</span> +<span id="L764" class="LineNr">764 </span> <span class="subxComment"># var i/edx: int = t->read</span> +<span id="L765" class="LineNr">765 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L766" class="LineNr">766 </span><span class="Constant">$skip-next-line:loop</span>: +<span id="L767" class="LineNr">767 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L768" class="LineNr">768 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx and ebx</span> +<span id="L769" class="LineNr">769 </span> 73/jump-if-addr>= $skip-next-line:end/disp8 +<span id="L770" class="LineNr">770 </span> <span class="subxComment"># ++i</span> +<span id="L771" class="LineNr">771 </span> 42/increment-edx +<span id="L772" class="LineNr">772 </span> <span class="subxComment"># if (*curr == '\n') break</span> +<span id="L773" class="LineNr">773 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L774" class="LineNr">774 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L775" class="LineNr">775 </span> 3d/compare-eax-and 0a/imm32/newline +<span id="L776" class="LineNr">776 </span> 74/jump-if-= $skip-next-line:end/disp8 +<span id="L777" class="LineNr">777 </span> <span class="subxComment"># ++curr</span> +<span id="L778" class="LineNr">778 </span> 41/increment-ecx +<span id="L779" class="LineNr">779 </span> <span class="subxComment"># loop</span> +<span id="L780" class="LineNr">780 </span> eb/jump $skip-next-line:<span class="Constant">loop</span>/disp8 +<span id="L781" class="LineNr">781 </span><span class="Constant">$skip-next-line:end</span>: +<span id="L782" class="LineNr">782 </span> <span class="subxComment"># ecx = t</span> +<span id="L783" class="LineNr">783 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L784" class="LineNr">784 </span> <span class="subxComment"># t->read = i</span> +<span id="L785" class="LineNr">785 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx to *(ecx+4)</span> +<span id="L786" class="LineNr">786 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L787" class="LineNr">787 </span> 5b/pop-to-ebx +<span id="L788" class="LineNr">788 </span> 5a/pop-to-edx +<span id="L789" class="LineNr">789 </span> 59/pop-to-ecx +<span id="L790" class="LineNr">790 </span> 58/pop-to-eax +<span id="L791" class="LineNr">791 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L792" class="LineNr">792 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L793" class="LineNr">793 </span> 5d/pop-to-ebp +<span id="L794" class="LineNr">794 </span> c3/return +<span id="L795" class="LineNr">795 </span> +<span id="L796" class="LineNr">796 </span><span class="subxTest">test-skip-next-line-empty</span>: +<span id="L797" class="LineNr">797 </span> <span class="subxComment"># skipping next line in empty stream leaves read pointer at 0</span> +<span id="L798" class="LineNr">798 </span> <span class="subxS1Comment"># . skip-next-line(_test-stream-empty)</span> +<span id="L799" class="LineNr">799 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L800" class="LineNr">800 </span> 68/push <a href='107trace.subx.html#L967'>_test-stream-empty</a>/imm32 +<span id="L801" class="LineNr">801 </span> <span class="subxS2Comment"># . . call</span> +<span id="L802" class="LineNr">802 </span> e8/call <a href='107trace.subx.html#L732'>skip-next-line</a>/disp32 +<span id="L803" class="LineNr">803 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L804" class="LineNr">804 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L805" class="LineNr">805 </span> <span class="subxS1Comment"># . check-ints-equal(_test-stream-empty->read, 0, msg)</span> +<span id="L806" class="LineNr">806 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L807" class="LineNr">807 </span> 68/push <span class="Constant">"F - test-skip-next-line-empty"</span>/imm32 +<span id="L808" class="LineNr">808 </span> 68/push 0/imm32 +<span id="L809" class="LineNr">809 </span> b8/copy-to-eax <a href='107trace.subx.html#L967'>_test-stream-empty</a>/imm32 +<span id="L810" class="LineNr">810 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L811" class="LineNr">811 </span> 50/push-eax +<span id="L812" class="LineNr">812 </span> <span class="subxS2Comment"># . . call</span> +<span id="L813" class="LineNr">813 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L814" class="LineNr">814 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L815" class="LineNr">815 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L816" class="LineNr">816 </span> c3/return +<span id="L817" class="LineNr">817 </span> +<span id="L818" class="LineNr">818 </span><span class="subxTest">test-skip-next-line-filled</span>: +<span id="L819" class="LineNr">819 </span> <span class="subxComment"># skipping next line increments read pointer by length of line + 1 (for newline)</span> +<span id="L820" class="LineNr">820 </span> <span class="subxS1Comment"># . skip-next-line(_test-stream-filled)</span> +<span id="L821" class="LineNr">821 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L822" class="LineNr">822 </span> 68/push <a href='107trace.subx.html#L977'>_test-stream-filled</a>/imm32 +<span id="L823" class="LineNr">823 </span> <span class="subxS2Comment"># . . call</span> +<span id="L824" class="LineNr">824 </span> e8/call <a href='107trace.subx.html#L732'>skip-next-line</a>/disp32 +<span id="L825" class="LineNr">825 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L826" class="LineNr">826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L827" class="LineNr">827 </span> <span class="subxS1Comment"># . check-ints-equal(_test-stream-filled->read, 5, msg)</span> +<span id="L828" class="LineNr">828 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L829" class="LineNr">829 </span> 68/push <span class="Constant">"F - test-skip-next-line-filled"</span>/imm32 +<span id="L830" class="LineNr">830 </span> 68/push 5/imm32 +<span id="L831" class="LineNr">831 </span> b8/copy-to-eax <a href='107trace.subx.html#L977'>_test-stream-filled</a>/imm32 +<span id="L832" class="LineNr">832 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L833" class="LineNr">833 </span> 50/push-eax +<span id="L834" class="LineNr">834 </span> <span class="subxS2Comment"># . . call</span> +<span id="L835" class="LineNr">835 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L836" class="LineNr">836 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L837" class="LineNr">837 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L838" class="LineNr">838 </span> c3/return +<span id="L839" class="LineNr">839 </span> +<span id="L840" class="LineNr">840 </span><span class="subxFunction">clear-trace-stream</span>: +<span id="L841" class="LineNr">841 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L842" class="LineNr">842 </span> 55/push-ebp +<span id="L843" class="LineNr">843 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L844" class="LineNr">844 </span> <span class="subxComment"># clear-stream(*Trace-stream)</span> +<span id="L845" class="LineNr">845 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L846" class="LineNr">846 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L847" class="LineNr">847 </span> <span class="subxS2Comment"># . . call</span> +<span id="L848" class="LineNr">848 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L849" class="LineNr">849 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L850" class="LineNr">850 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L851" class="LineNr">851 </span><span class="Constant">$clear-trace-stream:end</span>: +<span id="L852" class="LineNr">852 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L853" class="LineNr">853 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L854" class="LineNr">854 </span> 5d/pop-to-ebp +<span id="L855" class="LineNr">855 </span> c3/return +<span id="L856" class="LineNr">856 </span> +<span id="L857" class="LineNr">857 </span><span class="subxH1Comment"># - helpers</span> +<span id="L858" class="LineNr">858 </span> +<span id="L859" class="LineNr">859 </span><span class="subxComment"># 3-argument variant of _append</span> +<span id="L860" class="LineNr">860 </span><span class="subxMinorFunction">_append-3</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), s: (addr array byte) -> num_bytes_appended/eax</span> +<span id="L861" class="LineNr">861 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L862" class="LineNr">862 </span> 55/push-ebp +<span id="L863" class="LineNr">863 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L864" class="LineNr">864 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L865" class="LineNr">865 </span> 51/push-ecx +<span id="L866" class="LineNr">866 </span> <span class="subxComment"># eax = _append-4(out, outend, &s->data[0], &s->data[s->size])</span> +<span id="L867" class="LineNr">867 </span> <span class="subxS2Comment"># . . push &s->data[s->size]</span> +<span id="L868" class="LineNr">868 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L869" class="LineNr">869 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L870" class="LineNr">870 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L871" class="LineNr">871 </span> 51/push-ecx +<span id="L872" class="LineNr">872 </span> <span class="subxS2Comment"># . . push &s->data[0]</span> +<span id="L873" class="LineNr">873 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+4 to ecx</span> +<span id="L874" class="LineNr">874 </span> 51/push-ecx +<span id="L875" class="LineNr">875 </span> <span class="subxS2Comment"># . . push outend</span> +<span id="L876" class="LineNr">876 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L877" class="LineNr">877 </span> <span class="subxS2Comment"># . . push out</span> +<span id="L878" class="LineNr">878 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L879" class="LineNr">879 </span> <span class="subxS2Comment"># . . call</span> +<span id="L880" class="LineNr">880 </span> e8/call <a href='107trace.subx.html#L892'>_append-4</a>/disp32 +<span id="L881" class="LineNr">881 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L882" class="LineNr">882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L883" class="LineNr">883 </span><span class="Constant">$_append-3:end</span>: +<span id="L884" class="LineNr">884 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L885" class="LineNr">885 </span> 59/pop-to-ecx +<span id="L886" class="LineNr">886 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L887" class="LineNr">887 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L888" class="LineNr">888 </span> 5d/pop-to-ebp +<span id="L889" class="LineNr">889 </span> c3/return +<span id="L890" class="LineNr">890 </span> +<span id="L891" class="LineNr">891 </span><span class="subxComment"># 4-argument variant of _append</span> +<span id="L892" class="LineNr">892 </span><span class="subxMinorFunction">_append-4</span>: <span class="subxComment"># out: (addr byte), outend: (addr byte), in: (addr byte), inend: (addr byte) -> num_bytes_appended/eax: int</span> +<span id="L893" class="LineNr">893 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L894" class="LineNr">894 </span> 55/push-ebp +<span id="L895" class="LineNr">895 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L896" class="LineNr">896 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L897" class="LineNr">897 </span> 51/push-ecx +<span id="L898" class="LineNr">898 </span> 52/push-edx +<span id="L899" class="LineNr">899 </span> 53/push-ebx +<span id="L900" class="LineNr">900 </span> 56/push-esi +<span id="L901" class="LineNr">901 </span> 57/push-edi +<span id="L902" class="LineNr">902 </span> <span class="subxComment"># num_bytes_appended = 0</span> +<span id="L903" class="LineNr">903 </span> b8/copy-to-eax 0/imm32 +<span id="L904" class="LineNr">904 </span> <span class="subxComment"># edi = out</span> +<span id="L905" class="LineNr">905 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L906" class="LineNr">906 </span> <span class="subxComment"># edx = outend</span> +<span id="L907" class="LineNr">907 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L908" class="LineNr">908 </span> <span class="subxComment"># esi = in</span> +<span id="L909" class="LineNr">909 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to esi</span> +<span id="L910" class="LineNr">910 </span> <span class="subxComment"># ecx = inend</span> +<span id="L911" class="LineNr">911 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> +<span id="L912" class="LineNr">912 </span><span class="Constant">$_append-4:loop</span>: +<span id="L913" class="LineNr">913 </span> <span class="subxComment"># if (in >= inend) break</span> +<span id="L914" class="LineNr">914 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> +<span id="L915" class="LineNr">915 </span> 73/jump-if-addr>= $_append-4:end/disp8 +<span id="L916" class="LineNr">916 </span> <span class="subxComment"># if (out >= outend) abort # just to catch test failures fast</span> +<span id="L917" class="LineNr">917 </span> 39/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare edi with edx</span> +<span id="L918" class="LineNr">918 </span> 73/jump-if-addr>= $_append-4:abort/disp8 +<span id="L919" class="LineNr">919 </span> <span class="subxComment"># *out = *in</span> +<span id="L920" class="LineNr">920 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to BL</span> +<span id="L921" class="LineNr">921 </span> 88/copy-byte 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at BL to *edi</span> +<span id="L922" class="LineNr">922 </span> <span class="subxComment"># ++num_bytes_appended</span> +<span id="L923" class="LineNr">923 </span> 40/increment-eax +<span id="L924" class="LineNr">924 </span> <span class="subxComment"># ++in</span> +<span id="L925" class="LineNr">925 </span> 46/increment-esi +<span id="L926" class="LineNr">926 </span> <span class="subxComment"># ++out</span> +<span id="L927" class="LineNr">927 </span> 47/increment-edi +<span id="L928" class="LineNr">928 </span> eb/jump $_append-4:<span class="Constant">loop</span>/disp8 +<span id="L929" class="LineNr">929 </span><span class="Constant">$_append-4:end</span>: +<span id="L930" class="LineNr">930 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L931" class="LineNr">931 </span> 5f/pop-to-edi +<span id="L932" class="LineNr">932 </span> 5e/pop-to-esi +<span id="L933" class="LineNr">933 </span> 5b/pop-to-ebx +<span id="L934" class="LineNr">934 </span> 5a/pop-to-edx +<span id="L935" class="LineNr">935 </span> 59/pop-to-ecx +<span id="L936" class="LineNr">936 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L937" class="LineNr">937 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L938" class="LineNr">938 </span> 5d/pop-to-ebp +<span id="L939" class="LineNr">939 </span> c3/return +<span id="L940" class="LineNr">940 </span> +<span id="L941" class="LineNr">941 </span><span class="Constant">$_append-4:abort</span>: +<span id="L942" class="LineNr">942 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L943" class="LineNr">943 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L944" class="LineNr">944 </span> 68/push <span class="Constant">"stream overflow\n"</span>/imm32 +<span id="L945" class="LineNr">945 </span> 68/push 2/imm32/stderr +<span id="L946" class="LineNr">946 </span> <span class="subxS2Comment"># . . call</span> +<span id="L947" class="LineNr">947 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L948" class="LineNr">948 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L949" class="LineNr">949 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L950" class="LineNr">950 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L951" class="LineNr">951 </span> bb/copy-to-ebx 1/imm32 +<span id="L952" class="LineNr">952 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L953" class="LineNr">953 </span> <span class="subxComment"># never gets here</span> +<span id="L954" class="LineNr">954 </span> +<span id="L955" class="LineNr">955 </span>== data +<span id="L956" class="LineNr">956 </span> +<span id="L957" class="LineNr">957 </span><span class="subxMinorFunction">_test-stream-line-ABABA</span>: <span class="subxComment"># (stream byte)</span> +<span id="L958" class="LineNr">958 </span> <span class="subxComment"># write</span> +<span id="L959" class="LineNr">959 </span> 8/imm32 +<span id="L960" class="LineNr">960 </span> <span class="subxComment"># read</span> +<span id="L961" class="LineNr">961 </span> 0/imm32 +<span id="L962" class="LineNr">962 </span> <span class="subxComment"># size</span> +<span id="L963" class="LineNr">963 </span> 8/imm32 +<span id="L964" class="LineNr">964 </span> <span class="subxComment"># data</span> +<span id="L965" class="LineNr">965 </span> 41 42 41 42 41 0a 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L966" class="LineNr">966 </span> +<span id="L967" class="LineNr">967 </span><span class="subxMinorFunction">_test-stream-empty</span>: <span class="subxComment"># (stream byte)</span> +<span id="L968" class="LineNr">968 </span> <span class="subxComment"># write</span> +<span id="L969" class="LineNr">969 </span> 0/imm32 +<span id="L970" class="LineNr">970 </span> <span class="subxComment"># read</span> +<span id="L971" class="LineNr">971 </span> 0/imm32 +<span id="L972" class="LineNr">972 </span> <span class="subxComment"># size</span> +<span id="L973" class="LineNr">973 </span> 8/imm32 +<span id="L974" class="LineNr">974 </span> <span class="subxComment"># data</span> +<span id="L975" class="LineNr">975 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L976" class="LineNr">976 </span> +<span id="L977" class="LineNr">977 </span><span class="subxMinorFunction">_test-stream-filled</span>: <span class="subxComment"># (stream byte)</span> +<span id="L978" class="LineNr">978 </span> <span class="subxComment"># write</span> +<span id="L979" class="LineNr">979 </span> 8/imm32 +<span id="L980" class="LineNr">980 </span> <span class="subxComment"># read</span> +<span id="L981" class="LineNr">981 </span> 0/imm32 +<span id="L982" class="LineNr">982 </span> <span class="subxComment"># size</span> +<span id="L983" class="LineNr">983 </span> 8/imm32 +<span id="L984" class="LineNr">984 </span> <span class="subxComment"># data</span> +<span id="L985" class="LineNr">985 </span> 41 41 41 41 0a 41 41 41 <span class="subxComment"># 8 bytes</span> +<span id="L986" class="LineNr">986 </span> +<span id="L987" class="LineNr">987 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/linux/108write.subx.html b/html/linux/108write.subx.html new file mode 100644 index 00000000..2dcb11f1 --- /dev/null +++ b/html/linux/108write.subx.html @@ -0,0 +1,226 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/108write.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/108write.subx'>https://github.com/akkartik/mu/blob/main/linux/108write.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write: like _write, but also support in-memory streams in addition to file</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># descriptors.</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># Our first dependency-injected and testable primitive. We can pass it either</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># a file descriptor or an address to a stream. If a file descriptor is passed</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># in, we _write to it using the right syscall. If a 'fake file descriptor' or</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># stream is passed in, we append to the stream. This lets us redirect output</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># in tests and check it later.</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># We assume our data segment will never begin at an address shorter than</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 0x08000000, so any smaller arguments are assumed to be real file descriptors.</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># A stream looks like this:</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># read: int # index at which to read next</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># write: int # index at which writes go</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># data: (array byte) # prefixed by size as usual</span> +<span id="L17" class="LineNr"> 17 </span> +<span id="L18" class="LineNr"> 18 </span>== code +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L20" class="LineNr"> 20 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L21" class="LineNr"> 21 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L22" class="LineNr"> 22 </span> +<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># TODO: come up with a way to signal when a write to disk fails</span> +<span id="L24" class="LineNr"> 24 </span><span class="subxFunction">write</span>: <span class="subxComment"># f: fd or (addr stream byte), s: (addr array byte)</span> +<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26" class="LineNr"> 26 </span> 55/push-ebp +<span id="L27" class="LineNr"> 27 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># if (s == 0) return</span> +<span id="L29" class="LineNr"> 29 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 0/imm32 <span class="subxComment"># compare *(ebp+12)</span> +<span id="L30" class="LineNr"> 30 </span> 74/jump-if-= $write:end/disp8 +<span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># if (f < 0x08000000) _write(f, s) and return # f can't be a user-mode address, so treat it as a kernel file descriptor</span> +<span id="L32" class="LineNr"> 32 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x08000000/imm32 <span class="subxComment"># compare *(ebp+8)</span> +<span id="L33" class="LineNr"> 33 </span> 73/jump-if-addr>= $write:fake/disp8 +<span id="L34" class="LineNr"> 34 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L35" class="LineNr"> 35 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L36" class="LineNr"> 36 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . call</span> +<span id="L38" class="LineNr"> 38 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L40" class="LineNr"> 40 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L41" class="LineNr"> 41 </span> eb/jump $write:end/disp8 +<span id="L42" class="LineNr"> 42 </span><span class="Constant">$write:fake</span>: +<span id="L43" class="LineNr"> 43 </span> <span class="subxComment"># otherwise, treat 'f' as a stream to append to</span> +<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L45" class="LineNr"> 45 </span> 50/push-eax +<span id="L46" class="LineNr"> 46 </span> 51/push-ecx +<span id="L47" class="LineNr"> 47 </span> 52/push-edx +<span id="L48" class="LineNr"> 48 </span> 53/push-ebx +<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># ecx = f</span> +<span id="L50" class="LineNr"> 50 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># edx = f->write</span> +<span id="L52" class="LineNr"> 52 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># ebx = f->size</span> +<span id="L54" class="LineNr"> 54 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+8) to ebx</span> +<span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># eax = _append-3(&f->data[f->write], &f->data[f->size], s)</span> +<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . push s</span> +<span id="L57" class="LineNr"> 57 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . push &f->data[f->size]</span> +<span id="L59" class="LineNr"> 59 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 3/index/ebx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+ebx+12 to ebx</span> +<span id="L60" class="LineNr"> 60 </span> 53/push-ebx +<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . push &f->data[f->write]</span> +<span id="L62" class="LineNr"> 62 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 1/base/ecx 2/index/edx <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+edx+12 to ebx</span> +<span id="L63" class="LineNr"> 63 </span> 53/push-ebx +<span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . call</span> +<span id="L65" class="LineNr"> 65 </span> e8/call <a href='107trace.subx.html#L860'>_append-3</a>/disp32 +<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L67" class="LineNr"> 67 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># f->write += eax</span> +<span id="L69" class="LineNr"> 69 </span> 01/add 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *ecx</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L71" class="LineNr"> 71 </span> 5b/pop-to-ebx +<span id="L72" class="LineNr"> 72 </span> 5a/pop-to-edx +<span id="L73" class="LineNr"> 73 </span> 59/pop-to-ecx +<span id="L74" class="LineNr"> 74 </span> 58/pop-to-eax +<span id="L75" class="LineNr"> 75 </span><span class="Constant">$write:end</span>: +<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L77" class="LineNr"> 77 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L78" class="LineNr"> 78 </span> 5d/pop-to-ebp +<span id="L79" class="LineNr"> 79 </span> c3/return +<span id="L80" class="LineNr"> 80 </span> +<span id="L81" class="LineNr"> 81 </span><span class="subxTest">test-write-single</span>: +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># clear-stream(_test-stream)</span> +<span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . call</span> +<span id="L86" class="LineNr"> 86 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L88" class="LineNr"> 88 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># write(_test-stream, "Ab")</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L91" class="LineNr"> 91 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L92" class="LineNr"> 92 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . call</span> +<span id="L94" class="LineNr"> 94 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L96" class="LineNr"> 96 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 41/A 62/b 00 00, msg)</span> +<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L99" class="LineNr"> 99 </span> 68/push <span class="Constant">"F - test-write-single"</span>/imm32 +<span id="L100" class="LineNr">100 </span> 68/push 0x006241/imm32/Ab +<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> +<span id="L102" class="LineNr">102 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L103" class="LineNr">103 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> +<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . call</span> +<span id="L105" class="LineNr">105 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L107" class="LineNr">107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L108" class="LineNr">108 </span> <span class="subxComment"># end</span> +<span id="L109" class="LineNr">109 </span> c3/return +<span id="L110" class="LineNr">110 </span> +<span id="L111" class="LineNr">111 </span><span class="subxTest">test-write-appends</span>: +<span id="L112" class="LineNr">112 </span> <span class="subxComment"># clear-stream(_test-stream)</span> +<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L114" class="LineNr">114 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . call</span> +<span id="L116" class="LineNr">116 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L117" class="LineNr">117 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L118" class="LineNr">118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L119" class="LineNr">119 </span> <span class="subxComment"># write(_test-stream, "C")</span> +<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L121" class="LineNr">121 </span> 68/push <span class="Constant">"C"</span>/imm32 +<span id="L122" class="LineNr">122 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . call</span> +<span id="L124" class="LineNr">124 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L126" class="LineNr">126 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L127" class="LineNr">127 </span> <span class="subxComment"># write(_test-stream, "D")</span> +<span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L129" class="LineNr">129 </span> 68/push <span class="Constant">"D"</span>/imm32 +<span id="L130" class="LineNr">130 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . call</span> +<span id="L132" class="LineNr">132 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L133" class="LineNr">133 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L134" class="LineNr">134 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L135" class="LineNr">135 </span> <span class="subxComment"># check-ints-equal(*_test-stream->data, 43/C 44/D 00 00, msg)</span> +<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L137" class="LineNr">137 </span> 68/push <span class="Constant">"F - test-write-appends"</span>/imm32 +<span id="L138" class="LineNr">138 </span> 68/push 0x00004443/imm32/C-D +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . push *_test-stream->data</span> +<span id="L140" class="LineNr">140 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L141" class="LineNr">141 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> +<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . call</span> +<span id="L143" class="LineNr">143 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L145" class="LineNr">145 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L146" class="LineNr">146 </span> <span class="subxComment"># end</span> +<span id="L147" class="LineNr">147 </span> c3/return +<span id="L148" class="LineNr">148 </span> +<span id="L149" class="LineNr">149 </span>== data +<span id="L150" class="LineNr">150 </span> +<span id="L151" class="LineNr">151 </span><span class="subxMinorFunction">_test-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L152" class="LineNr">152 </span> <span class="subxComment"># current write index</span> +<span id="L153" class="LineNr">153 </span> 0/imm32 +<span id="L154" class="LineNr">154 </span> <span class="subxComment"># current read index</span> +<span id="L155" class="LineNr">155 </span> 0/imm32 +<span id="L156" class="LineNr">156 </span> <span class="subxComment"># size</span> +<span id="L157" class="LineNr">157 </span> 0x10/imm32 +<span id="L158" class="LineNr">158 </span> <span class="subxComment"># data (2 lines x 8 bytes/line)</span> +<span id="L159" class="LineNr">159 </span> 00 00 00 00 00 00 00 00 +<span id="L160" class="LineNr">160 </span> 00 00 00 00 00 00 00 00 +<span id="L161" class="LineNr">161 </span> +<span id="L162" class="LineNr">162 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/109stream-equal.subx.html b/html/linux/109stream-equal.subx.html index c77c609b..5eac5530 100644 --- a/html/baremetal/109stream-equal.subx.html +++ b/html/linux/109stream-equal.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/109stream-equal.subx</title> +<title>Mu - linux/109stream-equal.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/109stream-equal.subx'>https://github.com/akkartik/mu/blob/main/baremetal/109stream-equal.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/109stream-equal.subx'>https://github.com/akkartik/mu/blob/main/linux/109stream-equal.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># some primitives for checking stream contents</span> <span id="L2" class="LineNr"> 2 </span> @@ -132,23 +132,23 @@ if ('onhashchange' in window) { <span id="L73" class="LineNr"> 73 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L76" class="LineNr"> 76 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L76" class="LineNr"> 76 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . call</span> -<span id="L78" class="LineNr"> 78 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L78" class="LineNr"> 78 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L80" class="LineNr"> 80 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># write(_test-stream, "Abc")</span> <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . push args</span> <span id="L83" class="LineNr"> 83 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . call</span> -<span id="L86" class="LineNr"> 86 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L86" class="LineNr"> 86 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L88" class="LineNr"> 88 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L89" class="LineNr"> 89 </span> <span class="subxComment"># eax = stream-data-equal?(_test-stream, "Abc")</span> <span id="L90" class="LineNr"> 90 </span> <span class="subxS2Comment"># . . push args</span> <span id="L91" class="LineNr"> 91 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L92" class="LineNr"> 92 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L92" class="LineNr"> 92 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . call</span> <span id="L94" class="LineNr"> 94 </span> e8/call <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a>/disp32 <span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . discard args</span> @@ -159,7 +159,7 @@ if ('onhashchange' in window) { <span id="L100" class="LineNr">100 </span> 68/push 1/imm32 <span id="L101" class="LineNr">101 </span> 50/push-eax <span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . call</span> -<span id="L103" class="LineNr">103 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L103" class="LineNr">103 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L105" class="LineNr">105 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L106" class="LineNr">106 </span> <span class="subxS1Comment"># . epilogue</span> @@ -173,23 +173,23 @@ if ('onhashchange' in window) { <span id="L114" class="LineNr">114 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L115" class="LineNr">115 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L117" class="LineNr">117 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L117" class="LineNr">117 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . call</span> -<span id="L119" class="LineNr">119 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L119" class="LineNr">119 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L121" class="LineNr">121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L122" class="LineNr">122 </span> <span class="subxComment"># write(_test-stream, "Abc")</span> <span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . push args</span> <span id="L124" class="LineNr">124 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L125" class="LineNr">125 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L125" class="LineNr">125 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . call</span> -<span id="L127" class="LineNr">127 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L127" class="LineNr">127 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L129" class="LineNr">129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L130" class="LineNr">130 </span> <span class="subxComment"># eax = stream-data-equal?(_test-stream, "Abd")</span> <span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . push args</span> <span id="L132" class="LineNr">132 </span> 68/push <span class="Constant">"Abd"</span>/imm32 -<span id="L133" class="LineNr">133 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L133" class="LineNr">133 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . call</span> <span id="L135" class="LineNr">135 </span> e8/call <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a>/disp32 <span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . discard args</span> @@ -200,7 +200,7 @@ if ('onhashchange' in window) { <span id="L141" class="LineNr">141 </span> 68/push 0/imm32 <span id="L142" class="LineNr">142 </span> 50/push-eax <span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . call</span> -<span id="L144" class="LineNr">144 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L144" class="LineNr">144 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L146" class="LineNr">146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L147" class="LineNr">147 </span> <span class="subxS1Comment"># . epilogue</span> @@ -214,23 +214,23 @@ if ('onhashchange' in window) { <span id="L155" class="LineNr">155 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L156" class="LineNr">156 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L158" class="LineNr">158 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L158" class="LineNr">158 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L160" class="LineNr">160 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L160" class="LineNr">160 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L162" class="LineNr">162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L163" class="LineNr">163 </span> <span class="subxComment"># write(_test-stream, "Abc")</span> <span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . push args</span> <span id="L165" class="LineNr">165 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L166" class="LineNr">166 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L166" class="LineNr">166 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L168" class="LineNr">168 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L168" class="LineNr">168 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L170" class="LineNr">170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L171" class="LineNr">171 </span> <span class="subxComment"># eax = stream-data-equal?(_test-stream, "Abcd")</span> <span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . push args</span> <span id="L173" class="LineNr">173 </span> 68/push <span class="Constant">"Abcd"</span>/imm32 -<span id="L174" class="LineNr">174 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L174" class="LineNr">174 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . call</span> <span id="L176" class="LineNr">176 </span> e8/call <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a>/disp32 <span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . discard args</span> @@ -241,7 +241,7 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr">182 </span> 68/push 0/imm32 <span id="L183" class="LineNr">183 </span> 50/push-eax <span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L185" class="LineNr">185 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L185" class="LineNr">185 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L187" class="LineNr">187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L188" class="LineNr">188 </span> <span class="subxS1Comment"># . epilogue</span> @@ -270,7 +270,7 @@ if ('onhashchange' in window) { <span id="L211" class="LineNr">211 </span> 68/push 1/imm32 <span id="L212" class="LineNr">212 </span> 50/push-eax <span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L214" class="LineNr">214 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L214" class="LineNr">214 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L217" class="LineNr">217 </span><span class="Constant">$check-stream-equal:end</span>: @@ -395,23 +395,23 @@ if ('onhashchange' in window) { <span id="L336" class="LineNr">336 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L337" class="LineNr">337 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L339" class="LineNr">339 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L339" class="LineNr">339 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . call</span> -<span id="L341" class="LineNr">341 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L341" class="LineNr">341 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L342" class="LineNr">342 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L343" class="LineNr">343 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L344" class="LineNr">344 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef")</span> <span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . push args</span> <span id="L346" class="LineNr">346 </span> 68/push <span class="Constant">"Abc\ndef"</span>/imm32 -<span id="L347" class="LineNr">347 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L347" class="LineNr">347 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L349" class="LineNr">349 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L349" class="LineNr">349 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L351" class="LineNr">351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L352" class="LineNr">352 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "Abc")</span> <span id="L353" class="LineNr">353 </span> <span class="subxS2Comment"># . . push args</span> <span id="L354" class="LineNr">354 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L355" class="LineNr">355 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L355" class="LineNr">355 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L356" class="LineNr">356 </span> <span class="subxS2Comment"># . . call</span> <span id="L357" class="LineNr">357 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L358" class="LineNr">358 </span> <span class="subxS2Comment"># . . discard args</span> @@ -422,7 +422,7 @@ if ('onhashchange' in window) { <span id="L363" class="LineNr">363 </span> 68/push 1/imm32 <span id="L364" class="LineNr">364 </span> 50/push-eax <span id="L365" class="LineNr">365 </span> <span class="subxS2Comment"># . . call</span> -<span id="L366" class="LineNr">366 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L366" class="LineNr">366 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L367" class="LineNr">367 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L368" class="LineNr">368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L369" class="LineNr">369 </span> <span class="subxS1Comment"># . epilogue</span> @@ -436,23 +436,23 @@ if ('onhashchange' in window) { <span id="L377" class="LineNr">377 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L378" class="LineNr">378 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L380" class="LineNr">380 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L380" class="LineNr">380 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . call</span> -<span id="L382" class="LineNr">382 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L382" class="LineNr">382 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L384" class="LineNr">384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L385" class="LineNr">385 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef")</span> <span id="L386" class="LineNr">386 </span> <span class="subxS2Comment"># . . push args</span> <span id="L387" class="LineNr">387 </span> 68/push <span class="Constant">"Abc\ndef"</span>/imm32 -<span id="L388" class="LineNr">388 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L388" class="LineNr">388 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> -<span id="L390" class="LineNr">390 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L390" class="LineNr">390 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L393" class="LineNr">393 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "def")</span> <span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . push args</span> <span id="L395" class="LineNr">395 </span> 68/push <span class="Constant">"def"</span>/imm32 -<span id="L396" class="LineNr">396 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L396" class="LineNr">396 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . call</span> <span id="L398" class="LineNr">398 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . discard args</span> @@ -463,7 +463,7 @@ if ('onhashchange' in window) { <span id="L404" class="LineNr">404 </span> 68/push 0/imm32 <span id="L405" class="LineNr">405 </span> 50/push-eax <span id="L406" class="LineNr">406 </span> <span class="subxS2Comment"># . . call</span> -<span id="L407" class="LineNr">407 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L407" class="LineNr">407 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L408" class="LineNr">408 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L409" class="LineNr">409 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L410" class="LineNr">410 </span> <span class="subxS1Comment"># . epilogue</span> @@ -477,23 +477,23 @@ if ('onhashchange' in window) { <span id="L418" class="LineNr">418 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L419" class="LineNr">419 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L420" class="LineNr">420 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L421" class="LineNr">421 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L421" class="LineNr">421 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L422" class="LineNr">422 </span> <span class="subxS2Comment"># . . call</span> -<span id="L423" class="LineNr">423 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L423" class="LineNr">423 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L425" class="LineNr">425 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L426" class="LineNr">426 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef\n")</span> <span id="L427" class="LineNr">427 </span> <span class="subxS2Comment"># . . push args</span> <span id="L428" class="LineNr">428 </span> 68/push <span class="Constant">"Abc\ndef\n"</span>/imm32 -<span id="L429" class="LineNr">429 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L429" class="LineNr">429 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L430" class="LineNr">430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L431" class="LineNr">431 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L431" class="LineNr">431 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L432" class="LineNr">432 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L433" class="LineNr">433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L434" class="LineNr">434 </span> <span class="subxComment"># next-stream-line-equal?(_test-stream, "Abc")</span> <span id="L435" class="LineNr">435 </span> <span class="subxS2Comment"># . . push args</span> <span id="L436" class="LineNr">436 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L437" class="LineNr">437 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L437" class="LineNr">437 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L438" class="LineNr">438 </span> <span class="subxS2Comment"># . . call</span> <span id="L439" class="LineNr">439 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L440" class="LineNr">440 </span> <span class="subxS2Comment"># . . discard args</span> @@ -501,7 +501,7 @@ if ('onhashchange' in window) { <span id="L442" class="LineNr">442 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "def")</span> <span id="L443" class="LineNr">443 </span> <span class="subxS2Comment"># . . push args</span> <span id="L444" class="LineNr">444 </span> 68/push <span class="Constant">"def"</span>/imm32 -<span id="L445" class="LineNr">445 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L445" class="LineNr">445 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L446" class="LineNr">446 </span> <span class="subxS2Comment"># . . call</span> <span id="L447" class="LineNr">447 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L448" class="LineNr">448 </span> <span class="subxS2Comment"># . . discard args</span> @@ -512,7 +512,7 @@ if ('onhashchange' in window) { <span id="L453" class="LineNr">453 </span> 68/push 1/imm32 <span id="L454" class="LineNr">454 </span> 50/push-eax <span id="L455" class="LineNr">455 </span> <span class="subxS2Comment"># . . call</span> -<span id="L456" class="LineNr">456 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L456" class="LineNr">456 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L457" class="LineNr">457 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L458" class="LineNr">458 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L459" class="LineNr">459 </span> <span class="subxS1Comment"># . epilogue</span> @@ -526,23 +526,23 @@ if ('onhashchange' in window) { <span id="L467" class="LineNr">467 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L468" class="LineNr">468 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L469" class="LineNr">469 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L470" class="LineNr">470 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L470" class="LineNr">470 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L471" class="LineNr">471 </span> <span class="subxS2Comment"># . . call</span> -<span id="L472" class="LineNr">472 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L472" class="LineNr">472 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L473" class="LineNr">473 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L474" class="LineNr">474 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L475" class="LineNr">475 </span> <span class="subxComment"># write(_test-stream, "Abc\ndef")</span> <span id="L476" class="LineNr">476 </span> <span class="subxS2Comment"># . . push args</span> <span id="L477" class="LineNr">477 </span> 68/push <span class="Constant">"Abc\ndef"</span>/imm32 -<span id="L478" class="LineNr">478 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L478" class="LineNr">478 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L479" class="LineNr">479 </span> <span class="subxS2Comment"># . . call</span> -<span id="L480" class="LineNr">480 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L480" class="LineNr">480 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L481" class="LineNr">481 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L482" class="LineNr">482 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L483" class="LineNr">483 </span> <span class="subxComment"># next-stream-line-equal?(_test-stream, "Abc")</span> <span id="L484" class="LineNr">484 </span> <span class="subxS2Comment"># . . push args</span> <span id="L485" class="LineNr">485 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L486" class="LineNr">486 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L486" class="LineNr">486 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L487" class="LineNr">487 </span> <span class="subxS2Comment"># . . call</span> <span id="L488" class="LineNr">488 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L489" class="LineNr">489 </span> <span class="subxS2Comment"># . . discard args</span> @@ -550,7 +550,7 @@ if ('onhashchange' in window) { <span id="L491" class="LineNr">491 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "def")</span> <span id="L492" class="LineNr">492 </span> <span class="subxS2Comment"># . . push args</span> <span id="L493" class="LineNr">493 </span> 68/push <span class="Constant">"def"</span>/imm32 -<span id="L494" class="LineNr">494 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L494" class="LineNr">494 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L495" class="LineNr">495 </span> <span class="subxS2Comment"># . . call</span> <span id="L496" class="LineNr">496 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L497" class="LineNr">497 </span> <span class="subxS2Comment"># . . discard args</span> @@ -561,7 +561,7 @@ if ('onhashchange' in window) { <span id="L502" class="LineNr">502 </span> 68/push 1/imm32 <span id="L503" class="LineNr">503 </span> 50/push-eax <span id="L504" class="LineNr">504 </span> <span class="subxS2Comment"># . . call</span> -<span id="L505" class="LineNr">505 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L505" class="LineNr">505 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L506" class="LineNr">506 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L507" class="LineNr">507 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L508" class="LineNr">508 </span> <span class="subxS1Comment"># . epilogue</span> @@ -575,16 +575,16 @@ if ('onhashchange' in window) { <span id="L516" class="LineNr">516 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L517" class="LineNr">517 </span> <span class="subxComment"># clear-stream(_test-stream)</span> <span id="L518" class="LineNr">518 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L519" class="LineNr">519 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L519" class="LineNr">519 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L520" class="LineNr">520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L521" class="LineNr">521 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L521" class="LineNr">521 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L522" class="LineNr">522 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L523" class="LineNr">523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L524" class="LineNr">524 </span> <span class="subxComment"># write nothing</span> <span id="L525" class="LineNr">525 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "")</span> <span id="L526" class="LineNr">526 </span> <span class="subxS2Comment"># . . push args</span> <span id="L527" class="LineNr">527 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L528" class="LineNr">528 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L528" class="LineNr">528 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L529" class="LineNr">529 </span> <span class="subxS2Comment"># . . call</span> <span id="L530" class="LineNr">530 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L531" class="LineNr">531 </span> <span class="subxS2Comment"># . . discard args</span> @@ -595,13 +595,13 @@ if ('onhashchange' in window) { <span id="L536" class="LineNr">536 </span> 68/push 1/imm32 <span id="L537" class="LineNr">537 </span> 50/push-eax <span id="L538" class="LineNr">538 </span> <span class="subxS2Comment"># . . call</span> -<span id="L539" class="LineNr">539 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L539" class="LineNr">539 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L540" class="LineNr">540 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L541" class="LineNr">541 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L542" class="LineNr">542 </span> <span class="subxComment"># eax = next-stream-line-equal?(_test-stream, "")</span> <span id="L543" class="LineNr">543 </span> <span class="subxS2Comment"># . . push args</span> <span id="L544" class="LineNr">544 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L545" class="LineNr">545 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L545" class="LineNr">545 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L546" class="LineNr">546 </span> <span class="subxS2Comment"># . . call</span> <span id="L547" class="LineNr">547 </span> e8/call <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a>/disp32 <span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . discard args</span> @@ -612,7 +612,7 @@ if ('onhashchange' in window) { <span id="L553" class="LineNr">553 </span> 68/push 1/imm32 <span id="L554" class="LineNr">554 </span> 50/push-eax <span id="L555" class="LineNr">555 </span> <span class="subxS2Comment"># . . call</span> -<span id="L556" class="LineNr">556 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L556" class="LineNr">556 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L557" class="LineNr">557 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L558" class="LineNr">558 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L559" class="LineNr">559 </span> <span class="subxS1Comment"># . epilogue</span> @@ -641,7 +641,7 @@ if ('onhashchange' in window) { <span id="L582" class="LineNr">582 </span> 68/push 1/imm32 <span id="L583" class="LineNr">583 </span> 50/push-eax <span id="L584" class="LineNr">584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L585" class="LineNr">585 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L585" class="LineNr">585 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L586" class="LineNr">586 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L587" class="LineNr">587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L588" class="LineNr">588 </span> <span class="subxS1Comment"># . restore registers</span> diff --git a/html/110stop.subx.html b/html/linux/110stop.subx.html index 13f239bc..2b1dd4c5 100644 --- a/html/110stop.subx.html +++ b/html/linux/110stop.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 110stop.subx</title> +<title>Mu - linux/110stop.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxMinorFunction { color: #875f5f; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -57,7 +57,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/110stop.subx'>https://github.com/akkartik/mu/blob/main/110stop.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/110stop.subx'>https://github.com/akkartik/mu/blob/main/linux/110stop.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># stop: dependency-injected wrapper around the exit() syscall</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -173,7 +173,7 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span><span class="Constant">$stop:real</span>: <span id="L113" class="LineNr">113 </span> <span class="subxS1Comment"># . syscall(exit, value)</span> <span id="L114" class="LineNr">114 </span> 8b/copy 1/mod/*+disp8 4/rm32/sib 4/base/esp 4/index/none <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esp+8) to ebx</span> -<span id="L115" class="LineNr">115 </span> e8/call syscall_exit/disp32 +<span id="L115" class="LineNr">115 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L116" class="LineNr">116 </span><span class="Constant">$stop:end2</span>: <span id="L117" class="LineNr">117 </span> <span class="subxComment"># never gets here</span> <span id="L118" class="LineNr">118 </span> c3/return <span class="subxComment"># doesn't return to caller</span> diff --git a/html/111read.subx.html b/html/linux/111read.subx.html index 6601e68c..3355afa6 100644 --- a/html/111read.subx.html +++ b/html/linux/111read.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 111read.subx</title> +<title>Mu - linux/111read.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .subxMinorFunction { color: #875f5f; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxTest { color: #5f8700; } --> </style> @@ -57,7 +57,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/111read.subx'>https://github.com/akkartik/mu/blob/main/111read.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/111read.subx'>https://github.com/akkartik/mu/blob/main/linux/111read.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># read: analogously to write, support reading from in-memory streams in</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># addition to file descriptors.</span> @@ -279,7 +279,7 @@ if ('onhashchange' in window) { <span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . size: edx = s->size - s->write</span> <span id="L219" class="LineNr">219 </span> 29/subtract 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from edx</span> <span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . syscall</span> -<span id="L221" class="LineNr">221 </span> e8/call syscall_read/disp32 +<span id="L221" class="LineNr">221 </span> e8/call <a href='000init.subx.html#L23'>syscall_read</a>/disp32 <span id="L222" class="LineNr">222 </span> <span class="subxComment"># add the result eax to s->write</span> <span id="L223" class="LineNr">223 </span> 01/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> <span id="L224" class="LineNr">224 </span><span class="Constant">$_read:end</span>: diff --git a/html/linux/112read-byte.subx.html b/html/linux/112read-byte.subx.html new file mode 100644 index 00000000..db00e159 --- /dev/null +++ b/html/linux/112read-byte.subx.html @@ -0,0 +1,484 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/112read-byte.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.subxMinorFunction { color: #875f5f; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/112read-byte.subx'>https://github.com/akkartik/mu/blob/main/linux/112read-byte.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># read-byte-buffered: one higher-level abstraction atop 'read'.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># There are many situations where 'read' is a lot to manage, and we need</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># to abstract some details away. One of them is when we want to read a file</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># character by character. In this situation we follow C's FILE data structure,</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># which manages the underlying file descriptor together with the buffer it</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># reads into. We call our version 'buffered-file'. Should be useful with other</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># primitives as well, in later layers.</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr"> 10 </span>== data +<span id="L11" class="LineNr"> 11 </span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># The buffered file for standard input. Also illustrates the layout for</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># buffered-file: a pointer to the backing store, followed by a 'buffer' stream</span> +<span id="L14" class="LineNr"> 14 </span><span class="SpecialChar">Stdin</span>: <span class="subxComment"># buffered-file</span> +<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L16" class="LineNr"> 16 </span> 0/imm32 <span class="subxComment"># standard input</span> +<span id="L17" class="LineNr"> 17 </span><span class="Constant">$Stdin->buffer</span>: +<span id="L18" class="LineNr"> 18 </span> <span class="subxComment"># inlined fields for a stream</span> +<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># current write index</span> +<span id="L20" class="LineNr"> 20 </span> 0/imm32 +<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># current read index</span> +<span id="L22" class="LineNr"> 22 </span> 0/imm32 +<span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># size</span> +<span id="L24" class="LineNr"> 24 </span> 8/imm32 +<span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># data</span> +<span id="L26" class="LineNr"> 26 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L27" class="LineNr"> 27 </span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># TODO: 8 bytes is too small. We'll need to grow the buffer for efficiency. But</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># I don't want to type in 1024 bytes here.</span> +<span id="L30" class="LineNr"> 30 </span> +<span id="L31" class="LineNr"> 31 </span>== code +<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L34" class="LineNr"> 34 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L35" class="LineNr"> 35 </span> +<span id="L36" class="LineNr"> 36 </span><span class="subxComment"># Return next byte value in eax, with top 3 bytes cleared.</span> +<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># On reaching end of file, return 0xffffffff (Eof).</span> +<span id="L38" class="LineNr"> 38 </span><span class="subxFunction">read-byte-buffered</span>: <span class="subxComment"># f: (addr buffered-file) -> byte-or-Eof/eax: byte</span> +<span id="L39" class="LineNr"> 39 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L40" class="LineNr"> 40 </span> 55/push-ebp +<span id="L41" class="LineNr"> 41 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L42" class="LineNr"> 42 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L43" class="LineNr"> 43 </span> 51/push-ecx +<span id="L44" class="LineNr"> 44 </span> 56/push-esi +<span id="L45" class="LineNr"> 45 </span> <span class="subxComment"># esi = f</span> +<span id="L46" class="LineNr"> 46 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxComment"># ecx = f->read</span> +<span id="L48" class="LineNr"> 48 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to ecx</span> +<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># if (f->read >= f->write) populate stream from file</span> +<span id="L50" class="LineNr"> 50 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+4)</span> +<span id="L51" class="LineNr"> 51 </span> 7c/jump-if-< $read-byte-buffered:from-stream/disp8 +<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . clear-stream(stream = f+4)</span> +<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L54" class="LineNr"> 54 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+4 to eax</span> +<span id="L55" class="LineNr"> 55 </span> 50/push-eax +<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . call</span> +<span id="L57" class="LineNr"> 57 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . f->read must now be 0; update its cache at ecx</span> +<span id="L61" class="LineNr"> 61 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . eax = read(f->fd, stream = f+4)</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L64" class="LineNr"> 64 </span> 50/push-eax +<span id="L65" class="LineNr"> 65 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . call</span> +<span id="L67" class="LineNr"> 67 </span> e8/call <a href='111read.subx.html#L48'>read</a>/disp32 +<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L69" class="LineNr"> 69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># if (eax == 0) return 0xffffffff</span> +<span id="L71" class="LineNr"> 71 </span> 3d/compare-eax-and 0/imm32 +<span id="L72" class="LineNr"> 72 </span> 75/jump-if-!= $read-byte-buffered:from-stream/disp8 +<span id="L73" class="LineNr"> 73 </span> b8/copy-to-eax 0xffffffff/imm32/Eof +<span id="L74" class="LineNr"> 74 </span> eb/jump $read-byte-buffered:end/disp8 +<span id="L75" class="LineNr"> 75 </span><span class="Constant">$read-byte-buffered:from-stream</span>: +<span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># byte-or-Eof = f->data[f->read]</span> +<span id="L77" class="LineNr"> 77 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L78" class="LineNr"> 78 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+16) to AL</span> +<span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># ++f->read</span> +<span id="L80" class="LineNr"> 80 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+8)</span> +<span id="L81" class="LineNr"> 81 </span><span class="Constant">$read-byte-buffered:end</span>: +<span id="L82" class="LineNr"> 82 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L83" class="LineNr"> 83 </span> 5e/pop-to-esi +<span id="L84" class="LineNr"> 84 </span> 59/pop-to-ecx +<span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L86" class="LineNr"> 86 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L87" class="LineNr"> 87 </span> 5d/pop-to-ebp +<span id="L88" class="LineNr"> 88 </span> c3/return +<span id="L89" class="LineNr"> 89 </span> +<span id="L90" class="LineNr"> 90 </span><span class="subxH1Comment"># - tests</span> +<span id="L91" class="LineNr"> 91 </span> +<span id="L92" class="LineNr"> 92 </span><span class="subxTest">test-read-byte-buffered-single</span>: +<span id="L93" class="LineNr"> 93 </span> <span class="subxH1Comment"># - check that read-byte-buffered returns first byte of 'file'</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># setup</span> +<span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L97" class="LineNr"> 97 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . call</span> +<span id="L99" class="LineNr"> 99 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L101" class="LineNr">101 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L102" class="LineNr">102 </span> <span class="subxS1Comment"># . clear-stream(_test-buffered-file->buffer)</span> +<span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L104" class="LineNr">104 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . call</span> +<span id="L106" class="LineNr">106 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L108" class="LineNr">108 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L109" class="LineNr">109 </span> <span class="subxS1Comment"># . write(_test-stream, "Ab")</span> +<span id="L110" class="LineNr">110 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L111" class="LineNr">111 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L112" class="LineNr">112 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . call</span> +<span id="L114" class="LineNr">114 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L116" class="LineNr">116 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L117" class="LineNr">117 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> +<span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L119" class="LineNr">119 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . call</span> +<span id="L121" class="LineNr">121 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L123" class="LineNr">123 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L124" class="LineNr">124 </span> <span class="subxComment"># check-ints-equal(eax, 'A', msg)</span> +<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L126" class="LineNr">126 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-single"</span>/imm32 +<span id="L127" class="LineNr">127 </span> 68/push 0x41/imm32 +<span id="L128" class="LineNr">128 </span> 50/push-eax +<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> +<span id="L130" class="LineNr">130 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . end</span> +<span id="L134" class="LineNr">134 </span> c3/return +<span id="L135" class="LineNr">135 </span> +<span id="L136" class="LineNr">136 </span><span class="subxTest">test-read-byte-buffered-multiple</span>: +<span id="L137" class="LineNr">137 </span> <span class="subxH1Comment"># - call read-byte-buffered twice, check that second call returns second byte</span> +<span id="L138" class="LineNr">138 </span> <span class="subxComment"># setup</span> +<span id="L139" class="LineNr">139 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L141" class="LineNr">141 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . call</span> +<span id="L143" class="LineNr">143 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L145" class="LineNr">145 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L146" class="LineNr">146 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L148" class="LineNr">148 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . call</span> +<span id="L150" class="LineNr">150 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L152" class="LineNr">152 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L153" class="LineNr">153 </span> <span class="subxS1Comment"># . write(_test-stream, "Ab")</span> +<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L155" class="LineNr">155 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L156" class="LineNr">156 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . call</span> +<span id="L158" class="LineNr">158 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L161" class="LineNr">161 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> +<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L163" class="LineNr">163 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . call</span> +<span id="L165" class="LineNr">165 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L167" class="LineNr">167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> +<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L170" class="LineNr">170 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> +<span id="L172" class="LineNr">172 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L175" class="LineNr">175 </span> <span class="subxComment"># check-ints-equal(eax, 'b', msg)</span> +<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L177" class="LineNr">177 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-multiple"</span>/imm32 +<span id="L178" class="LineNr">178 </span> 68/push 0x62/imm32 +<span id="L179" class="LineNr">179 </span> 50/push-eax +<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . call</span> +<span id="L181" class="LineNr">181 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L183" class="LineNr">183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L184" class="LineNr">184 </span> <span class="subxS1Comment"># . end</span> +<span id="L185" class="LineNr">185 </span> c3/return +<span id="L186" class="LineNr">186 </span> +<span id="L187" class="LineNr">187 </span><span class="subxTest">test-read-byte-buffered-end-of-file</span>: +<span id="L188" class="LineNr">188 </span> <span class="subxH1Comment"># - call read-byte-buffered on an empty 'file', check that it returns Eof</span> +<span id="L189" class="LineNr">189 </span> <span class="subxComment"># setup</span> +<span id="L190" class="LineNr">190 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L192" class="LineNr">192 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> +<span id="L194" class="LineNr">194 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L196" class="LineNr">196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L197" class="LineNr">197 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L199" class="LineNr">199 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . call</span> +<span id="L201" class="LineNr">201 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L203" class="LineNr">203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L204" class="LineNr">204 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> +<span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L206" class="LineNr">206 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . call</span> +<span id="L208" class="LineNr">208 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L210" class="LineNr">210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L211" class="LineNr">211 </span> <span class="subxComment"># check-ints-equal(eax, 0xffffffff, msg)</span> +<span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L213" class="LineNr">213 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-end-of-file"</span>/imm32 +<span id="L214" class="LineNr">214 </span> 68/push 0xffffffff/imm32/Eof +<span id="L215" class="LineNr">215 </span> 50/push-eax +<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L217" class="LineNr">217 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L219" class="LineNr">219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L220" class="LineNr">220 </span> <span class="subxS1Comment"># . end</span> +<span id="L221" class="LineNr">221 </span> c3/return +<span id="L222" class="LineNr">222 </span> +<span id="L223" class="LineNr">223 </span><span class="subxTest">test-read-byte-buffered-refills-buffer</span>: +<span id="L224" class="LineNr">224 </span> <span class="subxH1Comment"># - consume buffered-file's buffer, check that next read-byte-buffered still works</span> +<span id="L225" class="LineNr">225 </span> <span class="subxComment"># setup</span> +<span id="L226" class="LineNr">226 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L228" class="LineNr">228 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . call</span> +<span id="L230" class="LineNr">230 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L232" class="LineNr">232 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L233" class="LineNr">233 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L235" class="LineNr">235 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . call</span> +<span id="L237" class="LineNr">237 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L238" class="LineNr">238 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L239" class="LineNr">239 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L240" class="LineNr">240 </span> <span class="subxS1Comment"># . write(_test-stream, "Abcdefgh")</span> +<span id="L241" class="LineNr">241 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L242" class="LineNr">242 </span> 68/push <span class="Constant">"Abcdefgh"</span>/imm32 +<span id="L243" class="LineNr">243 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . call</span> +<span id="L245" class="LineNr">245 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L247" class="LineNr">247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L248" class="LineNr">248 </span> <span class="subxComment"># pretend buffer is full</span> +<span id="L249" class="LineNr">249 </span> <span class="subxS1Comment"># . _test-buffered-file->read = 6 # >= _test-buffered-file->size</span> +<span id="L250" class="LineNr">250 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L251" class="LineNr">251 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 6/imm32 <span class="subxComment"># copy to *(eax+8)</span> +<span id="L252" class="LineNr">252 </span> <span class="subxComment"># read-byte-buffered(_test-buffered-file)</span> +<span id="L253" class="LineNr">253 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L254" class="LineNr">254 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L255" class="LineNr">255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L256" class="LineNr">256 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L258" class="LineNr">258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L259" class="LineNr">259 </span> <span class="subxComment"># check-ints-equal(eax, 'A', msg)</span> +<span id="L260" class="LineNr">260 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L261" class="LineNr">261 </span> 68/push <span class="Constant">"F - test-read-byte-buffered-refills-buffer"</span>/imm32 +<span id="L262" class="LineNr">262 </span> 68/push 0x41/imm32 +<span id="L263" class="LineNr">263 </span> 50/push-eax +<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . call</span> +<span id="L265" class="LineNr">265 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L267" class="LineNr">267 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L268" class="LineNr">268 </span> <span class="subxS1Comment"># . end</span> +<span id="L269" class="LineNr">269 </span> c3/return +<span id="L270" class="LineNr">270 </span> +<span id="L271" class="LineNr">271 </span><span class="subxComment"># Return next byte value in eax, with top 3 bytes cleared.</span> +<span id="L272" class="LineNr">272 </span><span class="subxComment"># Abort on reaching end of stream.</span> +<span id="L273" class="LineNr">273 </span><span class="subxFunction">read-byte</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> +<span id="L274" class="LineNr">274 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L275" class="LineNr">275 </span> 55/push-ebp +<span id="L276" class="LineNr">276 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L277" class="LineNr">277 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L278" class="LineNr">278 </span> 51/push-ecx +<span id="L279" class="LineNr">279 </span> 56/push-esi +<span id="L280" class="LineNr">280 </span> <span class="subxComment"># esi = s</span> +<span id="L281" class="LineNr">281 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L282" class="LineNr">282 </span> <span class="subxComment"># ecx = s->read</span> +<span id="L283" class="LineNr">283 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L284" class="LineNr">284 </span> <span class="subxComment"># if (f->read >= f->write) abort</span> +<span id="L285" class="LineNr">285 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> +<span id="L286" class="LineNr">286 </span> 0f 8d/jump-if->= $read-byte:abort/disp32 +<span id="L287" class="LineNr">287 </span> <span class="subxComment"># result = f->data[f->read]</span> +<span id="L288" class="LineNr">288 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L289" class="LineNr">289 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L290" class="LineNr">290 </span> <span class="subxComment"># ++f->read</span> +<span id="L291" class="LineNr">291 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> +<span id="L292" class="LineNr">292 </span><span class="Constant">$read-byte:end</span>: +<span id="L293" class="LineNr">293 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L294" class="LineNr">294 </span> 5e/pop-to-esi +<span id="L295" class="LineNr">295 </span> 59/pop-to-ecx +<span id="L296" class="LineNr">296 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L297" class="LineNr">297 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L298" class="LineNr">298 </span> 5d/pop-to-ebp +<span id="L299" class="LineNr">299 </span> c3/return +<span id="L300" class="LineNr">300 </span> +<span id="L301" class="LineNr">301 </span><span class="Constant">$read-byte:abort</span>: +<span id="L302" class="LineNr">302 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L303" class="LineNr">303 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L304" class="LineNr">304 </span> 68/push <span class="Constant">"read-byte: empty stream\n"</span>/imm32 +<span id="L305" class="LineNr">305 </span> 68/push 2/imm32/stderr +<span id="L306" class="LineNr">306 </span> <span class="subxS2Comment"># . . call</span> +<span id="L307" class="LineNr">307 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L308" class="LineNr">308 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L309" class="LineNr">309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L311" class="LineNr">311 </span> bb/copy-to-ebx 1/imm32 +<span id="L312" class="LineNr">312 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L313" class="LineNr">313 </span> <span class="subxComment"># never gets here</span> +<span id="L314" class="LineNr">314 </span> +<span id="L315" class="LineNr">315 </span>== data +<span id="L316" class="LineNr">316 </span> +<span id="L317" class="LineNr">317 </span><span class="subxComment"># a test buffered file for _test-stream</span> +<span id="L318" class="LineNr">318 </span><span class="subxMinorFunction">_test-buffered-file</span>: <span class="subxComment"># buffered-file</span> +<span id="L319" class="LineNr">319 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L320" class="LineNr">320 </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L321" class="LineNr">321 </span><span class="Constant">$_test-buffered-file->buffer</span>: +<span id="L322" class="LineNr">322 </span> <span class="subxComment"># current write index</span> +<span id="L323" class="LineNr">323 </span> 0/imm32 +<span id="L324" class="LineNr">324 </span> <span class="subxComment"># current read index</span> +<span id="L325" class="LineNr">325 </span> 0/imm32 +<span id="L326" class="LineNr">326 </span> <span class="subxComment"># size</span> +<span id="L327" class="LineNr">327 </span> 6/imm32 +<span id="L328" class="LineNr">328 </span> <span class="subxComment"># data</span> +<span id="L329" class="LineNr">329 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> +<span id="L330" class="LineNr">330 </span> +<span id="L331" class="LineNr">331 </span><span class="subxMinorFunction">_test-input-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L332" class="LineNr">332 </span> <span class="subxComment"># current write index</span> +<span id="L333" class="LineNr">333 </span> 0/imm32 +<span id="L334" class="LineNr">334 </span> <span class="subxComment"># current read index</span> +<span id="L335" class="LineNr">335 </span> 0/imm32 +<span id="L336" class="LineNr">336 </span> <span class="subxComment"># size</span> +<span id="L337" class="LineNr">337 </span> 0x400/imm32 <span class="subxComment"># 1024 bytes</span> +<span id="L338" class="LineNr">338 </span> <span class="subxComment"># data (64 lines x 16 bytes/line)</span> +<span id="L339" class="LineNr">339 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L340" class="LineNr">340 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L341" class="LineNr">341 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L342" class="LineNr">342 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L343" class="LineNr">343 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L344" class="LineNr">344 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L345" class="LineNr">345 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L346" class="LineNr">346 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L347" class="LineNr">347 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L348" class="LineNr">348 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L349" class="LineNr">349 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L350" class="LineNr">350 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L351" class="LineNr">351 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L352" class="LineNr">352 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L353" class="LineNr">353 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L354" class="LineNr">354 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L355" class="LineNr">355 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L356" class="LineNr">356 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L357" class="LineNr">357 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L358" class="LineNr">358 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L359" class="LineNr">359 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L360" class="LineNr">360 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L361" class="LineNr">361 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L362" class="LineNr">362 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L363" class="LineNr">363 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L364" class="LineNr">364 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L365" class="LineNr">365 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L366" class="LineNr">366 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L367" class="LineNr">367 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L368" class="LineNr">368 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L369" class="LineNr">369 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L370" class="LineNr">370 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L371" class="LineNr">371 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L372" class="LineNr">372 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L373" class="LineNr">373 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L374" class="LineNr">374 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L375" class="LineNr">375 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L376" class="LineNr">376 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L377" class="LineNr">377 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L378" class="LineNr">378 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L379" class="LineNr">379 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L380" class="LineNr">380 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L381" class="LineNr">381 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L382" class="LineNr">382 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L383" class="LineNr">383 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L384" class="LineNr">384 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L385" class="LineNr">385 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L386" class="LineNr">386 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L387" class="LineNr">387 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L388" class="LineNr">388 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L389" class="LineNr">389 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L390" class="LineNr">390 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L391" class="LineNr">391 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L392" class="LineNr">392 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L393" class="LineNr">393 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L394" class="LineNr">394 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L395" class="LineNr">395 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L396" class="LineNr">396 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L397" class="LineNr">397 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L398" class="LineNr">398 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L399" class="LineNr">399 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L400" class="LineNr">400 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L401" class="LineNr">401 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L402" class="LineNr">402 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L403" class="LineNr">403 </span> +<span id="L404" class="LineNr">404 </span><span class="subxComment"># a test buffered file for _test-input-stream</span> +<span id="L405" class="LineNr">405 </span><span class="subxMinorFunction">_test-input-buffered-file</span>: <span class="subxComment"># buffered-file</span> +<span id="L406" class="LineNr">406 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L407" class="LineNr">407 </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L408" class="LineNr">408 </span><span class="Constant">$_test-input-buffered-file->buffer</span>: +<span id="L409" class="LineNr">409 </span> <span class="subxComment"># current write index</span> +<span id="L410" class="LineNr">410 </span> 0/imm32 +<span id="L411" class="LineNr">411 </span> <span class="subxComment"># current read index</span> +<span id="L412" class="LineNr">412 </span> 0/imm32 +<span id="L413" class="LineNr">413 </span> <span class="subxComment"># size</span> +<span id="L414" class="LineNr">414 </span> 6/imm32 +<span id="L415" class="LineNr">415 </span> <span class="subxComment"># data</span> +<span id="L416" class="LineNr">416 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> +<span id="L417" class="LineNr">417 </span> +<span id="L418" class="LineNr">418 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/113write-stream.subx.html b/html/linux/113write-stream.subx.html new file mode 100644 index 00000000..86914437 --- /dev/null +++ b/html/linux/113write-stream.subx.html @@ -0,0 +1,317 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/113write-stream.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.Constant { color: #008787; } +.subxMinorFunction { color: #875f5f; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxTest { color: #5f8700; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/113write-stream.subx'>https://github.com/akkartik/mu/blob/main/linux/113write-stream.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write-stream: like write, but write streams rather than strings</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span>== code +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? Entry: # manual test</span> +<span id="L9" class="LineNr"> 9 </span><span class="CommentedCode">#? # write-stream(stdout, _test-stream2)</span> +<span id="L10" class="LineNr"> 10 </span><span class="CommentedCode">#? 68/push _test-stream2/imm32</span> +<span id="L11" class="LineNr"> 11 </span><span class="CommentedCode">#? 68/push 1/imm32/stdout</span> +<span id="L12" class="LineNr"> 12 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> +<span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? # syscall(exit, Num-test-failures)</span> +<span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? 8b/copy 0/mod/indirect 5/rm32/.disp32 . . 3/r32/ebx Num-test-failures/disp32 # copy *Num-test-failures to ebx</span> +<span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> +<span id="L16" class="LineNr"> 16 </span> +<span id="L17" class="LineNr"> 17 </span><span class="subxFunction">write-stream</span>: <span class="subxComment"># f: fd or (addr stream byte), s: (addr stream byte)</span> +<span id="L18" class="LineNr"> 18 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19" class="LineNr"> 19 </span> 55/push-ebp +<span id="L20" class="LineNr"> 20 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># if (f < 0x08000000) _write-stream(f, s), return # f can't be a user-mode address, so treat it as a kernel file descriptor</span> +<span id="L22" class="LineNr"> 22 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x08000000/imm32 <span class="subxComment"># compare *(ebp+8)</span> +<span id="L23" class="LineNr"> 23 </span> 73/jump-if-addr>= $write-stream:fake/disp8 +<span id="L24" class="LineNr"> 24 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L25" class="LineNr"> 25 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L26" class="LineNr"> 26 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L27" class="LineNr"> 27 </span> <span class="subxS2Comment"># . . call</span> +<span id="L28" class="LineNr"> 28 </span> e8/call <a href='113write-stream.subx.html#L77'>_write-stream</a>/disp32 +<span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L30" class="LineNr"> 30 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L31" class="LineNr"> 31 </span> eb/jump $write-stream:end/disp8 +<span id="L32" class="LineNr"> 32 </span><span class="Constant">$write-stream:fake</span>: +<span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># otherwise, treat 'f' as a stream to append to</span> +<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35" class="LineNr"> 35 </span> 50/push-eax +<span id="L36" class="LineNr"> 36 </span> 56/push-esi +<span id="L37" class="LineNr"> 37 </span> 57/push-edi +<span id="L38" class="LineNr"> 38 </span> <span class="subxComment"># edi = f</span> +<span id="L39" class="LineNr"> 39 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># esi = s</span> +<span id="L41" class="LineNr"> 41 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># eax = _append-4(&f->data[f->write], &f->data[f->size], &s->data[s->read], &s->data[s->write])</span> +<span id="L43" class="LineNr"> 43 </span> <span class="subxS2Comment"># . . push &s->data[s->write]</span> +<span id="L44" class="LineNr"> 44 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L45" class="LineNr"> 45 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L46" class="LineNr"> 46 </span> 50/push-eax +<span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . push &s->data[s->read]</span> +<span id="L48" class="LineNr"> 48 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> +<span id="L49" class="LineNr"> 49 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L50" class="LineNr"> 50 </span> 50/push-eax +<span id="L51" class="LineNr"> 51 </span> <span class="subxS2Comment"># . . push &f->data[f->size]</span> +<span id="L52" class="LineNr"> 52 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+8) to eax</span> +<span id="L53" class="LineNr"> 53 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+eax+12 to eax</span> +<span id="L54" class="LineNr"> 54 </span> 50/push-eax +<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . push &f->data[f->write]</span> +<span id="L56" class="LineNr"> 56 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to eax</span> +<span id="L57" class="LineNr"> 57 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 7/base/edi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+eax+12 to eax</span> +<span id="L58" class="LineNr"> 58 </span> 50/push-eax +<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> +<span id="L60" class="LineNr"> 60 </span> e8/call <a href='107trace.subx.html#L892'>_append-4</a>/disp32 +<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># f->write += eax</span> +<span id="L64" class="LineNr"> 64 </span> 01/add 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *edi</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># s->read += eax</span> +<span id="L66" class="LineNr"> 66 </span> 01/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># add eax to *(esi+4)</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L68" class="LineNr"> 68 </span> 5f/pop-to-edi +<span id="L69" class="LineNr"> 69 </span> 5e/pop-to-esi +<span id="L70" class="LineNr"> 70 </span> 58/pop-to-eax +<span id="L71" class="LineNr"> 71 </span><span class="Constant">$write-stream:end</span>: +<span id="L72" class="LineNr"> 72 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L73" class="LineNr"> 73 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L74" class="LineNr"> 74 </span> 5d/pop-to-ebp +<span id="L75" class="LineNr"> 75 </span> c3/return +<span id="L76" class="LineNr"> 76 </span> +<span id="L77" class="LineNr"> 77 </span><span class="subxMinorFunction">_write-stream</span>: <span class="subxComment"># fd: int, s: (addr stream byte)</span> +<span id="L78" class="LineNr"> 78 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L79" class="LineNr"> 79 </span> 55/push-ebp +<span id="L80" class="LineNr"> 80 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L82" class="LineNr"> 82 </span> 50/push-eax +<span id="L83" class="LineNr"> 83 </span> 51/push-ecx +<span id="L84" class="LineNr"> 84 </span> 52/push-edx +<span id="L85" class="LineNr"> 85 </span> 53/push-ebx +<span id="L86" class="LineNr"> 86 </span> 56/push-esi +<span id="L87" class="LineNr"> 87 </span> 57/push-edi +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># esi = s</span> +<span id="L89" class="LineNr"> 89 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># edi = s->read</span> +<span id="L91" class="LineNr"> 91 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edi</span> +<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># edx = s->write</span> +<span id="L93" class="LineNr"> 93 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># syscall(write, fd, &s->data[s->read], s->write - s->read)</span> +<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . fd: ebx</span> +<span id="L96" class="LineNr"> 96 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ebx</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . data: ecx = &s->data[s->read]</span> +<span id="L98" class="LineNr"> 98 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 7/index/edi <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edi+12 to ecx</span> +<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . size: edx = s->write - s->read</span> +<span id="L100" class="LineNr">100 </span> 29/subtract 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edi from edx</span> +<span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . syscall</span> +<span id="L102" class="LineNr">102 </span> e8/call <a href='000init.subx.html#L29'>syscall_write</a>/disp32 +<span id="L103" class="LineNr">103 </span> <span class="subxComment"># if (eax < 0) abort</span> +<span id="L104" class="LineNr">104 </span> 3d/compare-eax-with 0/imm32 +<span id="L105" class="LineNr">105 </span> 0f 8c/jump-if-< $_write-stream:abort/disp32 +<span id="L106" class="LineNr">106 </span> <span class="subxComment"># s->read += eax</span> +<span id="L107" class="LineNr">107 </span> 01/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># add eax to *(esi+4)</span> +<span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L109" class="LineNr">109 </span> 5f/pop-to-edi +<span id="L110" class="LineNr">110 </span> 5e/pop-to-esi +<span id="L111" class="LineNr">111 </span> 5b/pop-to-ebx +<span id="L112" class="LineNr">112 </span> 5a/pop-to-edx +<span id="L113" class="LineNr">113 </span> 59/pop-to-ecx +<span id="L114" class="LineNr">114 </span> 58/pop-to-eax +<span id="L115" class="LineNr">115 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L116" class="LineNr">116 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L117" class="LineNr">117 </span> 5d/pop-to-ebp +<span id="L118" class="LineNr">118 </span> c3/return +<span id="L119" class="LineNr">119 </span> +<span id="L120" class="LineNr">120 </span><span class="Constant">$_write-stream:abort</span>: +<span id="L121" class="LineNr">121 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L123" class="LineNr">123 </span> 68/push <span class="Constant">"_write-stream: failed to <a href='108write.subx.html#L24'>write</a> to file\n"</span>/imm32 +<span id="L124" class="LineNr">124 </span> 68/push 2/imm32/stderr +<span id="L125" class="LineNr">125 </span> <span class="subxS2Comment"># . . call</span> +<span id="L126" class="LineNr">126 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L128" class="LineNr">128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L130" class="LineNr">130 </span> bb/copy-to-ebx 1/imm32 +<span id="L131" class="LineNr">131 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L132" class="LineNr">132 </span> <span class="subxComment"># never gets here</span> +<span id="L133" class="LineNr">133 </span> +<span id="L134" class="LineNr">134 </span><span class="subxTest">test-write-stream-single</span>: +<span id="L135" class="LineNr">135 </span> <span class="subxComment"># setup</span> +<span id="L136" class="LineNr">136 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L138" class="LineNr">138 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . call</span> +<span id="L140" class="LineNr">140 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L142" class="LineNr">142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . clear-stream(_test-stream2)</span> +<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L145" class="LineNr">145 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> +<span id="L147" class="LineNr">147 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . write(_test-stream2, "Ab")</span> +<span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L152" class="LineNr">152 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L153" class="LineNr">153 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . call</span> +<span id="L155" class="LineNr">155 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L157" class="LineNr">157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L158" class="LineNr">158 </span> <span class="subxComment"># write-stream(_test-stream, _test-stream2)</span> +<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L160" class="LineNr">160 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L161" class="LineNr">161 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> +<span id="L163" class="LineNr">163 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L166" class="LineNr">166 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Ab", msg)</span> +<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"F - test-write-stream-single"</span>/imm32 +<span id="L169" class="LineNr">169 </span> 68/push <span class="Constant">"Ab"</span>/imm32 +<span id="L170" class="LineNr">170 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> +<span id="L172" class="LineNr">172 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . end</span> +<span id="L176" class="LineNr">176 </span> c3/return +<span id="L177" class="LineNr">177 </span> +<span id="L178" class="LineNr">178 </span><span class="subxTest">test-write-stream-appends</span>: +<span id="L179" class="LineNr">179 </span> <span class="subxComment"># setup</span> +<span id="L180" class="LineNr">180 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L182" class="LineNr">182 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . call</span> +<span id="L184" class="LineNr">184 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L186" class="LineNr">186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L187" class="LineNr">187 </span> <span class="subxS1Comment"># . clear-stream(_test-stream2)</span> +<span id="L188" class="LineNr">188 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L189" class="LineNr">189 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . call</span> +<span id="L191" class="LineNr">191 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L192" class="LineNr">192 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L193" class="LineNr">193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L194" class="LineNr">194 </span> <span class="subxS1Comment"># . write(_test-stream2, "C")</span> +<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"C"</span>/imm32 +<span id="L197" class="LineNr">197 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> +<span id="L199" class="LineNr">199 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L201" class="LineNr">201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L202" class="LineNr">202 </span> <span class="subxComment"># first write</span> +<span id="L203" class="LineNr">203 </span> <span class="subxS1Comment"># . write-stream(_test-stream, _test-stream2)</span> +<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L205" class="LineNr">205 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L206" class="LineNr">206 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . call</span> +<span id="L208" class="LineNr">208 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L210" class="LineNr">210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L211" class="LineNr">211 </span> <span class="subxComment"># second write</span> +<span id="L212" class="LineNr">212 </span> <span class="subxS1Comment"># . write(_test-stream2, "D")</span> +<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L214" class="LineNr">214 </span> 68/push <span class="Constant">"D"</span>/imm32 +<span id="L215" class="LineNr">215 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L217" class="LineNr">217 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L219" class="LineNr">219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L220" class="LineNr">220 </span> <span class="subxS1Comment"># . write-stream(_test-stream, _test-stream2)</span> +<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L222" class="LineNr">222 </span> 68/push <a href='113write-stream.subx.html#L242'>_test-stream2</a>/imm32 +<span id="L223" class="LineNr">223 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L224" class="LineNr">224 </span> <span class="subxS2Comment"># . . call</span> +<span id="L225" class="LineNr">225 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L227" class="LineNr">227 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L228" class="LineNr">228 </span> <span class="subxComment"># check-stream-equal(_test-stream, "CD", msg)</span> +<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L230" class="LineNr">230 </span> 68/push <span class="Constant">"F - test-write-stream-appends"</span>/imm32 +<span id="L231" class="LineNr">231 </span> 68/push <span class="Constant">"CD"</span>/imm32 +<span id="L232" class="LineNr">232 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L233" class="LineNr">233 </span> <span class="subxS2Comment"># . . call</span> +<span id="L234" class="LineNr">234 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L235" class="LineNr">235 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L236" class="LineNr">236 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L237" class="LineNr">237 </span> <span class="subxS1Comment"># . end</span> +<span id="L238" class="LineNr">238 </span> c3/return +<span id="L239" class="LineNr">239 </span> +<span id="L240" class="LineNr">240 </span>== data +<span id="L241" class="LineNr">241 </span> +<span id="L242" class="LineNr">242 </span><span class="subxMinorFunction">_test-stream2</span>: <span class="subxComment"># (stream byte)</span> +<span id="L243" class="LineNr">243 </span> <span class="subxComment"># current write index</span> +<span id="L244" class="LineNr">244 </span> 4/imm32 +<span id="L245" class="LineNr">245 </span> <span class="subxComment"># current read index</span> +<span id="L246" class="LineNr">246 </span> 1/imm32 +<span id="L247" class="LineNr">247 </span> <span class="subxComment"># size</span> +<span id="L248" class="LineNr">248 </span> 8/imm32 +<span id="L249" class="LineNr">249 </span> <span class="subxComment"># data</span> +<span id="L250" class="LineNr">250 </span> 41/A 42/B 43/C 44/D 00 00 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L251" class="LineNr">251 </span> +<span id="L252" class="LineNr">252 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/114error.subx.html b/html/linux/114error.subx.html index 98fe7bf6..fdd2011f 100644 --- a/html/114error.subx.html +++ b/html/linux/114error.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 114error.subx</title> +<title>Mu - linux/114error.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.SpecialChar { color: #d70000; } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/114error.subx'>https://github.com/akkartik/mu/blob/main/114error.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/114error.subx'>https://github.com/akkartik/mu/blob/main/linux/114error.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Print an error message and exit.</span> <span id="L2" class="LineNr"> 2 </span> diff --git a/html/linux/115write-byte.subx.html b/html/linux/115write-byte.subx.html new file mode 100644 index 00000000..b3c93d42 --- /dev/null +++ b/html/linux/115write-byte.subx.html @@ -0,0 +1,543 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/115write-byte.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.subxMinorFunction { color: #875f5f; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/115write-byte.subx'>https://github.com/akkartik/mu/blob/main/linux/115write-byte.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write-byte-buffered: add a single byte to a buffered-file.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># flush: write out any buffered writes to disk.</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># TODO: Come up with a way to signal failure to write to disk. This is hard</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># since the failure may impact previous calls that were buffered.</span> +<span id="L6" class="LineNr"> 6 </span> +<span id="L7" class="LineNr"> 7 </span>== data +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># The buffered file for standard output.</span> +<span id="L10" class="LineNr"> 10 </span><span class="SpecialChar">Stdout</span>: <span class="subxComment"># buffered-file</span> +<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L12" class="LineNr"> 12 </span> 1/imm32 <span class="subxComment"># standard output</span> +<span id="L13" class="LineNr"> 13 </span><span class="Constant">$Stdout->buffer</span>: +<span id="L14" class="LineNr"> 14 </span> <span class="subxComment"># inlined fields for a stream</span> +<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># current write index</span> +<span id="L16" class="LineNr"> 16 </span> 0/imm32 +<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># current read index</span> +<span id="L18" class="LineNr"> 18 </span> 0/imm32 +<span id="L19" class="LineNr"> 19 </span> <span class="subxComment"># size</span> +<span id="L20" class="LineNr"> 20 </span> 8/imm32 +<span id="L21" class="LineNr"> 21 </span> <span class="subxComment"># data</span> +<span id="L22" class="LineNr"> 22 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes</span> +<span id="L23" class="LineNr"> 23 </span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># TODO: 8 bytes is too small. We'll need to grow the buffer for efficiency. But</span> +<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># I don't want to type in 1024 bytes here.</span> +<span id="L26" class="LineNr"> 26 </span> +<span id="L27" class="LineNr"> 27 </span>== code +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L31" class="LineNr"> 31 </span> +<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxFunction">write-byte-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> +<span id="L34" class="LineNr"> 34 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35" class="LineNr"> 35 </span> 55/push-ebp +<span id="L36" class="LineNr"> 36 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L37" class="LineNr"> 37 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L38" class="LineNr"> 38 </span> 51/push-ecx +<span id="L39" class="LineNr"> 39 </span> 57/push-edi +<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># edi = f</span> +<span id="L41" class="LineNr"> 41 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># ecx = f->write</span> +<span id="L43" class="LineNr"> 43 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> +<span id="L44" class="LineNr"> 44 </span> <span class="subxComment"># if (f->write >= f->size) flush and clear f's stream</span> +<span id="L45" class="LineNr"> 45 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+12)</span> +<span id="L46" class="LineNr"> 46 </span> 7c/jump-if-< $write-byte-buffered:to-stream/disp8 +<span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . flush(f)</span> +<span id="L48" class="LineNr"> 48 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L49" class="LineNr"> 49 </span> 57/push-edi +<span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> +<span id="L51" class="LineNr"> 51 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L53" class="LineNr"> 53 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L54" class="LineNr"> 54 </span> <span class="subxS1Comment"># . clear-stream(stream = f+4)</span> +<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L56" class="LineNr"> 56 </span> 8d/copy-address 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+4 to eax</span> +<span id="L57" class="LineNr"> 57 </span> 50/push-eax +<span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . call</span> +<span id="L59" class="LineNr"> 59 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L61" class="LineNr"> 61 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . f->write must now be 0; update its cache at ecx</span> +<span id="L63" class="LineNr"> 63 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> +<span id="L64" class="LineNr"> 64 </span><span class="Constant">$write-byte-buffered:to-stream</span>: +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># write to stream</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># f->data[f->write] = LSB(n)</span> +<span id="L67" class="LineNr"> 67 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L68" class="LineNr"> 68 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> +<span id="L69" class="LineNr"> 69 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+16)</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># ++f->write</span> +<span id="L71" class="LineNr"> 71 </span> ff 0/subop/increment 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(edi+4)</span> +<span id="L72" class="LineNr"> 72 </span><span class="Constant">$write-byte-buffered:end</span>: +<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L74" class="LineNr"> 74 </span> 5f/pop-to-edi +<span id="L75" class="LineNr"> 75 </span> 59/pop-to-ecx +<span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L77" class="LineNr"> 77 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L78" class="LineNr"> 78 </span> 5d/pop-to-ebp +<span id="L79" class="LineNr"> 79 </span> c3/return +<span id="L80" class="LineNr"> 80 </span> +<span id="L81" class="LineNr"> 81 </span><span class="subxFunction">flush</span>: <span class="subxComment"># f: (addr buffered-file)</span> +<span id="L82" class="LineNr"> 82 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L83" class="LineNr"> 83 </span> 55/push-ebp +<span id="L84" class="LineNr"> 84 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L86" class="LineNr"> 86 </span> 50/push-eax +<span id="L87" class="LineNr"> 87 </span> 51/push-ecx +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># eax = f</span> +<span id="L89" class="LineNr"> 89 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># write-stream(f->fd, data = f+4)</span> +<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L92" class="LineNr"> 92 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+4 to ecx</span> +<span id="L93" class="LineNr"> 93 </span> 51/push-ecx +<span id="L94" class="LineNr"> 94 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . call</span> +<span id="L96" class="LineNr"> 96 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L99" class="LineNr"> 99 </span><span class="Constant">$flush:end</span>: +<span id="L100" class="LineNr">100 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L101" class="LineNr">101 </span> 59/pop-to-ecx +<span id="L102" class="LineNr">102 </span> 58/pop-to-eax +<span id="L103" class="LineNr">103 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L104" class="LineNr">104 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L105" class="LineNr">105 </span> 5d/pop-to-ebp +<span id="L106" class="LineNr">106 </span> c3/return +<span id="L107" class="LineNr">107 </span> +<span id="L108" class="LineNr">108 </span><span class="subxTest">test-write-byte-buffered-single</span>: +<span id="L109" class="LineNr">109 </span> <span class="subxH1Comment"># - check that write-byte-buffered writes to first byte of 'file'</span> +<span id="L110" class="LineNr">110 </span> <span class="subxComment"># setup</span> +<span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L113" class="LineNr">113 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> +<span id="L115" class="LineNr">115 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L118" class="LineNr">118 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L119" class="LineNr">119 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L120" class="LineNr">120 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L121" class="LineNr">121 </span> <span class="subxS2Comment"># . . call</span> +<span id="L122" class="LineNr">122 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L124" class="LineNr">124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L125" class="LineNr">125 </span> <span class="subxComment"># write-byte-buffered(_test-buffered-file, 'A')</span> +<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L127" class="LineNr">127 </span> 68/push 0x41/imm32 +<span id="L128" class="LineNr">128 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> +<span id="L130" class="LineNr">130 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L133" class="LineNr">133 </span> <span class="subxComment"># flush(_test-buffered-file)</span> +<span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L135" class="LineNr">135 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . call</span> +<span id="L137" class="LineNr">137 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L139" class="LineNr">139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L140" class="LineNr">140 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> +<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L142" class="LineNr">142 </span> 68/push <span class="Constant">"F - test-write-byte-buffered-single"</span>/imm32 +<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L144" class="LineNr">144 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . call</span> +<span id="L146" class="LineNr">146 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L148" class="LineNr">148 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L149" class="LineNr">149 </span> <span class="subxS1Comment"># . end</span> +<span id="L150" class="LineNr">150 </span> c3/return +<span id="L151" class="LineNr">151 </span> +<span id="L152" class="LineNr">152 </span><span class="subxTest">test-write-byte-buffered-multiple-flushes</span>: +<span id="L153" class="LineNr">153 </span> <span class="subxH1Comment"># - check that write-byte-buffered correctly flushes buffered data</span> +<span id="L154" class="LineNr">154 </span> <span class="subxComment"># setup</span> +<span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L157" class="LineNr">157 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> +<span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L161" class="LineNr">161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L162" class="LineNr">162 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L163" class="LineNr">163 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L164" class="LineNr">164 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L165" class="LineNr">165 </span> <span class="subxS2Comment"># . . call</span> +<span id="L166" class="LineNr">166 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L168" class="LineNr">168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L169" class="LineNr">169 </span> <span class="subxComment"># fill up the buffer for _test-buffered-file</span> +<span id="L170" class="LineNr">170 </span> <span class="subxS1Comment"># . write($_test-buffered-file->buffer, "abcdef")</span> +<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L172" class="LineNr">172 </span> 68/push <span class="Constant">"abcdef"</span>/imm32 +<span id="L173" class="LineNr">173 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . call</span> +<span id="L175" class="LineNr">175 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L177" class="LineNr">177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L178" class="LineNr">178 </span> <span class="subxComment"># write-byte-buffered(_test-buffered-file, 'g')</span> +<span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L180" class="LineNr">180 </span> 68/push 0x67/imm32 +<span id="L181" class="LineNr">181 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . call</span> +<span id="L183" class="LineNr">183 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L185" class="LineNr">185 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L186" class="LineNr">186 </span> <span class="subxComment"># flush(_test-buffered-file)</span> +<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L188" class="LineNr">188 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . call</span> +<span id="L190" class="LineNr">190 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L192" class="LineNr">192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L193" class="LineNr">193 </span> <span class="subxComment"># check-stream-equal(_test-stream, "abcdefg", msg)</span> +<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L195" class="LineNr">195 </span> 68/push <span class="Constant">"F - test-write-byte-buffered-multiple-flushes"</span>/imm32 +<span id="L196" class="LineNr">196 </span> 68/push <span class="Constant">"abcdefg"</span>/imm32 +<span id="L197" class="LineNr">197 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> +<span id="L199" class="LineNr">199 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L201" class="LineNr">201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L202" class="LineNr">202 </span> <span class="subxS1Comment"># . end</span> +<span id="L203" class="LineNr">203 </span> c3/return +<span id="L204" class="LineNr">204 </span> +<span id="L205" class="LineNr">205 </span><span class="subxH1Comment"># - variant without buffering</span> +<span id="L206" class="LineNr">206 </span> +<span id="L207" class="LineNr">207 </span><span class="subxComment"># Write lower byte of 'n' to 'f'.</span> +<span id="L208" class="LineNr">208 </span><span class="subxFunction">append-byte</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> +<span id="L209" class="LineNr">209 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L210" class="LineNr">210 </span> 55/push-ebp +<span id="L211" class="LineNr">211 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L212" class="LineNr">212 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L213" class="LineNr">213 </span> 50/push-eax +<span id="L214" class="LineNr">214 </span> 51/push-ecx +<span id="L215" class="LineNr">215 </span> 57/push-edi +<span id="L216" class="LineNr">216 </span> <span class="subxComment"># edi = f</span> +<span id="L217" class="LineNr">217 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L218" class="LineNr">218 </span> <span class="subxComment"># ecx = f->write</span> +<span id="L219" class="LineNr">219 </span> 8b/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edi to ecx</span> +<span id="L220" class="LineNr">220 </span> <span class="subxComment"># if (f->write >= f->size) abort</span> +<span id="L221" class="LineNr">221 </span> 3b/compare 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(edi+8)</span> +<span id="L222" class="LineNr">222 </span> 7d/jump-if->= $append-byte:abort/disp8 +<span id="L223" class="LineNr">223 </span><span class="Constant">$append-byte:to-stream</span>: +<span id="L224" class="LineNr">224 </span> <span class="subxComment"># write to stream</span> +<span id="L225" class="LineNr">225 </span> <span class="subxComment"># f->data[f->write] = LSB(n)</span> +<span id="L226" class="LineNr">226 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L227" class="LineNr">227 </span> 8a/copy-byte 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(ebp+12) to AL</span> +<span id="L228" class="LineNr">228 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ecx+12)</span> +<span id="L229" class="LineNr">229 </span> <span class="subxComment"># ++f->write</span> +<span id="L230" class="LineNr">230 </span> ff 0/subop/increment 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *edi</span> +<span id="L231" class="LineNr">231 </span><span class="Constant">$append-byte:end</span>: +<span id="L232" class="LineNr">232 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L233" class="LineNr">233 </span> 5f/pop-to-edi +<span id="L234" class="LineNr">234 </span> 59/pop-to-ecx +<span id="L235" class="LineNr">235 </span> 58/pop-to-eax +<span id="L236" class="LineNr">236 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L237" class="LineNr">237 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L238" class="LineNr">238 </span> 5d/pop-to-ebp +<span id="L239" class="LineNr">239 </span> c3/return +<span id="L240" class="LineNr">240 </span> +<span id="L241" class="LineNr">241 </span><span class="Constant">$append-byte:abort</span>: +<span id="L242" class="LineNr">242 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L243" class="LineNr">243 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L244" class="LineNr">244 </span> 68/push <span class="Constant">"append-byte: out of space\n"</span>/imm32 +<span id="L245" class="LineNr">245 </span> 68/push 2/imm32/stderr +<span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . call</span> +<span id="L247" class="LineNr">247 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L248" class="LineNr">248 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L249" class="LineNr">249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L251" class="LineNr">251 </span> bb/copy-to-ebx 1/imm32 +<span id="L252" class="LineNr">252 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L253" class="LineNr">253 </span> <span class="subxComment"># never gets here</span> +<span id="L254" class="LineNr">254 </span> +<span id="L255" class="LineNr">255 </span><span class="subxTest">test-append-byte-single</span>: +<span id="L256" class="LineNr">256 </span> <span class="subxH1Comment"># - check that append-byte writes to first byte of 'file'</span> +<span id="L257" class="LineNr">257 </span> <span class="subxComment"># setup</span> +<span id="L258" class="LineNr">258 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L260" class="LineNr">260 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . call</span> +<span id="L262" class="LineNr">262 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L264" class="LineNr">264 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L265" class="LineNr">265 </span> <span class="subxComment"># append-byte(_test-stream, 'A')</span> +<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L267" class="LineNr">267 </span> 68/push 0x41/imm32 +<span id="L268" class="LineNr">268 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . call</span> +<span id="L270" class="LineNr">270 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 +<span id="L271" class="LineNr">271 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L272" class="LineNr">272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L273" class="LineNr">273 </span> <span class="subxComment"># check-stream-equal(_test-stream, "A", msg)</span> +<span id="L274" class="LineNr">274 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L275" class="LineNr">275 </span> 68/push <span class="Constant">"F - test-append-byte-single"</span>/imm32 +<span id="L276" class="LineNr">276 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L277" class="LineNr">277 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . call</span> +<span id="L279" class="LineNr">279 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L281" class="LineNr">281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L282" class="LineNr">282 </span> <span class="subxS1Comment"># . end</span> +<span id="L283" class="LineNr">283 </span> c3/return +<span id="L284" class="LineNr">284 </span> +<span id="L285" class="LineNr">285 </span>== data +<span id="L286" class="LineNr">286 </span> +<span id="L287" class="LineNr">287 </span><span class="subxMinorFunction">_test-output-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L288" class="LineNr">288 </span> <span class="subxComment"># current write index</span> +<span id="L289" class="LineNr">289 </span> 0/imm32 +<span id="L290" class="LineNr">290 </span> <span class="subxComment"># current read index</span> +<span id="L291" class="LineNr">291 </span> 0/imm32 +<span id="L292" class="LineNr">292 </span> <span class="subxComment"># size</span> +<span id="L293" class="LineNr">293 </span> 0x800/imm32 <span class="subxComment"># 2048 bytes</span> +<span id="L294" class="LineNr">294 </span> <span class="subxComment"># data (128 lines x 16 bytes/line)</span> +<span id="L295" class="LineNr">295 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L296" class="LineNr">296 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L297" class="LineNr">297 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L298" class="LineNr">298 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L299" class="LineNr">299 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L300" class="LineNr">300 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L301" class="LineNr">301 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L302" class="LineNr">302 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L303" class="LineNr">303 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L304" class="LineNr">304 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L305" class="LineNr">305 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L306" class="LineNr">306 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L307" class="LineNr">307 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L308" class="LineNr">308 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L309" class="LineNr">309 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L310" class="LineNr">310 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L311" class="LineNr">311 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L312" class="LineNr">312 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L313" class="LineNr">313 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L314" class="LineNr">314 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L315" class="LineNr">315 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L316" class="LineNr">316 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L317" class="LineNr">317 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L318" class="LineNr">318 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L319" class="LineNr">319 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L320" class="LineNr">320 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L321" class="LineNr">321 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L322" class="LineNr">322 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L323" class="LineNr">323 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L324" class="LineNr">324 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L325" class="LineNr">325 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L326" class="LineNr">326 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L327" class="LineNr">327 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L328" class="LineNr">328 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L329" class="LineNr">329 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L330" class="LineNr">330 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L331" class="LineNr">331 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L332" class="LineNr">332 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L333" class="LineNr">333 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L334" class="LineNr">334 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L335" class="LineNr">335 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L336" class="LineNr">336 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L337" class="LineNr">337 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L338" class="LineNr">338 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L339" class="LineNr">339 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L340" class="LineNr">340 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L341" class="LineNr">341 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L342" class="LineNr">342 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L343" class="LineNr">343 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L344" class="LineNr">344 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L345" class="LineNr">345 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L346" class="LineNr">346 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L347" class="LineNr">347 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L348" class="LineNr">348 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L349" class="LineNr">349 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L350" class="LineNr">350 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L351" class="LineNr">351 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L352" class="LineNr">352 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L353" class="LineNr">353 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L354" class="LineNr">354 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L355" class="LineNr">355 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L356" class="LineNr">356 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L357" class="LineNr">357 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L358" class="LineNr">358 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L359" class="LineNr">359 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L360" class="LineNr">360 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L361" class="LineNr">361 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L362" class="LineNr">362 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L363" class="LineNr">363 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L364" class="LineNr">364 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L365" class="LineNr">365 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L366" class="LineNr">366 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L367" class="LineNr">367 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L368" class="LineNr">368 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L369" class="LineNr">369 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L370" class="LineNr">370 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L371" class="LineNr">371 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L372" class="LineNr">372 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L373" class="LineNr">373 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L374" class="LineNr">374 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L375" class="LineNr">375 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L376" class="LineNr">376 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L377" class="LineNr">377 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L378" class="LineNr">378 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L379" class="LineNr">379 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L380" class="LineNr">380 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L381" class="LineNr">381 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L382" class="LineNr">382 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L383" class="LineNr">383 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L384" class="LineNr">384 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L385" class="LineNr">385 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L386" class="LineNr">386 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L387" class="LineNr">387 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L388" class="LineNr">388 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L389" class="LineNr">389 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L390" class="LineNr">390 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L391" class="LineNr">391 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L392" class="LineNr">392 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L393" class="LineNr">393 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L394" class="LineNr">394 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L395" class="LineNr">395 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L396" class="LineNr">396 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L397" class="LineNr">397 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L398" class="LineNr">398 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L399" class="LineNr">399 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L400" class="LineNr">400 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L401" class="LineNr">401 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L402" class="LineNr">402 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L403" class="LineNr">403 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L404" class="LineNr">404 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L405" class="LineNr">405 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L406" class="LineNr">406 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L407" class="LineNr">407 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L408" class="LineNr">408 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L409" class="LineNr">409 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L410" class="LineNr">410 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L411" class="LineNr">411 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L412" class="LineNr">412 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L413" class="LineNr">413 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L414" class="LineNr">414 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L415" class="LineNr">415 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L416" class="LineNr">416 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L417" class="LineNr">417 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L418" class="LineNr">418 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L419" class="LineNr">419 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L420" class="LineNr">420 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L421" class="LineNr">421 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L422" class="LineNr">422 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L423" class="LineNr">423 </span> +<span id="L424" class="LineNr">424 </span><span class="subxComment"># a test buffered file for _test-output-stream</span> +<span id="L425" class="LineNr">425 </span><span class="subxMinorFunction">_test-output-buffered-file</span>: <span class="subxComment"># buffered-file</span> +<span id="L426" class="LineNr">426 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L427" class="LineNr">427 </span> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L428" class="LineNr">428 </span><span class="Constant">$_test-output-buffered-file->buffer</span>: +<span id="L429" class="LineNr">429 </span> <span class="subxComment"># current write index</span> +<span id="L430" class="LineNr">430 </span> 0/imm32 +<span id="L431" class="LineNr">431 </span> <span class="subxComment"># current read index</span> +<span id="L432" class="LineNr">432 </span> 0/imm32 +<span id="L433" class="LineNr">433 </span> <span class="subxComment"># size</span> +<span id="L434" class="LineNr">434 </span> 6/imm32 +<span id="L435" class="LineNr">435 </span> <span class="subxComment"># data</span> +<span id="L436" class="LineNr">436 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> +<span id="L437" class="LineNr">437 </span> +<span id="L438" class="LineNr">438 </span><span class="subxMinorFunction">_test-error-stream</span>: <span class="subxComment"># (stream byte)</span> +<span id="L439" class="LineNr">439 </span> <span class="subxComment"># current write index</span> +<span id="L440" class="LineNr">440 </span> 0/imm32 +<span id="L441" class="LineNr">441 </span> <span class="subxComment"># current read index</span> +<span id="L442" class="LineNr">442 </span> 0/imm32 +<span id="L443" class="LineNr">443 </span> <span class="subxComment"># line</span> +<span id="L444" class="LineNr">444 </span> 0x100/imm32 <span class="subxComment"># 256 bytes</span> +<span id="L445" class="LineNr">445 </span> <span class="subxComment"># data (16 lines x 16 bytes/line)</span> +<span id="L446" class="LineNr">446 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L447" class="LineNr">447 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L448" class="LineNr">448 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L449" class="LineNr">449 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L450" class="LineNr">450 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L451" class="LineNr">451 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L452" class="LineNr">452 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L453" class="LineNr">453 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L454" class="LineNr">454 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L455" class="LineNr">455 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L456" class="LineNr">456 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L457" class="LineNr">457 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L458" class="LineNr">458 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L459" class="LineNr">459 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L460" class="LineNr">460 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L461" class="LineNr">461 </span> 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 +<span id="L462" class="LineNr">462 </span> +<span id="L463" class="LineNr">463 </span><span class="subxComment"># a test buffered file for _test-error-stream</span> +<span id="L464" class="LineNr">464 </span><span class="subxMinorFunction">_test-error-buffered-file</span>: <span class="subxComment"># buffered-file</span> +<span id="L465" class="LineNr">465 </span> <span class="subxComment"># file descriptor or (addr stream byte)</span> +<span id="L466" class="LineNr">466 </span> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L467" class="LineNr">467 </span><span class="Constant">$_test-error-buffered-file->buffer</span>: +<span id="L468" class="LineNr">468 </span> <span class="subxComment"># current write index</span> +<span id="L469" class="LineNr">469 </span> 0/imm32 +<span id="L470" class="LineNr">470 </span> <span class="subxComment"># current read index</span> +<span id="L471" class="LineNr">471 </span> 0/imm32 +<span id="L472" class="LineNr">472 </span> <span class="subxComment"># size</span> +<span id="L473" class="LineNr">473 </span> 6/imm32 +<span id="L474" class="LineNr">474 </span> <span class="subxComment"># data</span> +<span id="L475" class="LineNr">475 </span> 00 00 00 00 00 00 <span class="subxComment"># 6 bytes</span> +<span id="L476" class="LineNr">476 </span> +<span id="L477" class="LineNr">477 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/116write-buffered.subx.html b/html/linux/116write-buffered.subx.html index adbd7d43..94ca3278 100644 --- a/html/116write-buffered.subx.html +++ b/html/linux/116write-buffered.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 116write-buffered.subx</title> +<title>Mu - linux/116write-buffered.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.SpecialChar { color: #d70000; } .LineNr { } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -57,7 +57,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/116write-buffered.subx'>https://github.com/akkartik/mu/blob/main/116write-buffered.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/116write-buffered.subx'>https://github.com/akkartik/mu/blob/main/linux/116write-buffered.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write-buffered: like 'write', but for a buffered-file</span> <span id="L2" class="LineNr"> 2 </span> diff --git a/html/linux/117write-int-hex.subx.html b/html/linux/117write-int-hex.subx.html new file mode 100644 index 00000000..751383ea --- /dev/null +++ b/html/linux/117write-int-hex.subx.html @@ -0,0 +1,478 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/117write-int-hex.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +.Folded { color: #080808; background-color: #949494; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/117write-int-hex.subx'>https://github.com/akkartik/mu/blob/main/linux/117write-int-hex.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Write out the (hex) textual representation of numbers.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span>== code +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># convert the lowest nibble of eax to ascii and return it in the lowest byte of eax</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">to-hex-char</span>: <span class="subxComment"># in/eax: int -> out/eax: int</span> +<span id="L10" class="LineNr"> 10 </span> <span class="subxComment"># no error checking; accepts argument in eax</span> +<span id="L11" class="LineNr"> 11 </span> <span class="subxComment"># if (eax <= 9) return eax + '0'</span> +<span id="L12" class="LineNr"> 12 </span> 3d/compare-eax-with 0x9/imm32/9 +<span id="L13" class="LineNr"> 13 </span> 7f/jump-if-> $to-hex-char:else/disp8 +<span id="L14" class="LineNr"> 14 </span> 05/add-to-eax 0x30/imm32/0 +<span id="L15" class="LineNr"> 15 </span> c3/return +<span id="L16" class="LineNr"> 16 </span><span class="Constant">$to-hex-char:else</span>: +<span id="L17" class="LineNr"> 17 </span> <span class="subxComment"># otherwise return eax + 'a' - 10</span> +<span id="L18" class="LineNr"> 18 </span> 05/add-to-eax 0x57/imm32/a-10 +<span id="L19" class="LineNr"> 19 </span> c3/return +<span id="L20" class="LineNr"> 20 </span> +<span id="L21" class="LineNr"> 21 </span><span class="subxFunction">append-byte-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> +<span id="L22" class="LineNr"> 22 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23" class="LineNr"> 23 </span> 55/push-ebp +<span id="L24" class="LineNr"> 24 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26" class="LineNr"> 26 </span> 50/push-eax +<span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># AL = convert upper nibble to hex</span> +<span id="L28" class="LineNr"> 28 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L29" class="LineNr"> 29 </span> c1/shift 5/subop/logic-right 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift eax right by 4 bits, while padding zeroes</span> +<span id="L30" class="LineNr"> 30 </span> 25/and-eax 0xf/imm32 +<span id="L31" class="LineNr"> 31 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> +<span id="L32" class="LineNr"> 32 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L33" class="LineNr"> 33 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L34" class="LineNr"> 34 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L35" class="LineNr"> 35 </span> 50/push-eax +<span id="L36" class="LineNr"> 36 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . call</span> +<span id="L38" class="LineNr"> 38 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 +<span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L40" class="LineNr"> 40 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L41" class="LineNr"> 41 </span> <span class="subxComment"># AL = convert lower nibble to hex</span> +<span id="L42" class="LineNr"> 42 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L43" class="LineNr"> 43 </span> 25/and-eax 0xf/imm32 +<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> +<span id="L45" class="LineNr"> 45 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L46" class="LineNr"> 46 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L48" class="LineNr"> 48 </span> 50/push-eax +<span id="L49" class="LineNr"> 49 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> +<span id="L51" class="LineNr"> 51 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 +<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L53" class="LineNr"> 53 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L54" class="LineNr"> 54 </span><span class="Constant">$append-byte-hex:end</span>: +<span id="L55" class="LineNr"> 55 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L56" class="LineNr"> 56 </span> 58/pop-to-eax +<span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L58" class="LineNr"> 58 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L59" class="LineNr"> 59 </span> 5d/pop-to-ebp +<span id="L60" class="LineNr"> 60 </span> c3/return +<span id="L61" class="LineNr"> 61 </span> +<span id="L62" class="LineNr"> 62 </span><span class="subxTest">test-append-byte-hex</span>: +<span id="L63" class="LineNr"> 63 </span> <span class="subxH1Comment"># - check that append-byte-hex adds the hex textual representation</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># setup</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L67" class="LineNr"> 67 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . call</span> +<span id="L69" class="LineNr"> 69 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L71" class="LineNr"> 71 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># append-byte-hex(_test-stream, 0xa) # exercises digit, non-digit as well as leading zero</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L74" class="LineNr"> 74 </span> 68/push 0xa/imm32 +<span id="L75" class="LineNr"> 75 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> +<span id="L77" class="LineNr"> 77 </span> e8/call <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a>/disp32 +<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L79" class="LineNr"> 79 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0a", msg)</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L82" class="LineNr"> 82 </span> 68/push <span class="Constant">"F - test-append-byte-hex"</span>/imm32 +<span id="L83" class="LineNr"> 83 </span> 68/push <span class="Constant">"0a"</span>/imm32 +<span id="L84" class="LineNr"> 84 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . call</span> +<span id="L86" class="LineNr"> 86 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L88" class="LineNr"> 88 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L89" class="LineNr"> 89 </span> <span class="subxS1Comment"># . end</span> +<span id="L90" class="LineNr"> 90 </span> c3/return +<span id="L91" class="LineNr"> 91 </span> +<span id="L92" class="LineNr"> 92 </span><span class="subxComment"># print the hex representation for the lowest byte of a number</span> +<span id="L93" class="LineNr"> 93 </span><span class="subxFunction">write-byte-hex-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> +<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L95" class="LineNr"> 95 </span> 55/push-ebp +<span id="L96" class="LineNr"> 96 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L98" class="LineNr"> 98 </span> 50/push-eax +<span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># AL = convert upper nibble to hex</span> +<span id="L100" class="LineNr">100 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L101" class="LineNr">101 </span> c1/shift 5/subop/logic-right 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift eax right by 4 bits, while padding zeroes</span> +<span id="L102" class="LineNr">102 </span> 25/and-eax 0xf/imm32 +<span id="L103" class="LineNr">103 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> +<span id="L104" class="LineNr">104 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L105" class="LineNr">105 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> +<span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L107" class="LineNr">107 </span> 50/push-eax +<span id="L108" class="LineNr">108 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . call</span> +<span id="L110" class="LineNr">110 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L111" class="LineNr">111 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L112" class="LineNr">112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L113" class="LineNr">113 </span> <span class="subxComment"># AL = convert lower nibble to hex</span> +<span id="L114" class="LineNr">114 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L115" class="LineNr">115 </span> 25/and-eax 0xf/imm32 +<span id="L116" class="LineNr">116 </span> <span class="subxS1Comment"># . AL = to-hex-char(AL)</span> +<span id="L117" class="LineNr">117 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L118" class="LineNr">118 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> +<span id="L119" class="LineNr">119 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L120" class="LineNr">120 </span> 50/push-eax +<span id="L121" class="LineNr">121 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . call</span> +<span id="L123" class="LineNr">123 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L125" class="LineNr">125 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L126" class="LineNr">126 </span><span class="Constant">$write-byte-hex-buffered:end</span>: +<span id="L127" class="LineNr">127 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L128" class="LineNr">128 </span> 58/pop-to-eax +<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L130" class="LineNr">130 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L131" class="LineNr">131 </span> 5d/pop-to-ebp +<span id="L132" class="LineNr">132 </span> c3/return +<span id="L133" class="LineNr">133 </span> +<span id="L134" class="LineNr">134 </span><span class="subxTest">test-write-byte-hex-buffered</span>: +<span id="L135" class="LineNr">135 </span> <span class="subxH1Comment"># - check that write-byte-hex-buffered prints the hex textual representation</span> +<span id="L136" class="LineNr">136 </span> <span class="subxComment"># setup</span> +<span id="L137" class="LineNr">137 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L139" class="LineNr">139 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . call</span> +<span id="L141" class="LineNr">141 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L143" class="LineNr">143 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L144" class="LineNr">144 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L145" class="LineNr">145 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L146" class="LineNr">146 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L147" class="LineNr">147 </span> <span class="subxS2Comment"># . . call</span> +<span id="L148" class="LineNr">148 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L150" class="LineNr">150 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L151" class="LineNr">151 </span> <span class="subxComment"># write-byte-hex-buffered(_test-buffered-file, 0xa) # exercises digit, non-digit as well as leading zero</span> +<span id="L152" class="LineNr">152 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L153" class="LineNr">153 </span> 68/push 0xa/imm32 +<span id="L154" class="LineNr">154 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . call</span> +<span id="L156" class="LineNr">156 </span> e8/call <a href='117write-int-hex.subx.html#L93'>write-byte-hex-buffered</a>/disp32 +<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L158" class="LineNr">158 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L159" class="LineNr">159 </span> <span class="subxComment"># flush(_test-buffered-file)</span> +<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L161" class="LineNr">161 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> +<span id="L163" class="LineNr">163 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L166" class="LineNr">166 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0a", msg)</span> +<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"F - test-write-byte-hex-buffered"</span>/imm32 +<span id="L169" class="LineNr">169 </span> 68/push <span class="Constant">"0a"</span>/imm32 +<span id="L170" class="LineNr">170 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> +<span id="L172" class="LineNr">172 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L175" class="LineNr">175 </span> <span class="subxS1Comment"># . end</span> +<span id="L176" class="LineNr">176 </span> c3/return +<span id="L177" class="LineNr">177 </span> +<span id="L178" class="LineNr">178 </span><span class="subxFunction">write-int32-hex</span>: <span class="subxComment"># f: (addr stream byte), n: int</span> +<span id="L179" class="LineNr">179 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L180" class="LineNr">180 </span> 55/push-ebp +<span id="L181" class="LineNr">181 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L182" class="LineNr">182 </span><span class="Constant">$write-int32-hex:hex-prefix</span>: +<span id="L183" class="LineNr">183 </span> <span class="subxComment"># write(f, "0x")</span> +<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L185" class="LineNr">185 </span> 68/push <span class="Constant">"0x"</span>/imm32 +<span id="L186" class="LineNr">186 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . call</span> +<span id="L188" class="LineNr">188 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L190" class="LineNr">190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L191" class="LineNr">191 </span><span class="Constant">$write-int32-hex:rest</span>: +<span id="L192" class="LineNr">192 </span> <span class="subxComment"># write-int32-hex-bits(f, n, 32)</span> +<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L194" class="LineNr">194 </span> 68/push 0x20/imm32 +<span id="L195" class="LineNr">195 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L196" class="LineNr">196 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> +<span id="L198" class="LineNr">198 </span> e8/call <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a>/disp32 +<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L201" class="LineNr">201 </span><span class="Constant">$write-int32-hex:end</span>: +<span id="L202" class="LineNr">202 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L203" class="LineNr">203 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L204" class="LineNr">204 </span> 5d/pop-to-ebp +<span id="L205" class="LineNr">205 </span> c3/return +<span id="L206" class="LineNr">206 </span> +<span id="L207" class="LineNr">207 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> +<span id="L208" class="LineNr">208 </span><span class="subxComment"># bits must be multiple of 4</span> +<span id="L209" class="LineNr">209 </span><span class="subxFunction">write-int32-hex-bits</span>: <span class="subxComment"># f: (addr stream byte), n: int, bits: int</span> +<span id="L210" class="LineNr">210 </span> <span class="subxComment"># pseudocode:</span> +<span id="L211" class="LineNr">211 </span> <span class="subxComment"># bits -= 4</span> +<span id="L212" class="LineNr">212 </span> <span class="subxComment"># while true</span> +<span id="L213" class="LineNr">213 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L214" class="LineNr">214 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L215" class="LineNr">215 </span> <span class="subxComment"># eax = eax & 0xf</span> +<span id="L216" class="LineNr">216 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L217" class="LineNr">217 </span> <span class="subxComment"># bits -= 4</span> +<span id="L218" class="LineNr">218 </span> <span class="subxComment">#</span> +<span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L220" class="LineNr">220 </span> 55/push-ebp +<span id="L221" class="LineNr">221 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L222" class="LineNr">222 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L223" class="LineNr">223 </span> 50/push-eax +<span id="L224" class="LineNr">224 </span> 51/push-ecx +<span id="L225" class="LineNr">225 </span> <span class="subxComment"># ecx = bits-4</span> +<span id="L226" class="LineNr">226 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L227" class="LineNr">227 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L228" class="LineNr">228 </span><span class="Constant">$write-int32-hex-bits:loop</span>: +<span id="L229" class="LineNr">229 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L230" class="LineNr">230 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L231" class="LineNr">231 </span> 7c/jump-if-< $write-int32-hex-bits:end/disp8 +<span id="L232" class="LineNr">232 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L233" class="LineNr">233 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L234" class="LineNr">234 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> +<span id="L235" class="LineNr">235 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> +<span id="L236" class="LineNr">236 </span> 25/and-eax 0xf/imm32 +<span id="L237" class="LineNr">237 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L238" class="LineNr">238 </span> <span class="subxComment"># append-byte(f, AL)</span> +<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L240" class="LineNr">240 </span> 50/push-eax +<span id="L241" class="LineNr">241 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L242" class="LineNr">242 </span> <span class="subxS2Comment"># . . call</span> +<span id="L243" class="LineNr">243 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 +<span id="L244" class="LineNr">244 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L245" class="LineNr">245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L246" class="LineNr">246 </span> <span class="subxComment"># bits -= 4</span> +<span id="L247" class="LineNr">247 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L248" class="LineNr">248 </span> eb/jump $write-int32-hex-bits:<span class="Constant">loop</span>/disp8 +<span id="L249" class="LineNr">249 </span><span class="Constant">$write-int32-hex-bits:end</span>: +<span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L251" class="LineNr">251 </span> 59/pop-to-ecx +<span id="L252" class="LineNr">252 </span> 58/pop-to-eax +<span id="L253" class="LineNr">253 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L254" class="LineNr">254 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L255" class="LineNr">255 </span> 5d/pop-to-ebp +<span id="L256" class="LineNr">256 </span> c3/return +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="subxTest">test-write-int32-hex</span>: +<span id="L259" class="LineNr">259 </span> <span class="subxH1Comment"># - check that write-int32-hex prints the hex textual representation</span> +<span id="L260" class="LineNr">260 </span> <span class="subxComment"># setup</span> +<span id="L261" class="LineNr">261 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L263" class="LineNr">263 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . call</span> +<span id="L265" class="LineNr">265 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L267" class="LineNr">267 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L268" class="LineNr">268 </span> <span class="subxComment"># write-int32-hex(_test-stream, 0x8899aa)</span> +<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L270" class="LineNr">270 </span> 68/push 0x8899aa/imm32 +<span id="L271" class="LineNr">271 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . call</span> +<span id="L273" class="LineNr">273 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L274" class="LineNr">274 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L275" class="LineNr">275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L276" class="LineNr">276 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> +<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L278" class="LineNr">278 </span> 68/push <span class="Constant">"F - test-write-int32-hex"</span>/imm32 +<span id="L279" class="LineNr">279 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 +<span id="L280" class="LineNr">280 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L281" class="LineNr">281 </span> <span class="subxS2Comment"># . . call</span> +<span id="L282" class="LineNr">282 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L284" class="LineNr">284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L285" class="LineNr">285 </span> <span class="subxS1Comment"># . end</span> +<span id="L286" class="LineNr">286 </span> c3/return +<span id="L287" class="LineNr">287 </span> +<span id="L288" class="LineNr">288 </span><span class="subxFunction">write-int32-hex-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int</span> +<span id="L289" class="LineNr">289 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L290" class="LineNr">290 </span> 55/push-ebp +<span id="L291" class="LineNr">291 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L292" class="LineNr">292 </span><span class="Constant">$write-int32-hex-buffered:hex-prefix</span>: +<span id="L293" class="LineNr">293 </span> <span class="subxComment"># write-buffered(f, "0x")</span> +<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L295" class="LineNr">295 </span> 68/push <span class="Constant">"0x"</span>/imm32 +<span id="L296" class="LineNr">296 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L297" class="LineNr">297 </span> <span class="subxS2Comment"># . . call</span> +<span id="L298" class="LineNr">298 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L299" class="LineNr">299 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L300" class="LineNr">300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L301" class="LineNr">301 </span><span class="Constant">$write-int32-hex-buffered:rest</span>: +<span id="L302" class="LineNr">302 </span> <span class="subxComment"># write-int32-hex-bits-buffered(f, n, 32)</span> +<span id="L303" class="LineNr">303 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L304" class="LineNr">304 </span> 68/push 0x20/imm32 +<span id="L305" class="LineNr">305 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L306" class="LineNr">306 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . call</span> +<span id="L308" class="LineNr">308 </span> e8/call <a href='117write-int-hex.subx.html#L319'>write-int32-hex-bits-buffered</a>/disp32 +<span id="L309" class="LineNr">309 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L310" class="LineNr">310 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L311" class="LineNr">311 </span><span class="Constant">$write-int32-hex-buffered:end</span>: +<span id="L312" class="LineNr">312 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L313" class="LineNr">313 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L314" class="LineNr">314 </span> 5d/pop-to-ebp +<span id="L315" class="LineNr">315 </span> c3/return +<span id="L316" class="LineNr">316 </span> +<span id="L317" class="LineNr">317 </span><span class="subxComment"># print rightmost 'bits' of 'n'</span> +<span id="L318" class="LineNr">318 </span><span class="subxComment"># bits must be multiple of 4</span> +<span id="L319" class="LineNr">319 </span><span class="subxFunction">write-int32-hex-bits-buffered</span>: <span class="subxComment"># f: (addr buffered-file), n: int, bits: int</span> +<span id="L320" class="LineNr">320 </span> <span class="subxComment"># pseudocode:</span> +<span id="L321" class="LineNr">321 </span> <span class="subxComment"># bits -= 4</span> +<span id="L322" class="LineNr">322 </span> <span class="subxComment"># while true</span> +<span id="L323" class="LineNr">323 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L324" class="LineNr">324 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L325" class="LineNr">325 </span> <span class="subxComment"># eax = eax & 0xf</span> +<span id="L326" class="LineNr">326 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> +<span id="L327" class="LineNr">327 </span> <span class="subxComment"># bits -= 4</span> +<span id="L328" class="LineNr">328 </span> <span class="subxComment">#</span> +<span id="L329" class="LineNr">329 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L330" class="LineNr">330 </span> 55/push-ebp +<span id="L331" class="LineNr">331 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L332" class="LineNr">332 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L333" class="LineNr">333 </span> 50/push-eax +<span id="L334" class="LineNr">334 </span> 51/push-ecx +<span id="L335" class="LineNr">335 </span> <span class="subxComment"># ecx = bits-4</span> +<span id="L336" class="LineNr">336 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L337" class="LineNr">337 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L338" class="LineNr">338 </span><span class="Constant">$write-int32-hex-bits-buffered:loop</span>: +<span id="L339" class="LineNr">339 </span> <span class="subxComment"># if (bits < 0) break</span> +<span id="L340" class="LineNr">340 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L341" class="LineNr">341 </span> 7c/jump-if-< $write-int32-hex-bits-buffered:end/disp8 +<span id="L342" class="LineNr">342 </span> <span class="subxComment"># eax = n >> bits</span> +<span id="L343" class="LineNr">343 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L344" class="LineNr">344 </span> d3/>>ecx 5/subop/pad-zeroes 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># shift eax right by ecx bits, padding zeroes</span> +<span id="L345" class="LineNr">345 </span> <span class="subxComment"># eax = to-hex-char(AL)</span> +<span id="L346" class="LineNr">346 </span> 25/and-eax 0xf/imm32 +<span id="L347" class="LineNr">347 </span> e8/call <a href='117write-int-hex.subx.html#L9'>to-hex-char</a>/disp32 +<span id="L348" class="LineNr">348 </span> <span class="subxComment"># write-byte-buffered(f, AL)</span> +<span id="L349" class="LineNr">349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L350" class="LineNr">350 </span> 50/push-eax +<span id="L351" class="LineNr">351 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L352" class="LineNr">352 </span> <span class="subxS2Comment"># . . call</span> +<span id="L353" class="LineNr">353 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L354" class="LineNr">354 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L355" class="LineNr">355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L356" class="LineNr">356 </span> <span class="subxComment"># bits -= 4</span> +<span id="L357" class="LineNr">357 </span> 81 5/subop/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract from ecx</span> +<span id="L358" class="LineNr">358 </span> eb/jump $write-int32-hex-bits-buffered:<span class="Constant">loop</span>/disp8 +<span id="L359" class="LineNr">359 </span><span class="Constant">$write-int32-hex-bits-buffered:end</span>: +<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L361" class="LineNr">361 </span> 59/pop-to-ecx +<span id="L362" class="LineNr">362 </span> 58/pop-to-eax +<span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L364" class="LineNr">364 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L365" class="LineNr">365 </span> 5d/pop-to-ebp +<span id="L366" class="LineNr">366 </span> c3/return +<span id="L367" class="LineNr">367 </span> +<span id="L368" class="LineNr">368 </span><span class="subxTest">test-write-int32-hex-buffered</span>: +<span id="L369" class="LineNr">369 </span> <span class="subxH1Comment"># - check that write-int32-hex-buffered prints the hex textual representation</span> +<span id="L370" class="LineNr">370 </span> <span class="subxComment"># setup</span> +<span id="L371" class="LineNr">371 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L373" class="LineNr">373 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L374" class="LineNr">374 </span> <span class="subxS2Comment"># . . call</span> +<span id="L375" class="LineNr">375 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L377" class="LineNr">377 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L378" class="LineNr">378 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L380" class="LineNr">380 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . call</span> +<span id="L382" class="LineNr">382 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L384" class="LineNr">384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L385" class="LineNr">385 </span> <span class="subxComment"># write-int32-hex-buffered(_test-buffered-file, 0x8899aa)</span> +<span id="L386" class="LineNr">386 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L387" class="LineNr">387 </span> 68/push 0x8899aa/imm32 +<span id="L388" class="LineNr">388 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> +<span id="L390" class="LineNr">390 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L393" class="LineNr">393 </span> <span class="subxComment"># flush(_test-buffered-file)</span> +<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L395" class="LineNr">395 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L396" class="LineNr">396 </span> <span class="subxS2Comment"># . . call</span> +<span id="L397" class="LineNr">397 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L398" class="LineNr">398 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L399" class="LineNr">399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L400" class="Folded">400 </span><span class="Folded">+-- 18 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L418" class="LineNr">418 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0x008899aa", msg)</span> +<span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L420" class="LineNr">420 </span> 68/push <span class="Constant">"F - test-write-int32-hex-buffered"</span>/imm32 +<span id="L421" class="LineNr">421 </span> 68/push <span class="Constant">"0x008899aa"</span>/imm32 +<span id="L422" class="LineNr">422 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L423" class="LineNr">423 </span> <span class="subxS2Comment"># . . call</span> +<span id="L424" class="LineNr">424 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L425" class="LineNr">425 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L426" class="LineNr">426 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L427" class="LineNr">427 </span> <span class="subxS1Comment"># . end</span> +<span id="L428" class="LineNr">428 </span> c3/return +<span id="L429" class="LineNr">429 </span> +<span id="L430" class="LineNr">430 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/118parse-hex-int.subx.html b/html/linux/118parse-hex-int.subx.html index 6b441120..a67020ce 100644 --- a/html/baremetal/118parse-hex-int.subx.html +++ b/html/linux/118parse-hex-int.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/118parse-hex-int.subx</title> +<title>Mu - linux/118parse-hex-int.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,6 +14,7 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } @@ -55,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/118parse-hex-int.subx'>https://github.com/akkartik/mu/blob/main/baremetal/118parse-hex-int.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/118parse-hex-int.subx'>https://github.com/akkartik/mu/blob/main/linux/118parse-hex-int.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># some utilities for converting numbers from hex</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># lowercase letters only for now</span> @@ -65,7 +66,7 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> <span id="L7" class="LineNr"> 7 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> <span id="L8" class="LineNr"> 8 </span> -<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">is-hex-int?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxFunction">hex-int?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> <span id="L10" class="LineNr"> 10 </span> <span class="subxS1Comment"># . prologue</span> <span id="L11" class="LineNr"> 11 </span> 55/push-ebp <span id="L12" class="LineNr"> 12 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -82,58 +83,58 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> <span class="subxComment"># if s is empty return false</span> <span id="L24" class="LineNr"> 24 </span> b8/copy-to-eax 0/imm32/false <span id="L25" class="LineNr"> 25 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L26" class="LineNr"> 26 </span> 73/jump-if-addr>= $is-hex-int?:end/disp8 +<span id="L26" class="LineNr"> 26 </span> 73/jump-if-addr>= $hex-int?:end/disp8 <span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># skip past leading '-'</span> <span id="L28" class="LineNr"> 28 </span> <span class="subxS1Comment"># . if (*curr == '-') ++curr</span> <span id="L29" class="LineNr"> 29 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> <span id="L30" class="LineNr"> 30 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> <span id="L31" class="LineNr"> 31 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x2d/imm32/- <span class="subxComment"># compare ebx</span> -<span id="L32" class="LineNr"> 32 </span> 75/jump-if-!= $is-hex-int?:initial-0/disp8 +<span id="L32" class="LineNr"> 32 </span> 75/jump-if-!= $hex-int?:initial-0/disp8 <span id="L33" class="LineNr"> 33 </span> <span class="subxS1Comment"># . ++curr</span> <span id="L34" class="LineNr"> 34 </span> 41/increment-ecx <span id="L35" class="LineNr"> 35 </span> <span class="subxComment"># skip past leading '0x'</span> -<span id="L36" class="LineNr"> 36 </span><span class="Constant">$is-hex-int?:initial-0</span>: +<span id="L36" class="LineNr"> 36 </span><span class="Constant">$hex-int?:initial-0</span>: <span id="L37" class="LineNr"> 37 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> <span id="L38" class="LineNr"> 38 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> <span id="L39" class="LineNr"> 39 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> <span id="L40" class="LineNr"> 40 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32/0 <span class="subxComment"># compare ebx</span> -<span id="L41" class="LineNr"> 41 </span> 75/jump-if-!= $is-hex-int?:<span class="Constant">loop</span>/disp8 +<span id="L41" class="LineNr"> 41 </span> 75/jump-if-!= $hex-int?:<span class="Constant">loop</span>/disp8 <span id="L42" class="LineNr"> 42 </span> <span class="subxS1Comment"># . ++curr</span> <span id="L43" class="LineNr"> 43 </span> 41/increment-ecx -<span id="L44" class="LineNr"> 44 </span><span class="Constant">$is-hex-int?:initial-0x</span>: +<span id="L44" class="LineNr"> 44 </span><span class="Constant">$hex-int?:initial-0x</span>: <span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . if (curr >= in->end) return true</span> <span id="L46" class="LineNr"> 46 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L47" class="LineNr"> 47 </span> 73/jump-if-addr>= $is-hex-int?:true/disp8 +<span id="L47" class="LineNr"> 47 </span> 73/jump-if-addr>= $hex-int?:true/disp8 <span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> <span id="L49" class="LineNr"> 49 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> <span id="L50" class="LineNr"> 50 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> <span id="L51" class="LineNr"> 51 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x78/imm32/x <span class="subxComment"># compare ebx</span> -<span id="L52" class="LineNr"> 52 </span> 75/jump-if-!= $is-hex-int?:<span class="Constant">loop</span>/disp8 +<span id="L52" class="LineNr"> 52 </span> 75/jump-if-!= $hex-int?:<span class="Constant">loop</span>/disp8 <span id="L53" class="LineNr"> 53 </span> <span class="subxS1Comment"># . ++curr</span> <span id="L54" class="LineNr"> 54 </span> 41/increment-ecx -<span id="L55" class="LineNr"> 55 </span><span class="Constant">$is-hex-int?:loop</span>: +<span id="L55" class="LineNr"> 55 </span><span class="Constant">$hex-int?:loop</span>: <span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># if (curr >= in->end) return true</span> <span id="L57" class="LineNr"> 57 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L58" class="LineNr"> 58 </span> 73/jump-if-addr>= $is-hex-int?:true/disp8 -<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var eax: boolean = is-hex-digit?(*curr)</span> +<span id="L58" class="LineNr"> 58 </span> 73/jump-if-addr>= $hex-int?:true/disp8 +<span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># var eax: boolean = hex-digit?(*curr)</span> <span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . push args</span> <span id="L61" class="LineNr"> 61 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> <span id="L62" class="LineNr"> 62 </span> 50/push-eax <span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . call</span> -<span id="L64" class="LineNr"> 64 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L64" class="LineNr"> 64 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L66" class="LineNr"> 66 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># if (eax == false) return false</span> <span id="L68" class="LineNr"> 68 </span> 3d/compare-eax-and 0/imm32/false -<span id="L69" class="LineNr"> 69 </span> 74/jump-if-= $is-hex-int?:end/disp8 +<span id="L69" class="LineNr"> 69 </span> 74/jump-if-= $hex-int?:end/disp8 <span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># ++curr</span> <span id="L71" class="LineNr"> 71 </span> 41/increment-ecx <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># loop</span> -<span id="L73" class="LineNr"> 73 </span> eb/jump $is-hex-int?:<span class="Constant">loop</span>/disp8 -<span id="L74" class="LineNr"> 74 </span><span class="Constant">$is-hex-int?:true</span>: +<span id="L73" class="LineNr"> 73 </span> eb/jump $hex-int?:<span class="Constant">loop</span>/disp8 +<span id="L74" class="LineNr"> 74 </span><span class="Constant">$hex-int?:true</span>: <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># return true</span> <span id="L76" class="LineNr"> 76 </span> b8/copy-to-eax 1/imm32/true -<span id="L77" class="LineNr"> 77 </span><span class="Constant">$is-hex-int?:end</span>: +<span id="L77" class="LineNr"> 77 </span><span class="Constant">$hex-int?:end</span>: <span id="L78" class="LineNr"> 78 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L79" class="LineNr"> 79 </span> 5b/pop-to-ebx <span id="L80" class="LineNr"> 80 </span> 5a/pop-to-edx @@ -143,7 +144,7 @@ if ('onhashchange' in window) { <span id="L84" class="LineNr"> 84 </span> 5d/pop-to-ebp <span id="L85" class="LineNr"> 85 </span> c3/return <span id="L86" class="LineNr"> 86 </span> -<span id="L87" class="LineNr"> 87 </span><span class="subxTest">test-is-hex-int</span>: +<span id="L87" class="LineNr"> 87 </span><span class="subxTest">test-hex-int</span>: <span id="L88" class="LineNr"> 88 </span> <span class="subxS1Comment"># . prologue</span> <span id="L89" class="LineNr"> 89 </span> 55/push-ebp <span id="L90" class="LineNr"> 90 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -156,20 +157,20 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span> 51/push-ecx <span id="L98" class="LineNr"> 98 </span> 50/push-eax <span id="L99" class="LineNr"> 99 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L100" class="LineNr">100 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L100" class="LineNr">100 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L101" class="LineNr">101 </span> <span class="subxS2Comment"># . . push args</span> <span id="L102" class="LineNr">102 </span> 51/push-ecx <span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . call</span> -<span id="L104" class="LineNr">104 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L104" class="LineNr">104 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L106" class="LineNr">106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L107" class="LineNr">107 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L108" class="LineNr">108 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L109" class="LineNr">109 </span> 68/push <span class="Constant">"F - test-is-hex-int"</span>/imm32 +<span id="L109" class="LineNr">109 </span> 68/push <span class="Constant">"F - test-hex-int"</span>/imm32 <span id="L110" class="LineNr">110 </span> 68/push 1/imm32/true <span id="L111" class="LineNr">111 </span> 50/push-eax <span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . call</span> -<span id="L113" class="LineNr">113 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L113" class="LineNr">113 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L115" class="LineNr">115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L116" class="LineNr">116 </span> <span class="subxS1Comment"># . epilogue</span> @@ -177,7 +178,7 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span> 5d/pop-to-ebp <span id="L119" class="LineNr">119 </span> c3/return <span id="L120" class="LineNr">120 </span> -<span id="L121" class="LineNr">121 </span><span class="subxTest">test-is-hex-int-handles-letters</span>: +<span id="L121" class="LineNr">121 </span><span class="subxTest">test-hex-int-handles-letters</span>: <span id="L122" class="LineNr">122 </span> <span class="subxS1Comment"># . prologue</span> <span id="L123" class="LineNr">123 </span> 55/push-ebp <span id="L124" class="LineNr">124 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -190,20 +191,20 @@ if ('onhashchange' in window) { <span id="L131" class="LineNr">131 </span> 51/push-ecx <span id="L132" class="LineNr">132 </span> 50/push-eax <span id="L133" class="LineNr">133 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L134" class="LineNr">134 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L134" class="LineNr">134 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push args</span> <span id="L136" class="LineNr">136 </span> 51/push-ecx <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L138" class="LineNr">138 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L138" class="LineNr">138 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-letters"</span>/imm32 +<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-hex-int-handles-letters"</span>/imm32 <span id="L144" class="LineNr">144 </span> 68/push 1/imm32/true <span id="L145" class="LineNr">145 </span> 50/push-eax <span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L147" class="LineNr">147 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . epilogue</span> @@ -211,7 +212,7 @@ if ('onhashchange' in window) { <span id="L152" class="LineNr">152 </span> 5d/pop-to-ebp <span id="L153" class="LineNr">153 </span> c3/return <span id="L154" class="LineNr">154 </span> -<span id="L155" class="LineNr">155 </span><span class="subxTest">test-is-hex-int-with-trailing-char</span>: +<span id="L155" class="LineNr">155 </span><span class="subxTest">test-hex-int-with-trailing-char</span>: <span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . prologue</span> <span id="L157" class="LineNr">157 </span> 55/push-ebp <span id="L158" class="LineNr">158 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -224,20 +225,20 @@ if ('onhashchange' in window) { <span id="L165" class="LineNr">165 </span> 51/push-ecx <span id="L166" class="LineNr">166 </span> 50/push-eax <span id="L167" class="LineNr">167 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L168" class="LineNr">168 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L168" class="LineNr">168 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . push args</span> <span id="L170" class="LineNr">170 </span> 51/push-ecx <span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L172" class="LineNr">172 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L172" class="LineNr">172 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L174" class="LineNr">174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L175" class="LineNr">175 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L177" class="LineNr">177 </span> 68/push <span class="Constant">"F - test-is-hex-int-with-trailing-char"</span>/imm32 +<span id="L177" class="LineNr">177 </span> 68/push <span class="Constant">"F - test-hex-int-with-trailing-char"</span>/imm32 <span id="L178" class="LineNr">178 </span> 68/push 0/imm32/false <span id="L179" class="LineNr">179 </span> 50/push-eax <span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L181" class="LineNr">181 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L181" class="LineNr">181 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L182" class="LineNr">182 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L183" class="LineNr">183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L184" class="LineNr">184 </span> <span class="subxS1Comment"># . epilogue</span> @@ -245,7 +246,7 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr">186 </span> 5d/pop-to-ebp <span id="L187" class="LineNr">187 </span> c3/return <span id="L188" class="LineNr">188 </span> -<span id="L189" class="LineNr">189 </span><span class="subxTest">test-is-hex-int-with-leading-char</span>: +<span id="L189" class="LineNr">189 </span><span class="subxTest">test-hex-int-with-leading-char</span>: <span id="L190" class="LineNr">190 </span> <span class="subxS1Comment"># . prologue</span> <span id="L191" class="LineNr">191 </span> 55/push-ebp <span id="L192" class="LineNr">192 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -258,20 +259,20 @@ if ('onhashchange' in window) { <span id="L199" class="LineNr">199 </span> 51/push-ecx <span id="L200" class="LineNr">200 </span> 50/push-eax <span id="L201" class="LineNr">201 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L202" class="LineNr">202 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L202" class="LineNr">202 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . push args</span> <span id="L204" class="LineNr">204 </span> 51/push-ecx <span id="L205" class="LineNr">205 </span> <span class="subxS2Comment"># . . call</span> -<span id="L206" class="LineNr">206 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L206" class="LineNr">206 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L208" class="LineNr">208 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L209" class="LineNr">209 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L210" class="LineNr">210 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L211" class="LineNr">211 </span> 68/push <span class="Constant">"F - test-is-hex-int-with-leading-char"</span>/imm32 +<span id="L211" class="LineNr">211 </span> 68/push <span class="Constant">"F - test-hex-int-with-leading-char"</span>/imm32 <span id="L212" class="LineNr">212 </span> 68/push 0/imm32/false <span id="L213" class="LineNr">213 </span> 50/push-eax <span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . call</span> -<span id="L215" class="LineNr">215 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L215" class="LineNr">215 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L217" class="LineNr">217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . epilogue</span> @@ -279,7 +280,7 @@ if ('onhashchange' in window) { <span id="L220" class="LineNr">220 </span> 5d/pop-to-ebp <span id="L221" class="LineNr">221 </span> c3/return <span id="L222" class="LineNr">222 </span> -<span id="L223" class="LineNr">223 </span><span class="subxTest">test-is-hex-int-empty</span>: +<span id="L223" class="LineNr">223 </span><span class="subxTest">test-hex-int-empty</span>: <span id="L224" class="LineNr">224 </span> <span class="subxS1Comment"># . prologue</span> <span id="L225" class="LineNr">225 </span> 55/push-ebp <span id="L226" class="LineNr">226 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -287,20 +288,20 @@ if ('onhashchange' in window) { <span id="L228" class="LineNr">228 </span> 68/push 0/imm32 <span id="L229" class="LineNr">229 </span> 68/push 0/imm32 <span id="L230" class="LineNr">230 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L231" class="LineNr">231 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L231" class="LineNr">231 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . push args</span> <span id="L233" class="LineNr">233 </span> 51/push-ecx <span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L235" class="LineNr">235 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L235" class="LineNr">235 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L238" class="LineNr">238 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L240" class="LineNr">240 </span> 68/push <span class="Constant">"F - test-is-hex-int-empty"</span>/imm32 +<span id="L240" class="LineNr">240 </span> 68/push <span class="Constant">"F - test-hex-int-empty"</span>/imm32 <span id="L241" class="LineNr">241 </span> 68/push 0/imm32/false <span id="L242" class="LineNr">242 </span> 50/push-eax <span id="L243" class="LineNr">243 </span> <span class="subxS2Comment"># . . call</span> -<span id="L244" class="LineNr">244 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L244" class="LineNr">244 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L246" class="LineNr">246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L247" class="LineNr">247 </span> <span class="subxS1Comment"># . epilogue</span> @@ -308,7 +309,7 @@ if ('onhashchange' in window) { <span id="L249" class="LineNr">249 </span> 5d/pop-to-ebp <span id="L250" class="LineNr">250 </span> c3/return <span id="L251" class="LineNr">251 </span> -<span id="L252" class="LineNr">252 </span><span class="subxTest">test-is-hex-int-handles-0x-prefix</span>: +<span id="L252" class="LineNr">252 </span><span class="subxTest">test-hex-int-handles-0x-prefix</span>: <span id="L253" class="LineNr">253 </span> <span class="subxS1Comment"># . prologue</span> <span id="L254" class="LineNr">254 </span> 55/push-ebp <span id="L255" class="LineNr">255 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -321,20 +322,20 @@ if ('onhashchange' in window) { <span id="L262" class="LineNr">262 </span> 51/push-ecx <span id="L263" class="LineNr">263 </span> 50/push-eax <span id="L264" class="LineNr">264 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L265" class="LineNr">265 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L265" class="LineNr">265 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . push args</span> <span id="L267" class="LineNr">267 </span> 51/push-ecx <span id="L268" class="LineNr">268 </span> <span class="subxS2Comment"># . . call</span> -<span id="L269" class="LineNr">269 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L269" class="LineNr">269 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L270" class="LineNr">270 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L271" class="LineNr">271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L272" class="LineNr">272 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L273" class="LineNr">273 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L274" class="LineNr">274 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-0x-prefix"</span>/imm32 +<span id="L274" class="LineNr">274 </span> 68/push <span class="Constant">"F - test-hex-int-handles-0x-prefix"</span>/imm32 <span id="L275" class="LineNr">275 </span> 68/push 1/imm32/true <span id="L276" class="LineNr">276 </span> 50/push-eax <span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . call</span> -<span id="L278" class="LineNr">278 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L278" class="LineNr">278 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L279" class="LineNr">279 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L280" class="LineNr">280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L281" class="LineNr">281 </span> <span class="subxS1Comment"># . epilogue</span> @@ -342,7 +343,7 @@ if ('onhashchange' in window) { <span id="L283" class="LineNr">283 </span> 5d/pop-to-ebp <span id="L284" class="LineNr">284 </span> c3/return <span id="L285" class="LineNr">285 </span> -<span id="L286" class="LineNr">286 </span><span class="subxTest">test-is-hex-int-handles-negative</span>: +<span id="L286" class="LineNr">286 </span><span class="subxTest">test-hex-int-handles-negative</span>: <span id="L287" class="LineNr">287 </span> <span class="subxS1Comment"># . prologue</span> <span id="L288" class="LineNr">288 </span> 55/push-ebp <span id="L289" class="LineNr">289 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -355,20 +356,20 @@ if ('onhashchange' in window) { <span id="L296" class="LineNr">296 </span> 51/push-ecx <span id="L297" class="LineNr">297 </span> 50/push-eax <span id="L298" class="LineNr">298 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L299" class="LineNr">299 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L299" class="LineNr">299 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . push args</span> <span id="L301" class="LineNr">301 </span> 51/push-ecx <span id="L302" class="LineNr">302 </span> <span class="subxS2Comment"># . . call</span> -<span id="L303" class="LineNr">303 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L303" class="LineNr">303 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L304" class="LineNr">304 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L305" class="LineNr">305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L306" class="LineNr">306 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L308" class="LineNr">308 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-negative"</span>/imm32 +<span id="L308" class="LineNr">308 </span> 68/push <span class="Constant">"F - test-hex-int-handles-negative"</span>/imm32 <span id="L309" class="LineNr">309 </span> 68/push 1/imm32/true <span id="L310" class="LineNr">310 </span> 50/push-eax <span id="L311" class="LineNr">311 </span> <span class="subxS2Comment"># . . call</span> -<span id="L312" class="LineNr">312 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L312" class="LineNr">312 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L313" class="LineNr">313 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L314" class="LineNr">314 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L315" class="LineNr">315 </span> <span class="subxS1Comment"># . epilogue</span> @@ -376,7 +377,7 @@ if ('onhashchange' in window) { <span id="L317" class="LineNr">317 </span> 5d/pop-to-ebp <span id="L318" class="LineNr">318 </span> c3/return <span id="L319" class="LineNr">319 </span> -<span id="L320" class="LineNr">320 </span><span class="subxTest">test-is-hex-int-handles-negative-0x-prefix</span>: +<span id="L320" class="LineNr">320 </span><span class="subxTest">test-hex-int-handles-negative-0x-prefix</span>: <span id="L321" class="LineNr">321 </span> <span class="subxS1Comment"># . prologue</span> <span id="L322" class="LineNr">322 </span> 55/push-ebp <span id="L323" class="LineNr">323 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -389,20 +390,20 @@ if ('onhashchange' in window) { <span id="L330" class="LineNr">330 </span> 51/push-ecx <span id="L331" class="LineNr">331 </span> 50/push-eax <span id="L332" class="LineNr">332 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L333" class="LineNr">333 </span> <span class="subxComment"># eax = is-hex-int?(slice)</span> +<span id="L333" class="LineNr">333 </span> <span class="subxComment"># eax = hex-int?(slice)</span> <span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . push args</span> <span id="L335" class="LineNr">335 </span> 51/push-ecx <span id="L336" class="LineNr">336 </span> <span class="subxS2Comment"># . . call</span> -<span id="L337" class="LineNr">337 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>is-hex-int?</a>/disp32 +<span id="L337" class="LineNr">337 </span> e8/call <a href='118parse-hex-int.subx.html#L9'>hex-int?</a>/disp32 <span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L339" class="LineNr">339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L340" class="LineNr">340 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L342" class="LineNr">342 </span> 68/push <span class="Constant">"F - test-is-hex-int-handles-negative-0x-prefix"</span>/imm32 +<span id="L342" class="LineNr">342 </span> 68/push <span class="Constant">"F - test-hex-int-handles-negative-0x-prefix"</span>/imm32 <span id="L343" class="LineNr">343 </span> 68/push 1/imm32/true <span id="L344" class="LineNr">344 </span> 50/push-eax <span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L346" class="LineNr">346 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L346" class="LineNr">346 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L349" class="LineNr">349 </span> <span class="subxS1Comment"># . epilogue</span> @@ -579,7 +580,7 @@ if ('onhashchange' in window) { <span id="L520" class="LineNr">520 </span> 68/push 0xa/imm32 <span id="L521" class="LineNr">521 </span> 50/push-eax <span id="L522" class="LineNr">522 </span> <span class="subxS2Comment"># . . call</span> -<span id="L523" class="LineNr">523 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L523" class="LineNr">523 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L524" class="LineNr">524 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L525" class="LineNr">525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L526" class="LineNr">526 </span> <span class="subxS1Comment"># . epilogue</span> @@ -613,7 +614,7 @@ if ('onhashchange' in window) { <span id="L554" class="LineNr">554 </span> 68/push 0x34a/imm32 <span id="L555" class="LineNr">555 </span> 50/push-eax <span id="L556" class="LineNr">556 </span> <span class="subxS2Comment"># . . call</span> -<span id="L557" class="LineNr">557 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L557" class="LineNr">557 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L558" class="LineNr">558 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L559" class="LineNr">559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L560" class="LineNr">560 </span> <span class="subxS1Comment"># . epilogue</span> @@ -647,7 +648,7 @@ if ('onhashchange' in window) { <span id="L588" class="LineNr">588 </span> 68/push 0x34/imm32 <span id="L589" class="LineNr">589 </span> 50/push-eax <span id="L590" class="LineNr">590 </span> <span class="subxS2Comment"># . . call</span> -<span id="L591" class="LineNr">591 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L591" class="LineNr">591 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L592" class="LineNr">592 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L593" class="LineNr">593 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L594" class="LineNr">594 </span> <span class="subxS1Comment"># . epilogue</span> @@ -681,7 +682,7 @@ if ('onhashchange' in window) { <span id="L622" class="LineNr">622 </span> 68/push 0/imm32 <span id="L623" class="LineNr">623 </span> 50/push-eax <span id="L624" class="LineNr">624 </span> <span class="subxS2Comment"># . . call</span> -<span id="L625" class="LineNr">625 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L625" class="LineNr">625 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L626" class="LineNr">626 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L627" class="LineNr">627 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L628" class="LineNr">628 </span> <span class="subxS1Comment"># . epilogue</span> @@ -715,7 +716,7 @@ if ('onhashchange' in window) { <span id="L656" class="LineNr">656 </span> 68/push 0x3/imm32 <span id="L657" class="LineNr">657 </span> 50/push-eax <span id="L658" class="LineNr">658 </span> <span class="subxS2Comment"># . . call</span> -<span id="L659" class="LineNr">659 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L659" class="LineNr">659 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L660" class="LineNr">660 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L661" class="LineNr">661 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L662" class="LineNr">662 </span> <span class="subxS1Comment"># . epilogue</span> @@ -749,7 +750,7 @@ if ('onhashchange' in window) { <span id="L690" class="LineNr">690 </span> 68/push -3/imm32 <span id="L691" class="LineNr">691 </span> 50/push-eax <span id="L692" class="LineNr">692 </span> <span class="subxS2Comment"># . . call</span> -<span id="L693" class="LineNr">693 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L693" class="LineNr">693 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L694" class="LineNr">694 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L695" class="LineNr">695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L696" class="LineNr">696 </span> <span class="subxS1Comment"># . epilogue</span> @@ -757,7 +758,7 @@ if ('onhashchange' in window) { <span id="L698" class="LineNr">698 </span> 5d/pop-to-ebp <span id="L699" class="LineNr">699 </span> c3/return <span id="L700" class="LineNr">700 </span> -<span id="L701" class="LineNr">701 </span><span class="subxFunction">is-hex-digit?</span>: <span class="subxComment"># c: byte -> result/eax: boolean</span> +<span id="L701" class="LineNr">701 </span><span class="subxFunction">hex-digit?</span>: <span class="subxComment"># c: byte -> result/eax: boolean</span> <span id="L702" class="LineNr">702 </span> <span class="subxS1Comment"># . prologue</span> <span id="L703" class="LineNr">703 </span> 55/push-ebp <span id="L704" class="LineNr">704 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -767,25 +768,25 @@ if ('onhashchange' in window) { <span id="L708" class="LineNr">708 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> <span id="L709" class="LineNr">709 </span> <span class="subxComment"># return false if c < '0'</span> <span id="L710" class="LineNr">710 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> -<span id="L711" class="LineNr">711 </span> 7c/jump-if-< $is-hex-digit?:false/disp8 +<span id="L711" class="LineNr">711 </span> 7c/jump-if-< $hex-digit?:false/disp8 <span id="L712" class="LineNr">712 </span> <span class="subxComment"># return true if c <= '9'</span> <span id="L713" class="LineNr">713 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> -<span id="L714" class="LineNr">714 </span> 7e/jump-if-<= $is-hex-digit?:true/disp8 +<span id="L714" class="LineNr">714 </span> 7e/jump-if-<= $hex-digit?:true/disp8 <span id="L715" class="LineNr">715 </span> <span class="subxComment"># drop case</span> <span id="L716" class="LineNr">716 </span> 25/and-eax-with 0x5f/imm32 <span id="L717" class="LineNr">717 </span> <span class="subxComment"># return false if c > 'f'</span> <span id="L718" class="LineNr">718 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x66/imm32 <span class="subxComment"># compare ecx</span> -<span id="L719" class="LineNr">719 </span> 7f/jump-if-> $is-hex-digit?:false/disp8 +<span id="L719" class="LineNr">719 </span> 7f/jump-if-> $hex-digit?:false/disp8 <span id="L720" class="LineNr">720 </span> <span class="subxComment"># return true if c >= 'a'</span> <span id="L721" class="LineNr">721 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x61/imm32 <span class="subxComment"># compare ecx</span> -<span id="L722" class="LineNr">722 </span> 7d/jump-if->= $is-hex-digit?:true/disp8 +<span id="L722" class="LineNr">722 </span> 7d/jump-if->= $hex-digit?:true/disp8 <span id="L723" class="LineNr">723 </span> <span class="subxComment"># otherwise return false</span> -<span id="L724" class="LineNr">724 </span><span class="Constant">$is-hex-digit?:false</span>: +<span id="L724" class="LineNr">724 </span><span class="Constant">$hex-digit?:false</span>: <span id="L725" class="LineNr">725 </span> b8/copy-to-eax 0/imm32/false -<span id="L726" class="LineNr">726 </span> eb/jump $is-hex-digit?:end/disp8 -<span id="L727" class="LineNr">727 </span><span class="Constant">$is-hex-digit?:true</span>: +<span id="L726" class="LineNr">726 </span> eb/jump $hex-digit?:end/disp8 +<span id="L727" class="LineNr">727 </span><span class="Constant">$hex-digit?:true</span>: <span id="L728" class="LineNr">728 </span> b8/copy-to-eax 1/imm32/true -<span id="L729" class="LineNr">729 </span><span class="Constant">$is-hex-digit?:end</span>: +<span id="L729" class="LineNr">729 </span><span class="Constant">$hex-digit?:end</span>: <span id="L730" class="LineNr">730 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L731" class="LineNr">731 </span> 59/pop-to-ecx <span id="L732" class="LineNr">732 </span> <span class="subxS1Comment"># . epilogue</span> @@ -794,11 +795,11 @@ if ('onhashchange' in window) { <span id="L735" class="LineNr">735 </span> c3/return <span id="L736" class="LineNr">736 </span> <span id="L737" class="LineNr">737 </span><span class="subxTest">test-hex-below-0</span>: -<span id="L738" class="LineNr">738 </span> <span class="subxComment"># eax = is-hex-digit?(0x2f)</span> +<span id="L738" class="LineNr">738 </span> <span class="subxComment"># eax = hex-digit?(0x2f)</span> <span id="L739" class="LineNr">739 </span> <span class="subxS2Comment"># . . push args</span> <span id="L740" class="LineNr">740 </span> 68/push 0x2f/imm32 <span id="L741" class="LineNr">741 </span> <span class="subxS2Comment"># . . call</span> -<span id="L742" class="LineNr">742 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L742" class="LineNr">742 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L743" class="LineNr">743 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L744" class="LineNr">744 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L745" class="LineNr">745 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -807,17 +808,17 @@ if ('onhashchange' in window) { <span id="L748" class="LineNr">748 </span> 68/push 0/imm32/false <span id="L749" class="LineNr">749 </span> 50/push-eax <span id="L750" class="LineNr">750 </span> <span class="subxS2Comment"># . . call</span> -<span id="L751" class="LineNr">751 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L751" class="LineNr">751 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L752" class="LineNr">752 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L753" class="LineNr">753 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L754" class="LineNr">754 </span> c3/return <span id="L755" class="LineNr">755 </span> <span id="L756" class="LineNr">756 </span><span class="subxTest">test-hex-0-to-9</span>: -<span id="L757" class="LineNr">757 </span> <span class="subxComment"># eax = is-hex-digit?(0x30)</span> +<span id="L757" class="LineNr">757 </span> <span class="subxComment"># eax = hex-digit?(0x30)</span> <span id="L758" class="LineNr">758 </span> <span class="subxS2Comment"># . . push args</span> <span id="L759" class="LineNr">759 </span> 68/push 0x30/imm32 <span id="L760" class="LineNr">760 </span> <span class="subxS2Comment"># . . call</span> -<span id="L761" class="LineNr">761 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L761" class="LineNr">761 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L762" class="LineNr">762 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L763" class="LineNr">763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L764" class="LineNr">764 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -826,14 +827,14 @@ if ('onhashchange' in window) { <span id="L767" class="LineNr">767 </span> 68/push 1/imm32/true <span id="L768" class="LineNr">768 </span> 50/push-eax <span id="L769" class="LineNr">769 </span> <span class="subxS2Comment"># . . call</span> -<span id="L770" class="LineNr">770 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L770" class="LineNr">770 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L771" class="LineNr">771 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L772" class="LineNr">772 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L773" class="LineNr">773 </span> <span class="subxComment"># eax = is-hex-digit?(0x39)</span> +<span id="L773" class="LineNr">773 </span> <span class="subxComment"># eax = hex-digit?(0x39)</span> <span id="L774" class="LineNr">774 </span> <span class="subxS2Comment"># . . push args</span> <span id="L775" class="LineNr">775 </span> 68/push 0x39/imm32 <span id="L776" class="LineNr">776 </span> <span class="subxS2Comment"># . . call</span> -<span id="L777" class="LineNr">777 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L777" class="LineNr">777 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L778" class="LineNr">778 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L779" class="LineNr">779 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L780" class="LineNr">780 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -842,17 +843,17 @@ if ('onhashchange' in window) { <span id="L783" class="LineNr">783 </span> 68/push 1/imm32/true <span id="L784" class="LineNr">784 </span> 50/push-eax <span id="L785" class="LineNr">785 </span> <span class="subxS2Comment"># . . call</span> -<span id="L786" class="LineNr">786 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L786" class="LineNr">786 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L787" class="LineNr">787 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L788" class="LineNr">788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L789" class="LineNr">789 </span> c3/return <span id="L790" class="LineNr">790 </span> <span id="L791" class="LineNr">791 </span><span class="subxTest">test-hex-above-9-to-a</span>: -<span id="L792" class="LineNr">792 </span> <span class="subxComment"># eax = is-hex-digit?(0x3a)</span> +<span id="L792" class="LineNr">792 </span> <span class="subxComment"># eax = hex-digit?(0x3a)</span> <span id="L793" class="LineNr">793 </span> <span class="subxS2Comment"># . . push args</span> <span id="L794" class="LineNr">794 </span> 68/push 0x3a/imm32 <span id="L795" class="LineNr">795 </span> <span class="subxS2Comment"># . . call</span> -<span id="L796" class="LineNr">796 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L796" class="LineNr">796 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L797" class="LineNr">797 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L798" class="LineNr">798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L799" class="LineNr">799 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -861,17 +862,17 @@ if ('onhashchange' in window) { <span id="L802" class="LineNr">802 </span> 68/push 0/imm32/false <span id="L803" class="LineNr">803 </span> 50/push-eax <span id="L804" class="LineNr">804 </span> <span class="subxS2Comment"># . . call</span> -<span id="L805" class="LineNr">805 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L805" class="LineNr">805 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L806" class="LineNr">806 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L807" class="LineNr">807 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L808" class="LineNr">808 </span> c3/return <span id="L809" class="LineNr">809 </span> <span id="L810" class="LineNr">810 </span><span class="subxTest">test-hex-a-to-f</span>: -<span id="L811" class="LineNr">811 </span> <span class="subxComment"># eax = is-hex-digit?(0x61)</span> +<span id="L811" class="LineNr">811 </span> <span class="subxComment"># eax = hex-digit?(0x61)</span> <span id="L812" class="LineNr">812 </span> <span class="subxS2Comment"># . . push args</span> <span id="L813" class="LineNr">813 </span> 68/push 0x61/imm32 <span id="L814" class="LineNr">814 </span> <span class="subxS2Comment"># . . call</span> -<span id="L815" class="LineNr">815 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L815" class="LineNr">815 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L816" class="LineNr">816 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L817" class="LineNr">817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L818" class="LineNr">818 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -880,14 +881,14 @@ if ('onhashchange' in window) { <span id="L821" class="LineNr">821 </span> 68/push 1/imm32/true <span id="L822" class="LineNr">822 </span> 50/push-eax <span id="L823" class="LineNr">823 </span> <span class="subxS2Comment"># . . call</span> -<span id="L824" class="LineNr">824 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L824" class="LineNr">824 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L825" class="LineNr">825 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L826" class="LineNr">826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L827" class="LineNr">827 </span> <span class="subxComment"># eax = is-hex-digit?(0x66)</span> +<span id="L827" class="LineNr">827 </span> <span class="subxComment"># eax = hex-digit?(0x66)</span> <span id="L828" class="LineNr">828 </span> <span class="subxS2Comment"># . . push args</span> <span id="L829" class="LineNr">829 </span> 68/push 0x66/imm32 <span id="L830" class="LineNr">830 </span> <span class="subxS2Comment"># . . call</span> -<span id="L831" class="LineNr">831 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L831" class="LineNr">831 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L832" class="LineNr">832 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L833" class="LineNr">833 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L834" class="LineNr">834 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> @@ -896,17 +897,17 @@ if ('onhashchange' in window) { <span id="L837" class="LineNr">837 </span> 68/push 1/imm32/true <span id="L838" class="LineNr">838 </span> 50/push-eax <span id="L839" class="LineNr">839 </span> <span class="subxS2Comment"># . . call</span> -<span id="L840" class="LineNr">840 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L840" class="LineNr">840 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L841" class="LineNr">841 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L842" class="LineNr">842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L843" class="LineNr">843 </span> c3/return <span id="L844" class="LineNr">844 </span> <span id="L845" class="LineNr">845 </span><span class="subxTest">test-hex-above-f</span>: -<span id="L846" class="LineNr">846 </span> <span class="subxComment"># eax = is-hex-digit?(0x67)</span> +<span id="L846" class="LineNr">846 </span> <span class="subxComment"># eax = hex-digit?(0x67)</span> <span id="L847" class="LineNr">847 </span> <span class="subxS2Comment"># . . push args</span> <span id="L848" class="LineNr">848 </span> 68/push 0x67/imm32 <span id="L849" class="LineNr">849 </span> <span class="subxS2Comment"># . . call</span> -<span id="L850" class="LineNr">850 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L850" class="LineNr">850 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L851" class="LineNr">851 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L852" class="LineNr">852 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L853" class="LineNr">853 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> @@ -915,7 +916,7 @@ if ('onhashchange' in window) { <span id="L856" class="LineNr">856 </span> 68/push 0/imm32/false <span id="L857" class="LineNr">857 </span> 50/push-eax <span id="L858" class="LineNr">858 </span> <span class="subxS2Comment"># . . call</span> -<span id="L859" class="LineNr">859 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L859" class="LineNr">859 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L860" class="LineNr">860 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L861" class="LineNr">861 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L862" class="LineNr">862 </span> c3/return @@ -924,11 +925,11 @@ if ('onhashchange' in window) { <span id="L865" class="LineNr">865 </span><span class="Constant">$from-hex-char:check0</span>: <span id="L866" class="LineNr">866 </span> <span class="subxComment"># if (eax < '0') goto abort</span> <span id="L867" class="LineNr">867 </span> 3d/compare-eax-with 0x30/imm32/0 -<span id="L868" class="LineNr">868 </span> 7c/jump-if-< $from-hex-char:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 +<span id="L868" class="LineNr">868 </span> 7c/jump-if-< $from-hex-char:abort/disp8 <span id="L869" class="LineNr">869 </span><span class="Constant">$from-hex-char:check1</span>: <span id="L870" class="LineNr">870 </span> <span class="subxComment"># if (eax > 'f') goto abort</span> <span id="L871" class="LineNr">871 </span> 3d/compare-eax-with 0x66/imm32/f -<span id="L872" class="LineNr">872 </span> 7f/jump-if-> $from-hex-char:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 +<span id="L872" class="LineNr">872 </span> 7f/jump-if-> $from-hex-char:abort/disp8 <span id="L873" class="LineNr">873 </span><span class="Constant">$from-hex-char:check2</span>: <span id="L874" class="LineNr">874 </span> <span class="subxComment"># if (eax > '9') goto next check</span> <span id="L875" class="LineNr">875 </span> 3d/compare-eax-with 0x39/imm32/9 @@ -940,20 +941,61 @@ if ('onhashchange' in window) { <span id="L881" class="LineNr">881 </span><span class="Constant">$from-hex-char:check3</span>: <span id="L882" class="LineNr">882 </span> <span class="subxComment"># if (eax < 'a') goto abort</span> <span id="L883" class="LineNr">883 </span> 3d/compare-eax-with 0x61/imm32/a -<span id="L884" class="LineNr">884 </span> 7c/jump-if-< $from-hex-char:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 +<span id="L884" class="LineNr">884 </span> 7c/jump-if-< $from-hex-char:abort/disp8 <span id="L885" class="LineNr">885 </span><span class="Constant">$from-hex-char:letter</span>: <span id="L886" class="LineNr">886 </span> <span class="subxComment"># return eax - ('a'-10)</span> <span id="L887" class="LineNr">887 </span> 2d/subtract-from-eax 0x57/imm32/a-10 <span id="L888" class="LineNr">888 </span> c3/return <span id="L889" class="LineNr">889 </span> -<span id="L890" class="LineNr">890 </span><span class="Constant">$from-hex-char:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L891" class="LineNr">891 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"invalid hex char"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L892" class="LineNr">892 </span> { -<span id="L893" class="LineNr">893 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L894" class="LineNr">894 </span> } -<span id="L895" class="LineNr">895 </span> <span class="subxComment"># never gets here</span> -<span id="L896" class="LineNr">896 </span> -<span id="L897" class="LineNr">897 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L890" class="LineNr">890 </span><span class="Constant">$from-hex-char:abort</span>: +<span id="L891" class="LineNr">891 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L892" class="LineNr">892 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L893" class="LineNr">893 </span> 68/push <span class="Constant">"invalid hex char: "</span>/imm32 +<span id="L894" class="LineNr">894 </span> 68/push 2/imm32/stderr +<span id="L895" class="LineNr">895 </span> <span class="subxS2Comment"># . . call</span> +<span id="L896" class="LineNr">896 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L897" class="LineNr">897 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L898" class="LineNr">898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L899" class="LineNr">899 </span> <span class="subxS1Comment"># . clear-stream($Stderr->buffer)</span> +<span id="L900" class="LineNr">900 </span> <span class="subxS2Comment"># . . save eax</span> +<span id="L901" class="LineNr">901 </span> 50/push-eax +<span id="L902" class="LineNr">902 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L903" class="LineNr">903 </span> 68/push $Stderr->buffer/imm32 +<span id="L904" class="LineNr">904 </span> <span class="subxS2Comment"># . . call</span> +<span id="L905" class="LineNr">905 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L906" class="LineNr">906 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L907" class="LineNr">907 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L908" class="LineNr">908 </span> <span class="subxS2Comment"># . . restore eax</span> +<span id="L909" class="LineNr">909 </span> 58/pop-to-eax +<span id="L910" class="LineNr">910 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(Stderr, eax)</span> +<span id="L911" class="LineNr">911 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L912" class="LineNr">912 </span> 50/push-eax +<span id="L913" class="LineNr">913 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L914" class="LineNr">914 </span> <span class="subxS2Comment"># . . call</span> +<span id="L915" class="LineNr">915 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L916" class="LineNr">916 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L917" class="LineNr">917 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L918" class="LineNr">918 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L919" class="LineNr">919 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L920" class="LineNr">920 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L921" class="LineNr">921 </span> <span class="subxS2Comment"># . . call</span> +<span id="L922" class="LineNr">922 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L923" class="LineNr">923 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L924" class="LineNr">924 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L925" class="LineNr">925 </span> <span class="subxS1Comment"># . _write(2/stderr, "\n")</span> +<span id="L926" class="LineNr">926 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L927" class="LineNr">927 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L928" class="LineNr">928 </span> 68/push 2/imm32/stderr +<span id="L929" class="LineNr">929 </span> <span class="subxS2Comment"># . . call</span> +<span id="L930" class="LineNr">930 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L931" class="LineNr">931 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L932" class="LineNr">932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L933" class="LineNr">933 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L934" class="LineNr">934 </span> bb/copy-to-ebx 1/imm32 +<span id="L935" class="LineNr">935 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L936" class="LineNr">936 </span> <span class="subxComment"># never gets here</span> +<span id="L937" class="LineNr">937 </span> +<span id="L938" class="LineNr">938 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/119error-byte.subx.html b/html/linux/119error-byte.subx.html index aae3a865..d5f02960 100644 --- a/html/119error-byte.subx.html +++ b/html/linux/119error-byte.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 119error-byte.subx</title> +<title>Mu - linux/119error-byte.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.SpecialChar { color: #d70000; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/119error-byte.subx'>https://github.com/akkartik/mu/blob/main/119error-byte.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/119error-byte.subx'>https://github.com/akkartik/mu/blob/main/linux/119error-byte.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Print an error message followed by the text representation of a byte. Then exit.</span> <span id="L2" class="LineNr"> 2 </span> diff --git a/html/baremetal/120allocate.subx.html b/html/linux/120allocate.subx.html index b55f5483..55e556b5 100644 --- a/html/baremetal/120allocate.subx.html +++ b/html/linux/120allocate.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/120allocate.subx</title> +<title>Mu - linux/120allocate.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -57,7 +57,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/120allocate.subx'>https://github.com/akkartik/mu/blob/main/baremetal/120allocate.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/120allocate.subx'>https://github.com/akkartik/mu/blob/main/linux/120allocate.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helper to dynamically allocate memory on the heap.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -87,489 +87,489 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span><span class="subxComment"># A default allocation descriptor for programs to use.</span> <span id="L27" class="LineNr"> 27 </span><span class="SpecialChar">Heap</span>: <span class="subxComment"># allocation-descriptor</span> <span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># curr</span> -<span id="L29" class="LineNr"> 29 </span> 0x01000000/imm32 <span class="subxComment"># 16 MB</span> +<span id="L29" class="LineNr"> 29 </span> 0/imm32 <span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># limit</span> -<span id="L31" class="LineNr"> 31 </span> 0x02000000/imm32 <span class="subxComment"># 32 MB</span> +<span id="L31" class="LineNr"> 31 </span> 0/imm32 <span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="SpecialChar">Next-alloc-id</span>: <span class="subxComment"># int</span> -<span id="L34" class="LineNr"> 34 </span> 0x100/imm32 <span class="subxComment"># save a few alloc ids for fake handles</span> -<span id="L35" class="LineNr"> 35 </span> -<span id="L36" class="LineNr"> 36 </span>== code -<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L38" class="LineNr"> 38 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L39" class="LineNr"> 39 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L40" class="LineNr"> 40 </span> -<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># Allocate and clear 'n' bytes of memory from an allocation-descriptor 'ad'.</span> -<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> -<span id="L43" class="LineNr"> 43 </span><span class="subxFunction">allocate</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L44" class="LineNr"> 44 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L45" class="LineNr"> 45 </span> 55/push-ebp -<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L48" class="LineNr"> 48 </span> 50/push-eax -<span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># allocate-raw(ad, n, out)</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># a reasonable default</span> +<span id="L34" class="LineNr"> 34 </span><span class="SpecialChar">Heap-size</span>: <span class="subxComment"># int</span> +<span id="L35" class="LineNr"> 35 </span> 0x800000/imm32/8MB +<span id="L36" class="LineNr"> 36 </span> +<span id="L37" class="LineNr"> 37 </span><span class="SpecialChar">Next-alloc-id</span>: <span class="subxComment"># int</span> +<span id="L38" class="LineNr"> 38 </span> 0x100/imm32 <span class="subxComment"># save a few alloc ids for fake handles</span> +<span id="L39" class="LineNr"> 39 </span> +<span id="L40" class="LineNr"> 40 </span>== code +<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L43" class="LineNr"> 43 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L44" class="LineNr"> 44 </span> +<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># Let's start initializing the default allocation descriptor.</span> +<span id="L46" class="LineNr"> 46 </span> +<span id="L47" class="LineNr"> 47 </span><span class="SpecialChar">Entry</span>: +<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># initialize heap</span> +<span id="L49" class="LineNr"> 49 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L52" class="LineNr"> 52 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L53" class="LineNr"> 53 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L54" class="LineNr"> 54 </span> <span class="subxS2Comment"># . . call</span> -<span id="L55" class="LineNr"> 55 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 -<span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L57" class="LineNr"> 57 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># eax = out->payload + 4</span> -<span id="L59" class="LineNr"> 59 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L60" class="LineNr"> 60 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L61" class="LineNr"> 61 </span> 05/add-to-eax 4/imm32 -<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># zero-out(eax, n)</span> -<span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L64" class="LineNr"> 64 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L65" class="LineNr"> 65 </span> 50/push-eax -<span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . call</span> -<span id="L67" class="LineNr"> 67 </span> e8/call <a href='120allocate.subx.html#L836'>zero-out</a>/disp32 -<span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L69" class="LineNr"> 69 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L70" class="LineNr"> 70 </span><span class="Constant">$allocate:end</span>: -<span id="L71" class="LineNr"> 71 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L72" class="LineNr"> 72 </span> 58/pop-to-eax -<span id="L73" class="LineNr"> 73 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L74" class="LineNr"> 74 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L75" class="LineNr"> 75 </span> 5d/pop-to-ebp -<span id="L76" class="LineNr"> 76 </span> c3/return -<span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="subxComment"># Claim the next 'n' bytes of memory starting at ad->curr and update ad->curr.</span> -<span id="L79" class="LineNr"> 79 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> -<span id="L80" class="LineNr"> 80 </span><span class="subxFunction">allocate-raw</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L81" class="LineNr"> 81 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L82" class="LineNr"> 82 </span> 55/push-ebp -<span id="L83" class="LineNr"> 83 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L84" class="LineNr"> 84 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L85" class="LineNr"> 85 </span> 50/push-eax -<span id="L86" class="LineNr"> 86 </span> 51/push-ecx -<span id="L87" class="LineNr"> 87 </span> 52/push-edx -<span id="L88" class="LineNr"> 88 </span> 53/push-ebx -<span id="L89" class="LineNr"> 89 </span> 56/push-esi -<span id="L90" class="LineNr"> 90 </span> 57/push-edi -<span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># ecx = ad</span> -<span id="L92" class="LineNr"> 92 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># edx = out</span> -<span id="L94" class="LineNr"> 94 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> -<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># ebx = n</span> -<span id="L96" class="LineNr"> 96 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ebx</span> -<span id="L97" class="LineNr"> 97 </span> <span class="subxComment"># out->alloc-id = Next-alloc-id</span> -<span id="L98" class="LineNr"> 98 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to eax</span> -<span id="L99" class="LineNr"> 99 </span> 89/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edx</span> -<span id="L100" class="LineNr">100 </span> <span class="subxComment"># out->payload = ad->curr</span> -<span id="L101" class="LineNr">101 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L102" class="LineNr">102 </span><span class="Constant">$allocate-raw:save-payload-in-eax</span>: -<span id="L103" class="LineNr">103 </span> 89/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edx+4)</span> -<span id="L104" class="LineNr">104 </span> <span class="subxComment"># *out->payload = Next-alloc-id</span> -<span id="L105" class="LineNr">105 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to edi</span> -<span id="L106" class="LineNr">106 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to esi</span> -<span id="L107" class="LineNr">107 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *edi</span> -<span id="L108" class="LineNr">108 </span><span class="Constant">$allocate-raw:increment-next-alloc-id</span>: -<span id="L109" class="LineNr">109 </span> <span class="subxComment"># increment *Next-alloc-id</span> -<span id="L110" class="LineNr">110 </span> ff 0/subop/increment 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># increment *Next-alloc-id</span> -<span id="L111" class="LineNr">111 </span> <span class="subxComment"># check if there's enough space</span> -<span id="L112" class="LineNr">112 </span> <span class="subxComment"># TODO: move this check up before any state updates when we support error recovery</span> -<span id="L113" class="LineNr">113 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 3/index/ebx <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ebx+4 to eax</span> -<span id="L114" class="LineNr">114 </span> 3b/compare 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare eax with *(ecx+4)</span> -<span id="L115" class="LineNr">115 </span> 73/jump-if->=-signed $allocate-raw:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 -<span id="L116" class="LineNr">116 </span><span class="Constant">$allocate-raw:commit</span>: -<span id="L117" class="LineNr">117 </span> <span class="subxComment"># ad->curr += n+4</span> -<span id="L118" class="LineNr">118 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> -<span id="L119" class="LineNr">119 </span><span class="Constant">$allocate-raw:end</span>: -<span id="L120" class="LineNr">120 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L121" class="LineNr">121 </span> 5f/pop-to-edi -<span id="L122" class="LineNr">122 </span> 5e/pop-to-esi -<span id="L123" class="LineNr">123 </span> 5b/pop-to-ebx -<span id="L124" class="LineNr">124 </span> 5a/pop-to-edx -<span id="L125" class="LineNr">125 </span> 59/pop-to-ecx -<span id="L126" class="LineNr">126 </span> 58/pop-to-eax -<span id="L127" class="LineNr">127 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L128" class="LineNr">128 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L129" class="LineNr">129 </span> 5d/pop-to-ebp -<span id="L130" class="LineNr">130 </span> c3/return -<span id="L131" class="LineNr">131 </span> -<span id="L132" class="LineNr">132 </span><span class="Constant">$allocate-raw:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L133" class="LineNr">133 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"allocate: failed"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L134" class="LineNr">134 </span> { -<span id="L135" class="LineNr">135 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L136" class="LineNr">136 </span> } -<span id="L137" class="LineNr">137 </span> <span class="subxComment"># never gets here</span> -<span id="L138" class="LineNr">138 </span> -<span id="L139" class="LineNr">139 </span><span class="subxTest">test-allocate-raw-success</span>: -<span id="L140" class="LineNr">140 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L141" class="LineNr">141 </span> 55/push-ebp -<span id="L142" class="LineNr">142 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L143" class="LineNr">143 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> -<span id="L144" class="LineNr">144 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L145" class="LineNr">145 </span> 89/<- %ecx 4/r32/esp -<span id="L146" class="LineNr">146 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L147" class="LineNr">147 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L148" class="LineNr">148 </span> 89/<- %edx 4/r32/esp -<span id="L149" class="LineNr">149 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L150" class="LineNr">150 </span> 51/push-ecx -<span id="L151" class="LineNr">151 </span> 52/push-edx -<span id="L152" class="LineNr">152 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L153" class="LineNr">153 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L154" class="LineNr">154 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L155" class="LineNr">155 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L156" class="LineNr">156 </span> 68/push 0/imm32 -<span id="L157" class="LineNr">157 </span> 68/push 0/imm32 -<span id="L158" class="LineNr">158 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L159" class="LineNr">159 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L160" class="LineNr">160 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L161" class="LineNr">161 </span> <span class="subxComment"># allocate-raw(ad, 3, h)</span> -<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L163" class="LineNr">163 </span> 52/push-edx -<span id="L164" class="LineNr">164 </span> 68/push 3/imm32 -<span id="L165" class="LineNr">165 </span> 51/push-ecx -<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> -<span id="L167" class="LineNr">167 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 -<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L169" class="LineNr">169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L170" class="LineNr">170 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L172" class="LineNr">172 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets alloc-id in handle"</span>/imm32 -<span id="L173" class="LineNr">173 </span> 68/push 0x34/imm32 -<span id="L174" class="LineNr">174 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . call</span> -<span id="L176" class="LineNr">176 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L177" class="LineNr">177 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L178" class="LineNr">178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L179" class="LineNr">179 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L181" class="LineNr">181 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets payload in handle"</span>/imm32 -<span id="L182" class="LineNr">182 </span> 53/push-ebx -<span id="L183" class="LineNr">183 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L184" class="LineNr">184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L185" class="LineNr">185 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L187" class="LineNr">187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L188" class="LineNr">188 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L190" class="LineNr">190 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: sets alloc-id in payload"</span>/imm32 -<span id="L191" class="LineNr">191 </span> 68/push 0x34/imm32 -<span id="L192" class="LineNr">192 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L194" class="LineNr">194 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L195" class="LineNr">195 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L196" class="LineNr">196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L197" class="LineNr">197 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> -<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L199" class="LineNr">199 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: increments Next-alloc-id"</span>/imm32 -<span id="L200" class="LineNr">200 </span> 68/push 0x35/imm32 -<span id="L201" class="LineNr">201 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . call</span> -<span id="L203" class="LineNr">203 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L205" class="LineNr">205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L206" class="LineNr">206 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id, msg)</span> -<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L208" class="LineNr">208 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L139'>test-allocate-raw-success</a>: updates allocation descriptor"</span>/imm32 -<span id="L209" class="LineNr">209 </span> 68/push 7/imm32 -<span id="L210" class="LineNr">210 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L211" class="LineNr">211 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L212" class="LineNr">212 </span> 50/push-eax -<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L214" class="LineNr">214 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L217" class="LineNr">217 </span> <span class="subxComment"># clean up</span> -<span id="L218" class="LineNr">218 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L220" class="LineNr">220 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L222" class="LineNr">222 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L223" class="LineNr">223 </span> 5d/pop-to-ebp -<span id="L224" class="LineNr">224 </span> c3/return -<span id="L225" class="LineNr">225 </span> -<span id="L226" class="LineNr">226 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h: (handle _T) -> result/eax: (addr _T)</span> -<span id="L227" class="LineNr">227 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L228" class="LineNr">228 </span> 55/push-ebp -<span id="L229" class="LineNr">229 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L230" class="LineNr">230 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L231" class="LineNr">231 </span> 51/push-ecx -<span id="L232" class="LineNr">232 </span> <span class="subxComment"># eax = 0</span> -<span id="L233" class="LineNr">233 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L234" class="LineNr">234 </span> <span class="subxComment"># ecx = handle->alloc_id</span> -<span id="L235" class="LineNr">235 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L236" class="LineNr">236 </span> <span class="subxComment"># if (ecx == 0) return 0</span> -<span id="L237" class="LineNr">237 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> -<span id="L238" class="LineNr">238 </span> 74/jump-if-= $lookup:end/disp8 -<span id="L239" class="LineNr">239 </span> <span class="subxComment"># eax = handle->address (payload)</span> -<span id="L240" class="LineNr">240 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L241" class="LineNr">241 </span> <span class="subxComment"># if (ecx != *eax) abort</span> -<span id="L242" class="LineNr">242 </span> 39/compare 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *eax and ecx</span> -<span id="L243" class="LineNr">243 </span> 75/jump-if-!= $lookup:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 -<span id="L244" class="LineNr">244 </span> <span class="subxComment"># add 4 to eax</span> -<span id="L245" class="LineNr">245 </span> 05/add-to-eax 4/imm32 -<span id="L246" class="LineNr">246 </span><span class="Constant">$lookup:end</span>: -<span id="L247" class="LineNr">247 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L248" class="LineNr">248 </span> 59/pop-to-ecx -<span id="L249" class="LineNr">249 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L250" class="LineNr">250 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L251" class="LineNr">251 </span> 5d/pop-to-ebp -<span id="L252" class="LineNr">252 </span> c3/return -<span id="L253" class="LineNr">253 </span> -<span id="L254" class="LineNr">254 </span><span class="Constant">$lookup:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L255" class="LineNr">255 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"lookup: failed"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L256" class="LineNr">256 </span> { -<span id="L257" class="LineNr">257 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L258" class="LineNr">258 </span> } -<span id="L259" class="LineNr">259 </span> <span class="subxComment"># never gets here</span> -<span id="L260" class="LineNr">260 </span> -<span id="L261" class="LineNr">261 </span><span class="subxTest">test-lookup-success</span>: -<span id="L262" class="LineNr">262 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L263" class="LineNr">263 </span> 55/push-ebp -<span id="L264" class="LineNr">264 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L265" class="LineNr">265 </span> <span class="subxComment"># var ad/ebx: allocation-descriptor containing 16 bytes</span> -<span id="L266" class="LineNr">266 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L267" class="LineNr">267 </span> 89/<- %ecx 4/r32/esp -<span id="L268" class="LineNr">268 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L269" class="LineNr">269 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L270" class="LineNr">270 </span> 89/<- %edx 4/r32/esp -<span id="L271" class="LineNr">271 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L272" class="LineNr">272 </span> 51/push-ecx -<span id="L273" class="LineNr">273 </span> 52/push-edx -<span id="L274" class="LineNr">274 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L275" class="LineNr">275 </span> <span class="subxComment"># var handle/ecx: handle</span> -<span id="L276" class="LineNr">276 </span> 68/push 0/imm32/address -<span id="L277" class="LineNr">277 </span> 68/push 0/imm32/alloc-id -<span id="L278" class="LineNr">278 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L279" class="LineNr">279 </span> <span class="subxComment"># var old-top/edx = ad->curr</span> -<span id="L280" class="LineNr">280 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to edx</span> -<span id="L281" class="LineNr">281 </span> <span class="subxComment"># allocate-raw(ad, 2, handle)</span> -<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L283" class="LineNr">283 </span> 51/push-ecx -<span id="L284" class="LineNr">284 </span> 68/push 2/imm32/size -<span id="L285" class="LineNr">285 </span> 53/push-ebx -<span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . call</span> -<span id="L287" class="LineNr">287 </span> e8/call <a href='120allocate.subx.html#L80'>allocate-raw</a>/disp32 -<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L289" class="LineNr">289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L290" class="LineNr">290 </span> <span class="subxComment"># eax = lookup(handle)</span> -<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L292" class="LineNr">292 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L293" class="LineNr">293 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . call</span> -<span id="L295" class="LineNr">295 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L296" class="LineNr">296 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L297" class="LineNr">297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L298" class="LineNr">298 </span> <span class="subxComment"># eax contains old top of heap, except skipping the alloc-id in the payload</span> -<span id="L299" class="LineNr">299 </span> <span class="subxS1Comment"># . check-ints-equal(eax, old-top+4, msg)</span> -<span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L301" class="LineNr">301 </span> 68/push <span class="Constant">"F - test-lookup-success"</span>/imm32 -<span id="L302" class="LineNr">302 </span> 81 0/subop/add 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edx</span> -<span id="L303" class="LineNr">303 </span> 52/push-edx -<span id="L304" class="LineNr">304 </span> 50/push-eax -<span id="L305" class="LineNr">305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L306" class="LineNr">306 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L308" class="LineNr">308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L309" class="LineNr">309 </span> <span class="subxComment"># clean up</span> -<span id="L310" class="LineNr">310 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L311" class="LineNr">311 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L312" class="LineNr">312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> -<span id="L313" class="LineNr">313 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L314" class="LineNr">314 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L315" class="LineNr">315 </span> 5d/pop-to-ebp -<span id="L316" class="LineNr">316 </span> c3/return -<span id="L317" class="LineNr">317 </span> -<span id="L318" class="LineNr">318 </span><span class="subxTest">test-lookup-null-returns-null</span>: -<span id="L319" class="LineNr">319 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L320" class="LineNr">320 </span> 55/push-ebp -<span id="L321" class="LineNr">321 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L322" class="LineNr">322 </span> <span class="subxComment"># var handle/ecx: handle</span> -<span id="L323" class="LineNr">323 </span> 68/push 0/imm32/address -<span id="L324" class="LineNr">324 </span> 68/push 0/imm32/alloc-id -<span id="L325" class="LineNr">325 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L326" class="LineNr">326 </span> <span class="subxComment"># eax = lookup(handle)</span> -<span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L328" class="LineNr">328 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L329" class="LineNr">329 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L330" class="LineNr">330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L331" class="LineNr">331 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L333" class="LineNr">333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L334" class="LineNr">334 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L336" class="LineNr">336 </span> 68/push <span class="Constant">"F - test-lookup-null-returns-null"</span>/imm32 -<span id="L337" class="LineNr">337 </span> 68/push 0/imm32 -<span id="L338" class="LineNr">338 </span> 50/push-eax -<span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . call</span> -<span id="L340" class="LineNr">340 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L342" class="LineNr">342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L343" class="LineNr">343 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L344" class="LineNr">344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L345" class="LineNr">345 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L346" class="LineNr">346 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L347" class="LineNr">347 </span> 5d/pop-to-ebp -<span id="L348" class="LineNr">348 </span> c3/return -<span id="L349" class="LineNr">349 </span> -<span id="L350" class="LineNr">350 </span><span class="subxMinorFunction">_pending-test-lookup-failure</span>: -<span id="L351" class="LineNr">351 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L352" class="LineNr">352 </span> 55/push-ebp -<span id="L353" class="LineNr">353 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L354" class="LineNr">354 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> -<span id="L355" class="LineNr">355 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L356" class="LineNr">356 </span> 89/<- %ecx 4/r32/esp -<span id="L357" class="LineNr">357 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L358" class="LineNr">358 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L359" class="LineNr">359 </span> 89/<- %edx 4/r32/esp -<span id="L360" class="LineNr">360 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L361" class="LineNr">361 </span> 51/push-ecx -<span id="L362" class="LineNr">362 </span> 52/push-edx -<span id="L363" class="LineNr">363 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L364" class="LineNr">364 </span> <span class="subxComment"># var h1/ecx: handle</span> -<span id="L365" class="LineNr">365 </span> 68/push 0/imm32/address -<span id="L366" class="LineNr">366 </span> 68/push 0/imm32/alloc-id -<span id="L367" class="LineNr">367 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L368" class="LineNr">368 </span> <span class="subxComment"># var old_top/ebx = ad->curr</span> -<span id="L369" class="LineNr">369 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> -<span id="L370" class="LineNr">370 </span> <span class="subxComment"># first allocation, to h1</span> -<span id="L371" class="LineNr">371 </span> <span class="subxS1Comment"># . allocate(ad, 2, h1)</span> -<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L373" class="LineNr">373 </span> 51/push-ecx -<span id="L374" class="LineNr">374 </span> 68/push 2/imm32/size -<span id="L375" class="LineNr">375 </span> 56/push-esi -<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . call</span> -<span id="L377" class="LineNr">377 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L378" class="LineNr">378 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L379" class="LineNr">379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L380" class="LineNr">380 </span> <span class="subxComment"># reset ad->curr to mimic reclamation</span> -<span id="L381" class="LineNr">381 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *esi</span> -<span id="L382" class="LineNr">382 </span> <span class="subxComment"># second allocation that returns the same address as the first</span> -<span id="L383" class="LineNr">383 </span> <span class="subxComment"># var h2/edx: handle</span> -<span id="L384" class="LineNr">384 </span> 68/push 0/imm32/address -<span id="L385" class="LineNr">385 </span> 68/push 0/imm32/alloc-id -<span id="L386" class="LineNr">386 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L387" class="LineNr">387 </span> <span class="subxS1Comment"># . allocate(ad, 2, h2)</span> -<span id="L388" class="LineNr">388 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L389" class="LineNr">389 </span> 52/push-edx -<span id="L390" class="LineNr">390 </span> 68/push 2/imm32/size -<span id="L391" class="LineNr">391 </span> 56/push-esi -<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . call</span> -<span id="L393" class="LineNr">393 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L395" class="LineNr">395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L396" class="LineNr">396 </span> <span class="subxComment"># check-ints-equal(h1->address, h2->address, msg)</span> -<span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L398" class="LineNr">398 </span> 68/push <span class="Constant">"F - test-lookup-failure"</span>/imm32 -<span id="L399" class="LineNr">399 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L400" class="LineNr">400 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . call</span> -<span id="L402" class="LineNr">402 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L403" class="LineNr">403 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L404" class="LineNr">404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L405" class="LineNr">405 </span> <span class="subxComment"># lookup(h1) should crash</span> -<span id="L406" class="LineNr">406 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L407" class="LineNr">407 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L408" class="LineNr">408 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L409" class="LineNr">409 </span> <span class="subxS2Comment"># . . call</span> -<span id="L410" class="LineNr">410 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L411" class="LineNr">411 </span> <span class="subxComment"># should never get past this point</span> -<span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L413" class="LineNr">413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L414" class="LineNr">414 </span> <span class="subxComment"># clean up</span> -<span id="L415" class="LineNr">415 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L417" class="LineNr">417 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> -<span id="L418" class="LineNr">418 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L419" class="LineNr">419 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L420" class="LineNr">420 </span> 5d/pop-to-ebp -<span id="L421" class="LineNr">421 </span> c3/return -<span id="L422" class="LineNr">422 </span> -<span id="L423" class="LineNr">423 </span><span class="subxComment"># when comparing handles, just treat them as pure values</span> -<span id="L424" class="LineNr">424 </span><span class="subxFunction">handle-equal?</span>: <span class="subxComment"># a: (handle _T), b: (handle _T) -> result/eax: boolean</span> -<span id="L425" class="LineNr">425 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L426" class="LineNr">426 </span> 55/push-ebp -<span id="L427" class="LineNr">427 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L428" class="LineNr">428 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L429" class="LineNr">429 </span> 51/push-ecx -<span id="L430" class="LineNr">430 </span> <span class="subxComment"># eax = false</span> -<span id="L431" class="LineNr">431 </span> b8/copy-to-eax 0/imm32/false -<span id="L432" class="LineNr">432 </span><span class="Constant">$handle-equal?:compare-alloc-id</span>: -<span id="L433" class="LineNr">433 </span> <span class="subxComment"># ecx = a->alloc_id</span> -<span id="L434" class="LineNr">434 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L435" class="LineNr">435 </span> <span class="subxComment"># if (ecx != b->alloc_id) return false</span> -<span id="L436" class="LineNr">436 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+16)</span> -<span id="L437" class="LineNr">437 </span> 75/jump-if-!= $handle-equal?:end/disp8 -<span id="L438" class="LineNr">438 </span><span class="Constant">$handle-equal?:compare-address</span>: -<span id="L439" class="LineNr">439 </span> <span class="subxComment"># ecx = handle->address</span> -<span id="L440" class="LineNr">440 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L441" class="LineNr">441 </span> <span class="subxComment"># if (ecx != b->address) return false</span> -<span id="L442" class="LineNr">442 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+20)</span> -<span id="L443" class="LineNr">443 </span> 75/jump-if-!= $handle-equal?:end/disp8 -<span id="L444" class="LineNr">444 </span><span class="Constant">$handle-equal?:return-true</span>: -<span id="L445" class="LineNr">445 </span> <span class="subxComment"># return true</span> -<span id="L446" class="LineNr">446 </span> b8/copy-to-eax 1/imm32/true -<span id="L447" class="LineNr">447 </span><span class="Constant">$handle-equal?:end</span>: -<span id="L448" class="LineNr">448 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L449" class="LineNr">449 </span> 59/pop-to-ecx -<span id="L450" class="LineNr">450 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L451" class="LineNr">451 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L452" class="LineNr">452 </span> 5d/pop-to-ebp -<span id="L453" class="LineNr">453 </span> c3/return -<span id="L454" class="LineNr">454 </span> -<span id="L455" class="LineNr">455 </span><span class="subxFunction">copy-handle</span>: <span class="subxComment"># src: (handle _T), dest: (addr handle _T)</span> -<span id="L456" class="LineNr">456 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L457" class="LineNr">457 </span> 55/push-ebp -<span id="L458" class="LineNr">458 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L459" class="LineNr">459 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L460" class="LineNr">460 </span> 50/push-eax -<span id="L461" class="LineNr">461 </span> 51/push-ecx -<span id="L462" class="LineNr">462 </span> <span class="subxComment"># ecx = dest</span> -<span id="L463" class="LineNr">463 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L464" class="LineNr">464 </span> <span class="subxComment"># *dest = src</span> -<span id="L465" class="LineNr">465 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L466" class="LineNr">466 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> -<span id="L467" class="LineNr">467 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L468" class="LineNr">468 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> -<span id="L469" class="LineNr">469 </span><span class="Constant">$copy-handle:end</span>: -<span id="L470" class="LineNr">470 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L471" class="LineNr">471 </span> 59/pop-to-ecx -<span id="L472" class="LineNr">472 </span> 58/pop-to-eax -<span id="L473" class="LineNr">473 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L474" class="LineNr">474 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L475" class="LineNr">475 </span> 5d/pop-to-ebp -<span id="L476" class="LineNr">476 </span> c3/return -<span id="L477" class="LineNr">477 </span> -<span id="L478" class="LineNr">478 </span><span class="subxComment"># helper: create a nested allocation descriptor (useful for tests)</span> -<span id="L479" class="LineNr">479 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> -<span id="L480" class="LineNr">480 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L481" class="LineNr">481 </span> 55/push-ebp -<span id="L482" class="LineNr">482 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L483" class="LineNr">483 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L484" class="LineNr">484 </span> 50/push-eax -<span id="L485" class="LineNr">485 </span> 51/push-ecx -<span id="L486" class="LineNr">486 </span> <span class="subxComment"># allocate(ad, n, out)</span> -<span id="L487" class="LineNr">487 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L488" class="LineNr">488 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L489" class="LineNr">489 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L490" class="LineNr">490 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L491" class="LineNr">491 </span> <span class="subxS2Comment"># . . call</span> -<span id="L492" class="LineNr">492 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L493" class="LineNr">493 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L494" class="LineNr">494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L495" class="LineNr">495 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L496" class="LineNr">496 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L497" class="LineNr">497 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L498" class="LineNr">498 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L499" class="LineNr">499 </span> 05/add-to-eax 4/imm32 -<span id="L500" class="LineNr">500 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L501" class="LineNr">501 </span> 3d/compare-eax-and 0/imm32 -<span id="L502" class="LineNr">502 </span> 74/jump-if-= $allocate-region:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 -<span id="L503" class="LineNr">503 </span> <span class="subxComment"># earmark 8 bytes at the start for a new allocation descriptor</span> -<span id="L504" class="LineNr">504 </span> <span class="subxS1Comment"># . *eax = eax + 8</span> -<span id="L505" class="LineNr">505 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L506" class="LineNr">506 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to ecx</span> -<span id="L507" class="LineNr">507 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L508" class="LineNr">508 </span> <span class="subxS1Comment"># . *(eax+4) = eax + n</span> -<span id="L509" class="LineNr">509 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L510" class="LineNr">510 </span> 03/add 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(ebp+12) to ecx</span> -<span id="L511" class="LineNr">511 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+4)</span> +<span id="L51" class="LineNr"> 51 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L52" class="LineNr"> 52 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . call</span> +<span id="L54" class="LineNr"> 54 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L56" class="LineNr"> 56 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L57" class="LineNr"> 57 </span> +<span id="L58" class="LineNr"> 58 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> +<span id="L59" class="LineNr"> 59 </span><span class="Constant">$array-equal-main:end</span>: +<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># syscall(exit, Num-test-failures)</span> +<span id="L61" class="LineNr"> 61 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L62" class="LineNr"> 62 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span><span class="subxComment"># Allocate and clear 'n' bytes of memory from an allocation-descriptor 'ad'.</span> +<span id="L65" class="LineNr"> 65 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> +<span id="L66" class="LineNr"> 66 </span><span class="subxFunction">allocate</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L68" class="LineNr"> 68 </span> 55/push-ebp +<span id="L69" class="LineNr"> 69 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L71" class="LineNr"> 71 </span> 50/push-eax +<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># allocate-raw(ad, n, out)</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L74" class="LineNr"> 74 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L75" class="LineNr"> 75 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L76" class="LineNr"> 76 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . call</span> +<span id="L78" class="LineNr"> 78 </span> e8/call <a href='120allocate.subx.html#L103'>allocate-raw</a>/disp32 +<span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L80" class="LineNr"> 80 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># eax = out->payload + 4</span> +<span id="L82" class="LineNr"> 82 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L83" class="LineNr"> 83 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L84" class="LineNr"> 84 </span> 05/add-to-eax 4/imm32 +<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># zero-out(eax, n)</span> +<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L87" class="LineNr"> 87 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L88" class="LineNr"> 88 </span> 50/push-eax +<span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . call</span> +<span id="L90" class="LineNr"> 90 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 +<span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L92" class="LineNr"> 92 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L93" class="LineNr"> 93 </span><span class="Constant">$allocate:end</span>: +<span id="L94" class="LineNr"> 94 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L95" class="LineNr"> 95 </span> 58/pop-to-eax +<span id="L96" class="LineNr"> 96 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L97" class="LineNr"> 97 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L98" class="LineNr"> 98 </span> 5d/pop-to-ebp +<span id="L99" class="LineNr"> 99 </span> c3/return +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="subxComment"># Claim the next 'n' bytes of memory starting at ad->curr and update ad->curr.</span> +<span id="L102" class="LineNr">102 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> +<span id="L103" class="LineNr">103 </span><span class="subxFunction">allocate-raw</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L104" class="LineNr">104 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L105" class="LineNr">105 </span> 55/push-ebp +<span id="L106" class="LineNr">106 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L107" class="LineNr">107 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L108" class="LineNr">108 </span> 50/push-eax +<span id="L109" class="LineNr">109 </span> 51/push-ecx +<span id="L110" class="LineNr">110 </span> 52/push-edx +<span id="L111" class="LineNr">111 </span> 53/push-ebx +<span id="L112" class="LineNr">112 </span> 56/push-esi +<span id="L113" class="LineNr">113 </span> 57/push-edi +<span id="L114" class="LineNr">114 </span> <span class="subxComment"># ecx = ad</span> +<span id="L115" class="LineNr">115 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L116" class="LineNr">116 </span> <span class="subxComment"># edx = out</span> +<span id="L117" class="LineNr">117 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to edx</span> +<span id="L118" class="LineNr">118 </span> <span class="subxComment"># ebx = n</span> +<span id="L119" class="LineNr">119 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ebx</span> +<span id="L120" class="LineNr">120 </span> <span class="subxComment"># out->alloc-id = Next-alloc-id</span> +<span id="L121" class="LineNr">121 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to eax</span> +<span id="L122" class="LineNr">122 </span> 89/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edx</span> +<span id="L123" class="LineNr">123 </span> <span class="subxComment"># out->payload = ad->curr</span> +<span id="L124" class="LineNr">124 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L125" class="LineNr">125 </span><span class="Constant">$allocate-raw:save-payload-in-eax</span>: +<span id="L126" class="LineNr">126 </span> 89/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edx+4)</span> +<span id="L127" class="LineNr">127 </span> <span class="subxComment"># *out->payload = Next-alloc-id</span> +<span id="L128" class="LineNr">128 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to edi</span> +<span id="L129" class="LineNr">129 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># copy *Next-alloc-id to esi</span> +<span id="L130" class="LineNr">130 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *edi</span> +<span id="L131" class="LineNr">131 </span><span class="Constant">$allocate-raw:increment-next-alloc-id</span>: +<span id="L132" class="LineNr">132 </span> <span class="subxComment"># increment *Next-alloc-id</span> +<span id="L133" class="LineNr">133 </span> ff 0/subop/increment 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># increment *Next-alloc-id</span> +<span id="L134" class="LineNr">134 </span> <span class="subxComment"># check if there's enough space</span> +<span id="L135" class="LineNr">135 </span> <span class="subxComment"># TODO: move this check up before any state updates when we support error recovery</span> +<span id="L136" class="LineNr">136 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 3/index/ebx <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ebx+4 to eax</span> +<span id="L137" class="LineNr">137 </span> 3b/compare 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare eax with *(ecx+4)</span> +<span id="L138" class="LineNr">138 </span> 73/jump-if->=-signed $allocate-raw:abort/disp8 +<span id="L139" class="LineNr">139 </span><span class="Constant">$allocate-raw:commit</span>: +<span id="L140" class="LineNr">140 </span> <span class="subxComment"># ad->curr += n+4</span> +<span id="L141" class="LineNr">141 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> +<span id="L142" class="LineNr">142 </span><span class="Constant">$allocate-raw:end</span>: +<span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L144" class="LineNr">144 </span> 5f/pop-to-edi +<span id="L145" class="LineNr">145 </span> 5e/pop-to-esi +<span id="L146" class="LineNr">146 </span> 5b/pop-to-ebx +<span id="L147" class="LineNr">147 </span> 5a/pop-to-edx +<span id="L148" class="LineNr">148 </span> 59/pop-to-ecx +<span id="L149" class="LineNr">149 </span> 58/pop-to-eax +<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L151" class="LineNr">151 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L152" class="LineNr">152 </span> 5d/pop-to-ebp +<span id="L153" class="LineNr">153 </span> c3/return +<span id="L154" class="LineNr">154 </span> +<span id="L155" class="LineNr">155 </span><span class="Constant">$allocate-raw:abort</span>: +<span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L158" class="LineNr">158 </span> 68/push <span class="Constant">"allocate: failed\n"</span>/imm32 +<span id="L159" class="LineNr">159 </span> 68/push 2/imm32/stderr +<span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . call</span> +<span id="L161" class="LineNr">161 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L163" class="LineNr">163 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L164" class="LineNr">164 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L165" class="LineNr">165 </span> bb/copy-to-ebx 1/imm32 +<span id="L166" class="LineNr">166 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L167" class="LineNr">167 </span> <span class="subxComment"># never gets here</span> +<span id="L168" class="LineNr">168 </span> +<span id="L169" class="LineNr">169 </span><span class="subxTest">test-allocate-raw-success</span>: +<span id="L170" class="LineNr">170 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L171" class="LineNr">171 </span> 55/push-ebp +<span id="L172" class="LineNr">172 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L173" class="LineNr">173 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span> +<span id="L174" class="LineNr">174 </span> 68/push 0/imm32/limit +<span id="L175" class="LineNr">175 </span> 68/push 0/imm32/curr +<span id="L176" class="LineNr">176 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L177" class="LineNr">177 </span> <span class="subxComment"># ad = new-segment(512)</span> +<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L179" class="LineNr">179 </span> 51/push-ecx +<span id="L180" class="LineNr">180 </span> 68/push 0x200/imm32 +<span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . call</span> +<span id="L182" class="LineNr">182 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L184" class="LineNr">184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L185" class="LineNr">185 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L186" class="LineNr">186 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L187" class="LineNr">187 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L188" class="LineNr">188 </span> 68/push 0/imm32 +<span id="L189" class="LineNr">189 </span> 68/push 0/imm32 +<span id="L190" class="LineNr">190 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L191" class="LineNr">191 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L192" class="LineNr">192 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L193" class="LineNr">193 </span> <span class="subxComment"># allocate-raw(ad, 3, h)</span> +<span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L195" class="LineNr">195 </span> 52/push-edx +<span id="L196" class="LineNr">196 </span> 68/push 3/imm32 +<span id="L197" class="LineNr">197 </span> 51/push-ecx +<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> +<span id="L199" class="LineNr">199 </span> e8/call <a href='120allocate.subx.html#L103'>allocate-raw</a>/disp32 +<span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L201" class="LineNr">201 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L202" class="LineNr">202 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L204" class="LineNr">204 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: sets alloc-id in handle"</span>/imm32 +<span id="L205" class="LineNr">205 </span> 68/push 0x34/imm32 +<span id="L206" class="LineNr">206 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . call</span> +<span id="L208" class="LineNr">208 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L210" class="LineNr">210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L211" class="LineNr">211 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L213" class="LineNr">213 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: sets payload in handle"</span>/imm32 +<span id="L214" class="LineNr">214 </span> 53/push-ebx +<span id="L215" class="LineNr">215 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L217" class="LineNr">217 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L219" class="LineNr">219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L220" class="LineNr">220 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> +<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L222" class="LineNr">222 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: sets alloc-id in payload"</span>/imm32 +<span id="L223" class="LineNr">223 </span> 68/push 0x34/imm32 +<span id="L224" class="LineNr">224 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L225" class="LineNr">225 </span> <span class="subxS2Comment"># . . call</span> +<span id="L226" class="LineNr">226 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L228" class="LineNr">228 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L229" class="LineNr">229 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L230" class="LineNr">230 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L231" class="LineNr">231 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: increments Next-alloc-id"</span>/imm32 +<span id="L232" class="LineNr">232 </span> 68/push 0x35/imm32 +<span id="L233" class="LineNr">233 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> +<span id="L235" class="LineNr">235 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L238" class="LineNr">238 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id, msg)</span> +<span id="L239" class="LineNr">239 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L240" class="LineNr">240 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L169'>test-allocate-raw-success</a>: updates allocation descriptor"</span>/imm32 +<span id="L241" class="LineNr">241 </span> 68/push 7/imm32 +<span id="L242" class="LineNr">242 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L243" class="LineNr">243 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L244" class="LineNr">244 </span> 50/push-eax +<span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . call</span> +<span id="L246" class="LineNr">246 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L247" class="LineNr">247 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L248" class="LineNr">248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L249" class="LineNr">249 </span> <span class="subxComment"># clean up</span> +<span id="L250" class="LineNr">250 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L251" class="LineNr">251 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L252" class="LineNr">252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L253" class="LineNr">253 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L254" class="LineNr">254 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L255" class="LineNr">255 </span> 5d/pop-to-ebp +<span id="L256" class="LineNr">256 </span> c3/return +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="subxFunction">lookup</span>: <span class="subxComment"># h: (handle _T) -> result/eax: (addr _T)</span> +<span id="L259" class="LineNr">259 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L260" class="LineNr">260 </span> 55/push-ebp +<span id="L261" class="LineNr">261 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L262" class="LineNr">262 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L263" class="LineNr">263 </span> 51/push-ecx +<span id="L264" class="LineNr">264 </span> <span class="subxComment"># eax = 0</span> +<span id="L265" class="LineNr">265 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L266" class="LineNr">266 </span> <span class="subxComment"># ecx = handle->alloc_id</span> +<span id="L267" class="LineNr">267 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L268" class="LineNr">268 </span> <span class="subxComment"># if (ecx == 0) return 0</span> +<span id="L269" class="LineNr">269 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ecx</span> +<span id="L270" class="LineNr">270 </span> 74/jump-if-= $lookup:end/disp8 +<span id="L271" class="LineNr">271 </span> <span class="subxComment"># eax = handle->address (payload)</span> +<span id="L272" class="LineNr">272 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L273" class="LineNr">273 </span> <span class="subxComment"># if (ecx != *eax) abort</span> +<span id="L274" class="LineNr">274 </span> 39/compare 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare *eax and ecx</span> +<span id="L275" class="LineNr">275 </span> 75/jump-if-!= $lookup:abort/disp8 +<span id="L276" class="LineNr">276 </span> <span class="subxComment"># add 4 to eax</span> +<span id="L277" class="LineNr">277 </span> 05/add-to-eax 4/imm32 +<span id="L278" class="LineNr">278 </span><span class="Constant">$lookup:end</span>: +<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L280" class="LineNr">280 </span> 59/pop-to-ecx +<span id="L281" class="LineNr">281 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L282" class="LineNr">282 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L283" class="LineNr">283 </span> 5d/pop-to-ebp +<span id="L284" class="LineNr">284 </span> c3/return +<span id="L285" class="LineNr">285 </span> +<span id="L286" class="LineNr">286 </span><span class="Constant">$lookup:abort</span>: +<span id="L287" class="LineNr">287 </span> <span class="subxS1Comment"># . _write(2/stderr, msg)</span> +<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L289" class="LineNr">289 </span> 68/push <span class="Constant">"lookup failed\n"</span>/imm32 +<span id="L290" class="LineNr">290 </span> 68/push 2/imm32/stderr +<span id="L291" class="LineNr">291 </span> <span class="subxS2Comment"># . . call</span> +<span id="L292" class="LineNr">292 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L293" class="LineNr">293 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L294" class="LineNr">294 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L295" class="LineNr">295 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L296" class="LineNr">296 </span> bb/copy-to-ebx 1/imm32/exit-status +<span id="L297" class="LineNr">297 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L298" class="LineNr">298 </span> +<span id="L299" class="LineNr">299 </span><span class="subxTest">test-lookup-success</span>: +<span id="L300" class="LineNr">300 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L301" class="LineNr">301 </span> 55/push-ebp +<span id="L302" class="LineNr">302 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L303" class="LineNr">303 </span> <span class="subxComment"># var ad/ebx: allocation-descriptor</span> +<span id="L304" class="LineNr">304 </span> 68/push 0/imm32/limit +<span id="L305" class="LineNr">305 </span> 68/push 0/imm32/curr +<span id="L306" class="LineNr">306 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L307" class="LineNr">307 </span> <span class="subxComment"># ad = new-segment(512)</span> +<span id="L308" class="LineNr">308 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L309" class="LineNr">309 </span> 53/push-ebx +<span id="L310" class="LineNr">310 </span> 68/push 0x200/imm32 +<span id="L311" class="LineNr">311 </span> <span class="subxS2Comment"># . . call</span> +<span id="L312" class="LineNr">312 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L313" class="LineNr">313 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L314" class="LineNr">314 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L315" class="LineNr">315 </span> <span class="subxComment"># var handle/ecx: handle</span> +<span id="L316" class="LineNr">316 </span> 68/push 0/imm32/address +<span id="L317" class="LineNr">317 </span> 68/push 0/imm32/alloc-id +<span id="L318" class="LineNr">318 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L319" class="LineNr">319 </span> <span class="subxComment"># var old-top/edx = ad->curr</span> +<span id="L320" class="LineNr">320 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to edx</span> +<span id="L321" class="LineNr">321 </span> <span class="subxComment"># allocate-raw(ad, 2, handle)</span> +<span id="L322" class="LineNr">322 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L323" class="LineNr">323 </span> 51/push-ecx +<span id="L324" class="LineNr">324 </span> 68/push 2/imm32/size +<span id="L325" class="LineNr">325 </span> 53/push-ebx +<span id="L326" class="LineNr">326 </span> <span class="subxS2Comment"># . . call</span> +<span id="L327" class="LineNr">327 </span> e8/call <a href='120allocate.subx.html#L103'>allocate-raw</a>/disp32 +<span id="L328" class="LineNr">328 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L329" class="LineNr">329 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L330" class="LineNr">330 </span> <span class="subxComment"># eax = lookup(handle)</span> +<span id="L331" class="LineNr">331 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L332" class="LineNr">332 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L333" class="LineNr">333 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . call</span> +<span id="L335" class="LineNr">335 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L336" class="LineNr">336 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L337" class="LineNr">337 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L338" class="LineNr">338 </span> <span class="subxComment"># eax contains old top of heap, except skipping the alloc-id in the payload</span> +<span id="L339" class="LineNr">339 </span> <span class="subxS1Comment"># . check-ints-equal(eax, old-top+4, msg)</span> +<span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L341" class="LineNr">341 </span> 68/push <span class="Constant">"F - test-lookup-success"</span>/imm32 +<span id="L342" class="LineNr">342 </span> 81 0/subop/add 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to edx</span> +<span id="L343" class="LineNr">343 </span> 52/push-edx +<span id="L344" class="LineNr">344 </span> 50/push-eax +<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> +<span id="L346" class="LineNr">346 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L349" class="LineNr">349 </span> <span class="subxComment"># clean up</span> +<span id="L350" class="LineNr">350 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L351" class="LineNr">351 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L352" class="LineNr">352 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L353" class="LineNr">353 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L354" class="LineNr">354 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L355" class="LineNr">355 </span> 5d/pop-to-ebp +<span id="L356" class="LineNr">356 </span> c3/return +<span id="L357" class="LineNr">357 </span> +<span id="L358" class="LineNr">358 </span><span class="subxTest">test-lookup-null-returns-null</span>: +<span id="L359" class="LineNr">359 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L360" class="LineNr">360 </span> 55/push-ebp +<span id="L361" class="LineNr">361 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L362" class="LineNr">362 </span> <span class="subxComment"># var handle/ecx: handle</span> +<span id="L363" class="LineNr">363 </span> 68/push 0/imm32/address +<span id="L364" class="LineNr">364 </span> 68/push 0/imm32/alloc-id +<span id="L365" class="LineNr">365 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L366" class="LineNr">366 </span> <span class="subxComment"># eax = lookup(handle)</span> +<span id="L367" class="LineNr">367 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L368" class="LineNr">368 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L369" class="LineNr">369 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L370" class="LineNr">370 </span> <span class="subxS2Comment"># . . call</span> +<span id="L371" class="LineNr">371 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L372" class="LineNr">372 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L373" class="LineNr">373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L374" class="LineNr">374 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L376" class="LineNr">376 </span> 68/push <span class="Constant">"F - test-lookup-null-returns-null"</span>/imm32 +<span id="L377" class="LineNr">377 </span> 68/push 0/imm32 +<span id="L378" class="LineNr">378 </span> 50/push-eax +<span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . call</span> +<span id="L380" class="LineNr">380 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L382" class="LineNr">382 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L383" class="LineNr">383 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L384" class="LineNr">384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L385" class="LineNr">385 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L386" class="LineNr">386 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L387" class="LineNr">387 </span> 5d/pop-to-ebp +<span id="L388" class="LineNr">388 </span> c3/return +<span id="L389" class="LineNr">389 </span> +<span id="L390" class="LineNr">390 </span><span class="subxMinorFunction">_pending-test-lookup-failure</span>: +<span id="L391" class="LineNr">391 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L392" class="LineNr">392 </span> 55/push-ebp +<span id="L393" class="LineNr">393 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L394" class="LineNr">394 </span> <span class="subxComment"># var heap/esi: allocation-descriptor</span> +<span id="L395" class="LineNr">395 </span> 68/push 0/imm32/limit +<span id="L396" class="LineNr">396 </span> 68/push 0/imm32/curr +<span id="L397" class="LineNr">397 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L398" class="LineNr">398 </span> <span class="subxComment"># heap = new-segment(512)</span> +<span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L400" class="LineNr">400 </span> 56/push-esi +<span id="L401" class="LineNr">401 </span> 68/push 0x200/imm32 +<span id="L402" class="LineNr">402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L403" class="LineNr">403 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L404" class="LineNr">404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L405" class="LineNr">405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L406" class="LineNr">406 </span> <span class="subxComment"># var h1/ecx: handle</span> +<span id="L407" class="LineNr">407 </span> 68/push 0/imm32/address +<span id="L408" class="LineNr">408 </span> 68/push 0/imm32/alloc-id +<span id="L409" class="LineNr">409 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L410" class="LineNr">410 </span> <span class="subxComment"># var old_top/ebx = heap->curr</span> +<span id="L411" class="LineNr">411 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ebx</span> +<span id="L412" class="LineNr">412 </span> <span class="subxComment"># first allocation, to h1</span> +<span id="L413" class="LineNr">413 </span> <span class="subxS1Comment"># . allocate(heap, 2, h1)</span> +<span id="L414" class="LineNr">414 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L415" class="LineNr">415 </span> 51/push-ecx +<span id="L416" class="LineNr">416 </span> 68/push 2/imm32/size +<span id="L417" class="LineNr">417 </span> 56/push-esi +<span id="L418" class="LineNr">418 </span> <span class="subxS2Comment"># . . call</span> +<span id="L419" class="LineNr">419 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L420" class="LineNr">420 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L421" class="LineNr">421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L422" class="LineNr">422 </span> <span class="subxComment"># reset heap->curr to mimic reclamation</span> +<span id="L423" class="LineNr">423 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *esi</span> +<span id="L424" class="LineNr">424 </span> <span class="subxComment"># second allocation that returns the same address as the first</span> +<span id="L425" class="LineNr">425 </span> <span class="subxComment"># var h2/edx: handle</span> +<span id="L426" class="LineNr">426 </span> 68/push 0/imm32/address +<span id="L427" class="LineNr">427 </span> 68/push 0/imm32/alloc-id +<span id="L428" class="LineNr">428 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L429" class="LineNr">429 </span> <span class="subxS1Comment"># . allocate(heap, 2, h2)</span> +<span id="L430" class="LineNr">430 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L431" class="LineNr">431 </span> 52/push-edx +<span id="L432" class="LineNr">432 </span> 68/push 2/imm32/size +<span id="L433" class="LineNr">433 </span> 56/push-esi +<span id="L434" class="LineNr">434 </span> <span class="subxS2Comment"># . . call</span> +<span id="L435" class="LineNr">435 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L436" class="LineNr">436 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L437" class="LineNr">437 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L438" class="LineNr">438 </span> <span class="subxComment"># check-ints-equal(h1->address, h2->address, msg)</span> +<span id="L439" class="LineNr">439 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L440" class="LineNr">440 </span> 68/push <span class="Constant">"F - test-lookup-failure"</span>/imm32 +<span id="L441" class="LineNr">441 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L442" class="LineNr">442 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L443" class="LineNr">443 </span> <span class="subxS2Comment"># . . call</span> +<span id="L444" class="LineNr">444 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L445" class="LineNr">445 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L446" class="LineNr">446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L447" class="LineNr">447 </span> <span class="subxComment"># lookup(h1) should crash</span> +<span id="L448" class="LineNr">448 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L449" class="LineNr">449 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L450" class="LineNr">450 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L451" class="LineNr">451 </span> <span class="subxS2Comment"># . . call</span> +<span id="L452" class="LineNr">452 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L453" class="LineNr">453 </span> <span class="subxComment"># should never get past this point</span> +<span id="L454" class="LineNr">454 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L455" class="LineNr">455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L456" class="LineNr">456 </span> <span class="subxComment"># clean up</span> +<span id="L457" class="LineNr">457 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x100/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L458" class="LineNr">458 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L459" class="LineNr">459 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L460" class="LineNr">460 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L461" class="LineNr">461 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L462" class="LineNr">462 </span> 5d/pop-to-ebp +<span id="L463" class="LineNr">463 </span> c3/return +<span id="L464" class="LineNr">464 </span> +<span id="L465" class="LineNr">465 </span><span class="subxComment"># when comparing handles, just treat them as pure values</span> +<span id="L466" class="LineNr">466 </span><span class="subxFunction">handle-equal?</span>: <span class="subxComment"># a: (handle _T), b: (handle _T) -> result/eax: boolean</span> +<span id="L467" class="LineNr">467 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L468" class="LineNr">468 </span> 55/push-ebp +<span id="L469" class="LineNr">469 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L470" class="LineNr">470 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L471" class="LineNr">471 </span> 51/push-ecx +<span id="L472" class="LineNr">472 </span> <span class="subxComment"># eax = false</span> +<span id="L473" class="LineNr">473 </span> b8/copy-to-eax 0/imm32/false +<span id="L474" class="LineNr">474 </span><span class="Constant">$handle-equal?:compare-alloc-id</span>: +<span id="L475" class="LineNr">475 </span> <span class="subxComment"># ecx = a->alloc_id</span> +<span id="L476" class="LineNr">476 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L477" class="LineNr">477 </span> <span class="subxComment"># if (ecx != b->alloc_id) return false</span> +<span id="L478" class="LineNr">478 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+16)</span> +<span id="L479" class="LineNr">479 </span> 75/jump-if-!= $handle-equal?:end/disp8 +<span id="L480" class="LineNr">480 </span><span class="Constant">$handle-equal?:compare-address</span>: +<span id="L481" class="LineNr">481 </span> <span class="subxComment"># ecx = handle->address</span> +<span id="L482" class="LineNr">482 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L483" class="LineNr">483 </span> <span class="subxComment"># if (ecx != b->address) return false</span> +<span id="L484" class="LineNr">484 </span> 39/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx and *(ebp+20)</span> +<span id="L485" class="LineNr">485 </span> 75/jump-if-!= $handle-equal?:end/disp8 +<span id="L486" class="LineNr">486 </span><span class="Constant">$handle-equal?:return-true</span>: +<span id="L487" class="LineNr">487 </span> <span class="subxComment"># return true</span> +<span id="L488" class="LineNr">488 </span> b8/copy-to-eax 1/imm32/true +<span id="L489" class="LineNr">489 </span><span class="Constant">$handle-equal?:end</span>: +<span id="L490" class="LineNr">490 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L491" class="LineNr">491 </span> 59/pop-to-ecx +<span id="L492" class="LineNr">492 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L493" class="LineNr">493 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L494" class="LineNr">494 </span> 5d/pop-to-ebp +<span id="L495" class="LineNr">495 </span> c3/return +<span id="L496" class="LineNr">496 </span> +<span id="L497" class="LineNr">497 </span><span class="subxFunction">copy-handle</span>: <span class="subxComment"># src: (handle _T), dest: (addr handle _T)</span> +<span id="L498" class="LineNr">498 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L499" class="LineNr">499 </span> 55/push-ebp +<span id="L500" class="LineNr">500 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L501" class="LineNr">501 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L502" class="LineNr">502 </span> 50/push-eax +<span id="L503" class="LineNr">503 </span> 51/push-ecx +<span id="L504" class="LineNr">504 </span> <span class="subxComment"># ecx = dest</span> +<span id="L505" class="LineNr">505 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L506" class="LineNr">506 </span> <span class="subxComment"># *dest = src</span> +<span id="L507" class="LineNr">507 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L508" class="LineNr">508 </span> 89/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ecx</span> +<span id="L509" class="LineNr">509 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L510" class="LineNr">510 </span> 89/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(ecx+4)</span> +<span id="L511" class="LineNr">511 </span><span class="Constant">$copy-handle:end</span>: <span id="L512" class="LineNr">512 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L513" class="LineNr">513 </span> 59/pop-to-ecx <span id="L514" class="LineNr">514 </span> 58/pop-to-eax @@ -578,401 +578,454 @@ if ('onhashchange' in window) { <span id="L517" class="LineNr">517 </span> 5d/pop-to-ebp <span id="L518" class="LineNr">518 </span> c3/return <span id="L519" class="LineNr">519 </span> -<span id="L520" class="LineNr">520 </span><span class="subxComment"># We could create a more general '$abort' jump target, but then we'd need to do</span> -<span id="L521" class="LineNr">521 </span><span class="subxComment"># a conditional jump followed by loading the error message and an unconditional</span> -<span id="L522" class="LineNr">522 </span><span class="subxComment"># jump. Or we'd need to unconditionally load the error message before a</span> -<span id="L523" class="LineNr">523 </span><span class="subxComment"># conditional jump, even if it's unused the vast majority of the time. This way</span> -<span id="L524" class="LineNr">524 </span><span class="subxComment"># we bloat a potentially cold segment in RAM so we can abort with a single</span> -<span id="L525" class="LineNr">525 </span><span class="subxComment"># instruction.</span> -<span id="L526" class="LineNr">526 </span><span class="Constant">$allocate-region:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L527" class="LineNr">527 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"allocate-region: failed to allocate"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L528" class="LineNr">528 </span> { -<span id="L529" class="LineNr">529 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L530" class="LineNr">530 </span> } -<span id="L531" class="LineNr">531 </span> <span class="subxComment"># never gets here</span> -<span id="L532" class="LineNr">532 </span> -<span id="L533" class="LineNr">533 </span><span class="subxComment"># Claim the next 'n+4' bytes of memory and initialize the first 4 to n.</span> -<span id="L534" class="LineNr">534 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> -<span id="L535" class="LineNr">535 </span><span class="subxFunction">allocate-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> -<span id="L536" class="LineNr">536 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L537" class="LineNr">537 </span> 55/push-ebp -<span id="L538" class="LineNr">538 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L539" class="LineNr">539 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L540" class="LineNr">540 </span> 50/push-eax -<span id="L541" class="LineNr">541 </span> 51/push-ecx -<span id="L542" class="LineNr">542 </span> 52/push-edx -<span id="L543" class="LineNr">543 </span> <span class="subxComment"># ecx = n</span> -<span id="L544" class="LineNr">544 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L545" class="LineNr">545 </span> <span class="subxComment"># var size/edx: int = n+4</span> -<span id="L546" class="LineNr">546 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+4 to edx</span> -<span id="L547" class="LineNr">547 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L549" class="LineNr">549 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L550" class="LineNr">550 </span> 52/push-edx -<span id="L551" class="LineNr">551 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L552" class="LineNr">552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L553" class="LineNr">553 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L554" class="LineNr">554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L555" class="LineNr">555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L556" class="LineNr">556 </span> <span class="subxComment"># *out->payload = n</span> -<span id="L557" class="LineNr">557 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L558" class="LineNr">558 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L559" class="LineNr">559 </span> <span class="subxS1Comment"># . skip payload->allocid</span> -<span id="L560" class="LineNr">560 </span> 05/add-to-eax 4/imm32 -<span id="L561" class="LineNr">561 </span> <span class="subxS1Comment"># .</span> -<span id="L562" class="LineNr">562 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L563" class="LineNr">563 </span><span class="Constant">$allocate-array:end</span>: -<span id="L564" class="LineNr">564 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L565" class="LineNr">565 </span> 5a/pop-to-edx -<span id="L566" class="LineNr">566 </span> 59/pop-to-ecx -<span id="L567" class="LineNr">567 </span> 58/pop-to-eax -<span id="L568" class="LineNr">568 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L569" class="LineNr">569 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L570" class="LineNr">570 </span> 5d/pop-to-ebp -<span id="L571" class="LineNr">571 </span> c3/return -<span id="L572" class="LineNr">572 </span> -<span id="L573" class="LineNr">573 </span><span class="subxTest">test-allocate-array</span>: -<span id="L574" class="LineNr">574 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L575" class="LineNr">575 </span> 55/push-ebp -<span id="L576" class="LineNr">576 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L577" class="LineNr">577 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 16 bytes</span> -<span id="L578" class="LineNr">578 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L579" class="LineNr">579 </span> 89/<- %ecx 4/r32/esp -<span id="L580" class="LineNr">580 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 16</span> -<span id="L581" class="LineNr">581 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L582" class="LineNr">582 </span> 89/<- %edx 4/r32/esp -<span id="L583" class="LineNr">583 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L584" class="LineNr">584 </span> 51/push-ecx -<span id="L585" class="LineNr">585 </span> 52/push-edx -<span id="L586" class="LineNr">586 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L587" class="LineNr">587 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L588" class="LineNr">588 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L589" class="LineNr">589 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L590" class="LineNr">590 </span> 68/push 0/imm32 -<span id="L591" class="LineNr">591 </span> 68/push 0/imm32 -<span id="L592" class="LineNr">592 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L593" class="LineNr">593 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L594" class="LineNr">594 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L595" class="LineNr">595 </span> <span class="subxComment"># allocate-array(ad, 3, h)</span> -<span id="L596" class="LineNr">596 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L597" class="LineNr">597 </span> 52/push-edx -<span id="L598" class="LineNr">598 </span> 68/push 3/imm32 -<span id="L599" class="LineNr">599 </span> 51/push-ecx -<span id="L600" class="LineNr">600 </span> <span class="subxS2Comment"># . . call</span> -<span id="L601" class="LineNr">601 </span> e8/call <a href='120allocate.subx.html#L535'>allocate-array</a>/disp32 -<span id="L602" class="LineNr">602 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L603" class="LineNr">603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L604" class="LineNr">604 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L605" class="LineNr">605 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L606" class="LineNr">606 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets alloc-id in handle"</span>/imm32 -<span id="L607" class="LineNr">607 </span> 68/push 0x34/imm32 -<span id="L608" class="LineNr">608 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L609" class="LineNr">609 </span> <span class="subxS2Comment"># . . call</span> -<span id="L610" class="LineNr">610 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L611" class="LineNr">611 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L612" class="LineNr">612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L613" class="LineNr">613 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L614" class="LineNr">614 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L615" class="LineNr">615 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets payload in handle"</span>/imm32 -<span id="L616" class="LineNr">616 </span> 53/push-ebx -<span id="L617" class="LineNr">617 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L618" class="LineNr">618 </span> <span class="subxS2Comment"># . . call</span> -<span id="L619" class="LineNr">619 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L620" class="LineNr">620 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L621" class="LineNr">621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L622" class="LineNr">622 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L623" class="LineNr">623 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L624" class="LineNr">624 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets alloc-id in payload"</span>/imm32 -<span id="L625" class="LineNr">625 </span> 68/push 0x34/imm32 -<span id="L626" class="LineNr">626 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L627" class="LineNr">627 </span> <span class="subxS2Comment"># . . call</span> -<span id="L628" class="LineNr">628 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L629" class="LineNr">629 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L630" class="LineNr">630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L631" class="LineNr">631 </span> <span class="subxComment"># check-ints-equal(h->payload->size, 3, msg)</span> -<span id="L632" class="LineNr">632 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L633" class="LineNr">633 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: sets array size in payload"</span>/imm32 -<span id="L634" class="LineNr">634 </span> 68/push 3/imm32 -<span id="L635" class="LineNr">635 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L636" class="LineNr">636 </span> <span class="subxS2Comment"># . . call</span> -<span id="L637" class="LineNr">637 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L638" class="LineNr">638 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L639" class="LineNr">639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L640" class="LineNr">640 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> -<span id="L641" class="LineNr">641 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L642" class="LineNr">642 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: increments Next-alloc-id"</span>/imm32 -<span id="L643" class="LineNr">643 </span> 68/push 0x35/imm32 -<span id="L644" class="LineNr">644 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> -<span id="L645" class="LineNr">645 </span> <span class="subxS2Comment"># . . call</span> -<span id="L646" class="LineNr">646 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L647" class="LineNr">647 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L648" class="LineNr">648 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L649" class="LineNr">649 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id + 4 for array size, msg)</span> -<span id="L650" class="LineNr">650 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L651" class="LineNr">651 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L573'>test-allocate-array</a>: updates allocation descriptor"</span>/imm32 -<span id="L652" class="LineNr">652 </span> 68/push 0xb/imm32 -<span id="L653" class="LineNr">653 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L654" class="LineNr">654 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L655" class="LineNr">655 </span> 50/push-eax -<span id="L656" class="LineNr">656 </span> <span class="subxS2Comment"># . . call</span> -<span id="L657" class="LineNr">657 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L658" class="LineNr">658 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L659" class="LineNr">659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L660" class="LineNr">660 </span> <span class="subxComment"># clean up</span> -<span id="L661" class="LineNr">661 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L662" class="LineNr">662 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L663" class="LineNr">663 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> -<span id="L664" class="LineNr">664 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L665" class="LineNr">665 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L666" class="LineNr">666 </span> 5d/pop-to-ebp -<span id="L667" class="LineNr">667 </span> c3/return -<span id="L668" class="LineNr">668 </span> -<span id="L669" class="LineNr">669 </span><span class="subxFunction">copy-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T)</span> -<span id="L670" class="LineNr">670 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L671" class="LineNr">671 </span> 55/push-ebp -<span id="L672" class="LineNr">672 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L673" class="LineNr">673 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L674" class="LineNr">674 </span> 50/push-eax -<span id="L675" class="LineNr">675 </span> 51/push-ecx -<span id="L676" class="LineNr">676 </span> 52/push-edx -<span id="L677" class="LineNr">677 </span> 56/push-esi -<span id="L678" class="LineNr">678 </span> <span class="subxComment"># esi = src</span> -<span id="L679" class="LineNr">679 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L680" class="LineNr">680 </span> <span class="subxComment"># var size/ecx: int = src->size+4</span> -<span id="L681" class="LineNr">681 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L682" class="LineNr">682 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> -<span id="L683" class="LineNr">683 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L684" class="LineNr">684 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L685" class="LineNr">685 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L686" class="LineNr">686 </span> 51/push-ecx -<span id="L687" class="LineNr">687 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L688" class="LineNr">688 </span> <span class="subxS2Comment"># . . call</span> -<span id="L689" class="LineNr">689 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L690" class="LineNr">690 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L691" class="LineNr">691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L692" class="LineNr">692 </span> <span class="subxComment"># var payload/eax: (addr byte) = out->payload</span> -<span id="L693" class="LineNr">693 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L694" class="LineNr">694 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L695" class="LineNr">695 </span> <span class="subxS1Comment"># . skip payload->allocid</span> -<span id="L696" class="LineNr">696 </span> 05/add-to-eax 4/imm32 -<span id="L697" class="LineNr">697 </span> <span class="subxComment"># var max/ecx: (addr byte) = payload + size</span> -<span id="L698" class="LineNr">698 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L699" class="LineNr">699 </span> <span class="subxComment"># _append-4(payload, max, src, &src->data[src->size])</span> -<span id="L700" class="LineNr">700 </span> <span class="subxS2Comment"># . . push &src->data[src->size]</span> -<span id="L701" class="LineNr">701 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L702" class="LineNr">702 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+4 to edx</span> -<span id="L703" class="LineNr">703 </span> 52/push-edx -<span id="L704" class="LineNr">704 </span> <span class="subxS2Comment"># . . push src</span> -<span id="L705" class="LineNr">705 </span> 56/push-esi -<span id="L706" class="LineNr">706 </span> <span class="subxS2Comment"># . . push max</span> -<span id="L707" class="LineNr">707 </span> 51/push-ecx -<span id="L708" class="LineNr">708 </span> <span class="subxS2Comment"># . . push payload</span> -<span id="L709" class="LineNr">709 </span> 50/push-eax -<span id="L710" class="LineNr">710 </span> <span class="subxS2Comment"># . . call</span> -<span id="L711" class="LineNr">711 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 -<span id="L712" class="LineNr">712 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L713" class="LineNr">713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L714" class="LineNr">714 </span><span class="Constant">$copy-array:end</span>: -<span id="L715" class="LineNr">715 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L716" class="LineNr">716 </span> 5e/pop-to-esi -<span id="L717" class="LineNr">717 </span> 5a/pop-to-edx -<span id="L718" class="LineNr">718 </span> 59/pop-to-ecx -<span id="L719" class="LineNr">719 </span> 58/pop-to-eax -<span id="L720" class="LineNr">720 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L721" class="LineNr">721 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L722" class="LineNr">722 </span> 5d/pop-to-ebp -<span id="L723" class="LineNr">723 </span> c3/return -<span id="L724" class="LineNr">724 </span> -<span id="L725" class="LineNr">725 </span><span class="subxTest">test-copy-array</span>: -<span id="L726" class="LineNr">726 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L727" class="LineNr">727 </span> 55/push-ebp -<span id="L728" class="LineNr">728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L729" class="LineNr">729 </span> <span class="subxComment"># var src/esi: (addr array int) = [3, 4, 5]</span> -<span id="L730" class="LineNr">730 </span> 68/push 5/imm32 -<span id="L731" class="LineNr">731 </span> 68/push 4/imm32 -<span id="L732" class="LineNr">732 </span> 68/push 3/imm32 -<span id="L733" class="LineNr">733 </span> 68/push 0xc/imm32/size -<span id="L734" class="LineNr">734 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L735" class="LineNr">735 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor containing 32 bytes</span> -<span id="L736" class="LineNr">736 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L737" class="LineNr">737 </span> 89/<- %ecx 4/r32/esp -<span id="L738" class="LineNr">738 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 32</span> -<span id="L739" class="LineNr">739 </span> 81 5/subop/subtract %esp 0x20/imm32 -<span id="L740" class="LineNr">740 </span> 89/<- %edx 4/r32/esp -<span id="L741" class="LineNr">741 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L742" class="LineNr">742 </span> 51/push-ecx -<span id="L743" class="LineNr">743 </span> 52/push-edx -<span id="L744" class="LineNr">744 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L745" class="LineNr">745 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> -<span id="L746" class="LineNr">746 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L747" class="LineNr">747 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> -<span id="L748" class="LineNr">748 </span> 68/push 0/imm32 -<span id="L749" class="LineNr">749 </span> 68/push 0/imm32 -<span id="L750" class="LineNr">750 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L751" class="LineNr">751 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> -<span id="L752" class="LineNr">752 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L753" class="LineNr">753 </span> <span class="subxComment"># copy-array(ad, src, h)</span> -<span id="L754" class="LineNr">754 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L755" class="LineNr">755 </span> 52/push-edx +<span id="L520" class="LineNr">520 </span><span class="subxComment"># helper: create a nested allocation descriptor (useful for tests)</span> +<span id="L521" class="LineNr">521 </span><span class="subxFunction">allocate-region</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L522" class="LineNr">522 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L523" class="LineNr">523 </span> 55/push-ebp +<span id="L524" class="LineNr">524 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L525" class="LineNr">525 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L526" class="LineNr">526 </span> 50/push-eax +<span id="L527" class="LineNr">527 </span> 51/push-ecx +<span id="L528" class="LineNr">528 </span> <span class="subxComment"># allocate(ad, n, out)</span> +<span id="L529" class="LineNr">529 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L530" class="LineNr">530 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L531" class="LineNr">531 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L532" class="LineNr">532 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L533" class="LineNr">533 </span> <span class="subxS2Comment"># . . call</span> +<span id="L534" class="LineNr">534 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L535" class="LineNr">535 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L536" class="LineNr">536 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L537" class="LineNr">537 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L538" class="LineNr">538 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L539" class="LineNr">539 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L540" class="LineNr">540 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L541" class="LineNr">541 </span> 05/add-to-eax 4/imm32 +<span id="L542" class="LineNr">542 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L543" class="LineNr">543 </span> 3d/compare-eax-and 0/imm32 +<span id="L544" class="LineNr">544 </span> 74/jump-if-= $allocate-region:abort/disp8 +<span id="L545" class="LineNr">545 </span> <span class="subxComment"># earmark 8 bytes at the start for a new allocation descriptor</span> +<span id="L546" class="LineNr">546 </span> <span class="subxS1Comment"># . *eax = eax + 8</span> +<span id="L547" class="LineNr">547 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L548" class="LineNr">548 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to ecx</span> +<span id="L549" class="LineNr">549 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L550" class="LineNr">550 </span> <span class="subxS1Comment"># . *(eax+4) = eax + n</span> +<span id="L551" class="LineNr">551 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L552" class="LineNr">552 </span> 03/add 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(ebp+12) to ecx</span> +<span id="L553" class="LineNr">553 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *(eax+4)</span> +<span id="L554" class="LineNr">554 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L555" class="LineNr">555 </span> 59/pop-to-ecx +<span id="L556" class="LineNr">556 </span> 58/pop-to-eax +<span id="L557" class="LineNr">557 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L558" class="LineNr">558 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L559" class="LineNr">559 </span> 5d/pop-to-ebp +<span id="L560" class="LineNr">560 </span> c3/return +<span id="L561" class="LineNr">561 </span> +<span id="L562" class="LineNr">562 </span><span class="subxComment"># We could create a more general '$abort' jump target, but then we'd need to do</span> +<span id="L563" class="LineNr">563 </span><span class="subxComment"># a conditional jump followed by loading the error message and an unconditional</span> +<span id="L564" class="LineNr">564 </span><span class="subxComment"># jump. Or we'd need to unconditionally load the error message before a</span> +<span id="L565" class="LineNr">565 </span><span class="subxComment"># conditional jump, even if it's unused the vast majority of the time. This way</span> +<span id="L566" class="LineNr">566 </span><span class="subxComment"># we bloat a potentially cold segment in RAM so we can abort with a single</span> +<span id="L567" class="LineNr">567 </span><span class="subxComment"># instruction.</span> +<span id="L568" class="LineNr">568 </span><span class="Constant">$allocate-region:abort</span>: +<span id="L569" class="LineNr">569 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L570" class="LineNr">570 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L571" class="LineNr">571 </span> 68/push <span class="Constant">"allocate-region: failed to allocate\n"</span>/imm32 +<span id="L572" class="LineNr">572 </span> 68/push 2/imm32/stderr +<span id="L573" class="LineNr">573 </span> <span class="subxS2Comment"># . . call</span> +<span id="L574" class="LineNr">574 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L575" class="LineNr">575 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L576" class="LineNr">576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L577" class="LineNr">577 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L578" class="LineNr">578 </span> bb/copy-to-ebx 1/imm32 +<span id="L579" class="LineNr">579 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L580" class="LineNr">580 </span> <span class="subxComment"># never gets here</span> +<span id="L581" class="LineNr">581 </span> +<span id="L582" class="LineNr">582 </span><span class="subxComment"># Claim the next 'n+4' bytes of memory and initialize the first 4 to n.</span> +<span id="L583" class="LineNr">583 </span><span class="subxComment"># Abort if there isn't enough memory in 'ad'.</span> +<span id="L584" class="LineNr">584 </span><span class="subxFunction">allocate-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L585" class="LineNr">585 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L586" class="LineNr">586 </span> 55/push-ebp +<span id="L587" class="LineNr">587 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L588" class="LineNr">588 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L589" class="LineNr">589 </span> 50/push-eax +<span id="L590" class="LineNr">590 </span> 51/push-ecx +<span id="L591" class="LineNr">591 </span> 52/push-edx +<span id="L592" class="LineNr">592 </span> <span class="subxComment"># ecx = n</span> +<span id="L593" class="LineNr">593 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L594" class="LineNr">594 </span> <span class="subxComment"># var size/edx: int = n+4</span> +<span id="L595" class="LineNr">595 </span> 8d/copy-address 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ecx+4 to edx</span> +<span id="L596" class="LineNr">596 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L597" class="LineNr">597 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L598" class="LineNr">598 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L599" class="LineNr">599 </span> 52/push-edx +<span id="L600" class="LineNr">600 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L601" class="LineNr">601 </span> <span class="subxS2Comment"># . . call</span> +<span id="L602" class="LineNr">602 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L603" class="LineNr">603 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L604" class="LineNr">604 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L605" class="LineNr">605 </span> <span class="subxComment"># *out->payload = n</span> +<span id="L606" class="LineNr">606 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L607" class="LineNr">607 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L608" class="LineNr">608 </span> <span class="subxS1Comment"># . skip payload->allocid</span> +<span id="L609" class="LineNr">609 </span> 05/add-to-eax 4/imm32 +<span id="L610" class="LineNr">610 </span> <span class="subxS1Comment"># .</span> +<span id="L611" class="LineNr">611 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L612" class="LineNr">612 </span><span class="Constant">$allocate-array:end</span>: +<span id="L613" class="LineNr">613 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L614" class="LineNr">614 </span> 5a/pop-to-edx +<span id="L615" class="LineNr">615 </span> 59/pop-to-ecx +<span id="L616" class="LineNr">616 </span> 58/pop-to-eax +<span id="L617" class="LineNr">617 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L618" class="LineNr">618 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L619" class="LineNr">619 </span> 5d/pop-to-ebp +<span id="L620" class="LineNr">620 </span> c3/return +<span id="L621" class="LineNr">621 </span> +<span id="L622" class="LineNr">622 </span><span class="subxTest">test-allocate-array</span>: +<span id="L623" class="LineNr">623 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L624" class="LineNr">624 </span> 55/push-ebp +<span id="L625" class="LineNr">625 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L626" class="LineNr">626 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span> +<span id="L627" class="LineNr">627 </span> 68/push 0/imm32/limit +<span id="L628" class="LineNr">628 </span> 68/push 0/imm32/curr +<span id="L629" class="LineNr">629 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L630" class="LineNr">630 </span> <span class="subxComment"># ad = new-segment(512)</span> +<span id="L631" class="LineNr">631 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L632" class="LineNr">632 </span> 51/push-ecx +<span id="L633" class="LineNr">633 </span> 68/push 0x200/imm32 +<span id="L634" class="LineNr">634 </span> <span class="subxS2Comment"># . . call</span> +<span id="L635" class="LineNr">635 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L636" class="LineNr">636 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L637" class="LineNr">637 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L638" class="LineNr">638 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L639" class="LineNr">639 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L640" class="LineNr">640 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L641" class="LineNr">641 </span> 68/push 0/imm32 +<span id="L642" class="LineNr">642 </span> 68/push 0/imm32 +<span id="L643" class="LineNr">643 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L644" class="LineNr">644 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L645" class="LineNr">645 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L646" class="LineNr">646 </span> <span class="subxComment"># allocate-array(ad, 3, h)</span> +<span id="L647" class="LineNr">647 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L648" class="LineNr">648 </span> 52/push-edx +<span id="L649" class="LineNr">649 </span> 68/push 3/imm32 +<span id="L650" class="LineNr">650 </span> 51/push-ecx +<span id="L651" class="LineNr">651 </span> <span class="subxS2Comment"># . . call</span> +<span id="L652" class="LineNr">652 </span> e8/call <a href='120allocate.subx.html#L584'>allocate-array</a>/disp32 +<span id="L653" class="LineNr">653 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L654" class="LineNr">654 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L655" class="LineNr">655 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> +<span id="L656" class="LineNr">656 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L657" class="LineNr">657 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L622'>test-allocate-array</a>: sets alloc-id in handle"</span>/imm32 +<span id="L658" class="LineNr">658 </span> 68/push 0x34/imm32 +<span id="L659" class="LineNr">659 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L660" class="LineNr">660 </span> <span class="subxS2Comment"># . . call</span> +<span id="L661" class="LineNr">661 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L662" class="LineNr">662 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L663" class="LineNr">663 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L664" class="LineNr">664 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L665" class="LineNr">665 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L666" class="LineNr">666 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L622'>test-allocate-array</a>: sets payload in handle"</span>/imm32 +<span id="L667" class="LineNr">667 </span> 53/push-ebx +<span id="L668" class="LineNr">668 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L669" class="LineNr">669 </span> <span class="subxS2Comment"># . . call</span> +<span id="L670" class="LineNr">670 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L671" class="LineNr">671 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L672" class="LineNr">672 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L673" class="LineNr">673 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> +<span id="L674" class="LineNr">674 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L675" class="LineNr">675 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L622'>test-allocate-array</a>: sets alloc-id in payload"</span>/imm32 +<span id="L676" class="LineNr">676 </span> 68/push 0x34/imm32 +<span id="L677" class="LineNr">677 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L678" class="LineNr">678 </span> <span class="subxS2Comment"># . . call</span> +<span id="L679" class="LineNr">679 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L680" class="LineNr">680 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L681" class="LineNr">681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L682" class="LineNr">682 </span> <span class="subxComment"># check-ints-equal(h->payload->size, 3, msg)</span> +<span id="L683" class="LineNr">683 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L684" class="LineNr">684 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L622'>test-allocate-array</a>: sets array <a href='307size.subx.html#L5'>size</a> in payload"</span>/imm32 +<span id="L685" class="LineNr">685 </span> 68/push 3/imm32 +<span id="L686" class="LineNr">686 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L687" class="LineNr">687 </span> <span class="subxS2Comment"># . . call</span> +<span id="L688" class="LineNr">688 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L689" class="LineNr">689 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L690" class="LineNr">690 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L691" class="LineNr">691 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L692" class="LineNr">692 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L693" class="LineNr">693 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L622'>test-allocate-array</a>: increments Next-alloc-id"</span>/imm32 +<span id="L694" class="LineNr">694 </span> 68/push 0x35/imm32 +<span id="L695" class="LineNr">695 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L696" class="LineNr">696 </span> <span class="subxS2Comment"># . . call</span> +<span id="L697" class="LineNr">697 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L698" class="LineNr">698 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L699" class="LineNr">699 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L700" class="LineNr">700 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 3 + 4 for alloc-id + 4 for array size, msg)</span> +<span id="L701" class="LineNr">701 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L702" class="LineNr">702 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L622'>test-allocate-array</a>: updates allocation descriptor"</span>/imm32 +<span id="L703" class="LineNr">703 </span> 68/push 0xb/imm32 +<span id="L704" class="LineNr">704 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L705" class="LineNr">705 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L706" class="LineNr">706 </span> 50/push-eax +<span id="L707" class="LineNr">707 </span> <span class="subxS2Comment"># . . call</span> +<span id="L708" class="LineNr">708 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L709" class="LineNr">709 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L710" class="LineNr">710 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L711" class="LineNr">711 </span> <span class="subxComment"># clean up</span> +<span id="L712" class="LineNr">712 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L713" class="LineNr">713 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L714" class="LineNr">714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L715" class="LineNr">715 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L716" class="LineNr">716 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L717" class="LineNr">717 </span> 5d/pop-to-ebp +<span id="L718" class="LineNr">718 </span> c3/return +<span id="L719" class="LineNr">719 </span> +<span id="L720" class="LineNr">720 </span><span class="subxFunction">copy-array</span>: <span class="subxComment"># ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T)</span> +<span id="L721" class="LineNr">721 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L722" class="LineNr">722 </span> 55/push-ebp +<span id="L723" class="LineNr">723 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L724" class="LineNr">724 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L725" class="LineNr">725 </span> 50/push-eax +<span id="L726" class="LineNr">726 </span> 51/push-ecx +<span id="L727" class="LineNr">727 </span> 52/push-edx +<span id="L728" class="LineNr">728 </span> 56/push-esi +<span id="L729" class="LineNr">729 </span> <span class="subxComment"># esi = src</span> +<span id="L730" class="LineNr">730 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L731" class="LineNr">731 </span> <span class="subxComment"># var size/ecx: int = src->size+4</span> +<span id="L732" class="LineNr">732 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L733" class="LineNr">733 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L734" class="LineNr">734 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L735" class="LineNr">735 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L736" class="LineNr">736 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L737" class="LineNr">737 </span> 51/push-ecx +<span id="L738" class="LineNr">738 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L739" class="LineNr">739 </span> <span class="subxS2Comment"># . . call</span> +<span id="L740" class="LineNr">740 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L741" class="LineNr">741 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L742" class="LineNr">742 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L743" class="LineNr">743 </span> <span class="subxComment"># var payload/eax: (addr byte) = out->payload</span> +<span id="L744" class="LineNr">744 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L745" class="LineNr">745 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L746" class="LineNr">746 </span> <span class="subxS1Comment"># . skip payload->allocid</span> +<span id="L747" class="LineNr">747 </span> 05/add-to-eax 4/imm32 +<span id="L748" class="LineNr">748 </span> <span class="subxComment"># var max/ecx: (addr byte) = payload + size</span> +<span id="L749" class="LineNr">749 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L750" class="LineNr">750 </span> <span class="subxComment"># _append-4(payload, max, src, &src->data[src->size])</span> +<span id="L751" class="LineNr">751 </span> <span class="subxS2Comment"># . . push &src->data[src->size]</span> +<span id="L752" class="LineNr">752 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L753" class="LineNr">753 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+4 to edx</span> +<span id="L754" class="LineNr">754 </span> 52/push-edx +<span id="L755" class="LineNr">755 </span> <span class="subxS2Comment"># . . push src</span> <span id="L756" class="LineNr">756 </span> 56/push-esi -<span id="L757" class="LineNr">757 </span> 51/push-ecx -<span id="L758" class="LineNr">758 </span> <span class="subxS2Comment"># . . call</span> -<span id="L759" class="LineNr">759 </span> e8/call <a href='120allocate.subx.html#L669'>copy-array</a>/disp32 -<span id="L760" class="LineNr">760 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L761" class="LineNr">761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L762" class="LineNr">762 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> -<span id="L763" class="LineNr">763 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L764" class="LineNr">764 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets alloc-id in handle"</span>/imm32 -<span id="L765" class="LineNr">765 </span> 68/push 0x34/imm32 -<span id="L766" class="LineNr">766 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L767" class="LineNr">767 </span> <span class="subxS2Comment"># . . call</span> -<span id="L768" class="LineNr">768 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L769" class="LineNr">769 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L770" class="LineNr">770 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L771" class="LineNr">771 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> -<span id="L772" class="LineNr">772 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L773" class="LineNr">773 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets payload in handle"</span>/imm32 -<span id="L774" class="LineNr">774 </span> 53/push-ebx -<span id="L775" class="LineNr">775 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L776" class="LineNr">776 </span> <span class="subxS2Comment"># . . call</span> -<span id="L777" class="LineNr">777 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L778" class="LineNr">778 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L779" class="LineNr">779 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L780" class="LineNr">780 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> -<span id="L781" class="LineNr">781 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L782" class="LineNr">782 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets alloc-id in payload"</span>/imm32 -<span id="L783" class="LineNr">783 </span> 68/push 0x34/imm32 -<span id="L784" class="LineNr">784 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L785" class="LineNr">785 </span> <span class="subxS2Comment"># . . call</span> -<span id="L786" class="LineNr">786 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L787" class="LineNr">787 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L788" class="LineNr">788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L789" class="LineNr">789 </span> <span class="subxComment"># var payload/eax: (addr int) = lookup(h)</span> -<span id="L790" class="LineNr">790 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L791" class="LineNr">791 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L792" class="LineNr">792 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L793" class="LineNr">793 </span> <span class="subxS2Comment"># . . call</span> -<span id="L794" class="LineNr">794 </span> e8/call <a href='120allocate.subx.html#L226'>lookup</a>/disp32 -<span id="L795" class="LineNr">795 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L796" class="LineNr">796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L797" class="LineNr">797 </span> <span class="subxComment"># check-ints-equal(payload->size, 0xc, msg)</span> -<span id="L798" class="LineNr">798 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L799" class="LineNr">799 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: sets array size in payload"</span>/imm32 -<span id="L800" class="LineNr">800 </span> 68/push 0xc/imm32 -<span id="L801" class="LineNr">801 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L802" class="LineNr">802 </span> <span class="subxS2Comment"># . . call</span> -<span id="L803" class="LineNr">803 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L804" class="LineNr">804 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L805" class="LineNr">805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L806" class="LineNr">806 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L757" class="LineNr">757 </span> <span class="subxS2Comment"># . . push max</span> +<span id="L758" class="LineNr">758 </span> 51/push-ecx +<span id="L759" class="LineNr">759 </span> <span class="subxS2Comment"># . . push payload</span> +<span id="L760" class="LineNr">760 </span> 50/push-eax +<span id="L761" class="LineNr">761 </span> <span class="subxS2Comment"># . . call</span> +<span id="L762" class="LineNr">762 </span> e8/call <a href='107trace.subx.html#L892'>_append-4</a>/disp32 +<span id="L763" class="LineNr">763 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L764" class="LineNr">764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L765" class="LineNr">765 </span><span class="Constant">$copy-array:end</span>: +<span id="L766" class="LineNr">766 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L767" class="LineNr">767 </span> 5e/pop-to-esi +<span id="L768" class="LineNr">768 </span> 5a/pop-to-edx +<span id="L769" class="LineNr">769 </span> 59/pop-to-ecx +<span id="L770" class="LineNr">770 </span> 58/pop-to-eax +<span id="L771" class="LineNr">771 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L772" class="LineNr">772 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L773" class="LineNr">773 </span> 5d/pop-to-ebp +<span id="L774" class="LineNr">774 </span> c3/return +<span id="L775" class="LineNr">775 </span> +<span id="L776" class="LineNr">776 </span><span class="subxTest">test-copy-array</span>: +<span id="L777" class="LineNr">777 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L778" class="LineNr">778 </span> 55/push-ebp +<span id="L779" class="LineNr">779 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L780" class="LineNr">780 </span> <span class="subxComment"># var src/esi: (addr array int) = [3, 4, 5]</span> +<span id="L781" class="LineNr">781 </span> 68/push 5/imm32 +<span id="L782" class="LineNr">782 </span> 68/push 4/imm32 +<span id="L783" class="LineNr">783 </span> 68/push 3/imm32 +<span id="L784" class="LineNr">784 </span> 68/push 0xc/imm32/size +<span id="L785" class="LineNr">785 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L786" class="LineNr">786 </span> <span class="subxComment"># var ad/ecx: allocation-descriptor</span> +<span id="L787" class="LineNr">787 </span> 68/push 0/imm32/limit +<span id="L788" class="LineNr">788 </span> 68/push 0/imm32/curr +<span id="L789" class="LineNr">789 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L790" class="LineNr">790 </span> <span class="subxComment"># ad = new-segment(512)</span> +<span id="L791" class="LineNr">791 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L792" class="LineNr">792 </span> 51/push-ecx +<span id="L793" class="LineNr">793 </span> 68/push 0x200/imm32 +<span id="L794" class="LineNr">794 </span> <span class="subxS2Comment"># . . call</span> +<span id="L795" class="LineNr">795 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L796" class="LineNr">796 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L797" class="LineNr">797 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L798" class="LineNr">798 </span> <span class="subxComment"># var expected-payload/ebx = ad->curr</span> +<span id="L799" class="LineNr">799 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L800" class="LineNr">800 </span> <span class="subxComment"># var h/edx: handle = {0, 0}</span> +<span id="L801" class="LineNr">801 </span> 68/push 0/imm32 +<span id="L802" class="LineNr">802 </span> 68/push 0/imm32 +<span id="L803" class="LineNr">803 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L804" class="LineNr">804 </span> <span class="subxComment"># *Next-alloc-id = 0x34</span> +<span id="L805" class="LineNr">805 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 0x34/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L806" class="LineNr">806 </span> <span class="subxComment"># copy-array(ad, src, h)</span> <span id="L807" class="LineNr">807 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L808" class="LineNr">808 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: increments Next-alloc-id"</span>/imm32 -<span id="L809" class="LineNr">809 </span> 68/push 0x35/imm32 -<span id="L810" class="LineNr">810 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L808" class="LineNr">808 </span> 52/push-edx +<span id="L809" class="LineNr">809 </span> 56/push-esi +<span id="L810" class="LineNr">810 </span> 51/push-ecx <span id="L811" class="LineNr">811 </span> <span class="subxS2Comment"># . . call</span> -<span id="L812" class="LineNr">812 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L812" class="LineNr">812 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 <span id="L813" class="LineNr">813 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L814" class="LineNr">814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L815" class="LineNr">815 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 12 + 4 for alloc-id + 4 for size, msg)</span> +<span id="L815" class="LineNr">815 </span> <span class="subxComment"># check-ints-equal(h->alloc-id, 0x34, msg)</span> <span id="L816" class="LineNr">816 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L817" class="LineNr">817 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L725'>test-copy-array</a>: updates allocation descriptor"</span>/imm32 -<span id="L818" class="LineNr">818 </span> 68/push 0x14/imm32 -<span id="L819" class="LineNr">819 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L820" class="LineNr">820 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L821" class="LineNr">821 </span> 50/push-eax -<span id="L822" class="LineNr">822 </span> <span class="subxS2Comment"># . . call</span> -<span id="L823" class="LineNr">823 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L824" class="LineNr">824 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L825" class="LineNr">825 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L826" class="LineNr">826 </span> <span class="subxComment"># clean up</span> -<span id="L827" class="LineNr">827 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L33'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> -<span id="L828" class="LineNr">828 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L829" class="LineNr">829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x40/imm32 <span class="subxComment"># add to esp</span> -<span id="L830" class="LineNr">830 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L831" class="LineNr">831 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L832" class="LineNr">832 </span> 5d/pop-to-ebp -<span id="L833" class="LineNr">833 </span> c3/return -<span id="L834" class="LineNr">834 </span> -<span id="L835" class="LineNr">835 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> -<span id="L836" class="LineNr">836 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), size: int</span> -<span id="L837" class="LineNr">837 </span> <span class="subxComment"># pseudocode:</span> -<span id="L838" class="LineNr">838 </span> <span class="subxComment"># curr/esi = start</span> -<span id="L839" class="LineNr">839 </span> <span class="subxComment"># i/ecx = 0</span> -<span id="L840" class="LineNr">840 </span> <span class="subxComment"># while true</span> -<span id="L841" class="LineNr">841 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L842" class="LineNr">842 </span> <span class="subxComment"># *curr = 0</span> -<span id="L843" class="LineNr">843 </span> <span class="subxComment"># ++curr</span> -<span id="L844" class="LineNr">844 </span> <span class="subxComment"># ++i</span> -<span id="L845" class="LineNr">845 </span> <span class="subxComment">#</span> -<span id="L846" class="LineNr">846 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L847" class="LineNr">847 </span> 55/push-ebp -<span id="L848" class="LineNr">848 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L849" class="LineNr">849 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L850" class="LineNr">850 </span> 50/push-eax -<span id="L851" class="LineNr">851 </span> 51/push-ecx -<span id="L852" class="LineNr">852 </span> 52/push-edx -<span id="L853" class="LineNr">853 </span> 56/push-esi -<span id="L854" class="LineNr">854 </span> <span class="subxComment"># curr/esi = start</span> -<span id="L855" class="LineNr">855 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L856" class="LineNr">856 </span> <span class="subxComment"># var i/ecx: int = 0</span> -<span id="L857" class="LineNr">857 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> -<span id="L858" class="LineNr">858 </span> <span class="subxComment"># edx = size</span> -<span id="L859" class="LineNr">859 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> -<span id="L860" class="LineNr">860 </span><span class="Constant">$zero-out:loop</span>: -<span id="L861" class="LineNr">861 </span> <span class="subxComment"># if (i >= size) break</span> -<span id="L862" class="LineNr">862 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L863" class="LineNr">863 </span> 7d/jump-if->= $zero-out:end/disp8 -<span id="L864" class="LineNr">864 </span> <span class="subxComment"># *curr = 0</span> -<span id="L865" class="LineNr">865 </span> c6 0/subop/copy-byte 0/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *esi</span> -<span id="L866" class="LineNr">866 </span> <span class="subxComment"># ++curr</span> -<span id="L867" class="LineNr">867 </span> 46/increment-esi -<span id="L868" class="LineNr">868 </span> <span class="subxComment"># ++i</span> -<span id="L869" class="LineNr">869 </span> 41/increment-ecx -<span id="L870" class="LineNr">870 </span> eb/jump $zero-out:<span class="Constant">loop</span>/disp8 -<span id="L871" class="LineNr">871 </span><span class="Constant">$zero-out:end</span>: -<span id="L872" class="LineNr">872 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L873" class="LineNr">873 </span> 5e/pop-to-esi -<span id="L874" class="LineNr">874 </span> 5a/pop-to-edx -<span id="L875" class="LineNr">875 </span> 59/pop-to-ecx -<span id="L876" class="LineNr">876 </span> 58/pop-to-eax -<span id="L877" class="LineNr">877 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L878" class="LineNr">878 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L879" class="LineNr">879 </span> 5d/pop-to-ebp -<span id="L880" class="LineNr">880 </span> c3/return -<span id="L881" class="LineNr">881 </span> -<span id="L882" class="LineNr">882 </span><span class="subxTest">test-zero-out</span>: -<span id="L883" class="LineNr">883 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L884" class="LineNr">884 </span> 55/push-ebp -<span id="L885" class="LineNr">885 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L886" class="LineNr">886 </span> <span class="subxComment"># region/ecx = 34, 35, 36, 37</span> -<span id="L887" class="LineNr">887 </span> 68/push 0x37363534/imm32 -<span id="L888" class="LineNr">888 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L889" class="LineNr">889 </span> <span class="subxComment"># zero-out(ecx, 3)</span> -<span id="L890" class="LineNr">890 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L891" class="LineNr">891 </span> 68/push 3/imm32/size -<span id="L892" class="LineNr">892 </span> 51/push-ecx -<span id="L893" class="LineNr">893 </span> <span class="subxS2Comment"># . . call</span> -<span id="L894" class="LineNr">894 </span> e8/call <a href='120allocate.subx.html#L836'>zero-out</a>/disp32 -<span id="L895" class="LineNr">895 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L896" class="LineNr">896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L897" class="LineNr">897 </span> <span class="subxComment"># first 3 bytes cleared, fourth left alone</span> -<span id="L898" class="LineNr">898 </span> <span class="subxS1Comment"># . check-ints-equal(*ecx, 0x37000000, msg)</span> -<span id="L899" class="LineNr">899 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L900" class="LineNr">900 </span> 68/push <span class="Constant">"F - test-zero-out"</span>/imm32 -<span id="L901" class="LineNr">901 </span> 68/push 0x37000000/imm32 -<span id="L902" class="LineNr">902 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L903" class="LineNr">903 </span> <span class="subxS2Comment"># . . call</span> -<span id="L904" class="LineNr">904 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L905" class="LineNr">905 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L906" class="LineNr">906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L907" class="LineNr">907 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L908" class="LineNr">908 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L909" class="LineNr">909 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L910" class="LineNr">910 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L911" class="LineNr">911 </span> 5d/pop-to-ebp -<span id="L912" class="LineNr">912 </span> c3/return -<span id="L913" class="LineNr">913 </span> -<span id="L914" class="LineNr">914 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L817" class="LineNr">817 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L776'>test-copy-array</a>: sets alloc-id in handle"</span>/imm32 +<span id="L818" class="LineNr">818 </span> 68/push 0x34/imm32 +<span id="L819" class="LineNr">819 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L820" class="LineNr">820 </span> <span class="subxS2Comment"># . . call</span> +<span id="L821" class="LineNr">821 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L822" class="LineNr">822 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L823" class="LineNr">823 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L824" class="LineNr">824 </span> <span class="subxComment"># check-ints-equal(h->payload, expected-payload, msg)</span> +<span id="L825" class="LineNr">825 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L826" class="LineNr">826 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L776'>test-copy-array</a>: sets payload in handle"</span>/imm32 +<span id="L827" class="LineNr">827 </span> 53/push-ebx +<span id="L828" class="LineNr">828 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L829" class="LineNr">829 </span> <span class="subxS2Comment"># . . call</span> +<span id="L830" class="LineNr">830 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L831" class="LineNr">831 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L832" class="LineNr">832 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L833" class="LineNr">833 </span> <span class="subxComment"># check-ints-equal(h->payload->alloc-id, 0x34, msg)</span> +<span id="L834" class="LineNr">834 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L835" class="LineNr">835 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L776'>test-copy-array</a>: sets alloc-id in payload"</span>/imm32 +<span id="L836" class="LineNr">836 </span> 68/push 0x34/imm32 +<span id="L837" class="LineNr">837 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L838" class="LineNr">838 </span> <span class="subxS2Comment"># . . call</span> +<span id="L839" class="LineNr">839 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L840" class="LineNr">840 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L841" class="LineNr">841 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L842" class="LineNr">842 </span> <span class="subxComment"># var payload/eax: (addr int) = lookup(h)</span> +<span id="L843" class="LineNr">843 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L844" class="LineNr">844 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L845" class="LineNr">845 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L846" class="LineNr">846 </span> <span class="subxS2Comment"># . . call</span> +<span id="L847" class="LineNr">847 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L848" class="LineNr">848 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L849" class="LineNr">849 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L850" class="LineNr">850 </span> <span class="subxComment"># check-ints-equal(payload->size, 0xc, msg)</span> +<span id="L851" class="LineNr">851 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L852" class="LineNr">852 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L776'>test-copy-array</a>: sets array <a href='307size.subx.html#L5'>size</a> in payload"</span>/imm32 +<span id="L853" class="LineNr">853 </span> 68/push 0xc/imm32 +<span id="L854" class="LineNr">854 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L855" class="LineNr">855 </span> <span class="subxS2Comment"># . . call</span> +<span id="L856" class="LineNr">856 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L857" class="LineNr">857 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L858" class="LineNr">858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L859" class="LineNr">859 </span> <span class="subxComment"># check-ints-equal(*Next-alloc-id, 0x35, msg)</span> +<span id="L860" class="LineNr">860 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L861" class="LineNr">861 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L776'>test-copy-array</a>: increments Next-alloc-id"</span>/imm32 +<span id="L862" class="LineNr">862 </span> 68/push 0x35/imm32 +<span id="L863" class="LineNr">863 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 <span class="subxComment"># push *Next-alloc-id</span> +<span id="L864" class="LineNr">864 </span> <span class="subxS2Comment"># . . call</span> +<span id="L865" class="LineNr">865 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L866" class="LineNr">866 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L867" class="LineNr">867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L868" class="LineNr">868 </span> <span class="subxComment"># check-ints-equal(ad->curr - expected-payload, 12 + 4 for alloc-id + 4 for size, msg)</span> +<span id="L869" class="LineNr">869 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L870" class="LineNr">870 </span> 68/push <span class="Constant">"F - <a href='120allocate.subx.html#L776'>test-copy-array</a>: updates allocation descriptor"</span>/imm32 +<span id="L871" class="LineNr">871 </span> 68/push 0x14/imm32 +<span id="L872" class="LineNr">872 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L873" class="LineNr">873 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L874" class="LineNr">874 </span> 50/push-eax +<span id="L875" class="LineNr">875 </span> <span class="subxS2Comment"># . . call</span> +<span id="L876" class="LineNr">876 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L877" class="LineNr">877 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L878" class="LineNr">878 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L879" class="LineNr">879 </span> <span class="subxComment"># clean up</span> +<span id="L880" class="LineNr">880 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L37'>Next-alloc-id</a></span>/disp32 1/imm32 <span class="subxComment"># copy to *Next-alloc-id</span> +<span id="L881" class="LineNr">881 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L882" class="LineNr">882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x20/imm32 <span class="subxComment"># add to esp</span> +<span id="L883" class="LineNr">883 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L884" class="LineNr">884 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L885" class="LineNr">885 </span> 5d/pop-to-ebp +<span id="L886" class="LineNr">886 </span> c3/return +<span id="L887" class="LineNr">887 </span> +<span id="L888" class="LineNr">888 </span><span class="subxComment"># Fill a region of memory with zeroes.</span> +<span id="L889" class="LineNr">889 </span><span class="subxFunction">zero-out</span>: <span class="subxComment"># start: (addr byte), size: int</span> +<span id="L890" class="LineNr">890 </span> <span class="subxComment"># pseudocode:</span> +<span id="L891" class="LineNr">891 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L892" class="LineNr">892 </span> <span class="subxComment"># i/ecx = 0</span> +<span id="L893" class="LineNr">893 </span> <span class="subxComment"># while true</span> +<span id="L894" class="LineNr">894 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L895" class="LineNr">895 </span> <span class="subxComment"># *curr = 0</span> +<span id="L896" class="LineNr">896 </span> <span class="subxComment"># ++curr</span> +<span id="L897" class="LineNr">897 </span> <span class="subxComment"># ++i</span> +<span id="L898" class="LineNr">898 </span> <span class="subxComment">#</span> +<span id="L899" class="LineNr">899 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L900" class="LineNr">900 </span> 55/push-ebp +<span id="L901" class="LineNr">901 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L902" class="LineNr">902 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L903" class="LineNr">903 </span> 50/push-eax +<span id="L904" class="LineNr">904 </span> 51/push-ecx +<span id="L905" class="LineNr">905 </span> 52/push-edx +<span id="L906" class="LineNr">906 </span> 56/push-esi +<span id="L907" class="LineNr">907 </span> <span class="subxComment"># curr/esi = start</span> +<span id="L908" class="LineNr">908 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L909" class="LineNr">909 </span> <span class="subxComment"># var i/ecx: int = 0</span> +<span id="L910" class="LineNr">910 </span> 31/xor 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ecx</span> +<span id="L911" class="LineNr">911 </span> <span class="subxComment"># edx = size</span> +<span id="L912" class="LineNr">912 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edx</span> +<span id="L913" class="LineNr">913 </span><span class="Constant">$zero-out:loop</span>: +<span id="L914" class="LineNr">914 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L915" class="LineNr">915 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L916" class="LineNr">916 </span> 7d/jump-if->= $zero-out:end/disp8 +<span id="L917" class="LineNr">917 </span> <span class="subxComment"># *curr = 0</span> +<span id="L918" class="LineNr">918 </span> c6 0/subop/copy-byte 0/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm8 <span class="subxComment"># copy byte to *esi</span> +<span id="L919" class="LineNr">919 </span> <span class="subxComment"># ++curr</span> +<span id="L920" class="LineNr">920 </span> 46/increment-esi +<span id="L921" class="LineNr">921 </span> <span class="subxComment"># ++i</span> +<span id="L922" class="LineNr">922 </span> 41/increment-ecx +<span id="L923" class="LineNr">923 </span> eb/jump $zero-out:<span class="Constant">loop</span>/disp8 +<span id="L924" class="LineNr">924 </span><span class="Constant">$zero-out:end</span>: +<span id="L925" class="LineNr">925 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L926" class="LineNr">926 </span> 5e/pop-to-esi +<span id="L927" class="LineNr">927 </span> 5a/pop-to-edx +<span id="L928" class="LineNr">928 </span> 59/pop-to-ecx +<span id="L929" class="LineNr">929 </span> 58/pop-to-eax +<span id="L930" class="LineNr">930 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L931" class="LineNr">931 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L932" class="LineNr">932 </span> 5d/pop-to-ebp +<span id="L933" class="LineNr">933 </span> c3/return +<span id="L934" class="LineNr">934 </span> +<span id="L935" class="LineNr">935 </span><span class="subxTest">test-zero-out</span>: +<span id="L936" class="LineNr">936 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L937" class="LineNr">937 </span> 55/push-ebp +<span id="L938" class="LineNr">938 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L939" class="LineNr">939 </span> <span class="subxComment"># region/ecx = 34, 35, 36, 37</span> +<span id="L940" class="LineNr">940 </span> 68/push 0x37363534/imm32 +<span id="L941" class="LineNr">941 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L942" class="LineNr">942 </span> <span class="subxComment"># zero-out(ecx, 3)</span> +<span id="L943" class="LineNr">943 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L944" class="LineNr">944 </span> 68/push 3/imm32/size +<span id="L945" class="LineNr">945 </span> 51/push-ecx +<span id="L946" class="LineNr">946 </span> <span class="subxS2Comment"># . . call</span> +<span id="L947" class="LineNr">947 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 +<span id="L948" class="LineNr">948 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L949" class="LineNr">949 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L950" class="LineNr">950 </span> <span class="subxComment"># first 3 bytes cleared, fourth left alone</span> +<span id="L951" class="LineNr">951 </span> <span class="subxS1Comment"># . check-ints-equal(*ecx, 0x37000000, msg)</span> +<span id="L952" class="LineNr">952 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L953" class="LineNr">953 </span> 68/push <span class="Constant">"F - test-zero-out"</span>/imm32 +<span id="L954" class="LineNr">954 </span> 68/push 0x37000000/imm32 +<span id="L955" class="LineNr">955 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L956" class="LineNr">956 </span> <span class="subxS2Comment"># . . call</span> +<span id="L957" class="LineNr">957 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L958" class="LineNr">958 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L959" class="LineNr">959 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L960" class="LineNr">960 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L961" class="LineNr">961 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L962" class="LineNr">962 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L963" class="LineNr">963 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L964" class="LineNr">964 </span> 5d/pop-to-ebp +<span id="L965" class="LineNr">965 </span> c3/return +<span id="L966" class="LineNr">966 </span> +<span id="L967" class="LineNr">967 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/linux/121new-stream.subx.html b/html/linux/121new-stream.subx.html new file mode 100644 index 00000000..2c7184ad --- /dev/null +++ b/html/linux/121new-stream.subx.html @@ -0,0 +1,199 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/121new-stream.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/121new-stream.subx'>https://github.com/akkartik/mu/blob/main/linux/121new-stream.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helper to allocate a stream on the heap.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span>== code +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="subxFunction">new-stream</span>: <span class="subxComment"># ad: (addr allocation-descriptor), length: int, elemsize: int, out: (addr handle stream _)</span> +<span id="L9" class="LineNr"> 9 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10" class="LineNr"> 10 </span> 55/push-ebp +<span id="L11" class="LineNr"> 11 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L12" class="LineNr"> 12 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L13" class="LineNr"> 13 </span> 50/push-eax +<span id="L14" class="LineNr"> 14 </span> 52/push-edx +<span id="L15" class="LineNr"> 15 </span> <span class="subxComment"># var size/edx: int = elemsize*length (clobbering eax)</span> +<span id="L16" class="LineNr"> 16 </span> <span class="subxS1Comment"># . eax = elemsize</span> +<span id="L17" class="LineNr"> 17 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L18" class="LineNr"> 18 </span> <span class="subxS1Comment"># . eax *= length</span> +<span id="L19" class="LineNr"> 19 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> +<span id="L20" class="LineNr"> 20 </span> f7 4/subop/multiply 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># multiply *(ebp+12) into edx:eax</span> +<span id="L21" class="LineNr"> 21 </span> <span class="subxS1Comment"># . if overflow abort</span> +<span id="L22" class="LineNr"> 22 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare edx</span> +<span id="L23" class="LineNr"> 23 </span> 75/jump-if-!= $new-stream:abort/disp8 +<span id="L24" class="LineNr"> 24 </span> <span class="subxS1Comment"># . edx = elemsize*length</span> +<span id="L25" class="LineNr"> 25 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L26" class="LineNr"> 26 </span> <span class="subxComment"># var n/eax: int = size + 12 (for read, write and size)</span> +<span id="L27" class="LineNr"> 27 </span> 05/add-to-eax 0xc/imm32 +<span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># allocate(ad, n, out)</span> +<span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L30" class="LineNr"> 30 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L31" class="LineNr"> 31 </span> 50/push-eax +<span id="L32" class="LineNr"> 32 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L33" class="LineNr"> 33 </span> <span class="subxS2Comment"># . . call</span> +<span id="L34" class="LineNr"> 34 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L35" class="LineNr"> 35 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L36" class="LineNr"> 36 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L38" class="LineNr"> 38 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to eax</span> +<span id="L39" class="LineNr"> 39 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L40" class="LineNr"> 40 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L41" class="LineNr"> 41 </span> 05/add-to-eax 4/imm32 +<span id="L42" class="LineNr"> 42 </span> <span class="subxComment"># eax->size = size</span> +<span id="L43" class="LineNr"> 43 </span> 89/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx to *(eax+8)</span> +<span id="L44" class="LineNr"> 44 </span> <span class="subxComment"># clear-stream(eax)</span> +<span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L46" class="LineNr"> 46 </span> 50/push-eax +<span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . call</span> +<span id="L48" class="LineNr"> 48 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L49" class="LineNr"> 49 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L50" class="LineNr"> 50 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L51" class="LineNr"> 51 </span><span class="Constant">$new-stream:end</span>: +<span id="L52" class="LineNr"> 52 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L53" class="LineNr"> 53 </span> 5a/pop-to-edx +<span id="L54" class="LineNr"> 54 </span> 58/pop-to-eax +<span id="L55" class="LineNr"> 55 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L56" class="LineNr"> 56 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L57" class="LineNr"> 57 </span> 5d/pop-to-ebp +<span id="L58" class="LineNr"> 58 </span> c3/return +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="Constant">$new-stream:abort</span>: +<span id="L61" class="LineNr"> 61 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L63" class="LineNr"> 63 </span> 68/push <span class="Constant">"new-stream: <a href='307size.subx.html#L5'>size</a> too large\n"</span>/imm32 +<span id="L64" class="LineNr"> 64 </span> 68/push 2/imm32/stderr +<span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . call</span> +<span id="L66" class="LineNr"> 66 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L68" class="LineNr"> 68 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L70" class="LineNr"> 70 </span> bb/copy-to-ebx 1/imm32 +<span id="L71" class="LineNr"> 71 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># never gets here</span> +<span id="L73" class="LineNr"> 73 </span> +<span id="L74" class="LineNr"> 74 </span><span class="subxTest">test-new-stream</span>: +<span id="L75" class="LineNr"> 75 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L76" class="LineNr"> 76 </span> 55/push-ebp +<span id="L77" class="LineNr"> 77 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># var heap/ecx: allocation-descriptor</span> +<span id="L79" class="LineNr"> 79 </span> 68/push 0/imm32/limit +<span id="L80" class="LineNr"> 80 </span> 68/push 0/imm32/curr +<span id="L81" class="LineNr"> 81 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># heap = new-segment(512)</span> +<span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L84" class="LineNr"> 84 </span> 51/push-ecx +<span id="L85" class="LineNr"> 85 </span> 68/push 0x200/imm32 +<span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . call</span> +<span id="L87" class="LineNr"> 87 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L89" class="LineNr"> 89 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># var start/edx = ad->curr</span> +<span id="L91" class="LineNr"> 91 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L92" class="LineNr"> 92 </span> <span class="subxComment"># var h/ebx: (handle stream byte)</span> +<span id="L93" class="LineNr"> 93 </span> 68/push 0/imm32 +<span id="L94" class="LineNr"> 94 </span> 68/push 0/imm32 +<span id="L95" class="LineNr"> 95 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxComment"># new-stream(heap, 3, 2, h)</span> +<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L98" class="LineNr"> 98 </span> 53/push-ebx +<span id="L99" class="LineNr"> 99 </span> 68/push 2/imm32 +<span id="L100" class="LineNr">100 </span> 68/push 3/imm32 +<span id="L101" class="LineNr">101 </span> 51/push-ecx +<span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . call</span> +<span id="L103" class="LineNr">103 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 +<span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L105" class="LineNr">105 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L106" class="LineNr">106 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L107" class="LineNr">107 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> +<span id="L108" class="LineNr">108 </span> <span class="subxComment"># check-ints-equal(eax, edx, msg)</span> +<span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L110" class="LineNr">110 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L74'>test-new-stream</a>: returns current pointer of allocation descriptor"</span>/imm32 +<span id="L111" class="LineNr">111 </span> 52/push-edx +<span id="L112" class="LineNr">112 </span> 50/push-eax +<span id="L113" class="LineNr">113 </span> <span class="subxS2Comment"># . . call</span> +<span id="L114" class="LineNr">114 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L116" class="LineNr">116 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L117" class="LineNr">117 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L118" class="LineNr">118 </span> 05/add-to-eax 4/imm32 +<span id="L119" class="LineNr">119 </span> <span class="subxComment"># check-ints-equal(eax->size, 6, msg)</span> +<span id="L120" class="LineNr">120 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L121" class="LineNr">121 </span> 68/push <span class="Constant">"F - <a href='121new-stream.subx.html#L74'>test-new-stream</a>: sets <a href='307size.subx.html#L5'>size</a> correctly"</span>/imm32 +<span id="L122" class="LineNr">122 </span> 68/push 6/imm32 +<span id="L123" class="LineNr">123 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="subxComment"># push *(eax+8)</span> +<span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . call</span> +<span id="L125" class="LineNr">125 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L127" class="LineNr">127 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L128" class="LineNr">128 </span> <span class="subxComment"># the rest is delegated to clear-stream() so we won't bother checking it</span> +<span id="L129" class="LineNr">129 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L130" class="LineNr">130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L131" class="LineNr">131 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L132" class="LineNr">132 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L133" class="LineNr">133 </span> 5d/pop-to-ebp +<span id="L134" class="LineNr">134 </span> c3/return +<span id="L135" class="LineNr">135 </span> +<span id="L136" class="LineNr">136 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/122read-line.subx.html b/html/linux/122read-line.subx.html index a47ae94c..6f5ac71a 100644 --- a/html/122read-line.subx.html +++ b/html/linux/122read-line.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 122read-line.subx</title> +<title>Mu - linux/122read-line.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/122read-line.subx'>https://github.com/akkartik/mu/blob/main/122read-line.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/122read-line.subx'>https://github.com/akkartik/mu/blob/main/linux/122read-line.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -164,7 +164,7 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr">104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L105" class="LineNr">105 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L106" class="LineNr">106 </span> bb/copy-to-ebx 1/imm32 -<span id="L107" class="LineNr">107 </span> e8/call syscall_exit/disp32 +<span id="L107" class="LineNr">107 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L108" class="LineNr">108 </span> <span class="subxComment"># never gets here</span> <span id="L109" class="LineNr">109 </span> <span id="L110" class="LineNr">110 </span><span class="subxTest">test-read-line-buffered</span>: @@ -348,7 +348,7 @@ if ('onhashchange' in window) { <span id="L288" class="LineNr">288 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L289" class="LineNr">289 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L290" class="LineNr">290 </span> bb/copy-to-ebx 1/imm32 -<span id="L291" class="LineNr">291 </span> e8/call syscall_exit/disp32 +<span id="L291" class="LineNr">291 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L292" class="LineNr">292 </span> <span class="subxComment"># never gets here</span> <span id="L293" class="LineNr">293 </span> <span id="L294" class="LineNr">294 </span><span class="subxTest">test-read-line</span>: diff --git a/html/baremetal/123slice.subx.html b/html/linux/123slice.subx.html index 1c6925f7..0b436c17 100644 --- a/html/baremetal/123slice.subx.html +++ b/html/linux/123slice.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/123slice.subx</title> +<title>Mu - linux/123slice.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -57,7 +57,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/123slice.subx'>https://github.com/akkartik/mu/blob/main/baremetal/123slice.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/123slice.subx'>https://github.com/akkartik/mu/blob/main/linux/123slice.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># new data structure: a slice is an open interval of addresses [start, end)</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># that includes 'start' but not 'end'</span> @@ -112,7 +112,7 @@ if ('onhashchange' in window) { <span id="L51" class="LineNr"> 51 </span> 68/push 1/imm32 <span id="L52" class="LineNr"> 52 </span> 50/push-eax <span id="L53" class="LineNr"> 53 </span> <span class="subxS2Comment"># . . call</span> -<span id="L54" class="LineNr"> 54 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L54" class="LineNr"> 54 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L55" class="LineNr"> 55 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L56" class="LineNr"> 56 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . epilogue</span> @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> 68/push 0/imm32 <span id="L81" class="LineNr"> 81 </span> 50/push-eax <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . call</span> -<span id="L83" class="LineNr"> 83 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L83" class="LineNr"> 83 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L85" class="LineNr"> 85 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L86" class="LineNr"> 86 </span> <span class="subxS1Comment"># . epilogue</span> @@ -170,7 +170,7 @@ if ('onhashchange' in window) { <span id="L109" class="LineNr"> 109 </span> 68/push 1/imm32 <span id="L110" class="LineNr"> 110 </span> 50/push-eax <span id="L111" class="LineNr"> 111 </span> <span class="subxS2Comment"># . . call</span> -<span id="L112" class="LineNr"> 112 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L112" class="LineNr"> 112 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L113" class="LineNr"> 113 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L114" class="LineNr"> 114 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L115" class="LineNr"> 115 </span> <span class="subxS1Comment"># . epilogue</span> @@ -295,7 +295,7 @@ if ('onhashchange' in window) { <span id="L234" class="LineNr"> 234 </span> 68/push 1/imm32 <span id="L235" class="LineNr"> 235 </span> 50/push-eax <span id="L236" class="LineNr"> 236 </span> <span class="subxS2Comment"># . . call</span> -<span id="L237" class="LineNr"> 237 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L237" class="LineNr"> 237 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L239" class="LineNr"> 239 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L240" class="LineNr"> 240 </span> <span class="subxS1Comment"># . epilogue</span> @@ -331,7 +331,7 @@ if ('onhashchange' in window) { <span id="L270" class="LineNr"> 270 </span> 68/push 0/imm32 <span id="L271" class="LineNr"> 271 </span> 50/push-eax <span id="L272" class="LineNr"> 272 </span> <span class="subxS2Comment"># . . call</span> -<span id="L273" class="LineNr"> 273 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L273" class="LineNr"> 273 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L274" class="LineNr"> 274 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L275" class="LineNr"> 275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L276" class="LineNr"> 276 </span> <span class="subxS1Comment"># . epilogue</span> @@ -367,7 +367,7 @@ if ('onhashchange' in window) { <span id="L306" class="LineNr"> 306 </span> 68/push 0/imm32 <span id="L307" class="LineNr"> 307 </span> 50/push-eax <span id="L308" class="LineNr"> 308 </span> <span class="subxS2Comment"># . . call</span> -<span id="L309" class="LineNr"> 309 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L309" class="LineNr"> 309 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L310" class="LineNr"> 310 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L311" class="LineNr"> 311 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L312" class="LineNr"> 312 </span> <span class="subxS1Comment"># . epilogue</span> @@ -403,7 +403,7 @@ if ('onhashchange' in window) { <span id="L342" class="LineNr"> 342 </span> 68/push 0/imm32 <span id="L343" class="LineNr"> 343 </span> 50/push-eax <span id="L344" class="LineNr"> 344 </span> <span class="subxS2Comment"># . . call</span> -<span id="L345" class="LineNr"> 345 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L345" class="LineNr"> 345 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L347" class="LineNr"> 347 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L348" class="LineNr"> 348 </span> <span class="subxS1Comment"># . epilogue</span> @@ -434,7 +434,7 @@ if ('onhashchange' in window) { <span id="L373" class="LineNr"> 373 </span> 68/push 0/imm32 <span id="L374" class="LineNr"> 374 </span> 50/push-eax <span id="L375" class="LineNr"> 375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L376" class="LineNr"> 376 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L376" class="LineNr"> 376 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L377" class="LineNr"> 377 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L378" class="LineNr"> 378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L379" class="LineNr"> 379 </span> <span class="subxS1Comment"># . epilogue</span> @@ -470,7 +470,7 @@ if ('onhashchange' in window) { <span id="L409" class="LineNr"> 409 </span> 68/push 0/imm32 <span id="L410" class="LineNr"> 410 </span> 50/push-eax <span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . call</span> -<span id="L412" class="LineNr"> 412 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L412" class="LineNr"> 412 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L413" class="LineNr"> 413 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L414" class="LineNr"> 414 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L415" class="LineNr"> 415 </span> <span class="subxS1Comment"># . epilogue</span> @@ -501,7 +501,7 @@ if ('onhashchange' in window) { <span id="L440" class="LineNr"> 440 </span> 68/push 1/imm32 <span id="L441" class="LineNr"> 441 </span> 50/push-eax <span id="L442" class="LineNr"> 442 </span> <span class="subxS2Comment"># . . call</span> -<span id="L443" class="LineNr"> 443 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L443" class="LineNr"> 443 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L444" class="LineNr"> 444 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L445" class="LineNr"> 445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L446" class="LineNr"> 446 </span> <span class="subxS1Comment"># . epilogue</span> @@ -537,7 +537,7 @@ if ('onhashchange' in window) { <span id="L476" class="LineNr"> 476 </span> 68/push 0/imm32 <span id="L477" class="LineNr"> 477 </span> 50/push-eax <span id="L478" class="LineNr"> 478 </span> <span class="subxS2Comment"># . . call</span> -<span id="L479" class="LineNr"> 479 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L479" class="LineNr"> 479 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L480" class="LineNr"> 480 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L481" class="LineNr"> 481 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L482" class="LineNr"> 482 </span> <span class="subxS1Comment"># . epilogue</span> @@ -661,7 +661,7 @@ if ('onhashchange' in window) { <span id="L600" class="LineNr"> 600 </span> 68/push 1/imm32 <span id="L601" class="LineNr"> 601 </span> 50/push-eax <span id="L602" class="LineNr"> 602 </span> <span class="subxS2Comment"># . . call</span> -<span id="L603" class="LineNr"> 603 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L603" class="LineNr"> 603 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L605" class="LineNr"> 605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L606" class="LineNr"> 606 </span> <span class="subxS1Comment"># . epilogue</span> @@ -697,7 +697,7 @@ if ('onhashchange' in window) { <span id="L636" class="LineNr"> 636 </span> 68/push 1/imm32 <span id="L637" class="LineNr"> 637 </span> 50/push-eax <span id="L638" class="LineNr"> 638 </span> <span class="subxS2Comment"># . . call</span> -<span id="L639" class="LineNr"> 639 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L639" class="LineNr"> 639 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L641" class="LineNr"> 641 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L642" class="LineNr"> 642 </span> <span class="subxS1Comment"># . epilogue</span> @@ -733,7 +733,7 @@ if ('onhashchange' in window) { <span id="L672" class="LineNr"> 672 </span> 68/push 1/imm32 <span id="L673" class="LineNr"> 673 </span> 50/push-eax <span id="L674" class="LineNr"> 674 </span> <span class="subxS2Comment"># . . call</span> -<span id="L675" class="LineNr"> 675 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L675" class="LineNr"> 675 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L676" class="LineNr"> 676 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L677" class="LineNr"> 677 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L678" class="LineNr"> 678 </span> <span class="subxS1Comment"># . epilogue</span> @@ -769,7 +769,7 @@ if ('onhashchange' in window) { <span id="L708" class="LineNr"> 708 </span> 68/push 1/imm32 <span id="L709" class="LineNr"> 709 </span> 50/push-eax <span id="L710" class="LineNr"> 710 </span> <span class="subxS2Comment"># . . call</span> -<span id="L711" class="LineNr"> 711 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L711" class="LineNr"> 711 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L712" class="LineNr"> 712 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L713" class="LineNr"> 713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L714" class="LineNr"> 714 </span> <span class="subxS1Comment"># . epilogue</span> @@ -805,7 +805,7 @@ if ('onhashchange' in window) { <span id="L744" class="LineNr"> 744 </span> 68/push 0/imm32 <span id="L745" class="LineNr"> 745 </span> 50/push-eax <span id="L746" class="LineNr"> 746 </span> <span class="subxS2Comment"># . . call</span> -<span id="L747" class="LineNr"> 747 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L747" class="LineNr"> 747 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L748" class="LineNr"> 748 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L749" class="LineNr"> 749 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L750" class="LineNr"> 750 </span> <span class="subxS1Comment"># . epilogue</span> @@ -841,7 +841,7 @@ if ('onhashchange' in window) { <span id="L780" class="LineNr"> 780 </span> 68/push 0/imm32 <span id="L781" class="LineNr"> 781 </span> 50/push-eax <span id="L782" class="LineNr"> 782 </span> <span class="subxS2Comment"># . . call</span> -<span id="L783" class="LineNr"> 783 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L783" class="LineNr"> 783 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L785" class="LineNr"> 785 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L786" class="LineNr"> 786 </span> <span class="subxS1Comment"># . epilogue</span> @@ -880,7 +880,7 @@ if ('onhashchange' in window) { <span id="L819" class="LineNr"> 819 </span> 73/jump-if-addr>= $write-slice:loop-end/disp8 <span id="L820" class="LineNr"> 820 </span> <span class="subxComment"># if (out->write >= out->size) abort</span> <span id="L821" class="LineNr"> 821 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with edx</span> -<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 +<span id="L822" class="LineNr"> 822 </span> 7d/jump-if->= $write-slice:abort/disp8 <span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># out->data[out->write] = *in</span> <span id="L824" class="LineNr"> 824 </span> <span class="subxS1Comment"># . AL = *in</span> <span id="L825" class="LineNr"> 825 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> @@ -908,201 +908,352 @@ if ('onhashchange' in window) { <span id="L847" class="LineNr"> 847 </span> 5d/pop-to-ebp <span id="L848" class="LineNr"> 848 </span> c3/return <span id="L849" class="LineNr"> 849 </span> -<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L851" class="LineNr"> 851 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-slice: out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L852" class="LineNr"> 852 </span> { -<span id="L853" class="LineNr"> 853 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L854" class="LineNr"> 854 </span> } -<span id="L855" class="LineNr"> 855 </span> <span class="subxComment"># never gets here</span> -<span id="L856" class="LineNr"> 856 </span> -<span id="L857" class="LineNr"> 857 </span><span class="subxTest">test-write-slice</span>: -<span id="L858" class="LineNr"> 858 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L859" class="LineNr"> 859 </span> 55/push-ebp -<span id="L860" class="LineNr"> 860 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L861" class="LineNr"> 861 </span> <span class="subxComment"># setup</span> -<span id="L862" class="LineNr"> 862 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L863" class="LineNr"> 863 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L864" class="LineNr"> 864 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . call</span> -<span id="L866" class="LineNr"> 866 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L868" class="LineNr"> 868 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L869" class="LineNr"> 869 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L870" class="LineNr"> 870 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L871" class="LineNr"> 871 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L872" class="LineNr"> 872 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L873" class="LineNr"> 873 </span> 05/add-to-eax 4/imm32 -<span id="L874" class="LineNr"> 874 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L875" class="LineNr"> 875 </span> 51/push-ecx -<span id="L876" class="LineNr"> 876 </span> 50/push-eax -<span id="L877" class="LineNr"> 877 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> -<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L880" class="LineNr"> 880 </span> 51/push-ecx -<span id="L881" class="LineNr"> 881 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L882" class="LineNr"> 882 </span> <span class="subxS2Comment"># . . call</span> -<span id="L883" class="LineNr"> 883 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L885" class="LineNr"> 885 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L886" class="LineNr"> 886 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> -<span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L888" class="LineNr"> 888 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 -<span id="L889" class="LineNr"> 889 </span> 68/push <span class="Constant">"Abc"</span>/imm32 -<span id="L890" class="LineNr"> 890 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . call</span> -<span id="L892" class="LineNr"> 892 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L894" class="LineNr"> 894 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L895" class="LineNr"> 895 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L896" class="LineNr"> 896 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L897" class="LineNr"> 897 </span> 5d/pop-to-ebp -<span id="L898" class="LineNr"> 898 </span> c3/return -<span id="L899" class="LineNr"> 899 </span> -<span id="L900" class="LineNr"> 900 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> -<span id="L901" class="LineNr"> 901 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> -<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L903" class="LineNr"> 903 </span> 55/push-ebp -<span id="L904" class="LineNr"> 904 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L905" class="LineNr"> 905 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L906" class="LineNr"> 906 </span> 50/push-eax -<span id="L907" class="LineNr"> 907 </span> 51/push-ecx -<span id="L908" class="LineNr"> 908 </span> 52/push-edx -<span id="L909" class="LineNr"> 909 </span> 53/push-ebx -<span id="L910" class="LineNr"> 910 </span> 56/push-esi -<span id="L911" class="LineNr"> 911 </span> <span class="subxComment"># esi = in</span> -<span id="L912" class="LineNr"> 912 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> -<span id="L914" class="LineNr"> 914 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> -<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> -<span id="L916" class="LineNr"> 916 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> -<span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> -<span id="L918" class="LineNr"> 918 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> -<span id="L919" class="LineNr"> 919 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> -<span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># allocate(ad, size, out)</span> -<span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L923" class="LineNr"> 923 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L924" class="LineNr"> 924 </span> 51/push-ecx -<span id="L925" class="LineNr"> 925 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L926" class="LineNr"> 926 </span> <span class="subxS2Comment"># . . call</span> -<span id="L927" class="LineNr"> 927 </span> e8/call <a href='120allocate.subx.html#L43'>allocate</a>/disp32 -<span id="L928" class="LineNr"> 928 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L929" class="LineNr"> 929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># eax = out->payload</span> -<span id="L931" class="LineNr"> 931 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L932" class="LineNr"> 932 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> -<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L934" class="LineNr"> 934 </span> 05/add-to-eax 4/imm32 -<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (eax == 0) abort</span> -<span id="L936" class="LineNr"> 936 </span> 3d/compare-eax-and 0/imm32 -<span id="L937" class="LineNr"> 937 </span> 74/jump-if-= $slice-to-string:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 -<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># out->size = size-4</span> -<span id="L939" class="LineNr"> 939 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L940" class="LineNr"> 940 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> -<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># save out</span> -<span id="L942" class="LineNr"> 942 </span> 50/push-eax -<span id="L943" class="LineNr"> 943 </span><span class="Constant">$slice-to-string:initialize</span>: -<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> -<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L946" class="LineNr"> 946 </span> 53/push-ebx -<span id="L947" class="LineNr"> 947 </span> 52/push-edx -<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> -<span id="L949" class="LineNr"> 949 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L950" class="LineNr"> 950 </span> 51/push-ecx -<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> -<span id="L952" class="LineNr"> 952 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> -<span id="L953" class="LineNr"> 953 </span> 50/push-eax -<span id="L954" class="LineNr"> 954 </span> <span class="subxS2Comment"># . . call</span> -<span id="L955" class="LineNr"> 955 </span> e8/call <a href='108write.subx.html#L171'>_append-4</a>/disp32 -<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L957" class="LineNr"> 957 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> -<span id="L959" class="LineNr"> 959 </span> 58/pop-to-eax -<span id="L960" class="LineNr"> 960 </span><span class="Constant">$slice-to-string:end</span>: -<span id="L961" class="LineNr"> 961 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L962" class="LineNr"> 962 </span> 5e/pop-to-esi -<span id="L963" class="LineNr"> 963 </span> 5b/pop-to-ebx -<span id="L964" class="LineNr"> 964 </span> 5a/pop-to-edx -<span id="L965" class="LineNr"> 965 </span> 59/pop-to-ecx -<span id="L966" class="LineNr"> 966 </span> 58/pop-to-eax -<span id="L967" class="LineNr"> 967 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L968" class="LineNr"> 968 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L969" class="LineNr"> 969 </span> 5d/pop-to-ebp -<span id="L970" class="LineNr"> 970 </span> c3/return -<span id="L971" class="LineNr"> 971 </span> -<span id="L972" class="LineNr"> 972 </span><span class="Constant">$slice-to-string:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L973" class="LineNr"> 973 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"slice-to-string: out of space\n"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L974" class="LineNr"> 974 </span> { -<span id="L975" class="LineNr"> 975 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L976" class="LineNr"> 976 </span> } -<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># never gets here</span> -<span id="L978" class="LineNr"> 978 </span> -<span id="L979" class="LineNr"> 979 </span><span class="subxTest">test-slice-to-string</span>: -<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L981" class="LineNr"> 981 </span> 55/push-ebp -<span id="L982" class="LineNr"> 982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># var ad/edx: allocation-descriptor containing 16 bytes</span> -<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . var end/ecx: (addr byte)</span> -<span id="L985" class="LineNr"> 985 </span> 89/<- %ecx 4/r32/esp -<span id="L986" class="LineNr"> 986 </span> 81 5/subop/subtract %esp 0x10/imm32 -<span id="L987" class="LineNr"> 987 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = end - 0x10</span> -<span id="L988" class="LineNr"> 988 </span> 89/<- %edx 4/r32/esp -<span id="L989" class="LineNr"> 989 </span> <span class="subxS1Comment"># . ad = {start, end}</span> -<span id="L990" class="LineNr"> 990 </span> 51/push-ecx -<span id="L991" class="LineNr"> 991 </span> 52/push-edx -<span id="L992" class="LineNr"> 992 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> -<span id="L994" class="LineNr"> 994 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 -<span id="L995" class="LineNr"> 995 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L996" class="LineNr"> 996 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L997" class="LineNr"> 997 </span> 05/add-to-eax 4/imm32 -<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> -<span id="L999" class="LineNr"> 999 </span> 51/push-ecx -<span id="L1000" class="LineNr">1000 </span> 50/push-eax -<span id="L1001" class="LineNr">1001 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> -<span id="L1003" class="LineNr">1003 </span> 68/push 0/imm32 -<span id="L1004" class="LineNr">1004 </span> 68/push 0/imm32 -<span id="L1005" class="LineNr">1005 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># slice-to-string(ad, slice, h)</span> -<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1008" class="LineNr">1008 </span> 53/push-ebx -<span id="L1009" class="LineNr">1009 </span> 51/push-ecx -<span id="L1010" class="LineNr">1010 </span> 52/push-edx -<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1012" class="LineNr">1012 </span> e8/call <a href='123slice.subx.html#L901'>slice-to-string</a>/disp32 -<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1014" class="LineNr">1014 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1015" class="LineNr">1015 </span> <span class="subxComment"># eax = h->payload</span> -<span id="L1016" class="LineNr">1016 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> -<span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># skip payload->allocid</span> -<span id="L1018" class="LineNr">1018 </span> 05/add-to-eax 4/imm32 -<span id="L1019" class="Folded">1019 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1045" class="LineNr">1045 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> -<span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1047" class="LineNr">1047 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L850" class="LineNr"> 850 </span><span class="Constant">$write-slice:abort</span>: +<span id="L851" class="LineNr"> 851 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L852" class="LineNr"> 852 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L853" class="LineNr"> 853 </span> 68/push <span class="Constant">"write-slice: out of space"</span>/imm32 +<span id="L854" class="LineNr"> 854 </span> 68/push 2/imm32/stderr +<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . call</span> +<span id="L856" class="LineNr"> 856 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L858" class="LineNr"> 858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L860" class="LineNr"> 860 </span> bb/copy-to-ebx 1/imm32 +<span id="L861" class="LineNr"> 861 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L862" class="LineNr"> 862 </span> <span class="subxComment"># never gets here</span> +<span id="L863" class="LineNr"> 863 </span> +<span id="L864" class="LineNr"> 864 </span><span class="subxTest">test-write-slice</span>: +<span id="L865" class="LineNr"> 865 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L866" class="LineNr"> 866 </span> 55/push-ebp +<span id="L867" class="LineNr"> 867 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L868" class="LineNr"> 868 </span> <span class="subxComment"># setup</span> +<span id="L869" class="LineNr"> 869 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L870" class="LineNr"> 870 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L871" class="LineNr"> 871 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L872" class="LineNr"> 872 </span> <span class="subxS2Comment"># . . call</span> +<span id="L873" class="LineNr"> 873 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L874" class="LineNr"> 874 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L875" class="LineNr"> 875 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L876" class="LineNr"> 876 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L877" class="LineNr"> 877 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L878" class="LineNr"> 878 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L879" class="LineNr"> 879 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L880" class="LineNr"> 880 </span> 05/add-to-eax 4/imm32 +<span id="L881" class="LineNr"> 881 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L882" class="LineNr"> 882 </span> 51/push-ecx +<span id="L883" class="LineNr"> 883 </span> 50/push-eax +<span id="L884" class="LineNr"> 884 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L885" class="LineNr"> 885 </span> <span class="subxComment"># write-slice(_test-stream, slice)</span> +<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L887" class="LineNr"> 887 </span> 51/push-ecx +<span id="L888" class="LineNr"> 888 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L889" class="LineNr"> 889 </span> <span class="subxS2Comment"># . . call</span> +<span id="L890" class="LineNr"> 890 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L892" class="LineNr"> 892 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L893" class="LineNr"> 893 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> +<span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L895" class="LineNr"> 895 </span> 68/push <span class="Constant">"F - test-write-slice"</span>/imm32 +<span id="L896" class="LineNr"> 896 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L897" class="LineNr"> 897 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L898" class="LineNr"> 898 </span> <span class="subxS2Comment"># . . call</span> +<span id="L899" class="LineNr"> 899 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L901" class="LineNr"> 901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L902" class="LineNr"> 902 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L903" class="LineNr"> 903 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L904" class="LineNr"> 904 </span> 5d/pop-to-ebp +<span id="L905" class="LineNr"> 905 </span> c3/return +<span id="L906" class="LineNr"> 906 </span> +<span id="L907" class="LineNr"> 907 </span><span class="subxComment"># write a slice to a buffered-file</span> +<span id="L908" class="LineNr"> 908 </span><span class="subxFunction">write-slice-buffered</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr slice)</span> +<span id="L909" class="LineNr"> 909 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L910" class="LineNr"> 910 </span> 55/push-ebp +<span id="L911" class="LineNr"> 911 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L912" class="LineNr"> 912 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L913" class="LineNr"> 913 </span> 50/push-eax +<span id="L914" class="LineNr"> 914 </span> 51/push-ecx +<span id="L915" class="LineNr"> 915 </span> 52/push-edx +<span id="L916" class="LineNr"> 916 </span> 53/push-ebx +<span id="L917" class="LineNr"> 917 </span> 56/push-esi +<span id="L918" class="LineNr"> 918 </span> 57/push-edi +<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># esi = s</span> +<span id="L920" class="LineNr"> 920 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># var curr/ecx: (addr byte) = s->start</span> +<span id="L922" class="LineNr"> 922 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># var max/esi: (addr byte) = s->end</span> +<span id="L924" class="LineNr"> 924 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to esi</span> +<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># edi = out</span> +<span id="L926" class="LineNr"> 926 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> +<span id="L927" class="LineNr"> 927 </span> <span class="subxComment"># edx = out->size</span> +<span id="L928" class="LineNr"> 928 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+12) to edx</span> +<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># ebx = out->write</span> +<span id="L930" class="LineNr"> 930 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ebx</span> +<span id="L931" class="LineNr"> 931 </span><span class="Constant">$write-slice-buffered:loop</span>: +<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L933" class="LineNr"> 933 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with esi</span> +<span id="L934" class="LineNr"> 934 </span> 73/jump-if-addr>= $write-slice-buffered:loop-end/disp8 +<span id="L935" class="LineNr"> 935 </span> <span class="subxComment"># if (out->write >= out->size) flush and clear out's stream</span> +<span id="L936" class="LineNr"> 936 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with edx</span> +<span id="L937" class="LineNr"> 937 </span> 7c/jump-if-< $write-slice-buffered:to-stream/disp8 +<span id="L938" class="LineNr"> 938 </span> <span class="subxS1Comment"># . persist out->write</span> +<span id="L939" class="LineNr"> 939 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+4)</span> +<span id="L940" class="LineNr"> 940 </span> <span class="subxS1Comment"># . flush(out)</span> +<span id="L941" class="LineNr"> 941 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L942" class="LineNr"> 942 </span> 57/push-edi +<span id="L943" class="LineNr"> 943 </span> <span class="subxS2Comment"># . . call</span> +<span id="L944" class="LineNr"> 944 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L946" class="LineNr"> 946 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L947" class="LineNr"> 947 </span> <span class="subxS1Comment"># . clear-stream(stream = out+4)</span> +<span id="L948" class="LineNr"> 948 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L949" class="LineNr"> 949 </span> 8d/copy-address 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edi+4 to eax</span> +<span id="L950" class="LineNr"> 950 </span> 50/push-eax +<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . call</span> +<span id="L952" class="LineNr"> 952 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L954" class="LineNr"> 954 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L955" class="LineNr"> 955 </span> <span class="subxS1Comment"># . out->write must now be 0; update its cache at ebx</span> +<span id="L956" class="LineNr"> 956 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L957" class="LineNr"> 957 </span><span class="Constant">$write-slice-buffered:to-stream</span>: +<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># out->data[out->write] = *in</span> +<span id="L959" class="LineNr"> 959 </span> <span class="subxS1Comment"># . AL = *in</span> +<span id="L960" class="LineNr"> 960 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L961" class="LineNr"> 961 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L962" class="LineNr"> 962 </span> <span class="subxS1Comment"># . out->data[out->write] = AL</span> +<span id="L963" class="LineNr"> 963 </span> 88/copy-byte 1/mod/*+disp8 4/rm32/sib 7/base/edi 3/index/ebx <span class="Normal"> . </span> 0/r32/AL 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy AL to *(edi+ebx+16)</span> +<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># ++out->write</span> +<span id="L965" class="LineNr"> 965 </span> 43/increment-ebx +<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># ++in</span> +<span id="L967" class="LineNr"> 967 </span> 41/increment-ecx +<span id="L968" class="LineNr"> 968 </span> eb/jump $write-slice-buffered:<span class="Constant">loop</span>/disp8 +<span id="L969" class="LineNr"> 969 </span><span class="Constant">$write-slice-buffered:loop-end</span>: +<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># persist necessary variables from registers</span> +<span id="L971" class="LineNr"> 971 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+4)</span> +<span id="L972" class="LineNr"> 972 </span><span class="Constant">$write-slice-buffered:end</span>: +<span id="L973" class="LineNr"> 973 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L974" class="LineNr"> 974 </span> 5f/pop-to-edi +<span id="L975" class="LineNr"> 975 </span> 5e/pop-to-esi +<span id="L976" class="LineNr"> 976 </span> 5b/pop-to-ebx +<span id="L977" class="LineNr"> 977 </span> 5a/pop-to-edx +<span id="L978" class="LineNr"> 978 </span> 59/pop-to-ecx +<span id="L979" class="LineNr"> 979 </span> 58/pop-to-eax +<span id="L980" class="LineNr"> 980 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L981" class="LineNr"> 981 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L982" class="LineNr"> 982 </span> 5d/pop-to-ebp +<span id="L983" class="LineNr"> 983 </span> c3/return +<span id="L984" class="LineNr"> 984 </span> +<span id="L985" class="LineNr"> 985 </span><span class="subxTest">test-write-slice-buffered</span>: +<span id="L986" class="LineNr"> 986 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L987" class="LineNr"> 987 </span> 55/push-ebp +<span id="L988" class="LineNr"> 988 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L989" class="LineNr"> 989 </span> <span class="subxComment"># setup</span> +<span id="L990" class="LineNr"> 990 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L992" class="LineNr"> 992 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . call</span> +<span id="L994" class="LineNr"> 994 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L995" class="LineNr"> 995 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L996" class="LineNr"> 996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L997" class="LineNr"> 997 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> +<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L999" class="LineNr"> 999 </span> 68/push $_test-buffered-file->buffer/imm32 +<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1001" class="LineNr">1001 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1003" class="LineNr">1003 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1004" class="LineNr">1004 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L1005" class="LineNr">1005 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L1006" class="LineNr">1006 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1007" class="LineNr">1007 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1008" class="LineNr">1008 </span> 05/add-to-eax 4/imm32 +<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L1010" class="LineNr">1010 </span> 51/push-ecx +<span id="L1011" class="LineNr">1011 </span> 50/push-eax +<span id="L1012" class="LineNr">1012 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1013" class="LineNr">1013 </span> <span class="subxComment"># write-slice-buffered(_test-buffered-file, slice)</span> +<span id="L1014" class="LineNr">1014 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1015" class="LineNr">1015 </span> 51/push-ecx +<span id="L1016" class="LineNr">1016 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1018" class="LineNr">1018 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1019" class="LineNr">1019 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1020" class="LineNr">1020 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1021" class="LineNr">1021 </span> <span class="subxComment"># flush(_test-buffered-file)</span> +<span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1023" class="LineNr">1023 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1024" class="LineNr">1024 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1025" class="LineNr">1025 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1026" class="LineNr">1026 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1027" class="LineNr">1027 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1028" class="LineNr">1028 </span> <span class="subxComment"># check-stream-equal(_test-stream, "Abc", msg)</span> +<span id="L1029" class="LineNr">1029 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1030" class="LineNr">1030 </span> 68/push <span class="Constant">"F - test-write-slice-buffered"</span>/imm32 +<span id="L1031" class="LineNr">1031 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L1032" class="LineNr">1032 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1034" class="LineNr">1034 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1036" class="LineNr">1036 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1037" class="LineNr">1037 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1038" class="LineNr">1038 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1039" class="LineNr">1039 </span> 5d/pop-to-ebp +<span id="L1040" class="LineNr">1040 </span> c3/return +<span id="L1041" class="LineNr">1041 </span> +<span id="L1042" class="LineNr">1042 </span><span class="subxComment"># copy a slice into a new (dynamically allocated) string</span> +<span id="L1043" class="LineNr">1043 </span><span class="subxFunction">slice-to-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte)</span> +<span id="L1044" class="LineNr">1044 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1045" class="LineNr">1045 </span> 55/push-ebp +<span id="L1046" class="LineNr">1046 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1047" class="LineNr">1047 </span> <span class="subxS1Comment"># . save registers</span> <span id="L1048" class="LineNr">1048 </span> 50/push-eax -<span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1050" class="LineNr">1050 </span> e8/call <a href='105string-equal.subx.html#L8'>string-equal?</a>/disp32 -<span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1052" class="LineNr">1052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> -<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 -<span id="L1056" class="LineNr">1056 </span> 68/push 1/imm32/true -<span id="L1057" class="LineNr">1057 </span> 50/push-eax -<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1059" class="LineNr">1059 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1061" class="LineNr">1061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1062" class="LineNr">1062 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1064" class="LineNr">1064 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1065" class="LineNr">1065 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1066" class="LineNr">1066 </span> 5d/pop-to-ebp -<span id="L1067" class="LineNr">1067 </span> c3/return -<span id="L1068" class="LineNr">1068 </span> -<span id="L1069" class="LineNr">1069 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L1049" class="LineNr">1049 </span> 51/push-ecx +<span id="L1050" class="LineNr">1050 </span> 52/push-edx +<span id="L1051" class="LineNr">1051 </span> 53/push-ebx +<span id="L1052" class="LineNr">1052 </span> 56/push-esi +<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># esi = in</span> +<span id="L1054" class="LineNr">1054 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L1055" class="LineNr">1055 </span> <span class="subxComment"># var curr/edx: (addr byte) = in->start</span> +<span id="L1056" class="LineNr">1056 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to edx</span> +<span id="L1057" class="LineNr">1057 </span> <span class="subxComment"># var max/ebx: (addr byte) = in->end</span> +<span id="L1058" class="LineNr">1058 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ebx</span> +<span id="L1059" class="LineNr">1059 </span> <span class="subxComment"># var size/ecx: int = max - curr + 4 # total size of output string (including the initial 'size' field)</span> +<span id="L1060" class="LineNr">1060 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebx to ecx</span> +<span id="L1061" class="LineNr">1061 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract edx from ecx</span> +<span id="L1062" class="LineNr">1062 </span> 81 0/subop/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to ecx</span> +<span id="L1063" class="LineNr">1063 </span> <span class="subxComment"># allocate(ad, size, out)</span> +<span id="L1064" class="LineNr">1064 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1065" class="LineNr">1065 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L1066" class="LineNr">1066 </span> 51/push-ecx +<span id="L1067" class="LineNr">1067 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1068" class="LineNr">1068 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1069" class="LineNr">1069 </span> e8/call <a href='120allocate.subx.html#L66'>allocate</a>/disp32 +<span id="L1070" class="LineNr">1070 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1071" class="LineNr">1071 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1072" class="LineNr">1072 </span> <span class="subxComment"># eax = out->payload</span> +<span id="L1073" class="LineNr">1073 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L1074" class="LineNr">1074 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+4) to eax</span> +<span id="L1075" class="LineNr">1075 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L1076" class="LineNr">1076 </span> 05/add-to-eax 4/imm32 +<span id="L1077" class="LineNr">1077 </span> <span class="subxComment"># if (eax == 0) abort</span> +<span id="L1078" class="LineNr">1078 </span> 3d/compare-eax-and 0/imm32 +<span id="L1079" class="LineNr">1079 </span> 74/jump-if-= $slice-to-string:abort/disp8 +<span id="L1080" class="LineNr">1080 </span> <span class="subxComment"># out->size = size-4</span> +<span id="L1081" class="LineNr">1081 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L1082" class="LineNr">1082 </span> 81 5/subop/subtract 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># subtract 4 from *eax</span> +<span id="L1083" class="LineNr">1083 </span> <span class="subxComment"># save out</span> +<span id="L1084" class="LineNr">1084 </span> 50/push-eax +<span id="L1085" class="LineNr">1085 </span><span class="Constant">$slice-to-string:initialize</span>: +<span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># eax = _append-4(eax+4, eax+size, curr, max) # clobbering ecx</span> +<span id="L1087" class="LineNr">1087 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1088" class="LineNr">1088 </span> 53/push-ebx +<span id="L1089" class="LineNr">1089 </span> 52/push-edx +<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . push eax+size (clobbering ecx)</span> +<span id="L1091" class="LineNr">1091 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L1092" class="LineNr">1092 </span> 51/push-ecx +<span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . push eax+4 (clobbering eax)</span> +<span id="L1094" class="LineNr">1094 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to eax</span> +<span id="L1095" class="LineNr">1095 </span> 50/push-eax +<span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1097" class="LineNr">1097 </span> e8/call <a href='107trace.subx.html#L892'>_append-4</a>/disp32 +<span id="L1098" class="LineNr">1098 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1099" class="LineNr">1099 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1100" class="LineNr">1100 </span> <span class="subxComment"># restore out (assumes _append-4 can't error)</span> +<span id="L1101" class="LineNr">1101 </span> 58/pop-to-eax +<span id="L1102" class="LineNr">1102 </span><span class="Constant">$slice-to-string:end</span>: +<span id="L1103" class="LineNr">1103 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1104" class="LineNr">1104 </span> 5e/pop-to-esi +<span id="L1105" class="LineNr">1105 </span> 5b/pop-to-ebx +<span id="L1106" class="LineNr">1106 </span> 5a/pop-to-edx +<span id="L1107" class="LineNr">1107 </span> 59/pop-to-ecx +<span id="L1108" class="LineNr">1108 </span> 58/pop-to-eax +<span id="L1109" class="LineNr">1109 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1110" class="LineNr">1110 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1111" class="LineNr">1111 </span> 5d/pop-to-ebp +<span id="L1112" class="LineNr">1112 </span> c3/return +<span id="L1113" class="LineNr">1113 </span> +<span id="L1114" class="LineNr">1114 </span><span class="Constant">$slice-to-string:abort</span>: +<span id="L1115" class="LineNr">1115 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1117" class="LineNr">1117 </span> 68/push <span class="Constant">"slice-to-string: out of space\n"</span>/imm32 +<span id="L1118" class="LineNr">1118 </span> 68/push 2/imm32/stderr +<span id="L1119" class="LineNr">1119 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1120" class="LineNr">1120 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1121" class="LineNr">1121 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1122" class="LineNr">1122 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1123" class="LineNr">1123 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1124" class="LineNr">1124 </span> bb/copy-to-ebx 1/imm32 +<span id="L1125" class="LineNr">1125 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1126" class="LineNr">1126 </span> <span class="subxComment"># never gets here</span> +<span id="L1127" class="LineNr">1127 </span> +<span id="L1128" class="LineNr">1128 </span><span class="subxTest">test-slice-to-string</span>: +<span id="L1129" class="LineNr">1129 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1130" class="LineNr">1130 </span> 55/push-ebp +<span id="L1131" class="LineNr">1131 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1132" class="LineNr">1132 </span> <span class="subxComment"># var heap/edx: allocation-descriptor</span> +<span id="L1133" class="LineNr">1133 </span> 68/push 0/imm32/limit +<span id="L1134" class="LineNr">1134 </span> 68/push 0/imm32/curr +<span id="L1135" class="LineNr">1135 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1136" class="LineNr">1136 </span> <span class="subxComment"># heap = new-segment(512)</span> +<span id="L1137" class="LineNr">1137 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1138" class="LineNr">1138 </span> 52/push-edx +<span id="L1139" class="LineNr">1139 </span> 68/push 0x200/imm32 +<span id="L1140" class="LineNr">1140 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1141" class="LineNr">1141 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L1142" class="LineNr">1142 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1143" class="LineNr">1143 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1144" class="LineNr">1144 </span> <span class="subxComment"># (eax..ecx) = "Abc"</span> +<span id="L1145" class="LineNr">1145 </span> b8/copy-to-eax <span class="Constant">"Abc"</span>/imm32 +<span id="L1146" class="LineNr">1146 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1147" class="LineNr">1147 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1148" class="LineNr">1148 </span> 05/add-to-eax 4/imm32 +<span id="L1149" class="LineNr">1149 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L1150" class="LineNr">1150 </span> 51/push-ecx +<span id="L1151" class="LineNr">1151 </span> 50/push-eax +<span id="L1152" class="LineNr">1152 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># var h/ebx: (handle array byte)</span> +<span id="L1154" class="LineNr">1154 </span> 68/push 0/imm32 +<span id="L1155" class="LineNr">1155 </span> 68/push 0/imm32 +<span id="L1156" class="LineNr">1156 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1157" class="LineNr">1157 </span> <span class="subxComment"># slice-to-string(heap, slice, h)</span> +<span id="L1158" class="LineNr">1158 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1159" class="LineNr">1159 </span> 53/push-ebx +<span id="L1160" class="LineNr">1160 </span> 51/push-ecx +<span id="L1161" class="LineNr">1161 </span> 52/push-edx +<span id="L1162" class="LineNr">1162 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1163" class="LineNr">1163 </span> e8/call <a href='123slice.subx.html#L1043'>slice-to-string</a>/disp32 +<span id="L1164" class="LineNr">1164 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1165" class="LineNr">1165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1166" class="LineNr">1166 </span> <span class="subxComment"># eax = h->payload</span> +<span id="L1167" class="LineNr">1167 </span> 8b/copy 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebx+4) to eax</span> +<span id="L1168" class="LineNr">1168 </span> <span class="subxComment"># skip payload->allocid</span> +<span id="L1169" class="LineNr">1169 </span> 05/add-to-eax 4/imm32 +<span id="L1170" class="Folded">1170 </span><span class="Folded">+-- 26 lines: #? # dump eax ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1196" class="LineNr">1196 </span> <span class="subxComment"># eax = string-equal?(eax, "Abc")</span> +<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1198" class="LineNr">1198 </span> 68/push <span class="Constant">"Abc"</span>/imm32 +<span id="L1199" class="LineNr">1199 </span> 50/push-eax +<span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1201" class="LineNr">1201 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L1202" class="LineNr">1202 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1203" class="LineNr">1203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1204" class="LineNr">1204 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L1205" class="LineNr">1205 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1206" class="LineNr">1206 </span> 68/push <span class="Constant">"F - test-slice-to-string"</span>/imm32 +<span id="L1207" class="LineNr">1207 </span> 68/push 1/imm32/true +<span id="L1208" class="LineNr">1208 </span> 50/push-eax +<span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1210" class="LineNr">1210 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1212" class="LineNr">1212 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1214" class="LineNr">1214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1216" class="LineNr">1216 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1217" class="LineNr">1217 </span> 5d/pop-to-ebp +<span id="L1218" class="LineNr">1218 </span> c3/return +<span id="L1219" class="LineNr">1219 </span> +<span id="L1220" class="LineNr">1220 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/baremetal/124next-token.subx.html b/html/linux/124next-token.subx.html index 30ef0bcb..bc498103 100644 --- a/html/baremetal/124next-token.subx.html +++ b/html/linux/124next-token.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/124next-token.subx</title> +<title>Mu - linux/124next-token.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/124next-token.subx'>https://github.com/akkartik/mu/blob/main/baremetal/124next-token.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/124next-token.subx'>https://github.com/akkartik/mu/blob/main/linux/124next-token.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Some tokenization primitives.</span> <span id="L2" class="LineNr"> 2 </span> @@ -120,9 +120,9 @@ if ('onhashchange' in window) { <span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># setup</span> <span id="L62" class="LineNr"> 62 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L64" class="LineNr"> 64 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L64" class="LineNr"> 64 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . call</span> -<span id="L66" class="LineNr"> 66 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L66" class="LineNr"> 66 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L68" class="LineNr"> 68 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -132,16 +132,16 @@ if ('onhashchange' in window) { <span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># write(_test-stream, " ab")</span> <span id="L74" class="LineNr"> 74 </span> <span class="subxS2Comment"># . . push args</span> <span id="L75" class="LineNr"> 75 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L76" class="LineNr"> 76 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L76" class="LineNr"> 76 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . call</span> -<span id="L78" class="LineNr"> 78 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L78" class="LineNr"> 78 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L80" class="LineNr"> 80 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L81" class="LineNr"> 81 </span> <span class="subxComment"># next-token(_test-stream, 0x20/space, slice)</span> <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . push args</span> <span id="L83" class="LineNr"> 83 </span> 51/push-ecx <span id="L84" class="LineNr"> 84 </span> 68/push 0x20/imm32 -<span id="L85" class="LineNr"> 85 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L85" class="LineNr"> 85 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . call</span> <span id="L87" class="LineNr"> 87 </span> e8/call <a href='124next-token.subx.html#L10'>next-token</a>/disp32 <span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . discard args</span> @@ -153,10 +153,10 @@ if ('onhashchange' in window) { <span id="L94" class="LineNr"> 94 </span> 68/push 0xe/imm32 <span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> <span id="L96" class="LineNr"> 96 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L97" class="LineNr"> 97 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L97" class="LineNr"> 97 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L98" class="LineNr"> 98 </span> 50/push-eax <span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . call</span> -<span id="L100" class="LineNr"> 100 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L100" class="LineNr"> 100 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L101" class="LineNr"> 101 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L102" class="LineNr"> 102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> @@ -166,10 +166,10 @@ if ('onhashchange' in window) { <span id="L107" class="LineNr"> 107 </span> 68/push 0x10/imm32 <span id="L108" class="LineNr"> 108 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> <span id="L109" class="LineNr"> 109 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L110" class="LineNr"> 110 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L110" class="LineNr"> 110 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L111" class="LineNr"> 111 </span> 50/push-eax <span id="L112" class="LineNr"> 112 </span> <span class="subxS2Comment"># . . call</span> -<span id="L113" class="LineNr"> 113 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L113" class="LineNr"> 113 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L114" class="LineNr"> 114 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L115" class="LineNr"> 115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L116" class="LineNr"> 116 </span> <span class="subxS1Comment"># . epilogue</span> @@ -184,9 +184,9 @@ if ('onhashchange' in window) { <span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># setup</span> <span id="L126" class="LineNr"> 126 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L127" class="LineNr"> 127 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L128" class="LineNr"> 128 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L128" class="LineNr"> 128 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L129" class="LineNr"> 129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L130" class="LineNr"> 130 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L130" class="LineNr"> 130 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L131" class="LineNr"> 131 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L132" class="LineNr"> 132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -198,7 +198,7 @@ if ('onhashchange' in window) { <span id="L139" class="LineNr"> 139 </span> <span class="subxS2Comment"># . . push args</span> <span id="L140" class="LineNr"> 140 </span> 51/push-ecx <span id="L141" class="LineNr"> 141 </span> 68/push 0x20/imm32 -<span id="L142" class="LineNr"> 142 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L142" class="LineNr"> 142 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L143" class="LineNr"> 143 </span> <span class="subxS2Comment"># . . call</span> <span id="L144" class="LineNr"> 144 </span> e8/call <a href='124next-token.subx.html#L10'>next-token</a>/disp32 <span id="L145" class="LineNr"> 145 </span> <span class="subxS2Comment"># . . discard args</span> @@ -209,7 +209,7 @@ if ('onhashchange' in window) { <span id="L150" class="LineNr"> 150 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L151" class="LineNr"> 151 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L152" class="LineNr"> 152 </span> <span class="subxS2Comment"># . . call</span> -<span id="L153" class="LineNr"> 153 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L153" class="LineNr"> 153 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L154" class="LineNr"> 154 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L155" class="LineNr"> 155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L156" class="LineNr"> 156 </span> <span class="subxS1Comment"># . epilogue</span> @@ -299,7 +299,7 @@ if ('onhashchange' in window) { <span id="L240" class="LineNr"> 240 </span> 2b/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L241" class="LineNr"> 241 </span> 51/push-ecx <span id="L242" class="LineNr"> 242 </span> <span class="subxS2Comment"># . . call</span> -<span id="L243" class="LineNr"> 243 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L243" class="LineNr"> 243 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L244" class="LineNr"> 244 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L245" class="LineNr"> 245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L246" class="LineNr"> 246 </span> <span class="subxComment"># out->end should be after the 'b'</span> @@ -312,7 +312,7 @@ if ('onhashchange' in window) { <span id="L253" class="LineNr"> 253 </span> 2b/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L254" class="LineNr"> 254 </span> 51/push-ecx <span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L256" class="LineNr"> 256 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L256" class="LineNr"> 256 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L258" class="LineNr"> 258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L259" class="LineNr"> 259 </span> <span class="subxS1Comment"># . epilogue</span> @@ -348,7 +348,7 @@ if ('onhashchange' in window) { <span id="L289" class="LineNr"> 289 </span> 2b/subtract 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edi from ecx</span> <span id="L290" class="LineNr"> 290 </span> 51/push-ecx <span id="L291" class="LineNr"> 291 </span> <span class="subxS2Comment"># . . call</span> -<span id="L292" class="LineNr"> 292 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L292" class="LineNr"> 292 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L293" class="LineNr"> 293 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L294" class="LineNr"> 294 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L295" class="LineNr"> 295 </span> <span class="subxS1Comment"># . epilogue</span> @@ -389,7 +389,7 @@ if ('onhashchange' in window) { <span id="L330" class="LineNr"> 330 </span> 2b/subtract 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edi from ecx</span> <span id="L331" class="LineNr"> 331 </span> 51/push-ecx <span id="L332" class="LineNr"> 332 </span> <span class="subxS2Comment"># . . call</span> -<span id="L333" class="LineNr"> 333 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L333" class="LineNr"> 333 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L334" class="LineNr"> 334 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L335" class="LineNr"> 335 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L336" class="LineNr"> 336 </span> <span class="subxS1Comment"># . epilogue</span> @@ -446,23 +446,23 @@ if ('onhashchange' in window) { <span id="L387" class="LineNr"> 387 </span> <span class="subxComment"># setup</span> <span id="L388" class="LineNr"> 388 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L389" class="LineNr"> 389 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L390" class="LineNr"> 390 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L390" class="LineNr"> 390 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L391" class="LineNr"> 391 </span> <span class="subxS2Comment"># . . call</span> -<span id="L392" class="LineNr"> 392 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L392" class="LineNr"> 392 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L393" class="LineNr"> 393 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L394" class="LineNr"> 394 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L395" class="LineNr"> 395 </span> <span class="subxComment"># write(_test-stream, " ab")</span> <span id="L396" class="LineNr"> 396 </span> <span class="subxS2Comment"># . . push args</span> <span id="L397" class="LineNr"> 397 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L398" class="LineNr"> 398 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L398" class="LineNr"> 398 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L399" class="LineNr"> 399 </span> <span class="subxS2Comment"># . . call</span> -<span id="L400" class="LineNr"> 400 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L400" class="LineNr"> 400 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L401" class="LineNr"> 401 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L402" class="LineNr"> 402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L403" class="LineNr"> 403 </span> <span class="subxComment"># skip-chars-matching(_test-stream, 0x20/space)</span> <span id="L404" class="LineNr"> 404 </span> <span class="subxS2Comment"># . . push args</span> <span id="L405" class="LineNr"> 405 </span> 68/push 0x20/imm32 -<span id="L406" class="LineNr"> 406 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L406" class="LineNr"> 406 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L407" class="LineNr"> 407 </span> <span class="subxS2Comment"># . . call</span> <span id="L408" class="LineNr"> 408 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 <span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . discard args</span> @@ -472,10 +472,10 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr"> 413 </span> 68/push <span class="Constant">"F - test-skip-chars-matching"</span>/imm32 <span id="L414" class="LineNr"> 414 </span> 68/push 2/imm32 <span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L416" class="LineNr"> 416 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L416" class="LineNr"> 416 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L417" class="LineNr"> 417 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L418" class="LineNr"> 418 </span> <span class="subxS2Comment"># . . call</span> -<span id="L419" class="LineNr"> 419 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L419" class="LineNr"> 419 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L421" class="LineNr"> 421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># end</span> @@ -485,23 +485,23 @@ if ('onhashchange' in window) { <span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># setup</span> <span id="L427" class="LineNr"> 427 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L429" class="LineNr"> 429 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L429" class="LineNr"> 429 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L430" class="LineNr"> 430 </span> <span class="subxS2Comment"># . . call</span> -<span id="L431" class="LineNr"> 431 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L431" class="LineNr"> 431 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L432" class="LineNr"> 432 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L433" class="LineNr"> 433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L434" class="LineNr"> 434 </span> <span class="subxComment"># write(_test-stream, "ab")</span> <span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . push args</span> <span id="L436" class="LineNr"> 436 </span> 68/push <span class="Constant">"ab"</span>/imm32 -<span id="L437" class="LineNr"> 437 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L437" class="LineNr"> 437 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L438" class="LineNr"> 438 </span> <span class="subxS2Comment"># . . call</span> -<span id="L439" class="LineNr"> 439 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L439" class="LineNr"> 439 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L440" class="LineNr"> 440 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L441" class="LineNr"> 441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L442" class="LineNr"> 442 </span> <span class="subxComment"># skip-chars-matching(_test-stream, 0x20/space)</span> <span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . push args</span> <span id="L444" class="LineNr"> 444 </span> 68/push 0x20/imm32 -<span id="L445" class="LineNr"> 445 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L445" class="LineNr"> 445 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L446" class="LineNr"> 446 </span> <span class="subxS2Comment"># . . call</span> <span id="L447" class="LineNr"> 447 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 <span id="L448" class="LineNr"> 448 </span> <span class="subxS2Comment"># . . discard args</span> @@ -511,10 +511,10 @@ if ('onhashchange' in window) { <span id="L452" class="LineNr"> 452 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-none"</span>/imm32 <span id="L453" class="LineNr"> 453 </span> 68/push 0/imm32 <span id="L454" class="LineNr"> 454 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L455" class="LineNr"> 455 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L455" class="LineNr"> 455 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L456" class="LineNr"> 456 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L457" class="LineNr"> 457 </span> <span class="subxS2Comment"># . . call</span> -<span id="L458" class="LineNr"> 458 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L458" class="LineNr"> 458 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L459" class="LineNr"> 459 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L460" class="LineNr"> 460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L461" class="LineNr"> 461 </span> <span class="subxComment"># end</span> @@ -575,22 +575,22 @@ if ('onhashchange' in window) { <span id="L516" class="LineNr"> 516 </span> <span class="subxComment"># setup</span> <span id="L517" class="LineNr"> 517 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L518" class="LineNr"> 518 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L519" class="LineNr"> 519 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L519" class="LineNr"> 519 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L521" class="LineNr"> 521 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L521" class="LineNr"> 521 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L523" class="LineNr"> 523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L524" class="LineNr"> 524 </span> <span class="subxComment"># write(_test-stream, " \nab")</span> <span id="L525" class="LineNr"> 525 </span> <span class="subxS2Comment"># . . push args</span> <span id="L526" class="LineNr"> 526 </span> 68/push <span class="Constant">" \nab"</span>/imm32 -<span id="L527" class="LineNr"> 527 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L527" class="LineNr"> 527 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L528" class="LineNr"> 528 </span> <span class="subxS2Comment"># . . call</span> -<span id="L529" class="LineNr"> 529 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L529" class="LineNr"> 529 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L530" class="LineNr"> 530 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L531" class="LineNr"> 531 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L532" class="LineNr"> 532 </span> <span class="subxComment"># skip-chars-matching-whitespace(_test-stream)</span> <span id="L533" class="LineNr"> 533 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L534" class="LineNr"> 534 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L534" class="LineNr"> 534 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . call</span> <span id="L536" class="LineNr"> 536 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 <span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . discard args</span> @@ -600,10 +600,10 @@ if ('onhashchange' in window) { <span id="L541" class="LineNr"> 541 </span> 68/push <span class="Constant">"F - test-skip-chars-matching-whitespace"</span>/imm32 <span id="L542" class="LineNr"> 542 </span> 68/push 2/imm32 <span id="L543" class="LineNr"> 543 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L544" class="LineNr"> 544 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L544" class="LineNr"> 544 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L545" class="LineNr"> 545 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L546" class="LineNr"> 546 </span> <span class="subxS2Comment"># . . call</span> -<span id="L547" class="LineNr"> 547 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L547" class="LineNr"> 547 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L548" class="LineNr"> 548 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L549" class="LineNr"> 549 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L550" class="LineNr"> 550 </span> <span class="subxComment"># end</span> @@ -659,23 +659,23 @@ if ('onhashchange' in window) { <span id="L600" class="LineNr"> 600 </span> <span class="subxComment"># setup</span> <span id="L601" class="LineNr"> 601 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L602" class="LineNr"> 602 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L603" class="LineNr"> 603 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L603" class="LineNr"> 603 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . call</span> -<span id="L605" class="LineNr"> 605 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L605" class="LineNr"> 605 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L607" class="LineNr"> 607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L608" class="LineNr"> 608 </span> <span class="subxComment"># write(_test-stream, "ab ")</span> <span id="L609" class="LineNr"> 609 </span> <span class="subxS2Comment"># . . push args</span> <span id="L610" class="LineNr"> 610 </span> 68/push <span class="Constant">"ab "</span>/imm32 -<span id="L611" class="LineNr"> 611 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L611" class="LineNr"> 611 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L612" class="LineNr"> 612 </span> <span class="subxS2Comment"># . . call</span> -<span id="L613" class="LineNr"> 613 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L613" class="LineNr"> 613 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L614" class="LineNr"> 614 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L615" class="LineNr"> 615 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L616" class="LineNr"> 616 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> <span id="L617" class="LineNr"> 617 </span> <span class="subxS2Comment"># . . push args</span> <span id="L618" class="LineNr"> 618 </span> 68/push 0x20/imm32 -<span id="L619" class="LineNr"> 619 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L619" class="LineNr"> 619 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> <span id="L621" class="LineNr"> 621 </span> e8/call <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a>/disp32 <span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> @@ -685,10 +685,10 @@ if ('onhashchange' in window) { <span id="L626" class="LineNr"> 626 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching"</span>/imm32 <span id="L627" class="LineNr"> 627 </span> 68/push 2/imm32 <span id="L628" class="LineNr"> 628 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L629" class="LineNr"> 629 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L629" class="LineNr"> 629 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L630" class="LineNr"> 630 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L631" class="LineNr"> 631 </span> <span class="subxS2Comment"># . . call</span> -<span id="L632" class="LineNr"> 632 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L632" class="LineNr"> 632 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L633" class="LineNr"> 633 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L634" class="LineNr"> 634 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># end</span> @@ -698,23 +698,23 @@ if ('onhashchange' in window) { <span id="L639" class="LineNr"> 639 </span> <span class="subxComment"># setup</span> <span id="L640" class="LineNr"> 640 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L642" class="LineNr"> 642 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L642" class="LineNr"> 642 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L643" class="LineNr"> 643 </span> <span class="subxS2Comment"># . . call</span> -<span id="L644" class="LineNr"> 644 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L644" class="LineNr"> 644 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L646" class="LineNr"> 646 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L647" class="LineNr"> 647 </span> <span class="subxComment"># write(_test-stream, " ab")</span> <span id="L648" class="LineNr"> 648 </span> <span class="subxS2Comment"># . . push args</span> <span id="L649" class="LineNr"> 649 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L650" class="LineNr"> 650 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L650" class="LineNr"> 650 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . call</span> -<span id="L652" class="LineNr"> 652 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L652" class="LineNr"> 652 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L654" class="LineNr"> 654 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L655" class="LineNr"> 655 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> <span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . push args</span> <span id="L657" class="LineNr"> 657 </span> 68/push 0x20/imm32 -<span id="L658" class="LineNr"> 658 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L658" class="LineNr"> 658 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L659" class="LineNr"> 659 </span> <span class="subxS2Comment"># . . call</span> <span id="L660" class="LineNr"> 660 </span> e8/call <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a>/disp32 <span id="L661" class="LineNr"> 661 </span> <span class="subxS2Comment"># . . discard args</span> @@ -724,10 +724,10 @@ if ('onhashchange' in window) { <span id="L665" class="LineNr"> 665 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-none"</span>/imm32 <span id="L666" class="LineNr"> 666 </span> 68/push 0/imm32 <span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L668" class="LineNr"> 668 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L668" class="LineNr"> 668 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L669" class="LineNr"> 669 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L670" class="LineNr"> 670 </span> <span class="subxS2Comment"># . . call</span> -<span id="L671" class="LineNr"> 671 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L671" class="LineNr"> 671 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L673" class="LineNr"> 673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L674" class="LineNr"> 674 </span> <span class="subxComment"># end</span> @@ -737,23 +737,23 @@ if ('onhashchange' in window) { <span id="L678" class="LineNr"> 678 </span> <span class="subxComment"># setup</span> <span id="L679" class="LineNr"> 679 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L680" class="LineNr"> 680 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L681" class="LineNr"> 681 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L681" class="LineNr"> 681 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L682" class="LineNr"> 682 </span> <span class="subxS2Comment"># . . call</span> -<span id="L683" class="LineNr"> 683 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L683" class="LineNr"> 683 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L685" class="LineNr"> 685 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L686" class="LineNr"> 686 </span> <span class="subxComment"># write(_test-stream, "ab")</span> <span id="L687" class="LineNr"> 687 </span> <span class="subxS2Comment"># . . push args</span> <span id="L688" class="LineNr"> 688 </span> 68/push <span class="Constant">"ab"</span>/imm32 -<span id="L689" class="LineNr"> 689 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L689" class="LineNr"> 689 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . call</span> -<span id="L691" class="LineNr"> 691 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L691" class="LineNr"> 691 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L693" class="LineNr"> 693 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L694" class="LineNr"> 694 </span> <span class="subxComment"># skip-chars-not-matching(_test-stream, 0x20/space)</span> <span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . push args</span> <span id="L696" class="LineNr"> 696 </span> 68/push 0x20/imm32 -<span id="L697" class="LineNr"> 697 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L697" class="LineNr"> 697 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L698" class="LineNr"> 698 </span> <span class="subxS2Comment"># . . call</span> <span id="L699" class="LineNr"> 699 </span> e8/call <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a>/disp32 <span id="L700" class="LineNr"> 700 </span> <span class="subxS2Comment"># . . discard args</span> @@ -763,10 +763,10 @@ if ('onhashchange' in window) { <span id="L704" class="LineNr"> 704 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-all"</span>/imm32 <span id="L705" class="LineNr"> 705 </span> 68/push 2/imm32 <span id="L706" class="LineNr"> 706 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L707" class="LineNr"> 707 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L707" class="LineNr"> 707 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L708" class="LineNr"> 708 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . call</span> -<span id="L710" class="LineNr"> 710 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L710" class="LineNr"> 710 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L712" class="LineNr"> 712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L713" class="LineNr"> 713 </span> <span class="subxComment"># end</span> @@ -826,22 +826,22 @@ if ('onhashchange' in window) { <span id="L767" class="LineNr"> 767 </span> <span class="subxComment"># setup</span> <span id="L768" class="LineNr"> 768 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L769" class="LineNr"> 769 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L770" class="LineNr"> 770 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L770" class="LineNr"> 770 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L771" class="LineNr"> 771 </span> <span class="subxS2Comment"># . . call</span> -<span id="L772" class="LineNr"> 772 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L772" class="LineNr"> 772 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L774" class="LineNr"> 774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L775" class="LineNr"> 775 </span> <span class="subxComment"># write(_test-stream, "ab\n")</span> <span id="L776" class="LineNr"> 776 </span> <span class="subxS2Comment"># . . push args</span> <span id="L777" class="LineNr"> 777 </span> 68/push <span class="Constant">"ab\n"</span>/imm32 -<span id="L778" class="LineNr"> 778 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L778" class="LineNr"> 778 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L779" class="LineNr"> 779 </span> <span class="subxS2Comment"># . . call</span> -<span id="L780" class="LineNr"> 780 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L780" class="LineNr"> 780 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L781" class="LineNr"> 781 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L782" class="LineNr"> 782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(_test-stream)</span> <span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L785" class="LineNr"> 785 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L785" class="LineNr"> 785 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . call</span> <span id="L787" class="LineNr"> 787 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 <span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . discard args</span> @@ -851,10 +851,10 @@ if ('onhashchange' in window) { <span id="L792" class="LineNr"> 792 </span> 68/push <span class="Constant">"F - test-skip-chars-not-matching-whitespace"</span>/imm32 <span id="L793" class="LineNr"> 793 </span> 68/push 2/imm32 <span id="L794" class="LineNr"> 794 </span> <span class="subxS2Comment"># . . push *_test-stream->read</span> -<span id="L795" class="LineNr"> 795 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L795" class="LineNr"> 795 </span> b8/copy-to-eax <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L796" class="LineNr"> 796 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L797" class="LineNr"> 797 </span> <span class="subxS2Comment"># . . call</span> -<span id="L798" class="LineNr"> 798 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L798" class="LineNr"> 798 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L799" class="LineNr"> 799 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L800" class="LineNr"> 800 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L801" class="LineNr"> 801 </span> <span class="subxComment"># end</span> @@ -921,7 +921,7 @@ if ('onhashchange' in window) { <span id="L862" class="LineNr"> 862 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L863" class="LineNr"> 863 </span> 51/push-ecx <span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . call</span> -<span id="L865" class="LineNr"> 865 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L865" class="LineNr"> 865 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L866" class="LineNr"> 866 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L867" class="LineNr"> 867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L868" class="LineNr"> 868 </span> <span class="subxComment"># end</span> @@ -950,7 +950,7 @@ if ('onhashchange' in window) { <span id="L891" class="LineNr"> 891 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L892" class="LineNr"> 892 </span> 51/push-ecx <span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . call</span> -<span id="L894" class="LineNr"> 894 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L894" class="LineNr"> 894 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L895" class="LineNr"> 895 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L896" class="LineNr"> 896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L897" class="LineNr"> 897 </span> <span class="subxComment"># end</span> @@ -1022,7 +1022,7 @@ if ('onhashchange' in window) { <span id="L963" class="LineNr"> 963 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L964" class="LineNr"> 964 </span> 51/push-ecx <span id="L965" class="LineNr"> 965 </span> <span class="subxS2Comment"># . . call</span> -<span id="L966" class="LineNr"> 966 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L966" class="LineNr"> 966 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L967" class="LineNr"> 967 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L968" class="LineNr"> 968 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L969" class="LineNr"> 969 </span> <span class="subxComment"># end</span> @@ -1090,7 +1090,7 @@ if ('onhashchange' in window) { <span id="L1031" class="LineNr">1031 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1032" class="LineNr">1032 </span> 51/push-ecx <span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1034" class="LineNr">1034 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1034" class="LineNr">1034 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1036" class="LineNr">1036 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1037" class="LineNr">1037 </span> <span class="subxComment"># end</span> @@ -1119,7 +1119,7 @@ if ('onhashchange' in window) { <span id="L1060" class="LineNr">1060 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1061" class="LineNr">1061 </span> 51/push-ecx <span id="L1062" class="LineNr">1062 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1063" class="LineNr">1063 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1063" class="LineNr">1063 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1064" class="LineNr">1064 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1065" class="LineNr">1065 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1066" class="LineNr">1066 </span> <span class="subxComment"># end</span> @@ -1148,7 +1148,7 @@ if ('onhashchange' in window) { <span id="L1089" class="LineNr">1089 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1090" class="LineNr">1090 </span> 51/push-ecx <span id="L1091" class="LineNr">1091 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1092" class="LineNr">1092 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1092" class="LineNr">1092 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1094" class="LineNr">1094 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1095" class="LineNr">1095 </span> <span class="subxComment"># end</span> @@ -1219,7 +1219,7 @@ if ('onhashchange' in window) { <span id="L1160" class="LineNr">1160 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1161" class="LineNr">1161 </span> 51/push-ecx <span id="L1162" class="LineNr">1162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1163" class="LineNr">1163 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1163" class="LineNr">1163 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1164" class="LineNr">1164 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1165" class="LineNr">1165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1166" class="LineNr">1166 </span> <span class="subxComment"># end</span> @@ -1269,35 +1269,35 @@ if ('onhashchange' in window) { <span id="L1210" class="LineNr">1210 </span> 55/push-ebp <span id="L1211" class="LineNr">1211 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L1212" class="LineNr">1212 </span> <span class="subxComment"># setup</span> -<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1214" class="LineNr">1214 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1215" class="LineNr">1215 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1215" class="LineNr">1215 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1216" class="LineNr">1216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1217" class="LineNr">1217 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1217" class="LineNr">1217 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1219" class="LineNr">1219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1220" class="LineNr">1220 </span> <span class="subxS1Comment"># . write(_test-stream, "\"abc\" def")</span> +<span id="L1220" class="LineNr">1220 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\"abc\" def")</span> <span id="L1221" class="LineNr">1221 </span> <span class="subxS1Comment"># . indices: 0123 45</span> <span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1223" class="LineNr">1223 </span> 68/push <span class="Constant">"\"</span>abc\<span class="Constant">" def"</span>/imm32 -<span id="L1224" class="LineNr">1224 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1224" class="LineNr">1224 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1225" class="LineNr">1225 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1226" class="LineNr">1226 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1226" class="LineNr">1226 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1227" class="LineNr">1227 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1228" class="LineNr">1228 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1229" class="LineNr">1229 </span> <span class="subxComment"># precondition: line->read == 0</span> <span id="L1230" class="LineNr">1230 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1231" class="LineNr">1231 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1208'>test-skip-string</a>/precondition"</span>/imm32 <span id="L1232" class="LineNr">1232 </span> 68/push 0/imm32 -<span id="L1233" class="LineNr">1233 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1233" class="LineNr">1233 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1234" class="LineNr">1234 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1235" class="LineNr">1235 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1236" class="LineNr">1236 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1236" class="LineNr">1236 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1237" class="LineNr">1237 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1238" class="LineNr">1238 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1239" class="LineNr">1239 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1239" class="LineNr">1239 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> <span id="L1240" class="LineNr">1240 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1241" class="LineNr">1241 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1241" class="LineNr">1241 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1242" class="LineNr">1242 </span> <span class="subxS2Comment"># . . call</span> <span id="L1243" class="LineNr">1243 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 <span id="L1244" class="LineNr">1244 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1306,10 +1306,10 @@ if ('onhashchange' in window) { <span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1248" class="LineNr">1248 </span> 68/push <span class="Constant">"F - test-skip-string"</span>/imm32 <span id="L1249" class="LineNr">1249 </span> 68/push 5/imm32 -<span id="L1250" class="LineNr">1250 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1250" class="LineNr">1250 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1251" class="LineNr">1251 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1252" class="LineNr">1252 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1253" class="LineNr">1253 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1253" class="LineNr">1253 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1254" class="LineNr">1254 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1255" class="LineNr">1255 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1256" class="LineNr">1256 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1322,35 +1322,35 @@ if ('onhashchange' in window) { <span id="L1263" class="LineNr">1263 </span> 55/push-ebp <span id="L1264" class="LineNr">1264 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L1265" class="LineNr">1265 </span> <span class="subxComment"># setup</span> -<span id="L1266" class="LineNr">1266 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1266" class="LineNr">1266 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1267" class="LineNr">1267 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1268" class="LineNr">1268 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1268" class="LineNr">1268 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1269" class="LineNr">1269 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1270" class="LineNr">1270 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1270" class="LineNr">1270 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1271" class="LineNr">1271 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1272" class="LineNr">1272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1273" class="LineNr">1273 </span> <span class="subxS1Comment"># . write(_test-stream, "\"a b\"/yz")</span> +<span id="L1273" class="LineNr">1273 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\"a b\"/yz")</span> <span id="L1274" class="LineNr">1274 </span> <span class="subxS1Comment"># . indices: 0123 45</span> <span id="L1275" class="LineNr">1275 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1276" class="LineNr">1276 </span> 68/push <span class="Constant">"\"</span>a b\<span class="Constant">"/yz"</span>/imm32 -<span id="L1277" class="LineNr">1277 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1277" class="LineNr">1277 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1278" class="LineNr">1278 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1279" class="LineNr">1279 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1279" class="LineNr">1279 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1280" class="LineNr">1280 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1281" class="LineNr">1281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1282" class="LineNr">1282 </span> <span class="subxComment"># precondition: line->read == 0</span> <span id="L1283" class="LineNr">1283 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1284" class="LineNr">1284 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1261'>test-skip-string-ignores-spaces</a>/precondition"</span>/imm32 <span id="L1285" class="LineNr">1285 </span> 68/push 0/imm32 -<span id="L1286" class="LineNr">1286 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1286" class="LineNr">1286 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1287" class="LineNr">1287 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1289" class="LineNr">1289 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1289" class="LineNr">1289 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1290" class="LineNr">1290 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1291" class="LineNr">1291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1292" class="LineNr">1292 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1292" class="LineNr">1292 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> <span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1294" class="LineNr">1294 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1294" class="LineNr">1294 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . call</span> <span id="L1296" class="LineNr">1296 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 <span id="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1359,10 +1359,10 @@ if ('onhashchange' in window) { <span id="L1300" class="LineNr">1300 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1301" class="LineNr">1301 </span> 68/push <span class="Constant">"F - test-skip-string-ignores-spaces"</span>/imm32 <span id="L1302" class="LineNr">1302 </span> 68/push 5/imm32 -<span id="L1303" class="LineNr">1303 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1303" class="LineNr">1303 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1304" class="LineNr">1304 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1305" class="LineNr">1305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1306" class="LineNr">1306 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1306" class="LineNr">1306 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1308" class="LineNr">1308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1309" class="LineNr">1309 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1375,35 +1375,35 @@ if ('onhashchange' in window) { <span id="L1316" class="LineNr">1316 </span> 55/push-ebp <span id="L1317" class="LineNr">1317 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L1318" class="LineNr">1318 </span> <span class="subxComment"># setup</span> -<span id="L1319" class="LineNr">1319 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1319" class="LineNr">1319 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1321" class="LineNr">1321 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1321" class="LineNr">1321 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1323" class="LineNr">1323 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1323" class="LineNr">1323 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1324" class="LineNr">1324 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1325" class="LineNr">1325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1326" class="LineNr">1326 </span> <span class="subxS1Comment"># . write(_test-stream, "\"a\\\"b\"/yz")</span> +<span id="L1326" class="LineNr">1326 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\"a\\\"b\"/yz")</span> <span id="L1327" class="LineNr">1327 </span> <span class="subxS1Comment"># . indices: 01 2 34 56</span> <span id="L1328" class="LineNr">1328 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1329" class="LineNr">1329 </span> 68/push <span class="Constant">"\"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 -<span id="L1330" class="LineNr">1330 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1330" class="LineNr">1330 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1331" class="LineNr">1331 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1332" class="LineNr">1332 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1332" class="LineNr">1332 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1333" class="LineNr">1333 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1334" class="LineNr">1334 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1335" class="LineNr">1335 </span> <span class="subxComment"># precondition: line->read == 0</span> <span id="L1336" class="LineNr">1336 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1337" class="LineNr">1337 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1314'>test-skip-string-ignores-escapes</a>/precondition"</span>/imm32 <span id="L1338" class="LineNr">1338 </span> 68/push 0/imm32 -<span id="L1339" class="LineNr">1339 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1339" class="LineNr">1339 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1340" class="LineNr">1340 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1341" class="LineNr">1341 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1342" class="LineNr">1342 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1342" class="LineNr">1342 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1343" class="LineNr">1343 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1344" class="LineNr">1344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1345" class="LineNr">1345 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1345" class="LineNr">1345 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> <span id="L1346" class="LineNr">1346 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1347" class="LineNr">1347 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1347" class="LineNr">1347 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1348" class="LineNr">1348 </span> <span class="subxS2Comment"># . . call</span> <span id="L1349" class="LineNr">1349 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 <span id="L1350" class="LineNr">1350 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1412,10 +1412,10 @@ if ('onhashchange' in window) { <span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1354" class="LineNr">1354 </span> 68/push <span class="Constant">"F - test-skip-string-ignores-escapes"</span>/imm32 <span id="L1355" class="LineNr">1355 </span> 68/push 6/imm32 -<span id="L1356" class="LineNr">1356 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1356" class="LineNr">1356 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1357" class="LineNr">1357 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1358" class="LineNr">1358 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1359" class="LineNr">1359 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1359" class="LineNr">1359 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1360" class="LineNr">1360 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1361" class="LineNr">1361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1362" class="LineNr">1362 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1428,28 +1428,28 @@ if ('onhashchange' in window) { <span id="L1369" class="LineNr">1369 </span> 55/push-ebp <span id="L1370" class="LineNr">1370 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L1371" class="LineNr">1371 </span> <span class="subxComment"># setup</span> -<span id="L1372" class="LineNr">1372 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1372" class="LineNr">1372 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1373" class="LineNr">1373 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1374" class="LineNr">1374 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1374" class="LineNr">1374 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1375" class="LineNr">1375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1376" class="LineNr">1376 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1376" class="LineNr">1376 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1377" class="LineNr">1377 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1378" class="LineNr">1378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1379" class="LineNr">1379 </span> <span class="subxS1Comment"># . write(_test-stream, "0 \"a\\\"b\"/yz")</span> +<span id="L1379" class="LineNr">1379 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0 \"a\\\"b\"/yz")</span> <span id="L1380" class="LineNr">1380 </span> <span class="subxS1Comment"># . indices: 01 2 34 56</span> <span id="L1381" class="LineNr">1381 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1382" class="LineNr">1382 </span> 68/push <span class="Constant">"0 \"</span>a\\\<span class="Constant">"b\"</span>/yz"/imm32 -<span id="L1383" class="LineNr">1383 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1383" class="LineNr">1383 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1384" class="LineNr">1384 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1385" class="LineNr">1385 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1385" class="LineNr">1385 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1386" class="LineNr">1386 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1387" class="LineNr">1387 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1388" class="LineNr">1388 </span> <span class="subxComment"># precondition: line->read == 2</span> -<span id="L1389" class="LineNr">1389 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1389" class="LineNr">1389 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1390" class="LineNr">1390 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 2/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L1391" class="LineNr">1391 </span> <span class="subxComment"># skip-string(_test-stream)</span> +<span id="L1391" class="LineNr">1391 </span> <span class="subxComment"># skip-string(_test-input-stream)</span> <span id="L1392" class="LineNr">1392 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1393" class="LineNr">1393 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1393" class="LineNr">1393 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . call</span> <span id="L1395" class="LineNr">1395 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 <span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1458,10 +1458,10 @@ if ('onhashchange' in window) { <span id="L1399" class="LineNr">1399 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1400" class="LineNr">1400 </span> 68/push <span class="Constant">"F - test-skip-string-works-from-mid-stream"</span>/imm32 <span id="L1401" class="LineNr">1401 </span> 68/push 8/imm32 -<span id="L1402" class="LineNr">1402 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1402" class="LineNr">1402 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1403" class="LineNr">1403 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1404" class="LineNr">1404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1405" class="LineNr">1405 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1405" class="LineNr">1405 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1406" class="LineNr">1406 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1407" class="LineNr">1407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1408" class="LineNr">1408 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1546,7 +1546,7 @@ if ('onhashchange' in window) { <span id="L1487" class="LineNr">1487 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1488" class="LineNr">1488 </span> 51/push-ecx <span id="L1489" class="LineNr">1489 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1490" class="LineNr">1490 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1490" class="LineNr">1490 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1492" class="LineNr">1492 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1493" class="LineNr">1493 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1579,7 +1579,7 @@ if ('onhashchange' in window) { <span id="L1520" class="LineNr">1520 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1521" class="LineNr">1521 </span> 51/push-ecx <span id="L1522" class="LineNr">1522 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1523" class="LineNr">1523 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1523" class="LineNr">1523 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1525" class="LineNr">1525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1526" class="LineNr">1526 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1612,7 +1612,7 @@ if ('onhashchange' in window) { <span id="L1553" class="LineNr">1553 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1554" class="LineNr">1554 </span> 51/push-ecx <span id="L1555" class="LineNr">1555 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1556" class="LineNr">1556 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1556" class="LineNr">1556 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1558" class="LineNr">1558 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1559" class="LineNr">1559 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1645,7 +1645,7 @@ if ('onhashchange' in window) { <span id="L1586" class="LineNr">1586 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1587" class="LineNr">1587 </span> 51/push-ecx <span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1589" class="LineNr">1589 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1589" class="LineNr">1589 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1590" class="LineNr">1590 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1591" class="LineNr">1591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1592" class="LineNr">1592 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1697,35 +1697,35 @@ if ('onhashchange' in window) { <span id="L1638" class="LineNr">1638 </span> 55/push-ebp <span id="L1639" class="LineNr">1639 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># setup</span> -<span id="L1641" class="LineNr">1641 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1641" class="LineNr">1641 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1642" class="LineNr">1642 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1643" class="LineNr">1643 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1643" class="LineNr">1643 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1644" class="LineNr">1644 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1645" class="LineNr">1645 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1645" class="LineNr">1645 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1646" class="LineNr">1646 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1647" class="LineNr">1647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1648" class="LineNr">1648 </span> <span class="subxS1Comment"># . write(_test-stream, "*(abc) def")</span> +<span id="L1648" class="LineNr">1648 </span> <span class="subxS1Comment"># . write(_test-input-stream, "*(abc) def")</span> <span id="L1649" class="LineNr">1649 </span> <span class="subxS1Comment"># . indices: 0123 45</span> <span id="L1650" class="LineNr">1650 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1651" class="LineNr">1651 </span> 68/push <span class="Constant">"*(abc) def"</span>/imm32 -<span id="L1652" class="LineNr">1652 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1652" class="LineNr">1652 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1653" class="LineNr">1653 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1654" class="LineNr">1654 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1654" class="LineNr">1654 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1655" class="LineNr">1655 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1656" class="LineNr">1656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1657" class="LineNr">1657 </span> <span class="subxComment"># precondition: line->read == 0</span> <span id="L1658" class="LineNr">1658 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1659" class="LineNr">1659 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1636'>test-skip-until-close-paren</a>/precondition"</span>/imm32 <span id="L1660" class="LineNr">1660 </span> 68/push 0/imm32 -<span id="L1661" class="LineNr">1661 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1661" class="LineNr">1661 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1662" class="LineNr">1662 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1663" class="LineNr">1663 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1664" class="LineNr">1664 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1664" class="LineNr">1664 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1665" class="LineNr">1665 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1666" class="LineNr">1666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1667" class="LineNr">1667 </span> <span class="subxComment"># skip-until-close-paren(_test-stream)</span> +<span id="L1667" class="LineNr">1667 </span> <span class="subxComment"># skip-until-close-paren(_test-input-stream)</span> <span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1669" class="LineNr">1669 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1669" class="LineNr">1669 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1670" class="LineNr">1670 </span> <span class="subxS2Comment"># . . call</span> <span id="L1671" class="LineNr">1671 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 <span id="L1672" class="LineNr">1672 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1734,10 +1734,10 @@ if ('onhashchange' in window) { <span id="L1675" class="LineNr">1675 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1676" class="LineNr">1676 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren"</span>/imm32 <span id="L1677" class="LineNr">1677 </span> 68/push 5/imm32 -<span id="L1678" class="LineNr">1678 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1678" class="LineNr">1678 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1679" class="LineNr">1679 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1680" class="LineNr">1680 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1681" class="LineNr">1681 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1681" class="LineNr">1681 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1682" class="LineNr">1682 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1683" class="LineNr">1683 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1684" class="LineNr">1684 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1750,34 +1750,34 @@ if ('onhashchange' in window) { <span id="L1691" class="LineNr">1691 </span> 55/push-ebp <span id="L1692" class="LineNr">1692 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L1693" class="LineNr">1693 </span> <span class="subxComment"># setup</span> -<span id="L1694" class="LineNr">1694 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1694" class="LineNr">1694 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1695" class="LineNr">1695 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1696" class="LineNr">1696 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1696" class="LineNr">1696 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1697" class="LineNr">1697 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1698" class="LineNr">1698 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1698" class="LineNr">1698 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1699" class="LineNr">1699 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1700" class="LineNr">1700 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1701" class="LineNr">1701 </span> <span class="subxS1Comment"># . write(_test-stream, "*(a b)/yz")</span> +<span id="L1701" class="LineNr">1701 </span> <span class="subxS1Comment"># . write(_test-input-stream, "*(a b)/yz")</span> <span id="L1702" class="LineNr">1702 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1703" class="LineNr">1703 </span> 68/push <span class="Constant">"*(a b)/yz"</span>/imm32 -<span id="L1704" class="LineNr">1704 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1704" class="LineNr">1704 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1705" class="LineNr">1705 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1706" class="LineNr">1706 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1706" class="LineNr">1706 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1707" class="LineNr">1707 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1708" class="LineNr">1708 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1709" class="LineNr">1709 </span> <span class="subxComment"># precondition: line->read == 0</span> <span id="L1710" class="LineNr">1710 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1711" class="LineNr">1711 </span> 68/push <span class="Constant">"F - <a href='124next-token.subx.html#L1689'>test-skip-until-close-paren-ignores-spaces</a>/precondition"</span>/imm32 <span id="L1712" class="LineNr">1712 </span> 68/push 0/imm32 -<span id="L1713" class="LineNr">1713 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1713" class="LineNr">1713 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1714" class="LineNr">1714 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1716" class="LineNr">1716 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1716" class="LineNr">1716 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1717" class="LineNr">1717 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1718" class="LineNr">1718 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1719" class="LineNr">1719 </span> <span class="subxComment"># skip-until-close-paren(_test-stream)</span> +<span id="L1719" class="LineNr">1719 </span> <span class="subxComment"># skip-until-close-paren(_test-input-stream)</span> <span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1721" class="LineNr">1721 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1721" class="LineNr">1721 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . call</span> <span id="L1723" class="LineNr">1723 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 <span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1786,10 +1786,10 @@ if ('onhashchange' in window) { <span id="L1727" class="LineNr">1727 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1728" class="LineNr">1728 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-ignores-spaces"</span>/imm32 <span id="L1729" class="LineNr">1729 </span> 68/push 5/imm32 -<span id="L1730" class="LineNr">1730 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1730" class="LineNr">1730 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1731" class="LineNr">1731 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1732" class="LineNr">1732 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1733" class="LineNr">1733 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1733" class="LineNr">1733 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1735" class="LineNr">1735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1736" class="LineNr">1736 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1802,39 +1802,39 @@ if ('onhashchange' in window) { <span id="L1743" class="LineNr">1743 </span> 55/push-ebp <span id="L1744" class="LineNr">1744 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> <span id="L1745" class="LineNr">1745 </span> <span class="subxComment"># setup</span> -<span id="L1746" class="LineNr">1746 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> +<span id="L1746" class="LineNr">1746 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1747" class="LineNr">1747 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1748" class="LineNr">1748 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1748" class="LineNr">1748 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1750" class="LineNr">1750 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L1750" class="LineNr">1750 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1752" class="LineNr">1752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1753" class="LineNr">1753 </span> <span class="subxS1Comment"># . write(_test-stream, "0 *(a b)/yz")</span> +<span id="L1753" class="LineNr">1753 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0 *(a b)/yz")</span> <span id="L1754" class="LineNr">1754 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1755" class="LineNr">1755 </span> 68/push <span class="Constant">"0 *(a b)/yz"</span>/imm32 -<span id="L1756" class="LineNr">1756 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1756" class="LineNr">1756 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1757" class="LineNr">1757 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1758" class="LineNr">1758 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L1758" class="LineNr">1758 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1759" class="LineNr">1759 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1760" class="LineNr">1760 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1761" class="LineNr">1761 </span> <span class="subxComment"># precondition: _test-stream->read == 2</span> -<span id="L1762" class="LineNr">1762 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1761" class="LineNr">1761 </span> <span class="subxComment"># precondition: _test-input-stream->read == 2</span> +<span id="L1762" class="LineNr">1762 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1763" class="LineNr">1763 </span> c7 0/subop/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 2/imm32 <span class="subxComment"># copy to *(eax+4)</span> -<span id="L1764" class="LineNr">1764 </span> <span class="subxComment"># skip-until-close-paren(_test-stream)</span> +<span id="L1764" class="LineNr">1764 </span> <span class="subxComment"># skip-until-close-paren(_test-input-stream)</span> <span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1766" class="LineNr">1766 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1766" class="LineNr">1766 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1767" class="LineNr">1767 </span> <span class="subxS2Comment"># . . call</span> <span id="L1768" class="LineNr">1768 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 <span id="L1769" class="LineNr">1769 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1770" class="LineNr">1770 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1771" class="LineNr">1771 </span> <span class="subxComment"># check-ints-equal(_test-stream->read, 7, msg)</span> +<span id="L1771" class="LineNr">1771 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 7, msg)</span> <span id="L1772" class="LineNr">1772 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1773" class="LineNr">1773 </span> 68/push <span class="Constant">"F - test-skip-until-close-paren-works-from-mid-stream"</span>/imm32 <span id="L1774" class="LineNr">1774 </span> 68/push 7/imm32 -<span id="L1775" class="LineNr">1775 </span> b8/copy-to-eax <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L1775" class="LineNr">1775 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1776" class="LineNr">1776 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1778" class="LineNr">1778 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1778" class="LineNr">1778 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1780" class="LineNr">1780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1781" class="LineNr">1781 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1907,7 +1907,7 @@ if ('onhashchange' in window) { <span id="L1848" class="LineNr">1848 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1849" class="LineNr">1849 </span> 51/push-ecx <span id="L1850" class="LineNr">1850 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1851" class="LineNr">1851 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1851" class="LineNr">1851 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1852" class="LineNr">1852 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1853" class="LineNr">1853 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1854" class="LineNr">1854 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1940,7 +1940,7 @@ if ('onhashchange' in window) { <span id="L1881" class="LineNr">1881 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1882" class="LineNr">1882 </span> 51/push-ecx <span id="L1883" class="LineNr">1883 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1884" class="LineNr">1884 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1884" class="LineNr">1884 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1886" class="LineNr">1886 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1887" class="LineNr">1887 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1973,7 +1973,7 @@ if ('onhashchange' in window) { <span id="L1914" class="LineNr">1914 </span> 29/subtract 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract eax from ecx</span> <span id="L1915" class="LineNr">1915 </span> 51/push-ecx <span id="L1916" class="LineNr">1916 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1917" class="LineNr">1917 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L1917" class="LineNr">1917 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1918" class="LineNr">1918 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1919" class="LineNr">1919 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1920" class="LineNr">1920 </span> <span class="subxS1Comment"># . epilogue</span> diff --git a/html/125write-stream-data.subx.html b/html/linux/125write-stream-data.subx.html index bae56597..0bedb01f 100644 --- a/html/125write-stream-data.subx.html +++ b/html/linux/125write-stream-data.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 125write-stream-data.subx</title> +<title>Mu - linux/125write-stream-data.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/125write-stream-data.subx'>https://github.com/akkartik/mu/blob/main/125write-stream-data.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/125write-stream-data.subx'>https://github.com/akkartik/mu/blob/main/linux/125write-stream-data.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -114,7 +114,7 @@ if ('onhashchange' in window) { <span id="L55" class="LineNr"> 55 </span> <span class="subxComment"># setup</span> <span id="L56" class="LineNr"> 56 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L58" class="LineNr"> 58 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L58" class="LineNr"> 58 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> <span id="L60" class="LineNr"> 60 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> @@ -145,7 +145,7 @@ if ('onhashchange' in window) { <span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># write-stream-data(_test-output-buffered-file, _test-input-stream)</span> <span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . push args</span> <span id="L88" class="LineNr"> 88 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L89" class="LineNr"> 89 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L89" class="LineNr"> 89 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L90" class="LineNr"> 90 </span> <span class="subxS2Comment"># . . call</span> <span id="L91" class="LineNr"> 91 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . discard args</span> @@ -153,7 +153,7 @@ if ('onhashchange' in window) { <span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># check that the write happened as expected</span> <span id="L95" class="LineNr"> 95 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L97" class="LineNr"> 97 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L97" class="LineNr"> 97 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L98" class="LineNr"> 98 </span> <span class="subxS2Comment"># . . call</span> <span id="L99" class="LineNr"> 99 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L100" class="LineNr">100 </span> <span class="subxS2Comment"># . . discard args</span> @@ -162,7 +162,7 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr">103 </span> <span class="subxS2Comment"># . . push args</span> <span id="L104" class="LineNr">104 </span> 68/push <span class="Constant">"F - test-write-stream-data"</span>/imm32 <span id="L105" class="LineNr">105 </span> 68/push <span class="Constant">"abcd"</span>/imm32 -<span id="L106" class="LineNr">106 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L106" class="LineNr">106 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . call</span> <span id="L108" class="LineNr">108 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . discard args</span> diff --git a/html/baremetal/126write-int-decimal.subx.html b/html/linux/126write-int-decimal.subx.html index c85343f0..8cb7fe01 100644 --- a/html/baremetal/126write-int-decimal.subx.html +++ b/html/linux/126write-int-decimal.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/126write-int-decimal.subx</title> +<title>Mu - linux/126write-int-decimal.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -19,11 +19,13 @@ a { color:inherit; } .subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.SpecialChar { color: #d70000; } .Constant { color: #008787; } .subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -57,7 +59,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/126write-int-decimal.subx'>https://github.com/akkartik/mu/blob/main/baremetal/126write-int-decimal.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/126write-int-decimal.subx'>https://github.com/akkartik/mu/blob/main/linux/126write-int-decimal.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helper to print an int32 in decimal.</span> <span id="L2" class="LineNr"> 2 </span> @@ -129,10 +131,10 @@ if ('onhashchange' in window) { <span id="L68" class="LineNr"> 68 </span><span class="Constant">$write-int32-decimal:read-break</span>: <span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># if (n < 0) push('-')</span> <span id="L70" class="LineNr"> 70 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 0/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L71" class="LineNr"> 71 </span> 7d/jump-if->= $write-int32-decimal:<a href='108write.subx.html#L11'>write</a>/disp8 +<span id="L71" class="LineNr"> 71 </span> 7d/jump-if->= $write-int32-decimal:<a href='108write.subx.html#L24'>write</a>/disp8 <span id="L72" class="LineNr"> 72 </span><span class="Constant">$write-int32-decimal:push-negative</span>: <span id="L73" class="LineNr"> 73 </span> 68/push 0x2d/imm32/- -<span id="L74" class="LineNr"> 74 </span><span class="Constant">$write-int32-decimal:<a href='108write.subx.html#L11'>write</a></span>: +<span id="L74" class="LineNr"> 74 </span><span class="Constant">$write-int32-decimal:<a href='108write.subx.html#L24'>write</a></span>: <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># edi = out</span> <span id="L76" class="LineNr"> 76 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edi</span> <span id="L77" class="LineNr"> 77 </span> <span class="subxComment"># var w/edx: int = out->write</span> @@ -150,7 +152,7 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span> 74/jump-if-= $write-int32-decimal:write-break/disp8 <span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># if (curr >= max) abort</span> <span id="L91" class="LineNr"> 91 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with ebx</span> -<span id="L92" class="LineNr"> 92 </span> 73/jump-if-addr>= $write-int32-decimal:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 +<span id="L92" class="LineNr"> 92 </span> 73/jump-if-addr>= $write-int32-decimal:abort/disp8 <span id="L93" class="LineNr"> 93 </span><span class="Constant">$write-int32-decimal:write-char</span>: <span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># *curr = AL</span> <span id="L95" class="LineNr"> 95 </span> 88/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy AL to byte at *ecx</span> @@ -174,294 +176,332 @@ if ('onhashchange' in window) { <span id="L113" class="LineNr">113 </span> 5d/pop-to-ebp <span id="L114" class="LineNr">114 </span> c3/return <span id="L115" class="LineNr">115 </span> -<span id="L116" class="LineNr">116 </span><span class="Constant">$write-int32-decimal:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L117" class="LineNr">117 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-int32-decimal: stream out of space"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L118" class="LineNr">118 </span> { -<span id="L119" class="LineNr">119 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L120" class="LineNr">120 </span> } -<span id="L121" class="LineNr">121 </span> <span class="subxComment"># never gets here</span> -<span id="L122" class="LineNr">122 </span> -<span id="L123" class="LineNr">123 </span><span class="subxTest">test-write-int32-decimal</span>: -<span id="L124" class="LineNr">124 </span> <span class="subxH1Comment"># - check that a single-digit number converts correctly</span> -<span id="L125" class="LineNr">125 </span> <span class="subxComment"># setup</span> -<span id="L126" class="LineNr">126 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L128" class="LineNr">128 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L129" class="LineNr">129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L130" class="LineNr">130 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L132" class="LineNr">132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L133" class="LineNr">133 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 9)</span> +<span id="L116" class="LineNr">116 </span><span class="Constant">$write-int32-decimal:abort</span>: +<span id="L117" class="LineNr">117 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L118" class="LineNr">118 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L119" class="LineNr">119 </span> 68/push <span class="Constant">"write-int32-decimal: out of space\n"</span>/imm32 +<span id="L120" class="LineNr">120 </span> 68/push 2/imm32/stderr +<span id="L121" class="LineNr">121 </span> <span class="subxS2Comment"># . . call</span> +<span id="L122" class="LineNr">122 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L123" class="LineNr">123 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L124" class="LineNr">124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L125" class="LineNr">125 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L126" class="LineNr">126 </span> bb/copy-to-ebx 1/imm32 +<span id="L127" class="LineNr">127 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L128" class="LineNr">128 </span> <span class="subxComment"># never gets here</span> +<span id="L129" class="LineNr">129 </span> +<span id="L130" class="LineNr">130 </span><span class="subxTest">test-write-int32-decimal</span>: +<span id="L131" class="LineNr">131 </span> <span class="subxH1Comment"># - check that a single-digit number converts correctly</span> +<span id="L132" class="LineNr">132 </span> <span class="subxComment"># setup</span> +<span id="L133" class="LineNr">133 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L135" class="LineNr">135 </span> 68/push 9/imm32 -<span id="L136" class="LineNr">136 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L138" class="LineNr">138 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L140" class="LineNr">140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L141" class="LineNr">141 </span> <span class="subxComment"># check-stream-equal(_test-stream, "9", msg)</span> -<span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - test-write-int32-decimal"</span>/imm32 -<span id="L144" class="LineNr">144 </span> 68/push <span class="Constant">"9"</span>/imm32 -<span id="L145" class="LineNr">145 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . end</span> -<span id="L151" class="LineNr">151 </span> c3/return -<span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="subxTest">test-write-int32-decimal-zero</span>: -<span id="L154" class="LineNr">154 </span> <span class="subxH1Comment"># - check that 0 converts correctly</span> -<span id="L155" class="LineNr">155 </span> <span class="subxComment"># setup</span> -<span id="L156" class="LineNr">156 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L158" class="LineNr">158 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L160" class="LineNr">160 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L161" class="LineNr">161 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L162" class="LineNr">162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L163" class="LineNr">163 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 0)</span> +<span id="L135" class="LineNr">135 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . call</span> +<span id="L137" class="LineNr">137 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L139" class="LineNr">139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L140" class="LineNr">140 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 9)</span> +<span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L142" class="LineNr">142 </span> 68/push 9/imm32 +<span id="L143" class="LineNr">143 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . call</span> +<span id="L145" class="LineNr">145 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L147" class="LineNr">147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L148" class="LineNr">148 </span> <span class="subxComment"># check-stream-equal(_test-stream, "9", msg)</span> +<span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L150" class="LineNr">150 </span> 68/push <span class="Constant">"F - test-write-int32-decimal"</span>/imm32 +<span id="L151" class="LineNr">151 </span> 68/push <span class="Constant">"9"</span>/imm32 +<span id="L152" class="LineNr">152 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L153" class="LineNr">153 </span> <span class="subxS2Comment"># . . call</span> +<span id="L154" class="LineNr">154 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L155" class="LineNr">155 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L156" class="LineNr">156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L157" class="LineNr">157 </span> <span class="subxS1Comment"># . end</span> +<span id="L158" class="LineNr">158 </span> c3/return +<span id="L159" class="LineNr">159 </span> +<span id="L160" class="LineNr">160 </span><span class="subxTest">test-write-int32-decimal-zero</span>: +<span id="L161" class="LineNr">161 </span> <span class="subxH1Comment"># - check that 0 converts correctly</span> +<span id="L162" class="LineNr">162 </span> <span class="subxComment"># setup</span> +<span id="L163" class="LineNr">163 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L165" class="LineNr">165 </span> 68/push 0/imm32 -<span id="L166" class="LineNr">166 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L168" class="LineNr">168 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L169" class="LineNr">169 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L170" class="LineNr">170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L171" class="LineNr">171 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0", msg)</span> -<span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L173" class="LineNr">173 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-zero"</span>/imm32 -<span id="L174" class="LineNr">174 </span> 68/push <span class="Constant">"0"</span>/imm32 -<span id="L175" class="LineNr">175 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . call</span> -<span id="L177" class="LineNr">177 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L179" class="LineNr">179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L180" class="LineNr">180 </span> <span class="subxS1Comment"># . end</span> -<span id="L181" class="LineNr">181 </span> c3/return -<span id="L182" class="LineNr">182 </span> -<span id="L183" class="LineNr">183 </span><span class="subxTest">test-write-int32-decimal-multiple-digits</span>: -<span id="L184" class="LineNr">184 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> -<span id="L185" class="LineNr">185 </span> <span class="subxComment"># setup</span> -<span id="L186" class="LineNr">186 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L188" class="LineNr">188 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L189" class="LineNr">189 </span> <span class="subxS2Comment"># . . call</span> -<span id="L190" class="LineNr">190 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L192" class="LineNr">192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L193" class="LineNr">193 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 10)</span> +<span id="L165" class="LineNr">165 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> +<span id="L167" class="LineNr">167 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L169" class="LineNr">169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L170" class="LineNr">170 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 0)</span> +<span id="L171" class="LineNr">171 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L172" class="LineNr">172 </span> 68/push 0/imm32 +<span id="L173" class="LineNr">173 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . call</span> +<span id="L175" class="LineNr">175 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L177" class="LineNr">177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L178" class="LineNr">178 </span> <span class="subxComment"># check-stream-equal(_test-stream, "0", msg)</span> +<span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L180" class="LineNr">180 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-zero"</span>/imm32 +<span id="L181" class="LineNr">181 </span> 68/push <span class="Constant">"0"</span>/imm32 +<span id="L182" class="LineNr">182 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . call</span> +<span id="L184" class="LineNr">184 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L186" class="LineNr">186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L187" class="LineNr">187 </span> <span class="subxS1Comment"># . end</span> +<span id="L188" class="LineNr">188 </span> c3/return +<span id="L189" class="LineNr">189 </span> +<span id="L190" class="LineNr">190 </span><span class="subxTest">test-write-int32-decimal-multiple-digits</span>: +<span id="L191" class="LineNr">191 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> +<span id="L192" class="LineNr">192 </span> <span class="subxComment"># setup</span> +<span id="L193" class="LineNr">193 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L195" class="LineNr">195 </span> 68/push 0xa/imm32 -<span id="L196" class="LineNr">196 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L197" class="LineNr">197 </span> <span class="subxS2Comment"># . . call</span> -<span id="L198" class="LineNr">198 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L199" class="LineNr">199 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L200" class="LineNr">200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L201" class="LineNr">201 </span> <span class="subxComment"># check-stream-equal(_test-stream, "10", msg)</span> -<span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L203" class="LineNr">203 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-multiple-digits"</span>/imm32 -<span id="L204" class="LineNr">204 </span> 68/push <span class="Constant">"10"</span>/imm32 -<span id="L205" class="LineNr">205 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L207" class="LineNr">207 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L208" class="LineNr">208 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L209" class="LineNr">209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L210" class="LineNr">210 </span> <span class="subxS1Comment"># . end</span> -<span id="L211" class="LineNr">211 </span> c3/return -<span id="L212" class="LineNr">212 </span> -<span id="L213" class="LineNr">213 </span><span class="subxTest">test-write-int32-decimal-negative</span>: -<span id="L214" class="LineNr">214 </span> <span class="subxH1Comment"># - check that a negative single-digit number converts correctly</span> -<span id="L215" class="LineNr">215 </span> <span class="subxComment"># setup</span> -<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L218" class="LineNr">218 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . call</span> -<span id="L220" class="LineNr">220 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L222" class="LineNr">222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L223" class="LineNr">223 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -9)</span> +<span id="L195" class="LineNr">195 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L196" class="LineNr">196 </span> <span class="subxS2Comment"># . . call</span> +<span id="L197" class="LineNr">197 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L199" class="LineNr">199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L200" class="LineNr">200 </span> <span class="subxComment"># write-int32-decimal(_test-stream, 10)</span> +<span id="L201" class="LineNr">201 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L202" class="LineNr">202 </span> 68/push 0xa/imm32 +<span id="L203" class="LineNr">203 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> +<span id="L205" class="LineNr">205 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L208" class="LineNr">208 </span> <span class="subxComment"># check-stream-equal(_test-stream, "10", msg)</span> +<span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L210" class="LineNr">210 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-multiple-digits"</span>/imm32 +<span id="L211" class="LineNr">211 </span> 68/push <span class="Constant">"10"</span>/imm32 +<span id="L212" class="LineNr">212 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L213" class="LineNr">213 </span> <span class="subxS2Comment"># . . call</span> +<span id="L214" class="LineNr">214 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L215" class="LineNr">215 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L216" class="LineNr">216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . end</span> +<span id="L218" class="LineNr">218 </span> c3/return +<span id="L219" class="LineNr">219 </span> +<span id="L220" class="LineNr">220 </span><span class="subxTest">test-write-int32-decimal-negative</span>: +<span id="L221" class="LineNr">221 </span> <span class="subxH1Comment"># - check that a negative single-digit number converts correctly</span> +<span id="L222" class="LineNr">222 </span> <span class="subxComment"># setup</span> +<span id="L223" class="LineNr">223 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L224" class="LineNr">224 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L225" class="LineNr">225 </span> 68/push -9/imm32 -<span id="L226" class="LineNr">226 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . call</span> -<span id="L228" class="LineNr">228 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L229" class="LineNr">229 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L230" class="LineNr">230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L231" class="Folded">231 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream ------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L257" class="LineNr">257 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-9", msg)</span> -<span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L259" class="LineNr">259 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative"</span>/imm32 -<span id="L260" class="LineNr">260 </span> 68/push <span class="Constant">"-9"</span>/imm32 -<span id="L261" class="LineNr">261 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . call</span> -<span id="L263" class="LineNr">263 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L265" class="LineNr">265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L266" class="LineNr">266 </span> <span class="subxS1Comment"># . end</span> -<span id="L267" class="LineNr">267 </span> c3/return -<span id="L268" class="LineNr">268 </span> -<span id="L269" class="LineNr">269 </span><span class="subxTest">test-write-int32-decimal-negative-multiple-digits</span>: -<span id="L270" class="LineNr">270 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> -<span id="L271" class="LineNr">271 </span> <span class="subxComment"># setup</span> -<span id="L272" class="LineNr">272 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> -<span id="L273" class="LineNr">273 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . call</span> -<span id="L276" class="LineNr">276 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 -<span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L278" class="LineNr">278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L279" class="LineNr">279 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -10)</span> +<span id="L225" class="LineNr">225 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . call</span> +<span id="L227" class="LineNr">227 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L228" class="LineNr">228 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L229" class="LineNr">229 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L230" class="LineNr">230 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -9)</span> +<span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L232" class="LineNr">232 </span> 68/push -9/imm32 +<span id="L233" class="LineNr">233 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> +<span id="L235" class="LineNr">235 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L237" class="LineNr">237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L238" class="Folded">238 </span><span class="Folded">+-- 26 lines: #? # dump _test-stream ------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L264" class="LineNr">264 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-9", msg)</span> +<span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L266" class="LineNr">266 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative"</span>/imm32 +<span id="L267" class="LineNr">267 </span> 68/push <span class="Constant">"-9"</span>/imm32 +<span id="L268" class="LineNr">268 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L269" class="LineNr">269 </span> <span class="subxS2Comment"># . . call</span> +<span id="L270" class="LineNr">270 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L271" class="LineNr">271 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L272" class="LineNr">272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L273" class="LineNr">273 </span> <span class="subxS1Comment"># . end</span> +<span id="L274" class="LineNr">274 </span> c3/return +<span id="L275" class="LineNr">275 </span> +<span id="L276" class="LineNr">276 </span><span class="subxTest">test-write-int32-decimal-negative-multiple-digits</span>: +<span id="L277" class="LineNr">277 </span> <span class="subxH1Comment"># - check that a multi-digit number converts correctly</span> +<span id="L278" class="LineNr">278 </span> <span class="subxComment"># setup</span> +<span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L281" class="LineNr">281 </span> 68/push -0xa/imm32 -<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . call</span> -<span id="L284" class="LineNr">284 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 -<span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L286" class="LineNr">286 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L287" class="LineNr">287 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-10", msg)</span> -<span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L289" class="LineNr">289 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative-multiple-digits"</span>/imm32 -<span id="L290" class="LineNr">290 </span> 68/push <span class="Constant">"-10"</span>/imm32 -<span id="L291" class="LineNr">291 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 -<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . call</span> -<span id="L293" class="LineNr">293 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L295" class="LineNr">295 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L296" class="LineNr">296 </span> <span class="subxS1Comment"># . end</span> -<span id="L297" class="LineNr">297 </span> c3/return -<span id="L298" class="LineNr">298 </span> -<span id="L299" class="LineNr">299 </span><span class="subxFunction">is-decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> -<span id="L300" class="LineNr">300 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L301" class="LineNr">301 </span> 55/push-ebp -<span id="L302" class="LineNr">302 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L304" class="LineNr">304 </span> 51/push-ecx -<span id="L305" class="LineNr">305 </span> <span class="subxComment"># ecx = c</span> -<span id="L306" class="LineNr">306 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> -<span id="L307" class="LineNr">307 </span> <span class="subxComment"># result = false</span> -<span id="L308" class="LineNr">308 </span> b8/copy-to-eax 0/imm32/false -<span id="L309" class="LineNr">309 </span> <span class="subxComment"># return false if c < '0'</span> -<span id="L310" class="LineNr">310 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> -<span id="L311" class="LineNr">311 </span> 7c/jump-if-< $is-decimal-digit?:end/disp8 -<span id="L312" class="LineNr">312 </span> <span class="subxComment"># return (c <= '9')</span> -<span id="L313" class="LineNr">313 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> -<span id="L314" class="LineNr">314 </span> 7f/jump-if-> $is-decimal-digit?:end/disp8 -<span id="L315" class="LineNr">315 </span><span class="Constant">$is-decimal-digit?:true</span>: -<span id="L316" class="LineNr">316 </span> b8/copy-to-eax 1/imm32/true -<span id="L317" class="LineNr">317 </span><span class="Constant">$is-decimal-digit?:end</span>: -<span id="L318" class="LineNr">318 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L319" class="LineNr">319 </span> 59/pop-to-ecx -<span id="L320" class="LineNr">320 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L321" class="LineNr">321 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L322" class="LineNr">322 </span> 5d/pop-to-ebp -<span id="L323" class="LineNr">323 </span> c3/return -<span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="subxTest">test-is-decimal-digit-below-0</span>: -<span id="L326" class="LineNr">326 </span> <span class="subxComment"># eax = is-decimal-digit?(0x2f)</span> -<span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L328" class="LineNr">328 </span> 68/push 0x2f/imm32 -<span id="L329" class="LineNr">329 </span> <span class="subxS2Comment"># . . call</span> -<span id="L330" class="LineNr">330 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>is-decimal-digit?</a>/disp32 -<span id="L331" class="LineNr">331 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L332" class="LineNr">332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L333" class="LineNr">333 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L281" class="LineNr">281 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . call</span> +<span id="L283" class="LineNr">283 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L284" class="LineNr">284 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L285" class="LineNr">285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L286" class="LineNr">286 </span> <span class="subxComment"># write-int32-decimal(_test-stream, -10)</span> +<span id="L287" class="LineNr">287 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L288" class="LineNr">288 </span> 68/push -0xa/imm32 +<span id="L289" class="LineNr">289 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L290" class="LineNr">290 </span> <span class="subxS2Comment"># . . call</span> +<span id="L291" class="LineNr">291 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L293" class="LineNr">293 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L294" class="LineNr">294 </span> <span class="subxComment"># check-stream-equal(_test-stream, "-10", msg)</span> +<span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L296" class="LineNr">296 </span> 68/push <span class="Constant">"F - test-write-int32-decimal-negative-multiple-digits"</span>/imm32 +<span id="L297" class="LineNr">297 </span> 68/push <span class="Constant">"-10"</span>/imm32 +<span id="L298" class="LineNr">298 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L299" class="LineNr">299 </span> <span class="subxS2Comment"># . . call</span> +<span id="L300" class="LineNr">300 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L301" class="LineNr">301 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L302" class="LineNr">302 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . end</span> +<span id="L304" class="LineNr">304 </span> c3/return +<span id="L305" class="LineNr">305 </span> +<span id="L306" class="LineNr">306 </span><span class="subxFunction">decimal-digit?</span>: <span class="subxComment"># c: grapheme -> result/eax: boolean</span> +<span id="L307" class="LineNr">307 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L308" class="LineNr">308 </span> 55/push-ebp +<span id="L309" class="LineNr">309 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L310" class="LineNr">310 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L311" class="LineNr">311 </span> 51/push-ecx +<span id="L312" class="LineNr">312 </span> <span class="subxComment"># ecx = c</span> +<span id="L313" class="LineNr">313 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L314" class="LineNr">314 </span> <span class="subxComment"># result = false</span> +<span id="L315" class="LineNr">315 </span> b8/copy-to-eax 0/imm32/false +<span id="L316" class="LineNr">316 </span> <span class="subxComment"># return false if c < '0'</span> +<span id="L317" class="LineNr">317 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># compare ecx</span> +<span id="L318" class="LineNr">318 </span> 7c/jump-if-< $decimal-digit?:end/disp8 +<span id="L319" class="LineNr">319 </span> <span class="subxComment"># return (c <= '9')</span> +<span id="L320" class="LineNr">320 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x39/imm32 <span class="subxComment"># compare ecx</span> +<span id="L321" class="LineNr">321 </span> 7f/jump-if-> $decimal-digit?:end/disp8 +<span id="L322" class="LineNr">322 </span><span class="Constant">$decimal-digit?:true</span>: +<span id="L323" class="LineNr">323 </span> b8/copy-to-eax 1/imm32/true +<span id="L324" class="LineNr">324 </span><span class="Constant">$decimal-digit?:end</span>: +<span id="L325" class="LineNr">325 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L326" class="LineNr">326 </span> 59/pop-to-ecx +<span id="L327" class="LineNr">327 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L328" class="LineNr">328 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L329" class="LineNr">329 </span> 5d/pop-to-ebp +<span id="L330" class="LineNr">330 </span> c3/return +<span id="L331" class="LineNr">331 </span> +<span id="L332" class="LineNr">332 </span><span class="subxTest">test-decimal-digit-below-0</span>: +<span id="L333" class="LineNr">333 </span> <span class="subxComment"># eax = decimal-digit?(0x2f)</span> <span id="L334" class="LineNr">334 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L335" class="LineNr">335 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-below-0"</span>/imm32 -<span id="L336" class="LineNr">336 </span> 68/push 0/imm32/false -<span id="L337" class="LineNr">337 </span> 50/push-eax -<span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . call</span> -<span id="L339" class="LineNr">339 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L340" class="LineNr">340 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L341" class="LineNr">341 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L342" class="LineNr">342 </span> c3/return -<span id="L343" class="LineNr">343 </span> -<span id="L344" class="LineNr">344 </span><span class="subxTest">test-is-decimal-digit-0-to-9</span>: -<span id="L345" class="LineNr">345 </span> <span class="subxComment"># eax = is-decimal-digit?(0x30)</span> -<span id="L346" class="LineNr">346 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L347" class="LineNr">347 </span> 68/push 0x30/imm32 -<span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L349" class="LineNr">349 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>is-decimal-digit?</a>/disp32 -<span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L351" class="LineNr">351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L352" class="LineNr">352 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L335" class="LineNr">335 </span> 68/push 0x2f/imm32 +<span id="L336" class="LineNr">336 </span> <span class="subxS2Comment"># . . call</span> +<span id="L337" class="LineNr">337 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a>/disp32 +<span id="L338" class="LineNr">338 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L339" class="LineNr">339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L340" class="LineNr">340 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L342" class="LineNr">342 </span> 68/push <span class="Constant">"F - test-decimal-digit-below-0"</span>/imm32 +<span id="L343" class="LineNr">343 </span> 68/push 0/imm32/false +<span id="L344" class="LineNr">344 </span> 50/push-eax +<span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . call</span> +<span id="L346" class="LineNr">346 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L348" class="LineNr">348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L349" class="LineNr">349 </span> c3/return +<span id="L350" class="LineNr">350 </span> +<span id="L351" class="LineNr">351 </span><span class="subxTest">test-decimal-digit-0-to-9</span>: +<span id="L352" class="LineNr">352 </span> <span class="subxComment"># eax = decimal-digit?(0x30)</span> <span id="L353" class="LineNr">353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L354" class="LineNr">354 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-at-0"</span>/imm32 -<span id="L355" class="LineNr">355 </span> 68/push 1/imm32/true -<span id="L356" class="LineNr">356 </span> 50/push-eax -<span id="L357" class="LineNr">357 </span> <span class="subxS2Comment"># . . call</span> -<span id="L358" class="LineNr">358 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L359" class="LineNr">359 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L360" class="LineNr">360 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L361" class="LineNr">361 </span> <span class="subxComment"># eax = is-decimal-digit?(0x39)</span> -<span id="L362" class="LineNr">362 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L363" class="LineNr">363 </span> 68/push 0x39/imm32 +<span id="L354" class="LineNr">354 </span> 68/push 0x30/imm32 +<span id="L355" class="LineNr">355 </span> <span class="subxS2Comment"># . . call</span> +<span id="L356" class="LineNr">356 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a>/disp32 +<span id="L357" class="LineNr">357 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L358" class="LineNr">358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L359" class="LineNr">359 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L361" class="LineNr">361 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-0"</span>/imm32 +<span id="L362" class="LineNr">362 </span> 68/push 1/imm32/true +<span id="L363" class="LineNr">363 </span> 50/push-eax <span id="L364" class="LineNr">364 </span> <span class="subxS2Comment"># . . call</span> -<span id="L365" class="LineNr">365 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>is-decimal-digit?</a>/disp32 +<span id="L365" class="LineNr">365 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L367" class="LineNr">367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L368" class="LineNr">368 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L367" class="LineNr">367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L368" class="LineNr">368 </span> <span class="subxComment"># eax = decimal-digit?(0x39)</span> <span id="L369" class="LineNr">369 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L370" class="LineNr">370 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-at-9"</span>/imm32 -<span id="L371" class="LineNr">371 </span> 68/push 1/imm32/true -<span id="L372" class="LineNr">372 </span> 50/push-eax -<span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . call</span> -<span id="L374" class="LineNr">374 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L376" class="LineNr">376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L377" class="LineNr">377 </span> c3/return -<span id="L378" class="LineNr">378 </span> -<span id="L379" class="LineNr">379 </span><span class="subxTest">test-is-decimal-digit-above-9</span>: -<span id="L380" class="LineNr">380 </span> <span class="subxComment"># eax = is-decimal-digit?(0x3a)</span> -<span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L382" class="LineNr">382 </span> 68/push 0x3a/imm32 -<span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . call</span> -<span id="L384" class="LineNr">384 </span> e8/call <a href='126write-int-decimal.subx.html#L299'>is-decimal-digit?</a>/disp32 -<span id="L385" class="LineNr">385 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L386" class="LineNr">386 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L387" class="LineNr">387 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L370" class="LineNr">370 </span> 68/push 0x39/imm32 +<span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . call</span> +<span id="L372" class="LineNr">372 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a>/disp32 +<span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L374" class="LineNr">374 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L375" class="LineNr">375 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> +<span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L377" class="LineNr">377 </span> 68/push <span class="Constant">"F - test-decimal-digit-at-9"</span>/imm32 +<span id="L378" class="LineNr">378 </span> 68/push 1/imm32/true +<span id="L379" class="LineNr">379 </span> 50/push-eax +<span id="L380" class="LineNr">380 </span> <span class="subxS2Comment"># . . call</span> +<span id="L381" class="LineNr">381 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L382" class="LineNr">382 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L383" class="LineNr">383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L384" class="LineNr">384 </span> c3/return +<span id="L385" class="LineNr">385 </span> +<span id="L386" class="LineNr">386 </span><span class="subxTest">test-decimal-digit-above-9</span>: +<span id="L387" class="LineNr">387 </span> <span class="subxComment"># eax = decimal-digit?(0x3a)</span> <span id="L388" class="LineNr">388 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L389" class="LineNr">389 </span> 68/push <span class="Constant">"F - test-is-decimal-digit-above-9"</span>/imm32 -<span id="L390" class="LineNr">390 </span> 68/push 0/imm32/false -<span id="L391" class="LineNr">391 </span> 50/push-eax -<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . call</span> -<span id="L393" class="LineNr">393 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 -<span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L395" class="LineNr">395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L396" class="LineNr">396 </span> c3/return -<span id="L397" class="LineNr">397 </span> -<span id="L398" class="LineNr">398 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> -<span id="L399" class="LineNr">399 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L400" class="LineNr">400 </span> 55/push-ebp -<span id="L401" class="LineNr">401 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L402" class="LineNr">402 </span> <span class="subxComment"># eax = in</span> -<span id="L403" class="LineNr">403 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> -<span id="L404" class="LineNr">404 </span><span class="Constant">$to-decimal-digit:check0</span>: -<span id="L405" class="LineNr">405 </span> <span class="subxComment"># if (eax < '0') goto abort</span> -<span id="L406" class="LineNr">406 </span> 3d/compare-eax-with 0x30/imm32/0 -<span id="L407" class="LineNr">407 </span> 7c/jump-if-< $to-decimal-digit:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 -<span id="L408" class="LineNr">408 </span><span class="Constant">$to-decimal-digit:check1</span>: -<span id="L409" class="LineNr">409 </span> <span class="subxComment"># if (eax > '9') goto abort</span> -<span id="L410" class="LineNr">410 </span> 3d/compare-eax-with 0x39/imm32/f -<span id="L411" class="LineNr">411 </span> 7f/jump-if-> $to-decimal-digit:<a href='501draw-text.mu.html#L519'>abort</a>/disp8 -<span id="L412" class="LineNr">412 </span><span class="Constant">$to-decimal-digit:digit</span>: -<span id="L413" class="LineNr">413 </span> <span class="subxComment"># return eax - '0'</span> -<span id="L414" class="LineNr">414 </span> 2d/subtract-from-eax 0x30/imm32/0 -<span id="L415" class="LineNr">415 </span><span class="Constant">$to-decimal-digit:end</span>: -<span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L417" class="LineNr">417 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L418" class="LineNr">418 </span> 5d/pop-to-ebp -<span id="L419" class="LineNr">419 </span> c3/return -<span id="L420" class="LineNr">420 </span> -<span id="L421" class="LineNr">421 </span><span class="Constant">$to-decimal-digit:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L422" class="LineNr">422 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"to-decimal-digit: not a digit character"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L423" class="LineNr">423 </span> { -<span id="L424" class="LineNr">424 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L425" class="LineNr">425 </span> } -<span id="L426" class="LineNr">426 </span> <span class="subxComment"># never gets here</span> +<span id="L389" class="LineNr">389 </span> 68/push 0x3a/imm32 +<span id="L390" class="LineNr">390 </span> <span class="subxS2Comment"># . . call</span> +<span id="L391" class="LineNr">391 </span> e8/call <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a>/disp32 +<span id="L392" class="LineNr">392 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L393" class="LineNr">393 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L394" class="LineNr">394 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L395" class="LineNr">395 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L396" class="LineNr">396 </span> 68/push <span class="Constant">"F - test-decimal-digit-above-9"</span>/imm32 +<span id="L397" class="LineNr">397 </span> 68/push 0/imm32/false +<span id="L398" class="LineNr">398 </span> 50/push-eax +<span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . call</span> +<span id="L400" class="LineNr">400 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L402" class="LineNr">402 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L403" class="LineNr">403 </span> c3/return +<span id="L404" class="LineNr">404 </span> +<span id="L405" class="LineNr">405 </span><span class="subxFunction">to-decimal-digit</span>: <span class="subxComment"># in: grapheme -> out/eax: int</span> +<span id="L406" class="LineNr">406 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L407" class="LineNr">407 </span> 55/push-ebp +<span id="L408" class="LineNr">408 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L409" class="LineNr">409 </span> <span class="subxComment"># eax = in</span> +<span id="L410" class="LineNr">410 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> +<span id="L411" class="LineNr">411 </span><span class="Constant">$to-decimal-digit:check0</span>: +<span id="L412" class="LineNr">412 </span> <span class="subxComment"># if (eax < '0') goto abort</span> +<span id="L413" class="LineNr">413 </span> 3d/compare-eax-with 0x30/imm32/0 +<span id="L414" class="LineNr">414 </span> 7c/jump-if-< $to-decimal-digit:abort/disp8 +<span id="L415" class="LineNr">415 </span><span class="Constant">$to-decimal-digit:check1</span>: +<span id="L416" class="LineNr">416 </span> <span class="subxComment"># if (eax > '9') goto abort</span> +<span id="L417" class="LineNr">417 </span> 3d/compare-eax-with 0x39/imm32/f +<span id="L418" class="LineNr">418 </span> 7f/jump-if-> $to-decimal-digit:abort/disp8 +<span id="L419" class="LineNr">419 </span><span class="Constant">$to-decimal-digit:digit</span>: +<span id="L420" class="LineNr">420 </span> <span class="subxComment"># return eax - '0'</span> +<span id="L421" class="LineNr">421 </span> 2d/subtract-from-eax 0x30/imm32/0 +<span id="L422" class="LineNr">422 </span><span class="Constant">$to-decimal-digit:end</span>: +<span id="L423" class="LineNr">423 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L424" class="LineNr">424 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L425" class="LineNr">425 </span> 5d/pop-to-ebp +<span id="L426" class="LineNr">426 </span> c3/return <span id="L427" class="LineNr">427 </span> -<span id="L428" class="LineNr">428 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L428" class="LineNr">428 </span><span class="Constant">$to-decimal-digit:abort</span>: +<span id="L429" class="LineNr">429 </span> <span class="subxS1Comment"># . write-buffered(stderr, error)</span> +<span id="L430" class="LineNr">430 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L431" class="LineNr">431 </span> 68/push <span class="Constant">"to-decimal-digit: not a digit character: "</span>/imm32 +<span id="L432" class="LineNr">432 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . call</span> +<span id="L434" class="LineNr">434 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L435" class="LineNr">435 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L436" class="LineNr">436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L437" class="LineNr">437 </span> <span class="subxS1Comment"># . write-byte-buffered(stderr, %eax)</span> +<span id="L438" class="LineNr">438 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L439" class="LineNr">439 </span> 50/push-eax +<span id="L440" class="LineNr">440 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L441" class="LineNr">441 </span> <span class="subxS2Comment"># . . call</span> +<span id="L442" class="LineNr">442 </span><span class="CommentedCode">#? e8/call write-byte-buffered/disp32</span> +<span id="L443" class="LineNr">443 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L444" class="LineNr">444 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L445" class="LineNr">445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L446" class="LineNr">446 </span> <span class="subxS1Comment"># . write-buffered(stderr, "\n")</span> +<span id="L447" class="LineNr">447 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L448" class="LineNr">448 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L449" class="LineNr">449 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L450" class="LineNr">450 </span> <span class="subxS2Comment"># . . call</span> +<span id="L451" class="LineNr">451 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L452" class="LineNr">452 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L453" class="LineNr">453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L454" class="LineNr">454 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L455" class="LineNr">455 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L456" class="LineNr">456 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L457" class="LineNr">457 </span> <span class="subxS2Comment"># . . call</span> +<span id="L458" class="LineNr">458 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L459" class="LineNr">459 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L460" class="LineNr">460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L461" class="LineNr">461 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L462" class="LineNr">462 </span> bb/copy-to-ebx 1/imm32 +<span id="L463" class="LineNr">463 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L464" class="LineNr">464 </span> <span class="subxComment"># never gets here</span> +<span id="L465" class="LineNr">465 </span> +<span id="L466" class="LineNr">466 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/baremetal/127next-word.subx.html b/html/linux/127next-word.subx.html index 48602939..ab525e3c 100644 --- a/html/baremetal/127next-word.subx.html +++ b/html/linux/127next-word.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/127next-word.subx</title> +<title>Mu - linux/127next-word.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/127next-word.subx'>https://github.com/akkartik/mu/blob/main/baremetal/127next-word.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/127next-word.subx'>https://github.com/akkartik/mu/blob/main/linux/127next-word.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Tokenize by whitespace.</span> <span id="L2" class="LineNr"> 2 </span> @@ -150,9 +150,9 @@ if ('onhashchange' in window) { <span id="L91" class="LineNr"> 91 </span> <span class="subxComment"># setup</span> <span id="L92" class="LineNr"> 92 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L94" class="LineNr"> 94 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L94" class="LineNr"> 94 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L95" class="LineNr"> 95 </span> <span class="subxS2Comment"># . . call</span> -<span id="L96" class="LineNr"> 96 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L96" class="LineNr"> 96 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L98" class="LineNr"> 98 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L99" class="LineNr"> 99 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -162,15 +162,15 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr">103 </span> <span class="subxComment"># write(_test-stream, " ab")</span> <span id="L104" class="LineNr">104 </span> <span class="subxS2Comment"># . . push args</span> <span id="L105" class="LineNr">105 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L106" class="LineNr">106 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L106" class="LineNr">106 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . call</span> -<span id="L108" class="LineNr">108 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L108" class="LineNr">108 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L110" class="LineNr">110 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L111" class="LineNr">111 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> <span id="L113" class="LineNr">113 </span> 51/push-ecx -<span id="L114" class="LineNr">114 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L114" class="LineNr">114 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L115" class="LineNr">115 </span> <span class="subxS2Comment"># . . call</span> <span id="L116" class="LineNr">116 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L117" class="LineNr">117 </span> <span class="subxS2Comment"># . . discard args</span> @@ -182,10 +182,10 @@ if ('onhashchange' in window) { <span id="L123" class="LineNr">123 </span> 68/push 0xe/imm32 <span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> <span id="L125" class="LineNr">125 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L126" class="LineNr">126 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L126" class="LineNr">126 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L127" class="LineNr">127 </span> 50/push-eax <span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . call</span> -<span id="L129" class="LineNr">129 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L129" class="LineNr">129 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L131" class="LineNr">131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L132" class="LineNr">132 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 4, msg)</span> @@ -195,10 +195,10 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span> 68/push 0x10/imm32 <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> <span id="L138" class="LineNr">138 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L139" class="LineNr">139 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L139" class="LineNr">139 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L140" class="LineNr">140 </span> 50/push-eax <span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . call</span> -<span id="L142" class="LineNr">142 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L142" class="LineNr">142 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L143" class="LineNr">143 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L144" class="LineNr">144 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . epilogue</span> @@ -213,9 +213,9 @@ if ('onhashchange' in window) { <span id="L154" class="LineNr">154 </span> <span class="subxComment"># setup</span> <span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L157" class="LineNr">157 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L157" class="LineNr">157 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> -<span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L161" class="LineNr">161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L162" class="LineNr">162 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -225,15 +225,15 @@ if ('onhashchange' in window) { <span id="L166" class="LineNr">166 </span> <span class="subxComment"># write(_test-stream, " # a")</span> <span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . push args</span> <span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L169" class="LineNr">169 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L169" class="LineNr">169 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> -<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L174" class="LineNr">174 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . push args</span> <span id="L176" class="LineNr">176 </span> 51/push-ecx -<span id="L177" class="LineNr">177 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L177" class="LineNr">177 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L178" class="LineNr">178 </span> <span class="subxS2Comment"># . . call</span> <span id="L179" class="LineNr">179 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L180" class="LineNr">180 </span> <span class="subxS2Comment"># . . discard args</span> @@ -245,10 +245,10 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr">186 </span> 68/push 0xe/imm32 <span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push slice->start - _test-stream</span> <span id="L188" class="LineNr">188 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L189" class="LineNr">189 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L189" class="LineNr">189 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L190" class="LineNr">190 </span> 50/push-eax <span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . call</span> -<span id="L192" class="LineNr">192 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L192" class="LineNr">192 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L194" class="LineNr">194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L195" class="LineNr">195 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-stream->data, 5, msg)</span> @@ -258,10 +258,10 @@ if ('onhashchange' in window) { <span id="L199" class="LineNr">199 </span> 68/push 0x11/imm32 <span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . push slice->end - _test-stream</span> <span id="L201" class="LineNr">201 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L202" class="LineNr">202 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L125'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L202" class="LineNr">202 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> <span id="L203" class="LineNr">203 </span> 50/push-eax <span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L205" class="LineNr">205 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L205" class="LineNr">205 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . epilogue</span> @@ -276,9 +276,9 @@ if ('onhashchange' in window) { <span id="L217" class="LineNr">217 </span> <span class="subxComment"># setup</span> <span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L220" class="LineNr">220 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L220" class="LineNr">220 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . call</span> -<span id="L222" class="LineNr">222 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L222" class="LineNr">222 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L223" class="LineNr">223 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L224" class="LineNr">224 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L225" class="LineNr">225 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -289,7 +289,7 @@ if ('onhashchange' in window) { <span id="L230" class="LineNr">230 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L231" class="LineNr">231 </span> <span class="subxS2Comment"># . . push args</span> <span id="L232" class="LineNr">232 </span> 51/push-ecx -<span id="L233" class="LineNr">233 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L233" class="LineNr">233 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> <span id="L235" class="LineNr">235 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> @@ -303,7 +303,7 @@ if ('onhashchange' in window) { <span id="L244" class="LineNr">244 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> <span id="L245" class="LineNr">245 </span> 50/push-eax <span id="L246" class="LineNr">246 </span> <span class="subxS2Comment"># . . call</span> -<span id="L247" class="LineNr">247 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L247" class="LineNr">247 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L248" class="LineNr">248 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L249" class="LineNr">249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L250" class="LineNr">250 </span> <span class="subxS1Comment"># . epilogue</span> @@ -318,9 +318,9 @@ if ('onhashchange' in window) { <span id="L259" class="LineNr">259 </span> <span class="subxComment"># setup</span> <span id="L260" class="LineNr">260 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L261" class="LineNr">261 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L262" class="LineNr">262 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L262" class="LineNr">262 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L263" class="LineNr">263 </span> <span class="subxS2Comment"># . . call</span> -<span id="L264" class="LineNr">264 </span> e8/call <a href='106stream.subx.html#L20'>clear-stream</a>/disp32 +<span id="L264" class="LineNr">264 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L265" class="LineNr">265 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L266" class="LineNr">266 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L267" class="LineNr">267 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -330,15 +330,15 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr">271 </span> <span class="subxComment"># write some whitespace and a newline</span> <span id="L272" class="LineNr">272 </span> <span class="subxS2Comment"># . . push args</span> <span id="L273" class="LineNr">273 </span> 68/push <span class="Constant">" \n"</span>/imm32 -<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L274" class="LineNr">274 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L275" class="LineNr">275 </span> <span class="subxS2Comment"># . . call</span> -<span id="L276" class="LineNr">276 </span> e8/call <a href='108write.subx.html#L11'>write</a>/disp32 +<span id="L276" class="LineNr">276 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L277" class="LineNr">277 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L278" class="LineNr">278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L279" class="LineNr">279 </span> <span class="subxComment"># next-word(_test-stream, slice)</span> <span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . push args</span> <span id="L281" class="LineNr">281 </span> 51/push-ecx -<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L125'>_test-stream</a>/imm32 +<span id="L282" class="LineNr">282 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . call</span> <span id="L284" class="LineNr">284 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . discard args</span> @@ -352,7 +352,7 @@ if ('onhashchange' in window) { <span id="L293" class="LineNr">293 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> <span id="L294" class="LineNr">294 </span> 50/push-eax <span id="L295" class="LineNr">295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L296" class="LineNr">296 </span> e8/call <a href='502test.mu.html#L2'>check-ints-equal</a>/disp32 +<span id="L296" class="LineNr">296 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L297" class="LineNr">297 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L298" class="LineNr">298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L299" class="LineNr">299 </span> <span class="subxS1Comment"># . epilogue</span> diff --git a/html/128subx-words.subx.html b/html/linux/128subx-words.subx.html index 48783fac..817afca9 100644 --- a/html/128subx-words.subx.html +++ b/html/linux/128subx-words.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 128subx-words.subx</title> +<title>Mu - linux/128subx-words.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/128subx-words.subx'>https://github.com/akkartik/mu/blob/main/128subx-words.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/128subx-words.subx'>https://github.com/akkartik/mu/blob/main/linux/128subx-words.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helpers for parsing SubX words, with their rules for hex, labels and metadata.</span> <span id="L2" class="LineNr"> 2 </span> @@ -334,7 +334,7 @@ if ('onhashchange' in window) { <span id="L275" class="LineNr">275 </span><span class="subxComment">#: - if it starts with '0x' it's treated as a number. (redundant)</span> <span id="L276" class="LineNr">276 </span><span class="subxComment">#: - if it's two characters long, it can't be a name. Either it's a hex</span> <span id="L277" class="LineNr">277 </span><span class="subxComment">#: byte, or it raises an error.</span> -<span id="L278" class="LineNr">278 </span><span class="subxFunction">is-valid-name?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L278" class="LineNr">278 </span><span class="subxFunction">valid-name?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> <span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . prologue</span> <span id="L280" class="LineNr">280 </span> 55/push-ebp <span id="L281" class="LineNr">281 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -345,40 +345,40 @@ if ('onhashchange' in window) { <span id="L286" class="LineNr">286 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> <span id="L287" class="LineNr">287 </span> <span class="subxComment"># var start/ecx: (addr byte) = in->start</span> <span id="L288" class="LineNr">288 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L289" class="LineNr">289 </span><span class="Constant">$is-valid-name?:check0</span>: +<span id="L289" class="LineNr">289 </span><span class="Constant">$valid-name?:check0</span>: <span id="L290" class="LineNr">290 </span> <span class="subxComment"># if (start >= in->end) return false</span> <span id="L291" class="LineNr">291 </span> 3b/compare 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *(esi+4)</span> -<span id="L292" class="LineNr">292 </span> 73/jump-if-addr>= $is-valid-name?:false/disp8 -<span id="L293" class="LineNr">293 </span><span class="Constant">$is-valid-name?:check1</span>: +<span id="L292" class="LineNr">292 </span> 73/jump-if-addr>= $valid-name?:false/disp8 +<span id="L293" class="LineNr">293 </span><span class="Constant">$valid-name?:check1</span>: <span id="L294" class="LineNr">294 </span> <span class="subxComment"># var len/eax: int = in->end - start</span> <span id="L295" class="LineNr">295 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> <span id="L296" class="LineNr">296 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from eax</span> <span id="L297" class="LineNr">297 </span> <span class="subxComment"># if (eax == 2) return false</span> <span id="L298" class="LineNr">298 </span> 3d/compare-eax-and 2/imm32 -<span id="L299" class="LineNr">299 </span> 74/jump-if-= $is-valid-name?:false/disp8 -<span id="L300" class="LineNr">300 </span><span class="Constant">$is-valid-name?:check2</span>: +<span id="L299" class="LineNr">299 </span> 74/jump-if-= $valid-name?:false/disp8 +<span id="L300" class="LineNr">300 </span><span class="Constant">$valid-name?:check2</span>: <span id="L301" class="LineNr">301 </span> <span class="subxComment"># var c/eax: (addr byte) = *start</span> <span id="L302" class="LineNr">302 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> <span id="L303" class="LineNr">303 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> <span id="L304" class="LineNr">304 </span> <span class="subxComment"># if (c == "-") return false</span> <span id="L305" class="LineNr">305 </span> 3d/compare-eax-and 2d/imm32/- -<span id="L306" class="LineNr">306 </span> 74/jump-if-= $is-valid-name?:false/disp8 -<span id="L307" class="LineNr">307 </span><span class="Constant">$is-valid-name?:check3a</span>: +<span id="L306" class="LineNr">306 </span> 74/jump-if-= $valid-name?:false/disp8 +<span id="L307" class="LineNr">307 </span><span class="Constant">$valid-name?:check3a</span>: <span id="L308" class="LineNr">308 </span> <span class="subxComment"># if (c < "0") return true</span> <span id="L309" class="LineNr">309 </span> 3d/compare-eax-with 30/imm32/0 -<span id="L310" class="LineNr">310 </span> 7c/jump-if-< $is-valid-name?:true/disp8 -<span id="L311" class="LineNr">311 </span><span class="Constant">$is-valid-name?:check3b</span>: +<span id="L310" class="LineNr">310 </span> 7c/jump-if-< $valid-name?:true/disp8 +<span id="L311" class="LineNr">311 </span><span class="Constant">$valid-name?:check3b</span>: <span id="L312" class="LineNr">312 </span> <span class="subxComment"># if (c > "9") return true</span> <span id="L313" class="LineNr">313 </span> 3d/compare-eax-with 39/imm32/9 -<span id="L314" class="LineNr">314 </span> 7f/jump-if-> $is-valid-name?:true/disp8 -<span id="L315" class="LineNr">315 </span><span class="Constant">$is-valid-name?:false</span>: +<span id="L314" class="LineNr">314 </span> 7f/jump-if-> $valid-name?:true/disp8 +<span id="L315" class="LineNr">315 </span><span class="Constant">$valid-name?:false</span>: <span id="L316" class="LineNr">316 </span> <span class="subxComment"># return false</span> <span id="L317" class="LineNr">317 </span> b8/copy-to-eax 0/imm32/false -<span id="L318" class="LineNr">318 </span> eb/jump $is-valid-name?:end/disp8 -<span id="L319" class="LineNr">319 </span><span class="Constant">$is-valid-name?:true</span>: +<span id="L318" class="LineNr">318 </span> eb/jump $valid-name?:end/disp8 +<span id="L319" class="LineNr">319 </span><span class="Constant">$valid-name?:true</span>: <span id="L320" class="LineNr">320 </span> <span class="subxComment"># return true</span> <span id="L321" class="LineNr">321 </span> b8/copy-to-eax 1/imm32/true -<span id="L322" class="LineNr">322 </span><span class="Constant">$is-valid-name?:end</span>: +<span id="L322" class="LineNr">322 </span><span class="Constant">$valid-name?:end</span>: <span id="L323" class="LineNr">323 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L324" class="LineNr">324 </span> 5e/pop-to-esi <span id="L325" class="LineNr">325 </span> 59/pop-to-ecx @@ -387,7 +387,7 @@ if ('onhashchange' in window) { <span id="L328" class="LineNr">328 </span> 5d/pop-to-ebp <span id="L329" class="LineNr">329 </span> c3/return <span id="L330" class="LineNr">330 </span> -<span id="L331" class="LineNr">331 </span><span class="subxTest">test-is-valid-name-digit-prefix</span>: +<span id="L331" class="LineNr">331 </span><span class="subxTest">test-valid-name-digit-prefix</span>: <span id="L332" class="LineNr">332 </span> <span class="subxS1Comment"># . prologue</span> <span id="L333" class="LineNr">333 </span> 55/push-ebp <span id="L334" class="LineNr">334 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -400,16 +400,16 @@ if ('onhashchange' in window) { <span id="L341" class="LineNr">341 </span> 51/push-ecx <span id="L342" class="LineNr">342 </span> 50/push-eax <span id="L343" class="LineNr">343 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L344" class="LineNr">344 </span> <span class="subxComment"># eax = is-valid-name?(slice)</span> +<span id="L344" class="LineNr">344 </span> <span class="subxComment"># eax = valid-name?(slice)</span> <span id="L345" class="LineNr">345 </span> <span class="subxS2Comment"># . . push args</span> <span id="L346" class="LineNr">346 </span> 51/push-ecx <span id="L347" class="LineNr">347 </span> <span class="subxS2Comment"># . . call</span> -<span id="L348" class="LineNr">348 </span> e8/call <a href='128subx-words.subx.html#L278'>is-valid-name?</a>/disp32 +<span id="L348" class="LineNr">348 </span> e8/call <a href='128subx-words.subx.html#L278'>valid-name?</a>/disp32 <span id="L349" class="LineNr">349 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L350" class="LineNr">350 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L351" class="LineNr">351 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L352" class="LineNr">352 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L353" class="LineNr">353 </span> 68/push <span class="Constant">"F - test-is-valid-name-digit-prefix"</span>/imm32 +<span id="L353" class="LineNr">353 </span> 68/push <span class="Constant">"F - test-valid-name-digit-prefix"</span>/imm32 <span id="L354" class="LineNr">354 </span> 68/push 0/imm32/false <span id="L355" class="LineNr">355 </span> 50/push-eax <span id="L356" class="LineNr">356 </span> <span class="subxS2Comment"># . . call</span> @@ -421,7 +421,7 @@ if ('onhashchange' in window) { <span id="L362" class="LineNr">362 </span> 5d/pop-to-ebp <span id="L363" class="LineNr">363 </span> c3/return <span id="L364" class="LineNr">364 </span> -<span id="L365" class="LineNr">365 </span><span class="subxTest">test-is-valid-name-negative-prefix</span>: +<span id="L365" class="LineNr">365 </span><span class="subxTest">test-valid-name-negative-prefix</span>: <span id="L366" class="LineNr">366 </span> <span class="subxS1Comment"># . prologue</span> <span id="L367" class="LineNr">367 </span> 55/push-ebp <span id="L368" class="LineNr">368 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -434,16 +434,16 @@ if ('onhashchange' in window) { <span id="L375" class="LineNr">375 </span> 51/push-ecx <span id="L376" class="LineNr">376 </span> 50/push-eax <span id="L377" class="LineNr">377 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L378" class="LineNr">378 </span> <span class="subxComment"># eax = is-valid-name?(slice)</span> +<span id="L378" class="LineNr">378 </span> <span class="subxComment"># eax = valid-name?(slice)</span> <span id="L379" class="LineNr">379 </span> <span class="subxS2Comment"># . . push args</span> <span id="L380" class="LineNr">380 </span> 51/push-ecx <span id="L381" class="LineNr">381 </span> <span class="subxS2Comment"># . . call</span> -<span id="L382" class="LineNr">382 </span> e8/call <a href='128subx-words.subx.html#L278'>is-valid-name?</a>/disp32 +<span id="L382" class="LineNr">382 </span> e8/call <a href='128subx-words.subx.html#L278'>valid-name?</a>/disp32 <span id="L383" class="LineNr">383 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L384" class="LineNr">384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L385" class="LineNr">385 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L386" class="LineNr">386 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L387" class="LineNr">387 </span> 68/push <span class="Constant">"F - test-is-valid-name-negative-prefix"</span>/imm32 +<span id="L387" class="LineNr">387 </span> 68/push <span class="Constant">"F - test-valid-name-negative-prefix"</span>/imm32 <span id="L388" class="LineNr">388 </span> 68/push 0/imm32/false <span id="L389" class="LineNr">389 </span> 50/push-eax <span id="L390" class="LineNr">390 </span> <span class="subxS2Comment"># . . call</span> @@ -455,7 +455,7 @@ if ('onhashchange' in window) { <span id="L396" class="LineNr">396 </span> 5d/pop-to-ebp <span id="L397" class="LineNr">397 </span> c3/return <span id="L398" class="LineNr">398 </span> -<span id="L399" class="LineNr">399 </span><span class="subxTest">test-is-valid-name-0x-prefix</span>: +<span id="L399" class="LineNr">399 </span><span class="subxTest">test-valid-name-0x-prefix</span>: <span id="L400" class="LineNr">400 </span> <span class="subxS1Comment"># . prologue</span> <span id="L401" class="LineNr">401 </span> 55/push-ebp <span id="L402" class="LineNr">402 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -468,16 +468,16 @@ if ('onhashchange' in window) { <span id="L409" class="LineNr">409 </span> 51/push-ecx <span id="L410" class="LineNr">410 </span> 50/push-eax <span id="L411" class="LineNr">411 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L412" class="LineNr">412 </span> <span class="subxComment"># eax = is-valid-name?(slice)</span> +<span id="L412" class="LineNr">412 </span> <span class="subxComment"># eax = valid-name?(slice)</span> <span id="L413" class="LineNr">413 </span> <span class="subxS2Comment"># . . push args</span> <span id="L414" class="LineNr">414 </span> 51/push-ecx <span id="L415" class="LineNr">415 </span> <span class="subxS2Comment"># . . call</span> -<span id="L416" class="LineNr">416 </span> e8/call <a href='128subx-words.subx.html#L278'>is-valid-name?</a>/disp32 +<span id="L416" class="LineNr">416 </span> e8/call <a href='128subx-words.subx.html#L278'>valid-name?</a>/disp32 <span id="L417" class="LineNr">417 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L418" class="LineNr">418 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L419" class="LineNr">419 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L420" class="LineNr">420 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L421" class="LineNr">421 </span> 68/push <span class="Constant">"F - test-is-valid-name-0x-prefix"</span>/imm32 +<span id="L421" class="LineNr">421 </span> 68/push <span class="Constant">"F - test-valid-name-0x-prefix"</span>/imm32 <span id="L422" class="LineNr">422 </span> 68/push 0/imm32/false <span id="L423" class="LineNr">423 </span> 50/push-eax <span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . call</span> @@ -489,7 +489,7 @@ if ('onhashchange' in window) { <span id="L430" class="LineNr">430 </span> 5d/pop-to-ebp <span id="L431" class="LineNr">431 </span> c3/return <span id="L432" class="LineNr">432 </span> -<span id="L433" class="LineNr">433 </span><span class="subxTest">test-is-valid-name-starts-with-pre-digit</span>: +<span id="L433" class="LineNr">433 </span><span class="subxTest">test-valid-name-starts-with-pre-digit</span>: <span id="L434" class="LineNr">434 </span> <span class="subxS1Comment"># . prologue</span> <span id="L435" class="LineNr">435 </span> 55/push-ebp <span id="L436" class="LineNr">436 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -502,16 +502,16 @@ if ('onhashchange' in window) { <span id="L443" class="LineNr">443 </span> 51/push-ecx <span id="L444" class="LineNr">444 </span> 50/push-eax <span id="L445" class="LineNr">445 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L446" class="LineNr">446 </span> <span class="subxComment"># eax = is-valid-name?(slice)</span> +<span id="L446" class="LineNr">446 </span> <span class="subxComment"># eax = valid-name?(slice)</span> <span id="L447" class="LineNr">447 </span> <span class="subxS2Comment"># . . push args</span> <span id="L448" class="LineNr">448 </span> 51/push-ecx <span id="L449" class="LineNr">449 </span> <span class="subxS2Comment"># . . call</span> -<span id="L450" class="LineNr">450 </span> e8/call <a href='128subx-words.subx.html#L278'>is-valid-name?</a>/disp32 +<span id="L450" class="LineNr">450 </span> e8/call <a href='128subx-words.subx.html#L278'>valid-name?</a>/disp32 <span id="L451" class="LineNr">451 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L452" class="LineNr">452 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L453" class="LineNr">453 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L454" class="LineNr">454 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L455" class="LineNr">455 </span> 68/push <span class="Constant">"F - test-is-valid-name-starts-with-pre-digit"</span>/imm32 +<span id="L455" class="LineNr">455 </span> 68/push <span class="Constant">"F - test-valid-name-starts-with-pre-digit"</span>/imm32 <span id="L456" class="LineNr">456 </span> 68/push 1/imm32/true <span id="L457" class="LineNr">457 </span> 50/push-eax <span id="L458" class="LineNr">458 </span> <span class="subxS2Comment"># . . call</span> @@ -523,7 +523,7 @@ if ('onhashchange' in window) { <span id="L464" class="LineNr">464 </span> 5d/pop-to-ebp <span id="L465" class="LineNr">465 </span> c3/return <span id="L466" class="LineNr">466 </span> -<span id="L467" class="LineNr">467 </span><span class="subxTest">test-is-valid-name-starts-with-post-digit</span>: +<span id="L467" class="LineNr">467 </span><span class="subxTest">test-valid-name-starts-with-post-digit</span>: <span id="L468" class="LineNr">468 </span> <span class="subxS1Comment"># . prologue</span> <span id="L469" class="LineNr">469 </span> 55/push-ebp <span id="L470" class="LineNr">470 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -536,16 +536,16 @@ if ('onhashchange' in window) { <span id="L477" class="LineNr">477 </span> 51/push-ecx <span id="L478" class="LineNr">478 </span> 50/push-eax <span id="L479" class="LineNr">479 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L480" class="LineNr">480 </span> <span class="subxComment"># eax = is-valid-name?(slice)</span> +<span id="L480" class="LineNr">480 </span> <span class="subxComment"># eax = valid-name?(slice)</span> <span id="L481" class="LineNr">481 </span> <span class="subxS2Comment"># . . push args</span> <span id="L482" class="LineNr">482 </span> 51/push-ecx <span id="L483" class="LineNr">483 </span> <span class="subxS2Comment"># . . call</span> -<span id="L484" class="LineNr">484 </span> e8/call <a href='128subx-words.subx.html#L278'>is-valid-name?</a>/disp32 +<span id="L484" class="LineNr">484 </span> e8/call <a href='128subx-words.subx.html#L278'>valid-name?</a>/disp32 <span id="L485" class="LineNr">485 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L486" class="LineNr">486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L487" class="LineNr">487 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L488" class="LineNr">488 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L489" class="LineNr">489 </span> 68/push <span class="Constant">"F - test-is-valid-name-starts-with-post-digit"</span>/imm32 +<span id="L489" class="LineNr">489 </span> 68/push <span class="Constant">"F - test-valid-name-starts-with-post-digit"</span>/imm32 <span id="L490" class="LineNr">490 </span> 68/push 1/imm32/true <span id="L491" class="LineNr">491 </span> 50/push-eax <span id="L492" class="LineNr">492 </span> <span class="subxS2Comment"># . . call</span> @@ -557,7 +557,7 @@ if ('onhashchange' in window) { <span id="L498" class="LineNr">498 </span> 5d/pop-to-ebp <span id="L499" class="LineNr">499 </span> c3/return <span id="L500" class="LineNr">500 </span> -<span id="L501" class="LineNr">501 </span><span class="subxTest">test-is-valid-name-starts-with-digit</span>: +<span id="L501" class="LineNr">501 </span><span class="subxTest">test-valid-name-starts-with-digit</span>: <span id="L502" class="LineNr">502 </span> <span class="subxS1Comment"># . prologue</span> <span id="L503" class="LineNr">503 </span> 55/push-ebp <span id="L504" class="LineNr">504 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -570,16 +570,16 @@ if ('onhashchange' in window) { <span id="L511" class="LineNr">511 </span> 51/push-ecx <span id="L512" class="LineNr">512 </span> 50/push-eax <span id="L513" class="LineNr">513 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L514" class="LineNr">514 </span> <span class="subxComment"># eax = is-valid-name?(slice)</span> +<span id="L514" class="LineNr">514 </span> <span class="subxComment"># eax = valid-name?(slice)</span> <span id="L515" class="LineNr">515 </span> <span class="subxS2Comment"># . . push args</span> <span id="L516" class="LineNr">516 </span> 51/push-ecx <span id="L517" class="LineNr">517 </span> <span class="subxS2Comment"># . . call</span> -<span id="L518" class="LineNr">518 </span> e8/call <a href='128subx-words.subx.html#L278'>is-valid-name?</a>/disp32 +<span id="L518" class="LineNr">518 </span> e8/call <a href='128subx-words.subx.html#L278'>valid-name?</a>/disp32 <span id="L519" class="LineNr">519 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L520" class="LineNr">520 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L521" class="LineNr">521 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L522" class="LineNr">522 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L523" class="LineNr">523 </span> 68/push <span class="Constant">"F - test-is-valid-name-starts-with-digit"</span>/imm32 +<span id="L523" class="LineNr">523 </span> 68/push <span class="Constant">"F - test-valid-name-starts-with-digit"</span>/imm32 <span id="L524" class="LineNr">524 </span> 68/push 0/imm32/false <span id="L525" class="LineNr">525 </span> 50/push-eax <span id="L526" class="LineNr">526 </span> <span class="subxS2Comment"># . . call</span> @@ -591,7 +591,7 @@ if ('onhashchange' in window) { <span id="L532" class="LineNr">532 </span> 5d/pop-to-ebp <span id="L533" class="LineNr">533 </span> c3/return <span id="L534" class="LineNr">534 </span> -<span id="L535" class="LineNr">535 </span><span class="subxFunction">is-label?</span>: <span class="subxComment"># word: (addr slice) -> result/eax: boolean</span> +<span id="L535" class="LineNr">535 </span><span class="subxFunction">label?</span>: <span class="subxComment"># word: (addr slice) -> result/eax: boolean</span> <span id="L536" class="LineNr">536 </span> <span class="subxS1Comment"># . prologue</span> <span id="L537" class="LineNr">537 </span> 55/push-ebp <span id="L538" class="LineNr">538 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -608,9 +608,9 @@ if ('onhashchange' in window) { <span id="L549" class="LineNr">549 </span> <span class="subxS1Comment"># . return (eax == ':')</span> <span id="L550" class="LineNr">550 </span> 3d/compare-eax-and 0x3a/imm32/colon <span id="L551" class="LineNr">551 </span> b8/copy-to-eax 1/imm32/true -<span id="L552" class="LineNr">552 </span> 74/jump-if-= $is-label?:end/disp8 +<span id="L552" class="LineNr">552 </span> 74/jump-if-= $label?:end/disp8 <span id="L553" class="LineNr">553 </span> b8/copy-to-eax 0/imm32/false -<span id="L554" class="LineNr">554 </span><span class="Constant">$is-label?:end</span>: +<span id="L554" class="LineNr">554 </span><span class="Constant">$label?:end</span>: <span id="L555" class="LineNr">555 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L556" class="LineNr">556 </span> 59/pop-to-ecx <span id="L557" class="LineNr">557 </span> <span class="subxS1Comment"># . epilogue</span> @@ -618,11 +618,11 @@ if ('onhashchange' in window) { <span id="L559" class="LineNr">559 </span> 5d/pop-to-ebp <span id="L560" class="LineNr">560 </span> c3/return <span id="L561" class="LineNr">561 </span> -<span id="L562" class="LineNr">562 </span><span class="subxTest">test-is-label?</span>: +<span id="L562" class="LineNr">562 </span><span class="subxTest">test-label?</span>: <span id="L563" class="LineNr">563 </span> <span class="subxS1Comment"># . prologue</span> <span id="L564" class="LineNr">564 </span> 55/push-ebp <span id="L565" class="LineNr">565 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L566" class="LineNr">566 </span><span class="Constant">$test-is-label?:true</span>: +<span id="L566" class="LineNr">566 </span><span class="Constant">$test-label?:true</span>: <span id="L567" class="LineNr">567 </span> <span class="subxComment"># (eax..ecx) = "AAA:"</span> <span id="L568" class="LineNr">568 </span> b8/copy-to-eax <span class="Constant">"AAA:"</span>/imm32 <span id="L569" class="LineNr">569 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> @@ -632,23 +632,23 @@ if ('onhashchange' in window) { <span id="L573" class="LineNr">573 </span> 51/push-ecx <span id="L574" class="LineNr">574 </span> 50/push-eax <span id="L575" class="LineNr">575 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L576" class="LineNr">576 </span> <span class="subxComment"># is-label?(slice/ecx)</span> +<span id="L576" class="LineNr">576 </span> <span class="subxComment"># label?(slice/ecx)</span> <span id="L577" class="LineNr">577 </span> <span class="subxS2Comment"># . . push args</span> <span id="L578" class="LineNr">578 </span> 51/push-ecx <span id="L579" class="LineNr">579 </span> <span class="subxS2Comment"># . . call</span> -<span id="L580" class="LineNr">580 </span> e8/call <a href='128subx-words.subx.html#L535'>is-label?</a>/disp32 +<span id="L580" class="LineNr">580 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 <span id="L581" class="LineNr">581 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L582" class="LineNr">582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L583" class="LineNr">583 </span> <span class="subxComment"># check-ints-equal(eax, 1, msg)</span> <span id="L584" class="LineNr">584 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L585" class="LineNr">585 </span> 68/push <span class="Constant">"F - <a href='128subx-words.subx.html#L562'>test-is-label?</a>:true"</span>/imm32 +<span id="L585" class="LineNr">585 </span> 68/push <span class="Constant">"F - <a href='128subx-words.subx.html#L562'>test-label?</a>:true"</span>/imm32 <span id="L586" class="LineNr">586 </span> 68/push 1/imm32 <span id="L587" class="LineNr">587 </span> 50/push-eax <span id="L588" class="LineNr">588 </span> <span class="subxS2Comment"># . . call</span> <span id="L589" class="LineNr">589 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L590" class="LineNr">590 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L591" class="LineNr">591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L592" class="LineNr">592 </span><span class="Constant">$test-is-label?:false</span>: +<span id="L592" class="LineNr">592 </span><span class="Constant">$test-label?:false</span>: <span id="L593" class="LineNr">593 </span> <span class="subxComment"># (eax..ecx) = "AAA"</span> <span id="L594" class="LineNr">594 </span> b8/copy-to-eax <span class="Constant">"AAA"</span>/imm32 <span id="L595" class="LineNr">595 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> @@ -658,16 +658,16 @@ if ('onhashchange' in window) { <span id="L599" class="LineNr">599 </span> 51/push-ecx <span id="L600" class="LineNr">600 </span> 50/push-eax <span id="L601" class="LineNr">601 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L602" class="LineNr">602 </span> <span class="subxComment"># is-label?(slice/ecx)</span> +<span id="L602" class="LineNr">602 </span> <span class="subxComment"># label?(slice/ecx)</span> <span id="L603" class="LineNr">603 </span> <span class="subxS2Comment"># . . push args</span> <span id="L604" class="LineNr">604 </span> 51/push-ecx <span id="L605" class="LineNr">605 </span> <span class="subxS2Comment"># . . call</span> -<span id="L606" class="LineNr">606 </span> e8/call <a href='128subx-words.subx.html#L535'>is-label?</a>/disp32 +<span id="L606" class="LineNr">606 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 <span id="L607" class="LineNr">607 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L608" class="LineNr">608 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L609" class="LineNr">609 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> <span id="L610" class="LineNr">610 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L611" class="LineNr">611 </span> 68/push <span class="Constant">"F - <a href='128subx-words.subx.html#L562'>test-is-label?</a>:false"</span>/imm32 +<span id="L611" class="LineNr">611 </span> 68/push <span class="Constant">"F - <a href='128subx-words.subx.html#L562'>test-label?</a>:false"</span>/imm32 <span id="L612" class="LineNr">612 </span> 68/push 0/imm32 <span id="L613" class="LineNr">613 </span> 50/push-eax <span id="L614" class="LineNr">614 </span> <span class="subxS2Comment"># . . call</span> diff --git a/html/129emit-hex.subx.html b/html/linux/129emit-hex.subx.html index 15ee30a2..77e67c86 100644 --- a/html/129emit-hex.subx.html +++ b/html/linux/129emit-hex.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 129emit-hex.subx</title> +<title>Mu - linux/129emit-hex.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/129emit-hex.subx'>https://github.com/akkartik/mu/blob/main/129emit-hex.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/129emit-hex.subx'>https://github.com/akkartik/mu/blob/main/linux/129emit-hex.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -123,7 +123,7 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># setup</span> <span id="L65" class="LineNr"> 65 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L67" class="LineNr"> 67 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L67" class="LineNr"> 67 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . call</span> <span id="L69" class="LineNr"> 69 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> @@ -139,14 +139,14 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> <span class="subxS2Comment"># . . push args</span> <span id="L81" class="LineNr"> 81 </span> 68/push 1/imm32 <span id="L82" class="LineNr"> 82 </span> 68/push 0xab/imm32 -<span id="L83" class="LineNr"> 83 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L83" class="LineNr"> 83 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . call</span> <span id="L85" class="LineNr"> 85 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L86" class="LineNr"> 86 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L87" class="LineNr"> 87 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L90" class="LineNr"> 90 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L90" class="LineNr"> 90 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . call</span> <span id="L92" class="LineNr"> 92 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . discard args</span> @@ -156,7 +156,7 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span> 68/push <span class="Constant">"F - test-emit-hex-single-byte"</span>/imm32 <span id="L98" class="LineNr"> 98 </span> 68/push 0x206261/imm32 <span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . push *_test-output-stream->data</span> -<span id="L100" class="LineNr">100 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L100" class="LineNr">100 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L101" class="LineNr">101 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> <span id="L102" class="LineNr">102 </span> <span class="subxS2Comment"># . . call</span> <span id="L103" class="LineNr">103 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 @@ -169,7 +169,7 @@ if ('onhashchange' in window) { <span id="L110" class="LineNr">110 </span> <span class="subxComment"># setup</span> <span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L113" class="LineNr">113 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L113" class="LineNr">113 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> <span id="L115" class="LineNr">115 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> @@ -185,14 +185,14 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> <span class="subxS2Comment"># . . push args</span> <span id="L127" class="LineNr">127 </span> 68/push 2/imm32 <span id="L128" class="LineNr">128 </span> 68/push 0x1234/imm32 -<span id="L129" class="LineNr">129 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L129" class="LineNr">129 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . call</span> <span id="L131" class="LineNr">131 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L133" class="LineNr">133 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L134" class="LineNr">134 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L135" class="LineNr">135 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L136" class="LineNr">136 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L136" class="LineNr">136 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . call</span> <span id="L138" class="LineNr">138 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . discard args</span> @@ -201,7 +201,7 @@ if ('onhashchange' in window) { <span id="L142" class="LineNr">142 </span> <span class="subxS2Comment"># . . push args</span> <span id="L143" class="LineNr">143 </span> 68/push <span class="Constant">"F - <a href='129emit-hex.subx.html#L109'>test-emit-hex-multiple-byte</a>/1"</span>/imm32 <span id="L144" class="LineNr">144 </span> 68/push <span class="Constant">"34 12 "</span>/imm32 -<span id="L145" class="LineNr">145 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L145" class="LineNr">145 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> <span id="L147" class="LineNr">147 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> @@ -213,7 +213,7 @@ if ('onhashchange' in window) { <span id="L154" class="LineNr">154 </span> <span class="subxComment"># setup</span> <span id="L155" class="LineNr">155 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L157" class="LineNr">157 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L157" class="LineNr">157 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L158" class="LineNr">158 </span> <span class="subxS2Comment"># . . call</span> <span id="L159" class="LineNr">159 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L160" class="LineNr">160 </span> <span class="subxS2Comment"># . . discard args</span> @@ -229,14 +229,14 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . push args</span> <span id="L171" class="LineNr">171 </span> 68/push 2/imm32 <span id="L172" class="LineNr">172 </span> 68/push 0xab/imm32 -<span id="L173" class="LineNr">173 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L173" class="LineNr">173 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L174" class="LineNr">174 </span> <span class="subxS2Comment"># . . call</span> <span id="L175" class="LineNr">175 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L176" class="LineNr">176 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L177" class="LineNr">177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L178" class="LineNr">178 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L179" class="LineNr">179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L180" class="LineNr">180 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L180" class="LineNr">180 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L181" class="LineNr">181 </span> <span class="subxS2Comment"># . . call</span> <span id="L182" class="LineNr">182 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L183" class="LineNr">183 </span> <span class="subxS2Comment"># . . discard args</span> @@ -245,7 +245,7 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr">186 </span> <span class="subxS2Comment"># . . push args</span> <span id="L187" class="LineNr">187 </span> 68/push <span class="Constant">"F - <a href='129emit-hex.subx.html#L153'>test-emit-hex-zero-pad</a>/1"</span>/imm32 <span id="L188" class="LineNr">188 </span> 68/push <span class="Constant">"ab 00 "</span>/imm32 -<span id="L189" class="LineNr">189 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L189" class="LineNr">189 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L190" class="LineNr">190 </span> <span class="subxS2Comment"># . . call</span> <span id="L191" class="LineNr">191 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L192" class="LineNr">192 </span> <span class="subxS2Comment"># . . discard args</span> @@ -257,7 +257,7 @@ if ('onhashchange' in window) { <span id="L198" class="LineNr">198 </span> <span class="subxComment"># setup</span> <span id="L199" class="LineNr">199 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L201" class="LineNr">201 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L201" class="LineNr">201 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . call</span> <span id="L203" class="LineNr">203 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . discard args</span> @@ -273,14 +273,14 @@ if ('onhashchange' in window) { <span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . push args</span> <span id="L215" class="LineNr">215 </span> 68/push 2/imm32 <span id="L216" class="LineNr">216 </span> 68/push -1/imm32 -<span id="L217" class="LineNr">217 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L217" class="LineNr">217 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . call</span> <span id="L219" class="LineNr">219 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L221" class="LineNr">221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L222" class="LineNr">222 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L223" class="LineNr">223 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L224" class="LineNr">224 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L224" class="LineNr">224 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L225" class="LineNr">225 </span> <span class="subxS2Comment"># . . call</span> <span id="L226" class="LineNr">226 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L227" class="LineNr">227 </span> <span class="subxS2Comment"># . . discard args</span> @@ -289,7 +289,7 @@ if ('onhashchange' in window) { <span id="L230" class="LineNr">230 </span> <span class="subxS2Comment"># . . push args</span> <span id="L231" class="LineNr">231 </span> 68/push <span class="Constant">"F - <a href='129emit-hex.subx.html#L197'>test-emit-hex-negative</a>/1"</span>/imm32 <span id="L232" class="LineNr">232 </span> 68/push <span class="Constant">"ff ff "</span>/imm32 -<span id="L233" class="LineNr">233 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L233" class="LineNr">233 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . call</span> <span id="L235" class="LineNr">235 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L236" class="LineNr">236 </span> <span class="subxS2Comment"># . . discard args</span> diff --git a/html/130emit.subx.html b/html/linux/130emit.subx.html index d7c42c3f..1344aad8 100644 --- a/html/130emit.subx.html +++ b/html/linux/130emit.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 130emit.subx</title> +<title>Mu - linux/130emit.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.SpecialChar { color: #d70000; } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxTest { color: #5f8700; } --> </style> @@ -57,7 +57,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/130emit.subx'>https://github.com/akkartik/mu/blob/main/130emit.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/130emit.subx'>https://github.com/akkartik/mu/blob/main/linux/130emit.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -92,12 +92,12 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 <span id="L32" class="LineNr"> 32 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L33" class="LineNr"> 33 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># if (is-valid-name?(datum)) write-slice-buffered(out, word) and return</span> -<span id="L35" class="LineNr"> 35 </span> <span class="subxS1Comment"># . eax = is-valid-name?(name)</span> +<span id="L34" class="LineNr"> 34 </span> <span class="subxComment"># if (valid-name?(datum)) write-slice-buffered(out, word) and return</span> +<span id="L35" class="LineNr"> 35 </span> <span class="subxS1Comment"># . eax = valid-name?(name)</span> <span id="L36" class="LineNr"> 36 </span> <span class="subxS2Comment"># . . push args</span> <span id="L37" class="LineNr"> 37 </span> 57/push-edi <span id="L38" class="LineNr"> 38 </span> <span class="subxS2Comment"># . . call</span> -<span id="L39" class="LineNr"> 39 </span> e8/call <a href='128subx-words.subx.html#L278'>is-valid-name?</a>/disp32 +<span id="L39" class="LineNr"> 39 </span> e8/call <a href='128subx-words.subx.html#L278'>valid-name?</a>/disp32 <span id="L40" class="LineNr"> 40 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L41" class="LineNr"> 41 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L42" class="LineNr"> 42 </span> <span class="subxS1Comment"># . if (eax != false)</span> @@ -164,7 +164,7 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr">103 </span> <span class="subxComment"># setup</span> <span id="L104" class="LineNr">104 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L105" class="LineNr">105 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L106" class="LineNr">106 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L106" class="LineNr">106 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . call</span> <span id="L108" class="LineNr">108 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . discard args</span> @@ -189,14 +189,14 @@ if ('onhashchange' in window) { <span id="L128" class="LineNr">128 </span> <span class="subxS2Comment"># . . push args</span> <span id="L129" class="LineNr">129 </span> 68/push 1/imm32 <span id="L130" class="LineNr">130 </span> 51/push-ecx -<span id="L131" class="LineNr">131 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L131" class="LineNr">131 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . call</span> <span id="L133" class="LineNr">133 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L134" class="LineNr">134 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L135" class="LineNr">135 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L136" class="LineNr">136 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L137" class="LineNr">137 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L138" class="LineNr">138 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L138" class="LineNr">138 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . call</span> <span id="L140" class="LineNr">140 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . discard args</span> @@ -205,7 +205,7 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr">144 </span> <span class="subxS2Comment"># . . push args</span> <span id="L145" class="LineNr">145 </span> 68/push <span class="Constant">"F - <a href='130emit.subx.html#L99'>test-emit-number</a>/1"</span>/imm32 <span id="L146" class="LineNr">146 </span> 68/push <span class="Constant">"30 "</span>/imm32 -<span id="L147" class="LineNr">147 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L147" class="LineNr">147 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . call</span> <span id="L149" class="LineNr">149 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L150" class="LineNr">150 </span> <span class="subxS2Comment"># . . discard args</span> @@ -223,7 +223,7 @@ if ('onhashchange' in window) { <span id="L162" class="LineNr">162 </span> <span class="subxComment"># setup</span> <span id="L163" class="LineNr">163 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L165" class="LineNr">165 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L165" class="LineNr">165 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L166" class="LineNr">166 </span> <span class="subxS2Comment"># . . call</span> <span id="L167" class="LineNr">167 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L168" class="LineNr">168 </span> <span class="subxS2Comment"># . . discard args</span> @@ -248,14 +248,14 @@ if ('onhashchange' in window) { <span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . push args</span> <span id="L188" class="LineNr">188 </span> 68/push 2/imm32 <span id="L189" class="LineNr">189 </span> 51/push-ecx -<span id="L190" class="LineNr">190 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L190" class="LineNr">190 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L191" class="LineNr">191 </span> <span class="subxS2Comment"># . . call</span> <span id="L192" class="LineNr">192 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L193" class="LineNr">193 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L194" class="LineNr">194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L195" class="LineNr">195 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L196" class="LineNr">196 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L197" class="LineNr">197 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L197" class="LineNr">197 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L198" class="LineNr">198 </span> <span class="subxS2Comment"># . . call</span> <span id="L199" class="LineNr">199 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L200" class="LineNr">200 </span> <span class="subxS2Comment"># . . discard args</span> @@ -264,7 +264,7 @@ if ('onhashchange' in window) { <span id="L203" class="LineNr">203 </span> <span class="subxS2Comment"># . . push args</span> <span id="L204" class="LineNr">204 </span> 68/push <span class="Constant">"F - <a href='130emit.subx.html#L99'>test-emit-number</a>/1"</span>/imm32 <span id="L205" class="LineNr">205 </span> 68/push <span class="Constant">"fe ff "</span>/imm32 -<span id="L206" class="LineNr">206 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L206" class="LineNr">206 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L207" class="LineNr">207 </span> <span class="subxS2Comment"># . . call</span> <span id="L208" class="LineNr">208 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L209" class="LineNr">209 </span> <span class="subxS2Comment"># . . discard args</span> @@ -281,7 +281,7 @@ if ('onhashchange' in window) { <span id="L220" class="LineNr">220 </span> <span class="subxComment"># setup</span> <span id="L221" class="LineNr">221 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L222" class="LineNr">222 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L223" class="LineNr">223 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L223" class="LineNr">223 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L224" class="LineNr">224 </span> <span class="subxS2Comment"># . . call</span> <span id="L225" class="LineNr">225 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L226" class="LineNr">226 </span> <span class="subxS2Comment"># . . discard args</span> @@ -306,14 +306,14 @@ if ('onhashchange' in window) { <span id="L245" class="LineNr">245 </span> <span class="subxS2Comment"># . . push args</span> <span id="L246" class="LineNr">246 </span> 68/push 2/imm32 <span id="L247" class="LineNr">247 </span> 51/push-ecx -<span id="L248" class="LineNr">248 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L248" class="LineNr">248 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L249" class="LineNr">249 </span> <span class="subxS2Comment"># . . call</span> <span id="L250" class="LineNr">250 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L251" class="LineNr">251 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L252" class="LineNr">252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L253" class="LineNr">253 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L254" class="LineNr">254 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L255" class="LineNr">255 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L255" class="LineNr">255 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L256" class="LineNr">256 </span> <span class="subxS2Comment"># . . call</span> <span id="L257" class="LineNr">257 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . discard args</span> @@ -323,7 +323,7 @@ if ('onhashchange' in window) { <span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . push args</span> <span id="L263" class="LineNr">263 </span> 68/push <span class="Constant">"F - test-emit-number-with-metadata"</span>/imm32 <span id="L264" class="LineNr">264 </span> 68/push <span class="Constant">"fe ff "</span>/imm32 -<span id="L265" class="LineNr">265 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L265" class="LineNr">265 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . call</span> <span id="L267" class="LineNr">267 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L268" class="LineNr">268 </span> <span class="subxS2Comment"># . . discard args</span> @@ -340,7 +340,7 @@ if ('onhashchange' in window) { <span id="L279" class="LineNr">279 </span> <span class="subxComment"># setup</span> <span id="L280" class="LineNr">280 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L281" class="LineNr">281 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L282" class="LineNr">282 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L282" class="LineNr">282 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L283" class="LineNr">283 </span> <span class="subxS2Comment"># . . call</span> <span id="L284" class="LineNr">284 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L285" class="LineNr">285 </span> <span class="subxS2Comment"># . . discard args</span> @@ -365,14 +365,14 @@ if ('onhashchange' in window) { <span id="L304" class="LineNr">304 </span> <span class="subxS2Comment"># . . push args</span> <span id="L305" class="LineNr">305 </span> 68/push 2/imm32 <span id="L306" class="LineNr">306 </span> 51/push-ecx -<span id="L307" class="LineNr">307 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L307" class="LineNr">307 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L308" class="LineNr">308 </span> <span class="subxS2Comment"># . . call</span> <span id="L309" class="LineNr">309 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L310" class="LineNr">310 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L311" class="LineNr">311 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L312" class="LineNr">312 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L313" class="LineNr">313 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L314" class="LineNr">314 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L314" class="LineNr">314 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L315" class="LineNr">315 </span> <span class="subxS2Comment"># . . call</span> <span id="L316" class="LineNr">316 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L317" class="LineNr">317 </span> <span class="subxS2Comment"># . . discard args</span> @@ -381,7 +381,7 @@ if ('onhashchange' in window) { <span id="L320" class="LineNr">320 </span> <span class="subxS2Comment"># . . push args</span> <span id="L321" class="LineNr">321 </span> 68/push <span class="Constant">"F - test-emit-non-number"</span>/imm32 <span id="L322" class="LineNr">322 </span> 68/push <span class="Constant">"xyz "</span>/imm32 -<span id="L323" class="LineNr">323 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L323" class="LineNr">323 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L324" class="LineNr">324 </span> <span class="subxS2Comment"># . . call</span> <span id="L325" class="LineNr">325 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L326" class="LineNr">326 </span> <span class="subxS2Comment"># . . discard args</span> @@ -398,7 +398,7 @@ if ('onhashchange' in window) { <span id="L337" class="LineNr">337 </span> <span class="subxComment"># setup</span> <span id="L338" class="LineNr">338 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L340" class="LineNr">340 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L340" class="LineNr">340 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L341" class="LineNr">341 </span> <span class="subxS2Comment"># . . call</span> <span id="L342" class="LineNr">342 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . discard args</span> @@ -423,14 +423,14 @@ if ('onhashchange' in window) { <span id="L362" class="LineNr">362 </span> <span class="subxS2Comment"># . . push args</span> <span id="L363" class="LineNr">363 </span> 68/push 2/imm32 <span id="L364" class="LineNr">364 </span> 51/push-ecx -<span id="L365" class="LineNr">365 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L365" class="LineNr">365 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . call</span> <span id="L367" class="LineNr">367 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L368" class="LineNr">368 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L369" class="LineNr">369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L370" class="LineNr">370 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L372" class="LineNr">372 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L372" class="LineNr">372 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . call</span> <span id="L374" class="LineNr">374 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L375" class="LineNr">375 </span> <span class="subxS2Comment"># . . discard args</span> @@ -439,7 +439,7 @@ if ('onhashchange' in window) { <span id="L378" class="LineNr">378 </span> <span class="subxS2Comment"># . . push args</span> <span id="L379" class="LineNr">379 </span> 68/push <span class="Constant">"F - test-emit-non-number-with-metadata"</span>/imm32 <span id="L380" class="LineNr">380 </span> 68/push <span class="Constant">"xyz/ "</span>/imm32 -<span id="L381" class="LineNr">381 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L381" class="LineNr">381 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L382" class="LineNr">382 </span> <span class="subxS2Comment"># . . call</span> <span id="L383" class="LineNr">383 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L384" class="LineNr">384 </span> <span class="subxS2Comment"># . . discard args</span> @@ -456,7 +456,7 @@ if ('onhashchange' in window) { <span id="L395" class="LineNr">395 </span> <span class="subxComment"># setup</span> <span id="L396" class="LineNr">396 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L397" class="LineNr">397 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L398" class="LineNr">398 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L398" class="LineNr">398 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L399" class="LineNr">399 </span> <span class="subxS2Comment"># . . call</span> <span id="L400" class="LineNr">400 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . discard args</span> @@ -481,14 +481,14 @@ if ('onhashchange' in window) { <span id="L420" class="LineNr">420 </span> <span class="subxS2Comment"># . . push args</span> <span id="L421" class="LineNr">421 </span> 68/push 2/imm32 <span id="L422" class="LineNr">422 </span> 51/push-ecx -<span id="L423" class="LineNr">423 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L423" class="LineNr">423 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . call</span> <span id="L425" class="LineNr">425 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 <span id="L426" class="LineNr">426 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L427" class="LineNr">427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L428" class="LineNr">428 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L429" class="LineNr">429 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L430" class="LineNr">430 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L430" class="LineNr">430 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L431" class="LineNr">431 </span> <span class="subxS2Comment"># . . call</span> <span id="L432" class="LineNr">432 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . discard args</span> @@ -498,7 +498,7 @@ if ('onhashchange' in window) { <span id="L462" class="LineNr">462 </span> <span class="subxS2Comment"># . . push args</span> <span id="L463" class="LineNr">463 </span> 68/push <span class="Constant">"F - test-emit-non-number-with-all-hex-digits"</span>/imm32 <span id="L464" class="LineNr">464 </span> 68/push <span class="Constant">"abcd/xyz "</span>/imm32 -<span id="L465" class="LineNr">465 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L465" class="LineNr">465 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L466" class="LineNr">466 </span> <span class="subxS2Comment"># . . call</span> <span id="L467" class="LineNr">467 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L468" class="LineNr">468 </span> <span class="subxS2Comment"># . . discard args</span> diff --git a/html/131table.subx.html b/html/linux/131table.subx.html index 7bc50395..8c3eeb53 100644 --- a/html/131table.subx.html +++ b/html/linux/131table.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 131table.subx</title> +<title>Mu - linux/131table.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.SpecialChar { color: #d70000; } -.subxS1Comment { color: #0000af; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .subxH1Comment { color: #005faf; text-decoration: underline; } .Constant { color: #008787; } .subxTest { color: #5f8700; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -57,7 +57,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/131table.subx'>https://github.com/akkartik/mu/blob/main/131table.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/131table.subx'>https://github.com/akkartik/mu/blob/main/linux/131table.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># A table is a stream of (key, value) rows.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -118,7 +118,7 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L58" class="LineNr"> 58 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> -<span id="L60" class="LineNr"> 60 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L60" class="LineNr"> 60 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+8</span> @@ -185,7 +185,7 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr"> 124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L125" class="LineNr"> 125 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L126" class="LineNr"> 126 </span> bb/copy-to-ebx 1/imm32 -<span id="L127" class="LineNr"> 127 </span> e8/call syscall_exit/disp32 +<span id="L127" class="LineNr"> 127 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># never gets here</span> <span id="L129" class="LineNr"> 129 </span> <span id="L130" class="LineNr"> 130 </span><span class="subxTest">test-get</span>: @@ -302,7 +302,7 @@ if ('onhashchange' in window) { <span id="L241" class="LineNr"> 241 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L242" class="LineNr"> 242 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L243" class="LineNr"> 243 </span> <span class="subxS2Comment"># . . call</span> -<span id="L244" class="LineNr"> 244 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L244" class="LineNr"> 244 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L245" class="LineNr"> 245 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L246" class="LineNr"> 246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L247" class="LineNr"> 247 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+8</span> @@ -376,7 +376,7 @@ if ('onhashchange' in window) { <span id="L315" class="LineNr"> 315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L316" class="LineNr"> 316 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L317" class="LineNr"> 317 </span> bb/copy-to-ebx 1/imm32 -<span id="L318" class="LineNr"> 318 </span> e8/call syscall_exit/disp32 +<span id="L318" class="LineNr"> 318 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L319" class="LineNr"> 319 </span> <span class="subxComment"># never gets here</span> <span id="L320" class="LineNr"> 320 </span> <span id="L321" class="LineNr"> 321 </span><span class="subxTest">test-get-slice</span>: @@ -518,7 +518,7 @@ if ('onhashchange' in window) { <span id="L457" class="LineNr"> 457 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L458" class="LineNr"> 458 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L459" class="LineNr"> 459 </span> <span class="subxS2Comment"># . . call</span> -<span id="L460" class="LineNr"> 460 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L460" class="LineNr"> 460 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L461" class="LineNr"> 461 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L462" class="LineNr"> 462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L463" class="LineNr"> 463 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+8</span> @@ -550,7 +550,7 @@ if ('onhashchange' in window) { <span id="L489" class="LineNr"> 489 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L490" class="LineNr"> 490 </span> 52/push-edx <span id="L491" class="LineNr"> 491 </span> <span class="subxS2Comment"># . . call</span> -<span id="L492" class="LineNr"> 492 </span> e8/call <a href='120allocate.subx.html#L877'>zero-out</a>/disp32 +<span id="L492" class="LineNr"> 492 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 <span id="L493" class="LineNr"> 493 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L494" class="LineNr"> 494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L495" class="LineNr"> 495 </span> <span class="subxComment"># copy-array(ad, key, max)</span> @@ -559,7 +559,7 @@ if ('onhashchange' in window) { <span id="L498" class="LineNr"> 498 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L499" class="LineNr"> 499 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> <span id="L500" class="LineNr"> 500 </span> <span class="subxS2Comment"># . . call</span> -<span id="L501" class="LineNr"> 501 </span> e8/call <a href='120allocate.subx.html#L710'>copy-array</a>/disp32 +<span id="L501" class="LineNr"> 501 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 <span id="L502" class="LineNr"> 502 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L503" class="LineNr"> 503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L504" class="LineNr"> 504 </span> <span class="subxComment"># table->write += row-size</span> @@ -593,7 +593,7 @@ if ('onhashchange' in window) { <span id="L532" class="LineNr"> 532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L533" class="LineNr"> 533 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L534" class="LineNr"> 534 </span> bb/copy-to-ebx 1/imm32 -<span id="L535" class="LineNr"> 535 </span> e8/call syscall_exit/disp32 +<span id="L535" class="LineNr"> 535 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L536" class="LineNr"> 536 </span> <span class="subxComment"># never gets here</span> <span id="L537" class="LineNr"> 537 </span> <span id="L538" class="LineNr"> 538 </span><span class="subxTest">test-get-or-insert</span>: @@ -643,7 +643,7 @@ if ('onhashchange' in window) { <span id="L582" class="LineNr"> 582 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L583" class="LineNr"> 583 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L584" class="LineNr"> 584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L585" class="LineNr"> 585 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L585" class="LineNr"> 585 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L586" class="LineNr"> 586 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L587" class="LineNr"> 587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L588" class="LineNr"> 588 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> @@ -693,7 +693,7 @@ if ('onhashchange' in window) { <span id="L632" class="LineNr"> 632 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L633" class="LineNr"> 633 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L634" class="LineNr"> 634 </span> <span class="subxS2Comment"># . . call</span> -<span id="L635" class="LineNr"> 635 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L635" class="LineNr"> 635 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L636" class="LineNr"> 636 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L637" class="LineNr"> 637 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L638" class="LineNr"> 638 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> @@ -743,7 +743,7 @@ if ('onhashchange' in window) { <span id="L682" class="LineNr"> 682 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+28)</span> <span id="L683" class="LineNr"> 683 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+24)</span> <span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . call</span> -<span id="L685" class="LineNr"> 685 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L685" class="LineNr"> 685 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L686" class="LineNr"> 686 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L687" class="LineNr"> 687 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L688" class="LineNr"> 688 </span> <span class="subxComment"># check-strings-equal(curr-addr, "data", msg)</span> @@ -796,7 +796,7 @@ if ('onhashchange' in window) { <span id="L735" class="LineNr"> 735 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L736" class="LineNr"> 736 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L737" class="LineNr"> 737 </span> <span class="subxS2Comment"># . . call</span> -<span id="L738" class="LineNr"> 738 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L738" class="LineNr"> 738 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L739" class="LineNr"> 739 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L740" class="LineNr"> 740 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L741" class="LineNr"> 741 </span> <span class="subxS1Comment"># . ebx = eax</span> @@ -815,7 +815,7 @@ if ('onhashchange' in window) { <span id="L754" class="LineNr"> 754 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L755" class="LineNr"> 755 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L756" class="LineNr"> 756 </span> <span class="subxS2Comment"># . . call</span> -<span id="L757" class="LineNr"> 757 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L757" class="LineNr"> 757 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L758" class="LineNr"> 758 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L759" class="LineNr"> 759 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L760" class="LineNr"> 760 </span> <span class="subxComment"># if (string-equal?(k, c)) return curr+8</span> @@ -879,7 +879,7 @@ if ('onhashchange' in window) { <span id="L818" class="LineNr"> 818 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L819" class="LineNr"> 819 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L820" class="LineNr"> 820 </span> bb/copy-to-ebx 1/imm32 -<span id="L821" class="LineNr"> 821 </span> e8/call syscall_exit/disp32 +<span id="L821" class="LineNr"> 821 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L822" class="LineNr"> 822 </span> <span class="subxComment"># never gets here</span> <span id="L823" class="LineNr"> 823 </span> <span id="L824" class="LineNr"> 824 </span><span class="subxTest">test-get-or-insert-handle</span>: @@ -904,7 +904,7 @@ if ('onhashchange' in window) { <span id="L843" class="LineNr"> 843 </span> 68/push <span class="Constant">"code"</span>/imm32 <span id="L844" class="LineNr"> 844 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L845" class="LineNr"> 845 </span> <span class="subxS2Comment"># . . call</span> -<span id="L846" class="LineNr"> 846 </span> e8/call <a href='120allocate.subx.html#L710'>copy-array</a>/disp32 +<span id="L846" class="LineNr"> 846 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 <span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L848" class="LineNr"> 848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L849" class="LineNr"> 849 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> @@ -942,7 +942,7 @@ if ('onhashchange' in window) { <span id="L881" class="LineNr"> 881 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L882" class="LineNr"> 882 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L883" class="LineNr"> 883 </span> <span class="subxS2Comment"># . . call</span> -<span id="L884" class="LineNr"> 884 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L884" class="LineNr"> 884 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L885" class="LineNr"> 885 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L886" class="LineNr"> 886 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L887" class="LineNr"> 887 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> @@ -962,7 +962,7 @@ if ('onhashchange' in window) { <span id="L901" class="LineNr"> 901 </span> 68/push <span class="Constant">"code"</span>/imm32 <span id="L902" class="LineNr"> 902 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L903" class="LineNr"> 903 </span> <span class="subxS2Comment"># . . call</span> -<span id="L904" class="LineNr"> 904 </span> e8/call <a href='120allocate.subx.html#L710'>copy-array</a>/disp32 +<span id="L904" class="LineNr"> 904 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 <span id="L905" class="LineNr"> 905 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L906" class="LineNr"> 906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L907" class="LineNr"> 907 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> @@ -1001,7 +1001,7 @@ if ('onhashchange' in window) { <span id="L940" class="LineNr"> 940 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L941" class="LineNr"> 941 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L942" class="LineNr"> 942 </span> <span class="subxS2Comment"># . . call</span> -<span id="L943" class="LineNr"> 943 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L943" class="LineNr"> 943 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L944" class="LineNr"> 944 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L945" class="LineNr"> 945 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L946" class="LineNr"> 946 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> @@ -1021,7 +1021,7 @@ if ('onhashchange' in window) { <span id="L960" class="LineNr"> 960 </span> 68/push <span class="Constant">"data"</span>/imm32 <span id="L961" class="LineNr"> 961 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . call</span> -<span id="L963" class="LineNr"> 963 </span> e8/call <a href='120allocate.subx.html#L710'>copy-array</a>/disp32 +<span id="L963" class="LineNr"> 963 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 <span id="L964" class="LineNr"> 964 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L965" class="LineNr"> 965 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># eax = get-or-insert-handle(table, h, 12 bytes/row)</span> @@ -1060,7 +1060,7 @@ if ('onhashchange' in window) { <span id="L999" class="LineNr"> 999 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+28)</span> <span id="L1000" class="LineNr">1000 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+24)</span> <span id="L1001" class="LineNr">1001 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1002" class="LineNr">1002 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1002" class="LineNr">1002 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1003" class="LineNr">1003 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1004" class="LineNr">1004 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1005" class="LineNr">1005 </span> <span class="subxComment"># check-strings-equal(curr-addr, "data", msg)</span> @@ -1119,7 +1119,7 @@ if ('onhashchange' in window) { <span id="L1058" class="LineNr">1058 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1059" class="LineNr">1059 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1061" class="LineNr">1061 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1061" class="LineNr">1061 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1062" class="LineNr">1062 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1064" class="LineNr">1064 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> @@ -1153,7 +1153,7 @@ if ('onhashchange' in window) { <span id="L1092" class="LineNr">1092 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L1093" class="LineNr">1093 </span> 52/push-edx <span id="L1094" class="LineNr">1094 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1095" class="LineNr">1095 </span> e8/call <a href='120allocate.subx.html#L877'>zero-out</a>/disp32 +<span id="L1095" class="LineNr">1095 </span> e8/call <a href='120allocate.subx.html#L889'>zero-out</a>/disp32 <span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1097" class="LineNr">1097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1098" class="LineNr">1098 </span> <span class="subxComment"># slice-to-string(ad, key, max)</span> @@ -1196,7 +1196,7 @@ if ('onhashchange' in window) { <span id="L1135" class="LineNr">1135 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1136" class="LineNr">1136 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1137" class="LineNr">1137 </span> bb/copy-to-ebx 1/imm32 -<span id="L1138" class="LineNr">1138 </span> e8/call syscall_exit/disp32 +<span id="L1138" class="LineNr">1138 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1139" class="LineNr">1139 </span> <span class="subxComment"># never gets here</span> <span id="L1140" class="LineNr">1140 </span> <span id="L1141" class="LineNr">1141 </span><span class="subxTest">test-get-or-insert-slice</span>: @@ -1255,7 +1255,7 @@ if ('onhashchange' in window) { <span id="L1194" class="LineNr">1194 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L1195" class="LineNr">1195 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L1196" class="LineNr">1196 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1197" class="LineNr">1197 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1197" class="LineNr">1197 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1198" class="LineNr">1198 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1199" class="LineNr">1199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1200" class="LineNr">1200 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> @@ -1305,7 +1305,7 @@ if ('onhashchange' in window) { <span id="L1244" class="LineNr">1244 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L1245" class="LineNr">1245 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L1246" class="LineNr">1246 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1247" class="LineNr">1247 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1247" class="LineNr">1247 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1248" class="LineNr">1248 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1249" class="LineNr">1249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1250" class="LineNr">1250 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> @@ -1364,7 +1364,7 @@ if ('onhashchange' in window) { <span id="L1303" class="LineNr">1303 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+28)</span> <span id="L1304" class="LineNr">1304 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+24)</span> <span id="L1305" class="LineNr">1305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1306" class="LineNr">1306 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1306" class="LineNr">1306 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1308" class="LineNr">1308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1309" class="LineNr">1309 </span> <span class="subxComment"># check-strings-equal(curr-addr, "data", msg)</span> @@ -1420,7 +1420,7 @@ if ('onhashchange' in window) { <span id="L1359" class="LineNr">1359 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1360" class="LineNr">1360 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L1361" class="LineNr">1361 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1362" class="LineNr">1362 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1362" class="LineNr">1362 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1363" class="LineNr">1363 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1364" class="LineNr">1364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1365" class="LineNr">1365 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+8</span> @@ -1497,7 +1497,7 @@ if ('onhashchange' in window) { <span id="L1436" class="LineNr">1436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1437" class="LineNr">1437 </span> <span class="subxComment"># syscall(exit, 1)</span> <span id="L1438" class="LineNr">1438 </span> bb/copy-to-ebx 1/imm32 -<span id="L1439" class="LineNr">1439 </span> e8/call syscall_exit/disp32 +<span id="L1439" class="LineNr">1439 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1440" class="LineNr">1440 </span> <span id="L1441" class="LineNr">1441 </span><span class="subxTest">test-get-or-stop</span>: <span id="L1442" class="LineNr">1442 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> @@ -1507,7 +1507,7 @@ if ('onhashchange' in window) { <span id="L1446" class="LineNr">1446 </span> <span class="subxComment"># setup</span> <span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1449" class="LineNr">1449 </span> 68/push <a href='115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L1449" class="LineNr">1449 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L1450" class="LineNr">1450 </span> <span class="subxS2Comment"># . . call</span> <span id="L1451" class="LineNr">1451 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1452" class="LineNr">1452 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1552,7 +1552,7 @@ if ('onhashchange' in window) { <span id="L1491" class="LineNr">1491 </span> <span class="subxComment"># eax = get-or-stop(table, "code", row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1492" class="LineNr">1492 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1493" class="LineNr">1493 </span> 52/push-edx/ed -<span id="L1494" class="LineNr">1494 </span> 68/push <a href='115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 +<span id="L1494" class="LineNr">1494 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 <span id="L1495" class="LineNr">1495 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix <span id="L1496" class="LineNr">1496 </span> 68/push 0xc/imm32/row-size <span id="L1497" class="LineNr">1497 </span> 68/push <span class="Constant">"code"</span>/imm32 @@ -1577,7 +1577,7 @@ if ('onhashchange' in window) { <span id="L1516" class="LineNr">1516 </span> <span class="subxComment"># eax = get-or-stop(table, "data", row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1518" class="LineNr">1518 </span> 52/push-edx/ed -<span id="L1519" class="LineNr">1519 </span> 68/push <a href='115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 +<span id="L1519" class="LineNr">1519 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 <span id="L1520" class="LineNr">1520 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix <span id="L1521" class="LineNr">1521 </span> 68/push 0xc/imm32/row-size <span id="L1522" class="LineNr">1522 </span> 68/push <span class="Constant">"data"</span>/imm32 @@ -1646,7 +1646,7 @@ if ('onhashchange' in window) { <span id="L1585" class="LineNr">1585 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1586" class="LineNr">1586 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L1587" class="LineNr">1587 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1588" class="LineNr">1588 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1588" class="LineNr">1588 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1589" class="LineNr">1589 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1590" class="LineNr">1590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1591" class="LineNr">1591 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> @@ -1723,7 +1723,7 @@ if ('onhashchange' in window) { <span id="L1662" class="LineNr">1662 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1663" class="LineNr">1663 </span> <span class="subxComment"># syscall(exit, 1)</span> <span id="L1664" class="LineNr">1664 </span> bb/copy-to-ebx 1/imm32 -<span id="L1665" class="LineNr">1665 </span> e8/call syscall_exit/disp32 +<span id="L1665" class="LineNr">1665 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1666" class="LineNr">1666 </span> <span id="L1667" class="LineNr">1667 </span><span class="subxTest">test-get-slice-or-stop</span>: <span id="L1668" class="LineNr">1668 </span> <span class="subxComment"># This test uses exit-descriptors. Use ebp for setting up local variables.</span> @@ -1733,7 +1733,7 @@ if ('onhashchange' in window) { <span id="L1672" class="LineNr">1672 </span> <span class="subxComment"># setup</span> <span id="L1673" class="LineNr">1673 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1674" class="LineNr">1674 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1675" class="LineNr">1675 </span> 68/push <a href='115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L1675" class="LineNr">1675 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L1676" class="LineNr">1676 </span> <span class="subxS2Comment"># . . call</span> <span id="L1677" class="LineNr">1677 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1678" class="LineNr">1678 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1788,7 +1788,7 @@ if ('onhashchange' in window) { <span id="L1727" class="LineNr">1727 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1728" class="LineNr">1728 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1729" class="LineNr">1729 </span> 52/push-edx/ed -<span id="L1730" class="LineNr">1730 </span> 68/push <a href='115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 +<span id="L1730" class="LineNr">1730 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 <span id="L1731" class="LineNr">1731 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix <span id="L1732" class="LineNr">1732 </span> 68/push 0xc/imm32/row-size <span id="L1733" class="LineNr">1733 </span> 53/push-ebx/slice @@ -1825,7 +1825,7 @@ if ('onhashchange' in window) { <span id="L1764" class="LineNr">1764 </span> <span class="subxComment"># eax = get-slice-or-stop(table, slice, row-size=12, msg, _test-error-buffered-file, ed)</span> <span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1766" class="LineNr">1766 </span> 52/push-edx/ed -<span id="L1767" class="LineNr">1767 </span> 68/push <a href='115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 +<span id="L1767" class="LineNr">1767 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 <span id="L1768" class="LineNr">1768 </span> 68/push <span class="Constant">"foo"</span>/imm32/abort-prefix <span id="L1769" class="LineNr">1769 </span> 68/push 0xc/imm32/row-size <span id="L1770" class="LineNr">1770 </span> 53/push-ebx/slice @@ -1892,7 +1892,7 @@ if ('onhashchange' in window) { <span id="L1831" class="LineNr">1831 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1832" class="LineNr">1832 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L1833" class="LineNr">1833 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1834" class="LineNr">1834 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1834" class="LineNr">1834 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1835" class="LineNr">1835 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1836" class="LineNr">1836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1837" class="LineNr">1837 </span> <span class="subxComment"># if (string-equal?(key, c)) return curr+4</span> @@ -1984,7 +1984,7 @@ if ('onhashchange' in window) { <span id="L1923" class="LineNr">1923 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L1924" class="LineNr">1924 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L1925" class="LineNr">1925 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1926" class="LineNr">1926 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1926" class="LineNr">1926 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1927" class="LineNr">1927 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1928" class="LineNr">1928 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1929" class="LineNr">1929 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> @@ -2057,7 +2057,7 @@ if ('onhashchange' in window) { <span id="L1996" class="LineNr">1996 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1997" class="LineNr">1997 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> <span id="L1998" class="LineNr">1998 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1999" class="LineNr">1999 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1999" class="LineNr">1999 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L2000" class="LineNr">2000 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2001" class="LineNr">2001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L2002" class="LineNr">2002 </span> <span class="subxComment"># if (slice-equal?(key, c)) return curr+4</span> @@ -2158,7 +2158,7 @@ if ('onhashchange' in window) { <span id="L2097" class="LineNr">2097 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+16)</span> <span id="L2098" class="LineNr">2098 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+12)</span> <span id="L2099" class="LineNr">2099 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2100" class="LineNr">2100 </span> e8/call <a href='120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L2100" class="LineNr">2100 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L2101" class="LineNr">2101 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2102" class="LineNr">2102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L2103" class="LineNr">2103 </span> <span class="subxComment"># check-strings-equal(curr-addr, "code", msg)</span> diff --git a/html/132slurp.subx.html b/html/linux/132slurp.subx.html index 8bb7d9ff..3bcdb688 100644 --- a/html/132slurp.subx.html +++ b/html/linux/132slurp.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 132slurp.subx</title> +<title>Mu - linux/132slurp.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/132slurp.subx'>https://github.com/akkartik/mu/blob/main/132slurp.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/132slurp.subx'>https://github.com/akkartik/mu/blob/main/linux/132slurp.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -159,7 +159,7 @@ if ('onhashchange' in window) { <span id="L100" class="LineNr">100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L101" class="LineNr">101 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L102" class="LineNr">102 </span> bb/copy-to-ebx 1/imm32 -<span id="L103" class="LineNr">103 </span> e8/call syscall_exit/disp32 +<span id="L103" class="LineNr">103 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L104" class="LineNr">104 </span> <span class="subxComment"># never gets here</span> <span id="L105" class="LineNr">105 </span> <span id="L106" class="LineNr">106 </span><span class="subxTest">test-slurp</span>: diff --git a/html/133subx-widths.subx.html b/html/linux/133subx-widths.subx.html index 67edfe0e..f7bf5a9f 100644 --- a/html/133subx-widths.subx.html +++ b/html/linux/133subx-widths.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 133subx-widths.subx</title> +<title>Mu - linux/133subx-widths.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/133subx-widths.subx'>https://github.com/akkartik/mu/blob/main/133subx-widths.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/133subx-widths.subx'>https://github.com/akkartik/mu/blob/main/linux/133subx-widths.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helpers to compute widths of SubX arguments based on their metadata.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># /imm8 => 1 byte,</span> diff --git a/html/134emit-hex-array.subx.html b/html/linux/134emit-hex-array.subx.html index b9baa1ed..837a6d1a 100644 --- a/html/134emit-hex-array.subx.html +++ b/html/linux/134emit-hex-array.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 134emit-hex-array.subx</title> +<title>Mu - linux/134emit-hex-array.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,14 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/134emit-hex-array.subx'>https://github.com/akkartik/mu/blob/main/134emit-hex-array.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/134emit-hex-array.subx'>https://github.com/akkartik/mu/blob/main/linux/134emit-hex-array.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -119,7 +119,7 @@ if ('onhashchange' in window) { <span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># setup</span> <span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L62" class="LineNr"> 62 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L62" class="LineNr"> 62 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . call</span> <span id="L64" class="LineNr"> 64 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . discard args</span> @@ -138,14 +138,14 @@ if ('onhashchange' in window) { <span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># emit-hex-array(_test-output-buffered-file, arr)</span> <span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . push args</span> <span id="L80" class="LineNr"> 80 </span> 51/push-ecx -<span id="L81" class="LineNr"> 81 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L81" class="LineNr"> 81 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . call</span> <span id="L83" class="LineNr"> 83 </span> e8/call <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a>/disp32 <span id="L84" class="LineNr"> 84 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L85" class="LineNr"> 85 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L86" class="LineNr"> 86 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L87" class="LineNr"> 87 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L88" class="LineNr"> 88 </span> 68/push <a href='115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L88" class="LineNr"> 88 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . call</span> <span id="L90" class="LineNr"> 90 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . discard args</span> @@ -155,7 +155,7 @@ if ('onhashchange' in window) { <span id="L127" class="LineNr">127 </span> <span class="subxS2Comment"># . . push args</span> <span id="L128" class="LineNr">128 </span> 68/push <span class="Constant">"F - test-emit-hex-array"</span>/imm32 <span id="L129" class="LineNr">129 </span> 68/push <span class="Constant">"01 02 03 "</span>/imm32 -<span id="L130" class="LineNr">130 </span> 68/push <a href='115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L130" class="LineNr">130 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L131" class="LineNr">131 </span> <span class="subxS2Comment"># . . call</span> <span id="L132" class="LineNr">132 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L133" class="LineNr">133 </span> <span class="subxS2Comment"># . . discard args</span> diff --git a/html/135next-word-or-string.subx.html b/html/linux/135next-word-or-string.subx.html index 853286d5..a4a349f5 100644 --- a/html/135next-word-or-string.subx.html +++ b/html/linux/135next-word-or-string.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 135next-word-or-string.subx</title> +<title>Mu - linux/135next-word-or-string.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/135next-word-or-string.subx'>https://github.com/akkartik/mu/blob/main/135next-word-or-string.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/135next-word-or-string.subx'>https://github.com/akkartik/mu/blob/main/linux/135next-word-or-string.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># instruction effective address register displacement immediate</span> diff --git a/html/201register-names.subx.html b/html/linux/201register-names.subx.html index 632fc532..1b96cc2f 100644 --- a/html/201register-names.subx.html +++ b/html/linux/201register-names.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 201register-names.subx</title> +<title>Mu - linux/201register-names.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -51,7 +51,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/201register-names.subx'>https://github.com/akkartik/mu/blob/main/201register-names.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/201register-names.subx'>https://github.com/akkartik/mu/blob/main/linux/201register-names.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== data <span id="L2" class="LineNr"> 2 </span><span class="SpecialChar">Registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> diff --git a/html/202write-int.subx.html b/html/linux/202write-int.subx.html index 2bb9a494..11886b06 100644 --- a/html/202write-int.subx.html +++ b/html/linux/202write-int.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 202write-int.subx</title> +<title>Mu - linux/202write-int.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/202write-int.subx'>https://github.com/akkartik/mu/blob/main/202write-int.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/202write-int.subx'>https://github.com/akkartik/mu/blob/main/linux/202write-int.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># write-int: add (the binary representation of) a single int to a stream</span> <span id="L2" class="LineNr"> 2 </span> @@ -107,7 +107,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr"> 47 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L49" class="LineNr"> 49 </span> bb/copy-to-ebx 1/imm32 -<span id="L50" class="LineNr"> 50 </span> e8/call syscall_exit/disp32 +<span id="L50" class="LineNr"> 50 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># never gets here</span> <span id="L52" class="LineNr"> 52 </span> <span id="L53" class="LineNr"> 53 </span><span class="subxTest">test-write-int-single</span>: diff --git a/html/203stack.subx.html b/html/linux/203stack.subx.html index 57d94e11..23f6143d 100644 --- a/html/203stack.subx.html +++ b/html/linux/203stack.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 203stack.subx</title> +<title>Mu - linux/203stack.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.SpecialChar { color: #d70000; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/203stack.subx'>https://github.com/akkartik/mu/blob/main/203stack.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/203stack.subx'>https://github.com/akkartik/mu/blob/main/linux/203stack.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># A stack looks like this:</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># top: int</span> @@ -220,7 +220,7 @@ if ('onhashchange' in window) { <span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L161" class="LineNr">161 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L162" class="LineNr">162 </span> bb/copy-to-ebx 1/imm32 -<span id="L163" class="LineNr">163 </span> e8/call syscall_exit/disp32 +<span id="L163" class="LineNr">163 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L164" class="LineNr">164 </span> <span class="subxComment"># never gets here</span> <span id="L165" class="LineNr">165 </span> <span id="L166" class="LineNr">166 </span><span class="subxTest">test-push</span>: @@ -338,7 +338,7 @@ if ('onhashchange' in window) { <span id="L278" class="LineNr">278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L279" class="LineNr">279 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L280" class="LineNr">280 </span> bb/copy-to-ebx 1/imm32 -<span id="L281" class="LineNr">281 </span> e8/call syscall_exit/disp32 +<span id="L281" class="LineNr">281 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L282" class="LineNr">282 </span> <span class="subxComment"># never gets here</span> <span id="L283" class="LineNr">283 </span> <span id="L284" class="LineNr">284 </span><span class="subxTest">test-pop</span>: @@ -439,7 +439,7 @@ if ('onhashchange' in window) { <span id="L379" class="LineNr">379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L380" class="LineNr">380 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L381" class="LineNr">381 </span> bb/copy-to-ebx 1/imm32 -<span id="L382" class="LineNr">382 </span> e8/call syscall_exit/disp32 +<span id="L382" class="LineNr">382 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L383" class="LineNr">383 </span> <span class="subxComment"># never gets here</span> <span id="L384" class="LineNr">384 </span> <span id="L385" class="LineNr">385 </span><span class="subxTest">test-top</span>: diff --git a/html/baremetal/301array-equal.subx.html b/html/linux/301array-equal.subx.html index b3a727ff..9b77c7d0 100644 --- a/html/baremetal/301array-equal.subx.html +++ b/html/linux/301array-equal.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/301array-equal.subx</title> +<title>Mu - linux/301array-equal.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/301array-equal.subx'>https://github.com/akkartik/mu/blob/main/baremetal/301array-equal.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/301array-equal.subx'>https://github.com/akkartik/mu/blob/main/linux/301array-equal.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Comparing arrays of numbers.</span> <span id="L2" class="LineNr"> 2 </span> @@ -158,7 +158,7 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> 89/<- %edx 4/r32/esp <span id="L99" class="LineNr"> 99 </span> <span class="subxComment">#</span> <span id="L100" class="LineNr">100 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L101" class="LineNr">101 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-empty-with-empty-array"</span>) +<span id="L101" class="LineNr">101 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-empty-with-empty-array"</span>) <span id="L102" class="LineNr">102 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L103" class="LineNr">103 </span> 89/<- %esp 5/r32/ebp <span id="L104" class="LineNr">104 </span> 5d/pop-to-ebp @@ -177,7 +177,7 @@ if ('onhashchange' in window) { <span id="L117" class="LineNr">117 </span> 89/<- %edx 4/r32/esp <span id="L118" class="LineNr">118 </span> <span class="subxComment">#</span> <span id="L119" class="LineNr">119 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L120" class="LineNr">120 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-empty-with-non-empty-array"</span>) +<span id="L120" class="LineNr">120 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-empty-with-non-empty-array"</span>) <span id="L121" class="LineNr">121 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L122" class="LineNr">122 </span> 89/<- %esp 5/r32/ebp <span id="L123" class="LineNr">123 </span> 5d/pop-to-ebp @@ -201,7 +201,7 @@ if ('onhashchange' in window) { <span id="L141" class="LineNr">141 </span> 89/<- %edx 4/r32/esp <span id="L142" class="LineNr">142 </span> <span class="subxComment">#</span> <span id="L143" class="LineNr">143 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L144" class="LineNr">144 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-equal-arrays"</span>) +<span id="L144" class="LineNr">144 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-compare-equal-arrays"</span>) <span id="L145" class="LineNr">145 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L146" class="LineNr">146 </span> 89/<- %esp 5/r32/ebp <span id="L147" class="LineNr">147 </span> 5d/pop-to-ebp @@ -225,7 +225,7 @@ if ('onhashchange' in window) { <span id="L165" class="LineNr">165 </span> 89/<- %edx 4/r32/esp <span id="L166" class="LineNr">166 </span> <span class="subxComment">#</span> <span id="L167" class="LineNr">167 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %edx) <span class="subxComment"># => eax</span> -<span id="L168" class="LineNr">168 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-inequal-arrays-equal-sizes"</span>) +<span id="L168" class="LineNr">168 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-compare-inequal-arrays-equal-sizes"</span>) <span id="L169" class="LineNr">169 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L170" class="LineNr">170 </span> 89/<- %esp 5/r32/ebp <span id="L171" class="LineNr">171 </span> 5d/pop-to-ebp @@ -293,7 +293,7 @@ if ('onhashchange' in window) { <span id="L233" class="LineNr">233 </span> 81 0/subop/add %ebx 4/imm32 <span id="L234" class="LineNr">234 </span> eb/jump $_parse-array-of-ints:loop1/disp8 <span id="L235" class="LineNr">235 </span><span class="Constant">$_parse-array-of-ints:break1</span>: -<span id="L236" class="LineNr">236 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) +<span id="L236" class="LineNr">236 </span> (<a href='120allocate.subx.html#L584'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) <span id="L237" class="LineNr">237 </span><span class="Constant">$_parse-array-of-ints:pass2</span>: <span id="L238" class="LineNr">238 </span> <span class="subxComment"># var slice/edi: slice = {s->data, 0}</span> <span id="L239" class="LineNr">239 </span> 68/push 0/imm32/end @@ -302,7 +302,7 @@ if ('onhashchange' in window) { <span id="L242" class="LineNr">242 </span> 89/<- %edi 4/r32/esp <span id="L243" class="LineNr">243 </span> <span class="subxComment"># curr = lookup(out)->data</span> <span id="L244" class="LineNr">244 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L245" class="LineNr">245 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L245" class="LineNr">245 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L246" class="LineNr">246 </span> 8d/copy-address *(eax+4) 1/r32/ecx <span id="L247" class="LineNr">247 </span><span class="Constant">$_parse-array-of-ints:loop2</span>: <span id="L248" class="LineNr">248 </span> <span class="subxComment"># if (slice->start >= end) break</span> @@ -357,9 +357,9 @@ if ('onhashchange' in window) { <span id="L297" class="LineNr">297 </span> 89/<- %ecx 4/r32/esp <span id="L298" class="LineNr">298 </span> <span class="subxComment">#</span> <span id="L299" class="LineNr">299 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"1 2 3"</span> %esi) -<span id="L300" class="LineNr">300 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L300" class="LineNr">300 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L301" class="LineNr">301 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L302" class="LineNr">302 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints"</span>) +<span id="L302" class="LineNr">302 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints"</span>) <span id="L303" class="LineNr">303 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L304" class="LineNr">304 </span> 89/<- %esp 5/r32/ebp <span id="L305" class="LineNr">305 </span> 5d/pop-to-ebp @@ -376,8 +376,8 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr">316 </span> 89/<- %esi 4/r32/esp <span id="L317" class="LineNr">317 </span> <span class="subxComment">#</span> <span id="L318" class="LineNr">318 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">""</span> %esi) -<span id="L319" class="LineNr">319 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L320" class="LineNr">320 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-empty"</span>) +<span id="L319" class="LineNr">319 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L320" class="LineNr">320 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-empty"</span>) <span id="L321" class="LineNr">321 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L322" class="LineNr">322 </span> 89/<- %esp 5/r32/ebp <span id="L323" class="LineNr">323 </span> 5d/pop-to-ebp @@ -393,9 +393,9 @@ if ('onhashchange' in window) { <span id="L333" class="LineNr">333 </span> 68/push 0/imm32 <span id="L334" class="LineNr">334 </span> 89/<- %esi 4/r32/esp <span id="L335" class="LineNr">335 </span> <span class="subxComment">#</span> -<span id="L336" class="LineNr">336 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='301array-equal.subx.html#L428'>Space</a></span> %esi) -<span id="L337" class="LineNr">337 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L338" class="LineNr">338 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-just-whitespace"</span>) +<span id="L336" class="LineNr">336 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span> %esi) +<span id="L337" class="LineNr">337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L338" class="LineNr">338 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-ints-just-whitespace"</span>) <span id="L339" class="LineNr">339 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L340" class="LineNr">340 </span> 89/<- %esp 5/r32/ebp <span id="L341" class="LineNr">341 </span> 5d/pop-to-ebp @@ -417,9 +417,9 @@ if ('onhashchange' in window) { <span id="L357" class="LineNr">357 </span> 89/<- %ecx 4/r32/esp <span id="L358" class="LineNr">358 </span> <span class="subxComment">#</span> <span id="L359" class="LineNr">359 </span> (<a href='301array-equal.subx.html#L174'>_parse-array-of-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">" 1 2 3 "</span> %esi) -<span id="L360" class="LineNr">360 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L360" class="LineNr">360 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L361" class="LineNr">361 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L362" class="LineNr">362 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints-extra-whitespace"</span>) +<span id="L362" class="LineNr">362 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-ints-extra-whitespace"</span>) <span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L364" class="LineNr">364 </span> 89/<- %esp 5/r32/ebp <span id="L365" class="LineNr">365 </span> 5d/pop-to-ebp @@ -452,10 +452,10 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr">392 </span> 89/<- %esi 4/r32/esp <span id="L393" class="LineNr">393 </span> <span class="subxComment"># var b/eax: (addr array int) = parse-array-of-ints(Heap, expected)</span> <span id="L394" class="LineNr">394 </span> (<a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> *(ebp+0xc) %esi) -<span id="L395" class="LineNr">395 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L395" class="LineNr">395 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L396" class="LineNr">396 </span> <span class="subxComment">#</span> <span id="L397" class="LineNr">397 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> *(ebp+8) %eax) -<span id="L398" class="LineNr">398 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 *(ebp+0x10)) +<span id="L398" class="LineNr">398 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 *(ebp+0x10)) <span id="L399" class="LineNr">399 </span><span class="Constant">$check-array-equal:end</span>: <span id="L400" class="LineNr">400 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L401" class="LineNr">401 </span> 5e/pop-to-esi @@ -481,15 +481,6 @@ if ('onhashchange' in window) { <span id="L421" class="LineNr">421 </span> 89/<- %esp 5/r32/ebp <span id="L422" class="LineNr">422 </span> 5d/pop-to-ebp <span id="L423" class="LineNr">423 </span> c3/return -<span id="L424" class="LineNr">424 </span> -<span id="L425" class="LineNr">425 </span>== data -<span id="L426" class="LineNr">426 </span> -<span id="L427" class="LineNr">427 </span><span class="subxComment"># length-prefixed string containing just a single space</span> -<span id="L428" class="LineNr">428 </span><span class="SpecialChar">Space</span>: <span class="subxComment"># (array byte)</span> -<span id="L429" class="LineNr">429 </span> <span class="subxComment"># size: int</span> -<span id="L430" class="LineNr">430 </span> 1/imm32 -<span id="L431" class="LineNr">431 </span> <span class="subxComment"># data</span> -<span id="L432" class="LineNr">432 </span> 20/space </pre> </body> </html> diff --git a/html/baremetal/302stack_allocate.subx.html b/html/linux/302stack_allocate.subx.html index deb1219f..c99b3664 100644 --- a/html/baremetal/302stack_allocate.subx.html +++ b/html/linux/302stack_allocate.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/302stack_allocate.subx</title> +<title>Mu - linux/302stack_allocate.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -53,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/302stack_allocate.subx'>https://github.com/akkartik/mu/blob/main/baremetal/302stack_allocate.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/302stack_allocate.subx'>https://github.com/akkartik/mu/blob/main/linux/302stack_allocate.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># A function which pushes n zeros on the stack.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Really only intended to be called from code generated by mu.subx (for array</span> @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr">47 </span> 89/<- *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> 4/r32/esp <span id="L48" class="LineNr">48 </span> 81 0/subop/add *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> 4/imm32 <span id="L49" class="LineNr">49 </span> 81 0/subop/add *(ebp+4) 4/imm32 -<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L836'>zero-out</a> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> *(ebp+4)) <span class="subxComment"># n+4</span> +<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L58'>Push-n-zero-bytes-esp</a></span> *(ebp+4)) <span class="subxComment"># n+4</span> <span id="L51" class="LineNr">51 </span><span class="Constant">$push-n-zero-bytes:epilogue</span>: <span id="L52" class="LineNr">52 </span> 8b/-> *<span class="SpecialChar"><a href='302stack_allocate.subx.html#L56'>Push-n-zero-bytes-ebp</a></span> 5/r32/ebp <span class="subxComment"># restore spill</span> <span id="L53" class="LineNr">53 </span> c3/return diff --git a/html/303kernel-string.subx.html b/html/linux/303kernel-string.subx.html index 857fa9f4..84f13d5c 100644 --- a/html/303kernel-string.subx.html +++ b/html/linux/303kernel-string.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 303kernel-string.subx</title> +<title>Mu - linux/303kernel-string.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,8 +15,8 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -52,7 +52,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/303kernel-string.subx'>https://github.com/akkartik/mu/blob/main/303kernel-string.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/303kernel-string.subx'>https://github.com/akkartik/mu/blob/main/linux/303kernel-string.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># We can't really do much with null-terminated kernel strings, and we don't</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># want to. Let's turn them into regular length-prefixed strings at the first</span> @@ -74,14 +74,14 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr">18 </span> (<a href='303kernel-string.subx.html#L57'>kernel-string-length</a> *(ebp+0xc)) <span id="L19" class="LineNr">19 </span> 89/<- %ecx 0/r32/eax <span id="L20" class="LineNr">20 </span> <span class="subxComment"># result = allocate-array(ad, len)</span> -<span id="L21" class="LineNr">21 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> *(ebp+8) %ecx *(ebp+0x10)) +<span id="L21" class="LineNr">21 </span> (<a href='120allocate.subx.html#L584'>allocate-array</a> *(ebp+8) %ecx *(ebp+0x10)) <span id="L22" class="LineNr">22 </span> <span class="subxComment"># var c/edx: byte = 0</span> <span id="L23" class="LineNr">23 </span> ba/copy-to-edx 0/imm32 <span id="L24" class="LineNr">24 </span> <span class="subxComment"># var src/esi: (addr byte) = in</span> <span id="L25" class="LineNr">25 </span> 8b/-> *(ebp+0xc) 6/r32/esi <span id="L26" class="LineNr">26 </span> <span class="subxComment"># var dest/edi: (addr byte) = result->data</span> <span id="L27" class="LineNr">27 </span> 8b/-> *(ebp+0x10) 7/r32/edi -<span id="L28" class="LineNr">28 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L28" class="LineNr">28 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> <span id="L29" class="LineNr">29 </span> 8d/copy-address *(eax+4) 7/r32/edi <span id="L30" class="LineNr">30 </span> { <span id="L31" class="LineNr">31 </span><span class="Constant">$kernel-string-to-string:loop</span>: diff --git a/html/304screen.subx.html b/html/linux/304screen.subx.html index 8a1c99a9..4856e76d 100644 --- a/html/304screen.subx.html +++ b/html/linux/304screen.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 304screen.subx</title> +<title>Mu - linux/304screen.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } +.LineNr { } +.subxMinorFunction { color: #875f5f; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } -.subxMinorFunction { color: #875f5f; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/304screen.subx'>https://github.com/akkartik/mu/blob/main/304screen.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/304screen.subx'>https://github.com/akkartik/mu/blob/main/linux/304screen.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Primitives for screen control.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Require Linux and a modern terminal.</span> @@ -112,7 +112,7 @@ if ('onhashchange' in window) { <span id="L53" class="LineNr"> 53 </span> 89/<- %edx 6/r32/esi <span id="L54" class="LineNr"> 54 </span> b9/copy-to-ecx 0x5413/imm32/TIOCGWINSZ <span id="L55" class="LineNr"> 55 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx -<span id="L56" class="LineNr"> 56 </span> e8/call syscall_ioctl/disp32 +<span id="L56" class="LineNr"> 56 </span> e8/call <a href='000init.subx.html#L77'>syscall_ioctl</a>/disp32 <span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># some bitworking to extract 2 16-bit shorts</span> <span id="L58" class="LineNr"> 58 </span> 8b/-> *esi 0/r32/eax <span id="L59" class="LineNr"> 59 </span> 81 4/subop/and %eax 0xffff/imm32 @@ -490,7 +490,7 @@ if ('onhashchange' in window) { <span id="L431" class="LineNr">431 </span> <span class="subxComment"># open("/dev/tty", O_RDWR)</span> <span id="L432" class="LineNr">432 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='304screen.subx.html#L455'>Terminal-filename</a></span>/imm32 <span id="L433" class="LineNr">433 </span> b9/copy-to-ecx 2/imm32/O_RDWR -<span id="L434" class="LineNr">434 </span> e8/call syscall_open/disp32 +<span id="L434" class="LineNr">434 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 <span id="L435" class="LineNr">435 </span> 89/<- *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 0/r32/eax <span id="L436" class="LineNr">436 </span><span class="Constant">$_maybe-open-terminal:end</span>: <span id="L437" class="LineNr">437 </span> <span class="subxS1Comment"># . restore registers</span> diff --git a/html/305keyboard.subx.html b/html/linux/305keyboard.subx.html index 71984561..ac560581 100644 --- a/html/305keyboard.subx.html +++ b/html/linux/305keyboard.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 305keyboard.subx</title> +<title>Mu - linux/305keyboard.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } +.LineNr { } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/305keyboard.subx'>https://github.com/akkartik/mu/blob/main/305keyboard.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/305keyboard.subx'>https://github.com/akkartik/mu/blob/main/linux/305keyboard.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Primitives for keyboard control.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Require Linux and a modern terminal.</span> @@ -83,7 +83,7 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span> 89/<- %edx 6/r32/esi <span id="L25" class="LineNr"> 25 </span> b9/copy-to-ecx 0x5401/imm32/TCGETS <span id="L26" class="LineNr"> 26 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx -<span id="L27" class="LineNr"> 27 </span> e8/call syscall_ioctl/disp32 +<span id="L27" class="LineNr"> 27 </span> e8/call <a href='000init.subx.html#L77'>syscall_ioctl</a>/disp32 <span id="L28" class="LineNr"> 28 </span> <span class="subxComment"># terminal-info->c_iflags &= Keyboard-immediate-mode-iflags</span> <span id="L29" class="LineNr"> 29 </span><span class="CommentedCode">#? (write-buffered Stderr "iflags before: ")</span> <span id="L30" class="LineNr"> 30 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> @@ -112,7 +112,7 @@ if ('onhashchange' in window) { <span id="L53" class="LineNr"> 53 </span> 89/<- %edx 6/r32/esi <span id="L54" class="LineNr"> 54 </span> b9/copy-to-ecx 0x5402/imm32/TCSETS <span id="L55" class="LineNr"> 55 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx -<span id="L56" class="LineNr"> 56 </span> e8/call syscall_ioctl/disp32 +<span id="L56" class="LineNr"> 56 </span> e8/call <a href='000init.subx.html#L77'>syscall_ioctl</a>/disp32 <span id="L57" class="LineNr"> 57 </span><span class="Constant">$enable-keyboard-immediate-mode:end</span>: <span id="L58" class="LineNr"> 58 </span> <span class="subxS1Comment"># . reclaim locals</span> <span id="L59" class="LineNr"> 59 </span> 81 0/subop/add %esp 0x100/imm32 @@ -149,7 +149,7 @@ if ('onhashchange' in window) { <span id="L90" class="LineNr"> 90 </span> 89/<- %edx 6/r32/esi <span id="L91" class="LineNr"> 91 </span> b9/copy-to-ecx 0x5401/imm32/TCGETS <span id="L92" class="LineNr"> 92 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx -<span id="L93" class="LineNr"> 93 </span> e8/call syscall_ioctl/disp32 +<span id="L93" class="LineNr"> 93 </span> e8/call <a href='000init.subx.html#L77'>syscall_ioctl</a>/disp32 <span id="L94" class="LineNr"> 94 </span> <span class="subxComment"># terminal-info->c_iflags |= Keyboard-type-mode-iflags</span> <span id="L95" class="LineNr"> 95 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Termios-c_iflag</span> <span id="L96" class="LineNr"> 96 </span> 0b/or *<span class="SpecialChar"><a href='305keyboard.subx.html#L215'>Keyboard-type-mode-iflags</a></span> 0/r32/eax @@ -162,7 +162,7 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr">103 </span> 89/<- %edx 6/r32/esi <span id="L104" class="LineNr">104 </span> b9/copy-to-ecx 0x5402/imm32/TCSETS <span id="L105" class="LineNr">105 </span> 8b/-> *<span class="SpecialChar"><a href='304screen.subx.html#L446'>Terminal-file-descriptor</a></span> 3/r32/ebx -<span id="L106" class="LineNr">106 </span> e8/call syscall_ioctl/disp32 +<span id="L106" class="LineNr">106 </span> e8/call <a href='000init.subx.html#L77'>syscall_ioctl</a>/disp32 <span id="L107" class="LineNr">107 </span><span class="Constant">$enable-keyboard-type-mode:end</span>: <span id="L108" class="LineNr">108 </span> <span class="subxS1Comment"># . reclaim locals</span> <span id="L109" class="LineNr">109 </span> 81 0/subop/add %esp 0x100/imm32 diff --git a/html/306files.subx.html b/html/linux/306files.subx.html index 182815d5..259ebb5a 100644 --- a/html/306files.subx.html +++ b/html/linux/306files.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 306files.subx</title> +<title>Mu - linux/306files.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,10 +14,10 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -53,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/306files.subx'>https://github.com/akkartik/mu/blob/main/306files.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/306files.subx'>https://github.com/akkartik/mu/blob/main/linux/306files.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Methods for constructing buffered-file objects.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -83,7 +83,7 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x1010 *(ebp+0x10)) <span class="subxComment"># file-buffer-size + 16 for other fields</span> <span id="L27" class="LineNr"> 27 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> <span id="L28" class="LineNr"> 28 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L29" class="LineNr"> 29 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L29" class="LineNr"> 29 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># out-addr->size = 4KB</span> <span id="L31" class="LineNr"> 31 </span> c7 0/subop/copy *(eax+0xc) 0x1000/imm32/file-buffer-size <span class="subxComment"># Stream-size + 4 for fd</span> <span id="L32" class="LineNr"> 32 </span> <span class="subxComment"># out-addr->fd = fd</span> @@ -126,7 +126,7 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span> 8d/copy-address *(esi+0xc) 3/r32/ebx <span id="L70" class="LineNr"> 70 </span> 8b/-> *(ebp+0xc) 1/r32/ecx/flags <span id="L71" class="LineNr"> 71 </span> ba/copy-to-edx 0x180/imm32/permissions -<span id="L72" class="LineNr"> 72 </span> e8/call syscall_open/disp32 +<span id="L72" class="LineNr"> 72 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 <span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># restore edx</span> <span id="L74" class="LineNr"> 74 </span> 5a/pop-to-edx <span id="L75" class="LineNr"> 75 </span><span class="Constant">$open-fd:end</span>: @@ -163,7 +163,7 @@ if ('onhashchange' in window) { <span id="L106" class="LineNr">106 </span> <span class="subxComment"># allocate stream</span> <span id="L107" class="LineNr">107 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx 1 %edi) <span id="L108" class="LineNr">108 </span> <span class="subxComment"># var stream-addr/edi: (addr stream byte) = lookup(stream)</span> -<span id="L109" class="LineNr">109 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L109" class="LineNr">109 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> <span id="L110" class="LineNr">110 </span> 89/<- %edi 0/r32/eax <span id="L111" class="LineNr">111 </span> <span class="subxComment"># write contents to stream</span> <span id="L112" class="LineNr">112 </span> (<a href='108write.subx.html#L24'>write</a> %edi %esi) @@ -171,7 +171,7 @@ if ('onhashchange' in window) { <span id="L114" class="LineNr">114 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+0xc)) <span id="L115" class="LineNr">115 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> <span id="L116" class="LineNr">116 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L117" class="LineNr">117 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L117" class="LineNr">117 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L118" class="LineNr">118 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> <span id="L119" class="LineNr">119 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size <span id="L120" class="LineNr">120 </span> <span class="subxComment"># out-addr->fd = stream</span> @@ -203,13 +203,13 @@ if ('onhashchange' in window) { <span id="L146" class="LineNr">146 </span> <span class="subxComment"># allocate stream</span> <span id="L147" class="LineNr">147 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x100 1 %ecx) <span id="L148" class="LineNr">148 </span> <span class="subxComment"># var stream-addr/ecx: (addr stream byte) = lookup(stream)</span> -<span id="L149" class="LineNr">149 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L149" class="LineNr">149 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> <span id="L150" class="LineNr">150 </span> 89/<- %ecx 0/r32/eax <span id="L151" class="LineNr">151 </span> <span class="subxComment"># allocate buffered-file</span> <span id="L152" class="LineNr">152 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x110 *(ebp+8)) <span id="L153" class="LineNr">153 </span> <span class="subxComment"># var out-addr/eax: (addr buffered-file)</span> <span id="L154" class="LineNr">154 </span> 8b/-> *(ebp+8) 0/r32/eax -<span id="L155" class="LineNr">155 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L155" class="LineNr">155 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L156" class="LineNr">156 </span> <span class="subxComment"># out-addr->size = 256 bytes</span> <span id="L157" class="LineNr">157 </span> c7 0/subop/copy *(eax+0xc) 0x100/imm32/file-buffer-size <span id="L158" class="LineNr">158 </span> <span class="subxComment"># out-addr->fd = stream</span> diff --git a/html/307size.subx.html b/html/linux/307size.subx.html index 5078c510..d88c035a 100644 --- a/html/307size.subx.html +++ b/html/linux/307size.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 307size.subx</title> +<title>Mu - linux/307size.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,8 +15,8 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -52,7 +52,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/307size.subx'>https://github.com/akkartik/mu/blob/main/307size.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/307size.subx'>https://github.com/akkartik/mu/blob/main/linux/307size.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Size of an array in bytes.</span> <span id="L2" class="LineNr"> 2 </span> diff --git a/html/baremetal/308allocate-array.subx.html b/html/linux/308allocate-array.subx.html index f9c50980..5ac1e3ed 100644 --- a/html/baremetal/308allocate-array.subx.html +++ b/html/linux/308allocate-array.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/308allocate-array.subx</title> +<title>Mu - linux/308allocate-array.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -52,7 +52,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/308allocate-array.subx'>https://github.com/akkartik/mu/blob/main/baremetal/308allocate-array.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/308allocate-array.subx'>https://github.com/akkartik/mu/blob/main/linux/308allocate-array.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># 2-arg version of allocate-array.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Really only intended to be called from code generated by mu.subx.</span> @@ -70,7 +70,7 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr">14 </span> 8b/-> *(ebp+0xc) 0/r32/eax <span id="L15" class="LineNr">15 </span> f7 4/subop/multiply-into-edx-eax *(ebp+0x10) <span id="L16" class="LineNr">16 </span> <span class="subxComment"># TODO: check edx for overflow</span> -<span id="L17" class="LineNr">17 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %eax *(ebp+0x14)) +<span id="L17" class="LineNr">17 </span> (<a href='120allocate.subx.html#L584'>allocate-array</a> *(ebp+8) %eax *(ebp+0x14)) <span id="L18" class="LineNr">18 </span><span class="Constant">$allocate-array2:end</span>: <span id="L19" class="LineNr">19 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L20" class="LineNr">20 </span> 5a/pop-to-edx diff --git a/html/baremetal/309stream.subx.html b/html/linux/309stream.subx.html index 65ecbe81..09181a24 100644 --- a/html/baremetal/309stream.subx.html +++ b/html/linux/309stream.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/309stream.subx</title> +<title>Mu - linux/309stream.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,6 +14,7 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } .LineNr { } @@ -52,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/309stream.subx'>https://github.com/akkartik/mu/blob/main/baremetal/309stream.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/309stream.subx'>https://github.com/akkartik/mu/blob/main/linux/309stream.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Some unsafe methods not intended to be used directly in SubX, only through</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Mu after proper type-checking.</span> @@ -125,7 +126,7 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L70" class="LineNr"> 70 </span> 01/add-to %ecx 2/r32/edx <span id="L71" class="LineNr"> 71 </span> 3b/compare 1/r32/ecx *(edi+8) -<span id="L72" class="LineNr"> 72 </span> 0f 8f/jump-if-> $write-to-stream:<a href='501draw-text.mu.html#L519'>abort</a>/disp32 +<span id="L72" class="LineNr"> 72 </span> 0f 8f/jump-if-> $write-to-stream:abort/disp32 <span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># var out/edx: (addr byte) = s->data + s->write</span> <span id="L74" class="LineNr"> 74 </span> 8d/copy-address *(edi+edx+0xc) 2/r32/edx <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># var outend/ebx: (addr byte) = out + n</span> @@ -137,7 +138,7 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr"> 81 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L82" class="LineNr"> 82 </span> 8d/copy-address *(eax+ecx) 1/r32/ecx <span id="L83" class="LineNr"> 83 </span> <span class="subxComment">#</span> -<span id="L84" class="LineNr"> 84 </span> (<a href='108write.subx.html#L171'>_append-4</a> %edx %ebx %eax %ecx) <span class="subxComment"># => eax</span> +<span id="L84" class="LineNr"> 84 </span> (<a href='107trace.subx.html#L892'>_append-4</a> %edx %ebx %eax %ecx) <span class="subxComment"># => eax</span> <span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># s->write += n</span> <span id="L86" class="LineNr"> 86 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L87" class="LineNr"> 87 </span> 01/add-to *edi 1/r32/ecx @@ -153,11 +154,11 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span> 5d/pop-to-ebp <span id="L98" class="LineNr"> 98 </span> c3/return <span id="L99" class="LineNr"> 99 </span> -<span id="L100" class="LineNr">100 </span><span class="Constant">$write-to-stream:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L101" class="LineNr">101 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"write-to-stream: stream full"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L102" class="LineNr">102 </span> { -<span id="L103" class="LineNr">103 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L104" class="LineNr">104 </span> } +<span id="L100" class="LineNr">100 </span><span class="Constant">$write-to-stream:abort</span>: +<span id="L101" class="LineNr">101 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"write-to-stream: stream full\n"</span>) +<span id="L102" class="LineNr">102 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L103" class="LineNr">103 </span> bb/copy-to-ebx 1/imm32 +<span id="L104" class="LineNr">104 </span> (<a href='000init.subx.html#L18'>syscall_exit</a>) <span id="L105" class="LineNr">105 </span> <span class="subxComment"># never gets here</span> <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="subxFunction">read-from-stream</span>: <span class="subxComment"># s: (addr stream _), out: (addr byte), n: int</span> @@ -178,7 +179,7 @@ if ('onhashchange' in window) { <span id="L122" class="LineNr">122 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L123" class="LineNr">123 </span> 01/add-to %ecx 2/r32/edx <span id="L124" class="LineNr">124 </span> 3b/compare 1/r32/ecx *esi -<span id="L125" class="LineNr">125 </span> 0f 8f/jump-if-> $read-from-stream:<a href='501draw-text.mu.html#L519'>abort</a>/disp32 +<span id="L125" class="LineNr">125 </span> 0f 8f/jump-if-> $read-from-stream:abort/disp32 <span id="L126" class="LineNr">126 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> <span id="L127" class="LineNr">127 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx <span id="L128" class="LineNr">128 </span> <span class="subxComment"># var inend/ebx: (addr byte) = in + n</span> @@ -190,7 +191,7 @@ if ('onhashchange' in window) { <span id="L134" class="LineNr">134 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L135" class="LineNr">135 </span> 8d/copy-address *(eax+ecx) 1/r32/ecx <span id="L136" class="LineNr">136 </span> <span class="subxComment">#</span> -<span id="L137" class="LineNr">137 </span> (<a href='108write.subx.html#L171'>_append-4</a> %eax %ecx %edx %ebx) <span class="subxComment"># => eax</span> +<span id="L137" class="LineNr">137 </span> (<a href='107trace.subx.html#L892'>_append-4</a> %eax %ecx %edx %ebx) <span class="subxComment"># => eax</span> <span id="L138" class="LineNr">138 </span> <span class="subxComment"># s->read += n</span> <span id="L139" class="LineNr">139 </span> 8b/-> *(ebp+0x10) 1/r32/ecx <span id="L140" class="LineNr">140 </span> 01/add-to *(esi+4) 1/r32/ecx @@ -206,11 +207,11 @@ if ('onhashchange' in window) { <span id="L150" class="LineNr">150 </span> 5d/pop-to-ebp <span id="L151" class="LineNr">151 </span> c3/return <span id="L152" class="LineNr">152 </span> -<span id="L153" class="LineNr">153 </span><span class="Constant">$read-from-stream:<a href='501draw-text.mu.html#L519'>abort</a></span>: -<span id="L154" class="LineNr">154 </span> (<a href='501draw-text.mu.html#L222'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0 <span class="Constant">"read-from-stream: stream empty"</span> 3 0) <span class="subxComment"># 3=cyan</span> -<span id="L155" class="LineNr">155 </span> { -<span id="L156" class="LineNr">156 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L157" class="LineNr">157 </span> } +<span id="L153" class="LineNr">153 </span><span class="Constant">$read-from-stream:abort</span>: +<span id="L154" class="LineNr">154 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"read-from-stream: stream empty\n"</span>) +<span id="L155" class="LineNr">155 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L156" class="LineNr">156 </span> bb/copy-to-ebx 1/imm32 +<span id="L157" class="LineNr">157 </span> (<a href='000init.subx.html#L18'>syscall_exit</a>) <span id="L158" class="LineNr">158 </span> <span class="subxComment"># never gets here</span> <span id="L159" class="LineNr">159 </span> <span id="L160" class="LineNr">160 </span><span class="subxFunction">stream-first</span>: <span class="subxComment"># s: (addr stream byte) -> result/eax: byte</span> diff --git a/html/baremetal/310copy-bytes.subx.html b/html/linux/310copy-bytes.subx.html index 65b80e17..3772e3c8 100644 --- a/html/baremetal/310copy-bytes.subx.html +++ b/html/linux/310copy-bytes.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/310copy-bytes.subx</title> +<title>Mu - linux/310copy-bytes.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/310copy-bytes.subx'>https://github.com/akkartik/mu/blob/main/baremetal/310copy-bytes.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/310copy-bytes.subx'>https://github.com/akkartik/mu/blob/main/linux/310copy-bytes.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Some helpers for copying non-overlapping regions of memory.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Really only intended to be called from code generated by mu.subx.</span> @@ -130,13 +130,13 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> 8b/-> *esi 1/r32/ecx <span id="L73" class="LineNr"> 73 </span> 2b/subtract *(esi+4) 1/r32/ecx <span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># allocate</span> -<span id="L75" class="LineNr"> 75 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L75" class="LineNr"> 75 </span> (<a href='120allocate.subx.html#L584'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) <span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read</span> <span id="L77" class="LineNr"> 77 </span> 8b/-> *(esi+4) 2/r32/edx <span id="L78" class="LineNr"> 78 </span> 8d/copy-address *(esi+edx+0xc) 2/r32/edx <span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># var dest/eax: (addr byte) = data for out</span> <span id="L80" class="LineNr"> 80 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L81" class="LineNr"> 81 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L81" class="LineNr"> 81 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L82" class="LineNr"> 82 </span> 8d/copy-address *(eax+4) 0/r32/eax <span id="L83" class="LineNr"> 83 </span> <span class="subxComment">#</span> <span id="L84" class="LineNr"> 84 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %edx %eax %ecx) @@ -156,18 +156,18 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> 55/push-ebp <span id="L99" class="LineNr"> 99 </span> 89/<- %ebp 4/r32/esp <span id="L100" class="LineNr">100 </span> <span class="subxComment"># setup</span> -<span id="L101" class="LineNr">101 </span> (<a href='106stream.subx.html#L20'>clear-stream</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a>) -<span id="L102" class="LineNr">102 </span> (<a href='108write.subx.html#L11'>write</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a> <span class="Constant">"abc"</span>) +<span id="L101" class="LineNr">101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L102" class="LineNr">102 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"abc"</span>) <span id="L103" class="LineNr">103 </span> <span class="subxComment"># skip something</span> -<span id="L104" class="LineNr">104 </span> (<a href='112read-byte.subx.html#L13'>read-byte</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a>) <span class="subxComment"># => eax</span> +<span id="L104" class="LineNr">104 </span> (<a href='112read-byte.subx.html#L273'>read-byte</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) <span class="subxComment"># => eax</span> <span id="L105" class="LineNr">105 </span> <span class="subxComment"># var out/ecx: (handle array byte)</span> <span id="L106" class="LineNr">106 </span> 68/push 0/imm32 <span id="L107" class="LineNr">107 </span> 68/push 0/imm32 <span id="L108" class="LineNr">108 </span> 89/<- %ecx 4/r32/esp <span id="L109" class="LineNr">109 </span> <span class="subxComment">#</span> -<span id="L110" class="LineNr">110 </span> (<a href='310copy-bytes.subx.html#L60'>stream-to-array</a> <a href='112read-byte.subx.html#L50'>_test-input-stream</a> %ecx) -<span id="L111" class="LineNr">111 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> -<span id="L112" class="LineNr">112 </span> (<a href='105string-equal.subx.html#L213'>check-strings-equal</a> %eax <span class="Constant">"bc"</span>) +<span id="L110" class="LineNr">110 </span> (<a href='310copy-bytes.subx.html#L60'>stream-to-array</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx) +<span id="L111" class="LineNr">111 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L112" class="LineNr">112 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"bc"</span>) <span id="L113" class="LineNr">113 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L114" class="LineNr">114 </span> 89/<- %esp 5/r32/ebp <span id="L115" class="LineNr">115 </span> 5d/pop-to-ebp @@ -193,13 +193,13 @@ if ('onhashchange' in window) { <span id="L135" class="LineNr">135 </span> 7c/jump-if-< $unquote-stream-to-array:end/disp8 <span id="L136" class="LineNr">136 </span> 81 5/subop/subtract %ecx 2/imm32 <span id="L137" class="LineNr">137 </span> <span class="subxComment"># allocate</span> -<span id="L138" class="LineNr">138 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L138" class="LineNr">138 </span> (<a href='120allocate.subx.html#L584'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) <span id="L139" class="LineNr">139 </span> <span class="subxComment"># var in/edx: (addr byte) = s->data + s->read + 1</span> <span id="L140" class="LineNr">140 </span> 8b/-> *(esi+4) 2/r32/edx <span id="L141" class="LineNr">141 </span> 8d/copy-address *(esi+edx+0xd) 2/r32/edx <span class="subxComment"># Stream-data + 1</span> <span id="L142" class="LineNr">142 </span> <span class="subxComment"># var dest/eax: (addr byte) = data for out</span> <span id="L143" class="LineNr">143 </span> 8b/-> *(ebp+0xc) 0/r32/eax -<span id="L144" class="LineNr">144 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L144" class="LineNr">144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L145" class="LineNr">145 </span> 8d/copy-address *(eax+4) 0/r32/eax <span id="L146" class="LineNr">146 </span> <span class="subxComment">#</span> <span id="L147" class="LineNr">147 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %edx %eax %ecx) diff --git a/html/baremetal/311decimal-int.subx.html b/html/linux/311decimal-int.subx.html index 9c57479e..f6180bdb 100644 --- a/html/baremetal/311decimal-int.subx.html +++ b/html/linux/311decimal-int.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/311decimal-int.subx</title> +<title>Mu - linux/311decimal-int.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/311decimal-int.subx'>https://github.com/akkartik/mu/blob/main/baremetal/311decimal-int.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/311decimal-int.subx'>https://github.com/akkartik/mu/blob/main/linux/311decimal-int.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helpers for decimal ints.</span> <span id="L2" class="LineNr"> 2 </span> @@ -184,10 +184,10 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span> <span class="subxComment"># if (curr >= in->end) break</span> <span id="L125" class="LineNr">125 </span> 39/compare %esi 7/r32/edi <span id="L126" class="LineNr">126 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L127" class="LineNr">127 </span> <span class="subxComment"># if !is-decimal-digit?(*curr) return 0</span> +<span id="L127" class="LineNr">127 </span> <span class="subxComment"># if !decimal-digit?(*curr) return 0</span> <span id="L128" class="LineNr">128 </span> 8a/copy-byte *esi 1/r32/CL <span id="L129" class="LineNr">129 </span> 50/push-eax -<span id="L130" class="LineNr">130 </span> (<a href='126write-int-decimal.subx.html#L299'>is-decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L130" class="LineNr">130 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> <span id="L131" class="LineNr">131 </span> { <span id="L132" class="LineNr">132 </span> 3d/compare-eax-and 0/imm32/false <span id="L133" class="LineNr">133 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 @@ -247,7 +247,7 @@ if ('onhashchange' in window) { <span id="L187" class="LineNr">187 </span> 89/<- %ecx 4/r32/esp <span id="L188" class="LineNr">188 </span> <span class="subxComment">#</span> <span id="L189" class="LineNr">189 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L190" class="LineNr">190 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-parse-decimal-int-from-slice-single-digit"</span>) +<span id="L190" class="LineNr">190 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-parse-decimal-int-from-slice-single-digit"</span>) <span id="L191" class="LineNr">191 </span><span class="Constant">$test-parse-decimal-int-helper-single-digit:end</span>: <span id="L192" class="LineNr">192 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L193" class="LineNr">193 </span> 59/pop-to-ecx @@ -275,7 +275,7 @@ if ('onhashchange' in window) { <span id="L215" class="LineNr">215 </span> 89/<- %ecx 4/r32/esp <span id="L216" class="LineNr">216 </span> <span class="subxComment">#</span> <span id="L217" class="LineNr">217 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L218" class="LineNr">218 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0x22 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit"</span>) <span class="subxComment"># 34 in hex</span> +<span id="L218" class="LineNr">218 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0x22 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit"</span>) <span class="subxComment"># 34 in hex</span> <span id="L219" class="LineNr">219 </span><span class="Constant">$test-parse-decimal-int-helper-multi-digit:end</span>: <span id="L220" class="LineNr">220 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L221" class="LineNr">221 </span> 59/pop-to-ecx @@ -303,7 +303,7 @@ if ('onhashchange' in window) { <span id="L243" class="LineNr">243 </span> 89/<- %ecx 4/r32/esp <span id="L244" class="LineNr">244 </span> <span class="subxComment">#</span> <span id="L245" class="LineNr">245 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L246" class="LineNr">246 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-parse-decimal-int-from-slice-zero"</span>) +<span id="L246" class="LineNr">246 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-parse-decimal-int-from-slice-zero"</span>) <span id="L247" class="LineNr">247 </span><span class="Constant">$test-parse-decimal-int-helper-zero:end</span>: <span id="L248" class="LineNr">248 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L249" class="LineNr">249 </span> 59/pop-to-ecx @@ -331,7 +331,7 @@ if ('onhashchange' in window) { <span id="L271" class="LineNr">271 </span> 89/<- %ecx 4/r32/esp <span id="L272" class="LineNr">272 </span> <span class="subxComment">#</span> <span id="L273" class="LineNr">273 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L274" class="LineNr">274 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax -3 <span class="Constant">"F - test-parse-decimal-int-from-slice-negative"</span>) +<span id="L274" class="LineNr">274 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax -3 <span class="Constant">"F - test-parse-decimal-int-from-slice-negative"</span>) <span id="L275" class="LineNr">275 </span><span class="Constant">$test-parse-decimal-int-helper-negative:end</span>: <span id="L276" class="LineNr">276 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L277" class="LineNr">277 </span> 59/pop-to-ecx @@ -359,7 +359,7 @@ if ('onhashchange' in window) { <span id="L299" class="LineNr">299 </span> 89/<- %ecx 4/r32/esp <span id="L300" class="LineNr">300 </span> <span class="subxComment">#</span> <span id="L301" class="LineNr">301 </span> (<a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> -<span id="L302" class="LineNr">302 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax -0x20 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit-negative"</span>) <span class="subxComment"># -32 in hex</span> +<span id="L302" class="LineNr">302 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax -0x20 <span class="Constant">"F - test-parse-decimal-int-from-slice-multi-digit-negative"</span>) <span class="subxComment"># -32 in hex</span> <span id="L303" class="LineNr">303 </span><span class="Constant">$test-parse-decimal-int-helper-multi-digit-negative:end</span>: <span id="L304" class="LineNr">304 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L305" class="LineNr">305 </span> 59/pop-to-ecx @@ -427,7 +427,7 @@ if ('onhashchange' in window) { <span id="L367" class="LineNr">367 </span> 89/<- %ebp 4/r32/esp <span id="L368" class="LineNr">368 </span> <span class="subxComment">#</span> <span id="L369" class="LineNr">369 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> 0) <span class="subxComment"># => eax</span> -<span id="L370" class="LineNr">370 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-of-zero"</span>) +<span id="L370" class="LineNr">370 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-of-zero"</span>) <span id="L371" class="LineNr">371 </span><span class="Constant">$test-decimal-size-of-zero:end</span>: <span id="L372" class="LineNr">372 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L373" class="LineNr">373 </span> 89/<- %esp 5/r32/ebp @@ -440,7 +440,7 @@ if ('onhashchange' in window) { <span id="L380" class="LineNr">380 </span> 89/<- %ebp 4/r32/esp <span id="L381" class="LineNr">381 </span> <span class="subxComment">#</span> <span id="L382" class="LineNr">382 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> 4) <span class="subxComment"># => eax</span> -<span id="L383" class="LineNr">383 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-single-digit"</span>) +<span id="L383" class="LineNr">383 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-decimal-size-single-digit"</span>) <span id="L384" class="LineNr">384 </span><span class="Constant">$test-decimal-size-single-digit:end</span>: <span id="L385" class="LineNr">385 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L386" class="LineNr">386 </span> 89/<- %esp 5/r32/ebp @@ -453,7 +453,7 @@ if ('onhashchange' in window) { <span id="L393" class="LineNr">393 </span> 89/<- %ebp 4/r32/esp <span id="L394" class="LineNr">394 </span> <span class="subxComment">#</span> <span id="L395" class="LineNr">395 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> 0xa) <span class="subxComment"># => eax</span> -<span id="L396" class="LineNr">396 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-multi-digit"</span>) +<span id="L396" class="LineNr">396 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-multi-digit"</span>) <span id="L397" class="LineNr">397 </span><span class="Constant">$test-decimal-size-multi-digit:end</span>: <span id="L398" class="LineNr">398 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L399" class="LineNr">399 </span> 89/<- %esp 5/r32/ebp @@ -466,7 +466,7 @@ if ('onhashchange' in window) { <span id="L406" class="LineNr">406 </span> 89/<- %ebp 4/r32/esp <span id="L407" class="LineNr">407 </span> <span class="subxComment">#</span> <span id="L408" class="LineNr">408 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> -4) <span class="subxComment"># => eax</span> -<span id="L409" class="LineNr">409 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-single-digit-negative"</span>) +<span id="L409" class="LineNr">409 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 2 <span class="Constant">"F - test-decimal-size-single-digit-negative"</span>) <span id="L410" class="LineNr">410 </span><span class="Constant">$test-decimal-size-single-digit-negative:end</span>: <span id="L411" class="LineNr">411 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L412" class="LineNr">412 </span> 89/<- %esp 5/r32/ebp @@ -479,7 +479,7 @@ if ('onhashchange' in window) { <span id="L419" class="LineNr">419 </span> 89/<- %ebp 4/r32/esp <span id="L420" class="LineNr">420 </span> <span class="subxComment">#</span> <span id="L421" class="LineNr">421 </span> (<a href='311decimal-int.subx.html#L312'>decimal-size</a> -0xa) <span class="subxComment"># => eax</span> -<span id="L422" class="LineNr">422 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-decimal-size-multi-digit-negative"</span>) +<span id="L422" class="LineNr">422 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 3 <span class="Constant">"F - test-decimal-size-multi-digit-negative"</span>) <span id="L423" class="LineNr">423 </span><span class="Constant">$test-decimal-size-multi-digit-negative:end</span>: <span id="L424" class="LineNr">424 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L425" class="LineNr">425 </span> 89/<- %esp 5/r32/ebp @@ -548,7 +548,7 @@ if ('onhashchange' in window) { <span id="L488" class="LineNr">488 </span> 81 0/subop/add %ebx 4/imm32 <span id="L489" class="LineNr">489 </span> eb/jump $_parse-array-of-decimal-ints:loop1/disp8 <span id="L490" class="LineNr">490 </span><span class="Constant">$_parse-array-of-decimal-ints:break1</span>: -<span id="L491" class="LineNr">491 </span> (<a href='120allocate.subx.html#L535'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) +<span id="L491" class="LineNr">491 </span> (<a href='120allocate.subx.html#L584'>allocate-array</a> *(ebp+8) %ebx *(ebp+0x10)) <span id="L492" class="LineNr">492 </span><span class="Constant">$_parse-array-of-decimal-ints:pass2</span>: <span id="L493" class="LineNr">493 </span> <span class="subxComment"># var slice/edi: slice = {s->data, 0}</span> <span id="L494" class="LineNr">494 </span> 68/push 0/imm32/end @@ -557,7 +557,7 @@ if ('onhashchange' in window) { <span id="L497" class="LineNr">497 </span> 89/<- %edi 4/r32/esp <span id="L498" class="LineNr">498 </span> <span class="subxComment"># curr = lookup(out)->data</span> <span id="L499" class="LineNr">499 </span> 8b/-> *(ebp+0x10) 0/r32/eax -<span id="L500" class="LineNr">500 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L500" class="LineNr">500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> <span id="L501" class="LineNr">501 </span> 8d/copy-address *(eax+4) 1/r32/ecx <span id="L502" class="LineNr">502 </span><span class="Constant">$_parse-array-of-decimal-ints:loop2</span>: <span id="L503" class="LineNr">503 </span> <span class="subxComment"># if (slice->start >= end) break</span> @@ -612,9 +612,9 @@ if ('onhashchange' in window) { <span id="L552" class="LineNr">552 </span> 89/<- %ecx 4/r32/esp <span id="L553" class="LineNr">553 </span> <span class="subxComment">#</span> <span id="L554" class="LineNr">554 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"1 2 3"</span> %esi) -<span id="L555" class="LineNr">555 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L555" class="LineNr">555 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L556" class="LineNr">556 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L557" class="LineNr">557 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints"</span>) +<span id="L557" class="LineNr">557 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints"</span>) <span id="L558" class="LineNr">558 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L559" class="LineNr">559 </span> 89/<- %esp 5/r32/ebp <span id="L560" class="LineNr">560 </span> 5d/pop-to-ebp @@ -631,8 +631,8 @@ if ('onhashchange' in window) { <span id="L571" class="LineNr">571 </span> 89/<- %esi 4/r32/esp <span id="L572" class="LineNr">572 </span> <span class="subxComment">#</span> <span id="L573" class="LineNr">573 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">""</span> %esi) -<span id="L574" class="LineNr">574 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L575" class="LineNr">575 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-empty"</span>) +<span id="L574" class="LineNr">574 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L575" class="LineNr">575 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-empty"</span>) <span id="L576" class="LineNr">576 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L577" class="LineNr">577 </span> 89/<- %esp 5/r32/ebp <span id="L578" class="LineNr">578 </span> 5d/pop-to-ebp @@ -648,9 +648,9 @@ if ('onhashchange' in window) { <span id="L588" class="LineNr">588 </span> 68/push 0/imm32 <span id="L589" class="LineNr">589 </span> 89/<- %esi 4/r32/esp <span id="L590" class="LineNr">590 </span> <span class="subxComment">#</span> -<span id="L591" class="LineNr">591 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='301array-equal.subx.html#L428'>Space</a></span> %esi) -<span id="L592" class="LineNr">592 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> -<span id="L593" class="LineNr">593 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-just-whitespace"</span>) +<span id="L591" class="LineNr">591 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span> %esi) +<span id="L592" class="LineNr">592 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L593" class="LineNr">593 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 0 <span class="Constant">"F - test-parse-array-of-decimal-ints-just-whitespace"</span>) <span id="L594" class="LineNr">594 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L595" class="LineNr">595 </span> 89/<- %esp 5/r32/ebp <span id="L596" class="LineNr">596 </span> 5d/pop-to-ebp @@ -672,9 +672,9 @@ if ('onhashchange' in window) { <span id="L612" class="LineNr">612 </span> 89/<- %ecx 4/r32/esp <span id="L613" class="LineNr">613 </span> <span class="subxComment">#</span> <span id="L614" class="LineNr">614 </span> (<a href='311decimal-int.subx.html#L429'>_parse-array-of-decimal-ints</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">" 1 2 3 "</span> %esi) -<span id="L615" class="LineNr">615 </span> (<a href='120allocate.subx.html#L226'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L615" class="LineNr">615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> <span id="L616" class="LineNr">616 </span> (<a href='301array-equal.subx.html#L5'>array-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> -<span id="L617" class="LineNr">617 </span> (<a href='502test.mu.html#L2'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints-extra-whitespace"</span>) +<span id="L617" class="LineNr">617 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-parse-array-of-decimal-ints-extra-whitespace"</span>) <span id="L618" class="LineNr">618 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L619" class="LineNr">619 </span> 89/<- %esp 5/r32/ebp <span id="L620" class="LineNr">620 </span> 5d/pop-to-ebp @@ -691,6 +691,7 @@ if ('onhashchange' in window) { <span id="L631" class="LineNr">631 </span> 89/<- %esp 5/r32/ebp <span id="L632" class="LineNr">632 </span> 5d/pop-to-ebp <span id="L633" class="LineNr">633 </span> c3/return +<span id="L634" class="LineNr">634 </span> </pre> </body> </html> diff --git a/html/linux/312copy.subx.html b/html/linux/312copy.subx.html new file mode 100644 index 00000000..9744b1f6 --- /dev/null +++ b/html/linux/312copy.subx.html @@ -0,0 +1,129 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/312copy.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.LineNr { } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Constant { color: #008787; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/312copy.subx'>https://github.com/akkartik/mu/blob/main/linux/312copy.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span>== code +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="subxFunction">copy-array-object</span>: <span class="subxComment"># src: (addr array T), dest-ah: (addr handle array T)</span> +<span id="L4" class="LineNr"> 4 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5" class="LineNr"> 5 </span> 55/push-ebp +<span id="L6" class="LineNr"> 6 </span> 89/<- %ebp 4/r32/esp +<span id="L7" class="LineNr"> 7 </span> <span class="subxComment">#</span> +<span id="L8" class="LineNr"> 8 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) *(ebp+0xc)) +<span id="L9" class="LineNr"> 9 </span><span class="Constant">$copy-array-object:end</span>: +<span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11" class="LineNr">11 </span> 89/<- %esp 5/r32/ebp +<span id="L12" class="LineNr">12 </span> 5d/pop-to-ebp +<span id="L13" class="LineNr">13 </span> c3/return +<span id="L14" class="LineNr">14 </span> +<span id="L15" class="LineNr">15 </span><span class="subxComment"># create an independent copy of file src into dest</span> +<span id="L16" class="LineNr">16 </span><span class="subxComment"># there's no way to do this without knowing the filename</span> +<span id="L17" class="LineNr">17 </span><span class="subxFunction">copy-file</span>: <span class="subxComment"># src: (addr buffered-file), dest-ah: (addr handle buffered-file), filename: (addr array byte)</span> +<span id="L18" class="LineNr">18 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19" class="LineNr">19 </span> 55/push-ebp +<span id="L20" class="LineNr">20 </span> 89/<- %ebp 4/r32/esp +<span id="L21" class="LineNr">21 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22" class="LineNr">22 </span> 50/push-eax +<span id="L23" class="LineNr">23 </span> 51/push-ecx +<span id="L24" class="LineNr">24 </span> 52/push-edx +<span id="L25" class="LineNr">25 </span> 53/push-ebx +<span id="L26" class="LineNr">26 </span> 56/push-esi +<span id="L27" class="LineNr">27 </span> 57/push-edi +<span id="L28" class="LineNr">28 </span> <span class="subxComment"># esi = src</span> +<span id="L29" class="LineNr">29 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L30" class="LineNr">30 </span> <span class="subxComment"># var n/ecx: int = src->buffer->size + 16</span> +<span id="L31" class="LineNr">31 </span> 8b/-> *(esi+0xc) 0/r32/eax +<span id="L32" class="LineNr">32 </span> 05/add-to-eax 0x10/imm32 <span class="subxComment"># buffered-file fields before buffer contents</span> +<span id="L33" class="LineNr">33 </span> 89/<- %ecx 0/r32/eax +<span id="L34" class="LineNr">34 </span> <span class="subxComment">#</span> +<span id="L35" class="LineNr">35 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0xc)) +<span id="L36" class="LineNr">36 </span> <span class="subxComment"># var dest/edi: (addr buffered-file) = lookup(*dest-ah)</span> +<span id="L37" class="LineNr">37 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L38" class="LineNr">38 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L39" class="LineNr">39 </span> 89/<- %edi 0/r32/eax +<span id="L40" class="LineNr">40 </span> <span class="subxComment">#</span> +<span id="L41" class="LineNr">41 </span> (<a href='310copy-bytes.subx.html#L6'>copy-bytes</a> %esi %edi %ecx) +<span id="L42" class="LineNr">42 </span> <span class="subxComment"># var offset/ecx: int = lseek(src->fd, 0, SEEK_CUR)</span> +<span id="L43" class="LineNr">43 </span> 8b/-> *esi 3/r32/ebx +<span id="L44" class="LineNr">44 </span> b9/copy-to-ecx 0/imm32/offset +<span id="L45" class="LineNr">45 </span> ba/copy-to-edx 1/imm32/whence:SEEK_CUR +<span id="L46" class="LineNr">46 </span> (<a href='000init.subx.html#L47'>syscall_lseek</a>) +<span id="L47" class="LineNr">47 </span> 89/<- %ecx 0/r32/eax +<span id="L48" class="LineNr">48 </span> <span class="subxComment"># at this point dest is identical to src, including file descriptor. Now</span> +<span id="L49" class="LineNr">49 </span> <span class="subxComment"># create an independent copy of the file descriptor</span> +<span id="L50" class="LineNr">50 </span> (<a href='306files.subx.html#L43'>open-fd</a> *(ebp+0x10) 0) <span class="subxComment"># false => eax</span> +<span id="L51" class="LineNr">51 </span> 89/<- *edi 0/r32/eax +<span id="L52" class="LineNr">52 </span> <span class="subxComment"># replicate offset in the new fd</span> +<span id="L53" class="LineNr">53 </span> 89/<- %ebx 0/r32/eax <span class="subxComment"># fd</span> +<span id="L54" class="LineNr">54 </span> 51/push-ecx <span class="subxComment"># offset</span> +<span id="L55" class="LineNr">55 </span> ba/copy-to-edx 0/imm32/whence:SEEK_SET +<span id="L56" class="LineNr">56 </span> (<a href='000init.subx.html#L47'>syscall_lseek</a>) +<span id="L57" class="LineNr">57 </span><span class="Constant">$copy-file:end</span>: +<span id="L58" class="LineNr">58 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L59" class="LineNr">59 </span> 5f/pop-to-edi +<span id="L60" class="LineNr">60 </span> 5e/pop-to-esi +<span id="L61" class="LineNr">61 </span> 5b/pop-to-ebx +<span id="L62" class="LineNr">62 </span> 5a/pop-to-edx +<span id="L63" class="LineNr">63 </span> 59/pop-to-ecx +<span id="L64" class="LineNr">64 </span> 58/pop-to-eax +<span id="L65" class="LineNr">65 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L66" class="LineNr">66 </span> 89/<- %esp 5/r32/ebp +<span id="L67" class="LineNr">67 </span> 5d/pop-to-ebp +<span id="L68" class="LineNr">68 </span> c3/return +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/313index-bounds-check.subx.html b/html/linux/313index-bounds-check.subx.html new file mode 100644 index 00000000..fbbd8000 --- /dev/null +++ b/html/linux/313index-bounds-check.subx.html @@ -0,0 +1,148 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/313index-bounds-check.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.LineNr { } +.Constant { color: #008787; } +.SpecialChar { color: #d70000; } +.subxMinorFunction { color: #875f5f; } +.CommentedCode { color: #8a8a8a; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/313index-bounds-check.subx'>https://github.com/akkartik/mu/blob/main/linux/313index-bounds-check.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Helper to check an array's bounds, and to abort if they're violated.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Really only intended to be called from code generated by mu.subx.</span> +<span id="L3" class="LineNr"> 3 </span> +<span id="L4" class="LineNr"> 4 </span>== code +<span id="L5" class="LineNr"> 5 </span> +<span id="L6" class="LineNr"> 6 </span><span class="subxMinorFunction">__check-mu-array-bounds</span>: <span class="subxComment"># index: int, elem-size: int, arr-size: int, function-name: (addr array byte), array-name: (addr array byte)</span> +<span id="L7" class="LineNr"> 7 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8" class="LineNr"> 8 </span> 55/push-ebp +<span id="L9" class="LineNr"> 9 </span> 89/<- %ebp 4/r32/esp +<span id="L10" class="LineNr">10 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L11" class="LineNr">11 </span> 50/push-eax +<span id="L12" class="LineNr">12 </span> 51/push-ecx +<span id="L13" class="LineNr">13 </span> 52/push-edx +<span id="L14" class="LineNr">14 </span> <span class="subxS1Comment"># . not bothering saving ebx; it's only clobbered if we're going to abort</span> +<span id="L15" class="LineNr">15 </span> <span class="subxComment"># ecx = arr-size</span> +<span id="L16" class="LineNr">16 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L17" class="LineNr">17 </span> <span class="subxComment"># var overflow/edx: int = 0</span> +<span id="L18" class="LineNr">18 </span> ba/copy-to-edx 0/imm32 +<span id="L19" class="LineNr">19 </span> <span class="subxComment"># var offset/eax: int = index * elem-size</span> +<span id="L20" class="LineNr">20 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21" class="LineNr">21 </span> f7 4/subop/multiply-eax-with *(ebp+0xc) +<span id="L22" class="LineNr">22 </span> <span class="subxComment"># check for overflow</span> +<span id="L23" class="LineNr">23 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L24" class="LineNr">24 </span> 0f 85/jump-if-!= <a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a>:overflow/disp32 +<span id="L25" class="LineNr">25 </span> <span class="subxComment"># check bounds</span> +<span id="L26" class="LineNr">26 </span> 39/compare %eax 1/r32/ecx +<span id="L27" class="LineNr">27 </span> 0f 82/jump-if-unsigned< $__check-mu-array-bounds:end/disp32 <span class="subxComment"># negative index should always abort</span> +<span id="L28" class="LineNr">28 </span> <span class="subxComment"># abort if necessary</span> +<span id="L29" class="LineNr">29 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) +<span id="L30" class="LineNr">30 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) +<span id="L31" class="LineNr">31 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset "</span>) +<span id="L32" class="LineNr">32 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L33" class="LineNr">33 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" is too large for array '"</span>) +<span id="L34" class="LineNr">34 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) +<span id="L35" class="LineNr">35 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'\n"</span>) +<span id="L36" class="LineNr">36 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L37" class="LineNr">37 </span> <span class="subxComment"># exit(1)</span> +<span id="L38" class="LineNr">38 </span> bb/copy-to-ebx 1/imm32 +<span id="L39" class="LineNr">39 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L40" class="LineNr">40 </span> <span class="subxComment"># never gets here</span> +<span id="L41" class="LineNr">41 </span><span class="Constant">$__check-mu-array-bounds:end</span>: +<span id="L42" class="LineNr">42 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L43" class="LineNr">43 </span> 5a/pop-to-edx +<span id="L44" class="LineNr">44 </span> 59/pop-to-ecx +<span id="L45" class="LineNr">45 </span> 58/pop-to-eax +<span id="L46" class="LineNr">46 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L47" class="LineNr">47 </span> 89/<- %esp 5/r32/ebp +<span id="L48" class="LineNr">48 </span> 5d/pop-to-ebp +<span id="L49" class="LineNr">49 </span> c3/return +<span id="L50" class="LineNr">50 </span> +<span id="L51" class="LineNr">51 </span><span class="subxMinorFunction">__check-mu-array-bounds:overflow</span>: +<span id="L52" class="LineNr">52 </span> <span class="subxComment"># "fn " function-name ": offset to array '" array-name "' overflowed 32 bits\n"</span> +<span id="L53" class="LineNr">53 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fn "</span>) +<span id="L54" class="LineNr">54 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x14)) +<span id="L55" class="LineNr">55 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">": offset to array '"</span>) +<span id="L56" class="LineNr">56 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+0x18)) +<span id="L57" class="LineNr">57 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"' overflowed 32 bits\n"</span>) +<span id="L58" class="LineNr">58 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L59" class="LineNr">59 </span> <span class="subxComment"># exit(1)</span> +<span id="L60" class="LineNr">60 </span> bb/copy-to-ebx 1/imm32 +<span id="L61" class="LineNr">61 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L62" class="LineNr">62 </span> <span class="subxComment"># never gets here</span> +<span id="L63" class="LineNr">63 </span> +<span id="L64" class="LineNr">64 </span><span class="subxComment"># potential alternative</span> +<span id="L65" class="LineNr">65 </span> +<span id="L66" class="LineNr">66 </span><span class="CommentedCode">#? __bounds-check: # msg: (addr array byte)</span> +<span id="L67" class="LineNr">67 </span><span class="CommentedCode">#? (write-buffered Stderr "abort: array bounds exceeded in fn ")</span> +<span id="L68" class="LineNr">68 </span><span class="CommentedCode">#? 8b/-> *(esp+4) 0/r32/eax # we're going to abort, so just clobber away</span> +<span id="L69" class="LineNr">69 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L70" class="LineNr">70 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L71" class="LineNr">71 </span><span class="CommentedCode">#? # exit(1)</span> +<span id="L72" class="LineNr">72 </span><span class="CommentedCode">#? bb/copy-to-ebx 1/imm32</span> +<span id="L73" class="LineNr">73 </span><span class="CommentedCode">#? e8/call syscall_exit/disp32</span> +<span id="L74" class="LineNr">74 </span> +<span id="L75" class="LineNr">75 </span><span class="subxComment"># to be called as follows:</span> +<span id="L76" class="LineNr">76 </span><span class="subxComment"># var/reg <- index arr/rega: (addr array T), idx/regi: int</span> +<span id="L77" class="LineNr">77 </span><span class="subxComment"># | if size-of(T) is 1, 2, 4 or 8</span> +<span id="L78" class="LineNr">78 </span><span class="subxComment"># => # temporarily save array size to reg to check bounds</span> +<span id="L79" class="LineNr">79 </span><span class="subxComment"># "8b/-> *" rega " " reg "/r32"</span> +<span id="L80" class="LineNr">80 </span><span class="subxComment"># "c1/shift 5/subop/right %" reg " " log2(size-of(T)) "/imm32"</span> +<span id="L81" class="LineNr">81 </span><span class="subxComment"># "3b/compare " reg "/r32 *" rega</span> +<span id="L82" class="LineNr">82 </span><span class="subxComment"># "68/push \"" function "\"/imm32" # pass function name to error message</span> +<span id="L83" class="LineNr">83 </span><span class="subxComment"># "0f 8d/jump-if->= __bounds_check/disp32"</span> +<span id="L84" class="LineNr">84 </span><span class="subxComment"># "81 0/subop/add %esp 4/imm32" # drop function name</span> +<span id="L85" class="LineNr">85 </span><span class="subxComment"># # actually save the index addr in reg</span> +<span id="L86" class="LineNr">86 </span><span class="subxComment"># "8d/copy-address *(" rega "+" regi "<<" log2(size-of(T)) "+4) " reg "/r32"</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/314divide.subx.html b/html/linux/314divide.subx.html index 9345a7e5..8ed12251 100644 --- a/html/baremetal/314divide.subx.html +++ b/html/linux/314divide.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/314divide.subx</title> +<title>Mu - linux/314divide.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -52,7 +52,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/314divide.subx'>https://github.com/akkartik/mu/blob/main/baremetal/314divide.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/314divide.subx'>https://github.com/akkartik/mu/blob/main/linux/314divide.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span> diff --git a/html/315slice.subx.html b/html/linux/315slice.subx.html index 57dc95a0..013817ec 100644 --- a/html/315slice.subx.html +++ b/html/linux/315slice.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 315slice.subx</title> +<title>Mu - linux/315slice.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,8 +15,8 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.LineNr { } .subxS1Comment { color: #0000af; } +.LineNr { } .SpecialChar { color: #d70000; } .subxMinorFunction { color: #875f5f; } --> @@ -52,7 +52,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/315slice.subx'>https://github.com/akkartik/mu/blob/main/315slice.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/315slice.subx'>https://github.com/akkartik/mu/blob/main/linux/315slice.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span>== code <span id="L2" class="LineNr"> 2 </span> diff --git a/html/linux/400.mu.html b/html/linux/400.mu.html new file mode 100644 index 00000000..2f33f2ec --- /dev/null +++ b/html/linux/400.mu.html @@ -0,0 +1,254 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/400.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Constant { color: #008787; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/400.mu'>https://github.com/akkartik/mu/blob/main/linux/400.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># The 4xx series is for primitives implemented in Mu.</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Signatures for major SubX functions defined so far.</span> +<span id="L4" class="LineNr"> 4 </span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># autogenerated</span> +<span id="L6" class="LineNr"> 6 </span><span class="PreProc">sig</span> run-tests +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># init.linux</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># TODO: make this OS-specific</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># TODO: include result type at least, even if register args are too much</span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L18'>syscall_exit</a> <span class="muComment"># status/ebx: int</span> +<span id="L12" class="LineNr"> 12 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L23'>syscall_read</a> <span class="muComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> +<span id="L13" class="LineNr"> 13 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L29'>syscall_write</a> <span class="muComment"># fd/ebx: int, buf/ecx: addr, size/edx: int -> nbytes-or-error/eax: int</span> +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L35'>syscall_open</a> <span class="muComment"># filename/ebx: (addr kernel-string), flags/ecx: int, dummy=0x180/edx -> fd-or-error/eax: int</span> +<span id="L15" class="LineNr"> 15 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L41'>syscall_close</a> <span class="muComment"># fd/ebx: int -> status/eax</span> +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L53'>syscall_creat</a> <span class="muComment"># filename/ebx: (addr kernel-string) -> fd-or-error/eax: int</span> +<span id="L17" class="LineNr"> 17 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L59'>syscall_unlink</a> <span class="muComment"># filename/ebx: (addr kernel-string) -> status/eax: int</span> +<span id="L18" class="LineNr"> 18 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L65'>syscall_rename</a> <span class="muComment"># source/ebx: (addr kernel-string), dest/ecx: (addr kernel-string) -> status/eax: int</span> +<span id="L19" class="LineNr"> 19 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L71'>syscall_mmap</a> <span class="muComment"># arg/ebx: (addr mmap_arg_struct) -> status/eax: int</span> +<span id="L20" class="LineNr"> 20 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L77'>syscall_ioctl</a> <span class="muComment"># fd/ebx: int, cmd/ecx: int, arg/edx: (addr _)</span> +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L82'>syscall_nanosleep</a> <span class="muComment"># req/ebx: (addr timespec)</span> +<span id="L22" class="LineNr"> 22 </span><span class="PreProc">sig</span> <a href='000init.subx.html#L87'>syscall_clock_gettime</a> <span class="muComment"># clock/ebx: int, out/ecx: (addr timespec)</span> +<span id="L23" class="LineNr"> 23 </span> +<span id="L24" class="LineNr"> 24 </span><span class="muComment"># Generated using:</span> +<span id="L25" class="LineNr"> 25 </span><span class="muComment"># grep -h '^[a-z]' [0-9]*.subx |grep -v '^test-'</span> +<span id="L26" class="LineNr"> 26 </span><span class="muComment"># Functions we don't want to make accessible from Mu are commented out.</span> +<span id="L27" class="LineNr"> 27 </span><span class="muComment"># Many functions here may not be usable yet because of missing features</span> +<span id="L28" class="LineNr"> 28 </span><span class="muComment"># (global variable support, etc.)</span> +<span id="L29" class="LineNr"> 29 </span><span class="PreProc">sig</span> <a href='102test.subx.html#L23'>check-ints-equal</a> a: int, b: int, msg: (addr array byte) +<span id="L30" class="LineNr"> 30 </span><span class="PreProc">sig</span> <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> s: (addr kernel-string), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L31" class="LineNr"> 31 </span><span class="PreProc">sig</span> <a href='104new-segment.subx.html#L40'>new-segment</a> len: int, ad: (addr allocation-descriptor) +<span id="L32" class="LineNr"> 32 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L15'>string-equal?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L33" class="LineNr"> 33 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L57'>string-starts-with?</a> s: (addr array byte), benchmark: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">sig</span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> s: (addr array byte), expected: (addr array byte), msg: (addr array byte) +<span id="L35" class="LineNr"> 35 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L17'>clear-stream</a> f: (addr stream _) +<span id="L36" class="LineNr"> 36 </span><span class="PreProc">sig</span> <a href='106stream.subx.html#L56'>rewind-stream</a> f: (addr stream _) +<span id="L37" class="LineNr"> 37 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L43'>initialize-trace-stream</a> n: int +<span id="L38" class="LineNr"> 38 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L81'>trace</a> line: (addr array byte) +<span id="L39" class="LineNr"> 39 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L248'>check-trace-contains</a> line: (addr string), msg: (addr string) +<span id="L40" class="LineNr"> 40 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L273'>check-trace-scans-to</a> line: (addr string), msg: (addr string) +<span id="L41" class="LineNr"> 41 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L304'>trace-scan</a> line: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L42" class="LineNr"> 42 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L556'>next-line-matches?</a> t: (addr stream byte), line: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L43" class="LineNr"> 43 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L732'>skip-next-line</a> t: (addr stream byte) +<span id="L44" class="LineNr"> 44 </span><span class="PreProc">sig</span> <a href='107trace.subx.html#L840'>clear-trace-stream</a> +<span id="L45" class="LineNr"> 45 </span><span class="PreProc">sig</span> <a href='108write.subx.html#L24'>write</a> f: (addr stream byte), s: (addr array byte) <span class="muComment"># writing to file descriptor not supported; use buffered-file</span> +<span id="L46" class="LineNr"> 46 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L9'>stream-data-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L47" class="LineNr"> 47 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) +<span id="L48" class="LineNr"> 48 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L230'>next-stream-line-equal?</a> f: (addr stream byte), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L49" class="LineNr"> 49 </span><span class="PreProc">sig</span> <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> f: (addr stream byte), s: (addr array byte), msg: (addr array byte) +<span id="L50" class="LineNr"> 50 </span><span class="PreProc">sig</span> <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> ed: (addr exit-descriptor), nbytes: int +<span id="L51" class="LineNr"> 51 </span><span class="PreProc">sig</span> <a href='110stop.subx.html#L92'>stop</a> ed: (addr exit-descriptor), value: int +<span id="L52" class="LineNr"> 52 </span><span class="muComment">#sig read f: fd or (addr stream byte), s: (addr stream byte) -> _/eax: int</span> +<span id="L53" class="LineNr"> 53 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> f: (addr buffered-file)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L54" class="LineNr"> 54 </span><span class="PreProc">sig</span> <a href='112read-byte.subx.html#L273'>read-byte</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L55" class="LineNr"> 55 </span><span class="muComment">#sig write-stream f: fd or (addr stream byte), s: (addr stream byte)</span> +<span id="L56" class="LineNr"> 56 </span><span class="muComment">#sig error ed: (addr exit-descriptor), out: fd or (addr stream byte), msg: (addr array byte)</span> +<span id="L57" class="LineNr"> 57 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L33'>write-byte-buffered</a> f: (addr buffered-file), n: int +<span id="L58" class="LineNr"> 58 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L81'>flush</a> f: (addr buffered-file) +<span id="L59" class="LineNr"> 59 </span><span class="PreProc">sig</span> <a href='115write-byte.subx.html#L208'>append-byte</a> f: (addr stream byte), n: int +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">sig</span> <a href='116write-buffered.subx.html#L8'>write-buffered</a> f: (addr buffered-file), msg: (addr array byte) +<span id="L61" class="LineNr"> 61 </span><span class="muComment">#sig to-hex-char in/eax: int -> out/eax: int</span> +<span id="L62" class="LineNr"> 62 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a> f: (addr stream byte), n: int +<span id="L63" class="LineNr"> 63 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L93'>write-byte-hex-buffered</a> f: (addr buffered-file), n: int +<span id="L64" class="LineNr"> 64 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> f: (addr stream byte), n: int +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a> f: (addr stream byte), n: int, bits: int +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> f: (addr buffered-file), n: int +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">sig</span> <a href='117write-int-hex.subx.html#L319'>write-int32-hex-bits-buffered</a> f: (addr buffered-file), n: int, bits: int +<span id="L68" class="LineNr"> 68 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L9'>hex-int?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L69" class="LineNr"> 69 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L70" class="LineNr"> 70 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L71" class="LineNr"> 71 </span><span class="muComment">#sig parse-hex-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L72" class="LineNr"> 72 </span><span class="PreProc">sig</span> <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a> c: byte<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L73" class="LineNr"> 73 </span><span class="muComment">#sig from-hex-char in/eax: byte -> out/eax: nibble</span> +<span id="L74" class="LineNr"> 74 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L23'>parse-decimal-int</a> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L75" class="LineNr"> 75 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L76" class="LineNr"> 76 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L77" class="LineNr"> 77 </span><span class="muComment">#sig parse-decimal-int-helper start: (addr byte), end: (addr byte) -> _/eax: int</span> +<span id="L78" class="LineNr"> 78 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L79" class="LineNr"> 79 </span><span class="PreProc">sig</span> <a href='119error-byte.subx.html#L26'>error-byte</a> ed: (addr exit-descriptor), out: (addr buffered-file), msg: (addr array byte), n: byte +<span id="L80" class="LineNr"> 80 </span><span class="muComment">#sig allocate ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L81" class="LineNr"> 81 </span><span class="muComment">#sig allocate-raw ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L82" class="LineNr"> 82 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L258'>lookup</a> h: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (addr _T) +<span id="L83" class="LineNr"> 83 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L466'>handle-equal?</a> a: (handle _T), b: (handle _T)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L84" class="LineNr"> 84 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L497'>copy-handle</a> src: (handle _T), dest: (addr handle _T) +<span id="L85" class="LineNr"> 85 </span><span class="muComment">#sig allocate-region ad: (addr allocation-descriptor), n: int, out: (addr handle allocation-descriptor)</span> +<span id="L86" class="LineNr"> 86 </span><span class="muComment">#sig allocate-array ad: (addr allocation-descriptor), n: int, out: (addr handle _)</span> +<span id="L87" class="LineNr"> 87 </span><span class="PreProc">sig</span> <a href='120allocate.subx.html#L720'>copy-array</a> ad: (addr allocation-descriptor), src: (addr array _T), out: (addr handle array _T) +<span id="L88" class="LineNr"> 88 </span><span class="muComment">#sig zero-out start: (addr byte), size: int</span> +<span id="L89" class="LineNr"> 89 </span><span class="muComment">#sig new-stream ad: (addr allocation-descriptor), length: int, elemsize: int, out: (addr handle stream _)</span> +<span id="L90" class="LineNr"> 90 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L9'>read-line-buffered</a> f: (addr buffered-file), s: (addr stream byte) +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">sig</span> <a href='122read-line.subx.html#L218'>read-line</a> f: (addr stream byte), s: (addr stream byte) +<span id="L92" class="LineNr"> 92 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L9'>slice-empty?</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L93" class="LineNr"> 93 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L120'>slice-equal?</a> s: (addr slice), p: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L487'>slice-starts-with?</a> s: (addr slice), head: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L95" class="LineNr"> 95 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L793'>write-slice</a> out: (addr stream byte), s: (addr slice) +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L908'>write-slice-buffered</a> out: (addr buffered-file), s: (addr slice) +<span id="L97" class="LineNr"> 97 </span><span class="muComment"># bad name alert</span> +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">sig</span> <a href='123slice.subx.html#L1043'>slice-to-string</a> ad: (addr allocation-descriptor), in: (addr slice), out: (addr handle array byte) +<span id="L99" class="LineNr"> 99 </span><span class="PreProc">sig</span> <a href='315slice.subx.html#L5'>_slice-to-string</a> in: (addr slice), out: (addr handle array byte) +<span id="L100" class="LineNr">100 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L10'>next-token</a> in: (addr stream byte), delimiter: byte, out: (addr slice) +<span id="L101" class="LineNr">101 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L163'>next-token-from-slice</a> start: (addr byte), end: (addr byte), delimiter: byte, out: (addr slice) +<span id="L102" class="LineNr">102 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L341'>skip-chars-matching</a> in: (addr stream byte), delimiter: byte +<span id="L103" class="LineNr">103 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> in: (addr stream byte) +<span id="L104" class="LineNr">104 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L554'>skip-chars-not-matching</a> in: (addr stream byte), delimiter: byte +<span id="L105" class="LineNr">105 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a> in: (addr stream byte) +<span id="L106" class="LineNr">106 </span><span class="muComment">#sig skip-chars-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> _/eax: (addr byte)</span> +<span id="L107" class="LineNr">107 </span><span class="muComment">#sig skip-chars-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> +<span id="L108" class="LineNr">108 </span><span class="muComment">#sig skip-chars-not-matching-in-slice curr: (addr byte), end: (addr byte), delimiter: byte -> _/eax: (addr byte)</span> +<span id="L109" class="LineNr">109 </span><span class="muComment">#sig skip-chars-not-matching-whitespace-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> +<span id="L110" class="LineNr">110 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1171'>skip-string</a> line: (addr stream byte) +<span id="L111" class="LineNr">111 </span><span class="muComment">#sig skip-string-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> +<span id="L112" class="LineNr">112 </span><span class="PreProc">sig</span> <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a> line: (addr stream byte) +<span id="L113" class="LineNr">113 </span><span class="muComment">#sig skip-until-close-paren-in-slice curr: (addr byte), end: (addr byte) -> _/eax: (addr byte)</span> +<span id="L114" class="LineNr">114 </span><span class="PreProc">sig</span> <a href='125write-stream-data.subx.html#L11'>write-stream-data</a> f: (addr buffered-file), s: (addr stream byte) +<span id="L115" class="LineNr">115 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out: (addr stream byte), n: int +<span id="L116" class="LineNr">116 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L117" class="LineNr">117 </span><span class="PreProc">sig</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> in: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L118" class="LineNr">118 </span><span class="muComment"># bad name alert</span> +<span id="L119" class="LineNr">119 </span><span class="muComment"># next-word really tokenizes</span> +<span id="L120" class="LineNr">120 </span><span class="muComment"># next-raw-word really reads whitespace-separated words</span> +<span id="L121" class="LineNr">121 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L11'>next-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># skips '#' comments</span> +<span id="L122" class="LineNr">122 </span><span class="PreProc">sig</span> <a href='127next-word.subx.html#L306'>next-raw-word</a> line: (addr stream byte), out: (addr slice) <span class="muComment"># does not skip '#' comments</span> +<span id="L123" class="LineNr">123 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L8'>has-metadata?</a> word: (addr slice), s: (addr string)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L124" class="LineNr">124 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L278'>valid-name?</a> in: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L125" class="LineNr">125 </span><span class="PreProc">sig</span> <a href='128subx-words.subx.html#L535'>label?</a> word: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L126" class="LineNr">126 </span><span class="PreProc">sig</span> <a href='129emit-hex.subx.html#L7'>emit-hex</a> out: (addr buffered-file), n: int, width: int +<span id="L127" class="LineNr">127 </span><span class="PreProc">sig</span> <a href='130emit.subx.html#L10'>emit</a> out: (addr buffered-file), word: (addr slice), width: int +<span id="L128" class="LineNr">128 </span><span class="muComment">#sig get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, abort-message-prefix: (addr array byte) -> _/eax: (addr T)</span> +<span id="L129" class="LineNr">129 </span><span class="muComment">#sig get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, abort-message-prefix: (addr array byte) -> _/eax: (addr T)</span> +<span id="L130" class="LineNr">130 </span><span class="muComment">#sig get-or-insert table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int, ad: (addr allocation-descriptor) -> _/eax: (addr T)</span> +<span id="L131" class="LineNr">131 </span><span class="muComment">#sig get-or-insert-handle table: (addr stream {(handle array byte), T}), key: (handle array byte), row-size: int -> _/eax: (addr T)</span> +<span id="L132" class="LineNr">132 </span><span class="muComment">#sig get-or-insert-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int, ad: (addr allocation-descriptor) -> _/eax: (addr T)</span> +<span id="L133" class="LineNr">133 </span><span class="muComment">#sig get-or-stop table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int</span> +<span id="L134" class="LineNr">134 </span><span class="muComment">#sig get-slice-or-stop table: (addr stream {(handle array byte), _}), key: (addr slice), row-size: int</span> +<span id="L135" class="LineNr">135 </span><span class="muComment">#sig maybe-get table: (addr stream {(handle array byte), T}), key: (addr array byte), row-size: int -> _/eax: (addr T)</span> +<span id="L136" class="LineNr">136 </span><span class="muComment">#sig maybe-get-slice table: (addr stream {(handle array byte), T}), key: (addr slice), row-size: int -> _/eax: (addr T)</span> +<span id="L137" class="LineNr">137 </span><span class="PreProc">sig</span> <a href='132slurp.subx.html#L8'>slurp</a> f: (addr buffered-file), s: (addr stream byte) +<span id="L138" class="LineNr">138 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L11'>compute-width</a> word: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L139" class="LineNr">139 </span><span class="PreProc">sig</span> <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a> s: (addr slice)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L140" class="LineNr">140 </span><span class="PreProc">sig</span> <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a> out: (addr buffered-file), arr: (addr array byte) +<span id="L141" class="LineNr">141 </span><span class="PreProc">sig</span> <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a> line: (addr stream byte), out: (addr slice) +<span id="L142" class="LineNr">142 </span><span class="PreProc">sig</span> <a href='202write-int.subx.html#L8'>write-int</a> out: (addr stream byte), n: int +<span id="L143" class="LineNr">143 </span><span class="muComment">#sig clear-stack s: (addr stack)</span> +<span id="L144" class="LineNr">144 </span><span class="muComment">#sig push s: (addr stack), n: int</span> +<span id="L145" class="LineNr">145 </span><span class="muComment">#sig pop s: (addr stack) -> _/eax: int</span> +<span id="L146" class="LineNr">146 </span><span class="muComment">#sig top s: (addr stack) -> _/eax: int</span> +<span id="L147" class="LineNr">147 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L5'>array-equal?</a> a: (addr array int), b: (addr array int)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L148" class="LineNr">148 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L368'>parse-array-of-ints</a> s: (addr array byte), out: (addr handle array int) +<span id="L149" class="LineNr">149 </span><span class="PreProc">sig</span> <a href='311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> s: (addr array byte), out: (addr handle array int) +<span id="L150" class="LineNr">150 </span><span class="PreProc">sig</span> <a href='301array-equal.subx.html#L382'>check-array-equal</a> a: (addr array int), expected: (addr string), msg: (addr string) +<span id="L151" class="LineNr">151 </span><span class="muComment">#sig push-n-zero-bytes n: int</span> +<span id="L152" class="LineNr">152 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L7'>kernel-string-to-string</a> ad: (addr allocation-descriptor), in: (addr kernel-string), out: (addr handle array byte) +<span id="L153" class="LineNr">153 </span><span class="PreProc">sig</span> <a href='303kernel-string.subx.html#L57'>kernel-string-length</a> in: (addr kernel-string)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int +<span id="L154" class="LineNr">154 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L6'>enable-screen-grid-mode</a> +<span id="L155" class="LineNr">155 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L24'>enable-screen-type-mode</a> +<span id="L156" class="LineNr">156 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L37'>real-screen-size</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int +<span id="L157" class="LineNr">157 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L75'>clear-real-screen</a> +<span id="L158" class="LineNr">158 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L91'>move-cursor-on-real-screen</a> row: int, column: int +<span id="L159" class="LineNr">159 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> s: (addr array byte) +<span id="L160" class="LineNr">160 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L134'>print-slice-to-real-screen</a> s: (addr slice) +<span id="L161" class="LineNr">161 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L147'>print-stream-to-real-screen</a> s: (addr stream byte) +<span id="L162" class="LineNr">162 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c: grapheme +<span id="L163" class="LineNr">163 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n: int +<span id="L164" class="LineNr">164 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L239'>print-int32-hex-bits-to-real-screen</a> n: int, bits: int +<span id="L165" class="LineNr">165 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> n: int +<span id="L166" class="LineNr">166 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L265'>write-int32-decimal-buffered</a> f: (addr buffered-file), n: int +<span id="L167" class="LineNr">167 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L289'>reset-formatting-on-real-screen</a> +<span id="L168" class="LineNr">168 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L304'>start-color-on-real-screen</a> fg: int, bg: int +<span id="L169" class="LineNr">169 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L339'>start-bold-on-real-screen</a> +<span id="L170" class="LineNr">170 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L352'>start-underline-on-real-screen</a> +<span id="L171" class="LineNr">171 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L365'>start-reverse-video-on-real-screen</a> +<span id="L172" class="LineNr">172 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L379'>start-blinking-on-real-screen</a> +<span id="L173" class="LineNr">173 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L392'>hide-cursor-on-real-screen</a> +<span id="L174" class="LineNr">174 </span><span class="PreProc">sig</span> <a href='304screen.subx.html#L405'>show-cursor-on-real-screen</a> +<span id="L175" class="LineNr">175 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L176" class="LineNr">176 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L177" class="LineNr">177 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L132'>read-key-from-real-keyboard</a><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme +<span id="L178" class="LineNr">178 </span><span class="PreProc">sig</span> <a href='305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> out: (addr stream byte) +<span id="L179" class="LineNr">179 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L12'>open</a> filename: (addr array byte), write?: boolean, out: (addr handle buffered-file) +<span id="L180" class="LineNr">180 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L89'>populate-buffered-file-containing</a> contents: (addr array byte), out: (addr handle buffered-file) +<span id="L181" class="LineNr">181 </span><span class="PreProc">sig</span> <a href='306files.subx.html#L135'>new-buffered-file</a> out: (addr handle buffered-file) +<span id="L182" class="LineNr">182 </span><span class="muComment">#sig size in: (addr array _) -> _/eax: int</span> +<span id="L183" class="LineNr">183 </span> +<span id="L184" class="LineNr">184 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L185" class="LineNr">185 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L30'>stream-full?</a> s: (addr stream _)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean +<span id="L186" class="LineNr">186 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L187" class="LineNr">187 </span><span class="PreProc">sig</span> <a href='310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> in: (addr stream _), out: (addr handle array _) +<span id="L188" class="LineNr">188 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L160'>stream-first</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L189" class="LineNr">189 </span><span class="PreProc">sig</span> <a href='309stream.subx.html#L187'>stream-final</a> s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: byte +<span id="L190" class="LineNr">190 </span> +<span id="L191" class="LineNr">191 </span><span class="muComment">#sig copy-bytes src: (addr byte), dest: (addr byte), n: int</span> +<span id="L192" class="LineNr">192 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L3'>copy-array-object</a> src: (addr array _), dest-ah: (addr handle array _) +<span id="L193" class="LineNr">193 </span><span class="PreProc">sig</span> <a href='312copy.subx.html#L17'>copy-file</a> src: (addr buffered-file), dest-ah: (addr handle buffered-file), filename: (addr array byte) +<span id="L194" class="LineNr">194 </span> +<span id="L195" class="LineNr">195 </span><span class="PreProc">sig</span> <a href='314divide.subx.html#L3'>integer-divide</a> a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/401test.mu.html b/html/linux/401test.mu.html index ec9da86c..825805eb 100644 --- a/html/401test.mu.html +++ b/html/linux/401test.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 401test.mu</title> +<title>Mu - linux/401test.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,17 +54,17 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/401test.mu'>https://github.com/akkartik/mu/blob/main/401test.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/401test.mu'>https://github.com/akkartik/mu/blob/main/linux/401test.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Some helpers for Mu tests.</span> <span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='401test.mu.html#L3'>check-true</a></span> val: boolean, msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy val +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='401test.mu.html#L3'>check</a></span> val: boolean, msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy val <span id="L5" class="LineNr"> 5 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> tmp, <span class="Constant">1</span>, msg <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> <span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='401test.mu.html#L8'>check-false</a></span> val: boolean, msg: (addr array byte) <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy val +<span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='401test.mu.html#L8'>check-not</a></span> val: boolean, msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy val <span id="L10" class="LineNr">10 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> tmp, <span class="Constant">0</span>, msg <span id="L11" class="LineNr">11 </span><span class="Delimiter">}</span> </pre> diff --git a/html/402time.mu.html b/html/linux/402time.mu.html index 703127a5..afea34e8 100644 --- a/html/402time.mu.html +++ b/html/linux/402time.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 402time.mu</title> +<title>Mu - linux/402time.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/402time.mu'>https://github.com/akkartik/mu/blob/main/402time.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/402time.mu'>https://github.com/akkartik/mu/blob/main/linux/402time.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='402time.mu.html#L1'>timespec</a> <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> tv_sec: int @@ -65,22 +65,22 @@ if ('onhashchange' in window) { <span id="L7" class="LineNr"> 7 </span><span class="muComment"># TODO: y2038</span> <span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='402time.mu.html#L8'>time</a></span><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> t: <a href='402time.mu.html#L1'>timespec</a> -<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># CLOCK_MONOTONIC</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> address t -<span id="L12" class="LineNr">12 </span> syscall_clock_gettime -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> t-secs-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t-addr, tv_sec -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> secs/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *t-secs-addr +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span>/CLOCK_MONOTONIC +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="Special"><-</span> address t +<span id="L12" class="LineNr">12 </span> <a href='000init.subx.html#L87'>syscall_clock_gettime</a> +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> t-secs-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> t-addr, tv_sec +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> secs/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *t-secs-addr <span id="L15" class="LineNr">15 </span> <span class="PreProc">return</span> secs <span id="L16" class="LineNr">16 </span><span class="Delimiter">}</span> <span id="L17" class="LineNr">17 </span> <span id="L18" class="LineNr">18 </span><span class="muComment"># return time in nanoseconds since epoch</span> <span id="L19" class="LineNr">19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='402time.mu.html#L19'>ntime</a></span><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> t: <a href='402time.mu.html#L1'>timespec</a> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># CLOCK_MONOTONIC</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> address t -<span id="L23" class="LineNr">23 </span> syscall_clock_gettime -<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> t-nsecs-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t-addr, tv_nsec -<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> nsecs/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *t-nsecs-addr +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> clock/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span>/CLOCK_MONOTONIC +<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="Special"><-</span> address t +<span id="L23" class="LineNr">23 </span> <a href='000init.subx.html#L87'>syscall_clock_gettime</a> +<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> t-nsecs-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> t-addr, tv_nsec +<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> nsecs/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *t-nsecs-addr <span id="L26" class="LineNr">26 </span> <span class="PreProc">return</span> nsecs <span id="L27" class="LineNr">27 </span><span class="Delimiter">}</span> <span id="L28" class="LineNr">28 </span> @@ -88,16 +88,16 @@ if ('onhashchange' in window) { <span id="L30" class="LineNr">30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='402time.mu.html#L30'>sleep</a></span> secs: int, nsecs: int <span class="Delimiter">{</span> <span id="L31" class="LineNr">31 </span> <span class="PreProc">var</span> t: <a href='402time.mu.html#L1'>timespec</a> <span id="L32" class="LineNr">32 </span> <span class="muComment"># initialize t</span> -<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t, tv_sec -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy secs +<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> t, tv_sec +<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy secs <span id="L35" class="LineNr">35 </span> copy-to *tmp, tmp2 -<span id="L36" class="LineNr">36 </span> tmp <span class="SpecialChar"><-</span> <a href='131table.subx.html#L26'>get</a> t, tv_nsec -<span id="L37" class="LineNr">37 </span> tmp2 <span class="SpecialChar"><-</span> copy nsecs +<span id="L36" class="LineNr">36 </span> tmp <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> t, tv_nsec +<span id="L37" class="LineNr">37 </span> tmp2 <span class="Special"><-</span> copy nsecs <span id="L38" class="LineNr">38 </span> copy-to *tmp, tmp2 <span id="L39" class="LineNr">39 </span> <span class="muComment"># perform the syscall</span> -<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ebx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> address t -<span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> rem-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L42" class="LineNr">42 </span> syscall_nanosleep +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> t-addr/<span class="Constant">ebx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="Special"><-</span> address t +<span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> rem-addr/<span class="Constant">ecx</span>: (addr <a href='402time.mu.html#L1'>timespec</a>) <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L42" class="LineNr">42 </span> <a href='000init.subx.html#L82'>syscall_nanosleep</a> <span id="L43" class="LineNr">43 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/linux/403unicode.mu.html b/html/linux/403unicode.mu.html new file mode 100644 index 00000000..298b5c1f --- /dev/null +++ b/html/linux/403unicode.mu.html @@ -0,0 +1,452 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/403unicode.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Delimiter { color: #c000c0; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/403unicode.mu'>https://github.com/akkartik/mu/blob/main/linux/403unicode.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Helpers for Unicode.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># Mu has no characters, only code points and graphemes.</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Code points are the indivisible atoms of text streams.</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># <a href="https://en.wikipedia.org/wiki/Code_point">https://en.wikipedia.org/wiki/Code_point</a></span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Graphemes are the smallest self-contained unit of text.</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># Graphemes may consist of multiple code points.</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># Mu graphemes are always represented in utf-8, and they are required to fit</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># in 4 bytes.</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># Mu doesn't currently support combining code points, or graphemes made of</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment"># multiple code points. One day we will.</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># We also don't currently support code points that translate into multiple</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># or wide graphemes. (In particular, Tab will never be supported.)</span> +<span id="L16" class="LineNr"> 16 </span> +<span id="L17" class="LineNr"> 17 </span><span class="muComment"># transliterated from tb_utf8_unicode_to_char in <a href="https://github.com/nsf/termbox">https://github.com/nsf/termbox</a></span> +<span id="L18" class="LineNr"> 18 </span><span class="muComment"># <a href="https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit">https://wiki.tcl-lang.org/page/UTF%2D8+bit+by+bit</a> explains the algorithm</span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment">#</span> +<span id="L20" class="LineNr"> 20 </span><span class="muComment"># The day we want to support combining characters, this function will need to</span> +<span id="L21" class="LineNr"> 21 </span><span class="muComment"># take multiple code points. Or something.</span> +<span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L22'>to-grapheme</a></span> in: code-point<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy in +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> first/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L26" class="LineNr"> 26 </span> $to-grapheme:compute-length: <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># single byte: just return it</span> +<span id="L28" class="LineNr"> 28 </span> compare c, <span class="Constant">0x7f</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-></span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">return</span> g +<span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">}</span> +<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># 2 bytes</span> +<span id="L35" class="LineNr"> 35 </span> compare c, <span class="Constant">0x7ff</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-></span> +<span id="L38" class="LineNr"> 38 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L39" class="LineNr"> 39 </span> first <span class="Special"><-</span> copy <span class="Constant">0xc0</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break</span> $to-grapheme:compute-length +<span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> +<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 3 bytes</span> +<span id="L43" class="LineNr"> 43 </span> compare c, <span class="Constant">0xffff</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">break-if-></span> +<span id="L46" class="LineNr"> 46 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L47" class="LineNr"> 47 </span> first <span class="Special"><-</span> copy <span class="Constant">0xe0</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break</span> $to-grapheme:compute-length +<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> +<span id="L50" class="LineNr"> 50 </span> <span class="muComment"># 4 bytes</span> +<span id="L51" class="LineNr"> 51 </span> compare c, <span class="Constant">0x1fffff</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">break-if-></span> +<span id="L54" class="LineNr"> 54 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L55" class="LineNr"> 55 </span> first <span class="Special"><-</span> copy <span class="Constant">0xf0</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break</span> $to-grapheme:compute-length +<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span> +<span id="L58" class="LineNr"> 58 </span> <span class="muComment"># more than 4 bytes: unsupported</span> +<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># TODO: print to stderr</span> +<span id="L60" class="LineNr"> 60 </span> compare c, <span class="Constant">0x1fffff</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">{</span> +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">break-if-></span> +<span id="L63" class="LineNr"> 63 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"unsupported code point "</span> +<span id="L64" class="LineNr"> 64 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> c +<span id="L65" class="LineNr"> 65 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L67" class="LineNr"> 67 </span> <a href='000init.subx.html#L18'>syscall_exit</a> +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">}</span> +<span id="L70" class="LineNr"> 70 </span> <span class="muComment"># emit trailer bytes, 6 bits from 'in', first two bits '10'</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">{</span> +<span id="L73" class="LineNr"> 73 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if-<=</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> tmp/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy c +<span id="L76" class="LineNr"> 76 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x3f</span> +<span id="L77" class="LineNr"> 77 </span> tmp <span class="Special"><-</span> or <span class="Constant">0x80</span> +<span id="L78" class="LineNr"> 78 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L79" class="LineNr"> 79 </span> result <span class="Special"><-</span> or tmp +<span id="L80" class="LineNr"> 80 </span> <span class="muComment"># update loop state</span> +<span id="L81" class="LineNr"> 81 </span> c <span class="Special"><-</span> shift-right <span class="Constant">6</span> +<span id="L82" class="LineNr"> 82 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">loop</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> +<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># emit engine</span> +<span id="L86" class="LineNr"> 86 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L87" class="LineNr"> 87 </span> result <span class="Special"><-</span> or c +<span id="L88" class="LineNr"> 88 </span> result <span class="Special"><-</span> or first +<span id="L89" class="LineNr"> 89 </span> <span class="muComment">#</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> result +<span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> +<span id="L92" class="LineNr"> 92 </span> +<span id="L93" class="LineNr"> 93 </span><span class="muComment"># single-byte code point have identical graphemes</span> +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L94'>test-to-grapheme-single-byte</a></span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> in-int/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> +<span id="L97" class="LineNr"> 97 </span> compare in-int, <span class="Constant">0x7f</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-></span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy in-int +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy out +<span id="L102" class="LineNr">102 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, in-int, <span class="Constant">"F - test-to-grapheme-single-byte"</span> +<span id="L103" class="LineNr">103 </span> in-int <span class="Special"><-</span> increment +<span id="L104" class="LineNr">104 </span> <span class="PreProc">loop</span> +<span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> +<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> +<span id="L107" class="LineNr">107 </span> +<span id="L108" class="LineNr">108 </span> <span class="muComment"># byte | byte | byte | byte</span> +<span id="L109" class="LineNr">109 </span><span class="muComment"># smallest 2-byte utf-8</span> +<span id="L110" class="LineNr">110 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L110'>test-to-grapheme-two-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x80</span> <span class="muComment"># 10 00-0000</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy out +<span id="L114" class="LineNr">114 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80c2</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/2a"</span> <span class="muComment"># 110 0-0010 10 00-0000</span> +<span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> +<span id="L116" class="LineNr">116 </span> +<span id="L117" class="LineNr">117 </span><span class="muComment"># largest 2-byte utf-8</span> +<span id="L118" class="LineNr">118 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L118'>test-to-grapheme-two-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x7ff</span> <span class="muComment"># 1-1111 11-1111</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy out +<span id="L122" class="LineNr">122 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfdf</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/2b"</span> <span class="muComment"># 110 1-1111 10 11-1111</span> +<span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> +<span id="L124" class="LineNr">124 </span> +<span id="L125" class="LineNr">125 </span><span class="muComment"># smallest 3-byte utf-8</span> +<span id="L126" class="LineNr">126 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L126'>test-to-grapheme-three-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x800</span> <span class="muComment"># 10-0000 00-0000</span> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy out +<span id="L130" class="LineNr">130 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x80a0e0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/3a"</span> <span class="muComment"># 1110 0000 10 10-0000 10 00-0000</span> +<span id="L131" class="LineNr">131 </span><span class="Delimiter">}</span> +<span id="L132" class="LineNr">132 </span> +<span id="L133" class="LineNr">133 </span><span class="muComment"># largest 3-byte utf-8</span> +<span id="L134" class="LineNr">134 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L134'>test-to-grapheme-three-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0xffff</span> <span class="muComment"># 1111 11-1111 11-1111</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy out +<span id="L138" class="LineNr">138 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfef</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/3b"</span> <span class="muComment"># 1110 1111 10 11-1111 10 11-1111</span> +<span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> +<span id="L140" class="LineNr">140 </span> +<span id="L141" class="LineNr">141 </span><span class="muComment"># smallest 4-byte utf-8</span> +<span id="L142" class="LineNr">142 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L142'>test-to-grapheme-four-bytes-min</a></span> <span class="Delimiter">{</span> +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x10000</span> <span class="muComment"># 1-0000 00-0000 00-0000</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy out +<span id="L146" class="LineNr">146 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0x808090f0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/4a"</span> <span class="muComment"># 1111-0 000 10 01-0000 10 00-0000 10 00-0000</span> +<span id="L147" class="LineNr">147 </span><span class="Delimiter">}</span> +<span id="L148" class="LineNr">148 </span> +<span id="L149" class="LineNr">149 </span><span class="muComment"># largest 4-byte utf-8</span> +<span id="L150" class="LineNr">150 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L150'>test-to-grapheme-four-bytes-max</a></span> <span class="Delimiter">{</span> +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: code-point <span class="Special"><-</span> copy <span class="Constant">0x1fffff</span> <span class="muComment"># 111 11-1111 11-1111 11-1111</span> +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> in +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> out-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy out +<span id="L154" class="LineNr">154 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> out-int, <span class="Constant">0xbfbfbff7</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L22'>to-grapheme</a>/4b"</span> <span class="muComment"># 1111-0 111 10 11-1111 10 11-1111 10 11-1111</span> +<span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> +<span id="L156" class="LineNr">156 </span> +<span id="L157" class="LineNr">157 </span><span class="muComment"># read the next grapheme from a stream of bytes</span> +<span id="L158" class="LineNr">158 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L158'>read-grapheme</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L159" class="LineNr">159 </span> <span class="muComment"># if at eof, return EOF</span> +<span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> eof?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in +<span id="L162" class="LineNr">162 </span> compare eof?, <span class="Constant">0</span>/false +<span id="L163" class="LineNr">163 </span> <span class="PreProc">break-if-=</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">return</span> <span class="Constant">0xffffffff</span> +<span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L168" class="LineNr">168 </span> $read-grapheme:compute-length: <span class="Delimiter">{</span> +<span id="L169" class="LineNr">169 </span> <span class="muComment"># single byte: just return it</span> +<span id="L170" class="LineNr">170 </span> compare c, <span class="Constant">0xc0</span> +<span id="L171" class="LineNr">171 </span> <span class="Delimiter">{</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">break-if->=</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> g +<span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> +<span id="L176" class="LineNr">176 </span> compare c, <span class="Constant">0xfe</span> +<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-<</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L180" class="LineNr">180 </span> <span class="PreProc">return</span> g +<span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> +<span id="L182" class="LineNr">182 </span> <span class="muComment"># 2 bytes</span> +<span id="L183" class="LineNr">183 </span> compare c, <span class="Constant">0xe0</span> +<span id="L184" class="LineNr">184 </span> <span class="Delimiter">{</span> +<span id="L185" class="LineNr">185 </span> <span class="PreProc">break-if->=</span> +<span id="L186" class="LineNr">186 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L187" class="LineNr">187 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> +<span id="L189" class="LineNr">189 </span> <span class="muComment"># 3 bytes</span> +<span id="L190" class="LineNr">190 </span> compare c, <span class="Constant">0xf0</span> +<span id="L191" class="LineNr">191 </span> <span class="Delimiter">{</span> +<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if->=</span> +<span id="L193" class="LineNr">193 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L194" class="LineNr">194 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> +<span id="L196" class="LineNr">196 </span> <span class="muComment"># 4 bytes</span> +<span id="L197" class="LineNr">197 </span> compare c, <span class="Constant">0xf8</span> +<span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if->=</span> +<span id="L200" class="LineNr">200 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L201" class="LineNr">201 </span> <span class="PreProc">break</span> $read-grapheme:compute-length +<span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span>$read-grapheme:abort: <span class="Delimiter">{</span> +<span id="L204" class="LineNr">204 </span> <span class="muComment"># TODO: print to stderr</span> +<span id="L205" class="LineNr">205 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L207" class="LineNr">207 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n +<span id="L208" class="LineNr">208 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L210" class="LineNr">210 </span> <a href='000init.subx.html#L18'>syscall_exit</a> +<span id="L211" class="LineNr">211 </span> <span class="Delimiter">}</span> +<span id="L212" class="LineNr">212 </span> <span class="Delimiter">}</span> +<span id="L213" class="LineNr">213 </span> <span class="muComment"># prepend trailer bytes</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy c +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L216" class="LineNr">216 </span> <span class="Delimiter">{</span> +<span id="L217" class="LineNr">217 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">break-if-<=</span> +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L273'>read-byte</a> in +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy tmp +<span id="L221" class="LineNr">221 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> tmp2, num-byte-shifts +<span id="L222" class="LineNr">222 </span> result <span class="Special"><-</span> or tmp2 +<span id="L223" class="LineNr">223 </span> <span class="muComment"># update loop state</span> +<span id="L224" class="LineNr">224 </span> num-byte-shifts <span class="Special"><-</span> increment +<span id="L225" class="LineNr">225 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L226" class="LineNr">226 </span> <span class="PreProc">loop</span> +<span id="L227" class="LineNr">227 </span> <span class="Delimiter">}</span> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">return</span> result +<span id="L229" class="LineNr">229 </span><span class="Delimiter">}</span> +<span id="L230" class="LineNr">230 </span> +<span id="L231" class="LineNr">231 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L231'>test-read-grapheme</a></span> <span class="Delimiter">{</span> +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x30</span>) +<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L234" class="LineNr">234 </span> <a href='108write.subx.html#L24'>write</a> s2, <span class="Constant">"aΒc世d界e"</span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L237" class="LineNr">237 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x61</span>, <span class="Constant">"F - test grapheme/0"</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L240" class="LineNr">240 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x92ce</span>/greek-capital-letter-beta, <span class="Constant">"F - test grapheme/1"</span> +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L243" class="LineNr">243 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x63</span>, <span class="Constant">"F - test grapheme/2"</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L246" class="LineNr">246 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x96b8e4</span>, <span class="Constant">"F - test grapheme/3"</span> +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L249" class="LineNr">249 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x64</span>, <span class="Constant">"F - test grapheme/4"</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L252" class="LineNr">252 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x8c95e7</span>, <span class="Constant">"F - test grapheme/5"</span> +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2 +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L255" class="LineNr">255 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> n, <span class="Constant">0x65</span>, <span class="Constant">"F - test grapheme/6"</span> +<span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L258'>read-grapheme-buffered</a></span> in: (addr buffered-file)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> num-trailers/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L261" class="LineNr">261 </span> $read-grapheme-buffered:compute-length: <span class="Delimiter">{</span> +<span id="L262" class="LineNr">262 </span> <span class="muComment"># single byte: just return it</span> +<span id="L263" class="LineNr">263 </span> compare c, <span class="Constant">0xc0</span> +<span id="L264" class="LineNr">264 </span> <span class="Delimiter">{</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">break-if->=</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L267" class="LineNr">267 </span> <span class="PreProc">return</span> g +<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> +<span id="L269" class="LineNr">269 </span> compare c, <span class="Constant">0xfe</span> +<span id="L270" class="LineNr">270 </span> <span class="Delimiter">{</span> +<span id="L271" class="LineNr">271 </span> <span class="PreProc">break-if-<</span> +<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L273" class="LineNr">273 </span> <span class="PreProc">return</span> g +<span id="L274" class="LineNr">274 </span> <span class="Delimiter">}</span> +<span id="L275" class="LineNr">275 </span> <span class="muComment"># 2 bytes</span> +<span id="L276" class="LineNr">276 </span> compare c, <span class="Constant">0xe0</span> +<span id="L277" class="LineNr">277 </span> <span class="Delimiter">{</span> +<span id="L278" class="LineNr">278 </span> <span class="PreProc">break-if->=</span> +<span id="L279" class="LineNr">279 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L280" class="LineNr">280 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length +<span id="L281" class="LineNr">281 </span> <span class="Delimiter">}</span> +<span id="L282" class="LineNr">282 </span> <span class="muComment"># 3 bytes</span> +<span id="L283" class="LineNr">283 </span> compare c, <span class="Constant">0xf0</span> +<span id="L284" class="LineNr">284 </span> <span class="Delimiter">{</span> +<span id="L285" class="LineNr">285 </span> <span class="PreProc">break-if->=</span> +<span id="L286" class="LineNr">286 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L287" class="LineNr">287 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length +<span id="L288" class="LineNr">288 </span> <span class="Delimiter">}</span> +<span id="L289" class="LineNr">289 </span> <span class="muComment"># 4 bytes</span> +<span id="L290" class="LineNr">290 </span> compare c, <span class="Constant">0xf8</span> +<span id="L291" class="LineNr">291 </span> <span class="Delimiter">{</span> +<span id="L292" class="LineNr">292 </span> <span class="PreProc">break-if->=</span> +<span id="L293" class="LineNr">293 </span> num-trailers <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L294" class="LineNr">294 </span> <span class="PreProc">break</span> $read-grapheme-buffered:compute-length +<span id="L295" class="LineNr">295 </span> <span class="Delimiter">}</span> +<span id="L296" class="LineNr">296 </span>$read-grapheme-buffered:abort: <span class="Delimiter">{</span> +<span id="L297" class="LineNr">297 </span> <span class="muComment"># TODO: print to stderr</span> +<span id="L298" class="LineNr">298 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"utf-8 encodings larger than 4 bytes are not supported. First byte seen: "</span> +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy c +<span id="L300" class="LineNr">300 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n +<span id="L301" class="LineNr">301 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L303" class="LineNr">303 </span> <a href='000init.subx.html#L18'>syscall_exit</a> +<span id="L304" class="LineNr">304 </span> <span class="Delimiter">}</span> +<span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> +<span id="L306" class="LineNr">306 </span> <span class="muComment"># prepend trailer bytes</span> +<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy c +<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> num-byte-shifts/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L309" class="LineNr">309 </span> <span class="Delimiter">{</span> +<span id="L310" class="LineNr">310 </span> compare num-trailers, <span class="Constant">0</span> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">break-if-<=</span> +<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in +<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy tmp +<span id="L314" class="LineNr">314 </span> tmp2 <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> tmp2, num-byte-shifts +<span id="L315" class="LineNr">315 </span> result <span class="Special"><-</span> or tmp2 +<span id="L316" class="LineNr">316 </span> <span class="muComment"># update loop state</span> +<span id="L317" class="LineNr">317 </span> num-byte-shifts <span class="Special"><-</span> increment +<span id="L318" class="LineNr">318 </span> num-trailers <span class="Special"><-</span> decrement +<span id="L319" class="LineNr">319 </span> <span class="PreProc">loop</span> +<span id="L320" class="LineNr">320 </span> <span class="Delimiter">}</span> +<span id="L321" class="LineNr">321 </span> <span class="PreProc">return</span> result +<span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> +<span id="L323" class="LineNr">323 </span> +<span id="L324" class="LineNr">324 </span><span class="muComment"># needed because available primitives only shift by a literal/constant number of bits</span> +<span id="L325" class="LineNr">325 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L325'>shift-left-bytes</a></span> n: int, k: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy n +<span id="L328" class="LineNr">328 </span> <span class="Delimiter">{</span> +<span id="L329" class="LineNr">329 </span> compare i, k +<span id="L330" class="LineNr">330 </span> <span class="PreProc">break-if->=</span> +<span id="L331" class="LineNr">331 </span> compare i, <span class="Constant">4</span> <span class="muComment"># only 4 bytes in 32 bits</span> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">break-if->=</span> +<span id="L333" class="LineNr">333 </span> result <span class="Special"><-</span> shift-left <span class="Constant">8</span> +<span id="L334" class="LineNr">334 </span> i <span class="Special"><-</span> increment +<span id="L335" class="LineNr">335 </span> <span class="PreProc">loop</span> +<span id="L336" class="LineNr">336 </span> <span class="Delimiter">}</span> +<span id="L337" class="LineNr">337 </span> <span class="PreProc">return</span> result +<span id="L338" class="LineNr">338 </span><span class="Delimiter">}</span> +<span id="L339" class="LineNr">339 </span> +<span id="L340" class="LineNr">340 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L340'>test-shift-left-bytes-0</a></span> <span class="Delimiter">{</span> +<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">0</span> +<span id="L342" class="LineNr">342 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">1</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 0"</span> +<span id="L343" class="LineNr">343 </span><span class="Delimiter">}</span> +<span id="L344" class="LineNr">344 </span> +<span id="L345" class="LineNr">345 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L345'>test-shift-left-bytes-1</a></span> <span class="Delimiter">{</span> +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L347" class="LineNr">347 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x100</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 1"</span> +<span id="L348" class="LineNr">348 </span><span class="Delimiter">}</span> +<span id="L349" class="LineNr">349 </span> +<span id="L350" class="LineNr">350 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L350'>test-shift-left-bytes-2</a></span> <span class="Delimiter">{</span> +<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L352" class="LineNr">352 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x10000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 2"</span> +<span id="L353" class="LineNr">353 </span><span class="Delimiter">}</span> +<span id="L354" class="LineNr">354 </span> +<span id="L355" class="LineNr">355 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L355'>test-shift-left-bytes-3</a></span> <span class="Delimiter">{</span> +<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">3</span> +<span id="L357" class="LineNr">357 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x1000000</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 3"</span> +<span id="L358" class="LineNr">358 </span><span class="Delimiter">}</span> +<span id="L359" class="LineNr">359 </span> +<span id="L360" class="LineNr">360 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L360'>test-shift-left-bytes-4</a></span> <span class="Delimiter">{</span> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L362" class="LineNr">362 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> 4"</span> +<span id="L363" class="LineNr">363 </span><span class="Delimiter">}</span> +<span id="L364" class="LineNr">364 </span> +<span id="L365" class="LineNr">365 </span><span class="PreProc">fn</span> <span class="muTest"><a href='403unicode.mu.html#L365'>test-shift-left-bytes-5</a></span> <span class="Delimiter">{</span> +<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='403unicode.mu.html#L325'>shift-left-bytes</a> <span class="Constant">1</span>, <span class="Constant">5</span> +<span id="L367" class="LineNr">367 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0</span>, <span class="Constant">"F - <a href='403unicode.mu.html#L325'>shift-left-bytes</a> >4"</span> +<span id="L368" class="LineNr">368 </span><span class="Delimiter">}</span> +<span id="L369" class="LineNr">369 </span> +<span id="L370" class="LineNr">370 </span><span class="muComment"># write a grapheme to a stream of bytes</span> +<span id="L371" class="LineNr">371 </span><span class="muComment"># this is like write-to-stream, except we skip leading 0 bytes</span> +<span id="L372" class="LineNr">372 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='403unicode.mu.html#L372'>write-grapheme</a></span> out: (addr stream byte), g: grapheme <span class="Delimiter">{</span> +<span id="L373" class="LineNr">373 </span>$write-grapheme:body: <span class="Delimiter">{</span> +<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L375" class="LineNr">375 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c <span class="muComment"># first byte is always written</span> +<span id="L376" class="LineNr">376 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L377" class="LineNr">377 </span> compare c, <span class="Constant">0</span> +<span id="L378" class="LineNr">378 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L379" class="LineNr">379 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L380" class="LineNr">380 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L381" class="LineNr">381 </span> compare c, <span class="Constant">0</span> +<span id="L382" class="LineNr">382 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L383" class="LineNr">383 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L384" class="LineNr">384 </span> c <span class="Special"><-</span> shift-right <span class="Constant">8</span> +<span id="L385" class="LineNr">385 </span> compare c, <span class="Constant">0</span> +<span id="L386" class="LineNr">386 </span> <span class="PreProc">break-if-=</span> $write-grapheme:body +<span id="L387" class="LineNr">387 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, c +<span id="L388" class="LineNr">388 </span><span class="Delimiter">}</span> +<span id="L389" class="LineNr">389 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/404stream.mu.html b/html/linux/404stream.mu.html index c537db4b..38395fdb 100644 --- a/html/404stream.mu.html +++ b/html/linux/404stream.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 404stream.mu</title> +<title>Mu - linux/404stream.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } +.Special { color: #ff6060; } .muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/404stream.mu'>https://github.com/akkartik/mu/blob/main/404stream.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/404stream.mu'>https://github.com/akkartik/mu/blob/main/linux/404stream.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Tests for Mu's stream primitives.</span> <span id="L2" class="LineNr"> 2 </span> @@ -62,30 +62,30 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span> <span class="muComment"># - write an int to a stream, then read it back</span> <span id="L5" class="LineNr"> 5 </span> <span class="muComment"># step 1: initialize</span> <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> s: (stream int <span class="Constant">4</span>) -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream int) <span class="SpecialChar"><-</span> address s -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2 -<span id="L9" class="LineNr"> 9 </span> <a href='401test.mu.html#L3'>check-true</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/0"</span> -<span id="L10" class="LineNr">10 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 -<span id="L11" class="LineNr">11 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/0"</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream int) <span class="Special"><-</span> address s +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2 +<span id="L9" class="LineNr"> 9 </span> <a href='401test.mu.html#L3'>check</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/0"</span> +<span id="L10" class="LineNr">10 </span> tmp <span class="Special"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 +<span id="L11" class="LineNr">11 </span> <a href='401test.mu.html#L8'>check-not</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/0"</span> <span id="L12" class="LineNr">12 </span> <span class="muComment"># step 2: write to stream</span> <span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> x: int <span id="L14" class="LineNr">14 </span> copy-to x, <span class="Constant">0x34</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x2/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> address x +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> x2/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> address x <span id="L16" class="LineNr">16 </span> <a href='309stream.subx.html#L54'>write-to-stream</a> s2, x2 -<span id="L17" class="LineNr">17 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2 -<span id="L18" class="LineNr">18 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/1"</span> -<span id="L19" class="LineNr">19 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 -<span id="L20" class="LineNr">20 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/1"</span> +<span id="L17" class="LineNr">17 </span> tmp <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2 +<span id="L18" class="LineNr">18 </span> <a href='401test.mu.html#L8'>check-not</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/1"</span> +<span id="L19" class="LineNr">19 </span> tmp <span class="Special"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 +<span id="L20" class="LineNr">20 </span> <a href='401test.mu.html#L8'>check-not</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/1"</span> <span id="L21" class="LineNr">21 </span> <span class="muComment"># step 3: modify the value written (should make no difference)</span> <span id="L22" class="LineNr">22 </span> copy-to x, <span class="Constant">0</span> <span id="L23" class="LineNr">23 </span> <span class="muComment"># step 4: read back</span> <span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> y: int -<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> y2/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> address y +<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> y2/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> address y <span id="L26" class="LineNr">26 </span> <a href='309stream.subx.html#L107'>read-from-stream</a> s2, y2 -<span id="L27" class="LineNr">27 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2 -<span id="L28" class="LineNr">28 </span> <a href='401test.mu.html#L3'>check-true</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/2"</span> -<span id="L29" class="LineNr">29 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 -<span id="L30" class="LineNr">30 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/2"</span> +<span id="L27" class="LineNr">27 </span> tmp <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2 +<span id="L28" class="LineNr">28 </span> <a href='401test.mu.html#L3'>check</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/empty?/2"</span> +<span id="L29" class="LineNr">29 </span> tmp <span class="Special"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 +<span id="L30" class="LineNr">30 </span> <a href='401test.mu.html#L8'>check-not</a> tmp, <span class="Constant">"F - <a href='404stream.mu.html#L3'>test-stream</a>/full?/2"</span> <span id="L31" class="LineNr">31 </span> <span class="muComment"># we read back what was written</span> <span id="L32" class="LineNr">32 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> y, <span class="Constant">0x34</span>, <span class="Constant">"F - test-stream"</span> <span id="L33" class="LineNr">33 </span><span class="Delimiter">}</span> @@ -93,35 +93,35 @@ if ('onhashchange' in window) { <span id="L35" class="LineNr">35 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L35'>test-stream-full</a></span> <span class="Delimiter">{</span> <span id="L36" class="LineNr">36 </span> <span class="muComment"># write an int to a stream of capacity 1</span> <span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> s: (stream int <span class="Constant">1</span>) -<span id="L38" class="LineNr">38 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream int) <span class="SpecialChar"><-</span> address s -<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 -<span id="L40" class="LineNr">40 </span> <a href='401test.mu.html#L8'>check-false</a> tmp, <span class="Constant">"F - test-stream-full?/pre"</span> +<span id="L38" class="LineNr">38 </span> <span class="PreProc">var</span> s2/<span class="Constant">ecx</span>: (addr stream int) <span class="Special"><-</span> address s +<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 +<span id="L40" class="LineNr">40 </span> <a href='401test.mu.html#L8'>check-not</a> tmp, <span class="Constant">"F - test-stream-full?/pre"</span> <span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> x: int -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> x2/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> address x +<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> x2/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> address x <span id="L43" class="LineNr">43 </span> <a href='309stream.subx.html#L54'>write-to-stream</a> s2, x2 -<span id="L44" class="LineNr">44 </span> tmp <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 -<span id="L45" class="LineNr">45 </span> <a href='401test.mu.html#L3'>check-true</a> tmp, <span class="Constant">"F - test-stream-full?"</span> +<span id="L44" class="LineNr">44 </span> tmp <span class="Special"><-</span> <a href='309stream.subx.html#L30'>stream-full?</a> s2 +<span id="L45" class="LineNr">45 </span> <a href='401test.mu.html#L3'>check</a> tmp, <span class="Constant">"F - test-stream-full?"</span> <span id="L46" class="LineNr">46 </span><span class="Delimiter">}</span> <span id="L47" class="LineNr">47 </span> <span id="L48" class="LineNr">48 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L48'>test-fake-input-buffered-file</a></span> <span class="Delimiter">{</span> <span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> foo: (handle buffered-file) -<span id="L50" class="LineNr">50 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address foo +<span id="L50" class="LineNr">50 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> address foo <span id="L51" class="LineNr">51 </span> <a href='306files.subx.html#L89'>populate-buffered-file-containing</a> <span class="Constant">"abc"</span>, foo-ah -<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> foo +<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> foo <span id="L53" class="LineNr">53 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L54" class="LineNr">54 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s +<span id="L54" class="LineNr">54 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s <span id="L55" class="LineNr">55 </span> <a href='122read-line.subx.html#L9'>read-line-buffered</a> foo-addr, result <span id="L56" class="LineNr">56 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> result, <span class="Constant">"abc"</span>, <span class="Constant">"F - test-fake-input-buffered-file"</span> <span id="L57" class="LineNr">57 </span><span class="Delimiter">}</span> <span id="L58" class="LineNr">58 </span> <span id="L59" class="LineNr">59 </span><span class="PreProc">fn</span> <span class="muTest"><a href='404stream.mu.html#L59'>test-fake-output-buffered-file</a></span> <span class="Delimiter">{</span> <span id="L60" class="LineNr">60 </span> <span class="PreProc">var</span> foo: (handle buffered-file) -<span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address foo +<span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> foo-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> address foo <span id="L62" class="LineNr">62 </span> <a href='306files.subx.html#L135'>new-buffered-file</a> foo-ah -<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L256'>lookup</a> foo +<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> foo-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> foo <span id="L64" class="LineNr">64 </span> <a href='116write-buffered.subx.html#L8'>write-buffered</a> foo-addr, <span class="Constant">"abc"</span> <span id="L65" class="LineNr">65 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s +<span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s <span id="L67" class="LineNr">67 </span> <a href='122read-line.subx.html#L9'>read-line-buffered</a> foo-addr, result <span id="L68" class="LineNr">68 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> result, <span class="Constant">"abc"</span>, <span class="Constant">"F - test-fake-output-buffered-file"</span> <span id="L69" class="LineNr">69 </span><span class="Delimiter">}</span> diff --git a/html/linux/405screen.mu.html b/html/linux/405screen.mu.html new file mode 100644 index 00000000..2c533992 --- /dev/null +++ b/html/linux/405screen.mu.html @@ -0,0 +1,1509 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/405screen.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/405screen.mu'>https://github.com/akkartik/mu/blob/main/linux/405screen.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Wrappers for real screen primitives that can be passed a fake screen.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># The tests here have been painstakingly validated against a real terminal</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># emulator. I believe functionality here is broadly portable across terminal</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># emulators.</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment">#</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Remember: fake screen co-ordinates are 1-based, just like in real terminal</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># emulators.</span> +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="PreProc">type</span> <a href='405screen.mu.html#L9'>screen</a> <span class="Delimiter">{</span> +<span id="L10" class="LineNr"> 10 </span> num-rows: int +<span id="L11" class="LineNr"> 11 </span> num-cols: int +<span id="L12" class="LineNr"> 12 </span> data: (handle array <a href='405screen.mu.html#L20'>screen-cell</a>) +<span id="L13" class="LineNr"> 13 </span> top-index: int <span class="muComment"># 0-indexed</span> +<span id="L14" class="LineNr"> 14 </span> cursor-row: int <span class="muComment"># 1-indexed</span> +<span id="L15" class="LineNr"> 15 </span> cursor-col: int <span class="muComment"># 1-indexed</span> +<span id="L16" class="LineNr"> 16 </span> cursor-hide?: boolean +<span id="L17" class="LineNr"> 17 </span> curr-attributes: <a href='405screen.mu.html#L20'>screen-cell</a> +<span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> +<span id="L19" class="LineNr"> 19 </span> +<span id="L20" class="LineNr"> 20 </span><span class="PreProc">type</span> <a href='405screen.mu.html#L20'>screen-cell</a> <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> data: grapheme +<span id="L22" class="LineNr"> 22 </span> color: int +<span id="L23" class="LineNr"> 23 </span> background-color: int +<span id="L24" class="LineNr"> 24 </span> bold?: boolean +<span id="L25" class="LineNr"> 25 </span> underline?: boolean +<span id="L26" class="LineNr"> 26 </span> reverse?: boolean +<span id="L27" class="LineNr"> 27 </span> blink?: boolean +<span id="L28" class="LineNr"> 28 </span><span class="Delimiter">}</span> +<span id="L29" class="LineNr"> 29 </span> +<span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L30'>initialize-screen</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), nrows: int, ncols: int <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L34" class="LineNr"> 34 </span> <span class="muComment"># screen->num-rows = nrows</span> +<span id="L35" class="LineNr"> 35 </span> dest <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows +<span id="L36" class="LineNr"> 36 </span> tmp <span class="Special"><-</span> copy nrows +<span id="L37" class="LineNr"> 37 </span> copy-to *dest, tmp +<span id="L38" class="LineNr"> 38 </span> <span class="muComment"># screen->num-cols = ncols</span> +<span id="L39" class="LineNr"> 39 </span> dest <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols +<span id="L40" class="LineNr"> 40 </span> tmp <span class="Special"><-</span> copy ncols +<span id="L41" class="LineNr"> 41 </span> copy-to *dest, tmp +<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># screen->data = new screen-cell[nrows*ncols]</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Delimiter">{</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L45" class="LineNr"> 45 </span> tmp <span class="Special"><-</span> multiply nrows +<span id="L46" class="LineNr"> 46 </span> populate data-addr, tmp +<span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">}</span> +<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># screen->cursor-row = 1</span> +<span id="L49" class="LineNr"> 49 </span> dest <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row +<span id="L50" class="LineNr"> 50 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># screen->cursor-col = 1</span> +<span id="L52" class="LineNr"> 52 </span> dest <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col +<span id="L53" class="LineNr"> 53 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L54" class="LineNr"> 54 </span> <span class="muComment"># screen->curr-attributes->background-color = 7 (simulate light background)</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L56" class="LineNr"> 56 </span> dest <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> tmp2, background-color +<span id="L57" class="LineNr"> 57 </span> copy-to *dest, <span class="Constant">7</span> +<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L60'>screen-size</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L63" class="LineNr"> 63 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">{</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-!=</span> +<span id="L66" class="LineNr"> 66 </span> nrows, ncols <span class="Special"><-</span> <a href='304screen.subx.html#L37'>real-screen-size</a> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">return</span> nrows, ncols +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> +<span id="L69" class="LineNr"> 69 </span> <span class="muComment"># fake screen</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> tmp/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows +<span id="L72" class="LineNr"> 72 </span> nrows <span class="Special"><-</span> copy *tmp +<span id="L73" class="LineNr"> 73 </span> tmp <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols +<span id="L74" class="LineNr"> 74 </span> ncols <span class="Special"><-</span> copy *tmp +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">return</span> nrows, ncols +<span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> +<span id="L77" class="LineNr"> 77 </span> +<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L78'>clear-screen</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L79" class="LineNr"> 79 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">{</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-!=</span> +<span id="L82" class="LineNr"> 82 </span> <a href='304screen.subx.html#L75'>clear-real-screen</a> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">return</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> +<span id="L85" class="LineNr"> 85 </span> <span class="muComment"># fake screen</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> space/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x20</span> +<span id="L87" class="LineNr"> 87 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows +<span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> compare i, *nrows +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">break-if-></span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> j/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols +<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> +<span id="L97" class="LineNr"> 97 </span> compare j, *ncols +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">break-if-></span> +<span id="L99" class="LineNr"> 99 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, space +<span id="L100" class="LineNr"> 100 </span> j <span class="Special"><-</span> increment +<span id="L101" class="LineNr"> 101 </span> <span class="PreProc">loop</span> +<span id="L102" class="LineNr"> 102 </span> <span class="Delimiter">}</span> +<span id="L103" class="LineNr"> 103 </span> i <span class="Special"><-</span> increment +<span id="L104" class="LineNr"> 104 </span> <span class="PreProc">loop</span> +<span id="L105" class="LineNr"> 105 </span> <span class="Delimiter">}</span> +<span id="L106" class="LineNr"> 106 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L107" class="LineNr"> 107 </span><span class="Delimiter">}</span> +<span id="L108" class="LineNr"> 108 </span> +<span id="L109" class="LineNr"> 109 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L109'>move-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, column: int <span class="Delimiter">{</span> +<span id="L110" class="LineNr"> 110 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L111" class="LineNr"> 111 </span> <span class="Delimiter">{</span> +<span id="L112" class="LineNr"> 112 </span> <span class="PreProc">break-if-!=</span> +<span id="L113" class="LineNr"> 113 </span> <a href='304screen.subx.html#L91'>move-cursor-on-real-screen</a> row, column +<span id="L114" class="LineNr"> 114 </span> <span class="PreProc">return</span> +<span id="L115" class="LineNr"> 115 </span> <span class="Delimiter">}</span> +<span id="L116" class="LineNr"> 116 </span> <span class="muComment"># fake screen</span> +<span id="L117" class="LineNr"> 117 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L118" class="LineNr"> 118 </span> <span class="muComment"># row < 0 is ignored</span> +<span id="L119" class="LineNr"> 119 </span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr"> 120 </span> compare row, <span class="Constant">0</span> +<span id="L121" class="LineNr"> 121 </span> <span class="PreProc">break-if->=</span> +<span id="L122" class="LineNr"> 122 </span> <span class="PreProc">return</span> +<span id="L123" class="LineNr"> 123 </span> <span class="Delimiter">}</span> +<span id="L124" class="LineNr"> 124 </span> <span class="muComment"># row = 0 is treated same as 1</span> +<span id="L125" class="LineNr"> 125 </span> <span class="Delimiter">{</span> +<span id="L126" class="LineNr"> 126 </span> compare row, <span class="Constant">0</span> +<span id="L127" class="LineNr"> 127 </span> <span class="PreProc">break-if-!=</span> +<span id="L128" class="LineNr"> 128 </span> copy-to row, <span class="Constant">1</span> +<span id="L129" class="LineNr"> 129 </span> <span class="Delimiter">}</span> +<span id="L130" class="LineNr"> 130 </span> <span class="muComment"># row > num-rows saturates to num-rows</span> +<span id="L131" class="LineNr"> 131 </span> <span class="Delimiter">{</span> +<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">var</span> nrows-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows +<span id="L133" class="LineNr"> 133 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *nrows-addr +<span id="L134" class="LineNr"> 134 </span> compare row, nrows +<span id="L135" class="LineNr"> 135 </span> <span class="PreProc">break-if-<=</span> +<span id="L136" class="LineNr"> 136 </span> copy-to row, nrows +<span id="L137" class="LineNr"> 137 </span> <span class="Delimiter">}</span> +<span id="L138" class="LineNr"> 138 </span> <span class="muComment"># column < 0 is ignored</span> +<span id="L139" class="LineNr"> 139 </span> <span class="Delimiter">{</span> +<span id="L140" class="LineNr"> 140 </span> compare column, <span class="Constant">0</span> +<span id="L141" class="LineNr"> 141 </span> <span class="PreProc">break-if->=</span> +<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">return</span> +<span id="L143" class="LineNr"> 143 </span> <span class="Delimiter">}</span> +<span id="L144" class="LineNr"> 144 </span> <span class="muComment"># column = 0 is treated same as 1</span> +<span id="L145" class="LineNr"> 145 </span> <span class="Delimiter">{</span> +<span id="L146" class="LineNr"> 146 </span> compare column, <span class="Constant">0</span> +<span id="L147" class="LineNr"> 147 </span> <span class="PreProc">break-if-!=</span> +<span id="L148" class="LineNr"> 148 </span> copy-to column, <span class="Constant">1</span> +<span id="L149" class="LineNr"> 149 </span> <span class="Delimiter">}</span> +<span id="L150" class="LineNr"> 150 </span> <span class="muComment"># column > num-cols saturates to num-cols+1 (so wrapping to next row)</span> +<span id="L151" class="LineNr"> 151 </span> <span class="Delimiter">{</span> +<span id="L152" class="LineNr"> 152 </span> <span class="PreProc">var</span> ncols-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols +<span id="L153" class="LineNr"> 153 </span> <span class="PreProc">var</span> ncols/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *ncols-addr +<span id="L154" class="LineNr"> 154 </span> compare column, ncols +<span id="L155" class="LineNr"> 155 </span> <span class="PreProc">break-if-<=</span> +<span id="L156" class="LineNr"> 156 </span> copy-to column, ncols +<span id="L157" class="LineNr"> 157 </span> increment column +<span id="L158" class="LineNr"> 158 </span> <span class="Delimiter">}</span> +<span id="L159" class="LineNr"> 159 </span> <span class="muComment"># screen->cursor-row = row</span> +<span id="L160" class="LineNr"> 160 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row +<span id="L161" class="LineNr"> 161 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy row +<span id="L162" class="LineNr"> 162 </span> copy-to *dest, src +<span id="L163" class="LineNr"> 163 </span> <span class="muComment"># screen->cursor-col = column</span> +<span id="L164" class="LineNr"> 164 </span> dest <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col +<span id="L165" class="LineNr"> 165 </span> src <span class="Special"><-</span> copy column +<span id="L166" class="LineNr"> 166 </span> copy-to *dest, src +<span id="L167" class="LineNr"> 167 </span><span class="Delimiter">}</span> +<span id="L168" class="LineNr"> 168 </span> +<span id="L169" class="LineNr"> 169 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L169'>print-string</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L170" class="LineNr"> 170 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L171" class="LineNr"> 171 </span> <span class="Delimiter">{</span> +<span id="L172" class="LineNr"> 172 </span> <span class="PreProc">break-if-!=</span> +<span id="L173" class="LineNr"> 173 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> s +<span id="L174" class="LineNr"> 174 </span> <span class="PreProc">return</span> +<span id="L175" class="LineNr"> 175 </span> <span class="Delimiter">}</span> +<span id="L176" class="LineNr"> 176 </span> <span class="muComment"># fake screen</span> +<span id="L177" class="LineNr"> 177 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L178" class="LineNr"> 178 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L179" class="LineNr"> 179 </span> <a href='108write.subx.html#L24'>write</a> stream, s +<span id="L180" class="LineNr"> 180 </span> <a href='405screen.mu.html#L183'>print-stream</a> <a href='405screen.mu.html#L9'>screen</a>, stream +<span id="L181" class="LineNr"> 181 </span><span class="Delimiter">}</span> +<span id="L182" class="LineNr"> 182 </span> +<span id="L183" class="LineNr"> 183 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L183'>print-stream</a></span> _screen: (addr <a href='405screen.mu.html#L9'>screen</a>), s: (addr stream byte) <span class="Delimiter">{</span> +<span id="L184" class="LineNr"> 184 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L185" class="LineNr"> 185 </span> <span class="Delimiter">{</span> +<span id="L186" class="LineNr"> 186 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s +<span id="L187" class="LineNr"> 187 </span> compare done?, <span class="Constant">0</span> +<span id="L188" class="LineNr"> 188 </span> <span class="PreProc">break-if-!=</span> +<span id="L189" class="LineNr"> 189 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s +<span id="L190" class="LineNr"> 190 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L191" class="LineNr"> 191 </span> <span class="PreProc">loop</span> +<span id="L192" class="LineNr"> 192 </span> <span class="Delimiter">}</span> +<span id="L193" class="LineNr"> 193 </span><span class="Delimiter">}</span> +<span id="L194" class="LineNr"> 194 </span> +<span id="L195" class="LineNr"> 195 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L195'>print-array-of-ints-in-decimal</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), _a: (addr array int) <span class="Delimiter">{</span> +<span id="L196" class="LineNr"> 196 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> copy _a +<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">var</span> max/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length a +<span id="L198" class="LineNr"> 198 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L199" class="LineNr"> 199 </span> <span class="Delimiter">{</span> +<span id="L200" class="LineNr"> 200 </span> compare i, max +<span id="L201" class="LineNr"> 201 </span> <span class="PreProc">break-if->=</span> +<span id="L202" class="LineNr"> 202 </span> <span class="Delimiter">{</span> +<span id="L203" class="LineNr"> 203 </span> compare i, <span class="Constant">0</span> +<span id="L204" class="LineNr"> 204 </span> <span class="PreProc">break-if-=</span> +<span id="L205" class="LineNr"> 205 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L206" class="LineNr"> 206 </span> <span class="Delimiter">}</span> +<span id="L207" class="LineNr"> 207 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> index a, i +<span id="L208" class="LineNr"> 208 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <a href='405screen.mu.html#L9'>screen</a>, *x +<span id="L209" class="LineNr"> 209 </span> i <span class="Special"><-</span> increment +<span id="L210" class="LineNr"> 210 </span> <span class="PreProc">loop</span> +<span id="L211" class="LineNr"> 211 </span> <span class="Delimiter">}</span> +<span id="L212" class="LineNr"> 212 </span><span class="Delimiter">}</span> +<span id="L213" class="LineNr"> 213 </span> +<span id="L214" class="LineNr"> 214 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L214'>print-grapheme</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), c: grapheme <span class="Delimiter">{</span> +<span id="L215" class="LineNr"> 215 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L216" class="LineNr"> 216 </span> <span class="Delimiter">{</span> +<span id="L217" class="LineNr"> 217 </span> <span class="PreProc">break-if-!=</span> +<span id="L218" class="LineNr"> 218 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> c +<span id="L219" class="LineNr"> 219 </span> <span class="PreProc">return</span> +<span id="L220" class="LineNr"> 220 </span> <span class="Delimiter">}</span> +<span id="L221" class="LineNr"> 221 </span> <span class="muComment"># fake screen</span> +<span id="L222" class="LineNr"> 222 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L223" class="LineNr"> 223 </span> <span class="PreProc">var</span> cursor-col-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-col +<span id="L224" class="LineNr"> 224 </span> <span class="muComment"># adjust cursor if necessary</span> +<span id="L225" class="LineNr"> 225 </span> <span class="muComment"># to avoid premature scrolling it's important to do this lazily, at the last possible time</span> +<span id="L226" class="LineNr"> 226 </span> <span class="Delimiter">{</span> +<span id="L227" class="LineNr"> 227 </span> <span class="muComment"># next row</span> +<span id="L228" class="LineNr"> 228 </span> <span class="PreProc">var</span> num-cols-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-cols +<span id="L229" class="LineNr"> 229 </span> <span class="PreProc">var</span> num-cols/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *num-cols-addr +<span id="L230" class="LineNr"> 230 </span> compare *cursor-col-addr, num-cols +<span id="L231" class="LineNr"> 231 </span> <span class="PreProc">break-if-<=</span> +<span id="L232" class="LineNr"> 232 </span> copy-to *cursor-col-addr, <span class="Constant">1</span> +<span id="L233" class="LineNr"> 233 </span> <span class="PreProc">var</span> cursor-row-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-row +<span id="L234" class="LineNr"> 234 </span> increment *cursor-row-addr +<span id="L235" class="LineNr"> 235 </span> <span class="muComment"># scroll</span> +<span id="L236" class="LineNr"> 236 </span> <span class="PreProc">var</span> num-rows-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, num-rows +<span id="L237" class="LineNr"> 237 </span> <span class="PreProc">var</span> num-rows/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *num-rows-addr +<span id="L238" class="LineNr"> 238 </span> compare *cursor-row-addr, num-rows +<span id="L239" class="LineNr"> 239 </span> <span class="PreProc">break-if-<=</span> +<span id="L240" class="LineNr"> 240 </span> copy-to *cursor-row-addr, num-rows +<span id="L241" class="LineNr"> 241 </span> <span class="muComment"># if (top-index > data size) top-index = 0, otherwise top-index += num-cols</span> +<span id="L242" class="LineNr"> 242 </span> $print-grapheme:perform-scroll: <span class="Delimiter">{</span> +<span id="L243" class="LineNr"> 243 </span> <span class="PreProc">var</span> top-index-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, top-index +<span id="L244" class="LineNr"> 244 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L245" class="LineNr"> 245 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L246" class="LineNr"> 246 </span> <span class="PreProc">var</span> max-index/<span class="Constant">edi</span>: int <span class="Special"><-</span> length data +<span id="L247" class="LineNr"> 247 </span> compare *top-index-addr, max-index +<span id="L248" class="LineNr"> 248 </span> <span class="Delimiter">{</span> +<span id="L249" class="LineNr"> 249 </span> <span class="PreProc">break-if->=</span> +<span id="L250" class="LineNr"> 250 </span> add-to *top-index-addr, num-cols +<span id="L251" class="LineNr"> 251 </span> <span class="PreProc">break</span> $print-grapheme:perform-scroll +<span id="L252" class="LineNr"> 252 </span> <span class="Delimiter">}</span> +<span id="L253" class="LineNr"> 253 </span> <span class="Delimiter">{</span> +<span id="L254" class="LineNr"> 254 </span> <span class="PreProc">break-if-<</span> +<span id="L255" class="LineNr"> 255 </span> copy-to *top-index-addr, <span class="Constant">0</span> +<span id="L256" class="LineNr"> 256 </span> <span class="Delimiter">}</span> +<span id="L257" class="LineNr"> 257 </span> <span class="Delimiter">}</span> +<span id="L258" class="LineNr"> 258 </span> <span class="Delimiter">}</span> +<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L277'>current-screen-cell-index</a> screen-addr +<span id="L260" class="LineNr"> 260 </span><span class="CommentedCode">#? print-string-to-real-screen "printing grapheme at screen index "</span> +<span id="L261" class="LineNr"> 261 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen idx</span> +<span id="L262" class="LineNr"> 262 </span><span class="CommentedCode">#? print-string-to-real-screen ": "</span> +<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L264" class="LineNr"> 264 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L265" class="LineNr"> 265 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> dest-cell/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L267" class="LineNr"> 267 </span> <span class="PreProc">var</span> src-cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L268" class="LineNr"> 268 </span> copy-object src-cell, dest-cell +<span id="L269" class="LineNr"> 269 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> dest-cell, data +<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">var</span> c2/<span class="Constant">ecx</span>: grapheme <span class="Special"><-</span> copy c +<span id="L271" class="LineNr"> 271 </span><span class="CommentedCode">#? print-grapheme-to-real-screen c2</span> +<span id="L272" class="LineNr"> 272 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> +<span id="L273" class="LineNr"> 273 </span> copy-to *dest, c2 +<span id="L274" class="LineNr"> 274 </span> increment *cursor-col-addr +<span id="L275" class="LineNr"> 275 </span><span class="Delimiter">}</span> +<span id="L276" class="LineNr"> 276 </span> +<span id="L277" class="LineNr"> 277 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L277'>current-screen-cell-index</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L278" class="LineNr"> 278 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L279" class="LineNr"> 279 </span> <span class="PreProc">var</span> cursor-row-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, cursor-row +<span id="L280" class="LineNr"> 280 </span> <span class="PreProc">var</span> cursor-col-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, cursor-col +<span id="L281" class="LineNr"> 281 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, *cursor-row-addr, *cursor-col-addr +<span id="L282" class="LineNr"> 282 </span> <span class="PreProc">return</span> result +<span id="L283" class="LineNr"> 283 </span><span class="Delimiter">}</span> +<span id="L284" class="LineNr"> 284 </span> +<span id="L285" class="LineNr"> 285 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L285'>screen-cell-index</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L286" class="LineNr"> 286 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">var</span> num-cols-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, num-cols +<span id="L288" class="LineNr"> 288 </span> <span class="PreProc">var</span> num-cols/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *num-cols-addr +<span id="L289" class="LineNr"> 289 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy row +<span id="L290" class="LineNr"> 290 </span> result <span class="Special"><-</span> subtract <span class="Constant">1</span> +<span id="L291" class="LineNr"> 291 </span> result <span class="Special"><-</span> multiply num-cols +<span id="L292" class="LineNr"> 292 </span> result <span class="Special"><-</span> add col +<span id="L293" class="LineNr"> 293 </span> result <span class="Special"><-</span> subtract <span class="Constant">1</span> +<span id="L294" class="LineNr"> 294 </span> <span class="muComment"># result = (result + top-index) % data length</span> +<span id="L295" class="LineNr"> 295 </span> <span class="PreProc">var</span> top-index-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, top-index +<span id="L296" class="LineNr"> 296 </span> result <span class="Special"><-</span> add *top-index-addr +<span id="L297" class="LineNr"> 297 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> <a href='405screen.mu.html#L9'>screen</a>, data +<span id="L298" class="LineNr"> 298 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L299" class="LineNr"> 299 </span> <span class="PreProc">var</span> max-index/<span class="Constant">eax</span>: int <span class="Special"><-</span> length data +<span id="L300" class="LineNr"> 300 </span> compare result, max-index +<span id="L301" class="LineNr"> 301 </span> <span class="Delimiter">{</span> +<span id="L302" class="LineNr"> 302 </span> <span class="PreProc">break-if-<</span> +<span id="L303" class="LineNr"> 303 </span> result <span class="Special"><-</span> subtract max-index +<span id="L304" class="LineNr"> 304 </span> <span class="Delimiter">}</span> +<span id="L305" class="LineNr"> 305 </span> <span class="PreProc">return</span> result +<span id="L306" class="LineNr"> 306 </span><span class="Delimiter">}</span> +<span id="L307" class="LineNr"> 307 </span> +<span id="L308" class="LineNr"> 308 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L308'>screen-grapheme-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L309" class="LineNr"> 309 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L310" class="LineNr"> 310 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col +<span id="L311" class="LineNr"> 311 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> screen-addr, idx +<span id="L312" class="LineNr"> 312 </span> <span class="PreProc">return</span> result +<span id="L313" class="LineNr"> 313 </span><span class="Delimiter">}</span> +<span id="L314" class="LineNr"> 314 </span> +<span id="L315" class="LineNr"> 315 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L316" class="LineNr"> 316 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L321" class="LineNr"> 321 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, data +<span id="L323" class="LineNr"> 323 </span> <span class="PreProc">return</span> *src +<span id="L324" class="LineNr"> 324 </span><span class="Delimiter">}</span> +<span id="L325" class="LineNr"> 325 </span> +<span id="L326" class="LineNr"> 326 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L326'>screen-color-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L328" class="LineNr"> 328 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col +<span id="L329" class="LineNr"> 329 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L333'>screen-color-at-idx</a> screen-addr, idx +<span id="L330" class="LineNr"> 330 </span> <span class="PreProc">return</span> result +<span id="L331" class="LineNr"> 331 </span><span class="Delimiter">}</span> +<span id="L332" class="LineNr"> 332 </span> +<span id="L333" class="LineNr"> 333 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L333'>screen-color-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L335" class="LineNr"> 335 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L336" class="LineNr"> 336 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L338" class="LineNr"> 338 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L339" class="LineNr"> 339 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L340" class="LineNr"> 340 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, color +<span id="L341" class="LineNr"> 341 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *src +<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">return</span> result +<span id="L343" class="LineNr"> 343 </span><span class="Delimiter">}</span> +<span id="L344" class="LineNr"> 344 </span> +<span id="L345" class="LineNr"> 345 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L345'>screen-background-color-at</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L347" class="LineNr"> 347 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col +<span id="L348" class="LineNr"> 348 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L352'>screen-background-color-at-idx</a> screen-addr, idx +<span id="L349" class="LineNr"> 349 </span> <span class="PreProc">return</span> result +<span id="L350" class="LineNr"> 350 </span><span class="Delimiter">}</span> +<span id="L351" class="LineNr"> 351 </span> +<span id="L352" class="LineNr"> 352 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L352'>screen-background-color-at-idx</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L353" class="LineNr"> 353 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L354" class="LineNr"> 354 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L355" class="LineNr"> 355 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L357" class="LineNr"> 357 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L358" class="LineNr"> 358 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L359" class="LineNr"> 359 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, background-color +<span id="L360" class="LineNr"> 360 </span> <span class="PreProc">return</span> *src +<span id="L361" class="LineNr"> 361 </span><span class="Delimiter">}</span> +<span id="L362" class="LineNr"> 362 </span> +<span id="L363" class="LineNr"> 363 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L363'>screen-bold-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L364" class="LineNr"> 364 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L365" class="LineNr"> 365 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col +<span id="L366" class="LineNr"> 366 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L370'>screen-bold-at-idx?</a> screen-addr, idx +<span id="L367" class="LineNr"> 367 </span> <span class="PreProc">return</span> result +<span id="L368" class="LineNr"> 368 </span><span class="Delimiter">}</span> +<span id="L369" class="LineNr"> 369 </span> +<span id="L370" class="LineNr"> 370 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L370'>screen-bold-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L372" class="LineNr"> 372 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L373" class="LineNr"> 373 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L374" class="LineNr"> 374 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L375" class="LineNr"> 375 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L376" class="LineNr"> 376 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L377" class="LineNr"> 377 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, bold? +<span id="L378" class="LineNr"> 378 </span> <span class="PreProc">return</span> *src +<span id="L379" class="LineNr"> 379 </span><span class="Delimiter">}</span> +<span id="L380" class="LineNr"> 380 </span> +<span id="L381" class="LineNr"> 381 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L381'>screen-underline-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L382" class="LineNr"> 382 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L383" class="LineNr"> 383 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col +<span id="L384" class="LineNr"> 384 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L388'>screen-underline-at-idx?</a> screen-addr, idx +<span id="L385" class="LineNr"> 385 </span> <span class="PreProc">return</span> result +<span id="L386" class="LineNr"> 386 </span><span class="Delimiter">}</span> +<span id="L387" class="LineNr"> 387 </span> +<span id="L388" class="LineNr"> 388 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L388'>screen-underline-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L389" class="LineNr"> 389 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L390" class="LineNr"> 390 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L391" class="LineNr"> 391 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L392" class="LineNr"> 392 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L393" class="LineNr"> 393 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L394" class="LineNr"> 394 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L395" class="LineNr"> 395 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, underline? +<span id="L396" class="LineNr"> 396 </span> <span class="PreProc">return</span> *src +<span id="L397" class="LineNr"> 397 </span><span class="Delimiter">}</span> +<span id="L398" class="LineNr"> 398 </span> +<span id="L399" class="LineNr"> 399 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L399'>screen-reverse-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L400" class="LineNr"> 400 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L401" class="LineNr"> 401 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col +<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L406'>screen-reverse-at-idx?</a> screen-addr, idx +<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">return</span> result +<span id="L404" class="LineNr"> 404 </span><span class="Delimiter">}</span> +<span id="L405" class="LineNr"> 405 </span> +<span id="L406" class="LineNr"> 406 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L406'>screen-reverse-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L407" class="LineNr"> 407 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L408" class="LineNr"> 408 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L409" class="LineNr"> 409 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L410" class="LineNr"> 410 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L411" class="LineNr"> 411 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L412" class="LineNr"> 412 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, reverse? +<span id="L414" class="LineNr"> 414 </span> <span class="PreProc">return</span> *src +<span id="L415" class="LineNr"> 415 </span><span class="Delimiter">}</span> +<span id="L416" class="LineNr"> 416 </span> +<span id="L417" class="LineNr"> 417 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L417'>screen-blink-at?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L419" class="LineNr"> 419 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> screen-addr, row, col +<span id="L420" class="LineNr"> 420 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L424'>screen-blink-at-idx?</a> screen-addr, idx +<span id="L421" class="LineNr"> 421 </span> <span class="PreProc">return</span> result +<span id="L422" class="LineNr"> 422 </span><span class="Delimiter">}</span> +<span id="L423" class="LineNr"> 423 </span> +<span id="L424" class="LineNr"> 424 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L424'>screen-blink-at-idx?</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), idx-on-stack: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L425" class="LineNr"> 425 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L426" class="LineNr"> 426 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, data +<span id="L427" class="LineNr"> 427 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L428" class="LineNr"> 428 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy idx-on-stack +<span id="L429" class="LineNr"> 429 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data, idx +<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">var</span> cell/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data, offset +<span id="L431" class="LineNr"> 431 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> cell, blink? +<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">return</span> *src +<span id="L433" class="LineNr"> 433 </span><span class="Delimiter">}</span> +<span id="L434" class="LineNr"> 434 </span> +<span id="L435" class="LineNr"> 435 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L435'>print-code-point</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), c: code-point <span class="Delimiter">{</span> +<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L22'>to-grapheme</a> c +<span id="L437" class="LineNr"> 437 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L438" class="LineNr"> 438 </span><span class="Delimiter">}</span> +<span id="L439" class="LineNr"> 439 </span> +<span id="L440" class="LineNr"> 440 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L440'>print-int32-hex</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int <span class="Delimiter">{</span> +<span id="L441" class="LineNr"> 441 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L442" class="LineNr"> 442 </span> <span class="Delimiter">{</span> +<span id="L443" class="LineNr"> 443 </span> <span class="PreProc">break-if-!=</span> +<span id="L444" class="LineNr"> 444 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> n +<span id="L445" class="LineNr"> 445 </span> <span class="PreProc">return</span> +<span id="L446" class="LineNr"> 446 </span> <span class="Delimiter">}</span> +<span id="L447" class="LineNr"> 447 </span> <span class="muComment"># fake screen</span> +<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) +<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s2 +<span id="L450" class="LineNr"> 450 </span> <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> s2-addr, n +<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L452" class="LineNr"> 452 </span> <span class="Delimiter">{</span> +<span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr +<span id="L454" class="LineNr"> 454 </span> compare done?, <span class="Constant">0</span> +<span id="L455" class="LineNr"> 455 </span> <span class="PreProc">break-if-!=</span> +<span id="L456" class="LineNr"> 456 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr +<span id="L457" class="LineNr"> 457 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L458" class="LineNr"> 458 </span> <span class="PreProc">loop</span> +<span id="L459" class="LineNr"> 459 </span> <span class="Delimiter">}</span> +<span id="L460" class="LineNr"> 460 </span><span class="Delimiter">}</span> +<span id="L461" class="LineNr"> 461 </span> +<span id="L462" class="LineNr"> 462 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L462'>print-int32-hex-bits</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int, bits: int <span class="Delimiter">{</span> +<span id="L463" class="LineNr"> 463 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L464" class="LineNr"> 464 </span> <span class="Delimiter">{</span> +<span id="L465" class="LineNr"> 465 </span> <span class="PreProc">break-if-!=</span> +<span id="L466" class="LineNr"> 466 </span> <a href='304screen.subx.html#L239'>print-int32-hex-bits-to-real-screen</a> n, bits +<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">return</span> +<span id="L468" class="LineNr"> 468 </span> <span class="Delimiter">}</span> +<span id="L469" class="LineNr"> 469 </span> <span class="muComment"># fake screen</span> +<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) +<span id="L471" class="LineNr"> 471 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s2 +<span id="L472" class="LineNr"> 472 </span> <a href='117write-int-hex.subx.html#L209'>write-int32-hex-bits</a> s2-addr, n, bits +<span id="L473" class="LineNr"> 473 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L474" class="LineNr"> 474 </span> <span class="Delimiter">{</span> +<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr +<span id="L476" class="LineNr"> 476 </span> compare done?, <span class="Constant">0</span> +<span id="L477" class="LineNr"> 477 </span> <span class="PreProc">break-if-!=</span> +<span id="L478" class="LineNr"> 478 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr +<span id="L479" class="LineNr"> 479 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L480" class="LineNr"> 480 </span> <span class="PreProc">loop</span> +<span id="L481" class="LineNr"> 481 </span> <span class="Delimiter">}</span> +<span id="L482" class="LineNr"> 482 </span><span class="Delimiter">}</span> +<span id="L483" class="LineNr"> 483 </span> +<span id="L484" class="LineNr"> 484 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L484'>print-int32-decimal</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int <span class="Delimiter">{</span> +<span id="L485" class="LineNr"> 485 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L486" class="LineNr"> 486 </span> <span class="Delimiter">{</span> +<span id="L487" class="LineNr"> 487 </span> <span class="PreProc">break-if-!=</span> +<span id="L488" class="LineNr"> 488 </span> <a href='304screen.subx.html#L252'>print-int32-decimal-to-real-screen</a> n +<span id="L489" class="LineNr"> 489 </span> <span class="PreProc">return</span> +<span id="L490" class="LineNr"> 490 </span> <span class="Delimiter">}</span> +<span id="L491" class="LineNr"> 491 </span> <span class="muComment"># fake screen</span> +<span id="L492" class="LineNr"> 492 </span> <span class="PreProc">var</span> s2: (stream byte <span class="Constant">0x100</span>) +<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">var</span> s2-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s2 +<span id="L494" class="LineNr"> 494 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> s2-addr, n +<span id="L495" class="LineNr"> 495 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L496" class="LineNr"> 496 </span> <span class="Delimiter">{</span> +<span id="L497" class="LineNr"> 497 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> s2-addr +<span id="L498" class="LineNr"> 498 </span> compare done?, <span class="Constant">0</span> +<span id="L499" class="LineNr"> 499 </span> <span class="PreProc">break-if-!=</span> +<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> s2-addr +<span id="L501" class="LineNr"> 501 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, g +<span id="L502" class="LineNr"> 502 </span> <span class="PreProc">loop</span> +<span id="L503" class="LineNr"> 503 </span> <span class="Delimiter">}</span> +<span id="L504" class="LineNr"> 504 </span><span class="Delimiter">}</span> +<span id="L505" class="LineNr"> 505 </span> +<span id="L506" class="LineNr"> 506 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L506'>reset-formatting</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L507" class="LineNr"> 507 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L508" class="LineNr"> 508 </span> <span class="Delimiter">{</span> +<span id="L509" class="LineNr"> 509 </span> <span class="PreProc">break-if-!=</span> +<span id="L510" class="LineNr"> 510 </span> <a href='304screen.subx.html#L289'>reset-formatting-on-real-screen</a> +<span id="L511" class="LineNr"> 511 </span> <span class="PreProc">return</span> +<span id="L512" class="LineNr"> 512 </span> <span class="Delimiter">}</span> +<span id="L513" class="LineNr"> 513 </span> <span class="muComment"># fake screen</span> +<span id="L514" class="LineNr"> 514 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L515" class="LineNr"> 515 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L516" class="LineNr"> 516 </span> <span class="PreProc">var</span> default-cell: <a href='405screen.mu.html#L20'>screen-cell</a> +<span id="L517" class="LineNr"> 517 </span> <span class="PreProc">var</span> bg/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> default-cell, background-color +<span id="L518" class="LineNr"> 518 </span> copy-to *bg, <span class="Constant">7</span> +<span id="L519" class="LineNr"> 519 </span> <span class="PreProc">var</span> default-cell-addr/<span class="Constant">eax</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> address default-cell +<span id="L520" class="LineNr"> 520 </span> copy-object default-cell-addr, dest +<span id="L521" class="LineNr"> 521 </span><span class="Delimiter">}</span> +<span id="L522" class="LineNr"> 522 </span> +<span id="L523" class="LineNr"> 523 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L523'>start-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, bg: int <span class="Delimiter">{</span> +<span id="L524" class="LineNr"> 524 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L525" class="LineNr"> 525 </span> <span class="Delimiter">{</span> +<span id="L526" class="LineNr"> 526 </span> <span class="PreProc">break-if-!=</span> +<span id="L527" class="LineNr"> 527 </span> <a href='304screen.subx.html#L304'>start-color-on-real-screen</a> fg, bg +<span id="L528" class="LineNr"> 528 </span> <span class="PreProc">return</span> +<span id="L529" class="LineNr"> 529 </span> <span class="Delimiter">}</span> +<span id="L530" class="LineNr"> 530 </span> <span class="muComment"># fake screen</span> +<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L532" class="LineNr"> 532 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L533" class="LineNr"> 533 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> attr, color +<span id="L534" class="LineNr"> 534 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy fg +<span id="L535" class="LineNr"> 535 </span> copy-to *dest, src +<span id="L536" class="LineNr"> 536 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> attr, background-color +<span id="L537" class="LineNr"> 537 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy bg +<span id="L538" class="LineNr"> 538 </span> copy-to *dest, src +<span id="L539" class="LineNr"> 539 </span><span class="Delimiter">}</span> +<span id="L540" class="LineNr"> 540 </span> +<span id="L541" class="LineNr"> 541 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L541'>start-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L542" class="LineNr"> 542 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L543" class="LineNr"> 543 </span> <span class="Delimiter">{</span> +<span id="L544" class="LineNr"> 544 </span> <span class="PreProc">break-if-!=</span> +<span id="L545" class="LineNr"> 545 </span> <a href='304screen.subx.html#L339'>start-bold-on-real-screen</a> +<span id="L546" class="LineNr"> 546 </span> <span class="PreProc">return</span> +<span id="L547" class="LineNr"> 547 </span> <span class="Delimiter">}</span> +<span id="L548" class="LineNr"> 548 </span> <span class="muComment"># fake screen</span> +<span id="L549" class="LineNr"> 549 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L551" class="LineNr"> 551 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> attr, bold? +<span id="L552" class="LineNr"> 552 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L553" class="LineNr"> 553 </span><span class="Delimiter">}</span> +<span id="L554" class="LineNr"> 554 </span> +<span id="L555" class="LineNr"> 555 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L555'>start-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L556" class="LineNr"> 556 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L557" class="LineNr"> 557 </span> <span class="Delimiter">{</span> +<span id="L558" class="LineNr"> 558 </span> <span class="PreProc">break-if-!=</span> +<span id="L559" class="LineNr"> 559 </span> <a href='304screen.subx.html#L352'>start-underline-on-real-screen</a> +<span id="L560" class="LineNr"> 560 </span> <span class="PreProc">return</span> +<span id="L561" class="LineNr"> 561 </span> <span class="Delimiter">}</span> +<span id="L562" class="LineNr"> 562 </span> <span class="muComment"># fake screen</span> +<span id="L563" class="LineNr"> 563 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L564" class="LineNr"> 564 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> attr, underline? +<span id="L566" class="LineNr"> 566 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L567" class="LineNr"> 567 </span><span class="Delimiter">}</span> +<span id="L568" class="LineNr"> 568 </span> +<span id="L569" class="LineNr"> 569 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L569'>start-reverse-video</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L570" class="LineNr"> 570 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L571" class="LineNr"> 571 </span> <span class="Delimiter">{</span> +<span id="L572" class="LineNr"> 572 </span> <span class="PreProc">break-if-!=</span> +<span id="L573" class="LineNr"> 573 </span> <a href='304screen.subx.html#L365'>start-reverse-video-on-real-screen</a> +<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">return</span> +<span id="L575" class="LineNr"> 575 </span> <span class="Delimiter">}</span> +<span id="L576" class="LineNr"> 576 </span> <span class="muComment"># fake screen</span> +<span id="L577" class="LineNr"> 577 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L578" class="LineNr"> 578 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L579" class="LineNr"> 579 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> attr, reverse? +<span id="L580" class="LineNr"> 580 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L581" class="LineNr"> 581 </span><span class="Delimiter">}</span> +<span id="L582" class="LineNr"> 582 </span> +<span id="L583" class="LineNr"> 583 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L583'>start-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L584" class="LineNr"> 584 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L585" class="LineNr"> 585 </span> <span class="Delimiter">{</span> +<span id="L586" class="LineNr"> 586 </span> <span class="PreProc">break-if-!=</span> +<span id="L587" class="LineNr"> 587 </span> <a href='304screen.subx.html#L379'>start-blinking-on-real-screen</a> +<span id="L588" class="LineNr"> 588 </span> <span class="PreProc">return</span> +<span id="L589" class="LineNr"> 589 </span> <span class="Delimiter">}</span> +<span id="L590" class="LineNr"> 590 </span> <span class="muComment"># fake screen</span> +<span id="L591" class="LineNr"> 591 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L592" class="LineNr"> 592 </span> <span class="PreProc">var</span> attr/<span class="Constant">ecx</span>: (addr <a href='405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, curr-attributes +<span id="L593" class="LineNr"> 593 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> attr, blink? +<span id="L594" class="LineNr"> 594 </span> copy-to *dest, <span class="Constant">1</span> +<span id="L595" class="LineNr"> 595 </span><span class="Delimiter">}</span> +<span id="L596" class="LineNr"> 596 </span> +<span id="L597" class="LineNr"> 597 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L597'>hide-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L598" class="LineNr"> 598 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L599" class="LineNr"> 599 </span> <span class="Delimiter">{</span> +<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">break-if-!=</span> +<span id="L601" class="LineNr"> 601 </span> <a href='304screen.subx.html#L392'>hide-cursor-on-real-screen</a> +<span id="L602" class="LineNr"> 602 </span> <span class="PreProc">return</span> +<span id="L603" class="LineNr"> 603 </span> <span class="Delimiter">}</span> +<span id="L604" class="LineNr"> 604 </span> <span class="muComment"># fake screen</span> +<span id="L605" class="LineNr"> 605 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L606" class="LineNr"> 606 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? +<span id="L607" class="LineNr"> 607 </span> copy-to *hide?, <span class="Constant">1</span> +<span id="L608" class="LineNr"> 608 </span><span class="Delimiter">}</span> +<span id="L609" class="LineNr"> 609 </span> +<span id="L610" class="LineNr"> 610 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L610'>show-cursor</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L611" class="LineNr"> 611 </span> compare <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L612" class="LineNr"> 612 </span> <span class="Delimiter">{</span> +<span id="L613" class="LineNr"> 613 </span> <span class="PreProc">break-if-!=</span> +<span id="L614" class="LineNr"> 614 </span> <a href='304screen.subx.html#L405'>show-cursor-on-real-screen</a> +<span id="L615" class="LineNr"> 615 </span> <span class="PreProc">return</span> +<span id="L616" class="LineNr"> 616 </span> <span class="Delimiter">}</span> +<span id="L617" class="LineNr"> 617 </span> <span class="muComment"># fake screen</span> +<span id="L618" class="LineNr"> 618 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy <a href='405screen.mu.html#L9'>screen</a> +<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">var</span> hide?/<span class="Constant">ecx</span>: (addr boolean) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> screen-addr, cursor-hide? +<span id="L620" class="LineNr"> 620 </span> copy-to *hide?, <span class="Constant">0</span> +<span id="L621" class="LineNr"> 621 </span><span class="Delimiter">}</span> +<span id="L622" class="LineNr"> 622 </span> +<span id="L623" class="LineNr"> 623 </span><span class="muComment"># validate data on screen regardless of attributes (color, bold, etc.)</span> +<span id="L624" class="LineNr"> 624 </span><span class="muComment"># Mu doesn't have multi-line strings, so we provide functions for rows or portions of rows.</span> +<span id="L625" class="LineNr"> 625 </span><span class="muComment"># Tab characters (that translate into multiple screen cells) not supported.</span> +<span id="L626" class="LineNr"> 626 </span> +<span id="L627" class="LineNr"> 627 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L627'>check-screen-row</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L628" class="LineNr"> 628 </span> <a href='405screen.mu.html#L631'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L629" class="LineNr"> 629 </span><span class="Delimiter">}</span> +<span id="L630" class="LineNr"> 630 </span> +<span id="L631" class="LineNr"> 631 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L631'>check-screen-row-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L632" class="LineNr"> 632 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L633" class="LineNr"> 633 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L634" class="LineNr"> 634 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L635" class="LineNr"> 635 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L636" class="LineNr"> 636 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L637" class="LineNr"> 637 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L638" class="LineNr"> 638 </span> <span class="Delimiter">{</span> +<span id="L639" class="LineNr"> 639 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L640" class="LineNr"> 640 </span> compare done?, <span class="Constant">0</span> +<span id="L641" class="LineNr"> 641 </span> <span class="PreProc">break-if-!=</span> +<span id="L642" class="LineNr"> 642 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L643" class="LineNr"> 643 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L644" class="LineNr"> 644 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr +<span id="L645" class="LineNr"> 645 </span> <span class="muComment"># compare graphemes</span> +<span id="L646" class="LineNr"> 646 </span> $check-screen-row-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L647" class="LineNr"> 647 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L648" class="LineNr"> 648 </span> <span class="Delimiter">{</span> +<span id="L649" class="LineNr"> 649 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L650" class="LineNr"> 650 </span> <span class="PreProc">break-if-!=</span> +<span id="L651" class="LineNr"> 651 </span> compare g, <span class="Constant">0</span> +<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">break-if-=</span> $check-screen-row-from:compare-graphemes +<span id="L653" class="LineNr"> 653 </span> <span class="Delimiter">}</span> +<span id="L654" class="LineNr"> 654 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L655" class="LineNr"> 655 </span> compare g, expected-grapheme +<span id="L656" class="LineNr"> 656 </span> <span class="Delimiter">{</span> +<span id="L657" class="LineNr"> 657 </span> <span class="PreProc">break-if-!=</span> +<span id="L658" class="LineNr"> 658 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L659" class="LineNr"> 659 </span> <span class="PreProc">break</span> $check-screen-row-from:compare-graphemes +<span id="L660" class="LineNr"> 660 </span> <span class="Delimiter">}</span> +<span id="L661" class="LineNr"> 661 </span> <span class="muComment"># otherwise print an error</span> +<span id="L662" class="LineNr"> 662 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L663" class="LineNr"> 663 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L664" class="LineNr"> 664 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L665" class="LineNr"> 665 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L666" class="LineNr"> 666 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L667" class="LineNr"> 667 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L668" class="LineNr"> 668 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L669" class="LineNr"> 669 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L670" class="LineNr"> 670 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L671" class="LineNr"> 671 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L672" class="LineNr"> 672 </span> <span class="Delimiter">}</span> +<span id="L673" class="LineNr"> 673 </span> idx <span class="Special"><-</span> increment +<span id="L674" class="LineNr"> 674 </span> increment col-idx +<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">loop</span> +<span id="L676" class="LineNr"> 676 </span> <span class="Delimiter">}</span> +<span id="L677" class="LineNr"> 677 </span><span class="Delimiter">}</span> +<span id="L678" class="LineNr"> 678 </span> +<span id="L679" class="LineNr"> 679 </span><span class="muComment"># various variants by screen-cell attribute; spaces in the 'expected' data should not match the attribute</span> +<span id="L680" class="LineNr"> 680 </span> +<span id="L681" class="LineNr"> 681 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L681'>check-screen-row-in-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L682" class="LineNr"> 682 </span> <a href='405screen.mu.html#L685'>check-screen-row-in-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, fg, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L683" class="LineNr"> 683 </span><span class="Delimiter">}</span> +<span id="L684" class="LineNr"> 684 </span> +<span id="L685" class="LineNr"> 685 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L685'>check-screen-row-in-color-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), fg: int, row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L686" class="LineNr"> 686 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L687" class="LineNr"> 687 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L688" class="LineNr"> 688 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L689" class="LineNr"> 689 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L690" class="LineNr"> 690 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L691" class="LineNr"> 691 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L692" class="LineNr"> 692 </span> <span class="Delimiter">{</span> +<span id="L693" class="LineNr"> 693 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L694" class="LineNr"> 694 </span> compare done?, <span class="Constant">0</span> +<span id="L695" class="LineNr"> 695 </span> <span class="PreProc">break-if-!=</span> +<span id="L696" class="LineNr"> 696 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L698" class="LineNr"> 698 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edi</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L700" class="LineNr"> 700 </span> $check-screen-row-in-color-from:compare-cells: <span class="Delimiter">{</span> +<span id="L701" class="LineNr"> 701 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L702" class="LineNr"> 702 </span> <span class="Delimiter">{</span> +<span id="L703" class="LineNr"> 703 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L704" class="LineNr"> 704 </span> <span class="PreProc">break-if-!=</span> +<span id="L705" class="LineNr"> 705 </span> compare g, <span class="Constant">0</span> +<span id="L706" class="LineNr"> 706 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-color-from:compare-cells +<span id="L707" class="LineNr"> 707 </span> <span class="Delimiter">}</span> +<span id="L708" class="LineNr"> 708 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> +<span id="L709" class="LineNr"> 709 </span> <span class="Delimiter">{</span> +<span id="L710" class="LineNr"> 710 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L711" class="LineNr"> 711 </span> <span class="PreProc">break-if-!=</span> +<span id="L712" class="LineNr"> 712 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L333'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L713" class="LineNr"> 713 </span> compare color, fg +<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-color-from:compare-cells +<span id="L715" class="LineNr"> 715 </span> <span class="Delimiter">}</span> +<span id="L716" class="LineNr"> 716 </span> <span class="muComment"># compare graphemes</span> +<span id="L717" class="LineNr"> 717 </span> $check-screen-row-in-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L718" class="LineNr"> 718 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L719" class="LineNr"> 719 </span> compare g, expected-grapheme +<span id="L720" class="LineNr"> 720 </span> <span class="Delimiter">{</span> +<span id="L721" class="LineNr"> 721 </span> <span class="PreProc">break-if-!=</span> +<span id="L722" class="LineNr"> 722 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-graphemes +<span id="L724" class="LineNr"> 724 </span> <span class="Delimiter">}</span> +<span id="L725" class="LineNr"> 725 </span> <span class="muComment"># otherwise print an error</span> +<span id="L726" class="LineNr"> 726 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L727" class="LineNr"> 727 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L728" class="LineNr"> 728 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L729" class="LineNr"> 729 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L730" class="LineNr"> 730 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L731" class="LineNr"> 731 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L732" class="LineNr"> 732 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L733" class="LineNr"> 733 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L734" class="LineNr"> 734 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L735" class="LineNr"> 735 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L736" class="LineNr"> 736 </span> <span class="Delimiter">}</span> +<span id="L737" class="LineNr"> 737 </span> $check-screen-row-in-color-from:compare-colors: <span class="Delimiter">{</span> +<span id="L738" class="LineNr"> 738 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L333'>screen-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L739" class="LineNr"> 739 </span> compare fg, color +<span id="L740" class="LineNr"> 740 </span> <span class="Delimiter">{</span> +<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">break-if-!=</span> +<span id="L742" class="LineNr"> 742 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L743" class="LineNr"> 743 </span> <span class="PreProc">break</span> $check-screen-row-in-color-from:compare-colors +<span id="L744" class="LineNr"> 744 </span> <span class="Delimiter">}</span> +<span id="L745" class="LineNr"> 745 </span> <span class="muComment"># otherwise print an error</span> +<span id="L746" class="LineNr"> 746 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L747" class="LineNr"> 747 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L748" class="LineNr"> 748 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L749" class="LineNr"> 749 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L750" class="LineNr"> 750 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L751" class="LineNr"> 751 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L752" class="LineNr"> 752 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L753" class="LineNr"> 753 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in color "</span> +<span id="L754" class="LineNr"> 754 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> fg +<span id="L755" class="LineNr"> 755 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> +<span id="L756" class="LineNr"> 756 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> color +<span id="L757" class="LineNr"> 757 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L758" class="LineNr"> 758 </span> <span class="Delimiter">}</span> +<span id="L759" class="LineNr"> 759 </span> <span class="Delimiter">}</span> +<span id="L760" class="LineNr"> 760 </span> idx <span class="Special"><-</span> increment +<span id="L761" class="LineNr"> 761 </span> increment col-idx +<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">loop</span> +<span id="L763" class="LineNr"> 763 </span> <span class="Delimiter">}</span> +<span id="L764" class="LineNr"> 764 </span><span class="Delimiter">}</span> +<span id="L765" class="LineNr"> 765 </span> +<span id="L766" class="LineNr"> 766 </span><span class="muComment"># background color is visible even for spaces, so 'expected' behaves as an array of booleans.</span> +<span id="L767" class="LineNr"> 767 </span><span class="muComment"># non-space = given background must match; space = background must not match</span> +<span id="L768" class="LineNr"> 768 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L768'>check-screen-row-in-background-color</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), bg: int, row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L769" class="LineNr"> 769 </span> <a href='405screen.mu.html#L772'>check-screen-row-in-background-color-from</a> <a href='405screen.mu.html#L9'>screen</a>, bg, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L770" class="LineNr"> 770 </span><span class="Delimiter">}</span> +<span id="L771" class="LineNr"> 771 </span> +<span id="L772" class="LineNr"> 772 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L772'>check-screen-row-in-background-color-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), bg: int, row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L773" class="LineNr"> 773 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L774" class="LineNr"> 774 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L775" class="LineNr"> 775 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L778" class="LineNr"> 778 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L779" class="LineNr"> 779 </span> <span class="Delimiter">{</span> +<span id="L780" class="LineNr"> 780 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L781" class="LineNr"> 781 </span> compare done?, <span class="Constant">0</span> +<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">break-if-!=</span> +<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L784" class="LineNr"> 784 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L787" class="LineNr"> 787 </span> $check-screen-row-in-background-color-from:compare-cells: <span class="Delimiter">{</span> +<span id="L788" class="LineNr"> 788 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L789" class="LineNr"> 789 </span> <span class="Delimiter">{</span> +<span id="L790" class="LineNr"> 790 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L791" class="LineNr"> 791 </span> <span class="PreProc">break-if-!=</span> +<span id="L792" class="LineNr"> 792 </span> compare g, <span class="Constant">0</span> +<span id="L793" class="LineNr"> 793 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-background-color-from:compare-cells +<span id="L794" class="LineNr"> 794 </span> <span class="Delimiter">}</span> +<span id="L795" class="LineNr"> 795 </span> <span class="muComment"># if expected-grapheme is space, a different color is ok</span> +<span id="L796" class="LineNr"> 796 </span> <span class="Delimiter">{</span> +<span id="L797" class="LineNr"> 797 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L798" class="LineNr"> 798 </span> <span class="PreProc">break-if-!=</span> +<span id="L799" class="LineNr"> 799 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L352'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L800" class="LineNr"> 800 </span> compare color, bg +<span id="L801" class="LineNr"> 801 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-background-color-from:compare-cells +<span id="L802" class="LineNr"> 802 </span> <span class="Delimiter">}</span> +<span id="L803" class="LineNr"> 803 </span> <span class="muComment"># compare graphemes</span> +<span id="L804" class="LineNr"> 804 </span> $check-screen-row-in-background-color-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L805" class="LineNr"> 805 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L806" class="LineNr"> 806 </span> compare g, expected-grapheme +<span id="L807" class="LineNr"> 807 </span> <span class="Delimiter">{</span> +<span id="L808" class="LineNr"> 808 </span> <span class="PreProc">break-if-!=</span> +<span id="L809" class="LineNr"> 809 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-graphemes +<span id="L811" class="LineNr"> 811 </span> <span class="Delimiter">}</span> +<span id="L812" class="LineNr"> 812 </span> <span class="muComment"># otherwise print an error</span> +<span id="L813" class="LineNr"> 813 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L814" class="LineNr"> 814 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L815" class="LineNr"> 815 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L816" class="LineNr"> 816 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L817" class="LineNr"> 817 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L818" class="LineNr"> 818 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L819" class="LineNr"> 819 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L820" class="LineNr"> 820 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L821" class="LineNr"> 821 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L822" class="LineNr"> 822 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L823" class="LineNr"> 823 </span> <span class="Delimiter">}</span> +<span id="L824" class="LineNr"> 824 </span> $check-screen-row-in-background-color-from:compare-colors: <span class="Delimiter">{</span> +<span id="L825" class="LineNr"> 825 </span> <span class="PreProc">var</span> color/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L352'>screen-background-color-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L826" class="LineNr"> 826 </span> compare bg, color +<span id="L827" class="LineNr"> 827 </span> <span class="Delimiter">{</span> +<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">break-if-!=</span> +<span id="L829" class="LineNr"> 829 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L830" class="LineNr"> 830 </span> <span class="PreProc">break</span> $check-screen-row-in-background-color-from:compare-colors +<span id="L831" class="LineNr"> 831 </span> <span class="Delimiter">}</span> +<span id="L832" class="LineNr"> 832 </span> <span class="muComment"># otherwise print an error</span> +<span id="L833" class="LineNr"> 833 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L834" class="LineNr"> 834 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L835" class="LineNr"> 835 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L836" class="LineNr"> 836 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L837" class="LineNr"> 837 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L838" class="LineNr"> 838 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L839" class="LineNr"> 839 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L840" class="LineNr"> 840 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") in background color "</span> +<span id="L841" class="LineNr"> 841 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> bg +<span id="L842" class="LineNr"> 842 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" but observed color "</span> +<span id="L843" class="LineNr"> 843 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> color +<span id="L844" class="LineNr"> 844 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"\n"</span> +<span id="L845" class="LineNr"> 845 </span> <span class="Delimiter">}</span> +<span id="L846" class="LineNr"> 846 </span> <span class="Delimiter">}</span> +<span id="L847" class="LineNr"> 847 </span> idx <span class="Special"><-</span> increment +<span id="L848" class="LineNr"> 848 </span> increment col-idx +<span id="L849" class="LineNr"> 849 </span> <span class="PreProc">loop</span> +<span id="L850" class="LineNr"> 850 </span> <span class="Delimiter">}</span> +<span id="L851" class="LineNr"> 851 </span><span class="Delimiter">}</span> +<span id="L852" class="LineNr"> 852 </span> +<span id="L853" class="LineNr"> 853 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L853'>check-screen-row-in-bold</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L854" class="LineNr"> 854 </span> <a href='405screen.mu.html#L857'>check-screen-row-in-bold-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L855" class="LineNr"> 855 </span><span class="Delimiter">}</span> +<span id="L856" class="LineNr"> 856 </span> +<span id="L857" class="LineNr"> 857 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L857'>check-screen-row-in-bold-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L858" class="LineNr"> 858 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L859" class="LineNr"> 859 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L860" class="LineNr"> 860 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L861" class="LineNr"> 861 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L862" class="LineNr"> 862 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L863" class="LineNr"> 863 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L864" class="LineNr"> 864 </span> <span class="Delimiter">{</span> +<span id="L865" class="LineNr"> 865 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L866" class="LineNr"> 866 </span> compare done?, <span class="Constant">0</span> +<span id="L867" class="LineNr"> 867 </span> <span class="PreProc">break-if-!=</span> +<span id="L868" class="LineNr"> 868 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L869" class="LineNr"> 869 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L870" class="LineNr"> 870 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr +<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L872" class="LineNr"> 872 </span> $check-screen-row-in-bold-from:compare-cells: <span class="Delimiter">{</span> +<span id="L873" class="LineNr"> 873 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L874" class="LineNr"> 874 </span> <span class="Delimiter">{</span> +<span id="L875" class="LineNr"> 875 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L876" class="LineNr"> 876 </span> <span class="PreProc">break-if-!=</span> +<span id="L877" class="LineNr"> 877 </span> compare g, <span class="Constant">0</span> +<span id="L878" class="LineNr"> 878 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-bold-from:compare-cells +<span id="L879" class="LineNr"> 879 </span> <span class="Delimiter">}</span> +<span id="L880" class="LineNr"> 880 </span> <span class="muComment"># if expected-grapheme is space, non-bold is ok</span> +<span id="L881" class="LineNr"> 881 </span> <span class="Delimiter">{</span> +<span id="L882" class="LineNr"> 882 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L883" class="LineNr"> 883 </span> <span class="PreProc">break-if-!=</span> +<span id="L884" class="LineNr"> 884 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L370'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L885" class="LineNr"> 885 </span> compare bold?, <span class="Constant">1</span> +<span id="L886" class="LineNr"> 886 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-bold-from:compare-cells +<span id="L887" class="LineNr"> 887 </span> <span class="Delimiter">}</span> +<span id="L888" class="LineNr"> 888 </span> <span class="muComment"># compare graphemes</span> +<span id="L889" class="LineNr"> 889 </span> $check-screen-row-in-bold-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L890" class="LineNr"> 890 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L891" class="LineNr"> 891 </span> compare g, expected-grapheme +<span id="L892" class="LineNr"> 892 </span> <span class="Delimiter">{</span> +<span id="L893" class="LineNr"> 893 </span> <span class="PreProc">break-if-!=</span> +<span id="L894" class="LineNr"> 894 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L895" class="LineNr"> 895 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-graphemes +<span id="L896" class="LineNr"> 896 </span> <span class="Delimiter">}</span> +<span id="L897" class="LineNr"> 897 </span> <span class="muComment"># otherwise print an error</span> +<span id="L898" class="LineNr"> 898 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L899" class="LineNr"> 899 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L900" class="LineNr"> 900 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L901" class="LineNr"> 901 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L902" class="LineNr"> 902 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L903" class="LineNr"> 903 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L904" class="LineNr"> 904 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L905" class="LineNr"> 905 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L906" class="LineNr"> 906 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L907" class="LineNr"> 907 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L908" class="LineNr"> 908 </span> <span class="Delimiter">}</span> +<span id="L909" class="LineNr"> 909 </span> $check-screen-row-in-bold-from:compare-bold: <span class="Delimiter">{</span> +<span id="L910" class="LineNr"> 910 </span> <span class="PreProc">var</span> bold?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L370'>screen-bold-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L911" class="LineNr"> 911 </span> compare bold?, <span class="Constant">1</span> +<span id="L912" class="LineNr"> 912 </span> <span class="Delimiter">{</span> +<span id="L913" class="LineNr"> 913 </span> <span class="PreProc">break-if-!=</span> +<span id="L914" class="LineNr"> 914 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L915" class="LineNr"> 915 </span> <span class="PreProc">break</span> $check-screen-row-in-bold-from:compare-bold +<span id="L916" class="LineNr"> 916 </span> <span class="Delimiter">}</span> +<span id="L917" class="LineNr"> 917 </span> <span class="muComment"># otherwise print an error</span> +<span id="L918" class="LineNr"> 918 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L919" class="LineNr"> 919 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L920" class="LineNr"> 920 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L921" class="LineNr"> 921 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L922" class="LineNr"> 922 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L923" class="LineNr"> 923 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L924" class="LineNr"> 924 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L925" class="LineNr"> 925 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in bold\n"</span> +<span id="L926" class="LineNr"> 926 </span> <span class="Delimiter">}</span> +<span id="L927" class="LineNr"> 927 </span> <span class="Delimiter">}</span> +<span id="L928" class="LineNr"> 928 </span> idx <span class="Special"><-</span> increment +<span id="L929" class="LineNr"> 929 </span> increment col-idx +<span id="L930" class="LineNr"> 930 </span> <span class="PreProc">loop</span> +<span id="L931" class="LineNr"> 931 </span> <span class="Delimiter">}</span> +<span id="L932" class="LineNr"> 932 </span><span class="Delimiter">}</span> +<span id="L933" class="LineNr"> 933 </span> +<span id="L934" class="LineNr"> 934 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L934'>check-screen-row-in-underline</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L935" class="LineNr"> 935 </span> <a href='405screen.mu.html#L938'>check-screen-row-in-underline-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L936" class="LineNr"> 936 </span><span class="Delimiter">}</span> +<span id="L937" class="LineNr"> 937 </span> +<span id="L938" class="LineNr"> 938 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L938'>check-screen-row-in-underline-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L939" class="LineNr"> 939 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L940" class="LineNr"> 940 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L941" class="LineNr"> 941 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L942" class="LineNr"> 942 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L943" class="LineNr"> 943 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L944" class="LineNr"> 944 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L945" class="LineNr"> 945 </span> <span class="Delimiter">{</span> +<span id="L946" class="LineNr"> 946 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L947" class="LineNr"> 947 </span> compare done?, <span class="Constant">0</span> +<span id="L948" class="LineNr"> 948 </span> <span class="PreProc">break-if-!=</span> +<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L951" class="LineNr"> 951 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr +<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L953" class="LineNr"> 953 </span> $check-screen-row-in-underline-from:compare-cells: <span class="Delimiter">{</span> +<span id="L954" class="LineNr"> 954 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L955" class="LineNr"> 955 </span> <span class="Delimiter">{</span> +<span id="L956" class="LineNr"> 956 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L957" class="LineNr"> 957 </span> <span class="PreProc">break-if-!=</span> +<span id="L958" class="LineNr"> 958 </span> compare g, <span class="Constant">0</span> +<span id="L959" class="LineNr"> 959 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-underline-from:compare-cells +<span id="L960" class="LineNr"> 960 </span> <span class="Delimiter">}</span> +<span id="L961" class="LineNr"> 961 </span> <span class="muComment"># if expected-grapheme is space, non-underline is ok</span> +<span id="L962" class="LineNr"> 962 </span> <span class="Delimiter">{</span> +<span id="L963" class="LineNr"> 963 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L964" class="LineNr"> 964 </span> <span class="PreProc">break-if-!=</span> +<span id="L965" class="LineNr"> 965 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L388'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L966" class="LineNr"> 966 </span> compare underline?, <span class="Constant">1</span> +<span id="L967" class="LineNr"> 967 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-underline-from:compare-cells +<span id="L968" class="LineNr"> 968 </span> <span class="Delimiter">}</span> +<span id="L969" class="LineNr"> 969 </span> <span class="muComment"># compare graphemes</span> +<span id="L970" class="LineNr"> 970 </span> $check-screen-row-in-underline-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L971" class="LineNr"> 971 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L972" class="LineNr"> 972 </span> compare g, expected-grapheme +<span id="L973" class="LineNr"> 973 </span> <span class="Delimiter">{</span> +<span id="L974" class="LineNr"> 974 </span> <span class="PreProc">break-if-!=</span> +<span id="L975" class="LineNr"> 975 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L976" class="LineNr"> 976 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-graphemes +<span id="L977" class="LineNr"> 977 </span> <span class="Delimiter">}</span> +<span id="L978" class="LineNr"> 978 </span> <span class="muComment"># otherwise print an error</span> +<span id="L979" class="LineNr"> 979 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L980" class="LineNr"> 980 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L981" class="LineNr"> 981 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L982" class="LineNr"> 982 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L983" class="LineNr"> 983 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L984" class="LineNr"> 984 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L985" class="LineNr"> 985 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L986" class="LineNr"> 986 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L987" class="LineNr"> 987 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L988" class="LineNr"> 988 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L989" class="LineNr"> 989 </span> <span class="Delimiter">}</span> +<span id="L990" class="LineNr"> 990 </span> $check-screen-row-in-underline-from:compare-underline: <span class="Delimiter">{</span> +<span id="L991" class="LineNr"> 991 </span> <span class="PreProc">var</span> underline?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L388'>screen-underline-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L992" class="LineNr"> 992 </span> compare underline?, <span class="Constant">1</span> +<span id="L993" class="LineNr"> 993 </span> <span class="Delimiter">{</span> +<span id="L994" class="LineNr"> 994 </span> <span class="PreProc">break-if-!=</span> +<span id="L995" class="LineNr"> 995 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L996" class="LineNr"> 996 </span> <span class="PreProc">break</span> $check-screen-row-in-underline-from:compare-underline +<span id="L997" class="LineNr"> 997 </span> <span class="Delimiter">}</span> +<span id="L998" class="LineNr"> 998 </span> <span class="muComment"># otherwise print an error</span> +<span id="L999" class="LineNr"> 999 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1000" class="LineNr">1000 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1001" class="LineNr">1001 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1002" class="LineNr">1002 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1003" class="LineNr">1003 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1004" class="LineNr">1004 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1005" class="LineNr">1005 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1006" class="LineNr">1006 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be underlined\n"</span> +<span id="L1007" class="LineNr">1007 </span> <span class="Delimiter">}</span> +<span id="L1008" class="LineNr">1008 </span> <span class="Delimiter">}</span> +<span id="L1009" class="LineNr">1009 </span> idx <span class="Special"><-</span> increment +<span id="L1010" class="LineNr">1010 </span> increment col-idx +<span id="L1011" class="LineNr">1011 </span> <span class="PreProc">loop</span> +<span id="L1012" class="LineNr">1012 </span> <span class="Delimiter">}</span> +<span id="L1013" class="LineNr">1013 </span><span class="Delimiter">}</span> +<span id="L1014" class="LineNr">1014 </span> +<span id="L1015" class="LineNr">1015 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1015'>check-screen-row-in-reverse</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L1016" class="LineNr">1016 </span> <a href='405screen.mu.html#L1019'>check-screen-row-in-reverse-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L1017" class="LineNr">1017 </span><span class="Delimiter">}</span> +<span id="L1018" class="LineNr">1018 </span> +<span id="L1019" class="LineNr">1019 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1019'>check-screen-row-in-reverse-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L1020" class="LineNr">1020 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L1021" class="LineNr">1021 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L1022" class="LineNr">1022 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L1025" class="LineNr">1025 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L1026" class="LineNr">1026 </span> <span class="Delimiter">{</span> +<span id="L1027" class="LineNr">1027 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L1028" class="LineNr">1028 </span> compare done?, <span class="Constant">0</span> +<span id="L1029" class="LineNr">1029 </span> <span class="PreProc">break-if-!=</span> +<span id="L1030" class="LineNr">1030 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1031" class="LineNr">1031 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L1032" class="LineNr">1032 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr +<span id="L1033" class="LineNr">1033 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L1034" class="LineNr">1034 </span> $check-screen-row-in-reverse-from:compare-cells: <span class="Delimiter">{</span> +<span id="L1035" class="LineNr">1035 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L1036" class="LineNr">1036 </span> <span class="Delimiter">{</span> +<span id="L1037" class="LineNr">1037 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1038" class="LineNr">1038 </span> <span class="PreProc">break-if-!=</span> +<span id="L1039" class="LineNr">1039 </span> compare g, <span class="Constant">0</span> +<span id="L1040" class="LineNr">1040 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-reverse-from:compare-cells +<span id="L1041" class="LineNr">1041 </span> <span class="Delimiter">}</span> +<span id="L1042" class="LineNr">1042 </span> <span class="muComment"># if expected-grapheme is space, non-reverse is ok</span> +<span id="L1043" class="LineNr">1043 </span> <span class="Delimiter">{</span> +<span id="L1044" class="LineNr">1044 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1045" class="LineNr">1045 </span> <span class="PreProc">break-if-!=</span> +<span id="L1046" class="LineNr">1046 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L406'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1047" class="LineNr">1047 </span> compare reverse?, <span class="Constant">1</span> +<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-reverse-from:compare-cells +<span id="L1049" class="LineNr">1049 </span> <span class="Delimiter">}</span> +<span id="L1050" class="LineNr">1050 </span> <span class="muComment"># compare graphemes</span> +<span id="L1051" class="LineNr">1051 </span> $check-screen-row-in-reverse-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L1052" class="LineNr">1052 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L1053" class="LineNr">1053 </span> compare g, expected-grapheme +<span id="L1054" class="LineNr">1054 </span> <span class="Delimiter">{</span> +<span id="L1055" class="LineNr">1055 </span> <span class="PreProc">break-if-!=</span> +<span id="L1056" class="LineNr">1056 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1057" class="LineNr">1057 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-graphemes +<span id="L1058" class="LineNr">1058 </span> <span class="Delimiter">}</span> +<span id="L1059" class="LineNr">1059 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1060" class="LineNr">1060 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1061" class="LineNr">1061 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1062" class="LineNr">1062 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1063" class="LineNr">1063 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1064" class="LineNr">1064 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1065" class="LineNr">1065 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1066" class="LineNr">1066 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1067" class="LineNr">1067 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L1068" class="LineNr">1068 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L1069" class="LineNr">1069 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L1070" class="LineNr">1070 </span> <span class="Delimiter">}</span> +<span id="L1071" class="LineNr">1071 </span> $check-screen-row-in-reverse-from:compare-reverse: <span class="Delimiter">{</span> +<span id="L1072" class="LineNr">1072 </span> <span class="PreProc">var</span> reverse?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L406'>screen-reverse-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1073" class="LineNr">1073 </span> compare reverse?, <span class="Constant">1</span> +<span id="L1074" class="LineNr">1074 </span> <span class="Delimiter">{</span> +<span id="L1075" class="LineNr">1075 </span> <span class="PreProc">break-if-!=</span> +<span id="L1076" class="LineNr">1076 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1077" class="LineNr">1077 </span> <span class="PreProc">break</span> $check-screen-row-in-reverse-from:compare-reverse +<span id="L1078" class="LineNr">1078 </span> <span class="Delimiter">}</span> +<span id="L1079" class="LineNr">1079 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1080" class="LineNr">1080 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1081" class="LineNr">1081 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1082" class="LineNr">1082 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1083" class="LineNr">1083 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1084" class="LineNr">1084 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1085" class="LineNr">1085 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1086" class="LineNr">1086 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1087" class="LineNr">1087 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be in reverse-video\n"</span> +<span id="L1088" class="LineNr">1088 </span> <span class="Delimiter">}</span> +<span id="L1089" class="LineNr">1089 </span> <span class="Delimiter">}</span> +<span id="L1090" class="LineNr">1090 </span> idx <span class="Special"><-</span> increment +<span id="L1091" class="LineNr">1091 </span> increment col-idx +<span id="L1092" class="LineNr">1092 </span> <span class="PreProc">loop</span> +<span id="L1093" class="LineNr">1093 </span> <span class="Delimiter">}</span> +<span id="L1094" class="LineNr">1094 </span><span class="Delimiter">}</span> +<span id="L1095" class="LineNr">1095 </span> +<span id="L1096" class="LineNr">1096 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1096'>check-screen-row-in-blinking</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L1097" class="LineNr">1097 </span> <a href='405screen.mu.html#L1100'>check-screen-row-in-blinking-from</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, <span class="Constant">1</span>, expected, msg +<span id="L1098" class="LineNr">1098 </span><span class="Delimiter">}</span> +<span id="L1099" class="LineNr">1099 </span> +<span id="L1100" class="LineNr">1100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='405screen.mu.html#L1100'>check-screen-row-in-blinking-from</a></span> screen-on-stack: (addr <a href='405screen.mu.html#L9'>screen</a>), row-idx: int, col-idx: int, expected: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L1101" class="LineNr">1101 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy screen-on-stack +<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='405screen.mu.html#L285'>screen-cell-index</a> <a href='405screen.mu.html#L9'>screen</a>, row-idx, col-idx +<span id="L1103" class="LineNr">1103 </span> <span class="muComment"># compare 'expected' with the screen contents starting at 'idx', grapheme by grapheme</span> +<span id="L1104" class="LineNr">1104 </span> <span class="PreProc">var</span> e: (stream byte <span class="Constant">0x100</span>) +<span id="L1105" class="LineNr">1105 </span> <span class="PreProc">var</span> e-addr/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address e +<span id="L1106" class="LineNr">1106 </span> <a href='108write.subx.html#L24'>write</a> e-addr, expected +<span id="L1107" class="LineNr">1107 </span> <span class="Delimiter">{</span> +<span id="L1108" class="LineNr">1108 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> e-addr +<span id="L1109" class="LineNr">1109 </span> compare done?, <span class="Constant">0</span> +<span id="L1110" class="LineNr">1110 </span> <span class="PreProc">break-if-!=</span> +<span id="L1111" class="LineNr">1111 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='405screen.mu.html#L315'>screen-grapheme-at-idx</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1112" class="LineNr">1112 </span> <span class="PreProc">var</span> g/<span class="Constant">ebx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">var</span> _expected-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> e-addr +<span id="L1114" class="LineNr">1114 </span> <span class="PreProc">var</span> expected-grapheme/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy _expected-grapheme +<span id="L1115" class="LineNr">1115 </span> $check-screen-row-in-blinking-from:compare-cells: <span class="Delimiter">{</span> +<span id="L1116" class="LineNr">1116 </span> <span class="muComment"># if expected-grapheme is space, null grapheme is also ok</span> +<span id="L1117" class="LineNr">1117 </span> <span class="Delimiter">{</span> +<span id="L1118" class="LineNr">1118 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1119" class="LineNr">1119 </span> <span class="PreProc">break-if-!=</span> +<span id="L1120" class="LineNr">1120 </span> compare g, <span class="Constant">0</span> +<span id="L1121" class="LineNr">1121 </span> <span class="PreProc">break-if-=</span> $check-screen-row-in-blinking-from:compare-cells +<span id="L1122" class="LineNr">1122 </span> <span class="Delimiter">}</span> +<span id="L1123" class="LineNr">1123 </span> <span class="muComment"># if expected-grapheme is space, non-blinking is ok</span> +<span id="L1124" class="LineNr">1124 </span> <span class="Delimiter">{</span> +<span id="L1125" class="LineNr">1125 </span> compare expected-grapheme, <span class="Constant">0x20</span> +<span id="L1126" class="LineNr">1126 </span> <span class="PreProc">break-if-!=</span> +<span id="L1127" class="LineNr">1127 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L424'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1128" class="LineNr">1128 </span> compare blinking?, <span class="Constant">1</span> +<span id="L1129" class="LineNr">1129 </span> <span class="PreProc">break-if-!=</span> $check-screen-row-in-blinking-from:compare-cells +<span id="L1130" class="LineNr">1130 </span> <span class="Delimiter">}</span> +<span id="L1131" class="LineNr">1131 </span> <span class="muComment"># compare graphemes</span> +<span id="L1132" class="LineNr">1132 </span> $check-screen-row-in-blinking-from:compare-graphemes: <span class="Delimiter">{</span> +<span id="L1133" class="LineNr">1133 </span> <span class="muComment"># if (g == expected-grapheme) print "."</span> +<span id="L1134" class="LineNr">1134 </span> compare g, expected-grapheme +<span id="L1135" class="LineNr">1135 </span> <span class="Delimiter">{</span> +<span id="L1136" class="LineNr">1136 </span> <span class="PreProc">break-if-!=</span> +<span id="L1137" class="LineNr">1137 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1138" class="LineNr">1138 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-graphemes +<span id="L1139" class="LineNr">1139 </span> <span class="Delimiter">}</span> +<span id="L1140" class="LineNr">1140 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1141" class="LineNr">1141 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1142" class="LineNr">1142 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1143" class="LineNr">1143 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1144" class="LineNr">1144 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1145" class="LineNr">1145 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1146" class="LineNr">1146 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1147" class="LineNr">1147 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1148" class="LineNr">1148 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") but observed '"</span> +<span id="L1149" class="LineNr">1149 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> g +<span id="L1150" class="LineNr">1150 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"'\n"</span> +<span id="L1151" class="LineNr">1151 </span> <span class="Delimiter">}</span> +<span id="L1152" class="LineNr">1152 </span> $check-screen-row-in-blinking-from:compare-blinking: <span class="Delimiter">{</span> +<span id="L1153" class="LineNr">1153 </span> <span class="PreProc">var</span> blinking?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='405screen.mu.html#L424'>screen-blink-at-idx?</a> <a href='405screen.mu.html#L9'>screen</a>, idx +<span id="L1154" class="LineNr">1154 </span> compare blinking?, <span class="Constant">1</span> +<span id="L1155" class="LineNr">1155 </span> <span class="Delimiter">{</span> +<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">break-if-!=</span> +<span id="L1157" class="LineNr">1157 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"."</span> +<span id="L1158" class="LineNr">1158 </span> <span class="PreProc">break</span> $check-screen-row-in-blinking-from:compare-blinking +<span id="L1159" class="LineNr">1159 </span> <span class="Delimiter">}</span> +<span id="L1160" class="LineNr">1160 </span> <span class="muComment"># otherwise print an error</span> +<span id="L1161" class="LineNr">1161 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> msg +<span id="L1162" class="LineNr">1162 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">": expected '"</span> +<span id="L1163" class="LineNr">1163 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> expected-grapheme +<span id="L1164" class="LineNr">1164 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"' at ("</span> +<span id="L1165" class="LineNr">1165 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> row-idx +<span id="L1166" class="LineNr">1166 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">", "</span> +<span id="L1167" class="LineNr">1167 </span> <a href='304screen.subx.html#L226'>print-int32-hex-to-real-screen</a> col-idx +<span id="L1168" class="LineNr">1168 </span> <a href='304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">") to be blinking\n"</span> +<span id="L1169" class="LineNr">1169 </span> <span class="Delimiter">}</span> +<span id="L1170" class="LineNr">1170 </span> <span class="Delimiter">}</span> +<span id="L1171" class="LineNr">1171 </span> idx <span class="Special"><-</span> increment +<span id="L1172" class="LineNr">1172 </span> increment col-idx +<span id="L1173" class="LineNr">1173 </span> +<span id="L1174" class="LineNr">1174 </span> <span class="PreProc">loop</span> +<span id="L1175" class="LineNr">1175 </span> <span class="Delimiter">}</span> +<span id="L1176" class="LineNr">1176 </span><span class="Delimiter">}</span> +<span id="L1177" class="LineNr">1177 </span> +<span id="L1178" class="LineNr">1178 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1178'>test-print-single-grapheme</a></span> <span class="Delimiter">{</span> +<span id="L1179" class="LineNr">1179 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1180" class="LineNr">1180 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1181" class="LineNr">1181 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1182" class="LineNr">1182 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1183" class="LineNr">1183 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1184" class="LineNr">1184 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-print-single-grapheme"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1185" class="LineNr">1185 </span><span class="Delimiter">}</span> +<span id="L1186" class="LineNr">1186 </span> +<span id="L1187" class="LineNr">1187 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1187'>test-print-multiple-graphemes</a></span> <span class="Delimiter">{</span> +<span id="L1188" class="LineNr">1188 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1190" class="LineNr">1190 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1191" class="LineNr">1191 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"Hello, 世界"</span> +<span id="L1192" class="LineNr">1192 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"Hello, 世界"</span>, <span class="Constant">"F - test-print-multiple-graphemes"</span> +<span id="L1193" class="LineNr">1193 </span><span class="Delimiter">}</span> +<span id="L1194" class="LineNr">1194 </span> +<span id="L1195" class="LineNr">1195 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1195'>test-move-cursor</a></span> <span class="Delimiter">{</span> +<span id="L1196" class="LineNr">1196 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1197" class="LineNr">1197 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1198" class="LineNr">1198 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1199" class="LineNr">1199 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L1200" class="LineNr">1200 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1201" class="LineNr">1201 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1202" class="LineNr">1202 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor"</span> <span class="muComment"># top row</span> +<span id="L1203" class="LineNr">1203 </span><span class="Delimiter">}</span> +<span id="L1204" class="LineNr">1204 </span> +<span id="L1205" class="LineNr">1205 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1205'>test-move-cursor-zeroes</a></span> <span class="Delimiter">{</span> +<span id="L1206" class="LineNr">1206 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1207" class="LineNr">1207 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1208" class="LineNr">1208 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1209" class="LineNr">1209 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0</span> +<span id="L1210" class="LineNr">1210 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1211" class="LineNr">1211 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1212" class="LineNr">1212 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zeroes"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1213" class="LineNr">1213 </span><span class="Delimiter">}</span> +<span id="L1214" class="LineNr">1214 </span> +<span id="L1215" class="LineNr">1215 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1215'>test-move-cursor-zero-row</a></span> <span class="Delimiter">{</span> +<span id="L1216" class="LineNr">1216 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1217" class="LineNr">1217 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1218" class="LineNr">1218 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1219" class="LineNr">1219 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">2</span> +<span id="L1220" class="LineNr">1220 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1221" class="LineNr">1221 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1222" class="LineNr">1222 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-zero-row"</span> <span class="muComment"># top row</span> +<span id="L1223" class="LineNr">1223 </span><span class="Delimiter">}</span> +<span id="L1224" class="LineNr">1224 </span> +<span id="L1225" class="LineNr">1225 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1225'>test-move-cursor-zero-column</a></span> <span class="Delimiter">{</span> +<span id="L1226" class="LineNr">1226 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1227" class="LineNr">1227 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1228" class="LineNr">1228 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1229" class="LineNr">1229 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>, <span class="Constant">0</span> +<span id="L1230" class="LineNr">1230 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1231" class="LineNr">1231 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1232" class="LineNr">1232 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-zero-column"</span> +<span id="L1233" class="LineNr">1233 </span><span class="Delimiter">}</span> +<span id="L1234" class="LineNr">1234 </span> +<span id="L1235" class="LineNr">1235 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1235'>test-move-cursor-negative-row</a></span> <span class="Delimiter">{</span> +<span id="L1236" class="LineNr">1236 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1237" class="LineNr">1237 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1238" class="LineNr">1238 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> +<span id="L1239" class="LineNr">1239 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">-1</span>/row, <span class="Constant">2</span>/col +<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1241" class="LineNr">1241 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1242" class="LineNr">1242 </span> <span class="muComment"># no move</span> +<span id="L1243" class="LineNr">1243 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-row"</span> +<span id="L1244" class="LineNr">1244 </span><span class="Delimiter">}</span> +<span id="L1245" class="LineNr">1245 </span> +<span id="L1246" class="LineNr">1246 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1246'>test-move-cursor-negative-column</a></span> <span class="Delimiter">{</span> +<span id="L1247" class="LineNr">1247 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1248" class="LineNr">1248 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1249" class="LineNr">1249 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">3</span> +<span id="L1250" class="LineNr">1250 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/row, <span class="Constant">-1</span>/col +<span id="L1251" class="LineNr">1251 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1252" class="LineNr">1252 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1253" class="LineNr">1253 </span> <span class="muComment"># no move</span> +<span id="L1254" class="LineNr">1254 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-negative-column"</span> +<span id="L1255" class="LineNr">1255 </span><span class="Delimiter">}</span> +<span id="L1256" class="LineNr">1256 </span> +<span id="L1257" class="LineNr">1257 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1257'>test-move-cursor-column-too-large</a></span> <span class="Delimiter">{</span> +<span id="L1258" class="LineNr">1258 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1259" class="LineNr">1259 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1260" class="LineNr">1260 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols +<span id="L1261" class="LineNr">1261 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">4</span>/col +<span id="L1262" class="LineNr">1262 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1263" class="LineNr">1263 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1264" class="LineNr">1264 </span> <span class="muComment"># top row is empty</span> +<span id="L1265" class="LineNr">1265 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> +<span id="L1266" class="LineNr">1266 </span> <span class="muComment"># character shows up on next row</span> +<span id="L1267" class="LineNr">1267 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large"</span> +<span id="L1268" class="LineNr">1268 </span><span class="Delimiter">}</span> +<span id="L1269" class="LineNr">1269 </span> +<span id="L1270" class="LineNr">1270 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1270'>test-move-cursor-column-too-large-saturates</a></span> <span class="Delimiter">{</span> +<span id="L1271" class="LineNr">1271 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1272" class="LineNr">1272 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1273" class="LineNr">1273 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols +<span id="L1274" class="LineNr">1274 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">6</span>/col +<span id="L1275" class="LineNr">1275 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1276" class="LineNr">1276 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1277" class="LineNr">1277 </span> <span class="muComment"># top row is empty</span> +<span id="L1278" class="LineNr">1278 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" "</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1279" class="LineNr">1279 </span> <span class="muComment"># character shows up at the start of next row</span> +<span id="L1280" class="LineNr">1280 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/row, <span class="Constant">"a"</span>, <span class="Constant">"F - test-move-cursor-column-too-large-saturates"</span> <span class="muComment"># top-left corner of the screen</span> +<span id="L1281" class="LineNr">1281 </span><span class="Delimiter">}</span> +<span id="L1282" class="LineNr">1282 </span> +<span id="L1283" class="LineNr">1283 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1283'>test-move-cursor-row-too-large</a></span> <span class="Delimiter">{</span> +<span id="L1284" class="LineNr">1284 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1285" class="LineNr">1285 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1286" class="LineNr">1286 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols +<span id="L1287" class="LineNr">1287 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">6</span>/row, <span class="Constant">2</span>/col +<span id="L1288" class="LineNr">1288 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1289" class="LineNr">1289 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1290" class="LineNr">1290 </span> <span class="muComment"># bottom row shows the character</span> +<span id="L1291" class="LineNr">1291 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large"</span> +<span id="L1292" class="LineNr">1292 </span><span class="Delimiter">}</span> +<span id="L1293" class="LineNr">1293 </span> +<span id="L1294" class="LineNr">1294 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1294'>test-move-cursor-row-too-large-saturates</a></span> <span class="Delimiter">{</span> +<span id="L1295" class="LineNr">1295 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1296" class="LineNr">1296 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1297" class="LineNr">1297 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">3</span>/cols +<span id="L1298" class="LineNr">1298 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">9</span>/row, <span class="Constant">2</span>/col +<span id="L1299" class="LineNr">1299 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1300" class="LineNr">1300 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1301" class="LineNr">1301 </span> <span class="muComment"># bottom row shows the character</span> +<span id="L1302" class="LineNr">1302 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - test-move-cursor-row-too-large-saturates"</span> +<span id="L1303" class="LineNr">1303 </span><span class="Delimiter">}</span> +<span id="L1304" class="LineNr">1304 </span> +<span id="L1305" class="LineNr">1305 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1305'>test-check-screen-row-from</a></span> <span class="Delimiter">{</span> +<span id="L1306" class="LineNr">1306 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1307" class="LineNr">1307 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1308" class="LineNr">1308 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1309" class="LineNr">1309 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L1310" class="LineNr">1310 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1311" class="LineNr">1311 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1312" class="LineNr">1312 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">" a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1305'>test-check-screen-row-from</a>/baseline"</span> +<span id="L1313" class="LineNr">1313 </span> <a href='405screen.mu.html#L631'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">4</span>/col, <span class="Constant">"a"</span>, <span class="Constant">"F - test-check-screen-row-from"</span> +<span id="L1314" class="LineNr">1314 </span><span class="Delimiter">}</span> +<span id="L1315" class="LineNr">1315 </span> +<span id="L1316" class="LineNr">1316 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1316'>test-print-string-overflows-to-next-row</a></span> <span class="Delimiter">{</span> +<span id="L1317" class="LineNr">1317 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1318" class="LineNr">1318 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1319" class="LineNr">1319 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1320" class="LineNr">1320 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"abcdefg"</span> +<span id="L1321" class="LineNr">1321 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> +<span id="L1322" class="LineNr">1322 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/row, <span class="Constant">"efg"</span>, <span class="Constant">"F - test-print-string-overflows-to-next-row"</span> +<span id="L1323" class="LineNr">1323 </span><span class="Delimiter">}</span> +<span id="L1324" class="LineNr">1324 </span> +<span id="L1325" class="LineNr">1325 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1325'>test-check-screen-scrolls-on-overflow</a></span> <span class="Delimiter">{</span> +<span id="L1326" class="LineNr">1326 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1327" class="LineNr">1327 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1328" class="LineNr">1328 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1329" class="LineNr">1329 </span> <span class="muComment"># single character starting at bottom right</span> +<span id="L1330" class="LineNr">1330 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1331" class="LineNr">1331 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1332" class="LineNr">1332 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1333" class="LineNr">1333 </span> <a href='405screen.mu.html#L631'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/row, <span class="Constant">4</span>/col, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1325'>test-check-screen-scrolls-on-overflow</a>/baseline"</span> <span class="muComment"># bottom-right corner of the screen</span> +<span id="L1334" class="LineNr">1334 </span> <span class="muComment"># multiple characters starting at bottom right</span> +<span id="L1335" class="LineNr">1335 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L1336" class="LineNr">1336 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"ab"</span> +<span id="L1337" class="LineNr">1337 </span> <span class="muComment"># screen scrolled up one row</span> +<span id="L1338" class="LineNr">1338 </span><span class="CommentedCode">#? check-screen-row screen, 1/row, " ", "F - test-check-screen-scrolls-on-overflow/x1"</span> +<span id="L1339" class="LineNr">1339 </span><span class="CommentedCode">#? check-screen-row screen, 2/row, " ", "F - test-check-screen-scrolls-on-overflow/x2"</span> +<span id="L1340" class="LineNr">1340 </span><span class="CommentedCode">#? check-screen-row screen, 3/row, " ", "F - test-check-screen-scrolls-on-overflow/x3"</span> +<span id="L1341" class="LineNr">1341 </span><span class="CommentedCode">#? check-screen-row screen, 4/row, " a", "F - test-check-screen-scrolls-on-overflow/x4"</span> +<span id="L1342" class="LineNr">1342 </span><span class="CommentedCode">#? check-screen-row screen, 5/row, "b ", "F - test-check-screen-scrolls-on-overflow/x5"</span> +<span id="L1343" class="LineNr">1343 </span> <a href='405screen.mu.html#L631'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>/row, <span class="Constant">4</span>/col, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1325'>test-check-screen-scrolls-on-overflow</a>/1"</span> +<span id="L1344" class="LineNr">1344 </span> <a href='405screen.mu.html#L631'>check-screen-row-from</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/row, <span class="Constant">1</span>/col, <span class="Constant">"b"</span>, <span class="Constant">"F - <a href='405screen.mu.html#L1325'>test-check-screen-scrolls-on-overflow</a>/2"</span> +<span id="L1345" class="LineNr">1345 </span><span class="Delimiter">}</span> +<span id="L1346" class="LineNr">1346 </span> +<span id="L1347" class="LineNr">1347 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1347'>test-check-screen-color</a></span> <span class="Delimiter">{</span> +<span id="L1348" class="LineNr">1348 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1349" class="LineNr">1349 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1350" class="LineNr">1350 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1351" class="LineNr">1351 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1352" class="LineNr">1352 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1353" class="LineNr">1353 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/fg, <span class="Constant">0</span>/bg +<span id="L1354" class="LineNr">1354 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b +<span id="L1355" class="LineNr">1355 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1356" class="LineNr">1356 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg +<span id="L1357" class="LineNr">1357 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L1358" class="LineNr">1358 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1359" class="LineNr">1359 </span> <a href='405screen.mu.html#L681'>check-screen-row-in-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-color"</span> +<span id="L1360" class="LineNr">1360 </span><span class="Delimiter">}</span> +<span id="L1361" class="LineNr">1361 </span> +<span id="L1362" class="LineNr">1362 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1362'>test-check-screen-background-color</a></span> <span class="Delimiter">{</span> +<span id="L1363" class="LineNr">1363 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1364" class="LineNr">1364 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1365" class="LineNr">1365 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1366" class="LineNr">1366 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1367" class="LineNr">1367 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1368" class="LineNr">1368 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">1</span>/bg +<span id="L1369" class="LineNr">1369 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b +<span id="L1370" class="LineNr">1370 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1371" class="LineNr">1371 </span> <a href='405screen.mu.html#L523'>start-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg +<span id="L1372" class="LineNr">1372 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L1373" class="LineNr">1373 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1374" class="LineNr">1374 </span> <a href='405screen.mu.html#L768'>check-screen-row-in-background-color</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-background-color"</span> +<span id="L1375" class="LineNr">1375 </span><span class="Delimiter">}</span> +<span id="L1376" class="LineNr">1376 </span> +<span id="L1377" class="LineNr">1377 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1377'>test-check-screen-bold</a></span> <span class="Delimiter">{</span> +<span id="L1378" class="LineNr">1378 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1379" class="LineNr">1379 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1380" class="LineNr">1380 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1381" class="LineNr">1381 </span> <a href='405screen.mu.html#L541'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1382" class="LineNr">1382 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1383" class="LineNr">1383 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1384" class="LineNr">1384 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1385" class="LineNr">1385 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b +<span id="L1386" class="LineNr">1386 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1387" class="LineNr">1387 </span> <a href='405screen.mu.html#L541'>start-bold</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1388" class="LineNr">1388 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L1389" class="LineNr">1389 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1390" class="LineNr">1390 </span> <a href='405screen.mu.html#L853'>check-screen-row-in-bold</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-bold"</span> +<span id="L1391" class="LineNr">1391 </span><span class="Delimiter">}</span> +<span id="L1392" class="LineNr">1392 </span> +<span id="L1393" class="LineNr">1393 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1393'>test-check-screen-underline</a></span> <span class="Delimiter">{</span> +<span id="L1394" class="LineNr">1394 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1395" class="LineNr">1395 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1396" class="LineNr">1396 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1397" class="LineNr">1397 </span> <a href='405screen.mu.html#L555'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1398" class="LineNr">1398 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1399" class="LineNr">1399 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1400" class="LineNr">1400 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1401" class="LineNr">1401 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b +<span id="L1402" class="LineNr">1402 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1403" class="LineNr">1403 </span> <a href='405screen.mu.html#L555'>start-underline</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1404" class="LineNr">1404 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L1405" class="LineNr">1405 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1406" class="LineNr">1406 </span> <a href='405screen.mu.html#L934'>check-screen-row-in-underline</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-underline"</span> +<span id="L1407" class="LineNr">1407 </span><span class="Delimiter">}</span> +<span id="L1408" class="LineNr">1408 </span> +<span id="L1409" class="LineNr">1409 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1409'>test-check-screen-reverse</a></span> <span class="Delimiter">{</span> +<span id="L1410" class="LineNr">1410 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1411" class="LineNr">1411 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1412" class="LineNr">1412 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1413" class="LineNr">1413 </span> <a href='405screen.mu.html#L569'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1414" class="LineNr">1414 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1415" class="LineNr">1415 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1416" class="LineNr">1416 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1417" class="LineNr">1417 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b +<span id="L1418" class="LineNr">1418 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1419" class="LineNr">1419 </span> <a href='405screen.mu.html#L569'>start-reverse-video</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1420" class="LineNr">1420 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L1421" class="LineNr">1421 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1422" class="LineNr">1422 </span> <a href='405screen.mu.html#L1015'>check-screen-row-in-reverse</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-reverse"</span> +<span id="L1423" class="LineNr">1423 </span><span class="Delimiter">}</span> +<span id="L1424" class="LineNr">1424 </span> +<span id="L1425" class="LineNr">1425 </span><span class="PreProc">fn</span> <span class="muTest"><a href='405screen.mu.html#L1425'>test-check-screen-blinking</a></span> <span class="Delimiter">{</span> +<span id="L1426" class="LineNr">1426 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> +<span id="L1427" class="LineNr">1427 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1428" class="LineNr">1428 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/rows, <span class="Constant">4</span>/cols +<span id="L1429" class="LineNr">1429 </span> <a href='405screen.mu.html#L583'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1430" class="LineNr">1430 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L1431" class="LineNr">1431 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1432" class="LineNr">1432 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1433" class="LineNr">1433 </span> c <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b +<span id="L1434" class="LineNr">1434 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1435" class="LineNr">1435 </span> <a href='405screen.mu.html#L583'>start-blinking</a> <a href='405screen.mu.html#L9'>screen</a> +<span id="L1436" class="LineNr">1436 </span> c <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L1437" class="LineNr">1437 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, c +<span id="L1438" class="LineNr">1438 </span> <a href='405screen.mu.html#L1096'>check-screen-row-in-blinking</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/row, <span class="Constant">"a c"</span>, <span class="Constant">"F - test-check-screen-blinking"</span> +<span id="L1439" class="LineNr">1439 </span><span class="Delimiter">}</span> +<span id="L1440" class="LineNr">1440 </span> +<span id="L1441" class="LineNr">1441 </span><span class="CommentedCode">#? fn main -> _/ebx: int {</span> +<span id="L1442" class="LineNr">1442 </span><span class="CommentedCode">#? #? test-check-screen-color</span> +<span id="L1443" class="LineNr">1443 </span><span class="CommentedCode">#? run-tests</span> +<span id="L1444" class="LineNr">1444 </span><span class="CommentedCode">#? return 0</span> +<span id="L1445" class="LineNr">1445 </span><span class="CommentedCode">#? }</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/406int32.mu.html b/html/linux/406int32.mu.html index c7d06f06..7ad3edda 100644 --- a/html/406int32.mu.html +++ b/html/linux/406int32.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 406int32.mu</title> +<title>Mu - linux/406int32.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,18 +54,18 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/406int32.mu'>https://github.com/akkartik/mu/blob/main/406int32.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/406int32.mu'>https://github.com/akkartik/mu/blob/main/linux/406int32.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Some slow but convenient helpers</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># slow, iterative shift-left instruction</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># preconditions: _nr >= 0, _dr > 0</span> <span id="L5" class="LineNr"> 5 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='406int32.mu.html#L5'>repeated-shift-left</a></span> nr: int, dr: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy nr +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy nr <span id="L7" class="LineNr"> 7 </span> <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> compare dr, <span class="Constant">0</span> <span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if-<=</span> -<span id="L10" class="LineNr">10 </span> result <span class="SpecialChar"><-</span> shift-left <span class="Constant">1</span> +<span id="L10" class="LineNr">10 </span> result <span class="Special"><-</span> shift-left <span class="Constant">1</span> <span id="L11" class="LineNr">11 </span> decrement dr <span id="L12" class="LineNr">12 </span> <span class="PreProc">loop</span> <span id="L13" class="LineNr">13 </span> <span class="Delimiter">}</span> @@ -75,11 +75,11 @@ if ('onhashchange' in window) { <span id="L17" class="LineNr">17 </span><span class="muComment"># slow, iterative shift-right instruction</span> <span id="L18" class="LineNr">18 </span><span class="muComment"># preconditions: _nr >= 0, _dr > 0</span> <span id="L19" class="LineNr">19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='406int32.mu.html#L19'>repeated-shift-right</a></span> nr: int, dr: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy nr +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy nr <span id="L21" class="LineNr">21 </span> <span class="Delimiter">{</span> <span id="L22" class="LineNr">22 </span> compare dr, <span class="Constant">0</span> <span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if-<=</span> -<span id="L24" class="LineNr">24 </span> result <span class="SpecialChar"><-</span> shift-right <span class="Constant">1</span> +<span id="L24" class="LineNr">24 </span> result <span class="Special"><-</span> shift-right <span class="Constant">1</span> <span id="L25" class="LineNr">25 </span> decrement dr <span id="L26" class="LineNr">26 </span> <span class="PreProc">loop</span> <span id="L27" class="LineNr">27 </span> <span class="Delimiter">}</span> @@ -87,11 +87,11 @@ if ('onhashchange' in window) { <span id="L29" class="LineNr">29 </span><span class="Delimiter">}</span> <span id="L30" class="LineNr">30 </span> <span id="L31" class="LineNr">31 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='406int32.mu.html#L31'>abs</a></span> n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L32" class="LineNr">32 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy n +<span id="L32" class="LineNr">32 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy n <span id="L33" class="LineNr">33 </span> <span class="Delimiter">{</span> <span id="L34" class="LineNr">34 </span> compare n, <span class="Constant">0</span> <span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if->=</span> -<span id="L36" class="LineNr">36 </span> result <span class="SpecialChar"><-</span> negate +<span id="L36" class="LineNr">36 </span> result <span class="Special"><-</span> negate <span id="L37" class="LineNr">37 </span> <span class="Delimiter">}</span> <span id="L38" class="LineNr">38 </span> <span class="PreProc">return</span> result <span id="L39" class="LineNr">39 </span><span class="Delimiter">}</span> diff --git a/html/407right-justify.mu.html b/html/linux/407right-justify.mu.html index 460f9def..4ea64e8d 100644 --- a/html/407right-justify.mu.html +++ b/html/linux/407right-justify.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 407right-justify.mu</title> +<title>Mu - linux/407right-justify.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,21 +54,21 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/407right-justify.mu'>https://github.com/akkartik/mu/blob/main/407right-justify.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/407right-justify.mu'>https://github.com/akkartik/mu/blob/main/linux/407right-justify.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># print 'n' with enough leading spaces to be right-justified in 'width'</span> -<span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='407right-justify.mu.html#L2'>right-justify</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int, _width: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='407right-justify.mu.html#L2'>print-int32-decimal-right-justified</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: int, _width: int <span class="Delimiter">{</span> <span id="L3" class="LineNr"> 3 </span> <span class="muComment"># tweak things for negative numbers</span> -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> n-width/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n -<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> width/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _width +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> n-width/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='311decimal-int.subx.html#L312'>decimal-size</a> n +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> width/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _width <span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> <span id="L7" class="LineNr"> 7 </span> compare n-width, width <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">break-if->=</span> -<span id="L9" class="LineNr"> 9 </span> <a href='405screen.mu.html#L210'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L10" class="LineNr">10 </span> width <span class="SpecialChar"><-</span> decrement +<span id="L9" class="LineNr"> 9 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space +<span id="L10" class="LineNr">10 </span> width <span class="Special"><-</span> decrement <span id="L11" class="LineNr">11 </span> <span class="PreProc">loop</span> <span id="L12" class="LineNr">12 </span> <span class="Delimiter">}</span> -<span id="L13" class="LineNr">13 </span> <a href='405screen.mu.html#L480'>print-int32-decimal</a> <a href='405screen.mu.html#L9'>screen</a>, n +<span id="L13" class="LineNr">13 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <a href='405screen.mu.html#L9'>screen</a>, n <span id="L14" class="LineNr">14 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/baremetal/408float.mu.html b/html/linux/408float.mu.html index bd17e264..fa69e870 100644 --- a/html/baremetal/408float.mu.html +++ b/html/linux/408float.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/408float.mu</title> +<title>Mu - linux/408float.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,29 +54,29 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/408float.mu'>https://github.com/akkartik/mu/blob/main/baremetal/408float.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/408float.mu'>https://github.com/akkartik/mu/blob/main/linux/408float.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Some quick-n-dirty ways to create floats.</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='408float.mu.html#L3'>fill-in-rational</a></span> _out: (addr float), nr: int, dr: int <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> copy _out -<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert nr -<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert dr -<span id="L7" class="LineNr"> 7 </span> result <span class="SpecialChar"><-</span> divide divisor +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> copy _out +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert nr +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert dr +<span id="L7" class="LineNr"> 7 </span> result <span class="Special"><-</span> divide divisor <span id="L8" class="LineNr"> 8 </span> copy-to *out, result <span id="L9" class="LineNr"> 9 </span><span class="Delimiter">}</span> <span id="L10" class="LineNr">10 </span> <span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='408float.mu.html#L11'>fill-in-sqrt</a></span> _out: (addr float), n: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> copy _out -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert n -<span id="L14" class="LineNr">14 </span> result <span class="SpecialChar"><-</span> square-root result +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> copy _out +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert n +<span id="L14" class="LineNr">14 </span> result <span class="Special"><-</span> square-root result <span id="L15" class="LineNr">15 </span> copy-to *out, result <span id="L16" class="LineNr">16 </span><span class="Delimiter">}</span> <span id="L17" class="LineNr">17 </span> <span id="L18" class="LineNr">18 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='408float.mu.html#L18'>rational</a></span> nr: int, dr: int<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert nr -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert dr -<span id="L21" class="LineNr">21 </span> result <span class="SpecialChar"><-</span> divide divisor +<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert nr +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> divisor/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert dr +<span id="L21" class="LineNr">21 </span> result <span class="Special"><-</span> divide divisor <span id="L22" class="LineNr">22 </span> <span class="PreProc">return</span> result <span id="L23" class="LineNr">23 </span><span class="Delimiter">}</span> </pre> diff --git a/html/409print-float-hex.mu.html b/html/linux/409print-float-hex.mu.html index bfb62e92..60daa3b5 100644 --- a/html/409print-float-hex.mu.html +++ b/html/linux/409print-float-hex.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 409print-float-hex.mu</title> +<title>Mu - linux/409print-float-hex.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } +.Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } +.Delimiter { color: #c000c0; } +.Special { color: #ff6060; } .muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/409print-float-hex.mu'>https://github.com/akkartik/mu/blob/main/409print-float-hex.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/409print-float-hex.mu'>https://github.com/akkartik/mu/blob/main/linux/409print-float-hex.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># quick-n-dirty way to print out floats in hex</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># <a href="https://www.exploringbinary.com/hexadecimal-floating-point-constants">https://www.exploringbinary.com/hexadecimal-floating-point-constants</a></span> @@ -72,112 +72,112 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span><span class="muComment"># = +1.000000 P -01</span> <span id="L13" class="LineNr"> 13 </span><span class="PreProc">fn</span> <span class="muTest"><a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a></span> <span class="Delimiter">{</span> <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L16" class="LineNr"> 16 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> <span id="L17" class="LineNr"> 17 </span> <span class="muComment"># 0.5</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> half/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> half/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> <span id="L19" class="LineNr"> 19 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, half -<span id="L20" class="LineNr"> 20 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P-01 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.5"</span> +<span id="L20" class="LineNr"> 20 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P-01 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.5"</span> <span id="L21" class="LineNr"> 21 </span> <span class="muComment"># 0.25</span> <span id="L22" class="LineNr"> 22 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> quarter/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> quarter/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">4</span> <span id="L24" class="LineNr"> 24 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, quarter -<span id="L25" class="LineNr"> 25 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P-02 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.25"</span> +<span id="L25" class="LineNr"> 25 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P-02 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.25"</span> <span id="L26" class="LineNr"> 26 </span> <span class="muComment"># 0.75</span> <span id="L27" class="LineNr"> 27 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> three-quarters/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">3</span>, <span class="Constant">4</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> three-quarters/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">3</span>, <span class="Constant">4</span> <span id="L29" class="LineNr"> 29 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, three-quarters -<span id="L30" class="LineNr"> 30 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.800000P-01 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.75"</span> +<span id="L30" class="LineNr"> 30 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.800000P-01 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.75"</span> <span id="L31" class="LineNr"> 31 </span> <span class="muComment"># 0.1</span> <span id="L32" class="LineNr"> 32 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> tenth/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">0xa</span> +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> tenth/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">0xa</span> <span id="L34" class="LineNr"> 34 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, tenth -<span id="L35" class="LineNr"> 35 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.99999aP-04 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.1"</span> +<span id="L35" class="LineNr"> 35 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.99999aP-04 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L13'>test-print-float-hex-normal</a> 0.1"</span> <span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="PreProc">fn</span> <span class="muTest"><a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a></span> <span class="Delimiter">{</span> <span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L41" class="LineNr"> 41 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> <span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 1</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">1</span> <span id="L44" class="LineNr"> 44 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, one-f -<span id="L45" class="LineNr"> 45 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P00 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> 1"</span> +<span id="L45" class="LineNr"> 45 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P00 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> 1"</span> <span id="L46" class="LineNr"> 46 </span> <span class="muComment"># 2</span> <span id="L47" class="LineNr"> 47 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> <span id="L49" class="LineNr"> 49 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, two-f -<span id="L50" class="LineNr"> 50 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P01 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> 2"</span> +<span id="L50" class="LineNr"> 50 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.000000P01 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> 2"</span> <span id="L51" class="LineNr"> 51 </span> <span class="muComment"># 10</span> <span id="L52" class="LineNr"> 52 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0xa</span>, <span class="Constant">1</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0xa</span>, <span class="Constant">1</span> <span id="L54" class="LineNr"> 54 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, ten-f -<span id="L55" class="LineNr"> 55 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.400000P03 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> 10"</span> +<span id="L55" class="LineNr"> 55 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"1.400000P03 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> 10"</span> <span id="L56" class="LineNr"> 56 </span> <span class="muComment"># -10</span> <span id="L57" class="LineNr"> 57 </span> <a href='405screen.mu.html#L78'>clear-screen</a> <a href='405screen.mu.html#L9'>screen</a> -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">-0xa</span>, <span class="Constant">1</span> +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">-0xa</span>, <span class="Constant">1</span> <span id="L59" class="LineNr"> 59 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, minus-ten-f -<span id="L60" class="LineNr"> 60 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-1.400000P03 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> -10"</span> +<span id="L60" class="LineNr"> 60 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-1.400000P03 "</span>, <span class="Constant">"F - <a href='409print-float-hex.mu.html#L38'>test-print-float-hex-integer</a> -10"</span> <span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> <span id="L63" class="LineNr"> 63 </span><span class="PreProc">fn</span> <span class="muTest"><a href='409print-float-hex.mu.html#L63'>test-print-float-hex-zero</a></span> <span class="Delimiter">{</span> <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L66" class="LineNr"> 66 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> zero: float <span id="L68" class="LineNr"> 68 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, zero -<span id="L69" class="LineNr"> 69 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0 "</span>, <span class="Constant">"F - test-print-float-hex-zero"</span> +<span id="L69" class="LineNr"> 69 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"0 "</span>, <span class="Constant">"F - test-print-float-hex-zero"</span> <span id="L70" class="LineNr"> 70 </span><span class="Delimiter">}</span> <span id="L71" class="LineNr"> 71 </span> <span id="L72" class="LineNr"> 72 </span><span class="PreProc">fn</span> <span class="muTest"><a href='409print-float-hex.mu.html#L72'>test-print-float-hex-negative-zero</a></span> <span class="Delimiter">{</span> <span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L75" class="LineNr"> 75 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> <span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> n: int <span id="L77" class="LineNr"> 77 </span> copy-to n, <span class="Constant">0x80000000</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> negative-zero/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> negative-zero/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n <span id="L79" class="LineNr"> 79 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, negative-zero -<span id="L80" class="LineNr"> 80 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-0 "</span>, <span class="Constant">"F - test-print-float-hex-negative-zero"</span> +<span id="L80" class="LineNr"> 80 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-0 "</span>, <span class="Constant">"F - test-print-float-hex-negative-zero"</span> <span id="L81" class="LineNr"> 81 </span><span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> <span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muTest"><a href='409print-float-hex.mu.html#L83'>test-print-float-hex-infinity</a></span> <span class="Delimiter">{</span> <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L86" class="LineNr"> 86 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> n: int <span id="L88" class="LineNr"> 88 </span> <span class="muComment"># 0|11111111|00000000000000000000000</span> <span id="L89" class="LineNr"> 89 </span> <span class="muComment"># 0111|1111|1000|0000|0000|0000|0000|0000</span> <span id="L90" class="LineNr"> 90 </span> copy-to n, <span class="Constant">0x7f800000</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> infinity/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n <span id="L92" class="LineNr"> 92 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, infinity -<span id="L93" class="LineNr"> 93 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Inf "</span>, <span class="Constant">"F - test-print-float-hex-infinity"</span> +<span id="L93" class="LineNr"> 93 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"Inf "</span>, <span class="Constant">"F - test-print-float-hex-infinity"</span> <span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> <span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muTest"><a href='409print-float-hex.mu.html#L96'>test-print-float-hex-negative-infinity</a></span> <span class="Delimiter">{</span> <span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L99" class="LineNr"> 99 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> <span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> n: int <span id="L101" class="LineNr">101 </span> copy-to n, <span class="Constant">0xff800000</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n <span id="L103" class="LineNr">103 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, negative-infinity -<span id="L104" class="LineNr">104 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-Inf "</span>, <span class="Constant">"F - test-print-float-hex-negative-infinity"</span> +<span id="L104" class="LineNr">104 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"-Inf "</span>, <span class="Constant">"F - test-print-float-hex-negative-infinity"</span> <span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="PreProc">fn</span> <span class="muTest"><a href='409print-float-hex.mu.html#L107'>test-print-float-hex-not-a-number</a></span> <span class="Delimiter">{</span> <span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> screen-on-stack: <a href='405screen.mu.html#L9'>screen</a> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-on-stack +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> <a href='405screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack <span id="L110" class="LineNr">110 </span> <a href='405screen.mu.html#L30'>initialize-screen</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">0x20</span> <span class="muComment"># 32 columns should be more than enough</span> <span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> n: int <span id="L112" class="LineNr">112 </span> copy-to n, <span class="Constant">0xffffffff</span> <span class="muComment"># exponent must be all 1's, and mantissa must be non-zero</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> reinterpret n +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n <span id="L114" class="LineNr">114 </span> <a href='409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='405screen.mu.html#L9'>screen</a>, negative-infinity -<span id="L115" class="LineNr">115 </span> <a href='405screen.mu.html#L623'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"NaN "</span>, <span class="Constant">"F - test-print-float-hex-not-a-number"</span> +<span id="L115" class="LineNr">115 </span> <a href='405screen.mu.html#L627'>check-screen-row</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, <span class="Constant">"NaN "</span>, <span class="Constant">"F - test-print-float-hex-not-a-number"</span> <span id="L116" class="LineNr">116 </span><span class="Delimiter">}</span> <span id="L117" class="LineNr">117 </span> <span id="L118" class="LineNr">118 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='409print-float-hex.mu.html#L118'>print-float-hex</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), n: float <span class="Delimiter">{</span> <span id="L119" class="LineNr">119 </span> <span class="muComment"># - special names</span> -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> reinterpret n +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="Special"><-</span> reinterpret n <span id="L121" class="LineNr">121 </span> compare bits, <span class="Constant">0</span> <span id="L122" class="LineNr">122 </span> <span class="Delimiter">{</span> <span id="L123" class="LineNr">123 </span> <span class="PreProc">break-if-!=</span> @@ -202,10 +202,10 @@ if ('onhashchange' in window) { <span id="L142" class="LineNr">142 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-Inf"</span> <span id="L143" class="LineNr">143 </span> <span class="PreProc">return</span> <span id="L144" class="LineNr">144 </span> <span class="Delimiter">}</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L146" class="LineNr">146 </span> exponent <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> -<span id="L147" class="LineNr">147 </span> exponent <span class="SpecialChar"><-</span> and <span class="Constant">0xff</span> -<span id="L148" class="LineNr">148 </span> exponent <span class="SpecialChar"><-</span> subtract <span class="Constant">0x7f</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bits +<span id="L146" class="LineNr">146 </span> exponent <span class="Special"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> +<span id="L147" class="LineNr">147 </span> exponent <span class="Special"><-</span> and <span class="Constant">0xff</span> +<span id="L148" class="LineNr">148 </span> exponent <span class="Special"><-</span> subtract <span class="Constant">0x7f</span> <span id="L149" class="LineNr">149 </span> compare exponent, <span class="Constant">0x80</span> <span id="L150" class="LineNr">150 </span> <span class="Delimiter">{</span> <span id="L151" class="LineNr">151 </span> <span class="PreProc">break-if-!=</span> @@ -213,8 +213,8 @@ if ('onhashchange' in window) { <span id="L153" class="LineNr">153 </span> <span class="PreProc">return</span> <span id="L154" class="LineNr">154 </span> <span class="Delimiter">}</span> <span id="L155" class="LineNr">155 </span> <span class="muComment"># - regular numbers</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L157" class="LineNr">157 </span> sign <span class="SpecialChar"><-</span> shift-right <span class="Constant">0x1f</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy bits +<span id="L157" class="LineNr">157 </span> sign <span class="Special"><-</span> shift-right <span class="Constant">0x1f</span> <span id="L158" class="LineNr">158 </span> <span class="Delimiter">{</span> <span id="L159" class="LineNr">159 </span> compare sign, <span class="Constant">1</span> <span id="L160" class="LineNr">160 </span> <span class="PreProc">break-if-!=</span> @@ -226,16 +226,16 @@ if ('onhashchange' in window) { <span id="L166" class="LineNr">166 </span> <span class="Delimiter">{</span> <span id="L167" class="LineNr">167 </span> <span class="PreProc">break-if-!=</span> <span id="L168" class="LineNr">168 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"0."</span> -<span id="L169" class="LineNr">169 </span> exponent <span class="SpecialChar"><-</span> increment +<span id="L169" class="LineNr">169 </span> exponent <span class="Special"><-</span> increment <span id="L170" class="LineNr">170 </span> <span class="PreProc">break</span> $print-float-hex:leading-digit <span id="L171" class="LineNr">171 </span> <span class="Delimiter">}</span> <span id="L172" class="LineNr">172 </span> <span class="muComment"># normal numbers</span> <span id="L173" class="LineNr">173 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"1."</span> <span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> -<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> mantissa/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy bits -<span id="L176" class="LineNr">176 </span> mantissa <span class="SpecialChar"><-</span> and <span class="Constant">0x7fffff</span> -<span id="L177" class="LineNr">177 </span> mantissa <span class="SpecialChar"><-</span> shift-left <span class="Constant">1</span> <span class="muComment"># pad to whole nibbles</span> -<span id="L178" class="LineNr">178 </span> <a href='405screen.mu.html#L458'>print-int32-hex-bits</a> <a href='405screen.mu.html#L9'>screen</a>, mantissa, <span class="Constant">0x18</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> mantissa/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy bits +<span id="L176" class="LineNr">176 </span> mantissa <span class="Special"><-</span> and <span class="Constant">0x7fffff</span> +<span id="L177" class="LineNr">177 </span> mantissa <span class="Special"><-</span> shift-left <span class="Constant">1</span> <span class="muComment"># pad to whole nibbles</span> +<span id="L178" class="LineNr">178 </span> <a href='405screen.mu.html#L462'>print-int32-hex-bits</a> <a href='405screen.mu.html#L9'>screen</a>, mantissa, <span class="Constant">0x18</span> <span id="L179" class="LineNr">179 </span> <span class="muComment"># print exponent</span> <span id="L180" class="LineNr">180 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"P"</span> <span id="L181" class="LineNr">181 </span> compare exponent, <span class="Constant">0</span> @@ -243,8 +243,8 @@ if ('onhashchange' in window) { <span id="L183" class="LineNr">183 </span> <span class="PreProc">break-if->=</span> <span id="L184" class="LineNr">184 </span> <a href='405screen.mu.html#L169'>print-string</a> <a href='405screen.mu.html#L9'>screen</a>, <span class="Constant">"-"</span> <span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> exp-magnitude/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='406int32.mu.html#L31'>abs</a> exponent -<span id="L187" class="LineNr">187 </span> <a href='405screen.mu.html#L458'>print-int32-hex-bits</a> <a href='405screen.mu.html#L9'>screen</a>, exp-magnitude, <span class="Constant">8</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> exp-magnitude/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='406int32.mu.html#L31'>abs</a> exponent +<span id="L187" class="LineNr">187 </span> <a href='405screen.mu.html#L462'>print-int32-hex-bits</a> <a href='405screen.mu.html#L9'>screen</a>, exp-magnitude, <span class="Constant">8</span> <span id="L188" class="LineNr">188 </span><span class="Delimiter">}</span> <span id="L189" class="LineNr">189 </span> <span id="L190" class="LineNr">190 </span><span class="CommentedCode">#? fn main -> _/ebx: int {</span> diff --git a/html/410file.mu.html b/html/linux/410file.mu.html index 6ff29a66..da7bdbb4 100644 --- a/html/410file.mu.html +++ b/html/linux/410file.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 410file.mu</title> +<title>Mu - linux/410file.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -55,22 +54,22 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/410file.mu'>https://github.com/akkartik/mu/blob/main/410file.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/410file.mu'>https://github.com/akkartik/mu/blob/main/linux/410file.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='410file.mu.html#L1'>read-lines</a></span> in: (addr buffered-file), out: (addr handle array (handle array byte)) <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> stream: (stream (handle array byte) <span class="Constant">0x10</span>) -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> stream-a/<span class="Constant">edi</span>: (addr stream (handle array byte)) <span class="SpecialChar"><-</span> address stream +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> stream-a/<span class="Constant">edi</span>: (addr stream (handle array byte)) <span class="Special"><-</span> address stream <span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> line: (stream byte <span class="Constant">0x10</span>) -<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> line-a/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> line-a/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address line <span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> <span id="L7" class="LineNr"> 7 </span> <a href='106stream.subx.html#L17'>clear-stream</a> line-a <span id="L8" class="LineNr"> 8 </span> <a href='122read-line.subx.html#L9'>read-line-buffered</a> in, line-a -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> line-a -<span id="L10" class="LineNr">10 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> line-a +<span id="L10" class="LineNr">10 </span> compare done?, <span class="Constant">0</span>/false <span id="L11" class="LineNr">11 </span> <span class="PreProc">break-if-!=</span> <span id="L12" class="LineNr">12 </span><span class="CommentedCode">#? print-string 0, "AAA\n"</span> <span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> h: (handle array byte) -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address h +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address h <span id="L15" class="LineNr">15 </span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> line-a, ah <span id="L16" class="LineNr">16 </span> <a href='309stream.subx.html#L54'>write-to-stream</a> stream-a, ah <span id="L17" class="LineNr">17 </span> <span class="PreProc">loop</span> diff --git a/html/baremetal/411string.mu.html b/html/linux/411string.mu.html index 46b70129..a14542c9 100644 --- a/html/baremetal/411string.mu.html +++ b/html/linux/411string.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/411string.mu</title> +<title>Mu - linux/411string.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,10 +15,10 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } @@ -56,41 +56,41 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/411string.mu'>https://github.com/akkartik/mu/blob/main/baremetal/411string.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/411string.mu'>https://github.com/akkartik/mu/blob/main/linux/411string.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># read up to 'len' graphemes after skipping the first 'start' ones</span> <span id="L2" class="LineNr"> 2 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L2'>substring</a></span> in: (addr array byte), start: int, len: int, out-ah: (addr handle array byte) <span class="Delimiter">{</span> <span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-stream -<span id="L5" class="LineNr"> 5 </span> <a href='108write.subx.html#L11'>write</a> in-stream-addr, in +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream +<span id="L5" class="LineNr"> 5 </span> <a href='108write.subx.html#L24'>write</a> in-stream-addr, in <span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> out-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> out-stream-addr/<span class="Constant">edi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address out-stream +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> out-stream-addr/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-stream <span id="L8" class="LineNr"> 8 </span> $substring:core: <span class="Delimiter">{</span> <span id="L9" class="LineNr"> 9 </span> <span class="muComment"># skip 'start' graphemes</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> <span id="L12" class="LineNr"> 12 </span> compare i, start <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">break-if->=</span> <span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> in-stream-addr +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr <span id="L16" class="LineNr"> 16 </span> compare dummy, <span class="Constant">0xffffffff</span>/end-of-file <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-=</span> $substring:core <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">}</span> -<span id="L19" class="LineNr"> 19 </span> i <span class="SpecialChar"><-</span> increment +<span id="L19" class="LineNr"> 19 </span> i <span class="Special"><-</span> increment <span id="L20" class="LineNr"> 20 </span> <span class="PreProc">loop</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> <span class="muComment"># copy 'len' graphemes</span> -<span id="L23" class="LineNr"> 23 </span> i <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L23" class="LineNr"> 23 </span> i <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> compare i, len <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">break-if->=</span> <span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> in-stream-addr +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr <span id="L29" class="LineNr"> 29 </span> compare g, <span class="Constant">0xffffffff</span>/end-of-file <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-=</span> $substring:core -<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L176'>write-grapheme</a> out-stream-addr, g +<span id="L31" class="LineNr"> 31 </span> <a href='403unicode.mu.html#L372'>write-grapheme</a> out-stream-addr, g <span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> -<span id="L33" class="LineNr"> 33 </span> i <span class="SpecialChar"><-</span> increment +<span id="L33" class="LineNr"> 33 </span> i <span class="Special"><-</span> increment <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">loop</span> <span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">}</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">}</span> @@ -99,62 +99,62 @@ if ('onhashchange' in window) { <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muTest"><a href='411string.mu.html#L40'>test-substring</a></span> <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> out-h: (handle array byte) -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address out-h +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array byte) <span class="Special"><-</span> address out-h <span id="L43" class="LineNr"> 43 </span> <span class="muComment"># prefix substrings</span> <span id="L44" class="LineNr"> 44 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">0</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L46" class="LineNr"> 46 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/null"</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L46" class="LineNr"> 46 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/null"</span> <span id="L47" class="LineNr"> 47 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">""</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah <span id="L49" class="LineNr"> 49 </span><span class="CommentedCode">#? print-string-to-real-screen out</span> <span id="L50" class="LineNr"> 50 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L51" class="LineNr"> 51 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/empty"</span> +<span id="L51" class="LineNr"> 51 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/empty"</span> <span id="L52" class="LineNr"> 52 </span> <span class="muComment">#</span> <span id="L53" class="LineNr"> 53 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">3</span>, out-ah -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah <span id="L55" class="LineNr"> 55 </span><span class="CommentedCode">#? print-string-to-real-screen out</span> <span id="L56" class="LineNr"> 56 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L57" class="LineNr"> 57 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/truncate"</span> +<span id="L57" class="LineNr"> 57 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/truncate"</span> <span id="L58" class="LineNr"> 58 </span> <span class="muComment">#</span> <span id="L59" class="LineNr"> 59 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">5</span>, out-ah -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L61" class="LineNr"> 61 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/all"</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L61" class="LineNr"> 61 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/all"</span> <span id="L62" class="LineNr"> 62 </span> <span class="muComment">#</span> <span id="L63" class="LineNr"> 63 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">0</span>, <span class="Constant">7</span>, out-ah -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L65" class="LineNr"> 65 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/too-small"</span> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L65" class="LineNr"> 65 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"abcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/too-small"</span> <span id="L66" class="LineNr"> 66 </span> <span class="muComment"># substrings outside string</span> <span id="L67" class="LineNr"> 67 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">6</span>, <span class="Constant">1</span>, out-ah -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L69" class="LineNr"> 69 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/start-too-large"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L69" class="LineNr"> 69 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/start-too-large"</span> <span id="L70" class="LineNr"> 70 </span> <span class="muComment"># trim prefix</span> <span id="L71" class="LineNr"> 71 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">""</span>, <span class="Constant">2</span>, <span class="Constant">3</span>, out-ah -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L73" class="LineNr"> 73 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-empty"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L73" class="LineNr"> 73 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">""</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-empty"</span> <span id="L74" class="LineNr"> 74 </span> <span class="muComment">#</span> <span id="L75" class="LineNr"> 75 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">2</span>, out-ah -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L77" class="LineNr"> 77 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-truncate"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L77" class="LineNr"> 77 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"bc"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-truncate"</span> <span id="L78" class="LineNr"> 78 </span> <span class="muComment">#</span> <span id="L79" class="LineNr"> 79 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">4</span>, out-ah -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L81" class="LineNr"> 81 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-all"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L81" class="LineNr"> 81 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-all"</span> <span id="L82" class="LineNr"> 82 </span> <span class="muComment">#</span> <span id="L83" class="LineNr"> 83 </span> <a href='411string.mu.html#L2'>substring</a> <span class="Constant">"abcde"</span>, <span class="Constant">1</span>, <span class="Constant">5</span>, out-ah -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *out-ah -<span id="L85" class="LineNr"> 85 </span> <a href='105string-equal.subx.html#L213'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L85" class="LineNr"> 85 </span> <a href='105string-equal.subx.html#L220'>check-strings-equal</a> out, <span class="Constant">"bcde"</span>, <span class="Constant">"F - <a href='411string.mu.html#L40'>test-substring</a>/middle-too-small"</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> <span id="L87" class="LineNr"> 87 </span> <span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='411string.mu.html#L88'>split-string</a></span> in: (addr array byte), delim: grapheme, out: (addr handle array (handle array byte)) <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-stream -<span id="L91" class="LineNr"> 91 </span> <a href='108write.subx.html#L11'>write</a> in-stream-addr, in +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> in-stream-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream +<span id="L91" class="LineNr"> 91 </span> <a href='108write.subx.html#L24'>write</a> in-stream-addr, in <span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> tokens-stream: (stream (handle array byte) <span class="Constant">0x100</span>) -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> tokens-stream-addr/<span class="Constant">edi</span>: (addr stream (handle array byte)) <span class="SpecialChar"><-</span> address tokens-stream +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> tokens-stream-addr/<span class="Constant">edi</span>: (addr stream (handle array byte)) <span class="Special"><-</span> address tokens-stream <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> curr-stream: (stream byte <span class="Constant">0x100</span>) -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-stream-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address curr-stream +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> curr-stream-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address curr-stream <span id="L96" class="LineNr"> 96 </span> $split-string:core: <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='403unicode.mu.html#L92'>read-grapheme</a> in-stream-addr +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='403unicode.mu.html#L158'>read-grapheme</a> in-stream-addr <span id="L98" class="LineNr"> 98 </span> compare g, <span class="Constant">0xffffffff</span> <span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-=</span> <span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-grapheme-to-real-screen g</span> @@ -164,13 +164,13 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr">104 </span> <span class="PreProc">break-if-!=</span> <span id="L105" class="LineNr">105 </span> <span class="muComment"># token complete; flush</span> <span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> token: (handle array byte) -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> token-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address token +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> token-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address token <span id="L108" class="LineNr">108 </span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream-addr, token-ah <span id="L109" class="LineNr">109 </span> <a href='309stream.subx.html#L54'>write-to-stream</a> tokens-stream-addr, token-ah -<span id="L110" class="LineNr">110 </span> <a href='106stream.subx.html#L20'>clear-stream</a> curr-stream-addr +<span id="L110" class="LineNr">110 </span> <a href='106stream.subx.html#L17'>clear-stream</a> curr-stream-addr <span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> $split-string:core <span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> -<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L176'>write-grapheme</a> curr-stream-addr, g +<span id="L113" class="LineNr">113 </span> <a href='403unicode.mu.html#L372'>write-grapheme</a> curr-stream-addr, g <span id="L114" class="LineNr">114 </span> <span class="PreProc">loop</span> <span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> <a href='310copy-bytes.subx.html#L60'>stream-to-array</a> tokens-stream-addr, out @@ -178,7 +178,7 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span> <span id="L119" class="LineNr">119 </span><span class="PreProc">fn</span> <span class="muTest"><a href='411string.mu.html#L119'>test-split-string</a></span> <span class="Delimiter">{</span> <span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> out-h: (handle array (handle array byte)) -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array (handle array byte)) <span class="SpecialChar"><-</span> address out-h +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array (handle array byte)) <span class="Special"><-</span> address out-h <span id="L122" class="LineNr">122 </span> <span class="muComment"># prefix substrings</span> <span id="L123" class="LineNr">123 </span> <a href='411string.mu.html#L88'>split-string</a> <span class="Constant">"bab"</span>, <span class="Constant">0x61</span>, out-ah <span id="L124" class="LineNr">124 </span> <span class="muComment"># no crash</span> diff --git a/html/linux/412print-float-decimal.mu.html b/html/linux/412print-float-decimal.mu.html new file mode 100644 index 00000000..786fee4d --- /dev/null +++ b/html/linux/412print-float-decimal.mu.html @@ -0,0 +1,705 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/412print-float-decimal.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Delimiter { color: #c000c0; } +.Special { color: #ff6060; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/412print-float-decimal.mu'>https://github.com/akkartik/mu/blob/main/linux/412print-float-decimal.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># print out floats in decimal</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Basic idea:</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># Ignoring sign, floating point numbers are represented as 1.mantissa * 2^exponent</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Therefore, to print a float in decimal, we need to:</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># - compute its value without decimal point</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># - convert to an array of decimal digits</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># - print out the array while inserting the decimal point appropriately</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment">#</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># Basic complication: the computation generates numbers larger than an int can</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># hold. We need a way to represent big ints.</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment">#</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># Key insight: use a representation for big ints that's close to what we need</span> +<span id="L15" class="LineNr"> 15 </span><span class="muComment"># anyway, an array of decimal digits.</span> +<span id="L16" class="LineNr"> 16 </span><span class="muComment">#</span> +<span id="L17" class="LineNr"> 17 </span><span class="muComment"># Style note: we aren't creating a big int library here. The only operations</span> +<span id="L18" class="LineNr"> 18 </span><span class="muComment"># we need are halving and doubling. Following the link above, it seems more</span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment"># comprehensible to keep these operations inlined so that we can track the</span> +<span id="L20" class="LineNr"> 20 </span><span class="muComment"># position of the decimal point with dispatch.</span> +<span id="L21" class="LineNr"> 21 </span><span class="muComment">#</span> +<span id="L22" class="LineNr"> 22 </span><span class="muComment"># This approach turns out to be fast enough for most purposes.</span> +<span id="L23" class="LineNr"> 23 </span><span class="muComment"># Optimizations, however, get wildly more complex.</span> +<span id="L24" class="LineNr"> 24 </span> +<span id="L25" class="LineNr"> 25 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a></span> <span class="Delimiter">{</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L28" class="LineNr"> 28 </span> <span class="muComment"># 0.5</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> half/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L30" class="LineNr"> 30 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, half, <span class="Constant">3</span> +<span id="L31" class="LineNr"> 31 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.5"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.5"</span> +<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># 0.25</span> +<span id="L33" class="LineNr"> 33 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> quarter/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">4</span> +<span id="L35" class="LineNr"> 35 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, quarter, <span class="Constant">3</span> +<span id="L36" class="LineNr"> 36 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.25"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.25"</span> +<span id="L37" class="LineNr"> 37 </span> <span class="muComment"># 0.75</span> +<span id="L38" class="LineNr"> 38 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> three-quarters/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">3</span>, <span class="Constant">4</span> +<span id="L40" class="LineNr"> 40 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, three-quarters, <span class="Constant">3</span> +<span id="L41" class="LineNr"> 41 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.75"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.75"</span> +<span id="L42" class="LineNr"> 42 </span> <span class="muComment"># 0.125</span> +<span id="L43" class="LineNr"> 43 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> eighth/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">8</span> +<span id="L45" class="LineNr"> 45 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, eighth, <span class="Constant">3</span> +<span id="L46" class="LineNr"> 46 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0.125"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.125"</span> +<span id="L47" class="LineNr"> 47 </span> <span class="muComment"># 0.0625; start using scientific notation</span> +<span id="L48" class="LineNr"> 48 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> sixteenth/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">0x10</span> +<span id="L50" class="LineNr"> 50 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, sixteenth, <span class="Constant">3</span> +<span id="L51" class="LineNr"> 51 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"6.25e-2"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> 0.0625"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># sqrt(2); truncate floats with lots of digits after the decimal but not too many before</span> +<span id="L53" class="LineNr"> 53 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> sqrt-2/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> square-root two-f +<span id="L56" class="LineNr"> 56 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, sqrt-2, <span class="Constant">3</span> +<span id="L57" class="LineNr"> 57 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1.414"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L25'>test-write-float-decimal-approximate-normal</a> √2"</span> +<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="muComment"># print whole integers without decimals</span> +<span id="L61" class="LineNr"> 61 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a></span> <span class="Delimiter">{</span> +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L64" class="LineNr"> 64 </span> <span class="muComment"># 1</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L66" class="LineNr"> 66 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, one-f, <span class="Constant">3</span> +<span id="L67" class="LineNr"> 67 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 1"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="muComment"># 2</span> +<span id="L69" class="LineNr"> 69 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">2</span>, <span class="Constant">1</span> +<span id="L71" class="LineNr"> 71 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, two-f, <span class="Constant">3</span> +<span id="L72" class="LineNr"> 72 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"2"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 2"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="muComment"># 10</span> +<span id="L74" class="LineNr"> 74 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0xa</span>, <span class="Constant">1</span> +<span id="L76" class="LineNr"> 76 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, ten-f, <span class="Constant">3</span> +<span id="L77" class="LineNr"> 77 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"10"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 10"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="muComment"># -10</span> +<span id="L79" class="LineNr"> 79 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">-0xa</span>, <span class="Constant">1</span> +<span id="L81" class="LineNr"> 81 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, minus-ten-f, <span class="Constant">3</span> +<span id="L82" class="LineNr"> 82 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"-10"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> -10"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="muComment"># 999</span> +<span id="L84" class="LineNr"> 84 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e7</span>, <span class="Constant">1</span> +<span id="L86" class="LineNr"> 86 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, minus-ten-f, <span class="Constant">3</span> +<span id="L87" class="LineNr"> 87 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"999"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 1000"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="muComment"># 1000 - start using scientific notation</span> +<span id="L89" class="LineNr"> 89 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> minus-ten-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='408float.mu.html#L18'>rational</a> <span class="Constant">0x3e8</span>, <span class="Constant">1</span> +<span id="L91" class="LineNr"> 91 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, minus-ten-f, <span class="Constant">3</span> +<span id="L92" class="LineNr"> 92 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1.00e3"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 1000"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="muComment"># 100,000</span> +<span id="L94" class="LineNr"> 94 </span> <a href='106stream.subx.html#L17'>clear-stream</a> s +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> hundred-thousand/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0x186a0</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> hundred-thousand-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert hundred-thousand +<span id="L97" class="LineNr"> 97 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, hundred-thousand-f, <span class="Constant">3</span> +<span id="L98" class="LineNr"> 98 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"1.00e5"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L61'>test-write-float-decimal-approximate-integer</a> 100,000"</span> +<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L101'>test-write-float-decimal-approximate-zero</a></span> <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> zero: float +<span id="L105" class="LineNr">105 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, zero, <span class="Constant">3</span> +<span id="L106" class="LineNr">106 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"0"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-zero"</span> +<span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> +<span id="L109" class="LineNr">109 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L109'>test-write-float-decimal-approximate-negative-zero</a></span> <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> n: int +<span id="L113" class="LineNr">113 </span> copy-to n, <span class="Constant">0x80000000</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> negative-zero/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L115" class="LineNr">115 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, negative-zero, <span class="Constant">3</span> +<span id="L116" class="LineNr">116 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"-0"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-negative-zero"</span> +<span id="L117" class="LineNr">117 </span><span class="Delimiter">}</span> +<span id="L118" class="LineNr">118 </span> +<span id="L119" class="LineNr">119 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L119'>test-write-float-decimal-approximate-infinity</a></span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> n: int +<span id="L123" class="LineNr">123 </span> <span class="muComment"># 0|11111111|00000000000000000000000</span> +<span id="L124" class="LineNr">124 </span> <span class="muComment"># 0111|1111|1000|0000|0000|0000|0000|0000</span> +<span id="L125" class="LineNr">125 </span> copy-to n, <span class="Constant">0x7f800000</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> infinity/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L127" class="LineNr">127 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, infinity, <span class="Constant">3</span> +<span id="L128" class="LineNr">128 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"Inf"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-infinity"</span> +<span id="L129" class="LineNr">129 </span><span class="Delimiter">}</span> +<span id="L130" class="LineNr">130 </span> +<span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L131'>test-write-float-decimal-approximate-negative-infinity</a></span> <span class="Delimiter">{</span> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> n: int +<span id="L135" class="LineNr">135 </span> copy-to n, <span class="Constant">0xff800000</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> negative-infinity/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L137" class="LineNr">137 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, negative-infinity, <span class="Constant">3</span> +<span id="L138" class="LineNr">138 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"-Inf"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-negative-infinity"</span> +<span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> +<span id="L140" class="LineNr">140 </span> +<span id="L141" class="LineNr">141 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L141'>test-write-float-decimal-approximate-not-a-number</a></span> <span class="Delimiter">{</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> n: int +<span id="L145" class="LineNr">145 </span> copy-to n, <span class="Constant">0xffffffff</span> <span class="muComment"># exponent must be all 1's, and mantissa must be non-zero</span> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> nan/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> reinterpret n +<span id="L147" class="LineNr">147 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, nan, <span class="Constant">3</span> +<span id="L148" class="LineNr">148 </span> <a href='109stream-equal.subx.html#L194'>check-stream-equal</a> s, <span class="Constant">"NaN"</span>, <span class="Constant">"F - test-write-float-decimal-approximate-not-a-number"</span> +<span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> +<span id="L150" class="LineNr">150 </span> +<span id="L151" class="LineNr">151 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L151'>print-float-decimal-approximate</a></span> <a href='405screen.mu.html#L9'>screen</a>: (addr <a href='405screen.mu.html#L9'>screen</a>), in: float, precision: int <span class="Delimiter">{</span> +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> s/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L154" class="LineNr">154 </span> <a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a> s, in, precision +<span id="L155" class="LineNr">155 </span> <a href='405screen.mu.html#L183'>print-stream</a> <a href='405screen.mu.html#L9'>screen</a>, s +<span id="L156" class="LineNr">156 </span><span class="Delimiter">}</span> +<span id="L157" class="LineNr">157 </span> +<span id="L158" class="LineNr">158 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> +<span id="L159" class="LineNr">159 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L159'>write-float-decimal-approximate</a></span> out: (addr stream byte), in: float, precision: int <span class="Delimiter">{</span> +<span id="L160" class="LineNr">160 </span> <span class="muComment"># - special names</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="Special"><-</span> reinterpret in +<span id="L162" class="LineNr">162 </span> compare bits, <span class="Constant">0</span> +<span id="L163" class="LineNr">163 </span> <span class="Delimiter">{</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-!=</span> +<span id="L165" class="LineNr">165 </span> <a href='108write.subx.html#L24'>write</a> out, <span class="Constant">"0"</span> +<span id="L166" class="LineNr">166 </span> <span class="PreProc">return</span> +<span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> +<span id="L168" class="LineNr">168 </span> compare bits, <span class="Constant">0x80000000</span> +<span id="L169" class="LineNr">169 </span> <span class="Delimiter">{</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-!=</span> +<span id="L171" class="LineNr">171 </span> <a href='108write.subx.html#L24'>write</a> out, <span class="Constant">"-0"</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">return</span> +<span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> +<span id="L174" class="LineNr">174 </span> compare bits, <span class="Constant">0x7f800000</span> +<span id="L175" class="LineNr">175 </span> <span class="Delimiter">{</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-!=</span> +<span id="L177" class="LineNr">177 </span> <a href='108write.subx.html#L24'>write</a> out, <span class="Constant">"Inf"</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">return</span> +<span id="L179" class="LineNr">179 </span> <span class="Delimiter">}</span> +<span id="L180" class="LineNr">180 </span> compare bits, <span class="Constant">0xff800000</span> +<span id="L181" class="LineNr">181 </span> <span class="Delimiter">{</span> +<span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-!=</span> +<span id="L183" class="LineNr">183 </span> <a href='108write.subx.html#L24'>write</a> out, <span class="Constant">"-Inf"</span> +<span id="L184" class="LineNr">184 </span> <span class="PreProc">return</span> +<span id="L185" class="LineNr">185 </span> <span class="Delimiter">}</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bits +<span id="L187" class="LineNr">187 </span> exponent <span class="Special"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> +<span id="L188" class="LineNr">188 </span> exponent <span class="Special"><-</span> and <span class="Constant">0xff</span> +<span id="L189" class="LineNr">189 </span> exponent <span class="Special"><-</span> subtract <span class="Constant">0x7f</span> +<span id="L190" class="LineNr">190 </span> compare exponent, <span class="Constant">0x80</span> +<span id="L191" class="LineNr">191 </span> <span class="Delimiter">{</span> +<span id="L192" class="LineNr">192 </span> <span class="PreProc">break-if-!=</span> +<span id="L193" class="LineNr">193 </span> <a href='108write.subx.html#L24'>write</a> out, <span class="Constant">"NaN"</span> +<span id="L194" class="LineNr">194 </span> <span class="PreProc">return</span> +<span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> +<span id="L196" class="LineNr">196 </span> <span class="muComment"># - regular numbers</span> +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy bits +<span id="L198" class="LineNr">198 </span> sign <span class="Special"><-</span> shift-right <span class="Constant">0x1f</span> +<span id="L199" class="LineNr">199 </span> <span class="Delimiter">{</span> +<span id="L200" class="LineNr">200 </span> compare sign, <span class="Constant">1</span> +<span id="L201" class="LineNr">201 </span> <span class="PreProc">break-if-!=</span> +<span id="L202" class="LineNr">202 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, <span class="Constant">0x2d</span>/minus +<span id="L203" class="LineNr">203 </span> <span class="Delimiter">}</span> +<span id="L204" class="LineNr">204 </span> +<span id="L205" class="LineNr">205 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy bits +<span id="L207" class="LineNr">207 </span> v <span class="Special"><-</span> and <span class="Constant">0x7fffff</span> +<span id="L208" class="LineNr">208 </span> v <span class="Special"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> +<span id="L209" class="LineNr">209 </span> <span class="muComment"># e = exponent - 0x17</span> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy exponent +<span id="L211" class="LineNr">211 </span> e <span class="Special"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> +<span id="L212" class="LineNr">212 </span> +<span id="L213" class="LineNr">213 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> +<span id="L214" class="LineNr">214 </span> <span class="muComment"># unlike <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a>, no ascii here</span> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> address buf-storage +<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='412print-float-decimal.mu.html#L247'>decimal-digits</a> v, buf +<span id="L218" class="LineNr">218 </span> <span class="muComment"># I suspect we can do without reversing, but we'll follow <a href="https://research.swtch.com/ftoa">https://research.swtch.com/ftoa</a></span> +<span id="L219" class="LineNr">219 </span> <span class="muComment"># closely for now.</span> +<span id="L220" class="LineNr">220 </span> <a href='412print-float-decimal.mu.html#L264'>reverse-digits</a> buf, n +<span id="L221" class="LineNr">221 </span> +<span id="L222" class="LineNr">222 </span> <span class="muComment"># loop if e > 0</span> +<span id="L223" class="LineNr">223 </span> <span class="Delimiter">{</span> +<span id="L224" class="LineNr">224 </span> compare e, <span class="Constant">0</span> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">break-if-<=</span> +<span id="L226" class="LineNr">226 </span> n <span class="Special"><-</span> <a href='412print-float-decimal.mu.html#L307'>double-array-of-decimal-digits</a> buf, n +<span id="L227" class="LineNr">227 </span> e <span class="Special"><-</span> decrement +<span id="L228" class="LineNr">228 </span> <span class="PreProc">loop</span> +<span id="L229" class="LineNr">229 </span> <span class="Delimiter">}</span> +<span id="L230" class="LineNr">230 </span> +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy n +<span id="L232" class="LineNr">232 </span> +<span id="L233" class="LineNr">233 </span> <span class="muComment"># loop if e < 0</span> +<span id="L234" class="LineNr">234 </span> <span class="Delimiter">{</span> +<span id="L235" class="LineNr">235 </span> compare e, <span class="Constant">0</span> +<span id="L236" class="LineNr">236 </span> <span class="PreProc">break-if->=</span> +<span id="L237" class="LineNr">237 </span> n, dp <span class="Special"><-</span> <a href='412print-float-decimal.mu.html#L358'>halve-array-of-decimal-digits</a> buf, n, dp +<span id="L238" class="LineNr">238 </span> e <span class="Special"><-</span> increment +<span id="L239" class="LineNr">239 </span> <span class="PreProc">loop</span> +<span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> +<span id="L241" class="LineNr">241 </span> +<span id="L242" class="LineNr">242 </span> <a href='412print-float-decimal.mu.html#L432'>_write-float-array-of-decimal-digits</a> out, buf, n, dp, precision +<span id="L243" class="LineNr">243 </span><span class="Delimiter">}</span> +<span id="L244" class="LineNr">244 </span> +<span id="L245" class="LineNr">245 </span><span class="muComment"># store the decimal digits of 'n' into 'buf', units first</span> +<span id="L246" class="LineNr">246 </span><span class="muComment"># n must be positive</span> +<span id="L247" class="LineNr">247 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L247'>decimal-digits</a></span> n: int, _buf: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy n +<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> curr-byte/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> +<span id="L253" class="LineNr">253 </span> compare curr, <span class="Constant">0</span> +<span id="L254" class="LineNr">254 </span> <span class="PreProc">break-if-=</span> +<span id="L255" class="LineNr">255 </span> curr, curr-byte <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> curr, <span class="Constant">0xa</span> +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L257" class="LineNr">257 </span> copy-byte-to *dest, curr-byte +<span id="L258" class="LineNr">258 </span> i <span class="Special"><-</span> increment +<span id="L259" class="LineNr">259 </span> <span class="PreProc">loop</span> +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">return</span> i +<span id="L262" class="LineNr">262 </span><span class="Delimiter">}</span> +<span id="L263" class="LineNr">263 </span> +<span id="L264" class="LineNr">264 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L264'>reverse-digits</a></span> _buf: (addr array byte), n: int <span class="Delimiter">{</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> buf/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy n +<span id="L268" class="LineNr">268 </span> right <span class="Special"><-</span> decrement +<span id="L269" class="LineNr">269 </span> <span class="Delimiter">{</span> +<span id="L270" class="LineNr">270 </span> compare left, right +<span id="L271" class="LineNr">271 </span> <span class="PreProc">break-if->=</span> +<span id="L272" class="LineNr">272 </span> <span class="Delimiter">{</span> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> l-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, left +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> r-a/<span class="Constant">edx</span>: (addr byte) <span class="Special"><-</span> index buf, right +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> l/<span class="Constant">ebx</span>: byte <span class="Special"><-</span> copy-byte *l-a +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *r-a +<span id="L277" class="LineNr">277 </span> copy-byte-to *l-a, r +<span id="L278" class="LineNr">278 </span> copy-byte-to *r-a, l +<span id="L279" class="LineNr">279 </span> <span class="Delimiter">}</span> +<span id="L280" class="LineNr">280 </span> left <span class="Special"><-</span> increment +<span id="L281" class="LineNr">281 </span> right <span class="Special"><-</span> decrement +<span id="L282" class="LineNr">282 </span> <span class="PreProc">loop</span> +<span id="L283" class="LineNr">283 </span> <span class="Delimiter">}</span> +<span id="L284" class="LineNr">284 </span><span class="Delimiter">}</span> +<span id="L285" class="LineNr">285 </span> +<span id="L286" class="LineNr">286 </span><span class="muComment"># debug helper</span> +<span id="L287" class="LineNr">287 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L287'>dump-digits</a></span> _buf: (addr array byte), count: int, msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L290" class="LineNr">290 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, msg +<span id="L291" class="LineNr">291 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">": "</span> +<span id="L292" class="LineNr">292 </span> <span class="Delimiter">{</span> +<span id="L293" class="LineNr">293 </span> compare i, count +<span id="L294" class="LineNr">294 </span> <span class="PreProc">break-if->=</span> +<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> curr-byte/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *curr +<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> curr-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy curr-byte +<span id="L298" class="LineNr">298 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, curr-int +<span id="L299" class="LineNr">299 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L300" class="LineNr">300 </span> <span class="PreProc">break-if-=</span> +<span id="L301" class="LineNr">301 </span> i <span class="Special"><-</span> increment +<span id="L302" class="LineNr">302 </span> <span class="PreProc">loop</span> +<span id="L303" class="LineNr">303 </span> <span class="Delimiter">}</span> +<span id="L304" class="LineNr">304 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L305" class="LineNr">305 </span><span class="Delimiter">}</span> +<span id="L306" class="LineNr">306 </span> +<span id="L307" class="LineNr">307 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L307'>double-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L309" class="LineNr">309 </span> <span class="muComment"># initialize delta</span> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> delta/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L311" class="LineNr">311 </span> <span class="Delimiter">{</span> +<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index buf, <span class="Constant">0</span> +<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *curr +<span id="L314" class="LineNr">314 </span> compare tmp, <span class="Constant">5</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">break-if-<</span> +<span id="L316" class="LineNr">316 </span> delta <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L317" class="LineNr">317 </span> <span class="Delimiter">}</span> +<span id="L318" class="LineNr">318 </span> <span class="muComment"># loop</span> +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _n +<span id="L321" class="LineNr">321 </span> i <span class="Special"><-</span> decrement +<span id="L322" class="LineNr">322 </span> <span class="Delimiter">{</span> +<span id="L323" class="LineNr">323 </span> compare i, <span class="Constant">0</span> +<span id="L324" class="LineNr">324 </span> <span class="PreProc">break-if-<=</span> +<span id="L325" class="LineNr">325 </span> <span class="muComment"># x += 2*buf[i]</span> +<span id="L326" class="LineNr">326 </span> <span class="Delimiter">{</span> +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *tmp +<span id="L329" class="LineNr">329 </span> x <span class="Special"><-</span> add tmp2 +<span id="L330" class="LineNr">330 </span> x <span class="Special"><-</span> add tmp2 +<span id="L331" class="LineNr">331 </span> <span class="Delimiter">}</span> +<span id="L332" class="LineNr">332 </span> <span class="muComment"># x, buf[i+delta] = x/10, x%10</span> +<span id="L333" class="LineNr">333 </span> <span class="Delimiter">{</span> +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> dest-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy i +<span id="L335" class="LineNr">335 </span> dest-index <span class="Special"><-</span> add delta +<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr byte) <span class="Special"><-</span> index buf, dest-index +<span id="L337" class="LineNr">337 </span> <span class="PreProc">var</span> next-digit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L338" class="LineNr">338 </span> x, next-digit <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">0xa</span> +<span id="L339" class="LineNr">339 </span> copy-byte-to *dest, next-digit +<span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> +<span id="L341" class="LineNr">341 </span> <span class="muComment">#</span> +<span id="L342" class="LineNr">342 </span> i <span class="Special"><-</span> decrement +<span id="L343" class="LineNr">343 </span> <span class="PreProc">loop</span> +<span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> +<span id="L345" class="LineNr">345 </span> <span class="muComment"># final patch-up</span> +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _n +<span id="L347" class="LineNr">347 </span> compare delta, <span class="Constant">1</span> +<span id="L348" class="LineNr">348 </span> <span class="Delimiter">{</span> +<span id="L349" class="LineNr">349 </span> <span class="PreProc">break-if-!=</span> +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index buf, <span class="Constant">0</span> +<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> one/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L352" class="LineNr">352 </span> copy-byte-to *curr, one +<span id="L353" class="LineNr">353 </span> n <span class="Special"><-</span> increment +<span id="L354" class="LineNr">354 </span> <span class="Delimiter">}</span> +<span id="L355" class="LineNr">355 </span> <span class="PreProc">return</span> n +<span id="L356" class="LineNr">356 </span><span class="Delimiter">}</span> +<span id="L357" class="LineNr">357 </span> +<span id="L358" class="LineNr">358 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L358'>halve-array-of-decimal-digits</a></span> _buf: (addr array byte), _n: int, _dp: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _n +<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _dp +<span id="L362" class="LineNr">362 </span> <span class="muComment"># initialize one side</span> +<span id="L363" class="LineNr">363 </span> <span class="Delimiter">{</span> +<span id="L364" class="LineNr">364 </span> <span class="muComment"># if buf[n-1]%2 == 0, break</span> +<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> right-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy n +<span id="L366" class="LineNr">366 </span> right-index <span class="Special"><-</span> decrement +<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> right-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, right-index +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *right-a +<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> right-int/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy right +<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L371" class="LineNr">371 </span> <span class="Delimiter">{</span> +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L373" class="LineNr">373 </span> dummy, remainder <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> right-int, <span class="Constant">2</span> +<span id="L374" class="LineNr">374 </span> <span class="Delimiter">}</span> +<span id="L375" class="LineNr">375 </span> compare remainder, <span class="Constant">0</span> +<span id="L376" class="LineNr">376 </span> <span class="PreProc">break-if-=</span> +<span id="L377" class="LineNr">377 </span> <span class="muComment"># buf[n] = 0</span> +<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> next-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, n +<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> zero/<span class="Constant">edx</span>: byte <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L380" class="LineNr">380 </span> copy-byte-to *next-a, zero +<span id="L381" class="LineNr">381 </span> <span class="muComment"># n++</span> +<span id="L382" class="LineNr">382 </span> n <span class="Special"><-</span> increment +<span id="L383" class="LineNr">383 </span> <span class="Delimiter">}</span> +<span id="L384" class="LineNr">384 </span> <span class="muComment"># initialize the other</span> +<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> delta/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L386" class="LineNr">386 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L387" class="LineNr">387 </span> <span class="Delimiter">{</span> +<span id="L388" class="LineNr">388 </span> <span class="muComment"># if buf[0] >= 2, break</span> +<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, <span class="Constant">0</span> +<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *left +<span id="L391" class="LineNr">391 </span> compare src, <span class="Constant">2</span> +<span id="L392" class="LineNr">392 </span> <span class="PreProc">break-if->=</span> +<span id="L393" class="LineNr">393 </span> <span class="muComment"># delta, x = 1, buf[0]</span> +<span id="L394" class="LineNr">394 </span> delta <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L395" class="LineNr">395 </span> x <span class="Special"><-</span> copy src +<span id="L396" class="LineNr">396 </span> <span class="muComment"># n--</span> +<span id="L397" class="LineNr">397 </span> n <span class="Special"><-</span> decrement +<span id="L398" class="LineNr">398 </span> <span class="muComment"># dp--</span> +<span id="L399" class="LineNr">399 </span> dp <span class="Special"><-</span> decrement +<span id="L400" class="LineNr">400 </span> <span class="Delimiter">}</span> +<span id="L401" class="LineNr">401 </span> <span class="muComment"># loop</span> +<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L403" class="LineNr">403 </span> <span class="Delimiter">{</span> +<span id="L404" class="LineNr">404 </span> compare i, n +<span id="L405" class="LineNr">405 </span> <span class="PreProc">break-if->=</span> +<span id="L406" class="LineNr">406 </span> <span class="muComment"># x = x*10 + buf[i+delta]</span> +<span id="L407" class="LineNr">407 </span> <span class="Delimiter">{</span> +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> ten/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xa</span> +<span id="L409" class="LineNr">409 </span> x <span class="Special"><-</span> multiply ten +<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> src-index/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy i +<span id="L411" class="LineNr">411 </span> src-index <span class="Special"><-</span> add delta +<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> src-a/<span class="Constant">edx</span>: (addr byte) <span class="Special"><-</span> index buf, src-index +<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: byte <span class="Special"><-</span> copy-byte *src-a +<span id="L414" class="LineNr">414 </span> x <span class="Special"><-</span> add src +<span id="L415" class="LineNr">415 </span> <span class="Delimiter">}</span> +<span id="L416" class="LineNr">416 </span> <span class="muComment"># buf[i], x = x/2, x%2</span> +<span id="L417" class="LineNr">417 </span> <span class="Delimiter">{</span> +<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> quotient/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L420" class="LineNr">420 </span> quotient, remainder <span class="Special"><-</span> <a href='314divide.subx.html#L3'>integer-divide</a> x, <span class="Constant">2</span> +<span id="L421" class="LineNr">421 </span> x <span class="Special"><-</span> copy remainder +<span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L423" class="LineNr">423 </span> copy-byte-to *dest, quotient +<span id="L424" class="LineNr">424 </span> <span class="Delimiter">}</span> +<span id="L425" class="LineNr">425 </span> <span class="muComment">#</span> +<span id="L426" class="LineNr">426 </span> i <span class="Special"><-</span> increment +<span id="L427" class="LineNr">427 </span> <span class="PreProc">loop</span> +<span id="L428" class="LineNr">428 </span> <span class="Delimiter">}</span> +<span id="L429" class="LineNr">429 </span> <span class="PreProc">return</span> n, dp +<span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> +<span id="L431" class="LineNr">431 </span> +<span id="L432" class="LineNr">432 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L432'>_write-float-array-of-decimal-digits</a></span> out: (addr stream byte), _buf: (addr array byte), n: int, dp: int, precision: int <span class="Delimiter">{</span> +<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L434" class="LineNr">434 </span> <span class="Delimiter">{</span> +<span id="L435" class="LineNr">435 </span> compare dp, <span class="Constant">0</span> +<span id="L436" class="LineNr">436 </span> <span class="PreProc">break-if->=</span> +<span id="L437" class="LineNr">437 </span> <a href='412print-float-decimal.mu.html#L481'>_write-float-array-of-decimal-digits-in-scientific-notation</a> out, buf, n, dp, precision +<span id="L438" class="LineNr">438 </span> <span class="PreProc">return</span> +<span id="L439" class="LineNr">439 </span> <span class="Delimiter">}</span> +<span id="L440" class="LineNr">440 </span> <span class="Delimiter">{</span> +<span id="L441" class="LineNr">441 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy dp +<span id="L442" class="LineNr">442 </span> compare dp2, precision +<span id="L443" class="LineNr">443 </span> <span class="PreProc">break-if-<=</span> +<span id="L444" class="LineNr">444 </span> <a href='412print-float-decimal.mu.html#L481'>_write-float-array-of-decimal-digits-in-scientific-notation</a> out, buf, n, dp, precision +<span id="L445" class="LineNr">445 </span> <span class="PreProc">return</span> +<span id="L446" class="LineNr">446 </span> <span class="Delimiter">}</span> +<span id="L447" class="LineNr">447 </span> <span class="Delimiter">{</span> +<span id="L448" class="LineNr">448 </span> compare dp, <span class="Constant">0</span> +<span id="L449" class="LineNr">449 </span> <span class="PreProc">break-if-!=</span> +<span id="L450" class="LineNr">450 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L451" class="LineNr">451 </span> <span class="Delimiter">}</span> +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L453" class="LineNr">453 </span> <span class="muComment"># bounds = min(n, dp+3)</span> +<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> limit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy dp +<span id="L455" class="LineNr">455 </span> limit <span class="Special"><-</span> add <span class="Constant">3</span> +<span id="L456" class="LineNr">456 </span> <span class="Delimiter">{</span> +<span id="L457" class="LineNr">457 </span> compare limit, n +<span id="L458" class="LineNr">458 </span> <span class="PreProc">break-if-<=</span> +<span id="L459" class="LineNr">459 </span> limit <span class="Special"><-</span> copy n +<span id="L460" class="LineNr">460 </span> <span class="Delimiter">}</span> +<span id="L461" class="LineNr">461 </span> <span class="Delimiter">{</span> +<span id="L462" class="LineNr">462 </span> compare i, limit +<span id="L463" class="LineNr">463 </span> <span class="PreProc">break-if->=</span> +<span id="L464" class="LineNr">464 </span> <span class="muComment"># print '.' if necessary</span> +<span id="L465" class="LineNr">465 </span> compare i, dp +<span id="L466" class="LineNr">466 </span> <span class="Delimiter">{</span> +<span id="L467" class="LineNr">467 </span> <span class="PreProc">break-if-!=</span> +<span id="L468" class="LineNr">468 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, <span class="Constant">0x2e</span>/decimal-point +<span id="L469" class="LineNr">469 </span> <span class="Delimiter">}</span> +<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *curr-a +<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> curr-int/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy curr +<span id="L473" class="LineNr">473 </span> curr-int <span class="Special"><-</span> add <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L474" class="LineNr">474 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, curr-int +<span id="L475" class="LineNr">475 </span> <span class="muComment">#</span> +<span id="L476" class="LineNr">476 </span> i <span class="Special"><-</span> increment +<span id="L477" class="LineNr">477 </span> <span class="PreProc">loop</span> +<span id="L478" class="LineNr">478 </span> <span class="Delimiter">}</span> +<span id="L479" class="LineNr">479 </span><span class="Delimiter">}</span> +<span id="L480" class="LineNr">480 </span> +<span id="L481" class="LineNr">481 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L481'>_write-float-array-of-decimal-digits-in-scientific-notation</a></span> out: (addr stream byte), _buf: (addr array byte), n: int, dp: int, precision: int <span class="Delimiter">{</span> +<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L484" class="LineNr">484 </span> <span class="Delimiter">{</span> +<span id="L485" class="LineNr">485 </span> compare i, n +<span id="L486" class="LineNr">486 </span> <span class="PreProc">break-if->=</span> +<span id="L487" class="LineNr">487 </span> compare i, precision +<span id="L488" class="LineNr">488 </span> <span class="PreProc">break-if->=</span> +<span id="L489" class="LineNr">489 </span> compare i, <span class="Constant">1</span> +<span id="L490" class="LineNr">490 </span> <span class="Delimiter">{</span> +<span id="L491" class="LineNr">491 </span> <span class="PreProc">break-if-!=</span> +<span id="L492" class="LineNr">492 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, <span class="Constant">0x2e</span>/decimal-point +<span id="L493" class="LineNr">493 </span> <span class="Delimiter">}</span> +<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">ecx</span>: (addr byte) <span class="Special"><-</span> index buf, i +<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *curr-a +<span id="L496" class="LineNr">496 </span> <span class="PreProc">var</span> curr-int/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy curr +<span id="L497" class="LineNr">497 </span> curr-int <span class="Special"><-</span> add <span class="Constant">0x30</span>/<span class="Constant">0</span> +<span id="L498" class="LineNr">498 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, curr-int +<span id="L499" class="LineNr">499 </span> <span class="muComment">#</span> +<span id="L500" class="LineNr">500 </span> i <span class="Special"><-</span> increment +<span id="L501" class="LineNr">501 </span> <span class="PreProc">loop</span> +<span id="L502" class="LineNr">502 </span> <span class="Delimiter">}</span> +<span id="L503" class="LineNr">503 </span> <a href='115write-byte.subx.html#L208'>append-byte</a> out, <span class="Constant">0x65</span>/e +<span id="L504" class="LineNr">504 </span> decrement dp +<span id="L505" class="LineNr">505 </span> <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a> out, dp +<span id="L506" class="LineNr">506 </span><span class="Delimiter">}</span> +<span id="L507" class="LineNr">507 </span> +<span id="L508" class="LineNr">508 </span><span class="muComment"># follows the structure of write-float-decimal-approximate</span> +<span id="L509" class="LineNr">509 </span><span class="muComment"># 'precision' controls the maximum width past which we resort to scientific notation</span> +<span id="L510" class="LineNr">510 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L510'>float-size</a></span> in: float, precision: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L511" class="LineNr">511 </span> <span class="muComment"># - special names</span> +<span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> bits/<span class="Constant">eax</span>: int <span class="Special"><-</span> reinterpret in +<span id="L513" class="LineNr">513 </span> compare bits, <span class="Constant">0</span> +<span id="L514" class="LineNr">514 </span> <span class="Delimiter">{</span> +<span id="L515" class="LineNr">515 </span> <span class="PreProc">break-if-!=</span> +<span id="L516" class="LineNr">516 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># for "0"</span> +<span id="L517" class="LineNr">517 </span> <span class="Delimiter">}</span> +<span id="L518" class="LineNr">518 </span> compare bits, <span class="Constant">0x80000000</span> +<span id="L519" class="LineNr">519 </span> <span class="Delimiter">{</span> +<span id="L520" class="LineNr">520 </span> <span class="PreProc">break-if-!=</span> +<span id="L521" class="LineNr">521 </span> <span class="PreProc">return</span> <span class="Constant">2</span> <span class="muComment"># for "-0"</span> +<span id="L522" class="LineNr">522 </span> <span class="Delimiter">}</span> +<span id="L523" class="LineNr">523 </span> compare bits, <span class="Constant">0x7f800000</span> +<span id="L524" class="LineNr">524 </span> <span class="Delimiter">{</span> +<span id="L525" class="LineNr">525 </span> <span class="PreProc">break-if-!=</span> +<span id="L526" class="LineNr">526 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># for "Inf"</span> +<span id="L527" class="LineNr">527 </span> <span class="Delimiter">}</span> +<span id="L528" class="LineNr">528 </span> compare bits, <span class="Constant">0xff800000</span> +<span id="L529" class="LineNr">529 </span> <span class="Delimiter">{</span> +<span id="L530" class="LineNr">530 </span> <span class="PreProc">break-if-!=</span> +<span id="L531" class="LineNr">531 </span> <span class="PreProc">return</span> <span class="Constant">4</span> <span class="muComment"># for "-Inf"</span> +<span id="L532" class="LineNr">532 </span> <span class="Delimiter">}</span> +<span id="L533" class="LineNr">533 </span> <span class="PreProc">var</span> exponent/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bits +<span id="L534" class="LineNr">534 </span> exponent <span class="Special"><-</span> shift-right <span class="Constant">0x17</span> <span class="muComment"># 23 bits of mantissa</span> +<span id="L535" class="LineNr">535 </span> exponent <span class="Special"><-</span> and <span class="Constant">0xff</span> +<span id="L536" class="LineNr">536 </span> exponent <span class="Special"><-</span> subtract <span class="Constant">0x7f</span> +<span id="L537" class="LineNr">537 </span> compare exponent, <span class="Constant">0x80</span> +<span id="L538" class="LineNr">538 </span> <span class="Delimiter">{</span> +<span id="L539" class="LineNr">539 </span> <span class="PreProc">break-if-!=</span> +<span id="L540" class="LineNr">540 </span> <span class="PreProc">return</span> <span class="Constant">3</span> <span class="muComment"># for "NaN"</span> +<span id="L541" class="LineNr">541 </span> <span class="Delimiter">}</span> +<span id="L542" class="LineNr">542 </span> <span class="muComment"># - regular numbers</span> +<span id="L543" class="LineNr">543 </span> <span class="muComment"># v = 1.mantissa (in base 2) << 0x17</span> +<span id="L544" class="LineNr">544 </span> <span class="PreProc">var</span> v/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy bits +<span id="L545" class="LineNr">545 </span> v <span class="Special"><-</span> and <span class="Constant">0x7fffff</span> +<span id="L546" class="LineNr">546 </span> v <span class="Special"><-</span> or <span class="Constant">0x00800000</span> <span class="muComment"># insert implicit 1</span> +<span id="L547" class="LineNr">547 </span> <span class="muComment"># e = exponent - 0x17</span> +<span id="L548" class="LineNr">548 </span> <span class="PreProc">var</span> e/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy exponent +<span id="L549" class="LineNr">549 </span> e <span class="Special"><-</span> subtract <span class="Constant">0x17</span> <span class="muComment"># move decimal place from before mantissa to after</span> +<span id="L550" class="LineNr">550 </span> +<span id="L551" class="LineNr">551 </span> <span class="muComment"># initialize buffer with decimal representation of v</span> +<span id="L552" class="LineNr">552 </span> <span class="PreProc">var</span> buf-storage: (array byte <span class="Constant">0x7f</span>) +<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> buf/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> address buf-storage +<span id="L554" class="LineNr">554 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='412print-float-decimal.mu.html#L247'>decimal-digits</a> v, buf +<span id="L555" class="LineNr">555 </span> <a href='412print-float-decimal.mu.html#L264'>reverse-digits</a> buf, n +<span id="L556" class="LineNr">556 </span> +<span id="L557" class="LineNr">557 </span> <span class="muComment"># loop if e > 0</span> +<span id="L558" class="LineNr">558 </span> <span class="Delimiter">{</span> +<span id="L559" class="LineNr">559 </span> compare e, <span class="Constant">0</span> +<span id="L560" class="LineNr">560 </span> <span class="PreProc">break-if-<=</span> +<span id="L561" class="LineNr">561 </span> n <span class="Special"><-</span> <a href='412print-float-decimal.mu.html#L307'>double-array-of-decimal-digits</a> buf, n +<span id="L562" class="LineNr">562 </span> e <span class="Special"><-</span> decrement +<span id="L563" class="LineNr">563 </span> <span class="PreProc">loop</span> +<span id="L564" class="LineNr">564 </span> <span class="Delimiter">}</span> +<span id="L565" class="LineNr">565 </span> +<span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> dp/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy n +<span id="L567" class="LineNr">567 </span> +<span id="L568" class="LineNr">568 </span> <span class="muComment"># loop if e < 0</span> +<span id="L569" class="LineNr">569 </span> <span class="Delimiter">{</span> +<span id="L570" class="LineNr">570 </span> compare e, <span class="Constant">0</span> +<span id="L571" class="LineNr">571 </span> <span class="PreProc">break-if->=</span> +<span id="L572" class="LineNr">572 </span> n, dp <span class="Special"><-</span> <a href='412print-float-decimal.mu.html#L358'>halve-array-of-decimal-digits</a> buf, n, dp +<span id="L573" class="LineNr">573 </span> e <span class="Special"><-</span> increment +<span id="L574" class="LineNr">574 </span> <span class="PreProc">loop</span> +<span id="L575" class="LineNr">575 </span> <span class="Delimiter">}</span> +<span id="L576" class="LineNr">576 </span> +<span id="L577" class="LineNr">577 </span> compare dp, <span class="Constant">0</span> +<span id="L578" class="LineNr">578 </span> <span class="Delimiter">{</span> +<span id="L579" class="LineNr">579 </span> <span class="PreProc">break-if->=</span> +<span id="L580" class="LineNr">580 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> +<span id="L581" class="LineNr">581 </span> <span class="Delimiter">}</span> +<span id="L582" class="LineNr">582 </span> <span class="Delimiter">{</span> +<span id="L583" class="LineNr">583 </span> <span class="PreProc">var</span> dp2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy dp +<span id="L584" class="LineNr">584 </span> compare dp2, precision +<span id="L585" class="LineNr">585 </span> <span class="PreProc">break-if-<=</span> +<span id="L586" class="LineNr">586 </span> <span class="PreProc">return</span> <span class="Constant">8</span> <span class="muComment"># hacky for scientific notation</span> +<span id="L587" class="LineNr">587 </span> <span class="Delimiter">}</span> +<span id="L588" class="LineNr">588 </span> +<span id="L589" class="LineNr">589 </span> <span class="muComment"># result = min(n, dp+3)</span> +<span id="L590" class="LineNr">590 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy dp +<span id="L591" class="LineNr">591 </span> result <span class="Special"><-</span> add <span class="Constant">3</span> +<span id="L592" class="LineNr">592 </span> <span class="Delimiter">{</span> +<span id="L593" class="LineNr">593 </span> compare result, n +<span id="L594" class="LineNr">594 </span> <span class="PreProc">break-if-<=</span> +<span id="L595" class="LineNr">595 </span> result <span class="Special"><-</span> copy n +<span id="L596" class="LineNr">596 </span> <span class="Delimiter">}</span> +<span id="L597" class="LineNr">597 </span> +<span id="L598" class="LineNr">598 </span> <span class="muComment"># account for decimal point</span> +<span id="L599" class="LineNr">599 </span> compare dp, n +<span id="L600" class="LineNr">600 </span> <span class="Delimiter">{</span> +<span id="L601" class="LineNr">601 </span> <span class="PreProc">break-if->=</span> +<span id="L602" class="LineNr">602 </span> result <span class="Special"><-</span> increment +<span id="L603" class="LineNr">603 </span> <span class="Delimiter">}</span> +<span id="L604" class="LineNr">604 </span> +<span id="L605" class="LineNr">605 </span> <span class="muComment"># account for sign</span> +<span id="L606" class="LineNr">606 </span> <span class="PreProc">var</span> sign/<span class="Constant">edx</span>: int <span class="Special"><-</span> reinterpret in +<span id="L607" class="LineNr">607 </span> sign <span class="Special"><-</span> shift-right <span class="Constant">0x1f</span> +<span id="L608" class="LineNr">608 </span> <span class="Delimiter">{</span> +<span id="L609" class="LineNr">609 </span> compare sign, <span class="Constant">1</span> +<span id="L610" class="LineNr">610 </span> <span class="PreProc">break-if-!=</span> +<span id="L611" class="LineNr">611 </span> result <span class="Special"><-</span> increment +<span id="L612" class="LineNr">612 </span> <span class="Delimiter">}</span> +<span id="L613" class="LineNr">613 </span> <span class="PreProc">return</span> result +<span id="L614" class="LineNr">614 </span><span class="Delimiter">}</span> +<span id="L615" class="LineNr">615 </span> +<span id="L616" class="LineNr">616 </span><span class="muComment">## helper</span> +<span id="L617" class="LineNr">617 </span> +<span id="L618" class="LineNr">618 </span><span class="muComment"># like check-strings-equal, except array sizes don't have to match</span> +<span id="L619" class="LineNr">619 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='412print-float-decimal.mu.html#L619'>check-buffer-contains</a></span> _buf: (addr array byte), _contents: (addr array byte), msg: (addr array byte) <span class="Delimiter">{</span> +<span id="L620" class="LineNr">620 </span> <span class="PreProc">var</span> buf/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> copy _buf +<span id="L621" class="LineNr">621 </span> <span class="PreProc">var</span> contents/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _contents +<span id="L622" class="LineNr">622 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='105string-equal.subx.html#L57'>string-starts-with?</a> buf, contents +<span id="L623" class="LineNr">623 </span> <a href='401test.mu.html#L3'>check</a> a, msg +<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length contents +<span id="L625" class="LineNr">625 </span> <span class="PreProc">var</span> len2/<span class="Constant">eax</span>: int <span class="Special"><-</span> length buf +<span id="L626" class="LineNr">626 </span> compare len, len2 +<span id="L627" class="LineNr">627 </span> <span class="PreProc">break-if-=</span> +<span id="L628" class="LineNr">628 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr byte) <span class="Special"><-</span> index buf, len +<span id="L629" class="LineNr">629 </span> <span class="PreProc">var</span> d/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *c +<span id="L630" class="LineNr">630 </span> <span class="PreProc">var</span> e/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy d +<span id="L631" class="LineNr">631 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> e, <span class="Constant">0</span>, msg +<span id="L632" class="LineNr">632 </span><span class="Delimiter">}</span> +<span id="L633" class="LineNr">633 </span> +<span id="L634" class="LineNr">634 </span><span class="PreProc">fn</span> <span class="muTest"><a href='412print-float-decimal.mu.html#L634'>test-check-buffer-contains</a></span> <span class="Delimiter">{</span> +<span id="L635" class="LineNr">635 </span> <span class="PreProc">var</span> arr: (array byte <span class="Constant">4</span>) +<span id="L636" class="LineNr">636 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> address arr +<span id="L637" class="LineNr">637 </span> <span class="PreProc">var</span> b/<span class="Constant">eax</span>: (addr byte) <span class="Special"><-</span> index a, <span class="Constant">0</span> +<span id="L638" class="LineNr">638 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L639" class="LineNr">639 </span> copy-byte-to *b, c +<span id="L640" class="LineNr">640 </span> <a href='412print-float-decimal.mu.html#L619'>check-buffer-contains</a> a, <span class="Constant">"a"</span>, <span class="Constant">"F - test-check-buffer-contains"</span> +<span id="L641" class="LineNr">641 </span> <a href='412print-float-decimal.mu.html#L619'>check-buffer-contains</a> <span class="Constant">"a"</span>, <span class="Constant">"a"</span>, <span class="Constant">"F - <a href='412print-float-decimal.mu.html#L634'>test-check-buffer-contains</a>/null"</span> <span class="muComment"># no null check when arrays have same length</span> +<span id="L642" class="LineNr">642 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/advent2020/1a.mu.html b/html/linux/advent2020/1a.mu.html index 8a88b678..958bd12e 100644 --- a/html/apps/advent2020/1a.mu.html +++ b/html/linux/advent2020/1a.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/1a.mu</title> +<title>Mu - linux/advent2020/1a.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,14 +55,14 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/1a.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/1a.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/1a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/1a.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/1">https://adventofcode.com/2020/day/1</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/1a.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/1a.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># found</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># 1353 667</span> @@ -70,32 +70,32 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr">11 </span><span class="muComment">#</span> <span id="L12" class="LineNr">12 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L13" class="LineNr">13 </span> -<span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1a.mu.html#L14'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L15" class="LineNr">15 </span> <span class="muComment"># data structure</span> <span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> numbers-storage: (array int <span class="Constant">0x100</span>) <span class="muComment"># 256 ints</span> -<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> address numbers-storage -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> numbers-index/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> address numbers-storage +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> numbers-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L19" class="LineNr">19 </span> <span class="muComment"># phase 1: parse each line from stdin and add it to numbers</span> <span id="L20" class="LineNr">20 </span> <span class="Delimiter">{</span> <span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L23" class="LineNr">23 </span> <span class="Delimiter">{</span> <span id="L24" class="LineNr">24 </span><span class="CommentedCode">#? print-string 0, "== iter\n"</span> <span id="L25" class="LineNr">25 </span> <span class="muComment"># read line from stdin</span> -<span id="L26" class="LineNr">26 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L27" class="LineNr">27 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L26" class="LineNr">26 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L27" class="LineNr">27 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L28" class="LineNr">28 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L30" class="LineNr">30 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L30" class="LineNr">30 </span> compare done?, <span class="Constant">0</span>/false <span id="L31" class="LineNr">31 </span> <span class="PreProc">break-if-!=</span> <span id="L32" class="LineNr">32 </span><span class="CommentedCode">#? print-stream-to-real-screen line</span> <span id="L33" class="LineNr">33 </span> <span class="muComment"># convert line to int and append it to numbers</span> -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> line +<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> line <span id="L35" class="LineNr">35 </span><span class="CommentedCode">#? print-int32-decimal 0, n</span> <span id="L36" class="LineNr">36 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> index numbers, numbers-index +<span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> index numbers, numbers-index <span id="L38" class="LineNr">38 </span> copy-to *dest, n -<span id="L39" class="LineNr">39 </span> numbers-index <span class="SpecialChar"><-</span> increment +<span id="L39" class="LineNr">39 </span> numbers-index <span class="Special"><-</span> increment <span id="L40" class="LineNr">40 </span><span class="CommentedCode">#? print-string 0, "== "</span> <span id="L41" class="LineNr">41 </span><span class="CommentedCode">#? print-int32-decimal 0, numbers-index</span> <span id="L42" class="LineNr">42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> @@ -104,55 +104,55 @@ if ('onhashchange' in window) { <span id="L45" class="LineNr">45 </span> <span class="Delimiter">}</span> <span id="L46" class="LineNr">46 </span> <span class="muComment"># phase 2: for each number in the array, check if 2020-it is in the rest of</span> <span id="L47" class="LineNr">47 </span> <span class="muComment"># the array</span> -<span id="L48" class="LineNr">48 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L48" class="LineNr">48 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L49" class="LineNr">49 </span> <span class="Delimiter">{</span> <span id="L50" class="LineNr">50 </span> compare i, numbers-index <span id="L51" class="LineNr">51 </span> <span class="PreProc">break-if->=</span> -<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> src/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> index numbers, i +<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> src/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> index numbers, i <span id="L53" class="LineNr">53 </span><span class="CommentedCode">#? print-int32-decimal 0, *src</span> <span id="L54" class="LineNr">54 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L55" class="LineNr">55 </span> <span class="PreProc">var</span> target/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> -<span id="L56" class="LineNr">56 </span> target <span class="SpecialChar"><-</span> subtract *src +<span id="L55" class="LineNr">55 </span> <span class="PreProc">var</span> target/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> +<span id="L56" class="LineNr">56 </span> target <span class="Special"><-</span> subtract *src <span id="L57" class="LineNr">57 </span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr">58 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> find-after numbers, i, target -<span id="L59" class="LineNr">59 </span> compare found?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L58" class="LineNr">58 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='1a.mu.html#L77'>find-after</a> numbers, i, target +<span id="L59" class="LineNr">59 </span> compare found?, <span class="Constant">0</span>/false <span id="L60" class="LineNr">60 </span> <span class="PreProc">break-if-=</span> -<span id="L61" class="LineNr">61 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"found\n"</span> -<span id="L62" class="LineNr">62 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, *src -<span id="L63" class="LineNr">63 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L64" class="LineNr">64 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L65" class="LineNr">65 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L66" class="LineNr">66 </span> target <span class="SpecialChar"><-</span> multiply *src -<span id="L67" class="LineNr">67 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L68" class="LineNr">68 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L69" class="LineNr">69 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># success</span> +<span id="L61" class="LineNr">61 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"found\n"</span> +<span id="L62" class="LineNr">62 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, *src +<span id="L63" class="LineNr">63 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L64" class="LineNr">64 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target +<span id="L65" class="LineNr">65 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L66" class="LineNr">66 </span> target <span class="Special"><-</span> multiply *src +<span id="L67" class="LineNr">67 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target +<span id="L68" class="LineNr">68 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L69" class="LineNr">69 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/success <span id="L70" class="LineNr">70 </span> <span class="Delimiter">}</span> -<span id="L71" class="LineNr">71 </span> i <span class="SpecialChar"><-</span> increment +<span id="L71" class="LineNr">71 </span> i <span class="Special"><-</span> increment <span id="L72" class="LineNr">72 </span> <span class="PreProc">loop</span> <span id="L73" class="LineNr">73 </span> <span class="Delimiter">}</span> -<span id="L74" class="LineNr">74 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># not found</span> +<span id="L74" class="LineNr">74 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/not-found <span id="L75" class="LineNr">75 </span><span class="Delimiter">}</span> <span id="L76" class="LineNr">76 </span> -<span id="L77" class="LineNr">77 </span><span class="PreProc">fn</span> <span class="muFunction">find-after</span> _numbers: (addr array int), start: int, _target: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L78" class="LineNr">78 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _numbers -<span id="L79" class="LineNr">79 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy _target -<span id="L80" class="LineNr">80 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length numbers -<span id="L81" class="LineNr">81 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy start -<span id="L82" class="LineNr">82 </span> i <span class="SpecialChar"><-</span> increment +<span id="L77" class="LineNr">77 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1a.mu.html#L77'>find-after</a></span> _numbers: (addr array int), start: int, _target: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L78" class="LineNr">78 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> copy _numbers +<span id="L79" class="LineNr">79 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy _target +<span id="L80" class="LineNr">80 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length numbers +<span id="L81" class="LineNr">81 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy start +<span id="L82" class="LineNr">82 </span> i <span class="Special"><-</span> increment <span id="L83" class="LineNr">83 </span> <span class="Delimiter">{</span> <span id="L84" class="LineNr">84 </span> compare i, len <span id="L85" class="LineNr">85 </span> <span class="PreProc">break-if->=</span> -<span id="L86" class="LineNr">86 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index numbers, i +<span id="L86" class="LineNr">86 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> index numbers, i <span id="L87" class="LineNr">87 </span> <span class="muComment"># if *src == target, return true</span> <span id="L88" class="LineNr">88 </span> compare *src, target <span id="L89" class="LineNr">89 </span> <span class="Delimiter">{</span> <span id="L90" class="LineNr">90 </span> <span class="PreProc">break-if-!=</span> -<span id="L91" class="LineNr">91 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L91" class="LineNr">91 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L92" class="LineNr">92 </span> <span class="Delimiter">}</span> -<span id="L93" class="LineNr">93 </span> i <span class="SpecialChar"><-</span> increment +<span id="L93" class="LineNr">93 </span> i <span class="Special"><-</span> increment <span id="L94" class="LineNr">94 </span> <span class="PreProc">loop</span> <span id="L95" class="LineNr">95 </span> <span class="Delimiter">}</span> -<span id="L96" class="LineNr">96 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L96" class="LineNr">96 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L97" class="LineNr">97 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/advent2020/1b.mu.html b/html/linux/advent2020/1b.mu.html index 2affa9bd..c7c9ed06 100644 --- a/html/apps/advent2020/1b.mu.html +++ b/html/linux/advent2020/1b.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/1b.mu</title> +<title>Mu - linux/advent2020/1b.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,14 +55,14 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/1b.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/1b.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/1b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/1b.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/1">https://adventofcode.com/2020/day/1</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/1b.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/1b.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># found</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># 143 407 1470</span> @@ -70,32 +70,32 @@ if ('onhashchange' in window) { <span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> <span id="L12" class="LineNr"> 12 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L13" class="LineNr"> 13 </span> -<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1b.mu.html#L14'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L15" class="LineNr"> 15 </span> <span class="muComment"># data structure</span> <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> numbers-storage: (array int <span class="Constant">0x100</span>) <span class="muComment"># 256 ints</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> address numbers-storage -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> numbers-index/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> address numbers-storage +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> numbers-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L19" class="LineNr"> 19 </span> <span class="muComment"># phase 1: parse each line from stdin and add it to numbers</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> <span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> <span id="L24" class="LineNr"> 24 </span><span class="CommentedCode">#? print-string 0, "== iter\n"</span> <span id="L25" class="LineNr"> 25 </span> <span class="muComment"># read line from stdin</span> -<span id="L26" class="LineNr"> 26 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L27" class="LineNr"> 27 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L26" class="LineNr"> 26 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L27" class="LineNr"> 27 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L28" class="LineNr"> 28 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L30" class="LineNr"> 30 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L30" class="LineNr"> 30 </span> compare done?, <span class="Constant">0</span>/false <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">break-if-!=</span> <span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? print-stream-to-real-screen line</span> <span id="L33" class="LineNr"> 33 </span> <span class="muComment"># convert line to int and append it to numbers</span> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> line +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> line <span id="L35" class="LineNr"> 35 </span><span class="CommentedCode">#? print-int32-decimal 0, n</span> <span id="L36" class="LineNr"> 36 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> index numbers, numbers-index +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> index numbers, numbers-index <span id="L38" class="LineNr"> 38 </span> copy-to *dest, n -<span id="L39" class="LineNr"> 39 </span> numbers-index <span class="SpecialChar"><-</span> increment +<span id="L39" class="LineNr"> 39 </span> numbers-index <span class="Special"><-</span> increment <span id="L40" class="LineNr"> 40 </span><span class="CommentedCode">#? print-string 0, "== "</span> <span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-int32-decimal 0, numbers-index</span> <span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> @@ -104,71 +104,71 @@ if ('onhashchange' in window) { <span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> <span id="L46" class="LineNr"> 46 </span> <span class="muComment"># phase 2: for every pair of distinct numbers, check if the rest of the</span> <span id="L47" class="LineNr"> 47 </span> <span class="muComment"># array has 2020-it</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> i/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> i/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">{</span> <span id="L50" class="LineNr"> 50 </span> compare i, numbers-index <span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if->=</span> <span id="L52" class="LineNr"> 52 </span> <span class="muComment"># for j from i+1 to end</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> j/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy i -<span id="L54" class="LineNr"> 54 </span> j <span class="SpecialChar"><-</span> increment +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> j/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy i +<span id="L54" class="LineNr"> 54 </span> j <span class="Special"><-</span> increment <span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> <span id="L56" class="LineNr"> 56 </span> compare j, numbers-index <span id="L57" class="LineNr"> 57 </span> <span class="PreProc">break-if->=</span> <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">{</span> <span id="L59" class="LineNr"> 59 </span> compare i, j <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">break-if-=</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> target/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> src/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> index numbers, i -<span id="L63" class="LineNr"> 63 </span> target <span class="SpecialChar"><-</span> subtract *src -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> src2/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> index numbers, j -<span id="L65" class="LineNr"> 65 </span> target <span class="SpecialChar"><-</span> subtract *src2 +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> target/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> src/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> index numbers, i +<span id="L63" class="LineNr"> 63 </span> target <span class="Special"><-</span> subtract *src +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> src2/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> index numbers, j +<span id="L65" class="LineNr"> 65 </span> target <span class="Special"><-</span> subtract *src2 <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> find-after numbers, j, target -<span id="L68" class="LineNr"> 68 </span> compare found?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='1b.mu.html#L93'>find-after</a> numbers, j, target +<span id="L68" class="LineNr"> 68 </span> compare found?, <span class="Constant">0</span>/false <span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-=</span> -<span id="L70" class="LineNr"> 70 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"found\n"</span> -<span id="L71" class="LineNr"> 71 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, *src -<span id="L72" class="LineNr"> 72 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L73" class="LineNr"> 73 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, *src2 -<span id="L74" class="LineNr"> 74 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L75" class="LineNr"> 75 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L76" class="LineNr"> 76 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L77" class="LineNr"> 77 </span> target <span class="SpecialChar"><-</span> multiply *src -<span id="L78" class="LineNr"> 78 </span> target <span class="SpecialChar"><-</span> multiply *src2 -<span id="L79" class="LineNr"> 79 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, target -<span id="L80" class="LineNr"> 80 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># success</span> +<span id="L70" class="LineNr"> 70 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"found\n"</span> +<span id="L71" class="LineNr"> 71 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, *src +<span id="L72" class="LineNr"> 72 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L73" class="LineNr"> 73 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, *src2 +<span id="L74" class="LineNr"> 74 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L75" class="LineNr"> 75 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target +<span id="L76" class="LineNr"> 76 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L77" class="LineNr"> 77 </span> target <span class="Special"><-</span> multiply *src +<span id="L78" class="LineNr"> 78 </span> target <span class="Special"><-</span> multiply *src2 +<span id="L79" class="LineNr"> 79 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, target +<span id="L80" class="LineNr"> 80 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/success <span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">}</span> <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> -<span id="L84" class="LineNr"> 84 </span> j <span class="SpecialChar"><-</span> increment +<span id="L84" class="LineNr"> 84 </span> j <span class="Special"><-</span> increment <span id="L85" class="LineNr"> 85 </span> <span class="PreProc">loop</span> <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">}</span> -<span id="L87" class="LineNr"> 87 </span> i <span class="SpecialChar"><-</span> increment +<span id="L87" class="LineNr"> 87 </span> i <span class="Special"><-</span> increment <span id="L88" class="LineNr"> 88 </span> <span class="PreProc">loop</span> <span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">}</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># not found</span> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/not-found <span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> <span id="L92" class="LineNr"> 92 </span> -<span id="L93" class="LineNr"> 93 </span><span class="PreProc">fn</span> <span class="muFunction">find-after</span> _numbers: (addr array int), start: int, _target: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _numbers -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy _target -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length numbers -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy start -<span id="L98" class="LineNr"> 98 </span> i <span class="SpecialChar"><-</span> increment +<span id="L93" class="LineNr"> 93 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='1b.mu.html#L93'>find-after</a></span> _numbers: (addr array int), start: int, _target: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> numbers/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> copy _numbers +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy _target +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length numbers +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy start +<span id="L98" class="LineNr"> 98 </span> i <span class="Special"><-</span> increment <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">{</span> <span id="L100" class="LineNr">100 </span> compare i, len <span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if->=</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index numbers, i +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> src/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> index numbers, i <span id="L103" class="LineNr">103 </span> <span class="muComment"># if *src == target, return true</span> <span id="L104" class="LineNr">104 </span> compare *src, target <span id="L105" class="LineNr">105 </span> <span class="Delimiter">{</span> <span id="L106" class="LineNr">106 </span> <span class="PreProc">break-if-!=</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> -<span id="L109" class="LineNr">109 </span> i <span class="SpecialChar"><-</span> increment +<span id="L109" class="LineNr">109 </span> i <span class="Special"><-</span> increment <span id="L110" class="LineNr">110 </span> <span class="PreProc">loop</span> <span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L113" class="LineNr">113 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/advent2020/2a.mu.html b/html/linux/advent2020/2a.mu.html index bf5a31af..c3d6601c 100644 --- a/html/apps/advent2020/2a.mu.html +++ b/html/linux/advent2020/2a.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/2a.mu</title> +<title>Mu - linux/advent2020/2a.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,84 +54,84 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/2a.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/2a.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/2a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/2a.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/2">https://adventofcode.com/2020/day/2</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/2a.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/2a.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> valid-password-count/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> valid-password-count/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> slice-storage: slice -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> slice/<span class="Constant">ecx</span>: (addr slice) <span class="SpecialChar"><-</span> address slice-storage +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> slice/<span class="Constant">ecx</span>: (addr slice) <span class="Special"><-</span> address slice-storage <span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> <span id="L18" class="LineNr">18 </span> <span class="muComment"># read line from stdin</span> -<span id="L19" class="LineNr">19 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L20" class="LineNr">20 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L19" class="LineNr">19 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L20" class="LineNr">20 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L21" class="LineNr">21 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L23" class="LineNr">23 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L23" class="LineNr">23 </span> compare done?, <span class="Constant">0</span>/false <span id="L24" class="LineNr">24 </span> <span class="PreProc">break-if-!=</span> -<span id="L25" class="LineNr">25 </span> <a href='../../304screen.subx.html#L147'>print-stream-to-real-screen</a> line +<span id="L25" class="LineNr">25 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line <span id="L26" class="LineNr">26 </span> <span class="muComment"># slice = next-token(line, '-')</span> -<span id="L27" class="LineNr">27 </span> <a href='../../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x2d</span>, slice +<span id="L27" class="LineNr">27 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x2d</span>, slice <span id="L28" class="LineNr">28 </span> <span class="muComment"># start = parse-int(slice)</span> -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> _start/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> start/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy _start -<span id="L31" class="LineNr">31 </span> <span class="PreProc">var</span> dash/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip '-'</span> +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> _start/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice +<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> start/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _start +<span id="L31" class="LineNr">31 </span> <span class="PreProc">var</span> dash/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip '-'</span> <span id="L32" class="LineNr">32 </span> <span class="muComment"># slice = next-token(line, ' ')</span> -<span id="L33" class="LineNr">33 </span> <a href='../../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x20</span>, slice -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> _end/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> end/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy _end -<span id="L36" class="LineNr">36 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, start -<span id="L37" class="LineNr">37 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L38" class="LineNr">38 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, end -<span id="L39" class="LineNr">39 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L33" class="LineNr">33 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x20</span>, slice +<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> _end/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice +<span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> end/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy _end +<span id="L36" class="LineNr">36 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, start +<span id="L37" class="LineNr">37 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L38" class="LineNr">38 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, end +<span id="L39" class="LineNr">39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L40" class="LineNr">40 </span> <span class="muComment"># letter = next non-space</span> -<span id="L41" class="LineNr">41 </span> <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> letter/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line +<span id="L41" class="LineNr">41 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line +<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> letter/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span id="L43" class="LineNr">43 </span> <span class="muComment"># skip some stuff</span> <span id="L44" class="LineNr">44 </span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr">45 </span> <span class="PreProc">var</span> colon/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> +<span id="L45" class="LineNr">45 </span> <span class="PreProc">var</span> colon/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> <span id="L46" class="LineNr">46 </span> <span class="Delimiter">}</span> -<span id="L47" class="LineNr">47 </span> <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line +<span id="L47" class="LineNr">47 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line <span id="L48" class="LineNr">48 </span> <span class="muComment"># now check the rest of the line</span> -<span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> is-valid?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> is-valid? start, end, letter, line -<span id="L50" class="LineNr">50 </span> compare is-valid?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L49" class="LineNr">49 </span> <span class="PreProc">var</span> <a href='2a.mu.html#L63'>valid?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='2a.mu.html#L63'>valid?</a> start, end, letter, line +<span id="L50" class="LineNr">50 </span> compare <a href='2a.mu.html#L63'>valid?</a>, <span class="Constant">0</span>/false <span id="L51" class="LineNr">51 </span> <span class="Delimiter">{</span> <span id="L52" class="LineNr">52 </span> <span class="PreProc">break-if-=</span> -<span id="L53" class="LineNr">53 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"valid!\n"</span> -<span id="L54" class="LineNr">54 </span> valid-password-count <span class="SpecialChar"><-</span> increment +<span id="L53" class="LineNr">53 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"valid!\n"</span> +<span id="L54" class="LineNr">54 </span> valid-password-count <span class="Special"><-</span> increment <span id="L55" class="LineNr">55 </span> <span class="Delimiter">}</span> <span id="L56" class="LineNr">56 </span> <span class="PreProc">loop</span> <span id="L57" class="LineNr">57 </span> <span class="Delimiter">}</span> -<span id="L58" class="LineNr">58 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, valid-password-count -<span id="L59" class="LineNr">59 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L58" class="LineNr">58 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-password-count +<span id="L59" class="LineNr">59 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L60" class="LineNr">60 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L61" class="LineNr">61 </span><span class="Delimiter">}</span> <span id="L62" class="LineNr">62 </span> -<span id="L63" class="LineNr">63 </span><span class="PreProc">fn</span> <span class="muFunction">is-valid?</span> start: int, end: int, letter: byte, password: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> letter-count/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L63" class="LineNr">63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2a.mu.html#L63'>valid?</a></span> start: int, end: int, letter: byte, password: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> letter-count/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L65" class="LineNr">65 </span> <span class="muComment"># for every c in password</span> <span id="L66" class="LineNr">66 </span> <span class="muComment"># if (c == letter)</span> <span id="L67" class="LineNr">67 </span> <span class="muComment"># ++letter-count</span> <span id="L68" class="LineNr">68 </span> <span class="Delimiter">{</span> -<span id="L69" class="LineNr">69 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> password -<span id="L70" class="LineNr">70 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L69" class="LineNr">69 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> password +<span id="L70" class="LineNr">70 </span> compare done?, <span class="Constant">0</span>/false <span id="L71" class="LineNr">71 </span> <span class="PreProc">break-if-!=</span> -<span id="L72" class="LineNr">72 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> password +<span id="L72" class="LineNr">72 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> password <span id="L73" class="LineNr">73 </span> compare c, letter <span id="L74" class="LineNr">74 </span> <span class="Delimiter">{</span> <span id="L75" class="LineNr">75 </span> <span class="PreProc">break-if-!=</span> -<span id="L76" class="LineNr">76 </span> letter-count <span class="SpecialChar"><-</span> increment +<span id="L76" class="LineNr">76 </span> letter-count <span class="Special"><-</span> increment <span id="L77" class="LineNr">77 </span> <span class="Delimiter">}</span> <span id="L78" class="LineNr">78 </span> <span class="PreProc">loop</span> <span id="L79" class="LineNr">79 </span> <span class="Delimiter">}</span> @@ -139,14 +139,14 @@ if ('onhashchange' in window) { <span id="L81" class="LineNr">81 </span> compare letter-count, start <span id="L82" class="LineNr">82 </span> <span class="Delimiter">{</span> <span id="L83" class="LineNr">83 </span> <span class="PreProc">break-if->=</span> -<span id="L84" class="LineNr">84 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L84" class="LineNr">84 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L85" class="LineNr">85 </span> <span class="Delimiter">}</span> <span id="L86" class="LineNr">86 </span> compare letter-count, end <span id="L87" class="LineNr">87 </span> <span class="Delimiter">{</span> <span id="L88" class="LineNr">88 </span> <span class="PreProc">break-if-<=</span> -<span id="L89" class="LineNr">89 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L89" class="LineNr">89 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L90" class="LineNr">90 </span> <span class="Delimiter">}</span> -<span id="L91" class="LineNr">91 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L91" class="LineNr">91 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L92" class="LineNr">92 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/advent2020/2b.mu.html b/html/linux/advent2020/2b.mu.html index 53a57c40..0a38b39f 100644 --- a/html/apps/advent2020/2b.mu.html +++ b/html/linux/advent2020/2b.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/2b.mu</title> +<title>Mu - linux/advent2020/2b.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,82 +55,82 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/2b.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/2b.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/2b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/2b.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/2">https://adventofcode.com/2020/day/2</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/2b.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/2b.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> valid-password-count/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> valid-password-count/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> slice-storage: slice -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> slice/<span class="Constant">ecx</span>: (addr slice) <span class="SpecialChar"><-</span> address slice-storage +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> slice/<span class="Constant">ecx</span>: (addr slice) <span class="Special"><-</span> address slice-storage <span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">{</span> <span id="L18" class="LineNr"> 18 </span> <span class="muComment"># read line from stdin</span> -<span id="L19" class="LineNr"> 19 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L20" class="LineNr"> 20 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L19" class="LineNr"> 19 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L20" class="LineNr"> 20 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L21" class="LineNr"> 21 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L23" class="LineNr"> 23 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L23" class="LineNr"> 23 </span> compare done?, <span class="Constant">0</span>/false <span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-!=</span> -<span id="L25" class="LineNr"> 25 </span> <a href='../../304screen.subx.html#L147'>print-stream-to-real-screen</a> line +<span id="L25" class="LineNr"> 25 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line <span id="L26" class="LineNr"> 26 </span> <span class="muComment"># slice = next-token(line, '-')</span> -<span id="L27" class="LineNr"> 27 </span> <a href='../../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x2d</span>, slice +<span id="L27" class="LineNr"> 27 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x2d</span>, slice <span id="L28" class="LineNr"> 28 </span> <span class="muComment"># pos1 = parse-int(slice)</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> _pos1/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> pos1/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy _pos1 -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> dash/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip '-'</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> _pos1/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> pos1/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _pos1 +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> dash/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip '-'</span> <span id="L32" class="LineNr"> 32 </span> <span class="muComment"># slice = next-token(line, ' ')</span> -<span id="L33" class="LineNr"> 33 </span> <a href='../../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x20</span>, slice -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> _pos2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> pos2/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy _pos2 -<span id="L36" class="LineNr"> 36 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, pos1 -<span id="L37" class="LineNr"> 37 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L38" class="LineNr"> 38 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, pos2 -<span id="L39" class="LineNr"> 39 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L33" class="LineNr"> 33 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x20</span>, slice +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> _pos2/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> slice +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> pos2/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy _pos2 +<span id="L36" class="LineNr"> 36 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, pos1 +<span id="L37" class="LineNr"> 37 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L38" class="LineNr"> 38 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, pos2 +<span id="L39" class="LineNr"> 39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L40" class="LineNr"> 40 </span> compare pos1, pos2 <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">{</span> <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">break-if-<=</span> -<span id="L43" class="LineNr"> 43 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"out of order!\n"</span> +<span id="L43" class="LineNr"> 43 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"out of order!\n"</span> <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> <span id="L46" class="LineNr"> 46 </span> <span class="muComment"># letter = next non-space</span> -<span id="L47" class="LineNr"> 47 </span> <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> letter/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line +<span id="L47" class="LineNr"> 47 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> letter/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span id="L49" class="LineNr"> 49 </span> <span class="muComment"># skip some stuff</span> <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> colon/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> colon/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> <span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">}</span> -<span id="L53" class="LineNr"> 53 </span> <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line +<span id="L53" class="LineNr"> 53 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line <span id="L54" class="LineNr"> 54 </span> <span class="muComment"># now check the rest of the line</span> -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> is-valid?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> is-valid? pos1, pos2, letter, line -<span id="L56" class="LineNr"> 56 </span> compare is-valid?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> <a href='2b.mu.html#L72'>valid?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='2b.mu.html#L72'>valid?</a> pos1, pos2, letter, line +<span id="L56" class="LineNr"> 56 </span> compare <a href='2b.mu.html#L72'>valid?</a>, <span class="Constant">0</span>/false <span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">{</span> <span id="L58" class="LineNr"> 58 </span> <span class="PreProc">break-if-=</span> -<span id="L59" class="LineNr"> 59 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"valid!\n"</span> -<span id="L60" class="LineNr"> 60 </span> valid-password-count <span class="SpecialChar"><-</span> increment +<span id="L59" class="LineNr"> 59 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"valid!\n"</span> +<span id="L60" class="LineNr"> 60 </span> valid-password-count <span class="Special"><-</span> increment <span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">loop</span> <span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">}</span> -<span id="L64" class="LineNr"> 64 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, valid-password-count -<span id="L65" class="LineNr"> 65 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L64" class="LineNr"> 64 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-password-count +<span id="L65" class="LineNr"> 65 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L66" class="LineNr"> 66 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> <span id="L68" class="LineNr"> 68 </span> <span id="L69" class="LineNr"> 69 </span><span class="muComment"># ideally password would be a random-access array</span> <span id="L70" class="LineNr"> 70 </span><span class="muComment"># we'll just track an index</span> <span id="L71" class="LineNr"> 71 </span><span class="muComment"># one benefit: we can easily start at 1</span> -<span id="L72" class="LineNr"> 72 </span><span class="PreProc">fn</span> <span class="muFunction">is-valid?</span> pos1: int, pos2: int, letter: byte, password: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> i/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> letter-count/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L72" class="LineNr"> 72 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='2b.mu.html#L72'>valid?</a></span> pos1: int, pos2: int, letter: byte, password: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> i/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> letter-count/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L75" class="LineNr"> 75 </span> <span class="muComment"># while password stream isn't empty</span> <span id="L76" class="LineNr"> 76 </span> <span class="muComment"># c = read byte from password</span> <span id="L77" class="LineNr"> 77 </span> <span class="muComment"># if (c == letter)</span> @@ -143,10 +143,10 @@ if ('onhashchange' in window) { <span id="L84" class="LineNr"> 84 </span><span class="CommentedCode">#? print-string 0, " "</span> <span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? print-int32-decimal 0, i</span> <span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> password -<span id="L88" class="LineNr"> 88 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> password +<span id="L88" class="LineNr"> 88 </span> compare done?, <span class="Constant">0</span>/false <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-!=</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> password +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> password <span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? {</span> <span id="L92" class="LineNr"> 92 </span><span class="CommentedCode">#? var c2/eax: int <- copy c</span> <span id="L93" class="LineNr"> 93 </span><span class="CommentedCode">#? print-int32-decimal 0, c2</span> @@ -158,26 +158,26 @@ if ('onhashchange' in window) { <span id="L99" class="LineNr"> 99 </span> compare i, pos1 <span id="L100" class="LineNr">100 </span> <span class="Delimiter">{</span> <span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if-!=</span> -<span id="L102" class="LineNr">102 </span> letter-count <span class="SpecialChar"><-</span> increment +<span id="L102" class="LineNr">102 </span> letter-count <span class="Special"><-</span> increment <span id="L103" class="LineNr">103 </span><span class="CommentedCode">#? print-string 0, " hit\n"</span> <span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> <span id="L105" class="LineNr">105 </span> compare i, pos2 <span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> <span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-!=</span> -<span id="L108" class="LineNr">108 </span> letter-count <span class="SpecialChar"><-</span> increment +<span id="L108" class="LineNr">108 </span> letter-count <span class="Special"><-</span> increment <span id="L109" class="LineNr">109 </span><span class="CommentedCode">#? print-string 0, " hit\n"</span> <span id="L110" class="LineNr">110 </span> <span class="Delimiter">}</span> <span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> -<span id="L112" class="LineNr">112 </span> i <span class="SpecialChar"><-</span> increment +<span id="L112" class="LineNr">112 </span> i <span class="Special"><-</span> increment <span id="L113" class="LineNr">113 </span> <span class="PreProc">loop</span> <span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> <span id="L115" class="LineNr">115 </span> <span class="muComment"># return (letter-count == 1)</span> <span id="L116" class="LineNr">116 </span> compare letter-count, <span class="Constant">1</span> <span id="L117" class="LineNr">117 </span> <span class="Delimiter">{</span> <span id="L118" class="LineNr">118 </span> <span class="PreProc">break-if-!=</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L121" class="LineNr">121 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/advent2020/3a.mu.html b/html/linux/advent2020/3a.mu.html index a6aff5e0..3b64a719 100644 --- a/html/apps/advent2020/3a.mu.html +++ b/html/linux/advent2020/3a.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/3a.mu</title> +<title>Mu - linux/advent2020/3a.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,57 +55,57 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/3a.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/3a.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/3a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/3a.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/3">https://adventofcode.com/2020/day/3</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/3a.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/3a.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L12" class="LineNr"> 12 </span> <span class="muComment"># represent trees in a 2D array of ints</span> <span id="L13" class="LineNr"> 13 </span> <span class="muComment"># wasteful since each tree is just one bit</span> <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> trees-storage: (array int <span class="Constant">0x2800</span>) <span class="muComment"># 10k ints</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> trees/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> address trees-storage -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> trees-length/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> trees/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> address trees-storage +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> trees-length/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> num-rows: int <span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> width: int <span id="L19" class="LineNr"> 19 </span> <span class="muComment"># phase 1: parse each row of trees from stdin</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> <span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x40</span>) <span class="muComment"># 64 bytes</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> <span id="L24" class="LineNr"> 24 </span> <span class="muComment"># read line from stdin</span> -<span id="L25" class="LineNr"> 25 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L26" class="LineNr"> 26 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L25" class="LineNr"> 25 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L26" class="LineNr"> 26 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L27" class="LineNr"> 27 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L29" class="LineNr"> 29 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L29" class="LineNr"> 29 </span> compare done?, <span class="Constant">0</span>/false <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-!=</span> <span id="L31" class="LineNr"> 31 </span> <span class="muComment"># wastefully recompute width on every line</span> <span id="L32" class="LineNr"> 32 </span> <span class="muComment"># zero error-checking; we assume input lines are all equally long</span> <span id="L33" class="LineNr"> 33 </span> copy-to width, <span class="Constant">0</span> <span id="L34" class="LineNr"> 34 </span> <span class="muComment"># turn each byte into a tree and append it</span> <span id="L35" class="LineNr"> 35 </span> $main:line-loop: <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L37" class="LineNr"> 37 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L37" class="LineNr"> 37 </span> compare done?, <span class="Constant">0</span>/false <span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-!=</span> <span id="L39" class="LineNr"> 39 </span><span class="CommentedCode">#? print-int32-decimal 0, num-rows</span> <span id="L40" class="LineNr"> 40 </span><span class="CommentedCode">#? print-string 0, " "</span> <span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-int32-decimal 0, width</span> <span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> index trees, trees-length -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> index trees, trees-length +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span id="L45" class="LineNr"> 45 </span> <span class="muComment"># newline comes only at end of line</span> -<span id="L46" class="LineNr"> 46 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L46" class="LineNr"> 46 </span> compare c, <span class="Constant">0xa</span>/newline <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">break-if-=</span> <span id="L48" class="LineNr"> 48 </span> <span class="muComment"># '#' = tree</span> -<span id="L49" class="LineNr"> 49 </span> compare c, <span class="Constant">0x23</span> <span class="muComment"># '#'</span> +<span id="L49" class="LineNr"> 49 </span> compare c, <span class="Constant">0x23</span>/hash <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> <span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-!=</span> <span id="L52" class="LineNr"> 52 </span> copy-to *dest, <span class="Constant">1</span> @@ -116,7 +116,7 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> copy-to *dest, <span class="Constant">0</span> <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> increment width -<span id="L60" class="LineNr"> 60 </span> trees-length <span class="SpecialChar"><-</span> increment +<span id="L60" class="LineNr"> 60 </span> trees-length <span class="Special"><-</span> increment <span id="L61" class="LineNr"> 61 </span> <span class="PreProc">loop</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> increment num-rows @@ -124,44 +124,44 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> <span id="L67" class="LineNr"> 67 </span> <span class="muComment"># phase 2: compute</span> -<span id="L68" class="LineNr"> 68 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, num-rows -<span id="L69" class="LineNr"> 69 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"x"</span> -<span id="L70" class="LineNr"> 70 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, width -<span id="L71" class="LineNr"> 71 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> <a href='3b.mu.html#L94'>num-trees-hit</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L68" class="LineNr"> 68 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, num-rows +<span id="L69" class="LineNr"> 69 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"x"</span> +<span id="L70" class="LineNr"> 70 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, width +<span id="L71" class="LineNr"> 71 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> num-trees-hit/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> <span id="L76" class="LineNr"> 76 </span> compare row, num-rows <span id="L77" class="LineNr"> 77 </span> <span class="PreProc">break-if->=</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> index2d trees, row, col, width +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='3a.mu.html#L94'>index2d</a> trees, row, col, width <span id="L79" class="LineNr"> 79 </span> compare curr, <span class="Constant">0</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">{</span> <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-=</span> -<span id="L82" class="LineNr"> 82 </span> <a href='3b.mu.html#L94'>num-trees-hit</a> <span class="SpecialChar"><-</span> increment +<span id="L82" class="LineNr"> 82 </span> num-trees-hit <span class="Special"><-</span> increment <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> <span id="L84" class="LineNr"> 84 </span> <span class="muComment"># right 3, down 1</span> -<span id="L85" class="LineNr"> 85 </span> col <span class="SpecialChar"><-</span> add <span class="Constant">3</span> -<span id="L86" class="LineNr"> 86 </span> row <span class="SpecialChar"><-</span> add <span class="Constant">1</span> +<span id="L85" class="LineNr"> 85 </span> col <span class="Special"><-</span> add <span class="Constant">3</span> +<span id="L86" class="LineNr"> 86 </span> row <span class="Special"><-</span> add <span class="Constant">1</span> <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">loop</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">}</span> -<span id="L89" class="LineNr"> 89 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, <a href='3b.mu.html#L94'>num-trees-hit</a> -<span id="L90" class="LineNr"> 90 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L89" class="LineNr"> 89 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, num-trees-hit +<span id="L90" class="LineNr"> 90 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span> -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muFunction">index2d</span> _arr: (addr array int), _row: int, _col: int, width: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3a.mu.html#L94'>index2d</a></span> _arr: (addr array int), _row: int, _col: int, width: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L95" class="LineNr"> 95 </span> <span class="muComment"># handle repeating columns of trees</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L98" class="LineNr"> 98 </span> dummy, col <span class="SpecialChar"><-</span> <a href='../../314divide.subx.html#L3'>integer-divide</a> _col, width +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L98" class="LineNr"> 98 </span> dummy, col <span class="Special"><-</span> <a href='../314divide.subx.html#L3'>integer-divide</a> _col, width <span id="L99" class="LineNr"> 99 </span> <span class="muComment"># compute index</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> index/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _row -<span id="L101" class="LineNr">101 </span> index <span class="SpecialChar"><-</span> multiply width -<span id="L102" class="LineNr">102 </span> index <span class="SpecialChar"><-</span> add col +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> index/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _row +<span id="L101" class="LineNr">101 </span> index <span class="Special"><-</span> multiply width +<span id="L102" class="LineNr">102 </span> index <span class="Special"><-</span> add col <span id="L103" class="LineNr">103 </span> <span class="muComment"># look up array</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> arr/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _arr -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index arr, index +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> arr/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> copy _arr +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index arr, index <span id="L106" class="LineNr">106 </span> <span class="PreProc">return</span> *src <span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/advent2020/3b.mu.html b/html/linux/advent2020/3b.mu.html index c77ebe3b..2edd69e5 100644 --- a/html/apps/advent2020/3b.mu.html +++ b/html/linux/advent2020/3b.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/3b.mu</title> +<title>Mu - linux/advent2020/3b.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,57 +55,57 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/3b.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/3b.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/3b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/3b.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/3">https://adventofcode.com/2020/day/3</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/3a.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/3a.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L12" class="LineNr"> 12 </span> <span class="muComment"># represent trees in a 2D array of ints</span> <span id="L13" class="LineNr"> 13 </span> <span class="muComment"># wasteful since each tree is just one bit</span> <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> trees-storage: (array int <span class="Constant">0x2800</span>) <span class="muComment"># 10k ints</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> trees/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> address trees-storage -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> trees-length/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> trees/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> address trees-storage +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> trees-length/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> num-rows: int <span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> width: int <span id="L19" class="LineNr"> 19 </span> <span class="muComment"># phase 1: parse each row of trees from stdin</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> <span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x40</span>) <span class="muComment"># 64 bytes</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> <span id="L24" class="LineNr"> 24 </span> <span class="muComment"># read line from stdin</span> -<span id="L25" class="LineNr"> 25 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L26" class="LineNr"> 26 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L25" class="LineNr"> 25 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L26" class="LineNr"> 26 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L27" class="LineNr"> 27 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L29" class="LineNr"> 29 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L29" class="LineNr"> 29 </span> compare done?, <span class="Constant">0</span>/false <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">break-if-!=</span> <span id="L31" class="LineNr"> 31 </span> <span class="muComment"># wastefully recompute width on every line</span> <span id="L32" class="LineNr"> 32 </span> <span class="muComment"># zero error-checking; we assume input lines are all equally long</span> <span id="L33" class="LineNr"> 33 </span> copy-to width, <span class="Constant">0</span> <span id="L34" class="LineNr"> 34 </span> <span class="muComment"># turn each byte into a tree and append it</span> <span id="L35" class="LineNr"> 35 </span> $main:line-loop: <span class="Delimiter">{</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L37" class="LineNr"> 37 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L37" class="LineNr"> 37 </span> compare done?, <span class="Constant">0</span>/false <span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-!=</span> <span id="L39" class="LineNr"> 39 </span><span class="CommentedCode">#? print-int32-decimal 0, num-rows</span> <span id="L40" class="LineNr"> 40 </span><span class="CommentedCode">#? print-string 0, " "</span> <span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-int32-decimal 0, width</span> <span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> index trees, trees-length -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> dest/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> index trees, trees-length +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span id="L45" class="LineNr"> 45 </span> <span class="muComment"># newline comes only at end of line</span> -<span id="L46" class="LineNr"> 46 </span> compare c, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L46" class="LineNr"> 46 </span> compare c, <span class="Constant">0xa</span>/newline <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">break-if-=</span> <span id="L48" class="LineNr"> 48 </span> <span class="muComment"># '#' = tree</span> -<span id="L49" class="LineNr"> 49 </span> compare c, <span class="Constant">0x23</span> <span class="muComment"># '#'</span> +<span id="L49" class="LineNr"> 49 </span> compare c, <span class="Constant">0x23</span>/hash <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> <span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-!=</span> <span id="L52" class="LineNr"> 52 </span> copy-to *dest, <span class="Constant">1</span> @@ -116,7 +116,7 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> copy-to *dest, <span class="Constant">0</span> <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> increment width -<span id="L60" class="LineNr"> 60 </span> trees-length <span class="SpecialChar"><-</span> increment +<span id="L60" class="LineNr"> 60 </span> trees-length <span class="Special"><-</span> increment <span id="L61" class="LineNr"> 61 </span> <span class="PreProc">loop</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> increment num-rows @@ -124,29 +124,29 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span> <span class="Delimiter">}</span> <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> <span id="L67" class="LineNr"> 67 </span> <span class="muComment"># phase 2: compute</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> product/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">1</span>, <span class="Constant">1</span> -<span id="L70" class="LineNr"> 70 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L71" class="LineNr"> 71 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L72" class="LineNr"> 72 </span> product <span class="SpecialChar"><-</span> multiply result -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">3</span>, <span class="Constant">1</span> -<span id="L74" class="LineNr"> 74 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L75" class="LineNr"> 75 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L76" class="LineNr"> 76 </span> product <span class="SpecialChar"><-</span> multiply result -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">5</span>, <span class="Constant">1</span> -<span id="L78" class="LineNr"> 78 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L79" class="LineNr"> 79 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L80" class="LineNr"> 80 </span> product <span class="SpecialChar"><-</span> multiply result -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">7</span>, <span class="Constant">1</span> -<span id="L82" class="LineNr"> 82 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L83" class="LineNr"> 83 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> -<span id="L84" class="LineNr"> 84 </span> product <span class="SpecialChar"><-</span> multiply result -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">1</span>, <span class="Constant">2</span> -<span id="L86" class="LineNr"> 86 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L87" class="LineNr"> 87 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" = "</span> -<span id="L88" class="LineNr"> 88 </span> product <span class="SpecialChar"><-</span> multiply result -<span id="L89" class="LineNr"> 89 </span> <a href='../../405screen.mu.html#L436'>print-int32-hex</a> <span class="Constant">0</span>, product -<span id="L90" class="LineNr"> 90 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> product/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">1</span>, <span class="Constant">1</span> +<span id="L70" class="LineNr"> 70 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result +<span id="L71" class="LineNr"> 71 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> +<span id="L72" class="LineNr"> 72 </span> product <span class="Special"><-</span> multiply result +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">3</span>, <span class="Constant">1</span> +<span id="L74" class="LineNr"> 74 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result +<span id="L75" class="LineNr"> 75 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> +<span id="L76" class="LineNr"> 76 </span> product <span class="Special"><-</span> multiply result +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">5</span>, <span class="Constant">1</span> +<span id="L78" class="LineNr"> 78 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result +<span id="L79" class="LineNr"> 79 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> +<span id="L80" class="LineNr"> 80 </span> product <span class="Special"><-</span> multiply result +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">7</span>, <span class="Constant">1</span> +<span id="L82" class="LineNr"> 82 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result +<span id="L83" class="LineNr"> 83 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" x "</span> +<span id="L84" class="LineNr"> 84 </span> product <span class="Special"><-</span> multiply result +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='3b.mu.html#L94'>num-trees-hit</a> trees, width, num-rows, <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L86" class="LineNr"> 86 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result +<span id="L87" class="LineNr"> 87 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" = "</span> +<span id="L88" class="LineNr"> 88 </span> product <span class="Special"><-</span> multiply result +<span id="L89" class="LineNr"> 89 </span> <a href='../405screen.mu.html#L440'>print-int32-hex</a> <span class="Constant">0</span>, product +<span id="L90" class="LineNr"> 90 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span> @@ -156,42 +156,42 @@ if ('onhashchange' in window) { <span id="L97" class="LineNr"> 97 </span><span class="CommentedCode">#? print-string 0, " "</span> <span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? print-int32-decimal 0, down</span> <span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> <a href='3b.mu.html#L94'>num-trees-hit</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> <a href='3b.mu.html#L94'>num-trees-hit</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> <span id="L104" class="LineNr">104 </span> compare row, num-rows <span id="L105" class="LineNr">105 </span> <span class="PreProc">break-if->=</span> <span id="L106" class="LineNr">106 </span><span class="CommentedCode">#? print-int32-decimal 0, col</span> <span id="L107" class="LineNr">107 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> index2d trees, row, col, width +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='3b.mu.html#L121'>index2d</a> trees, row, col, width <span id="L109" class="LineNr">109 </span> compare curr, <span class="Constant">0</span> <span id="L110" class="LineNr">110 </span> <span class="Delimiter">{</span> <span id="L111" class="LineNr">111 </span> <span class="PreProc">break-if-=</span> -<span id="L112" class="LineNr">112 </span> <a href='3b.mu.html#L94'>num-trees-hit</a> <span class="SpecialChar"><-</span> increment +<span id="L112" class="LineNr">112 </span> <a href='3b.mu.html#L94'>num-trees-hit</a> <span class="Special"><-</span> increment <span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> -<span id="L114" class="LineNr">114 </span> col <span class="SpecialChar"><-</span> add right -<span id="L115" class="LineNr">115 </span> row <span class="SpecialChar"><-</span> add down +<span id="L114" class="LineNr">114 </span> col <span class="Special"><-</span> add right +<span id="L115" class="LineNr">115 </span> row <span class="Special"><-</span> add down <span id="L116" class="LineNr">116 </span> <span class="PreProc">loop</span> <span id="L117" class="LineNr">117 </span> <span class="Delimiter">}</span> <span id="L118" class="LineNr">118 </span> <span class="PreProc">return</span> <a href='3b.mu.html#L94'>num-trees-hit</a> <span id="L119" class="LineNr">119 </span><span class="Delimiter">}</span> <span id="L120" class="LineNr">120 </span> -<span id="L121" class="LineNr">121 </span><span class="PreProc">fn</span> <span class="muFunction">index2d</span> _arr: (addr array int), _row: int, _col: int, width: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3b.mu.html#L121'>index2d</a></span> _arr: (addr array int), _row: int, _col: int, width: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L122" class="LineNr">122 </span> <span class="muComment"># handle repeating columns of trees</span> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L125" class="LineNr">125 </span> dummy, col <span class="SpecialChar"><-</span> <a href='../../314divide.subx.html#L3'>integer-divide</a> _col, width +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L125" class="LineNr">125 </span> dummy, col <span class="Special"><-</span> <a href='../314divide.subx.html#L3'>integer-divide</a> _col, width <span id="L126" class="LineNr">126 </span><span class="CommentedCode">#? print-string 0, " "</span> <span id="L127" class="LineNr">127 </span><span class="CommentedCode">#? print-int32-decimal 0, col</span> <span id="L128" class="LineNr">128 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L129" class="LineNr">129 </span> <span class="muComment"># compute index</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> index/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _row -<span id="L131" class="LineNr">131 </span> index <span class="SpecialChar"><-</span> multiply width -<span id="L132" class="LineNr">132 </span> index <span class="SpecialChar"><-</span> add col +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> index/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _row +<span id="L131" class="LineNr">131 </span> index <span class="Special"><-</span> multiply width +<span id="L132" class="LineNr">132 </span> index <span class="Special"><-</span> add col <span id="L133" class="LineNr">133 </span> <span class="muComment"># look up array</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> arr/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _arr -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index arr, index +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> arr/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> copy _arr +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index arr, index <span id="L136" class="LineNr">136 </span> <span class="PreProc">return</span> *src <span id="L137" class="LineNr">137 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/advent2020/4a.mu.html b/html/linux/advent2020/4a.mu.html index 36d1f6a6..0f0b91fc 100644 --- a/html/apps/advent2020/4a.mu.html +++ b/html/linux/advent2020/4a.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/4a.mu</title> +<title>Mu - linux/advent2020/4a.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,69 +54,69 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/4a.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/4a.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/4a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/4a.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/4">https://adventofcode.com/2020/day/4</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/4a.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/4a.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> curr-passport-field-count/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> valid-passport-count/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='4a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> curr-passport-field-count/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> valid-passport-count/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> line/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> line/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> slice-storage: slice -<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> slice/<span class="Constant">edx</span>: (addr slice) <span class="SpecialChar"><-</span> address slice-storage +<span id="L17" class="LineNr">17 </span> <span class="PreProc">var</span> slice/<span class="Constant">edx</span>: (addr slice) <span class="Special"><-</span> address slice-storage <span id="L18" class="LineNr">18 </span> $main:line-loop: <span class="Delimiter">{</span> <span id="L19" class="LineNr">19 </span> <span class="muComment"># read line from stdin</span> -<span id="L20" class="LineNr">20 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L21" class="LineNr">21 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L20" class="LineNr">20 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L21" class="LineNr">21 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L22" class="LineNr">22 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L24" class="LineNr">24 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L24" class="LineNr">24 </span> compare done?, <span class="Constant">0</span>/false <span id="L25" class="LineNr">25 </span> <span class="PreProc">break-if-!=</span> -<span id="L26" class="LineNr">26 </span> <a href='../../304screen.subx.html#L147'>print-stream-to-real-screen</a> line +<span id="L26" class="LineNr">26 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line <span id="L27" class="LineNr">27 </span> <span class="muComment"># if line has just a newline, process passport</span> -<span id="L28" class="LineNr">28 </span> <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> new-passport?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L28" class="LineNr">28 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> new-passport?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line <span id="L30" class="LineNr">30 </span> <span class="Delimiter">{</span> -<span id="L31" class="LineNr">31 </span> compare new-passport?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L31" class="LineNr">31 </span> compare new-passport?, <span class="Constant">0</span>/false <span id="L32" class="LineNr">32 </span> <span class="PreProc">break-if-=</span> <span id="L33" class="LineNr">33 </span> compare curr-passport-field-count, <span class="Constant">7</span> <span id="L34" class="LineNr">34 </span> <span class="Delimiter">{</span> <span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if-!=</span> -<span id="L36" class="LineNr">36 </span> valid-passport-count <span class="SpecialChar"><-</span> increment -<span id="L37" class="LineNr">37 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"=> "</span> -<span id="L38" class="LineNr">38 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L39" class="LineNr">39 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L36" class="LineNr">36 </span> valid-passport-count <span class="Special"><-</span> increment +<span id="L37" class="LineNr">37 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"=> "</span> +<span id="L38" class="LineNr">38 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count +<span id="L39" class="LineNr">39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L40" class="LineNr">40 </span> <span class="Delimiter">}</span> -<span id="L41" class="LineNr">41 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L41" class="LineNr">41 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L42" class="LineNr">42 </span> <span class="PreProc">loop</span> $main:line-loop <span id="L43" class="LineNr">43 </span> <span class="Delimiter">}</span> <span id="L44" class="LineNr">44 </span> $main:word-loop: <span class="Delimiter">{</span> -<span id="L45" class="LineNr">45 </span> <a href='../../127next-word.subx.html#L11'>next-word</a> line, slice -<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L9'>slice-empty?</a> slice -<span id="L47" class="LineNr">47 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L45" class="LineNr">45 </span> <a href='../127next-word.subx.html#L11'>next-word</a> line, slice +<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L9'>slice-empty?</a> slice +<span id="L47" class="LineNr">47 </span> compare done?, <span class="Constant">0</span>/false <span id="L48" class="LineNr">48 </span> <span class="PreProc">break-if-!=</span> -<span id="L49" class="LineNr">49 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L50" class="LineNr">50 </span> <a href='../../304screen.subx.html#L134'>print-slice-to-real-screen</a> slice +<span id="L49" class="LineNr">49 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L50" class="LineNr">50 </span> <a href='../304screen.subx.html#L134'>print-slice-to-real-screen</a> slice <span id="L51" class="LineNr">51 </span> <span class="muComment"># treat cid as optional</span> -<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> optional?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L487'>slice-starts-with?</a> slice, <span class="Constant">"cid:"</span> -<span id="L53" class="LineNr">53 </span> compare optional?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> optional?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L487'>slice-starts-with?</a> slice, <span class="Constant">"cid:"</span> +<span id="L53" class="LineNr">53 </span> compare optional?, <span class="Constant">0</span>/false <span id="L54" class="LineNr">54 </span> <span class="Delimiter">{</span> <span id="L55" class="LineNr">55 </span> <span class="PreProc">break-if-!=</span> <span id="L56" class="LineNr">56 </span> <span class="muComment"># otherwise assume there are no invalid fields and no duplicate fields</span> -<span id="L57" class="LineNr">57 </span> curr-passport-field-count <span class="SpecialChar"><-</span> increment -<span id="L58" class="LineNr">58 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" => "</span> -<span id="L59" class="LineNr">59 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, curr-passport-field-count +<span id="L57" class="LineNr">57 </span> curr-passport-field-count <span class="Special"><-</span> increment +<span id="L58" class="LineNr">58 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" => "</span> +<span id="L59" class="LineNr">59 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, curr-passport-field-count <span id="L60" class="LineNr">60 </span> <span class="Delimiter">}</span> -<span id="L61" class="LineNr">61 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L61" class="LineNr">61 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L62" class="LineNr">62 </span> <span class="PreProc">loop</span> <span id="L63" class="LineNr">63 </span> <span class="Delimiter">}</span> <span id="L64" class="LineNr">64 </span> <span class="PreProc">loop</span> @@ -125,10 +125,10 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr">67 </span> compare curr-passport-field-count, <span class="Constant">7</span> <span id="L68" class="LineNr">68 </span> <span class="Delimiter">{</span> <span id="L69" class="LineNr">69 </span> <span class="PreProc">break-if-!=</span> -<span id="L70" class="LineNr">70 </span> valid-passport-count <span class="SpecialChar"><-</span> increment +<span id="L70" class="LineNr">70 </span> valid-passport-count <span class="Special"><-</span> increment <span id="L71" class="LineNr">71 </span> <span class="Delimiter">}</span> -<span id="L72" class="LineNr">72 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L73" class="LineNr">73 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L72" class="LineNr">72 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count +<span id="L73" class="LineNr">73 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L74" class="LineNr">74 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L75" class="LineNr">75 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/advent2020/4b.mu.html b/html/linux/advent2020/4b.mu.html index 1a8c2b8d..b48f3811 100644 --- a/html/apps/advent2020/4b.mu.html +++ b/html/linux/advent2020/4b.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/4b.mu</title> +<title>Mu - linux/advent2020/4b.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,306 +54,306 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/4b.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/4b.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/4b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/4b.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/4">https://adventofcode.com/2020/day/4</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/4b.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/4b.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr"> 10 </span> -<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> curr-passport-field-count/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> valid-passport-count/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='4b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> curr-passport-field-count/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> valid-passport-count/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) <span class="muComment"># 256 bytes</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> line/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> line/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> key-slice-storage: slice -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> key-slice/<span class="Constant">edx</span>: (addr slice) <span class="SpecialChar"><-</span> address key-slice-storage +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> key-slice/<span class="Constant">edx</span>: (addr slice) <span class="Special"><-</span> address key-slice-storage <span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> val-slice-storage: slice -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> val-slice/<span class="Constant">ebx</span>: (addr slice) <span class="SpecialChar"><-</span> address val-slice-storage +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> val-slice/<span class="Constant">ebx</span>: (addr slice) <span class="Special"><-</span> address val-slice-storage <span id="L20" class="LineNr"> 20 </span> $main:line-loop: <span class="Delimiter">{</span> <span id="L21" class="LineNr"> 21 </span> <span class="muComment"># read line from stdin</span> -<span id="L22" class="LineNr"> 22 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L23" class="LineNr"> 23 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L22" class="LineNr"> 22 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L23" class="LineNr"> 23 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L24" class="LineNr"> 24 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L26" class="LineNr"> 26 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L26" class="LineNr"> 26 </span> compare done?, <span class="Constant">0</span>/false <span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-!=</span> -<span id="L28" class="LineNr"> 28 </span> <a href='../../304screen.subx.html#L147'>print-stream-to-real-screen</a> line +<span id="L28" class="LineNr"> 28 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line <span id="L29" class="LineNr"> 29 </span> <span class="muComment"># if line has just a newline, process passport</span> -<span id="L30" class="LineNr"> 30 </span> <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> new-passport?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L30" class="LineNr"> 30 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> new-passport?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line <span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">{</span> -<span id="L33" class="LineNr"> 33 </span> compare new-passport?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L33" class="LineNr"> 33 </span> compare new-passport?, <span class="Constant">0</span>/false <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break-if-=</span> <span id="L35" class="LineNr"> 35 </span> compare curr-passport-field-count, <span class="Constant">7</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">{</span> <span id="L37" class="LineNr"> 37 </span> <span class="PreProc">break-if-!=</span> -<span id="L38" class="LineNr"> 38 </span> valid-passport-count <span class="SpecialChar"><-</span> increment -<span id="L39" class="LineNr"> 39 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"=> "</span> -<span id="L40" class="LineNr"> 40 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L41" class="LineNr"> 41 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L38" class="LineNr"> 38 </span> valid-passport-count <span class="Special"><-</span> increment +<span id="L39" class="LineNr"> 39 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"=> "</span> +<span id="L40" class="LineNr"> 40 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count +<span id="L41" class="LineNr"> 41 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> -<span id="L43" class="LineNr"> 43 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L43" class="LineNr"> 43 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L44" class="LineNr"> 44 </span> <span class="PreProc">loop</span> $main:line-loop <span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> <span id="L46" class="LineNr"> 46 </span> $main:word-loop: <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <a href='../../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L49" class="LineNr"> 49 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L47" class="LineNr"> 47 </span> <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> line +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L49" class="LineNr"> 49 </span> compare done?, <span class="Constant">0</span>/false <span id="L50" class="LineNr"> 50 </span> <span class="PreProc">break-if-!=</span> -<span id="L51" class="LineNr"> 51 </span> <a href='../../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x3a</span>, key-slice <span class="muComment"># ':'</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> -<span id="L53" class="LineNr"> 53 </span> <a href='../../127next-word.subx.html#L306'>next-raw-word</a> line, val-slice -<span id="L54" class="LineNr"> 54 </span> <a href='../../304screen.subx.html#L134'>print-slice-to-real-screen</a> key-slice -<span id="L55" class="LineNr"> 55 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" : "</span> -<span id="L56" class="LineNr"> 56 </span> <a href='../../304screen.subx.html#L134'>print-slice-to-real-screen</a> val-slice -<span id="L57" class="LineNr"> 57 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L51" class="LineNr"> 51 </span> <a href='../124next-token.subx.html#L10'>next-token</a> line, <span class="Constant">0x3a</span>, key-slice <span class="muComment"># ':'</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> line <span class="muComment"># skip ':'</span> +<span id="L53" class="LineNr"> 53 </span> <a href='../127next-word.subx.html#L306'>next-raw-word</a> line, val-slice +<span id="L54" class="LineNr"> 54 </span> <a href='../304screen.subx.html#L134'>print-slice-to-real-screen</a> key-slice +<span id="L55" class="LineNr"> 55 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" : "</span> +<span id="L56" class="LineNr"> 56 </span> <a href='../304screen.subx.html#L134'>print-slice-to-real-screen</a> val-slice +<span id="L57" class="LineNr"> 57 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L58" class="LineNr"> 58 </span> <span class="muComment"># treat cid as optional</span> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> cid?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"cid"</span> -<span id="L60" class="LineNr"> 60 </span> compare cid?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> cid?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"cid"</span> +<span id="L60" class="LineNr"> 60 </span> compare cid?, <span class="Constant">0</span>/false <span id="L61" class="LineNr"> 61 </span> <span class="PreProc">loop-if-!=</span> <span id="L62" class="LineNr"> 62 </span> <span class="muComment"># increment field count</span> -<span id="L63" class="LineNr"> 63 </span> curr-passport-field-count <span class="SpecialChar"><-</span> increment +<span id="L63" class="LineNr"> 63 </span> curr-passport-field-count <span class="Special"><-</span> increment <span id="L64" class="LineNr"> 64 </span> <span class="muComment"># - validate fields one by one, setting curr-passport-field-count to impossibly high value to signal invalid</span> <span id="L65" class="LineNr"> 65 </span> <span class="muComment"># byr</span> <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> byr?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"byr"</span> -<span id="L68" class="LineNr"> 68 </span> compare byr?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> byr?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"byr"</span> +<span id="L68" class="LineNr"> 68 </span> compare byr?, <span class="Constant">0</span>/false <span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-=</span> <span id="L70" class="LineNr"> 70 </span> <span class="muComment"># 1920 <= byr <= 2002</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> byr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> byr/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice <span id="L72" class="LineNr"> 72 </span> compare byr, <span class="Constant">0x780</span> <span class="muComment"># 1920</span> <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if->=</span> -<span id="L75" class="LineNr"> 75 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L76" class="LineNr"> 76 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L75" class="LineNr"> 75 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L76" class="LineNr"> 76 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> <span id="L78" class="LineNr"> 78 </span> compare byr, <span class="Constant">0x7d2</span> <span class="muComment"># 2002</span> <span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">{</span> <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">break-if-<=</span> -<span id="L81" class="LineNr"> 81 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L82" class="LineNr"> 82 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L81" class="LineNr"> 81 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L82" class="LineNr"> 82 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> <span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> <span id="L85" class="LineNr"> 85 </span> <span class="muComment"># iyr</span> <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> iyr?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"iyr"</span> -<span id="L88" class="LineNr"> 88 </span> compare iyr?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> iyr?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"iyr"</span> +<span id="L88" class="LineNr"> 88 </span> compare iyr?, <span class="Constant">0</span>/false <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-=</span> <span id="L90" class="LineNr"> 90 </span> <span class="muComment"># 2010 <= iyr <= 2020</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> iyr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> iyr/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice <span id="L92" class="LineNr"> 92 </span> compare iyr, <span class="Constant">0x7da</span> <span class="muComment"># 2010</span> <span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">break-if->=</span> -<span id="L95" class="LineNr"> 95 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L96" class="LineNr"> 96 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L95" class="LineNr"> 95 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L96" class="LineNr"> 96 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> <span id="L98" class="LineNr"> 98 </span> compare iyr, <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">{</span> <span id="L100" class="LineNr">100 </span> <span class="PreProc">break-if-<=</span> -<span id="L101" class="LineNr">101 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L102" class="LineNr">102 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L102" class="LineNr">102 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L103" class="LineNr">103 </span> <span class="Delimiter">}</span> <span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> <span id="L105" class="LineNr">105 </span> <span class="muComment"># eyr</span> <span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> eyr?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"eyr"</span> -<span id="L108" class="LineNr">108 </span> compare eyr?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> eyr?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"eyr"</span> +<span id="L108" class="LineNr">108 </span> compare eyr?, <span class="Constant">0</span>/false <span id="L109" class="LineNr">109 </span> <span class="PreProc">break-if-=</span> <span id="L110" class="LineNr">110 </span> <span class="muComment"># 2020 <= eyr <= 2030</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> eyr/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> eyr/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice <span id="L112" class="LineNr">112 </span> compare eyr, <span class="Constant">0x7e4</span> <span class="muComment"># 2020</span> <span id="L113" class="LineNr">113 </span> <span class="Delimiter">{</span> <span id="L114" class="LineNr">114 </span> <span class="PreProc">break-if->=</span> -<span id="L115" class="LineNr">115 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L116" class="LineNr">116 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L115" class="LineNr">115 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L116" class="LineNr">116 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L117" class="LineNr">117 </span> <span class="Delimiter">}</span> <span id="L118" class="LineNr">118 </span> compare eyr, <span class="Constant">0x7ee</span> <span class="muComment"># 2030</span> <span id="L119" class="LineNr">119 </span> <span class="Delimiter">{</span> <span id="L120" class="LineNr">120 </span> <span class="PreProc">break-if-<=</span> -<span id="L121" class="LineNr">121 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L122" class="LineNr">122 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L121" class="LineNr">121 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L122" class="LineNr">122 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L123" class="LineNr">123 </span> <span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> <span id="L125" class="LineNr">125 </span> <span class="muComment"># hgt</span> <span id="L126" class="LineNr">126 </span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> hgt?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"hgt"</span> -<span id="L128" class="LineNr">128 </span> compare hgt?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> hgt?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"hgt"</span> +<span id="L128" class="LineNr">128 </span> compare hgt?, <span class="Constant">0</span>/false <span id="L129" class="LineNr">129 </span> <span class="PreProc">break-if-=</span> <span id="L130" class="LineNr">130 </span> <span class="muComment"># convert val</span> <span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> s: (handle array byte) -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> s2/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address s -<span id="L133" class="LineNr">133 </span> <a href='../../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> s3/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *s2 -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> s4/<span class="Constant">ebx</span>: (addr array byte) <span class="SpecialChar"><-</span> copy s3 +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> s2/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address s +<span id="L133" class="LineNr">133 </span> <a href='../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> s3/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *s2 +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> s4/<span class="Constant">ebx</span>: (addr array byte) <span class="Special"><-</span> copy s3 <span id="L136" class="LineNr">136 </span> <span class="muComment"># check suffix</span> -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> start/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> length s4 -<span id="L138" class="LineNr">138 </span> start <span class="SpecialChar"><-</span> subtract <span class="Constant">2</span> <span class="muComment"># luckily both 'in' and 'cm' have the same length</span> +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> start/<span class="Constant">edx</span>: int <span class="Special"><-</span> length s4 +<span id="L138" class="LineNr">138 </span> start <span class="Special"><-</span> subtract <span class="Constant">2</span> <span class="muComment"># luckily both 'in' and 'cm' have the same length</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">{</span> <span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> suffix-h: (handle array byte) -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> suffix-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address suffix-h -<span id="L142" class="LineNr">142 </span> <a href='../../411string.mu.html#L2'>substring</a> s4, start, <span class="Constant">2</span>, suffix-ah -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> suffix/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *suffix-ah +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> suffix-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address suffix-h +<span id="L142" class="LineNr">142 </span> <a href='../411string.mu.html#L2'>substring</a> s4, start, <span class="Constant">2</span>, suffix-ah +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> suffix/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *suffix-ah <span id="L144" class="LineNr">144 </span> <span class="Delimiter">{</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> suffix, <span class="Constant">"in"</span> -<span id="L146" class="LineNr">146 </span> compare match?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> suffix, <span class="Constant">"in"</span> +<span id="L146" class="LineNr">146 </span> compare match?, <span class="Constant">0</span>/false <span id="L147" class="LineNr">147 </span> <span class="PreProc">break-if-=</span> <span id="L148" class="LineNr">148 </span> <span class="muComment"># if suffix is "in", 59 <= val <= 96</span> <span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> num-h: (handle array byte) -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> num-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address num-h -<span id="L151" class="LineNr">151 </span> <a href='../../411string.mu.html#L2'>substring</a> s4, <span class="Constant">0</span>, start, num-ah -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> num/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *num-ah -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L23'>parse-decimal-int</a> num +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> num-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address num-h +<span id="L151" class="LineNr">151 </span> <a href='../411string.mu.html#L2'>substring</a> s4, <span class="Constant">0</span>, start, num-ah +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> num/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *num-ah +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L23'>parse-decimal-int</a> num <span id="L154" class="LineNr">154 </span> compare val, <span class="Constant">0x3b</span> <span class="muComment"># 59</span> <span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> <span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if->=</span> -<span id="L157" class="LineNr">157 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L158" class="LineNr">158 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L157" class="LineNr">157 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L158" class="LineNr">158 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> <span id="L160" class="LineNr">160 </span> compare val, <span class="Constant">0x60</span> <span class="muComment"># 96</span> <span id="L161" class="LineNr">161 </span> <span class="Delimiter">{</span> <span id="L162" class="LineNr">162 </span> <span class="PreProc">break-if-<=</span> -<span id="L163" class="LineNr">163 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L164" class="LineNr">164 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L163" class="LineNr">163 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L164" class="LineNr">164 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> <span id="L166" class="LineNr">166 </span> <span class="PreProc">loop</span> $main:word-loop <span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> <span id="L168" class="LineNr">168 </span> <span class="Delimiter">{</span> -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> suffix, <span class="Constant">"cm"</span> -<span id="L170" class="LineNr">170 </span> compare match?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> suffix, <span class="Constant">"cm"</span> +<span id="L170" class="LineNr">170 </span> compare match?, <span class="Constant">0</span>/false <span id="L171" class="LineNr">171 </span> <span class="PreProc">break-if-=</span> <span id="L172" class="LineNr">172 </span> <span class="muComment"># if suffix is "cm", 150 <= val <= 193</span> <span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> num-h: (handle array byte) -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> num-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address num-h -<span id="L175" class="LineNr">175 </span> <a href='../../411string.mu.html#L2'>substring</a> s4, <span class="Constant">0</span>, start, num-ah -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> num/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *num-ah -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L23'>parse-decimal-int</a> num +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> num-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address num-h +<span id="L175" class="LineNr">175 </span> <a href='../411string.mu.html#L2'>substring</a> s4, <span class="Constant">0</span>, start, num-ah +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> num/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *num-ah +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L23'>parse-decimal-int</a> num <span id="L178" class="LineNr">178 </span> compare val, <span class="Constant">0x96</span> <span class="muComment"># 150</span> <span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> <span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if->=</span> -<span id="L181" class="LineNr">181 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L182" class="LineNr">182 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L181" class="LineNr">181 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L182" class="LineNr">182 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> <span id="L184" class="LineNr">184 </span> compare val, <span class="Constant">0xc1</span> <span class="muComment"># 193</span> <span id="L185" class="LineNr">185 </span> <span class="Delimiter">{</span> <span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-<=</span> -<span id="L187" class="LineNr">187 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L188" class="LineNr">188 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L187" class="LineNr">187 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L188" class="LineNr">188 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> <span id="L190" class="LineNr">190 </span> <span class="PreProc">loop</span> $main:word-loop <span id="L191" class="LineNr">191 </span> <span class="Delimiter">}</span> -<span id="L192" class="LineNr">192 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L193" class="LineNr">193 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L192" class="LineNr">192 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L193" class="LineNr">193 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L194" class="LineNr">194 </span> <span class="PreProc">loop</span> $main:word-loop <span id="L195" class="LineNr">195 </span> <span class="Delimiter">}</span> <span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> <span id="L197" class="LineNr">197 </span> <span class="muComment"># hcl</span> <span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> -<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> hcl?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"hcl"</span> -<span id="L200" class="LineNr">200 </span> compare hcl?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> hcl?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"hcl"</span> +<span id="L200" class="LineNr">200 </span> compare hcl?, <span class="Constant">0</span>/false <span id="L201" class="LineNr">201 </span> <span class="PreProc">break-if-=</span> <span id="L202" class="LineNr">202 </span> <span class="muComment"># convert val</span> <span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> s: (handle array byte) -<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> s2/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address s -<span id="L205" class="LineNr">205 </span> <a href='../../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> s3/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *s2 +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> s2/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address s +<span id="L205" class="LineNr">205 </span> <a href='../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> s3/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *s2 <span id="L207" class="LineNr">207 </span> <span class="muComment"># check length</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> len/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> length s3 +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> len/<span class="Constant">ebx</span>: int <span class="Special"><-</span> length s3 <span id="L209" class="LineNr">209 </span> compare len, <span class="Constant">7</span> <span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> <span id="L211" class="LineNr">211 </span> <span class="PreProc">break-if-=</span> -<span id="L212" class="LineNr">212 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L213" class="LineNr">213 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L212" class="LineNr">212 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L213" class="LineNr">213 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L214" class="LineNr">214 </span> <span class="PreProc">loop</span> $main:word-loop <span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> <span id="L216" class="LineNr">216 </span> <span class="muComment"># check first byte</span> <span id="L217" class="LineNr">217 </span> <span class="Delimiter">{</span> -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr byte) <span class="SpecialChar"><-</span> index s3, <span class="Constant">0</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> c2/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *c -<span id="L220" class="LineNr">220 </span> compare c2, <span class="Constant">0x23</span> <span class="muComment"># '#'</span> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr byte) <span class="Special"><-</span> index s3, <span class="Constant">0</span> +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> c2/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *c +<span id="L220" class="LineNr">220 </span> compare c2, <span class="Constant">0x23</span>/hash <span id="L221" class="LineNr">221 </span> <span class="PreProc">break-if-=</span> -<span id="L222" class="LineNr">222 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid2\n"</span> -<span id="L223" class="LineNr">223 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L222" class="LineNr">222 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid2\n"</span> +<span id="L223" class="LineNr">223 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L224" class="LineNr">224 </span> <span class="PreProc">loop</span> $main:word-loop <span id="L225" class="LineNr">225 </span> <span class="Delimiter">}</span> <span id="L226" class="LineNr">226 </span> <span class="muComment"># check remaining bytes</span> -<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># skip 0</span> +<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span class="muComment"># skip 0</span> <span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> <span id="L229" class="LineNr">229 </span> compare i, <span class="Constant">7</span> <span id="L230" class="LineNr">230 </span> <span class="PreProc">break-if->=</span> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr byte) <span class="SpecialChar"><-</span> index s3, i +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr byte) <span class="Special"><-</span> index s3, i <span id="L232" class="LineNr">232 </span> <span class="Delimiter">{</span> -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> c2/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *c -<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> valid?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../118parse-hex-int.subx.html#L701'>is-hex-digit?</a> c2 +<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> c2/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *c +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> valid?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../118parse-hex-int.subx.html#L701'>hex-digit?</a> c2 <span id="L235" class="LineNr">235 </span> compare valid?, <span class="Constant">0</span> <span id="L236" class="LineNr">236 </span> <span class="PreProc">loop-if-=</span> $main:word-loop <span id="L237" class="LineNr">237 </span> <span class="Delimiter">}</span> -<span id="L238" class="LineNr">238 </span> i <span class="SpecialChar"><-</span> increment +<span id="L238" class="LineNr">238 </span> i <span class="Special"><-</span> increment <span id="L239" class="LineNr">239 </span> <span class="PreProc">loop</span> <span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> <span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> <span id="L242" class="LineNr">242 </span> <span class="muComment"># ecl</span> <span id="L243" class="LineNr">243 </span> <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> ecl?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"ecl"</span> -<span id="L245" class="LineNr">245 </span> compare ecl?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> ecl?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"ecl"</span> +<span id="L245" class="LineNr">245 </span> compare ecl?, <span class="Constant">0</span>/false <span id="L246" class="LineNr">246 </span> <span class="PreProc">break-if-=</span> -<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> amb?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"amb"</span> -<span id="L248" class="LineNr">248 </span> compare amb?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> amb?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"amb"</span> +<span id="L248" class="LineNr">248 </span> compare amb?, <span class="Constant">0</span>/false <span id="L249" class="LineNr">249 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> blu?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"blu"</span> -<span id="L251" class="LineNr">251 </span> compare blu?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> blu?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"blu"</span> +<span id="L251" class="LineNr">251 </span> compare blu?, <span class="Constant">0</span>/false <span id="L252" class="LineNr">252 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> brn?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"brn"</span> -<span id="L254" class="LineNr">254 </span> compare brn?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> brn?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"brn"</span> +<span id="L254" class="LineNr">254 </span> compare brn?, <span class="Constant">0</span>/false <span id="L255" class="LineNr">255 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> gry?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"gry"</span> -<span id="L257" class="LineNr">257 </span> compare gry?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> gry?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"gry"</span> +<span id="L257" class="LineNr">257 </span> compare gry?, <span class="Constant">0</span>/false <span id="L258" class="LineNr">258 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> grn?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"grn"</span> -<span id="L260" class="LineNr">260 </span> compare grn?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> grn?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"grn"</span> +<span id="L260" class="LineNr">260 </span> compare grn?, <span class="Constant">0</span>/false <span id="L261" class="LineNr">261 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> hzl?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"hzl"</span> -<span id="L263" class="LineNr">263 </span> compare hzl?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> hzl?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"hzl"</span> +<span id="L263" class="LineNr">263 </span> compare hzl?, <span class="Constant">0</span>/false <span id="L264" class="LineNr">264 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> oth?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"oth"</span> -<span id="L266" class="LineNr">266 </span> compare oth?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> oth?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> val-slice, <span class="Constant">"oth"</span> +<span id="L266" class="LineNr">266 </span> compare oth?, <span class="Constant">0</span>/false <span id="L267" class="LineNr">267 </span> <span class="PreProc">loop-if-!=</span> $main:word-loop -<span id="L268" class="LineNr">268 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L269" class="LineNr">269 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L268" class="LineNr">268 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L269" class="LineNr">269 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L270" class="LineNr">270 </span> <span class="Delimiter">}</span> <span id="L271" class="LineNr">271 </span> <span class="muComment"># pid</span> <span id="L272" class="LineNr">272 </span> <span class="Delimiter">{</span> -<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> pid?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"pid"</span> -<span id="L274" class="LineNr">274 </span> compare pid?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> pid?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> key-slice, <span class="Constant">"pid"</span> +<span id="L274" class="LineNr">274 </span> compare pid?, <span class="Constant">0</span>/false <span id="L275" class="LineNr">275 </span> <span class="PreProc">break-if-=</span> <span id="L276" class="LineNr">276 </span> <span class="muComment"># convert val</span> <span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> s: (handle array byte) -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> s2/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address s -<span id="L279" class="LineNr">279 </span> <a href='../../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 -<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> s3/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *s2 +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> s2/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address s +<span id="L279" class="LineNr">279 </span> <a href='../315slice.subx.html#L5'>_slice-to-string</a> val-slice, s2 +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> s3/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *s2 <span id="L281" class="LineNr">281 </span> <span class="muComment"># check length</span> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> length s3 +<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> len/<span class="Constant">eax</span>: int <span class="Special"><-</span> length s3 <span id="L283" class="LineNr">283 </span> compare len, <span class="Constant">9</span> <span id="L284" class="LineNr">284 </span> <span class="Delimiter">{</span> <span id="L285" class="LineNr">285 </span> <span class="PreProc">break-if-=</span> -<span id="L286" class="LineNr">286 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L287" class="LineNr">287 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L286" class="LineNr">286 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L287" class="LineNr">287 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L288" class="LineNr">288 </span> <span class="PreProc">loop</span> $main:word-loop <span id="L289" class="LineNr">289 </span> <span class="Delimiter">}</span> <span id="L290" class="LineNr">290 </span> <span class="muComment"># check valid decimal int</span> <span id="L291" class="LineNr">291 </span> <span class="muComment"># parse-decimal-int-from-slice currently returns 0 on invalid parse,</span> <span id="L292" class="LineNr">292 </span> <span class="muComment"># which isn't ideal but suffices for our purposes</span> -<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice +<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> val-slice <span id="L294" class="LineNr">294 </span> compare val, <span class="Constant">0</span> <span id="L295" class="LineNr">295 </span> <span class="Delimiter">{</span> <span id="L296" class="LineNr">296 </span> <span class="PreProc">break-if-></span> -<span id="L297" class="LineNr">297 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> -<span id="L298" class="LineNr">298 </span> curr-passport-field-count <span class="SpecialChar"><-</span> copy <span class="Constant">8</span> +<span id="L297" class="LineNr">297 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"invalid\n"</span> +<span id="L298" class="LineNr">298 </span> curr-passport-field-count <span class="Special"><-</span> copy <span class="Constant">8</span> <span id="L299" class="LineNr">299 </span> <span class="Delimiter">}</span> <span id="L300" class="LineNr">300 </span> <span class="Delimiter">}</span> <span id="L301" class="LineNr">301 </span> <span class="PreProc">loop</span> @@ -364,10 +364,10 @@ if ('onhashchange' in window) { <span id="L306" class="LineNr">306 </span> compare curr-passport-field-count, <span class="Constant">7</span> <span id="L307" class="LineNr">307 </span> <span class="Delimiter">{</span> <span id="L308" class="LineNr">308 </span> <span class="PreProc">break-if-!=</span> -<span id="L309" class="LineNr">309 </span> valid-passport-count <span class="SpecialChar"><-</span> increment +<span id="L309" class="LineNr">309 </span> valid-passport-count <span class="Special"><-</span> increment <span id="L310" class="LineNr">310 </span> <span class="Delimiter">}</span> -<span id="L311" class="LineNr">311 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count -<span id="L312" class="LineNr">312 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L311" class="LineNr">311 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, valid-passport-count +<span id="L312" class="LineNr">312 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L313" class="LineNr">313 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L314" class="LineNr">314 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/advent2020/5a.mu.html b/html/linux/advent2020/5a.mu.html index 9fd217bd..b2bd1a51 100644 --- a/html/apps/advent2020/5a.mu.html +++ b/html/linux/advent2020/5a.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/5a.mu</title> +<title>Mu - linux/advent2020/5a.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,85 +55,85 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/5a.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/5a.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/5a.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/5a.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/5">https://adventofcode.com/2020/day/5</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/5a.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/5a.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5a.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># 16 bytes is enough</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> max-seat-id/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> max-seat-id/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L15" class="LineNr">15 </span> <span class="Delimiter">{</span> <span id="L16" class="LineNr">16 </span> <span class="muComment"># read line from stdin</span> -<span id="L17" class="LineNr">17 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L18" class="LineNr">18 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line -<span id="L19" class="LineNr">19 </span> <a href='../../304screen.subx.html#L147'>print-stream-to-real-screen</a> line +<span id="L17" class="LineNr">17 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L18" class="LineNr">18 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L19" class="LineNr">19 </span> <a href='../304screen.subx.html#L147'>print-stream-to-real-screen</a> line <span id="L20" class="LineNr">20 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L22" class="LineNr">22 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L22" class="LineNr">22 </span> compare done?, <span class="Constant">0</span>/false <span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if-!=</span> <span id="L24" class="LineNr">24 </span> <span class="muComment"># process line</span> -<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> seat-id/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert-from-binary line +<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> seat-id/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='5a.mu.html#L38'>convert-from-binary</a> line <span id="L26" class="LineNr">26 </span> compare seat-id, max-seat-id <span id="L27" class="LineNr">27 </span> <span class="Delimiter">{</span> <span id="L28" class="LineNr">28 </span> <span class="PreProc">break-if-<=</span> -<span id="L29" class="LineNr">29 </span> max-seat-id <span class="SpecialChar"><-</span> copy seat-id +<span id="L29" class="LineNr">29 </span> max-seat-id <span class="Special"><-</span> copy seat-id <span id="L30" class="LineNr">30 </span> <span class="Delimiter">}</span> <span id="L31" class="LineNr">31 </span> <span class="PreProc">loop</span> <span id="L32" class="LineNr">32 </span> <span class="Delimiter">}</span> -<span id="L33" class="LineNr">33 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, max-seat-id -<span id="L34" class="LineNr">34 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L33" class="LineNr">33 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, max-seat-id +<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L35" class="LineNr">35 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L36" class="LineNr">36 </span><span class="Delimiter">}</span> <span id="L37" class="LineNr">37 </span> -<span id="L38" class="LineNr">38 </span><span class="PreProc">fn</span> <span class="muFunction">convert-from-binary</span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">9</span> <span class="muComment"># loop counter and also exponent</span> +<span id="L38" class="LineNr">38 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5a.mu.html#L38'>convert-from-binary</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">9</span> <span class="muComment"># loop counter and also exponent</span> <span id="L41" class="LineNr">41 </span> <span class="Delimiter">{</span> <span id="L42" class="LineNr">42 </span> compare i, <span class="Constant">0</span> <span id="L43" class="LineNr">43 </span> <span class="PreProc">break-if-<</span> -<span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> in +<span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> in <span id="L45" class="LineNr">45 </span><span class="CommentedCode">#? print-string 0, "char: "</span> <span id="L46" class="LineNr">46 </span><span class="CommentedCode">#? {</span> <span id="L47" class="LineNr">47 </span><span class="CommentedCode">#? var c2/eax: int <- copy c</span> <span id="L48" class="LineNr">48 </span><span class="CommentedCode">#? print-int32-hex 0, c2</span> <span id="L49" class="LineNr">49 </span><span class="CommentedCode">#? }</span> <span id="L50" class="LineNr">50 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> bit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> bit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L52" class="LineNr">52 </span> <span class="Delimiter">{</span> -<span id="L53" class="LineNr">53 </span> compare c, <span class="Constant">0x42</span> <span class="muComment"># 'B'</span> +<span id="L53" class="LineNr">53 </span> compare c, <span class="Constant">0x42</span>/B <span id="L54" class="LineNr">54 </span> <span class="PreProc">break-if-!=</span> -<span id="L55" class="LineNr">55 </span> bit <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L55" class="LineNr">55 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L56" class="LineNr">56 </span> <span class="Delimiter">}</span> <span id="L57" class="LineNr">57 </span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr">58 </span> compare c, <span class="Constant">0x52</span> <span class="muComment"># 'R'</span> +<span id="L58" class="LineNr">58 </span> compare c, <span class="Constant">0x52</span>/R <span id="L59" class="LineNr">59 </span> <span class="PreProc">break-if-!=</span> -<span id="L60" class="LineNr">60 </span> bit <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L60" class="LineNr">60 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L61" class="LineNr">61 </span> <span class="Delimiter">}</span> <span id="L62" class="LineNr">62 </span><span class="CommentedCode">#? print-string 0, "bit: "</span> <span id="L63" class="LineNr">63 </span><span class="CommentedCode">#? print-int32-decimal 0, bit</span> <span id="L64" class="LineNr">64 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L65" class="LineNr">65 </span> <span class="PreProc">var</span> bit-value/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../406int32.mu.html#L5'>repeated-shift-left</a> bit, i +<span id="L65" class="LineNr">65 </span> <span class="PreProc">var</span> bit-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../406int32.mu.html#L5'>repeated-shift-left</a> bit, i <span id="L66" class="LineNr">66 </span><span class="CommentedCode">#? print-string 0, "bit value: "</span> <span id="L67" class="LineNr">67 </span><span class="CommentedCode">#? print-int32-decimal 0, bit-value</span> <span id="L68" class="LineNr">68 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L69" class="LineNr">69 </span> result <span class="SpecialChar"><-</span> add bit-value +<span id="L69" class="LineNr">69 </span> result <span class="Special"><-</span> add bit-value <span id="L70" class="LineNr">70 </span><span class="CommentedCode">#? print-string 0, "result: "</span> <span id="L71" class="LineNr">71 </span><span class="CommentedCode">#? print-int32-decimal 0, result</span> <span id="L72" class="LineNr">72 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L73" class="LineNr">73 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L73" class="LineNr">73 </span> i <span class="Special"><-</span> decrement <span id="L74" class="LineNr">74 </span> <span class="PreProc">loop</span> <span id="L75" class="LineNr">75 </span> <span class="Delimiter">}</span> -<span id="L76" class="LineNr">76 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, result -<span id="L77" class="LineNr">77 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L76" class="LineNr">76 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, result +<span id="L77" class="LineNr">77 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L78" class="LineNr">78 </span> <span class="PreProc">return</span> result <span id="L79" class="LineNr">79 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/advent2020/5b.mu.html b/html/linux/advent2020/5b.mu.html index 7d2ccf8c..e312b90a 100644 --- a/html/apps/advent2020/5b.mu.html +++ b/html/linux/advent2020/5b.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/advent2020/5b.mu</title> +<title>Mu - linux/advent2020/5b.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,85 +54,85 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/advent2020/5b.mu'>https://github.com/akkartik/mu/blob/main/apps/advent2020/5b.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/advent2020/5b.mu'>https://github.com/akkartik/mu/blob/main/linux/advent2020/5b.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># <a href="https://adventofcode.com/2020/day/5">https://adventofcode.com/2020/day/5</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/advent2020/5b.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate advent2020/5b.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf < input</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># You'll need to register to download the 'input' file for yourself.</span> <span id="L10" class="LineNr">10 </span> -<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L11" class="LineNr">11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5b.mu.html#L11'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> pass-storage: (array int <span class="Constant">0x400</span>) <span class="muComment"># 1k ints</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> pass/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> address pass-storage +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> pass/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> address pass-storage <span id="L14" class="LineNr">14 </span> <span class="muComment"># phase 1: populate pass array</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># 16 bytes is enough</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address line-storage +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> line/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage <span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> <span id="L18" class="LineNr">18 </span> <span class="muComment"># read line from stdin</span> -<span id="L19" class="LineNr">19 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> line -<span id="L20" class="LineNr">20 </span> <a href='../../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line +<span id="L19" class="LineNr">19 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> line +<span id="L20" class="LineNr">20 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> line <span id="L21" class="LineNr">21 </span> <span class="muComment"># if line is empty (not even a newline), quit</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> line -<span id="L23" class="LineNr">23 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> line +<span id="L23" class="LineNr">23 </span> compare done?, <span class="Constant">0</span>/false <span id="L24" class="LineNr">24 </span> <span class="PreProc">break-if-!=</span> <span id="L25" class="LineNr">25 </span> <span class="muComment"># process line</span> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> seat-id/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert-from-binary line -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index pass, seat-id +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> seat-id/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='5b.mu.html#L57'>convert-from-binary</a> line +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index pass, seat-id <span id="L28" class="LineNr">28 </span> copy-to *dest, <span class="Constant">1</span> <span id="L29" class="LineNr">29 </span> <span class="PreProc">loop</span> <span id="L30" class="LineNr">30 </span> <span class="Delimiter">}</span> <span id="L31" class="LineNr">31 </span> <span class="muComment"># phase 2: skip empty seats</span> -<span id="L32" class="LineNr">32 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L32" class="LineNr">32 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L33" class="LineNr">33 </span> <span class="Delimiter">{</span> <span id="L34" class="LineNr">34 </span> compare i, <span class="Constant">0x400</span> <span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if->=</span> -<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> index pass, i +<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> index pass, i <span id="L37" class="LineNr">37 </span> compare *src, <span class="Constant">0</span> <span id="L38" class="LineNr">38 </span> <span class="PreProc">break-if-!=</span> -<span id="L39" class="LineNr">39 </span> i <span class="SpecialChar"><-</span> increment +<span id="L39" class="LineNr">39 </span> i <span class="Special"><-</span> increment <span id="L40" class="LineNr">40 </span> <span class="PreProc">loop</span> <span id="L41" class="LineNr">41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr">42 </span> <span class="muComment"># phase 3: skip non-empty seats</span> <span id="L43" class="LineNr">43 </span> <span class="Delimiter">{</span> <span id="L44" class="LineNr">44 </span> compare i, <span class="Constant">0x400</span> <span id="L45" class="LineNr">45 </span> <span class="PreProc">break-if->=</span> -<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> index pass, i +<span id="L46" class="LineNr">46 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> index pass, i <span id="L47" class="LineNr">47 </span> compare *src, <span class="Constant">0</span> <span id="L48" class="LineNr">48 </span> <span class="PreProc">break-if-=</span> -<span id="L49" class="LineNr">49 </span> i <span class="SpecialChar"><-</span> increment +<span id="L49" class="LineNr">49 </span> i <span class="Special"><-</span> increment <span id="L50" class="LineNr">50 </span> <span class="PreProc">loop</span> <span id="L51" class="LineNr">51 </span> <span class="Delimiter">}</span> -<span id="L52" class="LineNr">52 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, i -<span id="L53" class="LineNr">53 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L52" class="LineNr">52 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, i +<span id="L53" class="LineNr">53 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L54" class="LineNr">54 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L55" class="LineNr">55 </span><span class="Delimiter">}</span> <span id="L56" class="LineNr">56 </span> -<span id="L57" class="LineNr">57 </span><span class="PreProc">fn</span> <span class="muFunction">convert-from-binary</span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L58" class="LineNr">58 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L59" class="LineNr">59 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">9</span> <span class="muComment"># loop counter and also exponent</span> +<span id="L57" class="LineNr">57 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='5b.mu.html#L57'>convert-from-binary</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L58" class="LineNr">58 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L59" class="LineNr">59 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">9</span> <span class="muComment"># loop counter and also exponent</span> <span id="L60" class="LineNr">60 </span> <span class="Delimiter">{</span> <span id="L61" class="LineNr">61 </span> compare i, <span class="Constant">0</span> <span id="L62" class="LineNr">62 </span> <span class="PreProc">break-if-<</span> -<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> in -<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> bit/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> in +<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> bit/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L65" class="LineNr">65 </span> <span class="Delimiter">{</span> -<span id="L66" class="LineNr">66 </span> compare c, <span class="Constant">0x42</span> <span class="muComment"># 'B'</span> +<span id="L66" class="LineNr">66 </span> compare c, <span class="Constant">0x42</span>/B <span id="L67" class="LineNr">67 </span> <span class="PreProc">break-if-!=</span> -<span id="L68" class="LineNr">68 </span> bit <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L68" class="LineNr">68 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L69" class="LineNr">69 </span> <span class="Delimiter">}</span> <span id="L70" class="LineNr">70 </span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr">71 </span> compare c, <span class="Constant">0x52</span> <span class="muComment"># 'R'</span> +<span id="L71" class="LineNr">71 </span> compare c, <span class="Constant">0x52</span>/R <span id="L72" class="LineNr">72 </span> <span class="PreProc">break-if-!=</span> -<span id="L73" class="LineNr">73 </span> bit <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L73" class="LineNr">73 </span> bit <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L74" class="LineNr">74 </span> <span class="Delimiter">}</span> -<span id="L75" class="LineNr">75 </span> <span class="PreProc">var</span> bit-value/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../406int32.mu.html#L5'>repeated-shift-left</a> bit, i -<span id="L76" class="LineNr">76 </span> result <span class="SpecialChar"><-</span> add bit-value -<span id="L77" class="LineNr">77 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L75" class="LineNr">75 </span> <span class="PreProc">var</span> bit-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../406int32.mu.html#L5'>repeated-shift-left</a> bit, i +<span id="L76" class="LineNr">76 </span> result <span class="Special"><-</span> add bit-value +<span id="L77" class="LineNr">77 </span> i <span class="Special"><-</span> decrement <span id="L78" class="LineNr">78 </span> <span class="PreProc">loop</span> <span id="L79" class="LineNr">79 </span> <span class="Delimiter">}</span> <span id="L80" class="LineNr">80 </span> <span class="PreProc">return</span> result diff --git a/html/apps/arith.mu.html b/html/linux/arith.mu.html index 0113e57b..a3a41be0 100644 --- a/html/apps/arith.mu.html +++ b/html/linux/arith.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/arith.mu</title> +<title>Mu - linux/arith.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/arith.mu'>https://github.com/akkartik/mu/blob/main/apps/arith.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/arith.mu'>https://github.com/akkartik/mu/blob/main/linux/arith.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Integer arithmetic using conventional precedence.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> @@ -66,7 +66,7 @@ if ('onhashchange' in window) { <span id="L7" class="LineNr"> 7 </span><span class="muComment"># No division yet.</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># To build:</span> -<span id="L10" class="LineNr"> 10 </span><span class="muComment"># $ ./translate_mu apps/arith.mu</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># $ ./translate arith.mu</span> <span id="L11" class="LineNr"> 11 </span><span class="muComment">#</span> <span id="L12" class="LineNr"> 12 </span><span class="muComment"># Example session:</span> <span id="L13" class="LineNr"> 13 </span><span class="muComment"># $ ./a.elf</span> @@ -91,118 +91,118 @@ if ('onhashchange' in window) { <span id="L32" class="LineNr"> 32 </span><span class="muComment"># Error handling is non-existent. This is just a prototype.</span> <span id="L33" class="LineNr"> 33 </span> <span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L34'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L35" class="LineNr"> 35 </span> <a href='../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># lookahead</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> <span class="muComment"># result of each expression</span> -<span id="L38" class="LineNr"> 38 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> +<span id="L35" class="LineNr"> 35 </span> <a href='305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> <span class="muComment"># lookahead</span> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span class="muComment"># result of each expression</span> +<span id="L38" class="LineNr"> 38 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> <span id="L39" class="LineNr"> 39 </span> <span class="muComment"># read-eval-print loop</span> <span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span> <span class="muComment"># print prompt</span> -<span id="L42" class="LineNr"> 42 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"> "</span> +<span id="L42" class="LineNr"> 42 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"> "</span> <span id="L43" class="LineNr"> 43 </span> <span class="muComment"># read and eval</span> -<span id="L44" class="LineNr"> 44 </span> n, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L58'>simplify</a> <span class="muComment"># we explicitly thread 'look' everywhere</span> +<span id="L44" class="LineNr"> 44 </span> n, look <span class="Special"><-</span> <a href='arith.mu.html#L58'>simplify</a> <span class="muComment"># we explicitly thread 'look' everywhere</span> <span id="L45" class="LineNr"> 45 </span> <span class="muComment"># if (look == 0) break</span> <span id="L46" class="LineNr"> 46 </span> compare look, <span class="Constant">0</span> <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">break-if-=</span> <span id="L48" class="LineNr"> 48 </span> <span class="muComment"># print</span> -<span id="L49" class="LineNr"> 49 </span> <a href='../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, n -<span id="L50" class="LineNr"> 50 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L49" class="LineNr"> 49 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>/screen, n +<span id="L50" class="LineNr"> 50 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"\n"</span> <span id="L51" class="LineNr"> 51 </span> <span class="muComment">#</span> <span id="L52" class="LineNr"> 52 </span> <span class="PreProc">loop</span> <span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">}</span> -<span id="L54" class="LineNr"> 54 </span> <a href='../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L54" class="LineNr"> 54 </span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> <span id="L55" class="LineNr"> 55 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> <span id="L57" class="LineNr"> 57 </span> <span id="L58" class="LineNr"> 58 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L58'>simplify</a></span><span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> <span id="L59" class="LineNr"> 59 </span> <span class="muComment"># prime the pump</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> <a href='arith.mu.html#L248'>get-char</a> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span id="L61" class="LineNr"> 61 </span> <span class="muComment"># do it</span> -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L63" class="LineNr"> 63 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L67'>expression</a> look +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L63" class="LineNr"> 63 </span> result, look <span class="Special"><-</span> <a href='arith.mu.html#L67'>expression</a> look <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">return</span> result, look <span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> <span id="L66" class="LineNr"> 66 </span> <span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L67'>expression</a></span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> copy _look +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> copy _look <span id="L69" class="LineNr"> 69 </span> <span class="muComment"># read arg</span> -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L71" class="LineNr"> 71 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L112'>term</a> look +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L71" class="LineNr"> 71 </span> result, look <span class="Special"><-</span> <a href='arith.mu.html#L112'>term</a> look <span id="L72" class="LineNr"> 72 </span> $expression:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L73" class="LineNr"> 73 </span> <span class="muComment"># while next non-space char in ['+', '-']</span> -<span id="L74" class="LineNr"> 74 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L74" class="LineNr"> 74 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='arith.mu.html#L191'>is-add-or-sub?</a> look -<span id="L77" class="LineNr"> 77 </span> compare continue?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='arith.mu.html#L191'>add-or-sub?</a> look +<span id="L77" class="LineNr"> 77 </span> compare continue?, <span class="Constant">0</span>/false <span id="L78" class="LineNr"> 78 </span> <span class="PreProc">break-if-=</span> $expression:<span class="PreProc">loop</span> <span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> <span id="L80" class="LineNr"> 80 </span> <span class="muComment"># read operator</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L82" class="LineNr"> 82 </span> op, look <span class="SpecialChar"><-</span> operator look +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L82" class="LineNr"> 82 </span> op, look <span class="Special"><-</span> operator look <span id="L83" class="LineNr"> 83 </span> <span class="muComment"># read next arg</span> -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L85" class="LineNr"> 85 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L85" class="LineNr"> 85 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L88" class="LineNr"> 88 </span> tmp, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L112'>term</a> look -<span id="L89" class="LineNr"> 89 </span> second <span class="SpecialChar"><-</span> copy tmp +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L88" class="LineNr"> 88 </span> tmp, look <span class="Special"><-</span> <a href='arith.mu.html#L112'>term</a> look +<span id="L89" class="LineNr"> 89 </span> second <span class="Special"><-</span> copy tmp <span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">}</span> <span id="L91" class="LineNr"> 91 </span> <span class="muComment"># reduce</span> <span id="L92" class="LineNr"> 92 </span> $expression:perform-op: <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> -<span id="L94" class="LineNr"> 94 </span> compare op, <span class="Constant">0x2b</span> <span class="muComment"># '+'</span> +<span id="L94" class="LineNr"> 94 </span> compare op, <span class="Constant">0x2b</span>/+ <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-!=</span> -<span id="L96" class="LineNr"> 96 </span> result <span class="SpecialChar"><-</span> add second +<span id="L96" class="LineNr"> 96 </span> result <span class="Special"><-</span> add second <span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break</span> $expression:perform-op <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">}</span> <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">{</span> -<span id="L100" class="LineNr">100 </span> compare op, <span class="Constant">0x2d</span> <span class="muComment"># '-'</span> +<span id="L100" class="LineNr">100 </span> compare op, <span class="Constant">0x2d</span>/minus <span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if-!=</span> -<span id="L102" class="LineNr">102 </span> result <span class="SpecialChar"><-</span> subtract second +<span id="L102" class="LineNr">102 </span> result <span class="Special"><-</span> subtract second <span id="L103" class="LineNr">103 </span> <span class="PreProc">break</span> $expression:perform-op <span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> <span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span> <span class="PreProc">loop</span> <span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> -<span id="L108" class="LineNr">108 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L108" class="LineNr">108 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L109" class="LineNr">109 </span> <span class="PreProc">return</span> result, look <span id="L110" class="LineNr">110 </span><span class="Delimiter">}</span> <span id="L111" class="LineNr">111 </span> <span id="L112" class="LineNr">112 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L112'>term</a></span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> copy _look +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> copy _look <span id="L114" class="LineNr">114 </span> <span class="muComment"># read arg</span> -<span id="L115" class="LineNr">115 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L117" class="LineNr">117 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L157'>factor</a> look +<span id="L115" class="LineNr">115 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L117" class="LineNr">117 </span> result, look <span class="Special"><-</span> <a href='arith.mu.html#L157'>factor</a> look <span id="L118" class="LineNr">118 </span> $term:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L119" class="LineNr">119 </span> <span class="muComment"># while next non-space char in ['*', '/']</span> -<span id="L120" class="LineNr">120 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L120" class="LineNr">120 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L121" class="LineNr">121 </span> <span class="Delimiter">{</span> -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='arith.mu.html#L177'>is-mul-or-div?</a> look -<span id="L123" class="LineNr">123 </span> compare continue?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> continue?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='arith.mu.html#L177'>mul-or-div?</a> look +<span id="L123" class="LineNr">123 </span> compare continue?, <span class="Constant">0</span>/false <span id="L124" class="LineNr">124 </span> <span class="PreProc">break-if-=</span> $term:<span class="PreProc">loop</span> <span id="L125" class="LineNr">125 </span> <span class="Delimiter">}</span> <span id="L126" class="LineNr">126 </span> <span class="muComment"># read operator</span> -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L128" class="LineNr">128 </span> op, look <span class="SpecialChar"><-</span> operator look +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L128" class="LineNr">128 </span> op, look <span class="Special"><-</span> operator look <span id="L129" class="LineNr">129 </span> <span class="muComment"># read next arg</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L131" class="LineNr">131 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> second/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L131" class="LineNr">131 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L132" class="LineNr">132 </span> <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L134" class="LineNr">134 </span> tmp, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L157'>factor</a> look -<span id="L135" class="LineNr">135 </span> second <span class="SpecialChar"><-</span> copy tmp +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L134" class="LineNr">134 </span> tmp, look <span class="Special"><-</span> <a href='arith.mu.html#L157'>factor</a> look +<span id="L135" class="LineNr">135 </span> second <span class="Special"><-</span> copy tmp <span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> <span id="L137" class="LineNr">137 </span> <span class="muComment"># reduce</span> <span id="L138" class="LineNr">138 </span> $term:perform-op: <span class="Delimiter">{</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">{</span> -<span id="L140" class="LineNr">140 </span> compare op, <span class="Constant">0x2a</span> <span class="muComment"># '*'</span> +<span id="L140" class="LineNr">140 </span> compare op, <span class="Constant">0x2a</span>/* <span id="L141" class="LineNr">141 </span> <span class="PreProc">break-if-!=</span> -<span id="L142" class="LineNr">142 </span> result <span class="SpecialChar"><-</span> multiply second +<span id="L142" class="LineNr">142 </span> result <span class="Special"><-</span> multiply second <span id="L143" class="LineNr">143 </span> <span class="PreProc">break</span> $term:perform-op <span id="L144" class="LineNr">144 </span> <span class="Delimiter">}</span> <span id="L145" class="LineNr">145 </span><span class="CommentedCode">#? {</span> -<span id="L146" class="LineNr">146 </span><span class="CommentedCode">#? compare op, 0x2f # '/'</span> +<span id="L146" class="LineNr">146 </span><span class="CommentedCode">#? compare op, 0x2f/slash</span> <span id="L147" class="LineNr">147 </span><span class="CommentedCode">#? break-if-!=</span> <span id="L148" class="LineNr">148 </span><span class="CommentedCode">#? result <- divide second # not in Mu yet</span> <span id="L149" class="LineNr">149 </span><span class="CommentedCode">#? break $term:perform-op</span> @@ -214,104 +214,104 @@ if ('onhashchange' in window) { <span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> <span id="L156" class="LineNr">156 </span> <span id="L157" class="LineNr">157 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L157'>factor</a></span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> copy _look <span class="muComment"># should be a no-op</span> -<span id="L159" class="LineNr">159 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L159" class="LineNr">159 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look <span id="L160" class="LineNr">160 </span> <span class="muComment"># if next char is not '(', parse a number</span> -<span id="L161" class="LineNr">161 </span> compare look, <span class="Constant">0x28</span> <span class="muComment"># '('</span> +<span id="L161" class="LineNr">161 </span> compare look, <span class="Constant">0x28</span>/open-paren <span id="L162" class="LineNr">162 </span> <span class="Delimiter">{</span> <span id="L163" class="LineNr">163 </span> <span class="PreProc">break-if-=</span> -<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L165" class="LineNr">165 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L211'>num</a> look +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L165" class="LineNr">165 </span> result, look <span class="Special"><-</span> <a href='arith.mu.html#L211'>num</a> look <span id="L166" class="LineNr">166 </span> <span class="PreProc">return</span> result, look <span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> <span id="L168" class="LineNr">168 </span> <span class="muComment"># otherwise recurse</span> -<span id="L169" class="LineNr">169 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span class="muComment"># '('</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L171" class="LineNr">171 </span> result, look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L67'>expression</a> look -<span id="L172" class="LineNr">172 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look -<span id="L173" class="LineNr">173 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span class="muComment"># ')'</span> +<span id="L169" class="LineNr">169 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span class="muComment"># '('</span> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L171" class="LineNr">171 </span> result, look <span class="Special"><-</span> <a href='arith.mu.html#L67'>expression</a> look +<span id="L172" class="LineNr">172 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L237'>skip-spaces</a> look +<span id="L173" class="LineNr">173 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span class="muComment"># ')'</span> <span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> result, look <span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> -<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L177'>is-mul-or-div?</a></span> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> compare c, <span class="Constant">0x2a</span> <span class="muComment"># '*'</span> +<span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L177'>mul-or-div?</a></span> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> compare c, <span class="Constant">0x2a</span>/* <span id="L179" class="LineNr">179 </span> <span class="Delimiter">{</span> <span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if-!=</span> -<span id="L181" class="LineNr">181 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L181" class="LineNr">181 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L182" class="LineNr">182 </span> <span class="Delimiter">}</span> -<span id="L183" class="LineNr">183 </span> compare c, <span class="Constant">0x2f</span> <span class="muComment"># '/'</span> +<span id="L183" class="LineNr">183 </span> compare c, <span class="Constant">0x2f</span>/slash <span id="L184" class="LineNr">184 </span> <span class="Delimiter">{</span> <span id="L185" class="LineNr">185 </span> <span class="PreProc">break-if-!=</span> -<span id="L186" class="LineNr">186 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L187" class="LineNr">187 </span> <span class="Delimiter">}</span> -<span id="L188" class="LineNr">188 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L188" class="LineNr">188 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L189" class="LineNr">189 </span><span class="Delimiter">}</span> <span id="L190" class="LineNr">190 </span> -<span id="L191" class="LineNr">191 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L191'>is-add-or-sub?</a></span> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L192" class="LineNr">192 </span> compare c, <span class="Constant">0x2b</span> <span class="muComment"># '+'</span> +<span id="L191" class="LineNr">191 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L191'>add-or-sub?</a></span> c: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L192" class="LineNr">192 </span> compare c, <span class="Constant">0x2b</span>/+ <span id="L193" class="LineNr">193 </span> <span class="Delimiter">{</span> <span id="L194" class="LineNr">194 </span> <span class="PreProc">break-if-!=</span> -<span id="L195" class="LineNr">195 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L195" class="LineNr">195 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> -<span id="L197" class="LineNr">197 </span> compare c, <span class="Constant">0x2d</span> <span class="muComment"># '-'</span> +<span id="L197" class="LineNr">197 </span> compare c, <span class="Constant">0x2d</span>/minus <span id="L198" class="LineNr">198 </span> <span class="Delimiter">{</span> <span id="L199" class="LineNr">199 </span> <span class="PreProc">break-if-!=</span> -<span id="L200" class="LineNr">200 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L202" class="LineNr">202 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction">operator</span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: grapheme, _/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy _look -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> <a href='arith.mu.html#L248'>get-char</a> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> op/<span class="Constant">ecx</span>: grapheme <span class="Special"><-</span> copy _look +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span id="L208" class="LineNr">208 </span> <span class="PreProc">return</span> op, look <span id="L209" class="LineNr">209 </span><span class="Delimiter">}</span> <span id="L210" class="LineNr">210 </span> <span id="L211" class="LineNr">211 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L211'>num</a></span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> copy _look -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> copy _look +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L214" class="LineNr">214 </span> <span class="Delimiter">{</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> first-digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look -<span id="L216" class="LineNr">216 </span> result <span class="SpecialChar"><-</span> copy first-digit +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> first-digit/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look +<span id="L216" class="LineNr">216 </span> result <span class="Special"><-</span> copy first-digit <span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> <span id="L218" class="LineNr">218 </span> <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L248'>get-char</a> +<span id="L219" class="LineNr">219 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span id="L220" class="LineNr">220 </span> <span class="muComment"># done?</span> -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> look -<span id="L222" class="LineNr">222 </span> compare digit?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> look +<span id="L222" class="LineNr">222 </span> compare digit?, <span class="Constant">0</span>/false <span id="L223" class="LineNr">223 </span> <span class="PreProc">break-if-=</span> <span id="L224" class="LineNr">224 </span> <span class="muComment"># result *= 10</span> <span id="L225" class="LineNr">225 </span> <span class="Delimiter">{</span> -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> ten/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> -<span id="L227" class="LineNr">227 </span> result <span class="SpecialChar"><-</span> multiply ten +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> ten/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0xa</span> +<span id="L227" class="LineNr">227 </span> result <span class="Special"><-</span> multiply ten <span id="L228" class="LineNr">228 </span> <span class="Delimiter">}</span> <span id="L229" class="LineNr">229 </span> <span class="muComment"># result += digit(look)</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look -<span id="L231" class="LineNr">231 </span> result <span class="SpecialChar"><-</span> add digit +<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> digit/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> look +<span id="L231" class="LineNr">231 </span> result <span class="Special"><-</span> add digit <span id="L232" class="LineNr">232 </span> <span class="PreProc">loop</span> <span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> <span id="L234" class="LineNr">234 </span> <span class="PreProc">return</span> result, look <span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span> <span id="L236" class="LineNr">236 </span> <span id="L237" class="LineNr">237 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L237'>skip-spaces</a></span> _look: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="SpecialChar"><-</span> copy _look <span class="muComment"># should be a no-op</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> look/<span class="Constant">esi</span>: grapheme <span class="Special"><-</span> copy _look <span class="muComment"># should be a no-op</span> <span id="L239" class="LineNr">239 </span> <span class="Delimiter">{</span> <span id="L240" class="LineNr">240 </span> compare look, <span class="Constant">0x20</span> <span id="L241" class="LineNr">241 </span> <span class="PreProc">break-if-!=</span> -<span id="L242" class="LineNr">242 </span> look <span class="SpecialChar"><-</span> <a href='arith.mu.html#L248'>get-char</a> +<span id="L242" class="LineNr">242 </span> look <span class="Special"><-</span> <a href='arith.mu.html#L248'>get-char</a> <span id="L243" class="LineNr">243 </span> <span class="PreProc">loop</span> <span id="L244" class="LineNr">244 </span> <span class="Delimiter">}</span> <span id="L245" class="LineNr">245 </span> <span class="PreProc">return</span> look <span id="L246" class="LineNr">246 </span><span class="Delimiter">}</span> <span id="L247" class="LineNr">247 </span> <span id="L248" class="LineNr">248 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='arith.mu.html#L248'>get-char</a></span><span class="PreProc"> -> </span>_/<span class="Constant">esi</span>: grapheme <span class="Delimiter">{</span> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> look/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> -<span id="L250" class="LineNr">250 </span> <a href='../304screen.subx.html#L161'>print-grapheme-to-real-screen</a> look +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> look/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L250" class="LineNr">250 </span> <a href='304screen.subx.html#L161'>print-grapheme-to-real-screen</a> look <span id="L251" class="LineNr">251 </span> compare look, <span class="Constant">4</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> <span id="L253" class="LineNr">253 </span> <span class="PreProc">break-if-!=</span> -<span id="L254" class="LineNr">254 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"^D\n"</span> -<span id="L255" class="LineNr">255 </span> syscall_exit +<span id="L254" class="LineNr">254 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"^D\n"</span> +<span id="L255" class="LineNr">255 </span> <a href='000init.subx.html#L18'>syscall_exit</a> <span id="L256" class="LineNr">256 </span> <span class="Delimiter">}</span> <span id="L257" class="LineNr">257 </span> <span class="PreProc">return</span> look <span id="L258" class="LineNr">258 </span><span class="Delimiter">}</span> diff --git a/html/apps/assort.subx.html b/html/linux/assort.subx.html index 47bf4f0d..a9322970 100644 --- a/html/apps/assort.subx.html +++ b/html/linux/assort.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/assort.subx</title> +<title>Mu - linux/assort.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -58,7 +58,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/assort.subx'>https://github.com/akkartik/mu/blob/main/apps/assort.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/assort.subx'>https://github.com/akkartik/mu/blob/main/linux/assort.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a series of segments from stdin and concatenate segments with the same</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># name on stdout.</span> @@ -69,13 +69,13 @@ if ('onhashchange' in window) { <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># because we don't know if they refer to the line above or the line below.</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># To run:</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/subx-params.subx apps/assort.subx -o apps/assort</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/subx-params.subx apps/assort.subx -o apps/assort</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># $ cat x</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># == code</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># abc</span> <span id="L14" class="LineNr"> 14 </span><span class="subxComment"># == code</span> <span id="L15" class="LineNr"> 15 </span><span class="subxComment"># def</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ cat x |./bootstrap run apps/assort</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run assort</span> <span id="L17" class="LineNr"> 17 </span><span class="subxComment"># == code</span> <span id="L18" class="LineNr"> 18 </span><span class="subxComment"># abc</span> <span id="L19" class="LineNr"> 19 </span><span class="subxComment"># def</span> @@ -92,10 +92,10 @@ if ('onhashchange' in window) { <span id="L30" class="LineNr"> 30 </span> <span class="subxComment"># initialize heap</span> <span id="L31" class="LineNr"> 31 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L32" class="LineNr"> 32 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L33" class="LineNr"> 33 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L34" class="LineNr"> 34 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L33" class="LineNr"> 33 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L34" class="LineNr"> 34 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L35" class="LineNr"> 35 </span> <span class="subxS2Comment"># . . call</span> -<span id="L36" class="LineNr"> 36 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L36" class="LineNr"> 36 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L37" class="LineNr"> 37 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L38" class="LineNr"> 38 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L39" class="LineNr"> 39 </span> @@ -109,7 +109,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr"> 47 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L48" class="LineNr"> 48 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L49" class="LineNr"> 49 </span> <span class="subxS2Comment"># . . call</span> -<span id="L50" class="LineNr"> 50 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L50" class="LineNr"> 50 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L51" class="LineNr"> 51 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L52" class="LineNr"> 52 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L53" class="LineNr"> 53 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> @@ -118,7 +118,7 @@ if ('onhashchange' in window) { <span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># run-tests()</span> <span id="L57" class="LineNr"> 57 </span> e8/call run-tests/disp32 <span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L59" class="LineNr"> 59 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L59" class="LineNr"> 59 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L60" class="LineNr"> 60 </span> eb/jump $subx-assort-main:end/disp8 <span id="L61" class="LineNr"> 61 </span><span class="Constant">$subx-assort-main:interactive</span>: <span id="L62" class="LineNr"> 62 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> @@ -131,9 +131,9 @@ if ('onhashchange' in window) { <span id="L69" class="LineNr"> 69 </span> <span class="subxComment"># subx-assort(Stdin, Stdout, Stderr, ed)</span> <span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . push args</span> <span id="L71" class="LineNr"> 71 </span> 50/push-eax/ed -<span id="L72" class="LineNr"> 72 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L73" class="LineNr"> 73 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L74" class="LineNr"> 74 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L72" class="LineNr"> 72 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L73" class="LineNr"> 73 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L74" class="LineNr"> 74 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . call</span> <span id="L76" class="LineNr"> 76 </span> e8/call <a href='assort.subx.html#L88'>subx-assort</a>/disp32 <span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . discard args</span> @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L80" class="LineNr"> 80 </span> bb/copy-to-ebx 0/imm32 <span id="L81" class="LineNr"> 81 </span><span class="Constant">$subx-assort-main:end</span>: -<span id="L82" class="LineNr"> 82 </span> e8/call syscall_exit/disp32 +<span id="L82" class="LineNr"> 82 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L83" class="LineNr"> 83 </span> <span id="L84" class="LineNr"> 84 </span><span class="subxComment"># data structure:</span> <span id="L85" class="LineNr"> 85 </span><span class="subxComment"># table: (addr stream {(handle array byte), (handle stream byte)}) (16 bytes/row)</span> @@ -168,10 +168,10 @@ if ('onhashchange' in window) { <span id="L106" class="LineNr"> 106 </span> <span class="subxS2Comment"># . . push args</span> <span id="L107" class="LineNr"> 107 </span> 51/push-ecx <span id="L108" class="LineNr"> 108 </span> <span class="subxS2Comment"># . . call</span> -<span id="L109" class="LineNr"> 109 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L109" class="LineNr"> 109 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L110" class="LineNr"> 110 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L111" class="LineNr"> 111 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L112" class="LineNr"> 112 </span><span class="Constant">$subx-assort:<a href='../111read.subx.html#L48'>read</a></span>: +<span id="L112" class="LineNr"> 112 </span><span class="Constant">$subx-assort:<a href='111read.subx.html#L48'>read</a></span>: <span id="L113" class="Folded"> 113 </span><span class="Folded">+-- 9 lines: #? # print("read\n") --------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># read-segments(in, table)</span> <span id="L123" class="LineNr"> 123 </span> <span class="subxS2Comment"># . . push args</span> @@ -181,7 +181,7 @@ if ('onhashchange' in window) { <span id="L127" class="LineNr"> 127 </span> e8/call <a href='assort.subx.html#L452'>read-segments</a>/disp32 <span id="L128" class="LineNr"> 128 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L129" class="LineNr"> 129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L130" class="LineNr"> 130 </span><span class="Constant">$subx-assort:<a href='../108write.subx.html#L24'>write</a></span>: +<span id="L130" class="LineNr"> 130 </span><span class="Constant">$subx-assort:<a href='108write.subx.html#L24'>write</a></span>: <span id="L131" class="Folded"> 131 </span><span class="Folded">+-- 9 lines: #? # print("write\n") -------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L140" class="LineNr"> 140 </span> <span class="subxComment"># write-segments(out, table)</span> <span id="L141" class="LineNr"> 141 </span> <span class="subxS2Comment"># . . push args</span> @@ -208,30 +208,30 @@ if ('onhashchange' in window) { <span id="L162" class="LineNr"> 162 </span> <span class="subxComment"># setup</span> <span id="L163" class="LineNr"> 163 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L164" class="LineNr"> 164 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L165" class="LineNr"> 165 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L165" class="LineNr"> 165 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L166" class="LineNr"> 166 </span> <span class="subxS2Comment"># . . call</span> -<span id="L167" class="LineNr"> 167 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L167" class="LineNr"> 167 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L168" class="LineNr"> 168 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L169" class="LineNr"> 169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L170" class="LineNr"> 170 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L171" class="LineNr"> 171 </span> <span class="subxS2Comment"># . . push args</span> <span id="L172" class="LineNr"> 172 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L173" class="LineNr"> 173 </span> <span class="subxS2Comment"># . . call</span> -<span id="L174" class="LineNr"> 174 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L174" class="LineNr"> 174 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L175" class="LineNr"> 175 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L176" class="LineNr"> 176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L177" class="LineNr"> 177 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L178" class="LineNr"> 178 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L179" class="LineNr"> 179 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L179" class="LineNr"> 179 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L180" class="LineNr"> 180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L181" class="LineNr"> 181 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L181" class="LineNr"> 181 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L182" class="LineNr"> 182 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L183" class="LineNr"> 183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L184" class="LineNr"> 184 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L185" class="LineNr"> 185 </span> <span class="subxS2Comment"># . . push args</span> <span id="L186" class="LineNr"> 186 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L187" class="LineNr"> 187 </span> <span class="subxS2Comment"># . . call</span> -<span id="L188" class="LineNr"> 188 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L188" class="LineNr"> 188 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L190" class="LineNr"> 190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L191" class="LineNr"> 191 </span> <span class="subxComment"># initialize input (meta comments in parens)</span> @@ -252,128 +252,128 @@ if ('onhashchange' in window) { <span id="L206" class="LineNr"> 206 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# comment 1\n")</span> <span id="L207" class="LineNr"> 207 </span> <span class="subxS2Comment"># . . push args</span> <span id="L208" class="LineNr"> 208 </span> 68/push <span class="Constant">"# comment 1\n"</span>/imm32 -<span id="L209" class="LineNr"> 209 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L209" class="LineNr"> 209 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L210" class="LineNr"> 210 </span> <span class="subxS2Comment"># . . call</span> -<span id="L211" class="LineNr"> 211 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L211" class="LineNr"> 211 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L212" class="LineNr"> 212 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L213" class="LineNr"> 213 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L214" class="LineNr"> 214 </span> <span class="subxS1Comment"># . write(_test-input-stream, " # comment 2 indented\n")</span> <span id="L215" class="LineNr"> 215 </span> <span class="subxS2Comment"># . . push args</span> <span id="L216" class="LineNr"> 216 </span> 68/push <span class="Constant">" # comment 2 indented\n"</span>/imm32 -<span id="L217" class="LineNr"> 217 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L217" class="LineNr"> 217 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L218" class="LineNr"> 218 </span> <span class="subxS2Comment"># . . call</span> -<span id="L219" class="LineNr"> 219 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L219" class="LineNr"> 219 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L220" class="LineNr"> 220 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L221" class="LineNr"> 221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L222" class="LineNr"> 222 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x09000000\n")</span> <span id="L223" class="LineNr"> 223 </span> <span class="subxS2Comment"># . . push args</span> <span id="L224" class="LineNr"> 224 </span> 68/push <span class="Constant">"== code 0x09000000\n"</span>/imm32 -<span id="L225" class="LineNr"> 225 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L225" class="LineNr"> 225 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L226" class="LineNr"> 226 </span> <span class="subxS2Comment"># . . call</span> -<span id="L227" class="LineNr"> 227 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L227" class="LineNr"> 227 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L228" class="LineNr"> 228 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L229" class="LineNr"> 229 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L230" class="LineNr"> 230 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# comment 3 inside a segment\n")</span> <span id="L231" class="LineNr"> 231 </span> <span class="subxS2Comment"># . . push args</span> <span id="L232" class="LineNr"> 232 </span> 68/push <span class="Constant">"# comment 3 inside a segment\n"</span>/imm32 -<span id="L233" class="LineNr"> 233 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L233" class="LineNr"> 233 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L234" class="LineNr"> 234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L235" class="LineNr"> 235 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L235" class="LineNr"> 235 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L236" class="LineNr"> 236 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L237" class="LineNr"> 237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L238" class="LineNr"> 238 </span> <span class="subxS1Comment"># . write(_test-input-stream, "1\n")</span> <span id="L239" class="LineNr"> 239 </span> <span class="subxS2Comment"># . . push args</span> <span id="L240" class="LineNr"> 240 </span> 68/push <span class="Constant">"1\n"</span>/imm32 -<span id="L241" class="LineNr"> 241 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L241" class="LineNr"> 241 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L242" class="LineNr"> 242 </span> <span class="subxS2Comment"># . . call</span> -<span id="L243" class="LineNr"> 243 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L243" class="LineNr"> 243 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L244" class="LineNr"> 244 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L245" class="LineNr"> 245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L246" class="LineNr"> 246 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\n") # empty line</span> <span id="L247" class="LineNr"> 247 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L248" class="LineNr"> 248 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L249" class="LineNr"> 249 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L248" class="LineNr"> 248 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L249" class="LineNr"> 249 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L250" class="LineNr"> 250 </span> <span class="subxS2Comment"># . . call</span> -<span id="L251" class="LineNr"> 251 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L251" class="LineNr"> 251 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L252" class="LineNr"> 252 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L253" class="LineNr"> 253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L254" class="LineNr"> 254 </span> <span class="subxS1Comment"># . write(_test-input-stream, "2 3 # comment 4 inline with other contents\n")</span> <span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . push args</span> <span id="L256" class="LineNr"> 256 </span> 68/push <span class="Constant">"2 3 # comment 4 inline with other contents\n"</span>/imm32 -<span id="L257" class="LineNr"> 257 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L257" class="LineNr"> 257 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L258" class="LineNr"> 258 </span> <span class="subxS2Comment"># . . call</span> -<span id="L259" class="LineNr"> 259 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L259" class="LineNr"> 259 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L260" class="LineNr"> 260 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L261" class="LineNr"> 261 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L262" class="LineNr"> 262 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x0a000000\n")</span> <span id="L263" class="LineNr"> 263 </span> <span class="subxS2Comment"># . . push args</span> <span id="L264" class="LineNr"> 264 </span> 68/push <span class="Constant">"== data 0x0a000000\n"</span>/imm32 -<span id="L265" class="LineNr"> 265 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L265" class="LineNr"> 265 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L266" class="LineNr"> 266 </span> <span class="subxS2Comment"># . . call</span> -<span id="L267" class="LineNr"> 267 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L267" class="LineNr"> 267 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L268" class="LineNr"> 268 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L269" class="LineNr"> 269 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L270" class="LineNr"> 270 </span> <span class="subxS1Comment"># . write(_test-input-stream, "4 5/imm32\n")</span> <span id="L271" class="LineNr"> 271 </span> <span class="subxS2Comment"># . . push args</span> <span id="L272" class="LineNr"> 272 </span> 68/push <span class="Constant">"4 5/imm32\n"</span>/imm32 -<span id="L273" class="LineNr"> 273 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L273" class="LineNr"> 273 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L274" class="LineNr"> 274 </span> <span class="subxS2Comment"># . . call</span> -<span id="L275" class="LineNr"> 275 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L275" class="LineNr"> 275 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L276" class="LineNr"> 276 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L277" class="LineNr"> 277 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L278" class="LineNr"> 278 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> <span id="L279" class="LineNr"> 279 </span> <span class="subxS2Comment"># . . push args</span> <span id="L280" class="LineNr"> 280 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 -<span id="L281" class="LineNr"> 281 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L281" class="LineNr"> 281 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L282" class="LineNr"> 282 </span> <span class="subxS2Comment"># . . call</span> -<span id="L283" class="LineNr"> 283 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L283" class="LineNr"> 283 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L284" class="LineNr"> 284 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L285" class="LineNr"> 285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L286" class="LineNr"> 286 </span> <span class="subxS1Comment"># . write(_test-input-stream, "6 7\n")</span> <span id="L287" class="LineNr"> 287 </span> <span class="subxS2Comment"># . . push args</span> <span id="L288" class="LineNr"> 288 </span> 68/push <span class="Constant">"6 7\n"</span>/imm32 -<span id="L289" class="LineNr"> 289 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L289" class="LineNr"> 289 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L290" class="LineNr"> 290 </span> <span class="subxS2Comment"># . . call</span> -<span id="L291" class="LineNr"> 291 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L291" class="LineNr"> 291 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L292" class="LineNr"> 292 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L293" class="LineNr"> 293 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L294" class="LineNr"> 294 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8 9\n")</span> <span id="L295" class="LineNr"> 295 </span> <span class="subxS2Comment"># . . push args</span> <span id="L296" class="LineNr"> 296 </span> 68/push <span class="Constant">"8 9\n"</span>/imm32 -<span id="L297" class="LineNr"> 297 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L297" class="LineNr"> 297 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L298" class="LineNr"> 298 </span> <span class="subxS2Comment"># . . call</span> -<span id="L299" class="LineNr"> 299 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L299" class="LineNr"> 299 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L300" class="LineNr"> 300 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L301" class="LineNr"> 301 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L302" class="LineNr"> 302 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> <span id="L303" class="LineNr"> 303 </span> <span class="subxS2Comment"># . . push args</span> <span id="L304" class="LineNr"> 304 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 -<span id="L305" class="LineNr"> 305 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L305" class="LineNr"> 305 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L306" class="LineNr"> 306 </span> <span class="subxS2Comment"># . . call</span> -<span id="L307" class="LineNr"> 307 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L307" class="LineNr"> 307 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L308" class="LineNr"> 308 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L309" class="LineNr"> 309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L310" class="LineNr"> 310 </span> <span class="subxS1Comment"># . write(_test-input-stream, "10 11\n")</span> <span id="L311" class="LineNr"> 311 </span> <span class="subxS2Comment"># . . push args</span> <span id="L312" class="LineNr"> 312 </span> 68/push <span class="Constant">"10 11\n"</span>/imm32 -<span id="L313" class="LineNr"> 313 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L313" class="LineNr"> 313 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L314" class="LineNr"> 314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L315" class="LineNr"> 315 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L315" class="LineNr"> 315 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L316" class="LineNr"> 316 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L317" class="LineNr"> 317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># subx-assort(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L319" class="LineNr"> 319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L320" class="LineNr"> 320 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L321" class="LineNr"> 321 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L320" class="LineNr"> 320 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L321" class="LineNr"> 321 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L322" class="LineNr"> 322 </span> <span class="subxS2Comment"># . . call</span> <span id="L323" class="LineNr"> 323 </span> e8/call <a href='assort.subx.html#L88'>subx-assort</a>/disp32 <span id="L324" class="LineNr"> 324 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L325" class="LineNr"> 325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L326" class="LineNr"> 326 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L327" class="LineNr"> 327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L328" class="LineNr"> 328 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L328" class="LineNr"> 328 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L329" class="LineNr"> 329 </span> <span class="subxS2Comment"># . . call</span> -<span id="L330" class="LineNr"> 330 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L330" class="LineNr"> 330 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L331" class="LineNr"> 331 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L332" class="LineNr"> 332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L333" class="LineNr"> 333 </span> <span class="subxComment"># check output</span> @@ -390,72 +390,72 @@ if ('onhashchange' in window) { <span id="L376" class="LineNr"> 376 </span> <span class="subxS2Comment"># . . push args</span> <span id="L377" class="LineNr"> 377 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/0"</span>/imm32 <span id="L378" class="LineNr"> 378 </span> 68/push <span class="Constant">"== code 0x09000000"</span>/imm32 -<span id="L379" class="LineNr"> 379 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L379" class="LineNr"> 379 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L380" class="LineNr"> 380 </span> <span class="subxS2Comment"># . . call</span> -<span id="L381" class="LineNr"> 381 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L381" class="LineNr"> 381 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L382" class="LineNr"> 382 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L383" class="LineNr"> 383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L384" class="LineNr"> 384 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "1", msg)</span> <span id="L385" class="LineNr"> 385 </span> <span class="subxS2Comment"># . . push args</span> <span id="L386" class="LineNr"> 386 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/1"</span>/imm32 <span id="L387" class="LineNr"> 387 </span> 68/push <span class="Constant">"1"</span>/imm32 -<span id="L388" class="LineNr"> 388 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L388" class="LineNr"> 388 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L389" class="LineNr"> 389 </span> <span class="subxS2Comment"># . . call</span> -<span id="L390" class="LineNr"> 390 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L390" class="LineNr"> 390 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L391" class="LineNr"> 391 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L392" class="LineNr"> 392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L393" class="LineNr"> 393 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "2 3 # comment 4 inline with other contents", msg)</span> <span id="L394" class="LineNr"> 394 </span> <span class="subxS2Comment"># . . push args</span> <span id="L395" class="LineNr"> 395 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/2"</span>/imm32 <span id="L396" class="LineNr"> 396 </span> 68/push <span class="Constant">"2 3 # comment 4 inline with other contents"</span>/imm32 -<span id="L397" class="LineNr"> 397 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L397" class="LineNr"> 397 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L398" class="LineNr"> 398 </span> <span class="subxS2Comment"># . . call</span> -<span id="L399" class="LineNr"> 399 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L399" class="LineNr"> 399 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L400" class="LineNr"> 400 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L401" class="LineNr"> 401 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L402" class="LineNr"> 402 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "6 7", msg)</span> <span id="L403" class="LineNr"> 403 </span> <span class="subxS2Comment"># . . push args</span> <span id="L404" class="LineNr"> 404 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/3"</span>/imm32 <span id="L405" class="LineNr"> 405 </span> 68/push <span class="Constant">"6 7"</span>/imm32 -<span id="L406" class="LineNr"> 406 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L406" class="LineNr"> 406 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L407" class="LineNr"> 407 </span> <span class="subxS2Comment"># . . call</span> -<span id="L408" class="LineNr"> 408 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L408" class="LineNr"> 408 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L410" class="LineNr"> 410 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L411" class="LineNr"> 411 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "8 9", msg)</span> <span id="L412" class="LineNr"> 412 </span> <span class="subxS2Comment"># . . push args</span> <span id="L413" class="LineNr"> 413 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/4"</span>/imm32 <span id="L414" class="LineNr"> 414 </span> 68/push <span class="Constant">"8 9"</span>/imm32 -<span id="L415" class="LineNr"> 415 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L415" class="LineNr"> 415 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L416" class="LineNr"> 416 </span> <span class="subxS2Comment"># . . call</span> -<span id="L417" class="LineNr"> 417 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L417" class="LineNr"> 417 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L418" class="LineNr"> 418 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L419" class="LineNr"> 419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L420" class="LineNr"> 420 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "10 11", msg)</span> <span id="L421" class="LineNr"> 421 </span> <span class="subxS2Comment"># . . push args</span> <span id="L422" class="LineNr"> 422 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/5"</span>/imm32 <span id="L423" class="LineNr"> 423 </span> 68/push <span class="Constant">"10 11"</span>/imm32 -<span id="L424" class="LineNr"> 424 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L424" class="LineNr"> 424 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L425" class="LineNr"> 425 </span> <span class="subxS2Comment"># . . call</span> -<span id="L426" class="LineNr"> 426 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L426" class="LineNr"> 426 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L427" class="LineNr"> 427 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L428" class="LineNr"> 428 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L429" class="LineNr"> 429 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== data 0x0a000000", msg)</span> <span id="L430" class="LineNr"> 430 </span> <span class="subxS2Comment"># . . push args</span> <span id="L431" class="LineNr"> 431 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/6"</span>/imm32 <span id="L432" class="LineNr"> 432 </span> 68/push <span class="Constant">"== data 0x0a000000"</span>/imm32 -<span id="L433" class="LineNr"> 433 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L433" class="LineNr"> 433 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L434" class="LineNr"> 434 </span> <span class="subxS2Comment"># . . call</span> -<span id="L435" class="LineNr"> 435 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L435" class="LineNr"> 435 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L436" class="LineNr"> 436 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L437" class="LineNr"> 437 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L438" class="LineNr"> 438 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "4 5/imm32", msg)</span> <span id="L439" class="LineNr"> 439 </span> <span class="subxS2Comment"># . . push args</span> <span id="L440" class="LineNr"> 440 </span> 68/push <span class="Constant">"F - <a href='assort.subx.html#L158'>test-subx-assort</a>/7"</span>/imm32 <span id="L441" class="LineNr"> 441 </span> 68/push <span class="Constant">"4 5/imm32"</span>/imm32 -<span id="L442" class="LineNr"> 442 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L442" class="LineNr"> 442 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . call</span> -<span id="L444" class="LineNr"> 444 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L444" class="LineNr"> 444 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L445" class="LineNr"> 445 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L446" class="LineNr"> 446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L447" class="LineNr"> 447 </span> <span class="subxS1Comment"># . epilogue</span> @@ -522,7 +522,7 @@ if ('onhashchange' in window) { <span id="L508" class="LineNr"> 508 </span> <span class="subxS2Comment"># . . push args</span> <span id="L509" class="LineNr"> 509 </span> 51/push-ecx <span id="L510" class="LineNr"> 510 </span> <span class="subxS2Comment"># . . call</span> -<span id="L511" class="LineNr"> 511 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L511" class="LineNr"> 511 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L512" class="LineNr"> 512 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L513" class="LineNr"> 513 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L514" class="LineNr"> 514 </span> <span class="subxComment"># read-line-buffered(in, line)</span> @@ -530,7 +530,7 @@ if ('onhashchange' in window) { <span id="L516" class="LineNr"> 516 </span> 51/push-ecx <span id="L517" class="LineNr"> 517 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L518" class="LineNr"> 518 </span> <span class="subxS2Comment"># . . call</span> -<span id="L519" class="LineNr"> 519 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L519" class="LineNr"> 519 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 <span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L521" class="LineNr"> 521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L522" class="LineNr"> 522 </span><span class="Constant">$read-segments:check0</span>: @@ -543,7 +543,7 @@ if ('onhashchange' in window) { <span id="L561" class="LineNr"> 561 </span> 52/push-edx <span id="L562" class="LineNr"> 562 </span> 51/push-ecx <span id="L563" class="LineNr"> 563 </span> <span class="subxS2Comment"># . . call</span> -<span id="L564" class="LineNr"> 564 </span> e8/call <a href='../135next-word-or-string.subx.html#L8'>next-word-or-string</a>/disp32 +<span id="L564" class="LineNr"> 564 </span> e8/call <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a>/disp32 <span id="L565" class="LineNr"> 565 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L566" class="LineNr"> 566 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L567" class="LineNr"> 567 </span><span class="Constant">$read-segments:check1</span>: @@ -553,7 +553,7 @@ if ('onhashchange' in window) { <span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . push args</span> <span id="L580" class="LineNr"> 580 </span> 52/push-edx <span id="L581" class="LineNr"> 581 </span> <span class="subxS2Comment"># . . call</span> -<span id="L582" class="LineNr"> 582 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L582" class="LineNr"> 582 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 <span id="L583" class="LineNr"> 583 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L584" class="LineNr"> 584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L585" class="LineNr"> 585 </span> <span class="subxS1Comment"># . if (eax != false) continue</span> @@ -579,7 +579,7 @@ if ('onhashchange' in window) { <span id="L660" class="LineNr"> 660 </span> 68/push <span class="Constant">"=="</span>/imm32 <span id="L661" class="LineNr"> 661 </span> 52/push-edx <span id="L662" class="LineNr"> 662 </span> <span class="subxS2Comment"># . . call</span> -<span id="L663" class="LineNr"> 663 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L663" class="LineNr"> 663 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 <span id="L664" class="LineNr"> 664 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L665" class="LineNr"> 665 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L666" class="LineNr"> 666 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> @@ -590,19 +590,19 @@ if ('onhashchange' in window) { <span id="L671" class="LineNr"> 671 </span> 52/push-edx <span id="L672" class="LineNr"> 672 </span> 51/push-ecx <span id="L673" class="LineNr"> 673 </span> <span class="subxS2Comment"># . . call</span> -<span id="L674" class="LineNr"> 674 </span> e8/call <a href='../135next-word-or-string.subx.html#L8'>next-word-or-string</a>/disp32 +<span id="L674" class="LineNr"> 674 </span> e8/call <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a>/disp32 <span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L676" class="LineNr"> 676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L677" class="Folded"> 677 </span><span class="Folded">+-- 40 lines: #? # dump segment name ------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L717" class="LineNr"> 717 </span> <span class="subxComment"># var segment-slot/edi: (addr handle stream byte) = get-or-insert-slice(table, segment-name, row-size=16, Heap)</span> <span id="L718" class="LineNr"> 718 </span> <span class="subxS1Comment"># . eax = get-or-insert-slice(table, segment-name, row-size=16, Heap)</span> <span id="L719" class="LineNr"> 719 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L720" class="LineNr"> 720 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L720" class="LineNr"> 720 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L721" class="LineNr"> 721 </span> 68/push 0x10/imm32/row-size <span id="L722" class="LineNr"> 722 </span> 52/push-edx <span id="L723" class="LineNr"> 723 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L724" class="LineNr"> 724 </span> <span class="subxS2Comment"># . . call</span> -<span id="L725" class="LineNr"> 725 </span> e8/call <a href='../131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L725" class="LineNr"> 725 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 <span id="L726" class="LineNr"> 726 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L727" class="LineNr"> 727 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L728" class="LineNr"> 728 </span> <span class="subxS1Comment"># . edi = eax</span> @@ -617,7 +617,7 @@ if ('onhashchange' in window) { <span id="L769" class="LineNr"> 769 </span> ff 6/subop/push 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edi+4)</span> <span id="L770" class="LineNr"> 770 </span> ff 6/subop/push 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edi</span> <span id="L771" class="LineNr"> 771 </span> <span class="subxS2Comment"># . . call</span> -<span id="L772" class="LineNr"> 772 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L772" class="LineNr"> 772 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L774" class="LineNr"> 774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L775" class="LineNr"> 775 </span> <span class="subxS1Comment"># . ebx = eax</span> @@ -630,9 +630,9 @@ if ('onhashchange' in window) { <span id="L782" class="LineNr"> 782 </span> 57/push-edi <span id="L783" class="LineNr"> 783 </span> 68/push 1/imm32 <span id="L784" class="LineNr"> 784 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Segment-size</span>/disp32 <span class="subxComment"># push *Segment-size</span> -<span id="L785" class="LineNr"> 785 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L785" class="LineNr"> 785 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . call</span> -<span id="L787" class="LineNr"> 787 </span> e8/call <a href='../121new-stream.subx.html#L8'>new-stream</a>/disp32 +<span id="L787" class="LineNr"> 787 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 <span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L789" class="LineNr"> 789 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L790" class="LineNr"> 790 </span> <span class="subxComment"># var curr-segment/ebx: (addr stream byte) = lookup(*segment-slot)</span> @@ -641,7 +641,7 @@ if ('onhashchange' in window) { <span id="L793" class="LineNr"> 793 </span> ff 6/subop/push 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edi+4)</span> <span id="L794" class="LineNr"> 794 </span> ff 6/subop/push 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edi</span> <span id="L795" class="LineNr"> 795 </span> <span class="subxS2Comment"># . . call</span> -<span id="L796" class="LineNr"> 796 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L796" class="LineNr"> 796 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L797" class="LineNr"> 797 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L798" class="LineNr"> 798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L799" class="LineNr"> 799 </span> <span class="subxS1Comment"># . ebx = eax</span> @@ -657,7 +657,7 @@ if ('onhashchange' in window) { <span id="L945" class="LineNr"> 945 </span> <span class="subxS2Comment"># . . push args</span> <span id="L946" class="LineNr"> 946 </span> 51/push-ecx <span id="L947" class="LineNr"> 947 </span> <span class="subxS2Comment"># . . call</span> -<span id="L948" class="LineNr"> 948 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L948" class="LineNr"> 948 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L949" class="LineNr"> 949 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L950" class="LineNr"> 950 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L951" class="Folded"> 951 </span><span class="Folded">+-- 9 lines: #? # print("write stream\n") ------------------------------------------------------------------------------------------------------------------------------------------</span> @@ -666,7 +666,7 @@ if ('onhashchange' in window) { <span id="L962" class="LineNr"> 962 </span> 51/push-ecx <span id="L963" class="LineNr"> 963 </span> 53/push-ebx <span id="L964" class="LineNr"> 964 </span> <span class="subxS2Comment"># . . call</span> -<span id="L965" class="LineNr"> 965 </span> e8/call <a href='../113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L965" class="LineNr"> 965 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 <span id="L966" class="LineNr"> 966 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L967" class="LineNr"> 967 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L968" class="LineNr"> 968 </span> <span class="subxComment"># loop</span> @@ -722,7 +722,7 @@ if ('onhashchange' in window) { <span id="L1026" class="LineNr">1026 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+12)</span> <span id="L1027" class="LineNr">1027 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+8)</span> <span id="L1028" class="LineNr">1028 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1029" class="LineNr">1029 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L1029" class="LineNr">1029 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L1030" class="LineNr">1030 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1031" class="LineNr">1031 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1032" class="LineNr">1032 </span> <span class="subxComment"># write-stream-data(out, stream)</span> @@ -730,7 +730,7 @@ if ('onhashchange' in window) { <span id="L1034" class="LineNr">1034 </span> 50/push-eax <span id="L1035" class="LineNr">1035 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1036" class="LineNr">1036 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1037" class="LineNr">1037 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1037" class="LineNr">1037 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1038" class="LineNr">1038 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1039" class="LineNr">1039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1040" class="LineNr">1040 </span><span class="Constant">$write-segments:continue</span>: @@ -742,7 +742,7 @@ if ('onhashchange' in window) { <span id="L1046" class="LineNr">1046 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1047" class="LineNr">1047 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1048" class="LineNr">1048 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1049" class="LineNr">1049 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1049" class="LineNr">1049 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1050" class="LineNr">1050 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1051" class="LineNr">1051 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1052" class="LineNr">1052 </span><span class="Constant">$write-segments:end</span>: diff --git a/html/000organization.cc.html b/html/linux/bootstrap/000organization.cc.html index 8d3684c1..56125b37 100644 --- a/html/000organization.cc.html +++ b/html/linux/bootstrap/000organization.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 000organization.cc</title> +<title>Mu - linux/bootstrap/000organization.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,13 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.Delimiter { color: #c000c0; } +.PreProc { color: #c000c0; } .LineNr { } +.Delimiter { color: #c000c0; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Constant { color: #008787; } +.cSpecial { color: #008000; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.PreProc { color: #c000c0; } --> </style> @@ -54,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/000organization.cc'>https://github.com/akkartik/mu/blob/main/000organization.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/000organization.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/000organization.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: You guessed right: the '000' prefix means you should start reading here.</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//:</span> @@ -213,7 +214,7 @@ if ('onhashchange' in window) { <span id="L155" class="LineNr">155 </span> <span class="Normal">const</span> <span class="Normal">int</span> x = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L156" class="LineNr">156 </span> <span class="Normal">const</span> <span class="Normal">char</span>* y = <span class="Normal">reinterpret_cast</span><<span class="Normal">const</span> <span class="Normal">char</span>*><span class="Delimiter">(</span>&x<span class="Delimiter">);</span> <span id="L157" class="LineNr">157 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*y != <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L158" class="LineNr">158 </span> cerr << <span class="Constant">"SubX requires a little-endian processor. Do you have Intel (or AMD or Atom) inside?\n"</span><span class="Delimiter">;</span> +<span id="L158" class="LineNr">158 </span> cerr << <span class="Constant">"SubX requires a little-endian processor. Do you have Intel (or AMD or Atom) inside?</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L159" class="LineNr">159 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L160" class="LineNr">160 </span> <span class="Delimiter">}</span> <span id="L161" class="LineNr">161 </span><span class="Delimiter">}</span> diff --git a/html/001help.cc.html b/html/linux/bootstrap/001help.cc.html index 393d7ddc..ff76f367 100644 --- a/html/001help.cc.html +++ b/html/linux/bootstrap/001help.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 001help.cc</title> +<title>Mu - linux/bootstrap/001help.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.PreProc { color: #c000c0; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.cSpecial { color: #008000; } +.PreProc { color: #c000c0; } --> </style> @@ -57,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/001help.cc'>https://github.com/akkartik/mu/blob/main/001help.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/001help.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/001help.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Everything this project/binary supports.</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: This should give you a sense for what to look forward to in later layers.</span> @@ -66,7 +65,7 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="Normal">if</span> <span class="Delimiter">(</span>argc <= <span class="Constant">1</span> || <a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"--help"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L6" class="LineNr"> 6 </span> <span class="Comment">//: this is the functionality later layers will provide</span> <span id="L7" class="LineNr"> 7 </span> <span class="Comment">// currently no automated tests for commandline arg parsing</span> -<span id="L8" class="LineNr"> 8 </span> cerr << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">);</span> +<span id="L8" class="LineNr"> 8 </span> cerr << get<span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">);</span> <span id="L9" class="LineNr"> 9 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span><span class="Delimiter">}</span> <span id="L11" class="LineNr"> 11 </span> @@ -74,7 +73,7 @@ if ('onhashchange' in window) { <span id="L13" class="LineNr"> 13 </span><span class="Comment">//: Options always begin with '--' and are always the first arguments. An</span> <span id="L14" class="LineNr"> 14 </span><span class="Comment">//: option will never follow a non-option.</span> <span id="L15" class="LineNr"> 15 </span><span class="Normal">char</span>** <a href='001help.cc.html#L15'>arg</a> = &argv[<span class="Constant">1</span>]<span class="Delimiter">;</span> -<span id="L16" class="LineNr"> 16 </span><span class="Normal">while</span> <span class="Delimiter">(</span>argc > <span class="Constant">1</span> && <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L16" class="LineNr"> 16 </span><span class="Normal">while</span> <span class="Delimiter">(</span>argc > <span class="Constant">1</span> && <a href='001help.cc.html#L104'>starts_with</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L17" class="LineNr"> 17 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">)</span> <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">;</span> <span class="Comment">// no-op branch just so any further additions can consistently always start with 'else'</span> <span id="L19" class="LineNr"> 19 </span> <span class="Comment">// End Commandline Options(*arg)</span> @@ -85,33 +84,33 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span> <span id="L25" class="LineNr"> 25 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"help"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L26" class="LineNr"> 26 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>argc == <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L27" class="LineNr"> 27 </span> cerr << <span class="Constant">"help on what?\n"</span><span class="Delimiter">;</span> +<span id="L27" class="LineNr"> 27 </span> cerr << <span class="Constant">"help on what?</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L28" class="LineNr"> 28 </span> <a href='001help.cc.html#L46'>help_contents</a><span class="Delimiter">();</span> <span id="L29" class="LineNr"> 29 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> <span id="L31" class="LineNr"> 31 </span> string key<span class="Delimiter">(</span>argv[<span class="Constant">2</span>]<span class="Delimiter">);</span> <span id="L32" class="LineNr"> 32 </span> <span class="Comment">// End Help Special-cases(key)</span> -<span id="L33" class="LineNr"> 33 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> key<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> cerr << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> key<span class="Delimiter">);</span> +<span id="L33" class="LineNr"> 33 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> key<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> cerr << get<span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> key<span class="Delimiter">);</span> <span id="L35" class="LineNr"> 35 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L38" class="LineNr"> 38 </span> cerr << <span class="Constant">"No help found for '"</span> << key << <span class="Constant">"'\n"</span><span class="Delimiter">;</span> +<span id="L38" class="LineNr"> 38 </span> cerr << <span class="Constant">"No help found for '"</span> << key << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L39" class="LineNr"> 39 </span> <a href='001help.cc.html#L46'>help_contents</a><span class="Delimiter">();</span> -<span id="L40" class="LineNr"> 40 </span> cerr << <span class="Constant">"Please check your command for typos.\n"</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span> cerr << <span class="Constant">"Please check your command for typos.</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L41" class="LineNr"> 41 </span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">}</span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">}</span> <span id="L44" class="LineNr"> 44 </span> <span id="L45" class="LineNr"> 45 </span><span class="Delimiter">:(code)</span> <span id="L46" class="LineNr"> 46 </span><span class="Normal">void</span> <a href='001help.cc.html#L46'>help_contents</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> cerr << <span class="Constant">"Available top-level topics:\n"</span><span class="Delimiter">;</span> -<span id="L48" class="LineNr"> 48 </span> cerr << <span class="Constant">" usage\n"</span><span class="Delimiter">;</span> +<span id="L47" class="LineNr"> 47 </span> cerr << <span class="Constant">"Available top-level topics:</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L48" class="LineNr"> 48 </span> cerr << <span class="Constant">" usage</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L49" class="LineNr"> 49 </span> <span class="Comment">// End Help Contents</span> <span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> <span id="L51" class="LineNr"> 51 </span> <span id="L52" class="LineNr"> 52 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L53" class="LineNr"> 53 </span>map<string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">;</span> +<span id="L53" class="LineNr"> 53 </span>map<string<span class="Delimiter">,</span> string> <a href='001help.cc.html#L53'>Help</a><span class="Delimiter">;</span> <span id="L54" class="LineNr"> 54 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L55" class="LineNr"> 55 </span><span class="PreProc">#include </span><span class="Constant"><map></span> <span id="L56" class="LineNr"> 56 </span><span class="Normal">using</span> std::map<span class="Delimiter">;</span> @@ -119,215 +118,217 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr"> 58 </span><a href='001help.cc.html#L60'>init_help</a><span class="Delimiter">();</span> <span id="L59" class="LineNr"> 59 </span><span class="Delimiter">:(code)</span> <span id="L60" class="LineNr"> 60 </span><span class="Normal">void</span> <a href='001help.cc.html#L60'>init_help</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L61" class="LineNr"> 61 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">,</span> -<span id="L62" class="LineNr"> 62 </span> <span class="Constant">"bootstrap: the bootstrap translator for SubX.\n"</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Constant">"This program also wraps some miscellaneous useful functionality:\n"</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Constant">" - an x86 emulator: `bootstrap run`\n"</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Constant">" - online help: `bootstrap help`\n"</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"\n"</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"== Ways to invoke bootstrap\n"</span> -<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"- See this message:\n"</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Constant">" bootstrap --help\n"</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"- Convert a textual SubX program into a standard ELF binary that you can\n"</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Constant">" <a href='011run.cc.html#L82'>run</a> on your computer:\n"</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" bootstrap translate input1.subx input2.subx ... -o <output ELF binary>\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"- Run a SubX binary using SubX itself (for better error messages):\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" bootstrap <a href='011run.cc.html#L82'>run</a> <ELF binary>\n"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"- Run all bootstrap's unit tests:\n"</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Constant">" bootstrap test\n"</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"- Run a single unit test:\n"</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">" bootstrap test <test name>\n"</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">" e.g. bootstrap test test_copy_imm32_to_EAX\n"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"\n"</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Constant">"== Debugging aids\n"</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"- Add '--trace' to any of these commands to save a <a href='003trace.cc.html#L96'>trace</a> to disk at the end.\n"</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">" This can <a href='011run.cc.html#L82'>run</a> out of memory for long-running commands.\n"</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"- Add '--debug' to emit additional debug information during translation.\n"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" 'bootstrap --debug translate' will save metadata to disk that\n"</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">" 'bootstrap --trace run' uses to make traces more informative.\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"\n"</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"Options starting with '--' must always come before any other arguments.\n"</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"\n"</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"To start learning how to write SubX programs, see Readme.md (particularly\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"the section on the x86 instruction set) and then <a href='011run.cc.html#L82'>run</a>:\n"</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Constant">" bootstrap help\n"</span> +<span id="L61" class="LineNr"> 61 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"usage"</span><span class="Delimiter">,</span> +<span id="L62" class="LineNr"> 62 </span> <span class="Constant">"bootstrap: the bootstrap translator for SubX.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Constant">"This program also wraps some miscellaneous useful functionality:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Constant">" - an x86 emulator: `bootstrap run`</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Constant">" - online help: `bootstrap help`</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"== Ways to invoke bootstrap</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"- See this message:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Constant">" bootstrap --help</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"- Convert a textual SubX program into a standard ELF binary that you can</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Constant">" <a href='011run.cc.html#L82'>run</a> on your computer:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" bootstrap translate input1.subx input2.subx ... -o <output ELF binary></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"- Run a SubX binary using SubX itself (for better error messages):</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" bootstrap <a href='011run.cc.html#L82'>run</a> <ELF binary></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"- Run all bootstrap's unit tests:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Constant">" bootstrap test</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"- Run a single unit test:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">" bootstrap test <test name></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">" e.g. bootstrap test <a href='011run.cc.html#L36'>test_copy_imm32_to_EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Constant">"== Debugging aids</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"- Add '--trace' to any of these commands to save a <a href='003trace.cc.html#L96'>trace</a> to disk at the end.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">" This can <a href='011run.cc.html#L82'>run</a> out of memory for long-running commands.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"- Add '--debug' to emit additional debug information during translation.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" 'bootstrap --debug translate' will save metadata to disk that</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">" 'bootstrap --trace run' uses to make traces more informative.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"Options starting with '--' must always come before any other arguments.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"To start learning how to write SubX programs, see Readme.md (particularly</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"the section on the x86 instruction set) and then <a href='011run.cc.html#L82'>run</a>:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Constant">" bootstrap help</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">);</span> <span id="L94" class="LineNr"> 94 </span> <span class="Comment">// End Help Texts</span> <span id="L95" class="LineNr"> 95 </span><span class="Delimiter">}</span> <span id="L96" class="LineNr"> 96 </span> <span id="L97" class="LineNr"> 97 </span><span class="Delimiter">:(code)</span> -<span id="L98" class="LineNr"> 98 </span><span class="Normal">bool</span> <a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span><span class="Normal">char</span>* s<span class="Delimiter">,</span> <span class="Normal">const</span> <span class="Normal">char</span>* lit<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Identifier">return</span> strncmp<span class="Delimiter">(</span>s<span class="Delimiter">,</span> lit<span class="Delimiter">,</span> strlen<span class="Delimiter">(</span>lit<span class="Delimiter">))</span> == <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> -<span id="L101" class="LineNr">101 </span> -<span id="L102" class="LineNr">102 </span><span class="Normal">bool</span> <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">,</span> <span class="Normal">const</span> string& pat<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> string::const_iterator a=s<span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> b=pat<span class="Delimiter">.</span>begin<span class="Delimiter">();</span> -<span id="L104" class="LineNr">104 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">nada</span><span class="Comment">*/</span><span class="Delimiter">;</span> a!=s<span class="Delimiter">.</span>end<span class="Delimiter">()</span> && b!=pat<span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++a<span class="Delimiter">,</span> ++b<span class="Delimiter">)</span> -<span id="L105" class="LineNr">105 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*a != *b<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L106" class="LineNr">106 </span> <span class="Identifier">return</span> b == pat<span class="Delimiter">.</span>end<span class="Delimiter">();</span> -<span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> -<span id="L108" class="LineNr">108 </span> -<span id="L109" class="LineNr">109 </span><span class="Comment">//: I'll throw some style conventions here for want of a better place for them.</span> -<span id="L110" class="LineNr">110 </span><span class="Comment">//: As a rule I hate style guides. Do what you want, that's my motto. But since</span> -<span id="L111" class="LineNr">111 </span><span class="Comment">//: we're dealing with C/C++, the one big thing we want to avoid is undefined</span> -<span id="L112" class="LineNr">112 </span><span class="Comment">//: behavior. If a compiler ever encounters undefined behavior it can make</span> -<span id="L113" class="LineNr">113 </span><span class="Comment">//: your program do anything it wants.</span> -<span id="L114" class="LineNr">114 </span><span class="Comment">//:</span> -<span id="L115" class="LineNr">115 </span><span class="Comment">//: For reference, my checklist of undefined behaviors to watch out for:</span> -<span id="L116" class="LineNr">116 </span><span class="Comment">//: out-of-bounds access</span> -<span id="L117" class="LineNr">117 </span><span class="Comment">//: uninitialized variables</span> -<span id="L118" class="LineNr">118 </span><span class="Comment">//: use after free</span> -<span id="L119" class="LineNr">119 </span><span class="Comment">//: dereferencing invalid pointers: null, a new of size 0, others</span> -<span id="L120" class="LineNr">120 </span><span class="Comment">//:</span> -<span id="L121" class="LineNr">121 </span><span class="Comment">//: casting a large number to a type too small to hold it</span> +<span id="L98" class="LineNr"> 98 </span><span class="Normal">bool</span> <a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span><span class="Normal">const</span> <span class="Normal">char</span>* s<span class="Delimiter">,</span> <span class="Normal">const</span> <span class="Normal">char</span>* lit<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <span class="Normal">size_t</span> len = strlen<span class="Delimiter">(</span>lit<span class="Delimiter">);</span> +<span id="L100" class="LineNr">100 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>strlen<span class="Delimiter">(</span>s<span class="Delimiter">)</span> != len<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L101" class="LineNr">101 </span> <span class="Identifier">return</span> strncmp<span class="Delimiter">(</span>s<span class="Delimiter">,</span> lit<span class="Delimiter">,</span> len<span class="Delimiter">)</span> == <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> +<span id="L103" class="LineNr">103 </span> +<span id="L104" class="LineNr">104 </span><span class="Normal">bool</span> <a href='001help.cc.html#L104'>starts_with</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">,</span> <span class="Normal">const</span> string& pat<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L105" class="LineNr">105 </span> string::const_iterator a=s<span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> b=pat<span class="Delimiter">.</span>begin<span class="Delimiter">();</span> +<span id="L106" class="LineNr">106 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">nada</span><span class="Comment">*/</span><span class="Delimiter">;</span> a!=s<span class="Delimiter">.</span>end<span class="Delimiter">()</span> && b!=pat<span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++a<span class="Delimiter">,</span> ++b<span class="Delimiter">)</span> +<span id="L107" class="LineNr">107 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*a != *b<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L108" class="LineNr">108 </span> <span class="Identifier">return</span> b == pat<span class="Delimiter">.</span>end<span class="Delimiter">();</span> +<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> +<span id="L110" class="LineNr">110 </span> +<span id="L111" class="LineNr">111 </span><span class="Comment">//: I'll throw some style conventions here for want of a better place for them.</span> +<span id="L112" class="LineNr">112 </span><span class="Comment">//: As a rule I hate style guides. Do what you want, that's my motto. But since</span> +<span id="L113" class="LineNr">113 </span><span class="Comment">//: we're dealing with C/C++, the one big thing we want to avoid is undefined</span> +<span id="L114" class="LineNr">114 </span><span class="Comment">//: behavior. If a compiler ever encounters undefined behavior it can make</span> +<span id="L115" class="LineNr">115 </span><span class="Comment">//: your program do anything it wants.</span> +<span id="L116" class="LineNr">116 </span><span class="Comment">//:</span> +<span id="L117" class="LineNr">117 </span><span class="Comment">//: For reference, my checklist of undefined behaviors to watch out for:</span> +<span id="L118" class="LineNr">118 </span><span class="Comment">//: out-of-bounds access</span> +<span id="L119" class="LineNr">119 </span><span class="Comment">//: uninitialized variables</span> +<span id="L120" class="LineNr">120 </span><span class="Comment">//: use after free</span> +<span id="L121" class="LineNr">121 </span><span class="Comment">//: dereferencing invalid pointers: null, a new of size 0, others</span> <span id="L122" class="LineNr">122 </span><span class="Comment">//:</span> -<span id="L123" class="LineNr">123 </span><span class="Comment">//: integer overflow</span> -<span id="L124" class="LineNr">124 </span><span class="Comment">//: division by zero and other undefined expressions</span> -<span id="L125" class="LineNr">125 </span><span class="Comment">//: left-shift by negative count</span> -<span id="L126" class="LineNr">126 </span><span class="Comment">//: shifting values by more than or equal to the number of bits they contain</span> -<span id="L127" class="LineNr">127 </span><span class="Comment">//: bitwise operations on signed numbers</span> -<span id="L128" class="LineNr">128 </span><span class="Comment">//:</span> -<span id="L129" class="LineNr">129 </span><span class="Comment">//: Converting pointers to types of different alignment requirements</span> -<span id="L130" class="LineNr">130 </span><span class="Comment">//: T* -> void* -> T*: defined</span> -<span id="L131" class="LineNr">131 </span><span class="Comment">//: T* -> U* -> T*: defined if non-function pointers and alignment requirements are same</span> -<span id="L132" class="LineNr">132 </span><span class="Comment">//: function pointers may be cast to other function pointers</span> -<span id="L133" class="LineNr">133 </span><span class="Comment">//:</span> -<span id="L134" class="LineNr">134 </span><span class="Comment">//: Casting a numeric value into a value that can't be represented by the target type (either directly or via static_cast)</span> +<span id="L123" class="LineNr">123 </span><span class="Comment">//: casting a large number to a type too small to hold it</span> +<span id="L124" class="LineNr">124 </span><span class="Comment">//:</span> +<span id="L125" class="LineNr">125 </span><span class="Comment">//: integer overflow</span> +<span id="L126" class="LineNr">126 </span><span class="Comment">//: division by zero and other undefined expressions</span> +<span id="L127" class="LineNr">127 </span><span class="Comment">//: left-shift by negative count</span> +<span id="L128" class="LineNr">128 </span><span class="Comment">//: shifting values by more than or equal to the number of bits they contain</span> +<span id="L129" class="LineNr">129 </span><span class="Comment">//: bitwise operations on signed numbers</span> +<span id="L130" class="LineNr">130 </span><span class="Comment">//:</span> +<span id="L131" class="LineNr">131 </span><span class="Comment">//: Converting pointers to types of different alignment requirements</span> +<span id="L132" class="LineNr">132 </span><span class="Comment">//: T* -> void* -> T*: defined</span> +<span id="L133" class="LineNr">133 </span><span class="Comment">//: T* -> U* -> T*: defined if non-function pointers and alignment requirements are same</span> +<span id="L134" class="LineNr">134 </span><span class="Comment">//: function pointers may be cast to other function pointers</span> <span id="L135" class="LineNr">135 </span><span class="Comment">//:</span> -<span id="L136" class="LineNr">136 </span><span class="Comment">//: To guard against these, some conventions:</span> +<span id="L136" class="LineNr">136 </span><span class="Comment">//: Casting a numeric value into a value that can't be represented by the target type (either directly or via static_cast)</span> <span id="L137" class="LineNr">137 </span><span class="Comment">//:</span> -<span id="L138" class="LineNr">138 </span><span class="Comment">//: 0. Initialize all primitive variables in functions and constructors.</span> +<span id="L138" class="LineNr">138 </span><span class="Comment">//: To guard against these, some conventions:</span> <span id="L139" class="LineNr">139 </span><span class="Comment">//:</span> -<span id="L140" class="LineNr">140 </span><span class="Comment">//: 1. Minimize use of pointers and pointer arithmetic. Avoid 'new' and</span> -<span id="L141" class="LineNr">141 </span><span class="Comment">//: 'delete' as far as possible. Rely on STL to perform memory management to</span> -<span id="L142" class="LineNr">142 </span><span class="Comment">//: avoid use-after-free issues (and memory leaks).</span> -<span id="L143" class="LineNr">143 </span><span class="Comment">//:</span> -<span id="L144" class="LineNr">144 </span><span class="Comment">//: 2. Avoid naked arrays to avoid out-of-bounds access. Never use operator[]</span> -<span id="L145" class="LineNr">145 </span><span class="Comment">//: except with map. Use at() with STL vectors and so on.</span> -<span id="L146" class="LineNr">146 </span><span class="Comment">//:</span> -<span id="L147" class="LineNr">147 </span><span class="Comment">//: 3. Valgrind all the things.</span> +<span id="L140" class="LineNr">140 </span><span class="Comment">//: 0. Initialize all primitive variables in functions and constructors.</span> +<span id="L141" class="LineNr">141 </span><span class="Comment">//:</span> +<span id="L142" class="LineNr">142 </span><span class="Comment">//: 1. Minimize use of pointers and pointer arithmetic. Avoid 'new' and</span> +<span id="L143" class="LineNr">143 </span><span class="Comment">//: 'delete' as far as possible. Rely on STL to perform memory management to</span> +<span id="L144" class="LineNr">144 </span><span class="Comment">//: avoid use-after-free issues (and memory leaks).</span> +<span id="L145" class="LineNr">145 </span><span class="Comment">//:</span> +<span id="L146" class="LineNr">146 </span><span class="Comment">//: 2. Avoid naked arrays to avoid out-of-bounds access. Never use operator[]</span> +<span id="L147" class="LineNr">147 </span><span class="Comment">//: except with map. Use at() with STL vectors and so on.</span> <span id="L148" class="LineNr">148 </span><span class="Comment">//:</span> -<span id="L149" class="LineNr">149 </span><span class="Comment">//: 4. Avoid unsigned numbers. Not strictly an undefined-behavior issue, but</span> -<span id="L150" class="LineNr">150 </span><span class="Comment">//: the extra range doesn't matter, and it's one less confusing category of</span> -<span id="L151" class="LineNr">151 </span><span class="Comment">//: interaction gotchas to worry about.</span> -<span id="L152" class="LineNr">152 </span><span class="Comment">//:</span> -<span id="L153" class="LineNr">153 </span><span class="Comment">//: Corollary: don't use the size() method on containers, since it returns an</span> -<span id="L154" class="LineNr">154 </span><span class="Comment">//: unsigned and that'll cause warnings about mixing signed and unsigned,</span> -<span id="L155" class="LineNr">155 </span><span class="Comment">//: yadda-yadda. Instead use this macro below to perform an unsafe cast to</span> -<span id="L156" class="LineNr">156 </span><span class="Comment">//: signed. We'll just give up immediately if a container's ever too large.</span> -<span id="L157" class="LineNr">157 </span><span class="Comment">//: Basically, Mu is not concerned about this being a little slower than it</span> -<span id="L158" class="LineNr">158 </span><span class="Comment">//: could be. (<a href="https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7">https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7</a>)</span> -<span id="L159" class="LineNr">159 </span><span class="Comment">//:</span> -<span id="L160" class="LineNr">160 </span><span class="Comment">//: Addendum to corollary: We're going to uniformly use int everywhere, to</span> -<span id="L161" class="LineNr">161 </span><span class="Comment">//: indicate that we're oblivious to number size, and since Clang on 32-bit</span> -<span id="L162" class="LineNr">162 </span><span class="Comment">//: platforms doesn't yet support multiplication over 64-bit integers, and</span> -<span id="L163" class="LineNr">163 </span><span class="Comment">//: since multiplying two integers seems like a more common situation to end</span> -<span id="L164" class="LineNr">164 </span><span class="Comment">//: up in than integer overflow.</span> -<span id="L165" class="LineNr">165 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L166" class="LineNr">166 </span><span class="PreProc">#define SIZE(</span><span class="SpecialChar">X</span><span class="PreProc">) (assert((</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">.</span><span class="PreProc">size() < (</span><span class="Constant">1LL</span><span class="PreProc"><<(</span><span class="Normal">sizeof</span><span class="PreProc">(</span><span class="Normal">int</span><span class="PreProc">)*</span><span class="Constant">8</span><span class="PreProc">-</span><span class="Constant">2</span><span class="PreProc">)))</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>((</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">.</span><span class="PreProc">size()))</span> -<span id="L167" class="LineNr">167 </span> -<span id="L168" class="LineNr">168 </span><span class="Comment">//: 5. Integer overflow is guarded against at runtime using the -ftrapv flag</span> -<span id="L169" class="LineNr">169 </span><span class="Comment">//: to the compiler, supported by Clang (GCC version only works sometimes:</span> -<span id="L170" class="LineNr">170 </span><span class="Comment">//: <a href="http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work">http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work</a>).</span> -<span id="L171" class="LineNr">171 </span><span class="Delimiter">:(before "atexit(<a href='000organization.cc.html#L150'>reset</a>)")</span> -<span id="L172" class="LineNr">172 </span><a href='001help.cc.html#L177'>initialize_signal_handlers</a><span class="Delimiter">();</span> <span class="Comment">// not always necessary, but doesn't hurt</span> -<span id="L173" class="LineNr">173 </span><span class="CommentedCode">//? cerr << INT_MAX+1 << '\n'; // test overflow</span> -<span id="L174" class="LineNr">174 </span><span class="CommentedCode">//? assert(false); // test SIGABRT</span> -<span id="L175" class="LineNr">175 </span><span class="Delimiter">:(code)</span> -<span id="L176" class="LineNr">176 </span><span class="Comment">// based on <a href="https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c">https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c</a></span> -<span id="L177" class="LineNr">177 </span><span class="Normal">void</span> <a href='001help.cc.html#L177'>initialize_signal_handlers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="Normal">struct</span> sigaction action<span class="Delimiter">;</span> -<span id="L179" class="LineNr">179 </span> bzero<span class="Delimiter">(</span>&action<span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span>action<span class="Delimiter">));</span> -<span id="L180" class="LineNr">180 </span> action<span class="Delimiter">.</span>sa_sigaction = <a href='001help.cc.html#L185'>dump_and_exit</a><span class="Delimiter">;</span> -<span id="L181" class="LineNr">181 </span> sigemptyset<span class="Delimiter">(</span>&action<span class="Delimiter">.</span>sa_mask<span class="Delimiter">);</span> -<span id="L182" class="LineNr">182 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGABRT</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// assert() failure or integer overflow on linux (with -ftrapv)</span> -<span id="L183" class="LineNr">183 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGILL</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// integer overflow on OS X (with -ftrapv)</span> -<span id="L184" class="LineNr">184 </span><span class="Delimiter">}</span> -<span id="L185" class="LineNr">185 </span><span class="Normal">void</span> <a href='001help.cc.html#L185'>dump_and_exit</a><span class="Delimiter">(</span><span class="Normal">int</span> sig<span class="Delimiter">,</span> siginfo_t* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">,</span> <span class="Normal">void</span>* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L186" class="LineNr">186 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>sig<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="Normal">case</span> <span class="Constant">SIGABRT</span>: -<span id="L188" class="LineNr">188 </span> <span class="PreProc">#ifndef __APPLE__</span> -<span id="L189" class="LineNr">189 </span> cerr << <span class="Constant">"SIGABRT: might be an integer overflow if it wasn't an assert() failure\n"</span><span class="Delimiter">;</span> -<span id="L190" class="LineNr">190 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">#endif</span> -<span id="L192" class="LineNr">192 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L193" class="LineNr">193 </span> <span class="Normal">case</span> <span class="Constant">SIGILL</span>: -<span id="L194" class="LineNr">194 </span> <span class="PreProc">#ifdef __APPLE__</span> -<span id="L195" class="LineNr">195 </span> cerr << <span class="Constant">"SIGILL: most likely caused by integer overflow\n"</span><span class="Delimiter">;</span> -<span id="L196" class="LineNr">196 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L197" class="LineNr">197 </span> <span class="PreProc">#endif</span> -<span id="L198" class="LineNr">198 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L199" class="LineNr">199 </span> <span class="Normal">default</span>: +<span id="L149" class="LineNr">149 </span><span class="Comment">//: 3. Valgrind all the things.</span> +<span id="L150" class="LineNr">150 </span><span class="Comment">//:</span> +<span id="L151" class="LineNr">151 </span><span class="Comment">//: 4. Avoid unsigned numbers. Not strictly an undefined-behavior issue, but</span> +<span id="L152" class="LineNr">152 </span><span class="Comment">//: the extra range doesn't matter, and it's one less confusing category of</span> +<span id="L153" class="LineNr">153 </span><span class="Comment">//: interaction gotchas to worry about.</span> +<span id="L154" class="LineNr">154 </span><span class="Comment">//:</span> +<span id="L155" class="LineNr">155 </span><span class="Comment">//: Corollary: don't use the size() method on containers, since it returns an</span> +<span id="L156" class="LineNr">156 </span><span class="Comment">//: unsigned and that'll cause warnings about mixing signed and unsigned,</span> +<span id="L157" class="LineNr">157 </span><span class="Comment">//: yadda-yadda. Instead use this macro below to perform an unsafe cast to</span> +<span id="L158" class="LineNr">158 </span><span class="Comment">//: signed. We'll just give up immediately if a container's ever too large.</span> +<span id="L159" class="LineNr">159 </span><span class="Comment">//: Basically, Mu is not concerned about this being a little slower than it</span> +<span id="L160" class="LineNr">160 </span><span class="Comment">//: could be. (<a href="https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7)">https://gist.github.com/rygorous/e0f055bfb74e3d5f0af20690759de5a7)</a></span> +<span id="L161" class="LineNr">161 </span><span class="Comment">//:</span> +<span id="L162" class="LineNr">162 </span><span class="Comment">//: Addendum to corollary: We're going to uniformly use int everywhere, to</span> +<span id="L163" class="LineNr">163 </span><span class="Comment">//: indicate that we're oblivious to number size, and since Clang on 32-bit</span> +<span id="L164" class="LineNr">164 </span><span class="Comment">//: platforms doesn't yet support multiplication over 64-bit integers, and</span> +<span id="L165" class="LineNr">165 </span><span class="Comment">//: since multiplying two integers seems like a more common situation to end</span> +<span id="L166" class="LineNr">166 </span><span class="Comment">//: up in than integer overflow.</span> +<span id="L167" class="LineNr">167 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L168" class="LineNr">168 </span><span class="PreProc">#define SIZE(X) (assert((X)</span><span class="Delimiter">.</span><span class="PreProc">size() < (</span><span class="Constant">1LL</span><span class="PreProc"><<(</span><span class="Normal">sizeof</span><span class="PreProc">(</span><span class="Normal">int</span><span class="PreProc">)*</span><span class="Constant">8</span><span class="PreProc">-</span><span class="Constant">2</span><span class="PreProc">)))</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>((X)</span><span class="Delimiter">.</span><span class="PreProc">size()))</span> +<span id="L169" class="LineNr">169 </span> +<span id="L170" class="LineNr">170 </span><span class="Comment">//: 5. Integer overflow is guarded against at runtime using the -ftrapv flag</span> +<span id="L171" class="LineNr">171 </span><span class="Comment">//: to the compiler, supported by Clang (GCC version only works sometimes:</span> +<span id="L172" class="LineNr">172 </span><span class="Comment">//: <a href="http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work).">http://stackoverflow.com/questions/20851061/how-to-make-gcc-ftrapv-work).</a></span> +<span id="L173" class="LineNr">173 </span><span class="Delimiter">:(before "atexit(<a href='000organization.cc.html#L150'>reset</a>)")</span> +<span id="L174" class="LineNr">174 </span><a href='001help.cc.html#L179'>initialize_signal_handlers</a><span class="Delimiter">();</span> <span class="Comment">// not always necessary, but doesn't hurt</span> +<span id="L175" class="LineNr">175 </span><span class="CommentedCode">//? cerr << INT_MAX+1 << '\n'; // test overflow</span> +<span id="L176" class="LineNr">176 </span><span class="CommentedCode">//? assert(false); // test SIGABRT</span> +<span id="L177" class="LineNr">177 </span><span class="Delimiter">:(code)</span> +<span id="L178" class="LineNr">178 </span><span class="Comment">// based on <a href="https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c">https://spin.atomicobject.com/2013/01/13/exceptions-stack-traces-c</a></span> +<span id="L179" class="LineNr">179 </span><span class="Normal">void</span> <a href='001help.cc.html#L179'>initialize_signal_handlers</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L180" class="LineNr">180 </span> <span class="Normal">struct</span> sigaction action<span class="Delimiter">;</span> +<span id="L181" class="LineNr">181 </span> bzero<span class="Delimiter">(</span>&action<span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span>action<span class="Delimiter">));</span> +<span id="L182" class="LineNr">182 </span> action<span class="Delimiter">.</span>sa_sigaction = <a href='001help.cc.html#L187'>dump_and_exit</a><span class="Delimiter">;</span> +<span id="L183" class="LineNr">183 </span> sigemptyset<span class="Delimiter">(</span>&action<span class="Delimiter">.</span>sa_mask<span class="Delimiter">);</span> +<span id="L184" class="LineNr">184 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGABRT</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// assert() failure or integer overflow on linux (with -ftrapv)</span> +<span id="L185" class="LineNr">185 </span> sigaction<span class="Delimiter">(</span><span class="Constant">SIGILL</span><span class="Delimiter">,</span> &action<span class="Delimiter">,</span> <span class="Constant">NULL</span><span class="Delimiter">);</span> <span class="Comment">// integer overflow on OS X (with -ftrapv)</span> +<span id="L186" class="LineNr">186 </span><span class="Delimiter">}</span> +<span id="L187" class="LineNr">187 </span><span class="Normal">void</span> <a href='001help.cc.html#L187'>dump_and_exit</a><span class="Delimiter">(</span><span class="Normal">int</span> sig<span class="Delimiter">,</span> siginfo_t* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">,</span> <span class="Normal">void</span>* <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L188" class="LineNr">188 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>sig<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L189" class="LineNr">189 </span> <span class="Normal">case</span> <span class="Constant">SIGABRT</span>: +<span id="L190" class="LineNr">190 </span> <span class="PreProc">#ifndef __APPLE__</span> +<span id="L191" class="LineNr">191 </span> cerr << <span class="Constant">"SIGABRT: might be an integer overflow if it wasn't an assert() failure</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L192" class="LineNr">192 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">#endif</span> +<span id="L194" class="LineNr">194 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L195" class="LineNr">195 </span> <span class="Normal">case</span> <span class="Constant">SIGILL</span>: +<span id="L196" class="LineNr">196 </span> <span class="PreProc">#ifdef __APPLE__</span> +<span id="L197" class="LineNr">197 </span> cerr << <span class="Constant">"SIGILL: most likely caused by integer overflow</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L198" class="LineNr">198 </span> _Exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">#endif</span> <span id="L200" class="LineNr">200 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> -<span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> -<span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> -<span id="L203" class="LineNr">203 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L204" class="LineNr">204 </span><span class="PreProc">#include </span><span class="Constant"><signal.h></span> -<span id="L205" class="LineNr">205 </span> -<span id="L206" class="LineNr">206 </span><span class="Comment">//: 6. Map's operator[] being non-const is fucking evil.</span> -<span id="L207" class="LineNr">207 </span><span class="Delimiter">:(before "Globals")</span> <span class="Comment">// can't generate prototypes for these</span> -<span id="L208" class="LineNr">208 </span><span class="Comment">// from <a href="http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map">http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map</a></span> -<span id="L209" class="LineNr">209 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type& get<span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L210" class="LineNr">210 </span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> -<span id="L211" class="LineNr">211 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'\n"</span><span class="Delimiter">;</span> -<span id="L213" class="LineNr">213 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L214" class="LineNr">214 </span> <span class="Delimiter">}</span> -<span id="L215" class="LineNr">215 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> -<span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> -<span id="L217" class="LineNr">217 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& get<span class="Delimiter">(</span><span class="Normal">const</span> <span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L218" class="LineNr">218 </span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::const_iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> -<span id="L219" class="LineNr">219 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L220" class="LineNr">220 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'\n"</span><span class="Delimiter">;</span> -<span id="L221" class="LineNr">221 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L222" class="LineNr">222 </span> <span class="Delimiter">}</span> -<span id="L223" class="LineNr">223 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> -<span id="L224" class="LineNr">224 </span><span class="Delimiter">}</span> -<span id="L225" class="LineNr">225 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L226" class="LineNr">226 </span> map[key] = value<span class="Delimiter">;</span> -<span id="L227" class="LineNr">227 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> -<span id="L228" class="LineNr">228 </span><span class="Delimiter">}</span> -<span id="L229" class="LineNr">229 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">bool</span> <a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L230" class="LineNr">230 </span> <span class="Identifier">return</span> map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> != map<span class="Delimiter">.</span>end<span class="Delimiter">();</span> -<span id="L231" class="LineNr">231 </span><span class="Delimiter">}</span> -<span id="L232" class="LineNr">232 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type& <a href='001help.cc.html#L232'>get_or_insert</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L233" class="LineNr">233 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> -<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> -<span id="L235" class="LineNr">235 </span><span class="Normal">template</span><<span class="Normal">typename</span> <span class="SpecialChar">T</span>> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar">T</span>& map<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> <span class="SpecialChar">T</span>::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> assert<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> == map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L237" class="LineNr">237 </span> map[key] = value<span class="Delimiter">;</span> -<span id="L238" class="LineNr">238 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> -<span id="L239" class="LineNr">239 </span><span class="Delimiter">}</span> -<span id="L240" class="LineNr">240 </span><span class="Comment">//: The contract: any container that relies on get_or_insert should never call</span> -<span id="L241" class="LineNr">241 </span><span class="Comment">//: contains_key.</span> -<span id="L242" class="LineNr">242 </span> -<span id="L243" class="LineNr">243 </span><span class="Comment">//: 7. istreams are a royal pain in the arse. You have to be careful about</span> -<span id="L244" class="LineNr">244 </span><span class="Comment">//: what subclass you try to putback into. You have to watch out for the pesky</span> -<span id="L245" class="LineNr">245 </span><span class="Comment">//: failbit and badbit. Just avoid eof() and use this helper instead.</span> -<span id="L246" class="LineNr">246 </span><span class="Delimiter">:(code)</span> -<span id="L247" class="LineNr">247 </span><span class="Normal">bool</span> <a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L248" class="LineNr">248 </span> <span class="Identifier">return</span> in && !in<span class="Delimiter">.</span>eof<span class="Delimiter">();</span> -<span id="L249" class="LineNr">249 </span><span class="Delimiter">}</span> -<span id="L250" class="LineNr">250 </span> -<span id="L251" class="LineNr">251 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L252" class="LineNr">252 </span><span class="PreProc">#include </span><span class="Constant"><assert.h></span> -<span id="L253" class="LineNr">253 </span> -<span id="L254" class="LineNr">254 </span><span class="PreProc">#include </span><span class="Constant"><iostream></span> -<span id="L255" class="LineNr">255 </span><span class="Normal">using</span> std::istream<span class="Delimiter">;</span> -<span id="L256" class="LineNr">256 </span><span class="Normal">using</span> std::ostream<span class="Delimiter">;</span> -<span id="L257" class="LineNr">257 </span><span class="Normal">using</span> std::iostream<span class="Delimiter">;</span> -<span id="L258" class="LineNr">258 </span><span class="Normal">using</span> std::cin<span class="Delimiter">;</span> -<span id="L259" class="LineNr">259 </span><span class="Normal">using</span> std::cout<span class="Delimiter">;</span> -<span id="L260" class="LineNr">260 </span><span class="Normal">using</span> std::cerr<span class="Delimiter">;</span> -<span id="L261" class="LineNr">261 </span><span class="PreProc">#include </span><span class="Constant"><iomanip></span> -<span id="L262" class="LineNr">262 </span> -<span id="L263" class="LineNr">263 </span><span class="PreProc">#include </span><span class="Constant"><string.h></span> -<span id="L264" class="LineNr">264 </span><span class="PreProc">#include </span><span class="Constant"><string></span> -<span id="L265" class="LineNr">265 </span><span class="Normal">using</span> std::string<span class="Delimiter">;</span> -<span id="L266" class="LineNr">266 </span> -<span id="L267" class="LineNr">267 </span><span class="PreProc">#include </span><span class="Constant"><algorithm></span> -<span id="L268" class="LineNr">268 </span><span class="Normal">using</span> std::min<span class="Delimiter">;</span> -<span id="L269" class="LineNr">269 </span><span class="Normal">using</span> std::max<span class="Delimiter">;</span> +<span id="L201" class="LineNr">201 </span> <span class="Normal">default</span>: +<span id="L202" class="LineNr">202 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L203" class="LineNr">203 </span> <span class="Delimiter">}</span> +<span id="L204" class="LineNr">204 </span><span class="Delimiter">}</span> +<span id="L205" class="LineNr">205 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L206" class="LineNr">206 </span><span class="PreProc">#include </span><span class="Constant"><signal.h></span> +<span id="L207" class="LineNr">207 </span> +<span id="L208" class="LineNr">208 </span><span class="Comment">//: 6. Map's operator[] being non-const is fucking evil.</span> +<span id="L209" class="LineNr">209 </span><span class="Delimiter">:(before "Globals")</span> <span class="Comment">// can't generate prototypes for these</span> +<span id="L210" class="LineNr">210 </span><span class="Comment">// from <a href="http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map">http://stackoverflow.com/questions/152643/idiomatic-c-for-reading-from-a-const-map</a></span> +<span id="L211" class="LineNr">211 </span><span class="Normal">template</span><<span class="Normal">typename</span> T> <span class="Normal">typename</span> T::mapped_type& get<span class="Delimiter">(</span>T& map<span class="Delimiter">,</span> <span class="Normal">typename</span> T::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L212" class="LineNr">212 </span> <span class="Normal">typename</span> T::iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> +<span id="L213" class="LineNr">213 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L215" class="LineNr">215 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L216" class="LineNr">216 </span> <span class="Delimiter">}</span> +<span id="L217" class="LineNr">217 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> +<span id="L218" class="LineNr">218 </span><span class="Delimiter">}</span> +<span id="L219" class="LineNr">219 </span><span class="Normal">template</span><<span class="Normal">typename</span> T> <span class="Normal">typename</span> T::mapped_type <span class="Normal">const</span>& get<span class="Delimiter">(</span><span class="Normal">const</span> T& map<span class="Delimiter">,</span> <span class="Normal">typename</span> T::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span> <span class="Normal">typename</span> T::const_iterator iter<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">));</span> +<span id="L221" class="LineNr">221 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>iter == map<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L222" class="LineNr">222 </span> cerr << <span class="Constant">"get couldn't find key '"</span> << key << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L223" class="LineNr">223 </span> assert<span class="Delimiter">(</span>iter != map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> <span class="Identifier">return</span> iter<span class="Delimiter">-></span>second<span class="Delimiter">;</span> +<span id="L226" class="LineNr">226 </span><span class="Delimiter">}</span> +<span id="L227" class="LineNr">227 </span><span class="Normal">template</span><<span class="Normal">typename</span> T> <span class="Normal">typename</span> T::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span>T& map<span class="Delimiter">,</span> <span class="Normal">typename</span> T::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> T::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L228" class="LineNr">228 </span> map[key] = value<span class="Delimiter">;</span> +<span id="L229" class="LineNr">229 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> +<span id="L230" class="LineNr">230 </span><span class="Delimiter">}</span> +<span id="L231" class="LineNr">231 </span><span class="Normal">template</span><<span class="Normal">typename</span> T> <span class="Normal">bool</span> <a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span>T& map<span class="Delimiter">,</span> <span class="Normal">typename</span> T::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L232" class="LineNr">232 </span> <span class="Identifier">return</span> map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> != map<span class="Delimiter">.</span>end<span class="Delimiter">();</span> +<span id="L233" class="LineNr">233 </span><span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span><span class="Normal">template</span><<span class="Normal">typename</span> T> <span class="Normal">typename</span> T::mapped_type& <a href='001help.cc.html#L234'>get_or_insert</a><span class="Delimiter">(</span>T& map<span class="Delimiter">,</span> <span class="Normal">typename</span> T::key_type <span class="Normal">const</span>& key<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L235" class="LineNr">235 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> +<span id="L236" class="LineNr">236 </span><span class="Delimiter">}</span> +<span id="L237" class="LineNr">237 </span><span class="Normal">template</span><<span class="Normal">typename</span> T> <span class="Normal">typename</span> T::mapped_type <span class="Normal">const</span>& <a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span>T& map<span class="Delimiter">,</span> <span class="Normal">typename</span> T::key_type <span class="Normal">const</span>& key<span class="Delimiter">,</span> <span class="Normal">typename</span> T::mapped_type <span class="Normal">const</span>& value<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L238" class="LineNr">238 </span> assert<span class="Delimiter">(</span>map<span class="Delimiter">.</span>find<span class="Delimiter">(</span>key<span class="Delimiter">)</span> == map<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L239" class="LineNr">239 </span> map[key] = value<span class="Delimiter">;</span> +<span id="L240" class="LineNr">240 </span> <span class="Identifier">return</span> map[key]<span class="Delimiter">;</span> +<span id="L241" class="LineNr">241 </span><span class="Delimiter">}</span> +<span id="L242" class="LineNr">242 </span><span class="Comment">//: The contract: any container that relies on get_or_insert should never call</span> +<span id="L243" class="LineNr">243 </span><span class="Comment">//: contains_key.</span> +<span id="L244" class="LineNr">244 </span> +<span id="L245" class="LineNr">245 </span><span class="Comment">//: 7. istreams are a royal pain in the arse. You have to be careful about</span> +<span id="L246" class="LineNr">246 </span><span class="Comment">//: what subclass you try to putback into. You have to watch out for the pesky</span> +<span id="L247" class="LineNr">247 </span><span class="Comment">//: failbit and badbit. Just avoid eof() and use this helper instead.</span> +<span id="L248" class="LineNr">248 </span><span class="Delimiter">:(code)</span> +<span id="L249" class="LineNr">249 </span><span class="Normal">bool</span> <a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L250" class="LineNr">250 </span> <span class="Identifier">return</span> in && !in<span class="Delimiter">.</span>eof<span class="Delimiter">();</span> +<span id="L251" class="LineNr">251 </span><span class="Delimiter">}</span> +<span id="L252" class="LineNr">252 </span> +<span id="L253" class="LineNr">253 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L254" class="LineNr">254 </span><span class="PreProc">#include </span><span class="Constant"><assert.h></span> +<span id="L255" class="LineNr">255 </span> +<span id="L256" class="LineNr">256 </span><span class="PreProc">#include </span><span class="Constant"><iostream></span> +<span id="L257" class="LineNr">257 </span><span class="Normal">using</span> std::istream<span class="Delimiter">;</span> +<span id="L258" class="LineNr">258 </span><span class="Normal">using</span> std::ostream<span class="Delimiter">;</span> +<span id="L259" class="LineNr">259 </span><span class="Normal">using</span> std::iostream<span class="Delimiter">;</span> +<span id="L260" class="LineNr">260 </span><span class="Normal">using</span> std::cin<span class="Delimiter">;</span> +<span id="L261" class="LineNr">261 </span><span class="Normal">using</span> std::cout<span class="Delimiter">;</span> +<span id="L262" class="LineNr">262 </span><span class="Normal">using</span> std::cerr<span class="Delimiter">;</span> +<span id="L263" class="LineNr">263 </span><span class="PreProc">#include </span><span class="Constant"><iomanip></span> +<span id="L264" class="LineNr">264 </span> +<span id="L265" class="LineNr">265 </span><span class="PreProc">#include </span><span class="Constant"><string.h></span> +<span id="L266" class="LineNr">266 </span><span class="PreProc">#include </span><span class="Constant"><string></span> +<span id="L267" class="LineNr">267 </span><span class="Normal">using</span> std::string<span class="Delimiter">;</span> +<span id="L268" class="LineNr">268 </span> +<span id="L269" class="LineNr">269 </span><span class="PreProc">#include </span><span class="Constant"><algorithm></span> +<span id="L270" class="LineNr">270 </span><span class="Normal">using</span> std::min<span class="Delimiter">;</span> +<span id="L271" class="LineNr">271 </span><span class="Normal">using</span> std::max<span class="Delimiter">;</span> </pre> </body> </html> diff --git a/html/002test.cc.html b/html/linux/bootstrap/002test.cc.html index c15c5528..1c6d84f8 100644 --- a/html/002test.cc.html +++ b/html/linux/bootstrap/002test.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 002test.cc</title> +<title>Mu - linux/bootstrap/002test.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.cSpecial { color: #008000; } -.CommentedCode { color: #8a8a8a; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.cSpecial { color: #008000; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.PreProc { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } --> </style> @@ -57,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/002test.cc'>https://github.com/akkartik/mu/blob/main/002test.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/002test.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/002test.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: A simple test harness. To create new tests, define functions starting with</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: 'test_'. To run all tests so defined, run:</span> @@ -73,40 +72,40 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span><span class="Normal">typedef</span> <span class="Normal">void</span> <span class="Delimiter">(</span>*test_fn<span class="Delimiter">)(</span><span class="Normal">void</span><span class="Delimiter">);</span> <span id="L13" class="LineNr"> 13 </span><span class="Delimiter">:(before "Globals")</span> <span id="L14" class="LineNr"> 14 </span><span class="Comment">// move a global ahead into types that we can't generate an extern declaration for</span> -<span id="L15" class="LineNr"> 15 </span><span class="Normal">const</span> <a href='002test.cc.html#L12'>test_fn</a> <span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[] = <span class="Delimiter">{</span> +<span id="L15" class="LineNr"> 15 </span><span class="Normal">const</span> <a href='002test.cc.html#L12'>test_fn</a> Tests[] = <span class="Delimiter">{</span> <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">#include </span><span class="Constant">"test_list"</span> <span class="Comment">// auto-generated; see 'build*' scripts</span> <span id="L17" class="LineNr"> 17 </span><span class="Delimiter">};</span> <span id="L18" class="LineNr"> 18 </span> <span id="L19" class="LineNr"> 19 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L20" class="LineNr"> 20 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='002test.cc.html#L20'>Run_tests</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L21" class="LineNr"> 21 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> <span class="Comment">// set this to false inside any test to indicate failure</span> +<span id="L20" class="LineNr"> 20 </span><span class="Normal">bool</span> <a href='002test.cc.html#L20'>Run_tests</a> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L21" class="LineNr"> 21 </span><span class="Normal">bool</span> <a href='002test.cc.html#L21'>Passed</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span class="Comment">// set this to false inside any test to indicate failure</span> <span id="L22" class="LineNr"> 22 </span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L24" class="LineNr"> 24 </span><span class="PreProc">#define CHECK(</span><span class="SpecialChar">X</span><span class="PreProc">) \</span> -<span id="L25" class="LineNr"> 25 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && !(</span><span class="SpecialChar">X</span><span class="PreProc">)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L26" class="LineNr"> 26 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #</span><span class="SpecialChar">X</span><span class="PreProc"> << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L27" class="LineNr"> 27 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L24" class="LineNr"> 24 </span><span class="PreProc">#define CHECK(X) \</span> +<span id="L25" class="LineNr"> 25 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (<a href='002test.cc.html#L21'>Passed</a> && !(X)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L26" class="LineNr"> 26 </span><span class="PreProc"> cerr << </span><span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #X << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L27" class="LineNr"> 27 </span><span class="PreProc"> <a href='002test.cc.html#L21'>Passed</a> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L28" class="LineNr"> 28 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> Currently we stop at the very first failure. </span><span class="Comment">*/</span><span class="PreProc"> \</span> <span id="L29" class="LineNr"> 29 </span><span class="PreProc"> </span><span class="Delimiter">}</span> <span id="L30" class="LineNr"> 30 </span> -<span id="L31" class="LineNr"> 31 </span><span class="PreProc">#define CHECK_EQ(</span><span class="SpecialChar">X</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="SpecialChar">Y</span><span class="PreProc">) \</span> -<span id="L32" class="LineNr"> 32 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && (</span><span class="SpecialChar">X</span><span class="PreProc">) != (</span><span class="SpecialChar">Y</span><span class="PreProc">)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L33" class="LineNr"> 33 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #</span><span class="SpecialChar">X</span><span class="PreProc"> << </span><span class="Constant">" == "</span><span class="PreProc"> << #</span><span class="SpecialChar">Y</span><span class="PreProc"> << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L34" class="LineNr"> 34 </span><span class="PreProc"> cerr << </span><span class="Constant">" got "</span><span class="PreProc"> << (</span><span class="SpecialChar">X</span><span class="PreProc">) << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> BEWARE: multiple eval </span><span class="Comment">*/</span><span class="PreProc"> \</span> -<span id="L35" class="LineNr"> 35 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L31" class="LineNr"> 31 </span><span class="PreProc">#define CHECK_EQ(X</span><span class="Delimiter">,</span><span class="PreProc"> Y) \</span> +<span id="L32" class="LineNr"> 32 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (<a href='002test.cc.html#L21'>Passed</a> && (X) != (Y)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L33" class="LineNr"> 33 </span><span class="PreProc"> cerr << </span><span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): "</span><span class="PreProc"> << #X << </span><span class="Constant">" == "</span><span class="PreProc"> << #Y << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc"> cerr << </span><span class="Constant">" got "</span><span class="PreProc"> << (X) << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> BEWARE: multiple eval </span><span class="Comment">*/</span><span class="PreProc"> \</span> +<span id="L35" class="LineNr"> 35 </span><span class="PreProc"> <a href='002test.cc.html#L21'>Passed</a> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L36" class="LineNr"> 36 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> Currently we stop at the very first failure. </span><span class="Comment">*/</span><span class="PreProc"> \</span> <span id="L37" class="LineNr"> 37 </span><span class="PreProc"> </span><span class="Delimiter">}</span> <span id="L38" class="LineNr"> 38 </span> <span id="L39" class="LineNr"> 39 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L40" class="LineNr"> 40 </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span><a href='002test.cc.html#L21'>Passed</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L41" class="LineNr"> 41 </span> <span id="L42" class="LineNr"> 42 </span><span class="Delimiter">:(before "End Commandline Parsing")</span> <span id="L43" class="LineNr"> 43 </span><span class="Normal">if</span> <span class="Delimiter">(</span>argc > <span class="Constant">1</span> && <a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"test"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L44" class="LineNr"> 44 </span> <span class="SpecialChar"><a href='002test.cc.html#L20'>Run_tests</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> --argc<span class="Delimiter">;</span> ++argv<span class="Delimiter">;</span> <span class="Comment">// shift 'test' out of commandline args</span> +<span id="L44" class="LineNr"> 44 </span> <a href='002test.cc.html#L20'>Run_tests</a> = <span class="Constant">true</span><span class="Delimiter">;</span> --argc<span class="Delimiter">;</span> ++argv<span class="Delimiter">;</span> <span class="Comment">// shift 'test' out of commandline args</span> <span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> <span id="L46" class="LineNr"> 46 </span> <span id="L47" class="LineNr"> 47 </span><span class="Delimiter">:(before "End Main")</span> -<span id="L48" class="LineNr"> 48 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L20'>Run_tests</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='002test.cc.html#L20'>Run_tests</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L49" class="LineNr"> 49 </span> <span class="Comment">// Test Runs</span> <span id="L50" class="LineNr"> 50 </span> <span class="Comment">// we run some tests and then exit; assume no state need be maintained afterward</span> <span id="L51" class="LineNr"> 51 </span> @@ -114,10 +113,10 @@ if ('onhashchange' in window) { <span id="L53" class="LineNr"> 53 </span> <span class="Comment">// End Test Run Initialization</span> <span id="L54" class="LineNr"> 54 </span> <span class="Normal">time_t</span> t<span class="Delimiter">;</span> time<span class="Delimiter">(</span>&t<span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span> cerr << <span class="Constant">"C tests: "</span> << ctime<span class="Delimiter">(</span>&t<span class="Delimiter">);</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><a href='002test.cc.html#L15'>Tests</a><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span>Tests[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L57" class="LineNr"> 57 </span><span class="CommentedCode">//? cerr << "running " << Test_names[i] << '\n';</span> <span id="L58" class="LineNr"> 58 </span> <a href='002test.cc.html#L81'>run_test</a><span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> cerr << <span class="Constant">'.'</span><span class="Delimiter">;</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='002test.cc.html#L21'>Passed</a><span class="Delimiter">)</span> cerr << <span class="Constant">'.'</span><span class="Delimiter">;</span> <span id="L60" class="LineNr"> 60 </span> <span class="Normal">else</span> ++num_failures<span class="Delimiter">;</span> <span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> cerr << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> @@ -135,39 +134,53 @@ if ('onhashchange' in window) { <span id="L74" class="LineNr"> 74 </span><span class="Comment">//: Raise other unrecognized sub-commands as errors.</span> <span id="L75" class="LineNr"> 75 </span><span class="Comment">//: We couldn't do this until now because we want `./bootstrap test` to always</span> <span id="L76" class="LineNr"> 76 </span><span class="Comment">//: succeed, no matter how many layers are included in the build.</span> -<span id="L77" class="LineNr"> 77 </span>cerr << <span class="Constant">"nothing to do\n"</span><span class="Delimiter">;</span> +<span id="L77" class="LineNr"> 77 </span>cerr << <span class="Constant">"nothing to do</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L78" class="LineNr"> 78 </span><span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="Delimiter">:(code)</span> <span id="L81" class="LineNr"> 81 </span><span class="Normal">void</span> <a href='002test.cc.html#L81'>run_test</a><span class="Delimiter">(</span><span class="Normal">size_t</span> i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i >= <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i >= <span class="Normal">sizeof</span><span class="Delimiter">(</span><a href='002test.cc.html#L15'>Tests</a><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span>Tests[<span class="Constant">0</span>]<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L83" class="LineNr"> 83 </span> cerr << <span class="Constant">"no test "</span> << i << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> <span id="L84" class="LineNr"> 84 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> <span id="L86" class="LineNr"> 86 </span> <a href='000organization.cc.html#L150'>reset</a><span class="Delimiter">();</span> <span id="L87" class="LineNr"> 87 </span> <span class="Comment">// End Test Setup</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">(</span>*<span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[i]<span class="Delimiter">)();</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">(</span>*Tests[i]<span class="Delimiter">)();</span> <span id="L89" class="LineNr"> 89 </span> <span class="Comment">// End Test Teardown</span> <span id="L90" class="LineNr"> 90 </span><span class="Delimiter">}</span> <span id="L91" class="LineNr"> 91 </span> <span id="L92" class="LineNr"> 92 </span><span class="Comment">//: Convenience: run a single test</span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "Globals")</span> <span id="L94" class="LineNr"> 94 </span><span class="Comment">// Names for each element of the 'Tests' global, respectively.</span> -<span id="L95" class="LineNr"> 95 </span><span class="Normal">const</span> string <span class="SpecialChar"><a href='002test.cc.html#L95'>Test_names</a></span>[] = <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span><span class="Normal">const</span> string Test_names[] = <span class="Delimiter">{</span> <span id="L96" class="LineNr"> 96 </span> <span class="PreProc">#include </span><span class="Constant">"test_name_list"</span> <span class="Comment">// auto-generated; see 'build*' scripts</span> <span id="L97" class="LineNr"> 97 </span><span class="Delimiter">};</span> <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">:(after "Test Runs")</span> <span id="L99" class="LineNr"> 99 </span>string <a href='002test.cc.html#L99'>maybe_single_test_to_run</a> = argv[argc-<span class="Constant">1</span>]<span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L15'>Tests</a></span>[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L95'>Test_names</a></span>[i] == <a href='002test.cc.html#L99'>maybe_single_test_to_run</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L100" class="LineNr">100 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i=<span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Normal">sizeof</span><span class="Delimiter">(</span><a href='002test.cc.html#L15'>Tests</a><span class="Delimiter">)</span>/<span class="Normal">sizeof</span><span class="Delimiter">(</span>Tests[<span class="Constant">0</span>]<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L101" class="LineNr">101 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Test_names[i] == <a href='002test.cc.html#L99'>maybe_single_test_to_run</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L102" class="LineNr">102 </span> <a href='002test.cc.html#L81'>run_test</a><span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L103" class="LineNr">103 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> cerr << <span class="Constant">".\n"</span><span class="Delimiter">;</span> +<span id="L103" class="LineNr">103 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='002test.cc.html#L21'>Passed</a><span class="Delimiter">)</span> cerr << <span class="Constant">".</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L104" class="LineNr">104 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L105" class="LineNr">105 </span> <span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> <span id="L107" class="LineNr">107 </span> -<span id="L108" class="LineNr">108 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L109" class="LineNr">109 </span><span class="PreProc">#include </span><span class="Constant"><stdlib.h></span> +<span id="L108" class="LineNr">108 </span><span class="Comment">//: A pending test that also serves to put our test harness through its paces.</span> +<span id="L109" class="LineNr">109 </span> +<span id="L110" class="LineNr">110 </span><span class="Delimiter">:(code)</span> +<span id="L111" class="LineNr">111 </span><span class="Normal">void</span> <a href='002test.cc.html#L111'>test_is_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span><span class="Constant">""</span><span class="Delimiter">,</span> <span class="Constant">""</span><span class="Delimiter">));</span> +<span id="L113" class="LineNr">113 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!is_equal<span class="Delimiter">(</span><span class="Constant">""</span><span class="Delimiter">,</span> <span class="Constant">"foo"</span><span class="Delimiter">));</span> +<span id="L114" class="LineNr">114 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!is_equal<span class="Delimiter">(</span><span class="Constant">"foo"</span><span class="Delimiter">,</span> <span class="Constant">""</span><span class="Delimiter">));</span> +<span id="L115" class="LineNr">115 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!is_equal<span class="Delimiter">(</span><span class="Constant">"f"</span><span class="Delimiter">,</span> <span class="Constant">"bar"</span><span class="Delimiter">));</span> +<span id="L116" class="LineNr">116 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!is_equal<span class="Delimiter">(</span><span class="Constant">"bar"</span><span class="Delimiter">,</span> <span class="Constant">"f"</span><span class="Delimiter">));</span> +<span id="L117" class="LineNr">117 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!is_equal<span class="Delimiter">(</span><span class="Constant">"bar"</span><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">));</span> +<span id="L118" class="LineNr">118 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!is_equal<span class="Delimiter">(</span><span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">"bar"</span><span class="Delimiter">));</span> +<span id="L119" class="LineNr">119 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span><span class="Constant">"bar"</span><span class="Delimiter">,</span> <span class="Constant">"bar"</span><span class="Delimiter">));</span> +<span id="L120" class="LineNr">120 </span><span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> +<span id="L122" class="LineNr">122 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L123" class="LineNr">123 </span><span class="PreProc">#include </span><span class="Constant"><stdlib.h></span> </pre> </body> </html> diff --git a/html/003trace.cc.html b/html/linux/bootstrap/003trace.cc.html index d1ef9d05..e417260d 100644 --- a/html/003trace.cc.html +++ b/html/linux/bootstrap/003trace.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 003trace.cc</title> +<title>Mu - linux/bootstrap/003trace.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.cSpecial { color: #008000; } .PreProc { color: #c000c0; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } +.cSpecial { color: #008000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } --> </style> @@ -57,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/003trace.cc'>https://github.com/akkartik/mu/blob/main/003trace.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/003trace.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/003trace.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: The goal of layers is to make programs more easy to understand and more</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: malleable, easy to rewrite in radical ways without accidentally breaking</span> @@ -127,10 +125,10 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span><span class="Comment">//: programmers form a mental model, rather than as production of a program."</span> <span id="L67" class="LineNr"> 67 </span><span class="Comment">//: -- Peter Naur (<a href="http://akkartik.name/naur.pdf)">http://akkartik.name/naur.pdf)</a></span> <span id="L68" class="LineNr"> 68 </span> -<span id="L69" class="LineNr"> 69 </span><span class="SalientComment">//:: == Core data structures</span> +<span id="L69" class="LineNr"> 69 </span><span class="Comment">//:: == Core data structures</span> <span id="L70" class="LineNr"> 70 </span> <span id="L71" class="LineNr"> 71 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L72" class="LineNr"> 72 </span>trace_stream* <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Constant">NULL</span><span class="Delimiter">;</span> +<span id="L72" class="LineNr"> 72 </span>trace_stream* <a href='003trace.cc.html#L72'>Trace_stream</a> = <span class="Constant">NULL</span><span class="Delimiter">;</span> <span id="L73" class="LineNr"> 73 </span> <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">:(before "End Types")</span> <span id="L75" class="LineNr"> 75 </span><span class="Normal">struct</span> trace_stream <span class="Delimiter">{</span> @@ -146,7 +144,7 @@ if ('onhashchange' in window) { <span id="L85" class="LineNr"> 85 </span> <span class="Comment">// End trace_stream Methods</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">};</span> <span id="L87" class="LineNr"> 87 </span> -<span id="L88" class="LineNr"> 88 </span><span class="SalientComment">//:: == Adding to the trace</span> +<span id="L88" class="LineNr"> 88 </span><span class="Comment">//:: == Adding to the trace</span> <span id="L89" class="LineNr"> 89 </span> <span id="L90" class="LineNr"> 90 </span><span class="Comment">//: Top-level method is trace() which can be used like an ostream. Usage:</span> <span id="L91" class="LineNr"> 91 </span><span class="Comment">//: trace(depth, label) << ... << end();</span> @@ -154,7 +152,7 @@ if ('onhashchange' in window) { <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L94" class="LineNr"> 94 </span><span class="Comment">// No brackets around the expansion so that it prints nothing if Trace_stream</span> <span id="L95" class="LineNr"> 95 </span><span class="Comment">// isn't initialized.</span> -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define trace(</span><span class="Delimiter">...</span><span class="PreProc">) !</span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> ? cerr : </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="Constant">__VA_ARGS__</span><span class="PreProc">)</span> +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define trace(</span><span class="Delimiter">...</span><span class="PreProc">) !Trace_stream ? cerr : Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="Constant">__VA_ARGS__</span><span class="PreProc">)</span> <span id="L97" class="LineNr"> 97 </span> <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">:(before "End trace_stream Fields")</span> <span id="L99" class="LineNr"> 99 </span><span class="Comment">// accumulator for current trace_line</span> @@ -167,11 +165,11 @@ if ('onhashchange' in window) { <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="Comment">//: Some constants.</span> <span id="L108" class="LineNr">108 </span><span class="Delimiter">:(before "struct trace_stream")</span> <span class="Comment">// include constants in all cleaved compilation units</span> -<span id="L109" class="LineNr">109 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span> = <span class="Constant">9999</span><span class="Delimiter">;</span> +<span id="L109" class="LineNr">109 </span><span class="Normal">const</span> <span class="Normal">int</span> <a href='003trace.cc.html#L109'>Max_depth</a> = <span class="Constant">9999</span><span class="Delimiter">;</span> <span id="L110" class="LineNr">110 </span><span class="Delimiter">:(before "End trace_stream Constructor")</span> <span id="L111" class="LineNr">111 </span>curr_stream = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L112" class="LineNr">112 </span><a href='003trace.cc.html#L102'>curr_depth</a> = <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> -<span id="L113" class="LineNr">113 </span><a href='003trace.cc.html#L104'>collect_depth</a> = <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> +<span id="L112" class="LineNr">112 </span><a href='003trace.cc.html#L102'>curr_depth</a> = <a href='003trace.cc.html#L109'>Max_depth</a><span class="Delimiter">;</span> +<span id="L113" class="LineNr">113 </span><a href='003trace.cc.html#L104'>collect_depth</a> = <a href='003trace.cc.html#L109'>Max_depth</a><span class="Delimiter">;</span> <span id="L114" class="LineNr">114 </span> <span id="L115" class="LineNr">115 </span><span class="Delimiter">:(before "struct trace_stream")</span> <span id="L116" class="LineNr">116 </span><span class="Normal">struct</span> trace_line <span class="Delimiter">{</span> @@ -192,9 +190,9 @@ if ('onhashchange' in window) { <span id="L131" class="LineNr">131 </span> <span id="L132" class="LineNr">132 </span>string <a href='003trace.cc.html#L132'>unescape_newline</a><span class="Delimiter">(</span>string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L133" class="LineNr">133 </span> std::stringstream ss<span class="Delimiter">;</span> -<span id="L134" class="LineNr">134 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L134" class="LineNr">134 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L135" class="LineNr">135 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)</span> == <span class="cSpecial">'\n'</span><span class="Delimiter">)</span> -<span id="L136" class="LineNr">136 </span> ss << <span class="Constant">"\\n"</span><span class="Delimiter">;</span> +<span id="L136" class="LineNr">136 </span> ss << <span class="Constant">"</span><span class="cSpecial">\\</span><span class="Constant">n"</span><span class="Delimiter">;</span> <span id="L137" class="LineNr">137 </span> <span class="Normal">else</span> <span id="L138" class="LineNr">138 </span> ss << s<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> @@ -208,7 +206,7 @@ if ('onhashchange' in window) { <span id="L147" class="LineNr">147 </span><span class="Comment">//: Starting a new trace line.</span> <span id="L148" class="LineNr">148 </span><span class="Delimiter">:(before "End trace_stream Methods")</span> <span id="L149" class="LineNr">149 </span>ostream& stream<span class="Delimiter">(</span>string label<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L150" class="LineNr">150 </span> <span class="Identifier">return</span> stream<span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">,</span> label<span class="Delimiter">);</span> +<span id="L150" class="LineNr">150 </span> <span class="Identifier">return</span> stream<span class="Delimiter">(</span><a href='003trace.cc.html#L109'>Max_depth</a><span class="Delimiter">,</span> label<span class="Delimiter">);</span> <span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> <span id="L152" class="LineNr">152 </span> <span id="L153" class="LineNr">153 </span>ostream& stream<span class="Delimiter">(</span><span class="Normal">int</span> <a href='003trace.cc.html#L119'>depth</a><span class="Delimiter">,</span> string label<span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -225,7 +223,7 @@ if ('onhashchange' in window) { <span id="L164" class="LineNr">164 </span><span class="Normal">struct</span> end <span class="Delimiter">{};</span> <span id="L165" class="LineNr">165 </span><span class="Delimiter">:(code)</span> <span id="L166" class="LineNr">166 </span>ostream& <span class="Normal">operator</span><<<span class="Delimiter">(</span>ostream& os<span class="Delimiter">,</span> end <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> +<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">)</span> <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> <span id="L168" class="LineNr">168 </span> <span class="Identifier">return</span> os<span class="Delimiter">;</span> <span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> <span id="L170" class="LineNr">170 </span> @@ -234,7 +232,7 @@ if ('onhashchange' in window) { <span id="L173" class="LineNr">173 </span><span class="Normal">struct</span> <a href='003trace.cc.html#L173'>die</a> <span class="Delimiter">{};</span> <span id="L174" class="LineNr">174 </span><span class="Delimiter">:(code)</span> <span id="L175" class="LineNr">175 </span>ostream& <span class="Normal">operator</span><<<span class="Delimiter">(</span>ostream& <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">,</span> <a href='003trace.cc.html#L173'>die</a> <span class="Comment">/*</span><span class="Comment">unused</span><span class="Comment">*/</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L176" class="LineNr">176 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> +<span id="L176" class="LineNr">176 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">)</span> <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L183'>newline</a><span class="Delimiter">();</span> <span id="L177" class="LineNr">177 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L178" class="LineNr">178 </span><span class="Delimiter">}</span> <span id="L179" class="LineNr">179 </span> @@ -258,10 +256,10 @@ if ('onhashchange' in window) { <span id="L197" class="LineNr">197 </span> <span class="Normal">delete</span> curr_stream<span class="Delimiter">;</span> <span id="L198" class="LineNr">198 </span> curr_stream = <span class="Constant">NULL</span><span class="Delimiter">;</span> <span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L101'>curr_label</a><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> -<span id="L200" class="LineNr">200 </span> <a href='003trace.cc.html#L102'>curr_depth</a> = <span class="SpecialChar"><a href='003trace.cc.html#L109'>Max_depth</a></span><span class="Delimiter">;</span> +<span id="L200" class="LineNr">200 </span> <a href='003trace.cc.html#L102'>curr_depth</a> = <a href='003trace.cc.html#L109'>Max_depth</a><span class="Delimiter">;</span> <span id="L201" class="LineNr">201 </span><span class="Delimiter">}</span> <span id="L202" class="LineNr">202 </span> -<span id="L203" class="LineNr">203 </span><span class="SalientComment">//:: == Initializing the trace in tests</span> +<span id="L203" class="LineNr">203 </span><span class="Comment">//:: == Initializing the trace in tests</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L206" class="LineNr">206 </span><span class="PreProc">#define START_TRACING_UNTIL_END_OF_SCOPE lease_tracer leased_tracer</span><span class="Delimiter">;</span> @@ -275,35 +273,35 @@ if ('onhashchange' in window) { <span id="L214" class="LineNr">214 </span> <a href='003trace.cc.html#L218'>~lease_tracer</a><span class="Delimiter">();</span> <span id="L215" class="LineNr">215 </span><span class="Delimiter">};</span> <span id="L216" class="LineNr">216 </span><span class="Delimiter">:(code)</span> -<span id="L217" class="LineNr">217 </span>lease_tracer::lease_tracer<span class="Delimiter">()</span> <span class="Delimiter">{</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span class="Delimiter">}</span> +<span id="L217" class="LineNr">217 </span>lease_tracer::lease_tracer<span class="Delimiter">()</span> <span class="Delimiter">{</span> <a href='003trace.cc.html#L72'>Trace_stream</a> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span class="Delimiter">}</span> <span id="L218" class="LineNr">218 </span>lease_tracer::<a href='003trace.cc.html#L218'>~lease_tracer</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> <span class="Normal">delete</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">;</span> -<span id="L220" class="LineNr">220 </span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Constant">NULL</span><span class="Delimiter">;</span> +<span id="L219" class="LineNr">219 </span> <span class="Normal">delete</span> <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">;</span> +<span id="L220" class="LineNr">220 </span> <a href='003trace.cc.html#L72'>Trace_stream</a> = <span class="Constant">NULL</span><span class="Delimiter">;</span> <span id="L221" class="LineNr">221 </span><span class="Delimiter">}</span> <span id="L222" class="LineNr">222 </span> -<span id="L223" class="LineNr">223 </span><span class="SalientComment">//:: == Errors and warnings using traces</span> +<span id="L223" class="LineNr">223 </span><span class="Comment">//:: == Errors and warnings using traces</span> <span id="L224" class="LineNr">224 </span> <span id="L225" class="LineNr">225 </span><span class="Delimiter">:(before "End Includes")</span> -<span id="L226" class="LineNr">226 </span><span class="PreProc">#define raise (!</span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> ? (++</span><span class="SpecialChar">Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="SpecialChar">Error_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"error"</span><span class="PreProc">))</span> -<span id="L227" class="LineNr">227 </span><span class="PreProc">#define warn (!</span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> ? (++</span><span class="SpecialChar">Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(</span><span class="SpecialChar">Warn_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"warn"</span><span class="PreProc">))</span> +<span id="L226" class="LineNr">226 </span><span class="PreProc">#define raise (!Trace_stream ? (++Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(Error_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"error"</span><span class="PreProc">))</span> +<span id="L227" class="LineNr">227 </span><span class="PreProc">#define warn (!Trace_stream ? (++Trace_errors</span><span class="Delimiter">,</span><span class="PreProc">cerr) </span><span class="Comment">/*</span><span class="Comment">do print</span><span class="Comment">*/</span><span class="PreProc"> : Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">stream(Warn_depth</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Constant">"warn"</span><span class="PreProc">))</span> <span id="L228" class="LineNr">228 </span> <span id="L229" class="LineNr">229 </span><span class="Comment">//: Print errors and warnings to the screen by default.</span> <span id="L230" class="LineNr">230 </span><span class="Delimiter">:(before "struct trace_stream")</span> <span class="Comment">// include constants in all cleaved compilation units</span> -<span id="L231" class="LineNr">231 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L231'>Error_depth</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L232" class="LineNr">232 </span><span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L232'>Warn_depth</a></span> = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L231" class="LineNr">231 </span><span class="Normal">const</span> <span class="Normal">int</span> <a href='003trace.cc.html#L231'>Error_depth</a> = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L232" class="LineNr">232 </span><span class="Normal">const</span> <span class="Normal">int</span> <a href='003trace.cc.html#L232'>Warn_depth</a> = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L233" class="LineNr">233 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L234" class="LineNr">234 </span><span class="Normal">int</span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print errors or warnings to screen</span> -<span id="L235" class="LineNr">235 </span><span class="Normal">int</span> <span class="SpecialChar">Hide_warnings</span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print warnings to screen</span> +<span id="L234" class="LineNr">234 </span><span class="Normal">int</span> Hide_errors = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print errors or warnings to screen</span> +<span id="L235" class="LineNr">235 </span><span class="Normal">int</span> Hide_warnings = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// if set, don't print warnings to screen</span> <span id="L236" class="LineNr">236 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L237" class="LineNr">237 </span><span class="SpecialChar">Hide_errors</span> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L238" class="LineNr">238 </span><span class="SpecialChar">Hide_warnings</span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L237" class="LineNr">237 </span>Hide_errors = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L238" class="LineNr">238 </span>Hide_warnings = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L239" class="LineNr">239 </span><span class="Comment">//: Never dump warnings in tests</span> <span id="L240" class="LineNr">240 </span><span class="Delimiter">:(before "End Test Setup")</span> -<span id="L241" class="LineNr">241 </span><span class="SpecialChar">Hide_warnings</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L241" class="LineNr">241 </span>Hide_warnings = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L242" class="LineNr">242 </span><span class="Delimiter">:(code)</span> <span id="L243" class="LineNr">243 </span><span class="Normal">bool</span> trace_stream::<a href='003trace.cc.html#L243'>should_incrementally_print_trace</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar">Hide_errors</span> && <a href='003trace.cc.html#L102'>curr_depth</a> == <span class="SpecialChar"><a href='003trace.cc.html#L231'>Error_depth</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L245" class="LineNr">245 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar">Hide_warnings</span> && !<span class="SpecialChar">Hide_errors</span> && <a href='003trace.cc.html#L102'>curr_depth</a> == <span class="SpecialChar"><a href='003trace.cc.html#L232'>Warn_depth</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L244" class="LineNr">244 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Hide_errors && <a href='003trace.cc.html#L102'>curr_depth</a> == <a href='003trace.cc.html#L231'>Error_depth</a><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L245" class="LineNr">245 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Hide_warnings && !Hide_errors && <a href='003trace.cc.html#L102'>curr_depth</a> == <a href='003trace.cc.html#L232'>Warn_depth</a><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L246" class="LineNr">246 </span> <span class="Comment">// End Incremental Trace Print Conditions</span> <span id="L247" class="LineNr">247 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L248" class="LineNr">248 </span><span class="Delimiter">}</span> @@ -311,17 +309,17 @@ if ('onhashchange' in window) { <span id="L250" class="LineNr">250 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L243'>should_incrementally_print_trace</a><span class="Delimiter">();</span> <span id="L251" class="LineNr">251 </span> <span id="L252" class="LineNr">252 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L253" class="LineNr">253 </span><span class="Normal">int</span> <span class="SpecialChar"><a href='003trace.cc.html#L253'>Trace_errors</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// used only when Trace_stream is NULL</span> +<span id="L253" class="LineNr">253 </span><span class="Normal">int</span> <a href='003trace.cc.html#L253'>Trace_errors</a> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// used only when Trace_stream is NULL</span> <span id="L254" class="LineNr">254 </span> <span id="L255" class="LineNr">255 </span><span class="Comment">// Fail tests that displayed (unexpected) errors.</span> <span id="L256" class="LineNr">256 </span><span class="Comment">// Expected errors should always be hidden and silently checked for.</span> <span id="L257" class="LineNr">257 </span><span class="Delimiter">:(before "End Test Teardown")</span> -<span id="L258" class="LineNr">258 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> && !<span class="SpecialChar">Hide_errors</span> && <a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L259" class="LineNr">259 </span> <span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L258" class="LineNr">258 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='002test.cc.html#L21'>Passed</a> && !Hide_errors && <a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <a href='002test.cc.html#L21'>Passed</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L260" class="LineNr">260 </span><span class="Delimiter">}</span> <span id="L261" class="LineNr">261 </span><span class="Delimiter">:(code)</span> <span id="L262" class="LineNr">262 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L263" class="LineNr">263 </span> <span class="Identifier">return</span> <span class="SpecialChar"><a href='003trace.cc.html#L253'>Trace_errors</a></span> > <span class="Constant">0</span> || trace_count<span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">)</span> > <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L263" class="LineNr">263 </span> <span class="Identifier">return</span> <a href='003trace.cc.html#L253'>Trace_errors</a> > <span class="Constant">0</span> || trace_count<span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">)</span> > <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L264" class="LineNr">264 </span><span class="Delimiter">}</span> <span id="L265" class="LineNr">265 </span> <span id="L266" class="LineNr">266 </span><span class="Delimiter">:(before "End Includes")</span> @@ -330,7 +328,7 @@ if ('onhashchange' in window) { <span id="L269" class="LineNr">269 </span><span class="PreProc">#define assert_for_now assert</span> <span id="L270" class="LineNr">270 </span><span class="PreProc">#define raise_for_now raise</span> <span id="L271" class="LineNr">271 </span> -<span id="L272" class="LineNr">272 </span><span class="SalientComment">//:: == Other assertions on traces</span> +<span id="L272" class="LineNr">272 </span><span class="Comment">//:: == Other assertions on traces</span> <span id="L273" class="LineNr">273 </span><span class="Comment">//: Primitives:</span> <span id="L274" class="LineNr">274 </span><span class="Comment">//: - CHECK_TRACE_CONTENTS(lines)</span> <span id="L275" class="LineNr">275 </span><span class="Comment">//: Assert that the trace contains the given lines (separated by newlines)</span> @@ -353,64 +351,64 @@ if ('onhashchange' in window) { <span id="L292" class="LineNr">292 </span><span class="PreProc">#define CHECK_TRACE_DOESNT_CONTAIN(</span><span class="Delimiter">...</span><span class="PreProc">) CHECK(trace_doesnt_contain(</span><span class="Constant">__VA_ARGS__</span><span class="PreProc">))</span> <span id="L293" class="LineNr">293 </span> <span id="L294" class="LineNr">294 </span><span class="PreProc">#define CHECK_TRACE_COUNT(label</span><span class="Delimiter">,</span><span class="PreProc"> count) \</span> -<span id="L295" class="LineNr">295 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && trace_count(label) != (count)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L296" class="LineNr">296 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): trace_count of "</span><span class="PreProc"> << label << </span><span class="Constant">" should be "</span><span class="PreProc"> << count << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L295" class="LineNr">295 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (<a href='002test.cc.html#L21'>Passed</a> && trace_count(label) != (count)) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L296" class="LineNr">296 </span><span class="PreProc"> cerr << </span><span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): trace_count of "</span><span class="PreProc"> << label << </span><span class="Constant">" should be "</span><span class="PreProc"> << count << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L297" class="LineNr">297 </span><span class="PreProc"> cerr << </span><span class="Constant">" got "</span><span class="PreProc"> << trace_count(label) << </span><span class="cSpecial">'\n'</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> multiple eval </span><span class="Comment">*/</span><span class="PreProc"> \</span> <span id="L298" class="LineNr">298 </span><span class="PreProc"> <a href='003trace.cc.html#L435'>DUMP</a>(label)</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L299" class="LineNr">299 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L299" class="LineNr">299 </span><span class="PreProc"> <a href='002test.cc.html#L21'>Passed</a> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L300" class="LineNr">300 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> </span><span class="Comment">/*</span><span class="Comment"> Currently we stop at the very first failure. </span><span class="Comment">*/</span><span class="PreProc"> \</span> <span id="L301" class="LineNr">301 </span><span class="PreProc"> </span><span class="Delimiter">}</span> <span id="L302" class="LineNr">302 </span> <span id="L303" class="LineNr">303 </span><span class="PreProc">#define CHECK_TRACE_CONTAINS_ERRORS() CHECK(trace_contains_errors())</span> <span id="L304" class="LineNr">304 </span><span class="PreProc">#define CHECK_TRACE_DOESNT_CONTAIN_ERRORS() \</span> -<span id="L305" class="LineNr">305 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> && <a href='003trace.cc.html#L262'>trace_contains_errors</a>()) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> -<span id="L306" class="LineNr">306 </span><span class="PreProc"> cerr << </span><span class="Constant">"\nF - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): unexpected errors\n"</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L305" class="LineNr">305 </span><span class="PreProc"> </span><span class="Normal">if</span><span class="PreProc"> (<a href='002test.cc.html#L21'>Passed</a> && <a href='003trace.cc.html#L262'>trace_contains_errors</a>()) </span><span class="Delimiter">{</span><span class="PreProc"> \</span> +<span id="L306" class="LineNr">306 </span><span class="PreProc"> cerr << </span><span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span><span class="PreProc"> << __FUNCTION__ << </span><span class="Constant">"("</span><span class="PreProc"> << </span><span class="Constant">__FILE__</span><span class="PreProc"> << </span><span class="Constant">":"</span><span class="PreProc"> << </span><span class="Constant">__LINE__</span><span class="PreProc"> << </span><span class="Constant">"): unexpected errors</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L307" class="LineNr">307 </span><span class="PreProc"> <a href='003trace.cc.html#L435'>DUMP</a>(</span><span class="Constant">"error"</span><span class="PreProc">)</span><span class="Delimiter">;</span><span class="PreProc"> \</span> -<span id="L308" class="LineNr">308 </span><span class="PreProc"> </span><span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="PreProc"> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> +<span id="L308" class="LineNr">308 </span><span class="PreProc"> <a href='002test.cc.html#L21'>Passed</a> = </span><span class="Constant">false</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L309" class="LineNr">309 </span><span class="PreProc"> </span><span class="Identifier">return</span><span class="Delimiter">;</span><span class="PreProc"> \</span> <span id="L310" class="LineNr">310 </span><span class="PreProc"> </span><span class="Delimiter">}</span> <span id="L311" class="LineNr">311 </span> <span id="L312" class="LineNr">312 </span><span class="Comment">// Allow tests to ignore trace lines generated during setup.</span> -<span id="L313" class="LineNr">313 </span><span class="PreProc">#define CLEAR_TRACE </span><span class="Normal">delete</span><span class="PreProc"> </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="SpecialChar">Trace_stream</span><span class="PreProc"> = </span><span class="Normal">new</span><span class="PreProc"> trace_stream</span> +<span id="L313" class="LineNr">313 </span><span class="PreProc">#define CLEAR_TRACE </span><span class="Normal">delete</span><span class="PreProc"> Trace_stream</span><span class="Delimiter">,</span><span class="PreProc"> Trace_stream = </span><span class="Normal">new</span><span class="PreProc"> trace_stream</span> <span id="L314" class="LineNr">314 </span> <span id="L315" class="LineNr">315 </span><span class="Delimiter">:(code)</span> <span id="L316" class="LineNr">316 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L316'>check_trace_contents</a><span class="Delimiter">(</span>string FUNCTION<span class="Delimiter">,</span> string <span class="Normal">FILE</span><span class="Delimiter">,</span> <span class="Normal">int</span> LINE<span class="Delimiter">,</span> string expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L317" class="LineNr">317 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L318" class="LineNr">318 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L319" class="LineNr">319 </span> vector<string> expected_lines = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">"\n"</span><span class="Delimiter">);</span> +<span id="L317" class="LineNr">317 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Passed<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L318" class="LineNr">318 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Trace_stream<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L319" class="LineNr">319 </span> vector<string> expected_lines = <a href='003trace.cc.html#L407'>split</a><span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">);</span> <span id="L320" class="LineNr">320 </span> <span class="Normal">int</span> curr_expected_line = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L321" class="LineNr">321 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> +<span id="L321" class="LineNr">321 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> <span id="L322" class="LineNr">322 </span> ++curr_expected_line<span class="Delimiter">;</span> -<span id="L323" class="LineNr">323 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L323" class="LineNr">323 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L324" class="LineNr">324 </span> string label<span class="Delimiter">,</span> <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">;</span> <span id="L325" class="LineNr">325 </span> <a href='003trace.cc.html#L386'>split_label_contents</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">),</span> &label<span class="Delimiter">,</span> &contents<span class="Delimiter">);</span> -<span id="L326" class="LineNr">326 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L326" class="LineNr">326 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L327" class="LineNr">327 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label != p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L328" class="LineNr">328 </span> string t = <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">);</span> <span id="L329" class="LineNr">329 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L117'>contents</a> != <a href='003trace.cc.html#L132'>unescape_newline</a><span class="Delimiter">(</span>t<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L330" class="LineNr">330 </span> ++curr_expected_line<span class="Delimiter">;</span> -<span id="L331" class="LineNr">331 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> +<span id="L331" class="LineNr">331 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>curr_expected_line < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">)</span> && expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">).</span>empty<span class="Delimiter">())</span> <span id="L332" class="LineNr">332 </span> ++curr_expected_line<span class="Delimiter">;</span> -<span id="L333" class="LineNr">333 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L333" class="LineNr">333 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr_expected_line == <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L334" class="LineNr">334 </span> <a href='003trace.cc.html#L386'>split_label_contents</a><span class="Delimiter">(</span>expected_lines<span class="Delimiter">.</span>at<span class="Delimiter">(</span>curr_expected_line<span class="Delimiter">),</span> &label<span class="Delimiter">,</span> &contents<span class="Delimiter">);</span> <span id="L335" class="LineNr">335 </span> <span class="Delimiter">}</span> <span id="L336" class="LineNr">336 </span> <span id="L337" class="LineNr">337 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L399'>line_exists_anywhere</a><span class="Delimiter">(</span>label<span class="Delimiter">,</span> <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> cerr << <span class="Constant">"\nF - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): <a href='011run.cc.html#L121'>line</a> ["</span> << label << <span class="Constant">": "</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] out of order in <a href='003trace.cc.html#L96'>trace</a>:\n"</span><span class="Delimiter">;</span> +<span id="L338" class="LineNr">338 </span> cerr << <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): <a href='011run.cc.html#L121'>line</a> ["</span> << label << <span class="Constant">": "</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] out of order in <a href='003trace.cc.html#L96'>trace</a>:</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L339" class="LineNr">339 </span> <a href='003trace.cc.html#L435'>DUMP</a><span class="Delimiter">(</span><span class="Constant">""</span><span class="Delimiter">);</span> <span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> <span id="L341" class="LineNr">341 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L342" class="LineNr">342 </span> cerr << <span class="Constant">"\nF - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): missing ["</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] in <a href='003trace.cc.html#L96'>trace</a>:\n"</span><span class="Delimiter">;</span> +<span id="L342" class="LineNr">342 </span> cerr << <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">F - "</span> << FUNCTION << <span class="Constant">"("</span> << <span class="Normal">FILE</span> << <span class="Constant">":"</span> << LINE << <span class="Constant">"): missing ["</span> << <a href='003trace.cc.html#L117'>contents</a> << <span class="Constant">"] in <a href='003trace.cc.html#L96'>trace</a>:</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L435'>DUMP</a><span class="Delimiter">(</span>label<span class="Delimiter">);</span> <span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> -<span id="L345" class="LineNr">345 </span> <span class="SpecialChar"><a href='002test.cc.html#L21'>Passed</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L345" class="LineNr">345 </span> <a href='002test.cc.html#L21'>Passed</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L346" class="LineNr">346 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L347" class="LineNr">347 </span><span class="Delimiter">}</span> <span id="L348" class="LineNr">348 </span> <span id="L349" class="LineNr">349 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L349'>trace_doesnt_contain</a><span class="Delimiter">(</span>string expected<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L350" class="LineNr">350 </span> vector<string> tmp = <a href='003trace.cc.html#L422'>split_first</a><span class="Delimiter">(</span>expected<span class="Delimiter">,</span> <span class="Constant">": "</span><span class="Delimiter">);</span> -<span id="L351" class="LineNr">351 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>tmp<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L352" class="LineNr">352 </span> <a href='003trace.cc.html#L226'>raise</a> << expected << <span class="Constant">": missing label or <a href='003trace.cc.html#L117'>contents</a> in <a href='003trace.cc.html#L96'>trace</a> line\n"</span> << end<span class="Delimiter">();</span> +<span id="L351" class="LineNr">351 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>tmp<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L352" class="LineNr">352 </span> <a href='003trace.cc.html#L226'>raise</a> << expected << <span class="Constant">": missing label or <a href='003trace.cc.html#L117'>contents</a> in <a href='003trace.cc.html#L96'>trace</a> <a href='011run.cc.html#L121'>line</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L353" class="LineNr">353 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> <span id="L354" class="LineNr">354 </span> <span class="Delimiter">}</span> <span id="L355" class="LineNr">355 </span> <span class="Identifier">return</span> trace_count<span class="Delimiter">(</span>tmp<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">),</span> tmp<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">))</span> == <span class="Constant">0</span><span class="Delimiter">;</span> @@ -421,9 +419,9 @@ if ('onhashchange' in window) { <span id="L360" class="LineNr">360 </span><span class="Delimiter">}</span> <span id="L361" class="LineNr">361 </span> <span id="L362" class="LineNr">362 </span><span class="Normal">int</span> trace_count<span class="Delimiter">(</span>string label<span class="Delimiter">,</span> string <a href='011run.cc.html#L121'>line</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L363" class="LineNr">363 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L363" class="LineNr">363 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Trace_stream<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L364" class="LineNr">364 </span> <span class="Normal">long</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L365" class="LineNr">365 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L365" class="LineNr">365 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L366" class="LineNr">366 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label == p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L367" class="LineNr">367 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a> == <span class="Constant">""</span> || <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">)</span> == <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> <span id="L368" class="LineNr">368 </span> ++result<span class="Delimiter">;</span> @@ -433,11 +431,11 @@ if ('onhashchange' in window) { <span id="L372" class="LineNr">372 </span><span class="Delimiter">}</span> <span id="L373" class="LineNr">373 </span> <span id="L374" class="LineNr">374 </span><span class="Normal">int</span> <a href='003trace.cc.html#L374'>trace_count_prefix</a><span class="Delimiter">(</span>string label<span class="Delimiter">,</span> string prefix<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L375" class="LineNr">375 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L375" class="LineNr">375 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!Trace_stream<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L376" class="LineNr">376 </span> <span class="Normal">long</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L377" class="LineNr">377 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L377" class="LineNr">377 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L378" class="LineNr">378 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label == p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L379" class="LineNr">379 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span><a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">),</span> <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>prefix<span class="Delimiter">)))</span> +<span id="L379" class="LineNr">379 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L104'>starts_with</a><span class="Delimiter">(</span><a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">),</span> <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>prefix<span class="Delimiter">)))</span> <span id="L380" class="LineNr">380 </span> ++result<span class="Delimiter">;</span> <span id="L381" class="LineNr">381 </span> <span class="Delimiter">}</span> <span id="L382" class="LineNr">382 </span> <span class="Delimiter">}</span> @@ -458,7 +456,7 @@ if ('onhashchange' in window) { <span id="L397" class="LineNr">397 </span><span class="Delimiter">}</span> <span id="L398" class="LineNr">398 </span> <span id="L399" class="LineNr">399 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L399'>line_exists_anywhere</a><span class="Delimiter">(</span><span class="Normal">const</span> string& label<span class="Delimiter">,</span> <span class="Normal">const</span> string& <a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L400" class="LineNr">400 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L400" class="LineNr">400 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>vector<trace_line>::iterator p = <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='003trace.cc.html#L72'>Trace_stream</a><span class="Delimiter">-></span><a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L401" class="LineNr">401 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>label != p<span class="Delimiter">-></span>label<span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L402" class="LineNr">402 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L117'>contents</a> == <a href='003trace.cc.html#L496'>trim</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span><a href='003trace.cc.html#L117'>contents</a><span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L403" class="LineNr">403 </span> <span class="Delimiter">}</span> @@ -489,11 +487,11 @@ if ('onhashchange' in window) { <span id="L428" class="LineNr">428 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L429" class="LineNr">429 </span><span class="Delimiter">}</span> <span id="L430" class="LineNr">430 </span> -<span id="L431" class="LineNr">431 </span><span class="SalientComment">//:: == Helpers for debugging using traces</span> +<span id="L431" class="LineNr">431 </span><span class="Comment">//:: == Helpers for debugging using traces</span> <span id="L432" class="LineNr">432 </span> <span id="L433" class="LineNr">433 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L434" class="LineNr">434 </span><span class="Comment">// To debug why a test is failing, dump its trace using '?'.</span> -<span id="L435" class="LineNr">435 </span><span class="PreProc">#define DUMP(label) </span><span class="Normal">if</span><span class="PreProc"> (</span><span class="SpecialChar">Trace_stream</span><span class="PreProc">) cerr << </span><span class="SpecialChar">Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">readable_contents(label)</span><span class="Delimiter">;</span> +<span id="L435" class="LineNr">435 </span><span class="PreProc">#define DUMP(label) </span><span class="Normal">if</span><span class="PreProc"> (Trace_stream) cerr << Trace_stream</span><span class="Delimiter">-></span><span class="PreProc">readable_contents(label)</span><span class="Delimiter">;</span> <span id="L436" class="LineNr">436 </span> <span id="L437" class="LineNr">437 </span><span class="Comment">// To add temporary prints to the trace, use 'dbg'.</span> <span id="L438" class="LineNr">438 </span><span class="Comment">// `git log` should never show any calls to 'dbg'.</span> @@ -504,27 +502,27 @@ if ('onhashchange' in window) { <span id="L443" class="LineNr">443 </span><span class="Comment">//: program crashes.</span> <span id="L444" class="LineNr">444 </span> <span id="L445" class="LineNr">445 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L446" class="LineNr">446 </span>ofstream <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">;</span> +<span id="L446" class="LineNr">446 </span>ofstream <a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">;</span> <span id="L447" class="LineNr">447 </span><span class="Delimiter">:(before "End Commandline Options(*arg)")</span> <span id="L448" class="LineNr">448 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--trace"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L449" class="LineNr">449 </span> cerr << <span class="Constant">"saving <a href='003trace.cc.html#L96'>trace</a> to 'last_run'\n"</span><span class="Delimiter">;</span> -<span id="L450" class="LineNr">450 </span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"last_run"</span><span class="Delimiter">);</span> +<span id="L449" class="LineNr">449 </span> cerr << <span class="Constant">"saving <a href='003trace.cc.html#L96'>trace</a> to 'last_run'</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L450" class="LineNr">450 </span> <a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"last_run"</span><span class="Delimiter">);</span> <span id="L451" class="LineNr">451 </span> <span class="Comment">// Add a dummy line up top; otherwise the `browse_trace` tool currently has</span> <span id="L452" class="LineNr">452 </span> <span class="Comment">// no way to expand any lines above an error.</span> -<span id="L453" class="LineNr">453 </span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span> << <span class="Constant">" 0 dummy: start\n"</span><span class="Delimiter">;</span> +<span id="L453" class="LineNr">453 </span> <a href='003trace.cc.html#L446'>Trace_file</a> << <span class="Constant">" 0 dummy: start</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L454" class="LineNr">454 </span> <span class="Comment">// End --trace Settings</span> <span id="L455" class="LineNr">455 </span><span class="Delimiter">}</span> <span id="L456" class="LineNr">456 </span><span class="Delimiter">:(before "End <a href='003trace.cc.html#L96'>trace</a> Commit")</span> -<span id="L457" class="LineNr">457 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L458" class="LineNr">458 </span> <a href='003trace.cc.html#L143'>dump_trace_line</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">,</span> t<span class="Delimiter">);</span> -<span id="L459" class="LineNr">459 </span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> +<span id="L457" class="LineNr">457 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L458" class="LineNr">458 </span> <a href='003trace.cc.html#L143'>dump_trace_line</a><span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">,</span> t<span class="Delimiter">);</span> +<span id="L459" class="LineNr">459 </span> <a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> <span id="L460" class="LineNr">460 </span> <a href='003trace.cc.html#L76'>past_lines</a><span class="Delimiter">.</span>pop_back<span class="Delimiter">();</span> <span class="Comment">// economize on memory</span> <span id="L461" class="LineNr">461 </span><span class="Delimiter">}</span> <span id="L462" class="LineNr">462 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L463" class="LineNr">463 </span>atexit<span class="Delimiter">(</span><a href='003trace.cc.html#L465'>cleanup_main</a><span class="Delimiter">);</span> <span id="L464" class="LineNr">464 </span><span class="Delimiter">:(code)</span> <span id="L465" class="LineNr">465 </span><span class="Normal">void</span> <a href='003trace.cc.html#L465'>cleanup_main</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L466" class="LineNr">466 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> +<span id="L466" class="LineNr">466 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>close<span class="Delimiter">();</span> <span id="L467" class="LineNr">467 </span> <span class="Comment">// End cleanup_main</span> <span id="L468" class="LineNr">468 </span><span class="Delimiter">}</span> <span id="L469" class="LineNr">469 </span> @@ -543,13 +541,13 @@ if ('onhashchange' in window) { <span id="L482" class="LineNr">482 </span><span class="Comment">//: Particularly useful when juggling multiple trace streams, like when</span> <span id="L483" class="LineNr">483 </span><span class="Comment">//: debugging sandboxes.</span> <span id="L484" class="LineNr">484 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L485" class="LineNr">485 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='003trace.cc.html#L485'>Dump_trace</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L485" class="LineNr">485 </span><span class="Normal">bool</span> <a href='003trace.cc.html#L485'>Dump_trace</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L486" class="LineNr">486 </span><span class="Delimiter">:(before "End Commandline Options(*arg)")</span> <span id="L487" class="LineNr">487 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--dump"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L488" class="LineNr">488 </span> <span class="SpecialChar"><a href='003trace.cc.html#L485'>Dump_trace</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L488" class="LineNr">488 </span> <a href='003trace.cc.html#L485'>Dump_trace</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L489" class="LineNr">489 </span><span class="Delimiter">}</span> <span id="L490" class="LineNr">490 </span><span class="Delimiter">:(before "End Incremental Trace Print Conditions")</span> -<span id="L491" class="LineNr">491 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L485'>Dump_trace</a></span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L491" class="LineNr">491 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L485'>Dump_trace</a><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L492" class="LineNr">492 </span> <span id="L493" class="LineNr">493 </span><span class="Comment">//: Miscellaneous helpers.</span> <span id="L494" class="LineNr">494 </span> diff --git a/html/003trace.test.cc.html b/html/linux/bootstrap/003trace.test.cc.html index 45635f13..412f55e3 100644 --- a/html/003trace.test.cc.html +++ b/html/linux/bootstrap/003trace.test.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 003trace.test.cc</title> +<title>Mu - linux/bootstrap/003trace.test.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,11 +14,12 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Delimiter { color: #c000c0; } --> </style> @@ -52,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/003trace.test.cc'>https://github.com/akkartik/mu/blob/main/003trace.test.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/003trace.test.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/003trace.test.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L1'>test_trace_check_compares</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer"</span><span class="Delimiter">)</span> << <span class="Constant">"foo"</span> << end<span class="Delimiter">();</span> @@ -85,7 +86,7 @@ if ('onhashchange' in window) { <span id="L29" class="LineNr"> 29 </span><span class="Delimiter">}</span> <span id="L30" class="LineNr"> 30 </span> <span id="L31" class="LineNr"> 31 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L31'>test_trace_ignores_trailing_whitespace</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo\n"</span> << end<span class="Delimiter">();</span> +<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L33" class="LineNr"> 33 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo"</span><span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span> @@ -98,9 +99,9 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo"</span> << end<span class="Delimiter">();</span> <span id="L43" class="LineNr"> 43 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 2"</span><span class="Delimiter">)</span> << <span class="Constant">"bar"</span> << end<span class="Delimiter">();</span> <span id="L44" class="LineNr"> 44 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"qux"</span> << end<span class="Delimiter">();</span> -<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo\n"</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Constant">"test layer 2: bar\n"</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"test layer 1: qux\n"</span><span class="Delimiter">);</span> +<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: foo</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Constant">"test layer 2: bar</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"test layer 1: qux</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">);</span> <span id="L48" class="LineNr"> 48 </span><span class="Delimiter">}</span> <span id="L49" class="LineNr"> 49 </span> <span id="L50" class="LineNr"> 50 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L50'>test_trace_supports_count</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -116,13 +117,13 @@ if ('onhashchange' in window) { <span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> <span id="L61" class="LineNr"> 61 </span> <span id="L62" class="LineNr"> 62 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L62'>test_trace_count_ignores_trailing_whitespace</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo\n"</span> << end<span class="Delimiter">();</span> +<span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"foo</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L64" class="LineNr"> 64 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>trace_count<span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">,</span> <span class="Constant">"foo"</span><span class="Delimiter">),</span> <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> <span id="L66" class="LineNr"> 66 </span> <span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='003trace.test.cc.html#L67'>test_trace_unescapes_newlines</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L68" class="LineNr"> 68 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"f\no\no\n"</span> << end<span class="Delimiter">();</span> -<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: f\\no\\no"</span><span class="Delimiter">);</span> +<span id="L68" class="LineNr"> 68 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">"test layer 1"</span><span class="Delimiter">)</span> << <span class="Constant">"f</span><span class="cSpecial">\n</span><span class="Constant">o</span><span class="cSpecial">\n</span><span class="Constant">o</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span><span class="Constant">"test layer 1: f</span><span class="cSpecial">\\</span><span class="Constant">no</span><span class="cSpecial">\\</span><span class="Constant">no"</span><span class="Delimiter">);</span> <span id="L70" class="LineNr"> 70 </span><span class="Delimiter">}</span> <span id="L71" class="LineNr"> 71 </span> <span id="L72" class="LineNr"> 72 </span><span class="Comment">// pending: DUMP tests</span> diff --git a/html/010vm.cc.html b/html/linux/bootstrap/010vm.cc.html index fccf145e..f60b6abf 100644 --- a/html/010vm.cc.html +++ b/html/linux/bootstrap/010vm.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 010vm.cc</title> +<title>Mu - linux/bootstrap/010vm.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.cSpecial { color: #008000; } -.SalientComment { color: #0000af; } +.PreProc { color: #c000c0; } --> </style> @@ -57,12 +55,12 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/010vm.cc'>https://github.com/akkartik/mu/blob/main/010vm.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/010vm.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/010vm.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Core data structures for simulating the SubX VM (subset of an x86 processor),</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: either in tests or debug aids.</span> <span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span><span class="SalientComment">//:: registers</span> +<span id="L4" class="LineNr"> 4 </span><span class="Comment">//:: registers</span> <span id="L5" class="LineNr"> 5 </span><span class="Comment">//: assume segment registers are hard-coded to 0</span> <span id="L6" class="LineNr"> 6 </span><span class="Comment">//: no MMX, etc.</span> <span id="L7" class="LineNr"> 7 </span> @@ -83,65 +81,65 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr"> 22 </span> <span class="Normal">uint32_t</span> u<span class="Delimiter">;</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">};</span> <span id="L24" class="LineNr"> 24 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L25" class="LineNr"> 25 </span><a href='010vm.cc.html#L20'>reg</a> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[NUM_INT_REGISTERS] = <span class="Delimiter">{</span> <span class="Delimiter">{</span><span class="Constant">0</span><span class="Delimiter">}</span> <span class="Delimiter">};</span> +<span id="L25" class="LineNr"> 25 </span><a href='010vm.cc.html#L20'>reg</a> Reg[NUM_INT_REGISTERS] = <span class="Delimiter">{</span> <span class="Delimiter">{</span><span class="Constant">0</span><span class="Delimiter">}</span> <span class="Delimiter">};</span> <span id="L26" class="LineNr"> 26 </span><span class="Normal">uint32_t</span> <a href='010vm.cc.html#L26'>EIP</a> = <span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// preserve null pointer</span> <span id="L27" class="LineNr"> 27 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L28" class="LineNr"> 28 </span>bzero<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span><span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span><span class="Delimiter">));</span> +<span id="L28" class="LineNr"> 28 </span>bzero<span class="Delimiter">(</span><a href='010vm.cc.html#L25'>Reg</a><span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span><a href='010vm.cc.html#L25'>Reg</a><span class="Delimiter">));</span> <span id="L29" class="LineNr"> 29 </span><a href='010vm.cc.html#L26'>EIP</a> = <span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// preserve null pointer</span> <span id="L30" class="LineNr"> 30 </span> <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">:(before "End Types")</span> <span id="L32" class="LineNr"> 32 </span><span class="Normal">const</span> <span class="Normal">int</span> <a href='010vm.cc.html#L32'>NUM_XMM_REGISTERS</a> = <span class="Constant">8</span><span class="Delimiter">;</span> -<span id="L33" class="LineNr"> 33 </span><span class="Normal">float</span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[NUM_XMM_REGISTERS] = <span class="Delimiter">{</span> <span class="Constant">0.0</span> <span class="Delimiter">};</span> -<span id="L34" class="LineNr"> 34 </span><span class="Normal">const</span> string <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[NUM_XMM_REGISTERS] = <span class="Delimiter">{</span> <span class="Constant">"XMM0"</span><span class="Delimiter">,</span> <span class="Constant">"XMM1"</span><span class="Delimiter">,</span> <span class="Constant">"XMM2"</span><span class="Delimiter">,</span> <span class="Constant">"XMM3"</span><span class="Delimiter">,</span> <span class="Constant">"XMM4"</span><span class="Delimiter">,</span> <span class="Constant">"XMM5"</span><span class="Delimiter">,</span> <span class="Constant">"XMM6"</span><span class="Delimiter">,</span> <span class="Constant">"XMM7"</span> <span class="Delimiter">};</span> +<span id="L33" class="LineNr"> 33 </span><span class="Normal">float</span> Xmm[NUM_XMM_REGISTERS] = <span class="Delimiter">{</span> <span class="Constant">0.0</span> <span class="Delimiter">};</span> +<span id="L34" class="LineNr"> 34 </span><span class="Normal">const</span> string Xname[NUM_XMM_REGISTERS] = <span class="Delimiter">{</span> <span class="Constant">"XMM0"</span><span class="Delimiter">,</span> <span class="Constant">"XMM1"</span><span class="Delimiter">,</span> <span class="Constant">"XMM2"</span><span class="Delimiter">,</span> <span class="Constant">"XMM3"</span><span class="Delimiter">,</span> <span class="Constant">"XMM4"</span><span class="Delimiter">,</span> <span class="Constant">"XMM5"</span><span class="Delimiter">,</span> <span class="Constant">"XMM6"</span><span class="Delimiter">,</span> <span class="Constant">"XMM7"</span> <span class="Delimiter">};</span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L36" class="LineNr"> 36 </span>bzero<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span><span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span><span class="Delimiter">));</span> +<span id="L36" class="LineNr"> 36 </span>bzero<span class="Delimiter">(</span><a href='010vm.cc.html#L33'>Xmm</a><span class="Delimiter">,</span> <span class="Normal">sizeof</span><span class="Delimiter">(</span><a href='010vm.cc.html#L33'>Xmm</a><span class="Delimiter">));</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> -<span id="L39" class="LineNr"> 39 </span>cerr << <span class="Constant">" registers\n"</span><span class="Delimiter">;</span> +<span id="L39" class="LineNr"> 39 </span>cerr << <span class="Constant">" registers</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> -<span id="L41" class="LineNr"> 41 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"registers"</span><span class="Delimiter">,</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"SubX supports 16 registers: eight 32-bit integer registers and eight single-precision\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"floating-point registers. From 0 to 7, they are:\n"</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Constant">" integer: <a href='010vm.cc.html#L10'>EAX</a> <a href='010vm.cc.html#L11'>ECX</a> <a href='010vm.cc.html#L12'>EDX</a> <a href='010vm.cc.html#L13'>EBX</a> <a href='010vm.cc.html#L14'>ESP</a> <a href='010vm.cc.html#L15'>EBP</a> <a href='010vm.cc.html#L16'>ESI</a> EDI\n"</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" floating point: XMM0 XMM1 XMM2 XMM3 XMM4 XMM5 XMM6 XMM7\n"</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Constant">"ESP contains the top of the stack.\n"</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"\n"</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"-- 8-bit registers\n"</span> -<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"Some instructions operate on eight *overlapping* 8-bit registers.\n"</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"From 0 to 7, they are:\n"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">" AL CL DL BL AH CH DH BH\n"</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"The 8-bit registers overlap with the 32-bit ones. AL is the lowest signicant byte\n"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"of <a href='010vm.cc.html#L10'>EAX</a>, AH is the second lowest significant byte, and so on.\n"</span> -<span id="L54" class="LineNr"> 54 </span> <span class="Constant">"\n"</span> -<span id="L55" class="LineNr"> 55 </span> <span class="Constant">"For example, if <a href='010vm.cc.html#L13'>EBX</a> contains 0x11223344, then BL contains 0x44, and BH contains 0x33.\n"</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"\n"</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"There is no way to access bytes within <a href='010vm.cc.html#L14'>ESP</a>, <a href='010vm.cc.html#L15'>EBP</a>, <a href='010vm.cc.html#L16'>ESI</a> or EDI.\n"</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"\n"</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"For complete details consult the IA-32 software developer's manual, volume 2,\n"</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Constant">"table 2-2, \"</span><span class="Constant">32</span>-bit addressing forms with the ModR/<span class="SpecialChar">M</span> byte\<span class="Constant">".\n"</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"It is included in this repository as 'modrm.pdf'.\n"</span> -<span id="L62" class="LineNr"> 62 </span> <span class="Constant">"The register encodings are described in the top row of the table, but you'll need\n"</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Constant">"to spend some time with it.\n"</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"\n"</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"-- flag registers\n"</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"Various instructions (particularly 'compare') modify one or more of four 1-bit\n"</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"'flag' registers, as a side-effect:\n"</span> -<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"- the sign flag (SF): usually set if an arithmetic result is negative, or\n"</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Constant">" <a href='000organization.cc.html#L150'>reset</a> if not.\n"</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"- the zero flag (<a href='010vm.cc.html#L89'>ZF</a>): usually set if a result is zero, or <a href='000organization.cc.html#L150'>reset</a> if not.\n"</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Constant">"- the carry flag (<a href='010vm.cc.html#L90'>CF</a>): usually set if an arithmetic result overflows by just one bit.\n"</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" Useful for operating on unsigned numbers.\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"- the overflow flag (<a href='010vm.cc.html#L91'>OF</a>): usually set if an arithmetic result overflows by more\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" than one bit. Useful for operating on signed numbers.\n"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"The flag bits are read by conditional jumps.\n"</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"\n"</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"For complete details on how different instructions update the flags, consult the IA-32\n"</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"manual (volume 2). There's various versions of it online, such as <a href="https://c9x.me/x86">https://c9x.me/x86</a>,\n"</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"though of course you'll need to be careful to ignore instructions and flag registers\n"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"that SubX doesn't support.\n"</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Constant">"\n"</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"It isn't simple, but if this is the processor you have running on your computer.\n"</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"Might as well get good at it.\n"</span> +<span id="L41" class="LineNr"> 41 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"registers"</span><span class="Delimiter">,</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"SubX supports 16 registers: eight 32-bit integer registers and eight single-precision</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"floating-point registers. From 0 to 7, they are:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Constant">" integer: <a href='010vm.cc.html#L10'>EAX</a> <a href='010vm.cc.html#L11'>ECX</a> <a href='010vm.cc.html#L12'>EDX</a> <a href='010vm.cc.html#L13'>EBX</a> <a href='010vm.cc.html#L14'>ESP</a> <a href='010vm.cc.html#L15'>EBP</a> <a href='010vm.cc.html#L16'>ESI</a> <a href='010vm.cc.html#L17'>EDI</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" floating point: XMM0 XMM1 XMM2 XMM3 XMM4 XMM5 XMM6 XMM7</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Constant">"ESP contains the top of the stack.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"-- 8-bit registers</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"Some instructions operate on eight *overlapping* 8-bit registers.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"From 0 to 7, they are:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">" AL CL DL BL AH CH DH BH</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"The 8-bit registers overlap with the 32-bit ones. AL is the lowest signicant byte</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"of <a href='010vm.cc.html#L10'>EAX</a>, AH is the second lowest significant byte, and so on.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L54" class="LineNr"> 54 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L55" class="LineNr"> 55 </span> <span class="Constant">"For example, if <a href='010vm.cc.html#L13'>EBX</a> contains 0x11223344, then BL contains 0x44, and BH contains 0x33.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"There is no way to access bytes within <a href='010vm.cc.html#L14'>ESP</a>, <a href='010vm.cc.html#L15'>EBP</a>, <a href='010vm.cc.html#L16'>ESI</a> or EDI.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"For complete details consult the IA-32 software developer's manual, volume 2,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Constant">"table 2-2, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing forms with the ModR/M byte</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"It is included in this repository as 'modrm.pdf'.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L62" class="LineNr"> 62 </span> <span class="Constant">"The register encodings are described in the top row of the table, but you'll need</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Constant">"to spend some time with it.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"-- flag registers</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"Various instructions (particularly 'compare') modify one or more of four 1-bit</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"'flag' registers, as a side-effect:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"- the sign flag (SF): usually set if an arithmetic result is negative, or</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Constant">" <a href='000organization.cc.html#L150'>reset</a> if not.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"- the zero flag (<a href='010vm.cc.html#L89'>ZF</a>): usually set if a result is zero, or <a href='000organization.cc.html#L150'>reset</a> if not.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Constant">"- the carry flag (<a href='010vm.cc.html#L90'>CF</a>): usually set if an arithmetic result overflows by just one bit.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" Useful for operating on unsigned numbers.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"- the overflow flag (<a href='010vm.cc.html#L91'>OF</a>): usually set if an arithmetic result overflows by more</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" than one bit. Useful for operating on signed numbers.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"The flag bits are read by conditional jumps.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"For complete details on how different instructions update the flags, consult the IA-32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"manual (volume 2). There's various versions of it online, such as <a href="https://c9x.me/x86,">https://c9x.me/x86,</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"though of course you'll need to be careful to ignore instructions and flag registers</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"that SubX doesn't support.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"It isn't simple, but if this is the processor you have running on your computer,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"might as well get good at it.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L84" class="LineNr"> 84 </span><span class="Delimiter">);</span> <span id="L85" class="LineNr"> 85 </span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(before "End Globals")</span> @@ -153,7 +151,7 @@ if ('onhashchange' in window) { <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">:(before "End Reset")</span> <span id="L93" class="LineNr"> 93 </span>SF = <a href='010vm.cc.html#L89'>ZF</a> = <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L94" class="LineNr"> 94 </span> -<span id="L95" class="LineNr"> 95 </span><span class="SalientComment">//:: simulated RAM</span> +<span id="L95" class="LineNr"> 95 </span><span class="Comment">//:: simulated RAM</span> <span id="L96" class="LineNr"> 96 </span> <span id="L97" class="LineNr"> 97 </span><span class="Delimiter">:(before "End Types")</span> <span id="L98" class="LineNr"> 98 </span><span class="Normal">const</span> <span class="Normal">uint32_t</span> <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a> = <span class="Constant">0x1000000</span><span class="Delimiter">;</span> <span class="Comment">// 16MB</span> @@ -204,8 +202,8 @@ if ('onhashchange' in window) { <span id="L143" class="LineNr">143 </span><span class="Delimiter">:(code)</span> <span id="L144" class="LineNr">144 </span><span class="Normal">void</span> <a href='010vm.cc.html#L144'>sanity_check</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> start<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> end<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L145" class="LineNr">145 </span> <span class="Normal">bool</span> dup_found = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L146" class="LineNr">146 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L147" class="LineNr">147 </span> <span class="Normal">const</span> vma& curr = <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L146" class="LineNr">146 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> <span class="Normal">const</span> vma& curr = <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L148" class="LineNr">148 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start == start<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L149" class="LineNr">149 </span> assert<span class="Delimiter">(</span>!dup_found<span class="Delimiter">);</span> <span id="L150" class="LineNr">150 </span> dup_found = <span class="Constant">true</span><span class="Delimiter">;</span> @@ -221,14 +219,14 @@ if ('onhashchange' in window) { <span id="L160" class="LineNr">160 </span> <span id="L161" class="LineNr">161 </span><span class="Delimiter">:(before "End Globals")</span> <span id="L162" class="LineNr">162 </span><span class="Comment">// RAM is made of VMAs.</span> -<span id="L163" class="LineNr">163 </span>vector<vma> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">;</span> +<span id="L163" class="LineNr">163 </span>vector<vma> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">;</span> <span id="L164" class="LineNr">164 </span><span class="Delimiter">:(code)</span> <span id="L165" class="LineNr">165 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L166" class="LineNr">166 </span><span class="Normal">uint32_t</span> <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// when the program executes past this address in tests we'll stop the test</span> +<span id="L166" class="LineNr">166 </span><span class="Normal">uint32_t</span> <a href='010vm.cc.html#L166'>End_of_program</a> = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// when the program executes past this address in tests we'll stop the test</span> <span id="L167" class="LineNr">167 </span><span class="Comment">// The stack grows downward. Can't increase its size for now.</span> <span id="L168" class="LineNr">168 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L169" class="LineNr">169 </span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> -<span id="L170" class="LineNr">170 </span><span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L169" class="LineNr">169 </span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> +<span id="L170" class="LineNr">170 </span><a href='010vm.cc.html#L166'>End_of_program</a> = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L171" class="LineNr">171 </span><span class="Delimiter">:(code)</span> <span id="L172" class="LineNr">172 </span><span class="Comment">// These helpers depend on Mem being laid out contiguously (so you can't use a</span> <span id="L173" class="LineNr">173 </span><span class="Comment">// map, etc.) and on the host also being little-endian.</span> @@ -252,15 +250,15 @@ if ('onhashchange' in window) { <span id="L191" class="LineNr">191 </span> <span id="L192" class="LineNr">192 </span><span class="Normal">inline</span> <span class="Normal">uint8_t</span>* <a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L193" class="LineNr">193 </span> <span class="Normal">uint8_t</span>* result = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L194" class="LineNr">194 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L195" class="LineNr">195 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L194" class="LineNr">194 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L195" class="LineNr">195 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L196" class="LineNr">196 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> -<span id="L197" class="LineNr">197 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> -<span id="L198" class="LineNr">198 </span> result = &<span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">);</span> +<span id="L197" class="LineNr">197 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two <a href='011run.cc.html#L106'>segments</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L198" class="LineNr">198 </span> result = &Mem<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span id="L199" class="LineNr">199 </span> <span class="Delimiter">}</span> <span id="L200" class="LineNr">200 </span> <span class="Delimiter">}</span> <span id="L201" class="LineNr">201 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L202" class="LineNr">202 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> +<span id="L202" class="LineNr">202 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> <span id="L203" class="LineNr">203 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Tried to access uninitialized memory at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L204" class="LineNr">204 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L205" class="LineNr">205 </span> <span class="Delimiter">}</span> @@ -271,15 +269,15 @@ if ('onhashchange' in window) { <span id="L210" class="LineNr">210 </span><span class="Delimiter">}</span> <span id="L211" class="LineNr">211 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span>* <a href='010vm.cc.html#L211'>mem_addr_u32</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L212" class="LineNr">212 </span> <span class="Normal">uint32_t</span>* result = <span class="Constant">NULL</span><span class="Delimiter">;</span> -<span id="L213" class="LineNr">213 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L214" class="LineNr">214 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L114'>match32</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L213" class="LineNr">213 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L114'>match32</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L215" class="LineNr">215 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> -<span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> -<span id="L217" class="LineNr">217 </span> result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint32_t</span>*><span class="Delimiter">(</span>&<span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">));</span> +<span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two <a href='011run.cc.html#L106'>segments</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L217" class="LineNr">217 </span> result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint32_t</span>*><span class="Delimiter">(</span>&Mem<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">(</span>addr<span class="Delimiter">));</span> <span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> <span id="L219" class="LineNr">219 </span> <span class="Delimiter">}</span> <span id="L220" class="LineNr">220 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L221" class="LineNr">221 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> +<span id="L221" class="LineNr">221 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span><a href='011run.cc.html#L198'>flush</a><span class="Delimiter">();</span> <span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Tried to access uninitialized memory at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L223" class="LineNr">223 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> @@ -321,33 +319,33 @@ if ('onhashchange' in window) { <span id="L260" class="LineNr">260 </span> <span id="L261" class="LineNr">261 </span><span class="Normal">inline</span> <span class="Normal">bool</span> <a href='010vm.cc.html#L261'>already_allocated</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L262" class="LineNr">262 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L263" class="LineNr">263 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L264" class="LineNr">264 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L264" class="LineNr">264 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='010vm.cc.html#L111'>match</a><span class="Delimiter">(</span>addr<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L265" class="LineNr">265 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> -<span id="L266" class="LineNr">266 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two segments\n"</span> << end<span class="Delimiter">();</span> +<span id="L266" class="LineNr">266 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" is in two <a href='011run.cc.html#L106'>segments</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L267" class="LineNr">267 </span> result = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> <span id="L269" class="LineNr">269 </span> <span class="Delimiter">}</span> <span id="L270" class="LineNr">270 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L271" class="LineNr">271 </span><span class="Delimiter">}</span> <span id="L272" class="LineNr">272 </span> -<span id="L273" class="LineNr">273 </span><span class="SalientComment">//:: core interpreter loop</span> +<span id="L273" class="LineNr">273 </span><span class="Comment">//:: core interpreter loop</span> <span id="L274" class="LineNr">274 </span> <span id="L275" class="LineNr">275 </span><span class="Delimiter">:(code)</span> <span id="L276" class="LineNr">276 </span><span class="Comment">// skeleton of how x86 instructions are decoded</span> <span id="L277" class="LineNr">277 </span><span class="Normal">void</span> <a href='010vm.cc.html#L277'>run_one_instruction</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L278" class="LineNr">278 </span> <span class="Normal">uint8_t</span> op=<span class="Constant">0</span><span class="Delimiter">,</span> op2=<span class="Constant">0</span><span class="Delimiter">,</span> op3=<span class="Constant">0</span><span class="Delimiter">;</span> <span id="L279" class="LineNr">279 </span> <span class="Comment">// Run One Instruction</span> -<span id="L280" class="LineNr">280 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L280" class="LineNr">280 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="Delimiter">{</span> <span id="L281" class="LineNr">281 </span> <a href='010vm.cc.html#L342'>dump_registers</a><span class="Delimiter">();</span> <span id="L282" class="LineNr">282 </span> <span class="Comment">// End Dump Info for Instruction</span> <span id="L283" class="LineNr">283 </span> <span class="Delimiter">}</span> <span id="L284" class="LineNr">284 </span> <span class="Normal">uint32_t</span> inst_start_address = <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">;</span> <span id="L285" class="LineNr">285 </span> op = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L286" class="LineNr">286 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << inst_start_address << <span class="Constant">" opcode: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L286" class="LineNr">286 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << inst_start_address << <span class="Constant">" opcode: "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L287" class="LineNr">287 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L288" class="LineNr">288 </span> <span class="Normal">case</span> <span class="Constant">0xf4</span>: <span class="Comment">// hlt</span> -<span id="L289" class="LineNr">289 </span> <a href='010vm.cc.html#L26'>EIP</a> = <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span><span class="Delimiter">;</span> +<span id="L289" class="LineNr">289 </span> <a href='010vm.cc.html#L26'>EIP</a> = <a href='010vm.cc.html#L166'>End_of_program</a><span class="Delimiter">;</span> <span id="L290" class="LineNr">290 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L291" class="LineNr">291 </span> <span class="Comment">// End Single-Byte Opcodes</span> <span id="L292" class="LineNr">292 </span> <span class="Normal">case</span> <span class="Constant">0x0f</span>: @@ -405,45 +403,45 @@ if ('onhashchange' in window) { <span id="L344" class="LineNr">344 </span> out << <span class="Constant">"regs: "</span><span class="Delimiter">;</span> <span id="L345" class="LineNr">345 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='010vm.cc.html#L18'>NUM_INT_REGISTERS</a><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L346" class="LineNr">346 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">" "</span><span class="Delimiter">;</span> -<span id="L347" class="LineNr">347 </span> out << i << <span class="Constant">": "</span> << std::hex << std::setw<span class="Delimiter">(</span><span class="Constant">8</span><span class="Delimiter">)</span> << std::setfill<span class="Delimiter">(</span><span class="Constant">'_'</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[i]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L347" class="LineNr">347 </span> out << i << <span class="Constant">": "</span> << std::hex << std::setw<span class="Delimiter">(</span><span class="Constant">8</span><span class="Delimiter">)</span> << std::setfill<span class="Delimiter">(</span><span class="Constant">'_'</span><span class="Delimiter">)</span> << Reg[i]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L348" class="LineNr">348 </span> <span class="Delimiter">}</span> <span id="L349" class="LineNr">349 </span> out << <span class="Constant">" -- SF: "</span> << SF << <span class="Constant">"; <a href='010vm.cc.html#L89'>ZF</a>: "</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; <a href='010vm.cc.html#L90'>CF</a>: "</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; <a href='010vm.cc.html#L91'>OF</a>: "</span> << <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> -<span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << out<span class="Delimiter">.</span>str<span class="Delimiter">()</span> << end<span class="Delimiter">();</span> +<span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << out<span class="Delimiter">.</span>str<span class="Delimiter">()</span> << end<span class="Delimiter">();</span> <span id="L351" class="LineNr">351 </span><span class="Delimiter">}</span> <span id="L352" class="LineNr">352 </span> <span id="L353" class="LineNr">353 </span><span class="Comment">//: start tracking supported opcodes</span> <span id="L354" class="LineNr">354 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L355" class="LineNr">355 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">;</span> -<span id="L356" class="LineNr">356 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">;</span> -<span id="L357" class="LineNr">357 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">;</span> -<span id="L358" class="LineNr">358 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">;</span> +<span id="L355" class="LineNr">355 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">;</span> +<span id="L356" class="LineNr">356 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">;</span> +<span id="L357" class="LineNr">357 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <a href='010vm.cc.html#L357'>Name_f3</a><span class="Delimiter">;</span> +<span id="L358" class="LineNr">358 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> string> <a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">;</span> <span id="L359" class="LineNr">359 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L360" class="LineNr">360 </span><a href='010vm.cc.html#L362'>init_op_names</a><span class="Delimiter">();</span> <span id="L361" class="LineNr">361 </span><span class="Delimiter">:(code)</span> <span id="L362" class="LineNr">362 </span><span class="Normal">void</span> <a href='010vm.cc.html#L362'>init_op_names</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L363" class="LineNr">363 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">"halt (hlt)"</span><span class="Delimiter">);</span> +<span id="L363" class="LineNr">363 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">"halt (hlt)"</span><span class="Delimiter">);</span> <span id="L364" class="LineNr">364 </span> <span class="Comment">// End Initialize Op Names</span> <span id="L365" class="LineNr">365 </span><span class="Delimiter">}</span> <span id="L366" class="LineNr">366 </span> <span id="L367" class="LineNr">367 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Special-cases(key)")</span> <span id="L368" class="LineNr">368 </span><span class="Normal">if</span> <span class="Delimiter">(</span>key == <span class="Constant">"opcodes"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L369" class="LineNr">369 </span> cerr << <span class="Constant">"Opcodes currently supported by SubX:\n"</span><span class="Delimiter">;</span> -<span id="L370" class="LineNr">370 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L369" class="LineNr">369 </span> cerr << <span class="Constant">"Opcodes currently supported by SubX:</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L370" class="LineNr">370 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span id="L371" class="LineNr">371 </span> cerr << <span class="Constant">" "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L372" class="LineNr">372 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L372" class="LineNr">372 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span id="L373" class="LineNr">373 </span> cerr << <span class="Constant">" 0f "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L374" class="LineNr">374 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L374" class="LineNr">374 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <a href='010vm.cc.html#L357'>Name_f3</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='010vm.cc.html#L357'>Name_f3</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span id="L375" class="LineNr">375 </span> cerr << <span class="Constant">" f3 "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L376" class="LineNr">376 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L376" class="LineNr">376 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> string>::iterator p = <a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span id="L377" class="LineNr">377 </span> cerr << <span class="Constant">" f3 0f "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << p<span class="Delimiter">-></span>second << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L378" class="LineNr">378 </span> cerr << <span class="Constant">"Run `bootstrap help instructions` for details on <a href='011run.cc.html#L122'>words</a> like 'r32' and 'disp8'.\n"</span> -<span id="L379" class="LineNr">379 </span> <span class="Constant">"For complete details on these instructions, consult the IA-32 manual (volume 2).\n"</span> -<span id="L380" class="LineNr">380 </span> <span class="Constant">"There's various versions of it online, such as <a href="https://c9x.me/x86">https://c9x.me/x86</a>.\n"</span> -<span id="L381" class="LineNr">381 </span> <span class="Constant">"The mnemonics in brackets will help you locate each instruction.\n"</span><span class="Delimiter">;</span> +<span id="L378" class="LineNr">378 </span> cerr << <span class="Constant">"Run `bootstrap help instructions` for details on <a href='011run.cc.html#L122'>words</a> like 'r32' and 'disp8'.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L379" class="LineNr">379 </span> <span class="Constant">"For complete details on these instructions, consult the IA-32 manual (volume 2).</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L380" class="LineNr">380 </span> <span class="Constant">"There's various versions of it online, such as <a href="https://c9x.me/x86.">https://c9x.me/x86.</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L381" class="LineNr">381 </span> <span class="Constant">"The mnemonics in brackets will help you locate each instruction.</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L382" class="LineNr">382 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L383" class="LineNr">383 </span><span class="Delimiter">}</span> <span id="L384" class="LineNr">384 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> -<span id="L385" class="LineNr">385 </span>cerr << <span class="Constant">" opcodes\n"</span><span class="Delimiter">;</span> +<span id="L385" class="LineNr">385 </span>cerr << <span class="Constant">" opcodes</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L386" class="LineNr">386 </span> <span id="L387" class="LineNr">387 </span><span class="Comment">//: Helpers for managing trace depths</span> <span id="L388" class="LineNr">388 </span><span class="Comment">//:</span> @@ -458,17 +456,17 @@ if ('onhashchange' in window) { <span id="L397" class="LineNr">397 </span><span class="Comment">//: than its 'main' depth. So 'call' instruction details will be at the same</span> <span id="L398" class="LineNr">398 </span><span class="Comment">//: depth as the instructions of the function it calls.</span> <span id="L399" class="LineNr">399 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L400" class="LineNr">400 </span><span class="Normal">extern</span> <span class="Normal">const</span> <span class="Normal">int</span> <span class="SpecialChar"><a href='010vm.cc.html#L400'>Initial_callstack_depth</a></span> = <span class="Constant">2</span><span class="Delimiter">;</span> -<span id="L401" class="LineNr">401 </span><span class="Normal">int</span> <span class="SpecialChar">Callstack_depth</span> = <span class="SpecialChar"><a href='010vm.cc.html#L400'>Initial_callstack_depth</a></span><span class="Delimiter">;</span> +<span id="L400" class="LineNr">400 </span><span class="Normal">extern</span> <span class="Normal">const</span> <span class="Normal">int</span> <a href='010vm.cc.html#L400'>Initial_callstack_depth</a> = <span class="Constant">2</span><span class="Delimiter">;</span> +<span id="L401" class="LineNr">401 </span><span class="Normal">int</span> Callstack_depth = <a href='010vm.cc.html#L400'>Initial_callstack_depth</a><span class="Delimiter">;</span> <span id="L402" class="LineNr">402 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L403" class="LineNr">403 </span><span class="SpecialChar">Callstack_depth</span> = <span class="SpecialChar"><a href='010vm.cc.html#L400'>Initial_callstack_depth</a></span><span class="Delimiter">;</span> +<span id="L403" class="LineNr">403 </span>Callstack_depth = <a href='010vm.cc.html#L400'>Initial_callstack_depth</a><span class="Delimiter">;</span> <span id="L404" class="LineNr">404 </span> <span id="L405" class="LineNr">405 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L406" class="LineNr">406 </span><span class="PreProc">#include </span><span class="Constant"><iomanip></span> <span id="L407" class="LineNr">407 </span><span class="PreProc">#define HEXBYTE std::hex << std::setw(</span><span class="Constant">2</span><span class="PreProc">) << std::setfill(</span><span class="Constant">'0'</span><span class="PreProc">)</span> <span id="L408" class="LineNr">408 </span><span class="PreProc">#define HEXWORD std::hex << std::setw(</span><span class="Constant">8</span><span class="PreProc">) << std::setfill(</span><span class="Constant">'0'</span><span class="PreProc">)</span> <span id="L409" class="LineNr">409 </span><span class="Comment">// ugly that iostream doesn't print uint8_t as an integer</span> -<span id="L410" class="LineNr">410 </span><span class="PreProc">#define NUM(</span><span class="SpecialChar">X</span><span class="PreProc">) </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>(</span><span class="SpecialChar">X</span><span class="PreProc">)</span> +<span id="L410" class="LineNr">410 </span><span class="PreProc">#define NUM(X) </span><span class="Normal">static_cast</span><span class="PreProc"><</span><span class="Normal">int</span><span class="PreProc">>(X)</span> <span id="L411" class="LineNr">411 </span><span class="PreProc">#include </span><span class="Constant"><stdint.h></span> </pre> </body> diff --git a/html/011run.cc.html b/html/linux/bootstrap/011run.cc.html index 793d8bf0..bc7b84ae 100644 --- a/html/011run.cc.html +++ b/html/linux/bootstrap/011run.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 011run.cc</title> +<title>Mu - linux/bootstrap/011run.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -15,14 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } --> </style> @@ -56,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/011run.cc'>https://github.com/akkartik/mu/blob/main/011run.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/011run.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/011run.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Running SubX programs on the VM.</span> <span id="L2" class="LineNr"> 2 </span> @@ -64,33 +62,33 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="Comment">//: the VM. That comes later.)</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> -<span id="L7" class="LineNr"> 7 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"syntax"</span><span class="Delimiter">,</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"SubX programs consist of <a href='011run.cc.html#L106'>segments</a>, each segment in turn consisting of lines.\n"</span> -<span id="L9" class="LineNr"> 9 </span> <span class="Constant">"Line-endings are significant; each <a href='011run.cc.html#L121'>line</a> should contain a single\n"</span> -<span id="L10" class="LineNr"> 10 </span> <span class="Constant">"instruction, macro or directive.\n"</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"\n"</span> -<span id="L12" class="LineNr"> 12 </span> <span class="Constant">"Comments start with the '#' character. It should be at the start of a word\n"</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"(start of <a href='011run.cc.html#L121'>line</a>, or following a space).\n"</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"\n"</span> -<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"Each segment starts with a header <a href='011run.cc.html#L121'>line</a>: a '==' delimiter followed by the <a href='011run.cc.html#L111'>name</a> of\n"</span> -<span id="L16" class="LineNr"> 16 </span> <span class="Constant">"the segment and a (sometimes approximate) starting address in memory.\n"</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"The <a href='011run.cc.html#L111'>name</a> 'code' is special; instructions to execute should always go here.\n"</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"\n"</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"The resulting binary starts running code from a label called 'Entry'\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"in the code segment.\n"</span> -<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"\n"</span> -<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"Segments with the same <a href='011run.cc.html#L111'>name</a> get merged together. This rule helps keep functions\n"</span> -<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"and their data close together in .subx files.\n"</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Constant">"You don't have to specify the starting address after the first time.\n"</span> -<span id="L25" class="LineNr"> 25 </span> <span class="Constant">"\n"</span> -<span id="L26" class="LineNr"> 26 </span> <span class="Constant">"Lines consist of a series of words. Words can contain arbitrary metadata\n"</span> -<span id="L27" class="LineNr"> 27 </span> <span class="Constant">"after a '/', but they can never contain whitespace. Metadata has no effect\n"</span> -<span id="L28" class="LineNr"> 28 </span> <span class="Constant">"at runtime, but can be handy when rewriting macros.\n"</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Constant">"\n"</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Constant">"Check out the example programs in the apps/ directory, particularly apps/ex*.\n"</span> +<span id="L7" class="LineNr"> 7 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"syntax"</span><span class="Delimiter">,</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"SubX programs consist of <a href='011run.cc.html#L106'>segments</a>, each segment in turn consisting of lines.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L9" class="LineNr"> 9 </span> <span class="Constant">"Line-endings are significant; each <a href='011run.cc.html#L121'>line</a> should contain a single</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L10" class="LineNr"> 10 </span> <span class="Constant">"instruction, macro or directive.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L12" class="LineNr"> 12 </span> <span class="Constant">"Comments start with the '#' character. It should be at the start of a <a href='011run.cc.html#L127'>word</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"(start of <a href='011run.cc.html#L121'>line</a>, or following a space).</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"Each segment starts with a header <a href='011run.cc.html#L121'>line</a>: a '==' delimiter followed by the <a href='011run.cc.html#L111'>name</a> of</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L16" class="LineNr"> 16 </span> <span class="Constant">"the segment and a (sometimes approximate) starting address in memory.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"The <a href='011run.cc.html#L111'>name</a> 'code' is special; instructions to execute should always go here.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"The resulting binary starts running code from a label called 'Entry'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"in the code segment.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"Segments with the same <a href='011run.cc.html#L111'>name</a> get merged together. This rule helps keep functions</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"and their data close together in .subx files.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L24" class="LineNr"> 24 </span> <span class="Constant">"You don't have to specify the starting address after the first time.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L25" class="LineNr"> 25 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L26" class="LineNr"> 26 </span> <span class="Constant">"Lines consist of a series of words. Words can contain arbitrary metadata</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L27" class="LineNr"> 27 </span> <span class="Constant">"after a '/', but they can never contain whitespace. Metadata has no effect</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L28" class="LineNr"> 28 </span> <span class="Constant">"at runtime, but can be handy when rewriting macros.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Constant">"Check out the example programs in the apps/ directory, particularly apps/ex*.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">);</span> <span id="L32" class="LineNr"> 32 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> -<span id="L33" class="LineNr"> 33 </span>cerr << <span class="Constant">" syntax\n"</span><span class="Delimiter">;</span> +<span id="L33" class="LineNr"> 33 </span>cerr << <span class="Constant">" syntax</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L34" class="LineNr"> 34 </span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(code)</span> <span id="L36" class="LineNr"> 36 </span><span class="Normal">void</span> <a href='011run.cc.html#L36'>test_copy_imm32_to_EAX</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -98,11 +96,11 @@ if ('onhashchange' in window) { <span id="L38" class="LineNr"> 38 </span> <span class="Comment">// (variable-length) instruction on one line.</span> <span id="L39" class="LineNr"> 39 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> <span id="L40" class="LineNr"> 40 </span> <span class="Comment">// Comments start with '#' and are ignored.</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Constant">"# comment\n"</span> +<span id="L41" class="LineNr"> 41 </span> <span class="Constant">"# comment</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L42" class="LineNr"> 42 </span> <span class="Comment">// Segment headers start with '==', a name and a starting hex address.</span> <span id="L43" class="LineNr"> 43 </span> <span class="Comment">// There's usually one code and one data segment. The code segment</span> <span id="L44" class="LineNr"> 44 </span> <span class="Comment">// always comes first.</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L46" class="LineNr"> 46 </span> <span id="L47" class="LineNr"> 47 </span> <span class="Comment">// After the header, each segment consists of lines, and each line</span> <span id="L48" class="LineNr"> 48 </span> <span class="Comment">// consists of words separated by whitespace.</span> @@ -123,18 +121,18 @@ if ('onhashchange' in window) { <span id="L63" class="LineNr"> 63 </span> <span class="Comment">// opcode ModR/M SIB displacement immediate</span> <span id="L64" class="LineNr"> 64 </span> <span class="Comment">// instruction mod, reg, Reg/Mem bits scale, index, base</span> <span id="L65" class="LineNr"> 65 </span> <span class="Comment">// 1-3 bytes 0/1 byte 0/1 byte 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Constant">" b8 . . . 0a 0b 0c 0d\n"</span> <span class="Comment">// copy 0x0d0c0b0a to EAX</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Constant">" b8 . . . 0a 0b 0c 0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy 0x0d0c0b0a to EAX</span> <span id="L67" class="LineNr"> 67 </span> <span class="Comment">// The periods are just to help the eye track long gaps between columns,</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// and are otherwise ignored.</span> <span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">);</span> <span id="L70" class="LineNr"> 70 </span> <span class="Comment">// This program, when run, causes the following events in the trace:</span> <span id="L71" class="LineNr"> 71 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"load: 0x00000001 -> b8\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"load: 0x00000002 -> 0a\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"load: 0x00000003 -> 0b\n"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"load: 0x00000004 -> 0c\n"</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"load: 0x00000005 -> 0d\n"</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to EAX\n"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"load: 0x00000001 -> b8</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"load: 0x00000002 -> 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"load: 0x00000003 -> 0b</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"load: 0x00000004 -> 0c</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"load: 0x00000005 -> 0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">);</span> <span id="L79" class="LineNr"> 79 </span><span class="Delimiter">}</span> <span id="L80" class="LineNr"> 80 </span> @@ -154,11 +152,11 @@ if ('onhashchange' in window) { <span id="L94" class="LineNr"> 94 </span> <a href='010vm.cc.html#L26'>EIP</a> = p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a><span class="Delimiter">;</span> <span id="L95" class="LineNr"> 95 </span> <span class="Normal">else</span> <span id="L96" class="LineNr"> 96 </span> <a href='010vm.cc.html#L26'>EIP</a> = find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">)-></span>start<span class="Delimiter">;</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span><span class="Delimiter">)</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <a href='010vm.cc.html#L166'>End_of_program</a><span class="Delimiter">)</span> <span id="L98" class="LineNr"> 98 </span> <a href='010vm.cc.html#L277'>run_one_instruction</a><span class="Delimiter">();</span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> <span id="L100" class="LineNr">100 </span> -<span id="L101" class="LineNr">101 </span><span class="SalientComment">//:: core data structures</span> +<span id="L101" class="LineNr">101 </span><span class="Comment">//:: core data structures</span> <span id="L102" class="LineNr">102 </span> <span id="L103" class="LineNr">103 </span><span class="Delimiter">:(before "End Types")</span> <span id="L104" class="LineNr">104 </span><span class="Normal">struct</span> program <span class="Delimiter">{</span> @@ -190,13 +188,13 @@ if ('onhashchange' in window) { <span id="L130" class="LineNr">130 </span> vector<string> metadata<span class="Delimiter">;</span> <span id="L131" class="LineNr">131 </span><span class="Delimiter">};</span> <span id="L132" class="LineNr">132 </span> -<span id="L133" class="LineNr">133 </span><span class="SalientComment">//:: parse</span> +<span id="L133" class="LineNr">133 </span><span class="Comment">//:: parse</span> <span id="L134" class="LineNr">134 </span> <span id="L135" class="LineNr">135 </span><span class="Delimiter">:(code)</span> <span id="L136" class="LineNr">136 </span><span class="Normal">void</span> parse<span class="Delimiter">(</span>istream& fin<span class="Delimiter">,</span> program& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L137" class="LineNr">137 </span> segment* curr_segment = <span class="Constant">NULL</span><span class="Delimiter">;</span> <span id="L138" class="LineNr">138 </span> vector<line> l<span class="Delimiter">;</span> -<span id="L139" class="LineNr">139 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L140" class="LineNr">140 </span> string line_data<span class="Delimiter">;</span> <span id="L141" class="LineNr">141 </span> <a href='011run.cc.html#L121'>line</a> curr<span class="Delimiter">;</span> <span id="L142" class="LineNr">142 </span> getline<span class="Delimiter">(</span>fin<span class="Delimiter">,</span> line_data<span class="Delimiter">);</span> @@ -204,7 +202,7 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr">144 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"parse"</span><span class="Delimiter">)</span> << <span class="Constant">"line: "</span> << line_data << end<span class="Delimiter">();</span> <span id="L145" class="LineNr">145 </span> <span class="Comment">// End Line Parsing Special-cases(line_data -> l)</span> <span id="L146" class="LineNr">146 </span> istringstream lin<span class="Delimiter">(</span>line_data<span class="Delimiter">);</span> -<span id="L147" class="LineNr">147 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>lin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>lin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L148" class="LineNr">148 </span> string word_data<span class="Delimiter">;</span> <span id="L149" class="LineNr">149 </span> lin >> word_data<span class="Delimiter">;</span> <span id="L150" class="LineNr">150 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>word_data<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> @@ -248,7 +246,7 @@ if ('onhashchange' in window) { <span id="L188" class="LineNr">188 </span><span class="Delimiter">}</span> <span id="L189" class="LineNr">189 </span> <span id="L190" class="LineNr">190 </span>segment* find<span class="Delimiter">(</span>program& p<span class="Delimiter">,</span> <span class="Normal">const</span> string& segment_name<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L192" class="LineNr">192 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> == segment_name<span class="Delimiter">)</span> <span id="L193" class="LineNr">193 </span> <span class="Identifier">return</span> &p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> @@ -258,7 +256,7 @@ if ('onhashchange' in window) { <span id="L198" class="LineNr">198 </span><span class="Normal">void</span> <a href='011run.cc.html#L198'>flush</a><span class="Delimiter">(</span>segment* s<span class="Delimiter">,</span> vector<line>& <a href='011run.cc.html#L113'>lines</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L199" class="LineNr">199 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L200" class="LineNr">200 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L201" class="LineNr">201 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"input does not start with a '==' section header\n"</span> << end<span class="Delimiter">();</span> +<span id="L201" class="LineNr">201 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"input does not start with a '==' section header</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L202" class="LineNr">202 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L203" class="LineNr">203 </span> <span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"parse"</span><span class="Delimiter">)</span> << <span class="Constant">"flushing segment"</span> << end<span class="Delimiter">();</span> @@ -277,7 +275,7 @@ if ('onhashchange' in window) { <span id="L217" class="LineNr">217 </span><span class="Delimiter">}</span> <span id="L218" class="LineNr">218 </span> <span id="L219" class="LineNr">219 </span><span class="Normal">void</span> <a href='011run.cc.html#L219'>sanity_check_program_segment</a><span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> addr<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L220" class="LineNr">220 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L220" class="LineNr">220 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L221" class="LineNr">221 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>start == addr<span class="Delimiter">)</span> <span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't have multiple segments starting at address 0x"</span> << HEXWORD << addr << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L223" class="LineNr">223 </span> <span class="Delimiter">}</span> @@ -291,36 +289,36 @@ if ('onhashchange' in window) { <span id="L231" class="LineNr">231 </span><span class="Delimiter">}</span> <span id="L232" class="LineNr">232 </span> <span id="L233" class="LineNr">233 </span><span class="Normal">void</span> <a href='011run.cc.html#L233'>test_detect_duplicate_segments</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L234" class="LineNr">234 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L234" class="LineNr">234 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L235" class="LineNr">235 </span> parse<span class="Delimiter">(</span> -<span id="L236" class="LineNr">236 </span> <span class="Constant">"== segment1 0xee\n"</span> -<span id="L237" class="LineNr">237 </span> <span class="Constant">"ab\n"</span> -<span id="L238" class="LineNr">238 </span> <span class="Constant">"== segment2 0xee\n"</span> -<span id="L239" class="LineNr">239 </span> <span class="Constant">"cd\n"</span> +<span id="L236" class="LineNr">236 </span> <span class="Constant">"== segment1 0xee</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L237" class="LineNr">237 </span> <span class="Constant">"ab</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L238" class="LineNr">238 </span> <span class="Constant">"== segment2 0xee</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L239" class="LineNr">239 </span> <span class="Constant">"cd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L240" class="LineNr">240 </span> <span class="Delimiter">);</span> <span id="L241" class="LineNr">241 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L242" class="LineNr">242 </span> <span class="Constant">"error: can't have multiple segments starting at address 0x000000ee\n"</span> +<span id="L242" class="LineNr">242 </span> <span class="Constant">"error: can't have multiple segments starting at address 0x000000ee</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L243" class="LineNr">243 </span> <span class="Delimiter">);</span> <span id="L244" class="LineNr">244 </span><span class="Delimiter">}</span> <span id="L245" class="LineNr">245 </span> -<span id="L246" class="LineNr">246 </span><span class="SalientComment">//:: load</span> +<span id="L246" class="LineNr">246 </span><span class="Comment">//:: load</span> <span id="L247" class="LineNr">247 </span> <span id="L248" class="LineNr">248 </span><span class="Normal">void</span> <a href='011run.cc.html#L248'>load</a><span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L249" class="LineNr">249 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">)</span> == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L250" class="LineNr">250 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"no code to run\n"</span> << end<span class="Delimiter">();</span> +<span id="L250" class="LineNr">250 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"no code to <a href='011run.cc.html#L82'>run</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L251" class="LineNr">251 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">}</span> <span id="L253" class="LineNr">253 </span> <span class="Comment">// Ensure segments are disjoint.</span> <span id="L254" class="LineNr">254 </span> set<<span class="Normal">uint32_t</span>> overlap<span class="Delimiter">;</span> -<span id="L255" class="LineNr">255 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L255" class="LineNr">255 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L256" class="LineNr">256 </span> <span class="Normal">const</span> segment& seg = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L257" class="LineNr">257 </span> <span class="Normal">uint32_t</span> addr = seg<span class="Delimiter">.</span>start<span class="Delimiter">;</span> <span id="L258" class="LineNr">258 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!already_allocated<span class="Delimiter">(</span>addr<span class="Delimiter">))</span> -<span id="L259" class="LineNr">259 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>seg<span class="Delimiter">.</span>start<span class="Delimiter">));</span> +<span id="L259" class="LineNr">259 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>seg<span class="Delimiter">.</span>start<span class="Delimiter">));</span> <span id="L260" class="LineNr">260 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"loading segment "</span> << i << <span class="Constant">" from "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << end<span class="Delimiter">();</span> -<span id="L261" class="LineNr">261 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L262" class="LineNr">262 </span> <span class="Normal">const</span> line& l = seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> -<span id="L263" class="LineNr">263 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> k = <span class="Constant">0</span><span class="Delimiter">;</span> k < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++k<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> k = <span class="Constant">0</span><span class="Delimiter">;</span> k < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++k<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L264" class="LineNr">264 </span> <span class="Normal">const</span> word& w = l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>k<span class="Delimiter">);</span> <span id="L265" class="LineNr">265 </span> <span class="Normal">uint8_t</span> val = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L266" class="LineNr">266 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> @@ -332,13 +330,13 @@ if ('onhashchange' in window) { <span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> <span id="L273" class="LineNr">273 </span> <span class="Delimiter">}</span> <span id="L274" class="LineNr">274 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L111'>name</a> == <span class="Constant">"code"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L275" class="LineNr">275 </span> <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = addr<span class="Delimiter">;</span> +<span id="L275" class="LineNr">275 </span> <a href='010vm.cc.html#L166'>End_of_program</a> = addr<span class="Delimiter">;</span> <span id="L276" class="LineNr">276 </span> <span class="Delimiter">}</span> <span id="L277" class="LineNr">277 </span> <span class="Delimiter">}</span> <span id="L278" class="LineNr">278 </span><span class="Delimiter">}</span> <span id="L279" class="LineNr">279 </span> <span id="L280" class="LineNr">280 </span><span class="Normal">const</span> segment* find<span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> <span class="Normal">const</span> string& segment_name<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L281" class="LineNr">281 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L281" class="LineNr">281 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L282" class="LineNr">282 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> == segment_name<span class="Delimiter">)</span> <span id="L283" class="LineNr">283 </span> <span class="Identifier">return</span> &p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span> <span class="Delimiter">}</span> @@ -354,102 +352,102 @@ if ('onhashchange' in window) { <span id="L294" class="LineNr">294 </span> <span class="Normal">int</span> result = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L295" class="LineNr">295 </span> in >> std::hex >> result<span class="Delimiter">;</span> <span id="L296" class="LineNr">296 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!in || !in<span class="Delimiter">.</span>eof<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L297" class="LineNr">297 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte\n"</span> << end<span class="Delimiter">();</span> +<span id="L297" class="LineNr">297 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L298" class="LineNr">298 </span> <span class="Identifier">return</span> <span class="cSpecial">'\0'</span><span class="Delimiter">;</span> <span id="L299" class="LineNr">299 </span> <span class="Delimiter">}</span> <span id="L300" class="LineNr">300 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result > <span class="Constant">0xff</span> || result < -<span class="Constant">0x8f</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L301" class="LineNr">301 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte\n"</span> << end<span class="Delimiter">();</span> +<span id="L301" class="LineNr">301 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"token '"</span> << s << <span class="Constant">"' is not a hex byte</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L302" class="LineNr">302 </span> <span class="Identifier">return</span> <span class="cSpecial">'\0'</span><span class="Delimiter">;</span> <span id="L303" class="LineNr">303 </span> <span class="Delimiter">}</span> <span id="L304" class="LineNr">304 </span> <span class="Identifier">return</span> <span class="Normal">static_cast</span><<span class="Normal">uint8_t</span>><span class="Delimiter">(</span>result<span class="Delimiter">);</span> <span id="L305" class="LineNr">305 </span><span class="Delimiter">}</span> <span id="L306" class="LineNr">306 </span> <span id="L307" class="LineNr">307 </span><span class="Normal">void</span> <a href='011run.cc.html#L307'>test_number_too_large</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L308" class="LineNr">308 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L308" class="LineNr">308 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L309" class="LineNr">309 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L310" class="LineNr">310 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L311" class="LineNr">311 </span> <span class="Constant">"01 cab\n"</span> +<span id="L310" class="LineNr">310 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L311" class="LineNr">311 </span> <span class="Constant">"01 cab</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L312" class="LineNr">312 </span> <span class="Delimiter">);</span> <span id="L313" class="LineNr">313 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L314" class="LineNr">314 </span> <span class="Constant">"error: token 'cab' is not a hex byte\n"</span> +<span id="L314" class="LineNr">314 </span> <span class="Constant">"error: token 'cab' is not a hex byte</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L315" class="LineNr">315 </span> <span class="Delimiter">);</span> <span id="L316" class="LineNr">316 </span><span class="Delimiter">}</span> <span id="L317" class="LineNr">317 </span> <span id="L318" class="LineNr">318 </span><span class="Normal">void</span> <a href='011run.cc.html#L318'>test_invalid_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L319" class="LineNr">319 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L319" class="LineNr">319 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L320" class="LineNr">320 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L321" class="LineNr">321 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L322" class="LineNr">322 </span> <span class="Constant">"01 cx\n"</span> +<span id="L321" class="LineNr">321 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L322" class="LineNr">322 </span> <span class="Constant">"01 cx</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L323" class="LineNr">323 </span> <span class="Delimiter">);</span> <span id="L324" class="LineNr">324 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L325" class="LineNr">325 </span> <span class="Constant">"error: token 'cx' is not a hex byte\n"</span> +<span id="L325" class="LineNr">325 </span> <span class="Constant">"error: token 'cx' is not a hex byte</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L326" class="LineNr">326 </span> <span class="Delimiter">);</span> <span id="L327" class="LineNr">327 </span><span class="Delimiter">}</span> <span id="L328" class="LineNr">328 </span> <span id="L329" class="LineNr">329 </span><span class="Normal">void</span> <a href='011run.cc.html#L329'>test_negative_number</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L330" class="LineNr">330 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L331" class="LineNr">331 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L332" class="LineNr">332 </span> <span class="Constant">"01 -02\n"</span> +<span id="L331" class="LineNr">331 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L332" class="LineNr">332 </span> <span class="Constant">"01 -02</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L333" class="LineNr">333 </span> <span class="Delimiter">);</span> <span id="L334" class="LineNr">334 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L335" class="LineNr">335 </span><span class="Delimiter">}</span> <span id="L336" class="LineNr">336 </span> <span id="L337" class="LineNr">337 </span><span class="Normal">void</span> <a href='011run.cc.html#L337'>test_negative_number_too_small</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L338" class="LineNr">338 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L339" class="LineNr">339 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L340" class="LineNr">340 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L341" class="LineNr">341 </span> <span class="Constant">"01 -12345\n"</span> +<span id="L340" class="LineNr">340 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L341" class="LineNr">341 </span> <span class="Constant">"01 -12345</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L342" class="LineNr">342 </span> <span class="Delimiter">);</span> <span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L344" class="LineNr">344 </span> <span class="Constant">"error: token '-12345' is not a hex byte\n"</span> +<span id="L344" class="LineNr">344 </span> <span class="Constant">"error: token '-12345' is not a hex byte</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L345" class="LineNr">345 </span> <span class="Delimiter">);</span> <span id="L346" class="LineNr">346 </span><span class="Delimiter">}</span> <span id="L347" class="LineNr">347 </span> <span id="L348" class="LineNr">348 </span><span class="Normal">void</span> <a href='011run.cc.html#L348'>test_hex_prefix</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L349" class="LineNr">349 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L350" class="LineNr">350 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L351" class="LineNr">351 </span> <span class="Constant">"0x01 -0x02\n"</span> +<span id="L350" class="LineNr">350 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L351" class="LineNr">351 </span> <span class="Constant">"0x01 -0x02</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L352" class="LineNr">352 </span> <span class="Delimiter">);</span> <span id="L353" class="LineNr">353 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L354" class="LineNr">354 </span><span class="Delimiter">}</span> <span id="L355" class="LineNr">355 </span> <span id="L356" class="LineNr">356 </span><span class="Normal">void</span> <a href='011run.cc.html#L356'>test_repeated_segment_merges_data</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L357" class="LineNr">357 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L358" class="LineNr">358 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L359" class="LineNr">359 </span> <span class="Constant">"11 22\n"</span> -<span id="L360" class="LineNr">360 </span> <span class="Constant">"== code\n"</span> <span class="Comment">// again</span> -<span id="L361" class="LineNr">361 </span> <span class="Constant">"33 44\n"</span> +<span id="L358" class="LineNr">358 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L359" class="LineNr">359 </span> <span class="Constant">"11 22</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L360" class="LineNr">360 </span> <span class="Constant">"== code</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// again</span> +<span id="L361" class="LineNr">361 </span> <span class="Constant">"33 44</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L362" class="LineNr">362 </span> <span class="Delimiter">);</span> <span id="L363" class="LineNr">363 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L364" class="LineNr">364 </span> <span class="Constant">"parse: new segment 'code'\n"</span> -<span id="L365" class="LineNr">365 </span> <span class="Constant">"parse: appending to segment 'code'\n"</span> +<span id="L364" class="LineNr">364 </span> <span class="Constant">"parse: new segment 'code'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L365" class="LineNr">365 </span> <span class="Constant">"parse: appending to segment 'code'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L366" class="LineNr">366 </span> <span class="Comment">// first segment</span> -<span id="L367" class="LineNr">367 </span> <span class="Constant">"load: 0x00000001 -> 11\n"</span> -<span id="L368" class="LineNr">368 </span> <span class="Constant">"load: 0x00000002 -> 22\n"</span> +<span id="L367" class="LineNr">367 </span> <span class="Constant">"load: 0x00000001 -> 11</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L368" class="LineNr">368 </span> <span class="Constant">"load: 0x00000002 -> 22</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L369" class="LineNr">369 </span> <span class="Comment">// second segment</span> -<span id="L370" class="LineNr">370 </span> <span class="Constant">"load: 0x00000003 -> 33\n"</span> -<span id="L371" class="LineNr">371 </span> <span class="Constant">"load: 0x00000004 -> 44\n"</span> +<span id="L370" class="LineNr">370 </span> <span class="Constant">"load: 0x00000003 -> 33</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L371" class="LineNr">371 </span> <span class="Constant">"load: 0x00000004 -> 44</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L372" class="LineNr">372 </span> <span class="Delimiter">);</span> <span id="L373" class="LineNr">373 </span><span class="Delimiter">}</span> <span id="L374" class="LineNr">374 </span> <span id="L375" class="LineNr">375 </span><span class="Normal">void</span> <a href='011run.cc.html#L375'>test_error_on_missing_segment_header</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L376" class="LineNr">376 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L376" class="LineNr">376 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L377" class="LineNr">377 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L378" class="LineNr">378 </span> <span class="Constant">"01 02\n"</span> +<span id="L378" class="LineNr">378 </span> <span class="Constant">"01 02</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L379" class="LineNr">379 </span> <span class="Delimiter">);</span> <span id="L380" class="LineNr">380 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L381" class="LineNr">381 </span> <span class="Constant">"error: input does not start with a '==' section header\n"</span> +<span id="L381" class="LineNr">381 </span> <span class="Constant">"error: input does not start with a '==' section header</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L382" class="LineNr">382 </span> <span class="Delimiter">);</span> <span id="L383" class="LineNr">383 </span><span class="Delimiter">}</span> <span id="L384" class="LineNr">384 </span> <span id="L385" class="LineNr">385 </span><span class="Normal">void</span> <a href='011run.cc.html#L385'>test_error_on_uppercase_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L386" class="LineNr">386 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L386" class="LineNr">386 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L387" class="LineNr">387 </span> <a href='011run.cc.html#L397'>parse_and_load</a><span class="Delimiter">(</span> -<span id="L388" class="LineNr">388 </span> <span class="Constant">"== code\n"</span> -<span id="L389" class="LineNr">389 </span> <span class="Constant">"01 Ab\n"</span> +<span id="L388" class="LineNr">388 </span> <span class="Constant">"== code</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L389" class="LineNr">389 </span> <span class="Constant">"01 Ab</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L390" class="LineNr">390 </span> <span class="Delimiter">);</span> <span id="L391" class="LineNr">391 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L392" class="LineNr">392 </span> <span class="Constant">"error: uppercase hex not allowed: Ab\n"</span> +<span id="L392" class="LineNr">392 </span> <span class="Constant">"error: uppercase hex not allowed: Ab</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L393" class="LineNr">393 </span> <span class="Delimiter">);</span> <span id="L394" class="LineNr">394 </span><span class="Delimiter">}</span> <span id="L395" class="LineNr">395 </span> @@ -462,30 +460,30 @@ if ('onhashchange' in window) { <span id="L402" class="LineNr">402 </span> <a href='011run.cc.html#L248'>load</a><span class="Delimiter">(</span>p<span class="Delimiter">);</span> <span id="L403" class="LineNr">403 </span><span class="Delimiter">}</span> <span id="L404" class="LineNr">404 </span> -<span id="L405" class="LineNr">405 </span><span class="SalientComment">//:: run</span> +<span id="L405" class="LineNr">405 </span><span class="Comment">//:: run</span> <span id="L406" class="LineNr">406 </span> <span id="L407" class="LineNr">407 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L408" class="LineNr">408 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L10'>EAX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L408" class="LineNr">408 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L10'>EAX</a> (mov)"</span><span class="Delimiter">);</span> <span id="L409" class="LineNr">409 </span> <span id="L410" class="LineNr">410 </span><span class="Comment">//: our first opcode</span> <span id="L411" class="LineNr">411 </span> <span id="L412" class="LineNr">412 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L413" class="LineNr">413 </span><span class="Normal">case</span> <span class="Constant">0xb8</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm32 to EAX</span> <span id="L414" class="LineNr">414 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> src = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L415" class="LineNr">415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> -<span id="L416" class="LineNr">416 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> +<span id="L415" class="LineNr">415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> +<span id="L416" class="LineNr">416 </span> Reg[EAX]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> <span id="L417" class="LineNr">417 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L418" class="LineNr">418 </span><span class="Delimiter">}</span> <span id="L419" class="LineNr">419 </span> <span id="L420" class="LineNr">420 </span><span class="Delimiter">:(code)</span> <span id="L421" class="LineNr">421 </span><span class="Normal">void</span> <a href='011run.cc.html#L421'>test_copy_imm32_to_EAX_again</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L422" class="LineNr">422 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L423" class="LineNr">423 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L423" class="LineNr">423 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L424" class="LineNr">424 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L425" class="LineNr">425 </span> <span class="Constant">" b8 0a 0b 0c 0d \n"</span> <span class="Comment">// copy 0x0d0c0b0a to EAX</span> +<span id="L425" class="LineNr">425 </span> <span class="Constant">" b8 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy 0x0d0c0b0a to EAX</span> <span id="L426" class="LineNr">426 </span> <span class="Delimiter">);</span> <span id="L427" class="LineNr">427 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L428" class="LineNr">428 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to EAX\n"</span> +<span id="L428" class="LineNr">428 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L429" class="LineNr">429 </span> <span class="Delimiter">);</span> <span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> <span id="L431" class="LineNr">431 </span> @@ -496,18 +494,18 @@ if ('onhashchange' in window) { <span id="L436" class="LineNr">436 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L437" class="LineNr">437 </span><span class="Delimiter">}</span> <span id="L438" class="LineNr">438 </span> -<span id="L439" class="LineNr">439 </span><span class="SalientComment">//:: helpers</span> +<span id="L439" class="LineNr">439 </span><span class="Comment">//:: helpers</span> <span id="L440" class="LineNr">440 </span> <span id="L441" class="LineNr">441 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L442" class="LineNr">442 </span> ostringstream out<span class="Delimiter">;</span> <span id="L443" class="LineNr">443 </span> out << w<span class="Delimiter">.</span>data<span class="Delimiter">;</span> -<span id="L444" class="LineNr">444 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L444" class="LineNr">444 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L445" class="LineNr">445 </span> out << <span class="Constant">" /"</span> << w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L446" class="LineNr">446 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L447" class="LineNr">447 </span><span class="Delimiter">}</span> <span id="L448" class="LineNr">448 </span> <span id="L449" class="LineNr">449 </span><span class="Normal">bool</span> <a href='011run.cc.html#L449'>contains_uppercase</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L450" class="LineNr">450 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L450" class="LineNr">450 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L451" class="LineNr">451 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>isupper<span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)))</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L452" class="LineNr">452 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L453" class="LineNr">453 </span><span class="Delimiter">}</span> diff --git a/html/012elf.cc.html b/html/linux/bootstrap/012elf.cc.html index 3aa91207..0e14b780 100644 --- a/html/012elf.cc.html +++ b/html/linux/bootstrap/012elf.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 012elf.cc</title> +<title>Mu - linux/bootstrap/012elf.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.PreProc { color: #c000c0; } -.LineNr { } -.SpecialChar { color: #d70000; } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.cSpecial { color: #008000; } +.PreProc { color: #c000c0; } --> </style> @@ -57,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/012elf.cc'>https://github.com/akkartik/mu/blob/main/012elf.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/012elf.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/012elf.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Loading SubX programs from ELF binaries.</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: This will allow us to run them natively on a Linux kernel.</span> @@ -67,17 +66,17 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span>assert<span class="Delimiter">(</span>argc > <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <span class="Comment">// Outside of tests, traces must be explicitly requested.</span> -<span id="L9" class="LineNr"> 9 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> +<span id="L9" class="LineNr"> 9 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <a href='003trace.cc.html#L72'>Trace_stream</a> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"=== Starting to run"</span> << end<span class="Delimiter">();</span> <span id="L11" class="LineNr"> 11 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>argc <= <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L12" class="LineNr"> 12 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Not enough arguments provided.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L12" class="LineNr"> 12 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Not enough arguments provided.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L13" class="LineNr"> 13 </span> <span class="Delimiter">}</span> <span id="L14" class="LineNr"> 14 </span> <a href='000organization.cc.html#L150'>reset</a><span class="Delimiter">();</span> <span id="L15" class="LineNr"> 15 </span> cerr << std::hex<span class="Delimiter">;</span> <span id="L16" class="LineNr"> 16 </span> <a href='012elf.cc.html#L24'>load_elf</a><span class="Delimiter">(</span>argv[<span class="Constant">2</span>]<span class="Delimiter">,</span> argc<span class="Delimiter">,</span> argv<span class="Delimiter">);</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span><span class="Delimiter">)</span> <span class="Comment">// weak final-gasp termination check</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a> < <a href='010vm.cc.html#L166'>End_of_program</a><span class="Delimiter">)</span> <span class="Comment">// weak final-gasp termination check</span> <span id="L18" class="LineNr"> 18 </span> <a href='010vm.cc.html#L277'>run_one_instruction</a><span class="Delimiter">();</span> -<span id="L19" class="LineNr"> 19 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"executed past end of the world: "</span> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">" vs "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L19" class="LineNr"> 19 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"executed past end of the world: "</span> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">" vs "</span> << <a href='010vm.cc.html#L166'>End_of_program</a> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> <span id="L20" class="LineNr"> 20 </span> <span class="Identifier">return</span> <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> @@ -98,23 +97,23 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span><span class="Normal">void</span> <a href='012elf.cc.html#L37'>load_elf_contents</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span>* elf_contents<span class="Delimiter">,</span> <span class="Normal">size_t</span> size<span class="Delimiter">,</span> <span class="Normal">int</span> argc<span class="Delimiter">,</span> <span class="Normal">char</span>* argv[]<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <span class="Normal">uint8_t</span> magic[<span class="Constant">5</span>] = <span class="Delimiter">{</span><span class="Constant">0</span><span class="Delimiter">};</span> <span id="L39" class="LineNr"> 39 </span> memcpy<span class="Delimiter">(</span>magic<span class="Delimiter">,</span> elf_contents<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>memcmp<span class="Delimiter">(</span>magic<span class="Delimiter">,</span> <span class="Constant">"\177ELF"</span><span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">)</span> != <span class="Constant">0</span><span class="Delimiter">)</span> -<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid ELF file; starts with \"" << magic << '"</span>' << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L40" class="LineNr"> 40 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>memcmp<span class="Delimiter">(</span>magic<span class="Delimiter">,</span> <span class="Constant">"</span><span class="cSpecial">\177</span><span class="Constant">ELF"</span><span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">)</span> != <span class="Constant">0</span><span class="Delimiter">)</span> +<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid ELF file; starts with </span><span class="cSpecial">\"</span><span class="Constant">"</span> << magic << <span class="Constant">'"'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L42" class="LineNr"> 42 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>elf_contents[<span class="Constant">4</span>] != <span class="Constant">1</span><span class="Delimiter">)</span> -<span id="L43" class="LineNr"> 43 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Only 32-bit ELF files (4-byte words; virtual addresses up to 4GB) supported.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L43" class="LineNr"> 43 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Only 32-bit ELF files (4-byte words; virtual addresses up to 4GB) supported.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L44" class="LineNr"> 44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>elf_contents[<span class="Constant">5</span>] != <span class="Constant">1</span><span class="Delimiter">)</span> -<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Only little-endian ELF files supported.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Only little-endian ELF files supported.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L46" class="LineNr"> 46 </span> <span class="Comment">// unused: remaining 10 bytes of e_ident</span> <span id="L47" class="LineNr"> 47 </span> <span class="Normal">uint32_t</span> e_machine_type = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">16</span>]<span class="Delimiter">);</span> <span id="L48" class="LineNr"> 48 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_machine_type != <span class="Constant">0x00030002</span><span class="Delimiter">)</span> -<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"ELF type/machine 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << e_machine_type << <span class="Constant">" isn't i386 executable\n"</span> << die<span class="Delimiter">();</span> +<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"ELF type/machine 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << e_machine_type << <span class="Constant">" isn't i386 executable</span><span class="cSpecial">\n</span><span class="Constant">"</span> << die<span class="Delimiter">();</span> <span id="L50" class="LineNr"> 50 </span> <span class="Comment">// unused: e_version. We only support version 1, and later versions will be backwards compatible.</span> <span id="L51" class="LineNr"> 51 </span> <span class="Normal">uint32_t</span> e_entry = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">24</span>]<span class="Delimiter">);</span> <span id="L52" class="LineNr"> 52 </span> <span class="Normal">uint32_t</span> e_phoff = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">28</span>]<span class="Delimiter">);</span> <span id="L53" class="LineNr"> 53 </span> <span class="Comment">// unused: e_shoff</span> <span id="L54" class="LineNr"> 54 </span> <span class="Comment">// unused: e_flags</span> <span id="L55" class="LineNr"> 55 </span> <span class="Normal">uint32_t</span> e_ehsize = <a href='012elf.cc.html#L174'>u16_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">40</span>]<span class="Delimiter">);</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize < <span class="Constant">52</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; ELF header too small\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize < <span class="Constant">52</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; ELF header too small</span><span class="cSpecial">\n</span><span class="Constant">"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L57" class="LineNr"> 57 </span> <span class="Normal">uint32_t</span> e_phentsize = <a href='012elf.cc.html#L174'>u16_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">42</span>]<span class="Delimiter">);</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">uint32_t</span> e_phnum = <a href='012elf.cc.html#L174'>u16_in</a><span class="Delimiter">(</span>&elf_contents[<span class="Constant">44</span>]<span class="Delimiter">);</span> <span id="L59" class="LineNr"> 59 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << e_phnum << <span class="Constant">" entries in the program header, each "</span> << e_phentsize << <span class="Constant">" bytes long"</span> << end<span class="Delimiter">();</span> @@ -128,17 +127,17 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// initialize code and stack</span> <span id="L69" class="LineNr"> 69 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> -<span id="L70" class="LineNr"> 70 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">));</span> +<span id="L70" class="LineNr"> 70 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">));</span> <span id="L71" class="LineNr"> 71 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> <span id="L72" class="LineNr"> 72 </span> <span class="Comment">// The stack grows downward.</span> -<span id="L73" class="LineNr"> 73 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">;</span> -<span id="L74" class="LineNr"> 74 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBP]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L73" class="LineNr"> 73 </span> Reg[ESP]<span class="Delimiter">.</span>u = <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">;</span> +<span id="L74" class="LineNr"> 74 </span> Reg[EBP]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L75" class="LineNr"> 75 </span> <a href='010vm.cc.html#L26'>EIP</a> = e_entry<span class="Delimiter">;</span> <span id="L76" class="LineNr"> 76 </span> <span id="L77" class="LineNr"> 77 </span> <span class="Comment">// initialize args on stack</span> <span id="L78" class="LineNr"> 78 </span> <span class="Comment">// no envp for now</span> <span id="L79" class="LineNr"> 79 </span> <span class="Comment">// we wastefully use a separate page of memory for argv</span> -<span id="L80" class="LineNr"> 80 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a><span class="Delimiter">));</span> +<span id="L80" class="LineNr"> 80 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a><span class="Delimiter">));</span> <span id="L81" class="LineNr"> 81 </span> <span class="Normal">uint32_t</span> argv_data = <a href='012elf.cc.html#L154'>ARGV_DATA_SEGMENT</a><span class="Delimiter">;</span> <span id="L82" class="LineNr"> 82 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = argc-<span class="Constant">1</span><span class="Delimiter">;</span> i >= <span class="Comment">/*</span><span class="Comment">skip 'subx_bin' and 'run'</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">;</span> --i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L83" class="LineNr"> 83 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>argv_data<span class="Delimiter">);</span> @@ -153,50 +152,50 @@ if ('onhashchange' in window) { <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span> <span id="L94" class="LineNr"> 94 </span><span class="Normal">void</span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> val<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u -= <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> Reg[ESP]<span class="Delimiter">.</span>u -= <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L152'>STACK_SEGMENT</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L97" class="LineNr"> 97 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"The stack overflowed its segment. "</span> <span id="L98" class="LineNr"> 98 </span> << <span class="Constant">"Maybe SPACE_FOR_SEGMENT should be larger? "</span> <span id="L99" class="LineNr"> 99 </span> << <span class="Constant">"Or you need to carve out an exception for the stack segment "</span> -<span id="L100" class="LineNr">100 </span> << <span class="Constant">"to be larger.\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L100" class="LineNr">100 </span> << <span class="Constant">"to be larger.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> -<span id="L102" class="LineNr">102 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L103" class="LineNr">103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pushing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << end<span class="Delimiter">();</span> -<span id="L104" class="LineNr">104 </span> <a href='010vm.cc.html#L252'>write_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> val<span class="Delimiter">);</span> +<span id="L102" class="LineNr">102 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L103" class="LineNr">103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pushing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << end<span class="Delimiter">();</span> +<span id="L104" class="LineNr">104 </span> <a href='010vm.cc.html#L252'>write_mem_u32</a><span class="Delimiter">(</span>Reg[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> val<span class="Delimiter">);</span> <span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> <span id="L106" class="LineNr">106 </span> <span id="L107" class="LineNr">107 </span><span class="Normal">void</span> <a href='012elf.cc.html#L107'>load_segment_from_program_header</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span>* elf_contents<span class="Delimiter">,</span> <span class="Normal">int</span> segment_index<span class="Delimiter">,</span> <span class="Normal">size_t</span> size<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> offset<span class="Delimiter">,</span> <span class="Normal">uint32_t</span> e_ehsize<span class="Delimiter">,</span> set<<span class="Normal">uint32_t</span>>& overlap<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L108" class="LineNr">108 </span> <span class="Normal">uint32_t</span> p_type = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset]<span class="Delimiter">);</span> <span id="L109" class="LineNr">109 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"program header at offset "</span> << offset << <span class="Constant">": type "</span> << p_type << end<span class="Delimiter">();</span> <span id="L110" class="LineNr">110 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_type != <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"ignoring segment at offset "</span> << offset << <span class="Constant">" of non PT_LOAD type "</span> << p_type << <span class="Constant">" (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf">http://refspecs.linuxbase.org/elf/elf.pdf</a>)"</span> << end<span class="Delimiter">();</span> +<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"ignoring segment at offset "</span> << offset << <span class="Constant">" of non PT_LOAD type "</span> << p_type << <span class="Constant">" (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf)">http://refspecs.linuxbase.org/elf/elf.pdf)</a>"</span> << end<span class="Delimiter">();</span> <span id="L112" class="LineNr">112 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> <span id="L114" class="LineNr">114 </span> <span class="Normal">uint32_t</span> p_offset = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">4</span>]<span class="Delimiter">);</span> <span id="L115" class="LineNr">115 </span> <span class="Normal">uint32_t</span> p_vaddr = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">8</span>]<span class="Delimiter">);</span> -<span id="L116" class="LineNr">116 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize > p_vaddr<span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; program header overlaps ELF header\n"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L116" class="LineNr">116 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>e_ehsize > p_vaddr<span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; program header overlaps ELF header</span><span class="cSpecial">\n</span><span class="Constant">"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L117" class="LineNr">117 </span> <span class="Comment">// unused: p_paddr</span> <span id="L118" class="LineNr">118 </span> <span class="Normal">uint32_t</span> p_filesz = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">16</span>]<span class="Delimiter">);</span> <span id="L119" class="LineNr">119 </span> <span class="Normal">uint32_t</span> p_memsz = <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span>&elf_contents[offset + <span class="Constant">20</span>]<span class="Delimiter">);</span> <span id="L120" class="LineNr">120 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_filesz != p_memsz<span class="Delimiter">)</span> -<span id="L121" class="LineNr">121 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Can't yet handle segments where p_filesz != p_memsz (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf">http://refspecs.linuxbase.org/elf/elf.pdf</a>)\n"</span> << die<span class="Delimiter">();</span> +<span id="L121" class="LineNr">121 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Can't yet handle segments where p_filesz != p_memsz (see <a href="http://refspecs.linuxbase.org/elf/elf.pdf)">http://refspecs.linuxbase.org/elf/elf.pdf)</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << die<span class="Delimiter">();</span> <span id="L122" class="LineNr">122 </span> <span id="L123" class="LineNr">123 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_offset + p_filesz > size<span class="Delimiter">)</span> <span id="L124" class="LineNr">124 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Invalid binary; segment at offset "</span> << offset << <span class="Constant">" is too large: wants to end at "</span> << p_offset+p_filesz << <span class="Constant">" but the file ends at "</span> << size << <span class="cSpecial">'\n'</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> <span id="L125" class="LineNr">125 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p_memsz >= <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Code segment too small for SubX; for now please manually increase SEGMENT_ALIGNMENT.\n"</span> << end<span class="Delimiter">();</span> +<span id="L126" class="LineNr">126 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Code segment too small for SubX; for now please manually increase SEGMENT_ALIGNMENT.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L127" class="LineNr">127 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L128" class="LineNr">128 </span> <span class="Delimiter">}</span> <span id="L129" class="LineNr">129 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">90</span><span class="Delimiter">,</span> <span class="Constant">"load"</span><span class="Delimiter">)</span> << <span class="Constant">"blitting file offsets ("</span> << p_offset << <span class="Constant">", "</span> << <span class="Delimiter">(</span>p_offset+p_filesz<span class="Delimiter">)</span> << <span class="Constant">") to addresses ("</span> << p_vaddr << <span class="Constant">", "</span> << <span class="Delimiter">(</span>p_vaddr+p_memsz<span class="Delimiter">)</span> << <span class="Constant">')'</span> << end<span class="Delimiter">();</span> <span id="L130" class="LineNr">130 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>size > p_memsz<span class="Delimiter">)</span> size = p_memsz<span class="Delimiter">;</span> -<span id="L131" class="LineNr">131 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>p_vaddr<span class="Delimiter">));</span> +<span id="L131" class="LineNr">131 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>p_vaddr<span class="Delimiter">));</span> <span id="L132" class="LineNr">132 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < p_filesz<span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L133" class="LineNr">133 </span> assert<span class="Delimiter">(</span>overlap<span class="Delimiter">.</span>find<span class="Delimiter">(</span>p_vaddr+i<span class="Delimiter">)</span> == overlap<span class="Delimiter">.</span>end<span class="Delimiter">());</span> <span id="L134" class="LineNr">134 </span> <a href='010vm.cc.html#L244'>write_mem_u8</a><span class="Delimiter">(</span>p_vaddr+i<span class="Delimiter">,</span> elf_contents[p_offset+i]<span class="Delimiter">);</span> <span id="L135" class="LineNr">135 </span> overlap<span class="Delimiter">.</span>insert<span class="Delimiter">(</span>p_vaddr+i<span class="Delimiter">);</span> <span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> -<span id="L137" class="LineNr">137 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>segment_index == <span class="Constant">0</span> && <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> < p_vaddr+p_memsz<span class="Delimiter">)</span> -<span id="L138" class="LineNr">138 </span> <span class="SpecialChar"><a href='010vm.cc.html#L166'>End_of_program</a></span> = p_vaddr+p_memsz<span class="Delimiter">;</span> +<span id="L137" class="LineNr">137 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>segment_index == <span class="Constant">0</span> && <a href='010vm.cc.html#L166'>End_of_program</a> < p_vaddr+p_memsz<span class="Delimiter">)</span> +<span id="L138" class="LineNr">138 </span> <a href='010vm.cc.html#L166'>End_of_program</a> = p_vaddr+p_memsz<span class="Delimiter">;</span> <span id="L139" class="LineNr">139 </span><span class="Delimiter">}</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(before "End Includes")</span> @@ -220,12 +219,12 @@ if ('onhashchange' in window) { <span id="L159" class="LineNr">159 </span><span class="Delimiter">:(code)</span> <span id="L160" class="LineNr">160 </span><span class="Normal">void</span> dump_stack<span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L161" class="LineNr">161 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L162" class="LineNr">162 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"stack:"</span> << end<span class="Delimiter">();</span> -<span id="L163" class="LineNr">163 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = AFTER_STACK-<span class="Constant">4</span><span class="Delimiter">;</span> a > <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">" <=== ESP"</span> << end<span class="Delimiter">();</span> -<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u-<span class="Constant">4</span><span class="Delimiter">;</span> a > <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u-<span class="Constant">40</span><span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> -<span id="L167" class="LineNr">167 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L162" class="LineNr">162 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"stack:"</span> << end<span class="Delimiter">();</span> +<span id="L163" class="LineNr">163 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = AFTER_STACK-<span class="Constant">4</span><span class="Delimiter">;</span> a > Reg[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[ESP]<span class="Delimiter">.</span>u << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>Reg[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">" <=== ESP"</span> << end<span class="Delimiter">();</span> +<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> a = Reg[ESP]<span class="Delimiter">.</span>u-<span class="Constant">4</span><span class="Delimiter">;</span> a > Reg[ESP]<span class="Delimiter">.</span>u-<span class="Constant">40</span><span class="Delimiter">;</span> a -= <span class="Constant">4</span><span class="Delimiter">)</span> +<span id="L167" class="LineNr">167 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">" 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << a << <span class="Constant">" => 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>a<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L168" class="LineNr">168 </span><span class="Delimiter">}</span> <span id="L169" class="LineNr">169 </span> <span id="L170" class="LineNr">170 </span><span class="Normal">inline</span> <span class="Normal">uint32_t</span> <a href='012elf.cc.html#L170'>u32_in</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span>* p<span class="Delimiter">)</span> <span class="Delimiter">{</span> diff --git a/html/013direct_addressing.cc.html b/html/linux/bootstrap/013direct_addressing.cc.html index 1a10aa7f..e0ec4b6d 100644 --- a/html/013direct_addressing.cc.html +++ b/html/linux/bootstrap/013direct_addressing.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 013direct_addressing.cc</title> +<title>Mu - linux/bootstrap/013direct_addressing.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -15,15 +15,14 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } -.CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } +.PreProc { color: #c000c0; } --> </style> @@ -57,27 +56,27 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/013direct_addressing.cc'>https://github.com/akkartik/mu/blob/main/013direct_addressing.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/013direct_addressing.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/013direct_addressing.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: operating directly on a register</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">"add r32 to rm32 (add)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">"add r32 to rm32 (add)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(code)</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L7'>test_add_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> -<span id="L9" class="LineNr"> 9 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L8" class="LineNr"> 8 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L9" class="LineNr"> 9 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L12" class="LineNr"> 12 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" 01 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to EAX</span> <span id="L14" class="LineNr"> 14 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">);</span> <span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">);</span> <span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> @@ -85,72 +84,72 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span><span class="Normal">case</span> <span class="Constant">0x01</span>: <span class="Delimiter">{</span> <span class="Comment">// add r32 to r/m32</span> <span id="L25" class="LineNr"> 25 </span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L26" class="LineNr"> 26 </span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L27" class="LineNr"> 27 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L28" class="LineNr"> 28 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 + Reg[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L31" class="LineNr"> 31 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L32" class="LineNr"> 32 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L32" class="LineNr"> 32 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> + Reg[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span> <span class="Comment">// set CF</span> <span id="L35" class="LineNr"> 35 </span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> + <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 + Reg[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> + Reg[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L38" class="LineNr"> 38 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L40" class="LineNr"> 40 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L42" class="LineNr"> 42 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">}</span> <span id="L44" class="LineNr"> 44 </span> <span id="L45" class="LineNr"> 45 </span><span class="Delimiter">:(code)</span> <span id="L46" class="LineNr"> 46 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L46'>test_add_r32_to_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> -<span id="L48" class="LineNr"> 48 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L47" class="LineNr"> 47 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> +<span id="L48" class="LineNr"> 48 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L49" class="LineNr"> 49 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L51" class="LineNr"> 51 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">" 01 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to EAX</span> <span id="L53" class="LineNr"> 53 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1\n"</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">);</span> <span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> <span id="L63" class="LineNr"> 63 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L63'>test_add_r32_to_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L64" class="LineNr"> 64 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> -<span id="L65" class="LineNr"> 65 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L64" class="LineNr"> 64 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">UINT32_MAX</span><span class="Delimiter">;</span> +<span id="L65" class="LineNr"> 65 </span> Reg[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L66" class="LineNr"> 66 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Constant">" 01 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to EAX</span> <span id="L70" class="LineNr"> 70 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">);</span> <span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0\n"</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">);</span> <span id="L78" class="LineNr"> 78 </span><span class="Delimiter">}</span> <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L80'>test_add_r32_to_r32_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L81" class="LineNr"> 81 </span> Reg[EAX]<span class="Delimiter">.</span>i = Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L82" class="LineNr"> 82 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L84" class="LineNr"> 84 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" 01 d8 \n"</span> <span class="Comment">// add EBX to EAX</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" 01 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to EAX</span> <span id="L86" class="LineNr"> 86 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">);</span> <span id="L88" class="LineNr"> 88 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1\n"</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">);</span> <span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> @@ -165,11 +164,11 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr"> 104 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rm = modrm & <span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L105" class="LineNr"> 105 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod == <span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L106" class="LineNr"> 106 </span> <span class="Comment">// mod 3 is just register direct addressing</span> -<span id="L107" class="LineNr"> 107 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m32 is "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L108" class="LineNr"> 108 </span> <span class="Identifier">return</span> &<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L107" class="LineNr"> 107 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m32 is "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L108" class="LineNr"> 108 </span> <span class="Identifier">return</span> &Reg[rm]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L109" class="LineNr"> 109 </span> <span class="Delimiter">}</span> <span id="L110" class="LineNr"> 110 </span> <span class="Normal">uint32_t</span> addr = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L111" class="LineNr"> 111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address contains 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L111" class="LineNr"> 111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address contains 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L112" class="LineNr"> 112 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L227'>mem_addr_i32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span id="L113" class="LineNr"> 113 </span><span class="Delimiter">}</span> <span id="L114" class="LineNr"> 114 </span> @@ -182,7 +181,7 @@ if ('onhashchange' in window) { <span id="L121" class="LineNr"> 121 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>mod<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L122" class="LineNr"> 122 </span> <span class="Normal">case</span> <span class="Constant">3</span>: <span id="L123" class="LineNr"> 123 </span> <span class="Comment">// mod 3 is just register direct addressing</span> -<span id="L124" class="LineNr"> 124 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unexpected direct addressing mode\n"</span> << end<span class="Delimiter">();</span> +<span id="L124" class="LineNr"> 124 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unexpected direct addressing mode</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L125" class="LineNr"> 125 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L126" class="LineNr"> 126 </span> <span class="Comment">// End Mod Special-cases(addr)</span> <span id="L127" class="LineNr"> 127 </span> <span class="Normal">default</span>: @@ -208,25 +207,25 @@ if ('onhashchange' in window) { <span id="L147" class="LineNr"> 147 </span> <span class="Delimiter">}</span> <span id="L148" class="LineNr"> 148 </span><span class="Delimiter">}</span> <span id="L149" class="LineNr"> 149 </span> -<span id="L150" class="LineNr"> 150 </span><span class="SalientComment">//:: subtract</span> +<span id="L150" class="LineNr"> 150 </span><span class="Comment">//:: subtract</span> <span id="L151" class="LineNr"> 151 </span> <span id="L152" class="LineNr"> 152 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L153" class="LineNr"> 153 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">"subtract r32 from rm32 (sub)"</span><span class="Delimiter">);</span> +<span id="L153" class="LineNr"> 153 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">"subtract r32 from rm32 (sub)"</span><span class="Delimiter">);</span> <span id="L154" class="LineNr"> 154 </span> <span id="L155" class="LineNr"> 155 </span><span class="Delimiter">:(code)</span> <span id="L156" class="LineNr"> 156 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L156'>test_subtract_r32_from_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr"> 157 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> -<span id="L158" class="LineNr"> 158 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L157" class="LineNr"> 157 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L158" class="LineNr"> 158 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L159" class="LineNr"> 159 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L160" class="LineNr"> 160 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L160" class="LineNr"> 160 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L161" class="LineNr"> 161 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L162" class="LineNr"> 162 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> +<span id="L162" class="LineNr"> 162 </span> <span class="Constant">" 29 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L163" class="LineNr"> 163 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L164" class="LineNr"> 164 </span> <span class="Delimiter">);</span> <span id="L165" class="LineNr"> 165 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L166" class="LineNr"> 166 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> -<span id="L167" class="LineNr"> 167 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L168" class="LineNr"> 168 </span> <span class="Constant">"run: storing 0x00000009\n"</span> +<span id="L166" class="LineNr"> 166 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L167" class="LineNr"> 167 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L168" class="LineNr"> 168 </span> <span class="Constant">"run: storing 0x00000009</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L169" class="LineNr"> 169 </span> <span class="Delimiter">);</span> <span id="L170" class="LineNr"> 170 </span><span class="Delimiter">}</span> <span id="L171" class="LineNr"> 171 </span> @@ -234,115 +233,115 @@ if ('onhashchange' in window) { <span id="L173" class="LineNr"> 173 </span><span class="Normal">case</span> <span class="Constant">0x29</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract r32 from r/m32</span> <span id="L174" class="LineNr"> 174 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L175" class="LineNr"> 175 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L176" class="LineNr"> 176 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" from r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L176" class="LineNr"> 176 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" from r/m32"</span> << end<span class="Delimiter">();</span> <span id="L177" class="LineNr"> 177 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L178" class="LineNr"> 178 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L178" class="LineNr"> 178 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 - Reg[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L179" class="LineNr"> 179 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L180" class="LineNr"> 180 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L181" class="LineNr"> 181 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L181" class="LineNr"> 181 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - Reg[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L182" class="LineNr"> 182 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L183" class="LineNr"> 183 </span> <span class="Comment">// set CF</span> <span id="L184" class="LineNr"> 184 </span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> -<span id="L185" class="LineNr"> 185 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L186" class="LineNr"> 186 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L185" class="LineNr"> 185 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 - Reg[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L186" class="LineNr"> 186 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - Reg[arg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L187" class="LineNr"> 187 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L188" class="LineNr"> 188 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L188" class="LineNr"> 188 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L189" class="LineNr"> 189 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L190" class="LineNr"> 190 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L190" class="LineNr"> 190 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L191" class="LineNr"> 191 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L192" class="LineNr"> 192 </span><span class="Delimiter">}</span> <span id="L193" class="LineNr"> 193 </span> <span id="L194" class="LineNr"> 194 </span><span class="Delimiter">:(code)</span> <span id="L195" class="LineNr"> 195 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L195'>test_subtract_r32_from_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L196" class="LineNr"> 196 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> -<span id="L197" class="LineNr"> 197 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L196" class="LineNr"> 196 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> +<span id="L197" class="LineNr"> 197 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> <span id="L198" class="LineNr"> 198 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L199" class="LineNr"> 199 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L199" class="LineNr"> 199 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L200" class="LineNr"> 200 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L201" class="LineNr"> 201 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> +<span id="L201" class="LineNr"> 201 </span> <span class="Constant">" 29 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L202" class="LineNr"> 202 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L203" class="LineNr"> 203 </span> <span class="Delimiter">);</span> <span id="L204" class="LineNr"> 204 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L205" class="LineNr"> 205 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> -<span id="L206" class="LineNr"> 206 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L207" class="LineNr"> 207 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1\n"</span> -<span id="L208" class="LineNr"> 208 </span> <span class="Constant">"run: storing 0x00000001\n"</span> +<span id="L205" class="LineNr"> 205 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L206" class="LineNr"> 206 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L207" class="LineNr"> 207 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L208" class="LineNr"> 208 </span> <span class="Constant">"run: storing 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L209" class="LineNr"> 209 </span> <span class="Delimiter">);</span> <span id="L210" class="LineNr"> 210 </span><span class="Delimiter">}</span> <span id="L211" class="LineNr"> 211 </span> <span id="L212" class="LineNr"> 212 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L212'>test_subtract_r32_from_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L213" class="LineNr"> 213 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L214" class="LineNr"> 214 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L213" class="LineNr"> 213 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L214" class="LineNr"> 214 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L215" class="LineNr"> 215 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L216" class="LineNr"> 216 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L216" class="LineNr"> 216 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L217" class="LineNr"> 217 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L218" class="LineNr"> 218 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> +<span id="L218" class="LineNr"> 218 </span> <span class="Constant">" 29 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L219" class="LineNr"> 219 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L220" class="LineNr"> 220 </span> <span class="Delimiter">);</span> <span id="L221" class="LineNr"> 221 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L222" class="LineNr"> 222 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> -<span id="L223" class="LineNr"> 223 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L224" class="LineNr"> 224 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> -<span id="L225" class="LineNr"> 225 </span> <span class="Constant">"run: storing 0xffffffff\n"</span> +<span id="L222" class="LineNr"> 222 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L223" class="LineNr"> 223 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L224" class="LineNr"> 224 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L225" class="LineNr"> 225 </span> <span class="Constant">"run: storing 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L226" class="LineNr"> 226 </span> <span class="Delimiter">);</span> <span id="L227" class="LineNr"> 227 </span><span class="Delimiter">}</span> <span id="L228" class="LineNr"> 228 </span> <span id="L229" class="LineNr"> 229 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L229'>test_subtract_r32_from_r32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L230" class="LineNr"> 230 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L231" class="LineNr"> 231 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L230" class="LineNr"> 230 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L231" class="LineNr"> 231 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L232" class="LineNr"> 232 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L233" class="LineNr"> 233 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L233" class="LineNr"> 233 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L234" class="LineNr"> 234 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L235" class="LineNr"> 235 </span> <span class="Constant">" 29 d8 \n"</span> <span class="Comment">// subtract EBX from EAX</span> +<span id="L235" class="LineNr"> 235 </span> <span class="Constant">" 29 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract EBX from EAX</span> <span id="L236" class="LineNr"> 236 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L237" class="LineNr"> 237 </span> <span class="Delimiter">);</span> <span id="L238" class="LineNr"> 238 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L239" class="LineNr"> 239 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> -<span id="L240" class="LineNr"> 240 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L241" class="LineNr"> 241 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> -<span id="L242" class="LineNr"> 242 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L239" class="LineNr"> 239 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L240" class="LineNr"> 240 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L241" class="LineNr"> 241 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L242" class="LineNr"> 242 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L243" class="LineNr"> 243 </span> <span class="Delimiter">);</span> <span id="L244" class="LineNr"> 244 </span><span class="Delimiter">}</span> <span id="L245" class="LineNr"> 245 </span> -<span id="L246" class="LineNr"> 246 </span><span class="SalientComment">//:: multiply</span> +<span id="L246" class="LineNr"> 246 </span><span class="Comment">//:: multiply</span> <span id="L247" class="LineNr"> 247 </span> <span id="L248" class="LineNr"> 248 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L249" class="LineNr"> 249 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">"negate/multiply/divide rm32 (with <a href='010vm.cc.html#L10'>EAX</a> and <a href='010vm.cc.html#L12'>EDX</a> if necessary) depending on subop (neg/mul/idiv)"</span><span class="Delimiter">);</span> +<span id="L249" class="LineNr"> 249 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">"negate/multiply/divide rm32 (with <a href='010vm.cc.html#L10'>EAX</a> and <a href='010vm.cc.html#L12'>EDX</a> if necessary) depending on subop (neg/mul/idiv)"</span><span class="Delimiter">);</span> <span id="L250" class="LineNr"> 250 </span> <span id="L251" class="LineNr"> 251 </span><span class="Delimiter">:(code)</span> <span id="L252" class="LineNr"> 252 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L252'>test_multiply_EAX_by_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L253" class="LineNr"> 253 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L254" class="LineNr"> 254 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L253" class="LineNr"> 253 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L254" class="LineNr"> 254 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L255" class="LineNr"> 255 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L256" class="LineNr"> 256 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L256" class="LineNr"> 256 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L257" class="LineNr"> 257 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L258" class="LineNr"> 258 </span> <span class="Constant">" f7 e1 \n"</span> <span class="Comment">// multiply EAX by ECX</span> +<span id="L258" class="LineNr"> 258 </span> <span class="Constant">" f7 e1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L259" class="LineNr"> 259 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop mul) 001 (src ECX)</span> <span id="L260" class="LineNr"> 260 </span> <span class="Delimiter">);</span> <span id="L261" class="LineNr"> 261 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L262" class="LineNr"> 262 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L263" class="LineNr"> 263 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> -<span id="L264" class="LineNr"> 264 </span> <span class="Constant">"run: subop: multiply <a href='010vm.cc.html#L10'>EAX</a> by r/m32\n"</span> -<span id="L265" class="LineNr"> 265 </span> <span class="Constant">"run: storing 0x0000000c\n"</span> +<span id="L262" class="LineNr"> 262 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L263" class="LineNr"> 263 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L264" class="LineNr"> 264 </span> <span class="Constant">"run: subop: multiply <a href='010vm.cc.html#L10'>EAX</a> by r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L265" class="LineNr"> 265 </span> <span class="Constant">"run: storing 0x0000000c</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L266" class="LineNr"> 266 </span> <span class="Delimiter">);</span> <span id="L267" class="LineNr"> 267 </span><span class="Delimiter">}</span> <span id="L268" class="LineNr"> 268 </span> <span id="L269" class="LineNr"> 269 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L270" class="LineNr"> 270 </span><span class="Normal">case</span> <span class="Constant">0xf7</span>: <span class="Delimiter">{</span> <span id="L271" class="LineNr"> 271 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L272" class="LineNr"> 272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L272" class="LineNr"> 272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> <span id="L273" class="LineNr"> 273 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L274" class="LineNr"> 274 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L275" class="LineNr"> 275 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L276" class="LineNr"> 276 </span> <span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// mul unsigned EAX by r/m32</span> -<span id="L277" class="LineNr"> 277 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: multiply <a href='010vm.cc.html#L10'>EAX</a> by r/m32"</span> << end<span class="Delimiter">();</span> -<span id="L278" class="LineNr"> 278 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> * <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*arg1<span class="Delimiter">);</span> -<span id="L279" class="LineNr"> 279 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = result & <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> -<span id="L280" class="LineNr"> 280 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = result >> <span class="Constant">32</span><span class="Delimiter">;</span> -<span id="L281" class="LineNr"> 281 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u != <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L277" class="LineNr"> 277 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: multiply <a href='010vm.cc.html#L10'>EAX</a> by r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L278" class="LineNr"> 278 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> * <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*arg1<span class="Delimiter">);</span> +<span id="L279" class="LineNr"> 279 </span> Reg[EAX]<span class="Delimiter">.</span>u = result & <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> +<span id="L280" class="LineNr"> 280 </span> Reg[EDX]<span class="Delimiter">.</span>u = result >> <span class="Constant">32</span><span class="Delimiter">;</span> +<span id="L281" class="LineNr"> 281 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>Reg[EDX]<span class="Delimiter">.</span>u != <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L282" class="LineNr"> 282 </span> <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> -<span id="L283" class="LineNr"> 283 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L284" class="LineNr"> 284 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L283" class="LineNr"> 283 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L284" class="LineNr"> 284 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EAX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L285" class="LineNr"> 285 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L286" class="LineNr"> 286 </span> <span class="Delimiter">}</span> <span id="L287" class="LineNr"> 287 </span> <span class="Comment">// End Op f7 Subops</span> @@ -356,22 +355,22 @@ if ('onhashchange' in window) { <span id="L295" class="LineNr"> 295 </span><span class="Comment">//:</span> <span id="L296" class="LineNr"> 296 </span> <span id="L297" class="LineNr"> 297 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L298" class="LineNr"> 298 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 into r32 (imul)"</span><span class="Delimiter">);</span> +<span id="L298" class="LineNr"> 298 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 into r32 (imul)"</span><span class="Delimiter">);</span> <span id="L299" class="LineNr"> 299 </span> <span id="L300" class="LineNr"> 300 </span><span class="Delimiter">:(code)</span> <span id="L301" class="LineNr"> 301 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L301'>test_multiply_r32_into_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L302" class="LineNr"> 302 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L303" class="LineNr"> 303 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> +<span id="L302" class="LineNr"> 302 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L303" class="LineNr"> 303 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> <span id="L304" class="LineNr"> 304 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L305" class="LineNr"> 305 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L305" class="LineNr"> 305 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L306" class="LineNr"> 306 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L307" class="LineNr"> 307 </span> <span class="Constant">" 0f af d8 \n"</span> <span class="Comment">// subtract EBX into EAX</span> +<span id="L307" class="LineNr"> 307 </span> <span class="Constant">" 0f af d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract EBX into EAX</span> <span id="L308" class="LineNr"> 308 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L309" class="LineNr"> 309 </span> <span class="Delimiter">);</span> <span id="L310" class="LineNr"> 310 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L311" class="LineNr"> 311 </span> <span class="Constant">"run: multiply <a href='010vm.cc.html#L13'>EBX</a> by r/m32\n"</span> -<span id="L312" class="LineNr"> 312 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L313" class="LineNr"> 313 </span> <span class="Constant">"run: storing 0x00000008\n"</span> +<span id="L311" class="LineNr"> 311 </span> <span class="Constant">"run: multiply <a href='010vm.cc.html#L13'>EBX</a> by r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L312" class="LineNr"> 312 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L313" class="LineNr"> 313 </span> <span class="Constant">"run: storing 0x00000008</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L314" class="LineNr"> 314 </span> <span class="Delimiter">);</span> <span id="L315" class="LineNr"> 315 </span><span class="Delimiter">}</span> <span id="L316" class="LineNr"> 316 </span> @@ -379,43 +378,43 @@ if ('onhashchange' in window) { <span id="L318" class="LineNr"> 318 </span><span class="Normal">case</span> <span class="Constant">0xaf</span>: <span class="Delimiter">{</span> <span class="Comment">// multiply r32 by r/m32</span> <span id="L319" class="LineNr"> 319 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L320" class="LineNr"> 320 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << <span class="Constant">" by r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << <span class="Constant">" by r/m32"</span> << end<span class="Delimiter">();</span> <span id="L322" class="LineNr"> 322 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L323" class="LineNr"> 323 </span> <span class="Normal">int32_t</span> result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> -<span id="L324" class="LineNr"> 324 </span> <span class="Normal">int64_t</span> full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> +<span id="L323" class="LineNr"> 323 </span> <span class="Normal">int32_t</span> result = Reg[arg1]<span class="Delimiter">.</span>i * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> +<span id="L324" class="LineNr"> 324 </span> <span class="Normal">int64_t</span> full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> * <span class="Delimiter">(</span>*arg2<span class="Delimiter">);</span> <span id="L325" class="LineNr"> 325 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>result != full_result<span class="Delimiter">);</span> <span id="L326" class="LineNr"> 326 </span> <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> -<span id="L327" class="LineNr"> 327 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L328" class="LineNr"> 328 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> -<span id="L329" class="LineNr"> 329 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L327" class="LineNr"> 327 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L328" class="LineNr"> 328 </span> Reg[arg1]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> +<span id="L329" class="LineNr"> 329 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L330" class="LineNr"> 330 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L331" class="LineNr"> 331 </span><span class="Delimiter">}</span> <span id="L332" class="LineNr"> 332 </span> -<span id="L333" class="LineNr"> 333 </span><span class="SalientComment">//:: negate</span> +<span id="L333" class="LineNr"> 333 </span><span class="Comment">//:: negate</span> <span id="L334" class="LineNr"> 334 </span> <span id="L335" class="LineNr"> 335 </span><span class="Delimiter">:(code)</span> <span id="L336" class="LineNr"> 336 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L336'>test_negate_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L337" class="LineNr"> 337 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L337" class="LineNr"> 337 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L338" class="LineNr"> 338 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L339" class="LineNr"> 339 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L339" class="LineNr"> 339 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L340" class="LineNr"> 340 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L341" class="LineNr"> 341 </span> <span class="Constant">" f7 db \n"</span> <span class="Comment">// negate EBX</span> +<span id="L341" class="LineNr"> 341 </span> <span class="Constant">" f7 db </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// negate EBX</span> <span id="L342" class="LineNr"> 342 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop negate) 011 (dest EBX)</span> <span id="L343" class="LineNr"> 343 </span> <span class="Delimiter">);</span> <span id="L344" class="LineNr"> 344 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L347" class="LineNr"> 347 </span> <span class="Constant">"run: subop: negate\n"</span> -<span id="L348" class="LineNr"> 348 </span> <span class="Constant">"run: storing 0xffffffff\n"</span> +<span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L347" class="LineNr"> 347 </span> <span class="Constant">"run: subop: negate</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L348" class="LineNr"> 348 </span> <span class="Constant">"run: storing 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L349" class="LineNr"> 349 </span> <span class="Delimiter">);</span> <span id="L350" class="LineNr"> 350 </span><span class="Delimiter">}</span> <span id="L351" class="LineNr"> 351 </span> <span id="L352" class="LineNr"> 352 </span><span class="Delimiter">:(before "End Op f7 Subops")</span> <span id="L353" class="LineNr"> 353 </span><span class="Normal">case</span> <span class="Constant">3</span>: <span class="Delimiter">{</span> <span class="Comment">// negate r/m32</span> -<span id="L354" class="LineNr"> 354 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: negate"</span> << end<span class="Delimiter">();</span> +<span id="L354" class="LineNr"> 354 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: negate"</span> << end<span class="Delimiter">();</span> <span id="L355" class="LineNr"> 355 </span> <span class="Comment">// one case that can overflow</span> <span id="L356" class="LineNr"> 356 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*arg1<span class="Delimiter">)</span> == <span class="Constant">0x80000000</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L357" class="LineNr"> 357 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"overflow"</span> << end<span class="Delimiter">();</span> +<span id="L357" class="LineNr"> 357 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"overflow"</span> << end<span class="Delimiter">();</span> <span id="L358" class="LineNr"> 358 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L359" class="LineNr"> 359 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L360" class="LineNr"> 360 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> @@ -426,156 +425,156 @@ if ('onhashchange' in window) { <span id="L365" class="LineNr"> 365 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>result == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L366" class="LineNr"> 366 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L367" class="LineNr"> 367 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>*arg1 != <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L368" class="LineNr"> 368 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L368" class="LineNr"> 368 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L369" class="LineNr"> 369 </span> *arg1 = result<span class="Delimiter">;</span> -<span id="L370" class="LineNr"> 370 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L370" class="LineNr"> 370 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L371" class="LineNr"> 371 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L372" class="LineNr"> 372 </span><span class="Delimiter">}</span> <span id="L373" class="LineNr"> 373 </span> <span id="L374" class="LineNr"> 374 </span><span class="Delimiter">:(code)</span> <span id="L375" class="LineNr"> 375 </span><span class="Comment">// negate can overflow in exactly one situation</span> <span id="L376" class="LineNr"> 376 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L376'>test_negate_can_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L377" class="LineNr"> 377 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// INT_MIN</span> +<span id="L377" class="LineNr"> 377 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L378" class="LineNr"> 378 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L379" class="LineNr"> 379 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L379" class="LineNr"> 379 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L380" class="LineNr"> 380 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L381" class="LineNr"> 381 </span> <span class="Constant">" f7 db \n"</span> <span class="Comment">// negate EBX</span> +<span id="L381" class="LineNr"> 381 </span> <span class="Constant">" f7 db </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// negate EBX</span> <span id="L382" class="LineNr"> 382 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop negate) 011 (dest EBX)</span> <span id="L383" class="LineNr"> 383 </span> <span class="Delimiter">);</span> <span id="L384" class="LineNr"> 384 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L385" class="LineNr"> 385 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L386" class="LineNr"> 386 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L387" class="LineNr"> 387 </span> <span class="Constant">"run: subop: negate\n"</span> -<span id="L388" class="LineNr"> 388 </span> <span class="Constant">"run: overflow\n"</span> +<span id="L385" class="LineNr"> 385 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L386" class="LineNr"> 386 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L387" class="LineNr"> 387 </span> <span class="Constant">"run: subop: negate</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L388" class="LineNr"> 388 </span> <span class="Constant">"run: overflow</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L389" class="LineNr"> 389 </span> <span class="Delimiter">);</span> <span id="L390" class="LineNr"> 390 </span><span class="Delimiter">}</span> <span id="L391" class="LineNr"> 391 </span> -<span id="L392" class="LineNr"> 392 </span><span class="SalientComment">//:: divide with remainder</span> +<span id="L392" class="LineNr"> 392 </span><span class="Comment">//:: divide with remainder</span> <span id="L393" class="LineNr"> 393 </span> <span id="L394" class="LineNr"> 394 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L394'>test_divide_EAX_by_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L395" class="LineNr"> 395 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L396" class="LineNr"> 396 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L397" class="LineNr"> 397 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L395" class="LineNr"> 395 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L396" class="LineNr"> 396 </span> Reg[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L397" class="LineNr"> 397 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L398" class="LineNr"> 398 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L399" class="LineNr"> 399 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L399" class="LineNr"> 399 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L400" class="LineNr"> 400 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L401" class="LineNr"> 401 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> +<span id="L401" class="LineNr"> 401 </span> <span class="Constant">" f7 f9 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L402" class="LineNr"> 402 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L403" class="LineNr"> 403 </span> <span class="Delimiter">);</span> <span id="L404" class="LineNr"> 404 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L405" class="LineNr"> 405 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L406" class="LineNr"> 406 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> -<span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> -<span id="L408" class="LineNr"> 408 </span> <span class="Constant">"run: quotient: 0x00000002\n"</span> -<span id="L409" class="LineNr"> 409 </span> <span class="Constant">"run: remainder: 0x00000001\n"</span> +<span id="L405" class="LineNr"> 405 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L406" class="LineNr"> 406 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in <a href='010vm.cc.html#L12'>EDX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L408" class="LineNr"> 408 </span> <span class="Constant">"run: quotient: 0x00000002</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L409" class="LineNr"> 409 </span> <span class="Constant">"run: remainder: 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L410" class="LineNr"> 410 </span> <span class="Delimiter">);</span> <span id="L411" class="LineNr"> 411 </span><span class="Delimiter">}</span> <span id="L412" class="LineNr"> 412 </span> <span id="L413" class="LineNr"> 413 </span><span class="Delimiter">:(before "End Op f7 Subops")</span> <span id="L414" class="LineNr"> 414 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> <span class="Comment">// divide EDX:EAX by r/m32, storing quotient in EAX and remainder in EDX</span> -<span id="L415" class="LineNr"> 415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX"</span> << end<span class="Delimiter">();</span> -<span id="L416" class="LineNr"> 416 </span> <span class="Normal">int64_t</span> dividend = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">((</span><span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">32</span><span class="Delimiter">)</span> | <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L415" class="LineNr"> 415 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX"</span> << end<span class="Delimiter">();</span> +<span id="L416" class="LineNr"> 416 </span> <span class="Normal">int64_t</span> dividend = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">((</span><span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>Reg[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << <span class="Constant">32</span><span class="Delimiter">)</span> | Reg[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> <span id="L417" class="LineNr"> 417 </span> <span class="Normal">int32_t</span> divisor = *arg1<span class="Delimiter">;</span> <span id="L418" class="LineNr"> 418 </span> assert<span class="Delimiter">(</span>divisor != <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L419" class="LineNr"> 419 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = dividend/divisor<span class="Delimiter">;</span> <span class="Comment">// quotient</span> -<span id="L420" class="LineNr"> 420 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = dividend%divisor<span class="Delimiter">;</span> <span class="Comment">// remainder</span> +<span id="L419" class="LineNr"> 419 </span> Reg[EAX]<span class="Delimiter">.</span>i = dividend/divisor<span class="Delimiter">;</span> <span class="Comment">// quotient</span> +<span id="L420" class="LineNr"> 420 </span> Reg[EDX]<span class="Delimiter">.</span>i = dividend%divisor<span class="Delimiter">;</span> <span class="Comment">// remainder</span> <span id="L421" class="LineNr"> 421 </span> <span class="Comment">// flag state undefined</span> -<span id="L422" class="LineNr"> 422 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"quotient: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L423" class="LineNr"> 423 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"remainder: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L422" class="LineNr"> 422 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"quotient: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L423" class="LineNr"> 423 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"remainder: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EDX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L424" class="LineNr"> 424 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L425" class="LineNr"> 425 </span><span class="Delimiter">}</span> <span id="L426" class="LineNr"> 426 </span> <span id="L427" class="LineNr"> 427 </span><span class="Delimiter">:(code)</span> <span id="L428" class="LineNr"> 428 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L428'>test_divide_EAX_by_negative_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L429" class="LineNr"> 429 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L430" class="LineNr"> 430 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L431" class="LineNr"> 431 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = -<span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L429" class="LineNr"> 429 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L430" class="LineNr"> 430 </span> Reg[EDX]<span class="Delimiter">.</span>u = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L431" class="LineNr"> 431 </span> Reg[ECX]<span class="Delimiter">.</span>i = -<span class="Constant">3</span><span class="Delimiter">;</span> <span id="L432" class="LineNr"> 432 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L433" class="LineNr"> 433 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L433" class="LineNr"> 433 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L434" class="LineNr"> 434 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L435" class="LineNr"> 435 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> +<span id="L435" class="LineNr"> 435 </span> <span class="Constant">" f7 f9 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L436" class="LineNr"> 436 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L437" class="LineNr"> 437 </span> <span class="Delimiter">);</span> <span id="L438" class="LineNr"> 438 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L439" class="LineNr"> 439 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L440" class="LineNr"> 440 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> -<span id="L441" class="LineNr"> 441 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> -<span id="L442" class="LineNr"> 442 </span> <span class="Constant">"run: quotient: 0xfffffffe\n"</span> <span class="Comment">// -2</span> -<span id="L443" class="LineNr"> 443 </span> <span class="Constant">"run: remainder: 0x00000001\n"</span> +<span id="L439" class="LineNr"> 439 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L440" class="LineNr"> 440 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L441" class="LineNr"> 441 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in <a href='010vm.cc.html#L12'>EDX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L442" class="LineNr"> 442 </span> <span class="Constant">"run: quotient: 0xfffffffe</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// -2</span> +<span id="L443" class="LineNr"> 443 </span> <span class="Constant">"run: remainder: 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L444" class="LineNr"> 444 </span> <span class="Delimiter">);</span> <span id="L445" class="LineNr"> 445 </span><span class="Delimiter">}</span> <span id="L446" class="LineNr"> 446 </span> <span id="L447" class="LineNr"> 447 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L447'>test_divide_negative_EAX_by_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L448" class="LineNr"> 448 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L449" class="LineNr"> 449 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// sign extend</span> -<span id="L450" class="LineNr"> 450 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L448" class="LineNr"> 448 </span> Reg[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L449" class="LineNr"> 449 </span> Reg[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span class="Comment">// sign extend</span> +<span id="L450" class="LineNr"> 450 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L451" class="LineNr"> 451 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L452" class="LineNr"> 452 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L452" class="LineNr"> 452 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L453" class="LineNr"> 453 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L454" class="LineNr"> 454 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> +<span id="L454" class="LineNr"> 454 </span> <span class="Constant">" f7 f9 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L455" class="LineNr"> 455 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">);</span> <span id="L457" class="LineNr"> 457 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L458" class="LineNr"> 458 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L459" class="LineNr"> 459 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> -<span id="L460" class="LineNr"> 460 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> -<span id="L461" class="LineNr"> 461 </span> <span class="Constant">"run: quotient: 0xfffffffe\n"</span> <span class="Comment">// -2</span> -<span id="L462" class="LineNr"> 462 </span> <span class="Constant">"run: remainder: 0xffffffff\n"</span> <span class="Comment">// -1, same sign as divident (EDX:EAX)</span> +<span id="L458" class="LineNr"> 458 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L459" class="LineNr"> 459 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L460" class="LineNr"> 460 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in <a href='010vm.cc.html#L12'>EDX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L461" class="LineNr"> 461 </span> <span class="Constant">"run: quotient: 0xfffffffe</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// -2</span> +<span id="L462" class="LineNr"> 462 </span> <span class="Constant">"run: remainder: 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// -1, same sign as divident (EDX:EAX)</span> <span id="L463" class="LineNr"> 463 </span> <span class="Delimiter">);</span> <span id="L464" class="LineNr"> 464 </span><span class="Delimiter">}</span> <span id="L465" class="LineNr"> 465 </span> <span id="L466" class="LineNr"> 466 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L466'>test_divide_negative_EDX_EAX_by_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L467" class="LineNr"> 467 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// lower 32 bits are clear</span> -<span id="L468" class="LineNr"> 468 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> -<span id="L469" class="LineNr"> 469 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x40000000</span><span class="Delimiter">;</span> <span class="Comment">// 2^30 (largest positive power of 2)</span> +<span id="L467" class="LineNr"> 467 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span class="Comment">// lower 32 bits are clear</span> +<span id="L468" class="LineNr"> 468 </span> Reg[EDX]<span class="Delimiter">.</span>i = -<span class="Constant">7</span><span class="Delimiter">;</span> +<span id="L469" class="LineNr"> 469 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x40000000</span><span class="Delimiter">;</span> <span class="Comment">// 2^30 (largest positive power of 2)</span> <span id="L470" class="LineNr"> 470 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L471" class="LineNr"> 471 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L471" class="LineNr"> 471 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L472" class="LineNr"> 472 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L473" class="LineNr"> 473 </span> <span class="Constant">" f7 f9 \n"</span> <span class="Comment">// multiply EAX by ECX</span> +<span id="L473" class="LineNr"> 473 </span> <span class="Constant">" f7 f9 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// multiply EAX by ECX</span> <span id="L474" class="LineNr"> 474 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop idiv) 001 (divisor ECX)</span> <span id="L475" class="LineNr"> 475 </span> <span class="Delimiter">);</span> <span id="L476" class="LineNr"> 476 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L477" class="LineNr"> 477 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L478" class="LineNr"> 478 </span> <span class="Constant">"run: r/m32 is ECX\n"</span> -<span id="L479" class="LineNr"> 479 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in EDX\n"</span> -<span id="L480" class="LineNr"> 480 </span> <span class="Constant">"run: quotient: 0xffffffe4\n"</span> <span class="Comment">// (-7 << 32) / (1 << 30) = -7 << 2 = -28</span> -<span id="L481" class="LineNr"> 481 </span> <span class="Constant">"run: remainder: 0x00000000\n"</span> +<span id="L477" class="LineNr"> 477 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L478" class="LineNr"> 478 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L479" class="LineNr"> 479 </span> <span class="Constant">"run: subop: divide <a href='010vm.cc.html#L12'>EDX</a>:<a href='010vm.cc.html#L10'>EAX</a> by r/m32, storing quotient in <a href='010vm.cc.html#L10'>EAX</a> and remainder in <a href='010vm.cc.html#L12'>EDX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L480" class="LineNr"> 480 </span> <span class="Constant">"run: quotient: 0xffffffe4</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// (-7 << 32) / (1 << 30) = -7 << 2 = -28</span> +<span id="L481" class="LineNr"> 481 </span> <span class="Constant">"run: remainder: 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L482" class="LineNr"> 482 </span> <span class="Delimiter">);</span> <span id="L483" class="LineNr"> 483 </span><span class="Delimiter">}</span> <span id="L484" class="LineNr"> 484 </span> -<span id="L485" class="LineNr"> 485 </span><span class="SalientComment">//:: shift left</span> +<span id="L485" class="LineNr"> 485 </span><span class="Comment">//:: shift left</span> <span id="L486" class="LineNr"> 486 </span> <span id="L487" class="LineNr"> 487 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L488" class="LineNr"> 488 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by CL bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> +<span id="L488" class="LineNr"> 488 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by CL bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> <span id="L489" class="LineNr"> 489 </span> <span id="L490" class="LineNr"> 490 </span><span class="Delimiter">:(code)</span> <span id="L491" class="LineNr"> 491 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L491'>test_shift_left_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L492" class="LineNr"> 492 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> -<span id="L493" class="LineNr"> 493 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L492" class="LineNr"> 492 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> +<span id="L493" class="LineNr"> 493 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L494" class="LineNr"> 494 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L495" class="LineNr"> 495 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L495" class="LineNr"> 495 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L496" class="LineNr"> 496 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L497" class="LineNr"> 497 </span> <span class="Constant">" d3 e3 \n"</span> <span class="Comment">// shift EBX left by CL bits</span> +<span id="L497" class="LineNr"> 497 </span> <span class="Constant">" d3 e3 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX left by CL bits</span> <span id="L498" class="LineNr"> 498 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop shift left) 011 (dest EBX)</span> <span id="L499" class="LineNr"> 499 </span> <span class="Delimiter">);</span> <span id="L500" class="LineNr"> 500 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L501" class="LineNr"> 501 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L502" class="LineNr"> 502 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L503" class="LineNr"> 503 </span> <span class="Constant">"run: subop: shift left by CL bits\n"</span> -<span id="L504" class="LineNr"> 504 </span> <span class="Constant">"run: storing 0x0000001a\n"</span> +<span id="L501" class="LineNr"> 501 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L502" class="LineNr"> 502 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L503" class="LineNr"> 503 </span> <span class="Constant">"run: subop: shift left by CL bits</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L504" class="LineNr"> 504 </span> <span class="Constant">"run: storing 0x0000001a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L505" class="LineNr"> 505 </span> <span class="Delimiter">);</span> <span id="L506" class="LineNr"> 506 </span><span class="Delimiter">}</span> <span id="L507" class="LineNr"> 507 </span> <span id="L508" class="LineNr"> 508 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L509" class="LineNr"> 509 </span><span class="Normal">case</span> <span class="Constant">0xd3</span>: <span class="Delimiter">{</span> <span id="L510" class="LineNr"> 510 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L511" class="LineNr"> 511 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L511" class="LineNr"> 511 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> <span id="L512" class="LineNr"> 512 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L513" class="LineNr"> 513 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L514" class="LineNr"> 514 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L515" class="LineNr"> 515 </span> <span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// shift left r/m32 by CL</span> -<span id="L516" class="LineNr"> 516 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> -<span id="L517" class="LineNr"> 517 </span> <span class="Normal">uint8_t</span> count = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L516" class="LineNr"> 516 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> +<span id="L517" class="LineNr"> 517 </span> <span class="Normal">uint8_t</span> count = Reg[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L518" class="LineNr"> 518 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L519" class="LineNr"> 519 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L520" class="LineNr"> 520 </span> <span class="Normal">bool</span> msb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x80000000</span><span class="Delimiter">)</span> >> <span class="Constant">1</span><span class="Delimiter">;</span> @@ -586,9 +585,9 @@ if ('onhashchange' in window) { <span id="L525" class="LineNr"> 525 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>result == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L526" class="LineNr"> 526 </span> SF = <span class="Delimiter">(</span>result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L527" class="LineNr"> 527 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>*arg1 << <span class="Delimiter">(</span>count-<span class="Constant">1</span><span class="Delimiter">))</span> & <span class="Constant">0x80000000</span><span class="Delimiter">;</span> -<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L529" class="LineNr"> 529 </span> *arg1 = result<span class="Delimiter">;</span> -<span id="L530" class="LineNr"> 530 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L530" class="LineNr"> 530 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L531" class="LineNr"> 531 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L532" class="LineNr"> 532 </span> <span class="Delimiter">}</span> <span id="L533" class="LineNr"> 533 </span> <span class="Comment">// End Op d3 Subops</span> @@ -599,102 +598,102 @@ if ('onhashchange' in window) { <span id="L538" class="LineNr"> 538 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L539" class="LineNr"> 539 </span><span class="Delimiter">}</span> <span id="L540" class="LineNr"> 540 </span> -<span id="L541" class="LineNr"> 541 </span><span class="SalientComment">//:: shift right arithmetic</span> +<span id="L541" class="LineNr"> 541 </span><span class="Comment">//:: shift right arithmetic</span> <span id="L542" class="LineNr"> 542 </span> <span id="L543" class="LineNr"> 543 </span><span class="Delimiter">:(code)</span> <span id="L544" class="LineNr"> 544 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L544'>test_shift_right_arithmetic_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L545" class="LineNr"> 545 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> -<span id="L546" class="LineNr"> 546 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L545" class="LineNr"> 545 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L546" class="LineNr"> 546 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L547" class="LineNr"> 547 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L548" class="LineNr"> 548 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L548" class="LineNr"> 548 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L549" class="LineNr"> 549 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L550" class="LineNr"> 550 </span> <span class="Constant">" d3 fb \n"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> +<span id="L550" class="LineNr"> 550 </span> <span class="Constant">" d3 fb </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> <span id="L551" class="LineNr"> 551 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L552" class="LineNr"> 552 </span> <span class="Delimiter">);</span> <span id="L553" class="LineNr"> 553 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L554" class="LineNr"> 554 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L555" class="LineNr"> 555 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L556" class="LineNr"> 556 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> -<span id="L557" class="LineNr"> 557 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L554" class="LineNr"> 554 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L555" class="LineNr"> 555 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L556" class="LineNr"> 556 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L557" class="LineNr"> 557 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L558" class="LineNr"> 558 </span> <span class="Delimiter">);</span> <span id="L559" class="LineNr"> 559 </span><span class="Delimiter">}</span> <span id="L560" class="LineNr"> 560 </span> <span id="L561" class="LineNr"> 561 </span><span class="Delimiter">:(before "End Op d3 Subops")</span> <span id="L562" class="LineNr"> 562 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, preserving sign</span> -<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> -<span id="L564" class="LineNr"> 564 </span> <span class="Normal">uint8_t</span> count = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> +<span id="L564" class="LineNr"> 564 </span> <span class="Normal">uint8_t</span> count = Reg[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L565" class="LineNr"> 565 </span> *arg1 = <span class="Delimiter">(</span>*arg1 >> count<span class="Delimiter">);</span> <span id="L566" class="LineNr"> 566 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L567" class="LineNr"> 567 </span> SF = <span class="Delimiter">(</span>*arg1 < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L568" class="LineNr"> 568 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L569" class="LineNr"> 569 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L570" class="LineNr"> 570 </span> <span class="Comment">// CF undefined</span> -<span id="L571" class="LineNr"> 571 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L571" class="LineNr"> 571 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L572" class="LineNr"> 572 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L573" class="LineNr"> 573 </span><span class="Delimiter">}</span> <span id="L574" class="LineNr"> 574 </span> <span id="L575" class="LineNr"> 575 </span><span class="Delimiter">:(code)</span> <span id="L576" class="LineNr"> 576 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L576'>test_shift_right_arithmetic_odd_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L577" class="LineNr"> 577 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> -<span id="L578" class="LineNr"> 578 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L577" class="LineNr"> 577 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L578" class="LineNr"> 578 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L579" class="LineNr"> 579 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L580" class="LineNr"> 580 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L580" class="LineNr"> 580 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L581" class="LineNr"> 581 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L582" class="LineNr"> 582 </span> <span class="Constant">" d3 fb \n"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> +<span id="L582" class="LineNr"> 582 </span> <span class="Constant">" d3 fb </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> <span id="L583" class="LineNr"> 583 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L584" class="LineNr"> 584 </span> <span class="Delimiter">);</span> <span id="L585" class="LineNr"> 585 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L586" class="LineNr"> 586 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L587" class="LineNr"> 587 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L588" class="LineNr"> 588 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> +<span id="L586" class="LineNr"> 586 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L587" class="LineNr"> 587 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L588" class="LineNr"> 588 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L589" class="LineNr"> 589 </span> <span class="Comment">// result: 13</span> -<span id="L590" class="LineNr"> 590 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L590" class="LineNr"> 590 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L591" class="LineNr"> 591 </span> <span class="Delimiter">);</span> <span id="L592" class="LineNr"> 592 </span><span class="Delimiter">}</span> <span id="L593" class="LineNr"> 593 </span> <span id="L594" class="LineNr"> 594 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L594'>test_shift_right_arithmetic_negative_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L595" class="LineNr"> 595 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> -<span id="L596" class="LineNr"> 596 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L595" class="LineNr"> 595 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> +<span id="L596" class="LineNr"> 596 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L597" class="LineNr"> 597 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L598" class="LineNr"> 598 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L598" class="LineNr"> 598 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L599" class="LineNr"> 599 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L600" class="LineNr"> 600 </span> <span class="Constant">" d3 fb \n"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> +<span id="L600" class="LineNr"> 600 </span> <span class="Constant">" d3 fb </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by CL bits, while preserving sign</span> <span id="L601" class="LineNr"> 601 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L602" class="LineNr"> 602 </span> <span class="Delimiter">);</span> <span id="L603" class="LineNr"> 603 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L604" class="LineNr"> 604 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L605" class="LineNr"> 605 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L606" class="LineNr"> 606 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> +<span id="L604" class="LineNr"> 604 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L605" class="LineNr"> 605 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L606" class="LineNr"> 606 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L607" class="LineNr"> 607 </span> <span class="Comment">// result: -2</span> -<span id="L608" class="LineNr"> 608 </span> <span class="Constant">"run: storing 0xfffffffe\n"</span> +<span id="L608" class="LineNr"> 608 </span> <span class="Constant">"run: storing 0xfffffffe</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L609" class="LineNr"> 609 </span> <span class="Delimiter">);</span> <span id="L610" class="LineNr"> 610 </span><span class="Delimiter">}</span> <span id="L611" class="LineNr"> 611 </span> -<span id="L612" class="LineNr"> 612 </span><span class="SalientComment">//:: shift right logical</span> +<span id="L612" class="LineNr"> 612 </span><span class="Comment">//:: shift right logical</span> <span id="L613" class="LineNr"> 613 </span> <span id="L614" class="LineNr"> 614 </span><span class="Delimiter">:(code)</span> <span id="L615" class="LineNr"> 615 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L615'>test_shift_right_logical_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L616" class="LineNr"> 616 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> -<span id="L617" class="LineNr"> 617 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L616" class="LineNr"> 616 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L617" class="LineNr"> 617 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L618" class="LineNr"> 618 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L619" class="LineNr"> 619 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L619" class="LineNr"> 619 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L620" class="LineNr"> 620 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L621" class="LineNr"> 621 </span> <span class="Constant">" d3 eb \n"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> +<span id="L621" class="LineNr"> 621 </span> <span class="Constant">" d3 eb </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> <span id="L622" class="LineNr"> 622 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L623" class="LineNr"> 623 </span> <span class="Delimiter">);</span> <span id="L624" class="LineNr"> 624 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L625" class="LineNr"> 625 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L626" class="LineNr"> 626 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L627" class="LineNr"> 627 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> +<span id="L625" class="LineNr"> 625 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L626" class="LineNr"> 626 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L627" class="LineNr"> 627 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L628" class="LineNr"> 628 </span> <span class="Comment">// result: 13</span> -<span id="L629" class="LineNr"> 629 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L629" class="LineNr"> 629 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L630" class="LineNr"> 630 </span> <span class="Delimiter">);</span> <span id="L631" class="LineNr"> 631 </span><span class="Delimiter">}</span> <span id="L632" class="LineNr"> 632 </span> <span id="L633" class="LineNr"> 633 </span><span class="Delimiter">:(before "End Op d3 Subops")</span> <span id="L634" class="LineNr"> 634 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, padding zeroes</span> -<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> -<span id="L636" class="LineNr"> 636 </span> <span class="Normal">uint8_t</span> count = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> +<span id="L636" class="LineNr"> 636 </span> <span class="Normal">uint8_t</span> count = Reg[ECX]<span class="Delimiter">.</span>u & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L637" class="LineNr"> 637 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L638" class="LineNr"> 638 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L639" class="LineNr"> 639 </span> <span class="Normal">bool</span> msb = <span class="Delimiter">(</span>*arg1 & <span class="Constant">0x80000000</span><span class="Delimiter">)</span> >> <span class="Constant">1</span><span class="Delimiter">;</span> @@ -707,65 +706,65 @@ if ('onhashchange' in window) { <span id="L646" class="LineNr"> 646 </span> <span class="Comment">// result is always positive by definition</span> <span id="L647" class="LineNr"> 647 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L648" class="LineNr"> 648 </span> <span class="Comment">// CF undefined</span> -<span id="L649" class="LineNr"> 649 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L649" class="LineNr"> 649 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L650" class="LineNr"> 650 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L651" class="LineNr"> 651 </span><span class="Delimiter">}</span> <span id="L652" class="LineNr"> 652 </span> <span id="L653" class="LineNr"> 653 </span><span class="Delimiter">:(code)</span> <span id="L654" class="LineNr"> 654 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L654'>test_shift_right_logical_odd_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L655" class="LineNr"> 655 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> -<span id="L656" class="LineNr"> 656 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L655" class="LineNr"> 655 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L656" class="LineNr"> 656 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L657" class="LineNr"> 657 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L658" class="LineNr"> 658 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L658" class="LineNr"> 658 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L659" class="LineNr"> 659 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L660" class="LineNr"> 660 </span> <span class="Constant">" d3 eb \n"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> +<span id="L660" class="LineNr"> 660 </span> <span class="Constant">" d3 eb </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> <span id="L661" class="LineNr"> 661 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L662" class="LineNr"> 662 </span> <span class="Delimiter">);</span> <span id="L663" class="LineNr"> 663 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L664" class="LineNr"> 664 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L665" class="LineNr"> 665 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L666" class="LineNr"> 666 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> +<span id="L664" class="LineNr"> 664 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L665" class="LineNr"> 665 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L666" class="LineNr"> 666 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L667" class="LineNr"> 667 </span> <span class="Comment">// result: 13</span> -<span id="L668" class="LineNr"> 668 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L668" class="LineNr"> 668 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L669" class="LineNr"> 669 </span> <span class="Delimiter">);</span> <span id="L670" class="LineNr"> 670 </span><span class="Delimiter">}</span> <span id="L671" class="LineNr"> 671 </span> <span id="L672" class="LineNr"> 672 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L672'>test_shift_right_logical_negative_r32_with_cl</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L673" class="LineNr"> 673 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> -<span id="L674" class="LineNr"> 674 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L673" class="LineNr"> 673 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> +<span id="L674" class="LineNr"> 674 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L675" class="LineNr"> 675 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L676" class="LineNr"> 676 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L676" class="LineNr"> 676 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L677" class="LineNr"> 677 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L678" class="LineNr"> 678 </span> <span class="Constant">" d3 eb \n"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> +<span id="L678" class="LineNr"> 678 </span> <span class="Constant">" d3 eb </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by CL bits, while padding zeroes</span> <span id="L679" class="LineNr"> 679 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L680" class="LineNr"> 680 </span> <span class="Delimiter">);</span> <span id="L681" class="LineNr"> 681 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L682" class="LineNr"> 682 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L683" class="LineNr"> 683 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L684" class="LineNr"> 684 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> -<span id="L685" class="LineNr"> 685 </span> <span class="Constant">"run: storing 0x7ffffffe\n"</span> +<span id="L682" class="LineNr"> 682 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L683" class="LineNr"> 683 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L684" class="LineNr"> 684 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L685" class="LineNr"> 685 </span> <span class="Constant">"run: storing 0x7ffffffe</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L686" class="LineNr"> 686 </span> <span class="Delimiter">);</span> <span id="L687" class="LineNr"> 687 </span><span class="Delimiter">}</span> <span id="L688" class="LineNr"> 688 </span> -<span id="L689" class="LineNr"> 689 </span><span class="SalientComment">//:: and</span> +<span id="L689" class="LineNr"> 689 </span><span class="Comment">//:: and</span> <span id="L690" class="LineNr"> 690 </span> <span id="L691" class="LineNr"> 691 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L692" class="LineNr"> 692 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> +<span id="L692" class="LineNr"> 692 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> <span id="L693" class="LineNr"> 693 </span> <span id="L694" class="LineNr"> 694 </span><span class="Delimiter">:(code)</span> <span id="L695" class="LineNr"> 695 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L695'>test_and_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L696" class="LineNr"> 696 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L697" class="LineNr"> 697 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x000000ff</span><span class="Delimiter">;</span> +<span id="L696" class="LineNr"> 696 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L697" class="LineNr"> 697 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x000000ff</span><span class="Delimiter">;</span> <span id="L698" class="LineNr"> 698 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L699" class="LineNr"> 699 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L699" class="LineNr"> 699 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L700" class="LineNr"> 700 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L701" class="LineNr"> 701 </span> <span class="Constant">" 21 d8 \n"</span> <span class="Comment">// and EBX with destination EAX</span> +<span id="L701" class="LineNr"> 701 </span> <span class="Constant">" 21 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// and EBX with destination EAX</span> <span id="L702" class="LineNr"> 702 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L703" class="LineNr"> 703 </span> <span class="Delimiter">);</span> <span id="L704" class="LineNr"> 704 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L705" class="LineNr"> 705 </span> <span class="Constant">"run: and <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L706" class="LineNr"> 706 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L707" class="LineNr"> 707 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L705" class="LineNr"> 705 </span> <span class="Constant">"run: and <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L706" class="LineNr"> 706 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L707" class="LineNr"> 707 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L708" class="LineNr"> 708 </span> <span class="Delimiter">);</span> <span id="L709" class="LineNr"> 709 </span><span class="Delimiter">}</span> <span id="L710" class="LineNr"> 710 </span> @@ -773,39 +772,39 @@ if ('onhashchange' in window) { <span id="L712" class="LineNr"> 712 </span><span class="Normal">case</span> <span class="Constant">0x21</span>: <span class="Delimiter">{</span> <span class="Comment">// and r32 with r/m32</span> <span id="L713" class="LineNr"> 713 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L714" class="LineNr"> 714 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L715" class="LineNr"> 715 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L715" class="LineNr"> 715 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L716" class="LineNr"> 716 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L717" class="LineNr"> 717 </span> <span class="Comment">// difference</span> <span id="L718" class="LineNr"> 718 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L719" class="LineNr"> 719 </span> *signed_arg1 &= <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L719" class="LineNr"> 719 </span> *signed_arg1 &= Reg[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L721" class="LineNr"> 721 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> <span id="L722" class="LineNr"> 722 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L723" class="LineNr"> 723 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L724" class="LineNr"> 724 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L725" class="LineNr"> 725 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L725" class="LineNr"> 725 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L726" class="LineNr"> 726 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L727" class="LineNr"> 727 </span><span class="Delimiter">}</span> <span id="L728" class="LineNr"> 728 </span> -<span id="L729" class="LineNr"> 729 </span><span class="SalientComment">//:: or</span> +<span id="L729" class="LineNr"> 729 </span><span class="Comment">//:: or</span> <span id="L730" class="LineNr"> 730 </span> <span id="L731" class="LineNr"> 731 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L732" class="LineNr"> 732 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> +<span id="L732" class="LineNr"> 732 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> <span id="L733" class="LineNr"> 733 </span> <span id="L734" class="LineNr"> 734 </span><span class="Delimiter">:(code)</span> <span id="L735" class="LineNr"> 735 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L735'>test_or_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L736" class="LineNr"> 736 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L737" class="LineNr"> 737 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L736" class="LineNr"> 736 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L737" class="LineNr"> 737 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L738" class="LineNr"> 738 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L739" class="LineNr"> 739 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L739" class="LineNr"> 739 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L740" class="LineNr"> 740 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L741" class="LineNr"> 741 </span> <span class="Constant">" 09 d8 \n"</span> <span class="Comment">// or EBX with destination EAX</span> +<span id="L741" class="LineNr"> 741 </span> <span class="Constant">" 09 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// or EBX with destination EAX</span> <span id="L742" class="LineNr"> 742 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L743" class="LineNr"> 743 </span> <span class="Delimiter">);</span> <span id="L744" class="LineNr"> 744 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L745" class="LineNr"> 745 </span> <span class="Constant">"run: or <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L746" class="LineNr"> 746 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L747" class="LineNr"> 747 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> +<span id="L745" class="LineNr"> 745 </span> <span class="Constant">"run: or <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L746" class="LineNr"> 746 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L747" class="LineNr"> 747 </span> <span class="Constant">"run: storing 0xaabbccdd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L748" class="LineNr"> 748 </span> <span class="Delimiter">);</span> <span id="L749" class="LineNr"> 749 </span><span class="Delimiter">}</span> <span id="L750" class="LineNr"> 750 </span> @@ -813,39 +812,39 @@ if ('onhashchange' in window) { <span id="L752" class="LineNr"> 752 </span><span class="Normal">case</span> <span class="Constant">0x09</span>: <span class="Delimiter">{</span> <span class="Comment">// or r32 with r/m32</span> <span id="L753" class="LineNr"> 753 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L754" class="LineNr"> 754 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L755" class="LineNr"> 755 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L755" class="LineNr"> 755 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L756" class="LineNr"> 756 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L757" class="LineNr"> 757 </span> <span class="Comment">// difference</span> <span id="L758" class="LineNr"> 758 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L759" class="LineNr"> 759 </span> *signed_arg1 |= <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L760" class="LineNr"> 760 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L759" class="LineNr"> 759 </span> *signed_arg1 |= Reg[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L760" class="LineNr"> 760 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L761" class="LineNr"> 761 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> <span id="L762" class="LineNr"> 762 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L763" class="LineNr"> 763 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L764" class="LineNr"> 764 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L765" class="LineNr"> 765 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L765" class="LineNr"> 765 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L766" class="LineNr"> 766 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L767" class="LineNr"> 767 </span><span class="Delimiter">}</span> <span id="L768" class="LineNr"> 768 </span> -<span id="L769" class="LineNr"> 769 </span><span class="SalientComment">//:: xor</span> +<span id="L769" class="LineNr"> 769 </span><span class="Comment">//:: xor</span> <span id="L770" class="LineNr"> 770 </span> <span id="L771" class="LineNr"> 771 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L772" class="LineNr"> 772 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> +<span id="L772" class="LineNr"> 772 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">"rm32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> <span id="L773" class="LineNr"> 773 </span> <span id="L774" class="LineNr"> 774 </span><span class="Delimiter">:(code)</span> <span id="L775" class="LineNr"> 775 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L775'>test_xor_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L776" class="LineNr"> 776 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L777" class="LineNr"> 777 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbc0d0</span><span class="Delimiter">;</span> +<span id="L776" class="LineNr"> 776 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L777" class="LineNr"> 777 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbc0d0</span><span class="Delimiter">;</span> <span id="L778" class="LineNr"> 778 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L779" class="LineNr"> 779 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L779" class="LineNr"> 779 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L780" class="LineNr"> 780 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L781" class="LineNr"> 781 </span> <span class="Constant">" 31 d8 \n"</span> <span class="Comment">// xor EBX with destination EAX</span> +<span id="L781" class="LineNr"> 781 </span> <span class="Constant">" 31 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// xor EBX with destination EAX</span> <span id="L782" class="LineNr"> 782 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L783" class="LineNr"> 783 </span> <span class="Delimiter">);</span> <span id="L784" class="LineNr"> 784 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L785" class="LineNr"> 785 </span> <span class="Constant">"run: xor <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L786" class="LineNr"> 786 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L787" class="LineNr"> 787 </span> <span class="Constant">"run: storing 0xa0b0ccdd\n"</span> +<span id="L785" class="LineNr"> 785 </span> <span class="Constant">"run: xor <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L786" class="LineNr"> 786 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L787" class="LineNr"> 787 </span> <span class="Constant">"run: storing 0xa0b0ccdd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L788" class="LineNr"> 788 </span> <span class="Delimiter">);</span> <span id="L789" class="LineNr"> 789 </span><span class="Delimiter">}</span> <span id="L790" class="LineNr"> 790 </span> @@ -853,67 +852,67 @@ if ('onhashchange' in window) { <span id="L792" class="LineNr"> 792 </span><span class="Normal">case</span> <span class="Constant">0x31</span>: <span class="Delimiter">{</span> <span class="Comment">// xor r32 with r/m32</span> <span id="L793" class="LineNr"> 793 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L794" class="LineNr"> 794 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L795" class="LineNr"> 795 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L795" class="LineNr"> 795 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L796" class="LineNr"> 796 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L797" class="LineNr"> 797 </span> <span class="Comment">// difference</span> <span id="L798" class="LineNr"> 798 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L799" class="LineNr"> 799 </span> *signed_arg1 ^= <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L800" class="LineNr"> 800 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L799" class="LineNr"> 799 </span> *signed_arg1 ^= Reg[arg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L800" class="LineNr"> 800 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L801" class="LineNr"> 801 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> <span id="L802" class="LineNr"> 802 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L803" class="LineNr"> 803 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L804" class="LineNr"> 804 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L805" class="LineNr"> 805 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L805" class="LineNr"> 805 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L806" class="LineNr"> 806 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L807" class="LineNr"> 807 </span><span class="Delimiter">}</span> <span id="L808" class="LineNr"> 808 </span> -<span id="L809" class="LineNr"> 809 </span><span class="SalientComment">//:: not</span> +<span id="L809" class="LineNr"> 809 </span><span class="Comment">//:: not</span> <span id="L810" class="LineNr"> 810 </span> <span id="L811" class="LineNr"> 811 </span><span class="Delimiter">:(code)</span> <span id="L812" class="LineNr"> 812 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L812'>test_not_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L813" class="LineNr"> 813 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0f0f00ff</span><span class="Delimiter">;</span> +<span id="L813" class="LineNr"> 813 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0f0f00ff</span><span class="Delimiter">;</span> <span id="L814" class="LineNr"> 814 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L815" class="LineNr"> 815 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L815" class="LineNr"> 815 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L816" class="LineNr"> 816 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L817" class="LineNr"> 817 </span> <span class="Constant">" f7 d3 \n"</span> <span class="Comment">// not EBX</span> +<span id="L817" class="LineNr"> 817 </span> <span class="Constant">" f7 d3 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// not EBX</span> <span id="L818" class="LineNr"> 818 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 010 (subop not) 011 (dest EBX)</span> <span id="L819" class="LineNr"> 819 </span> <span class="Delimiter">);</span> <span id="L820" class="LineNr"> 820 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L821" class="LineNr"> 821 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L822" class="LineNr"> 822 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L823" class="LineNr"> 823 </span> <span class="Constant">"run: subop: not\n"</span> -<span id="L824" class="LineNr"> 824 </span> <span class="Constant">"run: storing 0xf0f0ff00\n"</span> +<span id="L821" class="LineNr"> 821 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L822" class="LineNr"> 822 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L823" class="LineNr"> 823 </span> <span class="Constant">"run: subop: not</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L824" class="LineNr"> 824 </span> <span class="Constant">"run: storing 0xf0f0ff00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L825" class="LineNr"> 825 </span> <span class="Delimiter">);</span> <span id="L826" class="LineNr"> 826 </span><span class="Delimiter">}</span> <span id="L827" class="LineNr"> 827 </span> <span id="L828" class="LineNr"> 828 </span><span class="Delimiter">:(before "End Op f7 Subops")</span> <span id="L829" class="LineNr"> 829 </span><span class="Normal">case</span> <span class="Constant">2</span>: <span class="Delimiter">{</span> <span class="Comment">// not r/m32</span> -<span id="L830" class="LineNr"> 830 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: not"</span> << end<span class="Delimiter">();</span> +<span id="L830" class="LineNr"> 830 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: not"</span> << end<span class="Delimiter">();</span> <span id="L831" class="LineNr"> 831 </span> *arg1 = ~<span class="Delimiter">(</span>*arg1<span class="Delimiter">);</span> -<span id="L832" class="LineNr"> 832 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L832" class="LineNr"> 832 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L833" class="LineNr"> 833 </span> <span class="Comment">// no flags affected</span> <span id="L834" class="LineNr"> 834 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L835" class="LineNr"> 835 </span><span class="Delimiter">}</span> <span id="L836" class="LineNr"> 836 </span> -<span id="L837" class="LineNr"> 837 </span><span class="SalientComment">//:: compare (cmp)</span> +<span id="L837" class="LineNr"> 837 </span><span class="Comment">//:: compare (cmp)</span> <span id="L838" class="LineNr"> 838 </span> <span id="L839" class="LineNr"> 839 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L840" class="LineNr"> 840 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if rm32 < r32 (cmp)"</span><span class="Delimiter">);</span> +<span id="L840" class="LineNr"> 840 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if rm32 < r32 (cmp)"</span><span class="Delimiter">);</span> <span id="L841" class="LineNr"> 841 </span> <span id="L842" class="LineNr"> 842 </span><span class="Delimiter">:(code)</span> <span id="L843" class="LineNr"> 843 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L843'>test_compare_r32_with_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L844" class="LineNr"> 844 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L845" class="LineNr"> 845 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L844" class="LineNr"> 844 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L845" class="LineNr"> 845 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L846" class="LineNr"> 846 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L847" class="LineNr"> 847 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L847" class="LineNr"> 847 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L848" class="LineNr"> 848 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L849" class="LineNr"> 849 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> +<span id="L849" class="LineNr"> 849 </span> <span class="Constant">" 39 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with EBX</span> <span id="L850" class="LineNr"> 850 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L851" class="LineNr"> 851 </span> <span class="Delimiter">);</span> <span id="L852" class="LineNr"> 852 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L853" class="LineNr"> 853 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L854" class="LineNr"> 854 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L855" class="LineNr"> 855 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L853" class="LineNr"> 853 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L854" class="LineNr"> 854 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L855" class="LineNr"> 855 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L856" class="LineNr"> 856 </span> <span class="Delimiter">);</span> <span id="L857" class="LineNr"> 857 </span><span class="Delimiter">}</span> <span id="L858" class="LineNr"> 858 </span> @@ -921,121 +920,121 @@ if ('onhashchange' in window) { <span id="L860" class="LineNr"> 860 </span><span class="Normal">case</span> <span class="Constant">0x39</span>: <span class="Delimiter">{</span> <span class="Comment">// set SF if r/m32 < r32</span> <span id="L861" class="LineNr"> 861 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L862" class="LineNr"> 862 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L863" class="LineNr"> 863 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L863" class="LineNr"> 863 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L864" class="LineNr"> 864 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L865" class="LineNr"> 865 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = *signed_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L865" class="LineNr"> 865 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = *signed_arg1 - Reg[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L866" class="LineNr"> 866 </span> SF = <span class="Delimiter">(</span>signed_difference < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L867" class="LineNr"> 867 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L868" class="LineNr"> 868 </span> <span class="Normal">const</span> <span class="Normal">int64_t</span> signed_full_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L868" class="LineNr"> 868 </span> <span class="Normal">const</span> <span class="Normal">int64_t</span> signed_full_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> - Reg[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L869" class="LineNr"> 869 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_difference != signed_full_difference<span class="Delimiter">);</span> <span id="L870" class="LineNr"> 870 </span> <span class="Comment">// set CF</span> <span id="L871" class="LineNr"> 871 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg1 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">);</span> -<span id="L872" class="LineNr"> 872 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = unsigned_arg1 - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L873" class="LineNr"> 873 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> unsigned_full_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L872" class="LineNr"> 872 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = unsigned_arg1 - Reg[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L873" class="LineNr"> 873 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> unsigned_full_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - Reg[reg2]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L874" class="LineNr"> 874 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != unsigned_full_difference<span class="Delimiter">);</span> -<span id="L875" class="LineNr"> 875 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L875" class="LineNr"> 875 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L876" class="LineNr"> 876 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L877" class="LineNr"> 877 </span><span class="Delimiter">}</span> <span id="L878" class="LineNr"> 878 </span> <span id="L879" class="LineNr"> 879 </span><span class="Delimiter">:(code)</span> <span id="L880" class="LineNr"> 880 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L880'>test_compare_r32_with_r32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L881" class="LineNr"> 881 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> -<span id="L882" class="LineNr"> 882 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L881" class="LineNr"> 881 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L882" class="LineNr"> 882 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L883" class="LineNr"> 883 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L884" class="LineNr"> 884 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L884" class="LineNr"> 884 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L885" class="LineNr"> 885 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L886" class="LineNr"> 886 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> +<span id="L886" class="LineNr"> 886 </span> <span class="Constant">" 39 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with EBX</span> <span id="L887" class="LineNr"> 887 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L888" class="LineNr"> 888 </span> <span class="Delimiter">);</span> <span id="L889" class="LineNr"> 889 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L890" class="LineNr"> 890 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L891" class="LineNr"> 891 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L892" class="LineNr"> 892 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> +<span id="L890" class="LineNr"> 890 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L891" class="LineNr"> 891 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L892" class="LineNr"> 892 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L893" class="LineNr"> 893 </span> <span class="Delimiter">);</span> <span id="L894" class="LineNr"> 894 </span><span class="Delimiter">}</span> <span id="L895" class="LineNr"> 895 </span> <span id="L896" class="LineNr"> 896 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L896'>test_compare_r32_with_r32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L897" class="LineNr"> 897 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> -<span id="L898" class="LineNr"> 898 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L897" class="LineNr"> 897 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> +<span id="L898" class="LineNr"> 898 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L899" class="LineNr"> 899 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L900" class="LineNr"> 900 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L900" class="LineNr"> 900 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L901" class="LineNr"> 901 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L902" class="LineNr"> 902 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> +<span id="L902" class="LineNr"> 902 </span> <span class="Constant">" 39 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with EBX</span> <span id="L903" class="LineNr"> 903 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L904" class="LineNr"> 904 </span> <span class="Delimiter">);</span> <span id="L905" class="LineNr"> 905 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L906" class="LineNr"> 906 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L907" class="LineNr"> 907 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L908" class="LineNr"> 908 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> +<span id="L906" class="LineNr"> 906 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L907" class="LineNr"> 907 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L908" class="LineNr"> 908 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L909" class="LineNr"> 909 </span> <span class="Delimiter">);</span> <span id="L910" class="LineNr"> 910 </span><span class="Delimiter">}</span> <span id="L911" class="LineNr"> 911 </span> <span id="L912" class="LineNr"> 912 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L912'>test_compare_r32_with_r32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L913" class="LineNr"> 913 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> -<span id="L914" class="LineNr"> 914 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L913" class="LineNr"> 913 </span> Reg[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L914" class="LineNr"> 914 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L915" class="LineNr"> 915 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L916" class="LineNr"> 916 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L916" class="LineNr"> 916 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L917" class="LineNr"> 917 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L918" class="LineNr"> 918 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> +<span id="L918" class="LineNr"> 918 </span> <span class="Constant">" 39 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with EBX</span> <span id="L919" class="LineNr"> 919 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L920" class="LineNr"> 920 </span> <span class="Delimiter">);</span> <span id="L921" class="LineNr"> 921 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L922" class="LineNr"> 922 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L923" class="LineNr"> 923 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L924" class="LineNr"> 924 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0\n"</span> +<span id="L922" class="LineNr"> 922 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L923" class="LineNr"> 923 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L924" class="LineNr"> 924 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L925" class="LineNr"> 925 </span> <span class="Delimiter">);</span> <span id="L926" class="LineNr"> 926 </span><span class="Delimiter">}</span> <span id="L927" class="LineNr"> 927 </span> <span id="L928" class="LineNr"> 928 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L928'>test_compare_r32_with_r32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L929" class="LineNr"> 929 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> -<span id="L930" class="LineNr"> 930 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L929" class="LineNr"> 929 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L930" class="LineNr"> 930 </span> Reg[EBX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span id="L931" class="LineNr"> 931 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L932" class="LineNr"> 932 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L932" class="LineNr"> 932 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L933" class="LineNr"> 933 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L934" class="LineNr"> 934 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX with EBX</span> +<span id="L934" class="LineNr"> 934 </span> <span class="Constant">" 39 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with EBX</span> <span id="L935" class="LineNr"> 935 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L936" class="LineNr"> 936 </span> <span class="Delimiter">);</span> <span id="L937" class="LineNr"> 937 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L938" class="LineNr"> 938 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L939" class="LineNr"> 939 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L940" class="LineNr"> 940 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0\n"</span> +<span id="L938" class="LineNr"> 938 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L939" class="LineNr"> 939 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L940" class="LineNr"> 940 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L941" class="LineNr"> 941 </span> <span class="Delimiter">);</span> <span id="L942" class="LineNr"> 942 </span><span class="Delimiter">}</span> <span id="L943" class="LineNr"> 943 </span> <span id="L944" class="LineNr"> 944 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L944'>test_compare_r32_with_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L945" class="LineNr"> 945 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> -<span id="L946" class="LineNr"> 946 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L945" class="LineNr"> 945 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L946" class="LineNr"> 946 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L947" class="LineNr"> 947 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L948" class="LineNr"> 948 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L948" class="LineNr"> 948 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L949" class="LineNr"> 949 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L950" class="LineNr"> 950 </span> <span class="Constant">" 39 d8 \n"</span> <span class="Comment">// compare EAX and EBX</span> +<span id="L950" class="LineNr"> 950 </span> <span class="Constant">" 39 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX and EBX</span> <span id="L951" class="LineNr"> 951 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (rhs EBX) 000 (lhs EAX)</span> <span id="L952" class="LineNr"> 952 </span> <span class="Delimiter">);</span> <span id="L953" class="LineNr"> 953 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L954" class="LineNr"> 954 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L955" class="LineNr"> 955 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L956" class="LineNr"> 956 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> +<span id="L954" class="LineNr"> 954 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L955" class="LineNr"> 955 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L956" class="LineNr"> 956 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L957" class="LineNr"> 957 </span> <span class="Delimiter">);</span> <span id="L958" class="LineNr"> 958 </span><span class="Delimiter">}</span> <span id="L959" class="LineNr"> 959 </span> -<span id="L960" class="LineNr"> 960 </span><span class="SalientComment">//:: copy (mov)</span> +<span id="L960" class="LineNr"> 960 </span><span class="Comment">//:: copy (mov)</span> <span id="L961" class="LineNr"> 961 </span> <span id="L962" class="LineNr"> 962 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L963" class="LineNr"> 963 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">"copy r32 to rm32 (mov)"</span><span class="Delimiter">);</span> +<span id="L963" class="LineNr"> 963 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">"copy r32 to rm32 (mov)"</span><span class="Delimiter">);</span> <span id="L964" class="LineNr"> 964 </span> <span id="L965" class="LineNr"> 965 </span><span class="Delimiter">:(code)</span> <span id="L966" class="LineNr"> 966 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L966'>test_copy_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L967" class="LineNr"> 967 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> +<span id="L967" class="LineNr"> 967 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> <span id="L968" class="LineNr"> 968 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L969" class="LineNr"> 969 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L969" class="LineNr"> 969 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L970" class="LineNr"> 970 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L971" class="LineNr"> 971 </span> <span class="Constant">" 89 d8 \n"</span> <span class="Comment">// copy EBX to EAX</span> +<span id="L971" class="LineNr"> 971 </span> <span class="Constant">" 89 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy EBX to EAX</span> <span id="L972" class="LineNr"> 972 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L973" class="LineNr"> 973 </span> <span class="Delimiter">);</span> <span id="L974" class="LineNr"> 974 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L975" class="LineNr"> 975 </span> <span class="Constant">"run: copy <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L976" class="LineNr"> 976 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L977" class="LineNr"> 977 </span> <span class="Constant">"run: storing 0x000000af\n"</span> +<span id="L975" class="LineNr"> 975 </span> <span class="Constant">"run: copy <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L976" class="LineNr"> 976 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L977" class="LineNr"> 977 </span> <span class="Constant">"run: storing 0x000000af</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L978" class="LineNr"> 978 </span> <span class="Delimiter">);</span> <span id="L979" class="LineNr"> 979 </span><span class="Delimiter">}</span> <span id="L980" class="LineNr"> 980 </span> @@ -1043,33 +1042,33 @@ if ('onhashchange' in window) { <span id="L982" class="LineNr"> 982 </span><span class="Normal">case</span> <span class="Constant">0x89</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r32 to r/m32</span> <span id="L983" class="LineNr"> 983 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L984" class="LineNr"> 984 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rsrc = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L985" class="LineNr"> 985 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L985" class="LineNr"> 985 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L986" class="LineNr"> 986 </span> <span class="Normal">int32_t</span>* dest = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L987" class="LineNr"> 987 </span> *dest = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rsrc]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> -<span id="L988" class="LineNr"> 988 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *dest << end<span class="Delimiter">();</span> +<span id="L987" class="LineNr"> 987 </span> *dest = Reg[rsrc]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> +<span id="L988" class="LineNr"> 988 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *dest << end<span class="Delimiter">();</span> <span id="L989" class="LineNr"> 989 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L990" class="LineNr"> 990 </span><span class="Delimiter">}</span> <span id="L991" class="LineNr"> 991 </span> -<span id="L992" class="LineNr"> 992 </span><span class="SalientComment">//:: xchg</span> +<span id="L992" class="LineNr"> 992 </span><span class="Comment">//:: xchg</span> <span id="L993" class="LineNr"> 993 </span> <span id="L994" class="LineNr"> 994 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L995" class="LineNr"> 995 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"swap the <a href='003trace.cc.html#L117'>contents</a> of r32 and rm32 (xchg)"</span><span class="Delimiter">);</span> +<span id="L995" class="LineNr"> 995 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"swap the <a href='003trace.cc.html#L117'>contents</a> of r32 and rm32 (xchg)"</span><span class="Delimiter">);</span> <span id="L996" class="LineNr"> 996 </span> <span id="L997" class="LineNr"> 997 </span><span class="Delimiter">:(code)</span> <span id="L998" class="LineNr"> 998 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L998'>test_xchg_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L999" class="LineNr"> 999 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> -<span id="L1000" class="LineNr">1000 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2e</span><span class="Delimiter">;</span> +<span id="L999" class="LineNr"> 999 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> +<span id="L1000" class="LineNr">1000 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2e</span><span class="Delimiter">;</span> <span id="L1001" class="LineNr">1001 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1002" class="LineNr">1002 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L1002" class="LineNr">1002 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L1003" class="LineNr">1003 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1004" class="LineNr">1004 </span> <span class="Constant">" 87 d8 \n"</span> <span class="Comment">// exchange EBX with EAX</span> +<span id="L1004" class="LineNr">1004 </span> <span class="Constant">" 87 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// exchange EBX with EAX</span> <span id="L1005" class="LineNr">1005 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L1006" class="LineNr">1006 </span> <span class="Delimiter">);</span> <span id="L1007" class="LineNr">1007 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1008" class="LineNr">1008 </span> <span class="Constant">"run: exchange <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L1009" class="LineNr">1009 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L1010" class="LineNr">1010 </span> <span class="Constant">"run: storing 0x000000af in r/m32\n"</span> -<span id="L1011" class="LineNr">1011 </span> <span class="Constant">"run: storing 0x0000002e in EBX\n"</span> +<span id="L1008" class="LineNr">1008 </span> <span class="Constant">"run: exchange <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1009" class="LineNr">1009 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1010" class="LineNr">1010 </span> <span class="Constant">"run: storing 0x000000af in r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1011" class="LineNr">1011 </span> <span class="Constant">"run: storing 0x0000002e in <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1012" class="LineNr">1012 </span> <span class="Delimiter">);</span> <span id="L1013" class="LineNr">1013 </span><span class="Delimiter">}</span> <span id="L1014" class="LineNr">1014 </span> @@ -1077,39 +1076,39 @@ if ('onhashchange' in window) { <span id="L1016" class="LineNr">1016 </span><span class="Normal">case</span> <span class="Constant">0x87</span>: <span class="Delimiter">{</span> <span class="Comment">// exchange r32 with r/m32</span> <span id="L1017" class="LineNr">1017 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L1018" class="LineNr">1018 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg2 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1019" class="LineNr">1019 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"exchange "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1019" class="LineNr">1019 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"exchange "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1020" class="LineNr">1020 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1021" class="LineNr">1021 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> tmp = *arg1<span class="Delimiter">;</span> -<span id="L1022" class="LineNr">1022 </span> *arg1 = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> -<span id="L1023" class="LineNr">1023 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i = tmp<span class="Delimiter">;</span> -<span id="L1024" class="LineNr">1024 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << <span class="Constant">" in r/m32"</span> << end<span class="Delimiter">();</span> -<span id="L1025" class="LineNr">1025 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg2]<span class="Delimiter">.</span>i << <span class="Constant">" in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1022" class="LineNr">1022 </span> *arg1 = Reg[reg2]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L1023" class="LineNr">1023 </span> Reg[reg2]<span class="Delimiter">.</span>i = tmp<span class="Delimiter">;</span> +<span id="L1024" class="LineNr">1024 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << <span class="Constant">" in r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1025" class="LineNr">1025 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[reg2]<span class="Delimiter">.</span>i << <span class="Constant">" in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg2<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1026" class="LineNr">1026 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1027" class="LineNr">1027 </span><span class="Delimiter">}</span> <span id="L1028" class="LineNr">1028 </span> -<span id="L1029" class="LineNr">1029 </span><span class="SalientComment">//:: increment</span> +<span id="L1029" class="LineNr">1029 </span><span class="Comment">//:: increment</span> <span id="L1030" class="LineNr">1030 </span> <span id="L1031" class="LineNr">1031 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1032" class="LineNr">1032 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L10'>EAX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1033" class="LineNr">1033 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L11'>ECX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1034" class="LineNr">1034 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L12'>EDX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1035" class="LineNr">1035 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L13'>EBX</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1036" class="LineNr">1036 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L14'>ESP</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1037" class="LineNr">1037 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L15'>EBP</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1038" class="LineNr">1038 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L16'>ESI</a> (inc)"</span><span class="Delimiter">);</span> -<span id="L1039" class="LineNr">1039 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L17'>EDI</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1032" class="LineNr">1032 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L10'>EAX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1033" class="LineNr">1033 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L11'>ECX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1034" class="LineNr">1034 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L12'>EDX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1035" class="LineNr">1035 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L13'>EBX</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1036" class="LineNr">1036 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L14'>ESP</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1037" class="LineNr">1037 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L15'>EBP</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1038" class="LineNr">1038 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L16'>ESI</a> (inc)"</span><span class="Delimiter">);</span> +<span id="L1039" class="LineNr">1039 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">"increment <a href='010vm.cc.html#L17'>EDI</a> (inc)"</span><span class="Delimiter">);</span> <span id="L1040" class="LineNr">1040 </span> <span id="L1041" class="LineNr">1041 </span><span class="Delimiter">:(code)</span> <span id="L1042" class="LineNr">1042 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1042'>test_increment_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1043" class="LineNr">1043 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L1043" class="LineNr">1043 </span> Reg[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L1044" class="LineNr">1044 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1045" class="LineNr">1045 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L1045" class="LineNr">1045 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L1046" class="LineNr">1046 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1047" class="LineNr">1047 </span> <span class="Constant">" 41 \n"</span> <span class="Comment">// increment ECX</span> +<span id="L1047" class="LineNr">1047 </span> <span class="Constant">" 41 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// increment ECX</span> <span id="L1048" class="LineNr">1048 </span> <span class="Delimiter">);</span> <span id="L1049" class="LineNr">1049 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1050" class="LineNr">1050 </span> <span class="Constant">"run: increment ECX\n"</span> -<span id="L1051" class="LineNr">1051 </span> <span class="Constant">"run: storing value 0x00000020\n"</span> +<span id="L1050" class="LineNr">1050 </span> <span class="Constant">"run: increment <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1051" class="LineNr">1051 </span> <span class="Constant">"run: storing value 0x00000020</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1052" class="LineNr">1052 </span> <span class="Delimiter">);</span> <span id="L1053" class="LineNr">1053 </span><span class="Delimiter">}</span> <span id="L1054" class="LineNr">1054 </span> @@ -1123,28 +1122,28 @@ if ('onhashchange' in window) { <span id="L1062" class="LineNr">1062 </span><span class="Normal">case</span> <span class="Constant">0x46</span>: <span id="L1063" class="LineNr">1063 </span><span class="Normal">case</span> <span class="Constant">0x47</span>: <span class="Delimiter">{</span> <span class="Comment">// increment r32</span> <span id="L1064" class="LineNr">1064 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1065" class="LineNr">1065 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L1066" class="LineNr">1066 </span> ++<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L1067" class="LineNr">1067 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1065" class="LineNr">1065 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1066" class="LineNr">1066 </span> ++Reg[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L1067" class="LineNr">1067 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L1068" class="LineNr">1068 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1069" class="LineNr">1069 </span><span class="Delimiter">}</span> <span id="L1070" class="LineNr">1070 </span> <span id="L1071" class="LineNr">1071 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1072" class="LineNr">1072 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">"increment/decrement/jump/push/call rm32 based on subop (inc/dec/jmp/push/call)"</span><span class="Delimiter">);</span> +<span id="L1072" class="LineNr">1072 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">"increment/decrement/jump/push/call rm32 based on subop (inc/dec/jmp/push/call)"</span><span class="Delimiter">);</span> <span id="L1073" class="LineNr">1073 </span> <span id="L1074" class="LineNr">1074 </span><span class="Delimiter">:(code)</span> <span id="L1075" class="LineNr">1075 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1075'>test_increment_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1076" class="LineNr">1076 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> +<span id="L1076" class="LineNr">1076 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> <span id="L1077" class="LineNr">1077 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1078" class="LineNr">1078 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L1078" class="LineNr">1078 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L1079" class="LineNr">1079 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1080" class="LineNr">1080 </span> <span class="Constant">" ff c0 \n"</span> <span class="Comment">// increment EAX</span> +<span id="L1080" class="LineNr">1080 </span> <span class="Constant">" ff c0 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// increment EAX</span> <span id="L1081" class="LineNr">1081 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (subop inc) 000 (EAX)</span> <span id="L1082" class="LineNr">1082 </span> <span class="Delimiter">);</span> <span id="L1083" class="LineNr">1083 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1084" class="LineNr">1084 </span> <span class="Constant">"run: increment r/m32\n"</span> -<span id="L1085" class="LineNr">1085 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L1086" class="LineNr">1086 </span> <span class="Constant">"run: storing value 0x00000021\n"</span> +<span id="L1084" class="LineNr">1084 </span> <span class="Constant">"run: increment r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1085" class="LineNr">1085 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1086" class="LineNr">1086 </span> <span class="Constant">"run: storing value 0x00000021</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1087" class="LineNr">1087 </span> <span class="Delimiter">);</span> <span id="L1088" class="LineNr">1088 </span><span class="Delimiter">}</span> <span id="L1089" class="LineNr">1089 </span> @@ -1154,10 +1153,10 @@ if ('onhashchange' in window) { <span id="L1093" class="LineNr">1093 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L1094" class="LineNr">1094 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L1095" class="LineNr">1095 </span> <span class="Normal">case</span> <span class="Constant">0</span>: <span class="Delimiter">{</span> <span class="Comment">// increment r/m32</span> -<span id="L1096" class="LineNr">1096 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1096" class="LineNr">1096 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"increment r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1097" class="LineNr">1097 </span> <span class="Normal">int32_t</span>* <a href='001help.cc.html#L15'>arg</a> = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1098" class="LineNr">1098 </span> ++*arg<span class="Delimiter">;</span> -<span id="L1099" class="LineNr">1099 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> +<span id="L1099" class="LineNr">1099 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> <span id="L1100" class="LineNr">1100 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1101" class="LineNr">1101 </span> <span class="Delimiter">}</span> <span id="L1102" class="LineNr">1102 </span> <span class="Normal">default</span>: @@ -1168,29 +1167,29 @@ if ('onhashchange' in window) { <span id="L1107" class="LineNr">1107 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1108" class="LineNr">1108 </span><span class="Delimiter">}</span> <span id="L1109" class="LineNr">1109 </span> -<span id="L1110" class="LineNr">1110 </span><span class="SalientComment">//:: decrement</span> +<span id="L1110" class="LineNr">1110 </span><span class="Comment">//:: decrement</span> <span id="L1111" class="LineNr">1111 </span> <span id="L1112" class="LineNr">1112 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1113" class="LineNr">1113 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L10'>EAX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1114" class="LineNr">1114 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L11'>ECX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1115" class="LineNr">1115 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L12'>EDX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1116" class="LineNr">1116 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L13'>EBX</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1117" class="LineNr">1117 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L14'>ESP</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1118" class="LineNr">1118 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L15'>EBP</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1119" class="LineNr">1119 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L16'>ESI</a> (dec)"</span><span class="Delimiter">);</span> -<span id="L1120" class="LineNr">1120 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L17'>EDI</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1113" class="LineNr">1113 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L10'>EAX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1114" class="LineNr">1114 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L11'>ECX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1115" class="LineNr">1115 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L12'>EDX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1116" class="LineNr">1116 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L13'>EBX</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1117" class="LineNr">1117 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L14'>ESP</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1118" class="LineNr">1118 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L15'>EBP</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1119" class="LineNr">1119 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L16'>ESI</a> (dec)"</span><span class="Delimiter">);</span> +<span id="L1120" class="LineNr">1120 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">"decrement <a href='010vm.cc.html#L17'>EDI</a> (dec)"</span><span class="Delimiter">);</span> <span id="L1121" class="LineNr">1121 </span> <span id="L1122" class="LineNr">1122 </span><span class="Delimiter">:(code)</span> <span id="L1123" class="LineNr">1123 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1123'>test_decrement_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1124" class="LineNr">1124 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> +<span id="L1124" class="LineNr">1124 </span> Reg[ECX]<span class="Delimiter">.</span>u = <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L1125" class="LineNr">1125 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1126" class="LineNr">1126 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L1126" class="LineNr">1126 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L1127" class="LineNr">1127 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1128" class="LineNr">1128 </span> <span class="Constant">" 49 \n"</span> <span class="Comment">// decrement ECX</span> +<span id="L1128" class="LineNr">1128 </span> <span class="Constant">" 49 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// decrement ECX</span> <span id="L1129" class="LineNr">1129 </span> <span class="Delimiter">);</span> <span id="L1130" class="LineNr">1130 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1131" class="LineNr">1131 </span> <span class="Constant">"run: decrement ECX\n"</span> -<span id="L1132" class="LineNr">1132 </span> <span class="Constant">"run: storing value 0x0000001e\n"</span> +<span id="L1131" class="LineNr">1131 </span> <span class="Constant">"run: decrement <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1132" class="LineNr">1132 </span> <span class="Constant">"run: storing value 0x0000001e</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1133" class="LineNr">1133 </span> <span class="Delimiter">);</span> <span id="L1134" class="LineNr">1134 </span><span class="Delimiter">}</span> <span id="L1135" class="LineNr">1135 </span> @@ -1204,63 +1203,63 @@ if ('onhashchange' in window) { <span id="L1143" class="LineNr">1143 </span><span class="Normal">case</span> <span class="Constant">0x4e</span>: <span id="L1144" class="LineNr">1144 </span><span class="Normal">case</span> <span class="Constant">0x4f</span>: <span class="Delimiter">{</span> <span class="Comment">// decrement r32</span> <span id="L1145" class="LineNr">1145 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1146" class="LineNr">1146 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L1147" class="LineNr">1147 </span> --<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L1148" class="LineNr">1148 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1146" class="LineNr">1146 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1147" class="LineNr">1147 </span> --Reg[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L1148" class="LineNr">1148 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[reg]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L1149" class="LineNr">1149 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1150" class="LineNr">1150 </span><span class="Delimiter">}</span> <span id="L1151" class="LineNr">1151 </span> <span id="L1152" class="LineNr">1152 </span><span class="Delimiter">:(code)</span> <span id="L1153" class="LineNr">1153 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1153'>test_decrement_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1154" class="LineNr">1154 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> +<span id="L1154" class="LineNr">1154 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x20</span><span class="Delimiter">;</span> <span id="L1155" class="LineNr">1155 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1156" class="LineNr">1156 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L1156" class="LineNr">1156 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L1157" class="LineNr">1157 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1158" class="LineNr">1158 </span> <span class="Constant">" ff c8 \n"</span> <span class="Comment">// decrement EAX</span> +<span id="L1158" class="LineNr">1158 </span> <span class="Constant">" ff c8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// decrement EAX</span> <span id="L1159" class="LineNr">1159 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 001 (subop inc) 000 (EAX)</span> <span id="L1160" class="LineNr">1160 </span> <span class="Delimiter">);</span> <span id="L1161" class="LineNr">1161 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1162" class="LineNr">1162 </span> <span class="Constant">"run: decrement r/m32\n"</span> -<span id="L1163" class="LineNr">1163 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L1164" class="LineNr">1164 </span> <span class="Constant">"run: storing value 0x0000001f\n"</span> +<span id="L1162" class="LineNr">1162 </span> <span class="Constant">"run: decrement r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1163" class="LineNr">1163 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1164" class="LineNr">1164 </span> <span class="Constant">"run: storing value 0x0000001f</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1165" class="LineNr">1165 </span> <span class="Delimiter">);</span> <span id="L1166" class="LineNr">1166 </span><span class="Delimiter">}</span> <span id="L1167" class="LineNr">1167 </span> <span id="L1168" class="LineNr">1168 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L1169" class="LineNr">1169 </span><span class="Normal">case</span> <span class="Constant">1</span>: <span class="Delimiter">{</span> <span class="Comment">// decrement r/m32</span> -<span id="L1170" class="LineNr">1170 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1170" class="LineNr">1170 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"decrement r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1171" class="LineNr">1171 </span> <span class="Normal">int32_t</span>* <a href='001help.cc.html#L15'>arg</a> = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1172" class="LineNr">1172 </span> --*arg<span class="Delimiter">;</span> -<span id="L1173" class="LineNr">1173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> +<span id="L1173" class="LineNr">1173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg << end<span class="Delimiter">();</span> <span id="L1174" class="LineNr">1174 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1175" class="LineNr">1175 </span><span class="Delimiter">}</span> <span id="L1176" class="LineNr">1176 </span> -<span id="L1177" class="LineNr">1177 </span><span class="SalientComment">//:: push</span> +<span id="L1177" class="LineNr">1177 </span><span class="Comment">//:: push</span> <span id="L1178" class="LineNr">1178 </span> <span id="L1179" class="LineNr">1179 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1180" class="LineNr">1180 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L10'>EAX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1181" class="LineNr">1181 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L11'>ECX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1182" class="LineNr">1182 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L12'>EDX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1183" class="LineNr">1183 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L13'>EBX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1184" class="LineNr">1184 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L14'>ESP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1185" class="LineNr">1185 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L15'>EBP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1186" class="LineNr">1186 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L16'>ESI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> -<span id="L1187" class="LineNr">1187 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L17'>EDI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1180" class="LineNr">1180 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L10'>EAX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1181" class="LineNr">1181 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L11'>ECX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1182" class="LineNr">1182 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L12'>EDX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1183" class="LineNr">1183 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L13'>EBX</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1184" class="LineNr">1184 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L14'>ESP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1185" class="LineNr">1185 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L15'>EBP</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1186" class="LineNr">1186 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L16'>ESI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1187" class="LineNr">1187 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">"push <a href='010vm.cc.html#L17'>EDI</a> to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> <span id="L1188" class="LineNr">1188 </span> <span id="L1189" class="LineNr">1189 </span><span class="Delimiter">:(code)</span> <span id="L1190" class="LineNr">1190 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1190'>test_push_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1191" class="LineNr">1191 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L1192" class="LineNr">1192 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> -<span id="L1193" class="LineNr">1193 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0000000a</span><span class="Delimiter">;</span> +<span id="L1191" class="LineNr">1191 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L1192" class="LineNr">1192 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> +<span id="L1193" class="LineNr">1193 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0000000a</span><span class="Delimiter">;</span> <span id="L1194" class="LineNr">1194 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1195" class="LineNr">1195 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L1195" class="LineNr">1195 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L1196" class="LineNr">1196 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1197" class="LineNr">1197 </span> <span class="Constant">" 53 \n"</span> <span class="Comment">// push EBX to stack</span> +<span id="L1197" class="LineNr">1197 </span> <span class="Constant">" 53 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// push EBX to stack</span> <span id="L1198" class="LineNr">1198 </span> <span class="Delimiter">);</span> <span id="L1199" class="LineNr">1199 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1200" class="LineNr">1200 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> EBX\n"</span> -<span id="L1201" class="LineNr">1201 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000004\n"</span> -<span id="L1202" class="LineNr">1202 </span> <span class="Constant">"run: pushing value 0x0000000a\n"</span> +<span id="L1200" class="LineNr">1200 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1201" class="LineNr">1201 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000004</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1202" class="LineNr">1202 </span> <span class="Constant">"run: pushing value 0x0000000a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1203" class="LineNr">1203 </span> <span class="Delimiter">);</span> <span id="L1204" class="LineNr">1204 </span><span class="Delimiter">}</span> <span id="L1205" class="LineNr">1205 </span> @@ -1274,40 +1273,40 @@ if ('onhashchange' in window) { <span id="L1213" class="LineNr">1213 </span><span class="Normal">case</span> <span class="Constant">0x56</span>: <span id="L1214" class="LineNr">1214 </span><span class="Normal">case</span> <span class="Constant">0x57</span>: <span class="Delimiter">{</span> <span class="Comment">// push r32 to stack</span> <span id="L1215" class="LineNr">1215 </span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1216" class="LineNr">1216 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1216" class="LineNr">1216 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1217" class="LineNr">1217 </span><span class="CommentedCode">//? cerr << "push: " << NUM(reg) << ": " << Reg[reg].u << " => " << Reg[ESP].u << '\n';</span> -<span id="L1218" class="LineNr">1218 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L1218" class="LineNr">1218 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>Reg[reg]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> <span id="L1219" class="LineNr">1219 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1220" class="LineNr">1220 </span><span class="Delimiter">}</span> <span id="L1221" class="LineNr">1221 </span> -<span id="L1222" class="LineNr">1222 </span><span class="SalientComment">//:: pop</span> +<span id="L1222" class="LineNr">1222 </span><span class="Comment">//:: pop</span> <span id="L1223" class="LineNr">1223 </span> <span id="L1224" class="LineNr">1224 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1225" class="LineNr">1225 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L10'>EAX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1226" class="LineNr">1226 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L11'>ECX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1227" class="LineNr">1227 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L12'>EDX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1228" class="LineNr">1228 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L13'>EBX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1229" class="LineNr">1229 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L14'>ESP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1230" class="LineNr">1230 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L15'>EBP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1231" class="LineNr">1231 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L16'>ESI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> -<span id="L1232" class="LineNr">1232 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L17'>EDI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1225" class="LineNr">1225 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L10'>EAX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1226" class="LineNr">1226 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L11'>ECX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1227" class="LineNr">1227 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L12'>EDX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1228" class="LineNr">1228 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L13'>EBX</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1229" class="LineNr">1229 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L14'>ESP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1230" class="LineNr">1230 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L15'>EBP</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1231" class="LineNr">1231 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L16'>ESI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L1232" class="LineNr">1232 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to <a href='010vm.cc.html#L17'>EDI</a> (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> <span id="L1233" class="LineNr">1233 </span> <span id="L1234" class="LineNr">1234 </span><span class="Delimiter">:(code)</span> <span id="L1235" class="LineNr">1235 </span><span class="Normal">void</span> <a href='013direct_addressing.cc.html#L1235'>test_pop_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1236" class="LineNr">1236 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L1237" class="LineNr">1237 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> +<span id="L1236" class="LineNr">1236 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L1237" class="LineNr">1237 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000008</span><span class="Delimiter">;</span> <span id="L1238" class="LineNr">1238 </span> <a href='010vm.cc.html#L256'>write_mem_i32</a><span class="Delimiter">(</span><span class="Constant">0xbd000008</span><span class="Delimiter">,</span> <span class="Constant">0x0000000a</span><span class="Delimiter">);</span> <span class="Comment">// ..before this write</span> <span id="L1239" class="LineNr">1239 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1240" class="LineNr">1240 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L1240" class="LineNr">1240 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L1241" class="LineNr">1241 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1242" class="LineNr">1242 </span> <span class="Constant">" 5b \n"</span> <span class="Comment">// pop stack to EBX</span> -<span id="L1243" class="LineNr">1243 </span> <span class="Constant">"== data 0x2000\n"</span> <span class="Comment">// data segment</span> -<span id="L1244" class="LineNr">1244 </span> <span class="Constant">"0a 00 00 00\n"</span> <span class="Comment">// 0x0000000a</span> +<span id="L1242" class="LineNr">1242 </span> <span class="Constant">" 5b </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// pop stack to EBX</span> +<span id="L1243" class="LineNr">1243 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// data segment</span> +<span id="L1244" class="LineNr">1244 </span> <span class="Constant">"0a 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xa</span> <span id="L1245" class="LineNr">1245 </span> <span class="Delimiter">);</span> <span id="L1246" class="LineNr">1246 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1247" class="LineNr">1247 </span> <span class="Constant">"run: <a href='013direct_addressing.cc.html#L1270'>pop</a> into EBX\n"</span> -<span id="L1248" class="LineNr">1248 </span> <span class="Constant">"run: popping value 0x0000000a\n"</span> -<span id="L1249" class="LineNr">1249 </span> <span class="Constant">"run: incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd00000c\n"</span> +<span id="L1247" class="LineNr">1247 </span> <span class="Constant">"run: <a href='013direct_addressing.cc.html#L1270'>pop</a> into <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1248" class="LineNr">1248 </span> <span class="Constant">"run: popping value 0x0000000a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1249" class="LineNr">1249 </span> <span class="Constant">"run: incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd00000c</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1250" class="LineNr">1250 </span> <span class="Delimiter">);</span> <span id="L1251" class="LineNr">1251 </span><span class="Delimiter">}</span> <span id="L1252" class="LineNr">1252 </span> @@ -1321,21 +1320,24 @@ if ('onhashchange' in window) { <span id="L1260" class="LineNr">1260 </span><span class="Normal">case</span> <span class="Constant">0x5e</span>: <span id="L1261" class="LineNr">1261 </span><span class="Normal">case</span> <span class="Constant">0x5f</span>: <span class="Delimiter">{</span> <span class="Comment">// pop stack into r32</span> <span id="L1262" class="LineNr">1262 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='010vm.cc.html#L20'>reg</a> = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1263" class="LineNr">1263 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1263" class="LineNr">1263 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span><a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1264" class="LineNr">1264 </span><span class="CommentedCode">//? cerr << "pop from " << Reg[ESP].u << '\n';</span> -<span id="L1265" class="LineNr">1265 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> +<span id="L1265" class="LineNr">1265 </span> Reg[reg]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> <span id="L1266" class="LineNr">1266 </span><span class="CommentedCode">//? cerr << "=> " << NUM(reg) << ": " << Reg[reg].u << '\n';</span> <span id="L1267" class="LineNr">1267 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1268" class="LineNr">1268 </span><span class="Delimiter">}</span> <span id="L1269" class="LineNr">1269 </span><span class="Delimiter">:(code)</span> <span id="L1270" class="LineNr">1270 </span><span class="Normal">uint32_t</span> <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1271" class="LineNr">1271 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> result = <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> -<span id="L1272" class="LineNr">1272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"popping value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << result << end<span class="Delimiter">();</span> -<span id="L1273" class="LineNr">1273 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u += <span class="Constant">4</span><span class="Delimiter">;</span> -<span id="L1274" class="LineNr">1274 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L1275" class="LineNr">1275 </span> assert<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">);</span> +<span id="L1271" class="LineNr">1271 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> result = <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>Reg[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L1272" class="LineNr">1272 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"popping value 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << result << end<span class="Delimiter">();</span> +<span id="L1273" class="LineNr">1273 </span> Reg[ESP]<span class="Delimiter">.</span>u += <span class="Constant">4</span><span class="Delimiter">;</span> +<span id="L1274" class="LineNr">1274 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1275" class="LineNr">1275 </span> assert<span class="Delimiter">(</span>Reg[ESP]<span class="Delimiter">.</span>u < <a href='012elf.cc.html#L153'>AFTER_STACK</a><span class="Delimiter">);</span> <span id="L1276" class="LineNr">1276 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L1277" class="LineNr">1277 </span><span class="Delimiter">}</span> +<span id="L1278" class="LineNr">1278 </span> +<span id="L1279" class="LineNr">1279 </span><span class="Delimiter">:(before "End Includes")</span> +<span id="L1280" class="LineNr">1280 </span><span class="PreProc">#include </span><span class="Constant"><climits></span> </pre> </body> </html> diff --git a/html/014indirect_addressing.cc.html b/html/linux/bootstrap/014indirect_addressing.cc.html index 946be41c..27f28f32 100644 --- a/html/014indirect_addressing.cc.html +++ b/html/linux/bootstrap/014indirect_addressing.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 014indirect_addressing.cc</title> +<title>Mu - linux/bootstrap/014indirect_addressing.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,14 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.SalientComment { color: #0000af; } --> </style> @@ -55,26 +54,26 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/014indirect_addressing.cc'>https://github.com/akkartik/mu/blob/main/014indirect_addressing.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/014indirect_addressing.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/014indirect_addressing.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: operating on memory at the address provided by some register</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: we'll now start providing data in a separate segment</span> <span id="L3" class="LineNr"> 3 </span> -<span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L4'>test_add_r32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> -<span id="L6" class="LineNr"> 6 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L4'>test_add_r32_to_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L6" class="LineNr"> 6 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L7" class="LineNr"> 7 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L9" class="LineNr"> 9 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L10" class="LineNr"> 10 </span> <span class="Constant">" 01 18 \n"</span> <span class="Comment">// add EBX to *EAX</span> +<span id="L10" class="LineNr"> 10 </span> <span class="Constant">" 01 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *EAX</span> <span id="L11" class="LineNr"> 11 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L12" class="LineNr"> 12 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L12" class="LineNr"> 12 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L14" class="LineNr"> 14 </span> <span class="Delimiter">);</span> <span id="L15" class="LineNr"> 15 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L16" class="LineNr"> 16 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L16" class="LineNr"> 16 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">);</span> <span id="L20" class="LineNr"> 20 </span><span class="Delimiter">}</span> <span id="L21" class="LineNr"> 21 </span> @@ -82,8 +81,8 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span><span class="Normal">case</span> <span class="Constant">0</span>: <span class="Comment">// indirect addressing</span> <span id="L24" class="LineNr"> 24 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="Normal">default</span>: <span class="Comment">// address in register</span> -<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> -<span id="L27" class="LineNr"> 27 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[rm]<span class="Delimiter">.</span>u << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> addr = Reg[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L28" class="LineNr"> 28 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L29" class="LineNr"> 29 </span> <span class="Comment">// End Mod 0 Special-cases(addr)</span> <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> @@ -92,24 +91,24 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr"> 33 </span><span class="Comment">//:</span> <span id="L34" class="LineNr"> 34 </span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">"add rm32 to r32 (add)"</span><span class="Delimiter">);</span> +<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">"add rm32 to r32 (add)"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> -<span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L39'>test_add_mem_at_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L41" class="LineNr"> 41 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L39'>test_add_mem_at_rm32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L41" class="LineNr"> 41 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span id="L42" class="LineNr"> 42 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L44" class="LineNr"> 44 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 03 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add *EAX to EBX</span> <span id="L46" class="LineNr"> 46 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">);</span> <span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: add r/m32 to <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> <span id="L56" class="LineNr"> 56 </span> @@ -117,127 +116,127 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr"> 58 </span><span class="Normal">case</span> <span class="Constant">0x03</span>: <span class="Delimiter">{</span> <span class="Comment">// add r/m32 to r32</span> <span id="L59" class="LineNr"> 59 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L60" class="LineNr"> 60 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L61" class="LineNr"> 61 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L61" class="LineNr"> 61 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L62" class="LineNr"> 62 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i + *signed_arg2<span class="Delimiter">;</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Normal">int32_t</span> signed_result = Reg[arg1]<span class="Delimiter">.</span>i + *signed_arg2<span class="Delimiter">;</span> <span id="L64" class="LineNr"> 64 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L65" class="LineNr"> 65 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + *signed_arg2<span class="Delimiter">;</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + *signed_arg2<span class="Delimiter">;</span> <span id="L67" class="LineNr"> 67 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// set CF</span> <span id="L69" class="LineNr"> 69 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg2<span class="Delimiter">);</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Normal">uint32_t</span> unsigned_result = Reg[arg1]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> <span id="L72" class="LineNr"> 72 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L73" class="LineNr"> 73 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L74" class="LineNr"> 74 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L75" class="LineNr"> 75 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L73" class="LineNr"> 73 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L74" class="LineNr"> 74 </span> Reg[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L75" class="LineNr"> 75 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L76" class="LineNr"> 76 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L77" class="LineNr"> 77 </span><span class="Delimiter">}</span> <span id="L78" class="LineNr"> 78 </span> <span id="L79" class="LineNr"> 79 </span><span class="Delimiter">:(code)</span> -<span id="L80" class="LineNr"> 80 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L80'>test_add_mem_at_r32_to_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L81" class="LineNr"> 81 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L82" class="LineNr"> 82 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L80" class="LineNr"> 80 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L80'>test_add_mem_at_rm32_to_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L81" class="LineNr"> 81 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L82" class="LineNr"> 82 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> <span id="L83" class="LineNr"> 83 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L85" class="LineNr"> 85 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">" 03 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add *EAX to EBX</span> <span id="L87" class="LineNr"> 87 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 1</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">);</span> <span id="L91" class="LineNr"> 91 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1\n"</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: add r/m32 to <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: effective address contains 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">);</span> <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">}</span> <span id="L99" class="LineNr"> 99 </span> -<span id="L100" class="LineNr"> 100 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L100'>test_add_mem_at_r32_to_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr"> 101 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L102" class="LineNr"> 102 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> +<span id="L100" class="LineNr"> 100 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L100'>test_add_mem_at_rm32_to_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L101" class="LineNr"> 101 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L102" class="LineNr"> 102 </span> Reg[EBX]<span class="Delimiter">.</span>u = <span class="Constant">UINT32_MAX</span><span class="Delimiter">;</span> <span id="L103" class="LineNr"> 103 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L104" class="LineNr"> 104 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L104" class="LineNr"> 104 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L105" class="LineNr"> 105 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L106" class="LineNr"> 106 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> +<span id="L106" class="LineNr"> 106 </span> <span class="Constant">" 03 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add *EAX to EBX</span> <span id="L107" class="LineNr"> 107 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L108" class="LineNr"> 108 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L109" class="LineNr"> 109 </span> <span class="Constant">"01 00 00 00\n"</span> +<span id="L108" class="LineNr"> 108 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L109" class="LineNr"> 109 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L110" class="LineNr"> 110 </span> <span class="Delimiter">);</span> <span id="L111" class="LineNr"> 111 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L112" class="LineNr"> 112 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> -<span id="L113" class="LineNr"> 113 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L114" class="LineNr"> 114 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> -<span id="L115" class="LineNr"> 115 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0\n"</span> -<span id="L116" class="LineNr"> 116 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L112" class="LineNr"> 112 </span> <span class="Constant">"run: add r/m32 to <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L113" class="LineNr"> 113 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L114" class="LineNr"> 114 </span> <span class="Constant">"run: effective address contains 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L115" class="LineNr"> 115 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L116" class="LineNr"> 116 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L117" class="LineNr"> 117 </span> <span class="Delimiter">);</span> <span id="L118" class="LineNr"> 118 </span><span class="Delimiter">}</span> <span id="L119" class="LineNr"> 119 </span> -<span id="L120" class="LineNr"> 120 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L120'>test_add_mem_at_r32_to_r32_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L121" class="LineNr"> 121 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L122" class="LineNr"> 122 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L120" class="LineNr"> 120 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L120'>test_add_mem_at_rm32_to_r32_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L121" class="LineNr"> 121 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L122" class="LineNr"> 122 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L123" class="LineNr"> 123 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L124" class="LineNr"> 124 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L124" class="LineNr"> 124 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L125" class="LineNr"> 125 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L126" class="LineNr"> 126 </span> <span class="Constant">" 03 18 \n"</span> <span class="Comment">// add *EAX to EBX</span> +<span id="L126" class="LineNr"> 126 </span> <span class="Constant">" 03 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add *EAX to EBX</span> <span id="L127" class="LineNr"> 127 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L128" class="LineNr"> 128 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L129" class="LineNr"> 129 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L128" class="LineNr"> 128 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L129" class="LineNr"> 129 </span> <span class="Constant">"00 00 00 80</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// INT32_MIN</span> <span id="L130" class="LineNr"> 130 </span> <span class="Delimiter">);</span> <span id="L131" class="LineNr"> 131 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L132" class="LineNr"> 132 </span> <span class="Constant">"run: add r/m32 to EBX\n"</span> -<span id="L133" class="LineNr"> 133 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L134" class="LineNr"> 134 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> -<span id="L135" class="LineNr"> 135 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1\n"</span> -<span id="L136" class="LineNr"> 136 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L132" class="LineNr"> 132 </span> <span class="Constant">"run: add r/m32 to <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L133" class="LineNr"> 133 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L134" class="LineNr"> 134 </span> <span class="Constant">"run: effective address contains 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L135" class="LineNr"> 135 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L136" class="LineNr"> 136 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L137" class="LineNr"> 137 </span> <span class="Delimiter">);</span> <span id="L138" class="LineNr"> 138 </span><span class="Delimiter">}</span> <span id="L139" class="LineNr"> 139 </span> -<span id="L140" class="LineNr"> 140 </span><span class="SalientComment">//:: subtract</span> +<span id="L140" class="LineNr"> 140 </span><span class="Comment">//:: subtract</span> <span id="L141" class="LineNr"> 141 </span> <span id="L142" class="LineNr"> 142 </span><span class="Delimiter">:(code)</span> -<span id="L143" class="LineNr"> 143 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L143'>test_subtract_r32_from_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L144" class="LineNr"> 144 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L145" class="LineNr"> 145 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L143" class="LineNr"> 143 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L143'>test_subtract_r32_from_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L144" class="LineNr"> 144 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L145" class="LineNr"> 145 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L146" class="LineNr"> 146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L147" class="LineNr"> 147 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L147" class="LineNr"> 147 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L148" class="LineNr"> 148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L149" class="LineNr"> 149 </span> <span class="Constant">" 29 18 \n"</span> <span class="Comment">// subtract EBX from *EAX</span> +<span id="L149" class="LineNr"> 149 </span> <span class="Constant">" 29 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract EBX from *EAX</span> <span id="L150" class="LineNr"> 150 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L151" class="LineNr"> 151 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L152" class="LineNr"> 152 </span> <span class="Constant">"0a 00 00 00\n"</span> <span class="Comment">// 0x0000000a</span> +<span id="L151" class="LineNr"> 151 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L152" class="LineNr"> 152 </span> <span class="Constant">"0a 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xa</span> <span id="L153" class="LineNr"> 153 </span> <span class="Delimiter">);</span> <span id="L154" class="LineNr"> 154 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L155" class="LineNr"> 155 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32\n"</span> -<span id="L156" class="LineNr"> 156 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L157" class="LineNr"> 157 </span> <span class="Constant">"run: storing 0x00000009\n"</span> +<span id="L155" class="LineNr"> 155 </span> <span class="Constant">"run: subtract <a href='010vm.cc.html#L13'>EBX</a> from r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L156" class="LineNr"> 156 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L157" class="LineNr"> 157 </span> <span class="Constant">"run: storing 0x00000009</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L158" class="LineNr"> 158 </span> <span class="Delimiter">);</span> <span id="L159" class="LineNr"> 159 </span><span class="Delimiter">}</span> <span id="L160" class="LineNr"> 160 </span> <span id="L161" class="LineNr"> 161 </span><span class="Comment">//:</span> <span id="L162" class="LineNr"> 162 </span> <span id="L163" class="LineNr"> 163 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L164" class="LineNr"> 164 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">"subtract rm32 from r32 (sub)"</span><span class="Delimiter">);</span> +<span id="L164" class="LineNr"> 164 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">"subtract rm32 from r32 (sub)"</span><span class="Delimiter">);</span> <span id="L165" class="LineNr"> 165 </span> <span id="L166" class="LineNr"> 166 </span><span class="Delimiter">:(code)</span> -<span id="L167" class="LineNr"> 167 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L167'>test_subtract_mem_at_r32_from_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L168" class="LineNr"> 168 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L169" class="LineNr"> 169 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L167" class="LineNr"> 167 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L167'>test_subtract_mem_at_rm32_from_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L168" class="LineNr"> 168 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L169" class="LineNr"> 169 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> <span id="L170" class="LineNr"> 170 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L171" class="LineNr"> 171 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L171" class="LineNr"> 171 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L172" class="LineNr"> 172 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L173" class="LineNr"> 173 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> +<span id="L173" class="LineNr"> 173 </span> <span class="Constant">" 2b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract *EAX from EBX</span> <span id="L174" class="LineNr"> 174 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L175" class="LineNr"> 175 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L176" class="LineNr"> 176 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L175" class="LineNr"> 175 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L176" class="LineNr"> 176 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L177" class="LineNr"> 177 </span> <span class="Delimiter">);</span> <span id="L178" class="LineNr"> 178 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L179" class="LineNr"> 179 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> -<span id="L180" class="LineNr"> 180 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L181" class="LineNr"> 181 </span> <span class="Constant">"run: storing 0x00000009\n"</span> +<span id="L179" class="LineNr"> 179 </span> <span class="Constant">"run: subtract r/m32 from <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L180" class="LineNr"> 180 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L181" class="LineNr"> 181 </span> <span class="Constant">"run: storing 0x00000009</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L182" class="LineNr"> 182 </span> <span class="Delimiter">);</span> <span id="L183" class="LineNr"> 183 </span><span class="Delimiter">}</span> <span id="L184" class="LineNr"> 184 </span> @@ -245,126 +244,126 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr"> 186 </span><span class="Normal">case</span> <span class="Constant">0x2b</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract r/m32 from r32</span> <span id="L187" class="LineNr"> 187 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L188" class="LineNr"> 188 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L189" class="LineNr"> 189 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract r/m32 from "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L189" class="LineNr"> 189 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract r/m32 from "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L190" class="LineNr"> 190 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L191" class="LineNr"> 191 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> +<span id="L191" class="LineNr"> 191 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_result = Reg[arg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> <span id="L192" class="LineNr"> 192 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L193" class="LineNr"> 193 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L194" class="LineNr"> 194 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> +<span id="L194" class="LineNr"> 194 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> <span id="L195" class="LineNr"> 195 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L196" class="LineNr"> 196 </span> <span class="Comment">// set CF</span> <span id="L197" class="LineNr"> 197 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg2<span class="Delimiter">);</span> -<span id="L198" class="LineNr"> 198 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> -<span id="L199" class="LineNr"> 199 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> +<span id="L198" class="LineNr"> 198 </span> <span class="Normal">uint32_t</span> unsigned_result = Reg[arg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> +<span id="L199" class="LineNr"> 199 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> <span id="L200" class="LineNr"> 200 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L201" class="LineNr"> 201 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L202" class="LineNr"> 202 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L203" class="LineNr"> 203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L201" class="LineNr"> 201 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L202" class="LineNr"> 202 </span> Reg[arg1]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L203" class="LineNr"> 203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L204" class="LineNr"> 204 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L205" class="LineNr"> 205 </span><span class="Delimiter">}</span> <span id="L206" class="LineNr"> 206 </span> <span id="L207" class="LineNr"> 207 </span><span class="Delimiter">:(code)</span> -<span id="L208" class="LineNr"> 208 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L208'>test_subtract_mem_at_r32_from_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L209" class="LineNr"> 209 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L210" class="LineNr"> 210 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L208" class="LineNr"> 208 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L208'>test_subtract_mem_at_rm32_from_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L209" class="LineNr"> 209 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L210" class="LineNr"> 210 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L211" class="LineNr"> 211 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L212" class="LineNr"> 212 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L212" class="LineNr"> 212 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L213" class="LineNr"> 213 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L214" class="LineNr"> 214 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> +<span id="L214" class="LineNr"> 214 </span> <span class="Constant">" 2b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract *EAX from EBX</span> <span id="L215" class="LineNr"> 215 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L216" class="LineNr"> 216 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L217" class="LineNr"> 217 </span> <span class="Constant">"ff ff ff 7f\n"</span> <span class="Comment">// largest positive signed integer</span> +<span id="L216" class="LineNr"> 216 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L217" class="LineNr"> 217 </span> <span class="Constant">"ff ff ff 7f</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// INT32_MAX</span> <span id="L218" class="LineNr"> 218 </span> <span class="Delimiter">);</span> <span id="L219" class="LineNr"> 219 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L220" class="LineNr"> 220 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> -<span id="L221" class="LineNr"> 221 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L222" class="LineNr"> 222 </span> <span class="Constant">"run: effective address contains 0x7fffffff\n"</span> -<span id="L223" class="LineNr"> 223 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1\n"</span> -<span id="L224" class="LineNr"> 224 </span> <span class="Constant">"run: storing 0x00000001\n"</span> +<span id="L220" class="LineNr"> 220 </span> <span class="Constant">"run: subtract r/m32 from <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L221" class="LineNr"> 221 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L222" class="LineNr"> 222 </span> <span class="Constant">"run: effective address contains 0x7fffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L223" class="LineNr"> 223 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L224" class="LineNr"> 224 </span> <span class="Constant">"run: storing 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L225" class="LineNr"> 225 </span> <span class="Delimiter">);</span> <span id="L226" class="LineNr"> 226 </span><span class="Delimiter">}</span> <span id="L227" class="LineNr"> 227 </span> -<span id="L228" class="LineNr"> 228 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L228'>test_subtract_mem_at_r32_from_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr"> 229 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L230" class="LineNr"> 230 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L228" class="LineNr"> 228 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L228'>test_subtract_mem_at_rm32_from_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr"> 229 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L230" class="LineNr"> 230 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L231" class="LineNr"> 231 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L232" class="LineNr"> 232 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L232" class="LineNr"> 232 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L233" class="LineNr"> 233 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L234" class="LineNr"> 234 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> +<span id="L234" class="LineNr"> 234 </span> <span class="Constant">" 2b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract *EAX from EBX</span> <span id="L235" class="LineNr"> 235 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L236" class="LineNr"> 236 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L237" class="LineNr"> 237 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 1</span> +<span id="L236" class="LineNr"> 236 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L237" class="LineNr"> 237 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L238" class="LineNr"> 238 </span> <span class="Delimiter">);</span> <span id="L239" class="LineNr"> 239 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L240" class="LineNr"> 240 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> -<span id="L241" class="LineNr"> 241 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L242" class="LineNr"> 242 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> -<span id="L243" class="LineNr"> 243 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> -<span id="L244" class="LineNr"> 244 </span> <span class="Constant">"run: storing 0xffffffff\n"</span> +<span id="L240" class="LineNr"> 240 </span> <span class="Constant">"run: subtract r/m32 from <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L241" class="LineNr"> 241 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L242" class="LineNr"> 242 </span> <span class="Constant">"run: effective address contains 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L243" class="LineNr"> 243 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L244" class="LineNr"> 244 </span> <span class="Constant">"run: storing 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L245" class="LineNr"> 245 </span> <span class="Delimiter">);</span> <span id="L246" class="LineNr"> 246 </span><span class="Delimiter">}</span> <span id="L247" class="LineNr"> 247 </span> -<span id="L248" class="LineNr"> 248 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L248'>test_subtract_mem_at_r32_from_r32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L249" class="LineNr"> 249 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L250" class="LineNr"> 250 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L248" class="LineNr"> 248 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L248'>test_subtract_mem_at_rm32_from_r32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L249" class="LineNr"> 249 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L250" class="LineNr"> 250 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L251" class="LineNr"> 251 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L252" class="LineNr"> 252 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L252" class="LineNr"> 252 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L253" class="LineNr"> 253 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L254" class="LineNr"> 254 </span> <span class="Constant">" 2b 18 \n"</span> <span class="Comment">// subtract *EAX from EBX</span> +<span id="L254" class="LineNr"> 254 </span> <span class="Constant">" 2b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract *EAX from EBX</span> <span id="L255" class="LineNr"> 255 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L256" class="LineNr"> 256 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L257" class="LineNr"> 257 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L256" class="LineNr"> 256 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L257" class="LineNr"> 257 </span> <span class="Constant">"00 00 00 80</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// INT32_MIN</span> <span id="L258" class="LineNr"> 258 </span> <span class="Delimiter">);</span> <span id="L259" class="LineNr"> 259 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L260" class="LineNr"> 260 </span> <span class="Constant">"run: subtract r/m32 from EBX\n"</span> -<span id="L261" class="LineNr"> 261 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L262" class="LineNr"> 262 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> -<span id="L263" class="LineNr"> 263 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> -<span id="L264" class="LineNr"> 264 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L260" class="LineNr"> 260 </span> <span class="Constant">"run: subtract r/m32 from <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L261" class="LineNr"> 261 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L262" class="LineNr"> 262 </span> <span class="Constant">"run: effective address contains 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L263" class="LineNr"> 263 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L264" class="LineNr"> 264 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L265" class="LineNr"> 265 </span> <span class="Delimiter">);</span> <span id="L266" class="LineNr"> 266 </span><span class="Delimiter">}</span> <span id="L267" class="LineNr"> 267 </span> -<span id="L268" class="LineNr"> 268 </span><span class="SalientComment">//:: and</span> +<span id="L268" class="LineNr"> 268 </span><span class="Comment">//:: and</span> <span id="L269" class="LineNr"> 269 </span><span class="Delimiter">:(code)</span> -<span id="L270" class="LineNr"> 270 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L270'>test_and_r32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L271" class="LineNr"> 271 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L272" class="LineNr"> 272 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> +<span id="L270" class="LineNr"> 270 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L270'>test_and_r32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L271" class="LineNr"> 271 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L272" class="LineNr"> 272 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span id="L273" class="LineNr"> 273 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L274" class="LineNr"> 274 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L274" class="LineNr"> 274 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L275" class="LineNr"> 275 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L276" class="LineNr"> 276 </span> <span class="Constant">" 21 18 \n"</span> <span class="Comment">// and EBX with *EAX</span> +<span id="L276" class="LineNr"> 276 </span> <span class="Constant">" 21 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// and EBX with *EAX</span> <span id="L277" class="LineNr"> 277 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L278" class="LineNr"> 278 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L279" class="LineNr"> 279 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L278" class="LineNr"> 278 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L279" class="LineNr"> 279 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L280" class="LineNr"> 280 </span> <span class="Delimiter">);</span> <span id="L281" class="LineNr"> 281 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L282" class="LineNr"> 282 </span> <span class="Constant">"run: and <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L283" class="LineNr"> 283 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L284" class="LineNr"> 284 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L282" class="LineNr"> 282 </span> <span class="Constant">"run: and <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L283" class="LineNr"> 283 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L284" class="LineNr"> 284 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L285" class="LineNr"> 285 </span> <span class="Delimiter">);</span> <span id="L286" class="LineNr"> 286 </span><span class="Delimiter">}</span> <span id="L287" class="LineNr"> 287 </span> <span id="L288" class="LineNr"> 288 </span><span class="Comment">//:</span> <span id="L289" class="LineNr"> 289 </span> <span id="L290" class="LineNr"> 290 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L291" class="LineNr"> 291 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> +<span id="L291" class="LineNr"> 291 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise AND of r32 with rm32 (and)"</span><span class="Delimiter">);</span> <span id="L292" class="LineNr"> 292 </span> <span id="L293" class="LineNr"> 293 </span><span class="Delimiter">:(code)</span> -<span id="L294" class="LineNr"> 294 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L294'>test_and_mem_at_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L295" class="LineNr"> 295 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L296" class="LineNr"> 296 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L294" class="LineNr"> 294 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L294'>test_and_mem_at_rm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L295" class="LineNr"> 295 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L296" class="LineNr"> 296 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L297" class="LineNr"> 297 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L298" class="LineNr"> 298 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L298" class="LineNr"> 298 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L299" class="LineNr"> 299 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L300" class="LineNr"> 300 </span> <span class="Constant">" 23 18 \n"</span> <span class="Comment">// and *EAX with EBX</span> +<span id="L300" class="LineNr"> 300 </span> <span class="Constant">" 23 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// and *EAX with EBX</span> <span id="L301" class="LineNr"> 301 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L302" class="LineNr"> 302 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L303" class="LineNr"> 303 </span> <span class="Constant">"ff 00 00 00\n"</span> <span class="Comment">// 0x000000ff</span> +<span id="L302" class="LineNr"> 302 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L303" class="LineNr"> 303 </span> <span class="Constant">"ff 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xff</span> <span id="L304" class="LineNr"> 304 </span> <span class="Delimiter">);</span> <span id="L305" class="LineNr"> 305 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L306" class="LineNr"> 306 </span> <span class="Constant">"run: and r/m32 with EBX\n"</span> -<span id="L307" class="LineNr"> 307 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L308" class="LineNr"> 308 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L306" class="LineNr"> 306 </span> <span class="Constant">"run: and r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L307" class="LineNr"> 307 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L308" class="LineNr"> 308 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L309" class="LineNr"> 309 </span> <span class="Delimiter">);</span> <span id="L310" class="LineNr"> 310 </span><span class="Delimiter">}</span> <span id="L311" class="LineNr"> 311 </span> @@ -372,62 +371,62 @@ if ('onhashchange' in window) { <span id="L313" class="LineNr"> 313 </span><span class="Normal">case</span> <span class="Constant">0x23</span>: <span class="Delimiter">{</span> <span class="Comment">// and r/m32 with r32</span> <span id="L314" class="LineNr"> 314 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L315" class="LineNr"> 315 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L316" class="LineNr"> 316 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L316" class="LineNr"> 316 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L317" class="LineNr"> 317 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L318" class="LineNr"> 318 </span> <span class="Comment">// difference</span> <span id="L319" class="LineNr"> 319 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L320" class="LineNr"> 320 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i &= *signed_arg2<span class="Delimiter">;</span> -<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L322" class="LineNr"> 322 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L323" class="LineNr"> 323 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L320" class="LineNr"> 320 </span> Reg[arg1]<span class="Delimiter">.</span>i &= *signed_arg2<span class="Delimiter">;</span> +<span id="L321" class="LineNr"> 321 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L322" class="LineNr"> 322 </span> SF = <span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L323" class="LineNr"> 323 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L324" class="LineNr"> 324 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L325" class="LineNr"> 325 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L326" class="LineNr"> 326 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L326" class="LineNr"> 326 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L327" class="LineNr"> 327 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L328" class="LineNr"> 328 </span><span class="Delimiter">}</span> <span id="L329" class="LineNr"> 329 </span> -<span id="L330" class="LineNr"> 330 </span><span class="SalientComment">//:: or</span> +<span id="L330" class="LineNr"> 330 </span><span class="Comment">//:: or</span> <span id="L331" class="LineNr"> 331 </span> <span id="L332" class="LineNr"> 332 </span><span class="Delimiter">:(code)</span> -<span id="L333" class="LineNr"> 333 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L333'>test_or_r32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L334" class="LineNr"> 334 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L335" class="LineNr"> 335 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L333" class="LineNr"> 333 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L333'>test_or_r32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L334" class="LineNr"> 334 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L335" class="LineNr"> 335 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L336" class="LineNr"> 336 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L337" class="LineNr"> 337 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L337" class="LineNr"> 337 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L338" class="LineNr"> 338 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L339" class="LineNr"> 339 </span> <span class="Constant">" 09 18 #\n"</span> <span class="Comment">// EBX with *EAX</span> +<span id="L339" class="LineNr"> 339 </span> <span class="Constant">" 09 18 #</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// EBX with *EAX</span> <span id="L340" class="LineNr"> 340 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L341" class="LineNr"> 341 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L342" class="LineNr"> 342 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L341" class="LineNr"> 341 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L342" class="LineNr"> 342 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L343" class="LineNr"> 343 </span> <span class="Delimiter">);</span> <span id="L344" class="LineNr"> 344 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: or <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L347" class="LineNr"> 347 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> +<span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: or <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L347" class="LineNr"> 347 </span> <span class="Constant">"run: storing 0xaabbccdd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L348" class="LineNr"> 348 </span> <span class="Delimiter">);</span> <span id="L349" class="LineNr"> 349 </span><span class="Delimiter">}</span> <span id="L350" class="LineNr"> 350 </span> <span id="L351" class="LineNr"> 351 </span><span class="Comment">//:</span> <span id="L352" class="LineNr"> 352 </span> <span id="L353" class="LineNr"> 353 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L354" class="LineNr"> 354 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> +<span id="L354" class="LineNr"> 354 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise OR of r32 with rm32 (or)"</span><span class="Delimiter">);</span> <span id="L355" class="LineNr"> 355 </span> <span id="L356" class="LineNr"> 356 </span><span class="Delimiter">:(code)</span> -<span id="L357" class="LineNr"> 357 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L357'>test_or_mem_at_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L358" class="LineNr"> 358 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L359" class="LineNr"> 359 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L357" class="LineNr"> 357 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L357'>test_or_mem_at_rm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L358" class="LineNr"> 358 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L359" class="LineNr"> 359 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L360" class="LineNr"> 360 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L361" class="LineNr"> 361 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L361" class="LineNr"> 361 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L362" class="LineNr"> 362 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L363" class="LineNr"> 363 </span> <span class="Constant">" 0b 18 \n"</span> <span class="Comment">// or *EAX with EBX</span> +<span id="L363" class="LineNr"> 363 </span> <span class="Constant">" 0b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// or *EAX with EBX</span> <span id="L364" class="LineNr"> 364 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L365" class="LineNr"> 365 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L366" class="LineNr"> 366 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L365" class="LineNr"> 365 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L366" class="LineNr"> 366 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L367" class="LineNr"> 367 </span> <span class="Delimiter">);</span> <span id="L368" class="LineNr"> 368 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L369" class="LineNr"> 369 </span> <span class="Constant">"run: or r/m32 with EBX\n"</span> -<span id="L370" class="LineNr"> 370 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L371" class="LineNr"> 371 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> +<span id="L369" class="LineNr"> 369 </span> <span class="Constant">"run: or r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L370" class="LineNr"> 370 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L371" class="LineNr"> 371 </span> <span class="Constant">"run: storing 0xaabbccdd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L372" class="LineNr"> 372 </span> <span class="Delimiter">);</span> <span id="L373" class="LineNr"> 373 </span><span class="Delimiter">}</span> <span id="L374" class="LineNr"> 374 </span> @@ -435,61 +434,61 @@ if ('onhashchange' in window) { <span id="L376" class="LineNr"> 376 </span><span class="Normal">case</span> <span class="Constant">0x0b</span>: <span class="Delimiter">{</span> <span class="Comment">// or r/m32 with r32</span> <span id="L377" class="LineNr"> 377 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L378" class="LineNr"> 378 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L379" class="LineNr"> 379 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L379" class="LineNr"> 379 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L380" class="LineNr"> 380 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L381" class="LineNr"> 381 </span> <span class="Comment">// difference</span> <span id="L382" class="LineNr"> 382 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L383" class="LineNr"> 383 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> -<span id="L384" class="LineNr"> 384 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L385" class="LineNr"> 385 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L386" class="LineNr"> 386 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L383" class="LineNr"> 383 </span> Reg[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> +<span id="L384" class="LineNr"> 384 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L385" class="LineNr"> 385 </span> SF = <span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L386" class="LineNr"> 386 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L387" class="LineNr"> 387 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L388" class="LineNr"> 388 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L389" class="LineNr"> 389 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L389" class="LineNr"> 389 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L390" class="LineNr"> 390 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L391" class="LineNr"> 391 </span><span class="Delimiter">}</span> <span id="L392" class="LineNr"> 392 </span> -<span id="L393" class="LineNr"> 393 </span><span class="SalientComment">//:: xor</span> +<span id="L393" class="LineNr"> 393 </span><span class="Comment">//:: xor</span> <span id="L394" class="LineNr"> 394 </span> <span id="L395" class="LineNr"> 395 </span><span class="Delimiter">:(code)</span> -<span id="L396" class="LineNr"> 396 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L396'>test_xor_r32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L397" class="LineNr"> 397 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L398" class="LineNr"> 398 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L396" class="LineNr"> 396 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L396'>test_xor_r32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L397" class="LineNr"> 397 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L398" class="LineNr"> 398 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L399" class="LineNr"> 399 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L400" class="LineNr"> 400 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L400" class="LineNr"> 400 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L401" class="LineNr"> 401 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L402" class="LineNr"> 402 </span> <span class="Constant">" 31 18 \n"</span> <span class="Comment">// xor EBX with *EAX</span> -<span id="L403" class="LineNr"> 403 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L404" class="LineNr"> 404 </span> <span class="Constant">"0d 0c bb aa\n"</span> <span class="Comment">// 0xaabb0c0d</span> +<span id="L402" class="LineNr"> 402 </span> <span class="Constant">" 31 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// xor EBX with *EAX</span> +<span id="L403" class="LineNr"> 403 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L404" class="LineNr"> 404 </span> <span class="Constant">"0d 0c bb aa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xaabb0c0d</span> <span id="L405" class="LineNr"> 405 </span> <span class="Delimiter">);</span> <span id="L406" class="LineNr"> 406 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: xor <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L408" class="LineNr"> 408 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L409" class="LineNr"> 409 </span> <span class="Constant">"run: storing 0x0a0bccdd\n"</span> +<span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: xor <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L408" class="LineNr"> 408 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L409" class="LineNr"> 409 </span> <span class="Constant">"run: storing 0x0a0bccdd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L410" class="LineNr"> 410 </span> <span class="Delimiter">);</span> <span id="L411" class="LineNr"> 411 </span><span class="Delimiter">}</span> <span id="L412" class="LineNr"> 412 </span> <span id="L413" class="LineNr"> 413 </span><span class="Comment">//:</span> <span id="L414" class="LineNr"> 414 </span> <span id="L415" class="LineNr"> 415 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L416" class="LineNr"> 416 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> +<span id="L416" class="LineNr"> 416 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">"r32 = bitwise XOR of r32 with rm32 (xor)"</span><span class="Delimiter">);</span> <span id="L417" class="LineNr"> 417 </span> <span id="L418" class="LineNr"> 418 </span><span class="Delimiter">:(code)</span> -<span id="L419" class="LineNr"> 419 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L419'>test_xor_mem_at_r32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L420" class="LineNr"> 420 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L421" class="LineNr"> 421 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> +<span id="L419" class="LineNr"> 419 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L419'>test_xor_mem_at_rm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L420" class="LineNr"> 420 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L421" class="LineNr"> 421 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xa0b0c0d0</span><span class="Delimiter">;</span> <span id="L422" class="LineNr"> 422 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L423" class="LineNr"> 423 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L423" class="LineNr"> 423 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L424" class="LineNr"> 424 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L425" class="LineNr"> 425 </span> <span class="Constant">" 33 18 \n"</span> <span class="Comment">// xor *EAX with EBX</span> +<span id="L425" class="LineNr"> 425 </span> <span class="Constant">" 33 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// xor *EAX with EBX</span> <span id="L426" class="LineNr"> 426 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L427" class="LineNr"> 427 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L428" class="LineNr"> 428 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L427" class="LineNr"> 427 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L428" class="LineNr"> 428 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L429" class="LineNr"> 429 </span> <span class="Delimiter">);</span> <span id="L430" class="LineNr"> 430 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L431" class="LineNr"> 431 </span> <span class="Constant">"run: xor r/m32 with EBX\n"</span> -<span id="L432" class="LineNr"> 432 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L433" class="LineNr"> 433 </span> <span class="Constant">"run: storing 0xaabbccdd\n"</span> +<span id="L431" class="LineNr"> 431 </span> <span class="Constant">"run: xor r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L432" class="LineNr"> 432 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L433" class="LineNr"> 433 </span> <span class="Constant">"run: storing 0xaabbccdd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L434" class="LineNr"> 434 </span> <span class="Delimiter">);</span> <span id="L435" class="LineNr"> 435 </span><span class="Delimiter">}</span> <span id="L436" class="LineNr"> 436 </span> @@ -497,121 +496,121 @@ if ('onhashchange' in window) { <span id="L438" class="LineNr"> 438 </span><span class="Normal">case</span> <span class="Constant">0x33</span>: <span class="Delimiter">{</span> <span class="Comment">// xor r/m32 with r32</span> <span id="L439" class="LineNr"> 439 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L440" class="LineNr"> 440 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor r/m32 with "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L442" class="LineNr"> 442 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L443" class="LineNr"> 443 </span> <span class="Comment">// difference</span> <span id="L444" class="LineNr"> 444 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L445" class="LineNr"> 445 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> -<span id="L446" class="LineNr"> 446 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L447" class="LineNr"> 447 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L448" class="LineNr"> 448 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L445" class="LineNr"> 445 </span> Reg[arg1]<span class="Delimiter">.</span>i |= *signed_arg2<span class="Delimiter">;</span> +<span id="L446" class="LineNr"> 446 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[arg1]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L447" class="LineNr"> 447 </span> SF = <span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L448" class="LineNr"> 448 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>Reg[arg1]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L449" class="LineNr"> 449 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L450" class="LineNr"> 450 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L451" class="LineNr"> 451 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L451" class="LineNr"> 451 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L452" class="LineNr"> 452 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L453" class="LineNr"> 453 </span><span class="Delimiter">}</span> <span id="L454" class="LineNr"> 454 </span> -<span id="L455" class="LineNr"> 455 </span><span class="SalientComment">//:: not</span> +<span id="L455" class="LineNr"> 455 </span><span class="Comment">//:: not</span> <span id="L456" class="LineNr"> 456 </span> <span id="L457" class="LineNr"> 457 </span><span class="Delimiter">:(code)</span> -<span id="L458" class="LineNr"> 458 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L458'>test_not_of_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L459" class="LineNr"> 459 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L458" class="LineNr"> 458 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L458'>test_not_of_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L459" class="LineNr"> 459 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L460" class="LineNr"> 460 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L461" class="LineNr"> 461 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L461" class="LineNr"> 461 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L462" class="LineNr"> 462 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L463" class="LineNr"> 463 </span> <span class="Constant">" f7 13 \n"</span> <span class="Comment">// not *EBX</span> +<span id="L463" class="LineNr"> 463 </span> <span class="Constant">" f7 13 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// not *EBX</span> <span id="L464" class="LineNr"> 464 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 010 (subop not) 011 (dest EBX)</span> -<span id="L465" class="LineNr"> 465 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L466" class="LineNr"> 466 </span> <span class="Constant">"ff 00 0f 0f\n"</span> <span class="Comment">// 0x0f0f00ff</span> +<span id="L465" class="LineNr"> 465 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L466" class="LineNr"> 466 </span> <span class="Constant">"ff 00 0f 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0f0f00ff</span> <span id="L467" class="LineNr"> 467 </span> <span class="Delimiter">);</span> <span id="L468" class="LineNr"> 468 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L469" class="LineNr"> 469 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L470" class="LineNr"> 470 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L471" class="LineNr"> 471 </span> <span class="Constant">"run: subop: not\n"</span> -<span id="L472" class="LineNr"> 472 </span> <span class="Constant">"run: storing 0xf0f0ff00\n"</span> +<span id="L469" class="LineNr"> 469 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L470" class="LineNr"> 470 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L471" class="LineNr"> 471 </span> <span class="Constant">"run: subop: not</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L472" class="LineNr"> 472 </span> <span class="Constant">"run: storing 0xf0f0ff00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L473" class="LineNr"> 473 </span> <span class="Delimiter">);</span> <span id="L474" class="LineNr"> 474 </span><span class="Delimiter">}</span> <span id="L475" class="LineNr"> 475 </span> -<span id="L476" class="LineNr"> 476 </span><span class="SalientComment">//:: compare (cmp)</span> +<span id="L476" class="LineNr"> 476 </span><span class="Comment">//:: compare (cmp)</span> <span id="L477" class="LineNr"> 477 </span> <span id="L478" class="LineNr"> 478 </span><span class="Delimiter">:(code)</span> -<span id="L479" class="LineNr"> 479 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L479'>test_compare_mem_at_r32_with_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L480" class="LineNr"> 480 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L481" class="LineNr"> 481 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L479" class="LineNr"> 479 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L479'>test_compare_mem_at_rm32_with_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L480" class="LineNr"> 480 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L481" class="LineNr"> 481 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L482" class="LineNr"> 482 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L483" class="LineNr"> 483 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L483" class="LineNr"> 483 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L484" class="LineNr"> 484 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L485" class="LineNr"> 485 </span> <span class="Constant">" 39 18 \n"</span> <span class="Comment">// compare *EAX with EBX</span> +<span id="L485" class="LineNr"> 485 </span> <span class="Constant">" 39 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare *EAX with EBX</span> <span id="L486" class="LineNr"> 486 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L487" class="LineNr"> 487 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L488" class="LineNr"> 488 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L487" class="LineNr"> 487 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L488" class="LineNr"> 488 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L489" class="LineNr"> 489 </span> <span class="Delimiter">);</span> <span id="L490" class="LineNr"> 490 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L491" class="LineNr"> 491 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L492" class="LineNr"> 492 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L493" class="LineNr"> 493 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L491" class="LineNr"> 491 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L492" class="LineNr"> 492 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L493" class="LineNr"> 493 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L494" class="LineNr"> 494 </span> <span class="Delimiter">);</span> <span id="L495" class="LineNr"> 495 </span><span class="Delimiter">}</span> <span id="L496" class="LineNr"> 496 </span> <span id="L497" class="LineNr"> 497 </span><span class="Delimiter">:(code)</span> -<span id="L498" class="LineNr"> 498 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L498'>test_compare_mem_at_r32_with_r32_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L499" class="LineNr"> 499 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L500" class="LineNr"> 500 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L498" class="LineNr"> 498 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L498'>test_compare_mem_at_rm32_with_r32_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L499" class="LineNr"> 499 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L500" class="LineNr"> 500 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L501" class="LineNr"> 501 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L502" class="LineNr"> 502 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L502" class="LineNr"> 502 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L503" class="LineNr"> 503 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L504" class="LineNr"> 504 </span> <span class="Constant">" 39 18 \n"</span> <span class="Comment">// compare *EAX with EBX</span> +<span id="L504" class="LineNr"> 504 </span> <span class="Constant">" 39 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare *EAX with EBX</span> <span id="L505" class="LineNr"> 505 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L506" class="LineNr"> 506 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L507" class="LineNr"> 507 </span> <span class="Constant">"07 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L506" class="LineNr"> 506 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L507" class="LineNr"> 507 </span> <span class="Constant">"07 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L508" class="LineNr"> 508 </span> <span class="Delimiter">);</span> <span id="L509" class="LineNr"> 509 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L510" class="LineNr"> 510 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L511" class="LineNr"> 511 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L512" class="LineNr"> 512 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> +<span id="L510" class="LineNr"> 510 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L511" class="LineNr"> 511 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L512" class="LineNr"> 512 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L513" class="LineNr"> 513 </span> <span class="Delimiter">);</span> <span id="L514" class="LineNr"> 514 </span><span class="Delimiter">}</span> <span id="L515" class="LineNr"> 515 </span> <span id="L516" class="LineNr"> 516 </span><span class="Delimiter">:(code)</span> -<span id="L517" class="LineNr"> 517 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L517'>test_compare_mem_at_r32_with_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L518" class="LineNr"> 518 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L519" class="LineNr"> 519 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L517" class="LineNr"> 517 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L517'>test_compare_mem_at_rm32_with_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L518" class="LineNr"> 518 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L519" class="LineNr"> 519 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L520" class="LineNr"> 520 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L521" class="LineNr"> 521 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L521" class="LineNr"> 521 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L522" class="LineNr"> 522 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L523" class="LineNr"> 523 </span> <span class="Constant">" 39 18 \n"</span> <span class="Comment">// compare *EAX and EBX</span> +<span id="L523" class="LineNr"> 523 </span> <span class="Constant">" 39 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare *EAX and EBX</span> <span id="L524" class="LineNr"> 524 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L525" class="LineNr"> 525 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L526" class="LineNr"> 526 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L525" class="LineNr"> 525 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L526" class="LineNr"> 526 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L527" class="LineNr"> 527 </span> <span class="Delimiter">);</span> <span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L529" class="LineNr"> 529 </span> <span class="Constant">"run: compare r/m32 with EBX\n"</span> -<span id="L530" class="LineNr"> 530 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L531" class="LineNr"> 531 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> +<span id="L529" class="LineNr"> 529 </span> <span class="Constant">"run: compare r/m32 with <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L530" class="LineNr"> 530 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L531" class="LineNr"> 531 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L532" class="LineNr"> 532 </span> <span class="Delimiter">);</span> <span id="L533" class="LineNr"> 533 </span><span class="Delimiter">}</span> <span id="L534" class="LineNr"> 534 </span> <span id="L535" class="LineNr"> 535 </span><span class="Comment">//:</span> <span id="L536" class="LineNr"> 536 </span> <span id="L537" class="LineNr"> 537 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L538" class="LineNr"> 538 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if r32 < rm32 (cmp)"</span><span class="Delimiter">);</span> +<span id="L538" class="LineNr"> 538 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if r32 < rm32 (cmp)"</span><span class="Delimiter">);</span> <span id="L539" class="LineNr"> 539 </span> <span id="L540" class="LineNr"> 540 </span><span class="Delimiter">:(code)</span> <span id="L541" class="LineNr"> 541 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L541'>test_compare_r32_with_mem_at_rm32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L542" class="LineNr"> 542 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L543" class="LineNr"> 543 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L542" class="LineNr"> 542 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L543" class="LineNr"> 543 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L544" class="LineNr"> 544 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L545" class="LineNr"> 545 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L545" class="LineNr"> 545 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L546" class="LineNr"> 546 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L547" class="LineNr"> 547 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> +<span id="L547" class="LineNr"> 547 </span> <span class="Constant">" 3b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EBX with *EAX</span> <span id="L548" class="LineNr"> 548 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> -<span id="L549" class="LineNr"> 549 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L550" class="LineNr"> 550 </span> <span class="Constant">"07 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c07</span> +<span id="L549" class="LineNr"> 549 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L550" class="LineNr"> 550 </span> <span class="Constant">"07 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c07</span> <span id="L551" class="LineNr"> 551 </span> <span class="Delimiter">);</span> <span id="L552" class="LineNr"> 552 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L553" class="LineNr"> 553 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L554" class="LineNr"> 554 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L555" class="LineNr"> 555 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L553" class="LineNr"> 553 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L554" class="LineNr"> 554 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L555" class="LineNr"> 555 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L556" class="LineNr"> 556 </span> <span class="Delimiter">);</span> <span id="L557" class="LineNr"> 557 </span><span class="Delimiter">}</span> <span id="L558" class="LineNr"> 558 </span> @@ -619,153 +618,153 @@ if ('onhashchange' in window) { <span id="L560" class="LineNr"> 560 </span><span class="Normal">case</span> <span class="Constant">0x3b</span>: <span class="Delimiter">{</span> <span class="Comment">// set SF if r32 < r/m32</span> <span id="L561" class="LineNr"> 561 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L562" class="LineNr"> 562 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg1<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L563" class="LineNr"> 563 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>reg1<span class="Delimiter">)</span> << <span class="Constant">" with r/m32"</span> << end<span class="Delimiter">();</span> <span id="L564" class="LineNr"> 564 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L565" class="LineNr"> 565 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> +<span id="L565" class="LineNr"> 565 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = Reg[reg1]<span class="Delimiter">.</span>i - *signed_arg2<span class="Delimiter">;</span> <span id="L566" class="LineNr"> 566 </span> SF = <span class="Delimiter">(</span>signed_difference < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L567" class="LineNr"> 567 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L568" class="LineNr"> 568 </span> <span class="Normal">int64_t</span> full_signed_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> +<span id="L568" class="LineNr"> 568 </span> <span class="Normal">int64_t</span> full_signed_difference = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>Reg[reg1]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - *signed_arg2<span class="Delimiter">;</span> <span id="L569" class="LineNr"> 569 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_difference != full_signed_difference<span class="Delimiter">);</span> <span id="L570" class="LineNr"> 570 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>*signed_arg2<span class="Delimiter">);</span> -<span id="L571" class="LineNr"> 571 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> -<span id="L572" class="LineNr"> 572 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> full_unsigned_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[reg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> +<span id="L571" class="LineNr"> 571 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = Reg[reg1]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> +<span id="L572" class="LineNr"> 572 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> full_unsigned_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>Reg[reg1]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> <span id="L573" class="LineNr"> 573 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != full_unsigned_difference<span class="Delimiter">);</span> -<span id="L574" class="LineNr"> 574 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L574" class="LineNr"> 574 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L575" class="LineNr"> 575 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L576" class="LineNr"> 576 </span><span class="Delimiter">}</span> <span id="L577" class="LineNr"> 577 </span> <span id="L578" class="LineNr"> 578 </span><span class="Delimiter">:(code)</span> <span id="L579" class="LineNr"> 579 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L579'>test_compare_r32_with_mem_at_rm32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L580" class="LineNr"> 580 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L581" class="LineNr"> 581 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L580" class="LineNr"> 580 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L581" class="LineNr"> 581 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L582" class="LineNr"> 582 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L583" class="LineNr"> 583 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L583" class="LineNr"> 583 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L584" class="LineNr"> 584 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L585" class="LineNr"> 585 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> +<span id="L585" class="LineNr"> 585 </span> <span class="Constant">" 3b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EBX with *EAX</span> <span id="L586" class="LineNr"> 586 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> -<span id="L587" class="LineNr"> 587 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L588" class="LineNr"> 588 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L587" class="LineNr"> 587 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L588" class="LineNr"> 588 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L589" class="LineNr"> 589 </span> <span class="Delimiter">);</span> <span id="L590" class="LineNr"> 590 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L591" class="LineNr"> 591 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L592" class="LineNr"> 592 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L593" class="LineNr"> 593 </span> <span class="Constant">"run: effective address contains 0x0a0b0c0d\n"</span> -<span id="L594" class="LineNr"> 594 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> +<span id="L591" class="LineNr"> 591 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L592" class="LineNr"> 592 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L593" class="LineNr"> 593 </span> <span class="Constant">"run: effective address contains 0x0a0b0c0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L594" class="LineNr"> 594 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L595" class="LineNr"> 595 </span> <span class="Delimiter">);</span> <span id="L596" class="LineNr"> 596 </span><span class="Delimiter">}</span> <span id="L597" class="LineNr"> 597 </span> <span id="L598" class="LineNr"> 598 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L598'>test_compare_r32_with_mem_at_rm32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L599" class="LineNr"> 599 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L600" class="LineNr"> 600 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L599" class="LineNr"> 599 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L600" class="LineNr"> 600 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> <span id="L601" class="LineNr"> 601 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L602" class="LineNr"> 602 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L602" class="LineNr"> 602 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L603" class="LineNr"> 603 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L604" class="LineNr"> 604 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> +<span id="L604" class="LineNr"> 604 </span> <span class="Constant">" 3b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EBX with *EAX</span> <span id="L605" class="LineNr"> 605 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> -<span id="L606" class="LineNr"> 606 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L607" class="LineNr"> 607 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L606" class="LineNr"> 606 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L607" class="LineNr"> 607 </span> <span class="Constant">"00 00 00 80</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// INT32_MIN</span> <span id="L608" class="LineNr"> 608 </span> <span class="Delimiter">);</span> <span id="L609" class="LineNr"> 609 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L610" class="LineNr"> 610 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L611" class="LineNr"> 611 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L612" class="LineNr"> 612 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> -<span id="L613" class="LineNr"> 613 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> +<span id="L610" class="LineNr"> 610 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L611" class="LineNr"> 611 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L612" class="LineNr"> 612 </span> <span class="Constant">"run: effective address contains 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L613" class="LineNr"> 613 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L614" class="LineNr"> 614 </span> <span class="Delimiter">);</span> <span id="L615" class="LineNr"> 615 </span><span class="Delimiter">}</span> <span id="L616" class="LineNr"> 616 </span> <span id="L617" class="LineNr"> 617 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L617'>test_compare_r32_with_mem_at_rm32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L618" class="LineNr"> 618 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L619" class="LineNr"> 619 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L618" class="LineNr"> 618 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L619" class="LineNr"> 619 </span> Reg[EBX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span id="L620" class="LineNr"> 620 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L621" class="LineNr"> 621 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L621" class="LineNr"> 621 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L622" class="LineNr"> 622 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L623" class="LineNr"> 623 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> +<span id="L623" class="LineNr"> 623 </span> <span class="Constant">" 3b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EBX with *EAX</span> <span id="L624" class="LineNr"> 624 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> -<span id="L625" class="LineNr"> 625 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L626" class="LineNr"> 626 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 1</span> +<span id="L625" class="LineNr"> 625 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L626" class="LineNr"> 626 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L627" class="LineNr"> 627 </span> <span class="Delimiter">);</span> <span id="L628" class="LineNr"> 628 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L629" class="LineNr"> 629 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L630" class="LineNr"> 630 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L631" class="LineNr"> 631 </span> <span class="Constant">"run: effective address contains 0x00000001\n"</span> -<span id="L632" class="LineNr"> 632 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0\n"</span> +<span id="L629" class="LineNr"> 629 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L630" class="LineNr"> 630 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L631" class="LineNr"> 631 </span> <span class="Constant">"run: effective address contains 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L632" class="LineNr"> 632 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L633" class="LineNr"> 633 </span> <span class="Delimiter">);</span> <span id="L634" class="LineNr"> 634 </span><span class="Delimiter">}</span> <span id="L635" class="LineNr"> 635 </span> <span id="L636" class="LineNr"> 636 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L636'>test_compare_r32_with_mem_at_rm32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L637" class="LineNr"> 637 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L638" class="LineNr"> 638 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L637" class="LineNr"> 637 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L638" class="LineNr"> 638 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L639" class="LineNr"> 639 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L640" class="LineNr"> 640 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L640" class="LineNr"> 640 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L641" class="LineNr"> 641 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L642" class="LineNr"> 642 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> +<span id="L642" class="LineNr"> 642 </span> <span class="Constant">" 3b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EBX with *EAX</span> <span id="L643" class="LineNr"> 643 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> -<span id="L644" class="LineNr"> 644 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L645" class="LineNr"> 645 </span> <span class="Constant">"ff ff ff ff\n"</span> <span class="Comment">// -1</span> +<span id="L644" class="LineNr"> 644 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L645" class="LineNr"> 645 </span> <span class="Constant">"ff ff ff ff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// -1</span> <span id="L646" class="LineNr"> 646 </span> <span class="Delimiter">);</span> <span id="L647" class="LineNr"> 647 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L648" class="LineNr"> 648 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L649" class="LineNr"> 649 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L650" class="LineNr"> 650 </span> <span class="Constant">"run: effective address contains 0xffffffff\n"</span> -<span id="L651" class="LineNr"> 651 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0\n"</span> +<span id="L648" class="LineNr"> 648 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L649" class="LineNr"> 649 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L650" class="LineNr"> 650 </span> <span class="Constant">"run: effective address contains 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L651" class="LineNr"> 651 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L652" class="LineNr"> 652 </span> <span class="Delimiter">);</span> <span id="L653" class="LineNr"> 653 </span><span class="Delimiter">}</span> <span id="L654" class="LineNr"> 654 </span> <span id="L655" class="LineNr"> 655 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L655'>test_compare_r32_with_mem_at_rm32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L656" class="LineNr"> 656 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L657" class="LineNr"> 657 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> +<span id="L656" class="LineNr"> 656 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L657" class="LineNr"> 657 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c0d</span><span class="Delimiter">;</span> <span id="L658" class="LineNr"> 658 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L659" class="LineNr"> 659 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L659" class="LineNr"> 659 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L660" class="LineNr"> 660 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L661" class="LineNr"> 661 </span> <span class="Constant">" 3b 18 \n"</span> <span class="Comment">// compare EBX with *EAX</span> +<span id="L661" class="LineNr"> 661 </span> <span class="Constant">" 3b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EBX with *EAX</span> <span id="L662" class="LineNr"> 662 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs EBX) 000 (rhs EAX)</span> -<span id="L663" class="LineNr"> 663 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L664" class="LineNr"> 664 </span> <span class="Constant">"0d 0c 0b 0a\n"</span> <span class="Comment">// 0x0a0b0c0d</span> +<span id="L663" class="LineNr"> 663 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L664" class="LineNr"> 664 </span> <span class="Constant">"0d 0c 0b 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0a0b0c0d</span> <span id="L665" class="LineNr"> 665 </span> <span class="Delimiter">);</span> <span id="L666" class="LineNr"> 666 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L667" class="LineNr"> 667 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32\n"</span> -<span id="L668" class="LineNr"> 668 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L669" class="LineNr"> 669 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> +<span id="L667" class="LineNr"> 667 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L13'>EBX</a> with r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L668" class="LineNr"> 668 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L669" class="LineNr"> 669 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L670" class="LineNr"> 670 </span> <span class="Delimiter">);</span> <span id="L671" class="LineNr"> 671 </span><span class="Delimiter">}</span> <span id="L672" class="LineNr"> 672 </span> -<span id="L673" class="LineNr"> 673 </span><span class="SalientComment">//:: copy (mov)</span> +<span id="L673" class="LineNr"> 673 </span><span class="Comment">//:: copy (mov)</span> <span id="L674" class="LineNr"> 674 </span> -<span id="L675" class="LineNr"> 675 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L675'>test_copy_r32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L676" class="LineNr"> 676 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> -<span id="L677" class="LineNr"> 677 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L675" class="LineNr"> 675 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L675'>test_copy_r32_to_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L676" class="LineNr"> 676 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaf</span><span class="Delimiter">;</span> +<span id="L677" class="LineNr"> 677 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> <span id="L678" class="LineNr"> 678 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L679" class="LineNr"> 679 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L679" class="LineNr"> 679 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L680" class="LineNr"> 680 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L681" class="LineNr"> 681 </span> <span class="Constant">" 89 18 \n"</span> <span class="Comment">// copy EBX to *EAX</span> +<span id="L681" class="LineNr"> 681 </span> <span class="Constant">" 89 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy EBX to *EAX</span> <span id="L682" class="LineNr"> 682 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 000 (dest EAX)</span> <span id="L683" class="LineNr"> 683 </span> <span class="Delimiter">);</span> <span id="L684" class="LineNr"> 684 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L685" class="LineNr"> 685 </span> <span class="Constant">"run: copy <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L686" class="LineNr"> 686 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L687" class="LineNr"> 687 </span> <span class="Constant">"run: storing 0x000000af\n"</span> +<span id="L685" class="LineNr"> 685 </span> <span class="Constant">"run: copy <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L686" class="LineNr"> 686 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L687" class="LineNr"> 687 </span> <span class="Constant">"run: storing 0x000000af</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L688" class="LineNr"> 688 </span> <span class="Delimiter">);</span> <span id="L689" class="LineNr"> 689 </span><span class="Delimiter">}</span> <span id="L690" class="LineNr"> 690 </span> <span id="L691" class="LineNr"> 691 </span><span class="Comment">//:</span> <span id="L692" class="LineNr"> 692 </span> <span id="L693" class="LineNr"> 693 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L694" class="LineNr"> 694 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">"copy rm32 to r32 (mov)"</span><span class="Delimiter">);</span> +<span id="L694" class="LineNr"> 694 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">"copy rm32 to r32 (mov)"</span><span class="Delimiter">);</span> <span id="L695" class="LineNr"> 695 </span> <span id="L696" class="LineNr"> 696 </span><span class="Delimiter">:(code)</span> -<span id="L697" class="LineNr"> 697 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L697'>test_copy_mem_at_r32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L698" class="LineNr"> 698 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L697" class="LineNr"> 697 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L697'>test_copy_mem_at_rm32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L698" class="LineNr"> 698 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L699" class="LineNr"> 699 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L700" class="LineNr"> 700 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L700" class="LineNr"> 700 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L701" class="LineNr"> 701 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L702" class="LineNr"> 702 </span> <span class="Constant">" 8b 18 \n"</span> <span class="Comment">// copy *EAX to EBX</span> -<span id="L703" class="LineNr"> 703 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L704" class="LineNr"> 704 </span> <span class="Constant">"af 00 00 00\n"</span> <span class="Comment">// 0x000000af</span> +<span id="L702" class="LineNr"> 702 </span> <span class="Constant">" 8b 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy *EAX to EBX</span> +<span id="L703" class="LineNr"> 703 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L704" class="LineNr"> 704 </span> <span class="Constant">"af 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xaf</span> <span id="L705" class="LineNr"> 705 </span> <span class="Delimiter">);</span> <span id="L706" class="LineNr"> 706 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L707" class="LineNr"> 707 </span> <span class="Constant">"run: copy r/m32 to EBX\n"</span> -<span id="L708" class="LineNr"> 708 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L709" class="LineNr"> 709 </span> <span class="Constant">"run: storing 0x000000af\n"</span> +<span id="L707" class="LineNr"> 707 </span> <span class="Constant">"run: copy r/m32 to <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L708" class="LineNr"> 708 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L709" class="LineNr"> 709 </span> <span class="Constant">"run: storing 0x000000af</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L710" class="LineNr"> 710 </span> <span class="Delimiter">);</span> <span id="L711" class="LineNr"> 711 </span><span class="Delimiter">}</span> <span id="L712" class="LineNr"> 712 </span> @@ -773,99 +772,99 @@ if ('onhashchange' in window) { <span id="L714" class="LineNr"> 714 </span><span class="Normal">case</span> <span class="Constant">0x8b</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r32 to r/m32</span> <span id="L715" class="LineNr"> 715 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L716" class="LineNr"> 716 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L717" class="LineNr"> 717 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L717" class="LineNr"> 717 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L718" class="LineNr"> 718 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* src = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L719" class="LineNr"> 719 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = *src<span class="Delimiter">;</span> -<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *src << end<span class="Delimiter">();</span> +<span id="L719" class="LineNr"> 719 </span> Reg[rdest]<span class="Delimiter">.</span>i = *src<span class="Delimiter">;</span> +<span id="L720" class="LineNr"> 720 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *src << end<span class="Delimiter">();</span> <span id="L721" class="LineNr"> 721 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L722" class="LineNr"> 722 </span><span class="Delimiter">}</span> <span id="L723" class="LineNr"> 723 </span> -<span id="L724" class="LineNr"> 724 </span><span class="SalientComment">//:: jump</span> +<span id="L724" class="LineNr"> 724 </span><span class="Comment">//:: jump</span> <span id="L725" class="LineNr"> 725 </span> <span id="L726" class="LineNr"> 726 </span><span class="Delimiter">:(code)</span> -<span id="L727" class="LineNr"> 727 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L727'>test_jump_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L728" class="LineNr"> 728 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L727" class="LineNr"> 727 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L727'>test_jump_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L728" class="LineNr"> 728 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L729" class="LineNr"> 729 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L730" class="LineNr"> 730 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L730" class="LineNr"> 730 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L731" class="LineNr"> 731 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L732" class="LineNr"> 732 </span> <span class="Constant">" ff 20 \n"</span> <span class="Comment">// jump to *EAX</span> +<span id="L732" class="LineNr"> 732 </span> <span class="Constant">" ff 20 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// jump to *EAX</span> <span id="L733" class="LineNr"> 733 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 100 (jump to r/m32) 000 (src EAX)</span> -<span id="L734" class="LineNr"> 734 </span> <span class="Constant">" b8 00 00 00 01\n"</span> -<span id="L735" class="LineNr"> 735 </span> <span class="Constant">" b8 00 00 00 02\n"</span> -<span id="L736" class="LineNr"> 736 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L737" class="LineNr"> 737 </span> <span class="Constant">"08 00 00 00\n"</span> <span class="Comment">// 0x00000008</span> +<span id="L734" class="LineNr"> 734 </span> <span class="Constant">" b8 00 00 00 01</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L735" class="LineNr"> 735 </span> <span class="Constant">" b8 00 00 00 02</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L736" class="LineNr"> 736 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L737" class="LineNr"> 737 </span> <span class="Constant">"08 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x8</span> <span id="L738" class="LineNr"> 738 </span> <span class="Delimiter">);</span> <span id="L739" class="LineNr"> 739 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L740" class="LineNr"> 740 </span> <span class="Constant">"run: 0x00000001 opcode: ff\n"</span> -<span id="L741" class="LineNr"> 741 </span> <span class="Constant">"run: jump to r/m32\n"</span> -<span id="L742" class="LineNr"> 742 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L743" class="LineNr"> 743 </span> <span class="Constant">"run: jumping to 0x00000008\n"</span> -<span id="L744" class="LineNr"> 744 </span> <span class="Constant">"run: 0x00000008 opcode: b8\n"</span> +<span id="L740" class="LineNr"> 740 </span> <span class="Constant">"run: 0x00000001 opcode: ff</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L741" class="LineNr"> 741 </span> <span class="Constant">"run: jump to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L742" class="LineNr"> 742 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L743" class="LineNr"> 743 </span> <span class="Constant">"run: jumping to 0x00000008</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L744" class="LineNr"> 744 </span> <span class="Constant">"run: 0x00000008 opcode: b8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L745" class="LineNr"> 745 </span> <span class="Delimiter">);</span> <span id="L746" class="LineNr"> 746 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: b8"</span><span class="Delimiter">);</span> <span id="L747" class="LineNr"> 747 </span><span class="Delimiter">}</span> <span id="L748" class="LineNr"> 748 </span> <span id="L749" class="LineNr"> 749 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L750" class="LineNr"> 750 </span><span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// jump to r/m32</span> -<span id="L751" class="LineNr"> 751 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L751" class="LineNr"> 751 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L752" class="LineNr"> 752 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* arg2 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L753" class="LineNr"> 753 </span> <a href='010vm.cc.html#L26'>EIP</a> = *arg2<span class="Delimiter">;</span> -<span id="L754" class="LineNr"> 754 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L754" class="LineNr"> 754 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> <span id="L755" class="LineNr"> 755 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L756" class="LineNr"> 756 </span><span class="Delimiter">}</span> <span id="L757" class="LineNr"> 757 </span> -<span id="L758" class="LineNr"> 758 </span><span class="SalientComment">//:: push</span> +<span id="L758" class="LineNr"> 758 </span><span class="Comment">//:: push</span> <span id="L759" class="LineNr"> 759 </span> <span id="L760" class="LineNr"> 760 </span><span class="Delimiter">:(code)</span> -<span id="L761" class="LineNr"> 761 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L761'>test_push_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L762" class="LineNr"> 762 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L763" class="LineNr"> 763 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L764" class="LineNr"> 764 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> +<span id="L761" class="LineNr"> 761 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L761'>test_push_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L762" class="LineNr"> 762 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L763" class="LineNr"> 763 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L764" class="LineNr"> 764 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> <span id="L765" class="LineNr"> 765 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L766" class="LineNr"> 766 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L766" class="LineNr"> 766 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L767" class="LineNr"> 767 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L768" class="LineNr"> 768 </span> <span class="Constant">" ff 30 \n"</span> <span class="Comment">// push *EAX to stack</span> -<span id="L769" class="LineNr"> 769 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L770" class="LineNr"> 770 </span> <span class="Constant">"af 00 00 00\n"</span> <span class="Comment">// 0x000000af</span> +<span id="L768" class="LineNr"> 768 </span> <span class="Constant">" ff 30 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// push *EAX to stack</span> +<span id="L769" class="LineNr"> 769 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L770" class="LineNr"> 770 </span> <span class="Constant">"af 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xaf</span> <span id="L771" class="LineNr"> 771 </span> <span class="Delimiter">);</span> <span id="L772" class="LineNr"> 772 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L773" class="LineNr"> 773 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> r/m32\n"</span> -<span id="L774" class="LineNr"> 774 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L775" class="LineNr"> 775 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000010\n"</span> -<span id="L776" class="LineNr"> 776 </span> <span class="Constant">"run: pushing value 0x000000af\n"</span> +<span id="L773" class="LineNr"> 773 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L774" class="LineNr"> 774 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L775" class="LineNr"> 775 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000010</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L776" class="LineNr"> 776 </span> <span class="Constant">"run: pushing value 0x000000af</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L777" class="LineNr"> 777 </span> <span class="Delimiter">);</span> <span id="L778" class="LineNr"> 778 </span><span class="Delimiter">}</span> <span id="L779" class="LineNr"> 779 </span> <span id="L780" class="LineNr"> 780 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L781" class="LineNr"> 781 </span><span class="Normal">case</span> <span class="Constant">6</span>: <span class="Delimiter">{</span> <span class="Comment">// push r/m32 to stack</span> -<span id="L782" class="LineNr"> 782 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L782" class="LineNr"> 782 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push r/m32"</span> << end<span class="Delimiter">();</span> <span id="L783" class="LineNr"> 783 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* val = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L784" class="LineNr"> 784 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>*val<span class="Delimiter">);</span> <span id="L785" class="LineNr"> 785 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L786" class="LineNr"> 786 </span><span class="Delimiter">}</span> <span id="L787" class="LineNr"> 787 </span> -<span id="L788" class="LineNr"> 788 </span><span class="SalientComment">//:: pop</span> +<span id="L788" class="LineNr"> 788 </span><span class="Comment">//:: pop</span> <span id="L789" class="LineNr"> 789 </span> <span id="L790" class="LineNr"> 790 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L791" class="LineNr"> 791 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to rm32 (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> +<span id="L791" class="LineNr"> 791 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"pop top of stack to rm32 (<a href='013direct_addressing.cc.html#L1270'>pop</a>)"</span><span class="Delimiter">);</span> <span id="L792" class="LineNr"> 792 </span> <span id="L793" class="LineNr"> 793 </span><span class="Delimiter">:(code)</span> -<span id="L794" class="LineNr"> 794 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L794'>test_pop_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L795" class="LineNr"> 795 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> -<span id="L796" class="LineNr"> 796 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L797" class="LineNr"> 797 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000000</span><span class="Delimiter">;</span> +<span id="L794" class="LineNr"> 794 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L794'>test_pop_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L795" class="LineNr"> 795 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L796" class="LineNr"> 796 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L797" class="LineNr"> 797 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000000</span><span class="Delimiter">;</span> <span id="L798" class="LineNr"> 798 </span> <a href='010vm.cc.html#L256'>write_mem_i32</a><span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">,</span> <span class="Constant">0x00000030</span><span class="Delimiter">);</span> <span id="L799" class="LineNr"> 799 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L800" class="LineNr"> 800 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L800" class="LineNr"> 800 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L801" class="LineNr"> 801 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L802" class="LineNr"> 802 </span> <span class="Constant">" 8f 00 \n"</span> <span class="Comment">// pop stack into *EAX</span> +<span id="L802" class="LineNr"> 802 </span> <span class="Constant">" 8f 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// pop stack into *EAX</span> <span id="L803" class="LineNr"> 803 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 000 (pop r/m32) 000 (dest EAX)</span> <span id="L804" class="LineNr"> 804 </span> <span class="Delimiter">);</span> <span id="L805" class="LineNr"> 805 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L806" class="LineNr"> 806 </span> <span class="Constant">"run: <a href='013direct_addressing.cc.html#L1270'>pop</a> into r/m32\n"</span> -<span id="L807" class="LineNr"> 807 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L808" class="LineNr"> 808 </span> <span class="Constant">"run: popping value 0x00000030\n"</span> -<span id="L809" class="LineNr"> 809 </span> <span class="Constant">"run: incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000004\n"</span> +<span id="L806" class="LineNr"> 806 </span> <span class="Constant">"run: <a href='013direct_addressing.cc.html#L1270'>pop</a> into r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L807" class="LineNr"> 807 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L808" class="LineNr"> 808 </span> <span class="Constant">"run: popping value 0x00000030</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L809" class="LineNr"> 809 </span> <span class="Constant">"run: incrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000004</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L810" class="LineNr"> 810 </span> <span class="Delimiter">);</span> <span id="L811" class="LineNr"> 811 </span><span class="Delimiter">}</span> <span id="L812" class="LineNr"> 812 </span> @@ -875,7 +874,7 @@ if ('onhashchange' in window) { <span id="L816" class="LineNr"> 816 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L817" class="LineNr"> 817 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L818" class="LineNr"> 818 </span> <span class="Normal">case</span> <span class="Constant">0</span>: <span class="Delimiter">{</span> -<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"pop into r/m32"</span> << end<span class="Delimiter">();</span> <span id="L820" class="LineNr"> 820 </span> <span class="Normal">int32_t</span>* dest = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L821" class="LineNr"> 821 </span> *dest = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> <span id="L822" class="LineNr"> 822 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -884,51 +883,51 @@ if ('onhashchange' in window) { <span id="L825" class="LineNr"> 825 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L826" class="LineNr"> 826 </span><span class="Delimiter">}</span> <span id="L827" class="LineNr"> 827 </span> -<span id="L828" class="LineNr"> 828 </span><span class="SalientComment">//:: special-case for loading address from disp32 rather than register</span> +<span id="L828" class="LineNr"> 828 </span><span class="Comment">//:: special-case for loading address from disp32 rather than register</span> <span id="L829" class="LineNr"> 829 </span> <span id="L830" class="LineNr"> 830 </span><span class="Delimiter">:(code)</span> <span id="L831" class="LineNr"> 831 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L831'>test_add_r32_to_mem_at_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L832" class="LineNr"> 832 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L832" class="LineNr"> 832 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> <span id="L833" class="LineNr"> 833 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L834" class="LineNr"> 834 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L834" class="LineNr"> 834 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L835" class="LineNr"> 835 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L836" class="LineNr"> 836 </span> <span class="Constant">" 01 1d 00 20 00 00 \n"</span> <span class="Comment">// add EBX to *0x2000</span> +<span id="L836" class="LineNr"> 836 </span> <span class="Constant">" 01 1d 00 20 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *0x2000</span> <span id="L837" class="LineNr"> 837 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 101 (dest in disp32)</span> -<span id="L838" class="LineNr"> 838 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L839" class="LineNr"> 839 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L838" class="LineNr"> 838 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L839" class="LineNr"> 839 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L840" class="LineNr"> 840 </span> <span class="Delimiter">);</span> <span id="L841" class="LineNr"> 841 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L842" class="LineNr"> 842 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L843" class="LineNr"> 843 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L844" class="LineNr"> 844 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L842" class="LineNr"> 842 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L843" class="LineNr"> 843 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L844" class="LineNr"> 844 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L845" class="LineNr"> 845 </span> <span class="Delimiter">);</span> <span id="L846" class="LineNr"> 846 </span><span class="Delimiter">}</span> <span id="L847" class="LineNr"> 847 </span> <span id="L848" class="LineNr"> 848 </span><span class="Delimiter">:(before "End Mod 0 Special-cases(addr)")</span> <span id="L849" class="LineNr"> 849 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Comment">// exception: mod 0b00 rm 0b101 => incoming disp32</span> <span id="L850" class="LineNr"> 850 </span> addr = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L851" class="LineNr"> 851 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> +<span id="L851" class="LineNr"> 851 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> <span id="L852" class="LineNr"> 852 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L853" class="LineNr"> 853 </span> <span id="L854" class="LineNr"> 854 </span><span class="Comment">//:</span> <span id="L855" class="LineNr"> 855 </span> <span id="L856" class="LineNr"> 856 </span><span class="Delimiter">:(code)</span> -<span id="L857" class="LineNr"> 857 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L857'>test_add_r32_to_mem_at_r32_plus_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L858" class="LineNr"> 858 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L859" class="LineNr"> 859 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L857" class="LineNr"> 857 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L857'>test_add_r32_to_mem_at_rm32_plus_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L858" class="LineNr"> 858 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L859" class="LineNr"> 859 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> <span id="L860" class="LineNr"> 860 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L861" class="LineNr"> 861 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L861" class="LineNr"> 861 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L862" class="LineNr"> 862 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L863" class="LineNr"> 863 </span> <span class="Constant">" 01 58 02 \n"</span> <span class="Comment">// add EBX to *(EAX+2)</span> +<span id="L863" class="LineNr"> 863 </span> <span class="Constant">" 01 58 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *(EAX+2)</span> <span id="L864" class="LineNr"> 864 </span> <span class="Comment">// ModR/M in binary: 01 (indirect+disp8 mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L865" class="LineNr"> 865 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L866" class="LineNr"> 866 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L865" class="LineNr"> 865 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L866" class="LineNr"> 866 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L867" class="LineNr"> 867 </span> <span class="Delimiter">);</span> <span id="L868" class="LineNr"> 868 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L869" class="LineNr"> 869 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L870" class="LineNr"> 870 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L871" class="LineNr"> 871 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)\n"</span> -<span id="L872" class="LineNr"> 872 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L869" class="LineNr"> 869 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L870" class="LineNr"> 870 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L871" class="LineNr"> 871 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L872" class="LineNr"> 872 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L873" class="LineNr"> 873 </span> <span class="Delimiter">);</span> <span id="L874" class="LineNr"> 874 </span><span class="Delimiter">}</span> <span id="L875" class="LineNr"> 875 </span> @@ -936,61 +935,61 @@ if ('onhashchange' in window) { <span id="L877" class="LineNr"> 877 </span><span class="Normal">case</span> <span class="Constant">1</span>: <span class="Delimiter">{</span> <span class="Comment">// indirect + disp8 addressing</span> <span id="L878" class="LineNr"> 878 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L879" class="LineNr"> 879 </span> <span class="Normal">default</span>: -<span id="L880" class="LineNr"> 880 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L881" class="LineNr"> 881 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L880" class="LineNr"> 880 </span> addr = Reg[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L881" class="LineNr"> 881 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L882" class="LineNr"> 882 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L883" class="LineNr"> 883 </span> <span class="Comment">// End Mod 1 Special-cases(addr)</span> <span id="L884" class="LineNr"> 884 </span> <span class="Delimiter">}</span> <span id="L885" class="LineNr"> 885 </span> <span class="Normal">int8_t</span> displacement = <span class="Normal">static_cast</span><<span class="Normal">int8_t</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L886" class="LineNr"> 886 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>addr > <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L887" class="LineNr"> 887 </span> addr += displacement<span class="Delimiter">;</span> -<span id="L888" class="LineNr"> 888 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding disp8)"</span> << end<span class="Delimiter">();</span> +<span id="L888" class="LineNr"> 888 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding disp8)"</span> << end<span class="Delimiter">();</span> <span id="L889" class="LineNr"> 889 </span> <span class="Delimiter">}</span> <span id="L890" class="LineNr"> 890 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L891" class="LineNr"> 891 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"null address; skipping displacement"</span> << end<span class="Delimiter">();</span> +<span id="L891" class="LineNr"> 891 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"null address; skipping displacement"</span> << end<span class="Delimiter">();</span> <span id="L892" class="LineNr"> 892 </span> <span class="Delimiter">}</span> <span id="L893" class="LineNr"> 893 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L894" class="LineNr"> 894 </span><span class="Delimiter">}</span> <span id="L895" class="LineNr"> 895 </span> <span id="L896" class="LineNr"> 896 </span><span class="Delimiter">:(code)</span> -<span id="L897" class="LineNr"> 897 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L897'>test_add_r32_to_mem_at_r32_plus_negative_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L898" class="LineNr"> 898 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L899" class="LineNr"> 899 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L897" class="LineNr"> 897 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L897'>test_add_r32_to_mem_at_rm32_plus_negative_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L898" class="LineNr"> 898 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L899" class="LineNr"> 899 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> <span id="L900" class="LineNr"> 900 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L901" class="LineNr"> 901 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L901" class="LineNr"> 901 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L902" class="LineNr"> 902 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L903" class="LineNr"> 903 </span> <span class="Constant">" 01 58 ff \n"</span> <span class="Comment">// add EBX to *(EAX-1)</span> +<span id="L903" class="LineNr"> 903 </span> <span class="Constant">" 01 58 ff </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *(EAX-1)</span> <span id="L904" class="LineNr"> 904 </span> <span class="Comment">// ModR/M in binary: 01 (indirect+disp8 mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L905" class="LineNr"> 905 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L906" class="LineNr"> 906 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L905" class="LineNr"> 905 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L906" class="LineNr"> 906 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L907" class="LineNr"> 907 </span> <span class="Delimiter">);</span> <span id="L908" class="LineNr"> 908 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L909" class="LineNr"> 909 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L910" class="LineNr"> 910 </span> <span class="Constant">"run: effective address is initially 0x00002001 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L911" class="LineNr"> 911 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)\n"</span> -<span id="L912" class="LineNr"> 912 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L909" class="LineNr"> 909 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L910" class="LineNr"> 910 </span> <span class="Constant">"run: effective address is initially 0x00002001 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L911" class="LineNr"> 911 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L912" class="LineNr"> 912 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L913" class="LineNr"> 913 </span> <span class="Delimiter">);</span> <span id="L914" class="LineNr"> 914 </span><span class="Delimiter">}</span> <span id="L915" class="LineNr"> 915 </span> <span id="L916" class="LineNr"> 916 </span><span class="Comment">//:</span> <span id="L917" class="LineNr"> 917 </span> <span id="L918" class="LineNr"> 918 </span><span class="Delimiter">:(code)</span> -<span id="L919" class="LineNr"> 919 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L919'>test_add_r32_to_mem_at_r32_plus_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L920" class="LineNr"> 920 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L921" class="LineNr"> 921 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L919" class="LineNr"> 919 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L919'>test_add_r32_to_mem_at_rm32_plus_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L920" class="LineNr"> 920 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L921" class="LineNr"> 921 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> <span id="L922" class="LineNr"> 922 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L923" class="LineNr"> 923 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L923" class="LineNr"> 923 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L924" class="LineNr"> 924 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L925" class="LineNr"> 925 </span> <span class="Constant">" 01 98 02 00 00 00 \n"</span> <span class="Comment">// add EBX to *(EAX+2)</span> +<span id="L925" class="LineNr"> 925 </span> <span class="Constant">" 01 98 02 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *(EAX+2)</span> <span id="L926" class="LineNr"> 926 </span> <span class="Comment">// ModR/M in binary: 10 (indirect+disp32 mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L927" class="LineNr"> 927 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L928" class="LineNr"> 928 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L927" class="LineNr"> 927 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L928" class="LineNr"> 928 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L929" class="LineNr"> 929 </span> <span class="Delimiter">);</span> <span id="L930" class="LineNr"> 930 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L931" class="LineNr"> 931 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L932" class="LineNr"> 932 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L933" class="LineNr"> 933 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L934" class="LineNr"> 934 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L931" class="LineNr"> 931 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L932" class="LineNr"> 932 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L933" class="LineNr"> 933 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L934" class="LineNr"> 934 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L935" class="LineNr"> 935 </span> <span class="Delimiter">);</span> <span id="L936" class="LineNr"> 936 </span><span class="Delimiter">}</span> <span id="L937" class="LineNr"> 937 </span> @@ -998,59 +997,59 @@ if ('onhashchange' in window) { <span id="L939" class="LineNr"> 939 </span><span class="Normal">case</span> <span class="Constant">2</span>: <span class="Delimiter">{</span> <span class="Comment">// indirect + disp32 addressing</span> <span id="L940" class="LineNr"> 940 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L941" class="LineNr"> 941 </span> <span class="Normal">default</span>: -<span id="L942" class="LineNr"> 942 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L943" class="LineNr"> 943 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L942" class="LineNr"> 942 </span> addr = Reg[rm]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L943" class="LineNr"> 943 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L944" class="LineNr"> 944 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L945" class="LineNr"> 945 </span> <span class="Comment">// End Mod 2 Special-cases(addr)</span> <span id="L946" class="LineNr"> 946 </span> <span class="Delimiter">}</span> <span id="L947" class="LineNr"> 947 </span> <span class="Normal">int32_t</span> displacement = <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span><a href='011run.cc.html#L433'>next32</a><span class="Delimiter">());</span> <span id="L948" class="LineNr"> 948 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>addr > <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L949" class="LineNr"> 949 </span> addr += displacement<span class="Delimiter">;</span> -<span id="L950" class="LineNr"> 950 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding <a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> +<span id="L950" class="LineNr"> 950 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding <a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> <span id="L951" class="LineNr"> 951 </span> <span class="Delimiter">}</span> <span id="L952" class="LineNr"> 952 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L953" class="LineNr"> 953 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"null address; skipping displacement"</span> << end<span class="Delimiter">();</span> +<span id="L953" class="LineNr"> 953 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"null address; skipping displacement"</span> << end<span class="Delimiter">();</span> <span id="L954" class="LineNr"> 954 </span> <span class="Delimiter">}</span> <span id="L955" class="LineNr"> 955 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L956" class="LineNr"> 956 </span><span class="Delimiter">}</span> <span id="L957" class="LineNr"> 957 </span> <span id="L958" class="LineNr"> 958 </span><span class="Delimiter">:(code)</span> -<span id="L959" class="LineNr"> 959 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L959'>test_add_r32_to_mem_at_r32_plus_negative_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L960" class="LineNr"> 960 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L961" class="LineNr"> 961 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> +<span id="L959" class="LineNr"> 959 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L959'>test_add_r32_to_mem_at_rm32_plus_negative_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L960" class="LineNr"> 960 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L961" class="LineNr"> 961 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2001</span><span class="Delimiter">;</span> <span class="Comment">// dest</span> <span id="L962" class="LineNr"> 962 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L963" class="LineNr"> 963 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L963" class="LineNr"> 963 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L964" class="LineNr"> 964 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L965" class="LineNr"> 965 </span> <span class="Constant">" 01 98 ff ff ff ff \n"</span> <span class="Comment">// add EBX to *(EAX-1)</span> +<span id="L965" class="LineNr"> 965 </span> <span class="Constant">" 01 98 ff ff ff ff </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *(EAX-1)</span> <span id="L966" class="LineNr"> 966 </span> <span class="Comment">// ModR/M in binary: 10 (indirect+disp32 mode) 011 (src EBX) 000 (dest EAX)</span> -<span id="L967" class="LineNr"> 967 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L968" class="LineNr"> 968 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L967" class="LineNr"> 967 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L968" class="LineNr"> 968 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L969" class="LineNr"> 969 </span> <span class="Delimiter">);</span> <span id="L970" class="LineNr"> 970 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L971" class="LineNr"> 971 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L972" class="LineNr"> 972 </span> <span class="Constant">"run: effective address is initially 0x00002001 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L973" class="LineNr"> 973 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L974" class="LineNr"> 974 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L971" class="LineNr"> 971 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L972" class="LineNr"> 972 </span> <span class="Constant">"run: effective address is initially 0x00002001 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L973" class="LineNr"> 973 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L974" class="LineNr"> 974 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L975" class="LineNr"> 975 </span> <span class="Delimiter">);</span> <span id="L976" class="LineNr"> 976 </span><span class="Delimiter">}</span> <span id="L977" class="LineNr"> 977 </span> -<span id="L978" class="LineNr"> 978 </span><span class="SalientComment">//:: copy address (lea)</span> +<span id="L978" class="LineNr"> 978 </span><span class="Comment">//:: copy address (lea)</span> <span id="L979" class="LineNr"> 979 </span> <span id="L980" class="LineNr"> 980 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L981" class="LineNr"> 981 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"copy address in rm32 into r32 (lea)"</span><span class="Delimiter">);</span> +<span id="L981" class="LineNr"> 981 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"copy address in rm32 into r32 (lea)"</span><span class="Delimiter">);</span> <span id="L982" class="LineNr"> 982 </span> <span id="L983" class="LineNr"> 983 </span><span class="Delimiter">:(code)</span> <span id="L984" class="LineNr"> 984 </span><span class="Normal">void</span> <a href='014indirect_addressing.cc.html#L984'>test_copy_address</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L985" class="LineNr"> 985 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L985" class="LineNr"> 985 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L986" class="LineNr"> 986 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L987" class="LineNr"> 987 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L987" class="LineNr"> 987 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L988" class="LineNr"> 988 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L989" class="LineNr"> 989 </span> <span class="Constant">" 8d 18 \n"</span> <span class="Comment">// copy address in EAX into EBX</span> +<span id="L989" class="LineNr"> 989 </span> <span class="Constant">" 8d 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy address in EAX into EBX</span> <span id="L990" class="LineNr"> 990 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (dest EBX) 000 (src EAX)</span> <span id="L991" class="LineNr"> 991 </span> <span class="Delimiter">);</span> <span id="L992" class="LineNr"> 992 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L993" class="LineNr"> 993 </span> <span class="Constant">"run: copy address into EBX\n"</span> -<span id="L994" class="LineNr"> 994 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> +<span id="L993" class="LineNr"> 993 </span> <span class="Constant">"run: copy address into <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L994" class="LineNr"> 994 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L995" class="LineNr"> 995 </span> <span class="Delimiter">);</span> <span id="L996" class="LineNr"> 996 </span><span class="Delimiter">}</span> <span id="L997" class="LineNr"> 997 </span> @@ -1058,8 +1057,8 @@ if ('onhashchange' in window) { <span id="L999" class="LineNr"> 999 </span><span class="Normal">case</span> <span class="Constant">0x8d</span>: <span class="Delimiter">{</span> <span class="Comment">// copy address of m32 to r32</span> <span id="L1000" class="LineNr">1000 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L1001" class="LineNr">1001 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> arg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L1002" class="LineNr">1002 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy address into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L1003" class="LineNr">1003 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[arg1]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L1002" class="LineNr">1002 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy address into "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>arg1<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1003" class="LineNr">1003 </span> Reg[arg1]<span class="Delimiter">.</span>u = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1004" class="LineNr">1004 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1005" class="LineNr">1005 </span><span class="Delimiter">}</span> </pre> diff --git a/html/015immediate_addressing.cc.html b/html/linux/bootstrap/015immediate_addressing.cc.html index 57a25eeb..6d5b873b 100644 --- a/html/015immediate_addressing.cc.html +++ b/html/linux/bootstrap/015immediate_addressing.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 015immediate_addressing.cc</title> +<title>Mu - linux/bootstrap/015immediate_addressing.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -15,15 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } -.CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } --> </style> @@ -57,111 +55,111 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/015immediate_addressing.cc'>https://github.com/akkartik/mu/blob/main/015immediate_addressing.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/015immediate_addressing.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/015immediate_addressing.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: instructions that (immediately) contain an argument to act with</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">"add imm32 to <a href='010vm.cc.html#L10'>EAX</a> (add)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">"add imm32 to <a href='010vm.cc.html#L10'>EAX</a> (add)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">case</span> <span class="Constant">0x05</span>: <span class="Delimiter">{</span> <span class="Comment">// add imm32 to EAX</span> <span id="L8" class="LineNr"> 8 </span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> -<span id="L10" class="LineNr"> 10 </span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i + signed_arg2<span class="Delimiter">;</span> +<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" to EAX"</span> << end<span class="Delimiter">();</span> +<span id="L10" class="LineNr"> 10 </span> <span class="Normal">int32_t</span> signed_result = Reg[EAX]<span class="Delimiter">.</span>i + signed_arg2<span class="Delimiter">;</span> <span id="L11" class="LineNr"> 11 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L12" class="LineNr"> 12 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + signed_arg2<span class="Delimiter">;</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> + signed_arg2<span class="Delimiter">;</span> <span id="L14" class="LineNr"> 14 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L15" class="LineNr"> 15 </span> <span class="Comment">// set CF</span> <span id="L16" class="LineNr"> 16 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Normal">uint32_t</span> unsigned_result = Reg[EAX]<span class="Delimiter">.</span>u + unsigned_arg2<span class="Delimiter">;</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> <span id="L19" class="LineNr"> 19 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L20" class="LineNr"> 20 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L21" class="LineNr"> 21 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L20" class="LineNr"> 20 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L21" class="LineNr"> 21 </span> Reg[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L23" class="LineNr"> 23 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span> <span id="L25" class="LineNr"> 25 </span> <span id="L26" class="LineNr"> 26 </span><span class="Delimiter">:(code)</span> <span id="L27" class="LineNr"> 27 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L27'>test_add_imm32_to_EAX_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L28" class="LineNr"> 28 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L28" class="LineNr"> 28 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> <span id="L29" class="LineNr"> 29 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L31" class="LineNr"> 31 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L32" class="LineNr"> 32 </span> <span class="Constant">" 05 01 00 00 00 \n"</span> <span class="Comment">// add 1 to EAX</span> +<span id="L32" class="LineNr"> 32 </span> <span class="Constant">" 05 01 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 1 to EAX</span> <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L35" class="LineNr"> 35 </span> <span class="Constant">"run: add imm32 0x00000001 to EAX\n"</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1\n"</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L35" class="LineNr"> 35 </span> <span class="Constant">"run: add imm32 0x00000001 to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">);</span> <span id="L39" class="LineNr"> 39 </span><span class="Delimiter">}</span> <span id="L40" class="LineNr"> 40 </span> <span id="L41" class="LineNr"> 41 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L41'>test_add_imm32_to_EAX_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L42" class="LineNr"> 42 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> -<span id="L43" class="LineNr"> 43 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L42" class="LineNr"> 42 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">UINT32_MAX</span><span class="Delimiter">;</span> +<span id="L43" class="LineNr"> 43 </span> Reg[EBX]<span class="Delimiter">.</span>u = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L44" class="LineNr"> 44 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L46" class="LineNr"> 46 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Constant">" 05 01 00 00 00 \n"</span> <span class="Comment">// add 1 to EAX</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Constant">" 05 01 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 1 to EAX</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">);</span> <span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: add imm32 0x00000001 to EAX\n"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0\n"</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: add imm32 0x00000001 to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">);</span> <span id="L54" class="LineNr"> 54 </span><span class="Delimiter">}</span> <span id="L55" class="LineNr"> 55 </span> <span id="L56" class="LineNr"> 56 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L56'>test_add_imm32_to_EAX_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L57" class="LineNr"> 57 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L57" class="LineNr"> 57 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L58" class="LineNr"> 58 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L60" class="LineNr"> 60 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Constant">" 05 00 00 00 80 \n"</span> <span class="Comment">// add 0x80000000 to EAX</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Constant">" 05 00 00 00 80 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 0x80000000 to EAX</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">);</span> <span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"run: add imm32 0x80000000 to EAX\n"</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1\n"</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"run: add imm32 0x80000000 to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">);</span> <span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> <span id="L69" class="LineNr"> 69 </span> <span id="L70" class="LineNr"> 70 </span><span class="Comment">//:</span> <span id="L71" class="LineNr"> 71 </span> <span id="L72" class="LineNr"> 72 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L73" class="LineNr"> 73 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">"combine rm32 with imm32 based on subop (add/sub/and/or/xor/cmp)"</span><span class="Delimiter">);</span> +<span id="L73" class="LineNr"> 73 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">"combine rm32 with imm32 based on subop (add/sub/and/or/xor/cmp)"</span><span class="Delimiter">);</span> <span id="L74" class="LineNr"> 74 </span> <span id="L75" class="LineNr"> 75 </span><span class="Delimiter">:(code)</span> <span id="L76" class="LineNr"> 76 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L76'>test_add_imm32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L77" class="LineNr"> 77 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L77" class="LineNr"> 77 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L78" class="LineNr"> 78 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Constant">" 81 c3 0a 0b 0c 0d\n"</span> <span class="Comment">// add 0x0d0c0b0a to EBX</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Constant">" 81 c3 0a 0b 0c 0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 0x0d0c0b0a to EBX</span> <span id="L82" class="LineNr"> 82 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (subop add) 011 (dest EBX)</span> <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">);</span> <span id="L84" class="LineNr"> 84 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"run: subop add\n"</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"run: storing 0x0d0c0b0b\n"</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"run: subop add</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"run: storing 0x0d0c0b0b</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">);</span> <span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> <span id="L92" class="LineNr"> 92 </span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L94" class="LineNr"> 94 </span><span class="Normal">case</span> <span class="Constant">0x81</span>: <span class="Delimiter">{</span> <span class="Comment">// combine r/m32 with imm32</span> -<span id="L95" class="LineNr"> 95 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"combine r/m32 with imm32"</span> << end<span class="Delimiter">();</span> +<span id="L95" class="LineNr"> 95 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"combine r/m32 with imm32"</span> << end<span class="Delimiter">();</span> <span id="L96" class="LineNr"> 96 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L97" class="LineNr"> 97 </span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L98" class="LineNr"> 98 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> +<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> <span id="L100" class="LineNr"> 100 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L101" class="LineNr"> 101 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L102" class="LineNr"> 102 </span> <span class="Normal">case</span> <span class="Constant">0</span>: <span class="Delimiter">{</span> -<span id="L103" class="LineNr"> 103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop add"</span> << end<span class="Delimiter">();</span> +<span id="L103" class="LineNr"> 103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop add"</span> << end<span class="Delimiter">();</span> <span id="L104" class="LineNr"> 104 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 + signed_arg2<span class="Delimiter">;</span> <span id="L105" class="LineNr"> 105 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L106" class="LineNr"> 106 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> @@ -173,9 +171,9 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr"> 112 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 + unsigned_arg2<span class="Delimiter">;</span> <span id="L113" class="LineNr"> 113 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> + unsigned_arg2<span class="Delimiter">;</span> <span id="L114" class="LineNr"> 114 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L115" class="LineNr"> 115 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L115" class="LineNr"> 115 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L116" class="LineNr"> 116 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L117" class="LineNr"> 117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L117" class="LineNr"> 117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L118" class="LineNr"> 118 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L119" class="LineNr"> 119 </span> <span class="Delimiter">}</span> <span id="L120" class="LineNr"> 120 </span> <span class="Comment">// End Op 81 Subops</span> @@ -188,187 +186,187 @@ if ('onhashchange' in window) { <span id="L127" class="LineNr"> 127 </span> <span id="L128" class="LineNr"> 128 </span><span class="Delimiter">:(code)</span> <span id="L129" class="LineNr"> 129 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L129'>test_add_imm32_to_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L130" class="LineNr"> 130 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L130" class="LineNr"> 130 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> <span id="L131" class="LineNr"> 131 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L132" class="LineNr"> 132 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L132" class="LineNr"> 132 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L133" class="LineNr"> 133 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L134" class="LineNr"> 134 </span> <span class="Constant">" 81 c3 01 00 00 00\n"</span> <span class="Comment">// add 1 to EBX</span> +<span id="L134" class="LineNr"> 134 </span> <span class="Constant">" 81 c3 01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 1 to EBX</span> <span id="L135" class="LineNr"> 135 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (subop add) 011 (dest EBX)</span> <span id="L136" class="LineNr"> 136 </span> <span class="Delimiter">);</span> <span id="L137" class="LineNr"> 137 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L138" class="LineNr"> 138 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L139" class="LineNr"> 139 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L140" class="LineNr"> 140 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> -<span id="L141" class="LineNr"> 141 </span> <span class="Constant">"run: subop add\n"</span> -<span id="L142" class="LineNr"> 142 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1\n"</span> -<span id="L143" class="LineNr"> 143 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L138" class="LineNr"> 138 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L139" class="LineNr"> 139 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L140" class="LineNr"> 140 </span> <span class="Constant">"run: imm32 is 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L141" class="LineNr"> 141 </span> <span class="Constant">"run: subop add</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L142" class="LineNr"> 142 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L143" class="LineNr"> 143 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L144" class="LineNr"> 144 </span> <span class="Delimiter">);</span> <span id="L145" class="LineNr"> 145 </span><span class="Delimiter">}</span> <span id="L146" class="LineNr"> 146 </span> <span id="L147" class="LineNr"> 147 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L147'>test_add_imm32_to_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L148" class="LineNr"> 148 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest unsigned number</span> +<span id="L148" class="LineNr"> 148 </span> Reg[EBX]<span class="Delimiter">.</span>u = <span class="Constant">UINT32_MAX</span><span class="Delimiter">;</span> <span id="L149" class="LineNr"> 149 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L150" class="LineNr"> 150 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L150" class="LineNr"> 150 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L151" class="LineNr"> 151 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L152" class="LineNr"> 152 </span> <span class="Constant">" 81 c3 01 00 00 00\n"</span> <span class="Comment">// add 1 to EBX</span> +<span id="L152" class="LineNr"> 152 </span> <span class="Constant">" 81 c3 01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 1 to EBX</span> <span id="L153" class="LineNr"> 153 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop add) 011 (dest EBX)</span> <span id="L154" class="LineNr"> 154 </span> <span class="Delimiter">);</span> <span id="L155" class="LineNr"> 155 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L156" class="LineNr"> 156 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L157" class="LineNr"> 157 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L158" class="LineNr"> 158 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> -<span id="L159" class="LineNr"> 159 </span> <span class="Constant">"run: subop add\n"</span> -<span id="L160" class="LineNr"> 160 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0\n"</span> -<span id="L161" class="LineNr"> 161 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L156" class="LineNr"> 156 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L157" class="LineNr"> 157 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L158" class="LineNr"> 158 </span> <span class="Constant">"run: imm32 is 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L159" class="LineNr"> 159 </span> <span class="Constant">"run: subop add</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L160" class="LineNr"> 160 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L161" class="LineNr"> 161 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L162" class="LineNr"> 162 </span> <span class="Delimiter">);</span> <span id="L163" class="LineNr"> 163 </span><span class="Delimiter">}</span> <span id="L164" class="LineNr"> 164 </span> <span id="L165" class="LineNr"> 165 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L165'>test_add_imm32_to_r32_unsigned_and_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L166" class="LineNr"> 166 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L166" class="LineNr"> 166 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L167" class="LineNr"> 167 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L168" class="LineNr"> 168 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L168" class="LineNr"> 168 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L169" class="LineNr"> 169 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L170" class="LineNr"> 170 </span> <span class="Constant">" 81 c3 00 00 00 80\n"</span> <span class="Comment">// add 0x80000000 to EBX</span> +<span id="L170" class="LineNr"> 170 </span> <span class="Constant">" 81 c3 00 00 00 80</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 0x80000000 to EBX</span> <span id="L171" class="LineNr"> 171 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (subop add) 011 (dest EBX)</span> <span id="L172" class="LineNr"> 172 </span> <span class="Delimiter">);</span> <span id="L173" class="LineNr"> 173 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L174" class="LineNr"> 174 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L175" class="LineNr"> 175 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L176" class="LineNr"> 176 </span> <span class="Constant">"run: imm32 is 0x80000000\n"</span> -<span id="L177" class="LineNr"> 177 </span> <span class="Constant">"run: subop add\n"</span> -<span id="L178" class="LineNr"> 178 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1\n"</span> -<span id="L179" class="LineNr"> 179 </span> <span class="Constant">"run: storing 0x00000000\n"</span> +<span id="L174" class="LineNr"> 174 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L175" class="LineNr"> 175 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L176" class="LineNr"> 176 </span> <span class="Constant">"run: imm32 is 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L177" class="LineNr"> 177 </span> <span class="Constant">"run: subop add</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L178" class="LineNr"> 178 </span> <span class="Constant">"run: SF=0; ZF=1; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L179" class="LineNr"> 179 </span> <span class="Constant">"run: storing 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L180" class="LineNr"> 180 </span> <span class="Delimiter">);</span> <span id="L181" class="LineNr"> 181 </span><span class="Delimiter">}</span> <span id="L182" class="LineNr"> 182 </span> <span id="L183" class="LineNr"> 183 </span><span class="Comment">//:</span> <span id="L184" class="LineNr"> 184 </span> <span id="L185" class="LineNr"> 185 </span><span class="Delimiter">:(code)</span> -<span id="L186" class="LineNr"> 186 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L186'>test_add_imm32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L187" class="LineNr"> 187 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L186" class="LineNr"> 186 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L186'>test_add_imm32_to_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L187" class="LineNr"> 187 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L188" class="LineNr"> 188 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L189" class="LineNr"> 189 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L189" class="LineNr"> 189 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L190" class="LineNr"> 190 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L191" class="LineNr"> 191 </span> <span class="Constant">" 81 03 0a 0b 0c 0d \n"</span> <span class="Comment">// add 0x0d0c0b0a to *EBX</span> +<span id="L191" class="LineNr"> 191 </span> <span class="Constant">" 81 03 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 0x0d0c0b0a to *EBX</span> <span id="L192" class="LineNr"> 192 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 000 (subop add) 011 (dest EBX)</span> -<span id="L193" class="LineNr"> 193 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L194" class="LineNr"> 194 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L193" class="LineNr"> 193 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L194" class="LineNr"> 194 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L195" class="LineNr"> 195 </span> <span class="Delimiter">);</span> <span id="L196" class="LineNr"> 196 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L197" class="LineNr"> 197 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L198" class="LineNr"> 198 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L199" class="LineNr"> 199 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L200" class="LineNr"> 200 </span> <span class="Constant">"run: subop add\n"</span> -<span id="L201" class="LineNr"> 201 </span> <span class="Constant">"run: storing 0x0d0c0b0b\n"</span> +<span id="L197" class="LineNr"> 197 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L198" class="LineNr"> 198 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L199" class="LineNr"> 199 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L200" class="LineNr"> 200 </span> <span class="Constant">"run: subop add</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L201" class="LineNr"> 201 </span> <span class="Constant">"run: storing 0x0d0c0b0b</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L202" class="LineNr"> 202 </span> <span class="Delimiter">);</span> <span id="L203" class="LineNr"> 203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr"> 204 </span> -<span id="L205" class="LineNr"> 205 </span><span class="SalientComment">//:: subtract</span> +<span id="L205" class="LineNr"> 205 </span><span class="Comment">//:: subtract</span> <span id="L206" class="LineNr"> 206 </span> <span id="L207" class="LineNr"> 207 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L208" class="LineNr"> 208 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">"subtract imm32 from <a href='010vm.cc.html#L10'>EAX</a> (sub)"</span><span class="Delimiter">);</span> +<span id="L208" class="LineNr"> 208 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">"subtract imm32 from <a href='010vm.cc.html#L10'>EAX</a> (sub)"</span><span class="Delimiter">);</span> <span id="L209" class="LineNr"> 209 </span> <span id="L210" class="LineNr"> 210 </span><span class="Delimiter">:(code)</span> <span id="L211" class="LineNr"> 211 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L211'>test_subtract_imm32_from_EAX</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr"> 212 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0baa</span><span class="Delimiter">;</span> +<span id="L212" class="LineNr"> 212 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0baa</span><span class="Delimiter">;</span> <span id="L213" class="LineNr"> 213 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L214" class="LineNr"> 214 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L214" class="LineNr"> 214 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L215" class="LineNr"> 215 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L216" class="LineNr"> 216 </span> <span class="Constant">" 2d 0a 0b 0c 0d \n"</span> <span class="Comment">// subtract 0x0d0c0b0a from EAX</span> +<span id="L216" class="LineNr"> 216 </span> <span class="Constant">" 2d 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract 0x0d0c0b0a from EAX</span> <span id="L217" class="LineNr"> 217 </span> <span class="Delimiter">);</span> <span id="L218" class="LineNr"> 218 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L219" class="LineNr"> 219 </span> <span class="Constant">"run: subtract imm32 0x0d0c0b0a from EAX\n"</span> -<span id="L220" class="LineNr"> 220 </span> <span class="Constant">"run: storing 0x000000a0\n"</span> +<span id="L219" class="LineNr"> 219 </span> <span class="Constant">"run: subtract imm32 0x0d0c0b0a from <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L220" class="LineNr"> 220 </span> <span class="Constant">"run: storing 0x000000a0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L221" class="LineNr"> 221 </span> <span class="Delimiter">);</span> <span id="L222" class="LineNr"> 222 </span><span class="Delimiter">}</span> <span id="L223" class="LineNr"> 223 </span> <span id="L224" class="LineNr"> 224 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L225" class="LineNr"> 225 </span><span class="Normal">case</span> <span class="Constant">0x2d</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract imm32 from EAX</span> <span id="L226" class="LineNr"> 226 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L227" class="LineNr"> 227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" from EAX"</span> << end<span class="Delimiter">();</span> -<span id="L228" class="LineNr"> 228 </span> <span class="Normal">int32_t</span> signed_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i - signed_arg2<span class="Delimiter">;</span> +<span id="L227" class="LineNr"> 227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" from EAX"</span> << end<span class="Delimiter">();</span> +<span id="L228" class="LineNr"> 228 </span> <span class="Normal">int32_t</span> signed_result = Reg[EAX]<span class="Delimiter">.</span>i - signed_arg2<span class="Delimiter">;</span> <span id="L229" class="LineNr"> 229 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L230" class="LineNr"> 230 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> -<span id="L231" class="LineNr"> 231 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - signed_arg2<span class="Delimiter">;</span> +<span id="L231" class="LineNr"> 231 </span> <span class="Normal">int64_t</span> signed_full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">)</span> - signed_arg2<span class="Delimiter">;</span> <span id="L232" class="LineNr"> 232 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>signed_result != signed_full_result<span class="Delimiter">);</span> <span id="L233" class="LineNr"> 233 </span> <span class="Comment">// set CF</span> <span id="L234" class="LineNr"> 234 </span> <span class="Normal">uint32_t</span> unsigned_arg2 = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span>signed_arg2<span class="Delimiter">);</span> -<span id="L235" class="LineNr"> 235 </span> <span class="Normal">uint32_t</span> unsigned_result = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> -<span id="L236" class="LineNr"> 236 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> +<span id="L235" class="LineNr"> 235 </span> <span class="Normal">uint32_t</span> unsigned_result = Reg[EAX]<span class="Delimiter">.</span>u - unsigned_arg2<span class="Delimiter">;</span> +<span id="L236" class="LineNr"> 236 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> <span id="L237" class="LineNr"> 237 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L238" class="LineNr"> 238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L239" class="LineNr"> 239 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> -<span id="L240" class="LineNr"> 240 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L238" class="LineNr"> 238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L239" class="LineNr"> 239 </span> Reg[EAX]<span class="Delimiter">.</span>i = signed_result<span class="Delimiter">;</span> +<span id="L240" class="LineNr"> 240 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L241" class="LineNr"> 241 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L242" class="LineNr"> 242 </span><span class="Delimiter">}</span> <span id="L243" class="LineNr"> 243 </span> <span id="L244" class="LineNr"> 244 </span><span class="Delimiter">:(code)</span> <span id="L245" class="LineNr"> 245 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L245'>test_subtract_imm32_from_EAX_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L246" class="LineNr"> 246 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x80000000</span><span class="Delimiter">;</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L246" class="LineNr"> 246 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MIN</span><span class="Delimiter">;</span> <span id="L247" class="LineNr"> 247 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L248" class="LineNr"> 248 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L248" class="LineNr"> 248 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L249" class="LineNr"> 249 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L250" class="LineNr"> 250 </span> <span class="Constant">" 2d ff ff ff 7f \n"</span> <span class="Comment">// subtract largest positive signed integer from EAX</span> +<span id="L250" class="LineNr"> 250 </span> <span class="Constant">" 2d 01 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract 1 from EAX</span> <span id="L251" class="LineNr"> 251 </span> <span class="Delimiter">);</span> <span id="L252" class="LineNr"> 252 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L253" class="LineNr"> 253 </span> <span class="Constant">"run: subtract imm32 0x7fffffff from EAX\n"</span> -<span id="L254" class="LineNr"> 254 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1\n"</span> -<span id="L255" class="LineNr"> 255 </span> <span class="Constant">"run: storing 0x00000001\n"</span> +<span id="L253" class="LineNr"> 253 </span> <span class="Constant">"run: subtract imm32 0x00000001 from <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L254" class="LineNr"> 254 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L255" class="LineNr"> 255 </span> <span class="Constant">"run: storing 0x7fffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// INT32_MAX</span> <span id="L256" class="LineNr"> 256 </span> <span class="Delimiter">);</span> <span id="L257" class="LineNr"> 257 </span><span class="Delimiter">}</span> <span id="L258" class="LineNr"> 258 </span> <span id="L259" class="LineNr"> 259 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L259'>test_subtract_imm32_from_EAX_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L260" class="LineNr"> 260 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L260" class="LineNr"> 260 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L261" class="LineNr"> 261 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L262" class="LineNr"> 262 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L262" class="LineNr"> 262 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L263" class="LineNr"> 263 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L264" class="LineNr"> 264 </span> <span class="Constant">" 2d 01 00 00 00 \n"</span> <span class="Comment">// subtract 1 from EAX</span> +<span id="L264" class="LineNr"> 264 </span> <span class="Constant">" 2d 01 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract 1 from EAX</span> <span id="L265" class="LineNr"> 265 </span> <span class="Delimiter">);</span> <span id="L266" class="LineNr"> 266 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L267" class="LineNr"> 267 </span> <span class="Constant">"run: subtract imm32 0x00000001 from EAX\n"</span> -<span id="L268" class="LineNr"> 268 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> -<span id="L269" class="LineNr"> 269 </span> <span class="Constant">"run: storing 0xffffffff\n"</span> +<span id="L267" class="LineNr"> 267 </span> <span class="Constant">"run: subtract imm32 0x00000001 from <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L268" class="LineNr"> 268 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L269" class="LineNr"> 269 </span> <span class="Constant">"run: storing 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L270" class="LineNr"> 270 </span> <span class="Delimiter">);</span> <span id="L271" class="LineNr"> 271 </span><span class="Delimiter">}</span> <span id="L272" class="LineNr"> 272 </span> <span id="L273" class="LineNr"> 273 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L273'>test_subtract_imm32_from_EAX_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L274" class="LineNr"> 274 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L274" class="LineNr"> 274 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L275" class="LineNr"> 275 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L276" class="LineNr"> 276 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L276" class="LineNr"> 276 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L277" class="LineNr"> 277 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L278" class="LineNr"> 278 </span> <span class="Constant">" 2d 00 00 00 80 \n"</span> <span class="Comment">// subtract smallest negative signed integer from EAX</span> +<span id="L278" class="LineNr"> 278 </span> <span class="Constant">" 2d 00 00 00 80 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract INT32_MIN from EAX</span> <span id="L279" class="LineNr"> 279 </span> <span class="Delimiter">);</span> <span id="L280" class="LineNr"> 280 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L281" class="LineNr"> 281 </span> <span class="Constant">"run: subtract imm32 0x80000000 from EAX\n"</span> -<span id="L282" class="LineNr"> 282 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> -<span id="L283" class="LineNr"> 283 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L281" class="LineNr"> 281 </span> <span class="Constant">"run: subtract imm32 0x80000000 from <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L282" class="LineNr"> 282 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L283" class="LineNr"> 283 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L284" class="LineNr"> 284 </span> <span class="Delimiter">);</span> <span id="L285" class="LineNr"> 285 </span><span class="Delimiter">}</span> <span id="L286" class="LineNr"> 286 </span> <span id="L287" class="LineNr"> 287 </span><span class="Comment">//:</span> <span id="L288" class="LineNr"> 288 </span> -<span id="L289" class="LineNr"> 289 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L289'>test_subtract_imm32_from_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L290" class="LineNr"> 290 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L289" class="LineNr"> 289 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L289'>test_subtract_imm32_from_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L290" class="LineNr"> 290 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L291" class="LineNr"> 291 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L292" class="LineNr"> 292 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L292" class="LineNr"> 292 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L293" class="LineNr"> 293 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L294" class="LineNr"> 294 </span> <span class="Constant">" 81 2b 01 00 00 00 \n"</span> <span class="Comment">// subtract 1 from *EBX</span> +<span id="L294" class="LineNr"> 294 </span> <span class="Constant">" 81 2b 01 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract 1 from *EBX</span> <span id="L295" class="LineNr"> 295 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 101 (subop subtract) 011 (dest EBX)</span> -<span id="L296" class="LineNr"> 296 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L297" class="LineNr"> 297 </span> <span class="Constant">"0a 00 00 00\n"</span> <span class="Comment">// 0x0000000a</span> +<span id="L296" class="LineNr"> 296 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L297" class="LineNr"> 297 </span> <span class="Constant">"0a 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xa</span> <span id="L298" class="LineNr"> 298 </span> <span class="Delimiter">);</span> <span id="L299" class="LineNr"> 299 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L300" class="LineNr"> 300 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L301" class="LineNr"> 301 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L302" class="LineNr"> 302 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> -<span id="L303" class="LineNr"> 303 </span> <span class="Constant">"run: subop subtract\n"</span> -<span id="L304" class="LineNr"> 304 </span> <span class="Constant">"run: storing 0x00000009\n"</span> +<span id="L300" class="LineNr"> 300 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L301" class="LineNr"> 301 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L302" class="LineNr"> 302 </span> <span class="Constant">"run: imm32 is 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L303" class="LineNr"> 303 </span> <span class="Constant">"run: subop subtract</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L304" class="LineNr"> 304 </span> <span class="Constant">"run: storing 0x00000009</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L305" class="LineNr"> 305 </span> <span class="Delimiter">);</span> <span id="L306" class="LineNr"> 306 </span><span class="Delimiter">}</span> <span id="L307" class="LineNr"> 307 </span> <span id="L308" class="LineNr"> 308 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L309" class="LineNr"> 309 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> -<span id="L310" class="LineNr"> 310 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop subtract"</span> << end<span class="Delimiter">();</span> +<span id="L310" class="LineNr"> 310 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop subtract"</span> << end<span class="Delimiter">();</span> <span id="L311" class="LineNr"> 311 </span> <span class="Normal">int32_t</span> signed_result = *signed_arg1 - signed_arg2<span class="Delimiter">;</span> <span id="L312" class="LineNr"> 312 </span> SF = <span class="Delimiter">(</span>signed_result < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L313" class="LineNr"> 313 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_result == <span class="Constant">0</span><span class="Delimiter">);</span> @@ -380,126 +378,126 @@ if ('onhashchange' in window) { <span id="L319" class="LineNr"> 319 </span> <span class="Normal">uint32_t</span> unsigned_result = unsigned_arg1 - unsigned_arg2<span class="Delimiter">;</span> <span id="L320" class="LineNr"> 320 </span> <span class="Normal">uint64_t</span> unsigned_full_result = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> <span id="L321" class="LineNr"> 321 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_result != unsigned_full_result<span class="Delimiter">);</span> -<span id="L322" class="LineNr"> 322 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L322" class="LineNr"> 322 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L323" class="LineNr"> 323 </span> *signed_arg1 = signed_result<span class="Delimiter">;</span> -<span id="L324" class="LineNr"> 324 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L324" class="LineNr"> 324 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L325" class="LineNr"> 325 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L326" class="LineNr"> 326 </span><span class="Delimiter">}</span> <span id="L327" class="LineNr"> 327 </span> <span id="L328" class="LineNr"> 328 </span><span class="Delimiter">:(code)</span> -<span id="L329" class="LineNr"> 329 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L329'>test_subtract_imm32_from_mem_at_r32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L330" class="LineNr"> 330 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L329" class="LineNr"> 329 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L329'>test_subtract_imm32_from_mem_at_rm32_signed_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L330" class="LineNr"> 330 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L331" class="LineNr"> 331 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L332" class="LineNr"> 332 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L332" class="LineNr"> 332 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L333" class="LineNr"> 333 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L334" class="LineNr"> 334 </span> <span class="Constant">" 81 2b ff ff ff 7f \n"</span> <span class="Comment">// subtract largest positive signed integer from *EBX</span> +<span id="L334" class="LineNr"> 334 </span> <span class="Constant">" 81 2b ff ff ff 7f </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract INT32_MAX from *EBX</span> <span id="L335" class="LineNr"> 335 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 101 (subop subtract) 011 (dest EBX)</span> -<span id="L336" class="LineNr"> 336 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L337" class="LineNr"> 337 </span> <span class="Constant">"00 00 00 80\n"</span> <span class="Comment">// smallest negative signed integer</span> +<span id="L336" class="LineNr"> 336 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L337" class="LineNr"> 337 </span> <span class="Constant">"00 00 00 80</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// INT32_MIN</span> <span id="L338" class="LineNr"> 338 </span> <span class="Delimiter">);</span> <span id="L339" class="LineNr"> 339 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L340" class="LineNr"> 340 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L341" class="LineNr"> 341 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L342" class="LineNr"> 342 </span> <span class="Constant">"run: effective address contains 0x80000000\n"</span> -<span id="L343" class="LineNr"> 343 </span> <span class="Constant">"run: imm32 is 0x7fffffff\n"</span> -<span id="L344" class="LineNr"> 344 </span> <span class="Constant">"run: subop subtract\n"</span> -<span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1\n"</span> -<span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: storing 0x00000001\n"</span> +<span id="L340" class="LineNr"> 340 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L341" class="LineNr"> 341 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L342" class="LineNr"> 342 </span> <span class="Constant">"run: effective address contains 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L343" class="LineNr"> 343 </span> <span class="Constant">"run: imm32 is 0x7fffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L344" class="LineNr"> 344 </span> <span class="Constant">"run: subop subtract</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L345" class="LineNr"> 345 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L346" class="LineNr"> 346 </span> <span class="Constant">"run: storing 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L347" class="LineNr"> 347 </span> <span class="Delimiter">);</span> <span id="L348" class="LineNr"> 348 </span><span class="Delimiter">}</span> <span id="L349" class="LineNr"> 349 </span> -<span id="L350" class="LineNr"> 350 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L350'>test_subtract_imm32_from_mem_at_r32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L351" class="LineNr"> 351 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L350" class="LineNr"> 350 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L350'>test_subtract_imm32_from_mem_at_rm32_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L351" class="LineNr"> 351 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L352" class="LineNr"> 352 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L353" class="LineNr"> 353 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L353" class="LineNr"> 353 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L354" class="LineNr"> 354 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L355" class="LineNr"> 355 </span> <span class="Constant">" 81 2b 01 00 00 00 \n"</span> <span class="Comment">// subtract 1 from *EBX</span> +<span id="L355" class="LineNr"> 355 </span> <span class="Constant">" 81 2b 01 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract 1 from *EBX</span> <span id="L356" class="LineNr"> 356 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 101 (subop subtract) 011 (dest EBX)</span> -<span id="L357" class="LineNr"> 357 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L358" class="LineNr"> 358 </span> <span class="Constant">"00 00 00 00\n"</span> <span class="Comment">// 0</span> +<span id="L357" class="LineNr"> 357 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L358" class="LineNr"> 358 </span> <span class="Constant">"00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0</span> <span id="L359" class="LineNr"> 359 </span> <span class="Delimiter">);</span> <span id="L360" class="LineNr"> 360 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L361" class="LineNr"> 361 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L362" class="LineNr"> 362 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L363" class="LineNr"> 363 </span> <span class="Constant">"run: effective address contains 0x00000000\n"</span> -<span id="L364" class="LineNr"> 364 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> -<span id="L365" class="LineNr"> 365 </span> <span class="Constant">"run: subop subtract\n"</span> -<span id="L366" class="LineNr"> 366 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> -<span id="L367" class="LineNr"> 367 </span> <span class="Constant">"run: storing 0xffffffff\n"</span> +<span id="L361" class="LineNr"> 361 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L362" class="LineNr"> 362 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L363" class="LineNr"> 363 </span> <span class="Constant">"run: effective address contains 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L364" class="LineNr"> 364 </span> <span class="Constant">"run: imm32 is 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L365" class="LineNr"> 365 </span> <span class="Constant">"run: subop subtract</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L366" class="LineNr"> 366 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L367" class="LineNr"> 367 </span> <span class="Constant">"run: storing 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L368" class="LineNr"> 368 </span> <span class="Delimiter">);</span> <span id="L369" class="LineNr"> 369 </span><span class="Delimiter">}</span> <span id="L370" class="LineNr"> 370 </span> -<span id="L371" class="LineNr"> 371 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L371'>test_subtract_imm32_from_mem_at_r32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L372" class="LineNr"> 372 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L371" class="LineNr"> 371 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L371'>test_subtract_imm32_from_mem_at_rm32_signed_and_unsigned_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L372" class="LineNr"> 372 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L373" class="LineNr"> 373 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L374" class="LineNr"> 374 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L374" class="LineNr"> 374 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L375" class="LineNr"> 375 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L376" class="LineNr"> 376 </span> <span class="Constant">" 81 2b 00 00 00 80 \n"</span> <span class="Comment">// subtract smallest negative signed integer from *EBX</span> +<span id="L376" class="LineNr"> 376 </span> <span class="Constant">" 81 2b 00 00 00 80 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract INT32_MIN from *EBX</span> <span id="L377" class="LineNr"> 377 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 101 (subop subtract) 011 (dest EBX)</span> -<span id="L378" class="LineNr"> 378 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L379" class="LineNr"> 379 </span> <span class="Constant">"00 00 00 00\n"</span> <span class="Comment">// 0</span> +<span id="L378" class="LineNr"> 378 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L379" class="LineNr"> 379 </span> <span class="Constant">"00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0</span> <span id="L380" class="LineNr"> 380 </span> <span class="Delimiter">);</span> <span id="L381" class="LineNr"> 381 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L382" class="LineNr"> 382 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L383" class="LineNr"> 383 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L384" class="LineNr"> 384 </span> <span class="Constant">"run: effective address contains 0x00000000\n"</span> -<span id="L385" class="LineNr"> 385 </span> <span class="Constant">"run: imm32 is 0x80000000\n"</span> -<span id="L386" class="LineNr"> 386 </span> <span class="Constant">"run: subop subtract\n"</span> -<span id="L387" class="LineNr"> 387 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> -<span id="L388" class="LineNr"> 388 </span> <span class="Constant">"run: storing 0x80000000\n"</span> +<span id="L382" class="LineNr"> 382 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L383" class="LineNr"> 383 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L384" class="LineNr"> 384 </span> <span class="Constant">"run: effective address contains 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L385" class="LineNr"> 385 </span> <span class="Constant">"run: imm32 is 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L386" class="LineNr"> 386 </span> <span class="Constant">"run: subop subtract</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L387" class="LineNr"> 387 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L388" class="LineNr"> 388 </span> <span class="Constant">"run: storing 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L389" class="LineNr"> 389 </span> <span class="Delimiter">);</span> <span id="L390" class="LineNr"> 390 </span><span class="Delimiter">}</span> <span id="L391" class="LineNr"> 391 </span> <span id="L392" class="LineNr"> 392 </span><span class="Comment">//:</span> <span id="L393" class="LineNr"> 393 </span> <span id="L394" class="LineNr"> 394 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L394'>test_subtract_imm32_from_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L395" class="LineNr"> 395 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L395" class="LineNr"> 395 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> <span id="L396" class="LineNr"> 396 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L397" class="LineNr"> 397 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L397" class="LineNr"> 397 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L398" class="LineNr"> 398 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L399" class="LineNr"> 399 </span> <span class="Constant">" 81 eb 01 00 00 00 \n"</span> <span class="Comment">// subtract 1 from EBX</span> +<span id="L399" class="LineNr"> 399 </span> <span class="Constant">" 81 eb 01 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// subtract 1 from EBX</span> <span id="L400" class="LineNr"> 400 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop subtract) 011 (dest EBX)</span> <span id="L401" class="LineNr"> 401 </span> <span class="Delimiter">);</span> <span id="L402" class="LineNr"> 402 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L403" class="LineNr"> 403 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L404" class="LineNr"> 404 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L405" class="LineNr"> 405 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> -<span id="L406" class="LineNr"> 406 </span> <span class="Constant">"run: subop subtract\n"</span> -<span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: storing 0x00000009\n"</span> +<span id="L403" class="LineNr"> 403 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L404" class="LineNr"> 404 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L405" class="LineNr"> 405 </span> <span class="Constant">"run: imm32 is 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L406" class="LineNr"> 406 </span> <span class="Constant">"run: subop subtract</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L407" class="LineNr"> 407 </span> <span class="Constant">"run: storing 0x00000009</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L408" class="LineNr"> 408 </span> <span class="Delimiter">);</span> <span id="L409" class="LineNr"> 409 </span><span class="Delimiter">}</span> <span id="L410" class="LineNr"> 410 </span> -<span id="L411" class="LineNr"> 411 </span><span class="SalientComment">//:: shift left</span> +<span id="L411" class="LineNr"> 411 </span><span class="Comment">//:: shift left</span> <span id="L412" class="LineNr"> 412 </span> <span id="L413" class="LineNr"> 413 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L414" class="LineNr"> 414 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by imm8 bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> +<span id="L414" class="LineNr"> 414 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">"shift rm32 by imm8 bits depending on subop (sal/sar/shl/shr)"</span><span class="Delimiter">);</span> <span id="L415" class="LineNr"> 415 </span> <span id="L416" class="LineNr"> 416 </span><span class="Delimiter">:(code)</span> <span id="L417" class="LineNr"> 417 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L417'>test_shift_left_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L418" class="LineNr"> 418 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> +<span id="L418" class="LineNr"> 418 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">13</span><span class="Delimiter">;</span> <span id="L419" class="LineNr"> 419 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L420" class="LineNr"> 420 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L420" class="LineNr"> 420 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L421" class="LineNr"> 421 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L422" class="LineNr"> 422 </span> <span class="Constant">" c1 e3 01 \n"</span> <span class="Comment">// shift EBX left by 1 bit</span> +<span id="L422" class="LineNr"> 422 </span> <span class="Constant">" c1 e3 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX left by 1 bit</span> <span id="L423" class="LineNr"> 423 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop shift left) 011 (dest EBX)</span> <span id="L424" class="LineNr"> 424 </span> <span class="Delimiter">);</span> <span id="L425" class="LineNr"> 425 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L426" class="LineNr"> 426 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L427" class="LineNr"> 427 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L428" class="LineNr"> 428 </span> <span class="Constant">"run: subop: shift left by CL bits\n"</span> -<span id="L429" class="LineNr"> 429 </span> <span class="Constant">"run: storing 0x0000001a\n"</span> +<span id="L426" class="LineNr"> 426 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L427" class="LineNr"> 427 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L428" class="LineNr"> 428 </span> <span class="Constant">"run: subop: shift left by CL bits</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L429" class="LineNr"> 429 </span> <span class="Constant">"run: storing 0x0000001a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L430" class="LineNr"> 430 </span> <span class="Delimiter">);</span> <span id="L431" class="LineNr"> 431 </span><span class="Delimiter">}</span> <span id="L432" class="LineNr"> 432 </span> <span id="L433" class="LineNr"> 433 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L434" class="LineNr"> 434 </span><span class="Normal">case</span> <span class="Constant">0xc1</span>: <span class="Delimiter">{</span> <span id="L435" class="LineNr"> 435 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L436" class="LineNr"> 436 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L436" class="LineNr"> 436 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"operate on r/m32"</span> << end<span class="Delimiter">();</span> <span id="L437" class="LineNr"> 437 </span> <span class="Normal">int32_t</span>* arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L438" class="LineNr"> 438 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L439" class="LineNr"> 439 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>subop<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L440" class="LineNr"> 440 </span> <span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> <span class="Comment">// shift left r/m32 by CL</span> -<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> +<span id="L441" class="LineNr"> 441 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift left by CL bits"</span> << end<span class="Delimiter">();</span> <span id="L442" class="LineNr"> 442 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L443" class="LineNr"> 443 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L444" class="LineNr"> 444 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -511,8 +509,8 @@ if ('onhashchange' in window) { <span id="L450" class="LineNr"> 450 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L451" class="LineNr"> 451 </span> SF = <span class="Delimiter">(</span>*arg1 < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L452" class="LineNr"> 452 </span> <span class="Comment">// CF undefined</span> -<span id="L453" class="LineNr"> 453 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L454" class="LineNr"> 454 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L453" class="LineNr"> 453 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L454" class="LineNr"> 454 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L455" class="LineNr"> 455 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L456" class="LineNr"> 456 </span> <span class="Delimiter">}</span> <span id="L457" class="LineNr"> 457 </span> <span class="Comment">// End Op c1 Subops</span> @@ -523,28 +521,28 @@ if ('onhashchange' in window) { <span id="L462" class="LineNr"> 462 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L463" class="LineNr"> 463 </span><span class="Delimiter">}</span> <span id="L464" class="LineNr"> 464 </span> -<span id="L465" class="LineNr"> 465 </span><span class="SalientComment">//:: shift right arithmetic</span> +<span id="L465" class="LineNr"> 465 </span><span class="Comment">//:: shift right arithmetic</span> <span id="L466" class="LineNr"> 466 </span> <span id="L467" class="LineNr"> 467 </span><span class="Delimiter">:(code)</span> <span id="L468" class="LineNr"> 468 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L468'>test_shift_right_arithmetic_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr"> 469 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L469" class="LineNr"> 469 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> <span id="L470" class="LineNr"> 470 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L471" class="LineNr"> 471 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L471" class="LineNr"> 471 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L472" class="LineNr"> 472 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L473" class="LineNr"> 473 </span> <span class="Constant">" c1 fb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit</span> +<span id="L473" class="LineNr"> 473 </span> <span class="Constant">" c1 fb 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by 1 bit</span> <span id="L474" class="LineNr"> 474 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L475" class="LineNr"> 475 </span> <span class="Delimiter">);</span> <span id="L476" class="LineNr"> 476 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L477" class="LineNr"> 477 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L478" class="LineNr"> 478 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L479" class="LineNr"> 479 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> -<span id="L480" class="LineNr"> 480 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L477" class="LineNr"> 477 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L478" class="LineNr"> 478 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L479" class="LineNr"> 479 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L480" class="LineNr"> 480 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L481" class="LineNr"> 481 </span> <span class="Delimiter">);</span> <span id="L482" class="LineNr"> 482 </span><span class="Delimiter">}</span> <span id="L483" class="LineNr"> 483 </span> <span id="L484" class="LineNr"> 484 </span><span class="Delimiter">:(before "End Op c1 Subops")</span> <span id="L485" class="LineNr"> 485 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, preserving sign</span> -<span id="L486" class="LineNr"> 486 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> +<span id="L486" class="LineNr"> 486 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while preserving sign"</span> << end<span class="Delimiter">();</span> <span id="L487" class="LineNr"> 487 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L488" class="LineNr"> 488 </span> <span class="Normal">int32_t</span> result = <span class="Delimiter">(</span>*arg1 >> count<span class="Delimiter">);</span> <span id="L489" class="LineNr"> 489 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> @@ -553,70 +551,70 @@ if ('onhashchange' in window) { <span id="L492" class="LineNr"> 492 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L493" class="LineNr"> 493 </span> <span class="Comment">// CF</span> <span id="L494" class="LineNr"> 494 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">((</span>*arg1 >> <span class="Delimiter">(</span>count-<span class="Constant">1</span><span class="Delimiter">))</span> & <span class="Constant">0x1</span><span class="Delimiter">);</span> -<span id="L495" class="LineNr"> 495 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L495" class="LineNr"> 495 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L496" class="LineNr"> 496 </span> *arg1 = result<span class="Delimiter">;</span> -<span id="L497" class="LineNr"> 497 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L497" class="LineNr"> 497 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L498" class="LineNr"> 498 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L499" class="LineNr"> 499 </span><span class="Delimiter">}</span> <span id="L500" class="LineNr"> 500 </span> <span id="L501" class="LineNr"> 501 </span><span class="Delimiter">:(code)</span> <span id="L502" class="LineNr"> 502 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L502'>test_shift_right_arithmetic_odd_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L503" class="LineNr"> 503 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L503" class="LineNr"> 503 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> <span id="L504" class="LineNr"> 504 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L505" class="LineNr"> 505 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L505" class="LineNr"> 505 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L506" class="LineNr"> 506 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L507" class="LineNr"> 507 </span> <span class="Constant">" c1 fb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit</span> +<span id="L507" class="LineNr"> 507 </span> <span class="Constant">" c1 fb 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by 1 bit</span> <span id="L508" class="LineNr"> 508 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L509" class="LineNr"> 509 </span> <span class="Delimiter">);</span> <span id="L510" class="LineNr"> 510 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L511" class="LineNr"> 511 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L512" class="LineNr"> 512 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L513" class="LineNr"> 513 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> +<span id="L511" class="LineNr"> 511 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L512" class="LineNr"> 512 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L513" class="LineNr"> 513 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L514" class="LineNr"> 514 </span> <span class="Comment">// result: 13</span> -<span id="L515" class="LineNr"> 515 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L515" class="LineNr"> 515 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L516" class="LineNr"> 516 </span> <span class="Delimiter">);</span> <span id="L517" class="LineNr"> 517 </span><span class="Delimiter">}</span> <span id="L518" class="LineNr"> 518 </span> <span id="L519" class="LineNr"> 519 </span><span class="Delimiter">:(code)</span> <span id="L520" class="LineNr"> 520 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L520'>test_shift_right_arithmetic_negative_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L521" class="LineNr"> 521 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> +<span id="L521" class="LineNr"> 521 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span class="Comment">// -3</span> <span id="L522" class="LineNr"> 522 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L523" class="LineNr"> 523 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L523" class="LineNr"> 523 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L524" class="LineNr"> 524 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L525" class="LineNr"> 525 </span> <span class="Constant">" c1 fb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while preserving sign</span> +<span id="L525" class="LineNr"> 525 </span> <span class="Constant">" c1 fb 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by 1 bit, while preserving sign</span> <span id="L526" class="LineNr"> 526 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop shift right arithmetic) 011 (dest EBX)</span> <span id="L527" class="LineNr"> 527 </span> <span class="Delimiter">);</span> <span id="L528" class="LineNr"> 528 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L529" class="LineNr"> 529 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L530" class="LineNr"> 530 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L531" class="LineNr"> 531 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign\n"</span> +<span id="L529" class="LineNr"> 529 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L530" class="LineNr"> 530 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L531" class="LineNr"> 531 </span> <span class="Constant">"run: subop: shift right by CL bits, while preserving sign</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L532" class="LineNr"> 532 </span> <span class="Comment">// result: -2</span> -<span id="L533" class="LineNr"> 533 </span> <span class="Constant">"run: storing 0xfffffffe\n"</span> +<span id="L533" class="LineNr"> 533 </span> <span class="Constant">"run: storing 0xfffffffe</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L534" class="LineNr"> 534 </span> <span class="Delimiter">);</span> <span id="L535" class="LineNr"> 535 </span><span class="Delimiter">}</span> <span id="L536" class="LineNr"> 536 </span> -<span id="L537" class="LineNr"> 537 </span><span class="SalientComment">//:: shift right logical</span> +<span id="L537" class="LineNr"> 537 </span><span class="Comment">//:: shift right logical</span> <span id="L538" class="LineNr"> 538 </span> <span id="L539" class="LineNr"> 539 </span><span class="Delimiter">:(code)</span> <span id="L540" class="LineNr"> 540 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L540'>test_shift_right_logical_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L541" class="LineNr"> 541 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> +<span id="L541" class="LineNr"> 541 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">26</span><span class="Delimiter">;</span> <span id="L542" class="LineNr"> 542 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L543" class="LineNr"> 543 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L543" class="LineNr"> 543 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L544" class="LineNr"> 544 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L545" class="LineNr"> 545 </span> <span class="Constant">" c1 eb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> +<span id="L545" class="LineNr"> 545 </span> <span class="Constant">" c1 eb 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> <span id="L546" class="LineNr"> 546 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L547" class="LineNr"> 547 </span> <span class="Delimiter">);</span> <span id="L548" class="LineNr"> 548 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L549" class="LineNr"> 549 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L550" class="LineNr"> 550 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L551" class="LineNr"> 551 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> -<span id="L552" class="LineNr"> 552 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L549" class="LineNr"> 549 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L550" class="LineNr"> 550 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L551" class="LineNr"> 551 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L552" class="LineNr"> 552 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L553" class="LineNr"> 553 </span> <span class="Delimiter">);</span> <span id="L554" class="LineNr"> 554 </span><span class="Delimiter">}</span> <span id="L555" class="LineNr"> 555 </span> <span id="L556" class="LineNr"> 556 </span><span class="Delimiter">:(before "End Op c1 Subops")</span> <span id="L557" class="LineNr"> 557 </span><span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> <span class="Comment">// shift right r/m32 by CL, preserving sign</span> -<span id="L558" class="LineNr"> 558 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> +<span id="L558" class="LineNr"> 558 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop: shift right by CL bits, while padding zeroes"</span> << end<span class="Delimiter">();</span> <span id="L559" class="LineNr"> 559 </span> <span class="Normal">uint8_t</span> count = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">()</span> & <span class="Constant">0x1f</span><span class="Delimiter">;</span> <span id="L560" class="LineNr"> 560 </span> <span class="Comment">// OF is only defined if count is 1</span> <span id="L561" class="LineNr"> 561 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>count == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -630,61 +628,61 @@ if ('onhashchange' in window) { <span id="L569" class="LineNr"> 569 </span> <span class="Comment">// result is always positive by definition</span> <span id="L570" class="LineNr"> 570 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L571" class="LineNr"> 571 </span> <span class="Comment">// CF undefined</span> -<span id="L572" class="LineNr"> 572 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L573" class="LineNr"> 573 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> +<span id="L572" class="LineNr"> 572 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L573" class="LineNr"> 573 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *arg1 << end<span class="Delimiter">();</span> <span id="L574" class="LineNr"> 574 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L575" class="LineNr"> 575 </span><span class="Delimiter">}</span> <span id="L576" class="LineNr"> 576 </span> <span id="L577" class="LineNr"> 577 </span><span class="Delimiter">:(code)</span> <span id="L578" class="LineNr"> 578 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L578'>test_shift_right_logical_odd_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L579" class="LineNr"> 579 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> +<span id="L579" class="LineNr"> 579 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">27</span><span class="Delimiter">;</span> <span id="L580" class="LineNr"> 580 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L581" class="LineNr"> 581 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L581" class="LineNr"> 581 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L582" class="LineNr"> 582 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L583" class="LineNr"> 583 </span> <span class="Constant">" c1 eb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> +<span id="L583" class="LineNr"> 583 </span> <span class="Constant">" c1 eb 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> <span id="L584" class="LineNr"> 584 </span> <span class="Delimiter">);</span> <span id="L585" class="LineNr"> 585 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L586" class="LineNr"> 586 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L587" class="LineNr"> 587 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L588" class="LineNr"> 588 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> +<span id="L586" class="LineNr"> 586 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L587" class="LineNr"> 587 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L588" class="LineNr"> 588 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L589" class="LineNr"> 589 </span> <span class="Comment">// result: 13</span> -<span id="L590" class="LineNr"> 590 </span> <span class="Constant">"run: storing 0x0000000d\n"</span> +<span id="L590" class="LineNr"> 590 </span> <span class="Constant">"run: storing 0x0000000d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L591" class="LineNr"> 591 </span> <span class="Delimiter">);</span> <span id="L592" class="LineNr"> 592 </span><span class="Delimiter">}</span> <span id="L593" class="LineNr"> 593 </span> <span id="L594" class="LineNr"> 594 </span><span class="Delimiter">:(code)</span> <span id="L595" class="LineNr"> 595 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L595'>test_shift_right_logical_negative_r32_with_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L596" class="LineNr"> 596 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> +<span id="L596" class="LineNr"> 596 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xfffffffd</span><span class="Delimiter">;</span> <span id="L597" class="LineNr"> 597 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L598" class="LineNr"> 598 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L598" class="LineNr"> 598 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L599" class="LineNr"> 599 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L600" class="LineNr"> 600 </span> <span class="Constant">" c1 eb 01 \n"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> +<span id="L600" class="LineNr"> 600 </span> <span class="Constant">" c1 eb 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// shift EBX right by 1 bit, while padding zeroes</span> <span id="L601" class="LineNr"> 601 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 101 (subop shift right logical) 011 (dest EBX)</span> <span id="L602" class="LineNr"> 602 </span> <span class="Delimiter">);</span> <span id="L603" class="LineNr"> 603 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L604" class="LineNr"> 604 </span> <span class="Constant">"run: operate on r/m32\n"</span> -<span id="L605" class="LineNr"> 605 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L606" class="LineNr"> 606 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes\n"</span> -<span id="L607" class="LineNr"> 607 </span> <span class="Constant">"run: storing 0x7ffffffe\n"</span> +<span id="L604" class="LineNr"> 604 </span> <span class="Constant">"run: operate on r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L605" class="LineNr"> 605 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L606" class="LineNr"> 606 </span> <span class="Constant">"run: subop: shift right by CL bits, while padding zeroes</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L607" class="LineNr"> 607 </span> <span class="Constant">"run: storing 0x7ffffffe</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L608" class="LineNr"> 608 </span> <span class="Delimiter">);</span> <span id="L609" class="LineNr"> 609 </span><span class="Delimiter">}</span> <span id="L610" class="LineNr"> 610 </span> -<span id="L611" class="LineNr"> 611 </span><span class="SalientComment">//:: and</span> +<span id="L611" class="LineNr"> 611 </span><span class="Comment">//:: and</span> <span id="L612" class="LineNr"> 612 </span> <span id="L613" class="LineNr"> 613 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L614" class="LineNr"> 614 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise AND of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (and)"</span><span class="Delimiter">);</span> +<span id="L614" class="LineNr"> 614 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise AND of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (and)"</span><span class="Delimiter">);</span> <span id="L615" class="LineNr"> 615 </span> <span id="L616" class="LineNr"> 616 </span><span class="Delimiter">:(code)</span> <span id="L617" class="LineNr"> 617 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L617'>test_and_EAX_with_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L618" class="LineNr"> 618 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> +<span id="L618" class="LineNr"> 618 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span id="L619" class="LineNr"> 619 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L620" class="LineNr"> 620 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L620" class="LineNr"> 620 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L621" class="LineNr"> 621 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L622" class="LineNr"> 622 </span> <span class="Constant">" 25 0a 0b 0c 0d \n"</span> <span class="Comment">// and 0x0d0c0b0a with EAX</span> +<span id="L622" class="LineNr"> 622 </span> <span class="Constant">" 25 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// and 0x0d0c0b0a with EAX</span> <span id="L623" class="LineNr"> 623 </span> <span class="Delimiter">);</span> <span id="L624" class="LineNr"> 624 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L625" class="LineNr"> 625 </span> <span class="Constant">"run: and imm32 0x0d0c0b0a with EAX\n"</span> -<span id="L626" class="LineNr"> 626 </span> <span class="Constant">"run: storing 0x0000000a\n"</span> +<span id="L625" class="LineNr"> 625 </span> <span class="Constant">"run: and imm32 0x0d0c0b0a with <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L626" class="LineNr"> 626 </span> <span class="Constant">"run: storing 0x0000000a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L627" class="LineNr"> 627 </span> <span class="Delimiter">);</span> <span id="L628" class="LineNr"> 628 </span><span class="Delimiter">}</span> <span id="L629" class="LineNr"> 629 </span> @@ -693,51 +691,51 @@ if ('onhashchange' in window) { <span id="L632" class="LineNr"> 632 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L633" class="LineNr"> 633 </span> <span class="Comment">// difference</span> <span id="L634" class="LineNr"> 634 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> -<span id="L636" class="LineNr"> 636 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i &= signed_arg2<span class="Delimiter">;</span> -<span id="L637" class="LineNr"> 637 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L638" class="LineNr"> 638 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L639" class="LineNr"> 639 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L635" class="LineNr"> 635 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"and imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> +<span id="L636" class="LineNr"> 636 </span> Reg[EAX]<span class="Delimiter">.</span>i &= signed_arg2<span class="Delimiter">;</span> +<span id="L637" class="LineNr"> 637 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L638" class="LineNr"> 638 </span> SF = <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L639" class="LineNr"> 639 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L640" class="LineNr"> 640 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L641" class="LineNr"> 641 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L642" class="LineNr"> 642 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L642" class="LineNr"> 642 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L643" class="LineNr"> 643 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L644" class="LineNr"> 644 </span><span class="Delimiter">}</span> <span id="L645" class="LineNr"> 645 </span> <span id="L646" class="LineNr"> 646 </span><span class="Comment">//:</span> <span id="L647" class="LineNr"> 647 </span> <span id="L648" class="LineNr"> 648 </span><span class="Delimiter">:(code)</span> -<span id="L649" class="LineNr"> 649 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L649'>test_and_imm32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L650" class="LineNr"> 650 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L649" class="LineNr"> 649 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L649'>test_and_imm32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L650" class="LineNr"> 650 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L651" class="LineNr"> 651 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L652" class="LineNr"> 652 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L652" class="LineNr"> 652 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L653" class="LineNr"> 653 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L654" class="LineNr"> 654 </span> <span class="Constant">" 81 23 0a 0b 0c 0d \n"</span> <span class="Comment">// and 0x0d0c0b0a with *EBX</span> +<span id="L654" class="LineNr"> 654 </span> <span class="Constant">" 81 23 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// and 0x0d0c0b0a with *EBX</span> <span id="L655" class="LineNr"> 655 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 100 (subop and) 011 (dest EBX)</span> -<span id="L656" class="LineNr"> 656 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L657" class="LineNr"> 657 </span> <span class="Constant">"ff 00 00 00\n"</span> <span class="Comment">// 0x000000ff</span> +<span id="L656" class="LineNr"> 656 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L657" class="LineNr"> 657 </span> <span class="Constant">"ff 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xff</span> <span id="L658" class="LineNr"> 658 </span> <span class="Delimiter">);</span> <span id="L659" class="LineNr"> 659 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L660" class="LineNr"> 660 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L661" class="LineNr"> 661 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L662" class="LineNr"> 662 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L663" class="LineNr"> 663 </span> <span class="Constant">"run: subop and\n"</span> -<span id="L664" class="LineNr"> 664 </span> <span class="Constant">"run: storing 0x0000000a\n"</span> +<span id="L660" class="LineNr"> 660 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L661" class="LineNr"> 661 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L662" class="LineNr"> 662 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L663" class="LineNr"> 663 </span> <span class="Constant">"run: subop and</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L664" class="LineNr"> 664 </span> <span class="Constant">"run: storing 0x0000000a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L665" class="LineNr"> 665 </span> <span class="Delimiter">);</span> <span id="L666" class="LineNr"> 666 </span><span class="Delimiter">}</span> <span id="L667" class="LineNr"> 667 </span> <span id="L668" class="LineNr"> 668 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L669" class="LineNr"> 669 </span><span class="Normal">case</span> <span class="Constant">4</span>: <span class="Delimiter">{</span> -<span id="L670" class="LineNr"> 670 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop and"</span> << end<span class="Delimiter">();</span> +<span id="L670" class="LineNr"> 670 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop and"</span> << end<span class="Delimiter">();</span> <span id="L671" class="LineNr"> 671 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L672" class="LineNr"> 672 </span> <span class="Comment">// difference</span> <span id="L673" class="LineNr"> 673 </span> *signed_arg1 &= signed_arg2<span class="Delimiter">;</span> -<span id="L674" class="LineNr"> 674 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L674" class="LineNr"> 674 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L675" class="LineNr"> 675 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> <span id="L676" class="LineNr"> 676 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L677" class="LineNr"> 677 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L678" class="LineNr"> 678 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L679" class="LineNr"> 679 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L679" class="LineNr"> 679 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L680" class="LineNr"> 680 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L681" class="LineNr"> 681 </span><span class="Delimiter">}</span> <span id="L682" class="LineNr"> 682 </span> @@ -745,38 +743,38 @@ if ('onhashchange' in window) { <span id="L684" class="LineNr"> 684 </span> <span id="L685" class="LineNr"> 685 </span><span class="Delimiter">:(code)</span> <span id="L686" class="LineNr"> 686 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L686'>test_and_imm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L687" class="LineNr"> 687 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> +<span id="L687" class="LineNr"> 687 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span id="L688" class="LineNr"> 688 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L689" class="LineNr"> 689 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L689" class="LineNr"> 689 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L690" class="LineNr"> 690 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L691" class="LineNr"> 691 </span> <span class="Constant">" 81 e3 0a 0b 0c 0d \n"</span> <span class="Comment">// and 0x0d0c0b0a with EBX</span> +<span id="L691" class="LineNr"> 691 </span> <span class="Constant">" 81 e3 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// and 0x0d0c0b0a with EBX</span> <span id="L692" class="LineNr"> 692 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 100 (subop and) 011 (dest EBX)</span> <span id="L693" class="LineNr"> 693 </span> <span class="Delimiter">);</span> <span id="L694" class="LineNr"> 694 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L695" class="LineNr"> 695 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L696" class="LineNr"> 696 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L697" class="LineNr"> 697 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L698" class="LineNr"> 698 </span> <span class="Constant">"run: subop and\n"</span> -<span id="L699" class="LineNr"> 699 </span> <span class="Constant">"run: storing 0x0000000a\n"</span> +<span id="L695" class="LineNr"> 695 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L696" class="LineNr"> 696 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L697" class="LineNr"> 697 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L698" class="LineNr"> 698 </span> <span class="Constant">"run: subop and</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L699" class="LineNr"> 699 </span> <span class="Constant">"run: storing 0x0000000a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L700" class="LineNr"> 700 </span> <span class="Delimiter">);</span> <span id="L701" class="LineNr"> 701 </span><span class="Delimiter">}</span> <span id="L702" class="LineNr"> 702 </span> -<span id="L703" class="LineNr"> 703 </span><span class="SalientComment">//:: or</span> +<span id="L703" class="LineNr"> 703 </span><span class="Comment">//:: or</span> <span id="L704" class="LineNr"> 704 </span> <span id="L705" class="LineNr"> 705 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L706" class="LineNr"> 706 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise OR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (or)"</span><span class="Delimiter">);</span> +<span id="L706" class="LineNr"> 706 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise OR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (or)"</span><span class="Delimiter">);</span> <span id="L707" class="LineNr"> 707 </span> <span id="L708" class="LineNr"> 708 </span><span class="Delimiter">:(code)</span> <span id="L709" class="LineNr"> 709 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L709'>test_or_EAX_with_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L710" class="LineNr"> 710 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> +<span id="L710" class="LineNr"> 710 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> <span id="L711" class="LineNr"> 711 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L712" class="LineNr"> 712 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L712" class="LineNr"> 712 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L713" class="LineNr"> 713 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L714" class="LineNr"> 714 </span> <span class="Constant">" 0d 0a 0b 0c 0d \n"</span> <span class="Comment">// or 0x0d0c0b0a with EAX</span> +<span id="L714" class="LineNr"> 714 </span> <span class="Constant">" 0d 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// or 0x0d0c0b0a with EAX</span> <span id="L715" class="LineNr"> 715 </span> <span class="Delimiter">);</span> <span id="L716" class="LineNr"> 716 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L717" class="LineNr"> 717 </span> <span class="Constant">"run: or imm32 0x0d0c0b0a with EAX\n"</span> -<span id="L718" class="LineNr"> 718 </span> <span class="Constant">"run: storing 0xddccbbaa\n"</span> +<span id="L717" class="LineNr"> 717 </span> <span class="Constant">"run: or imm32 0x0d0c0b0a with <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L718" class="LineNr"> 718 </span> <span class="Constant">"run: storing 0xddccbbaa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L719" class="LineNr"> 719 </span> <span class="Delimiter">);</span> <span id="L720" class="LineNr"> 720 </span><span class="Delimiter">}</span> <span id="L721" class="LineNr"> 721 </span> @@ -785,88 +783,88 @@ if ('onhashchange' in window) { <span id="L724" class="LineNr"> 724 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L725" class="LineNr"> 725 </span> <span class="Comment">// difference</span> <span id="L726" class="LineNr"> 726 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L727" class="LineNr"> 727 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> -<span id="L728" class="LineNr"> 728 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i |= signed_arg2<span class="Delimiter">;</span> -<span id="L729" class="LineNr"> 729 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L730" class="LineNr"> 730 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L731" class="LineNr"> 731 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L727" class="LineNr"> 727 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"or imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> +<span id="L728" class="LineNr"> 728 </span> Reg[EAX]<span class="Delimiter">.</span>i |= signed_arg2<span class="Delimiter">;</span> +<span id="L729" class="LineNr"> 729 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L730" class="LineNr"> 730 </span> SF = <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L731" class="LineNr"> 731 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L732" class="LineNr"> 732 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L733" class="LineNr"> 733 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L734" class="LineNr"> 734 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L734" class="LineNr"> 734 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L735" class="LineNr"> 735 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L736" class="LineNr"> 736 </span><span class="Delimiter">}</span> <span id="L737" class="LineNr"> 737 </span> <span id="L738" class="LineNr"> 738 </span><span class="Comment">//:</span> <span id="L739" class="LineNr"> 739 </span> <span id="L740" class="LineNr"> 740 </span><span class="Delimiter">:(code)</span> -<span id="L741" class="LineNr"> 741 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L741'>test_or_imm32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L742" class="LineNr"> 742 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L741" class="LineNr"> 741 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L741'>test_or_imm32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L742" class="LineNr"> 742 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L743" class="LineNr"> 743 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L744" class="LineNr"> 744 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L744" class="LineNr"> 744 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L745" class="LineNr"> 745 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L746" class="LineNr"> 746 </span> <span class="Constant">" 81 0b 0a 0b 0c 0d \n"</span> <span class="Comment">// or 0x0d0c0b0a with *EBX</span> +<span id="L746" class="LineNr"> 746 </span> <span class="Constant">" 81 0b 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// or 0x0d0c0b0a with *EBX</span> <span id="L747" class="LineNr"> 747 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 001 (subop or) 011 (dest EBX)</span> -<span id="L748" class="LineNr"> 748 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L749" class="LineNr"> 749 </span> <span class="Constant">"a0 b0 c0 d0\n"</span> <span class="Comment">// 0xd0c0b0a0</span> +<span id="L748" class="LineNr"> 748 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L749" class="LineNr"> 749 </span> <span class="Constant">"a0 b0 c0 d0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xd0c0b0a0</span> <span id="L750" class="LineNr"> 750 </span> <span class="Delimiter">);</span> <span id="L751" class="LineNr"> 751 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L752" class="LineNr"> 752 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L753" class="LineNr"> 753 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L754" class="LineNr"> 754 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L755" class="LineNr"> 755 </span> <span class="Constant">"run: subop or\n"</span> -<span id="L756" class="LineNr"> 756 </span> <span class="Constant">"run: storing 0xddccbbaa\n"</span> +<span id="L752" class="LineNr"> 752 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L753" class="LineNr"> 753 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L754" class="LineNr"> 754 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L755" class="LineNr"> 755 </span> <span class="Constant">"run: subop or</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L756" class="LineNr"> 756 </span> <span class="Constant">"run: storing 0xddccbbaa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L757" class="LineNr"> 757 </span> <span class="Delimiter">);</span> <span id="L758" class="LineNr"> 758 </span><span class="Delimiter">}</span> <span id="L759" class="LineNr"> 759 </span> <span id="L760" class="LineNr"> 760 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L761" class="LineNr"> 761 </span><span class="Normal">case</span> <span class="Constant">1</span>: <span class="Delimiter">{</span> -<span id="L762" class="LineNr"> 762 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop or"</span> << end<span class="Delimiter">();</span> +<span id="L762" class="LineNr"> 762 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop or"</span> << end<span class="Delimiter">();</span> <span id="L763" class="LineNr"> 763 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L764" class="LineNr"> 764 </span> <span class="Comment">// difference</span> <span id="L765" class="LineNr"> 765 </span> *signed_arg1 |= signed_arg2<span class="Delimiter">;</span> -<span id="L766" class="LineNr"> 766 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L766" class="LineNr"> 766 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L767" class="LineNr"> 767 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> <span id="L768" class="LineNr"> 768 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L769" class="LineNr"> 769 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L770" class="LineNr"> 770 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L771" class="LineNr"> 771 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L771" class="LineNr"> 771 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L772" class="LineNr"> 772 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L773" class="LineNr"> 773 </span><span class="Delimiter">}</span> <span id="L774" class="LineNr"> 774 </span> <span id="L775" class="LineNr"> 775 </span><span class="Delimiter">:(code)</span> <span id="L776" class="LineNr"> 776 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L776'>test_or_imm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L777" class="LineNr"> 777 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> +<span id="L777" class="LineNr"> 777 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> <span id="L778" class="LineNr"> 778 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L779" class="LineNr"> 779 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L779" class="LineNr"> 779 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L780" class="LineNr"> 780 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L781" class="LineNr"> 781 </span> <span class="Constant">" 81 cb 0a 0b 0c 0d \n"</span> <span class="Comment">// or 0x0d0c0b0a with EBX</span> +<span id="L781" class="LineNr"> 781 </span> <span class="Constant">" 81 cb 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// or 0x0d0c0b0a with EBX</span> <span id="L782" class="LineNr"> 782 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 001 (subop or) 011 (dest EBX)</span> <span id="L783" class="LineNr"> 783 </span> <span class="Delimiter">);</span> <span id="L784" class="LineNr"> 784 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L785" class="LineNr"> 785 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L786" class="LineNr"> 786 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L787" class="LineNr"> 787 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L788" class="LineNr"> 788 </span> <span class="Constant">"run: subop or\n"</span> -<span id="L789" class="LineNr"> 789 </span> <span class="Constant">"run: storing 0xddccbbaa\n"</span> +<span id="L785" class="LineNr"> 785 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L786" class="LineNr"> 786 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L787" class="LineNr"> 787 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L788" class="LineNr"> 788 </span> <span class="Constant">"run: subop or</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L789" class="LineNr"> 789 </span> <span class="Constant">"run: storing 0xddccbbaa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L790" class="LineNr"> 790 </span> <span class="Delimiter">);</span> <span id="L791" class="LineNr"> 791 </span><span class="Delimiter">}</span> <span id="L792" class="LineNr"> 792 </span> -<span id="L793" class="LineNr"> 793 </span><span class="SalientComment">//:: xor</span> +<span id="L793" class="LineNr"> 793 </span><span class="Comment">//:: xor</span> <span id="L794" class="LineNr"> 794 </span> <span id="L795" class="LineNr"> 795 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L796" class="LineNr"> 796 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise XOR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (xor)"</span><span class="Delimiter">);</span> +<span id="L796" class="LineNr"> 796 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">"EAX = bitwise XOR of imm32 with <a href='010vm.cc.html#L10'>EAX</a> (xor)"</span><span class="Delimiter">);</span> <span id="L797" class="LineNr"> 797 </span> <span id="L798" class="LineNr"> 798 </span><span class="Delimiter">:(code)</span> <span id="L799" class="LineNr"> 799 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L799'>test_xor_EAX_with_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L800" class="LineNr"> 800 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xddccb0a0</span><span class="Delimiter">;</span> +<span id="L800" class="LineNr"> 800 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xddccb0a0</span><span class="Delimiter">;</span> <span id="L801" class="LineNr"> 801 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L802" class="LineNr"> 802 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L802" class="LineNr"> 802 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L803" class="LineNr"> 803 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L804" class="LineNr"> 804 </span> <span class="Constant">" 35 0a 0b 0c 0d \n"</span> <span class="Comment">// xor 0x0d0c0b0a with EAX</span> +<span id="L804" class="LineNr"> 804 </span> <span class="Constant">" 35 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// xor 0x0d0c0b0a with EAX</span> <span id="L805" class="LineNr"> 805 </span> <span class="Delimiter">);</span> <span id="L806" class="LineNr"> 806 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L807" class="LineNr"> 807 </span> <span class="Constant">"run: xor imm32 0x0d0c0b0a with EAX\n"</span> -<span id="L808" class="LineNr"> 808 </span> <span class="Constant">"run: storing 0xd0c0bbaa\n"</span> +<span id="L807" class="LineNr"> 807 </span> <span class="Constant">"run: xor imm32 0x0d0c0b0a with <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L808" class="LineNr"> 808 </span> <span class="Constant">"run: storing 0xd0c0bbaa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L809" class="LineNr"> 809 </span> <span class="Delimiter">);</span> <span id="L810" class="LineNr"> 810 </span><span class="Delimiter">}</span> <span id="L811" class="LineNr"> 811 </span> @@ -875,96 +873,96 @@ if ('onhashchange' in window) { <span id="L814" class="LineNr"> 814 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L815" class="LineNr"> 815 </span> <span class="Comment">// difference</span> <span id="L816" class="LineNr"> 816 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L817" class="LineNr"> 817 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> -<span id="L818" class="LineNr"> 818 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i ^= signed_arg2<span class="Delimiter">;</span> -<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> -<span id="L820" class="LineNr"> 820 </span> SF = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> -<span id="L821" class="LineNr"> 821 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L817" class="LineNr"> 817 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"xor imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << <span class="Constant">" with EAX"</span> << end<span class="Delimiter">();</span> +<span id="L818" class="LineNr"> 818 </span> Reg[EAX]<span class="Delimiter">.</span>i ^= signed_arg2<span class="Delimiter">;</span> +<span id="L819" class="LineNr"> 819 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L820" class="LineNr"> 820 </span> SF = <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i >> <span class="Constant">31</span><span class="Delimiter">);</span> +<span id="L821" class="LineNr"> 821 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L822" class="LineNr"> 822 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L823" class="LineNr"> 823 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L824" class="LineNr"> 824 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L824" class="LineNr"> 824 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L825" class="LineNr"> 825 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L826" class="LineNr"> 826 </span><span class="Delimiter">}</span> <span id="L827" class="LineNr"> 827 </span> <span id="L828" class="LineNr"> 828 </span><span class="Comment">//:</span> <span id="L829" class="LineNr"> 829 </span> <span id="L830" class="LineNr"> 830 </span><span class="Delimiter">:(code)</span> -<span id="L831" class="LineNr"> 831 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L831'>test_xor_imm32_with_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L832" class="LineNr"> 832 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L831" class="LineNr"> 831 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L831'>test_xor_imm32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L832" class="LineNr"> 832 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L833" class="LineNr"> 833 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L834" class="LineNr"> 834 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L834" class="LineNr"> 834 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L835" class="LineNr"> 835 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L836" class="LineNr"> 836 </span> <span class="Constant">" 81 33 0a 0b 0c 0d \n"</span> <span class="Comment">// xor 0x0d0c0b0a with *EBX</span> +<span id="L836" class="LineNr"> 836 </span> <span class="Constant">" 81 33 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// xor 0x0d0c0b0a with *EBX</span> <span id="L837" class="LineNr"> 837 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 110 (subop xor) 011 (dest EBX)</span> -<span id="L838" class="LineNr"> 838 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L839" class="LineNr"> 839 </span> <span class="Constant">"a0 b0 c0 d0\n"</span> <span class="Comment">// 0xd0c0b0a0</span> +<span id="L838" class="LineNr"> 838 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L839" class="LineNr"> 839 </span> <span class="Constant">"a0 b0 c0 d0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xd0c0b0a0</span> <span id="L840" class="LineNr"> 840 </span> <span class="Delimiter">);</span> <span id="L841" class="LineNr"> 841 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L842" class="LineNr"> 842 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L843" class="LineNr"> 843 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L844" class="LineNr"> 844 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L845" class="LineNr"> 845 </span> <span class="Constant">"run: subop xor\n"</span> -<span id="L846" class="LineNr"> 846 </span> <span class="Constant">"run: storing 0xddccbbaa\n"</span> +<span id="L842" class="LineNr"> 842 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L843" class="LineNr"> 843 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L844" class="LineNr"> 844 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L845" class="LineNr"> 845 </span> <span class="Constant">"run: subop xor</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L846" class="LineNr"> 846 </span> <span class="Constant">"run: storing 0xddccbbaa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L847" class="LineNr"> 847 </span> <span class="Delimiter">);</span> <span id="L848" class="LineNr"> 848 </span><span class="Delimiter">}</span> <span id="L849" class="LineNr"> 849 </span> <span id="L850" class="LineNr"> 850 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L851" class="LineNr"> 851 </span><span class="Normal">case</span> <span class="Constant">6</span>: <span class="Delimiter">{</span> -<span id="L852" class="LineNr"> 852 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop xor"</span> << end<span class="Delimiter">();</span> +<span id="L852" class="LineNr"> 852 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop xor"</span> << end<span class="Delimiter">();</span> <span id="L853" class="LineNr"> 853 </span> <span class="Comment">// bitwise ops technically operate on unsigned numbers, but it makes no</span> <span id="L854" class="LineNr"> 854 </span> <span class="Comment">// difference</span> <span id="L855" class="LineNr"> 855 </span> *signed_arg1 ^= signed_arg2<span class="Delimiter">;</span> -<span id="L856" class="LineNr"> 856 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> +<span id="L856" class="LineNr"> 856 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << *signed_arg1 << end<span class="Delimiter">();</span> <span id="L857" class="LineNr"> 857 </span> SF = <span class="Delimiter">(</span>*signed_arg1 >> <span class="Constant">31</span><span class="Delimiter">);</span> <span id="L858" class="LineNr"> 858 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>*signed_arg1 == <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L859" class="LineNr"> 859 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L860" class="LineNr"> 860 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L861" class="LineNr"> 861 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L861" class="LineNr"> 861 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L862" class="LineNr"> 862 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L863" class="LineNr"> 863 </span><span class="Delimiter">}</span> <span id="L864" class="LineNr"> 864 </span> <span id="L865" class="LineNr"> 865 </span><span class="Delimiter">:(code)</span> <span id="L866" class="LineNr"> 866 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L866'>test_xor_imm32_with_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L867" class="LineNr"> 867 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> +<span id="L867" class="LineNr"> 867 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xd0c0b0a0</span><span class="Delimiter">;</span> <span id="L868" class="LineNr"> 868 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L869" class="LineNr"> 869 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L869" class="LineNr"> 869 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L870" class="LineNr"> 870 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L871" class="LineNr"> 871 </span> <span class="Constant">" 81 f3 0a 0b 0c 0d \n"</span> <span class="Comment">// xor 0x0d0c0b0a with EBX</span> +<span id="L871" class="LineNr"> 871 </span> <span class="Constant">" 81 f3 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// xor 0x0d0c0b0a with EBX</span> <span id="L872" class="LineNr"> 872 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 110 (subop xor) 011 (dest EBX)</span> <span id="L873" class="LineNr"> 873 </span> <span class="Delimiter">);</span> <span id="L874" class="LineNr"> 874 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L875" class="LineNr"> 875 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L876" class="LineNr"> 876 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L877" class="LineNr"> 877 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L878" class="LineNr"> 878 </span> <span class="Constant">"run: subop xor\n"</span> -<span id="L879" class="LineNr"> 879 </span> <span class="Constant">"run: storing 0xddccbbaa\n"</span> +<span id="L875" class="LineNr"> 875 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L876" class="LineNr"> 876 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L877" class="LineNr"> 877 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L878" class="LineNr"> 878 </span> <span class="Constant">"run: subop xor</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L879" class="LineNr"> 879 </span> <span class="Constant">"run: storing 0xddccbbaa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L880" class="LineNr"> 880 </span> <span class="Delimiter">);</span> <span id="L881" class="LineNr"> 881 </span><span class="Delimiter">}</span> <span id="L882" class="LineNr"> 882 </span> -<span id="L883" class="LineNr"> 883 </span><span class="SalientComment">//:: compare (cmp)</span> +<span id="L883" class="LineNr"> 883 </span><span class="Comment">//:: compare (cmp)</span> <span id="L884" class="LineNr"> 884 </span> <span id="L885" class="LineNr"> 885 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L886" class="LineNr"> 886 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if <a href='010vm.cc.html#L10'>EAX</a> < imm32 (cmp)"</span><span class="Delimiter">);</span> +<span id="L886" class="LineNr"> 886 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if <a href='010vm.cc.html#L10'>EAX</a> < imm32 (cmp)"</span><span class="Delimiter">);</span> <span id="L887" class="LineNr"> 887 </span> <span id="L888" class="LineNr"> 888 </span><span class="Delimiter">:(code)</span> <span id="L889" class="LineNr"> 889 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L889'>test_compare_EAX_with_imm32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L890" class="LineNr"> 890 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L890" class="LineNr"> 890 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L891" class="LineNr"> 891 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L892" class="LineNr"> 892 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L892" class="LineNr"> 892 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L893" class="LineNr"> 893 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L894" class="LineNr"> 894 </span> <span class="Constant">" 3d 07 0b 0c 0d \n"</span> <span class="Comment">// compare EAX with 0x0d0c0b07</span> +<span id="L894" class="LineNr"> 894 </span> <span class="Constant">" 3d 07 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with 0x0d0c0b07</span> <span id="L895" class="LineNr"> 895 </span> <span class="Delimiter">);</span> <span id="L896" class="LineNr"> 896 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L897" class="LineNr"> 897 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0d0c0b07\n"</span> -<span id="L898" class="LineNr"> 898 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L897" class="LineNr"> 897 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0d0c0b07</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L898" class="LineNr"> 898 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L899" class="LineNr"> 899 </span> <span class="Delimiter">);</span> <span id="L900" class="LineNr"> 900 </span><span class="Delimiter">}</span> <span id="L901" class="LineNr"> 901 </span> <span id="L902" class="LineNr"> 902 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L903" class="LineNr"> 903 </span><span class="Normal">case</span> <span class="Constant">0x3d</span>: <span class="Delimiter">{</span> <span class="Comment">// compare EAX with imm32</span> -<span id="L904" class="LineNr"> 904 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg1 = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> +<span id="L904" class="LineNr"> 904 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg1 = Reg[EAX]<span class="Delimiter">.</span>i<span class="Delimiter">;</span> <span id="L905" class="LineNr"> 905 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_arg2 = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L906" class="LineNr"> 906 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> +<span id="L906" class="LineNr"> 906 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << signed_arg2 << end<span class="Delimiter">();</span> <span id="L907" class="LineNr"> 907 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> signed_difference = signed_arg1 - signed_arg2<span class="Delimiter">;</span> <span id="L908" class="LineNr"> 908 </span> SF = <span class="Delimiter">(</span>signed_difference < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L909" class="LineNr"> 909 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>signed_difference == <span class="Constant">0</span><span class="Delimiter">);</span> @@ -975,97 +973,97 @@ if ('onhashchange' in window) { <span id="L914" class="LineNr"> 914 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> unsigned_difference = unsigned_arg1 - unsigned_arg2<span class="Delimiter">;</span> <span id="L915" class="LineNr"> 915 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> full_unsigned_difference = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> <span id="L916" class="LineNr"> 916 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>unsigned_difference != full_unsigned_difference<span class="Delimiter">);</span> -<span id="L917" class="LineNr"> 917 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L917" class="LineNr"> 917 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L918" class="LineNr"> 918 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L919" class="LineNr"> 919 </span><span class="Delimiter">}</span> <span id="L920" class="LineNr"> 920 </span> <span id="L921" class="LineNr"> 921 </span><span class="Delimiter">:(code)</span> <span id="L922" class="LineNr"> 922 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L922'>test_compare_EAX_with_imm32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L923" class="LineNr"> 923 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L923" class="LineNr"> 923 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L924" class="LineNr"> 924 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L925" class="LineNr"> 925 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L925" class="LineNr"> 925 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L926" class="LineNr"> 926 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L927" class="LineNr"> 927 </span> <span class="Constant">" 3d 0d 0c 0b 0a \n"</span> <span class="Comment">// compare EAX with imm32</span> +<span id="L927" class="LineNr"> 927 </span> <span class="Constant">" 3d 0d 0c 0b 0a </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with imm32</span> <span id="L928" class="LineNr"> 928 </span> <span class="Delimiter">);</span> <span id="L929" class="LineNr"> 929 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L930" class="LineNr"> 930 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0a0b0c0d\n"</span> -<span id="L931" class="LineNr"> 931 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> +<span id="L930" class="LineNr"> 930 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0a0b0c0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L931" class="LineNr"> 931 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L932" class="LineNr"> 932 </span> <span class="Delimiter">);</span> <span id="L933" class="LineNr"> 933 </span><span class="Delimiter">}</span> <span id="L934" class="LineNr"> 934 </span> <span id="L935" class="LineNr"> 935 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L935'>test_compare_EAX_with_imm32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L936" class="LineNr"> 936 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L936" class="LineNr"> 936 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> <span id="L937" class="LineNr"> 937 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L938" class="LineNr"> 938 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L938" class="LineNr"> 938 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L939" class="LineNr"> 939 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L940" class="LineNr"> 940 </span> <span class="Constant">" 3d 00 00 00 80\n"</span> <span class="Comment">// compare EAX with smallest negative signed integer</span> +<span id="L940" class="LineNr"> 940 </span> <span class="Constant">" 3d 00 00 00 80</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with INT32_MIN</span> <span id="L941" class="LineNr"> 941 </span> <span class="Delimiter">);</span> <span id="L942" class="LineNr"> 942 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L943" class="LineNr"> 943 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x80000000\n"</span> -<span id="L944" class="LineNr"> 944 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> +<span id="L943" class="LineNr"> 943 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L944" class="LineNr"> 944 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L945" class="LineNr"> 945 </span> <span class="Delimiter">);</span> <span id="L946" class="LineNr"> 946 </span><span class="Delimiter">}</span> <span id="L947" class="LineNr"> 947 </span> <span id="L948" class="LineNr"> 948 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L948'>test_compare_EAX_with_imm32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L949" class="LineNr"> 949 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L949" class="LineNr"> 949 </span> Reg[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span id="L950" class="LineNr"> 950 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L951" class="LineNr"> 951 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L951" class="LineNr"> 951 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L952" class="LineNr"> 952 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L953" class="LineNr"> 953 </span> <span class="Constant">" 3d 01 00 00 00\n"</span> <span class="Comment">// compare EAX with 1</span> +<span id="L953" class="LineNr"> 953 </span> <span class="Constant">" 3d 01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with 1</span> <span id="L954" class="LineNr"> 954 </span> <span class="Delimiter">);</span> <span id="L955" class="LineNr"> 955 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L956" class="LineNr"> 956 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x00000001\n"</span> -<span id="L957" class="LineNr"> 957 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0\n"</span> +<span id="L956" class="LineNr"> 956 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L957" class="LineNr"> 957 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L958" class="LineNr"> 958 </span> <span class="Delimiter">);</span> <span id="L959" class="LineNr"> 959 </span><span class="Delimiter">}</span> <span id="L960" class="LineNr"> 960 </span> <span id="L961" class="LineNr"> 961 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L961'>test_compare_EAX_with_imm32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L962" class="LineNr"> 962 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L962" class="LineNr"> 962 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L963" class="LineNr"> 963 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L964" class="LineNr"> 964 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L964" class="LineNr"> 964 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L965" class="LineNr"> 965 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L966" class="LineNr"> 966 </span> <span class="Constant">" 3d ff ff ff ff\n"</span> <span class="Comment">// compare EAX with -1</span> +<span id="L966" class="LineNr"> 966 </span> <span class="Constant">" 3d ff ff ff ff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with -1</span> <span id="L967" class="LineNr"> 967 </span> <span class="Delimiter">);</span> <span id="L968" class="LineNr"> 968 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L969" class="LineNr"> 969 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0xffffffff\n"</span> -<span id="L970" class="LineNr"> 970 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0\n"</span> +<span id="L969" class="LineNr"> 969 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L970" class="LineNr"> 970 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L971" class="LineNr"> 971 </span> <span class="Delimiter">);</span> <span id="L972" class="LineNr"> 972 </span><span class="Delimiter">}</span> <span id="L973" class="LineNr"> 973 </span> <span id="L974" class="LineNr"> 974 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L974'>test_compare_EAX_with_imm32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L975" class="LineNr"> 975 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L975" class="LineNr"> 975 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L976" class="LineNr"> 976 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L977" class="LineNr"> 977 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L977" class="LineNr"> 977 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L978" class="LineNr"> 978 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L979" class="LineNr"> 979 </span> <span class="Constant">" 3d 0a 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b0a with EAX</span> +<span id="L979" class="LineNr"> 979 </span> <span class="Constant">" 3d 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare 0x0d0c0b0a with EAX</span> <span id="L980" class="LineNr"> 980 </span> <span class="Delimiter">);</span> <span id="L981" class="LineNr"> 981 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L982" class="LineNr"> 982 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0d0c0b0a\n"</span> -<span id="L983" class="LineNr"> 983 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> +<span id="L982" class="LineNr"> 982 </span> <span class="Constant">"run: compare <a href='010vm.cc.html#L10'>EAX</a> with imm32 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L983" class="LineNr"> 983 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L984" class="LineNr"> 984 </span> <span class="Delimiter">);</span> <span id="L985" class="LineNr"> 985 </span><span class="Delimiter">}</span> <span id="L986" class="LineNr"> 986 </span> <span id="L987" class="LineNr"> 987 </span><span class="Comment">//:</span> <span id="L988" class="LineNr"> 988 </span> <span id="L989" class="LineNr"> 989 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L989'>test_compare_imm32_with_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L990" class="LineNr"> 990 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L990" class="LineNr"> 990 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L991" class="LineNr"> 991 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L992" class="LineNr"> 992 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L992" class="LineNr"> 992 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L993" class="LineNr"> 993 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L994" class="LineNr"> 994 </span> <span class="Constant">" 81 fb 07 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b07 with EBX</span> +<span id="L994" class="LineNr"> 994 </span> <span class="Constant">" 81 fb 07 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare 0x0d0c0b07 with EBX</span> <span id="L995" class="LineNr"> 995 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 011 (dest EBX)</span> <span id="L996" class="LineNr"> 996 </span> <span class="Delimiter">);</span> <span id="L997" class="LineNr"> 997 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L998" class="LineNr"> 998 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L999" class="LineNr"> 999 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L1000" class="LineNr">1000 </span> <span class="Constant">"run: imm32 is 0x0d0c0b07\n"</span> -<span id="L1001" class="LineNr">1001 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L998" class="LineNr"> 998 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L999" class="LineNr"> 999 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1000" class="LineNr">1000 </span> <span class="Constant">"run: imm32 is 0x0d0c0b07</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1001" class="LineNr">1001 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1002" class="LineNr">1002 </span> <span class="Delimiter">);</span> <span id="L1003" class="LineNr">1003 </span><span class="Delimiter">}</span> <span id="L1004" class="LineNr">1004 </span> <span id="L1005" class="LineNr">1005 </span><span class="Delimiter">:(before "End Op 81 Subops")</span> <span id="L1006" class="LineNr">1006 </span><span class="Normal">case</span> <span class="Constant">7</span>: <span class="Delimiter">{</span> -<span id="L1007" class="LineNr">1007 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop compare"</span> << end<span class="Delimiter">();</span> +<span id="L1007" class="LineNr">1007 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subop compare"</span> << end<span class="Delimiter">();</span> <span id="L1008" class="LineNr">1008 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> tmp1 = *signed_arg1 - signed_arg2<span class="Delimiter">;</span> <span id="L1009" class="LineNr">1009 </span> SF = <span class="Delimiter">(</span>tmp1 < <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L1010" class="LineNr">1010 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Delimiter">(</span>tmp1 == <span class="Constant">0</span><span class="Delimiter">);</span> @@ -1076,175 +1074,175 @@ if ('onhashchange' in window) { <span id="L1015" class="LineNr">1015 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> tmp3 = unsigned_arg1 - unsigned_arg2<span class="Delimiter">;</span> <span id="L1016" class="LineNr">1016 </span> <span class="Normal">const</span> <span class="Normal">uint64_t</span> tmp4 = <span class="Normal">static_cast</span><<span class="Normal">uint64_t</span>><span class="Delimiter">(</span>unsigned_arg1<span class="Delimiter">)</span> - unsigned_arg2<span class="Delimiter">;</span> <span id="L1017" class="LineNr">1017 </span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Delimiter">(</span>tmp3 != tmp4<span class="Delimiter">);</span> -<span id="L1018" class="LineNr">1018 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L1018" class="LineNr">1018 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L1019" class="LineNr">1019 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1020" class="LineNr">1020 </span><span class="Delimiter">}</span> <span id="L1021" class="LineNr">1021 </span> <span id="L1022" class="LineNr">1022 </span><span class="Delimiter">:(code)</span> <span id="L1023" class="LineNr">1023 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1023'>test_compare_rm32_with_imm32_lesser_unsigned_and_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1024" class="LineNr">1024 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> +<span id="L1024" class="LineNr">1024 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x0a0b0c07</span><span class="Delimiter">;</span> <span id="L1025" class="LineNr">1025 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1026" class="LineNr">1026 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1026" class="LineNr">1026 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1027" class="LineNr">1027 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1028" class="LineNr">1028 </span> <span class="Constant">" 81 f8 0d 0c 0b 0a \n"</span> <span class="Comment">// compare EAX with imm32</span> +<span id="L1028" class="LineNr">1028 </span> <span class="Constant">" 81 f8 0d 0c 0b 0a </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with imm32</span> <span id="L1029" class="LineNr">1029 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1030" class="LineNr">1030 </span> <span class="Delimiter">);</span> <span id="L1031" class="LineNr">1031 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1032" class="LineNr">1032 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1033" class="LineNr">1033 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L1034" class="LineNr">1034 </span> <span class="Constant">"run: imm32 is 0x0a0b0c0d\n"</span> -<span id="L1035" class="LineNr">1035 </span> <span class="Constant">"run: subop compare\n"</span> -<span id="L1036" class="LineNr">1036 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> +<span id="L1032" class="LineNr">1032 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1033" class="LineNr">1033 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1034" class="LineNr">1034 </span> <span class="Constant">"run: imm32 is 0x0a0b0c0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1035" class="LineNr">1035 </span> <span class="Constant">"run: subop compare</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1036" class="LineNr">1036 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1037" class="LineNr">1037 </span> <span class="Delimiter">);</span> <span id="L1038" class="LineNr">1038 </span><span class="Delimiter">}</span> <span id="L1039" class="LineNr">1039 </span> <span id="L1040" class="LineNr">1040 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1040'>test_compare_rm32_with_imm32_lesser_unsigned_and_signed_due_to_overflow</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1041" class="LineNr">1041 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x7fffffff</span><span class="Delimiter">;</span> <span class="Comment">// largest positive signed integer</span> +<span id="L1041" class="LineNr">1041 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">INT32_MAX</span><span class="Delimiter">;</span> <span id="L1042" class="LineNr">1042 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1043" class="LineNr">1043 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1043" class="LineNr">1043 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1044" class="LineNr">1044 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1045" class="LineNr">1045 </span> <span class="Constant">" 81 f8 00 00 00 80\n"</span> <span class="Comment">// compare EAX with smallest negative signed integer</span> +<span id="L1045" class="LineNr">1045 </span> <span class="Constant">" 81 f8 00 00 00 80</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with INT32_MIN</span> <span id="L1046" class="LineNr">1046 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1047" class="LineNr">1047 </span> <span class="Delimiter">);</span> <span id="L1048" class="LineNr">1048 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1049" class="LineNr">1049 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1050" class="LineNr">1050 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L1051" class="LineNr">1051 </span> <span class="Constant">"run: imm32 is 0x80000000\n"</span> -<span id="L1052" class="LineNr">1052 </span> <span class="Constant">"run: subop compare\n"</span> -<span id="L1053" class="LineNr">1053 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1\n"</span> +<span id="L1049" class="LineNr">1049 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1050" class="LineNr">1050 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1051" class="LineNr">1051 </span> <span class="Constant">"run: imm32 is 0x80000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1052" class="LineNr">1052 </span> <span class="Constant">"run: subop compare</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1053" class="LineNr">1053 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1054" class="LineNr">1054 </span> <span class="Delimiter">);</span> <span id="L1055" class="LineNr">1055 </span><span class="Delimiter">}</span> <span id="L1056" class="LineNr">1056 </span> <span id="L1057" class="LineNr">1057 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1057'>test_compare_rm32_with_imm32_lesser_signed</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1058" class="LineNr">1058 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0xffffffff</span><span class="Delimiter">;</span> <span class="Comment">// -1</span> +<span id="L1058" class="LineNr">1058 </span> Reg[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">1</span><span class="Delimiter">;</span> <span id="L1059" class="LineNr">1059 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1060" class="LineNr">1060 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1060" class="LineNr">1060 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1061" class="LineNr">1061 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1062" class="LineNr">1062 </span> <span class="Constant">" 81 f8 01 00 00 00\n"</span> <span class="Comment">// compare EAX with 1</span> +<span id="L1062" class="LineNr">1062 </span> <span class="Constant">" 81 f8 01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with 1</span> <span id="L1063" class="LineNr">1063 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1064" class="LineNr">1064 </span> <span class="Delimiter">);</span> <span id="L1065" class="LineNr">1065 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1066" class="LineNr">1066 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1067" class="LineNr">1067 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L1068" class="LineNr">1068 </span> <span class="Constant">"run: imm32 is 0x00000001\n"</span> -<span id="L1069" class="LineNr">1069 </span> <span class="Constant">"run: subop compare\n"</span> -<span id="L1070" class="LineNr">1070 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0\n"</span> +<span id="L1066" class="LineNr">1066 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1067" class="LineNr">1067 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1068" class="LineNr">1068 </span> <span class="Constant">"run: imm32 is 0x00000001</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1069" class="LineNr">1069 </span> <span class="Constant">"run: subop compare</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1070" class="LineNr">1070 </span> <span class="Constant">"run: SF=1; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1071" class="LineNr">1071 </span> <span class="Delimiter">);</span> <span id="L1072" class="LineNr">1072 </span><span class="Delimiter">}</span> <span id="L1073" class="LineNr">1073 </span> <span id="L1074" class="LineNr">1074 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1074'>test_compare_rm32_with_imm32_lesser_unsigned</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1075" class="LineNr">1075 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x00000001</span><span class="Delimiter">;</span> <span class="Comment">// 1</span> +<span id="L1075" class="LineNr">1075 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L1076" class="LineNr">1076 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1077" class="LineNr">1077 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1077" class="LineNr">1077 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1078" class="LineNr">1078 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1079" class="LineNr">1079 </span> <span class="Constant">" 81 f8 ff ff ff ff\n"</span> <span class="Comment">// compare EAX with -1</span> +<span id="L1079" class="LineNr">1079 </span> <span class="Constant">" 81 f8 ff ff ff ff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare EAX with -1</span> <span id="L1080" class="LineNr">1080 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 000 (dest EAX)</span> <span id="L1081" class="LineNr">1081 </span> <span class="Delimiter">);</span> <span id="L1082" class="LineNr">1082 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1083" class="LineNr">1083 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1084" class="LineNr">1084 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L1085" class="LineNr">1085 </span> <span class="Constant">"run: imm32 is 0xffffffff\n"</span> -<span id="L1086" class="LineNr">1086 </span> <span class="Constant">"run: subop compare\n"</span> -<span id="L1087" class="LineNr">1087 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0\n"</span> +<span id="L1083" class="LineNr">1083 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1084" class="LineNr">1084 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1085" class="LineNr">1085 </span> <span class="Constant">"run: imm32 is 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1086" class="LineNr">1086 </span> <span class="Constant">"run: subop compare</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1087" class="LineNr">1087 </span> <span class="Constant">"run: SF=0; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1088" class="LineNr">1088 </span> <span class="Delimiter">);</span> <span id="L1089" class="LineNr">1089 </span><span class="Delimiter">}</span> <span id="L1090" class="LineNr">1090 </span> <span id="L1091" class="LineNr">1091 </span><span class="Delimiter">:(code)</span> <span id="L1092" class="LineNr">1092 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1092'>test_compare_imm32_with_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1093" class="LineNr">1093 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L1093" class="LineNr">1093 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> <span id="L1094" class="LineNr">1094 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1095" class="LineNr">1095 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1095" class="LineNr">1095 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1096" class="LineNr">1096 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1097" class="LineNr">1097 </span> <span class="Constant">" 81 fb 0a 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b0a with EBX</span> +<span id="L1097" class="LineNr">1097 </span> <span class="Constant">" 81 fb 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare 0x0d0c0b0a with EBX</span> <span id="L1098" class="LineNr">1098 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 111 (subop compare) 011 (dest EBX)</span> <span id="L1099" class="LineNr">1099 </span> <span class="Delimiter">);</span> <span id="L1100" class="LineNr">1100 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1101" class="LineNr">1101 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1102" class="LineNr">1102 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L1103" class="LineNr">1103 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L1104" class="LineNr">1104 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> +<span id="L1101" class="LineNr">1101 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1102" class="LineNr">1102 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1103" class="LineNr">1103 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1104" class="LineNr">1104 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1105" class="LineNr">1105 </span> <span class="Delimiter">);</span> <span id="L1106" class="LineNr">1106 </span><span class="Delimiter">}</span> <span id="L1107" class="LineNr">1107 </span> <span id="L1108" class="LineNr">1108 </span><span class="Delimiter">:(code)</span> -<span id="L1109" class="LineNr">1109 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1109'>test_compare_imm32_with_mem_at_r32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1110" class="LineNr">1110 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L1109" class="LineNr">1109 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1109'>test_compare_imm32_with_mem_at_rm32_greater</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L1110" class="LineNr">1110 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L1111" class="LineNr">1111 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1112" class="LineNr">1112 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1112" class="LineNr">1112 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1113" class="LineNr">1113 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1114" class="LineNr">1114 </span> <span class="Constant">" 81 3b 07 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b07 with *EBX</span> +<span id="L1114" class="LineNr">1114 </span> <span class="Constant">" 81 3b 07 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare 0x0d0c0b07 with *EBX</span> <span id="L1115" class="LineNr">1115 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 111 (subop compare) 011 (dest EBX)</span> -<span id="L1116" class="LineNr">1116 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L1117" class="LineNr">1117 </span> <span class="Constant">"0a 0b 0c 0d\n"</span> <span class="Comment">// 0x0d0c0b0a</span> +<span id="L1116" class="LineNr">1116 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1117" class="LineNr">1117 </span> <span class="Constant">"0a 0b 0c 0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0d0c0b0a</span> <span id="L1118" class="LineNr">1118 </span> <span class="Delimiter">);</span> <span id="L1119" class="LineNr">1119 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1120" class="LineNr">1120 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1121" class="LineNr">1121 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L1122" class="LineNr">1122 </span> <span class="Constant">"run: imm32 is 0x0d0c0b07\n"</span> -<span id="L1123" class="LineNr">1123 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L1120" class="LineNr">1120 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1121" class="LineNr">1121 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1122" class="LineNr">1122 </span> <span class="Constant">"run: imm32 is 0x0d0c0b07</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1123" class="LineNr">1123 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1124" class="LineNr">1124 </span> <span class="Delimiter">);</span> <span id="L1125" class="LineNr">1125 </span><span class="Delimiter">}</span> <span id="L1126" class="LineNr">1126 </span> <span id="L1127" class="LineNr">1127 </span><span class="Delimiter">:(code)</span> -<span id="L1128" class="LineNr">1128 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1128'>test_compare_imm32_with_mem_at_r32_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1129" class="LineNr">1129 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L1128" class="LineNr">1128 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1128'>test_compare_imm32_with_mem_at_rm32_lesser</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L1129" class="LineNr">1129 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L1130" class="LineNr">1130 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1131" class="LineNr">1131 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1131" class="LineNr">1131 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1132" class="LineNr">1132 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1133" class="LineNr">1133 </span> <span class="Constant">" 81 38 0a 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b0a with *EAX</span> +<span id="L1133" class="LineNr">1133 </span> <span class="Constant">" 81 38 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare 0x0d0c0b0a with *EAX</span> <span id="L1134" class="LineNr">1134 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 111 (subop compare) 000 (dest EAX)</span> -<span id="L1135" class="LineNr">1135 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L1136" class="LineNr">1136 </span> <span class="Constant">"07 0b 0c 0d\n"</span> <span class="Comment">// 0x0d0c0b07</span> +<span id="L1135" class="LineNr">1135 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1136" class="LineNr">1136 </span> <span class="Constant">"07 0b 0c 0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0d0c0b07</span> <span id="L1137" class="LineNr">1137 </span> <span class="Delimiter">);</span> <span id="L1138" class="LineNr">1138 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1139" class="LineNr">1139 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1140" class="LineNr">1140 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L1141" class="LineNr">1141 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L1142" class="LineNr">1142 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0\n"</span> +<span id="L1139" class="LineNr">1139 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1140" class="LineNr">1140 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1141" class="LineNr">1141 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1142" class="LineNr">1142 </span> <span class="Constant">"run: SF=1; ZF=0; CF=1; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1143" class="LineNr">1143 </span> <span class="Delimiter">);</span> <span id="L1144" class="LineNr">1144 </span><span class="Delimiter">}</span> <span id="L1145" class="LineNr">1145 </span> <span id="L1146" class="LineNr">1146 </span><span class="Delimiter">:(code)</span> -<span id="L1147" class="LineNr">1147 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1147'>test_compare_imm32_with_mem_at_r32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1148" class="LineNr">1148 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> -<span id="L1149" class="LineNr">1149 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L1147" class="LineNr">1147 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1147'>test_compare_imm32_with_mem_at_rm32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L1148" class="LineNr">1148 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x0d0c0b0a</span><span class="Delimiter">;</span> +<span id="L1149" class="LineNr">1149 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L1150" class="LineNr">1150 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1151" class="LineNr">1151 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1151" class="LineNr">1151 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1152" class="LineNr">1152 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1153" class="LineNr">1153 </span> <span class="Constant">" 81 3b 0a 0b 0c 0d \n"</span> <span class="Comment">// compare 0x0d0c0b0a with *EBX</span> +<span id="L1153" class="LineNr">1153 </span> <span class="Constant">" 81 3b 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare 0x0d0c0b0a with *EBX</span> <span id="L1154" class="LineNr">1154 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 111 (subop compare) 011 (dest EBX)</span> -<span id="L1155" class="LineNr">1155 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L1156" class="LineNr">1156 </span> <span class="Constant">"0a 0b 0c 0d\n"</span> <span class="Comment">// 0x0d0c0b0a</span> +<span id="L1155" class="LineNr">1155 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1156" class="LineNr">1156 </span> <span class="Constant">"0a 0b 0c 0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x0d0c0b0a</span> <span id="L1157" class="LineNr">1157 </span> <span class="Delimiter">);</span> <span id="L1158" class="LineNr">1158 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1159" class="LineNr">1159 </span> <span class="Constant">"run: combine r/m32 with imm32\n"</span> -<span id="L1160" class="LineNr">1160 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L1161" class="LineNr">1161 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> -<span id="L1162" class="LineNr">1162 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0\n"</span> +<span id="L1159" class="LineNr">1159 </span> <span class="Constant">"run: combine r/m32 with imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1160" class="LineNr">1160 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1161" class="LineNr">1161 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1162" class="LineNr">1162 </span> <span class="Constant">"run: SF=0; ZF=1; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1163" class="LineNr">1163 </span> <span class="Delimiter">);</span> <span id="L1164" class="LineNr">1164 </span><span class="Delimiter">}</span> <span id="L1165" class="LineNr">1165 </span> -<span id="L1166" class="LineNr">1166 </span><span class="SalientComment">//:: copy (mov)</span> +<span id="L1166" class="LineNr">1166 </span><span class="Comment">//:: copy (mov)</span> <span id="L1167" class="LineNr">1167 </span> <span id="L1168" class="LineNr">1168 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> <span id="L1169" class="LineNr">1169 </span><span class="Comment">// b8 defined earlier to copy imm32 to EAX</span> -<span id="L1170" class="LineNr">1170 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L11'>ECX</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1171" class="LineNr">1171 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L12'>EDX</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1172" class="LineNr">1172 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L13'>EBX</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1173" class="LineNr">1173 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L14'>ESP</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1174" class="LineNr">1174 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L15'>EBP</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1175" class="LineNr">1175 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L16'>ESI</a> (mov)"</span><span class="Delimiter">);</span> -<span id="L1176" class="LineNr">1176 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L17'>EDI</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1170" class="LineNr">1170 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L11'>ECX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1171" class="LineNr">1171 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L12'>EDX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1172" class="LineNr">1172 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L13'>EBX</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1173" class="LineNr">1173 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L14'>ESP</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1174" class="LineNr">1174 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L15'>EBP</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1175" class="LineNr">1175 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L16'>ESI</a> (mov)"</span><span class="Delimiter">);</span> +<span id="L1176" class="LineNr">1176 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to <a href='010vm.cc.html#L17'>EDI</a> (mov)"</span><span class="Delimiter">);</span> <span id="L1177" class="LineNr">1177 </span> <span id="L1178" class="LineNr">1178 </span><span class="Delimiter">:(code)</span> <span id="L1179" class="LineNr">1179 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1179'>test_copy_imm32_to_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L1180" class="LineNr">1180 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1181" class="LineNr">1181 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1181" class="LineNr">1181 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1182" class="LineNr">1182 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1183" class="LineNr">1183 </span> <span class="Constant">" bb 0a 0b 0c 0d \n"</span> <span class="Comment">// copy 0x0d0c0b0a to EBX</span> +<span id="L1183" class="LineNr">1183 </span> <span class="Constant">" bb 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy 0x0d0c0b0a to EBX</span> <span id="L1184" class="LineNr">1184 </span> <span class="Delimiter">);</span> <span id="L1185" class="LineNr">1185 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1186" class="LineNr">1186 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to EBX\n"</span> +<span id="L1186" class="LineNr">1186 </span> <span class="Constant">"run: copy imm32 0x0d0c0b0a to <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1187" class="LineNr">1187 </span> <span class="Delimiter">);</span> <span id="L1188" class="LineNr">1188 </span><span class="Delimiter">}</span> <span id="L1189" class="LineNr">1189 </span> @@ -1258,99 +1256,99 @@ if ('onhashchange' in window) { <span id="L1197" class="LineNr">1197 </span><span class="Normal">case</span> <span class="Constant">0xbf</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm32 to r32</span> <span id="L1198" class="LineNr">1198 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = op & <span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L1199" class="LineNr">1199 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> src = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L1200" class="LineNr">1200 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << <span class="Constant">" to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L1201" class="LineNr">1201 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> +<span id="L1200" class="LineNr">1200 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << <span class="Constant">" to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1201" class="LineNr">1201 </span> Reg[rdest]<span class="Delimiter">.</span>i = src<span class="Delimiter">;</span> <span id="L1202" class="LineNr">1202 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1203" class="LineNr">1203 </span><span class="Delimiter">}</span> <span id="L1204" class="LineNr">1204 </span> <span id="L1205" class="LineNr">1205 </span><span class="Comment">//:</span> <span id="L1206" class="LineNr">1206 </span> <span id="L1207" class="LineNr">1207 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1208" class="LineNr">1208 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to rm32 with subop 0 (mov)"</span><span class="Delimiter">);</span> +<span id="L1208" class="LineNr">1208 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm32 to rm32 with subop 0 (mov)"</span><span class="Delimiter">);</span> <span id="L1209" class="LineNr">1209 </span> <span id="L1210" class="LineNr">1210 </span><span class="Delimiter">:(code)</span> -<span id="L1211" class="LineNr">1211 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1211'>test_copy_imm32_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1212" class="LineNr">1212 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L1211" class="LineNr">1211 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1211'>test_copy_imm32_to_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L1212" class="LineNr">1212 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> <span id="L1213" class="LineNr">1213 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1214" class="LineNr">1214 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1214" class="LineNr">1214 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1215" class="LineNr">1215 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1216" class="LineNr">1216 </span> <span class="Constant">" c7 03 0a 0b 0c 0d \n"</span> <span class="Comment">// copy 0x0d0c0b0a to *EBX</span> +<span id="L1216" class="LineNr">1216 </span> <span class="Constant">" c7 03 0a 0b 0c 0d </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy 0x0d0c0b0a to *EBX</span> <span id="L1217" class="LineNr">1217 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 000 (subop) 011 (dest EBX)</span> <span id="L1218" class="LineNr">1218 </span> <span class="Delimiter">);</span> <span id="L1219" class="LineNr">1219 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1220" class="LineNr">1220 </span> <span class="Constant">"run: copy imm32 to r/m32\n"</span> -<span id="L1221" class="LineNr">1221 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L1222" class="LineNr">1222 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a\n"</span> +<span id="L1220" class="LineNr">1220 </span> <span class="Constant">"run: copy imm32 to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1221" class="LineNr">1221 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1222" class="LineNr">1222 </span> <span class="Constant">"run: imm32 is 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1223" class="LineNr">1223 </span> <span class="Delimiter">);</span> <span id="L1224" class="LineNr">1224 </span><span class="Delimiter">}</span> <span id="L1225" class="LineNr">1225 </span> <span id="L1226" class="LineNr">1226 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L1227" class="LineNr">1227 </span><span class="Normal">case</span> <span class="Constant">0xc7</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm32 to r32</span> <span id="L1228" class="LineNr">1228 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L1229" class="LineNr">1229 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L1229" class="LineNr">1229 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm32 to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L1230" class="LineNr">1230 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L1231" class="LineNr">1231 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>subop != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L1232" class="LineNr">1232 </span> cerr << <span class="Constant">"unrecognized subop for opcode c7: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)\n"</span><span class="Delimiter">;</span> +<span id="L1232" class="LineNr">1232 </span> cerr << <span class="Constant">"unrecognized subop for opcode c7: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L1233" class="LineNr">1233 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L1234" class="LineNr">1234 </span> <span class="Delimiter">}</span> <span id="L1235" class="LineNr">1235 </span> <span class="Normal">int32_t</span>* dest = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1236" class="LineNr">1236 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> src = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L1237" class="LineNr">1237 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << end<span class="Delimiter">();</span> +<span id="L1237" class="LineNr">1237 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm32 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << src << end<span class="Delimiter">();</span> <span id="L1238" class="LineNr">1238 </span> *dest = src<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> <span id="L1239" class="LineNr">1239 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1240" class="LineNr">1240 </span><span class="Delimiter">}</span> <span id="L1241" class="LineNr">1241 </span> -<span id="L1242" class="LineNr">1242 </span><span class="SalientComment">//:: push</span> +<span id="L1242" class="LineNr">1242 </span><span class="Comment">//:: push</span> <span id="L1243" class="LineNr">1243 </span> <span id="L1244" class="LineNr">1244 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1245" class="LineNr">1245 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">"push imm32 to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> +<span id="L1245" class="LineNr">1245 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">"push imm32 to stack (<a href='012elf.cc.html#L94'>push</a>)"</span><span class="Delimiter">);</span> <span id="L1246" class="LineNr">1246 </span> <span id="L1247" class="LineNr">1247 </span><span class="Delimiter">:(code)</span> <span id="L1248" class="LineNr">1248 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1248'>test_push_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1249" class="LineNr">1249 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L1250" class="LineNr">1250 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> +<span id="L1249" class="LineNr">1249 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L1250" class="LineNr">1250 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000014</span><span class="Delimiter">;</span> <span id="L1251" class="LineNr">1251 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1252" class="LineNr">1252 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1252" class="LineNr">1252 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1253" class="LineNr">1253 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1254" class="LineNr">1254 </span> <span class="Constant">" 68 af 00 00 00 \n"</span> <span class="Comment">// push *EAX to stack</span> +<span id="L1254" class="LineNr">1254 </span> <span class="Constant">" 68 af 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// push *EAX to stack</span> <span id="L1255" class="LineNr">1255 </span> <span class="Delimiter">);</span> <span id="L1256" class="LineNr">1256 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1257" class="LineNr">1257 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> imm32 0x000000af\n"</span> -<span id="L1258" class="LineNr">1258 </span> <span class="Constant">"run: <a href='010vm.cc.html#L14'>ESP</a> is now 0xbd000010\n"</span> -<span id="L1259" class="LineNr">1259 </span> <span class="Constant">"run: <a href='003trace.cc.html#L117'>contents</a> at <a href='010vm.cc.html#L14'>ESP</a>: 0x000000af\n"</span> +<span id="L1257" class="LineNr">1257 </span> <span class="Constant">"run: <a href='012elf.cc.html#L94'>push</a> imm32 0x000000af</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1258" class="LineNr">1258 </span> <span class="Constant">"run: <a href='010vm.cc.html#L14'>ESP</a> is now 0xbd000010</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1259" class="LineNr">1259 </span> <span class="Constant">"run: <a href='003trace.cc.html#L117'>contents</a> at <a href='010vm.cc.html#L14'>ESP</a>: 0x000000af</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1260" class="LineNr">1260 </span> <span class="Delimiter">);</span> <span id="L1261" class="LineNr">1261 </span><span class="Delimiter">}</span> <span id="L1262" class="LineNr">1262 </span> <span id="L1263" class="LineNr">1263 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L1264" class="LineNr">1264 </span><span class="Normal">case</span> <span class="Constant">0x68</span>: <span class="Delimiter">{</span> <span id="L1265" class="LineNr">1265 </span> <span class="Normal">const</span> <span class="Normal">uint32_t</span> val = <span class="Normal">static_cast</span><<span class="Normal">uint32_t</span>><span class="Delimiter">(</span><a href='011run.cc.html#L433'>next32</a><span class="Delimiter">());</span> -<span id="L1266" class="LineNr">1266 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << end<span class="Delimiter">();</span> +<span id="L1266" class="LineNr">1266 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"push imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << end<span class="Delimiter">();</span> <span id="L1267" class="LineNr">1267 </span><span class="CommentedCode">//? cerr << "push: " << val << " => " << Reg[ESP].u << '\n';</span> <span id="L1268" class="LineNr">1268 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span>val<span class="Delimiter">);</span> -<span id="L1269" class="LineNr">1269 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"ESP is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> -<span id="L1270" class="LineNr">1270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"contents at <a href='010vm.cc.html#L14'>ESP</a>: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1269" class="LineNr">1269 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"ESP is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[ESP]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L1270" class="LineNr">1270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"contents at <a href='010vm.cc.html#L14'>ESP</a>: 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>Reg[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1271" class="LineNr">1271 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1272" class="LineNr">1272 </span><span class="Delimiter">}</span> <span id="L1273" class="LineNr">1273 </span> -<span id="L1274" class="LineNr">1274 </span><span class="SalientComment">//:: multiply</span> +<span id="L1274" class="LineNr">1274 </span><span class="Comment">//:: multiply</span> <span id="L1275" class="LineNr">1275 </span> <span id="L1276" class="LineNr">1276 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L1277" class="LineNr">1277 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 by imm32 and store result in r32"</span><span class="Delimiter">);</span> +<span id="L1277" class="LineNr">1277 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">"multiply rm32 by imm32 and store result in r32 (imul)"</span><span class="Delimiter">);</span> <span id="L1278" class="LineNr">1278 </span> <span id="L1279" class="LineNr">1279 </span><span class="Delimiter">:(code)</span> <span id="L1280" class="LineNr">1280 </span><span class="Normal">void</span> <a href='015immediate_addressing.cc.html#L1280'>test_multiply_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L1281" class="LineNr">1281 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> -<span id="L1282" class="LineNr">1282 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> +<span id="L1281" class="LineNr">1281 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">2</span><span class="Delimiter">;</span> +<span id="L1282" class="LineNr">1282 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">3</span><span class="Delimiter">;</span> <span id="L1283" class="LineNr">1283 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L1284" class="LineNr">1284 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L1284" class="LineNr">1284 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1285" class="LineNr">1285 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L1286" class="LineNr">1286 </span> <span class="Constant">" 69 c3 04 00 00 00 \n"</span> <span class="Comment">// EAX = EBX * 4</span> +<span id="L1286" class="LineNr">1286 </span> <span class="Constant">" 69 c3 04 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// EAX = EBX * 4</span> <span id="L1287" class="LineNr">1287 </span> <span class="Comment">// ModR/M in binary: 11 (direct) 000 (dest EAX) 011 (src EBX)</span> <span id="L1288" class="LineNr">1288 </span> <span class="Delimiter">);</span> <span id="L1289" class="LineNr">1289 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L1290" class="LineNr">1290 </span> <span class="Constant">"run: multiply r/m32 by 0x00000004 and store result in EAX\n"</span> -<span id="L1291" class="LineNr">1291 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L1292" class="LineNr">1292 </span> <span class="Constant">"run: storing 0x0000000c\n"</span> +<span id="L1290" class="LineNr">1290 </span> <span class="Constant">"run: multiply r/m32 by 0x00000004 and store result in <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1291" class="LineNr">1291 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L1292" class="LineNr">1292 </span> <span class="Constant">"run: storing 0x0000000c</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L1293" class="LineNr">1293 </span> <span class="Delimiter">);</span> <span id="L1294" class="LineNr">1294 </span><span class="Delimiter">}</span> <span id="L1295" class="LineNr">1295 </span> @@ -1359,15 +1357,15 @@ if ('onhashchange' in window) { <span id="L1298" class="LineNr">1298 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L1299" class="LineNr">1299 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L1300" class="LineNr">1300 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> val = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L1301" class="LineNr">1301 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply r/m32 by 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << <span class="Constant">" and store result in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L1301" class="LineNr">1301 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply r/m32 by 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << val << <span class="Constant">" and store result in "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L1302" class="LineNr">1302 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* signed_arg1 = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L1303" class="LineNr">1303 </span> <span class="Normal">int32_t</span> result = *signed_arg1 * val<span class="Delimiter">;</span> <span id="L1304" class="LineNr">1304 </span> <span class="Normal">int64_t</span> full_result = <span class="Normal">static_cast</span><<span class="Normal">int64_t</span>><span class="Delimiter">(</span>*signed_arg1<span class="Delimiter">)</span> * val<span class="Delimiter">;</span> <span id="L1305" class="LineNr">1305 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Delimiter">(</span>result != full_result<span class="Delimiter">);</span> <span id="L1306" class="LineNr">1306 </span> <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> -<span id="L1307" class="LineNr">1307 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> -<span id="L1308" class="LineNr">1308 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> -<span id="L1309" class="LineNr">1309 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L1307" class="LineNr">1307 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L1308" class="LineNr">1308 </span> Reg[rdest]<span class="Delimiter">.</span>i = result<span class="Delimiter">;</span> +<span id="L1309" class="LineNr">1309 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[rdest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L1310" class="LineNr">1310 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L1311" class="LineNr">1311 </span><span class="Delimiter">}</span> </pre> diff --git a/html/016index_addressing.cc.html b/html/linux/bootstrap/016index_addressing.cc.html index ac1cfcfc..fc6d9d64 100644 --- a/html/016index_addressing.cc.html +++ b/html/linux/bootstrap/016index_addressing.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 016index_addressing.cc</title> +<title>Mu - linux/bootstrap/016index_addressing.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -54,28 +54,28 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/016index_addressing.cc'>https://github.com/akkartik/mu/blob/main/016index_addressing.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/016index_addressing.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/016index_addressing.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: operating on memory at the address provided by some register plus optional scale and offset</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(code)</span> -<span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L4'>test_add_r32_to_mem_at_r32_with_sib</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> -<span id="L6" class="LineNr"> 6 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L4'>test_add_r32_to_mem_at_rm32_with_sib</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> +<span id="L6" class="LineNr"> 6 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L7" class="LineNr"> 7 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L9" class="LineNr"> 9 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L10" class="LineNr"> 10 </span> <span class="Constant">" 01 1c 20 \n"</span> <span class="Comment">// add EBX to *EAX</span> +<span id="L10" class="LineNr"> 10 </span> <span class="Constant">" 01 1c 20 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *EAX</span> <span id="L11" class="LineNr"> 11 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 100 (dest in SIB)</span> <span id="L12" class="LineNr"> 12 </span> <span class="Comment">// SIB in binary: 00 (scale 1) 100 (no index) 000 (base EAX)</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">);</span> <span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: effective address is initially 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: effective address is 0x00002000\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: effective address is initially 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: effective address is 0x00002000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">);</span> <span id="L22" class="LineNr"> 22 </span><span class="Delimiter">}</span> <span id="L23" class="LineNr"> 23 </span> @@ -89,66 +89,66 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> base = sib&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L32" class="LineNr"> 32 </span> <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>base != <a href='010vm.cc.html#L15'>EBP</a> || mod != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> addr = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[base]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> -<span id="L35" class="LineNr"> 35 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>base<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L34" class="LineNr"> 34 </span> addr = Reg[base]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L35" class="LineNr"> 35 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" ("</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>base<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <span class="Comment">// base == EBP && mod == 0</span> <span id="L39" class="LineNr"> 39 </span> addr = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span class="Comment">// ignore base</span> -<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> +<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is initially 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (<a href='040tests.cc.html#L82'>disp32</a>)"</span> << end<span class="Delimiter">();</span> <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> index = <span class="Delimiter">(</span>sib>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>index == <a href='010vm.cc.html#L14'>ESP</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L44" class="LineNr"> 44 </span> <span class="Comment">// ignore index and scale</span> -<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << end<span class="Delimiter">();</span> +<span id="L45" class="LineNr"> 45 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << end<span class="Delimiter">();</span> <span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">}</span> <span id="L47" class="LineNr"> 47 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> <span id="L48" class="LineNr"> 48 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> scale = <span class="Delimiter">(</span><span class="Constant">1</span> << <span class="Delimiter">(</span>sib>><span class="Constant">6</span><span class="Delimiter">));</span> -<span id="L49" class="LineNr"> 49 </span> addr += <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[index]<span class="Delimiter">.</span>i*scale<span class="Delimiter">;</span> <span class="Comment">// treat index register as signed. Maybe base as well? But we'll always ensure it's non-negative.</span> -<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>index<span class="Delimiter">)</span> << <span class="Constant">"*"</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>scale<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> +<span id="L49" class="LineNr"> 49 </span> addr += Reg[index]<span class="Delimiter">.</span>i*scale<span class="Delimiter">;</span> <span class="Comment">// treat index register as signed. Maybe base as well? But we'll always ensure it's non-negative.</span> +<span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" (after adding "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>index<span class="Delimiter">)</span> << <span class="Constant">"*"</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>scale<span class="Delimiter">)</span> << <span class="Constant">")"</span> << end<span class="Delimiter">();</span> <span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> <span id="L52" class="LineNr"> 52 </span> <span class="Identifier">return</span> addr<span class="Delimiter">;</span> <span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> <span id="L54" class="LineNr"> 54 </span> <span id="L55" class="LineNr"> 55 </span><span class="Delimiter">:(code)</span> <span id="L56" class="LineNr"> 56 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L56'>test_add_r32_to_mem_at_base_r32_index_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L57" class="LineNr"> 57 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L58" class="LineNr"> 58 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> -<span id="L59" class="LineNr"> 59 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x2</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> +<span id="L57" class="LineNr"> 57 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L58" class="LineNr"> 58 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ffe</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> +<span id="L59" class="LineNr"> 59 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x2</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> <span id="L60" class="LineNr"> 60 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L62" class="LineNr"> 62 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L63" class="LineNr"> 63 </span> <span class="Constant">" 01 1c 08 \n"</span> <span class="Comment">// add EBX to *(EAX+ECX)</span> +<span id="L63" class="LineNr"> 63 </span> <span class="Constant">" 01 1c 08 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *(EAX+ECX)</span> <span id="L64" class="LineNr"> 64 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 100 (dest in SIB)</span> <span id="L65" class="LineNr"> 65 </span> <span class="Comment">// SIB in binary: 00 (scale 1) 001 (index ECX) 000 (base EAX)</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">);</span> <span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L71" class="LineNr"> 71 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding ECX*1)\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Constant">"run: effective address is initially 0x00001ffe (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding ECX*1)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">);</span> <span id="L75" class="LineNr"> 75 </span><span class="Delimiter">}</span> <span id="L76" class="LineNr"> 76 </span> <span id="L77" class="LineNr"> 77 </span><span class="Delimiter">:(code)</span> <span id="L78" class="LineNr"> 78 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L78'>test_add_r32_to_mem_at_displacement_using_sib</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L79" class="LineNr"> 79 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> <span id="L80" class="LineNr"> 80 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L82" class="LineNr"> 82 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">" 01 1c 25 00 20 00 00 \n"</span> <span class="Comment">// add EBX to *0x2000</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">" 01 1c 25 00 20 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *0x2000</span> <span id="L84" class="LineNr"> 84 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src EBX) 100 (dest in SIB)</span> <span id="L85" class="LineNr"> 85 </span> <span class="Comment">// SIB in binary: 00 (scale 1) 100 (no index) 101 (not EBP but disp32)</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">);</span> <span id="L89" class="LineNr"> 89 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"run: effective address is initially 0x00002000 (<a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: effective address is 0x00002000\n"</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"run: effective address is initially 0x00002000 (<a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Constant">"run: effective address is 0x00002000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">);</span> <span id="L95" class="LineNr"> 95 </span><span class="Delimiter">}</span> <span id="L96" class="LineNr"> 96 </span> @@ -156,24 +156,24 @@ if ('onhashchange' in window) { <span id="L98" class="LineNr"> 98 </span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">:(code)</span> <span id="L100" class="LineNr">100 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L100'>test_add_r32_to_mem_at_base_r32_index_r32_plus_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L101" class="LineNr">101 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L102" class="LineNr">102 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> -<span id="L103" class="LineNr">103 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> +<span id="L101" class="LineNr">101 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L102" class="LineNr">102 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> +<span id="L103" class="LineNr">103 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> <span id="L104" class="LineNr">104 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L105" class="LineNr">105 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L105" class="LineNr">105 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L106" class="LineNr">106 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L107" class="LineNr">107 </span> <span class="Constant">" 01 5c 08 02 \n"</span> <span class="Comment">// add EBX to *(EAX+ECX+2)</span> +<span id="L107" class="LineNr">107 </span> <span class="Constant">" 01 5c 08 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *(EAX+ECX+2)</span> <span id="L108" class="LineNr">108 </span> <span class="Comment">// ModR/M in binary: 01 (indirect+disp8 mode) 011 (src EBX) 100 (dest in SIB)</span> <span id="L109" class="LineNr">109 </span> <span class="Comment">// SIB in binary: 00 (scale 1) 001 (index ECX) 000 (base EAX)</span> -<span id="L110" class="LineNr">110 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L111" class="LineNr">111 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L110" class="LineNr">110 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L111" class="LineNr">111 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">);</span> <span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L114" class="LineNr">114 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L115" class="LineNr">115 </span> <span class="Constant">"run: effective address is initially 0x00001ff9 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L116" class="LineNr">116 </span> <span class="Constant">"run: effective address is 0x00001ffe (after adding ECX*1)\n"</span> -<span id="L117" class="LineNr">117 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)\n"</span> -<span id="L118" class="LineNr">118 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L114" class="LineNr">114 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L115" class="LineNr">115 </span> <span class="Constant">"run: effective address is initially 0x00001ff9 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L116" class="LineNr">116 </span> <span class="Constant">"run: effective address is 0x00001ffe (after adding ECX*1)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L117" class="LineNr">117 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding disp8)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L118" class="LineNr">118 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L119" class="LineNr">119 </span> <span class="Delimiter">);</span> <span id="L120" class="LineNr">120 </span><span class="Delimiter">}</span> <span id="L121" class="LineNr">121 </span> @@ -186,24 +186,24 @@ if ('onhashchange' in window) { <span id="L128" class="LineNr">128 </span> <span id="L129" class="LineNr">129 </span><span class="Delimiter">:(code)</span> <span id="L130" class="LineNr">130 </span><span class="Normal">void</span> <a href='016index_addressing.cc.html#L130'>test_add_r32_to_mem_at_base_r32_index_r32_plus_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L131" class="LineNr">131 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> -<span id="L132" class="LineNr">132 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> -<span id="L133" class="LineNr">133 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> +<span id="L131" class="LineNr">131 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x10</span><span class="Delimiter">;</span> <span class="Comment">// source</span> +<span id="L132" class="LineNr">132 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x1ff9</span><span class="Delimiter">;</span> <span class="Comment">// dest base</span> +<span id="L133" class="LineNr">133 </span> Reg[ECX]<span class="Delimiter">.</span>i = <span class="Constant">0x5</span><span class="Delimiter">;</span> <span class="Comment">// dest index</span> <span id="L134" class="LineNr">134 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L135" class="LineNr">135 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L135" class="LineNr">135 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L136" class="LineNr">136 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L137" class="LineNr">137 </span> <span class="Constant">" 01 9c 08 02 00 00 00 \n"</span> <span class="Comment">// add EBX to *(EAX+ECX+2)</span> +<span id="L137" class="LineNr">137 </span> <span class="Constant">" 01 9c 08 02 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EBX to *(EAX+ECX+2)</span> <span id="L138" class="LineNr">138 </span> <span class="Comment">// ModR/M in binary: 10 (indirect+disp32 mode) 011 (src EBX) 100 (dest in SIB)</span> <span id="L139" class="LineNr">139 </span> <span class="Comment">// SIB in binary: 00 (scale 1) 001 (index ECX) 000 (base EAX)</span> -<span id="L140" class="LineNr">140 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L141" class="LineNr">141 </span> <span class="Constant">"01 00 00 00\n"</span> <span class="Comment">// 0x00000001</span> +<span id="L140" class="LineNr">140 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L141" class="LineNr">141 </span> <span class="Constant">"01 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1</span> <span id="L142" class="LineNr">142 </span> <span class="Delimiter">);</span> <span id="L143" class="LineNr">143 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L144" class="LineNr">144 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32\n"</span> -<span id="L145" class="LineNr">145 </span> <span class="Constant">"run: effective address is initially 0x00001ff9 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L146" class="LineNr">146 </span> <span class="Constant">"run: effective address is 0x00001ffe (after adding ECX*1)\n"</span> -<span id="L147" class="LineNr">147 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L148" class="LineNr">148 </span> <span class="Constant">"run: storing 0x00000011\n"</span> +<span id="L144" class="LineNr">144 </span> <span class="Constant">"run: add <a href='010vm.cc.html#L13'>EBX</a> to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L145" class="LineNr">145 </span> <span class="Constant">"run: effective address is initially 0x00001ff9 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L146" class="LineNr">146 </span> <span class="Constant">"run: effective address is 0x00001ffe (after adding ECX*1)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">"run: effective address is 0x00002000 (after adding <a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L148" class="LineNr">148 </span> <span class="Constant">"run: storing 0x00000011</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L149" class="LineNr">149 </span> <span class="Delimiter">);</span> <span id="L150" class="LineNr">150 </span><span class="Delimiter">}</span> <span id="L151" class="LineNr">151 </span> diff --git a/html/017jump_disp8.cc.html b/html/linux/bootstrap/017jump_disp8.cc.html index 6f73aa7f..8baf96cd 100644 --- a/html/017jump_disp8.cc.html +++ b/html/linux/bootstrap/017jump_disp8.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 017jump_disp8.cc</title> +<title>Mu - linux/bootstrap/017jump_disp8.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,14 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } --> </style> @@ -55,28 +54,28 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/017jump_disp8.cc'>https://github.com/akkartik/mu/blob/main/017jump_disp8.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/017jump_disp8.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/017jump_disp8.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: jump to 8-bit offset</span> <span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="SalientComment">//:: jump</span> +<span id="L3" class="LineNr"> 3 </span><span class="Comment">//:: jump</span> <span id="L4" class="LineNr"> 4 </span> <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away (jmp)"</span><span class="Delimiter">);</span> +<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away (jmp)"</span><span class="Delimiter">);</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="Delimiter">:(code)</span> <span id="L9" class="LineNr"> 9 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L9'>test_jump_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L10" class="LineNr"> 10 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L12" class="LineNr"> 12 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" eb 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L15" class="LineNr"> 15 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" eb 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">);</span> <span id="L17" class="LineNr"> 17 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: 0x00000001 opcode: eb\n"</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: 0x00000001 opcode: eb</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">);</span> <span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> @@ -84,30 +83,30 @@ if ('onhashchange' in window) { <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L26" class="LineNr"> 26 </span><span class="Normal">case</span> <span class="Constant">0xeb</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8</span> <span id="L27" class="LineNr"> 27 </span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> -<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L29" class="LineNr"> 29 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> <span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="SalientComment">//:: jump if equal/zero</span> +<span id="L33" class="LineNr"> 33 </span><span class="Comment">//:: jump if equal/zero</span> <span id="L34" class="LineNr"> 34 </span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> +<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> <span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L39'>test_je_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L40" class="LineNr"> 40 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L41" class="LineNr"> 41 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L43" class="LineNr"> 43 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Constant">" 74 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Constant">" 74 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">);</span> <span id="L48" class="LineNr"> 48 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"run: 0x00000001 opcode: 74\n"</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"run: 0x00000001 opcode: 74</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">);</span> <span id="L53" class="LineNr"> 53 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L54" class="LineNr"> 54 </span><span class="Delimiter">}</span> @@ -116,7 +115,7 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span><span class="Normal">case</span> <span class="Constant">0x74</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if ZF</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L61" class="LineNr"> 61 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -126,39 +125,39 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L67'>test_je_disp8_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L69" class="LineNr"> 69 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L71" class="LineNr"> 71 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" 74 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" 74 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">);</span> <span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"run: 0x00000001 opcode: 74\n"</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"run: 0x00000001 opcode: 74</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"run: 0x00000003 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">);</span> <span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> <span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span><span class="SalientComment">//:: jump if not equal/not zero</span> +<span id="L84" class="LineNr"> 84 </span><span class="Comment">//:: jump if not equal/not zero</span> <span id="L85" class="LineNr"> 85 </span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> <span id="L88" class="LineNr"> 88 </span> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">:(code)</span> <span id="L90" class="LineNr"> 90 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L90'>test_jne_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L91" class="LineNr"> 91 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L92" class="LineNr"> 92 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L94" class="LineNr"> 94 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">" 75 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">" 75 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">);</span> <span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L100" class="LineNr">100 </span> <span class="Constant">"run: 0x00000001 opcode: 75\n"</span> -<span id="L101" class="LineNr">101 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L102" class="LineNr">102 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L100" class="LineNr">100 </span> <span class="Constant">"run: 0x00000001 opcode: 75</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L101" class="LineNr">101 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L102" class="LineNr">102 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L103" class="LineNr">103 </span> <span class="Delimiter">);</span> <span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> @@ -167,7 +166,7 @@ if ('onhashchange' in window) { <span id="L108" class="LineNr">108 </span><span class="Normal">case</span> <span class="Constant">0x75</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if !ZF</span> <span id="L109" class="LineNr">109 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L110" class="LineNr">110 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L112" class="LineNr">112 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> <span id="L114" class="LineNr">114 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -177,25 +176,25 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L118'>test_jne_disp8_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L120" class="LineNr">120 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L121" class="LineNr">121 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L121" class="LineNr">121 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L122" class="LineNr">122 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L123" class="LineNr">123 </span> <span class="Constant">" 75 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L124" class="LineNr">124 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L125" class="LineNr">125 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L123" class="LineNr">123 </span> <span class="Constant">" 75 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L124" class="LineNr">124 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L125" class="LineNr">125 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L126" class="LineNr">126 </span> <span class="Delimiter">);</span> <span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L128" class="LineNr">128 </span> <span class="Constant">"run: 0x00000001 opcode: 75\n"</span> -<span id="L129" class="LineNr">129 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> -<span id="L130" class="LineNr">130 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L128" class="LineNr">128 </span> <span class="Constant">"run: 0x00000001 opcode: 75</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L129" class="LineNr">129 </span> <span class="Constant">"run: 0x00000003 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L130" class="LineNr">130 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L131" class="LineNr">131 </span> <span class="Delimiter">);</span> <span id="L132" class="LineNr">132 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L133" class="LineNr">133 </span><span class="Delimiter">}</span> <span id="L134" class="LineNr">134 </span> -<span id="L135" class="LineNr">135 </span><span class="SalientComment">//:: jump if greater</span> +<span id="L135" class="LineNr">135 </span><span class="Comment">//:: jump if greater</span> <span id="L136" class="LineNr">136 </span> <span id="L137" class="LineNr">137 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater, if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater, if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(code)</span> <span id="L142" class="LineNr">142 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L142'>test_jg_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -203,16 +202,16 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr">144 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L145" class="LineNr">145 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L146" class="LineNr">146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L148" class="LineNr">148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L149" class="LineNr">149 </span> <span class="Constant">" 7f 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L150" class="LineNr">150 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L151" class="LineNr">151 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L149" class="LineNr">149 </span> <span class="Constant">" 7f 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L150" class="LineNr">150 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L151" class="LineNr">151 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L152" class="LineNr">152 </span> <span class="Delimiter">);</span> <span id="L153" class="LineNr">153 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: 0x00000001 opcode: 7f\n"</span> -<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L156" class="LineNr">156 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: 0x00000001 opcode: 7f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L156" class="LineNr">156 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L157" class="LineNr">157 </span> <span class="Delimiter">);</span> <span id="L158" class="LineNr">158 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> @@ -221,7 +220,7 @@ if ('onhashchange' in window) { <span id="L162" class="LineNr">162 </span><span class="Normal">case</span> <span class="Constant">0x7f</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if SF == OF and !ZF</span> <span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a> && !ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L166" class="LineNr">166 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> <span id="L168" class="LineNr">168 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -229,7 +228,7 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr">170 </span><span class="Normal">case</span> <span class="Constant">0x77</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if !CF and !ZF</span> <span id="L171" class="LineNr">171 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L172" class="LineNr">172 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!CF && !ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L173" class="LineNr">173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L174" class="LineNr">174 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -241,41 +240,41 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr">182 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L183" class="LineNr">183 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L184" class="LineNr">184 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L185" class="LineNr">185 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L185" class="LineNr">185 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L186" class="LineNr">186 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L187" class="LineNr">187 </span> <span class="Constant">" 7f 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L188" class="LineNr">188 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L189" class="LineNr">189 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L187" class="LineNr">187 </span> <span class="Constant">" 7f 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L188" class="LineNr">188 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L189" class="LineNr">189 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L190" class="LineNr">190 </span> <span class="Delimiter">);</span> <span id="L191" class="LineNr">191 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L192" class="LineNr">192 </span> <span class="Constant">"run: 0x00000001 opcode: 7f\n"</span> -<span id="L193" class="LineNr">193 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> -<span id="L194" class="LineNr">194 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L192" class="LineNr">192 </span> <span class="Constant">"run: 0x00000001 opcode: 7f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L193" class="LineNr">193 </span> <span class="Constant">"run: 0x00000003 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L194" class="LineNr">194 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L195" class="LineNr">195 </span> <span class="Delimiter">);</span> <span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> <span id="L198" class="LineNr">198 </span> -<span id="L199" class="LineNr">199 </span><span class="SalientComment">//:: jump if greater or equal</span> +<span id="L199" class="LineNr">199 </span><span class="Comment">//:: jump if greater or equal</span> <span id="L200" class="LineNr">200 </span> <span id="L201" class="LineNr">201 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal, if SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> -<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> +<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal, if SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> +<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if greater or equal (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Delimiter">:(code)</span> <span id="L206" class="LineNr">206 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L206'>test_jge_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L208" class="LineNr">208 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L209" class="LineNr">209 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L210" class="LineNr">210 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L210" class="LineNr">210 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L211" class="LineNr">211 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L212" class="LineNr">212 </span> <span class="Constant">" 7d 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L213" class="LineNr">213 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L214" class="LineNr">214 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L212" class="LineNr">212 </span> <span class="Constant">" 7d 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L213" class="LineNr">213 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L214" class="LineNr">214 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L215" class="LineNr">215 </span> <span class="Delimiter">);</span> <span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L217" class="LineNr">217 </span> <span class="Constant">"run: 0x00000001 opcode: 7d\n"</span> -<span id="L218" class="LineNr">218 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L219" class="LineNr">219 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L217" class="LineNr">217 </span> <span class="Constant">"run: 0x00000001 opcode: 7d</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L218" class="LineNr">218 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L219" class="LineNr">219 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L220" class="LineNr">220 </span> <span class="Delimiter">);</span> <span id="L221" class="LineNr">221 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L222" class="LineNr">222 </span><span class="Delimiter">}</span> @@ -284,7 +283,7 @@ if ('onhashchange' in window) { <span id="L225" class="LineNr">225 </span><span class="Normal">case</span> <span class="Constant">0x7d</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if SF == OF</span> <span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L228" class="LineNr">228 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L228" class="LineNr">228 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L229" class="LineNr">229 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> <span id="L231" class="LineNr">231 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -292,7 +291,7 @@ if ('onhashchange' in window) { <span id="L233" class="LineNr">233 </span><span class="Normal">case</span> <span class="Constant">0x73</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if !CF</span> <span id="L234" class="LineNr">234 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L235" class="LineNr">235 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!CF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L236" class="LineNr">236 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L237" class="LineNr">237 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> <span id="L239" class="LineNr">239 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -303,25 +302,25 @@ if ('onhashchange' in window) { <span id="L244" class="LineNr">244 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L245" class="LineNr">245 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L246" class="LineNr">246 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L247" class="LineNr">247 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L247" class="LineNr">247 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L248" class="LineNr">248 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L249" class="LineNr">249 </span> <span class="Constant">" 7d 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L250" class="LineNr">250 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L251" class="LineNr">251 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L249" class="LineNr">249 </span> <span class="Constant">" 7d 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L250" class="LineNr">250 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L251" class="LineNr">251 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">);</span> <span id="L253" class="LineNr">253 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L254" class="LineNr">254 </span> <span class="Constant">"run: 0x00000001 opcode: 7d\n"</span> -<span id="L255" class="LineNr">255 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> -<span id="L256" class="LineNr">256 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L254" class="LineNr">254 </span> <span class="Constant">"run: 0x00000001 opcode: 7d</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L255" class="LineNr">255 </span> <span class="Constant">"run: 0x00000003 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L256" class="LineNr">256 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L257" class="LineNr">257 </span> <span class="Delimiter">);</span> <span id="L258" class="LineNr">258 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L259" class="LineNr">259 </span><span class="Delimiter">}</span> <span id="L260" class="LineNr">260 </span> -<span id="L261" class="LineNr">261 </span><span class="SalientComment">//:: jump if lesser</span> +<span id="L261" class="LineNr">261 </span><span class="Comment">//:: jump if lesser</span> <span id="L262" class="LineNr">262 </span> <span id="L263" class="LineNr">263 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser, if SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> -<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> +<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser, if SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> +<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> <span id="L266" class="LineNr">266 </span> <span id="L267" class="LineNr">267 </span><span class="Delimiter">:(code)</span> <span id="L268" class="LineNr">268 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L268'>test_jl_disp8_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -329,16 +328,16 @@ if ('onhashchange' in window) { <span id="L270" class="LineNr">270 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L271" class="LineNr">271 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L272" class="LineNr">272 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L273" class="LineNr">273 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L273" class="LineNr">273 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L274" class="LineNr">274 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L275" class="LineNr">275 </span> <span class="Constant">" 7c 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L276" class="LineNr">276 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L277" class="LineNr">277 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L275" class="LineNr">275 </span> <span class="Constant">" 7c 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L276" class="LineNr">276 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L277" class="LineNr">277 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L278" class="LineNr">278 </span> <span class="Delimiter">);</span> <span id="L279" class="LineNr">279 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L280" class="LineNr">280 </span> <span class="Constant">"run: 0x00000001 opcode: 7c\n"</span> -<span id="L281" class="LineNr">281 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L282" class="LineNr">282 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L280" class="LineNr">280 </span> <span class="Constant">"run: 0x00000001 opcode: 7c</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L281" class="LineNr">281 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L282" class="LineNr">282 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L283" class="LineNr">283 </span> <span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L285" class="LineNr">285 </span><span class="Delimiter">}</span> @@ -347,7 +346,7 @@ if ('onhashchange' in window) { <span id="L288" class="LineNr">288 </span><span class="Normal">case</span> <span class="Constant">0x7c</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if SF != OF</span> <span id="L289" class="LineNr">289 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L290" class="LineNr">290 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L291" class="LineNr">291 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L291" class="LineNr">291 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L292" class="LineNr">292 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L293" class="LineNr">293 </span> <span class="Delimiter">}</span> <span id="L294" class="LineNr">294 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -355,7 +354,7 @@ if ('onhashchange' in window) { <span id="L296" class="LineNr">296 </span><span class="Normal">case</span> <span class="Constant">0x72</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if CF</span> <span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L298" class="LineNr">298 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L299" class="LineNr">299 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L299" class="LineNr">299 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L300" class="LineNr">300 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> <span id="L302" class="LineNr">302 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -367,25 +366,25 @@ if ('onhashchange' in window) { <span id="L308" class="LineNr">308 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L309" class="LineNr">309 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L310" class="LineNr">310 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L311" class="LineNr">311 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L311" class="LineNr">311 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L312" class="LineNr">312 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L313" class="LineNr">313 </span> <span class="Constant">" 7c 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L314" class="LineNr">314 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L315" class="LineNr">315 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L313" class="LineNr">313 </span> <span class="Constant">" 7c 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L314" class="LineNr">314 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L315" class="LineNr">315 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L316" class="LineNr">316 </span> <span class="Delimiter">);</span> <span id="L317" class="LineNr">317 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L318" class="LineNr">318 </span> <span class="Constant">"run: 0x00000001 opcode: 7c\n"</span> -<span id="L319" class="LineNr">319 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> -<span id="L320" class="LineNr">320 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L318" class="LineNr">318 </span> <span class="Constant">"run: 0x00000001 opcode: 7c</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L319" class="LineNr">319 </span> <span class="Constant">"run: 0x00000003 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L320" class="LineNr">320 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L321" class="LineNr">321 </span> <span class="Delimiter">);</span> <span id="L322" class="LineNr">322 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L323" class="LineNr">323 </span><span class="Delimiter">}</span> <span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="SalientComment">//:: jump if lesser or equal</span> +<span id="L325" class="LineNr">325 </span><span class="Comment">//:: jump if lesser or equal</span> <span id="L326" class="LineNr">326 </span> <span id="L327" class="LineNr">327 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal, if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> -<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> +<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal, if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> +<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">"jump disp8 bytes away if lesser or equal (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> <span id="L330" class="LineNr">330 </span> <span id="L331" class="LineNr">331 </span><span class="Delimiter">:(code)</span> <span id="L332" class="LineNr">332 </span><span class="Normal">void</span> <a href='017jump_disp8.cc.html#L332'>test_jle_disp8_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -393,16 +392,16 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr">334 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L335" class="LineNr">335 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L336" class="LineNr">336 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L337" class="LineNr">337 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L337" class="LineNr">337 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L338" class="LineNr">338 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L339" class="LineNr">339 </span> <span class="Constant">" 7e 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L340" class="LineNr">340 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L341" class="LineNr">341 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L339" class="LineNr">339 </span> <span class="Constant">" 7e 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L340" class="LineNr">340 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L341" class="LineNr">341 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L342" class="LineNr">342 </span> <span class="Delimiter">);</span> <span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L344" class="LineNr">344 </span> <span class="Constant">"run: 0x00000001 opcode: 7e\n"</span> -<span id="L345" class="LineNr">345 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L346" class="LineNr">346 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L344" class="LineNr">344 </span> <span class="Constant">"run: 0x00000001 opcode: 7e</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L345" class="LineNr">345 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L346" class="LineNr">346 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L347" class="LineNr">347 </span> <span class="Delimiter">);</span> <span id="L348" class="LineNr">348 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L349" class="LineNr">349 </span><span class="Delimiter">}</span> @@ -413,16 +412,16 @@ if ('onhashchange' in window) { <span id="L354" class="LineNr">354 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L355" class="LineNr">355 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L356" class="LineNr">356 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L358" class="LineNr">358 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L359" class="LineNr">359 </span> <span class="Constant">" 7e 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L360" class="LineNr">360 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L361" class="LineNr">361 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L359" class="LineNr">359 </span> <span class="Constant">" 7e 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L360" class="LineNr">360 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L361" class="LineNr">361 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L362" class="LineNr">362 </span> <span class="Delimiter">);</span> <span id="L363" class="LineNr">363 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L364" class="LineNr">364 </span> <span class="Constant">"run: 0x00000001 opcode: 7e\n"</span> -<span id="L365" class="LineNr">365 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L366" class="LineNr">366 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L364" class="LineNr">364 </span> <span class="Constant">"run: 0x00000001 opcode: 7e</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L365" class="LineNr">365 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L366" class="LineNr">366 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L367" class="LineNr">367 </span> <span class="Delimiter">);</span> <span id="L368" class="LineNr">368 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000003 opcode: 05"</span><span class="Delimiter">);</span> <span id="L369" class="LineNr">369 </span><span class="Delimiter">}</span> @@ -431,7 +430,7 @@ if ('onhashchange' in window) { <span id="L372" class="LineNr">372 </span><span class="Normal">case</span> <span class="Constant">0x7e</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if ZF or SF != OF</span> <span id="L373" class="LineNr">373 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L374" class="LineNr">374 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L376" class="LineNr">376 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L377" class="LineNr">377 </span> <span class="Delimiter">}</span> <span id="L378" class="LineNr">378 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -439,7 +438,7 @@ if ('onhashchange' in window) { <span id="L380" class="LineNr">380 </span><span class="Normal">case</span> <span class="Constant">0x76</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp8 if ZF or CF</span> <span id="L381" class="LineNr">381 </span> <span class="Normal">const</span> <span class="Normal">int8_t</span> offset = <span class="Normal">static_cast</span><<span class="Normal">int</span>><span class="Delimiter">(</span><a href='010vm.cc.html#L338'>next</a><span class="Delimiter">());</span> <span id="L382" class="LineNr">382 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L383" class="LineNr">383 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L383" class="LineNr">383 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>offset<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L384" class="LineNr">384 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> <span id="L386" class="LineNr">386 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -451,16 +450,16 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr">392 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L393" class="LineNr">393 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L394" class="LineNr">394 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L395" class="LineNr">395 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L395" class="LineNr">395 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L396" class="LineNr">396 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L397" class="LineNr">397 </span> <span class="Constant">" 7e 05 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L398" class="LineNr">398 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L399" class="LineNr">399 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L397" class="LineNr">397 </span> <span class="Constant">" 7e 05 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L398" class="LineNr">398 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L399" class="LineNr">399 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L400" class="LineNr">400 </span> <span class="Delimiter">);</span> <span id="L401" class="LineNr">401 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L402" class="LineNr">402 </span> <span class="Constant">"run: 0x00000001 opcode: 7e\n"</span> -<span id="L403" class="LineNr">403 </span> <span class="Constant">"run: 0x00000003 opcode: 05\n"</span> -<span id="L404" class="LineNr">404 </span> <span class="Constant">"run: 0x00000008 opcode: 05\n"</span> +<span id="L402" class="LineNr">402 </span> <span class="Constant">"run: 0x00000001 opcode: 7e</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L403" class="LineNr">403 </span> <span class="Constant">"run: 0x00000003 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L404" class="LineNr">404 </span> <span class="Constant">"run: 0x00000008 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L405" class="LineNr">405 </span> <span class="Delimiter">);</span> <span id="L406" class="LineNr">406 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L407" class="LineNr">407 </span><span class="Delimiter">}</span> diff --git a/html/018jump_disp32.cc.html b/html/linux/bootstrap/018jump_disp32.cc.html index 8f3dd933..991b070e 100644 --- a/html/018jump_disp32.cc.html +++ b/html/linux/bootstrap/018jump_disp32.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 018jump_disp32.cc</title> +<title>Mu - linux/bootstrap/018jump_disp32.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,14 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } --> </style> @@ -55,28 +54,28 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/018jump_disp32.cc'>https://github.com/akkartik/mu/blob/main/018jump_disp32.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/018jump_disp32.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/018jump_disp32.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: jump to 32-bit offset</span> <span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="SalientComment">//:: jump</span> +<span id="L3" class="LineNr"> 3 </span><span class="Comment">//:: jump</span> <span id="L4" class="LineNr"> 4 </span> <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away (jmp)"</span><span class="Delimiter">);</span> +<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away (jmp)"</span><span class="Delimiter">);</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="Delimiter">:(code)</span> <span id="L9" class="LineNr"> 9 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L9'>test_jump_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L10" class="LineNr"> 10 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L12" class="LineNr"> 12 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" e9 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L15" class="LineNr"> 15 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" e9 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">);</span> <span id="L17" class="LineNr"> 17 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: 0x00000001 opcode: e9\n"</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: 0x0000000b opcode: 05\n"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: 0x00000001 opcode: e9</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: 0x0000000b opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">);</span> <span id="L22" class="LineNr"> 22 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000006 opcode: 05"</span><span class="Delimiter">);</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> @@ -84,30 +83,30 @@ if ('onhashchange' in window) { <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L26" class="LineNr"> 26 </span><span class="Normal">case</span> <span class="Constant">0xe9</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32</span> <span id="L27" class="LineNr"> 27 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L29" class="LineNr"> 29 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> <span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="SalientComment">//:: jump if equal/zero</span> +<span id="L33" class="LineNr"> 33 </span><span class="Comment">//:: jump if equal/zero</span> <span id="L34" class="LineNr"> 34 </span> <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> +<span id="L36" class="LineNr"> 36 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set (jcc/jz/je)"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> <span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L39'>test_je_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L40" class="LineNr"> 40 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L41" class="LineNr"> 41 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L43" class="LineNr"> 43 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Constant">" 0f 84 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Constant">" 0f 84 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">);</span> <span id="L48" class="LineNr"> 48 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L49" class="LineNr"> 49 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">);</span> <span id="L53" class="LineNr"> 53 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000007 opcode: 05"</span><span class="Delimiter">);</span> <span id="L54" class="LineNr"> 54 </span><span class="Delimiter">}</span> @@ -116,7 +115,7 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span><span class="Normal">case</span> <span class="Constant">0x84</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if ZF</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L61" class="LineNr"> 61 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -126,39 +125,39 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L67'>test_je_disp32_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L69" class="LineNr"> 69 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L71" class="LineNr"> 71 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" 0f 84 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">" 0f 84 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">);</span> <span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"run: 0x00000007 opcode: 05\n"</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"run: 0x00000007 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">);</span> <span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> <span id="L83" class="LineNr"> 83 </span> -<span id="L84" class="LineNr"> 84 </span><span class="SalientComment">//:: jump if not equal/not zero</span> +<span id="L84" class="LineNr"> 84 </span><span class="Comment">//:: jump if not equal/not zero</span> <span id="L85" class="LineNr"> 85 </span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set (jcc/jnz/jne)"</span><span class="Delimiter">);</span> <span id="L88" class="LineNr"> 88 </span> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">:(code)</span> <span id="L90" class="LineNr"> 90 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L90'>test_jne_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L91" class="LineNr"> 91 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L92" class="LineNr"> 92 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L94" class="LineNr"> 94 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">" 0f 85 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">" 0f 85 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">);</span> <span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L100" class="LineNr">100 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L101" class="LineNr">101 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L102" class="LineNr">102 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L100" class="LineNr">100 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L101" class="LineNr">101 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L102" class="LineNr">102 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L103" class="LineNr">103 </span> <span class="Delimiter">);</span> <span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000007 opcode: 05"</span><span class="Delimiter">);</span> <span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> @@ -167,7 +166,7 @@ if ('onhashchange' in window) { <span id="L108" class="LineNr">108 </span><span class="Normal">case</span> <span class="Constant">0x85</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if !ZF</span> <span id="L109" class="LineNr">109 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L110" class="LineNr">110 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L111" class="LineNr">111 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L112" class="LineNr">112 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> <span id="L114" class="LineNr">114 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -177,25 +176,25 @@ if ('onhashchange' in window) { <span id="L118" class="LineNr">118 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L118'>test_jne_disp32_fail</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L120" class="LineNr">120 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L121" class="LineNr">121 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L121" class="LineNr">121 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L122" class="LineNr">122 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L123" class="LineNr">123 </span> <span class="Constant">" 0f 85 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L124" class="LineNr">124 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L125" class="LineNr">125 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L123" class="LineNr">123 </span> <span class="Constant">" 0f 85 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L124" class="LineNr">124 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L125" class="LineNr">125 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L126" class="LineNr">126 </span> <span class="Delimiter">);</span> <span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L128" class="LineNr">128 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L129" class="LineNr">129 </span> <span class="Constant">"run: 0x00000007 opcode: 05\n"</span> -<span id="L130" class="LineNr">130 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L128" class="LineNr">128 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L129" class="LineNr">129 </span> <span class="Constant">"run: 0x00000007 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L130" class="LineNr">130 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L131" class="LineNr">131 </span> <span class="Delimiter">);</span> <span id="L132" class="LineNr">132 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L133" class="LineNr">133 </span><span class="Delimiter">}</span> <span id="L134" class="LineNr">134 </span> -<span id="L135" class="LineNr">135 </span><span class="SalientComment">//:: jump if greater</span> +<span id="L135" class="LineNr">135 </span><span class="Comment">//:: jump if greater</span> <span id="L136" class="LineNr">136 </span> <span id="L137" class="LineNr">137 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater, if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater, if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jg/jnle)"</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/ja/jnbe)"</span><span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(code)</span> <span id="L142" class="LineNr">142 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L142'>test_jg_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -203,16 +202,16 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr">144 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L145" class="LineNr">145 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L146" class="LineNr">146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L148" class="LineNr">148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L149" class="LineNr">149 </span> <span class="Constant">" 0f 8f 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L150" class="LineNr">150 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L151" class="LineNr">151 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L149" class="LineNr">149 </span> <span class="Constant">" 0f 8f 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L150" class="LineNr">150 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L151" class="LineNr">151 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L152" class="LineNr">152 </span> <span class="Delimiter">);</span> <span id="L153" class="LineNr">153 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L156" class="LineNr">156 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L156" class="LineNr">156 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L157" class="LineNr">157 </span> <span class="Delimiter">);</span> <span id="L158" class="LineNr">158 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000007 opcode: 05"</span><span class="Delimiter">);</span> <span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> @@ -221,7 +220,7 @@ if ('onhashchange' in window) { <span id="L162" class="LineNr">162 </span><span class="Normal">case</span> <span class="Constant">0x8f</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if !SF and !ZF</span> <span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!ZF && SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L166" class="LineNr">166 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L167" class="LineNr">167 </span> <span class="Delimiter">}</span> <span id="L168" class="LineNr">168 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -229,7 +228,7 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr">170 </span><span class="Normal">case</span> <span class="Constant">0x87</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if !CF and !ZF</span> <span id="L171" class="LineNr">171 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L172" class="LineNr">172 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!CF && !ZF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L173" class="LineNr">173 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L174" class="LineNr">174 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L175" class="LineNr">175 </span> <span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -241,41 +240,41 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr">182 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L183" class="LineNr">183 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L184" class="LineNr">184 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L185" class="LineNr">185 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L185" class="LineNr">185 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L186" class="LineNr">186 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L187" class="LineNr">187 </span> <span class="Constant">" 0f 8f 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L188" class="LineNr">188 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L189" class="LineNr">189 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L187" class="LineNr">187 </span> <span class="Constant">" 0f 8f 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L188" class="LineNr">188 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L189" class="LineNr">189 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L190" class="LineNr">190 </span> <span class="Delimiter">);</span> <span id="L191" class="LineNr">191 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L192" class="LineNr">192 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L193" class="LineNr">193 </span> <span class="Constant">"run: 0x00000007 opcode: 05\n"</span> -<span id="L194" class="LineNr">194 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L192" class="LineNr">192 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L193" class="LineNr">193 </span> <span class="Constant">"run: 0x00000007 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L194" class="LineNr">194 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L195" class="LineNr">195 </span> <span class="Delimiter">);</span> <span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> <span id="L198" class="LineNr">198 </span> -<span id="L199" class="LineNr">199 </span><span class="SalientComment">//:: jump if greater or equal</span> +<span id="L199" class="LineNr">199 </span><span class="Comment">//:: jump if greater or equal</span> <span id="L200" class="LineNr">200 </span> <span id="L201" class="LineNr">201 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal, if SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> -<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> +<span id="L202" class="LineNr">202 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal, if SF == <a href='010vm.cc.html#L91'>OF</a> (jcc/jge/jnl)"</span><span class="Delimiter">);</span> +<span id="L203" class="LineNr">203 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if greater or equal (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is unset (jcc/jae/jnb)"</span><span class="Delimiter">);</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Delimiter">:(code)</span> <span id="L206" class="LineNr">206 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L206'>test_jge_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L208" class="LineNr">208 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L209" class="LineNr">209 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L210" class="LineNr">210 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L210" class="LineNr">210 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L211" class="LineNr">211 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L212" class="LineNr">212 </span> <span class="Constant">" 0f 8d 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L213" class="LineNr">213 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L214" class="LineNr">214 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L212" class="LineNr">212 </span> <span class="Constant">" 0f 8d 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L213" class="LineNr">213 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L214" class="LineNr">214 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L215" class="LineNr">215 </span> <span class="Delimiter">);</span> <span id="L216" class="LineNr">216 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L217" class="LineNr">217 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L218" class="LineNr">218 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L219" class="LineNr">219 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L217" class="LineNr">217 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L218" class="LineNr">218 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L219" class="LineNr">219 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L220" class="LineNr">220 </span> <span class="Delimiter">);</span> <span id="L221" class="LineNr">221 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000007 opcode: 05"</span><span class="Delimiter">);</span> <span id="L222" class="LineNr">222 </span><span class="Delimiter">}</span> @@ -284,7 +283,7 @@ if ('onhashchange' in window) { <span id="L225" class="LineNr">225 </span><span class="Normal">case</span> <span class="Constant">0x8d</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if !SF</span> <span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L228" class="LineNr">228 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L228" class="LineNr">228 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L229" class="LineNr">229 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L230" class="LineNr">230 </span> <span class="Delimiter">}</span> <span id="L231" class="LineNr">231 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -292,7 +291,7 @@ if ('onhashchange' in window) { <span id="L233" class="LineNr">233 </span><span class="Normal">case</span> <span class="Constant">0x83</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if !CF</span> <span id="L234" class="LineNr">234 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L235" class="LineNr">235 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!CF<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L236" class="LineNr">236 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L237" class="LineNr">237 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> <span id="L239" class="LineNr">239 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -303,25 +302,25 @@ if ('onhashchange' in window) { <span id="L244" class="LineNr">244 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L245" class="LineNr">245 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L246" class="LineNr">246 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L247" class="LineNr">247 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L247" class="LineNr">247 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L248" class="LineNr">248 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L249" class="LineNr">249 </span> <span class="Constant">" 0f 8d 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L250" class="LineNr">250 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L251" class="LineNr">251 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L249" class="LineNr">249 </span> <span class="Constant">" 0f 8d 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L250" class="LineNr">250 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L251" class="LineNr">251 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">);</span> <span id="L253" class="LineNr">253 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L254" class="LineNr">254 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L255" class="LineNr">255 </span> <span class="Constant">"run: 0x00000007 opcode: 05\n"</span> -<span id="L256" class="LineNr">256 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L254" class="LineNr">254 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L255" class="LineNr">255 </span> <span class="Constant">"run: 0x00000007 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L256" class="LineNr">256 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L257" class="LineNr">257 </span> <span class="Delimiter">);</span> <span id="L258" class="LineNr">258 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L259" class="LineNr">259 </span><span class="Delimiter">}</span> <span id="L260" class="LineNr">260 </span> -<span id="L261" class="LineNr">261 </span><span class="SalientComment">//:: jump if lesser</span> +<span id="L261" class="LineNr">261 </span><span class="Comment">//:: jump if lesser</span> <span id="L262" class="LineNr">262 </span> <span id="L263" class="LineNr">263 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser, if SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> -<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> +<span id="L264" class="LineNr">264 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser, if SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jl/jnge)"</span><span class="Delimiter">);</span> +<span id="L265" class="LineNr">265 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jb/jnae)"</span><span class="Delimiter">);</span> <span id="L266" class="LineNr">266 </span> <span id="L267" class="LineNr">267 </span><span class="Delimiter">:(code)</span> <span id="L268" class="LineNr">268 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L268'>test_jl_disp32_success</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -329,16 +328,16 @@ if ('onhashchange' in window) { <span id="L270" class="LineNr">270 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L271" class="LineNr">271 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L272" class="LineNr">272 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L273" class="LineNr">273 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L273" class="LineNr">273 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L274" class="LineNr">274 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L275" class="LineNr">275 </span> <span class="Constant">" 0f 8c 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L276" class="LineNr">276 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L277" class="LineNr">277 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L275" class="LineNr">275 </span> <span class="Constant">" 0f 8c 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L276" class="LineNr">276 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L277" class="LineNr">277 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L278" class="LineNr">278 </span> <span class="Delimiter">);</span> <span id="L279" class="LineNr">279 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L280" class="LineNr">280 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L281" class="LineNr">281 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L282" class="LineNr">282 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L280" class="LineNr">280 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L281" class="LineNr">281 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L282" class="LineNr">282 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L283" class="LineNr">283 </span> <span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000007 opcode: 05"</span><span class="Delimiter">);</span> <span id="L285" class="LineNr">285 </span><span class="Delimiter">}</span> @@ -347,7 +346,7 @@ if ('onhashchange' in window) { <span id="L288" class="LineNr">288 </span><span class="Normal">case</span> <span class="Constant">0x8c</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if SF and !ZF</span> <span id="L289" class="LineNr">289 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L290" class="LineNr">290 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L291" class="LineNr">291 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L291" class="LineNr">291 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L292" class="LineNr">292 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L293" class="LineNr">293 </span> <span class="Delimiter">}</span> <span id="L294" class="LineNr">294 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -355,7 +354,7 @@ if ('onhashchange' in window) { <span id="L296" class="LineNr">296 </span><span class="Normal">case</span> <span class="Constant">0x82</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if CF</span> <span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L298" class="LineNr">298 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L299" class="LineNr">299 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L299" class="LineNr">299 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L300" class="LineNr">300 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> <span id="L302" class="LineNr">302 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -367,25 +366,25 @@ if ('onhashchange' in window) { <span id="L308" class="LineNr">308 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L309" class="LineNr">309 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L310" class="LineNr">310 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L311" class="LineNr">311 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L311" class="LineNr">311 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L312" class="LineNr">312 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L313" class="LineNr">313 </span> <span class="Constant">" 0f 8c 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L314" class="LineNr">314 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L315" class="LineNr">315 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L313" class="LineNr">313 </span> <span class="Constant">" 0f 8c 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L314" class="LineNr">314 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L315" class="LineNr">315 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L316" class="LineNr">316 </span> <span class="Delimiter">);</span> <span id="L317" class="LineNr">317 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L318" class="LineNr">318 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L319" class="LineNr">319 </span> <span class="Constant">"run: 0x00000007 opcode: 05\n"</span> -<span id="L320" class="LineNr">320 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L318" class="LineNr">318 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L319" class="LineNr">319 </span> <span class="Constant">"run: 0x00000007 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L320" class="LineNr">320 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L321" class="LineNr">321 </span> <span class="Delimiter">);</span> <span id="L322" class="LineNr">322 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L323" class="LineNr">323 </span><span class="Delimiter">}</span> <span id="L324" class="LineNr">324 </span> -<span id="L325" class="LineNr">325 </span><span class="SalientComment">//:: jump if lesser or equal</span> +<span id="L325" class="LineNr">325 </span><span class="Comment">//:: jump if lesser or equal</span> <span id="L326" class="LineNr">326 </span> <span id="L327" class="LineNr">327 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal, if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> -<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> +<span id="L328" class="LineNr">328 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal, if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a> (jcc/jle/jng)"</span><span class="Delimiter">);</span> +<span id="L329" class="LineNr">329 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">"jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if lesser or equal (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set (jcc/jbe/jna)"</span><span class="Delimiter">);</span> <span id="L330" class="LineNr">330 </span> <span id="L331" class="LineNr">331 </span><span class="Delimiter">:(code)</span> <span id="L332" class="LineNr">332 </span><span class="Normal">void</span> <a href='018jump_disp32.cc.html#L332'>test_jle_disp32_equal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> @@ -393,16 +392,16 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr">334 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L335" class="LineNr">335 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L336" class="LineNr">336 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L337" class="LineNr">337 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L337" class="LineNr">337 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L338" class="LineNr">338 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L339" class="LineNr">339 </span> <span class="Constant">" 0f 8e 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L340" class="LineNr">340 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L341" class="LineNr">341 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L339" class="LineNr">339 </span> <span class="Constant">" 0f 8e 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L340" class="LineNr">340 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L341" class="LineNr">341 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L342" class="LineNr">342 </span> <span class="Delimiter">);</span> <span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L344" class="LineNr">344 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L345" class="LineNr">345 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L346" class="LineNr">346 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L344" class="LineNr">344 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L345" class="LineNr">345 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L346" class="LineNr">346 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L347" class="LineNr">347 </span> <span class="Delimiter">);</span> <span id="L348" class="LineNr">348 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000007 opcode: 05"</span><span class="Delimiter">);</span> <span id="L349" class="LineNr">349 </span><span class="Delimiter">}</span> @@ -413,16 +412,16 @@ if ('onhashchange' in window) { <span id="L354" class="LineNr">354 </span> SF = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L355" class="LineNr">355 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L356" class="LineNr">356 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L358" class="LineNr">358 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L359" class="LineNr">359 </span> <span class="Constant">" 0f 8e 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L360" class="LineNr">360 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L361" class="LineNr">361 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L359" class="LineNr">359 </span> <span class="Constant">" 0f 8e 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L360" class="LineNr">360 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L361" class="LineNr">361 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L362" class="LineNr">362 </span> <span class="Delimiter">);</span> <span id="L363" class="LineNr">363 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L364" class="LineNr">364 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L365" class="LineNr">365 </span> <span class="Constant">"run: jump 5\n"</span> -<span id="L366" class="LineNr">366 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L364" class="LineNr">364 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L365" class="LineNr">365 </span> <span class="Constant">"run: jump 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L366" class="LineNr">366 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L367" class="LineNr">367 </span> <span class="Delimiter">);</span> <span id="L368" class="LineNr">368 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000007 opcode: 05"</span><span class="Delimiter">);</span> <span id="L369" class="LineNr">369 </span><span class="Delimiter">}</span> @@ -431,7 +430,7 @@ if ('onhashchange' in window) { <span id="L372" class="LineNr">372 </span><span class="Normal">case</span> <span class="Constant">0x8e</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if SF or ZF</span> <span id="L373" class="LineNr">373 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L374" class="LineNr">374 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L375" class="LineNr">375 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L376" class="LineNr">376 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L377" class="LineNr">377 </span> <span class="Delimiter">}</span> <span id="L378" class="LineNr">378 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -439,7 +438,7 @@ if ('onhashchange' in window) { <span id="L380" class="LineNr">380 </span><span class="Normal">case</span> <span class="Constant">0x86</span>: <span class="Delimiter">{</span> <span class="Comment">// jump disp32 if ZF or CF</span> <span id="L381" class="LineNr">381 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> <span id="L382" class="LineNr">382 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L383" class="LineNr">383 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> +<span id="L383" class="LineNr">383 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jump "</span> << offset << end<span class="Delimiter">();</span> <span id="L384" class="LineNr">384 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> <span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> <span id="L386" class="LineNr">386 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> @@ -451,16 +450,16 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr">392 </span> SF = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L393" class="LineNr">393 </span> <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L394" class="LineNr">394 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L395" class="LineNr">395 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L395" class="LineNr">395 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L396" class="LineNr">396 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L397" class="LineNr">397 </span> <span class="Constant">" 0f 8e 05 00 00 00 \n"</span> <span class="Comment">// skip 1 instruction</span> -<span id="L398" class="LineNr">398 </span> <span class="Constant">" 05 00 00 00 01 \n"</span> -<span id="L399" class="LineNr">399 </span> <span class="Constant">" 05 00 00 00 02 \n"</span> +<span id="L397" class="LineNr">397 </span> <span class="Constant">" 0f 8e 05 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// skip 1 instruction</span> +<span id="L398" class="LineNr">398 </span> <span class="Constant">" 05 00 00 00 01 </span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L399" class="LineNr">399 </span> <span class="Constant">" 05 00 00 00 02 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L400" class="LineNr">400 </span> <span class="Delimiter">);</span> <span id="L401" class="LineNr">401 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L402" class="LineNr">402 </span> <span class="Constant">"run: 0x00000001 opcode: 0f\n"</span> -<span id="L403" class="LineNr">403 </span> <span class="Constant">"run: 0x00000007 opcode: 05\n"</span> -<span id="L404" class="LineNr">404 </span> <span class="Constant">"run: 0x0000000c opcode: 05\n"</span> +<span id="L402" class="LineNr">402 </span> <span class="Constant">"run: 0x00000001 opcode: 0f</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L403" class="LineNr">403 </span> <span class="Constant">"run: 0x00000007 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L404" class="LineNr">404 </span> <span class="Constant">"run: 0x0000000c opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L405" class="LineNr">405 </span> <span class="Delimiter">);</span> <span id="L406" class="LineNr">406 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: jump 5"</span><span class="Delimiter">);</span> <span id="L407" class="LineNr">407 </span><span class="Delimiter">}</span> diff --git a/html/019functions.cc.html b/html/linux/bootstrap/019functions.cc.html index 51fb2920..4ae8357c 100644 --- a/html/019functions.cc.html +++ b/html/linux/bootstrap/019functions.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 019functions.cc</title> +<title>Mu - linux/bootstrap/019functions.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,15 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.LineNr { } -.Identifier { color: #af5f00; } +.cSpecial { color: #008000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } -.Comment { color: #005faf; } +.LineNr { } .Constant { color: #008787; } -.SalientComment { color: #0000af; } +.Comment { color: #005faf; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } +.Identifier { color: #af5f00; } --> </style> @@ -56,40 +55,40 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/019functions.cc'>https://github.com/akkartik/mu/blob/main/019functions.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/019functions.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/019functions.cc</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="SalientComment">//:: call</span> +<span id="L1" class="LineNr"> 1 </span><span class="Comment">//:: call</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">"call <a href='040tests.cc.html#L82'>disp32</a> (call)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">"call <a href='040tests.cc.html#L82'>disp32</a> (call)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(code)</span> <span id="L7" class="LineNr"> 7 </span><span class="Normal">void</span> <a href='019functions.cc.html#L7'>test_call_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L9" class="LineNr"> 9 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L8" class="LineNr"> 8 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L9" class="LineNr"> 9 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> <span id="L10" class="LineNr"> 10 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L12" class="LineNr"> 12 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" e8 a0 00 00 00 \n"</span> <span class="Comment">// call function offset at 0x000000a0</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">" e8 a0 00 00 00 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// call function offset at 0xa0</span> <span id="L14" class="LineNr"> 14 </span> <span class="Comment">// next EIP is 6</span> <span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">);</span> <span id="L16" class="LineNr"> 16 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: call imm32 0x000000a0\n"</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060\n"</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: pushing value 0x00000006\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: jumping to 0x000000a6\n"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"run: call imm32 0x000000a0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: pushing value 0x00000006</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: jumping to 0x000000a6</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">);</span> <span id="L22" class="LineNr"> 22 </span><span class="Delimiter">}</span> <span id="L23" class="LineNr"> 23 </span> <span id="L24" class="LineNr"> 24 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L25" class="LineNr"> 25 </span><span class="Normal">case</span> <span class="Constant">0xe8</span>: <span class="Delimiter">{</span> <span class="Comment">// call disp32 relative to next EIP</span> <span id="L26" class="LineNr"> 26 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span> offset = <a href='011run.cc.html#L433'>next32</a><span class="Delimiter">();</span> -<span id="L27" class="LineNr"> 27 </span> ++<span class="SpecialChar">Callstack_depth</span><span class="Delimiter">;</span> -<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << offset << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> ++Callstack_depth<span class="Delimiter">;</span> +<span id="L28" class="LineNr"> 28 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call imm32 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << offset << end<span class="Delimiter">();</span> <span id="L29" class="LineNr"> 29 </span><span class="CommentedCode">//? cerr << "push: EIP: " << EIP << " => " << Reg[ESP].u << '\n';</span> <span id="L30" class="LineNr"> 30 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> <span id="L31" class="LineNr"> 31 </span> <a href='010vm.cc.html#L26'>EIP</a> += offset<span class="Delimiter">;</span> -<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> <span id="L33" class="LineNr"> 33 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span> @@ -97,87 +96,87 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(code)</span> <span id="L39" class="LineNr"> 39 </span><span class="Normal">void</span> <a href='019functions.cc.html#L39'>test_call_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L41" class="LineNr"> 41 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> -<span id="L42" class="LineNr"> 42 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x000000a0</span><span class="Delimiter">;</span> +<span id="L40" class="LineNr"> 40 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L41" class="LineNr"> 41 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L42" class="LineNr"> 42 </span> Reg[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x000000a0</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L45" class="LineNr"> 45 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Constant">" ff d3 \n"</span> <span class="Comment">// call function offset at EBX</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Constant">" ff d3 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// call function offset at EBX</span> <span id="L47" class="LineNr"> 47 </span> <span class="Comment">// next EIP is 3</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">);</span> <span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: call to r/m32\n"</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: r/m32 is EBX\n"</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060\n"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"run: pushing value 0x00000003\n"</span> -<span id="L54" class="LineNr"> 54 </span> <span class="Constant">"run: jumping to 0x000000a3\n"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"run: call to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"run: pushing value 0x00000003</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L54" class="LineNr"> 54 </span> <span class="Constant">"run: jumping to 0x000000a0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">);</span> <span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> <span id="L57" class="LineNr"> 57 </span> <span id="L58" class="LineNr"> 58 </span><span class="Delimiter">:(before "End Op ff Subops")</span> <span id="L59" class="LineNr"> 59 </span><span class="Normal">case</span> <span class="Constant">2</span>: <span class="Delimiter">{</span> <span class="Comment">// call function pointer at r/m32</span> -<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call to r/m32"</span> << end<span class="Delimiter">();</span> +<span id="L60" class="LineNr"> 60 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"call to r/m32"</span> << end<span class="Delimiter">();</span> <span id="L61" class="LineNr"> 61 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* offset = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L62" class="LineNr"> 62 </span> <a href='012elf.cc.html#L94'>push</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> -<span id="L63" class="LineNr"> 63 </span> <a href='010vm.cc.html#L26'>EIP</a> += *offset<span class="Delimiter">;</span> -<span id="L64" class="LineNr"> 64 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> -<span id="L65" class="LineNr"> 65 </span> ++<span class="SpecialChar">Callstack_depth</span><span class="Delimiter">;</span> +<span id="L63" class="LineNr"> 63 </span> <a href='010vm.cc.html#L26'>EIP</a> = *offset<span class="Delimiter">;</span> +<span id="L64" class="LineNr"> 64 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L65" class="LineNr"> 65 </span> ++Callstack_depth<span class="Delimiter">;</span> <span id="L66" class="LineNr"> 66 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> <span id="L68" class="LineNr"> 68 </span> <span id="L69" class="LineNr"> 69 </span><span class="Delimiter">:(code)</span> -<span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='019functions.cc.html#L70'>test_call_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L72" class="LineNr"> 72 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> -<span id="L73" class="LineNr"> 73 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='019functions.cc.html#L70'>test_call_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L71" class="LineNr"> 71 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L72" class="LineNr"> 72 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L73" class="LineNr"> 73 </span> Reg[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L74" class="LineNr"> 74 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L76" class="LineNr"> 76 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">" ff 13 \n"</span> <span class="Comment">// call function offset at *EBX</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">" ff 13 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// call function offset at *EBX</span> <span id="L78" class="LineNr"> 78 </span> <span class="Comment">// next EIP is 3</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"a0 00 00 00\n"</span> <span class="Comment">// 0x000000a0</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"a0 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xa0</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">);</span> <span id="L82" class="LineNr"> 82 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"run: call to r/m32\n"</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)\n"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060\n"</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"run: pushing value 0x00000003\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"run: jumping to 0x000000a3\n"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"run: call to r/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L13'>EBX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">"run: decrementing <a href='010vm.cc.html#L14'>ESP</a> to 0xbd000060</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"run: pushing value 0x00000003</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"run: jumping to 0x000000a0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">);</span> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> <span id="L90" class="LineNr"> 90 </span> -<span id="L91" class="LineNr"> 91 </span><span class="SalientComment">//:: ret</span> +<span id="L91" class="LineNr"> 91 </span><span class="Comment">//:: ret</span> <span id="L92" class="LineNr"> 92 </span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L94" class="LineNr"> 94 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">"return from most recent unfinished call (<a href='040tests.cc.html#L89'>ret</a>)"</span><span class="Delimiter">);</span> +<span id="L94" class="LineNr"> 94 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">"return from most recent unfinished call (<a href='040tests.cc.html#L89'>ret</a>)"</span><span class="Delimiter">);</span> <span id="L95" class="LineNr"> 95 </span> <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">:(code)</span> <span id="L97" class="LineNr"> 97 </span><span class="Normal">void</span> <a href='019functions.cc.html#L97'>test_ret</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L98" class="LineNr"> 98 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L99" class="LineNr"> 99 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> -<span id="L100" class="LineNr">100 </span> <a href='010vm.cc.html#L252'>write_mem_u32</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L98" class="LineNr"> 98 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L99" class="LineNr"> 99 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000064</span><span class="Delimiter">;</span> +<span id="L100" class="LineNr">100 </span> <a href='010vm.cc.html#L252'>write_mem_u32</a><span class="Delimiter">(</span>Reg[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span id="L101" class="LineNr">101 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L102" class="LineNr">102 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L102" class="LineNr">102 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L103" class="LineNr">103 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L104" class="LineNr">104 </span> <span class="Constant">" c3 \n"</span> <span class="Comment">// return</span> -<span id="L105" class="LineNr">105 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L106" class="LineNr">106 </span> <span class="Constant">"10 00 00 00\n"</span> <span class="Comment">// 0x00000010</span> +<span id="L104" class="LineNr">104 </span> <span class="Constant">" c3 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// return</span> +<span id="L105" class="LineNr">105 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L106" class="LineNr">106 </span> <span class="Constant">"10 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x10</span> <span id="L107" class="LineNr">107 </span> <span class="Delimiter">);</span> <span id="L108" class="LineNr">108 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L109" class="LineNr">109 </span> <span class="Constant">"run: return\n"</span> -<span id="L110" class="LineNr">110 </span> <span class="Constant">"run: popping value 0x00000010\n"</span> -<span id="L111" class="LineNr">111 </span> <span class="Constant">"run: jumping to 0x00000010\n"</span> +<span id="L109" class="LineNr">109 </span> <span class="Constant">"run: return</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L110" class="LineNr">110 </span> <span class="Constant">"run: popping value 0x00000010</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L111" class="LineNr">111 </span> <span class="Constant">"run: jumping to 0x00000010</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">);</span> <span id="L113" class="LineNr">113 </span><span class="Delimiter">}</span> <span id="L114" class="LineNr">114 </span> <span id="L115" class="LineNr">115 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L116" class="LineNr">116 </span><span class="Normal">case</span> <span class="Constant">0xc3</span>: <span class="Delimiter">{</span> <span class="Comment">// return from a call</span> -<span id="L117" class="LineNr">117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"return"</span> << end<span class="Delimiter">();</span> -<span id="L118" class="LineNr">118 </span> --<span class="SpecialChar">Callstack_depth</span><span class="Delimiter">;</span> +<span id="L117" class="LineNr">117 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"return"</span> << end<span class="Delimiter">();</span> +<span id="L118" class="LineNr">118 </span> --Callstack_depth<span class="Delimiter">;</span> <span id="L119" class="LineNr">119 </span> <a href='010vm.cc.html#L26'>EIP</a> = <a href='013direct_addressing.cc.html#L1270'>pop</a><span class="Delimiter">();</span> -<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> +<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"jumping to 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << end<span class="Delimiter">();</span> <span id="L121" class="LineNr">121 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L122" class="LineNr">122 </span><span class="Delimiter">}</span> </pre> diff --git a/html/021byte_addressing.cc.html b/html/linux/bootstrap/020byte_addressing.cc.html index eb1f7051..85c86edb 100644 --- a/html/021byte_addressing.cc.html +++ b/html/linux/bootstrap/020byte_addressing.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 021byte_addressing.cc</title> +<title>Mu - linux/bootstrap/020byte_addressing.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,15 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.cSpecial { color: #008000; } -.SalientComment { color: #0000af; } --> </style> @@ -56,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/021byte_addressing.cc'>https://github.com/akkartik/mu/blob/main/021byte_addressing.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/020byte_addressing.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/020byte_addressing.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: SubX mostly deals with instructions operating on 32-bit operands, but we</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: still need to deal with raw bytes for strings and so on.</span> @@ -64,7 +62,7 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="Comment">//: Unfortunately the register encodings when dealing with bytes are a mess.</span> <span id="L5" class="LineNr"> 5 </span><span class="Comment">//: We need a special case for them.</span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(code)</span> -<span id="L7" class="LineNr"> 7 </span>string <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> r<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span>string <a href='020byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> r<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>r<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L9" class="LineNr"> 9 </span> <span class="Normal">case</span> <span class="Constant">0</span>: <span class="Identifier">return</span> <span class="Constant">"AL"</span><span class="Delimiter">;</span> <span class="Comment">// lowest byte of EAX</span> <span id="L10" class="LineNr"> 10 </span> <span class="Normal">case</span> <span class="Constant">1</span>: <span class="Identifier">return</span> <span class="Constant">"CL"</span><span class="Delimiter">;</span> <span class="Comment">// lowest byte of ECX</span> @@ -78,44 +76,44 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr"> 18 </span> <span class="Delimiter">}</span> <span id="L19" class="LineNr"> 19 </span><span class="Delimiter">}</span> <span id="L20" class="LineNr"> 20 </span> -<span id="L21" class="LineNr"> 21 </span><span class="Normal">uint8_t</span>* <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> modrm<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span><span class="Normal">uint8_t</span>* <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> modrm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L22" class="LineNr"> 22 </span> <span class="Normal">uint8_t</span> mod = <span class="Delimiter">(</span>modrm>><span class="Constant">6</span><span class="Delimiter">);</span> <span id="L23" class="LineNr"> 23 </span> <span class="Normal">uint8_t</span> rm = modrm & <span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L24" class="LineNr"> 24 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod == <span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="Comment">// select an 8-bit register</span> -<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m8 is "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L27" class="LineNr"> 27 </span> <span class="Identifier">return</span> <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rm<span class="Delimiter">);</span> +<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"r/m8 is "</span> << <a href='020byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rm<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> <span class="Identifier">return</span> <a href='020byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rm<span class="Delimiter">);</span> <span id="L28" class="LineNr"> 28 </span> <span class="Delimiter">}</span> <span id="L29" class="LineNr"> 29 </span> <span class="Comment">// the rest is as usual</span> <span id="L30" class="LineNr"> 30 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span><a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">));</span> <span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> <span id="L32" class="LineNr"> 32 </span> -<span id="L33" class="LineNr"> 33 </span><span class="Normal">uint8_t</span>* <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L34" class="LineNr"> 34 </span> <span class="Normal">uint8_t</span>* result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint8_t</span>*><span class="Delimiter">(</span>&<span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rm & <span class="Constant">0x3</span>]<span class="Delimiter">.</span>i<span class="Delimiter">);</span> <span class="Comment">// _L register</span> +<span id="L33" class="LineNr"> 33 </span><span class="Normal">uint8_t</span>* <a href='020byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> rm<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Normal">uint8_t</span>* result = <span class="Normal">reinterpret_cast</span><<span class="Normal">uint8_t</span>*><span class="Delimiter">(</span>&Reg[rm & <span class="Constant">0x3</span>]<span class="Delimiter">.</span>i<span class="Delimiter">);</span> <span class="Comment">// _L register</span> <span id="L35" class="LineNr"> 35 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>rm & <span class="Constant">0x4</span><span class="Delimiter">)</span> <span id="L36" class="LineNr"> 36 </span> ++result<span class="Delimiter">;</span> <span class="Comment">// _H register; assumes host is little-endian</span> <span id="L37" class="LineNr"> 37 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L41" class="LineNr"> 41 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8 to r8/m8-at-r32"</span><span class="Delimiter">);</span> +<span id="L41" class="LineNr"> 41 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8 to r8/m8-at-r32"</span><span class="Delimiter">);</span> <span id="L42" class="LineNr"> 42 </span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">:(code)</span> -<span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L44'>test_copy_r8_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x224488ab</span><span class="Delimiter">;</span> -<span id="L46" class="LineNr"> 46 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> <a href='020byte_addressing.cc.html#L44'>test_copy_r8_to_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0x224488ab</span><span class="Delimiter">;</span> +<span id="L46" class="LineNr"> 46 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L47" class="LineNr"> 47 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L49" class="LineNr"> 49 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">" 88 18 \n"</span> <span class="Comment">// copy BL to the byte at *EAX</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">" 88 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy BL to the byte at *EAX</span> <span id="L51" class="LineNr"> 51 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src BL) 000 (dest EAX)</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"f0 cc bb aa\n"</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"f0 cc bb aa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: copy BL to r8/m8-at-r32\n"</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: storing 0xab\n"</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: copy BL to r8/m8-at-r32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: storing 0xab</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">);</span> <span id="L60" class="LineNr"> 60 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0xaabbccab</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="Constant">0x2000</span><span class="Delimiter">));</span> <span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> @@ -124,38 +122,38 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span><span class="Normal">case</span> <span class="Constant">0x88</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r8 to r/m8</span> <span id="L65" class="LineNr"> 65 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L66" class="LineNr"> 66 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rsrc = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L67" class="LineNr"> 67 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> +<span id="L67" class="LineNr"> 67 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <a href='020byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">)</span> << <span class="Constant">" to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> <span id="L68" class="LineNr"> 68 </span> <span class="Comment">// use unsigned to zero-extend 8-bit value to 32 bits</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L70" class="LineNr"> 70 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span>* src = <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">);</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L70" class="LineNr"> 70 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span>* src = <a href='020byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rsrc<span class="Delimiter">);</span> <span id="L71" class="LineNr"> 71 </span> *dest = *src<span class="Delimiter">;</span> <span class="Comment">// Read/write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> -<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L73" class="LineNr"> 73 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">}</span> <span id="L75" class="LineNr"> 75 </span> <span id="L76" class="LineNr"> 76 </span><span class="Comment">//:</span> <span id="L77" class="LineNr"> 77 </span> <span id="L78" class="LineNr"> 78 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L79" class="LineNr"> 79 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8/m8-at-r32 to r8"</span><span class="Delimiter">);</span> +<span id="L79" class="LineNr"> 79 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">"copy r8/m8-at-r32 to r8"</span><span class="Delimiter">);</span> <span id="L80" class="LineNr"> 80 </span> <span id="L81" class="LineNr"> 81 </span><span class="Delimiter">:(code)</span> -<span id="L82" class="LineNr"> 82 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L82'>test_copy_mem_at_r32_to_r8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L83" class="LineNr"> 83 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbcc0f</span><span class="Delimiter">;</span> <span class="Comment">// one nibble each of lowest byte set to all 0s and all 1s, to maximize value of this test</span> -<span id="L84" class="LineNr"> 84 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L82" class="LineNr"> 82 </span><span class="Normal">void</span> <a href='020byte_addressing.cc.html#L82'>test_copy_mem_at_rm32_to_r8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L83" class="LineNr"> 83 </span> Reg[EBX]<span class="Delimiter">.</span>i = <span class="Constant">0xaabbcc0f</span><span class="Delimiter">;</span> <span class="Comment">// one nibble each of lowest byte set to all 0s and all 1s, to maximize value of this test</span> +<span id="L84" class="LineNr"> 84 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L85" class="LineNr"> 85 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L87" class="LineNr"> 87 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Constant">" 8a 18 \n"</span> <span class="Comment">// copy just the byte at *EAX to BL</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">" 8a 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy just the byte at *EAX to BL</span> <span id="L89" class="LineNr"> 89 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (dest EBX) 000 (src EAX)</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"ab ff ff ff\n"</span> <span class="Comment">// 0xab with more data in following bytes</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L91" class="LineNr"> 91 </span> <span class="Constant">"ab ff ff ff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0xab with more data in following bytes</span> <span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">);</span> <span id="L93" class="LineNr"> 93 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: copy r8/m8-at-r32 to BL\n"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"run: storing 0xab\n"</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: copy r8/m8-at-r32 to BL</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"run: storing 0xab</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L97" class="LineNr"> 97 </span> <span class="Comment">// remaining bytes of EBX are *not* cleared</span> -<span id="L98" class="LineNr"> 98 </span> <span class="Constant">"run: <a href='010vm.cc.html#L13'>EBX</a> now contains 0xaabbccab\n"</span> +<span id="L98" class="LineNr"> 98 </span> <span class="Constant">"run: <a href='010vm.cc.html#L13'>EBX</a> now contains 0xaabbccab</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">);</span> <span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> <span id="L101" class="LineNr">101 </span> @@ -163,56 +161,56 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr">103 </span><span class="Normal">case</span> <span class="Constant">0x8a</span>: <span class="Delimiter">{</span> <span class="Comment">// copy r/m8 to r8</span> <span id="L104" class="LineNr">104 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L105" class="LineNr">105 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L106" class="LineNr">106 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r8/m8-at-r32 to "</span> << <a href='021byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L106" class="LineNr">106 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy r8/m8-at-r32 to "</span> << <a href='020byte_addressing.cc.html#L7'>rname_8bit</a><span class="Delimiter">(</span>rdest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L107" class="LineNr">107 </span> <span class="Comment">// use unsigned to zero-extend 8-bit value to 32 bits</span> -<span id="L108" class="LineNr">108 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span>* src = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L109" class="LineNr">109 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rdest<span class="Delimiter">);</span> -<span id="L110" class="LineNr">110 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L108" class="LineNr">108 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span>* src = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L109" class="LineNr">109 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L33'>reg_8bit</a><span class="Delimiter">(</span>rdest<span class="Delimiter">);</span> +<span id="L110" class="LineNr">110 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L111" class="LineNr">111 </span> *dest = *src<span class="Delimiter">;</span> <span class="Comment">// Read/write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> <span id="L112" class="LineNr">112 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest_32bit = rdest & <span class="Constant">0x3</span><span class="Delimiter">;</span> -<span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest_32bit<span class="Delimiter">)</span> << <span class="Constant">" now contains 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[rdest_32bit]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>rdest_32bit<span class="Delimiter">)</span> << <span class="Constant">" now contains 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[rdest_32bit]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L114" class="LineNr">114 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="Delimiter">:(code)</span> -<span id="L118" class="LineNr">118 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L118'>test_cannot_copy_byte_to_ESP_EBP_ESI_EDI</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESI]<span class="Delimiter">.</span>u = <span class="Constant">0xaabbccdd</span><span class="Delimiter">;</span> -<span id="L120" class="LineNr">120 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x11223344</span><span class="Delimiter">;</span> +<span id="L118" class="LineNr">118 </span><span class="Normal">void</span> <a href='020byte_addressing.cc.html#L118'>test_cannot_copy_byte_to_ESP_EBP_ESI_EDI</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L119" class="LineNr">119 </span> Reg[ESI]<span class="Delimiter">.</span>u = <span class="Constant">0xaabbccdd</span><span class="Delimiter">;</span> +<span id="L120" class="LineNr">120 </span> Reg[EBX]<span class="Delimiter">.</span>u = <span class="Constant">0x11223344</span><span class="Delimiter">;</span> <span id="L121" class="LineNr">121 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L122" class="LineNr">122 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L122" class="LineNr">122 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L123" class="LineNr">123 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L124" class="LineNr">124 </span> <span class="Constant">" 8a f3 \n"</span> <span class="Comment">// copy just the byte at *EBX to 8-bit register '6'</span> +<span id="L124" class="LineNr">124 </span> <span class="Constant">" 8a f3 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy just the byte at *EBX to 8-bit register '6'</span> <span id="L125" class="LineNr">125 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 110 (dest 8-bit 'register 6') 011 (src EBX)</span> <span id="L126" class="LineNr">126 </span> <span class="Delimiter">);</span> <span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> <span id="L128" class="LineNr">128 </span> <span class="Comment">// ensure 8-bit register '6' is DH, not ESI</span> -<span id="L129" class="LineNr">129 </span> <span class="Constant">"run: copy r8/m8-at-r32 to DH\n"</span> -<span id="L130" class="LineNr">130 </span> <span class="Constant">"run: storing 0x44\n"</span> +<span id="L129" class="LineNr">129 </span> <span class="Constant">"run: copy r8/m8-at-r32 to DH</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L130" class="LineNr">130 </span> <span class="Constant">"run: storing 0x44</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L131" class="LineNr">131 </span> <span class="Delimiter">);</span> <span id="L132" class="LineNr">132 </span> <span class="Comment">// ensure ESI is unchanged</span> -<span id="L133" class="LineNr">133 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESI]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0xaabbccdd</span><span class="Delimiter">);</span> +<span id="L133" class="LineNr">133 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span>Reg[ESI]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Constant">0xaabbccdd</span><span class="Delimiter">);</span> <span id="L134" class="LineNr">134 </span><span class="Delimiter">}</span> <span id="L135" class="LineNr">135 </span> <span id="L136" class="LineNr">136 </span><span class="Comment">//:</span> <span id="L137" class="LineNr">137 </span> <span id="L138" class="LineNr">138 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm8 to r8/m8-at-r32 (mov)"</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">"copy imm8 to r8/m8-at-r32 with subop 0 (mov)"</span><span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">:(code)</span> -<span id="L142" class="LineNr">142 </span><span class="Normal">void</span> <a href='021byte_addressing.cc.html#L142'>test_copy_imm8_to_mem_at_r32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L143" class="LineNr">143 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L142" class="LineNr">142 </span><span class="Normal">void</span> <a href='020byte_addressing.cc.html#L142'>test_copy_imm8_to_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L143" class="LineNr">143 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L144" class="LineNr">144 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L145" class="LineNr">145 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L145" class="LineNr">145 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L146" class="LineNr">146 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L147" class="LineNr">147 </span> <span class="Constant">" c6 00 dd \n"</span> <span class="Comment">// copy to the byte at *EAX</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">" c6 00 dd </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy to the byte at *EAX</span> <span id="L148" class="LineNr">148 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 000 (unused) 000 (dest EAX)</span> -<span id="L149" class="LineNr">149 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L150" class="LineNr">150 </span> <span class="Constant">"f0 cc bb aa\n"</span> +<span id="L149" class="LineNr">149 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L150" class="LineNr">150 </span> <span class="Constant">"f0 cc bb aa</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L151" class="LineNr">151 </span> <span class="Delimiter">);</span> <span id="L152" class="LineNr">152 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L153" class="LineNr">153 </span> <span class="Constant">"run: copy imm8 to r8/m8-at-r32\n"</span> -<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: storing 0xdd\n"</span> +<span id="L153" class="LineNr">153 </span> <span class="Constant">"run: copy imm8 to r8/m8-at-r32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: storing 0xdd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">);</span> <span id="L157" class="LineNr">157 </span> <a href='002test.cc.html#L31'>CHECK_EQ</a><span class="Delimiter">(</span><span class="Constant">0xaabbccdd</span><span class="Delimiter">,</span> <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span><span class="Constant">0x2000</span><span class="Delimiter">));</span> <span id="L158" class="LineNr">158 </span><span class="Delimiter">}</span> @@ -221,113 +219,113 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr">161 </span><span class="Normal">case</span> <span class="Constant">0xc6</span>: <span class="Delimiter">{</span> <span class="Comment">// copy imm8 to r/m8</span> <span id="L162" class="LineNr">162 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L163" class="LineNr">163 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> src = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm8 to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> -<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm8 is 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy imm8 to r8/m8-at-r32"</span> << end<span class="Delimiter">();</span> +<span id="L165" class="LineNr">165 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"imm8 is 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>src<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L166" class="LineNr">166 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> subop = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> <span class="Comment">// middle 3 'reg opcode' bits</span> <span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>subop != <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L168" class="LineNr">168 </span> cerr << <span class="Constant">"unrecognized subop for opcode c6: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)\n"</span><span class="Delimiter">;</span> +<span id="L168" class="LineNr">168 </span> cerr << <span class="Constant">"unrecognized subop for opcode c6: "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>subop<span class="Delimiter">)</span> << <span class="Constant">" (only 0/copy currently implemented)</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L169" class="LineNr">169 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L170" class="LineNr">170 </span> <span class="Delimiter">}</span> <span id="L171" class="LineNr">171 </span> <span class="Comment">// use unsigned to zero-extend 8-bit value to 32 bits</span> -<span id="L172" class="LineNr">172 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L172" class="LineNr">172 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L173" class="LineNr">173 </span> *dest = src<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(int) == 4 on the host as well.</span> -<span id="L174" class="LineNr">174 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L174" class="LineNr">174 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing 0x"</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L175" class="LineNr">175 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L176" class="LineNr">176 </span><span class="Delimiter">}</span> <span id="L177" class="LineNr">177 </span> -<span id="L178" class="LineNr">178 </span><span class="SalientComment">//:: set flags (setcc)</span> +<span id="L178" class="LineNr">178 </span><span class="Comment">//:: set flags (setcc)</span> <span id="L179" class="LineNr">179 </span> <span id="L180" class="LineNr">180 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L181" class="LineNr">181 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set, 0 otherwise (setcc/setz/sete)"</span><span class="Delimiter">);</span> -<span id="L182" class="LineNr">182 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set, 0 otherwise (setcc/setnz/setne)"</span><span class="Delimiter">);</span> -<span id="L183" class="LineNr">183 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater (signed), if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setg/setnle)"</span><span class="Delimiter">);</span> -<span id="L184" class="LineNr">184 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater (unsigned), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset, 0 otherwise (setcc/seta/setnbe)"</span><span class="Delimiter">);</span> -<span id="L185" class="LineNr">185 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal (signed), if SF == <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setge/setnl)"</span><span class="Delimiter">);</span> -<span id="L186" class="LineNr">186 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal (unsigned), if <a href='010vm.cc.html#L90'>CF</a> is unset, 0 otherwise (setcc/setae/setnb)"</span><span class="Delimiter">);</span> -<span id="L187" class="LineNr">187 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser (signed), if SF != <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setl/setnge)"</span><span class="Delimiter">);</span> -<span id="L188" class="LineNr">188 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser (unsigned), if <a href='010vm.cc.html#L90'>CF</a> is set, 0 otherwise (setcc/setb/setnae)"</span><span class="Delimiter">);</span> -<span id="L189" class="LineNr">189 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal (signed), if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setle/setng)"</span><span class="Delimiter">);</span> -<span id="L190" class="LineNr">190 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal (unsigned), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set, 0 otherwise (setcc/setbe/setna)"</span><span class="Delimiter">);</span> +<span id="L181" class="LineNr">181 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set, 0 otherwise (setcc/setz/sete)"</span><span class="Delimiter">);</span> +<span id="L182" class="LineNr">182 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if not equal, if <a href='010vm.cc.html#L89'>ZF</a> is not set, 0 otherwise (setcc/setnz/setne)"</span><span class="Delimiter">);</span> +<span id="L183" class="LineNr">183 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater, if <a href='010vm.cc.html#L89'>ZF</a> is unset and SF == <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setg/setnle)"</span><span class="Delimiter">);</span> +<span id="L184" class="LineNr">184 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is unset and <a href='010vm.cc.html#L90'>CF</a> is unset, 0 otherwise (setcc/seta/setnbe)"</span><span class="Delimiter">);</span> +<span id="L185" class="LineNr">185 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal, if SF == <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setge/setnl)"</span><span class="Delimiter">);</span> +<span id="L186" class="LineNr">186 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if greater or equal (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is unset, 0 otherwise (setcc/setae/setnb)"</span><span class="Delimiter">);</span> +<span id="L187" class="LineNr">187 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser, if SF != <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setl/setnge)"</span><span class="Delimiter">);</span> +<span id="L188" class="LineNr">188 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser (addr, float), if <a href='010vm.cc.html#L90'>CF</a> is set, 0 otherwise (setcc/setb/setnae)"</span><span class="Delimiter">);</span> +<span id="L189" class="LineNr">189 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal, if <a href='010vm.cc.html#L89'>ZF</a> is set or SF != <a href='010vm.cc.html#L91'>OF</a>, 0 otherwise (setcc/setle/setng)"</span><span class="Delimiter">);</span> +<span id="L190" class="LineNr">190 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">"set r8/m8-at-rm32 to 1 if lesser or equal (addr, float), if <a href='010vm.cc.html#L89'>ZF</a> is set or <a href='010vm.cc.html#L90'>CF</a> is set, 0 otherwise (setcc/setbe/setna)"</span><span class="Delimiter">);</span> <span id="L191" class="LineNr">191 </span> <span id="L192" class="LineNr">192 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> <span id="L193" class="LineNr">193 </span><span class="Normal">case</span> <span class="Constant">0x94</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if ZF</span> <span id="L194" class="LineNr">194 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L195" class="LineNr">195 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L196" class="LineNr">196 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L195" class="LineNr">195 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L196" class="LineNr">196 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L197" class="LineNr">197 </span> *dest = <a href='010vm.cc.html#L89'>ZF</a><span class="Delimiter">;</span> -<span id="L198" class="LineNr">198 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L198" class="LineNr">198 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L199" class="LineNr">199 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L200" class="LineNr">200 </span><span class="Delimiter">}</span> <span id="L201" class="LineNr">201 </span><span class="Normal">case</span> <span class="Constant">0x95</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !ZF</span> <span id="L202" class="LineNr">202 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L203" class="LineNr">203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L204" class="LineNr">204 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L203" class="LineNr">203 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L204" class="LineNr">204 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L205" class="LineNr">205 </span> *dest = !ZF<span class="Delimiter">;</span> -<span id="L206" class="LineNr">206 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L206" class="LineNr">206 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L207" class="LineNr">207 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L208" class="LineNr">208 </span><span class="Delimiter">}</span> <span id="L209" class="LineNr">209 </span><span class="Normal">case</span> <span class="Constant">0x9f</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !SF and !ZF</span> <span id="L210" class="LineNr">210 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L211" class="LineNr">211 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L212" class="LineNr">212 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L211" class="LineNr">211 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L212" class="LineNr">212 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L213" class="LineNr">213 </span> *dest = !ZF && SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">;</span> -<span id="L214" class="LineNr">214 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L214" class="LineNr">214 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L215" class="LineNr">215 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> <span id="L217" class="LineNr">217 </span><span class="Normal">case</span> <span class="Constant">0x97</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !CF and !ZF</span> <span id="L218" class="LineNr">218 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L219" class="LineNr">219 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L220" class="LineNr">220 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L219" class="LineNr">219 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L220" class="LineNr">220 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L221" class="LineNr">221 </span> *dest = <span class="Delimiter">(</span>!CF && !ZF<span class="Delimiter">);</span> -<span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L222" class="LineNr">222 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L223" class="LineNr">223 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L224" class="LineNr">224 </span><span class="Delimiter">}</span> <span id="L225" class="LineNr">225 </span><span class="Normal">case</span> <span class="Constant">0x9d</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !SF</span> <span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L227" class="LineNr">227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L228" class="LineNr">228 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L227" class="LineNr">227 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L228" class="LineNr">228 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L229" class="LineNr">229 </span> *dest = <span class="Delimiter">(</span>SF == <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">);</span> -<span id="L230" class="LineNr">230 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L230" class="LineNr">230 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L231" class="LineNr">231 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L232" class="LineNr">232 </span><span class="Delimiter">}</span> <span id="L233" class="LineNr">233 </span><span class="Normal">case</span> <span class="Constant">0x93</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if !CF</span> <span id="L234" class="LineNr">234 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L236" class="LineNr">236 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L236" class="LineNr">236 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L237" class="LineNr">237 </span> *dest = !CF<span class="Delimiter">;</span> -<span id="L238" class="LineNr">238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L238" class="LineNr">238 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L239" class="LineNr">239 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L240" class="LineNr">240 </span><span class="Delimiter">}</span> <span id="L241" class="LineNr">241 </span><span class="Normal">case</span> <span class="Constant">0x9c</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if SF and !ZF</span> <span id="L242" class="LineNr">242 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L243" class="LineNr">243 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L244" class="LineNr">244 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L243" class="LineNr">243 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L244" class="LineNr">244 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L245" class="LineNr">245 </span> *dest = <span class="Delimiter">(</span>SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">);</span> -<span id="L246" class="LineNr">246 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L246" class="LineNr">246 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L247" class="LineNr">247 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L248" class="LineNr">248 </span><span class="Delimiter">}</span> <span id="L249" class="LineNr">249 </span><span class="Normal">case</span> <span class="Constant">0x92</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if CF</span> <span id="L250" class="LineNr">250 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L252" class="LineNr">252 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L252" class="LineNr">252 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L253" class="LineNr">253 </span> *dest = <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">;</span> -<span id="L254" class="LineNr">254 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L254" class="LineNr">254 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L255" class="LineNr">255 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> <span id="L257" class="LineNr">257 </span><span class="Normal">case</span> <span class="Constant">0x9e</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if SF or ZF</span> <span id="L258" class="LineNr">258 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L259" class="LineNr">259 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L260" class="LineNr">260 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L259" class="LineNr">259 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L260" class="LineNr">260 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L261" class="LineNr">261 </span> *dest = <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || SF != <a href='010vm.cc.html#L91'>OF</a><span class="Delimiter">);</span> -<span id="L262" class="LineNr">262 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L262" class="LineNr">262 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L263" class="LineNr">263 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L264" class="LineNr">264 </span><span class="Delimiter">}</span> <span id="L265" class="LineNr">265 </span><span class="Normal">case</span> <span class="Constant">0x96</span>: <span class="Delimiter">{</span> <span class="Comment">// set r8/m8-at-rm32 if ZF or CF</span> <span id="L266" class="LineNr">266 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> -<span id="L267" class="LineNr">267 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> -<span id="L268" class="LineNr">268 </span> <span class="Normal">uint8_t</span>* dest = <a href='021byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L267" class="LineNr">267 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"set r8/m8-at-rm32"</span> << end<span class="Delimiter">();</span> +<span id="L268" class="LineNr">268 </span> <span class="Normal">uint8_t</span>* dest = <a href='020byte_addressing.cc.html#L21'>effective_byte_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L269" class="LineNr">269 </span> *dest = <span class="Delimiter">(</span><a href='010vm.cc.html#L89'>ZF</a> || <a href='010vm.cc.html#L90'>CF</a><span class="Delimiter">);</span> -<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <a href='010vm.cc.html#L410'>NUM</a><span class="Delimiter">(</span>*dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L271" class="LineNr">271 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L272" class="LineNr">272 </span><span class="Delimiter">}</span> </pre> diff --git a/html/022div.cc.html b/html/linux/bootstrap/021div.cc.html index 4b945034..6b735134 100644 --- a/html/022div.cc.html +++ b/html/linux/bootstrap/021div.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 022div.cc</title> +<title>Mu - linux/bootstrap/021div.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -54,44 +54,44 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/022div.cc'>https://github.com/akkartik/mu/blob/main/022div.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/021div.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/021div.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: helper for division operations: sign-extend EAX into EDX</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into <a href='010vm.cc.html#L12'>EDX</a> (cdq)"</span><span class="Delimiter">);</span> +<span id="L4" class="LineNr"> 4 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into <a href='010vm.cc.html#L12'>EDX</a> (cdq)"</span><span class="Delimiter">);</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(code)</span> -<span id="L7" class="LineNr"> 7 </span><span class="Normal">void</span> <a href='022div.cc.html#L7'>test_cdq</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L7" class="LineNr"> 7 </span><span class="Normal">void</span> <a href='021div.cc.html#L7'>test_cdq</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L8" class="LineNr"> 8 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> <span id="L9" class="LineNr"> 9 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L10" class="LineNr">10 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L11" class="LineNr">11 </span> <span class="Constant">"99\n"</span> +<span id="L10" class="LineNr">10 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L11" class="LineNr">11 </span> <span class="Constant">"99</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L12" class="LineNr">12 </span> <span class="Delimiter">);</span> <span id="L13" class="LineNr">13 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L14" class="LineNr">14 </span> <span class="Constant">"run: sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX\n"</span> -<span id="L15" class="LineNr">15 </span> <span class="Constant">"run: <a href='010vm.cc.html#L12'>EDX</a> is now 0x00000000\n"</span> +<span id="L14" class="LineNr">14 </span> <span class="Constant">"run: sign-extend <a href='010vm.cc.html#L10'>EAX</a> into <a href='010vm.cc.html#L12'>EDX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L15" class="LineNr">15 </span> <span class="Constant">"run: <a href='010vm.cc.html#L12'>EDX</a> is now 0x00000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L16" class="LineNr">16 </span> <span class="Delimiter">);</span> <span id="L17" class="LineNr">17 </span><span class="Delimiter">}</span> <span id="L18" class="LineNr">18 </span> <span id="L19" class="LineNr">19 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> <span id="L20" class="LineNr">20 </span><span class="Normal">case</span> <span class="Constant">0x99</span>: <span class="Delimiter">{</span> <span class="Comment">// sign-extend EAX into EDX</span> -<span id="L21" class="LineNr">21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX"</span> << end<span class="Delimiter">();</span> -<span id="L22" class="LineNr">22 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>i = <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i < <span class="Constant">0</span><span class="Delimiter">)</span> ? -<span class="Constant">1</span> : <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L23" class="LineNr">23 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"EDX is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L21" class="LineNr">21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX"</span> << end<span class="Delimiter">();</span> +<span id="L22" class="LineNr">22 </span> Reg[EDX]<span class="Delimiter">.</span>i = <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i < <span class="Constant">0</span><span class="Delimiter">)</span> ? -<span class="Constant">1</span> : <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L23" class="LineNr">23 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"EDX is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> <span id="L24" class="LineNr">24 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L25" class="LineNr">25 </span><span class="Delimiter">}</span> <span id="L26" class="LineNr">26 </span> <span id="L27" class="LineNr">27 </span><span class="Delimiter">:(code)</span> -<span id="L28" class="LineNr">28 </span><span class="Normal">void</span> <a href='022div.cc.html#L28'>test_cdq_negative</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L29" class="LineNr">29 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L28" class="LineNr">28 </span><span class="Normal">void</span> <a href='021div.cc.html#L28'>test_cdq_negative</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L29" class="LineNr">29 </span> Reg[EAX]<span class="Delimiter">.</span>i = -<span class="Constant">10</span><span class="Delimiter">;</span> <span id="L30" class="LineNr">30 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L31" class="LineNr">31 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L32" class="LineNr">32 </span> <span class="Constant">"99\n"</span> +<span id="L31" class="LineNr">31 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L32" class="LineNr">32 </span> <span class="Constant">"99</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L33" class="LineNr">33 </span> <span class="Delimiter">);</span> <span id="L34" class="LineNr">34 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L35" class="LineNr">35 </span> <span class="Constant">"run: sign-extend <a href='010vm.cc.html#L10'>EAX</a> into EDX\n"</span> -<span id="L36" class="LineNr">36 </span> <span class="Constant">"run: <a href='010vm.cc.html#L12'>EDX</a> is now 0xffffffff\n"</span> +<span id="L35" class="LineNr">35 </span> <span class="Constant">"run: sign-extend <a href='010vm.cc.html#L10'>EAX</a> into <a href='010vm.cc.html#L12'>EDX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L36" class="LineNr">36 </span> <span class="Constant">"run: <a href='010vm.cc.html#L12'>EDX</a> is now 0xffffffff</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L37" class="LineNr">37 </span> <span class="Delimiter">);</span> <span id="L38" class="LineNr">38 </span><span class="Delimiter">}</span> </pre> diff --git a/html/023float.cc.html b/html/linux/bootstrap/022float.cc.html index f94c55fe..8365cc91 100644 --- a/html/023float.cc.html +++ b/html/linux/bootstrap/022float.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 023float.cc</title> +<title>Mu - linux/bootstrap/022float.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,15 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } +.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } +.PreProc { color: #c000c0; } --> </style> @@ -56,29 +55,29 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/023float.cc'>https://github.com/akkartik/mu/blob/main/023float.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/022float.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/022float.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: floating-point operations</span> <span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span><span class="SalientComment">//:: copy</span> +<span id="L3" class="LineNr"> 3 </span><span class="Comment">//:: copy</span> <span id="L4" class="LineNr"> 4 </span> <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"10"</span><span class="Delimiter">,</span> <span class="Constant">"copy xm32 to x32 (movss)"</span><span class="Delimiter">);</span> -<span id="L7" class="LineNr"> 7 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"11"</span><span class="Delimiter">,</span> <span class="Constant">"copy x32 to xm32 (movss)"</span><span class="Delimiter">);</span> +<span id="L6" class="LineNr"> 6 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"10"</span><span class="Delimiter">,</span> <span class="Constant">"copy xm32 to x32 (movss)"</span><span class="Delimiter">);</span> +<span id="L7" class="LineNr"> 7 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"11"</span><span class="Delimiter">,</span> <span class="Constant">"copy x32 to xm32 (movss)"</span><span class="Delimiter">);</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="Delimiter">:(code)</span> -<span id="L10" class="LineNr"> 10 </span><span class="Normal">void</span> <a href='023float.cc.html#L10'>test_copy_x32_to_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L11" class="LineNr"> 11 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> +<span id="L10" class="LineNr"> 10 </span><span class="Normal">void</span> <a href='022float.cc.html#L10'>test_copy_x32_to_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L11" class="LineNr"> 11 </span> Xmm[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> <span id="L12" class="LineNr"> 12 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> <span id="L14" class="LineNr"> 14 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"f3 0f 11 d8 \n"</span> <span class="Comment">// copy XMM3 to XMM0</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"f3 0f 11 d8 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy XMM3 to XMM0</span> <span id="L16" class="LineNr"> 16 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 011 (src XMM3) 000 (dest XMM0)</span> <span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">);</span> <span id="L18" class="LineNr"> 18 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: copy XMM3 to x/m32\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: x/m32 is XMM0\n"</span> -<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"run: storing 0.5\n"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"run: copy XMM3 to x/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"run: x/m32 is XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"run: storing 0.5</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L22" class="LineNr"> 22 </span> <span class="Delimiter">);</span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span> @@ -86,73 +85,73 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span><span class="Normal">case</span> <span class="Constant">0x10</span>: <span class="Delimiter">{</span> <span class="Comment">// copy x/m32 to x32</span> <span id="L27" class="LineNr"> 27 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L28" class="LineNr"> 28 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rdest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L29" class="LineNr"> 29 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy x/m32 to "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[rdest] << end<span class="Delimiter">();</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L31" class="LineNr"> 31 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rdest] = *src<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(float) == 4 on the host as well.</span> -<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rdest] << end<span class="Delimiter">();</span> +<span id="L29" class="LineNr"> 29 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy x/m32 to "</span> << Xname[rdest] << end<span class="Delimiter">();</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L31" class="LineNr"> 31 </span> Xmm[rdest] = *src<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(float) == 4 on the host as well.</span> +<span id="L32" class="LineNr"> 32 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << Xmm[rdest] << end<span class="Delimiter">();</span> <span id="L33" class="LineNr"> 33 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span><span class="Normal">case</span> <span class="Constant">0x11</span>: <span class="Delimiter">{</span> <span class="Comment">// copy x32 to x/m32</span> <span id="L36" class="LineNr"> 36 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rsrc = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L38" class="LineNr"> 38 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[rsrc] << <span class="Constant">" to x/m32"</span> << end<span class="Delimiter">();</span> -<span id="L39" class="LineNr"> 39 </span> <span class="Normal">float</span>* dest = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L40" class="LineNr"> 40 </span> *dest = <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rsrc]<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(float) == 4 on the host as well.</span> -<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << *dest << end<span class="Delimiter">();</span> +<span id="L38" class="LineNr"> 38 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"copy "</span> << Xname[rsrc] << <span class="Constant">" to x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Normal">float</span>* dest = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L40" class="LineNr"> 40 </span> *dest = Xmm[rsrc]<span class="Delimiter">;</span> <span class="Comment">// Write multiple elements of vector<uint8_t> at once. Assumes sizeof(float) == 4 on the host as well.</span> +<span id="L41" class="LineNr"> 41 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"storing "</span> << *dest << end<span class="Delimiter">();</span> <span id="L42" class="LineNr"> 42 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">}</span> <span id="L44" class="LineNr"> 44 </span> <span id="L45" class="LineNr"> 45 </span><span class="Delimiter">:(code)</span> -<span id="L46" class="LineNr"> 46 </span><span class="Normal">void</span> <a href='023float.cc.html#L46'>test_copy_x32_to_mem_at_xm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L47" class="LineNr"> 47 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> -<span id="L48" class="LineNr"> 48 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> +<span id="L46" class="LineNr"> 46 </span><span class="Normal">void</span> <a href='022float.cc.html#L46'>test_copy_x32_to_mem_at_xm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> Xmm[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> +<span id="L48" class="LineNr"> 48 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x60</span><span class="Delimiter">;</span> <span id="L49" class="LineNr"> 49 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L51" class="LineNr"> 51 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"f3 0f 11 18 \n"</span> <span class="Comment">// copy XMM3 to *EAX</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Constant">"f3 0f 11 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy XMM3 to *EAX</span> <span id="L53" class="LineNr"> 53 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (src XMM3) 000 (dest EAX)</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: copy XMM3 to x/m32\n"</span> -<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: storing 0.5\n"</span> +<span id="L56" class="LineNr"> 56 </span> <span class="Constant">"run: copy XMM3 to x/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L57" class="LineNr"> 57 </span> <span class="Constant">"run: effective address is 0x00000060 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Constant">"run: storing 0.5</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">);</span> <span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> <span id="L61" class="LineNr"> 61 </span> -<span id="L62" class="LineNr"> 62 </span><span class="Normal">void</span> <a href='023float.cc.html#L62'>test_copy_mem_at_xm32_to_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L63" class="LineNr"> 63 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L62" class="LineNr"> 62 </span><span class="Normal">void</span> <a href='022float.cc.html#L62'>test_copy_mem_at_xm32_to_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L63" class="LineNr"> 63 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> <span id="L64" class="LineNr"> 64 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L66" class="LineNr"> 66 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"f3 0f 10 18 \n"</span> <span class="Comment">// copy *EAX to XMM3</span> -<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Constant">"00 00 00 3f\n"</span> <span class="Comment">// 0x3f000000 = 0.5</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Constant">"f3 0f 10 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy *EAX to XMM3</span> +<span id="L68" class="LineNr"> 68 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Constant">"00 00 00 3f</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x3f000000 = 0.5</span> <span id="L70" class="LineNr"> 70 </span> <span class="Delimiter">);</span> <span id="L71" class="LineNr"> 71 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"run: copy x/m32 to XMM3\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"run: storing 0.5\n"</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"run: copy x/m32 to XMM3</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"run: storing 0.5</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">);</span> <span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> <span id="L77" class="LineNr"> 77 </span> -<span id="L78" class="LineNr"> 78 </span><span class="SalientComment">//:: convert to floating point</span> +<span id="L78" class="LineNr"> 78 </span><span class="Comment">//:: convert to floating point</span> <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L81" class="LineNr"> 81 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2a"</span><span class="Delimiter">,</span> <span class="Constant">"convert integer to floating-point (cvtsi2ss)"</span><span class="Delimiter">);</span> +<span id="L81" class="LineNr"> 81 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"2a"</span><span class="Delimiter">,</span> <span class="Constant">"convert integer to floating-point (cvtsi2ss)"</span><span class="Delimiter">);</span> <span id="L82" class="LineNr"> 82 </span> <span id="L83" class="LineNr"> 83 </span><span class="Delimiter">:(code)</span> -<span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='023float.cc.html#L84'>test_cvtsi2ss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L85" class="LineNr"> 85 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> +<span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='022float.cc.html#L84'>test_cvtsi2ss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L85" class="LineNr"> 85 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">10</span><span class="Delimiter">;</span> <span id="L86" class="LineNr"> 86 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L88" class="LineNr"> 88 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"f3 0f 2a c0 \n"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">"f3 0f 2a c0 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L90" class="LineNr"> 90 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 000 (EAX)</span> <span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">);</span> <span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: convert r/m32 to XMM0\n"</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: r/m32 is EAX\n"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: XMM0 is now 10\n"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"run: convert r/m32 to XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"run: r/m32 is <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"run: XMM0 is now 10</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">);</span> <span id="L97" class="LineNr"> 97 </span><span class="Delimiter">}</span> <span id="L98" class="LineNr"> 98 </span> @@ -160,32 +159,32 @@ if ('onhashchange' in window) { <span id="L100" class="LineNr">100 </span><span class="Normal">case</span> <span class="Constant">0x2a</span>: <span class="Delimiter">{</span> <span class="Comment">// convert integer to float</span> <span id="L101" class="LineNr">101 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L102" class="LineNr">102 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L103" class="LineNr">103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"convert r/m32 to "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L103" class="LineNr">103 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"convert r/m32 to "</span> << Xname[dest] << end<span class="Delimiter">();</span> <span id="L104" class="LineNr">104 </span> <span class="Normal">const</span> <span class="Normal">int32_t</span>* src = <a href='013direct_addressing.cc.html#L101'>effective_address</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L105" class="LineNr">105 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = *src<span class="Delimiter">;</span> -<span id="L106" class="LineNr">106 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L105" class="LineNr">105 </span> Xmm[dest] = *src<span class="Delimiter">;</span> +<span id="L106" class="LineNr">106 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L107" class="LineNr">107 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L108" class="LineNr">108 </span><span class="Delimiter">}</span> <span id="L109" class="LineNr">109 </span> -<span id="L110" class="LineNr">110 </span><span class="SalientComment">//:: convert floating point to int</span> +<span id="L110" class="LineNr">110 </span><span class="Comment">//:: convert floating point to int</span> <span id="L111" class="LineNr">111 </span> <span id="L112" class="LineNr">112 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L113" class="LineNr">113 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">"convert floating-point to int (cvtss2si)"</span><span class="Delimiter">);</span> -<span id="L114" class="LineNr">114 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2c"</span><span class="Delimiter">,</span> <span class="Constant">"truncate floating-point to int (cvttss2si)"</span><span class="Delimiter">);</span> +<span id="L113" class="LineNr">113 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">"convert floating-point to int (cvtss2si)"</span><span class="Delimiter">);</span> +<span id="L114" class="LineNr">114 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"2c"</span><span class="Delimiter">,</span> <span class="Constant">"truncate floating-point to int (cvttss2si)"</span><span class="Delimiter">);</span> <span id="L115" class="LineNr">115 </span> <span id="L116" class="LineNr">116 </span><span class="Delimiter">:(code)</span> -<span id="L117" class="LineNr">117 </span><span class="Normal">void</span> <a href='023float.cc.html#L117'>test_cvtss2si</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">9.8</span><span class="Delimiter">;</span> +<span id="L117" class="LineNr">117 </span><span class="Normal">void</span> <a href='022float.cc.html#L117'>test_cvtss2si</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">9.8</span><span class="Delimiter">;</span> <span id="L119" class="LineNr">119 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L120" class="LineNr">120 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L120" class="LineNr">120 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L121" class="LineNr">121 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L122" class="LineNr">122 </span> <span class="Constant">"f3 0f 2d c0 \n"</span> +<span id="L122" class="LineNr">122 </span> <span class="Constant">"f3 0f 2d c0 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L123" class="LineNr">123 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (EAX) 000 (XMM0)</span> <span id="L124" class="LineNr">124 </span> <span class="Delimiter">);</span> <span id="L125" class="LineNr">125 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L126" class="LineNr">126 </span> <span class="Constant">"run: convert x/m32 to EAX\n"</span> -<span id="L127" class="LineNr">127 </span> <span class="Constant">"run: x/m32 is XMM0\n"</span> -<span id="L128" class="LineNr">128 </span> <span class="Constant">"run: <a href='010vm.cc.html#L10'>EAX</a> is now 0x0000000a\n"</span> +<span id="L126" class="LineNr">126 </span> <span class="Constant">"run: convert x/m32 to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L127" class="LineNr">127 </span> <span class="Constant">"run: x/m32 is XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L128" class="LineNr">128 </span> <span class="Constant">"run: <a href='010vm.cc.html#L10'>EAX</a> is now 0x0000000a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L129" class="LineNr">129 </span> <span class="Delimiter">);</span> <span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> <span id="L131" class="LineNr">131 </span> @@ -193,26 +192,26 @@ if ('onhashchange' in window) { <span id="L133" class="LineNr">133 </span><span class="Normal">case</span> <span class="Constant">0x2d</span>: <span class="Delimiter">{</span> <span class="Comment">// convert float to integer</span> <span id="L134" class="LineNr">134 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L135" class="LineNr">135 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L136" class="LineNr">136 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"convert x/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L137" class="LineNr">137 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L138" class="LineNr">138 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i = round<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << <span class="Constant">" is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L136" class="LineNr">136 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"convert x/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L137" class="LineNr">137 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span> Reg[dest]<span class="Delimiter">.</span>i = round<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << <span class="Constant">" is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[dest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L140" class="LineNr">140 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L141" class="LineNr">141 </span><span class="Delimiter">}</span> <span id="L142" class="LineNr">142 </span> <span id="L143" class="LineNr">143 </span><span class="Delimiter">:(code)</span> -<span id="L144" class="LineNr">144 </span><span class="Normal">void</span> <a href='023float.cc.html#L144'>test_cvttss2si</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L145" class="LineNr">145 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">9.8</span><span class="Delimiter">;</span> +<span id="L144" class="LineNr">144 </span><span class="Normal">void</span> <a href='022float.cc.html#L144'>test_cvttss2si</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">9.8</span><span class="Delimiter">;</span> <span id="L146" class="LineNr">146 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L148" class="LineNr">148 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L149" class="LineNr">149 </span> <span class="Constant">"f3 0f 2c c0 \n"</span> +<span id="L149" class="LineNr">149 </span> <span class="Constant">"f3 0f 2c c0 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L150" class="LineNr">150 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (EAX) 000 (XMM0)</span> <span id="L151" class="LineNr">151 </span> <span class="Delimiter">);</span> <span id="L152" class="LineNr">152 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L153" class="LineNr">153 </span> <span class="Constant">"run: truncate x/m32 to EAX\n"</span> -<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: x/m32 is XMM0\n"</span> -<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: <a href='010vm.cc.html#L10'>EAX</a> is now 0x00000009\n"</span> +<span id="L153" class="LineNr">153 </span> <span class="Constant">"run: truncate x/m32 to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L154" class="LineNr">154 </span> <span class="Constant">"run: x/m32 is XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L155" class="LineNr">155 </span> <span class="Constant">"run: <a href='010vm.cc.html#L10'>EAX</a> is now 0x00000009</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">);</span> <span id="L157" class="LineNr">157 </span><span class="Delimiter">}</span> <span id="L158" class="LineNr">158 </span> @@ -220,32 +219,32 @@ if ('onhashchange' in window) { <span id="L160" class="LineNr">160 </span><span class="Normal">case</span> <span class="Constant">0x2c</span>: <span class="Delimiter">{</span> <span class="Comment">// truncate float to integer</span> <span id="L161" class="LineNr">161 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L162" class="LineNr">162 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L163" class="LineNr">163 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"truncate x/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L164" class="LineNr">164 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L165" class="LineNr">165 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i = trunc<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> -<span id="L166" class="LineNr">166 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << <span class="Constant">" is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[dest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L163" class="LineNr">163 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"truncate x/m32 to "</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L164" class="LineNr">164 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L165" class="LineNr">165 </span> Reg[dest]<span class="Delimiter">.</span>i = trunc<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L166" class="LineNr">166 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <a href='013direct_addressing.cc.html#L136'>rname</a><span class="Delimiter">(</span>dest<span class="Delimiter">)</span> << <span class="Constant">" is now 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << Reg[dest]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> <span id="L167" class="LineNr">167 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L168" class="LineNr">168 </span><span class="Delimiter">}</span> <span id="L169" class="LineNr">169 </span> -<span id="L170" class="LineNr">170 </span><span class="SalientComment">//:: add</span> +<span id="L170" class="LineNr">170 </span><span class="Comment">//:: add</span> <span id="L171" class="LineNr">171 </span> <span id="L172" class="LineNr">172 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L173" class="LineNr">173 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">"add floats (addss)"</span><span class="Delimiter">);</span> +<span id="L173" class="LineNr">173 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">"add floats (addss)"</span><span class="Delimiter">);</span> <span id="L174" class="LineNr">174 </span> <span id="L175" class="LineNr">175 </span><span class="Delimiter">:(code)</span> -<span id="L176" class="LineNr">176 </span><span class="Normal">void</span> <a href='023float.cc.html#L176'>test_addss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L177" class="LineNr">177 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> -<span id="L178" class="LineNr">178 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L176" class="LineNr">176 </span><span class="Normal">void</span> <a href='022float.cc.html#L176'>test_addss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L177" class="LineNr">177 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L178" class="LineNr">178 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L179" class="LineNr">179 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L180" class="LineNr">180 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L180" class="LineNr">180 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L181" class="LineNr">181 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L182" class="LineNr">182 </span> <span class="Constant">"f3 0f 58 c1 \n"</span> +<span id="L182" class="LineNr">182 </span> <span class="Constant">"f3 0f 58 c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L183" class="LineNr">183 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L184" class="LineNr">184 </span> <span class="Delimiter">);</span> <span id="L185" class="LineNr">185 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L186" class="LineNr">186 </span> <span class="Constant">"run: add x/m32 to XMM0\n"</span> -<span id="L187" class="LineNr">187 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L188" class="LineNr">188 </span> <span class="Constant">"run: XMM0 is now 5\n"</span> +<span id="L186" class="LineNr">186 </span> <span class="Constant">"run: add x/m32 to XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L187" class="LineNr">187 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L188" class="LineNr">188 </span> <span class="Constant">"run: XMM0 is now 5</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L189" class="LineNr">189 </span> <span class="Delimiter">);</span> <span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> <span id="L191" class="LineNr">191 </span> @@ -253,32 +252,32 @@ if ('onhashchange' in window) { <span id="L193" class="LineNr">193 </span><span class="Normal">case</span> <span class="Constant">0x58</span>: <span class="Delimiter">{</span> <span class="Comment">// add x/m32 to x32</span> <span id="L194" class="LineNr">194 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L195" class="LineNr">195 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add x/m32 to "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> -<span id="L197" class="LineNr">197 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L198" class="LineNr">198 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] += *src<span class="Delimiter">;</span> -<span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"add x/m32 to "</span> << Xname[dest] << end<span class="Delimiter">();</span> +<span id="L197" class="LineNr">197 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L198" class="LineNr">198 </span> Xmm[dest] += *src<span class="Delimiter">;</span> +<span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L200" class="LineNr">200 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L201" class="LineNr">201 </span><span class="Delimiter">}</span> <span id="L202" class="LineNr">202 </span> -<span id="L203" class="LineNr">203 </span><span class="SalientComment">//:: subtract</span> +<span id="L203" class="LineNr">203 </span><span class="Comment">//:: subtract</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L206" class="LineNr">206 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">"subtract floats (subss)"</span><span class="Delimiter">);</span> +<span id="L206" class="LineNr">206 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">"subtract floats (subss)"</span><span class="Delimiter">);</span> <span id="L207" class="LineNr">207 </span> <span id="L208" class="LineNr">208 </span><span class="Delimiter">:(code)</span> -<span id="L209" class="LineNr">209 </span><span class="Normal">void</span> <a href='023float.cc.html#L209'>test_subss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L210" class="LineNr">210 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> -<span id="L211" class="LineNr">211 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L209" class="LineNr">209 </span><span class="Normal">void</span> <a href='022float.cc.html#L209'>test_subss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L210" class="LineNr">210 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L211" class="LineNr">211 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L212" class="LineNr">212 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L213" class="LineNr">213 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L213" class="LineNr">213 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L214" class="LineNr">214 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L215" class="LineNr">215 </span> <span class="Constant">"f3 0f 5c c1 \n"</span> +<span id="L215" class="LineNr">215 </span> <span class="Constant">"f3 0f 5c c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L216" class="LineNr">216 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L217" class="LineNr">217 </span> <span class="Delimiter">);</span> <span id="L218" class="LineNr">218 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L219" class="LineNr">219 </span> <span class="Constant">"run: subtract x/m32 from XMM0\n"</span> -<span id="L220" class="LineNr">220 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L221" class="LineNr">221 </span> <span class="Constant">"run: XMM0 is now 1\n"</span> +<span id="L219" class="LineNr">219 </span> <span class="Constant">"run: subtract x/m32 from XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L220" class="LineNr">220 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L221" class="LineNr">221 </span> <span class="Constant">"run: XMM0 is now 1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L222" class="LineNr">222 </span> <span class="Delimiter">);</span> <span id="L223" class="LineNr">223 </span><span class="Delimiter">}</span> <span id="L224" class="LineNr">224 </span> @@ -286,32 +285,32 @@ if ('onhashchange' in window) { <span id="L226" class="LineNr">226 </span><span class="Normal">case</span> <span class="Constant">0x5c</span>: <span class="Delimiter">{</span> <span class="Comment">// subtract x/m32 from x32</span> <span id="L227" class="LineNr">227 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L228" class="LineNr">228 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L229" class="LineNr">229 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract x/m32 from "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> -<span id="L230" class="LineNr">230 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L231" class="LineNr">231 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] -= *src<span class="Delimiter">;</span> -<span id="L232" class="LineNr">232 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L229" class="LineNr">229 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"subtract x/m32 from "</span> << Xname[dest] << end<span class="Delimiter">();</span> +<span id="L230" class="LineNr">230 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L231" class="LineNr">231 </span> Xmm[dest] -= *src<span class="Delimiter">;</span> +<span id="L232" class="LineNr">232 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L233" class="LineNr">233 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> <span id="L235" class="LineNr">235 </span> -<span id="L236" class="LineNr">236 </span><span class="SalientComment">//:: multiply</span> +<span id="L236" class="LineNr">236 </span><span class="Comment">//:: multiply</span> <span id="L237" class="LineNr">237 </span> <span id="L238" class="LineNr">238 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L239" class="LineNr">239 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">"multiply floats (mulss)"</span><span class="Delimiter">);</span> +<span id="L239" class="LineNr">239 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">"multiply floats (mulss)"</span><span class="Delimiter">);</span> <span id="L240" class="LineNr">240 </span> <span id="L241" class="LineNr">241 </span><span class="Delimiter">:(code)</span> -<span id="L242" class="LineNr">242 </span><span class="Normal">void</span> <a href='023float.cc.html#L242'>test_mulss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L243" class="LineNr">243 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> -<span id="L244" class="LineNr">244 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L242" class="LineNr">242 </span><span class="Normal">void</span> <a href='022float.cc.html#L242'>test_mulss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L244" class="LineNr">244 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L245" class="LineNr">245 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L246" class="LineNr">246 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L246" class="LineNr">246 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L247" class="LineNr">247 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L248" class="LineNr">248 </span> <span class="Constant">"f3 0f 59 c1 \n"</span> +<span id="L248" class="LineNr">248 </span> <span class="Constant">"f3 0f 59 c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L249" class="LineNr">249 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L250" class="LineNr">250 </span> <span class="Delimiter">);</span> <span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L252" class="LineNr">252 </span> <span class="Constant">"run: multiply XMM0 by x/m32\n"</span> -<span id="L253" class="LineNr">253 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L254" class="LineNr">254 </span> <span class="Constant">"run: XMM0 is now 6\n"</span> +<span id="L252" class="LineNr">252 </span> <span class="Constant">"run: multiply XMM0 by x/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L253" class="LineNr">253 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L254" class="LineNr">254 </span> <span class="Constant">"run: XMM0 is now 6</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L255" class="LineNr">255 </span> <span class="Delimiter">);</span> <span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> <span id="L257" class="LineNr">257 </span> @@ -319,32 +318,32 @@ if ('onhashchange' in window) { <span id="L259" class="LineNr">259 </span><span class="Normal">case</span> <span class="Constant">0x59</span>: <span class="Delimiter">{</span> <span class="Comment">// multiply x32 by x/m32</span> <span id="L260" class="LineNr">260 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L261" class="LineNr">261 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L262" class="LineNr">262 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" by x/m32"</span> << end<span class="Delimiter">();</span> -<span id="L263" class="LineNr">263 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L264" class="LineNr">264 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] *= *src<span class="Delimiter">;</span> -<span id="L265" class="LineNr">265 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L262" class="LineNr">262 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"multiply "</span> << Xname[dest] << <span class="Constant">" by x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L264" class="LineNr">264 </span> Xmm[dest] *= *src<span class="Delimiter">;</span> +<span id="L265" class="LineNr">265 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L266" class="LineNr">266 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L267" class="LineNr">267 </span><span class="Delimiter">}</span> <span id="L268" class="LineNr">268 </span> -<span id="L269" class="LineNr">269 </span><span class="SalientComment">//:: divide</span> +<span id="L269" class="LineNr">269 </span><span class="Comment">//:: divide</span> <span id="L270" class="LineNr">270 </span> <span id="L271" class="LineNr">271 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L272" class="LineNr">272 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">"divide floats (divss)"</span><span class="Delimiter">);</span> +<span id="L272" class="LineNr">272 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">"divide floats (divss)"</span><span class="Delimiter">);</span> <span id="L273" class="LineNr">273 </span> <span id="L274" class="LineNr">274 </span><span class="Delimiter">:(code)</span> -<span id="L275" class="LineNr">275 </span><span class="Normal">void</span> <a href='023float.cc.html#L275'>test_divss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L276" class="LineNr">276 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> -<span id="L277" class="LineNr">277 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L275" class="LineNr">275 </span><span class="Normal">void</span> <a href='022float.cc.html#L275'>test_divss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L276" class="LineNr">276 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L277" class="LineNr">277 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L278" class="LineNr">278 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L279" class="LineNr">279 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L279" class="LineNr">279 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L280" class="LineNr">280 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L281" class="LineNr">281 </span> <span class="Constant">"f3 0f 5e c1 \n"</span> +<span id="L281" class="LineNr">281 </span> <span class="Constant">"f3 0f 5e c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L282" class="LineNr">282 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L283" class="LineNr">283 </span> <span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L285" class="LineNr">285 </span> <span class="Constant">"run: divide XMM0 by x/m32\n"</span> -<span id="L286" class="LineNr">286 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L287" class="LineNr">287 </span> <span class="Constant">"run: XMM0 is now 1.5\n"</span> +<span id="L285" class="LineNr">285 </span> <span class="Constant">"run: divide XMM0 by x/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L286" class="LineNr">286 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L287" class="LineNr">287 </span> <span class="Constant">"run: XMM0 is now 1.5</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L288" class="LineNr">288 </span> <span class="Delimiter">);</span> <span id="L289" class="LineNr">289 </span><span class="Delimiter">}</span> <span id="L290" class="LineNr">290 </span> @@ -352,32 +351,32 @@ if ('onhashchange' in window) { <span id="L292" class="LineNr">292 </span><span class="Normal">case</span> <span class="Constant">0x5e</span>: <span class="Delimiter">{</span> <span class="Comment">// divide x32 by x/m32</span> <span id="L293" class="LineNr">293 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L294" class="LineNr">294 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L295" class="LineNr">295 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"divide "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" by x/m32"</span> << end<span class="Delimiter">();</span> -<span id="L296" class="LineNr">296 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L297" class="LineNr">297 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] /= *src<span class="Delimiter">;</span> -<span id="L298" class="LineNr">298 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L295" class="LineNr">295 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"divide "</span> << Xname[dest] << <span class="Constant">" by x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L296" class="LineNr">296 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L297" class="LineNr">297 </span> Xmm[dest] /= *src<span class="Delimiter">;</span> +<span id="L298" class="LineNr">298 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L299" class="LineNr">299 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L300" class="LineNr">300 </span><span class="Delimiter">}</span> <span id="L301" class="LineNr">301 </span> -<span id="L302" class="LineNr">302 </span><span class="SalientComment">//:: min</span> +<span id="L302" class="LineNr">302 </span><span class="Comment">//:: min</span> <span id="L303" class="LineNr">303 </span> <span id="L304" class="LineNr">304 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L305" class="LineNr">305 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">"minimum of two floats (minss)"</span><span class="Delimiter">);</span> +<span id="L305" class="LineNr">305 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">"minimum of two floats (minss)"</span><span class="Delimiter">);</span> <span id="L306" class="LineNr">306 </span> <span id="L307" class="LineNr">307 </span><span class="Delimiter">:(code)</span> -<span id="L308" class="LineNr">308 </span><span class="Normal">void</span> <a href='023float.cc.html#L308'>test_minss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L309" class="LineNr">309 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> -<span id="L310" class="LineNr">310 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L308" class="LineNr">308 </span><span class="Normal">void</span> <a href='022float.cc.html#L308'>test_minss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L310" class="LineNr">310 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L311" class="LineNr">311 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L312" class="LineNr">312 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L312" class="LineNr">312 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L313" class="LineNr">313 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L314" class="LineNr">314 </span> <span class="Constant">"f3 0f 5d c1 \n"</span> +<span id="L314" class="LineNr">314 </span> <span class="Constant">"f3 0f 5d c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L315" class="LineNr">315 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L316" class="LineNr">316 </span> <span class="Delimiter">);</span> <span id="L317" class="LineNr">317 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L318" class="LineNr">318 </span> <span class="Constant">"run: minimum of XMM0 and x/m32\n"</span> -<span id="L319" class="LineNr">319 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L320" class="LineNr">320 </span> <span class="Constant">"run: XMM0 is now 2\n"</span> +<span id="L318" class="LineNr">318 </span> <span class="Constant">"run: minimum of XMM0 and x/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L319" class="LineNr">319 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L320" class="LineNr">320 </span> <span class="Constant">"run: XMM0 is now 2</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L321" class="LineNr">321 </span> <span class="Delimiter">);</span> <span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> <span id="L323" class="LineNr">323 </span> @@ -385,32 +384,32 @@ if ('onhashchange' in window) { <span id="L325" class="LineNr">325 </span><span class="Normal">case</span> <span class="Constant">0x5d</span>: <span class="Delimiter">{</span> <span class="Comment">// minimum of x32, x/m32</span> <span id="L326" class="LineNr">326 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L327" class="LineNr">327 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L328" class="LineNr">328 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"minimum of "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" and x/m32"</span> << end<span class="Delimiter">();</span> -<span id="L329" class="LineNr">329 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L330" class="LineNr">330 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = min<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest]<span class="Delimiter">,</span> *src<span class="Delimiter">);</span> -<span id="L331" class="LineNr">331 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L328" class="LineNr">328 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"minimum of "</span> << Xname[dest] << <span class="Constant">" and x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L329" class="LineNr">329 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L330" class="LineNr">330 </span> Xmm[dest] = min<span class="Delimiter">(</span>Xmm[dest]<span class="Delimiter">,</span> *src<span class="Delimiter">);</span> +<span id="L331" class="LineNr">331 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L332" class="LineNr">332 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L333" class="LineNr">333 </span><span class="Delimiter">}</span> <span id="L334" class="LineNr">334 </span> -<span id="L335" class="LineNr">335 </span><span class="SalientComment">//:: max</span> +<span id="L335" class="LineNr">335 </span><span class="Comment">//:: max</span> <span id="L336" class="LineNr">336 </span> <span id="L337" class="LineNr">337 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L338" class="LineNr">338 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">"maximum of two floats (maxss)"</span><span class="Delimiter">);</span> +<span id="L338" class="LineNr">338 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">"maximum of two floats (maxss)"</span><span class="Delimiter">);</span> <span id="L339" class="LineNr">339 </span> <span id="L340" class="LineNr">340 </span><span class="Delimiter">:(code)</span> -<span id="L341" class="LineNr">341 </span><span class="Normal">void</span> <a href='023float.cc.html#L341'>test_maxss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L342" class="LineNr">342 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> -<span id="L343" class="LineNr">343 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L341" class="LineNr">341 </span><span class="Normal">void</span> <a href='022float.cc.html#L341'>test_maxss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L342" class="LineNr">342 </span> Xmm[<span class="Constant">0</span>] = <span class="Constant">3.0</span><span class="Delimiter">;</span> +<span id="L343" class="LineNr">343 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L344" class="LineNr">344 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L345" class="LineNr">345 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L345" class="LineNr">345 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L346" class="LineNr">346 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L347" class="LineNr">347 </span> <span class="Constant">"f3 0f 5f c1 \n"</span> +<span id="L347" class="LineNr">347 </span> <span class="Constant">"f3 0f 5f c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L348" class="LineNr">348 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L349" class="LineNr">349 </span> <span class="Delimiter">);</span> <span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L351" class="LineNr">351 </span> <span class="Constant">"run: maximum of XMM0 and x/m32\n"</span> -<span id="L352" class="LineNr">352 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L353" class="LineNr">353 </span> <span class="Constant">"run: XMM0 is now 3\n"</span> +<span id="L351" class="LineNr">351 </span> <span class="Constant">"run: maximum of XMM0 and x/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L352" class="LineNr">352 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L353" class="LineNr">353 </span> <span class="Constant">"run: XMM0 is now 3</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L354" class="LineNr">354 </span> <span class="Delimiter">);</span> <span id="L355" class="LineNr">355 </span><span class="Delimiter">}</span> <span id="L356" class="LineNr">356 </span> @@ -418,31 +417,31 @@ if ('onhashchange' in window) { <span id="L358" class="LineNr">358 </span><span class="Normal">case</span> <span class="Constant">0x5f</span>: <span class="Delimiter">{</span> <span class="Comment">// maximum of x32, x/m32</span> <span id="L359" class="LineNr">359 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L360" class="LineNr">360 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L361" class="LineNr">361 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"maximum of "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" and x/m32"</span> << end<span class="Delimiter">();</span> -<span id="L362" class="LineNr">362 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L363" class="LineNr">363 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = max<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest]<span class="Delimiter">,</span> *src<span class="Delimiter">);</span> -<span id="L364" class="LineNr">364 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L361" class="LineNr">361 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"maximum of "</span> << Xname[dest] << <span class="Constant">" and x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L362" class="LineNr">362 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L363" class="LineNr">363 </span> Xmm[dest] = max<span class="Delimiter">(</span>Xmm[dest]<span class="Delimiter">,</span> *src<span class="Delimiter">);</span> +<span id="L364" class="LineNr">364 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L365" class="LineNr">365 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L366" class="LineNr">366 </span><span class="Delimiter">}</span> <span id="L367" class="LineNr">367 </span> -<span id="L368" class="LineNr">368 </span><span class="SalientComment">//:: reciprocal</span> +<span id="L368" class="LineNr">368 </span><span class="Comment">//:: reciprocal</span> <span id="L369" class="LineNr">369 </span> <span id="L370" class="LineNr">370 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L371" class="LineNr">371 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">"reciprocal of float (rcpss)"</span><span class="Delimiter">);</span> +<span id="L371" class="LineNr">371 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">"reciprocal of float (rcpss)"</span><span class="Delimiter">);</span> <span id="L372" class="LineNr">372 </span> <span id="L373" class="LineNr">373 </span><span class="Delimiter">:(code)</span> -<span id="L374" class="LineNr">374 </span><span class="Normal">void</span> <a href='023float.cc.html#L374'>test_rcpss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L375" class="LineNr">375 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L374" class="LineNr">374 </span><span class="Normal">void</span> <a href='022float.cc.html#L374'>test_rcpss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L375" class="LineNr">375 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L376" class="LineNr">376 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L377" class="LineNr">377 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L377" class="LineNr">377 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L378" class="LineNr">378 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L379" class="LineNr">379 </span> <span class="Constant">"f3 0f 53 c1 \n"</span> +<span id="L379" class="LineNr">379 </span> <span class="Constant">"f3 0f 53 c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L380" class="LineNr">380 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L381" class="LineNr">381 </span> <span class="Delimiter">);</span> <span id="L382" class="LineNr">382 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L383" class="LineNr">383 </span> <span class="Constant">"run: reciprocal of x/m32 into XMM0\n"</span> -<span id="L384" class="LineNr">384 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L385" class="LineNr">385 </span> <span class="Constant">"run: XMM0 is now 0.5\n"</span> +<span id="L383" class="LineNr">383 </span> <span class="Constant">"run: reciprocal of x/m32 into XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L384" class="LineNr">384 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L385" class="LineNr">385 </span> <span class="Constant">"run: XMM0 is now 0.5</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L386" class="LineNr">386 </span> <span class="Delimiter">);</span> <span id="L387" class="LineNr">387 </span><span class="Delimiter">}</span> <span id="L388" class="LineNr">388 </span> @@ -450,31 +449,31 @@ if ('onhashchange' in window) { <span id="L390" class="LineNr">390 </span><span class="Normal">case</span> <span class="Constant">0x53</span>: <span class="Delimiter">{</span> <span class="Comment">// reciprocal of x/m32 into x32</span> <span id="L391" class="LineNr">391 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L392" class="LineNr">392 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L393" class="LineNr">393 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"reciprocal of x/m32 into "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> -<span id="L394" class="LineNr">394 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L395" class="LineNr">395 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = <span class="Constant">1.0</span> / *src<span class="Delimiter">;</span> -<span id="L396" class="LineNr">396 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L393" class="LineNr">393 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"reciprocal of x/m32 into "</span> << Xname[dest] << end<span class="Delimiter">();</span> +<span id="L394" class="LineNr">394 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L395" class="LineNr">395 </span> Xmm[dest] = <span class="Constant">1.0</span> / *src<span class="Delimiter">;</span> +<span id="L396" class="LineNr">396 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L397" class="LineNr">397 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L398" class="LineNr">398 </span><span class="Delimiter">}</span> <span id="L399" class="LineNr">399 </span> -<span id="L400" class="LineNr">400 </span><span class="SalientComment">//:: square root</span> +<span id="L400" class="LineNr">400 </span><span class="Comment">//:: square root</span> <span id="L401" class="LineNr">401 </span> <span id="L402" class="LineNr">402 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L403" class="LineNr">403 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">"square root of float (sqrtss)"</span><span class="Delimiter">);</span> +<span id="L403" class="LineNr">403 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">"square root of float (sqrtss)"</span><span class="Delimiter">);</span> <span id="L404" class="LineNr">404 </span> <span id="L405" class="LineNr">405 </span><span class="Delimiter">:(code)</span> -<span id="L406" class="LineNr">406 </span><span class="Normal">void</span> <a href='023float.cc.html#L406'>test_sqrtss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L407" class="LineNr">407 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> +<span id="L406" class="LineNr">406 </span><span class="Normal">void</span> <a href='022float.cc.html#L406'>test_sqrtss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L407" class="LineNr">407 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">2.0</span><span class="Delimiter">;</span> <span id="L408" class="LineNr">408 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L409" class="LineNr">409 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L409" class="LineNr">409 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L410" class="LineNr">410 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L411" class="LineNr">411 </span> <span class="Constant">"f3 0f 51 c1 \n"</span> +<span id="L411" class="LineNr">411 </span> <span class="Constant">"f3 0f 51 c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L412" class="LineNr">412 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L413" class="LineNr">413 </span> <span class="Delimiter">);</span> <span id="L414" class="LineNr">414 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L415" class="LineNr">415 </span> <span class="Constant">"run: square root of x/m32 into XMM0\n"</span> -<span id="L416" class="LineNr">416 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L417" class="LineNr">417 </span> <span class="Constant">"run: XMM0 is now 1.41421\n"</span> +<span id="L415" class="LineNr">415 </span> <span class="Constant">"run: square root of x/m32 into XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L416" class="LineNr">416 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L417" class="LineNr">417 </span> <span class="Constant">"run: XMM0 is now 1.41421</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L418" class="LineNr">418 </span> <span class="Delimiter">);</span> <span id="L419" class="LineNr">419 </span><span class="Delimiter">}</span> <span id="L420" class="LineNr">420 </span> @@ -482,34 +481,34 @@ if ('onhashchange' in window) { <span id="L422" class="LineNr">422 </span><span class="Normal">case</span> <span class="Constant">0x51</span>: <span class="Delimiter">{</span> <span class="Comment">// square root of x/m32 into x32</span> <span id="L423" class="LineNr">423 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L424" class="LineNr">424 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L425" class="LineNr">425 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"square root of x/m32 into "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> -<span id="L426" class="LineNr">426 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L427" class="LineNr">427 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = sqrt<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> -<span id="L428" class="LineNr">428 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L425" class="LineNr">425 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"square root of x/m32 into "</span> << Xname[dest] << end<span class="Delimiter">();</span> +<span id="L426" class="LineNr">426 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L427" class="LineNr">427 </span> Xmm[dest] = sqrt<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L428" class="LineNr">428 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L429" class="LineNr">429 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> <span id="L431" class="LineNr">431 </span> <span id="L432" class="LineNr">432 </span><span class="Delimiter">:(before "End Includes")</span> <span id="L433" class="LineNr">433 </span><span class="PreProc">#include </span><span class="Constant"><math.h></span> <span id="L434" class="LineNr">434 </span> -<span id="L435" class="LineNr">435 </span><span class="SalientComment">//:: inverse square root</span> +<span id="L435" class="LineNr">435 </span><span class="Comment">//:: inverse square root</span> <span id="L436" class="LineNr">436 </span> <span id="L437" class="LineNr">437 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L438" class="LineNr">438 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">"inverse square root of float (rsqrtss)"</span><span class="Delimiter">);</span> +<span id="L438" class="LineNr">438 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">"inverse square root of float (rsqrtss)"</span><span class="Delimiter">);</span> <span id="L439" class="LineNr">439 </span> <span id="L440" class="LineNr">440 </span><span class="Delimiter">:(code)</span> -<span id="L441" class="LineNr">441 </span><span class="Normal">void</span> <a href='023float.cc.html#L441'>test_rsqrtss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L442" class="LineNr">442 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">1</span>] = <span class="Constant">0.01</span><span class="Delimiter">;</span> +<span id="L441" class="LineNr">441 </span><span class="Normal">void</span> <a href='022float.cc.html#L441'>test_rsqrtss</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L442" class="LineNr">442 </span> Xmm[<span class="Constant">1</span>] = <span class="Constant">0.01</span><span class="Delimiter">;</span> <span id="L443" class="LineNr">443 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L444" class="LineNr">444 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L444" class="LineNr">444 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L445" class="LineNr">445 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L446" class="LineNr">446 </span> <span class="Constant">"f3 0f 52 c1 \n"</span> +<span id="L446" class="LineNr">446 </span> <span class="Constant">"f3 0f 52 c1 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L447" class="LineNr">447 </span> <span class="Comment">// ModR/M in binary: 11 (direct mode) 000 (XMM0) 001 (XMM1)</span> <span id="L448" class="LineNr">448 </span> <span class="Delimiter">);</span> <span id="L449" class="LineNr">449 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L450" class="LineNr">450 </span> <span class="Constant">"run: inverse square root of x/m32 into XMM0\n"</span> -<span id="L451" class="LineNr">451 </span> <span class="Constant">"run: x/m32 is XMM1\n"</span> -<span id="L452" class="LineNr">452 </span> <span class="Constant">"run: XMM0 is now 10\n"</span> +<span id="L450" class="LineNr">450 </span> <span class="Constant">"run: inverse square root of x/m32 into XMM0</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L451" class="LineNr">451 </span> <span class="Constant">"run: x/m32 is XMM1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L452" class="LineNr">452 </span> <span class="Constant">"run: XMM0 is now 10</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L453" class="LineNr">453 </span> <span class="Delimiter">);</span> <span id="L454" class="LineNr">454 </span><span class="Delimiter">}</span> <span id="L455" class="LineNr">455 </span> @@ -517,64 +516,64 @@ if ('onhashchange' in window) { <span id="L457" class="LineNr">457 </span><span class="Normal">case</span> <span class="Constant">0x52</span>: <span class="Delimiter">{</span> <span class="Comment">// inverse square root of x/m32 into x32</span> <span id="L458" class="LineNr">458 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L459" class="LineNr">459 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> dest = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L460" class="LineNr">460 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inverse square root of x/m32 into "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << end<span class="Delimiter">();</span> -<span id="L461" class="LineNr">461 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L462" class="LineNr">462 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] = <span class="Constant">1.0</span> / sqrt<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> -<span id="L463" class="LineNr">463 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[dest] << <span class="Constant">" is now "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[dest] << end<span class="Delimiter">();</span> +<span id="L460" class="LineNr">460 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inverse square root of x/m32 into "</span> << Xname[dest] << end<span class="Delimiter">();</span> +<span id="L461" class="LineNr">461 </span> <span class="Normal">const</span> <span class="Normal">float</span>* src = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L462" class="LineNr">462 </span> Xmm[dest] = <span class="Constant">1.0</span> / sqrt<span class="Delimiter">(</span>*src<span class="Delimiter">);</span> +<span id="L463" class="LineNr">463 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Xname[dest] << <span class="Constant">" is now "</span> << Xmm[dest] << end<span class="Delimiter">();</span> <span id="L464" class="LineNr">464 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L465" class="LineNr">465 </span><span class="Delimiter">}</span> <span id="L466" class="LineNr">466 </span> <span id="L467" class="LineNr">467 </span><span class="Delimiter">:(code)</span> -<span id="L468" class="LineNr">468 </span><span class="Normal">float</span>* <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> modrm<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L468" class="LineNr">468 </span><span class="Normal">float</span>* <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span><span class="Normal">uint8_t</span> modrm<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L469" class="LineNr">469 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> mod = <span class="Delimiter">(</span>modrm>><span class="Constant">6</span><span class="Delimiter">);</span> <span id="L470" class="LineNr">470 </span> <span class="Comment">// ignore middle 3 'reg opcode' bits</span> <span id="L471" class="LineNr">471 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> rm = modrm & <span class="Constant">0x7</span><span class="Delimiter">;</span> <span id="L472" class="LineNr">472 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>mod == <span class="Constant">3</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L473" class="LineNr">473 </span> <span class="Comment">// mod 3 is just register direct addressing</span> -<span id="L474" class="LineNr">474 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"x/m32 is "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[rm] << end<span class="Delimiter">();</span> -<span id="L475" class="LineNr">475 </span> <span class="Identifier">return</span> &<span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[rm]<span class="Delimiter">;</span> +<span id="L474" class="LineNr">474 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"x/m32 is "</span> << Xname[rm] << end<span class="Delimiter">();</span> +<span id="L475" class="LineNr">475 </span> <span class="Identifier">return</span> &Xmm[rm]<span class="Delimiter">;</span> <span id="L476" class="LineNr">476 </span> <span class="Delimiter">}</span> <span id="L477" class="LineNr">477 </span> <span class="Normal">uint32_t</span> addr = <a href='013direct_addressing.cc.html#L116'>effective_address_number</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> -<span id="L478" class="LineNr">478 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address contains "</span> << <a href='010vm.cc.html#L188'>read_mem_f32</a><span class="Delimiter">(</span>addr<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L478" class="LineNr">478 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"effective address contains "</span> << <a href='010vm.cc.html#L188'>read_mem_f32</a><span class="Delimiter">(</span>addr<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L479" class="LineNr">479 </span> <span class="Identifier">return</span> <a href='010vm.cc.html#L230'>mem_addr_f32</a><span class="Delimiter">(</span>addr<span class="Delimiter">);</span> <span id="L480" class="LineNr">480 </span><span class="Delimiter">}</span> <span id="L481" class="LineNr">481 </span> <span id="L482" class="LineNr">482 </span><span class="Comment">//: compare</span> <span id="L483" class="LineNr">483 </span> <span id="L484" class="LineNr">484 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> -<span id="L485" class="LineNr">485 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2f"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set SF if x32 < xm32 (comiss)"</span><span class="Delimiter">);</span> +<span id="L485" class="LineNr">485 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> <span class="Constant">"2f"</span><span class="Delimiter">,</span> <span class="Constant">"compare: set <a href='010vm.cc.html#L90'>CF</a> if x32 < xm32 (comiss)"</span><span class="Delimiter">);</span> <span id="L486" class="LineNr">486 </span> <span id="L487" class="LineNr">487 </span><span class="Delimiter">:(code)</span> -<span id="L488" class="LineNr">488 </span><span class="Normal">void</span> <a href='023float.cc.html#L488'>test_compare_x32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L489" class="LineNr">489 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> -<span id="L490" class="LineNr">490 </span> <span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> +<span id="L488" class="LineNr">488 </span><span class="Normal">void</span> <a href='022float.cc.html#L488'>test_compare_x32_with_mem_at_rm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L489" class="LineNr">489 </span> Reg[EAX]<span class="Delimiter">.</span>i = <span class="Constant">0x2000</span><span class="Delimiter">;</span> +<span id="L490" class="LineNr">490 </span> Xmm[<span class="Constant">3</span>] = <span class="Constant">0.5</span><span class="Delimiter">;</span> <span id="L491" class="LineNr">491 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L492" class="LineNr">492 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L492" class="LineNr">492 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L493" class="LineNr">493 </span> <span class="Comment">// op ModR/M SIB displacement immediate</span> -<span id="L494" class="LineNr">494 </span> <span class="Constant">" 0f 2f 18 \n"</span> <span class="Comment">// compare XMM3 with *EAX</span> +<span id="L494" class="LineNr">494 </span> <span class="Constant">" 0f 2f 18 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// compare XMM3 with *EAX</span> <span id="L495" class="LineNr">495 </span> <span class="Comment">// ModR/M in binary: 00 (indirect mode) 011 (lhs XMM3) 000 (rhs EAX)</span> -<span id="L496" class="LineNr">496 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L497" class="LineNr">497 </span> <span class="Constant">"00 00 00 00\n"</span> <span class="Comment">// 0x00000000 = 0.0</span> +<span id="L496" class="LineNr">496 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L497" class="LineNr">497 </span> <span class="Constant">"00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0x00000000 = 0.0</span> <span id="L498" class="LineNr">498 </span> <span class="Delimiter">);</span> <span id="L499" class="LineNr">499 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L500" class="LineNr">500 </span> <span class="Constant">"run: compare XMM3 with x/m32\n"</span> -<span id="L501" class="LineNr">501 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)\n"</span> -<span id="L502" class="LineNr">502 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0\n"</span> +<span id="L500" class="LineNr">500 </span> <span class="Constant">"run: compare XMM3 with x/m32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L501" class="LineNr">501 </span> <span class="Constant">"run: effective address is 0x00002000 (<a href='010vm.cc.html#L10'>EAX</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L502" class="LineNr">502 </span> <span class="Constant">"run: SF=0; ZF=0; CF=0; OF=0</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L503" class="LineNr">503 </span> <span class="Delimiter">);</span> <span id="L504" class="LineNr">504 </span><span class="Delimiter">}</span> <span id="L505" class="LineNr">505 </span> <span id="L506" class="LineNr">506 </span><span class="Delimiter">:(before "End Two-Byte Opcodes Starting With 0f")</span> -<span id="L507" class="LineNr">507 </span><span class="Normal">case</span> <span class="Constant">0x2f</span>: <span class="Delimiter">{</span> <span class="Comment">// set SF if x32 < x/m32</span> +<span id="L507" class="LineNr">507 </span><span class="Normal">case</span> <span class="Constant">0x2f</span>: <span class="Delimiter">{</span> <span class="Comment">// set CF if x32 < x/m32</span> <span id="L508" class="LineNr">508 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> modrm = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> <span id="L509" class="LineNr">509 </span> <span class="Normal">const</span> <span class="Normal">uint8_t</span> reg1 = <span class="Delimiter">(</span>modrm>><span class="Constant">3</span><span class="Delimiter">)</span>&<span class="Constant">0x7</span><span class="Delimiter">;</span> -<span id="L510" class="LineNr">510 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare "</span> << <span class="SpecialChar"><a href='010vm.cc.html#L34'>Xname</a></span>[reg1] << <span class="Constant">" with x/m32"</span> << end<span class="Delimiter">();</span> -<span id="L511" class="LineNr">511 </span> <span class="Normal">const</span> <span class="Normal">float</span>* arg2 = <a href='023float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> +<span id="L510" class="LineNr">510 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"compare "</span> << Xname[reg1] << <span class="Constant">" with x/m32"</span> << end<span class="Delimiter">();</span> +<span id="L511" class="LineNr">511 </span> <span class="Normal">const</span> <span class="Normal">float</span>* arg2 = <a href='022float.cc.html#L468'>effective_address_float</a><span class="Delimiter">(</span>modrm<span class="Delimiter">);</span> <span id="L512" class="LineNr">512 </span> <span class="Comment">// Flag settings carefully copied from the Intel manual.</span> <span id="L513" class="LineNr">513 </span> <span class="Comment">// See also <a href="https://stackoverflow.com/questions/7057501/x86-assembler-floating-point-compare/7057771#7057771">https://stackoverflow.com/questions/7057501/x86-assembler-floating-point-compare/7057771#7057771</a></span> <span id="L514" class="LineNr">514 </span> SF = <a href='010vm.cc.html#L89'>ZF</a> = <a href='010vm.cc.html#L90'>CF</a> = <a href='010vm.cc.html#L91'>OF</a> = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L515" class="LineNr">515 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[reg1] == *arg2<span class="Delimiter">)</span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L516" class="LineNr">516 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L33'>Xmm</a></span>[reg1] < *arg2<span class="Delimiter">)</span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L517" class="LineNr">517 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span>+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> +<span id="L515" class="LineNr">515 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Xmm[reg1] == *arg2<span class="Delimiter">)</span> <a href='010vm.cc.html#L89'>ZF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L516" class="LineNr">516 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Xmm[reg1] < *arg2<span class="Delimiter">)</span> <a href='010vm.cc.html#L90'>CF</a> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L517" class="LineNr">517 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"SF="</span> << SF << <span class="Constant">"; ZF="</span> << <a href='010vm.cc.html#L89'>ZF</a> << <span class="Constant">"; CF="</span> << <a href='010vm.cc.html#L90'>CF</a> << <span class="Constant">"; OF="</span> << <a href='010vm.cc.html#L91'>OF</a> << end<span class="Delimiter">();</span> <span id="L518" class="LineNr">518 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L519" class="LineNr">519 </span><span class="Delimiter">}</span> </pre> diff --git a/html/linux/bootstrap/029syscalls.cc.html b/html/linux/bootstrap/029syscalls.cc.html new file mode 100644 index 00000000..75df3e81 --- /dev/null +++ b/html/linux/bootstrap/029syscalls.cc.html @@ -0,0 +1,189 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/bootstrap/029syscalls.cc</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="cpp"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.LineNr { } +.Constant { color: #008787; } +.Comment { color: #005faf; } +.Delimiter { color: #c000c0; } +.Identifier { color: #af5f00; } +.PreProc { color: #c000c0; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/029syscalls.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/029syscalls.cc</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="Delimiter">:(before "End Initialize Op Names")</span> +<span id="L2" class="LineNr"> 2 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">"software interrupt (int)"</span><span class="Delimiter">);</span> +<span id="L3" class="LineNr"> 3 </span> +<span id="L4" class="LineNr"> 4 </span><span class="Delimiter">:(before "End Single-Byte Opcodes")</span> +<span id="L5" class="LineNr"> 5 </span><span class="Normal">case</span> <span class="Constant">0xcd</span>: <span class="Delimiter">{</span> <span class="Comment">// int imm8 (software interrupt)</span> +<span id="L6" class="LineNr"> 6 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"syscall"</span> << end<span class="Delimiter">();</span> +<span id="L7" class="LineNr"> 7 </span> <span class="Normal">uint8_t</span> code = <a href='010vm.cc.html#L338'>next</a><span class="Delimiter">();</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>code != <span class="Constant">0x80</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Unimplemented interrupt code "</span> << <a href='010vm.cc.html#L407'>HEXBYTE</a> << code << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">" Only `int 80h` supported for now.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L12" class="LineNr"> 12 </span> <span class="Delimiter">}</span> +<span id="L13" class="LineNr"> 13 </span> <a href='029syscalls.cc.html#L18'>process_int80</a><span class="Delimiter">();</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L15" class="LineNr"> 15 </span><span class="Delimiter">}</span> +<span id="L16" class="LineNr"> 16 </span> +<span id="L17" class="LineNr"> 17 </span><span class="Delimiter">:(code)</span> +<span id="L18" class="LineNr"> 18 </span><span class="Normal">void</span> <a href='029syscalls.cc.html#L18'>process_int80</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Normal">switch</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Normal">case</span> <span class="Constant">1</span>: +<span id="L21" class="LineNr"> 21 </span> exit<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">exit code</span><span class="Comment">*/</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L23" class="LineNr"> 23 </span> <span class="Normal">case</span> <span class="Constant">3</span>: +<span id="L24" class="LineNr"> 24 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"read: "</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << Reg[ECX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << Reg[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L25" class="LineNr"> 25 </span> Reg[EAX]<span class="Delimiter">.</span>i = read<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span>Reg[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span>Reg[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L26" class="LineNr"> 26 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L27" class="LineNr"> 27 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"read: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L28" class="LineNr"> 28 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Normal">case</span> <span class="Constant">4</span>: +<span id="L30" class="LineNr"> 30 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"write: "</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << Reg[ECX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << Reg[EDX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L31" class="LineNr"> 31 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Reg[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L237'>mem_addr_string</a><span class="Delimiter">(</span>Reg[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> Reg[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L32" class="LineNr"> 32 </span> Reg[EAX]<span class="Delimiter">.</span>i = write<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">memory buffer</span><span class="Comment">*/</span><a href='010vm.cc.html#L192'>mem_addr_u8</a><span class="Delimiter">(</span>Reg[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">size</span><span class="Comment">*/</span>Reg[EDX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L33" class="LineNr"> 33 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"write: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L35" class="LineNr"> 35 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Normal">case</span> <span class="Constant">5</span>: <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <a href='029syscalls.cc.html#L92'>check_flags</a><span class="Delimiter">(</span><a href='010vm.cc.html#L11'>ECX</a><span class="Delimiter">);</span> +<span id="L38" class="LineNr"> 38 </span> <a href='029syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><a href='010vm.cc.html#L12'>EDX</a><span class="Delimiter">);</span> +<span id="L39" class="LineNr"> 39 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"open: "</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">' '</span> << Reg[ECX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L41" class="LineNr"> 41 </span> Reg[EAX]<span class="Delimiter">.</span>i = open<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">flags</span><span class="Comment">*/</span>Reg[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> +<span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"open: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Normal">case</span> <span class="Constant">6</span>: +<span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"close: "</span> << Reg[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L48" class="LineNr"> 48 </span> Reg[EAX]<span class="Delimiter">.</span>i = close<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">file descriptor</span><span class="Comment">*/</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L49" class="LineNr"> 49 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L50" class="LineNr"> 50 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"close: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Normal">case</span> <span class="Constant">8</span>: +<span id="L53" class="LineNr"> 53 </span> <a href='029syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><a href='010vm.cc.html#L11'>ECX</a><span class="Delimiter">);</span> +<span id="L54" class="LineNr"> 54 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"creat: "</span> << Reg[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L55" class="LineNr"> 55 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L56" class="LineNr"> 56 </span> Reg[EAX]<span class="Delimiter">.</span>i = creat<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">mode</span><span class="Comment">*/</span><span class="PreProc">0</span><span class="Constant">640</span><span class="Delimiter">);</span> +<span id="L57" class="LineNr"> 57 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"creat: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Normal">case</span> <span class="Constant">10</span>: +<span id="L61" class="LineNr"> 61 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"unlink: "</span> << Reg[EBX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L63" class="LineNr"> 63 </span> Reg[EAX]<span class="Delimiter">.</span>i = unlink<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> +<span id="L64" class="LineNr"> 64 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L65" class="LineNr"> 65 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unlink: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Normal">case</span> <span class="Constant">38</span>: +<span id="L68" class="LineNr"> 68 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"rename: "</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" -> "</span> << Reg[ECX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L69" class="LineNr"> 69 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Reg[EBX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L70" class="LineNr"> 70 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << Reg[ECX]<span class="Delimiter">.</span>u << <span class="Constant">" => "</span> << <a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L71" class="LineNr"> 71 </span> Reg[EAX]<span class="Delimiter">.</span>i = rename<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">old filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">new filename</span><span class="Comment">*/</span><a href='010vm.cc.html#L234'>mem_addr_kernel_string</a><span class="Delimiter">(</span>Reg[ECX]<span class="Delimiter">.</span>u<span class="Delimiter">));</span> +<span id="L72" class="LineNr"> 72 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>i << end<span class="Delimiter">();</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>i == -<span class="Constant">1</span><span class="Delimiter">)</span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"rename: "</span> << strerror<span class="Delimiter">(</span>errno<span class="Delimiter">)</span> << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Normal">case</span> <span class="Constant">90</span>: <span class="Comment">// mmap: allocate memory outside existing segment allocations</span> +<span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"mmap: allocate new segment"</span> << end<span class="Delimiter">();</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Comment">// Ignore most arguments for now: address hint, protection flags, sharing flags, fd, offset.</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Comment">// We only support anonymous maps.</span> +<span id="L79" class="LineNr"> 79 </span> Reg[EAX]<span class="Delimiter">.</span>u = <a href='029syscalls.cc.html#L116'>new_segment</a><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">length</span><span class="Comment">*/</span><a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>Reg[EBX]<span class="Delimiter">.</span>u+<span class="Constant">0x4</span><span class="Delimiter">));</span> +<span id="L80" class="LineNr"> 80 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth+<span class="Constant">1</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"result: "</span> << Reg[EAX]<span class="Delimiter">.</span>u << end<span class="Delimiter">();</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Normal">case</span> <span class="Constant">0xa2</span>: <span class="Comment">// nanosleep</span> +<span id="L83" class="LineNr"> 83 </span> cerr << <span class="Constant">"not sleeping</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Identifier">break</span><span class="Delimiter">;</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Normal">default</span>: +<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L226'>raise</a> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": unimplemented syscall "</span> << Reg[EAX]<span class="Delimiter">.</span>u << <span class="cSpecial">'\n'</span> << end<span class="Delimiter">();</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> +<span id="L88" class="LineNr"> 88 </span><span class="Delimiter">}</span> +<span id="L89" class="LineNr"> 89 </span> +<span id="L90" class="LineNr"> 90 </span><span class="Comment">// SubX is oblivious to file permissions, directories, symbolic links, terminals, and much else besides.</span> +<span id="L91" class="LineNr"> 91 </span><span class="Comment">// Also ignoring any concurrency considerations for now.</span> +<span id="L92" class="LineNr"> 92 </span><span class="Normal">void</span> <a href='029syscalls.cc.html#L92'>check_flags</a><span class="Delimiter">(</span><span class="Normal">int</span> <a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Normal">uint32_t</span> flags = Reg[reg]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>flags != <span class="Delimiter">((</span>flags & O_RDONLY<span class="Delimiter">)</span> | <span class="Delimiter">(</span>flags & O_WRONLY<span class="Delimiter">)))</span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": most POSIX flags to the open() syscall are not supported. Just O_RDONLY and O_WRONLY for now. Zero concurrent access support.</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L96" class="LineNr"> 96 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> +<span id="L98" class="LineNr"> 98 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>flags & O_RDONLY<span class="Delimiter">)</span> && <span class="Delimiter">(</span>flags & O_WRONLY<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": can't open a file for both reading and writing at once. See <a href="http://man7.org/linux/man-pages/man2/open.2.html.">http://man7.org/linux/man-pages/man2/open.2.html.</a></span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L100" class="LineNr">100 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> +<span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> +<span id="L103" class="LineNr">103 </span> +<span id="L104" class="LineNr">104 </span><span class="Normal">void</span> <a href='029syscalls.cc.html#L104'>check_mode</a><span class="Delimiter">(</span><span class="Normal">int</span> <a href='010vm.cc.html#L20'>reg</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L105" class="LineNr">105 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>Reg[reg]<span class="Delimiter">.</span>u != <span class="PreProc">0</span><span class="Constant">600</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L106" class="LineNr">106 </span> cerr << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L26'>EIP</a> << <span class="Constant">": SubX is oblivious to file permissions; register "</span> << <a href='010vm.cc.html#L20'>reg</a> << <span class="Constant">" must be 0x180.</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L107" class="LineNr">107 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> +<span id="L110" class="LineNr">110 </span> +<span id="L111" class="LineNr">111 </span><span class="Delimiter">:(before "End Globals")</span> +<span id="L112" class="LineNr">112 </span><span class="Comment">// Very primitive/fixed/insecure mmap segments for now.</span> +<span id="L113" class="LineNr">113 </span><span class="Normal">uint32_t</span> <a href='029syscalls.cc.html#L113'>Segments_allocated_above</a> = <a href='012elf.cc.html#L151'>END_HEAP</a><span class="Delimiter">;</span> +<span id="L114" class="LineNr">114 </span><span class="Delimiter">:(code)</span> +<span id="L115" class="LineNr">115 </span><span class="Comment">// always allocate multiples of the segment size</span> +<span id="L116" class="LineNr">116 </span><span class="Normal">uint32_t</span> <a href='029syscalls.cc.html#L116'>new_segment</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> length<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L117" class="LineNr">117 </span> assert<span class="Delimiter">(</span>length > <span class="Constant">0</span><span class="Delimiter">);</span> +<span id="L118" class="LineNr">118 </span> <span class="Normal">uint32_t</span> result = <span class="Delimiter">(</span><a href='029syscalls.cc.html#L113'>Segments_allocated_above</a> - length<span class="Delimiter">)</span> & <span class="Constant">0xff000000</span><span class="Delimiter">;</span> <span class="Comment">// same number of zeroes as SEGMENT_ALIGNMENT</span> +<span id="L119" class="LineNr">119 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result <= <a href='012elf.cc.html#L150'>START_HEAP</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"Allocated too many segments; the VM ran out of memory. "</span> +<span id="L121" class="LineNr">121 </span> << <span class="Constant">"Maybe <a href='010vm.cc.html#L98'>SEGMENT_ALIGNMENT</a> can be smaller?</span><span class="cSpecial">\n</span><span class="Constant">"</span> << <a href='003trace.cc.html#L173'>die</a><span class="Delimiter">();</span> +<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> +<span id="L123" class="LineNr">123 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span>result<span class="Delimiter">,</span> result+length<span class="Delimiter">));</span> +<span id="L124" class="LineNr">124 </span> <a href='029syscalls.cc.html#L113'>Segments_allocated_above</a> = result<span class="Delimiter">;</span> +<span id="L125" class="LineNr">125 </span> <span class="Identifier">return</span> result<span class="Delimiter">;</span> +<span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/030translate.cc.html b/html/linux/bootstrap/030translate.cc.html index b1daa9a2..c63a7fa8 100644 --- a/html/030translate.cc.html +++ b/html/linux/bootstrap/030translate.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 030translate.cc</title> +<title>Mu - linux/bootstrap/030translate.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.PreProc { color: #c000c0; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.SalientComment { color: #0000af; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.cSpecial { color: #008000; } -.SalientComment { color: #0000af; } +.PreProc { color: #c000c0; } --> </style> @@ -57,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/030translate.cc'>https://github.com/akkartik/mu/blob/main/030translate.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/030translate.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/030translate.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: After that lengthy prelude to define an x86 emulator, we are now ready to</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: start translating SubX notation.</span> @@ -69,7 +68,7 @@ if ('onhashchange' in window) { <span id="L8" class="LineNr"> 8 </span><span class="Delimiter">:(before "End Main")</span> <span id="L9" class="LineNr"> 9 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>argv[<span class="Constant">1</span>]<span class="Delimiter">,</span> <span class="Constant">"translate"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L10" class="LineNr"> 10 </span> <span class="Comment">// Outside of tests, traces must be explicitly requested.</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='003trace.cc.html#L446'>Trace_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <span class="SpecialChar"><a href='003trace.cc.html#L72'>Trace_stream</a></span> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L446'>Trace_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> <a href='003trace.cc.html#L72'>Trace_stream</a> = <span class="Normal">new</span> trace_stream<span class="Delimiter">;</span> <span id="L12" class="LineNr"> 12 </span> <a href='000organization.cc.html#L150'>reset</a><span class="Delimiter">();</span> <span id="L13" class="LineNr"> 13 </span> <span class="Comment">// Begin bootstrap translate</span> <span id="L14" class="LineNr"> 14 </span> program p<span class="Delimiter">;</span> @@ -79,7 +78,7 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr"> 18 </span> ++i<span class="Delimiter">;</span> <span id="L19" class="LineNr"> 19 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i >= argc<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L20" class="LineNr"> 20 </span> <a href='030translate.cc.html#L65'>print_translate_usage</a><span class="Delimiter">();</span> -<span id="L21" class="LineNr"> 21 </span> cerr << <span class="Constant">"'-o' must be followed by a filename to write results to\n"</span><span class="Delimiter">;</span> +<span id="L21" class="LineNr"> 21 </span> cerr << <span class="Constant">"'-o' must be followed by a filename to write results to</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L22" class="LineNr"> 22 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span> output_filename = argv[i]<span class="Delimiter">;</span> @@ -97,12 +96,12 @@ if ('onhashchange' in window) { <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <a href='030translate.cc.html#L65'>print_translate_usage</a><span class="Delimiter">();</span> -<span id="L39" class="LineNr"> 39 </span> cerr << <span class="Constant">"nothing to do; must provide at least one file to read\n"</span><span class="Delimiter">;</span> +<span id="L39" class="LineNr"> 39 </span> cerr << <span class="Constant">"nothing to do; must provide at least one file to read</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L40" class="LineNr"> 40 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>output_filename<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> <span id="L43" class="LineNr"> 43 </span> <a href='030translate.cc.html#L65'>print_translate_usage</a><span class="Delimiter">();</span> -<span id="L44" class="LineNr"> 44 </span> cerr << <span class="Constant">"must provide a filename to write to using '-o'\n"</span><span class="Delimiter">;</span> +<span id="L44" class="LineNr"> 44 </span> cerr << <span class="Constant">"must provide a filename to write to using '-o'</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L45" class="LineNr"> 45 </span> exit<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">}</span> <span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"begin"</span> << end<span class="Delimiter">();</span> @@ -124,7 +123,7 @@ if ('onhashchange' in window) { <span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> <span id="L64" class="LineNr"> 64 </span> <span id="L65" class="LineNr"> 65 </span><span class="Normal">void</span> <a href='030translate.cc.html#L65'>print_translate_usage</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> cerr << <span class="Constant">"Usage: bootstrap translate file1 file2 ... -o output\n"</span><span class="Delimiter">;</span> +<span id="L66" class="LineNr"> 66 </span> cerr << <span class="Constant">"Usage: bootstrap translate file1 file2 ... -o output</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> <span id="L68" class="LineNr"> 68 </span> <span id="L69" class="LineNr"> 69 </span><span class="Comment">// write out a program to a bare-bones ELF file</span> @@ -137,11 +136,11 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span><span class="Normal">void</span> save_elf<span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> ostream& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L77" class="LineNr"> 77 </span> <span class="Comment">// validation: stay consistent with the self-hosted translator</span> <span id="L78" class="LineNr"> 78 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a> == <span class="Constant">0</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"no 'Entry' label found\n"</span> << end<span class="Delimiter">();</span> +<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"no 'Entry' label found</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L80" class="LineNr"> 80 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"data"</span><span class="Delimiter">)</span> == <span class="Constant">NULL</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L83" class="LineNr"> 83 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"must include a 'data' segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L83" class="LineNr"> 83 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"must include a 'data' segment</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L84" class="LineNr"> 84 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> <span id="L86" class="LineNr"> 86 </span> <span class="Comment">// processing</span> @@ -152,22 +151,22 @@ if ('onhashchange' in window) { <span id="L91" class="LineNr"> 91 </span> <span id="L92" class="LineNr"> 92 </span><span class="Normal">void</span> <a href='030translate.cc.html#L92'>write_elf_header</a><span class="Delimiter">(</span>ostream& out<span class="Delimiter">,</span> <span class="Normal">const</span> program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> <span class="Normal">char</span> c = <span class="cSpecial">'\0'</span><span class="Delimiter">;</span> -<span id="L94" class="LineNr"> 94 </span><span class="PreProc">#define </span><span class="SpecialChar">O</span><span class="PreProc">(</span><span class="SpecialChar">X</span><span class="PreProc">) c = (</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">;</span><span class="PreProc"> out</span><span class="Delimiter">.</span><span class="PreProc">write(&c</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(c))</span> +<span id="L94" class="LineNr"> 94 </span><span class="PreProc">#define O(X) c = (X)</span><span class="Delimiter">;</span><span class="PreProc"> out</span><span class="Delimiter">.</span><span class="PreProc">write(&c</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(c))</span> <span id="L95" class="LineNr"> 95 </span><span class="Comment">// host is required to be little-endian</span> -<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define emit(</span><span class="SpecialChar">X</span><span class="PreProc">) out</span><span class="Delimiter">.</span><span class="PreProc">write(</span><span class="Normal">reinterpret_cast</span><span class="PreProc"><</span><span class="Normal">const</span><span class="PreProc"> </span><span class="Normal">char</span><span class="PreProc">*>(&</span><span class="SpecialChar">X</span><span class="PreProc">)</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(</span><span class="SpecialChar">X</span><span class="PreProc">))</span> +<span id="L96" class="LineNr"> 96 </span><span class="PreProc">#define emit(X) out</span><span class="Delimiter">.</span><span class="PreProc">write(</span><span class="Normal">reinterpret_cast</span><span class="PreProc"><</span><span class="Normal">const</span><span class="PreProc"> </span><span class="Normal">char</span><span class="PreProc">*>(&X)</span><span class="Delimiter">,</span><span class="PreProc"> </span><span class="Normal">sizeof</span><span class="PreProc">(X))</span> <span id="L97" class="LineNr"> 97 </span> <span class="SalientComment">//// ehdr</span> <span id="L98" class="LineNr"> 98 </span> <span class="Comment">// e_ident</span> -<span id="L99" class="LineNr"> 99 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x7f</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">E</span><span class="Comment">*/</span><span class="Constant">0x45</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">L</span><span class="Comment">*/</span><span class="Constant">0x4c</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">F</span><span class="Comment">*/</span><span class="Constant">0x46</span><span class="Delimiter">);</span> -<span id="L100" class="LineNr">100 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// 32-bit format</span> -<span id="L101" class="LineNr">101 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// little-endian</span> -<span id="L102" class="LineNr">102 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> -<span id="L103" class="LineNr">103 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Constant">8</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> <span class="Delimiter">}</span> +<span id="L99" class="LineNr"> 99 </span> O<span class="Delimiter">(</span><span class="Constant">0x7f</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">E</span><span class="Comment">*/</span><span class="Constant">0x45</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">L</span><span class="Comment">*/</span><span class="Constant">0x4c</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">F</span><span class="Comment">*/</span><span class="Constant">0x46</span><span class="Delimiter">);</span> +<span id="L100" class="LineNr">100 </span> O<span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// 32-bit format</span> +<span id="L101" class="LineNr">101 </span> O<span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> <span class="Comment">// little-endian</span> +<span id="L102" class="LineNr">102 </span> O<span class="Delimiter">(</span><span class="Constant">0x1</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> +<span id="L103" class="LineNr">103 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <span class="Constant">8</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> O<span class="Delimiter">(</span><span class="Constant">0x0</span><span class="Delimiter">);</span> <span class="Delimiter">}</span> <span id="L104" class="LineNr">104 </span> <span class="Comment">// e_type</span> -<span id="L105" class="LineNr">105 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x02</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L105" class="LineNr">105 </span> O<span class="Delimiter">(</span><span class="Constant">0x02</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L106" class="LineNr">106 </span> <span class="Comment">// e_machine</span> -<span id="L107" class="LineNr">107 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L107" class="LineNr">107 </span> O<span class="Delimiter">(</span><span class="Constant">0x03</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L108" class="LineNr">108 </span> <span class="Comment">// e_version</span> -<span id="L109" class="LineNr">109 </span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span class="SpecialChar">O</span><span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L109" class="LineNr">109 </span> O<span class="Delimiter">(</span><span class="Constant">0x01</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> O<span class="Delimiter">(</span><span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L110" class="LineNr">110 </span> <span class="Comment">// e_entry</span> <span id="L111" class="LineNr">111 </span> <span class="Normal">uint32_t</span> e_entry = p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a><span class="Delimiter">;</span> <span id="L112" class="LineNr">112 </span> <span class="Comment">// Override e_entry</span> @@ -187,7 +186,7 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> <span class="Normal">uint16_t</span> e_phentsize = <span class="Constant">0x20</span><span class="Delimiter">;</span> <span id="L127" class="LineNr">127 </span> emit<span class="Delimiter">(</span>e_phentsize<span class="Delimiter">);</span> <span id="L128" class="LineNr">128 </span> <span class="Comment">// e_phnum</span> -<span id="L129" class="LineNr">129 </span> <span class="Normal">uint16_t</span> e_phnum = <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> +<span id="L129" class="LineNr">129 </span> <span class="Normal">uint16_t</span> e_phnum = <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> <span id="L130" class="LineNr">130 </span> emit<span class="Delimiter">(</span>e_phnum<span class="Delimiter">);</span> <span id="L131" class="LineNr">131 </span> <span class="Comment">// e_shentsize</span> <span id="L132" class="LineNr">132 </span> <span class="Normal">uint16_t</span> dummy16 = <span class="Constant">0x0</span><span class="Delimiter">;</span> @@ -197,8 +196,8 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span> <span class="Comment">// e_shstrndx</span> <span id="L137" class="LineNr">137 </span> emit<span class="Delimiter">(</span>dummy16<span class="Delimiter">);</span> <span id="L138" class="LineNr">138 </span> -<span id="L139" class="LineNr">139 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> -<span id="L140" class="LineNr">140 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> +<span id="L140" class="LineNr">140 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L141" class="LineNr">141 </span> <span class="Normal">const</span> segment& curr = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L142" class="LineNr">142 </span> <span class="SalientComment">//// phdr</span> <span id="L143" class="LineNr">143 </span> <span class="Comment">// p_type</span> @@ -242,14 +241,14 @@ if ('onhashchange' in window) { <span id="L181" class="LineNr">181 </span> <span class="Comment">// prepare for next segment</span> <span id="L182" class="LineNr">182 </span> p_offset += size<span class="Delimiter">;</span> <span id="L183" class="LineNr">183 </span> <span class="Delimiter">}</span> -<span id="L184" class="LineNr">184 </span><span class="PreProc">#undef </span><span class="SpecialChar">O</span> +<span id="L184" class="LineNr">184 </span><span class="PreProc">#undef O</span> <span id="L185" class="LineNr">185 </span><span class="PreProc">#undef emit</span> <span id="L186" class="LineNr">186 </span><span class="Delimiter">}</span> <span id="L187" class="LineNr">187 </span> <span id="L188" class="LineNr">188 </span><span class="Normal">void</span> <a href='030translate.cc.html#L188'>write_segment</a><span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">,</span> ostream& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L189" class="LineNr">189 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L189" class="LineNr">189 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L190" class="LineNr">190 </span> <span class="Normal">const</span> vector<word>& w = s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">;</span> -<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L192" class="LineNr">192 </span> <span class="Normal">uint8_t</span> x = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">).</span>data<span class="Delimiter">);</span> <span class="Comment">// we're done with metadata by this point</span> <span id="L193" class="LineNr">193 </span> out<span class="Delimiter">.</span>write<span class="Delimiter">(</span><span class="Normal">reinterpret_cast</span><<span class="Normal">const</span> <span class="Normal">char</span>*><span class="Delimiter">(</span>&x<span class="Delimiter">),</span> <span class="Comment">/*</span><span class="Comment">sizeof(byte)</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> @@ -258,8 +257,8 @@ if ('onhashchange' in window) { <span id="L197" class="LineNr">197 </span> <span id="L198" class="LineNr">198 </span><span class="Normal">uint32_t</span> <a href='030translate.cc.html#L198'>num_words</a><span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L199" class="LineNr">199 </span> <span class="Normal">uint32_t</span> sum = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L200" class="LineNr">200 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> -<span id="L201" class="LineNr">201 </span> sum += <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> +<span id="L200" class="LineNr">200 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L201" class="LineNr">201 </span> sum += <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> <span id="L202" class="LineNr">202 </span> <span class="Identifier">return</span> sum<span class="Delimiter">;</span> <span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> diff --git a/html/031transforms.cc.html b/html/linux/bootstrap/031transforms.cc.html index 0f45bdbc..4d5b3ff4 100644 --- a/html/031transforms.cc.html +++ b/html/linux/bootstrap/031transforms.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 031transforms.cc</title> +<title>Mu - linux/bootstrap/031transforms.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -15,11 +15,10 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } -.Comment { color: #005faf; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } -.Delimiter { color: #c000c0; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.Comment { color: #005faf; } +.Delimiter { color: #c000c0; } --> </style> @@ -53,16 +52,16 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/031transforms.cc'>https://github.com/akkartik/mu/blob/main/031transforms.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/031transforms.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/031transforms.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Delimiter">:(before "End Types")</span> <span id="L2" class="LineNr"> 2 </span><span class="Normal">typedef</span> <span class="Normal">void</span> <span class="Delimiter">(</span>*transform_fn<span class="Delimiter">)(</span>program&<span class="Delimiter">);</span> <span id="L3" class="LineNr"> 3 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L4" class="LineNr"> 4 </span>vector<transform_fn> <span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">;</span> +<span id="L4" class="LineNr"> 4 </span>vector<transform_fn> <a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">;</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">:(before "End transform(program& p)")</span> -<span id="L7" class="LineNr"> 7 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> t = <span class="Constant">0</span><span class="Delimiter">;</span> t < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">);</span> ++t<span class="Delimiter">)</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">(</span>*<span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>t<span class="Delimiter">))(</span>p<span class="Delimiter">);</span> +<span id="L7" class="LineNr"> 7 </span><span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> t = <span class="Constant">0</span><span class="Delimiter">;</span> t < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">);</span> ++t<span class="Delimiter">)</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">(</span>*Transform<span class="Delimiter">.</span>at<span class="Delimiter">(</span>t<span class="Delimiter">))(</span>p<span class="Delimiter">);</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L11" class="LineNr">11 </span><span class="Comment">// Begin Transforms</span> diff --git a/html/032operands.cc.html b/html/linux/bootstrap/032operands.cc.html index f7118508..b4d9f1ff 100644 --- a/html/032operands.cc.html +++ b/html/linux/bootstrap/032operands.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 032operands.cc</title> +<title>Mu - linux/bootstrap/032operands.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -15,14 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .cSpecial { color: #008000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.SalientComment { color: #0000af; } --> </style> @@ -56,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/032operands.cc'>https://github.com/akkartik/mu/blob/main/032operands.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/032operands.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/032operands.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Metadata for fields of an x86 instruction.</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//:</span> @@ -72,20 +70,20 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span><span class="Comment">//: pack and order the bytes corresponding to the arguments in an instruction.</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> -<span id="L15" class="LineNr"> 15 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"instructions"</span><span class="Delimiter">,</span> -<span id="L16" class="LineNr"> 16 </span> <span class="Constant">"Each x86 instruction consists of an instruction or opcode and some number\n"</span> -<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"of arguments.\n"</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"Each argument has a type. An instruction won't have more than one argument of\n"</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"any type.\n"</span> -<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"Each instruction has some set of allowed argument types. It'll reject others.\n"</span> -<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"The complete list of argument types: mod, subop, r32 (integer register),\n"</span> -<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"rm32 (integer register or memory), x32 (floating point register),\n"</span> -<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"xm32 (floating point register or memory), scale, index, base, disp8, disp16,\n"</span> -<span id="L24" class="LineNr"> 24 </span> <span class="Constant">"disp32,imm8,imm32.\n"</span> -<span id="L25" class="LineNr"> 25 </span> <span class="Constant">"Each of these has its own help page. Try reading 'bootstrap help mod' next.\n"</span> +<span id="L15" class="LineNr"> 15 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"instructions"</span><span class="Delimiter">,</span> +<span id="L16" class="LineNr"> 16 </span> <span class="Constant">"Each x86 instruction consists of an instruction or opcode and some number</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Constant">"of arguments.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Constant">"Each argument has a type. An instruction won't have more than one argument of</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"any type.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr"> 20 </span> <span class="Constant">"Each instruction has some set of allowed argument types. It'll reject others.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Constant">"The complete list of argument types: mod, subop, r32 (integer register),</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Constant">"rm32 (integer register or memory), x32 (floating point register),</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L23" class="LineNr"> 23 </span> <span class="Constant">"xm32 (floating point register or memory), scale, index, base, disp8, disp16,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L24" class="LineNr"> 24 </span> <span class="Constant">"disp32,imm8,imm32.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L25" class="LineNr"> 25 </span> <span class="Constant">"Each of these has its own help page. Try reading 'bootstrap help mod' next.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L26" class="LineNr"> 26 </span><span class="Delimiter">);</span> <span id="L27" class="LineNr"> 27 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Contents")</span> -<span id="L28" class="LineNr"> 28 </span>cerr << <span class="Constant">" instructions\n"</span><span class="Delimiter">;</span> +<span id="L28" class="LineNr"> 28 </span>cerr << <span class="Constant">" instructions</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> <span id="L29" class="LineNr"> 29 </span> <span id="L30" class="LineNr"> 30 </span><span class="Delimiter">:(before "Running Test Program")</span> <span id="L31" class="LineNr"> 31 </span>transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> @@ -94,155 +92,155 @@ if ('onhashchange' in window) { <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">:(code)</span> <span id="L35" class="LineNr"> 35 </span><span class="Normal">void</span> <a href='032operands.cc.html#L35'>test_pack_immediate_constants</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L36" class="LineNr"> 36 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L38" class="LineNr"> 38 </span> <span class="Constant">"bb 0x2a/imm32\n"</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L38" class="LineNr"> 38 </span> <span class="Constant">"bb 0x2a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">);</span> <span id="L40" class="LineNr"> 40 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L41" class="LineNr"> 41 </span> <span class="Constant">"transform: packing instruction 'bb 0x2a/imm32'\n"</span> -<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"transform: instruction after packing: 'bb 2a 00 00 00'\n"</span> -<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"run: copy imm32 0x0000002a to EBX\n"</span> +<span id="L41" class="LineNr"> 41 </span> <span class="Constant">"transform: packing instruction 'bb 0x2a/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L42" class="LineNr"> 42 </span> <span class="Constant">"transform: instruction after packing: 'bb 2a 00 00 00'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L43" class="LineNr"> 43 </span> <span class="Constant">"run: copy imm32 0x0000002a to <a href='010vm.cc.html#L13'>EBX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">);</span> <span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> <span id="L46" class="LineNr"> 46 </span> <span id="L47" class="LineNr"> 47 </span><span class="Comment">//: complete set of valid argument types</span> <span id="L48" class="LineNr"> 48 </span> <span id="L49" class="LineNr"> 49 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L50" class="LineNr"> 50 </span>set<string> <span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">;</span> +<span id="L50" class="LineNr"> 50 </span>set<string> <a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">;</span> <span id="L51" class="LineNr"> 51 </span><span class="Delimiter">:(before "End One-time Setup")</span> -<span id="L52" class="LineNr"> 52 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"subop"</span><span class="Delimiter">);</span> -<span id="L53" class="LineNr"> 53 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"mod"</span><span class="Delimiter">);</span> -<span id="L54" class="LineNr"> 54 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"rm32"</span><span class="Delimiter">);</span> -<span id="L55" class="LineNr"> 55 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"xm32"</span><span class="Delimiter">);</span> -<span id="L56" class="LineNr"> 56 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"base"</span><span class="Delimiter">);</span> -<span id="L57" class="LineNr"> 57 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"index"</span><span class="Delimiter">);</span> -<span id="L58" class="LineNr"> 58 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"scale"</span><span class="Delimiter">);</span> -<span id="L59" class="LineNr"> 59 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"r32"</span><span class="Delimiter">);</span> -<span id="L60" class="LineNr"> 60 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"x32"</span><span class="Delimiter">);</span> -<span id="L61" class="LineNr"> 61 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp8"</span><span class="Delimiter">);</span> -<span id="L62" class="LineNr"> 62 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp16"</span><span class="Delimiter">);</span> -<span id="L63" class="LineNr"> 63 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp32"</span><span class="Delimiter">);</span> -<span id="L64" class="LineNr"> 64 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm8"</span><span class="Delimiter">);</span> -<span id="L65" class="LineNr"> 65 </span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm32"</span><span class="Delimiter">);</span> +<span id="L52" class="LineNr"> 52 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"subop"</span><span class="Delimiter">);</span> +<span id="L53" class="LineNr"> 53 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"mod"</span><span class="Delimiter">);</span> +<span id="L54" class="LineNr"> 54 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"rm32"</span><span class="Delimiter">);</span> +<span id="L55" class="LineNr"> 55 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"xm32"</span><span class="Delimiter">);</span> +<span id="L56" class="LineNr"> 56 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"base"</span><span class="Delimiter">);</span> +<span id="L57" class="LineNr"> 57 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"index"</span><span class="Delimiter">);</span> +<span id="L58" class="LineNr"> 58 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"scale"</span><span class="Delimiter">);</span> +<span id="L59" class="LineNr"> 59 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"r32"</span><span class="Delimiter">);</span> +<span id="L60" class="LineNr"> 60 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"x32"</span><span class="Delimiter">);</span> +<span id="L61" class="LineNr"> 61 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp8"</span><span class="Delimiter">);</span> +<span id="L62" class="LineNr"> 62 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp16"</span><span class="Delimiter">);</span> +<span id="L63" class="LineNr"> 63 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"disp32"</span><span class="Delimiter">);</span> +<span id="L64" class="LineNr"> 64 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm8"</span><span class="Delimiter">);</span> +<span id="L65" class="LineNr"> 65 </span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>insert<span class="Delimiter">(</span><span class="Constant">"imm32"</span><span class="Delimiter">);</span> <span id="L66" class="LineNr"> 66 </span> <span id="L67" class="LineNr"> 67 </span><span class="Delimiter">:(before "End <a href='001help.cc.html#L53'>Help</a> Texts")</span> <span id="L68" class="LineNr"> 68 </span><a href='032operands.cc.html#L70'>init_argument_type_help</a><span class="Delimiter">();</span> <span id="L69" class="LineNr"> 69 </span><span class="Delimiter">:(code)</span> <span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='032operands.cc.html#L70'>init_argument_type_help</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> -<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"2-bit argument controlling the _addressing mode_ of many instructions,\n"</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"to determine how to compute the _effective address_ to look up memory at\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"based on the 'rm32' argument and potentially others.\n"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"\n"</span> -<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"If mod = 3, just operate on the <a href='003trace.cc.html#L117'>contents</a> of the register specified by rm32\n"</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">" (direct mode).\n"</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"If mod = 2, effective address is usually* rm32 + disp32\n"</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">" (indirect mode with displacement).\n"</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"If mod = 1, effective address is usually* rm32 + disp8\n"</span> -<span id="L81" class="LineNr"> 81 </span> <span class="Constant">" (indirect mode with displacement).\n"</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"If mod = 0, effective address is usually* rm32 (indirect mode).\n"</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"(* - The exception is when rm32 is '4'. Register 4 is the stack pointer (<a href='010vm.cc.html#L14'>ESP</a>).\n"</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Constant">" Using it as an address gets more involved. For more details,\n"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" try reading the help pages for 'base', 'index' and 'scale'.)\n"</span> -<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"\n"</span> -<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> -<span id="L89" class="LineNr"> 89 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="SpecialChar">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L90" class="LineNr"> 90 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L71" class="LineNr"> 71 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> +<span id="L72" class="LineNr"> 72 </span> <span class="Constant">"2-bit argument controlling the _addressing mode_ of many instructions,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"to determine how to compute the _effective address_ to look up memory at</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"based on the 'rm32' argument and potentially others.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L75" class="LineNr"> 75 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="Constant">"If mod = 3, just operate on the <a href='003trace.cc.html#L117'>contents</a> of the register specified by rm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">" (direct mode).</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"If mod = 2, effective address is usually* rm32 + <a href='040tests.cc.html#L82'>disp32</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">" (indirect mode with displacement).</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"If mod = 1, effective address is usually* rm32 + disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Constant">" (indirect mode with displacement).</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"If mod = 0, effective address is usually* rm32 (indirect mode).</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"(* - The exception is when rm32 is '4'. Register 4 is the stack pointer (<a href='010vm.cc.html#L14'>ESP</a>).</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Constant">" Using it as an address gets more involved. For more details,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">" try reading the help pages for 'base', 'index' and 'scale'.)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"developer's manual that are also included in this repo:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the ModR/M byte.</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the SIB byte.</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">);</span> -<span id="L92" class="LineNr"> 92 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"Additional 3-bit argument for determining the instruction when the opcode\n"</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"is 81, 8f, d3, f7 or ff.\n"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"Can't coexist with argument of type 'r32' in a single instruction, because\n"</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"the two use the same bits.\n"</span> +<span id="L92" class="LineNr"> 92 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"Additional 3-bit argument for determining the instruction when the opcode</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"is 81, 8f, d3, f7 or ff.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"Can't coexist with argument of type 'r32' in a single instruction, because</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"the two use the same bits.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">);</span> -<span id="L98" class="LineNr"> 98 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> -<span id="L99" class="LineNr"> 99 </span> <span class="Constant">"3-bit argument specifying an integer register argument used directly,\n"</span> -<span id="L100" class="LineNr">100 </span> <span class="Constant">"without any further addressing modes.\n"</span> +<span id="L98" class="LineNr"> 98 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> +<span id="L99" class="LineNr"> 99 </span> <span class="Constant">"3-bit argument specifying an integer register argument used directly,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L100" class="LineNr">100 </span> <span class="Constant">"without any further addressing modes.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L101" class="LineNr">101 </span> <span class="Delimiter">);</span> -<span id="L102" class="LineNr">102 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"x32"</span><span class="Delimiter">,</span> -<span id="L103" class="LineNr">103 </span> <span class="Constant">"3-bit argument specifying a floating-point register argument used directly,\n"</span> -<span id="L104" class="LineNr">104 </span> <span class="Constant">"without any further addressing modes.\n"</span> +<span id="L102" class="LineNr">102 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"x32"</span><span class="Delimiter">,</span> +<span id="L103" class="LineNr">103 </span> <span class="Constant">"3-bit argument specifying a floating-point register argument used directly,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L104" class="LineNr">104 </span> <span class="Constant">"without any further addressing modes.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L105" class="LineNr">105 </span> <span class="Delimiter">);</span> -<span id="L106" class="LineNr">106 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> -<span id="L107" class="LineNr">107 </span> <span class="Constant">"32-bit value in an integer register or memory. The precise details of its\n"</span> -<span id="L108" class="LineNr">108 </span> <span class="Constant">"construction depend on the eponymous 3-bit 'rm32' argument, the 'mod' argument,\n"</span> -<span id="L109" class="LineNr">109 </span> <span class="Constant">"and also potentially the 'SIB' arguments ('scale', 'index' and 'base')\n"</span> -<span id="L110" class="LineNr">110 </span> <span class="Constant">"and a displacement ('disp8' or 'disp32').\n"</span> -<span id="L111" class="LineNr">111 </span> <span class="Constant">"\n"</span> -<span id="L112" class="LineNr">112 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> -<span id="L113" class="LineNr">113 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> -<span id="L114" class="LineNr">114 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="SpecialChar">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L115" class="LineNr">115 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> +<span id="L106" class="LineNr">106 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> +<span id="L107" class="LineNr">107 </span> <span class="Constant">"32-bit value in an integer register or memory. The precise details of its</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L108" class="LineNr">108 </span> <span class="Constant">"construction depend on the eponymous 3-bit 'rm32' argument, the 'mod' argument,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L109" class="LineNr">109 </span> <span class="Constant">"and also potentially the 'SIB' arguments ('scale', 'index' and 'base')</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L110" class="LineNr">110 </span> <span class="Constant">"and a displacement ('disp8' or 'disp32').</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L111" class="LineNr">111 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L112" class="LineNr">112 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L113" class="LineNr">113 </span> <span class="Constant">"developer's manual that are also included in this repo:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L114" class="LineNr">114 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the ModR/M byte.</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L115" class="LineNr">115 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the SIB byte.</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L116" class="LineNr">116 </span> <span class="Delimiter">);</span> -<span id="L117" class="LineNr">117 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"xm32"</span><span class="Delimiter">,</span> -<span id="L118" class="LineNr">118 </span> <span class="Constant">"32-bit value in a floating-point register or memory. The precise details of its\n"</span> -<span id="L119" class="LineNr">119 </span> <span class="Constant">"construction depend on the eponymous 3-bit 'xm32' argument, the 'mod' argument,\n"</span> -<span id="L120" class="LineNr">120 </span> <span class="Constant">"and also potentially the 'SIB' arguments ('scale', 'index' and 'base')\n"</span> -<span id="L121" class="LineNr">121 </span> <span class="Constant">"and a displacement ('disp8' or 'disp32').\n"</span> -<span id="L122" class="LineNr">122 </span> <span class="Constant">"\n"</span> -<span id="L123" class="LineNr">123 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software\n"</span> -<span id="L124" class="LineNr">124 </span> <span class="Constant">"developer's manual that are also included in this repo:\n"</span> -<span id="L125" class="LineNr">125 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, \"</span><span class="Constant">32</span>-bit addressing with the ModR/<span class="SpecialChar">M</span> byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L126" class="LineNr">126 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte<span class="Delimiter">.</span>\<span class="Constant">".\n"</span> -<span id="L127" class="LineNr">127 </span> <span class="Constant">"\n"</span> -<span id="L128" class="LineNr">128 </span> <span class="Constant">"One subtlety here: while /xm32 refers to floating-point registers in direct mode\n"</span> -<span id="L129" class="LineNr">129 </span> <span class="Constant">"(when /mod is 3), other addressing modes to construct memory addresses use integer registers\n"</span> -<span id="L130" class="LineNr">130 </span> <span class="Constant">"(just like /rm32). Other than direct mode, its behavior is identical to /rm32.\n"</span> +<span id="L117" class="LineNr">117 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"xm32"</span><span class="Delimiter">,</span> +<span id="L118" class="LineNr">118 </span> <span class="Constant">"32-bit value in a floating-point register or memory. The precise details of its</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L119" class="LineNr">119 </span> <span class="Constant">"construction depend on the eponymous 3-bit 'xm32' argument, the 'mod' argument,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L120" class="LineNr">120 </span> <span class="Constant">"and also potentially the 'SIB' arguments ('scale', 'index' and 'base')</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L121" class="LineNr">121 </span> <span class="Constant">"and a displacement ('disp8' or 'disp32').</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L122" class="LineNr">122 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L123" class="LineNr">123 </span> <span class="Constant">"For complete details, spend some time with two tables in the IA-32 software</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L124" class="LineNr">124 </span> <span class="Constant">"developer's manual that are also included in this repo:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L125" class="LineNr">125 </span> <span class="Constant">" - modrm.pdf: volume 2, table 2-2, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the ModR/M byte.</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L126" class="LineNr">126 </span> <span class="Constant">" - sib.pdf: volume 2, table 2-3, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the SIB byte.</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L127" class="LineNr">127 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L128" class="LineNr">128 </span> <span class="Constant">"One subtlety here: while /xm32 refers to floating-point registers in direct mode</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L129" class="LineNr">129 </span> <span class="Constant">"(when /mod is 3), other addressing modes to construct memory addresses use integer registers</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L130" class="LineNr">130 </span> <span class="Constant">"(just like /rm32). Other than direct mode, its behavior is identical to /rm32.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L131" class="LineNr">131 </span> <span class="Delimiter">);</span> -<span id="L132" class="LineNr">132 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> -<span id="L133" class="LineNr">133 </span> <span class="Constant">"Additional 3-bit argument (when 'rm32' is 4, unless 'mod' is 3) specifying the\n"</span> -<span id="L134" class="LineNr">134 </span> <span class="Constant">"register containing an address to look up.\n"</span> -<span id="L135" class="LineNr">135 </span> <span class="Constant">"This address may be further modified by 'index' and 'scale' arguments.\n"</span> -<span id="L136" class="LineNr">136 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L137" class="LineNr">137 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> -<span id="L138" class="LineNr">138 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> -<span id="L139" class="LineNr">139 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> +<span id="L132" class="LineNr">132 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> +<span id="L133" class="LineNr">133 </span> <span class="Constant">"Additional 3-bit argument (when 'rm32' is 4, unless 'mod' is 3) specifying the</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L134" class="LineNr">134 </span> <span class="Constant">"register containing an address to look up.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L135" class="LineNr">135 </span> <span class="Constant">"This address may be further modified by 'index' and 'scale' arguments.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L136" class="LineNr">136 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L137" class="LineNr">137 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L138" class="LineNr">138 </span> <span class="Constant">"volume 2, table 2-3, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the SIB byte</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L139" class="LineNr">139 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L140" class="LineNr">140 </span> <span class="Delimiter">);</span> -<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> -<span id="L142" class="LineNr">142 </span> <span class="Constant">"Optional 3-bit argument (when 'rm32' is 4 unless 'mod' is 3) that can be added to\n"</span> -<span id="L143" class="LineNr">143 </span> <span class="Constant">"the 'base' argument to compute the 'effective address' at which to look up memory.\n"</span> -<span id="L144" class="LineNr">144 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L145" class="LineNr">145 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> -<span id="L146" class="LineNr">146 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> -<span id="L147" class="LineNr">147 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> +<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> +<span id="L142" class="LineNr">142 </span> <span class="Constant">"Optional 3-bit argument (when 'rm32' is 4 unless 'mod' is 3) that can be added to</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L143" class="LineNr">143 </span> <span class="Constant">"the 'base' argument to compute the 'effective address' at which to look up memory.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L144" class="LineNr">144 </span> <span class="Constant">" effective address = base + index*scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L145" class="LineNr">145 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L146" class="LineNr">146 </span> <span class="Constant">"volume 2, table 2-3, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the SIB byte</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L147" class="LineNr">147 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L148" class="LineNr">148 </span> <span class="Delimiter">);</span> -<span id="L149" class="LineNr">149 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> -<span id="L150" class="LineNr">150 </span> <span class="Constant">"Optional 2-bit argument (when 'rm32' is 4 unless 'mod' is 3) that encodes a\n"</span> -<span id="L151" class="LineNr">151 </span> <span class="Constant">"power of 2 to be multiplied to the 'index' argument before adding the result to\n"</span> -<span id="L152" class="LineNr">152 </span> <span class="Constant">"the 'base' argument to compute the _effective address_ to operate on.\n"</span> -<span id="L153" class="LineNr">153 </span> <span class="Constant">" effective address = base + index * scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)\n"</span> -<span id="L154" class="LineNr">154 </span> <span class="Constant">"\n"</span> -<span id="L155" class="LineNr">155 </span> <span class="Constant">"When scale is 0, use index unmodified.\n"</span> -<span id="L156" class="LineNr">156 </span> <span class="Constant">"When scale is 1, multiply index by 2.\n"</span> -<span id="L157" class="LineNr">157 </span> <span class="Constant">"When scale is 2, multiply index by 4.\n"</span> -<span id="L158" class="LineNr">158 </span> <span class="Constant">"When scale is 3, multiply index by 8.\n"</span> -<span id="L159" class="LineNr">159 </span> <span class="Constant">"\n"</span> -<span id="L160" class="LineNr">160 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,\n"</span> -<span id="L161" class="LineNr">161 </span> <span class="Constant">"volume 2, table 2-3, \"</span><span class="Constant">32</span>-bit addressing with the SIB byte\<span class="Constant">".\n"</span> -<span id="L162" class="LineNr">162 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.\n"</span> +<span id="L149" class="LineNr">149 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> +<span id="L150" class="LineNr">150 </span> <span class="Constant">"Optional 2-bit argument (when 'rm32' is 4 unless 'mod' is 3) that encodes a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L151" class="LineNr">151 </span> <span class="Constant">"power of 2 to be multiplied to the 'index' argument before adding the result to</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L152" class="LineNr">152 </span> <span class="Constant">"the 'base' argument to compute the _effective address_ to operate on.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L153" class="LineNr">153 </span> <span class="Constant">" effective address = base + index * scale + displacement (disp8 or <a href='040tests.cc.html#L82'>disp32</a>)</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L154" class="LineNr">154 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L155" class="LineNr">155 </span> <span class="Constant">"When scale is 0, use index unmodified.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L156" class="LineNr">156 </span> <span class="Constant">"When scale is 1, multiply index by 2.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L157" class="LineNr">157 </span> <span class="Constant">"When scale is 2, multiply index by 4.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L158" class="LineNr">158 </span> <span class="Constant">"When scale is 3, multiply index by 8.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L159" class="LineNr">159 </span> <span class="Constant">"</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L160" class="LineNr">160 </span> <span class="Constant">"For complete details, spend some time with the IA-32 software developer's manual,</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L161" class="LineNr">161 </span> <span class="Constant">"volume 2, table 2-3, </span><span class="cSpecial">\"</span><span class="Constant">32-bit addressing with the SIB byte</span><span class="cSpecial">\"</span><span class="Constant">.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L162" class="LineNr">162 </span> <span class="Constant">"It is included in this repository as 'sib.pdf'.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L163" class="LineNr">163 </span> <span class="Delimiter">);</span> -<span id="L164" class="LineNr">164 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> -<span id="L165" class="LineNr">165 </span> <span class="Constant">"8-bit value to be added in many instructions.\n"</span> +<span id="L164" class="LineNr">164 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> +<span id="L165" class="LineNr">165 </span> <span class="Constant">"8-bit value to be added in many instructions.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L166" class="LineNr">166 </span> <span class="Delimiter">);</span> -<span id="L167" class="LineNr">167 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> -<span id="L168" class="LineNr">168 </span> <span class="Constant">"16-bit value to be added in many instructions.\n"</span> -<span id="L169" class="LineNr">169 </span> <span class="Constant">"Currently not used in any SubX instructions.\n"</span> +<span id="L167" class="LineNr">167 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> +<span id="L168" class="LineNr">168 </span> <span class="Constant">"16-bit value to be added in many instructions.</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L169" class="LineNr">169 </span> <span class="Constant">"Currently not used in any SubX instructions.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L170" class="LineNr">170 </span> <span class="Delimiter">);</span> -<span id="L171" class="LineNr">171 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">,</span> -<span id="L172" class="LineNr">172 </span> <span class="Constant">"32-bit value to be added in many instructions.\n"</span> +<span id="L171" class="LineNr">171 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">,</span> +<span id="L172" class="LineNr">172 </span> <span class="Constant">"32-bit value to be added in many instructions.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L173" class="LineNr">173 </span> <span class="Delimiter">);</span> -<span id="L174" class="LineNr">174 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> -<span id="L175" class="LineNr">175 </span> <span class="Constant">"8-bit value for many instructions.\n"</span> +<span id="L174" class="LineNr">174 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> +<span id="L175" class="LineNr">175 </span> <span class="Constant">"8-bit value for many instructions.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L176" class="LineNr">176 </span> <span class="Delimiter">);</span> -<span id="L177" class="LineNr">177 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='001help.cc.html#L53'>Help</a></span><span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">,</span> -<span id="L178" class="LineNr">178 </span> <span class="Constant">"32-bit value for many instructions.\n"</span> +<span id="L177" class="LineNr">177 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='001help.cc.html#L53'>Help</a><span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">,</span> +<span id="L178" class="LineNr">178 </span> <span class="Constant">"32-bit value for many instructions.</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L179" class="LineNr">179 </span> <span class="Delimiter">);</span> <span id="L180" class="LineNr">180 </span><span class="Delimiter">}</span> <span id="L181" class="LineNr">181 </span> -<span id="L182" class="LineNr">182 </span><span class="SalientComment">//:: transform packing arguments into bytes in the right order</span> +<span id="L182" class="LineNr">182 </span><span class="Comment">//:: transform packing arguments into bytes in the right order</span> <span id="L183" class="LineNr">183 </span> <span id="L184" class="LineNr">184 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L185" class="LineNr">185 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>pack_arguments<span class="Delimiter">);</span> +<span id="L185" class="LineNr">185 </span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>pack_arguments<span class="Delimiter">);</span> <span id="L186" class="LineNr">186 </span> <span id="L187" class="LineNr">187 </span><span class="Delimiter">:(code)</span> <span id="L188" class="LineNr">188 </span><span class="Normal">void</span> pack_arguments<span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -250,7 +248,7 @@ if ('onhashchange' in window) { <span id="L190" class="LineNr">190 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> <span id="L191" class="LineNr">191 </span> <span class="Comment">// Pack Operands(segment code)</span> <span id="L192" class="LineNr">192 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- pack arguments"</span> << end<span class="Delimiter">();</span> -<span id="L193" class="LineNr">193 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L194" class="LineNr">194 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L195" class="LineNr">195 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L196" class="LineNr">196 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"packing instruction '"</span> << to_string<span class="Delimiter">(</span><span class="Comment">/*</span><span class="Comment">with metadata</span><span class="Comment">*/</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> @@ -282,7 +280,7 @@ if ('onhashchange' in window) { <span id="L222" class="LineNr">222 </span><span class="Normal">void</span> <a href='032operands.cc.html#L222'>add_modrm_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L223" class="LineNr">223 </span> <span class="Normal">uint8_t</span> mod=<span class="Constant">0</span><span class="Delimiter">,</span> reg_subop=<span class="Constant">0</span><span class="Delimiter">,</span> rm32=<span class="Constant">0</span><span class="Delimiter">;</span> <span id="L224" class="LineNr">224 </span> <span class="Normal">bool</span> emit = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L225" class="LineNr">225 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L225" class="LineNr">225 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L226" class="LineNr">226 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L228" class="LineNr">228 </span> mod = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> @@ -316,7 +314,7 @@ if ('onhashchange' in window) { <span id="L256" class="LineNr">256 </span><span class="Normal">void</span> <a href='032operands.cc.html#L256'>add_sib_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L257" class="LineNr">257 </span> <span class="Normal">uint8_t</span> scale=<span class="Constant">0</span><span class="Delimiter">,</span> index=<span class="Constant">0</span><span class="Delimiter">,</span> base=<span class="Constant">0</span><span class="Delimiter">;</span> <span id="L258" class="LineNr">258 </span> <span class="Normal">bool</span> emit = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L259" class="LineNr">259 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L260" class="LineNr">260 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L261" class="LineNr">261 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L262" class="LineNr">262 </span> scale = <a href='011run.cc.html#L288'>hex_byte</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> @@ -336,7 +334,7 @@ if ('onhashchange' in window) { <span id="L276" class="LineNr">276 </span><span class="Delimiter">}</span> <span id="L277" class="LineNr">277 </span> <span id="L278" class="LineNr">278 </span><span class="Normal">void</span> <a href='032operands.cc.html#L278'>add_disp_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L279" class="LineNr">279 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L279" class="LineNr">279 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L280" class="LineNr">280 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L281" class="LineNr">281 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> <span id="L282" class="LineNr">282 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> @@ -348,7 +346,7 @@ if ('onhashchange' in window) { <span id="L288" class="LineNr">288 </span><span class="Delimiter">}</span> <span id="L289" class="LineNr">289 </span> <span id="L290" class="LineNr">290 </span><span class="Normal">void</span> <a href='032operands.cc.html#L290'>add_imm_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">,</span> line& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L291" class="LineNr">291 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L291" class="LineNr">291 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L292" class="LineNr">292 </span> <span class="Normal">const</span> word& curr = in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L293" class="LineNr">293 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">))</span> <span id="L294" class="LineNr">294 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> @@ -393,7 +391,7 @@ if ('onhashchange' in window) { <span id="L333" class="LineNr">333 </span> <span id="L334" class="LineNr">334 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> vector<word>& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L335" class="LineNr">335 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L336" class="LineNr">336 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L336" class="LineNr">336 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L337" class="LineNr">337 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L338" class="LineNr">338 </span> out << in<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> <span id="L339" class="LineNr">339 </span> <span class="Delimiter">}</span> @@ -414,94 +412,94 @@ if ('onhashchange' in window) { <span id="L354" class="LineNr">354 </span><span class="Delimiter">:(code)</span> <span id="L355" class="LineNr">355 </span><span class="Normal">void</span> <a href='032operands.cc.html#L355'>test_pack_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L356" class="LineNr">356 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L358" class="LineNr">358 </span> <span class="Constant">"74 2/disp8\n"</span> <span class="Comment">// jump 2 bytes away if ZF is set</span> +<span id="L357" class="LineNr">357 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L358" class="LineNr">358 </span> <span class="Constant">"74 2/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// jump 2 bytes away if ZF is set</span> <span id="L359" class="LineNr">359 </span> <span class="Delimiter">);</span> <span id="L360" class="LineNr">360 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L361" class="LineNr">361 </span> <span class="Constant">"transform: packing instruction '74 2/disp8'\n"</span> -<span id="L362" class="LineNr">362 </span> <span class="Constant">"transform: instruction after packing: '74 02'\n"</span> +<span id="L361" class="LineNr">361 </span> <span class="Constant">"transform: packing instruction '74 2/disp8'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L362" class="LineNr">362 </span> <span class="Constant">"transform: instruction after packing: '74 02'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L363" class="LineNr">363 </span> <span class="Delimiter">);</span> <span id="L364" class="LineNr">364 </span><span class="Delimiter">}</span> <span id="L365" class="LineNr">365 </span> <span id="L366" class="LineNr">366 </span><span class="Normal">void</span> <a href='032operands.cc.html#L366'>test_pack_disp8_negative</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L367" class="LineNr">367 </span> transform<span class="Delimiter">(</span> -<span id="L368" class="LineNr">368 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L368" class="LineNr">368 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L369" class="LineNr">369 </span> <span class="Comment">// running this will cause an infinite loop</span> -<span id="L370" class="LineNr">370 </span> <span class="Constant">"74 -1/disp8\n"</span> <span class="Comment">// jump 1 byte before if ZF is set</span> +<span id="L370" class="LineNr">370 </span> <span class="Constant">"74 -1/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// jump 1 byte before if ZF is set</span> <span id="L371" class="LineNr">371 </span> <span class="Delimiter">);</span> <span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L373" class="LineNr">373 </span> <span class="Constant">"transform: packing instruction '74 -1/disp8'\n"</span> -<span id="L374" class="LineNr">374 </span> <span class="Constant">"transform: instruction after packing: '74 ff'\n"</span> +<span id="L373" class="LineNr">373 </span> <span class="Constant">"transform: packing instruction '74 -1/disp8'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L374" class="LineNr">374 </span> <span class="Constant">"transform: instruction after packing: '74 ff'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L375" class="LineNr">375 </span> <span class="Delimiter">);</span> <span id="L376" class="LineNr">376 </span><span class="Delimiter">}</span> <span id="L377" class="LineNr">377 </span> <span id="L378" class="LineNr">378 </span><span class="Normal">void</span> <a href='032operands.cc.html#L378'>test_pack_rm32_direct</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L379" class="LineNr">379 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L380" class="LineNr">380 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L380" class="LineNr">380 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L381" class="LineNr">381 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> <span id="L382" class="LineNr">382 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> <span id="L383" class="LineNr">383 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> -<span id="L384" class="LineNr">384 </span> <span class="Constant">" 01 3/mod/direct 3/rm32/ebx 0/r32/eax \n"</span> <span class="Comment">// add EAX to EBX</span> +<span id="L384" class="LineNr">384 </span> <span class="Constant">" 01 3/mod/direct 3/rm32/ebx 0/r32/eax </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EAX to EBX</span> <span id="L385" class="LineNr">385 </span> <span class="Delimiter">);</span> <span id="L386" class="LineNr">386 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L387" class="LineNr">387 </span> <span class="Constant">"transform: packing instruction '01 3/mod/direct 3/rm32/ebx 0/r32/eax'\n"</span> -<span id="L388" class="LineNr">388 </span> <span class="Constant">"transform: instruction after packing: '01 c3'\n"</span> +<span id="L387" class="LineNr">387 </span> <span class="Constant">"transform: packing instruction '01 3/mod/direct 3/rm32/ebx 0/r32/eax'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L388" class="LineNr">388 </span> <span class="Constant">"transform: instruction after packing: '01 c3'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L389" class="LineNr">389 </span> <span class="Delimiter">);</span> <span id="L390" class="LineNr">390 </span><span class="Delimiter">}</span> <span id="L391" class="LineNr">391 </span> <span id="L392" class="LineNr">392 </span><span class="Normal">void</span> <a href='032operands.cc.html#L392'>test_pack_rm32_indirect</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L393" class="LineNr">393 </span> transform<span class="Delimiter">(</span> -<span id="L394" class="LineNr">394 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L394" class="LineNr">394 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L395" class="LineNr">395 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> <span id="L396" class="LineNr">396 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> <span id="L397" class="LineNr">397 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> -<span id="L398" class="LineNr">398 </span> <span class="Constant">" 01 0/mod/indirect 3/rm32/ebx 0/r32/eax \n"</span> <span class="Comment">// add EAX to *EBX</span> +<span id="L398" class="LineNr">398 </span> <span class="Constant">" 01 0/mod/indirect 3/rm32/ebx 0/r32/eax </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add EAX to *EBX</span> <span id="L399" class="LineNr">399 </span> <span class="Delimiter">);</span> <span id="L400" class="LineNr">400 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L401" class="LineNr">401 </span> <span class="Constant">"transform: packing instruction '01 0/mod/indirect 3/rm32/ebx 0/r32/eax'\n"</span> -<span id="L402" class="LineNr">402 </span> <span class="Constant">"transform: instruction after packing: '01 03'\n"</span> +<span id="L401" class="LineNr">401 </span> <span class="Constant">"transform: packing instruction '01 0/mod/indirect 3/rm32/ebx 0/r32/eax'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L402" class="LineNr">402 </span> <span class="Constant">"transform: instruction after packing: '01 03'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L403" class="LineNr">403 </span> <span class="Delimiter">);</span> <span id="L404" class="LineNr">404 </span><span class="Delimiter">}</span> <span id="L405" class="LineNr">405 </span> <span id="L406" class="LineNr">406 </span><span class="Normal">void</span> <a href='032operands.cc.html#L406'>test_pack_x32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L407" class="LineNr">407 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L408" class="LineNr">408 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L408" class="LineNr">408 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L409" class="LineNr">409 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> <span id="L410" class="LineNr">410 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> <span id="L411" class="LineNr">411 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> -<span id="L412" class="LineNr">412 </span> <span class="Constant">" f3 0f 2a 3/mod/direct 3/rm32/ebx 1/x32 \n"</span> <span class="Comment">// convert EBX to XMM1</span> +<span id="L412" class="LineNr">412 </span> <span class="Constant">" f3 0f 2a 3/mod/direct 3/rm32/ebx 1/x32 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// convert EBX to XMM1</span> <span id="L413" class="LineNr">413 </span> <span class="Delimiter">);</span> <span id="L414" class="LineNr">414 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L415" class="LineNr">415 </span> <span class="Constant">"transform: packing instruction 'f3 0f 2a 3/mod/direct 3/rm32/ebx 1/x32'\n"</span> -<span id="L416" class="LineNr">416 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 2a cb'\n"</span> +<span id="L415" class="LineNr">415 </span> <span class="Constant">"transform: packing instruction 'f3 0f 2a 3/mod/direct 3/rm32/ebx 1/x32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L416" class="LineNr">416 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 2a cb'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L417" class="LineNr">417 </span> <span class="Delimiter">);</span> <span id="L418" class="LineNr">418 </span><span class="Delimiter">}</span> <span id="L419" class="LineNr">419 </span> <span id="L420" class="LineNr">420 </span><span class="Normal">void</span> <a href='032operands.cc.html#L420'>test_pack_xm32_direct</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L421" class="LineNr">421 </span> transform<span class="Delimiter">(</span> -<span id="L422" class="LineNr">422 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L422" class="LineNr">422 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L423" class="LineNr">423 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> <span id="L424" class="LineNr">424 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> <span id="L425" class="LineNr">425 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> -<span id="L426" class="LineNr">426 </span> <span class="Constant">" f3 0f 5e 3/mod/direct 3/xm32 1/x32 \n"</span> <span class="Comment">// divide XMM1 by XMM3</span> +<span id="L426" class="LineNr">426 </span> <span class="Constant">" f3 0f 5e 3/mod/direct 3/xm32 1/x32 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// divide XMM1 by XMM3</span> <span id="L427" class="LineNr">427 </span> <span class="Delimiter">);</span> <span id="L428" class="LineNr">428 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L429" class="LineNr">429 </span> <span class="Constant">"transform: packing instruction 'f3 0f 5e 3/mod/direct 3/xm32 1/x32'\n"</span> -<span id="L430" class="LineNr">430 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 5e cb'\n"</span> +<span id="L429" class="LineNr">429 </span> <span class="Constant">"transform: packing instruction 'f3 0f 5e 3/mod/direct 3/xm32 1/x32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L430" class="LineNr">430 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 5e cb'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L431" class="LineNr">431 </span> <span class="Delimiter">);</span> <span id="L432" class="LineNr">432 </span><span class="Delimiter">}</span> <span id="L433" class="LineNr">433 </span> <span id="L434" class="LineNr">434 </span><span class="Normal">void</span> <a href='032operands.cc.html#L434'>test_pack_xm32_indirect</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L435" class="LineNr">435 </span> transform<span class="Delimiter">(</span> -<span id="L436" class="LineNr">436 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L436" class="LineNr">436 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L437" class="LineNr">437 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> <span id="L438" class="LineNr">438 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> <span id="L439" class="LineNr">439 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> -<span id="L440" class="LineNr">440 </span> <span class="Constant">" f3 0f 5e 0/mod/indirect 3/rm32/ebx 1/x32 \n"</span> <span class="Comment">// divide XMM1 by *EBX</span> +<span id="L440" class="LineNr">440 </span> <span class="Constant">" f3 0f 5e 0/mod/indirect 3/rm32/ebx 1/x32 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// divide XMM1 by *EBX</span> <span id="L441" class="LineNr">441 </span> <span class="Delimiter">);</span> <span id="L442" class="LineNr">442 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L443" class="LineNr">443 </span> <span class="Constant">"transform: packing instruction 'f3 0f 5e 0/mod/indirect 3/rm32/ebx 1/x32'\n"</span> -<span id="L444" class="LineNr">444 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 5e 0b'\n"</span> +<span id="L443" class="LineNr">443 </span> <span class="Constant">"transform: packing instruction 'f3 0f 5e 0/mod/indirect 3/rm32/ebx 1/x32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L444" class="LineNr">444 </span> <span class="Constant">"transform: instruction after packing: 'f3 0f 5e 0b'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L445" class="LineNr">445 </span> <span class="Delimiter">);</span> <span id="L446" class="LineNr">446 </span><span class="Delimiter">}</span> <span id="L447" class="LineNr">447 </span> @@ -516,80 +514,80 @@ if ('onhashchange' in window) { <span id="L456" class="LineNr">456 </span> <span id="L457" class="LineNr">457 </span><span class="Normal">void</span> <a href='032operands.cc.html#L457'>test_pack_modrm_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L458" class="LineNr">458 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L459" class="LineNr">459 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L459" class="LineNr">459 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L460" class="LineNr">460 </span> <span class="Comment">// instruction effective address operand displacement immediate\n"</span> <span id="L461" class="LineNr">461 </span> <span class="Comment">// op subop mod rm32 base index scale r32\n"</span> <span id="L462" class="LineNr">462 </span> <span class="Comment">// 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes\n"</span> -<span id="L463" class="LineNr">463 </span> <span class="Constant">" 81 0/add/subop 3/mod/direct 3/rm32/ebx 1/imm32 \n"</span> <span class="Comment">// add 1 to EBX</span> +<span id="L463" class="LineNr">463 </span> <span class="Constant">" 81 0/add/subop 3/mod/direct 3/rm32/ebx 1/imm32 </span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add 1 to EBX</span> <span id="L464" class="LineNr">464 </span> <span class="Delimiter">);</span> <span id="L465" class="LineNr">465 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L466" class="LineNr">466 </span> <span class="Constant">"transform: packing instruction '81 0/add/subop 3/mod/direct 3/rm32/ebx 1/imm32'\n"</span> -<span id="L467" class="LineNr">467 </span> <span class="Constant">"transform: instruction after packing: '81 c3 01 00 00 00'\n"</span> +<span id="L466" class="LineNr">466 </span> <span class="Constant">"transform: packing instruction '81 0/add/subop 3/mod/direct 3/rm32/ebx 1/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L467" class="LineNr">467 </span> <span class="Constant">"transform: instruction after packing: '81 c3 01 00 00 00'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L468" class="LineNr">468 </span> <span class="Delimiter">);</span> <span id="L469" class="LineNr">469 </span><span class="Delimiter">}</span> <span id="L470" class="LineNr">470 </span> <span id="L471" class="LineNr">471 </span><span class="Normal">void</span> <a href='032operands.cc.html#L471'>test_pack_imm32_large</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L472" class="LineNr">472 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L473" class="LineNr">473 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L474" class="LineNr">474 </span> <span class="Constant">"b9 0x080490a7/imm32\n"</span> +<span id="L473" class="LineNr">473 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L474" class="LineNr">474 </span> <span class="Constant">"b9 0x080490a7/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L475" class="LineNr">475 </span> <span class="Delimiter">);</span> <span id="L476" class="LineNr">476 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L477" class="LineNr">477 </span> <span class="Constant">"transform: packing instruction 'b9 0x080490a7/imm32'\n"</span> -<span id="L478" class="LineNr">478 </span> <span class="Constant">"transform: instruction after packing: 'b9 a7 90 04 08'\n"</span> +<span id="L477" class="LineNr">477 </span> <span class="Constant">"transform: packing instruction 'b9 0x080490a7/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L478" class="LineNr">478 </span> <span class="Constant">"transform: instruction after packing: 'b9 a7 90 04 08'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L479" class="LineNr">479 </span> <span class="Delimiter">);</span> <span id="L480" class="LineNr">480 </span><span class="Delimiter">}</span> <span id="L481" class="LineNr">481 </span> <span id="L482" class="LineNr">482 </span><span class="Normal">void</span> <a href='032operands.cc.html#L482'>test_pack_immediate_constants_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L483" class="LineNr">483 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L484" class="LineNr">484 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L485" class="LineNr">485 </span> <span class="Constant">"b9 0x2a/imm32\n"</span> +<span id="L484" class="LineNr">484 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L485" class="LineNr">485 </span> <span class="Constant">"b9 0x2a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L486" class="LineNr">486 </span> <span class="Delimiter">);</span> <span id="L487" class="LineNr">487 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L488" class="LineNr">488 </span> <span class="Constant">"transform: packing instruction 'b9 0x2a/imm32'\n"</span> -<span id="L489" class="LineNr">489 </span> <span class="Constant">"transform: instruction after packing: 'b9 2a 00 00 00'\n"</span> -<span id="L490" class="LineNr">490 </span> <span class="Constant">"run: copy imm32 0x0000002a to ECX\n"</span> +<span id="L488" class="LineNr">488 </span> <span class="Constant">"transform: packing instruction 'b9 0x2a/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L489" class="LineNr">489 </span> <span class="Constant">"transform: instruction after packing: 'b9 2a 00 00 00'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L490" class="LineNr">490 </span> <span class="Constant">"run: copy imm32 0x0000002a to <a href='010vm.cc.html#L11'>ECX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L491" class="LineNr">491 </span> <span class="Delimiter">);</span> <span id="L492" class="LineNr">492 </span><span class="Delimiter">}</span> <span id="L493" class="LineNr">493 </span> <span id="L494" class="LineNr">494 </span><span class="Normal">void</span> <a href='032operands.cc.html#L494'>test_pack_silently_ignores_non_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L495" class="LineNr">495 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L495" class="LineNr">495 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L496" class="LineNr">496 </span> transform<span class="Delimiter">(</span> -<span id="L497" class="LineNr">497 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L498" class="LineNr">498 </span> <span class="Constant">"b9 foo/imm32\n"</span> +<span id="L497" class="LineNr">497 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L498" class="LineNr">498 </span> <span class="Constant">"b9 foo/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L499" class="LineNr">499 </span> <span class="Delimiter">);</span> <span id="L500" class="LineNr">500 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L501" class="LineNr">501 </span> <span class="Constant">"transform: packing instruction 'b9 foo/imm32'\n"</span> +<span id="L501" class="LineNr">501 </span> <span class="Constant">"transform: packing instruction 'b9 foo/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L502" class="LineNr">502 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> -<span id="L503" class="LineNr">503 </span> <span class="Constant">"transform: instruction after packing: 'b9 foo'\n"</span> +<span id="L503" class="LineNr">503 </span> <span class="Constant">"transform: instruction after packing: 'b9 foo'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L504" class="LineNr">504 </span> <span class="Delimiter">);</span> <span id="L505" class="LineNr">505 </span><span class="Delimiter">}</span> <span id="L506" class="LineNr">506 </span> <span id="L507" class="LineNr">507 </span><span class="Normal">void</span> <a href='032operands.cc.html#L507'>test_pack_flags_bad_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L508" class="LineNr">508 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L508" class="LineNr">508 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L509" class="LineNr">509 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L510" class="LineNr">510 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L511" class="LineNr">511 </span> <span class="Constant">"b9 0xfoo/imm32\n"</span> +<span id="L510" class="LineNr">510 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L511" class="LineNr">511 </span> <span class="Constant">"b9 0xfoo/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L512" class="LineNr">512 </span> <span class="Delimiter">);</span> <span id="L513" class="LineNr">513 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L514" class="LineNr">514 </span> <span class="Constant">"error: not a number: 0xfoo\n"</span> +<span id="L514" class="LineNr">514 </span> <span class="Constant">"error: not a number: 0xfoo</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L515" class="LineNr">515 </span> <span class="Delimiter">);</span> <span id="L516" class="LineNr">516 </span><span class="Delimiter">}</span> <span id="L517" class="LineNr">517 </span> <span id="L518" class="LineNr">518 </span><span class="Normal">void</span> <a href='032operands.cc.html#L518'>test_pack_flags_uppercase_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L519" class="LineNr">519 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L519" class="LineNr">519 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L520" class="LineNr">520 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L521" class="LineNr">521 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L522" class="LineNr">522 </span> <span class="Constant">"b9 0xAb/imm32\n"</span> +<span id="L521" class="LineNr">521 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L522" class="LineNr">522 </span> <span class="Constant">"b9 0xAb/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L523" class="LineNr">523 </span> <span class="Delimiter">);</span> <span id="L524" class="LineNr">524 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L525" class="LineNr">525 </span> <span class="Constant">"error: uppercase hex not allowed: 0xAb\n"</span> +<span id="L525" class="LineNr">525 </span> <span class="Constant">"error: uppercase hex not allowed: 0xAb</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L526" class="LineNr">526 </span> <span class="Delimiter">);</span> <span id="L527" class="LineNr">527 </span><span class="Delimiter">}</span> <span id="L528" class="LineNr">528 </span> -<span id="L529" class="LineNr">529 </span><span class="SalientComment">//:: helpers</span> +<span id="L529" class="LineNr">529 </span><span class="Comment">//:: helpers</span> <span id="L530" class="LineNr">530 </span> <span id="L531" class="LineNr">531 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L532" class="LineNr">532 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L532" class="LineNr">532 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L533" class="LineNr">533 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)))</span> <span id="L534" class="LineNr">534 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L535" class="LineNr">535 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> @@ -598,7 +596,7 @@ if ('onhashchange' in window) { <span id="L538" class="LineNr">538 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L538'>is_hex_byte</a><span class="Delimiter">(</span><span class="Normal">const</span> word& curr<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L539" class="LineNr">539 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L548'>contains_any_argument_metadata</a><span class="Delimiter">(</span>curr<span class="Delimiter">))</span> <span id="L540" class="LineNr">540 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L541" class="LineNr">541 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">)</span> != <span class="Constant">2</span><span class="Delimiter">)</span> +<span id="L541" class="LineNr">541 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">)</span> != <span class="Constant">2</span><span class="Delimiter">)</span> <span id="L542" class="LineNr">542 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L543" class="LineNr">543 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>find_first_not_of<span class="Delimiter">(</span><span class="Constant">"0123456789abcdef"</span><span class="Delimiter">)</span> != string::npos<span class="Delimiter">)</span> <span id="L544" class="LineNr">544 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> @@ -606,18 +604,18 @@ if ('onhashchange' in window) { <span id="L546" class="LineNr">546 </span><span class="Delimiter">}</span> <span id="L547" class="LineNr">547 </span> <span id="L548" class="LineNr">548 </span><span class="Normal">bool</span> <a href='032operands.cc.html#L548'>contains_any_argument_metadata</a><span class="Delimiter">(</span><span class="Normal">const</span> word& <a href='011run.cc.html#L127'>word</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L549" class="LineNr">549 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> -<span id="L550" class="LineNr">550 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">))</span> != <span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>end<span class="Delimiter">())</span> +<span id="L549" class="LineNr">549 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L550" class="LineNr">550 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>find<span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">))</span> != <a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span id="L551" class="LineNr">551 </span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L552" class="LineNr">552 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L553" class="LineNr">553 </span><span class="Delimiter">}</span> <span id="L554" class="LineNr">554 </span> <span id="L555" class="LineNr">555 </span><span class="Normal">bool</span> has_argument_metadata<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L556" class="LineNr">556 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L557" class="LineNr">557 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L557" class="LineNr">557 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L558" class="LineNr">558 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> m<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L559" class="LineNr">559 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>result<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L560" class="LineNr">560 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"' has conflicting "</span> << m << <span class="Constant">" arguments\n"</span> << end<span class="Delimiter">();</span> +<span id="L560" class="LineNr">560 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"' has conflicting "</span> << m << <span class="Constant">" arguments</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L561" class="LineNr">561 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L562" class="LineNr">562 </span> <span class="Delimiter">}</span> <span id="L563" class="LineNr">563 </span> result = <span class="Constant">true</span><span class="Delimiter">;</span> @@ -628,11 +626,11 @@ if ('onhashchange' in window) { <span id="L568" class="LineNr">568 </span><span class="Normal">bool</span> has_argument_metadata<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L569" class="LineNr">569 </span> <span class="Normal">bool</span> result = <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L570" class="LineNr">570 </span> <span class="Normal">bool</span> metadata_found = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L571" class="LineNr">571 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L571" class="LineNr">571 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L572" class="LineNr">572 </span> <span class="Normal">const</span> string& curr = w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L573" class="LineNr">573 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>find<span class="Delimiter">(</span>curr<span class="Delimiter">)</span> == <span class="SpecialChar"><a href='032operands.cc.html#L50'>Instruction_arguments</a></span><span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> +<span id="L573" class="LineNr">573 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>find<span class="Delimiter">(</span>curr<span class="Delimiter">)</span> == <a href='032operands.cc.html#L50'>Instruction_arguments</a><span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> <span id="L574" class="LineNr">574 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>metadata_found<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L575" class="LineNr">575 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting argument types; it should have only one\n"</span> << end<span class="Delimiter">();</span> +<span id="L575" class="LineNr">575 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting argument types; it should have only one</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L576" class="LineNr">576 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L577" class="LineNr">577 </span> <span class="Delimiter">}</span> <span id="L578" class="LineNr">578 </span> metadata_found = <span class="Constant">true</span><span class="Delimiter">;</span> @@ -642,7 +640,7 @@ if ('onhashchange' in window) { <span id="L582" class="LineNr">582 </span><span class="Delimiter">}</span> <span id="L583" class="LineNr">583 </span> <span id="L584" class="LineNr">584 </span><a href='011run.cc.html#L127'>word</a> metadata<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L585" class="LineNr">585 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L585" class="LineNr">585 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L586" class="LineNr">586 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> m<span class="Delimiter">))</span> <span id="L587" class="LineNr">587 </span> <span class="Identifier">return</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L588" class="LineNr">588 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> @@ -658,7 +656,7 @@ if ('onhashchange' in window) { <span id="L598" class="LineNr">598 </span> <span id="L599" class="LineNr">599 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L600" class="LineNr">600 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L601" class="LineNr">601 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L601" class="LineNr">601 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L602" class="LineNr">602 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L603" class="LineNr">603 </span> out << inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>original<span class="Delimiter">;</span> <span id="L604" class="LineNr">604 </span> <span class="Delimiter">}</span> diff --git a/html/033check_operands.cc.html b/html/linux/bootstrap/033check_operands.cc.html index 4f60c111..addf3048 100644 --- a/html/033check_operands.cc.html +++ b/html/linux/bootstrap/033check_operands.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 033check_operands.cc</title> +<title>Mu - linux/bootstrap/033check_operands.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,16 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.SalientComment { color: #0000af; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } .PreProc { color: #c000c0; } -.SalientComment { color: #0000af; } --> </style> @@ -57,19 +57,19 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/033check_operands.cc'>https://github.com/akkartik/mu/blob/main/033check_operands.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/033check_operands.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/033check_operands.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Since we're tagging arguments with their types, let's start checking these</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: argument types for each instruction.</span> <span id="L3" class="LineNr"> 3 </span> <span id="L4" class="LineNr"> 4 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L4'>test_check_missing_imm8_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L5" class="LineNr"> 5 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L5" class="LineNr"> 5 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L6" class="LineNr"> 6 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L7" class="LineNr"> 7 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"cd\n"</span> <span class="Comment">// interrupt ??</span> +<span id="L7" class="LineNr"> 7 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"cd</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// interrupt ??</span> <span id="L9" class="LineNr"> 9 </span> <span class="Delimiter">);</span> <span id="L10" class="LineNr"> 10 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"error: 'cd' (software interrupt): missing imm8 argument\n"</span> +<span id="L11" class="LineNr"> 11 </span> <span class="Constant">"error: 'cd' (software interrupt): missing imm8 argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L12" class="LineNr"> 12 </span> <span class="Delimiter">);</span> <span id="L13" class="LineNr"> 13 </span><span class="Delimiter">}</span> <span id="L14" class="LineNr"> 14 </span> @@ -80,7 +80,7 @@ if ('onhashchange' in window) { <span id="L19" class="LineNr"> 19 </span><span class="Delimiter">:(code)</span> <span id="L20" class="LineNr"> 20 </span><span class="Normal">void</span> check_arguments<span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L21" class="LineNr"> 21 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- check arguments"</span> << end<span class="Delimiter">();</span> -<span id="L22" class="LineNr"> 22 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L23" class="LineNr"> 23 </span> check_arguments<span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span id="L24" class="LineNr"> 24 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// stop at the first mal-formed instruction</span> <span id="L25" class="LineNr"> 25 </span> <span class="Delimiter">}</span> @@ -102,9 +102,9 @@ if ('onhashchange' in window) { <span id="L41" class="LineNr"> 41 </span><a href='011run.cc.html#L127'>word</a> <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Comment">/*</span><span class="Comment">copy</span><span class="Comment">*/</span> op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L42" class="LineNr"> 42 </span> op<span class="Delimiter">.</span>data = <a href='033check_operands.cc.html#L774'>tolower</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">.</span>c_str<span class="Delimiter">());</span> <span id="L43" class="LineNr"> 43 </span> <span class="Comment">// opcodes can't be negative</span> -<span id="L44" class="LineNr"> 44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">,</span> <span class="Constant">"0x"</span><span class="Delimiter">))</span> +<span id="L44" class="LineNr"> 44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L104'>starts_with</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">,</span> <span class="Constant">"0x"</span><span class="Delimiter">))</span> <span id="L45" class="LineNr"> 45 </span> op<span class="Delimiter">.</span>data = op<span class="Delimiter">.</span>data<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L46" class="LineNr"> 46 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>op<span class="Delimiter">.</span>data<span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span id="L47" class="LineNr"> 47 </span> op<span class="Delimiter">.</span>data = string<span class="Delimiter">(</span><span class="Constant">"0"</span><span class="Delimiter">)</span>+op<span class="Delimiter">.</span>data<span class="Delimiter">;</span> <span id="L48" class="LineNr"> 48 </span> <span class="Identifier">return</span> op<span class="Delimiter">;</span> <span id="L49" class="LineNr"> 49 </span><span class="Delimiter">}</span> @@ -137,15 +137,15 @@ if ('onhashchange' in window) { <span id="L76" class="LineNr"> 76 </span> <a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a> <span id="L77" class="LineNr"> 77 </span><span class="Delimiter">};</span> <span id="L78" class="LineNr"> 78 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L79" class="LineNr"> 79 </span>vector<string> <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">;</span> -<span id="L80" class="LineNr"> 80 </span>map<string<span class="Delimiter">,</span> expected_argument_type> <span class="SpecialChar"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">;</span> +<span id="L79" class="LineNr"> 79 </span>vector<string> <a href='033check_operands.cc.html#L79'>Operand_type_name</a><span class="Delimiter">;</span> +<span id="L80" class="LineNr"> 80 </span>map<string<span class="Delimiter">,</span> expected_argument_type> <a href='033check_operands.cc.html#L80'>Operand_type</a><span class="Delimiter">;</span> <span id="L81" class="LineNr"> 81 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L82" class="LineNr"> 82 </span><a href='033check_operands.cc.html#L84'>init_op_types</a><span class="Delimiter">();</span> <span id="L83" class="LineNr"> 83 </span><span class="Delimiter">:(code)</span> <span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L84'>init_op_types</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> assert<span class="Delimiter">(</span><a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a> <= <span class="Comment">/*</span><span class="Comment">bits in a uint8_t</span><span class="Comment">*/</span><span class="Constant">8</span><span class="Delimiter">);</span> -<span id="L86" class="LineNr"> 86 </span> <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>resize<span class="Delimiter">(</span><a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">);</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">#define DEF(type) </span><span class="SpecialChar">Operand_type_name</span><span class="Delimiter">.</span><span class="PreProc">at(type) = tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> put(</span><span class="SpecialChar">Operand_type</span><span class="Delimiter">,</span><span class="PreProc"> tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> type)</span><span class="Delimiter">;</span> +<span id="L86" class="LineNr"> 86 </span> <a href='033check_operands.cc.html#L79'>Operand_type_name</a><span class="Delimiter">.</span>resize<span class="Delimiter">(</span><a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">#define DEF(type) Operand_type_name</span><span class="Delimiter">.</span><span class="PreProc">at(type) = tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> put(Operand_type</span><span class="Delimiter">,</span><span class="PreProc"> tolower(#type)</span><span class="Delimiter">,</span><span class="PreProc"> type)</span><span class="Delimiter">;</span> <span id="L88" class="LineNr"> 88 </span> DEF<span class="Delimiter">(</span><a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">);</span> <span id="L89" class="LineNr"> 89 </span> DEF<span class="Delimiter">(</span><a href='033check_operands.cc.html#L70'>SUBOP</a><span class="Delimiter">);</span> <span id="L90" class="LineNr"> 90 </span> DEF<span class="Delimiter">(</span><a href='033check_operands.cc.html#L71'>DISP8</a><span class="Delimiter">);</span> @@ -157,7 +157,7 @@ if ('onhashchange' in window) { <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> <span id="L98" class="LineNr"> 98 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L99" class="LineNr"> 99 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">;</span> +<span id="L99" class="LineNr"> 99 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">;</span> <span id="L100" class="LineNr">100 </span><span class="Normal">const</span> <span class="Normal">uint8_t</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a> = <span class="Constant">0xff</span><span class="Delimiter">;</span> <span class="Comment">// no instruction uses all the argument types</span> <span id="L101" class="LineNr">101 </span><span class="Delimiter">:(before "End One-time Setup")</span> <span id="L102" class="LineNr">102 </span><a href='033check_operands.cc.html#L104'>init_permitted_arguments</a><span class="Delimiter">();</span> @@ -165,152 +165,152 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr">104 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L104'>init_permitted_arguments</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L105" class="LineNr">105 </span> <span class="SalientComment">//// Class A: just op, no arguments</span> <span id="L106" class="LineNr">106 </span> <span class="Comment">// halt</span> -<span id="L107" class="LineNr">107 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L107" class="LineNr">107 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"f4"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L108" class="LineNr">108 </span> <span class="Comment">// inc</span> -<span id="L109" class="LineNr">109 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L110" class="LineNr">110 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L111" class="LineNr">111 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L112" class="LineNr">112 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L113" class="LineNr">113 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L114" class="LineNr">114 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L115" class="LineNr">115 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L116" class="LineNr">116 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L109" class="LineNr">109 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"40"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L110" class="LineNr">110 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"41"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L111" class="LineNr">111 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"42"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L112" class="LineNr">112 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"43"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L113" class="LineNr">113 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"44"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L114" class="LineNr">114 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"45"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L115" class="LineNr">115 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"46"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L116" class="LineNr">116 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"47"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L117" class="LineNr">117 </span> <span class="Comment">// dec</span> -<span id="L118" class="LineNr">118 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L119" class="LineNr">119 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L120" class="LineNr">120 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L121" class="LineNr">121 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L122" class="LineNr">122 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L123" class="LineNr">123 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L124" class="LineNr">124 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L125" class="LineNr">125 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L118" class="LineNr">118 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"48"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L119" class="LineNr">119 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"49"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L120" class="LineNr">120 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"4a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L121" class="LineNr">121 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"4b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L122" class="LineNr">122 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"4c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L123" class="LineNr">123 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"4d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L124" class="LineNr">124 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"4e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L125" class="LineNr">125 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"4f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L126" class="LineNr">126 </span> <span class="Comment">// push</span> -<span id="L127" class="LineNr">127 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L128" class="LineNr">128 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L129" class="LineNr">129 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L130" class="LineNr">130 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L131" class="LineNr">131 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L132" class="LineNr">132 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L133" class="LineNr">133 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L134" class="LineNr">134 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L127" class="LineNr">127 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"50"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L128" class="LineNr">128 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L129" class="LineNr">129 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L130" class="LineNr">130 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L131" class="LineNr">131 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"54"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L132" class="LineNr">132 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"55"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L133" class="LineNr">133 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"56"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L134" class="LineNr">134 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"57"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L135" class="LineNr">135 </span> <span class="Comment">// pop</span> -<span id="L136" class="LineNr">136 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L137" class="LineNr">137 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L138" class="LineNr">138 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L139" class="LineNr">139 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L140" class="LineNr">140 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L142" class="LineNr">142 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> -<span id="L143" class="LineNr">143 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L136" class="LineNr">136 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L137" class="LineNr">137 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L138" class="LineNr">138 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"5a"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L139" class="LineNr">139 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"5b"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L140" class="LineNr">140 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L141" class="LineNr">141 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L142" class="LineNr">142 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L143" class="LineNr">143 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L144" class="LineNr">144 </span> <span class="Comment">// sign-extend EAX into EDX</span> -<span id="L145" class="LineNr">145 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L145" class="LineNr">145 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"99"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L146" class="LineNr">146 </span> <span class="Comment">// return</span> -<span id="L147" class="LineNr">147 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> +<span id="L147" class="LineNr">147 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"c3"</span><span class="Delimiter">,</span> <span class="Constant">0x00</span><span class="Delimiter">);</span> <span id="L148" class="LineNr">148 </span> <span id="L149" class="LineNr">149 </span> <span class="SalientComment">//// Class B: just op and disp8</span> <span id="L150" class="LineNr">150 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L151" class="LineNr">151 </span> <span class="Comment">// 0 0 0 |0 1 0 0</span> <span id="L152" class="LineNr">152 </span> <span id="L153" class="LineNr">153 </span> <span class="Comment">// jump</span> -<span id="L154" class="LineNr">154 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L155" class="LineNr">155 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L156" class="LineNr">156 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L157" class="LineNr">157 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L158" class="LineNr">158 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L159" class="LineNr">159 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L160" class="LineNr">160 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L161" class="LineNr">161 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L162" class="LineNr">162 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L163" class="LineNr">163 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> -<span id="L164" class="LineNr">164 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L154" class="LineNr">154 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"eb"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L155" class="LineNr">155 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"72"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L156" class="LineNr">156 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"73"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L157" class="LineNr">157 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"74"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L158" class="LineNr">158 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"75"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L159" class="LineNr">159 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"76"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L160" class="LineNr">160 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"77"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L161" class="LineNr">161 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"7c"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L162" class="LineNr">162 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"7d"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L163" class="LineNr">163 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"7e"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> +<span id="L164" class="LineNr">164 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"7f"</span><span class="Delimiter">,</span> <span class="Constant">0x04</span><span class="Delimiter">);</span> <span id="L165" class="LineNr">165 </span> <span id="L166" class="LineNr">166 </span> <span class="SalientComment">//// Class D: just op and disp32</span> <span id="L167" class="LineNr">167 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L168" class="LineNr">168 </span> <span class="Comment">// 0 0 1 |0 0 0 0</span> -<span id="L169" class="LineNr">169 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// call</span> -<span id="L170" class="LineNr">170 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// jump</span> +<span id="L169" class="LineNr">169 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"e8"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// call</span> +<span id="L170" class="LineNr">170 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"e9"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span class="Comment">// jump</span> <span id="L171" class="LineNr">171 </span> <span id="L172" class="LineNr">172 </span> <span class="SalientComment">//// Class E: just op and imm8</span> <span id="L173" class="LineNr">173 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L174" class="LineNr">174 </span> <span class="Comment">// 0 1 0 |0 0 0 0</span> -<span id="L175" class="LineNr">175 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">0x20</span><span class="Delimiter">);</span> <span class="Comment">// software interrupt</span> +<span id="L175" class="LineNr">175 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"cd"</span><span class="Delimiter">,</span> <span class="Constant">0x20</span><span class="Delimiter">);</span> <span class="Comment">// software interrupt</span> <span id="L176" class="LineNr">176 </span> <span id="L177" class="LineNr">177 </span> <span class="SalientComment">//// Class F: just op and imm32</span> <span id="L178" class="LineNr">178 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L179" class="LineNr">179 </span> <span class="Comment">// 1 0 0 |0 0 0 0</span> -<span id="L180" class="LineNr">180 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// add</span> -<span id="L181" class="LineNr">181 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// subtract</span> -<span id="L182" class="LineNr">182 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// and</span> -<span id="L183" class="LineNr">183 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// or</span> -<span id="L184" class="LineNr">184 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// xor</span> -<span id="L185" class="LineNr">185 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// compare</span> -<span id="L186" class="LineNr">186 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// push</span> +<span id="L180" class="LineNr">180 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"05"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// add</span> +<span id="L181" class="LineNr">181 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// subtract</span> +<span id="L182" class="LineNr">182 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"25"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// and</span> +<span id="L183" class="LineNr">183 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"0d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// or</span> +<span id="L184" class="LineNr">184 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"35"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// xor</span> +<span id="L185" class="LineNr">185 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"3d"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// compare</span> +<span id="L186" class="LineNr">186 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"68"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span class="Comment">// push</span> <span id="L187" class="LineNr">187 </span> <span class="Comment">// copy</span> -<span id="L188" class="LineNr">188 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L189" class="LineNr">189 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L190" class="LineNr">190 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L191" class="LineNr">191 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L192" class="LineNr">192 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L193" class="LineNr">193 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L194" class="LineNr">194 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> -<span id="L195" class="LineNr">195 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L188" class="LineNr">188 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"b8"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L189" class="LineNr">189 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"b9"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L190" class="LineNr">190 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"ba"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L191" class="LineNr">191 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"bb"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L192" class="LineNr">192 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"bc"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L193" class="LineNr">193 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"bd"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L194" class="LineNr">194 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"be"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> +<span id="L195" class="LineNr">195 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"bf"</span><span class="Delimiter">,</span> <span class="Constant">0x40</span><span class="Delimiter">);</span> <span id="L196" class="LineNr">196 </span> <span id="L197" class="LineNr">197 </span> <span class="SalientComment">//// Class M: using ModR/M byte</span> <span id="L198" class="LineNr">198 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L199" class="LineNr">199 </span> <span class="Comment">// 0 0 0 |0 0 0 1</span> <span id="L200" class="LineNr">200 </span> <span id="L201" class="LineNr">201 </span> <span class="Comment">// add</span> -<span id="L202" class="LineNr">202 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L203" class="LineNr">203 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L202" class="LineNr">202 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"01"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L203" class="LineNr">203 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"03"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L204" class="LineNr">204 </span> <span class="Comment">// subtract</span> -<span id="L205" class="LineNr">205 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L206" class="LineNr">206 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L205" class="LineNr">205 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"29"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L206" class="LineNr">206 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"2b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L207" class="LineNr">207 </span> <span class="Comment">// and</span> -<span id="L208" class="LineNr">208 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L209" class="LineNr">209 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L208" class="LineNr">208 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"21"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L209" class="LineNr">209 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"23"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L210" class="LineNr">210 </span> <span class="Comment">// or</span> -<span id="L211" class="LineNr">211 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L212" class="LineNr">212 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L211" class="LineNr">211 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"09"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L212" class="LineNr">212 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"0b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L213" class="LineNr">213 </span> <span class="Comment">// xor</span> -<span id="L214" class="LineNr">214 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L215" class="LineNr">215 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L214" class="LineNr">214 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"31"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L215" class="LineNr">215 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"33"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L216" class="LineNr">216 </span> <span class="Comment">// compare</span> -<span id="L217" class="LineNr">217 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L218" class="LineNr">218 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L217" class="LineNr">217 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"39"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L218" class="LineNr">218 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"3b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L219" class="LineNr">219 </span> <span class="Comment">// copy</span> -<span id="L220" class="LineNr">220 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L221" class="LineNr">221 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L222" class="LineNr">222 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L223" class="LineNr">223 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L220" class="LineNr">220 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"88"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L221" class="LineNr">221 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"89"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L222" class="LineNr">222 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"8a"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L223" class="LineNr">223 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"8b"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L224" class="LineNr">224 </span> <span class="Comment">// swap</span> -<span id="L225" class="LineNr">225 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L225" class="LineNr">225 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L226" class="LineNr">226 </span> <span class="Comment">// copy address (lea)</span> -<span id="L227" class="LineNr">227 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L227" class="LineNr">227 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L228" class="LineNr">228 </span> <span id="L229" class="LineNr">229 </span> <span class="SalientComment">//// Class N: op, ModR/M and subop (not r32)</span> <span id="L230" class="LineNr">230 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L231" class="LineNr">231 </span> <span class="Comment">// 0 0 0 |0 0 1 1</span> -<span id="L232" class="LineNr">232 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// pop</span> -<span id="L233" class="LineNr">233 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// shift</span> -<span id="L234" class="LineNr">234 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// test/not/mul/div</span> -<span id="L235" class="LineNr">235 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// jump/push/call</span> +<span id="L232" class="LineNr">232 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// pop</span> +<span id="L233" class="LineNr">233 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"d3"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// shift</span> +<span id="L234" class="LineNr">234 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"f7"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// test/not/mul/div</span> +<span id="L235" class="LineNr">235 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"ff"</span><span class="Delimiter">,</span> <span class="Constant">0x03</span><span class="Delimiter">);</span> <span class="Comment">// jump/push/call</span> <span id="L236" class="LineNr">236 </span> <span id="L237" class="LineNr">237 </span> <span class="SalientComment">//// Class O: op, ModR/M, subop (not r32) and imm8</span> <span id="L238" class="LineNr">238 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L239" class="LineNr">239 </span> <span class="Comment">// 0 1 0 |0 0 1 1</span> -<span id="L240" class="LineNr">240 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> -<span id="L241" class="LineNr">241 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> +<span id="L240" class="LineNr">240 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"c1"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> +<span id="L241" class="LineNr">241 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"c6"</span><span class="Delimiter">,</span> <span class="Constant">0x23</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> <span id="L242" class="LineNr">242 </span> <span id="L243" class="LineNr">243 </span> <span class="SalientComment">//// Class P: op, ModR/M, subop (not r32) and imm32</span> <span id="L244" class="LineNr">244 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L245" class="LineNr">245 </span> <span class="Comment">// 1 0 0 |0 0 1 1</span> -<span id="L246" class="LineNr">246 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> -<span id="L247" class="LineNr">247 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> +<span id="L246" class="LineNr">246 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"81"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// combine</span> +<span id="L247" class="LineNr">247 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"c7"</span><span class="Delimiter">,</span> <span class="Constant">0x43</span><span class="Delimiter">);</span> <span class="Comment">// copy</span> <span id="L248" class="LineNr">248 </span> <span id="L249" class="LineNr">249 </span> <span class="SalientComment">//// Class Q: op, ModR/M and imm32</span> <span id="L250" class="LineNr">250 </span> <span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L251" class="LineNr">251 </span> <span class="Comment">// 1 0 0 |0 0 0 1</span> -<span id="L252" class="LineNr">252 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">0x41</span><span class="Delimiter">);</span> <span class="Comment">// multiply</span> +<span id="L252" class="LineNr">252 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> <span class="Constant">"69"</span><span class="Delimiter">,</span> <span class="Constant">0x41</span><span class="Delimiter">);</span> <span class="Comment">// multiply</span> <span id="L253" class="LineNr">253 </span> <span id="L254" class="LineNr">254 </span> <span class="Comment">// End Init Permitted Operands</span> <span id="L255" class="LineNr">255 </span><span class="Delimiter">}</span> @@ -321,7 +321,7 @@ if ('onhashchange' in window) { <span id="L260" class="LineNr">260 </span> <span id="L261" class="LineNr">261 </span><span class="Normal">void</span> check_arguments<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L262" class="LineNr">262 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L263" class="LineNr">263 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L99'>Permitted_arguments</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L263" class="LineNr">263 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><a href='033check_operands.cc.html#L99'>Permitted_arguments</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L264" class="LineNr">264 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L265" class="LineNr">265 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span id="L266" class="LineNr">266 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> @@ -341,11 +341,11 @@ if ('onhashchange' in window) { <span id="L280" class="LineNr">280 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">;</span> ++i<span class="Delimiter">,</span> bitvector >>= <span class="Constant">1</span><span class="Delimiter">,</span> expected >>= <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L281" class="LineNr">281 </span><span class="CommentedCode">//? cerr << "comparing " << HEXBYTE << NUM(bitvector) << " with " << NUM(expected) << '\n';</span> <span id="L282" class="LineNr">282 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> == <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// all good with this argument</span> -<span id="L283" class="LineNr">283 </span> <span class="Normal">const</span> string& optype = <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L283" class="LineNr">283 </span> <span class="Normal">const</span> string& optype = <a href='033check_operands.cc.html#L79'>Operand_type_name</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> > <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> -<span id="L285" class="LineNr">285 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L285" class="LineNr">285 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L286" class="LineNr">286 </span> <span class="Normal">else</span> -<span id="L287" class="LineNr">287 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L287" class="LineNr">287 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L288" class="LineNr">288 </span> <span class="Comment">// continue giving all errors for a single instruction</span> <span id="L289" class="LineNr">289 </span> <span class="Delimiter">}</span> <span id="L290" class="LineNr">290 </span> <span class="Comment">// ignore settings in any unused bits</span> @@ -353,16 +353,16 @@ if ('onhashchange' in window) { <span id="L292" class="LineNr">292 </span> <span id="L293" class="LineNr">293 </span>string <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L294" class="LineNr">294 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L295" class="LineNr">295 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L295" class="LineNr">295 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> <span id="L296" class="LineNr">296 </span> <span class="Comment">// strip stuff in parens from the name</span> -<span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L355'>Name</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L297" class="LineNr">297 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><a href='010vm.cc.html#L355'>Name</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L298" class="LineNr">298 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> <span id="L299" class="LineNr">299 </span><span class="Delimiter">}</span> <span id="L300" class="LineNr">300 </span> <span id="L301" class="LineNr">301 </span><span class="Normal">uint32_t</span> <a href='033check_operands.cc.html#L301'>compute_expected_argument_bitvector</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L302" class="LineNr">302 </span> set<string> arguments_found<span class="Delimiter">;</span> <span id="L303" class="LineNr">303 </span> <span class="Normal">uint32_t</span> bitvector = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L304" class="LineNr">304 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L304" class="LineNr">304 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L305" class="LineNr">305 </span> bitvector = bitvector | <a href='033check_operands.cc.html#L328'>expected_bit_for_received_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> arguments_found<span class="Delimiter">,</span> inst<span class="Delimiter">);</span> <span id="L306" class="LineNr">306 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a><span class="Delimiter">;</span> <span class="Comment">// duplicate argument type</span> <span id="L307" class="LineNr">307 </span> <span class="Delimiter">}</span> @@ -370,7 +370,7 @@ if ('onhashchange' in window) { <span id="L309" class="LineNr">309 </span><span class="Delimiter">}</span> <span id="L310" class="LineNr">310 </span> <span id="L311" class="LineNr">311 </span><span class="Normal">bool</span> <a href='033check_operands.cc.html#L311'>has_arguments</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L312" class="LineNr">312 </span> <span class="Identifier">return</span> <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> > <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> +<span id="L312" class="LineNr">312 </span> <span class="Identifier">return</span> <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> > <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> <span id="L313" class="LineNr">313 </span><span class="Delimiter">}</span> <span id="L314" class="LineNr">314 </span> <span id="L315" class="LineNr">315 </span><span class="Normal">int</span> <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -389,35 +389,35 @@ if ('onhashchange' in window) { <span id="L328" class="LineNr">328 </span><span class="Normal">uint32_t</span> <a href='033check_operands.cc.html#L328'>expected_bit_for_received_argument</a><span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> set<string>& instruction_arguments<span class="Delimiter">,</span> <span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L329" class="LineNr">329 </span> <span class="Normal">uint32_t</span> bv = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L330" class="LineNr">330 </span> <span class="Normal">bool</span> found = <span class="Constant">false</span><span class="Delimiter">;</span> -<span id="L331" class="LineNr">331 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L331" class="LineNr">331 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L332" class="LineNr">332 </span> string<span class="Comment">/*</span><span class="Comment">copy</span><span class="Comment">*/</span> curr = w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L333" class="LineNr">333 </span> string expected_metadata = curr<span class="Delimiter">;</span> <span id="L334" class="LineNr">334 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr == <span class="Constant">"mod"</span> || curr == <span class="Constant">"rm32"</span> || curr == <span class="Constant">"r32"</span> || curr == <span class="Constant">"xm32"</span> || curr == <span class="Constant">"x32"</span> || curr == <span class="Constant">"scale"</span> || curr == <span class="Constant">"index"</span> || curr == <span class="Constant">"base"</span><span class="Delimiter">)</span> <span id="L335" class="LineNr">335 </span> expected_metadata = <span class="Constant">"modrm"</span><span class="Delimiter">;</span> -<span id="L336" class="LineNr">336 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">,</span> curr<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> +<span id="L336" class="LineNr">336 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><a href='033check_operands.cc.html#L80'>Operand_type</a><span class="Delimiter">,</span> curr<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// ignore unrecognized metadata</span> <span id="L337" class="LineNr">337 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>found<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting argument types; it should have only one\n"</span> << end<span class="Delimiter">();</span> +<span id="L338" class="LineNr">338 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << w<span class="Delimiter">.</span>original << <span class="Constant">"' has conflicting argument types; it should have only one</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L339" class="LineNr">339 </span> <span class="Identifier">return</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a><span class="Delimiter">;</span> <span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> <span id="L341" class="LineNr">341 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>instruction_arguments<span class="Delimiter">.</span>find<span class="Delimiter">(</span>curr<span class="Delimiter">)</span> != instruction_arguments<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L342" class="LineNr">342 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': duplicate "</span> << curr << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L342" class="LineNr">342 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': duplicate "</span> << curr << <span class="Constant">" argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L343" class="LineNr">343 </span> <span class="Identifier">return</span> <a href='033check_operands.cc.html#L100'>INVALID_OPERANDS</a><span class="Delimiter">;</span> <span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> <span id="L345" class="LineNr">345 </span> instruction_arguments<span class="Delimiter">.</span>insert<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> -<span id="L346" class="LineNr">346 </span> bv = <span class="Delimiter">(</span><span class="Constant">1</span> << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L80'>Operand_type</a></span><span class="Delimiter">,</span> expected_metadata<span class="Delimiter">));</span> +<span id="L346" class="LineNr">346 </span> bv = <span class="Delimiter">(</span><span class="Constant">1</span> << get<span class="Delimiter">(</span><a href='033check_operands.cc.html#L80'>Operand_type</a><span class="Delimiter">,</span> expected_metadata<span class="Delimiter">));</span> <span id="L347" class="LineNr">347 </span> found = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L348" class="LineNr">348 </span> <span class="Delimiter">}</span> <span id="L349" class="LineNr">349 </span> <span class="Identifier">return</span> bv<span class="Delimiter">;</span> <span id="L350" class="LineNr">350 </span><span class="Delimiter">}</span> <span id="L351" class="LineNr">351 </span> <span id="L352" class="LineNr">352 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L352'>test_conflicting_argument_type</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L353" class="LineNr">353 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L353" class="LineNr">353 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L354" class="LineNr">354 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L355" class="LineNr">355 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L356" class="LineNr">356 </span> <span class="Constant">"cd/software-interrupt 80/imm8/imm32\n"</span> +<span id="L355" class="LineNr">355 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L356" class="LineNr">356 </span> <span class="Constant">"cd/software-interrupt 80/imm8/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L357" class="LineNr">357 </span> <span class="Delimiter">);</span> <span id="L358" class="LineNr">358 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L359" class="LineNr">359 </span> <span class="Constant">"error: '80/imm8/imm32' has conflicting argument types; it should have only one\n"</span> +<span id="L359" class="LineNr">359 </span> <span class="Constant">"error: '80/imm8/imm32' has conflicting argument types; it should have only one</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L360" class="LineNr">360 </span> <span class="Delimiter">);</span> <span id="L361" class="LineNr">361 </span><span class="Delimiter">}</span> <span id="L362" class="LineNr">362 </span> @@ -425,13 +425,13 @@ if ('onhashchange' in window) { <span id="L364" class="LineNr">364 </span><span class="Comment">//: we'll hard-code a common set of instruction-decoding rules.</span> <span id="L365" class="LineNr">365 </span> <span id="L366" class="LineNr">366 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L366'>test_check_missing_mod_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L367" class="LineNr">367 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L367" class="LineNr">367 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L368" class="LineNr">368 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L369" class="LineNr">369 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L370" class="LineNr">370 </span> <span class="Constant">"81 0/add/subop 3/rm32/ebx 1/imm32\n"</span> +<span id="L369" class="LineNr">369 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L370" class="LineNr">370 </span> <span class="Constant">"81 0/add/subop 3/rm32/ebx 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L371" class="LineNr">371 </span> <span class="Delimiter">);</span> <span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L373" class="LineNr">373 </span> <span class="Constant">"error: '81 0/add/subop 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing mod argument\n"</span> +<span id="L373" class="LineNr">373 </span> <span class="Constant">"error: '81 0/add/subop 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing mod argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L374" class="LineNr">374 </span> <span class="Delimiter">);</span> <span id="L375" class="LineNr">375 </span><span class="Delimiter">}</span> <span id="L376" class="LineNr">376 </span> @@ -439,7 +439,7 @@ if ('onhashchange' in window) { <span id="L378" class="LineNr">378 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L531'>all_hex_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">))</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// deliberately programming in raw hex; we'll raise a warning elsewhere</span> <span id="L379" class="LineNr">379 </span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span id="L380" class="LineNr">380 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">)</span> && !has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"xm32"</span><span class="Delimiter">))</span> -<span id="L381" class="LineNr">381 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": missing rm32 (or xm32) argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L381" class="LineNr">381 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": missing rm32 (or xm32) argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L382" class="LineNr">382 </span> <span class="Comment">// no check for r32; some instructions don't use it; just assume it's 0 if missing</span> <span id="L383" class="LineNr">383 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>op<span class="Delimiter">.</span>data == <span class="Constant">"81"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"8f"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"f7"</span> || op<span class="Delimiter">.</span>data == <span class="Constant">"ff"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span class="Comment">// keep sync'd with 'help subop'</span> <span id="L384" class="LineNr">384 </span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> op<span class="Delimiter">);</span> @@ -462,7 +462,7 @@ if ('onhashchange' in window) { <span id="L401" class="LineNr">401 </span><span class="Delimiter">}</span> <span id="L402" class="LineNr">402 </span> <span id="L403" class="LineNr">403 </span><a href='011run.cc.html#L127'>word</a> <a href='033check_operands.cc.html#L403'>metadata_m32</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L404" class="LineNr">404 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L404" class="LineNr">404 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L405" class="LineNr">405 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> <span class="Constant">"rm32"</span><span class="Delimiter">)</span> || has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> <span class="Constant">"xm32"</span><span class="Delimiter">))</span> <span id="L406" class="LineNr">406 </span> <span class="Identifier">return</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L407" class="LineNr">407 </span> assert<span class="Delimiter">(</span><span class="Constant">false</span><span class="Delimiter">);</span> @@ -494,11 +494,11 @@ if ('onhashchange' in window) { <span id="L433" class="LineNr">433 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='033check_operands.cc.html#L76'>NUM_OPERAND_TYPES</a><span class="Delimiter">;</span> ++i<span class="Delimiter">,</span> bitvector >>= <span class="Constant">1</span><span class="Delimiter">,</span> expected >>= <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L434" class="LineNr">434 </span><span class="CommentedCode">//? cerr << "comparing for modrm " << HEXBYTE << NUM(bitvector) << " with " << NUM(expected) << '\n';</span> <span id="L435" class="LineNr">435 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> == <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// all good with this argument</span> -<span id="L436" class="LineNr">436 </span> <span class="Normal">const</span> string& optype = <span class="SpecialChar"><a href='033check_operands.cc.html#L79'>Operand_type_name</a></span><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> +<span id="L436" class="LineNr">436 </span> <span class="Normal">const</span> string& optype = <a href='033check_operands.cc.html#L79'>Operand_type_name</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L437" class="LineNr">437 </span> <span class="Normal">if</span> <span class="Delimiter">((</span>bitvector & <span class="Constant">0x1</span><span class="Delimiter">)</span> > <span class="Delimiter">(</span>expected & <span class="Constant">0x1</span><span class="Delimiter">))</span> -<span id="L438" class="LineNr">438 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L438" class="LineNr">438 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": unexpected "</span> << optype << <span class="Constant">" argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L439" class="LineNr">439 </span> <span class="Normal">else</span> -<span id="L440" class="LineNr">440 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L440" class="LineNr">440 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << maybe_op_name << <span class="Constant">": missing "</span> << optype << <span class="Constant">" argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L441" class="LineNr">441 </span> <span class="Comment">// continue giving all errors for a single instruction</span> <span id="L442" class="LineNr">442 </span> <span class="Delimiter">}</span> <span id="L443" class="LineNr">443 </span> <span class="Comment">// ignore settings in any unused bits</span> @@ -506,175 +506,175 @@ if ('onhashchange' in window) { <span id="L445" class="LineNr">445 </span> <span id="L446" class="LineNr">446 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L446'>check_argument_metadata_present</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& type<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L447" class="LineNr">447 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> type<span class="Delimiter">))</span> -<span id="L448" class="LineNr">448 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": missing "</span> << type << <span class="Constant">" argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L448" class="LineNr">448 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": missing "</span> << type << <span class="Constant">" argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L449" class="LineNr">449 </span><span class="Delimiter">}</span> <span id="L450" class="LineNr">450 </span> <span id="L451" class="LineNr">451 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L451'>check_argument_metadata_absent</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> string& type<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">,</span> <span class="Normal">const</span> string& msg<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L452" class="LineNr">452 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> type<span class="Delimiter">))</span> -<span id="L453" class="LineNr">453 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": unexpected "</span> << type << <span class="Constant">" argument ("</span> << msg << <span class="Constant">")\n"</span> << end<span class="Delimiter">();</span> +<span id="L453" class="LineNr">453 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << <a href='033check_operands.cc.html#L293'>maybe_name</a><span class="Delimiter">(</span>op<span class="Delimiter">)</span> << <span class="Constant">": unexpected "</span> << type << <span class="Constant">" argument ("</span> << msg << <span class="Constant">")</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L454" class="LineNr">454 </span><span class="Delimiter">}</span> <span id="L455" class="LineNr">455 </span> <span id="L456" class="LineNr">456 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L456'>test_modrm_with_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L457" class="LineNr">457 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x1</span><span class="Delimiter">;</span> +<span id="L457" class="LineNr">457 </span> Reg[EAX]<span class="Delimiter">.</span>u = <span class="Constant">0x1</span><span class="Delimiter">;</span> <span id="L458" class="LineNr">458 </span> transform<span class="Delimiter">(</span> -<span id="L459" class="LineNr">459 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L459" class="LineNr">459 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L460" class="LineNr">460 </span> <span class="Comment">// just avoid null pointer</span> -<span id="L461" class="LineNr">461 </span> <span class="Constant">"8b/copy 1/mod/lookup+disp8 0/rm32/EAX 2/r32/EDX 4/disp8\n"</span> <span class="Comment">// copy *(EAX+4) to EDX</span> +<span id="L461" class="LineNr">461 </span> <span class="Constant">"8b/copy 1/mod/lookup+disp8 0/rm32/EAX 2/r32/EDX 4/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// copy *(EAX+4) to EDX</span> <span id="L462" class="LineNr">462 </span> <span class="Delimiter">);</span> <span id="L463" class="LineNr">463 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L464" class="LineNr">464 </span><span class="Delimiter">}</span> <span id="L465" class="LineNr">465 </span> <span id="L466" class="LineNr">466 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L466'>test_check_missing_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L467" class="LineNr">467 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L467" class="LineNr">467 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L468" class="LineNr">468 </span> transform<span class="Delimiter">(</span> -<span id="L469" class="LineNr">469 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L470" class="LineNr">470 </span> <span class="Constant">"89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX\n"</span> <span class="Comment">// missing disp8</span> +<span id="L469" class="LineNr">469 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L470" class="LineNr">470 </span> <span class="Constant">"89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// missing disp8</span> <span id="L471" class="LineNr">471 </span> <span class="Delimiter">);</span> <span id="L472" class="LineNr">472 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L473" class="LineNr">473 </span> <span class="Constant">"error: '89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX' (copy r32 to rm32): missing disp8 argument\n"</span> +<span id="L473" class="LineNr">473 </span> <span class="Constant">"error: '89/copy 1/mod/lookup+disp8 0/rm32/EAX 1/r32/ECX' (copy r32 to rm32): missing disp8 argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L474" class="LineNr">474 </span> <span class="Delimiter">);</span> <span id="L475" class="LineNr">475 </span><span class="Delimiter">}</span> <span id="L476" class="LineNr">476 </span> <span id="L477" class="LineNr">477 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L477'>test_check_missing_disp32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L478" class="LineNr">478 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L478" class="LineNr">478 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L479" class="LineNr">479 </span> transform<span class="Delimiter">(</span> -<span id="L480" class="LineNr">480 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L481" class="LineNr">481 </span> <span class="Constant">"8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX\n"</span> <span class="Comment">// missing disp32</span> +<span id="L480" class="LineNr">480 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L481" class="LineNr">481 </span> <span class="Constant">"8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// missing disp32</span> <span id="L482" class="LineNr">482 </span> <span class="Delimiter">);</span> <span id="L483" class="LineNr">483 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L484" class="LineNr">484 </span> <span class="Constant">"error: '8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX' (copy rm32 to r32): missing <a href='040tests.cc.html#L82'>disp32</a> argument\n"</span> +<span id="L484" class="LineNr">484 </span> <span class="Constant">"error: '8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX' (copy rm32 to r32): missing <a href='040tests.cc.html#L82'>disp32</a> argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L485" class="LineNr">485 </span> <span class="Delimiter">);</span> <span id="L486" class="LineNr">486 </span><span class="Delimiter">}</span> <span id="L487" class="LineNr">487 </span> <span id="L488" class="LineNr">488 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L488'>test_conflicting_arguments_in_modrm_instruction</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L489" class="LineNr">489 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L489" class="LineNr">489 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L490" class="LineNr">490 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L491" class="LineNr">491 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L492" class="LineNr">492 </span> <span class="Constant">"01/add 0/mod 3/mod\n"</span> +<span id="L491" class="LineNr">491 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L492" class="LineNr">492 </span> <span class="Constant">"01/add 0/mod 3/mod</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L493" class="LineNr">493 </span> <span class="Delimiter">);</span> <span id="L494" class="LineNr">494 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L495" class="LineNr">495 </span> <span class="Constant">"error: '01/add 0/mod 3/mod' has conflicting mod arguments\n"</span> +<span id="L495" class="LineNr">495 </span> <span class="Constant">"error: '01/add 0/mod 3/mod' has conflicting mod arguments</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L496" class="LineNr">496 </span> <span class="Delimiter">);</span> <span id="L497" class="LineNr">497 </span><span class="Delimiter">}</span> <span id="L498" class="LineNr">498 </span> <span id="L499" class="LineNr">499 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L499'>test_conflicting_argument_type_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L500" class="LineNr">500 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L500" class="LineNr">500 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L501" class="LineNr">501 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L502" class="LineNr">502 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L503" class="LineNr">503 </span> <span class="Constant">"01/add 0/mod 3/rm32/r32\n"</span> +<span id="L502" class="LineNr">502 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L503" class="LineNr">503 </span> <span class="Constant">"01/add 0/mod 3/rm32/r32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L504" class="LineNr">504 </span> <span class="Delimiter">);</span> <span id="L505" class="LineNr">505 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L506" class="LineNr">506 </span> <span class="Constant">"error: '3/rm32/r32' has conflicting argument types; it should have only one\n"</span> +<span id="L506" class="LineNr">506 </span> <span class="Constant">"error: '3/rm32/r32' has conflicting argument types; it should have only one</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L507" class="LineNr">507 </span> <span class="Delimiter">);</span> <span id="L508" class="LineNr">508 </span><span class="Delimiter">}</span> <span id="L509" class="LineNr">509 </span> <span id="L510" class="LineNr">510 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L510'>test_check_missing_rm32_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L511" class="LineNr">511 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L511" class="LineNr">511 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L512" class="LineNr">512 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L513" class="LineNr">513 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L514" class="LineNr">514 </span> <span class="Constant">"81 0/add/subop 0/mod 1/imm32\n"</span> +<span id="L513" class="LineNr">513 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L514" class="LineNr">514 </span> <span class="Constant">"81 0/add/subop 0/mod 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L515" class="LineNr">515 </span> <span class="Delimiter">);</span> <span id="L516" class="LineNr">516 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L517" class="LineNr">517 </span> <span class="Constant">"error: '81 0/add/subop 0/mod 1/imm32' (combine rm32 with imm32 based on subop): missing rm32 (or xm32) argument\n"</span> +<span id="L517" class="LineNr">517 </span> <span class="Constant">"error: '81 0/add/subop 0/mod 1/imm32' (combine rm32 with imm32 based on subop): missing rm32 (or xm32) argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L518" class="LineNr">518 </span> <span class="Delimiter">);</span> <span id="L519" class="LineNr">519 </span><span class="Delimiter">}</span> <span id="L520" class="LineNr">520 </span> <span id="L521" class="LineNr">521 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L521'>test_check_missing_subop_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L522" class="LineNr">522 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L522" class="LineNr">522 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L523" class="LineNr">523 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L524" class="LineNr">524 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L525" class="LineNr">525 </span> <span class="Constant">"81 0/mod 3/rm32/ebx 1/imm32\n"</span> +<span id="L524" class="LineNr">524 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L525" class="LineNr">525 </span> <span class="Constant">"81 0/mod 3/rm32/ebx 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L526" class="LineNr">526 </span> <span class="Delimiter">);</span> <span id="L527" class="LineNr">527 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L528" class="LineNr">528 </span> <span class="Constant">"error: '81 0/mod 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing subop argument\n"</span> +<span id="L528" class="LineNr">528 </span> <span class="Constant">"error: '81 0/mod 3/rm32/ebx 1/imm32' (combine rm32 with imm32 based on subop): missing subop argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L529" class="LineNr">529 </span> <span class="Delimiter">);</span> <span id="L530" class="LineNr">530 </span><span class="Delimiter">}</span> <span id="L531" class="LineNr">531 </span> <span id="L532" class="LineNr">532 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L532'>test_check_missing_base_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L533" class="LineNr">533 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L533" class="LineNr">533 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L534" class="LineNr">534 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L535" class="LineNr">535 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L536" class="LineNr">536 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32\n"</span> +<span id="L535" class="LineNr">535 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L536" class="LineNr">536 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L537" class="LineNr">537 </span> <span class="Delimiter">);</span> <span id="L538" class="LineNr">538 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L539" class="LineNr">539 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32' (combine rm32 with imm32 based on subop): missing base argument\n"</span> +<span id="L539" class="LineNr">539 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 1/imm32' (combine rm32 with imm32 based on subop): missing base argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L540" class="LineNr">540 </span> <span class="Delimiter">);</span> <span id="L541" class="LineNr">541 </span><span class="Delimiter">}</span> <span id="L542" class="LineNr">542 </span> <span id="L543" class="LineNr">543 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L543'>test_check_missing_index_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L544" class="LineNr">544 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L544" class="LineNr">544 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L545" class="LineNr">545 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L546" class="LineNr">546 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L547" class="LineNr">547 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32\n"</span> +<span id="L546" class="LineNr">546 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L547" class="LineNr">547 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L548" class="LineNr">548 </span> <span class="Delimiter">);</span> <span id="L549" class="LineNr">549 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L550" class="LineNr">550 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32' (combine rm32 with imm32 based on subop): missing index argument\n"</span> +<span id="L550" class="LineNr">550 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 0/base 1/imm32' (combine rm32 with imm32 based on subop): missing index argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L551" class="LineNr">551 </span> <span class="Delimiter">);</span> <span id="L552" class="LineNr">552 </span><span class="Delimiter">}</span> <span id="L553" class="LineNr">553 </span> <span id="L554" class="LineNr">554 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L554'>test_check_missing_base_argument_2</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L555" class="LineNr">555 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L555" class="LineNr">555 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L556" class="LineNr">556 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L557" class="LineNr">557 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L558" class="LineNr">558 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32\n"</span> +<span id="L557" class="LineNr">557 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L558" class="LineNr">558 </span> <span class="Constant">"81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L559" class="LineNr">559 </span> <span class="Delimiter">);</span> <span id="L560" class="LineNr">560 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L561" class="LineNr">561 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32' (combine rm32 with imm32 based on subop): missing base argument\n"</span> +<span id="L561" class="LineNr">561 </span> <span class="Constant">"error: '81 0/add/subop 0/mod/indirect 4/rm32/use-sib 2/index 3/scale 1/imm32' (combine rm32 with imm32 based on subop): missing base argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L562" class="LineNr">562 </span> <span class="Delimiter">);</span> <span id="L563" class="LineNr">563 </span><span class="Delimiter">}</span> <span id="L564" class="LineNr">564 </span> <span id="L565" class="LineNr">565 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L565'>test_check_extra_displacement</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L566" class="LineNr">566 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L566" class="LineNr">566 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L567" class="LineNr">567 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L568" class="LineNr">568 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L569" class="LineNr">569 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8\n"</span> +<span id="L568" class="LineNr">568 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L569" class="LineNr">569 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L570" class="LineNr">570 </span> <span class="Delimiter">);</span> <span id="L571" class="LineNr">571 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L572" class="LineNr">572 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8' (copy r32 to rm32): unexpected disp8 argument\n"</span> +<span id="L572" class="LineNr">572 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 4/disp8' (copy r32 to rm32): unexpected disp8 argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L573" class="LineNr">573 </span> <span class="Delimiter">);</span> <span id="L574" class="LineNr">574 </span><span class="Delimiter">}</span> <span id="L575" class="LineNr">575 </span> <span id="L576" class="LineNr">576 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L576'>test_check_duplicate_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L577" class="LineNr">577 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L577" class="LineNr">577 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L578" class="LineNr">578 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L579" class="LineNr">579 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L580" class="LineNr">580 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32\n"</span> +<span id="L579" class="LineNr">579 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L580" class="LineNr">580 </span> <span class="Constant">"89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L581" class="LineNr">581 </span> <span class="Delimiter">);</span> <span id="L582" class="LineNr">582 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L583" class="LineNr">583 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32': duplicate r32 argument\n"</span> +<span id="L583" class="LineNr">583 </span> <span class="Constant">"error: '89/copy 0/mod/indirect 0/rm32/EAX 1/r32/ECX 1/r32': duplicate r32 argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L584" class="LineNr">584 </span> <span class="Delimiter">);</span> <span id="L585" class="LineNr">585 </span><span class="Delimiter">}</span> <span id="L586" class="LineNr">586 </span> <span id="L587" class="LineNr">587 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L587'>test_check_base_argument_not_needed_in_direct_mode</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L588" class="LineNr">588 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L589" class="LineNr">589 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L590" class="LineNr">590 </span> <span class="Constant">"81 0/add/subop 3/mod/indirect 4/rm32/use-sib 1/imm32\n"</span> +<span id="L589" class="LineNr">589 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L590" class="LineNr">590 </span> <span class="Constant">"81 0/add/subop 3/mod/indirect 4/rm32/use-sib 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L591" class="LineNr">591 </span> <span class="Delimiter">);</span> <span id="L592" class="LineNr">592 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L593" class="LineNr">593 </span><span class="Delimiter">}</span> <span id="L594" class="LineNr">594 </span> <span id="L595" class="LineNr">595 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L595'>test_extra_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L596" class="LineNr">596 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L596" class="LineNr">596 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L597" class="LineNr">597 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L598" class="LineNr">598 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L599" class="LineNr">599 </span> <span class="Constant">"59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP\n"</span> +<span id="L598" class="LineNr">598 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L599" class="LineNr">599 </span> <span class="Constant">"59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L600" class="LineNr">600 </span> <span class="Delimiter">);</span> <span id="L601" class="LineNr">601 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L602" class="LineNr">602 </span> <span class="Constant">"error: '59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP' (<a href='013direct_addressing.cc.html#L1270'>pop</a> top of stack to <a href='010vm.cc.html#L11'>ECX</a>): unexpected modrm argument\n"</span> +<span id="L602" class="LineNr">602 </span> <span class="Constant">"error: '59/pop-to-ECX 3/mod/direct 1/rm32/ECX 4/r32/ESP' (<a href='013direct_addressing.cc.html#L1270'>pop</a> top of stack to <a href='010vm.cc.html#L11'>ECX</a>): unexpected modrm argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L603" class="LineNr">603 </span> <span class="Delimiter">);</span> <span id="L604" class="LineNr">604 </span><span class="Delimiter">}</span> <span id="L605" class="LineNr">605 </span> -<span id="L606" class="LineNr">606 </span><span class="SalientComment">//:: similarly handle multi-byte opcodes</span> +<span id="L606" class="LineNr">606 </span><span class="Comment">//:: similarly handle multi-byte opcodes</span> <span id="L607" class="LineNr">607 </span> <span id="L608" class="LineNr">608 </span><span class="Normal">void</span> check_arguments_0f<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L609" class="LineNr">609 </span> assert<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"0f"</span><span class="Delimiter">);</span> -<span id="L610" class="LineNr">610 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L611" class="LineNr">611 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"opcode '0f' requires a second opcode\n"</span> << end<span class="Delimiter">();</span> +<span id="L610" class="LineNr">610 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L611" class="LineNr">611 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"opcode '0f' requires a second opcode</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L612" class="LineNr">612 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L613" class="LineNr">613 </span> <span class="Delimiter">}</span> <span id="L614" class="LineNr">614 </span> <a href='011run.cc.html#L127'>word</a> op = <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">));</span> -<span id="L615" class="LineNr">615 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L616" class="LineNr">616 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unknown 2-byte opcode '0f "</span> << op<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L615" class="LineNr">615 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L616" class="LineNr">616 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unknown 2-byte opcode '0f "</span> << op<span class="Delimiter">.</span>data << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L617" class="LineNr">617 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L618" class="LineNr">618 </span> <span class="Delimiter">}</span> <span id="L619" class="LineNr">619 </span> check_arguments_0f<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> @@ -682,8 +682,8 @@ if ('onhashchange' in window) { <span id="L621" class="LineNr">621 </span> <span id="L622" class="LineNr">622 </span><span class="Normal">void</span> check_arguments_f3<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L623" class="LineNr">623 </span> assert<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data == <span class="Constant">"f3"</span><span class="Delimiter">);</span> -<span id="L624" class="LineNr">624 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L625" class="LineNr">625 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"opcode 'f3' requires a second opcode\n"</span> << end<span class="Delimiter">();</span> +<span id="L624" class="LineNr">624 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> == <span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L625" class="LineNr">625 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"opcode 'f3' requires a second opcode</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L626" class="LineNr">626 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L627" class="LineNr">627 </span> <span class="Delimiter">}</span> <span id="L628" class="LineNr">628 </span> <a href='011run.cc.html#L127'>word</a> op = <a href='033check_operands.cc.html#L41'>preprocess_op</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">));</span> @@ -692,91 +692,91 @@ if ('onhashchange' in window) { <span id="L631" class="LineNr">631 </span> <a href='033check_operands.cc.html#L739'>check_arguments_f3_0f</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op2<span class="Delimiter">);</span> <span id="L632" class="LineNr">632 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L633" class="LineNr">633 </span> <span class="Delimiter">}</span> -<span id="L634" class="LineNr">634 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L635" class="LineNr">635 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unknown 2-byte opcode 'f3 "</span> << op<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L634" class="LineNr">634 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><a href='010vm.cc.html#L357'>Name_f3</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L635" class="LineNr">635 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"unknown 2-byte opcode 'f3 "</span> << op<span class="Delimiter">.</span>data << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L636" class="LineNr">636 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L637" class="LineNr">637 </span> <span class="Delimiter">}</span> <span id="L638" class="LineNr">638 </span> check_arguments_f3<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span id="L639" class="LineNr">639 </span><span class="Delimiter">}</span> <span id="L640" class="LineNr">640 </span> <span id="L641" class="LineNr">641 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L641'>test_check_missing_disp32_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L642" class="LineNr">642 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L642" class="LineNr">642 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L643" class="LineNr">643 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L644" class="LineNr">644 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L645" class="LineNr">645 </span> <span class="Constant">" 0f 84 # jmp if ZF to ??\n"</span> +<span id="L644" class="LineNr">644 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L645" class="LineNr">645 </span> <span class="Constant">" 0f 84 # jmp if ZF to ??</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L646" class="LineNr">646 </span> <span class="Delimiter">);</span> <span id="L647" class="LineNr">647 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L648" class="LineNr">648 </span> <span class="Constant">"error: '0f 84' (jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set): missing <a href='040tests.cc.html#L82'>disp32</a> argument\n"</span> +<span id="L648" class="LineNr">648 </span> <span class="Constant">"error: '0f 84' (jump <a href='040tests.cc.html#L82'>disp32</a> bytes away if equal, if <a href='010vm.cc.html#L89'>ZF</a> is set): missing <a href='040tests.cc.html#L82'>disp32</a> argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L649" class="LineNr">649 </span> <span class="Delimiter">);</span> <span id="L650" class="LineNr">650 </span><span class="Delimiter">}</span> <span id="L651" class="LineNr">651 </span> <span id="L652" class="LineNr">652 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L652'>test_0f_opcode_with_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L653" class="LineNr">653 </span> transform<span class="Delimiter">(</span> -<span id="L654" class="LineNr">654 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L655" class="LineNr">655 </span> <span class="Constant">"0f af/multiply 2/mod/*+disp32 5/rm32/ebp 8/disp32 0/r32\n"</span> +<span id="L654" class="LineNr">654 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L655" class="LineNr">655 </span> <span class="Constant">"0f af/multiply 2/mod/*+disp32 5/rm32/ebp 8/disp32 0/r32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L656" class="LineNr">656 </span> <span class="Delimiter">);</span> <span id="L657" class="LineNr">657 </span> <a href='003trace.cc.html#L304'>CHECK_TRACE_DOESNT_CONTAIN_ERRORS</a><span class="Delimiter">();</span> <span id="L658" class="LineNr">658 </span><span class="Delimiter">}</span> <span id="L659" class="LineNr">659 </span> <span id="L660" class="LineNr">660 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L661" class="LineNr">661 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">;</span> +<span id="L661" class="LineNr">661 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">;</span> <span id="L662" class="LineNr">662 </span><span class="Delimiter">:(before "End Init Permitted Operands")</span> <span id="L663" class="LineNr">663 </span><span class="SalientComment">//// Class D: just op and disp32</span> <span id="L664" class="LineNr">664 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L665" class="LineNr">665 </span><span class="Comment">// 0 0 1 |0 0 0 0</span> -<span id="L666" class="LineNr">666 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L667" class="LineNr">667 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L668" class="LineNr">668 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L669" class="LineNr">669 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L670" class="LineNr">670 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L671" class="LineNr">671 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L672" class="LineNr">672 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L673" class="LineNr">673 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L674" class="LineNr">674 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> -<span id="L675" class="LineNr">675 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L666" class="LineNr">666 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"82"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L667" class="LineNr">667 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"83"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L668" class="LineNr">668 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"84"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L669" class="LineNr">669 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"85"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L670" class="LineNr">670 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"86"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L671" class="LineNr">671 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"87"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L672" class="LineNr">672 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"8c"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L673" class="LineNr">673 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"8d"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L674" class="LineNr">674 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"8e"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> +<span id="L675" class="LineNr">675 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"8f"</span><span class="Delimiter">,</span> <span class="Constant">0x10</span><span class="Delimiter">);</span> <span id="L676" class="LineNr">676 </span> <span id="L677" class="LineNr">677 </span><span class="SalientComment">//// Class M: using ModR/M byte</span> <span id="L678" class="LineNr">678 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L679" class="LineNr">679 </span><span class="Comment">// 0 0 0 |0 0 0 1</span> -<span id="L680" class="LineNr">680 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// compare floats</span> -<span id="L681" class="LineNr">681 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// multiply ints</span> +<span id="L680" class="LineNr">680 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"2f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// compare floats</span> +<span id="L681" class="LineNr">681 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"af"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// multiply ints</span> <span id="L682" class="LineNr">682 </span><span class="Comment">// setcc</span> -<span id="L683" class="LineNr">683 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L684" class="LineNr">684 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L685" class="LineNr">685 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L686" class="LineNr">686 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L687" class="LineNr">687 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L688" class="LineNr">688 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L689" class="LineNr">689 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L690" class="LineNr">690 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L691" class="LineNr">691 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> -<span id="L692" class="LineNr">692 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L683" class="LineNr">683 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"92"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L684" class="LineNr">684 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"93"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L685" class="LineNr">685 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"94"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L686" class="LineNr">686 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"95"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L687" class="LineNr">687 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"96"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L688" class="LineNr">688 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"97"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L689" class="LineNr">689 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"9c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L690" class="LineNr">690 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"9d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L691" class="LineNr">691 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"9e"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> +<span id="L692" class="LineNr">692 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> <span class="Constant">"9f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span id="L693" class="LineNr">693 </span> <span id="L694" class="LineNr">694 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L695" class="LineNr">695 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L695'>Permitted_arguments_f3</a></span><span class="Delimiter">;</span> -<span id="L696" class="LineNr">696 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">;</span> +<span id="L695" class="LineNr">695 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <a href='033check_operands.cc.html#L695'>Permitted_arguments_f3</a><span class="Delimiter">;</span> +<span id="L696" class="LineNr">696 </span>map<<span class="Comment">/*</span><span class="Comment">op</span><span class="Comment">*/</span>string<span class="Delimiter">,</span> <span class="Comment">/*</span><span class="Comment">bitvector</span><span class="Comment">*/</span><span class="Normal">uint8_t</span>> <a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">;</span> <span id="L697" class="LineNr">697 </span><span class="Delimiter">:(before "End Init Permitted Operands")</span> <span id="L698" class="LineNr">698 </span><span class="SalientComment">//// Class M: using ModR/M byte</span> <span id="L699" class="LineNr">699 </span><span class="Comment">// imm32 imm8 disp32 |disp16 disp8 subop modrm</span> <span id="L700" class="LineNr">700 </span><span class="Comment">// 0 0 0 |0 0 0 1</span> -<span id="L701" class="LineNr">701 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"10"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// copy xm32 to x32</span> -<span id="L702" class="LineNr">702 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"11"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// copy x32 to xm32</span> -<span id="L703" class="LineNr">703 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2a"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// convert-to-float</span> -<span id="L704" class="LineNr">704 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// truncate-to-int</span> -<span id="L705" class="LineNr">705 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// convert-to-int</span> -<span id="L706" class="LineNr">706 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// square root</span> -<span id="L707" class="LineNr">707 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// inverse square root</span> -<span id="L708" class="LineNr">708 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// reciprocal</span> -<span id="L709" class="LineNr">709 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// add floats</span> -<span id="L710" class="LineNr">710 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// multiply floats</span> -<span id="L711" class="LineNr">711 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// subtract floats</span> -<span id="L712" class="LineNr">712 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// minimum of floats</span> -<span id="L713" class="LineNr">713 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// divide floats</span> -<span id="L714" class="LineNr">714 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// maximum of floats</span> +<span id="L701" class="LineNr">701 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"10"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// copy xm32 to x32</span> +<span id="L702" class="LineNr">702 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"11"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// copy x32 to xm32</span> +<span id="L703" class="LineNr">703 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"2a"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// convert-to-float</span> +<span id="L704" class="LineNr">704 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"2c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// truncate-to-int</span> +<span id="L705" class="LineNr">705 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"2d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// convert-to-int</span> +<span id="L706" class="LineNr">706 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"51"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// square root</span> +<span id="L707" class="LineNr">707 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"52"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// inverse square root</span> +<span id="L708" class="LineNr">708 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"53"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// reciprocal</span> +<span id="L709" class="LineNr">709 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"58"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// add floats</span> +<span id="L710" class="LineNr">710 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"59"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// multiply floats</span> +<span id="L711" class="LineNr">711 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5c"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// subtract floats</span> +<span id="L712" class="LineNr">712 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5d"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// minimum of floats</span> +<span id="L713" class="LineNr">713 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5e"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// divide floats</span> +<span id="L714" class="LineNr">714 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> <span class="Constant">"5f"</span><span class="Delimiter">,</span> <span class="Constant">0x01</span><span class="Delimiter">);</span> <span class="Comment">// maximum of floats</span> <span id="L715" class="LineNr">715 </span> <span id="L716" class="LineNr">716 </span><span class="Delimiter">:(code)</span> <span id="L717" class="LineNr">717 </span><span class="Normal">void</span> check_arguments_0f<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L718" class="LineNr">718 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L718" class="LineNr">718 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><a href='033check_operands.cc.html#L661'>Permitted_arguments_0f</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L719" class="LineNr">719 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L720" class="LineNr">720 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span id="L721" class="LineNr">721 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L750'>maybe_name_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> @@ -787,7 +787,7 @@ if ('onhashchange' in window) { <span id="L726" class="LineNr">726 </span><span class="Delimiter">}</span> <span id="L727" class="LineNr">727 </span> <span id="L728" class="LineNr">728 </span><span class="Normal">void</span> check_arguments_f3<span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L729" class="LineNr">729 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L695'>Permitted_arguments_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L729" class="LineNr">729 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><a href='033check_operands.cc.html#L695'>Permitted_arguments_f3</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L730" class="LineNr">730 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L731" class="LineNr">731 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span id="L732" class="LineNr">732 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L758'>maybe_name_f3</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> @@ -798,7 +798,7 @@ if ('onhashchange' in window) { <span id="L737" class="LineNr">737 </span><span class="Delimiter">}</span> <span id="L738" class="LineNr">738 </span> <span id="L739" class="LineNr">739 </span><span class="Normal">void</span> <a href='033check_operands.cc.html#L739'>check_arguments_f3_0f</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">,</span> <span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L740" class="LineNr">740 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L740" class="LineNr">740 </span> <span class="Normal">uint8_t</span> expected_bitvector = get<span class="Delimiter">(</span><a href='033check_operands.cc.html#L696'>Permitted_arguments_f3_0f</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L741" class="LineNr">741 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>HAS<span class="Delimiter">(</span>expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L69'>MODRM</a><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L742" class="LineNr">742 </span> <a href='033check_operands.cc.html#L377'>check_arguments_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> op<span class="Delimiter">);</span> <span id="L743" class="LineNr">743 </span> <a href='033check_operands.cc.html#L412'>compare_bitvector_modrm</a><span class="Delimiter">(</span>inst<span class="Delimiter">,</span> expected_bitvector<span class="Delimiter">,</span> <a href='033check_operands.cc.html#L766'>maybe_name_f3_0f</a><span class="Delimiter">(</span>op<span class="Delimiter">));</span> @@ -810,25 +810,25 @@ if ('onhashchange' in window) { <span id="L749" class="LineNr">749 </span> <span id="L750" class="LineNr">750 </span>string <a href='033check_operands.cc.html#L750'>maybe_name_0f</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L751" class="LineNr">751 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L752" class="LineNr">752 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L752" class="LineNr">752 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> <span id="L753" class="LineNr">753 </span> <span class="Comment">// strip stuff in parens from the name</span> -<span id="L754" class="LineNr">754 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L356'>Name_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L754" class="LineNr">754 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><a href='010vm.cc.html#L356'>Name_0f</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L755" class="LineNr">755 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> <span id="L756" class="LineNr">756 </span><span class="Delimiter">}</span> <span id="L757" class="LineNr">757 </span> <span id="L758" class="LineNr">758 </span>string <a href='033check_operands.cc.html#L758'>maybe_name_f3</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L759" class="LineNr">759 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L760" class="LineNr">760 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L760" class="LineNr">760 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><a href='010vm.cc.html#L357'>Name_f3</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> <span id="L761" class="LineNr">761 </span> <span class="Comment">// strip stuff in parens from the name</span> -<span id="L762" class="LineNr">762 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L357'>Name_f3</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L762" class="LineNr">762 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><a href='010vm.cc.html#L357'>Name_f3</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L763" class="LineNr">763 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> <span id="L764" class="LineNr">764 </span><span class="Delimiter">}</span> <span id="L765" class="LineNr">765 </span> <span id="L766" class="LineNr">766 </span>string <a href='033check_operands.cc.html#L766'>maybe_name_f3_0f</a><span class="Delimiter">(</span><span class="Normal">const</span> word& op<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L767" class="LineNr">767 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!is_hex_byte<span class="Delimiter">(</span>op<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L768" class="LineNr">768 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L768" class="LineNr">768 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">return</span> <span class="Constant">""</span><span class="Delimiter">;</span> <span id="L769" class="LineNr">769 </span> <span class="Comment">// strip stuff in parens from the name</span> -<span id="L770" class="LineNr">770 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L358'>Name_f3_0f</a></span><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L770" class="LineNr">770 </span> <span class="Normal">const</span> string& s = get<span class="Delimiter">(</span><a href='010vm.cc.html#L358'>Name_f3_0f</a><span class="Delimiter">,</span> op<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L771" class="LineNr">771 </span> <span class="Identifier">return</span> <span class="Constant">" ("</span>+s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> s<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="Constant">" ("</span><span class="Delimiter">))</span>+<span class="Constant">')'</span><span class="Delimiter">;</span> <span id="L772" class="LineNr">772 </span><span class="Delimiter">}</span> <span id="L773" class="LineNr">773 </span> diff --git a/html/034check_operand_bounds.cc.html b/html/linux/bootstrap/034check_operand_bounds.cc.html index f5070a01..11670f19 100644 --- a/html/034check_operand_bounds.cc.html +++ b/html/linux/bootstrap/034check_operand_bounds.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 034check_operand_bounds.cc</title> +<title>Mu - linux/bootstrap/034check_operand_bounds.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,15 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } -.Comment { color: #005faf; } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } -.SalientComment { color: #0000af; } --> </style> @@ -56,35 +54,35 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/034check_operand_bounds.cc'>https://github.com/akkartik/mu/blob/main/034check_operand_bounds.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/034check_operand_bounds.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/034check_operand_bounds.cc</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="SalientComment">//:: Check that the different arguments of an instruction aren't too large for their bitfields.</span> +<span id="L1" class="LineNr"> 1 </span><span class="Comment">//:: Check that the different arguments of an instruction aren't too large for their bitfields.</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L3'>test_check_bitfield_sizes</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L4" class="LineNr"> 4 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L5" class="LineNr"> 5 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L6" class="LineNr"> 6 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L7" class="LineNr"> 7 </span> <span class="Constant">"01/add 4/mod 3/rm32 1/r32\n"</span> <span class="Comment">// add ECX to EBX</span> +<span id="L6" class="LineNr"> 6 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L7" class="LineNr"> 7 </span> <span class="Constant">"01/add 4/mod 3/rm32 1/r32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add ECX to EBX</span> <span id="L8" class="LineNr"> 8 </span> <span class="Delimiter">);</span> <span id="L9" class="LineNr"> 9 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L10" class="LineNr"> 10 </span> <span class="Constant">"error: '4/mod' too large to fit in bitfield mod\n"</span> +<span id="L10" class="LineNr"> 10 </span> <span class="Constant">"error: '4/mod' too large to fit in bitfield mod</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">);</span> <span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L15" class="LineNr"> 15 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">;</span> +<span id="L15" class="LineNr"> 15 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">;</span> <span id="L16" class="LineNr"> 16 </span><span class="Delimiter">:(before "End One-time Setup")</span> -<span id="L17" class="LineNr"> 17 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L18" class="LineNr"> 18 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L19" class="LineNr"> 19 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L20" class="LineNr"> 20 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L21" class="LineNr"> 21 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L22" class="LineNr"> 22 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L23" class="LineNr"> 23 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> -<span id="L24" class="LineNr"> 24 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> -<span id="L25" class="LineNr"> 25 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">16</span><span class="Delimiter">);</span> +<span id="L17" class="LineNr"> 17 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"subop"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L18" class="LineNr"> 18 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> +<span id="L19" class="LineNr"> 19 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"rm32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L20" class="LineNr"> 20 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"base"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L21" class="LineNr"> 21 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"index"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L22" class="LineNr"> 22 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"scale"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">2</span><span class="Delimiter">);</span> +<span id="L23" class="LineNr"> 23 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"r32"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">3</span><span class="Delimiter">);</span> +<span id="L24" class="LineNr"> 24 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> +<span id="L25" class="LineNr"> 25 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">16</span><span class="Delimiter">);</span> <span id="L26" class="LineNr"> 26 </span><span class="Comment">// no bound needed for disp32</span> -<span id="L27" class="LineNr"> 27 </span><a href='001help.cc.html#L235'>put_new</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> +<span id="L27" class="LineNr"> 27 </span><a href='001help.cc.html#L237'>put_new</a><span class="Delimiter">(</span><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">,</span> <span class="Constant">1</span><<<span class="Constant">8</span><span class="Delimiter">);</span> <span id="L28" class="LineNr"> 28 </span><span class="Comment">// no bound needed for imm32</span> <span id="L29" class="LineNr"> 29 </span> <span id="L30" class="LineNr"> 30 </span><span class="Delimiter">:(before "Pack Operands(segment code)")</span> @@ -93,16 +91,16 @@ if ('onhashchange' in window) { <span id="L33" class="LineNr"> 33 </span><span class="Delimiter">:(code)</span> <span id="L34" class="LineNr"> 34 </span><span class="Normal">void</span> check_argument_bounds<span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L35" class="LineNr"> 35 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- check argument bounds"</span> << end<span class="Delimiter">();</span> -<span id="L36" class="LineNr"> 36 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L36" class="LineNr"> 36 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L37" class="LineNr"> 37 </span> <span class="Normal">const</span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L38" class="LineNr"> 38 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> +<span id="L38" class="LineNr"> 38 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <a href='033check_operands.cc.html#L315'>first_argument</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span id="L39" class="LineNr"> 39 </span> check_argument_bounds<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">));</span> <span id="L40" class="LineNr"> 40 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span class="Comment">// stop at the first mal-formed instruction</span> <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> <span id="L43" class="LineNr"> 43 </span> <span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> check_argument_bounds<span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='034check_operand_bounds.cc.html#L15'>Operand_bound</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L46" class="LineNr"> 46 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_argument_metadata<span class="Delimiter">(</span>w<span class="Delimiter">,</span> p<span class="Delimiter">-></span>first<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L47" class="LineNr"> 47 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!looks_like_hex_int<span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// later transforms are on their own to do their own bounds checking</span> <span id="L48" class="LineNr"> 48 </span> <span class="Normal">int32_t</span> x = <a href='032operands.cc.html#L608'>parse_int</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>data<span class="Delimiter">);</span> @@ -126,79 +124,79 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> <span id="L67" class="LineNr"> 67 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L67'>test_check_bitfield_sizes_for_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L69" class="LineNr"> 69 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L70" class="LineNr"> 70 </span> <span class="Constant">"c1/shift 4/subop/left 3/mod/direct 1/rm32/ECX 0xff/imm8"</span> <span class="Comment">// shift EBX left</span> <span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">);</span> <span id="L72" class="LineNr"> 72 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!trace_contains_errors<span class="Delimiter">());</span> <span id="L73" class="LineNr"> 73 </span><span class="Delimiter">}</span> <span id="L74" class="LineNr"> 74 </span> <span id="L75" class="LineNr"> 75 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L75'>test_check_bitfield_sizes_for_imm8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L76" class="LineNr"> 76 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L77" class="LineNr"> 77 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L79" class="LineNr"> 79 </span> <span class="Constant">"c1/shift 4/subop/left 3/mod/direct 1/rm32/ECX 0x100/imm8"</span> <span class="Comment">// shift EBX left</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">);</span> <span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"error: '0x100/imm8' too large to fit in bitfield imm8\n"</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Constant">"error: '0x100/imm8' too large to fit in bitfield imm8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">);</span> <span id="L84" class="LineNr"> 84 </span><span class="Delimiter">}</span> <span id="L85" class="LineNr"> 85 </span> <span id="L86" class="LineNr"> 86 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L86'>test_check_bitfield_sizes_for_negative_imm8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L87" class="LineNr"> 87 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L89" class="LineNr"> 89 </span> <span class="Constant">"c1/shift 4/subop/left 3/mod/direct 1/rm32/ECX -0x80/imm8"</span> <span class="Comment">// shift EBX left</span> <span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">);</span> <span id="L91" class="LineNr"> 91 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!trace_contains_errors<span class="Delimiter">());</span> <span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span> <span id="L94" class="LineNr"> 94 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L94'>test_check_bitfield_sizes_for_negative_imm8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L95" class="LineNr"> 95 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L95" class="LineNr"> 95 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L96" class="LineNr"> 96 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Constant">"== code 0x1\n"</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L98" class="LineNr"> 98 </span> <span class="Constant">"c1/shift 4/subop/left 3/mod/direct 1/rm32/ECX -0x81/imm8"</span> <span class="Comment">// shift EBX left</span> <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">);</span> <span id="L100" class="LineNr">100 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L101" class="LineNr">101 </span> <span class="Constant">"error: '-0x81/imm8' too large to fit in bitfield imm8\n"</span> +<span id="L101" class="LineNr">101 </span> <span class="Constant">"error: '-0x81/imm8' too large to fit in bitfield imm8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L102" class="LineNr">102 </span> <span class="Delimiter">);</span> <span id="L103" class="LineNr">103 </span><span class="Delimiter">}</span> <span id="L104" class="LineNr">104 </span> <span id="L105" class="LineNr">105 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L105'>test_check_bitfield_sizes_for_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L106" class="LineNr">106 </span> <span class="Comment">// not bothering to run</span> <span id="L107" class="LineNr">107 </span> transform<span class="Delimiter">(</span> -<span id="L108" class="LineNr">108 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L109" class="LineNr">109 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 0x7f/disp8\n"</span> <span class="Comment">// add ECX to *(EBX+0x7f)</span> +<span id="L108" class="LineNr">108 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L109" class="LineNr">109 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 0x7f/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add ECX to *(EBX+0x7f)</span> <span id="L110" class="LineNr">110 </span> <span class="Delimiter">);</span> <span id="L111" class="LineNr">111 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!trace_contains_errors<span class="Delimiter">());</span> <span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span> <span id="L114" class="LineNr">114 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L114'>test_check_bitfield_sizes_for_disp8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L115" class="LineNr">115 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L116" class="LineNr">116 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L117" class="LineNr">117 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L118" class="LineNr">118 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 0x80/disp8\n"</span> <span class="Comment">// add ECX to *(EBX+0x80)</span> +<span id="L117" class="LineNr">117 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L118" class="LineNr">118 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 0x80/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add ECX to *(EBX+0x80)</span> <span id="L119" class="LineNr">119 </span> <span class="Delimiter">);</span> <span id="L120" class="LineNr">120 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L121" class="LineNr">121 </span> <span class="Constant">"error: '0x80/disp8' too large to fit in signed bitfield disp8\n"</span> +<span id="L121" class="LineNr">121 </span> <span class="Constant">"error: '0x80/disp8' too large to fit in signed bitfield disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L122" class="LineNr">122 </span> <span class="Delimiter">);</span> <span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> <span id="L125" class="LineNr">125 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L125'>test_check_bitfield_sizes_for_negative_disp8</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L126" class="LineNr">126 </span> <span class="Comment">// not bothering to run</span> <span id="L127" class="LineNr">127 </span> transform<span class="Delimiter">(</span> -<span id="L128" class="LineNr">128 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L129" class="LineNr">129 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 -0x80/disp8\n"</span> <span class="Comment">// add ECX to *(EBX-0x80)</span> +<span id="L128" class="LineNr">128 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L129" class="LineNr">129 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 -0x80/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add ECX to *(EBX-0x80)</span> <span id="L130" class="LineNr">130 </span> <span class="Delimiter">);</span> <span id="L131" class="LineNr">131 </span> <a href='002test.cc.html#L24'>CHECK</a><span class="Delimiter">(</span>!trace_contains_errors<span class="Delimiter">());</span> <span id="L132" class="LineNr">132 </span><span class="Delimiter">}</span> <span id="L133" class="LineNr">133 </span> <span id="L134" class="LineNr">134 </span><span class="Normal">void</span> <a href='034check_operand_bounds.cc.html#L134'>test_check_bitfield_sizes_for_negative_disp8_error</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L135" class="LineNr">135 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L135" class="LineNr">135 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L136" class="LineNr">136 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L137" class="LineNr">137 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L138" class="LineNr">138 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 -0x81/disp8\n"</span> <span class="Comment">// add ECX to *(EBX-0x81)</span> +<span id="L137" class="LineNr">137 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L138" class="LineNr">138 </span> <span class="Constant">"01/add 1/mod/*+disp8 3/rm32 1/r32 -0x81/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// add ECX to *(EBX-0x81)</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L141" class="LineNr">141 </span> <span class="Constant">"error: '-0x81/disp8' too large to fit in bitfield disp8\n"</span> +<span id="L141" class="LineNr">141 </span> <span class="Constant">"error: '-0x81/disp8' too large to fit in bitfield disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L142" class="LineNr">142 </span> <span class="Delimiter">);</span> <span id="L143" class="LineNr">143 </span><span class="Delimiter">}</span> </pre> diff --git a/html/035compute_segment_address.cc.html b/html/linux/bootstrap/035compute_segment_address.cc.html index 56255364..a71afcf6 100644 --- a/html/035compute_segment_address.cc.html +++ b/html/linux/bootstrap/035compute_segment_address.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 035compute_segment_address.cc</title> +<title>Mu - linux/bootstrap/035compute_segment_address.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/035compute_segment_address.cc'>https://github.com/akkartik/mu/blob/main/035compute_segment_address.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/035compute_segment_address.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/035compute_segment_address.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: ELF binaries have finicky rules about the precise alignment each segment</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: should start at. They depend on the amount of code in a program.</span> @@ -66,30 +66,30 @@ if ('onhashchange' in window) { <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="Normal">void</span> <a href='035compute_segment_address.cc.html#L9'>test_segment_name</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L10" class="LineNr">10 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L11" class="LineNr">11 </span> <span class="Constant">"== code 0x09000000\n"</span> -<span id="L12" class="LineNr">12 </span> <span class="Constant">"05/add-to-EAX 0x0d0c0b0a/imm32\n"</span> +<span id="L11" class="LineNr">11 </span> <span class="Constant">"== code 0x09000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L12" class="LineNr">12 </span> <span class="Constant">"05/add-to-EAX 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L13" class="LineNr">13 </span> <span class="Comment">// code starts at 0x09000000 + p_offset, which is 0x54 for a single-segment binary</span> <span id="L14" class="LineNr">14 </span> <span class="Delimiter">);</span> <span id="L15" class="LineNr">15 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L16" class="LineNr">16 </span> <span class="Constant">"load: 0x09000054 -> 05\n"</span> -<span id="L17" class="LineNr">17 </span> <span class="Constant">"load: 0x09000055 -> 0a\n"</span> -<span id="L18" class="LineNr">18 </span> <span class="Constant">"load: 0x09000056 -> 0b\n"</span> -<span id="L19" class="LineNr">19 </span> <span class="Constant">"load: 0x09000057 -> 0c\n"</span> -<span id="L20" class="LineNr">20 </span> <span class="Constant">"load: 0x09000058 -> 0d\n"</span> -<span id="L21" class="LineNr">21 </span> <span class="Constant">"run: add imm32 0x0d0c0b0a to EAX\n"</span> -<span id="L22" class="LineNr">22 </span> <span class="Constant">"run: storing 0x0d0c0b0a\n"</span> +<span id="L16" class="LineNr">16 </span> <span class="Constant">"load: 0x09000054 -> 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L17" class="LineNr">17 </span> <span class="Constant">"load: 0x09000055 -> 0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L18" class="LineNr">18 </span> <span class="Constant">"load: 0x09000056 -> 0b</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L19" class="LineNr">19 </span> <span class="Constant">"load: 0x09000057 -> 0c</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L20" class="LineNr">20 </span> <span class="Constant">"load: 0x09000058 -> 0d</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L21" class="LineNr">21 </span> <span class="Constant">"run: add imm32 0x0d0c0b0a to <a href='010vm.cc.html#L10'>EAX</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L22" class="LineNr">22 </span> <span class="Constant">"run: storing 0x0d0c0b0a</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L23" class="LineNr">23 </span> <span class="Delimiter">);</span> <span id="L24" class="LineNr">24 </span><span class="Delimiter">}</span> <span id="L25" class="LineNr">25 </span> <span id="L26" class="LineNr">26 </span><span class="Comment">//: compute segment address</span> <span id="L27" class="LineNr">27 </span> <span id="L28" class="LineNr">28 </span><span class="Delimiter">:(before "End Transforms")</span> -<span id="L29" class="LineNr">29 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='035compute_segment_address.cc.html#L32'>compute_segment_starts</a><span class="Delimiter">);</span> +<span id="L29" class="LineNr">29 </span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='035compute_segment_address.cc.html#L32'>compute_segment_starts</a><span class="Delimiter">);</span> <span id="L30" class="LineNr">30 </span> <span id="L31" class="LineNr">31 </span><span class="Delimiter">:(code)</span> <span id="L32" class="LineNr">32 </span><span class="Normal">void</span> <a href='035compute_segment_address.cc.html#L32'>compute_segment_starts</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L33" class="LineNr">33 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- compute segment addresses"</span> << end<span class="Delimiter">();</span> -<span id="L34" class="LineNr">34 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> +<span id="L34" class="LineNr">34 </span> <span class="Normal">uint32_t</span> p_offset = <span class="Comment">/*</span><span class="Comment">size of ehdr</span><span class="Comment">*/</span><span class="Constant">0x34</span> + <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">)</span>*<span class="Constant">0x20</span><span class="Comment">/*</span><span class="Comment">size of each phdr</span><span class="Comment">*/</span><span class="Delimiter">;</span> <span id="L35" class="LineNr">35 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">size_t</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>size<span class="Delimiter">();</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L36" class="LineNr">36 </span> segment& curr = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L37" class="LineNr">37 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>start >= <span class="Constant">0x08000000</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -105,7 +105,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr">47 </span> <span id="L48" class="LineNr">48 </span><span class="Normal">uint32_t</span> size_of<span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L49" class="LineNr">49 </span> <span class="Normal">uint32_t</span> sum = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L50" class="LineNr">50 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L50" class="LineNr">50 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L51" class="LineNr">51 </span> sum += <a href='035compute_segment_address.cc.html#L56'>num_bytes</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span id="L52" class="LineNr">52 </span> <span class="Identifier">return</span> sum<span class="Delimiter">;</span> <span id="L53" class="LineNr">53 </span><span class="Delimiter">}</span> @@ -113,7 +113,7 @@ if ('onhashchange' in window) { <span id="L55" class="LineNr">55 </span><span class="Comment">// Assumes all bitfields are packed.</span> <span id="L56" class="LineNr">56 </span><span class="Normal">uint32_t</span> <a href='035compute_segment_address.cc.html#L56'>num_bytes</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L57" class="LineNr">57 </span> <span class="Normal">uint32_t</span> sum = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L58" class="LineNr">58 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L58" class="LineNr">58 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L59" class="LineNr">59 </span> sum += size_of<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span id="L60" class="LineNr">60 </span> <span class="Identifier">return</span> sum<span class="Delimiter">;</span> <span id="L61" class="LineNr">61 </span><span class="Delimiter">}</span> diff --git a/html/036labels.cc.html b/html/linux/bootstrap/036labels.cc.html index c7bff00f..2068cf7c 100644 --- a/html/036labels.cc.html +++ b/html/linux/bootstrap/036labels.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 036labels.cc</title> +<title>Mu - linux/bootstrap/036labels.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,14 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> @@ -55,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/036labels.cc'>https://github.com/akkartik/mu/blob/main/036labels.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/036labels.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/036labels.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Labels are defined by ending names with a ':'. This layer will compute</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: displacements for labels, and compute the offset for instructions using them.</span> @@ -85,93 +84,93 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span> <span id="L27" class="LineNr"> 27 </span><span class="Normal">void</span> <a href='036labels.cc.html#L27'>test_Entry_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L28" class="LineNr"> 28 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L29" class="LineNr"> 29 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L30" class="LineNr"> 30 </span> <span class="Constant">"05 0x0d0c0b0a/imm32\n"</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Constant">"Entry:\n"</span> -<span id="L32" class="LineNr"> 32 </span> <span class="Constant">"05 0x0d0c0b0a/imm32\n"</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L30" class="LineNr"> 30 </span> <span class="Constant">"05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L31" class="LineNr"> 31 </span> <span class="Constant">"Entry:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L32" class="LineNr"> 32 </span> <span class="Constant">"05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">);</span> <span id="L34" class="LineNr"> 34 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L35" class="LineNr"> 35 </span> <span class="Constant">"run: 0x00000006 opcode: 05\n"</span> +<span id="L35" class="LineNr"> 35 </span> <span class="Constant">"run: 0x00000006 opcode: 05</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L36" class="LineNr"> 36 </span> <span class="Delimiter">);</span> <span id="L37" class="LineNr"> 37 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"run: 0x00000001 opcode: 05"</span><span class="Delimiter">);</span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(before "End <a href='032operands.cc.html#L591'>looks_like_hex_int</a>(s) Detectors")</span> -<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L42" class="LineNr"> 42 </span> <span id="L43" class="LineNr"> 43 </span><span class="Delimiter">:(code)</span> <span id="L44" class="LineNr"> 44 </span><span class="Normal">void</span> <a href='036labels.cc.html#L44'>test_pack_immediate_ignores_single_byte_nondigit_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L45" class="LineNr"> 45 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L45" class="LineNr"> 45 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L46" class="LineNr"> 46 </span> transform<span class="Delimiter">(</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"b9/copy a/imm32\n"</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L48" class="LineNr"> 48 </span> <span class="Constant">"b9/copy a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">);</span> <span id="L50" class="LineNr"> 50 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"transform: packing instruction 'b9/copy a/imm32'\n"</span> +<span id="L51" class="LineNr"> 51 </span> <span class="Constant">"transform: packing instruction 'b9/copy a/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L52" class="LineNr"> 52 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> -<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"transform: instruction after packing: 'b9 a'\n"</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Constant">"transform: instruction after packing: 'b9 a'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">);</span> <span id="L55" class="LineNr"> 55 </span><span class="Delimiter">}</span> <span id="L56" class="LineNr"> 56 </span> <span id="L57" class="LineNr"> 57 </span><span class="Normal">void</span> <a href='036labels.cc.html#L57'>test_pack_immediate_ignores_3_hex_digit_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L58" class="LineNr"> 58 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L58" class="LineNr"> 58 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L59" class="LineNr"> 59 </span> transform<span class="Delimiter">(</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"b9/copy aaa/imm32\n"</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Constant">"b9/copy aaa/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">);</span> <span id="L63" class="LineNr"> 63 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"transform: packing instruction 'b9/copy aaa/imm32'\n"</span> +<span id="L64" class="LineNr"> 64 </span> <span class="Constant">"transform: packing instruction 'b9/copy aaa/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L65" class="LineNr"> 65 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> -<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"transform: instruction after packing: 'b9 aaa'\n"</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Constant">"transform: instruction after packing: 'b9 aaa'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">);</span> <span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> <span id="L69" class="LineNr"> 69 </span> <span id="L70" class="LineNr"> 70 </span><span class="Normal">void</span> <a href='036labels.cc.html#L70'>test_pack_immediate_ignores_non_hex_argument</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L71" class="LineNr"> 71 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L71" class="LineNr"> 71 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L72" class="LineNr"> 72 </span> transform<span class="Delimiter">(</span> -<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"b9/copy xxx/imm32\n"</span> +<span id="L73" class="LineNr"> 73 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Constant">"b9/copy xxx/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">);</span> <span id="L76" class="LineNr"> 76 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"transform: packing instruction 'b9/copy xxx/imm32'\n"</span> +<span id="L77" class="LineNr"> 77 </span> <span class="Constant">"transform: packing instruction 'b9/copy xxx/imm32'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L78" class="LineNr"> 78 </span> <span class="Comment">// no change (we're just not printing metadata to the trace)</span> -<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"transform: instruction after packing: 'b9 xxx'\n"</span> +<span id="L79" class="LineNr"> 79 </span> <span class="Constant">"transform: instruction after packing: 'b9 xxx'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">);</span> <span id="L81" class="LineNr"> 81 </span><span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> <span id="L83" class="LineNr"> 83 </span><span class="Comment">//: a helper we'll find handy later</span> <span id="L84" class="LineNr"> 84 </span><span class="Normal">void</span> <a href='036labels.cc.html#L84'>check_valid_name</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"empty name!\n"</span> << end<span class="Delimiter">();</span> +<span id="L86" class="LineNr"> 86 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"empty name!</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L87" class="LineNr"> 87 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">}</span> <span id="L89" class="LineNr"> 89 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> == <span class="Constant">'-'</span><span class="Delimiter">)</span> -<span id="L90" class="LineNr"> 90 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with '-', which can be confused with a negative number; use a different name\n"</span> << end<span class="Delimiter">();</span> +<span id="L90" class="LineNr"> 90 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with '-', which can be confused with a negative number; use a different <a href='011run.cc.html#L111'>name</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L91" class="LineNr"> 91 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>s<span class="Delimiter">.</span>substr<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">)</span> == <span class="Constant">"0x"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' looks like a hex number; use a different name\n"</span> << end<span class="Delimiter">();</span> +<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' looks like a hex number; use a different <a href='011run.cc.html#L111'>name</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L93" class="LineNr"> 93 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>isdigit<span class="Delimiter">(</span>s<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)))</span> -<span id="L96" class="LineNr"> 96 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with a digit, and so can be confused with a number; use a different name.\n"</span> << end<span class="Delimiter">();</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> -<span id="L98" class="LineNr"> 98 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' is two characters long, which can look like raw hex bytes at a glance; use a different name\n"</span> << end<span class="Delimiter">();</span> +<span id="L96" class="LineNr"> 96 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' starts with a digit, and so can be confused with a number; use a different name.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">)</span> == <span class="Constant">2</span><span class="Delimiter">)</span> +<span id="L98" class="LineNr"> 98 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << s << <span class="Constant">"' is two characters long, which can look like raw hex bytes at a glance; use a different <a href='011run.cc.html#L111'>name</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> <span id="L100" class="LineNr">100 </span> <span id="L101" class="LineNr">101 </span><span class="Comment">//: Now that that's done, let's start using names as labels.</span> <span id="L102" class="LineNr">102 </span> <span id="L103" class="LineNr">103 </span><span class="Normal">void</span> <a href='036labels.cc.html#L103'>test_map_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L104" class="LineNr">104 </span> transform<span class="Delimiter">(</span> -<span id="L105" class="LineNr">105 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L106" class="LineNr">106 </span> <span class="Constant">"loop:\n"</span> -<span id="L107" class="LineNr">107 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> +<span id="L105" class="LineNr">105 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L106" class="LineNr">106 </span> <span class="Constant">"loop:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L107" class="LineNr">107 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L108" class="LineNr">108 </span> <span class="Delimiter">);</span> <span id="L109" class="LineNr">109 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L110" class="LineNr">110 </span> <span class="Constant">"transform: label 'loop' is at address 1\n"</span> +<span id="L110" class="LineNr">110 </span> <span class="Constant">"transform: label 'loop' is at address 1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L111" class="LineNr">111 </span> <span class="Delimiter">);</span> <span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span> <span id="L114" class="LineNr">114 </span><span class="Delimiter">:(before "End Transforms")</span> -<span id="L115" class="LineNr">115 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='036labels.cc.html#L117'>rewrite_labels</a><span class="Delimiter">);</span> +<span id="L115" class="LineNr">115 </span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='036labels.cc.html#L117'>rewrite_labels</a><span class="Delimiter">);</span> <span id="L116" class="LineNr">116 </span><span class="Delimiter">:(code)</span> <span id="L117" class="LineNr">117 </span><span class="Normal">void</span> <a href='036labels.cc.html#L117'>rewrite_labels</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L118" class="LineNr">118 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- rewrite labels"</span> << end<span class="Delimiter">();</span> @@ -183,17 +182,17 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span> <a href='036labels.cc.html#L205'>drop_labels</a><span class="Delimiter">(</span>code<span class="Delimiter">);</span> <span id="L125" class="LineNr">125 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L126" class="LineNr">126 </span> <a href='036labels.cc.html#L217'>replace_labels_with_displacements</a><span class="Delimiter">(</span>code<span class="Delimiter">,</span> byte_index<span class="Delimiter">);</span> -<span id="L127" class="LineNr">127 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> <span class="Constant">"Entry"</span><span class="Delimiter">))</span> +<span id="L127" class="LineNr">127 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> <span class="Constant">"Entry"</span><span class="Delimiter">))</span> <span id="L128" class="LineNr">128 </span> p<span class="Delimiter">.</span><a href='011run.cc.html#L105'>entry</a> = code<span class="Delimiter">.</span>start + get<span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> <span class="Constant">"Entry"</span><span class="Delimiter">);</span> <span id="L129" class="LineNr">129 </span><span class="Delimiter">}</span> <span id="L130" class="LineNr">130 </span> <span id="L131" class="LineNr">131 </span><span class="Normal">void</span> <a href='036labels.cc.html#L131'>compute_byte_indices_for_labels</a><span class="Delimiter">(</span><span class="Normal">const</span> segment& code<span class="Delimiter">,</span> map<string<span class="Delimiter">,</span> <span class="Normal">int32_t</span>>& byte_index<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L132" class="LineNr">132 </span> <span class="Normal">int</span> current_byte = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L133" class="LineNr">133 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L134" class="LineNr">134 </span> <span class="Normal">const</span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L135" class="LineNr">135 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">()</span> && !inst<span class="Delimiter">.</span>original<span class="Delimiter">.</span>empty<span class="Delimiter">()</span> && <span class="Comment">/*</span><span class="Comment">not a label</span><span class="Comment">*/</span> *inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> -<span id="L136" class="LineNr">136 </span> <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << inst<span class="Delimiter">.</span>original << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L137" class="LineNr">137 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L135" class="LineNr">135 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L184'>Source_lines_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">()</span> && !inst<span class="Delimiter">.</span>original<span class="Delimiter">.</span>empty<span class="Delimiter">()</span> && <span class="Comment">/*</span><span class="Comment">not a label</span><span class="Comment">*/</span> *inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> +<span id="L136" class="LineNr">136 </span> <a href='036labels.cc.html#L184'>Source_lines_file</a> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << inst<span class="Delimiter">.</span>original << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L137" class="LineNr">137 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L138" class="LineNr">138 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L139" class="LineNr">139 </span> <span class="Comment">// hack: if we have any argument metadata left after previous transforms,</span> <span id="L140" class="LineNr">140 </span> <span class="Comment">// deduce its size</span> @@ -202,12 +201,12 @@ if ('onhashchange' in window) { <span id="L143" class="LineNr">143 </span> <span class="Comment">// have to deal with bitfields.</span> <span id="L144" class="LineNr">144 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> || has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L145" class="LineNr">145 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> == <span class="Constant">':'</span><span class="Delimiter">)</span> -<span id="L146" class="LineNr">146 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels\n"</span> << end<span class="Delimiter">();</span> +<span id="L146" class="LineNr">146 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L147" class="LineNr">147 </span> current_byte += <span class="Constant">4</span><span class="Delimiter">;</span> <span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> <span id="L149" class="LineNr">149 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L150" class="LineNr">150 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> == <span class="Constant">':'</span><span class="Delimiter">)</span> -<span id="L151" class="LineNr">151 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels\n"</span> << end<span class="Delimiter">();</span> +<span id="L151" class="LineNr">151 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': don't use ':' when jumping to labels</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L152" class="LineNr">152 </span> current_byte += <span class="Constant">2</span><span class="Delimiter">;</span> <span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> <span id="L154" class="LineNr">154 </span> <span class="Comment">// automatically handle /disp8 and /imm8 here</span> @@ -215,21 +214,21 @@ if ('onhashchange' in window) { <span id="L156" class="LineNr">156 </span> ++current_byte<span class="Delimiter">;</span> <span id="L157" class="LineNr">157 </span> <span class="Delimiter">}</span> <span id="L158" class="LineNr">158 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L159" class="LineNr">159 </span> string label = <a href='036labels.cc.html#L263'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L159" class="LineNr">159 </span> string label = <a href='036labels.cc.html#L276'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L160" class="LineNr">160 </span> <span class="Comment">// ensure labels look sufficiently different from raw hex</span> <span id="L161" class="LineNr">161 </span> <a href='036labels.cc.html#L84'>check_valid_name</a><span class="Delimiter">(</span>label<span class="Delimiter">);</span> <span id="L162" class="LineNr">162 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L163" class="LineNr">163 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L548'>contains_any_argument_metadata</a><span class="Delimiter">(</span>curr<span class="Delimiter">))</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label definition (':') not allowed in argument\n"</span> << end<span class="Delimiter">();</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label definition (':') not allowed in argument</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L165" class="LineNr">165 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>j > <span class="Constant">0</span><span class="Delimiter">)</span> -<span id="L166" class="LineNr">166 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': labels can only be the first <a href='011run.cc.html#L127'>word</a> in a line.\n"</span> << end<span class="Delimiter">();</span> -<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> -<span id="L168" class="LineNr">168 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << label << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L169" class="LineNr">169 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">)</span> && label != <span class="Constant">"Entry"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"duplicate label '"</span> << label << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L166" class="LineNr">166 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': labels can only be the first <a href='011run.cc.html#L127'>word</a> in a line.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L167" class="LineNr">167 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L183'>Labels_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> +<span id="L168" class="LineNr">168 </span> <a href='036labels.cc.html#L183'>Labels_file</a> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <span class="Delimiter">(</span>code<span class="Delimiter">.</span>start + current_byte<span class="Delimiter">)</span> << <span class="Constant">' '</span> << label << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L169" class="LineNr">169 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">)</span> && label != <span class="Constant">"Entry"</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L170" class="LineNr">170 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"duplicate label '"</span> << label << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L171" class="LineNr">171 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L172" class="LineNr">172 </span> <span class="Delimiter">}</span> -<span id="L173" class="LineNr">173 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">,</span> current_byte<span class="Delimiter">);</span> +<span id="L173" class="LineNr">173 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> label<span class="Delimiter">,</span> current_byte<span class="Delimiter">);</span> <span id="L174" class="LineNr">174 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"label '"</span> << label << <span class="Constant">"' is at address "</span> << <span class="Delimiter">(</span>current_byte+code<span class="Delimiter">.</span>start<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L175" class="LineNr">175 </span> <span class="Comment">// no modifying current_byte; label definitions won't be in the final binary</span> <span id="L176" class="LineNr">176 </span> <span class="Delimiter">}</span> @@ -238,31 +237,31 @@ if ('onhashchange' in window) { <span id="L179" class="LineNr">179 </span><span class="Delimiter">}</span> <span id="L180" class="LineNr">180 </span> <span id="L181" class="LineNr">181 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L182" class="LineNr">182 </span><span class="Normal">bool</span> <span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// currently used only by 'bootstrap translate'</span> -<span id="L183" class="LineNr">183 </span>ofstream <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">;</span> -<span id="L184" class="LineNr">184 </span>ofstream <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">;</span> +<span id="L182" class="LineNr">182 </span><span class="Normal">bool</span> <a href='036labels.cc.html#L182'>Dump_debug_info</a> = <span class="Constant">false</span><span class="Delimiter">;</span> <span class="Comment">// currently used only by 'bootstrap translate'</span> +<span id="L183" class="LineNr">183 </span>ofstream <a href='036labels.cc.html#L183'>Labels_file</a><span class="Delimiter">;</span> +<span id="L184" class="LineNr">184 </span>ofstream <a href='036labels.cc.html#L184'>Source_lines_file</a><span class="Delimiter">;</span> <span id="L185" class="LineNr">185 </span><span class="Delimiter">:(before "End Commandline Options")</span> <span id="L186" class="LineNr">186 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L98'>is_equal</a><span class="Delimiter">(</span>*arg<span class="Delimiter">,</span> <span class="Constant">"--debug"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L187" class="LineNr">187 </span> <span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L187" class="LineNr">187 </span> <a href='036labels.cc.html#L182'>Dump_debug_info</a> = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L188" class="LineNr">188 </span> <span class="Comment">// End --debug Settings</span> <span id="L189" class="LineNr">189 </span><span class="Delimiter">}</span> <span id="L190" class="LineNr">190 </span><span class="Comment">//: wait to open "labels" for writing until we're sure we aren't trying to read it</span> <span id="L191" class="LineNr">191 </span><span class="Delimiter">:(after "Begin bootstrap translate")</span> -<span id="L192" class="LineNr">192 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L193" class="LineNr">193 </span> cerr << <span class="Constant">"saving address->label information to 'labels'\n"</span><span class="Delimiter">;</span> -<span id="L194" class="LineNr">194 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"labels"</span><span class="Delimiter">);</span> -<span id="L195" class="LineNr">195 </span> cerr << <span class="Constant">"saving address->source information to 'source_lines'\n"</span><span class="Delimiter">;</span> -<span id="L196" class="LineNr">196 </span> <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"source_lines"</span><span class="Delimiter">);</span> +<span id="L192" class="LineNr">192 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L182'>Dump_debug_info</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> cerr << <span class="Constant">"saving address->label information to 'labels'</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L194" class="LineNr">194 </span> <a href='036labels.cc.html#L183'>Labels_file</a><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"labels"</span><span class="Delimiter">);</span> +<span id="L195" class="LineNr">195 </span> cerr << <span class="Constant">"saving address->source information to 'source_lines'</span><span class="cSpecial">\n</span><span class="Constant">"</span><span class="Delimiter">;</span> +<span id="L196" class="LineNr">196 </span> <a href='036labels.cc.html#L184'>Source_lines_file</a><span class="Delimiter">.</span>open<span class="Delimiter">(</span><span class="Constant">"source_lines"</span><span class="Delimiter">);</span> <span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> <span id="L198" class="LineNr">198 </span><span class="Delimiter">:(before "End bootstrap translate")</span> -<span id="L199" class="LineNr">199 </span><span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L182'>Dump_debug_info</a></span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L200" class="LineNr">200 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> -<span id="L201" class="LineNr">201 </span> <span class="SpecialChar"><a href='036labels.cc.html#L184'>Source_lines_file</a></span><span class="Delimiter">.</span>close<span class="Delimiter">();</span> +<span id="L199" class="LineNr">199 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L182'>Dump_debug_info</a><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L200" class="LineNr">200 </span> <a href='036labels.cc.html#L183'>Labels_file</a><span class="Delimiter">.</span>close<span class="Delimiter">();</span> +<span id="L201" class="LineNr">201 </span> <a href='036labels.cc.html#L184'>Source_lines_file</a><span class="Delimiter">.</span>close<span class="Delimiter">();</span> <span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> <span id="L203" class="LineNr">203 </span> <span id="L204" class="LineNr">204 </span><span class="Delimiter">:(code)</span> <span id="L205" class="LineNr">205 </span><span class="Normal">void</span> <a href='036labels.cc.html#L205'>drop_labels</a><span class="Delimiter">(</span>segment& code<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L208" class="LineNr">208 </span> vector<word>::iterator new_end = remove_if<span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>end<span class="Delimiter">(),</span> <a href='036labels.cc.html#L213'>is_label</a><span class="Delimiter">);</span> <span id="L209" class="LineNr">209 </span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>erase<span class="Delimiter">(</span>new_end<span class="Delimiter">,</span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>end<span class="Delimiter">());</span> @@ -275,204 +274,217 @@ if ('onhashchange' in window) { <span id="L216" class="LineNr">216 </span> <span id="L217" class="LineNr">217 </span><span class="Normal">void</span> <a href='036labels.cc.html#L217'>replace_labels_with_displacements</a><span class="Delimiter">(</span>segment& code<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">int32_t</span>>& byte_index<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L218" class="LineNr">218 </span> <span class="Normal">int32_t</span> byte_index_next_instruction_starts_at = <span class="Constant">0</span><span class="Delimiter">;</span> -<span id="L219" class="LineNr">219 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L219" class="LineNr">219 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L220" class="LineNr">220 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L221" class="LineNr">221 </span> byte_index_next_instruction_starts_at += <a href='035compute_segment_address.cc.html#L56'>num_bytes</a><span class="Delimiter">(</span>inst<span class="Delimiter">);</span> <span id="L222" class="LineNr">222 </span> <a href='011run.cc.html#L121'>line</a> new_inst<span class="Delimiter">;</span> -<span id="L223" class="LineNr">223 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L223" class="LineNr">223 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L224" class="LineNr">224 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> -<span id="L225" class="LineNr">225 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L225" class="LineNr">225 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L226" class="LineNr">226 </span> <span class="Normal">int32_t</span> displacement = <span class="Normal">static_cast</span><<span class="Normal">int32_t</span>><span class="Delimiter">(</span>get<span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> - byte_index_next_instruction_starts_at<span class="Delimiter">;</span> -<span id="L227" class="LineNr">227 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L228" class="LineNr">228 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>displacement > <span class="Constant">0x7f</span> || displacement < -<span class="Constant">0x7f</span><span class="Delimiter">)</span> -<span id="L229" class="LineNr">229 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 8 signed bits\n"</span> << end<span class="Delimiter">();</span> -<span id="L230" class="LineNr">230 </span> <span class="Normal">else</span> -<span id="L231" class="LineNr">231 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> -<span id="L232" class="LineNr">232 </span> <span class="Delimiter">}</span> -<span id="L233" class="LineNr">233 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L234" class="LineNr">234 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>displacement > <span class="Constant">0x7fff</span> || displacement < -<span class="Constant">0x7fff</span><span class="Delimiter">)</span> -<span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 16 signed bits\n"</span> << end<span class="Delimiter">();</span> -<span id="L236" class="LineNr">236 </span> <span class="Normal">else</span> -<span id="L237" class="LineNr">237 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> -<span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> -<span id="L239" class="LineNr">239 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L240" class="LineNr">240 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L241" class="LineNr">241 </span> <span class="Delimiter">}</span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L242" class="LineNr">242 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> code<span class="Delimiter">.</span>start + get<span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">),</span> <span class="Constant">4</span><span class="Delimiter">);</span> -<span id="L243" class="LineNr">243 </span> <span class="Delimiter">}</span> -<span id="L244" class="LineNr">244 </span> <span class="Delimiter">}</span> -<span id="L245" class="LineNr">245 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L246" class="LineNr">246 </span> new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> -<span id="L247" class="LineNr">247 </span> <span class="Delimiter">}</span> -<span id="L248" class="LineNr">248 </span> <span class="Delimiter">}</span> -<span id="L249" class="LineNr">249 </span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>swap<span class="Delimiter">(</span>new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> -<span id="L250" class="LineNr">250 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"instruction after transform: '"</span> << data_to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> -<span id="L251" class="LineNr">251 </span> <span class="Delimiter">}</span> -<span id="L252" class="LineNr">252 </span><span class="Delimiter">}</span> -<span id="L253" class="LineNr">253 </span> -<span id="L254" class="LineNr">254 </span>string <a href='036labels.cc.html#L254'>data_to_string</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L255" class="LineNr">255 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L256" class="LineNr">256 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L257" class="LineNr">257 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> -<span id="L258" class="LineNr">258 </span> out << inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> -<span id="L259" class="LineNr">259 </span> <span class="Delimiter">}</span> -<span id="L260" class="LineNr">260 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> -<span id="L261" class="LineNr">261 </span><span class="Delimiter">}</span> -<span id="L262" class="LineNr">262 </span> -<span id="L263" class="LineNr">263 </span>string <a href='036labels.cc.html#L263'>drop_last</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L264" class="LineNr">264 </span> <span class="Identifier">return</span> string<span class="Delimiter">(</span>s<span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> --s<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L227" class="LineNr">227 </span> <span class="Normal">int32_t</span> absolute_address = code<span class="Delimiter">.</span>start + get<span class="Delimiter">(</span>byte_index<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L228" class="LineNr">228 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>displacement > <span class="Constant">0x7f</span> || displacement < -<span class="Constant">0x7f</span><span class="Delimiter">)</span> +<span id="L230" class="LineNr">230 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 8 signed bits</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L231" class="LineNr">231 </span> <span class="Normal">else</span> +<span id="L232" class="LineNr">232 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">}</span> +<span id="L234" class="LineNr">234 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L235" class="LineNr">235 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>displacement > <span class="Constant">0x7fff</span> || displacement < -<span class="Constant">0x7fff</span><span class="Delimiter">)</span> +<span id="L236" class="LineNr">236 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': label too far away for displacement "</span> << std::hex << displacement << <span class="Constant">" to fit in 16 signed bits</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L237" class="LineNr">237 </span> <span class="Normal">else</span> +<span id="L238" class="LineNr">238 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">2</span><span class="Delimiter">);</span> +<span id="L239" class="LineNr">239 </span> <span class="Delimiter">}</span> +<span id="L240" class="LineNr">240 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L241" class="LineNr">241 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L258'>is_far_jump_or_call</a><span class="Delimiter">(</span>new_inst<span class="Delimiter">))</span> +<span id="L242" class="LineNr">242 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> displacement<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> +<span id="L243" class="LineNr">243 </span> <span class="Normal">else</span> +<span id="L244" class="LineNr">244 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> absolute_address<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> +<span id="L245" class="LineNr">245 </span> <span class="Delimiter">}</span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm32"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L246" class="LineNr">246 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> absolute_address<span class="Delimiter">,</span> <span class="Constant">4</span><span class="Delimiter">);</span> +<span id="L247" class="LineNr">247 </span> <span class="Delimiter">}</span> +<span id="L248" class="LineNr">248 </span> <span class="Delimiter">}</span> +<span id="L249" class="LineNr">249 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> +<span id="L250" class="LineNr">250 </span> new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> +<span id="L251" class="LineNr">251 </span> <span class="Delimiter">}</span> +<span id="L252" class="LineNr">252 </span> <span class="Delimiter">}</span> +<span id="L253" class="LineNr">253 </span> inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>swap<span class="Delimiter">(</span>new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> +<span id="L254" class="LineNr">254 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"instruction after transform: '"</span> << data_to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> +<span id="L255" class="LineNr">255 </span> <span class="Delimiter">}</span> +<span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="Normal">bool</span> <a href='036labels.cc.html#L258'>is_far_jump_or_call</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> string first_opcode = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">).</span>data<span class="Delimiter">;</span> +<span id="L260" class="LineNr">260 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>first_opcode == <span class="Constant">"e8"</span> || first_opcode == <span class="Constant">"e9"</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L261" class="LineNr">261 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">)</span> < <span class="Constant">2</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L262" class="LineNr">262 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>first_opcode != <span class="Constant">"0f"</span><span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> +<span id="L263" class="LineNr">263 </span> string second_opcode = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">1</span><span class="Delimiter">).</span>data<span class="Delimiter">;</span> +<span id="L264" class="LineNr">264 </span> <span class="Identifier">return</span> <a href='001help.cc.html#L104'>starts_with</a><span class="Delimiter">(</span>second_opcode<span class="Delimiter">,</span> <span class="Constant">"8"</span><span class="Delimiter">);</span> <span id="L265" class="LineNr">265 </span><span class="Delimiter">}</span> <span id="L266" class="LineNr">266 </span> -<span id="L267" class="LineNr">267 </span><span class="Comment">//: Label definitions must be the first word on a line. No jumping inside</span> -<span id="L268" class="LineNr">268 </span><span class="Comment">//: instructions.</span> -<span id="L269" class="LineNr">269 </span><span class="Comment">//: They should also be the only word on a line.</span> -<span id="L270" class="LineNr">270 </span><span class="Comment">//: However, you can absolutely have multiple labels map to the same address,</span> -<span id="L271" class="LineNr">271 </span><span class="Comment">//: as long as they're on separate lines.</span> -<span id="L272" class="LineNr">272 </span> -<span id="L273" class="LineNr">273 </span><span class="Normal">void</span> <a href='036labels.cc.html#L273'>test_multiple_labels_at</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L274" class="LineNr">274 </span> transform<span class="Delimiter">(</span> -<span id="L275" class="LineNr">275 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L276" class="LineNr">276 </span> <span class="Comment">// address 1</span> -<span id="L277" class="LineNr">277 </span> <span class="Constant">"loop:\n"</span> -<span id="L278" class="LineNr">278 </span> <span class="Constant">" $loop2:\n"</span> -<span id="L279" class="LineNr">279 </span> <span class="Comment">// address 1 (labels take up no space)</span> -<span id="L280" class="LineNr">280 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> -<span id="L281" class="LineNr">281 </span> <span class="Comment">// address 6</span> -<span id="L282" class="LineNr">282 </span> <span class="Constant">" eb $loop2/disp8\n"</span> -<span id="L283" class="LineNr">283 </span> <span class="Comment">// address 8</span> -<span id="L284" class="LineNr">284 </span> <span class="Constant">" eb $loop3/disp8\n"</span> -<span id="L285" class="LineNr">285 </span> <span class="Comment">// address 0xa</span> -<span id="L286" class="LineNr">286 </span> <span class="Constant">" $loop3:\n"</span> -<span id="L287" class="LineNr">287 </span> <span class="Delimiter">);</span> -<span id="L288" class="LineNr">288 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L289" class="LineNr">289 </span> <span class="Constant">"transform: label 'loop' is at address 1\n"</span> -<span id="L290" class="LineNr">290 </span> <span class="Constant">"transform: label '$loop2' is at address 1\n"</span> -<span id="L291" class="LineNr">291 </span> <span class="Constant">"transform: label '$loop3' is at address a\n"</span> -<span id="L292" class="LineNr">292 </span> <span class="Comment">// first jump is to -7</span> -<span id="L293" class="LineNr">293 </span> <span class="Constant">"transform: instruction after transform: 'eb f9'\n"</span> -<span id="L294" class="LineNr">294 </span> <span class="Comment">// second jump is to 0 (fall through)</span> -<span id="L295" class="LineNr">295 </span> <span class="Constant">"transform: instruction after transform: 'eb 00'\n"</span> -<span id="L296" class="LineNr">296 </span> <span class="Delimiter">);</span> -<span id="L297" class="LineNr">297 </span><span class="Delimiter">}</span> -<span id="L298" class="LineNr">298 </span> -<span id="L299" class="LineNr">299 </span><span class="Normal">void</span> <a href='036labels.cc.html#L299'>test_loading_label_as_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L300" class="LineNr">300 </span> transform<span class="Delimiter">(</span> -<span id="L301" class="LineNr">301 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L302" class="LineNr">302 </span> <span class="Constant">"label:\n"</span> -<span id="L303" class="LineNr">303 </span> <span class="Constant">" be/copy-to-ESI label/imm32\n"</span> -<span id="L304" class="LineNr">304 </span> <span class="Delimiter">);</span> -<span id="L305" class="LineNr">305 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L306" class="LineNr">306 </span> <span class="Constant">"transform: label 'label' is at address 1\n"</span> -<span id="L307" class="LineNr">307 </span> <span class="Constant">"transform: instruction after transform: 'be 01 00 00 00'\n"</span> -<span id="L308" class="LineNr">308 </span> <span class="Delimiter">);</span> -<span id="L309" class="LineNr">309 </span><span class="Delimiter">}</span> -<span id="L310" class="LineNr">310 </span> -<span id="L311" class="LineNr">311 </span><span class="Normal">void</span> <a href='036labels.cc.html#L311'>test_duplicate_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L312" class="LineNr">312 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L267" class="LineNr">267 </span>string <a href='036labels.cc.html#L267'>data_to_string</a><span class="Delimiter">(</span><span class="Normal">const</span> line& inst<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L268" class="LineNr">268 </span> ostringstream out<span class="Delimiter">;</span> +<span id="L269" class="LineNr">269 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L270" class="LineNr">270 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> +<span id="L271" class="LineNr">271 </span> out << inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> +<span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> +<span id="L273" class="LineNr">273 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> +<span id="L274" class="LineNr">274 </span><span class="Delimiter">}</span> +<span id="L275" class="LineNr">275 </span> +<span id="L276" class="LineNr">276 </span>string <a href='036labels.cc.html#L276'>drop_last</a><span class="Delimiter">(</span><span class="Normal">const</span> string& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L277" class="LineNr">277 </span> <span class="Identifier">return</span> string<span class="Delimiter">(</span>s<span class="Delimiter">.</span>begin<span class="Delimiter">(),</span> --s<span class="Delimiter">.</span>end<span class="Delimiter">());</span> +<span id="L278" class="LineNr">278 </span><span class="Delimiter">}</span> +<span id="L279" class="LineNr">279 </span> +<span id="L280" class="LineNr">280 </span><span class="Comment">//: Label definitions must be the first word on a line. No jumping inside</span> +<span id="L281" class="LineNr">281 </span><span class="Comment">//: instructions.</span> +<span id="L282" class="LineNr">282 </span><span class="Comment">//: They should also be the only word on a line.</span> +<span id="L283" class="LineNr">283 </span><span class="Comment">//: However, you can absolutely have multiple labels map to the same address,</span> +<span id="L284" class="LineNr">284 </span><span class="Comment">//: as long as they're on separate lines.</span> +<span id="L285" class="LineNr">285 </span> +<span id="L286" class="LineNr">286 </span><span class="Normal">void</span> <a href='036labels.cc.html#L286'>test_multiple_labels_at</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L287" class="LineNr">287 </span> transform<span class="Delimiter">(</span> +<span id="L288" class="LineNr">288 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L289" class="LineNr">289 </span> <span class="Comment">// address 1</span> +<span id="L290" class="LineNr">290 </span> <span class="Constant">"loop:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L291" class="LineNr">291 </span> <span class="Constant">" $loop2:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L292" class="LineNr">292 </span> <span class="Comment">// address 1 (labels take up no space)</span> +<span id="L293" class="LineNr">293 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L294" class="LineNr">294 </span> <span class="Comment">// address 6</span> +<span id="L295" class="LineNr">295 </span> <span class="Constant">" eb $loop2/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L296" class="LineNr">296 </span> <span class="Comment">// address 8</span> +<span id="L297" class="LineNr">297 </span> <span class="Constant">" eb $loop3/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L298" class="LineNr">298 </span> <span class="Comment">// address 0xa</span> +<span id="L299" class="LineNr">299 </span> <span class="Constant">" $loop3:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L300" class="LineNr">300 </span> <span class="Delimiter">);</span> +<span id="L301" class="LineNr">301 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L302" class="LineNr">302 </span> <span class="Constant">"transform: label 'loop' is at address 1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L303" class="LineNr">303 </span> <span class="Constant">"transform: label '$loop2' is at address 1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L304" class="LineNr">304 </span> <span class="Constant">"transform: label '$loop3' is at address a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L305" class="LineNr">305 </span> <span class="Comment">// first jump is to -7</span> +<span id="L306" class="LineNr">306 </span> <span class="Constant">"transform: instruction after transform: 'eb f9'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L307" class="LineNr">307 </span> <span class="Comment">// second jump is to 0 (fall through)</span> +<span id="L308" class="LineNr">308 </span> <span class="Constant">"transform: instruction after transform: 'eb 00'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L309" class="LineNr">309 </span> <span class="Delimiter">);</span> +<span id="L310" class="LineNr">310 </span><span class="Delimiter">}</span> +<span id="L311" class="LineNr">311 </span> +<span id="L312" class="LineNr">312 </span><span class="Normal">void</span> <a href='036labels.cc.html#L312'>test_loading_label_as_imm32</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L313" class="LineNr">313 </span> transform<span class="Delimiter">(</span> -<span id="L314" class="LineNr">314 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L315" class="LineNr">315 </span> <span class="Constant">"loop:\n"</span> -<span id="L316" class="LineNr">316 </span> <span class="Constant">"loop:\n"</span> -<span id="L317" class="LineNr">317 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> -<span id="L318" class="LineNr">318 </span> <span class="Delimiter">);</span> -<span id="L319" class="LineNr">319 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L320" class="LineNr">320 </span> <span class="Constant">"error: duplicate label 'loop'\n"</span> +<span id="L314" class="LineNr">314 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L315" class="LineNr">315 </span> <span class="Constant">"label:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L316" class="LineNr">316 </span> <span class="Constant">" be/copy-to-ESI label/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L317" class="LineNr">317 </span> <span class="Delimiter">);</span> +<span id="L318" class="LineNr">318 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L319" class="LineNr">319 </span> <span class="Constant">"transform: label 'label' is at address 1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L320" class="LineNr">320 </span> <span class="Constant">"transform: instruction after transform: 'be 01 00 00 00'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L321" class="LineNr">321 </span> <span class="Delimiter">);</span> <span id="L322" class="LineNr">322 </span><span class="Delimiter">}</span> <span id="L323" class="LineNr">323 </span> -<span id="L324" class="LineNr">324 </span><span class="Normal">void</span> <a href='036labels.cc.html#L324'>test_label_too_short</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L325" class="LineNr">325 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L324" class="LineNr">324 </span><span class="Normal">void</span> <a href='036labels.cc.html#L324'>test_duplicate_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L325" class="LineNr">325 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L326" class="LineNr">326 </span> transform<span class="Delimiter">(</span> -<span id="L327" class="LineNr">327 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L328" class="LineNr">328 </span> <span class="Constant">"xz:\n"</span> -<span id="L329" class="LineNr">329 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> -<span id="L330" class="LineNr">330 </span> <span class="Delimiter">);</span> -<span id="L331" class="LineNr">331 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L332" class="LineNr">332 </span> <span class="Constant">"error: 'xz' is two characters long, which can look like raw hex bytes at a glance; use a different name\n"</span> -<span id="L333" class="LineNr">333 </span> <span class="Delimiter">);</span> -<span id="L334" class="LineNr">334 </span><span class="Delimiter">}</span> -<span id="L335" class="LineNr">335 </span> -<span id="L336" class="LineNr">336 </span><span class="Normal">void</span> <a href='036labels.cc.html#L336'>test_label_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L337" class="LineNr">337 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L338" class="LineNr">338 </span> transform<span class="Delimiter">(</span> -<span id="L339" class="LineNr">339 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L340" class="LineNr">340 </span> <span class="Constant">"0xab:\n"</span> -<span id="L341" class="LineNr">341 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> -<span id="L342" class="LineNr">342 </span> <span class="Delimiter">);</span> -<span id="L343" class="LineNr">343 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L344" class="LineNr">344 </span> <span class="Constant">"error: '0xab' looks like a hex number; use a different name\n"</span> -<span id="L345" class="LineNr">345 </span> <span class="Delimiter">);</span> -<span id="L346" class="LineNr">346 </span><span class="Delimiter">}</span> -<span id="L347" class="LineNr">347 </span> -<span id="L348" class="LineNr">348 </span><span class="Normal">void</span> <a href='036labels.cc.html#L348'>test_label_negative_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L349" class="LineNr">349 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L350" class="LineNr">350 </span> transform<span class="Delimiter">(</span> -<span id="L351" class="LineNr">351 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L352" class="LineNr">352 </span> <span class="Constant">"-a:\n"</span> -<span id="L353" class="LineNr">353 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> -<span id="L354" class="LineNr">354 </span> <span class="Delimiter">);</span> -<span id="L355" class="LineNr">355 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L356" class="LineNr">356 </span> <span class="Constant">"error: '-a' starts with '-', which can be confused with a negative number; use a different name\n"</span> -<span id="L357" class="LineNr">357 </span> <span class="Delimiter">);</span> -<span id="L358" class="LineNr">358 </span><span class="Delimiter">}</span> -<span id="L359" class="LineNr">359 </span> -<span id="L360" class="LineNr">360 </span><span class="Comment">//: As said up top, the 'Entry' label is special.</span> -<span id="L361" class="LineNr">361 </span><span class="Comment">//: It can be non-unique; the last declaration overrides earlier ones.</span> -<span id="L362" class="LineNr">362 </span><span class="Comment">//: It must exist in a program. Otherwise we don't know where to start running</span> -<span id="L363" class="LineNr">363 </span><span class="Comment">//: programs.</span> -<span id="L364" class="LineNr">364 </span> -<span id="L365" class="LineNr">365 </span><span class="Normal">void</span> <a href='036labels.cc.html#L365'>test_duplicate_Entry_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L366" class="LineNr">366 </span> transform<span class="Delimiter">(</span> -<span id="L367" class="LineNr">367 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L368" class="LineNr">368 </span> <span class="Constant">"Entry:\n"</span> -<span id="L369" class="LineNr">369 </span> <span class="Constant">"Entry:\n"</span> -<span id="L370" class="LineNr">370 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32\n"</span> -<span id="L371" class="LineNr">371 </span> <span class="Delimiter">);</span> -<span id="L372" class="LineNr">372 </span> <a href='003trace.cc.html#L304'>CHECK_TRACE_DOESNT_CONTAIN_ERRORS</a><span class="Delimiter">();</span> -<span id="L373" class="LineNr">373 </span><span class="Delimiter">}</span> -<span id="L374" class="LineNr">374 </span> -<span id="L375" class="LineNr">375 </span><span class="Comment">// This test could do with some refactoring.</span> -<span id="L376" class="LineNr">376 </span><span class="Comment">// We're duplicating the flow inside `bootstrap translate`, but without</span> -<span id="L377" class="LineNr">377 </span><span class="Comment">// reading/writing files.</span> -<span id="L378" class="LineNr">378 </span><span class="Comment">// We can't just use run(string) because most of our tests allow programs</span> -<span id="L379" class="LineNr">379 </span><span class="Comment">// without 'Entry' labels, as a convenience.</span> -<span id="L380" class="LineNr">380 </span><span class="Normal">void</span> <a href='036labels.cc.html#L380'>test_programs_without_Entry_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L381" class="LineNr">381 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> -<span id="L382" class="LineNr">382 </span> program p<span class="Delimiter">;</span> -<span id="L383" class="LineNr">383 </span> istringstream in<span class="Delimiter">(</span> -<span id="L384" class="LineNr">384 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L385" class="LineNr">385 </span> <span class="Constant">"05 0x0d0c0b0a/imm32\n"</span> -<span id="L386" class="LineNr">386 </span> <span class="Constant">"05 0x0d0c0b0a/imm32\n"</span> -<span id="L387" class="LineNr">387 </span> <span class="Delimiter">);</span> -<span id="L388" class="LineNr">388 </span> parse<span class="Delimiter">(</span>in<span class="Delimiter">,</span> p<span class="Delimiter">);</span> -<span id="L389" class="LineNr">389 </span> transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> -<span id="L390" class="LineNr">390 </span> ostringstream dummy<span class="Delimiter">;</span> -<span id="L391" class="LineNr">391 </span> save_elf<span class="Delimiter">(</span>p<span class="Delimiter">,</span> dummy<span class="Delimiter">);</span> -<span id="L392" class="LineNr">392 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L393" class="LineNr">393 </span> <span class="Constant">"error: no 'Entry' label found\n"</span> -<span id="L394" class="LineNr">394 </span> <span class="Delimiter">);</span> -<span id="L395" class="LineNr">395 </span><span class="Delimiter">}</span> -<span id="L396" class="LineNr">396 </span> -<span id="L397" class="LineNr">397 </span><span class="Comment">//: now that we have labels, we need to adjust segment size computation to</span> -<span id="L398" class="LineNr">398 </span><span class="Comment">//: ignore them.</span> -<span id="L399" class="LineNr">399 </span> -<span id="L400" class="LineNr">400 </span><span class="Normal">void</span> <a href='036labels.cc.html#L400'>test_segment_size_ignores_labels</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L401" class="LineNr">401 </span> transform<span class="Delimiter">(</span> -<span id="L402" class="LineNr">402 </span> <span class="Constant">"== code 0x09000074\n"</span> -<span id="L403" class="LineNr">403 </span> <span class="Constant">" 05/add 0x0d0c0b0a/imm32\n"</span> <span class="Comment">// 5 bytes</span> -<span id="L404" class="LineNr">404 </span> <span class="Constant">"foo:\n"</span> <span class="Comment">// 0 bytes</span> -<span id="L405" class="LineNr">405 </span> <span class="Constant">"== data 0x0a000000\n"</span> -<span id="L406" class="LineNr">406 </span> <span class="Constant">"bar:\n"</span> -<span id="L407" class="LineNr">407 </span> <span class="Constant">" 00\n"</span> -<span id="L408" class="LineNr">408 </span> <span class="Delimiter">);</span> -<span id="L409" class="LineNr">409 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L410" class="LineNr">410 </span> <span class="Constant">"transform: segment 1 begins at address 0x0a000079\n"</span> -<span id="L411" class="LineNr">411 </span> <span class="Delimiter">);</span> -<span id="L412" class="LineNr">412 </span><span class="Delimiter">}</span> -<span id="L413" class="LineNr">413 </span> -<span id="L414" class="LineNr">414 </span><span class="Delimiter">:(before "End size_of(<a href='011run.cc.html#L127'>word</a> w) Special-cases")</span> -<span id="L415" class="LineNr">415 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L213'>is_label</a><span class="Delimiter">(</span>w<span class="Delimiter">))</span> -<span id="L416" class="LineNr">416 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> +<span id="L327" class="LineNr">327 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L328" class="LineNr">328 </span> <span class="Constant">"loop:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L329" class="LineNr">329 </span> <span class="Constant">"loop:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L330" class="LineNr">330 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L331" class="LineNr">331 </span> <span class="Delimiter">);</span> +<span id="L332" class="LineNr">332 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L333" class="LineNr">333 </span> <span class="Constant">"error: duplicate label 'loop'</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L334" class="LineNr">334 </span> <span class="Delimiter">);</span> +<span id="L335" class="LineNr">335 </span><span class="Delimiter">}</span> +<span id="L336" class="LineNr">336 </span> +<span id="L337" class="LineNr">337 </span><span class="Normal">void</span> <a href='036labels.cc.html#L337'>test_label_too_short</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L338" class="LineNr">338 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L339" class="LineNr">339 </span> transform<span class="Delimiter">(</span> +<span id="L340" class="LineNr">340 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L341" class="LineNr">341 </span> <span class="Constant">"xz:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L342" class="LineNr">342 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L343" class="LineNr">343 </span> <span class="Delimiter">);</span> +<span id="L344" class="LineNr">344 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L345" class="LineNr">345 </span> <span class="Constant">"error: 'xz' is two characters long, which can look like raw hex bytes at a glance; use a different <a href='011run.cc.html#L111'>name</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L346" class="LineNr">346 </span> <span class="Delimiter">);</span> +<span id="L347" class="LineNr">347 </span><span class="Delimiter">}</span> +<span id="L348" class="LineNr">348 </span> +<span id="L349" class="LineNr">349 </span><span class="Normal">void</span> <a href='036labels.cc.html#L349'>test_label_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L350" class="LineNr">350 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L351" class="LineNr">351 </span> transform<span class="Delimiter">(</span> +<span id="L352" class="LineNr">352 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L353" class="LineNr">353 </span> <span class="Constant">"0xab:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L354" class="LineNr">354 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L355" class="LineNr">355 </span> <span class="Delimiter">);</span> +<span id="L356" class="LineNr">356 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L357" class="LineNr">357 </span> <span class="Constant">"error: '0xab' looks like a hex number; use a different <a href='011run.cc.html#L111'>name</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L358" class="LineNr">358 </span> <span class="Delimiter">);</span> +<span id="L359" class="LineNr">359 </span><span class="Delimiter">}</span> +<span id="L360" class="LineNr">360 </span> +<span id="L361" class="LineNr">361 </span><span class="Normal">void</span> <a href='036labels.cc.html#L361'>test_label_negative_hex</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L362" class="LineNr">362 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L363" class="LineNr">363 </span> transform<span class="Delimiter">(</span> +<span id="L364" class="LineNr">364 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L365" class="LineNr">365 </span> <span class="Constant">"-a:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L366" class="LineNr">366 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L367" class="LineNr">367 </span> <span class="Delimiter">);</span> +<span id="L368" class="LineNr">368 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L369" class="LineNr">369 </span> <span class="Constant">"error: '-a' starts with '-', which can be confused with a negative number; use a different <a href='011run.cc.html#L111'>name</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L370" class="LineNr">370 </span> <span class="Delimiter">);</span> +<span id="L371" class="LineNr">371 </span><span class="Delimiter">}</span> +<span id="L372" class="LineNr">372 </span> +<span id="L373" class="LineNr">373 </span><span class="Comment">//: As said up top, the 'Entry' label is special.</span> +<span id="L374" class="LineNr">374 </span><span class="Comment">//: It can be non-unique; the last declaration overrides earlier ones.</span> +<span id="L375" class="LineNr">375 </span><span class="Comment">//: It must exist in a program. Otherwise we don't know where to start running</span> +<span id="L376" class="LineNr">376 </span><span class="Comment">//: programs.</span> +<span id="L377" class="LineNr">377 </span> +<span id="L378" class="LineNr">378 </span><span class="Normal">void</span> <a href='036labels.cc.html#L378'>test_duplicate_Entry_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L379" class="LineNr">379 </span> transform<span class="Delimiter">(</span> +<span id="L380" class="LineNr">380 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L381" class="LineNr">381 </span> <span class="Constant">"Entry:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L382" class="LineNr">382 </span> <span class="Constant">"Entry:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L383" class="LineNr">383 </span> <span class="Constant">" 05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L384" class="LineNr">384 </span> <span class="Delimiter">);</span> +<span id="L385" class="LineNr">385 </span> <a href='003trace.cc.html#L304'>CHECK_TRACE_DOESNT_CONTAIN_ERRORS</a><span class="Delimiter">();</span> +<span id="L386" class="LineNr">386 </span><span class="Delimiter">}</span> +<span id="L387" class="LineNr">387 </span> +<span id="L388" class="LineNr">388 </span><span class="Comment">// This test could do with some refactoring.</span> +<span id="L389" class="LineNr">389 </span><span class="Comment">// We're duplicating the flow inside `bootstrap translate`, but without</span> +<span id="L390" class="LineNr">390 </span><span class="Comment">// reading/writing files.</span> +<span id="L391" class="LineNr">391 </span><span class="Comment">// We can't just use run(string) because most of our tests allow programs</span> +<span id="L392" class="LineNr">392 </span><span class="Comment">// without 'Entry' labels, as a convenience.</span> +<span id="L393" class="LineNr">393 </span><span class="Normal">void</span> <a href='036labels.cc.html#L393'>test_programs_without_Entry_label</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L394" class="LineNr">394 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L395" class="LineNr">395 </span> program p<span class="Delimiter">;</span> +<span id="L396" class="LineNr">396 </span> istringstream in<span class="Delimiter">(</span> +<span id="L397" class="LineNr">397 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L398" class="LineNr">398 </span> <span class="Constant">"05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L399" class="LineNr">399 </span> <span class="Constant">"05 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L400" class="LineNr">400 </span> <span class="Delimiter">);</span> +<span id="L401" class="LineNr">401 </span> parse<span class="Delimiter">(</span>in<span class="Delimiter">,</span> p<span class="Delimiter">);</span> +<span id="L402" class="LineNr">402 </span> transform<span class="Delimiter">(</span>p<span class="Delimiter">);</span> +<span id="L403" class="LineNr">403 </span> ostringstream dummy<span class="Delimiter">;</span> +<span id="L404" class="LineNr">404 </span> save_elf<span class="Delimiter">(</span>p<span class="Delimiter">,</span> dummy<span class="Delimiter">);</span> +<span id="L405" class="LineNr">405 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L406" class="LineNr">406 </span> <span class="Constant">"error: no 'Entry' label found</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L407" class="LineNr">407 </span> <span class="Delimiter">);</span> +<span id="L408" class="LineNr">408 </span><span class="Delimiter">}</span> +<span id="L409" class="LineNr">409 </span> +<span id="L410" class="LineNr">410 </span><span class="Comment">//: now that we have labels, we need to adjust segment size computation to</span> +<span id="L411" class="LineNr">411 </span><span class="Comment">//: ignore them.</span> +<span id="L412" class="LineNr">412 </span> +<span id="L413" class="LineNr">413 </span><span class="Normal">void</span> <a href='036labels.cc.html#L413'>test_segment_size_ignores_labels</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> +<span id="L414" class="LineNr">414 </span> transform<span class="Delimiter">(</span> +<span id="L415" class="LineNr">415 </span> <span class="Constant">"== code 0x09000074</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L416" class="LineNr">416 </span> <span class="Constant">" 05/add 0x0d0c0b0a/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 5 bytes</span> +<span id="L417" class="LineNr">417 </span> <span class="Constant">"foo:</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 0 bytes</span> +<span id="L418" class="LineNr">418 </span> <span class="Constant">"== data 0x0a000000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L419" class="LineNr">419 </span> <span class="Constant">"bar:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L420" class="LineNr">420 </span> <span class="Constant">" 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L421" class="LineNr">421 </span> <span class="Delimiter">);</span> +<span id="L422" class="LineNr">422 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L423" class="LineNr">423 </span> <span class="Constant">"transform: segment 1 begins at address 0x0a000079</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L424" class="LineNr">424 </span> <span class="Delimiter">);</span> +<span id="L425" class="LineNr">425 </span><span class="Delimiter">}</span> +<span id="L426" class="LineNr">426 </span> +<span id="L427" class="LineNr">427 </span><span class="Delimiter">:(before "End size_of(<a href='011run.cc.html#L127'>word</a> w) Special-cases")</span> +<span id="L428" class="LineNr">428 </span><span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L213'>is_label</a><span class="Delimiter">(</span>w<span class="Delimiter">))</span> +<span id="L429" class="LineNr">429 </span> <span class="Identifier">return</span> <span class="Constant">0</span><span class="Delimiter">;</span> </pre> </body> </html> diff --git a/html/037global_variables.cc.html b/html/linux/bootstrap/037global_variables.cc.html index e59c8c82..ea37783f 100644 --- a/html/037global_variables.cc.html +++ b/html/linux/bootstrap/037global_variables.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 037global_variables.cc</title> +<title>Mu - linux/bootstrap/037global_variables.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,16 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.cSpecial { color: #008000; } -.SalientComment { color: #0000af; } --> </style> @@ -57,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/037global_variables.cc'>https://github.com/akkartik/mu/blob/main/037global_variables.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/037global_variables.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/037global_variables.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Global variables.</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//:</span> @@ -70,19 +68,19 @@ if ('onhashchange' in window) { <span id="L9" class="LineNr"> 9 </span><span class="Delimiter">:(code)</span> <span id="L10" class="LineNr"> 10 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L10'>test_global_variable</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L11" class="LineNr"> 11 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L12" class="LineNr"> 12 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"b9 x/imm32\n"</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"x:\n"</span> -<span id="L16" class="LineNr"> 16 </span> <span class="Constant">" 00 00 00 00\n"</span> +<span id="L12" class="LineNr"> 12 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"b9 x/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L16" class="LineNr"> 16 </span> <span class="Constant">" 00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">);</span> <span id="L18" class="LineNr"> 18 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"transform: global variable 'x' is at address 0x00002000\n"</span> +<span id="L19" class="LineNr"> 19 </span> <span class="Constant">"transform: global variable 'x' is at address 0x00002000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">);</span> <span id="L21" class="LineNr"> 21 </span><span class="Delimiter">}</span> <span id="L22" class="LineNr"> 22 </span> <span id="L23" class="LineNr"> 23 </span><span class="Delimiter">:(before "End Transforms")</span> -<span id="L24" class="LineNr"> 24 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L26'>rewrite_global_variables</a><span class="Delimiter">);</span> +<span id="L24" class="LineNr"> 24 </span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L26'>rewrite_global_variables</a><span class="Delimiter">);</span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(code)</span> <span id="L26" class="LineNr"> 26 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L26'>rewrite_global_variables</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L27" class="LineNr"> 27 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- rewrite global variables"</span> << end<span class="Delimiter">();</span> @@ -95,7 +93,7 @@ if ('onhashchange' in window) { <span id="L34" class="LineNr"> 34 </span><span class="Delimiter">}</span> <span id="L35" class="LineNr"> 35 </span> <span id="L36" class="LineNr"> 36 </span><span class="Normal">void</span> compute_addresses_for_global_variables<span class="Delimiter">(</span><span class="Normal">const</span> program& p<span class="Delimiter">,</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> != <span class="Constant">"code"</span><span class="Delimiter">)</span> <span id="L39" class="LineNr"> 39 </span> compute_addresses_for_global_variables<span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">),</span> address<span class="Delimiter">);</span> <span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> @@ -103,27 +101,27 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span> <span id="L43" class="LineNr"> 43 </span><span class="Normal">void</span> compute_addresses_for_global_variables<span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">,</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L44" class="LineNr"> 44 </span> <span class="Normal">int</span> current_address = s<span class="Delimiter">.</span>start<span class="Delimiter">;</span> -<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L46" class="LineNr"> 46 </span> <span class="Normal">const</span> line& inst = s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L47" class="LineNr"> 47 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L47" class="LineNr"> 47 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L48" class="LineNr"> 48 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L49" class="LineNr"> 49 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L50" class="LineNr"> 50 </span> current_address += size_of<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> <span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> <span id="L52" class="LineNr"> 52 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> string variable = <a href='036labels.cc.html#L263'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L53" class="LineNr"> 53 </span> string variable = <a href='036labels.cc.html#L276'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L54" class="LineNr"> 54 </span> <span class="Comment">// ensure variables look sufficiently different from raw hex</span> <span id="L55" class="LineNr"> 55 </span> <a href='036labels.cc.html#L84'>check_valid_name</a><span class="Delimiter">(</span>variable<span class="Delimiter">);</span> <span id="L56" class="LineNr"> 56 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='003trace.cc.html#L262'>trace_contains_errors</a><span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L57" class="LineNr"> 57 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>j > <span class="Constant">0</span><span class="Delimiter">)</span> -<span id="L58" class="LineNr"> 58 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': global variable names can only be the first <a href='011run.cc.html#L127'>word</a> in a line.\n"</span> << end<span class="Delimiter">();</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> -<span id="L60" class="LineNr"> 60 </span> <span class="SpecialChar"><a href='036labels.cc.html#L183'>Labels_file</a></span> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << current_address << <span class="Constant">' '</span> << variable << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> -<span id="L61" class="LineNr"> 61 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"duplicate global '"</span> << variable << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L58" class="LineNr"> 58 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': global variable names can only be the first <a href='011run.cc.html#L127'>word</a> in a line.</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='036labels.cc.html#L183'>Labels_file</a><span class="Delimiter">.</span>is_open<span class="Delimiter">())</span> +<span id="L60" class="LineNr"> 60 </span> <a href='036labels.cc.html#L183'>Labels_file</a> << <span class="Constant">"0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << current_address << <span class="Constant">' '</span> << variable << <span class="cSpecial">'\n'</span><span class="Delimiter">;</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L62" class="LineNr"> 62 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"duplicate global '"</span> << variable << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L63" class="LineNr"> 63 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">}</span> -<span id="L65" class="LineNr"> 65 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">,</span> current_address<span class="Delimiter">);</span> +<span id="L65" class="LineNr"> 65 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span>address<span class="Delimiter">,</span> variable<span class="Delimiter">,</span> current_address<span class="Delimiter">);</span> <span id="L66" class="LineNr"> 66 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"global variable '"</span> << variable << <span class="Constant">"' is at address 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << current_address << end<span class="Delimiter">();</span> <span id="L67" class="LineNr"> 67 </span> <span class="Comment">// no modifying current_address; global variable definitions won't be in the final binary</span> <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> @@ -132,7 +130,7 @@ if ('onhashchange' in window) { <span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span> <span id="L72" class="LineNr"> 72 </span> <span id="L73" class="LineNr"> 73 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L73'>drop_global_variables</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L74" class="LineNr"> 74 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L75" class="LineNr"> 75 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span><a href='011run.cc.html#L111'>name</a> != <span class="Constant">"code"</span><span class="Delimiter">)</span> <span id="L76" class="LineNr"> 76 </span> <a href='036labels.cc.html#L205'>drop_labels</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">));</span> <span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">}</span> @@ -140,7 +138,7 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L80'>replace_global_variables_with_addresses</a><span class="Delimiter">(</span>program& p<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L81" class="LineNr"> 81 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L82" class="LineNr"> 82 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L82" class="LineNr"> 82 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L83" class="LineNr"> 83 </span> segment& curr = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L84" class="LineNr"> 84 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span><a href='011run.cc.html#L111'>name</a> == <span class="Constant">"code"</span><span class="Delimiter">)</span> <span id="L85" class="LineNr"> 85 </span> <a href='037global_variables.cc.html#L91'>replace_global_variables_in_code_segment</a><span class="Delimiter">(</span>curr<span class="Delimiter">,</span> address<span class="Delimiter">);</span> @@ -150,19 +148,19 @@ if ('onhashchange' in window) { <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> <span id="L90" class="LineNr"> 90 </span> <span id="L91" class="LineNr"> 91 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L91'>replace_global_variables_in_code_segment</a><span class="Delimiter">(</span>segment& code<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L93" class="LineNr"> 93 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L94" class="LineNr"> 94 </span> <a href='011run.cc.html#L121'>line</a> new_inst<span class="Delimiter">;</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L96" class="LineNr"> 96 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L97" class="LineNr"> 97 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L98" class="LineNr"> 98 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!looks_like_hex_int<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> -<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L100" class="LineNr">100 </span> new_inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> <span id="L101" class="LineNr">101 </span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L102" class="LineNr">102 </span> <span class="Delimiter">}</span> <span id="L103" class="LineNr">103 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!valid_use_of_global_variable<span class="Delimiter">(</span>curr<span class="Delimiter">))</span> <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': can't refer to global variable '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L104" class="LineNr">104 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"'"</span> << to_string<span class="Delimiter">(</span>inst<span class="Delimiter">)</span> << <span class="Constant">"': can't refer to global variable '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L105" class="LineNr">105 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L106" class="LineNr">106 </span> <span class="Delimiter">}</span> <span id="L107" class="LineNr">107 </span> emit_hex_bytes<span class="Delimiter">(</span>new_inst<span class="Delimiter">,</span> get<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">),</span> <span class="Constant">4</span><span class="Delimiter">);</span> @@ -173,10 +171,10 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span> <span id="L114" class="LineNr">114 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L114'>replace_global_variables_in_data_segment</a><span class="Delimiter">(</span>segment& data<span class="Delimiter">,</span> <span class="Normal">const</span> map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>& address<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L115" class="LineNr">115 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>data<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>data<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L116" class="LineNr">116 </span> line& l = data<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L117" class="LineNr">117 </span> <a href='011run.cc.html#L121'>line</a> new_l<span class="Delimiter">;</span> -<span id="L118" class="LineNr">118 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L118" class="LineNr">118 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L119" class="LineNr">119 </span> <span class="Normal">const</span> word& curr = l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L120" class="LineNr">120 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!contains_key<span class="Delimiter">(</span>address<span class="Delimiter">,</span> curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L121" class="LineNr">121 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='032operands.cc.html#L591'>looks_like_hex_int</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">))</span> <span class="Delimiter">{</span> @@ -187,16 +185,16 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"imm8"</span><span class="Delimiter">))</span> <span id="L127" class="LineNr">127 </span> emit_hex_bytes<span class="Delimiter">(</span>new_l<span class="Delimiter">,</span> curr<span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> <span id="L128" class="LineNr">128 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp8"</span><span class="Delimiter">))</span> -<span id="L129" class="LineNr">129 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp8 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L129" class="LineNr">129 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp8 in a non-code segment</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L130" class="LineNr">130 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp16"</span><span class="Delimiter">))</span> -<span id="L131" class="LineNr">131 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp16 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L131" class="LineNr">131 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp16 in a non-code segment</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L132" class="LineNr">132 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">))</span> -<span id="L133" class="LineNr">133 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp32 in a non-code segment\n"</span> << end<span class="Delimiter">();</span> +<span id="L133" class="LineNr">133 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"can't use /disp32 in a non-code segment</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L134" class="LineNr">134 </span> <span class="Normal">else</span> <span id="L135" class="LineNr">135 </span> new_l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> <span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> <span id="L137" class="LineNr">137 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L138" class="LineNr">138 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L138" class="LineNr">138 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"missing reference to global '"</span> << curr<span class="Delimiter">.</span>data << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L139" class="LineNr">139 </span> new_l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>curr<span class="Delimiter">);</span> <span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> <span id="L141" class="LineNr">141 </span> <span class="Identifier">continue</span><span class="Delimiter">;</span> @@ -215,18 +213,18 @@ if ('onhashchange' in window) { <span id="L154" class="LineNr">154 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L155" class="LineNr">155 </span><span class="Delimiter">}</span> <span id="L156" class="LineNr">156 </span> -<span id="L157" class="LineNr">157 </span><span class="SalientComment">//:: a more complex sanity check for how we use global variables</span> +<span id="L157" class="LineNr">157 </span><span class="Comment">//:: a more complex sanity check for how we use global variables</span> <span id="L158" class="LineNr">158 </span><span class="Comment">//: requires first saving some data early before we pack arguments</span> <span id="L159" class="LineNr">159 </span> <span id="L160" class="LineNr">160 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L161" class="LineNr">161 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L163'>correlate_disp32_with_mod</a><span class="Delimiter">);</span> +<span id="L161" class="LineNr">161 </span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='037global_variables.cc.html#L163'>correlate_disp32_with_mod</a><span class="Delimiter">);</span> <span id="L162" class="LineNr">162 </span><span class="Delimiter">:(code)</span> <span id="L163" class="LineNr">163 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L163'>correlate_disp32_with_mod</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L164" class="LineNr">164 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L165" class="LineNr">165 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> -<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L166" class="LineNr">166 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L167" class="LineNr">167 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L168" class="LineNr">168 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L168" class="LineNr">168 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L169" class="LineNr">169 </span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L170" class="LineNr">170 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>has_argument_metadata<span class="Delimiter">(</span>curr<span class="Delimiter">,</span> <span class="Constant">"disp32"</span><span class="Delimiter">)</span> <span id="L171" class="LineNr">171 </span> && has_argument_metadata<span class="Delimiter">(</span>inst<span class="Delimiter">,</span> <span class="Constant">"mod"</span><span class="Delimiter">))</span> @@ -243,38 +241,38 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr">182 </span> <span id="L183" class="LineNr">183 </span><span class="Delimiter">:(code)</span> <span id="L184" class="LineNr">184 </span><span class="Normal">bool</span> <a href='037global_variables.cc.html#L184'>has_metadata</a><span class="Delimiter">(</span><span class="Normal">const</span> word& w<span class="Delimiter">,</span> <span class="Normal">const</span> string& m<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L185" class="LineNr">185 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> +<span id="L185" class="LineNr">185 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span id="L186" class="LineNr">186 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>w<span class="Delimiter">.</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">)</span> == m<span class="Delimiter">)</span> <span class="Identifier">return</span> <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L187" class="LineNr">187 </span> <span class="Identifier">return</span> <span class="Constant">false</span><span class="Delimiter">;</span> <span id="L188" class="LineNr">188 </span><span class="Delimiter">}</span> <span id="L189" class="LineNr">189 </span> <span id="L190" class="LineNr">190 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L190'>test_global_variable_disallowed_in_jump</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L191" class="LineNr">191 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L191" class="LineNr">191 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L192" class="LineNr">192 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L193" class="LineNr">193 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L194" class="LineNr">194 </span> <span class="Constant">"eb/jump x/disp8\n"</span> -<span id="L195" class="LineNr">195 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L196" class="LineNr">196 </span> <span class="Constant">"x:\n"</span> -<span id="L197" class="LineNr">197 </span> <span class="Constant">" 00 00 00 00\n"</span> +<span id="L193" class="LineNr">193 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L194" class="LineNr">194 </span> <span class="Constant">"eb/jump x/disp8</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L195" class="LineNr">195 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L196" class="LineNr">196 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L197" class="LineNr">197 </span> <span class="Constant">" 00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L198" class="LineNr">198 </span> <span class="Delimiter">);</span> <span id="L199" class="LineNr">199 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L200" class="LineNr">200 </span> <span class="Constant">"error: 'eb/jump x/disp8': can't refer to global variable 'x'\n"</span> +<span id="L200" class="LineNr">200 </span> <span class="Constant">"error: 'eb/jump x/disp8': can't refer to global variable 'x'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L201" class="LineNr">201 </span> <span class="Comment">// sub-optimal error message; should be</span> <span id="L202" class="LineNr">202 </span><span class="CommentedCode">//? "error: can't jump to data (variable 'x')\n"</span> <span id="L203" class="LineNr">203 </span> <span class="Delimiter">);</span> <span id="L204" class="LineNr">204 </span><span class="Delimiter">}</span> <span id="L205" class="LineNr">205 </span> <span id="L206" class="LineNr">206 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L206'>test_global_variable_disallowed_in_call</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L207" class="LineNr">207 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L207" class="LineNr">207 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L208" class="LineNr">208 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L209" class="LineNr">209 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L210" class="LineNr">210 </span> <span class="Constant">"e8/call x/disp32\n"</span> -<span id="L211" class="LineNr">211 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L212" class="LineNr">212 </span> <span class="Constant">"x:\n"</span> -<span id="L213" class="LineNr">213 </span> <span class="Constant">" 00 00 00 00\n"</span> +<span id="L209" class="LineNr">209 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L210" class="LineNr">210 </span> <span class="Constant">"e8/call x/disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L211" class="LineNr">211 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L212" class="LineNr">212 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L213" class="LineNr">213 </span> <span class="Constant">" 00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L214" class="LineNr">214 </span> <span class="Delimiter">);</span> <span id="L215" class="LineNr">215 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L216" class="LineNr">216 </span> <span class="Constant">"error: 'e8/call x/disp32': can't refer to global variable 'x'\n"</span> +<span id="L216" class="LineNr">216 </span> <span class="Constant">"error: 'e8/call x/disp32': can't refer to global variable 'x'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L217" class="LineNr">217 </span> <span class="Comment">// sub-optimal error message; should be</span> <span id="L218" class="LineNr">218 </span><span class="CommentedCode">//? "error: can't call to the data segment ('x')\n"</span> <span id="L219" class="LineNr">219 </span> <span class="Delimiter">);</span> @@ -282,84 +280,84 @@ if ('onhashchange' in window) { <span id="L221" class="LineNr">221 </span> <span id="L222" class="LineNr">222 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L222'>test_global_variable_in_data_segment</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L223" class="LineNr">223 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L224" class="LineNr">224 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L225" class="LineNr">225 </span> <span class="Constant">"b9 x/imm32\n"</span> -<span id="L226" class="LineNr">226 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L227" class="LineNr">227 </span> <span class="Constant">"x:\n"</span> -<span id="L228" class="LineNr">228 </span> <span class="Constant">" y/imm32\n"</span> -<span id="L229" class="LineNr">229 </span> <span class="Constant">"y:\n"</span> -<span id="L230" class="LineNr">230 </span> <span class="Constant">" 00 00 00 00\n"</span> +<span id="L224" class="LineNr">224 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L225" class="LineNr">225 </span> <span class="Constant">"b9 x/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L226" class="LineNr">226 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L227" class="LineNr">227 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L228" class="LineNr">228 </span> <span class="Constant">" y/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L229" class="LineNr">229 </span> <span class="Constant">"y:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L230" class="LineNr">230 </span> <span class="Constant">" 00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L231" class="LineNr">231 </span> <span class="Delimiter">);</span> <span id="L232" class="LineNr">232 </span> <span class="Comment">// check that we loaded 'x' with the address of 'y'</span> <span id="L233" class="LineNr">233 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L234" class="LineNr">234 </span> <span class="Constant">"load: 0x00002000 -> 04\n"</span> -<span id="L235" class="LineNr">235 </span> <span class="Constant">"load: 0x00002001 -> 20\n"</span> -<span id="L236" class="LineNr">236 </span> <span class="Constant">"load: 0x00002002 -> 00\n"</span> -<span id="L237" class="LineNr">237 </span> <span class="Constant">"load: 0x00002003 -> 00\n"</span> +<span id="L234" class="LineNr">234 </span> <span class="Constant">"load: 0x00002000 -> 04</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L235" class="LineNr">235 </span> <span class="Constant">"load: 0x00002001 -> 20</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L236" class="LineNr">236 </span> <span class="Constant">"load: 0x00002002 -> 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L237" class="LineNr">237 </span> <span class="Constant">"load: 0x00002003 -> 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">);</span> <span id="L239" class="LineNr">239 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L240" class="LineNr">240 </span><span class="Delimiter">}</span> <span id="L241" class="LineNr">241 </span> <span id="L242" class="LineNr">242 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L242'>test_raw_number_with_imm32_in_data_segment</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L243" class="LineNr">243 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L244" class="LineNr">244 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L245" class="LineNr">245 </span> <span class="Constant">"b9 x/imm32\n"</span> -<span id="L246" class="LineNr">246 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L247" class="LineNr">247 </span> <span class="Constant">"x:\n"</span> -<span id="L248" class="LineNr">248 </span> <span class="Constant">" 1/imm32\n"</span> +<span id="L244" class="LineNr">244 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L245" class="LineNr">245 </span> <span class="Constant">"b9 x/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L246" class="LineNr">246 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L247" class="LineNr">247 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L248" class="LineNr">248 </span> <span class="Constant">" 1/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L249" class="LineNr">249 </span> <span class="Delimiter">);</span> <span id="L250" class="LineNr">250 </span> <span class="Comment">// check that we loaded 'x' with the address of 1</span> <span id="L251" class="LineNr">251 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L252" class="LineNr">252 </span> <span class="Constant">"load: 0x00002000 -> 01\n"</span> -<span id="L253" class="LineNr">253 </span> <span class="Constant">"load: 0x00002001 -> 00\n"</span> -<span id="L254" class="LineNr">254 </span> <span class="Constant">"load: 0x00002002 -> 00\n"</span> -<span id="L255" class="LineNr">255 </span> <span class="Constant">"load: 0x00002003 -> 00\n"</span> +<span id="L252" class="LineNr">252 </span> <span class="Constant">"load: 0x00002000 -> 01</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L253" class="LineNr">253 </span> <span class="Constant">"load: 0x00002001 -> 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L254" class="LineNr">254 </span> <span class="Constant">"load: 0x00002002 -> 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L255" class="LineNr">255 </span> <span class="Constant">"load: 0x00002003 -> 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L256" class="LineNr">256 </span> <span class="Delimiter">);</span> <span id="L257" class="LineNr">257 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L258" class="LineNr">258 </span><span class="Delimiter">}</span> <span id="L259" class="LineNr">259 </span> <span id="L260" class="LineNr">260 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L260'>test_duplicate_global_variable</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L261" class="LineNr">261 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L262" class="LineNr">262 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L263" class="LineNr">263 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L264" class="LineNr">264 </span> <span class="Constant">"40/increment-EAX\n"</span> -<span id="L265" class="LineNr">265 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L266" class="LineNr">266 </span> <span class="Constant">"x:\n"</span> -<span id="L267" class="LineNr">267 </span> <span class="Constant">"x:\n"</span> -<span id="L268" class="LineNr">268 </span> <span class="Constant">" 00\n"</span> +<span id="L263" class="LineNr">263 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L264" class="LineNr">264 </span> <span class="Constant">"40/increment-EAX</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L265" class="LineNr">265 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L266" class="LineNr">266 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L267" class="LineNr">267 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L268" class="LineNr">268 </span> <span class="Constant">" 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L269" class="LineNr">269 </span> <span class="Delimiter">);</span> <span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L271" class="LineNr">271 </span> <span class="Constant">"error: duplicate global 'x'\n"</span> +<span id="L271" class="LineNr">271 </span> <span class="Constant">"error: duplicate global 'x'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L272" class="LineNr">272 </span> <span class="Delimiter">);</span> <span id="L273" class="LineNr">273 </span><span class="Delimiter">}</span> <span id="L274" class="LineNr">274 </span> <span id="L275" class="LineNr">275 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L275'>test_global_variable_disp32_with_modrm</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L276" class="LineNr">276 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L277" class="LineNr">277 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L278" class="LineNr">278 </span> <span class="Constant">"8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX x/disp32\n"</span> -<span id="L279" class="LineNr">279 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L280" class="LineNr">280 </span> <span class="Constant">"x:\n"</span> -<span id="L281" class="LineNr">281 </span> <span class="Constant">" 00 00 00 00\n"</span> +<span id="L277" class="LineNr">277 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L278" class="LineNr">278 </span> <span class="Constant">"8b/copy 0/mod/indirect 5/rm32/.disp32 2/r32/EDX x/disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L279" class="LineNr">279 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L280" class="LineNr">280 </span> <span class="Constant">"x:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L281" class="LineNr">281 </span> <span class="Constant">" 00 00 00 00</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L282" class="LineNr">282 </span> <span class="Delimiter">);</span> <span id="L283" class="LineNr">283 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L284" class="LineNr">284 </span><span class="Delimiter">}</span> <span id="L285" class="LineNr">285 </span> <span id="L286" class="LineNr">286 </span><span class="Normal">void</span> <a href='037global_variables.cc.html#L286'>test_global_variable_disp32_with_call</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L287" class="LineNr">287 </span> transform<span class="Delimiter">(</span> -<span id="L288" class="LineNr">288 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L289" class="LineNr">289 </span> <span class="Constant">"foo:\n"</span> -<span id="L290" class="LineNr">290 </span> <span class="Constant">" e8/call bar/disp32\n"</span> -<span id="L291" class="LineNr">291 </span> <span class="Constant">"bar:\n"</span> +<span id="L288" class="LineNr">288 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L289" class="LineNr">289 </span> <span class="Constant">"foo:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L290" class="LineNr">290 </span> <span class="Constant">" e8/call bar/disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L291" class="LineNr">291 </span> <span class="Constant">"bar:</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L292" class="LineNr">292 </span> <span class="Delimiter">);</span> <span id="L293" class="LineNr">293 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"error"</span><span class="Delimiter">,</span> <span class="Constant">0</span><span class="Delimiter">);</span> <span id="L294" class="LineNr">294 </span><span class="Delimiter">}</span> <span id="L295" class="LineNr">295 </span> <span id="L296" class="LineNr">296 </span>string <a href='037global_variables.cc.html#L296'>to_full_string</a><span class="Delimiter">(</span><span class="Normal">const</span> line& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L297" class="LineNr">297 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L298" class="LineNr">298 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L298" class="LineNr">298 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L299" class="LineNr">299 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>i > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L300" class="LineNr">300 </span> out << in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>data<span class="Delimiter">;</span> -<span id="L301" class="LineNr">301 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>metadata<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> +<span id="L301" class="LineNr">301 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>metadata<span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span id="L302" class="LineNr">302 </span> out << <span class="Constant">'/'</span> << in<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">).</span>metadata<span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L303" class="LineNr">303 </span> <span class="Delimiter">}</span> <span id="L304" class="LineNr">304 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> diff --git a/html/038literal_strings.cc.html b/html/linux/bootstrap/038literal_strings.cc.html index 8ef14621..7b6d34f0 100644 --- a/html/038literal_strings.cc.html +++ b/html/linux/bootstrap/038literal_strings.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 038literal_strings.cc</title> +<title>Mu - linux/bootstrap/038literal_strings.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,15 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Delimiter { color: #c000c0; } .Comment { color: #005faf; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } .Identifier { color: #af5f00; } -.Delimiter { color: #c000c0; } -.cSpecial { color: #008000; } --> </style> @@ -56,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/038literal_strings.cc'>https://github.com/akkartik/mu/blob/main/038literal_strings.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/038literal_strings.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/038literal_strings.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Allow instructions to mention literals directly.</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//:</span> @@ -65,14 +64,14 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L6'>test_transform_literal_string</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L7" class="LineNr"> 7 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L9" class="LineNr"> 9 </span> <span class="Constant">"b8/copy \"</span>test\<span class="Constant">"/imm32\n"</span> -<span id="L10" class="LineNr"> 10 </span> <span class="Constant">"== data 0x2000\n"</span> <span class="Comment">// need an empty segment</span> +<span id="L8" class="LineNr"> 8 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L9" class="LineNr"> 9 </span> <span class="Constant">"b8/copy </span><span class="cSpecial">\"</span><span class="Constant">test</span><span class="cSpecial">\"</span><span class="Constant">/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L10" class="LineNr"> 10 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// need an empty segment</span> <span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">);</span> <span id="L12" class="LineNr"> 12 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"transform: -- move literal strings to data segment\n"</span> -<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"transform: adding global variable '__subx_global_1' containing \"</span>test\<span class="Constant">"\n"</span> -<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"transform: <a href='011run.cc.html#L121'>line</a> after transform: 'b8 __subx_global_1'\n"</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Constant">"transform: -- move literal strings to data segment</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Constant">"transform: adding global variable '__subx_global_1' containing </span><span class="cSpecial">\"</span><span class="Constant">test</span><span class="cSpecial">\"\n</span><span class="Constant">"</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Constant">"transform: <a href='011run.cc.html#L121'>line</a> after transform: 'b8 __subx_global_1'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">);</span> <span id="L17" class="LineNr"> 17 </span><span class="Delimiter">}</span> <span id="L18" class="LineNr"> 18 </span> @@ -80,29 +79,29 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr"> 20 </span><span class="Comment">//: knows about labels and global variables and will emit them for previous</span> <span id="L21" class="LineNr"> 21 </span><span class="Comment">//: layers to transform.</span> <span id="L22" class="LineNr"> 22 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L23" class="LineNr"> 23 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='038literal_strings.cc.html#L30'>transform_literal_strings</a><span class="Delimiter">);</span> +<span id="L23" class="LineNr"> 23 </span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='038literal_strings.cc.html#L30'>transform_literal_strings</a><span class="Delimiter">);</span> <span id="L24" class="LineNr"> 24 </span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L26" class="LineNr"> 26 </span><span class="Normal">int</span> <span class="SpecialChar">Next_auto_global</span> = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L26" class="LineNr"> 26 </span><span class="Normal">int</span> Next_auto_global = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L27" class="LineNr"> 27 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L28" class="LineNr"> 28 </span><span class="SpecialChar">Next_auto_global</span> = <span class="Constant">1</span><span class="Delimiter">;</span> +<span id="L28" class="LineNr"> 28 </span>Next_auto_global = <span class="Constant">1</span><span class="Delimiter">;</span> <span id="L29" class="LineNr"> 29 </span><span class="Delimiter">:(code)</span> <span id="L30" class="LineNr"> 30 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L30'>transform_literal_strings</a><span class="Delimiter">(</span>program& p<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L31" class="LineNr"> 31 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- move literal strings to data segment"</span> << end<span class="Delimiter">();</span> <span id="L32" class="LineNr"> 32 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> vector<line> new_lines<span class="Delimiter">;</span> -<span id="L34" class="LineNr"> 34 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> s = <span class="Constant">0</span><span class="Delimiter">;</span> s < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++s<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> s = <span class="Constant">0</span><span class="Delimiter">;</span> s < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">);</span> ++s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L35" class="LineNr"> 35 </span> segment& seg = p<span class="Delimiter">.</span><a href='011run.cc.html#L106'>segments</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>s<span class="Delimiter">);</span> <span id="L36" class="LineNr"> 36 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">99</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"segment '"</span> << seg<span class="Delimiter">.</span>name << <span class="Constant">"'"</span> << end<span class="Delimiter">();</span> -<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L37" class="LineNr"> 37 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L38" class="LineNr"> 38 </span><span class="CommentedCode">//? cerr << seg.name << '/' << i << '\n';</span> <span id="L39" class="LineNr"> 39 </span> line& <a href='011run.cc.html#L121'>line</a> = seg<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L40" class="LineNr"> 40 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span> word& curr = <a href='011run.cc.html#L121'>line</a><span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L42" class="LineNr"> 42 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>at<span class="Delimiter">(</span><span class="Constant">0</span><span class="Delimiter">)</span> != <span class="Constant">'"'</span><span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span id="L43" class="LineNr"> 43 </span> ostringstream global_name<span class="Delimiter">;</span> -<span id="L44" class="LineNr"> 44 </span> global_name << <span class="Constant">"__subx_global_"</span> << <span class="SpecialChar">Next_auto_global</span><span class="Delimiter">;</span> -<span id="L45" class="LineNr"> 45 </span> ++<span class="SpecialChar">Next_auto_global</span><span class="Delimiter">;</span> +<span id="L44" class="LineNr"> 44 </span> global_name << <span class="Constant">"__subx_global_"</span> << Next_auto_global<span class="Delimiter">;</span> +<span id="L45" class="LineNr"> 45 </span> ++Next_auto_global<span class="Delimiter">;</span> <span id="L46" class="LineNr"> 46 </span> <a href='038literal_strings.cc.html#L57'>add_global_to_data_segment</a><span class="Delimiter">(</span>global_name<span class="Delimiter">.</span>str<span class="Delimiter">(),</span> curr<span class="Delimiter">,</span> new_lines<span class="Delimiter">);</span> <span id="L47" class="LineNr"> 47 </span> curr<span class="Delimiter">.</span>data = global_name<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">}</span> @@ -120,11 +119,11 @@ if ('onhashchange' in window) { <span id="L60" class="LineNr"> 60 </span> out<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>label<span class="Delimiter">(</span><a href='011run.cc.html#L111'>name</a><span class="Delimiter">));</span> <span id="L61" class="LineNr"> 61 </span> <span class="Comment">// emit size for size-prefixed array</span> <span id="L62" class="LineNr"> 62 </span> out<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">());</span> -<span id="L63" class="LineNr"> 63 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">.</span>back<span class="Delimiter">(),</span> <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip quotes</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">4</span><span class="Comment">/*</span><span class="Comment">bytes</span><span class="Comment">*/</span><span class="Delimiter">);</span> +<span id="L63" class="LineNr"> 63 </span> emit_hex_bytes<span class="Delimiter">(</span>out<span class="Delimiter">.</span>back<span class="Delimiter">(),</span> <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip quotes</span><span class="Comment">*/</span><span class="Constant">2</span><span class="Delimiter">,</span> <span class="Constant">4</span><span class="Comment">/*</span><span class="Comment">bytes</span><span class="Comment">*/</span><span class="Delimiter">);</span> <span id="L64" class="LineNr"> 64 </span> <span class="Comment">// emit data byte by byte</span> <span id="L65" class="LineNr"> 65 </span> out<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">());</span> <span id="L66" class="LineNr"> 66 </span> line& curr = out<span class="Delimiter">.</span>back<span class="Delimiter">();</span> -<span id="L67" class="LineNr"> 67 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip start quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip end quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Comment">/*</span><span class="Comment">skip start quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>value<span class="Delimiter">.</span>data<span class="Delimiter">)</span>-<span class="Comment">/*</span><span class="Comment">skip end quote</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">;</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L68" class="LineNr"> 68 </span> <span class="Normal">char</span> c = value<span class="Delimiter">.</span>data<span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> <span id="L69" class="LineNr"> 69 </span> curr<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='011run.cc.html#L127'>word</a><span class="Delimiter">());</span> <span id="L70" class="LineNr"> 70 </span> curr<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>data = <a href='032operands.cc.html#L327'>hex_byte_to_string</a><span class="Delimiter">(</span>c<span class="Delimiter">);</span> @@ -137,12 +136,12 @@ if ('onhashchange' in window) { <span id="L77" class="LineNr"> 77 </span> <span id="L78" class="LineNr"> 78 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L78'>test_instruction_with_string_literal</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L79" class="LineNr"> 79 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"a \"</span>abc def\<span class="Constant">" z\n"</span> <span class="Comment">// two spaces inside string</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Constant">"a </span><span class="cSpecial">\"</span><span class="Constant">abc def</span><span class="cSpecial">\"</span><span class="Constant"> z</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// two spaces inside string</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">);</span> <span id="L82" class="LineNr"> 82 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> -<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>abc def\<span class="Constant">"\n"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: z\n"</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L84" class="LineNr"> 84 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: </span><span class="cSpecial">\"</span><span class="Constant">abc def</span><span class="cSpecial">\"\n</span><span class="Constant">"</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: z</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">);</span> <span id="L87" class="LineNr"> 87 </span> <span class="Comment">// no other words</span> <span id="L88" class="LineNr"> 88 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">3</span><span class="Delimiter">);</span> @@ -150,28 +149,28 @@ if ('onhashchange' in window) { <span id="L90" class="LineNr"> 90 </span> <span id="L91" class="LineNr"> 91 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L91'>test_string_literal_in_data_segment</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L92" class="LineNr"> 92 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"b8/copy X/imm32\n"</span> -<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"== data 0x2000\n"</span> -<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"X:\n"</span> -<span id="L97" class="LineNr"> 97 </span> <span class="Constant">"\"</span>test\<span class="Constant">"/imm32\n"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L94" class="LineNr"> 94 </span> <span class="Constant">"b8/copy X/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Constant">"X:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Constant">"</span><span class="cSpecial">\"</span><span class="Constant">test</span><span class="cSpecial">\"</span><span class="Constant">/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">);</span> <span id="L99" class="LineNr"> 99 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L100" class="LineNr">100 </span> <span class="Constant">"transform: -- move literal strings to data segment\n"</span> -<span id="L101" class="LineNr">101 </span> <span class="Constant">"transform: adding global variable '__subx_global_1' containing \"</span>test\<span class="Constant">"\n"</span> -<span id="L102" class="LineNr">102 </span> <span class="Constant">"transform: <a href='011run.cc.html#L121'>line</a> after transform: '__subx_global_1'\n"</span> +<span id="L100" class="LineNr">100 </span> <span class="Constant">"transform: -- move literal strings to data segment</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L101" class="LineNr">101 </span> <span class="Constant">"transform: adding global variable '__subx_global_1' containing </span><span class="cSpecial">\"</span><span class="Constant">test</span><span class="cSpecial">\"\n</span><span class="Constant">"</span> +<span id="L102" class="LineNr">102 </span> <span class="Constant">"transform: <a href='011run.cc.html#L121'>line</a> after transform: '__subx_global_1'</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L103" class="LineNr">103 </span> <span class="Delimiter">);</span> <span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> <span id="L105" class="LineNr">105 </span> <span id="L106" class="LineNr">106 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L106'>test_string_literal_with_missing_quote</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L107" class="LineNr">107 </span> <span class="SpecialChar">Hide_errors</span> = <span class="Constant">true</span><span class="Delimiter">;</span> +<span id="L107" class="LineNr">107 </span> Hide_errors = <span class="Constant">true</span><span class="Delimiter">;</span> <span id="L108" class="LineNr">108 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L109" class="LineNr">109 </span> <span class="Constant">"== code 0x1\n"</span> -<span id="L110" class="LineNr">110 </span> <span class="Constant">"b8/copy \"</span>test/imm32\n<span class="Constant">"</span> -<span id="L111" class="LineNr">111 </span><span class="Constant"> "</span>== data <span class="Constant">0x2000</span>\n<span class="Constant">"</span> -<span id="L112" class="LineNr">112 </span><span class="Constant"> );</span> -<span id="L113" class="LineNr">113 </span><span class="Constant"> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a>(</span> -<span id="L114" class="LineNr">114 </span><span class="Constant"> "</span>error: unclosed string in: b8/copy \<span class="Constant">"test/imm32"</span> +<span id="L109" class="LineNr">109 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L110" class="LineNr">110 </span> <span class="Constant">"b8/copy </span><span class="cSpecial">\"</span><span class="Constant">test/imm32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L111" class="LineNr">111 </span> <span class="Constant">"== data 0x2000</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L112" class="LineNr">112 </span> <span class="Delimiter">);</span> +<span id="L113" class="LineNr">113 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L114" class="LineNr">114 </span> <span class="Constant">"error: unclosed string in: b8/copy </span><span class="cSpecial">\"</span><span class="Constant">test/imm32"</span> <span id="L115" class="LineNr">115 </span> <span class="Delimiter">);</span> <span id="L116" class="LineNr">116 </span><span class="Delimiter">}</span> <span id="L117" class="LineNr">117 </span> @@ -184,7 +183,7 @@ if ('onhashchange' in window) { <span id="L124" class="LineNr">124 </span><span class="Delimiter">:(code)</span> <span id="L125" class="LineNr">125 </span><span class="Normal">void</span> parse_instruction_character_by_character<span class="Delimiter">(</span><span class="Normal">const</span> string& line_data<span class="Delimiter">,</span> vector<line>& out<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L126" class="LineNr">126 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>line_data<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="cSpecial">'\n'</span><span class="Delimiter">)</span> != string::npos && line_data<span class="Delimiter">.</span>find<span class="Delimiter">(</span><span class="cSpecial">'\n'</span><span class="Delimiter">)</span> != line_data<span class="Delimiter">.</span>size<span class="Delimiter">()</span>-<span class="Constant">1</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: should receive only a single line\n"</span> << end<span class="Delimiter">();</span> +<span id="L127" class="LineNr">127 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: should receive only a single <a href='011run.cc.html#L121'>line</a></span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L128" class="LineNr">128 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> <span id="L130" class="LineNr">130 </span> <span class="Comment">// parse literals</span> @@ -193,7 +192,7 @@ if ('onhashchange' in window) { <span id="L133" class="LineNr">133 </span> <a href='011run.cc.html#L121'>line</a> result<span class="Delimiter">;</span> <span id="L134" class="LineNr">134 </span> result<span class="Delimiter">.</span>original = line_data<span class="Delimiter">;</span> <span id="L135" class="LineNr">135 </span> <span class="Comment">// add tokens (words or strings) one by one</span> -<span id="L136" class="LineNr">136 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L136" class="LineNr">136 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L137" class="LineNr">137 </span> <a href='038literal_strings.cc.html#L205'>skip_whitespace</a><span class="Delimiter">(</span>in<span class="Delimiter">);</span> <span id="L138" class="LineNr">138 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!has_data<span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Identifier">break</span><span class="Delimiter">;</span> <span id="L139" class="LineNr">139 </span> <span class="Normal">char</span> c = in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> @@ -221,7 +220,7 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr">161 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>c == <span class="Constant">'"'</span><span class="Delimiter">)</span> d << <span class="Constant">'"'</span><span class="Delimiter">;</span> <span id="L162" class="LineNr">162 </span> <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>c == <span class="cSpecial">'\\'</span><span class="Delimiter">)</span> d << <span class="cSpecial">'\\'</span><span class="Delimiter">;</span> <span id="L163" class="LineNr">163 </span> <span class="Normal">else</span> <span class="Delimiter">{</span> -<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: unknown escape sequence '\\"</span> << c << <span class="Constant">"'\n"</span> << end<span class="Delimiter">();</span> +<span id="L164" class="LineNr">164 </span> <a href='003trace.cc.html#L226'>raise</a> << <span class="Constant">"parse_instruction_character_by_character: unknown escape sequence '</span><span class="cSpecial">\\</span><span class="Constant">"</span> << c << <span class="Constant">"'</span><span class="cSpecial">\n</span><span class="Constant">"</span> << end<span class="Delimiter">();</span> <span id="L165" class="LineNr">165 </span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L166" class="LineNr">166 </span> <span class="Delimiter">}</span> <span id="L167" class="LineNr">167 </span> <span class="Identifier">continue</span><span class="Delimiter">;</span> @@ -234,7 +233,7 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr">174 </span> result<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>original = d<span class="Delimiter">.</span>str<span class="Delimiter">();</span> <span id="L175" class="LineNr">175 </span> <span class="Comment">// slurp metadata</span> <span id="L176" class="LineNr">176 </span> ostringstream m<span class="Delimiter">;</span> -<span id="L177" class="LineNr">177 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> +<span id="L177" class="LineNr">177 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> <span id="L178" class="LineNr">178 </span> in >> c<span class="Delimiter">;</span> <span id="L179" class="LineNr">179 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>c == <span class="Constant">'/'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L180" class="LineNr">180 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!m<span class="Delimiter">.</span>str<span class="Delimiter">().</span>empty<span class="Delimiter">())</span> result<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>back<span class="Delimiter">().</span>metadata<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>m<span class="Delimiter">.</span>str<span class="Delimiter">());</span> @@ -250,7 +249,7 @@ if ('onhashchange' in window) { <span id="L190" class="LineNr">190 </span> <span class="Comment">// not a string literal; slurp all characters until whitespace</span> <span id="L191" class="LineNr">191 </span> ostringstream w<span class="Delimiter">;</span> <span id="L192" class="LineNr">192 </span> w << c<span class="Delimiter">;</span> -<span id="L193" class="LineNr">193 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> +<span id="L193" class="LineNr">193 </span> <span class="Normal">while</span> <span class="Delimiter">(</span>!isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">())</span> && <a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span class="Comment">// peek can sometimes trigger eof(), so do it first</span> <span id="L194" class="LineNr">194 </span> in >> c<span class="Delimiter">;</span> <span id="L195" class="LineNr">195 </span> w << c<span class="Delimiter">;</span> <span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> @@ -263,15 +262,15 @@ if ('onhashchange' in window) { <span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> <span id="L205" class="LineNr">205 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L205'>skip_whitespace</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">()))</span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && isspace<span class="Delimiter">(</span>in<span class="Delimiter">.</span>peek<span class="Delimiter">()))</span> <span class="Delimiter">{</span> <span id="L207" class="LineNr">207 </span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> <span id="L208" class="LineNr">208 </span> <span class="Delimiter">}</span> <span id="L209" class="LineNr">209 </span><span class="Delimiter">}</span> <span id="L210" class="LineNr">210 </span> <span id="L211" class="LineNr">211 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L211'>skip_comment</a><span class="Delimiter">(</span>istream& in<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L212" class="LineNr">212 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> == <span class="Constant">'#'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L212" class="LineNr">212 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> == <span class="Constant">'#'</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L213" class="LineNr">213 </span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> -<span id="L214" class="LineNr">214 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> != <span class="cSpecial">'\n'</span><span class="Delimiter">)</span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> +<span id="L214" class="LineNr">214 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>in<span class="Delimiter">)</span> && in<span class="Delimiter">.</span>peek<span class="Delimiter">()</span> != <span class="cSpecial">'\n'</span><span class="Delimiter">)</span> in<span class="Delimiter">.</span>get<span class="Delimiter">();</span> <span id="L215" class="LineNr">215 </span> <span class="Delimiter">}</span> <span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> <span id="L217" class="LineNr">217 </span> @@ -290,11 +289,11 @@ if ('onhashchange' in window) { <span id="L230" class="LineNr">230 </span> <span id="L231" class="LineNr">231 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L231'>test_parse2_comment_token_in_middle</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L232" class="LineNr">232 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L233" class="LineNr">233 </span> <span class="Constant">"a . z\n"</span> +<span id="L233" class="LineNr">233 </span> <span class="Constant">"a . z</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L234" class="LineNr">234 </span> <span class="Delimiter">);</span> <span id="L235" class="LineNr">235 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L236" class="LineNr">236 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> -<span id="L237" class="LineNr">237 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: z\n"</span> +<span id="L236" class="LineNr">236 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L237" class="LineNr">237 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: z</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L238" class="LineNr">238 </span> <span class="Delimiter">);</span> <span id="L239" class="LineNr">239 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> <span id="L240" class="LineNr">240 </span> <span class="Comment">// no other words</span> @@ -303,87 +302,87 @@ if ('onhashchange' in window) { <span id="L243" class="LineNr">243 </span> <span id="L244" class="LineNr">244 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L244'>test_parse2_word_starting_with_dot</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L245" class="LineNr">245 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L246" class="LineNr">246 </span> <span class="Constant">"a .b c\n"</span> +<span id="L246" class="LineNr">246 </span> <span class="Constant">"a .b c</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L247" class="LineNr">247 </span> <span class="Delimiter">);</span> <span id="L248" class="LineNr">248 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L249" class="LineNr">249 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> -<span id="L250" class="LineNr">250 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .b\n"</span> -<span id="L251" class="LineNr">251 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: c\n"</span> +<span id="L249" class="LineNr">249 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L250" class="LineNr">250 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .b</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L251" class="LineNr">251 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: c</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L252" class="LineNr">252 </span> <span class="Delimiter">);</span> <span id="L253" class="LineNr">253 </span><span class="Delimiter">}</span> <span id="L254" class="LineNr">254 </span> <span id="L255" class="LineNr">255 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L255'>test_parse2_comment_token_at_start</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L256" class="LineNr">256 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L257" class="LineNr">257 </span> <span class="Constant">". a b\n"</span> +<span id="L257" class="LineNr">257 </span> <span class="Constant">". a b</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L258" class="LineNr">258 </span> <span class="Delimiter">);</span> <span id="L259" class="LineNr">259 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L260" class="LineNr">260 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> -<span id="L261" class="LineNr">261 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b\n"</span> +<span id="L260" class="LineNr">260 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L261" class="LineNr">261 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L262" class="LineNr">262 </span> <span class="Delimiter">);</span> <span id="L263" class="LineNr">263 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> <span id="L264" class="LineNr">264 </span><span class="Delimiter">}</span> <span id="L265" class="LineNr">265 </span> <span id="L266" class="LineNr">266 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L266'>test_parse2_comment_token_at_end</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L267" class="LineNr">267 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L268" class="LineNr">268 </span> <span class="Constant">"a b .\n"</span> +<span id="L268" class="LineNr">268 </span> <span class="Constant">"a b .</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L269" class="LineNr">269 </span> <span class="Delimiter">);</span> <span id="L270" class="LineNr">270 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L271" class="LineNr">271 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> -<span id="L272" class="LineNr">272 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b\n"</span> +<span id="L271" class="LineNr">271 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L272" class="LineNr">272 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L273" class="LineNr">273 </span> <span class="Delimiter">);</span> <span id="L274" class="LineNr">274 </span> <a href='003trace.cc.html#L292'>CHECK_TRACE_DOESNT_CONTAIN</a><span class="Delimiter">(</span><span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: ."</span><span class="Delimiter">);</span> <span id="L275" class="LineNr">275 </span><span class="Delimiter">}</span> <span id="L276" class="LineNr">276 </span> <span id="L277" class="LineNr">277 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L277'>test_parse2_word_starting_with_dot_at_start</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L278" class="LineNr">278 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L279" class="LineNr">279 </span> <span class="Constant">".a b c\n"</span> +<span id="L279" class="LineNr">279 </span> <span class="Constant">".a b c</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L280" class="LineNr">280 </span> <span class="Delimiter">);</span> <span id="L281" class="LineNr">281 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L282" class="LineNr">282 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .a\n"</span> -<span id="L283" class="LineNr">283 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b\n"</span> -<span id="L284" class="LineNr">284 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: c\n"</span> +<span id="L282" class="LineNr">282 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L283" class="LineNr">283 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L284" class="LineNr">284 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: c</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L285" class="LineNr">285 </span> <span class="Delimiter">);</span> <span id="L286" class="LineNr">286 </span><span class="Delimiter">}</span> <span id="L287" class="LineNr">287 </span> <span id="L288" class="LineNr">288 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L288'>test_parse2_metadata</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L289" class="LineNr">289 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L290" class="LineNr">290 </span> <span class="Constant">".a b/c d\n"</span> +<span id="L290" class="LineNr">290 </span> <span class="Constant">".a b/c d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L291" class="LineNr">291 </span> <span class="Delimiter">);</span> <span id="L292" class="LineNr">292 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L293" class="LineNr">293 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .a\n"</span> -<span id="L294" class="LineNr">294 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b /c\n"</span> -<span id="L295" class="LineNr">295 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: d\n"</span> +<span id="L293" class="LineNr">293 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: .a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L294" class="LineNr">294 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: b /c</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L295" class="LineNr">295 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: d</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L296" class="LineNr">296 </span> <span class="Delimiter">);</span> <span id="L297" class="LineNr">297 </span><span class="Delimiter">}</span> <span id="L298" class="LineNr">298 </span> <span id="L299" class="LineNr">299 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L299'>test_parse2_string_with_metadata</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L300" class="LineNr">300 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L301" class="LineNr">301 </span> <span class="Constant">"a \"</span>bc def\<span class="Constant">"/disp32 g\n"</span> +<span id="L301" class="LineNr">301 </span> <span class="Constant">"a </span><span class="cSpecial">\"</span><span class="Constant">bc def</span><span class="cSpecial">\"</span><span class="Constant">/disp32 g</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L302" class="LineNr">302 </span> <span class="Delimiter">);</span> <span id="L303" class="LineNr">303 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L304" class="LineNr">304 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> -<span id="L305" class="LineNr">305 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>bc def\<span class="Constant">" /disp32\n"</span> -<span id="L306" class="LineNr">306 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: g\n"</span> +<span id="L304" class="LineNr">304 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L305" class="LineNr">305 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: </span><span class="cSpecial">\"</span><span class="Constant">bc def</span><span class="cSpecial">\"</span><span class="Constant"> /disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L306" class="LineNr">306 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: g</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L307" class="LineNr">307 </span> <span class="Delimiter">);</span> <span id="L308" class="LineNr">308 </span><span class="Delimiter">}</span> <span id="L309" class="LineNr">309 </span> <span id="L310" class="LineNr">310 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L310'>test_parse2_string_with_metadata_at_end</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L311" class="LineNr">311 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L312" class="LineNr">312 </span> <span class="Constant">"a \"</span>bc def\<span class="Constant">"/disp32\n"</span> +<span id="L312" class="LineNr">312 </span> <span class="Constant">"a </span><span class="cSpecial">\"</span><span class="Constant">bc def</span><span class="cSpecial">\"</span><span class="Constant">/disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L313" class="LineNr">313 </span> <span class="Delimiter">);</span> <span id="L314" class="LineNr">314 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L315" class="LineNr">315 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a\n"</span> -<span id="L316" class="LineNr">316 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>bc def\<span class="Constant">" /disp32\n"</span> +<span id="L315" class="LineNr">315 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: a</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L316" class="LineNr">316 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: </span><span class="cSpecial">\"</span><span class="Constant">bc def</span><span class="cSpecial">\"</span><span class="Constant"> /disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L317" class="LineNr">317 </span> <span class="Delimiter">);</span> <span id="L318" class="LineNr">318 </span><span class="Delimiter">}</span> <span id="L319" class="LineNr">319 </span> <span id="L320" class="LineNr">320 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L320'>test_parse2_string_with_metadata_at_end_of_line_without_newline</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L321" class="LineNr">321 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L322" class="LineNr">322 </span> <span class="Constant">"68/push \"</span>test\<span class="Constant">"/f"</span> <span class="Comment">// no newline, which is how calls from parse() will look</span> +<span id="L322" class="LineNr">322 </span> <span class="Constant">"68/push </span><span class="cSpecial">\"</span><span class="Constant">test</span><span class="cSpecial">\"</span><span class="Constant">/f"</span> <span class="Comment">// no newline, which is how calls from parse() will look</span> <span id="L323" class="LineNr">323 </span> <span class="Delimiter">);</span> <span id="L324" class="LineNr">324 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L325" class="LineNr">325 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: 68 /push\n"</span> -<span id="L326" class="LineNr">326 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>test\<span class="Constant">" /f\n"</span> +<span id="L325" class="LineNr">325 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: 68 /push</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L326" class="LineNr">326 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: </span><span class="cSpecial">\"</span><span class="Constant">test</span><span class="cSpecial">\"</span><span class="Constant"> /f</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L327" class="LineNr">327 </span> <span class="Delimiter">);</span> <span id="L328" class="LineNr">328 </span><span class="Delimiter">}</span> <span id="L329" class="LineNr">329 </span> @@ -392,19 +391,19 @@ if ('onhashchange' in window) { <span id="L332" class="LineNr">332 </span> <span id="L333" class="LineNr">333 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L333'>test_parse2_string_containing_slashes</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L334" class="LineNr">334 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L335" class="LineNr">335 </span> <span class="Constant">"a \"</span>bc/def\<span class="Constant">"/disp32\n"</span> +<span id="L335" class="LineNr">335 </span> <span class="Constant">"a </span><span class="cSpecial">\"</span><span class="Constant">bc/def</span><span class="cSpecial">\"</span><span class="Constant">/disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L336" class="LineNr">336 </span> <span class="Delimiter">);</span> <span id="L337" class="LineNr">337 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L338" class="LineNr">338 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>bc/def\<span class="Constant">" /disp32\n"</span> +<span id="L338" class="LineNr">338 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: </span><span class="cSpecial">\"</span><span class="Constant">bc/def</span><span class="cSpecial">\"</span><span class="Constant"> /disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L339" class="LineNr">339 </span> <span class="Delimiter">);</span> <span id="L340" class="LineNr">340 </span><span class="Delimiter">}</span> <span id="L341" class="LineNr">341 </span> <span id="L342" class="LineNr">342 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L342'>test_instruction_with_string_literal_with_escaped_quote</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L343" class="LineNr">343 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L344" class="LineNr">344 </span> <span class="Constant">"\"</span>a\\\<span class="Constant">"b\"</span>\n<span class="Constant">" // escaped quote inside string</span> -<span id="L345" class="LineNr">345 </span><span class="Constant"> );</span> -<span id="L346" class="LineNr">346 </span><span class="Constant"> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a>(</span> -<span id="L347" class="LineNr">347 </span><span class="Constant"> "</span>parse2: <a href='011run.cc.html#L127'>word</a>: \<span class="Constant">"a\"</span>b\<span class="Constant">"\n"</span> +<span id="L344" class="LineNr">344 </span> <span class="Constant">"</span><span class="cSpecial">\"</span><span class="Constant">a</span><span class="cSpecial">\\\"</span><span class="Constant">b</span><span class="cSpecial">\"\n</span><span class="Constant">"</span> <span class="Comment">// escaped quote inside string</span> +<span id="L345" class="LineNr">345 </span> <span class="Delimiter">);</span> +<span id="L346" class="LineNr">346 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> +<span id="L347" class="LineNr">347 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: </span><span class="cSpecial">\"</span><span class="Constant">a</span><span class="cSpecial">\"</span><span class="Constant">b</span><span class="cSpecial">\"\n</span><span class="Constant">"</span> <span id="L348" class="LineNr">348 </span> <span class="Delimiter">);</span> <span id="L349" class="LineNr">349 </span> <span class="Comment">// no other words</span> <span id="L350" class="LineNr">350 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> @@ -412,10 +411,10 @@ if ('onhashchange' in window) { <span id="L352" class="LineNr">352 </span> <span id="L353" class="LineNr">353 </span><span class="Normal">void</span> <a href='038literal_strings.cc.html#L353'>test_instruction_with_string_literal_with_escaped_backslash</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> <span id="L354" class="LineNr">354 </span> parse_instruction_character_by_character<span class="Delimiter">(</span> -<span id="L355" class="LineNr">355 </span> <span class="Constant">"\"</span>a\\\\b\<span class="Constant">"\n"</span> <span class="Comment">// escaped backslash inside string</span> +<span id="L355" class="LineNr">355 </span> <span class="Constant">"</span><span class="cSpecial">\"</span><span class="Constant">a</span><span class="cSpecial">\\\\</span><span class="Constant">b</span><span class="cSpecial">\"\n</span><span class="Constant">"</span> <span class="Comment">// escaped backslash inside string</span> <span id="L356" class="LineNr">356 </span> <span class="Delimiter">);</span> <span id="L357" class="LineNr">357 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L358" class="LineNr">358 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: \"</span>a\\b\<span class="Constant">"\n"</span> +<span id="L358" class="LineNr">358 </span> <span class="Constant">"parse2: <a href='011run.cc.html#L127'>word</a>: </span><span class="cSpecial">\"</span><span class="Constant">a</span><span class="cSpecial">\\</span><span class="Constant">b</span><span class="cSpecial">\"\n</span><span class="Constant">"</span> <span id="L359" class="LineNr">359 </span> <span class="Delimiter">);</span> <span id="L360" class="LineNr">360 </span> <span class="Comment">// no other words</span> <span id="L361" class="LineNr">361 </span> <a href='003trace.cc.html#L294'>CHECK_TRACE_COUNT</a><span class="Delimiter">(</span><span class="Constant">"parse2"</span><span class="Delimiter">,</span> <span class="Constant">1</span><span class="Delimiter">);</span> diff --git a/html/039debug.cc.html b/html/linux/bootstrap/039debug.cc.html index e4f90b0f..6df286a0 100644 --- a/html/039debug.cc.html +++ b/html/linux/bootstrap/039debug.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 039debug.cc</title> +<title>Mu - linux/bootstrap/039debug.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,15 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.Todo { color: #000000; background-color: #ffff00; padding-bottom: 1px; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Todo { color: #000000; background-color: #ffff00; padding-bottom: 1px; } -.SalientComment { color: #0000af; } --> </style> @@ -56,17 +54,17 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/039debug.cc'>https://github.com/akkartik/mu/blob/main/039debug.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/039debug.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/039debug.cc</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="SalientComment">//:: Some helpers for debugging.</span> +<span id="L1" class="LineNr"> 1 </span><span class="Comment">//:: Some helpers for debugging.</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="Comment">//: Load the 'map' file generated during 'bootstrap --debug translate' when running</span> <span id="L4" class="LineNr"> 4 </span><span class="Comment">//: 'bootstrap --trace run'.</span> <span id="L5" class="LineNr"> 5 </span><span class="Comment">//: (It'll only affect the trace.)</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L8" class="LineNr"> 8 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> -<span id="L9" class="LineNr"> 9 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> +<span id="L8" class="LineNr"> 8 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> +<span id="L9" class="LineNr"> 9 </span>map<<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string> <a href='039debug.cc.html#L9'>Source_line</a><span class="Delimiter">;</span> <span class="Comment">// used only by 'bootstrap run'</span> <span id="L10" class="LineNr"> 10 </span><span class="Delimiter">:(before "End --trace Settings")</span> <span id="L11" class="LineNr"> 11 </span><a href='039debug.cc.html#L14'>load_labels</a><span class="Delimiter">();</span> <span id="L12" class="LineNr"> 12 </span><a href='039debug.cc.html#L27'>load_source_lines</a><span class="Delimiter">();</span> @@ -75,12 +73,12 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr"> 15 </span> ifstream fin<span class="Delimiter">(</span><span class="Constant">"labels"</span><span class="Delimiter">);</span> <span id="L16" class="LineNr"> 16 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>fin<span class="Delimiter">.</span>fail<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L17" class="LineNr"> 17 </span> fin >> std::hex<span class="Delimiter">;</span> -<span id="L18" class="LineNr"> 18 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L18" class="LineNr"> 18 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L19" class="LineNr"> 19 </span> <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L20" class="LineNr"> 20 </span> fin >> addr<span class="Delimiter">;</span> <span id="L21" class="LineNr"> 21 </span> string <a href='011run.cc.html#L111'>name</a><span class="Delimiter">;</span> <span id="L22" class="LineNr"> 22 </span> fin >> <a href='011run.cc.html#L111'>name</a><span class="Delimiter">;</span> -<span id="L23" class="LineNr"> 23 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='011run.cc.html#L111'>name</a><span class="Delimiter">);</span> +<span id="L23" class="LineNr"> 23 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='011run.cc.html#L111'>name</a><span class="Delimiter">);</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">}</span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">}</span> <span id="L26" class="LineNr"> 26 </span> @@ -88,23 +86,23 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span> ifstream fin<span class="Delimiter">(</span><span class="Constant">"source_lines"</span><span class="Delimiter">);</span> <span id="L29" class="LineNr"> 29 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>fin<span class="Delimiter">.</span>fail<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> <span id="L30" class="LineNr"> 30 </span> fin >> std::hex<span class="Delimiter">;</span> -<span id="L31" class="LineNr"> 31 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L247'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L249'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L32" class="LineNr"> 32 </span> <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span> <span id="L33" class="LineNr"> 33 </span> fin >> addr<span class="Delimiter">;</span> <span id="L34" class="LineNr"> 34 </span> string <a href='011run.cc.html#L121'>line</a><span class="Delimiter">;</span> <span id="L35" class="LineNr"> 35 </span> getline<span class="Delimiter">(</span>fin<span class="Delimiter">,</span> <a href='011run.cc.html#L121'>line</a><span class="Delimiter">);</span> -<span id="L36" class="LineNr"> 36 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='039debug.cc.html#L139'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">));</span> +<span id="L36" class="LineNr"> 36 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='039debug.cc.html#L9'>Source_line</a><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='039debug.cc.html#L139'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><a href='011run.cc.html#L121'>line</a><span class="Delimiter">));</span> <span id="L37" class="LineNr"> 37 </span> <span class="Delimiter">}</span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="Delimiter">:(after "Run One Instruction")</span> -<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> -<span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"== label "</span> << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> -<span id="L43" class="LineNr"> 43 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> -<span id="L44" class="LineNr"> 44 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> +<span id="L42" class="LineNr"> 42 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth<span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"== label "</span> << get<span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L43" class="LineNr"> 43 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span><a href='039debug.cc.html#L9'>Source_line</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">))</span> +<span id="L44" class="LineNr"> 44 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth<span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << get<span class="Delimiter">(</span><a href='039debug.cc.html#L9'>Source_line</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L45" class="LineNr"> 45 </span><span class="Normal">else</span> <span id="L46" class="LineNr"> 46 </span> <span class="Comment">// no source line info; do what you can</span> -<span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << <a href='039debug.cc.html#L50'>debug_info</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L47" class="LineNr"> 47 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth<span class="Delimiter">,</span> <span class="Constant">"run"</span><span class="Delimiter">)</span> << <span class="Constant">"inst: "</span> << <a href='039debug.cc.html#L50'>debug_info</a><span class="Delimiter">(</span><a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L48" class="LineNr"> 48 </span> <span id="L49" class="LineNr"> 49 </span><span class="Delimiter">:(code)</span> <span id="L50" class="LineNr"> 50 </span>string <a href='039debug.cc.html#L50'>debug_info</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> inst_address<span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -116,8 +114,8 @@ if ('onhashchange' in window) { <span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">}</span> <span id="L57" class="LineNr"> 57 </span> <span class="Normal">int32_t</span> offset = <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span>inst_address+<span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">);</span> <span id="L58" class="LineNr"> 58 </span> <span class="Normal">uint32_t</span> next_eip = inst_address+<span class="Comment">/*</span><span class="Comment">inst length</span><span class="Comment">*/</span><span class="Constant">5</span>+offset<span class="Delimiter">;</span> -<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">))</span> -<span id="L60" class="LineNr"> 60 </span> <span class="Identifier">return</span> <span class="Constant">"e8/call "</span>+get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">);</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> next_eip<span class="Delimiter">))</span> +<span id="L60" class="LineNr"> 60 </span> <span class="Identifier">return</span> <span class="Constant">"e8/call "</span>+get<span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> next_eip<span class="Delimiter">);</span> <span id="L61" class="LineNr"> 61 </span> ostringstream out<span class="Delimiter">;</span> <span id="L62" class="LineNr"> 62 </span> out << <span class="Constant">"e8/call 0x"</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << next_eip<span class="Delimiter">;</span> <span id="L63" class="LineNr"> 63 </span> <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span> @@ -130,39 +128,39 @@ if ('onhashchange' in window) { <span id="L70" class="LineNr"> 70 </span><span class="Delimiter">:(after "Run One Instruction")</span> <span id="L71" class="LineNr"> 71 </span><a href='039debug.cc.html#L77'>dump_watch_points</a><span class="Delimiter">();</span> <span id="L72" class="LineNr"> 72 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L73" class="LineNr"> 73 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">;</span> +<span id="L73" class="LineNr"> 73 </span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>> <a href='039debug.cc.html#L73'>Watch_points</a><span class="Delimiter">;</span> <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">:(before "End Reset")</span> -<span id="L75" class="LineNr"> 75 </span><span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> +<span id="L75" class="LineNr"> 75 </span><a href='039debug.cc.html#L73'>Watch_points</a><span class="Delimiter">.</span>clear<span class="Delimiter">();</span> <span id="L76" class="LineNr"> 76 </span><span class="Delimiter">:(code)</span> <span id="L77" class="LineNr"> 77 </span><span class="Normal">void</span> <a href='039debug.cc.html#L77'>dump_watch_points</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L78" class="LineNr"> 78 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> -<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">"watch points:"</span> << end<span class="Delimiter">();</span> -<span id="L80" class="LineNr"> 80 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> -<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="SpecialChar">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">" "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << p<span class="Delimiter">-></span>second << <span class="Constant">" -> "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span>second<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Normal">if</span> <span class="Delimiter">(</span><a href='039debug.cc.html#L73'>Watch_points</a><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span> +<span id="L79" class="LineNr"> 79 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth<span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">"watch points:"</span> << end<span class="Delimiter">();</span> +<span id="L80" class="LineNr"> 80 </span> <span class="Normal">for</span> <span class="Delimiter">(</span>map<string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>>::iterator p = <a href='039debug.cc.html#L73'>Watch_points</a><span class="Delimiter">.</span>begin<span class="Delimiter">();</span> p != <a href='039debug.cc.html#L73'>Watch_points</a><span class="Delimiter">.</span>end<span class="Delimiter">();</span> ++p<span class="Delimiter">)</span> +<span id="L81" class="LineNr"> 81 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span>Callstack_depth<span class="Delimiter">,</span> <span class="Constant">"dbg"</span><span class="Delimiter">)</span> << <span class="Constant">" "</span> << p<span class="Delimiter">-></span>first << <span class="Constant">": "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << p<span class="Delimiter">-></span>second << <span class="Constant">" -> "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << <a href='010vm.cc.html#L181'>read_mem_u32</a><span class="Delimiter">(</span>p<span class="Delimiter">-></span>second<span class="Delimiter">)</span> << end<span class="Delimiter">();</span> <span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> <span id="L83" class="LineNr"> 83 </span> <span id="L84" class="LineNr"> 84 </span><span class="Delimiter">:(before "End Globals")</span> -<span id="L85" class="LineNr"> 85 </span>string <span class="SpecialChar">Watch_this_effective_address</span><span class="Delimiter">;</span> +<span id="L85" class="LineNr"> 85 </span>string Watch_this_effective_address<span class="Delimiter">;</span> <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">:(after "Run One Instruction")</span> -<span id="L87" class="LineNr"> 87 </span><span class="SpecialChar">Watch_this_effective_address</span> = <span class="Constant">""</span><span class="Delimiter">;</span> -<span id="L88" class="LineNr"> 88 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">),</span> <span class="Constant">"$watch-"</span><span class="Delimiter">))</span> -<span id="L89" class="LineNr"> 89 </span> <span class="SpecialChar">Watch_this_effective_address</span> = get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> +<span id="L87" class="LineNr"> 87 </span>Watch_this_effective_address = <span class="Constant">""</span><span class="Delimiter">;</span> +<span id="L88" class="LineNr"> 88 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && <a href='001help.cc.html#L104'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">),</span> <span class="Constant">"$watch-"</span><span class="Delimiter">))</span> +<span id="L89" class="LineNr"> 89 </span> Watch_this_effective_address = get<span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">);</span> <span id="L90" class="LineNr"> 90 </span><span class="Delimiter">:(after "Found <a href='013direct_addressing.cc.html#L101'>effective_address</a>(addr)")</span> -<span id="L91" class="LineNr"> 91 </span><span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="SpecialChar">Watch_this_effective_address</span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L439'>dbg</a> << <span class="Constant">"now watching "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" for "</span> << <span class="SpecialChar">Watch_this_effective_address</span> << end<span class="Delimiter">();</span> -<span id="L93" class="LineNr"> 93 </span> <a href='001help.cc.html#L225'>put</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L73'>Watch_points</a></span><span class="Delimiter">,</span> <span class="SpecialChar">Watch_this_effective_address</span><span class="Delimiter">,</span> addr<span class="Delimiter">);</span> +<span id="L91" class="LineNr"> 91 </span><span class="Normal">if</span> <span class="Delimiter">(</span>!Watch_this_effective_address<span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <a href='003trace.cc.html#L439'>dbg</a> << <span class="Constant">"now watching "</span> << <a href='010vm.cc.html#L408'>HEXWORD</a> << addr << <span class="Constant">" for "</span> << Watch_this_effective_address << end<span class="Delimiter">();</span> +<span id="L93" class="LineNr"> 93 </span> <a href='001help.cc.html#L227'>put</a><span class="Delimiter">(</span><a href='039debug.cc.html#L73'>Watch_points</a><span class="Delimiter">,</span> Watch_this_effective_address<span class="Delimiter">,</span> addr<span class="Delimiter">);</span> <span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> <span id="L96" class="LineNr"> 96 </span><span class="Comment">//: If a label starts with '$dump-stack', dump out to the trace n bytes on</span> <span id="L97" class="LineNr"> 97 </span><span class="Comment">//: either side of ESP.</span> <span id="L98" class="LineNr"> 98 </span> <span id="L99" class="LineNr"> 99 </span><span class="Delimiter">:(after "Run One Instruction")</span> -<span id="L100" class="LineNr">100 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && <a href='001help.cc.html#L102'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">),</span> <span class="Constant">"$dump-stack"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> +<span id="L100" class="LineNr">100 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && <a href='001help.cc.html#L104'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">),</span> <span class="Constant">"$dump-stack"</span><span class="Delimiter">))</span> <span class="Delimiter">{</span> <span id="L101" class="LineNr">101 </span> dump_stack<span class="Delimiter">(</span><span class="Constant">64</span><span class="Delimiter">);</span> <span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> <span id="L103" class="LineNr">103 </span><span class="Delimiter">:(code)</span> <span id="L104" class="LineNr">104 </span><span class="Normal">void</span> dump_stack<span class="Delimiter">(</span><span class="Normal">int</span> n<span class="Delimiter">)</span> <span class="Delimiter">{</span> -<span id="L105" class="LineNr">105 </span> <span class="Normal">uint32_t</span> stack_pointer = <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> +<span id="L105" class="LineNr">105 </span> <span class="Normal">uint32_t</span> stack_pointer = Reg[ESP]<span class="Delimiter">.</span>u<span class="Delimiter">;</span> <span id="L106" class="LineNr">106 </span> <span class="Normal">uint32_t</span> start = <span class="Delimiter">((</span>stack_pointer-n<span class="Delimiter">)</span>&<span class="Constant">0xfffffff0</span><span class="Delimiter">);</span> <span id="L107" class="LineNr">107 </span> <a href='003trace.cc.html#L439'>dbg</a> << <span class="Constant">"stack:"</span> << end<span class="Delimiter">();</span> <span id="L108" class="LineNr">108 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">uint32_t</span> addr = start<span class="Delimiter">;</span> addr < start+n*<span class="Constant">2</span><span class="Delimiter">;</span> addr+=<span class="Constant">16</span><span class="Delimiter">)</span> <span class="Delimiter">{</span> @@ -183,8 +181,8 @@ if ('onhashchange' in window) { <span id="L123" class="LineNr">123 </span><span class="Comment">//: Not a general mechanism; by the time you get here you're willing to hack</span> <span id="L124" class="LineNr">124 </span><span class="Comment">//: on the emulator.</span> <span id="L125" class="LineNr">125 </span><span class="Delimiter">:(after "Run One Instruction")</span> -<span id="L126" class="LineNr">126 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L229'>contains_key</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && get<span class="Delimiter">(</span><span class="SpecialChar"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> == <span class="Constant">"$dump-stream-at-EAX"</span><span class="Delimiter">)</span> -<span id="L127" class="LineNr">127 </span> <a href='039debug.cc.html#L129'>dump_stream_at</a><span class="Delimiter">(</span><span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> +<span id="L126" class="LineNr">126 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L231'>contains_key</a><span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> && get<span class="Delimiter">(</span><a href='039debug.cc.html#L8'>Symbol_name</a><span class="Delimiter">,</span> <a href='010vm.cc.html#L26'>EIP</a><span class="Delimiter">)</span> == <span class="Constant">"$dump-stream-at-EAX"</span><span class="Delimiter">)</span> +<span id="L127" class="LineNr">127 </span> <a href='039debug.cc.html#L129'>dump_stream_at</a><span class="Delimiter">(</span>Reg[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span> <span id="L128" class="LineNr">128 </span><span class="Delimiter">:(code)</span> <span id="L129" class="LineNr">129 </span><span class="Normal">void</span> <a href='039debug.cc.html#L129'>dump_stream_at</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> stream_start<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L130" class="LineNr">130 </span> <span class="Normal">int32_t</span> stream_length = <a href='010vm.cc.html#L185'>read_mem_i32</a><span class="Delimiter">(</span>stream_start + <span class="Constant">8</span><span class="Delimiter">);</span> diff --git a/html/040tests.cc.html b/html/linux/bootstrap/040tests.cc.html index 9a40de19..a229a522 100644 --- a/html/040tests.cc.html +++ b/html/linux/bootstrap/040tests.cc.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - 040tests.cc</title> +<title>Mu - linux/bootstrap/040tests.cc</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="cpp"> @@ -14,14 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.cSpecial { color: #008000; } .LineNr { } -.SpecialChar { color: #d70000; } .Constant { color: #008787; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .Comment { color: #005faf; } .Delimiter { color: #c000c0; } .Identifier { color: #af5f00; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.cSpecial { color: #008000; } --> </style> @@ -55,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/040tests.cc'>https://github.com/akkartik/mu/blob/main/040tests.cc</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/bootstrap/040tests.cc'>https://github.com/akkartik/mu/blob/main/linux/bootstrap/040tests.cc</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="Comment">//: Automatically aggregate functions starting with 'test-' into a test suite</span> <span id="L2" class="LineNr"> 2 </span><span class="Comment">//: called 'run-tests'. Running this function will run all tests.</span> @@ -69,24 +68,24 @@ if ('onhashchange' in window) { <span id="L10" class="LineNr">10 </span><span class="Comment">//: We don't rely on any transforms running in previous layers, but this layer</span> <span id="L11" class="LineNr">11 </span><span class="Comment">//: knows about labels and will emit labels for previous layers to transform.</span> <span id="L12" class="LineNr">12 </span><span class="Delimiter">:(after "Begin Transforms")</span> -<span id="L13" class="LineNr">13 </span><span class="SpecialChar"><a href='031transforms.cc.html#L4'>Transform</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='040tests.cc.html#L34'>create_test_function</a><span class="Delimiter">);</span> +<span id="L13" class="LineNr">13 </span><a href='031transforms.cc.html#L4'>Transform</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span><a href='040tests.cc.html#L34'>create_test_function</a><span class="Delimiter">);</span> <span id="L14" class="LineNr">14 </span> <span id="L15" class="LineNr">15 </span><span class="Delimiter">:(code)</span> <span id="L16" class="LineNr">16 </span><span class="Normal">void</span> <a href='040tests.cc.html#L16'>test_run_test</a><span class="Delimiter">()</span> <span class="Delimiter">{</span> -<span id="L17" class="LineNr">17 </span> <span class="SpecialChar"><a href='010vm.cc.html#L163'>Mem</a></span><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> -<span id="L18" class="LineNr">18 </span> <span class="SpecialChar"><a href='010vm.cc.html#L25'>Reg</a></span>[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000100</span><span class="Delimiter">;</span> +<span id="L17" class="LineNr">17 </span> <a href='010vm.cc.html#L163'>Mem</a><span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>vma<span class="Delimiter">(</span><span class="Constant">0xbd000000</span><span class="Delimiter">));</span> <span class="Comment">// manually allocate memory</span> +<span id="L18" class="LineNr">18 </span> Reg[ESP]<span class="Delimiter">.</span>u = <span class="Constant">0xbd000100</span><span class="Delimiter">;</span> <span id="L19" class="LineNr">19 </span> <a href='011run.cc.html#L82'>run</a><span class="Delimiter">(</span> -<span id="L20" class="LineNr">20 </span> <span class="Constant">"== code 0x1\n"</span> <span class="Comment">// code segment</span> -<span id="L21" class="LineNr">21 </span> <span class="Constant">"main:\n"</span> -<span id="L22" class="LineNr">22 </span> <span class="Constant">" e8/call run-tests/disp32\n"</span> <span class="Comment">// 5 bytes</span> -<span id="L23" class="LineNr">23 </span> <span class="Constant">" f4/halt\n"</span> <span class="Comment">// 1 byte</span> -<span id="L24" class="LineNr">24 </span> <span class="Constant">"test-foo:\n"</span> <span class="Comment">// offset 7</span> -<span id="L25" class="LineNr">25 </span> <span class="Constant">" 01 d8\n"</span> <span class="Comment">// just some unique instruction: add EBX to EAX</span> -<span id="L26" class="LineNr">26 </span> <span class="Constant">" c3/return\n"</span> +<span id="L20" class="LineNr">20 </span> <span class="Constant">"== code 0x1</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// code segment</span> +<span id="L21" class="LineNr">21 </span> <span class="Constant">"main:</span><span class="cSpecial">\n</span><span class="Constant">"</span> +<span id="L22" class="LineNr">22 </span> <span class="Constant">" e8/call run-tests/disp32</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 5 bytes</span> +<span id="L23" class="LineNr">23 </span> <span class="Constant">" f4/halt</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// 1 byte</span> +<span id="L24" class="LineNr">24 </span> <span class="Constant">"test-foo:</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// offset 7</span> +<span id="L25" class="LineNr">25 </span> <span class="Constant">" 01 d8</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span class="Comment">// just some unique instruction: add EBX to EAX</span> +<span id="L26" class="LineNr">26 </span> <span class="Constant">" c3/return</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L27" class="LineNr">27 </span> <span class="Delimiter">);</span> <span id="L28" class="LineNr">28 </span> <span class="Comment">// check that code in test-foo ran (implicitly called by run-tests)</span> <span id="L29" class="LineNr">29 </span> <a href='003trace.cc.html#L290'>CHECK_TRACE_CONTENTS</a><span class="Delimiter">(</span> -<span id="L30" class="LineNr">30 </span> <span class="Constant">"run: 0x00000007 opcode: 01\n"</span> +<span id="L30" class="LineNr">30 </span> <span class="Constant">"run: 0x00000007 opcode: 01</span><span class="cSpecial">\n</span><span class="Constant">"</span> <span id="L31" class="LineNr">31 </span> <span class="Delimiter">);</span> <span id="L32" class="LineNr">32 </span><span class="Delimiter">}</span> <span id="L33" class="LineNr">33 </span> @@ -95,13 +94,13 @@ if ('onhashchange' in window) { <span id="L36" class="LineNr">36 </span> segment& code = *find<span class="Delimiter">(</span>p<span class="Delimiter">,</span> <span class="Constant">"code"</span><span class="Delimiter">);</span> <span id="L37" class="LineNr">37 </span> <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Constant">3</span><span class="Delimiter">,</span> <span class="Constant">"transform"</span><span class="Delimiter">)</span> << <span class="Constant">"-- create 'run-tests'"</span> << end<span class="Delimiter">();</span> <span id="L38" class="LineNr">38 </span> vector<line> new_insts<span class="Delimiter">;</span> -<span id="L39" class="LineNr">39 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L39" class="LineNr">39 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L40" class="LineNr">40 </span> line& inst = code<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L41" class="LineNr">41 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L41" class="LineNr">41 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L42" class="LineNr">42 </span> <span class="Normal">const</span> word& curr = inst<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">);</span> <span id="L43" class="LineNr">43 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>*curr<span class="Delimiter">.</span>data<span class="Delimiter">.</span>rbegin<span class="Delimiter">()</span> != <span class="Constant">':'</span><span class="Delimiter">)</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> <span class="Comment">// not a label</span> <span id="L44" class="LineNr">44 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>!starts_with<span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">,</span> <span class="Constant">"test-"</span><span class="Delimiter">))</span> <span class="Identifier">continue</span><span class="Delimiter">;</span> -<span id="L45" class="LineNr">45 </span> string fn = <a href='036labels.cc.html#L263'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> +<span id="L45" class="LineNr">45 </span> string fn = <a href='036labels.cc.html#L276'>drop_last</a><span class="Delimiter">(</span>curr<span class="Delimiter">.</span>data<span class="Delimiter">);</span> <span id="L46" class="LineNr">46 </span> new_insts<span class="Delimiter">.</span>push_back<span class="Delimiter">(</span>call<span class="Delimiter">(</span>fn<span class="Delimiter">));</span> <span id="L47" class="LineNr">47 </span> <span class="Delimiter">}</span> <span id="L48" class="LineNr">48 </span> <span class="Delimiter">}</span> @@ -113,9 +112,9 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr">54 </span> <span id="L55" class="LineNr">55 </span>string to_string<span class="Delimiter">(</span><span class="Normal">const</span> segment& s<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L56" class="LineNr">56 </span> ostringstream out<span class="Delimiter">;</span> -<span id="L57" class="LineNr">57 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L57" class="LineNr">57 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span> i < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">);</span> ++i<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L58" class="LineNr">58 </span> <span class="Normal">const</span> line& l = s<span class="Delimiter">.</span><a href='011run.cc.html#L113'>lines</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>i<span class="Delimiter">);</span> -<span id="L59" class="LineNr">59 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L166'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> +<span id="L59" class="LineNr">59 </span> <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> j = <span class="Constant">0</span><span class="Delimiter">;</span> j < <a href='001help.cc.html#L168'>SIZE</a><span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">);</span> ++j<span class="Delimiter">)</span> <span class="Delimiter">{</span> <span id="L60" class="LineNr">60 </span> <span class="Normal">if</span> <span class="Delimiter">(</span>j > <span class="Constant">0</span><span class="Delimiter">)</span> out << <span class="Constant">' '</span><span class="Delimiter">;</span> <span id="L61" class="LineNr">61 </span> out << to_string<span class="Delimiter">(</span>l<span class="Delimiter">.</span><a href='011run.cc.html#L122'>words</a><span class="Delimiter">.</span>at<span class="Delimiter">(</span>j<span class="Delimiter">));</span> <span id="L62" class="LineNr">62 </span> <span class="Delimiter">}</span> diff --git a/html/apps/braces.subx.html b/html/linux/braces.subx.html index bf2a5d60..a20ceae3 100644 --- a/html/apps/braces.subx.html +++ b/html/linux/braces.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/braces.subx</title> +<title>Mu - linux/braces.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } --> </style> @@ -55,12 +55,12 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/braces.subx'>https://github.com/akkartik/mu/blob/main/apps/braces.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/braces.subx'>https://github.com/akkartik/mu/blob/main/linux/braces.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Structured control flow using break/loop rather than jump.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx init.linux 0*.subx apps/subx-params.subx apps/braces.subx</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx init.linux [012]*.subx apps/subx-params.subx apps/braces.subx</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ mv a.elf apps/braces</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># Example 1:</span> @@ -113,25 +113,25 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span> <span class="subxS1Comment"># . prologue</span> <span id="L55" class="LineNr"> 55 </span> 89/<- %ebp 4/r32/esp <span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># initialize heap</span> -<span id="L57" class="LineNr"> 57 </span> (<a href='../104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>) +<span id="L57" class="LineNr"> 57 </span> (<a href='104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) <span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> <span id="L59" class="LineNr"> 59 </span> 81 7/subop/compare *ebp 1/imm32 <span id="L60" class="LineNr"> 60 </span> 7e/jump-if-<= $subx-braces-main:interactive/disp8 <span id="L61" class="LineNr"> 61 </span> <span class="subxComment"># if (argv[1] != "test")) goto interactive</span> -<span id="L62" class="LineNr"> 62 </span> (<a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> +<span id="L62" class="LineNr"> 62 </span> (<a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> <span id="L63" class="LineNr"> 63 </span> 3d/compare-eax-and 0/imm32/false <span id="L64" class="LineNr"> 64 </span> 74/jump-if-= $subx-braces-main:interactive/disp8 <span id="L65" class="LineNr"> 65 </span> <span class="subxComment">#</span> <span id="L66" class="LineNr"> 66 </span> (run-tests) <span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L68" class="LineNr"> 68 </span> 8b/-> *<span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx +<span id="L68" class="LineNr"> 68 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L69" class="LineNr"> 69 </span> eb/jump $subx-braces-main:end/disp8 <span id="L70" class="LineNr"> 70 </span><span class="Constant">$subx-braces-main:interactive</span>: -<span id="L71" class="LineNr"> 71 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span> <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>) +<span id="L71" class="LineNr"> 71 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>) <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L73" class="LineNr"> 73 </span> bb/copy-to-ebx 0/imm32 <span id="L74" class="LineNr"> 74 </span><span class="Constant">$subx-braces-main:end</span>: -<span id="L75" class="LineNr"> 75 </span> e8/call syscall_exit/disp32 +<span id="L75" class="LineNr"> 75 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L76" class="LineNr"> 76 </span> <span id="L77" class="LineNr"> 77 </span><span class="subxFunction">subx-braces</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> <span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># pseudocode:</span> @@ -199,13 +199,13 @@ if ('onhashchange' in window) { <span id="L140" class="LineNr">140 </span> 68/push 0/imm32/start <span id="L141" class="LineNr">141 </span> 89/<- %edi 4/r32/esp <span id="L142" class="LineNr">142 </span><span class="Constant">$subx-braces:line-loop</span>: -<span id="L143" class="LineNr">143 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> %ecx) -<span id="L144" class="LineNr">144 </span> (<a href='../122read-line.subx.html#L9'>read-line-buffered</a> %esi %ecx) +<span id="L143" class="LineNr">143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L144" class="LineNr">144 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> %esi %ecx) <span id="L145" class="LineNr">145 </span><span class="Constant">$subx-braces:check0</span>: <span id="L146" class="LineNr">146 </span> <span class="subxComment"># if (line->write == 0) break</span> <span id="L147" class="LineNr">147 </span> 81 7/subop/compare *ecx 0/imm32 <span id="L148" class="LineNr">148 </span> 0f 84/jump-if-= $subx-braces:<span class="Constant">break</span>/disp32 -<span id="L149" class="LineNr">149 </span> (<a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %ecx) +<span id="L149" class="LineNr">149 </span> (<a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %ecx) <span id="L150" class="LineNr">150 </span><span class="Constant">$subx-braces:check-for-curly-open</span>: <span id="L151" class="LineNr">151 </span> <span class="subxComment"># if (line->data[line->read] != '{') goto next check</span> <span id="L152" class="LineNr">152 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> @@ -217,11 +217,11 @@ if ('onhashchange' in window) { <span id="L158" class="LineNr">158 </span> 0f 85/jump-if-!= $subx-braces:check-for-curly-closed/disp32 <span id="L159" class="LineNr">159 </span><span class="Constant">$subx-braces:emit-curly-open</span>: <span id="L160" class="LineNr">160 </span> <span class="subxComment"># print(out, "_loop" next-label-id ":")</span> -<span id="L161" class="LineNr">161 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) -<span id="L162" class="LineNr">162 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %ebx) -<span id="L163" class="LineNr">163 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) +<span id="L161" class="LineNr">161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) +<span id="L162" class="LineNr">162 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %ebx) +<span id="L163" class="LineNr">163 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) <span id="L164" class="LineNr">164 </span> <span class="subxComment"># push(label-stack, next-label-id)</span> -<span id="L165" class="LineNr">165 </span> (<a href='../203stack.subx.html#L114'>push</a> %edx %ebx) +<span id="L165" class="LineNr">165 </span> (<a href='203stack.subx.html#L114'>push</a> %edx %ebx) <span id="L166" class="LineNr">166 </span> <span class="subxComment"># ++next-label-id</span> <span id="L167" class="LineNr">167 </span> ff 0/subop/increment %ebx <span id="L168" class="LineNr">168 </span> <span class="subxComment"># continue</span> @@ -232,18 +232,18 @@ if ('onhashchange' in window) { <span id="L173" class="LineNr">173 </span> 0f 85/jump-if-= $subx-braces:word-loop/disp32 <span id="L174" class="LineNr">174 </span><span class="Constant">$subx-braces:emit-curly-closed</span>: <span id="L175" class="LineNr">175 </span> <span class="subxComment"># eax = pop(label-stack)</span> -<span id="L176" class="LineNr">176 </span> (<a href='../203stack.subx.html#L234'>pop</a> %edx) +<span id="L176" class="LineNr">176 </span> (<a href='203stack.subx.html#L234'>pop</a> %edx) <span id="L177" class="LineNr">177 </span> <span class="subxComment"># print(out, "_break" eax ":")</span> -<span id="L178" class="LineNr">178 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) -<span id="L179" class="LineNr">179 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) -<span id="L180" class="LineNr">180 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) +<span id="L178" class="LineNr">178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) +<span id="L179" class="LineNr">179 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) +<span id="L180" class="LineNr">180 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">":"</span>) <span id="L181" class="LineNr">181 </span> <span class="subxComment"># continue</span> <span id="L182" class="LineNr">182 </span> e9/jump $subx-braces:next-line/disp32 <span id="L183" class="LineNr">183 </span><span class="Constant">$subx-braces:word-loop</span>: -<span id="L184" class="LineNr">184 </span> (<a href='../135next-word-or-string.subx.html#L8'>next-word-or-string</a> %ecx %edi) +<span id="L184" class="LineNr">184 </span> (<a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a> %ecx %edi) <span id="L185" class="LineNr">185 </span><span class="Constant">$subx-braces:check1</span>: <span id="L186" class="LineNr">186 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L187" class="LineNr">187 </span> (<a href='../123slice.subx.html#L9'>slice-empty?</a> %edi) +<span id="L187" class="LineNr">187 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edi) <span id="L188" class="LineNr">188 </span> 3d/compare-eax-and 0/imm32/false <span id="L189" class="LineNr">189 </span> 0f 85/jump-if-!= $subx-braces:next-line/disp32 <span id="L190" class="LineNr">190 </span><span class="Constant">$subx-braces:check-for-comment</span>: @@ -258,15 +258,15 @@ if ('onhashchange' in window) { <span id="L199" class="LineNr">199 </span><span class="Constant">$subx-braces:check-for-break</span>: <span id="L200" class="LineNr">200 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "break/")) goto next check</span> <span id="L201" class="LineNr">201 </span> <span class="subxS1Comment"># . eax = slice-starts-with?(word-slice, "break/")</span> -<span id="L202" class="LineNr">202 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %edi <span class="Constant">"break/"</span>) +<span id="L202" class="LineNr">202 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %edi <span class="Constant">"break/"</span>) <span id="L203" class="LineNr">203 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L204" class="LineNr">204 </span> 3d/compare-eax-and 0/imm32/false <span id="L205" class="LineNr">205 </span> 74/jump-if-= $subx-braces:check-for-loop/disp8 <span id="L206" class="LineNr">206 </span><span class="Constant">$subx-braces:emit-break</span>: -<span id="L207" class="LineNr">207 </span> (<a href='../203stack.subx.html#L338'>top</a> %edx) +<span id="L207" class="LineNr">207 </span> (<a href='203stack.subx.html#L338'>top</a> %edx) <span id="L208" class="LineNr">208 </span> <span class="subxComment"># print(out, "_break" eax)</span> -<span id="L209" class="LineNr">209 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) -<span id="L210" class="LineNr">210 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) +<span id="L209" class="LineNr">209 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_break"</span>) +<span id="L210" class="LineNr">210 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L211" class="LineNr">211 </span> <span class="subxComment"># word-slice->start += len("break")</span> <span id="L212" class="LineNr">212 </span> 81 0/subop/add *edi 5/imm32/strlen <span id="L213" class="LineNr">213 </span> <span class="subxComment"># emit rest of word as usual</span> @@ -274,31 +274,31 @@ if ('onhashchange' in window) { <span id="L215" class="LineNr">215 </span><span class="Constant">$subx-braces:check-for-loop</span>: <span id="L216" class="LineNr">216 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "loop/")) emit word</span> <span id="L217" class="LineNr">217 </span> <span class="subxS1Comment"># . eax = slice-starts-with?(word-slice, "loop/")</span> -<span id="L218" class="LineNr">218 </span> (<a href='../123slice.subx.html#L487'>slice-starts-with?</a> %edi <span class="Constant">"loop/"</span>) +<span id="L218" class="LineNr">218 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %edi <span class="Constant">"loop/"</span>) <span id="L219" class="LineNr">219 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> <span id="L220" class="LineNr">220 </span> 3d/compare-eax-and 0/imm32/false <span id="L221" class="LineNr">221 </span> 74/jump-if-= $subx-braces:emit-word-slice/disp8 <span id="L222" class="LineNr">222 </span><span class="Constant">$subx-braces:emit-loop</span>: -<span id="L223" class="LineNr">223 </span> (<a href='../203stack.subx.html#L338'>top</a> %edx) +<span id="L223" class="LineNr">223 </span> (<a href='203stack.subx.html#L338'>top</a> %edx) <span id="L224" class="LineNr">224 </span> <span class="subxComment"># print(out, "_loop" eax)</span> -<span id="L225" class="LineNr">225 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) -<span id="L226" class="LineNr">226 </span> (<a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) +<span id="L225" class="LineNr">225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"_loop"</span>) +<span id="L226" class="LineNr">226 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) %eax) <span id="L227" class="LineNr">227 </span> <span class="subxComment"># word-slice->start += len("loop")</span> <span id="L228" class="LineNr">228 </span> 81 0/subop/add *edi 4/imm32/strlen <span id="L229" class="LineNr">229 </span> <span class="subxComment"># fall through</span> <span id="L230" class="LineNr">230 </span><span class="Constant">$subx-braces:emit-word-slice</span>: <span id="L231" class="LineNr">231 </span> <span class="subxComment"># print(out, word-slice " ")</span> -<span id="L232" class="LineNr">232 </span> (<a href='../123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edi) -<span id="L233" class="LineNr">233 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>) +<span id="L232" class="LineNr">232 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edi) +<span id="L233" class="LineNr">233 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) <span id="L234" class="LineNr">234 </span> <span class="subxComment"># loop to next word</span> <span id="L235" class="LineNr">235 </span> e9/jump $subx-braces:word-loop/disp32 <span id="L236" class="LineNr">236 </span><span class="Constant">$subx-braces:next-line</span>: <span id="L237" class="LineNr">237 </span> <span class="subxComment"># print(out, "\n")</span> -<span id="L238" class="LineNr">238 </span> (<a href='../116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>) +<span id="L238" class="LineNr">238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) <span id="L239" class="LineNr">239 </span> <span class="subxComment"># loop to next line</span> <span id="L240" class="LineNr">240 </span> e9/jump $subx-braces:line-loop/disp32 <span id="L241" class="LineNr">241 </span><span class="Constant">$subx-braces:break</span>: -<span id="L242" class="LineNr">242 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L242" class="LineNr">242 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) <span id="L243" class="LineNr">243 </span><span class="Constant">$subx-braces:end</span>: <span id="L244" class="LineNr">244 </span> <span class="subxS1Comment"># . reclaim locals</span> <span id="L245" class="LineNr">245 </span> 81 0/subop/add %esp 0x29c/imm32 @@ -319,17 +319,17 @@ if ('onhashchange' in window) { <span id="L260" class="LineNr">260 </span> 55/push-ebp <span id="L261" class="LineNr">261 </span> 89/<- %ebp 4/r32/esp <span id="L262" class="LineNr">262 </span> <span class="subxComment"># setup</span> -<span id="L263" class="LineNr">263 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L264" class="LineNr">264 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L265" class="LineNr">265 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L266" class="LineNr">266 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L263" class="LineNr">263 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L264" class="LineNr">264 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L265" class="LineNr">265 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L266" class="LineNr">266 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <span id="L267" class="LineNr">267 </span> <span class="subxComment"># test</span> -<span id="L268" class="LineNr">268 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"== abcd 0x1"</span>) -<span id="L269" class="LineNr">269 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L268" class="LineNr">268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"== abcd 0x1"</span>) +<span id="L269" class="LineNr">269 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L270" class="LineNr">270 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L271" class="LineNr">271 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L271" class="LineNr">271 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L272" class="Folded">272 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L277" class="LineNr">277 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"== abcd 0x1 \n"</span> <span class="Constant">"F - test-subx-braces-passes-most-words-through"</span>) +<span id="L277" class="LineNr">277 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"== abcd 0x1 \n"</span> <span class="Constant">"F - test-subx-braces-passes-most-words-through"</span>) <span id="L278" class="LineNr">278 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L279" class="LineNr">279 </span> 89/<- %esp 5/r32/ebp <span id="L280" class="LineNr">280 </span> 5d/pop-to-ebp @@ -352,17 +352,17 @@ if ('onhashchange' in window) { <span id="L297" class="LineNr">297 </span> 55/push-ebp <span id="L298" class="LineNr">298 </span> 89/<- %ebp 4/r32/esp <span id="L299" class="LineNr">299 </span> <span class="subxComment"># setup</span> -<span id="L300" class="LineNr">300 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L301" class="LineNr">301 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L302" class="LineNr">302 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L303" class="LineNr">303 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L300" class="LineNr">300 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L301" class="LineNr">301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L302" class="LineNr">302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L303" class="LineNr">303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <span id="L304" class="LineNr">304 </span> <span class="subxComment"># test</span> -<span id="L305" class="LineNr">305 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"{\nab break/imm32\ncd loop/imm32\n}"</span>) -<span id="L306" class="LineNr">306 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L305" class="LineNr">305 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"{\nab break/imm32\ncd loop/imm32\n}"</span>) +<span id="L306" class="LineNr">306 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L307" class="LineNr">307 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L308" class="LineNr">308 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L308" class="LineNr">308 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L309" class="Folded">309 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L314" class="LineNr">314 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\nab _break0x00000001/imm32 \ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-1"</span>) +<span id="L314" class="LineNr">314 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\nab _break0x00000001/imm32 \ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-1"</span>) <span id="L315" class="LineNr">315 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L316" class="LineNr">316 </span> 89/<- %esp 5/r32/ebp <span id="L317" class="LineNr">317 </span> 5d/pop-to-ebp @@ -389,17 +389,17 @@ if ('onhashchange' in window) { <span id="L338" class="LineNr">338 </span> 55/push-ebp <span id="L339" class="LineNr">339 </span> 89/<- %ebp 4/r32/esp <span id="L340" class="LineNr">340 </span> <span class="subxComment"># setup</span> -<span id="L341" class="LineNr">341 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>) -<span id="L342" class="LineNr">342 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>) -<span id="L343" class="LineNr">343 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) -<span id="L344" class="LineNr">344 </span> (<a href='../106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L341" class="LineNr">341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L342" class="LineNr">342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L343" class="LineNr">343 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L344" class="LineNr">344 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) <span id="L345" class="LineNr">345 </span> <span class="subxComment"># test</span> -<span id="L346" class="LineNr">346 </span> (<a href='../108write.subx.html#L24'>write</a> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"{\n{\nab break/imm32\n}\ncd loop/imm32\n}"</span>) -<span id="L347" class="LineNr">347 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L346" class="LineNr">346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"{\n{\nab break/imm32\n}\ncd loop/imm32\n}"</span>) +<span id="L347" class="LineNr">347 </span> (<a href='braces.subx.html#L77'>subx-braces</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L348" class="LineNr">348 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L349" class="LineNr">349 </span> (<a href='../115write-byte.subx.html#L81'>flush</a> <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>) +<span id="L349" class="LineNr">349 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) <span id="L350" class="Folded">350 </span><span class="Folded">+-- 5 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L355" class="LineNr">355 </span> (<a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='../115write-byte.subx.html#L285'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\n_loop0x00000002:\nab _break0x00000002/imm32 \n_break0x00000002:\ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-2"</span>) +<span id="L355" class="LineNr">355 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"_loop0x00000001:\n_loop0x00000002:\nab _break0x00000002/imm32 \n_break0x00000002:\ncd _loop0x00000001/imm32 \n_break0x00000001:\n"</span> <span class="Constant">"F - test-subx-braces-2"</span>) <span id="L356" class="LineNr">356 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L357" class="LineNr">357 </span> 89/<- %esp 5/r32/ebp <span id="L358" class="LineNr">358 </span> 5d/pop-to-ebp diff --git a/html/apps/calls.subx.html b/html/linux/calls.subx.html index 23c86179..0962ae46 100644 --- a/html/apps/calls.subx.html +++ b/html/linux/calls.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/calls.subx</title> +<title>Mu - linux/calls.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -57,12 +57,12 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/calls.subx'>https://github.com/akkartik/mu/blob/main/apps/calls.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/calls.subx'>https://github.com/akkartik/mu/blob/main/linux/calls.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Function calls in a single line.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run (on Linux):</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx init.linux 0*.subx apps/subx-params.subx apps/calls.subx</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./translate_subx init.linux [012]*.subx apps/subx-params.subx apps/calls.subx</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ mv a.elf apps/calls</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># Example 1:</span> @@ -92,10 +92,10 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr"> 31 </span> <span class="subxComment"># initialize heap</span> <span id="L32" class="LineNr"> 32 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L33" class="LineNr"> 33 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L34" class="LineNr"> 34 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L35" class="LineNr"> 35 </span> ff 6/subop/push *<span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span> +<span id="L34" class="LineNr"> 34 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L35" class="LineNr"> 35 </span> ff 6/subop/push *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span id="L36" class="LineNr"> 36 </span> <span class="subxS2Comment"># . . call</span> -<span id="L37" class="LineNr"> 37 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L37" class="LineNr"> 37 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L38" class="LineNr"> 38 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L39" class="LineNr"> 39 </span> 81 0/subop/add %esp 8/imm32 <span id="L40" class="LineNr"> 40 </span> @@ -109,7 +109,7 @@ if ('onhashchange' in window) { <span id="L48" class="LineNr"> 48 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L49" class="LineNr"> 49 </span> ff 6/subop/push *(ebp+8) <span id="L50" class="LineNr"> 50 </span> <span class="subxS2Comment"># . . call</span> -<span id="L51" class="LineNr"> 51 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L51" class="LineNr"> 51 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L53" class="LineNr"> 53 </span> 81 0/subop/add %esp 8/imm32 <span id="L54" class="LineNr"> 54 </span> <span class="subxS1Comment"># . if (eax == false) goto run-main</span> @@ -118,14 +118,14 @@ if ('onhashchange' in window) { <span id="L57" class="LineNr"> 57 </span> <span class="subxComment"># run-tests()</span> <span id="L58" class="LineNr"> 58 </span> e8/call run-tests/disp32 <span id="L59" class="LineNr"> 59 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L60" class="LineNr"> 60 </span> 8b/-> *<span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx +<span id="L60" class="LineNr"> 60 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L61" class="LineNr"> 61 </span> eb/jump $subx-calls-main:end/disp8 <span id="L62" class="LineNr"> 62 </span><span class="Constant">$subx-calls-main:interactive</span>: <span id="L63" class="LineNr"> 63 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> <span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># subx-calls(Stdin, Stdout)</span> <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L66" class="LineNr"> 66 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L67" class="LineNr"> 67 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L66" class="LineNr"> 66 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L67" class="LineNr"> 67 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L68" class="LineNr"> 68 </span> <span class="subxS2Comment"># . . call</span> <span id="L69" class="LineNr"> 69 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 <span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . discard args</span> @@ -133,7 +133,7 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L73" class="LineNr"> 73 </span> bb/copy-to-ebx 0/imm32 <span id="L74" class="LineNr"> 74 </span><span class="Constant">$subx-calls-main:end</span>: -<span id="L75" class="LineNr"> 75 </span> e8/call syscall_exit/disp32 +<span id="L75" class="LineNr"> 75 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L76" class="LineNr"> 76 </span> <span id="L77" class="LineNr"> 77 </span><span class="subxFunction">subx-calls</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> <span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># pseudocode:</span> @@ -182,7 +182,7 @@ if ('onhashchange' in window) { <span id="L121" class="LineNr"> 121 </span> <span class="subxS2Comment"># . . push args</span> <span id="L122" class="LineNr"> 122 </span> 56/push-esi <span id="L123" class="LineNr"> 123 </span> <span class="subxS2Comment"># . . call</span> -<span id="L124" class="LineNr"> 124 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L124" class="LineNr"> 124 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L125" class="LineNr"> 125 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L126" class="LineNr"> 126 </span> 81 0/subop/add %esp 4/imm32 <span id="L127" class="LineNr"> 127 </span> <span class="subxComment"># read-line-buffered(in, line)</span> @@ -190,7 +190,7 @@ if ('onhashchange' in window) { <span id="L129" class="LineNr"> 129 </span> 56/push-esi <span id="L130" class="LineNr"> 130 </span> ff 6/subop/push *(ebp+8) <span id="L131" class="LineNr"> 131 </span> <span class="subxS2Comment"># . . call</span> -<span id="L132" class="LineNr"> 132 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L132" class="LineNr"> 132 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 <span id="L133" class="LineNr"> 133 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L134" class="LineNr"> 134 </span> 81 0/subop/add %esp 8/imm32 <span id="L135" class="LineNr"> 135 </span><span class="Constant">$subx-calls:check0</span>: @@ -202,7 +202,7 @@ if ('onhashchange' in window) { <span id="L141" class="LineNr"> 141 </span> 68/push 0x20/imm32/space <span id="L142" class="LineNr"> 142 </span> 56/push-esi <span id="L143" class="LineNr"> 143 </span> <span class="subxS2Comment"># . . call</span> -<span id="L144" class="LineNr"> 144 </span> e8/call <a href='../124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 +<span id="L144" class="LineNr"> 144 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 <span id="L145" class="LineNr"> 145 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L146" class="LineNr"> 146 </span> 81 0/subop/add %esp 8/imm32 <span id="L147" class="LineNr"> 147 </span> <span class="subxComment"># if (line->data[line->read] == '(') goto convert-call</span> @@ -220,7 +220,7 @@ if ('onhashchange' in window) { <span id="L159" class="LineNr"> 159 </span> 56/push-esi <span id="L160" class="LineNr"> 160 </span> ff 6/subop/push *(ebp+0xc) <span id="L161" class="LineNr"> 161 </span> <span class="subxS2Comment"># . . call</span> -<span id="L162" class="LineNr"> 162 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L162" class="LineNr"> 162 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L163" class="LineNr"> 163 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L164" class="LineNr"> 164 </span> 81 0/subop/add %esp 8/imm32 <span id="L165" class="LineNr"> 165 </span> <span class="subxComment"># continue</span> @@ -232,7 +232,7 @@ if ('onhashchange' in window) { <span id="L171" class="LineNr"> 171 </span> 68/push <span class="Constant">"# . "</span>/imm32 <span id="L172" class="LineNr"> 172 </span> ff 6/subop/push *(ebp+0xc) <span id="L173" class="LineNr"> 173 </span> <span class="subxS2Comment"># . . call</span> -<span id="L174" class="LineNr"> 174 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L174" class="LineNr"> 174 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L175" class="LineNr"> 175 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L176" class="LineNr"> 176 </span> 81 0/subop/add %esp 8/imm32 <span id="L177" class="LineNr"> 177 </span> <span class="subxComment"># write-stream-data(out, line)</span> @@ -240,7 +240,7 @@ if ('onhashchange' in window) { <span id="L179" class="LineNr"> 179 </span> 56/push-esi <span id="L180" class="LineNr"> 180 </span> ff 6/subop/push *(ebp+0xc) <span id="L181" class="LineNr"> 181 </span> <span class="subxS2Comment"># . . call</span> -<span id="L182" class="LineNr"> 182 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L182" class="LineNr"> 182 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L183" class="LineNr"> 183 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L184" class="LineNr"> 184 </span> 81 0/subop/add %esp 8/imm32 <span id="L185" class="LineNr"> 185 </span> <span class="subxH1Comment"># - emit code</span> @@ -250,7 +250,7 @@ if ('onhashchange' in window) { <span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . push args</span> <span id="L190" class="LineNr"> 190 </span> 52/push-edx <span id="L191" class="LineNr"> 191 </span> <span class="subxS2Comment"># . . call</span> -<span id="L192" class="LineNr"> 192 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L192" class="LineNr"> 192 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L193" class="LineNr"> 193 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L194" class="LineNr"> 194 </span> 81 0/subop/add %esp 4/imm32 <span id="L195" class="LineNr"> 195 </span> <span class="subxComment"># words = parse-line(line)</span> @@ -276,7 +276,7 @@ if ('onhashchange' in window) { <span id="L215" class="LineNr"> 215 </span> <span class="subxS2Comment"># . . push args</span> <span id="L216" class="LineNr"> 216 </span> ff 6/subop/push *(ebp+0xc) <span id="L217" class="LineNr"> 217 </span> <span class="subxS2Comment"># . . call</span> -<span id="L218" class="LineNr"> 218 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L218" class="LineNr"> 218 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L219" class="LineNr"> 219 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L220" class="LineNr"> 220 </span> 81 0/subop/add %esp 4/imm32 <span id="L221" class="LineNr"> 221 </span><span class="Constant">$subx-calls:end</span>: @@ -326,7 +326,7 @@ if ('onhashchange' in window) { <span id="L265" class="LineNr"> 265 </span> <span class="subxS2Comment"># . . push args</span> <span id="L266" class="LineNr"> 266 </span> 51/push-ecx <span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . call</span> -<span id="L268" class="LineNr"> 268 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L268" class="LineNr"> 268 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 <span id="L269" class="LineNr"> 269 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L270" class="LineNr"> 270 </span> 81 0/subop/add %esp 4/imm32 <span id="L271" class="LineNr"> 271 </span> <span class="subxS1Comment"># . if (eax != false) break</span> @@ -339,7 +339,7 @@ if ('onhashchange' in window) { <span id="L317" class="LineNr"> 317 </span> ff 6/subop/push *ecx <span id="L318" class="LineNr"> 318 </span> ff 6/subop/push *(ebp+0xc) <span id="L319" class="LineNr"> 319 </span> <span class="subxS2Comment"># . . call</span> -<span id="L320" class="LineNr"> 320 </span> e8/call <a href='../202write-int.subx.html#L8'>write-int</a>/disp32 +<span id="L320" class="LineNr"> 320 </span> e8/call <a href='202write-int.subx.html#L8'>write-int</a>/disp32 <span id="L321" class="LineNr"> 321 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L322" class="LineNr"> 322 </span> 81 0/subop/add %esp 8/imm32 <span id="L323" class="LineNr"> 323 </span> <span class="subxComment"># write-int(words, word-slice->end)</span> @@ -347,7 +347,7 @@ if ('onhashchange' in window) { <span id="L325" class="LineNr"> 325 </span> ff 6/subop/push *(ecx+4) <span id="L326" class="LineNr"> 326 </span> ff 6/subop/push *(ebp+0xc) <span id="L327" class="LineNr"> 327 </span> <span class="subxS2Comment"># . . call</span> -<span id="L328" class="LineNr"> 328 </span> e8/call <a href='../202write-int.subx.html#L8'>write-int</a>/disp32 +<span id="L328" class="LineNr"> 328 </span> e8/call <a href='202write-int.subx.html#L8'>write-int</a>/disp32 <span id="L329" class="LineNr"> 329 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L330" class="LineNr"> 330 </span> 81 0/subop/add %esp 8/imm32 <span id="L331" class="LineNr"> 331 </span> <span class="subxComment"># loop</span> @@ -423,7 +423,7 @@ if ('onhashchange' in window) { <span id="L401" class="LineNr"> 401 </span> 68/push <span class="Constant">"%x"</span>/imm32 <span id="L402" class="LineNr"> 402 </span> 51/push-ecx <span id="L403" class="LineNr"> 403 </span> <span class="subxS2Comment"># . . call</span> -<span id="L404" class="LineNr"> 404 </span> e8/call <a href='../123slice.subx.html#L487'>slice-starts-with?</a>/disp32 +<span id="L404" class="LineNr"> 404 </span> e8/call <a href='123slice.subx.html#L487'>slice-starts-with?</a>/disp32 <span id="L405" class="LineNr"> 405 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L406" class="LineNr"> 406 </span> 81 0/subop/add %esp 8/imm32 <span id="L407" class="LineNr"> 407 </span> <span class="subxS1Comment"># . if (eax != 0) goto next check</span> @@ -435,7 +435,7 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr"> 413 </span> 68/push <span class="Constant">"81 5/subop/subtract %esp 4/imm32\n"</span>/imm32 <span id="L414" class="LineNr"> 414 </span> ff 6/subop/push *(ebp+8) <span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . call</span> -<span id="L416" class="LineNr"> 416 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L416" class="LineNr"> 416 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L418" class="LineNr"> 418 </span> 81 0/subop/add %esp 8/imm32 <span id="L419" class="LineNr"> 419 </span> <span class="subxS1Comment"># . write-buffered(out, "f3 0f 11/<- *esp ")</span> @@ -443,7 +443,7 @@ if ('onhashchange' in window) { <span id="L421" class="LineNr"> 421 </span> 68/push <span class="Constant">"f3 0f 11/<- *esp "</span>/imm32 <span id="L422" class="LineNr"> 422 </span> ff 6/subop/push *(ebp+8) <span id="L423" class="LineNr"> 423 </span> <span class="subxS2Comment"># . . call</span> -<span id="L424" class="LineNr"> 424 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L424" class="LineNr"> 424 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L425" class="LineNr"> 425 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L426" class="LineNr"> 426 </span> 81 0/subop/add %esp 8/imm32 <span id="L427" class="LineNr"> 427 </span> <span class="subxS1Comment"># . write-byte-buffered(out, *(curr->start+4))</span> @@ -455,14 +455,14 @@ if ('onhashchange' in window) { <span id="L433" class="LineNr"> 433 </span> 50/push-eax <span id="L434" class="LineNr"> 434 </span> ff 6/subop/push *(ebp+8) <span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . call</span> -<span id="L436" class="LineNr"> 436 </span> e8/call <a href='../115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L436" class="LineNr"> 436 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 <span id="L437" class="LineNr"> 437 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L438" class="LineNr"> 438 </span> 81 0/subop/add %esp 8/imm32 <span id="L439" class="LineNr"> 439 </span> <span class="subxS1Comment"># . write-buffered(out, "/x32\n")</span> <span id="L440" class="LineNr"> 440 </span> 68/push <span class="Constant">"/x32\n"</span>/imm32 <span id="L441" class="LineNr"> 441 </span> ff 6/subop/push *(ebp+8) <span id="L442" class="LineNr"> 442 </span> <span class="subxS2Comment"># . . call</span> -<span id="L443" class="LineNr"> 443 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L443" class="LineNr"> 443 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L444" class="LineNr"> 444 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L445" class="LineNr"> 445 </span> 81 0/subop/add %esp 8/imm32 <span id="L446" class="LineNr"> 446 </span> <span class="subxS1Comment"># . continue</span> @@ -486,7 +486,7 @@ if ('onhashchange' in window) { <span id="L464" class="LineNr"> 464 </span> 68/push <span class="Constant">"68/push "</span>/imm32 <span id="L465" class="LineNr"> 465 </span> ff 6/subop/push *(ebp+8) <span id="L466" class="LineNr"> 466 </span> <span class="subxS2Comment"># . . call</span> -<span id="L467" class="LineNr"> 467 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L467" class="LineNr"> 467 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L468" class="LineNr"> 468 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L469" class="LineNr"> 469 </span> 81 0/subop/add %esp 8/imm32 <span id="L470" class="LineNr"> 470 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> @@ -494,14 +494,14 @@ if ('onhashchange' in window) { <span id="L472" class="LineNr"> 472 </span> 51/push-ecx <span id="L473" class="LineNr"> 473 </span> ff 6/subop/push *(ebp+8) <span id="L474" class="LineNr"> 474 </span> <span class="subxS2Comment"># . . call</span> -<span id="L475" class="LineNr"> 475 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L475" class="LineNr"> 475 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 <span id="L476" class="LineNr"> 476 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L477" class="LineNr"> 477 </span> 81 0/subop/add %esp 8/imm32 <span id="L478" class="LineNr"> 478 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> <span id="L479" class="LineNr"> 479 </span> 68/push <span class="Constant">"/imm32\n"</span>/imm32 <span id="L480" class="LineNr"> 480 </span> ff 6/subop/push *(ebp+8) <span id="L481" class="LineNr"> 481 </span> <span class="subxS2Comment"># . . call</span> -<span id="L482" class="LineNr"> 482 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L482" class="LineNr"> 482 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L483" class="LineNr"> 483 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L484" class="LineNr"> 484 </span> 81 0/subop/add %esp 8/imm32 <span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># continue</span> @@ -512,7 +512,7 @@ if ('onhashchange' in window) { <span id="L490" class="LineNr"> 490 </span> 68/push <span class="Constant">"ff 6/subop/push "</span>/imm32 <span id="L491" class="LineNr"> 491 </span> ff 6/subop/push *(ebp+8) <span id="L492" class="LineNr"> 492 </span> <span class="subxS2Comment"># . . call</span> -<span id="L493" class="LineNr"> 493 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L493" class="LineNr"> 493 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L494" class="LineNr"> 494 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L495" class="LineNr"> 495 </span> 81 0/subop/add %esp 8/imm32 <span id="L496" class="LineNr"> 496 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> @@ -520,14 +520,14 @@ if ('onhashchange' in window) { <span id="L498" class="LineNr"> 498 </span> 51/push-ecx <span id="L499" class="LineNr"> 499 </span> ff 6/subop/push *(ebp+8) <span id="L500" class="LineNr"> 500 </span> <span class="subxS2Comment"># . . call</span> -<span id="L501" class="LineNr"> 501 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L501" class="LineNr"> 501 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 <span id="L502" class="LineNr"> 502 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L503" class="LineNr"> 503 </span> 81 0/subop/add %esp 8/imm32 <span id="L504" class="LineNr"> 504 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L505" class="LineNr"> 505 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L505" class="LineNr"> 505 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 <span id="L506" class="LineNr"> 506 </span> ff 6/subop/push *(ebp+8) <span id="L507" class="LineNr"> 507 </span> <span class="subxS2Comment"># . . call</span> -<span id="L508" class="LineNr"> 508 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L508" class="LineNr"> 508 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L509" class="LineNr"> 509 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L510" class="LineNr"> 510 </span> 81 0/subop/add %esp 8/imm32 <span id="L511" class="LineNr"> 511 </span><span class="Constant">$emit-call:next-push</span>: @@ -540,7 +540,7 @@ if ('onhashchange' in window) { <span id="L518" class="LineNr"> 518 </span> 68/push <span class="Constant">"e8/call "</span>/imm32 <span id="L519" class="LineNr"> 519 </span> ff 6/subop/push *(ebp+8) <span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L521" class="LineNr"> 521 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L521" class="LineNr"> 521 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L523" class="LineNr"> 523 </span> 81 0/subop/add %esp 8/imm32 <span id="L524" class="LineNr"> 524 </span> <span class="subxComment"># write-slice-buffered(out, curr)</span> @@ -548,14 +548,14 @@ if ('onhashchange' in window) { <span id="L526" class="LineNr"> 526 </span> 51/push-ecx <span id="L527" class="LineNr"> 527 </span> ff 6/subop/push *(ebp+8) <span id="L528" class="LineNr"> 528 </span> <span class="subxS2Comment"># . . call</span> -<span id="L529" class="LineNr"> 529 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L529" class="LineNr"> 529 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 <span id="L530" class="LineNr"> 530 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L531" class="LineNr"> 531 </span> 81 0/subop/add %esp 8/imm32 <span id="L532" class="LineNr"> 532 </span> <span class="subxComment"># write-buffered(out, "/disp32\n")</span> <span id="L533" class="LineNr"> 533 </span> 68/push <span class="Constant">"/disp32\n"</span>/imm32 <span id="L534" class="LineNr"> 534 </span> ff 6/subop/push *(ebp+8) <span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . call</span> -<span id="L536" class="LineNr"> 536 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L536" class="LineNr"> 536 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L538" class="LineNr"> 538 </span> 81 0/subop/add %esp 8/imm32 <span id="L539" class="LineNr"> 539 </span><span class="Constant">$emit-call:pop-instruction</span>: @@ -563,7 +563,7 @@ if ('onhashchange' in window) { <span id="L541" class="LineNr"> 541 </span> 68/push <span class="Constant">"81 0/subop/add %esp "</span>/imm32 <span id="L542" class="LineNr"> 542 </span> ff 6/subop/push *(ebp+8) <span id="L543" class="LineNr"> 543 </span> <span class="subxS2Comment"># . . call</span> -<span id="L544" class="LineNr"> 544 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L544" class="LineNr"> 544 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L545" class="LineNr"> 545 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L546" class="LineNr"> 546 </span> 81 0/subop/add %esp 8/imm32 <span id="L547" class="LineNr"> 547 </span> <span class="subxComment"># write-int32-hex-buffered(out, words->write >> 1 - 4)</span> @@ -574,14 +574,14 @@ if ('onhashchange' in window) { <span id="L552" class="LineNr"> 552 </span> 50/push-eax <span id="L553" class="LineNr"> 553 </span> ff 6/subop/push *(ebp+8) <span id="L554" class="LineNr"> 554 </span> <span class="subxS2Comment"># . . call</span> -<span id="L555" class="LineNr"> 555 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L555" class="LineNr"> 555 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 <span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L557" class="LineNr"> 557 </span> 81 0/subop/add %esp 8/imm32 <span id="L558" class="LineNr"> 558 </span> <span class="subxComment"># write-buffered(out, "/imm32\n")</span> <span id="L559" class="LineNr"> 559 </span> 68/push <span class="Constant">"/imm32\n"</span>/imm32 <span id="L560" class="LineNr"> 560 </span> ff 6/subop/push *(ebp+8) <span id="L561" class="LineNr"> 561 </span> <span class="subxS2Comment"># . . call</span> -<span id="L562" class="LineNr"> 562 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L562" class="LineNr"> 562 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L563" class="LineNr"> 563 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L564" class="LineNr"> 564 </span> 81 0/subop/add %esp 8/imm32 <span id="L565" class="LineNr"> 565 </span><span class="Constant">$emit-call:end</span>: @@ -600,21 +600,21 @@ if ('onhashchange' in window) { <span id="L578" class="LineNr"> 578 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: calls.subx: '()' is not a valid call")</span> <span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . push args</span> <span id="L580" class="LineNr"> 580 </span> 68/push <span class="Constant">"error: calls.subx: '()' is not a valid call"</span>/imm32 -<span id="L581" class="LineNr"> 581 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L581" class="LineNr"> 581 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L582" class="LineNr"> 582 </span> <span class="subxS2Comment"># . . call</span> -<span id="L583" class="LineNr"> 583 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L583" class="LineNr"> 583 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L584" class="LineNr"> 584 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L585" class="LineNr"> 585 </span> 81 0/subop/add %esp 8/imm32 <span id="L586" class="LineNr"> 586 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L587" class="LineNr"> 587 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L588" class="LineNr"> 588 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L588" class="LineNr"> 588 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L589" class="LineNr"> 589 </span> <span class="subxS2Comment"># . . call</span> -<span id="L590" class="LineNr"> 590 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L590" class="LineNr"> 590 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L591" class="LineNr"> 591 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L592" class="LineNr"> 592 </span> 81 0/subop/add %esp 4/imm32 <span id="L593" class="LineNr"> 593 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L594" class="LineNr"> 594 </span> bb/copy-to-ebx 1/imm32 -<span id="L595" class="LineNr"> 595 </span> e8/call syscall_exit/disp32 +<span id="L595" class="LineNr"> 595 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L596" class="LineNr"> 596 </span> <span class="subxComment"># never gets here</span> <span id="L597" class="LineNr"> 597 </span> <span id="L598" class="LineNr"> 598 </span><span class="subxTest">test-subx-calls-passes-most-lines-through</span>: @@ -624,44 +624,44 @@ if ('onhashchange' in window) { <span id="L602" class="LineNr"> 602 </span> <span class="subxComment"># setup</span> <span id="L603" class="LineNr"> 603 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L605" class="LineNr"> 605 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L605" class="LineNr"> 605 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . call</span> -<span id="L607" class="LineNr"> 607 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L607" class="LineNr"> 607 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L608" class="LineNr"> 608 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L609" class="LineNr"> 609 </span> 81 0/subop/add %esp 4/imm32 <span id="L610" class="LineNr"> 610 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L611" class="LineNr"> 611 </span> <span class="subxS2Comment"># . . push args</span> <span id="L612" class="LineNr"> 612 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L613" class="LineNr"> 613 </span> <span class="subxS2Comment"># . . call</span> -<span id="L614" class="LineNr"> 614 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L614" class="LineNr"> 614 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L615" class="LineNr"> 615 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L616" class="LineNr"> 616 </span> 81 0/subop/add %esp 4/imm32 <span id="L617" class="LineNr"> 617 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L619" class="LineNr"> 619 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L619" class="LineNr"> 619 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> -<span id="L621" class="LineNr"> 621 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L621" class="LineNr"> 621 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L623" class="LineNr"> 623 </span> 81 0/subop/add %esp 4/imm32 <span id="L624" class="LineNr"> 624 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L625" class="LineNr"> 625 </span> <span class="subxS2Comment"># . . push args</span> <span id="L626" class="LineNr"> 626 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L627" class="LineNr"> 627 </span> <span class="subxS2Comment"># . . call</span> -<span id="L628" class="LineNr"> 628 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L628" class="LineNr"> 628 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L630" class="LineNr"> 630 </span> 81 0/subop/add %esp 4/imm32 <span id="L631" class="LineNr"> 631 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1\n")</span> <span id="L632" class="LineNr"> 632 </span> <span class="subxS2Comment"># . . push args</span> <span id="L633" class="LineNr"> 633 </span> 68/push <span class="Constant">"== abcd 0x1\n"</span>/imm32 -<span id="L634" class="LineNr"> 634 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L634" class="LineNr"> 634 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L635" class="LineNr"> 635 </span> <span class="subxS2Comment"># . . call</span> -<span id="L636" class="LineNr"> 636 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L636" class="LineNr"> 636 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L638" class="LineNr"> 638 </span> 81 0/subop/add %esp 8/imm32 <span id="L639" class="LineNr"> 639 </span> <span class="subxComment"># subx-calls(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L641" class="LineNr"> 641 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L642" class="LineNr"> 642 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L641" class="LineNr"> 641 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L642" class="LineNr"> 642 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L643" class="LineNr"> 643 </span> <span class="subxS2Comment"># . . call</span> <span id="L644" class="LineNr"> 644 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 <span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . discard args</span> @@ -669,18 +669,18 @@ if ('onhashchange' in window) { <span id="L647" class="LineNr"> 647 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L648" class="LineNr"> 648 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L650" class="LineNr"> 650 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L650" class="LineNr"> 650 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . call</span> -<span id="L652" class="LineNr"> 652 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L652" class="LineNr"> 652 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L654" class="LineNr"> 654 </span> 81 0/subop/add %esp 4/imm32 <span id="L655" class="LineNr"> 655 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1\n", msg)</span> <span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . push args</span> <span id="L657" class="LineNr"> 657 </span> 68/push <span class="Constant">"F - test-subx-calls-passes-most-lines-through"</span>/imm32 <span id="L658" class="LineNr"> 658 </span> 68/push <span class="Constant">"== abcd 0x1\n"</span>/imm32 -<span id="L659" class="LineNr"> 659 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L659" class="LineNr"> 659 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L660" class="LineNr"> 660 </span> <span class="subxS2Comment"># . . call</span> -<span id="L661" class="LineNr"> 661 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L661" class="LineNr"> 661 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L662" class="LineNr"> 662 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L663" class="LineNr"> 663 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L664" class="LineNr"> 664 </span> <span class="subxS1Comment"># . epilogue</span> @@ -695,44 +695,44 @@ if ('onhashchange' in window) { <span id="L673" class="LineNr"> 673 </span> <span class="subxComment"># setup</span> <span id="L674" class="LineNr"> 674 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L676" class="LineNr"> 676 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L676" class="LineNr"> 676 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . call</span> -<span id="L678" class="LineNr"> 678 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L678" class="LineNr"> 678 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L680" class="LineNr"> 680 </span> 81 0/subop/add %esp 4/imm32 <span id="L681" class="LineNr"> 681 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L682" class="LineNr"> 682 </span> <span class="subxS2Comment"># . . push args</span> <span id="L683" class="LineNr"> 683 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . call</span> -<span id="L685" class="LineNr"> 685 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L685" class="LineNr"> 685 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L686" class="LineNr"> 686 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L687" class="LineNr"> 687 </span> 81 0/subop/add %esp 4/imm32 <span id="L688" class="LineNr"> 688 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L689" class="LineNr"> 689 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L690" class="LineNr"> 690 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L690" class="LineNr"> 690 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L691" class="LineNr"> 691 </span> <span class="subxS2Comment"># . . call</span> -<span id="L692" class="LineNr"> 692 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L692" class="LineNr"> 692 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L693" class="LineNr"> 693 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L694" class="LineNr"> 694 </span> 81 0/subop/add %esp 4/imm32 <span id="L695" class="LineNr"> 695 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L696" class="LineNr"> 696 </span> <span class="subxS2Comment"># . . push args</span> <span id="L697" class="LineNr"> 697 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L698" class="LineNr"> 698 </span> <span class="subxS2Comment"># . . call</span> -<span id="L699" class="LineNr"> 699 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L699" class="LineNr"> 699 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L700" class="LineNr"> 700 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L701" class="LineNr"> 701 </span> 81 0/subop/add %esp 4/imm32 <span id="L702" class="LineNr"> 702 </span> <span class="subxS1Comment"># . write(_test-input-stream, "(foo %eax)\n")</span> <span id="L703" class="LineNr"> 703 </span> <span class="subxS2Comment"># . . push args</span> <span id="L704" class="LineNr"> 704 </span> 68/push <span class="Constant">"(foo %eax)\n"</span>/imm32 -<span id="L705" class="LineNr"> 705 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L705" class="LineNr"> 705 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L706" class="LineNr"> 706 </span> <span class="subxS2Comment"># . . call</span> -<span id="L707" class="LineNr"> 707 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L707" class="LineNr"> 707 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L708" class="LineNr"> 708 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L709" class="LineNr"> 709 </span> 81 0/subop/add %esp 8/imm32 <span id="L710" class="LineNr"> 710 </span> <span class="subxComment"># subx-calls(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L712" class="LineNr"> 712 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L713" class="LineNr"> 713 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L712" class="LineNr"> 712 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L713" class="LineNr"> 713 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . call</span> <span id="L715" class="LineNr"> 715 </span> e8/call <a href='calls.subx.html#L77'>subx-calls</a>/disp32 <span id="L716" class="LineNr"> 716 </span> <span class="subxS2Comment"># . . discard args</span> @@ -740,9 +740,9 @@ if ('onhashchange' in window) { <span id="L718" class="LineNr"> 718 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L719" class="LineNr"> 719 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L720" class="LineNr"> 720 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L721" class="LineNr"> 721 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L721" class="LineNr"> 721 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L722" class="LineNr"> 722 </span> <span class="subxS2Comment"># . . call</span> -<span id="L723" class="LineNr"> 723 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L723" class="LineNr"> 723 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L724" class="LineNr"> 724 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L725" class="LineNr"> 725 </span> 81 0/subop/add %esp 4/imm32 <span id="L726" class="Folded"> 726 </span><span class="Folded">+-- 33 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> @@ -750,36 +750,36 @@ if ('onhashchange' in window) { <span id="L760" class="LineNr"> 760 </span> <span class="subxS2Comment"># . . push args</span> <span id="L761" class="LineNr"> 761 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: comment"</span>/imm32 <span id="L762" class="LineNr"> 762 </span> 68/push <span class="Constant">"# . (foo %eax)"</span>/imm32 -<span id="L763" class="LineNr"> 763 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L763" class="LineNr"> 763 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L764" class="LineNr"> 764 </span> <span class="subxS2Comment"># . . call</span> -<span id="L765" class="LineNr"> 765 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L765" class="LineNr"> 765 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L766" class="LineNr"> 766 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L767" class="LineNr"> 767 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L768" class="LineNr"> 768 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ff 6/subop/push %eax", msg)</span> <span id="L769" class="LineNr"> 769 </span> <span class="subxS2Comment"># . . push args</span> <span id="L770" class="LineNr"> 770 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: arg 0"</span>/imm32 <span id="L771" class="LineNr"> 771 </span> 68/push <span class="Constant">"ff 6/subop/push %eax"</span>/imm32 -<span id="L772" class="LineNr"> 772 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L772" class="LineNr"> 772 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . call</span> -<span id="L774" class="LineNr"> 774 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L774" class="LineNr"> 774 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L775" class="LineNr"> 775 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L776" class="LineNr"> 776 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L777" class="LineNr"> 777 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8/call foo/disp32", msg)</span> <span id="L778" class="LineNr"> 778 </span> <span class="subxS2Comment"># . . push args</span> <span id="L779" class="LineNr"> 779 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: call"</span>/imm32 <span id="L780" class="LineNr"> 780 </span> 68/push <span class="Constant">"e8/call foo/disp32"</span>/imm32 -<span id="L781" class="LineNr"> 781 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L781" class="LineNr"> 781 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L782" class="LineNr"> 782 </span> <span class="subxS2Comment"># . . call</span> -<span id="L783" class="LineNr"> 783 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L783" class="LineNr"> 783 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L785" class="LineNr"> 785 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L786" class="LineNr"> 786 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "81 0/subop/add %esp 4/imm32", msg)</span> <span id="L787" class="LineNr"> 787 </span> <span class="subxS2Comment"># . . push args</span> <span id="L788" class="LineNr"> 788 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L669'>test-subx-calls-processes-calls</a>: pops"</span>/imm32 <span id="L789" class="LineNr"> 789 </span> 68/push <span class="Constant">"81 0/subop/add %esp 0x00000004/imm32"</span>/imm32 -<span id="L790" class="LineNr"> 790 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L790" class="LineNr"> 790 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L791" class="LineNr"> 791 </span> <span class="subxS2Comment"># . . call</span> -<span id="L792" class="LineNr"> 792 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L792" class="LineNr"> 792 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L793" class="LineNr"> 793 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L794" class="LineNr"> 794 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L795" class="LineNr"> 795 </span> <span class="subxS1Comment"># . epilogue</span> @@ -863,7 +863,7 @@ if ('onhashchange' in window) { <span id="L873" class="LineNr"> 873 </span> 68/push 0x20/imm32/space <span id="L874" class="LineNr"> 874 </span> ff 6/subop/push *(ebp+8) <span id="L875" class="LineNr"> 875 </span> <span class="subxS2Comment"># . . call</span> -<span id="L876" class="LineNr"> 876 </span> e8/call <a href='../124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 +<span id="L876" class="LineNr"> 876 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 <span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L878" class="LineNr"> 878 </span> 81 0/subop/add %esp 8/imm32 <span id="L879" class="LineNr"> 879 </span><span class="Constant">$next-word-string-or-expression-without-metadata:check0</span>: @@ -903,7 +903,7 @@ if ('onhashchange' in window) { <span id="L913" class="LineNr"> 913 </span> <span class="subxS2Comment"># . . push args</span> <span id="L914" class="LineNr"> 914 </span> 56/push-esi <span id="L915" class="LineNr"> 915 </span> <span class="subxS2Comment"># . . call</span> -<span id="L916" class="LineNr"> 916 </span> e8/call <a href='../124next-token.subx.html#L1171'>skip-string</a>/disp32 +<span id="L916" class="LineNr"> 916 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 <span id="L917" class="LineNr"> 917 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L918" class="LineNr"> 918 </span> 81 0/subop/add %esp 4/imm32 <span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> @@ -928,7 +928,7 @@ if ('onhashchange' in window) { <span id="L938" class="LineNr"> 938 </span> <span class="subxS2Comment"># . . push args</span> <span id="L939" class="LineNr"> 939 </span> 56/push-esi <span id="L940" class="LineNr"> 940 </span> <span class="subxS2Comment"># . . call</span> -<span id="L941" class="LineNr"> 941 </span> e8/call <a href='../124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 +<span id="L941" class="LineNr"> 941 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 <span id="L942" class="LineNr"> 942 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L943" class="LineNr"> 943 </span> 81 0/subop/add %esp 4/imm32 <span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto error2</span> @@ -973,7 +973,7 @@ if ('onhashchange' in window) { <span id="L983" class="LineNr"> 983 </span> <span class="subxS2Comment"># . . push args</span> <span id="L984" class="LineNr"> 984 </span> 56/push-esi <span id="L985" class="LineNr"> 985 </span> <span class="subxS2Comment"># . . call</span> -<span id="L986" class="LineNr"> 986 </span> e8/call <a href='../124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 +<span id="L986" class="LineNr"> 986 </span> e8/call <a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a>/disp32 <span id="L987" class="LineNr"> 987 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L988" class="LineNr"> 988 </span> 81 0/subop/add %esp 4/imm32 <span id="L989" class="LineNr"> 989 </span> <span class="subxComment"># if (line->read >= line->write) return out = {0, 0}</span> @@ -1041,37 +1041,37 @@ if ('onhashchange' in window) { <span id="L1051" class="LineNr">1051 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: missing final ')' in '")</span> <span id="L1052" class="LineNr">1052 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1053" class="LineNr">1053 </span> 68/push <span class="Constant">"error: missing final ')' in '"</span>/imm32 -<span id="L1054" class="LineNr">1054 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1054" class="LineNr">1054 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1055" class="LineNr">1055 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1056" class="LineNr">1056 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1056" class="LineNr">1056 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1057" class="LineNr">1057 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1058" class="LineNr">1058 </span> 81 0/subop/add %esp 8/imm32 <span id="L1059" class="LineNr">1059 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> <span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1061" class="LineNr">1061 </span> 56/push-esi -<span id="L1062" class="LineNr">1062 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1062" class="LineNr">1062 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1063" class="LineNr">1063 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1064" class="LineNr">1064 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1064" class="LineNr">1064 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1065" class="LineNr">1065 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1066" class="LineNr">1066 </span> 81 0/subop/add %esp 8/imm32 <span id="L1067" class="LineNr">1067 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> <span id="L1068" class="LineNr">1068 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1069" class="LineNr">1069 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1070" class="LineNr">1070 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1070" class="LineNr">1070 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1071" class="LineNr">1071 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1072" class="LineNr">1072 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1072" class="LineNr">1072 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1073" class="LineNr">1073 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1074" class="LineNr">1074 </span> 81 0/subop/add %esp 8/imm32 <span id="L1075" class="LineNr">1075 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L1076" class="LineNr">1076 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1077" class="LineNr">1077 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1077" class="LineNr">1077 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1078" class="LineNr">1078 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1079" class="LineNr">1079 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1079" class="LineNr">1079 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1080" class="LineNr">1080 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1081" class="LineNr">1081 </span> 81 0/subop/add %esp 4/imm32 <span id="L1082" class="LineNr">1082 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1083" class="LineNr">1083 </span> bb/copy-to-ebx 1/imm32 -<span id="L1084" class="LineNr">1084 </span> e8/call syscall_exit/disp32 +<span id="L1084" class="LineNr">1084 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1085" class="LineNr">1085 </span> <span class="subxComment"># never gets here</span> <span id="L1086" class="LineNr">1086 </span> <span id="L1087" class="LineNr">1087 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error1</span>: @@ -1079,37 +1079,37 @@ if ('onhashchange' in window) { <span id="L1089" class="LineNr">1089 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no space allowed after '*' in '")</span> <span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1091" class="LineNr">1091 </span> 68/push <span class="Constant">"error: no space allowed after '*' in '"</span>/imm32 -<span id="L1092" class="LineNr">1092 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1092" class="LineNr">1092 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1094" class="LineNr">1094 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1094" class="LineNr">1094 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1096" class="LineNr">1096 </span> 81 0/subop/add %esp 8/imm32 <span id="L1097" class="LineNr">1097 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> <span id="L1098" class="LineNr">1098 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1099" class="LineNr">1099 </span> 56/push-esi -<span id="L1100" class="LineNr">1100 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1100" class="LineNr">1100 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1102" class="LineNr">1102 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1102" class="LineNr">1102 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1104" class="LineNr">1104 </span> 81 0/subop/add %esp 8/imm32 <span id="L1105" class="LineNr">1105 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> <span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1107" class="LineNr">1107 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1108" class="LineNr">1108 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1108" class="LineNr">1108 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1109" class="LineNr">1109 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1110" class="LineNr">1110 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1110" class="LineNr">1110 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1111" class="LineNr">1111 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1112" class="LineNr">1112 </span> 81 0/subop/add %esp 8/imm32 <span id="L1113" class="LineNr">1113 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1115" class="LineNr">1115 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1115" class="LineNr">1115 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1117" class="LineNr">1117 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1117" class="LineNr">1117 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1118" class="LineNr">1118 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1119" class="LineNr">1119 </span> 81 0/subop/add %esp 4/imm32 <span id="L1120" class="LineNr">1120 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1121" class="LineNr">1121 </span> bb/copy-to-ebx 1/imm32 -<span id="L1122" class="LineNr">1122 </span> e8/call syscall_exit/disp32 +<span id="L1122" class="LineNr">1122 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1123" class="LineNr">1123 </span> <span class="subxComment"># never gets here</span> <span id="L1124" class="LineNr">1124 </span> <span id="L1125" class="LineNr">1125 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error2</span>: @@ -1117,37 +1117,37 @@ if ('onhashchange' in window) { <span id="L1127" class="LineNr">1127 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")</span> <span id="L1128" class="LineNr">1128 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1129" class="LineNr">1129 </span> 68/push <span class="Constant">"error: *(...) expression must be all on a single line in '"</span>/imm32 -<span id="L1130" class="LineNr">1130 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1130" class="LineNr">1130 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1131" class="LineNr">1131 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1132" class="LineNr">1132 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1132" class="LineNr">1132 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1133" class="LineNr">1133 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1134" class="LineNr">1134 </span> 81 0/subop/add %esp 8/imm32 <span id="L1135" class="LineNr">1135 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> <span id="L1136" class="LineNr">1136 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1137" class="LineNr">1137 </span> 56/push-esi -<span id="L1138" class="LineNr">1138 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1138" class="LineNr">1138 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1139" class="LineNr">1139 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1140" class="LineNr">1140 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1140" class="LineNr">1140 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1141" class="LineNr">1141 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1142" class="LineNr">1142 </span> 81 0/subop/add %esp 8/imm32 <span id="L1143" class="LineNr">1143 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> <span id="L1144" class="LineNr">1144 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1145" class="LineNr">1145 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1146" class="LineNr">1146 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1146" class="LineNr">1146 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1147" class="LineNr">1147 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1148" class="LineNr">1148 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1148" class="LineNr">1148 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1149" class="LineNr">1149 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1150" class="LineNr">1150 </span> 81 0/subop/add %esp 8/imm32 <span id="L1151" class="LineNr">1151 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L1152" class="LineNr">1152 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1153" class="LineNr">1153 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1153" class="LineNr">1153 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1154" class="LineNr">1154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1155" class="LineNr">1155 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1155" class="LineNr">1155 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1156" class="LineNr">1156 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1157" class="LineNr">1157 </span> 81 0/subop/add %esp 4/imm32 <span id="L1158" class="LineNr">1158 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1159" class="LineNr">1159 </span> bb/copy-to-ebx 1/imm32 -<span id="L1160" class="LineNr">1160 </span> e8/call syscall_exit/disp32 +<span id="L1160" class="LineNr">1160 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1161" class="LineNr">1161 </span> <span class="subxComment"># never gets here</span> <span id="L1162" class="LineNr">1162 </span> <span id="L1163" class="LineNr">1163 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error3</span>: @@ -1155,37 +1155,37 @@ if ('onhashchange' in window) { <span id="L1165" class="LineNr">1165 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no metadata after calls; just use a comment (in '")</span> <span id="L1166" class="LineNr">1166 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1167" class="LineNr">1167 </span> 68/push <span class="Constant">"error: no metadata after calls; just use a comment (in '"</span>/imm32 -<span id="L1168" class="LineNr">1168 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1168" class="LineNr">1168 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1169" class="LineNr">1169 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1170" class="LineNr">1170 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1170" class="LineNr">1170 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1171" class="LineNr">1171 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1172" class="LineNr">1172 </span> 81 0/subop/add %esp 8/imm32 <span id="L1173" class="LineNr">1173 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> <span id="L1174" class="LineNr">1174 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1175" class="LineNr">1175 </span> 56/push-esi -<span id="L1176" class="LineNr">1176 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1176" class="LineNr">1176 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1177" class="LineNr">1177 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1178" class="LineNr">1178 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1178" class="LineNr">1178 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1180" class="LineNr">1180 </span> 81 0/subop/add %esp 8/imm32 <span id="L1181" class="LineNr">1181 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "')")</span> <span id="L1182" class="LineNr">1182 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1183" class="LineNr">1183 </span> 68/push <span class="Constant">"')"</span>/imm32 -<span id="L1184" class="LineNr">1184 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1184" class="LineNr">1184 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1185" class="LineNr">1185 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1186" class="LineNr">1186 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1186" class="LineNr">1186 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1187" class="LineNr">1187 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1188" class="LineNr">1188 </span> 81 0/subop/add %esp 8/imm32 <span id="L1189" class="LineNr">1189 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1191" class="LineNr">1191 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1191" class="LineNr">1191 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1193" class="LineNr">1193 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1193" class="LineNr">1193 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1194" class="LineNr">1194 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1195" class="LineNr">1195 </span> 81 0/subop/add %esp 4/imm32 <span id="L1196" class="LineNr">1196 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1197" class="LineNr">1197 </span> bb/copy-to-ebx 1/imm32 -<span id="L1198" class="LineNr">1198 </span> e8/call syscall_exit/disp32 +<span id="L1198" class="LineNr">1198 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1199" class="LineNr">1199 </span> <span class="subxComment"># never gets here</span> <span id="L1200" class="LineNr">1200 </span> <span id="L1201" class="LineNr">1201 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error4a</span>: @@ -1193,37 +1193,37 @@ if ('onhashchange' in window) { <span id="L1203" class="LineNr">1203 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected '(' within call in '")</span> <span id="L1204" class="LineNr">1204 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1205" class="LineNr">1205 </span> 68/push <span class="Constant">"error: unexpected '(' within call in '"</span>/imm32 -<span id="L1206" class="LineNr">1206 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1206" class="LineNr">1206 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1207" class="LineNr">1207 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1208" class="LineNr">1208 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1208" class="LineNr">1208 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1210" class="LineNr">1210 </span> 81 0/subop/add %esp 8/imm32 <span id="L1211" class="LineNr">1211 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> <span id="L1212" class="LineNr">1212 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1213" class="LineNr">1213 </span> 56/push-esi -<span id="L1214" class="LineNr">1214 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1214" class="LineNr">1214 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1215" class="LineNr">1215 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1216" class="LineNr">1216 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1216" class="LineNr">1216 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1217" class="LineNr">1217 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1218" class="LineNr">1218 </span> 81 0/subop/add %esp 8/imm32 <span id="L1219" class="LineNr">1219 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'\n")</span> <span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1221" class="LineNr">1221 </span> 68/push <span class="Constant">"'\n"</span>/imm32 -<span id="L1222" class="LineNr">1222 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1222" class="LineNr">1222 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1223" class="LineNr">1223 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1224" class="LineNr">1224 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1224" class="LineNr">1224 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1225" class="LineNr">1225 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1226" class="LineNr">1226 </span> 81 0/subop/add %esp 8/imm32 <span id="L1227" class="LineNr">1227 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L1228" class="LineNr">1228 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1229" class="LineNr">1229 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1229" class="LineNr">1229 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1230" class="LineNr">1230 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1231" class="LineNr">1231 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1231" class="LineNr">1231 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1232" class="LineNr">1232 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1233" class="LineNr">1233 </span> 81 0/subop/add %esp 4/imm32 <span id="L1234" class="LineNr">1234 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1235" class="LineNr">1235 </span> bb/copy-to-ebx 1/imm32 -<span id="L1236" class="LineNr">1236 </span> e8/call syscall_exit/disp32 +<span id="L1236" class="LineNr">1236 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1237" class="LineNr">1237 </span> <span class="subxComment"># never gets here</span> <span id="L1238" class="LineNr">1238 </span> <span id="L1239" class="LineNr">1239 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error4</span>: @@ -1231,37 +1231,37 @@ if ('onhashchange' in window) { <span id="L1241" class="LineNr">1241 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected text after end of call in '")</span> <span id="L1242" class="LineNr">1242 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1243" class="LineNr">1243 </span> 68/push <span class="Constant">"error: unexpected text after end of call in '"</span>/imm32 -<span id="L1244" class="LineNr">1244 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1244" class="LineNr">1244 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1245" class="LineNr">1245 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1246" class="LineNr">1246 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1246" class="LineNr">1246 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1248" class="LineNr">1248 </span> 81 0/subop/add %esp 8/imm32 <span id="L1249" class="LineNr">1249 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> <span id="L1250" class="LineNr">1250 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1251" class="LineNr">1251 </span> 56/push-esi -<span id="L1252" class="LineNr">1252 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1252" class="LineNr">1252 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1254" class="LineNr">1254 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1254" class="LineNr">1254 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1256" class="LineNr">1256 </span> 81 0/subop/add %esp 8/imm32 <span id="L1257" class="LineNr">1257 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> <span id="L1258" class="LineNr">1258 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1259" class="LineNr">1259 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1260" class="LineNr">1260 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1260" class="LineNr">1260 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1261" class="LineNr">1261 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1262" class="LineNr">1262 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1262" class="LineNr">1262 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1263" class="LineNr">1263 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1264" class="LineNr">1264 </span> 81 0/subop/add %esp 8/imm32 <span id="L1265" class="LineNr">1265 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L1266" class="LineNr">1266 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1267" class="LineNr">1267 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1267" class="LineNr">1267 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1268" class="LineNr">1268 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1269" class="LineNr">1269 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1269" class="LineNr">1269 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1271" class="LineNr">1271 </span> 81 0/subop/add %esp 4/imm32 <span id="L1272" class="LineNr">1272 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1273" class="LineNr">1273 </span> bb/copy-to-ebx 1/imm32 -<span id="L1274" class="LineNr">1274 </span> e8/call syscall_exit/disp32 +<span id="L1274" class="LineNr">1274 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1275" class="LineNr">1275 </span> <span class="subxComment"># never gets here</span> <span id="L1276" class="LineNr">1276 </span> <span id="L1277" class="LineNr">1277 </span><span class="Constant">$next-word-string-or-expression-without-metadata:error5</span>: @@ -1269,37 +1269,37 @@ if ('onhashchange' in window) { <span id="L1279" class="LineNr">1279 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no metadata anywhere in calls (in '")</span> <span id="L1280" class="LineNr">1280 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1281" class="LineNr">1281 </span> 68/push <span class="Constant">"error: no metadata anywhere in calls (in '"</span>/imm32 -<span id="L1282" class="LineNr">1282 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1282" class="LineNr">1282 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1283" class="LineNr">1283 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1284" class="LineNr">1284 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1284" class="LineNr">1284 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1285" class="LineNr">1285 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1286" class="LineNr">1286 </span> 81 0/subop/add %esp 8/imm32 <span id="L1287" class="LineNr">1287 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> <span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1289" class="LineNr">1289 </span> 56/push-esi -<span id="L1290" class="LineNr">1290 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1290" class="LineNr">1290 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1291" class="LineNr">1291 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1292" class="LineNr">1292 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1292" class="LineNr">1292 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1294" class="LineNr">1294 </span> 81 0/subop/add %esp 8/imm32 <span id="L1295" class="LineNr">1295 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "')")</span> <span id="L1296" class="LineNr">1296 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1297" class="LineNr">1297 </span> 68/push <span class="Constant">"')"</span>/imm32 -<span id="L1298" class="LineNr">1298 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1298" class="LineNr">1298 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1299" class="LineNr">1299 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1300" class="LineNr">1300 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1300" class="LineNr">1300 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1301" class="LineNr">1301 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1302" class="LineNr">1302 </span> 81 0/subop/add %esp 8/imm32 <span id="L1303" class="LineNr">1303 </span> <span class="subxS1Comment"># . flush(Stderr)</span> <span id="L1304" class="LineNr">1304 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1305" class="LineNr">1305 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1305" class="LineNr">1305 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 <span id="L1306" class="LineNr">1306 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1307" class="LineNr">1307 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1307" class="LineNr">1307 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1308" class="LineNr">1308 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1309" class="LineNr">1309 </span> 81 0/subop/add %esp 4/imm32 <span id="L1310" class="LineNr">1310 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> <span id="L1311" class="LineNr">1311 </span> bb/copy-to-ebx 1/imm32 -<span id="L1312" class="LineNr">1312 </span> e8/call syscall_exit/disp32 +<span id="L1312" class="LineNr">1312 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L1313" class="LineNr">1313 </span> <span class="subxComment"># never gets here</span> <span id="L1314" class="LineNr">1314 </span> <span id="L1315" class="LineNr">1315 </span><span class="subxTest">test-next-word-string-or-expression-without-metadata</span>: @@ -1309,9 +1309,9 @@ if ('onhashchange' in window) { <span id="L1319" class="LineNr">1319 </span> <span class="subxComment"># setup</span> <span id="L1320" class="LineNr">1320 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1321" class="LineNr">1321 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1322" class="LineNr">1322 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1322" class="LineNr">1322 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1323" class="LineNr">1323 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1324" class="LineNr">1324 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1324" class="LineNr">1324 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1325" class="LineNr">1325 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1326" class="LineNr">1326 </span> 81 0/subop/add %esp 4/imm32 <span id="L1327" class="LineNr">1327 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1321,15 +1321,15 @@ if ('onhashchange' in window) { <span id="L1331" class="LineNr">1331 </span> <span class="subxComment"># write(_test-input-stream, " ab")</span> <span id="L1332" class="LineNr">1332 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1333" class="LineNr">1333 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L1334" class="LineNr">1334 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1334" class="LineNr">1334 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1335" class="LineNr">1335 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1336" class="LineNr">1336 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1336" class="LineNr">1336 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1337" class="LineNr">1337 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1338" class="LineNr">1338 </span> 81 0/subop/add %esp 8/imm32 <span id="L1339" class="LineNr">1339 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1340" class="LineNr">1340 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1341" class="LineNr">1341 </span> 51/push-ecx -<span id="L1342" class="LineNr">1342 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1342" class="LineNr">1342 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1343" class="LineNr">1343 </span> <span class="subxS2Comment"># . . call</span> <span id="L1344" class="LineNr">1344 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1345" class="LineNr">1345 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1338,10 +1338,10 @@ if ('onhashchange' in window) { <span id="L1348" class="LineNr">1348 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1349" class="LineNr">1349 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1315'>test-next-word-string-or-expression-without-metadata</a>/updates-stream-read-correctly"</span>/imm32 <span id="L1350" class="LineNr">1350 </span> 68/push 4/imm32 -<span id="L1351" class="LineNr">1351 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1351" class="LineNr">1351 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1352" class="LineNr">1352 </span> ff 6/subop/push *(eax+4) <span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1354" class="LineNr">1354 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1354" class="LineNr">1354 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1356" class="LineNr">1356 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1357" class="LineNr">1357 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> @@ -1351,10 +1351,10 @@ if ('onhashchange' in window) { <span id="L1361" class="LineNr">1361 </span> 68/push 0xe/imm32 <span id="L1362" class="LineNr">1362 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1363" class="LineNr">1363 </span> 8b/-> *ecx 0/r32/eax -<span id="L1364" class="LineNr">1364 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1364" class="LineNr">1364 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1365" class="LineNr">1365 </span> 50/push-eax <span id="L1366" class="LineNr">1366 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1367" class="LineNr">1367 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1367" class="LineNr">1367 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1368" class="LineNr">1368 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1369" class="LineNr">1369 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1370" class="LineNr">1370 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> @@ -1364,10 +1364,10 @@ if ('onhashchange' in window) { <span id="L1374" class="LineNr">1374 </span> 68/push 0x10/imm32 <span id="L1375" class="LineNr">1375 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1376" class="LineNr">1376 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1377" class="LineNr">1377 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1377" class="LineNr">1377 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1378" class="LineNr">1378 </span> 50/push-eax <span id="L1379" class="LineNr">1379 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1380" class="LineNr">1380 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1380" class="LineNr">1380 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1381" class="LineNr">1381 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1382" class="LineNr">1382 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1383" class="LineNr">1383 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1382,9 +1382,9 @@ if ('onhashchange' in window) { <span id="L1392" class="LineNr">1392 </span> <span class="subxComment"># setup</span> <span id="L1393" class="LineNr">1393 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1395" class="LineNr">1395 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1395" class="LineNr">1395 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1397" class="LineNr">1397 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1397" class="LineNr">1397 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1398" class="LineNr">1398 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1399" class="LineNr">1399 </span> 81 0/subop/add %esp 4/imm32 <span id="L1400" class="LineNr">1400 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1394,15 +1394,15 @@ if ('onhashchange' in window) { <span id="L1404" class="LineNr">1404 </span> <span class="subxComment"># write(_test-input-stream, " # a")</span> <span id="L1405" class="LineNr">1405 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1406" class="LineNr">1406 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L1407" class="LineNr">1407 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1407" class="LineNr">1407 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1408" class="LineNr">1408 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1409" class="LineNr">1409 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1409" class="LineNr">1409 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1410" class="LineNr">1410 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1411" class="LineNr">1411 </span> 81 0/subop/add %esp 8/imm32 <span id="L1412" class="LineNr">1412 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1413" class="LineNr">1413 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1414" class="LineNr">1414 </span> 51/push-ecx -<span id="L1415" class="LineNr">1415 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1415" class="LineNr">1415 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1416" class="LineNr">1416 </span> <span class="subxS2Comment"># . . call</span> <span id="L1417" class="LineNr">1417 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1418" class="LineNr">1418 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1411,10 +1411,10 @@ if ('onhashchange' in window) { <span id="L1421" class="LineNr">1421 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1422" class="LineNr">1422 </span> 68/push <span class="Constant">"F - <a href='calls.subx.html#L1388'>test-next-word-string-or-expression-without-metadata-returns-whole-comment</a>/updates-stream-read-correctly"</span>/imm32 <span id="L1423" class="LineNr">1423 </span> 68/push 5/imm32 -<span id="L1424" class="LineNr">1424 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1424" class="LineNr">1424 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1425" class="LineNr">1425 </span> ff 6/subop/push *(eax+4) <span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1427" class="LineNr">1427 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1427" class="LineNr">1427 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1428" class="LineNr">1428 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1429" class="LineNr">1429 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1430" class="LineNr">1430 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> @@ -1424,10 +1424,10 @@ if ('onhashchange' in window) { <span id="L1434" class="LineNr">1434 </span> 68/push 0xe/imm32 <span id="L1435" class="LineNr">1435 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1436" class="LineNr">1436 </span> 8b/-> *ecx 0/r32/eax -<span id="L1437" class="LineNr">1437 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1437" class="LineNr">1437 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1438" class="LineNr">1438 </span> 50/push-eax <span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1440" class="LineNr">1440 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1440" class="LineNr">1440 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1441" class="LineNr">1441 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1442" class="LineNr">1442 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1443" class="LineNr">1443 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 5, msg)</span> @@ -1437,10 +1437,10 @@ if ('onhashchange' in window) { <span id="L1447" class="LineNr">1447 </span> 68/push 0x11/imm32 <span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1449" class="LineNr">1449 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1450" class="LineNr">1450 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1450" class="LineNr">1450 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1451" class="LineNr">1451 </span> 50/push-eax <span id="L1452" class="LineNr">1452 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1453" class="LineNr">1453 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1453" class="LineNr">1453 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1454" class="LineNr">1454 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1455" class="LineNr">1455 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1456" class="LineNr">1456 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1455,9 +1455,9 @@ if ('onhashchange' in window) { <span id="L1465" class="LineNr">1465 </span> <span class="subxComment"># setup</span> <span id="L1466" class="LineNr">1466 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1467" class="LineNr">1467 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1468" class="LineNr">1468 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1468" class="LineNr">1468 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1470" class="LineNr">1470 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1470" class="LineNr">1470 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1472" class="LineNr">1472 </span> 81 0/subop/add %esp 4/imm32 <span id="L1473" class="LineNr">1473 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1467,15 +1467,15 @@ if ('onhashchange' in window) { <span id="L1477" class="LineNr">1477 </span> <span class="subxComment"># write(_test-input-stream, " \"a b\" ")</span> <span id="L1478" class="LineNr">1478 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1479" class="LineNr">1479 </span> 68/push <span class="Constant">" \"</span>a b\<span class="Constant">" "</span>/imm32 -<span id="L1480" class="LineNr">1480 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1480" class="LineNr">1480 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1481" class="LineNr">1481 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1482" class="LineNr">1482 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1482" class="LineNr">1482 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1483" class="LineNr">1483 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1484" class="LineNr">1484 </span> 81 0/subop/add %esp 8/imm32 <span id="L1485" class="LineNr">1485 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1487" class="LineNr">1487 </span> 51/push-ecx -<span id="L1488" class="LineNr">1488 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1488" class="LineNr">1488 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1489" class="LineNr">1489 </span> <span class="subxS2Comment"># . . call</span> <span id="L1490" class="LineNr">1490 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1487,10 +1487,10 @@ if ('onhashchange' in window) { <span id="L1497" class="LineNr">1497 </span> 68/push 0xd/imm32 <span id="L1498" class="LineNr">1498 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1499" class="LineNr">1499 </span> 8b/-> *ecx 0/r32/eax -<span id="L1500" class="LineNr">1500 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1500" class="LineNr">1500 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1501" class="LineNr">1501 </span> 50/push-eax <span id="L1502" class="LineNr">1502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1503" class="LineNr">1503 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1503" class="LineNr">1503 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1504" class="LineNr">1504 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1505" class="LineNr">1505 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1506" class="LineNr">1506 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 6, msg)</span> @@ -1500,10 +1500,10 @@ if ('onhashchange' in window) { <span id="L1510" class="LineNr">1510 </span> 68/push 0x12/imm32 <span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1512" class="LineNr">1512 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1513" class="LineNr">1513 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1513" class="LineNr">1513 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1514" class="LineNr">1514 </span> 50/push-eax <span id="L1515" class="LineNr">1515 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1516" class="LineNr">1516 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1516" class="LineNr">1516 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1518" class="LineNr">1518 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1519" class="LineNr">1519 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1518,9 +1518,9 @@ if ('onhashchange' in window) { <span id="L1528" class="LineNr">1528 </span> <span class="subxComment"># setup</span> <span id="L1529" class="LineNr">1529 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1531" class="LineNr">1531 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1531" class="LineNr">1531 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1532" class="LineNr">1532 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1533" class="LineNr">1533 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1533" class="LineNr">1533 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1534" class="LineNr">1534 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1535" class="LineNr">1535 </span> 81 0/subop/add %esp 4/imm32 <span id="L1536" class="LineNr">1536 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1530,15 +1530,15 @@ if ('onhashchange' in window) { <span id="L1540" class="LineNr">1540 </span> <span class="subxComment"># write(_test-input-stream, " \"a\\\"b\"")</span> <span id="L1541" class="LineNr">1541 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1542" class="LineNr">1542 </span> 68/push <span class="Constant">" \"</span>a\\\<span class="Constant">"b\"</span>"/imm32 -<span id="L1543" class="LineNr">1543 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1543" class="LineNr">1543 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1544" class="LineNr">1544 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1545" class="LineNr">1545 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1545" class="LineNr">1545 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1546" class="LineNr">1546 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1547" class="LineNr">1547 </span> 81 0/subop/add %esp 8/imm32 <span id="L1548" class="LineNr">1548 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1549" class="LineNr">1549 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1550" class="LineNr">1550 </span> 51/push-ecx -<span id="L1551" class="LineNr">1551 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1551" class="LineNr">1551 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . call</span> <span id="L1553" class="LineNr">1553 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1550,10 +1550,10 @@ if ('onhashchange' in window) { <span id="L1560" class="LineNr">1560 </span> 68/push 0xd/imm32 <span id="L1561" class="LineNr">1561 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1562" class="LineNr">1562 </span> 8b/-> *ecx 0/r32/eax -<span id="L1563" class="LineNr">1563 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1563" class="LineNr">1563 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1564" class="LineNr">1564 </span> 50/push-eax <span id="L1565" class="LineNr">1565 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1566" class="LineNr">1566 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1566" class="LineNr">1566 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1567" class="LineNr">1567 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1568" class="LineNr">1568 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1569" class="LineNr">1569 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 7, msg)</span> @@ -1563,10 +1563,10 @@ if ('onhashchange' in window) { <span id="L1573" class="LineNr">1573 </span> 68/push 0x13/imm32 <span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1575" class="LineNr">1575 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1576" class="LineNr">1576 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1576" class="LineNr">1576 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1577" class="LineNr">1577 </span> 50/push-eax <span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1579" class="LineNr">1579 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1579" class="LineNr">1579 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1581" class="LineNr">1581 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1582" class="LineNr">1582 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1581,9 +1581,9 @@ if ('onhashchange' in window) { <span id="L1591" class="LineNr">1591 </span> <span class="subxComment"># setup</span> <span id="L1592" class="LineNr">1592 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1593" class="LineNr">1593 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1594" class="LineNr">1594 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1594" class="LineNr">1594 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1595" class="LineNr">1595 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1596" class="LineNr">1596 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1596" class="LineNr">1596 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1597" class="LineNr">1597 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1598" class="LineNr">1598 </span> 81 0/subop/add %esp 4/imm32 <span id="L1599" class="LineNr">1599 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1593,15 +1593,15 @@ if ('onhashchange' in window) { <span id="L1603" class="LineNr">1603 </span> <span class="subxComment"># write(_test-input-stream, " *(a b) ")</span> <span id="L1604" class="LineNr">1604 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1605" class="LineNr">1605 </span> 68/push <span class="Constant">" *(a b) "</span>/imm32 -<span id="L1606" class="LineNr">1606 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1606" class="LineNr">1606 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1607" class="LineNr">1607 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1608" class="LineNr">1608 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1608" class="LineNr">1608 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1609" class="LineNr">1609 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1610" class="LineNr">1610 </span> 81 0/subop/add %esp 8/imm32 <span id="L1611" class="LineNr">1611 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1612" class="LineNr">1612 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1613" class="LineNr">1613 </span> 51/push-ecx -<span id="L1614" class="LineNr">1614 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1614" class="LineNr">1614 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1615" class="LineNr">1615 </span> <span class="subxS2Comment"># . . call</span> <span id="L1616" class="LineNr">1616 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1617" class="LineNr">1617 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1613,10 +1613,10 @@ if ('onhashchange' in window) { <span id="L1623" class="LineNr">1623 </span> 68/push 0xd/imm32 <span id="L1624" class="LineNr">1624 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1625" class="LineNr">1625 </span> 8b/-> *ecx 0/r32/eax -<span id="L1626" class="LineNr">1626 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1626" class="LineNr">1626 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1627" class="LineNr">1627 </span> 50/push-eax <span id="L1628" class="LineNr">1628 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1629" class="LineNr">1629 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1629" class="LineNr">1629 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1630" class="LineNr">1630 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1631" class="LineNr">1631 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 7, msg)</span> @@ -1626,10 +1626,10 @@ if ('onhashchange' in window) { <span id="L1636" class="LineNr">1636 </span> 68/push 0x13/imm32 <span id="L1637" class="LineNr">1637 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1638" class="LineNr">1638 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1639" class="LineNr">1639 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1639" class="LineNr">1639 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1640" class="LineNr">1640 </span> 50/push-eax <span id="L1641" class="LineNr">1641 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1642" class="LineNr">1642 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1642" class="LineNr">1642 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1643" class="LineNr">1643 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1644" class="LineNr">1644 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1645" class="LineNr">1645 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1644,9 +1644,9 @@ if ('onhashchange' in window) { <span id="L1654" class="LineNr">1654 </span> <span class="subxComment"># setup</span> <span id="L1655" class="LineNr">1655 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1656" class="LineNr">1656 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1657" class="LineNr">1657 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1657" class="LineNr">1657 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1658" class="LineNr">1658 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1659" class="LineNr">1659 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1659" class="LineNr">1659 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1660" class="LineNr">1660 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1661" class="LineNr">1661 </span> 81 0/subop/add %esp 4/imm32 <span id="L1662" class="LineNr">1662 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1656,15 +1656,15 @@ if ('onhashchange' in window) { <span id="L1666" class="LineNr">1666 </span> <span class="subxComment"># write(_test-input-stream, " ) ")</span> <span id="L1667" class="LineNr">1667 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1668" class="LineNr">1668 </span> 68/push <span class="Constant">" ) "</span>/imm32 -<span id="L1669" class="LineNr">1669 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1669" class="LineNr">1669 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1670" class="LineNr">1670 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1671" class="LineNr">1671 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1671" class="LineNr">1671 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1672" class="LineNr">1672 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1673" class="LineNr">1673 </span> 81 0/subop/add %esp 8/imm32 <span id="L1674" class="LineNr">1674 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1675" class="LineNr">1675 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1676" class="LineNr">1676 </span> 51/push-ecx -<span id="L1677" class="LineNr">1677 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1677" class="LineNr">1677 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1678" class="LineNr">1678 </span> <span class="subxS2Comment"># . . call</span> <span id="L1679" class="LineNr">1679 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1680" class="LineNr">1680 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1675,7 +1675,7 @@ if ('onhashchange' in window) { <span id="L1685" class="LineNr">1685 </span> 68/push 0/imm32 <span id="L1686" class="LineNr">1686 </span> ff 6/subop/push *ecx <span id="L1687" class="LineNr">1687 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1688" class="LineNr">1688 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1688" class="LineNr">1688 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1689" class="LineNr">1689 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1690" class="LineNr">1690 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1691" class="LineNr">1691 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</span> @@ -1684,7 +1684,7 @@ if ('onhashchange' in window) { <span id="L1694" class="LineNr">1694 </span> 68/push 0/imm32 <span id="L1695" class="LineNr">1695 </span> ff 6/subop/push *(ecx+4) <span id="L1696" class="LineNr">1696 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1697" class="LineNr">1697 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1697" class="LineNr">1697 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1698" class="LineNr">1698 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1699" class="LineNr">1699 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1700" class="LineNr">1700 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1699,9 +1699,9 @@ if ('onhashchange' in window) { <span id="L1709" class="LineNr">1709 </span> <span class="subxComment"># setup</span> <span id="L1710" class="LineNr">1710 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1711" class="LineNr">1711 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1712" class="LineNr">1712 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1712" class="LineNr">1712 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1713" class="LineNr">1713 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1714" class="LineNr">1714 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1714" class="LineNr">1714 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1716" class="LineNr">1716 </span> 81 0/subop/add %esp 4/imm32 <span id="L1717" class="LineNr">1717 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1711,15 +1711,15 @@ if ('onhashchange' in window) { <span id="L1721" class="LineNr">1721 </span> <span class="subxComment"># write(_test-input-stream, " ) # abc ")</span> <span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1723" class="LineNr">1723 </span> 68/push <span class="Constant">" ) # abc "</span>/imm32 -<span id="L1724" class="LineNr">1724 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1724" class="LineNr">1724 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1725" class="LineNr">1725 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1726" class="LineNr">1726 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1726" class="LineNr">1726 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1727" class="LineNr">1727 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1728" class="LineNr">1728 </span> 81 0/subop/add %esp 8/imm32 <span id="L1729" class="LineNr">1729 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1730" class="LineNr">1730 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1731" class="LineNr">1731 </span> 51/push-ecx -<span id="L1732" class="LineNr">1732 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1732" class="LineNr">1732 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1733" class="LineNr">1733 </span> <span class="subxS2Comment"># . . call</span> <span id="L1734" class="LineNr">1734 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1735" class="LineNr">1735 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1730,7 +1730,7 @@ if ('onhashchange' in window) { <span id="L1740" class="LineNr">1740 </span> 68/push 0/imm32 <span id="L1741" class="LineNr">1741 </span> ff 6/subop/push *ecx <span id="L1742" class="LineNr">1742 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1743" class="LineNr">1743 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1743" class="LineNr">1743 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1744" class="LineNr">1744 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1745" class="LineNr">1745 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1746" class="LineNr">1746 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</span> @@ -1739,7 +1739,7 @@ if ('onhashchange' in window) { <span id="L1749" class="LineNr">1749 </span> 68/push 0/imm32 <span id="L1750" class="LineNr">1750 </span> ff 6/subop/push *(ecx+4) <span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1752" class="LineNr">1752 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1752" class="LineNr">1752 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1753" class="LineNr">1753 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1754" class="LineNr">1754 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1755" class="LineNr">1755 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1754,9 +1754,9 @@ if ('onhashchange' in window) { <span id="L1764" class="LineNr">1764 </span> <span class="subxComment"># setup</span> <span id="L1765" class="LineNr">1765 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1766" class="LineNr">1766 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1767" class="LineNr">1767 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1767" class="LineNr">1767 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1768" class="LineNr">1768 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1769" class="LineNr">1769 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1769" class="LineNr">1769 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1770" class="LineNr">1770 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1771" class="LineNr">1771 </span> 81 0/subop/add %esp 4/imm32 <span id="L1772" class="LineNr">1772 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1766,15 +1766,15 @@ if ('onhashchange' in window) { <span id="L1776" class="LineNr">1776 </span> <span class="subxComment"># write(_test-input-stream, " )\n")</span> <span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1778" class="LineNr">1778 </span> 68/push <span class="Constant">" )\n"</span>/imm32 -<span id="L1779" class="LineNr">1779 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1779" class="LineNr">1779 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1780" class="LineNr">1780 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1781" class="LineNr">1781 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1781" class="LineNr">1781 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1782" class="LineNr">1782 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1783" class="LineNr">1783 </span> 81 0/subop/add %esp 8/imm32 <span id="L1784" class="LineNr">1784 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1785" class="LineNr">1785 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1786" class="LineNr">1786 </span> 51/push-ecx -<span id="L1787" class="LineNr">1787 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1787" class="LineNr">1787 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1788" class="LineNr">1788 </span> <span class="subxS2Comment"># . . call</span> <span id="L1789" class="LineNr">1789 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1790" class="LineNr">1790 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1785,7 +1785,7 @@ if ('onhashchange' in window) { <span id="L1795" class="LineNr">1795 </span> 68/push 0/imm32 <span id="L1796" class="LineNr">1796 </span> ff 6/subop/push *ecx <span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1798" class="LineNr">1798 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1798" class="LineNr">1798 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1799" class="LineNr">1799 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1800" class="LineNr">1800 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1801" class="LineNr">1801 </span> <span class="subxComment"># check-ints-equal(slice->end, 0, msg)</span> @@ -1794,7 +1794,7 @@ if ('onhashchange' in window) { <span id="L1804" class="LineNr">1804 </span> 68/push 0/imm32 <span id="L1805" class="LineNr">1805 </span> ff 6/subop/push *(ecx+4) <span id="L1806" class="LineNr">1806 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1807" class="LineNr">1807 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1807" class="LineNr">1807 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1808" class="LineNr">1808 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1809" class="LineNr">1809 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1810" class="LineNr">1810 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1809,9 +1809,9 @@ if ('onhashchange' in window) { <span id="L1819" class="LineNr">1819 </span> <span class="subxComment"># setup</span> <span id="L1820" class="LineNr">1820 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1821" class="LineNr">1821 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1822" class="LineNr">1822 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1822" class="LineNr">1822 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1823" class="LineNr">1823 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1824" class="LineNr">1824 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1824" class="LineNr">1824 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1826" class="LineNr">1826 </span> 81 0/subop/add %esp 4/imm32 <span id="L1827" class="LineNr">1827 </span> <span class="subxComment"># var slice/ecx: slice</span> @@ -1821,15 +1821,15 @@ if ('onhashchange' in window) { <span id="L1831" class="LineNr">1831 </span> <span class="subxComment"># write(_test-input-stream, " abc) # def")</span> <span id="L1832" class="LineNr">1832 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1833" class="LineNr">1833 </span> 68/push <span class="Constant">" abc) # def"</span>/imm32 -<span id="L1834" class="LineNr">1834 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1834" class="LineNr">1834 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1835" class="LineNr">1835 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1836" class="LineNr">1836 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1836" class="LineNr">1836 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1837" class="LineNr">1837 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1838" class="LineNr">1838 </span> 81 0/subop/add %esp 8/imm32 <span id="L1839" class="LineNr">1839 </span> <span class="subxComment"># next-word-string-or-expression-without-metadata(_test-input-stream, slice)</span> <span id="L1840" class="LineNr">1840 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1841" class="LineNr">1841 </span> 51/push-ecx -<span id="L1842" class="LineNr">1842 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1842" class="LineNr">1842 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1843" class="LineNr">1843 </span> <span class="subxS2Comment"># . . call</span> <span id="L1844" class="LineNr">1844 </span> e8/call <a href='calls.subx.html#L800'>next-word-string-or-expression-without-metadata</a>/disp32 <span id="L1845" class="LineNr">1845 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1841,10 +1841,10 @@ if ('onhashchange' in window) { <span id="L1851" class="LineNr">1851 </span> 68/push 0xd/imm32 <span id="L1852" class="LineNr">1852 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> <span id="L1853" class="LineNr">1853 </span> 8b/-> *ecx 0/r32/eax -<span id="L1854" class="LineNr">1854 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1854" class="LineNr">1854 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1855" class="LineNr">1855 </span> 50/push-eax <span id="L1856" class="LineNr">1856 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1857" class="LineNr">1857 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1857" class="LineNr">1857 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1858" class="LineNr">1858 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1859" class="LineNr">1859 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1860" class="LineNr">1860 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> @@ -1854,10 +1854,10 @@ if ('onhashchange' in window) { <span id="L1864" class="LineNr">1864 </span> 68/push 0x10/imm32 <span id="L1865" class="LineNr">1865 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> <span id="L1866" class="LineNr">1866 </span> 8b/-> *(ecx+4) 0/r32/eax -<span id="L1867" class="LineNr">1867 </span> 81 5/subop/subtract %eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1867" class="LineNr">1867 </span> 81 5/subop/subtract %eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1868" class="LineNr">1868 </span> 50/push-eax <span id="L1869" class="LineNr">1869 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1870" class="LineNr">1870 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1870" class="LineNr">1870 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1871" class="LineNr">1871 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1872" class="LineNr">1872 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L1873" class="LineNr">1873 </span> <span class="subxS1Comment"># . epilogue</span> diff --git a/html/apps/crenshaw2-1.subx.html b/html/linux/crenshaw2-1.subx.html index 387e33a4..0973ab35 100644 --- a/html/apps/crenshaw2-1.subx.html +++ b/html/linux/crenshaw2-1.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/crenshaw2-1.subx</title> +<title>Mu - linux/crenshaw2-1.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -57,15 +57,15 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/crenshaw2-1.subx'>https://github.com/akkartik/mu/blob/main/apps/crenshaw2-1.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1.subx'>https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Port of <a href="https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas">https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas</a></span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># which corresponds to the section "single digits" in <a href="https://compilers.iecc.com/crenshaw/tutor2.txt">https://compilers.iecc.com/crenshaw/tutor2.txt</a></span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># except that we support hex digits.</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To run:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/crenshaw2-1.subx -o apps/crenshaw2-1</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '3' |./bootstrap run apps/crenshaw2-1</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/crenshaw2-1.subx -o apps/crenshaw2-1</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '3' |bootstrap/bootstrap run crenshaw2-1</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Expected output:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># # syscall(exit, 3)</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># bb/copy-to-ebx 3/imm32</span> @@ -73,14 +73,14 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># cd/syscall 0x80/imm8</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment">#</span> <span id="L14" class="LineNr"> 14 </span><span class="subxComment"># To run the generated output:</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ echo '3' |./bootstrap run apps/crenshaw2-1 > z1.subx</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ ./bootstrap translate init.linux z1.subx -o z1</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># $ ./bootstrap run z1</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ echo '3' |bootstrap/bootstrap run crenshaw2-1 > z1.subx</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ bootstrap/bootstrap translate z1.subx -o z1</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># $ bootstrap/bootstrap run z1</span> <span id="L18" class="LineNr"> 18 </span><span class="subxComment"># $ echo $?</span> <span id="L19" class="LineNr"> 19 </span><span class="subxComment"># 3</span> <span id="L20" class="LineNr"> 20 </span><span class="subxComment">#</span> <span id="L21" class="LineNr"> 21 </span><span class="subxComment"># Stdin must contain just a single hex digit. Other input will print an error:</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo 'xyz' |./bootstrap run apps/crenshaw2-1</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo 'xyz' |bootstrap/bootstrap run crenshaw2-1</span> <span id="L23" class="LineNr"> 23 </span><span class="subxComment"># Error: integer expected</span> <span id="L24" class="LineNr"> 24 </span><span class="subxComment">#</span> <span id="L25" class="LineNr"> 25 </span><span class="subxComment"># Names in this file sometimes follow Crenshaw's original rather than my usual</span> @@ -98,10 +98,10 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># initialize heap</span> <span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L40" class="LineNr"> 40 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L40" class="LineNr"> 40 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L42" class="LineNr"> 42 </span> <span class="subxS2Comment"># . . call</span> -<span id="L43" class="LineNr"> 43 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L43" class="LineNr"> 43 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L44" class="LineNr"> 44 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L45" class="LineNr"> 45 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L46" class="LineNr"> 46 </span> @@ -115,7 +115,7 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L55" class="LineNr"> 55 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . call</span> -<span id="L57" class="LineNr"> 57 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L57" class="LineNr"> 57 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . if (eax == false) goto run-main</span> @@ -124,7 +124,7 @@ if ('onhashchange' in window) { <span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># run-tests()</span> <span id="L64" class="LineNr"> 64 </span> e8/call run-tests/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L66" class="LineNr"> 66 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L66" class="LineNr"> 66 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L67" class="LineNr"> 67 </span> eb/jump $main:end/disp8 <span id="L68" class="LineNr"> 68 </span><span class="Constant">$run-main</span>: <span id="L69" class="LineNr"> 69 </span> <span class="subxH1Comment"># - otherwise read a program from stdin and emit its translation to stdout</span> @@ -133,7 +133,7 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> 68/push 0/imm32/exit-descriptor <span id="L73" class="LineNr"> 73 </span> 68/push 2/imm32/stderr <span id="L74" class="LineNr"> 74 </span> 68/push 1/imm32/stdout -<span id="L75" class="LineNr"> 75 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L75" class="LineNr"> 75 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> <span id="L77" class="LineNr"> 77 </span> e8/call <a href='crenshaw2-1.subx.html#L86'>compile</a>/disp32 <span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L81" class="LineNr"> 81 </span> bb/copy-to-ebx 0/imm32 <span id="L82" class="LineNr"> 82 </span><span class="Constant">$main:end</span>: -<span id="L83" class="LineNr"> 83 </span> e8/call syscall_exit/disp32 +<span id="L83" class="LineNr"> 83 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L84" class="LineNr"> 84 </span> <span id="L85" class="LineNr"> 85 </span><span class="subxComment"># the main entry point</span> <span id="L86" class="LineNr"> 86 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in: (addr buffered-file), out: fd or (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> @@ -173,7 +173,7 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> <span id="L113" class="LineNr">113 </span> 51/push-ecx <span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L115" class="LineNr">115 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L118" class="LineNr">118 </span> <span class="subxComment"># read a digit from 'in' into 'num'</span> @@ -197,7 +197,7 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span> 68/push <span class="Constant">"bb/copy-to-ebx "</span>/imm32 <span id="L137" class="LineNr">137 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . call</span> -<span id="L139" class="LineNr">139 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L139" class="LineNr">139 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L141" class="LineNr">141 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . write-stream(out, num)</span> @@ -205,15 +205,15 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr">144 </span> 51/push-ecx/num <span id="L145" class="LineNr">145 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='../113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L147" class="LineNr">147 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 <span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . write(out, Newline)</span> <span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L152" class="LineNr">152 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L152" class="LineNr">152 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 <span id="L153" class="LineNr">153 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L155" class="LineNr">155 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L155" class="LineNr">155 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L157" class="LineNr">157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L158" class="LineNr">158 </span> <span class="subxS1Comment"># . write(out, "b8/copy-to-eax 1/imm32/exit\n")</span> @@ -221,7 +221,7 @@ if ('onhashchange' in window) { <span id="L160" class="LineNr">160 </span> 68/push <span class="Constant">"b8/copy-to-eax 1/imm32/exit\n"</span>/imm32 <span id="L161" class="LineNr">161 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L163" class="LineNr">163 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L163" class="LineNr">163 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . write(out, "cd/syscall 0x80/imm8\n")</span> @@ -229,7 +229,7 @@ if ('onhashchange' in window) { <span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"cd/syscall 0x80/imm8\n"</span>/imm32 <span id="L169" class="LineNr">169 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> -<span id="L171" class="LineNr">171 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L174" class="LineNr">174 </span><span class="Constant">$compile:end</span>: @@ -247,7 +247,7 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr">186 </span><span class="subxComment"># 'in' (rest). We leave the next byte from 'in' into 'Look' on exit.</span> <span id="L187" class="LineNr">187 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> <span id="L188" class="LineNr">188 </span> <span class="subxComment"># pseudocode:</span> -<span id="L189" class="LineNr">189 </span> <span class="subxComment"># if (!is-digit?(Look)) expected(ed, err, "integer")</span> +<span id="L189" class="LineNr">189 </span> <span class="subxComment"># if (!digit?(Look)) expected(ed, err, "integer")</span> <span id="L190" class="LineNr">190 </span> <span class="subxComment"># if out->write >= out->size</span> <span id="L191" class="LineNr">191 </span> <span class="subxComment"># write(err, "Error: too many digits in number\n")</span> <span id="L192" class="LineNr">192 </span> <span class="subxComment"># stop(ed, 1)</span> @@ -268,12 +268,12 @@ if ('onhashchange' in window) { <span id="L207" class="LineNr">207 </span> <span class="subxS1Comment"># . prologue</span> <span id="L208" class="LineNr">208 </span> 55/push-ebp <span id="L209" class="LineNr">209 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L210" class="LineNr">210 </span> <span class="subxH1Comment"># - if (is-digit?(Look)) expected(ed, err, "integer")</span> -<span id="L211" class="LineNr">211 </span> <span class="subxS1Comment"># . eax = is-digit?(Look)</span> +<span id="L210" class="LineNr">210 </span> <span class="subxH1Comment"># - if (digit?(Look)) expected(ed, err, "integer")</span> +<span id="L211" class="LineNr">211 </span> <span class="subxS1Comment"># . eax = digit?(Look)</span> <span id="L212" class="LineNr">212 </span> <span class="subxS2Comment"># . . push args</span> <span id="L213" class="LineNr">213 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='crenshaw2-1.subx.html#L553'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># push *Look</span> <span id="L214" class="LineNr">214 </span> <span class="subxS2Comment"># . . call</span> -<span id="L215" class="LineNr">215 </span> e8/call <a href='crenshaw2-1.subx.html#L531'>is-digit?</a>/disp32 +<span id="L215" class="LineNr">215 </span> e8/call <a href='crenshaw2-1.subx.html#L531'>digit?</a>/disp32 <span id="L216" class="LineNr">216 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L217" class="LineNr">217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L218" class="LineNr">218 </span> <span class="subxS1Comment"># . if (eax == false)</span> @@ -316,7 +316,7 @@ if ('onhashchange' in window) { <span id="L255" class="LineNr">255 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L256" class="LineNr">256 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> <span id="L257" class="LineNr">257 </span> <span class="subxS2Comment"># . . call</span> -<span id="L258" class="LineNr">258 </span> e8/call <a href='../114error.subx.html#L9'>error</a>/disp32 <span class="subxComment"># never returns</span> +<span id="L258" class="LineNr">258 </span> e8/call <a href='114error.subx.html#L9'>error</a>/disp32 <span class="subxComment"># never returns</span> <span id="L259" class="LineNr">259 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L260" class="LineNr">260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L261" class="LineNr">261 </span><span class="Constant">$get-num:stage2</span>: @@ -357,39 +357,39 @@ if ('onhashchange' in window) { <span id="L296" class="LineNr">296 </span> <span class="subxComment"># clear all streams</span> <span id="L297" class="LineNr">297 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L298" class="LineNr">298 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L299" class="LineNr">299 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L299" class="LineNr">299 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L300" class="LineNr">300 </span> <span class="subxS2Comment"># . . call</span> -<span id="L301" class="LineNr">301 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L301" class="LineNr">301 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L302" class="LineNr">302 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L303" class="LineNr">303 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L304" class="LineNr">304 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L305" class="LineNr">305 </span> <span class="subxS2Comment"># . . push args</span> <span id="L306" class="LineNr">306 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L307" class="LineNr">307 </span> <span class="subxS2Comment"># . . call</span> -<span id="L308" class="LineNr">308 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L308" class="LineNr">308 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L309" class="LineNr">309 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L310" class="LineNr">310 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L311" class="LineNr">311 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L312" class="LineNr">312 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L313" class="LineNr">313 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L313" class="LineNr">313 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L314" class="LineNr">314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L315" class="LineNr">315 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L315" class="LineNr">315 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L316" class="LineNr">316 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L317" class="LineNr">317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L318" class="LineNr">318 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L319" class="LineNr">319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L320" class="LineNr">320 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L320" class="LineNr">320 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L321" class="LineNr">321 </span> <span class="subxS2Comment"># . . call</span> -<span id="L322" class="LineNr">322 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L322" class="LineNr">322 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L323" class="LineNr">323 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L324" class="LineNr">324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L325" class="LineNr">325 </span> <span class="subxComment"># initialize 'in'</span> <span id="L326" class="LineNr">326 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> <span id="L327" class="LineNr">327 </span> <span class="subxS2Comment"># . . push args</span> <span id="L328" class="LineNr">328 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L329" class="LineNr">329 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L329" class="LineNr">329 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L330" class="LineNr">330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L331" class="LineNr">331 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L331" class="LineNr">331 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L333" class="LineNr">333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L334" class="LineNr">334 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> @@ -401,13 +401,13 @@ if ('onhashchange' in window) { <span id="L340" class="LineNr">340 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num <span id="L341" class="LineNr">341 </span> 50/push-eax/ed <span id="L342" class="LineNr">342 </span> <span class="subxS2Comment"># . . call</span> -<span id="L343" class="LineNr">343 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L343" class="LineNr">343 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L344" class="LineNr">344 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L345" class="LineNr">345 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L346" class="LineNr">346 </span> <span class="subxComment"># prime the pump</span> <span id="L347" class="LineNr">347 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> <span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L349" class="LineNr">349 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L349" class="LineNr">349 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L350" class="LineNr">350 </span> <span class="subxS2Comment"># . . call</span> <span id="L351" class="LineNr">351 </span> e8/call <a href='crenshaw2-1.subx.html#L508'>get-char</a>/disp32 <span id="L352" class="LineNr">352 </span> <span class="subxS2Comment"># . . discard args</span> @@ -415,9 +415,9 @@ if ('onhashchange' in window) { <span id="L354" class="LineNr">354 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L355" class="LineNr">355 </span> <span class="subxS2Comment"># . . push args</span> <span id="L356" class="LineNr">356 </span> 50/push-eax/ed -<span id="L357" class="LineNr">357 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 -<span id="L358" class="LineNr">358 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L359" class="LineNr">359 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L357" class="LineNr">357 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L358" class="LineNr">358 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L359" class="LineNr">359 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . call</span> <span id="L361" class="LineNr">361 </span> e8/call <a href='crenshaw2-1.subx.html#L187'>get-num</a>/disp32 <span id="L362" class="LineNr">362 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -427,10 +427,10 @@ if ('onhashchange' in window) { <span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . push args</span> <span id="L367" class="LineNr">367 </span> 68/push <span class="Constant">"F - test-get-num-reads-single-digit"</span>/imm32 <span id="L368" class="LineNr">368 </span> 68/push 0x33/imm32 -<span id="L369" class="LineNr">369 </span> b8/copy-to-eax <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L369" class="LineNr">369 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L370" class="LineNr">370 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> <span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . call</span> -<span id="L372" class="LineNr">372 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L372" class="LineNr">372 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L373" class="LineNr">373 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L374" class="LineNr">374 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L375" class="LineNr">375 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -446,39 +446,39 @@ if ('onhashchange' in window) { <span id="L385" class="LineNr">385 </span> <span class="subxComment"># clear all streams</span> <span id="L386" class="LineNr">386 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L387" class="LineNr">387 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L388" class="LineNr">388 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L388" class="LineNr">388 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . call</span> -<span id="L390" class="LineNr">390 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L390" class="LineNr">390 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L391" class="LineNr">391 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L392" class="LineNr">392 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L393" class="LineNr">393 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L394" class="LineNr">394 </span> <span class="subxS2Comment"># . . push args</span> <span id="L395" class="LineNr">395 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L396" class="LineNr">396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L397" class="LineNr">397 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L397" class="LineNr">397 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L398" class="LineNr">398 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L399" class="LineNr">399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L400" class="LineNr">400 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L401" class="LineNr">401 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L402" class="LineNr">402 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L402" class="LineNr">402 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L403" class="LineNr">403 </span> <span class="subxS2Comment"># . . call</span> -<span id="L404" class="LineNr">404 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L404" class="LineNr">404 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L405" class="LineNr">405 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L406" class="LineNr">406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L407" class="LineNr">407 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L408" class="LineNr">408 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L409" class="LineNr">409 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L409" class="LineNr">409 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L410" class="LineNr">410 </span> <span class="subxS2Comment"># . . call</span> -<span id="L411" class="LineNr">411 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L411" class="LineNr">411 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L413" class="LineNr">413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L414" class="LineNr">414 </span> <span class="subxComment"># initialize 'in'</span> <span id="L415" class="LineNr">415 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> <span id="L416" class="LineNr">416 </span> <span class="subxS2Comment"># . . push args</span> <span id="L417" class="LineNr">417 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L418" class="LineNr">418 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L418" class="LineNr">418 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . call</span> -<span id="L420" class="LineNr">420 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L420" class="LineNr">420 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L421" class="LineNr">421 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L422" class="LineNr">422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L423" class="LineNr">423 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> @@ -490,16 +490,16 @@ if ('onhashchange' in window) { <span id="L429" class="LineNr">429 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num <span id="L430" class="LineNr">430 </span> 50/push-eax/ed <span id="L431" class="LineNr">431 </span> <span class="subxS2Comment"># . . call</span> -<span id="L432" class="LineNr">432 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L432" class="LineNr">432 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L433" class="LineNr">433 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L434" class="LineNr">434 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L435" class="LineNr">435 </span> <span class="subxComment"># *don't* prime the pump</span> <span id="L436" class="LineNr">436 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L437" class="LineNr">437 </span> <span class="subxS2Comment"># . . push args</span> <span id="L438" class="LineNr">438 </span> 50/push-eax/ed -<span id="L439" class="LineNr">439 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 -<span id="L440" class="LineNr">440 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L441" class="LineNr">441 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L439" class="LineNr">439 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L440" class="LineNr">440 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L441" class="LineNr">441 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L442" class="LineNr">442 </span> <span class="subxS2Comment"># . . call</span> <span id="L443" class="LineNr">443 </span> e8/call <a href='crenshaw2-1.subx.html#L187'>get-num</a>/disp32 <span id="L444" class="LineNr">444 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -513,7 +513,7 @@ if ('onhashchange' in window) { <span id="L452" class="LineNr">452 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L453" class="LineNr">453 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L454" class="LineNr">454 </span> <span class="subxS2Comment"># . . call</span> -<span id="L455" class="LineNr">455 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L455" class="LineNr">455 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L456" class="LineNr">456 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L457" class="LineNr">457 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L458" class="LineNr">458 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -533,7 +533,7 @@ if ('onhashchange' in window) { <span id="L472" class="LineNr">472 </span> 68/push <span class="Constant">"Error: "</span>/imm32 <span id="L473" class="LineNr">473 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L474" class="LineNr">474 </span> <span class="subxS2Comment"># . . call</span> -<span id="L475" class="LineNr">475 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L475" class="LineNr">475 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L476" class="LineNr">476 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L477" class="LineNr">477 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L478" class="LineNr">478 </span> <span class="subxComment"># write(f, s)</span> @@ -541,7 +541,7 @@ if ('onhashchange' in window) { <span id="L480" class="LineNr">480 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L481" class="LineNr">481 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L482" class="LineNr">482 </span> <span class="subxS2Comment"># . . call</span> -<span id="L483" class="LineNr">483 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L483" class="LineNr">483 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L484" class="LineNr">484 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L485" class="LineNr">485 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L486" class="LineNr">486 </span> <span class="subxComment"># write(f, " expected\n")</span> @@ -549,7 +549,7 @@ if ('onhashchange' in window) { <span id="L488" class="LineNr">488 </span> 68/push <span class="Constant">" expected\n"</span>/imm32 <span id="L489" class="LineNr">489 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L490" class="LineNr">490 </span> <span class="subxS2Comment"># . . call</span> -<span id="L491" class="LineNr">491 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L491" class="LineNr">491 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L492" class="LineNr">492 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L493" class="LineNr">493 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L494" class="LineNr">494 </span> <span class="subxComment"># stop(ed, 1)</span> @@ -557,7 +557,7 @@ if ('onhashchange' in window) { <span id="L496" class="LineNr">496 </span> 68/push 1/imm32 <span id="L497" class="LineNr">497 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L498" class="LineNr">498 </span> <span class="subxS2Comment"># . . call</span> -<span id="L499" class="LineNr">499 </span> e8/call <a href='../110stop.subx.html#L92'>stop</a>/disp32 +<span id="L499" class="LineNr">499 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 <span id="L500" class="LineNr">500 </span> <span class="subxComment"># should never get past this point</span> <span id="L501" class="LineNr">501 </span><span class="Constant">$expected:dead-end</span>: <span id="L502" class="LineNr">502 </span> <span class="subxS1Comment"># . epilogue</span> @@ -576,7 +576,7 @@ if ('onhashchange' in window) { <span id="L515" class="LineNr">515 </span> <span class="subxS2Comment"># . . push args</span> <span id="L516" class="LineNr">516 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L517" class="LineNr">517 </span> <span class="subxS2Comment"># . . call</span> -<span id="L518" class="LineNr">518 </span> e8/call <a href='../112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L518" class="LineNr">518 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 <span id="L519" class="LineNr">519 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L520" class="LineNr">520 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L521" class="LineNr">521 </span> <span class="subxComment"># save eax to Look</span> @@ -589,7 +589,7 @@ if ('onhashchange' in window) { <span id="L528" class="LineNr">528 </span> 5d/pop-to-ebp <span id="L529" class="LineNr">529 </span> c3/return <span id="L530" class="LineNr">530 </span> -<span id="L531" class="LineNr">531 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span> +<span id="L531" class="LineNr">531 </span><span class="subxFunction">digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span> <span id="L532" class="LineNr">532 </span> <span class="subxS1Comment"># . prologue</span> <span id="L533" class="LineNr">533 </span> 55/push-ebp <span id="L534" class="LineNr">534 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -597,13 +597,13 @@ if ('onhashchange' in window) { <span id="L536" class="LineNr">536 </span> b8/copy-to-eax 0/imm32 <span id="L537" class="LineNr">537 </span> <span class="subxComment"># if (c < '0') return false</span> <span id="L538" class="LineNr">538 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x30/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L539" class="LineNr">539 </span> 7c/jump-if-< $is-digit?:end/disp8 +<span id="L539" class="LineNr">539 </span> 7c/jump-if-< $digit?:end/disp8 <span id="L540" class="LineNr">540 </span> <span class="subxComment"># if (c > '9') return false</span> <span id="L541" class="LineNr">541 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x39/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L542" class="LineNr">542 </span> 7f/jump-if-> $is-digit?:end/disp8 +<span id="L542" class="LineNr">542 </span> 7f/jump-if-> $digit?:end/disp8 <span id="L543" class="LineNr">543 </span> <span class="subxComment"># otherwise return true</span> <span id="L544" class="LineNr">544 </span> b8/copy-to-eax 1/imm32 -<span id="L545" class="LineNr">545 </span><span class="Constant">$is-digit?:end</span>: +<span id="L545" class="LineNr">545 </span><span class="Constant">$digit?:end</span>: <span id="L546" class="LineNr">546 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L547" class="LineNr">547 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> <span id="L548" class="LineNr">548 </span> 5d/pop-to-ebp diff --git a/html/apps/crenshaw2-1b.subx.html b/html/linux/crenshaw2-1b.subx.html index c9114fa5..f7efb75a 100644 --- a/html/apps/crenshaw2-1b.subx.html +++ b/html/linux/crenshaw2-1b.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/crenshaw2-1b.subx</title> +<title>Mu - linux/crenshaw2-1b.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -57,15 +57,15 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/crenshaw2-1b.subx'>https://github.com/akkartik/mu/blob/main/apps/crenshaw2-1b.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1b.subx'>https://github.com/akkartik/mu/blob/main/linux/crenshaw2-1b.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Port of <a href="https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas">https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas</a></span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># which corresponds to the section "single digits" in <a href="https://compilers.iecc.com/crenshaw/tutor2.txt">https://compilers.iecc.com/crenshaw/tutor2.txt</a></span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># except that we support hex numbers of multiple digits.</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To run:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/crenshaw2-1b.subx -o apps/crenshaw2-1b</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '1a' |./bootstrap run apps/crenshaw2-1b</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/crenshaw2-1b.subx -o apps/crenshaw2-1b</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '1a' |bootstrap/bootstrap run crenshaw2-1b</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Expected output:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># # syscall(exit, 1a)</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># bb/copy-to-ebx 3/imm32</span> @@ -73,14 +73,14 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># cd/syscall 0x80/imm8</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment">#</span> <span id="L14" class="LineNr"> 14 </span><span class="subxComment"># To run the generated output:</span> -<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ echo '1a' |./bootstrap run apps/crenshaw2-1b > z1.subx</span> -<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ ./bootstrap translate init.linux z1.subx -o z1</span> -<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># $ ./bootstrap run z1</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ echo '1a' |bootstrap/bootstrap run crenshaw2-1b > z1.subx</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># $ bootstrap/bootstrap translate z1.subx -o z1</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># $ bootstrap/bootstrap run z1</span> <span id="L18" class="LineNr"> 18 </span><span class="subxComment"># $ echo $?</span> <span id="L19" class="LineNr"> 19 </span><span class="subxComment"># 26 # 0x1a in decimal</span> <span id="L20" class="LineNr"> 20 </span><span class="subxComment">#</span> <span id="L21" class="LineNr"> 21 </span><span class="subxComment"># Stdin must contain just a single hex digit. Other input will print an error:</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo 'xyz' |./bootstrap run apps/crenshaw2-1b</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo 'xyz' |bootstrap/bootstrap run crenshaw2-1b</span> <span id="L23" class="LineNr"> 23 </span><span class="subxComment"># Error: integer expected</span> <span id="L24" class="LineNr"> 24 </span><span class="subxComment">#</span> <span id="L25" class="LineNr"> 25 </span><span class="subxComment"># Names in this file sometimes follow Crenshaw's original rather than my usual</span> @@ -98,10 +98,10 @@ if ('onhashchange' in window) { <span id="L37" class="LineNr"> 37 </span> <span class="subxComment"># initialize heap</span> <span id="L38" class="LineNr"> 38 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L39" class="LineNr"> 39 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L40" class="LineNr"> 40 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L40" class="LineNr"> 40 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L42" class="LineNr"> 42 </span> <span class="subxS2Comment"># . . call</span> -<span id="L43" class="LineNr"> 43 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L43" class="LineNr"> 43 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L44" class="LineNr"> 44 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L45" class="LineNr"> 45 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L46" class="LineNr"> 46 </span> @@ -115,7 +115,7 @@ if ('onhashchange' in window) { <span id="L54" class="LineNr"> 54 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L55" class="LineNr"> 55 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L56" class="LineNr"> 56 </span> <span class="subxS2Comment"># . . call</span> -<span id="L57" class="LineNr"> 57 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L57" class="LineNr"> 57 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L59" class="LineNr"> 59 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L60" class="LineNr"> 60 </span> <span class="subxS1Comment"># . if (eax == false) goto run-main</span> @@ -124,7 +124,7 @@ if ('onhashchange' in window) { <span id="L63" class="LineNr"> 63 </span> <span class="subxComment"># run-tests()</span> <span id="L64" class="LineNr"> 64 </span> e8/call run-tests/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L66" class="LineNr"> 66 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L66" class="LineNr"> 66 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L67" class="LineNr"> 67 </span> eb/jump $main:end/disp8 <span id="L68" class="LineNr"> 68 </span><span class="Constant">$run-main</span>: <span id="L69" class="LineNr"> 69 </span> <span class="subxH1Comment"># - otherwise read a program from stdin and emit its translation to stdout</span> @@ -133,7 +133,7 @@ if ('onhashchange' in window) { <span id="L72" class="LineNr"> 72 </span> 68/push 0/imm32/exit-descriptor <span id="L73" class="LineNr"> 73 </span> 68/push 2/imm32/stderr <span id="L74" class="LineNr"> 74 </span> 68/push 1/imm32/stdout -<span id="L75" class="LineNr"> 75 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L75" class="LineNr"> 75 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . call</span> <span id="L77" class="LineNr"> 77 </span> e8/call <a href='crenshaw2-1b.subx.html#L86'>compile</a>/disp32 <span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . discard args</span> @@ -141,7 +141,7 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L81" class="LineNr"> 81 </span> bb/copy-to-ebx 0/imm32 <span id="L82" class="LineNr"> 82 </span><span class="Constant">$main:end</span>: -<span id="L83" class="LineNr"> 83 </span> e8/call syscall_exit/disp32 +<span id="L83" class="LineNr"> 83 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L84" class="LineNr"> 84 </span> <span id="L85" class="LineNr"> 85 </span><span class="subxComment"># the main entry point</span> <span id="L86" class="LineNr"> 86 </span><span class="subxFunction">compile</span>: <span class="subxComment"># in: (addr buffered-file), out: fd or (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> @@ -173,7 +173,7 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span> <span class="subxS2Comment"># . . push args</span> <span id="L113" class="LineNr">113 </span> 51/push-ecx <span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L115" class="LineNr">115 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L118" class="LineNr">118 </span> <span class="subxComment"># read a digit from 'in' into 'num'</span> @@ -197,7 +197,7 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr">136 </span> 68/push <span class="Constant">"bb/copy-to-ebx "</span>/imm32 <span id="L137" class="LineNr">137 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . call</span> -<span id="L139" class="LineNr">139 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L139" class="LineNr">139 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L140" class="LineNr">140 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L141" class="LineNr">141 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L142" class="LineNr">142 </span> <span class="subxS1Comment"># . write-stream(out, num)</span> @@ -205,15 +205,15 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr">144 </span> 51/push-ecx/num <span id="L145" class="LineNr">145 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L146" class="LineNr">146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr">147 </span> e8/call <a href='../113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L147" class="LineNr">147 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 <span id="L148" class="LineNr">148 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L149" class="LineNr">149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L150" class="LineNr">150 </span> <span class="subxS1Comment"># . write(out, Newline)</span> <span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L152" class="LineNr">152 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L152" class="LineNr">152 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 <span id="L153" class="LineNr">153 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L154" class="LineNr">154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L155" class="LineNr">155 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L155" class="LineNr">155 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L156" class="LineNr">156 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L157" class="LineNr">157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L158" class="LineNr">158 </span> <span class="subxS1Comment"># . write(out, "b8/copy-to-eax 1/imm32/exit\n")</span> @@ -221,7 +221,7 @@ if ('onhashchange' in window) { <span id="L160" class="LineNr">160 </span> 68/push <span class="Constant">"b8/copy-to-eax 1/imm32/exit\n"</span>/imm32 <span id="L161" class="LineNr">161 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L162" class="LineNr">162 </span> <span class="subxS2Comment"># . . call</span> -<span id="L163" class="LineNr">163 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L163" class="LineNr">163 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L164" class="LineNr">164 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L165" class="LineNr">165 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L166" class="LineNr">166 </span> <span class="subxS1Comment"># . write(out, "cd/syscall 0x80/imm8\n")</span> @@ -229,7 +229,7 @@ if ('onhashchange' in window) { <span id="L168" class="LineNr">168 </span> 68/push <span class="Constant">"cd/syscall 0x80/imm8\n"</span>/imm32 <span id="L169" class="LineNr">169 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L170" class="LineNr">170 </span> <span class="subxS2Comment"># . . call</span> -<span id="L171" class="LineNr">171 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L171" class="LineNr">171 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L172" class="LineNr">172 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L173" class="LineNr">173 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L174" class="LineNr">174 </span><span class="Constant">$compile:end</span>: @@ -247,7 +247,7 @@ if ('onhashchange' in window) { <span id="L186" class="LineNr">186 </span><span class="subxComment"># 'in' (rest). We leave the next byte from 'in' into 'Look' on exit.</span> <span id="L187" class="LineNr">187 </span><span class="subxFunction">get-num</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr stream byte), err: fd or (addr stream byte), ed: (addr exit-descriptor)</span> <span id="L188" class="LineNr">188 </span> <span class="subxComment"># pseudocode:</span> -<span id="L189" class="LineNr">189 </span> <span class="subxComment"># if (!is-digit?(Look)) expected(ed, err, "integer")</span> +<span id="L189" class="LineNr">189 </span> <span class="subxComment"># if (!digit?(Look)) expected(ed, err, "integer")</span> <span id="L190" class="LineNr">190 </span> <span class="subxComment"># do</span> <span id="L191" class="LineNr">191 </span> <span class="subxComment"># if out->write >= out->size</span> <span id="L192" class="LineNr">192 </span> <span class="subxComment"># write(err, "Error: too many digits in number\n")</span> @@ -255,7 +255,7 @@ if ('onhashchange' in window) { <span id="L194" class="LineNr">194 </span> <span class="subxComment"># out->data[out->write] = LSB(Look)</span> <span id="L195" class="LineNr">195 </span> <span class="subxComment"># ++out->write</span> <span id="L196" class="LineNr">196 </span> <span class="subxComment"># Look = get-char(in)</span> -<span id="L197" class="LineNr">197 </span> <span class="subxComment"># while is-digit?(Look)</span> +<span id="L197" class="LineNr">197 </span> <span class="subxComment"># while digit?(Look)</span> <span id="L198" class="LineNr">198 </span> <span class="subxComment"># This is complicated because I don't want to hard-code the error strategy in</span> <span id="L199" class="LineNr">199 </span> <span class="subxComment"># a general helper like write-byte-buffered. Maybe I should just create a</span> <span id="L200" class="LineNr">200 </span> <span class="subxComment"># local helper.</span> @@ -273,12 +273,12 @@ if ('onhashchange' in window) { <span id="L212" class="LineNr">212 </span> <span class="subxS1Comment"># . prologue</span> <span id="L213" class="LineNr">213 </span> 55/push-ebp <span id="L214" class="LineNr">214 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L215" class="LineNr">215 </span> <span class="subxH1Comment"># - if (is-digit?(Look)) expected(ed, err, "integer")</span> -<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . eax = is-digit?(Look)</span> +<span id="L215" class="LineNr">215 </span> <span class="subxH1Comment"># - if (digit?(Look)) expected(ed, err, "integer")</span> +<span id="L216" class="LineNr">216 </span> <span class="subxS1Comment"># . eax = digit?(Look)</span> <span id="L217" class="LineNr">217 </span> <span class="subxS2Comment"># . . push args</span> <span id="L218" class="LineNr">218 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='crenshaw2-1b.subx.html#L747'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># push *Look</span> <span id="L219" class="LineNr">219 </span> <span class="subxS2Comment"># . . call</span> -<span id="L220" class="LineNr">220 </span> e8/call <a href='crenshaw2-1b.subx.html#L725'>is-digit?</a>/disp32 +<span id="L220" class="LineNr">220 </span> e8/call <a href='crenshaw2-1b.subx.html#L725'>digit?</a>/disp32 <span id="L221" class="LineNr">221 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L222" class="LineNr">222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L223" class="LineNr">223 </span> <span class="subxS1Comment"># . if (eax == false)</span> @@ -321,7 +321,7 @@ if ('onhashchange' in window) { <span id="L260" class="LineNr">260 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L261" class="LineNr">261 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> <span id="L262" class="LineNr">262 </span> <span class="subxS2Comment"># . . call</span> -<span id="L263" class="LineNr">263 </span> e8/call <a href='../114error.subx.html#L9'>error</a>/disp32 <span class="subxComment"># never returns</span> +<span id="L263" class="LineNr">263 </span> e8/call <a href='114error.subx.html#L9'>error</a>/disp32 <span class="subxComment"># never returns</span> <span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L265" class="LineNr">265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L266" class="LineNr">266 </span><span class="Constant">$get-num:loop-stage2</span>: @@ -338,12 +338,12 @@ if ('onhashchange' in window) { <span id="L277" class="LineNr">277 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 <span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L279" class="LineNr">279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L280" class="LineNr">280 </span> <span class="subxComment"># if (is-digit?(Look)) loop</span> -<span id="L281" class="LineNr">281 </span> <span class="subxS1Comment"># . eax = is-digit?(Look)</span> +<span id="L280" class="LineNr">280 </span> <span class="subxComment"># if (digit?(Look)) loop</span> +<span id="L281" class="LineNr">281 </span> <span class="subxS1Comment"># . eax = digit?(Look)</span> <span id="L282" class="LineNr">282 </span> <span class="subxS2Comment"># . . push args</span> <span id="L283" class="LineNr">283 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='crenshaw2-1b.subx.html#L747'>Look</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># push *Look</span> <span id="L284" class="LineNr">284 </span> <span class="subxS2Comment"># . . call</span> -<span id="L285" class="LineNr">285 </span> e8/call <a href='crenshaw2-1b.subx.html#L725'>is-digit?</a>/disp32 +<span id="L285" class="LineNr">285 </span> e8/call <a href='crenshaw2-1b.subx.html#L725'>digit?</a>/disp32 <span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L287" class="LineNr">287 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L288" class="LineNr">288 </span> <span class="subxS1Comment"># . if (eax != false) loop</span> @@ -373,39 +373,39 @@ if ('onhashchange' in window) { <span id="L312" class="LineNr">312 </span> <span class="subxComment"># clear all streams</span> <span id="L313" class="LineNr">313 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L314" class="LineNr">314 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L315" class="LineNr">315 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L315" class="LineNr">315 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L316" class="LineNr">316 </span> <span class="subxS2Comment"># . . call</span> -<span id="L317" class="LineNr">317 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L317" class="LineNr">317 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L318" class="LineNr">318 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L319" class="LineNr">319 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L320" class="LineNr">320 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L321" class="LineNr">321 </span> <span class="subxS2Comment"># . . push args</span> <span id="L322" class="LineNr">322 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L323" class="LineNr">323 </span> <span class="subxS2Comment"># . . call</span> -<span id="L324" class="LineNr">324 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L324" class="LineNr">324 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L325" class="LineNr">325 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L326" class="LineNr">326 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L327" class="LineNr">327 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L328" class="LineNr">328 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L329" class="LineNr">329 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L329" class="LineNr">329 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L330" class="LineNr">330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L331" class="LineNr">331 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L331" class="LineNr">331 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L332" class="LineNr">332 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L333" class="LineNr">333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L334" class="LineNr">334 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L335" class="LineNr">335 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L336" class="LineNr">336 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L336" class="LineNr">336 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L337" class="LineNr">337 </span> <span class="subxS2Comment"># . . call</span> -<span id="L338" class="LineNr">338 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L338" class="LineNr">338 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L339" class="LineNr">339 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L340" class="LineNr">340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L341" class="LineNr">341 </span> <span class="subxComment"># initialize 'in'</span> <span id="L342" class="LineNr">342 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> <span id="L343" class="LineNr">343 </span> <span class="subxS2Comment"># . . push args</span> <span id="L344" class="LineNr">344 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L345" class="LineNr">345 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L345" class="LineNr">345 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L346" class="LineNr">346 </span> <span class="subxS2Comment"># . . call</span> -<span id="L347" class="LineNr">347 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L347" class="LineNr">347 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L348" class="LineNr">348 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L349" class="LineNr">349 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L350" class="LineNr">350 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> @@ -417,13 +417,13 @@ if ('onhashchange' in window) { <span id="L356" class="LineNr">356 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num <span id="L357" class="LineNr">357 </span> 50/push-eax/ed <span id="L358" class="LineNr">358 </span> <span class="subxS2Comment"># . . call</span> -<span id="L359" class="LineNr">359 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L359" class="LineNr">359 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L360" class="LineNr">360 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L361" class="LineNr">361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L362" class="LineNr">362 </span> <span class="subxComment"># prime the pump</span> <span id="L363" class="LineNr">363 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> <span id="L364" class="LineNr">364 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L365" class="LineNr">365 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L365" class="LineNr">365 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L366" class="LineNr">366 </span> <span class="subxS2Comment"># . . call</span> <span id="L367" class="LineNr">367 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 <span id="L368" class="LineNr">368 </span> <span class="subxS2Comment"># . . discard args</span> @@ -431,9 +431,9 @@ if ('onhashchange' in window) { <span id="L370" class="LineNr">370 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L371" class="LineNr">371 </span> <span class="subxS2Comment"># . . push args</span> <span id="L372" class="LineNr">372 </span> 50/push-eax/ed -<span id="L373" class="LineNr">373 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 -<span id="L374" class="LineNr">374 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L375" class="LineNr">375 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L373" class="LineNr">373 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L374" class="LineNr">374 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L375" class="LineNr">375 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L376" class="LineNr">376 </span> <span class="subxS2Comment"># . . call</span> <span id="L377" class="LineNr">377 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 <span id="L378" class="LineNr">378 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -443,10 +443,10 @@ if ('onhashchange' in window) { <span id="L382" class="LineNr">382 </span> <span class="subxS2Comment"># . . push args</span> <span id="L383" class="LineNr">383 </span> 68/push <span class="Constant">"F - test-get-num-reads-single-digit"</span>/imm32 <span id="L384" class="LineNr">384 </span> 68/push 0x33/imm32 -<span id="L385" class="LineNr">385 </span> b8/copy-to-eax <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L385" class="LineNr">385 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L386" class="LineNr">386 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> <span id="L387" class="LineNr">387 </span> <span class="subxS2Comment"># . . call</span> -<span id="L388" class="LineNr">388 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L388" class="LineNr">388 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L389" class="LineNr">389 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L390" class="LineNr">390 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L391" class="LineNr">391 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -462,39 +462,39 @@ if ('onhashchange' in window) { <span id="L401" class="LineNr">401 </span> <span class="subxComment"># clear all streams</span> <span id="L402" class="LineNr">402 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L403" class="LineNr">403 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L404" class="LineNr">404 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L404" class="LineNr">404 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L405" class="LineNr">405 </span> <span class="subxS2Comment"># . . call</span> -<span id="L406" class="LineNr">406 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L406" class="LineNr">406 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L407" class="LineNr">407 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L408" class="LineNr">408 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L409" class="LineNr">409 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L410" class="LineNr">410 </span> <span class="subxS2Comment"># . . push args</span> <span id="L411" class="LineNr">411 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L412" class="LineNr">412 </span> <span class="subxS2Comment"># . . call</span> -<span id="L413" class="LineNr">413 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L413" class="LineNr">413 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L414" class="LineNr">414 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L415" class="LineNr">415 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L416" class="LineNr">416 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L417" class="LineNr">417 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L418" class="LineNr">418 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L418" class="LineNr">418 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L419" class="LineNr">419 </span> <span class="subxS2Comment"># . . call</span> -<span id="L420" class="LineNr">420 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L420" class="LineNr">420 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L421" class="LineNr">421 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L422" class="LineNr">422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L423" class="LineNr">423 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L424" class="LineNr">424 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L425" class="LineNr">425 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L425" class="LineNr">425 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L426" class="LineNr">426 </span> <span class="subxS2Comment"># . . call</span> -<span id="L427" class="LineNr">427 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L427" class="LineNr">427 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L428" class="LineNr">428 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L429" class="LineNr">429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L430" class="LineNr">430 </span> <span class="subxComment"># initialize 'in'</span> <span id="L431" class="LineNr">431 </span> <span class="subxS1Comment"># . write(_test-stream, "3")</span> <span id="L432" class="LineNr">432 </span> <span class="subxS2Comment"># . . push args</span> <span id="L433" class="LineNr">433 </span> 68/push <span class="Constant">"3"</span>/imm32 -<span id="L434" class="LineNr">434 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L434" class="LineNr">434 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L435" class="LineNr">435 </span> <span class="subxS2Comment"># . . call</span> -<span id="L436" class="LineNr">436 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L436" class="LineNr">436 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L437" class="LineNr">437 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L438" class="LineNr">438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L439" class="LineNr">439 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> @@ -506,16 +506,16 @@ if ('onhashchange' in window) { <span id="L445" class="LineNr">445 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num <span id="L446" class="LineNr">446 </span> 50/push-eax/ed <span id="L447" class="LineNr">447 </span> <span class="subxS2Comment"># . . call</span> -<span id="L448" class="LineNr">448 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L448" class="LineNr">448 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L449" class="LineNr">449 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L450" class="LineNr">450 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L451" class="LineNr">451 </span> <span class="subxComment"># *don't* prime the pump</span> <span id="L452" class="LineNr">452 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L453" class="LineNr">453 </span> <span class="subxS2Comment"># . . push args</span> <span id="L454" class="LineNr">454 </span> 50/push-eax/ed -<span id="L455" class="LineNr">455 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 -<span id="L456" class="LineNr">456 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L457" class="LineNr">457 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L455" class="LineNr">455 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L456" class="LineNr">456 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L457" class="LineNr">457 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L458" class="LineNr">458 </span> <span class="subxS2Comment"># . . call</span> <span id="L459" class="LineNr">459 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 <span id="L460" class="LineNr">460 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -529,7 +529,7 @@ if ('onhashchange' in window) { <span id="L468" class="LineNr">468 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L469" class="LineNr">469 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> <span id="L470" class="LineNr">470 </span> <span class="subxS2Comment"># . . call</span> -<span id="L471" class="LineNr">471 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L471" class="LineNr">471 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L472" class="LineNr">472 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L473" class="LineNr">473 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L474" class="LineNr">474 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -545,39 +545,39 @@ if ('onhashchange' in window) { <span id="L484" class="LineNr">484 </span> <span class="subxComment"># clear all streams</span> <span id="L485" class="LineNr">485 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L486" class="LineNr">486 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L487" class="LineNr">487 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L487" class="LineNr">487 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L488" class="LineNr">488 </span> <span class="subxS2Comment"># . . call</span> -<span id="L489" class="LineNr">489 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L489" class="LineNr">489 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L490" class="LineNr">490 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L491" class="LineNr">491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L492" class="LineNr">492 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L493" class="LineNr">493 </span> <span class="subxS2Comment"># . . push args</span> <span id="L494" class="LineNr">494 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L495" class="LineNr">495 </span> <span class="subxS2Comment"># . . call</span> -<span id="L496" class="LineNr">496 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L496" class="LineNr">496 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L497" class="LineNr">497 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L498" class="LineNr">498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L499" class="LineNr">499 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L500" class="LineNr">500 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L501" class="LineNr">501 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L501" class="LineNr">501 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L502" class="LineNr">502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L503" class="LineNr">503 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L503" class="LineNr">503 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L504" class="LineNr">504 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L505" class="LineNr">505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L506" class="LineNr">506 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L507" class="LineNr">507 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L508" class="LineNr">508 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L508" class="LineNr">508 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L509" class="LineNr">509 </span> <span class="subxS2Comment"># . . call</span> -<span id="L510" class="LineNr">510 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L510" class="LineNr">510 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L511" class="LineNr">511 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L512" class="LineNr">512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L513" class="LineNr">513 </span> <span class="subxComment"># initialize 'in'</span> <span id="L514" class="LineNr">514 </span> <span class="subxS1Comment"># . write(_test-stream, "3456 x")</span> <span id="L515" class="LineNr">515 </span> <span class="subxS2Comment"># . . push args</span> <span id="L516" class="LineNr">516 </span> 68/push <span class="Constant">"3456"</span>/imm32 -<span id="L517" class="LineNr">517 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L517" class="LineNr">517 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L518" class="LineNr">518 </span> <span class="subxS2Comment"># . . call</span> -<span id="L519" class="LineNr">519 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L519" class="LineNr">519 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L520" class="LineNr">520 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L521" class="LineNr">521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L522" class="LineNr">522 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> @@ -589,13 +589,13 @@ if ('onhashchange' in window) { <span id="L528" class="LineNr">528 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num <span id="L529" class="LineNr">529 </span> 50/push-eax/ed <span id="L530" class="LineNr">530 </span> <span class="subxS2Comment"># . . call</span> -<span id="L531" class="LineNr">531 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L531" class="LineNr">531 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L532" class="LineNr">532 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L533" class="LineNr">533 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L534" class="LineNr">534 </span> <span class="subxComment"># prime the pump</span> <span id="L535" class="LineNr">535 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> <span id="L536" class="LineNr">536 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L537" class="LineNr">537 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L537" class="LineNr">537 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L538" class="LineNr">538 </span> <span class="subxS2Comment"># . . call</span> <span id="L539" class="LineNr">539 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 <span id="L540" class="LineNr">540 </span> <span class="subxS2Comment"># . . discard args</span> @@ -603,9 +603,9 @@ if ('onhashchange' in window) { <span id="L542" class="LineNr">542 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L543" class="LineNr">543 </span> <span class="subxS2Comment"># . . push args</span> <span id="L544" class="LineNr">544 </span> 50/push-eax/ed -<span id="L545" class="LineNr">545 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 -<span id="L546" class="LineNr">546 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L547" class="LineNr">547 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L545" class="LineNr">545 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L546" class="LineNr">546 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L547" class="LineNr">547 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L548" class="LineNr">548 </span> <span class="subxS2Comment"># . . call</span> <span id="L549" class="LineNr">549 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 <span id="L550" class="LineNr">550 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -615,10 +615,10 @@ if ('onhashchange' in window) { <span id="L554" class="LineNr">554 </span> <span class="subxS2Comment"># . . push args</span> <span id="L555" class="LineNr">555 </span> 68/push <span class="Constant">"F - test-get-num-reads-multiple-digits"</span>/imm32 <span id="L556" class="LineNr">556 </span> 68/push 0x36353433/imm32 -<span id="L557" class="LineNr">557 </span> b8/copy-to-eax <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L557" class="LineNr">557 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L558" class="LineNr">558 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> <span id="L559" class="LineNr">559 </span> <span class="subxS2Comment"># . . call</span> -<span id="L560" class="LineNr">560 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L560" class="LineNr">560 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L561" class="LineNr">561 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L562" class="LineNr">562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L563" class="LineNr">563 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -634,39 +634,39 @@ if ('onhashchange' in window) { <span id="L573" class="LineNr">573 </span> <span class="subxComment"># clear all streams</span> <span id="L574" class="LineNr">574 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L575" class="LineNr">575 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L576" class="LineNr">576 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L576" class="LineNr">576 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L577" class="LineNr">577 </span> <span class="subxS2Comment"># . . call</span> -<span id="L578" class="LineNr">578 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L578" class="LineNr">578 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L579" class="LineNr">579 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L580" class="LineNr">580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L581" class="LineNr">581 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L582" class="LineNr">582 </span> <span class="subxS2Comment"># . . push args</span> <span id="L583" class="LineNr">583 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L584" class="LineNr">584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L585" class="LineNr">585 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L585" class="LineNr">585 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L586" class="LineNr">586 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L587" class="LineNr">587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L588" class="LineNr">588 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L589" class="LineNr">589 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L590" class="LineNr">590 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L590" class="LineNr">590 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L591" class="LineNr">591 </span> <span class="subxS2Comment"># . . call</span> -<span id="L592" class="LineNr">592 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L592" class="LineNr">592 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L593" class="LineNr">593 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L594" class="LineNr">594 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L595" class="LineNr">595 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L596" class="LineNr">596 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L597" class="LineNr">597 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L597" class="LineNr">597 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L598" class="LineNr">598 </span> <span class="subxS2Comment"># . . call</span> -<span id="L599" class="LineNr">599 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L599" class="LineNr">599 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L600" class="LineNr">600 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L601" class="LineNr">601 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L602" class="LineNr">602 </span> <span class="subxComment"># initialize 'in'</span> <span id="L603" class="LineNr">603 </span> <span class="subxS1Comment"># . write(_test-stream, "3456 x")</span> <span id="L604" class="LineNr">604 </span> <span class="subxS2Comment"># . . push args</span> <span id="L605" class="LineNr">605 </span> 68/push <span class="Constant">"3456 x"</span>/imm32 -<span id="L606" class="LineNr">606 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L606" class="LineNr">606 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L607" class="LineNr">607 </span> <span class="subxS2Comment"># . . call</span> -<span id="L608" class="LineNr">608 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L608" class="LineNr">608 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L609" class="LineNr">609 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L610" class="LineNr">610 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L611" class="LineNr">611 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'get-num' below</span> @@ -678,13 +678,13 @@ if ('onhashchange' in window) { <span id="L617" class="LineNr">617 </span> 68/push 0x10/imm32/nbytes-of-args-for-get-num <span id="L618" class="LineNr">618 </span> 50/push-eax/ed <span id="L619" class="LineNr">619 </span> <span class="subxS2Comment"># . . call</span> -<span id="L620" class="LineNr">620 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L620" class="LineNr">620 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L621" class="LineNr">621 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L622" class="LineNr">622 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L623" class="LineNr">623 </span> <span class="subxComment"># prime the pump</span> <span id="L624" class="LineNr">624 </span> <span class="subxS1Comment"># . get-char(_test-buffered-file)</span> <span id="L625" class="LineNr">625 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L626" class="LineNr">626 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L626" class="LineNr">626 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L627" class="LineNr">627 </span> <span class="subxS2Comment"># . . call</span> <span id="L628" class="LineNr">628 </span> e8/call <a href='crenshaw2-1b.subx.html#L702'>get-char</a>/disp32 <span id="L629" class="LineNr">629 </span> <span class="subxS2Comment"># . . discard args</span> @@ -692,9 +692,9 @@ if ('onhashchange' in window) { <span id="L631" class="LineNr">631 </span> <span class="subxComment"># get-num(in, out, err, ed)</span> <span id="L632" class="LineNr">632 </span> <span class="subxS2Comment"># . . push args</span> <span id="L633" class="LineNr">633 </span> 50/push-eax/ed -<span id="L634" class="LineNr">634 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 -<span id="L635" class="LineNr">635 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L636" class="LineNr">636 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L634" class="LineNr">634 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 +<span id="L635" class="LineNr">635 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L636" class="LineNr">636 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L637" class="LineNr">637 </span> <span class="subxS2Comment"># . . call</span> <span id="L638" class="LineNr">638 </span> e8/call <a href='crenshaw2-1b.subx.html#L187'>get-num</a>/disp32 <span id="L639" class="LineNr">639 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -704,10 +704,10 @@ if ('onhashchange' in window) { <span id="L643" class="LineNr">643 </span> <span class="subxS2Comment"># . . push args</span> <span id="L644" class="LineNr">644 </span> 68/push <span class="Constant">"F - test-get-num-reads-multiple-digits-followed-by-nondigit"</span>/imm32 <span id="L645" class="LineNr">645 </span> 68/push 0x36353433/imm32 -<span id="L646" class="LineNr">646 </span> b8/copy-to-eax <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L646" class="LineNr">646 </span> b8/copy-to-eax <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L647" class="LineNr">647 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+12)</span> <span id="L648" class="LineNr">648 </span> <span class="subxS2Comment"># . . call</span> -<span id="L649" class="LineNr">649 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L649" class="LineNr">649 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L650" class="LineNr">650 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L651" class="LineNr">651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L652" class="LineNr">652 </span> <span class="subxS1Comment"># . reclaim locals</span> @@ -727,7 +727,7 @@ if ('onhashchange' in window) { <span id="L666" class="LineNr">666 </span> 68/push <span class="Constant">"Error: "</span>/imm32 <span id="L667" class="LineNr">667 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L668" class="LineNr">668 </span> <span class="subxS2Comment"># . . call</span> -<span id="L669" class="LineNr">669 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L669" class="LineNr">669 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L670" class="LineNr">670 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L671" class="LineNr">671 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L672" class="LineNr">672 </span> <span class="subxComment"># write(f, s)</span> @@ -735,7 +735,7 @@ if ('onhashchange' in window) { <span id="L674" class="LineNr">674 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L675" class="LineNr">675 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L676" class="LineNr">676 </span> <span class="subxS2Comment"># . . call</span> -<span id="L677" class="LineNr">677 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L677" class="LineNr">677 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L678" class="LineNr">678 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L679" class="LineNr">679 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L680" class="LineNr">680 </span> <span class="subxComment"># write(f, " expected\n")</span> @@ -743,7 +743,7 @@ if ('onhashchange' in window) { <span id="L682" class="LineNr">682 </span> 68/push <span class="Constant">" expected\n"</span>/imm32 <span id="L683" class="LineNr">683 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L684" class="LineNr">684 </span> <span class="subxS2Comment"># . . call</span> -<span id="L685" class="LineNr">685 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L685" class="LineNr">685 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L686" class="LineNr">686 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L687" class="LineNr">687 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L688" class="LineNr">688 </span> <span class="subxComment"># stop(ed, 1)</span> @@ -751,7 +751,7 @@ if ('onhashchange' in window) { <span id="L690" class="LineNr">690 </span> 68/push 1/imm32 <span id="L691" class="LineNr">691 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L692" class="LineNr">692 </span> <span class="subxS2Comment"># . . call</span> -<span id="L693" class="LineNr">693 </span> e8/call <a href='../110stop.subx.html#L92'>stop</a>/disp32 +<span id="L693" class="LineNr">693 </span> e8/call <a href='110stop.subx.html#L92'>stop</a>/disp32 <span id="L694" class="LineNr">694 </span> <span class="subxComment"># should never get past this point</span> <span id="L695" class="LineNr">695 </span><span class="Constant">$expected:dead-end</span>: <span id="L696" class="LineNr">696 </span> <span class="subxS1Comment"># . epilogue</span> @@ -770,7 +770,7 @@ if ('onhashchange' in window) { <span id="L709" class="LineNr">709 </span> <span class="subxS2Comment"># . . push args</span> <span id="L710" class="LineNr">710 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L711" class="LineNr">711 </span> <span class="subxS2Comment"># . . call</span> -<span id="L712" class="LineNr">712 </span> e8/call <a href='../112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L712" class="LineNr">712 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 <span id="L713" class="LineNr">713 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L714" class="LineNr">714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L715" class="LineNr">715 </span> <span class="subxComment"># save eax to Look</span> @@ -783,7 +783,7 @@ if ('onhashchange' in window) { <span id="L722" class="LineNr">722 </span> 5d/pop-to-ebp <span id="L723" class="LineNr">723 </span> c3/return <span id="L724" class="LineNr">724 </span> -<span id="L725" class="LineNr">725 </span><span class="subxFunction">is-digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span> +<span id="L725" class="LineNr">725 </span><span class="subxFunction">digit?</span>: <span class="subxComment"># c: int -> eax: boolean</span> <span id="L726" class="LineNr">726 </span> <span class="subxS1Comment"># . prologue</span> <span id="L727" class="LineNr">727 </span> 55/push-ebp <span id="L728" class="LineNr">728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -791,13 +791,13 @@ if ('onhashchange' in window) { <span id="L730" class="LineNr">730 </span> b8/copy-to-eax 0/imm32 <span id="L731" class="LineNr">731 </span> <span class="subxComment"># if (c < '0') return false</span> <span id="L732" class="LineNr">732 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x30/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L733" class="LineNr">733 </span> 7c/jump-if-< $is-digit?:end/disp8 +<span id="L733" class="LineNr">733 </span> 7c/jump-if-< $digit?:end/disp8 <span id="L734" class="LineNr">734 </span> <span class="subxComment"># if (c > '9') return false</span> <span id="L735" class="LineNr">735 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 0x39/imm32 <span class="subxComment"># compare *(ebp+8)</span> -<span id="L736" class="LineNr">736 </span> 7f/jump-if-> $is-digit?:end/disp8 +<span id="L736" class="LineNr">736 </span> 7f/jump-if-> $digit?:end/disp8 <span id="L737" class="LineNr">737 </span> <span class="subxComment"># otherwise return true</span> <span id="L738" class="LineNr">738 </span> b8/copy-to-eax 1/imm32 -<span id="L739" class="LineNr">739 </span><span class="Constant">$is-digit?:end</span>: +<span id="L739" class="LineNr">739 </span><span class="Constant">$digit?:end</span>: <span id="L740" class="LineNr">740 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L741" class="LineNr">741 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> <span id="L742" class="LineNr">742 </span> 5d/pop-to-ebp diff --git a/html/apps/dquotes.subx.html b/html/linux/dquotes.subx.html index 3e6e39c3..ddb58221 100644 --- a/html/apps/dquotes.subx.html +++ b/html/linux/dquotes.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/dquotes.subx</title> +<title>Mu - linux/dquotes.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxMinorFunction { color: #875f5f; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -59,17 +59,17 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/dquotes.subx'>https://github.com/akkartik/mu/blob/main/apps/dquotes.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/dquotes.subx'>https://github.com/akkartik/mu/blob/main/linux/dquotes.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Translate literal strings within double quotes.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Replace them with references to new variables in the data segment.</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/subx-params.subx apps/dquotes.subx -o apps/dquotes</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/subx-params.subx apps/dquotes.subx -o apps/dquotes</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ cat x</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># == code</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># ab "cd ef"/imm32</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ cat x |./bootstrap run apps/dquotes</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run dquotes</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># == code</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># ab __string1/imm32</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># == data</span> @@ -89,10 +89,10 @@ if ('onhashchange' in window) { <span id="L26" class="LineNr"> 26 </span> <span class="subxComment"># initialize heap</span> <span id="L27" class="LineNr"> 27 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L28" class="LineNr"> 28 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L29" class="LineNr"> 29 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L30" class="LineNr"> 30 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L29" class="LineNr"> 29 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L30" class="LineNr"> 30 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L31" class="LineNr"> 31 </span> <span class="subxS2Comment"># . . call</span> -<span id="L32" class="LineNr"> 32 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L32" class="LineNr"> 32 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L33" class="LineNr"> 33 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L34" class="LineNr"> 34 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L35" class="LineNr"> 35 </span> @@ -106,7 +106,7 @@ if ('onhashchange' in window) { <span id="L43" class="LineNr"> 43 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L44" class="LineNr"> 44 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . call</span> -<span id="L46" class="LineNr"> 46 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L46" class="LineNr"> 46 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L47" class="LineNr"> 47 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L48" class="LineNr"> 48 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L49" class="LineNr"> 49 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> @@ -115,7 +115,7 @@ if ('onhashchange' in window) { <span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># run-tests()</span> <span id="L53" class="LineNr"> 53 </span> e8/call run-tests/disp32 <span id="L54" class="LineNr"> 54 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L55" class="LineNr"> 55 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L55" class="LineNr"> 55 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L56" class="LineNr"> 56 </span> eb/jump $subx-dquotes-main:end/disp8 <span id="L57" class="LineNr"> 57 </span><span class="Constant">$subx-dquotes-main:interactive</span>: <span id="L58" class="LineNr"> 58 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> @@ -128,9 +128,9 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># subx-dquotes(Stdin, Stdout, Stderr, ed)</span> <span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . push args</span> <span id="L67" class="LineNr"> 67 </span> 50/push-eax/ed -<span id="L68" class="LineNr"> 68 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L69" class="LineNr"> 69 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L70" class="LineNr"> 70 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L68" class="LineNr"> 68 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L69" class="LineNr"> 69 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L70" class="LineNr"> 70 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L71" class="LineNr"> 71 </span> <span class="subxS2Comment"># . . call</span> <span id="L72" class="LineNr"> 72 </span> e8/call <a href='dquotes.subx.html#L84'>subx-dquotes</a>/disp32 <span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . discard args</span> @@ -138,7 +138,7 @@ if ('onhashchange' in window) { <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L76" class="LineNr"> 76 </span> bb/copy-to-ebx 0/imm32 <span id="L77" class="LineNr"> 77 </span><span class="Constant">$subx-dquotes-main:end</span>: -<span id="L78" class="LineNr"> 78 </span> e8/call syscall_exit/disp32 +<span id="L78" class="LineNr"> 78 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L79" class="LineNr"> 79 </span> <span id="L80" class="LineNr"> 80 </span><span class="subxComment"># conceptual hierarchy within a line:</span> <span id="L81" class="LineNr"> 81 </span><span class="subxComment"># line = words separated by ' ', maybe followed by comment starting with '#'</span> @@ -208,9 +208,9 @@ if ('onhashchange' in window) { <span id="L145" class="LineNr"> 145 </span> 57/push-edi <span id="L146" class="LineNr"> 146 </span> 68/push 1/imm32 <span id="L147" class="LineNr"> 147 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Segment-size</span>/disp32 <span class="subxComment"># push *Segment-size</span> -<span id="L148" class="LineNr"> 148 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L148" class="LineNr"> 148 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L149" class="LineNr"> 149 </span> <span class="subxS2Comment"># . . call</span> -<span id="L150" class="LineNr"> 150 </span> e8/call <a href='../121new-stream.subx.html#L8'>new-stream</a>/disp32 +<span id="L150" class="LineNr"> 150 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 <span id="L151" class="LineNr"> 151 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L152" class="LineNr"> 152 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L153" class="LineNr"> 153 </span> <span class="subxComment"># var new-data-segment/edi: (addr stream byte) = lookup(*new-data-segment-handle)</span> @@ -219,7 +219,7 @@ if ('onhashchange' in window) { <span id="L156" class="LineNr"> 156 </span> ff 6/subop/push 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edi+4)</span> <span id="L157" class="LineNr"> 157 </span> ff 6/subop/push 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edi</span> <span id="L158" class="LineNr"> 158 </span> <span class="subxS2Comment"># . . call</span> -<span id="L159" class="LineNr"> 159 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L159" class="LineNr"> 159 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L160" class="LineNr"> 160 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L161" class="LineNr"> 161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L162" class="LineNr"> 162 </span> <span class="subxS1Comment"># . new-data-segment = eax</span> @@ -229,7 +229,7 @@ if ('onhashchange' in window) { <span id="L166" class="LineNr"> 166 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 <span id="L167" class="LineNr"> 167 </span> 57/push-edi <span id="L168" class="LineNr"> 168 </span> <span class="subxS2Comment"># . . call</span> -<span id="L169" class="LineNr"> 169 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L169" class="LineNr"> 169 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L170" class="LineNr"> 170 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L171" class="LineNr"> 171 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L172" class="LineNr"> 172 </span><span class="Constant">$subx-dquotes:line-loop</span>: @@ -237,7 +237,7 @@ if ('onhashchange' in window) { <span id="L174" class="LineNr"> 174 </span> <span class="subxS2Comment"># . . push args</span> <span id="L175" class="LineNr"> 175 </span> 51/push-ecx <span id="L176" class="LineNr"> 176 </span> <span class="subxS2Comment"># . . call</span> -<span id="L177" class="LineNr"> 177 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L177" class="LineNr"> 177 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L178" class="LineNr"> 178 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L179" class="LineNr"> 179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L180" class="LineNr"> 180 </span> <span class="subxComment"># read-line-buffered(in, line)</span> @@ -245,7 +245,7 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr"> 182 </span> 51/push-ecx <span id="L183" class="LineNr"> 183 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L184" class="LineNr"> 184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L185" class="LineNr"> 185 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L185" class="LineNr"> 185 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 <span id="L186" class="LineNr"> 186 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L187" class="LineNr"> 187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L188" class="LineNr"> 188 </span><span class="Constant">$subx-dquotes:check0</span>: @@ -258,7 +258,7 @@ if ('onhashchange' in window) { <span id="L195" class="LineNr"> 195 </span> 52/push-edx <span id="L196" class="LineNr"> 196 </span> 51/push-ecx <span id="L197" class="LineNr"> 197 </span> <span class="subxS2Comment"># . . call</span> -<span id="L198" class="LineNr"> 198 </span> e8/call <a href='../135next-word-or-string.subx.html#L8'>next-word-or-string</a>/disp32 +<span id="L198" class="LineNr"> 198 </span> e8/call <a href='135next-word-or-string.subx.html#L8'>next-word-or-string</a>/disp32 <span id="L199" class="LineNr"> 199 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L200" class="LineNr"> 200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L201" class="LineNr"> 201 </span><span class="Constant">$subx-dquotes:check1</span>: @@ -267,7 +267,7 @@ if ('onhashchange' in window) { <span id="L204" class="LineNr"> 204 </span> <span class="subxS2Comment"># . . push args</span> <span id="L205" class="LineNr"> 205 </span> 52/push-edx <span id="L206" class="LineNr"> 206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L207" class="LineNr"> 207 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L207" class="LineNr"> 207 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 <span id="L208" class="LineNr"> 208 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L209" class="LineNr"> 209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L210" class="LineNr"> 210 </span> <span class="subxS1Comment"># . if (eax != false) break</span> @@ -298,24 +298,24 @@ if ('onhashchange' in window) { <span id="L235" class="LineNr"> 235 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L236" class="LineNr"> 236 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L237" class="LineNr"> 237 </span> <span class="subxComment"># continue</span> -<span id="L238" class="LineNr"> 238 </span> eb/jump $subx-dquotes:<a href='../127next-word.subx.html#L11'>next-word</a>/disp8 +<span id="L238" class="LineNr"> 238 </span> eb/jump $subx-dquotes:<a href='127next-word.subx.html#L11'>next-word</a>/disp8 <span id="L239" class="LineNr"> 239 </span><span class="Constant">$subx-dquotes:regular-word</span>: <span id="L240" class="LineNr"> 240 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> <span id="L241" class="LineNr"> 241 </span> <span class="subxS2Comment"># . . push args</span> <span id="L242" class="LineNr"> 242 </span> 52/push-edx <span id="L243" class="LineNr"> 243 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L244" class="LineNr"> 244 </span> <span class="subxS2Comment"># . . call</span> -<span id="L245" class="LineNr"> 245 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L245" class="LineNr"> 245 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 <span id="L246" class="LineNr"> 246 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L247" class="LineNr"> 247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L248" class="LineNr"> 248 </span> <span class="subxComment"># fall through</span> -<span id="L249" class="LineNr"> 249 </span><span class="Constant">$subx-dquotes:<a href='../127next-word.subx.html#L11'>next-word</a></span>: +<span id="L249" class="LineNr"> 249 </span><span class="Constant">$subx-dquotes:<a href='127next-word.subx.html#L11'>next-word</a></span>: <span id="L250" class="LineNr"> 250 </span> <span class="subxComment"># write-buffered(out, " ")</span> <span id="L251" class="LineNr"> 251 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L252" class="LineNr"> 252 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L252" class="LineNr"> 252 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 <span id="L253" class="LineNr"> 253 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . call</span> -<span id="L255" class="LineNr"> 255 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L255" class="LineNr"> 255 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L256" class="LineNr"> 256 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L257" class="LineNr"> 257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L258" class="LineNr"> 258 </span> <span class="subxComment"># loop</span> @@ -323,10 +323,10 @@ if ('onhashchange' in window) { <span id="L260" class="LineNr"> 260 </span><span class="Constant">$subx-dquotes:next-line</span>: <span id="L261" class="LineNr"> 261 </span> <span class="subxComment"># write-buffered(out, "\n")</span> <span id="L262" class="LineNr"> 262 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L263" class="LineNr"> 263 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L263" class="LineNr"> 263 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 <span id="L264" class="LineNr"> 264 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L265" class="LineNr"> 265 </span> <span class="subxS2Comment"># . . call</span> -<span id="L266" class="LineNr"> 266 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L266" class="LineNr"> 266 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L268" class="LineNr"> 268 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L269" class="LineNr"> 269 </span> <span class="subxComment"># loop</span> @@ -337,14 +337,14 @@ if ('onhashchange' in window) { <span id="L274" class="LineNr"> 274 </span> 57/push-edi <span id="L275" class="LineNr"> 275 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L276" class="LineNr"> 276 </span> <span class="subxS2Comment"># . . call</span> -<span id="L277" class="LineNr"> 277 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L277" class="LineNr"> 277 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L278" class="LineNr"> 278 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L279" class="LineNr"> 279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L280" class="LineNr"> 280 </span> <span class="subxComment"># flush(out)</span> <span id="L281" class="LineNr"> 281 </span> <span class="subxS2Comment"># . . push args</span> <span id="L282" class="LineNr"> 282 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L283" class="LineNr"> 283 </span> <span class="subxS2Comment"># . . call</span> -<span id="L284" class="LineNr"> 284 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L284" class="LineNr"> 284 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L285" class="LineNr"> 285 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L286" class="LineNr"> 286 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L287" class="LineNr"> 287 </span><span class="Constant">$subx-dquotes:end</span>: @@ -389,7 +389,7 @@ if ('onhashchange' in window) { <span id="L326" class="LineNr"> 326 </span> 68/push <span class="Constant">"_string"</span>/imm32 <span id="L327" class="LineNr"> 327 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L328" class="LineNr"> 328 </span> <span class="subxS2Comment"># . . call</span> -<span id="L329" class="LineNr"> 329 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L329" class="LineNr"> 329 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L330" class="LineNr"> 330 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L331" class="LineNr"> 331 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L332" class="LineNr"> 332 </span> <span class="subxS1Comment"># . write-int32-decimal(out-segment, *Next-string-literal)</span> @@ -397,7 +397,7 @@ if ('onhashchange' in window) { <span id="L334" class="LineNr"> 334 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='dquotes.subx.html#L1910'>Next-string-literal</a></span>/disp32 <span class="subxComment"># push *Next-string-literal</span> <span id="L335" class="LineNr"> 335 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L336" class="LineNr"> 336 </span> <span class="subxS2Comment"># . . call</span> -<span id="L337" class="LineNr"> 337 </span> e8/call <a href='../126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L337" class="LineNr"> 337 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 <span id="L338" class="LineNr"> 338 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L339" class="LineNr"> 339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L340" class="LineNr"> 340 </span> <span class="subxS1Comment"># . write(out-segment, ":\n")</span> @@ -405,7 +405,7 @@ if ('onhashchange' in window) { <span id="L342" class="LineNr"> 342 </span> 68/push <span class="Constant">":\n"</span>/imm32 <span id="L343" class="LineNr"> 343 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L344" class="LineNr"> 344 </span> <span class="subxS2Comment"># . . call</span> -<span id="L345" class="LineNr"> 345 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L345" class="LineNr"> 345 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L347" class="LineNr"> 347 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L348" class="LineNr"> 348 </span> <span class="subxComment"># emit-string-literal-data(out-segment, string-literal)</span> @@ -418,10 +418,10 @@ if ('onhashchange' in window) { <span id="L355" class="LineNr"> 355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L356" class="LineNr"> 356 </span> <span class="subxComment"># write(out-segment, "\n")</span> <span id="L357" class="LineNr"> 357 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L358" class="LineNr"> 358 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L358" class="LineNr"> 358 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 <span id="L359" class="LineNr"> 359 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . call</span> -<span id="L361" class="LineNr"> 361 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L361" class="LineNr"> 361 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L363" class="LineNr"> 363 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L364" class="LineNr"> 364 </span> <span class="subxComment"># print(out, "_string#{Next-string-literal}")</span> @@ -430,7 +430,7 @@ if ('onhashchange' in window) { <span id="L367" class="LineNr"> 367 </span> 68/push <span class="Constant">"_string"</span>/imm32 <span id="L368" class="LineNr"> 368 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L369" class="LineNr"> 369 </span> <span class="subxS2Comment"># . . call</span> -<span id="L370" class="LineNr"> 370 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L370" class="LineNr"> 370 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L371" class="LineNr"> 371 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L372" class="LineNr"> 372 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L373" class="LineNr"> 373 </span> <span class="subxS1Comment"># . write-int32-decimal(int32-stream, *Next-string-literal)</span> @@ -438,7 +438,7 @@ if ('onhashchange' in window) { <span id="L375" class="LineNr"> 375 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='dquotes.subx.html#L1910'>Next-string-literal</a></span>/disp32 <span class="subxComment"># push *Next-string-literal</span> <span id="L376" class="LineNr"> 376 </span> 51/push-ecx <span id="L377" class="LineNr"> 377 </span> <span class="subxS2Comment"># . . call</span> -<span id="L378" class="LineNr"> 378 </span> e8/call <a href='../126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L378" class="LineNr"> 378 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 <span id="L379" class="LineNr"> 379 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L380" class="LineNr"> 380 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L381" class="LineNr"> 381 </span> <span class="subxS1Comment"># . write-stream-data(out, int32-stream)</span> @@ -446,7 +446,7 @@ if ('onhashchange' in window) { <span id="L383" class="LineNr"> 383 </span> 51/push-ecx <span id="L384" class="LineNr"> 384 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L385" class="LineNr"> 385 </span> <span class="subxS2Comment"># . . call</span> -<span id="L386" class="LineNr"> 386 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L386" class="LineNr"> 386 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L387" class="LineNr"> 387 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L388" class="LineNr"> 388 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L389" class="LineNr"> 389 </span> <span class="subxComment"># emit-metadata(out, string-literal)</span> @@ -476,30 +476,30 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># setup</span> <span id="L414" class="LineNr"> 414 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L416" class="LineNr"> 416 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L416" class="LineNr"> 416 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . call</span> -<span id="L418" class="LineNr"> 418 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L418" class="LineNr"> 418 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L419" class="LineNr"> 419 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L420" class="LineNr"> 420 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L421" class="LineNr"> 421 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L422" class="LineNr"> 422 </span> <span class="subxS2Comment"># . . push args</span> <span id="L423" class="LineNr"> 423 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . call</span> -<span id="L425" class="LineNr"> 425 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L425" class="LineNr"> 425 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L427" class="LineNr"> 427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L428" class="LineNr"> 428 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L429" class="LineNr"> 429 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L430" class="LineNr"> 430 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L430" class="LineNr"> 430 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L431" class="LineNr"> 431 </span> <span class="subxS2Comment"># . . call</span> -<span id="L432" class="LineNr"> 432 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L432" class="LineNr"> 432 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L433" class="LineNr"> 433 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L434" class="LineNr"> 434 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L435" class="LineNr"> 435 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L436" class="LineNr"> 436 </span> <span class="subxS2Comment"># . . push args</span> <span id="L437" class="LineNr"> 437 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L438" class="LineNr"> 438 </span> <span class="subxS2Comment"># . . call</span> -<span id="L439" class="LineNr"> 439 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L439" class="LineNr"> 439 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L440" class="LineNr"> 440 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L441" class="LineNr"> 441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L442" class="LineNr"> 442 </span> <span class="subxComment"># initialize input (meta comments in parens)</span> @@ -515,88 +515,88 @@ if ('onhashchange' in window) { <span id="L452" class="LineNr"> 452 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# comment 1\n")</span> <span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . push args</span> <span id="L454" class="LineNr"> 454 </span> 68/push <span class="Constant">"# comment 1\n"</span>/imm32 -<span id="L455" class="LineNr"> 455 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L455" class="LineNr"> 455 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L456" class="LineNr"> 456 </span> <span class="subxS2Comment"># . . call</span> -<span id="L457" class="LineNr"> 457 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L457" class="LineNr"> 457 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L458" class="LineNr"> 458 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L459" class="LineNr"> 459 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L460" class="LineNr"> 460 </span> <span class="subxS1Comment"># . write(_test-input-stream, " # comment 2 indented\n")</span> <span id="L461" class="LineNr"> 461 </span> <span class="subxS2Comment"># . . push args</span> <span id="L462" class="LineNr"> 462 </span> 68/push <span class="Constant">" # comment 2 indented\n"</span>/imm32 -<span id="L463" class="LineNr"> 463 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L463" class="LineNr"> 463 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L464" class="LineNr"> 464 </span> <span class="subxS2Comment"># . . call</span> -<span id="L465" class="LineNr"> 465 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L465" class="LineNr"> 465 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L466" class="LineNr"> 466 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L467" class="LineNr"> 467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L468" class="LineNr"> 468 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1\n")</span> <span id="L469" class="LineNr"> 469 </span> <span class="subxS2Comment"># . . push args</span> <span id="L470" class="LineNr"> 470 </span> 68/push <span class="Constant">"== code 0x1\n"</span>/imm32 -<span id="L471" class="LineNr"> 471 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L471" class="LineNr"> 471 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L472" class="LineNr"> 472 </span> <span class="subxS2Comment"># . . call</span> -<span id="L473" class="LineNr"> 473 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L473" class="LineNr"> 473 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L474" class="LineNr"> 474 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L475" class="LineNr"> 475 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L476" class="LineNr"> 476 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# comment 3 inside a segment\n")</span> <span id="L477" class="LineNr"> 477 </span> <span class="subxS2Comment"># . . push args</span> <span id="L478" class="LineNr"> 478 </span> 68/push <span class="Constant">"# comment 3 inside a segment\n"</span>/imm32 -<span id="L479" class="LineNr"> 479 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L479" class="LineNr"> 479 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L480" class="LineNr"> 480 </span> <span class="subxS2Comment"># . . call</span> -<span id="L481" class="LineNr"> 481 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L481" class="LineNr"> 481 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L482" class="LineNr"> 482 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L483" class="LineNr"> 483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L484" class="LineNr"> 484 </span> <span class="subxS1Comment"># . write(_test-input-stream, "1\n")</span> <span id="L485" class="LineNr"> 485 </span> <span class="subxS2Comment"># . . push args</span> <span id="L486" class="LineNr"> 486 </span> 68/push <span class="Constant">"1\n"</span>/imm32 -<span id="L487" class="LineNr"> 487 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L487" class="LineNr"> 487 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L488" class="LineNr"> 488 </span> <span class="subxS2Comment"># . . call</span> -<span id="L489" class="LineNr"> 489 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L489" class="LineNr"> 489 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L490" class="LineNr"> 490 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L491" class="LineNr"> 491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L492" class="LineNr"> 492 </span> <span class="subxS1Comment"># . write(_test-input-stream, "\n") # empty line</span> <span id="L493" class="LineNr"> 493 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L494" class="LineNr"> 494 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L495" class="LineNr"> 495 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L494" class="LineNr"> 494 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L495" class="LineNr"> 495 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L496" class="LineNr"> 496 </span> <span class="subxS2Comment"># . . call</span> -<span id="L497" class="LineNr"> 497 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L497" class="LineNr"> 497 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L498" class="LineNr"> 498 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L499" class="LineNr"> 499 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L500" class="LineNr"> 500 </span> <span class="subxS1Comment"># . write(_test-input-stream, "2 3 # comment 4 inline with other contents\n")</span> <span id="L501" class="LineNr"> 501 </span> <span class="subxS2Comment"># . . push args</span> <span id="L502" class="LineNr"> 502 </span> 68/push <span class="Constant">"2 3 # comment 4 inline with other contents\n"</span>/imm32 -<span id="L503" class="LineNr"> 503 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L503" class="LineNr"> 503 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L504" class="LineNr"> 504 </span> <span class="subxS2Comment"># . . call</span> -<span id="L505" class="LineNr"> 505 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L505" class="LineNr"> 505 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L506" class="LineNr"> 506 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L507" class="LineNr"> 507 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L508" class="LineNr"> 508 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x2\n")</span> <span id="L509" class="LineNr"> 509 </span> <span class="subxS2Comment"># . . push args</span> <span id="L510" class="LineNr"> 510 </span> 68/push <span class="Constant">"== data 0x2\n"</span>/imm32 -<span id="L511" class="LineNr"> 511 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L511" class="LineNr"> 511 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L512" class="LineNr"> 512 </span> <span class="subxS2Comment"># . . call</span> -<span id="L513" class="LineNr"> 513 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L513" class="LineNr"> 513 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L514" class="LineNr"> 514 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L515" class="LineNr"> 515 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L516" class="LineNr"> 516 </span> <span class="subxS1Comment"># . write(_test-input-stream, "4 5/imm32\n")</span> <span id="L517" class="LineNr"> 517 </span> <span class="subxS2Comment"># . . push args</span> <span id="L518" class="LineNr"> 518 </span> 68/push <span class="Constant">"4 5/imm32\n"</span>/imm32 -<span id="L519" class="LineNr"> 519 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L519" class="LineNr"> 519 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L521" class="LineNr"> 521 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L521" class="LineNr"> 521 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L523" class="LineNr"> 523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L524" class="LineNr"> 524 </span> <span class="subxComment"># subx-dquotes(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L525" class="LineNr"> 525 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L526" class="LineNr"> 526 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L527" class="LineNr"> 527 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L526" class="LineNr"> 526 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L527" class="LineNr"> 527 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L528" class="LineNr"> 528 </span> <span class="subxS2Comment"># . . call</span> <span id="L529" class="LineNr"> 529 </span> e8/call <a href='dquotes.subx.html#L84'>subx-dquotes</a>/disp32 <span id="L530" class="LineNr"> 530 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L531" class="LineNr"> 531 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L532" class="LineNr"> 532 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L533" class="LineNr"> 533 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L534" class="LineNr"> 534 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L534" class="LineNr"> 534 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . call</span> -<span id="L536" class="LineNr"> 536 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L536" class="LineNr"> 536 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L538" class="LineNr"> 538 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L539" class="LineNr"> 539 </span> <span class="subxComment"># check output</span> @@ -615,81 +615,81 @@ if ('onhashchange' in window) { <span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . push args</span> <span id="L578" class="LineNr"> 578 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/0"</span>/imm32 <span id="L579" class="LineNr"> 579 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L580" class="LineNr"> 580 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L580" class="LineNr"> 580 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L581" class="LineNr"> 581 </span> <span class="subxS2Comment"># . . call</span> -<span id="L582" class="LineNr"> 582 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L582" class="LineNr"> 582 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L583" class="LineNr"> 583 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L584" class="LineNr"> 584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L585" class="LineNr"> 585 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "", msg)</span> <span id="L586" class="LineNr"> 586 </span> <span class="subxS2Comment"># . . push args</span> <span id="L587" class="LineNr"> 587 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/1"</span>/imm32 <span id="L588" class="LineNr"> 588 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L589" class="LineNr"> 589 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L589" class="LineNr"> 589 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L590" class="LineNr"> 590 </span> <span class="subxS2Comment"># . . call</span> -<span id="L591" class="LineNr"> 591 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L591" class="LineNr"> 591 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L592" class="LineNr"> 592 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L593" class="LineNr"> 593 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L594" class="LineNr"> 594 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== code 0x1 ", msg)</span> <span id="L595" class="LineNr"> 595 </span> <span class="subxS2Comment"># . . push args</span> <span id="L596" class="LineNr"> 596 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/2"</span>/imm32 <span id="L597" class="LineNr"> 597 </span> 68/push <span class="Constant">"== code 0x1 "</span>/imm32 -<span id="L598" class="LineNr"> 598 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L598" class="LineNr"> 598 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L599" class="LineNr"> 599 </span> <span class="subxS2Comment"># . . call</span> -<span id="L600" class="LineNr"> 600 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L600" class="LineNr"> 600 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L601" class="LineNr"> 601 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L602" class="LineNr"> 602 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L603" class="LineNr"> 603 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "", msg)</span> <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . push args</span> <span id="L605" class="LineNr"> 605 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/3"</span>/imm32 <span id="L606" class="LineNr"> 606 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L607" class="LineNr"> 607 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L607" class="LineNr"> 607 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L608" class="LineNr"> 608 </span> <span class="subxS2Comment"># . . call</span> -<span id="L609" class="LineNr"> 609 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L609" class="LineNr"> 609 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L610" class="LineNr"> 610 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L611" class="LineNr"> 611 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L612" class="LineNr"> 612 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "1 ", msg)</span> <span id="L613" class="LineNr"> 613 </span> <span class="subxS2Comment"># . . push args</span> <span id="L614" class="LineNr"> 614 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/4"</span>/imm32 <span id="L615" class="LineNr"> 615 </span> 68/push <span class="Constant">"1 "</span>/imm32 -<span id="L616" class="LineNr"> 616 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L616" class="LineNr"> 616 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L617" class="LineNr"> 617 </span> <span class="subxS2Comment"># . . call</span> -<span id="L618" class="LineNr"> 618 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L618" class="LineNr"> 618 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L619" class="LineNr"> 619 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L620" class="LineNr"> 620 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L621" class="LineNr"> 621 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "", msg)</span> <span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . push args</span> <span id="L623" class="LineNr"> 623 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/5"</span>/imm32 <span id="L624" class="LineNr"> 624 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L625" class="LineNr"> 625 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L625" class="LineNr"> 625 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L626" class="LineNr"> 626 </span> <span class="subxS2Comment"># . . call</span> -<span id="L627" class="LineNr"> 627 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L627" class="LineNr"> 627 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L628" class="LineNr"> 628 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L629" class="LineNr"> 629 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L630" class="LineNr"> 630 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "2 3 ", msg)</span> <span id="L631" class="LineNr"> 631 </span> <span class="subxS2Comment"># . . push args</span> <span id="L632" class="LineNr"> 632 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/6"</span>/imm32 <span id="L633" class="LineNr"> 633 </span> 68/push <span class="Constant">"2 3 "</span>/imm32 -<span id="L634" class="LineNr"> 634 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L634" class="LineNr"> 634 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L635" class="LineNr"> 635 </span> <span class="subxS2Comment"># . . call</span> -<span id="L636" class="LineNr"> 636 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L636" class="LineNr"> 636 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L638" class="LineNr"> 638 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L639" class="LineNr"> 639 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== data 0x2 ", msg)</span> <span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . push args</span> <span id="L641" class="LineNr"> 641 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/7"</span>/imm32 <span id="L642" class="LineNr"> 642 </span> 68/push <span class="Constant">"== data 0x2 "</span>/imm32 -<span id="L643" class="LineNr"> 643 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L643" class="LineNr"> 643 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . call</span> -<span id="L645" class="LineNr"> 645 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L645" class="LineNr"> 645 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L646" class="LineNr"> 646 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L647" class="LineNr"> 647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L648" class="LineNr"> 648 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "4 5/imm32 ", msg)</span> <span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . push args</span> <span id="L650" class="LineNr"> 650 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L409'>test-subx-dquotes-is-idempotent-by-default</a>/8"</span>/imm32 <span id="L651" class="LineNr"> 651 </span> 68/push <span class="Constant">"4 5/imm32 "</span>/imm32 -<span id="L652" class="LineNr"> 652 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L652" class="LineNr"> 652 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . call</span> -<span id="L654" class="LineNr"> 654 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L654" class="LineNr"> 654 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L655" class="LineNr"> 655 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L656" class="LineNr"> 656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L657" class="LineNr"> 657 </span> <span class="subxS1Comment"># . epilogue</span> @@ -704,30 +704,30 @@ if ('onhashchange' in window) { <span id="L666" class="LineNr"> 666 </span> <span class="subxComment"># setup</span> <span id="L667" class="LineNr"> 667 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L668" class="LineNr"> 668 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L669" class="LineNr"> 669 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L669" class="LineNr"> 669 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L670" class="LineNr"> 670 </span> <span class="subxS2Comment"># . . call</span> -<span id="L671" class="LineNr"> 671 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L671" class="LineNr"> 671 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L673" class="LineNr"> 673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L674" class="LineNr"> 674 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . push args</span> <span id="L676" class="LineNr"> 676 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . call</span> -<span id="L678" class="LineNr"> 678 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L678" class="LineNr"> 678 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L680" class="LineNr"> 680 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L681" class="LineNr"> 681 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L682" class="LineNr"> 682 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L683" class="LineNr"> 683 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L683" class="LineNr"> 683 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . call</span> -<span id="L685" class="LineNr"> 685 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L685" class="LineNr"> 685 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L686" class="LineNr"> 686 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L687" class="LineNr"> 687 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L688" class="LineNr"> 688 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L689" class="LineNr"> 689 </span> <span class="subxS2Comment"># . . push args</span> <span id="L690" class="LineNr"> 690 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L691" class="LineNr"> 691 </span> <span class="subxS2Comment"># . . call</span> -<span id="L692" class="LineNr"> 692 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L692" class="LineNr"> 692 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L693" class="LineNr"> 693 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L694" class="LineNr"> 694 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L695" class="LineNr"> 695 </span> <span class="subxComment"># initialize input (meta comments in parens)</span> @@ -735,40 +735,40 @@ if ('onhashchange' in window) { <span id="L697" class="LineNr"> 697 </span> <span class="subxComment"># 1 "a"/x</span> <span id="L698" class="LineNr"> 698 </span> <span class="subxComment"># 2 "bc"/y</span> <span id="L699" class="LineNr"> 699 </span> 68/push <span class="Constant">"== code 0x1\n"</span>/imm32 -<span id="L700" class="LineNr"> 700 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L700" class="LineNr"> 700 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L701" class="LineNr"> 701 </span> <span class="subxS2Comment"># . . call</span> -<span id="L702" class="LineNr"> 702 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L702" class="LineNr"> 702 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L703" class="LineNr"> 703 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L704" class="LineNr"> 704 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L705" class="LineNr"> 705 </span> <span class="subxS1Comment"># . write(_test-input-stream, "1 \"a\"/x\n")</span> <span id="L706" class="LineNr"> 706 </span> <span class="subxS2Comment"># . . push args</span> <span id="L707" class="LineNr"> 707 </span> 68/push <span class="Constant">"1 \"</span>a\<span class="Constant">"/x\n"</span>/imm32 -<span id="L708" class="LineNr"> 708 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L708" class="LineNr"> 708 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . call</span> -<span id="L710" class="LineNr"> 710 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L710" class="LineNr"> 710 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L712" class="LineNr"> 712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L713" class="LineNr"> 713 </span> <span class="subxS1Comment"># . write(_test-input-stream, "2 \"bc\"/y\n")</span> <span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . push args</span> <span id="L715" class="LineNr"> 715 </span> 68/push <span class="Constant">"2 \"</span>bc\<span class="Constant">"/y\n"</span>/imm32 -<span id="L716" class="LineNr"> 716 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L716" class="LineNr"> 716 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L717" class="LineNr"> 717 </span> <span class="subxS2Comment"># . . call</span> -<span id="L718" class="LineNr"> 718 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L718" class="LineNr"> 718 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L719" class="LineNr"> 719 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L720" class="LineNr"> 720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L721" class="LineNr"> 721 </span> <span class="subxComment"># subx-dquotes(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L722" class="LineNr"> 722 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L723" class="LineNr"> 723 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L724" class="LineNr"> 724 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L723" class="LineNr"> 723 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L724" class="LineNr"> 724 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . call</span> <span id="L726" class="LineNr"> 726 </span> e8/call <a href='dquotes.subx.html#L84'>subx-dquotes</a>/disp32 <span id="L727" class="LineNr"> 727 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L728" class="LineNr"> 728 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L729" class="LineNr"> 729 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L731" class="LineNr"> 731 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L731" class="LineNr"> 731 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L732" class="LineNr"> 732 </span> <span class="subxS2Comment"># . . call</span> -<span id="L733" class="LineNr"> 733 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L733" class="LineNr"> 733 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L735" class="LineNr"> 735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L736" class="LineNr"> 736 </span> <span class="subxComment"># check output</span> @@ -792,72 +792,72 @@ if ('onhashchange' in window) { <span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . push args</span> <span id="L787" class="LineNr"> 787 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/0"</span>/imm32 <span id="L788" class="LineNr"> 788 </span> 68/push <span class="Constant">"== code 0x1 "</span>/imm32 -<span id="L789" class="LineNr"> 789 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L789" class="LineNr"> 789 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L790" class="LineNr"> 790 </span> <span class="subxS2Comment"># . . call</span> -<span id="L791" class="LineNr"> 791 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L791" class="LineNr"> 791 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L792" class="LineNr"> 792 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L793" class="LineNr"> 793 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L794" class="LineNr"> 794 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "1 _string1/x ", msg)</span> <span id="L795" class="LineNr"> 795 </span> <span class="subxS2Comment"># . . push args</span> <span id="L796" class="LineNr"> 796 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/1"</span>/imm32 <span id="L797" class="LineNr"> 797 </span> 68/push <span class="Constant">"1 _string1/x "</span>/imm32 -<span id="L798" class="LineNr"> 798 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L798" class="LineNr"> 798 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L799" class="LineNr"> 799 </span> <span class="subxS2Comment"># . . call</span> -<span id="L800" class="LineNr"> 800 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L800" class="LineNr"> 800 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L801" class="LineNr"> 801 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L802" class="LineNr"> 802 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L803" class="LineNr"> 803 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "2 _string2/y ", msg)</span> <span id="L804" class="LineNr"> 804 </span> <span class="subxS2Comment"># . . push args</span> <span id="L805" class="LineNr"> 805 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/2"</span>/imm32 <span id="L806" class="LineNr"> 806 </span> 68/push <span class="Constant">"2 _string2/y "</span>/imm32 -<span id="L807" class="LineNr"> 807 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L807" class="LineNr"> 807 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L808" class="LineNr"> 808 </span> <span class="subxS2Comment"># . . call</span> -<span id="L809" class="LineNr"> 809 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L809" class="LineNr"> 809 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L810" class="LineNr"> 810 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L811" class="LineNr"> 811 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L812" class="LineNr"> 812 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== data", msg)</span> <span id="L813" class="LineNr"> 813 </span> <span class="subxS2Comment"># . . push args</span> <span id="L814" class="LineNr"> 814 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/3"</span>/imm32 <span id="L815" class="LineNr"> 815 </span> 68/push <span class="Constant">"== data"</span>/imm32 -<span id="L816" class="LineNr"> 816 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L816" class="LineNr"> 816 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L817" class="LineNr"> 817 </span> <span class="subxS2Comment"># . . call</span> -<span id="L818" class="LineNr"> 818 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L818" class="LineNr"> 818 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L819" class="LineNr"> 819 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L820" class="LineNr"> 820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L821" class="LineNr"> 821 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "_string1: ", msg)</span> <span id="L822" class="LineNr"> 822 </span> <span class="subxS2Comment"># . . push args</span> <span id="L823" class="LineNr"> 823 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/4"</span>/imm32 <span id="L824" class="LineNr"> 824 </span> 68/push <span class="Constant">"_string1:"</span>/imm32 -<span id="L825" class="LineNr"> 825 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L825" class="LineNr"> 825 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L826" class="LineNr"> 826 </span> <span class="subxS2Comment"># . . call</span> -<span id="L827" class="LineNr"> 827 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L827" class="LineNr"> 827 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L828" class="LineNr"> 828 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L829" class="LineNr"> 829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L830" class="LineNr"> 830 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "1/imm32 61/a ", msg)</span> <span id="L831" class="LineNr"> 831 </span> <span class="subxS2Comment"># . . push args</span> <span id="L832" class="LineNr"> 832 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/5"</span>/imm32 <span id="L833" class="LineNr"> 833 </span> 68/push <span class="Constant">"0x00000001/imm32 61/a "</span>/imm32 -<span id="L834" class="LineNr"> 834 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L834" class="LineNr"> 834 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L835" class="LineNr"> 835 </span> <span class="subxS2Comment"># . . call</span> -<span id="L836" class="LineNr"> 836 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L836" class="LineNr"> 836 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L837" class="LineNr"> 837 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L838" class="LineNr"> 838 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L839" class="LineNr"> 839 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "_string2: ", msg)</span> <span id="L840" class="LineNr"> 840 </span> <span class="subxS2Comment"># . . push args</span> <span id="L841" class="LineNr"> 841 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/6"</span>/imm32 <span id="L842" class="LineNr"> 842 </span> 68/push <span class="Constant">"_string2:"</span>/imm32 -<span id="L843" class="LineNr"> 843 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L843" class="LineNr"> 843 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L844" class="LineNr"> 844 </span> <span class="subxS2Comment"># . . call</span> -<span id="L845" class="LineNr"> 845 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L845" class="LineNr"> 845 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L846" class="LineNr"> 846 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L847" class="LineNr"> 847 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L848" class="LineNr"> 848 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "2/imm32 62/b 63/c ", msg)</span> <span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . push args</span> <span id="L850" class="LineNr"> 850 </span> 68/push <span class="Constant">"F - <a href='dquotes.subx.html#L662'>test-subx-dquotes-processes-string-literals</a>/7"</span>/imm32 <span id="L851" class="LineNr"> 851 </span> 68/push <span class="Constant">"0x00000002/imm32 62/b 63/c "</span>/imm32 -<span id="L852" class="LineNr"> 852 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L852" class="LineNr"> 852 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L853" class="LineNr"> 853 </span> <span class="subxS2Comment"># . . call</span> -<span id="L854" class="LineNr"> 854 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L854" class="LineNr"> 854 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L856" class="LineNr"> 856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L857" class="LineNr"> 857 </span> <span class="subxS1Comment"># . epilogue</span> @@ -926,7 +926,7 @@ if ('onhashchange' in window) { <span id="L920" class="LineNr"> 920 </span> 50/push-eax <span id="L921" class="LineNr"> 921 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . call</span> -<span id="L923" class="LineNr"> 923 </span> e8/call <a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L923" class="LineNr"> 923 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 <span id="L924" class="LineNr"> 924 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L925" class="LineNr"> 925 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L926" class="LineNr"> 926 </span> <span class="subxS1Comment"># . write(out, "/imm32 ")</span> @@ -934,7 +934,7 @@ if ('onhashchange' in window) { <span id="L928" class="LineNr"> 928 </span> 68/push <span class="Constant">"/imm32 "</span>/imm32 <span id="L929" class="LineNr"> 929 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L930" class="LineNr"> 930 </span> <span class="subxS2Comment"># . . call</span> -<span id="L931" class="LineNr"> 931 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L931" class="LineNr"> 931 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L932" class="LineNr"> 932 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L933" class="LineNr"> 933 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L934" class="LineNr"> 934 </span><span class="Constant">$emit-string-literal-data:loop-init</span>: @@ -953,7 +953,7 @@ if ('onhashchange' in window) { <span id="L947" class="LineNr"> 947 </span> 0f 84/jump-if-= $emit-string-literal-data:end/disp32 <span id="L948" class="LineNr"> 948 </span> <span class="subxComment"># if (c != '\') goto emit</span> <span id="L949" class="LineNr"> 949 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x5c/imm32/backslash <span class="subxComment"># compare ecx</span> -<span id="L950" class="LineNr"> 950 </span> 75/jump-if-!= $emit-string-literal-data:<a href='../130emit.subx.html#L10'>emit</a>/disp8 +<span id="L950" class="LineNr"> 950 </span> 75/jump-if-!= $emit-string-literal-data:<a href='130emit.subx.html#L10'>emit</a>/disp8 <span id="L951" class="LineNr"> 951 </span> <span class="subxComment"># ++curr</span> <span id="L952" class="LineNr"> 952 </span> 42/increment-edx <span id="L953" class="LineNr"> 953 </span> <span class="subxComment"># if (curr >= max) break</span> @@ -963,23 +963,23 @@ if ('onhashchange' in window) { <span id="L957" class="LineNr"> 957 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/CL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to CL</span> <span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># if (c == 'n') c = newline</span> <span id="L959" class="LineNr"> 959 </span> 81 7/subop/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x6e/imm32/n <span class="subxComment"># compare ecx</span> -<span id="L960" class="LineNr"> 960 </span> 75/jump-if-!= $emit-string-literal-data:<a href='../130emit.subx.html#L10'>emit</a>/disp8 +<span id="L960" class="LineNr"> 960 </span> 75/jump-if-!= $emit-string-literal-data:<a href='130emit.subx.html#L10'>emit</a>/disp8 <span id="L961" class="LineNr"> 961 </span> b9/copy-to-ecx 0x0a/imm32/newline -<span id="L962" class="LineNr"> 962 </span><span class="Constant">$emit-string-literal-data:<a href='../130emit.subx.html#L10'>emit</a></span>: +<span id="L962" class="LineNr"> 962 </span><span class="Constant">$emit-string-literal-data:<a href='130emit.subx.html#L10'>emit</a></span>: <span id="L963" class="LineNr"> 963 </span> <span class="subxComment"># append-byte-hex(out, CL)</span> <span id="L964" class="LineNr"> 964 </span> <span class="subxS2Comment"># . . push args</span> <span id="L965" class="LineNr"> 965 </span> 51/push-ecx <span id="L966" class="LineNr"> 966 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L967" class="LineNr"> 967 </span> <span class="subxS2Comment"># . . call</span> -<span id="L968" class="LineNr"> 968 </span> e8/call <a href='../117write-int-hex.subx.html#L21'>append-byte-hex</a>/disp32 +<span id="L968" class="LineNr"> 968 </span> e8/call <a href='117write-int-hex.subx.html#L21'>append-byte-hex</a>/disp32 <span id="L969" class="LineNr"> 969 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L970" class="LineNr"> 970 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># if (is-alphanumeric?(*curr)) print(out, "/#{*curr}")</span> -<span id="L972" class="LineNr"> 972 </span> <span class="subxS1Comment"># . var eax: boolean = is-alphanumeric?(CL)</span> +<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># if (alphanumeric?(*curr)) print(out, "/#{*curr}")</span> +<span id="L972" class="LineNr"> 972 </span> <span class="subxS1Comment"># . var eax: boolean = alphanumeric?(CL)</span> <span id="L973" class="LineNr"> 973 </span> <span class="subxS2Comment"># . . push args</span> <span id="L974" class="LineNr"> 974 </span> 51/push-ecx <span id="L975" class="LineNr"> 975 </span> <span class="subxS2Comment"># . . call</span> -<span id="L976" class="LineNr"> 976 </span> e8/call <a href='dquotes.subx.html#L1038'>is-alphanumeric?</a>/disp32 +<span id="L976" class="LineNr"> 976 </span> e8/call <a href='dquotes.subx.html#L1038'>alphanumeric?</a>/disp32 <span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L978" class="LineNr"> 978 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L979" class="LineNr"> 979 </span> <span class="subxS1Comment"># . if (eax == false) goto char-done</span> @@ -987,10 +987,10 @@ if ('onhashchange' in window) { <span id="L981" class="LineNr"> 981 </span> 74/jump-if-= $emit-string-literal-data:char-done/disp8 <span id="L982" class="LineNr"> 982 </span> <span class="subxS1Comment"># . write(out, "/")</span> <span id="L983" class="LineNr"> 983 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L984" class="LineNr"> 984 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L100'>Slash</a></span>/imm32 +<span id="L984" class="LineNr"> 984 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L100'>Slash</a></span>/imm32 <span id="L985" class="LineNr"> 985 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L986" class="LineNr"> 986 </span> <span class="subxS2Comment"># . . call</span> -<span id="L987" class="LineNr"> 987 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L987" class="LineNr"> 987 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L988" class="LineNr"> 988 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L989" class="LineNr"> 989 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L990" class="LineNr"> 990 </span> <span class="subxS1Comment"># . append-byte(out, *curr)</span> @@ -998,16 +998,16 @@ if ('onhashchange' in window) { <span id="L992" class="LineNr"> 992 </span> 51/push-ecx <span id="L993" class="LineNr"> 993 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L994" class="LineNr"> 994 </span> <span class="subxS2Comment"># . . call</span> -<span id="L995" class="LineNr"> 995 </span> e8/call <a href='../115write-byte.subx.html#L208'>append-byte</a>/disp32 +<span id="L995" class="LineNr"> 995 </span> e8/call <a href='115write-byte.subx.html#L208'>append-byte</a>/disp32 <span id="L996" class="LineNr"> 996 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L997" class="LineNr"> 997 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L998" class="LineNr"> 998 </span><span class="Constant">$emit-string-literal-data:char-done</span>: <span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># write(out, " ")</span> <span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1001" class="LineNr">1001 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L1001" class="LineNr">1001 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 <span id="L1002" class="LineNr">1002 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1003" class="LineNr">1003 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1004" class="LineNr">1004 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1004" class="LineNr">1004 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1005" class="LineNr">1005 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1006" class="LineNr">1006 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1007" class="LineNr">1007 </span> <span class="subxComment"># ++curr</span> @@ -1021,10 +1021,10 @@ if ('onhashchange' in window) { <span id="L1015" class="LineNr">1015 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> <span id="L1016" class="LineNr">1016 </span> <span class="subxComment"># write(out, "\n")</span> <span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1018" class="LineNr">1018 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1018" class="LineNr">1018 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 <span id="L1019" class="LineNr">1019 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1020" class="LineNr">1020 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1021" class="LineNr">1021 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1021" class="LineNr">1021 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1023" class="LineNr">1023 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1024" class="LineNr">1024 </span><span class="Constant">$emit-string-literal-data:next-char</span>: @@ -1041,7 +1041,7 @@ if ('onhashchange' in window) { <span id="L1035" class="LineNr">1035 </span> 5d/pop-to-ebp <span id="L1036" class="LineNr">1036 </span> c3/return <span id="L1037" class="LineNr">1037 </span> -<span id="L1038" class="LineNr">1038 </span><span class="subxFunction">is-alphanumeric?</span>: <span class="subxComment"># c: int -> eax: boolean</span> +<span id="L1038" class="LineNr">1038 </span><span class="subxFunction">alphanumeric?</span>: <span class="subxComment"># c: int -> eax: boolean</span> <span id="L1039" class="LineNr">1039 </span> <span class="subxS1Comment"># . prologue</span> <span id="L1040" class="LineNr">1040 </span> 55/push-ebp <span id="L1041" class="LineNr">1041 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> @@ -1049,29 +1049,29 @@ if ('onhashchange' in window) { <span id="L1043" class="LineNr">1043 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to eax</span> <span id="L1044" class="LineNr">1044 </span> <span class="subxComment"># if (c < '0') return false</span> <span id="L1045" class="LineNr">1045 </span> 3d/compare-eax-with 0x30/imm32/0 -<span id="L1046" class="LineNr">1046 </span> 7c/jump-if-< $is-alphanumeric?:false/disp8 +<span id="L1046" class="LineNr">1046 </span> 7c/jump-if-< $alphanumeric?:false/disp8 <span id="L1047" class="LineNr">1047 </span> <span class="subxComment"># if (c <= '9') return true</span> <span id="L1048" class="LineNr">1048 </span> 3d/compare-eax-with 0x39/imm32/9 -<span id="L1049" class="LineNr">1049 </span> 7e/jump-if-<= $is-alphanumeric?:true/disp8 +<span id="L1049" class="LineNr">1049 </span> 7e/jump-if-<= $alphanumeric?:true/disp8 <span id="L1050" class="LineNr">1050 </span> <span class="subxComment"># if (c < 'A') return false</span> <span id="L1051" class="LineNr">1051 </span> 3d/compare-eax-with 0x41/imm32/A -<span id="L1052" class="LineNr">1052 </span> 7c/jump-if-< $is-alphanumeric?:false/disp8 +<span id="L1052" class="LineNr">1052 </span> 7c/jump-if-< $alphanumeric?:false/disp8 <span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># if (c <= 'Z') return true</span> <span id="L1054" class="LineNr">1054 </span> 3d/compare-eax-with 0x5a/imm32/Z -<span id="L1055" class="LineNr">1055 </span> 7e/jump-if-<= $is-alphanumeric?:true/disp8 +<span id="L1055" class="LineNr">1055 </span> 7e/jump-if-<= $alphanumeric?:true/disp8 <span id="L1056" class="LineNr">1056 </span> <span class="subxComment"># if (c < 'a') return false</span> <span id="L1057" class="LineNr">1057 </span> 3d/compare-eax-with 0x61/imm32/a -<span id="L1058" class="LineNr">1058 </span> 7c/jump-if-< $is-alphanumeric?:false/disp8 +<span id="L1058" class="LineNr">1058 </span> 7c/jump-if-< $alphanumeric?:false/disp8 <span id="L1059" class="LineNr">1059 </span> <span class="subxComment"># if (c <= 'z') return true</span> <span id="L1060" class="LineNr">1060 </span> 3d/compare-eax-with 0x7a/imm32/z -<span id="L1061" class="LineNr">1061 </span> 7e/jump-if-<= $is-alphanumeric?:true/disp8 +<span id="L1061" class="LineNr">1061 </span> 7e/jump-if-<= $alphanumeric?:true/disp8 <span id="L1062" class="LineNr">1062 </span> <span class="subxComment"># return false</span> -<span id="L1063" class="LineNr">1063 </span><span class="Constant">$is-alphanumeric?:false</span>: +<span id="L1063" class="LineNr">1063 </span><span class="Constant">$alphanumeric?:false</span>: <span id="L1064" class="LineNr">1064 </span> b8/copy-to-eax 0/imm32/false -<span id="L1065" class="LineNr">1065 </span> eb/jump $is-alphanumeric?:end/disp8 -<span id="L1066" class="LineNr">1066 </span><span class="Constant">$is-alphanumeric?:true</span>: +<span id="L1065" class="LineNr">1065 </span> eb/jump $alphanumeric?:end/disp8 +<span id="L1066" class="LineNr">1066 </span><span class="Constant">$alphanumeric?:true</span>: <span id="L1067" class="LineNr">1067 </span> b8/copy-to-eax 1/imm32/true -<span id="L1068" class="LineNr">1068 </span><span class="Constant">$is-alphanumeric?:end</span>: +<span id="L1068" class="LineNr">1068 </span><span class="Constant">$alphanumeric?:end</span>: <span id="L1069" class="LineNr">1069 </span> <span class="subxS1Comment"># . epilogue</span> <span id="L1070" class="LineNr">1070 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> <span id="L1071" class="LineNr">1071 </span> 5d/pop-to-ebp @@ -1084,9 +1084,9 @@ if ('onhashchange' in window) { <span id="L1078" class="LineNr">1078 </span> <span class="subxComment"># setup</span> <span id="L1079" class="LineNr">1079 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1080" class="LineNr">1080 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1081" class="LineNr">1081 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1081" class="LineNr">1081 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1082" class="LineNr">1082 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1083" class="LineNr">1083 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1083" class="LineNr">1083 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1084" class="LineNr">1084 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1085" class="LineNr">1085 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># var slice/ecx = '"abc"/d'</span> @@ -1096,7 +1096,7 @@ if ('onhashchange' in window) { <span id="L1090" class="LineNr">1090 </span> <span class="subxComment"># emit-string-literal-data(_test-output-stream, slice)</span> <span id="L1091" class="LineNr">1091 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1092" class="LineNr">1092 </span> 51/push-ecx -<span id="L1093" class="LineNr">1093 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1093" class="LineNr">1093 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1094" class="LineNr">1094 </span> <span class="subxS2Comment"># . . call</span> <span id="L1095" class="LineNr">1095 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1106,9 +1106,9 @@ if ('onhashchange' in window) { <span id="L1125" class="LineNr">1125 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1126" class="LineNr">1126 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data"</span>/imm32 <span id="L1127" class="LineNr">1127 </span> 68/push <span class="Constant">"0x00000003/imm32 61/a 62/b 63/c "</span>/imm32 -<span id="L1128" class="LineNr">1128 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1128" class="LineNr">1128 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1129" class="LineNr">1129 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1130" class="LineNr">1130 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1130" class="LineNr">1130 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1131" class="LineNr">1131 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1132" class="LineNr">1132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1133" class="LineNr">1133 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1123,9 +1123,9 @@ if ('onhashchange' in window) { <span id="L1142" class="LineNr">1142 </span> <span class="subxComment"># setup</span> <span id="L1143" class="LineNr">1143 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1144" class="LineNr">1144 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1145" class="LineNr">1145 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1145" class="LineNr">1145 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1146" class="LineNr">1146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1147" class="LineNr">1147 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1147" class="LineNr">1147 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1148" class="LineNr">1148 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1149" class="LineNr">1149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1150" class="LineNr">1150 </span> <span class="subxComment"># var slice/ecx = '""'</span> @@ -1135,7 +1135,7 @@ if ('onhashchange' in window) { <span id="L1154" class="LineNr">1154 </span> <span class="subxComment"># emit-string-literal-data(_test-output-stream, slice)</span> <span id="L1155" class="LineNr">1155 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1156" class="LineNr">1156 </span> 51/push-ecx -<span id="L1157" class="LineNr">1157 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1157" class="LineNr">1157 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1158" class="LineNr">1158 </span> <span class="subxS2Comment"># . . call</span> <span id="L1159" class="LineNr">1159 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1160" class="LineNr">1160 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1145,9 +1145,9 @@ if ('onhashchange' in window) { <span id="L1189" class="LineNr">1189 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1190" class="LineNr">1190 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data-empty"</span>/imm32 <span id="L1191" class="LineNr">1191 </span> 68/push <span class="Constant">"0x00000000/imm32 "</span>/imm32 -<span id="L1192" class="LineNr">1192 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1192" class="LineNr">1192 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1194" class="LineNr">1194 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1194" class="LineNr">1194 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1196" class="LineNr">1196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1197" class="LineNr">1197 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1163,9 +1163,9 @@ if ('onhashchange' in window) { <span id="L1207" class="LineNr">1207 </span> <span class="subxComment"># setup</span> <span id="L1208" class="LineNr">1208 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1210" class="LineNr">1210 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1210" class="LineNr">1210 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1212" class="LineNr">1212 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1212" class="LineNr">1212 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1213" class="LineNr">1213 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1214" class="LineNr">1214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1215" class="LineNr">1215 </span> <span class="subxComment"># var slice/ecx = '"a b"'</span> @@ -1175,7 +1175,7 @@ if ('onhashchange' in window) { <span id="L1219" class="LineNr">1219 </span> <span class="subxComment"># emit-string-literal-data(_test-output-stream, slice)</span> <span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1221" class="LineNr">1221 </span> 51/push-ecx -<span id="L1222" class="LineNr">1222 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1222" class="LineNr">1222 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1223" class="LineNr">1223 </span> <span class="subxS2Comment"># . . call</span> <span id="L1224" class="LineNr">1224 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1225" class="LineNr">1225 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1185,9 +1185,9 @@ if ('onhashchange' in window) { <span id="L1254" class="LineNr">1254 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1255" class="LineNr">1255 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data-no-metadata-for-non-alphanumerics"</span>/imm32 <span id="L1256" class="LineNr">1256 </span> 68/push <span class="Constant">"0x00000003/imm32 61/a 20 62/b "</span>/imm32 -<span id="L1257" class="LineNr">1257 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1257" class="LineNr">1257 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1258" class="LineNr">1258 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1259" class="LineNr">1259 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1259" class="LineNr">1259 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1260" class="LineNr">1260 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1261" class="LineNr">1261 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1262" class="LineNr">1262 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1202,9 +1202,9 @@ if ('onhashchange' in window) { <span id="L1271" class="LineNr">1271 </span> <span class="subxComment"># setup</span> <span id="L1272" class="LineNr">1272 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1273" class="LineNr">1273 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1274" class="LineNr">1274 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1274" class="LineNr">1274 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1275" class="LineNr">1275 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1276" class="LineNr">1276 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1276" class="LineNr">1276 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1278" class="LineNr">1278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1279" class="LineNr">1279 </span> <span class="subxComment"># var slice/ecx = '"a\"b"'</span> @@ -1214,7 +1214,7 @@ if ('onhashchange' in window) { <span id="L1283" class="LineNr">1283 </span> <span class="subxComment"># emit-string-literal-data(_test-output-stream, slice)</span> <span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1285" class="LineNr">1285 </span> 51/push-ecx -<span id="L1286" class="LineNr">1286 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1286" class="LineNr">1286 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1287" class="LineNr">1287 </span> <span class="subxS2Comment"># . . call</span> <span id="L1288" class="LineNr">1288 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1289" class="LineNr">1289 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1224,9 +1224,9 @@ if ('onhashchange' in window) { <span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1319" class="LineNr">1319 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data-handles-escape-sequences"</span>/imm32 <span id="L1320" class="LineNr">1320 </span> 68/push <span class="Constant">"0x00000003/imm32 61/a 22 62/b "</span>/imm32 -<span id="L1321" class="LineNr">1321 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1321" class="LineNr">1321 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1323" class="LineNr">1323 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1323" class="LineNr">1323 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1324" class="LineNr">1324 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1325" class="LineNr">1325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1326" class="LineNr">1326 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1241,9 +1241,9 @@ if ('onhashchange' in window) { <span id="L1335" class="LineNr">1335 </span> <span class="subxComment"># setup</span> <span id="L1336" class="LineNr">1336 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1337" class="LineNr">1337 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1338" class="LineNr">1338 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1338" class="LineNr">1338 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1339" class="LineNr">1339 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1340" class="LineNr">1340 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1340" class="LineNr">1340 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1341" class="LineNr">1341 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1342" class="LineNr">1342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1343" class="LineNr">1343 </span> <span class="subxComment"># var slice/ecx = '"a\nb"'</span> @@ -1253,7 +1253,7 @@ if ('onhashchange' in window) { <span id="L1347" class="LineNr">1347 </span> <span class="subxComment"># emit-string-literal-data(_test-output-stream, slice)</span> <span id="L1348" class="LineNr">1348 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1349" class="LineNr">1349 </span> 51/push-ecx -<span id="L1350" class="LineNr">1350 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1350" class="LineNr">1350 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . call</span> <span id="L1352" class="LineNr">1352 </span> e8/call <a href='dquotes.subx.html#L863'>emit-string-literal-data</a>/disp32 <span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1263,9 +1263,9 @@ if ('onhashchange' in window) { <span id="L1382" class="LineNr">1382 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1383" class="LineNr">1383 </span> 68/push <span class="Constant">"F - test-emit-string-literal-data-handles-newline-escape"</span>/imm32 <span id="L1384" class="LineNr">1384 </span> 68/push <span class="Constant">"0x00000003/imm32 61/a 0a 62/b "</span>/imm32 -<span id="L1385" class="LineNr">1385 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1385" class="LineNr">1385 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1386" class="LineNr">1386 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1387" class="LineNr">1387 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1387" class="LineNr">1387 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1388" class="LineNr">1388 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1389" class="LineNr">1389 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1390" class="LineNr">1390 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1322,12 +1322,12 @@ if ('onhashchange' in window) { <span id="L1441" class="LineNr">1441 </span> 52/push-edx <span id="L1442" class="LineNr">1442 </span> 51/push-ecx <span id="L1443" class="LineNr">1443 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1444" class="LineNr">1444 </span> e8/call <a href='../124next-token.subx.html#L1413'>skip-string-in-slice</a>/disp32 +<span id="L1444" class="LineNr">1444 </span> e8/call <a href='124next-token.subx.html#L1413'>skip-string-in-slice</a>/disp32 <span id="L1445" class="LineNr">1445 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1446" class="LineNr">1446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . curr = eax</span> <span id="L1448" class="LineNr">1448 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L1449" class="LineNr">1449 </span> eb/jump $emit-metadata:<a href='../130emit.subx.html#L10'>emit</a>/disp8 +<span id="L1449" class="LineNr">1449 </span> eb/jump $emit-metadata:<a href='130emit.subx.html#L10'>emit</a>/disp8 <span id="L1450" class="LineNr">1450 </span><span class="Constant">$emit-metadata:skip-datum-loop</span>: <span id="L1451" class="LineNr">1451 </span> <span class="subxH1Comment"># - otherwise scan for '/'</span> <span id="L1452" class="LineNr">1452 </span> <span class="subxComment"># if (curr == end) return</span> @@ -1336,11 +1336,11 @@ if ('onhashchange' in window) { <span id="L1455" class="LineNr">1455 </span> <span class="subxComment"># if (*curr == '/') break</span> <span id="L1456" class="LineNr">1456 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> <span id="L1457" class="LineNr">1457 </span> 3d/compare-eax-and 0x2f/imm32/slash -<span id="L1458" class="LineNr">1458 </span> 74/jump-if-= $emit-metadata:<a href='../130emit.subx.html#L10'>emit</a>/disp8 +<span id="L1458" class="LineNr">1458 </span> 74/jump-if-= $emit-metadata:<a href='130emit.subx.html#L10'>emit</a>/disp8 <span id="L1459" class="LineNr">1459 </span> <span class="subxComment"># ++curr</span> <span id="L1460" class="LineNr">1460 </span> 41/increment-ecx <span id="L1461" class="LineNr">1461 </span> eb/jump $emit-metadata:skip-datum-loop/disp8 -<span id="L1462" class="LineNr">1462 </span><span class="Constant">$emit-metadata:<a href='../130emit.subx.html#L10'>emit</a></span>: +<span id="L1462" class="LineNr">1462 </span><span class="Constant">$emit-metadata:<a href='130emit.subx.html#L10'>emit</a></span>: <span id="L1463" class="LineNr">1463 </span> <span class="subxComment"># slice->start = ecx</span> <span id="L1464" class="LineNr">1464 </span> 89/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *ebx</span> <span id="L1465" class="LineNr">1465 </span> <span class="subxComment"># write-slice-buffered(out, slice)</span> @@ -1348,7 +1348,7 @@ if ('onhashchange' in window) { <span id="L1467" class="LineNr">1467 </span> 53/push-ebx <span id="L1468" class="LineNr">1468 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1470" class="LineNr">1470 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1470" class="LineNr">1470 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 <span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1472" class="LineNr">1472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="Normal"> . </span> <span class="subxComment"># add to esp</span> <span id="L1473" class="LineNr">1473 </span><span class="Constant">$emit-metadata:end</span>: @@ -1372,16 +1372,16 @@ if ('onhashchange' in window) { <span id="L1491" class="LineNr">1491 </span> <span class="subxComment"># setup</span> <span id="L1492" class="LineNr">1492 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1494" class="LineNr">1494 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1494" class="LineNr">1494 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1495" class="LineNr">1495 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1496" class="LineNr">1496 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1496" class="LineNr">1496 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1497" class="LineNr">1497 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1498" class="LineNr">1498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1499" class="LineNr">1499 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1500" class="LineNr">1500 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1501" class="LineNr">1501 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1502" class="LineNr">1502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1503" class="LineNr">1503 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1503" class="LineNr">1503 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1504" class="LineNr">1504 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1505" class="LineNr">1505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1506" class="LineNr">1506 </span> <span class="subxComment"># (eax..ecx) = "abc/def"</span> @@ -1396,25 +1396,25 @@ if ('onhashchange' in window) { <span id="L1515" class="LineNr">1515 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1516" class="LineNr">1516 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1517" class="LineNr">1517 </span> 51/push-ecx -<span id="L1518" class="LineNr">1518 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1518" class="LineNr">1518 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1519" class="LineNr">1519 </span> <span class="subxS2Comment"># . . call</span> <span id="L1520" class="LineNr">1520 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1521" class="LineNr">1521 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1522" class="LineNr">1522 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1523" class="LineNr">1523 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1525" class="LineNr">1525 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1525" class="LineNr">1525 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1526" class="LineNr">1526 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1527" class="LineNr">1527 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1527" class="LineNr">1527 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1528" class="LineNr">1528 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1529" class="LineNr">1529 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1530" class="LineNr">1530 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "/def", msg) # important that there's no leading space</span> <span id="L1531" class="LineNr">1531 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1532" class="LineNr">1532 </span> 68/push <span class="Constant">"F - test-emit-metadata"</span>/imm32 <span id="L1533" class="LineNr">1533 </span> 68/push <span class="Constant">"/def"</span>/imm32 -<span id="L1534" class="LineNr">1534 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1534" class="LineNr">1534 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1535" class="LineNr">1535 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1536" class="LineNr">1536 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1536" class="LineNr">1536 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1537" class="LineNr">1537 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1538" class="LineNr">1538 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1539" class="LineNr">1539 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1429,16 +1429,16 @@ if ('onhashchange' in window) { <span id="L1548" class="LineNr">1548 </span> <span class="subxComment"># setup</span> <span id="L1549" class="LineNr">1549 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1550" class="LineNr">1550 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1551" class="LineNr">1551 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1551" class="LineNr">1551 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1553" class="LineNr">1553 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1553" class="LineNr">1553 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1555" class="LineNr">1555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1556" class="LineNr">1556 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1558" class="LineNr">1558 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1559" class="LineNr">1559 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1560" class="LineNr">1560 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1560" class="LineNr">1560 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1561" class="LineNr">1561 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1562" class="LineNr">1562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1563" class="LineNr">1563 </span> <span class="subxComment"># (eax..ecx) = "abc"</span> @@ -1453,25 +1453,25 @@ if ('onhashchange' in window) { <span id="L1572" class="LineNr">1572 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1573" class="LineNr">1573 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1574" class="LineNr">1574 </span> 51/push-ecx -<span id="L1575" class="LineNr">1575 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1575" class="LineNr">1575 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . call</span> <span id="L1577" class="LineNr">1577 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1579" class="LineNr">1579 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1580" class="LineNr">1580 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1581" class="LineNr">1581 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1582" class="LineNr">1582 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1582" class="LineNr">1582 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1583" class="LineNr">1583 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1584" class="LineNr">1584 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1584" class="LineNr">1584 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1585" class="LineNr">1585 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1586" class="LineNr">1586 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1587" class="LineNr">1587 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "", msg)</span> <span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1589" class="LineNr">1589 </span> 68/push <span class="Constant">"F - test-emit-metadata-none"</span>/imm32 <span id="L1590" class="LineNr">1590 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L1591" class="LineNr">1591 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1591" class="LineNr">1591 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1592" class="LineNr">1592 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1593" class="LineNr">1593 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1593" class="LineNr">1593 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1594" class="LineNr">1594 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1595" class="LineNr">1595 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1596" class="LineNr">1596 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1486,16 +1486,16 @@ if ('onhashchange' in window) { <span id="L1605" class="LineNr">1605 </span> <span class="subxComment"># setup</span> <span id="L1606" class="LineNr">1606 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1607" class="LineNr">1607 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1608" class="LineNr">1608 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1608" class="LineNr">1608 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1609" class="LineNr">1609 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1610" class="LineNr">1610 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1610" class="LineNr">1610 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1611" class="LineNr">1611 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1612" class="LineNr">1612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1613" class="LineNr">1613 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1614" class="LineNr">1614 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1615" class="LineNr">1615 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1616" class="LineNr">1616 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1617" class="LineNr">1617 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1617" class="LineNr">1617 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1618" class="LineNr">1618 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1619" class="LineNr">1619 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1620" class="LineNr">1620 </span> <span class="subxComment"># (eax..ecx) = "abc/def/ghi"</span> @@ -1510,25 +1510,25 @@ if ('onhashchange' in window) { <span id="L1629" class="LineNr">1629 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1630" class="LineNr">1630 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1631" class="LineNr">1631 </span> 51/push-ecx -<span id="L1632" class="LineNr">1632 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1632" class="LineNr">1632 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1633" class="LineNr">1633 </span> <span class="subxS2Comment"># . . call</span> <span id="L1634" class="LineNr">1634 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1635" class="LineNr">1635 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1636" class="LineNr">1636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1638" class="LineNr">1638 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1639" class="LineNr">1639 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1639" class="LineNr">1639 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1640" class="LineNr">1640 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1641" class="LineNr">1641 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1641" class="LineNr">1641 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1642" class="LineNr">1642 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1643" class="LineNr">1643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1644" class="LineNr">1644 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "/def/ghi", msg) # important that there's no leading space</span> <span id="L1645" class="LineNr">1645 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1646" class="LineNr">1646 </span> 68/push <span class="Constant">"F - test-emit-metadata-multiple"</span>/imm32 <span id="L1647" class="LineNr">1647 </span> 68/push <span class="Constant">"/def/ghi"</span>/imm32 -<span id="L1648" class="LineNr">1648 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1648" class="LineNr">1648 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1649" class="LineNr">1649 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1650" class="LineNr">1650 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1650" class="LineNr">1650 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1651" class="LineNr">1651 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1652" class="LineNr">1652 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1653" class="LineNr">1653 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1543,16 +1543,16 @@ if ('onhashchange' in window) { <span id="L1662" class="LineNr">1662 </span> <span class="subxComment"># setup</span> <span id="L1663" class="LineNr">1663 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1664" class="LineNr">1664 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1665" class="LineNr">1665 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1665" class="LineNr">1665 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1666" class="LineNr">1666 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1667" class="LineNr">1667 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1667" class="LineNr">1667 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1669" class="LineNr">1669 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1670" class="LineNr">1670 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1672" class="LineNr">1672 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1673" class="LineNr">1673 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1674" class="LineNr">1674 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1674" class="LineNr">1674 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1675" class="LineNr">1675 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1676" class="LineNr">1676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1677" class="LineNr">1677 </span> <span class="subxComment"># var slice/ecx = "/abc"</span> @@ -1569,25 +1569,25 @@ if ('onhashchange' in window) { <span id="L1688" class="LineNr">1688 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1689" class="LineNr">1689 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1690" class="LineNr">1690 </span> 51/push-ecx -<span id="L1691" class="LineNr">1691 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1691" class="LineNr">1691 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1692" class="LineNr">1692 </span> <span class="subxS2Comment"># . . call</span> <span id="L1693" class="LineNr">1693 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1694" class="LineNr">1694 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1695" class="LineNr">1695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1696" class="LineNr">1696 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1697" class="LineNr">1697 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1698" class="LineNr">1698 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1698" class="LineNr">1698 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1699" class="LineNr">1699 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1700" class="LineNr">1700 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1700" class="LineNr">1700 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1701" class="LineNr">1701 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1702" class="LineNr">1702 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1703" class="LineNr">1703 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "/abc", msg) # nothing skipped</span> <span id="L1704" class="LineNr">1704 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1705" class="LineNr">1705 </span> 68/push <span class="Constant">"F - test-emit-metadata-when-no-datum"</span>/imm32 <span id="L1706" class="LineNr">1706 </span> 68/push <span class="Constant">"/abc"</span>/imm32 -<span id="L1707" class="LineNr">1707 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1707" class="LineNr">1707 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1708" class="LineNr">1708 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1709" class="LineNr">1709 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1709" class="LineNr">1709 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1710" class="LineNr">1710 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1711" class="LineNr">1711 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1712" class="LineNr">1712 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1602,16 +1602,16 @@ if ('onhashchange' in window) { <span id="L1721" class="LineNr">1721 </span> <span class="subxComment"># setup</span> <span id="L1722" class="LineNr">1722 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1723" class="LineNr">1723 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1724" class="LineNr">1724 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1724" class="LineNr">1724 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1725" class="LineNr">1725 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1726" class="LineNr">1726 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1726" class="LineNr">1726 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1727" class="LineNr">1727 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1728" class="LineNr">1728 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1729" class="LineNr">1729 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1730" class="LineNr">1730 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1731" class="LineNr">1731 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1732" class="LineNr">1732 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1733" class="LineNr">1733 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1733" class="LineNr">1733 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1735" class="LineNr">1735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1736" class="LineNr">1736 </span> <span class="subxComment"># var slice/ecx = "\"abc/def\"/ghi"</span> @@ -1621,16 +1621,16 @@ if ('onhashchange' in window) { <span id="L1740" class="LineNr">1740 </span> <span class="subxComment"># emit-metadata(_test-output-buffered-file, slice)</span> <span id="L1741" class="LineNr">1741 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1742" class="LineNr">1742 </span> 51/push-ecx -<span id="L1743" class="LineNr">1743 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1743" class="LineNr">1743 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1744" class="LineNr">1744 </span> <span class="subxS2Comment"># . . call</span> <span id="L1745" class="LineNr">1745 </span> e8/call <a href='dquotes.subx.html#L1396'>emit-metadata</a>/disp32 <span id="L1746" class="LineNr">1746 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1747" class="LineNr">1747 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1748" class="LineNr">1748 </span> <span class="subxComment"># flush(_test-output-buffered-file)</span> <span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1750" class="LineNr">1750 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1750" class="LineNr">1750 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1752" class="LineNr">1752 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1752" class="LineNr">1752 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L1753" class="LineNr">1753 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1754" class="LineNr">1754 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1755" class="Folded">1755 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> @@ -1638,9 +1638,9 @@ if ('onhashchange' in window) { <span id="L1782" class="LineNr">1782 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1783" class="LineNr">1783 </span> 68/push <span class="Constant">"F - test-emit-metadata-in-string-literal"</span>/imm32 <span id="L1784" class="LineNr">1784 </span> 68/push <span class="Constant">"/ghi"</span>/imm32 -<span id="L1785" class="LineNr">1785 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1785" class="LineNr">1785 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1786" class="LineNr">1786 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1787" class="LineNr">1787 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1787" class="LineNr">1787 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1788" class="LineNr">1788 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1789" class="LineNr">1789 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1790" class="LineNr">1790 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1722,7 +1722,7 @@ if ('onhashchange' in window) { <span id="L1866" class="LineNr">1866 </span> 68/push 3/imm32 <span id="L1867" class="LineNr">1867 </span> 50/push-eax <span id="L1868" class="LineNr">1868 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1869" class="LineNr">1869 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1869" class="LineNr">1869 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1870" class="LineNr">1870 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1871" class="LineNr">1871 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1872" class="LineNr">1872 </span> <span class="subxS1Comment"># . epilogue</span> @@ -1753,7 +1753,7 @@ if ('onhashchange' in window) { <span id="L1897" class="LineNr">1897 </span> 68/push 3/imm32 <span id="L1898" class="LineNr">1898 </span> 50/push-eax <span id="L1899" class="LineNr">1899 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1900" class="LineNr">1900 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1900" class="LineNr">1900 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1901" class="LineNr">1901 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1902" class="LineNr">1902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1903" class="LineNr">1903 </span> <span class="subxS1Comment"># . epilogue</span> diff --git a/html/apps/ex1.mu.html b/html/linux/ex1.mu.html index dca1abcd..9816054e 100644 --- a/html/apps/ex1.mu.html +++ b/html/linux/ex1.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex1.mu</title> +<title>Mu - linux/ex1.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,12 +14,12 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -53,13 +53,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex1.mu'>https://github.com/akkartik/mu/blob/main/apps/ex1.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex1.mu'>https://github.com/akkartik/mu/blob/main/linux/ex1.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># First example: return the answer to the Ultimate Question of Life, the</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># Universe, and Everything.</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./translate_mu apps/ex1.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./translate ex1.mu</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./a.elf</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># Expected result:</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># $ echo $?</span> diff --git a/html/apps/ex1.subx.html b/html/linux/ex1.subx.html index 12084dd3..fbca1086 100644 --- a/html/apps/ex1.subx.html +++ b/html/linux/ex1.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex1.subx</title> +<title>Mu - linux/ex1.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -51,14 +51,14 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex1.subx'>https://github.com/akkartik/mu/blob/main/apps/ex1.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex1.subx'>https://github.com/akkartik/mu/blob/main/linux/ex1.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># First program: same as <a href="https://www.muppetlabs.com/~breadbox/software/tiny/teensy.html">https://www.muppetlabs.com/~breadbox/software/tiny/teensy.html</a></span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Just return 42.</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex1.subx -o apps/ex1</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./bootstrap run apps/ex1</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex1.subx -o apps/ex1</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap run ex1</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># Expected result:</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ echo $?</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># 42</span> @@ -68,7 +68,7 @@ if ('onhashchange' in window) { <span id="L13" class="LineNr">13 </span><span class="SpecialChar">Entry</span>: <span id="L14" class="LineNr">14 </span><span class="subxComment"># exit(42)</span> <span id="L15" class="LineNr">15 </span>bb/copy-to-ebx 0x2a/imm32 <span class="subxComment"># 42 in hex</span> -<span id="L16" class="LineNr">16 </span>e8/call syscall_exit/disp32 +<span id="L16" class="LineNr">16 </span>e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L17" class="LineNr">17 </span> <span id="L18" class="LineNr">18 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex10.subx.html b/html/linux/ex10.subx.html index 21f57033..504873c4 100644 --- a/html/apps/ex10.subx.html +++ b/html/linux/ex10.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex10.subx</title> +<title>Mu - linux/ex10.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -55,13 +55,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex10.subx'>https://github.com/akkartik/mu/blob/main/apps/ex10.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex10.subx'>https://github.com/akkartik/mu/blob/main/linux/ex10.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># String comparison: return 1 iff the two args passed in at the commandline are equal.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex10.subx -o apps/ex10</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex10 abc abd</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex10.subx -o apps/ex10</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex10 abc abd</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 0 # false</span> @@ -88,7 +88,7 @@ if ('onhashchange' in window) { <span id="L29" class="LineNr">29 </span> e8/call <a href='ex10.subx.html#L36'>argv-equal</a>/disp32 <span id="L30" class="LineNr">30 </span> <span class="subxComment"># exit(eax)</span> <span id="L31" class="LineNr">31 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L32" class="LineNr">32 </span> e8/call syscall_exit/disp32 +<span id="L32" class="LineNr">32 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L33" class="LineNr">33 </span> <span id="L34" class="LineNr">34 </span><span class="subxComment"># compare two null-terminated ascii strings</span> <span id="L35" class="LineNr">35 </span><span class="subxComment"># reason for the name: the only place we should have null-terminated ascii strings is from commandline args</span> diff --git a/html/apps/ex11.subx.html b/html/linux/ex11.subx.html index aa111e0b..f8e0e243 100644 --- a/html/apps/ex11.subx.html +++ b/html/linux/ex11.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex11.subx</title> +<title>Mu - linux/ex11.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } -.subxFunction { color: #af5f00; text-decoration: underline; } -.LineNr { } -.subxTest { color: #5f8700; } .subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } .subxMinorFunction { color: #875f5f; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxS2Comment { color: #8a8a8a; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -58,7 +58,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex11.subx'>https://github.com/akkartik/mu/blob/main/apps/ex11.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex11.subx'>https://github.com/akkartik/mu/blob/main/linux/ex11.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Null-terminated vs size-prefixed ascii strings.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -68,8 +68,8 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># a null-terminated 'kernel string' with a size-prefixed 'SubX string'.</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># To run:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex11.subx -o apps/ex11</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ ./bootstrap run apps/ex11 # runs a series of tests</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex11.subx -o apps/ex11</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ bootstrap/bootstrap run ex11 # runs a series of tests</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># ...... # all tests pass</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># (We can't yet run the tests when given a "test" commandline argument,</span> @@ -85,7 +85,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span> e8/call run-tests/disp32 <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span> <span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># exit(eax)</span> <span id="L25" class="LineNr"> 25 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L26" class="LineNr"> 26 </span> e8/call syscall_exit/disp32 +<span id="L26" class="LineNr"> 26 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L27" class="LineNr"> 27 </span> <span id="L28" class="LineNr"> 28 </span><span class="subxComment"># compare a null-terminated ascii string with a more idiomatic size-prefixed byte array</span> <span id="L29" class="LineNr"> 29 </span><span class="subxComment"># reason for the name: the only place we should have null-terminated ascii strings is from commandline args</span> @@ -388,7 +388,7 @@ if ('onhashchange' in window) { <span id="L326" class="LineNr">326 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to edx</span> <span id="L327" class="LineNr">327 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to edx</span> <span id="L328" class="LineNr">328 </span> <span class="subxS2Comment"># . . syscall</span> -<span id="L329" class="LineNr">329 </span> e8/call syscall_write/disp32 +<span id="L329" class="LineNr">329 </span> e8/call <a href='000init.subx.html#L29'>syscall_write</a>/disp32 <span id="L330" class="LineNr">330 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L331" class="LineNr">331 </span> 5b/pop-to-ebx <span id="L332" class="LineNr">332 </span> 5a/pop-to-edx diff --git a/html/apps/ex12.subx.html b/html/linux/ex12.subx.html index 6ce6d94d..0f9a3d61 100644 --- a/html/apps/ex12.subx.html +++ b/html/linux/ex12.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex12.subx</title> +<title>Mu - linux/ex12.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> @@ -53,14 +53,14 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex12.subx'>https://github.com/akkartik/mu/blob/main/apps/ex12.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex12.subx'>https://github.com/akkartik/mu/blob/main/linux/ex12.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Example showing mmap syscall.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># Create a new segment using mmap, save the address, write to it.</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex12.subx -o apps/ex12</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./bootstrap run apps/ex12</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex12.subx -o apps/ex12</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap run ex12</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># You shouldn't get a segmentation fault.</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span>== code @@ -71,14 +71,14 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr">14 </span><span class="SpecialChar">Entry</span>: <span id="L15" class="LineNr">15 </span> <span class="subxComment"># mmap(Mmap-new-segment->len)</span> <span id="L16" class="LineNr">16 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex12.subx.html#L29'>Mmap-new-segment</a></span>/imm32 -<span id="L17" class="LineNr">17 </span> e8/call syscall_mmap/disp32 +<span id="L17" class="LineNr">17 </span> e8/call <a href='000init.subx.html#L71'>syscall_mmap</a>/disp32 <span id="L18" class="LineNr">18 </span> <span id="L19" class="LineNr">19 </span> <span class="subxComment"># write to *eax to check that we have access to the newly-allocated segment</span> <span id="L20" class="LineNr">20 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x34/imm32 <span class="subxComment"># copy to *eax</span> <span id="L21" class="LineNr">21 </span> <span id="L22" class="LineNr">22 </span> <span class="subxComment"># exit(eax)</span> <span id="L23" class="LineNr">23 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L24" class="LineNr">24 </span> e8/call syscall_exit/disp32 +<span id="L24" class="LineNr">24 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L25" class="LineNr">25 </span> <span id="L26" class="LineNr">26 </span>== data <span id="L27" class="LineNr">27 </span> diff --git a/html/apps/ex13.subx.html b/html/linux/ex13.subx.html index 523f2197..c45a725c 100644 --- a/html/apps/ex13.subx.html +++ b/html/linux/ex13.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex13.subx</title> +<title>Mu - linux/ex13.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -54,13 +54,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex13.subx'>https://github.com/akkartik/mu/blob/main/apps/ex13.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex13.subx'>https://github.com/akkartik/mu/blob/main/linux/ex13.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Compare 3 and 3.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex13.subx -o apps/ex13</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex13</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex13.subx -o apps/ex13</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex13</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 1</span> @@ -78,7 +78,7 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr">20 </span> <span id="L21" class="LineNr">21 </span><span class="Constant">$exit</span>: <span id="L22" class="LineNr">22 </span> <span class="subxComment"># exit(ebx)</span> -<span id="L23" class="LineNr">23 </span> e8/call syscall_exit/disp32 +<span id="L23" class="LineNr">23 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L24" class="LineNr">24 </span> <span id="L25" class="LineNr">25 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex14.subx.html b/html/linux/ex14.subx.html index e37734fd..2cb2a12e 100644 --- a/html/apps/ex14.subx.html +++ b/html/linux/ex14.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex14.subx</title> +<title>Mu - linux/ex14.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -54,13 +54,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex14.subx'>https://github.com/akkartik/mu/blob/main/apps/ex14.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex14.subx'>https://github.com/akkartik/mu/blob/main/linux/ex14.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Multiply 2 numbers.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex14.subx -o apps/ex14</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex14</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex14.subx -o apps/ex14</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex14</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 6</span> @@ -79,7 +79,7 @@ if ('onhashchange' in window) { <span id="L21" class="LineNr">21 </span> <span id="L22" class="LineNr">22 </span><span class="Constant">$exit</span>: <span id="L23" class="LineNr">23 </span> <span class="subxComment"># exit(ebx)</span> -<span id="L24" class="LineNr">24 </span> e8/call syscall_exit/disp32 +<span id="L24" class="LineNr">24 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L25" class="LineNr">25 </span> <span id="L26" class="LineNr">26 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex2.mu.html b/html/linux/ex2.mu.html index 9c408104..0c4275ff 100644 --- a/html/apps/ex2.mu.html +++ b/html/linux/ex2.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex2.mu</title> +<title>Mu - linux/ex2.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,25 +54,25 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex2.mu'>https://github.com/akkartik/mu/blob/main/apps/ex2.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex2.mu'>https://github.com/akkartik/mu/blob/main/linux/ex2.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Add 3 and 4, and return the result in the exit code.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/ex2.mu</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate ex2.mu</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># 7</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex2.mu.html#L10'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='ex2.mu.html#L15'>do-add</a> <span class="Constant">3</span> <span class="Constant">4</span> +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='ex2.mu.html#L15'>do-add</a> <span class="Constant">3</span> <span class="Constant">4</span> <span id="L12" class="LineNr">12 </span> <span class="PreProc">return</span> result <span id="L13" class="LineNr">13 </span><span class="Delimiter">}</span> <span id="L14" class="LineNr">14 </span> <span id="L15" class="LineNr">15 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex2.mu.html#L15'>do-add</a></span> a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy a -<span id="L17" class="LineNr">17 </span> result <span class="SpecialChar"><-</span> add b +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> result/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy a +<span id="L17" class="LineNr">17 </span> result <span class="Special"><-</span> add b <span id="L18" class="LineNr">18 </span> <span class="PreProc">return</span> result <span id="L19" class="LineNr">19 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/ex2.subx.html b/html/linux/ex2.subx.html index 9f872a0c..e8ae1686 100644 --- a/html/apps/ex2.subx.html +++ b/html/linux/ex2.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex2.subx</title> +<title>Mu - linux/ex2.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -51,13 +51,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex2.subx'>https://github.com/akkartik/mu/blob/main/apps/ex2.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex2.subx'>https://github.com/akkartik/mu/blob/main/linux/ex2.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Add 3 and 4, and return the result in the exit code.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex2.subx -o apps/ex2</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex2</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex2.subx -o apps/ex2</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex2</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 2</span> @@ -70,7 +70,7 @@ if ('onhashchange' in window) { <span id="L15" class="LineNr">15 </span><span class="subxComment"># add 4 to ebx</span> <span id="L16" class="LineNr">16 </span>81 0/subop/add 3/mod/direct 3/rm32/ebx 4/imm32 <span id="L17" class="LineNr">17 </span><span class="subxComment"># exit(ebx)</span> -<span id="L18" class="LineNr">18 </span>e8/call syscall_exit/disp32 +<span id="L18" class="LineNr">18 </span>e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L19" class="LineNr">19 </span> <span id="L20" class="LineNr">20 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex3.2.mu.html b/html/linux/ex3.2.mu.html index 014ecfb6..234d7e9f 100644 --- a/html/apps/ex3.2.mu.html +++ b/html/linux/ex3.2.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex3.2.mu</title> +<title>Mu - linux/ex3.2.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,12 +54,12 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex3.2.mu'>https://github.com/akkartik/mu/blob/main/apps/ex3.2.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex3.2.mu'>https://github.com/akkartik/mu/blob/main/linux/ex3.2.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Unnecessarily use an array to sum 1..10</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/ex3.2.mu</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate ex3.2.mu</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo $?</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># 55</span> @@ -67,24 +67,24 @@ if ('onhashchange' in window) { <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex3.2.mu.html#L9'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L10" class="LineNr">10 </span> <span class="muComment"># populate a</span> <span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> a: (array int <span class="Constant">0xb</span>) <span class="muComment"># 11; we waste index 0</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> <span id="L14" class="LineNr">14 </span> compare i, <span class="Constant">0xb</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if->=</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index a, i +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index a, i <span id="L17" class="LineNr">17 </span> copy-to *x, i -<span id="L18" class="LineNr">18 </span> i <span class="SpecialChar"><-</span> increment +<span id="L18" class="LineNr">18 </span> i <span class="Special"><-</span> increment <span id="L19" class="LineNr">19 </span> <span class="PreProc">loop</span> <span id="L20" class="LineNr">20 </span> <span class="Delimiter">}</span> <span id="L21" class="LineNr">21 </span> <span class="muComment"># sum</span> -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> result/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L23" class="LineNr">23 </span> i <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> result/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L23" class="LineNr">23 </span> i <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L24" class="LineNr">24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr">25 </span> compare i, <span class="Constant">0xb</span> <span id="L26" class="LineNr">26 </span> <span class="PreProc">break-if->=</span> -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index a, i -<span id="L28" class="LineNr">28 </span> result <span class="SpecialChar"><-</span> add *x -<span id="L29" class="LineNr">29 </span> i <span class="SpecialChar"><-</span> increment +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index a, i +<span id="L28" class="LineNr">28 </span> result <span class="Special"><-</span> add *x +<span id="L29" class="LineNr">29 </span> i <span class="Special"><-</span> increment <span id="L30" class="LineNr">30 </span> <span class="PreProc">loop</span> <span id="L31" class="LineNr">31 </span> <span class="Delimiter">}</span> <span id="L32" class="LineNr">32 </span> <span class="PreProc">return</span> result diff --git a/html/apps/ex3.mu.html b/html/linux/ex3.mu.html index 486ea626..2652cbaf 100644 --- a/html/apps/ex3.mu.html +++ b/html/linux/ex3.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex3.mu</title> +<title>Mu - linux/ex3.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,25 +54,25 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex3.mu'>https://github.com/akkartik/mu/blob/main/apps/ex3.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex3.mu'>https://github.com/akkartik/mu/blob/main/linux/ex3.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Add the first 10 numbers, and return the result in the exit code.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/browse.mu</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate browse.mu</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># 55</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='ex3.mu.html#L10'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> result/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> result/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> <span id="L14" class="LineNr">14 </span> compare i, <span class="Constant">0xa</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if-></span> -<span id="L16" class="LineNr">16 </span> result <span class="SpecialChar"><-</span> add i -<span id="L17" class="LineNr">17 </span> i <span class="SpecialChar"><-</span> increment +<span id="L16" class="LineNr">16 </span> result <span class="Special"><-</span> add i +<span id="L17" class="LineNr">17 </span> i <span class="Special"><-</span> increment <span id="L18" class="LineNr">18 </span> <span class="PreProc">loop</span> <span id="L19" class="LineNr">19 </span> <span class="Delimiter">}</span> <span id="L20" class="LineNr">20 </span> <span class="PreProc">return</span> result diff --git a/html/apps/ex3.subx.html b/html/linux/ex3.subx.html index e5b4360b..8a9fd70d 100644 --- a/html/apps/ex3.subx.html +++ b/html/linux/ex3.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex3.subx</title> +<title>Mu - linux/ex3.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> </style> @@ -54,13 +54,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex3.subx'>https://github.com/akkartik/mu/blob/main/apps/ex3.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex3.subx'>https://github.com/akkartik/mu/blob/main/linux/ex3.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Add the first 10 numbers, and return the result in the exit code.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex3.subx -o apps/ex3</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex3</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex3.subx -o apps/ex3</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex3</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 55</span> @@ -89,7 +89,7 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr">31 </span> <span id="L32" class="LineNr">32 </span><span class="Constant">$exit</span>: <span id="L33" class="LineNr">33 </span> <span class="subxComment"># exit(ebx)</span> -<span id="L34" class="LineNr">34 </span> e8/call syscall_exit/disp32 +<span id="L34" class="LineNr">34 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L35" class="LineNr">35 </span> <span id="L36" class="LineNr">36 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex4.subx.html b/html/linux/ex4.subx.html index 6193dbb2..84939cc5 100644 --- a/html/apps/ex4.subx.html +++ b/html/linux/ex4.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex4.subx</title> +<title>Mu - linux/ex4.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } --> </style> @@ -52,13 +52,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex4.subx'>https://github.com/akkartik/mu/blob/main/apps/ex4.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex4.subx'>https://github.com/akkartik/mu/blob/main/linux/ex4.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a character from stdin, save it to a global, write it to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex4.subx -o apps/ex4</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex4</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex4.subx -o apps/ex4</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex4</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span>== data <span id="L8" class="LineNr"> 8 </span> @@ -77,7 +77,7 @@ if ('onhashchange' in window) { <span id="L21" class="LineNr">21 </span><span class="subxS1Comment"># . size = 1 character</span> <span id="L22" class="LineNr">22 </span>ba/copy-to-edx 1/imm32 <span id="L23" class="LineNr">23 </span><span class="subxS1Comment"># . syscall</span> -<span id="L24" class="LineNr">24 </span>e8/call syscall_read/disp32 +<span id="L24" class="LineNr">24 </span>e8/call <a href='000init.subx.html#L23'>syscall_read</a>/disp32 <span id="L25" class="LineNr">25 </span> <span id="L26" class="LineNr">26 </span><span class="subxComment"># write(stdout, X, 1)</span> <span id="L27" class="LineNr">27 </span><span class="subxS1Comment"># . fd = 1 (stdout)</span> @@ -87,10 +87,10 @@ if ('onhashchange' in window) { <span id="L31" class="LineNr">31 </span><span class="subxS1Comment"># . size = 1 character</span> <span id="L32" class="LineNr">32 </span>ba/copy-to-edx 1/imm32 <span id="L33" class="LineNr">33 </span><span class="subxS1Comment"># . syscall</span> -<span id="L34" class="LineNr">34 </span>e8/call syscall_write/disp32 +<span id="L34" class="LineNr">34 </span>e8/call <a href='000init.subx.html#L29'>syscall_write</a>/disp32 <span id="L35" class="LineNr">35 </span> <span id="L36" class="LineNr">36 </span><span class="subxComment"># exit(ebx)</span> -<span id="L37" class="LineNr">37 </span>e8/call syscall_exit/disp32 +<span id="L37" class="LineNr">37 </span>e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L38" class="LineNr">38 </span> <span id="L39" class="LineNr">39 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex5.subx.html b/html/linux/ex5.subx.html index 16ae1fe0..ebb628ae 100644 --- a/html/apps/ex5.subx.html +++ b/html/linux/ex5.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex5.subx</title> +<title>Mu - linux/ex5.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> @@ -53,13 +53,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex5.subx'>https://github.com/akkartik/mu/blob/main/apps/ex5.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex5.subx'>https://github.com/akkartik/mu/blob/main/linux/ex5.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a character from stdin, save it to a local on the stack, write it to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex5.subx -o apps/ex5</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex5</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex5.subx -o apps/ex5</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex5</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span>== code <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -79,7 +79,7 @@ if ('onhashchange' in window) { <span id="L22" class="LineNr">22 </span> <span class="subxS1Comment"># . size = 1 character</span> <span id="L23" class="LineNr">23 </span> ba/copy-to-edx 1/imm32 <span id="L24" class="LineNr">24 </span> <span class="subxS1Comment"># . syscall</span> -<span id="L25" class="LineNr">25 </span> e8/call syscall_read/disp32 +<span id="L25" class="LineNr">25 </span> e8/call <a href='000init.subx.html#L23'>syscall_read</a>/disp32 <span id="L26" class="LineNr">26 </span> <span id="L27" class="LineNr">27 </span> <span class="subxComment"># syscall(write, stdout, x, 1)</span> <span id="L28" class="LineNr">28 </span> <span class="subxS1Comment"># . fd = 1 (stdout)</span> @@ -89,10 +89,10 @@ if ('onhashchange' in window) { <span id="L32" class="LineNr">32 </span> <span class="subxS1Comment"># . size = 1 character</span> <span id="L33" class="LineNr">33 </span> ba/copy-to-edx 1/imm32 <span id="L34" class="LineNr">34 </span> <span class="subxS1Comment"># . syscall</span> -<span id="L35" class="LineNr">35 </span> e8/call syscall_write/disp32 +<span id="L35" class="LineNr">35 </span> e8/call <a href='000init.subx.html#L29'>syscall_write</a>/disp32 <span id="L36" class="LineNr">36 </span> <span id="L37" class="LineNr">37 </span> <span class="subxComment"># exit(ebx)</span> -<span id="L38" class="LineNr">38 </span> e8/call syscall_exit/disp32 +<span id="L38" class="LineNr">38 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L39" class="LineNr">39 </span> <span id="L40" class="LineNr">40 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex6.subx.html b/html/linux/ex6.subx.html index 1578c57f..cb3c8696 100644 --- a/html/apps/ex6.subx.html +++ b/html/linux/ex6.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex6.subx</title> +<title>Mu - linux/ex6.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> @@ -53,13 +53,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex6.subx'>https://github.com/akkartik/mu/blob/main/apps/ex6.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex6.subx'>https://github.com/akkartik/mu/blob/main/linux/ex6.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Print out a (global variable) string to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex6.subx -o apps/ex6</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex6</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex6.subx -o apps/ex6</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex6</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Hello, world!</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span>== code @@ -76,18 +76,18 @@ if ('onhashchange' in window) { <span id="L19" class="LineNr">19 </span> <span class="subxS1Comment"># . initialize Size</span> <span id="L20" class="LineNr">20 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="SpecialChar"><a href='ex6.subx.html#L29'>Size</a></span>/disp32 <span class="Normal"> . </span> <span class="subxComment"># copy *Size to edx</span> <span id="L21" class="LineNr">21 </span> <span class="subxS1Comment"># . syscall</span> -<span id="L22" class="LineNr">22 </span> e8/call syscall_write/disp32 +<span id="L22" class="LineNr">22 </span> e8/call <a href='000init.subx.html#L29'>syscall_write</a>/disp32 <span id="L23" class="LineNr">23 </span> <span id="L24" class="LineNr">24 </span> <span class="subxComment"># exit(ebx)</span> -<span id="L25" class="LineNr">25 </span> e8/call syscall_exit/disp32 +<span id="L25" class="LineNr">25 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L26" class="LineNr">26 </span> <span id="L27" class="LineNr">27 </span>== data <span id="L28" class="LineNr">28 </span> <span id="L29" class="LineNr">29 </span><span class="SpecialChar">Size</span>: <span class="subxComment"># size of string</span> -<span id="L30" class="LineNr">30 </span> 0x0e/imm32 <span class="subxComment"># 14</span> +<span id="L30" class="LineNr">30 </span> 0x0d/imm32 <span class="subxComment"># 13</span> <span id="L31" class="LineNr">31 </span><span class="SpecialChar">X</span>: <span class="subxComment"># string to print</span> -<span id="L32" class="LineNr">32 </span> 48 65 6c 6c 6f 2c 20 77 6f 72 6c 64 21 0a 00 -<span id="L33" class="LineNr">33 </span><span class="subxComment"># H e l l o , ␣ w o r l d ! newline null</span> +<span id="L32" class="LineNr">32 </span> 48 65 6c 6c 6f 20 77 6f 72 6c 64 21 0a 00 +<span id="L33" class="LineNr">33 </span><span class="subxComment"># H e l l o ␣ w o r l d ! newline null</span> <span id="L34" class="LineNr">34 </span> <span id="L35" class="LineNr">35 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/ex7.subx.html b/html/linux/ex7.subx.html index 56c2bacd..a0ff1387 100644 --- a/html/apps/ex7.subx.html +++ b/html/linux/ex7.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex7.subx</title> +<title>Mu - linux/ex7.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } --> @@ -53,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex7.subx'>https://github.com/akkartik/mu/blob/main/apps/ex7.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex7.subx'>https://github.com/akkartik/mu/blob/main/linux/ex7.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Example showing file syscalls.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -62,8 +62,8 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># the character read.</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># To run:</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex7.subx -o apps/ex7</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./bootstrap run apps/ex7</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex7.subx -o apps/ex7</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ bootstrap/bootstrap run ex7</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># Expected result:</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># $ echo $?</span> <span id="L12" class="LineNr">12 </span><span class="subxComment"># 97</span> @@ -77,13 +77,13 @@ if ('onhashchange' in window) { <span id="L20" class="LineNr">20 </span> <span class="subxComment"># creat(Filename)</span> <span id="L21" class="LineNr">21 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32 <span id="L22" class="LineNr">22 </span> b9/copy-to-ecx 0x180/imm32/fixed-perms -<span id="L23" class="LineNr">23 </span> e8/call syscall_creat/disp32 +<span id="L23" class="LineNr">23 </span> e8/call <a href='000init.subx.html#L53'>syscall_creat</a>/disp32 <span id="L24" class="LineNr">24 </span> <span id="L25" class="LineNr">25 </span> <span class="subxComment"># stream = open(Filename, O_WRONLY, 0) # we can't use 'fd' because it looks like a hex byte</span> <span id="L26" class="LineNr">26 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32 <span id="L27" class="LineNr">27 </span> b9/copy-to-ecx 1/imm32/wronly <span id="L28" class="LineNr">28 </span> ba/copy-to-edx 0x180/imm32/fixed-perms -<span id="L29" class="LineNr">29 </span> e8/call syscall_open/disp32 +<span id="L29" class="LineNr">29 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 <span id="L30" class="LineNr">30 </span> <span class="subxComment"># save stream</span> <span id="L31" class="LineNr">31 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32 <span id="L32" class="LineNr">32 </span> 89/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ebx</span> @@ -95,20 +95,20 @@ if ('onhashchange' in window) { <span id="L38" class="LineNr">38 </span> <span class="subxS1Comment"># .</span> <span id="L39" class="LineNr">39 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='ex7.subx.html#L90'>A</a></span>/imm32 <span id="L40" class="LineNr">40 </span> ba/copy-to-edx 1/imm32/size -<span id="L41" class="LineNr">41 </span> e8/call syscall_write/disp32 +<span id="L41" class="LineNr">41 </span> e8/call <a href='000init.subx.html#L29'>syscall_write</a>/disp32 <span id="L42" class="LineNr">42 </span> <span id="L43" class="LineNr">43 </span> <span class="subxComment"># close(Stream)</span> <span id="L44" class="LineNr">44 </span> <span class="subxS1Comment"># . load stream</span> <span id="L45" class="LineNr">45 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32 <span id="L46" class="LineNr">46 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to ebx</span> <span id="L47" class="LineNr">47 </span> <span class="subxS1Comment"># .</span> -<span id="L48" class="LineNr">48 </span> e8/call syscall_close/disp32 +<span id="L48" class="LineNr">48 </span> e8/call <a href='000init.subx.html#L41'>syscall_close</a>/disp32 <span id="L49" class="LineNr">49 </span> <span id="L50" class="LineNr">50 </span> <span class="subxComment"># stream = open(Filename, O_RDONLY, 0)</span> <span id="L51" class="LineNr">51 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32 <span id="L52" class="LineNr">52 </span> b9/copy-to-ecx 0/imm32/rdonly <span id="L53" class="LineNr">53 </span> ba/copy-to-edx 0x180/imm32/fixed-perms -<span id="L54" class="LineNr">54 </span> e8/call syscall_open/disp32 +<span id="L54" class="LineNr">54 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 <span id="L55" class="LineNr">55 </span> <span class="subxS1Comment"># . save Stream</span> <span id="L56" class="LineNr">56 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32 <span id="L57" class="LineNr">57 </span> 89/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *ebx</span> @@ -120,25 +120,25 @@ if ('onhashchange' in window) { <span id="L63" class="LineNr">63 </span> <span class="subxS1Comment"># .</span> <span id="L64" class="LineNr">64 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='ex7.subx.html#L92'>B</a></span>/imm32 <span id="L65" class="LineNr">65 </span> ba/copy-to-edx 1/imm32/size -<span id="L66" class="LineNr">66 </span> e8/call syscall_read/disp32 +<span id="L66" class="LineNr">66 </span> e8/call <a href='000init.subx.html#L23'>syscall_read</a>/disp32 <span id="L67" class="LineNr">67 </span> <span id="L68" class="LineNr">68 </span> <span class="subxComment"># close(Stream)</span> <span id="L69" class="LineNr">69 </span> <span class="subxS1Comment"># . load stream</span> <span id="L70" class="LineNr">70 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L88'>Stream</a></span>/imm32 <span id="L71" class="LineNr">71 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to ebx</span> <span id="L72" class="LineNr">72 </span> <span class="subxComment">#</span> -<span id="L73" class="LineNr">73 </span> e8/call syscall_close/disp32 +<span id="L73" class="LineNr">73 </span> e8/call <a href='000init.subx.html#L41'>syscall_close</a>/disp32 <span id="L74" class="LineNr">74 </span> <span id="L75" class="LineNr">75 </span> <span class="subxComment"># unlink(filename)</span> <span id="L76" class="LineNr">76 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L94'>Filename</a></span>/imm32 -<span id="L77" class="LineNr">77 </span> e8/call syscall_unlink/disp32 +<span id="L77" class="LineNr">77 </span> e8/call <a href='000init.subx.html#L59'>syscall_unlink</a>/disp32 <span id="L78" class="LineNr">78 </span> <span id="L79" class="LineNr">79 </span> <span class="subxComment"># exit(b)</span> <span id="L80" class="LineNr">80 </span> <span class="subxS1Comment"># . load b</span> <span id="L81" class="LineNr">81 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='ex7.subx.html#L92'>B</a></span>/imm32 <span id="L82" class="LineNr">82 </span> 8b/copy 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ebx to ebx</span> <span id="L83" class="LineNr">83 </span> <span class="subxComment">#</span> -<span id="L84" class="LineNr">84 </span> e8/call syscall_exit/disp32 +<span id="L84" class="LineNr">84 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L85" class="LineNr">85 </span> <span id="L86" class="LineNr">86 </span>== data <span id="L87" class="LineNr">87 </span> diff --git a/html/apps/ex8.subx.html b/html/linux/ex8.subx.html index 0e6cb43d..c30fac4f 100644 --- a/html/apps/ex8.subx.html +++ b/html/linux/ex8.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex8.subx</title> +<title>Mu - linux/ex8.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,13 +15,13 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -55,13 +55,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex8.subx'>https://github.com/akkartik/mu/blob/main/apps/ex8.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex8.subx'>https://github.com/akkartik/mu/blob/main/linux/ex8.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Example reading commandline arguments: compute length of first arg.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex8.subx -o apps/ex8</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/ex8 abc de fghi</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex8.subx -o apps/ex8</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run ex8 abc de fghi</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 3 # length of 'abc'</span> @@ -91,7 +91,7 @@ if ('onhashchange' in window) { <span id="L32" class="LineNr">32 </span> <span id="L33" class="LineNr">33 </span> <span class="subxComment"># exit(eax)</span> <span id="L34" class="LineNr">34 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L35" class="LineNr">35 </span> e8/call syscall_exit/disp32 +<span id="L35" class="LineNr">35 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L36" class="LineNr">36 </span> <span id="L37" class="LineNr">37 </span><span class="subxFunction">ascii-length</span>: <span class="subxComment"># s: (addr array byte) -> n/eax</span> <span id="L38" class="LineNr">38 </span> <span class="subxComment"># edx = s</span> diff --git a/html/apps/ex9.subx.html b/html/linux/ex9.subx.html index 4048004b..019a2c60 100644 --- a/html/apps/ex9.subx.html +++ b/html/linux/ex9.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/ex9.subx</title> +<title>Mu - linux/ex9.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/ex9.subx'>https://github.com/akkartik/mu/blob/main/apps/ex9.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/ex9.subx'>https://github.com/akkartik/mu/blob/main/linux/ex9.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Example showing arg order on the stack.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -62,8 +62,8 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># letter of second arg.</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To run:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ ./bootstrap translate init.linux apps/ex9.subx -o apps/ex9</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./bootstrap run apps/ex9 z x</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ bootstrap/bootstrap translate apps/ex9.subx -o apps/ex9</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap run ex9 z x</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Expected result:</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># $ echo $?</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># 2</span> @@ -94,7 +94,7 @@ if ('onhashchange' in window) { <span id="L36" class="LineNr">36 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L37" class="LineNr">37 </span> <span class="subxComment"># exit(eax)</span> <span id="L38" class="LineNr">38 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L39" class="LineNr">39 </span> e8/call syscall_exit/disp32 +<span id="L39" class="LineNr">39 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L40" class="LineNr">40 </span> <span id="L41" class="LineNr">41 </span><span class="subxFunction">ascii-difference</span>: <span class="subxComment"># (s1, s2): null-terminated ascii strings</span> <span id="L42" class="LineNr">42 </span> <span class="subxComment"># a = first letter of s1 (ecx)</span> diff --git a/html/apps/factorial.mu.html b/html/linux/factorial.mu.html index 838ca6b1..1d811ae7 100644 --- a/html/apps/factorial.mu.html +++ b/html/linux/factorial.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/factorial.mu</title> +<title>Mu - linux/factorial.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,12 +55,12 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/factorial.mu'>https://github.com/akkartik/mu/blob/main/apps/factorial.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/factorial.mu'>https://github.com/akkartik/mu/blob/main/linux/factorial.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># compute the factorial of 5, and return the result in the exit code</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/factorial.mu</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate factorial.mu</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo $?</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># 120</span> @@ -83,32 +83,32 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr">24 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span id="L25" class="LineNr">25 </span> <span class="Delimiter">}</span> <span id="L26" class="LineNr">26 </span> <span class="muComment"># n > 1; return n * factorial(n-1)</span> -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy n -<span id="L28" class="LineNr">28 </span> tmp <span class="SpecialChar"><-</span> decrement -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='factorial.mu.html#L19'>factorial</a> tmp -<span id="L30" class="LineNr">30 </span> result <span class="SpecialChar"><-</span> multiply n +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy n +<span id="L28" class="LineNr">28 </span> tmp <span class="Special"><-</span> decrement +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='factorial.mu.html#L19'>factorial</a> tmp +<span id="L30" class="LineNr">30 </span> result <span class="Special"><-</span> multiply n <span id="L31" class="LineNr">31 </span> <span class="PreProc">return</span> result <span id="L32" class="LineNr">32 </span><span class="Delimiter">}</span> <span id="L33" class="LineNr">33 </span> <span id="L34" class="LineNr">34 </span><span class="PreProc">fn</span> <span class="muTest"><a href='factorial.mu.html#L34'>test-factorial</a></span> <span class="Delimiter">{</span> -<span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='factorial.mu.html#L19'>factorial</a> <span class="Constant">5</span> -<span id="L36" class="LineNr">36 </span> <a href='../102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x78</span>, <span class="Constant">"F - test-factorial"</span> +<span id="L35" class="LineNr">35 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='factorial.mu.html#L19'>factorial</a> <span class="Constant">5</span> +<span id="L36" class="LineNr">36 </span> <a href='102test.subx.html#L23'>check-ints-equal</a> result, <span class="Constant">0x78</span>, <span class="Constant">"F - test-factorial"</span> <span id="L37" class="LineNr">37 </span><span class="Delimiter">}</span> <span id="L38" class="LineNr">38 </span> <span id="L39" class="LineNr">39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='factorial.mu.html#L39'>main</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy args-on-stack +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="Special"><-</span> copy args-on-stack <span id="L41" class="LineNr">41 </span> <span class="muComment"># len = length(args)</span> -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args +<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length args <span id="L43" class="LineNr">43 </span> <span class="muComment"># if (len <= 1) return factorial(5)</span> <span id="L44" class="LineNr">44 </span> compare len, <span class="Constant">1</span> <span id="L45" class="LineNr">45 </span> <span class="Delimiter">{</span> <span id="L46" class="LineNr">46 </span> <span class="PreProc">break-if-></span> -<span id="L47" class="LineNr">47 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='factorial.mu.html#L19'>factorial</a> <span class="Constant">5</span> +<span id="L47" class="LineNr">47 </span> <span class="PreProc">var</span> exit-status/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='factorial.mu.html#L19'>factorial</a> <span class="Constant">5</span> <span id="L48" class="LineNr">48 </span> <span class="PreProc">return</span> exit-status <span id="L49" class="LineNr">49 </span> <span class="Delimiter">}</span> <span id="L50" class="LineNr">50 </span> <span class="muComment"># if (args[1] == "test") run-tests()</span> -<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> -<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> *tmp2, <span class="Constant">"test"</span> +<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">ecx</span>: (addr addr array byte) <span class="Special"><-</span> index args, <span class="Constant">1</span> +<span id="L52" class="LineNr">52 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='105string-equal.subx.html#L15'>string-equal?</a> *tmp2, <span class="Constant">"test"</span> <span id="L53" class="LineNr">53 </span> compare tmp3, <span class="Constant">0</span> <span id="L54" class="LineNr">54 </span> <span class="Delimiter">{</span> <span id="L55" class="LineNr">55 </span> <span class="PreProc">break-if-=</span> diff --git a/html/apps/factorial.subx.html b/html/linux/factorial.subx.html index 7beb276e..086628a9 100644 --- a/html/apps/factorial.subx.html +++ b/html/linux/factorial.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/factorial.subx</title> +<title>Mu - linux/factorial.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.SpecialChar { color: #d70000; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -56,19 +56,19 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/factorial.subx'>https://github.com/akkartik/mu/blob/main/apps/factorial.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/factorial.subx'>https://github.com/akkartik/mu/blob/main/linux/factorial.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment">## compute the factorial of 5, and print the result</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/factorial.subx -o apps/factorial</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/factorial</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/factorial.subx -o apps/factorial</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># Expected result:</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo $?</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># 120</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># $ ./bootstrap run apps/factorial test</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># Expected output:</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># ........</span> <span id="L14" class="LineNr"> 14 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> @@ -122,7 +122,7 @@ if ('onhashchange' in window) { <span id="L62" class="LineNr"> 62 </span> 68/push 0x78/imm32/expected-120 <span id="L63" class="LineNr"> 63 </span> 50/push-eax <span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . call</span> -<span id="L65" class="LineNr"> 65 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L65" class="LineNr"> 65 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L66" class="LineNr"> 66 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L67" class="LineNr"> 67 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># end</span> @@ -135,10 +135,10 @@ if ('onhashchange' in window) { <span id="L75" class="LineNr"> 75 </span> <span class="subxComment"># initialize heap (needed by tests elsewhere)</span> <span id="L76" class="LineNr"> 76 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L77" class="LineNr"> 77 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L78" class="LineNr"> 78 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L79" class="LineNr"> 79 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L78" class="LineNr"> 78 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L79" class="LineNr"> 79 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L80" class="LineNr"> 80 </span> <span class="subxS2Comment"># . . call</span> -<span id="L81" class="LineNr"> 81 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L81" class="LineNr"> 81 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L82" class="LineNr"> 82 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L83" class="LineNr"> 83 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L84" class="LineNr"> 84 </span> @@ -164,7 +164,7 @@ if ('onhashchange' in window) { <span id="L104" class="LineNr">104 </span> 50/push-eax <span id="L105" class="LineNr">105 </span> 51/push-ecx <span id="L106" class="LineNr">106 </span> <span class="subxS2Comment"># . . call</span> -<span id="L107" class="LineNr">107 </span> e8/call <a href='../126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 +<span id="L107" class="LineNr">107 </span> e8/call <a href='126write-int-decimal.subx.html#L8'>write-int32-decimal</a>/disp32 <span id="L108" class="LineNr">108 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L109" class="LineNr">109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L110" class="LineNr">110 </span> <span class="subxComment"># write-stream(stderr, buffer)</span> @@ -172,15 +172,15 @@ if ('onhashchange' in window) { <span id="L112" class="LineNr">112 </span> 51/push-ecx <span id="L113" class="LineNr">113 </span> 68/push 2/imm32/stderr <span id="L114" class="LineNr">114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L115" class="LineNr">115 </span> e8/call <a href='../113write-stream.subx.html#L17'>write-stream</a>/disp32 +<span id="L115" class="LineNr">115 </span> e8/call <a href='113write-stream.subx.html#L17'>write-stream</a>/disp32 <span id="L116" class="LineNr">116 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L117" class="LineNr">117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L118" class="LineNr">118 </span> <span class="subxComment"># write(stderr, Newline)</span> <span id="L119" class="LineNr">119 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L120" class="LineNr">120 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L120" class="LineNr">120 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 <span id="L121" class="LineNr">121 </span> 68/push 2/imm32/stderr <span id="L122" class="LineNr">122 </span> <span class="subxS2Comment"># . . call</span> -<span id="L123" class="LineNr">123 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L123" class="LineNr">123 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L124" class="LineNr">124 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L125" class="LineNr">125 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L126" class="LineNr">126 </span> <span class="subxComment">#</span> @@ -194,7 +194,7 @@ if ('onhashchange' in window) { <span id="L134" class="LineNr">134 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L135" class="LineNr">135 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L136" class="LineNr">136 </span> <span class="subxS2Comment"># . . call</span> -<span id="L137" class="LineNr">137 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L137" class="LineNr">137 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L138" class="LineNr">138 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L139" class="LineNr">139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L140" class="LineNr">140 </span> <span class="subxS1Comment"># . if (eax == false) goto do-nothing</span> @@ -203,12 +203,12 @@ if ('onhashchange' in window) { <span id="L143" class="LineNr">143 </span> <span class="subxComment"># run-tests()</span> <span id="L144" class="LineNr">144 </span> e8/call run-tests/disp32 <span id="L145" class="LineNr">145 </span> <span class="subxComment"># exit(*Num-test-failures)</span> -<span id="L146" class="LineNr">146 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L146" class="LineNr">146 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L147" class="LineNr">147 </span> eb/jump $main:end/disp8 <span id="L148" class="LineNr">148 </span><span class="Constant">$main:do-nothing</span>: <span id="L149" class="LineNr">149 </span> bb/copy-to-ebx 0/imm32 <span id="L150" class="LineNr">150 </span><span class="Constant">$main:end</span>: -<span id="L151" class="LineNr">151 </span> e8/call syscall_exit/disp32 +<span id="L151" class="LineNr">151 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L152" class="LineNr">152 </span> <span id="L153" class="LineNr">153 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> diff --git a/html/apps/factorial2.subx.html b/html/linux/factorial2.subx.html index 1533e1b8..7324ae73 100644 --- a/html/apps/factorial2.subx.html +++ b/html/linux/factorial2.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/factorial2.subx</title> +<title>Mu - linux/factorial2.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,12 +14,12 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.SpecialChar { color: #d70000; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.SpecialChar { color: #d70000; } .LineNr { } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/factorial2.subx'>https://github.com/akkartik/mu/blob/main/apps/factorial2.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/factorial2.subx'>https://github.com/akkartik/mu/blob/main/linux/factorial2.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment">## compute the factorial of 5, and return the result in the exit code</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -63,14 +63,14 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># rm32 operands</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># To run:</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ ./translate_subx init.linux 0*.subx apps/factorial.subx -o apps/factorial</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./bootstrap run apps/factorial</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial.subx -o apps/factorial</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Expected result:</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ echo $?</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 120</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># $ ./bootstrap run apps/factorial test</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> <span id="L15" class="LineNr"> 15 </span><span class="subxComment"># Expected output:</span> <span id="L16" class="LineNr"> 16 </span><span class="subxComment"># ........</span> <span id="L17" class="LineNr"> 17 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> @@ -124,7 +124,7 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span> 68/push 0x78/imm32/expected-120 <span id="L66" class="LineNr"> 66 </span> 50/push-eax <span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . call</span> -<span id="L68" class="LineNr"> 68 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L68" class="LineNr"> 68 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L69" class="LineNr"> 69 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L70" class="LineNr"> 70 </span> 81 0/subop/add %esp 0xc/imm32 <span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># end</span> @@ -137,10 +137,10 @@ if ('onhashchange' in window) { <span id="L78" class="LineNr"> 78 </span> <span class="subxComment"># initialize heap (needed by tests elsewhere)</span> <span id="L79" class="LineNr"> 79 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L80" class="LineNr"> 80 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L81" class="LineNr"> 81 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L82" class="LineNr"> 82 </span> ff 6/subop/push *<span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span> +<span id="L81" class="LineNr"> 81 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L82" class="LineNr"> 82 </span> ff 6/subop/push *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . call</span> -<span id="L84" class="LineNr"> 84 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L84" class="LineNr"> 84 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L85" class="LineNr"> 85 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L86" class="LineNr"> 86 </span> 81 0/subop/add %esp 8/imm32 <span id="L87" class="LineNr"> 87 </span> @@ -164,7 +164,7 @@ if ('onhashchange' in window) { <span id="L105" class="LineNr">105 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L106" class="LineNr">106 </span> ff 6/subop/push *(ebp+8) <span id="L107" class="LineNr">107 </span> <span class="subxS2Comment"># . . call</span> -<span id="L108" class="LineNr">108 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L108" class="LineNr">108 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L109" class="LineNr">109 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L110" class="LineNr">110 </span> 81 0/subop/add %esp 8/imm32 <span id="L111" class="LineNr">111 </span> <span class="subxS1Comment"># . if (eax == false) goto do-nothing</span> @@ -173,12 +173,12 @@ if ('onhashchange' in window) { <span id="L114" class="LineNr">114 </span> <span class="subxComment"># run-tests()</span> <span id="L115" class="LineNr">115 </span> e8/call run-tests/disp32 <span id="L116" class="LineNr">116 </span> <span class="subxComment"># exit(*Num-test-failures)</span> -<span id="L117" class="LineNr">117 </span> 8b/-> *<span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx +<span id="L117" class="LineNr">117 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L118" class="LineNr">118 </span> eb/jump $main:end/disp8 <span id="L119" class="LineNr">119 </span><span class="Constant">$main:do-nothing</span>: <span id="L120" class="LineNr">120 </span> bb/copy-to-ebx 0/imm32 <span id="L121" class="LineNr">121 </span><span class="Constant">$main:end</span>: -<span id="L122" class="LineNr">122 </span> e8/call syscall_exit/disp32 +<span id="L122" class="LineNr">122 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 </pre> </body> </html> diff --git a/html/apps/factorial3.subx.html b/html/linux/factorial3.subx.html index 89428bfa..23e15cd3 100644 --- a/html/apps/factorial3.subx.html +++ b/html/linux/factorial3.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/factorial3.subx</title> +<title>Mu - linux/factorial3.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,11 +14,11 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/factorial3.subx'>https://github.com/akkartik/mu/blob/main/apps/factorial3.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/factorial3.subx'>https://github.com/akkartik/mu/blob/main/linux/factorial3.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment">## compute the factorial of 5, and return the result in the exit code</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -63,14 +63,14 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># function calls</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># To run:</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./translate_subx init.linux 0*.subx apps/factorial.subx -o apps/factorial</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./bootstrap run apps/factorial</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial.subx -o apps/factorial</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> <span id="L10" class="LineNr">10 </span><span class="subxComment"># Expected result:</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># $ echo $?</span> <span id="L12" class="LineNr">12 </span><span class="subxComment"># 120</span> <span id="L13" class="LineNr">13 </span><span class="subxComment">#</span> <span id="L14" class="LineNr">14 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L15" class="LineNr">15 </span><span class="subxComment"># $ ./bootstrap run apps/factorial test</span> +<span id="L15" class="LineNr">15 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> <span id="L16" class="LineNr">16 </span><span class="subxComment"># Expected output:</span> <span id="L17" class="LineNr">17 </span><span class="subxComment"># ........</span> <span id="L18" class="LineNr">18 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> @@ -105,7 +105,7 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr">47 </span> <span id="L48" class="LineNr">48 </span><span class="subxTest">test-factorial</span>: <span id="L49" class="LineNr">49 </span> (<a href='factorial3.subx.html#L24'>factorial</a> 5) -<span id="L50" class="LineNr">50 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0x78 <span class="Constant">"F - test-factorial"</span>) +<span id="L50" class="LineNr">50 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0x78 <span class="Constant">"F - test-factorial"</span>) <span id="L51" class="LineNr">51 </span> c3/return <span id="L52" class="LineNr">52 </span> <span id="L53" class="LineNr">53 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, compute `factorial(5)` if not</span> @@ -113,7 +113,7 @@ if ('onhashchange' in window) { <span id="L55" class="LineNr">55 </span> 89/<- %ebp 4/r32/esp <span id="L56" class="LineNr">56 </span> <span id="L57" class="LineNr">57 </span> <span class="subxComment"># initialize heap (needed by tests elsewhere)</span> -<span id="L58" class="LineNr">58 </span> (<a href='../104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>) +<span id="L58" class="LineNr">58 </span> (<a href='104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) <span id="L59" class="LineNr">59 </span> <span id="L60" class="LineNr">60 </span> <span class="subxComment"># if (argc <= 1) return factorial(5)</span> <span id="L61" class="LineNr">61 </span> 81 7/subop/compare *ebp 1/imm32 @@ -124,18 +124,18 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr">66 </span><span class="Constant">$main:run-tests</span>: <span id="L67" class="LineNr">67 </span> <span class="subxComment"># otherwise if first arg is "test", then return run_tests()</span> <span id="L68" class="LineNr">68 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto do-nothing</span> -<span id="L69" class="LineNr">69 </span> (<a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> +<span id="L69" class="LineNr">69 </span> (<a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> <span id="L70" class="LineNr">70 </span> 3d/compare-eax-and 0/imm32/false <span id="L71" class="LineNr">71 </span> 74/jump-if-= $main:do-nothing/disp8 <span id="L72" class="LineNr">72 </span> <span class="subxComment">#</span> <span id="L73" class="LineNr">73 </span> (run-tests) <span id="L74" class="LineNr">74 </span> <span class="subxComment"># exit(*Num-test-failures)</span> -<span id="L75" class="LineNr">75 </span> 8b/-> *<span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx +<span id="L75" class="LineNr">75 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L76" class="LineNr">76 </span> eb/jump $main:end/disp8 <span id="L77" class="LineNr">77 </span><span class="Constant">$main:do-nothing</span>: <span id="L78" class="LineNr">78 </span> bb/copy-to-ebx 0/imm32 <span id="L79" class="LineNr">79 </span><span class="Constant">$main:end</span>: -<span id="L80" class="LineNr">80 </span> e8/call syscall_exit/disp32 +<span id="L80" class="LineNr">80 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 </pre> </body> </html> diff --git a/html/apps/factorial4.subx.html b/html/linux/factorial4.subx.html index ad8e07c1..57fa57a0 100644 --- a/html/apps/factorial4.subx.html +++ b/html/linux/factorial4.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/factorial4.subx</title> +<title>Mu - linux/factorial4.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,11 +14,11 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .LineNr { } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/factorial4.subx'>https://github.com/akkartik/mu/blob/main/apps/factorial4.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/factorial4.subx'>https://github.com/akkartik/mu/blob/main/linux/factorial4.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment">## compute the factorial of 5, and return the result in the exit code</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> @@ -64,14 +64,14 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="subxComment"># control flow</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># To run:</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./translate_subx init.linux 0*.subx apps/factorial.subx -o apps/factorial</span> -<span id="L10" class="LineNr">10 </span><span class="subxComment"># $ ./bootstrap run apps/factorial</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># $ ./translate_subx init.linux [01]*.subx apps/factorial.subx -o apps/factorial</span> +<span id="L10" class="LineNr">10 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial</span> <span id="L11" class="LineNr">11 </span><span class="subxComment"># Expected result:</span> <span id="L12" class="LineNr">12 </span><span class="subxComment"># $ echo $?</span> <span id="L13" class="LineNr">13 </span><span class="subxComment"># 120</span> <span id="L14" class="LineNr">14 </span><span class="subxComment">#</span> <span id="L15" class="LineNr">15 </span><span class="subxComment"># You can also run the automated test suite:</span> -<span id="L16" class="LineNr">16 </span><span class="subxComment"># $ ./bootstrap run apps/factorial test</span> +<span id="L16" class="LineNr">16 </span><span class="subxComment"># $ bootstrap/bootstrap run factorial test</span> <span id="L17" class="LineNr">17 </span><span class="subxComment"># Expected output:</span> <span id="L18" class="LineNr">18 </span><span class="subxComment"># ........</span> <span id="L19" class="LineNr">19 </span><span class="subxComment"># Every '.' indicates a passing test. Failing tests get a 'F'.</span> @@ -109,7 +109,7 @@ if ('onhashchange' in window) { <span id="L51" class="LineNr">51 </span> <span id="L52" class="LineNr">52 </span><span class="subxTest">test-factorial</span>: <span id="L53" class="LineNr">53 </span> (<a href='factorial4.subx.html#L25'>factorial</a> 5) -<span id="L54" class="LineNr">54 </span> (<a href='../102test.subx.html#L23'>check-ints-equal</a> %eax 0x78 <span class="Constant">"F - test-factorial"</span>) +<span id="L54" class="LineNr">54 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0x78 <span class="Constant">"F - test-factorial"</span>) <span id="L55" class="LineNr">55 </span> c3/return <span id="L56" class="LineNr">56 </span> <span id="L57" class="LineNr">57 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, compute `factorial(5)` if not</span> @@ -117,7 +117,7 @@ if ('onhashchange' in window) { <span id="L59" class="LineNr">59 </span> 89/<- %ebp 4/r32/esp <span id="L60" class="LineNr">60 </span> <span id="L61" class="LineNr">61 </span> <span class="subxComment"># initialize heap (needed by tests elsewhere)</span> -<span id="L62" class="LineNr">62 </span> (<a href='../104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>) +<span id="L62" class="LineNr">62 </span> (<a href='104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) <span id="L63" class="LineNr">63 </span> <span id="L64" class="LineNr">64 </span> <span class="subxComment"># if (argc <= 1) return factorial(5)</span> <span id="L65" class="LineNr">65 </span> { @@ -132,18 +132,18 @@ if ('onhashchange' in window) { <span id="L74" class="LineNr">74 </span> <span class="subxComment"># otherwise if first arg is "test", then return run_tests()</span> <span id="L75" class="LineNr">75 </span> { <span id="L76" class="LineNr">76 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) break</span> -<span id="L77" class="LineNr">77 </span> (<a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> +<span id="L77" class="LineNr">77 </span> (<a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> <span id="L78" class="LineNr">78 </span> 3d/compare-eax-and 0/imm32/false <span id="L79" class="LineNr">79 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 <span id="L80" class="LineNr">80 </span> <span class="subxComment">#</span> <span id="L81" class="LineNr">81 </span> (run-tests) <span id="L82" class="LineNr">82 </span> <span class="subxComment"># exit(*Num-test-failures)</span> -<span id="L83" class="LineNr">83 </span> 8b/-> *<span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx +<span id="L83" class="LineNr">83 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx <span id="L84" class="LineNr">84 </span> eb/jump $main:end/disp8 <span id="L85" class="LineNr">85 </span> } <span id="L86" class="LineNr">86 </span> bb/copy-to-ebx 0/imm32 <span id="L87" class="LineNr">87 </span><span class="Constant">$main:end</span>: -<span id="L88" class="LineNr">88 </span> e8/call syscall_exit/disp32 +<span id="L88" class="LineNr">88 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 </pre> </body> </html> diff --git a/html/apps/hello.mu.html b/html/linux/hello.mu.html index 48144dc8..2633c956 100644 --- a/html/apps/hello.mu.html +++ b/html/linux/hello.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/hello.mu</title> +<title>Mu - linux/hello.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,12 +14,12 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -53,16 +53,16 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/hello.mu'>https://github.com/akkartik/mu/blob/main/apps/hello.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/hello.mu'>https://github.com/akkartik/mu/blob/main/linux/hello.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Meaningless conventional example.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/hello.mu</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate hello.mu</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='hello.mu.html#L7'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"Hello world!\n"</span> +<span id="L8" class="LineNr"> 8 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"Hello world!\n"</span> <span id="L9" class="LineNr"> 9 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L10" class="LineNr">10 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/hex.subx.html b/html/linux/hex.subx.html index 78a3a9b9..b7f1bb3b 100644 --- a/html/apps/hex.subx.html +++ b/html/linux/hex.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/hex.subx</title> +<title>Mu - linux/hex.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -57,15 +57,15 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/hex.subx'>https://github.com/akkartik/mu/blob/main/apps/hex.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/hex.subx'>https://github.com/akkartik/mu/blob/main/linux/hex.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a text file containing whitespace-separated pairs of ascii hex bytes</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># from stdin, and convert them into binary bytes (octets) on stdout. Ignore</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># comments between '#' and newline.</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To run:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/subx-params.subx apps/hex.subx -o apps/hex</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '80 81 82 # comment' |./bootstrap run apps/hex |xxd -</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/subx-params.subx apps/hex.subx -o apps/hex</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '80 81 82 # comment' |bootstrap/bootstrap run hex |xxd -</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Expected output:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># 00000000: 8081 82</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment">#</span> @@ -85,10 +85,10 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr"> 24 </span> <span class="subxComment"># initialize heap</span> <span id="L25" class="LineNr"> 25 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L26" class="LineNr"> 26 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L27" class="LineNr"> 27 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L28" class="LineNr"> 28 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L27" class="LineNr"> 27 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L28" class="LineNr"> 28 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L29" class="LineNr"> 29 </span> <span class="subxS2Comment"># . . call</span> -<span id="L30" class="LineNr"> 30 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L30" class="LineNr"> 30 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L31" class="LineNr"> 31 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L32" class="LineNr"> 32 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L33" class="LineNr"> 33 </span> @@ -102,7 +102,7 @@ if ('onhashchange' in window) { <span id="L41" class="LineNr"> 41 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L42" class="LineNr"> 42 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L43" class="LineNr"> 43 </span> <span class="subxS2Comment"># . . call</span> -<span id="L44" class="LineNr"> 44 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L44" class="LineNr"> 44 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L45" class="LineNr"> 45 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L46" class="LineNr"> 46 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L47" class="LineNr"> 47 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> @@ -111,16 +111,16 @@ if ('onhashchange' in window) { <span id="L50" class="LineNr"> 50 </span> <span class="subxComment"># run-tests()</span> <span id="L51" class="LineNr"> 51 </span> e8/call run-tests/disp32 <span id="L52" class="LineNr"> 52 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L53" class="LineNr"> 53 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L53" class="LineNr"> 53 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L54" class="LineNr"> 54 </span> eb/jump $subx-hex-main:end/disp8 <span id="L55" class="LineNr"> 55 </span><span class="Constant">$subx-hex-main:interactive</span>: <span id="L56" class="LineNr"> 56 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> <span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . subx-hex(Stdin, Stdout, Stderr, 0)</span> <span id="L58" class="LineNr"> 58 </span> <span class="subxS2Comment"># . . push args</span> <span id="L59" class="LineNr"> 59 </span> 68/push 0/imm32/exit-descriptor -<span id="L60" class="LineNr"> 60 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L61" class="LineNr"> 61 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L62" class="LineNr"> 62 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L60" class="LineNr"> 60 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L61" class="LineNr"> 61 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L62" class="LineNr"> 62 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L63" class="LineNr"> 63 </span> <span class="subxS2Comment"># . . call</span> <span id="L64" class="LineNr"> 64 </span> e8/call <a href='hex.subx.html#L73'>subx-hex</a>/disp32 <span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . discard args</span> @@ -128,7 +128,7 @@ if ('onhashchange' in window) { <span id="L67" class="LineNr"> 67 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L68" class="LineNr"> 68 </span> bb/copy-to-ebx 0/imm32 <span id="L69" class="LineNr"> 69 </span><span class="Constant">$subx-hex-main:end</span>: -<span id="L70" class="LineNr"> 70 </span> e8/call syscall_exit/disp32 +<span id="L70" class="LineNr"> 70 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L71" class="LineNr"> 71 </span> <span id="L72" class="LineNr"> 72 </span><span class="subxComment"># the main entry point</span> <span id="L73" class="LineNr"> 73 </span><span class="subxFunction">subx-hex</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> @@ -162,7 +162,7 @@ if ('onhashchange' in window) { <span id="L101" class="LineNr"> 101 </span> 50/push-eax <span id="L102" class="LineNr"> 102 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L103" class="LineNr"> 103 </span> <span class="subxS2Comment"># . . call</span> -<span id="L104" class="LineNr"> 104 </span> e8/call <a href='../115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L104" class="LineNr"> 104 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 <span id="L105" class="LineNr"> 105 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L106" class="LineNr"> 106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L107" class="LineNr"> 107 </span> <span class="subxComment"># loop</span> @@ -172,7 +172,7 @@ if ('onhashchange' in window) { <span id="L111" class="LineNr"> 111 </span> <span class="subxS2Comment"># . . push args</span> <span id="L112" class="LineNr"> 112 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L113" class="LineNr"> 113 </span> <span class="subxS2Comment"># . . call</span> -<span id="L114" class="LineNr"> 114 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L114" class="LineNr"> 114 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L115" class="LineNr"> 115 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L116" class="LineNr"> 116 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L117" class="LineNr"> 117 </span><span class="Constant">$subx-hex:end</span>: @@ -218,7 +218,7 @@ if ('onhashchange' in window) { <span id="L157" class="LineNr"> 157 </span> 3d/compare-eax-and 0xffffffff/imm32/Eof <span id="L158" class="LineNr"> 158 </span> 74/jump-if-= $convert-next-octet:end/disp8 <span id="L159" class="LineNr"> 159 </span> <span class="subxComment"># eax = from-hex-char(eax)</span> -<span id="L160" class="LineNr"> 160 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L160" class="LineNr"> 160 </span> e8/call <a href='118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 <span id="L161" class="LineNr"> 161 </span> <span class="subxComment"># ecx = eax</span> <span id="L162" class="LineNr"> 162 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> <span id="L163" class="LineNr"> 163 </span> <span class="subxComment"># eax = scan-next-byte(in, err, ed)</span> @@ -240,10 +240,10 @@ if ('onhashchange' in window) { <span id="L179" class="LineNr"> 179 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L180" class="LineNr"> 180 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L181" class="LineNr"> 181 </span> <span class="subxS2Comment"># . . call</span> -<span id="L182" class="LineNr"> 182 </span> e8/call <a href='../119error-byte.subx.html#L26'>error-byte</a>/disp32 <span class="subxComment"># never returns</span> +<span id="L182" class="LineNr"> 182 </span> e8/call <a href='119error-byte.subx.html#L26'>error-byte</a>/disp32 <span class="subxComment"># never returns</span> <span id="L183" class="LineNr"> 183 </span><span class="Constant">$convert-next-octet:convert</span>: <span id="L184" class="LineNr"> 184 </span> <span class="subxComment"># eax = from-hex-char(eax)</span> -<span id="L185" class="LineNr"> 185 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L185" class="LineNr"> 185 </span> e8/call <a href='118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 <span id="L186" class="LineNr"> 186 </span> <span class="subxComment"># eax = (ecx << 4) | eax</span> <span id="L187" class="LineNr"> 187 </span> <span class="subxS1Comment"># . ecx <<= 4</span> <span id="L188" class="LineNr"> 188 </span> c1/shift 4/subop/left 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift ecx left by 4 bits</span> @@ -265,39 +265,39 @@ if ('onhashchange' in window) { <span id="L204" class="LineNr"> 204 </span> <span class="subxComment"># clear all streams</span> <span id="L205" class="LineNr"> 205 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L206" class="LineNr"> 206 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L207" class="LineNr"> 207 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L207" class="LineNr"> 207 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L208" class="LineNr"> 208 </span> <span class="subxS2Comment"># . . call</span> -<span id="L209" class="LineNr"> 209 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L209" class="LineNr"> 209 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L210" class="LineNr"> 210 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L211" class="LineNr"> 211 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L212" class="LineNr"> 212 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L213" class="LineNr"> 213 </span> <span class="subxS2Comment"># . . push args</span> <span id="L214" class="LineNr"> 214 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L215" class="LineNr"> 215 </span> <span class="subxS2Comment"># . . call</span> -<span id="L216" class="LineNr"> 216 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L216" class="LineNr"> 216 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L217" class="LineNr"> 217 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L218" class="LineNr"> 218 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L219" class="LineNr"> 219 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L220" class="LineNr"> 220 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L221" class="LineNr"> 221 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L221" class="LineNr"> 221 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L222" class="LineNr"> 222 </span> <span class="subxS2Comment"># . . call</span> -<span id="L223" class="LineNr"> 223 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L223" class="LineNr"> 223 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L224" class="LineNr"> 224 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L225" class="LineNr"> 225 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L226" class="LineNr"> 226 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L227" class="LineNr"> 227 </span> <span class="subxS2Comment"># . . push args</span> <span id="L228" class="LineNr"> 228 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L229" class="LineNr"> 229 </span> <span class="subxS2Comment"># . . call</span> -<span id="L230" class="LineNr"> 230 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L230" class="LineNr"> 230 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L231" class="LineNr"> 231 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L232" class="LineNr"> 232 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L233" class="LineNr"> 233 </span> <span class="subxComment"># initialize '_test-stream' to "abc"</span> <span id="L234" class="LineNr"> 234 </span> <span class="subxS1Comment"># . write(_test-stream, "abc")</span> <span id="L235" class="LineNr"> 235 </span> <span class="subxS2Comment"># . . push args</span> <span id="L236" class="LineNr"> 236 </span> 68/push <span class="Constant">"abc"</span>/imm32 -<span id="L237" class="LineNr"> 237 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L237" class="LineNr"> 237 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L238" class="LineNr"> 238 </span> <span class="subxS2Comment"># . . call</span> -<span id="L239" class="LineNr"> 239 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L239" class="LineNr"> 239 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L240" class="LineNr"> 240 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L241" class="LineNr"> 241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L242" class="LineNr"> 242 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span> @@ -309,14 +309,14 @@ if ('onhashchange' in window) { <span id="L248" class="LineNr"> 248 </span> 68/push 0xc/imm32/nbytes-of-args-for-convert-next-octet <span id="L249" class="LineNr"> 249 </span> 51/push-ecx/ed <span id="L250" class="LineNr"> 250 </span> <span class="subxS2Comment"># . . call</span> -<span id="L251" class="LineNr"> 251 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L251" class="LineNr"> 251 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L252" class="LineNr"> 252 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L253" class="LineNr"> 253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L254" class="LineNr"> 254 </span> <span class="subxComment"># eax = convert-next-octet(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . push args</span> <span id="L256" class="LineNr"> 256 </span> 51/push-ecx/ed -<span id="L257" class="LineNr"> 257 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L258" class="LineNr"> 258 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L257" class="LineNr"> 257 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L258" class="LineNr"> 258 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . call</span> <span id="L260" class="LineNr"> 260 </span> e8/call <a href='hex.subx.html#L131'>convert-next-octet</a>/disp32 <span id="L261" class="LineNr"> 261 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -333,7 +333,7 @@ if ('onhashchange' in window) { <span id="L272" class="LineNr"> 272 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L273" class="LineNr"> 273 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L274" class="LineNr"> 274 </span> <span class="subxS2Comment"># . . call</span> -<span id="L275" class="LineNr"> 275 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L275" class="LineNr"> 275 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L276" class="LineNr"> 276 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L277" class="LineNr"> 277 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L278" class="LineNr"> 278 </span> <span class="subxComment"># return if abort</span> @@ -345,7 +345,7 @@ if ('onhashchange' in window) { <span id="L284" class="LineNr"> 284 </span> 68/push 0xab/imm32/ab <span id="L285" class="LineNr"> 285 </span> 50/push-eax <span id="L286" class="LineNr"> 286 </span> <span class="subxS2Comment"># . . call</span> -<span id="L287" class="LineNr"> 287 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L287" class="LineNr"> 287 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L288" class="LineNr"> 288 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L289" class="LineNr"> 289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L290" class="LineNr"> 290 </span><span class="Constant">$test-convert-next-octet:end</span>: @@ -363,30 +363,30 @@ if ('onhashchange' in window) { <span id="L302" class="LineNr"> 302 </span> <span class="subxComment"># clear all streams</span> <span id="L303" class="LineNr"> 303 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L304" class="LineNr"> 304 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L305" class="LineNr"> 305 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L305" class="LineNr"> 305 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L306" class="LineNr"> 306 </span> <span class="subxS2Comment"># . . call</span> -<span id="L307" class="LineNr"> 307 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L307" class="LineNr"> 307 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L308" class="LineNr"> 308 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L309" class="LineNr"> 309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L310" class="LineNr"> 310 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L311" class="LineNr"> 311 </span> <span class="subxS2Comment"># . . push args</span> <span id="L312" class="LineNr"> 312 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L313" class="LineNr"> 313 </span> <span class="subxS2Comment"># . . call</span> -<span id="L314" class="LineNr"> 314 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L314" class="LineNr"> 314 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L315" class="LineNr"> 315 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L316" class="LineNr"> 316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L317" class="LineNr"> 317 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L318" class="LineNr"> 318 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L319" class="LineNr"> 319 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L319" class="LineNr"> 319 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L320" class="LineNr"> 320 </span> <span class="subxS2Comment"># . . call</span> -<span id="L321" class="LineNr"> 321 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L321" class="LineNr"> 321 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L322" class="LineNr"> 322 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L323" class="LineNr"> 323 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L324" class="LineNr"> 324 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L325" class="LineNr"> 325 </span> <span class="subxS2Comment"># . . push args</span> <span id="L326" class="LineNr"> 326 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L327" class="LineNr"> 327 </span> <span class="subxS2Comment"># . . call</span> -<span id="L328" class="LineNr"> 328 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L328" class="LineNr"> 328 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L329" class="LineNr"> 329 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L330" class="LineNr"> 330 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L331" class="LineNr"> 331 </span> <span class="subxComment"># don't initialize '_test-stream'</span> @@ -399,14 +399,14 @@ if ('onhashchange' in window) { <span id="L338" class="LineNr"> 338 </span> 68/push 0xc/imm32/nbytes-of-args-for-convert-next-octet <span id="L339" class="LineNr"> 339 </span> 51/push-ecx/ed <span id="L340" class="LineNr"> 340 </span> <span class="subxS2Comment"># . . call</span> -<span id="L341" class="LineNr"> 341 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L341" class="LineNr"> 341 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L342" class="LineNr"> 342 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L343" class="LineNr"> 343 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L344" class="LineNr"> 344 </span> <span class="subxComment"># eax = convert-next-octet(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L345" class="LineNr"> 345 </span> <span class="subxS2Comment"># . . push args</span> <span id="L346" class="LineNr"> 346 </span> 51/push-ecx/ed -<span id="L347" class="LineNr"> 347 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L348" class="LineNr"> 348 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L347" class="LineNr"> 347 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L348" class="LineNr"> 348 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L349" class="LineNr"> 349 </span> <span class="subxS2Comment"># . . call</span> <span id="L350" class="LineNr"> 350 </span> e8/call <a href='hex.subx.html#L131'>convert-next-octet</a>/disp32 <span id="L351" class="LineNr"> 351 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -423,7 +423,7 @@ if ('onhashchange' in window) { <span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L363" class="LineNr"> 363 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . call</span> -<span id="L365" class="LineNr"> 365 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L365" class="LineNr"> 365 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L366" class="LineNr"> 366 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L367" class="LineNr"> 367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L368" class="LineNr"> 368 </span> <span class="subxComment"># return if abort</span> @@ -435,7 +435,7 @@ if ('onhashchange' in window) { <span id="L374" class="LineNr"> 374 </span> 68/push 0xffffffff/imm32/Eof <span id="L375" class="LineNr"> 375 </span> 50/push-eax <span id="L376" class="LineNr"> 376 </span> <span class="subxS2Comment"># . . call</span> -<span id="L377" class="LineNr"> 377 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L377" class="LineNr"> 377 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L378" class="LineNr"> 378 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L379" class="LineNr"> 379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L380" class="LineNr"> 380 </span><span class="Constant">$test-convert-next-octet-handles-Eof:end</span>: @@ -453,39 +453,39 @@ if ('onhashchange' in window) { <span id="L392" class="LineNr"> 392 </span> <span class="subxComment"># clear all streams</span> <span id="L393" class="LineNr"> 393 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L394" class="LineNr"> 394 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L395" class="LineNr"> 395 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L395" class="LineNr"> 395 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L396" class="LineNr"> 396 </span> <span class="subxS2Comment"># . . call</span> -<span id="L397" class="LineNr"> 397 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L397" class="LineNr"> 397 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L398" class="LineNr"> 398 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L399" class="LineNr"> 399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L400" class="LineNr"> 400 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L401" class="LineNr"> 401 </span> <span class="subxS2Comment"># . . push args</span> <span id="L402" class="LineNr"> 402 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L403" class="LineNr"> 403 </span> <span class="subxS2Comment"># . . call</span> -<span id="L404" class="LineNr"> 404 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L404" class="LineNr"> 404 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L405" class="LineNr"> 405 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L406" class="LineNr"> 406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L407" class="LineNr"> 407 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L408" class="LineNr"> 408 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L409" class="LineNr"> 409 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L409" class="LineNr"> 409 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L410" class="LineNr"> 410 </span> <span class="subxS2Comment"># . . call</span> -<span id="L411" class="LineNr"> 411 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L411" class="LineNr"> 411 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L412" class="LineNr"> 412 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L413" class="LineNr"> 413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L414" class="LineNr"> 414 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push args</span> <span id="L416" class="LineNr"> 416 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . call</span> -<span id="L418" class="LineNr"> 418 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L418" class="LineNr"> 418 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L419" class="LineNr"> 419 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L420" class="LineNr"> 420 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L421" class="LineNr"> 421 </span> <span class="subxComment"># initialize '_test-stream' to "a"</span> <span id="L422" class="LineNr"> 422 </span> <span class="subxS1Comment"># . write(_test-stream, "a")</span> <span id="L423" class="LineNr"> 423 </span> <span class="subxS2Comment"># . . push args</span> <span id="L424" class="LineNr"> 424 </span> 68/push <span class="Constant">"a"</span>/imm32 -<span id="L425" class="LineNr"> 425 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L425" class="LineNr"> 425 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . call</span> -<span id="L427" class="LineNr"> 427 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L427" class="LineNr"> 427 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L429" class="LineNr"> 429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L430" class="LineNr"> 430 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'convert-next-octet' below</span> @@ -497,14 +497,14 @@ if ('onhashchange' in window) { <span id="L436" class="LineNr"> 436 </span> 68/push 0xc/imm32/nbytes-of-args-for-convert-next-octet <span id="L437" class="LineNr"> 437 </span> 51/push-ecx/ed <span id="L438" class="LineNr"> 438 </span> <span class="subxS2Comment"># . . call</span> -<span id="L439" class="LineNr"> 439 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L439" class="LineNr"> 439 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L440" class="LineNr"> 440 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L441" class="LineNr"> 441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L442" class="LineNr"> 442 </span> <span class="subxComment"># eax = convert-next-octet(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . push args</span> <span id="L444" class="LineNr"> 444 </span> 51/push-ecx/ed -<span id="L445" class="LineNr"> 445 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L446" class="LineNr"> 446 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L445" class="LineNr"> 445 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L446" class="LineNr"> 446 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L447" class="LineNr"> 447 </span> <span class="subxS2Comment"># . . call</span> <span id="L448" class="LineNr"> 448 </span> e8/call <a href='hex.subx.html#L131'>convert-next-octet</a>/disp32 <span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -521,7 +521,7 @@ if ('onhashchange' in window) { <span id="L460" class="LineNr"> 460 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L461" class="LineNr"> 461 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L462" class="LineNr"> 462 </span> <span class="subxS2Comment"># . . call</span> -<span id="L463" class="LineNr"> 463 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L463" class="LineNr"> 463 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L464" class="LineNr"> 464 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L465" class="LineNr"> 465 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L466" class="LineNr"> 466 </span><span class="Constant">$test-convert-next-octet-aborts-on-single-hex-byte:end</span>: @@ -540,7 +540,7 @@ if ('onhashchange' in window) { <span id="L479" class="LineNr"> 479 </span> <span class="subxComment"># while true</span> <span id="L480" class="LineNr"> 480 </span> <span class="subxComment"># eax = read-byte-buffered(in)</span> <span id="L481" class="LineNr"> 481 </span> <span class="subxComment"># if (eax == Eof) return eax</span> -<span id="L482" class="LineNr"> 482 </span> <span class="subxComment"># if (is-hex-digit?(eax)) return eax</span> +<span id="L482" class="LineNr"> 482 </span> <span class="subxComment"># if (hex-digit?(eax)) return eax</span> <span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># if (eax == ' ' or '\t' or '\n') continue</span> <span id="L484" class="LineNr"> 484 </span> <span class="subxComment"># if (eax == '#') skip-until-newline(in)</span> <span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># else error-byte(ed, err, "invalid byte: " eax)</span> @@ -554,20 +554,20 @@ if ('onhashchange' in window) { <span id="L493" class="LineNr"> 493 </span> <span class="subxS2Comment"># . . push args</span> <span id="L494" class="LineNr"> 494 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L495" class="LineNr"> 495 </span> <span class="subxS2Comment"># . . call</span> -<span id="L496" class="LineNr"> 496 </span> e8/call <a href='../112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L496" class="LineNr"> 496 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 <span id="L497" class="LineNr"> 497 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L498" class="LineNr"> 498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L499" class="LineNr"> 499 </span> <span class="subxComment"># if (eax == Eof) return eax</span> <span id="L500" class="LineNr"> 500 </span> 3d/compare-with-eax 0xffffffff/imm32/Eof <span id="L501" class="LineNr"> 501 </span> 74/jump-if-= $scan-next-byte:end/disp8 -<span id="L502" class="LineNr"> 502 </span> <span class="subxComment"># if (is-hex-digit?(eax)) return eax</span> +<span id="L502" class="LineNr"> 502 </span> <span class="subxComment"># if (hex-digit?(eax)) return eax</span> <span id="L503" class="LineNr"> 503 </span> <span class="subxS1Comment"># . save eax for now</span> <span id="L504" class="LineNr"> 504 </span> 50/push-eax -<span id="L505" class="LineNr"> 505 </span> <span class="subxS1Comment"># . is-hex-digit?(eax)</span> +<span id="L505" class="LineNr"> 505 </span> <span class="subxS1Comment"># . hex-digit?(eax)</span> <span id="L506" class="LineNr"> 506 </span> <span class="subxS2Comment"># . . push args</span> <span id="L507" class="LineNr"> 507 </span> 50/push-eax <span id="L508" class="LineNr"> 508 </span> <span class="subxS2Comment"># . . call</span> -<span id="L509" class="LineNr"> 509 </span> e8/call <a href='../118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 +<span id="L509" class="LineNr"> 509 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 <span id="L510" class="LineNr"> 510 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L511" class="LineNr"> 511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L512" class="LineNr"> 512 </span> <span class="subxS1Comment"># . compare with 'false'</span> @@ -606,7 +606,7 @@ if ('onhashchange' in window) { <span id="L545" class="LineNr"> 545 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L546" class="LineNr"> 546 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> <span id="L547" class="LineNr"> 547 </span> <span class="subxS2Comment"># . . call</span> -<span id="L548" class="LineNr"> 548 </span> e8/call <a href='../119error-byte.subx.html#L26'>error-byte</a>/disp32 <span class="subxComment"># never returns</span> +<span id="L548" class="LineNr"> 548 </span> e8/call <a href='119error-byte.subx.html#L26'>error-byte</a>/disp32 <span class="subxComment"># never returns</span> <span id="L549" class="LineNr"> 549 </span><span class="Constant">$scan-next-byte:end</span>: <span id="L550" class="LineNr"> 550 </span> <span class="subxS1Comment"># . restore registers</span> <span id="L551" class="LineNr"> 551 </span> <span class="subxS1Comment"># . epilogue</span> @@ -622,39 +622,39 @@ if ('onhashchange' in window) { <span id="L561" class="LineNr"> 561 </span> <span class="subxComment"># clear all streams</span> <span id="L562" class="LineNr"> 562 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L563" class="LineNr"> 563 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L564" class="LineNr"> 564 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L564" class="LineNr"> 564 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L565" class="LineNr"> 565 </span> <span class="subxS2Comment"># . . call</span> -<span id="L566" class="LineNr"> 566 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L566" class="LineNr"> 566 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L567" class="LineNr"> 567 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L568" class="LineNr"> 568 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L569" class="LineNr"> 569 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L570" class="LineNr"> 570 </span> <span class="subxS2Comment"># . . push args</span> <span id="L571" class="LineNr"> 571 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L572" class="LineNr"> 572 </span> <span class="subxS2Comment"># . . call</span> -<span id="L573" class="LineNr"> 573 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L573" class="LineNr"> 573 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L574" class="LineNr"> 574 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L575" class="LineNr"> 575 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L576" class="LineNr"> 576 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L578" class="LineNr"> 578 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L578" class="LineNr"> 578 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . call</span> -<span id="L580" class="LineNr"> 580 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L580" class="LineNr"> 580 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L581" class="LineNr"> 581 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L582" class="LineNr"> 582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L583" class="LineNr"> 583 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L584" class="LineNr"> 584 </span> <span class="subxS2Comment"># . . push args</span> <span id="L585" class="LineNr"> 585 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L586" class="LineNr"> 586 </span> <span class="subxS2Comment"># . . call</span> -<span id="L587" class="LineNr"> 587 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L587" class="LineNr"> 587 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L588" class="LineNr"> 588 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L589" class="LineNr"> 589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L590" class="LineNr"> 590 </span> <span class="subxComment"># initialize '_test-stream' to "abc"</span> <span id="L591" class="LineNr"> 591 </span> <span class="subxS1Comment"># . write(_test-stream, "abc")</span> <span id="L592" class="LineNr"> 592 </span> <span class="subxS2Comment"># . . push args</span> <span id="L593" class="LineNr"> 593 </span> 68/push <span class="Constant">"abc"</span>/imm32 -<span id="L594" class="LineNr"> 594 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L594" class="LineNr"> 594 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L595" class="LineNr"> 595 </span> <span class="subxS2Comment"># . . call</span> -<span id="L596" class="LineNr"> 596 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L596" class="LineNr"> 596 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L597" class="LineNr"> 597 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L598" class="LineNr"> 598 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L599" class="LineNr"> 599 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> @@ -666,14 +666,14 @@ if ('onhashchange' in window) { <span id="L605" class="LineNr"> 605 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L606" class="LineNr"> 606 </span> 51/push-ecx/ed <span id="L607" class="LineNr"> 607 </span> <span class="subxS2Comment"># . . call</span> -<span id="L608" class="LineNr"> 608 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L608" class="LineNr"> 608 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L609" class="LineNr"> 609 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L610" class="LineNr"> 610 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L611" class="LineNr"> 611 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L612" class="LineNr"> 612 </span> <span class="subxS2Comment"># . . push args</span> <span id="L613" class="LineNr"> 613 </span> 51/push-ecx/ed -<span id="L614" class="LineNr"> 614 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L615" class="LineNr"> 615 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L614" class="LineNr"> 614 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L615" class="LineNr"> 615 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L616" class="LineNr"> 616 </span> <span class="subxS2Comment"># . . call</span> <span id="L617" class="LineNr"> 617 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L618" class="LineNr"> 618 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -690,7 +690,7 @@ if ('onhashchange' in window) { <span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L630" class="LineNr"> 630 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L631" class="LineNr"> 631 </span> <span class="subxS2Comment"># . . call</span> -<span id="L632" class="LineNr"> 632 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L632" class="LineNr"> 632 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L633" class="LineNr"> 633 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L634" class="LineNr"> 634 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># return if abort</span> @@ -702,7 +702,7 @@ if ('onhashchange' in window) { <span id="L641" class="LineNr"> 641 </span> 68/push 0x61/imm32/a <span id="L642" class="LineNr"> 642 </span> 50/push-eax <span id="L643" class="LineNr"> 643 </span> <span class="subxS2Comment"># . . call</span> -<span id="L644" class="LineNr"> 644 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L644" class="LineNr"> 644 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L646" class="LineNr"> 646 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L647" class="LineNr"> 647 </span><span class="Constant">$test-scan-next-byte:end</span>: @@ -720,39 +720,39 @@ if ('onhashchange' in window) { <span id="L659" class="LineNr"> 659 </span> <span class="subxComment"># clear all streams</span> <span id="L660" class="LineNr"> 660 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L661" class="LineNr"> 661 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L662" class="LineNr"> 662 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L662" class="LineNr"> 662 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L663" class="LineNr"> 663 </span> <span class="subxS2Comment"># . . call</span> -<span id="L664" class="LineNr"> 664 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L664" class="LineNr"> 664 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L665" class="LineNr"> 665 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L666" class="LineNr"> 666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L667" class="LineNr"> 667 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L668" class="LineNr"> 668 </span> <span class="subxS2Comment"># . . push args</span> <span id="L669" class="LineNr"> 669 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L670" class="LineNr"> 670 </span> <span class="subxS2Comment"># . . call</span> -<span id="L671" class="LineNr"> 671 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L671" class="LineNr"> 671 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L673" class="LineNr"> 673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L674" class="LineNr"> 674 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L676" class="LineNr"> 676 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L676" class="LineNr"> 676 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . call</span> -<span id="L678" class="LineNr"> 678 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L678" class="LineNr"> 678 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L680" class="LineNr"> 680 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L681" class="LineNr"> 681 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L682" class="LineNr"> 682 </span> <span class="subxS2Comment"># . . push args</span> <span id="L683" class="LineNr"> 683 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L684" class="LineNr"> 684 </span> <span class="subxS2Comment"># . . call</span> -<span id="L685" class="LineNr"> 685 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L685" class="LineNr"> 685 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L686" class="LineNr"> 686 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L687" class="LineNr"> 687 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L688" class="LineNr"> 688 </span> <span class="subxComment"># initialize '_test-stream' to input with leading whitespace</span> <span id="L689" class="LineNr"> 689 </span> <span class="subxS1Comment"># . write(_test-stream, text)</span> <span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . push args</span> <span id="L691" class="LineNr"> 691 </span> 68/push <span class="Constant">" abc"</span>/imm32 -<span id="L692" class="LineNr"> 692 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L692" class="LineNr"> 692 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L693" class="LineNr"> 693 </span> <span class="subxS2Comment"># . . call</span> -<span id="L694" class="LineNr"> 694 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L694" class="LineNr"> 694 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L696" class="LineNr"> 696 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L697" class="LineNr"> 697 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> @@ -764,14 +764,14 @@ if ('onhashchange' in window) { <span id="L703" class="LineNr"> 703 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L704" class="LineNr"> 704 </span> 51/push-ecx/ed <span id="L705" class="LineNr"> 705 </span> <span class="subxS2Comment"># . . call</span> -<span id="L706" class="LineNr"> 706 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L706" class="LineNr"> 706 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L708" class="LineNr"> 708 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L709" class="LineNr"> 709 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L710" class="LineNr"> 710 </span> <span class="subxS2Comment"># . . push args</span> <span id="L711" class="LineNr"> 711 </span> 51/push-ecx/ed -<span id="L712" class="LineNr"> 712 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L713" class="LineNr"> 713 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L712" class="LineNr"> 712 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L713" class="LineNr"> 713 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . call</span> <span id="L715" class="LineNr"> 715 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L716" class="LineNr"> 716 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -788,7 +788,7 @@ if ('onhashchange' in window) { <span id="L727" class="LineNr"> 727 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L728" class="LineNr"> 728 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L729" class="LineNr"> 729 </span> <span class="subxS2Comment"># . . call</span> -<span id="L730" class="LineNr"> 730 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L730" class="LineNr"> 730 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L731" class="LineNr"> 731 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L732" class="LineNr"> 732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L733" class="LineNr"> 733 </span> <span class="subxComment"># return if abort</span> @@ -800,7 +800,7 @@ if ('onhashchange' in window) { <span id="L739" class="LineNr"> 739 </span> 68/push 0x61/imm32/a <span id="L740" class="LineNr"> 740 </span> 50/push-eax <span id="L741" class="LineNr"> 741 </span> <span class="subxS2Comment"># . . call</span> -<span id="L742" class="LineNr"> 742 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L742" class="LineNr"> 742 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L743" class="LineNr"> 743 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L744" class="LineNr"> 744 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L745" class="LineNr"> 745 </span><span class="Constant">$test-scan-next-byte-skips-whitespace:end</span>: @@ -818,47 +818,47 @@ if ('onhashchange' in window) { <span id="L757" class="LineNr"> 757 </span> <span class="subxComment"># clear all streams</span> <span id="L758" class="LineNr"> 758 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L759" class="LineNr"> 759 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L760" class="LineNr"> 760 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L760" class="LineNr"> 760 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L761" class="LineNr"> 761 </span> <span class="subxS2Comment"># . . call</span> -<span id="L762" class="LineNr"> 762 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L762" class="LineNr"> 762 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L763" class="LineNr"> 763 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L764" class="LineNr"> 764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L765" class="LineNr"> 765 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L766" class="LineNr"> 766 </span> <span class="subxS2Comment"># . . push args</span> <span id="L767" class="LineNr"> 767 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L768" class="LineNr"> 768 </span> <span class="subxS2Comment"># . . call</span> -<span id="L769" class="LineNr"> 769 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L769" class="LineNr"> 769 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L770" class="LineNr"> 770 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L771" class="LineNr"> 771 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L772" class="LineNr"> 772 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L773" class="LineNr"> 773 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L774" class="LineNr"> 774 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L774" class="LineNr"> 774 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L775" class="LineNr"> 775 </span> <span class="subxS2Comment"># . . call</span> -<span id="L776" class="LineNr"> 776 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L776" class="LineNr"> 776 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L777" class="LineNr"> 777 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L778" class="LineNr"> 778 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L779" class="LineNr"> 779 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L780" class="LineNr"> 780 </span> <span class="subxS2Comment"># . . push args</span> <span id="L781" class="LineNr"> 781 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L782" class="LineNr"> 782 </span> <span class="subxS2Comment"># . . call</span> -<span id="L783" class="LineNr"> 783 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L783" class="LineNr"> 783 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L784" class="LineNr"> 784 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L785" class="LineNr"> 785 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L786" class="LineNr"> 786 </span> <span class="subxComment"># initialize '_test-stream' to input with leading comment</span> <span id="L787" class="LineNr"> 787 </span> <span class="subxS1Comment"># . write(_test-stream, comment)</span> <span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . push args</span> <span id="L789" class="LineNr"> 789 </span> 68/push <span class="Constant">"#x\n"</span>/imm32 -<span id="L790" class="LineNr"> 790 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L790" class="LineNr"> 790 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L791" class="LineNr"> 791 </span> <span class="subxS2Comment"># . . call</span> -<span id="L792" class="LineNr"> 792 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L792" class="LineNr"> 792 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L793" class="LineNr"> 793 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L794" class="LineNr"> 794 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L795" class="LineNr"> 795 </span> <span class="subxS1Comment"># . write(_test-stream, real text)</span> <span id="L796" class="LineNr"> 796 </span> <span class="subxS2Comment"># . . push args</span> <span id="L797" class="LineNr"> 797 </span> 68/push <span class="Constant">"ab"</span>/imm32 -<span id="L798" class="LineNr"> 798 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L798" class="LineNr"> 798 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L799" class="LineNr"> 799 </span> <span class="subxS2Comment"># . . call</span> -<span id="L800" class="LineNr"> 800 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L800" class="LineNr"> 800 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L801" class="LineNr"> 801 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L802" class="LineNr"> 802 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L803" class="LineNr"> 803 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> @@ -870,14 +870,14 @@ if ('onhashchange' in window) { <span id="L809" class="LineNr"> 809 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L810" class="LineNr"> 810 </span> 51/push-ecx/ed <span id="L811" class="LineNr"> 811 </span> <span class="subxS2Comment"># . . call</span> -<span id="L812" class="LineNr"> 812 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L812" class="LineNr"> 812 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L813" class="LineNr"> 813 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L814" class="LineNr"> 814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L815" class="LineNr"> 815 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L816" class="LineNr"> 816 </span> <span class="subxS2Comment"># . . push args</span> <span id="L817" class="LineNr"> 817 </span> 51/push-ecx/ed -<span id="L818" class="LineNr"> 818 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L819" class="LineNr"> 819 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L818" class="LineNr"> 818 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L819" class="LineNr"> 819 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L820" class="LineNr"> 820 </span> <span class="subxS2Comment"># . . call</span> <span id="L821" class="LineNr"> 821 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L822" class="LineNr"> 822 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -894,7 +894,7 @@ if ('onhashchange' in window) { <span id="L833" class="LineNr"> 833 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L834" class="LineNr"> 834 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L835" class="LineNr"> 835 </span> <span class="subxS2Comment"># . . call</span> -<span id="L836" class="LineNr"> 836 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L836" class="LineNr"> 836 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L837" class="LineNr"> 837 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L838" class="LineNr"> 838 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L839" class="LineNr"> 839 </span> <span class="subxComment"># return if abort</span> @@ -906,7 +906,7 @@ if ('onhashchange' in window) { <span id="L845" class="LineNr"> 845 </span> 68/push 0x61/imm32/a <span id="L846" class="LineNr"> 846 </span> 50/push-eax <span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . call</span> -<span id="L848" class="LineNr"> 848 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L848" class="LineNr"> 848 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L850" class="LineNr"> 850 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L851" class="LineNr"> 851 </span><span class="Constant">$test-scan-next-byte-skips-comment:end</span>: @@ -924,47 +924,47 @@ if ('onhashchange' in window) { <span id="L863" class="LineNr"> 863 </span> <span class="subxComment"># clear all streams</span> <span id="L864" class="LineNr"> 864 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L866" class="LineNr"> 866 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L866" class="LineNr"> 866 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . call</span> -<span id="L868" class="LineNr"> 868 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L868" class="LineNr"> 868 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L869" class="LineNr"> 869 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L870" class="LineNr"> 870 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L871" class="LineNr"> 871 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L872" class="LineNr"> 872 </span> <span class="subxS2Comment"># . . push args</span> <span id="L873" class="LineNr"> 873 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L874" class="LineNr"> 874 </span> <span class="subxS2Comment"># . . call</span> -<span id="L875" class="LineNr"> 875 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L875" class="LineNr"> 875 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L876" class="LineNr"> 876 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L877" class="LineNr"> 877 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L878" class="LineNr"> 878 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L880" class="LineNr"> 880 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L880" class="LineNr"> 880 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . call</span> -<span id="L882" class="LineNr"> 882 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L882" class="LineNr"> 882 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L883" class="LineNr"> 883 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L884" class="LineNr"> 884 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L885" class="LineNr"> 885 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . push args</span> <span id="L887" class="LineNr"> 887 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . call</span> -<span id="L889" class="LineNr"> 889 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L889" class="LineNr"> 889 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L890" class="LineNr"> 890 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L891" class="LineNr"> 891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L892" class="LineNr"> 892 </span> <span class="subxComment"># initialize '_test-stream' to input with leading comment and more whitespace after newline</span> <span id="L893" class="LineNr"> 893 </span> <span class="subxS1Comment"># . write(_test-stream, comment)</span> <span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . push args</span> <span id="L895" class="LineNr"> 895 </span> 68/push <span class="Constant">"#x\n"</span>/imm32 -<span id="L896" class="LineNr"> 896 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L896" class="LineNr"> 896 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L897" class="LineNr"> 897 </span> <span class="subxS2Comment"># . . call</span> -<span id="L898" class="LineNr"> 898 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L898" class="LineNr"> 898 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L899" class="LineNr"> 899 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L900" class="LineNr"> 900 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L901" class="LineNr"> 901 </span> <span class="subxS1Comment"># . write(_test-stream, real text)</span> <span id="L902" class="LineNr"> 902 </span> <span class="subxS2Comment"># . . push args</span> <span id="L903" class="LineNr"> 903 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L904" class="LineNr"> 904 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L904" class="LineNr"> 904 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L905" class="LineNr"> 905 </span> <span class="subxS2Comment"># . . call</span> -<span id="L906" class="LineNr"> 906 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L906" class="LineNr"> 906 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L907" class="LineNr"> 907 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L908" class="LineNr"> 908 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L909" class="LineNr"> 909 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> @@ -976,14 +976,14 @@ if ('onhashchange' in window) { <span id="L915" class="LineNr"> 915 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L916" class="LineNr"> 916 </span> 51/push-ecx/ed <span id="L917" class="LineNr"> 917 </span> <span class="subxS2Comment"># . . call</span> -<span id="L918" class="LineNr"> 918 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L918" class="LineNr"> 918 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L919" class="LineNr"> 919 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L922" class="LineNr"> 922 </span> <span class="subxS2Comment"># . . push args</span> <span id="L923" class="LineNr"> 923 </span> 51/push-ecx/ed -<span id="L924" class="LineNr"> 924 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L925" class="LineNr"> 925 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L924" class="LineNr"> 924 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L925" class="LineNr"> 925 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L926" class="LineNr"> 926 </span> <span class="subxS2Comment"># . . call</span> <span id="L927" class="LineNr"> 927 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -1000,7 +1000,7 @@ if ('onhashchange' in window) { <span id="L939" class="LineNr"> 939 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L940" class="LineNr"> 940 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L941" class="LineNr"> 941 </span> <span class="subxS2Comment"># . . call</span> -<span id="L942" class="LineNr"> 942 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L942" class="LineNr"> 942 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L943" class="LineNr"> 943 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L944" class="LineNr"> 944 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L945" class="LineNr"> 945 </span> <span class="subxComment"># return if abort</span> @@ -1012,7 +1012,7 @@ if ('onhashchange' in window) { <span id="L951" class="LineNr"> 951 </span> 68/push 0x61/imm32/a <span id="L952" class="LineNr"> 952 </span> 50/push-eax <span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . call</span> -<span id="L954" class="LineNr"> 954 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L954" class="LineNr"> 954 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L955" class="LineNr"> 955 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L956" class="LineNr"> 956 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L957" class="LineNr"> 957 </span><span class="Constant">$test-scan-next-byte-skips-comment-and-whitespace:end</span>: @@ -1030,49 +1030,49 @@ if ('onhashchange' in window) { <span id="L969" class="LineNr"> 969 </span> <span class="subxComment"># clear all streams</span> <span id="L970" class="LineNr"> 970 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L971" class="LineNr"> 971 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L972" class="LineNr"> 972 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L972" class="LineNr"> 972 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L973" class="LineNr"> 973 </span> <span class="subxS2Comment"># . . call</span> -<span id="L974" class="LineNr"> 974 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L974" class="LineNr"> 974 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L975" class="LineNr"> 975 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L976" class="LineNr"> 976 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L977" class="LineNr"> 977 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L978" class="LineNr"> 978 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L979" class="LineNr"> 979 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L979" class="LineNr"> 979 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L980" class="LineNr"> 980 </span> 05/add-to-eax 4/imm32 <span id="L981" class="LineNr"> 981 </span> 50/push-eax <span id="L982" class="LineNr"> 982 </span> <span class="subxS2Comment"># . . call</span> -<span id="L983" class="LineNr"> 983 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L983" class="LineNr"> 983 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L984" class="LineNr"> 984 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L985" class="LineNr"> 985 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L986" class="LineNr"> 986 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L987" class="LineNr"> 987 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L988" class="LineNr"> 988 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L988" class="LineNr"> 988 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L989" class="LineNr"> 989 </span> <span class="subxS2Comment"># . . call</span> -<span id="L990" class="LineNr"> 990 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L990" class="LineNr"> 990 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L992" class="LineNr"> 992 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L993" class="LineNr"> 993 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L994" class="LineNr"> 994 </span> <span class="subxS2Comment"># . . push args</span> <span id="L995" class="LineNr"> 995 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L996" class="LineNr"> 996 </span> <span class="subxS2Comment"># . . call</span> -<span id="L997" class="LineNr"> 997 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L997" class="LineNr"> 997 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L999" class="LineNr"> 999 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># initialize '_test-stream' to input with leading whitespace and comment</span> <span id="L1001" class="LineNr">1001 </span> <span class="subxS1Comment"># . write(_test-stream, comment)</span> <span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1003" class="LineNr">1003 </span> 68/push <span class="Constant">" #x\n"</span>/imm32 -<span id="L1004" class="LineNr">1004 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1004" class="LineNr">1004 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1005" class="LineNr">1005 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1006" class="LineNr">1006 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1006" class="LineNr">1006 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1008" class="LineNr">1008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1009" class="LineNr">1009 </span> <span class="subxS1Comment"># . write(_test-stream, real text)</span> <span id="L1010" class="LineNr">1010 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1011" class="LineNr">1011 </span> 68/push <span class="Constant">"ab"</span>/imm32 -<span id="L1012" class="LineNr">1012 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1012" class="LineNr">1012 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1014" class="LineNr">1014 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1014" class="LineNr">1014 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1015" class="LineNr">1015 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1016" class="LineNr">1016 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1017" class="LineNr">1017 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> @@ -1084,14 +1084,14 @@ if ('onhashchange' in window) { <span id="L1023" class="LineNr">1023 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L1024" class="LineNr">1024 </span> 51/push-ecx/ed <span id="L1025" class="LineNr">1025 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1026" class="LineNr">1026 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L1026" class="LineNr">1026 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L1027" class="LineNr">1027 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1028" class="LineNr">1028 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1029" class="LineNr">1029 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1030" class="LineNr">1030 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1031" class="LineNr">1031 </span> 51/push-ecx/ed -<span id="L1032" class="LineNr">1032 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L1033" class="LineNr">1033 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1032" class="LineNr">1032 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L1033" class="LineNr">1033 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1034" class="LineNr">1034 </span> <span class="subxS2Comment"># . . call</span> <span id="L1035" class="LineNr">1035 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L1036" class="LineNr">1036 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -1108,7 +1108,7 @@ if ('onhashchange' in window) { <span id="L1047" class="LineNr">1047 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L1048" class="LineNr">1048 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1049" class="LineNr">1049 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1050" class="LineNr">1050 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1050" class="LineNr">1050 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1051" class="LineNr">1051 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1052" class="LineNr">1052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># return if abort</span> @@ -1120,7 +1120,7 @@ if ('onhashchange' in window) { <span id="L1059" class="LineNr">1059 </span> 68/push 0x61/imm32/a <span id="L1060" class="LineNr">1060 </span> 50/push-eax <span id="L1061" class="LineNr">1061 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1062" class="LineNr">1062 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1062" class="LineNr">1062 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1063" class="LineNr">1063 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1064" class="LineNr">1064 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1065" class="LineNr">1065 </span><span class="Constant">$test-scan-next-byte-skips-whitespace-and-comment:end</span>: @@ -1138,39 +1138,39 @@ if ('onhashchange' in window) { <span id="L1077" class="LineNr">1077 </span> <span class="subxComment"># clear all streams</span> <span id="L1078" class="LineNr">1078 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L1079" class="LineNr">1079 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1080" class="LineNr">1080 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1080" class="LineNr">1080 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1081" class="LineNr">1081 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1082" class="LineNr">1082 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1082" class="LineNr">1082 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1083" class="LineNr">1083 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1084" class="LineNr">1084 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1085" class="LineNr">1085 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L1086" class="LineNr">1086 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1087" class="LineNr">1087 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1089" class="LineNr">1089 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1089" class="LineNr">1089 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1091" class="LineNr">1091 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1092" class="LineNr">1092 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1094" class="LineNr">1094 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L1094" class="LineNr">1094 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1096" class="LineNr">1096 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1096" class="LineNr">1096 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1098" class="LineNr">1098 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1099" class="LineNr">1099 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L1100" class="LineNr">1100 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1101" class="LineNr">1101 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L1102" class="LineNr">1102 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1103" class="LineNr">1103 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1103" class="LineNr">1103 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1104" class="LineNr">1104 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1105" class="LineNr">1105 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1106" class="LineNr">1106 </span> <span class="subxComment"># initialize '_test-stream' to input with single character</span> <span id="L1107" class="LineNr">1107 </span> <span class="subxS1Comment"># . write(_test-stream, character)</span> <span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1109" class="LineNr">1109 </span> 68/push <span class="Constant">"a"</span>/imm32 -<span id="L1110" class="LineNr">1110 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1110" class="LineNr">1110 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1111" class="LineNr">1111 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1112" class="LineNr">1112 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1112" class="LineNr">1112 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1113" class="LineNr">1113 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1114" class="LineNr">1114 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1115" class="LineNr">1115 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> @@ -1182,14 +1182,14 @@ if ('onhashchange' in window) { <span id="L1121" class="LineNr">1121 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L1122" class="LineNr">1122 </span> 51/push-ecx/ed <span id="L1123" class="LineNr">1123 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1124" class="LineNr">1124 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L1124" class="LineNr">1124 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L1125" class="LineNr">1125 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1126" class="LineNr">1126 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1127" class="LineNr">1127 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1128" class="LineNr">1128 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1129" class="LineNr">1129 </span> 51/push-ecx/ed -<span id="L1130" class="LineNr">1130 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L1131" class="LineNr">1131 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1130" class="LineNr">1130 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L1131" class="LineNr">1131 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1132" class="LineNr">1132 </span> <span class="subxS2Comment"># . . call</span> <span id="L1133" class="LineNr">1133 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L1134" class="LineNr">1134 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -1206,7 +1206,7 @@ if ('onhashchange' in window) { <span id="L1145" class="LineNr">1145 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L1146" class="LineNr">1146 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1147" class="LineNr">1147 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1148" class="LineNr">1148 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1148" class="LineNr">1148 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1149" class="LineNr">1149 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1150" class="LineNr">1150 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1151" class="LineNr">1151 </span> <span class="subxComment"># return if abort</span> @@ -1218,7 +1218,7 @@ if ('onhashchange' in window) { <span id="L1157" class="LineNr">1157 </span> 68/push 0x61/imm32/a <span id="L1158" class="LineNr">1158 </span> 50/push-eax <span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1160" class="LineNr">1160 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1160" class="LineNr">1160 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1161" class="LineNr">1161 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1162" class="LineNr">1162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1163" class="LineNr">1163 </span><span class="Constant">$test-scan-next-byte-reads-final-byte:end</span>: @@ -1236,30 +1236,30 @@ if ('onhashchange' in window) { <span id="L1175" class="LineNr">1175 </span> <span class="subxComment"># clear all streams</span> <span id="L1176" class="LineNr">1176 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L1177" class="LineNr">1177 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1178" class="LineNr">1178 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1178" class="LineNr">1178 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1180" class="LineNr">1180 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1180" class="LineNr">1180 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1182" class="LineNr">1182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1183" class="LineNr">1183 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L1184" class="LineNr">1184 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1185" class="LineNr">1185 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1187" class="LineNr">1187 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1187" class="LineNr">1187 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1189" class="LineNr">1189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1190" class="LineNr">1190 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1191" class="LineNr">1191 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1192" class="LineNr">1192 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L1192" class="LineNr">1192 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1194" class="LineNr">1194 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1194" class="LineNr">1194 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1196" class="LineNr">1196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1197" class="LineNr">1197 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L1198" class="LineNr">1198 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1199" class="LineNr">1199 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1201" class="LineNr">1201 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1201" class="LineNr">1201 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1202" class="LineNr">1202 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1203" class="LineNr">1203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1204" class="LineNr">1204 </span> <span class="subxComment"># leave '_test-stream' empty</span> @@ -1272,14 +1272,14 @@ if ('onhashchange' in window) { <span id="L1211" class="LineNr">1211 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L1212" class="LineNr">1212 </span> 51/push-ecx/ed <span id="L1213" class="LineNr">1213 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1214" class="LineNr">1214 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L1214" class="LineNr">1214 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L1215" class="LineNr">1215 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1216" class="LineNr">1216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1217" class="LineNr">1217 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1219" class="LineNr">1219 </span> 51/push-ecx/ed -<span id="L1220" class="LineNr">1220 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L1221" class="LineNr">1221 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1220" class="LineNr">1220 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L1221" class="LineNr">1221 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . call</span> <span id="L1223" class="LineNr">1223 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L1224" class="LineNr">1224 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -1296,7 +1296,7 @@ if ('onhashchange' in window) { <span id="L1235" class="LineNr">1235 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L1236" class="LineNr">1236 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1237" class="LineNr">1237 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1238" class="LineNr">1238 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1238" class="LineNr">1238 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1240" class="LineNr">1240 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1241" class="LineNr">1241 </span> <span class="subxComment"># return if abort</span> @@ -1308,7 +1308,7 @@ if ('onhashchange' in window) { <span id="L1247" class="LineNr">1247 </span> 68/push 0xffffffff/imm32/Eof <span id="L1248" class="LineNr">1248 </span> 50/push-eax <span id="L1249" class="LineNr">1249 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1250" class="LineNr">1250 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1250" class="LineNr">1250 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1252" class="LineNr">1252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1253" class="LineNr">1253 </span><span class="Constant">$test-scan-next-byte-handles-Eof:end</span>: @@ -1326,39 +1326,39 @@ if ('onhashchange' in window) { <span id="L1265" class="LineNr">1265 </span> <span class="subxComment"># clear all streams</span> <span id="L1266" class="LineNr">1266 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L1267" class="LineNr">1267 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1268" class="LineNr">1268 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1268" class="LineNr">1268 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1269" class="LineNr">1269 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1270" class="LineNr">1270 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1270" class="LineNr">1270 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1271" class="LineNr">1271 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1272" class="LineNr">1272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1273" class="LineNr">1273 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L1274" class="LineNr">1274 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1275" class="LineNr">1275 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L1276" class="LineNr">1276 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1277" class="LineNr">1277 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1277" class="LineNr">1277 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1278" class="LineNr">1278 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1279" class="LineNr">1279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1280" class="LineNr">1280 </span> <span class="subxS1Comment"># . clear-stream(_test-error-stream)</span> <span id="L1281" class="LineNr">1281 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1282" class="LineNr">1282 </span> 68/push <a href='../115write-byte.subx.html#L436'>_test-error-stream</a>/imm32 +<span id="L1282" class="LineNr">1282 </span> 68/push <a href='115write-byte.subx.html#L438'>_test-error-stream</a>/imm32 <span id="L1283" class="LineNr">1283 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1284" class="LineNr">1284 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1284" class="LineNr">1284 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1285" class="LineNr">1285 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1286" class="LineNr">1286 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1287" class="LineNr">1287 </span> <span class="subxS1Comment"># . clear-stream($_test-error-buffered-file->buffer)</span> <span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1289" class="LineNr">1289 </span> 68/push $_test-error-buffered-file->buffer/imm32 <span id="L1290" class="LineNr">1290 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1291" class="LineNr">1291 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1291" class="LineNr">1291 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1292" class="LineNr">1292 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1293" class="LineNr">1293 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1294" class="LineNr">1294 </span> <span class="subxComment"># initialize '_test-stream' to "x"</span> <span id="L1295" class="LineNr">1295 </span> <span class="subxS1Comment"># . write(_test-stream, "x")</span> <span id="L1296" class="LineNr">1296 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1297" class="LineNr">1297 </span> 68/push <span class="Constant">"x"</span>/imm32 -<span id="L1298" class="LineNr">1298 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1298" class="LineNr">1298 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1299" class="LineNr">1299 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1300" class="LineNr">1300 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1300" class="LineNr">1300 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1301" class="LineNr">1301 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1302" class="LineNr">1302 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1303" class="LineNr">1303 </span> <span class="subxComment"># initialize exit-descriptor 'ed' for the call to 'scan-next-byte' below</span> @@ -1370,14 +1370,14 @@ if ('onhashchange' in window) { <span id="L1309" class="LineNr">1309 </span> 68/push 0xc/imm32/nbytes-of-args-for-scan-next-byte <span id="L1310" class="LineNr">1310 </span> 51/push-ecx/ed <span id="L1311" class="LineNr">1311 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1312" class="LineNr">1312 </span> e8/call <a href='../110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 +<span id="L1312" class="LineNr">1312 </span> e8/call <a href='110stop.subx.html#L44'>tailor-exit-descriptor</a>/disp32 <span id="L1313" class="LineNr">1313 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1314" class="LineNr">1314 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1315" class="LineNr">1315 </span> <span class="subxComment"># eax = scan-next-byte(_test-buffered-file, _test-error-buffered-file, ed)</span> <span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1317" class="LineNr">1317 </span> 51/push-ecx/ed -<span id="L1318" class="LineNr">1318 </span> 68/push <a href='../115write-byte.subx.html#L462'>_test-error-buffered-file</a>/imm32 -<span id="L1319" class="LineNr">1319 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1318" class="LineNr">1318 </span> 68/push <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>/imm32 +<span id="L1319" class="LineNr">1319 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . call</span> <span id="L1321" class="LineNr">1321 </span> e8/call <a href='hex.subx.html#L477'>scan-next-byte</a>/disp32 <span id="L1322" class="LineNr">1322 </span> <span class="subxComment"># registers except esp may be clobbered at this point</span> @@ -1394,7 +1394,7 @@ if ('onhashchange' in window) { <span id="L1333" class="LineNr">1333 </span> <span class="subxS2Comment"># . . push ed->value</span> <span id="L1334" class="LineNr">1334 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> <span id="L1335" class="LineNr">1335 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1336" class="LineNr">1336 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1336" class="LineNr">1336 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1337" class="LineNr">1337 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1338" class="LineNr">1338 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1339" class="LineNr">1339 </span><span class="Constant">$test-scan-next-byte-aborts-on-invalid-byte:end</span>: @@ -1422,7 +1422,7 @@ if ('onhashchange' in window) { <span id="L1361" class="LineNr">1361 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1362" class="LineNr">1362 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L1363" class="LineNr">1363 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1364" class="LineNr">1364 </span> e8/call <a href='../112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 +<span id="L1364" class="LineNr">1364 </span> e8/call <a href='112read-byte.subx.html#L38'>read-byte-buffered</a>/disp32 <span id="L1365" class="LineNr">1365 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1366" class="LineNr">1366 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1367" class="LineNr">1367 </span> <span class="subxS1Comment"># . if (eax == Eof) break</span> @@ -1444,38 +1444,38 @@ if ('onhashchange' in window) { <span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># setup</span> <span id="L1384" class="LineNr">1384 </span> <span class="subxS1Comment"># . clear-stream(_test-stream)</span> <span id="L1385" class="LineNr">1385 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1386" class="LineNr">1386 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1386" class="LineNr">1386 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1387" class="LineNr">1387 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1388" class="LineNr">1388 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1388" class="LineNr">1388 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1389" class="LineNr">1389 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1390" class="LineNr">1390 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1391" class="LineNr">1391 </span> <span class="subxS1Comment"># . clear-stream($_test-buffered-file->buffer)</span> <span id="L1392" class="LineNr">1392 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1393" class="LineNr">1393 </span> 68/push $_test-buffered-file->buffer/imm32 <span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1395" class="LineNr">1395 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1395" class="LineNr">1395 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1396" class="LineNr">1396 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1397" class="LineNr">1397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># initialize '_test-stream' to "abc\nde"</span> <span id="L1399" class="LineNr">1399 </span> <span class="subxS1Comment"># . write(_test-stream, "abc")</span> <span id="L1400" class="LineNr">1400 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1401" class="LineNr">1401 </span> 68/push <span class="Constant">"abc\n"</span>/imm32 -<span id="L1402" class="LineNr">1402 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1402" class="LineNr">1402 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1403" class="LineNr">1403 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1404" class="LineNr">1404 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1404" class="LineNr">1404 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1405" class="LineNr">1405 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1406" class="LineNr">1406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1407" class="LineNr">1407 </span> <span class="subxS1Comment"># . write(_test-stream, "de")</span> <span id="L1408" class="LineNr">1408 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1409" class="LineNr">1409 </span> 68/push <span class="Constant">"de"</span>/imm32 -<span id="L1410" class="LineNr">1410 </span> 68/push <a href='../108write.subx.html#L151'>_test-stream</a>/imm32 +<span id="L1410" class="LineNr">1410 </span> 68/push <a href='108write.subx.html#L151'>_test-stream</a>/imm32 <span id="L1411" class="LineNr">1411 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1412" class="LineNr">1412 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1412" class="LineNr">1412 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1413" class="LineNr">1413 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1414" class="LineNr">1414 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L1415" class="LineNr">1415 </span> <span class="subxComment"># skip-until-newline(_test-buffered-file)</span> <span id="L1416" class="LineNr">1416 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1417" class="LineNr">1417 </span> 68/push <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1417" class="LineNr">1417 </span> 68/push <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1418" class="LineNr">1418 </span> <span class="subxS2Comment"># . . call</span> <span id="L1419" class="LineNr">1419 </span> e8/call <a href='hex.subx.html#L1346'>skip-until-newline</a>/disp32 <span id="L1420" class="LineNr">1420 </span> <span class="subxS2Comment"># . . discard args</span> @@ -1484,10 +1484,10 @@ if ('onhashchange' in window) { <span id="L1423" class="LineNr">1423 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1424" class="LineNr">1424 </span> 68/push <span class="Constant">"F - test-skip-until-newline"</span>/imm32 <span id="L1425" class="LineNr">1425 </span> 68/push 4/imm32 -<span id="L1426" class="LineNr">1426 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 +<span id="L1426" class="LineNr">1426 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L318'>_test-buffered-file</a>/imm32 <span id="L1427" class="LineNr">1427 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+8)</span> <span id="L1428" class="LineNr">1428 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1429" class="LineNr">1429 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1429" class="LineNr">1429 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 <span id="L1430" class="LineNr">1430 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1431" class="LineNr">1431 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L1432" class="LineNr">1432 </span> <span class="subxS1Comment"># . end</span> diff --git a/html/mu-init-test.subx.html b/html/linux/mu-init-test.subx.html index 182869fb..2c86d221 100644 --- a/html/mu-init-test.subx.html +++ b/html/linux/mu-init-test.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - mu-init-test.subx</title> +<title>Mu - linux/mu-init-test.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,10 +14,10 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.LineNr { } .SpecialChar { color: #d70000; } +.subxComment { color: #005faf; } .subxS1Comment { color: #0000af; } +.LineNr { } .subxFunction { color: #af5f00; text-decoration: underline; } .Constant { color: #008787; } --> @@ -53,7 +53,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/mu-init-test.subx'>https://github.com/akkartik/mu/blob/main/mu-init-test.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/mu-init-test.subx'>https://github.com/akkartik/mu/blob/main/linux/mu-init-test.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Just a test stub for mu-init.subx</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> diff --git a/html/linux/mu-init.subx.html b/html/linux/mu-init.subx.html new file mode 100644 index 00000000..f40fc408 --- /dev/null +++ b/html/linux/mu-init.subx.html @@ -0,0 +1,122 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/mu-init.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.LineNr { } +.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/mu-init.subx'>https://github.com/akkartik/mu/blob/main/linux/mu-init.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Initialize the minimal runtime for Mu programs.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># See translate_mu for how this file is used.</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># Mu programs start at a function called 'main' with this signature:</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># fn main args: (addr array addr array byte) -> _/ebx: int</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># If your program doesn't need commandline arguments you can drop it:</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># fn main -> _/ebx: int</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> +<span id="L10" class="LineNr">10 </span><span class="subxComment"># Notice that the output must be in ebx, so that the exit() syscall can pick</span> +<span id="L11" class="LineNr">11 </span><span class="subxComment"># it up.</span> +<span id="L12" class="LineNr">12 </span> +<span id="L13" class="LineNr">13 </span>== code +<span id="L14" class="LineNr">14 </span> +<span id="L15" class="LineNr">15 </span><span class="SpecialChar">Entry</span>: +<span id="L16" class="LineNr">16 </span> <span class="subxComment"># we don't use ebp in Entry; just initialize it</span> +<span id="L17" class="LineNr">17 </span> bd/copy-to-ebp 0/imm32 +<span id="L18" class="LineNr">18 </span> <span class="subxH1Comment"># - save argc and argv</span> +<span id="L19" class="LineNr">19 </span> <span class="subxComment"># var argc-and-argv/esi</span> +<span id="L20" class="LineNr">20 </span> 89/<- %esi 4/r32/esp +<span id="L21" class="LineNr">21 </span><span class="Constant">$Entry:initialize-heap</span>: +<span id="L22" class="LineNr">22 </span> <span class="subxH1Comment"># - initialize the heap</span> +<span id="L23" class="LineNr">23 </span> (<a href='104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) +<span id="L24" class="LineNr">24 </span><span class="Constant">$Entry:initialize-args</span>: +<span id="L25" class="LineNr">25 </span> <span class="subxH1Comment"># - convert argv from null-terminated 'kernel' strings to length-prefixed Mu strings</span> +<span id="L26" class="LineNr">26 </span> <span class="subxComment"># var argc/edx: int</span> +<span id="L27" class="LineNr">27 </span> 8b/-> *esi 2/r32/edx +<span id="L28" class="LineNr">28 </span> <span class="subxComment"># argc is in words; convert it to bytes</span> +<span id="L29" class="LineNr">29 </span> c1/shift 4/subop/left %edx 2/imm8 +<span id="L30" class="LineNr">30 </span> <span class="subxComment"># var tmp/ebx: handle</span> +<span id="L31" class="LineNr">31 </span> 68/push 0/imm32 +<span id="L32" class="LineNr">32 </span> 68/push 0/imm32 +<span id="L33" class="LineNr">33 </span> 89/<- %ebx 4/r32/esp +<span id="L34" class="LineNr">34 </span> <span class="subxComment"># var args/edi: (addr array (addr array byte))</span> +<span id="L35" class="LineNr">35 </span> (<a href='120allocate.subx.html#L584'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edx %ebx) +<span id="L36" class="LineNr">36 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L37" class="LineNr">37 </span> 89/<- %edi 0/r32/eax +<span id="L38" class="LineNr">38 </span> <span class="subxComment"># var curr/ecx: (addr kernel-string) = argv</span> +<span id="L39" class="LineNr">39 </span> 8d/copy-address *(esi+4) 1/r32/ecx +<span id="L40" class="LineNr">40 </span> <span class="subxComment"># var max/edx: (addr kernel-string) = argv+4+argc</span> +<span id="L41" class="LineNr">41 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L42" class="LineNr">42 </span> <span class="subxComment"># var dest/esi: (addr (addr array byte)) = args+4</span> +<span id="L43" class="LineNr">43 </span> 8d/copy-address *(edi+4) 6/r32/esi +<span id="L44" class="LineNr">44 </span> { +<span id="L45" class="LineNr">45 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L46" class="LineNr">46 </span> 39/compare %ecx 2/r32/edx +<span id="L47" class="LineNr">47 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L48" class="LineNr">48 </span> <span class="subxComment"># *dest = kernel-string-to-string(*curr)</span> +<span id="L49" class="LineNr">49 </span> (<a href='303kernel-string.subx.html#L7'>kernel-string-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *ecx %ebx) +<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L51" class="LineNr">51 </span> 89/<- *esi 0/r32/eax +<span id="L52" class="LineNr">52 </span> <span class="subxComment"># curr += 4</span> +<span id="L53" class="LineNr">53 </span> 81 0/subop/add %ecx 4/imm32 +<span id="L54" class="LineNr">54 </span> <span class="subxComment"># dest += 4</span> +<span id="L55" class="LineNr">55 </span> 81 0/subop/add %esi 4/imm32 +<span id="L56" class="LineNr">56 </span> <span class="subxComment">#</span> +<span id="L57" class="LineNr">57 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L58" class="LineNr">58 </span> } +<span id="L59" class="LineNr">59 </span> <span class="subxH1Comment"># - run Mu program</span> +<span id="L60" class="LineNr">60 </span> (main %edi) <span class="subxComment"># => ebx</span> +<span id="L61" class="LineNr">61 </span> <span class="subxH1Comment"># - exit</span> +<span id="L62" class="LineNr">62 </span> (<a href='000init.subx.html#L18'>syscall_exit</a>) +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/mu.subx.html b/html/linux/mu.subx.html new file mode 100644 index 00000000..06f93a83 --- /dev/null +++ b/html/linux/mu.subx.html @@ -0,0 +1,36624 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/mu.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.LineNr { } +.Folded { color: #080808; background-color: #949494; } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.subxMinorFunction { color: #875f5f; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/mu.subx'>https://github.com/akkartik/mu/blob/main/linux/mu.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># The Mu computer's level-2 language, also called Mu.</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># <a href="http://akkartik.name/post/mu-2019-2">http://akkartik.name/post/mu-2019-2</a></span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run:</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./translate_subx init.linux [0-9]*.subx apps/mu.subx</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./a.elf < prog.mu > prog.elf</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># == Goals</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># 1. Be memory safe. It should be impossible to corrupt the heap, or to create</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># a bad pointer. (Requires strong type safety.)</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 2. Do as little as possible to achieve goal 1. The translator should be</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># implementable in machine code.</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># - minimize impedance mismatch between source language and SubX target</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># (e.g. programmer manages registers manually)</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># - checks over syntax</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># (e.g. programmer's register allocation is checked)</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># - runtime checks to avoid complex static analysis</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># (e.g. array indexing always checks bounds)</span> +<span id="L19" class="LineNr"> 19 </span> +<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># == Language description</span> +<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># A program is a sequence of function and type definitions.</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment">#</span> +<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># Function example:</span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># fn foo n: int -> _/eax: int {</span> +<span id="L25" class="LineNr"> 25 </span><span class="subxComment"># ...</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># }</span> +<span id="L27" class="LineNr"> 27 </span><span class="subxComment">#</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># Functions consist of a name, optional inputs, optional outputs and a block.</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment">#</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># Function inputs and outputs are variables. All variables have a type and</span> +<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># storage specifier. They can be placed either in memory (on the stack) or in</span> +<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># one of 6 named registers.</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># eax ecx edx ebx esi edi</span> +<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># Variables in registers must be primitive 32-bit types.</span> +<span id="L35" class="LineNr"> 35 </span><span class="subxComment"># Variables not explicitly placed in a register are on the stack.</span> +<span id="L36" class="LineNr"> 36 </span><span class="subxComment">#</span> +<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># Function inputs are always passed in memory (on the stack), while outputs</span> +<span id="L38" class="LineNr"> 38 </span><span class="subxComment"># are always returned in registers. Outputs can't be named; they use the</span> +<span id="L39" class="LineNr"> 39 </span><span class="subxComment"># dummy value '_'.</span> +<span id="L40" class="LineNr"> 40 </span><span class="subxComment">#</span> +<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># Blocks mostly consist of statements.</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxComment">#</span> +<span id="L43" class="LineNr"> 43 </span><span class="subxComment"># Statements mostly consist of a name, optional inputs and optional outputs.</span> +<span id="L44" class="LineNr"> 44 </span><span class="subxComment">#</span> +<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># Statement inputs are variables or literals. Variables need to specify type</span> +<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># (and storage) the first time they're mentioned but not later.</span> +<span id="L47" class="LineNr"> 47 </span><span class="subxComment">#</span> +<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># Statement outputs, like function outputs, must be variables in registers.</span> +<span id="L49" class="LineNr"> 49 </span><span class="subxComment">#</span> +<span id="L50" class="LineNr"> 50 </span><span class="subxComment"># Statement names must be either primitives or user-defined functions.</span> +<span id="L51" class="LineNr"> 51 </span><span class="subxComment">#</span> +<span id="L52" class="LineNr"> 52 </span><span class="subxComment"># Primitives can write to any register.</span> +<span id="L53" class="LineNr"> 53 </span><span class="subxComment"># User-defined functions only write to hard-coded registers. Outputs of each</span> +<span id="L54" class="LineNr"> 54 </span><span class="subxComment"># call must have the same registers as in the function definition.</span> +<span id="L55" class="LineNr"> 55 </span><span class="subxComment">#</span> +<span id="L56" class="LineNr"> 56 </span><span class="subxComment"># There are some other statement types:</span> +<span id="L57" class="LineNr"> 57 </span><span class="subxComment"># - blocks. Multiple statements surrounded by '{...}' and optionally</span> +<span id="L58" class="LineNr"> 58 </span><span class="subxComment"># prefixed with a label name and ':'</span> +<span id="L59" class="LineNr"> 59 </span><span class="subxComment"># - {</span> +<span id="L60" class="LineNr"> 60 </span><span class="subxComment"># ...</span> +<span id="L61" class="LineNr"> 61 </span><span class="subxComment"># }</span> +<span id="L62" class="LineNr"> 62 </span><span class="subxComment"># - foo: {</span> +<span id="L63" class="LineNr"> 63 </span><span class="subxComment"># ...</span> +<span id="L64" class="LineNr"> 64 </span><span class="subxComment"># }</span> +<span id="L65" class="LineNr"> 65 </span><span class="subxComment">#</span> +<span id="L66" class="LineNr"> 66 </span><span class="subxComment"># - variable definitions on the stack. E.g.:</span> +<span id="L67" class="LineNr"> 67 </span><span class="subxComment"># - var foo: int</span> +<span id="L68" class="LineNr"> 68 </span><span class="subxComment"># - var bar: (array int 3)</span> +<span id="L69" class="LineNr"> 69 </span><span class="subxComment"># There's no initializer; variables are automatically initialized.</span> +<span id="L70" class="LineNr"> 70 </span><span class="subxComment"># The type of a local variable is either word-length (4 bytes) or starts with 'ref'.</span> +<span id="L71" class="LineNr"> 71 </span><span class="subxComment">#</span> +<span id="L72" class="LineNr"> 72 </span><span class="subxComment"># - variables definitions in a register. E.g.:</span> +<span id="L73" class="LineNr"> 73 </span><span class="subxComment"># - var foo/eax: int <- add bar 1</span> +<span id="L74" class="LineNr"> 74 </span><span class="subxComment"># The initializer is mandatory and must be a valid instruction that writes</span> +<span id="L75" class="LineNr"> 75 </span><span class="subxComment"># a single output to the right register. In practice registers will</span> +<span id="L76" class="LineNr"> 76 </span><span class="subxComment"># usually be either initialized by primitives or copied from eax.</span> +<span id="L77" class="LineNr"> 77 </span><span class="subxComment"># - var eax: int <- foo bar quux</span> +<span id="L78" class="LineNr"> 78 </span><span class="subxComment"># var floo/ecx: int <- copy eax</span> +<span id="L79" class="LineNr"> 79 </span><span class="subxComment">#</span> +<span id="L80" class="LineNr"> 80 </span><span class="subxComment"># Still todo:</span> +<span id="L81" class="LineNr"> 81 </span><span class="subxComment"># global variables</span> +<span id="L82" class="LineNr"> 82 </span><span class="subxComment"># union types</span> +<span id="L83" class="LineNr"> 83 </span><span class="subxComment">#</span> +<span id="L84" class="LineNr"> 84 </span><span class="subxComment"># Formal types:</span> +<span id="L85" class="LineNr"> 85 </span><span class="subxComment"># A program is a linked list of functions</span> +<span id="L86" class="LineNr"> 86 </span><span class="subxComment"># A function contains:</span> +<span id="L87" class="LineNr"> 87 </span><span class="subxComment"># name: (handle array byte)</span> +<span id="L88" class="LineNr"> 88 </span><span class="subxComment"># inouts: linked list of vars <-- 'inouts' is more precise than 'inputs'</span> +<span id="L89" class="LineNr"> 89 </span><span class="subxComment"># data: (handle var)</span> +<span id="L90" class="LineNr"> 90 </span><span class="subxComment"># next: (handle list)</span> +<span id="L91" class="LineNr"> 91 </span><span class="subxComment"># outputs: linked list of vars</span> +<span id="L92" class="LineNr"> 92 </span><span class="subxComment"># data: (handle var)</span> +<span id="L93" class="LineNr"> 93 </span><span class="subxComment"># next: (handle list)</span> +<span id="L94" class="LineNr"> 94 </span><span class="subxComment"># body: (handle block)</span> +<span id="L95" class="LineNr"> 95 </span><span class="subxComment"># A var-type contains:</span> +<span id="L96" class="LineNr"> 96 </span><span class="subxComment"># name: (handle array byte)</span> +<span id="L97" class="LineNr"> 97 </span><span class="subxComment"># type: (handle type-tree)</span> +<span id="L98" class="LineNr"> 98 </span><span class="subxComment">#</span> +<span id="L99" class="LineNr"> 99 </span><span class="subxComment"># A statement can be:</span> +<span id="L100" class="LineNr"> 100 </span><span class="subxComment"># tag 0: a block</span> +<span id="L101" class="LineNr"> 101 </span><span class="subxComment"># tag 1: a simple statement (stmt1)</span> +<span id="L102" class="LineNr"> 102 </span><span class="subxComment"># tag 2: a variable defined on the stack</span> +<span id="L103" class="LineNr"> 103 </span><span class="subxComment"># tag 3: a variable defined in a register</span> +<span id="L104" class="LineNr"> 104 </span><span class="subxComment">#</span> +<span id="L105" class="LineNr"> 105 </span><span class="subxComment"># A block contains:</span> +<span id="L106" class="LineNr"> 106 </span><span class="subxComment"># tag: 0</span> +<span id="L107" class="LineNr"> 107 </span><span class="subxComment"># statements: (handle list stmt)</span> +<span id="L108" class="LineNr"> 108 </span><span class="subxComment"># name: (handle array byte) -- starting with '$'</span> +<span id="L109" class="LineNr"> 109 </span><span class="subxComment">#</span> +<span id="L110" class="LineNr"> 110 </span><span class="subxComment"># A regular statement contains:</span> +<span id="L111" class="LineNr"> 111 </span><span class="subxComment"># tag: 1</span> +<span id="L112" class="LineNr"> 112 </span><span class="subxComment"># operation: (handle array byte)</span> +<span id="L113" class="LineNr"> 113 </span><span class="subxComment"># inouts: (handle list operand)</span> +<span id="L114" class="LineNr"> 114 </span><span class="subxComment"># outputs: (handle list var)</span> +<span id="L115" class="LineNr"> 115 </span><span class="subxComment">#</span> +<span id="L116" class="LineNr"> 116 </span><span class="subxComment"># A variable defined on the stack contains:</span> +<span id="L117" class="LineNr"> 117 </span><span class="subxComment"># tag: 2</span> +<span id="L118" class="LineNr"> 118 </span><span class="subxComment"># name: (handle array byte)</span> +<span id="L119" class="LineNr"> 119 </span><span class="subxComment"># type: (handle type-tree)</span> +<span id="L120" class="LineNr"> 120 </span><span class="subxComment">#</span> +<span id="L121" class="LineNr"> 121 </span><span class="subxComment"># A variable defined in a register contains:</span> +<span id="L122" class="LineNr"> 122 </span><span class="subxComment"># tag: 3</span> +<span id="L123" class="LineNr"> 123 </span><span class="subxComment"># name: (handle array byte)</span> +<span id="L124" class="LineNr"> 124 </span><span class="subxComment"># type: (handle type-tree)</span> +<span id="L125" class="LineNr"> 125 </span><span class="subxComment"># reg: (handle array byte)</span> +<span id="L126" class="LineNr"> 126 </span> +<span id="L127" class="LineNr"> 127 </span><span class="subxComment"># == Translation: managing the stack</span> +<span id="L128" class="LineNr"> 128 </span><span class="subxComment"># Now that we know what the language looks like in the large, let's think</span> +<span id="L129" class="LineNr"> 129 </span><span class="subxComment"># about how translation happens from the bottom up. One crucial piece of the</span> +<span id="L130" class="LineNr"> 130 </span><span class="subxComment"># puzzle is how Mu will clean up variables defined on the stack for you.</span> +<span id="L131" class="LineNr"> 131 </span><span class="subxComment">#</span> +<span id="L132" class="LineNr"> 132 </span><span class="subxComment"># Assume that we maintain a 'functions' list while parsing source code. And a</span> +<span id="L133" class="LineNr"> 133 </span><span class="subxComment"># 'primitives' list is a global constant. Both these contain enough information</span> +<span id="L134" class="LineNr"> 134 </span><span class="subxComment"># to perform type-checking on function calls or primitive statements, respectively.</span> +<span id="L135" class="LineNr"> 135 </span><span class="subxComment">#</span> +<span id="L136" class="LineNr"> 136 </span><span class="subxComment"># Defining variables pushes them on a stack with the current block depth and</span> +<span id="L137" class="LineNr"> 137 </span><span class="subxComment"># enough information about their location (stack offset or register).</span> +<span id="L138" class="LineNr"> 138 </span><span class="subxComment"># Starting a block increments the current block id.</span> +<span id="L139" class="LineNr"> 139 </span><span class="subxComment"># Each statement now has enough information to emit code for it.</span> +<span id="L140" class="LineNr"> 140 </span><span class="subxComment"># Ending a block is where the magic happens:</span> +<span id="L141" class="LineNr"> 141 </span><span class="subxComment"># pop all variables at the current block depth</span> +<span id="L142" class="LineNr"> 142 </span><span class="subxComment"># emit code to restore all register variables introduced at the current depth</span> +<span id="L143" class="LineNr"> 143 </span><span class="subxComment"># emit code to clean up all stack variables at the current depth (just increment esp)</span> +<span id="L144" class="LineNr"> 144 </span><span class="subxComment"># decrement the current block depth</span> +<span id="L145" class="LineNr"> 145 </span><span class="subxComment">#</span> +<span id="L146" class="LineNr"> 146 </span><span class="subxComment"># Formal types:</span> +<span id="L147" class="LineNr"> 147 </span><span class="subxComment"># live-vars: stack of vars</span> +<span id="L148" class="LineNr"> 148 </span><span class="subxComment"># var:</span> +<span id="L149" class="LineNr"> 149 </span><span class="subxComment"># name: (handle array byte)</span> +<span id="L150" class="LineNr"> 150 </span><span class="subxComment"># type: (handle type-tree)</span> +<span id="L151" class="LineNr"> 151 </span><span class="subxComment"># block: int</span> +<span id="L152" class="LineNr"> 152 </span><span class="subxComment"># stack-offset: int (added to ebp)</span> +<span id="L153" class="LineNr"> 153 </span><span class="subxComment"># register: (handle array byte)</span> +<span id="L154" class="LineNr"> 154 </span><span class="subxComment"># either usual register names</span> +<span id="L155" class="LineNr"> 155 </span><span class="subxComment"># or '*' to indicate any register</span> +<span id="L156" class="LineNr"> 156 </span><span class="subxComment"># At most one of stack-offset or register-index must be non-zero.</span> +<span id="L157" class="LineNr"> 157 </span><span class="subxComment"># A register of '*' designates a variable _template_. Only legal in formal</span> +<span id="L158" class="LineNr"> 158 </span><span class="subxComment"># parameters for primitives.</span> +<span id="L159" class="LineNr"> 159 </span> +<span id="L160" class="LineNr"> 160 </span><span class="subxComment"># == Translating a single function call</span> +<span id="L161" class="LineNr"> 161 </span><span class="subxComment"># This one's easy. Assuming we've already checked things, we just drop the</span> +<span id="L162" class="LineNr"> 162 </span><span class="subxComment"># outputs (which use hard-coded registers) and emit inputs in a standard format.</span> +<span id="L163" class="LineNr"> 163 </span><span class="subxComment">#</span> +<span id="L164" class="LineNr"> 164 </span><span class="subxComment"># out1, out2, out3, ... <- name inout1, inout2, inout3, ...</span> +<span id="L165" class="LineNr"> 165 </span><span class="subxComment"># =></span> +<span id="L166" class="LineNr"> 166 </span><span class="subxComment"># (name inout1 inout2 inout3)</span> +<span id="L167" class="LineNr"> 167 </span><span class="subxComment">#</span> +<span id="L168" class="LineNr"> 168 </span><span class="subxComment"># Formal types:</span> +<span id="L169" class="LineNr"> 169 </span><span class="subxComment"># functions: linked list of info</span> +<span id="L170" class="LineNr"> 170 </span><span class="subxComment"># name: (handle array byte)</span> +<span id="L171" class="LineNr"> 171 </span><span class="subxComment"># inouts: linked list of vars</span> +<span id="L172" class="LineNr"> 172 </span><span class="subxComment"># outputs: linked list of vars</span> +<span id="L173" class="LineNr"> 173 </span><span class="subxComment"># body: block (linked list of statements)</span> +<span id="L174" class="LineNr"> 174 </span> +<span id="L175" class="LineNr"> 175 </span><span class="subxComment"># == Translating a single primitive instruction</span> +<span id="L176" class="LineNr"> 176 </span><span class="subxComment"># A second crucial piece of the puzzle is how Mu converts fairly regular</span> +<span id="L177" class="LineNr"> 177 </span><span class="subxComment"># primitives with their uniform syntax to SubX instructions with their gnarly</span> +<span id="L178" class="LineNr"> 178 </span><span class="subxComment"># x86 details.</span> +<span id="L179" class="LineNr"> 179 </span><span class="subxComment">#</span> +<span id="L180" class="LineNr"> 180 </span><span class="subxComment"># Mu instructions have inputs and outputs. Primitives can have up to 2 of</span> +<span id="L181" class="LineNr"> 181 </span><span class="subxComment"># them.</span> +<span id="L182" class="LineNr"> 182 </span><span class="subxComment"># SubX instructions have rm32 and r32 operands.</span> +<span id="L183" class="LineNr"> 183 </span><span class="subxComment"># The translation between them covers almost all the possibilities.</span> +<span id="L184" class="LineNr"> 184 </span><span class="subxComment"># Instructions with 1 inout may turn into ones with 1 rm32</span> +<span id="L185" class="LineNr"> 185 </span><span class="subxComment"># (e.g. incrementing a var on the stack)</span> +<span id="L186" class="LineNr"> 186 </span><span class="subxComment"># Instructions with 1 output may turn into ones with 1 rm32</span> +<span id="L187" class="LineNr"> 187 </span><span class="subxComment"># (e.g. incrementing a var in a register)</span> +<span id="L188" class="LineNr"> 188 </span><span class="subxComment"># 1 inout and 1 output may turn into 1 rm32 and 1 r32</span> +<span id="L189" class="LineNr"> 189 </span><span class="subxComment"># (e.g. adding a var to a reg)</span> +<span id="L190" class="LineNr"> 190 </span><span class="subxComment"># 2 inouts may turn into 1 rm32 and 1 r32</span> +<span id="L191" class="LineNr"> 191 </span><span class="subxComment"># (e.g. adding a reg to a var)</span> +<span id="L192" class="LineNr"> 192 </span><span class="subxComment"># 1 inout and 1 literal may turn into 1 rm32 and 1 imm32</span> +<span id="L193" class="LineNr"> 193 </span><span class="subxComment"># (e.g. adding a constant to a var)</span> +<span id="L194" class="LineNr"> 194 </span><span class="subxComment"># 1 output and 1 literal may turn into 1 rm32 and 1 imm32</span> +<span id="L195" class="LineNr"> 195 </span><span class="subxComment"># (e.g. adding a constant to a reg)</span> +<span id="L196" class="LineNr"> 196 </span><span class="subxComment"># 2 outputs to hardcoded registers and 1 inout may turn into 1 rm32</span> +<span id="L197" class="LineNr"> 197 </span><span class="subxComment"># (special-case: divide edx:eax by a var or reg)</span> +<span id="L198" class="LineNr"> 198 </span><span class="subxComment"># Observations:</span> +<span id="L199" class="LineNr"> 199 </span><span class="subxComment"># We always emit rm32. It may be the first inout or the first output.</span> +<span id="L200" class="LineNr"> 200 </span><span class="subxComment"># We may emit r32 or imm32 or neither.</span> +<span id="L201" class="LineNr"> 201 </span><span class="subxComment"># When we emit r32 it may come from first inout or second inout or first output.</span> +<span id="L202" class="LineNr"> 202 </span><span class="subxComment">#</span> +<span id="L203" class="LineNr"> 203 </span><span class="subxComment"># Accordingly, the formal data structure for a primitive looks like this:</span> +<span id="L204" class="LineNr"> 204 </span><span class="subxComment"># primitives: linked list of info</span> +<span id="L205" class="LineNr"> 205 </span><span class="subxComment"># name: (handle array byte)</span> +<span id="L206" class="LineNr"> 206 </span><span class="subxComment"># mu-inouts: linked list of vars to check</span> +<span id="L207" class="LineNr"> 207 </span><span class="subxComment"># mu-outputs: linked list of vars to check; at most a singleton</span> +<span id="L208" class="LineNr"> 208 </span><span class="subxComment"># subx-name: (handle array byte)</span> +<span id="L209" class="LineNr"> 209 </span><span class="subxComment"># subx-rm32: enum arg-location</span> +<span id="L210" class="LineNr"> 210 </span><span class="subxComment"># subx-r32: enum arg-location</span> +<span id="L211" class="LineNr"> 211 </span><span class="subxComment"># subx-imm32: enum arg-location</span> +<span id="L212" class="LineNr"> 212 </span><span class="subxComment"># subx-imm8: enum arg-location</span> +<span id="L213" class="LineNr"> 213 </span><span class="subxComment"># subx-disp32: enum arg-location</span> +<span id="L214" class="LineNr"> 214 </span><span class="subxComment"># subx-xm32: enum arg-location</span> +<span id="L215" class="LineNr"> 215 </span><span class="subxComment"># subx-x32: enum arg-location</span> +<span id="L216" class="LineNr"> 216 </span><span class="subxComment"># arg-location: enum</span> +<span id="L217" class="LineNr"> 217 </span><span class="subxComment"># 0 means none</span> +<span id="L218" class="LineNr"> 218 </span><span class="subxComment"># 1 means first inout</span> +<span id="L219" class="LineNr"> 219 </span><span class="subxComment"># 2 means second inout</span> +<span id="L220" class="LineNr"> 220 </span><span class="subxComment"># 3 means first output</span> +<span id="L221" class="LineNr"> 221 </span> +<span id="L222" class="LineNr"> 222 </span><span class="subxComment"># == Translating a block</span> +<span id="L223" class="LineNr"> 223 </span><span class="subxComment"># Emit block name if necessary</span> +<span id="L224" class="LineNr"> 224 </span><span class="subxComment"># Emit '{'</span> +<span id="L225" class="LineNr"> 225 </span><span class="subxComment"># When you encounter a statement, emit it as above</span> +<span id="L226" class="LineNr"> 226 </span><span class="subxComment"># When you encounter a variable declaration</span> +<span id="L227" class="LineNr"> 227 </span><span class="subxComment"># emit any code needed for it (bzeros)</span> +<span id="L228" class="LineNr"> 228 </span><span class="subxComment"># push it on the var stack</span> +<span id="L229" class="LineNr"> 229 </span><span class="subxComment"># update register dict if necessary</span> +<span id="L230" class="LineNr"> 230 </span><span class="subxComment"># When you encounter '}'</span> +<span id="L231" class="LineNr"> 231 </span><span class="subxComment"># While popping variables off the var stack until block id changes</span> +<span id="L232" class="LineNr"> 232 </span><span class="subxComment"># Emit code needed to clean up the stack</span> +<span id="L233" class="LineNr"> 233 </span><span class="subxComment"># either increment esp</span> +<span id="L234" class="LineNr"> 234 </span><span class="subxComment"># or pop into appropriate register</span> +<span id="L235" class="LineNr"> 235 </span> +<span id="L236" class="LineNr"> 236 </span><span class="subxComment"># The rest is straightforward.</span> +<span id="L237" class="LineNr"> 237 </span> +<span id="L238" class="LineNr"> 238 </span>== data +<span id="L239" class="LineNr"> 239 </span> +<span id="L240" class="LineNr"> 240 </span><span class="SpecialChar">Program</span>: +<span id="L241" class="LineNr"> 241 </span><span class="subxMinorFunction">_Program-functions</span>: <span class="subxComment"># (handle function)</span> +<span id="L242" class="LineNr"> 242 </span> 0/imm32 +<span id="L243" class="LineNr"> 243 </span><span class="subxMinorFunction">_Program-functions->payload</span>: +<span id="L244" class="LineNr"> 244 </span> 0/imm32 +<span id="L245" class="LineNr"> 245 </span><span class="subxMinorFunction">_Program-types</span>: <span class="subxComment"># (handle typeinfo)</span> +<span id="L246" class="LineNr"> 246 </span> 0/imm32 +<span id="L247" class="LineNr"> 247 </span><span class="subxMinorFunction">_Program-types->payload</span>: +<span id="L248" class="LineNr"> 248 </span> 0/imm32 +<span id="L249" class="LineNr"> 249 </span><span class="subxMinorFunction">_Program-signatures</span>: <span class="subxComment"># (handle function)</span> +<span id="L250" class="LineNr"> 250 </span> 0/imm32 +<span id="L251" class="LineNr"> 251 </span><span class="subxMinorFunction">_Program-signatures->payload</span>: +<span id="L252" class="LineNr"> 252 </span> 0/imm32 +<span id="L253" class="LineNr"> 253 </span> +<span id="L254" class="LineNr"> 254 </span><span class="subxComment"># Some constants for simulating the data structures described above.</span> +<span id="L255" class="LineNr"> 255 </span><span class="subxComment"># Many constants here come with a type in a comment.</span> +<span id="L256" class="LineNr"> 256 </span><span class="subxComment">#</span> +<span id="L257" class="LineNr"> 257 </span><span class="subxComment"># Sometimes the type is of the value at that offset for the given type. For</span> +<span id="L258" class="LineNr"> 258 </span><span class="subxComment"># example, if you start at a function record and move forward Function-inouts</span> +<span id="L259" class="LineNr"> 259 </span><span class="subxComment"># bytes, you'll find a (handle list var).</span> +<span id="L260" class="LineNr"> 260 </span><span class="subxComment">#</span> +<span id="L261" class="LineNr"> 261 </span><span class="subxComment"># At other times, the type is of the constant itself. For example, the type of</span> +<span id="L262" class="LineNr"> 262 </span><span class="subxComment"># the constant Function-size is (addr int). To get the size of a function,</span> +<span id="L263" class="LineNr"> 263 </span><span class="subxComment"># look in *Function-size.</span> +<span id="L264" class="LineNr"> 264 </span> +<span id="L265" class="LineNr"> 265 </span><span class="SpecialChar">Function-name</span>: <span class="subxComment"># (handle array byte)</span> +<span id="L266" class="LineNr"> 266 </span> 0/imm32 +<span id="L267" class="LineNr"> 267 </span><span class="SpecialChar">Function-inouts</span>: <span class="subxComment"># (handle list var)</span> +<span id="L268" class="LineNr"> 268 </span> 8/imm32 +<span id="L269" class="LineNr"> 269 </span><span class="SpecialChar">Function-outputs</span>: <span class="subxComment"># (handle list var)</span> +<span id="L270" class="LineNr"> 270 </span> 0x10/imm32 +<span id="L271" class="LineNr"> 271 </span><span class="SpecialChar">Function-body</span>: <span class="subxComment"># (handle block)</span> +<span id="L272" class="LineNr"> 272 </span> 0x18/imm32 +<span id="L273" class="LineNr"> 273 </span><span class="SpecialChar">Function-next</span>: <span class="subxComment"># (handle function)</span> +<span id="L274" class="LineNr"> 274 </span> 0x20/imm32 +<span id="L275" class="LineNr"> 275 </span><span class="SpecialChar">Function-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L276" class="LineNr"> 276 </span> 0x28/imm32/40 +<span id="L277" class="LineNr"> 277 </span> +<span id="L278" class="LineNr"> 278 </span><span class="SpecialChar">Primitive-name</span>: <span class="subxComment"># (handle array byte)</span> +<span id="L279" class="LineNr"> 279 </span> 0/imm32 +<span id="L280" class="LineNr"> 280 </span><span class="SpecialChar">Primitive-inouts</span>: <span class="subxComment"># (handle list var)</span> +<span id="L281" class="LineNr"> 281 </span> 8/imm32 +<span id="L282" class="LineNr"> 282 </span><span class="SpecialChar">Primitive-outputs</span>: <span class="subxComment"># (handle list var)</span> +<span id="L283" class="LineNr"> 283 </span> 0x10/imm32 +<span id="L284" class="LineNr"> 284 </span><span class="SpecialChar">Primitive-subx-name</span>: <span class="subxComment"># (handle array byte)</span> +<span id="L285" class="LineNr"> 285 </span> 0x18/imm32 +<span id="L286" class="LineNr"> 286 </span><span class="SpecialChar">Primitive-subx-rm32</span>: <span class="subxComment"># enum arg-location</span> +<span id="L287" class="LineNr"> 287 </span> 0x20/imm32 +<span id="L288" class="LineNr"> 288 </span><span class="SpecialChar">Primitive-subx-r32</span>: <span class="subxComment"># enum arg-location</span> +<span id="L289" class="LineNr"> 289 </span> 0x24/imm32 +<span id="L290" class="LineNr"> 290 </span><span class="SpecialChar">Primitive-subx-imm32</span>: <span class="subxComment"># enum arg-location</span> +<span id="L291" class="LineNr"> 291 </span> 0x28/imm32 +<span id="L292" class="LineNr"> 292 </span><span class="SpecialChar">Primitive-subx-imm8</span>: <span class="subxComment"># enum arg-location -- only for bit shifts</span> +<span id="L293" class="LineNr"> 293 </span> 0x2c/imm32 +<span id="L294" class="LineNr"> 294 </span><span class="SpecialChar">Primitive-subx-disp32</span>: <span class="subxComment"># enum arg-location -- only for branches</span> +<span id="L295" class="LineNr"> 295 </span> 0x30/imm32 +<span id="L296" class="LineNr"> 296 </span><span class="SpecialChar">Primitive-subx-xm32</span>: <span class="subxComment"># enum arg-location</span> +<span id="L297" class="LineNr"> 297 </span> 0x34/imm32 +<span id="L298" class="LineNr"> 298 </span><span class="SpecialChar">Primitive-subx-x32</span>: <span class="subxComment"># enum arg-location</span> +<span id="L299" class="LineNr"> 299 </span> 0x38/imm32 +<span id="L300" class="LineNr"> 300 </span><span class="SpecialChar">Primitive-next</span>: <span class="subxComment"># (handle function)</span> +<span id="L301" class="LineNr"> 301 </span> 0x3c/imm32 +<span id="L302" class="LineNr"> 302 </span><span class="SpecialChar">Primitive-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L303" class="LineNr"> 303 </span> 0x44/imm32/68 +<span id="L304" class="LineNr"> 304 </span> +<span id="L305" class="LineNr"> 305 </span><span class="SpecialChar">Stmt-tag</span>: <span class="subxComment"># int</span> +<span id="L306" class="LineNr"> 306 </span> 0/imm32 +<span id="L307" class="LineNr"> 307 </span> +<span id="L308" class="LineNr"> 308 </span><span class="SpecialChar">Block-stmts</span>: <span class="subxComment"># (handle list stmt)</span> +<span id="L309" class="LineNr"> 309 </span> 4/imm32 +<span id="L310" class="LineNr"> 310 </span><span class="SpecialChar">Block-var</span>: <span class="subxComment"># (handle var)</span> +<span id="L311" class="LineNr"> 311 </span> 0xc/imm32 +<span id="L312" class="LineNr"> 312 </span> +<span id="L313" class="LineNr"> 313 </span><span class="SpecialChar">Stmt1-operation</span>: <span class="subxComment"># (handle array byte)</span> +<span id="L314" class="LineNr"> 314 </span> 4/imm32 +<span id="L315" class="LineNr"> 315 </span><span class="SpecialChar">Stmt1-inouts</span>: <span class="subxComment"># (handle stmt-var)</span> +<span id="L316" class="LineNr"> 316 </span> 0xc/imm32 +<span id="L317" class="LineNr"> 317 </span><span class="SpecialChar">Stmt1-outputs</span>: <span class="subxComment"># (handle stmt-var)</span> +<span id="L318" class="LineNr"> 318 </span> 0x14/imm32 +<span id="L319" class="LineNr"> 319 </span> +<span id="L320" class="LineNr"> 320 </span><span class="SpecialChar">Vardef-var</span>: <span class="subxComment"># (handle var)</span> +<span id="L321" class="LineNr"> 321 </span> 4/imm32 +<span id="L322" class="LineNr"> 322 </span> +<span id="L323" class="LineNr"> 323 </span><span class="SpecialChar">Regvardef-operation</span>: <span class="subxComment"># (handle array byte)</span> +<span id="L324" class="LineNr"> 324 </span> 4/imm32 +<span id="L325" class="LineNr"> 325 </span><span class="SpecialChar">Regvardef-inouts</span>: <span class="subxComment"># (handle stmt-var)</span> +<span id="L326" class="LineNr"> 326 </span> 0xc/imm32 +<span id="L327" class="LineNr"> 327 </span><span class="SpecialChar">Regvardef-outputs</span>: <span class="subxComment"># (handle stmt-var) # will have exactly one element</span> +<span id="L328" class="LineNr"> 328 </span> 0x14/imm32 +<span id="L329" class="LineNr"> 329 </span> +<span id="L330" class="LineNr"> 330 </span><span class="SpecialChar">Stmt-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L331" class="LineNr"> 331 </span> 0x1c/imm32 +<span id="L332" class="LineNr"> 332 </span> +<span id="L333" class="LineNr"> 333 </span><span class="SpecialChar">Var-name</span>: <span class="subxComment"># (handle array byte)</span> +<span id="L334" class="LineNr"> 334 </span> 0/imm32 +<span id="L335" class="LineNr"> 335 </span><span class="SpecialChar">Var-type</span>: <span class="subxComment"># (handle type-tree)</span> +<span id="L336" class="LineNr"> 336 </span> 8/imm32 +<span id="L337" class="LineNr"> 337 </span><span class="SpecialChar">Var-block-depth</span>: <span class="subxComment"># int -- not available until code-generation time</span> +<span id="L338" class="LineNr"> 338 </span> 0x10/imm32 +<span id="L339" class="LineNr"> 339 </span><span class="SpecialChar">Var-offset</span>: <span class="subxComment"># int -- not available until code-generation time</span> +<span id="L340" class="LineNr"> 340 </span> 0x14/imm32 +<span id="L341" class="LineNr"> 341 </span><span class="SpecialChar">Var-register</span>: <span class="subxComment"># (handle array byte) -- name of a register</span> +<span id="L342" class="LineNr"> 342 </span> 0x18/imm32 +<span id="L343" class="LineNr"> 343 </span><span class="SpecialChar">Var-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L344" class="LineNr"> 344 </span> 0x20/imm32 +<span id="L345" class="LineNr"> 345 </span> +<span id="L346" class="LineNr"> 346 </span><span class="SpecialChar">List-value</span>: <span class="subxComment"># (handle _)</span> +<span id="L347" class="LineNr"> 347 </span> 0/imm32 +<span id="L348" class="LineNr"> 348 </span><span class="SpecialChar">List-next</span>: <span class="subxComment"># (handle list _)</span> +<span id="L349" class="LineNr"> 349 </span> 8/imm32 +<span id="L350" class="LineNr"> 350 </span><span class="SpecialChar">List-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L351" class="LineNr"> 351 </span> 0x10/imm32 +<span id="L352" class="LineNr"> 352 </span> +<span id="L353" class="LineNr"> 353 </span><span class="subxComment"># A stmt-var is like a list of vars with call-site specific metadata</span> +<span id="L354" class="LineNr"> 354 </span><span class="SpecialChar">Stmt-var-value</span>: <span class="subxComment"># (handle var)</span> +<span id="L355" class="LineNr"> 355 </span> 0/imm32 +<span id="L356" class="LineNr"> 356 </span><span class="SpecialChar">Stmt-var-next</span>: <span class="subxComment"># (handle stmt-var)</span> +<span id="L357" class="LineNr"> 357 </span> 8/imm32 +<span id="L358" class="LineNr"> 358 </span><span class="SpecialChar">Stmt-var-is-deref</span>: <span class="subxComment"># boolean</span> +<span id="L359" class="LineNr"> 359 </span> 0x10/imm32 +<span id="L360" class="LineNr"> 360 </span><span class="SpecialChar">Stmt-var-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L361" class="LineNr"> 361 </span> 0x14/imm32 +<span id="L362" class="LineNr"> 362 </span> +<span id="L363" class="LineNr"> 363 </span><span class="subxComment"># A live-var is a var augmented with information needed for tracking live</span> +<span id="L364" class="LineNr"> 364 </span><span class="subxComment"># variables.</span> +<span id="L365" class="LineNr"> 365 </span><span class="SpecialChar">Live-var-value</span>: <span class="subxComment"># (handle var)</span> +<span id="L366" class="LineNr"> 366 </span> 0/imm32 +<span id="L367" class="LineNr"> 367 </span><span class="SpecialChar">Live-var-register-spilled</span>: <span class="subxComment"># boolean; only used if value is in a register, and only during code-gen</span> +<span id="L368" class="LineNr"> 368 </span> 8/imm32 +<span id="L369" class="LineNr"> 369 </span><span class="SpecialChar">Live-var-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L370" class="LineNr"> 370 </span> 0xc/imm32 +<span id="L371" class="LineNr"> 371 </span> +<span id="L372" class="LineNr"> 372 </span><span class="subxComment"># Types are expressed as trees (s-expressions) of type-ids (ints).</span> +<span id="L373" class="LineNr"> 373 </span> +<span id="L374" class="LineNr"> 374 </span><span class="SpecialChar">Type-tree-is-atom</span>: <span class="subxComment"># boolean</span> +<span id="L375" class="LineNr"> 375 </span> 0/imm32 +<span id="L376" class="LineNr"> 376 </span><span class="subxComment"># if is-atom?</span> +<span id="L377" class="LineNr"> 377 </span><span class="SpecialChar">Type-tree-value</span>: <span class="subxComment"># type-id</span> +<span id="L378" class="LineNr"> 378 </span> 4/imm32 +<span id="L379" class="LineNr"> 379 </span><span class="SpecialChar">Type-tree-value-size</span>: <span class="subxComment"># int (for static data structure sizes)</span> +<span id="L380" class="LineNr"> 380 </span> 8/imm32 +<span id="L381" class="LineNr"> 381 </span><span class="SpecialChar">Type-tree-parameter-name</span>: <span class="subxComment"># (handle array byte) for type parameters</span> +<span id="L382" class="LineNr"> 382 </span> 8/imm32 +<span id="L383" class="LineNr"> 383 </span><span class="subxComment"># unless is-atom?</span> +<span id="L384" class="LineNr"> 384 </span><span class="SpecialChar">Type-tree-left</span>: <span class="subxComment"># (addr type-tree)</span> +<span id="L385" class="LineNr"> 385 </span> 4/imm32 +<span id="L386" class="LineNr"> 386 </span><span class="SpecialChar">Type-tree-right</span>: <span class="subxComment"># (addr type-tree)</span> +<span id="L387" class="LineNr"> 387 </span> 0xc/imm32 +<span id="L388" class="LineNr"> 388 </span><span class="subxComment">#</span> +<span id="L389" class="LineNr"> 389 </span><span class="SpecialChar">Type-tree-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L390" class="LineNr"> 390 </span> 0x14/imm32 +<span id="L391" class="LineNr"> 391 </span> +<span id="L392" class="LineNr"> 392 </span><span class="subxComment"># Types</span> +<span id="L393" class="LineNr"> 393 </span> +<span id="L394" class="LineNr"> 394 </span><span class="subxComment"># TODO: Turn this data structure into valid Mu, with (fake) handles rather than addrs.</span> +<span id="L395" class="LineNr"> 395 </span><span class="SpecialChar">Type-id</span>: <span class="subxComment"># (stream (addr array byte))</span> +<span id="L396" class="LineNr"> 396 </span> 0/imm32/write <span class="subxComment"># initialized later from Primitive-type-ids</span> +<span id="L397" class="LineNr"> 397 </span> 0/imm32/read +<span id="L398" class="LineNr"> 398 </span> 0x100/imm32/size +<span id="L399" class="LineNr"> 399 </span> <span class="subxComment"># data</span> +<span id="L400" class="LineNr"> 400 </span> 0/imm32 <span class="subxComment"># 0 reserved for literals; value is just the name</span> +<span id="L401" class="LineNr"> 401 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> +<span id="L402" class="LineNr"> 402 </span> <span class="Constant">"int"</span>/imm32 <span class="subxComment"># 1</span> +<span id="L403" class="LineNr"> 403 </span> <span class="Constant">"addr"</span>/imm32 <span class="subxComment"># 2</span> +<span id="L404" class="LineNr"> 404 </span> <span class="Constant">"array"</span>/imm32 <span class="subxComment"># 3</span> +<span id="L405" class="LineNr"> 405 </span> <span class="Constant">"handle"</span>/imm32 <span class="subxComment"># 4</span> +<span id="L406" class="LineNr"> 406 </span> <span class="Constant">"boolean"</span>/imm32 <span class="subxComment"># 5</span> +<span id="L407" class="LineNr"> 407 </span> 0/imm32 <span class="subxComment"># 6 reserved for constants; they're like literals, but value is an int in Var-offset</span> +<span id="L408" class="LineNr"> 408 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> +<span id="L409" class="LineNr"> 409 </span> <span class="Constant">"offset"</span>/imm32 <span class="subxComment"># 7: (offset T) is guaranteed to be a 32-bit multiple of size-of(T)</span> +<span id="L410" class="LineNr"> 410 </span> <span class="subxComment"># 0x20</span> +<span id="L411" class="LineNr"> 411 </span> <span class="Constant">"byte"</span>/imm32 <span class="subxComment"># 8</span> +<span id="L412" class="LineNr"> 412 </span> 0/imm32 <span class="subxComment"># 9 reserved for array-capacity; value is in Type-tree-size.</span> +<span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> +<span id="L414" class="LineNr"> 414 </span> 0/imm32 <span class="subxComment"># 10 reserved for type parameters; value is (address array byte) in Type-tree-value2.</span> +<span id="L415" class="LineNr"> 415 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> +<span id="L416" class="LineNr"> 416 </span> <span class="Constant">"stream"</span>/imm32 <span class="subxComment"># 11</span> +<span id="L417" class="LineNr"> 417 </span> <span class="Constant">"slice"</span>/imm32 <span class="subxComment"># 12</span> +<span id="L418" class="LineNr"> 418 </span> <span class="Constant">"code-point"</span>/imm32 <span class="subxComment"># 13; smallest scannable unit from a text stream</span> +<span id="L419" class="LineNr"> 419 </span> <span class="Constant">"grapheme"</span>/imm32 <span class="subxComment"># 14; smallest printable unit; will eventually be composed of multiple code-points, but currently corresponds 1:1</span> +<span id="L420" class="LineNr"> 420 </span> <span class="subxComment"># only 4-byte graphemes in utf-8 are currently supported;</span> +<span id="L421" class="LineNr"> 421 </span> <span class="subxComment"># unclear how we should deal with larger clusters.</span> +<span id="L422" class="LineNr"> 422 </span> <span class="Constant">"float"</span>/imm32 <span class="subxComment"># 15</span> +<span id="L423" class="LineNr"> 423 </span> <span class="subxComment"># 0x40</span> +<span id="L424" class="LineNr"> 424 </span> 0/imm32 <span class="subxComment"># 16 reserved for literal strings; value is just the name</span> +<span id="L425" class="LineNr"> 425 </span> <span class="subxComment"># Not to be used directly, so we don't include a name here.</span> +<span id="L426" class="LineNr"> 426 </span> <span class="subxComment"># TODO: move this up next to literal ints</span> +<span id="L427" class="LineNr"> 427 </span> <span class="subxComment"># Keep Primitive-type-ids in sync if you add types here.</span> +<span id="L428" class="LineNr"> 428 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 +<span id="L429" class="LineNr"> 429 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 +<span id="L430" class="LineNr"> 430 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 +<span id="L431" class="LineNr"> 431 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 +<span id="L432" class="LineNr"> 432 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 +<span id="L433" class="LineNr"> 433 </span> 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 0/imm32 +<span id="L434" class="LineNr"> 434 </span> +<span id="L435" class="LineNr"> 435 </span><span class="SpecialChar">Primitive-type-ids</span>: <span class="subxComment"># (addr int)</span> +<span id="L436" class="LineNr"> 436 </span> 0x44 +<span id="L437" class="LineNr"> 437 </span> +<span id="L438" class="LineNr"> 438 </span><span class="subxComment"># == Type definitions</span> +<span id="L439" class="LineNr"> 439 </span><span class="subxComment"># Program->types contains some typeinfo for each type definition.</span> +<span id="L440" class="LineNr"> 440 </span><span class="subxComment"># Types contain vars with types, but can't specify registers.</span> +<span id="L441" class="LineNr"> 441 </span><span class="SpecialChar">Typeinfo-id</span>: <span class="subxComment"># type-id</span> +<span id="L442" class="LineNr"> 442 </span> 0/imm32 +<span id="L443" class="LineNr"> 443 </span><span class="SpecialChar">Typeinfo-fields</span>: <span class="subxComment"># (handle table (handle array byte) (handle typeinfo-entry))</span> +<span id="L444" class="LineNr"> 444 </span> 4/imm32 +<span id="L445" class="LineNr"> 445 </span><span class="subxComment"># Total size must be >= 0</span> +<span id="L446" class="LineNr"> 446 </span><span class="subxComment"># During parsing it may take on two additional values:</span> +<span id="L447" class="LineNr"> 447 </span><span class="subxComment"># -2: not yet initialized</span> +<span id="L448" class="LineNr"> 448 </span><span class="subxComment"># -1: in process of being computed</span> +<span id="L449" class="LineNr"> 449 </span><span class="subxComment"># See populate-mu-type-sizes for details.</span> +<span id="L450" class="LineNr"> 450 </span><span class="SpecialChar">Typeinfo-total-size-in-bytes</span>: <span class="subxComment"># int</span> +<span id="L451" class="LineNr"> 451 </span> 0xc/imm32 +<span id="L452" class="LineNr"> 452 </span><span class="SpecialChar">Typeinfo-next</span>: <span class="subxComment"># (handle typeinfo)</span> +<span id="L453" class="LineNr"> 453 </span> 0x10/imm32 +<span id="L454" class="LineNr"> 454 </span><span class="SpecialChar">Typeinfo-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L455" class="LineNr"> 455 </span> 0x18/imm32 +<span id="L456" class="LineNr"> 456 </span> +<span id="L457" class="LineNr"> 457 </span><span class="subxComment"># Each entry in the typeinfo->fields table has a pointer to a string and a</span> +<span id="L458" class="LineNr"> 458 </span><span class="subxComment"># pointer to a typeinfo-entry.</span> +<span id="L459" class="LineNr"> 459 </span><span class="SpecialChar">Typeinfo-fields-row-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L460" class="LineNr"> 460 </span> 0x10/imm32 +<span id="L461" class="LineNr"> 461 </span> +<span id="L462" class="LineNr"> 462 </span><span class="subxComment"># typeinfo-entry objects have information about a field in a single record type</span> +<span id="L463" class="LineNr"> 463 </span><span class="subxComment">#</span> +<span id="L464" class="LineNr"> 464 </span><span class="subxComment"># each field of a type is represented using two var's:</span> +<span id="L465" class="LineNr"> 465 </span><span class="subxComment"># 1. the input var: expected type of the field; convenient for creating using parse-var-with-type</span> +<span id="L466" class="LineNr"> 466 </span><span class="subxComment"># 2. the output var: a constant containing the byte offset; convenient for code-generation</span> +<span id="L467" class="LineNr"> 467 </span><span class="subxComment"># computing the output happens after parsing; in the meantime we preserve the</span> +<span id="L468" class="LineNr"> 468 </span><span class="subxComment"># order of fields in the 'index' field.</span> +<span id="L469" class="LineNr"> 469 </span><span class="SpecialChar">Typeinfo-entry-input-var</span>: <span class="subxComment"># (handle var)</span> +<span id="L470" class="LineNr"> 470 </span> 0/imm32 +<span id="L471" class="LineNr"> 471 </span><span class="SpecialChar">Typeinfo-entry-index</span>: <span class="subxComment"># int</span> +<span id="L472" class="LineNr"> 472 </span> 8/imm32 +<span id="L473" class="LineNr"> 473 </span><span class="SpecialChar">Typeinfo-entry-output-var</span>: <span class="subxComment"># (handle var)</span> +<span id="L474" class="LineNr"> 474 </span> 0xc/imm32 +<span id="L475" class="LineNr"> 475 </span><span class="SpecialChar">Typeinfo-entry-size</span>: <span class="subxComment"># (addr int)</span> +<span id="L476" class="LineNr"> 476 </span> 0x14/imm32 +<span id="L477" class="LineNr"> 477 </span> +<span id="L478" class="LineNr"> 478 </span>== code +<span id="L479" class="LineNr"> 479 </span> +<span id="L480" class="LineNr"> 480 </span><span class="SpecialChar">Entry</span>: +<span id="L481" class="LineNr"> 481 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L482" class="LineNr"> 482 </span> 89/<- %ebp 4/r32/esp +<span id="L483" class="LineNr"> 483 </span> (<a href='104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) +<span id="L484" class="LineNr"> 484 </span> <span class="subxComment"># if (argv[1] == "test') run-tests()</span> +<span id="L485" class="LineNr"> 485 </span> { +<span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># if (argc <= 1) break</span> +<span id="L487" class="LineNr"> 487 </span> 81 7/subop/compare *ebp 1/imm32 +<span id="L488" class="LineNr"> 488 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># if (argv[1] != "test") break</span> +<span id="L490" class="LineNr"> 490 </span> (<a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a> *(ebp+8) <span class="Constant">"test"</span>) <span class="subxComment"># => eax</span> +<span id="L491" class="LineNr"> 491 </span> 3d/compare-eax-and 0/imm32/false +<span id="L492" class="LineNr"> 492 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L493" class="LineNr"> 493 </span> <span class="subxComment">#</span> +<span id="L494" class="LineNr"> 494 </span> (run-tests) +<span id="L495" class="LineNr"> 495 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L496" class="LineNr"> 496 </span> 8b/-> *<span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span> 3/r32/ebx +<span id="L497" class="LineNr"> 497 </span> eb/jump $mu-main:end/disp8 +<span id="L498" class="LineNr"> 498 </span> } +<span id="L499" class="LineNr"> 499 </span> <span class="subxComment"># otherwise convert Stdin</span> +<span id="L500" class="LineNr"> 500 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L501" class="LineNr"> 501 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>) +<span id="L502" class="LineNr"> 502 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L503" class="LineNr"> 503 </span> bb/copy-to-ebx 0/imm32 +<span id="L504" class="LineNr"> 504 </span><span class="Constant">$mu-main:end</span>: +<span id="L505" class="LineNr"> 505 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L506" class="LineNr"> 506 </span> +<span id="L507" class="LineNr"> 507 </span><span class="subxFunction">convert-mu</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L508" class="LineNr"> 508 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L509" class="LineNr"> 509 </span> 55/push-ebp +<span id="L510" class="LineNr"> 510 </span> 89/<- %ebp 4/r32/esp +<span id="L511" class="LineNr"> 511 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L512" class="LineNr"> 512 </span> 50/push-eax +<span id="L513" class="LineNr"> 513 </span> <span class="subxComment"># initialize global data structures</span> +<span id="L514" class="LineNr"> 514 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15689'>Next-block-index</a></span> 1/imm32 +<span id="L515" class="LineNr"> 515 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L516" class="LineNr"> 516 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L517" class="LineNr"> 517 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L518" class="LineNr"> 518 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L519" class="LineNr"> 519 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L520" class="LineNr"> 520 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L521" class="LineNr"> 521 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L522" class="LineNr"> 522 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L523" class="LineNr"> 523 </span> <span class="subxComment">#</span> +<span id="L524" class="LineNr"> 524 </span> (<a href='mu.subx.html#L15697'>parse-mu</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14)) +<span id="L525" class="LineNr"> 525 </span> (<a href='mu.subx.html#L20745'>populate-mu-type-sizes</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L526" class="LineNr"> 526 </span><span class="CommentedCode">#? (dump-typeinfos "=== typeinfos\n")</span> +<span id="L527" class="LineNr"> 527 </span> (<a href='mu.subx.html#L21274'>check-mu-types</a> *(ebp+0x10) *(ebp+0x14)) +<span id="L528" class="LineNr"> 528 </span> (<a href='mu.subx.html#L26964'>emit-subx</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L529" class="LineNr"> 529 </span><span class="Constant">$convert-mu:end</span>: +<span id="L530" class="LineNr"> 530 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L531" class="LineNr"> 531 </span> 58/pop-to-eax +<span id="L532" class="LineNr"> 532 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L533" class="LineNr"> 533 </span> 89/<- %esp 5/r32/ebp +<span id="L534" class="LineNr"> 534 </span> 5d/pop-to-ebp +<span id="L535" class="LineNr"> 535 </span> c3/return +<span id="L536" class="LineNr"> 536 </span> +<span id="L537" class="LineNr"> 537 </span><span class="subxTest">test-convert-empty-input</span>: +<span id="L538" class="LineNr"> 538 </span> <span class="subxComment"># empty input => empty output</span> +<span id="L539" class="LineNr"> 539 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L540" class="LineNr"> 540 </span> 55/push-ebp +<span id="L541" class="LineNr"> 541 </span> 89/<- %ebp 4/r32/esp +<span id="L542" class="LineNr"> 542 </span> <span class="subxComment"># setup</span> +<span id="L543" class="LineNr"> 543 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L544" class="LineNr"> 544 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L545" class="LineNr"> 545 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L546" class="LineNr"> 546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L547" class="LineNr"> 547 </span> <span class="subxComment">#</span> +<span id="L548" class="LineNr"> 548 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L549" class="LineNr"> 549 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L550" class="LineNr"> 550 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - test-convert-empty-input"</span>) +<span id="L551" class="LineNr"> 551 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L552" class="LineNr"> 552 </span> 89/<- %esp 5/r32/ebp +<span id="L553" class="LineNr"> 553 </span> 5d/pop-to-ebp +<span id="L554" class="LineNr"> 554 </span> c3/return +<span id="L555" class="LineNr"> 555 </span> +<span id="L556" class="LineNr"> 556 </span><span class="subxTest">test-convert-function-skeleton</span>: +<span id="L557" class="LineNr"> 557 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L558" class="LineNr"> 558 </span> 55/push-ebp +<span id="L559" class="LineNr"> 559 </span> 89/<- %ebp 4/r32/esp +<span id="L560" class="LineNr"> 560 </span> <span class="subxComment"># setup</span> +<span id="L561" class="LineNr"> 561 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L562" class="LineNr"> 562 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L563" class="LineNr"> 563 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L564" class="LineNr"> 564 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L565" class="LineNr"> 565 </span> <span class="subxComment">#</span> +<span id="L566" class="LineNr"> 566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L567" class="LineNr"> 567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L568" class="LineNr"> 568 </span> <span class="subxComment"># convert</span> +<span id="L569" class="LineNr"> 569 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L570" class="LineNr"> 570 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L571" class="Folded"> 571 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L577" class="LineNr"> 577 </span> <span class="subxComment"># check output</span> +<span id="L578" class="LineNr"> 578 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/0"</span>) +<span id="L579" class="LineNr"> 579 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-skeleton/1"</span>) +<span id="L580" class="LineNr"> 580 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/2"</span>) +<span id="L581" class="LineNr"> 581 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/3"</span>) +<span id="L582" class="LineNr"> 582 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-skeleton/4"</span>) +<span id="L583" class="LineNr"> 583 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/5"</span>) +<span id="L584" class="LineNr"> 584 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/6"</span>) +<span id="L585" class="LineNr"> 585 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L556'>test-convert-function-skeleton</a>/7"</span>) +<span id="L586" class="LineNr"> 586 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L587" class="LineNr"> 587 </span> 89/<- %esp 5/r32/ebp +<span id="L588" class="LineNr"> 588 </span> 5d/pop-to-ebp +<span id="L589" class="LineNr"> 589 </span> c3/return +<span id="L590" class="LineNr"> 590 </span> +<span id="L591" class="LineNr"> 591 </span><span class="subxTest">test-convert-multiple-function-skeletons</span>: +<span id="L592" class="LineNr"> 592 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L593" class="LineNr"> 593 </span> 55/push-ebp +<span id="L594" class="LineNr"> 594 </span> 89/<- %ebp 4/r32/esp +<span id="L595" class="LineNr"> 595 </span> <span class="subxComment"># setup</span> +<span id="L596" class="LineNr"> 596 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L597" class="LineNr"> 597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L598" class="LineNr"> 598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L599" class="LineNr"> 599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L600" class="LineNr"> 600 </span> <span class="subxComment">#</span> +<span id="L601" class="LineNr"> 601 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L602" class="LineNr"> 602 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L603" class="LineNr"> 603 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn bar {\n"</span>) +<span id="L604" class="LineNr"> 604 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L605" class="LineNr"> 605 </span> <span class="subxComment"># convert</span> +<span id="L606" class="LineNr"> 606 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L607" class="LineNr"> 607 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L608" class="Folded"> 608 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L614" class="LineNr"> 614 </span> <span class="subxComment"># check first function</span> +<span id="L615" class="LineNr"> 615 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/0"</span>) +<span id="L616" class="LineNr"> 616 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/1"</span>) +<span id="L617" class="LineNr"> 617 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/2"</span>) +<span id="L618" class="LineNr"> 618 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/3"</span>) +<span id="L619" class="LineNr"> 619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/4"</span>) +<span id="L620" class="LineNr"> 620 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/5"</span>) +<span id="L621" class="LineNr"> 621 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/6"</span>) +<span id="L622" class="LineNr"> 622 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/7"</span>) +<span id="L623" class="LineNr"> 623 </span> <span class="subxComment"># check second function</span> +<span id="L624" class="LineNr"> 624 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"bar:"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/10"</span>) +<span id="L625" class="LineNr"> 625 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/11"</span>) +<span id="L626" class="LineNr"> 626 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/12"</span>) +<span id="L627" class="LineNr"> 627 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/13"</span>) +<span id="L628" class="LineNr"> 628 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-multiple-function-skeletons/14"</span>) +<span id="L629" class="LineNr"> 629 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/15"</span>) +<span id="L630" class="LineNr"> 630 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/16"</span>) +<span id="L631" class="LineNr"> 631 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L591'>test-convert-multiple-function-skeletons</a>/17"</span>) +<span id="L632" class="LineNr"> 632 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L633" class="LineNr"> 633 </span> 89/<- %esp 5/r32/ebp +<span id="L634" class="LineNr"> 634 </span> 5d/pop-to-ebp +<span id="L635" class="LineNr"> 635 </span> c3/return +<span id="L636" class="LineNr"> 636 </span> +<span id="L637" class="LineNr"> 637 </span><span class="subxTest">test-convert-function-with-arg</span>: +<span id="L638" class="LineNr"> 638 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L639" class="LineNr"> 639 </span> 55/push-ebp +<span id="L640" class="LineNr"> 640 </span> 89/<- %ebp 4/r32/esp +<span id="L641" class="LineNr"> 641 </span> <span class="subxComment"># setup</span> +<span id="L642" class="LineNr"> 642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L643" class="LineNr"> 643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L644" class="LineNr"> 644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L645" class="LineNr"> 645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L646" class="LineNr"> 646 </span> <span class="subxComment">#</span> +<span id="L647" class="LineNr"> 647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo n: int {\n"</span>) +<span id="L648" class="LineNr"> 648 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L649" class="LineNr"> 649 </span> <span class="subxComment"># convert</span> +<span id="L650" class="LineNr"> 650 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L651" class="LineNr"> 651 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L652" class="Folded"> 652 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L658" class="LineNr"> 658 </span> <span class="subxComment"># check output</span> +<span id="L659" class="LineNr"> 659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/0"</span>) +<span id="L660" class="LineNr"> 660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg/1"</span>) +<span id="L661" class="LineNr"> 661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/2"</span>) +<span id="L662" class="LineNr"> 662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/3"</span>) +<span id="L663" class="LineNr"> 663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-arg/4"</span>) +<span id="L664" class="LineNr"> 664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/5"</span>) +<span id="L665" class="LineNr"> 665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/6"</span>) +<span id="L666" class="LineNr"> 666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L637'>test-convert-function-with-arg</a>/7"</span>) +<span id="L667" class="LineNr"> 667 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L668" class="LineNr"> 668 </span> 89/<- %esp 5/r32/ebp +<span id="L669" class="LineNr"> 669 </span> 5d/pop-to-ebp +<span id="L670" class="LineNr"> 670 </span> c3/return +<span id="L671" class="LineNr"> 671 </span> +<span id="L672" class="LineNr"> 672 </span><span class="subxTest">test-function-with-redefined-name</span>: +<span id="L673" class="LineNr"> 673 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L674" class="LineNr"> 674 </span> 55/push-ebp +<span id="L675" class="LineNr"> 675 </span> 89/<- %ebp 4/r32/esp +<span id="L676" class="LineNr"> 676 </span> <span class="subxComment"># setup</span> +<span id="L677" class="LineNr"> 677 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L678" class="LineNr"> 678 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L679" class="LineNr"> 679 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L680" class="LineNr"> 680 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L681" class="LineNr"> 681 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L682" class="LineNr"> 682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L683" class="LineNr"> 683 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L684" class="LineNr"> 684 </span> 68/push 0/imm32 +<span id="L685" class="LineNr"> 685 </span> 68/push 0/imm32 +<span id="L686" class="LineNr"> 686 </span> 89/<- %edx 4/r32/esp +<span id="L687" class="LineNr"> 687 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L688" class="LineNr"> 688 </span> <span class="subxComment">#</span> +<span id="L689" class="LineNr"> 689 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L690" class="LineNr"> 690 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L691" class="LineNr"> 691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L692" class="LineNr"> 692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L693" class="LineNr"> 693 </span> <span class="subxComment"># convert</span> +<span id="L694" class="LineNr"> 694 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L695" class="LineNr"> 695 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L696" class="LineNr"> 696 </span> <span class="subxComment"># restore ed</span> +<span id="L697" class="LineNr"> 697 </span> 89/<- %edx 4/r32/esp +<span id="L698" class="LineNr"> 698 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L699" class="LineNr"> 699 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L700" class="Folded"> 700 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L706" class="LineNr"> 706 </span> <span class="subxComment"># check output</span> +<span id="L707" class="LineNr"> 707 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L672'>test-function-with-redefined-name</a>: output should be empty"</span>) +<span id="L708" class="LineNr"> 708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L672'>test-function-with-redefined-name</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L709" class="LineNr"> 709 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L710" class="LineNr"> 710 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L672'>test-function-with-redefined-name</a>: exit status"</span>) +<span id="L711" class="LineNr"> 711 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L712" class="LineNr"> 712 </span> 81 0/subop/add %esp 8/imm32 +<span id="L713" class="LineNr"> 713 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L714" class="LineNr"> 714 </span> 5d/pop-to-ebp +<span id="L715" class="LineNr"> 715 </span> c3/return +<span id="L716" class="LineNr"> 716 </span> +<span id="L717" class="LineNr"> 717 </span><span class="subxTest">test-function-with-redefined-name-2</span>: +<span id="L718" class="LineNr"> 718 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L719" class="LineNr"> 719 </span> 55/push-ebp +<span id="L720" class="LineNr"> 720 </span> 89/<- %ebp 4/r32/esp +<span id="L721" class="LineNr"> 721 </span> <span class="subxComment"># setup</span> +<span id="L722" class="LineNr"> 722 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L723" class="LineNr"> 723 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L724" class="LineNr"> 724 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L725" class="LineNr"> 725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L726" class="LineNr"> 726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L727" class="LineNr"> 727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L728" class="LineNr"> 728 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L729" class="LineNr"> 729 </span> 68/push 0/imm32 +<span id="L730" class="LineNr"> 730 </span> 68/push 0/imm32 +<span id="L731" class="LineNr"> 731 </span> 89/<- %edx 4/r32/esp +<span id="L732" class="LineNr"> 732 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L733" class="LineNr"> 733 </span> <span class="subxComment">#</span> +<span id="L734" class="LineNr"> 734 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L735" class="LineNr"> 735 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L736" class="LineNr"> 736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig foo\n"</span>) +<span id="L737" class="LineNr"> 737 </span> <span class="subxComment"># convert</span> +<span id="L738" class="LineNr"> 738 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L739" class="LineNr"> 739 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L740" class="LineNr"> 740 </span> <span class="subxComment"># restore ed</span> +<span id="L741" class="LineNr"> 741 </span> 89/<- %edx 4/r32/esp +<span id="L742" class="LineNr"> 742 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L743" class="LineNr"> 743 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L744" class="Folded"> 744 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L750" class="LineNr"> 750 </span> <span class="subxComment"># check output</span> +<span id="L751" class="LineNr"> 751 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L717'>test-function-with-redefined-name-2</a>: output should be empty"</span>) +<span id="L752" class="LineNr"> 752 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L717'>test-function-with-redefined-name-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L753" class="LineNr"> 753 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L754" class="LineNr"> 754 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L717'>test-function-with-redefined-name-2</a>: exit status"</span>) +<span id="L755" class="LineNr"> 755 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L756" class="LineNr"> 756 </span> 81 0/subop/add %esp 8/imm32 +<span id="L757" class="LineNr"> 757 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L758" class="LineNr"> 758 </span> 5d/pop-to-ebp +<span id="L759" class="LineNr"> 759 </span> c3/return +<span id="L760" class="LineNr"> 760 </span> +<span id="L761" class="LineNr"> 761 </span><span class="subxTest">test-function-with-redefined-name-3</span>: +<span id="L762" class="LineNr"> 762 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L763" class="LineNr"> 763 </span> 55/push-ebp +<span id="L764" class="LineNr"> 764 </span> 89/<- %ebp 4/r32/esp +<span id="L765" class="LineNr"> 765 </span> <span class="subxComment"># setup</span> +<span id="L766" class="LineNr"> 766 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L767" class="LineNr"> 767 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L768" class="LineNr"> 768 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L769" class="LineNr"> 769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L770" class="LineNr"> 770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L771" class="LineNr"> 771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L772" class="LineNr"> 772 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L773" class="LineNr"> 773 </span> 68/push 0/imm32 +<span id="L774" class="LineNr"> 774 </span> 68/push 0/imm32 +<span id="L775" class="LineNr"> 775 </span> 89/<- %edx 4/r32/esp +<span id="L776" class="LineNr"> 776 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L777" class="LineNr"> 777 </span> <span class="subxComment">#</span> +<span id="L778" class="LineNr"> 778 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig foo\n"</span>) +<span id="L779" class="LineNr"> 779 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L780" class="LineNr"> 780 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L781" class="LineNr"> 781 </span> <span class="subxComment"># convert</span> +<span id="L782" class="LineNr"> 782 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L783" class="LineNr"> 783 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L784" class="LineNr"> 784 </span> <span class="subxComment"># restore ed</span> +<span id="L785" class="LineNr"> 785 </span> 89/<- %edx 4/r32/esp +<span id="L786" class="LineNr"> 786 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L787" class="LineNr"> 787 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L788" class="Folded"> 788 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L794" class="LineNr"> 794 </span> <span class="subxComment"># check output</span> +<span id="L795" class="LineNr"> 795 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L761'>test-function-with-redefined-name-3</a>: output should be empty"</span>) +<span id="L796" class="LineNr"> 796 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo defined more than once"</span> <span class="Constant">"F - <a href='mu.subx.html#L761'>test-function-with-redefined-name-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L797" class="LineNr"> 797 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L798" class="LineNr"> 798 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L761'>test-function-with-redefined-name-3</a>: exit status"</span>) +<span id="L799" class="LineNr"> 799 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L800" class="LineNr"> 800 </span> 81 0/subop/add %esp 8/imm32 +<span id="L801" class="LineNr"> 801 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L802" class="LineNr"> 802 </span> 5d/pop-to-ebp +<span id="L803" class="LineNr"> 803 </span> c3/return +<span id="L804" class="LineNr"> 804 </span> +<span id="L805" class="LineNr"> 805 </span><span class="subxTest">test-function-with-inout-in-register</span>: +<span id="L806" class="LineNr"> 806 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L807" class="LineNr"> 807 </span> 55/push-ebp +<span id="L808" class="LineNr"> 808 </span> 89/<- %ebp 4/r32/esp +<span id="L809" class="LineNr"> 809 </span> <span class="subxComment"># setup</span> +<span id="L810" class="LineNr"> 810 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L811" class="LineNr"> 811 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L812" class="LineNr"> 812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L813" class="LineNr"> 813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L814" class="LineNr"> 814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L815" class="LineNr"> 815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L816" class="LineNr"> 816 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L817" class="LineNr"> 817 </span> 68/push 0/imm32 +<span id="L818" class="LineNr"> 818 </span> 68/push 0/imm32 +<span id="L819" class="LineNr"> 819 </span> 89/<- %edx 4/r32/esp +<span id="L820" class="LineNr"> 820 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L821" class="LineNr"> 821 </span> <span class="subxComment">#</span> +<span id="L822" class="LineNr"> 822 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x/eax: int {\n"</span>) +<span id="L823" class="LineNr"> 823 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L824" class="LineNr"> 824 </span> <span class="subxComment"># convert</span> +<span id="L825" class="LineNr"> 825 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L826" class="LineNr"> 826 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L827" class="LineNr"> 827 </span> <span class="subxComment"># restore ed</span> +<span id="L828" class="LineNr"> 828 </span> 89/<- %edx 4/r32/esp +<span id="L829" class="LineNr"> 829 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L830" class="LineNr"> 830 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L831" class="Folded"> 831 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L837" class="LineNr"> 837 </span> <span class="subxComment"># check output</span> +<span id="L838" class="LineNr"> 838 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L805'>test-function-with-inout-in-register</a>: output should be empty"</span>) +<span id="L839" class="LineNr"> 839 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: function inout 'x' cannot be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L805'>test-function-with-inout-in-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L840" class="LineNr"> 840 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L841" class="LineNr"> 841 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L805'>test-function-with-inout-in-register</a>: exit status"</span>) +<span id="L842" class="LineNr"> 842 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L843" class="LineNr"> 843 </span> 81 0/subop/add %esp 8/imm32 +<span id="L844" class="LineNr"> 844 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L845" class="LineNr"> 845 </span> 5d/pop-to-ebp +<span id="L846" class="LineNr"> 846 </span> c3/return +<span id="L847" class="LineNr"> 847 </span> +<span id="L848" class="LineNr"> 848 </span><span class="subxTest">test-function-with-addr-output</span>: +<span id="L849" class="LineNr"> 849 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L850" class="LineNr"> 850 </span> 55/push-ebp +<span id="L851" class="LineNr"> 851 </span> 89/<- %ebp 4/r32/esp +<span id="L852" class="LineNr"> 852 </span> <span class="subxComment"># setup</span> +<span id="L853" class="LineNr"> 853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L854" class="LineNr"> 854 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L855" class="LineNr"> 855 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L856" class="LineNr"> 856 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L857" class="LineNr"> 857 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L858" class="LineNr"> 858 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L859" class="LineNr"> 859 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L860" class="LineNr"> 860 </span> 68/push 0/imm32 +<span id="L861" class="LineNr"> 861 </span> 68/push 0/imm32 +<span id="L862" class="LineNr"> 862 </span> 89/<- %edx 4/r32/esp +<span id="L863" class="LineNr"> 863 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L864" class="LineNr"> 864 </span> <span class="subxComment">#</span> +<span id="L865" class="LineNr"> 865 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: (addr int) {\n"</span>) +<span id="L866" class="LineNr"> 866 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L867" class="LineNr"> 867 </span> <span class="subxComment"># convert</span> +<span id="L868" class="LineNr"> 868 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L869" class="LineNr"> 869 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L870" class="LineNr"> 870 </span> <span class="subxComment"># restore ed</span> +<span id="L871" class="LineNr"> 871 </span> 89/<- %edx 4/r32/esp +<span id="L872" class="LineNr"> 872 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L873" class="LineNr"> 873 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L874" class="Folded"> 874 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L880" class="LineNr"> 880 </span> <span class="subxComment"># check output</span> +<span id="L881" class="LineNr"> 881 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L848'>test-function-with-addr-output</a>: output should be empty"</span>) +<span id="L882" class="LineNr"> 882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: output cannot have an addr type; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L848'>test-function-with-addr-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L883" class="LineNr"> 883 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L884" class="LineNr"> 884 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L848'>test-function-with-addr-output</a>: exit status"</span>) +<span id="L885" class="LineNr"> 885 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L886" class="LineNr"> 886 </span> 81 0/subop/add %esp 8/imm32 +<span id="L887" class="LineNr"> 887 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L888" class="LineNr"> 888 </span> 5d/pop-to-ebp +<span id="L889" class="LineNr"> 889 </span> c3/return +<span id="L890" class="LineNr"> 890 </span> +<span id="L891" class="LineNr"> 891 </span><span class="subxTest">test-function-with-addr-inout</span>: +<span id="L892" class="LineNr"> 892 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L893" class="LineNr"> 893 </span> 55/push-ebp +<span id="L894" class="LineNr"> 894 </span> 89/<- %ebp 4/r32/esp +<span id="L895" class="LineNr"> 895 </span> <span class="subxComment"># setup</span> +<span id="L896" class="LineNr"> 896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L897" class="LineNr"> 897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L898" class="LineNr"> 898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L899" class="LineNr"> 899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L900" class="LineNr"> 900 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L901" class="LineNr"> 901 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L902" class="LineNr"> 902 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L903" class="LineNr"> 903 </span> 68/push 0/imm32 +<span id="L904" class="LineNr"> 904 </span> 68/push 0/imm32 +<span id="L905" class="LineNr"> 905 </span> 89/<- %edx 4/r32/esp +<span id="L906" class="LineNr"> 906 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L907" class="LineNr"> 907 </span> <span class="subxComment">#</span> +<span id="L908" class="LineNr"> 908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr addr int) {\n"</span>) +<span id="L909" class="LineNr"> 909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L910" class="LineNr"> 910 </span> <span class="subxComment"># convert</span> +<span id="L911" class="LineNr"> 911 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L912" class="LineNr"> 912 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># restore ed</span> +<span id="L914" class="LineNr"> 914 </span> 89/<- %edx 4/r32/esp +<span id="L915" class="LineNr"> 915 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L916" class="LineNr"> 916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L917" class="Folded"> 917 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># check output</span> +<span id="L924" class="LineNr"> 924 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L891'>test-function-with-addr-inout</a>: output should be empty"</span>) +<span id="L925" class="LineNr"> 925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L891'>test-function-with-addr-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L926" class="LineNr"> 926 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L927" class="LineNr"> 927 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L891'>test-function-with-addr-inout</a>: exit status"</span>) +<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L929" class="LineNr"> 929 </span> 81 0/subop/add %esp 8/imm32 +<span id="L930" class="LineNr"> 930 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L931" class="LineNr"> 931 </span> 5d/pop-to-ebp +<span id="L932" class="LineNr"> 932 </span> c3/return +<span id="L933" class="LineNr"> 933 </span> +<span id="L934" class="LineNr"> 934 </span><span class="subxTest">test-function-with-addr-inout-2</span>: +<span id="L935" class="LineNr"> 935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L936" class="LineNr"> 936 </span> 55/push-ebp +<span id="L937" class="LineNr"> 937 </span> 89/<- %ebp 4/r32/esp +<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># setup</span> +<span id="L939" class="LineNr"> 939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L940" class="LineNr"> 940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L941" class="LineNr"> 941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L942" class="LineNr"> 942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L943" class="LineNr"> 943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L944" class="LineNr"> 944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L945" class="LineNr"> 945 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L946" class="LineNr"> 946 </span> 68/push 0/imm32 +<span id="L947" class="LineNr"> 947 </span> 68/push 0/imm32 +<span id="L948" class="LineNr"> 948 </span> 89/<- %edx 4/r32/esp +<span id="L949" class="LineNr"> 949 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L950" class="LineNr"> 950 </span> <span class="subxComment">#</span> +<span id="L951" class="LineNr"> 951 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array addr int) {\n"</span>) +<span id="L952" class="LineNr"> 952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L953" class="LineNr"> 953 </span> <span class="subxComment"># convert</span> +<span id="L954" class="LineNr"> 954 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L956" class="LineNr"> 956 </span> <span class="subxComment"># restore ed</span> +<span id="L957" class="LineNr"> 957 </span> 89/<- %edx 4/r32/esp +<span id="L958" class="LineNr"> 958 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L959" class="LineNr"> 959 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L960" class="Folded"> 960 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># check output</span> +<span id="L967" class="LineNr"> 967 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L934'>test-function-with-addr-inout-2</a>: output should be empty"</span>) +<span id="L968" class="LineNr"> 968 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L934'>test-function-with-addr-inout-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L969" class="LineNr"> 969 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L970" class="LineNr"> 970 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L934'>test-function-with-addr-inout-2</a>: exit status"</span>) +<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L972" class="LineNr"> 972 </span> 81 0/subop/add %esp 8/imm32 +<span id="L973" class="LineNr"> 973 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L974" class="LineNr"> 974 </span> 5d/pop-to-ebp +<span id="L975" class="LineNr"> 975 </span> c3/return +<span id="L976" class="LineNr"> 976 </span> +<span id="L977" class="LineNr"> 977 </span><span class="subxTest">test-function-with-addr-inout-3</span>: +<span id="L978" class="LineNr"> 978 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L979" class="LineNr"> 979 </span> 55/push-ebp +<span id="L980" class="LineNr"> 980 </span> 89/<- %ebp 4/r32/esp +<span id="L981" class="LineNr"> 981 </span> <span class="subxComment"># setup</span> +<span id="L982" class="LineNr"> 982 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L983" class="LineNr"> 983 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L984" class="LineNr"> 984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L985" class="LineNr"> 985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L986" class="LineNr"> 986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L987" class="LineNr"> 987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L988" class="LineNr"> 988 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L989" class="LineNr"> 989 </span> 68/push 0/imm32 +<span id="L990" class="LineNr"> 990 </span> 68/push 0/imm32 +<span id="L991" class="LineNr"> 991 </span> 89/<- %edx 4/r32/esp +<span id="L992" class="LineNr"> 992 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L993" class="LineNr"> 993 </span> <span class="subxComment">#</span> +<span id="L994" class="LineNr"> 994 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array (addr int) 3) {\n"</span>) +<span id="L995" class="LineNr"> 995 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># convert</span> +<span id="L997" class="LineNr"> 997 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># restore ed</span> +<span id="L1000" class="LineNr"> 1000 </span> 89/<- %edx 4/r32/esp +<span id="L1001" class="LineNr"> 1001 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1002" class="LineNr"> 1002 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1003" class="Folded"> 1003 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1009" class="LineNr"> 1009 </span> <span class="subxComment"># check output</span> +<span id="L1010" class="LineNr"> 1010 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L977'>test-function-with-addr-inout-3</a>: output should be empty"</span>) +<span id="L1011" class="LineNr"> 1011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L977'>test-function-with-addr-inout-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1012" class="LineNr"> 1012 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1013" class="LineNr"> 1013 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L977'>test-function-with-addr-inout-3</a>: exit status"</span>) +<span id="L1014" class="LineNr"> 1014 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1015" class="LineNr"> 1015 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1016" class="LineNr"> 1016 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1017" class="LineNr"> 1017 </span> 5d/pop-to-ebp +<span id="L1018" class="LineNr"> 1018 </span> c3/return +<span id="L1019" class="LineNr"> 1019 </span> +<span id="L1020" class="LineNr"> 1020 </span><span class="subxTest">test-function-with-addr-inout-4</span>: +<span id="L1021" class="LineNr"> 1021 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1022" class="LineNr"> 1022 </span> 55/push-ebp +<span id="L1023" class="LineNr"> 1023 </span> 89/<- %ebp 4/r32/esp +<span id="L1024" class="LineNr"> 1024 </span> <span class="subxComment"># setup</span> +<span id="L1025" class="LineNr"> 1025 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1026" class="LineNr"> 1026 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1027" class="LineNr"> 1027 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1028" class="LineNr"> 1028 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1029" class="LineNr"> 1029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1030" class="LineNr"> 1030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1031" class="LineNr"> 1031 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1032" class="LineNr"> 1032 </span> 68/push 0/imm32 +<span id="L1033" class="LineNr"> 1033 </span> 68/push 0/imm32 +<span id="L1034" class="LineNr"> 1034 </span> 89/<- %edx 4/r32/esp +<span id="L1035" class="LineNr"> 1035 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1036" class="LineNr"> 1036 </span> <span class="subxComment">#</span> +<span id="L1037" class="LineNr"> 1037 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (array (addr int) 3) {\n"</span>) +<span id="L1038" class="LineNr"> 1038 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1039" class="LineNr"> 1039 </span> <span class="subxComment"># convert</span> +<span id="L1040" class="LineNr"> 1040 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1041" class="LineNr"> 1041 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1042" class="LineNr"> 1042 </span> <span class="subxComment"># restore ed</span> +<span id="L1043" class="LineNr"> 1043 </span> 89/<- %edx 4/r32/esp +<span id="L1044" class="LineNr"> 1044 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1045" class="LineNr"> 1045 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1046" class="Folded"> 1046 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1052" class="LineNr"> 1052 </span> <span class="subxComment"># check output</span> +<span id="L1053" class="LineNr"> 1053 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1020'>test-function-with-addr-inout-4</a>: output should be empty"</span>) +<span id="L1054" class="LineNr"> 1054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: inout 'a' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function"</span> <span class="Constant">"F - <a href='mu.subx.html#L1020'>test-function-with-addr-inout-4</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1055" class="LineNr"> 1055 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1056" class="LineNr"> 1056 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1020'>test-function-with-addr-inout-4</a>: exit status"</span>) +<span id="L1057" class="LineNr"> 1057 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1058" class="LineNr"> 1058 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1059" class="LineNr"> 1059 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1060" class="LineNr"> 1060 </span> 5d/pop-to-ebp +<span id="L1061" class="LineNr"> 1061 </span> c3/return +<span id="L1062" class="LineNr"> 1062 </span> +<span id="L1063" class="LineNr"> 1063 </span><span class="subxComment"># 'main' is an exception</span> +<span id="L1064" class="LineNr"> 1064 </span><span class="subxTest">test-function-main-with-addr-inout</span>: +<span id="L1065" class="LineNr"> 1065 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1066" class="LineNr"> 1066 </span> 55/push-ebp +<span id="L1067" class="LineNr"> 1067 </span> 89/<- %ebp 4/r32/esp +<span id="L1068" class="LineNr"> 1068 </span> <span class="subxComment"># setup</span> +<span id="L1069" class="LineNr"> 1069 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1070" class="LineNr"> 1070 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1071" class="LineNr"> 1071 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1072" class="LineNr"> 1072 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1073" class="LineNr"> 1073 </span> <span class="subxComment">#</span> +<span id="L1074" class="LineNr"> 1074 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main a: (addr addr int) {\n"</span>) +<span id="L1075" class="LineNr"> 1075 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1076" class="LineNr"> 1076 </span> <span class="subxComment"># convert</span> +<span id="L1077" class="LineNr"> 1077 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1078" class="LineNr"> 1078 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1079" class="LineNr"> 1079 </span> <span class="subxComment"># no errors</span> +<span id="L1080" class="LineNr"> 1080 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1081" class="LineNr"> 1081 </span> 89/<- %esp 5/r32/ebp +<span id="L1082" class="LineNr"> 1082 </span> 5d/pop-to-ebp +<span id="L1083" class="LineNr"> 1083 </span> c3/return +<span id="L1084" class="LineNr"> 1084 </span> +<span id="L1085" class="LineNr"> 1085 </span><span class="subxComment"># 'lookup' is an exception, but only in signatures</span> +<span id="L1086" class="LineNr"> 1086 </span><span class="subxTest">test-signature-lookup-with-addr-inout</span>: +<span id="L1087" class="LineNr"> 1087 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1088" class="LineNr"> 1088 </span> 55/push-ebp +<span id="L1089" class="LineNr"> 1089 </span> 89/<- %ebp 4/r32/esp +<span id="L1090" class="LineNr"> 1090 </span> <span class="subxComment"># setup</span> +<span id="L1091" class="LineNr"> 1091 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1092" class="LineNr"> 1092 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1093" class="LineNr"> 1093 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1094" class="LineNr"> 1094 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1095" class="LineNr"> 1095 </span> <span class="subxComment">#</span> +<span id="L1096" class="LineNr"> 1096 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig <a href='120allocate.subx.html#L258'>lookup</a> h: (handle _T) -> _/eax: (addr _T)\n"</span>) +<span id="L1097" class="LineNr"> 1097 </span> <span class="subxComment"># convert</span> +<span id="L1098" class="LineNr"> 1098 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1099" class="LineNr"> 1099 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1100" class="LineNr"> 1100 </span> <span class="subxComment"># no errors</span> +<span id="L1101" class="LineNr"> 1101 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1102" class="LineNr"> 1102 </span> 89/<- %esp 5/r32/ebp +<span id="L1103" class="LineNr"> 1103 </span> 5d/pop-to-ebp +<span id="L1104" class="LineNr"> 1104 </span> c3/return +<span id="L1105" class="LineNr"> 1105 </span> +<span id="L1106" class="LineNr"> 1106 </span><span class="subxTest">test-convert-function-with-arg-and-body</span>: +<span id="L1107" class="LineNr"> 1107 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1108" class="LineNr"> 1108 </span> 55/push-ebp +<span id="L1109" class="LineNr"> 1109 </span> 89/<- %ebp 4/r32/esp +<span id="L1110" class="LineNr"> 1110 </span> <span class="subxComment"># setup</span> +<span id="L1111" class="LineNr"> 1111 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1112" class="LineNr"> 1112 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1113" class="LineNr"> 1113 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1114" class="LineNr"> 1114 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1115" class="LineNr"> 1115 </span> <span class="subxComment">#</span> +<span id="L1116" class="LineNr"> 1116 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo n: int {\n"</span>) +<span id="L1117" class="LineNr"> 1117 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment n\n"</span>) +<span id="L1118" class="LineNr"> 1118 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1119" class="LineNr"> 1119 </span> <span class="subxComment"># convert</span> +<span id="L1120" class="LineNr"> 1120 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1121" class="LineNr"> 1121 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1122" class="Folded"> 1122 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1128" class="LineNr"> 1128 </span> <span class="subxComment"># check output</span> +<span id="L1129" class="LineNr"> 1129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/0"</span>) +<span id="L1130" class="LineNr"> 1130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-arg-and-body/1"</span>) +<span id="L1131" class="LineNr"> 1131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/2"</span>) +<span id="L1132" class="LineNr"> 1132 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/3"</span>) +<span id="L1133" class="LineNr"> 1133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/4"</span>) +<span id="L1134" class="LineNr"> 1134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/5"</span>) +<span id="L1135" class="LineNr"> 1135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/6"</span>) +<span id="L1136" class="LineNr"> 1136 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/7"</span>) +<span id="L1137" class="LineNr"> 1137 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/8"</span>) +<span id="L1138" class="LineNr"> 1138 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-arg-and-body/9"</span>) +<span id="L1139" class="LineNr"> 1139 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/10"</span>) +<span id="L1140" class="LineNr"> 1140 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/11"</span>) +<span id="L1141" class="LineNr"> 1141 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1106'>test-convert-function-with-arg-and-body</a>/12"</span>) +<span id="L1142" class="LineNr"> 1142 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1143" class="LineNr"> 1143 </span> 89/<- %esp 5/r32/ebp +<span id="L1144" class="LineNr"> 1144 </span> 5d/pop-to-ebp +<span id="L1145" class="LineNr"> 1145 </span> c3/return +<span id="L1146" class="LineNr"> 1146 </span> +<span id="L1147" class="LineNr"> 1147 </span><span class="subxTest">test-convert-function-distinguishes-args</span>: +<span id="L1148" class="LineNr"> 1148 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1149" class="LineNr"> 1149 </span> 55/push-ebp +<span id="L1150" class="LineNr"> 1150 </span> 89/<- %ebp 4/r32/esp +<span id="L1151" class="LineNr"> 1151 </span> <span class="subxComment"># setup</span> +<span id="L1152" class="LineNr"> 1152 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1153" class="LineNr"> 1153 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1154" class="LineNr"> 1154 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1155" class="LineNr"> 1155 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1156" class="LineNr"> 1156 </span> <span class="subxComment">#</span> +<span id="L1157" class="LineNr"> 1157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int {\n"</span>) +<span id="L1158" class="LineNr"> 1158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment b\n"</span>) +<span id="L1159" class="LineNr"> 1159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1160" class="LineNr"> 1160 </span> <span class="subxComment"># convert</span> +<span id="L1161" class="LineNr"> 1161 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1162" class="LineNr"> 1162 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1163" class="Folded"> 1163 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1169" class="LineNr"> 1169 </span> <span class="subxComment"># check output</span> +<span id="L1170" class="LineNr"> 1170 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/0"</span>) +<span id="L1171" class="LineNr"> 1171 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-distinguishes-args/1"</span>) +<span id="L1172" class="LineNr"> 1172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/2"</span>) +<span id="L1173" class="LineNr"> 1173 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/3"</span>) +<span id="L1174" class="LineNr"> 1174 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/4"</span>) +<span id="L1175" class="LineNr"> 1175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/5"</span>) +<span id="L1176" class="LineNr"> 1176 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/6"</span>) +<span id="L1177" class="LineNr"> 1177 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/7"</span>) +<span id="L1178" class="LineNr"> 1178 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/8"</span>) +<span id="L1179" class="LineNr"> 1179 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-distinguishes-args/9"</span>) +<span id="L1180" class="LineNr"> 1180 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/10"</span>) +<span id="L1181" class="LineNr"> 1181 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/11"</span>) +<span id="L1182" class="LineNr"> 1182 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1147'>test-convert-function-distinguishes-args</a>/12"</span>) +<span id="L1183" class="LineNr"> 1183 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1184" class="LineNr"> 1184 </span> 89/<- %esp 5/r32/ebp +<span id="L1185" class="LineNr"> 1185 </span> 5d/pop-to-ebp +<span id="L1186" class="LineNr"> 1186 </span> c3/return +<span id="L1187" class="LineNr"> 1187 </span> +<span id="L1188" class="LineNr"> 1188 </span><span class="subxTest">test-convert-function-with-return-literal</span>: +<span id="L1189" class="LineNr"> 1189 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1190" class="LineNr"> 1190 </span> 55/push-ebp +<span id="L1191" class="LineNr"> 1191 </span> 89/<- %ebp 4/r32/esp +<span id="L1192" class="LineNr"> 1192 </span> <span class="subxComment"># setup</span> +<span id="L1193" class="LineNr"> 1193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1194" class="LineNr"> 1194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1195" class="LineNr"> 1195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1196" class="LineNr"> 1196 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1197" class="LineNr"> 1197 </span> <span class="subxComment">#</span> +<span id="L1198" class="LineNr"> 1198 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1199" class="LineNr"> 1199 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) +<span id="L1200" class="LineNr"> 1200 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1201" class="LineNr"> 1201 </span> <span class="subxComment"># convert</span> +<span id="L1202" class="LineNr"> 1202 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1203" class="LineNr"> 1203 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1204" class="Folded"> 1204 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1210" class="LineNr"> 1210 </span> <span class="subxComment"># check output</span> +<span id="L1211" class="LineNr"> 1211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/0"</span>) +<span id="L1212" class="LineNr"> 1212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-literal/1"</span>) +<span id="L1213" class="LineNr"> 1213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/2"</span>) +<span id="L1214" class="LineNr"> 1214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/3"</span>) +<span id="L1215" class="LineNr"> 1215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/4"</span>) +<span id="L1216" class="LineNr"> 1216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/5"</span>) +<span id="L1217" class="LineNr"> 1217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/6"</span>) +<span id="L1218" class="LineNr"> 1218 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/7"</span>) +<span id="L1219" class="LineNr"> 1219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/8"</span>) +<span id="L1220" class="LineNr"> 1220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/9"</span>) +<span id="L1221" class="LineNr"> 1221 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-literal/10"</span>) +<span id="L1222" class="LineNr"> 1222 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/11"</span>) +<span id="L1223" class="LineNr"> 1223 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/12"</span>) +<span id="L1224" class="LineNr"> 1224 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1188'>test-convert-function-with-return-literal</a>/13"</span>) +<span id="L1225" class="LineNr"> 1225 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1226" class="LineNr"> 1226 </span> 89/<- %esp 5/r32/ebp +<span id="L1227" class="LineNr"> 1227 </span> 5d/pop-to-ebp +<span id="L1228" class="LineNr"> 1228 </span> c3/return +<span id="L1229" class="LineNr"> 1229 </span> +<span id="L1230" class="LineNr"> 1230 </span><span class="subxTest">test-convert-function-with-return</span>: +<span id="L1231" class="LineNr"> 1231 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1232" class="LineNr"> 1232 </span> 55/push-ebp +<span id="L1233" class="LineNr"> 1233 </span> 89/<- %ebp 4/r32/esp +<span id="L1234" class="LineNr"> 1234 </span> <span class="subxComment"># setup</span> +<span id="L1235" class="LineNr"> 1235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1236" class="LineNr"> 1236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1237" class="LineNr"> 1237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1238" class="LineNr"> 1238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1239" class="LineNr"> 1239 </span> <span class="subxComment">#</span> +<span id="L1240" class="LineNr"> 1240 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1241" class="LineNr"> 1241 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L1242" class="LineNr"> 1242 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) +<span id="L1243" class="LineNr"> 1243 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1244" class="LineNr"> 1244 </span> <span class="subxComment"># convert</span> +<span id="L1245" class="LineNr"> 1245 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1246" class="LineNr"> 1246 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1247" class="Folded"> 1247 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1253" class="LineNr"> 1253 </span> <span class="subxComment"># check output</span> +<span id="L1254" class="LineNr"> 1254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/0"</span>) +<span id="L1255" class="LineNr"> 1255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return/1"</span>) +<span id="L1256" class="LineNr"> 1256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/2"</span>) +<span id="L1257" class="LineNr"> 1257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/3"</span>) +<span id="L1258" class="LineNr"> 1258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/4"</span>) +<span id="L1259" class="LineNr"> 1259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/5"</span>) +<span id="L1260" class="LineNr"> 1260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/6"</span>) <span class="subxComment"># y</span> +<span id="L1261" class="LineNr"> 1261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/7"</span>) +<span id="L1262" class="LineNr"> 1262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/8"</span>) +<span id="L1263" class="LineNr"> 1263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/9"</span>) +<span id="L1264" class="LineNr"> 1264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/10"</span>) +<span id="L1265" class="LineNr"> 1265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/11"</span>) +<span id="L1266" class="LineNr"> 1266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return/12"</span>) +<span id="L1267" class="LineNr"> 1267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/13"</span>) +<span id="L1268" class="LineNr"> 1268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/14"</span>) +<span id="L1269" class="LineNr"> 1269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/15"</span>) +<span id="L1270" class="LineNr"> 1270 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1271" class="LineNr"> 1271 </span> 89/<- %esp 5/r32/ebp +<span id="L1272" class="LineNr"> 1272 </span> 5d/pop-to-ebp +<span id="L1273" class="LineNr"> 1273 </span> c3/return +<span id="L1274" class="LineNr"> 1274 </span> +<span id="L1275" class="LineNr"> 1275 </span><span class="subxTest">test-convert-function-with-return-float</span>: +<span id="L1276" class="LineNr"> 1276 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1277" class="LineNr"> 1277 </span> 55/push-ebp +<span id="L1278" class="LineNr"> 1278 </span> 89/<- %ebp 4/r32/esp +<span id="L1279" class="LineNr"> 1279 </span> <span class="subxComment"># setup</span> +<span id="L1280" class="LineNr"> 1280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1281" class="LineNr"> 1281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1282" class="LineNr"> 1282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1283" class="LineNr"> 1283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1284" class="LineNr"> 1284 </span> <span class="subxComment">#</span> +<span id="L1285" class="LineNr"> 1285 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm0: float {\n"</span>) +<span id="L1286" class="LineNr"> 1286 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: float\n"</span>) +<span id="L1287" class="LineNr"> 1287 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) +<span id="L1288" class="LineNr"> 1288 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1289" class="LineNr"> 1289 </span> <span class="subxComment"># convert</span> +<span id="L1290" class="LineNr"> 1290 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1291" class="LineNr"> 1291 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1292" class="Folded"> 1292 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1298" class="LineNr"> 1298 </span> <span class="subxComment"># check output</span> +<span id="L1299" class="LineNr"> 1299 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/0"</span>) +<span id="L1300" class="LineNr"> 1300 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return/1"</span>) +<span id="L1301" class="LineNr"> 1301 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/2"</span>) +<span id="L1302" class="LineNr"> 1302 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/3"</span>) +<span id="L1303" class="LineNr"> 1303 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/4"</span>) +<span id="L1304" class="LineNr"> 1304 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/5"</span>) +<span id="L1305" class="LineNr"> 1305 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/6"</span>) <span class="subxComment"># y</span> +<span id="L1306" class="LineNr"> 1306 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *(ebp+0xfffffffc) 0x00000000/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/7"</span>) +<span id="L1307" class="LineNr"> 1307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/8"</span>) +<span id="L1308" class="LineNr"> 1308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/9"</span>) +<span id="L1309" class="LineNr"> 1309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/10"</span>) +<span id="L1310" class="LineNr"> 1310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/11"</span>) +<span id="L1311" class="LineNr"> 1311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return/12"</span>) +<span id="L1312" class="LineNr"> 1312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/13"</span>) +<span id="L1313" class="LineNr"> 1313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/14"</span>) +<span id="L1314" class="LineNr"> 1314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1230'>test-convert-function-with-return</a>/15"</span>) +<span id="L1315" class="LineNr"> 1315 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1316" class="LineNr"> 1316 </span> 89/<- %esp 5/r32/ebp +<span id="L1317" class="LineNr"> 1317 </span> 5d/pop-to-ebp +<span id="L1318" class="LineNr"> 1318 </span> c3/return +<span id="L1319" class="LineNr"> 1319 </span> +<span id="L1320" class="LineNr"> 1320 </span><span class="subxTest">test-convert-function-with-return-register</span>: +<span id="L1321" class="LineNr"> 1321 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1322" class="LineNr"> 1322 </span> 55/push-ebp +<span id="L1323" class="LineNr"> 1323 </span> 89/<- %ebp 4/r32/esp +<span id="L1324" class="LineNr"> 1324 </span> <span class="subxComment"># setup</span> +<span id="L1325" class="LineNr"> 1325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1326" class="LineNr"> 1326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1327" class="LineNr"> 1327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1328" class="LineNr"> 1328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1329" class="LineNr"> 1329 </span> <span class="subxComment">#</span> +<span id="L1330" class="LineNr"> 1330 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1331" class="LineNr"> 1331 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) +<span id="L1332" class="LineNr"> 1332 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) +<span id="L1333" class="LineNr"> 1333 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1334" class="LineNr"> 1334 </span> <span class="subxComment"># convert</span> +<span id="L1335" class="LineNr"> 1335 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1336" class="LineNr"> 1336 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1337" class="Folded"> 1337 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1343" class="LineNr"> 1343 </span> <span class="subxComment"># check output</span> +<span id="L1344" class="LineNr"> 1344 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/0"</span>) +<span id="L1345" class="LineNr"> 1345 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register/1"</span>) +<span id="L1346" class="LineNr"> 1346 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/2"</span>) +<span id="L1347" class="LineNr"> 1347 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/3"</span>) +<span id="L1348" class="LineNr"> 1348 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/4"</span>) +<span id="L1349" class="LineNr"> 1349 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/5"</span>) +<span id="L1350" class="LineNr"> 1350 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/6"</span>) +<span id="L1351" class="LineNr"> 1351 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/7"</span>) +<span id="L1352" class="LineNr"> 1352 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/8"</span>) +<span id="L1353" class="LineNr"> 1353 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/9"</span>) +<span id="L1354" class="LineNr"> 1354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/10"</span>) +<span id="L1355" class="LineNr"> 1355 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/11"</span>) +<span id="L1356" class="LineNr"> 1356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/12"</span>) +<span id="L1357" class="LineNr"> 1357 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register/13"</span>) +<span id="L1358" class="LineNr"> 1358 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/14"</span>) +<span id="L1359" class="LineNr"> 1359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/15"</span>) +<span id="L1360" class="LineNr"> 1360 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1320'>test-convert-function-with-return-register</a>/16"</span>) +<span id="L1361" class="LineNr"> 1361 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1362" class="LineNr"> 1362 </span> 89/<- %esp 5/r32/ebp +<span id="L1363" class="LineNr"> 1363 </span> 5d/pop-to-ebp +<span id="L1364" class="LineNr"> 1364 </span> c3/return +<span id="L1365" class="LineNr"> 1365 </span> +<span id="L1366" class="LineNr"> 1366 </span><span class="subxTest">test-function-with-output-without-register</span>: +<span id="L1367" class="LineNr"> 1367 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1368" class="LineNr"> 1368 </span> 55/push-ebp +<span id="L1369" class="LineNr"> 1369 </span> 89/<- %ebp 4/r32/esp +<span id="L1370" class="LineNr"> 1370 </span> <span class="subxComment"># setup</span> +<span id="L1371" class="LineNr"> 1371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1372" class="LineNr"> 1372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1373" class="LineNr"> 1373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1374" class="LineNr"> 1374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1375" class="LineNr"> 1375 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1376" class="LineNr"> 1376 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1377" class="LineNr"> 1377 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1378" class="LineNr"> 1378 </span> 68/push 0/imm32 +<span id="L1379" class="LineNr"> 1379 </span> 68/push 0/imm32 +<span id="L1380" class="LineNr"> 1380 </span> 89/<- %edx 4/r32/esp +<span id="L1381" class="LineNr"> 1381 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1382" class="LineNr"> 1382 </span> <span class="subxComment">#</span> +<span id="L1383" class="LineNr"> 1383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _: int {\n"</span>) +<span id="L1384" class="LineNr"> 1384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1385" class="LineNr"> 1385 </span> <span class="subxComment"># convert</span> +<span id="L1386" class="LineNr"> 1386 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1387" class="LineNr"> 1387 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1388" class="LineNr"> 1388 </span> <span class="subxComment"># restore ed</span> +<span id="L1389" class="LineNr"> 1389 </span> 89/<- %edx 4/r32/esp +<span id="L1390" class="LineNr"> 1390 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1391" class="LineNr"> 1391 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1392" class="Folded"> 1392 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1398" class="LineNr"> 1398 </span> <span class="subxComment"># check output</span> +<span id="L1399" class="LineNr"> 1399 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1366'>test-function-with-output-without-register</a>: output should be empty"</span>) +<span id="L1400" class="LineNr"> 1400 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: function output '_' must be in a register, in instruction 'fn foo -> _: int {"</span> <span class="Constant">"F - test-function-with-output-without-register: error message"</span>) +<span id="L1401" class="LineNr"> 1401 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1402" class="LineNr"> 1402 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1366'>test-function-with-output-without-register</a>: exit status"</span>) +<span id="L1403" class="LineNr"> 1403 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1404" class="LineNr"> 1404 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1405" class="LineNr"> 1405 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1406" class="LineNr"> 1406 </span> 5d/pop-to-ebp +<span id="L1407" class="LineNr"> 1407 </span> c3/return +<span id="L1408" class="LineNr"> 1408 </span> +<span id="L1409" class="LineNr"> 1409 </span><span class="subxTest">test-function-with-outputs-in-conflicting-registers</span>: +<span id="L1410" class="LineNr"> 1410 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1411" class="LineNr"> 1411 </span> 55/push-ebp +<span id="L1412" class="LineNr"> 1412 </span> 89/<- %ebp 4/r32/esp +<span id="L1413" class="LineNr"> 1413 </span> <span class="subxComment"># setup</span> +<span id="L1414" class="LineNr"> 1414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1415" class="LineNr"> 1415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1416" class="LineNr"> 1416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1417" class="LineNr"> 1417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1418" class="LineNr"> 1418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1419" class="LineNr"> 1419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1420" class="LineNr"> 1420 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1421" class="LineNr"> 1421 </span> 68/push 0/imm32 +<span id="L1422" class="LineNr"> 1422 </span> 68/push 0/imm32 +<span id="L1423" class="LineNr"> 1423 </span> 89/<- %edx 4/r32/esp +<span id="L1424" class="LineNr"> 1424 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1425" class="LineNr"> 1425 </span> <span class="subxComment">#</span> +<span id="L1426" class="LineNr"> 1426 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/eax: int {\n"</span>) +<span id="L1427" class="LineNr"> 1427 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1428" class="LineNr"> 1428 </span> <span class="subxComment"># convert</span> +<span id="L1429" class="LineNr"> 1429 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1430" class="LineNr"> 1430 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1431" class="LineNr"> 1431 </span> <span class="subxComment"># restore ed</span> +<span id="L1432" class="LineNr"> 1432 </span> 89/<- %edx 4/r32/esp +<span id="L1433" class="LineNr"> 1433 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1434" class="LineNr"> 1434 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1435" class="Folded"> 1435 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1441" class="LineNr"> 1441 </span> <span class="subxComment"># check output</span> +<span id="L1442" class="LineNr"> 1442 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1409'>test-function-with-outputs-in-conflicting-registers</a>: output should be empty"</span>) +<span id="L1443" class="LineNr"> 1443 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: outputs must be in unique registers"</span> <span class="Constant">"F - <a href='mu.subx.html#L1409'>test-function-with-outputs-in-conflicting-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1444" class="LineNr"> 1444 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1445" class="LineNr"> 1445 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1409'>test-function-with-outputs-in-conflicting-registers</a>: exit status"</span>) +<span id="L1446" class="LineNr"> 1446 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1447" class="LineNr"> 1447 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1448" class="LineNr"> 1448 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1449" class="LineNr"> 1449 </span> 5d/pop-to-ebp +<span id="L1450" class="LineNr"> 1450 </span> c3/return +<span id="L1451" class="LineNr"> 1451 </span> +<span id="L1452" class="LineNr"> 1452 </span><span class="subxTest">test-function-with-named-output</span>: +<span id="L1453" class="LineNr"> 1453 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1454" class="LineNr"> 1454 </span> 55/push-ebp +<span id="L1455" class="LineNr"> 1455 </span> 89/<- %ebp 4/r32/esp +<span id="L1456" class="LineNr"> 1456 </span> <span class="subxComment"># setup</span> +<span id="L1457" class="LineNr"> 1457 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1458" class="LineNr"> 1458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1459" class="LineNr"> 1459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1460" class="LineNr"> 1460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1461" class="LineNr"> 1461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1462" class="LineNr"> 1462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1463" class="LineNr"> 1463 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1464" class="LineNr"> 1464 </span> 68/push 0/imm32 +<span id="L1465" class="LineNr"> 1465 </span> 68/push 0/imm32 +<span id="L1466" class="LineNr"> 1466 </span> 89/<- %edx 4/r32/esp +<span id="L1467" class="LineNr"> 1467 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1468" class="LineNr"> 1468 </span> <span class="subxComment">#</span> +<span id="L1469" class="LineNr"> 1469 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> x/eax: int {\n"</span>) +<span id="L1470" class="LineNr"> 1470 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) +<span id="L1471" class="LineNr"> 1471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1472" class="LineNr"> 1472 </span> <span class="subxComment"># convert</span> +<span id="L1473" class="LineNr"> 1473 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1474" class="LineNr"> 1474 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1475" class="LineNr"> 1475 </span> <span class="subxComment"># restore ed</span> +<span id="L1476" class="LineNr"> 1476 </span> 89/<- %edx 4/r32/esp +<span id="L1477" class="LineNr"> 1477 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1478" class="LineNr"> 1478 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1479" class="Folded"> 1479 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1485" class="LineNr"> 1485 </span> <span class="subxComment"># check output</span> +<span id="L1486" class="LineNr"> 1486 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1452'>test-function-with-named-output</a>: output should be empty"</span>) +<span id="L1487" class="LineNr"> 1487 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: function outputs cannot be named; rename 'x' in the header to '_'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1452'>test-function-with-named-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1488" class="LineNr"> 1488 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1489" class="LineNr"> 1489 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1452'>test-function-with-named-output</a>: exit status"</span>) +<span id="L1490" class="LineNr"> 1490 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1491" class="LineNr"> 1491 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1492" class="LineNr"> 1492 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1493" class="LineNr"> 1493 </span> 5d/pop-to-ebp +<span id="L1494" class="LineNr"> 1494 </span> c3/return +<span id="L1495" class="LineNr"> 1495 </span> +<span id="L1496" class="LineNr"> 1496 </span><span class="subxTest">test-return-with-wrong-type</span>: +<span id="L1497" class="LineNr"> 1497 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1498" class="LineNr"> 1498 </span> 55/push-ebp +<span id="L1499" class="LineNr"> 1499 </span> 89/<- %ebp 4/r32/esp +<span id="L1500" class="LineNr"> 1500 </span> <span class="subxComment"># setup</span> +<span id="L1501" class="LineNr"> 1501 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1502" class="LineNr"> 1502 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1503" class="LineNr"> 1503 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1504" class="LineNr"> 1504 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1505" class="LineNr"> 1505 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1506" class="LineNr"> 1506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1507" class="LineNr"> 1507 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1508" class="LineNr"> 1508 </span> 68/push 0/imm32 +<span id="L1509" class="LineNr"> 1509 </span> 68/push 0/imm32 +<span id="L1510" class="LineNr"> 1510 </span> 89/<- %edx 4/r32/esp +<span id="L1511" class="LineNr"> 1511 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1512" class="LineNr"> 1512 </span> <span class="subxComment">#</span> +<span id="L1513" class="LineNr"> 1513 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1514" class="LineNr"> 1514 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L1515" class="LineNr"> 1515 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return x\n"</span>) +<span id="L1516" class="LineNr"> 1516 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1517" class="LineNr"> 1517 </span> <span class="subxComment"># convert</span> +<span id="L1518" class="LineNr"> 1518 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1519" class="LineNr"> 1519 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1520" class="LineNr"> 1520 </span> <span class="subxComment"># restore ed</span> +<span id="L1521" class="LineNr"> 1521 </span> 89/<- %edx 4/r32/esp +<span id="L1522" class="LineNr"> 1522 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1523" class="LineNr"> 1523 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1524" class="Folded"> 1524 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1530" class="LineNr"> 1530 </span> <span class="subxComment"># check output</span> +<span id="L1531" class="LineNr"> 1531 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1496'>test-return-with-wrong-type</a>: output should be empty"</span>) +<span id="L1532" class="LineNr"> 1532 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: 'x' has the wrong type"</span> <span class="Constant">"F - <a href='mu.subx.html#L1496'>test-return-with-wrong-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1533" class="LineNr"> 1533 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1534" class="LineNr"> 1534 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1496'>test-return-with-wrong-type</a>: exit status"</span>) +<span id="L1535" class="LineNr"> 1535 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1536" class="LineNr"> 1536 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1537" class="LineNr"> 1537 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1538" class="LineNr"> 1538 </span> 5d/pop-to-ebp +<span id="L1539" class="LineNr"> 1539 </span> c3/return +<span id="L1540" class="LineNr"> 1540 </span> +<span id="L1541" class="LineNr"> 1541 </span><span class="subxTest">test-missing-return</span>: +<span id="L1542" class="LineNr"> 1542 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1543" class="LineNr"> 1543 </span> 55/push-ebp +<span id="L1544" class="LineNr"> 1544 </span> 89/<- %ebp 4/r32/esp +<span id="L1545" class="LineNr"> 1545 </span> <span class="subxComment"># setup</span> +<span id="L1546" class="LineNr"> 1546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1547" class="LineNr"> 1547 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1548" class="LineNr"> 1548 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1549" class="LineNr"> 1549 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1550" class="LineNr"> 1550 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1551" class="LineNr"> 1551 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1552" class="LineNr"> 1552 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1553" class="LineNr"> 1553 </span> 68/push 0/imm32 +<span id="L1554" class="LineNr"> 1554 </span> 68/push 0/imm32 +<span id="L1555" class="LineNr"> 1555 </span> 89/<- %edx 4/r32/esp +<span id="L1556" class="LineNr"> 1556 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1557" class="LineNr"> 1557 </span> <span class="subxComment">#</span> +<span id="L1558" class="LineNr"> 1558 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1559" class="LineNr"> 1559 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L1560" class="LineNr"> 1560 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1561" class="LineNr"> 1561 </span> <span class="subxComment"># convert</span> +<span id="L1562" class="LineNr"> 1562 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1563" class="LineNr"> 1563 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1564" class="LineNr"> 1564 </span> <span class="subxComment"># restore ed</span> +<span id="L1565" class="LineNr"> 1565 </span> 89/<- %edx 4/r32/esp +<span id="L1566" class="LineNr"> 1566 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1567" class="LineNr"> 1567 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1568" class="Folded"> 1568 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1574" class="LineNr"> 1574 </span> <span class="subxComment"># check output</span> +<span id="L1575" class="LineNr"> 1575 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1541'>test-missing-return</a>: output should be empty"</span>) +<span id="L1576" class="LineNr"> 1576 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: final statement should be a 'return'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1541'>test-missing-return</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1577" class="LineNr"> 1577 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1578" class="LineNr"> 1578 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1541'>test-missing-return</a>: exit status"</span>) +<span id="L1579" class="LineNr"> 1579 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1580" class="LineNr"> 1580 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1581" class="LineNr"> 1581 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1582" class="LineNr"> 1582 </span> 5d/pop-to-ebp +<span id="L1583" class="LineNr"> 1583 </span> c3/return +<span id="L1584" class="LineNr"> 1584 </span> +<span id="L1585" class="LineNr"> 1585 </span><span class="subxTest">test-missing-return-2</span>: +<span id="L1586" class="LineNr"> 1586 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1587" class="LineNr"> 1587 </span> 55/push-ebp +<span id="L1588" class="LineNr"> 1588 </span> 89/<- %ebp 4/r32/esp +<span id="L1589" class="LineNr"> 1589 </span> <span class="subxComment"># setup</span> +<span id="L1590" class="LineNr"> 1590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1591" class="LineNr"> 1591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1592" class="LineNr"> 1592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1593" class="LineNr"> 1593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1594" class="LineNr"> 1594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1595" class="LineNr"> 1595 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1596" class="LineNr"> 1596 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1597" class="LineNr"> 1597 </span> 68/push 0/imm32 +<span id="L1598" class="LineNr"> 1598 </span> 68/push 0/imm32 +<span id="L1599" class="LineNr"> 1599 </span> 89/<- %edx 4/r32/esp +<span id="L1600" class="LineNr"> 1600 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1601" class="LineNr"> 1601 </span> <span class="subxComment">#</span> +<span id="L1602" class="LineNr"> 1602 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1603" class="LineNr"> 1603 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1604" class="LineNr"> 1604 </span> <span class="subxComment"># convert</span> +<span id="L1605" class="LineNr"> 1605 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1606" class="LineNr"> 1606 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1607" class="LineNr"> 1607 </span> <span class="subxComment"># restore ed</span> +<span id="L1608" class="LineNr"> 1608 </span> 89/<- %edx 4/r32/esp +<span id="L1609" class="LineNr"> 1609 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1610" class="LineNr"> 1610 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1611" class="Folded"> 1611 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1617" class="LineNr"> 1617 </span> <span class="subxComment"># check output</span> +<span id="L1618" class="LineNr"> 1618 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1585'>test-missing-return-2</a>: output should be empty"</span>) +<span id="L1619" class="LineNr"> 1619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: final statement should be a 'return'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1585'>test-missing-return-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1620" class="LineNr"> 1620 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1621" class="LineNr"> 1621 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1585'>test-missing-return-2</a>: exit status"</span>) +<span id="L1622" class="LineNr"> 1622 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1623" class="LineNr"> 1623 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1624" class="LineNr"> 1624 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1625" class="LineNr"> 1625 </span> 5d/pop-to-ebp +<span id="L1626" class="LineNr"> 1626 </span> c3/return +<span id="L1627" class="LineNr"> 1627 </span> +<span id="L1628" class="LineNr"> 1628 </span><span class="subxTest">test-early-exit-without-return</span>: +<span id="L1629" class="LineNr"> 1629 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1630" class="LineNr"> 1630 </span> 55/push-ebp +<span id="L1631" class="LineNr"> 1631 </span> 89/<- %ebp 4/r32/esp +<span id="L1632" class="LineNr"> 1632 </span> <span class="subxComment"># setup</span> +<span id="L1633" class="LineNr"> 1633 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1634" class="LineNr"> 1634 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1635" class="LineNr"> 1635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1636" class="LineNr"> 1636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1637" class="LineNr"> 1637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1638" class="LineNr"> 1638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1639" class="LineNr"> 1639 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1640" class="LineNr"> 1640 </span> 68/push 0/imm32 +<span id="L1641" class="LineNr"> 1641 </span> 68/push 0/imm32 +<span id="L1642" class="LineNr"> 1642 </span> 89/<- %edx 4/r32/esp +<span id="L1643" class="LineNr"> 1643 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1644" class="LineNr"> 1644 </span> <span class="subxComment">#</span> +<span id="L1645" class="LineNr"> 1645 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1646" class="LineNr"> 1646 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break\n"</span>) +<span id="L1647" class="LineNr"> 1647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) +<span id="L1648" class="LineNr"> 1648 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1649" class="LineNr"> 1649 </span> <span class="subxComment"># convert</span> +<span id="L1650" class="LineNr"> 1650 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1651" class="LineNr"> 1651 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1652" class="LineNr"> 1652 </span> <span class="subxComment"># restore ed</span> +<span id="L1653" class="LineNr"> 1653 </span> 89/<- %edx 4/r32/esp +<span id="L1654" class="LineNr"> 1654 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1655" class="LineNr"> 1655 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1656" class="Folded"> 1656 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1662" class="LineNr"> 1662 </span> <span class="subxComment"># check output</span> +<span id="L1663" class="LineNr"> 1663 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1628'>test-early-exit-without-return</a>: output should be empty"</span>) +<span id="L1664" class="LineNr"> 1664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo has outputs, so you cannot 'break' out of the outermost block. Use 'return'."</span> <span class="Constant">"F - <a href='mu.subx.html#L1628'>test-early-exit-without-return</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1665" class="LineNr"> 1665 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1666" class="LineNr"> 1666 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1628'>test-early-exit-without-return</a>: exit status"</span>) +<span id="L1667" class="LineNr"> 1667 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1668" class="LineNr"> 1668 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1669" class="LineNr"> 1669 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1670" class="LineNr"> 1670 </span> 5d/pop-to-ebp +<span id="L1671" class="LineNr"> 1671 </span> c3/return +<span id="L1672" class="LineNr"> 1672 </span> +<span id="L1673" class="LineNr"> 1673 </span><span class="subxTest">test-return-with-too-few-inouts</span>: +<span id="L1674" class="LineNr"> 1674 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1675" class="LineNr"> 1675 </span> 55/push-ebp +<span id="L1676" class="LineNr"> 1676 </span> 89/<- %ebp 4/r32/esp +<span id="L1677" class="LineNr"> 1677 </span> <span class="subxComment"># setup</span> +<span id="L1678" class="LineNr"> 1678 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1679" class="LineNr"> 1679 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1680" class="LineNr"> 1680 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1681" class="LineNr"> 1681 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1682" class="LineNr"> 1682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1683" class="LineNr"> 1683 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1684" class="LineNr"> 1684 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1685" class="LineNr"> 1685 </span> 68/push 0/imm32 +<span id="L1686" class="LineNr"> 1686 </span> 68/push 0/imm32 +<span id="L1687" class="LineNr"> 1687 </span> 89/<- %edx 4/r32/esp +<span id="L1688" class="LineNr"> 1688 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1689" class="LineNr"> 1689 </span> <span class="subxComment">#</span> +<span id="L1690" class="LineNr"> 1690 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1691" class="LineNr"> 1691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return\n"</span>) +<span id="L1692" class="LineNr"> 1692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1693" class="LineNr"> 1693 </span> <span class="subxComment"># convert</span> +<span id="L1694" class="LineNr"> 1694 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1695" class="LineNr"> 1695 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1696" class="LineNr"> 1696 </span> <span class="subxComment"># restore ed</span> +<span id="L1697" class="LineNr"> 1697 </span> 89/<- %edx 4/r32/esp +<span id="L1698" class="LineNr"> 1698 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1699" class="LineNr"> 1699 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1700" class="Folded"> 1700 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1706" class="LineNr"> 1706 </span> <span class="subxComment"># check output</span> +<span id="L1707" class="LineNr"> 1707 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1673'>test-return-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L1708" class="LineNr"> 1708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1673'>test-return-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1709" class="LineNr"> 1709 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1710" class="LineNr"> 1710 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1673'>test-return-with-too-few-inouts</a>: exit status"</span>) +<span id="L1711" class="LineNr"> 1711 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1712" class="LineNr"> 1712 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1713" class="LineNr"> 1713 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1714" class="LineNr"> 1714 </span> 5d/pop-to-ebp +<span id="L1715" class="LineNr"> 1715 </span> c3/return +<span id="L1716" class="LineNr"> 1716 </span> +<span id="L1717" class="LineNr"> 1717 </span><span class="subxTest">test-return-with-too-many-inouts</span>: +<span id="L1718" class="LineNr"> 1718 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1719" class="LineNr"> 1719 </span> 55/push-ebp +<span id="L1720" class="LineNr"> 1720 </span> 89/<- %ebp 4/r32/esp +<span id="L1721" class="LineNr"> 1721 </span> <span class="subxComment"># setup</span> +<span id="L1722" class="LineNr"> 1722 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1723" class="LineNr"> 1723 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1724" class="LineNr"> 1724 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1725" class="LineNr"> 1725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1726" class="LineNr"> 1726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1727" class="LineNr"> 1727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1728" class="LineNr"> 1728 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1729" class="LineNr"> 1729 </span> 68/push 0/imm32 +<span id="L1730" class="LineNr"> 1730 </span> 68/push 0/imm32 +<span id="L1731" class="LineNr"> 1731 </span> 89/<- %edx 4/r32/esp +<span id="L1732" class="LineNr"> 1732 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1733" class="LineNr"> 1733 </span> <span class="subxComment">#</span> +<span id="L1734" class="LineNr"> 1734 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L1735" class="LineNr"> 1735 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0, 0\n"</span>) +<span id="L1736" class="LineNr"> 1736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1737" class="LineNr"> 1737 </span> <span class="subxComment"># convert</span> +<span id="L1738" class="LineNr"> 1738 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1739" class="LineNr"> 1739 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1740" class="LineNr"> 1740 </span> <span class="subxComment"># restore ed</span> +<span id="L1741" class="LineNr"> 1741 </span> 89/<- %edx 4/r32/esp +<span id="L1742" class="LineNr"> 1742 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1743" class="LineNr"> 1743 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1744" class="Folded"> 1744 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1750" class="LineNr"> 1750 </span> <span class="subxComment"># check output</span> +<span id="L1751" class="LineNr"> 1751 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1717'>test-return-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L1752" class="LineNr"> 1752 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L1717'>test-return-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1753" class="LineNr"> 1753 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1754" class="LineNr"> 1754 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1717'>test-return-with-too-many-inouts</a>: exit status"</span>) +<span id="L1755" class="LineNr"> 1755 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1756" class="LineNr"> 1756 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1757" class="LineNr"> 1757 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1758" class="LineNr"> 1758 </span> 5d/pop-to-ebp +<span id="L1759" class="LineNr"> 1759 </span> c3/return +<span id="L1760" class="LineNr"> 1760 </span> +<span id="L1761" class="LineNr"> 1761 </span><span class="subxTest">test-return-unavailable-value</span>: +<span id="L1762" class="LineNr"> 1762 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1763" class="LineNr"> 1763 </span> 55/push-ebp +<span id="L1764" class="LineNr"> 1764 </span> 89/<- %ebp 4/r32/esp +<span id="L1765" class="LineNr"> 1765 </span> <span class="subxComment"># setup</span> +<span id="L1766" class="LineNr"> 1766 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1767" class="LineNr"> 1767 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1768" class="LineNr"> 1768 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1769" class="LineNr"> 1769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1770" class="LineNr"> 1770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1771" class="LineNr"> 1771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1772" class="LineNr"> 1772 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1773" class="LineNr"> 1773 </span> 68/push 0/imm32 +<span id="L1774" class="LineNr"> 1774 </span> 68/push 0/imm32 +<span id="L1775" class="LineNr"> 1775 </span> 89/<- %edx 4/r32/esp +<span id="L1776" class="LineNr"> 1776 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1777" class="LineNr"> 1777 </span> <span class="subxComment">#</span> +<span id="L1778" class="LineNr"> 1778 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/ecx: int {\n"</span>) +<span id="L1779" class="LineNr"> 1779 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L1780" class="LineNr"> 1780 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 0\n"</span>) +<span id="L1781" class="LineNr"> 1781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y, x\n"</span>) +<span id="L1782" class="LineNr"> 1782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1783" class="LineNr"> 1783 </span> <span class="subxComment"># convert</span> +<span id="L1784" class="LineNr"> 1784 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1785" class="LineNr"> 1785 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1786" class="LineNr"> 1786 </span> <span class="subxComment"># restore ed</span> +<span id="L1787" class="LineNr"> 1787 </span> 89/<- %edx 4/r32/esp +<span id="L1788" class="LineNr"> 1788 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1789" class="LineNr"> 1789 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1790" class="Folded"> 1790 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1796" class="LineNr"> 1796 </span> <span class="subxComment"># check output</span> +<span id="L1797" class="LineNr"> 1797 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1761'>test-return-unavailable-value</a>: output should be empty"</span>) +<span id="L1798" class="LineNr"> 1798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: 'x' is no longer available"</span> <span class="Constant">"F - <a href='mu.subx.html#L1761'>test-return-unavailable-value</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1799" class="LineNr"> 1799 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1800" class="LineNr"> 1800 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1761'>test-return-unavailable-value</a>: exit status"</span>) +<span id="L1801" class="LineNr"> 1801 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1802" class="LineNr"> 1802 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1803" class="LineNr"> 1803 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1804" class="LineNr"> 1804 </span> 5d/pop-to-ebp +<span id="L1805" class="LineNr"> 1805 </span> c3/return +<span id="L1806" class="LineNr"> 1806 </span> +<span id="L1807" class="LineNr"> 1807 </span><span class="subxTest">test-return-literal-to-float</span>: +<span id="L1808" class="LineNr"> 1808 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1809" class="LineNr"> 1809 </span> 55/push-ebp +<span id="L1810" class="LineNr"> 1810 </span> 89/<- %ebp 4/r32/esp +<span id="L1811" class="LineNr"> 1811 </span> <span class="subxComment"># setup</span> +<span id="L1812" class="LineNr"> 1812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1813" class="LineNr"> 1813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1814" class="LineNr"> 1814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1815" class="LineNr"> 1815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1816" class="LineNr"> 1816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1817" class="LineNr"> 1817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1818" class="LineNr"> 1818 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1819" class="LineNr"> 1819 </span> 68/push 0/imm32 +<span id="L1820" class="LineNr"> 1820 </span> 68/push 0/imm32 +<span id="L1821" class="LineNr"> 1821 </span> 89/<- %edx 4/r32/esp +<span id="L1822" class="LineNr"> 1822 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1823" class="LineNr"> 1823 </span> <span class="subxComment">#</span> +<span id="L1824" class="LineNr"> 1824 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm0: float {\n"</span>) +<span id="L1825" class="LineNr"> 1825 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) +<span id="L1826" class="LineNr"> 1826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1827" class="LineNr"> 1827 </span> <span class="subxComment"># convert</span> +<span id="L1828" class="LineNr"> 1828 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1829" class="LineNr"> 1829 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1830" class="LineNr"> 1830 </span> <span class="subxComment"># restore ed</span> +<span id="L1831" class="LineNr"> 1831 </span> 89/<- %edx 4/r32/esp +<span id="L1832" class="LineNr"> 1832 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1833" class="LineNr"> 1833 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1834" class="Folded"> 1834 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1840" class="LineNr"> 1840 </span> <span class="subxComment"># check output</span> +<span id="L1841" class="LineNr"> 1841 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1807'>test-return-literal-to-float</a>: output should be empty"</span>) +<span id="L1842" class="LineNr"> 1842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: return: cannot copy literal '0' to float"</span> <span class="Constant">"F - <a href='mu.subx.html#L1807'>test-return-literal-to-float</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1843" class="LineNr"> 1843 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1844" class="LineNr"> 1844 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1807'>test-return-literal-to-float</a>: exit status"</span>) +<span id="L1845" class="LineNr"> 1845 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1846" class="LineNr"> 1846 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1847" class="LineNr"> 1847 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1848" class="LineNr"> 1848 </span> 5d/pop-to-ebp +<span id="L1849" class="LineNr"> 1849 </span> c3/return +<span id="L1850" class="LineNr"> 1850 </span> +<span id="L1851" class="LineNr"> 1851 </span><span class="subxTest">test-convert-return-with-duplicate-values</span>: +<span id="L1852" class="LineNr"> 1852 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1853" class="LineNr"> 1853 </span> 55/push-ebp +<span id="L1854" class="LineNr"> 1854 </span> 89/<- %ebp 4/r32/esp +<span id="L1855" class="LineNr"> 1855 </span> <span class="subxComment"># setup</span> +<span id="L1856" class="LineNr"> 1856 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1857" class="LineNr"> 1857 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1858" class="LineNr"> 1858 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1859" class="LineNr"> 1859 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1860" class="LineNr"> 1860 </span> <span class="subxComment">#</span> +<span id="L1861" class="LineNr"> 1861 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/ecx: int {\n"</span>) +<span id="L1862" class="LineNr"> 1862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0x34\n"</span>) +<span id="L1863" class="LineNr"> 1863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return x, x\n"</span>) +<span id="L1864" class="LineNr"> 1864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1865" class="LineNr"> 1865 </span> <span class="subxComment"># convert</span> +<span id="L1866" class="LineNr"> 1866 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1867" class="LineNr"> 1867 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1868" class="Folded"> 1868 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1874" class="LineNr"> 1874 </span> <span class="subxComment"># check output</span> +<span id="L1875" class="LineNr"> 1875 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/0"</span>) +<span id="L1876" class="LineNr"> 1876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values/1"</span>) +<span id="L1877" class="LineNr"> 1877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/2"</span>) +<span id="L1878" class="LineNr"> 1878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/3"</span>) +<span id="L1879" class="LineNr"> 1879 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/4"</span>) +<span id="L1880" class="LineNr"> 1880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/5"</span>) +<span id="L1881" class="LineNr"> 1881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/6"</span>) +<span id="L1882" class="LineNr"> 1882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0x34/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/7"</span>) +<span id="L1883" class="LineNr"> 1883 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/8"</span>) +<span id="L1884" class="LineNr"> 1884 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/9"</span>) +<span id="L1885" class="LineNr"> 1885 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/10"</span>) +<span id="L1886" class="LineNr"> 1886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/11"</span>) +<span id="L1887" class="LineNr"> 1887 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/12"</span>) +<span id="L1888" class="LineNr"> 1888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/13"</span>) +<span id="L1889" class="LineNr"> 1889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values/14"</span>) +<span id="L1890" class="LineNr"> 1890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/15"</span>) +<span id="L1891" class="LineNr"> 1891 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/16"</span>) +<span id="L1892" class="LineNr"> 1892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1851'>test-convert-return-with-duplicate-values</a>/17"</span>) +<span id="L1893" class="LineNr"> 1893 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1894" class="LineNr"> 1894 </span> 89/<- %esp 5/r32/ebp +<span id="L1895" class="LineNr"> 1895 </span> 5d/pop-to-ebp +<span id="L1896" class="LineNr"> 1896 </span> c3/return +<span id="L1897" class="LineNr"> 1897 </span> +<span id="L1898" class="LineNr"> 1898 </span><span class="subxTest">test-convert-return-with-duplicate-values-2</span>: +<span id="L1899" class="LineNr"> 1899 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1900" class="LineNr"> 1900 </span> 55/push-ebp +<span id="L1901" class="LineNr"> 1901 </span> 89/<- %ebp 4/r32/esp +<span id="L1902" class="LineNr"> 1902 </span> <span class="subxComment"># setup</span> +<span id="L1903" class="LineNr"> 1903 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1904" class="LineNr"> 1904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1905" class="LineNr"> 1905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1906" class="LineNr"> 1906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1907" class="LineNr"> 1907 </span> <span class="subxComment">#</span> +<span id="L1908" class="LineNr"> 1908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int, _/ecx: int {\n"</span>) +<span id="L1909" class="LineNr"> 1909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 0x34\n"</span>) +<span id="L1910" class="LineNr"> 1910 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return x, x\n"</span>) +<span id="L1911" class="LineNr"> 1911 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1912" class="LineNr"> 1912 </span> <span class="subxComment"># convert</span> +<span id="L1913" class="LineNr"> 1913 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L1914" class="LineNr"> 1914 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1915" class="Folded"> 1915 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1921" class="LineNr"> 1921 </span> <span class="subxComment"># check output</span> +<span id="L1922" class="LineNr"> 1922 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/0"</span>) +<span id="L1923" class="LineNr"> 1923 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values-2/1"</span>) +<span id="L1924" class="LineNr"> 1924 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/2"</span>) +<span id="L1925" class="LineNr"> 1925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/3"</span>) +<span id="L1926" class="LineNr"> 1926 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/4"</span>) +<span id="L1927" class="LineNr"> 1927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/5"</span>) +<span id="L1928" class="LineNr"> 1928 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/6"</span>) +<span id="L1929" class="LineNr"> 1929 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x34/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/7"</span>) +<span id="L1930" class="LineNr"> 1930 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/8"</span>) +<span id="L1931" class="LineNr"> 1931 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/9"</span>) +<span id="L1932" class="LineNr"> 1932 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/10"</span>) +<span id="L1933" class="LineNr"> 1933 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/11"</span>) +<span id="L1934" class="LineNr"> 1934 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/12"</span>) +<span id="L1935" class="LineNr"> 1935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/13"</span>) +<span id="L1936" class="LineNr"> 1936 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-return-with-duplicate-values-2/14"</span>) +<span id="L1937" class="LineNr"> 1937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/15"</span>) +<span id="L1938" class="LineNr"> 1938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/16"</span>) +<span id="L1939" class="LineNr"> 1939 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L1898'>test-convert-return-with-duplicate-values-2</a>/17"</span>) +<span id="L1940" class="LineNr"> 1940 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1941" class="LineNr"> 1941 </span> 89/<- %esp 5/r32/ebp +<span id="L1942" class="LineNr"> 1942 </span> 5d/pop-to-ebp +<span id="L1943" class="LineNr"> 1943 </span> c3/return +<span id="L1944" class="LineNr"> 1944 </span> +<span id="L1945" class="LineNr"> 1945 </span><span class="subxTest">test-stmt-with-unknown-var</span>: +<span id="L1946" class="LineNr"> 1946 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1947" class="LineNr"> 1947 </span> 55/push-ebp +<span id="L1948" class="LineNr"> 1948 </span> 89/<- %ebp 4/r32/esp +<span id="L1949" class="LineNr"> 1949 </span> <span class="subxComment"># setup</span> +<span id="L1950" class="LineNr"> 1950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1951" class="LineNr"> 1951 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1952" class="LineNr"> 1952 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1953" class="LineNr"> 1953 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1954" class="LineNr"> 1954 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1955" class="LineNr"> 1955 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L1956" class="LineNr"> 1956 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L1957" class="LineNr"> 1957 </span> 68/push 0/imm32 +<span id="L1958" class="LineNr"> 1958 </span> 68/push 0/imm32 +<span id="L1959" class="LineNr"> 1959 </span> 89/<- %edx 4/r32/esp +<span id="L1960" class="LineNr"> 1960 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L1961" class="LineNr"> 1961 </span> <span class="subxComment">#</span> +<span id="L1962" class="LineNr"> 1962 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L1963" class="LineNr"> 1963 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy 0x34\n"</span>) +<span id="L1964" class="LineNr"> 1964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L1965" class="LineNr"> 1965 </span> <span class="subxComment"># convert</span> +<span id="L1966" class="LineNr"> 1966 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L1967" class="LineNr"> 1967 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L1968" class="LineNr"> 1968 </span> <span class="subxComment"># restore ed</span> +<span id="L1969" class="LineNr"> 1969 </span> 89/<- %edx 4/r32/esp +<span id="L1970" class="LineNr"> 1970 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L1971" class="LineNr"> 1971 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L1972" class="Folded"> 1972 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1978" class="LineNr"> 1978 </span> <span class="subxComment"># check output</span> +<span id="L1979" class="LineNr"> 1979 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1945'>test-stmt-with-unknown-var</a>: output should be empty"</span>) +<span id="L1980" class="LineNr"> 1980 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1945'>test-stmt-with-unknown-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L1981" class="LineNr"> 1981 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L1982" class="LineNr"> 1982 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1945'>test-stmt-with-unknown-var</a>: exit status"</span>) +<span id="L1983" class="LineNr"> 1983 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L1984" class="LineNr"> 1984 </span> 81 0/subop/add %esp 8/imm32 +<span id="L1985" class="LineNr"> 1985 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1986" class="LineNr"> 1986 </span> 5d/pop-to-ebp +<span id="L1987" class="LineNr"> 1987 </span> c3/return +<span id="L1988" class="LineNr"> 1988 </span> +<span id="L1989" class="LineNr"> 1989 </span><span class="subxTest">test-stmt-with-invalid-identifier</span>: +<span id="L1990" class="LineNr"> 1990 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1991" class="LineNr"> 1991 </span> 55/push-ebp +<span id="L1992" class="LineNr"> 1992 </span> 89/<- %ebp 4/r32/esp +<span id="L1993" class="LineNr"> 1993 </span> <span class="subxComment"># setup</span> +<span id="L1994" class="LineNr"> 1994 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L1995" class="LineNr"> 1995 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L1996" class="LineNr"> 1996 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L1997" class="LineNr"> 1997 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L1998" class="LineNr"> 1998 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L1999" class="LineNr"> 1999 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2000" class="LineNr"> 2000 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2001" class="LineNr"> 2001 </span> 68/push 0/imm32 +<span id="L2002" class="LineNr"> 2002 </span> 68/push 0/imm32 +<span id="L2003" class="LineNr"> 2003 </span> 89/<- %edx 4/r32/esp +<span id="L2004" class="LineNr"> 2004 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2005" class="LineNr"> 2005 </span> <span class="subxComment">#</span> +<span id="L2006" class="LineNr"> 2006 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2007" class="LineNr"> 2007 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" 1 <- copy 0x34\n"</span>) +<span id="L2008" class="LineNr"> 2008 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2009" class="LineNr"> 2009 </span> <span class="subxComment"># convert</span> +<span id="L2010" class="LineNr"> 2010 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2011" class="LineNr"> 2011 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2012" class="LineNr"> 2012 </span> <span class="subxComment"># restore ed</span> +<span id="L2013" class="LineNr"> 2013 </span> 89/<- %edx 4/r32/esp +<span id="L2014" class="LineNr"> 2014 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2015" class="LineNr"> 2015 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2016" class="Folded"> 2016 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2022" class="LineNr"> 2022 </span> <span class="subxComment"># check output</span> +<span id="L2023" class="LineNr"> 2023 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L1989'>test-stmt-with-invalid-identifier</a>: output should be empty"</span>) +<span id="L2024" class="LineNr"> 2024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: invalid identifier '1'"</span> <span class="Constant">"F - <a href='mu.subx.html#L1989'>test-stmt-with-invalid-identifier</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2025" class="LineNr"> 2025 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2026" class="LineNr"> 2026 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L1989'>test-stmt-with-invalid-identifier</a>: exit status"</span>) +<span id="L2027" class="LineNr"> 2027 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2028" class="LineNr"> 2028 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2029" class="LineNr"> 2029 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2030" class="LineNr"> 2030 </span> 5d/pop-to-ebp +<span id="L2031" class="LineNr"> 2031 </span> c3/return +<span id="L2032" class="LineNr"> 2032 </span> +<span id="L2033" class="LineNr"> 2033 </span><span class="subxTest">test-stmt-with-deref-var</span>: +<span id="L2034" class="LineNr"> 2034 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2035" class="LineNr"> 2035 </span> 55/push-ebp +<span id="L2036" class="LineNr"> 2036 </span> 89/<- %ebp 4/r32/esp +<span id="L2037" class="LineNr"> 2037 </span> <span class="subxComment"># setup</span> +<span id="L2038" class="LineNr"> 2038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2039" class="LineNr"> 2039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2040" class="LineNr"> 2040 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2041" class="LineNr"> 2041 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2042" class="LineNr"> 2042 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2043" class="LineNr"> 2043 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2044" class="LineNr"> 2044 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2045" class="LineNr"> 2045 </span> 68/push 0/imm32 +<span id="L2046" class="LineNr"> 2046 </span> 68/push 0/imm32 +<span id="L2047" class="LineNr"> 2047 </span> 89/<- %edx 4/r32/esp +<span id="L2048" class="LineNr"> 2048 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2049" class="LineNr"> 2049 </span> <span class="subxComment">#</span> +<span id="L2050" class="LineNr"> 2050 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2051" class="LineNr"> 2051 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" *x <- copy 0x34\n"</span>) +<span id="L2052" class="LineNr"> 2052 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2053" class="LineNr"> 2053 </span> <span class="subxComment"># convert</span> +<span id="L2054" class="LineNr"> 2054 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2055" class="LineNr"> 2055 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2056" class="LineNr"> 2056 </span> <span class="subxComment"># restore ed</span> +<span id="L2057" class="LineNr"> 2057 </span> 89/<- %edx 4/r32/esp +<span id="L2058" class="LineNr"> 2058 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2059" class="LineNr"> 2059 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2060" class="Folded"> 2060 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2066" class="LineNr"> 2066 </span> <span class="subxComment"># check output</span> +<span id="L2067" class="LineNr"> 2067 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2033'>test-stmt-with-deref-var</a>: output should be empty"</span>) +<span id="L2068" class="LineNr"> 2068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: output '*x' should <a href='108write.subx.html#L24'>write</a> to a register, and therefore cannot be dereferenced"</span> <span class="Constant">"F - <a href='mu.subx.html#L2033'>test-stmt-with-deref-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2069" class="LineNr"> 2069 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2070" class="LineNr"> 2070 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2033'>test-stmt-with-deref-var</a>: exit status"</span>) +<span id="L2071" class="LineNr"> 2071 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2072" class="LineNr"> 2072 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2073" class="LineNr"> 2073 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2074" class="LineNr"> 2074 </span> 5d/pop-to-ebp +<span id="L2075" class="LineNr"> 2075 </span> c3/return +<span id="L2076" class="LineNr"> 2076 </span> +<span id="L2077" class="LineNr"> 2077 </span><span class="subxTest">test-convert-function-with-literal-arg</span>: +<span id="L2078" class="LineNr"> 2078 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2079" class="LineNr"> 2079 </span> 55/push-ebp +<span id="L2080" class="LineNr"> 2080 </span> 89/<- %ebp 4/r32/esp +<span id="L2081" class="LineNr"> 2081 </span> <span class="subxComment"># setup</span> +<span id="L2082" class="LineNr"> 2082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2083" class="LineNr"> 2083 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2084" class="LineNr"> 2084 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2085" class="LineNr"> 2085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2086" class="LineNr"> 2086 </span> <span class="subxComment">#</span> +<span id="L2087" class="LineNr"> 2087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/eax: int {\n"</span>) +<span id="L2088" class="LineNr"> 2088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) +<span id="L2089" class="LineNr"> 2089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) +<span id="L2090" class="LineNr"> 2090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2091" class="LineNr"> 2091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2092" class="LineNr"> 2092 </span> <span class="subxComment"># convert</span> +<span id="L2093" class="LineNr"> 2093 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2094" class="LineNr"> 2094 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2095" class="Folded"> 2095 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2101" class="LineNr"> 2101 </span> <span class="subxComment"># check output</span> +<span id="L2102" class="LineNr"> 2102 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/0"</span>) +<span id="L2103" class="LineNr"> 2103 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/1"</span>) +<span id="L2104" class="LineNr"> 2104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/2"</span>) +<span id="L2105" class="LineNr"> 2105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/3"</span>) +<span id="L2106" class="LineNr"> 2106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/4"</span>) +<span id="L2107" class="LineNr"> 2107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/5"</span>) +<span id="L2108" class="LineNr"> 2108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/6"</span>) +<span id="L2109" class="LineNr"> 2109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/7"</span>) +<span id="L2110" class="LineNr"> 2110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 05/add-to-eax 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/8"</span>) +<span id="L2111" class="LineNr"> 2111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/9"</span>) +<span id="L2112" class="LineNr"> 2112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/10"</span>) +<span id="L2113" class="LineNr"> 2113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/11"</span>) +<span id="L2114" class="LineNr"> 2114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/12"</span>) +<span id="L2115" class="LineNr"> 2115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/13"</span>) +<span id="L2116" class="LineNr"> 2116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg/14"</span>) +<span id="L2117" class="LineNr"> 2117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/15"</span>) +<span id="L2118" class="LineNr"> 2118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/16"</span>) +<span id="L2119" class="LineNr"> 2119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2077'>test-convert-function-with-literal-arg</a>/17"</span>) +<span id="L2120" class="LineNr"> 2120 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2121" class="LineNr"> 2121 </span> 89/<- %esp 5/r32/ebp +<span id="L2122" class="LineNr"> 2122 </span> 5d/pop-to-ebp +<span id="L2123" class="LineNr"> 2123 </span> c3/return +<span id="L2124" class="LineNr"> 2124 </span> +<span id="L2125" class="LineNr"> 2125 </span><span class="subxTest">test-convert-function-with-literal-arg-2</span>: +<span id="L2126" class="LineNr"> 2126 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2127" class="LineNr"> 2127 </span> 55/push-ebp +<span id="L2128" class="LineNr"> 2128 </span> 89/<- %ebp 4/r32/esp +<span id="L2129" class="LineNr"> 2129 </span> <span class="subxComment"># setup</span> +<span id="L2130" class="LineNr"> 2130 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2131" class="LineNr"> 2131 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2132" class="LineNr"> 2132 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2133" class="LineNr"> 2133 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2134" class="LineNr"> 2134 </span> <span class="subxComment">#</span> +<span id="L2135" class="LineNr"> 2135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: int, b: int -> _/ebx: int {\n"</span>) +<span id="L2136" class="LineNr"> 2136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy a\n"</span>) +<span id="L2137" class="LineNr"> 2137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add 1\n"</span>) +<span id="L2138" class="LineNr"> 2138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2139" class="LineNr"> 2139 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2140" class="LineNr"> 2140 </span> <span class="subxComment"># convert</span> +<span id="L2141" class="LineNr"> 2141 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2142" class="LineNr"> 2142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2143" class="Folded"> 2143 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2149" class="LineNr"> 2149 </span> <span class="subxComment"># check output</span> +<span id="L2150" class="LineNr"> 2150 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/0"</span>) +<span id="L2151" class="LineNr"> 2151 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/1"</span>) +<span id="L2152" class="LineNr"> 2152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/2"</span>) +<span id="L2153" class="LineNr"> 2153 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/3"</span>) +<span id="L2154" class="LineNr"> 2154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/4"</span>) +<span id="L2155" class="LineNr"> 2155 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/5"</span>) +<span id="L2156" class="LineNr"> 2156 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/6"</span>) +<span id="L2157" class="LineNr"> 2157 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/7"</span>) +<span id="L2158" class="LineNr"> 2158 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %ebx 1/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/8"</span>) +<span id="L2159" class="LineNr"> 2159 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/9"</span>) +<span id="L2160" class="LineNr"> 2160 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/10"</span>) +<span id="L2161" class="LineNr"> 2161 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/11"</span>) +<span id="L2162" class="LineNr"> 2162 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/12"</span>) +<span id="L2163" class="LineNr"> 2163 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/13"</span>) +<span id="L2164" class="LineNr"> 2164 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-literal-arg-2/14"</span>) +<span id="L2165" class="LineNr"> 2165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/15"</span>) +<span id="L2166" class="LineNr"> 2166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/16"</span>) +<span id="L2167" class="LineNr"> 2167 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2125'>test-convert-function-with-literal-arg-2</a>/17"</span>) +<span id="L2168" class="LineNr"> 2168 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2169" class="LineNr"> 2169 </span> 89/<- %esp 5/r32/ebp +<span id="L2170" class="LineNr"> 2170 </span> 5d/pop-to-ebp +<span id="L2171" class="LineNr"> 2171 </span> c3/return +<span id="L2172" class="LineNr"> 2172 </span> +<span id="L2173" class="LineNr"> 2173 </span><span class="subxTest">test-convert-function-call-with-literal-arg</span>: +<span id="L2174" class="LineNr"> 2174 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2175" class="LineNr"> 2175 </span> 55/push-ebp +<span id="L2176" class="LineNr"> 2176 </span> 89/<- %ebp 4/r32/esp +<span id="L2177" class="LineNr"> 2177 </span> <span class="subxComment"># setup</span> +<span id="L2178" class="LineNr"> 2178 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2179" class="LineNr"> 2179 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2180" class="LineNr"> 2180 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2181" class="LineNr"> 2181 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2182" class="LineNr"> 2182 </span> <span class="subxComment">#</span> +<span id="L2183" class="LineNr"> 2183 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) +<span id="L2184" class="LineNr"> 2184 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) +<span id="L2185" class="LineNr"> 2185 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2186" class="LineNr"> 2186 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2187" class="LineNr"> 2187 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn do-add a: int, b: int -> _/eax: int {\n"</span>) +<span id="L2188" class="LineNr"> 2188 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- copy a\n"</span>) +<span id="L2189" class="LineNr"> 2189 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" result <- add b\n"</span>) +<span id="L2190" class="LineNr"> 2190 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2191" class="LineNr"> 2191 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2192" class="LineNr"> 2192 </span> <span class="subxComment"># convert</span> +<span id="L2193" class="LineNr"> 2193 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2194" class="LineNr"> 2194 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2195" class="Folded"> 2195 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2201" class="LineNr"> 2201 </span> <span class="subxComment"># check output</span> +<span id="L2202" class="LineNr"> 2202 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/0"</span>) +<span id="L2203" class="LineNr"> 2203 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/1"</span>) +<span id="L2204" class="LineNr"> 2204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/2"</span>) +<span id="L2205" class="LineNr"> 2205 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/3"</span>) +<span id="L2206" class="LineNr"> 2206 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/4"</span>) +<span id="L2207" class="LineNr"> 2207 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/5"</span>) +<span id="L2208" class="LineNr"> 2208 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L2209" class="LineNr"> 2209 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/7"</span>) +<span id="L2210" class="LineNr"> 2210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L2211" class="LineNr"> 2211 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/9"</span>) +<span id="L2212" class="LineNr"> 2212 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L2213" class="LineNr"> 2213 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/11"</span>) +<span id="L2214" class="LineNr"> 2214 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/12"</span>) +<span id="L2215" class="LineNr"> 2215 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/13"</span>) +<span id="L2216" class="LineNr"> 2216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/14"</span>) +<span id="L2217" class="LineNr"> 2217 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/15"</span>) +<span id="L2218" class="LineNr"> 2218 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/16"</span>) +<span id="L2219" class="LineNr"> 2219 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"do-add:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/17"</span>) +<span id="L2220" class="LineNr"> 2220 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/18"</span>) +<span id="L2221" class="LineNr"> 2221 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/19"</span>) +<span id="L2222" class="LineNr"> 2222 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/20"</span>) +<span id="L2223" class="LineNr"> 2223 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/21"</span>) +<span id="L2224" class="LineNr"> 2224 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/22"</span>) +<span id="L2225" class="LineNr"> 2225 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/23"</span>) +<span id="L2226" class="LineNr"> 2226 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/24"</span>) +<span id="L2227" class="LineNr"> 2227 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/25"</span>) +<span id="L2228" class="LineNr"> 2228 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/26"</span>) +<span id="L2229" class="LineNr"> 2229 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/27"</span>) +<span id="L2230" class="LineNr"> 2230 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $do-add:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/28"</span>) +<span id="L2231" class="LineNr"> 2231 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/29"</span>) +<span id="L2232" class="LineNr"> 2232 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$do-add:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/30"</span>) +<span id="L2233" class="LineNr"> 2233 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-literal-arg/31"</span>) +<span id="L2234" class="LineNr"> 2234 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/32"</span>) +<span id="L2235" class="LineNr"> 2235 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/33"</span>) +<span id="L2236" class="LineNr"> 2236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/34"</span>) +<span id="L2237" class="LineNr"> 2237 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2238" class="LineNr"> 2238 </span> 89/<- %esp 5/r32/ebp +<span id="L2239" class="LineNr"> 2239 </span> 5d/pop-to-ebp +<span id="L2240" class="LineNr"> 2240 </span> c3/return +<span id="L2241" class="LineNr"> 2241 </span> +<span id="L2242" class="LineNr"> 2242 </span><span class="subxTest">test-convert-function-call-with-literal-string-arg</span>: +<span id="L2243" class="LineNr"> 2243 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2244" class="LineNr"> 2244 </span> 55/push-ebp +<span id="L2245" class="LineNr"> 2245 </span> 89/<- %ebp 4/r32/esp +<span id="L2246" class="LineNr"> 2246 </span> <span class="subxComment"># setup</span> +<span id="L2247" class="LineNr"> 2247 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2248" class="LineNr"> 2248 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2249" class="LineNr"> 2249 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2250" class="LineNr"> 2250 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2251" class="LineNr"> 2251 </span> <span class="subxComment">#</span> +<span id="L2252" class="LineNr"> 2252 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2253" class="LineNr"> 2253 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" string-func \"</span>abc\<span class="Constant">"\n"</span>) +<span id="L2254" class="LineNr"> 2254 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2255" class="LineNr"> 2255 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig string-func in: (addr array byte)\n"</span>) +<span id="L2256" class="LineNr"> 2256 </span> <span class="subxComment"># convert</span> +<span id="L2257" class="LineNr"> 2257 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2258" class="LineNr"> 2258 </span> <span class="subxComment"># no errors</span> +<span id="L2259" class="LineNr"> 2259 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L2260" class="LineNr"> 2260 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2261" class="LineNr"> 2261 </span> 89/<- %esp 5/r32/ebp +<span id="L2262" class="LineNr"> 2262 </span> 5d/pop-to-ebp +<span id="L2263" class="LineNr"> 2263 </span> c3/return +<span id="L2264" class="LineNr"> 2264 </span> +<span id="L2265" class="LineNr"> 2265 </span><span class="subxTest">test-convert-function-call-with-null-addr</span>: +<span id="L2266" class="LineNr"> 2266 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2267" class="LineNr"> 2267 </span> 55/push-ebp +<span id="L2268" class="LineNr"> 2268 </span> 89/<- %ebp 4/r32/esp +<span id="L2269" class="LineNr"> 2269 </span> <span class="subxComment"># setup</span> +<span id="L2270" class="LineNr"> 2270 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2271" class="LineNr"> 2271 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2272" class="LineNr"> 2272 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2273" class="LineNr"> 2273 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2274" class="LineNr"> 2274 </span> <span class="subxComment">#</span> +<span id="L2275" class="LineNr"> 2275 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2276" class="LineNr"> 2276 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" bar 0\n"</span>) +<span id="L2277" class="LineNr"> 2277 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2278" class="LineNr"> 2278 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig bar in: (addr int)\n"</span>) +<span id="L2279" class="LineNr"> 2279 </span> <span class="subxComment"># convert</span> +<span id="L2280" class="LineNr"> 2280 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2281" class="LineNr"> 2281 </span> <span class="subxComment"># no errors</span> +<span id="L2282" class="LineNr"> 2282 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L2283" class="LineNr"> 2283 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2284" class="LineNr"> 2284 </span> 89/<- %esp 5/r32/ebp +<span id="L2285" class="LineNr"> 2285 </span> 5d/pop-to-ebp +<span id="L2286" class="LineNr"> 2286 </span> c3/return +<span id="L2287" class="LineNr"> 2287 </span> +<span id="L2288" class="LineNr"> 2288 </span><span class="subxTest">test-convert-function-call-with-signature</span>: +<span id="L2289" class="LineNr"> 2289 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2290" class="LineNr"> 2290 </span> 55/push-ebp +<span id="L2291" class="LineNr"> 2291 </span> 89/<- %ebp 4/r32/esp +<span id="L2292" class="LineNr"> 2292 </span> <span class="subxComment"># setup</span> +<span id="L2293" class="LineNr"> 2293 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2294" class="LineNr"> 2294 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2295" class="LineNr"> 2295 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2296" class="LineNr"> 2296 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2297" class="LineNr"> 2297 </span> <span class="subxComment">#</span> +<span id="L2298" class="LineNr"> 2298 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) +<span id="L2299" class="LineNr"> 2299 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/eax: int <- do-add 3 4\n"</span>) +<span id="L2300" class="LineNr"> 2300 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L2301" class="LineNr"> 2301 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2302" class="LineNr"> 2302 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"sig do-add a: int, b: int -> _/eax: int\n"</span>) +<span id="L2303" class="LineNr"> 2303 </span> <span class="subxComment"># convert</span> +<span id="L2304" class="LineNr"> 2304 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2305" class="LineNr"> 2305 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2306" class="Folded"> 2306 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2312" class="LineNr"> 2312 </span> <span class="subxComment"># check output</span> +<span id="L2313" class="LineNr"> 2313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/0"</span>) +<span id="L2314" class="LineNr"> 2314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/1"</span>) +<span id="L2315" class="LineNr"> 2315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/2"</span>) +<span id="L2316" class="LineNr"> 2316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/3"</span>) +<span id="L2317" class="LineNr"> 2317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/4"</span>) +<span id="L2318" class="LineNr"> 2318 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/5"</span>) +<span id="L2319" class="LineNr"> 2319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L2320" class="LineNr"> 2320 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (do-add 3 4)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/6"</span>) +<span id="L2321" class="LineNr"> 2321 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L2322" class="LineNr"> 2322 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/9"</span>) +<span id="L2323" class="LineNr"> 2323 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L2324" class="LineNr"> 2324 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/7"</span>) +<span id="L2325" class="LineNr"> 2325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/8"</span>) +<span id="L2326" class="LineNr"> 2326 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-signature/9"</span>) +<span id="L2327" class="LineNr"> 2327 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/10"</span>) +<span id="L2328" class="LineNr"> 2328 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/11"</span>) +<span id="L2329" class="LineNr"> 2329 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2288'>test-convert-function-call-with-signature</a>/12"</span>) +<span id="L2330" class="LineNr"> 2330 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2331" class="LineNr"> 2331 </span> 89/<- %esp 5/r32/ebp +<span id="L2332" class="LineNr"> 2332 </span> 5d/pop-to-ebp +<span id="L2333" class="LineNr"> 2333 </span> c3/return +<span id="L2334" class="LineNr"> 2334 </span> +<span id="L2335" class="LineNr"> 2335 </span><span class="subxTest">test-convert-function-with-local-var-in-mem</span>: +<span id="L2336" class="LineNr"> 2336 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2337" class="LineNr"> 2337 </span> 55/push-ebp +<span id="L2338" class="LineNr"> 2338 </span> 89/<- %ebp 4/r32/esp +<span id="L2339" class="LineNr"> 2339 </span> <span class="subxComment"># setup</span> +<span id="L2340" class="LineNr"> 2340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2341" class="LineNr"> 2341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2342" class="LineNr"> 2342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2343" class="LineNr"> 2343 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2344" class="LineNr"> 2344 </span> <span class="subxComment">#</span> +<span id="L2345" class="LineNr"> 2345 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2346" class="LineNr"> 2346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L2347" class="LineNr"> 2347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L2348" class="LineNr"> 2348 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2349" class="LineNr"> 2349 </span> <span class="subxComment"># convert</span> +<span id="L2350" class="LineNr"> 2350 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2351" class="LineNr"> 2351 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2352" class="Folded"> 2352 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2358" class="LineNr"> 2358 </span> <span class="subxComment"># check output</span> +<span id="L2359" class="LineNr"> 2359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/0"</span>) +<span id="L2360" class="LineNr"> 2360 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/1"</span>) +<span id="L2361" class="LineNr"> 2361 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/2"</span>) +<span id="L2362" class="LineNr"> 2362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/3"</span>) +<span id="L2363" class="LineNr"> 2363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/4"</span>) +<span id="L2364" class="LineNr"> 2364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/5"</span>) +<span id="L2365" class="LineNr"> 2365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/6"</span>) +<span id="L2366" class="LineNr"> 2366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/7"</span>) +<span id="L2367" class="LineNr"> 2367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/8"</span>) +<span id="L2368" class="LineNr"> 2368 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/9"</span>) +<span id="L2369" class="LineNr"> 2369 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/10"</span>) +<span id="L2370" class="LineNr"> 2370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem/11"</span>) +<span id="L2371" class="LineNr"> 2371 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/12"</span>) +<span id="L2372" class="LineNr"> 2372 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/13"</span>) +<span id="L2373" class="LineNr"> 2373 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2335'>test-convert-function-with-local-var-in-mem</a>/14"</span>) +<span id="L2374" class="LineNr"> 2374 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2375" class="LineNr"> 2375 </span> 89/<- %esp 5/r32/ebp +<span id="L2376" class="LineNr"> 2376 </span> 5d/pop-to-ebp +<span id="L2377" class="LineNr"> 2377 </span> c3/return +<span id="L2378" class="LineNr"> 2378 </span> +<span id="L2379" class="LineNr"> 2379 </span><span class="subxTest">test-convert-invalid-literal</span>: +<span id="L2380" class="LineNr"> 2380 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2381" class="LineNr"> 2381 </span> 55/push-ebp +<span id="L2382" class="LineNr"> 2382 </span> 89/<- %ebp 4/r32/esp +<span id="L2383" class="LineNr"> 2383 </span> <span class="subxComment"># setup</span> +<span id="L2384" class="LineNr"> 2384 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2385" class="LineNr"> 2385 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2386" class="LineNr"> 2386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2387" class="LineNr"> 2387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2388" class="LineNr"> 2388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2389" class="LineNr"> 2389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2390" class="LineNr"> 2390 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2391" class="LineNr"> 2391 </span> 68/push 0/imm32 +<span id="L2392" class="LineNr"> 2392 </span> 68/push 0/imm32 +<span id="L2393" class="LineNr"> 2393 </span> 89/<- %edx 4/r32/esp +<span id="L2394" class="LineNr"> 2394 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2395" class="LineNr"> 2395 </span> <span class="subxComment">#</span> +<span id="L2396" class="LineNr"> 2396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2397" class="LineNr"> 2397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment 1n\n"</span>) +<span id="L2398" class="LineNr"> 2398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2399" class="LineNr"> 2399 </span> <span class="subxComment"># convert</span> +<span id="L2400" class="LineNr"> 2400 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2401" class="LineNr"> 2401 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2402" class="LineNr"> 2402 </span> <span class="subxComment"># restore ed</span> +<span id="L2403" class="LineNr"> 2403 </span> 89/<- %edx 4/r32/esp +<span id="L2404" class="LineNr"> 2404 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2405" class="LineNr"> 2405 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2406" class="Folded"> 2406 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2412" class="LineNr"> 2412 </span> <span class="subxComment"># check output</span> +<span id="L2413" class="LineNr"> 2413 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2379'>test-convert-invalid-literal</a>: output should be empty"</span>) +<span id="L2414" class="LineNr"> 2414 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: variable '1n' cannot begin with a digit (or do you have a typo in a number?)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2379'>test-convert-invalid-literal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2415" class="LineNr"> 2415 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2416" class="LineNr"> 2416 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2379'>test-convert-invalid-literal</a>: exit status"</span>) +<span id="L2417" class="LineNr"> 2417 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2418" class="LineNr"> 2418 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2419" class="LineNr"> 2419 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2420" class="LineNr"> 2420 </span> 5d/pop-to-ebp +<span id="L2421" class="LineNr"> 2421 </span> c3/return +<span id="L2422" class="LineNr"> 2422 </span> +<span id="L2423" class="LineNr"> 2423 </span><span class="subxTest">test-convert-valid-literal-with-metadata</span>: +<span id="L2424" class="LineNr"> 2424 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2425" class="LineNr"> 2425 </span> 55/push-ebp +<span id="L2426" class="LineNr"> 2426 </span> 89/<- %ebp 4/r32/esp +<span id="L2427" class="LineNr"> 2427 </span> <span class="subxComment"># setup</span> +<span id="L2428" class="LineNr"> 2428 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2429" class="LineNr"> 2429 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2430" class="LineNr"> 2430 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2431" class="LineNr"> 2431 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2432" class="LineNr"> 2432 </span> <span class="subxComment">#</span> +<span id="L2433" class="LineNr"> 2433 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2434" class="LineNr"> 2434 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 1/abc\n"</span>) +<span id="L2435" class="LineNr"> 2435 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2436" class="LineNr"> 2436 </span> <span class="subxComment"># convert</span> +<span id="L2437" class="LineNr"> 2437 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2438" class="LineNr"> 2438 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2439" class="Folded"> 2439 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2445" class="LineNr"> 2445 </span> <span class="subxComment"># no errors</span> +<span id="L2446" class="LineNr"> 2446 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2447" class="LineNr"> 2447 </span> 89/<- %esp 5/r32/ebp +<span id="L2448" class="LineNr"> 2448 </span> 5d/pop-to-ebp +<span id="L2449" class="LineNr"> 2449 </span> c3/return +<span id="L2450" class="LineNr"> 2450 </span> +<span id="L2451" class="LineNr"> 2451 </span><span class="subxTest">test-local-var-in-mem-has-no-initializer</span>: +<span id="L2452" class="LineNr"> 2452 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2453" class="LineNr"> 2453 </span> 55/push-ebp +<span id="L2454" class="LineNr"> 2454 </span> 89/<- %ebp 4/r32/esp +<span id="L2455" class="LineNr"> 2455 </span> <span class="subxComment"># setup</span> +<span id="L2456" class="LineNr"> 2456 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2457" class="LineNr"> 2457 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2458" class="LineNr"> 2458 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2459" class="LineNr"> 2459 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2460" class="LineNr"> 2460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2461" class="LineNr"> 2461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2462" class="LineNr"> 2462 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2463" class="LineNr"> 2463 </span> 68/push 0/imm32 +<span id="L2464" class="LineNr"> 2464 </span> 68/push 0/imm32 +<span id="L2465" class="LineNr"> 2465 </span> 89/<- %edx 4/r32/esp +<span id="L2466" class="LineNr"> 2466 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2467" class="LineNr"> 2467 </span> <span class="subxComment">#</span> +<span id="L2468" class="LineNr"> 2468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2469" class="LineNr"> 2469 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int <- copy 0\n"</span>) +<span id="L2470" class="LineNr"> 2470 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L2471" class="LineNr"> 2471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2472" class="LineNr"> 2472 </span> <span class="subxComment"># convert</span> +<span id="L2473" class="LineNr"> 2473 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2474" class="LineNr"> 2474 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2475" class="LineNr"> 2475 </span> <span class="subxComment"># restore ed</span> +<span id="L2476" class="LineNr"> 2476 </span> 89/<- %edx 4/r32/esp +<span id="L2477" class="LineNr"> 2477 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2478" class="LineNr"> 2478 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2479" class="Folded"> 2479 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2485" class="LineNr"> 2485 </span> <span class="subxComment"># check output</span> +<span id="L2486" class="LineNr"> 2486 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: output should be empty"</span>) +<span id="L2487" class="LineNr"> 2487 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var x: variables on the stack can't take an initializer"</span> <span class="Constant">"F - test-var-in-mem-has-no-initializer: error message"</span>) +<span id="L2488" class="LineNr"> 2488 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2489" class="LineNr"> 2489 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - test-var-in-mem-has-no-initializer: exit status"</span>) +<span id="L2490" class="LineNr"> 2490 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2491" class="LineNr"> 2491 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2492" class="LineNr"> 2492 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2493" class="LineNr"> 2493 </span> 5d/pop-to-ebp +<span id="L2494" class="LineNr"> 2494 </span> c3/return +<span id="L2495" class="LineNr"> 2495 </span> +<span id="L2496" class="LineNr"> 2496 </span><span class="subxTest">test-convert-function-with-local-var-with-compound-type-in-mem</span>: +<span id="L2497" class="LineNr"> 2497 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2498" class="LineNr"> 2498 </span> 55/push-ebp +<span id="L2499" class="LineNr"> 2499 </span> 89/<- %ebp 4/r32/esp +<span id="L2500" class="LineNr"> 2500 </span> <span class="subxComment"># setup</span> +<span id="L2501" class="LineNr"> 2501 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2502" class="LineNr"> 2502 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2503" class="LineNr"> 2503 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2504" class="LineNr"> 2504 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2505" class="LineNr"> 2505 </span> <span class="subxComment">#</span> +<span id="L2506" class="LineNr"> 2506 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2507" class="LineNr"> 2507 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L2508" class="LineNr"> 2508 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0\n"</span>) +<span id="L2509" class="LineNr"> 2509 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2510" class="LineNr"> 2510 </span> <span class="subxComment"># convert</span> +<span id="L2511" class="LineNr"> 2511 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2512" class="LineNr"> 2512 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2513" class="Folded"> 2513 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2519" class="LineNr"> 2519 </span> <span class="subxComment"># check output</span> +<span id="L2520" class="LineNr"> 2520 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/0"</span>) +<span id="L2521" class="LineNr"> 2521 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/1"</span>) +<span id="L2522" class="LineNr"> 2522 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/2"</span>) +<span id="L2523" class="LineNr"> 2523 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/3"</span>) +<span id="L2524" class="LineNr"> 2524 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/4"</span>) +<span id="L2525" class="LineNr"> 2525 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/5"</span>) +<span id="L2526" class="LineNr"> 2526 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/6"</span>) +<span id="L2527" class="LineNr"> 2527 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy *(ebp+0xfffffffc) 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/7"</span>) +<span id="L2528" class="LineNr"> 2528 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/8"</span>) +<span id="L2529" class="LineNr"> 2529 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/9"</span>) +<span id="L2530" class="LineNr"> 2530 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/10"</span>) +<span id="L2531" class="LineNr"> 2531 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-compound-type-in-mem/11"</span>) +<span id="L2532" class="LineNr"> 2532 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/12"</span>) +<span id="L2533" class="LineNr"> 2533 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/13"</span>) +<span id="L2534" class="LineNr"> 2534 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2496'>test-convert-function-with-local-var-with-compound-type-in-mem</a>/14"</span>) +<span id="L2535" class="LineNr"> 2535 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2536" class="LineNr"> 2536 </span> 89/<- %esp 5/r32/ebp +<span id="L2537" class="LineNr"> 2537 </span> 5d/pop-to-ebp +<span id="L2538" class="LineNr"> 2538 </span> c3/return +<span id="L2539" class="LineNr"> 2539 </span> +<span id="L2540" class="LineNr"> 2540 </span><span class="subxTest">test-convert-function-with-local-var-in-reg</span>: +<span id="L2541" class="LineNr"> 2541 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2542" class="LineNr"> 2542 </span> 55/push-ebp +<span id="L2543" class="LineNr"> 2543 </span> 89/<- %ebp 4/r32/esp +<span id="L2544" class="LineNr"> 2544 </span> <span class="subxComment"># setup</span> +<span id="L2545" class="LineNr"> 2545 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2546" class="LineNr"> 2546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2547" class="LineNr"> 2547 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2548" class="LineNr"> 2548 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2549" class="LineNr"> 2549 </span> <span class="subxComment">#</span> +<span id="L2550" class="LineNr"> 2550 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2551" class="LineNr"> 2551 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L2552" class="LineNr"> 2552 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L2553" class="LineNr"> 2553 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2554" class="LineNr"> 2554 </span> <span class="subxComment"># convert</span> +<span id="L2555" class="LineNr"> 2555 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2556" class="LineNr"> 2556 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2557" class="Folded"> 2557 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2563" class="LineNr"> 2563 </span> <span class="subxComment"># check output</span> +<span id="L2564" class="LineNr"> 2564 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/0"</span>) +<span id="L2565" class="LineNr"> 2565 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/1"</span>) +<span id="L2566" class="LineNr"> 2566 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/2"</span>) +<span id="L2567" class="LineNr"> 2567 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/3"</span>) +<span id="L2568" class="LineNr"> 2568 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/4"</span>) +<span id="L2569" class="LineNr"> 2569 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/5"</span>) +<span id="L2570" class="LineNr"> 2570 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/6"</span>) +<span id="L2571" class="LineNr"> 2571 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/7"</span>) +<span id="L2572" class="LineNr"> 2572 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/8"</span>) +<span id="L2573" class="LineNr"> 2573 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/9"</span>) +<span id="L2574" class="LineNr"> 2574 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/10"</span>) +<span id="L2575" class="LineNr"> 2575 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/11"</span>) +<span id="L2576" class="LineNr"> 2576 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-reg/12"</span>) +<span id="L2577" class="LineNr"> 2577 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/13"</span>) +<span id="L2578" class="LineNr"> 2578 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/14"</span>) +<span id="L2579" class="LineNr"> 2579 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2540'>test-convert-function-with-local-var-in-reg</a>/15"</span>) +<span id="L2580" class="LineNr"> 2580 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2581" class="LineNr"> 2581 </span> 89/<- %esp 5/r32/ebp +<span id="L2582" class="LineNr"> 2582 </span> 5d/pop-to-ebp +<span id="L2583" class="LineNr"> 2583 </span> c3/return +<span id="L2584" class="LineNr"> 2584 </span> +<span id="L2585" class="LineNr"> 2585 </span><span class="subxTest">test-convert-function-with-local-var-in-same-reg</span>: +<span id="L2586" class="LineNr"> 2586 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2587" class="LineNr"> 2587 </span> 55/push-ebp +<span id="L2588" class="LineNr"> 2588 </span> 89/<- %ebp 4/r32/esp +<span id="L2589" class="LineNr"> 2589 </span> <span class="subxComment"># setup</span> +<span id="L2590" class="LineNr"> 2590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2591" class="LineNr"> 2591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2592" class="LineNr"> 2592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2593" class="LineNr"> 2593 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2594" class="LineNr"> 2594 </span> <span class="subxComment">#</span> +<span id="L2595" class="LineNr"> 2595 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2596" class="LineNr"> 2596 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L2597" class="LineNr"> 2597 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy x\n"</span>) +<span id="L2598" class="LineNr"> 2598 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2599" class="LineNr"> 2599 </span> <span class="subxComment"># convert</span> +<span id="L2600" class="LineNr"> 2600 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2601" class="LineNr"> 2601 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2602" class="Folded"> 2602 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2608" class="LineNr"> 2608 </span> <span class="subxComment"># check output</span> +<span id="L2609" class="LineNr"> 2609 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/0"</span>) +<span id="L2610" class="LineNr"> 2610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg/1"</span>) +<span id="L2611" class="LineNr"> 2611 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/2"</span>) +<span id="L2612" class="LineNr"> 2612 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/3"</span>) +<span id="L2613" class="LineNr"> 2613 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/4"</span>) +<span id="L2614" class="LineNr"> 2614 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/5"</span>) +<span id="L2615" class="LineNr"> 2615 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/6"</span>) +<span id="L2616" class="LineNr"> 2616 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/7"</span>) +<span id="L2617" class="LineNr"> 2617 </span> <span class="subxComment"># optimization: skip the second copy</span> +<span id="L2618" class="LineNr"> 2618 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/8"</span>) +<span id="L2619" class="LineNr"> 2619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/9"</span>) +<span id="L2620" class="LineNr"> 2620 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/10"</span>) +<span id="L2621" class="LineNr"> 2621 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg/11"</span>) +<span id="L2622" class="LineNr"> 2622 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/12"</span>) +<span id="L2623" class="LineNr"> 2623 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/13"</span>) +<span id="L2624" class="LineNr"> 2624 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2585'>test-convert-function-with-local-var-in-same-reg</a>/14"</span>) +<span id="L2625" class="LineNr"> 2625 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2626" class="LineNr"> 2626 </span> 89/<- %esp 5/r32/ebp +<span id="L2627" class="LineNr"> 2627 </span> 5d/pop-to-ebp +<span id="L2628" class="LineNr"> 2628 </span> c3/return +<span id="L2629" class="LineNr"> 2629 </span> +<span id="L2630" class="LineNr"> 2630 </span><span class="subxTest">test-convert-function-with-local-var-in-same-reg-dereferenced</span>: +<span id="L2631" class="LineNr"> 2631 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2632" class="LineNr"> 2632 </span> 55/push-ebp +<span id="L2633" class="LineNr"> 2633 </span> 89/<- %ebp 4/r32/esp +<span id="L2634" class="LineNr"> 2634 </span> <span class="subxComment"># setup</span> +<span id="L2635" class="LineNr"> 2635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2636" class="LineNr"> 2636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2637" class="LineNr"> 2637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2638" class="LineNr"> 2638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2639" class="LineNr"> 2639 </span> <span class="subxComment">#</span> +<span id="L2640" class="LineNr"> 2640 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2641" class="LineNr"> 2641 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr int) <- copy 0\n"</span>) +<span id="L2642" class="LineNr"> 2642 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy *x\n"</span>) +<span id="L2643" class="LineNr"> 2643 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2644" class="LineNr"> 2644 </span> <span class="subxComment"># convert</span> +<span id="L2645" class="LineNr"> 2645 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2646" class="LineNr"> 2646 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2647" class="Folded"> 2647 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2653" class="LineNr"> 2653 </span> <span class="subxComment"># check output</span> +<span id="L2654" class="LineNr"> 2654 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/0"</span>) +<span id="L2655" class="LineNr"> 2655 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg-dereferenced/1"</span>) +<span id="L2656" class="LineNr"> 2656 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/2"</span>) +<span id="L2657" class="LineNr"> 2657 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/3"</span>) +<span id="L2658" class="LineNr"> 2658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/4"</span>) +<span id="L2659" class="LineNr"> 2659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/5"</span>) +<span id="L2660" class="LineNr"> 2660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/6"</span>) +<span id="L2661" class="LineNr"> 2661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/7"</span>) +<span id="L2662" class="LineNr"> 2662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *ecx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/8"</span>) <span class="subxComment"># don't optimize this away</span> +<span id="L2663" class="LineNr"> 2663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/9"</span>) +<span id="L2664" class="LineNr"> 2664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/10"</span>) +<span id="L2665" class="LineNr"> 2665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/11"</span>) +<span id="L2666" class="LineNr"> 2666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-same-reg-dereferenced/12"</span>) +<span id="L2667" class="LineNr"> 2667 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/13"</span>) +<span id="L2668" class="LineNr"> 2668 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/14"</span>) +<span id="L2669" class="LineNr"> 2669 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2630'>test-convert-function-with-local-var-in-same-reg-dereferenced</a>/15"</span>) +<span id="L2670" class="LineNr"> 2670 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2671" class="LineNr"> 2671 </span> 89/<- %esp 5/r32/ebp +<span id="L2672" class="LineNr"> 2672 </span> 5d/pop-to-ebp +<span id="L2673" class="LineNr"> 2673 </span> c3/return +<span id="L2674" class="LineNr"> 2674 </span> +<span id="L2675" class="LineNr"> 2675 </span><span class="subxTest">test-float-var-in-wrong-register</span>: +<span id="L2676" class="LineNr"> 2676 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2677" class="LineNr"> 2677 </span> 55/push-ebp +<span id="L2678" class="LineNr"> 2678 </span> 89/<- %ebp 4/r32/esp +<span id="L2679" class="LineNr"> 2679 </span> <span class="subxComment"># setup</span> +<span id="L2680" class="LineNr"> 2680 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2681" class="LineNr"> 2681 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2682" class="LineNr"> 2682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2683" class="LineNr"> 2683 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2684" class="LineNr"> 2684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2685" class="LineNr"> 2685 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2686" class="LineNr"> 2686 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2687" class="LineNr"> 2687 </span> 68/push 0/imm32 +<span id="L2688" class="LineNr"> 2688 </span> 68/push 0/imm32 +<span id="L2689" class="LineNr"> 2689 </span> 89/<- %edx 4/r32/esp +<span id="L2690" class="LineNr"> 2690 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2691" class="LineNr"> 2691 </span> <span class="subxComment">#</span> +<span id="L2692" class="LineNr"> 2692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2693" class="LineNr"> 2693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L2694" class="LineNr"> 2694 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: float <- convert x\n"</span>) +<span id="L2695" class="LineNr"> 2695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2696" class="LineNr"> 2696 </span> <span class="subxComment"># convert</span> +<span id="L2697" class="LineNr"> 2697 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2698" class="LineNr"> 2698 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2699" class="LineNr"> 2699 </span> <span class="subxComment"># restore ed</span> +<span id="L2700" class="LineNr"> 2700 </span> 89/<- %edx 4/r32/esp +<span id="L2701" class="LineNr"> 2701 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2702" class="LineNr"> 2702 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2703" class="Folded"> 2703 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2709" class="LineNr"> 2709 </span> <span class="subxComment"># check output</span> +<span id="L2710" class="LineNr"> 2710 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2675'>test-float-var-in-wrong-register</a>: output should be empty"</span>) +<span id="L2711" class="LineNr"> 2711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: float var 'y' should be in a floating-point register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2675'>test-float-var-in-wrong-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2712" class="LineNr"> 2712 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2713" class="LineNr"> 2713 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2675'>test-float-var-in-wrong-register</a>: exit status"</span>) +<span id="L2714" class="LineNr"> 2714 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2715" class="LineNr"> 2715 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2716" class="LineNr"> 2716 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2717" class="LineNr"> 2717 </span> 5d/pop-to-ebp +<span id="L2718" class="LineNr"> 2718 </span> c3/return +<span id="L2719" class="LineNr"> 2719 </span> +<span id="L2720" class="LineNr"> 2720 </span><span class="subxTest">test-non-float-var-in-wrong-register</span>: +<span id="L2721" class="LineNr"> 2721 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2722" class="LineNr"> 2722 </span> 55/push-ebp +<span id="L2723" class="LineNr"> 2723 </span> 89/<- %ebp 4/r32/esp +<span id="L2724" class="LineNr"> 2724 </span> <span class="subxComment"># setup</span> +<span id="L2725" class="LineNr"> 2725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2726" class="LineNr"> 2726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2727" class="LineNr"> 2727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2728" class="LineNr"> 2728 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2729" class="LineNr"> 2729 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2730" class="LineNr"> 2730 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2731" class="LineNr"> 2731 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2732" class="LineNr"> 2732 </span> 68/push 0/imm32 +<span id="L2733" class="LineNr"> 2733 </span> 68/push 0/imm32 +<span id="L2734" class="LineNr"> 2734 </span> 89/<- %edx 4/r32/esp +<span id="L2735" class="LineNr"> 2735 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2736" class="LineNr"> 2736 </span> <span class="subxComment">#</span> +<span id="L2737" class="LineNr"> 2737 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2738" class="LineNr"> 2738 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm5: int <- copy 0\n"</span>) +<span id="L2739" class="LineNr"> 2739 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2740" class="LineNr"> 2740 </span> <span class="subxComment"># convert</span> +<span id="L2741" class="LineNr"> 2741 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2742" class="LineNr"> 2742 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2743" class="LineNr"> 2743 </span> <span class="subxComment"># restore ed</span> +<span id="L2744" class="LineNr"> 2744 </span> 89/<- %edx 4/r32/esp +<span id="L2745" class="LineNr"> 2745 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2746" class="LineNr"> 2746 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2747" class="Folded"> 2747 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2753" class="LineNr"> 2753 </span> <span class="subxComment"># check output</span> +<span id="L2754" class="LineNr"> 2754 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2720'>test-non-float-var-in-wrong-register</a>: output should be empty"</span>) +<span id="L2755" class="LineNr"> 2755 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: non-float var 'x' should be in an integer register"</span> <span class="Constant">"F - <a href='mu.subx.html#L2720'>test-non-float-var-in-wrong-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2756" class="LineNr"> 2756 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2757" class="LineNr"> 2757 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2720'>test-non-float-var-in-wrong-register</a>: exit status"</span>) +<span id="L2758" class="LineNr"> 2758 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2759" class="LineNr"> 2759 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2760" class="LineNr"> 2760 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2761" class="LineNr"> 2761 </span> 5d/pop-to-ebp +<span id="L2762" class="LineNr"> 2762 </span> c3/return +<span id="L2763" class="LineNr"> 2763 </span> +<span id="L2764" class="LineNr"> 2764 </span><span class="subxTest">test-convert-function-with-allocate</span>: +<span id="L2765" class="LineNr"> 2765 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2766" class="LineNr"> 2766 </span> 55/push-ebp +<span id="L2767" class="LineNr"> 2767 </span> 89/<- %ebp 4/r32/esp +<span id="L2768" class="LineNr"> 2768 </span> <span class="subxComment"># setup</span> +<span id="L2769" class="LineNr"> 2769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2770" class="LineNr"> 2770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2771" class="LineNr"> 2771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2772" class="LineNr"> 2772 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2773" class="LineNr"> 2773 </span> <span class="subxComment">#</span> +<span id="L2774" class="LineNr"> 2774 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2775" class="LineNr"> 2775 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L2776" class="LineNr"> 2776 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> x\n"</span>) +<span id="L2777" class="LineNr"> 2777 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2778" class="LineNr"> 2778 </span> <span class="subxComment"># convert</span> +<span id="L2779" class="LineNr"> 2779 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2780" class="LineNr"> 2780 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2781" class="Folded"> 2781 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2787" class="LineNr"> 2787 </span> <span class="subxComment"># check output</span> +<span id="L2788" class="LineNr"> 2788 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/0"</span>) +<span id="L2789" class="LineNr"> 2789 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-allocate/1"</span>) +<span id="L2790" class="LineNr"> 2790 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/2"</span>) +<span id="L2791" class="LineNr"> 2791 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/3"</span>) +<span id="L2792" class="LineNr"> 2792 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/4"</span>) +<span id="L2793" class="LineNr"> 2793 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/5"</span>) +<span id="L2794" class="LineNr"> 2794 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/6"</span>) +<span id="L2795" class="LineNr"> 2795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/7"</span>) +<span id="L2796" class="LineNr"> 2796 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='120allocate.subx.html#L66'>allocate</a> <a href='120allocate.subx.html#L27'>Heap</a> 0x00000004 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> +<span id="L2797" class="LineNr"> 2797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/9"</span>) +<span id="L2798" class="LineNr"> 2798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/10"</span>) +<span id="L2799" class="LineNr"> 2799 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/11"</span>) +<span id="L2800" class="LineNr"> 2800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-allocate/12"</span>) +<span id="L2801" class="LineNr"> 2801 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/13"</span>) +<span id="L2802" class="LineNr"> 2802 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/14"</span>) +<span id="L2803" class="LineNr"> 2803 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2764'>test-convert-function-with-allocate</a>/15"</span>) +<span id="L2804" class="LineNr"> 2804 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2805" class="LineNr"> 2805 </span> 89/<- %esp 5/r32/ebp +<span id="L2806" class="LineNr"> 2806 </span> 5d/pop-to-ebp +<span id="L2807" class="LineNr"> 2807 </span> c3/return +<span id="L2808" class="LineNr"> 2808 </span> +<span id="L2809" class="LineNr"> 2809 </span><span class="subxTest">test-initializer-in-hex</span>: +<span id="L2810" class="LineNr"> 2810 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2811" class="LineNr"> 2811 </span> 55/push-ebp +<span id="L2812" class="LineNr"> 2812 </span> 89/<- %ebp 4/r32/esp +<span id="L2813" class="LineNr"> 2813 </span> <span class="subxComment"># setup</span> +<span id="L2814" class="LineNr"> 2814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2815" class="LineNr"> 2815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2816" class="LineNr"> 2816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2817" class="LineNr"> 2817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2818" class="LineNr"> 2818 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2819" class="LineNr"> 2819 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2820" class="LineNr"> 2820 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L2821" class="LineNr"> 2821 </span> 68/push 0/imm32 +<span id="L2822" class="LineNr"> 2822 </span> 68/push 0/imm32 +<span id="L2823" class="LineNr"> 2823 </span> 89/<- %edx 4/r32/esp +<span id="L2824" class="LineNr"> 2824 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2825" class="LineNr"> 2825 </span> <span class="subxComment">#</span> +<span id="L2826" class="LineNr"> 2826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2827" class="LineNr"> 2827 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 10\n"</span>) +<span id="L2828" class="LineNr"> 2828 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2829" class="LineNr"> 2829 </span> <span class="subxComment"># convert</span> +<span id="L2830" class="LineNr"> 2830 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2831" class="LineNr"> 2831 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2832" class="LineNr"> 2832 </span> <span class="subxComment"># restore ed</span> +<span id="L2833" class="LineNr"> 2833 </span> 89/<- %edx 4/r32/esp +<span id="L2834" class="LineNr"> 2834 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2835" class="LineNr"> 2835 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2836" class="Folded"> 2836 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2842" class="LineNr"> 2842 </span> <span class="subxComment"># check output</span> +<span id="L2843" class="LineNr"> 2843 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2809'>test-initializer-in-hex</a>: output should be empty"</span>) +<span id="L2844" class="LineNr"> 2844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L2809'>test-initializer-in-hex</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2845" class="LineNr"> 2845 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2846" class="LineNr"> 2846 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2809'>test-initializer-in-hex</a>: exit status"</span>) +<span id="L2847" class="LineNr"> 2847 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2848" class="LineNr"> 2848 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2849" class="LineNr"> 2849 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2850" class="LineNr"> 2850 </span> 5d/pop-to-ebp +<span id="L2851" class="LineNr"> 2851 </span> c3/return +<span id="L2852" class="LineNr"> 2852 </span> +<span id="L2853" class="LineNr"> 2853 </span><span class="subxTest">test-convert-function-with-second-local-var-in-same-reg</span>: +<span id="L2854" class="LineNr"> 2854 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2855" class="LineNr"> 2855 </span> 55/push-ebp +<span id="L2856" class="LineNr"> 2856 </span> 89/<- %ebp 4/r32/esp +<span id="L2857" class="LineNr"> 2857 </span> <span class="subxComment"># setup</span> +<span id="L2858" class="LineNr"> 2858 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2859" class="LineNr"> 2859 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2860" class="LineNr"> 2860 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2861" class="LineNr"> 2861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2862" class="LineNr"> 2862 </span> <span class="subxComment">#</span> +<span id="L2863" class="LineNr"> 2863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2864" class="LineNr"> 2864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L2865" class="LineNr"> 2865 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L2866" class="LineNr"> 2866 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) +<span id="L2867" class="LineNr"> 2867 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2868" class="LineNr"> 2868 </span> <span class="subxComment"># convert</span> +<span id="L2869" class="LineNr"> 2869 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L2870" class="LineNr"> 2870 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2871" class="Folded"> 2871 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2877" class="LineNr"> 2877 </span> <span class="subxComment"># check output</span> +<span id="L2878" class="LineNr"> 2878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/0"</span>) +<span id="L2879" class="LineNr"> 2879 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/1"</span>) +<span id="L2880" class="LineNr"> 2880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/2"</span>) +<span id="L2881" class="LineNr"> 2881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/3"</span>) +<span id="L2882" class="LineNr"> 2882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/4"</span>) +<span id="L2883" class="LineNr"> 2883 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/5"</span>) +<span id="L2884" class="LineNr"> 2884 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/6"</span>) +<span id="L2885" class="LineNr"> 2885 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/7"</span>) +<span id="L2886" class="LineNr"> 2886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/8"</span>) +<span id="L2887" class="LineNr"> 2887 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/9"</span>) +<span id="L2888" class="LineNr"> 2888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/10"</span>) +<span id="L2889" class="LineNr"> 2889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/11"</span>) +<span id="L2890" class="LineNr"> 2890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/12"</span>) +<span id="L2891" class="LineNr"> 2891 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-second-local-var-in-same-reg/13"</span>) +<span id="L2892" class="LineNr"> 2892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/14"</span>) +<span id="L2893" class="LineNr"> 2893 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/15"</span>) +<span id="L2894" class="LineNr"> 2894 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2853'>test-convert-function-with-second-local-var-in-same-reg</a>/16"</span>) +<span id="L2895" class="LineNr"> 2895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2896" class="LineNr"> 2896 </span> 89/<- %esp 5/r32/ebp +<span id="L2897" class="LineNr"> 2897 </span> 5d/pop-to-ebp +<span id="L2898" class="LineNr"> 2898 </span> c3/return +<span id="L2899" class="LineNr"> 2899 </span> +<span id="L2900" class="LineNr"> 2900 </span><span class="subxTest">test-read-clobbered-reg-var</span>: +<span id="L2901" class="LineNr"> 2901 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2902" class="LineNr"> 2902 </span> 55/push-ebp +<span id="L2903" class="LineNr"> 2903 </span> 89/<- %ebp 4/r32/esp +<span id="L2904" class="LineNr"> 2904 </span> <span class="subxComment"># setup</span> +<span id="L2905" class="LineNr"> 2905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2906" class="LineNr"> 2906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2907" class="LineNr"> 2907 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2908" class="LineNr"> 2908 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2909" class="LineNr"> 2909 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2910" class="LineNr"> 2910 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2911" class="LineNr"> 2911 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L2912" class="LineNr"> 2912 </span> 68/push 0/imm32 +<span id="L2913" class="LineNr"> 2913 </span> 68/push 0/imm32 +<span id="L2914" class="LineNr"> 2914 </span> 89/<- %edx 4/r32/esp +<span id="L2915" class="LineNr"> 2915 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2916" class="LineNr"> 2916 </span> <span class="subxComment">#</span> +<span id="L2917" class="LineNr"> 2917 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2918" class="LineNr"> 2918 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L2919" class="LineNr"> 2919 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L2920" class="LineNr"> 2920 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L2921" class="LineNr"> 2921 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2922" class="LineNr"> 2922 </span> <span class="subxComment"># convert</span> +<span id="L2923" class="LineNr"> 2923 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2924" class="LineNr"> 2924 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2925" class="LineNr"> 2925 </span> <span class="subxComment"># restore ed</span> +<span id="L2926" class="LineNr"> 2926 </span> 89/<- %edx 4/r32/esp +<span id="L2927" class="LineNr"> 2927 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2928" class="LineNr"> 2928 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2929" class="Folded"> 2929 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2935" class="LineNr"> 2935 </span> <span class="subxComment"># check output</span> +<span id="L2936" class="LineNr"> 2936 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2900'>test-read-clobbered-reg-var</a>: output should be empty"</span>) +<span id="L2937" class="LineNr"> 2937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: register ecx reads var 'x' after writing var 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L2900'>test-read-clobbered-reg-var</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2938" class="LineNr"> 2938 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L2939" class="LineNr"> 2939 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L2900'>test-read-clobbered-reg-var</a>: exit status"</span>) +<span id="L2940" class="LineNr"> 2940 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2941" class="LineNr"> 2941 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2942" class="LineNr"> 2942 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2943" class="LineNr"> 2943 </span> 5d/pop-to-ebp +<span id="L2944" class="LineNr"> 2944 </span> c3/return +<span id="L2945" class="LineNr"> 2945 </span> +<span id="L2946" class="LineNr"> 2946 </span><span class="subxTest">test-overlapping-int-fp-registers</span>: +<span id="L2947" class="LineNr"> 2947 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2948" class="LineNr"> 2948 </span> 55/push-ebp +<span id="L2949" class="LineNr"> 2949 </span> 89/<- %ebp 4/r32/esp +<span id="L2950" class="LineNr"> 2950 </span> <span class="subxComment"># setup</span> +<span id="L2951" class="LineNr"> 2951 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2952" class="LineNr"> 2952 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2953" class="LineNr"> 2953 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2954" class="LineNr"> 2954 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2955" class="LineNr"> 2955 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L2956" class="LineNr"> 2956 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L2957" class="LineNr"> 2957 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L2958" class="LineNr"> 2958 </span> 68/push 0/imm32 +<span id="L2959" class="LineNr"> 2959 </span> 68/push 0/imm32 +<span id="L2960" class="LineNr"> 2960 </span> 89/<- %edx 4/r32/esp +<span id="L2961" class="LineNr"> 2961 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L2962" class="LineNr"> 2962 </span> <span class="subxComment">#</span> +<span id="L2963" class="LineNr"> 2963 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L2964" class="LineNr"> 2964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) +<span id="L2965" class="LineNr"> 2965 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm0: float <- convert x\n"</span>) +<span id="L2966" class="LineNr"> 2966 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L2967" class="LineNr"> 2967 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L2968" class="LineNr"> 2968 </span> <span class="subxComment"># convert</span> +<span id="L2969" class="LineNr"> 2969 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L2970" class="LineNr"> 2970 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L2971" class="LineNr"> 2971 </span> <span class="subxComment"># restore ed</span> +<span id="L2972" class="LineNr"> 2972 </span> 89/<- %edx 4/r32/esp +<span id="L2973" class="LineNr"> 2973 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L2974" class="LineNr"> 2974 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L2975" class="Folded"> 2975 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2981" class="LineNr"> 2981 </span> <span class="subxComment"># no errors</span> +<span id="L2982" class="LineNr"> 2982 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L2946'>test-overlapping-int-fp-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L2983" class="LineNr"> 2983 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L2984" class="LineNr"> 2984 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L2985" class="LineNr"> 2985 </span> 81 0/subop/add %esp 8/imm32 +<span id="L2986" class="LineNr"> 2986 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2987" class="LineNr"> 2987 </span> 5d/pop-to-ebp +<span id="L2988" class="LineNr"> 2988 </span> c3/return +<span id="L2989" class="LineNr"> 2989 </span> +<span id="L2990" class="LineNr"> 2990 </span><span class="subxTest">test-convert-function-call</span>: +<span id="L2991" class="LineNr"> 2991 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2992" class="LineNr"> 2992 </span> 55/push-ebp +<span id="L2993" class="LineNr"> 2993 </span> 89/<- %ebp 4/r32/esp +<span id="L2994" class="LineNr"> 2994 </span> <span class="subxComment"># setup</span> +<span id="L2995" class="LineNr"> 2995 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L2996" class="LineNr"> 2996 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L2997" class="LineNr"> 2997 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L2998" class="LineNr"> 2998 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L2999" class="LineNr"> 2999 </span> <span class="subxComment">#</span> +<span id="L3000" class="LineNr"> 3000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn main -> _/ebx: int {\n"</span>) +<span id="L3001" class="LineNr"> 3001 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- foo\n"</span>) +<span id="L3002" class="LineNr"> 3002 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L3003" class="LineNr"> 3003 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3004" class="LineNr"> 3004 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/ebx: int {\n"</span>) +<span id="L3005" class="LineNr"> 3005 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var result/ebx: int <- copy 3\n"</span>) +<span id="L3006" class="LineNr"> 3006 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return result\n"</span>) +<span id="L3007" class="LineNr"> 3007 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3008" class="LineNr"> 3008 </span> <span class="subxComment"># convert</span> +<span id="L3009" class="LineNr"> 3009 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3010" class="LineNr"> 3010 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3011" class="Folded"> 3011 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3017" class="LineNr"> 3017 </span> <span class="subxComment"># check output</span> +<span id="L3018" class="LineNr"> 3018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"main:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/0"</span>) +<span id="L3019" class="LineNr"> 3019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/1"</span>) +<span id="L3020" class="LineNr"> 3020 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/2"</span>) +<span id="L3021" class="LineNr"> 3021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/3"</span>) +<span id="L3022" class="LineNr"> 3022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/4"</span>) +<span id="L3023" class="LineNr"> 3023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/5"</span>) +<span id="L3024" class="LineNr"> 3024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L3025" class="LineNr"> 3025 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo)"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/6"</span>) +<span id="L3026" class="LineNr"> 3026 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L3027" class="LineNr"> 3027 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/27"</span>) +<span id="L3028" class="LineNr"> 3028 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $main:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L3029" class="LineNr"> 3029 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/7"</span>) +<span id="L3030" class="LineNr"> 3030 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$main:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/8"</span>) +<span id="L3031" class="LineNr"> 3031 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/9"</span>) +<span id="L3032" class="LineNr"> 3032 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/10"</span>) +<span id="L3033" class="LineNr"> 3033 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/11"</span>) +<span id="L3034" class="LineNr"> 3034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/12"</span>) +<span id="L3035" class="LineNr"> 3035 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/13"</span>) +<span id="L3036" class="LineNr"> 3036 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call/14"</span>) +<span id="L3037" class="LineNr"> 3037 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/15"</span>) +<span id="L3038" class="LineNr"> 3038 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/16"</span>) +<span id="L3039" class="LineNr"> 3039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/17"</span>) +<span id="L3040" class="LineNr"> 3040 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/18"</span>) +<span id="L3041" class="LineNr"> 3041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/6"</span>) +<span id="L3042" class="LineNr"> 3042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" bb/copy-to-ebx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/19"</span>) +<span id="L3043" class="LineNr"> 3043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ebx 0x00000003/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/8"</span>) +<span id="L3044" class="LineNr"> 3044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/27"</span>) +<span id="L3045" class="LineNr"> 3045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L2173'>test-convert-function-call-with-literal-arg</a>/10"</span>) +<span id="L3046" class="LineNr"> 3046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/20"</span>) +<span id="L3047" class="LineNr"> 3047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/21"</span>) +<span id="L3048" class="LineNr"> 3048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call/22"</span>) +<span id="L3049" class="LineNr"> 3049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/23"</span>) +<span id="L3050" class="LineNr"> 3050 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/24"</span>) +<span id="L3051" class="LineNr"> 3051 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L2990'>test-convert-function-call</a>/25"</span>) +<span id="L3052" class="LineNr"> 3052 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3053" class="LineNr"> 3053 </span> 89/<- %esp 5/r32/ebp +<span id="L3054" class="LineNr"> 3054 </span> 5d/pop-to-ebp +<span id="L3055" class="LineNr"> 3055 </span> c3/return +<span id="L3056" class="LineNr"> 3056 </span> +<span id="L3057" class="LineNr"> 3057 </span><span class="subxTest">test-convert-function-call-with-inout-with-compound-type</span>: +<span id="L3058" class="LineNr"> 3058 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3059" class="LineNr"> 3059 </span> 55/push-ebp +<span id="L3060" class="LineNr"> 3060 </span> 89/<- %ebp 4/r32/esp +<span id="L3061" class="LineNr"> 3061 </span> <span class="subxComment"># setup</span> +<span id="L3062" class="LineNr"> 3062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3063" class="LineNr"> 3063 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3064" class="LineNr"> 3064 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3065" class="LineNr"> 3065 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3066" class="LineNr"> 3066 </span> <span class="subxComment">#</span> +<span id="L3067" class="LineNr"> 3067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3068" class="LineNr"> 3068 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L3069" class="LineNr"> 3069 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3070" class="LineNr"> 3070 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3071" class="LineNr"> 3071 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr int) {\n"</span>) +<span id="L3072" class="LineNr"> 3072 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3073" class="LineNr"> 3073 </span> <span class="subxComment"># convert</span> +<span id="L3074" class="LineNr"> 3074 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3075" class="LineNr"> 3075 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3076" class="Folded"> 3076 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3082" class="LineNr"> 3082 </span> <span class="subxComment"># check output</span> +<span id="L3083" class="LineNr"> 3083 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/0"</span>) +<span id="L3084" class="LineNr"> 3084 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/1"</span>) +<span id="L3085" class="LineNr"> 3085 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/2"</span>) +<span id="L3086" class="LineNr"> 3086 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/3"</span>) +<span id="L3087" class="LineNr"> 3087 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/4"</span>) +<span id="L3088" class="LineNr"> 3088 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/5"</span>) +<span id="L3089" class="LineNr"> 3089 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/6"</span>) +<span id="L3090" class="LineNr"> 3090 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (g *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/7"</span>) +<span id="L3091" class="LineNr"> 3091 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/8"</span>) +<span id="L3092" class="LineNr"> 3092 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/9"</span>) +<span id="L3093" class="LineNr"> 3093 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/10"</span>) +<span id="L3094" class="LineNr"> 3094 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/11"</span>) +<span id="L3095" class="LineNr"> 3095 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/12"</span>) +<span id="L3096" class="LineNr"> 3096 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/13"</span>) +<span id="L3097" class="LineNr"> 3097 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/14"</span>) +<span id="L3098" class="LineNr"> 3098 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"g:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/15"</span>) +<span id="L3099" class="LineNr"> 3099 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/16"</span>) +<span id="L3100" class="LineNr"> 3100 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/17"</span>) +<span id="L3101" class="LineNr"> 3101 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/18"</span>) +<span id="L3102" class="LineNr"> 3102 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-inout-with-compound-type/19"</span>) +<span id="L3103" class="LineNr"> 3103 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/20"</span>) +<span id="L3104" class="LineNr"> 3104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/21"</span>) +<span id="L3105" class="LineNr"> 3105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3057'>test-convert-function-call-with-inout-with-compound-type</a>/22"</span>) +<span id="L3106" class="LineNr"> 3106 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3107" class="LineNr"> 3107 </span> 89/<- %esp 5/r32/ebp +<span id="L3108" class="LineNr"> 3108 </span> 5d/pop-to-ebp +<span id="L3109" class="LineNr"> 3109 </span> c3/return +<span id="L3110" class="LineNr"> 3110 </span> +<span id="L3111" class="LineNr"> 3111 </span><span class="subxTest">test-convert-function-call-with-inout-with-type-parameter</span>: +<span id="L3112" class="LineNr"> 3112 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3113" class="LineNr"> 3113 </span> 55/push-ebp +<span id="L3114" class="LineNr"> 3114 </span> 89/<- %ebp 4/r32/esp +<span id="L3115" class="LineNr"> 3115 </span> <span class="subxComment"># setup</span> +<span id="L3116" class="LineNr"> 3116 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3117" class="LineNr"> 3117 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3118" class="LineNr"> 3118 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3119" class="LineNr"> 3119 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3120" class="LineNr"> 3120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3121" class="LineNr"> 3121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3122" class="LineNr"> 3122 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3123" class="LineNr"> 3123 </span> 68/push 0/imm32 +<span id="L3124" class="LineNr"> 3124 </span> 68/push 0/imm32 +<span id="L3125" class="LineNr"> 3125 </span> 89/<- %edx 4/r32/esp +<span id="L3126" class="LineNr"> 3126 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3127" class="LineNr"> 3127 </span> <span class="subxComment">#</span> +<span id="L3128" class="LineNr"> 3128 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3129" class="LineNr"> 3129 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L3130" class="LineNr"> 3130 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3131" class="LineNr"> 3131 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3132" class="LineNr"> 3132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) +<span id="L3133" class="LineNr"> 3133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3134" class="LineNr"> 3134 </span> <span class="subxComment"># convert</span> +<span id="L3135" class="LineNr"> 3135 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3136" class="LineNr"> 3136 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3137" class="LineNr"> 3137 </span> <span class="subxComment"># restore ed</span> +<span id="L3138" class="LineNr"> 3138 </span> 89/<- %edx 4/r32/esp +<span id="L3139" class="LineNr"> 3139 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3140" class="LineNr"> 3140 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3141" class="Folded"> 3141 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3147" class="LineNr"> 3147 </span> <span class="subxComment"># no error; types matched</span> +<span id="L3148" class="LineNr"> 3148 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3111'>test-convert-function-call-with-inout-with-type-parameter</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L3149" class="LineNr"> 3149 </span> <span class="subxComment"># don't bother checking the generated code; that's in the test 'test-local-clobbered-by-fn-output' below</span> +<span id="L3150" class="LineNr"> 3150 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3151" class="LineNr"> 3151 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3152" class="LineNr"> 3152 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3153" class="LineNr"> 3153 </span> 5d/pop-to-ebp +<span id="L3154" class="LineNr"> 3154 </span> c3/return +<span id="L3155" class="LineNr"> 3155 </span> +<span id="L3156" class="LineNr"> 3156 </span><span class="subxTest">test-convert-function-call-with-incorrect-inout-type</span>: +<span id="L3157" class="LineNr"> 3157 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3158" class="LineNr"> 3158 </span> 55/push-ebp +<span id="L3159" class="LineNr"> 3159 </span> 89/<- %ebp 4/r32/esp +<span id="L3160" class="LineNr"> 3160 </span> <span class="subxComment"># setup</span> +<span id="L3161" class="LineNr"> 3161 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3162" class="LineNr"> 3162 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3163" class="LineNr"> 3163 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3164" class="LineNr"> 3164 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3165" class="LineNr"> 3165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3166" class="LineNr"> 3166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3167" class="LineNr"> 3167 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3168" class="LineNr"> 3168 </span> 68/push 0/imm32 +<span id="L3169" class="LineNr"> 3169 </span> 68/push 0/imm32 +<span id="L3170" class="LineNr"> 3170 </span> 89/<- %edx 4/r32/esp +<span id="L3171" class="LineNr"> 3171 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3172" class="LineNr"> 3172 </span> <span class="subxComment">#</span> +<span id="L3173" class="LineNr"> 3173 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3174" class="LineNr"> 3174 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L3175" class="LineNr"> 3175 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3176" class="LineNr"> 3176 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3177" class="LineNr"> 3177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: foo {\n"</span>) +<span id="L3178" class="LineNr"> 3178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3179" class="LineNr"> 3179 </span> <span class="subxComment"># convert</span> +<span id="L3180" class="LineNr"> 3180 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3181" class="LineNr"> 3181 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3182" class="LineNr"> 3182 </span> <span class="subxComment"># restore ed</span> +<span id="L3183" class="LineNr"> 3183 </span> 89/<- %edx 4/r32/esp +<span id="L3184" class="LineNr"> 3184 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3185" class="LineNr"> 3185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3186" class="Folded"> 3186 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3192" class="LineNr"> 3192 </span> <span class="subxComment"># check output</span> +<span id="L3193" class="LineNr"> 3193 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3156'>test-convert-function-call-with-incorrect-inout-type</a>: output should be empty"</span>) +<span id="L3194" class="LineNr"> 3194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3156'>test-convert-function-call-with-incorrect-inout-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3195" class="LineNr"> 3195 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3196" class="LineNr"> 3196 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3156'>test-convert-function-call-with-incorrect-inout-type</a>: exit status"</span>) +<span id="L3197" class="LineNr"> 3197 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3198" class="LineNr"> 3198 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3199" class="LineNr"> 3199 </span> 5d/pop-to-ebp +<span id="L3200" class="LineNr"> 3200 </span> c3/return +<span id="L3201" class="LineNr"> 3201 </span> +<span id="L3202" class="LineNr"> 3202 </span><span class="subxTest">test-convert-function-call-with-inout-with-incorrect-compound-type</span>: +<span id="L3203" class="LineNr"> 3203 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3204" class="LineNr"> 3204 </span> 55/push-ebp +<span id="L3205" class="LineNr"> 3205 </span> 89/<- %ebp 4/r32/esp +<span id="L3206" class="LineNr"> 3206 </span> <span class="subxComment"># setup</span> +<span id="L3207" class="LineNr"> 3207 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3208" class="LineNr"> 3208 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3209" class="LineNr"> 3209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3210" class="LineNr"> 3210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3211" class="LineNr"> 3211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3212" class="LineNr"> 3212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3213" class="LineNr"> 3213 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3214" class="LineNr"> 3214 </span> 68/push 0/imm32 +<span id="L3215" class="LineNr"> 3215 </span> 68/push 0/imm32 +<span id="L3216" class="LineNr"> 3216 </span> 89/<- %edx 4/r32/esp +<span id="L3217" class="LineNr"> 3217 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3218" class="LineNr"> 3218 </span> <span class="subxComment">#</span> +<span id="L3219" class="LineNr"> 3219 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3220" class="LineNr"> 3220 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L3221" class="LineNr"> 3221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3222" class="LineNr"> 3222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3223" class="LineNr"> 3223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr bool) {\n"</span>) +<span id="L3224" class="LineNr"> 3224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3225" class="LineNr"> 3225 </span> <span class="subxComment"># convert</span> +<span id="L3226" class="LineNr"> 3226 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3227" class="LineNr"> 3227 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3228" class="LineNr"> 3228 </span> <span class="subxComment"># restore ed</span> +<span id="L3229" class="LineNr"> 3229 </span> 89/<- %edx 4/r32/esp +<span id="L3230" class="LineNr"> 3230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3231" class="LineNr"> 3231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3232" class="Folded"> 3232 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3238" class="LineNr"> 3238 </span> <span class="subxComment"># check output</span> +<span id="L3239" class="LineNr"> 3239 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3202'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: output should be empty"</span>) +<span id="L3240" class="LineNr"> 3240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3202'>test-convert-function-call-with-inout-with-incorrect-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3241" class="LineNr"> 3241 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3242" class="LineNr"> 3242 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3243" class="LineNr"> 3243 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3244" class="LineNr"> 3244 </span> 5d/pop-to-ebp +<span id="L3245" class="LineNr"> 3245 </span> c3/return +<span id="L3246" class="LineNr"> 3246 </span> +<span id="L3247" class="LineNr"> 3247 </span><span class="subxTest">test-convert-function-call-with-inout-with-multiple-type-parameters</span>: +<span id="L3248" class="LineNr"> 3248 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3249" class="LineNr"> 3249 </span> 55/push-ebp +<span id="L3250" class="LineNr"> 3250 </span> 89/<- %ebp 4/r32/esp +<span id="L3251" class="LineNr"> 3251 </span> <span class="subxComment"># setup</span> +<span id="L3252" class="LineNr"> 3252 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3253" class="LineNr"> 3253 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3254" class="LineNr"> 3254 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3255" class="LineNr"> 3255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3256" class="LineNr"> 3256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3257" class="LineNr"> 3257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3258" class="LineNr"> 3258 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3259" class="LineNr"> 3259 </span> 68/push 0/imm32 +<span id="L3260" class="LineNr"> 3260 </span> 68/push 0/imm32 +<span id="L3261" class="LineNr"> 3261 </span> 89/<- %edx 4/r32/esp +<span id="L3262" class="LineNr"> 3262 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3263" class="LineNr"> 3263 </span> <span class="subxComment">#</span> +<span id="L3264" class="LineNr"> 3264 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3265" class="LineNr"> 3265 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L3266" class="LineNr"> 3266 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) +<span id="L3267" class="LineNr"> 3267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) +<span id="L3268" class="LineNr"> 3268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3269" class="LineNr"> 3269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _), b: (addr _) {\n"</span>) +<span id="L3270" class="LineNr"> 3270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3271" class="LineNr"> 3271 </span> <span class="subxComment"># convert</span> +<span id="L3272" class="LineNr"> 3272 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3273" class="LineNr"> 3273 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3274" class="LineNr"> 3274 </span> <span class="subxComment"># restore ed</span> +<span id="L3275" class="LineNr"> 3275 </span> 89/<- %edx 4/r32/esp +<span id="L3276" class="LineNr"> 3276 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3277" class="LineNr"> 3277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3278" class="Folded"> 3278 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3284" class="LineNr"> 3284 </span> <span class="subxComment"># no errors</span> +<span id="L3285" class="LineNr"> 3285 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3247'>test-convert-function-call-with-inout-with-multiple-type-parameters</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L3286" class="LineNr"> 3286 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L3287" class="LineNr"> 3287 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3288" class="LineNr"> 3288 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3289" class="LineNr"> 3289 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3290" class="LineNr"> 3290 </span> 5d/pop-to-ebp +<span id="L3291" class="LineNr"> 3291 </span> c3/return +<span id="L3292" class="LineNr"> 3292 </span> +<span id="L3293" class="LineNr"> 3293 </span><span class="subxTest">test-type-parameter-matches-rest-of-type</span>: +<span id="L3294" class="LineNr"> 3294 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3295" class="LineNr"> 3295 </span> 55/push-ebp +<span id="L3296" class="LineNr"> 3296 </span> 89/<- %ebp 4/r32/esp +<span id="L3297" class="LineNr"> 3297 </span> <span class="subxComment"># setup</span> +<span id="L3298" class="LineNr"> 3298 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3299" class="LineNr"> 3299 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3300" class="LineNr"> 3300 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3301" class="LineNr"> 3301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3302" class="LineNr"> 3302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3303" class="LineNr"> 3303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3304" class="LineNr"> 3304 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3305" class="LineNr"> 3305 </span> 68/push 0/imm32 +<span id="L3306" class="LineNr"> 3306 </span> 68/push 0/imm32 +<span id="L3307" class="LineNr"> 3307 </span> 89/<- %edx 4/r32/esp +<span id="L3308" class="LineNr"> 3308 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3309" class="LineNr"> 3309 </span> <span class="subxComment">#</span> +<span id="L3310" class="LineNr"> 3310 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3311" class="LineNr"> 3311 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr array int)\n"</span>) +<span id="L3312" class="LineNr"> 3312 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3313" class="LineNr"> 3313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3314" class="LineNr"> 3314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _) {\n"</span>) +<span id="L3315" class="LineNr"> 3315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3316" class="LineNr"> 3316 </span> <span class="subxComment"># convert</span> +<span id="L3317" class="LineNr"> 3317 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3318" class="LineNr"> 3318 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3319" class="LineNr"> 3319 </span> <span class="subxComment"># restore ed</span> +<span id="L3320" class="LineNr"> 3320 </span> 89/<- %edx 4/r32/esp +<span id="L3321" class="LineNr"> 3321 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3322" class="LineNr"> 3322 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3323" class="Folded"> 3323 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3329" class="LineNr"> 3329 </span> <span class="subxComment"># no errors</span> +<span id="L3330" class="LineNr"> 3330 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3293'>test-type-parameter-matches-rest-of-type</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L3331" class="LineNr"> 3331 </span> <span class="subxComment"># don't bother checking the generated code</span> +<span id="L3332" class="LineNr"> 3332 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3333" class="LineNr"> 3333 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3334" class="LineNr"> 3334 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3335" class="LineNr"> 3335 </span> 5d/pop-to-ebp +<span id="L3336" class="LineNr"> 3336 </span> c3/return +<span id="L3337" class="LineNr"> 3337 </span> +<span id="L3338" class="LineNr"> 3338 </span><span class="subxTest">test-convert-function-call-with-inout-with-incompatible-type-parameters</span>: +<span id="L3339" class="LineNr"> 3339 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3340" class="LineNr"> 3340 </span> 55/push-ebp +<span id="L3341" class="LineNr"> 3341 </span> 89/<- %ebp 4/r32/esp +<span id="L3342" class="LineNr"> 3342 </span> <span class="subxComment"># setup</span> +<span id="L3343" class="LineNr"> 3343 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3344" class="LineNr"> 3344 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3345" class="LineNr"> 3345 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3346" class="LineNr"> 3346 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3347" class="LineNr"> 3347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3348" class="LineNr"> 3348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3349" class="LineNr"> 3349 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3350" class="LineNr"> 3350 </span> 68/push 0/imm32 +<span id="L3351" class="LineNr"> 3351 </span> 68/push 0/imm32 +<span id="L3352" class="LineNr"> 3352 </span> 89/<- %edx 4/r32/esp +<span id="L3353" class="LineNr"> 3353 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3354" class="LineNr"> 3354 </span> <span class="subxComment">#</span> +<span id="L3355" class="LineNr"> 3355 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3356" class="LineNr"> 3356 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L3357" class="LineNr"> 3357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr boolean)\n"</span>) +<span id="L3358" class="LineNr"> 3358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x, y\n"</span>) +<span id="L3359" class="LineNr"> 3359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3360" class="LineNr"> 3360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: (addr _T), b: (addr _T) {\n"</span>) +<span id="L3361" class="LineNr"> 3361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3362" class="LineNr"> 3362 </span> <span class="subxComment"># convert</span> +<span id="L3363" class="LineNr"> 3363 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3364" class="LineNr"> 3364 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3365" class="LineNr"> 3365 </span> <span class="subxComment"># restore ed</span> +<span id="L3366" class="LineNr"> 3366 </span> 89/<- %edx 4/r32/esp +<span id="L3367" class="LineNr"> 3367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3368" class="LineNr"> 3368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3369" class="Folded"> 3369 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3375" class="LineNr"> 3375 </span> <span class="subxComment"># check output</span> +<span id="L3376" class="LineNr"> 3376 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3338'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: output should be empty"</span>) +<span id="L3377" class="LineNr"> 3377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for inout 'y' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3338'>test-convert-function-call-with-inout-with-incompatible-type-parameters</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3378" class="LineNr"> 3378 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3379" class="LineNr"> 3379 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3380" class="LineNr"> 3380 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3381" class="LineNr"> 3381 </span> 5d/pop-to-ebp +<span id="L3382" class="LineNr"> 3382 </span> c3/return +<span id="L3383" class="LineNr"> 3383 </span> +<span id="L3384" class="LineNr"> 3384 </span><span class="subxTest">test-convert-function-call-with-too-few-inouts</span>: +<span id="L3385" class="LineNr"> 3385 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3386" class="LineNr"> 3386 </span> 55/push-ebp +<span id="L3387" class="LineNr"> 3387 </span> 89/<- %ebp 4/r32/esp +<span id="L3388" class="LineNr"> 3388 </span> <span class="subxComment"># setup</span> +<span id="L3389" class="LineNr"> 3389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3390" class="LineNr"> 3390 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3391" class="LineNr"> 3391 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3392" class="LineNr"> 3392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3393" class="LineNr"> 3393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3394" class="LineNr"> 3394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3395" class="LineNr"> 3395 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3396" class="LineNr"> 3396 </span> 68/push 0/imm32 +<span id="L3397" class="LineNr"> 3397 </span> 68/push 0/imm32 +<span id="L3398" class="LineNr"> 3398 </span> 89/<- %edx 4/r32/esp +<span id="L3399" class="LineNr"> 3399 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3400" class="LineNr"> 3400 </span> <span class="subxComment">#</span> +<span id="L3401" class="LineNr"> 3401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3402" class="LineNr"> 3402 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) +<span id="L3403" class="LineNr"> 3403 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3404" class="LineNr"> 3404 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g a: int {\n"</span>) +<span id="L3405" class="LineNr"> 3405 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3406" class="LineNr"> 3406 </span> <span class="subxComment"># convert</span> +<span id="L3407" class="LineNr"> 3407 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3408" class="LineNr"> 3408 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3409" class="LineNr"> 3409 </span> <span class="subxComment"># restore ed</span> +<span id="L3410" class="LineNr"> 3410 </span> 89/<- %edx 4/r32/esp +<span id="L3411" class="LineNr"> 3411 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3412" class="LineNr"> 3412 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3413" class="Folded"> 3413 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3419" class="LineNr"> 3419 </span> <span class="subxComment"># check output</span> +<span id="L3420" class="LineNr"> 3420 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3384'>test-convert-function-call-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L3421" class="LineNr"> 3421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3384'>test-convert-function-call-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3422" class="LineNr"> 3422 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3423" class="LineNr"> 3423 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3384'>test-convert-function-call-with-too-few-inouts</a>: exit status"</span>) +<span id="L3424" class="LineNr"> 3424 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3425" class="LineNr"> 3425 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3426" class="LineNr"> 3426 </span> 5d/pop-to-ebp +<span id="L3427" class="LineNr"> 3427 </span> c3/return +<span id="L3428" class="LineNr"> 3428 </span> +<span id="L3429" class="LineNr"> 3429 </span><span class="subxTest">test-convert-function-call-with-too-many-inouts</span>: +<span id="L3430" class="LineNr"> 3430 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3431" class="LineNr"> 3431 </span> 55/push-ebp +<span id="L3432" class="LineNr"> 3432 </span> 89/<- %ebp 4/r32/esp +<span id="L3433" class="LineNr"> 3433 </span> <span class="subxComment"># setup</span> +<span id="L3434" class="LineNr"> 3434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3435" class="LineNr"> 3435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3436" class="LineNr"> 3436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3437" class="LineNr"> 3437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3438" class="LineNr"> 3438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3439" class="LineNr"> 3439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3440" class="LineNr"> 3440 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3441" class="LineNr"> 3441 </span> 68/push 0/imm32 +<span id="L3442" class="LineNr"> 3442 </span> 68/push 0/imm32 +<span id="L3443" class="LineNr"> 3443 </span> 89/<- %edx 4/r32/esp +<span id="L3444" class="LineNr"> 3444 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3445" class="LineNr"> 3445 </span> <span class="subxComment">#</span> +<span id="L3446" class="LineNr"> 3446 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3447" class="LineNr"> 3447 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L3448" class="LineNr"> 3448 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g x\n"</span>) +<span id="L3449" class="LineNr"> 3449 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3450" class="LineNr"> 3450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) +<span id="L3451" class="LineNr"> 3451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3452" class="LineNr"> 3452 </span> <span class="subxComment"># convert</span> +<span id="L3453" class="LineNr"> 3453 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3454" class="LineNr"> 3454 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3455" class="LineNr"> 3455 </span> <span class="subxComment"># restore ed</span> +<span id="L3456" class="LineNr"> 3456 </span> 89/<- %edx 4/r32/esp +<span id="L3457" class="LineNr"> 3457 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3458" class="LineNr"> 3458 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3459" class="Folded"> 3459 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3465" class="LineNr"> 3465 </span> <span class="subxComment"># check output</span> +<span id="L3466" class="LineNr"> 3466 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3429'>test-convert-function-call-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L3467" class="LineNr"> 3467 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L3429'>test-convert-function-call-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3468" class="LineNr"> 3468 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3469" class="LineNr"> 3469 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3429'>test-convert-function-call-with-too-many-inouts</a>: exit status"</span>) +<span id="L3470" class="LineNr"> 3470 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3471" class="LineNr"> 3471 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3472" class="LineNr"> 3472 </span> 5d/pop-to-ebp +<span id="L3473" class="LineNr"> 3473 </span> c3/return +<span id="L3474" class="LineNr"> 3474 </span> +<span id="L3475" class="LineNr"> 3475 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-type</span>: +<span id="L3476" class="LineNr"> 3476 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3477" class="LineNr"> 3477 </span> 55/push-ebp +<span id="L3478" class="LineNr"> 3478 </span> 89/<- %ebp 4/r32/esp +<span id="L3479" class="LineNr"> 3479 </span> <span class="subxComment"># setup</span> +<span id="L3480" class="LineNr"> 3480 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3481" class="LineNr"> 3481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3482" class="LineNr"> 3482 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3483" class="LineNr"> 3483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3484" class="LineNr"> 3484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3485" class="LineNr"> 3485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3486" class="LineNr"> 3486 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3487" class="LineNr"> 3487 </span> 68/push 0/imm32 +<span id="L3488" class="LineNr"> 3488 </span> 68/push 0/imm32 +<span id="L3489" class="LineNr"> 3489 </span> 89/<- %edx 4/r32/esp +<span id="L3490" class="LineNr"> 3490 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3491" class="LineNr"> 3491 </span> <span class="subxComment">#</span> +<span id="L3492" class="LineNr"> 3492 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3493" class="LineNr"> 3493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) +<span id="L3494" class="LineNr"> 3494 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3495" class="LineNr"> 3495 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: foo {\n"</span>) +<span id="L3496" class="LineNr"> 3496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3497" class="LineNr"> 3497 </span> <span class="subxComment"># convert</span> +<span id="L3498" class="LineNr"> 3498 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3499" class="LineNr"> 3499 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3500" class="LineNr"> 3500 </span> <span class="subxComment"># restore ed</span> +<span id="L3501" class="LineNr"> 3501 </span> 89/<- %edx 4/r32/esp +<span id="L3502" class="LineNr"> 3502 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3503" class="LineNr"> 3503 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3504" class="Folded"> 3504 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3510" class="LineNr"> 3510 </span> <span class="subxComment"># check output</span> +<span id="L3511" class="LineNr"> 3511 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3475'>test-convert-function-call-with-incorrect-output-type</a>: output should be empty"</span>) +<span id="L3512" class="LineNr"> 3512 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: type for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3475'>test-convert-function-call-with-incorrect-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3513" class="LineNr"> 3513 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3514" class="LineNr"> 3514 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3475'>test-convert-function-call-with-incorrect-output-type</a>: exit status"</span>) +<span id="L3515" class="LineNr"> 3515 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3516" class="LineNr"> 3516 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3517" class="LineNr"> 3517 </span> 5d/pop-to-ebp +<span id="L3518" class="LineNr"> 3518 </span> c3/return +<span id="L3519" class="LineNr"> 3519 </span> +<span id="L3520" class="LineNr"> 3520 </span><span class="subxTest">test-convert-function-call-with-too-few-outputs</span>: +<span id="L3521" class="LineNr"> 3521 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3522" class="LineNr"> 3522 </span> 55/push-ebp +<span id="L3523" class="LineNr"> 3523 </span> 89/<- %ebp 4/r32/esp +<span id="L3524" class="LineNr"> 3524 </span> <span class="subxComment"># setup</span> +<span id="L3525" class="LineNr"> 3525 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3526" class="LineNr"> 3526 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3527" class="LineNr"> 3527 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3528" class="LineNr"> 3528 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3529" class="LineNr"> 3529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3530" class="LineNr"> 3530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3531" class="LineNr"> 3531 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3532" class="LineNr"> 3532 </span> 68/push 0/imm32 +<span id="L3533" class="LineNr"> 3533 </span> 68/push 0/imm32 +<span id="L3534" class="LineNr"> 3534 </span> 89/<- %edx 4/r32/esp +<span id="L3535" class="LineNr"> 3535 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3536" class="LineNr"> 3536 </span> <span class="subxComment">#</span> +<span id="L3537" class="LineNr"> 3537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3538" class="LineNr"> 3538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" g\n"</span>) +<span id="L3539" class="LineNr"> 3539 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3540" class="LineNr"> 3540 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) +<span id="L3541" class="LineNr"> 3541 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3542" class="LineNr"> 3542 </span> <span class="subxComment"># convert</span> +<span id="L3543" class="LineNr"> 3543 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3544" class="LineNr"> 3544 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3545" class="LineNr"> 3545 </span> <span class="subxComment"># restore ed</span> +<span id="L3546" class="LineNr"> 3546 </span> 89/<- %edx 4/r32/esp +<span id="L3547" class="LineNr"> 3547 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3548" class="LineNr"> 3548 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3549" class="Folded"> 3549 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3555" class="LineNr"> 3555 </span> <span class="subxComment"># check output</span> +<span id="L3556" class="LineNr"> 3556 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3520'>test-convert-function-call-with-too-few-outputs</a>: output should be empty"</span>) +<span id="L3557" class="LineNr"> 3557 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too few outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3520'>test-convert-function-call-with-too-few-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3558" class="LineNr"> 3558 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3559" class="LineNr"> 3559 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3520'>test-convert-function-call-with-too-few-outputs</a>: exit status"</span>) +<span id="L3560" class="LineNr"> 3560 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3561" class="LineNr"> 3561 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3562" class="LineNr"> 3562 </span> 5d/pop-to-ebp +<span id="L3563" class="LineNr"> 3563 </span> c3/return +<span id="L3564" class="LineNr"> 3564 </span> +<span id="L3565" class="LineNr"> 3565 </span><span class="subxTest">test-convert-function-call-with-too-many-outputs</span>: +<span id="L3566" class="LineNr"> 3566 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3567" class="LineNr"> 3567 </span> 55/push-ebp +<span id="L3568" class="LineNr"> 3568 </span> 89/<- %ebp 4/r32/esp +<span id="L3569" class="LineNr"> 3569 </span> <span class="subxComment"># setup</span> +<span id="L3570" class="LineNr"> 3570 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3571" class="LineNr"> 3571 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3572" class="LineNr"> 3572 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3573" class="LineNr"> 3573 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3574" class="LineNr"> 3574 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3575" class="LineNr"> 3575 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3576" class="LineNr"> 3576 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3577" class="LineNr"> 3577 </span> 68/push 0/imm32 +<span id="L3578" class="LineNr"> 3578 </span> 68/push 0/imm32 +<span id="L3579" class="LineNr"> 3579 </span> 89/<- %edx 4/r32/esp +<span id="L3580" class="LineNr"> 3580 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3581" class="LineNr"> 3581 </span> <span class="subxComment">#</span> +<span id="L3582" class="LineNr"> 3582 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3583" class="LineNr"> 3583 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- g\n"</span>) +<span id="L3584" class="LineNr"> 3584 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3585" class="LineNr"> 3585 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g {\n"</span>) +<span id="L3586" class="LineNr"> 3586 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3587" class="LineNr"> 3587 </span> <span class="subxComment"># convert</span> +<span id="L3588" class="LineNr"> 3588 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3589" class="LineNr"> 3589 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3590" class="LineNr"> 3590 </span> <span class="subxComment"># restore ed</span> +<span id="L3591" class="LineNr"> 3591 </span> 89/<- %edx 4/r32/esp +<span id="L3592" class="LineNr"> 3592 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3593" class="LineNr"> 3593 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3594" class="Folded"> 3594 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3600" class="LineNr"> 3600 </span> <span class="subxComment"># check output</span> +<span id="L3601" class="LineNr"> 3601 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3565'>test-convert-function-call-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L3602" class="LineNr"> 3602 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: too many outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L3565'>test-convert-function-call-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3603" class="LineNr"> 3603 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3604" class="LineNr"> 3604 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3565'>test-convert-function-call-with-too-many-outputs</a>: exit status"</span>) +<span id="L3605" class="LineNr"> 3605 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3606" class="LineNr"> 3606 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3607" class="LineNr"> 3607 </span> 5d/pop-to-ebp +<span id="L3608" class="LineNr"> 3608 </span> c3/return +<span id="L3609" class="LineNr"> 3609 </span> +<span id="L3610" class="LineNr"> 3610 </span><span class="subxTest">test-convert-function-call-with-missing-output-register</span>: +<span id="L3611" class="LineNr"> 3611 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3612" class="LineNr"> 3612 </span> 55/push-ebp +<span id="L3613" class="LineNr"> 3613 </span> 89/<- %ebp 4/r32/esp +<span id="L3614" class="LineNr"> 3614 </span> <span class="subxComment"># setup</span> +<span id="L3615" class="LineNr"> 3615 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3616" class="LineNr"> 3616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3617" class="LineNr"> 3617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3618" class="LineNr"> 3618 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3619" class="LineNr"> 3619 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3620" class="LineNr"> 3620 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3621" class="LineNr"> 3621 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3622" class="LineNr"> 3622 </span> 68/push 0/imm32 +<span id="L3623" class="LineNr"> 3623 </span> 68/push 0/imm32 +<span id="L3624" class="LineNr"> 3624 </span> 89/<- %edx 4/r32/esp +<span id="L3625" class="LineNr"> 3625 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3626" class="LineNr"> 3626 </span> <span class="subxComment">#</span> +<span id="L3627" class="LineNr"> 3627 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3628" class="LineNr"> 3628 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L3629" class="LineNr"> 3629 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- g\n"</span>) +<span id="L3630" class="LineNr"> 3630 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3631" class="LineNr"> 3631 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) +<span id="L3632" class="LineNr"> 3632 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3633" class="LineNr"> 3633 </span> <span class="subxComment"># convert</span> +<span id="L3634" class="LineNr"> 3634 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3635" class="LineNr"> 3635 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3636" class="LineNr"> 3636 </span> <span class="subxComment"># restore ed</span> +<span id="L3637" class="LineNr"> 3637 </span> 89/<- %edx 4/r32/esp +<span id="L3638" class="LineNr"> 3638 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3639" class="LineNr"> 3639 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3640" class="Folded"> 3640 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3646" class="LineNr"> 3646 </span> <span class="subxComment"># check output</span> +<span id="L3647" class="LineNr"> 3647 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3610'>test-convert-function-call-with-missing-output-register</a>: output should be empty"</span>) +<span id="L3648" class="LineNr"> 3648 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: output 'x' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L3610'>test-convert-function-call-with-missing-output-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3649" class="LineNr"> 3649 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3650" class="LineNr"> 3650 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3610'>test-convert-function-call-with-missing-output-register</a>: exit status"</span>) +<span id="L3651" class="LineNr"> 3651 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3652" class="LineNr"> 3652 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3653" class="LineNr"> 3653 </span> 5d/pop-to-ebp +<span id="L3654" class="LineNr"> 3654 </span> c3/return +<span id="L3655" class="LineNr"> 3655 </span> +<span id="L3656" class="LineNr"> 3656 </span><span class="subxTest">test-convert-function-call-with-incorrect-output-register</span>: +<span id="L3657" class="LineNr"> 3657 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3658" class="LineNr"> 3658 </span> 55/push-ebp +<span id="L3659" class="LineNr"> 3659 </span> 89/<- %ebp 4/r32/esp +<span id="L3660" class="LineNr"> 3660 </span> <span class="subxComment"># setup</span> +<span id="L3661" class="LineNr"> 3661 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3662" class="LineNr"> 3662 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3663" class="LineNr"> 3663 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3664" class="LineNr"> 3664 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3665" class="LineNr"> 3665 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3666" class="LineNr"> 3666 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3667" class="LineNr"> 3667 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3668" class="LineNr"> 3668 </span> 68/push 0/imm32 +<span id="L3669" class="LineNr"> 3669 </span> 68/push 0/imm32 +<span id="L3670" class="LineNr"> 3670 </span> 89/<- %edx 4/r32/esp +<span id="L3671" class="LineNr"> 3671 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3672" class="LineNr"> 3672 </span> <span class="subxComment">#</span> +<span id="L3673" class="LineNr"> 3673 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L3674" class="LineNr"> 3674 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- g\n"</span>) +<span id="L3675" class="LineNr"> 3675 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3676" class="LineNr"> 3676 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn g -> _/eax: int {\n"</span>) +<span id="L3677" class="LineNr"> 3677 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3678" class="LineNr"> 3678 </span> <span class="subxComment"># convert</span> +<span id="L3679" class="LineNr"> 3679 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3680" class="LineNr"> 3680 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3681" class="LineNr"> 3681 </span> <span class="subxComment"># restore ed</span> +<span id="L3682" class="LineNr"> 3682 </span> 89/<- %edx 4/r32/esp +<span id="L3683" class="LineNr"> 3683 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3684" class="LineNr"> 3684 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3685" class="Folded"> 3685 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3691" class="LineNr"> 3691 </span> <span class="subxComment"># check output</span> +<span id="L3692" class="LineNr"> 3692 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3656'>test-convert-function-call-with-incorrect-output-register</a>: output should be empty"</span>) +<span id="L3693" class="LineNr"> 3693 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn f: call g: register for output 'x' is not right"</span> <span class="Constant">"F - <a href='mu.subx.html#L3656'>test-convert-function-call-with-incorrect-output-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3694" class="LineNr"> 3694 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3695" class="LineNr"> 3695 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3656'>test-convert-function-call-with-incorrect-output-register</a>: exit status"</span>) +<span id="L3696" class="LineNr"> 3696 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3697" class="LineNr"> 3697 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3698" class="LineNr"> 3698 </span> 5d/pop-to-ebp +<span id="L3699" class="LineNr"> 3699 </span> c3/return +<span id="L3700" class="LineNr"> 3700 </span> +<span id="L3701" class="LineNr"> 3701 </span><span class="subxTest">test-convert-function-with-local-var-dereferenced</span>: +<span id="L3702" class="LineNr"> 3702 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3703" class="LineNr"> 3703 </span> 55/push-ebp +<span id="L3704" class="LineNr"> 3704 </span> 89/<- %ebp 4/r32/esp +<span id="L3705" class="LineNr"> 3705 </span> <span class="subxComment"># setup</span> +<span id="L3706" class="LineNr"> 3706 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3707" class="LineNr"> 3707 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3708" class="LineNr"> 3708 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3709" class="LineNr"> 3709 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3710" class="LineNr"> 3710 </span> <span class="subxComment">#</span> +<span id="L3711" class="LineNr"> 3711 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3712" class="LineNr"> 3712 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr int) <- copy 0\n"</span>) +<span id="L3713" class="LineNr"> 3713 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment *x\n"</span>) +<span id="L3714" class="LineNr"> 3714 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3715" class="LineNr"> 3715 </span> <span class="subxComment"># convert</span> +<span id="L3716" class="LineNr"> 3716 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3717" class="LineNr"> 3717 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3718" class="Folded"> 3718 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3724" class="LineNr"> 3724 </span> <span class="subxComment"># check output</span> +<span id="L3725" class="LineNr"> 3725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/0"</span>) +<span id="L3726" class="LineNr"> 3726 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/1"</span>) +<span id="L3727" class="LineNr"> 3727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/2"</span>) +<span id="L3728" class="LineNr"> 3728 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/3"</span>) +<span id="L3729" class="LineNr"> 3729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/4"</span>) +<span id="L3730" class="LineNr"> 3730 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/5"</span>) +<span id="L3731" class="LineNr"> 3731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/6"</span>) +<span id="L3732" class="LineNr"> 3732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/7"</span>) +<span id="L3733" class="LineNr"> 3733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/8"</span>) +<span id="L3734" class="LineNr"> 3734 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/9"</span>) +<span id="L3735" class="LineNr"> 3735 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/10"</span>) +<span id="L3736" class="LineNr"> 3736 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/11"</span>) +<span id="L3737" class="LineNr"> 3737 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-dereferenced/12"</span>) +<span id="L3738" class="LineNr"> 3738 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/13"</span>) +<span id="L3739" class="LineNr"> 3739 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/14"</span>) +<span id="L3740" class="LineNr"> 3740 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3701'>test-convert-function-with-local-var-dereferenced</a>/15"</span>) +<span id="L3741" class="LineNr"> 3741 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3742" class="LineNr"> 3742 </span> 89/<- %esp 5/r32/ebp +<span id="L3743" class="LineNr"> 3743 </span> 5d/pop-to-ebp +<span id="L3744" class="LineNr"> 3744 </span> c3/return +<span id="L3745" class="LineNr"> 3745 </span> +<span id="L3746" class="LineNr"> 3746 </span><span class="subxTest">test-dereference-of-var-on-stack</span>: +<span id="L3747" class="LineNr"> 3747 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3748" class="LineNr"> 3748 </span> 55/push-ebp +<span id="L3749" class="LineNr"> 3749 </span> 89/<- %ebp 4/r32/esp +<span id="L3750" class="LineNr"> 3750 </span> <span class="subxComment"># setup</span> +<span id="L3751" class="LineNr"> 3751 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3752" class="LineNr"> 3752 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3753" class="LineNr"> 3753 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3754" class="LineNr"> 3754 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3755" class="LineNr"> 3755 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3756" class="LineNr"> 3756 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3757" class="LineNr"> 3757 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3758" class="LineNr"> 3758 </span> 68/push 0/imm32 +<span id="L3759" class="LineNr"> 3759 </span> 68/push 0/imm32 +<span id="L3760" class="LineNr"> 3760 </span> 89/<- %edx 4/r32/esp +<span id="L3761" class="LineNr"> 3761 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3762" class="LineNr"> 3762 </span> <span class="subxComment">#</span> +<span id="L3763" class="LineNr"> 3763 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3764" class="LineNr"> 3764 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L3765" class="LineNr"> 3765 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment *x\n"</span>) +<span id="L3766" class="LineNr"> 3766 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3767" class="LineNr"> 3767 </span> <span class="subxComment"># convert</span> +<span id="L3768" class="LineNr"> 3768 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3769" class="LineNr"> 3769 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3770" class="LineNr"> 3770 </span> <span class="subxComment"># restore ed</span> +<span id="L3771" class="LineNr"> 3771 </span> 89/<- %edx 4/r32/esp +<span id="L3772" class="LineNr"> 3772 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3773" class="LineNr"> 3773 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3774" class="Folded"> 3774 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3780" class="LineNr"> 3780 </span> <span class="subxComment"># check output</span> +<span id="L3781" class="LineNr"> 3781 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3746'>test-dereference-of-var-on-stack</a>: output should be empty"</span>) +<span id="L3782" class="LineNr"> 3782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: cannot dereference var 'x' on stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3746'>test-dereference-of-var-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3783" class="LineNr"> 3783 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3784" class="LineNr"> 3784 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3746'>test-dereference-of-var-on-stack</a>: exit status"</span>) +<span id="L3785" class="LineNr"> 3785 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3786" class="LineNr"> 3786 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3787" class="LineNr"> 3787 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3788" class="LineNr"> 3788 </span> 5d/pop-to-ebp +<span id="L3789" class="LineNr"> 3789 </span> c3/return +<span id="L3790" class="LineNr"> 3790 </span> +<span id="L3791" class="LineNr"> 3791 </span><span class="subxTest">test-convert-function-with-byte-operations</span>: +<span id="L3792" class="LineNr"> 3792 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3793" class="LineNr"> 3793 </span> 55/push-ebp +<span id="L3794" class="LineNr"> 3794 </span> 89/<- %ebp 4/r32/esp +<span id="L3795" class="LineNr"> 3795 </span> <span class="subxComment"># setup</span> +<span id="L3796" class="LineNr"> 3796 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3797" class="LineNr"> 3797 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3798" class="LineNr"> 3798 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3799" class="LineNr"> 3799 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3800" class="LineNr"> 3800 </span> <span class="subxComment">#</span> +<span id="L3801" class="LineNr"> 3801 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3802" class="LineNr"> 3802 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L3803" class="LineNr"> 3803 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy 0\n"</span>) +<span id="L3804" class="LineNr"> 3804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte x\n"</span>) +<span id="L3805" class="LineNr"> 3805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/edx: (addr byte) <- copy 0\n"</span>) +<span id="L3806" class="LineNr"> 3806 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- copy-byte *z\n"</span>) +<span id="L3807" class="LineNr"> 3807 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *z, x\n"</span>) +<span id="L3808" class="LineNr"> 3808 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3809" class="LineNr"> 3809 </span> <span class="subxComment"># convert</span> +<span id="L3810" class="LineNr"> 3810 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3811" class="LineNr"> 3811 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3812" class="Folded"> 3812 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3818" class="LineNr"> 3818 </span> <span class="subxComment"># check output</span> +<span id="L3819" class="LineNr"> 3819 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/0"</span>) +<span id="L3820" class="LineNr"> 3820 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/1"</span>) +<span id="L3821" class="LineNr"> 3821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/2"</span>) +<span id="L3822" class="LineNr"> 3822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/3"</span>) +<span id="L3823" class="LineNr"> 3823 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/4"</span>) +<span id="L3824" class="LineNr"> 3824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/5"</span>) +<span id="L3825" class="LineNr"> 3825 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/6"</span>) +<span id="L3826" class="LineNr"> 3826 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/7"</span>) +<span id="L3827" class="LineNr"> 3827 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/8"</span>) +<span id="L3828" class="LineNr"> 3828 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/9"</span>) +<span id="L3829" class="LineNr"> 3829 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8a/byte-> %eax 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/10"</span>) +<span id="L3830" class="LineNr"> 3830 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/11"</span>) +<span id="L3831" class="LineNr"> 3831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/12"</span>) +<span id="L3832" class="LineNr"> 3832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/13"</span>) +<span id="L3833" class="LineNr"> 3833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8a/byte-> *edx 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/14"</span>) +<span id="L3834" class="LineNr"> 3834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 4/subop/and %ecx 0xff/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/15"</span>) +<span id="L3835" class="LineNr"> 3835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 88/byte<- *edx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/16"</span>) +<span id="L3836" class="LineNr"> 3836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/17"</span>) +<span id="L3837" class="LineNr"> 3837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/18"</span>) +<span id="L3838" class="LineNr"> 3838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/19"</span>) +<span id="L3839" class="LineNr"> 3839 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/20"</span>) +<span id="L3840" class="LineNr"> 3840 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/21"</span>) +<span id="L3841" class="LineNr"> 3841 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-byte-operations/22"</span>) +<span id="L3842" class="LineNr"> 3842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/23"</span>) +<span id="L3843" class="LineNr"> 3843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/24"</span>) +<span id="L3844" class="LineNr"> 3844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3791'>test-convert-function-with-byte-operations</a>/25"</span>) +<span id="L3845" class="LineNr"> 3845 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3846" class="LineNr"> 3846 </span> 89/<- %esp 5/r32/ebp +<span id="L3847" class="LineNr"> 3847 </span> 5d/pop-to-ebp +<span id="L3848" class="LineNr"> 3848 </span> c3/return +<span id="L3849" class="LineNr"> 3849 </span> +<span id="L3850" class="LineNr"> 3850 </span><span class="subxComment"># variables of type 'byte' are not allowed on the stack</span> +<span id="L3851" class="LineNr"> 3851 </span><span class="subxTest">test-byte-values-on-stack</span>: +<span id="L3852" class="LineNr"> 3852 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3853" class="LineNr"> 3853 </span> 55/push-ebp +<span id="L3854" class="LineNr"> 3854 </span> 89/<- %ebp 4/r32/esp +<span id="L3855" class="LineNr"> 3855 </span> <span class="subxComment"># setup</span> +<span id="L3856" class="LineNr"> 3856 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3857" class="LineNr"> 3857 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3858" class="LineNr"> 3858 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3859" class="LineNr"> 3859 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3860" class="LineNr"> 3860 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3861" class="LineNr"> 3861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3862" class="LineNr"> 3862 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3863" class="LineNr"> 3863 </span> 68/push 0/imm32 +<span id="L3864" class="LineNr"> 3864 </span> 68/push 0/imm32 +<span id="L3865" class="LineNr"> 3865 </span> 89/<- %edx 4/r32/esp +<span id="L3866" class="LineNr"> 3866 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3867" class="LineNr"> 3867 </span> <span class="subxComment">#</span> +<span id="L3868" class="LineNr"> 3868 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3869" class="LineNr"> 3869 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: byte\n"</span>) +<span id="L3870" class="LineNr"> 3870 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3871" class="LineNr"> 3871 </span> <span class="subxComment"># convert</span> +<span id="L3872" class="LineNr"> 3872 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3873" class="LineNr"> 3873 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3874" class="LineNr"> 3874 </span> <span class="subxComment"># restore ed</span> +<span id="L3875" class="LineNr"> 3875 </span> 89/<- %edx 4/r32/esp +<span id="L3876" class="LineNr"> 3876 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3877" class="LineNr"> 3877 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3878" class="Folded"> 3878 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3884" class="LineNr"> 3884 </span> <span class="subxComment"># check output</span> +<span id="L3885" class="LineNr"> 3885 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3851'>test-byte-values-on-stack</a>: output should be empty"</span>) +<span id="L3886" class="LineNr"> 3886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be on the stack"</span> <span class="Constant">"F - <a href='mu.subx.html#L3851'>test-byte-values-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3887" class="LineNr"> 3887 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3888" class="LineNr"> 3888 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3851'>test-byte-values-on-stack</a>: exit status"</span>) +<span id="L3889" class="LineNr"> 3889 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3890" class="LineNr"> 3890 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3891" class="LineNr"> 3891 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3892" class="LineNr"> 3892 </span> 5d/pop-to-ebp +<span id="L3893" class="LineNr"> 3893 </span> c3/return +<span id="L3894" class="LineNr"> 3894 </span> +<span id="L3895" class="LineNr"> 3895 </span><span class="subxComment"># variables of type 'byte' are not allowed in esi or edi</span> +<span id="L3896" class="LineNr"> 3896 </span><span class="subxTest">test-byte-values-in-unsupported-registers</span>: +<span id="L3897" class="LineNr"> 3897 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3898" class="LineNr"> 3898 </span> 55/push-ebp +<span id="L3899" class="LineNr"> 3899 </span> 89/<- %ebp 4/r32/esp +<span id="L3900" class="LineNr"> 3900 </span> <span class="subxComment"># setup</span> +<span id="L3901" class="LineNr"> 3901 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3902" class="LineNr"> 3902 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3903" class="LineNr"> 3903 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3904" class="LineNr"> 3904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3905" class="LineNr"> 3905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L3906" class="LineNr"> 3906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L3907" class="LineNr"> 3907 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L3908" class="LineNr"> 3908 </span> 68/push 0/imm32 +<span id="L3909" class="LineNr"> 3909 </span> 68/push 0/imm32 +<span id="L3910" class="LineNr"> 3910 </span> 89/<- %edx 4/r32/esp +<span id="L3911" class="LineNr"> 3911 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L3912" class="LineNr"> 3912 </span> <span class="subxComment">#</span> +<span id="L3913" class="LineNr"> 3913 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3914" class="LineNr"> 3914 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: byte <- copy 0\n"</span>) +<span id="L3915" class="LineNr"> 3915 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3916" class="LineNr"> 3916 </span> <span class="subxComment"># convert</span> +<span id="L3917" class="LineNr"> 3917 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L3918" class="LineNr"> 3918 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L3919" class="LineNr"> 3919 </span> <span class="subxComment"># restore ed</span> +<span id="L3920" class="LineNr"> 3920 </span> 89/<- %edx 4/r32/esp +<span id="L3921" class="LineNr"> 3921 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3922" class="LineNr"> 3922 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L3923" class="Folded"> 3923 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3929" class="LineNr"> 3929 </span> <span class="subxComment"># check output</span> +<span id="L3930" class="LineNr"> 3930 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L3896'>test-byte-values-in-unsupported-registers</a>: output should be empty"</span>) +<span id="L3931" class="LineNr"> 3931 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: var 'x' of type 'byte' cannot be in esi or edi"</span> <span class="Constant">"F - <a href='mu.subx.html#L3896'>test-byte-values-in-unsupported-registers</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L3932" class="LineNr"> 3932 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L3933" class="LineNr"> 3933 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L3896'>test-byte-values-in-unsupported-registers</a>: exit status"</span>) +<span id="L3934" class="LineNr"> 3934 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L3935" class="LineNr"> 3935 </span> 81 0/subop/add %esp 8/imm32 +<span id="L3936" class="LineNr"> 3936 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3937" class="LineNr"> 3937 </span> 5d/pop-to-ebp +<span id="L3938" class="LineNr"> 3938 </span> c3/return +<span id="L3939" class="LineNr"> 3939 </span> +<span id="L3940" class="LineNr"> 3940 </span><span class="subxComment"># variables of type 'byte' _can_ be function args. They then occupy 4 bytes.</span> +<span id="L3941" class="LineNr"> 3941 </span><span class="subxTest">test-copy-byte-var-from-fn-arg</span>: +<span id="L3942" class="LineNr"> 3942 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3943" class="LineNr"> 3943 </span> 55/push-ebp +<span id="L3944" class="LineNr"> 3944 </span> 89/<- %ebp 4/r32/esp +<span id="L3945" class="LineNr"> 3945 </span> <span class="subxComment"># setup</span> +<span id="L3946" class="LineNr"> 3946 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3947" class="LineNr"> 3947 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3948" class="LineNr"> 3948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3949" class="LineNr"> 3949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3950" class="LineNr"> 3950 </span> <span class="subxComment">#</span> +<span id="L3951" class="LineNr"> 3951 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: byte, y: int {\n"</span>) +<span id="L3952" class="LineNr"> 3952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: byte <- copy x\n"</span>) +<span id="L3953" class="LineNr"> 3953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy y\n"</span>) +<span id="L3954" class="LineNr"> 3954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L3955" class="LineNr"> 3955 </span> <span class="subxComment"># convert</span> +<span id="L3956" class="LineNr"> 3956 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L3957" class="LineNr"> 3957 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L3958" class="Folded"> 3958 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3964" class="LineNr"> 3964 </span> <span class="subxComment"># check output</span> +<span id="L3965" class="LineNr"> 3965 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/0"</span>) +<span id="L3966" class="LineNr"> 3966 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/1"</span>) +<span id="L3967" class="LineNr"> 3967 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/2"</span>) +<span id="L3968" class="LineNr"> 3968 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/3"</span>) +<span id="L3969" class="LineNr"> 3969 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/4"</span>) +<span id="L3970" class="LineNr"> 3970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/5"</span>) +<span id="L3971" class="LineNr"> 3971 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/6"</span>) +<span id="L3972" class="LineNr"> 3972 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/7"</span>) +<span id="L3973" class="LineNr"> 3973 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/8"</span>) +<span id="L3974" class="LineNr"> 3974 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/9"</span>) +<span id="L3975" class="LineNr"> 3975 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/10"</span>) +<span id="L3976" class="LineNr"> 3976 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/11"</span>) +<span id="L3977" class="LineNr"> 3977 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/12"</span>) +<span id="L3978" class="LineNr"> 3978 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/13"</span>) +<span id="L3979" class="LineNr"> 3979 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/14"</span>) +<span id="L3980" class="LineNr"> 3980 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - test-copy-byte-from-fn-arg/15"</span>) +<span id="L3981" class="LineNr"> 3981 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3982" class="LineNr"> 3982 </span> 89/<- %esp 5/r32/ebp +<span id="L3983" class="LineNr"> 3983 </span> 5d/pop-to-ebp +<span id="L3984" class="LineNr"> 3984 </span> c3/return +<span id="L3985" class="LineNr"> 3985 </span> +<span id="L3986" class="LineNr"> 3986 </span><span class="subxTest">test-convert-compare-register-with-literal</span>: +<span id="L3987" class="LineNr"> 3987 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3988" class="LineNr"> 3988 </span> 55/push-ebp +<span id="L3989" class="LineNr"> 3989 </span> 89/<- %ebp 4/r32/esp +<span id="L3990" class="LineNr"> 3990 </span> <span class="subxComment"># setup</span> +<span id="L3991" class="LineNr"> 3991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L3992" class="LineNr"> 3992 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L3993" class="LineNr"> 3993 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L3994" class="LineNr"> 3994 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L3995" class="LineNr"> 3995 </span> <span class="subxComment">#</span> +<span id="L3996" class="LineNr"> 3996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L3997" class="LineNr"> 3997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 0\n"</span>) +<span id="L3998" class="LineNr"> 3998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L3999" class="LineNr"> 3999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4000" class="LineNr"> 4000 </span> <span class="subxComment"># convert</span> +<span id="L4001" class="LineNr"> 4001 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4002" class="LineNr"> 4002 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4003" class="Folded"> 4003 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4009" class="LineNr"> 4009 </span> <span class="subxComment"># check output</span> +<span id="L4010" class="LineNr"> 4010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/0"</span>) +<span id="L4011" class="LineNr"> 4011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/1"</span>) +<span id="L4012" class="LineNr"> 4012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/2"</span>) +<span id="L4013" class="LineNr"> 4013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/3"</span>) +<span id="L4014" class="LineNr"> 4014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/4"</span>) +<span id="L4015" class="LineNr"> 4015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/5"</span>) +<span id="L4016" class="LineNr"> 4016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/6"</span>) +<span id="L4017" class="LineNr"> 4017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/7"</span>) +<span id="L4018" class="LineNr"> 4018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 7/subop/compare %ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/8"</span>) +<span id="L4019" class="LineNr"> 4019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/9"</span>) +<span id="L4020" class="LineNr"> 4020 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/10"</span>) +<span id="L4021" class="LineNr"> 4021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/11"</span>) +<span id="L4022" class="LineNr"> 4022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-compare-register-with-literal/12"</span>) +<span id="L4023" class="LineNr"> 4023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/13"</span>) +<span id="L4024" class="LineNr"> 4024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/14"</span>) +<span id="L4025" class="LineNr"> 4025 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/15"</span>) +<span id="L4026" class="LineNr"> 4026 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4027" class="LineNr"> 4027 </span> 89/<- %esp 5/r32/ebp +<span id="L4028" class="LineNr"> 4028 </span> 5d/pop-to-ebp +<span id="L4029" class="LineNr"> 4029 </span> c3/return +<span id="L4030" class="LineNr"> 4030 </span> +<span id="L4031" class="LineNr"> 4031 </span><span class="subxTest">test-convert-compare-byte-with-literal</span>: +<span id="L4032" class="LineNr"> 4032 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4033" class="LineNr"> 4033 </span> 55/push-ebp +<span id="L4034" class="LineNr"> 4034 </span> 89/<- %ebp 4/r32/esp +<span id="L4035" class="LineNr"> 4035 </span> <span class="subxComment"># setup</span> +<span id="L4036" class="LineNr"> 4036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4037" class="LineNr"> 4037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4038" class="LineNr"> 4038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4039" class="LineNr"> 4039 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4040" class="LineNr"> 4040 </span> <span class="subxComment">#</span> +<span id="L4041" class="LineNr"> 4041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4042" class="LineNr"> 4042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 0\n"</span>) +<span id="L4043" class="LineNr"> 4043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L4044" class="LineNr"> 4044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4045" class="LineNr"> 4045 </span> <span class="subxComment"># convert</span> +<span id="L4046" class="LineNr"> 4046 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4047" class="LineNr"> 4047 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4048" class="Folded"> 4048 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4054" class="LineNr"> 4054 </span> <span class="subxComment"># no errors; output is identical to test-convert-compare-register-with-literal</span> +<span id="L4055" class="LineNr"> 4055 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4056" class="LineNr"> 4056 </span> 89/<- %esp 5/r32/ebp +<span id="L4057" class="LineNr"> 4057 </span> 5d/pop-to-ebp +<span id="L4058" class="LineNr"> 4058 </span> c3/return +<span id="L4059" class="LineNr"> 4059 </span> +<span id="L4060" class="LineNr"> 4060 </span><span class="subxTest">test-unknown-variable</span>: +<span id="L4061" class="LineNr"> 4061 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4062" class="LineNr"> 4062 </span> 55/push-ebp +<span id="L4063" class="LineNr"> 4063 </span> 89/<- %ebp 4/r32/esp +<span id="L4064" class="LineNr"> 4064 </span> <span class="subxComment"># setup</span> +<span id="L4065" class="LineNr"> 4065 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4066" class="LineNr"> 4066 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4067" class="LineNr"> 4067 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4068" class="LineNr"> 4068 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4069" class="LineNr"> 4069 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L4070" class="LineNr"> 4070 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L4071" class="LineNr"> 4071 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L4072" class="LineNr"> 4072 </span> 68/push 0/imm32 +<span id="L4073" class="LineNr"> 4073 </span> 68/push 0/imm32 +<span id="L4074" class="LineNr"> 4074 </span> 89/<- %edx 4/r32/esp +<span id="L4075" class="LineNr"> 4075 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L4076" class="LineNr"> 4076 </span> <span class="subxComment">#</span> +<span id="L4077" class="LineNr"> 4077 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4078" class="LineNr"> 4078 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L4079" class="LineNr"> 4079 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4080" class="LineNr"> 4080 </span> <span class="subxComment"># convert</span> +<span id="L4081" class="LineNr"> 4081 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L4082" class="LineNr"> 4082 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L4083" class="LineNr"> 4083 </span> <span class="subxComment"># restore ed</span> +<span id="L4084" class="LineNr"> 4084 </span> 89/<- %edx 4/r32/esp +<span id="L4085" class="LineNr"> 4085 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4086" class="LineNr"> 4086 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L4087" class="Folded"> 4087 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4093" class="LineNr"> 4093 </span> <span class="subxComment"># check output</span> +<span id="L4094" class="LineNr"> 4094 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4060'>test-unknown-variable</a>: output should be empty"</span>) +<span id="L4095" class="LineNr"> 4095 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L4060'>test-unknown-variable</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L4096" class="LineNr"> 4096 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L4097" class="LineNr"> 4097 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4060'>test-unknown-variable</a>: exit status"</span>) +<span id="L4098" class="LineNr"> 4098 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L4099" class="LineNr"> 4099 </span> 81 0/subop/add %esp 8/imm32 +<span id="L4100" class="LineNr"> 4100 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4101" class="LineNr"> 4101 </span> 5d/pop-to-ebp +<span id="L4102" class="LineNr"> 4102 </span> c3/return +<span id="L4103" class="LineNr"> 4103 </span> +<span id="L4104" class="LineNr"> 4104 </span><span class="subxTest">test-convert-function-with-local-var-in-block</span>: +<span id="L4105" class="LineNr"> 4105 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4106" class="LineNr"> 4106 </span> 55/push-ebp +<span id="L4107" class="LineNr"> 4107 </span> 89/<- %ebp 4/r32/esp +<span id="L4108" class="LineNr"> 4108 </span> <span class="subxComment"># setup</span> +<span id="L4109" class="LineNr"> 4109 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4110" class="LineNr"> 4110 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4111" class="LineNr"> 4111 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4112" class="LineNr"> 4112 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4113" class="LineNr"> 4113 </span> <span class="subxComment">#</span> +<span id="L4114" class="LineNr"> 4114 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4115" class="LineNr"> 4115 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4116" class="LineNr"> 4116 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L4117" class="LineNr"> 4117 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4118" class="LineNr"> 4118 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4119" class="LineNr"> 4119 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4120" class="LineNr"> 4120 </span> <span class="subxComment"># convert</span> +<span id="L4121" class="LineNr"> 4121 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4122" class="LineNr"> 4122 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4123" class="Folded"> 4123 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4129" class="LineNr"> 4129 </span> <span class="subxComment"># check output</span> +<span id="L4130" class="LineNr"> 4130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/0"</span>) +<span id="L4131" class="LineNr"> 4131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/1"</span>) +<span id="L4132" class="LineNr"> 4132 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/2"</span>) +<span id="L4133" class="LineNr"> 4133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/3"</span>) +<span id="L4134" class="LineNr"> 4134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/4"</span>) +<span id="L4135" class="LineNr"> 4135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/5"</span>) +<span id="L4136" class="LineNr"> 4136 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/6"</span>) +<span id="L4137" class="LineNr"> 4137 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/7"</span>) +<span id="L4138" class="LineNr"> 4138 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/8"</span>) +<span id="L4139" class="LineNr"> 4139 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/9"</span>) +<span id="L4140" class="LineNr"> 4140 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/10"</span>) +<span id="L4141" class="LineNr"> 4141 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/11"</span>) +<span id="L4142" class="LineNr"> 4142 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/12"</span>) +<span id="L4143" class="LineNr"> 4143 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/13"</span>) +<span id="L4144" class="LineNr"> 4144 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/14"</span>) +<span id="L4145" class="LineNr"> 4145 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-block/15"</span>) +<span id="L4146" class="LineNr"> 4146 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/16"</span>) +<span id="L4147" class="LineNr"> 4147 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/17"</span>) +<span id="L4148" class="LineNr"> 4148 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4104'>test-convert-function-with-local-var-in-block</a>/18"</span>) +<span id="L4149" class="LineNr"> 4149 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4150" class="LineNr"> 4150 </span> 89/<- %esp 5/r32/ebp +<span id="L4151" class="LineNr"> 4151 </span> 5d/pop-to-ebp +<span id="L4152" class="LineNr"> 4152 </span> c3/return +<span id="L4153" class="LineNr"> 4153 </span> +<span id="L4154" class="LineNr"> 4154 </span><span class="subxTest">test-convert-function-with-local-var-in-mem-after-block</span>: +<span id="L4155" class="LineNr"> 4155 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4156" class="LineNr"> 4156 </span> 55/push-ebp +<span id="L4157" class="LineNr"> 4157 </span> 89/<- %ebp 4/r32/esp +<span id="L4158" class="LineNr"> 4158 </span> <span class="subxComment"># setup</span> +<span id="L4159" class="LineNr"> 4159 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4160" class="LineNr"> 4160 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4161" class="LineNr"> 4161 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4162" class="LineNr"> 4162 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4163" class="LineNr"> 4163 </span> <span class="subxComment">#</span> +<span id="L4164" class="LineNr"> 4164 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4165" class="LineNr"> 4165 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4166" class="LineNr"> 4166 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L4167" class="LineNr"> 4167 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4168" class="LineNr"> 4168 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L4169" class="LineNr"> 4169 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4170" class="LineNr"> 4170 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4171" class="LineNr"> 4171 </span> <span class="subxComment"># convert</span> +<span id="L4172" class="LineNr"> 4172 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4173" class="LineNr"> 4173 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4174" class="Folded"> 4174 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4180" class="LineNr"> 4180 </span> <span class="subxComment"># check output</span> +<span id="L4181" class="LineNr"> 4181 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/0"</span>) +<span id="L4182" class="LineNr"> 4182 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/1"</span>) +<span id="L4183" class="LineNr"> 4183 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/2"</span>) +<span id="L4184" class="LineNr"> 4184 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/3"</span>) +<span id="L4185" class="LineNr"> 4185 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/4"</span>) +<span id="L4186" class="LineNr"> 4186 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/5"</span>) +<span id="L4187" class="LineNr"> 4187 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/6"</span>) +<span id="L4188" class="LineNr"> 4188 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/7"</span>) +<span id="L4189" class="LineNr"> 4189 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/8"</span>) +<span id="L4190" class="LineNr"> 4190 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/9"</span>) +<span id="L4191" class="LineNr"> 4191 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/10"</span>) +<span id="L4192" class="LineNr"> 4192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/11"</span>) +<span id="L4193" class="LineNr"> 4193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/12"</span>) +<span id="L4194" class="LineNr"> 4194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/13"</span>) +<span id="L4195" class="LineNr"> 4195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/14"</span>) +<span id="L4196" class="LineNr"> 4196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/15"</span>) +<span id="L4197" class="LineNr"> 4197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/16"</span>) +<span id="L4198" class="LineNr"> 4198 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-mem-after-block/17"</span>) +<span id="L4199" class="LineNr"> 4199 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/18"</span>) +<span id="L4200" class="LineNr"> 4200 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/19"</span>) +<span id="L4201" class="LineNr"> 4201 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4154'>test-convert-function-with-local-var-in-mem-after-block</a>/20"</span>) +<span id="L4202" class="LineNr"> 4202 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4203" class="LineNr"> 4203 </span> 89/<- %esp 5/r32/ebp +<span id="L4204" class="LineNr"> 4204 </span> 5d/pop-to-ebp +<span id="L4205" class="LineNr"> 4205 </span> c3/return +<span id="L4206" class="LineNr"> 4206 </span> +<span id="L4207" class="LineNr"> 4207 </span><span class="subxTest">test-convert-function-with-local-var-in-named-block</span>: +<span id="L4208" class="LineNr"> 4208 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4209" class="LineNr"> 4209 </span> 55/push-ebp +<span id="L4210" class="LineNr"> 4210 </span> 89/<- %ebp 4/r32/esp +<span id="L4211" class="LineNr"> 4211 </span> <span class="subxComment"># setup</span> +<span id="L4212" class="LineNr"> 4212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4213" class="LineNr"> 4213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4214" class="LineNr"> 4214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4215" class="LineNr"> 4215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4216" class="LineNr"> 4216 </span> <span class="subxComment">#</span> +<span id="L4217" class="LineNr"> 4217 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4218" class="LineNr"> 4218 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) +<span id="L4219" class="LineNr"> 4219 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L4220" class="LineNr"> 4220 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4221" class="LineNr"> 4221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4222" class="LineNr"> 4222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4223" class="LineNr"> 4223 </span> <span class="subxComment"># convert</span> +<span id="L4224" class="LineNr"> 4224 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4225" class="LineNr"> 4225 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4226" class="Folded"> 4226 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4232" class="LineNr"> 4232 </span> <span class="subxComment"># check output</span> +<span id="L4233" class="LineNr"> 4233 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/0"</span>) +<span id="L4234" class="LineNr"> 4234 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/1"</span>) +<span id="L4235" class="LineNr"> 4235 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/2"</span>) +<span id="L4236" class="LineNr"> 4236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/3"</span>) +<span id="L4237" class="LineNr"> 4237 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/4"</span>) +<span id="L4238" class="LineNr"> 4238 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/5"</span>) +<span id="L4239" class="LineNr"> 4239 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/6"</span>) +<span id="L4240" class="LineNr"> 4240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/7"</span>) +<span id="L4241" class="LineNr"> 4241 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/8"</span>) +<span id="L4242" class="LineNr"> 4242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/9"</span>) +<span id="L4243" class="LineNr"> 4243 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/10"</span>) +<span id="L4244" class="LineNr"> 4244 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/11"</span>) +<span id="L4245" class="LineNr"> 4245 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/12"</span>) +<span id="L4246" class="LineNr"> 4246 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/13"</span>) +<span id="L4247" class="LineNr"> 4247 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/14"</span>) +<span id="L4248" class="LineNr"> 4248 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-in-named-block/15"</span>) +<span id="L4249" class="LineNr"> 4249 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/16"</span>) +<span id="L4250" class="LineNr"> 4250 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/17"</span>) +<span id="L4251" class="LineNr"> 4251 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4207'>test-convert-function-with-local-var-in-named-block</a>/18"</span>) +<span id="L4252" class="LineNr"> 4252 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4253" class="LineNr"> 4253 </span> 89/<- %esp 5/r32/ebp +<span id="L4254" class="LineNr"> 4254 </span> 5d/pop-to-ebp +<span id="L4255" class="LineNr"> 4255 </span> c3/return +<span id="L4256" class="LineNr"> 4256 </span> +<span id="L4257" class="LineNr"> 4257 </span><span class="subxTest">test-unknown-variable-in-named-block</span>: +<span id="L4258" class="LineNr"> 4258 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4259" class="LineNr"> 4259 </span> 55/push-ebp +<span id="L4260" class="LineNr"> 4260 </span> 89/<- %ebp 4/r32/esp +<span id="L4261" class="LineNr"> 4261 </span> <span class="subxComment"># setup</span> +<span id="L4262" class="LineNr"> 4262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4263" class="LineNr"> 4263 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4264" class="LineNr"> 4264 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4265" class="LineNr"> 4265 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4266" class="LineNr"> 4266 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L4267" class="LineNr"> 4267 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L4268" class="LineNr"> 4268 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L4269" class="LineNr"> 4269 </span> 68/push 0/imm32 +<span id="L4270" class="LineNr"> 4270 </span> 68/push 0/imm32 +<span id="L4271" class="LineNr"> 4271 </span> 89/<- %edx 4/r32/esp +<span id="L4272" class="LineNr"> 4272 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L4273" class="LineNr"> 4273 </span> <span class="subxComment">#</span> +<span id="L4274" class="LineNr"> 4274 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4275" class="LineNr"> 4275 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $a: {\n"</span>) +<span id="L4276" class="LineNr"> 4276 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0\n"</span>) +<span id="L4277" class="LineNr"> 4277 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4278" class="LineNr"> 4278 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4279" class="LineNr"> 4279 </span> <span class="subxComment"># convert</span> +<span id="L4280" class="LineNr"> 4280 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L4281" class="LineNr"> 4281 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L4282" class="LineNr"> 4282 </span> <span class="subxComment"># restore ed</span> +<span id="L4283" class="LineNr"> 4283 </span> 89/<- %edx 4/r32/esp +<span id="L4284" class="LineNr"> 4284 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4285" class="LineNr"> 4285 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L4286" class="Folded"> 4286 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4292" class="LineNr"> 4292 </span> <span class="subxComment"># check output</span> +<span id="L4293" class="LineNr"> 4293 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L4257'>test-unknown-variable-in-named-block</a>: output should be empty"</span>) +<span id="L4294" class="LineNr"> 4294 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: unknown variable 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L4257'>test-unknown-variable-in-named-block</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L4295" class="LineNr"> 4295 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L4296" class="LineNr"> 4296 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L4257'>test-unknown-variable-in-named-block</a>: exit status"</span>) +<span id="L4297" class="LineNr"> 4297 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L4298" class="LineNr"> 4298 </span> 81 0/subop/add %esp 8/imm32 +<span id="L4299" class="LineNr"> 4299 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4300" class="LineNr"> 4300 </span> 5d/pop-to-ebp +<span id="L4301" class="LineNr"> 4301 </span> c3/return +<span id="L4302" class="LineNr"> 4302 </span> +<span id="L4303" class="LineNr"> 4303 </span><span class="subxTest">test-always-shadow-outermost-reg-vars-in-function</span>: +<span id="L4304" class="LineNr"> 4304 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4305" class="LineNr"> 4305 </span> 55/push-ebp +<span id="L4306" class="LineNr"> 4306 </span> 89/<- %ebp 4/r32/esp +<span id="L4307" class="LineNr"> 4307 </span> <span class="subxComment"># setup</span> +<span id="L4308" class="LineNr"> 4308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4309" class="LineNr"> 4309 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4310" class="LineNr"> 4310 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4311" class="LineNr"> 4311 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4312" class="LineNr"> 4312 </span> <span class="subxComment">#</span> +<span id="L4313" class="LineNr"> 4313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4314" class="LineNr"> 4314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L4315" class="LineNr"> 4315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4316" class="LineNr"> 4316 </span> <span class="subxComment"># convert</span> +<span id="L4317" class="LineNr"> 4317 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4318" class="LineNr"> 4318 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4319" class="Folded"> 4319 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4325" class="LineNr"> 4325 </span> <span class="subxComment"># check output</span> +<span id="L4326" class="LineNr"> 4326 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/0"</span>) +<span id="L4327" class="LineNr"> 4327 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/1"</span>) +<span id="L4328" class="LineNr"> 4328 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/2"</span>) +<span id="L4329" class="LineNr"> 4329 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/3"</span>) +<span id="L4330" class="LineNr"> 4330 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/4"</span>) +<span id="L4331" class="LineNr"> 4331 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/5"</span>) +<span id="L4332" class="LineNr"> 4332 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/6"</span>) +<span id="L4333" class="LineNr"> 4333 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/8"</span>) +<span id="L4334" class="LineNr"> 4334 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L3986'>test-convert-compare-register-with-literal</a>/9"</span>) +<span id="L4335" class="LineNr"> 4335 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/12"</span>) +<span id="L4336" class="LineNr"> 4336 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/13"</span>) +<span id="L4337" class="LineNr"> 4337 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-always-shadow-outermost-reg-vars-in-function/14"</span>) +<span id="L4338" class="LineNr"> 4338 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/15"</span>) +<span id="L4339" class="LineNr"> 4339 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/16"</span>) +<span id="L4340" class="LineNr"> 4340 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4303'>test-always-shadow-outermost-reg-vars-in-function</a>/17"</span>) +<span id="L4341" class="LineNr"> 4341 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4342" class="LineNr"> 4342 </span> 89/<- %esp 5/r32/ebp +<span id="L4343" class="LineNr"> 4343 </span> 5d/pop-to-ebp +<span id="L4344" class="LineNr"> 4344 </span> c3/return +<span id="L4345" class="LineNr"> 4345 </span> +<span id="L4346" class="LineNr"> 4346 </span><span class="subxTest">test-shadow-local</span>: +<span id="L4347" class="LineNr"> 4347 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4348" class="LineNr"> 4348 </span> 55/push-ebp +<span id="L4349" class="LineNr"> 4349 </span> 89/<- %ebp 4/r32/esp +<span id="L4350" class="LineNr"> 4350 </span> <span class="subxComment"># setup</span> +<span id="L4351" class="LineNr"> 4351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4352" class="LineNr"> 4352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4353" class="LineNr"> 4353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4354" class="LineNr"> 4354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4355" class="LineNr"> 4355 </span> <span class="subxComment">#</span> +<span id="L4356" class="LineNr"> 4356 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4357" class="LineNr"> 4357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L4358" class="LineNr"> 4358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4359" class="LineNr"> 4359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L4360" class="LineNr"> 4360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4361" class="LineNr"> 4361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L4362" class="LineNr"> 4362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4363" class="LineNr"> 4363 </span> <span class="subxComment"># convert</span> +<span id="L4364" class="LineNr"> 4364 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4365" class="LineNr"> 4365 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4366" class="Folded"> 4366 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4372" class="LineNr"> 4372 </span> <span class="subxComment"># check output</span> +<span id="L4373" class="LineNr"> 4373 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/0"</span>) +<span id="L4374" class="LineNr"> 4374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-local/1"</span>) +<span id="L4375" class="LineNr"> 4375 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/2"</span>) +<span id="L4376" class="LineNr"> 4376 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/3"</span>) +<span id="L4377" class="LineNr"> 4377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/4"</span>) +<span id="L4378" class="LineNr"> 4378 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/5"</span>) +<span id="L4379" class="LineNr"> 4379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/6"</span>) +<span id="L4380" class="LineNr"> 4380 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/7"</span>) +<span id="L4381" class="LineNr"> 4381 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/8"</span>) +<span id="L4382" class="LineNr"> 4382 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/9"</span>) +<span id="L4383" class="LineNr"> 4383 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/10"</span>) +<span id="L4384" class="LineNr"> 4384 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/11"</span>) +<span id="L4385" class="LineNr"> 4385 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/12"</span>) +<span id="L4386" class="LineNr"> 4386 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/13"</span>) +<span id="L4387" class="LineNr"> 4387 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/14"</span>) +<span id="L4388" class="LineNr"> 4388 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/15"</span>) +<span id="L4389" class="LineNr"> 4389 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/16"</span>) +<span id="L4390" class="LineNr"> 4390 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/17"</span>) +<span id="L4391" class="LineNr"> 4391 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/18"</span>) +<span id="L4392" class="LineNr"> 4392 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-local/19"</span>) +<span id="L4393" class="LineNr"> 4393 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/20"</span>) +<span id="L4394" class="LineNr"> 4394 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/21"</span>) +<span id="L4395" class="LineNr"> 4395 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4346'>test-shadow-local</a>/22"</span>) +<span id="L4396" class="LineNr"> 4396 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4397" class="LineNr"> 4397 </span> 89/<- %esp 5/r32/ebp +<span id="L4398" class="LineNr"> 4398 </span> 5d/pop-to-ebp +<span id="L4399" class="LineNr"> 4399 </span> c3/return +<span id="L4400" class="LineNr"> 4400 </span> +<span id="L4401" class="LineNr"> 4401 </span><span class="subxTest">test-shadow-name</span>: +<span id="L4402" class="LineNr"> 4402 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4403" class="LineNr"> 4403 </span> 55/push-ebp +<span id="L4404" class="LineNr"> 4404 </span> 89/<- %ebp 4/r32/esp +<span id="L4405" class="LineNr"> 4405 </span> <span class="subxComment"># setup</span> +<span id="L4406" class="LineNr"> 4406 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4407" class="LineNr"> 4407 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4408" class="LineNr"> 4408 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4409" class="LineNr"> 4409 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4410" class="LineNr"> 4410 </span> <span class="subxComment">#</span> +<span id="L4411" class="LineNr"> 4411 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4412" class="LineNr"> 4412 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L4413" class="LineNr"> 4413 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4414" class="LineNr"> 4414 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) +<span id="L4415" class="LineNr"> 4415 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4416" class="LineNr"> 4416 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L4417" class="LineNr"> 4417 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4418" class="LineNr"> 4418 </span> <span class="subxComment"># convert</span> +<span id="L4419" class="LineNr"> 4419 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4420" class="LineNr"> 4420 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4421" class="Folded"> 4421 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4427" class="LineNr"> 4427 </span> <span class="subxComment"># check output</span> +<span id="L4428" class="LineNr"> 4428 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/0"</span>) +<span id="L4429" class="LineNr"> 4429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name/1"</span>) +<span id="L4430" class="LineNr"> 4430 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/2"</span>) +<span id="L4431" class="LineNr"> 4431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/3"</span>) +<span id="L4432" class="LineNr"> 4432 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/4"</span>) +<span id="L4433" class="LineNr"> 4433 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/5"</span>) +<span id="L4434" class="LineNr"> 4434 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/6"</span>) +<span id="L4435" class="LineNr"> 4435 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/7"</span>) +<span id="L4436" class="LineNr"> 4436 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/8"</span>) +<span id="L4437" class="LineNr"> 4437 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/9"</span>) +<span id="L4438" class="LineNr"> 4438 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/10"</span>) +<span id="L4439" class="LineNr"> 4439 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/11"</span>) +<span id="L4440" class="LineNr"> 4440 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/12"</span>) +<span id="L4441" class="LineNr"> 4441 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/13"</span>) +<span id="L4442" class="LineNr"> 4442 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/14"</span>) +<span id="L4443" class="LineNr"> 4443 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/15"</span>) +<span id="L4444" class="LineNr"> 4444 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/16"</span>) +<span id="L4445" class="LineNr"> 4445 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/17"</span>) +<span id="L4446" class="LineNr"> 4446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/18"</span>) +<span id="L4447" class="LineNr"> 4447 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name/19"</span>) +<span id="L4448" class="LineNr"> 4448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/20"</span>) +<span id="L4449" class="LineNr"> 4449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/21"</span>) +<span id="L4450" class="LineNr"> 4450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4401'>test-shadow-name</a>/22"</span>) +<span id="L4451" class="LineNr"> 4451 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4452" class="LineNr"> 4452 </span> 89/<- %esp 5/r32/ebp +<span id="L4453" class="LineNr"> 4453 </span> 5d/pop-to-ebp +<span id="L4454" class="LineNr"> 4454 </span> c3/return +<span id="L4455" class="LineNr"> 4455 </span> +<span id="L4456" class="LineNr"> 4456 </span><span class="subxTest">test-shadow-name-2</span>: +<span id="L4457" class="LineNr"> 4457 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4458" class="LineNr"> 4458 </span> 55/push-ebp +<span id="L4459" class="LineNr"> 4459 </span> 89/<- %ebp 4/r32/esp +<span id="L4460" class="LineNr"> 4460 </span> <span class="subxComment"># setup</span> +<span id="L4461" class="LineNr"> 4461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4462" class="LineNr"> 4462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4463" class="LineNr"> 4463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4464" class="LineNr"> 4464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4465" class="LineNr"> 4465 </span> <span class="subxComment">#</span> +<span id="L4466" class="LineNr"> 4466 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4467" class="LineNr"> 4467 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L4468" class="LineNr"> 4468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4469" class="LineNr"> 4469 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- copy 4\n"</span>) +<span id="L4470" class="LineNr"> 4470 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 5\n"</span>) +<span id="L4471" class="LineNr"> 4471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4472" class="LineNr"> 4472 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- increment\n"</span>) +<span id="L4473" class="LineNr"> 4473 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4474" class="LineNr"> 4474 </span> <span class="subxComment"># convert</span> +<span id="L4475" class="LineNr"> 4475 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4476" class="LineNr"> 4476 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4477" class="Folded"> 4477 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4483" class="LineNr"> 4483 </span> <span class="subxComment"># check output</span> +<span id="L4484" class="LineNr"> 4484 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/0"</span>) +<span id="L4485" class="LineNr"> 4485 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-shadow-name-2/1"</span>) +<span id="L4486" class="LineNr"> 4486 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/2"</span>) +<span id="L4487" class="LineNr"> 4487 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/3"</span>) +<span id="L4488" class="LineNr"> 4488 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/4"</span>) +<span id="L4489" class="LineNr"> 4489 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/5"</span>) +<span id="L4490" class="LineNr"> 4490 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/6"</span>) +<span id="L4491" class="LineNr"> 4491 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/7"</span>) +<span id="L4492" class="LineNr"> 4492 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/8"</span>) +<span id="L4493" class="LineNr"> 4493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/9"</span>) +<span id="L4494" class="LineNr"> 4494 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/10"</span>) +<span id="L4495" class="LineNr"> 4495 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ba/copy-to-edx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/11"</span>) +<span id="L4496" class="LineNr"> 4496 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/12"</span>) +<span id="L4497" class="LineNr"> 4497 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 5/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/13"</span>) +<span id="L4498" class="LineNr"> 4498 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/14"</span>) +<span id="L4499" class="LineNr"> 4499 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/15"</span>) +<span id="L4500" class="LineNr"> 4500 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/16"</span>) +<span id="L4501" class="LineNr"> 4501 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/17"</span>) +<span id="L4502" class="LineNr"> 4502 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/18"</span>) +<span id="L4503" class="LineNr"> 4503 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/19"</span>) +<span id="L4504" class="LineNr"> 4504 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/20"</span>) +<span id="L4505" class="LineNr"> 4505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/21"</span>) +<span id="L4506" class="LineNr"> 4506 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-shadow-name-2/22"</span>) +<span id="L4507" class="LineNr"> 4507 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/23"</span>) +<span id="L4508" class="LineNr"> 4508 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/24"</span>) +<span id="L4509" class="LineNr"> 4509 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4456'>test-shadow-name-2</a>/25"</span>) +<span id="L4510" class="LineNr"> 4510 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4511" class="LineNr"> 4511 </span> 89/<- %esp 5/r32/ebp +<span id="L4512" class="LineNr"> 4512 </span> 5d/pop-to-ebp +<span id="L4513" class="LineNr"> 4513 </span> c3/return +<span id="L4514" class="LineNr"> 4514 </span> +<span id="L4515" class="LineNr"> 4515 </span><span class="subxTest">test-do-not-spill-same-register-in-block</span>: +<span id="L4516" class="LineNr"> 4516 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4517" class="LineNr"> 4517 </span> 55/push-ebp +<span id="L4518" class="LineNr"> 4518 </span> 89/<- %ebp 4/r32/esp +<span id="L4519" class="LineNr"> 4519 </span> <span class="subxComment"># setup</span> +<span id="L4520" class="LineNr"> 4520 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4521" class="LineNr"> 4521 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4522" class="LineNr"> 4522 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4523" class="LineNr"> 4523 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4524" class="LineNr"> 4524 </span> <span class="subxComment">#</span> +<span id="L4525" class="LineNr"> 4525 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4526" class="LineNr"> 4526 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L4527" class="LineNr"> 4527 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L4528" class="LineNr"> 4528 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) +<span id="L4529" class="LineNr"> 4529 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4530" class="LineNr"> 4530 </span> <span class="subxComment"># convert</span> +<span id="L4531" class="LineNr"> 4531 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4532" class="LineNr"> 4532 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4533" class="Folded"> 4533 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4539" class="LineNr"> 4539 </span> <span class="subxComment"># check output</span> +<span id="L4540" class="LineNr"> 4540 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/0"</span>) +<span id="L4541" class="LineNr"> 4541 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/1"</span>) +<span id="L4542" class="LineNr"> 4542 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/2"</span>) +<span id="L4543" class="LineNr"> 4543 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/3"</span>) +<span id="L4544" class="LineNr"> 4544 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/4"</span>) +<span id="L4545" class="LineNr"> 4545 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/5"</span>) +<span id="L4546" class="LineNr"> 4546 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/6"</span>) +<span id="L4547" class="LineNr"> 4547 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/7"</span>) +<span id="L4548" class="LineNr"> 4548 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/8"</span>) +<span id="L4549" class="LineNr"> 4549 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/9"</span>) +<span id="L4550" class="LineNr"> 4550 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/10"</span>) +<span id="L4551" class="LineNr"> 4551 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/11"</span>) +<span id="L4552" class="LineNr"> 4552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/12"</span>) +<span id="L4553" class="LineNr"> 4553 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-do-not-spill-same-register-in-block/13"</span>) +<span id="L4554" class="LineNr"> 4554 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/14"</span>) +<span id="L4555" class="LineNr"> 4555 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/15"</span>) +<span id="L4556" class="LineNr"> 4556 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4515'>test-do-not-spill-same-register-in-block</a>/16"</span>) +<span id="L4557" class="LineNr"> 4557 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4558" class="LineNr"> 4558 </span> 89/<- %esp 5/r32/ebp +<span id="L4559" class="LineNr"> 4559 </span> 5d/pop-to-ebp +<span id="L4560" class="LineNr"> 4560 </span> c3/return +<span id="L4561" class="LineNr"> 4561 </span> +<span id="L4562" class="LineNr"> 4562 </span><span class="subxTest">test-spill-different-register-in-block</span>: +<span id="L4563" class="LineNr"> 4563 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4564" class="LineNr"> 4564 </span> 55/push-ebp +<span id="L4565" class="LineNr"> 4565 </span> 89/<- %ebp 4/r32/esp +<span id="L4566" class="LineNr"> 4566 </span> <span class="subxComment"># setup</span> +<span id="L4567" class="LineNr"> 4567 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4568" class="LineNr"> 4568 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4569" class="LineNr"> 4569 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4570" class="LineNr"> 4570 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4571" class="LineNr"> 4571 </span> <span class="subxComment">#</span> +<span id="L4572" class="LineNr"> 4572 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4573" class="LineNr"> 4573 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) +<span id="L4574" class="LineNr"> 4574 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 4\n"</span>) +<span id="L4575" class="LineNr"> 4575 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y <- increment\n"</span>) +<span id="L4576" class="LineNr"> 4576 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4577" class="LineNr"> 4577 </span> <span class="subxComment"># convert</span> +<span id="L4578" class="LineNr"> 4578 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4579" class="LineNr"> 4579 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4580" class="Folded"> 4580 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4586" class="LineNr"> 4586 </span> <span class="subxComment"># check output</span> +<span id="L4587" class="LineNr"> 4587 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/0"</span>) +<span id="L4588" class="LineNr"> 4588 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-spill-different-register-in-block/1"</span>) +<span id="L4589" class="LineNr"> 4589 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/2"</span>) +<span id="L4590" class="LineNr"> 4590 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/3"</span>) +<span id="L4591" class="LineNr"> 4591 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/4"</span>) +<span id="L4592" class="LineNr"> 4592 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/5"</span>) +<span id="L4593" class="LineNr"> 4593 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/6"</span>) +<span id="L4594" class="LineNr"> 4594 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/7"</span>) +<span id="L4595" class="LineNr"> 4595 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/8"</span>) +<span id="L4596" class="LineNr"> 4596 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/9"</span>) +<span id="L4597" class="LineNr"> 4597 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 41/increment-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/10"</span>) +<span id="L4598" class="LineNr"> 4598 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/11"</span>) +<span id="L4599" class="LineNr"> 4599 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/12"</span>) +<span id="L4600" class="LineNr"> 4600 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/13"</span>) +<span id="L4601" class="LineNr"> 4601 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/14"</span>) +<span id="L4602" class="LineNr"> 4602 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-spill-different-register-in-block/15"</span>) +<span id="L4603" class="LineNr"> 4603 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/16"</span>) +<span id="L4604" class="LineNr"> 4604 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/17"</span>) +<span id="L4605" class="LineNr"> 4605 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4562'>test-spill-different-register-in-block</a>/18"</span>) +<span id="L4606" class="LineNr"> 4606 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4607" class="LineNr"> 4607 </span> 89/<- %esp 5/r32/ebp +<span id="L4608" class="LineNr"> 4608 </span> 5d/pop-to-ebp +<span id="L4609" class="LineNr"> 4609 </span> c3/return +<span id="L4610" class="LineNr"> 4610 </span> +<span id="L4611" class="LineNr"> 4611 </span><span class="subxTest">test-convert-function-with-branches-in-block</span>: +<span id="L4612" class="LineNr"> 4612 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4613" class="LineNr"> 4613 </span> 55/push-ebp +<span id="L4614" class="LineNr"> 4614 </span> 89/<- %ebp 4/r32/esp +<span id="L4615" class="LineNr"> 4615 </span> <span class="subxComment"># setup</span> +<span id="L4616" class="LineNr"> 4616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4617" class="LineNr"> 4617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4618" class="LineNr"> 4618 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4619" class="LineNr"> 4619 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4620" class="LineNr"> 4620 </span> <span class="subxComment">#</span> +<span id="L4621" class="LineNr"> 4621 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4622" class="LineNr"> 4622 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4623" class="LineNr"> 4623 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L4624" class="LineNr"> 4624 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr<\n"</span>) +<span id="L4625" class="LineNr"> 4625 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4626" class="LineNr"> 4626 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L4627" class="LineNr"> 4627 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4628" class="LineNr"> 4628 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4629" class="LineNr"> 4629 </span> <span class="subxComment"># convert</span> +<span id="L4630" class="LineNr"> 4630 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4631" class="LineNr"> 4631 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4632" class="Folded"> 4632 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4638" class="LineNr"> 4638 </span> <span class="subxComment"># check output</span> +<span id="L4639" class="LineNr"> 4639 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/0"</span>) +<span id="L4640" class="LineNr"> 4640 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) +<span id="L4641" class="LineNr"> 4641 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/2"</span>) +<span id="L4642" class="LineNr"> 4642 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/3"</span>) +<span id="L4643" class="LineNr"> 4643 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/4"</span>) +<span id="L4644" class="LineNr"> 4644 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/5"</span>) +<span id="L4645" class="LineNr"> 4645 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/6"</span>) +<span id="L4646" class="LineNr"> 4646 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/7"</span>) +<span id="L4647" class="LineNr"> 4647 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/8"</span>) +<span id="L4648" class="LineNr"> 4648 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/9"</span>) +<span id="L4649" class="LineNr"> 4649 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/10"</span>) +<span id="L4650" class="LineNr"> 4650 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/11"</span>) +<span id="L4651" class="LineNr"> 4651 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/12"</span>) +<span id="L4652" class="LineNr"> 4652 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/13"</span>) +<span id="L4653" class="LineNr"> 4653 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/14"</span>) +<span id="L4654" class="LineNr"> 4654 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/15"</span>) +<span id="L4655" class="LineNr"> 4655 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/16"</span>) +<span id="L4656" class="LineNr"> 4656 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/17"</span>) +<span id="L4657" class="LineNr"> 4657 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/18"</span>) +<span id="L4658" class="LineNr"> 4658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/19"</span>) +<span id="L4659" class="LineNr"> 4659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/20"</span>) +<span id="L4660" class="LineNr"> 4660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/21"</span>) +<span id="L4661" class="LineNr"> 4661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) +<span id="L4662" class="LineNr"> 4662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/23"</span>) +<span id="L4663" class="LineNr"> 4663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/24"</span>) +<span id="L4664" class="LineNr"> 4664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/25"</span>) +<span id="L4665" class="LineNr"> 4665 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4666" class="LineNr"> 4666 </span> 89/<- %esp 5/r32/ebp +<span id="L4667" class="LineNr"> 4667 </span> 5d/pop-to-ebp +<span id="L4668" class="LineNr"> 4668 </span> c3/return +<span id="L4669" class="LineNr"> 4669 </span> +<span id="L4670" class="LineNr"> 4670 </span><span class="subxTest">test-convert-function-with-branches-in-block-2</span>: +<span id="L4671" class="LineNr"> 4671 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4672" class="LineNr"> 4672 </span> 55/push-ebp +<span id="L4673" class="LineNr"> 4673 </span> 89/<- %ebp 4/r32/esp +<span id="L4674" class="LineNr"> 4674 </span> <span class="subxComment"># setup</span> +<span id="L4675" class="LineNr"> 4675 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4676" class="LineNr"> 4676 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4677" class="LineNr"> 4677 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4678" class="LineNr"> 4678 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4679" class="LineNr"> 4679 </span> <span class="subxComment">#</span> +<span id="L4680" class="LineNr"> 4680 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4681" class="LineNr"> 4681 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4682" class="LineNr"> 4682 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L4683" class="LineNr"> 4683 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-float<\n"</span>) +<span id="L4684" class="LineNr"> 4684 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4685" class="LineNr"> 4685 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L4686" class="LineNr"> 4686 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4687" class="LineNr"> 4687 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4688" class="LineNr"> 4688 </span> <span class="subxComment"># convert</span> +<span id="L4689" class="LineNr"> 4689 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4690" class="LineNr"> 4690 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4691" class="Folded"> 4691 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4697" class="LineNr"> 4697 </span> <span class="subxComment"># check output</span> +<span id="L4698" class="LineNr"> 4698 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/0"</span>) +<span id="L4699" class="LineNr"> 4699 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/1"</span>) +<span id="L4700" class="LineNr"> 4700 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/2"</span>) +<span id="L4701" class="LineNr"> 4701 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/3"</span>) +<span id="L4702" class="LineNr"> 4702 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/4"</span>) +<span id="L4703" class="LineNr"> 4703 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/5"</span>) +<span id="L4704" class="LineNr"> 4704 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/6"</span>) +<span id="L4705" class="LineNr"> 4705 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/7"</span>) +<span id="L4706" class="LineNr"> 4706 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/8"</span>) +<span id="L4707" class="LineNr"> 4707 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/9"</span>) +<span id="L4708" class="LineNr"> 4708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/10"</span>) +<span id="L4709" class="LineNr"> 4709 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/11"</span>) +<span id="L4710" class="LineNr"> 4710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/12"</span>) +<span id="L4711" class="LineNr"> 4711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/13"</span>) +<span id="L4712" class="LineNr"> 4712 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/14"</span>) +<span id="L4713" class="LineNr"> 4713 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/15"</span>) +<span id="L4714" class="LineNr"> 4714 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/16"</span>) +<span id="L4715" class="LineNr"> 4715 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/17"</span>) +<span id="L4716" class="LineNr"> 4716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/18"</span>) +<span id="L4717" class="LineNr"> 4717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/19"</span>) +<span id="L4718" class="LineNr"> 4718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/20"</span>) +<span id="L4719" class="LineNr"> 4719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/21"</span>) +<span id="L4720" class="LineNr"> 4720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-block/22"</span>) +<span id="L4721" class="LineNr"> 4721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/23"</span>) +<span id="L4722" class="LineNr"> 4722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/24"</span>) +<span id="L4723" class="LineNr"> 4723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4611'>test-convert-function-with-branches-in-block</a>/25"</span>) +<span id="L4724" class="LineNr"> 4724 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4725" class="LineNr"> 4725 </span> 89/<- %esp 5/r32/ebp +<span id="L4726" class="LineNr"> 4726 </span> 5d/pop-to-ebp +<span id="L4727" class="LineNr"> 4727 </span> c3/return +<span id="L4728" class="LineNr"> 4728 </span> +<span id="L4729" class="LineNr"> 4729 </span><span class="subxTest">test-convert-function-with-branches-in-named-block</span>: +<span id="L4730" class="LineNr"> 4730 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4731" class="LineNr"> 4731 </span> 55/push-ebp +<span id="L4732" class="LineNr"> 4732 </span> 89/<- %ebp 4/r32/esp +<span id="L4733" class="LineNr"> 4733 </span> <span class="subxComment"># setup</span> +<span id="L4734" class="LineNr"> 4734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4735" class="LineNr"> 4735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4736" class="LineNr"> 4736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4737" class="LineNr"> 4737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4738" class="LineNr"> 4738 </span> <span class="subxComment">#</span> +<span id="L4739" class="LineNr"> 4739 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4740" class="LineNr"> 4740 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" $bar: {\n"</span>) +<span id="L4741" class="LineNr"> 4741 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= $bar\n"</span>) +<span id="L4742" class="LineNr"> 4742 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if-addr< $bar\n"</span>) +<span id="L4743" class="LineNr"> 4743 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4744" class="LineNr"> 4744 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L4745" class="LineNr"> 4745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4746" class="LineNr"> 4746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4747" class="LineNr"> 4747 </span> <span class="subxComment"># convert</span> +<span id="L4748" class="LineNr"> 4748 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4749" class="LineNr"> 4749 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4750" class="Folded"> 4750 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4756" class="LineNr"> 4756 </span> <span class="subxComment"># check output</span> +<span id="L4757" class="LineNr"> 4757 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/0"</span>) +<span id="L4758" class="LineNr"> 4758 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/1"</span>) +<span id="L4759" class="LineNr"> 4759 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/2"</span>) +<span id="L4760" class="LineNr"> 4760 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/3"</span>) +<span id="L4761" class="LineNr"> 4761 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/4"</span>) +<span id="L4762" class="LineNr"> 4762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/5"</span>) +<span id="L4763" class="LineNr"> 4763 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/6"</span>) +<span id="L4764" class="LineNr"> 4764 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/7"</span>) +<span id="L4765" class="LineNr"> 4765 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/8"</span>) +<span id="L4766" class="LineNr"> 4766 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/9"</span>) +<span id="L4767" class="LineNr"> 4767 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/10"</span>) +<span id="L4768" class="LineNr"> 4768 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/11"</span>) +<span id="L4769" class="LineNr"> 4769 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/12"</span>) +<span id="L4770" class="LineNr"> 4770 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 83/jump-if-addr>= break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/13"</span>) +<span id="L4771" class="LineNr"> 4771 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $bar:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/14"</span>) +<span id="L4772" class="LineNr"> 4772 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/15"</span>) +<span id="L4773" class="LineNr"> 4773 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/16"</span>) +<span id="L4774" class="LineNr"> 4774 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/17"</span>) +<span id="L4775" class="LineNr"> 4775 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/18"</span>) +<span id="L4776" class="LineNr"> 4776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$bar:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/19"</span>) +<span id="L4777" class="LineNr"> 4777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/20"</span>) +<span id="L4778" class="LineNr"> 4778 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/21"</span>) +<span id="L4779" class="LineNr"> 4779 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-in-named-block/22"</span>) +<span id="L4780" class="LineNr"> 4780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/23"</span>) +<span id="L4781" class="LineNr"> 4781 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/24"</span>) +<span id="L4782" class="LineNr"> 4782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4729'>test-convert-function-with-branches-in-named-block</a>/25"</span>) +<span id="L4783" class="LineNr"> 4783 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4784" class="LineNr"> 4784 </span> 89/<- %esp 5/r32/ebp +<span id="L4785" class="LineNr"> 4785 </span> 5d/pop-to-ebp +<span id="L4786" class="LineNr"> 4786 </span> c3/return +<span id="L4787" class="LineNr"> 4787 </span> +<span id="L4788" class="LineNr"> 4788 </span><span class="subxTest">test-convert-function-with-var-in-nested-block</span>: +<span id="L4789" class="LineNr"> 4789 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4790" class="LineNr"> 4790 </span> 55/push-ebp +<span id="L4791" class="LineNr"> 4791 </span> 89/<- %ebp 4/r32/esp +<span id="L4792" class="LineNr"> 4792 </span> <span class="subxComment"># setup</span> +<span id="L4793" class="LineNr"> 4793 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4794" class="LineNr"> 4794 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4795" class="LineNr"> 4795 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4796" class="LineNr"> 4796 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4797" class="LineNr"> 4797 </span> <span class="subxComment">#</span> +<span id="L4798" class="LineNr"> 4798 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4799" class="LineNr"> 4799 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4800" class="LineNr"> 4800 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4801" class="LineNr"> 4801 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L4802" class="LineNr"> 4802 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4803" class="LineNr"> 4803 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4804" class="LineNr"> 4804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4805" class="LineNr"> 4805 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4806" class="LineNr"> 4806 </span> <span class="subxComment"># convert</span> +<span id="L4807" class="LineNr"> 4807 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4808" class="LineNr"> 4808 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4809" class="Folded"> 4809 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4815" class="LineNr"> 4815 </span> <span class="subxComment"># check output</span> +<span id="L4816" class="LineNr"> 4816 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/0"</span>) +<span id="L4817" class="LineNr"> 4817 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/1"</span>) +<span id="L4818" class="LineNr"> 4818 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/2"</span>) +<span id="L4819" class="LineNr"> 4819 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/3"</span>) +<span id="L4820" class="LineNr"> 4820 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/4"</span>) +<span id="L4821" class="LineNr"> 4821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/5"</span>) +<span id="L4822" class="LineNr"> 4822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/6"</span>) +<span id="L4823" class="LineNr"> 4823 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/7"</span>) +<span id="L4824" class="LineNr"> 4824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/8"</span>) +<span id="L4825" class="LineNr"> 4825 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/9"</span>) +<span id="L4826" class="LineNr"> 4826 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/10"</span>) +<span id="L4827" class="LineNr"> 4827 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/11"</span>) +<span id="L4828" class="LineNr"> 4828 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/12"</span>) +<span id="L4829" class="LineNr"> 4829 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/13"</span>) +<span id="L4830" class="LineNr"> 4830 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/14"</span>) +<span id="L4831" class="LineNr"> 4831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/15"</span>) +<span id="L4832" class="LineNr"> 4832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/16"</span>) +<span id="L4833" class="LineNr"> 4833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/17"</span>) +<span id="L4834" class="LineNr"> 4834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/18"</span>) +<span id="L4835" class="LineNr"> 4835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-var-in-nested-block/19"</span>) +<span id="L4836" class="LineNr"> 4836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/20"</span>) +<span id="L4837" class="LineNr"> 4837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/21"</span>) +<span id="L4838" class="LineNr"> 4838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4788'>test-convert-function-with-var-in-nested-block</a>/22"</span>) +<span id="L4839" class="LineNr"> 4839 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4840" class="LineNr"> 4840 </span> 89/<- %esp 5/r32/ebp +<span id="L4841" class="LineNr"> 4841 </span> 5d/pop-to-ebp +<span id="L4842" class="LineNr"> 4842 </span> c3/return +<span id="L4843" class="LineNr"> 4843 </span> +<span id="L4844" class="LineNr"> 4844 </span><span class="subxTest">test-convert-function-with-multiple-vars-in-nested-blocks</span>: +<span id="L4845" class="LineNr"> 4845 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4846" class="LineNr"> 4846 </span> 55/push-ebp +<span id="L4847" class="LineNr"> 4847 </span> 89/<- %ebp 4/r32/esp +<span id="L4848" class="LineNr"> 4848 </span> <span class="subxComment"># setup</span> +<span id="L4849" class="LineNr"> 4849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4850" class="LineNr"> 4850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4851" class="LineNr"> 4851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4852" class="LineNr"> 4852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4853" class="LineNr"> 4853 </span> <span class="subxComment">#</span> +<span id="L4854" class="LineNr"> 4854 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: int {\n"</span>) +<span id="L4855" class="LineNr"> 4855 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4856" class="LineNr"> 4856 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L4857" class="LineNr"> 4857 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4858" class="LineNr"> 4858 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L4859" class="LineNr"> 4859 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) +<span id="L4860" class="LineNr"> 4860 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4861" class="LineNr"> 4861 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4862" class="LineNr"> 4862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4863" class="LineNr"> 4863 </span> <span class="subxComment"># convert</span> +<span id="L4864" class="LineNr"> 4864 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4865" class="LineNr"> 4865 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4866" class="Folded"> 4866 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4872" class="LineNr"> 4872 </span> <span class="subxComment"># check output</span> +<span id="L4873" class="LineNr"> 4873 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/0"</span>) +<span id="L4874" class="LineNr"> 4874 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/1"</span>) +<span id="L4875" class="LineNr"> 4875 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/2"</span>) +<span id="L4876" class="LineNr"> 4876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/3"</span>) +<span id="L4877" class="LineNr"> 4877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/4"</span>) +<span id="L4878" class="LineNr"> 4878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/5"</span>) +<span id="L4879" class="LineNr"> 4879 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/6"</span>) +<span id="L4880" class="LineNr"> 4880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/7"</span>) +<span id="L4881" class="LineNr"> 4881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/8"</span>) +<span id="L4882" class="LineNr"> 4882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/9"</span>) +<span id="L4883" class="LineNr"> 4883 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/10"</span>) +<span id="L4884" class="LineNr"> 4884 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/11"</span>) +<span id="L4885" class="LineNr"> 4885 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/12"</span>) +<span id="L4886" class="LineNr"> 4886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 03/add *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/13"</span>) +<span id="L4887" class="LineNr"> 4887 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/14"</span>) +<span id="L4888" class="LineNr"> 4888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/15"</span>) +<span id="L4889" class="LineNr"> 4889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/16"</span>) +<span id="L4890" class="LineNr"> 4890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/17"</span>) +<span id="L4891" class="LineNr"> 4891 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/18"</span>) +<span id="L4892" class="LineNr"> 4892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/19"</span>) +<span id="L4893" class="LineNr"> 4893 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/20"</span>) +<span id="L4894" class="LineNr"> 4894 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/21"</span>) +<span id="L4895" class="LineNr"> 4895 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-multiple-vars-in-nested-blocks/22"</span>) +<span id="L4896" class="LineNr"> 4896 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/23"</span>) +<span id="L4897" class="LineNr"> 4897 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/24"</span>) +<span id="L4898" class="LineNr"> 4898 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4844'>test-convert-function-with-multiple-vars-in-nested-blocks</a>/25"</span>) +<span id="L4899" class="LineNr"> 4899 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4900" class="LineNr"> 4900 </span> 89/<- %esp 5/r32/ebp +<span id="L4901" class="LineNr"> 4901 </span> 5d/pop-to-ebp +<span id="L4902" class="LineNr"> 4902 </span> c3/return +<span id="L4903" class="LineNr"> 4903 </span> +<span id="L4904" class="LineNr"> 4904 </span><span class="subxTest">test-convert-function-with-branches-and-local-vars</span>: +<span id="L4905" class="LineNr"> 4905 </span> <span class="subxComment"># A conditional 'break' after a 'var' in a block is converted into a</span> +<span id="L4906" class="LineNr"> 4906 </span> <span class="subxComment"># nested block that performs all necessary cleanup before jumping. This</span> +<span id="L4907" class="LineNr"> 4907 </span> <span class="subxComment"># results in some ugly code duplication.</span> +<span id="L4908" class="LineNr"> 4908 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4909" class="LineNr"> 4909 </span> 55/push-ebp +<span id="L4910" class="LineNr"> 4910 </span> 89/<- %ebp 4/r32/esp +<span id="L4911" class="LineNr"> 4911 </span> <span class="subxComment"># setup</span> +<span id="L4912" class="LineNr"> 4912 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4913" class="LineNr"> 4913 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4914" class="LineNr"> 4914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4915" class="LineNr"> 4915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4916" class="LineNr"> 4916 </span> <span class="subxComment">#</span> +<span id="L4917" class="LineNr"> 4917 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4918" class="LineNr"> 4918 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4919" class="LineNr"> 4919 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L4920" class="LineNr"> 4920 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L4921" class="LineNr"> 4921 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4922" class="LineNr"> 4922 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4923" class="LineNr"> 4923 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4924" class="LineNr"> 4924 </span> <span class="subxComment"># convert</span> +<span id="L4925" class="LineNr"> 4925 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4926" class="LineNr"> 4926 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4927" class="Folded"> 4927 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4933" class="LineNr"> 4933 </span> <span class="subxComment"># check output</span> +<span id="L4934" class="LineNr"> 4934 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/0"</span>) +<span id="L4935" class="LineNr"> 4935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/1"</span>) +<span id="L4936" class="LineNr"> 4936 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/2"</span>) +<span id="L4937" class="LineNr"> 4937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/3"</span>) +<span id="L4938" class="LineNr"> 4938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/4"</span>) +<span id="L4939" class="LineNr"> 4939 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/5"</span>) +<span id="L4940" class="LineNr"> 4940 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/6"</span>) +<span id="L4941" class="LineNr"> 4941 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/7"</span>) +<span id="L4942" class="LineNr"> 4942 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/8"</span>) +<span id="L4943" class="LineNr"> 4943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/9"</span>) +<span id="L4944" class="LineNr"> 4944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/10"</span>) +<span id="L4945" class="LineNr"> 4945 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/11"</span>) +<span id="L4946" class="LineNr"> 4946 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/12"</span>) +<span id="L4947" class="LineNr"> 4947 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/13"</span>) +<span id="L4948" class="LineNr"> 4948 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/14"</span>) +<span id="L4949" class="LineNr"> 4949 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/15"</span>) +<span id="L4950" class="LineNr"> 4950 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/16"</span>) +<span id="L4951" class="LineNr"> 4951 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/17"</span>) +<span id="L4952" class="LineNr"> 4952 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/18"</span>) +<span id="L4953" class="LineNr"> 4953 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/19"</span>) +<span id="L4954" class="LineNr"> 4954 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-local-vars/20"</span>) +<span id="L4955" class="LineNr"> 4955 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/21"</span>) +<span id="L4956" class="LineNr"> 4956 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/22"</span>) +<span id="L4957" class="LineNr"> 4957 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4904'>test-convert-function-with-branches-and-local-vars</a>/23"</span>) +<span id="L4958" class="LineNr"> 4958 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4959" class="LineNr"> 4959 </span> 89/<- %esp 5/r32/ebp +<span id="L4960" class="LineNr"> 4960 </span> 5d/pop-to-ebp +<span id="L4961" class="LineNr"> 4961 </span> c3/return +<span id="L4962" class="LineNr"> 4962 </span> +<span id="L4963" class="LineNr"> 4963 </span><span class="subxTest">test-convert-function-with-conditional-loops-and-local-vars</span>: +<span id="L4964" class="LineNr"> 4964 </span> <span class="subxComment"># A conditional 'loop' after a 'var' in a block is converted into a nested</span> +<span id="L4965" class="LineNr"> 4965 </span> <span class="subxComment"># block that performs all necessary cleanup before jumping. This results</span> +<span id="L4966" class="LineNr"> 4966 </span> <span class="subxComment"># in some ugly code duplication.</span> +<span id="L4967" class="LineNr"> 4967 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4968" class="LineNr"> 4968 </span> 55/push-ebp +<span id="L4969" class="LineNr"> 4969 </span> 89/<- %ebp 4/r32/esp +<span id="L4970" class="LineNr"> 4970 </span> <span class="subxComment"># setup</span> +<span id="L4971" class="LineNr"> 4971 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L4972" class="LineNr"> 4972 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L4973" class="LineNr"> 4973 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L4974" class="LineNr"> 4974 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L4975" class="LineNr"> 4975 </span> <span class="subxComment">#</span> +<span id="L4976" class="LineNr"> 4976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L4977" class="LineNr"> 4977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L4978" class="LineNr"> 4978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L4979" class="LineNr"> 4979 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop-if->=\n"</span>) +<span id="L4980" class="LineNr"> 4980 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L4981" class="LineNr"> 4981 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L4982" class="LineNr"> 4982 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L4983" class="LineNr"> 4983 </span> <span class="subxComment"># convert</span> +<span id="L4984" class="LineNr"> 4984 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L4985" class="LineNr"> 4985 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L4986" class="Folded"> 4986 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4992" class="LineNr"> 4992 </span> <span class="subxComment"># check output</span> +<span id="L4993" class="LineNr"> 4993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/0"</span>) +<span id="L4994" class="LineNr"> 4994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/1"</span>) +<span id="L4995" class="LineNr"> 4995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/2"</span>) +<span id="L4996" class="LineNr"> 4996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/3"</span>) +<span id="L4997" class="LineNr"> 4997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/4"</span>) +<span id="L4998" class="LineNr"> 4998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/5"</span>) +<span id="L4999" class="LineNr"> 4999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/6"</span>) +<span id="L5000" class="LineNr"> 5000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/7"</span>) +<span id="L5001" class="LineNr"> 5001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/8"</span>) +<span id="L5002" class="LineNr"> 5002 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/9"</span>) +<span id="L5003" class="LineNr"> 5003 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/10"</span>) +<span id="L5004" class="LineNr"> 5004 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/11"</span>) +<span id="L5005" class="LineNr"> 5005 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/12"</span>) +<span id="L5006" class="LineNr"> 5006 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/13"</span>) +<span id="L5007" class="LineNr"> 5007 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/14"</span>) +<span id="L5008" class="LineNr"> 5008 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/15"</span>) +<span id="L5009" class="LineNr"> 5009 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/16"</span>) +<span id="L5010" class="LineNr"> 5010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/17"</span>) +<span id="L5011" class="LineNr"> 5011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/18"</span>) +<span id="L5012" class="LineNr"> 5012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/19"</span>) +<span id="L5013" class="LineNr"> 5013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-conditional-loops-and-local-vars/20"</span>) +<span id="L5014" class="LineNr"> 5014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/21"</span>) +<span id="L5015" class="LineNr"> 5015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/22"</span>) +<span id="L5016" class="LineNr"> 5016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L4963'>test-convert-function-with-conditional-loops-and-local-vars</a>/23"</span>) +<span id="L5017" class="LineNr"> 5017 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5018" class="LineNr"> 5018 </span> 89/<- %esp 5/r32/ebp +<span id="L5019" class="LineNr"> 5019 </span> 5d/pop-to-ebp +<span id="L5020" class="LineNr"> 5020 </span> c3/return +<span id="L5021" class="LineNr"> 5021 </span> +<span id="L5022" class="LineNr"> 5022 </span><span class="subxTest">test-convert-function-with-unconditional-loops-and-local-vars</span>: +<span id="L5023" class="LineNr"> 5023 </span> <span class="subxComment"># An unconditional 'loop' after a 'var' in a block is emitted _after_ the</span> +<span id="L5024" class="LineNr"> 5024 </span> <span class="subxComment"># regular block cleanup. Any instructions after 'loop' are dead and</span> +<span id="L5025" class="LineNr"> 5025 </span> <span class="subxComment"># therefore skipped.</span> +<span id="L5026" class="LineNr"> 5026 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5027" class="LineNr"> 5027 </span> 55/push-ebp +<span id="L5028" class="LineNr"> 5028 </span> 89/<- %ebp 4/r32/esp +<span id="L5029" class="LineNr"> 5029 </span> <span class="subxComment"># setup</span> +<span id="L5030" class="LineNr"> 5030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5031" class="LineNr"> 5031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5032" class="LineNr"> 5032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5033" class="LineNr"> 5033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5034" class="LineNr"> 5034 </span> <span class="subxComment">#</span> +<span id="L5035" class="LineNr"> 5035 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5036" class="LineNr"> 5036 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5037" class="LineNr"> 5037 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5038" class="LineNr"> 5038 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L5039" class="LineNr"> 5039 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5040" class="LineNr"> 5040 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5041" class="LineNr"> 5041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5042" class="LineNr"> 5042 </span> <span class="subxComment"># convert</span> +<span id="L5043" class="LineNr"> 5043 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5044" class="LineNr"> 5044 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5045" class="Folded"> 5045 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5051" class="LineNr"> 5051 </span> <span class="subxComment"># check output</span> +<span id="L5052" class="LineNr"> 5052 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/0"</span>) +<span id="L5053" class="LineNr"> 5053 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/1"</span>) +<span id="L5054" class="LineNr"> 5054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/2"</span>) +<span id="L5055" class="LineNr"> 5055 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/3"</span>) +<span id="L5056" class="LineNr"> 5056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/4"</span>) +<span id="L5057" class="LineNr"> 5057 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/5"</span>) +<span id="L5058" class="LineNr"> 5058 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/6"</span>) +<span id="L5059" class="LineNr"> 5059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/7"</span>) +<span id="L5060" class="LineNr"> 5060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/8"</span>) +<span id="L5061" class="LineNr"> 5061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/9"</span>) +<span id="L5062" class="LineNr"> 5062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/10"</span>) +<span id="L5063" class="LineNr"> 5063 </span> <span class="subxComment"># not emitted: ff 0/subop/increment *(ebp+0xfffffffc)</span> +<span id="L5064" class="LineNr"> 5064 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/11"</span>) +<span id="L5065" class="LineNr"> 5065 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/12"</span>) +<span id="L5066" class="LineNr"> 5066 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/13"</span>) +<span id="L5067" class="LineNr"> 5067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/14"</span>) +<span id="L5068" class="LineNr"> 5068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-loops-and-local-vars/15"</span>) +<span id="L5069" class="LineNr"> 5069 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/16"</span>) +<span id="L5070" class="LineNr"> 5070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/17"</span>) +<span id="L5071" class="LineNr"> 5071 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5022'>test-convert-function-with-unconditional-loops-and-local-vars</a>/18"</span>) +<span id="L5072" class="LineNr"> 5072 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5073" class="LineNr"> 5073 </span> 89/<- %esp 5/r32/ebp +<span id="L5074" class="LineNr"> 5074 </span> 5d/pop-to-ebp +<span id="L5075" class="LineNr"> 5075 </span> c3/return +<span id="L5076" class="LineNr"> 5076 </span> +<span id="L5077" class="LineNr"> 5077 </span><span class="subxTest">test-convert-function-with-branches-and-loops-and-local-vars</span>: +<span id="L5078" class="LineNr"> 5078 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5079" class="LineNr"> 5079 </span> 55/push-ebp +<span id="L5080" class="LineNr"> 5080 </span> 89/<- %ebp 4/r32/esp +<span id="L5081" class="LineNr"> 5081 </span> <span class="subxComment"># setup</span> +<span id="L5082" class="LineNr"> 5082 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5083" class="LineNr"> 5083 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5084" class="LineNr"> 5084 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5085" class="LineNr"> 5085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5086" class="LineNr"> 5086 </span> <span class="subxComment">#</span> +<span id="L5087" class="LineNr"> 5087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5088" class="LineNr"> 5088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5089" class="LineNr"> 5089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5090" class="LineNr"> 5090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->=\n"</span>) +<span id="L5091" class="LineNr"> 5091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5092" class="LineNr"> 5092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L5093" class="LineNr"> 5093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5094" class="LineNr"> 5094 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5095" class="LineNr"> 5095 </span> <span class="subxComment"># convert</span> +<span id="L5096" class="LineNr"> 5096 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5097" class="LineNr"> 5097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5098" class="Folded"> 5098 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5104" class="LineNr"> 5104 </span> <span class="subxComment"># check output</span> +<span id="L5105" class="LineNr"> 5105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/0"</span>) +<span id="L5106" class="LineNr"> 5106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/1"</span>) +<span id="L5107" class="LineNr"> 5107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/2"</span>) +<span id="L5108" class="LineNr"> 5108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/3"</span>) +<span id="L5109" class="LineNr"> 5109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/4"</span>) +<span id="L5110" class="LineNr"> 5110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/5"</span>) +<span id="L5111" class="LineNr"> 5111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/6"</span>) +<span id="L5112" class="LineNr"> 5112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/7"</span>) +<span id="L5113" class="LineNr"> 5113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/8"</span>) +<span id="L5114" class="LineNr"> 5114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/9"</span>) +<span id="L5115" class="LineNr"> 5115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/10"</span>) +<span id="L5116" class="LineNr"> 5116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/11"</span>) +<span id="L5117" class="LineNr"> 5117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000002:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/12"</span>) +<span id="L5118" class="LineNr"> 5118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/13"</span>) +<span id="L5119" class="LineNr"> 5119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/14"</span>) +<span id="L5120" class="LineNr"> 5120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/15"</span>) +<span id="L5121" class="LineNr"> 5121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/16"</span>) +<span id="L5122" class="LineNr"> 5122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/17"</span>) +<span id="L5123" class="LineNr"> 5123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/18"</span>) +<span id="L5124" class="LineNr"> 5124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/19"</span>) +<span id="L5125" class="LineNr"> 5125 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/20"</span>) +<span id="L5126" class="LineNr"> 5126 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-branches-and-loops-and-local-vars/21"</span>) +<span id="L5127" class="LineNr"> 5127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/22"</span>) +<span id="L5128" class="LineNr"> 5128 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/23"</span>) +<span id="L5129" class="LineNr"> 5129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5077'>test-convert-function-with-branches-and-loops-and-local-vars</a>/24"</span>) +<span id="L5130" class="LineNr"> 5130 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5131" class="LineNr"> 5131 </span> 89/<- %esp 5/r32/ebp +<span id="L5132" class="LineNr"> 5132 </span> 5d/pop-to-ebp +<span id="L5133" class="LineNr"> 5133 </span> c3/return +<span id="L5134" class="LineNr"> 5134 </span> +<span id="L5135" class="LineNr"> 5135 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</span>: +<span id="L5136" class="LineNr"> 5136 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5137" class="LineNr"> 5137 </span> 55/push-ebp +<span id="L5138" class="LineNr"> 5138 </span> 89/<- %ebp 4/r32/esp +<span id="L5139" class="LineNr"> 5139 </span> <span class="subxComment"># setup</span> +<span id="L5140" class="LineNr"> 5140 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5141" class="LineNr"> 5141 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5142" class="LineNr"> 5142 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5143" class="LineNr"> 5143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5144" class="LineNr"> 5144 </span> <span class="subxComment">#</span> +<span id="L5145" class="LineNr"> 5145 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5146" class="LineNr"> 5146 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5147" class="LineNr"> 5147 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5148" class="LineNr"> 5148 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5149" class="LineNr"> 5149 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L5150" class="LineNr"> 5150 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) +<span id="L5151" class="LineNr"> 5151 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5152" class="LineNr"> 5152 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop\n"</span>) +<span id="L5153" class="LineNr"> 5153 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5154" class="LineNr"> 5154 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5155" class="LineNr"> 5155 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5156" class="LineNr"> 5156 </span> <span class="subxComment"># convert</span> +<span id="L5157" class="LineNr"> 5157 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5158" class="LineNr"> 5158 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5159" class="Folded"> 5159 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5165" class="LineNr"> 5165 </span> <span class="subxComment"># check output</span> +<span id="L5166" class="LineNr"> 5166 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/0"</span>) +<span id="L5167" class="LineNr"> 5167 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/1"</span>) +<span id="L5168" class="LineNr"> 5168 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/2"</span>) +<span id="L5169" class="LineNr"> 5169 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/3"</span>) +<span id="L5170" class="LineNr"> 5170 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/4"</span>) +<span id="L5171" class="LineNr"> 5171 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/5"</span>) +<span id="L5172" class="LineNr"> 5172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/6"</span>) +<span id="L5173" class="LineNr"> 5173 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/7"</span>) +<span id="L5174" class="LineNr"> 5174 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/8"</span>) +<span id="L5175" class="LineNr"> 5175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/9"</span>) +<span id="L5176" class="LineNr"> 5176 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/10"</span>) +<span id="L5177" class="LineNr"> 5177 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/11"</span>) +<span id="L5178" class="LineNr"> 5178 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/12"</span>) +<span id="L5179" class="LineNr"> 5179 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/13"</span>) +<span id="L5180" class="LineNr"> 5180 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/14"</span>) +<span id="L5181" class="LineNr"> 5181 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/15"</span>) +<span id="L5182" class="LineNr"> 5182 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/16"</span>) +<span id="L5183" class="LineNr"> 5183 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/17"</span>) +<span id="L5184" class="LineNr"> 5184 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 0/subop/increment *(ebp+0xfffffffc)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/18"</span>) +<span id="L5185" class="LineNr"> 5185 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/19"</span>) +<span id="L5186" class="LineNr"> 5186 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/20"</span>) +<span id="L5187" class="LineNr"> 5187 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/21"</span>) +<span id="L5188" class="LineNr"> 5188 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/22"</span>) +<span id="L5189" class="LineNr"> 5189 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/23"</span>) +<span id="L5190" class="LineNr"> 5190 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/24"</span>) +<span id="L5191" class="LineNr"> 5191 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/25"</span>) +<span id="L5192" class="LineNr"> 5192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/26"</span>) +<span id="L5193" class="LineNr"> 5193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/27"</span>) +<span id="L5194" class="LineNr"> 5194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars/28"</span>) +<span id="L5195" class="LineNr"> 5195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/29"</span>) +<span id="L5196" class="LineNr"> 5196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/30"</span>) +<span id="L5197" class="LineNr"> 5197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5135'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars</a>/31"</span>) +<span id="L5198" class="LineNr"> 5198 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5199" class="LineNr"> 5199 </span> 89/<- %esp 5/r32/ebp +<span id="L5200" class="LineNr"> 5200 </span> 5d/pop-to-ebp +<span id="L5201" class="LineNr"> 5201 </span> c3/return +<span id="L5202" class="LineNr"> 5202 </span> +<span id="L5203" class="LineNr"> 5203 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</span>: +<span id="L5204" class="LineNr"> 5204 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5205" class="LineNr"> 5205 </span> 55/push-ebp +<span id="L5206" class="LineNr"> 5206 </span> 89/<- %ebp 4/r32/esp +<span id="L5207" class="LineNr"> 5207 </span> <span class="subxComment"># setup</span> +<span id="L5208" class="LineNr"> 5208 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5209" class="LineNr"> 5209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5210" class="LineNr"> 5210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5211" class="LineNr"> 5211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5212" class="LineNr"> 5212 </span> <span class="subxComment"># non-local conditional branch from a block without a local variable,</span> +<span id="L5213" class="LineNr"> 5213 </span> <span class="subxComment"># unwinding a local on the stack</span> +<span id="L5214" class="LineNr"> 5214 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5215" class="LineNr"> 5215 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5216" class="LineNr"> 5216 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5217" class="LineNr"> 5217 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5218" class="LineNr"> 5218 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break-if->= a\n"</span>) +<span id="L5219" class="LineNr"> 5219 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5220" class="LineNr"> 5220 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5221" class="LineNr"> 5221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5222" class="LineNr"> 5222 </span> <span class="subxComment"># convert</span> +<span id="L5223" class="LineNr"> 5223 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5224" class="LineNr"> 5224 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5225" class="Folded"> 5225 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5231" class="LineNr"> 5231 </span> <span class="subxComment"># check output</span> +<span id="L5232" class="LineNr"> 5232 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/0"</span>) +<span id="L5233" class="LineNr"> 5233 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/1"</span>) +<span id="L5234" class="LineNr"> 5234 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/2"</span>) +<span id="L5235" class="LineNr"> 5235 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/3"</span>) +<span id="L5236" class="LineNr"> 5236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/4"</span>) +<span id="L5237" class="LineNr"> 5237 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/5"</span>) +<span id="L5238" class="LineNr"> 5238 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/6"</span>) +<span id="L5239" class="LineNr"> 5239 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/7"</span>) +<span id="L5240" class="LineNr"> 5240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/8"</span>) +<span id="L5241" class="LineNr"> 5241 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/9"</span>) +<span id="L5242" class="LineNr"> 5242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/10"</span>) +<span id="L5243" class="LineNr"> 5243 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/11"</span>) +<span id="L5244" class="LineNr"> 5244 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 8c/jump-if-< break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/12"</span>) +<span id="L5245" class="LineNr"> 5245 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/13"</span>) +<span id="L5246" class="LineNr"> 5246 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/14"</span>) +<span id="L5247" class="LineNr"> 5247 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/15"</span>) +<span id="L5248" class="LineNr"> 5248 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/16"</span>) +<span id="L5249" class="LineNr"> 5249 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/17"</span>) +<span id="L5250" class="LineNr"> 5250 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/18"</span>) +<span id="L5251" class="LineNr"> 5251 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/19"</span>) +<span id="L5252" class="LineNr"> 5252 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/20"</span>) +<span id="L5253" class="LineNr"> 5253 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/21"</span>) +<span id="L5254" class="LineNr"> 5254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/22"</span>) +<span id="L5255" class="LineNr"> 5255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2/23"</span>) +<span id="L5256" class="LineNr"> 5256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/24"</span>) +<span id="L5257" class="LineNr"> 5257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/25"</span>) +<span id="L5258" class="LineNr"> 5258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5203'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-2</a>/26"</span>) +<span id="L5259" class="LineNr"> 5259 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5260" class="LineNr"> 5260 </span> 89/<- %esp 5/r32/ebp +<span id="L5261" class="LineNr"> 5261 </span> 5d/pop-to-ebp +<span id="L5262" class="LineNr"> 5262 </span> c3/return +<span id="L5263" class="LineNr"> 5263 </span> +<span id="L5264" class="LineNr"> 5264 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</span>: +<span id="L5265" class="LineNr"> 5265 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5266" class="LineNr"> 5266 </span> 55/push-ebp +<span id="L5267" class="LineNr"> 5267 </span> 89/<- %ebp 4/r32/esp +<span id="L5268" class="LineNr"> 5268 </span> <span class="subxComment"># setup</span> +<span id="L5269" class="LineNr"> 5269 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5270" class="LineNr"> 5270 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5271" class="LineNr"> 5271 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5272" class="LineNr"> 5272 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5273" class="LineNr"> 5273 </span> <span class="subxComment"># non-local unconditional branch from a block without a local variable,</span> +<span id="L5274" class="LineNr"> 5274 </span> <span class="subxComment"># unwinding a local on the stack</span> +<span id="L5275" class="LineNr"> 5275 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5276" class="LineNr"> 5276 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5277" class="LineNr"> 5277 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5278" class="LineNr"> 5278 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5279" class="LineNr"> 5279 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) +<span id="L5280" class="LineNr"> 5280 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5281" class="LineNr"> 5281 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5282" class="LineNr"> 5282 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5283" class="LineNr"> 5283 </span> <span class="subxComment"># convert</span> +<span id="L5284" class="LineNr"> 5284 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5285" class="LineNr"> 5285 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5286" class="Folded"> 5286 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5292" class="LineNr"> 5292 </span> <span class="subxComment"># check output</span> +<span id="L5293" class="LineNr"> 5293 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/0"</span>) +<span id="L5294" class="LineNr"> 5294 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/1"</span>) +<span id="L5295" class="LineNr"> 5295 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/2"</span>) +<span id="L5296" class="LineNr"> 5296 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/3"</span>) +<span id="L5297" class="LineNr"> 5297 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/4"</span>) +<span id="L5298" class="LineNr"> 5298 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/5"</span>) +<span id="L5299" class="LineNr"> 5299 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/6"</span>) +<span id="L5300" class="LineNr"> 5300 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/7"</span>) +<span id="L5301" class="LineNr"> 5301 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/8"</span>) +<span id="L5302" class="LineNr"> 5302 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/9"</span>) +<span id="L5303" class="LineNr"> 5303 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/10"</span>) +<span id="L5304" class="LineNr"> 5304 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/11"</span>) +<span id="L5305" class="LineNr"> 5305 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/12"</span>) +<span id="L5306" class="LineNr"> 5306 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/14"</span>) +<span id="L5307" class="LineNr"> 5307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/15"</span>) +<span id="L5308" class="LineNr"> 5308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/16"</span>) +<span id="L5309" class="LineNr"> 5309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/17"</span>) +<span id="L5310" class="LineNr"> 5310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/18"</span>) +<span id="L5311" class="LineNr"> 5311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/19"</span>) +<span id="L5312" class="LineNr"> 5312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/20"</span>) +<span id="L5313" class="LineNr"> 5313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3/21"</span>) +<span id="L5314" class="LineNr"> 5314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/22"</span>) +<span id="L5315" class="LineNr"> 5315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/23"</span>) +<span id="L5316" class="LineNr"> 5316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5264'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-3</a>/24"</span>) +<span id="L5317" class="LineNr"> 5317 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5318" class="LineNr"> 5318 </span> 89/<- %esp 5/r32/ebp +<span id="L5319" class="LineNr"> 5319 </span> 5d/pop-to-ebp +<span id="L5320" class="LineNr"> 5320 </span> c3/return +<span id="L5321" class="LineNr"> 5321 </span> +<span id="L5322" class="LineNr"> 5322 </span><span class="subxTest">test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</span>: +<span id="L5323" class="LineNr"> 5323 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5324" class="LineNr"> 5324 </span> 55/push-ebp +<span id="L5325" class="LineNr"> 5325 </span> 89/<- %ebp 4/r32/esp +<span id="L5326" class="LineNr"> 5326 </span> <span class="subxComment"># setup</span> +<span id="L5327" class="LineNr"> 5327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5328" class="LineNr"> 5328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5329" class="LineNr"> 5329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5330" class="LineNr"> 5330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5331" class="LineNr"> 5331 </span> <span class="subxComment">#</span> +<span id="L5332" class="LineNr"> 5332 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5333" class="LineNr"> 5333 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5334" class="LineNr"> 5334 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/esi: int <- copy 0\n"</span>) +<span id="L5335" class="LineNr"> 5335 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5336" class="LineNr"> 5336 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) +<span id="L5337" class="LineNr"> 5337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5338" class="LineNr"> 5338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5339" class="LineNr"> 5339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5340" class="LineNr"> 5340 </span> <span class="subxComment"># convert</span> +<span id="L5341" class="LineNr"> 5341 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5342" class="LineNr"> 5342 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5343" class="Folded"> 5343 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5349" class="LineNr"> 5349 </span> <span class="subxComment"># check output</span> +<span id="L5350" class="LineNr"> 5350 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/0"</span>) +<span id="L5351" class="LineNr"> 5351 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/1"</span>) +<span id="L5352" class="LineNr"> 5352 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/2"</span>) +<span id="L5353" class="LineNr"> 5353 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/3"</span>) +<span id="L5354" class="LineNr"> 5354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/4"</span>) +<span id="L5355" class="LineNr"> 5355 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/5"</span>) +<span id="L5356" class="LineNr"> 5356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/6"</span>) +<span id="L5357" class="LineNr"> 5357 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/7"</span>) +<span id="L5358" class="LineNr"> 5358 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/8"</span>) +<span id="L5359" class="LineNr"> 5359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/9"</span>) +<span id="L5360" class="LineNr"> 5360 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/10"</span>) +<span id="L5361" class="LineNr"> 5361 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/11"</span>) +<span id="L5362" class="LineNr"> 5362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/12"</span>) +<span id="L5363" class="LineNr"> 5363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/13"</span>) +<span id="L5364" class="LineNr"> 5364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/14"</span>) +<span id="L5365" class="LineNr"> 5365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/15"</span>) +<span id="L5366" class="LineNr"> 5366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/16"</span>) +<span id="L5367" class="LineNr"> 5367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/17"</span>) +<span id="L5368" class="LineNr"> 5368 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/18"</span>) +<span id="L5369" class="LineNr"> 5369 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/19"</span>) +<span id="L5370" class="LineNr"> 5370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/20"</span>) +<span id="L5371" class="LineNr"> 5371 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4/21"</span>) +<span id="L5372" class="LineNr"> 5372 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/22"</span>) +<span id="L5373" class="LineNr"> 5373 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/23"</span>) +<span id="L5374" class="LineNr"> 5374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5322'>test-convert-function-with-nonlocal-branches-and-loops-and-local-vars-4</a>/24"</span>) +<span id="L5375" class="LineNr"> 5375 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5376" class="LineNr"> 5376 </span> 89/<- %esp 5/r32/ebp +<span id="L5377" class="LineNr"> 5377 </span> 5d/pop-to-ebp +<span id="L5378" class="LineNr"> 5378 </span> c3/return +<span id="L5379" class="LineNr"> 5379 </span> +<span id="L5380" class="LineNr"> 5380 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-break-and-local-vars</span>: +<span id="L5381" class="LineNr"> 5381 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5382" class="LineNr"> 5382 </span> 55/push-ebp +<span id="L5383" class="LineNr"> 5383 </span> 89/<- %ebp 4/r32/esp +<span id="L5384" class="LineNr"> 5384 </span> <span class="subxComment"># setup</span> +<span id="L5385" class="LineNr"> 5385 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5386" class="LineNr"> 5386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5387" class="LineNr"> 5387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5388" class="LineNr"> 5388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5389" class="LineNr"> 5389 </span> <span class="subxComment">#</span> +<span id="L5390" class="LineNr"> 5390 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5391" class="LineNr"> 5391 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5392" class="LineNr"> 5392 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5393" class="LineNr"> 5393 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5394" class="LineNr"> 5394 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L5395" class="LineNr"> 5395 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break a\n"</span>) +<span id="L5396" class="LineNr"> 5396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5397" class="LineNr"> 5397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5398" class="LineNr"> 5398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5399" class="LineNr"> 5399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5400" class="LineNr"> 5400 </span> <span class="subxComment"># convert</span> +<span id="L5401" class="LineNr"> 5401 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5402" class="LineNr"> 5402 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5403" class="Folded"> 5403 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5409" class="LineNr"> 5409 </span> <span class="subxComment"># check output</span> +<span id="L5410" class="LineNr"> 5410 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/0"</span>) +<span id="L5411" class="LineNr"> 5411 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/1"</span>) +<span id="L5412" class="LineNr"> 5412 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/2"</span>) +<span id="L5413" class="LineNr"> 5413 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/3"</span>) +<span id="L5414" class="LineNr"> 5414 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/4"</span>) +<span id="L5415" class="LineNr"> 5415 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/5"</span>) +<span id="L5416" class="LineNr"> 5416 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/6"</span>) +<span id="L5417" class="LineNr"> 5417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/7"</span>) +<span id="L5418" class="LineNr"> 5418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/8"</span>) +<span id="L5419" class="LineNr"> 5419 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/9"</span>) +<span id="L5420" class="LineNr"> 5420 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/10"</span>) +<span id="L5421" class="LineNr"> 5421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/11"</span>) +<span id="L5422" class="LineNr"> 5422 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/12"</span>) +<span id="L5423" class="LineNr"> 5423 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/13"</span>) +<span id="L5424" class="LineNr"> 5424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/14"</span>) +<span id="L5425" class="LineNr"> 5425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/15"</span>) +<span id="L5426" class="LineNr"> 5426 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/16"</span>) +<span id="L5427" class="LineNr"> 5427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/17"</span>) +<span id="L5428" class="LineNr"> 5428 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/18"</span>) +<span id="L5429" class="LineNr"> 5429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/19"</span>) +<span id="L5430" class="LineNr"> 5430 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/20"</span>) +<span id="L5431" class="LineNr"> 5431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/21"</span>) +<span id="L5432" class="LineNr"> 5432 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-break-and-local-vars/22"</span>) +<span id="L5433" class="LineNr"> 5433 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/23"</span>) +<span id="L5434" class="LineNr"> 5434 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/24"</span>) +<span id="L5435" class="LineNr"> 5435 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5380'>test-convert-function-with-nonlocal-unconditional-break-and-local-vars</a>/25"</span>) +<span id="L5436" class="LineNr"> 5436 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5437" class="LineNr"> 5437 </span> 89/<- %esp 5/r32/ebp +<span id="L5438" class="LineNr"> 5438 </span> 5d/pop-to-ebp +<span id="L5439" class="LineNr"> 5439 </span> c3/return +<span id="L5440" class="LineNr"> 5440 </span> +<span id="L5441" class="LineNr"> 5441 </span><span class="subxTest">test-convert-function-with-unconditional-break-and-local-vars</span>: +<span id="L5442" class="LineNr"> 5442 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5443" class="LineNr"> 5443 </span> 55/push-ebp +<span id="L5444" class="LineNr"> 5444 </span> 89/<- %ebp 4/r32/esp +<span id="L5445" class="LineNr"> 5445 </span> <span class="subxComment"># setup</span> +<span id="L5446" class="LineNr"> 5446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5447" class="LineNr"> 5447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5448" class="LineNr"> 5448 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5449" class="LineNr"> 5449 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5450" class="LineNr"> 5450 </span> <span class="subxComment">#</span> +<span id="L5451" class="LineNr"> 5451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5452" class="LineNr"> 5452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5453" class="LineNr"> 5453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5454" class="LineNr"> 5454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5455" class="LineNr"> 5455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L5456" class="LineNr"> 5456 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" break\n"</span>) +<span id="L5457" class="LineNr"> 5457 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5458" class="LineNr"> 5458 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5459" class="LineNr"> 5459 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5460" class="LineNr"> 5460 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5461" class="LineNr"> 5461 </span> <span class="subxComment"># convert</span> +<span id="L5462" class="LineNr"> 5462 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5463" class="LineNr"> 5463 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5464" class="Folded"> 5464 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5470" class="LineNr"> 5470 </span> <span class="subxComment"># check output</span> +<span id="L5471" class="LineNr"> 5471 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/0"</span>) +<span id="L5472" class="LineNr"> 5472 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/1"</span>) +<span id="L5473" class="LineNr"> 5473 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/2"</span>) +<span id="L5474" class="LineNr"> 5474 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/3"</span>) +<span id="L5475" class="LineNr"> 5475 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/4"</span>) +<span id="L5476" class="LineNr"> 5476 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/5"</span>) +<span id="L5477" class="LineNr"> 5477 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/6"</span>) +<span id="L5478" class="LineNr"> 5478 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/7"</span>) +<span id="L5479" class="LineNr"> 5479 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/8"</span>) +<span id="L5480" class="LineNr"> 5480 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/9"</span>) +<span id="L5481" class="LineNr"> 5481 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/10"</span>) +<span id="L5482" class="LineNr"> 5482 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/11"</span>) +<span id="L5483" class="LineNr"> 5483 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/12"</span>) +<span id="L5484" class="LineNr"> 5484 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/13"</span>) +<span id="L5485" class="LineNr"> 5485 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/14"</span>) +<span id="L5486" class="LineNr"> 5486 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/15"</span>) +<span id="L5487" class="LineNr"> 5487 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/16"</span>) +<span id="L5488" class="LineNr"> 5488 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/17"</span>) +<span id="L5489" class="LineNr"> 5489 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/18"</span>) +<span id="L5490" class="LineNr"> 5490 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/19"</span>) +<span id="L5491" class="LineNr"> 5491 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-unconditional-break-and-local-vars/20"</span>) +<span id="L5492" class="LineNr"> 5492 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/21"</span>) +<span id="L5493" class="LineNr"> 5493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/22"</span>) +<span id="L5494" class="LineNr"> 5494 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5441'>test-convert-function-with-unconditional-break-and-local-vars</a>/23"</span>) +<span id="L5495" class="LineNr"> 5495 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5496" class="LineNr"> 5496 </span> 89/<- %esp 5/r32/ebp +<span id="L5497" class="LineNr"> 5497 </span> 5d/pop-to-ebp +<span id="L5498" class="LineNr"> 5498 </span> c3/return +<span id="L5499" class="LineNr"> 5499 </span> +<span id="L5500" class="LineNr"> 5500 </span><span class="subxTest">test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</span>: +<span id="L5501" class="LineNr"> 5501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5502" class="LineNr"> 5502 </span> 55/push-ebp +<span id="L5503" class="LineNr"> 5503 </span> 89/<- %ebp 4/r32/esp +<span id="L5504" class="LineNr"> 5504 </span> <span class="subxComment"># setup</span> +<span id="L5505" class="LineNr"> 5505 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5506" class="LineNr"> 5506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5507" class="LineNr"> 5507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5508" class="LineNr"> 5508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5509" class="LineNr"> 5509 </span> <span class="subxComment">#</span> +<span id="L5510" class="LineNr"> 5510 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5511" class="LineNr"> 5511 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: {\n"</span>) +<span id="L5512" class="LineNr"> 5512 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L5513" class="LineNr"> 5513 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L5514" class="LineNr"> 5514 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L5515" class="LineNr"> 5515 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" loop a\n"</span>) +<span id="L5516" class="LineNr"> 5516 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L5517" class="LineNr"> 5517 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5518" class="LineNr"> 5518 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L5519" class="LineNr"> 5519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5520" class="LineNr"> 5520 </span> <span class="subxComment"># convert</span> +<span id="L5521" class="LineNr"> 5521 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5522" class="LineNr"> 5522 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5523" class="Folded"> 5523 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5529" class="LineNr"> 5529 </span> <span class="subxComment"># check output</span> +<span id="L5530" class="LineNr"> 5530 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/0"</span>) +<span id="L5531" class="LineNr"> 5531 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/1"</span>) +<span id="L5532" class="LineNr"> 5532 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/2"</span>) +<span id="L5533" class="LineNr"> 5533 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/3"</span>) +<span id="L5534" class="LineNr"> 5534 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/4"</span>) +<span id="L5535" class="LineNr"> 5535 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/5"</span>) +<span id="L5536" class="LineNr"> 5536 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/6"</span>) +<span id="L5537" class="LineNr"> 5537 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/7"</span>) +<span id="L5538" class="LineNr"> 5538 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/8"</span>) +<span id="L5539" class="LineNr"> 5539 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/9"</span>) +<span id="L5540" class="LineNr"> 5540 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/10"</span>) +<span id="L5541" class="LineNr"> 5541 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/11"</span>) +<span id="L5542" class="LineNr"> 5542 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/12"</span>) +<span id="L5543" class="LineNr"> 5543 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/13"</span>) +<span id="L5544" class="LineNr"> 5544 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump a:loop/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/14"</span>) +<span id="L5545" class="LineNr"> 5545 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/15"</span>) +<span id="L5546" class="LineNr"> 5546 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/16"</span>) +<span id="L5547" class="LineNr"> 5547 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/17"</span>) +<span id="L5548" class="LineNr"> 5548 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/18"</span>) +<span id="L5549" class="LineNr"> 5549 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"a:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/19"</span>) +<span id="L5550" class="LineNr"> 5550 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/20"</span>) +<span id="L5551" class="LineNr"> 5551 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/21"</span>) +<span id="L5552" class="LineNr"> 5552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-nonlocal-unconditional-loop-and-local-vars/22"</span>) +<span id="L5553" class="LineNr"> 5553 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/23"</span>) +<span id="L5554" class="LineNr"> 5554 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/24"</span>) +<span id="L5555" class="LineNr"> 5555 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5500'>test-convert-function-with-nonlocal-unconditional-loop-and-local-vars</a>/25"</span>) +<span id="L5556" class="LineNr"> 5556 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5557" class="LineNr"> 5557 </span> 89/<- %esp 5/r32/ebp +<span id="L5558" class="LineNr"> 5558 </span> 5d/pop-to-ebp +<span id="L5559" class="LineNr"> 5559 </span> c3/return +<span id="L5560" class="LineNr"> 5560 </span> +<span id="L5561" class="LineNr"> 5561 </span><span class="subxTest">test-convert-function-with-local-array-var-in-mem</span>: +<span id="L5562" class="LineNr"> 5562 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5563" class="LineNr"> 5563 </span> 55/push-ebp +<span id="L5564" class="LineNr"> 5564 </span> 89/<- %ebp 4/r32/esp +<span id="L5565" class="LineNr"> 5565 </span> <span class="subxComment"># setup</span> +<span id="L5566" class="LineNr"> 5566 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5567" class="LineNr"> 5567 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5568" class="LineNr"> 5568 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5569" class="LineNr"> 5569 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5570" class="LineNr"> 5570 </span> <span class="subxComment">#</span> +<span id="L5571" class="LineNr"> 5571 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5572" class="LineNr"> 5572 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3)\n"</span>) +<span id="L5573" class="LineNr"> 5573 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5574" class="LineNr"> 5574 </span> <span class="subxComment"># convert</span> +<span id="L5575" class="LineNr"> 5575 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5576" class="LineNr"> 5576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5577" class="Folded"> 5577 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5583" class="LineNr"> 5583 </span> <span class="subxComment"># check output</span> +<span id="L5584" class="LineNr"> 5584 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/0"</span>) +<span id="L5585" class="LineNr"> 5585 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/1"</span>) +<span id="L5586" class="LineNr"> 5586 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/2"</span>) +<span id="L5587" class="LineNr"> 5587 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/3"</span>) +<span id="L5588" class="LineNr"> 5588 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/4"</span>) +<span id="L5589" class="LineNr"> 5589 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/5"</span>) +<span id="L5590" class="LineNr"> 5590 </span> <span class="subxComment"># define x</span> +<span id="L5591" class="LineNr"> 5591 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/7"</span>) +<span id="L5592" class="LineNr"> 5592 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/8"</span>) +<span id="L5593" class="LineNr"> 5593 </span> <span class="subxComment"># reclaim x</span> +<span id="L5594" class="LineNr"> 5594 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/9"</span>) +<span id="L5595" class="LineNr"> 5595 </span> <span class="subxComment">#</span> +<span id="L5596" class="LineNr"> 5596 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/10"</span>) +<span id="L5597" class="LineNr"> 5597 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/11"</span>) +<span id="L5598" class="LineNr"> 5598 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-var-in-mem/12"</span>) +<span id="L5599" class="LineNr"> 5599 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/13"</span>) +<span id="L5600" class="LineNr"> 5600 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/14"</span>) +<span id="L5601" class="LineNr"> 5601 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5561'>test-convert-function-with-local-array-var-in-mem</a>/15"</span>) +<span id="L5602" class="LineNr"> 5602 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5603" class="LineNr"> 5603 </span> 89/<- %esp 5/r32/ebp +<span id="L5604" class="LineNr"> 5604 </span> 5d/pop-to-ebp +<span id="L5605" class="LineNr"> 5605 </span> c3/return +<span id="L5606" class="LineNr"> 5606 </span> +<span id="L5607" class="LineNr"> 5607 </span><span class="subxTest">test-array-size-in-hex</span>: +<span id="L5608" class="LineNr"> 5608 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5609" class="LineNr"> 5609 </span> 55/push-ebp +<span id="L5610" class="LineNr"> 5610 </span> 89/<- %ebp 4/r32/esp +<span id="L5611" class="LineNr"> 5611 </span> <span class="subxComment"># setup</span> +<span id="L5612" class="LineNr"> 5612 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5613" class="LineNr"> 5613 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5614" class="LineNr"> 5614 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5615" class="LineNr"> 5615 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5616" class="LineNr"> 5616 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L5617" class="LineNr"> 5617 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L5618" class="LineNr"> 5618 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L5619" class="LineNr"> 5619 </span> 68/push 0/imm32 +<span id="L5620" class="LineNr"> 5620 </span> 68/push 0/imm32 +<span id="L5621" class="LineNr"> 5621 </span> 89/<- %edx 4/r32/esp +<span id="L5622" class="LineNr"> 5622 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L5623" class="LineNr"> 5623 </span> <span class="subxComment">#</span> +<span id="L5624" class="LineNr"> 5624 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5625" class="LineNr"> 5625 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 10)\n"</span>) +<span id="L5626" class="LineNr"> 5626 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5627" class="LineNr"> 5627 </span> <span class="subxComment"># convert</span> +<span id="L5628" class="LineNr"> 5628 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L5629" class="LineNr"> 5629 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L5630" class="LineNr"> 5630 </span> <span class="subxComment"># restore ed</span> +<span id="L5631" class="LineNr"> 5631 </span> 89/<- %edx 4/r32/esp +<span id="L5632" class="LineNr"> 5632 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5633" class="LineNr"> 5633 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L5634" class="Folded"> 5634 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5640" class="LineNr"> 5640 </span> <span class="subxComment"># check output</span> +<span id="L5641" class="LineNr"> 5641 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L5607'>test-array-size-in-hex</a>: output should be empty"</span>) +<span id="L5642" class="LineNr"> 5642 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"literal integers are always hex in Mu; start '10' with a '0x' to be unambiguous, converting it to hexadecimal as necessary."</span> <span class="Constant">"F - <a href='mu.subx.html#L5607'>test-array-size-in-hex</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L5643" class="LineNr"> 5643 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L5644" class="LineNr"> 5644 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L5607'>test-array-size-in-hex</a>: exit status"</span>) +<span id="L5645" class="LineNr"> 5645 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L5646" class="LineNr"> 5646 </span> 81 0/subop/add %esp 8/imm32 +<span id="L5647" class="LineNr"> 5647 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5648" class="LineNr"> 5648 </span> 5d/pop-to-ebp +<span id="L5649" class="LineNr"> 5649 </span> c3/return +<span id="L5650" class="LineNr"> 5650 </span> +<span id="L5651" class="LineNr"> 5651 </span><span class="subxTest">test-array-size-with-metadata</span>: +<span id="L5652" class="LineNr"> 5652 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5653" class="LineNr"> 5653 </span> 55/push-ebp +<span id="L5654" class="LineNr"> 5654 </span> 89/<- %ebp 4/r32/esp +<span id="L5655" class="LineNr"> 5655 </span> <span class="subxComment"># setup</span> +<span id="L5656" class="LineNr"> 5656 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5657" class="LineNr"> 5657 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5658" class="LineNr"> 5658 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5659" class="LineNr"> 5659 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5660" class="LineNr"> 5660 </span> <span class="subxComment">#</span> +<span id="L5661" class="LineNr"> 5661 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5662" class="LineNr"> 5662 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3/bar)\n"</span>) +<span id="L5663" class="LineNr"> 5663 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5664" class="LineNr"> 5664 </span> <span class="subxComment"># convert</span> +<span id="L5665" class="LineNr"> 5665 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5666" class="LineNr"> 5666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5667" class="Folded"> 5667 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5673" class="LineNr"> 5673 </span> <span class="subxComment"># no errors</span> +<span id="L5674" class="LineNr"> 5674 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5675" class="LineNr"> 5675 </span> 89/<- %esp 5/r32/ebp +<span id="L5676" class="LineNr"> 5676 </span> 5d/pop-to-ebp +<span id="L5677" class="LineNr"> 5677 </span> c3/return +<span id="L5678" class="LineNr"> 5678 </span> +<span id="L5679" class="LineNr"> 5679 </span><span class="subxTest">test-convert-function-with-populate</span>: +<span id="L5680" class="LineNr"> 5680 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5681" class="LineNr"> 5681 </span> 55/push-ebp +<span id="L5682" class="LineNr"> 5682 </span> 89/<- %ebp 4/r32/esp +<span id="L5683" class="LineNr"> 5683 </span> <span class="subxComment"># setup</span> +<span id="L5684" class="LineNr"> 5684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5685" class="LineNr"> 5685 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5686" class="LineNr"> 5686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5687" class="LineNr"> 5687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5688" class="LineNr"> 5688 </span> <span class="subxComment">#</span> +<span id="L5689" class="LineNr"> 5689 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5690" class="LineNr"> 5690 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr handle array int) <- copy 0\n"</span>) +<span id="L5691" class="LineNr"> 5691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 7\n"</span>) +<span id="L5692" class="LineNr"> 5692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5693" class="LineNr"> 5693 </span> <span class="subxComment"># convert</span> +<span id="L5694" class="LineNr"> 5694 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5695" class="LineNr"> 5695 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5696" class="Folded"> 5696 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5702" class="LineNr"> 5702 </span> <span class="subxComment"># check output</span> +<span id="L5703" class="LineNr"> 5703 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/0"</span>) +<span id="L5704" class="LineNr"> 5704 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-populate/1"</span>) +<span id="L5705" class="LineNr"> 5705 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/2"</span>) +<span id="L5706" class="LineNr"> 5706 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/3"</span>) +<span id="L5707" class="LineNr"> 5707 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/4"</span>) +<span id="L5708" class="LineNr"> 5708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/5"</span>) +<span id="L5709" class="LineNr"> 5709 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/6"</span>) +<span id="L5710" class="LineNr"> 5710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/7"</span>) +<span id="L5711" class="LineNr"> 5711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='308allocate-array.subx.html#L6'>allocate-array2</a> <a href='120allocate.subx.html#L27'>Heap</a> 0x00000004 7 %ecx)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/8"</span>) <span class="subxComment"># 4 = size-of(int)</span> +<span id="L5712" class="LineNr"> 5712 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/9"</span>) +<span id="L5713" class="LineNr"> 5713 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/10"</span>) +<span id="L5714" class="LineNr"> 5714 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/11"</span>) +<span id="L5715" class="LineNr"> 5715 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-populate/12"</span>) +<span id="L5716" class="LineNr"> 5716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/13"</span>) +<span id="L5717" class="LineNr"> 5717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/14"</span>) +<span id="L5718" class="LineNr"> 5718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5679'>test-convert-function-with-populate</a>/15"</span>) +<span id="L5719" class="LineNr"> 5719 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5720" class="LineNr"> 5720 </span> 89/<- %esp 5/r32/ebp +<span id="L5721" class="LineNr"> 5721 </span> 5d/pop-to-ebp +<span id="L5722" class="LineNr"> 5722 </span> c3/return +<span id="L5723" class="LineNr"> 5723 </span> +<span id="L5724" class="LineNr"> 5724 </span><span class="subxComment"># special-case for size(byte) when allocating array</span> +<span id="L5725" class="LineNr"> 5725 </span><span class="subxTest">test-convert-function-with-local-array-of-bytes-in-mem</span>: +<span id="L5726" class="LineNr"> 5726 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5727" class="LineNr"> 5727 </span> 55/push-ebp +<span id="L5728" class="LineNr"> 5728 </span> 89/<- %ebp 4/r32/esp +<span id="L5729" class="LineNr"> 5729 </span> <span class="subxComment"># setup</span> +<span id="L5730" class="LineNr"> 5730 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5731" class="LineNr"> 5731 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5732" class="LineNr"> 5732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5733" class="LineNr"> 5733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5734" class="LineNr"> 5734 </span> <span class="subxComment">#</span> +<span id="L5735" class="LineNr"> 5735 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5736" class="LineNr"> 5736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array byte 3)\n"</span>) +<span id="L5737" class="LineNr"> 5737 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5738" class="LineNr"> 5738 </span> <span class="subxComment"># convert</span> +<span id="L5739" class="LineNr"> 5739 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5740" class="LineNr"> 5740 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5741" class="Folded"> 5741 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5747" class="LineNr"> 5747 </span> <span class="subxComment"># check output</span> +<span id="L5748" class="LineNr"> 5748 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/0"</span>) +<span id="L5749" class="LineNr"> 5749 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/1"</span>) +<span id="L5750" class="LineNr"> 5750 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/2"</span>) +<span id="L5751" class="LineNr"> 5751 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/3"</span>) +<span id="L5752" class="LineNr"> 5752 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/4"</span>) +<span id="L5753" class="LineNr"> 5753 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/5"</span>) +<span id="L5754" class="LineNr"> 5754 </span> <span class="subxComment"># define x</span> +<span id="L5755" class="LineNr"> 5755 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/7"</span>) +<span id="L5756" class="LineNr"> 5756 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/8"</span>) +<span id="L5757" class="LineNr"> 5757 </span> <span class="subxComment"># reclaim x</span> +<span id="L5758" class="LineNr"> 5758 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/9"</span>) +<span id="L5759" class="LineNr"> 5759 </span> <span class="subxComment">#</span> +<span id="L5760" class="LineNr"> 5760 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/10"</span>) +<span id="L5761" class="LineNr"> 5761 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/11"</span>) +<span id="L5762" class="LineNr"> 5762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-array-of-bytes-in-mem/12"</span>) +<span id="L5763" class="LineNr"> 5763 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/13"</span>) +<span id="L5764" class="LineNr"> 5764 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/14"</span>) +<span id="L5765" class="LineNr"> 5765 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5725'>test-convert-function-with-local-array-of-bytes-in-mem</a>/15"</span>) +<span id="L5766" class="LineNr"> 5766 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5767" class="LineNr"> 5767 </span> 89/<- %esp 5/r32/ebp +<span id="L5768" class="LineNr"> 5768 </span> 5d/pop-to-ebp +<span id="L5769" class="LineNr"> 5769 </span> c3/return +<span id="L5770" class="LineNr"> 5770 </span> +<span id="L5771" class="LineNr"> 5771 </span><span class="subxTest">test-convert-address</span>: +<span id="L5772" class="LineNr"> 5772 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5773" class="LineNr"> 5773 </span> 55/push-ebp +<span id="L5774" class="LineNr"> 5774 </span> 89/<- %ebp 4/r32/esp +<span id="L5775" class="LineNr"> 5775 </span> <span class="subxComment"># setup</span> +<span id="L5776" class="LineNr"> 5776 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5777" class="LineNr"> 5777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5778" class="LineNr"> 5778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5779" class="LineNr"> 5779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5780" class="LineNr"> 5780 </span> <span class="subxComment">#</span> +<span id="L5781" class="LineNr"> 5781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5782" class="LineNr"> 5782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L5783" class="LineNr"> 5783 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- address a\n"</span>) +<span id="L5784" class="LineNr"> 5784 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5785" class="LineNr"> 5785 </span> <span class="subxComment"># convert</span> +<span id="L5786" class="LineNr"> 5786 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5787" class="LineNr"> 5787 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5788" class="Folded"> 5788 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5794" class="LineNr"> 5794 </span> <span class="subxComment"># check output</span> +<span id="L5795" class="LineNr"> 5795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/0"</span>) +<span id="L5796" class="LineNr"> 5796 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-address/1"</span>) +<span id="L5797" class="LineNr"> 5797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/2"</span>) +<span id="L5798" class="LineNr"> 5798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/3"</span>) +<span id="L5799" class="LineNr"> 5799 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/4"</span>) +<span id="L5800" class="LineNr"> 5800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/5"</span>) +<span id="L5801" class="LineNr"> 5801 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/6"</span>) +<span id="L5802" class="LineNr"> 5802 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/7"</span>) +<span id="L5803" class="LineNr"> 5803 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/8"</span>) +<span id="L5804" class="LineNr"> 5804 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/9"</span>) +<span id="L5805" class="LineNr"> 5805 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/10"</span>) +<span id="L5806" class="LineNr"> 5806 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/11"</span>) +<span id="L5807" class="LineNr"> 5807 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/12"</span>) +<span id="L5808" class="LineNr"> 5808 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-address/13"</span>) +<span id="L5809" class="LineNr"> 5809 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/14"</span>) +<span id="L5810" class="LineNr"> 5810 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/15"</span>) +<span id="L5811" class="LineNr"> 5811 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5771'>test-convert-address</a>/16"</span>) +<span id="L5812" class="LineNr"> 5812 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5813" class="LineNr"> 5813 </span> 89/<- %esp 5/r32/ebp +<span id="L5814" class="LineNr"> 5814 </span> 5d/pop-to-ebp +<span id="L5815" class="LineNr"> 5815 </span> c3/return +<span id="L5816" class="LineNr"> 5816 </span> +<span id="L5817" class="LineNr"> 5817 </span><span class="subxTest">test-convert-floating-point-convert</span>: +<span id="L5818" class="LineNr"> 5818 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5819" class="LineNr"> 5819 </span> 55/push-ebp +<span id="L5820" class="LineNr"> 5820 </span> 89/<- %ebp 4/r32/esp +<span id="L5821" class="LineNr"> 5821 </span> <span class="subxComment"># setup</span> +<span id="L5822" class="LineNr"> 5822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5823" class="LineNr"> 5823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5824" class="LineNr"> 5824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5825" class="LineNr"> 5825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5826" class="LineNr"> 5826 </span> <span class="subxComment">#</span> +<span id="L5827" class="LineNr"> 5827 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5828" class="LineNr"> 5828 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) +<span id="L5829" class="LineNr"> 5829 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) +<span id="L5830" class="LineNr"> 5830 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5831" class="LineNr"> 5831 </span> <span class="subxComment"># convert</span> +<span id="L5832" class="LineNr"> 5832 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5833" class="LineNr"> 5833 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5834" class="Folded"> 5834 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5840" class="LineNr"> 5840 </span> <span class="subxComment"># check output</span> +<span id="L5841" class="LineNr"> 5841 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/0"</span>) +<span id="L5842" class="LineNr"> 5842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert/1"</span>) +<span id="L5843" class="LineNr"> 5843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/2"</span>) +<span id="L5844" class="LineNr"> 5844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/3"</span>) +<span id="L5845" class="LineNr"> 5845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/4"</span>) +<span id="L5846" class="LineNr"> 5846 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/5"</span>) +<span id="L5847" class="LineNr"> 5847 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/6"</span>) +<span id="L5848" class="LineNr"> 5848 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/7"</span>) +<span id="L5849" class="LineNr"> 5849 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/8"</span>) +<span id="L5850" class="LineNr"> 5850 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/9"</span>) +<span id="L5851" class="LineNr"> 5851 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/10"</span>) +<span id="L5852" class="LineNr"> 5852 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/11"</span>) +<span id="L5853" class="LineNr"> 5853 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert/12"</span>) +<span id="L5854" class="LineNr"> 5854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/13"</span>) +<span id="L5855" class="LineNr"> 5855 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/14"</span>) +<span id="L5856" class="LineNr"> 5856 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/15"</span>) +<span id="L5857" class="LineNr"> 5857 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert/16"</span>) +<span id="L5858" class="LineNr"> 5858 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/17"</span>) +<span id="L5859" class="LineNr"> 5859 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/18"</span>) +<span id="L5860" class="LineNr"> 5860 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5817'>test-convert-floating-point-convert</a>/19"</span>) +<span id="L5861" class="LineNr"> 5861 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5862" class="LineNr"> 5862 </span> 89/<- %esp 5/r32/ebp +<span id="L5863" class="LineNr"> 5863 </span> 5d/pop-to-ebp +<span id="L5864" class="LineNr"> 5864 </span> c3/return +<span id="L5865" class="LineNr"> 5865 </span> +<span id="L5866" class="LineNr"> 5866 </span><span class="subxTest">test-convert-floating-point-convert-2</span>: +<span id="L5867" class="LineNr"> 5867 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5868" class="LineNr"> 5868 </span> 55/push-ebp +<span id="L5869" class="LineNr"> 5869 </span> 89/<- %ebp 4/r32/esp +<span id="L5870" class="LineNr"> 5870 </span> <span class="subxComment"># setup</span> +<span id="L5871" class="LineNr"> 5871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5872" class="LineNr"> 5872 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5873" class="LineNr"> 5873 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5874" class="LineNr"> 5874 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5875" class="LineNr"> 5875 </span> <span class="subxComment">#</span> +<span id="L5876" class="LineNr"> 5876 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L5877" class="LineNr"> 5877 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) +<span id="L5878" class="LineNr"> 5878 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/xmm1: float <- convert a\n"</span>) +<span id="L5879" class="LineNr"> 5879 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a <- convert b\n"</span>) +<span id="L5880" class="LineNr"> 5880 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5881" class="LineNr"> 5881 </span> <span class="subxComment"># convert</span> +<span id="L5882" class="LineNr"> 5882 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5883" class="LineNr"> 5883 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5884" class="Folded"> 5884 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5890" class="LineNr"> 5890 </span> <span class="subxComment"># check output</span> +<span id="L5891" class="LineNr"> 5891 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/0"</span>) +<span id="L5892" class="LineNr"> 5892 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/1"</span>) +<span id="L5893" class="LineNr"> 5893 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/2"</span>) +<span id="L5894" class="LineNr"> 5894 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/3"</span>) +<span id="L5895" class="LineNr"> 5895 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/4"</span>) +<span id="L5896" class="LineNr"> 5896 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/5"</span>) +<span id="L5897" class="LineNr"> 5897 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/6"</span>) +<span id="L5898" class="LineNr"> 5898 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/7"</span>) +<span id="L5899" class="LineNr"> 5899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/8"</span>) +<span id="L5900" class="LineNr"> 5900 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/9"</span>) +<span id="L5901" class="LineNr"> 5901 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/10"</span>) +<span id="L5902" class="LineNr"> 5902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2d/convert-to-int %xmm1 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/11"</span>) +<span id="L5903" class="LineNr"> 5903 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/12"</span>) +<span id="L5904" class="LineNr"> 5904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - test-floating-point-convert-2/13"</span>) +<span id="L5905" class="LineNr"> 5905 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/14"</span>) +<span id="L5906" class="LineNr"> 5906 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/15"</span>) +<span id="L5907" class="LineNr"> 5907 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/16"</span>) +<span id="L5908" class="LineNr"> 5908 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-convert-2/17"</span>) +<span id="L5909" class="LineNr"> 5909 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/18"</span>) +<span id="L5910" class="LineNr"> 5910 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/19"</span>) +<span id="L5911" class="LineNr"> 5911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5866'>test-convert-floating-point-convert-2</a>/20"</span>) +<span id="L5912" class="LineNr"> 5912 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5913" class="LineNr"> 5913 </span> 89/<- %esp 5/r32/ebp +<span id="L5914" class="LineNr"> 5914 </span> 5d/pop-to-ebp +<span id="L5915" class="LineNr"> 5915 </span> c3/return +<span id="L5916" class="LineNr"> 5916 </span> +<span id="L5917" class="LineNr"> 5917 </span><span class="subxTest">test-convert-floating-point-operation</span>: +<span id="L5918" class="LineNr"> 5918 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5919" class="LineNr"> 5919 </span> 55/push-ebp +<span id="L5920" class="LineNr"> 5920 </span> 89/<- %ebp 4/r32/esp +<span id="L5921" class="LineNr"> 5921 </span> <span class="subxComment"># setup</span> +<span id="L5922" class="LineNr"> 5922 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L5923" class="LineNr"> 5923 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L5924" class="LineNr"> 5924 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L5925" class="LineNr"> 5925 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L5926" class="LineNr"> 5926 </span> <span class="subxComment">#</span> +<span id="L5927" class="LineNr"> 5927 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L5928" class="LineNr"> 5928 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) +<span id="L5929" class="LineNr"> 5929 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) +<span id="L5930" class="LineNr"> 5930 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm5: float <- copy m\n"</span>) +<span id="L5931" class="LineNr"> 5931 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy y\n"</span>) +<span id="L5932" class="LineNr"> 5932 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to m, y\n"</span>) +<span id="L5933" class="LineNr"> 5933 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add y\n"</span>) +<span id="L5934" class="LineNr"> 5934 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- add m\n"</span>) +<span id="L5935" class="LineNr"> 5935 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract y\n"</span>) +<span id="L5936" class="LineNr"> 5936 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- subtract m\n"</span>) +<span id="L5937" class="LineNr"> 5937 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply y\n"</span>) +<span id="L5938" class="LineNr"> 5938 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply m\n"</span>) +<span id="L5939" class="LineNr"> 5939 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide y\n"</span>) +<span id="L5940" class="LineNr"> 5940 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- divide m\n"</span>) +<span id="L5941" class="LineNr"> 5941 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal y\n"</span>) +<span id="L5942" class="LineNr"> 5942 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- reciprocal m\n"</span>) +<span id="L5943" class="LineNr"> 5943 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root y\n"</span>) +<span id="L5944" class="LineNr"> 5944 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- square-root m\n"</span>) +<span id="L5945" class="LineNr"> 5945 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root y\n"</span>) +<span id="L5946" class="LineNr"> 5946 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- inverse-square-root m\n"</span>) +<span id="L5947" class="LineNr"> 5947 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max y\n"</span>) +<span id="L5948" class="LineNr"> 5948 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- max m\n"</span>) +<span id="L5949" class="LineNr"> 5949 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min y\n"</span>) +<span id="L5950" class="LineNr"> 5950 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- min m\n"</span>) +<span id="L5951" class="LineNr"> 5951 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, y\n"</span>) +<span id="L5952" class="LineNr"> 5952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, m\n"</span>) +<span id="L5953" class="LineNr"> 5953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L5954" class="LineNr"> 5954 </span> <span class="subxComment"># convert</span> +<span id="L5955" class="LineNr"> 5955 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L5956" class="LineNr"> 5956 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L5957" class="Folded"> 5957 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5963" class="LineNr"> 5963 </span> <span class="subxComment"># check output</span> +<span id="L5964" class="LineNr"> 5964 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/0"</span>) +<span id="L5965" class="LineNr"> 5965 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-operation/1"</span>) +<span id="L5966" class="LineNr"> 5966 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/2"</span>) +<span id="L5967" class="LineNr"> 5967 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/3"</span>) +<span id="L5968" class="LineNr"> 5968 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/4"</span>) +<span id="L5969" class="LineNr"> 5969 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/5"</span>) +<span id="L5970" class="LineNr"> 5970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/6"</span>) +<span id="L5971" class="LineNr"> 5971 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/7"</span>) +<span id="L5972" class="LineNr"> 5972 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/8"</span>) +<span id="L5973" class="LineNr"> 5973 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/9"</span>) +<span id="L5974" class="LineNr"> 5974 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/10"</span>) +<span id="L5975" class="LineNr"> 5975 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/11"</span>) +<span id="L5976" class="LineNr"> 5976 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/12"</span>) +<span id="L5977" class="LineNr"> 5977 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy %xmm1 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/13"</span>) +<span id="L5978" class="LineNr"> 5978 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/copy *(ebp+0xfffffffc) 0x00000005/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/14"</span>) +<span id="L5979" class="LineNr"> 5979 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/15"</span>) +<span id="L5980" class="LineNr"> 5980 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 58/add *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/16"</span>) +<span id="L5981" class="LineNr"> 5981 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/17"</span>) +<span id="L5982" class="LineNr"> 5982 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5c/subtract *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/18"</span>) +<span id="L5983" class="LineNr"> 5983 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/19"</span>) +<span id="L5984" class="LineNr"> 5984 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/20"</span>) +<span id="L5985" class="LineNr"> 5985 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/21"</span>) +<span id="L5986" class="LineNr"> 5986 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5e/divide *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/22"</span>) +<span id="L5987" class="LineNr"> 5987 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/23"</span>) +<span id="L5988" class="LineNr"> 5988 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 53/reciprocal *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/24"</span>) +<span id="L5989" class="LineNr"> 5989 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/25"</span>) +<span id="L5990" class="LineNr"> 5990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 51/square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/26"</span>) +<span id="L5991" class="LineNr"> 5991 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/27"</span>) +<span id="L5992" class="LineNr"> 5992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 52/inverse-square-root *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/28"</span>) +<span id="L5993" class="LineNr"> 5993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/29"</span>) +<span id="L5994" class="LineNr"> 5994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5f/max *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/30"</span>) +<span id="L5995" class="LineNr"> 5995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/31"</span>) +<span id="L5996" class="LineNr"> 5996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 5d/min *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/32"</span>) +<span id="L5997" class="LineNr"> 5997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare %xmm5 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/33"</span>) +<span id="L5998" class="LineNr"> 5998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 0f 2f/compare *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/34"</span>) +<span id="L5999" class="LineNr"> 5999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 5/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/35"</span>) +<span id="L6000" class="LineNr"> 6000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/36"</span>) +<span id="L6001" class="LineNr"> 6001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/37"</span>) +<span id="L6002" class="LineNr"> 6002 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/38"</span>) +<span id="L6003" class="LineNr"> 6003 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/39"</span>) +<span id="L6004" class="LineNr"> 6004 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/40"</span>) +<span id="L6005" class="LineNr"> 6005 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/41"</span>) +<span id="L6006" class="LineNr"> 6006 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-operation/42"</span>) +<span id="L6007" class="LineNr"> 6007 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/43"</span>) +<span id="L6008" class="LineNr"> 6008 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/44"</span>) +<span id="L6009" class="LineNr"> 6009 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L5917'>test-convert-floating-point-operation</a>/45"</span>) +<span id="L6010" class="LineNr"> 6010 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6011" class="LineNr"> 6011 </span> 89/<- %esp 5/r32/ebp +<span id="L6012" class="LineNr"> 6012 </span> 5d/pop-to-ebp +<span id="L6013" class="LineNr"> 6013 </span> c3/return +<span id="L6014" class="LineNr"> 6014 </span> +<span id="L6015" class="LineNr"> 6015 </span><span class="subxTest">test-convert-floating-point-dereferenced</span>: +<span id="L6016" class="LineNr"> 6016 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6017" class="LineNr"> 6017 </span> 55/push-ebp +<span id="L6018" class="LineNr"> 6018 </span> 89/<- %ebp 4/r32/esp +<span id="L6019" class="LineNr"> 6019 </span> <span class="subxComment"># setup</span> +<span id="L6020" class="LineNr"> 6020 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6021" class="LineNr"> 6021 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6022" class="LineNr"> 6022 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6023" class="LineNr"> 6023 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6024" class="LineNr"> 6024 </span> <span class="subxComment">#</span> +<span id="L6025" class="LineNr"> 6025 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L6026" class="LineNr"> 6026 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var m: float\n"</span>) +<span id="L6027" class="LineNr"> 6027 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/xmm1: float <- copy m\n"</span>) +<span id="L6028" class="LineNr"> 6028 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr float) <- copy 0\n"</span>) +<span id="L6029" class="LineNr"> 6029 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- multiply *y\n"</span>) +<span id="L6030" class="LineNr"> 6030 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6031" class="LineNr"> 6031 </span> <span class="subxComment"># convert</span> +<span id="L6032" class="LineNr"> 6032 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6033" class="LineNr"> 6033 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6034" class="Folded"> 6034 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6040" class="LineNr"> 6040 </span> <span class="subxComment"># check output</span> +<span id="L6041" class="LineNr"> 6041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/0"</span>) +<span id="L6042" class="LineNr"> 6042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/1"</span>) +<span id="L6043" class="LineNr"> 6043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/2"</span>) +<span id="L6044" class="LineNr"> 6044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/3"</span>) +<span id="L6045" class="LineNr"> 6045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/4"</span>) +<span id="L6046" class="LineNr"> 6046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/5"</span>) +<span id="L6047" class="LineNr"> 6047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/6"</span>) +<span id="L6048" class="LineNr"> 6048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/7"</span>) +<span id="L6049" class="LineNr"> 6049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/8"</span>) +<span id="L6050" class="LineNr"> 6050 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/copy *(ebp+0xfffffffc) 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/9"</span>) +<span id="L6051" class="LineNr"> 6051 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/10"</span>) +<span id="L6052" class="LineNr"> 6052 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/11"</span>) +<span id="L6053" class="LineNr"> 6053 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 59/multiply *eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/12"</span>) +<span id="L6054" class="LineNr"> 6054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/13"</span>) +<span id="L6055" class="LineNr"> 6055 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/14"</span>) +<span id="L6056" class="LineNr"> 6056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/15"</span>) +<span id="L6057" class="LineNr"> 6057 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/16"</span>) +<span id="L6058" class="LineNr"> 6058 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/17"</span>) +<span id="L6059" class="LineNr"> 6059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/18"</span>) +<span id="L6060" class="LineNr"> 6060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-floating-point-dereferenced/19"</span>) +<span id="L6061" class="LineNr"> 6061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/20"</span>) +<span id="L6062" class="LineNr"> 6062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/21"</span>) +<span id="L6063" class="LineNr"> 6063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/22"</span>) +<span id="L6064" class="LineNr"> 6064 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6065" class="LineNr"> 6065 </span> 89/<- %esp 5/r32/ebp +<span id="L6066" class="LineNr"> 6066 </span> 5d/pop-to-ebp +<span id="L6067" class="LineNr"> 6067 </span> c3/return +<span id="L6068" class="LineNr"> 6068 </span> +<span id="L6069" class="LineNr"> 6069 </span><span class="subxTest">test-convert-length-of-array</span>: +<span id="L6070" class="LineNr"> 6070 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6071" class="LineNr"> 6071 </span> 55/push-ebp +<span id="L6072" class="LineNr"> 6072 </span> 89/<- %ebp 4/r32/esp +<span id="L6073" class="LineNr"> 6073 </span> <span class="subxComment"># setup</span> +<span id="L6074" class="LineNr"> 6074 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6075" class="LineNr"> 6075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6076" class="LineNr"> 6076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6077" class="LineNr"> 6077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6078" class="LineNr"> 6078 </span> <span class="subxComment">#</span> +<span id="L6079" class="LineNr"> 6079 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array int) {\n"</span>) +<span id="L6080" class="LineNr"> 6080 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array int) <- copy a\n"</span>) +<span id="L6081" class="LineNr"> 6081 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) +<span id="L6082" class="LineNr"> 6082 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6083" class="LineNr"> 6083 </span> <span class="subxComment"># convert</span> +<span id="L6084" class="LineNr"> 6084 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6085" class="LineNr"> 6085 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6086" class="Folded"> 6086 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6092" class="LineNr"> 6092 </span> <span class="subxComment"># check output</span> +<span id="L6093" class="LineNr"> 6093 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/0"</span>) +<span id="L6094" class="LineNr"> 6094 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array/1"</span>) +<span id="L6095" class="LineNr"> 6095 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/2"</span>) +<span id="L6096" class="LineNr"> 6096 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/3"</span>) +<span id="L6097" class="LineNr"> 6097 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/4"</span>) +<span id="L6098" class="LineNr"> 6098 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/5"</span>) +<span id="L6099" class="LineNr"> 6099 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/6"</span>) +<span id="L6100" class="LineNr"> 6100 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/7"</span>) +<span id="L6101" class="LineNr"> 6101 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/8"</span>) +<span id="L6102" class="LineNr"> 6102 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/9"</span>) +<span id="L6103" class="LineNr"> 6103 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/10"</span>) +<span id="L6104" class="LineNr"> 6104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/11"</span>) +<span id="L6105" class="LineNr"> 6105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/12"</span>) +<span id="L6106" class="LineNr"> 6106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array/13"</span>) +<span id="L6107" class="LineNr"> 6107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/14"</span>) +<span id="L6108" class="LineNr"> 6108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/15"</span>) +<span id="L6109" class="LineNr"> 6109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6069'>test-convert-length-of-array</a>/16"</span>) +<span id="L6110" class="LineNr"> 6110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6111" class="LineNr"> 6111 </span> 89/<- %esp 5/r32/ebp +<span id="L6112" class="LineNr"> 6112 </span> 5d/pop-to-ebp +<span id="L6113" class="LineNr"> 6113 </span> c3/return +<span id="L6114" class="LineNr"> 6114 </span> +<span id="L6115" class="LineNr"> 6115 </span><span class="subxComment"># special-case for size(byte) when computing array length</span> +<span id="L6116" class="LineNr"> 6116 </span><span class="subxTest">test-convert-length-of-array-of-bytes</span>: +<span id="L6117" class="LineNr"> 6117 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6118" class="LineNr"> 6118 </span> 55/push-ebp +<span id="L6119" class="LineNr"> 6119 </span> 89/<- %ebp 4/r32/esp +<span id="L6120" class="LineNr"> 6120 </span> <span class="subxComment"># setup</span> +<span id="L6121" class="LineNr"> 6121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6122" class="LineNr"> 6122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6123" class="LineNr"> 6123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6124" class="LineNr"> 6124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6125" class="LineNr"> 6125 </span> <span class="subxComment">#</span> +<span id="L6126" class="LineNr"> 6126 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr array byte) {\n"</span>) +<span id="L6127" class="LineNr"> 6127 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr array byte) <- copy a\n"</span>) +<span id="L6128" class="LineNr"> 6128 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: int <- length b\n"</span>) +<span id="L6129" class="LineNr"> 6129 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6130" class="LineNr"> 6130 </span> <span class="subxComment"># convert</span> +<span id="L6131" class="LineNr"> 6131 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6132" class="LineNr"> 6132 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6133" class="Folded"> 6133 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6139" class="LineNr"> 6139 </span> <span class="subxComment"># check output</span> +<span id="L6140" class="LineNr"> 6140 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/0"</span>) +<span id="L6141" class="LineNr"> 6141 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/1"</span>) +<span id="L6142" class="LineNr"> 6142 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/2"</span>) +<span id="L6143" class="LineNr"> 6143 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/3"</span>) +<span id="L6144" class="LineNr"> 6144 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/4"</span>) +<span id="L6145" class="LineNr"> 6145 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/5"</span>) +<span id="L6146" class="LineNr"> 6146 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/6"</span>) +<span id="L6147" class="LineNr"> 6147 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/7"</span>) +<span id="L6148" class="LineNr"> 6148 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/8"</span>) +<span id="L6149" class="LineNr"> 6149 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/9"</span>) +<span id="L6150" class="LineNr"> 6150 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/10"</span>) +<span id="L6151" class="LineNr"> 6151 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/11"</span>) +<span id="L6152" class="LineNr"> 6152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-bytes/12"</span>) +<span id="L6153" class="LineNr"> 6153 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/13"</span>) +<span id="L6154" class="LineNr"> 6154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/14"</span>) +<span id="L6155" class="LineNr"> 6155 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6116'>test-convert-length-of-array-of-bytes</a>/15"</span>) +<span id="L6156" class="LineNr"> 6156 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6157" class="LineNr"> 6157 </span> 89/<- %esp 5/r32/ebp +<span id="L6158" class="LineNr"> 6158 </span> 5d/pop-to-ebp +<span id="L6159" class="LineNr"> 6159 </span> c3/return +<span id="L6160" class="LineNr"> 6160 </span> +<span id="L6161" class="LineNr"> 6161 </span><span class="subxTest">test-convert-length-of-array-on-stack</span>: +<span id="L6162" class="LineNr"> 6162 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6163" class="LineNr"> 6163 </span> 55/push-ebp +<span id="L6164" class="LineNr"> 6164 </span> 89/<- %ebp 4/r32/esp +<span id="L6165" class="LineNr"> 6165 </span> <span class="subxComment"># setup</span> +<span id="L6166" class="LineNr"> 6166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6167" class="LineNr"> 6167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6168" class="LineNr"> 6168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6169" class="LineNr"> 6169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6170" class="LineNr"> 6170 </span> <span class="subxComment">#</span> +<span id="L6171" class="LineNr"> 6171 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6172" class="LineNr"> 6172 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L6173" class="LineNr"> 6173 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- length a\n"</span>) +<span id="L6174" class="LineNr"> 6174 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6175" class="LineNr"> 6175 </span> <span class="subxComment"># convert</span> +<span id="L6176" class="LineNr"> 6176 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6177" class="LineNr"> 6177 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6178" class="Folded"> 6178 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6184" class="LineNr"> 6184 </span> <span class="subxComment"># check output</span> +<span id="L6185" class="LineNr"> 6185 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/0"</span>) +<span id="L6186" class="LineNr"> 6186 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/1"</span>) +<span id="L6187" class="LineNr"> 6187 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/2"</span>) +<span id="L6188" class="LineNr"> 6188 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/3"</span>) +<span id="L6189" class="LineNr"> 6189 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/4"</span>) +<span id="L6190" class="LineNr"> 6190 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/5"</span>) +<span id="L6191" class="LineNr"> 6191 </span> <span class="subxComment"># define x</span> +<span id="L6192" class="LineNr"> 6192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/6"</span>) +<span id="L6193" class="LineNr"> 6193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/7"</span>) +<span id="L6194" class="LineNr"> 6194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/8"</span>) +<span id="L6195" class="LineNr"> 6195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff0) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/9"</span>) +<span id="L6196" class="LineNr"> 6196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c1/shift 5/subop/>> %eax 0x00000002/imm8"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/10"</span>) +<span id="L6197" class="LineNr"> 6197 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/11"</span>) +<span id="L6198" class="LineNr"> 6198 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/12"</span>) +<span id="L6199" class="LineNr"> 6199 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/13"</span>) +<span id="L6200" class="LineNr"> 6200 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/14"</span>) +<span id="L6201" class="LineNr"> 6201 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-on-stack/15"</span>) +<span id="L6202" class="LineNr"> 6202 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/16"</span>) +<span id="L6203" class="LineNr"> 6203 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/17"</span>) +<span id="L6204" class="LineNr"> 6204 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6161'>test-convert-length-of-array-on-stack</a>/18"</span>) +<span id="L6205" class="LineNr"> 6205 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6206" class="LineNr"> 6206 </span> 89/<- %esp 5/r32/ebp +<span id="L6207" class="LineNr"> 6207 </span> 5d/pop-to-ebp +<span id="L6208" class="LineNr"> 6208 </span> c3/return +<span id="L6209" class="LineNr"> 6209 </span> +<span id="L6210" class="LineNr"> 6210 </span><span class="subxTest">test-reg-var-def-with-read-of-same-register</span>: +<span id="L6211" class="LineNr"> 6211 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6212" class="LineNr"> 6212 </span> 55/push-ebp +<span id="L6213" class="LineNr"> 6213 </span> 89/<- %ebp 4/r32/esp +<span id="L6214" class="LineNr"> 6214 </span> <span class="subxComment"># setup</span> +<span id="L6215" class="LineNr"> 6215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6216" class="LineNr"> 6216 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6217" class="LineNr"> 6217 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6218" class="LineNr"> 6218 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6219" class="LineNr"> 6219 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L6220" class="LineNr"> 6220 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6221" class="LineNr"> 6221 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16) # bytes of args in call to convert-mu</span> +<span id="L6222" class="LineNr"> 6222 </span> 68/push 0/imm32 +<span id="L6223" class="LineNr"> 6223 </span> 68/push 0/imm32 +<span id="L6224" class="LineNr"> 6224 </span> 89/<- %edx 4/r32/esp +<span id="L6225" class="LineNr"> 6225 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6226" class="LineNr"> 6226 </span> <span class="subxComment">#</span> +<span id="L6227" class="LineNr"> 6227 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6228" class="LineNr"> 6228 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 3\n"</span>) +<span id="L6229" class="LineNr"> 6229 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- add x\n"</span>) +<span id="L6230" class="LineNr"> 6230 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6231" class="LineNr"> 6231 </span> <span class="subxComment"># convert</span> +<span id="L6232" class="LineNr"> 6232 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L6233" class="LineNr"> 6233 </span> <span class="subxComment"># registers except esp could be clobbered at this point (though they shouldn't be)</span> +<span id="L6234" class="LineNr"> 6234 </span> <span class="subxComment"># restore ed</span> +<span id="L6235" class="LineNr"> 6235 </span> 89/<- %edx 4/r32/esp +<span id="L6236" class="LineNr"> 6236 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6237" class="LineNr"> 6237 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L6238" class="Folded"> 6238 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6244" class="Folded"> 6244 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6250" class="LineNr"> 6250 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>: <a href='114error.subx.html#L9'>error</a> stream should be empty"</span>) +<span id="L6251" class="LineNr"> 6251 </span> <span class="subxComment"># check output</span> +<span id="L6252" class="LineNr"> 6252 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/0"</span>) +<span id="L6253" class="LineNr"> 6253 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/1"</span>) +<span id="L6254" class="LineNr"> 6254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/2"</span>) +<span id="L6255" class="LineNr"> 6255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/3"</span>) +<span id="L6256" class="LineNr"> 6256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/4"</span>) +<span id="L6257" class="LineNr"> 6257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/5"</span>) +<span id="L6258" class="LineNr"> 6258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/6"</span>) +<span id="L6259" class="LineNr"> 6259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/7"</span>) +<span id="L6260" class="LineNr"> 6260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 01/add-to %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/8"</span>) +<span id="L6261" class="LineNr"> 6261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/9"</span>) +<span id="L6262" class="LineNr"> 6262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/10"</span>) +<span id="L6263" class="LineNr"> 6263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/11"</span>) +<span id="L6264" class="LineNr"> 6264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-reg-var-def-with-read-of-same-register/12"</span>) +<span id="L6265" class="LineNr"> 6265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/13"</span>) +<span id="L6266" class="LineNr"> 6266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/14"</span>) +<span id="L6267" class="LineNr"> 6267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6210'>test-reg-var-def-with-read-of-same-register</a>/15"</span>) +<span id="L6268" class="LineNr"> 6268 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6269" class="LineNr"> 6269 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6270" class="LineNr"> 6270 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6271" class="LineNr"> 6271 </span> 5d/pop-to-ebp +<span id="L6272" class="LineNr"> 6272 </span> c3/return +<span id="L6273" class="LineNr"> 6273 </span> +<span id="L6274" class="LineNr"> 6274 </span><span class="subxTest">test-convert-index-into-array</span>: +<span id="L6275" class="LineNr"> 6275 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6276" class="LineNr"> 6276 </span> 55/push-ebp +<span id="L6277" class="LineNr"> 6277 </span> 89/<- %ebp 4/r32/esp +<span id="L6278" class="LineNr"> 6278 </span> <span class="subxComment"># setup</span> +<span id="L6279" class="LineNr"> 6279 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6280" class="LineNr"> 6280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6281" class="LineNr"> 6281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6282" class="LineNr"> 6282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6283" class="LineNr"> 6283 </span> <span class="subxComment">#</span> +<span id="L6284" class="LineNr"> 6284 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6285" class="LineNr"> 6285 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) +<span id="L6286" class="LineNr"> 6286 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L6287" class="LineNr"> 6287 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, idx\n"</span>) +<span id="L6288" class="LineNr"> 6288 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6289" class="LineNr"> 6289 </span> <span class="subxComment"># convert</span> +<span id="L6290" class="LineNr"> 6290 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6291" class="LineNr"> 6291 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6292" class="Folded"> 6292 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6298" class="LineNr"> 6298 </span> <span class="subxComment"># check output</span> +<span id="L6299" class="LineNr"> 6299 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/0"</span>) +<span id="L6300" class="LineNr"> 6300 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array/1"</span>) +<span id="L6301" class="LineNr"> 6301 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/2"</span>) +<span id="L6302" class="LineNr"> 6302 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/3"</span>) +<span id="L6303" class="LineNr"> 6303 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/4"</span>) +<span id="L6304" class="LineNr"> 6304 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/5"</span>) +<span id="L6305" class="LineNr"> 6305 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/6"</span>) +<span id="L6306" class="LineNr"> 6306 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/7"</span>) +<span id="L6307" class="LineNr"> 6307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/8"</span>) +<span id="L6308" class="LineNr"> 6308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/9"</span>) +<span id="L6309" class="LineNr"> 6309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000004 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/10"</span>) +<span id="L6310" class="LineNr"> 6310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000002 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/11"</span>) +<span id="L6311" class="LineNr"> 6311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/12"</span>) +<span id="L6312" class="LineNr"> 6312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/13"</span>) +<span id="L6313" class="LineNr"> 6313 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/14"</span>) +<span id="L6314" class="LineNr"> 6314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/15"</span>) +<span id="L6315" class="LineNr"> 6315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array/16"</span>) +<span id="L6316" class="LineNr"> 6316 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/17"</span>) +<span id="L6317" class="LineNr"> 6317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/18"</span>) +<span id="L6318" class="LineNr"> 6318 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6274'>test-convert-index-into-array</a>/19"</span>) +<span id="L6319" class="LineNr"> 6319 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6320" class="LineNr"> 6320 </span> 89/<- %esp 5/r32/ebp +<span id="L6321" class="LineNr"> 6321 </span> 5d/pop-to-ebp +<span id="L6322" class="LineNr"> 6322 </span> c3/return +<span id="L6323" class="LineNr"> 6323 </span> +<span id="L6324" class="LineNr"> 6324 </span><span class="subxTest">test-convert-index-into-array-of-bytes</span>: +<span id="L6325" class="LineNr"> 6325 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6326" class="LineNr"> 6326 </span> 55/push-ebp +<span id="L6327" class="LineNr"> 6327 </span> 89/<- %ebp 4/r32/esp +<span id="L6328" class="LineNr"> 6328 </span> <span class="subxComment"># setup</span> +<span id="L6329" class="LineNr"> 6329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6330" class="LineNr"> 6330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6331" class="LineNr"> 6331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6332" class="LineNr"> 6332 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6333" class="LineNr"> 6333 </span> <span class="subxComment">#</span> +<span id="L6334" class="LineNr"> 6334 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6335" class="LineNr"> 6335 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6336" class="LineNr"> 6336 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L6337" class="LineNr"> 6337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, idx\n"</span>) +<span id="L6338" class="LineNr"> 6338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6339" class="LineNr"> 6339 </span> <span class="subxComment"># convert</span> +<span id="L6340" class="LineNr"> 6340 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6341" class="LineNr"> 6341 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6342" class="Folded"> 6342 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6348" class="LineNr"> 6348 </span> <span class="subxComment"># check output</span> +<span id="L6349" class="LineNr"> 6349 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/0"</span>) +<span id="L6350" class="LineNr"> 6350 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/1"</span>) +<span id="L6351" class="LineNr"> 6351 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/2"</span>) +<span id="L6352" class="LineNr"> 6352 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/3"</span>) +<span id="L6353" class="LineNr"> 6353 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/4"</span>) +<span id="L6354" class="LineNr"> 6354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/5"</span>) +<span id="L6355" class="LineNr"> 6355 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/6"</span>) +<span id="L6356" class="LineNr"> 6356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/7"</span>) +<span id="L6357" class="LineNr"> 6357 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/8"</span>) +<span id="L6358" class="LineNr"> 6358 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/9"</span>) +<span id="L6359" class="LineNr"> 6359 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/10"</span>) +<span id="L6360" class="LineNr"> 6360 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000000 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/11"</span>) +<span id="L6361" class="LineNr"> 6361 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/12"</span>) +<span id="L6362" class="LineNr"> 6362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/13"</span>) +<span id="L6363" class="LineNr"> 6363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/14"</span>) +<span id="L6364" class="LineNr"> 6364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/15"</span>) +<span id="L6365" class="LineNr"> 6365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes/16"</span>) +<span id="L6366" class="LineNr"> 6366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/17"</span>) +<span id="L6367" class="LineNr"> 6367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/18"</span>) +<span id="L6368" class="LineNr"> 6368 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6324'>test-convert-index-into-array-of-bytes</a>/19"</span>) +<span id="L6369" class="LineNr"> 6369 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6370" class="LineNr"> 6370 </span> 89/<- %esp 5/r32/ebp +<span id="L6371" class="LineNr"> 6371 </span> 5d/pop-to-ebp +<span id="L6372" class="LineNr"> 6372 </span> c3/return +<span id="L6373" class="LineNr"> 6373 </span> +<span id="L6374" class="LineNr"> 6374 </span><span class="subxTest">test-convert-index-into-array-with-literal</span>: +<span id="L6375" class="LineNr"> 6375 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6376" class="LineNr"> 6376 </span> 55/push-ebp +<span id="L6377" class="LineNr"> 6377 </span> 89/<- %ebp 4/r32/esp +<span id="L6378" class="LineNr"> 6378 </span> <span class="subxComment"># setup</span> +<span id="L6379" class="LineNr"> 6379 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6380" class="LineNr"> 6380 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6381" class="LineNr"> 6381 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6382" class="LineNr"> 6382 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6383" class="LineNr"> 6383 </span> <span class="subxComment">#</span> +<span id="L6384" class="LineNr"> 6384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6385" class="LineNr"> 6385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) +<span id="L6386" class="LineNr"> 6386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) +<span id="L6387" class="LineNr"> 6387 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6388" class="LineNr"> 6388 </span> <span class="subxComment"># convert</span> +<span id="L6389" class="LineNr"> 6389 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6390" class="LineNr"> 6390 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6391" class="Folded"> 6391 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6397" class="LineNr"> 6397 </span> <span class="subxComment"># check output</span> +<span id="L6398" class="LineNr"> 6398 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/0"</span>) +<span id="L6399" class="LineNr"> 6399 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/1"</span>) +<span id="L6400" class="LineNr"> 6400 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/2"</span>) +<span id="L6401" class="LineNr"> 6401 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/3"</span>) +<span id="L6402" class="LineNr"> 6402 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/4"</span>) +<span id="L6403" class="LineNr"> 6403 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/5"</span>) +<span id="L6404" class="LineNr"> 6404 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/6"</span>) +<span id="L6405" class="LineNr"> 6405 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/7"</span>) +<span id="L6406" class="LineNr"> 6406 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/8"</span>) +<span id="L6407" class="LineNr"> 6407 </span> <span class="subxComment"># 2 * 4 bytes/elem + 4 bytes for size = offset 12</span> +<span id="L6408" class="LineNr"> 6408 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x0000000c) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/9"</span>) +<span id="L6409" class="LineNr"> 6409 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/10"</span>) +<span id="L6410" class="LineNr"> 6410 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/11"</span>) +<span id="L6411" class="LineNr"> 6411 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/12"</span>) +<span id="L6412" class="LineNr"> 6412 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-with-literal/13"</span>) +<span id="L6413" class="LineNr"> 6413 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/14"</span>) +<span id="L6414" class="LineNr"> 6414 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/15"</span>) +<span id="L6415" class="LineNr"> 6415 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6374'>test-convert-index-into-array-with-literal</a>/16"</span>) +<span id="L6416" class="LineNr"> 6416 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6417" class="LineNr"> 6417 </span> 89/<- %esp 5/r32/ebp +<span id="L6418" class="LineNr"> 6418 </span> 5d/pop-to-ebp +<span id="L6419" class="LineNr"> 6419 </span> c3/return +<span id="L6420" class="LineNr"> 6420 </span> +<span id="L6421" class="LineNr"> 6421 </span><span class="subxTest">test-convert-index-into-array-of-bytes-with-literal</span>: +<span id="L6422" class="LineNr"> 6422 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6423" class="LineNr"> 6423 </span> 55/push-ebp +<span id="L6424" class="LineNr"> 6424 </span> 89/<- %ebp 4/r32/esp +<span id="L6425" class="LineNr"> 6425 </span> <span class="subxComment"># setup</span> +<span id="L6426" class="LineNr"> 6426 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6427" class="LineNr"> 6427 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6428" class="LineNr"> 6428 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6429" class="LineNr"> 6429 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6430" class="LineNr"> 6430 </span> <span class="subxComment">#</span> +<span id="L6431" class="LineNr"> 6431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6432" class="LineNr"> 6432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6433" class="LineNr"> 6433 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) +<span id="L6434" class="LineNr"> 6434 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6435" class="LineNr"> 6435 </span> <span class="subxComment"># convert</span> +<span id="L6436" class="LineNr"> 6436 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6437" class="LineNr"> 6437 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6438" class="Folded"> 6438 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6444" class="LineNr"> 6444 </span> <span class="subxComment"># check output</span> +<span id="L6445" class="LineNr"> 6445 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/0"</span>) +<span id="L6446" class="LineNr"> 6446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/1"</span>) +<span id="L6447" class="LineNr"> 6447 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/2"</span>) +<span id="L6448" class="LineNr"> 6448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/3"</span>) +<span id="L6449" class="LineNr"> 6449 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/4"</span>) +<span id="L6450" class="LineNr"> 6450 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/5"</span>) +<span id="L6451" class="LineNr"> 6451 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/6"</span>) +<span id="L6452" class="LineNr"> 6452 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/7"</span>) +<span id="L6453" class="LineNr"> 6453 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) +<span id="L6454" class="LineNr"> 6454 </span> <span class="subxComment"># 2 * 1 byte/elem + 4 bytes for size = offset 6</span> +<span id="L6455" class="LineNr"> 6455 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000006) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/8"</span>) +<span id="L6456" class="LineNr"> 6456 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/9"</span>) +<span id="L6457" class="LineNr"> 6457 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/10"</span>) +<span id="L6458" class="LineNr"> 6458 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/11"</span>) +<span id="L6459" class="LineNr"> 6459 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-with-literal/12"</span>) +<span id="L6460" class="LineNr"> 6460 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/13"</span>) +<span id="L6461" class="LineNr"> 6461 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/14"</span>) +<span id="L6462" class="LineNr"> 6462 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6421'>test-convert-index-into-array-of-bytes-with-literal</a>/15"</span>) +<span id="L6463" class="LineNr"> 6463 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6464" class="LineNr"> 6464 </span> 89/<- %esp 5/r32/ebp +<span id="L6465" class="LineNr"> 6465 </span> 5d/pop-to-ebp +<span id="L6466" class="LineNr"> 6466 </span> c3/return +<span id="L6467" class="LineNr"> 6467 </span> +<span id="L6468" class="LineNr"> 6468 </span><span class="subxTest">test-convert-index-into-array-on-stack</span>: +<span id="L6469" class="LineNr"> 6469 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6470" class="LineNr"> 6470 </span> 55/push-ebp +<span id="L6471" class="LineNr"> 6471 </span> 89/<- %ebp 4/r32/esp +<span id="L6472" class="LineNr"> 6472 </span> <span class="subxComment"># setup</span> +<span id="L6473" class="LineNr"> 6473 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6474" class="LineNr"> 6474 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6475" class="LineNr"> 6475 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6476" class="LineNr"> 6476 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6477" class="LineNr"> 6477 </span> <span class="subxComment">#</span> +<span id="L6478" class="LineNr"> 6478 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6479" class="LineNr"> 6479 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) +<span id="L6480" class="LineNr"> 6480 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/eax: int <- copy 2\n"</span>) +<span id="L6481" class="LineNr"> 6481 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, idx\n"</span>) +<span id="L6482" class="LineNr"> 6482 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6483" class="LineNr"> 6483 </span> <span class="subxComment"># convert</span> +<span id="L6484" class="LineNr"> 6484 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6485" class="LineNr"> 6485 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6486" class="Folded"> 6486 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6492" class="LineNr"> 6492 </span> <span class="subxComment"># check output</span> +<span id="L6493" class="LineNr"> 6493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/0"</span>) +<span id="L6494" class="LineNr"> 6494 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/1"</span>) +<span id="L6495" class="LineNr"> 6495 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/2"</span>) +<span id="L6496" class="LineNr"> 6496 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/3"</span>) +<span id="L6497" class="LineNr"> 6497 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/4"</span>) +<span id="L6498" class="LineNr"> 6498 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/5"</span>) +<span id="L6499" class="LineNr"> 6499 </span> <span class="subxComment"># var arr</span> +<span id="L6500" class="LineNr"> 6500 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/6"</span>) +<span id="L6501" class="LineNr"> 6501 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/7"</span>) +<span id="L6502" class="LineNr"> 6502 </span> <span class="subxComment"># var idx</span> +<span id="L6503" class="LineNr"> 6503 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/8"</span>) +<span id="L6504" class="LineNr"> 6504 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 2/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/9"</span>) +<span id="L6505" class="LineNr"> 6505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %eax 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/10"</span>) +<span id="L6506" class="LineNr"> 6506 </span> <span class="subxComment"># var x is at (ebp-0x10) + idx<<2 + 4 = ebp + idx<<2 - 0xc</span> +<span id="L6507" class="LineNr"> 6507 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + eax<<0x00000002 + 0xfffffff4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/11"</span>) +<span id="L6508" class="LineNr"> 6508 </span> <span class="subxComment"># reclaim idx</span> +<span id="L6509" class="LineNr"> 6509 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/12"</span>) +<span id="L6510" class="LineNr"> 6510 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6511" class="LineNr"> 6511 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/13"</span>) +<span id="L6512" class="LineNr"> 6512 </span> <span class="subxComment">#</span> +<span id="L6513" class="LineNr"> 6513 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/14"</span>) +<span id="L6514" class="LineNr"> 6514 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/15"</span>) +<span id="L6515" class="LineNr"> 6515 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack/16"</span>) +<span id="L6516" class="LineNr"> 6516 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/17"</span>) +<span id="L6517" class="LineNr"> 6517 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/18"</span>) +<span id="L6518" class="LineNr"> 6518 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6468'>test-convert-index-into-array-on-stack</a>/19"</span>) +<span id="L6519" class="LineNr"> 6519 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6520" class="LineNr"> 6520 </span> 89/<- %esp 5/r32/ebp +<span id="L6521" class="LineNr"> 6521 </span> 5d/pop-to-ebp +<span id="L6522" class="LineNr"> 6522 </span> c3/return +<span id="L6523" class="LineNr"> 6523 </span> +<span id="L6524" class="LineNr"> 6524 </span><span class="subxTest">test-convert-index-into-array-on-stack-with-literal</span>: +<span id="L6525" class="LineNr"> 6525 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6526" class="LineNr"> 6526 </span> 55/push-ebp +<span id="L6527" class="LineNr"> 6527 </span> 89/<- %ebp 4/r32/esp +<span id="L6528" class="LineNr"> 6528 </span> <span class="subxComment"># setup</span> +<span id="L6529" class="LineNr"> 6529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6530" class="LineNr"> 6530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6531" class="LineNr"> 6531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6532" class="LineNr"> 6532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6533" class="LineNr"> 6533 </span> <span class="subxComment">#</span> +<span id="L6534" class="LineNr"> 6534 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6535" class="LineNr"> 6535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array int 3)\n"</span>) +<span id="L6536" class="LineNr"> 6536 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, 2\n"</span>) +<span id="L6537" class="LineNr"> 6537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6538" class="LineNr"> 6538 </span> <span class="subxComment"># convert</span> +<span id="L6539" class="LineNr"> 6539 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6540" class="LineNr"> 6540 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6541" class="Folded"> 6541 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6547" class="LineNr"> 6547 </span> <span class="subxComment"># check output</span> +<span id="L6548" class="LineNr"> 6548 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/0"</span>) +<span id="L6549" class="LineNr"> 6549 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/1"</span>) +<span id="L6550" class="LineNr"> 6550 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/2"</span>) +<span id="L6551" class="LineNr"> 6551 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/3"</span>) +<span id="L6552" class="LineNr"> 6552 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/4"</span>) +<span id="L6553" class="LineNr"> 6553 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/5"</span>) +<span id="L6554" class="LineNr"> 6554 </span> <span class="subxComment"># var arr</span> +<span id="L6555" class="LineNr"> 6555 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x0000000c)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/6"</span>) +<span id="L6556" class="LineNr"> 6556 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/7"</span>) +<span id="L6557" class="LineNr"> 6557 </span> <span class="subxComment"># var x</span> +<span id="L6558" class="LineNr"> 6558 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/8"</span>) +<span id="L6559" class="LineNr"> 6559 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000004 *(ebp+0xfffffff0) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/9"</span>) +<span id="L6560" class="LineNr"> 6560 </span> <span class="subxComment"># x is at (ebp-0x10) + 4 + 2*4 = ebp-4</span> +<span id="L6561" class="LineNr"> 6561 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xfffffffc) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/10"</span>) +<span id="L6562" class="LineNr"> 6562 </span> <span class="subxComment"># reclaim x</span> +<span id="L6563" class="LineNr"> 6563 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/11"</span>) +<span id="L6564" class="LineNr"> 6564 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6565" class="LineNr"> 6565 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000010/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/12"</span>) +<span id="L6566" class="LineNr"> 6566 </span> <span class="subxComment">#</span> +<span id="L6567" class="LineNr"> 6567 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/13"</span>) +<span id="L6568" class="LineNr"> 6568 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/14"</span>) +<span id="L6569" class="LineNr"> 6569 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-on-stack-with-literal/15"</span>) +<span id="L6570" class="LineNr"> 6570 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/16"</span>) +<span id="L6571" class="LineNr"> 6571 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/17"</span>) +<span id="L6572" class="LineNr"> 6572 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6524'>test-convert-index-into-array-on-stack-with-literal</a>/18"</span>) +<span id="L6573" class="LineNr"> 6573 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6574" class="LineNr"> 6574 </span> 89/<- %esp 5/r32/ebp +<span id="L6575" class="LineNr"> 6575 </span> 5d/pop-to-ebp +<span id="L6576" class="LineNr"> 6576 </span> c3/return +<span id="L6577" class="LineNr"> 6577 </span> +<span id="L6578" class="LineNr"> 6578 </span><span class="subxTest">test-convert-index-into-array-of-bytes-on-stack-with-literal</span>: +<span id="L6579" class="LineNr"> 6579 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6580" class="LineNr"> 6580 </span> 55/push-ebp +<span id="L6581" class="LineNr"> 6581 </span> 89/<- %ebp 4/r32/esp +<span id="L6582" class="LineNr"> 6582 </span> <span class="subxComment"># setup</span> +<span id="L6583" class="LineNr"> 6583 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6584" class="LineNr"> 6584 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6585" class="LineNr"> 6585 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6586" class="LineNr"> 6586 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6587" class="LineNr"> 6587 </span> <span class="subxComment">#</span> +<span id="L6588" class="LineNr"> 6588 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6589" class="LineNr"> 6589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr: (array byte 3)\n"</span>) +<span id="L6590" class="LineNr"> 6590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, 2\n"</span>) +<span id="L6591" class="LineNr"> 6591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6592" class="LineNr"> 6592 </span> <span class="subxComment"># convert</span> +<span id="L6593" class="LineNr"> 6593 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6594" class="LineNr"> 6594 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6595" class="Folded"> 6595 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6601" class="LineNr"> 6601 </span> <span class="subxComment"># check output</span> +<span id="L6602" class="LineNr"> 6602 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/0"</span>) +<span id="L6603" class="LineNr"> 6603 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/1"</span>) +<span id="L6604" class="LineNr"> 6604 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/2"</span>) +<span id="L6605" class="LineNr"> 6605 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/3"</span>) +<span id="L6606" class="LineNr"> 6606 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/4"</span>) +<span id="L6607" class="LineNr"> 6607 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/5"</span>) +<span id="L6608" class="LineNr"> 6608 </span> <span class="subxComment"># var arr</span> +<span id="L6609" class="LineNr"> 6609 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> 0x00000003)"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/6"</span>) +<span id="L6610" class="LineNr"> 6610 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0x00000003/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/7"</span>) +<span id="L6611" class="LineNr"> 6611 </span> <span class="subxComment"># var x</span> +<span id="L6612" class="LineNr"> 6612 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/8"</span>) +<span id="L6613" class="LineNr"> 6613 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> 2 0x00000001 *(ebp+0xfffffff9) \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/9"</span>) +<span id="L6614" class="LineNr"> 6614 </span> <span class="subxComment"># x is at (ebp-7) + 4 + 2 = ebp-1</span> +<span id="L6615" class="LineNr"> 6615 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp + 0xffffffff) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/10"</span>) +<span id="L6616" class="LineNr"> 6616 </span> <span class="subxComment"># reclaim x</span> +<span id="L6617" class="LineNr"> 6617 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/11"</span>) +<span id="L6618" class="LineNr"> 6618 </span> <span class="subxComment"># reclaim arr</span> +<span id="L6619" class="LineNr"> 6619 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000007/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/12"</span>) +<span id="L6620" class="LineNr"> 6620 </span> <span class="subxComment">#</span> +<span id="L6621" class="LineNr"> 6621 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/13"</span>) +<span id="L6622" class="LineNr"> 6622 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/14"</span>) +<span id="L6623" class="LineNr"> 6623 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-on-stack-with-literal/15"</span>) +<span id="L6624" class="LineNr"> 6624 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/16"</span>) +<span id="L6625" class="LineNr"> 6625 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/17"</span>) +<span id="L6626" class="LineNr"> 6626 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6578'>test-convert-index-into-array-of-bytes-on-stack-with-literal</a>/18"</span>) +<span id="L6627" class="LineNr"> 6627 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6628" class="LineNr"> 6628 </span> 89/<- %esp 5/r32/ebp +<span id="L6629" class="LineNr"> 6629 </span> 5d/pop-to-ebp +<span id="L6630" class="LineNr"> 6630 </span> c3/return +<span id="L6631" class="LineNr"> 6631 </span> +<span id="L6632" class="LineNr"> 6632 </span><span class="subxTest">test-convert-index-into-array-using-offset</span>: +<span id="L6633" class="LineNr"> 6633 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6634" class="LineNr"> 6634 </span> 55/push-ebp +<span id="L6635" class="LineNr"> 6635 </span> 89/<- %ebp 4/r32/esp +<span id="L6636" class="LineNr"> 6636 </span> <span class="subxComment"># setup</span> +<span id="L6637" class="LineNr"> 6637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6638" class="LineNr"> 6638 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6639" class="LineNr"> 6639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6640" class="LineNr"> 6640 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6641" class="LineNr"> 6641 </span> <span class="subxComment">#</span> +<span id="L6642" class="LineNr"> 6642 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6643" class="LineNr"> 6643 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) +<span id="L6644" class="LineNr"> 6644 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L6645" class="LineNr"> 6645 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) +<span id="L6646" class="LineNr"> 6646 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) +<span id="L6647" class="LineNr"> 6647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6648" class="LineNr"> 6648 </span> <span class="subxComment"># convert</span> +<span id="L6649" class="LineNr"> 6649 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6650" class="LineNr"> 6650 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6651" class="Folded"> 6651 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6657" class="LineNr"> 6657 </span> <span class="subxComment"># check output</span> +<span id="L6658" class="LineNr"> 6658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/0"</span>) +<span id="L6659" class="LineNr"> 6659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/1"</span>) +<span id="L6660" class="LineNr"> 6660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/2"</span>) +<span id="L6661" class="LineNr"> 6661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/3"</span>) +<span id="L6662" class="LineNr"> 6662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/4"</span>) +<span id="L6663" class="LineNr"> 6663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/5"</span>) +<span id="L6664" class="LineNr"> 6664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/6"</span>) +<span id="L6665" class="LineNr"> 6665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/7"</span>) +<span id="L6666" class="LineNr"> 6666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/8"</span>) +<span id="L6667" class="LineNr"> 6667 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/9"</span>) +<span id="L6668" class="LineNr"> 6668 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/10"</span>) +<span id="L6669" class="LineNr"> 6669 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/11"</span>) +<span id="L6670" class="LineNr"> 6670 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/12"</span>) +<span id="L6671" class="LineNr"> 6671 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/13"</span>) +<span id="L6672" class="LineNr"> 6672 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/14"</span>) +<span id="L6673" class="LineNr"> 6673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/15"</span>) +<span id="L6674" class="LineNr"> 6674 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/16"</span>) +<span id="L6675" class="LineNr"> 6675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset/17"</span>) +<span id="L6676" class="LineNr"> 6676 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/18"</span>) +<span id="L6677" class="LineNr"> 6677 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/19"</span>) +<span id="L6678" class="LineNr"> 6678 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6632'>test-convert-index-into-array-using-offset</a>/20"</span>) +<span id="L6679" class="LineNr"> 6679 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6680" class="LineNr"> 6680 </span> 89/<- %esp 5/r32/ebp +<span id="L6681" class="LineNr"> 6681 </span> 5d/pop-to-ebp +<span id="L6682" class="LineNr"> 6682 </span> c3/return +<span id="L6683" class="LineNr"> 6683 </span> +<span id="L6684" class="LineNr"> 6684 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset</span>: +<span id="L6685" class="LineNr"> 6685 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6686" class="LineNr"> 6686 </span> 55/push-ebp +<span id="L6687" class="LineNr"> 6687 </span> 89/<- %ebp 4/r32/esp +<span id="L6688" class="LineNr"> 6688 </span> <span class="subxComment"># setup</span> +<span id="L6689" class="LineNr"> 6689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6690" class="LineNr"> 6690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6691" class="LineNr"> 6691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6692" class="LineNr"> 6692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6693" class="LineNr"> 6693 </span> <span class="subxComment">#</span> +<span id="L6694" class="LineNr"> 6694 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6695" class="LineNr"> 6695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6696" class="LineNr"> 6696 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L6697" class="LineNr"> 6697 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) +<span id="L6698" class="LineNr"> 6698 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) +<span id="L6699" class="LineNr"> 6699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6700" class="LineNr"> 6700 </span> <span class="subxComment"># convert</span> +<span id="L6701" class="LineNr"> 6701 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6702" class="LineNr"> 6702 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6703" class="Folded"> 6703 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6709" class="LineNr"> 6709 </span> <span class="subxComment"># check output</span> +<span id="L6710" class="LineNr"> 6710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/0"</span>) +<span id="L6711" class="LineNr"> 6711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/1"</span>) +<span id="L6712" class="LineNr"> 6712 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/2"</span>) +<span id="L6713" class="LineNr"> 6713 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/3"</span>) +<span id="L6714" class="LineNr"> 6714 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/4"</span>) +<span id="L6715" class="LineNr"> 6715 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/5"</span>) +<span id="L6716" class="LineNr"> 6716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/6"</span>) +<span id="L6717" class="LineNr"> 6717 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/7"</span>) +<span id="L6718" class="LineNr"> 6718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/8"</span>) +<span id="L6719" class="LineNr"> 6719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/9"</span>) +<span id="L6720" class="LineNr"> 6720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply %ecx 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/10"</span>) +<span id="L6721" class="LineNr"> 6721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/11"</span>) +<span id="L6722" class="LineNr"> 6722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/12"</span>) +<span id="L6723" class="LineNr"> 6723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/13"</span>) +<span id="L6724" class="LineNr"> 6724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/14"</span>) +<span id="L6725" class="LineNr"> 6725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/15"</span>) +<span id="L6726" class="LineNr"> 6726 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/16"</span>) +<span id="L6727" class="LineNr"> 6727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset/17"</span>) +<span id="L6728" class="LineNr"> 6728 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/18"</span>) +<span id="L6729" class="LineNr"> 6729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/19"</span>) +<span id="L6730" class="LineNr"> 6730 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6684'>test-convert-index-into-array-of-bytes-using-offset</a>/20"</span>) +<span id="L6731" class="LineNr"> 6731 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6732" class="LineNr"> 6732 </span> 89/<- %esp 5/r32/ebp +<span id="L6733" class="LineNr"> 6733 </span> 5d/pop-to-ebp +<span id="L6734" class="LineNr"> 6734 </span> c3/return +<span id="L6735" class="LineNr"> 6735 </span> +<span id="L6736" class="LineNr"> 6736 </span><span class="subxTest">test-convert-index-into-array-using-offset-on-stack</span>: +<span id="L6737" class="LineNr"> 6737 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6738" class="LineNr"> 6738 </span> 55/push-ebp +<span id="L6739" class="LineNr"> 6739 </span> 89/<- %ebp 4/r32/esp +<span id="L6740" class="LineNr"> 6740 </span> <span class="subxComment"># setup</span> +<span id="L6741" class="LineNr"> 6741 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6742" class="LineNr"> 6742 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6743" class="LineNr"> 6743 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6744" class="LineNr"> 6744 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6745" class="LineNr"> 6745 </span> <span class="subxComment">#</span> +<span id="L6746" class="LineNr"> 6746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6747" class="LineNr"> 6747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array int) <- copy 0\n"</span>) +<span id="L6748" class="LineNr"> 6748 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) +<span id="L6749" class="LineNr"> 6749 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset int) <- compute-offset arr, idx\n"</span>) +<span id="L6750" class="LineNr"> 6750 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- index arr, off\n"</span>) +<span id="L6751" class="LineNr"> 6751 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6752" class="LineNr"> 6752 </span> <span class="subxComment"># convert</span> +<span id="L6753" class="LineNr"> 6753 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6754" class="LineNr"> 6754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6755" class="Folded"> 6755 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6761" class="LineNr"> 6761 </span> <span class="subxComment"># check output</span> +<span id="L6762" class="LineNr"> 6762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/0"</span>) +<span id="L6763" class="LineNr"> 6763 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/1"</span>) +<span id="L6764" class="LineNr"> 6764 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/2"</span>) +<span id="L6765" class="LineNr"> 6765 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/3"</span>) +<span id="L6766" class="LineNr"> 6766 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/4"</span>) +<span id="L6767" class="LineNr"> 6767 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/5"</span>) +<span id="L6768" class="LineNr"> 6768 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/6"</span>) +<span id="L6769" class="LineNr"> 6769 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/7"</span>) +<span id="L6770" class="LineNr"> 6770 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/8"</span>) +<span id="L6771" class="LineNr"> 6771 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/9"</span>) +<span id="L6772" class="LineNr"> 6772 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000004/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/10"</span>) +<span id="L6773" class="LineNr"> 6773 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/11"</span>) +<span id="L6774" class="LineNr"> 6774 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/12"</span>) +<span id="L6775" class="LineNr"> 6775 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/13"</span>) +<span id="L6776" class="LineNr"> 6776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/14"</span>) +<span id="L6777" class="LineNr"> 6777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/15"</span>) +<span id="L6778" class="LineNr"> 6778 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/16"</span>) +<span id="L6779" class="LineNr"> 6779 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/17"</span>) +<span id="L6780" class="LineNr"> 6780 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-using-offset-on-stack/18"</span>) +<span id="L6781" class="LineNr"> 6781 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/19"</span>) +<span id="L6782" class="LineNr"> 6782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/20"</span>) +<span id="L6783" class="LineNr"> 6783 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6736'>test-convert-index-into-array-using-offset-on-stack</a>/21"</span>) +<span id="L6784" class="LineNr"> 6784 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6785" class="LineNr"> 6785 </span> 89/<- %esp 5/r32/ebp +<span id="L6786" class="LineNr"> 6786 </span> 5d/pop-to-ebp +<span id="L6787" class="LineNr"> 6787 </span> c3/return +<span id="L6788" class="LineNr"> 6788 </span> +<span id="L6789" class="LineNr"> 6789 </span><span class="subxTest">test-convert-index-into-array-of-bytes-using-offset-on-stack</span>: +<span id="L6790" class="LineNr"> 6790 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6791" class="LineNr"> 6791 </span> 55/push-ebp +<span id="L6792" class="LineNr"> 6792 </span> 89/<- %ebp 4/r32/esp +<span id="L6793" class="LineNr"> 6793 </span> <span class="subxComment"># setup</span> +<span id="L6794" class="LineNr"> 6794 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6795" class="LineNr"> 6795 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6796" class="LineNr"> 6796 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6797" class="LineNr"> 6797 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6798" class="LineNr"> 6798 </span> <span class="subxComment">#</span> +<span id="L6799" class="LineNr"> 6799 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6800" class="LineNr"> 6800 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L6801" class="LineNr"> 6801 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx: int\n"</span>) +<span id="L6802" class="LineNr"> 6802 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var off/ecx: (offset byte) <- compute-offset arr, idx\n"</span>) +<span id="L6803" class="LineNr"> 6803 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- index arr, off\n"</span>) +<span id="L6804" class="LineNr"> 6804 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6805" class="LineNr"> 6805 </span> <span class="subxComment"># convert</span> +<span id="L6806" class="LineNr"> 6806 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6807" class="LineNr"> 6807 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6808" class="Folded"> 6808 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6814" class="LineNr"> 6814 </span> <span class="subxComment"># check output</span> +<span id="L6815" class="LineNr"> 6815 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/0"</span>) +<span id="L6816" class="LineNr"> 6816 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/1"</span>) +<span id="L6817" class="LineNr"> 6817 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/2"</span>) +<span id="L6818" class="LineNr"> 6818 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/3"</span>) +<span id="L6819" class="LineNr"> 6819 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/4"</span>) +<span id="L6820" class="LineNr"> 6820 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/5"</span>) +<span id="L6821" class="LineNr"> 6821 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/6"</span>) +<span id="L6822" class="LineNr"> 6822 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/7"</span>) +<span id="L6823" class="LineNr"> 6823 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/8"</span>) +<span id="L6824" class="LineNr"> 6824 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/9"</span>) +<span id="L6825" class="LineNr"> 6825 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 69/multiply *(ebp+0xfffffff8) 0x00000001/imm32 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/10"</span>) +<span id="L6826" class="LineNr"> 6826 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 1 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/11"</span>) +<span id="L6827" class="LineNr"> 6827 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/12"</span>) +<span id="L6828" class="LineNr"> 6828 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/13"</span>) +<span id="L6829" class="LineNr"> 6829 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/14"</span>) +<span id="L6830" class="LineNr"> 6830 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/15"</span>) +<span id="L6831" class="LineNr"> 6831 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/16"</span>) +<span id="L6832" class="LineNr"> 6832 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/17"</span>) +<span id="L6833" class="LineNr"> 6833 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-index-into-array-of-bytes-using-offset-on-stack/18"</span>) +<span id="L6834" class="LineNr"> 6834 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/19"</span>) +<span id="L6835" class="LineNr"> 6835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/20"</span>) +<span id="L6836" class="LineNr"> 6836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6789'>test-convert-index-into-array-of-bytes-using-offset-on-stack</a>/21"</span>) +<span id="L6837" class="LineNr"> 6837 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6838" class="LineNr"> 6838 </span> 89/<- %esp 5/r32/ebp +<span id="L6839" class="LineNr"> 6839 </span> 5d/pop-to-ebp +<span id="L6840" class="LineNr"> 6840 </span> c3/return +<span id="L6841" class="LineNr"> 6841 </span> +<span id="L6842" class="LineNr"> 6842 </span><span class="subxTest">test-convert-function-and-type-definition</span>: +<span id="L6843" class="LineNr"> 6843 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6844" class="LineNr"> 6844 </span> 55/push-ebp +<span id="L6845" class="LineNr"> 6845 </span> 89/<- %ebp 4/r32/esp +<span id="L6846" class="LineNr"> 6846 </span> <span class="subxComment"># setup</span> +<span id="L6847" class="LineNr"> 6847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6848" class="LineNr"> 6848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6849" class="LineNr"> 6849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6850" class="LineNr"> 6850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6851" class="LineNr"> 6851 </span> <span class="subxComment">#</span> +<span id="L6852" class="LineNr"> 6852 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: (addr t) {\n"</span>) +<span id="L6853" class="LineNr"> 6853 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var _a/eax: (addr t) <- copy a\n"</span>) +<span id="L6854" class="LineNr"> 6854 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, x\n"</span>) +<span id="L6855" class="LineNr"> 6855 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> _a, y\n"</span>) +<span id="L6856" class="LineNr"> 6856 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6857" class="LineNr"> 6857 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6858" class="LineNr"> 6858 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L6859" class="LineNr"> 6859 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L6860" class="LineNr"> 6860 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6861" class="LineNr"> 6861 </span> <span class="subxComment"># convert</span> +<span id="L6862" class="LineNr"> 6862 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L6863" class="LineNr"> 6863 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6864" class="Folded"> 6864 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6870" class="LineNr"> 6870 </span> <span class="subxComment"># check output</span> +<span id="L6871" class="LineNr"> 6871 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/0"</span>) +<span id="L6872" class="LineNr"> 6872 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/1"</span>) +<span id="L6873" class="LineNr"> 6873 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/2"</span>) +<span id="L6874" class="LineNr"> 6874 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/3"</span>) +<span id="L6875" class="LineNr"> 6875 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/4"</span>) +<span id="L6876" class="LineNr"> 6876 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/5"</span>) +<span id="L6877" class="LineNr"> 6877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/6"</span>) +<span id="L6878" class="LineNr"> 6878 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/7"</span>) +<span id="L6879" class="LineNr"> 6879 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/8"</span>) +<span id="L6880" class="LineNr"> 6880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000000) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/9"</span>) +<span id="L6881" class="LineNr"> 6881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + 0x00000004) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/11"</span>) +<span id="L6882" class="LineNr"> 6882 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/13"</span>) +<span id="L6883" class="LineNr"> 6883 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/14"</span>) +<span id="L6884" class="LineNr"> 6884 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/15"</span>) +<span id="L6885" class="LineNr"> 6885 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/16"</span>) +<span id="L6886" class="LineNr"> 6886 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-and-type-definition/17"</span>) +<span id="L6887" class="LineNr"> 6887 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/18"</span>) +<span id="L6888" class="LineNr"> 6888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/19"</span>) +<span id="L6889" class="LineNr"> 6889 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6842'>test-convert-function-and-type-definition</a>/20"</span>) +<span id="L6890" class="LineNr"> 6890 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6891" class="LineNr"> 6891 </span> 89/<- %esp 5/r32/ebp +<span id="L6892" class="LineNr"> 6892 </span> 5d/pop-to-ebp +<span id="L6893" class="LineNr"> 6893 </span> c3/return +<span id="L6894" class="LineNr"> 6894 </span> +<span id="L6895" class="LineNr"> 6895 </span><span class="subxTest">test-type-definition-with-array</span>: +<span id="L6896" class="LineNr"> 6896 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6897" class="LineNr"> 6897 </span> 55/push-ebp +<span id="L6898" class="LineNr"> 6898 </span> 89/<- %ebp 4/r32/esp +<span id="L6899" class="LineNr"> 6899 </span> <span class="subxComment"># setup</span> +<span id="L6900" class="LineNr"> 6900 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6901" class="LineNr"> 6901 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6902" class="LineNr"> 6902 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6903" class="LineNr"> 6903 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6904" class="LineNr"> 6904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L6905" class="LineNr"> 6905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6906" class="LineNr"> 6906 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6907" class="LineNr"> 6907 </span> 68/push 0/imm32 +<span id="L6908" class="LineNr"> 6908 </span> 68/push 0/imm32 +<span id="L6909" class="LineNr"> 6909 </span> 89/<- %edx 4/r32/esp +<span id="L6910" class="LineNr"> 6910 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6911" class="LineNr"> 6911 </span> <span class="subxComment">#</span> +<span id="L6912" class="LineNr"> 6912 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6913" class="LineNr"> 6913 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (array int 3)\n"</span>) +<span id="L6914" class="LineNr"> 6914 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6915" class="LineNr"> 6915 </span> <span class="subxComment"># convert</span> +<span id="L6916" class="LineNr"> 6916 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L6917" class="LineNr"> 6917 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6918" class="LineNr"> 6918 </span> <span class="subxComment"># restore ed</span> +<span id="L6919" class="LineNr"> 6919 </span> 89/<- %edx 4/r32/esp +<span id="L6920" class="LineNr"> 6920 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6921" class="LineNr"> 6921 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L6922" class="Folded"> 6922 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6928" class="LineNr"> 6928 </span> <span class="subxComment"># check output</span> +<span id="L6929" class="LineNr"> 6929 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6895'>test-type-definition-with-array</a>: output should be empty"</span>) +<span id="L6930" class="LineNr"> 6930 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"type t: 'array' elements not allowed for now"</span> <span class="Constant">"F - <a href='mu.subx.html#L6895'>test-type-definition-with-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L6931" class="LineNr"> 6931 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6932" class="LineNr"> 6932 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6895'>test-type-definition-with-array</a>: exit status"</span>) +<span id="L6933" class="LineNr"> 6933 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6934" class="LineNr"> 6934 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6935" class="LineNr"> 6935 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6936" class="LineNr"> 6936 </span> 5d/pop-to-ebp +<span id="L6937" class="LineNr"> 6937 </span> c3/return +<span id="L6938" class="LineNr"> 6938 </span> +<span id="L6939" class="LineNr"> 6939 </span><span class="subxTest">test-type-definition-with-addr</span>: +<span id="L6940" class="LineNr"> 6940 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6941" class="LineNr"> 6941 </span> 55/push-ebp +<span id="L6942" class="LineNr"> 6942 </span> 89/<- %ebp 4/r32/esp +<span id="L6943" class="LineNr"> 6943 </span> <span class="subxComment"># setup</span> +<span id="L6944" class="LineNr"> 6944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6945" class="LineNr"> 6945 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6946" class="LineNr"> 6946 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6947" class="LineNr"> 6947 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6948" class="LineNr"> 6948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L6949" class="LineNr"> 6949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L6950" class="LineNr"> 6950 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L6951" class="LineNr"> 6951 </span> 68/push 0/imm32 +<span id="L6952" class="LineNr"> 6952 </span> 68/push 0/imm32 +<span id="L6953" class="LineNr"> 6953 </span> 89/<- %edx 4/r32/esp +<span id="L6954" class="LineNr"> 6954 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L6955" class="LineNr"> 6955 </span> <span class="subxComment">#</span> +<span id="L6956" class="LineNr"> 6956 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6957" class="LineNr"> 6957 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" a: (addr int)\n"</span>) +<span id="L6958" class="LineNr"> 6958 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6959" class="LineNr"> 6959 </span> <span class="subxComment"># convert</span> +<span id="L6960" class="LineNr"> 6960 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L6961" class="LineNr"> 6961 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L6962" class="LineNr"> 6962 </span> <span class="subxComment"># restore ed</span> +<span id="L6963" class="LineNr"> 6963 </span> 89/<- %edx 4/r32/esp +<span id="L6964" class="LineNr"> 6964 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L6965" class="LineNr"> 6965 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L6966" class="Folded"> 6966 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6972" class="LineNr"> 6972 </span> <span class="subxComment"># check output</span> +<span id="L6973" class="LineNr"> 6973 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L6939'>test-type-definition-with-addr</a>: output should be empty"</span>) +<span id="L6974" class="LineNr"> 6974 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"type t: 'addr' elements not allowed"</span> <span class="Constant">"F - <a href='mu.subx.html#L6939'>test-type-definition-with-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L6975" class="LineNr"> 6975 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L6976" class="LineNr"> 6976 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L6939'>test-type-definition-with-addr</a>: exit status"</span>) +<span id="L6977" class="LineNr"> 6977 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L6978" class="LineNr"> 6978 </span> 81 0/subop/add %esp 8/imm32 +<span id="L6979" class="LineNr"> 6979 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6980" class="LineNr"> 6980 </span> 5d/pop-to-ebp +<span id="L6981" class="LineNr"> 6981 </span> c3/return +<span id="L6982" class="LineNr"> 6982 </span> +<span id="L6983" class="LineNr"> 6983 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type</span>: +<span id="L6984" class="LineNr"> 6984 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6985" class="LineNr"> 6985 </span> 55/push-ebp +<span id="L6986" class="LineNr"> 6986 </span> 89/<- %ebp 4/r32/esp +<span id="L6987" class="LineNr"> 6987 </span> <span class="subxComment"># setup</span> +<span id="L6988" class="LineNr"> 6988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L6989" class="LineNr"> 6989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L6990" class="LineNr"> 6990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L6991" class="LineNr"> 6991 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L6992" class="LineNr"> 6992 </span> <span class="subxComment">#</span> +<span id="L6993" class="LineNr"> 6993 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L6994" class="LineNr"> 6994 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L6995" class="LineNr"> 6995 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L6996" class="LineNr"> 6996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L6997" class="LineNr"> 6997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L6998" class="LineNr"> 6998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L6999" class="LineNr"> 6999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7000" class="LineNr"> 7000 </span> <span class="subxComment"># convert</span> +<span id="L7001" class="LineNr"> 7001 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7002" class="LineNr"> 7002 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7003" class="Folded"> 7003 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7009" class="LineNr"> 7009 </span> <span class="subxComment"># check output</span> +<span id="L7010" class="LineNr"> 7010 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/0"</span>) +<span id="L7011" class="LineNr"> 7011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/1"</span>) +<span id="L7012" class="LineNr"> 7012 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/2"</span>) +<span id="L7013" class="LineNr"> 7013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/3"</span>) +<span id="L7014" class="LineNr"> 7014 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/4"</span>) +<span id="L7015" class="LineNr"> 7015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/5"</span>) +<span id="L7016" class="LineNr"> 7016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/6"</span>) +<span id="L7017" class="LineNr"> 7017 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/7"</span>) +<span id="L7018" class="LineNr"> 7018 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/8"</span>) +<span id="L7019" class="LineNr"> 7019 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/9"</span>) +<span id="L7020" class="LineNr"> 7020 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/10"</span>) +<span id="L7021" class="LineNr"> 7021 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type/11"</span>) +<span id="L7022" class="LineNr"> 7022 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/12"</span>) +<span id="L7023" class="LineNr"> 7023 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/13"</span>) +<span id="L7024" class="LineNr"> 7024 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L6983'>test-convert-function-with-local-var-with-user-defined-type</a>/14"</span>) +<span id="L7025" class="LineNr"> 7025 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7026" class="LineNr"> 7026 </span> 89/<- %esp 5/r32/ebp +<span id="L7027" class="LineNr"> 7027 </span> 5d/pop-to-ebp +<span id="L7028" class="LineNr"> 7028 </span> c3/return +<span id="L7029" class="LineNr"> 7029 </span> +<span id="L7030" class="LineNr"> 7030 </span><span class="subxTest">test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</span>: +<span id="L7031" class="LineNr"> 7031 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7032" class="LineNr"> 7032 </span> 55/push-ebp +<span id="L7033" class="LineNr"> 7033 </span> 89/<- %ebp 4/r32/esp +<span id="L7034" class="LineNr"> 7034 </span> <span class="subxComment"># setup</span> +<span id="L7035" class="LineNr"> 7035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7036" class="LineNr"> 7036 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7037" class="LineNr"> 7037 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7038" class="LineNr"> 7038 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7039" class="LineNr"> 7039 </span> <span class="subxComment">#</span> +<span id="L7040" class="LineNr"> 7040 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7041" class="LineNr"> 7041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7042" class="LineNr"> 7042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7043" class="LineNr"> 7043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7044" class="LineNr"> 7044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: s\n"</span>) +<span id="L7045" class="LineNr"> 7045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7046" class="LineNr"> 7046 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type s {\n"</span>) +<span id="L7047" class="LineNr"> 7047 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L7048" class="LineNr"> 7048 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7049" class="LineNr"> 7049 </span> <span class="subxComment"># convert</span> +<span id="L7050" class="LineNr"> 7050 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7051" class="LineNr"> 7051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7052" class="Folded"> 7052 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7058" class="LineNr"> 7058 </span> <span class="subxComment"># check output</span> +<span id="L7059" class="LineNr"> 7059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/0"</span>) +<span id="L7060" class="LineNr"> 7060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/1"</span>) +<span id="L7061" class="LineNr"> 7061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/2"</span>) +<span id="L7062" class="LineNr"> 7062 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/3"</span>) +<span id="L7063" class="LineNr"> 7063 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/4"</span>) +<span id="L7064" class="LineNr"> 7064 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/5"</span>) +<span id="L7065" class="LineNr"> 7065 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/7"</span>) +<span id="L7066" class="LineNr"> 7066 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/8"</span>) +<span id="L7067" class="LineNr"> 7067 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/9"</span>) +<span id="L7068" class="LineNr"> 7068 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/10"</span>) +<span id="L7069" class="LineNr"> 7069 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type/11"</span>) +<span id="L7070" class="LineNr"> 7070 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/12"</span>) +<span id="L7071" class="LineNr"> 7071 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/13"</span>) +<span id="L7072" class="LineNr"> 7072 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7030'>test-convert-function-with-local-var-with-user-defined-type-containing-user-defined-type</a>/14"</span>) +<span id="L7073" class="LineNr"> 7073 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7074" class="LineNr"> 7074 </span> 89/<- %esp 5/r32/ebp +<span id="L7075" class="LineNr"> 7075 </span> 5d/pop-to-ebp +<span id="L7076" class="LineNr"> 7076 </span> c3/return +<span id="L7077" class="LineNr"> 7077 </span> +<span id="L7078" class="LineNr"> 7078 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type</span>: +<span id="L7079" class="LineNr"> 7079 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7080" class="LineNr"> 7080 </span> 55/push-ebp +<span id="L7081" class="LineNr"> 7081 </span> 89/<- %ebp 4/r32/esp +<span id="L7082" class="LineNr"> 7082 </span> <span class="subxComment"># setup</span> +<span id="L7083" class="LineNr"> 7083 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7084" class="LineNr"> 7084 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7085" class="LineNr"> 7085 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7086" class="LineNr"> 7086 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7087" class="LineNr"> 7087 </span> <span class="subxComment">#</span> +<span id="L7088" class="LineNr"> 7088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L7089" class="LineNr"> 7089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7090" class="LineNr"> 7090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo a\n"</span>) +<span id="L7091" class="LineNr"> 7091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7092" class="LineNr"> 7092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) +<span id="L7093" class="LineNr"> 7093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7094" class="LineNr"> 7094 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7095" class="LineNr"> 7095 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7096" class="LineNr"> 7096 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7097" class="LineNr"> 7097 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7098" class="LineNr"> 7098 </span> <span class="subxComment"># convert</span> +<span id="L7099" class="LineNr"> 7099 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7100" class="LineNr"> 7100 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7101" class="Folded"> 7101 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7107" class="LineNr"> 7107 </span> <span class="subxComment"># check output</span> +<span id="L7108" class="LineNr"> 7108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) +<span id="L7109" class="LineNr"> 7109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) +<span id="L7110" class="LineNr"> 7110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) +<span id="L7111" class="LineNr"> 7111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) +<span id="L7112" class="LineNr"> 7112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) +<span id="L7113" class="LineNr"> 7113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L7114" class="LineNr"> 7114 </span> <span class="subxComment"># var a: t</span> +<span id="L7115" class="LineNr"> 7115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) +<span id="L7116" class="LineNr"> 7116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L7117" class="LineNr"> 7117 </span> <span class="subxComment"># foo a</span> +<span id="L7118" class="LineNr"> 7118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(ebp+0xfffffff8) *(ebp+0xfffffffc))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L7119" class="LineNr"> 7119 </span> <span class="subxComment">#</span> +<span id="L7120" class="LineNr"> 7120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) +<span id="L7121" class="LineNr"> 7121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) +<span id="L7122" class="LineNr"> 7122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) +<span id="L7123" class="LineNr"> 7123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) +<span id="L7124" class="LineNr"> 7124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) +<span id="L7125" class="LineNr"> 7125 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) +<span id="L7126" class="LineNr"> 7126 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) +<span id="L7127" class="LineNr"> 7127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) +<span id="L7128" class="LineNr"> 7128 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) +<span id="L7129" class="LineNr"> 7129 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) +<span id="L7130" class="LineNr"> 7130 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) +<span id="L7131" class="LineNr"> 7131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) +<span id="L7132" class="LineNr"> 7132 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) +<span id="L7133" class="LineNr"> 7133 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) +<span id="L7134" class="LineNr"> 7134 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L7135" class="LineNr"> 7135 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7136" class="LineNr"> 7136 </span> 89/<- %esp 5/r32/ebp +<span id="L7137" class="LineNr"> 7137 </span> 5d/pop-to-ebp +<span id="L7138" class="LineNr"> 7138 </span> c3/return +<span id="L7139" class="LineNr"> 7139 </span> +<span id="L7140" class="LineNr"> 7140 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-register-indirect</span>: +<span id="L7141" class="LineNr"> 7141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7142" class="LineNr"> 7142 </span> 55/push-ebp +<span id="L7143" class="LineNr"> 7143 </span> 89/<- %ebp 4/r32/esp +<span id="L7144" class="LineNr"> 7144 </span> <span class="subxComment"># setup</span> +<span id="L7145" class="LineNr"> 7145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7146" class="LineNr"> 7146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7147" class="LineNr"> 7147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7148" class="LineNr"> 7148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7149" class="LineNr"> 7149 </span> <span class="subxComment">#</span> +<span id="L7150" class="LineNr"> 7150 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L7151" class="LineNr"> 7151 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr t) <- copy 0\n"</span>) +<span id="L7152" class="LineNr"> 7152 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo *a\n"</span>) +<span id="L7153" class="LineNr"> 7153 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7154" class="LineNr"> 7154 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: t {\n"</span>) +<span id="L7155" class="LineNr"> 7155 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7156" class="LineNr"> 7156 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7157" class="LineNr"> 7157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7158" class="LineNr"> 7158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7159" class="LineNr"> 7159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7160" class="LineNr"> 7160 </span> <span class="subxComment"># convert</span> +<span id="L7161" class="LineNr"> 7161 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7162" class="LineNr"> 7162 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7163" class="Folded"> 7163 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7169" class="LineNr"> 7169 </span> <span class="subxComment"># check output</span> +<span id="L7170" class="LineNr"> 7170 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/0"</span>) +<span id="L7171" class="LineNr"> 7171 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/1"</span>) +<span id="L7172" class="LineNr"> 7172 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/2"</span>) +<span id="L7173" class="LineNr"> 7173 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/3"</span>) +<span id="L7174" class="LineNr"> 7174 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/4"</span>) +<span id="L7175" class="LineNr"> 7175 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/5"</span>) +<span id="L7176" class="LineNr"> 7176 </span> <span class="subxComment"># var a</span> +<span id="L7177" class="LineNr"> 7177 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/6"</span>) +<span id="L7178" class="LineNr"> 7178 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/7"</span>) +<span id="L7179" class="LineNr"> 7179 </span> <span class="subxComment"># foo a</span> +<span id="L7180" class="LineNr"> 7180 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo *(eax+0x00000000) *(eax+0x00000004))"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/8"</span>) +<span id="L7181" class="LineNr"> 7181 </span> <span class="subxComment">#</span> +<span id="L7182" class="LineNr"> 7182 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/9"</span>) +<span id="L7183" class="LineNr"> 7183 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/10"</span>) +<span id="L7184" class="LineNr"> 7184 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/11"</span>) +<span id="L7185" class="LineNr"> 7185 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/12"</span>) +<span id="L7186" class="LineNr"> 7186 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/13"</span>) +<span id="L7187" class="LineNr"> 7187 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/14"</span>) +<span id="L7188" class="LineNr"> 7188 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/15"</span>) +<span id="L7189" class="LineNr"> 7189 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/16"</span>) +<span id="L7190" class="LineNr"> 7190 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/17"</span>) +<span id="L7191" class="LineNr"> 7191 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/18"</span>) +<span id="L7192" class="LineNr"> 7192 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/19"</span>) +<span id="L7193" class="LineNr"> 7193 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type/20"</span>) +<span id="L7194" class="LineNr"> 7194 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/21"</span>) +<span id="L7195" class="LineNr"> 7195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/22"</span>) +<span id="L7196" class="LineNr"> 7196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7078'>test-convert-function-call-with-arg-of-user-defined-type</a>/23"</span>) +<span id="L7197" class="LineNr"> 7197 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7198" class="LineNr"> 7198 </span> 89/<- %esp 5/r32/ebp +<span id="L7199" class="LineNr"> 7199 </span> 5d/pop-to-ebp +<span id="L7200" class="LineNr"> 7200 </span> c3/return +<span id="L7201" class="LineNr"> 7201 </span> +<span id="L7202" class="LineNr"> 7202 </span><span class="subxComment"># we don't have special support for call-by-reference; just explicitly create</span> +<span id="L7203" class="LineNr"> 7203 </span><span class="subxComment"># a new variable with the address of the arg</span> +<span id="L7204" class="LineNr"> 7204 </span><span class="subxTest">test-convert-function-call-with-arg-of-user-defined-type-by-reference</span>: +<span id="L7205" class="LineNr"> 7205 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7206" class="LineNr"> 7206 </span> 55/push-ebp +<span id="L7207" class="LineNr"> 7207 </span> 89/<- %ebp 4/r32/esp +<span id="L7208" class="LineNr"> 7208 </span> <span class="subxComment"># setup</span> +<span id="L7209" class="LineNr"> 7209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7210" class="LineNr"> 7210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7211" class="LineNr"> 7211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7212" class="LineNr"> 7212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7213" class="LineNr"> 7213 </span> <span class="subxComment">#</span> +<span id="L7214" class="LineNr"> 7214 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn f {\n"</span>) +<span id="L7215" class="LineNr"> 7215 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7216" class="LineNr"> 7216 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr t) <- address a\n"</span>) +<span id="L7217" class="LineNr"> 7217 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" foo b\n"</span>) +<span id="L7218" class="LineNr"> 7218 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7219" class="LineNr"> 7219 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo x: (addr t) {\n"</span>) +<span id="L7220" class="LineNr"> 7220 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: (addr t) <- copy x\n"</span>) +<span id="L7221" class="LineNr"> 7221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7222" class="LineNr"> 7222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7223" class="LineNr"> 7223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7224" class="LineNr"> 7224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7225" class="LineNr"> 7225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7226" class="LineNr"> 7226 </span> <span class="subxComment"># convert</span> +<span id="L7227" class="LineNr"> 7227 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7228" class="LineNr"> 7228 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7229" class="Folded"> 7229 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7235" class="LineNr"> 7235 </span> <span class="subxComment"># check output</span> +<span id="L7236" class="LineNr"> 7236 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"f:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/0"</span>) +<span id="L7237" class="LineNr"> 7237 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/1"</span>) +<span id="L7238" class="LineNr"> 7238 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/2"</span>) +<span id="L7239" class="LineNr"> 7239 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/3"</span>) +<span id="L7240" class="LineNr"> 7240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/4"</span>) +<span id="L7241" class="LineNr"> 7241 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/5"</span>) +<span id="L7242" class="LineNr"> 7242 </span> <span class="subxComment"># var a: t</span> +<span id="L7243" class="LineNr"> 7243 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/6"</span>) +<span id="L7244" class="LineNr"> 7244 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/7"</span>) +<span id="L7245" class="LineNr"> 7245 </span> <span class="subxComment"># var b/eax: (addr t)</span> +<span id="L7246" class="LineNr"> 7246 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/8"</span>) +<span id="L7247" class="LineNr"> 7247 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/9"</span>) +<span id="L7248" class="LineNr"> 7248 </span> <span class="subxComment"># foo a</span> +<span id="L7249" class="LineNr"> 7249 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (foo %eax)"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/10"</span>) +<span id="L7250" class="LineNr"> 7250 </span> <span class="subxComment">#</span> +<span id="L7251" class="LineNr"> 7251 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/11"</span>) +<span id="L7252" class="LineNr"> 7252 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/12"</span>) +<span id="L7253" class="LineNr"> 7253 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/13"</span>) +<span id="L7254" class="LineNr"> 7254 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$f:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/14"</span>) +<span id="L7255" class="LineNr"> 7255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/15"</span>) +<span id="L7256" class="LineNr"> 7256 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/16"</span>) +<span id="L7257" class="LineNr"> 7257 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/17"</span>) +<span id="L7258" class="LineNr"> 7258 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/18"</span>) +<span id="L7259" class="LineNr"> 7259 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/19"</span>) +<span id="L7260" class="LineNr"> 7260 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/20"</span>) +<span id="L7261" class="LineNr"> 7261 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/21"</span>) +<span id="L7262" class="LineNr"> 7262 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/22"</span>) +<span id="L7263" class="LineNr"> 7263 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/23"</span>) +<span id="L7264" class="LineNr"> 7264 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/24"</span>) +<span id="L7265" class="LineNr"> 7265 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/25"</span>) +<span id="L7266" class="LineNr"> 7266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/26"</span>) +<span id="L7267" class="LineNr"> 7267 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/27"</span>) +<span id="L7268" class="LineNr"> 7268 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/28"</span>) +<span id="L7269" class="LineNr"> 7269 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/29"</span>) +<span id="L7270" class="LineNr"> 7270 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-call-with-arg-of-user-defined-type-by-reference/30"</span>) +<span id="L7271" class="LineNr"> 7271 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/31"</span>) +<span id="L7272" class="LineNr"> 7272 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/32"</span>) +<span id="L7273" class="LineNr"> 7273 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7204'>test-convert-function-call-with-arg-of-user-defined-type-by-reference</a>/33"</span>) +<span id="L7274" class="LineNr"> 7274 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7275" class="LineNr"> 7275 </span> 89/<- %esp 5/r32/ebp +<span id="L7276" class="LineNr"> 7276 </span> 5d/pop-to-ebp +<span id="L7277" class="LineNr"> 7277 </span> c3/return +<span id="L7278" class="LineNr"> 7278 </span> +<span id="L7279" class="LineNr"> 7279 </span><span class="subxTest">test-convert-get-on-local-variable</span>: +<span id="L7280" class="LineNr"> 7280 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7281" class="LineNr"> 7281 </span> 55/push-ebp +<span id="L7282" class="LineNr"> 7282 </span> 89/<- %ebp 4/r32/esp +<span id="L7283" class="LineNr"> 7283 </span> <span class="subxComment"># setup</span> +<span id="L7284" class="LineNr"> 7284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7285" class="LineNr"> 7285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7286" class="LineNr"> 7286 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7287" class="LineNr"> 7287 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7288" class="LineNr"> 7288 </span> <span class="subxComment">#</span> +<span id="L7289" class="LineNr"> 7289 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7290" class="LineNr"> 7290 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L7291" class="LineNr"> 7291 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L7292" class="LineNr"> 7292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7293" class="LineNr"> 7293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7294" class="LineNr"> 7294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7295" class="LineNr"> 7295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7296" class="LineNr"> 7296 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7297" class="LineNr"> 7297 </span> <span class="subxComment"># convert</span> +<span id="L7298" class="LineNr"> 7298 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7299" class="LineNr"> 7299 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7300" class="Folded"> 7300 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7306" class="LineNr"> 7306 </span> <span class="subxComment"># check output</span> +<span id="L7307" class="LineNr"> 7307 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/0"</span>) +<span id="L7308" class="LineNr"> 7308 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/1"</span>) +<span id="L7309" class="LineNr"> 7309 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/2"</span>) +<span id="L7310" class="LineNr"> 7310 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/3"</span>) +<span id="L7311" class="LineNr"> 7311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/4"</span>) +<span id="L7312" class="LineNr"> 7312 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/5"</span>) +<span id="L7313" class="LineNr"> 7313 </span> <span class="subxComment"># var a</span> +<span id="L7314" class="LineNr"> 7314 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/6"</span>) +<span id="L7315" class="LineNr"> 7315 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/7"</span>) +<span id="L7316" class="LineNr"> 7316 </span> <span class="subxComment"># var c</span> +<span id="L7317" class="LineNr"> 7317 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/8"</span>) +<span id="L7318" class="LineNr"> 7318 </span> <span class="subxComment"># get</span> +<span id="L7319" class="LineNr"> 7319 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0xfffffffc) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/9"</span>) +<span id="L7320" class="LineNr"> 7320 </span> <span class="subxComment"># reclaim c</span> +<span id="L7321" class="LineNr"> 7321 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/10"</span>) +<span id="L7322" class="LineNr"> 7322 </span> <span class="subxComment"># reclaim a</span> +<span id="L7323" class="LineNr"> 7323 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000008/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/11"</span>) +<span id="L7324" class="LineNr"> 7324 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/12"</span>) +<span id="L7325" class="LineNr"> 7325 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/13"</span>) +<span id="L7326" class="LineNr"> 7326 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-local-variable/14"</span>) +<span id="L7327" class="LineNr"> 7327 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/15"</span>) +<span id="L7328" class="LineNr"> 7328 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/16"</span>) +<span id="L7329" class="LineNr"> 7329 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7279'>test-convert-get-on-local-variable</a>/17"</span>) +<span id="L7330" class="LineNr"> 7330 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7331" class="LineNr"> 7331 </span> 89/<- %esp 5/r32/ebp +<span id="L7332" class="LineNr"> 7332 </span> 5d/pop-to-ebp +<span id="L7333" class="LineNr"> 7333 </span> c3/return +<span id="L7334" class="LineNr"> 7334 </span> +<span id="L7335" class="LineNr"> 7335 </span><span class="subxTest">test-convert-get-on-function-argument</span>: +<span id="L7336" class="LineNr"> 7336 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7337" class="LineNr"> 7337 </span> 55/push-ebp +<span id="L7338" class="LineNr"> 7338 </span> 89/<- %ebp 4/r32/esp +<span id="L7339" class="LineNr"> 7339 </span> <span class="subxComment"># setup</span> +<span id="L7340" class="LineNr"> 7340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7341" class="LineNr"> 7341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7342" class="LineNr"> 7342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7343" class="LineNr"> 7343 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7344" class="LineNr"> 7344 </span> <span class="subxComment">#</span> +<span id="L7345" class="LineNr"> 7345 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) +<span id="L7346" class="LineNr"> 7346 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L7347" class="LineNr"> 7347 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7348" class="LineNr"> 7348 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7349" class="LineNr"> 7349 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7350" class="LineNr"> 7350 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7351" class="LineNr"> 7351 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7352" class="LineNr"> 7352 </span> <span class="subxComment"># convert</span> +<span id="L7353" class="LineNr"> 7353 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7354" class="LineNr"> 7354 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7355" class="Folded"> 7355 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7361" class="LineNr"> 7361 </span> <span class="subxComment"># check output</span> +<span id="L7362" class="LineNr"> 7362 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/0"</span>) +<span id="L7363" class="LineNr"> 7363 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/1"</span>) +<span id="L7364" class="LineNr"> 7364 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/2"</span>) +<span id="L7365" class="LineNr"> 7365 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/3"</span>) +<span id="L7366" class="LineNr"> 7366 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/4"</span>) +<span id="L7367" class="LineNr"> 7367 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/5"</span>) +<span id="L7368" class="LineNr"> 7368 </span> <span class="subxComment"># var c</span> +<span id="L7369" class="LineNr"> 7369 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/6"</span>) +<span id="L7370" class="LineNr"> 7370 </span> <span class="subxComment"># get</span> +<span id="L7371" class="LineNr"> 7371 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/7"</span>) +<span id="L7372" class="LineNr"> 7372 </span> <span class="subxComment"># reclaim c</span> +<span id="L7373" class="LineNr"> 7373 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/8"</span>) +<span id="L7374" class="LineNr"> 7374 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/9"</span>) +<span id="L7375" class="LineNr"> 7375 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/10"</span>) +<span id="L7376" class="LineNr"> 7376 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument/11"</span>) +<span id="L7377" class="LineNr"> 7377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/12"</span>) +<span id="L7378" class="LineNr"> 7378 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/13"</span>) +<span id="L7379" class="LineNr"> 7379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7335'>test-convert-get-on-function-argument</a>/14"</span>) +<span id="L7380" class="LineNr"> 7380 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7381" class="LineNr"> 7381 </span> 89/<- %esp 5/r32/ebp +<span id="L7382" class="LineNr"> 7382 </span> 5d/pop-to-ebp +<span id="L7383" class="LineNr"> 7383 </span> c3/return +<span id="L7384" class="LineNr"> 7384 </span> +<span id="L7385" class="LineNr"> 7385 </span><span class="subxTest">test-convert-get-on-function-argument-with-known-type</span>: +<span id="L7386" class="LineNr"> 7386 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7387" class="LineNr"> 7387 </span> 55/push-ebp +<span id="L7388" class="LineNr"> 7388 </span> 89/<- %ebp 4/r32/esp +<span id="L7389" class="LineNr"> 7389 </span> <span class="subxComment"># setup</span> +<span id="L7390" class="LineNr"> 7390 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7391" class="LineNr"> 7391 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7392" class="LineNr"> 7392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7393" class="LineNr"> 7393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7394" class="LineNr"> 7394 </span> <span class="subxComment">#</span> +<span id="L7395" class="LineNr"> 7395 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L7396" class="LineNr"> 7396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L7397" class="LineNr"> 7397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L7398" class="LineNr"> 7398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7399" class="LineNr"> 7399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo a: t {\n"</span>) +<span id="L7400" class="LineNr"> 7400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L7401" class="LineNr"> 7401 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7402" class="LineNr"> 7402 </span> <span class="subxComment"># convert</span> +<span id="L7403" class="LineNr"> 7403 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7404" class="LineNr"> 7404 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7405" class="Folded"> 7405 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7411" class="LineNr"> 7411 </span> <span class="subxComment"># check output</span> +<span id="L7412" class="LineNr"> 7412 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/0"</span>) +<span id="L7413" class="LineNr"> 7413 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/1"</span>) +<span id="L7414" class="LineNr"> 7414 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/2"</span>) +<span id="L7415" class="LineNr"> 7415 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/3"</span>) +<span id="L7416" class="LineNr"> 7416 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/4"</span>) +<span id="L7417" class="LineNr"> 7417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/5"</span>) +<span id="L7418" class="LineNr"> 7418 </span> <span class="subxComment"># var c</span> +<span id="L7419" class="LineNr"> 7419 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/6"</span>) +<span id="L7420" class="LineNr"> 7420 </span> <span class="subxComment"># get</span> +<span id="L7421" class="LineNr"> 7421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(ebp+0x0000000c) 0x00000001/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/7"</span>) +<span id="L7422" class="LineNr"> 7422 </span> <span class="subxComment"># reclaim c</span> +<span id="L7423" class="LineNr"> 7423 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/8"</span>) +<span id="L7424" class="LineNr"> 7424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/9"</span>) +<span id="L7425" class="LineNr"> 7425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/10"</span>) +<span id="L7426" class="LineNr"> 7426 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-get-on-function-argument-with-known-type/11"</span>) +<span id="L7427" class="LineNr"> 7427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/12"</span>) +<span id="L7428" class="LineNr"> 7428 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/13"</span>) +<span id="L7429" class="LineNr"> 7429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L7385'>test-convert-get-on-function-argument-with-known-type</a>/14"</span>) +<span id="L7430" class="LineNr"> 7430 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7431" class="LineNr"> 7431 </span> 89/<- %esp 5/r32/ebp +<span id="L7432" class="LineNr"> 7432 </span> 5d/pop-to-ebp +<span id="L7433" class="LineNr"> 7433 </span> c3/return +<span id="L7434" class="LineNr"> 7434 </span> +<span id="L7435" class="LineNr"> 7435 </span><span class="subxTest">test-add-with-too-many-inouts</span>: +<span id="L7436" class="LineNr"> 7436 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7437" class="LineNr"> 7437 </span> 55/push-ebp +<span id="L7438" class="LineNr"> 7438 </span> 89/<- %ebp 4/r32/esp +<span id="L7439" class="LineNr"> 7439 </span> <span class="subxComment"># setup</span> +<span id="L7440" class="LineNr"> 7440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7441" class="LineNr"> 7441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7442" class="LineNr"> 7442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7443" class="LineNr"> 7443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7444" class="LineNr"> 7444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7445" class="LineNr"> 7445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7446" class="LineNr"> 7446 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7447" class="LineNr"> 7447 </span> 68/push 0/imm32 +<span id="L7448" class="LineNr"> 7448 </span> 68/push 0/imm32 +<span id="L7449" class="LineNr"> 7449 </span> 89/<- %edx 4/r32/esp +<span id="L7450" class="LineNr"> 7450 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7451" class="LineNr"> 7451 </span> <span class="subxComment">#</span> +<span id="L7452" class="LineNr"> 7452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7453" class="LineNr"> 7453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L7454" class="LineNr"> 7454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: int <- add a, 0\n"</span>) +<span id="L7455" class="LineNr"> 7455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7456" class="LineNr"> 7456 </span> <span class="subxComment"># convert</span> +<span id="L7457" class="LineNr"> 7457 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7458" class="LineNr"> 7458 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7459" class="LineNr"> 7459 </span> <span class="subxComment"># restore ed</span> +<span id="L7460" class="LineNr"> 7460 </span> 89/<- %edx 4/r32/esp +<span id="L7461" class="LineNr"> 7461 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7462" class="LineNr"> 7462 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7463" class="Folded"> 7463 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7469" class="LineNr"> 7469 </span> <span class="subxComment"># check output</span> +<span id="L7470" class="LineNr"> 7470 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7435'>test-add-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L7471" class="LineNr"> 7471 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7435'>test-add-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7472" class="LineNr"> 7472 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7473" class="LineNr"> 7473 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7435'>test-add-with-too-many-inouts</a>: exit status"</span>) +<span id="L7474" class="LineNr"> 7474 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7475" class="LineNr"> 7475 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7476" class="LineNr"> 7476 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7477" class="LineNr"> 7477 </span> 5d/pop-to-ebp +<span id="L7478" class="LineNr"> 7478 </span> c3/return +<span id="L7479" class="LineNr"> 7479 </span> +<span id="L7480" class="LineNr"> 7480 </span><span class="subxTest">test-add-with-too-many-inouts-2</span>: +<span id="L7481" class="LineNr"> 7481 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7482" class="LineNr"> 7482 </span> 55/push-ebp +<span id="L7483" class="LineNr"> 7483 </span> 89/<- %ebp 4/r32/esp +<span id="L7484" class="LineNr"> 7484 </span> <span class="subxComment"># setup</span> +<span id="L7485" class="LineNr"> 7485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7486" class="LineNr"> 7486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7487" class="LineNr"> 7487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7488" class="LineNr"> 7488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7489" class="LineNr"> 7489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7490" class="LineNr"> 7490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7491" class="LineNr"> 7491 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7492" class="LineNr"> 7492 </span> 68/push 0/imm32 +<span id="L7493" class="LineNr"> 7493 </span> 68/push 0/imm32 +<span id="L7494" class="LineNr"> 7494 </span> 89/<- %edx 4/r32/esp +<span id="L7495" class="LineNr"> 7495 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7496" class="LineNr"> 7496 </span> <span class="subxComment">#</span> +<span id="L7497" class="LineNr"> 7497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7498" class="LineNr"> 7498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L7499" class="LineNr"> 7499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to a, 0, 1\n"</span>) +<span id="L7500" class="LineNr"> 7500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7501" class="LineNr"> 7501 </span> <span class="subxComment"># convert</span> +<span id="L7502" class="LineNr"> 7502 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7503" class="LineNr"> 7503 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7504" class="LineNr"> 7504 </span> <span class="subxComment"># restore ed</span> +<span id="L7505" class="LineNr"> 7505 </span> 89/<- %edx 4/r32/esp +<span id="L7506" class="LineNr"> 7506 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7507" class="LineNr"> 7507 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7508" class="Folded"> 7508 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7514" class="LineNr"> 7514 </span> <span class="subxComment"># check output</span> +<span id="L7515" class="LineNr"> 7515 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-add-with-too-many-inouts-2</a>: output should be empty"</span>) +<span id="L7516" class="LineNr"> 7516 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add-to: too many inouts; most primitives support at most two arguments, across inouts and outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-add-with-too-many-inouts-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7517" class="LineNr"> 7517 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7518" class="LineNr"> 7518 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7480'>test-add-with-too-many-inouts-2</a>: exit status"</span>) +<span id="L7519" class="LineNr"> 7519 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7520" class="LineNr"> 7520 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7521" class="LineNr"> 7521 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7522" class="LineNr"> 7522 </span> 5d/pop-to-ebp +<span id="L7523" class="LineNr"> 7523 </span> c3/return +<span id="L7524" class="LineNr"> 7524 </span> +<span id="L7525" class="LineNr"> 7525 </span><span class="subxTest">test-add-with-too-many-outputs</span>: +<span id="L7526" class="LineNr"> 7526 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7527" class="LineNr"> 7527 </span> 55/push-ebp +<span id="L7528" class="LineNr"> 7528 </span> 89/<- %ebp 4/r32/esp +<span id="L7529" class="LineNr"> 7529 </span> <span class="subxComment"># setup</span> +<span id="L7530" class="LineNr"> 7530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7531" class="LineNr"> 7531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7532" class="LineNr"> 7532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7533" class="LineNr"> 7533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7534" class="LineNr"> 7534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7535" class="LineNr"> 7535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7536" class="LineNr"> 7536 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7537" class="LineNr"> 7537 </span> 68/push 0/imm32 +<span id="L7538" class="LineNr"> 7538 </span> 68/push 0/imm32 +<span id="L7539" class="LineNr"> 7539 </span> 89/<- %edx 4/r32/esp +<span id="L7540" class="LineNr"> 7540 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7541" class="LineNr"> 7541 </span> <span class="subxComment">#</span> +<span id="L7542" class="LineNr"> 7542 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7543" class="LineNr"> 7543 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: int <- copy 0\n"</span>) +<span id="L7544" class="LineNr"> 7544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) +<span id="L7545" class="LineNr"> 7545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) +<span id="L7546" class="LineNr"> 7546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- add a\n"</span>) +<span id="L7547" class="LineNr"> 7547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7548" class="LineNr"> 7548 </span> <span class="subxComment"># convert</span> +<span id="L7549" class="LineNr"> 7549 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7550" class="LineNr"> 7550 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7551" class="LineNr"> 7551 </span> <span class="subxComment"># restore ed</span> +<span id="L7552" class="LineNr"> 7552 </span> 89/<- %edx 4/r32/esp +<span id="L7553" class="LineNr"> 7553 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7554" class="LineNr"> 7554 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7555" class="Folded"> 7555 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7561" class="LineNr"> 7561 </span> <span class="subxComment"># check output</span> +<span id="L7562" class="LineNr"> 7562 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7525'>test-add-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L7563" class="LineNr"> 7563 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: too many outputs; most primitives support at most one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7525'>test-add-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7564" class="LineNr"> 7564 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7565" class="LineNr"> 7565 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7525'>test-add-with-too-many-outputs</a>: exit status"</span>) +<span id="L7566" class="LineNr"> 7566 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7567" class="LineNr"> 7567 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7568" class="LineNr"> 7568 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7569" class="LineNr"> 7569 </span> 5d/pop-to-ebp +<span id="L7570" class="LineNr"> 7570 </span> c3/return +<span id="L7571" class="LineNr"> 7571 </span> +<span id="L7572" class="LineNr"> 7572 </span><span class="subxTest">test-add-with-non-number</span>: +<span id="L7573" class="LineNr"> 7573 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7574" class="LineNr"> 7574 </span> 55/push-ebp +<span id="L7575" class="LineNr"> 7575 </span> 89/<- %ebp 4/r32/esp +<span id="L7576" class="LineNr"> 7576 </span> <span class="subxComment"># setup</span> +<span id="L7577" class="LineNr"> 7577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7578" class="LineNr"> 7578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7579" class="LineNr"> 7579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7580" class="LineNr"> 7580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7581" class="LineNr"> 7581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7582" class="LineNr"> 7582 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7583" class="LineNr"> 7583 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7584" class="LineNr"> 7584 </span> 68/push 0/imm32 +<span id="L7585" class="LineNr"> 7585 </span> 68/push 0/imm32 +<span id="L7586" class="LineNr"> 7586 </span> 89/<- %edx 4/r32/esp +<span id="L7587" class="LineNr"> 7587 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7588" class="LineNr"> 7588 </span> <span class="subxComment">#</span> +<span id="L7589" class="LineNr"> 7589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7590" class="LineNr"> 7590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L7591" class="LineNr"> 7591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ecx: (addr int) <- add a\n"</span>) +<span id="L7592" class="LineNr"> 7592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7593" class="LineNr"> 7593 </span> <span class="subxComment"># convert</span> +<span id="L7594" class="LineNr"> 7594 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7595" class="LineNr"> 7595 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7596" class="LineNr"> 7596 </span> <span class="subxComment"># restore ed</span> +<span id="L7597" class="LineNr"> 7597 </span> 89/<- %edx 4/r32/esp +<span id="L7598" class="LineNr"> 7598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7599" class="LineNr"> 7599 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7600" class="Folded"> 7600 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7606" class="LineNr"> 7606 </span> <span class="subxComment"># check output</span> +<span id="L7607" class="LineNr"> 7607 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7572'>test-add-with-non-number</a>: output should be empty"</span>) +<span id="L7608" class="LineNr"> 7608 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt add: 'b' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7572'>test-add-with-non-number</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7609" class="LineNr"> 7609 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7610" class="LineNr"> 7610 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7572'>test-add-with-non-number</a>: exit status"</span>) +<span id="L7611" class="LineNr"> 7611 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7612" class="LineNr"> 7612 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7613" class="LineNr"> 7613 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7614" class="LineNr"> 7614 </span> 5d/pop-to-ebp +<span id="L7615" class="LineNr"> 7615 </span> c3/return +<span id="L7616" class="LineNr"> 7616 </span> +<span id="L7617" class="LineNr"> 7617 </span><span class="subxTest">test-add-with-addr-dereferenced</span>: +<span id="L7618" class="LineNr"> 7618 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7619" class="LineNr"> 7619 </span> 55/push-ebp +<span id="L7620" class="LineNr"> 7620 </span> 89/<- %ebp 4/r32/esp +<span id="L7621" class="LineNr"> 7621 </span> <span class="subxComment"># setup</span> +<span id="L7622" class="LineNr"> 7622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7623" class="LineNr"> 7623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7624" class="LineNr"> 7624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7625" class="LineNr"> 7625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7626" class="LineNr"> 7626 </span> <span class="subxComment">#</span> +<span id="L7627" class="LineNr"> 7627 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7628" class="LineNr"> 7628 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr int) <- copy 0\n"</span>) +<span id="L7629" class="LineNr"> 7629 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" add-to *a, 1\n"</span>) +<span id="L7630" class="LineNr"> 7630 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7631" class="LineNr"> 7631 </span> <span class="subxComment"># convert</span> +<span id="L7632" class="LineNr"> 7632 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7633" class="LineNr"> 7633 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7634" class="LineNr"> 7634 </span> <span class="subxComment"># no error</span> +<span id="L7635" class="LineNr"> 7635 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7636" class="LineNr"> 7636 </span> 89/<- %esp 5/r32/ebp +<span id="L7637" class="LineNr"> 7637 </span> 5d/pop-to-ebp +<span id="L7638" class="LineNr"> 7638 </span> c3/return +<span id="L7639" class="LineNr"> 7639 </span> +<span id="L7640" class="LineNr"> 7640 </span><span class="subxTest">test-copy-with-no-inout</span>: +<span id="L7641" class="LineNr"> 7641 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7642" class="LineNr"> 7642 </span> 55/push-ebp +<span id="L7643" class="LineNr"> 7643 </span> 89/<- %ebp 4/r32/esp +<span id="L7644" class="LineNr"> 7644 </span> <span class="subxComment"># setup</span> +<span id="L7645" class="LineNr"> 7645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7646" class="LineNr"> 7646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7647" class="LineNr"> 7647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7648" class="LineNr"> 7648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7649" class="LineNr"> 7649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7650" class="LineNr"> 7650 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7651" class="LineNr"> 7651 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7652" class="LineNr"> 7652 </span> 68/push 0/imm32 +<span id="L7653" class="LineNr"> 7653 </span> 68/push 0/imm32 +<span id="L7654" class="LineNr"> 7654 </span> 89/<- %edx 4/r32/esp +<span id="L7655" class="LineNr"> 7655 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7656" class="LineNr"> 7656 </span> <span class="subxComment">#</span> +<span id="L7657" class="LineNr"> 7657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7658" class="LineNr"> 7658 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy\n"</span>) +<span id="L7659" class="LineNr"> 7659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7660" class="LineNr"> 7660 </span> <span class="subxComment"># convert</span> +<span id="L7661" class="LineNr"> 7661 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7662" class="LineNr"> 7662 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7663" class="LineNr"> 7663 </span> <span class="subxComment"># restore ed</span> +<span id="L7664" class="LineNr"> 7664 </span> 89/<- %edx 4/r32/esp +<span id="L7665" class="LineNr"> 7665 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7666" class="LineNr"> 7666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7667" class="Folded"> 7667 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7673" class="LineNr"> 7673 </span> <span class="subxComment"># check output</span> +<span id="L7674" class="LineNr"> 7674 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7640'>test-copy-with-no-inout</a>: output should be empty"</span>) +<span id="L7675" class="LineNr"> 7675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7640'>test-copy-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7676" class="LineNr"> 7676 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7677" class="LineNr"> 7677 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7640'>test-copy-with-no-inout</a>: exit status"</span>) +<span id="L7678" class="LineNr"> 7678 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7679" class="LineNr"> 7679 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7680" class="LineNr"> 7680 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7681" class="LineNr"> 7681 </span> 5d/pop-to-ebp +<span id="L7682" class="LineNr"> 7682 </span> c3/return +<span id="L7683" class="LineNr"> 7683 </span> +<span id="L7684" class="LineNr"> 7684 </span><span class="subxTest">test-copy-with-multiple-inouts</span>: +<span id="L7685" class="LineNr"> 7685 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7686" class="LineNr"> 7686 </span> 55/push-ebp +<span id="L7687" class="LineNr"> 7687 </span> 89/<- %ebp 4/r32/esp +<span id="L7688" class="LineNr"> 7688 </span> <span class="subxComment"># setup</span> +<span id="L7689" class="LineNr"> 7689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7690" class="LineNr"> 7690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7691" class="LineNr"> 7691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7692" class="LineNr"> 7692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7693" class="LineNr"> 7693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7694" class="LineNr"> 7694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7695" class="LineNr"> 7695 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7696" class="LineNr"> 7696 </span> 68/push 0/imm32 +<span id="L7697" class="LineNr"> 7697 </span> 68/push 0/imm32 +<span id="L7698" class="LineNr"> 7698 </span> 89/<- %edx 4/r32/esp +<span id="L7699" class="LineNr"> 7699 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7700" class="LineNr"> 7700 </span> <span class="subxComment">#</span> +<span id="L7701" class="LineNr"> 7701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7702" class="LineNr"> 7702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0, 0\n"</span>) +<span id="L7703" class="LineNr"> 7703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7704" class="LineNr"> 7704 </span> <span class="subxComment"># convert</span> +<span id="L7705" class="LineNr"> 7705 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7706" class="LineNr"> 7706 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7707" class="LineNr"> 7707 </span> <span class="subxComment"># restore ed</span> +<span id="L7708" class="LineNr"> 7708 </span> 89/<- %edx 4/r32/esp +<span id="L7709" class="LineNr"> 7709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7710" class="LineNr"> 7710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7711" class="Folded"> 7711 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7717" class="LineNr"> 7717 </span> <span class="subxComment"># check output</span> +<span id="L7718" class="LineNr"> 7718 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7684'>test-copy-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L7719" class="LineNr"> 7719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L7684'>test-copy-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7720" class="LineNr"> 7720 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7721" class="LineNr"> 7721 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7684'>test-copy-with-multiple-inouts</a>: exit status"</span>) +<span id="L7722" class="LineNr"> 7722 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7723" class="LineNr"> 7723 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7724" class="LineNr"> 7724 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7725" class="LineNr"> 7725 </span> 5d/pop-to-ebp +<span id="L7726" class="LineNr"> 7726 </span> c3/return +<span id="L7727" class="LineNr"> 7727 </span> +<span id="L7728" class="LineNr"> 7728 </span><span class="subxTest">test-copy-with-no-output</span>: +<span id="L7729" class="LineNr"> 7729 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7730" class="LineNr"> 7730 </span> 55/push-ebp +<span id="L7731" class="LineNr"> 7731 </span> 89/<- %ebp 4/r32/esp +<span id="L7732" class="LineNr"> 7732 </span> <span class="subxComment"># setup</span> +<span id="L7733" class="LineNr"> 7733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7734" class="LineNr"> 7734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7735" class="LineNr"> 7735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7736" class="LineNr"> 7736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7737" class="LineNr"> 7737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7738" class="LineNr"> 7738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7739" class="LineNr"> 7739 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7740" class="LineNr"> 7740 </span> 68/push 0/imm32 +<span id="L7741" class="LineNr"> 7741 </span> 68/push 0/imm32 +<span id="L7742" class="LineNr"> 7742 </span> 89/<- %edx 4/r32/esp +<span id="L7743" class="LineNr"> 7743 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7744" class="LineNr"> 7744 </span> <span class="subxComment">#</span> +<span id="L7745" class="LineNr"> 7745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7746" class="LineNr"> 7746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy 0\n"</span>) +<span id="L7747" class="LineNr"> 7747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7748" class="LineNr"> 7748 </span> <span class="subxComment"># convert</span> +<span id="L7749" class="LineNr"> 7749 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7750" class="LineNr"> 7750 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7751" class="LineNr"> 7751 </span> <span class="subxComment"># restore ed</span> +<span id="L7752" class="LineNr"> 7752 </span> 89/<- %edx 4/r32/esp +<span id="L7753" class="LineNr"> 7753 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7754" class="LineNr"> 7754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7755" class="Folded"> 7755 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7761" class="LineNr"> 7761 </span> <span class="subxComment"># check output</span> +<span id="L7762" class="LineNr"> 7762 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7728'>test-copy-with-no-output</a>: output should be empty"</span>) +<span id="L7763" class="LineNr"> 7763 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7728'>test-copy-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7764" class="LineNr"> 7764 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7765" class="LineNr"> 7765 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7728'>test-copy-with-no-output</a>: exit status"</span>) +<span id="L7766" class="LineNr"> 7766 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7767" class="LineNr"> 7767 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7768" class="LineNr"> 7768 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7769" class="LineNr"> 7769 </span> 5d/pop-to-ebp +<span id="L7770" class="LineNr"> 7770 </span> c3/return +<span id="L7771" class="LineNr"> 7771 </span> +<span id="L7772" class="LineNr"> 7772 </span><span class="subxTest">test-copy-with-multiple-outputs</span>: +<span id="L7773" class="LineNr"> 7773 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7774" class="LineNr"> 7774 </span> 55/push-ebp +<span id="L7775" class="LineNr"> 7775 </span> 89/<- %ebp 4/r32/esp +<span id="L7776" class="LineNr"> 7776 </span> <span class="subxComment"># setup</span> +<span id="L7777" class="LineNr"> 7777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7778" class="LineNr"> 7778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7779" class="LineNr"> 7779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7780" class="LineNr"> 7780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7781" class="LineNr"> 7781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7782" class="LineNr"> 7782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7783" class="LineNr"> 7783 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7784" class="LineNr"> 7784 </span> 68/push 0/imm32 +<span id="L7785" class="LineNr"> 7785 </span> 68/push 0/imm32 +<span id="L7786" class="LineNr"> 7786 </span> 89/<- %edx 4/r32/esp +<span id="L7787" class="LineNr"> 7787 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7788" class="LineNr"> 7788 </span> <span class="subxComment">#</span> +<span id="L7789" class="LineNr"> 7789 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7790" class="LineNr"> 7790 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L7791" class="LineNr"> 7791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L7792" class="LineNr"> 7792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy 0\n"</span>) +<span id="L7793" class="LineNr"> 7793 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7794" class="LineNr"> 7794 </span> <span class="subxComment"># convert</span> +<span id="L7795" class="LineNr"> 7795 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7796" class="LineNr"> 7796 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7797" class="LineNr"> 7797 </span> <span class="subxComment"># restore ed</span> +<span id="L7798" class="LineNr"> 7798 </span> 89/<- %edx 4/r32/esp +<span id="L7799" class="LineNr"> 7799 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7800" class="LineNr"> 7800 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7801" class="Folded"> 7801 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7807" class="LineNr"> 7807 </span> <span class="subxComment"># check output</span> +<span id="L7808" class="LineNr"> 7808 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7772'>test-copy-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L7809" class="LineNr"> 7809 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L7772'>test-copy-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7810" class="LineNr"> 7810 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7811" class="LineNr"> 7811 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7772'>test-copy-with-multiple-outputs</a>: exit status"</span>) +<span id="L7812" class="LineNr"> 7812 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7813" class="LineNr"> 7813 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7814" class="LineNr"> 7814 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7815" class="LineNr"> 7815 </span> 5d/pop-to-ebp +<span id="L7816" class="LineNr"> 7816 </span> c3/return +<span id="L7817" class="LineNr"> 7817 </span> +<span id="L7818" class="LineNr"> 7818 </span><span class="subxTest">test-copy-invalid-value-to-address</span>: +<span id="L7819" class="LineNr"> 7819 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7820" class="LineNr"> 7820 </span> 55/push-ebp +<span id="L7821" class="LineNr"> 7821 </span> 89/<- %ebp 4/r32/esp +<span id="L7822" class="LineNr"> 7822 </span> <span class="subxComment"># setup</span> +<span id="L7823" class="LineNr"> 7823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7824" class="LineNr"> 7824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7825" class="LineNr"> 7825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7826" class="LineNr"> 7826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7827" class="LineNr"> 7827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7828" class="LineNr"> 7828 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7829" class="LineNr"> 7829 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7830" class="LineNr"> 7830 </span> 68/push 0/imm32 +<span id="L7831" class="LineNr"> 7831 </span> 68/push 0/imm32 +<span id="L7832" class="LineNr"> 7832 </span> 89/<- %edx 4/r32/esp +<span id="L7833" class="LineNr"> 7833 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7834" class="LineNr"> 7834 </span> <span class="subxComment">#</span> +<span id="L7835" class="LineNr"> 7835 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7836" class="LineNr"> 7836 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L7837" class="LineNr"> 7837 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy x\n"</span>) +<span id="L7838" class="LineNr"> 7838 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7839" class="LineNr"> 7839 </span> <span class="subxComment"># convert</span> +<span id="L7840" class="LineNr"> 7840 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7841" class="LineNr"> 7841 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7842" class="LineNr"> 7842 </span> <span class="subxComment"># restore ed</span> +<span id="L7843" class="LineNr"> 7843 </span> 89/<- %edx 4/r32/esp +<span id="L7844" class="LineNr"> 7844 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7845" class="LineNr"> 7845 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7846" class="Folded"> 7846 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7852" class="LineNr"> 7852 </span> <span class="subxComment"># check output</span> +<span id="L7853" class="LineNr"> 7853 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7818'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L7854" class="LineNr"> 7854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7818'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7855" class="LineNr"> 7855 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7856" class="LineNr"> 7856 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7818'>test-copy-invalid-value-to-address</a>: exit status"</span>) +<span id="L7857" class="LineNr"> 7857 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7858" class="LineNr"> 7858 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7859" class="LineNr"> 7859 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7860" class="LineNr"> 7860 </span> 5d/pop-to-ebp +<span id="L7861" class="LineNr"> 7861 </span> c3/return +<span id="L7862" class="LineNr"> 7862 </span> +<span id="L7863" class="LineNr"> 7863 </span><span class="subxTest">test-copy-null-value-to-address</span>: +<span id="L7864" class="LineNr"> 7864 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7865" class="LineNr"> 7865 </span> 55/push-ebp +<span id="L7866" class="LineNr"> 7866 </span> 89/<- %ebp 4/r32/esp +<span id="L7867" class="LineNr"> 7867 </span> <span class="subxComment"># setup</span> +<span id="L7868" class="LineNr"> 7868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7869" class="LineNr"> 7869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7870" class="LineNr"> 7870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7871" class="LineNr"> 7871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7872" class="LineNr"> 7872 </span> <span class="subxComment">#</span> +<span id="L7873" class="LineNr"> 7873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7874" class="LineNr"> 7874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L7875" class="LineNr"> 7875 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7876" class="LineNr"> 7876 </span> <span class="subxComment"># convert</span> +<span id="L7877" class="LineNr"> 7877 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7878" class="LineNr"> 7878 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7879" class="LineNr"> 7879 </span> <span class="subxComment"># no errors</span> +<span id="L7880" class="LineNr"> 7880 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7881" class="LineNr"> 7881 </span> 89/<- %esp 5/r32/ebp +<span id="L7882" class="LineNr"> 7882 </span> 5d/pop-to-ebp +<span id="L7883" class="LineNr"> 7883 </span> c3/return +<span id="L7884" class="LineNr"> 7884 </span> +<span id="L7885" class="LineNr"> 7885 </span><span class="subxTest">test-copy-invalid-value-to-offset</span>: +<span id="L7886" class="LineNr"> 7886 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7887" class="LineNr"> 7887 </span> 55/push-ebp +<span id="L7888" class="LineNr"> 7888 </span> 89/<- %ebp 4/r32/esp +<span id="L7889" class="LineNr"> 7889 </span> <span class="subxComment"># setup</span> +<span id="L7890" class="LineNr"> 7890 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7891" class="LineNr"> 7891 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7892" class="LineNr"> 7892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7893" class="LineNr"> 7893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7894" class="LineNr"> 7894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7895" class="LineNr"> 7895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7896" class="LineNr"> 7896 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7897" class="LineNr"> 7897 </span> 68/push 0/imm32 +<span id="L7898" class="LineNr"> 7898 </span> 68/push 0/imm32 +<span id="L7899" class="LineNr"> 7899 </span> 89/<- %edx 4/r32/esp +<span id="L7900" class="LineNr"> 7900 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7901" class="LineNr"> 7901 </span> <span class="subxComment">#</span> +<span id="L7902" class="LineNr"> 7902 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7903" class="LineNr"> 7903 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L7904" class="LineNr"> 7904 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy x\n"</span>) +<span id="L7905" class="LineNr"> 7905 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7906" class="LineNr"> 7906 </span> <span class="subxComment"># convert</span> +<span id="L7907" class="LineNr"> 7907 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7908" class="LineNr"> 7908 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7909" class="LineNr"> 7909 </span> <span class="subxComment"># restore ed</span> +<span id="L7910" class="LineNr"> 7910 </span> 89/<- %edx 4/r32/esp +<span id="L7911" class="LineNr"> 7911 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7912" class="LineNr"> 7912 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7913" class="Folded"> 7913 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7919" class="LineNr"> 7919 </span> <span class="subxComment"># check output</span> +<span id="L7920" class="LineNr"> 7920 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7818'>test-copy-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L7921" class="LineNr"> 7921 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L7818'>test-copy-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7922" class="LineNr"> 7922 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7923" class="LineNr"> 7923 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7885'>test-copy-invalid-value-to-offset</a>: exit status"</span>) +<span id="L7924" class="LineNr"> 7924 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7925" class="LineNr"> 7925 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7926" class="LineNr"> 7926 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7927" class="LineNr"> 7927 </span> 5d/pop-to-ebp +<span id="L7928" class="LineNr"> 7928 </span> c3/return +<span id="L7929" class="LineNr"> 7929 </span> +<span id="L7930" class="LineNr"> 7930 </span><span class="subxTest">test-copy-null-value-to-offset</span>: +<span id="L7931" class="LineNr"> 7931 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7932" class="LineNr"> 7932 </span> 55/push-ebp +<span id="L7933" class="LineNr"> 7933 </span> 89/<- %ebp 4/r32/esp +<span id="L7934" class="LineNr"> 7934 </span> <span class="subxComment"># setup</span> +<span id="L7935" class="LineNr"> 7935 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7936" class="LineNr"> 7936 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7937" class="LineNr"> 7937 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7938" class="LineNr"> 7938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7939" class="LineNr"> 7939 </span> <span class="subxComment">#</span> +<span id="L7940" class="LineNr"> 7940 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7941" class="LineNr"> 7941 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (offset int) <- copy 0\n"</span>) +<span id="L7942" class="LineNr"> 7942 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7943" class="LineNr"> 7943 </span> <span class="subxComment"># convert</span> +<span id="L7944" class="LineNr"> 7944 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L7945" class="LineNr"> 7945 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7946" class="Folded"> 7946 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7952" class="LineNr"> 7952 </span> <span class="subxComment"># no errors</span> +<span id="L7953" class="LineNr"> 7953 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L7954" class="LineNr"> 7954 </span> 89/<- %esp 5/r32/ebp +<span id="L7955" class="LineNr"> 7955 </span> 5d/pop-to-ebp +<span id="L7956" class="LineNr"> 7956 </span> c3/return +<span id="L7957" class="LineNr"> 7957 </span> +<span id="L7958" class="LineNr"> 7958 </span><span class="subxTest">test-copy-non-literal-to-byte</span>: +<span id="L7959" class="LineNr"> 7959 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L7960" class="LineNr"> 7960 </span> 55/push-ebp +<span id="L7961" class="LineNr"> 7961 </span> 89/<- %ebp 4/r32/esp +<span id="L7962" class="LineNr"> 7962 </span> <span class="subxComment"># setup</span> +<span id="L7963" class="LineNr"> 7963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L7964" class="LineNr"> 7964 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L7965" class="LineNr"> 7965 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L7966" class="LineNr"> 7966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L7967" class="LineNr"> 7967 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L7968" class="LineNr"> 7968 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L7969" class="LineNr"> 7969 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L7970" class="LineNr"> 7970 </span> 68/push 0/imm32 +<span id="L7971" class="LineNr"> 7971 </span> 68/push 0/imm32 +<span id="L7972" class="LineNr"> 7972 </span> 89/<- %edx 4/r32/esp +<span id="L7973" class="LineNr"> 7973 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L7974" class="LineNr"> 7974 </span> <span class="subxComment">#</span> +<span id="L7975" class="LineNr"> 7975 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L7976" class="LineNr"> 7976 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- copy 3\n"</span>) +<span id="L7977" class="LineNr"> 7977 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy x\n"</span>) +<span id="L7978" class="LineNr"> 7978 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L7979" class="LineNr"> 7979 </span> <span class="subxComment"># convert</span> +<span id="L7980" class="LineNr"> 7980 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L7981" class="LineNr"> 7981 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L7982" class="LineNr"> 7982 </span> <span class="subxComment"># restore ed</span> +<span id="L7983" class="LineNr"> 7983 </span> 89/<- %edx 4/r32/esp +<span id="L7984" class="LineNr"> 7984 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L7985" class="LineNr"> 7985 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L7986" class="Folded"> 7986 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L7992" class="LineNr"> 7992 </span> <span class="subxComment"># check output</span> +<span id="L7993" class="LineNr"> 7993 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L7958'>test-copy-non-literal-to-byte</a>: output should be empty"</span>) +<span id="L7994" class="LineNr"> 7994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: cannot copy non-literal to 'y' of type byte; use copy-byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L7958'>test-copy-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L7995" class="LineNr"> 7995 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L7996" class="LineNr"> 7996 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L7958'>test-copy-non-literal-to-byte</a>: exit status"</span>) +<span id="L7997" class="LineNr"> 7997 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L7998" class="LineNr"> 7998 </span> 81 0/subop/add %esp 8/imm32 +<span id="L7999" class="LineNr"> 7999 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8000" class="LineNr"> 8000 </span> 5d/pop-to-ebp +<span id="L8001" class="LineNr"> 8001 </span> c3/return +<span id="L8002" class="LineNr"> 8002 </span> +<span id="L8003" class="LineNr"> 8003 </span><span class="subxTest">test-copy-deref-address</span>: +<span id="L8004" class="LineNr"> 8004 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8005" class="LineNr"> 8005 </span> 55/push-ebp +<span id="L8006" class="LineNr"> 8006 </span> 89/<- %ebp 4/r32/esp +<span id="L8007" class="LineNr"> 8007 </span> <span class="subxComment"># setup</span> +<span id="L8008" class="LineNr"> 8008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8009" class="LineNr"> 8009 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8010" class="LineNr"> 8010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8011" class="LineNr"> 8011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8012" class="LineNr"> 8012 </span> <span class="subxComment">#</span> +<span id="L8013" class="LineNr"> 8013 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8014" class="LineNr"> 8014 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr addr int) <- copy 0\n"</span>) +<span id="L8015" class="LineNr"> 8015 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy *x\n"</span>) +<span id="L8016" class="LineNr"> 8016 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8017" class="LineNr"> 8017 </span> <span class="subxComment"># convert</span> +<span id="L8018" class="LineNr"> 8018 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8019" class="LineNr"> 8019 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8020" class="LineNr"> 8020 </span> <span class="subxComment"># no errors</span> +<span id="L8021" class="LineNr"> 8021 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8022" class="LineNr"> 8022 </span> 5d/pop-to-ebp +<span id="L8023" class="LineNr"> 8023 </span> c3/return +<span id="L8024" class="LineNr"> 8024 </span> +<span id="L8025" class="LineNr"> 8025 </span><span class="subxTest">test-copy-to-non-register</span>: +<span id="L8026" class="LineNr"> 8026 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8027" class="LineNr"> 8027 </span> 55/push-ebp +<span id="L8028" class="LineNr"> 8028 </span> 89/<- %ebp 4/r32/esp +<span id="L8029" class="LineNr"> 8029 </span> <span class="subxComment"># setup</span> +<span id="L8030" class="LineNr"> 8030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8031" class="LineNr"> 8031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8032" class="LineNr"> 8032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8033" class="LineNr"> 8033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8034" class="LineNr"> 8034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8035" class="LineNr"> 8035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8036" class="LineNr"> 8036 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8037" class="LineNr"> 8037 </span> 68/push 0/imm32 +<span id="L8038" class="LineNr"> 8038 </span> 68/push 0/imm32 +<span id="L8039" class="LineNr"> 8039 </span> 89/<- %edx 4/r32/esp +<span id="L8040" class="LineNr"> 8040 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8041" class="LineNr"> 8041 </span> <span class="subxComment">#</span> +<span id="L8042" class="LineNr"> 8042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8043" class="LineNr"> 8043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L8044" class="LineNr"> 8044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy 0\n"</span>) +<span id="L8045" class="LineNr"> 8045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8046" class="LineNr"> 8046 </span> <span class="subxComment"># convert</span> +<span id="L8047" class="LineNr"> 8047 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8048" class="LineNr"> 8048 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8049" class="LineNr"> 8049 </span> <span class="subxComment"># restore ed</span> +<span id="L8050" class="LineNr"> 8050 </span> 89/<- %edx 4/r32/esp +<span id="L8051" class="LineNr"> 8051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8052" class="LineNr"> 8052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8053" class="Folded"> 8053 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8059" class="LineNr"> 8059 </span> <span class="subxComment"># check output</span> +<span id="L8060" class="LineNr"> 8060 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8025'>test-copy-to-non-register</a>: output should be empty"</span>) +<span id="L8061" class="LineNr"> 8061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8025'>test-copy-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8062" class="LineNr"> 8062 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8063" class="LineNr"> 8063 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8025'>test-copy-to-non-register</a>: exit status"</span>) +<span id="L8064" class="LineNr"> 8064 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8065" class="LineNr"> 8065 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8066" class="LineNr"> 8066 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8067" class="LineNr"> 8067 </span> 5d/pop-to-ebp +<span id="L8068" class="LineNr"> 8068 </span> c3/return +<span id="L8069" class="LineNr"> 8069 </span> +<span id="L8070" class="LineNr"> 8070 </span><span class="subxTest">test-copy-from-non-scalar-inout</span>: +<span id="L8071" class="LineNr"> 8071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8072" class="LineNr"> 8072 </span> 55/push-ebp +<span id="L8073" class="LineNr"> 8073 </span> 89/<- %ebp 4/r32/esp +<span id="L8074" class="LineNr"> 8074 </span> <span class="subxComment"># setup</span> +<span id="L8075" class="LineNr"> 8075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8076" class="LineNr"> 8076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8077" class="LineNr"> 8077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8078" class="LineNr"> 8078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8079" class="LineNr"> 8079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8080" class="LineNr"> 8080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8081" class="LineNr"> 8081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8082" class="LineNr"> 8082 </span> 68/push 0/imm32 +<span id="L8083" class="LineNr"> 8083 </span> 68/push 0/imm32 +<span id="L8084" class="LineNr"> 8084 </span> 89/<- %edx 4/r32/esp +<span id="L8085" class="LineNr"> 8085 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8086" class="LineNr"> 8086 </span> <span class="subxComment">#</span> +<span id="L8087" class="LineNr"> 8087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8088" class="LineNr"> 8088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L8089" class="LineNr"> 8089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy x\n"</span>) +<span id="L8090" class="LineNr"> 8090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8091" class="LineNr"> 8091 </span> <span class="subxComment"># convert</span> +<span id="L8092" class="LineNr"> 8092 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8093" class="LineNr"> 8093 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8094" class="LineNr"> 8094 </span> <span class="subxComment"># restore ed</span> +<span id="L8095" class="LineNr"> 8095 </span> 89/<- %edx 4/r32/esp +<span id="L8096" class="LineNr"> 8096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8097" class="LineNr"> 8097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8098" class="Folded"> 8098 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8104" class="LineNr"> 8104 </span> <span class="subxComment"># check output</span> +<span id="L8105" class="LineNr"> 8105 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8070'>test-copy-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L8106" class="LineNr"> 8106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8070'>test-copy-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8107" class="LineNr"> 8107 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8108" class="LineNr"> 8108 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8070'>test-copy-from-non-scalar-inout</a>: exit status"</span>) +<span id="L8109" class="LineNr"> 8109 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8110" class="LineNr"> 8110 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8111" class="LineNr"> 8111 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8112" class="LineNr"> 8112 </span> 5d/pop-to-ebp +<span id="L8113" class="LineNr"> 8113 </span> c3/return +<span id="L8114" class="LineNr"> 8114 </span> +<span id="L8115" class="LineNr"> 8115 </span><span class="subxTest">test-copy-to-with-no-inout</span>: +<span id="L8116" class="LineNr"> 8116 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8117" class="LineNr"> 8117 </span> 55/push-ebp +<span id="L8118" class="LineNr"> 8118 </span> 89/<- %ebp 4/r32/esp +<span id="L8119" class="LineNr"> 8119 </span> <span class="subxComment"># setup</span> +<span id="L8120" class="LineNr"> 8120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8121" class="LineNr"> 8121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8122" class="LineNr"> 8122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8123" class="LineNr"> 8123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8124" class="LineNr"> 8124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8125" class="LineNr"> 8125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8126" class="LineNr"> 8126 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8127" class="LineNr"> 8127 </span> 68/push 0/imm32 +<span id="L8128" class="LineNr"> 8128 </span> 68/push 0/imm32 +<span id="L8129" class="LineNr"> 8129 </span> 89/<- %edx 4/r32/esp +<span id="L8130" class="LineNr"> 8130 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8131" class="LineNr"> 8131 </span> <span class="subxComment">#</span> +<span id="L8132" class="LineNr"> 8132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8133" class="LineNr"> 8133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to\n"</span>) +<span id="L8134" class="LineNr"> 8134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8135" class="LineNr"> 8135 </span> <span class="subxComment"># convert</span> +<span id="L8136" class="LineNr"> 8136 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8137" class="LineNr"> 8137 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8138" class="LineNr"> 8138 </span> <span class="subxComment"># restore ed</span> +<span id="L8139" class="LineNr"> 8139 </span> 89/<- %edx 4/r32/esp +<span id="L8140" class="LineNr"> 8140 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8141" class="LineNr"> 8141 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8142" class="Folded"> 8142 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8148" class="LineNr"> 8148 </span> <span class="subxComment"># check output</span> +<span id="L8149" class="LineNr"> 8149 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8115'>test-copy-to-with-no-inout</a>: output should be empty"</span>) +<span id="L8150" class="LineNr"> 8150 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8115'>test-copy-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8151" class="LineNr"> 8151 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8152" class="LineNr"> 8152 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8115'>test-copy-to-with-no-inout</a>: exit status"</span>) +<span id="L8153" class="LineNr"> 8153 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8154" class="LineNr"> 8154 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8155" class="LineNr"> 8155 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8156" class="LineNr"> 8156 </span> 5d/pop-to-ebp +<span id="L8157" class="LineNr"> 8157 </span> c3/return +<span id="L8158" class="LineNr"> 8158 </span> +<span id="L8159" class="LineNr"> 8159 </span><span class="subxTest">test-copy-to-with-no-source</span>: +<span id="L8160" class="LineNr"> 8160 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8161" class="LineNr"> 8161 </span> 55/push-ebp +<span id="L8162" class="LineNr"> 8162 </span> 89/<- %ebp 4/r32/esp +<span id="L8163" class="LineNr"> 8163 </span> <span class="subxComment"># setup</span> +<span id="L8164" class="LineNr"> 8164 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8165" class="LineNr"> 8165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8166" class="LineNr"> 8166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8167" class="LineNr"> 8167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8168" class="LineNr"> 8168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8169" class="LineNr"> 8169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8170" class="LineNr"> 8170 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8171" class="LineNr"> 8171 </span> 68/push 0/imm32 +<span id="L8172" class="LineNr"> 8172 </span> 68/push 0/imm32 +<span id="L8173" class="LineNr"> 8173 </span> 89/<- %edx 4/r32/esp +<span id="L8174" class="LineNr"> 8174 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8175" class="LineNr"> 8175 </span> <span class="subxComment">#</span> +<span id="L8176" class="LineNr"> 8176 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8177" class="LineNr"> 8177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L8178" class="LineNr"> 8178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x\n"</span>) +<span id="L8179" class="LineNr"> 8179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8180" class="LineNr"> 8180 </span> <span class="subxComment"># convert</span> +<span id="L8181" class="LineNr"> 8181 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8182" class="LineNr"> 8182 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8183" class="LineNr"> 8183 </span> <span class="subxComment"># restore ed</span> +<span id="L8184" class="LineNr"> 8184 </span> 89/<- %edx 4/r32/esp +<span id="L8185" class="LineNr"> 8185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8186" class="LineNr"> 8186 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8187" class="Folded"> 8187 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8193" class="LineNr"> 8193 </span> <span class="subxComment"># check output</span> +<span id="L8194" class="LineNr"> 8194 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8159'>test-copy-to-with-no-source</a>: output should be empty"</span>) +<span id="L8195" class="LineNr"> 8195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8159'>test-copy-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8196" class="LineNr"> 8196 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8197" class="LineNr"> 8197 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8159'>test-copy-to-with-no-source</a>: exit status"</span>) +<span id="L8198" class="LineNr"> 8198 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8199" class="LineNr"> 8199 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8200" class="LineNr"> 8200 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8201" class="LineNr"> 8201 </span> 5d/pop-to-ebp +<span id="L8202" class="LineNr"> 8202 </span> c3/return +<span id="L8203" class="LineNr"> 8203 </span> +<span id="L8204" class="LineNr"> 8204 </span><span class="subxTest">test-copy-to-with-no-register</span>: +<span id="L8205" class="LineNr"> 8205 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8206" class="LineNr"> 8206 </span> 55/push-ebp +<span id="L8207" class="LineNr"> 8207 </span> 89/<- %ebp 4/r32/esp +<span id="L8208" class="LineNr"> 8208 </span> <span class="subxComment"># setup</span> +<span id="L8209" class="LineNr"> 8209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8210" class="LineNr"> 8210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8211" class="LineNr"> 8211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8212" class="LineNr"> 8212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8213" class="LineNr"> 8213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8214" class="LineNr"> 8214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8215" class="LineNr"> 8215 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8216" class="LineNr"> 8216 </span> 68/push 0/imm32 +<span id="L8217" class="LineNr"> 8217 </span> 68/push 0/imm32 +<span id="L8218" class="LineNr"> 8218 </span> 89/<- %edx 4/r32/esp +<span id="L8219" class="LineNr"> 8219 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8220" class="LineNr"> 8220 </span> <span class="subxComment">#</span> +<span id="L8221" class="LineNr"> 8221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8222" class="LineNr"> 8222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L8223" class="LineNr"> 8223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, x\n"</span>) +<span id="L8224" class="LineNr"> 8224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8225" class="LineNr"> 8225 </span> <span class="subxComment"># convert</span> +<span id="L8226" class="LineNr"> 8226 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8227" class="LineNr"> 8227 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8228" class="LineNr"> 8228 </span> <span class="subxComment"># restore ed</span> +<span id="L8229" class="LineNr"> 8229 </span> 89/<- %edx 4/r32/esp +<span id="L8230" class="LineNr"> 8230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8231" class="LineNr"> 8231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8232" class="Folded"> 8232 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8238" class="LineNr"> 8238 </span> <span class="subxComment"># check output</span> +<span id="L8239" class="LineNr"> 8239 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8204'>test-copy-to-with-no-register</a>: output should be empty"</span>) +<span id="L8240" class="LineNr"> 8240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: source (second inout) is in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L8204'>test-copy-to-with-no-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8241" class="LineNr"> 8241 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8242" class="LineNr"> 8242 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8204'>test-copy-to-with-no-register</a>: exit status"</span>) +<span id="L8243" class="LineNr"> 8243 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8244" class="LineNr"> 8244 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8245" class="LineNr"> 8245 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8246" class="LineNr"> 8246 </span> 5d/pop-to-ebp +<span id="L8247" class="LineNr"> 8247 </span> c3/return +<span id="L8248" class="LineNr"> 8248 </span> +<span id="L8249" class="LineNr"> 8249 </span><span class="subxTest">test-copy-to-with-too-many-inouts</span>: +<span id="L8250" class="LineNr"> 8250 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8251" class="LineNr"> 8251 </span> 55/push-ebp +<span id="L8252" class="LineNr"> 8252 </span> 89/<- %ebp 4/r32/esp +<span id="L8253" class="LineNr"> 8253 </span> <span class="subxComment"># setup</span> +<span id="L8254" class="LineNr"> 8254 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8255" class="LineNr"> 8255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8256" class="LineNr"> 8256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8257" class="LineNr"> 8257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8258" class="LineNr"> 8258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8259" class="LineNr"> 8259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8260" class="LineNr"> 8260 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8261" class="LineNr"> 8261 </span> 68/push 0/imm32 +<span id="L8262" class="LineNr"> 8262 </span> 68/push 0/imm32 +<span id="L8263" class="LineNr"> 8263 </span> 89/<- %edx 4/r32/esp +<span id="L8264" class="LineNr"> 8264 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8265" class="LineNr"> 8265 </span> <span class="subxComment">#</span> +<span id="L8266" class="LineNr"> 8266 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8267" class="LineNr"> 8267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L8268" class="LineNr"> 8268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to x, 0, 0\n"</span>) +<span id="L8269" class="LineNr"> 8269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8270" class="LineNr"> 8270 </span> <span class="subxComment"># convert</span> +<span id="L8271" class="LineNr"> 8271 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8272" class="LineNr"> 8272 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8273" class="LineNr"> 8273 </span> <span class="subxComment"># restore ed</span> +<span id="L8274" class="LineNr"> 8274 </span> 89/<- %edx 4/r32/esp +<span id="L8275" class="LineNr"> 8275 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8276" class="LineNr"> 8276 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8277" class="Folded"> 8277 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8283" class="LineNr"> 8283 </span> <span class="subxComment"># check output</span> +<span id="L8284" class="LineNr"> 8284 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8249'>test-copy-to-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L8285" class="LineNr"> 8285 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8249'>test-copy-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8286" class="LineNr"> 8286 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8287" class="LineNr"> 8287 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8249'>test-copy-to-with-too-many-inouts</a>: exit status"</span>) +<span id="L8288" class="LineNr"> 8288 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8289" class="LineNr"> 8289 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8290" class="LineNr"> 8290 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8291" class="LineNr"> 8291 </span> 5d/pop-to-ebp +<span id="L8292" class="LineNr"> 8292 </span> c3/return +<span id="L8293" class="LineNr"> 8293 </span> +<span id="L8294" class="LineNr"> 8294 </span><span class="subxTest">test-copy-to-with-output</span>: +<span id="L8295" class="LineNr"> 8295 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8296" class="LineNr"> 8296 </span> 55/push-ebp +<span id="L8297" class="LineNr"> 8297 </span> 89/<- %ebp 4/r32/esp +<span id="L8298" class="LineNr"> 8298 </span> <span class="subxComment"># setup</span> +<span id="L8299" class="LineNr"> 8299 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8300" class="LineNr"> 8300 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8301" class="LineNr"> 8301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8302" class="LineNr"> 8302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8303" class="LineNr"> 8303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8304" class="LineNr"> 8304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8305" class="LineNr"> 8305 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8306" class="LineNr"> 8306 </span> 68/push 0/imm32 +<span id="L8307" class="LineNr"> 8307 </span> 68/push 0/imm32 +<span id="L8308" class="LineNr"> 8308 </span> 89/<- %edx 4/r32/esp +<span id="L8309" class="LineNr"> 8309 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8310" class="LineNr"> 8310 </span> <span class="subxComment">#</span> +<span id="L8311" class="LineNr"> 8311 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8312" class="LineNr"> 8312 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L8313" class="LineNr"> 8313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L8314" class="LineNr"> 8314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-to y, 0\n"</span>) +<span id="L8315" class="LineNr"> 8315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8316" class="LineNr"> 8316 </span> <span class="subxComment"># convert</span> +<span id="L8317" class="LineNr"> 8317 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8318" class="LineNr"> 8318 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8319" class="LineNr"> 8319 </span> <span class="subxComment"># restore ed</span> +<span id="L8320" class="LineNr"> 8320 </span> 89/<- %edx 4/r32/esp +<span id="L8321" class="LineNr"> 8321 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8322" class="LineNr"> 8322 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8323" class="Folded"> 8323 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8329" class="LineNr"> 8329 </span> <span class="subxComment"># check output</span> +<span id="L8330" class="LineNr"> 8330 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8294'>test-copy-to-with-output</a>: output should be empty"</span>) +<span id="L8331" class="LineNr"> 8331 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L8294'>test-copy-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8332" class="LineNr"> 8332 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8333" class="LineNr"> 8333 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8294'>test-copy-to-with-output</a>: exit status"</span>) +<span id="L8334" class="LineNr"> 8334 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8335" class="LineNr"> 8335 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8336" class="LineNr"> 8336 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8337" class="LineNr"> 8337 </span> 5d/pop-to-ebp +<span id="L8338" class="LineNr"> 8338 </span> c3/return +<span id="L8339" class="LineNr"> 8339 </span> +<span id="L8340" class="LineNr"> 8340 </span><span class="subxTest">test-copy-to-invalid-value-to-address</span>: +<span id="L8341" class="LineNr"> 8341 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8342" class="LineNr"> 8342 </span> 55/push-ebp +<span id="L8343" class="LineNr"> 8343 </span> 89/<- %ebp 4/r32/esp +<span id="L8344" class="LineNr"> 8344 </span> <span class="subxComment"># setup</span> +<span id="L8345" class="LineNr"> 8345 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8346" class="LineNr"> 8346 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8347" class="LineNr"> 8347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8348" class="LineNr"> 8348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8349" class="LineNr"> 8349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8350" class="LineNr"> 8350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8351" class="LineNr"> 8351 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8352" class="LineNr"> 8352 </span> 68/push 0/imm32 +<span id="L8353" class="LineNr"> 8353 </span> 68/push 0/imm32 +<span id="L8354" class="LineNr"> 8354 </span> 89/<- %edx 4/r32/esp +<span id="L8355" class="LineNr"> 8355 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8356" class="LineNr"> 8356 </span> <span class="subxComment">#</span> +<span id="L8357" class="LineNr"> 8357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8358" class="LineNr"> 8358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L8359" class="LineNr"> 8359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) +<span id="L8360" class="LineNr"> 8360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) +<span id="L8361" class="LineNr"> 8361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8362" class="LineNr"> 8362 </span> <span class="subxComment"># convert</span> +<span id="L8363" class="LineNr"> 8363 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8364" class="LineNr"> 8364 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8365" class="LineNr"> 8365 </span> <span class="subxComment"># restore ed</span> +<span id="L8366" class="LineNr"> 8366 </span> 89/<- %edx 4/r32/esp +<span id="L8367" class="LineNr"> 8367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8368" class="LineNr"> 8368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8369" class="Folded"> 8369 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8375" class="LineNr"> 8375 </span> <span class="subxComment"># check output</span> +<span id="L8376" class="LineNr"> 8376 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8340'>test-copy-to-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L8377" class="LineNr"> 8377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8340'>test-copy-to-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8378" class="LineNr"> 8378 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8379" class="LineNr"> 8379 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8340'>test-copy-to-invalid-value-to-address</a>: exit status"</span>) +<span id="L8380" class="LineNr"> 8380 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8381" class="LineNr"> 8381 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8382" class="LineNr"> 8382 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8383" class="LineNr"> 8383 </span> 5d/pop-to-ebp +<span id="L8384" class="LineNr"> 8384 </span> c3/return +<span id="L8385" class="LineNr"> 8385 </span> +<span id="L8386" class="LineNr"> 8386 </span><span class="subxTest">test-copy-to-null-value-to-address</span>: +<span id="L8387" class="LineNr"> 8387 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8388" class="LineNr"> 8388 </span> 55/push-ebp +<span id="L8389" class="LineNr"> 8389 </span> 89/<- %ebp 4/r32/esp +<span id="L8390" class="LineNr"> 8390 </span> <span class="subxComment"># setup</span> +<span id="L8391" class="LineNr"> 8391 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8392" class="LineNr"> 8392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8393" class="LineNr"> 8393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8394" class="LineNr"> 8394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8395" class="LineNr"> 8395 </span> <span class="subxComment">#</span> +<span id="L8396" class="LineNr"> 8396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8397" class="LineNr"> 8397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) +<span id="L8398" class="LineNr"> 8398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) +<span id="L8399" class="LineNr"> 8399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8400" class="LineNr"> 8400 </span> <span class="subxComment"># convert</span> +<span id="L8401" class="LineNr"> 8401 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8402" class="LineNr"> 8402 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8403" class="LineNr"> 8403 </span> <span class="subxComment"># no errors</span> +<span id="L8404" class="LineNr"> 8404 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8405" class="LineNr"> 8405 </span> 89/<- %esp 5/r32/ebp +<span id="L8406" class="LineNr"> 8406 </span> 5d/pop-to-ebp +<span id="L8407" class="LineNr"> 8407 </span> c3/return +<span id="L8408" class="LineNr"> 8408 </span> +<span id="L8409" class="LineNr"> 8409 </span><span class="subxTest">test-copy-to-invalid-value-to-offset</span>: +<span id="L8410" class="LineNr"> 8410 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8411" class="LineNr"> 8411 </span> 55/push-ebp +<span id="L8412" class="LineNr"> 8412 </span> 89/<- %ebp 4/r32/esp +<span id="L8413" class="LineNr"> 8413 </span> <span class="subxComment"># setup</span> +<span id="L8414" class="LineNr"> 8414 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8415" class="LineNr"> 8415 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8416" class="LineNr"> 8416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8417" class="LineNr"> 8417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8418" class="LineNr"> 8418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8419" class="LineNr"> 8419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8420" class="LineNr"> 8420 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8421" class="LineNr"> 8421 </span> 68/push 0/imm32 +<span id="L8422" class="LineNr"> 8422 </span> 68/push 0/imm32 +<span id="L8423" class="LineNr"> 8423 </span> 89/<- %edx 4/r32/esp +<span id="L8424" class="LineNr"> 8424 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8425" class="LineNr"> 8425 </span> <span class="subxComment">#</span> +<span id="L8426" class="LineNr"> 8426 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8427" class="LineNr"> 8427 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L8428" class="LineNr"> 8428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) +<span id="L8429" class="LineNr"> 8429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) +<span id="L8430" class="LineNr"> 8430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8431" class="LineNr"> 8431 </span> <span class="subxComment"># convert</span> +<span id="L8432" class="LineNr"> 8432 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8433" class="LineNr"> 8433 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8434" class="LineNr"> 8434 </span> <span class="subxComment"># restore ed</span> +<span id="L8435" class="LineNr"> 8435 </span> 89/<- %edx 4/r32/esp +<span id="L8436" class="LineNr"> 8436 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8437" class="LineNr"> 8437 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8438" class="Folded"> 8438 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8444" class="LineNr"> 8444 </span> <span class="subxComment"># check output</span> +<span id="L8445" class="LineNr"> 8445 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8409'>test-copy-to-invalid-value-to-offset</a>: output should be empty"</span>) +<span id="L8446" class="LineNr"> 8446 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L8409'>test-copy-to-invalid-value-to-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8447" class="LineNr"> 8447 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8448" class="LineNr"> 8448 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8409'>test-copy-to-invalid-value-to-offset</a>: exit status"</span>) +<span id="L8449" class="LineNr"> 8449 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8450" class="LineNr"> 8450 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8451" class="LineNr"> 8451 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8452" class="LineNr"> 8452 </span> 5d/pop-to-ebp +<span id="L8453" class="LineNr"> 8453 </span> c3/return +<span id="L8454" class="LineNr"> 8454 </span> +<span id="L8455" class="LineNr"> 8455 </span><span class="subxTest">test-copy-to-null-value-to-offset</span>: +<span id="L8456" class="LineNr"> 8456 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8457" class="LineNr"> 8457 </span> 55/push-ebp +<span id="L8458" class="LineNr"> 8458 </span> 89/<- %ebp 4/r32/esp +<span id="L8459" class="LineNr"> 8459 </span> <span class="subxComment"># setup</span> +<span id="L8460" class="LineNr"> 8460 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8461" class="LineNr"> 8461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8462" class="LineNr"> 8462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8463" class="LineNr"> 8463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8464" class="LineNr"> 8464 </span> <span class="subxComment">#</span> +<span id="L8465" class="LineNr"> 8465 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8466" class="LineNr"> 8466 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (offset int)\n"</span>) +<span id="L8467" class="LineNr"> 8467 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, 0\n"</span>) +<span id="L8468" class="LineNr"> 8468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8469" class="LineNr"> 8469 </span> <span class="subxComment"># convert</span> +<span id="L8470" class="LineNr"> 8470 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8471" class="LineNr"> 8471 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8472" class="LineNr"> 8472 </span> <span class="subxComment"># no errors</span> +<span id="L8473" class="LineNr"> 8473 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8474" class="LineNr"> 8474 </span> 89/<- %esp 5/r32/ebp +<span id="L8475" class="LineNr"> 8475 </span> 5d/pop-to-ebp +<span id="L8476" class="LineNr"> 8476 </span> c3/return +<span id="L8477" class="LineNr"> 8477 </span> +<span id="L8478" class="LineNr"> 8478 </span><span class="subxTest">test-copy-to-non-literal-to-byte</span>: +<span id="L8479" class="LineNr"> 8479 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8480" class="LineNr"> 8480 </span> 55/push-ebp +<span id="L8481" class="LineNr"> 8481 </span> 89/<- %ebp 4/r32/esp +<span id="L8482" class="LineNr"> 8482 </span> <span class="subxComment"># setup</span> +<span id="L8483" class="LineNr"> 8483 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8484" class="LineNr"> 8484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8485" class="LineNr"> 8485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8486" class="LineNr"> 8486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8487" class="LineNr"> 8487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8488" class="LineNr"> 8488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8489" class="LineNr"> 8489 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8490" class="LineNr"> 8490 </span> 68/push 0/imm32 +<span id="L8491" class="LineNr"> 8491 </span> 68/push 0/imm32 +<span id="L8492" class="LineNr"> 8492 </span> 89/<- %edx 4/r32/esp +<span id="L8493" class="LineNr"> 8493 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8494" class="LineNr"> 8494 </span> <span class="subxComment">#</span> +<span id="L8495" class="LineNr"> 8495 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8496" class="LineNr"> 8496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: byte <- copy 3\n"</span>) +<span id="L8497" class="LineNr"> 8497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8498" class="LineNr"> 8498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) +<span id="L8499" class="LineNr"> 8499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8500" class="LineNr"> 8500 </span> <span class="subxComment"># convert</span> +<span id="L8501" class="LineNr"> 8501 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8502" class="LineNr"> 8502 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8503" class="LineNr"> 8503 </span> <span class="subxComment"># restore ed</span> +<span id="L8504" class="LineNr"> 8504 </span> 89/<- %edx 4/r32/esp +<span id="L8505" class="LineNr"> 8505 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8506" class="LineNr"> 8506 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8507" class="Folded"> 8507 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8513" class="LineNr"> 8513 </span> <span class="subxComment"># check output</span> +<span id="L8514" class="LineNr"> 8514 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8478'>test-copy-to-non-literal-to-byte</a>: output should be empty"</span>) +<span id="L8515" class="LineNr"> 8515 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to"</span> <span class="Constant">"F - <a href='mu.subx.html#L8478'>test-copy-to-non-literal-to-byte</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8516" class="LineNr"> 8516 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8517" class="LineNr"> 8517 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8478'>test-copy-to-non-literal-to-byte</a>: exit status"</span>) +<span id="L8518" class="LineNr"> 8518 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8519" class="LineNr"> 8519 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8520" class="LineNr"> 8520 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8521" class="LineNr"> 8521 </span> 5d/pop-to-ebp +<span id="L8522" class="LineNr"> 8522 </span> c3/return +<span id="L8523" class="LineNr"> 8523 </span> +<span id="L8524" class="LineNr"> 8524 </span><span class="subxTest">test-copy-to-deref-address</span>: +<span id="L8525" class="LineNr"> 8525 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8526" class="LineNr"> 8526 </span> 55/push-ebp +<span id="L8527" class="LineNr"> 8527 </span> 89/<- %ebp 4/r32/esp +<span id="L8528" class="LineNr"> 8528 </span> <span class="subxComment"># setup</span> +<span id="L8529" class="LineNr"> 8529 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8530" class="LineNr"> 8530 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8531" class="LineNr"> 8531 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8532" class="LineNr"> 8532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8533" class="LineNr"> 8533 </span> <span class="subxComment">#</span> +<span id="L8534" class="LineNr"> 8534 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8535" class="LineNr"> 8535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L8536" class="LineNr"> 8536 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) +<span id="L8537" class="LineNr"> 8537 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to *y, x\n"</span>) +<span id="L8538" class="LineNr"> 8538 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8539" class="LineNr"> 8539 </span> <span class="subxComment"># convert</span> +<span id="L8540" class="LineNr"> 8540 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8541" class="LineNr"> 8541 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8542" class="LineNr"> 8542 </span> <span class="subxComment"># no errors</span> +<span id="L8543" class="LineNr"> 8543 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8544" class="LineNr"> 8544 </span> 5d/pop-to-ebp +<span id="L8545" class="LineNr"> 8545 </span> c3/return +<span id="L8546" class="LineNr"> 8546 </span> +<span id="L8547" class="LineNr"> 8547 </span><span class="subxTest">test-copy-to-from-non-scalar-inout</span>: +<span id="L8548" class="LineNr"> 8548 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8549" class="LineNr"> 8549 </span> 55/push-ebp +<span id="L8550" class="LineNr"> 8550 </span> 89/<- %ebp 4/r32/esp +<span id="L8551" class="LineNr"> 8551 </span> <span class="subxComment"># setup</span> +<span id="L8552" class="LineNr"> 8552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8553" class="LineNr"> 8553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8554" class="LineNr"> 8554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8555" class="LineNr"> 8555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8556" class="LineNr"> 8556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8557" class="LineNr"> 8557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8558" class="LineNr"> 8558 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8559" class="LineNr"> 8559 </span> 68/push 0/imm32 +<span id="L8560" class="LineNr"> 8560 </span> 68/push 0/imm32 +<span id="L8561" class="LineNr"> 8561 </span> 89/<- %edx 4/r32/esp +<span id="L8562" class="LineNr"> 8562 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8563" class="LineNr"> 8563 </span> <span class="subxComment">#</span> +<span id="L8564" class="LineNr"> 8564 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8565" class="LineNr"> 8565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L8566" class="LineNr"> 8566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L8567" class="LineNr"> 8567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-to y, x\n"</span>) +<span id="L8568" class="LineNr"> 8568 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8569" class="LineNr"> 8569 </span> <span class="subxComment"># convert</span> +<span id="L8570" class="LineNr"> 8570 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8571" class="LineNr"> 8571 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8572" class="LineNr"> 8572 </span> <span class="subxComment"># restore ed</span> +<span id="L8573" class="LineNr"> 8573 </span> 89/<- %edx 4/r32/esp +<span id="L8574" class="LineNr"> 8574 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8575" class="LineNr"> 8575 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8576" class="Folded"> 8576 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8582" class="LineNr"> 8582 </span> <span class="subxComment"># check output</span> +<span id="L8583" class="LineNr"> 8583 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8547'>test-copy-to-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L8584" class="LineNr"> 8584 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L8547'>test-copy-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8585" class="LineNr"> 8585 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8586" class="LineNr"> 8586 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8547'>test-copy-to-from-non-scalar-inout</a>: exit status"</span>) +<span id="L8587" class="LineNr"> 8587 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8588" class="LineNr"> 8588 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8589" class="LineNr"> 8589 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8590" class="LineNr"> 8590 </span> 5d/pop-to-ebp +<span id="L8591" class="LineNr"> 8591 </span> c3/return +<span id="L8592" class="LineNr"> 8592 </span> +<span id="L8593" class="LineNr"> 8593 </span><span class="subxTest">test-copy-byte-with-no-inout</span>: +<span id="L8594" class="LineNr"> 8594 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8595" class="LineNr"> 8595 </span> 55/push-ebp +<span id="L8596" class="LineNr"> 8596 </span> 89/<- %ebp 4/r32/esp +<span id="L8597" class="LineNr"> 8597 </span> <span class="subxComment"># setup</span> +<span id="L8598" class="LineNr"> 8598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8599" class="LineNr"> 8599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8600" class="LineNr"> 8600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8601" class="LineNr"> 8601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8602" class="LineNr"> 8602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8603" class="LineNr"> 8603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8604" class="LineNr"> 8604 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8605" class="LineNr"> 8605 </span> 68/push 0/imm32 +<span id="L8606" class="LineNr"> 8606 </span> 68/push 0/imm32 +<span id="L8607" class="LineNr"> 8607 </span> 89/<- %edx 4/r32/esp +<span id="L8608" class="LineNr"> 8608 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8609" class="LineNr"> 8609 </span> <span class="subxComment">#</span> +<span id="L8610" class="LineNr"> 8610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8611" class="LineNr"> 8611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte\n"</span>) +<span id="L8612" class="LineNr"> 8612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8613" class="LineNr"> 8613 </span> <span class="subxComment"># convert</span> +<span id="L8614" class="LineNr"> 8614 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8615" class="LineNr"> 8615 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8616" class="LineNr"> 8616 </span> <span class="subxComment"># restore ed</span> +<span id="L8617" class="LineNr"> 8617 </span> 89/<- %edx 4/r32/esp +<span id="L8618" class="LineNr"> 8618 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8619" class="LineNr"> 8619 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8620" class="Folded"> 8620 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8626" class="LineNr"> 8626 </span> <span class="subxComment"># check output</span> +<span id="L8627" class="LineNr"> 8627 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8593'>test-copy-byte-with-no-inout</a>: output should be empty"</span>) +<span id="L8628" class="LineNr"> 8628 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8593'>test-copy-byte-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8629" class="LineNr"> 8629 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8630" class="LineNr"> 8630 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8593'>test-copy-byte-with-no-inout</a>: exit status"</span>) +<span id="L8631" class="LineNr"> 8631 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8632" class="LineNr"> 8632 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8633" class="LineNr"> 8633 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8634" class="LineNr"> 8634 </span> 5d/pop-to-ebp +<span id="L8635" class="LineNr"> 8635 </span> c3/return +<span id="L8636" class="LineNr"> 8636 </span> +<span id="L8637" class="LineNr"> 8637 </span><span class="subxTest">test-copy-byte-with-multiple-inouts</span>: +<span id="L8638" class="LineNr"> 8638 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8639" class="LineNr"> 8639 </span> 55/push-ebp +<span id="L8640" class="LineNr"> 8640 </span> 89/<- %ebp 4/r32/esp +<span id="L8641" class="LineNr"> 8641 </span> <span class="subxComment"># setup</span> +<span id="L8642" class="LineNr"> 8642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8643" class="LineNr"> 8643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8644" class="LineNr"> 8644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8645" class="LineNr"> 8645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8646" class="LineNr"> 8646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8647" class="LineNr"> 8647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8648" class="LineNr"> 8648 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8649" class="LineNr"> 8649 </span> 68/push 0/imm32 +<span id="L8650" class="LineNr"> 8650 </span> 68/push 0/imm32 +<span id="L8651" class="LineNr"> 8651 </span> 89/<- %edx 4/r32/esp +<span id="L8652" class="LineNr"> 8652 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8653" class="LineNr"> 8653 </span> <span class="subxComment">#</span> +<span id="L8654" class="LineNr"> 8654 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8655" class="LineNr"> 8655 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy-byte 0, 0\n"</span>) +<span id="L8656" class="LineNr"> 8656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8657" class="LineNr"> 8657 </span> <span class="subxComment"># convert</span> +<span id="L8658" class="LineNr"> 8658 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8659" class="LineNr"> 8659 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8660" class="LineNr"> 8660 </span> <span class="subxComment"># restore ed</span> +<span id="L8661" class="LineNr"> 8661 </span> 89/<- %edx 4/r32/esp +<span id="L8662" class="LineNr"> 8662 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8663" class="LineNr"> 8663 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8664" class="Folded"> 8664 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8670" class="LineNr"> 8670 </span> <span class="subxComment"># check output</span> +<span id="L8671" class="LineNr"> 8671 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8637'>test-copy-byte-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L8672" class="LineNr"> 8672 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L8637'>test-copy-byte-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8673" class="LineNr"> 8673 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8674" class="LineNr"> 8674 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8637'>test-copy-byte-with-multiple-inouts</a>: exit status"</span>) +<span id="L8675" class="LineNr"> 8675 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8676" class="LineNr"> 8676 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8677" class="LineNr"> 8677 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8678" class="LineNr"> 8678 </span> 5d/pop-to-ebp +<span id="L8679" class="LineNr"> 8679 </span> c3/return +<span id="L8680" class="LineNr"> 8680 </span> +<span id="L8681" class="LineNr"> 8681 </span><span class="subxTest">test-copy-byte-with-no-output</span>: +<span id="L8682" class="LineNr"> 8682 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8683" class="LineNr"> 8683 </span> 55/push-ebp +<span id="L8684" class="LineNr"> 8684 </span> 89/<- %ebp 4/r32/esp +<span id="L8685" class="LineNr"> 8685 </span> <span class="subxComment"># setup</span> +<span id="L8686" class="LineNr"> 8686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8687" class="LineNr"> 8687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8688" class="LineNr"> 8688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8689" class="LineNr"> 8689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8690" class="LineNr"> 8690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8691" class="LineNr"> 8691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8692" class="LineNr"> 8692 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8693" class="LineNr"> 8693 </span> 68/push 0/imm32 +<span id="L8694" class="LineNr"> 8694 </span> 68/push 0/imm32 +<span id="L8695" class="LineNr"> 8695 </span> 89/<- %edx 4/r32/esp +<span id="L8696" class="LineNr"> 8696 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8697" class="LineNr"> 8697 </span> <span class="subxComment">#</span> +<span id="L8698" class="LineNr"> 8698 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8699" class="LineNr"> 8699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte 0\n"</span>) +<span id="L8700" class="LineNr"> 8700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8701" class="LineNr"> 8701 </span> <span class="subxComment"># convert</span> +<span id="L8702" class="LineNr"> 8702 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8703" class="LineNr"> 8703 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8704" class="LineNr"> 8704 </span> <span class="subxComment"># restore ed</span> +<span id="L8705" class="LineNr"> 8705 </span> 89/<- %edx 4/r32/esp +<span id="L8706" class="LineNr"> 8706 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8707" class="LineNr"> 8707 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8708" class="Folded"> 8708 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8714" class="LineNr"> 8714 </span> <span class="subxComment"># check output</span> +<span id="L8715" class="LineNr"> 8715 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8681'>test-copy-byte-with-no-output</a>: output should be empty"</span>) +<span id="L8716" class="LineNr"> 8716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8681'>test-copy-byte-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8717" class="LineNr"> 8717 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8718" class="LineNr"> 8718 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8681'>test-copy-byte-with-no-output</a>: exit status"</span>) +<span id="L8719" class="LineNr"> 8719 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8720" class="LineNr"> 8720 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8721" class="LineNr"> 8721 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8722" class="LineNr"> 8722 </span> 5d/pop-to-ebp +<span id="L8723" class="LineNr"> 8723 </span> c3/return +<span id="L8724" class="LineNr"> 8724 </span> +<span id="L8725" class="LineNr"> 8725 </span><span class="subxTest">test-copy-byte-with-multiple-outputs</span>: +<span id="L8726" class="LineNr"> 8726 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8727" class="LineNr"> 8727 </span> 55/push-ebp +<span id="L8728" class="LineNr"> 8728 </span> 89/<- %ebp 4/r32/esp +<span id="L8729" class="LineNr"> 8729 </span> <span class="subxComment"># setup</span> +<span id="L8730" class="LineNr"> 8730 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8731" class="LineNr"> 8731 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8732" class="LineNr"> 8732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8733" class="LineNr"> 8733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8734" class="LineNr"> 8734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8735" class="LineNr"> 8735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8736" class="LineNr"> 8736 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8737" class="LineNr"> 8737 </span> 68/push 0/imm32 +<span id="L8738" class="LineNr"> 8738 </span> 68/push 0/imm32 +<span id="L8739" class="LineNr"> 8739 </span> 89/<- %edx 4/r32/esp +<span id="L8740" class="LineNr"> 8740 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8741" class="LineNr"> 8741 </span> <span class="subxComment">#</span> +<span id="L8742" class="LineNr"> 8742 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8743" class="LineNr"> 8743 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L8744" class="LineNr"> 8744 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy 0\n"</span>) +<span id="L8745" class="LineNr"> 8745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- copy-byte 0\n"</span>) +<span id="L8746" class="LineNr"> 8746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8747" class="LineNr"> 8747 </span> <span class="subxComment"># convert</span> +<span id="L8748" class="LineNr"> 8748 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8749" class="LineNr"> 8749 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8750" class="LineNr"> 8750 </span> <span class="subxComment"># restore ed</span> +<span id="L8751" class="LineNr"> 8751 </span> 89/<- %edx 4/r32/esp +<span id="L8752" class="LineNr"> 8752 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8753" class="LineNr"> 8753 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8754" class="Folded"> 8754 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8760" class="LineNr"> 8760 </span> <span class="subxComment"># check output</span> +<span id="L8761" class="LineNr"> 8761 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8725'>test-copy-byte-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L8762" class="LineNr"> 8762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L8725'>test-copy-byte-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8763" class="LineNr"> 8763 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8764" class="LineNr"> 8764 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8725'>test-copy-byte-with-multiple-outputs</a>: exit status"</span>) +<span id="L8765" class="LineNr"> 8765 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8766" class="LineNr"> 8766 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8767" class="LineNr"> 8767 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8768" class="LineNr"> 8768 </span> 5d/pop-to-ebp +<span id="L8769" class="LineNr"> 8769 </span> c3/return +<span id="L8770" class="LineNr"> 8770 </span> +<span id="L8771" class="LineNr"> 8771 </span><span class="subxTest">test-copy-byte-deref-address</span>: +<span id="L8772" class="LineNr"> 8772 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8773" class="LineNr"> 8773 </span> 55/push-ebp +<span id="L8774" class="LineNr"> 8774 </span> 89/<- %ebp 4/r32/esp +<span id="L8775" class="LineNr"> 8775 </span> <span class="subxComment"># setup</span> +<span id="L8776" class="LineNr"> 8776 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8777" class="LineNr"> 8777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8778" class="LineNr"> 8778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8779" class="LineNr"> 8779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8780" class="LineNr"> 8780 </span> <span class="subxComment">#</span> +<span id="L8781" class="LineNr"> 8781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8782" class="LineNr"> 8782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8783" class="LineNr"> 8783 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: byte <- copy-byte *x\n"</span>) +<span id="L8784" class="LineNr"> 8784 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8785" class="LineNr"> 8785 </span> <span class="subxComment"># convert</span> +<span id="L8786" class="LineNr"> 8786 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L8787" class="LineNr"> 8787 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8788" class="Folded"> 8788 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8794" class="LineNr"> 8794 </span> <span class="subxComment"># not bothering checking output</span> +<span id="L8795" class="LineNr"> 8795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8771'>test-copy-byte-deref-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8796" class="LineNr"> 8796 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8797" class="LineNr"> 8797 </span> 5d/pop-to-ebp +<span id="L8798" class="LineNr"> 8798 </span> c3/return +<span id="L8799" class="LineNr"> 8799 </span> +<span id="L8800" class="LineNr"> 8800 </span><span class="subxTest">test-copy-byte-with-invalid-output-type</span>: +<span id="L8801" class="LineNr"> 8801 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8802" class="LineNr"> 8802 </span> 55/push-ebp +<span id="L8803" class="LineNr"> 8803 </span> 89/<- %ebp 4/r32/esp +<span id="L8804" class="LineNr"> 8804 </span> <span class="subxComment"># setup</span> +<span id="L8805" class="LineNr"> 8805 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8806" class="LineNr"> 8806 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8807" class="LineNr"> 8807 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8808" class="LineNr"> 8808 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8809" class="LineNr"> 8809 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8810" class="LineNr"> 8810 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8811" class="LineNr"> 8811 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8812" class="LineNr"> 8812 </span> 68/push 0/imm32 +<span id="L8813" class="LineNr"> 8813 </span> 68/push 0/imm32 +<span id="L8814" class="LineNr"> 8814 </span> 89/<- %edx 4/r32/esp +<span id="L8815" class="LineNr"> 8815 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8816" class="LineNr"> 8816 </span> <span class="subxComment">#</span> +<span id="L8817" class="LineNr"> 8817 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8818" class="LineNr"> 8818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8819" class="LineNr"> 8819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy-byte *x\n"</span>) +<span id="L8820" class="LineNr"> 8820 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8821" class="LineNr"> 8821 </span> <span class="subxComment"># convert</span> +<span id="L8822" class="LineNr"> 8822 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8823" class="LineNr"> 8823 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8824" class="LineNr"> 8824 </span> <span class="subxComment"># restore ed</span> +<span id="L8825" class="LineNr"> 8825 </span> 89/<- %edx 4/r32/esp +<span id="L8826" class="LineNr"> 8826 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8827" class="LineNr"> 8827 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8828" class="Folded"> 8828 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8834" class="LineNr"> 8834 </span> <span class="subxComment"># check output</span> +<span id="L8835" class="LineNr"> 8835 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8800'>test-copy-byte-with-invalid-output-type</a>: output should be empty"</span>) +<span id="L8836" class="LineNr"> 8836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte' must <a href='108write.subx.html#L24'>write</a> to output of type byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L8800'>test-copy-byte-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8837" class="LineNr"> 8837 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8838" class="LineNr"> 8838 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8800'>test-copy-byte-with-invalid-output-type</a>: exit status"</span>) +<span id="L8839" class="LineNr"> 8839 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8840" class="LineNr"> 8840 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8841" class="LineNr"> 8841 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8842" class="LineNr"> 8842 </span> 5d/pop-to-ebp +<span id="L8843" class="LineNr"> 8843 </span> c3/return +<span id="L8844" class="LineNr"> 8844 </span> +<span id="L8845" class="LineNr"> 8845 </span><span class="subxTest">test-copy-byte-from-non-scalar-inout</span>: +<span id="L8846" class="LineNr"> 8846 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8847" class="LineNr"> 8847 </span> 55/push-ebp +<span id="L8848" class="LineNr"> 8848 </span> 89/<- %ebp 4/r32/esp +<span id="L8849" class="LineNr"> 8849 </span> <span class="subxComment"># setup</span> +<span id="L8850" class="LineNr"> 8850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8851" class="LineNr"> 8851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8852" class="LineNr"> 8852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8853" class="LineNr"> 8853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8854" class="LineNr"> 8854 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8855" class="LineNr"> 8855 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8856" class="LineNr"> 8856 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8857" class="LineNr"> 8857 </span> 68/push 0/imm32 +<span id="L8858" class="LineNr"> 8858 </span> 68/push 0/imm32 +<span id="L8859" class="LineNr"> 8859 </span> 89/<- %edx 4/r32/esp +<span id="L8860" class="LineNr"> 8860 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8861" class="LineNr"> 8861 </span> <span class="subxComment">#</span> +<span id="L8862" class="LineNr"> 8862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8863" class="LineNr"> 8863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L8864" class="LineNr"> 8864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: byte <- copy-byte x\n"</span>) +<span id="L8865" class="LineNr"> 8865 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8866" class="LineNr"> 8866 </span> <span class="subxComment"># convert</span> +<span id="L8867" class="LineNr"> 8867 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8868" class="LineNr"> 8868 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8869" class="LineNr"> 8869 </span> <span class="subxComment"># restore ed</span> +<span id="L8870" class="LineNr"> 8870 </span> 89/<- %edx 4/r32/esp +<span id="L8871" class="LineNr"> 8871 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8872" class="LineNr"> 8872 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8873" class="Folded"> 8873 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8879" class="LineNr"> 8879 </span> <span class="subxComment"># check output</span> +<span id="L8880" class="LineNr"> 8880 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8845'>test-copy-byte-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L8881" class="LineNr"> 8881 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte: 'x' is too large to fit in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L8845'>test-copy-byte-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8882" class="LineNr"> 8882 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8883" class="LineNr"> 8883 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8845'>test-copy-byte-from-non-scalar-inout</a>: exit status"</span>) +<span id="L8884" class="LineNr"> 8884 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8885" class="LineNr"> 8885 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8886" class="LineNr"> 8886 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8887" class="LineNr"> 8887 </span> 5d/pop-to-ebp +<span id="L8888" class="LineNr"> 8888 </span> c3/return +<span id="L8889" class="LineNr"> 8889 </span> +<span id="L8890" class="LineNr"> 8890 </span><span class="subxTest">test-copy-byte-to-with-no-inout</span>: +<span id="L8891" class="LineNr"> 8891 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8892" class="LineNr"> 8892 </span> 55/push-ebp +<span id="L8893" class="LineNr"> 8893 </span> 89/<- %ebp 4/r32/esp +<span id="L8894" class="LineNr"> 8894 </span> <span class="subxComment"># setup</span> +<span id="L8895" class="LineNr"> 8895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8896" class="LineNr"> 8896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8897" class="LineNr"> 8897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8898" class="LineNr"> 8898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8899" class="LineNr"> 8899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8900" class="LineNr"> 8900 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8901" class="LineNr"> 8901 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8902" class="LineNr"> 8902 </span> 68/push 0/imm32 +<span id="L8903" class="LineNr"> 8903 </span> 68/push 0/imm32 +<span id="L8904" class="LineNr"> 8904 </span> 89/<- %edx 4/r32/esp +<span id="L8905" class="LineNr"> 8905 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8906" class="LineNr"> 8906 </span> <span class="subxComment">#</span> +<span id="L8907" class="LineNr"> 8907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8908" class="LineNr"> 8908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to\n"</span>) +<span id="L8909" class="LineNr"> 8909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8910" class="LineNr"> 8910 </span> <span class="subxComment"># convert</span> +<span id="L8911" class="LineNr"> 8911 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8912" class="LineNr"> 8912 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8913" class="LineNr"> 8913 </span> <span class="subxComment"># restore ed</span> +<span id="L8914" class="LineNr"> 8914 </span> 89/<- %edx 4/r32/esp +<span id="L8915" class="LineNr"> 8915 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8916" class="LineNr"> 8916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8917" class="Folded"> 8917 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8923" class="LineNr"> 8923 </span> <span class="subxComment"># check output</span> +<span id="L8924" class="LineNr"> 8924 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8890'>test-copy-byte-to-with-no-inout</a>: output should be empty"</span>) +<span id="L8925" class="LineNr"> 8925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8890'>test-copy-byte-to-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8926" class="LineNr"> 8926 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8927" class="LineNr"> 8927 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8890'>test-copy-byte-to-with-no-inout</a>: exit status"</span>) +<span id="L8928" class="LineNr"> 8928 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8929" class="LineNr"> 8929 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8930" class="LineNr"> 8930 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8931" class="LineNr"> 8931 </span> 5d/pop-to-ebp +<span id="L8932" class="LineNr"> 8932 </span> c3/return +<span id="L8933" class="LineNr"> 8933 </span> +<span id="L8934" class="LineNr"> 8934 </span><span class="subxTest">test-copy-byte-to-with-no-source</span>: +<span id="L8935" class="LineNr"> 8935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8936" class="LineNr"> 8936 </span> 55/push-ebp +<span id="L8937" class="LineNr"> 8937 </span> 89/<- %ebp 4/r32/esp +<span id="L8938" class="LineNr"> 8938 </span> <span class="subxComment"># setup</span> +<span id="L8939" class="LineNr"> 8939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8940" class="LineNr"> 8940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8941" class="LineNr"> 8941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8942" class="LineNr"> 8942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8943" class="LineNr"> 8943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8944" class="LineNr"> 8944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8945" class="LineNr"> 8945 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8946" class="LineNr"> 8946 </span> 68/push 0/imm32 +<span id="L8947" class="LineNr"> 8947 </span> 68/push 0/imm32 +<span id="L8948" class="LineNr"> 8948 </span> 89/<- %edx 4/r32/esp +<span id="L8949" class="LineNr"> 8949 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8950" class="LineNr"> 8950 </span> <span class="subxComment">#</span> +<span id="L8951" class="LineNr"> 8951 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8952" class="LineNr"> 8952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8953" class="LineNr"> 8953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x\n"</span>) +<span id="L8954" class="LineNr"> 8954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L8955" class="LineNr"> 8955 </span> <span class="subxComment"># convert</span> +<span id="L8956" class="LineNr"> 8956 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L8957" class="LineNr"> 8957 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L8958" class="LineNr"> 8958 </span> <span class="subxComment"># restore ed</span> +<span id="L8959" class="LineNr"> 8959 </span> 89/<- %edx 4/r32/esp +<span id="L8960" class="LineNr"> 8960 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L8961" class="LineNr"> 8961 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L8962" class="Folded"> 8962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L8968" class="LineNr"> 8968 </span> <span class="subxComment"># check output</span> +<span id="L8969" class="LineNr"> 8969 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8934'>test-copy-byte-to-with-no-source</a>: output should be empty"</span>) +<span id="L8970" class="LineNr"> 8970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8934'>test-copy-byte-to-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L8971" class="LineNr"> 8971 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L8972" class="LineNr"> 8972 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8934'>test-copy-byte-to-with-no-source</a>: exit status"</span>) +<span id="L8973" class="LineNr"> 8973 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L8974" class="LineNr"> 8974 </span> 81 0/subop/add %esp 8/imm32 +<span id="L8975" class="LineNr"> 8975 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L8976" class="LineNr"> 8976 </span> 5d/pop-to-ebp +<span id="L8977" class="LineNr"> 8977 </span> c3/return +<span id="L8978" class="LineNr"> 8978 </span> +<span id="L8979" class="LineNr"> 8979 </span><span class="subxTest">test-copy-byte-to-with-too-many-inouts</span>: +<span id="L8980" class="LineNr"> 8980 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L8981" class="LineNr"> 8981 </span> 55/push-ebp +<span id="L8982" class="LineNr"> 8982 </span> 89/<- %ebp 4/r32/esp +<span id="L8983" class="LineNr"> 8983 </span> <span class="subxComment"># setup</span> +<span id="L8984" class="LineNr"> 8984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L8985" class="LineNr"> 8985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L8986" class="LineNr"> 8986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L8987" class="LineNr"> 8987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L8988" class="LineNr"> 8988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L8989" class="LineNr"> 8989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L8990" class="LineNr"> 8990 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L8991" class="LineNr"> 8991 </span> 68/push 0/imm32 +<span id="L8992" class="LineNr"> 8992 </span> 68/push 0/imm32 +<span id="L8993" class="LineNr"> 8993 </span> 89/<- %edx 4/r32/esp +<span id="L8994" class="LineNr"> 8994 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L8995" class="LineNr"> 8995 </span> <span class="subxComment">#</span> +<span id="L8996" class="LineNr"> 8996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L8997" class="LineNr"> 8997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L8998" class="LineNr"> 8998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0, 0\n"</span>) +<span id="L8999" class="LineNr"> 8999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9000" class="LineNr"> 9000 </span> <span class="subxComment"># convert</span> +<span id="L9001" class="LineNr"> 9001 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9002" class="LineNr"> 9002 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9003" class="LineNr"> 9003 </span> <span class="subxComment"># restore ed</span> +<span id="L9004" class="LineNr"> 9004 </span> 89/<- %edx 4/r32/esp +<span id="L9005" class="LineNr"> 9005 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9006" class="LineNr"> 9006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9007" class="Folded"> 9007 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9013" class="LineNr"> 9013 </span> <span class="subxComment"># check output</span> +<span id="L9014" class="LineNr"> 9014 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L8979'>test-copy-byte-to-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L9015" class="LineNr"> 9015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L8979'>test-copy-byte-to-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9016" class="LineNr"> 9016 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9017" class="LineNr"> 9017 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L8979'>test-copy-byte-to-with-too-many-inouts</a>: exit status"</span>) +<span id="L9018" class="LineNr"> 9018 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9019" class="LineNr"> 9019 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9020" class="LineNr"> 9020 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9021" class="LineNr"> 9021 </span> 5d/pop-to-ebp +<span id="L9022" class="LineNr"> 9022 </span> c3/return +<span id="L9023" class="LineNr"> 9023 </span> +<span id="L9024" class="LineNr"> 9024 </span><span class="subxTest">test-copy-byte-to-with-output</span>: +<span id="L9025" class="LineNr"> 9025 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9026" class="LineNr"> 9026 </span> 55/push-ebp +<span id="L9027" class="LineNr"> 9027 </span> 89/<- %ebp 4/r32/esp +<span id="L9028" class="LineNr"> 9028 </span> <span class="subxComment"># setup</span> +<span id="L9029" class="LineNr"> 9029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9030" class="LineNr"> 9030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9031" class="LineNr"> 9031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9032" class="LineNr"> 9032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9033" class="LineNr"> 9033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9034" class="LineNr"> 9034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9035" class="LineNr"> 9035 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9036" class="LineNr"> 9036 </span> 68/push 0/imm32 +<span id="L9037" class="LineNr"> 9037 </span> 68/push 0/imm32 +<span id="L9038" class="LineNr"> 9038 </span> 89/<- %edx 4/r32/esp +<span id="L9039" class="LineNr"> 9039 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9040" class="LineNr"> 9040 </span> <span class="subxComment">#</span> +<span id="L9041" class="LineNr"> 9041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9042" class="LineNr"> 9042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L9043" class="LineNr"> 9043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) +<span id="L9044" class="LineNr"> 9044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-byte-to *y, 0\n"</span>) +<span id="L9045" class="LineNr"> 9045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9046" class="LineNr"> 9046 </span> <span class="subxComment"># convert</span> +<span id="L9047" class="LineNr"> 9047 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9048" class="LineNr"> 9048 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9049" class="LineNr"> 9049 </span> <span class="subxComment"># restore ed</span> +<span id="L9050" class="LineNr"> 9050 </span> 89/<- %edx 4/r32/esp +<span id="L9051" class="LineNr"> 9051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9052" class="LineNr"> 9052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9053" class="Folded"> 9053 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9059" class="LineNr"> 9059 </span> <span class="subxComment"># check output</span> +<span id="L9060" class="LineNr"> 9060 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9024'>test-copy-byte-to-with-output</a>: output should be empty"</span>) +<span id="L9061" class="LineNr"> 9061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-byte-to' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L9024'>test-copy-byte-to-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9062" class="LineNr"> 9062 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9063" class="LineNr"> 9063 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9024'>test-copy-byte-to-with-output</a>: exit status"</span>) +<span id="L9064" class="LineNr"> 9064 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9065" class="LineNr"> 9065 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9066" class="LineNr"> 9066 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9067" class="LineNr"> 9067 </span> 5d/pop-to-ebp +<span id="L9068" class="LineNr"> 9068 </span> c3/return +<span id="L9069" class="LineNr"> 9069 </span> +<span id="L9070" class="LineNr"> 9070 </span><span class="subxTest">test-copy-byte-to-with-invalid-output-type</span>: +<span id="L9071" class="LineNr"> 9071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9072" class="LineNr"> 9072 </span> 55/push-ebp +<span id="L9073" class="LineNr"> 9073 </span> 89/<- %ebp 4/r32/esp +<span id="L9074" class="LineNr"> 9074 </span> <span class="subxComment"># setup</span> +<span id="L9075" class="LineNr"> 9075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9076" class="LineNr"> 9076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9077" class="LineNr"> 9077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9078" class="LineNr"> 9078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9079" class="LineNr"> 9079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9080" class="LineNr"> 9080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9081" class="LineNr"> 9081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9082" class="LineNr"> 9082 </span> 68/push 0/imm32 +<span id="L9083" class="LineNr"> 9083 </span> 68/push 0/imm32 +<span id="L9084" class="LineNr"> 9084 </span> 89/<- %edx 4/r32/esp +<span id="L9085" class="LineNr"> 9085 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9086" class="LineNr"> 9086 </span> <span class="subxComment">#</span> +<span id="L9087" class="LineNr"> 9087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9088" class="LineNr"> 9088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L9089" class="LineNr"> 9089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L9090" class="LineNr"> 9090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to y, x\n"</span>) +<span id="L9091" class="LineNr"> 9091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9092" class="LineNr"> 9092 </span> <span class="subxComment"># convert</span> +<span id="L9093" class="LineNr"> 9093 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9094" class="LineNr"> 9094 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9095" class="LineNr"> 9095 </span> <span class="subxComment"># restore ed</span> +<span id="L9096" class="LineNr"> 9096 </span> 89/<- %edx 4/r32/esp +<span id="L9097" class="LineNr"> 9097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9098" class="LineNr"> 9098 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9099" class="Folded"> 9099 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9105" class="LineNr"> 9105 </span> <span class="subxComment"># check output</span> +<span id="L9106" class="LineNr"> 9106 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9070'>test-copy-byte-to-with-invalid-output-type</a>: output should be empty"</span>) +<span id="L9107" class="LineNr"> 9107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'y' must be a byte"</span> <span class="Constant">"F - <a href='mu.subx.html#L9070'>test-copy-byte-to-with-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9108" class="LineNr"> 9108 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9109" class="LineNr"> 9109 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9070'>test-copy-byte-to-with-invalid-output-type</a>: exit status"</span>) +<span id="L9110" class="LineNr"> 9110 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9111" class="LineNr"> 9111 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9112" class="LineNr"> 9112 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9113" class="LineNr"> 9113 </span> 5d/pop-to-ebp +<span id="L9114" class="LineNr"> 9114 </span> c3/return +<span id="L9115" class="LineNr"> 9115 </span> +<span id="L9116" class="LineNr"> 9116 </span><span class="subxTest">test-copy-byte-to-with-literal-inout</span>: +<span id="L9117" class="LineNr"> 9117 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9118" class="LineNr"> 9118 </span> 55/push-ebp +<span id="L9119" class="LineNr"> 9119 </span> 89/<- %ebp 4/r32/esp +<span id="L9120" class="LineNr"> 9120 </span> <span class="subxComment"># setup</span> +<span id="L9121" class="LineNr"> 9121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9122" class="LineNr"> 9122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9123" class="LineNr"> 9123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9124" class="LineNr"> 9124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9125" class="LineNr"> 9125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9126" class="LineNr"> 9126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9127" class="LineNr"> 9127 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9128" class="LineNr"> 9128 </span> 68/push 0/imm32 +<span id="L9129" class="LineNr"> 9129 </span> 68/push 0/imm32 +<span id="L9130" class="LineNr"> 9130 </span> 89/<- %edx 4/r32/esp +<span id="L9131" class="LineNr"> 9131 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9132" class="LineNr"> 9132 </span> <span class="subxComment">#</span> +<span id="L9133" class="LineNr"> 9133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9134" class="LineNr"> 9134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr byte) <- copy 0\n"</span>) +<span id="L9135" class="LineNr"> 9135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *x, 0\n"</span>) +<span id="L9136" class="LineNr"> 9136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9137" class="LineNr"> 9137 </span> <span class="subxComment"># convert</span> +<span id="L9138" class="LineNr"> 9138 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9139" class="LineNr"> 9139 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9140" class="LineNr"> 9140 </span> <span class="subxComment"># restore ed</span> +<span id="L9141" class="LineNr"> 9141 </span> 89/<- %edx 4/r32/esp +<span id="L9142" class="LineNr"> 9142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9143" class="LineNr"> 9143 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9144" class="Folded"> 9144 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9150" class="LineNr"> 9150 </span> <span class="subxComment"># check output</span> +<span id="L9151" class="LineNr"> 9151 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9116'>test-copy-byte-to-with-literal-inout</a>: output should be empty"</span>) +<span id="L9152" class="LineNr"> 9152 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: source (second inout) must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9116'>test-copy-byte-to-with-literal-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9153" class="LineNr"> 9153 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9154" class="LineNr"> 9154 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9116'>test-copy-byte-to-with-literal-inout</a>: exit status"</span>) +<span id="L9155" class="LineNr"> 9155 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9156" class="LineNr"> 9156 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9157" class="LineNr"> 9157 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9158" class="LineNr"> 9158 </span> 5d/pop-to-ebp +<span id="L9159" class="LineNr"> 9159 </span> c3/return +<span id="L9160" class="LineNr"> 9160 </span> +<span id="L9161" class="LineNr"> 9161 </span><span class="subxTest">test-copy-byte-to-deref-address</span>: +<span id="L9162" class="LineNr"> 9162 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9163" class="LineNr"> 9163 </span> 55/push-ebp +<span id="L9164" class="LineNr"> 9164 </span> 89/<- %ebp 4/r32/esp +<span id="L9165" class="LineNr"> 9165 </span> <span class="subxComment"># setup</span> +<span id="L9166" class="LineNr"> 9166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9167" class="LineNr"> 9167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9168" class="LineNr"> 9168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9169" class="LineNr"> 9169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9170" class="LineNr"> 9170 </span> <span class="subxComment">#</span> +<span id="L9171" class="LineNr"> 9171 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9172" class="LineNr"> 9172 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: byte <- copy 0\n"</span>) +<span id="L9173" class="LineNr"> 9173 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr byte) <- copy 0\n"</span>) +<span id="L9174" class="LineNr"> 9174 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) +<span id="L9175" class="LineNr"> 9175 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9176" class="LineNr"> 9176 </span> <span class="subxComment"># convert</span> +<span id="L9177" class="LineNr"> 9177 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9178" class="LineNr"> 9178 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9179" class="LineNr"> 9179 </span> <span class="subxComment"># no errors</span> +<span id="L9180" class="LineNr"> 9180 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9181" class="LineNr"> 9181 </span> 5d/pop-to-ebp +<span id="L9182" class="LineNr"> 9182 </span> c3/return +<span id="L9183" class="LineNr"> 9183 </span> +<span id="L9184" class="LineNr"> 9184 </span><span class="subxTest">test-copy-byte-to-from-non-scalar-inout</span>: +<span id="L9185" class="LineNr"> 9185 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9186" class="LineNr"> 9186 </span> 55/push-ebp +<span id="L9187" class="LineNr"> 9187 </span> 89/<- %ebp 4/r32/esp +<span id="L9188" class="LineNr"> 9188 </span> <span class="subxComment"># setup</span> +<span id="L9189" class="LineNr"> 9189 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9190" class="LineNr"> 9190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9191" class="LineNr"> 9191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9192" class="LineNr"> 9192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9193" class="LineNr"> 9193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9194" class="LineNr"> 9194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9195" class="LineNr"> 9195 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9196" class="LineNr"> 9196 </span> 68/push 0/imm32 +<span id="L9197" class="LineNr"> 9197 </span> 68/push 0/imm32 +<span id="L9198" class="LineNr"> 9198 </span> 89/<- %edx 4/r32/esp +<span id="L9199" class="LineNr"> 9199 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9200" class="LineNr"> 9200 </span> <span class="subxComment">#</span> +<span id="L9201" class="LineNr"> 9201 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9202" class="LineNr"> 9202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L9203" class="LineNr"> 9203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr byte) <- copy 0\n"</span>) +<span id="L9204" class="LineNr"> 9204 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-byte-to *y, x\n"</span>) +<span id="L9205" class="LineNr"> 9205 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9206" class="LineNr"> 9206 </span> <span class="subxComment"># convert</span> +<span id="L9207" class="LineNr"> 9207 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9208" class="LineNr"> 9208 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9209" class="LineNr"> 9209 </span> <span class="subxComment"># restore ed</span> +<span id="L9210" class="LineNr"> 9210 </span> 89/<- %edx 4/r32/esp +<span id="L9211" class="LineNr"> 9211 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9212" class="LineNr"> 9212 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9213" class="Folded"> 9213 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9219" class="LineNr"> 9219 </span> <span class="subxComment"># check output</span> +<span id="L9220" class="LineNr"> 9220 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9184'>test-copy-byte-to-from-non-scalar-inout</a>: output should be empty"</span>) +<span id="L9221" class="LineNr"> 9221 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-byte-to: 'x' is too large to copy"</span> <span class="Constant">"F - <a href='mu.subx.html#L9184'>test-copy-byte-to-from-non-scalar-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9222" class="LineNr"> 9222 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9223" class="LineNr"> 9223 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9184'>test-copy-byte-to-from-non-scalar-inout</a>: exit status"</span>) +<span id="L9224" class="LineNr"> 9224 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9225" class="LineNr"> 9225 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9226" class="LineNr"> 9226 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9227" class="LineNr"> 9227 </span> 5d/pop-to-ebp +<span id="L9228" class="LineNr"> 9228 </span> c3/return +<span id="L9229" class="LineNr"> 9229 </span> +<span id="L9230" class="LineNr"> 9230 </span><span class="subxTest">test-compare-with-no-inout</span>: +<span id="L9231" class="LineNr"> 9231 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9232" class="LineNr"> 9232 </span> 55/push-ebp +<span id="L9233" class="LineNr"> 9233 </span> 89/<- %ebp 4/r32/esp +<span id="L9234" class="LineNr"> 9234 </span> <span class="subxComment"># setup</span> +<span id="L9235" class="LineNr"> 9235 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9236" class="LineNr"> 9236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9237" class="LineNr"> 9237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9238" class="LineNr"> 9238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9239" class="LineNr"> 9239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9240" class="LineNr"> 9240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9241" class="LineNr"> 9241 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9242" class="LineNr"> 9242 </span> 68/push 0/imm32 +<span id="L9243" class="LineNr"> 9243 </span> 68/push 0/imm32 +<span id="L9244" class="LineNr"> 9244 </span> 89/<- %edx 4/r32/esp +<span id="L9245" class="LineNr"> 9245 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9246" class="LineNr"> 9246 </span> <span class="subxComment">#</span> +<span id="L9247" class="LineNr"> 9247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9248" class="LineNr"> 9248 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L9249" class="LineNr"> 9249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare\n"</span>) +<span id="L9250" class="LineNr"> 9250 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9251" class="LineNr"> 9251 </span> <span class="subxComment"># convert</span> +<span id="L9252" class="LineNr"> 9252 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9253" class="LineNr"> 9253 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9254" class="LineNr"> 9254 </span> <span class="subxComment"># restore ed</span> +<span id="L9255" class="LineNr"> 9255 </span> 89/<- %edx 4/r32/esp +<span id="L9256" class="LineNr"> 9256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9257" class="LineNr"> 9257 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9258" class="Folded"> 9258 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9264" class="LineNr"> 9264 </span> <span class="subxComment"># check output</span> +<span id="L9265" class="LineNr"> 9265 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9230'>test-compare-with-no-inout</a>: output should be empty"</span>) +<span id="L9266" class="LineNr"> 9266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9230'>test-compare-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9267" class="LineNr"> 9267 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9268" class="LineNr"> 9268 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9230'>test-compare-with-no-inout</a>: exit status"</span>) +<span id="L9269" class="LineNr"> 9269 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9270" class="LineNr"> 9270 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9271" class="LineNr"> 9271 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9272" class="LineNr"> 9272 </span> 5d/pop-to-ebp +<span id="L9273" class="LineNr"> 9273 </span> c3/return +<span id="L9274" class="LineNr"> 9274 </span> +<span id="L9275" class="LineNr"> 9275 </span><span class="subxTest">test-compare-with-just-one-inout</span>: +<span id="L9276" class="LineNr"> 9276 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9277" class="LineNr"> 9277 </span> 55/push-ebp +<span id="L9278" class="LineNr"> 9278 </span> 89/<- %ebp 4/r32/esp +<span id="L9279" class="LineNr"> 9279 </span> <span class="subxComment"># setup</span> +<span id="L9280" class="LineNr"> 9280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9281" class="LineNr"> 9281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9282" class="LineNr"> 9282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9283" class="LineNr"> 9283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9284" class="LineNr"> 9284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9285" class="LineNr"> 9285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9286" class="LineNr"> 9286 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9287" class="LineNr"> 9287 </span> 68/push 0/imm32 +<span id="L9288" class="LineNr"> 9288 </span> 68/push 0/imm32 +<span id="L9289" class="LineNr"> 9289 </span> 89/<- %edx 4/r32/esp +<span id="L9290" class="LineNr"> 9290 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9291" class="LineNr"> 9291 </span> <span class="subxComment">#</span> +<span id="L9292" class="LineNr"> 9292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9293" class="LineNr"> 9293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L9294" class="LineNr"> 9294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x\n"</span>) +<span id="L9295" class="LineNr"> 9295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9296" class="LineNr"> 9296 </span> <span class="subxComment"># convert</span> +<span id="L9297" class="LineNr"> 9297 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9298" class="LineNr"> 9298 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9299" class="LineNr"> 9299 </span> <span class="subxComment"># restore ed</span> +<span id="L9300" class="LineNr"> 9300 </span> 89/<- %edx 4/r32/esp +<span id="L9301" class="LineNr"> 9301 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9302" class="LineNr"> 9302 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9303" class="Folded"> 9303 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9309" class="LineNr"> 9309 </span> <span class="subxComment"># check output</span> +<span id="L9310" class="LineNr"> 9310 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9275'>test-compare-with-just-one-inout</a>: output should be empty"</span>) +<span id="L9311" class="LineNr"> 9311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9275'>test-compare-with-just-one-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9312" class="LineNr"> 9312 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9313" class="LineNr"> 9313 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9275'>test-compare-with-just-one-inout</a>: exit status"</span>) +<span id="L9314" class="LineNr"> 9314 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9315" class="LineNr"> 9315 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9316" class="LineNr"> 9316 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9317" class="LineNr"> 9317 </span> 5d/pop-to-ebp +<span id="L9318" class="LineNr"> 9318 </span> c3/return +<span id="L9319" class="LineNr"> 9319 </span> +<span id="L9320" class="LineNr"> 9320 </span><span class="subxTest">test-compare-with-too-many-inouts</span>: +<span id="L9321" class="LineNr"> 9321 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9322" class="LineNr"> 9322 </span> 55/push-ebp +<span id="L9323" class="LineNr"> 9323 </span> 89/<- %ebp 4/r32/esp +<span id="L9324" class="LineNr"> 9324 </span> <span class="subxComment"># setup</span> +<span id="L9325" class="LineNr"> 9325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9326" class="LineNr"> 9326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9327" class="LineNr"> 9327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9328" class="LineNr"> 9328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9329" class="LineNr"> 9329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9330" class="LineNr"> 9330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9331" class="LineNr"> 9331 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9332" class="LineNr"> 9332 </span> 68/push 0/imm32 +<span id="L9333" class="LineNr"> 9333 </span> 68/push 0/imm32 +<span id="L9334" class="LineNr"> 9334 </span> 89/<- %edx 4/r32/esp +<span id="L9335" class="LineNr"> 9335 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9336" class="LineNr"> 9336 </span> <span class="subxComment">#</span> +<span id="L9337" class="LineNr"> 9337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9338" class="LineNr"> 9338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L9339" class="LineNr"> 9339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, 0, 0\n"</span>) +<span id="L9340" class="LineNr"> 9340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9341" class="LineNr"> 9341 </span> <span class="subxComment"># convert</span> +<span id="L9342" class="LineNr"> 9342 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9343" class="LineNr"> 9343 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9344" class="LineNr"> 9344 </span> <span class="subxComment"># restore ed</span> +<span id="L9345" class="LineNr"> 9345 </span> 89/<- %edx 4/r32/esp +<span id="L9346" class="LineNr"> 9346 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9347" class="LineNr"> 9347 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9348" class="Folded"> 9348 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9354" class="LineNr"> 9354 </span> <span class="subxComment"># check output</span> +<span id="L9355" class="LineNr"> 9355 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9320'>test-compare-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L9356" class="LineNr"> 9356 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L9320'>test-compare-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9357" class="LineNr"> 9357 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9358" class="LineNr"> 9358 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9320'>test-compare-with-too-many-inouts</a>: exit status"</span>) +<span id="L9359" class="LineNr"> 9359 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9360" class="LineNr"> 9360 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9361" class="LineNr"> 9361 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9362" class="LineNr"> 9362 </span> 5d/pop-to-ebp +<span id="L9363" class="LineNr"> 9363 </span> c3/return +<span id="L9364" class="LineNr"> 9364 </span> +<span id="L9365" class="LineNr"> 9365 </span><span class="subxTest">test-compare-with-output</span>: +<span id="L9366" class="LineNr"> 9366 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9367" class="LineNr"> 9367 </span> 55/push-ebp +<span id="L9368" class="LineNr"> 9368 </span> 89/<- %ebp 4/r32/esp +<span id="L9369" class="LineNr"> 9369 </span> <span class="subxComment"># setup</span> +<span id="L9370" class="LineNr"> 9370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9371" class="LineNr"> 9371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9372" class="LineNr"> 9372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9373" class="LineNr"> 9373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9374" class="LineNr"> 9374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9375" class="LineNr"> 9375 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9376" class="LineNr"> 9376 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9377" class="LineNr"> 9377 </span> 68/push 0/imm32 +<span id="L9378" class="LineNr"> 9378 </span> 68/push 0/imm32 +<span id="L9379" class="LineNr"> 9379 </span> 89/<- %edx 4/r32/esp +<span id="L9380" class="LineNr"> 9380 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9381" class="LineNr"> 9381 </span> <span class="subxComment">#</span> +<span id="L9382" class="LineNr"> 9382 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9383" class="LineNr"> 9383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L9384" class="LineNr"> 9384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L9385" class="LineNr"> 9385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- compare y, 0\n"</span>) +<span id="L9386" class="LineNr"> 9386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9387" class="LineNr"> 9387 </span> <span class="subxComment"># convert</span> +<span id="L9388" class="LineNr"> 9388 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9389" class="LineNr"> 9389 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9390" class="LineNr"> 9390 </span> <span class="subxComment"># restore ed</span> +<span id="L9391" class="LineNr"> 9391 </span> 89/<- %edx 4/r32/esp +<span id="L9392" class="LineNr"> 9392 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9393" class="LineNr"> 9393 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9394" class="Folded"> 9394 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9400" class="LineNr"> 9400 </span> <span class="subxComment"># check output</span> +<span id="L9401" class="LineNr"> 9401 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9365'>test-compare-with-output</a>: output should be empty"</span>) +<span id="L9402" class="LineNr"> 9402 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'compare' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L9365'>test-compare-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9403" class="LineNr"> 9403 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9404" class="LineNr"> 9404 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9365'>test-compare-with-output</a>: exit status"</span>) +<span id="L9405" class="LineNr"> 9405 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9406" class="LineNr"> 9406 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9407" class="LineNr"> 9407 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9408" class="LineNr"> 9408 </span> 5d/pop-to-ebp +<span id="L9409" class="LineNr"> 9409 </span> c3/return +<span id="L9410" class="LineNr"> 9410 </span> +<span id="L9411" class="LineNr"> 9411 </span><span class="subxTest">test-compare-invalid-value-to-address</span>: +<span id="L9412" class="LineNr"> 9412 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9413" class="LineNr"> 9413 </span> 55/push-ebp +<span id="L9414" class="LineNr"> 9414 </span> 89/<- %ebp 4/r32/esp +<span id="L9415" class="LineNr"> 9415 </span> <span class="subxComment"># setup</span> +<span id="L9416" class="LineNr"> 9416 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9417" class="LineNr"> 9417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9418" class="LineNr"> 9418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9419" class="LineNr"> 9419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9420" class="LineNr"> 9420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9421" class="LineNr"> 9421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9422" class="LineNr"> 9422 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9423" class="LineNr"> 9423 </span> 68/push 0/imm32 +<span id="L9424" class="LineNr"> 9424 </span> 68/push 0/imm32 +<span id="L9425" class="LineNr"> 9425 </span> 89/<- %edx 4/r32/esp +<span id="L9426" class="LineNr"> 9426 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9427" class="LineNr"> 9427 </span> <span class="subxComment">#</span> +<span id="L9428" class="LineNr"> 9428 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9429" class="LineNr"> 9429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L9430" class="LineNr"> 9430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr int)\n"</span>) +<span id="L9431" class="LineNr"> 9431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) +<span id="L9432" class="LineNr"> 9432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9433" class="LineNr"> 9433 </span> <span class="subxComment"># convert</span> +<span id="L9434" class="LineNr"> 9434 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9435" class="LineNr"> 9435 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9436" class="LineNr"> 9436 </span> <span class="subxComment"># restore ed</span> +<span id="L9437" class="LineNr"> 9437 </span> 89/<- %edx 4/r32/esp +<span id="L9438" class="LineNr"> 9438 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9439" class="LineNr"> 9439 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9440" class="Folded"> 9440 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9446" class="LineNr"> 9446 </span> <span class="subxComment"># check output</span> +<span id="L9447" class="LineNr"> 9447 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9411'>test-compare-invalid-value-to-address</a>: output should be empty"</span>) +<span id="L9448" class="LineNr"> 9448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: 'y' must be a non-addr non-offset scalar"</span> <span class="Constant">"F - <a href='mu.subx.html#L9411'>test-compare-invalid-value-to-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9449" class="LineNr"> 9449 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9450" class="LineNr"> 9450 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9411'>test-compare-invalid-value-to-address</a>: exit status"</span>) +<span id="L9451" class="LineNr"> 9451 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9452" class="LineNr"> 9452 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9453" class="LineNr"> 9453 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9454" class="LineNr"> 9454 </span> 5d/pop-to-ebp +<span id="L9455" class="LineNr"> 9455 </span> c3/return +<span id="L9456" class="LineNr"> 9456 </span> +<span id="L9457" class="LineNr"> 9457 </span><span class="subxTest">test-compare-address</span>: +<span id="L9458" class="LineNr"> 9458 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9459" class="LineNr"> 9459 </span> 55/push-ebp +<span id="L9460" class="LineNr"> 9460 </span> 89/<- %ebp 4/r32/esp +<span id="L9461" class="LineNr"> 9461 </span> <span class="subxComment"># setup</span> +<span id="L9462" class="LineNr"> 9462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9463" class="LineNr"> 9463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9464" class="LineNr"> 9464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9465" class="LineNr"> 9465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9466" class="LineNr"> 9466 </span> <span class="subxComment">#</span> +<span id="L9467" class="LineNr"> 9467 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9468" class="LineNr"> 9468 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L9469" class="LineNr"> 9469 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L9470" class="LineNr"> 9470 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) +<span id="L9471" class="LineNr"> 9471 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9472" class="LineNr"> 9472 </span> <span class="subxComment"># convert</span> +<span id="L9473" class="LineNr"> 9473 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9474" class="LineNr"> 9474 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9475" class="LineNr"> 9475 </span> <span class="subxComment"># no errors</span> +<span id="L9476" class="LineNr"> 9476 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9477" class="LineNr"> 9477 </span> 5d/pop-to-ebp +<span id="L9478" class="LineNr"> 9478 </span> c3/return +<span id="L9479" class="LineNr"> 9479 </span> +<span id="L9480" class="LineNr"> 9480 </span><span class="subxTest">test-compare-deref-address</span>: +<span id="L9481" class="LineNr"> 9481 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9482" class="LineNr"> 9482 </span> 55/push-ebp +<span id="L9483" class="LineNr"> 9483 </span> 89/<- %ebp 4/r32/esp +<span id="L9484" class="LineNr"> 9484 </span> <span class="subxComment"># setup</span> +<span id="L9485" class="LineNr"> 9485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9486" class="LineNr"> 9486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9487" class="LineNr"> 9487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9488" class="LineNr"> 9488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9489" class="LineNr"> 9489 </span> <span class="subxComment">#</span> +<span id="L9490" class="LineNr"> 9490 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9491" class="LineNr"> 9491 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L9492" class="LineNr"> 9492 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) +<span id="L9493" class="LineNr"> 9493 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare *y, x\n"</span>) +<span id="L9494" class="LineNr"> 9494 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9495" class="LineNr"> 9495 </span> <span class="subxComment"># convert</span> +<span id="L9496" class="LineNr"> 9496 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9497" class="LineNr"> 9497 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9498" class="LineNr"> 9498 </span> <span class="subxComment"># no errors</span> +<span id="L9499" class="LineNr"> 9499 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9500" class="LineNr"> 9500 </span> 5d/pop-to-ebp +<span id="L9501" class="LineNr"> 9501 </span> c3/return +<span id="L9502" class="LineNr"> 9502 </span> +<span id="L9503" class="LineNr"> 9503 </span><span class="subxTest">test-compare-two-vars-in-memory</span>: +<span id="L9504" class="LineNr"> 9504 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9505" class="LineNr"> 9505 </span> 55/push-ebp +<span id="L9506" class="LineNr"> 9506 </span> 89/<- %ebp 4/r32/esp +<span id="L9507" class="LineNr"> 9507 </span> <span class="subxComment"># setup</span> +<span id="L9508" class="LineNr"> 9508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9509" class="LineNr"> 9509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9510" class="LineNr"> 9510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9511" class="LineNr"> 9511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9512" class="LineNr"> 9512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9513" class="LineNr"> 9513 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9514" class="LineNr"> 9514 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9515" class="LineNr"> 9515 </span> 68/push 0/imm32 +<span id="L9516" class="LineNr"> 9516 </span> 68/push 0/imm32 +<span id="L9517" class="LineNr"> 9517 </span> 89/<- %edx 4/r32/esp +<span id="L9518" class="LineNr"> 9518 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9519" class="LineNr"> 9519 </span> <span class="subxComment">#</span> +<span id="L9520" class="LineNr"> 9520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9521" class="LineNr"> 9521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L9522" class="LineNr"> 9522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, x\n"</span>) +<span id="L9523" class="LineNr"> 9523 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9524" class="LineNr"> 9524 </span> <span class="subxComment"># convert</span> +<span id="L9525" class="LineNr"> 9525 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9526" class="LineNr"> 9526 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9527" class="LineNr"> 9527 </span> <span class="subxComment"># restore ed</span> +<span id="L9528" class="LineNr"> 9528 </span> 89/<- %edx 4/r32/esp +<span id="L9529" class="LineNr"> 9529 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9530" class="LineNr"> 9530 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9531" class="Folded"> 9531 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9537" class="LineNr"> 9537 </span> <span class="subxComment"># check output</span> +<span id="L9538" class="LineNr"> 9538 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9503'>test-compare-two-vars-in-memory</a>: output should be empty"</span>) +<span id="L9539" class="LineNr"> 9539 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9503'>test-compare-two-vars-in-memory</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9540" class="LineNr"> 9540 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9541" class="LineNr"> 9541 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9503'>test-compare-two-vars-in-memory</a>: exit status"</span>) +<span id="L9542" class="LineNr"> 9542 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9543" class="LineNr"> 9543 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9544" class="LineNr"> 9544 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9545" class="LineNr"> 9545 </span> 5d/pop-to-ebp +<span id="L9546" class="LineNr"> 9546 </span> c3/return +<span id="L9547" class="LineNr"> 9547 </span> +<span id="L9548" class="LineNr"> 9548 </span><span class="subxTest">test-compare-non-scalar</span>: +<span id="L9549" class="LineNr"> 9549 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9550" class="LineNr"> 9550 </span> 55/push-ebp +<span id="L9551" class="LineNr"> 9551 </span> 89/<- %ebp 4/r32/esp +<span id="L9552" class="LineNr"> 9552 </span> <span class="subxComment"># setup</span> +<span id="L9553" class="LineNr"> 9553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9554" class="LineNr"> 9554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9555" class="LineNr"> 9555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9556" class="LineNr"> 9556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9557" class="LineNr"> 9557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9558" class="LineNr"> 9558 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9559" class="LineNr"> 9559 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9560" class="LineNr"> 9560 </span> 68/push 0/imm32 +<span id="L9561" class="LineNr"> 9561 </span> 68/push 0/imm32 +<span id="L9562" class="LineNr"> 9562 </span> 89/<- %edx 4/r32/esp +<span id="L9563" class="LineNr"> 9563 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9564" class="LineNr"> 9564 </span> <span class="subxComment">#</span> +<span id="L9565" class="LineNr"> 9565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9566" class="LineNr"> 9566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (handle int)\n"</span>) +<span id="L9567" class="LineNr"> 9567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L9568" class="LineNr"> 9568 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare y, x\n"</span>) +<span id="L9569" class="LineNr"> 9569 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9570" class="LineNr"> 9570 </span> <span class="subxComment"># convert</span> +<span id="L9571" class="LineNr"> 9571 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9572" class="LineNr"> 9572 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9573" class="LineNr"> 9573 </span> <span class="subxComment"># restore ed</span> +<span id="L9574" class="LineNr"> 9574 </span> 89/<- %edx 4/r32/esp +<span id="L9575" class="LineNr"> 9575 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9576" class="LineNr"> 9576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9577" class="Folded"> 9577 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9583" class="LineNr"> 9583 </span> <span class="subxComment"># check output</span> +<span id="L9584" class="LineNr"> 9584 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9548'>test-compare-non-scalar</a>: output should be empty"</span>) +<span id="L9585" class="LineNr"> 9585 </span><span class="CommentedCode">#? (check-next-stream-line-equal _test-error-stream "fn foo: stmt compare: 'x' is too large to compare" "F - test-compare-non-scalar: error message")</span> +<span id="L9586" class="LineNr"> 9586 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: both inouts are in memory"</span> <span class="Constant">"F - <a href='mu.subx.html#L9548'>test-compare-non-scalar</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9587" class="LineNr"> 9587 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9588" class="LineNr"> 9588 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9548'>test-compare-non-scalar</a>: exit status"</span>) +<span id="L9589" class="LineNr"> 9589 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9590" class="LineNr"> 9590 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9591" class="LineNr"> 9591 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9592" class="LineNr"> 9592 </span> 5d/pop-to-ebp +<span id="L9593" class="LineNr"> 9593 </span> c3/return +<span id="L9594" class="LineNr"> 9594 </span> +<span id="L9595" class="LineNr"> 9595 </span><span class="subxTest">test-compare-with-string-literal</span>: +<span id="L9596" class="LineNr"> 9596 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9597" class="LineNr"> 9597 </span> 55/push-ebp +<span id="L9598" class="LineNr"> 9598 </span> 89/<- %ebp 4/r32/esp +<span id="L9599" class="LineNr"> 9599 </span> <span class="subxComment"># setup</span> +<span id="L9600" class="LineNr"> 9600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9601" class="LineNr"> 9601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9602" class="LineNr"> 9602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9603" class="LineNr"> 9603 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9604" class="LineNr"> 9604 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9605" class="LineNr"> 9605 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9606" class="LineNr"> 9606 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9607" class="LineNr"> 9607 </span> 68/push 0/imm32 +<span id="L9608" class="LineNr"> 9608 </span> 68/push 0/imm32 +<span id="L9609" class="LineNr"> 9609 </span> 89/<- %edx 4/r32/esp +<span id="L9610" class="LineNr"> 9610 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9611" class="LineNr"> 9611 </span> <span class="subxComment">#</span> +<span id="L9612" class="LineNr"> 9612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9613" class="LineNr"> 9613 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr array byte) <- copy 0\n"</span>) +<span id="L9614" class="LineNr"> 9614 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compare x, \"</span>abc\<span class="Constant">"\n"</span>) +<span id="L9615" class="LineNr"> 9615 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9616" class="LineNr"> 9616 </span> <span class="subxComment"># convert</span> +<span id="L9617" class="LineNr"> 9617 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9618" class="LineNr"> 9618 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9619" class="LineNr"> 9619 </span> <span class="subxComment"># restore ed</span> +<span id="L9620" class="LineNr"> 9620 </span> 89/<- %edx 4/r32/esp +<span id="L9621" class="LineNr"> 9621 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9622" class="LineNr"> 9622 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9623" class="Folded"> 9623 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9629" class="LineNr"> 9629 </span> <span class="subxComment"># check output</span> +<span id="L9630" class="LineNr"> 9630 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9595'>test-compare-with-string-literal</a>: output should be empty"</span>) +<span id="L9631" class="LineNr"> 9631 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compare: string literal \"</span>abc\<span class="Constant">" is not supported; use the <a href='105string-equal.subx.html#L15'>string-equal?</a> function"</span> <span class="Constant">"F - <a href='mu.subx.html#L9595'>test-compare-with-string-literal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9632" class="LineNr"> 9632 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9633" class="LineNr"> 9633 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9595'>test-compare-with-string-literal</a>: exit status"</span>) +<span id="L9634" class="LineNr"> 9634 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9635" class="LineNr"> 9635 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9636" class="LineNr"> 9636 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9637" class="LineNr"> 9637 </span> 5d/pop-to-ebp +<span id="L9638" class="LineNr"> 9638 </span> c3/return +<span id="L9639" class="LineNr"> 9639 </span> +<span id="L9640" class="LineNr"> 9640 </span><span class="subxTest">test-address-with-no-inout</span>: +<span id="L9641" class="LineNr"> 9641 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9642" class="LineNr"> 9642 </span> 55/push-ebp +<span id="L9643" class="LineNr"> 9643 </span> 89/<- %ebp 4/r32/esp +<span id="L9644" class="LineNr"> 9644 </span> <span class="subxComment"># setup</span> +<span id="L9645" class="LineNr"> 9645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9646" class="LineNr"> 9646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9647" class="LineNr"> 9647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9648" class="LineNr"> 9648 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9649" class="LineNr"> 9649 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9650" class="LineNr"> 9650 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9651" class="LineNr"> 9651 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9652" class="LineNr"> 9652 </span> 68/push 0/imm32 +<span id="L9653" class="LineNr"> 9653 </span> 68/push 0/imm32 +<span id="L9654" class="LineNr"> 9654 </span> 89/<- %edx 4/r32/esp +<span id="L9655" class="LineNr"> 9655 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9656" class="LineNr"> 9656 </span> <span class="subxComment">#</span> +<span id="L9657" class="LineNr"> 9657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9658" class="LineNr"> 9658 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address\n"</span>) +<span id="L9659" class="LineNr"> 9659 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9660" class="LineNr"> 9660 </span> <span class="subxComment"># convert</span> +<span id="L9661" class="LineNr"> 9661 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9662" class="LineNr"> 9662 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9663" class="LineNr"> 9663 </span> <span class="subxComment"># restore ed</span> +<span id="L9664" class="LineNr"> 9664 </span> 89/<- %edx 4/r32/esp +<span id="L9665" class="LineNr"> 9665 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9666" class="LineNr"> 9666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9667" class="Folded"> 9667 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9673" class="LineNr"> 9673 </span> <span class="subxComment"># check output</span> +<span id="L9674" class="LineNr"> 9674 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9640'>test-address-with-no-inout</a>: output should be empty"</span>) +<span id="L9675" class="LineNr"> 9675 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9640'>test-address-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9676" class="LineNr"> 9676 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9677" class="LineNr"> 9677 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9640'>test-address-with-no-inout</a>: exit status"</span>) +<span id="L9678" class="LineNr"> 9678 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9679" class="LineNr"> 9679 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9680" class="LineNr"> 9680 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9681" class="LineNr"> 9681 </span> 5d/pop-to-ebp +<span id="L9682" class="LineNr"> 9682 </span> c3/return +<span id="L9683" class="LineNr"> 9683 </span> +<span id="L9684" class="LineNr"> 9684 </span><span class="subxTest">test-address-with-multiple-inouts</span>: +<span id="L9685" class="LineNr"> 9685 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9686" class="LineNr"> 9686 </span> 55/push-ebp +<span id="L9687" class="LineNr"> 9687 </span> 89/<- %ebp 4/r32/esp +<span id="L9688" class="LineNr"> 9688 </span> <span class="subxComment"># setup</span> +<span id="L9689" class="LineNr"> 9689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9690" class="LineNr"> 9690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9691" class="LineNr"> 9691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9692" class="LineNr"> 9692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9693" class="LineNr"> 9693 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9694" class="LineNr"> 9694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9695" class="LineNr"> 9695 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9696" class="LineNr"> 9696 </span> 68/push 0/imm32 +<span id="L9697" class="LineNr"> 9697 </span> 68/push 0/imm32 +<span id="L9698" class="LineNr"> 9698 </span> 89/<- %edx 4/r32/esp +<span id="L9699" class="LineNr"> 9699 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9700" class="LineNr"> 9700 </span> <span class="subxComment">#</span> +<span id="L9701" class="LineNr"> 9701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9702" class="LineNr"> 9702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- address 0, 0\n"</span>) +<span id="L9703" class="LineNr"> 9703 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9704" class="LineNr"> 9704 </span> <span class="subxComment"># convert</span> +<span id="L9705" class="LineNr"> 9705 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9706" class="LineNr"> 9706 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9707" class="LineNr"> 9707 </span> <span class="subxComment"># restore ed</span> +<span id="L9708" class="LineNr"> 9708 </span> 89/<- %edx 4/r32/esp +<span id="L9709" class="LineNr"> 9709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9710" class="LineNr"> 9710 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9711" class="Folded"> 9711 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9717" class="LineNr"> 9717 </span> <span class="subxComment"># check output</span> +<span id="L9718" class="LineNr"> 9718 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9684'>test-address-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L9719" class="LineNr"> 9719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L9684'>test-address-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9720" class="LineNr"> 9720 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9721" class="LineNr"> 9721 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9684'>test-address-with-multiple-inouts</a>: exit status"</span>) +<span id="L9722" class="LineNr"> 9722 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9723" class="LineNr"> 9723 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9724" class="LineNr"> 9724 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9725" class="LineNr"> 9725 </span> 5d/pop-to-ebp +<span id="L9726" class="LineNr"> 9726 </span> c3/return +<span id="L9727" class="LineNr"> 9727 </span> +<span id="L9728" class="LineNr"> 9728 </span><span class="subxTest">test-address-with-no-output</span>: +<span id="L9729" class="LineNr"> 9729 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9730" class="LineNr"> 9730 </span> 55/push-ebp +<span id="L9731" class="LineNr"> 9731 </span> 89/<- %ebp 4/r32/esp +<span id="L9732" class="LineNr"> 9732 </span> <span class="subxComment"># setup</span> +<span id="L9733" class="LineNr"> 9733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9734" class="LineNr"> 9734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9735" class="LineNr"> 9735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9736" class="LineNr"> 9736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9737" class="LineNr"> 9737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9738" class="LineNr"> 9738 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9739" class="LineNr"> 9739 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9740" class="LineNr"> 9740 </span> 68/push 0/imm32 +<span id="L9741" class="LineNr"> 9741 </span> 68/push 0/imm32 +<span id="L9742" class="LineNr"> 9742 </span> 89/<- %edx 4/r32/esp +<span id="L9743" class="LineNr"> 9743 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9744" class="LineNr"> 9744 </span> <span class="subxComment">#</span> +<span id="L9745" class="LineNr"> 9745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9746" class="LineNr"> 9746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" address 0\n"</span>) +<span id="L9747" class="LineNr"> 9747 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9748" class="LineNr"> 9748 </span> <span class="subxComment"># convert</span> +<span id="L9749" class="LineNr"> 9749 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9750" class="LineNr"> 9750 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9751" class="LineNr"> 9751 </span> <span class="subxComment"># restore ed</span> +<span id="L9752" class="LineNr"> 9752 </span> 89/<- %edx 4/r32/esp +<span id="L9753" class="LineNr"> 9753 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9754" class="LineNr"> 9754 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9755" class="Folded"> 9755 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9761" class="LineNr"> 9761 </span> <span class="subxComment"># check output</span> +<span id="L9762" class="LineNr"> 9762 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9728'>test-address-with-no-output</a>: output should be empty"</span>) +<span id="L9763" class="LineNr"> 9763 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9728'>test-address-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9764" class="LineNr"> 9764 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9765" class="LineNr"> 9765 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9728'>test-address-with-no-output</a>: exit status"</span>) +<span id="L9766" class="LineNr"> 9766 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9767" class="LineNr"> 9767 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9768" class="LineNr"> 9768 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9769" class="LineNr"> 9769 </span> 5d/pop-to-ebp +<span id="L9770" class="LineNr"> 9770 </span> c3/return +<span id="L9771" class="LineNr"> 9771 </span> +<span id="L9772" class="LineNr"> 9772 </span><span class="subxTest">test-address-with-multiple-outputs</span>: +<span id="L9773" class="LineNr"> 9773 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9774" class="LineNr"> 9774 </span> 55/push-ebp +<span id="L9775" class="LineNr"> 9775 </span> 89/<- %ebp 4/r32/esp +<span id="L9776" class="LineNr"> 9776 </span> <span class="subxComment"># setup</span> +<span id="L9777" class="LineNr"> 9777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9778" class="LineNr"> 9778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9779" class="LineNr"> 9779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9780" class="LineNr"> 9780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9781" class="LineNr"> 9781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9782" class="LineNr"> 9782 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9783" class="LineNr"> 9783 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9784" class="LineNr"> 9784 </span> 68/push 0/imm32 +<span id="L9785" class="LineNr"> 9785 </span> 68/push 0/imm32 +<span id="L9786" class="LineNr"> 9786 </span> 89/<- %edx 4/r32/esp +<span id="L9787" class="LineNr"> 9787 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9788" class="LineNr"> 9788 </span> <span class="subxComment">#</span> +<span id="L9789" class="LineNr"> 9789 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9790" class="LineNr"> 9790 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L9791" class="LineNr"> 9791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: boolean <- copy 0\n"</span>) +<span id="L9792" class="LineNr"> 9792 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- address 0\n"</span>) +<span id="L9793" class="LineNr"> 9793 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9794" class="LineNr"> 9794 </span> <span class="subxComment"># convert</span> +<span id="L9795" class="LineNr"> 9795 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9796" class="LineNr"> 9796 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9797" class="LineNr"> 9797 </span> <span class="subxComment"># restore ed</span> +<span id="L9798" class="LineNr"> 9798 </span> 89/<- %edx 4/r32/esp +<span id="L9799" class="LineNr"> 9799 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9800" class="LineNr"> 9800 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9801" class="Folded"> 9801 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9807" class="LineNr"> 9807 </span> <span class="subxComment"># check output</span> +<span id="L9808" class="LineNr"> 9808 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9772'>test-address-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L9809" class="LineNr"> 9809 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'address' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L9772'>test-address-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9810" class="LineNr"> 9810 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9811" class="LineNr"> 9811 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9772'>test-address-with-multiple-outputs</a>: exit status"</span>) +<span id="L9812" class="LineNr"> 9812 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9813" class="LineNr"> 9813 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9814" class="LineNr"> 9814 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9815" class="LineNr"> 9815 </span> 5d/pop-to-ebp +<span id="L9816" class="LineNr"> 9816 </span> c3/return +<span id="L9817" class="LineNr"> 9817 </span> +<span id="L9818" class="LineNr"> 9818 </span><span class="subxComment"># silly but it works</span> +<span id="L9819" class="LineNr"> 9819 </span><span class="subxTest">test-address-of-deref</span>: +<span id="L9820" class="LineNr"> 9820 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9821" class="LineNr"> 9821 </span> 55/push-ebp +<span id="L9822" class="LineNr"> 9822 </span> 89/<- %ebp 4/r32/esp +<span id="L9823" class="LineNr"> 9823 </span> <span class="subxComment"># setup</span> +<span id="L9824" class="LineNr"> 9824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9825" class="LineNr"> 9825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9826" class="LineNr"> 9826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9827" class="LineNr"> 9827 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9828" class="LineNr"> 9828 </span> <span class="subxComment">#</span> +<span id="L9829" class="LineNr"> 9829 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9830" class="LineNr"> 9830 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L9831" class="LineNr"> 9831 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- address *x\n"</span>) +<span id="L9832" class="LineNr"> 9832 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9833" class="LineNr"> 9833 </span> <span class="subxComment"># convert</span> +<span id="L9834" class="LineNr"> 9834 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9835" class="LineNr"> 9835 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9836" class="LineNr"> 9836 </span> <span class="subxComment"># no errors</span> +<span id="L9837" class="LineNr"> 9837 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9838" class="LineNr"> 9838 </span> 5d/pop-to-ebp +<span id="L9839" class="LineNr"> 9839 </span> c3/return +<span id="L9840" class="LineNr"> 9840 </span> +<span id="L9841" class="LineNr"> 9841 </span><span class="subxTest">test-address-to-non-register</span>: +<span id="L9842" class="LineNr"> 9842 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9843" class="LineNr"> 9843 </span> 55/push-ebp +<span id="L9844" class="LineNr"> 9844 </span> 89/<- %ebp 4/r32/esp +<span id="L9845" class="LineNr"> 9845 </span> <span class="subxComment"># setup</span> +<span id="L9846" class="LineNr"> 9846 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9847" class="LineNr"> 9847 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9848" class="LineNr"> 9848 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9849" class="LineNr"> 9849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9850" class="LineNr"> 9850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9851" class="LineNr"> 9851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9852" class="LineNr"> 9852 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9853" class="LineNr"> 9853 </span> 68/push 0/imm32 +<span id="L9854" class="LineNr"> 9854 </span> 68/push 0/imm32 +<span id="L9855" class="LineNr"> 9855 </span> 89/<- %edx 4/r32/esp +<span id="L9856" class="LineNr"> 9856 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9857" class="LineNr"> 9857 </span> <span class="subxComment">#</span> +<span id="L9858" class="LineNr"> 9858 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9859" class="LineNr"> 9859 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L9860" class="LineNr"> 9860 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- address 0\n"</span>) +<span id="L9861" class="LineNr"> 9861 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9862" class="LineNr"> 9862 </span> <span class="subxComment"># convert</span> +<span id="L9863" class="LineNr"> 9863 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9864" class="LineNr"> 9864 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9865" class="LineNr"> 9865 </span> <span class="subxComment"># restore ed</span> +<span id="L9866" class="LineNr"> 9866 </span> 89/<- %edx 4/r32/esp +<span id="L9867" class="LineNr"> 9867 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9868" class="LineNr"> 9868 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9869" class="Folded"> 9869 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9875" class="LineNr"> 9875 </span> <span class="subxComment"># check output</span> +<span id="L9876" class="LineNr"> 9876 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9841'>test-address-to-non-register</a>: output should be empty"</span>) +<span id="L9877" class="LineNr"> 9877 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L9841'>test-address-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9878" class="LineNr"> 9878 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9879" class="LineNr"> 9879 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9841'>test-address-to-non-register</a>: exit status"</span>) +<span id="L9880" class="LineNr"> 9880 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9881" class="LineNr"> 9881 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9882" class="LineNr"> 9882 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9883" class="LineNr"> 9883 </span> 5d/pop-to-ebp +<span id="L9884" class="LineNr"> 9884 </span> c3/return +<span id="L9885" class="LineNr"> 9885 </span> +<span id="L9886" class="LineNr"> 9886 </span><span class="subxTest">test-address-with-wrong-type</span>: +<span id="L9887" class="LineNr"> 9887 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9888" class="LineNr"> 9888 </span> 55/push-ebp +<span id="L9889" class="LineNr"> 9889 </span> 89/<- %ebp 4/r32/esp +<span id="L9890" class="LineNr"> 9890 </span> <span class="subxComment"># setup</span> +<span id="L9891" class="LineNr"> 9891 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9892" class="LineNr"> 9892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9893" class="LineNr"> 9893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9894" class="LineNr"> 9894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9895" class="LineNr"> 9895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9896" class="LineNr"> 9896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9897" class="LineNr"> 9897 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9898" class="LineNr"> 9898 </span> 68/push 0/imm32 +<span id="L9899" class="LineNr"> 9899 </span> 68/push 0/imm32 +<span id="L9900" class="LineNr"> 9900 </span> 89/<- %edx 4/r32/esp +<span id="L9901" class="LineNr"> 9901 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9902" class="LineNr"> 9902 </span> <span class="subxComment">#</span> +<span id="L9903" class="LineNr"> 9903 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9904" class="LineNr"> 9904 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L9905" class="LineNr"> 9905 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr boolean) <- address x\n"</span>) +<span id="L9906" class="LineNr"> 9906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9907" class="LineNr"> 9907 </span> <span class="subxComment"># convert</span> +<span id="L9908" class="LineNr"> 9908 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L9909" class="LineNr"> 9909 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L9910" class="LineNr"> 9910 </span> <span class="subxComment"># restore ed</span> +<span id="L9911" class="LineNr"> 9911 </span> 89/<- %edx 4/r32/esp +<span id="L9912" class="LineNr"> 9912 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9913" class="LineNr"> 9913 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L9914" class="Folded"> 9914 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L9920" class="LineNr"> 9920 </span> <span class="subxComment"># check output</span> +<span id="L9921" class="LineNr"> 9921 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9886'>test-address-with-wrong-type</a>: output should be empty"</span>) +<span id="L9922" class="LineNr"> 9922 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt address: output 'y' cannot hold address of 'x'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9886'>test-address-with-wrong-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L9923" class="LineNr"> 9923 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L9924" class="LineNr"> 9924 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9886'>test-address-with-wrong-type</a>: exit status"</span>) +<span id="L9925" class="LineNr"> 9925 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L9926" class="LineNr"> 9926 </span> 81 0/subop/add %esp 8/imm32 +<span id="L9927" class="LineNr"> 9927 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9928" class="LineNr"> 9928 </span> 5d/pop-to-ebp +<span id="L9929" class="LineNr"> 9929 </span> c3/return +<span id="L9930" class="LineNr"> 9930 </span> +<span id="L9931" class="LineNr"> 9931 </span><span class="subxTest">test-address-with-right-type-for-array</span>: +<span id="L9932" class="LineNr"> 9932 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9933" class="LineNr"> 9933 </span> 55/push-ebp +<span id="L9934" class="LineNr"> 9934 </span> 89/<- %ebp 4/r32/esp +<span id="L9935" class="LineNr"> 9935 </span> <span class="subxComment"># setup</span> +<span id="L9936" class="LineNr"> 9936 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9937" class="LineNr"> 9937 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9938" class="LineNr"> 9938 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9939" class="LineNr"> 9939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9940" class="LineNr"> 9940 </span> <span class="subxComment">#</span> +<span id="L9941" class="LineNr"> 9941 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9942" class="LineNr"> 9942 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (array int 3)\n"</span>) +<span id="L9943" class="LineNr"> 9943 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr array int) <- address x\n"</span>) +<span id="L9944" class="LineNr"> 9944 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9945" class="LineNr"> 9945 </span> <span class="subxComment"># convert</span> +<span id="L9946" class="LineNr"> 9946 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9947" class="LineNr"> 9947 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9948" class="LineNr"> 9948 </span> <span class="subxComment"># no errors</span> +<span id="L9949" class="LineNr"> 9949 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9950" class="LineNr"> 9950 </span> 89/<- %esp 5/r32/ebp +<span id="L9951" class="LineNr"> 9951 </span> 5d/pop-to-ebp +<span id="L9952" class="LineNr"> 9952 </span> c3/return +<span id="L9953" class="LineNr"> 9953 </span> +<span id="L9954" class="LineNr"> 9954 </span><span class="subxTest">test-address-with-right-type-for-stream</span>: +<span id="L9955" class="LineNr"> 9955 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9956" class="LineNr"> 9956 </span> 55/push-ebp +<span id="L9957" class="LineNr"> 9957 </span> 89/<- %ebp 4/r32/esp +<span id="L9958" class="LineNr"> 9958 </span> <span class="subxComment"># setup</span> +<span id="L9959" class="LineNr"> 9959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9960" class="LineNr"> 9960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9961" class="LineNr"> 9961 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9962" class="LineNr"> 9962 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9963" class="LineNr"> 9963 </span> <span class="subxComment">#</span> +<span id="L9964" class="LineNr"> 9964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9965" class="LineNr"> 9965 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (stream int 3)\n"</span>) +<span id="L9966" class="LineNr"> 9966 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: (addr stream int) <- address x\n"</span>) +<span id="L9967" class="LineNr"> 9967 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9968" class="LineNr"> 9968 </span> <span class="subxComment"># convert</span> +<span id="L9969" class="LineNr"> 9969 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L9970" class="LineNr"> 9970 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L9971" class="LineNr"> 9971 </span> <span class="subxComment"># no errors</span> +<span id="L9972" class="LineNr"> 9972 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L9973" class="LineNr"> 9973 </span> 89/<- %esp 5/r32/ebp +<span id="L9974" class="LineNr"> 9974 </span> 5d/pop-to-ebp +<span id="L9975" class="LineNr"> 9975 </span> c3/return +<span id="L9976" class="LineNr"> 9976 </span> +<span id="L9977" class="LineNr"> 9977 </span><span class="subxTest">test-get-with-wrong-field</span>: +<span id="L9978" class="LineNr"> 9978 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L9979" class="LineNr"> 9979 </span> 55/push-ebp +<span id="L9980" class="LineNr"> 9980 </span> 89/<- %ebp 4/r32/esp +<span id="L9981" class="LineNr"> 9981 </span> <span class="subxComment"># setup</span> +<span id="L9982" class="LineNr"> 9982 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L9983" class="LineNr"> 9983 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L9984" class="LineNr"> 9984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L9985" class="LineNr"> 9985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L9986" class="LineNr"> 9986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L9987" class="LineNr"> 9987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L9988" class="LineNr"> 9988 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L9989" class="LineNr"> 9989 </span> 68/push 0/imm32 +<span id="L9990" class="LineNr"> 9990 </span> 68/push 0/imm32 +<span id="L9991" class="LineNr"> 9991 </span> 89/<- %edx 4/r32/esp +<span id="L9992" class="LineNr"> 9992 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L9993" class="LineNr"> 9993 </span> <span class="subxComment">#</span> +<span id="L9994" class="LineNr"> 9994 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L9995" class="LineNr"> 9995 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L9996" class="LineNr"> 9996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L9997" class="LineNr"> 9997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L9998" class="LineNr"> 9998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L9999" class="LineNr"> 9999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10000" class="LineNr">10000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10001" class="LineNr">10001 </span> <span class="subxComment"># convert</span> +<span id="L10002" class="LineNr">10002 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10003" class="LineNr">10003 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10004" class="LineNr">10004 </span> <span class="subxComment"># restore ed</span> +<span id="L10005" class="LineNr">10005 </span> 89/<- %edx 4/r32/esp +<span id="L10006" class="LineNr">10006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10007" class="LineNr">10007 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10008" class="Folded">10008 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10014" class="LineNr">10014 </span> <span class="subxComment"># check output</span> +<span id="L10015" class="LineNr">10015 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L9977'>test-get-with-wrong-field</a>: output should be empty"</span>) +<span id="L10016" class="LineNr">10016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: type 't' has no member called 'y'"</span> <span class="Constant">"F - <a href='mu.subx.html#L9977'>test-get-with-wrong-field</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10017" class="LineNr">10017 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10018" class="LineNr">10018 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L9977'>test-get-with-wrong-field</a>: exit status"</span>) +<span id="L10019" class="LineNr">10019 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10020" class="LineNr">10020 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10021" class="LineNr">10021 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10022" class="LineNr">10022 </span> 5d/pop-to-ebp +<span id="L10023" class="LineNr">10023 </span> c3/return +<span id="L10024" class="LineNr">10024 </span> +<span id="L10025" class="LineNr">10025 </span><span class="subxTest">test-get-with-wrong-base-type</span>: +<span id="L10026" class="LineNr">10026 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10027" class="LineNr">10027 </span> 55/push-ebp +<span id="L10028" class="LineNr">10028 </span> 89/<- %ebp 4/r32/esp +<span id="L10029" class="LineNr">10029 </span> <span class="subxComment"># setup</span> +<span id="L10030" class="LineNr">10030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10031" class="LineNr">10031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10032" class="LineNr">10032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10033" class="LineNr">10033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10034" class="LineNr">10034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10035" class="LineNr">10035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10036" class="LineNr">10036 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10037" class="LineNr">10037 </span> 68/push 0/imm32 +<span id="L10038" class="LineNr">10038 </span> 68/push 0/imm32 +<span id="L10039" class="LineNr">10039 </span> 89/<- %edx 4/r32/esp +<span id="L10040" class="LineNr">10040 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10041" class="LineNr">10041 </span> <span class="subxComment">#</span> +<span id="L10042" class="LineNr">10042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10043" class="LineNr">10043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L10044" class="LineNr">10044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10045" class="LineNr">10045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10046" class="LineNr">10046 </span> <span class="subxComment"># convert</span> +<span id="L10047" class="LineNr">10047 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10048" class="LineNr">10048 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10049" class="LineNr">10049 </span> <span class="subxComment"># restore ed</span> +<span id="L10050" class="LineNr">10050 </span> 89/<- %edx 4/r32/esp +<span id="L10051" class="LineNr">10051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10052" class="LineNr">10052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10053" class="Folded">10053 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10059" class="LineNr">10059 </span> <span class="subxComment"># check output</span> +<span id="L10060" class="LineNr">10060 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10025'>test-get-with-wrong-base-type</a>: output should be empty"</span>) +<span id="L10061" class="LineNr">10061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L10025'>test-get-with-wrong-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10062" class="LineNr">10062 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10063" class="LineNr">10063 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10025'>test-get-with-wrong-base-type</a>: exit status"</span>) +<span id="L10064" class="LineNr">10064 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10065" class="LineNr">10065 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10066" class="LineNr">10066 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10067" class="LineNr">10067 </span> 5d/pop-to-ebp +<span id="L10068" class="LineNr">10068 </span> c3/return +<span id="L10069" class="LineNr">10069 </span> +<span id="L10070" class="LineNr">10070 </span><span class="subxTest">test-get-with-wrong-base-type-2</span>: +<span id="L10071" class="LineNr">10071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10072" class="LineNr">10072 </span> 55/push-ebp +<span id="L10073" class="LineNr">10073 </span> 89/<- %ebp 4/r32/esp +<span id="L10074" class="LineNr">10074 </span> <span class="subxComment"># setup</span> +<span id="L10075" class="LineNr">10075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10076" class="LineNr">10076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10077" class="LineNr">10077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10078" class="LineNr">10078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10079" class="LineNr">10079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10080" class="LineNr">10080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10081" class="LineNr">10081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10082" class="LineNr">10082 </span> 68/push 0/imm32 +<span id="L10083" class="LineNr">10083 </span> 68/push 0/imm32 +<span id="L10084" class="LineNr">10084 </span> 89/<- %edx 4/r32/esp +<span id="L10085" class="LineNr">10085 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10086" class="LineNr">10086 </span> <span class="subxComment">#</span> +<span id="L10087" class="LineNr">10087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10088" class="LineNr">10088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr t)\n"</span>) +<span id="L10089" class="LineNr">10089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10090" class="LineNr">10090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10091" class="LineNr">10091 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10092" class="LineNr">10092 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10093" class="LineNr">10093 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10094" class="LineNr">10094 </span> <span class="subxComment"># convert</span> +<span id="L10095" class="LineNr">10095 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10096" class="LineNr">10096 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10097" class="LineNr">10097 </span> <span class="subxComment"># restore ed</span> +<span id="L10098" class="LineNr">10098 </span> 89/<- %edx 4/r32/esp +<span id="L10099" class="LineNr">10099 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10100" class="LineNr">10100 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10101" class="Folded">10101 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10107" class="LineNr">10107 </span> <span class="subxComment"># check output</span> +<span id="L10108" class="LineNr">10108 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-base-type-2</a>: output should be empty"</span>) +<span id="L10109" class="LineNr">10109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' is an 'addr' type, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10110" class="LineNr">10110 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10111" class="LineNr">10111 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10070'>test-get-with-wrong-base-type-2</a>: exit status"</span>) +<span id="L10112" class="LineNr">10112 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10113" class="LineNr">10113 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10114" class="LineNr">10114 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10115" class="LineNr">10115 </span> 5d/pop-to-ebp +<span id="L10116" class="LineNr">10116 </span> c3/return +<span id="L10117" class="LineNr">10117 </span> +<span id="L10118" class="LineNr">10118 </span><span class="subxTest">test-get-with-wrong-base-type-3</span>: +<span id="L10119" class="LineNr">10119 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10120" class="LineNr">10120 </span> 55/push-ebp +<span id="L10121" class="LineNr">10121 </span> 89/<- %ebp 4/r32/esp +<span id="L10122" class="LineNr">10122 </span> <span class="subxComment"># setup</span> +<span id="L10123" class="LineNr">10123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10124" class="LineNr">10124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10125" class="LineNr">10125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10126" class="LineNr">10126 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10127" class="LineNr">10127 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10128" class="LineNr">10128 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10129" class="LineNr">10129 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10130" class="LineNr">10130 </span> 68/push 0/imm32 +<span id="L10131" class="LineNr">10131 </span> 68/push 0/imm32 +<span id="L10132" class="LineNr">10132 </span> 89/<- %edx 4/r32/esp +<span id="L10133" class="LineNr">10133 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10134" class="LineNr">10134 </span> <span class="subxComment">#</span> +<span id="L10135" class="LineNr">10135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10136" class="LineNr">10136 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L10137" class="LineNr">10137 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, y\n"</span>) +<span id="L10138" class="LineNr">10138 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10139" class="LineNr">10139 </span> <span class="subxComment"># convert</span> +<span id="L10140" class="LineNr">10140 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10141" class="LineNr">10141 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10142" class="LineNr">10142 </span> <span class="subxComment"># restore ed</span> +<span id="L10143" class="LineNr">10143 </span> 89/<- %edx 4/r32/esp +<span id="L10144" class="LineNr">10144 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10145" class="LineNr">10145 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10146" class="Folded">10146 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10152" class="LineNr">10152 </span> <span class="subxComment"># check output</span> +<span id="L10153" class="LineNr">10153 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10118'>test-get-with-wrong-base-type-3</a>: output should be empty"</span>) +<span id="L10154" class="LineNr">10154 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: var 'a' must have a 'type' definition"</span> <span class="Constant">"F - <a href='mu.subx.html#L10118'>test-get-with-wrong-base-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10155" class="LineNr">10155 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10156" class="LineNr">10156 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10118'>test-get-with-wrong-base-type-3</a>: exit status"</span>) +<span id="L10157" class="LineNr">10157 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10158" class="LineNr">10158 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10159" class="LineNr">10159 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10160" class="LineNr">10160 </span> 5d/pop-to-ebp +<span id="L10161" class="LineNr">10161 </span> c3/return +<span id="L10162" class="LineNr">10162 </span> +<span id="L10163" class="LineNr">10163 </span><span class="subxTest">test-get-with-wrong-offset-type</span>: +<span id="L10164" class="LineNr">10164 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10165" class="LineNr">10165 </span> 55/push-ebp +<span id="L10166" class="LineNr">10166 </span> 89/<- %ebp 4/r32/esp +<span id="L10167" class="LineNr">10167 </span> <span class="subxComment"># setup</span> +<span id="L10168" class="LineNr">10168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10169" class="LineNr">10169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10170" class="LineNr">10170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10171" class="LineNr">10171 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10172" class="LineNr">10172 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10173" class="LineNr">10173 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10174" class="LineNr">10174 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10175" class="LineNr">10175 </span> 68/push 0/imm32 +<span id="L10176" class="LineNr">10176 </span> 68/push 0/imm32 +<span id="L10177" class="LineNr">10177 </span> 89/<- %edx 4/r32/esp +<span id="L10178" class="LineNr">10178 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10179" class="LineNr">10179 </span> <span class="subxComment">#</span> +<span id="L10180" class="LineNr">10180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10181" class="LineNr">10181 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10182" class="LineNr">10182 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) +<span id="L10183" class="LineNr">10183 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, b\n"</span>) +<span id="L10184" class="LineNr">10184 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10185" class="LineNr">10185 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10186" class="LineNr">10186 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10187" class="LineNr">10187 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10188" class="LineNr">10188 </span> <span class="subxComment"># convert</span> +<span id="L10189" class="LineNr">10189 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10190" class="LineNr">10190 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10191" class="LineNr">10191 </span> <span class="subxComment"># restore ed</span> +<span id="L10192" class="LineNr">10192 </span> 89/<- %edx 4/r32/esp +<span id="L10193" class="LineNr">10193 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10194" class="LineNr">10194 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10195" class="Folded">10195 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10201" class="LineNr">10201 </span> <span class="subxComment"># check output</span> +<span id="L10202" class="LineNr">10202 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10163'>test-get-with-wrong-offset-type</a>: output should be empty"</span>) +<span id="L10203" class="LineNr">10203 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: type 't' has no member called 'b'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10163'>test-get-with-wrong-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10204" class="LineNr">10204 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10205" class="LineNr">10205 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10163'>test-get-with-wrong-offset-type</a>: exit status"</span>) +<span id="L10206" class="LineNr">10206 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10207" class="LineNr">10207 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10208" class="LineNr">10208 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10209" class="LineNr">10209 </span> 5d/pop-to-ebp +<span id="L10210" class="LineNr">10210 </span> c3/return +<span id="L10211" class="LineNr">10211 </span> +<span id="L10212" class="LineNr">10212 </span><span class="subxTest">test-get-with-wrong-output-type</span>: +<span id="L10213" class="LineNr">10213 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10214" class="LineNr">10214 </span> 55/push-ebp +<span id="L10215" class="LineNr">10215 </span> 89/<- %ebp 4/r32/esp +<span id="L10216" class="LineNr">10216 </span> <span class="subxComment"># setup</span> +<span id="L10217" class="LineNr">10217 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10218" class="LineNr">10218 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10219" class="LineNr">10219 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10220" class="LineNr">10220 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10221" class="LineNr">10221 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10222" class="LineNr">10222 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10223" class="LineNr">10223 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10224" class="LineNr">10224 </span> 68/push 0/imm32 +<span id="L10225" class="LineNr">10225 </span> 68/push 0/imm32 +<span id="L10226" class="LineNr">10226 </span> 89/<- %edx 4/r32/esp +<span id="L10227" class="LineNr">10227 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10228" class="LineNr">10228 </span> <span class="subxComment">#</span> +<span id="L10229" class="LineNr">10229 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10230" class="LineNr">10230 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10231" class="LineNr">10231 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c: (addr int)\n"</span>) +<span id="L10232" class="LineNr">10232 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10233" class="LineNr">10233 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10234" class="LineNr">10234 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10235" class="LineNr">10235 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10236" class="LineNr">10236 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10237" class="LineNr">10237 </span> <span class="subxComment"># convert</span> +<span id="L10238" class="LineNr">10238 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10239" class="LineNr">10239 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10240" class="LineNr">10240 </span> <span class="subxComment"># restore ed</span> +<span id="L10241" class="LineNr">10241 </span> 89/<- %edx 4/r32/esp +<span id="L10242" class="LineNr">10242 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10243" class="LineNr">10243 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10244" class="Folded">10244 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10250" class="LineNr">10250 </span> <span class="subxComment"># check output</span> +<span id="L10251" class="LineNr">10251 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10212'>test-get-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L10252" class="LineNr">10252 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output 'c' is not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L10212'>test-get-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10253" class="LineNr">10253 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10254" class="LineNr">10254 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10212'>test-get-with-wrong-output-type</a>: exit status"</span>) +<span id="L10255" class="LineNr">10255 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10256" class="LineNr">10256 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10257" class="LineNr">10257 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10258" class="LineNr">10258 </span> 5d/pop-to-ebp +<span id="L10259" class="LineNr">10259 </span> c3/return +<span id="L10260" class="LineNr">10260 </span> +<span id="L10261" class="LineNr">10261 </span><span class="subxTest">test-get-with-wrong-output-type-2</span>: +<span id="L10262" class="LineNr">10262 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10263" class="LineNr">10263 </span> 55/push-ebp +<span id="L10264" class="LineNr">10264 </span> 89/<- %ebp 4/r32/esp +<span id="L10265" class="LineNr">10265 </span> <span class="subxComment"># setup</span> +<span id="L10266" class="LineNr">10266 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10267" class="LineNr">10267 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10268" class="LineNr">10268 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10269" class="LineNr">10269 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10270" class="LineNr">10270 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10271" class="LineNr">10271 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10272" class="LineNr">10272 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10273" class="LineNr">10273 </span> 68/push 0/imm32 +<span id="L10274" class="LineNr">10274 </span> 68/push 0/imm32 +<span id="L10275" class="LineNr">10275 </span> 89/<- %edx 4/r32/esp +<span id="L10276" class="LineNr">10276 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10277" class="LineNr">10277 </span> <span class="subxComment">#</span> +<span id="L10278" class="LineNr">10278 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10279" class="LineNr">10279 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10280" class="LineNr">10280 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10281" class="LineNr">10281 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10282" class="LineNr">10282 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10283" class="LineNr">10283 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10284" class="LineNr">10284 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10285" class="LineNr">10285 </span> <span class="subxComment"># convert</span> +<span id="L10286" class="LineNr">10286 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10287" class="LineNr">10287 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10288" class="LineNr">10288 </span> <span class="subxComment"># restore ed</span> +<span id="L10289" class="LineNr">10289 </span> 89/<- %edx 4/r32/esp +<span id="L10290" class="LineNr">10290 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10291" class="LineNr">10291 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10292" class="Folded">10292 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10298" class="LineNr">10298 </span> <span class="subxComment"># check output</span> +<span id="L10299" class="LineNr">10299 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10261'>test-get-with-wrong-output-type-2</a>: output should be empty"</span>) +<span id="L10300" class="LineNr">10300 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10261'>test-get-with-wrong-output-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10301" class="LineNr">10301 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10302" class="LineNr">10302 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10261'>test-get-with-wrong-output-type-2</a>: exit status"</span>) +<span id="L10303" class="LineNr">10303 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10304" class="LineNr">10304 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10305" class="LineNr">10305 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10306" class="LineNr">10306 </span> 5d/pop-to-ebp +<span id="L10307" class="LineNr">10307 </span> c3/return +<span id="L10308" class="LineNr">10308 </span> +<span id="L10309" class="LineNr">10309 </span><span class="subxTest">test-get-with-wrong-output-type-3</span>: +<span id="L10310" class="LineNr">10310 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10311" class="LineNr">10311 </span> 55/push-ebp +<span id="L10312" class="LineNr">10312 </span> 89/<- %ebp 4/r32/esp +<span id="L10313" class="LineNr">10313 </span> <span class="subxComment"># setup</span> +<span id="L10314" class="LineNr">10314 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10315" class="LineNr">10315 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10316" class="LineNr">10316 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10317" class="LineNr">10317 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10318" class="LineNr">10318 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10319" class="LineNr">10319 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10320" class="LineNr">10320 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10321" class="LineNr">10321 </span> 68/push 0/imm32 +<span id="L10322" class="LineNr">10322 </span> 68/push 0/imm32 +<span id="L10323" class="LineNr">10323 </span> 89/<- %edx 4/r32/esp +<span id="L10324" class="LineNr">10324 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10325" class="LineNr">10325 </span> <span class="subxComment">#</span> +<span id="L10326" class="LineNr">10326 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10327" class="LineNr">10327 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10328" class="LineNr">10328 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (array int) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10329" class="LineNr">10329 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10330" class="LineNr">10330 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10331" class="LineNr">10331 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10332" class="LineNr">10332 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10333" class="LineNr">10333 </span> <span class="subxComment"># convert</span> +<span id="L10334" class="LineNr">10334 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10335" class="LineNr">10335 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10336" class="LineNr">10336 </span> <span class="subxComment"># restore ed</span> +<span id="L10337" class="LineNr">10337 </span> 89/<- %edx 4/r32/esp +<span id="L10338" class="LineNr">10338 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10339" class="LineNr">10339 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10340" class="Folded">10340 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10346" class="LineNr">10346 </span> <span class="subxComment"># check output</span> +<span id="L10347" class="LineNr">10347 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10309'>test-get-with-wrong-output-type-3</a>: output should be empty"</span>) +<span id="L10348" class="LineNr">10348 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: output must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L10309'>test-get-with-wrong-output-type-3</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10349" class="LineNr">10349 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10350" class="LineNr">10350 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10309'>test-get-with-wrong-output-type-3</a>: exit status"</span>) +<span id="L10351" class="LineNr">10351 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10352" class="LineNr">10352 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10353" class="LineNr">10353 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10354" class="LineNr">10354 </span> 5d/pop-to-ebp +<span id="L10355" class="LineNr">10355 </span> c3/return +<span id="L10356" class="LineNr">10356 </span> +<span id="L10357" class="LineNr">10357 </span><span class="subxTest">test-get-with-wrong-output-type-4</span>: +<span id="L10358" class="LineNr">10358 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10359" class="LineNr">10359 </span> 55/push-ebp +<span id="L10360" class="LineNr">10360 </span> 89/<- %ebp 4/r32/esp +<span id="L10361" class="LineNr">10361 </span> <span class="subxComment"># setup</span> +<span id="L10362" class="LineNr">10362 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10363" class="LineNr">10363 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10364" class="LineNr">10364 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10365" class="LineNr">10365 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10366" class="LineNr">10366 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10367" class="LineNr">10367 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10368" class="LineNr">10368 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10369" class="LineNr">10369 </span> 68/push 0/imm32 +<span id="L10370" class="LineNr">10370 </span> 68/push 0/imm32 +<span id="L10371" class="LineNr">10371 </span> 89/<- %edx 4/r32/esp +<span id="L10372" class="LineNr">10372 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10373" class="LineNr">10373 </span> <span class="subxComment">#</span> +<span id="L10374" class="LineNr">10374 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10375" class="LineNr">10375 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10376" class="LineNr">10376 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr boolean) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10377" class="LineNr">10377 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10378" class="LineNr">10378 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10379" class="LineNr">10379 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10380" class="LineNr">10380 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10381" class="LineNr">10381 </span> <span class="subxComment"># convert</span> +<span id="L10382" class="LineNr">10382 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10383" class="LineNr">10383 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10384" class="LineNr">10384 </span> <span class="subxComment"># restore ed</span> +<span id="L10385" class="LineNr">10385 </span> 89/<- %edx 4/r32/esp +<span id="L10386" class="LineNr">10386 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10387" class="LineNr">10387 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10388" class="Folded">10388 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10394" class="LineNr">10394 </span> <span class="subxComment"># check output</span> +<span id="L10395" class="LineNr">10395 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10357'>test-get-with-wrong-output-type-4</a>: output should be empty"</span>) +<span id="L10396" class="LineNr">10396 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: wrong output type for member 'x' of type 't'"</span> <span class="Constant">"F - <a href='mu.subx.html#L10357'>test-get-with-wrong-output-type-4</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10397" class="LineNr">10397 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10398" class="LineNr">10398 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10357'>test-get-with-wrong-output-type-4</a>: exit status"</span>) +<span id="L10399" class="LineNr">10399 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10400" class="LineNr">10400 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10401" class="LineNr">10401 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10402" class="LineNr">10402 </span> 5d/pop-to-ebp +<span id="L10403" class="LineNr">10403 </span> c3/return +<span id="L10404" class="LineNr">10404 </span> +<span id="L10405" class="LineNr">10405 </span><span class="subxTest">test-get-with-wrong-output-type-5</span>: +<span id="L10406" class="LineNr">10406 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10407" class="LineNr">10407 </span> 55/push-ebp +<span id="L10408" class="LineNr">10408 </span> 89/<- %ebp 4/r32/esp +<span id="L10409" class="LineNr">10409 </span> <span class="subxComment"># setup</span> +<span id="L10410" class="LineNr">10410 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10411" class="LineNr">10411 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10412" class="LineNr">10412 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10413" class="LineNr">10413 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10414" class="LineNr">10414 </span> <span class="subxComment">#</span> +<span id="L10415" class="LineNr">10415 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10416" class="LineNr">10416 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10417" class="LineNr">10417 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr handle int) <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10418" class="LineNr">10418 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10419" class="LineNr">10419 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10420" class="LineNr">10420 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: (handle int)\n"</span>) +<span id="L10421" class="LineNr">10421 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10422" class="LineNr">10422 </span> <span class="subxComment"># convert</span> +<span id="L10423" class="LineNr">10423 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10424" class="LineNr">10424 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10425" class="LineNr">10425 </span> <span class="subxComment"># no errors</span> +<span id="L10426" class="LineNr">10426 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10427" class="LineNr">10427 </span> 89/<- %esp 5/r32/ebp +<span id="L10428" class="LineNr">10428 </span> 5d/pop-to-ebp +<span id="L10429" class="LineNr">10429 </span> c3/return +<span id="L10430" class="LineNr">10430 </span> +<span id="L10431" class="LineNr">10431 </span><span class="subxTest">test-get-with-too-few-inouts</span>: +<span id="L10432" class="LineNr">10432 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10433" class="LineNr">10433 </span> 55/push-ebp +<span id="L10434" class="LineNr">10434 </span> 89/<- %ebp 4/r32/esp +<span id="L10435" class="LineNr">10435 </span> <span class="subxComment"># setup</span> +<span id="L10436" class="LineNr">10436 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10437" class="LineNr">10437 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10438" class="LineNr">10438 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10439" class="LineNr">10439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10440" class="LineNr">10440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10441" class="LineNr">10441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10442" class="LineNr">10442 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10443" class="LineNr">10443 </span> 68/push 0/imm32 +<span id="L10444" class="LineNr">10444 </span> 68/push 0/imm32 +<span id="L10445" class="LineNr">10445 </span> 89/<- %edx 4/r32/esp +<span id="L10446" class="LineNr">10446 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10447" class="LineNr">10447 </span> <span class="subxComment">#</span> +<span id="L10448" class="LineNr">10448 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10449" class="LineNr">10449 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10450" class="LineNr">10450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a\n"</span>) +<span id="L10451" class="LineNr">10451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10452" class="LineNr">10452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10453" class="LineNr">10453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10454" class="LineNr">10454 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10455" class="LineNr">10455 </span> <span class="subxComment"># convert</span> +<span id="L10456" class="LineNr">10456 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10457" class="LineNr">10457 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10458" class="LineNr">10458 </span> <span class="subxComment"># restore ed</span> +<span id="L10459" class="LineNr">10459 </span> 89/<- %edx 4/r32/esp +<span id="L10460" class="LineNr">10460 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10461" class="LineNr">10461 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10462" class="Folded">10462 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10468" class="LineNr">10468 </span> <span class="subxComment"># check output</span> +<span id="L10469" class="LineNr">10469 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10431'>test-get-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L10470" class="LineNr">10470 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10431'>test-get-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10471" class="LineNr">10471 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10472" class="LineNr">10472 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10431'>test-get-with-too-few-inouts</a>: exit status"</span>) +<span id="L10473" class="LineNr">10473 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10474" class="LineNr">10474 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10475" class="LineNr">10475 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10476" class="LineNr">10476 </span> 5d/pop-to-ebp +<span id="L10477" class="LineNr">10477 </span> c3/return +<span id="L10478" class="LineNr">10478 </span> +<span id="L10479" class="LineNr">10479 </span><span class="subxTest">test-get-with-too-many-inouts</span>: +<span id="L10480" class="LineNr">10480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10481" class="LineNr">10481 </span> 55/push-ebp +<span id="L10482" class="LineNr">10482 </span> 89/<- %ebp 4/r32/esp +<span id="L10483" class="LineNr">10483 </span> <span class="subxComment"># setup</span> +<span id="L10484" class="LineNr">10484 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10485" class="LineNr">10485 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10486" class="LineNr">10486 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10487" class="LineNr">10487 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10488" class="LineNr">10488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10489" class="LineNr">10489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10490" class="LineNr">10490 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10491" class="LineNr">10491 </span> 68/push 0/imm32 +<span id="L10492" class="LineNr">10492 </span> 68/push 0/imm32 +<span id="L10493" class="LineNr">10493 </span> 89/<- %edx 4/r32/esp +<span id="L10494" class="LineNr">10494 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10495" class="LineNr">10495 </span> <span class="subxComment">#</span> +<span id="L10496" class="LineNr">10496 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10497" class="LineNr">10497 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10498" class="LineNr">10498 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- <a href='131table.subx.html#L26'>get</a> a, x, 0\n"</span>) +<span id="L10499" class="LineNr">10499 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10500" class="LineNr">10500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10501" class="LineNr">10501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10502" class="LineNr">10502 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10503" class="LineNr">10503 </span> <span class="subxComment"># convert</span> +<span id="L10504" class="LineNr">10504 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10505" class="LineNr">10505 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10506" class="LineNr">10506 </span> <span class="subxComment"># restore ed</span> +<span id="L10507" class="LineNr">10507 </span> 89/<- %edx 4/r32/esp +<span id="L10508" class="LineNr">10508 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10509" class="LineNr">10509 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10510" class="Folded">10510 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10516" class="LineNr">10516 </span> <span class="subxComment"># check output</span> +<span id="L10517" class="LineNr">10517 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10479'>test-get-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L10518" class="LineNr">10518 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10479'>test-get-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10519" class="LineNr">10519 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10520" class="LineNr">10520 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10479'>test-get-with-too-many-inouts</a>: exit status"</span>) +<span id="L10521" class="LineNr">10521 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10522" class="LineNr">10522 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10523" class="LineNr">10523 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10524" class="LineNr">10524 </span> 5d/pop-to-ebp +<span id="L10525" class="LineNr">10525 </span> c3/return +<span id="L10526" class="LineNr">10526 </span> +<span id="L10527" class="LineNr">10527 </span><span class="subxTest">test-get-with-no-output</span>: +<span id="L10528" class="LineNr">10528 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10529" class="LineNr">10529 </span> 55/push-ebp +<span id="L10530" class="LineNr">10530 </span> 89/<- %ebp 4/r32/esp +<span id="L10531" class="LineNr">10531 </span> <span class="subxComment"># setup</span> +<span id="L10532" class="LineNr">10532 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10533" class="LineNr">10533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10534" class="LineNr">10534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10535" class="LineNr">10535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10536" class="LineNr">10536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10537" class="LineNr">10537 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10538" class="LineNr">10538 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10539" class="LineNr">10539 </span> 68/push 0/imm32 +<span id="L10540" class="LineNr">10540 </span> 68/push 0/imm32 +<span id="L10541" class="LineNr">10541 </span> 89/<- %edx 4/r32/esp +<span id="L10542" class="LineNr">10542 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10543" class="LineNr">10543 </span> <span class="subxComment">#</span> +<span id="L10544" class="LineNr">10544 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10545" class="LineNr">10545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10546" class="LineNr">10546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10547" class="LineNr">10547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10548" class="LineNr">10548 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10549" class="LineNr">10549 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10550" class="LineNr">10550 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10551" class="LineNr">10551 </span> <span class="subxComment"># convert</span> +<span id="L10552" class="LineNr">10552 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10553" class="LineNr">10553 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10554" class="LineNr">10554 </span> <span class="subxComment"># restore ed</span> +<span id="L10555" class="LineNr">10555 </span> 89/<- %edx 4/r32/esp +<span id="L10556" class="LineNr">10556 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10557" class="LineNr">10557 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10558" class="Folded">10558 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10564" class="LineNr">10564 </span> <span class="subxComment"># check output</span> +<span id="L10565" class="LineNr">10565 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10527'>test-get-with-no-output</a>: output should be empty"</span>) +<span id="L10566" class="LineNr">10566 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L10527'>test-get-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10567" class="LineNr">10567 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10568" class="LineNr">10568 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10527'>test-get-with-no-output</a>: exit status"</span>) +<span id="L10569" class="LineNr">10569 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10570" class="LineNr">10570 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10571" class="LineNr">10571 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10572" class="LineNr">10572 </span> 5d/pop-to-ebp +<span id="L10573" class="LineNr">10573 </span> c3/return +<span id="L10574" class="LineNr">10574 </span> +<span id="L10575" class="LineNr">10575 </span><span class="subxTest">test-get-with-too-many-outputs</span>: +<span id="L10576" class="LineNr">10576 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10577" class="LineNr">10577 </span> 55/push-ebp +<span id="L10578" class="LineNr">10578 </span> 89/<- %ebp 4/r32/esp +<span id="L10579" class="LineNr">10579 </span> <span class="subxComment"># setup</span> +<span id="L10580" class="LineNr">10580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10581" class="LineNr">10581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10582" class="LineNr">10582 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10583" class="LineNr">10583 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10584" class="LineNr">10584 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10585" class="LineNr">10585 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10586" class="LineNr">10586 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10587" class="LineNr">10587 </span> 68/push 0/imm32 +<span id="L10588" class="LineNr">10588 </span> 68/push 0/imm32 +<span id="L10589" class="LineNr">10589 </span> 89/<- %edx 4/r32/esp +<span id="L10590" class="LineNr">10590 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10591" class="LineNr">10591 </span> <span class="subxComment">#</span> +<span id="L10592" class="LineNr">10592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10593" class="LineNr">10593 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: t\n"</span>) +<span id="L10594" class="LineNr">10594 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) +<span id="L10595" class="LineNr">10595 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/eax: (addr int) <- copy 0\n"</span>) +<span id="L10596" class="LineNr">10596 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" c, b <- <a href='131table.subx.html#L26'>get</a> a, x\n"</span>) +<span id="L10597" class="LineNr">10597 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10598" class="LineNr">10598 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) +<span id="L10599" class="LineNr">10599 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10600" class="LineNr">10600 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10601" class="LineNr">10601 </span> <span class="subxComment"># convert</span> +<span id="L10602" class="LineNr">10602 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10603" class="LineNr">10603 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10604" class="LineNr">10604 </span> <span class="subxComment"># restore ed</span> +<span id="L10605" class="LineNr">10605 </span> 89/<- %edx 4/r32/esp +<span id="L10606" class="LineNr">10606 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10607" class="LineNr">10607 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10608" class="Folded">10608 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10614" class="LineNr">10614 </span> <span class="subxComment"># check output</span> +<span id="L10615" class="LineNr">10615 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10575'>test-get-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L10616" class="LineNr">10616 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='131table.subx.html#L26'>get</a>: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L10575'>test-get-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10617" class="LineNr">10617 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10618" class="LineNr">10618 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10575'>test-get-with-too-many-outputs</a>: exit status"</span>) +<span id="L10619" class="LineNr">10619 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10620" class="LineNr">10620 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10621" class="LineNr">10621 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10622" class="LineNr">10622 </span> 5d/pop-to-ebp +<span id="L10623" class="LineNr">10623 </span> c3/return +<span id="L10624" class="LineNr">10624 </span> +<span id="L10625" class="LineNr">10625 </span><span class="subxTest">test-convert-array-of-user-defined-types</span>: +<span id="L10626" class="LineNr">10626 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10627" class="LineNr">10627 </span> 55/push-ebp +<span id="L10628" class="LineNr">10628 </span> 89/<- %ebp 4/r32/esp +<span id="L10629" class="LineNr">10629 </span> <span class="subxComment"># setup</span> +<span id="L10630" class="LineNr">10630 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10631" class="LineNr">10631 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10632" class="LineNr">10632 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10633" class="LineNr">10633 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10634" class="LineNr">10634 </span> <span class="subxComment">#</span> +<span id="L10635" class="LineNr">10635 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> +<span id="L10636" class="LineNr">10636 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10637" class="LineNr">10637 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10638" class="LineNr">10638 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10639" class="LineNr">10639 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10640" class="LineNr">10640 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10641" class="LineNr">10641 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var idx/ecx: int <- copy 3\n"</span>) +<span id="L10642" class="LineNr">10642 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr t) <- index arr, idx\n"</span>) +<span id="L10643" class="LineNr">10643 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10644" class="LineNr">10644 </span> <span class="subxComment"># convert</span> +<span id="L10645" class="LineNr">10645 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10646" class="LineNr">10646 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10647" class="Folded">10647 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10653" class="LineNr">10653 </span> <span class="subxComment"># check output</span> +<span id="L10654" class="LineNr">10654 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/0"</span>) +<span id="L10655" class="LineNr">10655 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/1"</span>) +<span id="L10656" class="LineNr">10656 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/2"</span>) +<span id="L10657" class="LineNr">10657 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/3"</span>) +<span id="L10658" class="LineNr">10658 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/4"</span>) +<span id="L10659" class="LineNr">10659 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/5"</span>) +<span id="L10660" class="LineNr">10660 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/6"</span>) +<span id="L10661" class="LineNr">10661 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/7"</span>) +<span id="L10662" class="LineNr">10662 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/8"</span>) +<span id="L10663" class="LineNr">10663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/9"</span>) +<span id="L10664" class="LineNr">10664 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> %ecx 0x00000008 *eax \"</span>foo\<span class="Constant">" \"</span>arr\<span class="Constant">")"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/10"</span>) +<span id="L10665" class="LineNr">10665 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8d/copy-address *(eax + ecx<<0x00000003 + 4) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/11"</span>) +<span id="L10666" class="LineNr">10666 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/12"</span>) +<span id="L10667" class="LineNr">10667 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/13"</span>) +<span id="L10668" class="LineNr">10668 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/14"</span>) +<span id="L10669" class="LineNr">10669 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/15"</span>) +<span id="L10670" class="LineNr">10670 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-array-of-user-defined-types/16"</span>) +<span id="L10671" class="LineNr">10671 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/17"</span>) +<span id="L10672" class="LineNr">10672 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/18"</span>) +<span id="L10673" class="LineNr">10673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10625'>test-convert-array-of-user-defined-types</a>/19"</span>) +<span id="L10674" class="LineNr">10674 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10675" class="LineNr">10675 </span> 89/<- %esp 5/r32/ebp +<span id="L10676" class="LineNr">10676 </span> 5d/pop-to-ebp +<span id="L10677" class="LineNr">10677 </span> c3/return +<span id="L10678" class="LineNr">10678 </span> +<span id="L10679" class="LineNr">10679 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-eax</span>: +<span id="L10680" class="LineNr">10680 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10681" class="LineNr">10681 </span> 55/push-ebp +<span id="L10682" class="LineNr">10682 </span> 89/<- %ebp 4/r32/esp +<span id="L10683" class="LineNr">10683 </span> <span class="subxComment"># setup</span> +<span id="L10684" class="LineNr">10684 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10685" class="LineNr">10685 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10686" class="LineNr">10686 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10687" class="LineNr">10687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10688" class="LineNr">10688 </span> <span class="subxComment">#</span> +<span id="L10689" class="LineNr">10689 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> +<span id="L10690" class="LineNr">10690 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10691" class="LineNr">10691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10692" class="LineNr">10692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10693" class="LineNr">10693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10694" class="LineNr">10694 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10695" class="LineNr">10695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10696" class="LineNr">10696 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- length arr\n"</span>) +<span id="L10697" class="LineNr">10697 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10698" class="LineNr">10698 </span> <span class="subxComment"># convert</span> +<span id="L10699" class="LineNr">10699 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10700" class="LineNr">10700 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10701" class="Folded">10701 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10707" class="LineNr">10707 </span> <span class="subxComment"># check output</span> +<span id="L10708" class="LineNr">10708 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/0"</span>) +<span id="L10709" class="LineNr">10709 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/1"</span>) +<span id="L10710" class="LineNr">10710 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/2"</span>) +<span id="L10711" class="LineNr">10711 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/3"</span>) +<span id="L10712" class="LineNr">10712 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/4"</span>) +<span id="L10713" class="LineNr">10713 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/5"</span>) +<span id="L10714" class="LineNr">10714 </span> <span class="subxComment"># var arr</span> +<span id="L10715" class="LineNr">10715 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/6"</span>) +<span id="L10716" class="LineNr">10716 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/7"</span>) +<span id="L10717" class="LineNr">10717 </span> <span class="subxComment"># length instruction</span> +<span id="L10718" class="LineNr">10718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/8"</span>) +<span id="L10719" class="LineNr">10719 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/9"</span>) +<span id="L10720" class="LineNr">10720 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/10"</span>) +<span id="L10721" class="LineNr">10721 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/11"</span>) +<span id="L10722" class="LineNr">10722 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/12"</span>) +<span id="L10723" class="LineNr">10723 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/13"</span>) +<span id="L10724" class="LineNr">10724 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/14"</span>) +<span id="L10725" class="LineNr">10725 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/15"</span>) +<span id="L10726" class="LineNr">10726 </span> <span class="subxComment"># reclaim arr</span> +<span id="L10727" class="LineNr">10727 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/16"</span>) +<span id="L10728" class="LineNr">10728 </span> <span class="subxComment">#</span> +<span id="L10729" class="LineNr">10729 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/17"</span>) +<span id="L10730" class="LineNr">10730 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/18"</span>) +<span id="L10731" class="LineNr">10731 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-eax/19"</span>) +<span id="L10732" class="LineNr">10732 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/20"</span>) +<span id="L10733" class="LineNr">10733 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/21"</span>) +<span id="L10734" class="LineNr">10734 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10679'>test-convert-length-of-array-of-user-defined-types-to-eax</a>/22"</span>) +<span id="L10735" class="LineNr">10735 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10736" class="LineNr">10736 </span> 89/<- %esp 5/r32/ebp +<span id="L10737" class="LineNr">10737 </span> 5d/pop-to-ebp +<span id="L10738" class="LineNr">10738 </span> c3/return +<span id="L10739" class="LineNr">10739 </span> +<span id="L10740" class="LineNr">10740 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-ecx</span>: +<span id="L10741" class="LineNr">10741 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10742" class="LineNr">10742 </span> 55/push-ebp +<span id="L10743" class="LineNr">10743 </span> 89/<- %ebp 4/r32/esp +<span id="L10744" class="LineNr">10744 </span> <span class="subxComment"># setup</span> +<span id="L10745" class="LineNr">10745 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10746" class="LineNr">10746 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10747" class="LineNr">10747 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10748" class="LineNr">10748 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10749" class="LineNr">10749 </span> <span class="subxComment">#</span> +<span id="L10750" class="LineNr">10750 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> +<span id="L10751" class="LineNr">10751 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10752" class="LineNr">10752 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10753" class="LineNr">10753 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10754" class="LineNr">10754 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10755" class="LineNr">10755 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10756" class="LineNr">10756 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10757" class="LineNr">10757 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ecx: int <- length arr\n"</span>) +<span id="L10758" class="LineNr">10758 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10759" class="LineNr">10759 </span> <span class="subxComment"># convert</span> +<span id="L10760" class="LineNr">10760 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10761" class="LineNr">10761 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10762" class="Folded">10762 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10768" class="LineNr">10768 </span> <span class="subxComment"># check output</span> +<span id="L10769" class="LineNr">10769 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/0"</span>) +<span id="L10770" class="LineNr">10770 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/1"</span>) +<span id="L10771" class="LineNr">10771 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/2"</span>) +<span id="L10772" class="LineNr">10772 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/3"</span>) +<span id="L10773" class="LineNr">10773 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/4"</span>) +<span id="L10774" class="LineNr">10774 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/5"</span>) +<span id="L10775" class="LineNr">10775 </span> <span class="subxComment"># var a</span> +<span id="L10776" class="LineNr">10776 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/6"</span>) +<span id="L10777" class="LineNr">10777 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/7"</span>) +<span id="L10778" class="LineNr">10778 </span> <span class="subxComment"># var x</span> +<span id="L10779" class="LineNr">10779 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/8"</span>) +<span id="L10780" class="LineNr">10780 </span> <span class="subxComment"># length instruction</span> +<span id="L10781" class="LineNr">10781 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/9"</span>) +<span id="L10782" class="LineNr">10782 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/10"</span>) +<span id="L10783" class="LineNr">10783 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/11"</span>) +<span id="L10784" class="LineNr">10784 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/12"</span>) +<span id="L10785" class="LineNr">10785 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/13"</span>) +<span id="L10786" class="LineNr">10786 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/14"</span>) +<span id="L10787" class="LineNr">10787 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ecx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/15"</span>) +<span id="L10788" class="LineNr">10788 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/16"</span>) +<span id="L10789" class="LineNr">10789 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/17"</span>) +<span id="L10790" class="LineNr">10790 </span> <span class="subxComment"># reclaim x</span> +<span id="L10791" class="LineNr">10791 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/18"</span>) +<span id="L10792" class="LineNr">10792 </span> <span class="subxComment"># reclaim a</span> +<span id="L10793" class="LineNr">10793 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/19"</span>) +<span id="L10794" class="LineNr">10794 </span> <span class="subxComment">#</span> +<span id="L10795" class="LineNr">10795 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/20"</span>) +<span id="L10796" class="LineNr">10796 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/21"</span>) +<span id="L10797" class="LineNr">10797 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-ecx/22"</span>) +<span id="L10798" class="LineNr">10798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/23"</span>) +<span id="L10799" class="LineNr">10799 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/24"</span>) +<span id="L10800" class="LineNr">10800 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10740'>test-convert-length-of-array-of-user-defined-types-to-ecx</a>/25"</span>) +<span id="L10801" class="LineNr">10801 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10802" class="LineNr">10802 </span> 89/<- %esp 5/r32/ebp +<span id="L10803" class="LineNr">10803 </span> 5d/pop-to-ebp +<span id="L10804" class="LineNr">10804 </span> c3/return +<span id="L10805" class="LineNr">10805 </span> +<span id="L10806" class="LineNr">10806 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types-to-edx</span>: +<span id="L10807" class="LineNr">10807 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10808" class="LineNr">10808 </span> 55/push-ebp +<span id="L10809" class="LineNr">10809 </span> 89/<- %ebp 4/r32/esp +<span id="L10810" class="LineNr">10810 </span> <span class="subxComment"># setup</span> +<span id="L10811" class="LineNr">10811 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10812" class="LineNr">10812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10813" class="LineNr">10813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10814" class="LineNr">10814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10815" class="LineNr">10815 </span> <span class="subxComment">#</span> +<span id="L10816" class="LineNr">10816 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size = 12, which is not a power of 2</span> +<span id="L10817" class="LineNr">10817 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10818" class="LineNr">10818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10819" class="LineNr">10819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10820" class="LineNr">10820 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10821" class="LineNr">10821 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10822" class="LineNr">10822 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10823" class="LineNr">10823 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/edx: int <- length arr\n"</span>) +<span id="L10824" class="LineNr">10824 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10825" class="LineNr">10825 </span> <span class="subxComment"># convert</span> +<span id="L10826" class="LineNr">10826 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10827" class="LineNr">10827 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10828" class="Folded">10828 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10834" class="LineNr">10834 </span> <span class="subxComment"># check output</span> +<span id="L10835" class="LineNr">10835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/0"</span>) +<span id="L10836" class="LineNr">10836 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/1"</span>) +<span id="L10837" class="LineNr">10837 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/2"</span>) +<span id="L10838" class="LineNr">10838 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/3"</span>) +<span id="L10839" class="LineNr">10839 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/4"</span>) +<span id="L10840" class="LineNr">10840 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/5"</span>) +<span id="L10841" class="LineNr">10841 </span> <span class="subxComment"># var a</span> +<span id="L10842" class="LineNr">10842 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/6"</span>) +<span id="L10843" class="LineNr">10843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/7"</span>) +<span id="L10844" class="LineNr">10844 </span> <span class="subxComment"># var x</span> +<span id="L10845" class="LineNr">10845 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/8"</span>) +<span id="L10846" class="LineNr">10846 </span> <span class="subxComment"># length instruction</span> +<span id="L10847" class="LineNr">10847 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/9"</span>) +<span id="L10848" class="LineNr">10848 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/10"</span>) +<span id="L10849" class="LineNr">10849 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/11"</span>) +<span id="L10850" class="LineNr">10850 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/12"</span>) +<span id="L10851" class="LineNr">10851 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/13"</span>) +<span id="L10852" class="LineNr">10852 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/14"</span>) +<span id="L10853" class="LineNr">10853 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %edx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/15"</span>) +<span id="L10854" class="LineNr">10854 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/16"</span>) +<span id="L10855" class="LineNr">10855 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/17"</span>) +<span id="L10856" class="LineNr">10856 </span> <span class="subxComment"># reclaim x</span> +<span id="L10857" class="LineNr">10857 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/18"</span>) +<span id="L10858" class="LineNr">10858 </span> <span class="subxComment"># reclaim a</span> +<span id="L10859" class="LineNr">10859 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/19"</span>) +<span id="L10860" class="LineNr">10860 </span> <span class="subxComment">#</span> +<span id="L10861" class="LineNr">10861 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/20"</span>) +<span id="L10862" class="LineNr">10862 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/21"</span>) +<span id="L10863" class="LineNr">10863 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types-to-edx/22"</span>) +<span id="L10864" class="LineNr">10864 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/23"</span>) +<span id="L10865" class="LineNr">10865 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/24"</span>) +<span id="L10866" class="LineNr">10866 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10806'>test-convert-length-of-array-of-user-defined-types-to-edx</a>/25"</span>) +<span id="L10867" class="LineNr">10867 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10868" class="LineNr">10868 </span> 89/<- %esp 5/r32/ebp +<span id="L10869" class="LineNr">10869 </span> 5d/pop-to-ebp +<span id="L10870" class="LineNr">10870 </span> c3/return +<span id="L10871" class="LineNr">10871 </span> +<span id="L10872" class="LineNr">10872 </span><span class="subxTest">test-convert-length-of-array-of-user-defined-types</span>: +<span id="L10873" class="LineNr">10873 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10874" class="LineNr">10874 </span> 55/push-ebp +<span id="L10875" class="LineNr">10875 </span> 89/<- %ebp 4/r32/esp +<span id="L10876" class="LineNr">10876 </span> <span class="subxComment"># setup</span> +<span id="L10877" class="LineNr">10877 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10878" class="LineNr">10878 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10879" class="LineNr">10879 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10880" class="LineNr">10880 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10881" class="LineNr">10881 </span> <span class="subxComment">#</span> +<span id="L10882" class="LineNr">10882 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># each t is 8 bytes, which is a power of 2</span> +<span id="L10883" class="LineNr">10883 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L10884" class="LineNr">10884 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L10885" class="LineNr">10885 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L10886" class="LineNr">10886 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10887" class="LineNr">10887 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10888" class="LineNr">10888 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var arr/eax: (addr array t) <- copy 0\n"</span>) +<span id="L10889" class="LineNr">10889 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/ebx: int <- length arr\n"</span>) +<span id="L10890" class="LineNr">10890 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10891" class="LineNr">10891 </span> <span class="subxComment"># convert</span> +<span id="L10892" class="LineNr">10892 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L10893" class="LineNr">10893 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10894" class="Folded">10894 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10900" class="LineNr">10900 </span> <span class="subxComment"># check output</span> +<span id="L10901" class="LineNr">10901 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/0"</span>) +<span id="L10902" class="LineNr">10902 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/1"</span>) +<span id="L10903" class="LineNr">10903 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/2"</span>) +<span id="L10904" class="LineNr">10904 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/3"</span>) +<span id="L10905" class="LineNr">10905 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/4"</span>) +<span id="L10906" class="LineNr">10906 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/5"</span>) +<span id="L10907" class="LineNr">10907 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/6"</span>) +<span id="L10908" class="LineNr">10908 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/7"</span>) +<span id="L10909" class="LineNr">10909 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/8"</span>) +<span id="L10910" class="LineNr">10910 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 50/push-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/9"</span>) +<span id="L10911" class="LineNr">10911 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 51/push-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/10"</span>) +<span id="L10912" class="LineNr">10912 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 52/push-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/11"</span>) +<span id="L10913" class="LineNr">10913 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/12"</span>) +<span id="L10914" class="LineNr">10914 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 31/xor %edx 2/r32/edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/13"</span>) +<span id="L10915" class="LineNr">10915 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0x0000000c/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/14"</span>) +<span id="L10916" class="LineNr">10916 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f7 7/subop/idiv-eax-edx-by %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/15"</span>) +<span id="L10917" class="LineNr">10917 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebx 0/r32/eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/16"</span>) +<span id="L10918" class="LineNr">10918 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5a/pop-to-edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/17"</span>) +<span id="L10919" class="LineNr">10919 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 59/pop-to-ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/18"</span>) +<span id="L10920" class="LineNr">10920 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 58/pop-to-eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/19"</span>) +<span id="L10921" class="LineNr">10921 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ebx"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/20"</span>) +<span id="L10922" class="LineNr">10922 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/21"</span>) +<span id="L10923" class="LineNr">10923 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/22"</span>) +<span id="L10924" class="LineNr">10924 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/23"</span>) +<span id="L10925" class="LineNr">10925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-length-of-array-of-user-defined-types/24"</span>) +<span id="L10926" class="LineNr">10926 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/25"</span>) +<span id="L10927" class="LineNr">10927 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/26"</span>) +<span id="L10928" class="LineNr">10928 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L10872'>test-convert-length-of-array-of-user-defined-types</a>/27"</span>) +<span id="L10929" class="LineNr">10929 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10930" class="LineNr">10930 </span> 89/<- %esp 5/r32/ebp +<span id="L10931" class="LineNr">10931 </span> 5d/pop-to-ebp +<span id="L10932" class="LineNr">10932 </span> c3/return +<span id="L10933" class="LineNr">10933 </span> +<span id="L10934" class="LineNr">10934 </span><span class="subxTest">test-index-with-non-array-atom-base-type</span>: +<span id="L10935" class="LineNr">10935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10936" class="LineNr">10936 </span> 55/push-ebp +<span id="L10937" class="LineNr">10937 </span> 89/<- %ebp 4/r32/esp +<span id="L10938" class="LineNr">10938 </span> <span class="subxComment"># setup</span> +<span id="L10939" class="LineNr">10939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10940" class="LineNr">10940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10941" class="LineNr">10941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10942" class="LineNr">10942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10943" class="LineNr">10943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10944" class="LineNr">10944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10945" class="LineNr">10945 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10946" class="LineNr">10946 </span> 68/push 0/imm32 +<span id="L10947" class="LineNr">10947 </span> 68/push 0/imm32 +<span id="L10948" class="LineNr">10948 </span> 89/<- %edx 4/r32/esp +<span id="L10949" class="LineNr">10949 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10950" class="LineNr">10950 </span> <span class="subxComment">#</span> +<span id="L10951" class="LineNr">10951 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10952" class="LineNr">10952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L10953" class="LineNr">10953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L10954" class="LineNr">10954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L10955" class="LineNr">10955 </span> <span class="subxComment"># convert</span> +<span id="L10956" class="LineNr">10956 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L10957" class="LineNr">10957 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L10958" class="LineNr">10958 </span> <span class="subxComment"># restore ed</span> +<span id="L10959" class="LineNr">10959 </span> 89/<- %edx 4/r32/esp +<span id="L10960" class="LineNr">10960 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L10961" class="LineNr">10961 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L10962" class="Folded">10962 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L10968" class="LineNr">10968 </span> <span class="subxComment"># check output</span> +<span id="L10969" class="LineNr">10969 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10934'>test-index-with-non-array-atom-base-type</a>: output should be empty"</span>) +<span id="L10970" class="LineNr">10970 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10934'>test-index-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L10971" class="LineNr">10971 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L10972" class="LineNr">10972 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10934'>test-index-with-non-array-atom-base-type</a>: exit status"</span>) +<span id="L10973" class="LineNr">10973 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L10974" class="LineNr">10974 </span> 81 0/subop/add %esp 8/imm32 +<span id="L10975" class="LineNr">10975 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L10976" class="LineNr">10976 </span> 5d/pop-to-ebp +<span id="L10977" class="LineNr">10977 </span> c3/return +<span id="L10978" class="LineNr">10978 </span> +<span id="L10979" class="LineNr">10979 </span><span class="subxTest">test-index-with-non-array-compound-base-type</span>: +<span id="L10980" class="LineNr">10980 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L10981" class="LineNr">10981 </span> 55/push-ebp +<span id="L10982" class="LineNr">10982 </span> 89/<- %ebp 4/r32/esp +<span id="L10983" class="LineNr">10983 </span> <span class="subxComment"># setup</span> +<span id="L10984" class="LineNr">10984 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L10985" class="LineNr">10985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L10986" class="LineNr">10986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L10987" class="LineNr">10987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L10988" class="LineNr">10988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L10989" class="LineNr">10989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L10990" class="LineNr">10990 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L10991" class="LineNr">10991 </span> 68/push 0/imm32 +<span id="L10992" class="LineNr">10992 </span> 68/push 0/imm32 +<span id="L10993" class="LineNr">10993 </span> 89/<- %edx 4/r32/esp +<span id="L10994" class="LineNr">10994 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L10995" class="LineNr">10995 </span> <span class="subxComment">#</span> +<span id="L10996" class="LineNr">10996 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L10997" class="LineNr">10997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L10998" class="LineNr">10998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L10999" class="LineNr">10999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11000" class="LineNr">11000 </span> <span class="subxComment"># convert</span> +<span id="L11001" class="LineNr">11001 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11002" class="LineNr">11002 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11003" class="LineNr">11003 </span> <span class="subxComment"># restore ed</span> +<span id="L11004" class="LineNr">11004 </span> 89/<- %edx 4/r32/esp +<span id="L11005" class="LineNr">11005 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11006" class="LineNr">11006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11007" class="Folded">11007 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11013" class="LineNr">11013 </span> <span class="subxComment"># check output</span> +<span id="L11014" class="LineNr">11014 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L10979'>test-index-with-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L11015" class="LineNr">11015 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L10979'>test-index-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11016" class="LineNr">11016 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11017" class="LineNr">11017 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L10979'>test-index-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L11018" class="LineNr">11018 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11019" class="LineNr">11019 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11020" class="LineNr">11020 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11021" class="LineNr">11021 </span> 5d/pop-to-ebp +<span id="L11022" class="LineNr">11022 </span> c3/return +<span id="L11023" class="LineNr">11023 </span> +<span id="L11024" class="LineNr">11024 </span><span class="subxTest">test-index-with-non-array-compound-base-type-2</span>: +<span id="L11025" class="LineNr">11025 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11026" class="LineNr">11026 </span> 55/push-ebp +<span id="L11027" class="LineNr">11027 </span> 89/<- %ebp 4/r32/esp +<span id="L11028" class="LineNr">11028 </span> <span class="subxComment"># setup</span> +<span id="L11029" class="LineNr">11029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11030" class="LineNr">11030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11031" class="LineNr">11031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11032" class="LineNr">11032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11033" class="LineNr">11033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11034" class="LineNr">11034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11035" class="LineNr">11035 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11036" class="LineNr">11036 </span> 68/push 0/imm32 +<span id="L11037" class="LineNr">11037 </span> 68/push 0/imm32 +<span id="L11038" class="LineNr">11038 </span> 89/<- %edx 4/r32/esp +<span id="L11039" class="LineNr">11039 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11040" class="LineNr">11040 </span> <span class="subxComment">#</span> +<span id="L11041" class="LineNr">11041 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11042" class="LineNr">11042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L11043" class="LineNr">11043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11044" class="LineNr">11044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11045" class="LineNr">11045 </span> <span class="subxComment"># convert</span> +<span id="L11046" class="LineNr">11046 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11047" class="LineNr">11047 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11048" class="LineNr">11048 </span> <span class="subxComment"># restore ed</span> +<span id="L11049" class="LineNr">11049 </span> 89/<- %edx 4/r32/esp +<span id="L11050" class="LineNr">11050 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11051" class="LineNr">11051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11052" class="Folded">11052 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11058" class="LineNr">11058 </span> <span class="subxComment"># check output</span> +<span id="L11059" class="LineNr">11059 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11024'>test-index-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L11060" class="LineNr">11060 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11024'>test-index-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11061" class="LineNr">11061 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11062" class="LineNr">11062 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11024'>test-index-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L11063" class="LineNr">11063 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11064" class="LineNr">11064 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11065" class="LineNr">11065 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11066" class="LineNr">11066 </span> 5d/pop-to-ebp +<span id="L11067" class="LineNr">11067 </span> c3/return +<span id="L11068" class="LineNr">11068 </span> +<span id="L11069" class="LineNr">11069 </span><span class="subxTest">test-index-with-array-atom-base-type</span>: +<span id="L11070" class="LineNr">11070 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11071" class="LineNr">11071 </span> 55/push-ebp +<span id="L11072" class="LineNr">11072 </span> 89/<- %ebp 4/r32/esp +<span id="L11073" class="LineNr">11073 </span> <span class="subxComment"># setup</span> +<span id="L11074" class="LineNr">11074 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11075" class="LineNr">11075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11076" class="LineNr">11076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11077" class="LineNr">11077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11078" class="LineNr">11078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11079" class="LineNr">11079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11080" class="LineNr">11080 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11081" class="LineNr">11081 </span> 68/push 0/imm32 +<span id="L11082" class="LineNr">11082 </span> 68/push 0/imm32 +<span id="L11083" class="LineNr">11083 </span> 89/<- %edx 4/r32/esp +<span id="L11084" class="LineNr">11084 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11085" class="LineNr">11085 </span> <span class="subxComment">#</span> +<span id="L11086" class="LineNr">11086 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11087" class="LineNr">11087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) +<span id="L11088" class="LineNr">11088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11089" class="LineNr">11089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11090" class="LineNr">11090 </span> <span class="subxComment"># convert</span> +<span id="L11091" class="LineNr">11091 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11092" class="LineNr">11092 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11093" class="LineNr">11093 </span> <span class="subxComment"># restore ed</span> +<span id="L11094" class="LineNr">11094 </span> 89/<- %edx 4/r32/esp +<span id="L11095" class="LineNr">11095 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11096" class="LineNr">11096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11097" class="Folded">11097 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11103" class="LineNr">11103 </span> <span class="subxComment"># check output</span> +<span id="L11104" class="LineNr">11104 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11069'>test-index-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11105" class="LineNr">11105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11069'>test-index-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11106" class="LineNr">11106 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11107" class="LineNr">11107 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11069'>test-index-with-array-atom-base-type</a>: exit status"</span>) +<span id="L11108" class="LineNr">11108 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11109" class="LineNr">11109 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11110" class="LineNr">11110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11111" class="LineNr">11111 </span> 5d/pop-to-ebp +<span id="L11112" class="LineNr">11112 </span> c3/return +<span id="L11113" class="LineNr">11113 </span> +<span id="L11114" class="LineNr">11114 </span><span class="subxTest">test-index-with-addr-base-on-stack</span>: +<span id="L11115" class="LineNr">11115 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11116" class="LineNr">11116 </span> 55/push-ebp +<span id="L11117" class="LineNr">11117 </span> 89/<- %ebp 4/r32/esp +<span id="L11118" class="LineNr">11118 </span> <span class="subxComment"># setup</span> +<span id="L11119" class="LineNr">11119 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11120" class="LineNr">11120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11121" class="LineNr">11121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11122" class="LineNr">11122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11123" class="LineNr">11123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11124" class="LineNr">11124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11125" class="LineNr">11125 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11126" class="LineNr">11126 </span> 68/push 0/imm32 +<span id="L11127" class="LineNr">11127 </span> 68/push 0/imm32 +<span id="L11128" class="LineNr">11128 </span> 89/<- %edx 4/r32/esp +<span id="L11129" class="LineNr">11129 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11130" class="LineNr">11130 </span> <span class="subxComment">#</span> +<span id="L11131" class="LineNr">11131 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11132" class="LineNr">11132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) +<span id="L11133" class="LineNr">11133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0\n"</span>) +<span id="L11134" class="LineNr">11134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11135" class="LineNr">11135 </span> <span class="subxComment"># convert</span> +<span id="L11136" class="LineNr">11136 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11137" class="LineNr">11137 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11138" class="LineNr">11138 </span> <span class="subxComment"># restore ed</span> +<span id="L11139" class="LineNr">11139 </span> 89/<- %edx 4/r32/esp +<span id="L11140" class="LineNr">11140 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11141" class="LineNr">11141 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11142" class="Folded">11142 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11148" class="LineNr">11148 </span> <span class="subxComment"># check output</span> +<span id="L11149" class="LineNr">11149 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11114'>test-index-with-addr-base-on-stack</a>: output should be empty"</span>) +<span id="L11150" class="LineNr">11150 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L11114'>test-index-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11151" class="LineNr">11151 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11152" class="LineNr">11152 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11114'>test-index-with-addr-base-on-stack</a>: exit status"</span>) +<span id="L11153" class="LineNr">11153 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11154" class="LineNr">11154 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11155" class="LineNr">11155 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11156" class="LineNr">11156 </span> 5d/pop-to-ebp +<span id="L11157" class="LineNr">11157 </span> c3/return +<span id="L11158" class="LineNr">11158 </span> +<span id="L11159" class="LineNr">11159 </span><span class="subxTest">test-index-with-wrong-index-type</span>: +<span id="L11160" class="LineNr">11160 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11161" class="LineNr">11161 </span> 55/push-ebp +<span id="L11162" class="LineNr">11162 </span> 89/<- %ebp 4/r32/esp +<span id="L11163" class="LineNr">11163 </span> <span class="subxComment"># setup</span> +<span id="L11164" class="LineNr">11164 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11165" class="LineNr">11165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11166" class="LineNr">11166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11167" class="LineNr">11167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11168" class="LineNr">11168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11169" class="LineNr">11169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11170" class="LineNr">11170 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11171" class="LineNr">11171 </span> 68/push 0/imm32 +<span id="L11172" class="LineNr">11172 </span> 68/push 0/imm32 +<span id="L11173" class="LineNr">11173 </span> 89/<- %edx 4/r32/esp +<span id="L11174" class="LineNr">11174 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11175" class="LineNr">11175 </span> <span class="subxComment">#</span> +<span id="L11176" class="LineNr">11176 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11177" class="LineNr">11177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11178" class="LineNr">11178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L11179" class="LineNr">11179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11180" class="LineNr">11180 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11181" class="LineNr">11181 </span> <span class="subxComment"># convert</span> +<span id="L11182" class="LineNr">11182 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11183" class="LineNr">11183 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11184" class="LineNr">11184 </span> <span class="subxComment"># restore ed</span> +<span id="L11185" class="LineNr">11185 </span> 89/<- %edx 4/r32/esp +<span id="L11186" class="LineNr">11186 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11187" class="LineNr">11187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11188" class="Folded">11188 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11194" class="LineNr">11194 </span> <span class="subxComment"># check output</span> +<span id="L11195" class="LineNr">11195 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11159'>test-index-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L11196" class="LineNr">11196 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be an int or offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L11159'>test-index-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11197" class="LineNr">11197 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11198" class="LineNr">11198 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11159'>test-index-with-wrong-index-type</a>: exit status"</span>) +<span id="L11199" class="LineNr">11199 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11200" class="LineNr">11200 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11201" class="LineNr">11201 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11202" class="LineNr">11202 </span> 5d/pop-to-ebp +<span id="L11203" class="LineNr">11203 </span> c3/return +<span id="L11204" class="LineNr">11204 </span> +<span id="L11205" class="LineNr">11205 </span><span class="subxTest">test-index-with-offset-atom-index-type</span>: +<span id="L11206" class="LineNr">11206 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11207" class="LineNr">11207 </span> 55/push-ebp +<span id="L11208" class="LineNr">11208 </span> 89/<- %ebp 4/r32/esp +<span id="L11209" class="LineNr">11209 </span> <span class="subxComment"># setup</span> +<span id="L11210" class="LineNr">11210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11211" class="LineNr">11211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11212" class="LineNr">11212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11213" class="LineNr">11213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11214" class="LineNr">11214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11215" class="LineNr">11215 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11216" class="LineNr">11216 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11217" class="LineNr">11217 </span> 68/push 0/imm32 +<span id="L11218" class="LineNr">11218 </span> 68/push 0/imm32 +<span id="L11219" class="LineNr">11219 </span> 89/<- %edx 4/r32/esp +<span id="L11220" class="LineNr">11220 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11221" class="LineNr">11221 </span> <span class="subxComment">#</span> +<span id="L11222" class="LineNr">11222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11223" class="LineNr">11223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11224" class="LineNr">11224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: offset\n"</span>) +<span id="L11225" class="LineNr">11225 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11226" class="LineNr">11226 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11227" class="LineNr">11227 </span> <span class="subxComment"># convert</span> +<span id="L11228" class="LineNr">11228 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11229" class="LineNr">11229 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11230" class="LineNr">11230 </span> <span class="subxComment"># restore ed</span> +<span id="L11231" class="LineNr">11231 </span> 89/<- %edx 4/r32/esp +<span id="L11232" class="LineNr">11232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11233" class="LineNr">11233 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11234" class="Folded">11234 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11240" class="LineNr">11240 </span> <span class="subxComment"># check output</span> +<span id="L11241" class="LineNr">11241 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11205'>test-index-with-offset-atom-index-type</a>: output should be empty"</span>) +<span id="L11242" class="LineNr">11242 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: offset 'b' must specify the type of array elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11205'>test-index-with-offset-atom-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11243" class="LineNr">11243 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11244" class="LineNr">11244 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11205'>test-index-with-offset-atom-index-type</a>: exit status"</span>) +<span id="L11245" class="LineNr">11245 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11246" class="LineNr">11246 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11247" class="LineNr">11247 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11248" class="LineNr">11248 </span> 5d/pop-to-ebp +<span id="L11249" class="LineNr">11249 </span> c3/return +<span id="L11250" class="LineNr">11250 </span> +<span id="L11251" class="LineNr">11251 </span><span class="subxTest">test-index-with-offset-on-stack</span>: +<span id="L11252" class="LineNr">11252 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11253" class="LineNr">11253 </span> 55/push-ebp +<span id="L11254" class="LineNr">11254 </span> 89/<- %ebp 4/r32/esp +<span id="L11255" class="LineNr">11255 </span> <span class="subxComment"># setup</span> +<span id="L11256" class="LineNr">11256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11257" class="LineNr">11257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11258" class="LineNr">11258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11259" class="LineNr">11259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11260" class="LineNr">11260 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11261" class="LineNr">11261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11262" class="LineNr">11262 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11263" class="LineNr">11263 </span> 68/push 0/imm32 +<span id="L11264" class="LineNr">11264 </span> 68/push 0/imm32 +<span id="L11265" class="LineNr">11265 </span> 89/<- %edx 4/r32/esp +<span id="L11266" class="LineNr">11266 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11267" class="LineNr">11267 </span> <span class="subxComment">#</span> +<span id="L11268" class="LineNr">11268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11269" class="LineNr">11269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11270" class="LineNr">11270 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: int\n"</span>) +<span id="L11271" class="LineNr">11271 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11272" class="LineNr">11272 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11273" class="LineNr">11273 </span> <span class="subxComment"># convert</span> +<span id="L11274" class="LineNr">11274 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11275" class="LineNr">11275 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11276" class="LineNr">11276 </span> <span class="subxComment"># restore ed</span> +<span id="L11277" class="LineNr">11277 </span> 89/<- %edx 4/r32/esp +<span id="L11278" class="LineNr">11278 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11279" class="LineNr">11279 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11280" class="Folded">11280 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11286" class="LineNr">11286 </span> <span class="subxComment"># check output</span> +<span id="L11287" class="LineNr">11287 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11251'>test-index-with-offset-on-stack</a>: output should be empty"</span>) +<span id="L11288" class="LineNr">11288 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: second argument 'b' must be in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L11251'>test-index-with-offset-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11289" class="LineNr">11289 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11290" class="LineNr">11290 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11251'>test-index-with-offset-on-stack</a>: exit status"</span>) +<span id="L11291" class="LineNr">11291 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11292" class="LineNr">11292 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11293" class="LineNr">11293 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11294" class="LineNr">11294 </span> 5d/pop-to-ebp +<span id="L11295" class="LineNr">11295 </span> c3/return +<span id="L11296" class="LineNr">11296 </span> +<span id="L11297" class="LineNr">11297 </span><span class="subxTest">test-index-needs-offset-type</span>: +<span id="L11298" class="LineNr">11298 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11299" class="LineNr">11299 </span> 55/push-ebp +<span id="L11300" class="LineNr">11300 </span> 89/<- %ebp 4/r32/esp +<span id="L11301" class="LineNr">11301 </span> <span class="subxComment"># setup</span> +<span id="L11302" class="LineNr">11302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11303" class="LineNr">11303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11304" class="LineNr">11304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11305" class="LineNr">11305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11306" class="LineNr">11306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11307" class="LineNr">11307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11308" class="LineNr">11308 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11309" class="LineNr">11309 </span> 68/push 0/imm32 +<span id="L11310" class="LineNr">11310 </span> 68/push 0/imm32 +<span id="L11311" class="LineNr">11311 </span> 89/<- %edx 4/r32/esp +<span id="L11312" class="LineNr">11312 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11313" class="LineNr">11313 </span> <span class="subxComment">#</span> +<span id="L11314" class="LineNr">11314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11315" class="LineNr">11315 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array t) <- copy 0\n"</span>) +<span id="L11316" class="LineNr">11316 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/ebx: int <- copy 0\n"</span>) +<span id="L11317" class="LineNr">11317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, b\n"</span>) +<span id="L11318" class="LineNr">11318 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11319" class="LineNr">11319 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"type t {\n"</span>) <span class="subxComment"># size 12 is not a power of two</span> +<span id="L11320" class="LineNr">11320 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x: int\n"</span>) +<span id="L11321" class="LineNr">11321 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" y: int\n"</span>) +<span id="L11322" class="LineNr">11322 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" z: int\n"</span>) +<span id="L11323" class="LineNr">11323 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11324" class="LineNr">11324 </span> <span class="subxComment"># convert</span> +<span id="L11325" class="LineNr">11325 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11326" class="LineNr">11326 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11327" class="LineNr">11327 </span> <span class="subxComment"># restore ed</span> +<span id="L11328" class="LineNr">11328 </span> 89/<- %edx 4/r32/esp +<span id="L11329" class="LineNr">11329 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11330" class="LineNr">11330 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11331" class="Folded">11331 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11337" class="LineNr">11337 </span> <span class="subxComment"># check output</span> +<span id="L11338" class="LineNr">11338 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11297'>test-index-needs-offset-type</a>: output should be empty"</span>) +<span id="L11339" class="LineNr">11339 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: cannot take an int for array 'a'; create an offset instead. See mu.md for details."</span> <span class="Constant">"F - <a href='mu.subx.html#L11297'>test-index-needs-offset-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11340" class="LineNr">11340 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11341" class="LineNr">11341 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11297'>test-index-needs-offset-type</a>: exit status"</span>) +<span id="L11342" class="LineNr">11342 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11343" class="LineNr">11343 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11344" class="LineNr">11344 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11345" class="LineNr">11345 </span> 5d/pop-to-ebp +<span id="L11346" class="LineNr">11346 </span> c3/return +<span id="L11347" class="LineNr">11347 </span> +<span id="L11348" class="LineNr">11348 </span><span class="subxTest">test-index-with-output-not-address</span>: +<span id="L11349" class="LineNr">11349 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11350" class="LineNr">11350 </span> 55/push-ebp +<span id="L11351" class="LineNr">11351 </span> 89/<- %ebp 4/r32/esp +<span id="L11352" class="LineNr">11352 </span> <span class="subxComment"># setup</span> +<span id="L11353" class="LineNr">11353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11354" class="LineNr">11354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11355" class="LineNr">11355 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11356" class="LineNr">11356 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11357" class="LineNr">11357 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11358" class="LineNr">11358 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11359" class="LineNr">11359 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11360" class="LineNr">11360 </span> 68/push 0/imm32 +<span id="L11361" class="LineNr">11361 </span> 68/push 0/imm32 +<span id="L11362" class="LineNr">11362 </span> 89/<- %edx 4/r32/esp +<span id="L11363" class="LineNr">11363 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11364" class="LineNr">11364 </span> <span class="subxComment">#</span> +<span id="L11365" class="LineNr">11365 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11366" class="LineNr">11366 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L11367" class="LineNr">11367 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- index a, 0\n"</span>) +<span id="L11368" class="LineNr">11368 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11369" class="LineNr">11369 </span> <span class="subxComment"># convert</span> +<span id="L11370" class="LineNr">11370 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11371" class="LineNr">11371 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11372" class="LineNr">11372 </span> <span class="subxComment"># restore ed</span> +<span id="L11373" class="LineNr">11373 </span> 89/<- %edx 4/r32/esp +<span id="L11374" class="LineNr">11374 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11375" class="LineNr">11375 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11376" class="Folded">11376 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11382" class="LineNr">11382 </span> <span class="subxComment"># check output</span> +<span id="L11383" class="LineNr">11383 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11348'>test-index-with-output-not-address</a>: output should be empty"</span>) +<span id="L11384" class="LineNr">11384 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11348'>test-index-with-output-not-address</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11385" class="LineNr">11385 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11386" class="LineNr">11386 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11348'>test-index-with-output-not-address</a>: exit status"</span>) +<span id="L11387" class="LineNr">11387 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11388" class="LineNr">11388 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11389" class="LineNr">11389 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11390" class="LineNr">11390 </span> 5d/pop-to-ebp +<span id="L11391" class="LineNr">11391 </span> c3/return +<span id="L11392" class="LineNr">11392 </span> +<span id="L11393" class="LineNr">11393 </span><span class="subxTest">test-index-with-output-not-address-2</span>: +<span id="L11394" class="LineNr">11394 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11395" class="LineNr">11395 </span> 55/push-ebp +<span id="L11396" class="LineNr">11396 </span> 89/<- %ebp 4/r32/esp +<span id="L11397" class="LineNr">11397 </span> <span class="subxComment"># setup</span> +<span id="L11398" class="LineNr">11398 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11399" class="LineNr">11399 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11400" class="LineNr">11400 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11401" class="LineNr">11401 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11402" class="LineNr">11402 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11403" class="LineNr">11403 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11404" class="LineNr">11404 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11405" class="LineNr">11405 </span> 68/push 0/imm32 +<span id="L11406" class="LineNr">11406 </span> 68/push 0/imm32 +<span id="L11407" class="LineNr">11407 </span> 89/<- %edx 4/r32/esp +<span id="L11408" class="LineNr">11408 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11409" class="LineNr">11409 </span> <span class="subxComment">#</span> +<span id="L11410" class="LineNr">11410 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11411" class="LineNr">11411 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L11412" class="LineNr">11412 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- index a, 0\n"</span>) +<span id="L11413" class="LineNr">11413 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11414" class="LineNr">11414 </span> <span class="subxComment"># convert</span> +<span id="L11415" class="LineNr">11415 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11416" class="LineNr">11416 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11417" class="LineNr">11417 </span> <span class="subxComment"># restore ed</span> +<span id="L11418" class="LineNr">11418 </span> 89/<- %edx 4/r32/esp +<span id="L11419" class="LineNr">11419 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11420" class="LineNr">11420 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11421" class="Folded">11421 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11427" class="LineNr">11427 </span> <span class="subxComment"># check output</span> +<span id="L11428" class="LineNr">11428 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11393'>test-index-with-output-not-address-2</a>: output should be empty"</span>) +<span id="L11429" class="LineNr">11429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L11393'>test-index-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11430" class="LineNr">11430 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11431" class="LineNr">11431 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11393'>test-index-with-output-not-address-2</a>: exit status"</span>) +<span id="L11432" class="LineNr">11432 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11433" class="LineNr">11433 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11434" class="LineNr">11434 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11435" class="LineNr">11435 </span> 5d/pop-to-ebp +<span id="L11436" class="LineNr">11436 </span> c3/return +<span id="L11437" class="LineNr">11437 </span> +<span id="L11438" class="LineNr">11438 </span><span class="subxTest">test-index-with-wrong-output-type</span>: +<span id="L11439" class="LineNr">11439 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11440" class="LineNr">11440 </span> 55/push-ebp +<span id="L11441" class="LineNr">11441 </span> 89/<- %ebp 4/r32/esp +<span id="L11442" class="LineNr">11442 </span> <span class="subxComment"># setup</span> +<span id="L11443" class="LineNr">11443 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11444" class="LineNr">11444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11445" class="LineNr">11445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11446" class="LineNr">11446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11447" class="LineNr">11447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11448" class="LineNr">11448 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11449" class="LineNr">11449 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11450" class="LineNr">11450 </span> 68/push 0/imm32 +<span id="L11451" class="LineNr">11451 </span> 68/push 0/imm32 +<span id="L11452" class="LineNr">11452 </span> 89/<- %edx 4/r32/esp +<span id="L11453" class="LineNr">11453 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11454" class="LineNr">11454 </span> <span class="subxComment">#</span> +<span id="L11455" class="LineNr">11455 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11456" class="LineNr">11456 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L11457" class="LineNr">11457 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- index a, 0\n"</span>) +<span id="L11458" class="LineNr">11458 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11459" class="LineNr">11459 </span> <span class="subxComment"># convert</span> +<span id="L11460" class="LineNr">11460 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11461" class="LineNr">11461 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11462" class="LineNr">11462 </span> <span class="subxComment"># restore ed</span> +<span id="L11463" class="LineNr">11463 </span> 89/<- %edx 4/r32/esp +<span id="L11464" class="LineNr">11464 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11465" class="LineNr">11465 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11466" class="Folded">11466 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11472" class="LineNr">11472 </span> <span class="subxComment"># check output</span> +<span id="L11473" class="LineNr">11473 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11438'>test-index-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L11474" class="LineNr">11474 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11438'>test-index-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11475" class="LineNr">11475 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11476" class="LineNr">11476 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11438'>test-index-with-wrong-output-type</a>: exit status"</span>) +<span id="L11477" class="LineNr">11477 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11478" class="LineNr">11478 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11479" class="LineNr">11479 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11480" class="LineNr">11480 </span> 5d/pop-to-ebp +<span id="L11481" class="LineNr">11481 </span> c3/return +<span id="L11482" class="LineNr">11482 </span> +<span id="L11483" class="LineNr">11483 </span><span class="subxTest">test-index-with-wrong-output-compound-type</span>: +<span id="L11484" class="LineNr">11484 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11485" class="LineNr">11485 </span> 55/push-ebp +<span id="L11486" class="LineNr">11486 </span> 89/<- %ebp 4/r32/esp +<span id="L11487" class="LineNr">11487 </span> <span class="subxComment"># setup</span> +<span id="L11488" class="LineNr">11488 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11489" class="LineNr">11489 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11490" class="LineNr">11490 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11491" class="LineNr">11491 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11492" class="LineNr">11492 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11493" class="LineNr">11493 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11494" class="LineNr">11494 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11495" class="LineNr">11495 </span> 68/push 0/imm32 +<span id="L11496" class="LineNr">11496 </span> 68/push 0/imm32 +<span id="L11497" class="LineNr">11497 </span> 89/<- %edx 4/r32/esp +<span id="L11498" class="LineNr">11498 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11499" class="LineNr">11499 </span> <span class="subxComment">#</span> +<span id="L11500" class="LineNr">11500 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11501" class="LineNr">11501 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) +<span id="L11502" class="LineNr">11502 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- index a, 0\n"</span>) +<span id="L11503" class="LineNr">11503 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11504" class="LineNr">11504 </span> <span class="subxComment"># convert</span> +<span id="L11505" class="LineNr">11505 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11506" class="LineNr">11506 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11507" class="LineNr">11507 </span> <span class="subxComment"># restore ed</span> +<span id="L11508" class="LineNr">11508 </span> 89/<- %edx 4/r32/esp +<span id="L11509" class="LineNr">11509 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11510" class="LineNr">11510 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11511" class="Folded">11511 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11517" class="LineNr">11517 </span> <span class="subxComment"># check output</span> +<span id="L11518" class="LineNr">11518 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11483'>test-index-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L11519" class="LineNr">11519 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L11483'>test-index-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11520" class="LineNr">11520 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11521" class="LineNr">11521 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11483'>test-index-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L11522" class="LineNr">11522 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11523" class="LineNr">11523 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11524" class="LineNr">11524 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11525" class="LineNr">11525 </span> 5d/pop-to-ebp +<span id="L11526" class="LineNr">11526 </span> c3/return +<span id="L11527" class="LineNr">11527 </span> +<span id="L11528" class="LineNr">11528 </span><span class="subxTest">test-index-with-no-inouts</span>: +<span id="L11529" class="LineNr">11529 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11530" class="LineNr">11530 </span> 55/push-ebp +<span id="L11531" class="LineNr">11531 </span> 89/<- %ebp 4/r32/esp +<span id="L11532" class="LineNr">11532 </span> <span class="subxComment"># setup</span> +<span id="L11533" class="LineNr">11533 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11534" class="LineNr">11534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11535" class="LineNr">11535 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11536" class="LineNr">11536 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11537" class="LineNr">11537 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11538" class="LineNr">11538 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11539" class="LineNr">11539 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11540" class="LineNr">11540 </span> 68/push 0/imm32 +<span id="L11541" class="LineNr">11541 </span> 68/push 0/imm32 +<span id="L11542" class="LineNr">11542 </span> 89/<- %edx 4/r32/esp +<span id="L11543" class="LineNr">11543 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11544" class="LineNr">11544 </span> <span class="subxComment">#</span> +<span id="L11545" class="LineNr">11545 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11546" class="LineNr">11546 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index\n"</span>) +<span id="L11547" class="LineNr">11547 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11548" class="LineNr">11548 </span> <span class="subxComment"># convert</span> +<span id="L11549" class="LineNr">11549 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11550" class="LineNr">11550 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11551" class="LineNr">11551 </span> <span class="subxComment"># restore ed</span> +<span id="L11552" class="LineNr">11552 </span> 89/<- %edx 4/r32/esp +<span id="L11553" class="LineNr">11553 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11554" class="LineNr">11554 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11555" class="Folded">11555 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11561" class="LineNr">11561 </span> <span class="subxComment"># check output</span> +<span id="L11562" class="LineNr">11562 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11528'>test-index-with-no-inouts</a>: output should be empty"</span>) +<span id="L11563" class="LineNr">11563 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11528'>test-index-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11564" class="LineNr">11564 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11565" class="LineNr">11565 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11528'>test-index-with-no-inouts</a>: exit status"</span>) +<span id="L11566" class="LineNr">11566 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11567" class="LineNr">11567 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11568" class="LineNr">11568 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11569" class="LineNr">11569 </span> 5d/pop-to-ebp +<span id="L11570" class="LineNr">11570 </span> c3/return +<span id="L11571" class="LineNr">11571 </span> +<span id="L11572" class="LineNr">11572 </span><span class="subxTest">test-index-with-too-few-inouts</span>: +<span id="L11573" class="LineNr">11573 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11574" class="LineNr">11574 </span> 55/push-ebp +<span id="L11575" class="LineNr">11575 </span> 89/<- %ebp 4/r32/esp +<span id="L11576" class="LineNr">11576 </span> <span class="subxComment"># setup</span> +<span id="L11577" class="LineNr">11577 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11578" class="LineNr">11578 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11579" class="LineNr">11579 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11580" class="LineNr">11580 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11581" class="LineNr">11581 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11582" class="LineNr">11582 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11583" class="LineNr">11583 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11584" class="LineNr">11584 </span> 68/push 0/imm32 +<span id="L11585" class="LineNr">11585 </span> 68/push 0/imm32 +<span id="L11586" class="LineNr">11586 </span> 89/<- %edx 4/r32/esp +<span id="L11587" class="LineNr">11587 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11588" class="LineNr">11588 </span> <span class="subxComment">#</span> +<span id="L11589" class="LineNr">11589 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11590" class="LineNr">11590 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11591" class="LineNr">11591 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a\n"</span>) +<span id="L11592" class="LineNr">11592 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11593" class="LineNr">11593 </span> <span class="subxComment"># convert</span> +<span id="L11594" class="LineNr">11594 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11595" class="LineNr">11595 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11596" class="LineNr">11596 </span> <span class="subxComment"># restore ed</span> +<span id="L11597" class="LineNr">11597 </span> 89/<- %edx 4/r32/esp +<span id="L11598" class="LineNr">11598 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11599" class="LineNr">11599 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11600" class="Folded">11600 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11606" class="LineNr">11606 </span> <span class="subxComment"># check output</span> +<span id="L11607" class="LineNr">11607 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11572'>test-index-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L11608" class="LineNr">11608 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11572'>test-index-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11609" class="LineNr">11609 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11610" class="LineNr">11610 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11572'>test-index-with-too-few-inouts</a>: exit status"</span>) +<span id="L11611" class="LineNr">11611 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11612" class="LineNr">11612 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11613" class="LineNr">11613 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11614" class="LineNr">11614 </span> 5d/pop-to-ebp +<span id="L11615" class="LineNr">11615 </span> c3/return +<span id="L11616" class="LineNr">11616 </span> +<span id="L11617" class="LineNr">11617 </span><span class="subxTest">test-index-with-too-many-inouts</span>: +<span id="L11618" class="LineNr">11618 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11619" class="LineNr">11619 </span> 55/push-ebp +<span id="L11620" class="LineNr">11620 </span> 89/<- %ebp 4/r32/esp +<span id="L11621" class="LineNr">11621 </span> <span class="subxComment"># setup</span> +<span id="L11622" class="LineNr">11622 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11623" class="LineNr">11623 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11624" class="LineNr">11624 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11625" class="LineNr">11625 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11626" class="LineNr">11626 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11627" class="LineNr">11627 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11628" class="LineNr">11628 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11629" class="LineNr">11629 </span> 68/push 0/imm32 +<span id="L11630" class="LineNr">11630 </span> 68/push 0/imm32 +<span id="L11631" class="LineNr">11631 </span> 89/<- %edx 4/r32/esp +<span id="L11632" class="LineNr">11632 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11633" class="LineNr">11633 </span> <span class="subxComment">#</span> +<span id="L11634" class="LineNr">11634 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11635" class="LineNr">11635 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11636" class="LineNr">11636 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- index a, 0, 0\n"</span>) +<span id="L11637" class="LineNr">11637 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11638" class="LineNr">11638 </span> <span class="subxComment"># convert</span> +<span id="L11639" class="LineNr">11639 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11640" class="LineNr">11640 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11641" class="LineNr">11641 </span> <span class="subxComment"># restore ed</span> +<span id="L11642" class="LineNr">11642 </span> 89/<- %edx 4/r32/esp +<span id="L11643" class="LineNr">11643 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11644" class="LineNr">11644 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11645" class="Folded">11645 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11651" class="LineNr">11651 </span> <span class="subxComment"># check output</span> +<span id="L11652" class="LineNr">11652 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11617'>test-index-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L11653" class="LineNr">11653 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11617'>test-index-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11654" class="LineNr">11654 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11655" class="LineNr">11655 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11617'>test-index-with-too-many-inouts</a>: exit status"</span>) +<span id="L11656" class="LineNr">11656 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11657" class="LineNr">11657 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11658" class="LineNr">11658 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11659" class="LineNr">11659 </span> 5d/pop-to-ebp +<span id="L11660" class="LineNr">11660 </span> c3/return +<span id="L11661" class="LineNr">11661 </span> +<span id="L11662" class="LineNr">11662 </span><span class="subxTest">test-index-with-no-output</span>: +<span id="L11663" class="LineNr">11663 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11664" class="LineNr">11664 </span> 55/push-ebp +<span id="L11665" class="LineNr">11665 </span> 89/<- %ebp 4/r32/esp +<span id="L11666" class="LineNr">11666 </span> <span class="subxComment"># setup</span> +<span id="L11667" class="LineNr">11667 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11668" class="LineNr">11668 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11669" class="LineNr">11669 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11670" class="LineNr">11670 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11671" class="LineNr">11671 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11672" class="LineNr">11672 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11673" class="LineNr">11673 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11674" class="LineNr">11674 </span> 68/push 0/imm32 +<span id="L11675" class="LineNr">11675 </span> 68/push 0/imm32 +<span id="L11676" class="LineNr">11676 </span> 89/<- %edx 4/r32/esp +<span id="L11677" class="LineNr">11677 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11678" class="LineNr">11678 </span> <span class="subxComment">#</span> +<span id="L11679" class="LineNr">11679 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11680" class="LineNr">11680 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11681" class="LineNr">11681 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" index a, 0\n"</span>) +<span id="L11682" class="LineNr">11682 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11683" class="LineNr">11683 </span> <span class="subxComment"># convert</span> +<span id="L11684" class="LineNr">11684 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11685" class="LineNr">11685 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11686" class="LineNr">11686 </span> <span class="subxComment"># restore ed</span> +<span id="L11687" class="LineNr">11687 </span> 89/<- %edx 4/r32/esp +<span id="L11688" class="LineNr">11688 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11689" class="LineNr">11689 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11690" class="Folded">11690 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11696" class="LineNr">11696 </span> <span class="subxComment"># check output</span> +<span id="L11697" class="LineNr">11697 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11662'>test-index-with-no-output</a>: output should be empty"</span>) +<span id="L11698" class="LineNr">11698 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L11662'>test-index-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11699" class="LineNr">11699 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11700" class="LineNr">11700 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11662'>test-index-with-no-output</a>: exit status"</span>) +<span id="L11701" class="LineNr">11701 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11702" class="LineNr">11702 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11703" class="LineNr">11703 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11704" class="LineNr">11704 </span> 5d/pop-to-ebp +<span id="L11705" class="LineNr">11705 </span> c3/return +<span id="L11706" class="LineNr">11706 </span> +<span id="L11707" class="LineNr">11707 </span><span class="subxTest">test-index-with-too-many-outputs</span>: +<span id="L11708" class="LineNr">11708 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11709" class="LineNr">11709 </span> 55/push-ebp +<span id="L11710" class="LineNr">11710 </span> 89/<- %ebp 4/r32/esp +<span id="L11711" class="LineNr">11711 </span> <span class="subxComment"># setup</span> +<span id="L11712" class="LineNr">11712 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11713" class="LineNr">11713 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11714" class="LineNr">11714 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11715" class="LineNr">11715 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11716" class="LineNr">11716 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11717" class="LineNr">11717 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11718" class="LineNr">11718 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11719" class="LineNr">11719 </span> 68/push 0/imm32 +<span id="L11720" class="LineNr">11720 </span> 68/push 0/imm32 +<span id="L11721" class="LineNr">11721 </span> 89/<- %edx 4/r32/esp +<span id="L11722" class="LineNr">11722 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11723" class="LineNr">11723 </span> <span class="subxComment">#</span> +<span id="L11724" class="LineNr">11724 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11725" class="LineNr">11725 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L11726" class="LineNr">11726 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) +<span id="L11727" class="LineNr">11727 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) +<span id="L11728" class="LineNr">11728 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- index a, 0\n"</span>) +<span id="L11729" class="LineNr">11729 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11730" class="LineNr">11730 </span> <span class="subxComment"># convert</span> +<span id="L11731" class="LineNr">11731 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11732" class="LineNr">11732 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11733" class="LineNr">11733 </span> <span class="subxComment"># restore ed</span> +<span id="L11734" class="LineNr">11734 </span> 89/<- %edx 4/r32/esp +<span id="L11735" class="LineNr">11735 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11736" class="LineNr">11736 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11737" class="Folded">11737 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11743" class="LineNr">11743 </span> <span class="subxComment"># check output</span> +<span id="L11744" class="LineNr">11744 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11707'>test-index-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L11745" class="LineNr">11745 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt index: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L11707'>test-index-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11746" class="LineNr">11746 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11747" class="LineNr">11747 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11707'>test-index-with-too-many-outputs</a>: exit status"</span>) +<span id="L11748" class="LineNr">11748 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11749" class="LineNr">11749 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11750" class="LineNr">11750 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11751" class="LineNr">11751 </span> 5d/pop-to-ebp +<span id="L11752" class="LineNr">11752 </span> c3/return +<span id="L11753" class="LineNr">11753 </span> +<span id="L11754" class="LineNr">11754 </span><span class="subxTest">test-compute-offset-with-non-array-atom-base-type</span>: +<span id="L11755" class="LineNr">11755 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11756" class="LineNr">11756 </span> 55/push-ebp +<span id="L11757" class="LineNr">11757 </span> 89/<- %ebp 4/r32/esp +<span id="L11758" class="LineNr">11758 </span> <span class="subxComment"># setup</span> +<span id="L11759" class="LineNr">11759 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11760" class="LineNr">11760 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11761" class="LineNr">11761 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11762" class="LineNr">11762 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11763" class="LineNr">11763 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11764" class="LineNr">11764 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11765" class="LineNr">11765 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11766" class="LineNr">11766 </span> 68/push 0/imm32 +<span id="L11767" class="LineNr">11767 </span> 68/push 0/imm32 +<span id="L11768" class="LineNr">11768 </span> 89/<- %edx 4/r32/esp +<span id="L11769" class="LineNr">11769 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11770" class="LineNr">11770 </span> <span class="subxComment">#</span> +<span id="L11771" class="LineNr">11771 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11772" class="LineNr">11772 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L11773" class="LineNr">11773 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11774" class="LineNr">11774 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11775" class="LineNr">11775 </span> <span class="subxComment"># convert</span> +<span id="L11776" class="LineNr">11776 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11777" class="LineNr">11777 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11778" class="LineNr">11778 </span> <span class="subxComment"># restore ed</span> +<span id="L11779" class="LineNr">11779 </span> 89/<- %edx 4/r32/esp +<span id="L11780" class="LineNr">11780 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11781" class="LineNr">11781 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11782" class="Folded">11782 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11788" class="LineNr">11788 </span> <span class="subxComment"># check output</span> +<span id="L11789" class="LineNr">11789 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11754'>test-compute-offset-with-non-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11790" class="LineNr">11790 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11754'>test-compute-offset-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11791" class="LineNr">11791 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11792" class="LineNr">11792 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11754'>test-compute-offset-with-non-array-atom-base-type</a>: exit status"</span>) +<span id="L11793" class="LineNr">11793 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11794" class="LineNr">11794 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11795" class="LineNr">11795 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11796" class="LineNr">11796 </span> 5d/pop-to-ebp +<span id="L11797" class="LineNr">11797 </span> c3/return +<span id="L11798" class="LineNr">11798 </span> +<span id="L11799" class="LineNr">11799 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type</span>: +<span id="L11800" class="LineNr">11800 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11801" class="LineNr">11801 </span> 55/push-ebp +<span id="L11802" class="LineNr">11802 </span> 89/<- %ebp 4/r32/esp +<span id="L11803" class="LineNr">11803 </span> <span class="subxComment"># setup</span> +<span id="L11804" class="LineNr">11804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11805" class="LineNr">11805 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11806" class="LineNr">11806 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11807" class="LineNr">11807 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11808" class="LineNr">11808 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11809" class="LineNr">11809 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11810" class="LineNr">11810 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11811" class="LineNr">11811 </span> 68/push 0/imm32 +<span id="L11812" class="LineNr">11812 </span> 68/push 0/imm32 +<span id="L11813" class="LineNr">11813 </span> 89/<- %edx 4/r32/esp +<span id="L11814" class="LineNr">11814 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11815" class="LineNr">11815 </span> <span class="subxComment">#</span> +<span id="L11816" class="LineNr">11816 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11817" class="LineNr">11817 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L11818" class="LineNr">11818 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11819" class="LineNr">11819 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11820" class="LineNr">11820 </span> <span class="subxComment"># convert</span> +<span id="L11821" class="LineNr">11821 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11822" class="LineNr">11822 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11823" class="LineNr">11823 </span> <span class="subxComment"># restore ed</span> +<span id="L11824" class="LineNr">11824 </span> 89/<- %edx 4/r32/esp +<span id="L11825" class="LineNr">11825 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11826" class="LineNr">11826 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11827" class="Folded">11827 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11833" class="LineNr">11833 </span> <span class="subxComment"># check output</span> +<span id="L11834" class="LineNr">11834 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11799'>test-compute-offset-with-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L11835" class="LineNr">11835 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11799'>test-compute-offset-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11836" class="LineNr">11836 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11837" class="LineNr">11837 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11799'>test-compute-offset-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L11838" class="LineNr">11838 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11839" class="LineNr">11839 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11840" class="LineNr">11840 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11841" class="LineNr">11841 </span> 5d/pop-to-ebp +<span id="L11842" class="LineNr">11842 </span> c3/return +<span id="L11843" class="LineNr">11843 </span> +<span id="L11844" class="LineNr">11844 </span><span class="subxTest">test-compute-offset-with-non-array-compound-base-type-2</span>: +<span id="L11845" class="LineNr">11845 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11846" class="LineNr">11846 </span> 55/push-ebp +<span id="L11847" class="LineNr">11847 </span> 89/<- %ebp 4/r32/esp +<span id="L11848" class="LineNr">11848 </span> <span class="subxComment"># setup</span> +<span id="L11849" class="LineNr">11849 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11850" class="LineNr">11850 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11851" class="LineNr">11851 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11852" class="LineNr">11852 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11853" class="LineNr">11853 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11854" class="LineNr">11854 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11855" class="LineNr">11855 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11856" class="LineNr">11856 </span> 68/push 0/imm32 +<span id="L11857" class="LineNr">11857 </span> 68/push 0/imm32 +<span id="L11858" class="LineNr">11858 </span> 89/<- %edx 4/r32/esp +<span id="L11859" class="LineNr">11859 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11860" class="LineNr">11860 </span> <span class="subxComment">#</span> +<span id="L11861" class="LineNr">11861 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11862" class="LineNr">11862 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L11863" class="LineNr">11863 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11864" class="LineNr">11864 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11865" class="LineNr">11865 </span> <span class="subxComment"># convert</span> +<span id="L11866" class="LineNr">11866 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11867" class="LineNr">11867 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11868" class="LineNr">11868 </span> <span class="subxComment"># restore ed</span> +<span id="L11869" class="LineNr">11869 </span> 89/<- %edx 4/r32/esp +<span id="L11870" class="LineNr">11870 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11871" class="LineNr">11871 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11872" class="Folded">11872 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11878" class="LineNr">11878 </span> <span class="subxComment"># check output</span> +<span id="L11879" class="LineNr">11879 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11844'>test-compute-offset-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L11880" class="LineNr">11880 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L11844'>test-compute-offset-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11881" class="LineNr">11881 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11882" class="LineNr">11882 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11844'>test-compute-offset-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L11883" class="LineNr">11883 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11884" class="LineNr">11884 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11885" class="LineNr">11885 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11886" class="LineNr">11886 </span> 5d/pop-to-ebp +<span id="L11887" class="LineNr">11887 </span> c3/return +<span id="L11888" class="LineNr">11888 </span> +<span id="L11889" class="LineNr">11889 </span><span class="subxTest">test-compute-offset-with-array-atom-base-type</span>: +<span id="L11890" class="LineNr">11890 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11891" class="LineNr">11891 </span> 55/push-ebp +<span id="L11892" class="LineNr">11892 </span> 89/<- %ebp 4/r32/esp +<span id="L11893" class="LineNr">11893 </span> <span class="subxComment"># setup</span> +<span id="L11894" class="LineNr">11894 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11895" class="LineNr">11895 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11896" class="LineNr">11896 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11897" class="LineNr">11897 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11898" class="LineNr">11898 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11899" class="LineNr">11899 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11900" class="LineNr">11900 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11901" class="LineNr">11901 </span> 68/push 0/imm32 +<span id="L11902" class="LineNr">11902 </span> 68/push 0/imm32 +<span id="L11903" class="LineNr">11903 </span> 89/<- %edx 4/r32/esp +<span id="L11904" class="LineNr">11904 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11905" class="LineNr">11905 </span> <span class="subxComment">#</span> +<span id="L11906" class="LineNr">11906 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11907" class="LineNr">11907 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) +<span id="L11908" class="LineNr">11908 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L11909" class="LineNr">11909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11910" class="LineNr">11910 </span> <span class="subxComment"># convert</span> +<span id="L11911" class="LineNr">11911 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11912" class="LineNr">11912 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11913" class="LineNr">11913 </span> <span class="subxComment"># restore ed</span> +<span id="L11914" class="LineNr">11914 </span> 89/<- %edx 4/r32/esp +<span id="L11915" class="LineNr">11915 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11916" class="LineNr">11916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11917" class="Folded">11917 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11923" class="LineNr">11923 </span> <span class="subxComment"># check output</span> +<span id="L11924" class="LineNr">11924 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11889'>test-compute-offset-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L11925" class="LineNr">11925 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L11889'>test-compute-offset-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11926" class="LineNr">11926 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11927" class="LineNr">11927 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11889'>test-compute-offset-with-array-atom-base-type</a>: exit status"</span>) +<span id="L11928" class="LineNr">11928 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11929" class="LineNr">11929 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11930" class="LineNr">11930 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11931" class="LineNr">11931 </span> 5d/pop-to-ebp +<span id="L11932" class="LineNr">11932 </span> c3/return +<span id="L11933" class="LineNr">11933 </span> +<span id="L11934" class="LineNr">11934 </span><span class="subxTest">test-compute-offset-with-wrong-index-type</span>: +<span id="L11935" class="LineNr">11935 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11936" class="LineNr">11936 </span> 55/push-ebp +<span id="L11937" class="LineNr">11937 </span> 89/<- %ebp 4/r32/esp +<span id="L11938" class="LineNr">11938 </span> <span class="subxComment"># setup</span> +<span id="L11939" class="LineNr">11939 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11940" class="LineNr">11940 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11941" class="LineNr">11941 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11942" class="LineNr">11942 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11943" class="LineNr">11943 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11944" class="LineNr">11944 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11945" class="LineNr">11945 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11946" class="LineNr">11946 </span> 68/push 0/imm32 +<span id="L11947" class="LineNr">11947 </span> 68/push 0/imm32 +<span id="L11948" class="LineNr">11948 </span> 89/<- %edx 4/r32/esp +<span id="L11949" class="LineNr">11949 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11950" class="LineNr">11950 </span> <span class="subxComment">#</span> +<span id="L11951" class="LineNr">11951 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11952" class="LineNr">11952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr array int) <- copy 0\n"</span>) +<span id="L11953" class="LineNr">11953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L11954" class="LineNr">11954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, b\n"</span>) +<span id="L11955" class="LineNr">11955 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L11956" class="LineNr">11956 </span> <span class="subxComment"># convert</span> +<span id="L11957" class="LineNr">11957 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L11958" class="LineNr">11958 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L11959" class="LineNr">11959 </span> <span class="subxComment"># restore ed</span> +<span id="L11960" class="LineNr">11960 </span> 89/<- %edx 4/r32/esp +<span id="L11961" class="LineNr">11961 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L11962" class="LineNr">11962 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L11963" class="Folded">11963 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L11969" class="LineNr">11969 </span> <span class="subxComment"># check output</span> +<span id="L11970" class="LineNr">11970 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11934'>test-compute-offset-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L11971" class="LineNr">11971 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: second argument 'b' must be an int"</span> <span class="Constant">"F - <a href='mu.subx.html#L11934'>test-compute-offset-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L11972" class="LineNr">11972 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L11973" class="LineNr">11973 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11934'>test-compute-offset-with-wrong-index-type</a>: exit status"</span>) +<span id="L11974" class="LineNr">11974 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L11975" class="LineNr">11975 </span> 81 0/subop/add %esp 8/imm32 +<span id="L11976" class="LineNr">11976 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L11977" class="LineNr">11977 </span> 5d/pop-to-ebp +<span id="L11978" class="LineNr">11978 </span> c3/return +<span id="L11979" class="LineNr">11979 </span> +<span id="L11980" class="LineNr">11980 </span><span class="subxTest">test-compute-offset-with-output-not-offset</span>: +<span id="L11981" class="LineNr">11981 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L11982" class="LineNr">11982 </span> 55/push-ebp +<span id="L11983" class="LineNr">11983 </span> 89/<- %ebp 4/r32/esp +<span id="L11984" class="LineNr">11984 </span> <span class="subxComment"># setup</span> +<span id="L11985" class="LineNr">11985 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L11986" class="LineNr">11986 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L11987" class="LineNr">11987 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L11988" class="LineNr">11988 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L11989" class="LineNr">11989 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L11990" class="LineNr">11990 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L11991" class="LineNr">11991 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L11992" class="LineNr">11992 </span> 68/push 0/imm32 +<span id="L11993" class="LineNr">11993 </span> 68/push 0/imm32 +<span id="L11994" class="LineNr">11994 </span> 89/<- %edx 4/r32/esp +<span id="L11995" class="LineNr">11995 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L11996" class="LineNr">11996 </span> <span class="subxComment">#</span> +<span id="L11997" class="LineNr">11997 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L11998" class="LineNr">11998 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L11999" class="LineNr">11999 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: int <- compute-offset a, 0\n"</span>) +<span id="L12000" class="LineNr">12000 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12001" class="LineNr">12001 </span> <span class="subxComment"># convert</span> +<span id="L12002" class="LineNr">12002 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12003" class="LineNr">12003 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12004" class="LineNr">12004 </span> <span class="subxComment"># restore ed</span> +<span id="L12005" class="LineNr">12005 </span> 89/<- %edx 4/r32/esp +<span id="L12006" class="LineNr">12006 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12007" class="LineNr">12007 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12008" class="Folded">12008 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12014" class="LineNr">12014 </span> <span class="subxComment"># check output</span> +<span id="L12015" class="LineNr">12015 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L11980'>test-compute-offset-with-output-not-offset</a>: output should be empty"</span>) +<span id="L12016" class="LineNr">12016 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L11980'>test-compute-offset-with-output-not-offset</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12017" class="LineNr">12017 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12018" class="LineNr">12018 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L11980'>test-compute-offset-with-output-not-offset</a>: exit status"</span>) +<span id="L12019" class="LineNr">12019 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12020" class="LineNr">12020 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12021" class="LineNr">12021 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12022" class="LineNr">12022 </span> 5d/pop-to-ebp +<span id="L12023" class="LineNr">12023 </span> c3/return +<span id="L12024" class="LineNr">12024 </span> +<span id="L12025" class="LineNr">12025 </span><span class="subxTest">test-compute-offset-with-output-not-address-2</span>: +<span id="L12026" class="LineNr">12026 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12027" class="LineNr">12027 </span> 55/push-ebp +<span id="L12028" class="LineNr">12028 </span> 89/<- %ebp 4/r32/esp +<span id="L12029" class="LineNr">12029 </span> <span class="subxComment"># setup</span> +<span id="L12030" class="LineNr">12030 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12031" class="LineNr">12031 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12032" class="LineNr">12032 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12033" class="LineNr">12033 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12034" class="LineNr">12034 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12035" class="LineNr">12035 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12036" class="LineNr">12036 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12037" class="LineNr">12037 </span> 68/push 0/imm32 +<span id="L12038" class="LineNr">12038 </span> 68/push 0/imm32 +<span id="L12039" class="LineNr">12039 </span> 89/<- %edx 4/r32/esp +<span id="L12040" class="LineNr">12040 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12041" class="LineNr">12041 </span> <span class="subxComment">#</span> +<span id="L12042" class="LineNr">12042 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12043" class="LineNr">12043 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L12044" class="LineNr">12044 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (int) <- compute-offset a, 0\n"</span>) +<span id="L12045" class="LineNr">12045 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12046" class="LineNr">12046 </span> <span class="subxComment"># convert</span> +<span id="L12047" class="LineNr">12047 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12048" class="LineNr">12048 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12049" class="LineNr">12049 </span> <span class="subxComment"># restore ed</span> +<span id="L12050" class="LineNr">12050 </span> 89/<- %edx 4/r32/esp +<span id="L12051" class="LineNr">12051 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12052" class="LineNr">12052 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12053" class="Folded">12053 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12059" class="LineNr">12059 </span> <span class="subxComment"># check output</span> +<span id="L12060" class="LineNr">12060 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12025'>test-compute-offset-with-output-not-address-2</a>: output should be empty"</span>) +<span id="L12061" class="LineNr">12061 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' must be an offset"</span> <span class="Constant">"F - <a href='mu.subx.html#L12025'>test-compute-offset-with-output-not-address-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12062" class="LineNr">12062 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12063" class="LineNr">12063 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12025'>test-compute-offset-with-output-not-address-2</a>: exit status"</span>) +<span id="L12064" class="LineNr">12064 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12065" class="LineNr">12065 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12066" class="LineNr">12066 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12067" class="LineNr">12067 </span> 5d/pop-to-ebp +<span id="L12068" class="LineNr">12068 </span> c3/return +<span id="L12069" class="LineNr">12069 </span> +<span id="L12070" class="LineNr">12070 </span><span class="subxTest">test-compute-offset-with-wrong-output-type</span>: +<span id="L12071" class="LineNr">12071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12072" class="LineNr">12072 </span> 55/push-ebp +<span id="L12073" class="LineNr">12073 </span> 89/<- %ebp 4/r32/esp +<span id="L12074" class="LineNr">12074 </span> <span class="subxComment"># setup</span> +<span id="L12075" class="LineNr">12075 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12076" class="LineNr">12076 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12077" class="LineNr">12077 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12078" class="LineNr">12078 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12079" class="LineNr">12079 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12080" class="LineNr">12080 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12081" class="LineNr">12081 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12082" class="LineNr">12082 </span> 68/push 0/imm32 +<span id="L12083" class="LineNr">12083 </span> 68/push 0/imm32 +<span id="L12084" class="LineNr">12084 </span> 89/<- %edx 4/r32/esp +<span id="L12085" class="LineNr">12085 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12086" class="LineNr">12086 </span> <span class="subxComment">#</span> +<span id="L12087" class="LineNr">12087 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12088" class="LineNr">12088 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L12089" class="LineNr">12089 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L12090" class="LineNr">12090 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12091" class="LineNr">12091 </span> <span class="subxComment"># convert</span> +<span id="L12092" class="LineNr">12092 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12093" class="LineNr">12093 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12094" class="LineNr">12094 </span> <span class="subxComment"># restore ed</span> +<span id="L12095" class="LineNr">12095 </span> 89/<- %edx 4/r32/esp +<span id="L12096" class="LineNr">12096 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12097" class="LineNr">12097 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12098" class="Folded">12098 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12104" class="LineNr">12104 </span> <span class="subxComment"># check output</span> +<span id="L12105" class="LineNr">12105 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12070'>test-compute-offset-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L12106" class="LineNr">12106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L12070'>test-compute-offset-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12107" class="LineNr">12107 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12108" class="LineNr">12108 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12070'>test-compute-offset-with-wrong-output-type</a>: exit status"</span>) +<span id="L12109" class="LineNr">12109 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12110" class="LineNr">12110 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12111" class="LineNr">12111 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12112" class="LineNr">12112 </span> 5d/pop-to-ebp +<span id="L12113" class="LineNr">12113 </span> c3/return +<span id="L12114" class="LineNr">12114 </span> +<span id="L12115" class="LineNr">12115 </span><span class="subxTest">test-compute-offset-with-wrong-output-compound-type</span>: +<span id="L12116" class="LineNr">12116 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12117" class="LineNr">12117 </span> 55/push-ebp +<span id="L12118" class="LineNr">12118 </span> 89/<- %ebp 4/r32/esp +<span id="L12119" class="LineNr">12119 </span> <span class="subxComment"># setup</span> +<span id="L12120" class="LineNr">12120 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12121" class="LineNr">12121 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12122" class="LineNr">12122 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12123" class="LineNr">12123 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12124" class="LineNr">12124 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12125" class="LineNr">12125 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12126" class="LineNr">12126 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12127" class="LineNr">12127 </span> 68/push 0/imm32 +<span id="L12128" class="LineNr">12128 </span> 68/push 0/imm32 +<span id="L12129" class="LineNr">12129 </span> 89/<- %edx 4/r32/esp +<span id="L12130" class="LineNr">12130 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12131" class="LineNr">12131 </span> <span class="subxComment">#</span> +<span id="L12132" class="LineNr">12132 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12133" class="LineNr">12133 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) +<span id="L12134" class="LineNr">12134 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (offset handle int) <- compute-offset a, 0\n"</span>) +<span id="L12135" class="LineNr">12135 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12136" class="LineNr">12136 </span> <span class="subxComment"># convert</span> +<span id="L12137" class="LineNr">12137 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12138" class="LineNr">12138 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12139" class="LineNr">12139 </span> <span class="subxComment"># restore ed</span> +<span id="L12140" class="LineNr">12140 </span> 89/<- %edx 4/r32/esp +<span id="L12141" class="LineNr">12141 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12142" class="LineNr">12142 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12143" class="Folded">12143 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12149" class="LineNr">12149 </span> <span class="subxComment"># check output</span> +<span id="L12150" class="LineNr">12150 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12115'>test-compute-offset-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L12151" class="LineNr">12151 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L12115'>test-compute-offset-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12152" class="LineNr">12152 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12153" class="LineNr">12153 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12115'>test-compute-offset-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L12154" class="LineNr">12154 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12155" class="LineNr">12155 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12156" class="LineNr">12156 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12157" class="LineNr">12157 </span> 5d/pop-to-ebp +<span id="L12158" class="LineNr">12158 </span> c3/return +<span id="L12159" class="LineNr">12159 </span> +<span id="L12160" class="LineNr">12160 </span><span class="subxTest">test-compute-offset-with-no-inouts</span>: +<span id="L12161" class="LineNr">12161 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12162" class="LineNr">12162 </span> 55/push-ebp +<span id="L12163" class="LineNr">12163 </span> 89/<- %ebp 4/r32/esp +<span id="L12164" class="LineNr">12164 </span> <span class="subxComment"># setup</span> +<span id="L12165" class="LineNr">12165 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12166" class="LineNr">12166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12167" class="LineNr">12167 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12168" class="LineNr">12168 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12169" class="LineNr">12169 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12170" class="LineNr">12170 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12171" class="LineNr">12171 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12172" class="LineNr">12172 </span> 68/push 0/imm32 +<span id="L12173" class="LineNr">12173 </span> 68/push 0/imm32 +<span id="L12174" class="LineNr">12174 </span> 89/<- %edx 4/r32/esp +<span id="L12175" class="LineNr">12175 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12176" class="LineNr">12176 </span> <span class="subxComment">#</span> +<span id="L12177" class="LineNr">12177 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12178" class="LineNr">12178 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset\n"</span>) +<span id="L12179" class="LineNr">12179 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12180" class="LineNr">12180 </span> <span class="subxComment"># convert</span> +<span id="L12181" class="LineNr">12181 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12182" class="LineNr">12182 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12183" class="LineNr">12183 </span> <span class="subxComment"># restore ed</span> +<span id="L12184" class="LineNr">12184 </span> 89/<- %edx 4/r32/esp +<span id="L12185" class="LineNr">12185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12186" class="LineNr">12186 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12187" class="Folded">12187 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12193" class="LineNr">12193 </span> <span class="subxComment"># check output</span> +<span id="L12194" class="LineNr">12194 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12160'>test-compute-offset-with-no-inouts</a>: output should be empty"</span>) +<span id="L12195" class="LineNr">12195 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12160'>test-compute-offset-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12196" class="LineNr">12196 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12197" class="LineNr">12197 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12160'>test-compute-offset-with-no-inouts</a>: exit status"</span>) +<span id="L12198" class="LineNr">12198 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12199" class="LineNr">12199 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12200" class="LineNr">12200 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12201" class="LineNr">12201 </span> 5d/pop-to-ebp +<span id="L12202" class="LineNr">12202 </span> c3/return +<span id="L12203" class="LineNr">12203 </span> +<span id="L12204" class="LineNr">12204 </span><span class="subxTest">test-compute-offset-with-too-few-inouts</span>: +<span id="L12205" class="LineNr">12205 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12206" class="LineNr">12206 </span> 55/push-ebp +<span id="L12207" class="LineNr">12207 </span> 89/<- %ebp 4/r32/esp +<span id="L12208" class="LineNr">12208 </span> <span class="subxComment"># setup</span> +<span id="L12209" class="LineNr">12209 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12210" class="LineNr">12210 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12211" class="LineNr">12211 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12212" class="LineNr">12212 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12213" class="LineNr">12213 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12214" class="LineNr">12214 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12215" class="LineNr">12215 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12216" class="LineNr">12216 </span> 68/push 0/imm32 +<span id="L12217" class="LineNr">12217 </span> 68/push 0/imm32 +<span id="L12218" class="LineNr">12218 </span> 89/<- %edx 4/r32/esp +<span id="L12219" class="LineNr">12219 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12220" class="LineNr">12220 </span> <span class="subxComment">#</span> +<span id="L12221" class="LineNr">12221 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12222" class="LineNr">12222 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12223" class="LineNr">12223 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a\n"</span>) +<span id="L12224" class="LineNr">12224 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12225" class="LineNr">12225 </span> <span class="subxComment"># convert</span> +<span id="L12226" class="LineNr">12226 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12227" class="LineNr">12227 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12228" class="LineNr">12228 </span> <span class="subxComment"># restore ed</span> +<span id="L12229" class="LineNr">12229 </span> 89/<- %edx 4/r32/esp +<span id="L12230" class="LineNr">12230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12231" class="LineNr">12231 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12232" class="Folded">12232 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12238" class="LineNr">12238 </span> <span class="subxComment"># check output</span> +<span id="L12239" class="LineNr">12239 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12204'>test-compute-offset-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L12240" class="LineNr">12240 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12204'>test-compute-offset-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12241" class="LineNr">12241 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12242" class="LineNr">12242 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12204'>test-compute-offset-with-too-few-inouts</a>: exit status"</span>) +<span id="L12243" class="LineNr">12243 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12244" class="LineNr">12244 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12245" class="LineNr">12245 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12246" class="LineNr">12246 </span> 5d/pop-to-ebp +<span id="L12247" class="LineNr">12247 </span> c3/return +<span id="L12248" class="LineNr">12248 </span> +<span id="L12249" class="LineNr">12249 </span><span class="subxTest">test-compute-offset-with-too-many-inouts</span>: +<span id="L12250" class="LineNr">12250 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12251" class="LineNr">12251 </span> 55/push-ebp +<span id="L12252" class="LineNr">12252 </span> 89/<- %ebp 4/r32/esp +<span id="L12253" class="LineNr">12253 </span> <span class="subxComment"># setup</span> +<span id="L12254" class="LineNr">12254 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12255" class="LineNr">12255 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12256" class="LineNr">12256 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12257" class="LineNr">12257 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12258" class="LineNr">12258 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12259" class="LineNr">12259 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12260" class="LineNr">12260 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12261" class="LineNr">12261 </span> 68/push 0/imm32 +<span id="L12262" class="LineNr">12262 </span> 68/push 0/imm32 +<span id="L12263" class="LineNr">12263 </span> 89/<- %edx 4/r32/esp +<span id="L12264" class="LineNr">12264 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12265" class="LineNr">12265 </span> <span class="subxComment">#</span> +<span id="L12266" class="LineNr">12266 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12267" class="LineNr">12267 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12268" class="LineNr">12268 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (offset int) <- compute-offset a, 0, 0\n"</span>) +<span id="L12269" class="LineNr">12269 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12270" class="LineNr">12270 </span> <span class="subxComment"># convert</span> +<span id="L12271" class="LineNr">12271 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12272" class="LineNr">12272 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12273" class="LineNr">12273 </span> <span class="subxComment"># restore ed</span> +<span id="L12274" class="LineNr">12274 </span> 89/<- %edx 4/r32/esp +<span id="L12275" class="LineNr">12275 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12276" class="LineNr">12276 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12277" class="Folded">12277 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12283" class="LineNr">12283 </span> <span class="subxComment"># check output</span> +<span id="L12284" class="LineNr">12284 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12249'>test-compute-offset-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L12285" class="LineNr">12285 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12249'>test-compute-offset-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12286" class="LineNr">12286 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12287" class="LineNr">12287 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12249'>test-compute-offset-with-too-many-inouts</a>: exit status"</span>) +<span id="L12288" class="LineNr">12288 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12289" class="LineNr">12289 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12290" class="LineNr">12290 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12291" class="LineNr">12291 </span> 5d/pop-to-ebp +<span id="L12292" class="LineNr">12292 </span> c3/return +<span id="L12293" class="LineNr">12293 </span> +<span id="L12294" class="LineNr">12294 </span><span class="subxTest">test-compute-offset-with-no-output</span>: +<span id="L12295" class="LineNr">12295 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12296" class="LineNr">12296 </span> 55/push-ebp +<span id="L12297" class="LineNr">12297 </span> 89/<- %ebp 4/r32/esp +<span id="L12298" class="LineNr">12298 </span> <span class="subxComment"># setup</span> +<span id="L12299" class="LineNr">12299 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12300" class="LineNr">12300 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12301" class="LineNr">12301 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12302" class="LineNr">12302 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12303" class="LineNr">12303 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12304" class="LineNr">12304 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12305" class="LineNr">12305 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12306" class="LineNr">12306 </span> 68/push 0/imm32 +<span id="L12307" class="LineNr">12307 </span> 68/push 0/imm32 +<span id="L12308" class="LineNr">12308 </span> 89/<- %edx 4/r32/esp +<span id="L12309" class="LineNr">12309 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12310" class="LineNr">12310 </span> <span class="subxComment">#</span> +<span id="L12311" class="LineNr">12311 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12312" class="LineNr">12312 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12313" class="LineNr">12313 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" compute-offset a, 0\n"</span>) +<span id="L12314" class="LineNr">12314 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12315" class="LineNr">12315 </span> <span class="subxComment"># convert</span> +<span id="L12316" class="LineNr">12316 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12317" class="LineNr">12317 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12318" class="LineNr">12318 </span> <span class="subxComment"># restore ed</span> +<span id="L12319" class="LineNr">12319 </span> 89/<- %edx 4/r32/esp +<span id="L12320" class="LineNr">12320 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12321" class="LineNr">12321 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12322" class="Folded">12322 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12328" class="LineNr">12328 </span> <span class="subxComment"># check output</span> +<span id="L12329" class="LineNr">12329 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12294'>test-compute-offset-with-no-output</a>: output should be empty"</span>) +<span id="L12330" class="LineNr">12330 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12294'>test-compute-offset-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12331" class="LineNr">12331 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12332" class="LineNr">12332 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12294'>test-compute-offset-with-no-output</a>: exit status"</span>) +<span id="L12333" class="LineNr">12333 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12334" class="LineNr">12334 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12335" class="LineNr">12335 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12336" class="LineNr">12336 </span> 5d/pop-to-ebp +<span id="L12337" class="LineNr">12337 </span> c3/return +<span id="L12338" class="LineNr">12338 </span> +<span id="L12339" class="LineNr">12339 </span><span class="subxTest">test-compute-offset-with-too-many-outputs</span>: +<span id="L12340" class="LineNr">12340 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12341" class="LineNr">12341 </span> 55/push-ebp +<span id="L12342" class="LineNr">12342 </span> 89/<- %ebp 4/r32/esp +<span id="L12343" class="LineNr">12343 </span> <span class="subxComment"># setup</span> +<span id="L12344" class="LineNr">12344 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12345" class="LineNr">12345 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12346" class="LineNr">12346 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12347" class="LineNr">12347 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12348" class="LineNr">12348 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12349" class="LineNr">12349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12350" class="LineNr">12350 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12351" class="LineNr">12351 </span> 68/push 0/imm32 +<span id="L12352" class="LineNr">12352 </span> 68/push 0/imm32 +<span id="L12353" class="LineNr">12353 </span> 89/<- %edx 4/r32/esp +<span id="L12354" class="LineNr">12354 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12355" class="LineNr">12355 </span> <span class="subxComment">#</span> +<span id="L12356" class="LineNr">12356 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12357" class="LineNr">12357 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L12358" class="LineNr">12358 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (offset int) <- compute-offset a, 0\n"</span>) +<span id="L12359" class="LineNr">12359 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- copy 0\n"</span>) +<span id="L12360" class="LineNr">12360 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- compute-offset a, 0\n"</span>) +<span id="L12361" class="LineNr">12361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12362" class="LineNr">12362 </span> <span class="subxComment"># convert</span> +<span id="L12363" class="LineNr">12363 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12364" class="LineNr">12364 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12365" class="LineNr">12365 </span> <span class="subxComment"># restore ed</span> +<span id="L12366" class="LineNr">12366 </span> 89/<- %edx 4/r32/esp +<span id="L12367" class="LineNr">12367 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12368" class="LineNr">12368 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12369" class="Folded">12369 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12375" class="LineNr">12375 </span> <span class="subxComment"># check output</span> +<span id="L12376" class="LineNr">12376 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12339'>test-compute-offset-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L12377" class="LineNr">12377 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt compute-offset: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12339'>test-compute-offset-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12378" class="LineNr">12378 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12379" class="LineNr">12379 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12339'>test-compute-offset-with-too-many-outputs</a>: exit status"</span>) +<span id="L12380" class="LineNr">12380 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12381" class="LineNr">12381 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12382" class="LineNr">12382 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12383" class="LineNr">12383 </span> 5d/pop-to-ebp +<span id="L12384" class="LineNr">12384 </span> c3/return +<span id="L12385" class="LineNr">12385 </span> +<span id="L12386" class="LineNr">12386 </span><span class="subxTest">test-convert-read-from-stream</span>: +<span id="L12387" class="LineNr">12387 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12388" class="LineNr">12388 </span> 55/push-ebp +<span id="L12389" class="LineNr">12389 </span> 89/<- %ebp 4/r32/esp +<span id="L12390" class="LineNr">12390 </span> <span class="subxComment"># setup</span> +<span id="L12391" class="LineNr">12391 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12392" class="LineNr">12392 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12393" class="LineNr">12393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12394" class="LineNr">12394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12395" class="LineNr">12395 </span> <span class="subxComment">#</span> +<span id="L12396" class="LineNr">12396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12397" class="LineNr">12397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) +<span id="L12398" class="LineNr">12398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) +<span id="L12399" class="LineNr">12399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) +<span id="L12400" class="LineNr">12400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12401" class="LineNr">12401 </span> <span class="subxComment"># convert</span> +<span id="L12402" class="LineNr">12402 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12403" class="LineNr">12403 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12404" class="LineNr">12404 </span> <span class="subxComment"># restore ed</span> +<span id="L12405" class="LineNr">12405 </span> 89/<- %edx 4/r32/esp +<span id="L12406" class="LineNr">12406 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12407" class="LineNr">12407 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12408" class="Folded">12408 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12414" class="LineNr">12414 </span> <span class="subxComment"># check output</span> +<span id="L12415" class="LineNr">12415 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/0"</span>) +<span id="L12416" class="LineNr">12416 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream/1"</span>) +<span id="L12417" class="LineNr">12417 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/2"</span>) +<span id="L12418" class="LineNr">12418 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/3"</span>) +<span id="L12419" class="LineNr">12419 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/4"</span>) +<span id="L12420" class="LineNr">12420 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/5"</span>) +<span id="L12421" class="LineNr">12421 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/6"</span>) +<span id="L12422" class="LineNr">12422 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/7"</span>) +<span id="L12423" class="LineNr">12423 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/8"</span>) +<span id="L12424" class="LineNr">12424 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/9"</span>) +<span id="L12425" class="LineNr">12425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/10"</span>) +<span id="L12426" class="LineNr">12426 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/11"</span>) +<span id="L12427" class="LineNr">12427 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/12"</span>) +<span id="L12428" class="LineNr">12428 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/13"</span>) +<span id="L12429" class="LineNr">12429 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/14"</span>) +<span id="L12430" class="LineNr">12430 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream/15"</span>) +<span id="L12431" class="LineNr">12431 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/16"</span>) +<span id="L12432" class="LineNr">12432 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/17"</span>) +<span id="L12433" class="LineNr">12433 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12386'>test-convert-read-from-stream</a>/18"</span>) +<span id="L12434" class="LineNr">12434 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12435" class="LineNr">12435 </span> 89/<- %esp 5/r32/ebp +<span id="L12436" class="LineNr">12436 </span> 5d/pop-to-ebp +<span id="L12437" class="LineNr">12437 </span> c3/return +<span id="L12438" class="LineNr">12438 </span> +<span id="L12439" class="LineNr">12439 </span><span class="subxTest">test-convert-read-from-stream-with-correct-payload-size</span>: +<span id="L12440" class="LineNr">12440 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12441" class="LineNr">12441 </span> 55/push-ebp +<span id="L12442" class="LineNr">12442 </span> 89/<- %ebp 4/r32/esp +<span id="L12443" class="LineNr">12443 </span> <span class="subxComment"># setup</span> +<span id="L12444" class="LineNr">12444 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12445" class="LineNr">12445 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12446" class="LineNr">12446 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12447" class="LineNr">12447 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12448" class="LineNr">12448 </span> <span class="subxComment">#</span> +<span id="L12449" class="LineNr">12449 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12450" class="LineNr">12450 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) +<span id="L12451" class="LineNr">12451 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L12452" class="LineNr">12452 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> s, o\n"</span>) +<span id="L12453" class="LineNr">12453 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12454" class="LineNr">12454 </span> <span class="subxComment"># convert</span> +<span id="L12455" class="LineNr">12455 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12456" class="LineNr">12456 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12457" class="LineNr">12457 </span> <span class="subxComment"># restore ed</span> +<span id="L12458" class="LineNr">12458 </span> 89/<- %edx 4/r32/esp +<span id="L12459" class="LineNr">12459 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12460" class="LineNr">12460 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12461" class="Folded">12461 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12467" class="LineNr">12467 </span> <span class="subxComment"># check output</span> +<span id="L12468" class="LineNr">12468 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/0"</span>) +<span id="L12469" class="LineNr">12469 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/1"</span>) +<span id="L12470" class="LineNr">12470 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/2"</span>) +<span id="L12471" class="LineNr">12471 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/3"</span>) +<span id="L12472" class="LineNr">12472 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/4"</span>) +<span id="L12473" class="LineNr">12473 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/5"</span>) +<span id="L12474" class="LineNr">12474 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/6"</span>) +<span id="L12475" class="LineNr">12475 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/7"</span>) +<span id="L12476" class="LineNr">12476 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/8"</span>) +<span id="L12477" class="LineNr">12477 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/9"</span>) +<span id="L12478" class="LineNr">12478 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L107'>read-from-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/10"</span>) +<span id="L12479" class="LineNr">12479 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/11"</span>) +<span id="L12480" class="LineNr">12480 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/12"</span>) +<span id="L12481" class="LineNr">12481 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/13"</span>) +<span id="L12482" class="LineNr">12482 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/14"</span>) +<span id="L12483" class="LineNr">12483 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-read-from-stream-with-correct-payload-size/15"</span>) +<span id="L12484" class="LineNr">12484 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/16"</span>) +<span id="L12485" class="LineNr">12485 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/17"</span>) +<span id="L12486" class="LineNr">12486 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12439'>test-convert-read-from-stream-with-correct-payload-size</a>/18"</span>) +<span id="L12487" class="LineNr">12487 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12488" class="LineNr">12488 </span> 89/<- %esp 5/r32/ebp +<span id="L12489" class="LineNr">12489 </span> 5d/pop-to-ebp +<span id="L12490" class="LineNr">12490 </span> c3/return +<span id="L12491" class="LineNr">12491 </span> +<span id="L12492" class="LineNr">12492 </span><span class="subxTest">test-read-from-stream-with-non-stream-atom-base-type</span>: +<span id="L12493" class="LineNr">12493 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12494" class="LineNr">12494 </span> 55/push-ebp +<span id="L12495" class="LineNr">12495 </span> 89/<- %ebp 4/r32/esp +<span id="L12496" class="LineNr">12496 </span> <span class="subxComment"># setup</span> +<span id="L12497" class="LineNr">12497 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12498" class="LineNr">12498 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12499" class="LineNr">12499 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12500" class="LineNr">12500 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12501" class="LineNr">12501 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12502" class="LineNr">12502 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12503" class="LineNr">12503 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12504" class="LineNr">12504 </span> 68/push 0/imm32 +<span id="L12505" class="LineNr">12505 </span> 68/push 0/imm32 +<span id="L12506" class="LineNr">12506 </span> 89/<- %edx 4/r32/esp +<span id="L12507" class="LineNr">12507 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12508" class="LineNr">12508 </span> <span class="subxComment">#</span> +<span id="L12509" class="LineNr">12509 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12510" class="LineNr">12510 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L12511" class="LineNr">12511 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12512" class="LineNr">12512 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12513" class="LineNr">12513 </span> <span class="subxComment"># convert</span> +<span id="L12514" class="LineNr">12514 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12515" class="LineNr">12515 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12516" class="LineNr">12516 </span> <span class="subxComment"># restore ed</span> +<span id="L12517" class="LineNr">12517 </span> 89/<- %edx 4/r32/esp +<span id="L12518" class="LineNr">12518 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12519" class="LineNr">12519 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12520" class="Folded">12520 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12526" class="LineNr">12526 </span> <span class="subxComment"># check output</span> +<span id="L12527" class="LineNr">12527 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12492'>test-read-from-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L12528" class="LineNr">12528 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12492'>test-read-from-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12529" class="LineNr">12529 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12530" class="LineNr">12530 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12492'>test-read-from-stream-with-non-stream-atom-base-type</a>: exit status"</span>) +<span id="L12531" class="LineNr">12531 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12532" class="LineNr">12532 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12533" class="LineNr">12533 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12534" class="LineNr">12534 </span> 5d/pop-to-ebp +<span id="L12535" class="LineNr">12535 </span> c3/return +<span id="L12536" class="LineNr">12536 </span> +<span id="L12537" class="LineNr">12537 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type</span>: +<span id="L12538" class="LineNr">12538 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12539" class="LineNr">12539 </span> 55/push-ebp +<span id="L12540" class="LineNr">12540 </span> 89/<- %ebp 4/r32/esp +<span id="L12541" class="LineNr">12541 </span> <span class="subxComment"># setup</span> +<span id="L12542" class="LineNr">12542 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12543" class="LineNr">12543 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12544" class="LineNr">12544 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12545" class="LineNr">12545 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12546" class="LineNr">12546 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12547" class="LineNr">12547 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12548" class="LineNr">12548 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12549" class="LineNr">12549 </span> 68/push 0/imm32 +<span id="L12550" class="LineNr">12550 </span> 68/push 0/imm32 +<span id="L12551" class="LineNr">12551 </span> 89/<- %edx 4/r32/esp +<span id="L12552" class="LineNr">12552 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12553" class="LineNr">12553 </span> <span class="subxComment">#</span> +<span id="L12554" class="LineNr">12554 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12555" class="LineNr">12555 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L12556" class="LineNr">12556 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12557" class="LineNr">12557 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12558" class="LineNr">12558 </span> <span class="subxComment"># convert</span> +<span id="L12559" class="LineNr">12559 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12560" class="LineNr">12560 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12561" class="LineNr">12561 </span> <span class="subxComment"># restore ed</span> +<span id="L12562" class="LineNr">12562 </span> 89/<- %edx 4/r32/esp +<span id="L12563" class="LineNr">12563 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12564" class="LineNr">12564 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12565" class="Folded">12565 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12571" class="LineNr">12571 </span> <span class="subxComment"># check output</span> +<span id="L12572" class="LineNr">12572 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12537'>test-read-from-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) +<span id="L12573" class="LineNr">12573 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12537'>test-read-from-stream-with-non-stream-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12574" class="LineNr">12574 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12575" class="LineNr">12575 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12537'>test-read-from-stream-with-non-stream-compound-base-type</a>: exit status"</span>) +<span id="L12576" class="LineNr">12576 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12577" class="LineNr">12577 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12578" class="LineNr">12578 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12579" class="LineNr">12579 </span> 5d/pop-to-ebp +<span id="L12580" class="LineNr">12580 </span> c3/return +<span id="L12581" class="LineNr">12581 </span> +<span id="L12582" class="LineNr">12582 </span><span class="subxTest">test-read-from-stream-with-non-stream-compound-base-type-2</span>: +<span id="L12583" class="LineNr">12583 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12584" class="LineNr">12584 </span> 55/push-ebp +<span id="L12585" class="LineNr">12585 </span> 89/<- %ebp 4/r32/esp +<span id="L12586" class="LineNr">12586 </span> <span class="subxComment"># setup</span> +<span id="L12587" class="LineNr">12587 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12588" class="LineNr">12588 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12589" class="LineNr">12589 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12590" class="LineNr">12590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12591" class="LineNr">12591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12592" class="LineNr">12592 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12593" class="LineNr">12593 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12594" class="LineNr">12594 </span> 68/push 0/imm32 +<span id="L12595" class="LineNr">12595 </span> 68/push 0/imm32 +<span id="L12596" class="LineNr">12596 </span> 89/<- %edx 4/r32/esp +<span id="L12597" class="LineNr">12597 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12598" class="LineNr">12598 </span> <span class="subxComment">#</span> +<span id="L12599" class="LineNr">12599 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12600" class="LineNr">12600 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L12601" class="LineNr">12601 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12602" class="LineNr">12602 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12603" class="LineNr">12603 </span> <span class="subxComment"># convert</span> +<span id="L12604" class="LineNr">12604 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12605" class="LineNr">12605 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12606" class="LineNr">12606 </span> <span class="subxComment"># restore ed</span> +<span id="L12607" class="LineNr">12607 </span> 89/<- %edx 4/r32/esp +<span id="L12608" class="LineNr">12608 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12609" class="LineNr">12609 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12610" class="Folded">12610 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12616" class="LineNr">12616 </span> <span class="subxComment"># check output</span> +<span id="L12617" class="LineNr">12617 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12582'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) +<span id="L12618" class="LineNr">12618 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12582'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12619" class="LineNr">12619 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12620" class="LineNr">12620 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12582'>test-read-from-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) +<span id="L12621" class="LineNr">12621 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12622" class="LineNr">12622 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12623" class="LineNr">12623 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12624" class="LineNr">12624 </span> 5d/pop-to-ebp +<span id="L12625" class="LineNr">12625 </span> c3/return +<span id="L12626" class="LineNr">12626 </span> +<span id="L12627" class="LineNr">12627 </span><span class="subxTest">test-read-from-stream-with-stream-atom-base-type</span>: +<span id="L12628" class="LineNr">12628 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12629" class="LineNr">12629 </span> 55/push-ebp +<span id="L12630" class="LineNr">12630 </span> 89/<- %ebp 4/r32/esp +<span id="L12631" class="LineNr">12631 </span> <span class="subxComment"># setup</span> +<span id="L12632" class="LineNr">12632 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12633" class="LineNr">12633 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12634" class="LineNr">12634 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12635" class="LineNr">12635 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12636" class="LineNr">12636 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12637" class="LineNr">12637 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12638" class="LineNr">12638 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12639" class="LineNr">12639 </span> 68/push 0/imm32 +<span id="L12640" class="LineNr">12640 </span> 68/push 0/imm32 +<span id="L12641" class="LineNr">12641 </span> 89/<- %edx 4/r32/esp +<span id="L12642" class="LineNr">12642 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12643" class="LineNr">12643 </span> <span class="subxComment">#</span> +<span id="L12644" class="LineNr">12644 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12645" class="LineNr">12645 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) +<span id="L12646" class="LineNr">12646 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, 0\n"</span>) +<span id="L12647" class="LineNr">12647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12648" class="LineNr">12648 </span> <span class="subxComment"># convert</span> +<span id="L12649" class="LineNr">12649 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12650" class="LineNr">12650 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12651" class="LineNr">12651 </span> <span class="subxComment"># restore ed</span> +<span id="L12652" class="LineNr">12652 </span> 89/<- %edx 4/r32/esp +<span id="L12653" class="LineNr">12653 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12654" class="LineNr">12654 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12655" class="Folded">12655 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12661" class="LineNr">12661 </span> <span class="subxComment"># check output</span> +<span id="L12662" class="LineNr">12662 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12627'>test-read-from-stream-with-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L12663" class="LineNr">12663 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L12627'>test-read-from-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12664" class="LineNr">12664 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12665" class="LineNr">12665 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12627'>test-read-from-stream-with-stream-atom-base-type</a>: exit status"</span>) +<span id="L12666" class="LineNr">12666 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12667" class="LineNr">12667 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12668" class="LineNr">12668 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12669" class="LineNr">12669 </span> 5d/pop-to-ebp +<span id="L12670" class="LineNr">12670 </span> c3/return +<span id="L12671" class="LineNr">12671 </span> +<span id="L12672" class="LineNr">12672 </span><span class="subxTest">test-read-from-stream-with-wrong-index-type</span>: +<span id="L12673" class="LineNr">12673 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12674" class="LineNr">12674 </span> 55/push-ebp +<span id="L12675" class="LineNr">12675 </span> 89/<- %ebp 4/r32/esp +<span id="L12676" class="LineNr">12676 </span> <span class="subxComment"># setup</span> +<span id="L12677" class="LineNr">12677 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12678" class="LineNr">12678 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12679" class="LineNr">12679 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12680" class="LineNr">12680 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12681" class="LineNr">12681 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12682" class="LineNr">12682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12683" class="LineNr">12683 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12684" class="LineNr">12684 </span> 68/push 0/imm32 +<span id="L12685" class="LineNr">12685 </span> 68/push 0/imm32 +<span id="L12686" class="LineNr">12686 </span> 89/<- %edx 4/r32/esp +<span id="L12687" class="LineNr">12687 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12688" class="LineNr">12688 </span> <span class="subxComment">#</span> +<span id="L12689" class="LineNr">12689 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12690" class="LineNr">12690 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) +<span id="L12691" class="LineNr">12691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L12692" class="LineNr">12692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) +<span id="L12693" class="LineNr">12693 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12694" class="LineNr">12694 </span> <span class="subxComment"># convert</span> +<span id="L12695" class="LineNr">12695 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12696" class="LineNr">12696 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12697" class="LineNr">12697 </span> <span class="subxComment"># restore ed</span> +<span id="L12698" class="LineNr">12698 </span> 89/<- %edx 4/r32/esp +<span id="L12699" class="LineNr">12699 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12700" class="LineNr">12700 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12701" class="Folded">12701 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12707" class="LineNr">12707 </span> <span class="subxComment"># check output</span> +<span id="L12708" class="LineNr">12708 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12672'>test-read-from-stream-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L12709" class="LineNr">12709 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L12672'>test-read-from-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12710" class="LineNr">12710 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12711" class="LineNr">12711 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12672'>test-read-from-stream-with-wrong-index-type</a>: exit status"</span>) +<span id="L12712" class="LineNr">12712 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12713" class="LineNr">12713 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12714" class="LineNr">12714 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12715" class="LineNr">12715 </span> 5d/pop-to-ebp +<span id="L12716" class="LineNr">12716 </span> c3/return +<span id="L12717" class="LineNr">12717 </span> +<span id="L12718" class="LineNr">12718 </span><span class="subxTest">test-read-from-stream-with-no-inouts</span>: +<span id="L12719" class="LineNr">12719 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12720" class="LineNr">12720 </span> 55/push-ebp +<span id="L12721" class="LineNr">12721 </span> 89/<- %ebp 4/r32/esp +<span id="L12722" class="LineNr">12722 </span> <span class="subxComment"># setup</span> +<span id="L12723" class="LineNr">12723 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12724" class="LineNr">12724 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12725" class="LineNr">12725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12726" class="LineNr">12726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12727" class="LineNr">12727 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12728" class="LineNr">12728 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12729" class="LineNr">12729 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12730" class="LineNr">12730 </span> 68/push 0/imm32 +<span id="L12731" class="LineNr">12731 </span> 68/push 0/imm32 +<span id="L12732" class="LineNr">12732 </span> 89/<- %edx 4/r32/esp +<span id="L12733" class="LineNr">12733 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12734" class="LineNr">12734 </span> <span class="subxComment">#</span> +<span id="L12735" class="LineNr">12735 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12736" class="LineNr">12736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" read-from-stream\n"</span>) +<span id="L12737" class="LineNr">12737 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12738" class="LineNr">12738 </span> <span class="subxComment"># convert</span> +<span id="L12739" class="LineNr">12739 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12740" class="LineNr">12740 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12741" class="LineNr">12741 </span> <span class="subxComment"># restore ed</span> +<span id="L12742" class="LineNr">12742 </span> 89/<- %edx 4/r32/esp +<span id="L12743" class="LineNr">12743 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12744" class="LineNr">12744 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12745" class="Folded">12745 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12751" class="LineNr">12751 </span> <span class="subxComment"># check output</span> +<span id="L12752" class="LineNr">12752 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12718'>test-read-from-stream-with-no-inouts</a>: output should be empty"</span>) +<span id="L12753" class="LineNr">12753 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12718'>test-read-from-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12754" class="LineNr">12754 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12755" class="LineNr">12755 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12718'>test-read-from-stream-with-no-inouts</a>: exit status"</span>) +<span id="L12756" class="LineNr">12756 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12757" class="LineNr">12757 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12758" class="LineNr">12758 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12759" class="LineNr">12759 </span> 5d/pop-to-ebp +<span id="L12760" class="LineNr">12760 </span> c3/return +<span id="L12761" class="LineNr">12761 </span> +<span id="L12762" class="LineNr">12762 </span><span class="subxTest">test-read-from-stream-with-too-few-inouts</span>: +<span id="L12763" class="LineNr">12763 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12764" class="LineNr">12764 </span> 55/push-ebp +<span id="L12765" class="LineNr">12765 </span> 89/<- %ebp 4/r32/esp +<span id="L12766" class="LineNr">12766 </span> <span class="subxComment"># setup</span> +<span id="L12767" class="LineNr">12767 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12768" class="LineNr">12768 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12769" class="LineNr">12769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12770" class="LineNr">12770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12771" class="LineNr">12771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12772" class="LineNr">12772 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12773" class="LineNr">12773 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12774" class="LineNr">12774 </span> 68/push 0/imm32 +<span id="L12775" class="LineNr">12775 </span> 68/push 0/imm32 +<span id="L12776" class="LineNr">12776 </span> 89/<- %edx 4/r32/esp +<span id="L12777" class="LineNr">12777 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12778" class="LineNr">12778 </span> <span class="subxComment">#</span> +<span id="L12779" class="LineNr">12779 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12780" class="LineNr">12780 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L12781" class="LineNr">12781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a\n"</span>) +<span id="L12782" class="LineNr">12782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12783" class="LineNr">12783 </span> <span class="subxComment"># convert</span> +<span id="L12784" class="LineNr">12784 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12785" class="LineNr">12785 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12786" class="LineNr">12786 </span> <span class="subxComment"># restore ed</span> +<span id="L12787" class="LineNr">12787 </span> 89/<- %edx 4/r32/esp +<span id="L12788" class="LineNr">12788 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12789" class="LineNr">12789 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12790" class="Folded">12790 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12796" class="LineNr">12796 </span> <span class="subxComment"># check output</span> +<span id="L12797" class="LineNr">12797 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12762'>test-read-from-stream-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L12798" class="LineNr">12798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12762'>test-read-from-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12799" class="LineNr">12799 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12800" class="LineNr">12800 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12762'>test-read-from-stream-with-too-few-inouts</a>: exit status"</span>) +<span id="L12801" class="LineNr">12801 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12802" class="LineNr">12802 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12803" class="LineNr">12803 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12804" class="LineNr">12804 </span> 5d/pop-to-ebp +<span id="L12805" class="LineNr">12805 </span> c3/return +<span id="L12806" class="LineNr">12806 </span> +<span id="L12807" class="LineNr">12807 </span><span class="subxTest">test-read-from-stream-with-too-many-inouts</span>: +<span id="L12808" class="LineNr">12808 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12809" class="LineNr">12809 </span> 55/push-ebp +<span id="L12810" class="LineNr">12810 </span> 89/<- %ebp 4/r32/esp +<span id="L12811" class="LineNr">12811 </span> <span class="subxComment"># setup</span> +<span id="L12812" class="LineNr">12812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12813" class="LineNr">12813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12814" class="LineNr">12814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12815" class="LineNr">12815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12816" class="LineNr">12816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12817" class="LineNr">12817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12818" class="LineNr">12818 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12819" class="LineNr">12819 </span> 68/push 0/imm32 +<span id="L12820" class="LineNr">12820 </span> 68/push 0/imm32 +<span id="L12821" class="LineNr">12821 </span> 89/<- %edx 4/r32/esp +<span id="L12822" class="LineNr">12822 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12823" class="LineNr">12823 </span> <span class="subxComment">#</span> +<span id="L12824" class="LineNr">12824 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12825" class="LineNr">12825 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L12826" class="LineNr">12826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) +<span id="L12827" class="LineNr">12827 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L107'>read-from-stream</a> a, b, 0\n"</span>) +<span id="L12828" class="LineNr">12828 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12829" class="LineNr">12829 </span> <span class="subxComment"># convert</span> +<span id="L12830" class="LineNr">12830 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12831" class="LineNr">12831 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12832" class="LineNr">12832 </span> <span class="subxComment"># restore ed</span> +<span id="L12833" class="LineNr">12833 </span> 89/<- %edx 4/r32/esp +<span id="L12834" class="LineNr">12834 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12835" class="LineNr">12835 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12836" class="Folded">12836 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12842" class="LineNr">12842 </span> <span class="subxComment"># check output</span> +<span id="L12843" class="LineNr">12843 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12807'>test-read-from-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L12844" class="LineNr">12844 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12807'>test-read-from-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12845" class="LineNr">12845 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12846" class="LineNr">12846 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12807'>test-read-from-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L12847" class="LineNr">12847 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12848" class="LineNr">12848 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12849" class="LineNr">12849 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12850" class="LineNr">12850 </span> 5d/pop-to-ebp +<span id="L12851" class="LineNr">12851 </span> c3/return +<span id="L12852" class="LineNr">12852 </span> +<span id="L12853" class="LineNr">12853 </span><span class="subxTest">test-read-from-stream-with-output</span>: +<span id="L12854" class="LineNr">12854 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12855" class="LineNr">12855 </span> 55/push-ebp +<span id="L12856" class="LineNr">12856 </span> 89/<- %ebp 4/r32/esp +<span id="L12857" class="LineNr">12857 </span> <span class="subxComment"># setup</span> +<span id="L12858" class="LineNr">12858 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12859" class="LineNr">12859 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12860" class="LineNr">12860 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12861" class="LineNr">12861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12862" class="LineNr">12862 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L12863" class="LineNr">12863 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L12864" class="LineNr">12864 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L12865" class="LineNr">12865 </span> 68/push 0/imm32 +<span id="L12866" class="LineNr">12866 </span> 68/push 0/imm32 +<span id="L12867" class="LineNr">12867 </span> 89/<- %edx 4/r32/esp +<span id="L12868" class="LineNr">12868 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L12869" class="LineNr">12869 </span> <span class="subxComment">#</span> +<span id="L12870" class="LineNr">12870 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12871" class="LineNr">12871 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L12872" class="LineNr">12872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) +<span id="L12873" class="LineNr">12873 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='309stream.subx.html#L107'>read-from-stream</a> a, b\n"</span>) +<span id="L12874" class="LineNr">12874 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12875" class="LineNr">12875 </span> <span class="subxComment"># convert</span> +<span id="L12876" class="LineNr">12876 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L12877" class="LineNr">12877 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12878" class="LineNr">12878 </span> <span class="subxComment"># restore ed</span> +<span id="L12879" class="LineNr">12879 </span> 89/<- %edx 4/r32/esp +<span id="L12880" class="LineNr">12880 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12881" class="LineNr">12881 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12882" class="Folded">12882 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12888" class="LineNr">12888 </span> <span class="subxComment"># check output</span> +<span id="L12889" class="LineNr">12889 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L12853'>test-read-from-stream-with-output</a>: output should be empty"</span>) +<span id="L12890" class="LineNr">12890 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L12853'>test-read-from-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L12891" class="LineNr">12891 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L12892" class="LineNr">12892 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L12853'>test-read-from-stream-with-output</a>: exit status"</span>) +<span id="L12893" class="LineNr">12893 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L12894" class="LineNr">12894 </span> 81 0/subop/add %esp 8/imm32 +<span id="L12895" class="LineNr">12895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12896" class="LineNr">12896 </span> 5d/pop-to-ebp +<span id="L12897" class="LineNr">12897 </span> c3/return +<span id="L12898" class="LineNr">12898 </span> +<span id="L12899" class="LineNr">12899 </span><span class="subxTest">test-convert-write-to-stream</span>: +<span id="L12900" class="LineNr">12900 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12901" class="LineNr">12901 </span> 55/push-ebp +<span id="L12902" class="LineNr">12902 </span> 89/<- %ebp 4/r32/esp +<span id="L12903" class="LineNr">12903 </span> <span class="subxComment"># setup</span> +<span id="L12904" class="LineNr">12904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12905" class="LineNr">12905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12906" class="LineNr">12906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12907" class="LineNr">12907 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12908" class="LineNr">12908 </span> <span class="subxComment">#</span> +<span id="L12909" class="LineNr">12909 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12910" class="LineNr">12910 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream int) <- copy 0\n"</span>) +<span id="L12911" class="LineNr">12911 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr int) <- copy 0\n"</span>) +<span id="L12912" class="LineNr">12912 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) +<span id="L12913" class="LineNr">12913 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12914" class="LineNr">12914 </span> <span class="subxComment"># convert</span> +<span id="L12915" class="LineNr">12915 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12916" class="LineNr">12916 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12917" class="LineNr">12917 </span> <span class="subxComment"># restore ed</span> +<span id="L12918" class="LineNr">12918 </span> 89/<- %edx 4/r32/esp +<span id="L12919" class="LineNr">12919 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12920" class="LineNr">12920 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12921" class="Folded">12921 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12927" class="LineNr">12927 </span> <span class="subxComment"># check output</span> +<span id="L12928" class="LineNr">12928 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/0"</span>) +<span id="L12929" class="LineNr">12929 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream/1"</span>) +<span id="L12930" class="LineNr">12930 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/2"</span>) +<span id="L12931" class="LineNr">12931 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/3"</span>) +<span id="L12932" class="LineNr">12932 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/4"</span>) +<span id="L12933" class="LineNr">12933 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/5"</span>) +<span id="L12934" class="LineNr">12934 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/6"</span>) +<span id="L12935" class="LineNr">12935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/7"</span>) +<span id="L12936" class="LineNr">12936 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/8"</span>) +<span id="L12937" class="LineNr">12937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/9"</span>) +<span id="L12938" class="LineNr">12938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000004)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/10"</span>) +<span id="L12939" class="LineNr">12939 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/11"</span>) +<span id="L12940" class="LineNr">12940 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/12"</span>) +<span id="L12941" class="LineNr">12941 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/13"</span>) +<span id="L12942" class="LineNr">12942 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/14"</span>) +<span id="L12943" class="LineNr">12943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream/15"</span>) +<span id="L12944" class="LineNr">12944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/16"</span>) +<span id="L12945" class="LineNr">12945 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/17"</span>) +<span id="L12946" class="LineNr">12946 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12899'>test-convert-write-to-stream</a>/18"</span>) +<span id="L12947" class="LineNr">12947 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L12948" class="LineNr">12948 </span> 89/<- %esp 5/r32/ebp +<span id="L12949" class="LineNr">12949 </span> 5d/pop-to-ebp +<span id="L12950" class="LineNr">12950 </span> c3/return +<span id="L12951" class="LineNr">12951 </span> +<span id="L12952" class="LineNr">12952 </span><span class="subxTest">test-convert-write-to-stream-with-correct-payload-size</span>: +<span id="L12953" class="LineNr">12953 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L12954" class="LineNr">12954 </span> 55/push-ebp +<span id="L12955" class="LineNr">12955 </span> 89/<- %ebp 4/r32/esp +<span id="L12956" class="LineNr">12956 </span> <span class="subxComment"># setup</span> +<span id="L12957" class="LineNr">12957 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L12958" class="LineNr">12958 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L12959" class="LineNr">12959 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L12960" class="LineNr">12960 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L12961" class="LineNr">12961 </span> <span class="subxComment">#</span> +<span id="L12962" class="LineNr">12962 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L12963" class="LineNr">12963 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var s/esi: (addr stream handle int) <- copy 0\n"</span>) +<span id="L12964" class="LineNr">12964 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L12965" class="LineNr">12965 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> s, o\n"</span>) +<span id="L12966" class="LineNr">12966 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L12967" class="LineNr">12967 </span> <span class="subxComment"># convert</span> +<span id="L12968" class="LineNr">12968 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L12969" class="LineNr">12969 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L12970" class="LineNr">12970 </span> <span class="subxComment"># restore ed</span> +<span id="L12971" class="LineNr">12971 </span> 89/<- %edx 4/r32/esp +<span id="L12972" class="LineNr">12972 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L12973" class="LineNr">12973 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L12974" class="Folded">12974 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L12980" class="LineNr">12980 </span> <span class="subxComment"># check output</span> +<span id="L12981" class="LineNr">12981 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/0"</span>) +<span id="L12982" class="LineNr">12982 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/1"</span>) +<span id="L12983" class="LineNr">12983 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/2"</span>) +<span id="L12984" class="LineNr">12984 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/3"</span>) +<span id="L12985" class="LineNr">12985 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/4"</span>) +<span id="L12986" class="LineNr">12986 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/5"</span>) +<span id="L12987" class="LineNr">12987 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/6"</span>) +<span id="L12988" class="LineNr">12988 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" be/copy-to-esi 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/7"</span>) +<span id="L12989" class="LineNr">12989 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/8"</span>) +<span id="L12990" class="LineNr">12990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/9"</span>) +<span id="L12991" class="LineNr">12991 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" (<a href='309stream.subx.html#L54'>write-to-stream</a> %esi %ecx 0x00000008)"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/10"</span>) +<span id="L12992" class="LineNr">12992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/11"</span>) +<span id="L12993" class="LineNr">12993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %esi"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/12"</span>) +<span id="L12994" class="LineNr">12994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/13"</span>) +<span id="L12995" class="LineNr">12995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/14"</span>) +<span id="L12996" class="LineNr">12996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-write-to-stream-with-correct-payload-size/15"</span>) +<span id="L12997" class="LineNr">12997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/16"</span>) +<span id="L12998" class="LineNr">12998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/17"</span>) +<span id="L12999" class="LineNr">12999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L12952'>test-convert-write-to-stream-with-correct-payload-size</a>/18"</span>) +<span id="L13000" class="LineNr">13000 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13001" class="LineNr">13001 </span> 89/<- %esp 5/r32/ebp +<span id="L13002" class="LineNr">13002 </span> 5d/pop-to-ebp +<span id="L13003" class="LineNr">13003 </span> c3/return +<span id="L13004" class="LineNr">13004 </span> +<span id="L13005" class="LineNr">13005 </span><span class="subxTest">test-write-to-stream-with-non-stream-atom-base-type</span>: +<span id="L13006" class="LineNr">13006 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13007" class="LineNr">13007 </span> 55/push-ebp +<span id="L13008" class="LineNr">13008 </span> 89/<- %ebp 4/r32/esp +<span id="L13009" class="LineNr">13009 </span> <span class="subxComment"># setup</span> +<span id="L13010" class="LineNr">13010 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13011" class="LineNr">13011 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13012" class="LineNr">13012 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13013" class="LineNr">13013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13014" class="LineNr">13014 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13015" class="LineNr">13015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13016" class="LineNr">13016 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13017" class="LineNr">13017 </span> 68/push 0/imm32 +<span id="L13018" class="LineNr">13018 </span> 68/push 0/imm32 +<span id="L13019" class="LineNr">13019 </span> 89/<- %edx 4/r32/esp +<span id="L13020" class="LineNr">13020 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13021" class="LineNr">13021 </span> <span class="subxComment">#</span> +<span id="L13022" class="LineNr">13022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13023" class="LineNr">13023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L13024" class="LineNr">13024 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13025" class="LineNr">13025 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13026" class="LineNr">13026 </span> <span class="subxComment"># convert</span> +<span id="L13027" class="LineNr">13027 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13028" class="LineNr">13028 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13029" class="LineNr">13029 </span> <span class="subxComment"># restore ed</span> +<span id="L13030" class="LineNr">13030 </span> 89/<- %edx 4/r32/esp +<span id="L13031" class="LineNr">13031 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13032" class="LineNr">13032 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13033" class="Folded">13033 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13039" class="LineNr">13039 </span> <span class="subxComment"># check output</span> +<span id="L13040" class="LineNr">13040 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13005'>test-write-to-stream-with-non-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L13041" class="LineNr">13041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13005'>test-write-to-stream-with-non-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13042" class="LineNr">13042 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13043" class="LineNr">13043 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13005'>test-write-to-stream-with-non-stream-atom-base-type</a>: exit status"</span>) +<span id="L13044" class="LineNr">13044 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13045" class="LineNr">13045 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13046" class="LineNr">13046 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13047" class="LineNr">13047 </span> 5d/pop-to-ebp +<span id="L13048" class="LineNr">13048 </span> c3/return +<span id="L13049" class="LineNr">13049 </span> +<span id="L13050" class="LineNr">13050 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type</span>: +<span id="L13051" class="LineNr">13051 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13052" class="LineNr">13052 </span> 55/push-ebp +<span id="L13053" class="LineNr">13053 </span> 89/<- %ebp 4/r32/esp +<span id="L13054" class="LineNr">13054 </span> <span class="subxComment"># setup</span> +<span id="L13055" class="LineNr">13055 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13056" class="LineNr">13056 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13057" class="LineNr">13057 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13058" class="LineNr">13058 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13059" class="LineNr">13059 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13060" class="LineNr">13060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13061" class="LineNr">13061 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13062" class="LineNr">13062 </span> 68/push 0/imm32 +<span id="L13063" class="LineNr">13063 </span> 68/push 0/imm32 +<span id="L13064" class="LineNr">13064 </span> 89/<- %edx 4/r32/esp +<span id="L13065" class="LineNr">13065 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13066" class="LineNr">13066 </span> <span class="subxComment">#</span> +<span id="L13067" class="LineNr">13067 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13068" class="LineNr">13068 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L13069" class="LineNr">13069 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13070" class="LineNr">13070 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13071" class="LineNr">13071 </span> <span class="subxComment"># convert</span> +<span id="L13072" class="LineNr">13072 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13073" class="LineNr">13073 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13074" class="LineNr">13074 </span> <span class="subxComment"># restore ed</span> +<span id="L13075" class="LineNr">13075 </span> 89/<- %edx 4/r32/esp +<span id="L13076" class="LineNr">13076 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13077" class="LineNr">13077 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13078" class="Folded">13078 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13084" class="LineNr">13084 </span> <span class="subxComment"># check output</span> +<span id="L13085" class="LineNr">13085 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13050'>test-write-to-stream-with-non-stream-compound-base-type</a>: output should be empty"</span>) +<span id="L13086" class="LineNr">13086 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13050'>test-write-to-stream-with-non-stream-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13087" class="LineNr">13087 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13088" class="LineNr">13088 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13050'>test-write-to-stream-with-non-stream-compound-base-type</a>: exit status"</span>) +<span id="L13089" class="LineNr">13089 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13090" class="LineNr">13090 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13091" class="LineNr">13091 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13092" class="LineNr">13092 </span> 5d/pop-to-ebp +<span id="L13093" class="LineNr">13093 </span> c3/return +<span id="L13094" class="LineNr">13094 </span> +<span id="L13095" class="LineNr">13095 </span><span class="subxTest">test-write-to-stream-with-non-stream-compound-base-type-2</span>: +<span id="L13096" class="LineNr">13096 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13097" class="LineNr">13097 </span> 55/push-ebp +<span id="L13098" class="LineNr">13098 </span> 89/<- %ebp 4/r32/esp +<span id="L13099" class="LineNr">13099 </span> <span class="subxComment"># setup</span> +<span id="L13100" class="LineNr">13100 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13101" class="LineNr">13101 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13102" class="LineNr">13102 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13103" class="LineNr">13103 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13104" class="LineNr">13104 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13105" class="LineNr">13105 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13106" class="LineNr">13106 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13107" class="LineNr">13107 </span> 68/push 0/imm32 +<span id="L13108" class="LineNr">13108 </span> 68/push 0/imm32 +<span id="L13109" class="LineNr">13109 </span> 89/<- %edx 4/r32/esp +<span id="L13110" class="LineNr">13110 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13111" class="LineNr">13111 </span> <span class="subxComment">#</span> +<span id="L13112" class="LineNr">13112 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13113" class="LineNr">13113 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L13114" class="LineNr">13114 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13115" class="LineNr">13115 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13116" class="LineNr">13116 </span> <span class="subxComment"># convert</span> +<span id="L13117" class="LineNr">13117 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13118" class="LineNr">13118 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13119" class="LineNr">13119 </span> <span class="subxComment"># restore ed</span> +<span id="L13120" class="LineNr">13120 </span> 89/<- %edx 4/r32/esp +<span id="L13121" class="LineNr">13121 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13122" class="LineNr">13122 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13123" class="Folded">13123 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13129" class="LineNr">13129 </span> <span class="subxComment"># check output</span> +<span id="L13130" class="LineNr">13130 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13095'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: output should be empty"</span>) +<span id="L13131" class="LineNr">13131 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13095'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13132" class="LineNr">13132 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13133" class="LineNr">13133 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13095'>test-write-to-stream-with-non-stream-compound-base-type-2</a>: exit status"</span>) +<span id="L13134" class="LineNr">13134 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13135" class="LineNr">13135 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13136" class="LineNr">13136 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13137" class="LineNr">13137 </span> 5d/pop-to-ebp +<span id="L13138" class="LineNr">13138 </span> c3/return +<span id="L13139" class="LineNr">13139 </span> +<span id="L13140" class="LineNr">13140 </span><span class="subxTest">test-write-to-stream-with-stream-atom-base-type</span>: +<span id="L13141" class="LineNr">13141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13142" class="LineNr">13142 </span> 55/push-ebp +<span id="L13143" class="LineNr">13143 </span> 89/<- %ebp 4/r32/esp +<span id="L13144" class="LineNr">13144 </span> <span class="subxComment"># setup</span> +<span id="L13145" class="LineNr">13145 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13146" class="LineNr">13146 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13147" class="LineNr">13147 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13148" class="LineNr">13148 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13149" class="LineNr">13149 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13150" class="LineNr">13150 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13151" class="LineNr">13151 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13152" class="LineNr">13152 </span> 68/push 0/imm32 +<span id="L13153" class="LineNr">13153 </span> 68/push 0/imm32 +<span id="L13154" class="LineNr">13154 </span> 89/<- %edx 4/r32/esp +<span id="L13155" class="LineNr">13155 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13156" class="LineNr">13156 </span> <span class="subxComment">#</span> +<span id="L13157" class="LineNr">13157 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13158" class="LineNr">13158 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: stream\n"</span>) +<span id="L13159" class="LineNr">13159 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, 0\n"</span>) +<span id="L13160" class="LineNr">13160 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13161" class="LineNr">13161 </span> <span class="subxComment"># convert</span> +<span id="L13162" class="LineNr">13162 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13163" class="LineNr">13163 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13164" class="LineNr">13164 </span> <span class="subxComment"># restore ed</span> +<span id="L13165" class="LineNr">13165 </span> 89/<- %edx 4/r32/esp +<span id="L13166" class="LineNr">13166 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13167" class="LineNr">13167 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13168" class="Folded">13168 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13174" class="LineNr">13174 </span> <span class="subxComment"># check output</span> +<span id="L13175" class="LineNr">13175 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13140'>test-write-to-stream-with-stream-atom-base-type</a>: output should be empty"</span>) +<span id="L13176" class="LineNr">13176 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var 'a' must be an addr to a stream"</span> <span class="Constant">"F - <a href='mu.subx.html#L13140'>test-write-to-stream-with-stream-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13177" class="LineNr">13177 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13178" class="LineNr">13178 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13140'>test-write-to-stream-with-stream-atom-base-type</a>: exit status"</span>) +<span id="L13179" class="LineNr">13179 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13180" class="LineNr">13180 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13181" class="LineNr">13181 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13182" class="LineNr">13182 </span> 5d/pop-to-ebp +<span id="L13183" class="LineNr">13183 </span> c3/return +<span id="L13184" class="LineNr">13184 </span> +<span id="L13185" class="LineNr">13185 </span><span class="subxTest">test-write-to-stream-with-wrong-index-type</span>: +<span id="L13186" class="LineNr">13186 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13187" class="LineNr">13187 </span> 55/push-ebp +<span id="L13188" class="LineNr">13188 </span> 89/<- %ebp 4/r32/esp +<span id="L13189" class="LineNr">13189 </span> <span class="subxComment"># setup</span> +<span id="L13190" class="LineNr">13190 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13191" class="LineNr">13191 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13192" class="LineNr">13192 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13193" class="LineNr">13193 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13194" class="LineNr">13194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13195" class="LineNr">13195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13196" class="LineNr">13196 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13197" class="LineNr">13197 </span> 68/push 0/imm32 +<span id="L13198" class="LineNr">13198 </span> 68/push 0/imm32 +<span id="L13199" class="LineNr">13199 </span> 89/<- %edx 4/r32/esp +<span id="L13200" class="LineNr">13200 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13201" class="LineNr">13201 </span> <span class="subxComment">#</span> +<span id="L13202" class="LineNr">13202 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13203" class="LineNr">13203 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/eax: (addr stream int) <- copy 0\n"</span>) +<span id="L13204" class="LineNr">13204 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: boolean\n"</span>) +<span id="L13205" class="LineNr">13205 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) +<span id="L13206" class="LineNr">13206 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13207" class="LineNr">13207 </span> <span class="subxComment"># convert</span> +<span id="L13208" class="LineNr">13208 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13209" class="LineNr">13209 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13210" class="LineNr">13210 </span> <span class="subxComment"># restore ed</span> +<span id="L13211" class="LineNr">13211 </span> 89/<- %edx 4/r32/esp +<span id="L13212" class="LineNr">13212 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13213" class="LineNr">13213 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13214" class="Folded">13214 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13220" class="LineNr">13220 </span> <span class="subxComment"># check output</span> +<span id="L13221" class="LineNr">13221 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13185'>test-write-to-stream-with-wrong-index-type</a>: output should be empty"</span>) +<span id="L13222" class="LineNr">13222 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: target 'b' must be an addr"</span> <span class="Constant">"F - <a href='mu.subx.html#L13185'>test-write-to-stream-with-wrong-index-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13223" class="LineNr">13223 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13224" class="LineNr">13224 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13185'>test-write-to-stream-with-wrong-index-type</a>: exit status"</span>) +<span id="L13225" class="LineNr">13225 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13226" class="LineNr">13226 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13227" class="LineNr">13227 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13228" class="LineNr">13228 </span> 5d/pop-to-ebp +<span id="L13229" class="LineNr">13229 </span> c3/return +<span id="L13230" class="LineNr">13230 </span> +<span id="L13231" class="LineNr">13231 </span><span class="subxTest">test-write-to-stream-with-no-inouts</span>: +<span id="L13232" class="LineNr">13232 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13233" class="LineNr">13233 </span> 55/push-ebp +<span id="L13234" class="LineNr">13234 </span> 89/<- %ebp 4/r32/esp +<span id="L13235" class="LineNr">13235 </span> <span class="subxComment"># setup</span> +<span id="L13236" class="LineNr">13236 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13237" class="LineNr">13237 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13238" class="LineNr">13238 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13239" class="LineNr">13239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13240" class="LineNr">13240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13241" class="LineNr">13241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13242" class="LineNr">13242 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13243" class="LineNr">13243 </span> 68/push 0/imm32 +<span id="L13244" class="LineNr">13244 </span> 68/push 0/imm32 +<span id="L13245" class="LineNr">13245 </span> 89/<- %edx 4/r32/esp +<span id="L13246" class="LineNr">13246 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13247" class="LineNr">13247 </span> <span class="subxComment">#</span> +<span id="L13248" class="LineNr">13248 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13249" class="LineNr">13249 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" write-to-stream\n"</span>) +<span id="L13250" class="LineNr">13250 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13251" class="LineNr">13251 </span> <span class="subxComment"># convert</span> +<span id="L13252" class="LineNr">13252 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13253" class="LineNr">13253 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13254" class="LineNr">13254 </span> <span class="subxComment"># restore ed</span> +<span id="L13255" class="LineNr">13255 </span> 89/<- %edx 4/r32/esp +<span id="L13256" class="LineNr">13256 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13257" class="LineNr">13257 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13258" class="Folded">13258 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13264" class="LineNr">13264 </span> <span class="subxComment"># check output</span> +<span id="L13265" class="LineNr">13265 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13231'>test-write-to-stream-with-no-inouts</a>: output should be empty"</span>) +<span id="L13266" class="LineNr">13266 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13231'>test-write-to-stream-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13267" class="LineNr">13267 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13268" class="LineNr">13268 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13231'>test-write-to-stream-with-no-inouts</a>: exit status"</span>) +<span id="L13269" class="LineNr">13269 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13270" class="LineNr">13270 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13271" class="LineNr">13271 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13272" class="LineNr">13272 </span> 5d/pop-to-ebp +<span id="L13273" class="LineNr">13273 </span> c3/return +<span id="L13274" class="LineNr">13274 </span> +<span id="L13275" class="LineNr">13275 </span><span class="subxTest">test-write-to-stream-with-too-few-inouts</span>: +<span id="L13276" class="LineNr">13276 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13277" class="LineNr">13277 </span> 55/push-ebp +<span id="L13278" class="LineNr">13278 </span> 89/<- %ebp 4/r32/esp +<span id="L13279" class="LineNr">13279 </span> <span class="subxComment"># setup</span> +<span id="L13280" class="LineNr">13280 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13281" class="LineNr">13281 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13282" class="LineNr">13282 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13283" class="LineNr">13283 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13284" class="LineNr">13284 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13285" class="LineNr">13285 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13286" class="LineNr">13286 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13287" class="LineNr">13287 </span> 68/push 0/imm32 +<span id="L13288" class="LineNr">13288 </span> 68/push 0/imm32 +<span id="L13289" class="LineNr">13289 </span> 89/<- %edx 4/r32/esp +<span id="L13290" class="LineNr">13290 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13291" class="LineNr">13291 </span> <span class="subxComment">#</span> +<span id="L13292" class="LineNr">13292 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13293" class="LineNr">13293 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13294" class="LineNr">13294 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a\n"</span>) +<span id="L13295" class="LineNr">13295 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13296" class="LineNr">13296 </span> <span class="subxComment"># convert</span> +<span id="L13297" class="LineNr">13297 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13298" class="LineNr">13298 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13299" class="LineNr">13299 </span> <span class="subxComment"># restore ed</span> +<span id="L13300" class="LineNr">13300 </span> 89/<- %edx 4/r32/esp +<span id="L13301" class="LineNr">13301 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13302" class="LineNr">13302 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13303" class="Folded">13303 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13309" class="LineNr">13309 </span> <span class="subxComment"># check output</span> +<span id="L13310" class="LineNr">13310 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13275'>test-write-to-stream-with-too-few-inouts</a>: output should be empty"</span>) +<span id="L13311" class="LineNr">13311 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13275'>test-write-to-stream-with-too-few-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13312" class="LineNr">13312 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13313" class="LineNr">13313 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13275'>test-write-to-stream-with-too-few-inouts</a>: exit status"</span>) +<span id="L13314" class="LineNr">13314 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13315" class="LineNr">13315 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13316" class="LineNr">13316 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13317" class="LineNr">13317 </span> 5d/pop-to-ebp +<span id="L13318" class="LineNr">13318 </span> c3/return +<span id="L13319" class="LineNr">13319 </span> +<span id="L13320" class="LineNr">13320 </span><span class="subxTest">test-write-to-stream-with-too-many-inouts</span>: +<span id="L13321" class="LineNr">13321 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13322" class="LineNr">13322 </span> 55/push-ebp +<span id="L13323" class="LineNr">13323 </span> 89/<- %ebp 4/r32/esp +<span id="L13324" class="LineNr">13324 </span> <span class="subxComment"># setup</span> +<span id="L13325" class="LineNr">13325 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13326" class="LineNr">13326 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13327" class="LineNr">13327 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13328" class="LineNr">13328 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13329" class="LineNr">13329 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13330" class="LineNr">13330 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13331" class="LineNr">13331 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13332" class="LineNr">13332 </span> 68/push 0/imm32 +<span id="L13333" class="LineNr">13333 </span> 68/push 0/imm32 +<span id="L13334" class="LineNr">13334 </span> 89/<- %edx 4/r32/esp +<span id="L13335" class="LineNr">13335 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13336" class="LineNr">13336 </span> <span class="subxComment">#</span> +<span id="L13337" class="LineNr">13337 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13338" class="LineNr">13338 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13339" class="LineNr">13339 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b: (addr int)\n"</span>) +<span id="L13340" class="LineNr">13340 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='309stream.subx.html#L54'>write-to-stream</a> a, b, 0\n"</span>) +<span id="L13341" class="LineNr">13341 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13342" class="LineNr">13342 </span> <span class="subxComment"># convert</span> +<span id="L13343" class="LineNr">13343 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13344" class="LineNr">13344 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13345" class="LineNr">13345 </span> <span class="subxComment"># restore ed</span> +<span id="L13346" class="LineNr">13346 </span> 89/<- %edx 4/r32/esp +<span id="L13347" class="LineNr">13347 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13348" class="LineNr">13348 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13349" class="Folded">13349 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13355" class="LineNr">13355 </span> <span class="subxComment"># check output</span> +<span id="L13356" class="LineNr">13356 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13320'>test-write-to-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L13357" class="LineNr">13357 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too many inouts (2 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13320'>test-write-to-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13358" class="LineNr">13358 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13359" class="LineNr">13359 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13320'>test-write-to-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L13360" class="LineNr">13360 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13361" class="LineNr">13361 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13362" class="LineNr">13362 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13363" class="LineNr">13363 </span> 5d/pop-to-ebp +<span id="L13364" class="LineNr">13364 </span> c3/return +<span id="L13365" class="LineNr">13365 </span> +<span id="L13366" class="LineNr">13366 </span><span class="subxTest">test-write-to-stream-with-output</span>: +<span id="L13367" class="LineNr">13367 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13368" class="LineNr">13368 </span> 55/push-ebp +<span id="L13369" class="LineNr">13369 </span> 89/<- %ebp 4/r32/esp +<span id="L13370" class="LineNr">13370 </span> <span class="subxComment"># setup</span> +<span id="L13371" class="LineNr">13371 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13372" class="LineNr">13372 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13373" class="LineNr">13373 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13374" class="LineNr">13374 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13375" class="LineNr">13375 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13376" class="LineNr">13376 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13377" class="LineNr">13377 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13378" class="LineNr">13378 </span> 68/push 0/imm32 +<span id="L13379" class="LineNr">13379 </span> 68/push 0/imm32 +<span id="L13380" class="LineNr">13380 </span> 89/<- %edx 4/r32/esp +<span id="L13381" class="LineNr">13381 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13382" class="LineNr">13382 </span> <span class="subxComment">#</span> +<span id="L13383" class="LineNr">13383 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13384" class="LineNr">13384 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr stream int)\n"</span>) +<span id="L13385" class="LineNr">13385 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: (addr int) <- copy 0\n"</span>) +<span id="L13386" class="LineNr">13386 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b <- <a href='309stream.subx.html#L54'>write-to-stream</a> a, b\n"</span>) +<span id="L13387" class="LineNr">13387 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13388" class="LineNr">13388 </span> <span class="subxComment"># convert</span> +<span id="L13389" class="LineNr">13389 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13390" class="LineNr">13390 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13391" class="LineNr">13391 </span> <span class="subxComment"># restore ed</span> +<span id="L13392" class="LineNr">13392 </span> 89/<- %edx 4/r32/esp +<span id="L13393" class="LineNr">13393 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13394" class="LineNr">13394 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13395" class="Folded">13395 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13401" class="LineNr">13401 </span> <span class="subxComment"># check output</span> +<span id="L13402" class="LineNr">13402 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13366'>test-write-to-stream-with-output</a>: output should be empty"</span>) +<span id="L13403" class="LineNr">13403 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: unexpected output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13366'>test-write-to-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13404" class="LineNr">13404 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13405" class="LineNr">13405 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13366'>test-write-to-stream-with-output</a>: exit status"</span>) +<span id="L13406" class="LineNr">13406 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13407" class="LineNr">13407 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13408" class="LineNr">13408 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13409" class="LineNr">13409 </span> 5d/pop-to-ebp +<span id="L13410" class="LineNr">13410 </span> c3/return +<span id="L13411" class="LineNr">13411 </span> +<span id="L13412" class="LineNr">13412 </span><span class="subxTest">test-length-with-non-array-atom-base-type</span>: +<span id="L13413" class="LineNr">13413 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13414" class="LineNr">13414 </span> 55/push-ebp +<span id="L13415" class="LineNr">13415 </span> 89/<- %ebp 4/r32/esp +<span id="L13416" class="LineNr">13416 </span> <span class="subxComment"># setup</span> +<span id="L13417" class="LineNr">13417 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13418" class="LineNr">13418 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13419" class="LineNr">13419 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13420" class="LineNr">13420 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13421" class="LineNr">13421 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13422" class="LineNr">13422 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13423" class="LineNr">13423 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13424" class="LineNr">13424 </span> 68/push 0/imm32 +<span id="L13425" class="LineNr">13425 </span> 68/push 0/imm32 +<span id="L13426" class="LineNr">13426 </span> 89/<- %edx 4/r32/esp +<span id="L13427" class="LineNr">13427 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13428" class="LineNr">13428 </span> <span class="subxComment">#</span> +<span id="L13429" class="LineNr">13429 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13430" class="LineNr">13430 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: int\n"</span>) +<span id="L13431" class="LineNr">13431 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a\n"</span>) +<span id="L13432" class="LineNr">13432 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13433" class="LineNr">13433 </span> <span class="subxComment"># convert</span> +<span id="L13434" class="LineNr">13434 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13435" class="LineNr">13435 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13436" class="LineNr">13436 </span> <span class="subxComment"># restore ed</span> +<span id="L13437" class="LineNr">13437 </span> 89/<- %edx 4/r32/esp +<span id="L13438" class="LineNr">13438 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13439" class="LineNr">13439 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13440" class="Folded">13440 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13446" class="LineNr">13446 </span> <span class="subxComment"># check output</span> +<span id="L13447" class="LineNr">13447 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13412'>test-length-with-non-array-atom-base-type</a>: output should be empty"</span>) +<span id="L13448" class="LineNr">13448 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13412'>test-length-with-non-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13449" class="LineNr">13449 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13450" class="LineNr">13450 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13412'>test-length-with-non-array-atom-base-type</a>: exit status"</span>) +<span id="L13451" class="LineNr">13451 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13452" class="LineNr">13452 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13453" class="LineNr">13453 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13454" class="LineNr">13454 </span> 5d/pop-to-ebp +<span id="L13455" class="LineNr">13455 </span> c3/return +<span id="L13456" class="LineNr">13456 </span> +<span id="L13457" class="LineNr">13457 </span><span class="subxTest">test-length-with-non-array-compound-base-type</span>: +<span id="L13458" class="LineNr">13458 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13459" class="LineNr">13459 </span> 55/push-ebp +<span id="L13460" class="LineNr">13460 </span> 89/<- %ebp 4/r32/esp +<span id="L13461" class="LineNr">13461 </span> <span class="subxComment"># setup</span> +<span id="L13462" class="LineNr">13462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13463" class="LineNr">13463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13464" class="LineNr">13464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13465" class="LineNr">13465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13466" class="LineNr">13466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13467" class="LineNr">13467 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13468" class="LineNr">13468 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13469" class="LineNr">13469 </span> 68/push 0/imm32 +<span id="L13470" class="LineNr">13470 </span> 68/push 0/imm32 +<span id="L13471" class="LineNr">13471 </span> 89/<- %edx 4/r32/esp +<span id="L13472" class="LineNr">13472 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13473" class="LineNr">13473 </span> <span class="subxComment">#</span> +<span id="L13474" class="LineNr">13474 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13475" class="LineNr">13475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (handle int)\n"</span>) +<span id="L13476" class="LineNr">13476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) +<span id="L13477" class="LineNr">13477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13478" class="LineNr">13478 </span> <span class="subxComment"># convert</span> +<span id="L13479" class="LineNr">13479 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13480" class="LineNr">13480 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13481" class="LineNr">13481 </span> <span class="subxComment"># restore ed</span> +<span id="L13482" class="LineNr">13482 </span> 89/<- %edx 4/r32/esp +<span id="L13483" class="LineNr">13483 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13484" class="LineNr">13484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13485" class="Folded">13485 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13491" class="LineNr">13491 </span> <span class="subxComment"># check output</span> +<span id="L13492" class="LineNr">13492 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13457'>test-length-with-non-array-compound-base-type</a>: output should be empty"</span>) +<span id="L13493" class="LineNr">13493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13457'>test-length-with-non-array-compound-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13494" class="LineNr">13494 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13495" class="LineNr">13495 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13457'>test-length-with-non-array-compound-base-type</a>: exit status"</span>) +<span id="L13496" class="LineNr">13496 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13497" class="LineNr">13497 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13498" class="LineNr">13498 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13499" class="LineNr">13499 </span> 5d/pop-to-ebp +<span id="L13500" class="LineNr">13500 </span> c3/return +<span id="L13501" class="LineNr">13501 </span> +<span id="L13502" class="LineNr">13502 </span><span class="subxTest">test-length-with-non-array-compound-base-type-2</span>: +<span id="L13503" class="LineNr">13503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13504" class="LineNr">13504 </span> 55/push-ebp +<span id="L13505" class="LineNr">13505 </span> 89/<- %ebp 4/r32/esp +<span id="L13506" class="LineNr">13506 </span> <span class="subxComment"># setup</span> +<span id="L13507" class="LineNr">13507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13508" class="LineNr">13508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13509" class="LineNr">13509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13510" class="LineNr">13510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13511" class="LineNr">13511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13512" class="LineNr">13512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13513" class="LineNr">13513 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13514" class="LineNr">13514 </span> 68/push 0/imm32 +<span id="L13515" class="LineNr">13515 </span> 68/push 0/imm32 +<span id="L13516" class="LineNr">13516 </span> 89/<- %edx 4/r32/esp +<span id="L13517" class="LineNr">13517 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13518" class="LineNr">13518 </span> <span class="subxComment">#</span> +<span id="L13519" class="LineNr">13519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13520" class="LineNr">13520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr int)\n"</span>) +<span id="L13521" class="LineNr">13521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a, 0\n"</span>) +<span id="L13522" class="LineNr">13522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13523" class="LineNr">13523 </span> <span class="subxComment"># convert</span> +<span id="L13524" class="LineNr">13524 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13525" class="LineNr">13525 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13526" class="LineNr">13526 </span> <span class="subxComment"># restore ed</span> +<span id="L13527" class="LineNr">13527 </span> 89/<- %edx 4/r32/esp +<span id="L13528" class="LineNr">13528 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13529" class="LineNr">13529 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13530" class="Folded">13530 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13536" class="LineNr">13536 </span> <span class="subxComment"># check output</span> +<span id="L13537" class="LineNr">13537 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13502'>test-length-with-non-array-compound-base-type-2</a>: output should be empty"</span>) +<span id="L13538" class="LineNr">13538 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is not an array"</span> <span class="Constant">"F - <a href='mu.subx.html#L13502'>test-length-with-non-array-compound-base-type-2</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13539" class="LineNr">13539 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13540" class="LineNr">13540 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13502'>test-length-with-non-array-compound-base-type-2</a>: exit status"</span>) +<span id="L13541" class="LineNr">13541 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13542" class="LineNr">13542 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13543" class="LineNr">13543 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13544" class="LineNr">13544 </span> 5d/pop-to-ebp +<span id="L13545" class="LineNr">13545 </span> c3/return +<span id="L13546" class="LineNr">13546 </span> +<span id="L13547" class="LineNr">13547 </span><span class="subxTest">test-length-with-array-atom-base-type</span>: +<span id="L13548" class="LineNr">13548 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13549" class="LineNr">13549 </span> 55/push-ebp +<span id="L13550" class="LineNr">13550 </span> 89/<- %ebp 4/r32/esp +<span id="L13551" class="LineNr">13551 </span> <span class="subxComment"># setup</span> +<span id="L13552" class="LineNr">13552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13553" class="LineNr">13553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13554" class="LineNr">13554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13555" class="LineNr">13555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13556" class="LineNr">13556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13557" class="LineNr">13557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13558" class="LineNr">13558 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13559" class="LineNr">13559 </span> 68/push 0/imm32 +<span id="L13560" class="LineNr">13560 </span> 68/push 0/imm32 +<span id="L13561" class="LineNr">13561 </span> 89/<- %edx 4/r32/esp +<span id="L13562" class="LineNr">13562 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13563" class="LineNr">13563 </span> <span class="subxComment">#</span> +<span id="L13564" class="LineNr">13564 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13565" class="LineNr">13565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: array\n"</span>) +<span id="L13566" class="LineNr">13566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) +<span id="L13567" class="LineNr">13567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13568" class="LineNr">13568 </span> <span class="subxComment"># convert</span> +<span id="L13569" class="LineNr">13569 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13570" class="LineNr">13570 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13571" class="LineNr">13571 </span> <span class="subxComment"># restore ed</span> +<span id="L13572" class="LineNr">13572 </span> 89/<- %edx 4/r32/esp +<span id="L13573" class="LineNr">13573 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13574" class="LineNr">13574 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13575" class="Folded">13575 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13581" class="LineNr">13581 </span> <span class="subxComment"># check output</span> +<span id="L13582" class="LineNr">13582 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13547'>test-length-with-array-atom-base-type</a>: output should be empty"</span>) +<span id="L13583" class="LineNr">13583 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: array 'a' must specify the type of its elements"</span> <span class="Constant">"F - <a href='mu.subx.html#L13547'>test-length-with-array-atom-base-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13584" class="LineNr">13584 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13585" class="LineNr">13585 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13547'>test-length-with-array-atom-base-type</a>: exit status"</span>) +<span id="L13586" class="LineNr">13586 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13587" class="LineNr">13587 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13588" class="LineNr">13588 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13589" class="LineNr">13589 </span> 5d/pop-to-ebp +<span id="L13590" class="LineNr">13590 </span> c3/return +<span id="L13591" class="LineNr">13591 </span> +<span id="L13592" class="LineNr">13592 </span><span class="subxTest">test-length-with-addr-base-on-stack</span>: +<span id="L13593" class="LineNr">13593 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13594" class="LineNr">13594 </span> 55/push-ebp +<span id="L13595" class="LineNr">13595 </span> 89/<- %ebp 4/r32/esp +<span id="L13596" class="LineNr">13596 </span> <span class="subxComment"># setup</span> +<span id="L13597" class="LineNr">13597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13598" class="LineNr">13598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13599" class="LineNr">13599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13600" class="LineNr">13600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13601" class="LineNr">13601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13602" class="LineNr">13602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13603" class="LineNr">13603 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13604" class="LineNr">13604 </span> 68/push 0/imm32 +<span id="L13605" class="LineNr">13605 </span> 68/push 0/imm32 +<span id="L13606" class="LineNr">13606 </span> 89/<- %edx 4/r32/esp +<span id="L13607" class="LineNr">13607 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13608" class="LineNr">13608 </span> <span class="subxComment">#</span> +<span id="L13609" class="LineNr">13609 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13610" class="LineNr">13610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (addr array int)\n"</span>) +<span id="L13611" class="LineNr">13611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: (addr int) <- length a\n"</span>) +<span id="L13612" class="LineNr">13612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13613" class="LineNr">13613 </span> <span class="subxComment"># convert</span> +<span id="L13614" class="LineNr">13614 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13615" class="LineNr">13615 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13616" class="LineNr">13616 </span> <span class="subxComment"># restore ed</span> +<span id="L13617" class="LineNr">13617 </span> 89/<- %edx 4/r32/esp +<span id="L13618" class="LineNr">13618 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13619" class="LineNr">13619 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13620" class="Folded">13620 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13626" class="LineNr">13626 </span> <span class="subxComment"># check output</span> +<span id="L13627" class="LineNr">13627 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13592'>test-length-with-addr-base-on-stack</a>: output should be empty"</span>) +<span id="L13628" class="LineNr">13628 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: var 'a' is an addr to an array, and so must live in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L13592'>test-length-with-addr-base-on-stack</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13629" class="LineNr">13629 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13630" class="LineNr">13630 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13592'>test-length-with-addr-base-on-stack</a>: exit status"</span>) +<span id="L13631" class="LineNr">13631 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13632" class="LineNr">13632 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13633" class="LineNr">13633 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13634" class="LineNr">13634 </span> 5d/pop-to-ebp +<span id="L13635" class="LineNr">13635 </span> c3/return +<span id="L13636" class="LineNr">13636 </span> +<span id="L13637" class="LineNr">13637 </span><span class="subxTest">test-length-with-wrong-output-type</span>: +<span id="L13638" class="LineNr">13638 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13639" class="LineNr">13639 </span> 55/push-ebp +<span id="L13640" class="LineNr">13640 </span> 89/<- %ebp 4/r32/esp +<span id="L13641" class="LineNr">13641 </span> <span class="subxComment"># setup</span> +<span id="L13642" class="LineNr">13642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13643" class="LineNr">13643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13644" class="LineNr">13644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13645" class="LineNr">13645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13646" class="LineNr">13646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13647" class="LineNr">13647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13648" class="LineNr">13648 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13649" class="LineNr">13649 </span> 68/push 0/imm32 +<span id="L13650" class="LineNr">13650 </span> 68/push 0/imm32 +<span id="L13651" class="LineNr">13651 </span> 89/<- %edx 4/r32/esp +<span id="L13652" class="LineNr">13652 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13653" class="LineNr">13653 </span> <span class="subxComment">#</span> +<span id="L13654" class="LineNr">13654 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13655" class="LineNr">13655 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array boolean) <- copy 0\n"</span>) +<span id="L13656" class="LineNr">13656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr int) <- length a\n"</span>) +<span id="L13657" class="LineNr">13657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13658" class="LineNr">13658 </span> <span class="subxComment"># convert</span> +<span id="L13659" class="LineNr">13659 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13660" class="LineNr">13660 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13661" class="LineNr">13661 </span> <span class="subxComment"># restore ed</span> +<span id="L13662" class="LineNr">13662 </span> 89/<- %edx 4/r32/esp +<span id="L13663" class="LineNr">13663 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13664" class="LineNr">13664 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13665" class="Folded">13665 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13671" class="LineNr">13671 </span> <span class="subxComment"># check output</span> +<span id="L13672" class="LineNr">13672 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13637'>test-length-with-wrong-output-type</a>: output should be empty"</span>) +<span id="L13673" class="LineNr">13673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13637'>test-length-with-wrong-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13674" class="LineNr">13674 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13675" class="LineNr">13675 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13637'>test-length-with-wrong-output-type</a>: exit status"</span>) +<span id="L13676" class="LineNr">13676 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13677" class="LineNr">13677 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13678" class="LineNr">13678 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13679" class="LineNr">13679 </span> 5d/pop-to-ebp +<span id="L13680" class="LineNr">13680 </span> c3/return +<span id="L13681" class="LineNr">13681 </span> +<span id="L13682" class="LineNr">13682 </span><span class="subxTest">test-length-with-wrong-output-compound-type</span>: +<span id="L13683" class="LineNr">13683 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13684" class="LineNr">13684 </span> 55/push-ebp +<span id="L13685" class="LineNr">13685 </span> 89/<- %ebp 4/r32/esp +<span id="L13686" class="LineNr">13686 </span> <span class="subxComment"># setup</span> +<span id="L13687" class="LineNr">13687 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13688" class="LineNr">13688 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13689" class="LineNr">13689 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13690" class="LineNr">13690 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13691" class="LineNr">13691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13692" class="LineNr">13692 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13693" class="LineNr">13693 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13694" class="LineNr">13694 </span> 68/push 0/imm32 +<span id="L13695" class="LineNr">13695 </span> 68/push 0/imm32 +<span id="L13696" class="LineNr">13696 </span> 89/<- %edx 4/r32/esp +<span id="L13697" class="LineNr">13697 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13698" class="LineNr">13698 </span> <span class="subxComment">#</span> +<span id="L13699" class="LineNr">13699 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13700" class="LineNr">13700 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a/ebx: (addr array handle boolean) <- copy 0\n"</span>) +<span id="L13701" class="LineNr">13701 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var o/edi: (addr handle int) <- length a\n"</span>) +<span id="L13702" class="LineNr">13702 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13703" class="LineNr">13703 </span> <span class="subxComment"># convert</span> +<span id="L13704" class="LineNr">13704 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13705" class="LineNr">13705 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13706" class="LineNr">13706 </span> <span class="subxComment"># restore ed</span> +<span id="L13707" class="LineNr">13707 </span> 89/<- %edx 4/r32/esp +<span id="L13708" class="LineNr">13708 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13709" class="LineNr">13709 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13710" class="Folded">13710 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13716" class="LineNr">13716 </span> <span class="subxComment"># check output</span> +<span id="L13717" class="LineNr">13717 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13682'>test-length-with-wrong-output-compound-type</a>: output should be empty"</span>) +<span id="L13718" class="LineNr">13718 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: output 'o' does not have the right type"</span> <span class="Constant">"F - <a href='mu.subx.html#L13682'>test-length-with-wrong-output-compound-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13719" class="LineNr">13719 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13720" class="LineNr">13720 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13682'>test-length-with-wrong-output-compound-type</a>: exit status"</span>) +<span id="L13721" class="LineNr">13721 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13722" class="LineNr">13722 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13723" class="LineNr">13723 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13724" class="LineNr">13724 </span> 5d/pop-to-ebp +<span id="L13725" class="LineNr">13725 </span> c3/return +<span id="L13726" class="LineNr">13726 </span> +<span id="L13727" class="LineNr">13727 </span><span class="subxTest">test-length-with-no-inouts</span>: +<span id="L13728" class="LineNr">13728 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13729" class="LineNr">13729 </span> 55/push-ebp +<span id="L13730" class="LineNr">13730 </span> 89/<- %ebp 4/r32/esp +<span id="L13731" class="LineNr">13731 </span> <span class="subxComment"># setup</span> +<span id="L13732" class="LineNr">13732 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13733" class="LineNr">13733 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13734" class="LineNr">13734 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13735" class="LineNr">13735 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13736" class="LineNr">13736 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13737" class="LineNr">13737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13738" class="LineNr">13738 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13739" class="LineNr">13739 </span> 68/push 0/imm32 +<span id="L13740" class="LineNr">13740 </span> 68/push 0/imm32 +<span id="L13741" class="LineNr">13741 </span> 89/<- %edx 4/r32/esp +<span id="L13742" class="LineNr">13742 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13743" class="LineNr">13743 </span> <span class="subxComment">#</span> +<span id="L13744" class="LineNr">13744 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13745" class="LineNr">13745 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length\n"</span>) +<span id="L13746" class="LineNr">13746 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13747" class="LineNr">13747 </span> <span class="subxComment"># convert</span> +<span id="L13748" class="LineNr">13748 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13749" class="LineNr">13749 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13750" class="LineNr">13750 </span> <span class="subxComment"># restore ed</span> +<span id="L13751" class="LineNr">13751 </span> 89/<- %edx 4/r32/esp +<span id="L13752" class="LineNr">13752 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13753" class="LineNr">13753 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13754" class="Folded">13754 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13760" class="LineNr">13760 </span> <span class="subxComment"># check output</span> +<span id="L13761" class="LineNr">13761 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13727'>test-length-with-no-inouts</a>: output should be empty"</span>) +<span id="L13762" class="LineNr">13762 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too few inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13727'>test-length-with-no-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13763" class="LineNr">13763 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13764" class="LineNr">13764 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13727'>test-length-with-no-inouts</a>: exit status"</span>) +<span id="L13765" class="LineNr">13765 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13766" class="LineNr">13766 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13767" class="LineNr">13767 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13768" class="LineNr">13768 </span> 5d/pop-to-ebp +<span id="L13769" class="LineNr">13769 </span> c3/return +<span id="L13770" class="LineNr">13770 </span> +<span id="L13771" class="LineNr">13771 </span><span class="subxTest">test-length-with-too-many-inouts</span>: +<span id="L13772" class="LineNr">13772 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13773" class="LineNr">13773 </span> 55/push-ebp +<span id="L13774" class="LineNr">13774 </span> 89/<- %ebp 4/r32/esp +<span id="L13775" class="LineNr">13775 </span> <span class="subxComment"># setup</span> +<span id="L13776" class="LineNr">13776 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13777" class="LineNr">13777 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13778" class="LineNr">13778 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13779" class="LineNr">13779 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13780" class="LineNr">13780 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13781" class="LineNr">13781 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13782" class="LineNr">13782 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13783" class="LineNr">13783 </span> 68/push 0/imm32 +<span id="L13784" class="LineNr">13784 </span> 68/push 0/imm32 +<span id="L13785" class="LineNr">13785 </span> 89/<- %edx 4/r32/esp +<span id="L13786" class="LineNr">13786 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13787" class="LineNr">13787 </span> <span class="subxComment">#</span> +<span id="L13788" class="LineNr">13788 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13789" class="LineNr">13789 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L13790" class="LineNr">13790 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- length a, 0, 0\n"</span>) +<span id="L13791" class="LineNr">13791 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13792" class="LineNr">13792 </span> <span class="subxComment"># convert</span> +<span id="L13793" class="LineNr">13793 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13794" class="LineNr">13794 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13795" class="LineNr">13795 </span> <span class="subxComment"># restore ed</span> +<span id="L13796" class="LineNr">13796 </span> 89/<- %edx 4/r32/esp +<span id="L13797" class="LineNr">13797 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13798" class="LineNr">13798 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13799" class="Folded">13799 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13805" class="LineNr">13805 </span> <span class="subxComment"># check output</span> +<span id="L13806" class="LineNr">13806 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13771'>test-length-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L13807" class="LineNr">13807 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many inouts (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13771'>test-length-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13808" class="LineNr">13808 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13809" class="LineNr">13809 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13771'>test-length-with-too-many-inouts</a>: exit status"</span>) +<span id="L13810" class="LineNr">13810 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13811" class="LineNr">13811 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13812" class="LineNr">13812 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13813" class="LineNr">13813 </span> 5d/pop-to-ebp +<span id="L13814" class="LineNr">13814 </span> c3/return +<span id="L13815" class="LineNr">13815 </span> +<span id="L13816" class="LineNr">13816 </span><span class="subxTest">test-length-with-no-output</span>: +<span id="L13817" class="LineNr">13817 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13818" class="LineNr">13818 </span> 55/push-ebp +<span id="L13819" class="LineNr">13819 </span> 89/<- %ebp 4/r32/esp +<span id="L13820" class="LineNr">13820 </span> <span class="subxComment"># setup</span> +<span id="L13821" class="LineNr">13821 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13822" class="LineNr">13822 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13823" class="LineNr">13823 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13824" class="LineNr">13824 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13825" class="LineNr">13825 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13826" class="LineNr">13826 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13827" class="LineNr">13827 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13828" class="LineNr">13828 </span> 68/push 0/imm32 +<span id="L13829" class="LineNr">13829 </span> 68/push 0/imm32 +<span id="L13830" class="LineNr">13830 </span> 89/<- %edx 4/r32/esp +<span id="L13831" class="LineNr">13831 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13832" class="LineNr">13832 </span> <span class="subxComment">#</span> +<span id="L13833" class="LineNr">13833 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13834" class="LineNr">13834 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L13835" class="LineNr">13835 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" length a\n"</span>) +<span id="L13836" class="LineNr">13836 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13837" class="LineNr">13837 </span> <span class="subxComment"># convert</span> +<span id="L13838" class="LineNr">13838 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13839" class="LineNr">13839 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13840" class="LineNr">13840 </span> <span class="subxComment"># restore ed</span> +<span id="L13841" class="LineNr">13841 </span> 89/<- %edx 4/r32/esp +<span id="L13842" class="LineNr">13842 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13843" class="LineNr">13843 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13844" class="Folded">13844 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13850" class="LineNr">13850 </span> <span class="subxComment"># check output</span> +<span id="L13851" class="LineNr">13851 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13816'>test-length-with-no-output</a>: output should be empty"</span>) +<span id="L13852" class="LineNr">13852 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: must have an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L13816'>test-length-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13853" class="LineNr">13853 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13854" class="LineNr">13854 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13816'>test-length-with-no-output</a>: exit status"</span>) +<span id="L13855" class="LineNr">13855 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13856" class="LineNr">13856 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13857" class="LineNr">13857 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13858" class="LineNr">13858 </span> 5d/pop-to-ebp +<span id="L13859" class="LineNr">13859 </span> c3/return +<span id="L13860" class="LineNr">13860 </span> +<span id="L13861" class="LineNr">13861 </span><span class="subxTest">test-length-with-too-many-outputs</span>: +<span id="L13862" class="LineNr">13862 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13863" class="LineNr">13863 </span> 55/push-ebp +<span id="L13864" class="LineNr">13864 </span> 89/<- %ebp 4/r32/esp +<span id="L13865" class="LineNr">13865 </span> <span class="subxComment"># setup</span> +<span id="L13866" class="LineNr">13866 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13867" class="LineNr">13867 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13868" class="LineNr">13868 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13869" class="LineNr">13869 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13870" class="LineNr">13870 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L13871" class="LineNr">13871 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L13872" class="LineNr">13872 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L13873" class="LineNr">13873 </span> 68/push 0/imm32 +<span id="L13874" class="LineNr">13874 </span> 68/push 0/imm32 +<span id="L13875" class="LineNr">13875 </span> 89/<- %edx 4/r32/esp +<span id="L13876" class="LineNr">13876 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L13877" class="LineNr">13877 </span> <span class="subxComment">#</span> +<span id="L13878" class="LineNr">13878 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L13879" class="LineNr">13879 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var a: (array int 3)\n"</span>) +<span id="L13880" class="LineNr">13880 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var b/eax: int <- copy 0\n"</span>) +<span id="L13881" class="LineNr">13881 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var c/ecx: int <- copy 0\n"</span>) +<span id="L13882" class="LineNr">13882 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" b, c <- length a\n"</span>) +<span id="L13883" class="LineNr">13883 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13884" class="LineNr">13884 </span> <span class="subxComment"># convert</span> +<span id="L13885" class="LineNr">13885 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L13886" class="LineNr">13886 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L13887" class="LineNr">13887 </span> <span class="subxComment"># restore ed</span> +<span id="L13888" class="LineNr">13888 </span> 89/<- %edx 4/r32/esp +<span id="L13889" class="LineNr">13889 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13890" class="LineNr">13890 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L13891" class="Folded">13891 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13897" class="LineNr">13897 </span> <span class="subxComment"># check output</span> +<span id="L13898" class="LineNr">13898 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L13861'>test-length-with-too-many-outputs</a>: output should be empty"</span>) +<span id="L13899" class="LineNr">13899 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt length: too many outputs (1 required)"</span> <span class="Constant">"F - <a href='mu.subx.html#L13861'>test-length-with-too-many-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L13900" class="LineNr">13900 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L13901" class="LineNr">13901 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L13861'>test-length-with-too-many-outputs</a>: exit status"</span>) +<span id="L13902" class="LineNr">13902 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L13903" class="LineNr">13903 </span> 81 0/subop/add %esp 8/imm32 +<span id="L13904" class="LineNr">13904 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13905" class="LineNr">13905 </span> 5d/pop-to-ebp +<span id="L13906" class="LineNr">13906 </span> c3/return +<span id="L13907" class="LineNr">13907 </span> +<span id="L13908" class="LineNr">13908 </span><span class="subxTest">test-convert-function-with-return-register-and-local</span>: +<span id="L13909" class="LineNr">13909 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13910" class="LineNr">13910 </span> 55/push-ebp +<span id="L13911" class="LineNr">13911 </span> 89/<- %ebp 4/r32/esp +<span id="L13912" class="LineNr">13912 </span> <span class="subxComment"># setup</span> +<span id="L13913" class="LineNr">13913 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13914" class="LineNr">13914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13915" class="LineNr">13915 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13916" class="LineNr">13916 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13917" class="LineNr">13917 </span> <span class="subxComment">#</span> +<span id="L13918" class="LineNr">13918 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L13919" class="LineNr">13919 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) +<span id="L13920" class="LineNr">13920 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) +<span id="L13921" class="LineNr">13921 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) +<span id="L13922" class="LineNr">13922 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13923" class="LineNr">13923 </span> <span class="subxComment"># convert</span> +<span id="L13924" class="LineNr">13924 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L13925" class="LineNr">13925 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13926" class="Folded">13926 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13932" class="LineNr">13932 </span> <span class="subxComment"># check output</span> +<span id="L13933" class="LineNr">13933 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/0"</span>) +<span id="L13934" class="LineNr">13934 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/1"</span>) +<span id="L13935" class="LineNr">13935 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/2"</span>) +<span id="L13936" class="LineNr">13936 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/3"</span>) +<span id="L13937" class="LineNr">13937 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/4"</span>) +<span id="L13938" class="LineNr">13938 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/5"</span>) +<span id="L13939" class="LineNr">13939 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/6"</span>) +<span id="L13940" class="LineNr">13940 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/7"</span>) +<span id="L13941" class="LineNr">13941 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/8"</span>) +<span id="L13942" class="LineNr">13942 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/9"</span>) +<span id="L13943" class="LineNr">13943 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %eax 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/10"</span>) +<span id="L13944" class="LineNr">13944 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/11"</span>) +<span id="L13945" class="LineNr">13945 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/12"</span>) +<span id="L13946" class="LineNr">13946 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/13"</span>) +<span id="L13947" class="LineNr">13947 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/14"</span>) +<span id="L13948" class="LineNr">13948 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/15"</span>) +<span id="L13949" class="LineNr">13949 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local/16"</span>) +<span id="L13950" class="LineNr">13950 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/17"</span>) +<span id="L13951" class="LineNr">13951 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/18"</span>) +<span id="L13952" class="LineNr">13952 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13908'>test-convert-function-with-return-register-and-local</a>/19"</span>) +<span id="L13953" class="LineNr">13953 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L13954" class="LineNr">13954 </span> 89/<- %esp 5/r32/ebp +<span id="L13955" class="LineNr">13955 </span> 5d/pop-to-ebp +<span id="L13956" class="LineNr">13956 </span> c3/return +<span id="L13957" class="LineNr">13957 </span> +<span id="L13958" class="LineNr">13958 </span><span class="subxTest">test-convert-function-with-return-register-and-local-2</span>: +<span id="L13959" class="LineNr">13959 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L13960" class="LineNr">13960 </span> 55/push-ebp +<span id="L13961" class="LineNr">13961 </span> 89/<- %ebp 4/r32/esp +<span id="L13962" class="LineNr">13962 </span> <span class="subxComment"># setup</span> +<span id="L13963" class="LineNr">13963 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L13964" class="LineNr">13964 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L13965" class="LineNr">13965 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L13966" class="LineNr">13966 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L13967" class="LineNr">13967 </span> <span class="subxComment">#</span> +<span id="L13968" class="LineNr">13968 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L13969" class="LineNr">13969 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) +<span id="L13970" class="LineNr">13970 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var z/ecx: int <- copy 4\n"</span>) +<span id="L13971" class="LineNr">13971 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return z\n"</span>) +<span id="L13972" class="LineNr">13972 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L13973" class="LineNr">13973 </span> <span class="subxComment"># convert</span> +<span id="L13974" class="LineNr">13974 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L13975" class="LineNr">13975 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L13976" class="Folded">13976 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L13982" class="LineNr">13982 </span> <span class="subxComment"># check output</span> +<span id="L13983" class="LineNr">13983 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/0"</span>) +<span id="L13984" class="LineNr">13984 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/1"</span>) +<span id="L13985" class="LineNr">13985 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/2"</span>) +<span id="L13986" class="LineNr">13986 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/3"</span>) +<span id="L13987" class="LineNr">13987 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/4"</span>) +<span id="L13988" class="LineNr">13988 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/5"</span>) +<span id="L13989" class="LineNr">13989 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/6"</span>) +<span id="L13990" class="LineNr">13990 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/7"</span>) +<span id="L13991" class="LineNr">13991 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/8"</span>) +<span id="L13992" class="LineNr">13992 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b9/copy-to-ecx 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/9"</span>) +<span id="L13993" class="LineNr">13993 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/10"</span>) +<span id="L13994" class="LineNr">13994 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/11"</span>) +<span id="L13995" class="LineNr">13995 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/12"</span>) +<span id="L13996" class="LineNr">13996 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/13"</span>) +<span id="L13997" class="LineNr">13997 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/14"</span>) +<span id="L13998" class="LineNr">13998 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/15"</span>) +<span id="L13999" class="LineNr">13999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-register-and-local-2/16"</span>) +<span id="L14000" class="LineNr">14000 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/17"</span>) +<span id="L14001" class="LineNr">14001 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/18"</span>) +<span id="L14002" class="LineNr">14002 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L13958'>test-convert-function-with-return-register-and-local-2</a>/19"</span>) +<span id="L14003" class="LineNr">14003 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14004" class="LineNr">14004 </span> 89/<- %esp 5/r32/ebp +<span id="L14005" class="LineNr">14005 </span> 5d/pop-to-ebp +<span id="L14006" class="LineNr">14006 </span> c3/return +<span id="L14007" class="LineNr">14007 </span> +<span id="L14008" class="LineNr">14008 </span><span class="subxTest">test-convert-function-with-return-float-register-and-local</span>: +<span id="L14009" class="LineNr">14009 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14010" class="LineNr">14010 </span> 55/push-ebp +<span id="L14011" class="LineNr">14011 </span> 89/<- %ebp 4/r32/esp +<span id="L14012" class="LineNr">14012 </span> <span class="subxComment"># setup</span> +<span id="L14013" class="LineNr">14013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14014" class="LineNr">14014 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14015" class="LineNr">14015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14016" class="LineNr">14016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14017" class="LineNr">14017 </span> <span class="subxComment">#</span> +<span id="L14018" class="LineNr">14018 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/xmm1: float {\n"</span>) +<span id="L14019" class="LineNr">14019 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- copy 3\n"</span>) +<span id="L14020" class="LineNr">14020 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var g/xmm0: float <- convert y\n"</span>) +<span id="L14021" class="LineNr">14021 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var h/xmm1: float <- convert y\n"</span>) +<span id="L14022" class="LineNr">14022 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return g\n"</span>) +<span id="L14023" class="LineNr">14023 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14024" class="LineNr">14024 </span> <span class="subxComment"># convert</span> +<span id="L14025" class="LineNr">14025 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14026" class="LineNr">14026 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14027" class="Folded">14027 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14033" class="LineNr">14033 </span> <span class="subxComment"># check output</span> +<span id="L14034" class="LineNr">14034 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/0"</span>) +<span id="L14035" class="LineNr">14035 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/1"</span>) +<span id="L14036" class="LineNr">14036 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/2"</span>) +<span id="L14037" class="LineNr">14037 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/3"</span>) +<span id="L14038" class="LineNr">14038 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/4"</span>) +<span id="L14039" class="LineNr">14039 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/5"</span>) +<span id="L14040" class="LineNr">14040 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" ff 6/subop/push %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/6"</span>) <span class="subxComment"># var y</span> +<span id="L14041" class="LineNr">14041 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" b8/copy-to-eax 3/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/7"</span>) +<span id="L14042" class="LineNr">14042 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/8"</span>) <span class="subxComment"># var g</span> +<span id="L14043" class="LineNr">14043 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/9"</span>) +<span id="L14044" class="LineNr">14044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000000/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/10"</span>) +<span id="L14045" class="LineNr">14045 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 5/subop/subtract %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/11"</span>) <span class="subxComment"># var h</span> +<span id="L14046" class="LineNr">14046 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 11/<- *esp 1/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/12"</span>) +<span id="L14047" class="LineNr">14047 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 2a/convert-to-float %eax 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/13"</span>) +<span id="L14048" class="LineNr">14048 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> %xmm0 0x00000001/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/14"</span>) <span class="subxComment"># return g</span> +<span id="L14049" class="LineNr">14049 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/15"</span>) <span class="subxComment"># reclaim h</span> +<span id="L14050" class="LineNr">14050 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" f3 0f 10/-> *esp 0/x32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/16"</span>) <span class="subxComment"># reclaim g</span> +<span id="L14051" class="LineNr">14051 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 4/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L6015'>test-convert-floating-point-dereferenced</a>/17"</span>) +<span id="L14052" class="LineNr">14052 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8f 0/subop/pop %eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/18"</span>) <span class="subxComment"># reclaim y</span> +<span id="L14053" class="LineNr">14053 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/19"</span>) +<span id="L14054" class="LineNr">14054 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/20"</span>) +<span id="L14055" class="LineNr">14055 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/21"</span>) +<span id="L14056" class="LineNr">14056 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-float-register-and-local/22"</span>) +<span id="L14057" class="LineNr">14057 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/23"</span>) +<span id="L14058" class="LineNr">14058 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/24"</span>) +<span id="L14059" class="LineNr">14059 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14008'>test-convert-function-with-return-float-register-and-local</a>/25"</span>) +<span id="L14060" class="LineNr">14060 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14061" class="LineNr">14061 </span> 89/<- %esp 5/r32/ebp +<span id="L14062" class="LineNr">14062 </span> 5d/pop-to-ebp +<span id="L14063" class="LineNr">14063 </span> c3/return +<span id="L14064" class="LineNr">14064 </span> +<span id="L14065" class="LineNr">14065 </span><span class="subxTest">test-convert-function-with-return-and-local-vars</span>: +<span id="L14066" class="LineNr">14066 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14067" class="LineNr">14067 </span> 55/push-ebp +<span id="L14068" class="LineNr">14068 </span> 89/<- %ebp 4/r32/esp +<span id="L14069" class="LineNr">14069 </span> <span class="subxComment"># setup</span> +<span id="L14070" class="LineNr">14070 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14071" class="LineNr">14071 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14072" class="LineNr">14072 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14073" class="LineNr">14073 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14074" class="LineNr">14074 </span> <span class="subxComment">#</span> +<span id="L14075" class="LineNr">14075 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo -> _/eax: int {\n"</span>) +<span id="L14076" class="LineNr">14076 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L14077" class="LineNr">14077 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L14078" class="LineNr">14078 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" {\n"</span>) +<span id="L14079" class="LineNr">14079 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L14080" class="LineNr">14080 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return y\n"</span>) +<span id="L14081" class="LineNr">14081 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" increment x\n"</span>) +<span id="L14082" class="LineNr">14082 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L14083" class="LineNr">14083 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" }\n"</span>) +<span id="L14084" class="LineNr">14084 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" return 0\n"</span>) +<span id="L14085" class="LineNr">14085 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14086" class="LineNr">14086 </span> <span class="subxComment"># convert</span> +<span id="L14087" class="LineNr">14087 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14088" class="LineNr">14088 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14089" class="Folded">14089 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14095" class="LineNr">14095 </span> <span class="subxComment"># check output</span> +<span id="L14096" class="LineNr">14096 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"foo:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/0"</span>) +<span id="L14097" class="LineNr">14097 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . prologue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/1"</span>) +<span id="L14098" class="LineNr">14098 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 55/push-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/2"</span>) +<span id="L14099" class="LineNr">14099 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %ebp 4/r32/esp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/3"</span>) +<span id="L14100" class="LineNr">14100 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/4"</span>) +<span id="L14101" class="LineNr">14101 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/5"</span>) +<span id="L14102" class="LineNr">14102 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/6"</span>) +<span id="L14103" class="LineNr">14103 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/7"</span>) +<span id="L14104" class="LineNr">14104 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/8"</span>) <span class="subxComment"># var x</span> +<span id="L14105" class="LineNr">14105 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" {"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/9"</span>) +<span id="L14106" class="LineNr">14106 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:loop:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/10"</span>) +<span id="L14107" class="LineNr">14107 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 68/push 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/11"</span>) <span class="subxComment"># var y</span> +<span id="L14108" class="LineNr">14108 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 8b/-> *(ebp+0xfffffff8) 0x00000000/r32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/12"</span>) +<span id="L14109" class="LineNr">14109 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/13"</span>) +<span id="L14110" class="LineNr">14110 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/14"</span>) +<span id="L14111" class="LineNr">14111 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/15"</span>) +<span id="L14112" class="LineNr">14112 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/16"</span>) +<span id="L14113" class="LineNr">14113 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000003:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/17"</span>) +<span id="L14114" class="LineNr">14114 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 81 0/subop/add %esp 0x00000004/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/18"</span>) +<span id="L14115" class="LineNr">14115 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/19"</span>) +<span id="L14116" class="LineNr">14116 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000002:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/20"</span>) +<span id="L14117" class="LineNr">14117 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c7 0/subop/copy %eax 0/imm32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14118" class="LineNr">14118 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" e9/jump $foo:0x00000001:break/disp32"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14119" class="LineNr">14119 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" }"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/21"</span>) +<span id="L14120" class="LineNr">14120 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"$foo:0x00000001:break:"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/22"</span>) +<span id="L14121" class="LineNr">14121 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" # . epilogue"</span> <span class="Constant">"F - test-convert-function-with-return-and-local-vars/23"</span>) +<span id="L14122" class="LineNr">14122 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 89/<- %esp 5/r32/ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/24"</span>) +<span id="L14123" class="LineNr">14123 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" 5d/pop-to-ebp"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/25"</span>) +<span id="L14124" class="LineNr">14124 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">" c3/return"</span> <span class="Constant">"F - <a href='mu.subx.html#L14065'>test-convert-function-with-return-and-local-vars</a>/26"</span>) +<span id="L14125" class="LineNr">14125 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14126" class="LineNr">14126 </span> 89/<- %esp 5/r32/ebp +<span id="L14127" class="LineNr">14127 </span> 5d/pop-to-ebp +<span id="L14128" class="LineNr">14128 </span> c3/return +<span id="L14129" class="LineNr">14129 </span> +<span id="L14130" class="LineNr">14130 </span><span class="subxTest">test-copy-object-with-no-inout</span>: +<span id="L14131" class="LineNr">14131 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14132" class="LineNr">14132 </span> 55/push-ebp +<span id="L14133" class="LineNr">14133 </span> 89/<- %ebp 4/r32/esp +<span id="L14134" class="LineNr">14134 </span> <span class="subxComment"># setup</span> +<span id="L14135" class="LineNr">14135 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14136" class="LineNr">14136 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14137" class="LineNr">14137 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14138" class="LineNr">14138 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14139" class="LineNr">14139 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14140" class="LineNr">14140 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14141" class="LineNr">14141 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14142" class="LineNr">14142 </span> 68/push 0/imm32 +<span id="L14143" class="LineNr">14143 </span> 68/push 0/imm32 +<span id="L14144" class="LineNr">14144 </span> 89/<- %edx 4/r32/esp +<span id="L14145" class="LineNr">14145 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14146" class="LineNr">14146 </span> <span class="subxComment">#</span> +<span id="L14147" class="LineNr">14147 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14148" class="LineNr">14148 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object\n"</span>) +<span id="L14149" class="LineNr">14149 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14150" class="LineNr">14150 </span> <span class="subxComment"># convert</span> +<span id="L14151" class="LineNr">14151 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14152" class="LineNr">14152 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14153" class="LineNr">14153 </span> <span class="subxComment"># restore ed</span> +<span id="L14154" class="LineNr">14154 </span> 89/<- %edx 4/r32/esp +<span id="L14155" class="LineNr">14155 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14156" class="LineNr">14156 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14157" class="Folded">14157 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14163" class="LineNr">14163 </span> <span class="subxComment"># check output</span> +<span id="L14164" class="LineNr">14164 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14130'>test-copy-object-with-no-inout</a>: output should be empty"</span>) +<span id="L14165" class="LineNr">14165 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14130'>test-copy-object-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14166" class="LineNr">14166 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14167" class="LineNr">14167 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14130'>test-copy-object-with-no-inout</a>: exit status"</span>) +<span id="L14168" class="LineNr">14168 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14169" class="LineNr">14169 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14170" class="LineNr">14170 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14171" class="LineNr">14171 </span> 5d/pop-to-ebp +<span id="L14172" class="LineNr">14172 </span> c3/return +<span id="L14173" class="LineNr">14173 </span> +<span id="L14174" class="LineNr">14174 </span><span class="subxTest">test-copy-object-with-no-source</span>: +<span id="L14175" class="LineNr">14175 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14176" class="LineNr">14176 </span> 55/push-ebp +<span id="L14177" class="LineNr">14177 </span> 89/<- %ebp 4/r32/esp +<span id="L14178" class="LineNr">14178 </span> <span class="subxComment"># setup</span> +<span id="L14179" class="LineNr">14179 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14180" class="LineNr">14180 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14181" class="LineNr">14181 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14182" class="LineNr">14182 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14183" class="LineNr">14183 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14184" class="LineNr">14184 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14185" class="LineNr">14185 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14186" class="LineNr">14186 </span> 68/push 0/imm32 +<span id="L14187" class="LineNr">14187 </span> 68/push 0/imm32 +<span id="L14188" class="LineNr">14188 </span> 89/<- %edx 4/r32/esp +<span id="L14189" class="LineNr">14189 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14190" class="LineNr">14190 </span> <span class="subxComment">#</span> +<span id="L14191" class="LineNr">14191 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14192" class="LineNr">14192 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L14193" class="LineNr">14193 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x\n"</span>) +<span id="L14194" class="LineNr">14194 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14195" class="LineNr">14195 </span> <span class="subxComment"># convert</span> +<span id="L14196" class="LineNr">14196 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14197" class="LineNr">14197 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14198" class="LineNr">14198 </span> <span class="subxComment"># restore ed</span> +<span id="L14199" class="LineNr">14199 </span> 89/<- %edx 4/r32/esp +<span id="L14200" class="LineNr">14200 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14201" class="LineNr">14201 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14202" class="Folded">14202 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14208" class="LineNr">14208 </span> <span class="subxComment"># check output</span> +<span id="L14209" class="LineNr">14209 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14174'>test-copy-object-with-no-source</a>: output should be empty"</span>) +<span id="L14210" class="LineNr">14210 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14174'>test-copy-object-with-no-source</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14211" class="LineNr">14211 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14212" class="LineNr">14212 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14174'>test-copy-object-with-no-source</a>: exit status"</span>) +<span id="L14213" class="LineNr">14213 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14214" class="LineNr">14214 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14215" class="LineNr">14215 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14216" class="LineNr">14216 </span> 5d/pop-to-ebp +<span id="L14217" class="LineNr">14217 </span> c3/return +<span id="L14218" class="LineNr">14218 </span> +<span id="L14219" class="LineNr">14219 </span><span class="subxTest">test-copy-object-with-too-many-inouts</span>: +<span id="L14220" class="LineNr">14220 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14221" class="LineNr">14221 </span> 55/push-ebp +<span id="L14222" class="LineNr">14222 </span> 89/<- %ebp 4/r32/esp +<span id="L14223" class="LineNr">14223 </span> <span class="subxComment"># setup</span> +<span id="L14224" class="LineNr">14224 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14225" class="LineNr">14225 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14226" class="LineNr">14226 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14227" class="LineNr">14227 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14228" class="LineNr">14228 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14229" class="LineNr">14229 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14230" class="LineNr">14230 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14231" class="LineNr">14231 </span> 68/push 0/imm32 +<span id="L14232" class="LineNr">14232 </span> 68/push 0/imm32 +<span id="L14233" class="LineNr">14233 </span> 89/<- %edx 4/r32/esp +<span id="L14234" class="LineNr">14234 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14235" class="LineNr">14235 </span> <span class="subxComment">#</span> +<span id="L14236" class="LineNr">14236 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14237" class="LineNr">14237 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr boolean)\n"</span>) +<span id="L14238" class="LineNr">14238 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object x, x, x\n"</span>) +<span id="L14239" class="LineNr">14239 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14240" class="LineNr">14240 </span> <span class="subxComment"># convert</span> +<span id="L14241" class="LineNr">14241 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14242" class="LineNr">14242 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14243" class="LineNr">14243 </span> <span class="subxComment"># restore ed</span> +<span id="L14244" class="LineNr">14244 </span> 89/<- %edx 4/r32/esp +<span id="L14245" class="LineNr">14245 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14246" class="LineNr">14246 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14247" class="Folded">14247 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14253" class="LineNr">14253 </span> <span class="subxComment"># check output</span> +<span id="L14254" class="LineNr">14254 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14219'>test-copy-object-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14255" class="LineNr">14255 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14219'>test-copy-object-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14256" class="LineNr">14256 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14257" class="LineNr">14257 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14219'>test-copy-object-with-too-many-inouts</a>: exit status"</span>) +<span id="L14258" class="LineNr">14258 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14259" class="LineNr">14259 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14260" class="LineNr">14260 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14261" class="LineNr">14261 </span> 5d/pop-to-ebp +<span id="L14262" class="LineNr">14262 </span> c3/return +<span id="L14263" class="LineNr">14263 </span> +<span id="L14264" class="LineNr">14264 </span><span class="subxTest">test-copy-object-with-output</span>: +<span id="L14265" class="LineNr">14265 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14266" class="LineNr">14266 </span> 55/push-ebp +<span id="L14267" class="LineNr">14267 </span> 89/<- %ebp 4/r32/esp +<span id="L14268" class="LineNr">14268 </span> <span class="subxComment"># setup</span> +<span id="L14269" class="LineNr">14269 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14270" class="LineNr">14270 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14271" class="LineNr">14271 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14272" class="LineNr">14272 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14273" class="LineNr">14273 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14274" class="LineNr">14274 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14275" class="LineNr">14275 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14276" class="LineNr">14276 </span> 68/push 0/imm32 +<span id="L14277" class="LineNr">14277 </span> 68/push 0/imm32 +<span id="L14278" class="LineNr">14278 </span> 89/<- %edx 4/r32/esp +<span id="L14279" class="LineNr">14279 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14280" class="LineNr">14280 </span> <span class="subxComment">#</span> +<span id="L14281" class="LineNr">14281 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14282" class="LineNr">14282 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr boolean) <- copy 0\n"</span>) +<span id="L14283" class="LineNr">14283 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr boolean) <- copy 0\n"</span>) +<span id="L14284" class="LineNr">14284 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- copy-object x, y\n"</span>) +<span id="L14285" class="LineNr">14285 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14286" class="LineNr">14286 </span> <span class="subxComment"># convert</span> +<span id="L14287" class="LineNr">14287 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14288" class="LineNr">14288 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14289" class="LineNr">14289 </span> <span class="subxComment"># restore ed</span> +<span id="L14290" class="LineNr">14290 </span> 89/<- %edx 4/r32/esp +<span id="L14291" class="LineNr">14291 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14292" class="LineNr">14292 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14293" class="Folded">14293 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14299" class="LineNr">14299 </span> <span class="subxComment"># check output</span> +<span id="L14300" class="LineNr">14300 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14264'>test-copy-object-with-output</a>: output should be empty"</span>) +<span id="L14301" class="LineNr">14301 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'copy-object' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14264'>test-copy-object-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14302" class="LineNr">14302 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14303" class="LineNr">14303 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14264'>test-copy-object-with-output</a>: exit status"</span>) +<span id="L14304" class="LineNr">14304 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14305" class="LineNr">14305 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14306" class="LineNr">14306 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14307" class="LineNr">14307 </span> 5d/pop-to-ebp +<span id="L14308" class="LineNr">14308 </span> c3/return +<span id="L14309" class="LineNr">14309 </span> +<span id="L14310" class="LineNr">14310 </span><span class="subxTest">test-copy-object-deref-address</span>: +<span id="L14311" class="LineNr">14311 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14312" class="LineNr">14312 </span> 55/push-ebp +<span id="L14313" class="LineNr">14313 </span> 89/<- %ebp 4/r32/esp +<span id="L14314" class="LineNr">14314 </span> <span class="subxComment"># setup</span> +<span id="L14315" class="LineNr">14315 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14316" class="LineNr">14316 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14317" class="LineNr">14317 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14318" class="LineNr">14318 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14319" class="LineNr">14319 </span> <span class="subxComment">#</span> +<span id="L14320" class="LineNr">14320 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14321" class="LineNr">14321 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L14322" class="LineNr">14322 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr int) <- copy 0\n"</span>) +<span id="L14323" class="LineNr">14323 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object *y, x\n"</span>) +<span id="L14324" class="LineNr">14324 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14325" class="LineNr">14325 </span> <span class="subxComment"># convert</span> +<span id="L14326" class="LineNr">14326 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14327" class="LineNr">14327 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14328" class="LineNr">14328 </span> <span class="subxComment"># no errors</span> +<span id="L14329" class="LineNr">14329 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14330" class="LineNr">14330 </span> 5d/pop-to-ebp +<span id="L14331" class="LineNr">14331 </span> c3/return +<span id="L14332" class="LineNr">14332 </span> +<span id="L14333" class="LineNr">14333 </span><span class="subxTest">test-copy-object-non-addr</span>: +<span id="L14334" class="LineNr">14334 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14335" class="LineNr">14335 </span> 55/push-ebp +<span id="L14336" class="LineNr">14336 </span> 89/<- %ebp 4/r32/esp +<span id="L14337" class="LineNr">14337 </span> <span class="subxComment"># setup</span> +<span id="L14338" class="LineNr">14338 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14339" class="LineNr">14339 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14340" class="LineNr">14340 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14341" class="LineNr">14341 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14342" class="LineNr">14342 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14343" class="LineNr">14343 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14344" class="LineNr">14344 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14345" class="LineNr">14345 </span> 68/push 0/imm32 +<span id="L14346" class="LineNr">14346 </span> 68/push 0/imm32 +<span id="L14347" class="LineNr">14347 </span> 89/<- %edx 4/r32/esp +<span id="L14348" class="LineNr">14348 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14349" class="LineNr">14349 </span> <span class="subxComment">#</span> +<span id="L14350" class="LineNr">14350 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14351" class="LineNr">14351 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L14352" class="LineNr">14352 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L14353" class="LineNr">14353 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) +<span id="L14354" class="LineNr">14354 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14355" class="LineNr">14355 </span> <span class="subxComment"># convert</span> +<span id="L14356" class="LineNr">14356 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14357" class="LineNr">14357 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14358" class="LineNr">14358 </span> <span class="subxComment"># restore ed</span> +<span id="L14359" class="LineNr">14359 </span> 89/<- %edx 4/r32/esp +<span id="L14360" class="LineNr">14360 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14361" class="LineNr">14361 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14362" class="Folded">14362 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14368" class="LineNr">14368 </span> <span class="subxComment"># check output</span> +<span id="L14369" class="LineNr">14369 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14333'>test-copy-object-non-addr</a>: output should be empty"</span>) +<span id="L14370" class="LineNr">14370 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14333'>test-copy-object-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14371" class="LineNr">14371 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14372" class="LineNr">14372 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14333'>test-copy-object-non-addr</a>: exit status"</span>) +<span id="L14373" class="LineNr">14373 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14374" class="LineNr">14374 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14375" class="LineNr">14375 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14376" class="LineNr">14376 </span> 5d/pop-to-ebp +<span id="L14377" class="LineNr">14377 </span> c3/return +<span id="L14378" class="LineNr">14378 </span> +<span id="L14379" class="LineNr">14379 </span><span class="subxTest">test-copy-object-non-equal</span>: +<span id="L14380" class="LineNr">14380 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14381" class="LineNr">14381 </span> 55/push-ebp +<span id="L14382" class="LineNr">14382 </span> 89/<- %ebp 4/r32/esp +<span id="L14383" class="LineNr">14383 </span> <span class="subxComment"># setup</span> +<span id="L14384" class="LineNr">14384 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14385" class="LineNr">14385 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14386" class="LineNr">14386 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14387" class="LineNr">14387 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14388" class="LineNr">14388 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14389" class="LineNr">14389 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14390" class="LineNr">14390 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14391" class="LineNr">14391 </span> 68/push 0/imm32 +<span id="L14392" class="LineNr">14392 </span> 68/push 0/imm32 +<span id="L14393" class="LineNr">14393 </span> 89/<- %edx 4/r32/esp +<span id="L14394" class="LineNr">14394 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14395" class="LineNr">14395 </span> <span class="subxComment">#</span> +<span id="L14396" class="LineNr">14396 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14397" class="LineNr">14397 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr int)\n"</span>) +<span id="L14398" class="LineNr">14398 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (addr boolean)\n"</span>) +<span id="L14399" class="LineNr">14399 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" copy-object y, x\n"</span>) +<span id="L14400" class="LineNr">14400 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14401" class="LineNr">14401 </span> <span class="subxComment"># convert</span> +<span id="L14402" class="LineNr">14402 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14403" class="LineNr">14403 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14404" class="LineNr">14404 </span> <span class="subxComment"># restore ed</span> +<span id="L14405" class="LineNr">14405 </span> 89/<- %edx 4/r32/esp +<span id="L14406" class="LineNr">14406 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14407" class="LineNr">14407 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14408" class="Folded">14408 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14414" class="LineNr">14414 </span> <span class="subxComment"># check output</span> +<span id="L14415" class="LineNr">14415 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14379'>test-copy-object-non-equal</a>: output should be empty"</span>) +<span id="L14416" class="LineNr">14416 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt copy-object: two inouts with identical addr types expected"</span> <span class="Constant">"F - <a href='mu.subx.html#L14379'>test-copy-object-non-equal</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14417" class="LineNr">14417 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14418" class="LineNr">14418 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14379'>test-copy-object-non-equal</a>: exit status"</span>) +<span id="L14419" class="LineNr">14419 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14420" class="LineNr">14420 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14421" class="LineNr">14421 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14422" class="LineNr">14422 </span> 5d/pop-to-ebp +<span id="L14423" class="LineNr">14423 </span> c3/return +<span id="L14424" class="LineNr">14424 </span> +<span id="L14425" class="LineNr">14425 </span><span class="subxTest">test-allocate-with-no-inout</span>: +<span id="L14426" class="LineNr">14426 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14427" class="LineNr">14427 </span> 55/push-ebp +<span id="L14428" class="LineNr">14428 </span> 89/<- %ebp 4/r32/esp +<span id="L14429" class="LineNr">14429 </span> <span class="subxComment"># setup</span> +<span id="L14430" class="LineNr">14430 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14431" class="LineNr">14431 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14432" class="LineNr">14432 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14433" class="LineNr">14433 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14434" class="LineNr">14434 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14435" class="LineNr">14435 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14436" class="LineNr">14436 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14437" class="LineNr">14437 </span> 68/push 0/imm32 +<span id="L14438" class="LineNr">14438 </span> 68/push 0/imm32 +<span id="L14439" class="LineNr">14439 </span> 89/<- %edx 4/r32/esp +<span id="L14440" class="LineNr">14440 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14441" class="LineNr">14441 </span> <span class="subxComment">#</span> +<span id="L14442" class="LineNr">14442 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14443" class="LineNr">14443 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" allocate\n"</span>) +<span id="L14444" class="LineNr">14444 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14445" class="LineNr">14445 </span> <span class="subxComment"># convert</span> +<span id="L14446" class="LineNr">14446 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14447" class="LineNr">14447 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14448" class="LineNr">14448 </span> <span class="subxComment"># restore ed</span> +<span id="L14449" class="LineNr">14449 </span> 89/<- %edx 4/r32/esp +<span id="L14450" class="LineNr">14450 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14451" class="LineNr">14451 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14452" class="Folded">14452 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14458" class="LineNr">14458 </span> <span class="subxComment"># check output</span> +<span id="L14459" class="LineNr">14459 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14425'>test-allocate-with-no-inout</a>: output should be empty"</span>) +<span id="L14460" class="LineNr">14460 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14425'>test-allocate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14461" class="LineNr">14461 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14462" class="LineNr">14462 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14425'>test-allocate-with-no-inout</a>: exit status"</span>) +<span id="L14463" class="LineNr">14463 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14464" class="LineNr">14464 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14465" class="LineNr">14465 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14466" class="LineNr">14466 </span> 5d/pop-to-ebp +<span id="L14467" class="LineNr">14467 </span> c3/return +<span id="L14468" class="LineNr">14468 </span> +<span id="L14469" class="LineNr">14469 </span><span class="subxTest">test-allocate-with-too-many-inouts</span>: +<span id="L14470" class="LineNr">14470 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14471" class="LineNr">14471 </span> 55/push-ebp +<span id="L14472" class="LineNr">14472 </span> 89/<- %ebp 4/r32/esp +<span id="L14473" class="LineNr">14473 </span> <span class="subxComment"># setup</span> +<span id="L14474" class="LineNr">14474 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14475" class="LineNr">14475 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14476" class="LineNr">14476 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14477" class="LineNr">14477 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14478" class="LineNr">14478 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14479" class="LineNr">14479 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14480" class="LineNr">14480 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14481" class="LineNr">14481 </span> 68/push 0/imm32 +<span id="L14482" class="LineNr">14482 </span> 68/push 0/imm32 +<span id="L14483" class="LineNr">14483 </span> 89/<- %edx 4/r32/esp +<span id="L14484" class="LineNr">14484 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14485" class="LineNr">14485 </span> <span class="subxComment">#</span> +<span id="L14486" class="LineNr">14486 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14487" class="LineNr">14487 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) +<span id="L14488" class="LineNr">14488 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> x, 0\n"</span>) +<span id="L14489" class="LineNr">14489 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14490" class="LineNr">14490 </span> <span class="subxComment"># convert</span> +<span id="L14491" class="LineNr">14491 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14492" class="LineNr">14492 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14493" class="LineNr">14493 </span> <span class="subxComment"># restore ed</span> +<span id="L14494" class="LineNr">14494 </span> 89/<- %edx 4/r32/esp +<span id="L14495" class="LineNr">14495 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14496" class="LineNr">14496 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14497" class="Folded">14497 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14503" class="LineNr">14503 </span> <span class="subxComment"># check output</span> +<span id="L14504" class="LineNr">14504 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14469'>test-allocate-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14505" class="LineNr">14505 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must have a single inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L14469'>test-allocate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14506" class="LineNr">14506 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14507" class="LineNr">14507 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14469'>test-allocate-with-too-many-inouts</a>: exit status"</span>) +<span id="L14508" class="LineNr">14508 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14509" class="LineNr">14509 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14510" class="LineNr">14510 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14511" class="LineNr">14511 </span> 5d/pop-to-ebp +<span id="L14512" class="LineNr">14512 </span> c3/return +<span id="L14513" class="LineNr">14513 </span> +<span id="L14514" class="LineNr">14514 </span><span class="subxTest">test-allocate-with-output</span>: +<span id="L14515" class="LineNr">14515 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14516" class="LineNr">14516 </span> 55/push-ebp +<span id="L14517" class="LineNr">14517 </span> 89/<- %ebp 4/r32/esp +<span id="L14518" class="LineNr">14518 </span> <span class="subxComment"># setup</span> +<span id="L14519" class="LineNr">14519 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14520" class="LineNr">14520 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14521" class="LineNr">14521 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14522" class="LineNr">14522 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14523" class="LineNr">14523 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14524" class="LineNr">14524 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14525" class="LineNr">14525 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14526" class="LineNr">14526 </span> 68/push 0/imm32 +<span id="L14527" class="LineNr">14527 </span> 68/push 0/imm32 +<span id="L14528" class="LineNr">14528 </span> 89/<- %edx 4/r32/esp +<span id="L14529" class="LineNr">14529 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14530" class="LineNr">14530 </span> <span class="subxComment">#</span> +<span id="L14531" class="LineNr">14531 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14532" class="LineNr">14532 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L14533" class="LineNr">14533 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L14534" class="LineNr">14534 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14535" class="LineNr">14535 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14536" class="LineNr">14536 </span> <span class="subxComment"># convert</span> +<span id="L14537" class="LineNr">14537 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14538" class="LineNr">14538 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14539" class="LineNr">14539 </span> <span class="subxComment"># restore ed</span> +<span id="L14540" class="LineNr">14540 </span> 89/<- %edx 4/r32/esp +<span id="L14541" class="LineNr">14541 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14542" class="LineNr">14542 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14543" class="Folded">14543 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14549" class="LineNr">14549 </span> <span class="subxComment"># check output</span> +<span id="L14550" class="LineNr">14550 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14514'>test-allocate-with-output</a>: output should be empty"</span>) +<span id="L14551" class="LineNr">14551 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'allocate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14514'>test-allocate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14552" class="LineNr">14552 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14553" class="LineNr">14553 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14514'>test-allocate-with-output</a>: exit status"</span>) +<span id="L14554" class="LineNr">14554 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14555" class="LineNr">14555 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14556" class="LineNr">14556 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14557" class="LineNr">14557 </span> 5d/pop-to-ebp +<span id="L14558" class="LineNr">14558 </span> c3/return +<span id="L14559" class="LineNr">14559 </span> +<span id="L14560" class="LineNr">14560 </span><span class="subxTest">test-allocate-non-addr</span>: +<span id="L14561" class="LineNr">14561 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14562" class="LineNr">14562 </span> 55/push-ebp +<span id="L14563" class="LineNr">14563 </span> 89/<- %ebp 4/r32/esp +<span id="L14564" class="LineNr">14564 </span> <span class="subxComment"># setup</span> +<span id="L14565" class="LineNr">14565 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14566" class="LineNr">14566 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14567" class="LineNr">14567 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14568" class="LineNr">14568 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14569" class="LineNr">14569 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14570" class="LineNr">14570 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14571" class="LineNr">14571 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14572" class="LineNr">14572 </span> 68/push 0/imm32 +<span id="L14573" class="LineNr">14573 </span> 68/push 0/imm32 +<span id="L14574" class="LineNr">14574 </span> 89/<- %edx 4/r32/esp +<span id="L14575" class="LineNr">14575 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14576" class="LineNr">14576 </span> <span class="subxComment">#</span> +<span id="L14577" class="LineNr">14577 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14578" class="LineNr">14578 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) +<span id="L14579" class="LineNr">14579 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14580" class="LineNr">14580 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14581" class="LineNr">14581 </span> <span class="subxComment"># convert</span> +<span id="L14582" class="LineNr">14582 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14583" class="LineNr">14583 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14584" class="LineNr">14584 </span> <span class="subxComment"># restore ed</span> +<span id="L14585" class="LineNr">14585 </span> 89/<- %edx 4/r32/esp +<span id="L14586" class="LineNr">14586 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14587" class="LineNr">14587 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14588" class="Folded">14588 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14594" class="LineNr">14594 </span> <span class="subxComment"># check output</span> +<span id="L14595" class="LineNr">14595 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14560'>test-allocate-non-addr</a>: output must be empty"</span>) +<span id="L14596" class="LineNr">14596 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14560'>test-allocate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14597" class="LineNr">14597 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14598" class="LineNr">14598 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14560'>test-allocate-non-addr</a>: exit status"</span>) +<span id="L14599" class="LineNr">14599 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14600" class="LineNr">14600 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14601" class="LineNr">14601 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14602" class="LineNr">14602 </span> 5d/pop-to-ebp +<span id="L14603" class="LineNr">14603 </span> c3/return +<span id="L14604" class="LineNr">14604 </span> +<span id="L14605" class="LineNr">14605 </span><span class="subxTest">test-allocate-non-addr-handle</span>: +<span id="L14606" class="LineNr">14606 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14607" class="LineNr">14607 </span> 55/push-ebp +<span id="L14608" class="LineNr">14608 </span> 89/<- %ebp 4/r32/esp +<span id="L14609" class="LineNr">14609 </span> <span class="subxComment"># setup</span> +<span id="L14610" class="LineNr">14610 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14611" class="LineNr">14611 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14612" class="LineNr">14612 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14613" class="LineNr">14613 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14614" class="LineNr">14614 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14615" class="LineNr">14615 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14616" class="LineNr">14616 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14617" class="LineNr">14617 </span> 68/push 0/imm32 +<span id="L14618" class="LineNr">14618 </span> 68/push 0/imm32 +<span id="L14619" class="LineNr">14619 </span> 89/<- %edx 4/r32/esp +<span id="L14620" class="LineNr">14620 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14621" class="LineNr">14621 </span> <span class="subxComment">#</span> +<span id="L14622" class="LineNr">14622 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14623" class="LineNr">14623 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L14624" class="LineNr">14624 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> y\n"</span>) +<span id="L14625" class="LineNr">14625 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14626" class="LineNr">14626 </span> <span class="subxComment"># convert</span> +<span id="L14627" class="LineNr">14627 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14628" class="LineNr">14628 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14629" class="LineNr">14629 </span> <span class="subxComment"># restore ed</span> +<span id="L14630" class="LineNr">14630 </span> 89/<- %edx 4/r32/esp +<span id="L14631" class="LineNr">14631 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14632" class="LineNr">14632 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14633" class="Folded">14633 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14639" class="LineNr">14639 </span> <span class="subxComment"># check output</span> +<span id="L14640" class="LineNr">14640 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14605'>test-allocate-non-addr-handle</a>: output should be empty"</span>) +<span id="L14641" class="LineNr">14641 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout 'y' must have type (addr handle ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14605'>test-allocate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14642" class="LineNr">14642 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14643" class="LineNr">14643 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14605'>test-allocate-non-addr-handle</a>: exit status"</span>) +<span id="L14644" class="LineNr">14644 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14645" class="LineNr">14645 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14646" class="LineNr">14646 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14647" class="LineNr">14647 </span> 5d/pop-to-ebp +<span id="L14648" class="LineNr">14648 </span> c3/return +<span id="L14649" class="LineNr">14649 </span> +<span id="L14650" class="LineNr">14650 </span><span class="subxTest">test-allocate-deref-address</span>: +<span id="L14651" class="LineNr">14651 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14652" class="LineNr">14652 </span> 55/push-ebp +<span id="L14653" class="LineNr">14653 </span> 89/<- %ebp 4/r32/esp +<span id="L14654" class="LineNr">14654 </span> <span class="subxComment"># setup</span> +<span id="L14655" class="LineNr">14655 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14656" class="LineNr">14656 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14657" class="LineNr">14657 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14658" class="LineNr">14658 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14659" class="LineNr">14659 </span> <span class="subxComment">#</span> +<span id="L14660" class="LineNr">14660 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14661" class="LineNr">14661 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle int) <- copy 0\n"</span>) +<span id="L14662" class="LineNr">14662 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" <a href='120allocate.subx.html#L66'>allocate</a> *y\n"</span>) +<span id="L14663" class="LineNr">14663 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14664" class="LineNr">14664 </span> <span class="subxComment"># convert</span> +<span id="L14665" class="LineNr">14665 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14666" class="LineNr">14666 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14667" class="LineNr">14667 </span> <span class="subxComment"># no errors</span> +<span id="L14668" class="LineNr">14668 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14669" class="LineNr">14669 </span> 5d/pop-to-ebp +<span id="L14670" class="LineNr">14670 </span> c3/return +<span id="L14671" class="LineNr">14671 </span> +<span id="L14672" class="LineNr">14672 </span><span class="subxTest">test-populate-with-no-inout</span>: +<span id="L14673" class="LineNr">14673 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14674" class="LineNr">14674 </span> 55/push-ebp +<span id="L14675" class="LineNr">14675 </span> 89/<- %ebp 4/r32/esp +<span id="L14676" class="LineNr">14676 </span> <span class="subxComment"># setup</span> +<span id="L14677" class="LineNr">14677 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14678" class="LineNr">14678 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14679" class="LineNr">14679 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14680" class="LineNr">14680 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14681" class="LineNr">14681 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14682" class="LineNr">14682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14683" class="LineNr">14683 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14684" class="LineNr">14684 </span> 68/push 0/imm32 +<span id="L14685" class="LineNr">14685 </span> 68/push 0/imm32 +<span id="L14686" class="LineNr">14686 </span> 89/<- %edx 4/r32/esp +<span id="L14687" class="LineNr">14687 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14688" class="LineNr">14688 </span> <span class="subxComment">#</span> +<span id="L14689" class="LineNr">14689 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14690" class="LineNr">14690 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate\n"</span>) +<span id="L14691" class="LineNr">14691 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14692" class="LineNr">14692 </span> <span class="subxComment"># convert</span> +<span id="L14693" class="LineNr">14693 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14694" class="LineNr">14694 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14695" class="LineNr">14695 </span> <span class="subxComment"># restore ed</span> +<span id="L14696" class="LineNr">14696 </span> 89/<- %edx 4/r32/esp +<span id="L14697" class="LineNr">14697 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14698" class="LineNr">14698 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14699" class="Folded">14699 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14705" class="LineNr">14705 </span> <span class="subxComment"># check output</span> +<span id="L14706" class="LineNr">14706 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14672'>test-populate-with-no-inout</a>: output should be empty"</span>) +<span id="L14707" class="LineNr">14707 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14672'>test-populate-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14708" class="LineNr">14708 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14709" class="LineNr">14709 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14672'>test-populate-with-no-inout</a>: exit status"</span>) +<span id="L14710" class="LineNr">14710 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14711" class="LineNr">14711 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14712" class="LineNr">14712 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14713" class="LineNr">14713 </span> 5d/pop-to-ebp +<span id="L14714" class="LineNr">14714 </span> c3/return +<span id="L14715" class="LineNr">14715 </span> +<span id="L14716" class="LineNr">14716 </span><span class="subxTest">test-populate-with-too-many-inouts</span>: +<span id="L14717" class="LineNr">14717 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14718" class="LineNr">14718 </span> 55/push-ebp +<span id="L14719" class="LineNr">14719 </span> 89/<- %ebp 4/r32/esp +<span id="L14720" class="LineNr">14720 </span> <span class="subxComment"># setup</span> +<span id="L14721" class="LineNr">14721 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14722" class="LineNr">14722 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14723" class="LineNr">14723 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14724" class="LineNr">14724 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14725" class="LineNr">14725 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14726" class="LineNr">14726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14727" class="LineNr">14727 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14728" class="LineNr">14728 </span> 68/push 0/imm32 +<span id="L14729" class="LineNr">14729 </span> 68/push 0/imm32 +<span id="L14730" class="LineNr">14730 </span> 89/<- %edx 4/r32/esp +<span id="L14731" class="LineNr">14731 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14732" class="LineNr">14732 </span> <span class="subxComment">#</span> +<span id="L14733" class="LineNr">14733 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14734" class="LineNr">14734 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) +<span id="L14735" class="LineNr">14735 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate x, 3, 0\n"</span>) +<span id="L14736" class="LineNr">14736 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14737" class="LineNr">14737 </span> <span class="subxComment"># convert</span> +<span id="L14738" class="LineNr">14738 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14739" class="LineNr">14739 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14740" class="LineNr">14740 </span> <span class="subxComment"># restore ed</span> +<span id="L14741" class="LineNr">14741 </span> 89/<- %edx 4/r32/esp +<span id="L14742" class="LineNr">14742 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14743" class="LineNr">14743 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14744" class="Folded">14744 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14750" class="LineNr">14750 </span> <span class="subxComment"># check output</span> +<span id="L14751" class="LineNr">14751 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14716'>test-populate-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L14752" class="LineNr">14752 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14716'>test-populate-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14753" class="LineNr">14753 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14754" class="LineNr">14754 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14716'>test-populate-with-too-many-inouts</a>: exit status"</span>) +<span id="L14755" class="LineNr">14755 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14756" class="LineNr">14756 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14757" class="LineNr">14757 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14758" class="LineNr">14758 </span> 5d/pop-to-ebp +<span id="L14759" class="LineNr">14759 </span> c3/return +<span id="L14760" class="LineNr">14760 </span> +<span id="L14761" class="LineNr">14761 </span><span class="subxTest">test-populate-with-output</span>: +<span id="L14762" class="LineNr">14762 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14763" class="LineNr">14763 </span> 55/push-ebp +<span id="L14764" class="LineNr">14764 </span> 89/<- %ebp 4/r32/esp +<span id="L14765" class="LineNr">14765 </span> <span class="subxComment"># setup</span> +<span id="L14766" class="LineNr">14766 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14767" class="LineNr">14767 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14768" class="LineNr">14768 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14769" class="LineNr">14769 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14770" class="LineNr">14770 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14771" class="LineNr">14771 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14772" class="LineNr">14772 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14773" class="LineNr">14773 </span> 68/push 0/imm32 +<span id="L14774" class="LineNr">14774 </span> 68/push 0/imm32 +<span id="L14775" class="LineNr">14775 </span> 89/<- %edx 4/r32/esp +<span id="L14776" class="LineNr">14776 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14777" class="LineNr">14777 </span> <span class="subxComment">#</span> +<span id="L14778" class="LineNr">14778 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14779" class="LineNr">14779 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L14780" class="LineNr">14780 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L14781" class="LineNr">14781 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate y\n"</span>) +<span id="L14782" class="LineNr">14782 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14783" class="LineNr">14783 </span> <span class="subxComment"># convert</span> +<span id="L14784" class="LineNr">14784 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14785" class="LineNr">14785 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14786" class="LineNr">14786 </span> <span class="subxComment"># restore ed</span> +<span id="L14787" class="LineNr">14787 </span> 89/<- %edx 4/r32/esp +<span id="L14788" class="LineNr">14788 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14789" class="LineNr">14789 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14790" class="Folded">14790 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14796" class="LineNr">14796 </span> <span class="subxComment"># check output</span> +<span id="L14797" class="LineNr">14797 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14761'>test-populate-with-output</a>: output should be empty"</span>) +<span id="L14798" class="LineNr">14798 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L14761'>test-populate-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14799" class="LineNr">14799 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14800" class="LineNr">14800 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14761'>test-populate-with-output</a>: exit status"</span>) +<span id="L14801" class="LineNr">14801 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14802" class="LineNr">14802 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14803" class="LineNr">14803 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14804" class="LineNr">14804 </span> 5d/pop-to-ebp +<span id="L14805" class="LineNr">14805 </span> c3/return +<span id="L14806" class="LineNr">14806 </span> +<span id="L14807" class="LineNr">14807 </span><span class="subxTest">test-populate-non-addr</span>: +<span id="L14808" class="LineNr">14808 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14809" class="LineNr">14809 </span> 55/push-ebp +<span id="L14810" class="LineNr">14810 </span> 89/<- %ebp 4/r32/esp +<span id="L14811" class="LineNr">14811 </span> <span class="subxComment"># setup</span> +<span id="L14812" class="LineNr">14812 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14813" class="LineNr">14813 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14814" class="LineNr">14814 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14815" class="LineNr">14815 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14816" class="LineNr">14816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14817" class="LineNr">14817 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14818" class="LineNr">14818 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14819" class="LineNr">14819 </span> 68/push 0/imm32 +<span id="L14820" class="LineNr">14820 </span> 68/push 0/imm32 +<span id="L14821" class="LineNr">14821 </span> 89/<- %edx 4/r32/esp +<span id="L14822" class="LineNr">14822 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14823" class="LineNr">14823 </span> <span class="subxComment">#</span> +<span id="L14824" class="LineNr">14824 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14825" class="LineNr">14825 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) +<span id="L14826" class="LineNr">14826 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) +<span id="L14827" class="LineNr">14827 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14828" class="LineNr">14828 </span> <span class="subxComment"># convert</span> +<span id="L14829" class="LineNr">14829 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14830" class="LineNr">14830 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14831" class="LineNr">14831 </span> <span class="subxComment"># restore ed</span> +<span id="L14832" class="LineNr">14832 </span> 89/<- %edx 4/r32/esp +<span id="L14833" class="LineNr">14833 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14834" class="LineNr">14834 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14835" class="Folded">14835 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14841" class="LineNr">14841 </span> <span class="subxComment"># check output</span> +<span id="L14842" class="LineNr">14842 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14807'>test-populate-non-addr</a>: output must be empty"</span>) +<span id="L14843" class="LineNr">14843 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14807'>test-populate-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14844" class="LineNr">14844 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14845" class="LineNr">14845 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14807'>test-populate-non-addr</a>: exit status"</span>) +<span id="L14846" class="LineNr">14846 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14847" class="LineNr">14847 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14848" class="LineNr">14848 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14849" class="LineNr">14849 </span> 5d/pop-to-ebp +<span id="L14850" class="LineNr">14850 </span> c3/return +<span id="L14851" class="LineNr">14851 </span> +<span id="L14852" class="LineNr">14852 </span><span class="subxTest">test-populate-non-addr-handle</span>: +<span id="L14853" class="LineNr">14853 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14854" class="LineNr">14854 </span> 55/push-ebp +<span id="L14855" class="LineNr">14855 </span> 89/<- %ebp 4/r32/esp +<span id="L14856" class="LineNr">14856 </span> <span class="subxComment"># setup</span> +<span id="L14857" class="LineNr">14857 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14858" class="LineNr">14858 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14859" class="LineNr">14859 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14860" class="LineNr">14860 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14861" class="LineNr">14861 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14862" class="LineNr">14862 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14863" class="LineNr">14863 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14864" class="LineNr">14864 </span> 68/push 0/imm32 +<span id="L14865" class="LineNr">14865 </span> 68/push 0/imm32 +<span id="L14866" class="LineNr">14866 </span> 89/<- %edx 4/r32/esp +<span id="L14867" class="LineNr">14867 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14868" class="LineNr">14868 </span> <span class="subxComment">#</span> +<span id="L14869" class="LineNr">14869 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14870" class="LineNr">14870 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L14871" class="LineNr">14871 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) +<span id="L14872" class="LineNr">14872 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14873" class="LineNr">14873 </span> <span class="subxComment"># convert</span> +<span id="L14874" class="LineNr">14874 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14875" class="LineNr">14875 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14876" class="LineNr">14876 </span> <span class="subxComment"># restore ed</span> +<span id="L14877" class="LineNr">14877 </span> 89/<- %edx 4/r32/esp +<span id="L14878" class="LineNr">14878 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14879" class="LineNr">14879 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14880" class="Folded">14880 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14886" class="LineNr">14886 </span> <span class="subxComment"># check output</span> +<span id="L14887" class="LineNr">14887 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14852'>test-populate-non-addr-handle</a>: output should be empty"</span>) +<span id="L14888" class="LineNr">14888 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14852'>test-populate-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14889" class="LineNr">14889 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14890" class="LineNr">14890 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14852'>test-populate-non-addr-handle</a>: exit status"</span>) +<span id="L14891" class="LineNr">14891 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14892" class="LineNr">14892 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14893" class="LineNr">14893 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14894" class="LineNr">14894 </span> 5d/pop-to-ebp +<span id="L14895" class="LineNr">14895 </span> c3/return +<span id="L14896" class="LineNr">14896 </span> +<span id="L14897" class="LineNr">14897 </span><span class="subxTest">test-populate-non-addr-handle-array</span>: +<span id="L14898" class="LineNr">14898 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14899" class="LineNr">14899 </span> 55/push-ebp +<span id="L14900" class="LineNr">14900 </span> 89/<- %ebp 4/r32/esp +<span id="L14901" class="LineNr">14901 </span> <span class="subxComment"># setup</span> +<span id="L14902" class="LineNr">14902 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14903" class="LineNr">14903 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14904" class="LineNr">14904 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14905" class="LineNr">14905 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14906" class="LineNr">14906 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14907" class="LineNr">14907 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14908" class="LineNr">14908 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14909" class="LineNr">14909 </span> 68/push 0/imm32 +<span id="L14910" class="LineNr">14910 </span> 68/push 0/imm32 +<span id="L14911" class="LineNr">14911 </span> 89/<- %edx 4/r32/esp +<span id="L14912" class="LineNr">14912 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14913" class="LineNr">14913 </span> <span class="subxComment">#</span> +<span id="L14914" class="LineNr">14914 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14915" class="LineNr">14915 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L14916" class="LineNr">14916 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate y, 3\n"</span>) +<span id="L14917" class="LineNr">14917 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14918" class="LineNr">14918 </span> <span class="subxComment"># convert</span> +<span id="L14919" class="LineNr">14919 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14920" class="LineNr">14920 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14921" class="LineNr">14921 </span> <span class="subxComment"># restore ed</span> +<span id="L14922" class="LineNr">14922 </span> 89/<- %edx 4/r32/esp +<span id="L14923" class="LineNr">14923 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14924" class="LineNr">14924 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14925" class="Folded">14925 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14931" class="LineNr">14931 </span> <span class="subxComment"># check output</span> +<span id="L14932" class="LineNr">14932 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14897'>test-populate-non-addr-handle-array</a>: output should be empty"</span>) +<span id="L14933" class="LineNr">14933 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate: first inout 'y' must have type (addr handle array ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L14897'>test-populate-non-addr-handle-array</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L14934" class="LineNr">14934 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L14935" class="LineNr">14935 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14897'>test-populate-non-addr-handle-array</a>: exit status"</span>) +<span id="L14936" class="LineNr">14936 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L14937" class="LineNr">14937 </span> 81 0/subop/add %esp 8/imm32 +<span id="L14938" class="LineNr">14938 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14939" class="LineNr">14939 </span> 5d/pop-to-ebp +<span id="L14940" class="LineNr">14940 </span> c3/return +<span id="L14941" class="LineNr">14941 </span> +<span id="L14942" class="LineNr">14942 </span><span class="subxTest">test-populate-deref-address</span>: +<span id="L14943" class="LineNr">14943 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14944" class="LineNr">14944 </span> 55/push-ebp +<span id="L14945" class="LineNr">14945 </span> 89/<- %ebp 4/r32/esp +<span id="L14946" class="LineNr">14946 </span> <span class="subxComment"># setup</span> +<span id="L14947" class="LineNr">14947 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14948" class="LineNr">14948 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14949" class="LineNr">14949 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14950" class="LineNr">14950 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14951" class="LineNr">14951 </span> <span class="subxComment">#</span> +<span id="L14952" class="LineNr">14952 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14953" class="LineNr">14953 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle array int) <- copy 0\n"</span>) +<span id="L14954" class="LineNr">14954 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate *y, 3\n"</span>) +<span id="L14955" class="LineNr">14955 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14956" class="LineNr">14956 </span> <span class="subxComment"># convert</span> +<span id="L14957" class="LineNr">14957 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L14958" class="LineNr">14958 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14959" class="LineNr">14959 </span> <span class="subxComment"># no errors</span> +<span id="L14960" class="LineNr">14960 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L14961" class="LineNr">14961 </span> 5d/pop-to-ebp +<span id="L14962" class="LineNr">14962 </span> c3/return +<span id="L14963" class="LineNr">14963 </span> +<span id="L14964" class="LineNr">14964 </span><span class="subxTest">test-populate-stream-with-no-inout</span>: +<span id="L14965" class="LineNr">14965 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L14966" class="LineNr">14966 </span> 55/push-ebp +<span id="L14967" class="LineNr">14967 </span> 89/<- %ebp 4/r32/esp +<span id="L14968" class="LineNr">14968 </span> <span class="subxComment"># setup</span> +<span id="L14969" class="LineNr">14969 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L14970" class="LineNr">14970 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L14971" class="LineNr">14971 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L14972" class="LineNr">14972 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L14973" class="LineNr">14973 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L14974" class="LineNr">14974 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L14975" class="LineNr">14975 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L14976" class="LineNr">14976 </span> 68/push 0/imm32 +<span id="L14977" class="LineNr">14977 </span> 68/push 0/imm32 +<span id="L14978" class="LineNr">14978 </span> 89/<- %edx 4/r32/esp +<span id="L14979" class="LineNr">14979 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L14980" class="LineNr">14980 </span> <span class="subxComment">#</span> +<span id="L14981" class="LineNr">14981 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L14982" class="LineNr">14982 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream\n"</span>) +<span id="L14983" class="LineNr">14983 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L14984" class="LineNr">14984 </span> <span class="subxComment"># convert</span> +<span id="L14985" class="LineNr">14985 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L14986" class="LineNr">14986 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L14987" class="LineNr">14987 </span> <span class="subxComment"># restore ed</span> +<span id="L14988" class="LineNr">14988 </span> 89/<- %edx 4/r32/esp +<span id="L14989" class="LineNr">14989 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L14990" class="LineNr">14990 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L14991" class="Folded">14991 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L14997" class="LineNr">14997 </span> <span class="subxComment"># check output</span> +<span id="L14998" class="LineNr">14998 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L14964'>test-populate-stream-with-no-inout</a>: output should be empty"</span>) +<span id="L14999" class="LineNr">14999 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L14964'>test-populate-stream-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15000" class="LineNr">15000 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15001" class="LineNr">15001 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L14964'>test-populate-stream-with-no-inout</a>: exit status"</span>) +<span id="L15002" class="LineNr">15002 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15003" class="LineNr">15003 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15004" class="LineNr">15004 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15005" class="LineNr">15005 </span> 5d/pop-to-ebp +<span id="L15006" class="LineNr">15006 </span> c3/return +<span id="L15007" class="LineNr">15007 </span> +<span id="L15008" class="LineNr">15008 </span><span class="subxTest">test-populate-stream-with-too-many-inouts</span>: +<span id="L15009" class="LineNr">15009 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15010" class="LineNr">15010 </span> 55/push-ebp +<span id="L15011" class="LineNr">15011 </span> 89/<- %ebp 4/r32/esp +<span id="L15012" class="LineNr">15012 </span> <span class="subxComment"># setup</span> +<span id="L15013" class="LineNr">15013 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15014" class="LineNr">15014 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15015" class="LineNr">15015 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15016" class="LineNr">15016 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15017" class="LineNr">15017 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15018" class="LineNr">15018 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15019" class="LineNr">15019 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15020" class="LineNr">15020 </span> 68/push 0/imm32 +<span id="L15021" class="LineNr">15021 </span> 68/push 0/imm32 +<span id="L15022" class="LineNr">15022 </span> 89/<- %edx 4/r32/esp +<span id="L15023" class="LineNr">15023 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15024" class="LineNr">15024 </span> <span class="subxComment">#</span> +<span id="L15025" class="LineNr">15025 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15026" class="LineNr">15026 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: (addr handle int)\n"</span>) +<span id="L15027" class="LineNr">15027 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream x, 3, 0\n"</span>) +<span id="L15028" class="LineNr">15028 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15029" class="LineNr">15029 </span> <span class="subxComment"># convert</span> +<span id="L15030" class="LineNr">15030 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15031" class="LineNr">15031 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15032" class="LineNr">15032 </span> <span class="subxComment"># restore ed</span> +<span id="L15033" class="LineNr">15033 </span> 89/<- %edx 4/r32/esp +<span id="L15034" class="LineNr">15034 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15035" class="LineNr">15035 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15036" class="Folded">15036 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15042" class="LineNr">15042 </span> <span class="subxComment"># check output</span> +<span id="L15043" class="LineNr">15043 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15008'>test-populate-stream-with-too-many-inouts</a>: output should be empty"</span>) +<span id="L15044" class="LineNr">15044 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must have two inouts"</span> <span class="Constant">"F - <a href='mu.subx.html#L15008'>test-populate-stream-with-too-many-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15045" class="LineNr">15045 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15046" class="LineNr">15046 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15008'>test-populate-stream-with-too-many-inouts</a>: exit status"</span>) +<span id="L15047" class="LineNr">15047 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15048" class="LineNr">15048 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15049" class="LineNr">15049 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15050" class="LineNr">15050 </span> 5d/pop-to-ebp +<span id="L15051" class="LineNr">15051 </span> c3/return +<span id="L15052" class="LineNr">15052 </span> +<span id="L15053" class="LineNr">15053 </span><span class="subxTest">test-populate-stream-with-output</span>: +<span id="L15054" class="LineNr">15054 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15055" class="LineNr">15055 </span> 55/push-ebp +<span id="L15056" class="LineNr">15056 </span> 89/<- %ebp 4/r32/esp +<span id="L15057" class="LineNr">15057 </span> <span class="subxComment"># setup</span> +<span id="L15058" class="LineNr">15058 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15059" class="LineNr">15059 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15060" class="LineNr">15060 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15061" class="LineNr">15061 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15062" class="LineNr">15062 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15063" class="LineNr">15063 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15064" class="LineNr">15064 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15065" class="LineNr">15065 </span> 68/push 0/imm32 +<span id="L15066" class="LineNr">15066 </span> 68/push 0/imm32 +<span id="L15067" class="LineNr">15067 </span> 89/<- %edx 4/r32/esp +<span id="L15068" class="LineNr">15068 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15069" class="LineNr">15069 </span> <span class="subxComment">#</span> +<span id="L15070" class="LineNr">15070 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15071" class="LineNr">15071 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: boolean <- copy 0\n"</span>) +<span id="L15072" class="LineNr">15072 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L15073" class="LineNr">15073 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- populate-stream y\n"</span>) +<span id="L15074" class="LineNr">15074 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15075" class="LineNr">15075 </span> <span class="subxComment"># convert</span> +<span id="L15076" class="LineNr">15076 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15077" class="LineNr">15077 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15078" class="LineNr">15078 </span> <span class="subxComment"># restore ed</span> +<span id="L15079" class="LineNr">15079 </span> 89/<- %edx 4/r32/esp +<span id="L15080" class="LineNr">15080 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15081" class="LineNr">15081 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15082" class="Folded">15082 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15088" class="LineNr">15088 </span> <span class="subxComment"># check output</span> +<span id="L15089" class="LineNr">15089 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15053'>test-populate-stream-with-output</a>: output should be empty"</span>) +<span id="L15090" class="LineNr">15090 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'populate-stream' must not have any outputs"</span> <span class="Constant">"F - <a href='mu.subx.html#L15053'>test-populate-stream-with-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15091" class="LineNr">15091 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15092" class="LineNr">15092 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15053'>test-populate-stream-with-output</a>: exit status"</span>) +<span id="L15093" class="LineNr">15093 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15094" class="LineNr">15094 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15095" class="LineNr">15095 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15096" class="LineNr">15096 </span> 5d/pop-to-ebp +<span id="L15097" class="LineNr">15097 </span> c3/return +<span id="L15098" class="LineNr">15098 </span> +<span id="L15099" class="LineNr">15099 </span><span class="subxTest">test-populate-stream-non-addr</span>: +<span id="L15100" class="LineNr">15100 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15101" class="LineNr">15101 </span> 55/push-ebp +<span id="L15102" class="LineNr">15102 </span> 89/<- %ebp 4/r32/esp +<span id="L15103" class="LineNr">15103 </span> <span class="subxComment"># setup</span> +<span id="L15104" class="LineNr">15104 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15105" class="LineNr">15105 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15106" class="LineNr">15106 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15107" class="LineNr">15107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15108" class="LineNr">15108 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15109" class="LineNr">15109 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15110" class="LineNr">15110 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15111" class="LineNr">15111 </span> 68/push 0/imm32 +<span id="L15112" class="LineNr">15112 </span> 68/push 0/imm32 +<span id="L15113" class="LineNr">15113 </span> 89/<- %edx 4/r32/esp +<span id="L15114" class="LineNr">15114 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15115" class="LineNr">15115 </span> <span class="subxComment">#</span> +<span id="L15116" class="LineNr">15116 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15117" class="LineNr">15117 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: (handle int)\n"</span>) +<span id="L15118" class="LineNr">15118 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) +<span id="L15119" class="LineNr">15119 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15120" class="LineNr">15120 </span> <span class="subxComment"># convert</span> +<span id="L15121" class="LineNr">15121 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15122" class="LineNr">15122 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15123" class="LineNr">15123 </span> <span class="subxComment"># restore ed</span> +<span id="L15124" class="LineNr">15124 </span> 89/<- %edx 4/r32/esp +<span id="L15125" class="LineNr">15125 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15126" class="LineNr">15126 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15127" class="Folded">15127 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15133" class="LineNr">15133 </span> <span class="subxComment"># check output</span> +<span id="L15134" class="LineNr">15134 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15099'>test-populate-stream-non-addr</a>: output must be empty"</span>) +<span id="L15135" class="LineNr">15135 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15099'>test-populate-stream-non-addr</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15136" class="LineNr">15136 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15137" class="LineNr">15137 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15099'>test-populate-stream-non-addr</a>: exit status"</span>) +<span id="L15138" class="LineNr">15138 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15139" class="LineNr">15139 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15140" class="LineNr">15140 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15141" class="LineNr">15141 </span> 5d/pop-to-ebp +<span id="L15142" class="LineNr">15142 </span> c3/return +<span id="L15143" class="LineNr">15143 </span> +<span id="L15144" class="LineNr">15144 </span><span class="subxTest">test-populate-stream-non-addr-handle</span>: +<span id="L15145" class="LineNr">15145 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15146" class="LineNr">15146 </span> 55/push-ebp +<span id="L15147" class="LineNr">15147 </span> 89/<- %ebp 4/r32/esp +<span id="L15148" class="LineNr">15148 </span> <span class="subxComment"># setup</span> +<span id="L15149" class="LineNr">15149 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15150" class="LineNr">15150 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15151" class="LineNr">15151 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15152" class="LineNr">15152 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15153" class="LineNr">15153 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15154" class="LineNr">15154 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15155" class="LineNr">15155 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15156" class="LineNr">15156 </span> 68/push 0/imm32 +<span id="L15157" class="LineNr">15157 </span> 68/push 0/imm32 +<span id="L15158" class="LineNr">15158 </span> 89/<- %edx 4/r32/esp +<span id="L15159" class="LineNr">15159 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15160" class="LineNr">15160 </span> <span class="subxComment">#</span> +<span id="L15161" class="LineNr">15161 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15162" class="LineNr">15162 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr int) <- copy 0\n"</span>) +<span id="L15163" class="LineNr">15163 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) +<span id="L15164" class="LineNr">15164 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15165" class="LineNr">15165 </span> <span class="subxComment"># convert</span> +<span id="L15166" class="LineNr">15166 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15167" class="LineNr">15167 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15168" class="LineNr">15168 </span> <span class="subxComment"># restore ed</span> +<span id="L15169" class="LineNr">15169 </span> 89/<- %edx 4/r32/esp +<span id="L15170" class="LineNr">15170 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15171" class="LineNr">15171 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15172" class="Folded">15172 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15178" class="LineNr">15178 </span> <span class="subxComment"># check output</span> +<span id="L15179" class="LineNr">15179 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15144'>test-populate-stream-non-addr-handle</a>: output should be empty"</span>) +<span id="L15180" class="LineNr">15180 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15144'>test-populate-stream-non-addr-handle</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15181" class="LineNr">15181 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15182" class="LineNr">15182 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15144'>test-populate-stream-non-addr-handle</a>: exit status"</span>) +<span id="L15183" class="LineNr">15183 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15184" class="LineNr">15184 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15185" class="LineNr">15185 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15186" class="LineNr">15186 </span> 5d/pop-to-ebp +<span id="L15187" class="LineNr">15187 </span> c3/return +<span id="L15188" class="LineNr">15188 </span> +<span id="L15189" class="LineNr">15189 </span><span class="subxTest">test-populate-stream-non-addr-handle-stream</span>: +<span id="L15190" class="LineNr">15190 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15191" class="LineNr">15191 </span> 55/push-ebp +<span id="L15192" class="LineNr">15192 </span> 89/<- %ebp 4/r32/esp +<span id="L15193" class="LineNr">15193 </span> <span class="subxComment"># setup</span> +<span id="L15194" class="LineNr">15194 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15195" class="LineNr">15195 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15196" class="LineNr">15196 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15197" class="LineNr">15197 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15198" class="LineNr">15198 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15199" class="LineNr">15199 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15200" class="LineNr">15200 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15201" class="LineNr">15201 </span> 68/push 0/imm32 +<span id="L15202" class="LineNr">15202 </span> 68/push 0/imm32 +<span id="L15203" class="LineNr">15203 </span> 89/<- %edx 4/r32/esp +<span id="L15204" class="LineNr">15204 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15205" class="LineNr">15205 </span> <span class="subxComment">#</span> +<span id="L15206" class="LineNr">15206 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15207" class="LineNr">15207 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr handle int) <- copy 0\n"</span>) +<span id="L15208" class="LineNr">15208 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream y, 3\n"</span>) +<span id="L15209" class="LineNr">15209 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15210" class="LineNr">15210 </span> <span class="subxComment"># convert</span> +<span id="L15211" class="LineNr">15211 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15212" class="LineNr">15212 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15213" class="LineNr">15213 </span> <span class="subxComment"># restore ed</span> +<span id="L15214" class="LineNr">15214 </span> 89/<- %edx 4/r32/esp +<span id="L15215" class="LineNr">15215 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15216" class="LineNr">15216 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15217" class="Folded">15217 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15223" class="LineNr">15223 </span> <span class="subxComment"># check output</span> +<span id="L15224" class="LineNr">15224 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15189'>test-populate-stream-non-addr-handle-stream</a>: output should be empty"</span>) +<span id="L15225" class="LineNr">15225 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt populate-stream: first inout 'y' must have type (addr handle stream ...)"</span> <span class="Constant">"F - <a href='mu.subx.html#L15189'>test-populate-stream-non-addr-handle-stream</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15226" class="LineNr">15226 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15227" class="LineNr">15227 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15189'>test-populate-stream-non-addr-handle-stream</a>: exit status"</span>) +<span id="L15228" class="LineNr">15228 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15229" class="LineNr">15229 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15230" class="LineNr">15230 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15231" class="LineNr">15231 </span> 5d/pop-to-ebp +<span id="L15232" class="LineNr">15232 </span> c3/return +<span id="L15233" class="LineNr">15233 </span> +<span id="L15234" class="LineNr">15234 </span><span class="subxTest">test-populate-stream-deref-address</span>: +<span id="L15235" class="LineNr">15235 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15236" class="LineNr">15236 </span> 55/push-ebp +<span id="L15237" class="LineNr">15237 </span> 89/<- %ebp 4/r32/esp +<span id="L15238" class="LineNr">15238 </span> <span class="subxComment"># setup</span> +<span id="L15239" class="LineNr">15239 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15240" class="LineNr">15240 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15241" class="LineNr">15241 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15242" class="LineNr">15242 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15243" class="LineNr">15243 </span> <span class="subxComment">#</span> +<span id="L15244" class="LineNr">15244 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15245" class="LineNr">15245 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: (addr addr handle stream int) <- copy 0\n"</span>) +<span id="L15246" class="LineNr">15246 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" populate-stream *y, 3\n"</span>) +<span id="L15247" class="LineNr">15247 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15248" class="LineNr">15248 </span> <span class="subxComment"># convert</span> +<span id="L15249" class="LineNr">15249 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L15250" class="LineNr">15250 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15251" class="LineNr">15251 </span> <span class="subxComment"># no errors</span> +<span id="L15252" class="LineNr">15252 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15253" class="LineNr">15253 </span> 5d/pop-to-ebp +<span id="L15254" class="LineNr">15254 </span> c3/return +<span id="L15255" class="LineNr">15255 </span> +<span id="L15256" class="LineNr">15256 </span><span class="subxTest">test-convert-with-no-inout</span>: +<span id="L15257" class="LineNr">15257 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15258" class="LineNr">15258 </span> 55/push-ebp +<span id="L15259" class="LineNr">15259 </span> 89/<- %ebp 4/r32/esp +<span id="L15260" class="LineNr">15260 </span> <span class="subxComment"># setup</span> +<span id="L15261" class="LineNr">15261 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15262" class="LineNr">15262 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15263" class="LineNr">15263 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15264" class="LineNr">15264 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15265" class="LineNr">15265 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15266" class="LineNr">15266 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15267" class="LineNr">15267 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15268" class="LineNr">15268 </span> 68/push 0/imm32 +<span id="L15269" class="LineNr">15269 </span> 68/push 0/imm32 +<span id="L15270" class="LineNr">15270 </span> 89/<- %edx 4/r32/esp +<span id="L15271" class="LineNr">15271 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15272" class="LineNr">15272 </span> <span class="subxComment">#</span> +<span id="L15273" class="LineNr">15273 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15274" class="LineNr">15274 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- convert\n"</span>) +<span id="L15275" class="LineNr">15275 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15276" class="LineNr">15276 </span> <span class="subxComment"># convert</span> +<span id="L15277" class="LineNr">15277 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15278" class="LineNr">15278 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15279" class="LineNr">15279 </span> <span class="subxComment"># restore ed</span> +<span id="L15280" class="LineNr">15280 </span> 89/<- %edx 4/r32/esp +<span id="L15281" class="LineNr">15281 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15282" class="LineNr">15282 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15283" class="Folded">15283 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15289" class="LineNr">15289 </span> <span class="subxComment"># check output</span> +<span id="L15290" class="LineNr">15290 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15256'>test-convert-with-no-inout</a>: output should be empty"</span>) +<span id="L15291" class="LineNr">15291 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15256'>test-convert-with-no-inout</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15292" class="LineNr">15292 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15293" class="LineNr">15293 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15256'>test-convert-with-no-inout</a>: exit status"</span>) +<span id="L15294" class="LineNr">15294 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15295" class="LineNr">15295 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15296" class="LineNr">15296 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15297" class="LineNr">15297 </span> 5d/pop-to-ebp +<span id="L15298" class="LineNr">15298 </span> c3/return +<span id="L15299" class="LineNr">15299 </span> +<span id="L15300" class="LineNr">15300 </span><span class="subxTest">test-convert-with-multiple-inouts</span>: +<span id="L15301" class="LineNr">15301 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15302" class="LineNr">15302 </span> 55/push-ebp +<span id="L15303" class="LineNr">15303 </span> 89/<- %ebp 4/r32/esp +<span id="L15304" class="LineNr">15304 </span> <span class="subxComment"># setup</span> +<span id="L15305" class="LineNr">15305 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15306" class="LineNr">15306 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15307" class="LineNr">15307 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15308" class="LineNr">15308 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15309" class="LineNr">15309 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15310" class="LineNr">15310 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15311" class="LineNr">15311 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15312" class="LineNr">15312 </span> 68/push 0/imm32 +<span id="L15313" class="LineNr">15313 </span> 68/push 0/imm32 +<span id="L15314" class="LineNr">15314 </span> 89/<- %edx 4/r32/esp +<span id="L15315" class="LineNr">15315 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15316" class="LineNr">15316 </span> <span class="subxComment">#</span> +<span id="L15317" class="LineNr">15317 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15318" class="LineNr">15318 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- convert 0, 0\n"</span>) +<span id="L15319" class="LineNr">15319 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15320" class="LineNr">15320 </span> <span class="subxComment"># convert</span> +<span id="L15321" class="LineNr">15321 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15322" class="LineNr">15322 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15323" class="LineNr">15323 </span> <span class="subxComment"># restore ed</span> +<span id="L15324" class="LineNr">15324 </span> 89/<- %edx 4/r32/esp +<span id="L15325" class="LineNr">15325 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15326" class="LineNr">15326 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15327" class="Folded">15327 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15333" class="LineNr">15333 </span> <span class="subxComment"># check output</span> +<span id="L15334" class="LineNr">15334 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15300'>test-convert-with-multiple-inouts</a>: output should be empty"</span>) +<span id="L15335" class="LineNr">15335 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one inout"</span> <span class="Constant">"F - <a href='mu.subx.html#L15300'>test-convert-with-multiple-inouts</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15336" class="LineNr">15336 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15337" class="LineNr">15337 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15300'>test-convert-with-multiple-inouts</a>: exit status"</span>) +<span id="L15338" class="LineNr">15338 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15339" class="LineNr">15339 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15340" class="LineNr">15340 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15341" class="LineNr">15341 </span> 5d/pop-to-ebp +<span id="L15342" class="LineNr">15342 </span> c3/return +<span id="L15343" class="LineNr">15343 </span> +<span id="L15344" class="LineNr">15344 </span><span class="subxTest">test-convert-with-no-output</span>: +<span id="L15345" class="LineNr">15345 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15346" class="LineNr">15346 </span> 55/push-ebp +<span id="L15347" class="LineNr">15347 </span> 89/<- %ebp 4/r32/esp +<span id="L15348" class="LineNr">15348 </span> <span class="subxComment"># setup</span> +<span id="L15349" class="LineNr">15349 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15350" class="LineNr">15350 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15351" class="LineNr">15351 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15352" class="LineNr">15352 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15353" class="LineNr">15353 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15354" class="LineNr">15354 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15355" class="LineNr">15355 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15356" class="LineNr">15356 </span> 68/push 0/imm32 +<span id="L15357" class="LineNr">15357 </span> 68/push 0/imm32 +<span id="L15358" class="LineNr">15358 </span> 89/<- %edx 4/r32/esp +<span id="L15359" class="LineNr">15359 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15360" class="LineNr">15360 </span> <span class="subxComment">#</span> +<span id="L15361" class="LineNr">15361 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15362" class="LineNr">15362 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" convert 0\n"</span>) +<span id="L15363" class="LineNr">15363 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15364" class="LineNr">15364 </span> <span class="subxComment"># convert</span> +<span id="L15365" class="LineNr">15365 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15366" class="LineNr">15366 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15367" class="LineNr">15367 </span> <span class="subxComment"># restore ed</span> +<span id="L15368" class="LineNr">15368 </span> 89/<- %edx 4/r32/esp +<span id="L15369" class="LineNr">15369 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15370" class="LineNr">15370 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15371" class="Folded">15371 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15377" class="LineNr">15377 </span> <span class="subxComment"># check output</span> +<span id="L15378" class="LineNr">15378 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15344'>test-convert-with-no-output</a>: output should be empty"</span>) +<span id="L15379" class="LineNr">15379 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' expects an output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15344'>test-convert-with-no-output</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15380" class="LineNr">15380 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15381" class="LineNr">15381 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15344'>test-convert-with-no-output</a>: exit status"</span>) +<span id="L15382" class="LineNr">15382 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15383" class="LineNr">15383 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15384" class="LineNr">15384 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15385" class="LineNr">15385 </span> 5d/pop-to-ebp +<span id="L15386" class="LineNr">15386 </span> c3/return +<span id="L15387" class="LineNr">15387 </span> +<span id="L15388" class="LineNr">15388 </span><span class="subxTest">test-convert-with-multiple-outputs</span>: +<span id="L15389" class="LineNr">15389 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15390" class="LineNr">15390 </span> 55/push-ebp +<span id="L15391" class="LineNr">15391 </span> 89/<- %ebp 4/r32/esp +<span id="L15392" class="LineNr">15392 </span> <span class="subxComment"># setup</span> +<span id="L15393" class="LineNr">15393 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15394" class="LineNr">15394 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15395" class="LineNr">15395 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15396" class="LineNr">15396 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15397" class="LineNr">15397 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15398" class="LineNr">15398 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15399" class="LineNr">15399 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15400" class="LineNr">15400 </span> 68/push 0/imm32 +<span id="L15401" class="LineNr">15401 </span> 68/push 0/imm32 +<span id="L15402" class="LineNr">15402 </span> 89/<- %edx 4/r32/esp +<span id="L15403" class="LineNr">15403 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15404" class="LineNr">15404 </span> <span class="subxComment">#</span> +<span id="L15405" class="LineNr">15405 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15406" class="LineNr">15406 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: int <- copy 0\n"</span>) +<span id="L15407" class="LineNr">15407 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/ecx: int <- copy 0\n"</span>) +<span id="L15408" class="LineNr">15408 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x, y <- convert 0\n"</span>) +<span id="L15409" class="LineNr">15409 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15410" class="LineNr">15410 </span> <span class="subxComment"># convert</span> +<span id="L15411" class="LineNr">15411 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15412" class="LineNr">15412 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15413" class="LineNr">15413 </span> <span class="subxComment"># restore ed</span> +<span id="L15414" class="LineNr">15414 </span> 89/<- %edx 4/r32/esp +<span id="L15415" class="LineNr">15415 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15416" class="LineNr">15416 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15417" class="Folded">15417 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15423" class="LineNr">15423 </span> <span class="subxComment"># check output</span> +<span id="L15424" class="LineNr">15424 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15388'>test-convert-with-multiple-outputs</a>: output should be empty"</span>) +<span id="L15425" class="LineNr">15425 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt 'convert' must have just one output"</span> <span class="Constant">"F - <a href='mu.subx.html#L15388'>test-convert-with-multiple-outputs</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15426" class="LineNr">15426 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15427" class="LineNr">15427 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15388'>test-convert-with-multiple-outputs</a>: exit status"</span>) +<span id="L15428" class="LineNr">15428 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15429" class="LineNr">15429 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15430" class="LineNr">15430 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15431" class="LineNr">15431 </span> 5d/pop-to-ebp +<span id="L15432" class="LineNr">15432 </span> c3/return +<span id="L15433" class="LineNr">15433 </span> +<span id="L15434" class="LineNr">15434 </span><span class="subxTest">test-convert-deref-address</span>: +<span id="L15435" class="LineNr">15435 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15436" class="LineNr">15436 </span> 55/push-ebp +<span id="L15437" class="LineNr">15437 </span> 89/<- %ebp 4/r32/esp +<span id="L15438" class="LineNr">15438 </span> <span class="subxComment"># setup</span> +<span id="L15439" class="LineNr">15439 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15440" class="LineNr">15440 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15441" class="LineNr">15441 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15442" class="LineNr">15442 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15443" class="LineNr">15443 </span> <span class="subxComment">#</span> +<span id="L15444" class="LineNr">15444 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15445" class="LineNr">15445 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x/eax: (addr int) <- copy 0\n"</span>) +<span id="L15446" class="LineNr">15446 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm4: float <- convert *x\n"</span>) +<span id="L15447" class="LineNr">15447 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15448" class="LineNr">15448 </span> <span class="subxComment"># convert</span> +<span id="L15449" class="LineNr">15449 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L15450" class="LineNr">15450 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15451" class="LineNr">15451 </span> <span class="subxComment"># no errors</span> +<span id="L15452" class="LineNr">15452 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15453" class="LineNr">15453 </span> 5d/pop-to-ebp +<span id="L15454" class="LineNr">15454 </span> c3/return +<span id="L15455" class="LineNr">15455 </span> +<span id="L15456" class="LineNr">15456 </span><span class="subxTest">test-convert-to-non-register</span>: +<span id="L15457" class="LineNr">15457 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15458" class="LineNr">15458 </span> 55/push-ebp +<span id="L15459" class="LineNr">15459 </span> 89/<- %ebp 4/r32/esp +<span id="L15460" class="LineNr">15460 </span> <span class="subxComment"># setup</span> +<span id="L15461" class="LineNr">15461 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15462" class="LineNr">15462 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15463" class="LineNr">15463 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15464" class="LineNr">15464 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15465" class="LineNr">15465 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15466" class="LineNr">15466 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15467" class="LineNr">15467 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15468" class="LineNr">15468 </span> 68/push 0/imm32 +<span id="L15469" class="LineNr">15469 </span> 68/push 0/imm32 +<span id="L15470" class="LineNr">15470 </span> 89/<- %edx 4/r32/esp +<span id="L15471" class="LineNr">15471 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15472" class="LineNr">15472 </span> <span class="subxComment">#</span> +<span id="L15473" class="LineNr">15473 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15474" class="LineNr">15474 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) +<span id="L15475" class="LineNr">15475 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y: int\n"</span>) +<span id="L15476" class="LineNr">15476 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" x <- convert y\n"</span>) +<span id="L15477" class="LineNr">15477 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15478" class="LineNr">15478 </span> <span class="subxComment"># convert</span> +<span id="L15479" class="LineNr">15479 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15480" class="LineNr">15480 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15481" class="LineNr">15481 </span> <span class="subxComment"># restore ed</span> +<span id="L15482" class="LineNr">15482 </span> 89/<- %edx 4/r32/esp +<span id="L15483" class="LineNr">15483 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15484" class="LineNr">15484 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15485" class="Folded">15485 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15491" class="LineNr">15491 </span> <span class="subxComment"># check output</span> +<span id="L15492" class="LineNr">15492 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15456'>test-convert-to-non-register</a>: output should be empty"</span>) +<span id="L15493" class="LineNr">15493 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'x' not in a register"</span> <span class="Constant">"F - <a href='mu.subx.html#L15456'>test-convert-to-non-register</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15494" class="LineNr">15494 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15495" class="LineNr">15495 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15456'>test-convert-to-non-register</a>: exit status"</span>) +<span id="L15496" class="LineNr">15496 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15497" class="LineNr">15497 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15498" class="LineNr">15498 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15499" class="LineNr">15499 </span> 5d/pop-to-ebp +<span id="L15500" class="LineNr">15500 </span> c3/return +<span id="L15501" class="LineNr">15501 </span> +<span id="L15502" class="LineNr">15502 </span><span class="subxTest">test-convert-invalid-inout-type</span>: +<span id="L15503" class="LineNr">15503 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15504" class="LineNr">15504 </span> 55/push-ebp +<span id="L15505" class="LineNr">15505 </span> 89/<- %ebp 4/r32/esp +<span id="L15506" class="LineNr">15506 </span> <span class="subxComment"># setup</span> +<span id="L15507" class="LineNr">15507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15508" class="LineNr">15508 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15509" class="LineNr">15509 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15510" class="LineNr">15510 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15511" class="LineNr">15511 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15512" class="LineNr">15512 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15513" class="LineNr">15513 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15514" class="LineNr">15514 </span> 68/push 0/imm32 +<span id="L15515" class="LineNr">15515 </span> 68/push 0/imm32 +<span id="L15516" class="LineNr">15516 </span> 89/<- %edx 4/r32/esp +<span id="L15517" class="LineNr">15517 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15518" class="LineNr">15518 </span> <span class="subxComment">#</span> +<span id="L15519" class="LineNr">15519 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15520" class="LineNr">15520 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: boolean\n"</span>) +<span id="L15521" class="LineNr">15521 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm1: float <- convert x\n"</span>) +<span id="L15522" class="LineNr">15522 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15523" class="LineNr">15523 </span> <span class="subxComment"># convert</span> +<span id="L15524" class="LineNr">15524 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15525" class="LineNr">15525 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15526" class="LineNr">15526 </span> <span class="subxComment"># restore ed</span> +<span id="L15527" class="LineNr">15527 </span> 89/<- %edx 4/r32/esp +<span id="L15528" class="LineNr">15528 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15529" class="LineNr">15529 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15530" class="Folded">15530 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15536" class="LineNr">15536 </span> <span class="subxComment"># check output</span> +<span id="L15537" class="LineNr">15537 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15502'>test-convert-invalid-inout-type</a>: output should be empty"</span>) +<span id="L15538" class="LineNr">15538 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: inout 'x' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15502'>test-convert-invalid-inout-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15539" class="LineNr">15539 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15540" class="LineNr">15540 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15502'>test-convert-invalid-inout-type</a>: exit status"</span>) +<span id="L15541" class="LineNr">15541 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15542" class="LineNr">15542 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15543" class="LineNr">15543 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15544" class="LineNr">15544 </span> 5d/pop-to-ebp +<span id="L15545" class="LineNr">15545 </span> c3/return +<span id="L15546" class="LineNr">15546 </span> +<span id="L15547" class="LineNr">15547 </span><span class="subxTest">test-convert-invalid-output-type</span>: +<span id="L15548" class="LineNr">15548 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15549" class="LineNr">15549 </span> 55/push-ebp +<span id="L15550" class="LineNr">15550 </span> 89/<- %ebp 4/r32/esp +<span id="L15551" class="LineNr">15551 </span> <span class="subxComment"># setup</span> +<span id="L15552" class="LineNr">15552 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15553" class="LineNr">15553 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15554" class="LineNr">15554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15555" class="LineNr">15555 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15556" class="LineNr">15556 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15557" class="LineNr">15557 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15558" class="LineNr">15558 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15559" class="LineNr">15559 </span> 68/push 0/imm32 +<span id="L15560" class="LineNr">15560 </span> 68/push 0/imm32 +<span id="L15561" class="LineNr">15561 </span> 89/<- %edx 4/r32/esp +<span id="L15562" class="LineNr">15562 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15563" class="LineNr">15563 </span> <span class="subxComment">#</span> +<span id="L15564" class="LineNr">15564 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15565" class="LineNr">15565 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) +<span id="L15566" class="LineNr">15566 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: boolean <- convert x\n"</span>) +<span id="L15567" class="LineNr">15567 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15568" class="LineNr">15568 </span> <span class="subxComment"># convert</span> +<span id="L15569" class="LineNr">15569 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15570" class="LineNr">15570 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15571" class="LineNr">15571 </span> <span class="subxComment"># restore ed</span> +<span id="L15572" class="LineNr">15572 </span> 89/<- %edx 4/r32/esp +<span id="L15573" class="LineNr">15573 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15574" class="LineNr">15574 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15575" class="Folded">15575 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15581" class="LineNr">15581 </span> <span class="subxComment"># check output</span> +<span id="L15582" class="LineNr">15582 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15547'>test-convert-invalid-output-type</a>: output should be empty"</span>) +<span id="L15583" class="LineNr">15583 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: output 'y' must be an int or float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15547'>test-convert-invalid-output-type</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15584" class="LineNr">15584 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15585" class="LineNr">15585 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15547'>test-convert-invalid-output-type</a>: exit status"</span>) +<span id="L15586" class="LineNr">15586 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15587" class="LineNr">15587 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15588" class="LineNr">15588 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15589" class="LineNr">15589 </span> 5d/pop-to-ebp +<span id="L15590" class="LineNr">15590 </span> c3/return +<span id="L15591" class="LineNr">15591 </span> +<span id="L15592" class="LineNr">15592 </span><span class="subxTest">test-convert-int-to-int</span>: +<span id="L15593" class="LineNr">15593 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15594" class="LineNr">15594 </span> 55/push-ebp +<span id="L15595" class="LineNr">15595 </span> 89/<- %ebp 4/r32/esp +<span id="L15596" class="LineNr">15596 </span> <span class="subxComment"># setup</span> +<span id="L15597" class="LineNr">15597 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15598" class="LineNr">15598 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15599" class="LineNr">15599 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15600" class="LineNr">15600 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15601" class="LineNr">15601 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15602" class="LineNr">15602 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15603" class="LineNr">15603 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15604" class="LineNr">15604 </span> 68/push 0/imm32 +<span id="L15605" class="LineNr">15605 </span> 68/push 0/imm32 +<span id="L15606" class="LineNr">15606 </span> 89/<- %edx 4/r32/esp +<span id="L15607" class="LineNr">15607 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15608" class="LineNr">15608 </span> <span class="subxComment">#</span> +<span id="L15609" class="LineNr">15609 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15610" class="LineNr">15610 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: int\n"</span>) +<span id="L15611" class="LineNr">15611 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/eax: int <- convert x\n"</span>) +<span id="L15612" class="LineNr">15612 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15613" class="LineNr">15613 </span> <span class="subxComment"># convert</span> +<span id="L15614" class="LineNr">15614 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15615" class="LineNr">15615 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15616" class="LineNr">15616 </span> <span class="subxComment"># restore ed</span> +<span id="L15617" class="LineNr">15617 </span> 89/<- %edx 4/r32/esp +<span id="L15618" class="LineNr">15618 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15619" class="LineNr">15619 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15620" class="Folded">15620 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15626" class="LineNr">15626 </span> <span class="subxComment"># check output</span> +<span id="L15627" class="LineNr">15627 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15592'>test-convert-int-to-int</a>: output should be empty"</span>) +<span id="L15628" class="LineNr">15628 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert int to int"</span> <span class="Constant">"F - <a href='mu.subx.html#L15592'>test-convert-int-to-int</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15629" class="LineNr">15629 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15630" class="LineNr">15630 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15592'>test-convert-int-to-int</a>: exit status"</span>) +<span id="L15631" class="LineNr">15631 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15632" class="LineNr">15632 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15633" class="LineNr">15633 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15634" class="LineNr">15634 </span> 5d/pop-to-ebp +<span id="L15635" class="LineNr">15635 </span> c3/return +<span id="L15636" class="LineNr">15636 </span> +<span id="L15637" class="LineNr">15637 </span><span class="subxTest">test-convert-float-to-float</span>: +<span id="L15638" class="LineNr">15638 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15639" class="LineNr">15639 </span> 55/push-ebp +<span id="L15640" class="LineNr">15640 </span> 89/<- %ebp 4/r32/esp +<span id="L15641" class="LineNr">15641 </span> <span class="subxComment"># setup</span> +<span id="L15642" class="LineNr">15642 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L15643" class="LineNr">15643 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-input-buffered-file->buffer) +<span id="L15644" class="LineNr">15644 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L15645" class="LineNr">15645 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L15646" class="LineNr">15646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a>) +<span id="L15647" class="LineNr">15647 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-error-buffered-file->buffer) +<span id="L15648" class="LineNr">15648 </span> <span class="subxComment"># var ed/edx: exit-descriptor = tailor-exit-descriptor(16)</span> +<span id="L15649" class="LineNr">15649 </span> 68/push 0/imm32 +<span id="L15650" class="LineNr">15650 </span> 68/push 0/imm32 +<span id="L15651" class="LineNr">15651 </span> 89/<- %edx 4/r32/esp +<span id="L15652" class="LineNr">15652 </span> (<a href='110stop.subx.html#L44'>tailor-exit-descriptor</a> %edx 0x10) +<span id="L15653" class="LineNr">15653 </span> <span class="subxComment">#</span> +<span id="L15654" class="LineNr">15654 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"fn foo {\n"</span>) +<span id="L15655" class="LineNr">15655 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var x: float\n"</span>) +<span id="L15656" class="LineNr">15656 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">" var y/xmm6: float <- convert x\n"</span>) +<span id="L15657" class="LineNr">15657 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"}\n"</span>) +<span id="L15658" class="LineNr">15658 </span> <span class="subxComment"># convert</span> +<span id="L15659" class="LineNr">15659 </span> (<a href='mu.subx.html#L507'>convert-mu</a> <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a> %edx) +<span id="L15660" class="LineNr">15660 </span> <span class="subxComment"># registers except esp clobbered at this point</span> +<span id="L15661" class="LineNr">15661 </span> <span class="subxComment"># restore ed</span> +<span id="L15662" class="LineNr">15662 </span> 89/<- %edx 4/r32/esp +<span id="L15663" class="LineNr">15663 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L15664" class="LineNr">15664 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L464'>_test-error-buffered-file</a>) +<span id="L15665" class="Folded">15665 </span><span class="Folded">+-- 6 lines: #? # dump _test-error-stream ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15671" class="LineNr">15671 </span> <span class="subxComment"># check output</span> +<span id="L15672" class="LineNr">15672 </span> (<a href='109stream-equal.subx.html#L194'>check-stream-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">""</span> <span class="Constant">"F - <a href='mu.subx.html#L15637'>test-convert-float-to-float</a>: output should be empty"</span>) +<span id="L15673" class="LineNr">15673 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L438'>_test-error-stream</a> <span class="Constant">"fn foo: stmt convert: no need to convert float to float"</span> <span class="Constant">"F - <a href='mu.subx.html#L15637'>test-convert-float-to-float</a>: <a href='114error.subx.html#L9'>error</a> message"</span>) +<span id="L15674" class="LineNr">15674 </span> <span class="subxComment"># check that stop(1) was called</span> +<span id="L15675" class="LineNr">15675 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L15637'>test-convert-float-to-float</a>: exit status"</span>) +<span id="L15676" class="LineNr">15676 </span> <span class="subxComment"># don't restore from ebp</span> +<span id="L15677" class="LineNr">15677 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15678" class="LineNr">15678 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15679" class="LineNr">15679 </span> 5d/pop-to-ebp +<span id="L15680" class="LineNr">15680 </span> c3/return +<span id="L15681" class="LineNr">15681 </span> +<span id="L15682" class="LineNr">15682 </span><span class="subxComment">#######################################################</span> +<span id="L15683" class="LineNr">15683 </span><span class="subxComment"># Parsing</span> +<span id="L15684" class="LineNr">15684 </span><span class="subxComment">#######################################################</span> +<span id="L15685" class="LineNr">15685 </span> +<span id="L15686" class="LineNr">15686 </span>== data +<span id="L15687" class="LineNr">15687 </span> +<span id="L15688" class="LineNr">15688 </span><span class="subxComment"># Global state added to each var record when parsing a function</span> +<span id="L15689" class="LineNr">15689 </span><span class="SpecialChar">Next-block-index</span>: <span class="subxComment"># (addr int)</span> +<span id="L15690" class="LineNr">15690 </span> 1/imm32 +<span id="L15691" class="LineNr">15691 </span> +<span id="L15692" class="LineNr">15692 </span><span class="SpecialChar">Curr-block-depth</span>: <span class="subxComment"># (addr int)</span> +<span id="L15693" class="LineNr">15693 </span> 1/imm32 +<span id="L15694" class="LineNr">15694 </span> +<span id="L15695" class="LineNr">15695 </span>== code +<span id="L15696" class="LineNr">15696 </span> +<span id="L15697" class="LineNr">15697 </span><span class="subxFunction">parse-mu</span>: <span class="subxComment"># in: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L15698" class="LineNr">15698 </span> <span class="subxComment"># pseudocode</span> +<span id="L15699" class="LineNr">15699 </span> <span class="subxComment"># var curr-function: (addr handle function) = Program->functions</span> +<span id="L15700" class="LineNr">15700 </span> <span class="subxComment"># var curr-signature: (addr handle function) = Program->signatures</span> +<span id="L15701" class="LineNr">15701 </span> <span class="subxComment"># var curr-type: (addr handle typeinfo) = Program->types</span> +<span id="L15702" class="LineNr">15702 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L15703" class="LineNr">15703 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L15704" class="LineNr">15704 </span> <span class="subxComment"># while true # line loop</span> +<span id="L15705" class="LineNr">15705 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L15706" class="LineNr">15706 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L15707" class="LineNr">15707 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L15708" class="LineNr">15708 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L15709" class="LineNr">15709 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L15710" class="LineNr">15710 </span> <span class="subxComment"># continue</span> +<span id="L15711" class="LineNr">15711 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L15712" class="LineNr">15712 </span> <span class="subxComment"># continue # end of line</span> +<span id="L15713" class="LineNr">15713 </span> <span class="subxComment"># else if slice-equal?(word-slice, "fn")</span> +<span id="L15714" class="LineNr">15714 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L15715" class="LineNr">15715 </span> <span class="subxComment"># var vars: (stack live-var 256)</span> +<span id="L15716" class="LineNr">15716 </span> <span class="subxComment"># populate-mu-function-header(line, new-function, vars)</span> +<span id="L15717" class="LineNr">15717 </span> <span class="subxComment"># populate-mu-function-body(in, new-function, vars)</span> +<span id="L15718" class="LineNr">15718 </span> <span class="subxComment"># assert(vars->top == 0)</span> +<span id="L15719" class="LineNr">15719 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L15720" class="LineNr">15720 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L15721" class="LineNr">15721 </span> <span class="subxComment"># else if slice-equal?(word-slice, "sig")</span> +<span id="L15722" class="LineNr">15722 </span> <span class="subxComment"># var new-function: (handle function) = allocate(function)</span> +<span id="L15723" class="LineNr">15723 </span> <span class="subxComment"># populate-mu-function-signature(line, new-function)</span> +<span id="L15724" class="LineNr">15724 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L15725" class="LineNr">15725 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L15726" class="LineNr">15726 </span> <span class="subxComment"># else if slice-equal?(word-slice, "type")</span> +<span id="L15727" class="LineNr">15727 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L15728" class="LineNr">15728 </span> <span class="subxComment"># type-id = pos-or-insert-slice(Type-id, word-slice)</span> +<span id="L15729" class="LineNr">15729 </span> <span class="subxComment"># var new-type: (handle typeinfo) = find-or-create-typeinfo(type-id)</span> +<span id="L15730" class="LineNr">15730 </span> <span class="subxComment"># assert(next-word(line) == "{")</span> +<span id="L15731" class="LineNr">15731 </span> <span class="subxComment"># populate-mu-type(in, new-type)</span> +<span id="L15732" class="LineNr">15732 </span> <span class="subxComment"># else</span> +<span id="L15733" class="LineNr">15733 </span> <span class="subxComment"># abort()</span> +<span id="L15734" class="LineNr">15734 </span> <span class="subxComment">#</span> +<span id="L15735" class="LineNr">15735 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15736" class="LineNr">15736 </span> 55/push-ebp +<span id="L15737" class="LineNr">15737 </span> 89/<- %ebp 4/r32/esp +<span id="L15738" class="LineNr">15738 </span> <span class="subxComment"># var curr-signature: (addr handle function) at *(ebp-4)</span> +<span id="L15739" class="LineNr">15739 </span> 68/push <a href='mu.subx.html#L249'>_Program-signatures</a>/imm32 +<span id="L15740" class="LineNr">15740 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15741" class="LineNr">15741 </span> 50/push-eax +<span id="L15742" class="LineNr">15742 </span> 51/push-ecx +<span id="L15743" class="LineNr">15743 </span> 52/push-edx +<span id="L15744" class="LineNr">15744 </span> 53/push-ebx +<span id="L15745" class="LineNr">15745 </span> 56/push-esi +<span id="L15746" class="LineNr">15746 </span> 57/push-edi +<span id="L15747" class="LineNr">15747 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L15748" class="LineNr">15748 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L15749" class="LineNr">15749 </span> 68/push 0x200/imm32/size +<span id="L15750" class="LineNr">15750 </span> 68/push 0/imm32/read +<span id="L15751" class="LineNr">15751 </span> 68/push 0/imm32/write +<span id="L15752" class="LineNr">15752 </span> 89/<- %ecx 4/r32/esp +<span id="L15753" class="LineNr">15753 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L15754" class="LineNr">15754 </span> 68/push 0/imm32/end +<span id="L15755" class="LineNr">15755 </span> 68/push 0/imm32/start +<span id="L15756" class="LineNr">15756 </span> 89/<- %edx 4/r32/esp +<span id="L15757" class="LineNr">15757 </span> <span class="subxComment"># var curr-function/edi: (addr handle function)</span> +<span id="L15758" class="LineNr">15758 </span> bf/copy-to-edi <a href='mu.subx.html#L241'>_Program-functions</a>/imm32 +<span id="L15759" class="LineNr">15759 </span> <span class="subxComment"># var vars/ebx: (stack live-var 256)</span> +<span id="L15760" class="LineNr">15760 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L15761" class="LineNr">15761 </span> 68/push 0xc00/imm32/size +<span id="L15762" class="LineNr">15762 </span> 68/push 0/imm32/top +<span id="L15763" class="LineNr">15763 </span> 89/<- %ebx 4/r32/esp +<span id="L15764" class="LineNr">15764 </span> { +<span id="L15765" class="LineNr">15765 </span><span class="Constant">$parse-mu:line-loop</span>: +<span id="L15766" class="LineNr">15766 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L15767" class="LineNr">15767 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L15768" class="LineNr">15768 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L15769" class="LineNr">15769 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L15770" class="LineNr">15770 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15771" class="Folded">15771 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L15777" class="LineNr">15777 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> %ecx %edx) +<span id="L15778" class="LineNr">15778 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L15779" class="LineNr">15779 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L15780" class="LineNr">15780 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15781" class="LineNr">15781 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L15782" class="LineNr">15782 </span> <span class="subxComment"># if (*word-slice->start == "#") continue</span> +<span id="L15783" class="LineNr">15783 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L15784" class="LineNr">15784 </span> 8b/-> *edx 0/r32/eax +<span id="L15785" class="LineNr">15785 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L15786" class="LineNr">15786 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L15787" class="LineNr">15787 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L15788" class="LineNr">15788 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L15789" class="LineNr">15789 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L15790" class="LineNr">15790 </span> <span class="subxComment"># if (slice-equal?(word-slice, "fn")) parse a function</span> +<span id="L15791" class="LineNr">15791 </span> { +<span id="L15792" class="LineNr">15792 </span><span class="Constant">$parse-mu:fn</span>: +<span id="L15793" class="LineNr">15793 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"fn"</span>) <span class="subxComment"># => eax</span> +<span id="L15794" class="LineNr">15794 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15795" class="LineNr">15795 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15796" class="LineNr">15796 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L15797" class="LineNr">15797 </span> 68/push 0/imm32 +<span id="L15798" class="LineNr">15798 </span> 68/push 0/imm32 +<span id="L15799" class="LineNr">15799 </span> 89/<- %esi 4/r32/esp +<span id="L15800" class="LineNr">15800 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L15801" class="LineNr">15801 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> %esi) +<span id="L15802" class="LineNr">15802 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L15803" class="LineNr">15803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15804" class="LineNr">15804 </span> <span class="subxComment"># initialize vars</span> +<span id="L15805" class="LineNr">15805 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ebx) +<span id="L15806" class="LineNr">15806 </span> <span class="subxComment">#</span> +<span id="L15807" class="LineNr">15807 </span> (<a href='mu.subx.html#L15946'>populate-mu-function-header</a> %ecx %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L15808" class="LineNr">15808 </span> (<a href='mu.subx.html#L18063'>populate-mu-function-body</a> *(ebp+8) %eax %ebx *(ebp+0xc) *(ebp+0x10)) +<span id="L15809" class="LineNr">15809 </span> <span class="subxComment"># *curr-function = new-function</span> +<span id="L15810" class="LineNr">15810 </span> 8b/-> *esi 0/r32/eax +<span id="L15811" class="LineNr">15811 </span> 89/<- *edi 0/r32/eax +<span id="L15812" class="LineNr">15812 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L15813" class="LineNr">15813 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L15814" class="LineNr">15814 </span> <span class="subxComment"># curr-function = &new-function->next</span> +<span id="L15815" class="LineNr">15815 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L15816" class="LineNr">15816 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15817" class="LineNr">15817 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L15818" class="LineNr">15818 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L15819" class="LineNr">15819 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L15820" class="LineNr">15820 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15821" class="LineNr">15821 </span> <span class="subxComment">#</span> +<span id="L15822" class="LineNr">15822 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L15823" class="LineNr">15823 </span> } +<span id="L15824" class="LineNr">15824 </span> <span class="subxComment"># if (slice-equal?(word-slice, "sig")) parse a function signature</span> +<span id="L15825" class="LineNr">15825 </span> <span class="subxComment"># Function signatures are for providing types to SubX functions.</span> +<span id="L15826" class="LineNr">15826 </span> { +<span id="L15827" class="LineNr">15827 </span><span class="Constant">$parse-mu:sig</span>: +<span id="L15828" class="LineNr">15828 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"sig"</span>) <span class="subxComment"># => eax</span> +<span id="L15829" class="LineNr">15829 </span> 3d/compare-eax-and 0/imm32/false +<span id="L15830" class="LineNr">15830 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15831" class="LineNr">15831 </span> <span class="subxComment"># edi = curr-function</span> +<span id="L15832" class="LineNr">15832 </span> 57/push-edi +<span id="L15833" class="LineNr">15833 </span> 8b/-> *(ebp-4) 7/r32/edi +<span id="L15834" class="LineNr">15834 </span> <span class="subxComment"># var new-function/esi: (handle function)</span> +<span id="L15835" class="LineNr">15835 </span> 68/push 0/imm32 +<span id="L15836" class="LineNr">15836 </span> 68/push 0/imm32 +<span id="L15837" class="LineNr">15837 </span> 89/<- %esi 4/r32/esp +<span id="L15838" class="LineNr">15838 </span> <span class="subxComment"># populate-mu-function(line, in, vars, new-function)</span> +<span id="L15839" class="LineNr">15839 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> %esi) +<span id="L15840" class="LineNr">15840 </span> <span class="subxComment"># var new-function-addr/eax: (addr function)</span> +<span id="L15841" class="LineNr">15841 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15842" class="LineNr">15842 </span> <span class="subxComment">#</span> +<span id="L15843" class="LineNr">15843 </span> (<a href='mu.subx.html#L16266'>populate-mu-function-signature</a> %ecx %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L15844" class="LineNr">15844 </span> <span class="subxComment"># *curr-signature = new-function</span> +<span id="L15845" class="LineNr">15845 </span> 8b/-> *esi 0/r32/eax +<span id="L15846" class="LineNr">15846 </span> 89/<- *edi 0/r32/eax +<span id="L15847" class="LineNr">15847 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L15848" class="LineNr">15848 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L15849" class="LineNr">15849 </span> <span class="subxComment"># curr-signature = &new-function->next</span> +<span id="L15850" class="LineNr">15850 </span> <span class="subxS1Comment"># . var tmp/eax: (addr function) = lookup(new-function)</span> +<span id="L15851" class="LineNr">15851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L15852" class="LineNr">15852 </span> <span class="subxS1Comment"># . curr-function = &tmp->next</span> +<span id="L15853" class="LineNr">15853 </span> 8d/copy-address *(eax+0x20) 7/r32/edi <span class="subxComment"># Function-next</span> +<span id="L15854" class="LineNr">15854 </span> <span class="subxComment"># reclaim new-function</span> +<span id="L15855" class="LineNr">15855 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15856" class="LineNr">15856 </span> <span class="subxComment"># save curr-function</span> +<span id="L15857" class="LineNr">15857 </span> 89/<- *(ebp-4) 7/r32/edi +<span id="L15858" class="LineNr">15858 </span> <span class="subxComment"># restore edi</span> +<span id="L15859" class="LineNr">15859 </span> 5f/pop-to-edi +<span id="L15860" class="LineNr">15860 </span> <span class="subxComment">#</span> +<span id="L15861" class="LineNr">15861 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L15862" class="LineNr">15862 </span> } +<span id="L15863" class="LineNr">15863 </span> <span class="subxComment"># if (slice-equal?(word-slice, "type")) parse a type (struct/record) definition</span> +<span id="L15864" class="LineNr">15864 </span> { +<span id="L15865" class="LineNr">15865 </span><span class="Constant">$parse-mu:type</span>: +<span id="L15866" class="LineNr">15866 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"type"</span>) <span class="subxComment"># => eax</span> +<span id="L15867" class="LineNr">15867 </span> 3d/compare-eax-and 0/imm32 +<span id="L15868" class="LineNr">15868 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L15869" class="LineNr">15869 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> %ecx %edx) +<span id="L15870" class="LineNr">15870 </span> <span class="subxComment"># var type-id/eax: int</span> +<span id="L15871" class="LineNr">15871 </span> (<a href='mu.subx.html#L17451'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> %edx) <span class="subxComment"># => eax</span> +<span id="L15872" class="LineNr">15872 </span> <span class="subxComment"># spill</span> +<span id="L15873" class="LineNr">15873 </span> 51/push-ecx +<span id="L15874" class="LineNr">15874 </span> <span class="subxComment"># var new-type/ecx: (handle typeinfo)</span> +<span id="L15875" class="LineNr">15875 </span> 68/push 0/imm32 +<span id="L15876" class="LineNr">15876 </span> 68/push 0/imm32 +<span id="L15877" class="LineNr">15877 </span> 89/<- %ecx 4/r32/esp +<span id="L15878" class="LineNr">15878 </span> (<a href='mu.subx.html#L20241'>find-or-create-typeinfo</a> %eax %ecx) +<span id="L15879" class="LineNr">15879 </span> <span class="subxComment">#</span> +<span id="L15880" class="LineNr">15880 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L15881" class="LineNr">15881 </span> <span class="subxComment"># TODO: ensure that 'line' has nothing else but '{'</span> +<span id="L15882" class="LineNr">15882 </span><span class="CommentedCode">#? (dump-typeinfos "=== aaa\n")</span> +<span id="L15883" class="LineNr">15883 </span> (<a href='mu.subx.html#L20475'>populate-mu-type</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L15884" class="LineNr">15884 </span><span class="CommentedCode">#? (dump-typeinfos "=== zzz\n")</span> +<span id="L15885" class="LineNr">15885 </span> <span class="subxComment"># reclaim new-type</span> +<span id="L15886" class="LineNr">15886 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15887" class="LineNr">15887 </span> <span class="subxComment"># restore</span> +<span id="L15888" class="LineNr">15888 </span> 59/pop-to-ecx +<span id="L15889" class="LineNr">15889 </span> e9/jump $parse-mu:line-loop/disp32 +<span id="L15890" class="LineNr">15890 </span> } +<span id="L15891" class="LineNr">15891 </span> <span class="subxComment"># otherwise abort</span> +<span id="L15892" class="LineNr">15892 </span> e9/jump $parse-mu:error1/disp32 +<span id="L15893" class="LineNr">15893 </span> } <span class="subxComment"># end line loop</span> +<span id="L15894" class="LineNr">15894 </span><span class="Constant">$parse-mu:end</span>: +<span id="L15895" class="LineNr">15895 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L15896" class="LineNr">15896 </span> 81 0/subop/add %esp 0x20c/imm32 <span class="subxComment"># line</span> +<span id="L15897" class="LineNr">15897 </span> 81 0/subop/add %esp 0xc08/imm32 <span class="subxComment"># vars</span> +<span id="L15898" class="LineNr">15898 </span> 81 0/subop/add %esp 8/imm32 +<span id="L15899" class="LineNr">15899 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L15900" class="LineNr">15900 </span> 5f/pop-to-edi +<span id="L15901" class="LineNr">15901 </span> 5e/pop-to-esi +<span id="L15902" class="LineNr">15902 </span> 5b/pop-to-ebx +<span id="L15903" class="LineNr">15903 </span> 5a/pop-to-edx +<span id="L15904" class="LineNr">15904 </span> 59/pop-to-ecx +<span id="L15905" class="LineNr">15905 </span> 58/pop-to-eax +<span id="L15906" class="LineNr">15906 </span> <span class="subxS1Comment"># . reclaim local</span> +<span id="L15907" class="LineNr">15907 </span> 81 0/subop/add %esp 4/imm32 +<span id="L15908" class="LineNr">15908 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L15909" class="LineNr">15909 </span> 89/<- %esp 5/r32/ebp +<span id="L15910" class="LineNr">15910 </span> 5d/pop-to-ebp +<span id="L15911" class="LineNr">15911 </span> c3/return +<span id="L15912" class="LineNr">15912 </span> +<span id="L15913" class="LineNr">15913 </span><span class="Constant">$parse-mu:error1</span>: +<span id="L15914" class="LineNr">15914 </span> <span class="subxComment"># error("unexpected top-level command: " word-slice "\n")</span> +<span id="L15915" class="LineNr">15915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"unexpected top-level command: "</span>) +<span id="L15916" class="LineNr">15916 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) %edx) +<span id="L15917" class="LineNr">15917 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"\n"</span>) +<span id="L15918" class="LineNr">15918 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L15919" class="LineNr">15919 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L15920" class="LineNr">15920 </span> <span class="subxComment"># never gets here</span> +<span id="L15921" class="LineNr">15921 </span> +<span id="L15922" class="LineNr">15922 </span><span class="Constant">$parse-mu:error2</span>: +<span id="L15923" class="LineNr">15923 </span> <span class="subxComment"># error(vars->top " vars not reclaimed after fn '" new-function->name "'\n")</span> +<span id="L15924" class="LineNr">15924 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *ebx) +<span id="L15925" class="LineNr">15925 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">" vars not reclaimed after fn '"</span>) +<span id="L15926" class="LineNr">15926 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *eax) <span class="subxComment"># Function-name</span> +<span id="L15927" class="LineNr">15927 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"'\n"</span>) +<span id="L15928" class="LineNr">15928 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L15929" class="LineNr">15929 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L15930" class="LineNr">15930 </span> <span class="subxComment"># never gets here</span> +<span id="L15931" class="LineNr">15931 </span> +<span id="L15932" class="LineNr">15932 </span><span class="subxComment"># scenarios considered:</span> +<span id="L15933" class="LineNr">15933 </span><span class="subxComment"># ✗ fn foo # no block</span> +<span id="L15934" class="LineNr">15934 </span><span class="subxComment"># ✓ fn foo {</span> +<span id="L15935" class="LineNr">15935 </span><span class="subxComment"># ✗ fn foo { {</span> +<span id="L15936" class="LineNr">15936 </span><span class="subxComment"># ✗ fn foo { }</span> +<span id="L15937" class="LineNr">15937 </span><span class="subxComment"># ✗ fn foo { } {</span> +<span id="L15938" class="LineNr">15938 </span><span class="subxComment"># ✗ fn foo x {</span> +<span id="L15939" class="LineNr">15939 </span><span class="subxComment"># ✗ fn foo x: {</span> +<span id="L15940" class="LineNr">15940 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L15941" class="LineNr">15941 </span><span class="subxComment"># ✓ fn foo x: int {</span> +<span id="L15942" class="LineNr">15942 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int {</span> +<span id="L15943" class="LineNr">15943 </span><span class="subxComment"># TODO:</span> +<span id="L15944" class="LineNr">15944 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L15945" class="LineNr">15945 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L15946" class="LineNr">15946 </span><span class="subxFunction">populate-mu-function-header</span>: <span class="subxComment"># first-line: (addr stream byte), out: (addr function), vars: (addr stack live-var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L15947" class="LineNr">15947 </span> <span class="subxComment"># pseudocode:</span> +<span id="L15948" class="LineNr">15948 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L15949" class="LineNr">15949 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L15950" class="LineNr">15950 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L15951" class="LineNr">15951 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L15952" class="LineNr">15952 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L15953" class="LineNr">15953 </span> <span class="subxComment"># ## inouts</span> +<span id="L15954" class="LineNr">15954 </span> <span class="subxComment"># while true</span> +<span id="L15955" class="LineNr">15955 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L15956" class="LineNr">15956 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L15957" class="LineNr">15957 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L15958" class="LineNr">15958 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L15959" class="LineNr">15959 </span> <span class="subxComment"># assert(word-slice != '}')</span> +<span id="L15960" class="LineNr">15960 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L15961" class="LineNr">15961 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L15962" class="LineNr">15962 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L15963" class="LineNr">15963 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L15964" class="LineNr">15964 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L15965" class="LineNr">15965 </span> <span class="subxComment"># ## outputs</span> +<span id="L15966" class="LineNr">15966 </span> <span class="subxComment"># while true</span> +<span id="L15967" class="LineNr">15967 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L15968" class="LineNr">15968 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L15969" class="LineNr">15969 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L15970" class="LineNr">15970 </span> <span class="subxComment"># assert(word-slice not in '}' '->')</span> +<span id="L15971" class="LineNr">15971 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L15972" class="LineNr">15972 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L15973" class="LineNr">15973 </span> <span class="subxComment"># assert(v->name == "_")</span> +<span id="L15974" class="LineNr">15974 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L15975" class="LineNr">15975 </span> <span class="subxComment"># done:</span> +<span id="L15976" class="LineNr">15976 </span> <span class="subxComment">#</span> +<span id="L15977" class="LineNr">15977 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L15978" class="LineNr">15978 </span> 55/push-ebp +<span id="L15979" class="LineNr">15979 </span> 89/<- %ebp 4/r32/esp +<span id="L15980" class="LineNr">15980 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L15981" class="LineNr">15981 </span> 50/push-eax +<span id="L15982" class="LineNr">15982 </span> 51/push-ecx +<span id="L15983" class="LineNr">15983 </span> 52/push-edx +<span id="L15984" class="LineNr">15984 </span> 53/push-ebx +<span id="L15985" class="LineNr">15985 </span> 57/push-edi +<span id="L15986" class="LineNr">15986 </span> <span class="subxComment"># edi = out</span> +<span id="L15987" class="LineNr">15987 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L15988" class="LineNr">15988 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L15989" class="LineNr">15989 </span> 68/push 0/imm32/end +<span id="L15990" class="LineNr">15990 </span> 68/push 0/imm32/start +<span id="L15991" class="LineNr">15991 </span> 89/<- %ecx 4/r32/esp +<span id="L15992" class="LineNr">15992 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L15993" class="LineNr">15993 </span> 68/push 0/imm32 +<span id="L15994" class="LineNr">15994 </span> 68/push 0/imm32 +<span id="L15995" class="LineNr">15995 </span> 89/<- %ebx 4/r32/esp +<span id="L15996" class="LineNr">15996 </span> <span class="subxComment"># read function name</span> +<span id="L15997" class="LineNr">15997 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L15998" class="LineNr">15998 </span> <span class="subxComment"># error checking</span> +<span id="L15999" class="LineNr">15999 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16000" class="LineNr">16000 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16001" class="LineNr">16001 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16002" class="LineNr">16002 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16003" class="LineNr">16003 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16004" class="LineNr">16004 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16005" class="LineNr">16005 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16006" class="LineNr">16006 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16007" class="LineNr">16007 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16008" class="LineNr">16008 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16009" class="LineNr">16009 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16010" class="LineNr">16010 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16011" class="LineNr">16011 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16012" class="LineNr">16012 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16013" class="LineNr">16013 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16014" class="LineNr">16014 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16015" class="LineNr">16015 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L16016" class="LineNr">16016 </span> (<a href='mu.subx.html#L16618'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16017" class="LineNr">16017 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16018" class="LineNr">16018 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-duplicate/disp32 +<span id="L16019" class="LineNr">16019 </span> <span class="subxComment">#</span> +<span id="L16020" class="LineNr">16020 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L16021" class="LineNr">16021 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16022" class="LineNr">16022 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-break/disp32 +<span id="L16023" class="LineNr">16023 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L16024" class="LineNr">16024 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16025" class="LineNr">16025 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-loop/disp32 +<span id="L16026" class="LineNr">16026 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L16027" class="LineNr">16027 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16028" class="LineNr">16028 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-lookup/disp32 +<span id="L16029" class="LineNr">16029 </span> <span class="subxComment"># save function name</span> +<span id="L16030" class="LineNr">16030 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx %edi) <span class="subxComment"># Function-name</span> +<span id="L16031" class="LineNr">16031 </span> <span class="subxComment"># save function inouts</span> +<span id="L16032" class="LineNr">16032 </span> { +<span id="L16033" class="LineNr">16033 </span><span class="Constant">$populate-mu-function-header:check-for-inout</span>: +<span id="L16034" class="LineNr">16034 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16035" class="LineNr">16035 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16036" class="LineNr">16036 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16037" class="LineNr">16037 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16038" class="LineNr">16038 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16039" class="LineNr">16039 </span> <span class="subxComment"># if (word-slice == '{') goto done</span> +<span id="L16040" class="LineNr">16040 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16041" class="LineNr">16041 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16042" class="LineNr">16042 </span> 0f 85/jump-if-!= $populate-mu-function-header:done/disp32 +<span id="L16043" class="LineNr">16043 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16044" class="LineNr">16044 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16045" class="LineNr">16045 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16046" class="LineNr">16046 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16047" class="LineNr">16047 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16048" class="LineNr">16048 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16049" class="LineNr">16049 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16050" class="LineNr">16050 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16051" class="LineNr">16051 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16052" class="LineNr">16052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16053" class="LineNr">16053 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16054" class="LineNr">16054 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L16055" class="LineNr">16055 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16056" class="LineNr">16056 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16057" class="LineNr">16057 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16058" class="LineNr">16058 </span> 0f 85/jump-if-!= $populate-mu-function-header:error2/disp32 +<span id="L16059" class="LineNr">16059 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L16060" class="LineNr">16060 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L16061" class="LineNr">16061 </span> { +<span id="L16062" class="LineNr">16062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16063" class="LineNr">16063 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L16064" class="LineNr">16064 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16065" class="LineNr">16065 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16066" class="LineNr">16066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16067" class="LineNr">16067 </span> (<a href='mu.subx.html#L16564'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16068" class="LineNr">16068 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16069" class="LineNr">16069 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-nested-addr-inout/disp32 +<span id="L16070" class="LineNr">16070 </span> } +<span id="L16071" class="LineNr">16071 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L16072" class="LineNr">16072 </span> <span class="subxComment">#</span> +<span id="L16073" class="LineNr">16073 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16074" class="LineNr">16074 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L16075" class="LineNr">16075 </span> (<a href='mu.subx.html#L20010'>append-list</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+8) *(edi+0xc) %eax) <span class="subxComment"># Function-inouts, Function-inouts</span> +<span id="L16076" class="LineNr">16076 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L16077" class="LineNr">16077 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ebx) +<span id="L16078" class="LineNr">16078 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebx+4)) +<span id="L16079" class="LineNr">16079 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L16080" class="LineNr">16080 </span> <span class="subxComment">#</span> +<span id="L16081" class="LineNr">16081 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16082" class="LineNr">16082 </span> } +<span id="L16083" class="LineNr">16083 </span> <span class="subxComment"># save function outputs</span> +<span id="L16084" class="LineNr">16084 </span> { +<span id="L16085" class="LineNr">16085 </span><span class="Constant">$populate-mu-function-header:check-for-out</span>: +<span id="L16086" class="LineNr">16086 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16087" class="LineNr">16087 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L16088" class="LineNr">16088 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16089" class="LineNr">16089 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16090" class="LineNr">16090 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16091" class="LineNr">16091 </span> <span class="subxComment"># if (word-slice == '{') break</span> +<span id="L16092" class="LineNr">16092 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16093" class="LineNr">16093 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16094" class="LineNr">16094 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16095" class="LineNr">16095 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16096" class="LineNr">16096 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16097" class="LineNr">16097 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16098" class="LineNr">16098 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16099" class="LineNr">16099 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16100" class="LineNr">16100 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16101" class="LineNr">16101 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16102" class="LineNr">16102 </span> 0f 85/jump-if-!= $populate-mu-function-header:error1/disp32 +<span id="L16103" class="LineNr">16103 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16104" class="LineNr">16104 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16105" class="LineNr">16105 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L16106" class="LineNr">16106 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L16107" class="LineNr">16107 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16108" class="LineNr">16108 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16109" class="LineNr">16109 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16110" class="LineNr">16110 </span> 0f 84/jump-if-= $populate-mu-function-header:error3/disp32 +<span id="L16111" class="LineNr">16111 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L16112" class="LineNr">16112 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16113" class="LineNr">16113 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L16114" class="LineNr">16114 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16115" class="LineNr">16115 </span> 0f 84/jump-if-= $populate-mu-function-header:error4/disp32 +<span id="L16116" class="LineNr">16116 </span> <span class="subxComment"># if v->type is an addr, abort</span> +<span id="L16117" class="LineNr">16117 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16118" class="LineNr">16118 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16119" class="LineNr">16119 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16120" class="LineNr">16120 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16121" class="LineNr">16121 </span> 0f 85/jump-if-!= $populate-mu-function-header:error-addr-output/disp32 +<span id="L16122" class="LineNr">16122 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16123" class="LineNr">16123 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L16124" class="LineNr">16124 </span> (<a href='mu.subx.html#L20010'>append-list</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x10) *(edi+0x14) %eax) <span class="subxComment"># Function-outputs, Function-outputs</span> +<span id="L16125" class="LineNr">16125 </span> <span class="subxComment">#</span> +<span id="L16126" class="LineNr">16126 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16127" class="LineNr">16127 </span> } +<span id="L16128" class="LineNr">16128 </span><span class="Constant">$populate-mu-function-header:done</span>: +<span id="L16129" class="LineNr">16129 </span> (<a href='mu.subx.html#L18375'>check-no-tokens-left</a> *(ebp+8)) +<span id="L16130" class="LineNr">16130 </span><span class="Constant">$populate-mu-function-header:end</span>: +<span id="L16131" class="LineNr">16131 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16132" class="LineNr">16132 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L16133" class="LineNr">16133 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16134" class="LineNr">16134 </span> 5f/pop-to-edi +<span id="L16135" class="LineNr">16135 </span> 5b/pop-to-ebx +<span id="L16136" class="LineNr">16136 </span> 5a/pop-to-edx +<span id="L16137" class="LineNr">16137 </span> 59/pop-to-ecx +<span id="L16138" class="LineNr">16138 </span> 58/pop-to-eax +<span id="L16139" class="LineNr">16139 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16140" class="LineNr">16140 </span> 89/<- %esp 5/r32/ebp +<span id="L16141" class="LineNr">16141 </span> 5d/pop-to-ebp +<span id="L16142" class="LineNr">16142 </span> c3/return +<span id="L16143" class="LineNr">16143 </span> +<span id="L16144" class="LineNr">16144 </span><span class="Constant">$populate-mu-function-header:error1</span>: +<span id="L16145" class="LineNr">16145 </span> <span class="subxComment"># error("function header not in form 'fn <name> {'")</span> +<span id="L16146" class="LineNr">16146 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"function header not in form 'fn <name> [inouts] [-> outputs] {' -- '"</span>) +<span id="L16147" class="LineNr">16147 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16148" class="LineNr">16148 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16149" class="LineNr">16149 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L16150" class="LineNr">16150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L16151" class="LineNr">16151 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16152" class="LineNr">16152 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16153" class="LineNr">16153 </span> <span class="subxComment"># never gets here</span> +<span id="L16154" class="LineNr">16154 </span> +<span id="L16155" class="LineNr">16155 </span><span class="Constant">$populate-mu-function-header:error2</span>: +<span id="L16156" class="LineNr">16156 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L16157" class="LineNr">16157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16158" class="LineNr">16158 </span> 50/push-eax +<span id="L16159" class="LineNr">16159 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16160" class="LineNr">16160 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16161" class="LineNr">16161 </span> 58/pop-to-eax +<span id="L16162" class="LineNr">16162 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function inout '"</span>) +<span id="L16163" class="LineNr">16163 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16164" class="LineNr">16164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16165" class="LineNr">16165 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot be in a register"</span>) +<span id="L16166" class="LineNr">16166 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16167" class="LineNr">16167 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16168" class="LineNr">16168 </span> <span class="subxComment"># never gets here</span> +<span id="L16169" class="LineNr">16169 </span> +<span id="L16170" class="LineNr">16170 </span><span class="Constant">$populate-mu-function-header:error3</span>: +<span id="L16171" class="LineNr">16171 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L16172" class="LineNr">16172 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16173" class="LineNr">16173 </span> 50/push-eax +<span id="L16174" class="LineNr">16174 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16175" class="LineNr">16175 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16176" class="LineNr">16176 </span> 58/pop-to-eax +<span id="L16177" class="LineNr">16177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function output '"</span>) +<span id="L16178" class="LineNr">16178 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16179" class="LineNr">16179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16180" class="LineNr">16180 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16181" class="LineNr">16181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' must be in a register, in instruction '"</span>) +<span id="L16182" class="LineNr">16182 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16183" class="LineNr">16183 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x14) *(ebp+8)) +<span id="L16184" class="LineNr">16184 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L16185" class="LineNr">16185 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16186" class="LineNr">16186 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16187" class="LineNr">16187 </span> <span class="subxComment"># never gets here</span> +<span id="L16188" class="LineNr">16188 </span> +<span id="L16189" class="LineNr">16189 </span><span class="Constant">$populate-mu-function-header:error4</span>: +<span id="L16190" class="LineNr">16190 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L16191" class="LineNr">16191 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16192" class="LineNr">16192 </span> 50/push-eax +<span id="L16193" class="LineNr">16193 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16194" class="LineNr">16194 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16195" class="LineNr">16195 </span> 58/pop-to-eax +<span id="L16196" class="LineNr">16196 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": function outputs cannot be named; rename '"</span>) +<span id="L16197" class="LineNr">16197 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16198" class="LineNr">16198 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16199" class="LineNr">16199 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16200" class="LineNr">16200 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L16201" class="LineNr">16201 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16202" class="LineNr">16202 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16203" class="LineNr">16203 </span> <span class="subxComment"># never gets here</span> +<span id="L16204" class="LineNr">16204 </span> +<span id="L16205" class="LineNr">16205 </span><span class="Constant">$populate-mu-function-header:error-duplicate</span>: +<span id="L16206" class="LineNr">16206 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16207" class="LineNr">16207 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L16208" class="LineNr">16208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">" defined more than once\n"</span>) +<span id="L16209" class="LineNr">16209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16210" class="LineNr">16210 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16211" class="LineNr">16211 </span> <span class="subxComment"># never gets here</span> +<span id="L16212" class="LineNr">16212 </span> +<span id="L16213" class="LineNr">16213 </span><span class="Constant">$populate-mu-function-header:error-break</span>: +<span id="L16214" class="LineNr">16214 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"Sorry, I've reserved all function names starting with 'break' for now. Please contact mu@akkartik.com.\n"</span>) +<span id="L16215" class="LineNr">16215 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16216" class="LineNr">16216 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16217" class="LineNr">16217 </span> <span class="subxComment"># never gets here</span> +<span id="L16218" class="LineNr">16218 </span> +<span id="L16219" class="LineNr">16219 </span><span class="Constant">$populate-mu-function-header:error-loop</span>: +<span id="L16220" class="LineNr">16220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"Sorry, I've reserved all function names starting with 'loop' for now. Please contact mu@akkartik.com.\n"</span>) +<span id="L16221" class="LineNr">16221 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16222" class="LineNr">16222 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16223" class="LineNr">16223 </span> <span class="subxComment"># never gets here</span> +<span id="L16224" class="LineNr">16224 </span> +<span id="L16225" class="LineNr">16225 </span><span class="Constant">$populate-mu-function-header:error-lookup</span>: +<span id="L16226" class="LineNr">16226 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"cannot define a function called 'lookup'\n"</span>) +<span id="L16227" class="LineNr">16227 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16228" class="LineNr">16228 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16229" class="LineNr">16229 </span> <span class="subxComment"># never gets here</span> +<span id="L16230" class="LineNr">16230 </span> +<span id="L16231" class="LineNr">16231 </span><span class="Constant">$populate-mu-function-header:error-addr-output</span>: +<span id="L16232" class="LineNr">16232 </span> <span class="subxComment"># error("fn " fn ": output cannot have an addr type; that could allow unsafe addresses to escape the function")</span> +<span id="L16233" class="LineNr">16233 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16234" class="LineNr">16234 </span> 50/push-eax +<span id="L16235" class="LineNr">16235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16236" class="LineNr">16236 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16237" class="LineNr">16237 </span> 58/pop-to-eax +<span id="L16238" class="LineNr">16238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output cannot have an addr type; that could allow unsafe addresses to escape the function\n"</span>) +<span id="L16239" class="LineNr">16239 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16240" class="LineNr">16240 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16241" class="LineNr">16241 </span> <span class="subxComment"># never gets here</span> +<span id="L16242" class="LineNr">16242 </span> +<span id="L16243" class="LineNr">16243 </span><span class="Constant">$populate-mu-function-header:error-nested-addr-inout</span>: +<span id="L16244" class="LineNr">16244 </span> <span class="subxComment"># error("fn " fn ": inout '" var "' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function")</span> +<span id="L16245" class="LineNr">16245 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L16246" class="LineNr">16246 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16247" class="LineNr">16247 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16248" class="LineNr">16248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": inout '"</span>) +<span id="L16249" class="LineNr">16249 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16250" class="LineNr">16250 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16251" class="LineNr">16251 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L16252" class="LineNr">16252 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function\n"</span>) +<span id="L16253" class="LineNr">16253 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L16254" class="LineNr">16254 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L16255" class="LineNr">16255 </span> <span class="subxComment"># never gets here</span> +<span id="L16256" class="LineNr">16256 </span> +<span id="L16257" class="LineNr">16257 </span><span class="subxComment"># scenarios considered:</span> +<span id="L16258" class="LineNr">16258 </span><span class="subxComment"># ✓ fn foo</span> +<span id="L16259" class="LineNr">16259 </span><span class="subxComment"># ✗ fn foo {</span> +<span id="L16260" class="LineNr">16260 </span><span class="subxComment"># ✓ fn foo x</span> +<span id="L16261" class="LineNr">16261 </span><span class="subxComment"># ✓ fn foo x: int</span> +<span id="L16262" class="LineNr">16262 </span><span class="subxComment"># ✓ fn foo x: int -> _/eax: int</span> +<span id="L16263" class="LineNr">16263 </span><span class="subxComment"># TODO:</span> +<span id="L16264" class="LineNr">16264 </span><span class="subxComment"># disallow outputs of type `(... addr ...)`</span> +<span id="L16265" class="LineNr">16265 </span><span class="subxComment"># disallow inputs of type `(... addr ... addr ...)`</span> +<span id="L16266" class="LineNr">16266 </span><span class="subxFunction">populate-mu-function-signature</span>: <span class="subxComment"># first-line: (addr stream byte), out: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L16267" class="LineNr">16267 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16268" class="LineNr">16268 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L16269" class="LineNr">16269 </span> <span class="subxComment"># next-mu-token(first-line, word-slice)</span> +<span id="L16270" class="LineNr">16270 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L16271" class="LineNr">16271 </span> <span class="subxComment"># out->name = slice-to-string(word-slice)</span> +<span id="L16272" class="LineNr">16272 </span> <span class="subxComment"># ## inouts</span> +<span id="L16273" class="LineNr">16273 </span> <span class="subxComment"># while true</span> +<span id="L16274" class="LineNr">16274 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16275" class="LineNr">16275 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L16276" class="LineNr">16276 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16277" class="LineNr">16277 </span> <span class="subxComment"># assert(word-slice not in '{' '}')</span> +<span id="L16278" class="LineNr">16278 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16279" class="LineNr">16279 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L16280" class="LineNr">16280 </span> <span class="subxComment"># # v->block-depth is implicitly 0</span> +<span id="L16281" class="LineNr">16281 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16282" class="LineNr">16282 </span> <span class="subxComment"># ## outputs</span> +<span id="L16283" class="LineNr">16283 </span> <span class="subxComment"># while true</span> +<span id="L16284" class="LineNr">16284 </span> <span class="subxComment"># word-slice = next-mu-token(first-line)</span> +<span id="L16285" class="LineNr">16285 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L16286" class="LineNr">16286 </span> <span class="subxComment"># assert(word-slice not in '{' '}' '->')</span> +<span id="L16287" class="LineNr">16287 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, first-line)</span> +<span id="L16288" class="LineNr">16288 </span> <span class="subxComment"># assert(v->register != null)</span> +<span id="L16289" class="LineNr">16289 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16290" class="LineNr">16290 </span> <span class="subxComment">#</span> +<span id="L16291" class="LineNr">16291 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16292" class="LineNr">16292 </span> 55/push-ebp +<span id="L16293" class="LineNr">16293 </span> 89/<- %ebp 4/r32/esp +<span id="L16294" class="LineNr">16294 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16295" class="LineNr">16295 </span> 50/push-eax +<span id="L16296" class="LineNr">16296 </span> 51/push-ecx +<span id="L16297" class="LineNr">16297 </span> 52/push-edx +<span id="L16298" class="LineNr">16298 </span> 53/push-ebx +<span id="L16299" class="LineNr">16299 </span> 57/push-edi +<span id="L16300" class="LineNr">16300 </span> <span class="subxComment"># edi = out</span> +<span id="L16301" class="LineNr">16301 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L16302" class="LineNr">16302 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L16303" class="LineNr">16303 </span> 68/push 0/imm32/end +<span id="L16304" class="LineNr">16304 </span> 68/push 0/imm32/start +<span id="L16305" class="LineNr">16305 </span> 89/<- %ecx 4/r32/esp +<span id="L16306" class="LineNr">16306 </span> <span class="subxComment"># var v/ebx: (handle var)</span> +<span id="L16307" class="LineNr">16307 </span> 68/push 0/imm32 +<span id="L16308" class="LineNr">16308 </span> 68/push 0/imm32 +<span id="L16309" class="LineNr">16309 </span> 89/<- %ebx 4/r32/esp +<span id="L16310" class="LineNr">16310 </span> <span class="subxComment"># read function name</span> +<span id="L16311" class="LineNr">16311 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16312" class="LineNr">16312 </span> <span class="subxComment"># error checking</span> +<span id="L16313" class="LineNr">16313 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16314" class="LineNr">16314 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16315" class="LineNr">16315 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16316" class="LineNr">16316 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16317" class="LineNr">16317 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16318" class="LineNr">16318 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16319" class="LineNr">16319 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16320" class="LineNr">16320 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16321" class="LineNr">16321 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16322" class="LineNr">16322 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16323" class="LineNr">16323 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16324" class="LineNr">16324 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16325" class="LineNr">16325 </span> <span class="subxComment"># if word-slice already defined, abort</span> +<span id="L16326" class="LineNr">16326 </span> (<a href='mu.subx.html#L16618'>function-exists?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16327" class="LineNr">16327 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16328" class="LineNr">16328 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-duplicate/disp32 +<span id="L16329" class="LineNr">16329 </span> <span class="subxComment">#</span> +<span id="L16330" class="LineNr">16330 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L16331" class="LineNr">16331 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16332" class="LineNr">16332 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-break/disp32 +<span id="L16333" class="LineNr">16333 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L16334" class="LineNr">16334 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16335" class="LineNr">16335 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-loop/disp32 +<span id="L16336" class="LineNr">16336 </span> <span class="subxComment"># save function name</span> +<span id="L16337" class="LineNr">16337 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx %edi) <span class="subxComment"># Function-name</span> +<span id="L16338" class="LineNr">16338 </span> <span class="subxComment"># save function inouts</span> +<span id="L16339" class="LineNr">16339 </span> { +<span id="L16340" class="LineNr">16340 </span><span class="Constant">$populate-mu-function-signature:check-for-inout</span>: +<span id="L16341" class="LineNr">16341 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16342" class="LineNr">16342 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16343" class="LineNr">16343 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16344" class="LineNr">16344 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16345" class="LineNr">16345 </span> <span class="subxComment"># if (word-slice == '->') break</span> +<span id="L16346" class="LineNr">16346 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16347" class="LineNr">16347 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16348" class="LineNr">16348 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16349" class="LineNr">16349 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16350" class="LineNr">16350 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16351" class="LineNr">16351 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16352" class="LineNr">16352 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16353" class="LineNr">16353 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16354" class="LineNr">16354 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16355" class="LineNr">16355 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16356" class="LineNr">16356 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16357" class="LineNr">16357 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16358" class="LineNr">16358 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16359" class="LineNr">16359 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L16360" class="LineNr">16360 </span> <span class="subxComment"># if (v->register != null) abort</span> +<span id="L16361" class="LineNr">16361 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16362" class="LineNr">16362 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16363" class="LineNr">16363 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16364" class="LineNr">16364 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L16365" class="LineNr">16365 </span> <span class="subxComment"># if function name is not "main"</span> +<span id="L16366" class="LineNr">16366 </span> <span class="subxComment"># and v->type contains an 'addr' anywhere except the start, abort</span> +<span id="L16367" class="LineNr">16367 </span> { +<span id="L16368" class="LineNr">16368 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16369" class="LineNr">16369 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"main"</span>) <span class="subxComment"># => eax</span> +<span id="L16370" class="LineNr">16370 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16371" class="LineNr">16371 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16372" class="LineNr">16372 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16373" class="LineNr">16373 </span> (<a href='mu.subx.html#L16564'>addr-payload-contains-addr?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16374" class="LineNr">16374 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16375" class="LineNr">16375 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-nested-addr-inout/disp32 +<span id="L16376" class="LineNr">16376 </span> } +<span id="L16377" class="LineNr">16377 </span> <span class="subxComment"># assert(v->register == null)</span> +<span id="L16378" class="LineNr">16378 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16379" class="LineNr">16379 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16380" class="LineNr">16380 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16381" class="LineNr">16381 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error2/disp32 +<span id="L16382" class="LineNr">16382 </span> <span class="subxComment"># v->block-depth is implicitly 0</span> +<span id="L16383" class="LineNr">16383 </span> <span class="subxComment">#</span> +<span id="L16384" class="LineNr">16384 </span> <span class="subxComment"># out->inouts = append(v, out->inouts)</span> +<span id="L16385" class="LineNr">16385 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Function-inouts</span> +<span id="L16386" class="LineNr">16386 </span> (<a href='mu.subx.html#L20010'>append-list</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+8) *(edi+0xc) %eax) <span class="subxComment"># Function-inouts, Function-inouts</span> +<span id="L16387" class="LineNr">16387 </span> <span class="subxComment">#</span> +<span id="L16388" class="LineNr">16388 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16389" class="LineNr">16389 </span> } +<span id="L16390" class="LineNr">16390 </span> <span class="subxComment"># save function outputs</span> +<span id="L16391" class="LineNr">16391 </span> { +<span id="L16392" class="LineNr">16392 </span><span class="Constant">$populate-mu-function-signature:check-for-out</span>: +<span id="L16393" class="LineNr">16393 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L16394" class="LineNr">16394 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16395" class="LineNr">16395 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16396" class="LineNr">16396 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L16397" class="LineNr">16397 </span> <span class="subxComment"># if (word-slice == '{') abort</span> +<span id="L16398" class="LineNr">16398 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L16399" class="LineNr">16399 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16400" class="LineNr">16400 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16401" class="LineNr">16401 </span> <span class="subxComment"># if (word-slice == '->') abort</span> +<span id="L16402" class="LineNr">16402 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L16403" class="LineNr">16403 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16404" class="LineNr">16404 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16405" class="LineNr">16405 </span> <span class="subxComment"># if (word-slice == '}') abort</span> +<span id="L16406" class="LineNr">16406 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L16407" class="LineNr">16407 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16408" class="LineNr">16408 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error1/disp32 +<span id="L16409" class="LineNr">16409 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L16410" class="LineNr">16410 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16411" class="LineNr">16411 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx *(ebp+8) %ebx %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L16412" class="LineNr">16412 </span> <span class="subxComment"># assert(var->register != null)</span> +<span id="L16413" class="LineNr">16413 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(v)</span> +<span id="L16414" class="LineNr">16414 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16415" class="LineNr">16415 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L16416" class="LineNr">16416 </span> 0f 84/jump-if-= $populate-mu-function-signature:error3/disp32 +<span id="L16417" class="LineNr">16417 </span> <span class="subxComment"># if (var->name != "_") abort</span> +<span id="L16418" class="LineNr">16418 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16419" class="LineNr">16419 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"_"</span>) <span class="subxComment"># => eax</span> +<span id="L16420" class="LineNr">16420 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16421" class="LineNr">16421 </span> 0f 84/jump-if-= $populate-mu-function-signature:error4/disp32 +<span id="L16422" class="LineNr">16422 </span> <span class="subxComment"># if function name is not "lookup"</span> +<span id="L16423" class="LineNr">16423 </span> <span class="subxComment"># and v->type is an addr, abort</span> +<span id="L16424" class="LineNr">16424 </span> { +<span id="L16425" class="LineNr">16425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16426" class="LineNr">16426 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"lookup"</span>) <span class="subxComment"># => eax</span> +<span id="L16427" class="LineNr">16427 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16428" class="LineNr">16428 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16429" class="LineNr">16429 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16430" class="LineNr">16430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16431" class="LineNr">16431 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16432" class="LineNr">16432 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16433" class="LineNr">16433 </span> 0f 85/jump-if-!= $populate-mu-function-signature:error-addr-output/disp32 +<span id="L16434" class="LineNr">16434 </span> } +<span id="L16435" class="LineNr">16435 </span> <span class="subxComment"># out->outputs = append(v, out->outputs)</span> +<span id="L16436" class="LineNr">16436 </span> 8d/copy-address *(edi+0x10) 0/r32/eax <span class="subxComment"># Function-outputs</span> +<span id="L16437" class="LineNr">16437 </span> (<a href='mu.subx.html#L20010'>append-list</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x10) *(edi+0x14) %eax) <span class="subxComment"># Function-outputs, Function-outputs</span> +<span id="L16438" class="LineNr">16438 </span> <span class="subxComment">#</span> +<span id="L16439" class="LineNr">16439 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L16440" class="LineNr">16440 </span> } +<span id="L16441" class="LineNr">16441 </span><span class="Constant">$populate-mu-function-signature:done</span>: +<span id="L16442" class="LineNr">16442 </span> (<a href='mu.subx.html#L18375'>check-no-tokens-left</a> *(ebp+8)) +<span id="L16443" class="LineNr">16443 </span><span class="Constant">$populate-mu-function-signature:end</span>: +<span id="L16444" class="LineNr">16444 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L16445" class="LineNr">16445 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L16446" class="LineNr">16446 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16447" class="LineNr">16447 </span> 5f/pop-to-edi +<span id="L16448" class="LineNr">16448 </span> 5b/pop-to-ebx +<span id="L16449" class="LineNr">16449 </span> 5a/pop-to-edx +<span id="L16450" class="LineNr">16450 </span> 59/pop-to-ecx +<span id="L16451" class="LineNr">16451 </span> 58/pop-to-eax +<span id="L16452" class="LineNr">16452 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16453" class="LineNr">16453 </span> 89/<- %esp 5/r32/ebp +<span id="L16454" class="LineNr">16454 </span> 5d/pop-to-ebp +<span id="L16455" class="LineNr">16455 </span> c3/return +<span id="L16456" class="LineNr">16456 </span> +<span id="L16457" class="LineNr">16457 </span><span class="Constant">$populate-mu-function-signature:error1</span>: +<span id="L16458" class="LineNr">16458 </span> <span class="subxComment"># error("function signature not in form 'fn <name> {'")</span> +<span id="L16459" class="LineNr">16459 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"function signature not in form 'fn <name> [inouts] [-> outputs] {' -- '"</span>) +<span id="L16460" class="LineNr">16460 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16461" class="LineNr">16461 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16462" class="LineNr">16462 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L16463" class="LineNr">16463 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L16464" class="LineNr">16464 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16465" class="LineNr">16465 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16466" class="LineNr">16466 </span> <span class="subxComment"># never gets here</span> +<span id="L16467" class="LineNr">16467 </span> +<span id="L16468" class="LineNr">16468 </span><span class="Constant">$populate-mu-function-signature:error2</span>: +<span id="L16469" class="LineNr">16469 </span> <span class="subxComment"># error("fn " fn ": function inout '" var "' cannot be in a register")</span> +<span id="L16470" class="LineNr">16470 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16471" class="LineNr">16471 </span> 50/push-eax +<span id="L16472" class="LineNr">16472 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16473" class="LineNr">16473 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16474" class="LineNr">16474 </span> 58/pop-to-eax +<span id="L16475" class="LineNr">16475 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function inout '"</span>) +<span id="L16476" class="LineNr">16476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16477" class="LineNr">16477 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16478" class="LineNr">16478 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot be in a register"</span>) +<span id="L16479" class="LineNr">16479 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16480" class="LineNr">16480 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16481" class="LineNr">16481 </span> <span class="subxComment"># never gets here</span> +<span id="L16482" class="LineNr">16482 </span> +<span id="L16483" class="LineNr">16483 </span><span class="Constant">$populate-mu-function-signature:error3</span>: +<span id="L16484" class="LineNr">16484 </span> <span class="subxComment"># error("fn " fn ": function output '" var "' must be in a register")</span> +<span id="L16485" class="LineNr">16485 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16486" class="LineNr">16486 </span> 50/push-eax +<span id="L16487" class="LineNr">16487 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16488" class="LineNr">16488 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16489" class="LineNr">16489 </span> 58/pop-to-eax +<span id="L16490" class="LineNr">16490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function output '"</span>) +<span id="L16491" class="LineNr">16491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16492" class="LineNr">16492 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16493" class="LineNr">16493 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16494" class="LineNr">16494 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register, in instruction '"</span>) +<span id="L16495" class="LineNr">16495 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L16496" class="LineNr">16496 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x10) *(ebp+8)) +<span id="L16497" class="LineNr">16497 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L16498" class="LineNr">16498 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16499" class="LineNr">16499 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16500" class="LineNr">16500 </span> <span class="subxComment"># never gets here</span> +<span id="L16501" class="LineNr">16501 </span> +<span id="L16502" class="LineNr">16502 </span><span class="Constant">$populate-mu-function-signature:error4</span>: +<span id="L16503" class="LineNr">16503 </span> <span class="subxComment"># error("fn " fn ": function outputs cannot be named; rename '" var "' in the header to '_'")</span> +<span id="L16504" class="LineNr">16504 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16505" class="LineNr">16505 </span> 50/push-eax +<span id="L16506" class="LineNr">16506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16507" class="LineNr">16507 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16508" class="LineNr">16508 </span> 58/pop-to-eax +<span id="L16509" class="LineNr">16509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": function outputs cannot be named; rename '"</span>) +<span id="L16510" class="LineNr">16510 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16511" class="LineNr">16511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16512" class="LineNr">16512 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16513" class="LineNr">16513 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' in the header to '_'\n"</span>) +<span id="L16514" class="LineNr">16514 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16515" class="LineNr">16515 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16516" class="LineNr">16516 </span> <span class="subxComment"># never gets here</span> +<span id="L16517" class="LineNr">16517 </span> +<span id="L16518" class="LineNr">16518 </span><span class="Constant">$populate-mu-function-signature:error-duplicate</span>: +<span id="L16519" class="LineNr">16519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16520" class="LineNr">16520 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x10) %ecx) +<span id="L16521" class="LineNr">16521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" defined more than once\n"</span>) +<span id="L16522" class="LineNr">16522 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16523" class="LineNr">16523 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16524" class="LineNr">16524 </span> <span class="subxComment"># never gets here</span> +<span id="L16525" class="LineNr">16525 </span> +<span id="L16526" class="LineNr">16526 </span><span class="Constant">$populate-mu-function-signature:error-break</span>: +<span id="L16527" class="LineNr">16527 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"Sorry, I've reserved all function names starting with 'break' for now. Please contact mu@akkartik.com.\n"</span>) +<span id="L16528" class="LineNr">16528 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16529" class="LineNr">16529 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16530" class="LineNr">16530 </span> <span class="subxComment"># never gets here</span> +<span id="L16531" class="LineNr">16531 </span> +<span id="L16532" class="LineNr">16532 </span><span class="Constant">$populate-mu-function-signature:error-loop</span>: +<span id="L16533" class="LineNr">16533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"Sorry, I've reserved all function names starting with 'loop' for now. Please contact mu@akkartik.com.\n"</span>) +<span id="L16534" class="LineNr">16534 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16535" class="LineNr">16535 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16536" class="LineNr">16536 </span> <span class="subxComment"># never gets here</span> +<span id="L16537" class="LineNr">16537 </span> +<span id="L16538" class="LineNr">16538 </span><span class="Constant">$populate-mu-function-signature:error-addr-output</span>: +<span id="L16539" class="LineNr">16539 </span> <span class="subxComment"># error("fn " fn ": output cannot have an addr type; that could allow unsafe addresses to escape the function")</span> +<span id="L16540" class="LineNr">16540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16541" class="LineNr">16541 </span> 50/push-eax +<span id="L16542" class="LineNr">16542 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16543" class="LineNr">16543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16544" class="LineNr">16544 </span> 58/pop-to-eax +<span id="L16545" class="LineNr">16545 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": output cannot have an addr type; that could allow unsafe addresses to escape the function\n"</span>) +<span id="L16546" class="LineNr">16546 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16547" class="LineNr">16547 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16548" class="LineNr">16548 </span> <span class="subxComment"># never gets here</span> +<span id="L16549" class="LineNr">16549 </span> +<span id="L16550" class="LineNr">16550 </span><span class="Constant">$populate-mu-function-signature:error-nested-addr-inout</span>: +<span id="L16551" class="LineNr">16551 </span> <span class="subxComment"># error("fn " fn ": inout '" var "' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function")</span> +<span id="L16552" class="LineNr">16552 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L16553" class="LineNr">16553 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16554" class="LineNr">16554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16555" class="LineNr">16555 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": inout '"</span>) +<span id="L16556" class="LineNr">16556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L16557" class="LineNr">16557 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16558" class="LineNr">16558 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L16559" class="LineNr">16559 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot contain 'addr' anywhere in the type except the first word; that could allow unsafe addresses to escape the function\n"</span>) +<span id="L16560" class="LineNr">16560 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L16561" class="LineNr">16561 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L16562" class="LineNr">16562 </span> <span class="subxComment"># never gets here</span> +<span id="L16563" class="LineNr">16563 </span> +<span id="L16564" class="LineNr">16564 </span><span class="subxFunction">addr-payload-contains-addr?</span>: <span class="subxComment"># v: (addr var) -> result/eax: boolean</span> +<span id="L16565" class="LineNr">16565 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16566" class="LineNr">16566 </span> 55/push-ebp +<span id="L16567" class="LineNr">16567 </span> 89/<- %ebp 4/r32/esp +<span id="L16568" class="LineNr">16568 </span> <span class="subxComment"># var t/eax: (addr type-tree) = v->type</span> +<span id="L16569" class="LineNr">16569 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16570" class="LineNr">16570 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16571" class="LineNr">16571 </span> <span class="subxComment"># if t->right contains addr, return true</span> +<span id="L16572" class="LineNr">16572 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L16573" class="LineNr">16573 </span> (<a href='mu.subx.html#L16581'>type-tree-contains?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L16574" class="LineNr">16574 </span> <span class="subxComment"># we don't have to look at t->left as long as it's guaranteed to be an atom</span> +<span id="L16575" class="LineNr">16575 </span><span class="Constant">$addr-payload-contains-addr?:end</span>: +<span id="L16576" class="LineNr">16576 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16577" class="LineNr">16577 </span> 89/<- %esp 5/r32/ebp +<span id="L16578" class="LineNr">16578 </span> 5d/pop-to-ebp +<span id="L16579" class="LineNr">16579 </span> c3/return +<span id="L16580" class="LineNr">16580 </span> +<span id="L16581" class="LineNr">16581 </span><span class="subxFunction">type-tree-contains?</span>: <span class="subxComment"># t: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L16582" class="LineNr">16582 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16583" class="LineNr">16583 </span> 55/push-ebp +<span id="L16584" class="LineNr">16584 </span> 89/<- %ebp 4/r32/esp +<span id="L16585" class="LineNr">16585 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16586" class="LineNr">16586 </span> 51/push-ecx +<span id="L16587" class="LineNr">16587 </span> <span class="subxComment"># if t is null, return false</span> +<span id="L16588" class="LineNr">16588 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16589" class="LineNr">16589 </span> 3d/compare-eax-and 0/imm32 +<span id="L16590" class="LineNr">16590 </span> 0f 84/jump-if-= $type-tree-contains?:end/disp32 <span class="subxComment"># eax changes type</span> +<span id="L16591" class="LineNr">16591 </span> <span class="subxComment"># if t is an atom, return (t->value == n)</span> +<span id="L16592" class="LineNr">16592 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L16593" class="LineNr">16593 </span> { +<span id="L16594" class="LineNr">16594 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16595" class="LineNr">16595 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L16596" class="LineNr">16596 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L16597" class="LineNr">16597 </span> 0f 94/set-if-= %al +<span id="L16598" class="LineNr">16598 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L16599" class="LineNr">16599 </span> eb/jump $type-tree-contains?:end/disp8 +<span id="L16600" class="LineNr">16600 </span> } +<span id="L16601" class="LineNr">16601 </span> <span class="subxComment"># if t->left contains n, return true</span> +<span id="L16602" class="LineNr">16602 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L16603" class="LineNr">16603 </span> (<a href='mu.subx.html#L16581'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16604" class="LineNr">16604 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16605" class="LineNr">16605 </span> 75/jump-if-!= $type-tree-contains?:end/disp8 +<span id="L16606" class="LineNr">16606 </span> <span class="subxComment"># otherwise return whether t->right contains n</span> +<span id="L16607" class="LineNr">16607 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L16608" class="LineNr">16608 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L16609" class="LineNr">16609 </span> (<a href='mu.subx.html#L16581'>type-tree-contains?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L16610" class="LineNr">16610 </span><span class="Constant">$type-tree-contains?:end</span>: +<span id="L16611" class="LineNr">16611 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16612" class="LineNr">16612 </span> 59/pop-to-ecx +<span id="L16613" class="LineNr">16613 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16614" class="LineNr">16614 </span> 89/<- %esp 5/r32/ebp +<span id="L16615" class="LineNr">16615 </span> 5d/pop-to-ebp +<span id="L16616" class="LineNr">16616 </span> c3/return +<span id="L16617" class="LineNr">16617 </span> +<span id="L16618" class="LineNr">16618 </span><span class="subxFunction">function-exists?</span>: <span class="subxComment"># s: (addr slice) -> result/eax: boolean</span> +<span id="L16619" class="LineNr">16619 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16620" class="LineNr">16620 </span> 55/push-ebp +<span id="L16621" class="LineNr">16621 </span> 89/<- %ebp 4/r32/esp +<span id="L16622" class="LineNr">16622 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16623" class="LineNr">16623 </span> 51/push-ecx +<span id="L16624" class="LineNr">16624 </span> <span class="subxComment"># var curr/ecx: (addr function) = functions</span> +<span id="L16625" class="LineNr">16625 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L16626" class="LineNr">16626 </span> 89/<- %ecx 0/r32/eax +<span id="L16627" class="LineNr">16627 </span> { +<span id="L16628" class="LineNr">16628 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L16629" class="LineNr">16629 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16630" class="LineNr">16630 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16631" class="LineNr">16631 </span> <span class="subxComment"># if (curr->name == s) return true</span> +<span id="L16632" class="LineNr">16632 </span> { +<span id="L16633" class="LineNr">16633 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16634" class="LineNr">16634 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L16635" class="LineNr">16635 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16636" class="LineNr">16636 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16637" class="LineNr">16637 </span> b8/copy-to-eax 1/imm32/true +<span id="L16638" class="LineNr">16638 </span> e9/jump $function-exists?:end/disp32 +<span id="L16639" class="LineNr">16639 </span> } +<span id="L16640" class="LineNr">16640 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L16641" class="LineNr">16641 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L16642" class="LineNr">16642 </span> 89/<- %ecx 0/r32/eax +<span id="L16643" class="LineNr">16643 </span> <span class="subxComment">#</span> +<span id="L16644" class="LineNr">16644 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16645" class="LineNr">16645 </span> } +<span id="L16646" class="LineNr">16646 </span> <span class="subxComment"># var curr/ecx: (addr function) = signatures</span> +<span id="L16647" class="LineNr">16647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L16648" class="LineNr">16648 </span> 89/<- %ecx 0/r32/eax +<span id="L16649" class="LineNr">16649 </span> { +<span id="L16650" class="LineNr">16650 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L16651" class="LineNr">16651 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L16652" class="LineNr">16652 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16653" class="LineNr">16653 </span> <span class="subxComment"># if (curr->name == s) return true</span> +<span id="L16654" class="LineNr">16654 </span> { +<span id="L16655" class="LineNr">16655 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16656" class="LineNr">16656 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L16657" class="LineNr">16657 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16658" class="LineNr">16658 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L16659" class="LineNr">16659 </span> b8/copy-to-eax 1/imm32/true +<span id="L16660" class="LineNr">16660 </span> eb/jump $function-exists?:end/disp8 +<span id="L16661" class="LineNr">16661 </span> } +<span id="L16662" class="LineNr">16662 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L16663" class="LineNr">16663 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L16664" class="LineNr">16664 </span> 89/<- %ecx 0/r32/eax +<span id="L16665" class="LineNr">16665 </span> <span class="subxComment">#</span> +<span id="L16666" class="LineNr">16666 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L16667" class="LineNr">16667 </span> } +<span id="L16668" class="LineNr">16668 </span> <span class="subxComment"># return false</span> +<span id="L16669" class="LineNr">16669 </span> b8/copy-to-eax 0/imm32/false +<span id="L16670" class="LineNr">16670 </span><span class="Constant">$function-exists?:end</span>: +<span id="L16671" class="LineNr">16671 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L16672" class="LineNr">16672 </span> 59/pop-to-ecx +<span id="L16673" class="LineNr">16673 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16674" class="LineNr">16674 </span> 89/<- %esp 5/r32/ebp +<span id="L16675" class="LineNr">16675 </span> 5d/pop-to-ebp +<span id="L16676" class="LineNr">16676 </span> c3/return +<span id="L16677" class="LineNr">16677 </span> +<span id="L16678" class="LineNr">16678 </span><span class="subxTest">test-function-header-with-arg</span>: +<span id="L16679" class="LineNr">16679 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16680" class="LineNr">16680 </span> 55/push-ebp +<span id="L16681" class="LineNr">16681 </span> 89/<- %ebp 4/r32/esp +<span id="L16682" class="LineNr">16682 </span> <span class="subxComment"># setup</span> +<span id="L16683" class="LineNr">16683 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16684" class="LineNr">16684 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L16685" class="LineNr">16685 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16686" class="LineNr">16686 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16687" class="LineNr">16687 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16688" class="LineNr">16688 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16689" class="LineNr">16689 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16690" class="LineNr">16690 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16691" class="LineNr">16691 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16692" class="LineNr">16692 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"foo n: int {\n"</span>) +<span id="L16693" class="LineNr">16693 </span> <span class="subxComment"># var result/ecx: function</span> +<span id="L16694" class="LineNr">16694 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16695" class="LineNr">16695 </span> 89/<- %ecx 4/r32/esp +<span id="L16696" class="LineNr">16696 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) +<span id="L16697" class="LineNr">16697 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16698" class="LineNr">16698 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16699" class="LineNr">16699 </span> 68/push 0xc0/imm32/size +<span id="L16700" class="LineNr">16700 </span> 68/push 0/imm32/top +<span id="L16701" class="LineNr">16701 </span> 89/<- %ebx 4/r32/esp +<span id="L16702" class="LineNr">16702 </span> <span class="subxComment"># convert</span> +<span id="L16703" class="LineNr">16703 </span> (<a href='mu.subx.html#L15946'>populate-mu-function-header</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %ebx <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L16704" class="LineNr">16704 </span> <span class="subxComment"># check result->name</span> +<span id="L16705" class="LineNr">16705 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16706" class="LineNr">16706 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"foo"</span> <span class="Constant">"F - <a href='mu.subx.html#L16678'>test-function-header-with-arg</a>/name"</span>) +<span id="L16707" class="LineNr">16707 </span> <span class="subxComment"># var v/edx: (addr var) = result->inouts->value</span> +<span id="L16708" class="LineNr">16708 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16709" class="LineNr">16709 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16710" class="LineNr">16710 </span> 89/<- %edx 0/r32/eax +<span id="L16711" class="LineNr">16711 </span> <span class="subxComment"># check v->name</span> +<span id="L16712" class="LineNr">16712 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16713" class="LineNr">16713 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L16678'>test-function-header-with-arg</a>/inout:0"</span>) +<span id="L16714" class="LineNr">16714 </span> <span class="subxComment"># check v->type</span> +<span id="L16715" class="LineNr">16715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16716" class="LineNr">16716 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16678'>test-function-header-with-arg</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16717" class="LineNr">16717 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16678'>test-function-header-with-arg</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16718" class="LineNr">16718 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16678'>test-function-header-with-arg</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16719" class="LineNr">16719 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16720" class="LineNr">16720 </span> 89/<- %esp 5/r32/ebp +<span id="L16721" class="LineNr">16721 </span> 5d/pop-to-ebp +<span id="L16722" class="LineNr">16722 </span> c3/return +<span id="L16723" class="LineNr">16723 </span> +<span id="L16724" class="LineNr">16724 </span><span class="subxTest">test-function-header-with-multiple-args</span>: +<span id="L16725" class="LineNr">16725 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16726" class="LineNr">16726 </span> 55/push-ebp +<span id="L16727" class="LineNr">16727 </span> 89/<- %ebp 4/r32/esp +<span id="L16728" class="LineNr">16728 </span> <span class="subxComment"># setup</span> +<span id="L16729" class="LineNr">16729 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16730" class="LineNr">16730 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L16731" class="LineNr">16731 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16732" class="LineNr">16732 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16733" class="LineNr">16733 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16734" class="LineNr">16734 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16735" class="LineNr">16735 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16736" class="LineNr">16736 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16737" class="LineNr">16737 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16738" class="LineNr">16738 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"foo a: int, b: int c: int {\n"</span>) +<span id="L16739" class="LineNr">16739 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L16740" class="LineNr">16740 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16741" class="LineNr">16741 </span> 89/<- %ecx 4/r32/esp +<span id="L16742" class="LineNr">16742 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) +<span id="L16743" class="LineNr">16743 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16744" class="LineNr">16744 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16745" class="LineNr">16745 </span> 68/push 0xc0/imm32/size +<span id="L16746" class="LineNr">16746 </span> 68/push 0/imm32/top +<span id="L16747" class="LineNr">16747 </span> 89/<- %ebx 4/r32/esp +<span id="L16748" class="LineNr">16748 </span> <span class="subxComment"># convert</span> +<span id="L16749" class="LineNr">16749 </span> (<a href='mu.subx.html#L15946'>populate-mu-function-header</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %ebx <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L16750" class="LineNr">16750 </span> <span class="subxComment"># check result->name</span> +<span id="L16751" class="LineNr">16751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16752" class="LineNr">16752 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"foo"</span> <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/name"</span>) +<span id="L16753" class="LineNr">16753 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L16754" class="LineNr">16754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16755" class="LineNr">16755 </span> 89/<- %edx 0/r32/eax +<span id="L16756" class="LineNr">16756 </span><span class="Constant">$test-function-header-with-multiple-args:inout0</span>: +<span id="L16757" class="LineNr">16757 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L16758" class="LineNr">16758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16759" class="LineNr">16759 </span> 89/<- %ebx 0/r32/eax +<span id="L16760" class="LineNr">16760 </span> <span class="subxComment"># check v->name</span> +<span id="L16761" class="LineNr">16761 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16762" class="LineNr">16762 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"a"</span> <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:0"</span>) <span class="subxComment"># Var-name</span> +<span id="L16763" class="LineNr">16763 </span> <span class="subxComment"># check v->type</span> +<span id="L16764" class="LineNr">16764 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16765" class="LineNr">16765 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16766" class="LineNr">16766 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16767" class="LineNr">16767 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16768" class="LineNr">16768 </span><span class="Constant">$test-function-header-with-multiple-args:inout1</span>: +<span id="L16769" class="LineNr">16769 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16770" class="LineNr">16770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16771" class="LineNr">16771 </span> 89/<- %edx 0/r32/eax +<span id="L16772" class="LineNr">16772 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16773" class="LineNr">16773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16774" class="LineNr">16774 </span> 89/<- %ebx 0/r32/eax +<span id="L16775" class="LineNr">16775 </span> <span class="subxComment"># check v->name</span> +<span id="L16776" class="LineNr">16776 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16777" class="LineNr">16777 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"b"</span> <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:1"</span>) <span class="subxComment"># Var-name</span> +<span id="L16778" class="LineNr">16778 </span> <span class="subxComment"># check v->type</span> +<span id="L16779" class="LineNr">16779 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16780" class="LineNr">16780 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16781" class="LineNr">16781 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16782" class="LineNr">16782 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16783" class="LineNr">16783 </span><span class="Constant">$test-function-header-with-multiple-args:inout2</span>: +<span id="L16784" class="LineNr">16784 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16785" class="LineNr">16785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16786" class="LineNr">16786 </span> 89/<- %edx 0/r32/eax +<span id="L16787" class="LineNr">16787 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16788" class="LineNr">16788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16789" class="LineNr">16789 </span> 89/<- %ebx 0/r32/eax +<span id="L16790" class="LineNr">16790 </span> <span class="subxComment"># check v->name</span> +<span id="L16791" class="LineNr">16791 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16792" class="LineNr">16792 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"c"</span> <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:2"</span>) <span class="subxComment"># Var-name</span> +<span id="L16793" class="LineNr">16793 </span> <span class="subxComment"># check v->type</span> +<span id="L16794" class="LineNr">16794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16795" class="LineNr">16795 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16796" class="LineNr">16796 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16797" class="LineNr">16797 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16724'>test-function-header-with-multiple-args</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16798" class="LineNr">16798 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16799" class="LineNr">16799 </span> 89/<- %esp 5/r32/ebp +<span id="L16800" class="LineNr">16800 </span> 5d/pop-to-ebp +<span id="L16801" class="LineNr">16801 </span> c3/return +<span id="L16802" class="LineNr">16802 </span> +<span id="L16803" class="LineNr">16803 </span><span class="subxTest">test-function-header-with-multiple-args-and-outputs</span>: +<span id="L16804" class="LineNr">16804 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16805" class="LineNr">16805 </span> 55/push-ebp +<span id="L16806" class="LineNr">16806 </span> 89/<- %ebp 4/r32/esp +<span id="L16807" class="LineNr">16807 </span> <span class="subxComment"># setup</span> +<span id="L16808" class="LineNr">16808 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L16809" class="LineNr">16809 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L16810" class="LineNr">16810 </span> c7 0/subop/copy *_Program-functions 0/imm32 +<span id="L16811" class="LineNr">16811 </span> c7 0/subop/copy *_Program-functions->payload 0/imm32 +<span id="L16812" class="LineNr">16812 </span> c7 0/subop/copy *_Program-types 0/imm32 +<span id="L16813" class="LineNr">16813 </span> c7 0/subop/copy *_Program-types->payload 0/imm32 +<span id="L16814" class="LineNr">16814 </span> c7 0/subop/copy *_Program-signatures 0/imm32 +<span id="L16815" class="LineNr">16815 </span> c7 0/subop/copy *_Program-signatures->payload 0/imm32 +<span id="L16816" class="LineNr">16816 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L16817" class="LineNr">16817 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"foo a: int, b: int, c: int -> _/ecx: int _/edx: int {\n"</span>) +<span id="L16818" class="LineNr">16818 </span> <span class="subxComment"># result/ecx: function</span> +<span id="L16819" class="LineNr">16819 </span> 2b/subtract *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span> 4/r32/esp +<span id="L16820" class="LineNr">16820 </span> 89/<- %ecx 4/r32/esp +<span id="L16821" class="LineNr">16821 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> %ecx *<span class="SpecialChar"><a href='mu.subx.html#L275'>Function-size</a></span>) +<span id="L16822" class="LineNr">16822 </span> <span class="subxComment"># var vars/ebx: (stack live-var 16)</span> +<span id="L16823" class="LineNr">16823 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L16824" class="LineNr">16824 </span> 68/push 0xc0/imm32/size +<span id="L16825" class="LineNr">16825 </span> 68/push 0/imm32/top +<span id="L16826" class="LineNr">16826 </span> 89/<- %ebx 4/r32/esp +<span id="L16827" class="LineNr">16827 </span> <span class="subxComment"># convert</span> +<span id="L16828" class="LineNr">16828 </span> (<a href='mu.subx.html#L15946'>populate-mu-function-header</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %ebx <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L16829" class="LineNr">16829 </span> <span class="subxComment"># check result->name</span> +<span id="L16830" class="LineNr">16830 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L16831" class="LineNr">16831 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"foo"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/name"</span>) +<span id="L16832" class="LineNr">16832 </span> <span class="subxComment"># var inouts/edx: (addr list var) = lookup(result->inouts)</span> +<span id="L16833" class="LineNr">16833 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L16834" class="LineNr">16834 </span> 89/<- %edx 0/r32/eax +<span id="L16835" class="LineNr">16835 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout0</span>: +<span id="L16836" class="LineNr">16836 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(inouts->value)</span> +<span id="L16837" class="LineNr">16837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16838" class="LineNr">16838 </span> 89/<- %ebx 0/r32/eax +<span id="L16839" class="LineNr">16839 </span> <span class="subxComment"># check v->name</span> +<span id="L16840" class="LineNr">16840 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16841" class="LineNr">16841 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"a"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:0"</span>) +<span id="L16842" class="LineNr">16842 </span> <span class="subxComment"># check v->type</span> +<span id="L16843" class="LineNr">16843 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16844" class="LineNr">16844 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16845" class="LineNr">16845 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16846" class="LineNr">16846 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16847" class="LineNr">16847 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout1</span>: +<span id="L16848" class="LineNr">16848 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16849" class="LineNr">16849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16850" class="LineNr">16850 </span> 89/<- %edx 0/r32/eax +<span id="L16851" class="LineNr">16851 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16852" class="LineNr">16852 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16853" class="LineNr">16853 </span> 89/<- %ebx 0/r32/eax +<span id="L16854" class="LineNr">16854 </span> <span class="subxComment"># check v->name</span> +<span id="L16855" class="LineNr">16855 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16856" class="LineNr">16856 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"b"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:1"</span>) +<span id="L16857" class="LineNr">16857 </span> <span class="subxComment"># check v->type</span> +<span id="L16858" class="LineNr">16858 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16859" class="LineNr">16859 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16860" class="LineNr">16860 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16861" class="LineNr">16861 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16862" class="LineNr">16862 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:inout2</span>: +<span id="L16863" class="LineNr">16863 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L16864" class="LineNr">16864 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16865" class="LineNr">16865 </span> 89/<- %edx 0/r32/eax +<span id="L16866" class="LineNr">16866 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16867" class="LineNr">16867 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16868" class="LineNr">16868 </span> 89/<- %ebx 0/r32/eax +<span id="L16869" class="LineNr">16869 </span> <span class="subxComment"># check v->name</span> +<span id="L16870" class="LineNr">16870 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16871" class="LineNr">16871 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"c"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:2"</span>) +<span id="L16872" class="LineNr">16872 </span> <span class="subxComment"># check v->type</span> +<span id="L16873" class="LineNr">16873 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16874" class="LineNr">16874 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16875" class="LineNr">16875 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16876" class="LineNr">16876 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/inout:2/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16877" class="LineNr">16877 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out0</span>: +<span id="L16878" class="LineNr">16878 </span> <span class="subxComment"># var outputs/edx: (addr list var) = lookup(result->outputs)</span> +<span id="L16879" class="LineNr">16879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L16880" class="LineNr">16880 </span> 89/<- %edx 0/r32/eax +<span id="L16881" class="LineNr">16881 </span> <span class="subxComment"># v = lookup(outputs->value)</span> +<span id="L16882" class="LineNr">16882 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16883" class="LineNr">16883 </span> 89/<- %ebx 0/r32/eax +<span id="L16884" class="LineNr">16884 </span> <span class="subxComment"># check v->name</span> +<span id="L16885" class="LineNr">16885 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16886" class="LineNr">16886 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"_"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:0"</span>) +<span id="L16887" class="LineNr">16887 </span> <span class="subxComment"># check v->register</span> +<span id="L16888" class="LineNr">16888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16889" class="LineNr">16889 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"ecx"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:0/register"</span>) +<span id="L16890" class="LineNr">16890 </span> <span class="subxComment"># check v->type</span> +<span id="L16891" class="LineNr">16891 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16892" class="LineNr">16892 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16893" class="LineNr">16893 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16894" class="LineNr">16894 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:0/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16895" class="LineNr">16895 </span><span class="Constant">$test-function-header-with-multiple-args-and-outputs:out1</span>: +<span id="L16896" class="LineNr">16896 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L16897" class="LineNr">16897 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L16898" class="LineNr">16898 </span> 89/<- %edx 0/r32/eax +<span id="L16899" class="LineNr">16899 </span> <span class="subxComment"># v = lookup(inouts->value)</span> +<span id="L16900" class="LineNr">16900 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L16901" class="LineNr">16901 </span> 89/<- %ebx 0/r32/eax +<span id="L16902" class="LineNr">16902 </span> <span class="subxComment"># check v->name</span> +<span id="L16903" class="LineNr">16903 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L16904" class="LineNr">16904 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"_"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:1"</span>) +<span id="L16905" class="LineNr">16905 </span> <span class="subxComment"># check v->register</span> +<span id="L16906" class="LineNr">16906 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16907" class="LineNr">16907 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"edx"</span> <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:1/register"</span>) +<span id="L16908" class="LineNr">16908 </span> <span class="subxComment"># check v->type</span> +<span id="L16909" class="LineNr">16909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L16910" class="LineNr">16910 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L16911" class="LineNr">16911 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L16912" class="LineNr">16912 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0c) 0 <span class="Constant">"F - <a href='mu.subx.html#L16803'>test-function-header-with-multiple-args-and-outputs</a>/output:1/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L16913" class="LineNr">16913 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L16914" class="LineNr">16914 </span> 89/<- %esp 5/r32/ebp +<span id="L16915" class="LineNr">16915 </span> 5d/pop-to-ebp +<span id="L16916" class="LineNr">16916 </span> c3/return +<span id="L16917" class="LineNr">16917 </span> +<span id="L16918" class="LineNr">16918 </span><span class="subxComment"># format for variables with types</span> +<span id="L16919" class="LineNr">16919 </span><span class="subxComment"># x: int</span> +<span id="L16920" class="LineNr">16920 </span><span class="subxComment"># x: int,</span> +<span id="L16921" class="LineNr">16921 </span><span class="subxComment"># x/eax: int</span> +<span id="L16922" class="LineNr">16922 </span><span class="subxComment"># x/eax: int,</span> +<span id="L16923" class="LineNr">16923 </span><span class="subxComment"># ignores at most one trailing comma</span> +<span id="L16924" class="LineNr">16924 </span><span class="subxComment"># does not support other, non-register metadata</span> +<span id="L16925" class="LineNr">16925 </span><span class="subxComment"># WARNING: modifies name</span> +<span id="L16926" class="LineNr">16926 </span><span class="subxFunction">parse-var-with-type</span>: <span class="subxComment"># name: (addr slice), first-line: (addr stream byte), out: (addr handle var), fn-name: (addr array byte), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L16927" class="LineNr">16927 </span> <span class="subxComment"># pseudocode:</span> +<span id="L16928" class="LineNr">16928 </span> <span class="subxComment"># var s: slice</span> +<span id="L16929" class="LineNr">16929 </span> <span class="subxComment"># if (!slice-ends-with(name, ":"))</span> +<span id="L16930" class="LineNr">16930 </span> <span class="subxComment"># abort</span> +<span id="L16931" class="LineNr">16931 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L16932" class="LineNr">16932 </span> <span class="subxComment"># next-token-from-slice(name->start, name->end, '/', s)</span> +<span id="L16933" class="LineNr">16933 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L16934" class="LineNr">16934 </span> <span class="subxComment"># ## register</span> +<span id="L16935" class="LineNr">16935 </span> <span class="subxComment"># next-token-from-slice(s->end, name->end, '/', s)</span> +<span id="L16936" class="LineNr">16936 </span> <span class="subxComment"># if (!slice-empty?(s))</span> +<span id="L16937" class="LineNr">16937 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L16938" class="LineNr">16938 </span> <span class="subxComment"># ## type</span> +<span id="L16939" class="LineNr">16939 </span> <span class="subxComment"># var type: (handle type-tree) = parse-type(first-line)</span> +<span id="L16940" class="LineNr">16940 </span> <span class="subxComment"># out->type = type</span> +<span id="L16941" class="LineNr">16941 </span> <span class="subxComment">#</span> +<span id="L16942" class="LineNr">16942 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L16943" class="LineNr">16943 </span> 55/push-ebp +<span id="L16944" class="LineNr">16944 </span> 89/<- %ebp 4/r32/esp +<span id="L16945" class="LineNr">16945 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L16946" class="LineNr">16946 </span> 50/push-eax +<span id="L16947" class="LineNr">16947 </span> 51/push-ecx +<span id="L16948" class="LineNr">16948 </span> 52/push-edx +<span id="L16949" class="LineNr">16949 </span> 53/push-ebx +<span id="L16950" class="LineNr">16950 </span> 56/push-esi +<span id="L16951" class="LineNr">16951 </span> 57/push-edi +<span id="L16952" class="LineNr">16952 </span> <span class="subxComment"># esi = name</span> +<span id="L16953" class="LineNr">16953 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L16954" class="LineNr">16954 </span> <span class="subxComment"># if (!slice-ends-with?(name, ":")) abort</span> +<span id="L16955" class="LineNr">16955 </span> 8b/-> *(esi+4) 1/r32/ecx <span class="subxComment"># Slice-end</span> +<span id="L16956" class="LineNr">16956 </span> 49/decrement-ecx +<span id="L16957" class="LineNr">16957 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L16958" class="LineNr">16958 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L16959" class="LineNr">16959 </span> 81 7/subop/compare %ecx 0x3a/imm32/colon +<span id="L16960" class="LineNr">16960 </span> 0f 85/jump-if-!= $parse-var-with-type:abort/disp32 +<span id="L16961" class="LineNr">16961 </span> <span class="subxComment"># --name->end to skip ':'</span> +<span id="L16962" class="LineNr">16962 </span> ff 1/subop/decrement *(esi+4) +<span id="L16963" class="LineNr">16963 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L16964" class="LineNr">16964 </span> 68/push 0/imm32/end +<span id="L16965" class="LineNr">16965 </span> 68/push 0/imm32/start +<span id="L16966" class="LineNr">16966 </span> 89/<- %ecx 4/r32/esp +<span id="L16967" class="LineNr">16967 </span><span class="Constant">$parse-var-with-type:parse-name</span>: +<span id="L16968" class="LineNr">16968 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *esi *(esi+4) 0x2f %ecx) <span class="subxComment"># Slice-start, Slice-end, '/'</span> +<span id="L16969" class="LineNr">16969 </span><span class="Constant">$parse-var-with-type:create-var</span>: +<span id="L16970" class="LineNr">16970 </span> <span class="subxComment"># new-var-from-slice(s, out)</span> +<span id="L16971" class="LineNr">16971 </span> (<a href='mu.subx.html#L19933'>new-var-from-slice</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx *(ebp+0x10)) +<span id="L16972" class="LineNr">16972 </span> <span class="subxComment"># save out->register</span> +<span id="L16973" class="LineNr">16973 </span><span class="Constant">$parse-var-with-type:save-register</span>: +<span id="L16974" class="LineNr">16974 </span> <span class="subxS1Comment"># . var out-addr/edi: (addr var) = lookup(*out)</span> +<span id="L16975" class="LineNr">16975 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L16976" class="LineNr">16976 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L16977" class="LineNr">16977 </span> 89/<- %edi 0/r32/eax +<span id="L16978" class="LineNr">16978 </span> <span class="subxS1Comment"># . s = next-token(...)</span> +<span id="L16979" class="LineNr">16979 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *(ecx+4) *(esi+4) 0x2f %ecx) <span class="subxComment"># s->end, name->end, '/'</span> +<span id="L16980" class="LineNr">16980 </span> <span class="subxS1Comment"># . if (!slice-empty?(s)) out->register = slice-to-string(s)</span> +<span id="L16981" class="LineNr">16981 </span> { +<span id="L16982" class="LineNr">16982 </span><span class="Constant">$parse-var-with-type:write-register</span>: +<span id="L16983" class="LineNr">16983 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L16984" class="LineNr">16984 </span> 3d/compare-eax-and 0/imm32/false +<span id="L16985" class="LineNr">16985 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L16986" class="LineNr">16986 </span> <span class="subxComment"># out->register = slice-to-string(s)</span> +<span id="L16987" class="LineNr">16987 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Var-register</span> +<span id="L16988" class="LineNr">16988 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx %eax) +<span id="L16989" class="LineNr">16989 </span> } +<span id="L16990" class="LineNr">16990 </span><span class="Constant">$parse-var-with-type:save-type</span>: +<span id="L16991" class="LineNr">16991 </span> 8d/copy-address *(edi+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L16992" class="LineNr">16992 </span> (<a href='mu.subx.html#L17080'>parse-type</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L16993" class="LineNr">16993 </span><span class="Constant">$parse-var-with-type:check-register</span>: +<span id="L16994" class="LineNr">16994 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L16995" class="LineNr">16995 </span> 3d/compare-eax-and 0/imm32 +<span id="L16996" class="LineNr">16996 </span> 74/jump-if-= $parse-var-with-type:end/disp8 +<span id="L16997" class="LineNr">16997 </span> (<a href='mu.subx.html#L17065'>float-register?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L16998" class="LineNr">16998 </span> { +<span id="L16999" class="LineNr">16999 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17000" class="LineNr">17000 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17001" class="LineNr">17001 </span> <span class="subxComment"># var is in a float register; ensure type is float</span> +<span id="L17002" class="LineNr">17002 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17003" class="LineNr">17003 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> +<span id="L17004" class="LineNr">17004 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17005" class="LineNr">17005 </span> 0f 84/jump-if-= $parse-var-with-type:error-non-float-in-floating-point-register/disp32 +<span id="L17006" class="LineNr">17006 </span> eb/jump $parse-var-with-type:end/disp8 +<span id="L17007" class="LineNr">17007 </span> } +<span id="L17008" class="LineNr">17008 </span> <span class="subxComment"># var is not in a float register; ensure type is not float</span> +<span id="L17009" class="LineNr">17009 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17010" class="LineNr">17010 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0xf) <span class="subxComment"># float => eax</span> +<span id="L17011" class="LineNr">17011 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17012" class="LineNr">17012 </span> 0f 85/jump-if-!= $parse-var-with-type:error-float-in-integer-register/disp32 +<span id="L17013" class="LineNr">17013 </span><span class="Constant">$parse-var-with-type:end</span>: +<span id="L17014" class="LineNr">17014 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17015" class="LineNr">17015 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17016" class="LineNr">17016 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17017" class="LineNr">17017 </span> 5f/pop-to-edi +<span id="L17018" class="LineNr">17018 </span> 5e/pop-to-esi +<span id="L17019" class="LineNr">17019 </span> 5b/pop-to-ebx +<span id="L17020" class="LineNr">17020 </span> 5a/pop-to-edx +<span id="L17021" class="LineNr">17021 </span> 59/pop-to-ecx +<span id="L17022" class="LineNr">17022 </span> 58/pop-to-eax +<span id="L17023" class="LineNr">17023 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17024" class="LineNr">17024 </span> 89/<- %esp 5/r32/ebp +<span id="L17025" class="LineNr">17025 </span> 5d/pop-to-ebp +<span id="L17026" class="LineNr">17026 </span> c3/return +<span id="L17027" class="LineNr">17027 </span> +<span id="L17028" class="LineNr">17028 </span><span class="Constant">$parse-var-with-type:abort</span>: +<span id="L17029" class="LineNr">17029 </span> <span class="subxComment"># error("fn " fn ": var should have form 'name: type' in '" line "'\n")</span> +<span id="L17030" class="LineNr">17030 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17031" class="LineNr">17031 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17032" class="LineNr">17032 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var should have form 'name: type' in '"</span>) +<span id="L17033" class="LineNr">17033 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17034" class="LineNr">17034 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L17035" class="LineNr">17035 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L17036" class="LineNr">17036 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L17037" class="LineNr">17037 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17038" class="LineNr">17038 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17039" class="LineNr">17039 </span> <span class="subxComment"># never gets here</span> +<span id="L17040" class="LineNr">17040 </span> +<span id="L17041" class="LineNr">17041 </span><span class="Constant">$parse-var-with-type:error-float-in-integer-register</span>: +<span id="L17042" class="LineNr">17042 </span> <span class="subxComment"># error("fn " fn ": float var '" var "' should be in a floating-point register\n")</span> +<span id="L17043" class="LineNr">17043 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17044" class="LineNr">17044 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17045" class="LineNr">17045 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": float var '"</span>) +<span id="L17046" class="LineNr">17046 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17047" class="LineNr">17047 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17048" class="LineNr">17048 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' should be in a floating-point register\n"</span>) +<span id="L17049" class="LineNr">17049 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17050" class="LineNr">17050 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17051" class="LineNr">17051 </span> <span class="subxComment"># never gets here</span> +<span id="L17052" class="LineNr">17052 </span> +<span id="L17053" class="LineNr">17053 </span><span class="Constant">$parse-var-with-type:error-non-float-in-floating-point-register</span>: +<span id="L17054" class="LineNr">17054 </span> <span class="subxComment"># error("fn " fn ": non-float var '" var "' should be in an integer register\n")</span> +<span id="L17055" class="LineNr">17055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L17056" class="LineNr">17056 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) *(ebp+0x14)) +<span id="L17057" class="LineNr">17057 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": non-float var '"</span>) +<span id="L17058" class="LineNr">17058 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17059" class="LineNr">17059 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L17060" class="LineNr">17060 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' should be in an integer register\n"</span>) +<span id="L17061" class="LineNr">17061 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L17062" class="LineNr">17062 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L17063" class="LineNr">17063 </span> <span class="subxComment"># never gets here</span> +<span id="L17064" class="LineNr">17064 </span> +<span id="L17065" class="LineNr">17065 </span><span class="subxFunction">float-register?</span>: <span class="subxComment"># r: (addr array byte) -> result/eax: boolean</span> +<span id="L17066" class="LineNr">17066 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17067" class="LineNr">17067 </span> 55/push-ebp +<span id="L17068" class="LineNr">17068 </span> 89/<- %ebp 4/r32/esp +<span id="L17069" class="LineNr">17069 </span> <span class="subxComment">#</span> +<span id="L17070" class="LineNr">17070 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19400'>Mu-registers-unique</a></span> *(ebp+8) 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L17071" class="LineNr">17071 </span> 81 7/subop/compare *eax 8/imm32/start-of-floating-point-registers +<span id="L17072" class="LineNr">17072 </span> 0f 9d/set-if->= %al +<span id="L17073" class="LineNr">17073 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17074" class="LineNr">17074 </span><span class="Constant">$float-register?:end</span>: +<span id="L17075" class="LineNr">17075 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17076" class="LineNr">17076 </span> 89/<- %esp 5/r32/ebp +<span id="L17077" class="LineNr">17077 </span> 5d/pop-to-ebp +<span id="L17078" class="LineNr">17078 </span> c3/return +<span id="L17079" class="LineNr">17079 </span> +<span id="L17080" class="LineNr">17080 </span><span class="subxFunction">parse-type</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr stream byte), out: (addr handle type-tree), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L17081" class="LineNr">17081 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17082" class="LineNr">17082 </span> <span class="subxComment"># var s: slice = next-mu-token(in)</span> +<span id="L17083" class="LineNr">17083 </span> <span class="subxComment"># assert s != ""</span> +<span id="L17084" class="LineNr">17084 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L17085" class="LineNr">17085 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L17086" class="LineNr">17086 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L17087" class="LineNr">17087 </span> <span class="subxComment"># if s == ")"</span> +<span id="L17088" class="LineNr">17088 </span> <span class="subxComment"># return</span> +<span id="L17089" class="LineNr">17089 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L17090" class="LineNr">17090 </span> <span class="subxComment"># if s != "("</span> +<span id="L17091" class="LineNr">17091 </span> <span class="subxComment"># HACK: if s is an int, parse and return it</span> +<span id="L17092" class="LineNr">17092 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L17093" class="LineNr">17093 </span> <span class="subxComment"># if (s[0] == "_")</span> +<span id="L17094" class="LineNr">17094 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L17095" class="LineNr">17095 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L17096" class="LineNr">17096 </span> <span class="subxComment"># else</span> +<span id="L17097" class="LineNr">17097 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L17098" class="LineNr">17098 </span> <span class="subxComment"># return</span> +<span id="L17099" class="LineNr">17099 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L17100" class="LineNr">17100 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17101" class="LineNr">17101 </span> <span class="subxComment">#</span> +<span id="L17102" class="LineNr">17102 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17103" class="LineNr">17103 </span> 55/push-ebp +<span id="L17104" class="LineNr">17104 </span> 89/<- %ebp 4/r32/esp +<span id="L17105" class="LineNr">17105 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17106" class="LineNr">17106 </span> 50/push-eax +<span id="L17107" class="LineNr">17107 </span> 51/push-ecx +<span id="L17108" class="LineNr">17108 </span> 52/push-edx +<span id="L17109" class="LineNr">17109 </span> <span class="subxComment"># clear out</span> +<span id="L17110" class="LineNr">17110 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L17111" class="LineNr">17111 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L17112" class="LineNr">17112 </span> 68/push 0/imm32 +<span id="L17113" class="LineNr">17113 </span> 68/push 0/imm32 +<span id="L17114" class="LineNr">17114 </span> 89/<- %ecx 4/r32/esp +<span id="L17115" class="LineNr">17115 </span> <span class="subxComment"># s = next-mu-token(in)</span> +<span id="L17116" class="LineNr">17116 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L17117" class="LineNr">17117 </span><span class="CommentedCode">#? (write-buffered Stderr "tok: ")</span> +<span id="L17118" class="LineNr">17118 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L17119" class="LineNr">17119 </span><span class="CommentedCode">#? (write-buffered Stderr "$\n")</span> +<span id="L17120" class="LineNr">17120 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17121" class="LineNr">17121 </span> <span class="subxComment"># assert s != ""</span> +<span id="L17122" class="LineNr">17122 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">""</span>) <span class="subxComment"># => eax</span> +<span id="L17123" class="LineNr">17123 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17124" class="LineNr">17124 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17125" class="LineNr">17125 </span> <span class="subxComment"># assert s != "{"</span> +<span id="L17126" class="LineNr">17126 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"{"</span>) <span class="subxComment"># => eax</span> +<span id="L17127" class="LineNr">17127 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17128" class="LineNr">17128 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17129" class="LineNr">17129 </span> <span class="subxComment"># assert s != "}"</span> +<span id="L17130" class="LineNr">17130 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"}"</span>) <span class="subxComment"># => eax</span> +<span id="L17131" class="LineNr">17131 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17132" class="LineNr">17132 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17133" class="LineNr">17133 </span> <span class="subxComment"># assert s != "->"</span> +<span id="L17134" class="LineNr">17134 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"->"</span>) <span class="subxComment"># => eax</span> +<span id="L17135" class="LineNr">17135 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17136" class="LineNr">17136 </span> 0f 85/jump-if-!= $parse-type:abort/disp32 +<span id="L17137" class="LineNr">17137 </span> <span class="subxComment"># if (s == ")") return</span> +<span id="L17138" class="LineNr">17138 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">")"</span>) <span class="subxComment"># => eax</span> +<span id="L17139" class="LineNr">17139 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17140" class="LineNr">17140 </span> 0f 85/jump-if-!= $parse-type:end/disp32 +<span id="L17141" class="LineNr">17141 </span> <span class="subxComment"># out = new tree</span> +<span id="L17142" class="LineNr">17142 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> *(ebp+0x10)) +<span id="L17143" class="LineNr">17143 </span> <span class="subxComment"># var out-addr/edx: (addr type-tree) = lookup(*out)</span> +<span id="L17144" class="LineNr">17144 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L17145" class="LineNr">17145 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17146" class="LineNr">17146 </span> 89/<- %edx 0/r32/eax +<span id="L17147" class="LineNr">17147 </span> { +<span id="L17148" class="LineNr">17148 </span> <span class="subxComment"># if (s != "(") break</span> +<span id="L17149" class="LineNr">17149 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"("</span>) <span class="subxComment"># => eax</span> +<span id="L17150" class="LineNr">17150 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17151" class="LineNr">17151 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L17152" class="LineNr">17152 </span> <span class="subxComment"># if s is a number, store it in the type's size field</span> +<span id="L17153" class="LineNr">17153 </span> { +<span id="L17154" class="LineNr">17154 </span><span class="Constant">$parse-type:check-for-int</span>: +<span id="L17155" class="LineNr">17155 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L17156" class="LineNr">17156 </span> 8b/-> *ecx 0/r32/eax +<span id="L17157" class="LineNr">17157 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17158" class="LineNr">17158 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17159" class="LineNr">17159 </span> <span class="subxComment"># TODO: raise an error on `var x: (array int a)`</span> +<span id="L17160" class="LineNr">17160 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L17161" class="LineNr">17161 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17162" class="LineNr">17162 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17163" class="LineNr">17163 </span><span class="Constant">$parse-type:int</span>: +<span id="L17164" class="LineNr">17164 </span> <span class="subxComment"># strip out metadata</span> +<span id="L17165" class="LineNr">17165 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f %ecx) +<span id="L17166" class="LineNr">17166 </span> <span class="subxComment">#</span> +<span id="L17167" class="LineNr">17167 </span> (<a href='mu.subx.html#L19795'>check-mu-hex-int</a> %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L17168" class="LineNr">17168 </span> (<a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L17169" class="LineNr">17169 </span> c7 0/subop/copy *(edx+4) 9/imm32/type-id-array-capacity <span class="subxComment"># Type-tree-value</span> +<span id="L17170" class="LineNr">17170 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-value-size</span> +<span id="L17171" class="LineNr">17171 </span> e9/jump $parse-type:end/disp32 +<span id="L17172" class="LineNr">17172 </span> } +<span id="L17173" class="LineNr">17173 </span><span class="Constant">$parse-type:atom</span>: +<span id="L17174" class="LineNr">17174 </span> <span class="subxComment"># out->is-atom? = true</span> +<span id="L17175" class="LineNr">17175 </span> c7 0/subop/copy *edx 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17176" class="LineNr">17176 </span> { +<span id="L17177" class="LineNr">17177 </span><span class="Constant">$parse-type:check-for-type-parameter</span>: +<span id="L17178" class="LineNr">17178 </span> <span class="subxComment"># var tmp/eax: byte = *s->slice</span> +<span id="L17179" class="LineNr">17179 </span> 8b/-> *ecx 0/r32/eax +<span id="L17180" class="LineNr">17180 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17181" class="LineNr">17181 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17182" class="LineNr">17182 </span> <span class="subxComment"># if (tmp != '_') break</span> +<span id="L17183" class="LineNr">17183 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L17184" class="LineNr">17184 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17185" class="LineNr">17185 </span><span class="Constant">$parse-type:type-parameter</span>: +<span id="L17186" class="LineNr">17186 </span> <span class="subxComment"># out->value = type-parameter</span> +<span id="L17187" class="LineNr">17187 </span> c7 0/subop/copy *(edx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L17188" class="LineNr">17188 </span> <span class="subxComment"># out->parameter-name = slice-to-string(ad, s)</span> +<span id="L17189" class="LineNr">17189 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-parameter-name</span> +<span id="L17190" class="LineNr">17190 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> *(ebp+8) %ecx %eax) +<span id="L17191" class="LineNr">17191 </span> e9/jump $parse-type:end/disp32 +<span id="L17192" class="LineNr">17192 </span> } +<span id="L17193" class="LineNr">17193 </span><span class="Constant">$parse-type:non-type-parameter</span>: +<span id="L17194" class="LineNr">17194 </span> <span class="subxComment"># out->value = pos-or-insert-slice(Type-id, s)</span> +<span id="L17195" class="LineNr">17195 </span> (<a href='mu.subx.html#L17451'>pos-or-insert-slice</a> <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> %ecx) <span class="subxComment"># => eax</span> +<span id="L17196" class="LineNr">17196 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L17197" class="LineNr">17197 </span> e9/jump $parse-type:end/disp32 +<span id="L17198" class="LineNr">17198 </span> } +<span id="L17199" class="LineNr">17199 </span><span class="Constant">$parse-type:non-atom</span>: +<span id="L17200" class="LineNr">17200 </span> <span class="subxComment"># otherwise s == "("</span> +<span id="L17201" class="LineNr">17201 </span> <span class="subxComment"># out->left = parse-type(ad, in)</span> +<span id="L17202" class="LineNr">17202 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17203" class="LineNr">17203 </span> (<a href='mu.subx.html#L17080'>parse-type</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17204" class="LineNr">17204 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17205" class="LineNr">17205 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L17206" class="LineNr">17206 </span> (<a href='mu.subx.html#L17228'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17207" class="LineNr">17207 </span><span class="Constant">$parse-type:end</span>: +<span id="L17208" class="LineNr">17208 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17209" class="LineNr">17209 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17210" class="LineNr">17210 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17211" class="LineNr">17211 </span> 5a/pop-to-edx +<span id="L17212" class="LineNr">17212 </span> 59/pop-to-ecx +<span id="L17213" class="LineNr">17213 </span> 58/pop-to-eax +<span id="L17214" class="LineNr">17214 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17215" class="LineNr">17215 </span> 89/<- %esp 5/r32/ebp +<span id="L17216" class="LineNr">17216 </span> 5d/pop-to-ebp +<span id="L17217" class="LineNr">17217 </span> c3/return +<span id="L17218" class="LineNr">17218 </span> +<span id="L17219" class="LineNr">17219 </span><span class="Constant">$parse-type:abort</span>: +<span id="L17220" class="LineNr">17220 </span> <span class="subxComment"># error("unexpected token when parsing type: '" s "'\n")</span> +<span id="L17221" class="LineNr">17221 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"unexpected token when parsing type: '"</span>) +<span id="L17222" class="LineNr">17222 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x14) %ecx) +<span id="L17223" class="LineNr">17223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"'\n"</span>) +<span id="L17224" class="LineNr">17224 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L17225" class="LineNr">17225 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L17226" class="LineNr">17226 </span> <span class="subxComment"># never gets here</span> +<span id="L17227" class="LineNr">17227 </span> +<span id="L17228" class="LineNr">17228 </span><span class="subxFunction">parse-type-tree</span>: <span class="subxComment"># ad: (addr allocation-descriptor), in: (addr stream byte), out: (addr handle type-tree), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L17229" class="LineNr">17229 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17230" class="LineNr">17230 </span> <span class="subxComment"># var tmp: (handle type-tree) = parse-type(ad, in)</span> +<span id="L17231" class="LineNr">17231 </span> <span class="subxComment"># if tmp == 0</span> +<span id="L17232" class="LineNr">17232 </span> <span class="subxComment"># return 0</span> +<span id="L17233" class="LineNr">17233 </span> <span class="subxComment"># out = allocate(Type-tree)</span> +<span id="L17234" class="LineNr">17234 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L17235" class="LineNr">17235 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17236" class="LineNr">17236 </span> <span class="subxComment">#</span> +<span id="L17237" class="LineNr">17237 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17238" class="LineNr">17238 </span> 55/push-ebp +<span id="L17239" class="LineNr">17239 </span> 89/<- %ebp 4/r32/esp +<span id="L17240" class="LineNr">17240 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17241" class="LineNr">17241 </span> 50/push-eax +<span id="L17242" class="LineNr">17242 </span> 51/push-ecx +<span id="L17243" class="LineNr">17243 </span> 52/push-edx +<span id="L17244" class="LineNr">17244 </span> <span class="subxComment">#</span> +<span id="L17245" class="LineNr">17245 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L17246" class="LineNr">17246 </span> <span class="subxComment"># var tmp/ecx: (handle type-tree)</span> +<span id="L17247" class="LineNr">17247 </span> 68/push 0/imm32 +<span id="L17248" class="LineNr">17248 </span> 68/push 0/imm32 +<span id="L17249" class="LineNr">17249 </span> 89/<- %ecx 4/r32/esp +<span id="L17250" class="LineNr">17250 </span> <span class="subxComment"># tmp = parse-type(ad, in)</span> +<span id="L17251" class="LineNr">17251 </span> (<a href='mu.subx.html#L17080'>parse-type</a> *(ebp+8) *(ebp+0xc) %ecx *(ebp+0x14) *(ebp+0x18)) +<span id="L17252" class="LineNr">17252 </span> <span class="subxComment"># if (tmp == 0) return</span> +<span id="L17253" class="LineNr">17253 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L17254" class="LineNr">17254 </span> 74/jump-if-= $parse-type-tree:end/disp8 +<span id="L17255" class="LineNr">17255 </span> <span class="subxComment"># out = new tree</span> +<span id="L17256" class="LineNr">17256 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> *(ebp+0x10)) +<span id="L17257" class="LineNr">17257 </span> <span class="subxComment"># var out-addr/edx: (addr tree) = lookup(*out)</span> +<span id="L17258" class="LineNr">17258 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L17259" class="LineNr">17259 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17260" class="LineNr">17260 </span> 89/<- %edx 0/r32/eax +<span id="L17261" class="LineNr">17261 </span> <span class="subxComment"># out->left = tmp</span> +<span id="L17262" class="LineNr">17262 </span> 8b/-> *ecx 0/r32/eax +<span id="L17263" class="LineNr">17263 </span> 89/<- *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17264" class="LineNr">17264 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L17265" class="LineNr">17265 </span> 89/<- *(edx+8) 0/r32/eax <span class="subxComment"># Type-tree-left</span> +<span id="L17266" class="LineNr">17266 </span> <span class="subxComment"># out->right = parse-type-tree(ad, in)</span> +<span id="L17267" class="LineNr">17267 </span> 8d/copy-address *(edx+0xc) 0/r32/eax <span class="subxComment"># Type-tree-right</span> +<span id="L17268" class="LineNr">17268 </span> (<a href='mu.subx.html#L17228'>parse-type-tree</a> *(ebp+8) *(ebp+0xc) %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L17269" class="LineNr">17269 </span><span class="Constant">$parse-type-tree:end</span>: +<span id="L17270" class="LineNr">17270 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17271" class="LineNr">17271 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17272" class="LineNr">17272 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17273" class="LineNr">17273 </span> 5a/pop-to-edx +<span id="L17274" class="LineNr">17274 </span> 59/pop-to-ecx +<span id="L17275" class="LineNr">17275 </span> 58/pop-to-eax +<span id="L17276" class="LineNr">17276 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17277" class="LineNr">17277 </span> 89/<- %esp 5/r32/ebp +<span id="L17278" class="LineNr">17278 </span> 5d/pop-to-ebp +<span id="L17279" class="LineNr">17279 </span> c3/return +<span id="L17280" class="LineNr">17280 </span> +<span id="L17281" class="LineNr">17281 </span><span class="subxFunction">next-mu-token</span>: <span class="subxComment"># in: (addr stream byte), out: (addr slice)</span> +<span id="L17282" class="LineNr">17282 </span> <span class="subxComment"># pseudocode:</span> +<span id="L17283" class="LineNr">17283 </span> <span class="subxComment"># start:</span> +<span id="L17284" class="LineNr">17284 </span> <span class="subxComment"># skip-chars-matching-whitespace(in)</span> +<span id="L17285" class="LineNr">17285 </span> <span class="subxComment"># if in->read >= in->write # end of in</span> +<span id="L17286" class="LineNr">17286 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L17287" class="LineNr">17287 </span> <span class="subxComment"># return</span> +<span id="L17288" class="LineNr">17288 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L17289" class="LineNr">17289 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L17290" class="LineNr">17290 </span> <span class="subxComment"># if curr->byte == ',' # comment token</span> +<span id="L17291" class="LineNr">17291 </span> <span class="subxComment"># ++in->read</span> +<span id="L17292" class="LineNr">17292 </span> <span class="subxComment"># goto start</span> +<span id="L17293" class="LineNr">17293 </span> <span class="subxComment"># if curr-byte == '#' # comment</span> +<span id="L17294" class="LineNr">17294 </span> <span class="subxComment"># goto done # treat as eof</span> +<span id="L17295" class="LineNr">17295 </span> <span class="subxComment"># if curr-byte == '"' # string literal</span> +<span id="L17296" class="LineNr">17296 </span> <span class="subxComment"># skip-string(in)</span> +<span id="L17297" class="LineNr">17297 </span> <span class="subxComment"># goto done # no metadata</span> +<span id="L17298" class="LineNr">17298 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L17299" class="LineNr">17299 </span> <span class="subxComment"># ++in->read</span> +<span id="L17300" class="LineNr">17300 </span> <span class="subxComment"># goto done</span> +<span id="L17301" class="LineNr">17301 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L17302" class="LineNr">17302 </span> <span class="subxComment"># ++in->read</span> +<span id="L17303" class="LineNr">17303 </span> <span class="subxComment"># goto done</span> +<span id="L17304" class="LineNr">17304 </span> <span class="subxComment"># # read a word</span> +<span id="L17305" class="LineNr">17305 </span> <span class="subxComment"># while true</span> +<span id="L17306" class="LineNr">17306 </span> <span class="subxComment"># if in->read >= in->write</span> +<span id="L17307" class="LineNr">17307 </span> <span class="subxComment"># break</span> +<span id="L17308" class="LineNr">17308 </span> <span class="subxComment"># curr-byte = in->data[in->read]</span> +<span id="L17309" class="LineNr">17309 </span> <span class="subxComment"># if curr-byte == ' '</span> +<span id="L17310" class="LineNr">17310 </span> <span class="subxComment"># break</span> +<span id="L17311" class="LineNr">17311 </span> <span class="subxComment"># if curr-byte == '\r'</span> +<span id="L17312" class="LineNr">17312 </span> <span class="subxComment"># break</span> +<span id="L17313" class="LineNr">17313 </span> <span class="subxComment"># if curr-byte == '\n'</span> +<span id="L17314" class="LineNr">17314 </span> <span class="subxComment"># break</span> +<span id="L17315" class="LineNr">17315 </span> <span class="subxComment"># if curr-byte == '('</span> +<span id="L17316" class="LineNr">17316 </span> <span class="subxComment"># break</span> +<span id="L17317" class="LineNr">17317 </span> <span class="subxComment"># if curr-byte == ')'</span> +<span id="L17318" class="LineNr">17318 </span> <span class="subxComment"># break</span> +<span id="L17319" class="LineNr">17319 </span> <span class="subxComment"># if curr-byte == ','</span> +<span id="L17320" class="LineNr">17320 </span> <span class="subxComment"># break</span> +<span id="L17321" class="LineNr">17321 </span> <span class="subxComment"># ++in->read</span> +<span id="L17322" class="LineNr">17322 </span> <span class="subxComment"># done:</span> +<span id="L17323" class="LineNr">17323 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L17324" class="LineNr">17324 </span> <span class="subxComment">#</span> +<span id="L17325" class="LineNr">17325 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17326" class="LineNr">17326 </span> 55/push-ebp +<span id="L17327" class="LineNr">17327 </span> 89/<- %ebp 4/r32/esp +<span id="L17328" class="LineNr">17328 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17329" class="LineNr">17329 </span> 50/push-eax +<span id="L17330" class="LineNr">17330 </span> 51/push-ecx +<span id="L17331" class="LineNr">17331 </span> 56/push-esi +<span id="L17332" class="LineNr">17332 </span> 57/push-edi +<span id="L17333" class="LineNr">17333 </span> <span class="subxComment"># esi = in</span> +<span id="L17334" class="LineNr">17334 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17335" class="LineNr">17335 </span> <span class="subxComment"># edi = out</span> +<span id="L17336" class="LineNr">17336 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L17337" class="LineNr">17337 </span><span class="Constant">$next-mu-token:start</span>: +<span id="L17338" class="LineNr">17338 </span> (<a href='124next-token.subx.html#L464'>skip-chars-matching-whitespace</a> %esi) +<span id="L17339" class="LineNr">17339 </span><span class="Constant">$next-mu-token:check0</span>: +<span id="L17340" class="LineNr">17340 </span> <span class="subxComment"># if (in->read >= in->write) return out = {0, 0}</span> +<span id="L17341" class="LineNr">17341 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L17342" class="LineNr">17342 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17343" class="LineNr">17343 </span> <span class="subxS1Comment"># . if (ecx >= in->write) return out = {0, 0}</span> +<span id="L17344" class="LineNr">17344 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L17345" class="LineNr">17345 </span> c7 0/subop/copy *edi 0/imm32 +<span id="L17346" class="LineNr">17346 </span> c7 0/subop/copy *(edi+4) 0/imm32 +<span id="L17347" class="LineNr">17347 </span> 0f 8d/jump-if->= $next-mu-token:end/disp32 +<span id="L17348" class="LineNr">17348 </span> <span class="subxComment"># out->start = &in->data[in->read]</span> +<span id="L17349" class="LineNr">17349 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L17350" class="LineNr">17350 </span> 89/<- *edi 0/r32/eax +<span id="L17351" class="LineNr">17351 </span> <span class="subxComment"># var curr-byte/eax: byte = in->data[in->read]</span> +<span id="L17352" class="LineNr">17352 </span> 31/xor-with %eax 0/r32/eax +<span id="L17353" class="LineNr">17353 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L17354" class="LineNr">17354 </span> { +<span id="L17355" class="LineNr">17355 </span><span class="Constant">$next-mu-token:check-for-comma</span>: +<span id="L17356" class="LineNr">17356 </span> <span class="subxComment"># if (curr-byte != ',') break</span> +<span id="L17357" class="LineNr">17357 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L17358" class="LineNr">17358 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17359" class="LineNr">17359 </span> <span class="subxComment"># ++in->read</span> +<span id="L17360" class="LineNr">17360 </span> ff 0/subop/increment *(esi+4) +<span id="L17361" class="LineNr">17361 </span> <span class="subxComment"># restart</span> +<span id="L17362" class="LineNr">17362 </span> e9/jump $next-mu-token:start/disp32 +<span id="L17363" class="LineNr">17363 </span> } +<span id="L17364" class="LineNr">17364 </span> { +<span id="L17365" class="LineNr">17365 </span><span class="Constant">$next-mu-token:check-for-comment</span>: +<span id="L17366" class="LineNr">17366 </span> <span class="subxComment"># if (curr-byte != '#') break</span> +<span id="L17367" class="LineNr">17367 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L17368" class="LineNr">17368 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17369" class="LineNr">17369 </span> <span class="subxComment"># return eof</span> +<span id="L17370" class="LineNr">17370 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17371" class="LineNr">17371 </span> } +<span id="L17372" class="LineNr">17372 </span> { +<span id="L17373" class="LineNr">17373 </span><span class="Constant">$next-mu-token:check-for-string-literal</span>: +<span id="L17374" class="LineNr">17374 </span> <span class="subxComment"># if (curr-byte != '"') break</span> +<span id="L17375" class="LineNr">17375 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L17376" class="LineNr">17376 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17377" class="LineNr">17377 </span> (<a href='124next-token.subx.html#L1171'>skip-string</a> %esi) +<span id="L17378" class="LineNr">17378 </span> <span class="subxComment"># return</span> +<span id="L17379" class="LineNr">17379 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17380" class="LineNr">17380 </span> } +<span id="L17381" class="LineNr">17381 </span> { +<span id="L17382" class="LineNr">17382 </span><span class="Constant">$next-mu-token:check-for-open-paren</span>: +<span id="L17383" class="LineNr">17383 </span> <span class="subxComment"># if (curr-byte != '(') break</span> +<span id="L17384" class="LineNr">17384 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L17385" class="LineNr">17385 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17386" class="LineNr">17386 </span> <span class="subxComment"># ++in->read</span> +<span id="L17387" class="LineNr">17387 </span> ff 0/subop/increment *(esi+4) +<span id="L17388" class="LineNr">17388 </span> <span class="subxComment"># return</span> +<span id="L17389" class="LineNr">17389 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17390" class="LineNr">17390 </span> } +<span id="L17391" class="LineNr">17391 </span> { +<span id="L17392" class="LineNr">17392 </span><span class="Constant">$next-mu-token:check-for-close-paren</span>: +<span id="L17393" class="LineNr">17393 </span> <span class="subxComment"># if (curr-byte != ')') break</span> +<span id="L17394" class="LineNr">17394 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L17395" class="LineNr">17395 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17396" class="LineNr">17396 </span> <span class="subxComment"># ++in->read</span> +<span id="L17397" class="LineNr">17397 </span> ff 0/subop/increment *(esi+4) +<span id="L17398" class="LineNr">17398 </span> <span class="subxComment"># return</span> +<span id="L17399" class="LineNr">17399 </span> e9/jump $next-mu-token:done/disp32 +<span id="L17400" class="LineNr">17400 </span> } +<span id="L17401" class="LineNr">17401 </span> { +<span id="L17402" class="LineNr">17402 </span><span class="Constant">$next-mu-token:regular-word-without-metadata</span>: +<span id="L17403" class="LineNr">17403 </span> <span class="subxComment"># if (in->read >= in->write) break</span> +<span id="L17404" class="LineNr">17404 </span> <span class="subxS1Comment"># . ecx = in->read</span> +<span id="L17405" class="LineNr">17405 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17406" class="LineNr">17406 </span> <span class="subxS1Comment"># . if (ecx >= in->write) break</span> +<span id="L17407" class="LineNr">17407 </span> 3b/compare<- *esi 1/r32/ecx +<span id="L17408" class="LineNr">17408 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L17409" class="LineNr">17409 </span> <span class="subxComment"># var c/eax: byte = in->data[in->read]</span> +<span id="L17410" class="LineNr">17410 </span> 31/xor-with %eax 0/r32/eax +<span id="L17411" class="LineNr">17411 </span> 8a/copy-byte *(esi+ecx+0xc) 0/r32/AL +<span id="L17412" class="LineNr">17412 </span> <span class="subxComment"># if (c == ' ') break</span> +<span id="L17413" class="LineNr">17413 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L17414" class="LineNr">17414 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17415" class="LineNr">17415 </span> <span class="subxComment"># if (c == '\r') break</span> +<span id="L17416" class="LineNr">17416 </span> 3d/compare-eax-and 0xd/imm32/carriage-return +<span id="L17417" class="LineNr">17417 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17418" class="LineNr">17418 </span> <span class="subxComment"># if (c == '\n') break</span> +<span id="L17419" class="LineNr">17419 </span> 3d/compare-eax-and 0xa/imm32/newline +<span id="L17420" class="LineNr">17420 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L17421" class="LineNr">17421 </span> <span class="subxComment"># if (c == '(') break</span> +<span id="L17422" class="LineNr">17422 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L17423" class="LineNr">17423 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17424" class="LineNr">17424 </span> <span class="subxComment"># if (c == ')') break</span> +<span id="L17425" class="LineNr">17425 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L17426" class="LineNr">17426 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17427" class="LineNr">17427 </span> <span class="subxComment"># if (c == ',') break</span> +<span id="L17428" class="LineNr">17428 </span> 3d/compare-eax-and 0x2c/imm32/comma +<span id="L17429" class="LineNr">17429 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L17430" class="LineNr">17430 </span> <span class="subxComment"># ++in->read</span> +<span id="L17431" class="LineNr">17431 </span> ff 0/subop/increment *(esi+4) +<span id="L17432" class="LineNr">17432 </span> <span class="subxComment">#</span> +<span id="L17433" class="LineNr">17433 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L17434" class="LineNr">17434 </span> } +<span id="L17435" class="LineNr">17435 </span><span class="Constant">$next-mu-token:done</span>: +<span id="L17436" class="LineNr">17436 </span> <span class="subxComment"># out->end = &in->data[in->read]</span> +<span id="L17437" class="LineNr">17437 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L17438" class="LineNr">17438 </span> 8d/copy-address *(esi+ecx+0xc) 0/r32/eax +<span id="L17439" class="LineNr">17439 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L17440" class="LineNr">17440 </span><span class="Constant">$next-mu-token:end</span>: +<span id="L17441" class="LineNr">17441 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17442" class="LineNr">17442 </span> 5f/pop-to-edi +<span id="L17443" class="LineNr">17443 </span> 5e/pop-to-esi +<span id="L17444" class="LineNr">17444 </span> 59/pop-to-ecx +<span id="L17445" class="LineNr">17445 </span> 58/pop-to-eax +<span id="L17446" class="LineNr">17446 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17447" class="LineNr">17447 </span> 89/<- %esp 5/r32/ebp +<span id="L17448" class="LineNr">17448 </span> 5d/pop-to-ebp +<span id="L17449" class="LineNr">17449 </span> c3/return +<span id="L17450" class="LineNr">17450 </span> +<span id="L17451" class="LineNr">17451 </span><span class="subxFunction">pos-or-insert-slice</span>: <span class="subxComment"># arr: (addr stream (addr array byte)), s: (addr slice) -> index/eax: int</span> +<span id="L17452" class="LineNr">17452 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17453" class="LineNr">17453 </span> 55/push-ebp +<span id="L17454" class="LineNr">17454 </span> 89/<- %ebp 4/r32/esp +<span id="L17455" class="LineNr">17455 </span> <span class="subxComment"># if (pos-slice(arr, s) != -1) return it</span> +<span id="L17456" class="LineNr">17456 </span> (<a href='mu.subx.html#L17479'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17457" class="LineNr">17457 </span> 3d/compare-eax-and -1/imm32 +<span id="L17458" class="LineNr">17458 </span> 75/jump-if-!= $pos-or-insert-slice:end/disp8 +<span id="L17459" class="LineNr">17459 </span><span class="Constant">$pos-or-insert-slice:insert</span>: +<span id="L17460" class="LineNr">17460 </span> <span class="subxComment"># var s2/eax: (handle array byte)</span> +<span id="L17461" class="LineNr">17461 </span> 68/push 0/imm32 +<span id="L17462" class="LineNr">17462 </span> 68/push 0/imm32 +<span id="L17463" class="LineNr">17463 </span> 89/<- %eax 4/r32/esp +<span id="L17464" class="LineNr">17464 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax) +<span id="L17465" class="LineNr">17465 </span> <span class="subxComment"># throw away alloc-id</span> +<span id="L17466" class="LineNr">17466 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L17467" class="LineNr">17467 </span> (<a href='202write-int.subx.html#L8'>write-int</a> *(ebp+8) %eax) +<span id="L17468" class="LineNr">17468 </span> (<a href='mu.subx.html#L17479'>pos-slice</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L17469" class="LineNr">17469 </span><span class="Constant">$pos-or-insert-slice:end</span>: +<span id="L17470" class="LineNr">17470 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L17471" class="LineNr">17471 </span> 81 0/subop/add %esp 8/imm32 +<span id="L17472" class="LineNr">17472 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17473" class="LineNr">17473 </span> 89/<- %esp 5/r32/ebp +<span id="L17474" class="LineNr">17474 </span> 5d/pop-to-ebp +<span id="L17475" class="LineNr">17475 </span> c3/return +<span id="L17476" class="LineNr">17476 </span> +<span id="L17477" class="LineNr">17477 </span><span class="subxComment"># return the index in an array of strings matching 's', -1 if not found</span> +<span id="L17478" class="LineNr">17478 </span><span class="subxComment"># index is denominated in elements, not bytes</span> +<span id="L17479" class="LineNr">17479 </span><span class="subxFunction">pos-slice</span>: <span class="subxComment"># arr: (addr stream (addr array byte)), s: (addr slice) -> index/eax: int</span> +<span id="L17480" class="LineNr">17480 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17481" class="LineNr">17481 </span> 55/push-ebp +<span id="L17482" class="LineNr">17482 </span> 89/<- %ebp 4/r32/esp +<span id="L17483" class="LineNr">17483 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L17484" class="LineNr">17484 </span> 51/push-ecx +<span id="L17485" class="LineNr">17485 </span> 52/push-edx +<span id="L17486" class="LineNr">17486 </span> 53/push-ebx +<span id="L17487" class="LineNr">17487 </span> 56/push-esi +<span id="L17488" class="LineNr">17488 </span><span class="CommentedCode">#? (write-buffered Stderr "pos-slice: ")</span> +<span id="L17489" class="LineNr">17489 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L17490" class="LineNr">17490 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17491" class="LineNr">17491 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17492" class="LineNr">17492 </span> <span class="subxComment"># esi = arr</span> +<span id="L17493" class="LineNr">17493 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L17494" class="LineNr">17494 </span> <span class="subxComment"># var index/ecx: int = 0</span> +<span id="L17495" class="LineNr">17495 </span> b9/copy-to-ecx 0/imm32 +<span id="L17496" class="LineNr">17496 </span> <span class="subxComment"># var curr/edx: (addr (addr array byte)) = arr->data</span> +<span id="L17497" class="LineNr">17497 </span> 8d/copy-address *(esi+0xc) 2/r32/edx +<span id="L17498" class="LineNr">17498 </span> <span class="subxComment"># var max/ebx: (addr (addr array byte)) = &arr->data[arr->write]</span> +<span id="L17499" class="LineNr">17499 </span> 8b/-> *esi 3/r32/ebx +<span id="L17500" class="LineNr">17500 </span> 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx +<span id="L17501" class="LineNr">17501 </span> { +<span id="L17502" class="LineNr">17502 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L17503" class="LineNr">17503 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L17504" class="LineNr">17504 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17505" class="LineNr">17505 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L17506" class="LineNr">17506 </span> <span class="subxComment"># if (curr >= max) return -1</span> +<span id="L17507" class="LineNr">17507 </span> 39/compare %edx 3/r32/ebx +<span id="L17508" class="LineNr">17508 </span> b8/copy-to-eax -1/imm32 +<span id="L17509" class="LineNr">17509 </span> 73/jump-if-addr>= $pos-slice:end/disp8 +<span id="L17510" class="LineNr">17510 </span> <span class="subxComment"># if (slice-equal?(s, *curr)) break</span> +<span id="L17511" class="LineNr">17511 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+0xc) *edx) <span class="subxComment"># => eax</span> +<span id="L17512" class="LineNr">17512 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17513" class="LineNr">17513 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L17514" class="LineNr">17514 </span> <span class="subxComment"># ++index</span> +<span id="L17515" class="LineNr">17515 </span> 41/increment-ecx +<span id="L17516" class="LineNr">17516 </span> <span class="subxComment"># curr += 4</span> +<span id="L17517" class="LineNr">17517 </span> 81 0/subop/add %edx 4/imm32 +<span id="L17518" class="LineNr">17518 </span> <span class="subxComment">#</span> +<span id="L17519" class="LineNr">17519 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L17520" class="LineNr">17520 </span> } +<span id="L17521" class="LineNr">17521 </span> <span class="subxComment"># return index</span> +<span id="L17522" class="LineNr">17522 </span> 89/<- %eax 1/r32/ecx +<span id="L17523" class="LineNr">17523 </span><span class="Constant">$pos-slice:end</span>: +<span id="L17524" class="LineNr">17524 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L17525" class="LineNr">17525 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L17526" class="LineNr">17526 </span><span class="CommentedCode">#? (write-buffered Stderr "\n")</span> +<span id="L17527" class="LineNr">17527 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L17528" class="LineNr">17528 </span> 5e/pop-to-esi +<span id="L17529" class="LineNr">17529 </span> 5b/pop-to-ebx +<span id="L17530" class="LineNr">17530 </span> 5a/pop-to-edx +<span id="L17531" class="LineNr">17531 </span> 59/pop-to-ecx +<span id="L17532" class="LineNr">17532 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17533" class="LineNr">17533 </span> 89/<- %esp 5/r32/ebp +<span id="L17534" class="LineNr">17534 </span> 5d/pop-to-ebp +<span id="L17535" class="LineNr">17535 </span> c3/return +<span id="L17536" class="LineNr">17536 </span> +<span id="L17537" class="LineNr">17537 </span><span class="subxTest">test-parse-var-with-type</span>: +<span id="L17538" class="LineNr">17538 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17539" class="LineNr">17539 </span> 55/push-ebp +<span id="L17540" class="LineNr">17540 </span> 89/<- %ebp 4/r32/esp +<span id="L17541" class="LineNr">17541 </span> <span class="subxComment"># setup</span> +<span id="L17542" class="LineNr">17542 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17543" class="LineNr">17543 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L17544" class="LineNr">17544 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17545" class="LineNr">17545 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17546" class="LineNr">17546 </span> 8b/-> *eax 1/r32/ecx +<span id="L17547" class="LineNr">17547 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17548" class="LineNr">17548 </span> 05/add-to-eax 4/imm32 +<span id="L17549" class="LineNr">17549 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17550" class="LineNr">17550 </span> 51/push-ecx +<span id="L17551" class="LineNr">17551 </span> 50/push-eax +<span id="L17552" class="LineNr">17552 </span> 89/<- %ecx 4/r32/esp +<span id="L17553" class="LineNr">17553 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L17554" class="LineNr">17554 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17555" class="LineNr">17555 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int"</span>) +<span id="L17556" class="LineNr">17556 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17557" class="LineNr">17557 </span> 68/push 0/imm32 +<span id="L17558" class="LineNr">17558 </span> 68/push 0/imm32 +<span id="L17559" class="LineNr">17559 </span> 89/<- %edx 4/r32/esp +<span id="L17560" class="LineNr">17560 </span> <span class="subxComment">#</span> +<span id="L17561" class="LineNr">17561 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L17562" class="LineNr">17562 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17563" class="LineNr">17563 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17564" class="LineNr">17564 </span> 89/<- %edx 0/r32/eax +<span id="L17565" class="LineNr">17565 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17566" class="LineNr">17566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17567" class="LineNr">17567 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17537'>test-parse-var-with-type</a>/name"</span>) +<span id="L17568" class="LineNr">17568 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17569" class="LineNr">17569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17570" class="LineNr">17570 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17537'>test-parse-var-with-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17571" class="LineNr">17571 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17537'>test-parse-var-with-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17572" class="LineNr">17572 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17537'>test-parse-var-with-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17573" class="LineNr">17573 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17574" class="LineNr">17574 </span> 89/<- %esp 5/r32/ebp +<span id="L17575" class="LineNr">17575 </span> 5d/pop-to-ebp +<span id="L17576" class="LineNr">17576 </span> c3/return +<span id="L17577" class="LineNr">17577 </span> +<span id="L17578" class="LineNr">17578 </span><span class="subxTest">test-parse-var-with-type-and-register</span>: +<span id="L17579" class="LineNr">17579 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17580" class="LineNr">17580 </span> 55/push-ebp +<span id="L17581" class="LineNr">17581 </span> 89/<- %ebp 4/r32/esp +<span id="L17582" class="LineNr">17582 </span> <span class="subxComment"># setup</span> +<span id="L17583" class="LineNr">17583 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17584" class="LineNr">17584 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L17585" class="LineNr">17585 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L17586" class="LineNr">17586 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L17587" class="LineNr">17587 </span> 8b/-> *eax 1/r32/ecx +<span id="L17588" class="LineNr">17588 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17589" class="LineNr">17589 </span> 05/add-to-eax 4/imm32 +<span id="L17590" class="LineNr">17590 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17591" class="LineNr">17591 </span> 51/push-ecx +<span id="L17592" class="LineNr">17592 </span> 50/push-eax +<span id="L17593" class="LineNr">17593 </span> 89/<- %ecx 4/r32/esp +<span id="L17594" class="LineNr">17594 </span> <span class="subxComment"># _test-input-stream contains "int"</span> +<span id="L17595" class="LineNr">17595 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17596" class="LineNr">17596 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int"</span>) +<span id="L17597" class="LineNr">17597 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17598" class="LineNr">17598 </span> 68/push 0/imm32 +<span id="L17599" class="LineNr">17599 </span> 68/push 0/imm32 +<span id="L17600" class="LineNr">17600 </span> 89/<- %edx 4/r32/esp +<span id="L17601" class="LineNr">17601 </span> <span class="subxComment">#</span> +<span id="L17602" class="LineNr">17602 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L17603" class="LineNr">17603 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17604" class="LineNr">17604 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17605" class="LineNr">17605 </span> 89/<- %edx 0/r32/eax +<span id="L17606" class="LineNr">17606 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17607" class="LineNr">17607 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17608" class="LineNr">17608 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17578'>test-parse-var-with-type-and-register</a>/name"</span>) +<span id="L17609" class="LineNr">17609 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17610" class="LineNr">17610 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17611" class="LineNr">17611 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L17578'>test-parse-var-with-type-and-register</a>/register"</span>) +<span id="L17612" class="LineNr">17612 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17613" class="LineNr">17613 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17614" class="LineNr">17614 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17578'>test-parse-var-with-type-and-register</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17615" class="LineNr">17615 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17578'>test-parse-var-with-type-and-register</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17616" class="LineNr">17616 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17578'>test-parse-var-with-type-and-register</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17617" class="LineNr">17617 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17618" class="LineNr">17618 </span> 89/<- %esp 5/r32/ebp +<span id="L17619" class="LineNr">17619 </span> 5d/pop-to-ebp +<span id="L17620" class="LineNr">17620 </span> c3/return +<span id="L17621" class="LineNr">17621 </span> +<span id="L17622" class="LineNr">17622 </span><span class="subxTest">test-parse-var-with-trailing-characters</span>: +<span id="L17623" class="LineNr">17623 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17624" class="LineNr">17624 </span> 55/push-ebp +<span id="L17625" class="LineNr">17625 </span> 89/<- %ebp 4/r32/esp +<span id="L17626" class="LineNr">17626 </span> <span class="subxComment"># setup</span> +<span id="L17627" class="LineNr">17627 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17628" class="LineNr">17628 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L17629" class="LineNr">17629 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17630" class="LineNr">17630 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17631" class="LineNr">17631 </span> 8b/-> *eax 1/r32/ecx +<span id="L17632" class="LineNr">17632 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17633" class="LineNr">17633 </span> 05/add-to-eax 4/imm32 +<span id="L17634" class="LineNr">17634 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17635" class="LineNr">17635 </span> 51/push-ecx +<span id="L17636" class="LineNr">17636 </span> 50/push-eax +<span id="L17637" class="LineNr">17637 </span> 89/<- %ecx 4/r32/esp +<span id="L17638" class="LineNr">17638 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L17639" class="LineNr">17639 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17640" class="LineNr">17640 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int,"</span>) +<span id="L17641" class="LineNr">17641 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17642" class="LineNr">17642 </span> 68/push 0/imm32 +<span id="L17643" class="LineNr">17643 </span> 68/push 0/imm32 +<span id="L17644" class="LineNr">17644 </span> 89/<- %edx 4/r32/esp +<span id="L17645" class="LineNr">17645 </span> <span class="subxComment">#</span> +<span id="L17646" class="LineNr">17646 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L17647" class="LineNr">17647 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17648" class="LineNr">17648 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17649" class="LineNr">17649 </span> 89/<- %edx 0/r32/eax +<span id="L17650" class="LineNr">17650 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17651" class="LineNr">17651 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17652" class="LineNr">17652 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17622'>test-parse-var-with-trailing-characters</a>/name"</span>) +<span id="L17653" class="LineNr">17653 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17654" class="LineNr">17654 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17622'>test-parse-var-with-trailing-characters</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L17655" class="LineNr">17655 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17656" class="LineNr">17656 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17657" class="LineNr">17657 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17622'>test-parse-var-with-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17658" class="LineNr">17658 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17622'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17659" class="LineNr">17659 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17622'>test-parse-var-with-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17660" class="LineNr">17660 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17661" class="LineNr">17661 </span> 89/<- %esp 5/r32/ebp +<span id="L17662" class="LineNr">17662 </span> 5d/pop-to-ebp +<span id="L17663" class="LineNr">17663 </span> c3/return +<span id="L17664" class="LineNr">17664 </span> +<span id="L17665" class="LineNr">17665 </span><span class="subxTest">test-parse-var-with-register-and-trailing-characters</span>: +<span id="L17666" class="LineNr">17666 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17667" class="LineNr">17667 </span> 55/push-ebp +<span id="L17668" class="LineNr">17668 </span> 89/<- %ebp 4/r32/esp +<span id="L17669" class="LineNr">17669 </span> <span class="subxComment"># setup</span> +<span id="L17670" class="LineNr">17670 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17671" class="LineNr">17671 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L17672" class="LineNr">17672 </span> <span class="subxComment"># (eax..ecx) = "x/eax:"</span> +<span id="L17673" class="LineNr">17673 </span> b8/copy-to-eax <span class="Constant">"x/eax:"</span>/imm32 +<span id="L17674" class="LineNr">17674 </span> 8b/-> *eax 1/r32/ecx +<span id="L17675" class="LineNr">17675 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17676" class="LineNr">17676 </span> 05/add-to-eax 4/imm32 +<span id="L17677" class="LineNr">17677 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17678" class="LineNr">17678 </span> 51/push-ecx +<span id="L17679" class="LineNr">17679 </span> 50/push-eax +<span id="L17680" class="LineNr">17680 </span> 89/<- %ecx 4/r32/esp +<span id="L17681" class="LineNr">17681 </span> <span class="subxComment"># _test-input-stream contains "int,"</span> +<span id="L17682" class="LineNr">17682 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17683" class="LineNr">17683 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"int,"</span>) +<span id="L17684" class="LineNr">17684 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17685" class="LineNr">17685 </span> 68/push 0/imm32 +<span id="L17686" class="LineNr">17686 </span> 68/push 0/imm32 +<span id="L17687" class="LineNr">17687 </span> 89/<- %edx 4/r32/esp +<span id="L17688" class="LineNr">17688 </span> <span class="subxComment">#</span> +<span id="L17689" class="LineNr">17689 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L17690" class="LineNr">17690 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17691" class="LineNr">17691 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17692" class="LineNr">17692 </span> 89/<- %edx 0/r32/eax +<span id="L17693" class="LineNr">17693 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17694" class="LineNr">17694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17695" class="LineNr">17695 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17665'>test-parse-var-with-register-and-trailing-characters</a>/name"</span>) +<span id="L17696" class="LineNr">17696 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17697" class="LineNr">17697 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L17698" class="LineNr">17698 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L17665'>test-parse-var-with-register-and-trailing-characters</a>/register"</span>) +<span id="L17699" class="LineNr">17699 </span> <span class="subxComment"># check v-addr->type</span> +<span id="L17700" class="LineNr">17700 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17701" class="LineNr">17701 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17665'>test-parse-var-with-register-and-trailing-characters</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17702" class="LineNr">17702 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17665'>test-parse-var-with-register-and-trailing-characters</a>/type:1"</span>) <span class="subxComment"># Type-tree-left</span> +<span id="L17703" class="LineNr">17703 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17665'>test-parse-var-with-register-and-trailing-characters</a>/type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17704" class="LineNr">17704 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17705" class="LineNr">17705 </span> 89/<- %esp 5/r32/ebp +<span id="L17706" class="LineNr">17706 </span> 5d/pop-to-ebp +<span id="L17707" class="LineNr">17707 </span> c3/return +<span id="L17708" class="LineNr">17708 </span> +<span id="L17709" class="LineNr">17709 </span><span class="subxTest">test-parse-var-with-compound-type</span>: +<span id="L17710" class="LineNr">17710 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17711" class="LineNr">17711 </span> 55/push-ebp +<span id="L17712" class="LineNr">17712 </span> 89/<- %ebp 4/r32/esp +<span id="L17713" class="LineNr">17713 </span> <span class="subxComment"># setup</span> +<span id="L17714" class="LineNr">17714 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L17715" class="LineNr">17715 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L17716" class="LineNr">17716 </span> <span class="subxComment"># (eax..ecx) = "x:"</span> +<span id="L17717" class="LineNr">17717 </span> b8/copy-to-eax <span class="Constant">"x:"</span>/imm32 +<span id="L17718" class="LineNr">17718 </span> 8b/-> *eax 1/r32/ecx +<span id="L17719" class="LineNr">17719 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17720" class="LineNr">17720 </span> 05/add-to-eax 4/imm32 +<span id="L17721" class="LineNr">17721 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17722" class="LineNr">17722 </span> 51/push-ecx +<span id="L17723" class="LineNr">17723 </span> 50/push-eax +<span id="L17724" class="LineNr">17724 </span> 89/<- %ecx 4/r32/esp +<span id="L17725" class="LineNr">17725 </span> <span class="subxComment"># _test-input-stream contains "(addr int)"</span> +<span id="L17726" class="LineNr">17726 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L17727" class="LineNr">17727 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"(addr int)"</span>) +<span id="L17728" class="LineNr">17728 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L17729" class="LineNr">17729 </span> 68/push 0/imm32 +<span id="L17730" class="LineNr">17730 </span> 68/push 0/imm32 +<span id="L17731" class="LineNr">17731 </span> 89/<- %edx 4/r32/esp +<span id="L17732" class="LineNr">17732 </span> <span class="subxComment">#</span> +<span id="L17733" class="LineNr">17733 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %edx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L17734" class="LineNr">17734 </span> <span class="subxComment"># var v-addr/edx: (addr var) = lookup(v)</span> +<span id="L17735" class="LineNr">17735 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L17736" class="LineNr">17736 </span> 89/<- %edx 0/r32/eax +<span id="L17737" class="LineNr">17737 </span> <span class="subxComment"># check v-addr->name</span> +<span id="L17738" class="LineNr">17738 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L17739" class="LineNr">17739 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"x"</span> <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/name"</span>) +<span id="L17740" class="LineNr">17740 </span> <span class="subxComment"># check v-addr->register</span> +<span id="L17741" class="LineNr">17741 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(edx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/register"</span>) <span class="subxComment"># Var-register</span> +<span id="L17742" class="LineNr">17742 </span> <span class="subxH1Comment"># - check v-addr->type</span> +<span id="L17743" class="LineNr">17743 </span> <span class="subxComment"># var type/edx: (addr type-tree) = var->type</span> +<span id="L17744" class="LineNr">17744 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L17745" class="LineNr">17745 </span> 89/<- %edx 0/r32/eax +<span id="L17746" class="LineNr">17746 </span> <span class="subxComment"># type is a non-atom</span> +<span id="L17747" class="LineNr">17747 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 0 <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17748" class="LineNr">17748 </span> <span class="subxComment"># type->left == atom(addr)</span> +<span id="L17749" class="LineNr">17749 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17750" class="LineNr">17750 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/type:1"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17751" class="LineNr">17751 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 2 <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/type:2"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17752" class="LineNr">17752 </span> <span class="subxComment"># type->right->left == atom(int)</span> +<span id="L17753" class="LineNr">17753 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L17754" class="LineNr">17754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L17755" class="LineNr">17755 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/type:3"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L17756" class="LineNr">17756 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/type:4"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L17757" class="LineNr">17757 </span> <span class="subxComment"># type->right->right == null</span> +<span id="L17758" class="LineNr">17758 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L17709'>test-parse-var-with-compound-type</a>/type:5"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L17759" class="LineNr">17759 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17760" class="LineNr">17760 </span> 89/<- %esp 5/r32/ebp +<span id="L17761" class="LineNr">17761 </span> 5d/pop-to-ebp +<span id="L17762" class="LineNr">17762 </span> c3/return +<span id="L17763" class="LineNr">17763 </span> +<span id="L17764" class="LineNr">17764 </span><span class="subxComment"># identifier starts with a letter or '$' or '_'</span> +<span id="L17765" class="LineNr">17765 </span><span class="subxComment"># no constraints at the moment on later letters</span> +<span id="L17766" class="LineNr">17766 </span><span class="subxComment"># all we really want to do so far is exclude '{', '}' and '->'</span> +<span id="L17767" class="LineNr">17767 </span><span class="subxFunction">identifier?</span>: <span class="subxComment"># in: (addr slice) -> result/eax: boolean</span> +<span id="L17768" class="LineNr">17768 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17769" class="LineNr">17769 </span> 55/push-ebp +<span id="L17770" class="LineNr">17770 </span> 89/<- %ebp 4/r32/esp +<span id="L17771" class="LineNr">17771 </span> <span class="subxComment"># if (slice-empty?(in)) return false</span> +<span id="L17772" class="LineNr">17772 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L17773" class="LineNr">17773 </span> 3d/compare-eax-and 0/imm32/false +<span id="L17774" class="LineNr">17774 </span> 75/jump-if-!= $identifier?:false/disp8 +<span id="L17775" class="LineNr">17775 </span> <span class="subxComment"># var c/eax: byte = *in->start</span> +<span id="L17776" class="LineNr">17776 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L17777" class="LineNr">17777 </span> 8b/-> *eax 0/r32/eax +<span id="L17778" class="LineNr">17778 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L17779" class="LineNr">17779 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L17780" class="LineNr">17780 </span> <span class="subxComment"># if (c == '$') return true</span> +<span id="L17781" class="LineNr">17781 </span> 3d/compare-eax-and 0x24/imm32/$ +<span id="L17782" class="LineNr">17782 </span> 74/jump-if-= $identifier?:true/disp8 +<span id="L17783" class="LineNr">17783 </span> <span class="subxComment"># if (c == '_') return true</span> +<span id="L17784" class="LineNr">17784 </span> 3d/compare-eax-and 0x5f/imm32/_ +<span id="L17785" class="LineNr">17785 </span> 74/jump-if-= $identifier?:true/disp8 +<span id="L17786" class="LineNr">17786 </span> <span class="subxComment"># drop case</span> +<span id="L17787" class="LineNr">17787 </span> 25/and-eax-with 0x5f/imm32 +<span id="L17788" class="LineNr">17788 </span> <span class="subxComment"># if (c < 'A') return false</span> +<span id="L17789" class="LineNr">17789 </span> 3d/compare-eax-and 0x41/imm32/A +<span id="L17790" class="LineNr">17790 </span> 7c/jump-if-< $identifier?:false/disp8 +<span id="L17791" class="LineNr">17791 </span> <span class="subxComment"># if (c > 'Z') return false</span> +<span id="L17792" class="LineNr">17792 </span> 3d/compare-eax-and 0x5a/imm32/Z +<span id="L17793" class="LineNr">17793 </span> 7f/jump-if-> $identifier?:false/disp8 +<span id="L17794" class="LineNr">17794 </span> <span class="subxComment"># otherwise return true</span> +<span id="L17795" class="LineNr">17795 </span><span class="Constant">$identifier?:true</span>: +<span id="L17796" class="LineNr">17796 </span> b8/copy-to-eax 1/imm32/true +<span id="L17797" class="LineNr">17797 </span> eb/jump $identifier?:end/disp8 +<span id="L17798" class="LineNr">17798 </span><span class="Constant">$identifier?:false</span>: +<span id="L17799" class="LineNr">17799 </span> b8/copy-to-eax 0/imm32/false +<span id="L17800" class="LineNr">17800 </span><span class="Constant">$identifier?:end</span>: +<span id="L17801" class="LineNr">17801 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17802" class="LineNr">17802 </span> 89/<- %esp 5/r32/ebp +<span id="L17803" class="LineNr">17803 </span> 5d/pop-to-ebp +<span id="L17804" class="LineNr">17804 </span> c3/return +<span id="L17805" class="LineNr">17805 </span> +<span id="L17806" class="LineNr">17806 </span><span class="subxTest">test-is-identifier-dollar</span>: +<span id="L17807" class="LineNr">17807 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17808" class="LineNr">17808 </span> 55/push-ebp +<span id="L17809" class="LineNr">17809 </span> 89/<- %ebp 4/r32/esp +<span id="L17810" class="LineNr">17810 </span> <span class="subxComment"># (eax..ecx) = "$a"</span> +<span id="L17811" class="LineNr">17811 </span> b8/copy-to-eax <span class="Constant">"$a"</span>/imm32 +<span id="L17812" class="LineNr">17812 </span> 8b/-> *eax 1/r32/ecx +<span id="L17813" class="LineNr">17813 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17814" class="LineNr">17814 </span> 05/add-to-eax 4/imm32 +<span id="L17815" class="LineNr">17815 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17816" class="LineNr">17816 </span> 51/push-ecx +<span id="L17817" class="LineNr">17817 </span> 50/push-eax +<span id="L17818" class="LineNr">17818 </span> 89/<- %ecx 4/r32/esp +<span id="L17819" class="LineNr">17819 </span> <span class="subxComment">#</span> +<span id="L17820" class="LineNr">17820 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17821" class="LineNr">17821 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-dollar"</span>) +<span id="L17822" class="LineNr">17822 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17823" class="LineNr">17823 </span> 89/<- %esp 5/r32/ebp +<span id="L17824" class="LineNr">17824 </span> 5d/pop-to-ebp +<span id="L17825" class="LineNr">17825 </span> c3/return +<span id="L17826" class="LineNr">17826 </span> +<span id="L17827" class="LineNr">17827 </span><span class="subxTest">test-is-identifier-underscore</span>: +<span id="L17828" class="LineNr">17828 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17829" class="LineNr">17829 </span> 55/push-ebp +<span id="L17830" class="LineNr">17830 </span> 89/<- %ebp 4/r32/esp +<span id="L17831" class="LineNr">17831 </span> <span class="subxComment"># (eax..ecx) = "_a"</span> +<span id="L17832" class="LineNr">17832 </span> b8/copy-to-eax <span class="Constant">"_a"</span>/imm32 +<span id="L17833" class="LineNr">17833 </span> 8b/-> *eax 1/r32/ecx +<span id="L17834" class="LineNr">17834 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17835" class="LineNr">17835 </span> 05/add-to-eax 4/imm32 +<span id="L17836" class="LineNr">17836 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17837" class="LineNr">17837 </span> 51/push-ecx +<span id="L17838" class="LineNr">17838 </span> 50/push-eax +<span id="L17839" class="LineNr">17839 </span> 89/<- %ecx 4/r32/esp +<span id="L17840" class="LineNr">17840 </span> <span class="subxComment">#</span> +<span id="L17841" class="LineNr">17841 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17842" class="LineNr">17842 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-underscore"</span>) +<span id="L17843" class="LineNr">17843 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17844" class="LineNr">17844 </span> 89/<- %esp 5/r32/ebp +<span id="L17845" class="LineNr">17845 </span> 5d/pop-to-ebp +<span id="L17846" class="LineNr">17846 </span> c3/return +<span id="L17847" class="LineNr">17847 </span> +<span id="L17848" class="LineNr">17848 </span><span class="subxTest">test-is-identifier-a</span>: +<span id="L17849" class="LineNr">17849 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17850" class="LineNr">17850 </span> 55/push-ebp +<span id="L17851" class="LineNr">17851 </span> 89/<- %ebp 4/r32/esp +<span id="L17852" class="LineNr">17852 </span> <span class="subxComment"># (eax..ecx) = "a$"</span> +<span id="L17853" class="LineNr">17853 </span> b8/copy-to-eax <span class="Constant">"a$"</span>/imm32 +<span id="L17854" class="LineNr">17854 </span> 8b/-> *eax 1/r32/ecx +<span id="L17855" class="LineNr">17855 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17856" class="LineNr">17856 </span> 05/add-to-eax 4/imm32 +<span id="L17857" class="LineNr">17857 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17858" class="LineNr">17858 </span> 51/push-ecx +<span id="L17859" class="LineNr">17859 </span> 50/push-eax +<span id="L17860" class="LineNr">17860 </span> 89/<- %ecx 4/r32/esp +<span id="L17861" class="LineNr">17861 </span> <span class="subxComment">#</span> +<span id="L17862" class="LineNr">17862 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17863" class="LineNr">17863 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-a"</span>) +<span id="L17864" class="LineNr">17864 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17865" class="LineNr">17865 </span> 89/<- %esp 5/r32/ebp +<span id="L17866" class="LineNr">17866 </span> 5d/pop-to-ebp +<span id="L17867" class="LineNr">17867 </span> c3/return +<span id="L17868" class="LineNr">17868 </span> +<span id="L17869" class="LineNr">17869 </span><span class="subxTest">test-is-identifier-z</span>: +<span id="L17870" class="LineNr">17870 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17871" class="LineNr">17871 </span> 55/push-ebp +<span id="L17872" class="LineNr">17872 </span> 89/<- %ebp 4/r32/esp +<span id="L17873" class="LineNr">17873 </span> <span class="subxComment"># (eax..ecx) = "z$"</span> +<span id="L17874" class="LineNr">17874 </span> b8/copy-to-eax <span class="Constant">"z$"</span>/imm32 +<span id="L17875" class="LineNr">17875 </span> 8b/-> *eax 1/r32/ecx +<span id="L17876" class="LineNr">17876 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17877" class="LineNr">17877 </span> 05/add-to-eax 4/imm32 +<span id="L17878" class="LineNr">17878 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17879" class="LineNr">17879 </span> 51/push-ecx +<span id="L17880" class="LineNr">17880 </span> 50/push-eax +<span id="L17881" class="LineNr">17881 </span> 89/<- %ecx 4/r32/esp +<span id="L17882" class="LineNr">17882 </span> <span class="subxComment">#</span> +<span id="L17883" class="LineNr">17883 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17884" class="LineNr">17884 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-z"</span>) +<span id="L17885" class="LineNr">17885 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17886" class="LineNr">17886 </span> 89/<- %esp 5/r32/ebp +<span id="L17887" class="LineNr">17887 </span> 5d/pop-to-ebp +<span id="L17888" class="LineNr">17888 </span> c3/return +<span id="L17889" class="LineNr">17889 </span> +<span id="L17890" class="LineNr">17890 </span><span class="subxTest">test-is-identifier-A</span>: +<span id="L17891" class="LineNr">17891 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17892" class="LineNr">17892 </span> 55/push-ebp +<span id="L17893" class="LineNr">17893 </span> 89/<- %ebp 4/r32/esp +<span id="L17894" class="LineNr">17894 </span> <span class="subxComment"># (eax..ecx) = "A$"</span> +<span id="L17895" class="LineNr">17895 </span> b8/copy-to-eax <span class="Constant">"A$"</span>/imm32 +<span id="L17896" class="LineNr">17896 </span> 8b/-> *eax 1/r32/ecx +<span id="L17897" class="LineNr">17897 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17898" class="LineNr">17898 </span> 05/add-to-eax 4/imm32 +<span id="L17899" class="LineNr">17899 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17900" class="LineNr">17900 </span> 51/push-ecx +<span id="L17901" class="LineNr">17901 </span> 50/push-eax +<span id="L17902" class="LineNr">17902 </span> 89/<- %ecx 4/r32/esp +<span id="L17903" class="LineNr">17903 </span> <span class="subxComment">#</span> +<span id="L17904" class="LineNr">17904 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17905" class="LineNr">17905 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-A"</span>) +<span id="L17906" class="LineNr">17906 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17907" class="LineNr">17907 </span> 89/<- %esp 5/r32/ebp +<span id="L17908" class="LineNr">17908 </span> 5d/pop-to-ebp +<span id="L17909" class="LineNr">17909 </span> c3/return +<span id="L17910" class="LineNr">17910 </span> +<span id="L17911" class="LineNr">17911 </span><span class="subxTest">test-is-identifier-Z</span>: +<span id="L17912" class="LineNr">17912 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17913" class="LineNr">17913 </span> 55/push-ebp +<span id="L17914" class="LineNr">17914 </span> 89/<- %ebp 4/r32/esp +<span id="L17915" class="LineNr">17915 </span> <span class="subxComment"># (eax..ecx) = "Z$"</span> +<span id="L17916" class="LineNr">17916 </span> b8/copy-to-eax <span class="Constant">"Z$"</span>/imm32 +<span id="L17917" class="LineNr">17917 </span> 8b/-> *eax 1/r32/ecx +<span id="L17918" class="LineNr">17918 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17919" class="LineNr">17919 </span> 05/add-to-eax 4/imm32 +<span id="L17920" class="LineNr">17920 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17921" class="LineNr">17921 </span> 51/push-ecx +<span id="L17922" class="LineNr">17922 </span> 50/push-eax +<span id="L17923" class="LineNr">17923 </span> 89/<- %ecx 4/r32/esp +<span id="L17924" class="LineNr">17924 </span> <span class="subxComment">#</span> +<span id="L17925" class="LineNr">17925 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17926" class="LineNr">17926 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 1 <span class="Constant">"F - test-is-identifier-Z"</span>) +<span id="L17927" class="LineNr">17927 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17928" class="LineNr">17928 </span> 89/<- %esp 5/r32/ebp +<span id="L17929" class="LineNr">17929 </span> 5d/pop-to-ebp +<span id="L17930" class="LineNr">17930 </span> c3/return +<span id="L17931" class="LineNr">17931 </span> +<span id="L17932" class="LineNr">17932 </span><span class="subxTest">test-is-identifier-at</span>: +<span id="L17933" class="LineNr">17933 </span> <span class="subxComment"># character before 'A' is invalid</span> +<span id="L17934" class="LineNr">17934 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17935" class="LineNr">17935 </span> 55/push-ebp +<span id="L17936" class="LineNr">17936 </span> 89/<- %ebp 4/r32/esp +<span id="L17937" class="LineNr">17937 </span> <span class="subxComment"># (eax..ecx) = "@a"</span> +<span id="L17938" class="LineNr">17938 </span> b8/copy-to-eax <span class="Constant">"@a"</span>/imm32 +<span id="L17939" class="LineNr">17939 </span> 8b/-> *eax 1/r32/ecx +<span id="L17940" class="LineNr">17940 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17941" class="LineNr">17941 </span> 05/add-to-eax 4/imm32 +<span id="L17942" class="LineNr">17942 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17943" class="LineNr">17943 </span> 51/push-ecx +<span id="L17944" class="LineNr">17944 </span> 50/push-eax +<span id="L17945" class="LineNr">17945 </span> 89/<- %ecx 4/r32/esp +<span id="L17946" class="LineNr">17946 </span> <span class="subxComment">#</span> +<span id="L17947" class="LineNr">17947 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17948" class="LineNr">17948 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L17949" class="LineNr">17949 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17950" class="LineNr">17950 </span> 89/<- %esp 5/r32/ebp +<span id="L17951" class="LineNr">17951 </span> 5d/pop-to-ebp +<span id="L17952" class="LineNr">17952 </span> c3/return +<span id="L17953" class="LineNr">17953 </span> +<span id="L17954" class="LineNr">17954 </span><span class="subxTest">test-is-identifier-square-bracket</span>: +<span id="L17955" class="LineNr">17955 </span> <span class="subxComment"># character after 'Z' is invalid</span> +<span id="L17956" class="LineNr">17956 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17957" class="LineNr">17957 </span> 55/push-ebp +<span id="L17958" class="LineNr">17958 </span> 89/<- %ebp 4/r32/esp +<span id="L17959" class="LineNr">17959 </span> <span class="subxComment"># (eax..ecx) = "[a"</span> +<span id="L17960" class="LineNr">17960 </span> b8/copy-to-eax <span class="Constant">"[a"</span>/imm32 +<span id="L17961" class="LineNr">17961 </span> 8b/-> *eax 1/r32/ecx +<span id="L17962" class="LineNr">17962 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17963" class="LineNr">17963 </span> 05/add-to-eax 4/imm32 +<span id="L17964" class="LineNr">17964 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17965" class="LineNr">17965 </span> 51/push-ecx +<span id="L17966" class="LineNr">17966 </span> 50/push-eax +<span id="L17967" class="LineNr">17967 </span> 89/<- %ecx 4/r32/esp +<span id="L17968" class="LineNr">17968 </span> <span class="subxComment">#</span> +<span id="L17969" class="LineNr">17969 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17970" class="LineNr">17970 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-@"</span>) +<span id="L17971" class="LineNr">17971 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17972" class="LineNr">17972 </span> 89/<- %esp 5/r32/ebp +<span id="L17973" class="LineNr">17973 </span> 5d/pop-to-ebp +<span id="L17974" class="LineNr">17974 </span> c3/return +<span id="L17975" class="LineNr">17975 </span> +<span id="L17976" class="LineNr">17976 </span><span class="subxTest">test-is-identifier-backtick</span>: +<span id="L17977" class="LineNr">17977 </span> <span class="subxComment"># character before 'a' is invalid</span> +<span id="L17978" class="LineNr">17978 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L17979" class="LineNr">17979 </span> 55/push-ebp +<span id="L17980" class="LineNr">17980 </span> 89/<- %ebp 4/r32/esp +<span id="L17981" class="LineNr">17981 </span> <span class="subxComment"># (eax..ecx) = "`a"</span> +<span id="L17982" class="LineNr">17982 </span> b8/copy-to-eax <span class="Constant">"`a"</span>/imm32 +<span id="L17983" class="LineNr">17983 </span> 8b/-> *eax 1/r32/ecx +<span id="L17984" class="LineNr">17984 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L17985" class="LineNr">17985 </span> 05/add-to-eax 4/imm32 +<span id="L17986" class="LineNr">17986 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L17987" class="LineNr">17987 </span> 51/push-ecx +<span id="L17988" class="LineNr">17988 </span> 50/push-eax +<span id="L17989" class="LineNr">17989 </span> 89/<- %ecx 4/r32/esp +<span id="L17990" class="LineNr">17990 </span> <span class="subxComment">#</span> +<span id="L17991" class="LineNr">17991 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L17992" class="LineNr">17992 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-backtick"</span>) +<span id="L17993" class="LineNr">17993 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L17994" class="LineNr">17994 </span> 89/<- %esp 5/r32/ebp +<span id="L17995" class="LineNr">17995 </span> 5d/pop-to-ebp +<span id="L17996" class="LineNr">17996 </span> c3/return +<span id="L17997" class="LineNr">17997 </span> +<span id="L17998" class="LineNr">17998 </span><span class="subxTest">test-is-identifier-curly-brace-open</span>: +<span id="L17999" class="LineNr">17999 </span> <span class="subxComment"># character after 'z' is invalid; also used for blocks</span> +<span id="L18000" class="LineNr">18000 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18001" class="LineNr">18001 </span> 55/push-ebp +<span id="L18002" class="LineNr">18002 </span> 89/<- %ebp 4/r32/esp +<span id="L18003" class="LineNr">18003 </span> <span class="subxComment"># (eax..ecx) = "{a"</span> +<span id="L18004" class="LineNr">18004 </span> b8/copy-to-eax <span class="Constant">"{a"</span>/imm32 +<span id="L18005" class="LineNr">18005 </span> 8b/-> *eax 1/r32/ecx +<span id="L18006" class="LineNr">18006 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18007" class="LineNr">18007 </span> 05/add-to-eax 4/imm32 +<span id="L18008" class="LineNr">18008 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18009" class="LineNr">18009 </span> 51/push-ecx +<span id="L18010" class="LineNr">18010 </span> 50/push-eax +<span id="L18011" class="LineNr">18011 </span> 89/<- %ecx 4/r32/esp +<span id="L18012" class="LineNr">18012 </span> <span class="subxComment">#</span> +<span id="L18013" class="LineNr">18013 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L18014" class="LineNr">18014 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-curly-brace-open"</span>) +<span id="L18015" class="LineNr">18015 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18016" class="LineNr">18016 </span> 89/<- %esp 5/r32/ebp +<span id="L18017" class="LineNr">18017 </span> 5d/pop-to-ebp +<span id="L18018" class="LineNr">18018 </span> c3/return +<span id="L18019" class="LineNr">18019 </span> +<span id="L18020" class="LineNr">18020 </span><span class="subxTest">test-is-identifier-curly-brace-close</span>: +<span id="L18021" class="LineNr">18021 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18022" class="LineNr">18022 </span> 55/push-ebp +<span id="L18023" class="LineNr">18023 </span> 89/<- %ebp 4/r32/esp +<span id="L18024" class="LineNr">18024 </span> <span class="subxComment"># (eax..ecx) = "}a"</span> +<span id="L18025" class="LineNr">18025 </span> b8/copy-to-eax <span class="Constant">"}a"</span>/imm32 +<span id="L18026" class="LineNr">18026 </span> 8b/-> *eax 1/r32/ecx +<span id="L18027" class="LineNr">18027 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18028" class="LineNr">18028 </span> 05/add-to-eax 4/imm32 +<span id="L18029" class="LineNr">18029 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18030" class="LineNr">18030 </span> 51/push-ecx +<span id="L18031" class="LineNr">18031 </span> 50/push-eax +<span id="L18032" class="LineNr">18032 </span> 89/<- %ecx 4/r32/esp +<span id="L18033" class="LineNr">18033 </span> <span class="subxComment">#</span> +<span id="L18034" class="LineNr">18034 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L18035" class="LineNr">18035 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-curly-brace-close"</span>) +<span id="L18036" class="LineNr">18036 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18037" class="LineNr">18037 </span> 89/<- %esp 5/r32/ebp +<span id="L18038" class="LineNr">18038 </span> 5d/pop-to-ebp +<span id="L18039" class="LineNr">18039 </span> c3/return +<span id="L18040" class="LineNr">18040 </span> +<span id="L18041" class="LineNr">18041 </span><span class="subxTest">test-is-identifier-hyphen</span>: +<span id="L18042" class="LineNr">18042 </span> <span class="subxComment"># disallow leading '-' since '->' has special meaning</span> +<span id="L18043" class="LineNr">18043 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18044" class="LineNr">18044 </span> 55/push-ebp +<span id="L18045" class="LineNr">18045 </span> 89/<- %ebp 4/r32/esp +<span id="L18046" class="LineNr">18046 </span> <span class="subxComment"># (eax..ecx) = "-a"</span> +<span id="L18047" class="LineNr">18047 </span> b8/copy-to-eax <span class="Constant">"-a"</span>/imm32 +<span id="L18048" class="LineNr">18048 </span> 8b/-> *eax 1/r32/ecx +<span id="L18049" class="LineNr">18049 </span> 8d/copy-address *(eax+ecx+4) 1/r32/ecx +<span id="L18050" class="LineNr">18050 </span> 05/add-to-eax 4/imm32 +<span id="L18051" class="LineNr">18051 </span> <span class="subxComment"># var slice/ecx: slice = {eax, ecx}</span> +<span id="L18052" class="LineNr">18052 </span> 51/push-ecx +<span id="L18053" class="LineNr">18053 </span> 50/push-eax +<span id="L18054" class="LineNr">18054 </span> 89/<- %ecx 4/r32/esp +<span id="L18055" class="LineNr">18055 </span> <span class="subxComment">#</span> +<span id="L18056" class="LineNr">18056 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) +<span id="L18057" class="LineNr">18057 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> %eax 0 <span class="Constant">"F - test-is-identifier-hyphen"</span>) +<span id="L18058" class="LineNr">18058 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18059" class="LineNr">18059 </span> 89/<- %esp 5/r32/ebp +<span id="L18060" class="LineNr">18060 </span> 5d/pop-to-ebp +<span id="L18061" class="LineNr">18061 </span> c3/return +<span id="L18062" class="LineNr">18062 </span> +<span id="L18063" class="LineNr">18063 </span><span class="subxFunction">populate-mu-function-body</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr function), vars: (addr stack live-var), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L18064" class="LineNr">18064 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18065" class="LineNr">18065 </span> 55/push-ebp +<span id="L18066" class="LineNr">18066 </span> 89/<- %ebp 4/r32/esp +<span id="L18067" class="LineNr">18067 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18068" class="LineNr">18068 </span> 50/push-eax +<span id="L18069" class="LineNr">18069 </span> 56/push-esi +<span id="L18070" class="LineNr">18070 </span> 57/push-edi +<span id="L18071" class="LineNr">18071 </span> <span class="subxComment"># esi = in</span> +<span id="L18072" class="LineNr">18072 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L18073" class="LineNr">18073 </span> <span class="subxComment"># edi = out</span> +<span id="L18074" class="LineNr">18074 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L18075" class="LineNr">18075 </span> <span class="subxComment"># initialize some global state</span> +<span id="L18076" class="LineNr">18076 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 1/imm32 +<span id="L18077" class="LineNr">18077 </span> <span class="subxComment"># parse-mu-block(in, vars, out, out->body)</span> +<span id="L18078" class="LineNr">18078 </span> 8d/copy-address *(edi+0x18) 0/r32/eax <span class="subxComment"># Function-body</span> +<span id="L18079" class="LineNr">18079 </span> (<a href='mu.subx.html#L18091'>parse-mu-block</a> %esi *(ebp+0x10) %edi %eax *(ebp+0x14) *(ebp+0x18)) +<span id="L18080" class="LineNr">18080 </span><span class="Constant">$populate-mu-function-body:end</span>: +<span id="L18081" class="LineNr">18081 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18082" class="LineNr">18082 </span> 5f/pop-to-edi +<span id="L18083" class="LineNr">18083 </span> 5e/pop-to-esi +<span id="L18084" class="LineNr">18084 </span> 58/pop-to-eax +<span id="L18085" class="LineNr">18085 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18086" class="LineNr">18086 </span> 89/<- %esp 5/r32/ebp +<span id="L18087" class="LineNr">18087 </span> 5d/pop-to-ebp +<span id="L18088" class="LineNr">18088 </span> c3/return +<span id="L18089" class="LineNr">18089 </span> +<span id="L18090" class="LineNr">18090 </span><span class="subxComment"># parses a block, assuming that the leading '{' has already been read by the caller</span> +<span id="L18091" class="LineNr">18091 </span><span class="subxFunction">parse-mu-block</span>: <span class="subxComment"># in: (addr buffered-file), vars: (addr stack live-var), fn: (addr function), out: (addr handle block), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L18092" class="LineNr">18092 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18093" class="LineNr">18093 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L18094" class="LineNr">18094 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L18095" class="LineNr">18095 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L18096" class="LineNr">18096 </span> <span class="subxComment"># var out-addr: (addr block) = lookup(*out)</span> +<span id="L18097" class="LineNr">18097 </span> <span class="subxComment"># out-addr->tag = 0/block</span> +<span id="L18098" class="LineNr">18098 </span> <span class="subxComment"># out-addr->var = some unique name</span> +<span id="L18099" class="LineNr">18099 </span> <span class="subxComment"># push(vars, {out-addr->var, false})</span> +<span id="L18100" class="LineNr">18100 </span> <span class="subxComment"># while true # line loop</span> +<span id="L18101" class="LineNr">18101 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L18102" class="LineNr">18102 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L18103" class="LineNr">18103 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L18104" class="LineNr">18104 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L18105" class="LineNr">18105 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L18106" class="LineNr">18106 </span> <span class="subxComment"># continue</span> +<span id="L18107" class="LineNr">18107 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#")</span> +<span id="L18108" class="LineNr">18108 </span> <span class="subxComment"># continue</span> +<span id="L18109" class="LineNr">18109 </span> <span class="subxComment"># else if slice-equal?(word-slice, "{")</span> +<span id="L18110" class="LineNr">18110 </span> <span class="subxComment"># assert(no-tokens-in(line))</span> +<span id="L18111" class="LineNr">18111 </span> <span class="subxComment"># block = parse-mu-block(in, vars, fn)</span> +<span id="L18112" class="LineNr">18112 </span> <span class="subxComment"># append-to-block(out-addr, block)</span> +<span id="L18113" class="LineNr">18113 </span> <span class="subxComment"># else if slice-equal?(word-slice, "}")</span> +<span id="L18114" class="LineNr">18114 </span> <span class="subxComment"># break</span> +<span id="L18115" class="LineNr">18115 </span> <span class="subxComment"># else if slice-ends-with?(word-slice, ":")</span> +<span id="L18116" class="LineNr">18116 </span> <span class="subxComment"># # TODO: error-check the rest of 'line'</span> +<span id="L18117" class="LineNr">18117 </span> <span class="subxComment"># --word-slice->end to skip ':'</span> +<span id="L18118" class="LineNr">18118 </span> <span class="subxComment"># named-block = parse-mu-named-block(word-slice, in, vars, fn)</span> +<span id="L18119" class="LineNr">18119 </span> <span class="subxComment"># append-to-block(out-addr, named-block)</span> +<span id="L18120" class="LineNr">18120 </span> <span class="subxComment"># else if slice-equal?(word-slice, "var")</span> +<span id="L18121" class="LineNr">18121 </span> <span class="subxComment"># var-def = parse-mu-var-def(line, vars, fn)</span> +<span id="L18122" class="LineNr">18122 </span> <span class="subxComment"># append-to-block(out-addr, var-def)</span> +<span id="L18123" class="LineNr">18123 </span> <span class="subxComment"># else</span> +<span id="L18124" class="LineNr">18124 </span> <span class="subxComment"># stmt = parse-mu-stmt(line, vars, fn)</span> +<span id="L18125" class="LineNr">18125 </span> <span class="subxComment"># append-to-block(out-addr, stmt)</span> +<span id="L18126" class="LineNr">18126 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18127" class="LineNr">18127 </span> <span class="subxComment">#</span> +<span id="L18128" class="LineNr">18128 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18129" class="LineNr">18129 </span> 55/push-ebp +<span id="L18130" class="LineNr">18130 </span> 89/<- %ebp 4/r32/esp +<span id="L18131" class="LineNr">18131 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18132" class="LineNr">18132 </span> 50/push-eax +<span id="L18133" class="LineNr">18133 </span> 51/push-ecx +<span id="L18134" class="LineNr">18134 </span> 52/push-edx +<span id="L18135" class="LineNr">18135 </span> 53/push-ebx +<span id="L18136" class="LineNr">18136 </span> 57/push-edi +<span id="L18137" class="LineNr">18137 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L18138" class="LineNr">18138 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L18139" class="LineNr">18139 </span> 68/push 0x200/imm32/size +<span id="L18140" class="LineNr">18140 </span> 68/push 0/imm32/read +<span id="L18141" class="LineNr">18141 </span> 68/push 0/imm32/write +<span id="L18142" class="LineNr">18142 </span> 89/<- %ecx 4/r32/esp +<span id="L18143" class="LineNr">18143 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L18144" class="LineNr">18144 </span> 68/push 0/imm32/end +<span id="L18145" class="LineNr">18145 </span> 68/push 0/imm32/start +<span id="L18146" class="LineNr">18146 </span> 89/<- %edx 4/r32/esp +<span id="L18147" class="LineNr">18147 </span> <span class="subxComment"># allocate into out</span> +<span id="L18148" class="LineNr">18148 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> *(ebp+0x14)) +<span id="L18149" class="LineNr">18149 </span> <span class="subxComment"># var out-addr/edi: (addr block) = lookup(*out)</span> +<span id="L18150" class="LineNr">18150 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L18151" class="LineNr">18151 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18152" class="LineNr">18152 </span> 89/<- %edi 0/r32/eax +<span id="L18153" class="LineNr">18153 </span> <span class="subxComment"># out-addr->tag is 0 (block) by default</span> +<span id="L18154" class="LineNr">18154 </span> <span class="subxComment"># set out-addr->var</span> +<span id="L18155" class="LineNr">18155 </span> 8d/copy-address *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18156" class="LineNr">18156 </span> (<a href='mu.subx.html#L18311'>new-block-name</a> *(ebp+0x10) %eax) +<span id="L18157" class="LineNr">18157 </span> <span class="subxComment"># push(vars, out-addr->var)</span> +<span id="L18158" class="LineNr">18158 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L18159" class="LineNr">18159 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L18160" class="LineNr">18160 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># false</span> +<span id="L18161" class="LineNr">18161 </span> <span class="subxComment"># increment *Curr-block-depth</span> +<span id="L18162" class="LineNr">18162 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> +<span id="L18163" class="LineNr">18163 </span> { +<span id="L18164" class="LineNr">18164 </span><span class="Constant">$parse-mu-block:line-loop</span>: +<span id="L18165" class="LineNr">18165 </span> <span class="subxComment"># line = read-line-buffered(in)</span> +<span id="L18166" class="LineNr">18166 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L18167" class="LineNr">18167 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L18168" class="LineNr">18168 </span><span class="CommentedCode">#? (write-buffered Stderr "line: ")</span> +<span id="L18169" class="LineNr">18169 </span><span class="CommentedCode">#? (write-stream-data Stderr %ecx)</span> +<span id="L18170" class="LineNr">18170 </span><span class="CommentedCode">#? #? (write-buffered Stderr Newline) # line has its own newline</span> +<span id="L18171" class="LineNr">18171 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18172" class="LineNr">18172 </span><span class="CommentedCode">#? (rewind-stream %ecx)</span> +<span id="L18173" class="LineNr">18173 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L18174" class="LineNr">18174 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L18175" class="LineNr">18175 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18176" class="LineNr">18176 </span><span class="CommentedCode">#? (write-buffered Stderr "vars:\n")</span> +<span id="L18177" class="LineNr">18177 </span><span class="CommentedCode">#? (dump-vars *(ebp+0xc))</span> +<span id="L18178" class="LineNr">18178 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L18179" class="LineNr">18179 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> %ecx %edx) +<span id="L18180" class="LineNr">18180 </span><span class="CommentedCode">#? (write-buffered Stderr "word: ")</span> +<span id="L18181" class="LineNr">18181 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %edx)</span> +<span id="L18182" class="LineNr">18182 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18183" class="LineNr">18183 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18184" class="LineNr">18184 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L18185" class="LineNr">18185 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) +<span id="L18186" class="LineNr">18186 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18187" class="LineNr">18187 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L18188" class="LineNr">18188 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, '#') continue</span> +<span id="L18189" class="LineNr">18189 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L18190" class="LineNr">18190 </span> 8b/-> *edx 0/r32/eax +<span id="L18191" class="LineNr">18191 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18192" class="LineNr">18192 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L18193" class="LineNr">18193 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L18194" class="LineNr">18194 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L18195" class="LineNr">18195 </span> 0f 84/jump-if-= <span class="Constant">loop</span>/disp32 +<span id="L18196" class="LineNr">18196 </span> <span class="subxComment"># if slice-equal?(word-slice, "{")</span> +<span id="L18197" class="LineNr">18197 </span> { +<span id="L18198" class="LineNr">18198 </span><span class="Constant">$parse-mu-block:check-for-block</span>: +<span id="L18199" class="LineNr">18199 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"{"</span>) +<span id="L18200" class="LineNr">18200 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18201" class="LineNr">18201 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18202" class="LineNr">18202 </span> (<a href='mu.subx.html#L18375'>check-no-tokens-left</a> %ecx) +<span id="L18203" class="LineNr">18203 </span> <span class="subxComment"># parse new block and append</span> +<span id="L18204" class="LineNr">18204 </span> <span class="subxS1Comment"># . var tmp/eax: (handle block)</span> +<span id="L18205" class="LineNr">18205 </span> 68/push 0/imm32 +<span id="L18206" class="LineNr">18206 </span> 68/push 0/imm32 +<span id="L18207" class="LineNr">18207 </span> 89/<- %eax 4/r32/esp +<span id="L18208" class="LineNr">18208 </span> <span class="subxS1Comment"># .</span> +<span id="L18209" class="LineNr">18209 </span> (<a href='mu.subx.html#L18091'>parse-mu-block</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18210" class="LineNr">18210 </span> (<a href='mu.subx.html#L20126'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18211" class="LineNr">18211 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L18212" class="LineNr">18212 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18213" class="LineNr">18213 </span> <span class="subxS1Comment"># .</span> +<span id="L18214" class="LineNr">18214 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18215" class="LineNr">18215 </span> } +<span id="L18216" class="LineNr">18216 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L18217" class="LineNr">18217 </span><span class="Constant">$parse-mu-block:check-for-end</span>: +<span id="L18218" class="LineNr">18218 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L18219" class="LineNr">18219 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18220" class="LineNr">18220 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18221" class="LineNr">18221 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":") parse named block and append</span> +<span id="L18222" class="LineNr">18222 </span> { +<span id="L18223" class="LineNr">18223 </span><span class="Constant">$parse-mu-block:check-for-named-block</span>: +<span id="L18224" class="LineNr">18224 </span> <span class="subxS1Comment"># . eax = *(word-slice->end-1)</span> +<span id="L18225" class="LineNr">18225 </span> 8b/-> *(edx+4) 0/r32/eax +<span id="L18226" class="LineNr">18226 </span> 48/decrement-eax +<span id="L18227" class="LineNr">18227 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18228" class="LineNr">18228 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L18229" class="LineNr">18229 </span> <span class="subxS1Comment"># . if (eax != ':') break</span> +<span id="L18230" class="LineNr">18230 </span> 3d/compare-eax-and 0x3a/imm32/colon +<span id="L18231" class="LineNr">18231 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18232" class="LineNr">18232 </span> <span class="subxComment"># TODO: error-check the rest of 'line'</span> +<span id="L18233" class="LineNr">18233 </span> <span class="subxComment">#</span> +<span id="L18234" class="LineNr">18234 </span> <span class="subxComment"># skip ':'</span> +<span id="L18235" class="LineNr">18235 </span> ff 1/subop/decrement *(edx+4) <span class="subxComment"># Slice-end</span> +<span id="L18236" class="LineNr">18236 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18237" class="LineNr">18237 </span> 68/push 0/imm32 +<span id="L18238" class="LineNr">18238 </span> 68/push 0/imm32 +<span id="L18239" class="LineNr">18239 </span> 89/<- %eax 4/r32/esp +<span id="L18240" class="LineNr">18240 </span> <span class="subxComment">#</span> +<span id="L18241" class="LineNr">18241 </span> (<a href='mu.subx.html#L18421'>parse-mu-named-block</a> %edx *(ebp+8) *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18242" class="LineNr">18242 </span> (<a href='mu.subx.html#L20126'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18243" class="LineNr">18243 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18244" class="LineNr">18244 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18245" class="LineNr">18245 </span> <span class="subxComment">#</span> +<span id="L18246" class="LineNr">18246 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18247" class="LineNr">18247 </span> } +<span id="L18248" class="LineNr">18248 </span> <span class="subxComment"># if slice-equal?(word-slice, "var")</span> +<span id="L18249" class="LineNr">18249 </span> { +<span id="L18250" class="LineNr">18250 </span><span class="Constant">$parse-mu-block:check-for-var</span>: +<span id="L18251" class="LineNr">18251 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"var"</span>) +<span id="L18252" class="LineNr">18252 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18253" class="LineNr">18253 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18254" class="LineNr">18254 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18255" class="LineNr">18255 </span> 68/push 0/imm32 +<span id="L18256" class="LineNr">18256 </span> 68/push 0/imm32 +<span id="L18257" class="LineNr">18257 </span> 89/<- %eax 4/r32/esp +<span id="L18258" class="LineNr">18258 </span> <span class="subxComment">#</span> +<span id="L18259" class="LineNr">18259 </span> (<a href='mu.subx.html#L18477'>parse-mu-var-def</a> %ecx *(ebp+0xc) %eax *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18260" class="LineNr">18260 </span> (<a href='mu.subx.html#L20126'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18261" class="LineNr">18261 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18262" class="LineNr">18262 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18263" class="LineNr">18263 </span> <span class="subxComment">#</span> +<span id="L18264" class="LineNr">18264 </span> e9/jump $parse-mu-block:line-loop/disp32 +<span id="L18265" class="LineNr">18265 </span> } +<span id="L18266" class="LineNr">18266 </span><span class="Constant">$parse-mu-block:regular-stmt</span>: +<span id="L18267" class="LineNr">18267 </span> <span class="subxComment"># otherwise</span> +<span id="L18268" class="LineNr">18268 </span> <span class="subxComment"># var tmp/eax: (handle block)</span> +<span id="L18269" class="LineNr">18269 </span> 68/push 0/imm32 +<span id="L18270" class="LineNr">18270 </span> 68/push 0/imm32 +<span id="L18271" class="LineNr">18271 </span> 89/<- %eax 4/r32/esp +<span id="L18272" class="LineNr">18272 </span> <span class="subxComment">#</span> +<span id="L18273" class="LineNr">18273 </span> (<a href='mu.subx.html#L18741'>parse-mu-stmt</a> %ecx *(ebp+0xc) *(ebp+0x10) %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18274" class="LineNr">18274 </span> (<a href='mu.subx.html#L20126'>append-to-block</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edi *eax *(eax+4)) +<span id="L18275" class="LineNr">18275 </span> <span class="subxComment"># reclaim tmp</span> +<span id="L18276" class="LineNr">18276 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18277" class="LineNr">18277 </span> <span class="subxComment">#</span> +<span id="L18278" class="LineNr">18278 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18279" class="LineNr">18279 </span> } <span class="subxComment"># end line loop</span> +<span id="L18280" class="LineNr">18280 </span> (<a href='mu.subx.html#L28413'>clean-up-blocks</a> *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> *(ebp+0x10)) +<span id="L18281" class="LineNr">18281 </span> <span class="subxComment"># decrement *Curr-block-depth</span> +<span id="L18282" class="LineNr">18282 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> +<span id="L18283" class="LineNr">18283 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18284" class="LineNr">18284 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18285" class="LineNr">18285 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18286" class="LineNr">18286 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L18287" class="LineNr">18287 </span><span class="Constant">$parse-mu-block:end</span>: +<span id="L18288" class="LineNr">18288 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18289" class="LineNr">18289 </span> 81 0/subop/add %esp 0x214/imm32 +<span id="L18290" class="LineNr">18290 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18291" class="LineNr">18291 </span> 5f/pop-to-edi +<span id="L18292" class="LineNr">18292 </span> 5b/pop-to-ebx +<span id="L18293" class="LineNr">18293 </span> 5a/pop-to-edx +<span id="L18294" class="LineNr">18294 </span> 59/pop-to-ecx +<span id="L18295" class="LineNr">18295 </span> 58/pop-to-eax +<span id="L18296" class="LineNr">18296 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18297" class="LineNr">18297 </span> 89/<- %esp 5/r32/ebp +<span id="L18298" class="LineNr">18298 </span> 5d/pop-to-ebp +<span id="L18299" class="LineNr">18299 </span> c3/return +<span id="L18300" class="LineNr">18300 </span> +<span id="L18301" class="LineNr">18301 </span><span class="Constant">$parse-mu-block:abort</span>: +<span id="L18302" class="LineNr">18302 </span> <span class="subxComment"># error("'{' or '}' should be on its own line, but got '")</span> +<span id="L18303" class="LineNr">18303 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'{' or '}' should be on its own line, but got '"</span>) +<span id="L18304" class="LineNr">18304 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L18305" class="LineNr">18305 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) %ecx) +<span id="L18306" class="LineNr">18306 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18307" class="LineNr">18307 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18308" class="LineNr">18308 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18309" class="LineNr">18309 </span> <span class="subxComment"># never gets here</span> +<span id="L18310" class="LineNr">18310 </span> +<span id="L18311" class="LineNr">18311 </span><span class="subxFunction">new-block-name</span>: <span class="subxComment"># fn: (addr function), out: (addr handle var)</span> +<span id="L18312" class="LineNr">18312 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18313" class="LineNr">18313 </span> 55/push-ebp +<span id="L18314" class="LineNr">18314 </span> 89/<- %ebp 4/r32/esp +<span id="L18315" class="LineNr">18315 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18316" class="LineNr">18316 </span> 50/push-eax +<span id="L18317" class="LineNr">18317 </span> 51/push-ecx +<span id="L18318" class="LineNr">18318 </span> 52/push-edx +<span id="L18319" class="LineNr">18319 </span> <span class="subxComment"># var n/ecx: int = len(fn->name) + 10 for an int + 2 for '$:'</span> +<span id="L18320" class="LineNr">18320 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18321" class="LineNr">18321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18322" class="LineNr">18322 </span> 8b/-> *eax 0/r32/eax <span class="subxComment"># String-size</span> +<span id="L18323" class="LineNr">18323 </span> 05/add-to-eax 0xd/imm32 <span class="subxComment"># 10 + 2 for '$:'</span> +<span id="L18324" class="LineNr">18324 </span> 89/<- %ecx 0/r32/eax +<span id="L18325" class="LineNr">18325 </span> <span class="subxComment"># var name/edx: (stream byte n)</span> +<span id="L18326" class="LineNr">18326 </span> 29/subtract-from %esp 1/r32/ecx +<span id="L18327" class="LineNr">18327 </span> ff 6/subop/push %ecx +<span id="L18328" class="LineNr">18328 </span> 68/push 0/imm32/read +<span id="L18329" class="LineNr">18329 </span> 68/push 0/imm32/write +<span id="L18330" class="LineNr">18330 </span> 89/<- %edx 4/r32/esp +<span id="L18331" class="LineNr">18331 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %edx) +<span id="L18332" class="LineNr">18332 </span> <span class="subxComment"># eax = fn->name</span> +<span id="L18333" class="LineNr">18333 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L18334" class="LineNr">18334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18335" class="LineNr">18335 </span> <span class="subxComment"># construct result using Next-block-index (and increment it)</span> +<span id="L18336" class="LineNr">18336 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">"$"</span>) +<span id="L18337" class="LineNr">18337 </span> (<a href='108write.subx.html#L24'>write</a> %edx %eax) +<span id="L18338" class="LineNr">18338 </span> (<a href='108write.subx.html#L24'>write</a> %edx <span class="Constant">":"</span>) +<span id="L18339" class="LineNr">18339 </span> (<a href='117write-int-hex.subx.html#L178'>write-int32-hex</a> %edx *<span class="SpecialChar"><a href='mu.subx.html#L15689'>Next-block-index</a></span>) +<span id="L18340" class="LineNr">18340 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15689'>Next-block-index</a></span> +<span id="L18341" class="LineNr">18341 </span> <span class="subxComment"># var s/eax: slice = {name->data, name->data + name->write} (clobbering edx)</span> +<span id="L18342" class="LineNr">18342 </span> <span class="subxS1Comment"># . eax = name->write</span> +<span id="L18343" class="LineNr">18343 </span> 8b/-> *edx 0/r32/eax +<span id="L18344" class="LineNr">18344 </span> <span class="subxS1Comment"># . edx = name->data</span> +<span id="L18345" class="LineNr">18345 </span> 8d/copy-address *(edx+0xc) 2/r32/edx +<span id="L18346" class="LineNr">18346 </span> <span class="subxS1Comment"># . eax = name->write + name->data</span> +<span id="L18347" class="LineNr">18347 </span> 01/add-to %eax 2/r32/edx +<span id="L18348" class="LineNr">18348 </span> <span class="subxS1Comment"># . push {edx, eax}</span> +<span id="L18349" class="LineNr">18349 </span> ff 6/subop/push %eax +<span id="L18350" class="LineNr">18350 </span> ff 6/subop/push %edx +<span id="L18351" class="LineNr">18351 </span> 89/<- %eax 4/r32/esp +<span id="L18352" class="LineNr">18352 </span> <span class="subxComment"># out = new literal(s)</span> +<span id="L18353" class="LineNr">18353 </span> (<a href='mu.subx.html#L19853'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %eax *(ebp+0xc)) +<span id="L18354" class="LineNr">18354 </span><span class="CommentedCode">#? 8b/-> *(ebp+0xc) 0/r32/eax</span> +<span id="L18355" class="LineNr">18355 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid in caller after new-literal: ")</span> +<span id="L18356" class="LineNr">18356 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(eax+8))</span> +<span id="L18357" class="LineNr">18357 </span><span class="CommentedCode">#? (write-buffered Stderr " for var ")</span> +<span id="L18358" class="LineNr">18358 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18359" class="LineNr">18359 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18360" class="LineNr">18360 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18361" class="LineNr">18361 </span><span class="Constant">$new-block-name:end</span>: +<span id="L18362" class="LineNr">18362 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18363" class="LineNr">18363 </span> 81 0/subop/add %ecx 0xc/imm32 <span class="subxComment"># name.{read/write/len}</span> +<span id="L18364" class="LineNr">18364 </span> 81 0/subop/add %ecx 8/imm32 <span class="subxComment"># slice</span> +<span id="L18365" class="LineNr">18365 </span> 01/add-to %esp 1/r32/ecx +<span id="L18366" class="LineNr">18366 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18367" class="LineNr">18367 </span> 5a/pop-to-edx +<span id="L18368" class="LineNr">18368 </span> 59/pop-to-ecx +<span id="L18369" class="LineNr">18369 </span> 58/pop-to-eax +<span id="L18370" class="LineNr">18370 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18371" class="LineNr">18371 </span> 89/<- %esp 5/r32/ebp +<span id="L18372" class="LineNr">18372 </span> 5d/pop-to-ebp +<span id="L18373" class="LineNr">18373 </span> c3/return +<span id="L18374" class="LineNr">18374 </span> +<span id="L18375" class="LineNr">18375 </span><span class="subxFunction">check-no-tokens-left</span>: <span class="subxComment"># line: (addr stream byte)</span> +<span id="L18376" class="LineNr">18376 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18377" class="LineNr">18377 </span> 55/push-ebp +<span id="L18378" class="LineNr">18378 </span> 89/<- %ebp 4/r32/esp +<span id="L18379" class="LineNr">18379 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18380" class="LineNr">18380 </span> 50/push-eax +<span id="L18381" class="LineNr">18381 </span> 51/push-ecx +<span id="L18382" class="LineNr">18382 </span> <span class="subxComment"># var s/ecx: slice</span> +<span id="L18383" class="LineNr">18383 </span> 68/push 0/imm32/end +<span id="L18384" class="LineNr">18384 </span> 68/push 0/imm32/start +<span id="L18385" class="LineNr">18385 </span> 89/<- %ecx 4/r32/esp +<span id="L18386" class="LineNr">18386 </span> <span class="subxComment">#</span> +<span id="L18387" class="LineNr">18387 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18388" class="LineNr">18388 </span> <span class="subxComment"># if slice-empty?(s) return</span> +<span id="L18389" class="LineNr">18389 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L18390" class="LineNr">18390 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18391" class="LineNr">18391 </span> 75/jump-if-!= $check-no-tokens-left:end/disp8 +<span id="L18392" class="LineNr">18392 </span> <span class="subxComment"># if (slice-starts-with?(s, '#') return</span> +<span id="L18393" class="LineNr">18393 </span> <span class="subxS1Comment"># . eax = *s->start</span> +<span id="L18394" class="LineNr">18394 </span> 8b/-> *edx 0/r32/eax +<span id="L18395" class="LineNr">18395 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18396" class="LineNr">18396 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L18397" class="LineNr">18397 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L18398" class="LineNr">18398 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L18399" class="LineNr">18399 </span> 74/jump-if-= $check-no-tokens-left:end/disp8 +<span id="L18400" class="LineNr">18400 </span> <span class="subxComment"># abort</span> +<span id="L18401" class="LineNr">18401 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'{' or '}' should be on its own line, but got '"</span>) +<span id="L18402" class="LineNr">18402 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> %ecx) +<span id="L18403" class="LineNr">18403 </span> (<a href='113write-stream.subx.html#L17'>write-stream</a> 2 %ecx) +<span id="L18404" class="LineNr">18404 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"'\n"</span>) +<span id="L18405" class="LineNr">18405 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L18406" class="LineNr">18406 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L18407" class="LineNr">18407 </span> bb/copy-to-ebx 1/imm32 +<span id="L18408" class="LineNr">18408 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L18409" class="LineNr">18409 </span> <span class="subxComment"># never gets here</span> +<span id="L18410" class="LineNr">18410 </span><span class="Constant">$check-no-tokens-left:end</span>: +<span id="L18411" class="LineNr">18411 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18412" class="LineNr">18412 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18413" class="LineNr">18413 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18414" class="LineNr">18414 </span> 59/pop-to-ecx +<span id="L18415" class="LineNr">18415 </span> 58/pop-to-eax +<span id="L18416" class="LineNr">18416 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18417" class="LineNr">18417 </span> 89/<- %esp 5/r32/ebp +<span id="L18418" class="LineNr">18418 </span> 5d/pop-to-ebp +<span id="L18419" class="LineNr">18419 </span> c3/return +<span id="L18420" class="LineNr">18420 </span> +<span id="L18421" class="LineNr">18421 </span><span class="subxFunction">parse-mu-named-block</span>: <span class="subxComment"># name: (addr slice), in: (addr buffered-file), vars: (addr stack live-var), fn: (addr function), out: (addr handle stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L18422" class="LineNr">18422 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18423" class="LineNr">18423 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L18424" class="LineNr">18424 </span> <span class="subxComment"># new-literal(name, v)</span> +<span id="L18425" class="LineNr">18425 </span> <span class="subxComment"># push(vars, {v, false})</span> +<span id="L18426" class="LineNr">18426 </span> <span class="subxComment"># parse-mu-block(in, vars, fn, out)</span> +<span id="L18427" class="LineNr">18427 </span> <span class="subxComment"># pop(vars)</span> +<span id="L18428" class="LineNr">18428 </span> <span class="subxComment"># out->tag = block</span> +<span id="L18429" class="LineNr">18429 </span> <span class="subxComment"># out->var = v</span> +<span id="L18430" class="LineNr">18430 </span> <span class="subxComment">#</span> +<span id="L18431" class="LineNr">18431 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18432" class="LineNr">18432 </span> 55/push-ebp +<span id="L18433" class="LineNr">18433 </span> 89/<- %ebp 4/r32/esp +<span id="L18434" class="LineNr">18434 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18435" class="LineNr">18435 </span> 50/push-eax +<span id="L18436" class="LineNr">18436 </span> 51/push-ecx +<span id="L18437" class="LineNr">18437 </span> 57/push-edi +<span id="L18438" class="LineNr">18438 </span> <span class="subxComment"># var v/ecx: (handle var)</span> +<span id="L18439" class="LineNr">18439 </span> 68/push 0/imm32 +<span id="L18440" class="LineNr">18440 </span> 68/push 0/imm32 +<span id="L18441" class="LineNr">18441 </span> 89/<- %ecx 4/r32/esp +<span id="L18442" class="LineNr">18442 </span> <span class="subxComment">#</span> +<span id="L18443" class="LineNr">18443 </span> (<a href='mu.subx.html#L19853'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+8) %ecx) +<span id="L18444" class="LineNr">18444 </span> <span class="subxComment"># push(vars, v)</span> +<span id="L18445" class="LineNr">18445 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *ecx) +<span id="L18446" class="LineNr">18446 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) +<span id="L18447" class="LineNr">18447 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L18448" class="LineNr">18448 </span> <span class="subxComment">#</span> +<span id="L18449" class="LineNr">18449 </span> (<a href='mu.subx.html#L18091'>parse-mu-block</a> *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c) *(ebp+0x20)) +<span id="L18450" class="LineNr">18450 </span> <span class="subxComment"># pop v off vars</span> +<span id="L18451" class="LineNr">18451 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18452" class="LineNr">18452 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18453" class="LineNr">18453 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L18454" class="LineNr">18454 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L18455" class="LineNr">18455 </span> 8b/-> *(ebp+0x18) 7/r32/edi +<span id="L18456" class="LineNr">18456 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18457" class="LineNr">18457 </span> 89/<- %edi 0/r32/eax +<span id="L18458" class="LineNr">18458 </span> <span class="subxComment"># out-addr->tag = named-block</span> +<span id="L18459" class="LineNr">18459 </span> c7 0/subop/copy *edi 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L18460" class="LineNr">18460 </span> <span class="subxComment"># out-addr->var = v</span> +<span id="L18461" class="LineNr">18461 </span> 8b/-> *ecx 0/r32/eax +<span id="L18462" class="LineNr">18462 </span> 89/<- *(edi+0xc) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18463" class="LineNr">18463 </span> 8b/-> *(ecx+4) 0/r32/eax +<span id="L18464" class="LineNr">18464 </span> 89/<- *(edi+0x10) 0/r32/eax <span class="subxComment"># Block-var</span> +<span id="L18465" class="LineNr">18465 </span><span class="Constant">$parse-mu-named-block:end</span>: +<span id="L18466" class="LineNr">18466 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18467" class="LineNr">18467 </span> 81 0/subop/add %esp 8/imm32 +<span id="L18468" class="LineNr">18468 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18469" class="LineNr">18469 </span> 5f/pop-to-edi +<span id="L18470" class="LineNr">18470 </span> 59/pop-to-ecx +<span id="L18471" class="LineNr">18471 </span> 58/pop-to-eax +<span id="L18472" class="LineNr">18472 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18473" class="LineNr">18473 </span> 89/<- %esp 5/r32/ebp +<span id="L18474" class="LineNr">18474 </span> 5d/pop-to-ebp +<span id="L18475" class="LineNr">18475 </span> c3/return +<span id="L18476" class="LineNr">18476 </span> +<span id="L18477" class="LineNr">18477 </span><span class="subxFunction">parse-mu-var-def</span>: <span class="subxComment"># line: (addr stream byte), vars: (addr stack live-var), out: (addr handle stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L18478" class="LineNr">18478 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18479" class="LineNr">18479 </span> 55/push-ebp +<span id="L18480" class="LineNr">18480 </span> 89/<- %ebp 4/r32/esp +<span id="L18481" class="LineNr">18481 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18482" class="LineNr">18482 </span> 50/push-eax +<span id="L18483" class="LineNr">18483 </span> 51/push-ecx +<span id="L18484" class="LineNr">18484 </span> 52/push-edx +<span id="L18485" class="LineNr">18485 </span> 56/push-esi +<span id="L18486" class="LineNr">18486 </span> 57/push-edi +<span id="L18487" class="LineNr">18487 </span> <span class="subxComment"># edi = out</span> +<span id="L18488" class="LineNr">18488 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L18489" class="LineNr">18489 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L18490" class="LineNr">18490 </span> 68/push 0/imm32/end +<span id="L18491" class="LineNr">18491 </span> 68/push 0/imm32/start +<span id="L18492" class="LineNr">18492 </span> 89/<- %ecx 4/r32/esp +<span id="L18493" class="LineNr">18493 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L18494" class="LineNr">18494 </span> 68/push 0/imm32 +<span id="L18495" class="LineNr">18495 </span> 68/push 0/imm32 +<span id="L18496" class="LineNr">18496 </span> 89/<- %edx 4/r32/esp +<span id="L18497" class="LineNr">18497 </span> <span class="subxComment"># v = parse-var-with-type(next-mu-token(line))</span> +<span id="L18498" class="LineNr">18498 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18499" class="LineNr">18499 </span> { +<span id="L18500" class="LineNr">18500 </span> <span class="subxComment"># just for tests, support null fn</span> +<span id="L18501" class="LineNr">18501 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18502" class="LineNr">18502 </span> 3d/compare-eax-and 0/imm32 +<span id="L18503" class="LineNr">18503 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18504" class="LineNr">18504 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18505" class="LineNr">18505 </span> } +<span id="L18506" class="LineNr">18506 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %ecx *(ebp+8) %edx %eax *(ebp+0x18) *(ebp+0x1c)) +<span id="L18507" class="LineNr">18507 </span> <span class="subxComment"># var v-addr/esi: (addr var)</span> +<span id="L18508" class="LineNr">18508 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18509" class="LineNr">18509 </span> 89/<- %esi 0/r32/eax +<span id="L18510" class="LineNr">18510 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L18511" class="LineNr">18511 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/r32/eax +<span id="L18512" class="LineNr">18512 </span> 89/<- *(esi+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L18513" class="LineNr">18513 </span> <span class="subxComment"># either v has no register and there's no more to this line</span> +<span id="L18514" class="LineNr">18514 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 +<span id="L18515" class="LineNr">18515 </span> { +<span id="L18516" class="LineNr">18516 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L18517" class="LineNr">18517 </span> <span class="subxComment"># if v-addr->type == byte, abort</span> +<span id="L18518" class="LineNr">18518 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18519" class="LineNr">18519 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L18520" class="LineNr">18520 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18521" class="LineNr">18521 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-on-stack/disp32 +<span id="L18522" class="LineNr">18522 </span> <span class="subxComment"># ensure that there's nothing else on this line</span> +<span id="L18523" class="LineNr">18523 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18524" class="LineNr">18524 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18525" class="LineNr">18525 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18526" class="LineNr">18526 </span> 0f 84/jump-if-= $parse-mu-var-def:error2/disp32 +<span id="L18527" class="LineNr">18527 </span> <span class="subxComment">#</span> +<span id="L18528" class="LineNr">18528 </span> (<a href='mu.subx.html#L19957'>new-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L18529" class="LineNr">18529 </span> e9/jump $parse-mu-var-def:update-vars/disp32 +<span id="L18530" class="LineNr">18530 </span> } +<span id="L18531" class="LineNr">18531 </span> <span class="subxComment"># or v has a register and there's more to this line</span> +<span id="L18532" class="LineNr">18532 </span> { +<span id="L18533" class="LineNr">18533 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18534" class="LineNr">18534 </span> <span class="subxComment"># if v-addr->type == byte, check for unsupported registers</span> +<span id="L18535" class="LineNr">18535 </span> { +<span id="L18536" class="LineNr">18536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18537" class="LineNr">18537 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L18538" class="LineNr">18538 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18539" class="LineNr">18539 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18540" class="LineNr">18540 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L18541" class="LineNr">18541 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"esi"</span>) <span class="subxComment"># => eax</span> +<span id="L18542" class="LineNr">18542 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18543" class="LineNr">18543 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L18544" class="LineNr">18544 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># => eax</span> +<span id="L18545" class="LineNr">18545 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"edi"</span>) <span class="subxComment"># => eax</span> +<span id="L18546" class="LineNr">18546 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18547" class="LineNr">18547 </span> 0f 85/jump-if-!= $parse-mu-var-def:error-byte-registers/disp32 +<span id="L18548" class="LineNr">18548 </span> } +<span id="L18549" class="LineNr">18549 </span> <span class="subxComment"># TODO: vars of type 'byte' should only be initialized by clearing to 0</span> +<span id="L18550" class="LineNr">18550 </span> <span class="subxComment"># ensure that the next word is '<-'</span> +<span id="L18551" class="LineNr">18551 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18552" class="LineNr">18552 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L18553" class="LineNr">18553 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18554" class="LineNr">18554 </span> 0f 84/jump-if-= $parse-mu-var-def:error1/disp32 +<span id="L18555" class="LineNr">18555 </span> <span class="subxComment">#</span> +<span id="L18556" class="LineNr">18556 </span> (<a href='mu.subx.html#L19985'>new-reg-var-def</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *edx *(edx+4) %edi) +<span id="L18557" class="LineNr">18557 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18558" class="LineNr">18558 </span> (<a href='mu.subx.html#L18858'>add-operation-and-inputs-to-stmt</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18559" class="LineNr">18559 </span> } +<span id="L18560" class="LineNr">18560 </span><span class="Constant">$parse-mu-var-def:update-vars</span>: +<span id="L18561" class="LineNr">18561 </span> <span class="subxComment"># push 'v' at end of function</span> +<span id="L18562" class="LineNr">18562 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *edx) +<span id="L18563" class="LineNr">18563 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) *(edx+4)) +<span id="L18564" class="LineNr">18564 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0xc) 0) <span class="subxComment"># Live-var-register-spilled is unused during parsing</span> +<span id="L18565" class="LineNr">18565 </span><span class="Constant">$parse-mu-var-def:end</span>: +<span id="L18566" class="LineNr">18566 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18567" class="LineNr">18567 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L18568" class="LineNr">18568 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18569" class="LineNr">18569 </span> 5f/pop-to-edi +<span id="L18570" class="LineNr">18570 </span> 5e/pop-to-esi +<span id="L18571" class="LineNr">18571 </span> 5a/pop-to-edx +<span id="L18572" class="LineNr">18572 </span> 59/pop-to-ecx +<span id="L18573" class="LineNr">18573 </span> 58/pop-to-eax +<span id="L18574" class="LineNr">18574 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18575" class="LineNr">18575 </span> 89/<- %esp 5/r32/ebp +<span id="L18576" class="LineNr">18576 </span> 5d/pop-to-ebp +<span id="L18577" class="LineNr">18577 </span> c3/return +<span id="L18578" class="LineNr">18578 </span> +<span id="L18579" class="LineNr">18579 </span><span class="Constant">$parse-mu-var-def:error1</span>: +<span id="L18580" class="LineNr">18580 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L18581" class="LineNr">18581 </span> <span class="subxComment"># error("register variable requires a valid instruction to initialize but got '" line "'\n")</span> +<span id="L18582" class="LineNr">18582 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"register variable requires a valid instruction to initialize but got '"</span>) +<span id="L18583" class="LineNr">18583 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18584" class="LineNr">18584 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+8)) +<span id="L18585" class="LineNr">18585 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18586" class="LineNr">18586 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18587" class="LineNr">18587 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18588" class="LineNr">18588 </span> <span class="subxComment"># never gets here</span> +<span id="L18589" class="LineNr">18589 </span> +<span id="L18590" class="LineNr">18590 </span><span class="Constant">$parse-mu-var-def:error2</span>: +<span id="L18591" class="LineNr">18591 </span> <span class="subxComment"># error("fn " fn ": var " var ": variables on the stack can't take an initializer\n")</span> +<span id="L18592" class="LineNr">18592 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18593" class="LineNr">18593 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18594" class="LineNr">18594 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18595" class="LineNr">18595 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18596" class="LineNr">18596 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var "</span>) +<span id="L18597" class="LineNr">18597 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18598" class="LineNr">18598 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18599" class="LineNr">18599 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18600" class="LineNr">18600 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18601" class="LineNr">18601 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variables on the stack can't take an initializer\n"</span>) +<span id="L18602" class="LineNr">18602 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18603" class="LineNr">18603 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18604" class="LineNr">18604 </span> <span class="subxComment"># never gets here</span> +<span id="L18605" class="LineNr">18605 </span> +<span id="L18606" class="LineNr">18606 </span><span class="Constant">$parse-mu-var-def:error-byte-on-stack</span>: +<span id="L18607" class="LineNr">18607 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be on the stack\n")</span> +<span id="L18608" class="LineNr">18608 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18609" class="LineNr">18609 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18610" class="LineNr">18610 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18611" class="LineNr">18611 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18612" class="LineNr">18612 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L18613" class="LineNr">18613 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18614" class="LineNr">18614 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18615" class="LineNr">18615 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18616" class="LineNr">18616 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18617" class="LineNr">18617 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' of type 'byte' cannot be on the stack\n"</span>) +<span id="L18618" class="LineNr">18618 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18619" class="LineNr">18619 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18620" class="LineNr">18620 </span> <span class="subxComment"># never gets here</span> +<span id="L18621" class="LineNr">18621 </span> +<span id="L18622" class="LineNr">18622 </span><span class="Constant">$parse-mu-var-def:error-byte-registers</span>: +<span id="L18623" class="LineNr">18623 </span> <span class="subxComment"># error("fn " fn ": var '" var "' of type 'byte' cannot be in esi or edi\n")</span> +<span id="L18624" class="LineNr">18624 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18625" class="LineNr">18625 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18626" class="LineNr">18626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18627" class="LineNr">18627 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18628" class="LineNr">18628 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": var '"</span>) +<span id="L18629" class="LineNr">18629 </span> <span class="subxComment"># var v-addr/eax: (addr var) = lookup(v)</span> +<span id="L18630" class="LineNr">18630 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L18631" class="LineNr">18631 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18632" class="LineNr">18632 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18633" class="LineNr">18633 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' of type 'byte' cannot be in esi or edi\n"</span>) +<span id="L18634" class="LineNr">18634 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18635" class="LineNr">18635 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18636" class="LineNr">18636 </span> <span class="subxComment"># never gets here</span> +<span id="L18637" class="LineNr">18637 </span> +<span id="L18638" class="LineNr">18638 </span><span class="subxTest">test-parse-mu-var-def</span>: +<span id="L18639" class="LineNr">18639 </span> <span class="subxComment"># 'var n: int'</span> +<span id="L18640" class="LineNr">18640 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18641" class="LineNr">18641 </span> 55/push-ebp +<span id="L18642" class="LineNr">18642 </span> 89/<- %ebp 4/r32/esp +<span id="L18643" class="LineNr">18643 </span> <span class="subxComment"># setup</span> +<span id="L18644" class="LineNr">18644 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18645" class="LineNr">18645 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L18646" class="LineNr">18646 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18647" class="LineNr">18647 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"n: int\n"</span>) <span class="subxComment"># caller has consumed the 'var'</span> +<span id="L18648" class="LineNr">18648 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 1/imm32 +<span id="L18649" class="LineNr">18649 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L18650" class="LineNr">18650 </span> 68/push 0/imm32 +<span id="L18651" class="LineNr">18651 </span> 68/push 0/imm32 +<span id="L18652" class="LineNr">18652 </span> 89/<- %esi 4/r32/esp +<span id="L18653" class="LineNr">18653 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18654" class="LineNr">18654 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18655" class="LineNr">18655 </span> 68/push 0xc0/imm32/size +<span id="L18656" class="LineNr">18656 </span> 68/push 0/imm32/top +<span id="L18657" class="LineNr">18657 </span> 89/<- %ecx 4/r32/esp +<span id="L18658" class="LineNr">18658 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18659" class="LineNr">18659 </span> <span class="subxComment"># convert</span> +<span id="L18660" class="LineNr">18660 </span> (<a href='mu.subx.html#L18477'>parse-mu-var-def</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %esi 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L18661" class="LineNr">18661 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L18662" class="LineNr">18662 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18663" class="LineNr">18663 </span> 89/<- %esi 0/r32/eax +<span id="L18664" class="LineNr">18664 </span> <span class="subxComment">#</span> +<span id="L18665" class="LineNr">18665 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 2 <span class="Constant">"F - <a href='mu.subx.html#L18638'>test-parse-mu-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is var-def</span> +<span id="L18666" class="LineNr">18666 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->var)</span> +<span id="L18667" class="LineNr">18667 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L18668" class="LineNr">18668 </span> 89/<- %ecx 0/r32/eax +<span id="L18669" class="LineNr">18669 </span> <span class="subxComment"># v->name</span> +<span id="L18670" class="LineNr">18670 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18671" class="LineNr">18671 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L18638'>test-parse-mu-var-def</a>/var-name"</span>) +<span id="L18672" class="LineNr">18672 </span> <span class="subxComment"># v->register</span> +<span id="L18673" class="LineNr">18673 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x18) 0 <span class="Constant">"F - <a href='mu.subx.html#L18638'>test-parse-mu-var-def</a>/var-register"</span>) <span class="subxComment"># Var-register</span> +<span id="L18674" class="LineNr">18674 </span> <span class="subxComment"># v->block-depth</span> +<span id="L18675" class="LineNr">18675 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18638'>test-parse-mu-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L18676" class="LineNr">18676 </span> <span class="subxComment"># v->type == int</span> +<span id="L18677" class="LineNr">18677 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18678" class="LineNr">18678 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18638'>test-parse-mu-var-def</a>/var-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18679" class="LineNr">18679 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18638'>test-parse-mu-var-def</a>/var-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L18680" class="LineNr">18680 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18638'>test-parse-mu-var-def</a>/var-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L18681" class="LineNr">18681 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18682" class="LineNr">18682 </span> 89/<- %esp 5/r32/ebp +<span id="L18683" class="LineNr">18683 </span> 5d/pop-to-ebp +<span id="L18684" class="LineNr">18684 </span> c3/return +<span id="L18685" class="LineNr">18685 </span> +<span id="L18686" class="LineNr">18686 </span><span class="subxTest">test-parse-mu-reg-var-def</span>: +<span id="L18687" class="LineNr">18687 </span> <span class="subxComment"># 'var n/eax: int <- copy 0'</span> +<span id="L18688" class="LineNr">18688 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18689" class="LineNr">18689 </span> 55/push-ebp +<span id="L18690" class="LineNr">18690 </span> 89/<- %ebp 4/r32/esp +<span id="L18691" class="LineNr">18691 </span> <span class="subxComment"># setup</span> +<span id="L18692" class="LineNr">18692 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L18693" class="LineNr">18693 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L18694" class="LineNr">18694 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L18695" class="LineNr">18695 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"n/eax: int <- copy 0\n"</span>) <span class="subxComment"># caller has consumed the 'var'</span> +<span id="L18696" class="LineNr">18696 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 1/imm32 +<span id="L18697" class="LineNr">18697 </span> <span class="subxComment"># var out/esi: (handle stmt)</span> +<span id="L18698" class="LineNr">18698 </span> 68/push 0/imm32 +<span id="L18699" class="LineNr">18699 </span> 68/push 0/imm32 +<span id="L18700" class="LineNr">18700 </span> 89/<- %esi 4/r32/esp +<span id="L18701" class="LineNr">18701 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L18702" class="LineNr">18702 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L18703" class="LineNr">18703 </span> 68/push 0xc0/imm32/size +<span id="L18704" class="LineNr">18704 </span> 68/push 0/imm32/top +<span id="L18705" class="LineNr">18705 </span> 89/<- %ecx 4/r32/esp +<span id="L18706" class="LineNr">18706 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L18707" class="LineNr">18707 </span> <span class="subxComment"># convert</span> +<span id="L18708" class="LineNr">18708 </span> (<a href='mu.subx.html#L18477'>parse-mu-var-def</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx %esi 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L18709" class="LineNr">18709 </span> <span class="subxComment"># var out-addr/esi: (addr stmt)</span> +<span id="L18710" class="LineNr">18710 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18711" class="LineNr">18711 </span> 89/<- %esi 0/r32/eax +<span id="L18712" class="LineNr">18712 </span> <span class="subxComment">#</span> +<span id="L18713" class="LineNr">18713 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *esi 3 <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/tag"</span>) <span class="subxComment"># Stmt-tag is reg-var-def</span> +<span id="L18714" class="LineNr">18714 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(out->outputs->value)</span> +<span id="L18715" class="LineNr">18715 </span> <span class="subxS1Comment"># . eax: (addr stmt-var) = lookup(out->outputs)</span> +<span id="L18716" class="LineNr">18716 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L18717" class="LineNr">18717 </span> <span class="subxS1Comment"># .</span> +<span id="L18718" class="LineNr">18718 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+8) 0 <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/single-output"</span>) <span class="subxComment"># Stmt-var-next</span> +<span id="L18719" class="LineNr">18719 </span> <span class="subxS1Comment"># . eax: (addr var) = lookup(eax->value)</span> +<span id="L18720" class="LineNr">18720 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L18721" class="LineNr">18721 </span> <span class="subxS1Comment"># . ecx = eax</span> +<span id="L18722" class="LineNr">18722 </span> 89/<- %ecx 0/r32/eax +<span id="L18723" class="LineNr">18723 </span> <span class="subxComment"># v->name</span> +<span id="L18724" class="LineNr">18724 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L18725" class="LineNr">18725 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/output-name"</span>) <span class="subxComment"># Var-name</span> +<span id="L18726" class="LineNr">18726 </span> <span class="subxComment"># v->register</span> +<span id="L18727" class="LineNr">18727 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L18728" class="LineNr">18728 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"eax"</span> <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/output-register"</span>) +<span id="L18729" class="LineNr">18729 </span> <span class="subxComment"># v->block-depth</span> +<span id="L18730" class="LineNr">18730 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(ecx+0x10) 1 <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/output-block-depth"</span>) <span class="subxComment"># Var-block-depth</span> +<span id="L18731" class="LineNr">18731 </span> <span class="subxComment"># v->type == int</span> +<span id="L18732" class="LineNr">18732 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18733" class="LineNr">18733 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *eax 1 <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/output-type:0"</span>) <span class="subxComment"># Type-tree-is-atom</span> +<span id="L18734" class="LineNr">18734 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+4) 1 <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/output-type:1"</span>) <span class="subxComment"># Type-tree-value</span> +<span id="L18735" class="LineNr">18735 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *(eax+0xc) 0 <span class="Constant">"F - <a href='mu.subx.html#L18686'>test-parse-mu-reg-var-def</a>/output-type:2"</span>) <span class="subxComment"># Type-tree-right</span> +<span id="L18736" class="LineNr">18736 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18737" class="LineNr">18737 </span> 89/<- %esp 5/r32/ebp +<span id="L18738" class="LineNr">18738 </span> 5d/pop-to-ebp +<span id="L18739" class="LineNr">18739 </span> c3/return +<span id="L18740" class="LineNr">18740 </span> +<span id="L18741" class="LineNr">18741 </span><span class="subxFunction">parse-mu-stmt</span>: <span class="subxComment"># line: (addr stream byte), vars: (addr stack live-var), fn: (addr function), out: (addr handle stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L18742" class="LineNr">18742 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18743" class="LineNr">18743 </span> <span class="subxComment"># var name: slice</span> +<span id="L18744" class="LineNr">18744 </span> <span class="subxComment"># allocate(Heap, Stmt-size, out)</span> +<span id="L18745" class="LineNr">18745 </span> <span class="subxComment"># var out-addr: (addr stmt) = lookup(*out)</span> +<span id="L18746" class="LineNr">18746 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L18747" class="LineNr">18747 </span> <span class="subxComment"># if stmt-has-outputs?(line)</span> +<span id="L18748" class="LineNr">18748 </span> <span class="subxComment"># while true</span> +<span id="L18749" class="LineNr">18749 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18750" class="LineNr">18750 </span> <span class="subxComment"># if (name == '<-') break</span> +<span id="L18751" class="LineNr">18751 </span> <span class="subxComment"># assert(identifier?(name))</span> +<span id="L18752" class="LineNr">18752 </span> <span class="subxComment"># var v: (handle var) = lookup-var(name, vars)</span> +<span id="L18753" class="LineNr">18753 </span> <span class="subxComment"># out-addr->outputs = append(v, out-addr->outputs)</span> +<span id="L18754" class="LineNr">18754 </span> <span class="subxComment"># add-operation-and-inputs-to-stmt(out-addr, line, vars)</span> +<span id="L18755" class="LineNr">18755 </span> <span class="subxComment">#</span> +<span id="L18756" class="LineNr">18756 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18757" class="LineNr">18757 </span> 55/push-ebp +<span id="L18758" class="LineNr">18758 </span> 89/<- %ebp 4/r32/esp +<span id="L18759" class="LineNr">18759 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18760" class="LineNr">18760 </span> 50/push-eax +<span id="L18761" class="LineNr">18761 </span> 51/push-ecx +<span id="L18762" class="LineNr">18762 </span> 52/push-edx +<span id="L18763" class="LineNr">18763 </span> 53/push-ebx +<span id="L18764" class="LineNr">18764 </span> 57/push-edi +<span id="L18765" class="LineNr">18765 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L18766" class="LineNr">18766 </span> 68/push 0/imm32/end +<span id="L18767" class="LineNr">18767 </span> 68/push 0/imm32/start +<span id="L18768" class="LineNr">18768 </span> 89/<- %ecx 4/r32/esp +<span id="L18769" class="LineNr">18769 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L18770" class="LineNr">18770 </span> ba/copy-to-edx 0/imm32/false +<span id="L18771" class="LineNr">18771 </span> <span class="subxComment"># var v: (handle var)</span> +<span id="L18772" class="LineNr">18772 </span> 68/push 0/imm32 +<span id="L18773" class="LineNr">18773 </span> 68/push 0/imm32 +<span id="L18774" class="LineNr">18774 </span> 89/<- %ebx 4/r32/esp +<span id="L18775" class="LineNr">18775 </span> <span class="subxComment">#</span> +<span id="L18776" class="LineNr">18776 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> *(ebp+0x14)) +<span id="L18777" class="LineNr">18777 </span> <span class="subxComment"># var out-addr/edi: (addr stmt) = lookup(*out)</span> +<span id="L18778" class="LineNr">18778 </span> 8b/-> *(ebp+0x14) 7/r32/edi +<span id="L18779" class="LineNr">18779 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L18780" class="LineNr">18780 </span> 89/<- %edi 0/r32/eax +<span id="L18781" class="LineNr">18781 </span> <span class="subxComment"># out-addr->tag = 1/stmt</span> +<span id="L18782" class="LineNr">18782 </span> c7 0/subop/copy *edi 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L18783" class="LineNr">18783 </span> { +<span id="L18784" class="LineNr">18784 </span> (<a href='mu.subx.html#L19022'>stmt-has-outputs?</a> *(ebp+8)) +<span id="L18785" class="LineNr">18785 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18786" class="LineNr">18786 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L18787" class="LineNr">18787 </span> { +<span id="L18788" class="LineNr">18788 </span><span class="Constant">$parse-mu-stmt:read-outputs</span>: +<span id="L18789" class="LineNr">18789 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18790" class="LineNr">18790 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L18791" class="LineNr">18791 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L18792" class="LineNr">18792 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18793" class="LineNr">18793 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18794" class="LineNr">18794 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18795" class="LineNr">18795 </span> <span class="subxComment"># if (name == "<-") break</span> +<span id="L18796" class="LineNr">18796 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) <span class="subxComment"># => eax</span> +<span id="L18797" class="LineNr">18797 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18798" class="LineNr">18798 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18799" class="LineNr">18799 </span> <span class="subxComment"># if slice-starts-with?(name, "*") abort</span> +<span id="L18800" class="LineNr">18800 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L18801" class="LineNr">18801 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18802" class="LineNr">18802 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L18803" class="LineNr">18803 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L18804" class="LineNr">18804 </span> 0f 84/jump-if-= $parse-mu-stmt:error-output-dereferenced/disp32 +<span id="L18805" class="LineNr">18805 </span> <span class="subxComment"># assert(identifier?(name))</span> +<span id="L18806" class="LineNr">18806 </span> (<a href='mu.subx.html#L17767'>identifier?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18807" class="LineNr">18807 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18808" class="LineNr">18808 </span> 0f 84/jump-if-= $parse-mu-stmt:abort/disp32 +<span id="L18809" class="LineNr">18809 </span> <span class="subxComment">#</span> +<span id="L18810" class="LineNr">18810 </span> (<a href='mu.subx.html#L19133'>lookup-var</a> %ecx *(ebp+0xc) %ebx *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18811" class="LineNr">18811 </span> 8d/copy-address *(edi+0x14) 0/r32/eax <span class="subxComment"># Stmt1-outputs</span> +<span id="L18812" class="LineNr">18812 </span> (<a href='mu.subx.html#L20068'>append-stmt-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *ebx *(ebx+4) *(edi+0x14) *(edi+0x18) 0 %eax) <span class="subxComment"># Stmt1-outputs</span> +<span id="L18813" class="LineNr">18813 </span> <span class="subxComment">#</span> +<span id="L18814" class="LineNr">18814 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18815" class="LineNr">18815 </span> } +<span id="L18816" class="LineNr">18816 </span> } +<span id="L18817" class="LineNr">18817 </span> (<a href='mu.subx.html#L18858'>add-operation-and-inputs-to-stmt</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18818" class="LineNr">18818 </span><span class="Constant">$parse-mu-stmt:end</span>: +<span id="L18819" class="LineNr">18819 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18820" class="LineNr">18820 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L18821" class="LineNr">18821 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18822" class="LineNr">18822 </span> 5f/pop-to-edi +<span id="L18823" class="LineNr">18823 </span> 5b/pop-to-ebx +<span id="L18824" class="LineNr">18824 </span> 5a/pop-to-edx +<span id="L18825" class="LineNr">18825 </span> 59/pop-to-ecx +<span id="L18826" class="LineNr">18826 </span> 58/pop-to-eax +<span id="L18827" class="LineNr">18827 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18828" class="LineNr">18828 </span> 89/<- %esp 5/r32/ebp +<span id="L18829" class="LineNr">18829 </span> 5d/pop-to-ebp +<span id="L18830" class="LineNr">18830 </span> c3/return +<span id="L18831" class="LineNr">18831 </span> +<span id="L18832" class="LineNr">18832 </span><span class="Constant">$parse-mu-stmt:abort</span>: +<span id="L18833" class="LineNr">18833 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L18834" class="LineNr">18834 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18835" class="LineNr">18835 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L18836" class="LineNr">18836 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18837" class="LineNr">18837 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18838" class="LineNr">18838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier '"</span>) +<span id="L18839" class="LineNr">18839 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L18840" class="LineNr">18840 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18841" class="LineNr">18841 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18842" class="LineNr">18842 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18843" class="LineNr">18843 </span> <span class="subxComment"># never gets here</span> +<span id="L18844" class="LineNr">18844 </span> +<span id="L18845" class="LineNr">18845 </span><span class="Constant">$parse-mu-stmt:error-output-dereferenced</span>: +<span id="L18846" class="LineNr">18846 </span> <span class="subxComment"># error("invalid identifier '" name "'\n")</span> +<span id="L18847" class="LineNr">18847 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18848" class="LineNr">18848 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L18849" class="LineNr">18849 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18850" class="LineNr">18850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18851" class="LineNr">18851 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": output '"</span>) +<span id="L18852" class="LineNr">18852 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) %ecx) +<span id="L18853" class="LineNr">18853 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' should write to a register, and therefore cannot be dereferenced\n"</span>) +<span id="L18854" class="LineNr">18854 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18855" class="LineNr">18855 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18856" class="LineNr">18856 </span> <span class="subxComment"># never gets here</span> +<span id="L18857" class="LineNr">18857 </span> +<span id="L18858" class="LineNr">18858 </span><span class="subxFunction">add-operation-and-inputs-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), line: (addr stream byte), vars: (addr stack live-var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L18859" class="LineNr">18859 </span> <span class="subxComment"># pseudocode:</span> +<span id="L18860" class="LineNr">18860 </span> <span class="subxComment"># stmt->name = slice-to-string(next-mu-token(line))</span> +<span id="L18861" class="LineNr">18861 </span> <span class="subxComment"># while true</span> +<span id="L18862" class="LineNr">18862 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18863" class="LineNr">18863 </span> <span class="subxComment"># v = lookup-var-or-literal(name)</span> +<span id="L18864" class="LineNr">18864 </span> <span class="subxComment"># stmt->inouts = append(v, stmt->inouts)</span> +<span id="L18865" class="LineNr">18865 </span> <span class="subxComment">#</span> +<span id="L18866" class="LineNr">18866 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L18867" class="LineNr">18867 </span> 55/push-ebp +<span id="L18868" class="LineNr">18868 </span> 89/<- %ebp 4/r32/esp +<span id="L18869" class="LineNr">18869 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L18870" class="LineNr">18870 </span> 50/push-eax +<span id="L18871" class="LineNr">18871 </span> 51/push-ecx +<span id="L18872" class="LineNr">18872 </span> 52/push-edx +<span id="L18873" class="LineNr">18873 </span> 53/push-ebx +<span id="L18874" class="LineNr">18874 </span> 56/push-esi +<span id="L18875" class="LineNr">18875 </span> 57/push-edi +<span id="L18876" class="LineNr">18876 </span> <span class="subxComment"># edi = stmt</span> +<span id="L18877" class="LineNr">18877 </span> 8b/-> *(ebp+8) 7/r32/edi +<span id="L18878" class="LineNr">18878 </span> <span class="subxComment"># var name/ecx: slice</span> +<span id="L18879" class="LineNr">18879 </span> 68/push 0/imm32/end +<span id="L18880" class="LineNr">18880 </span> 68/push 0/imm32/start +<span id="L18881" class="LineNr">18881 </span> 89/<- %ecx 4/r32/esp +<span id="L18882" class="LineNr">18882 </span> <span class="subxComment"># var is-deref?/edx: boolean = false</span> +<span id="L18883" class="LineNr">18883 </span> ba/copy-to-edx 0/imm32/false +<span id="L18884" class="LineNr">18884 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L18885" class="LineNr">18885 </span> 68/push 0/imm32 +<span id="L18886" class="LineNr">18886 </span> 68/push 0/imm32 +<span id="L18887" class="LineNr">18887 </span> 89/<- %esi 4/r32/esp +<span id="L18888" class="LineNr">18888 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-operation</span>: +<span id="L18889" class="LineNr">18889 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L18890" class="LineNr">18890 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation or Regvardef-operationStmt1-operation or Regvardef-operation</span> +<span id="L18891" class="LineNr">18891 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %ecx %eax) +<span id="L18892" class="LineNr">18892 </span> <span class="subxComment"># var is-get?/ebx: boolean = (name == "get")</span> +<span id="L18893" class="LineNr">18893 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L18894" class="LineNr">18894 </span> 89/<- %ebx 0/r32/eax +<span id="L18895" class="LineNr">18895 </span> { +<span id="L18896" class="LineNr">18896 </span><span class="Constant">$add-operation-and-inputs-to-stmt:read-inouts</span>: +<span id="L18897" class="LineNr">18897 </span> <span class="subxComment"># name = next-mu-token(line)</span> +<span id="L18898" class="LineNr">18898 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+0xc) %ecx) +<span id="L18899" class="LineNr">18899 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L18900" class="LineNr">18900 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L18901" class="LineNr">18901 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18902" class="LineNr">18902 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L18903" class="LineNr">18903 </span> <span class="subxComment"># if (name == "<-") abort</span> +<span id="L18904" class="LineNr">18904 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L18905" class="LineNr">18905 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18906" class="LineNr">18906 </span> 0f 85/jump-if-!= $add-operation-and-inputs-to-stmt:abort/disp32 +<span id="L18907" class="LineNr">18907 </span> <span class="subxComment"># if (get? && second operand) lookup or create offset</span> +<span id="L18908" class="LineNr">18908 </span> { +<span id="L18909" class="LineNr">18909 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L18910" class="LineNr">18910 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18911" class="LineNr">18911 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L18912" class="LineNr">18912 </span> 3d/compare-eax-and 0/imm32 +<span id="L18913" class="LineNr">18913 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18914" class="LineNr">18914 </span> (<a href='mu.subx.html#L20153'>lookup-or-create-constant</a> %eax %ecx %esi) +<span id="L18915" class="LineNr">18915 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L18916" class="LineNr">18916 </span><span class="CommentedCode">#? (write-buffered Stderr "creating new output var ")</span> +<span id="L18917" class="LineNr">18917 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L18918" class="LineNr">18918 </span><span class="CommentedCode">#? (write-buffered Stderr " for field called ")</span> +<span id="L18919" class="LineNr">18919 </span><span class="CommentedCode">#? (write-slice-buffered Stderr %ecx)</span> +<span id="L18920" class="LineNr">18920 </span><span class="CommentedCode">#? (write-buffered Stderr "; var name ")</span> +<span id="L18921" class="LineNr">18921 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L18922" class="LineNr">18922 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L18923" class="LineNr">18923 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L18924" class="LineNr">18924 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L18925" class="LineNr">18925 </span> e9/jump $add-operation-and-inputs-to-stmt:save-var/disp32 +<span id="L18926" class="LineNr">18926 </span> } +<span id="L18927" class="LineNr">18927 </span> <span class="subxComment"># is-deref? = false</span> +<span id="L18928" class="LineNr">18928 </span> ba/copy-to-edx 0/imm32/false +<span id="L18929" class="LineNr">18929 </span> <span class="subxComment"># if (slice-starts-with?(name, '*')) ++name->start and set is-deref?</span> +<span id="L18930" class="LineNr">18930 </span> 8b/-> *ecx 0/r32/eax <span class="subxComment"># Slice-start</span> +<span id="L18931" class="LineNr">18931 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L18932" class="LineNr">18932 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L18933" class="LineNr">18933 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L18934" class="LineNr">18934 </span> { +<span id="L18935" class="LineNr">18935 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L18936" class="LineNr">18936 </span><span class="Constant">$add-operation-and-inputs-to-stmt:inout-is-deref</span>: +<span id="L18937" class="LineNr">18937 </span> ff 0/subop/increment *ecx +<span id="L18938" class="LineNr">18938 </span> ba/copy-to-edx 1/imm32/true +<span id="L18939" class="LineNr">18939 </span> } +<span id="L18940" class="LineNr">18940 </span> (<a href='mu.subx.html#L19070'>lookup-var-or-literal</a> %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L18941" class="LineNr">18941 </span> <span class="subxComment"># if (deref?) some additional checks</span> +<span id="L18942" class="LineNr">18942 </span> 81 7/subop/compare %edx 0/imm32/false +<span id="L18943" class="LineNr">18943 </span> { +<span id="L18944" class="LineNr">18944 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L18945" class="LineNr">18945 </span> <span class="subxComment"># if var is not in register, abort</span> +<span id="L18946" class="LineNr">18946 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18947" class="LineNr">18947 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L18948" class="LineNr">18948 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-on-stack/disp32 +<span id="L18949" class="LineNr">18949 </span> <span class="subxComment"># if var is not an address, abort</span> +<span id="L18950" class="LineNr">18950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L18951" class="LineNr">18951 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L18952" class="LineNr">18952 </span> 3d/compare-eax-and 0/imm32/false +<span id="L18953" class="LineNr">18953 </span> 0f 84/jump-if-= $add-operation-and-inputs-to-stmt:error-deref-non-addr/disp32 +<span id="L18954" class="LineNr">18954 </span> } +<span id="L18955" class="LineNr">18955 </span><span class="Constant">$add-operation-and-inputs-to-stmt:save-var</span>: +<span id="L18956" class="LineNr">18956 </span> 8d/copy-address *(edi+0xc) 0/r32/eax +<span id="L18957" class="LineNr">18957 </span> (<a href='mu.subx.html#L20068'>append-stmt-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *esi *(esi+4) *(edi+0xc) *(edi+0x10) %edx %eax) <span class="subxComment"># Stmt1-inouts or Regvardef-inouts</span> +<span id="L18958" class="LineNr">18958 </span> <span class="subxComment">#</span> +<span id="L18959" class="LineNr">18959 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L18960" class="LineNr">18960 </span> } +<span id="L18961" class="LineNr">18961 </span><span class="Constant">$add-operation-and-inputs-to-stmt:end</span>: +<span id="L18962" class="LineNr">18962 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L18963" class="LineNr">18963 </span> 81 0/subop/add %esp 0x10/imm32 +<span id="L18964" class="LineNr">18964 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L18965" class="LineNr">18965 </span> 5f/pop-to-edi +<span id="L18966" class="LineNr">18966 </span> 5e/pop-to-esi +<span id="L18967" class="LineNr">18967 </span> 5b/pop-to-ebx +<span id="L18968" class="LineNr">18968 </span> 5a/pop-to-edx +<span id="L18969" class="LineNr">18969 </span> 59/pop-to-ecx +<span id="L18970" class="LineNr">18970 </span> 58/pop-to-eax +<span id="L18971" class="LineNr">18971 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L18972" class="LineNr">18972 </span> 89/<- %esp 5/r32/ebp +<span id="L18973" class="LineNr">18973 </span> 5d/pop-to-ebp +<span id="L18974" class="LineNr">18974 </span> c3/return +<span id="L18975" class="LineNr">18975 </span> +<span id="L18976" class="LineNr">18976 </span><span class="Constant">$add-operation-and-inputs-to-stmt:abort</span>: +<span id="L18977" class="LineNr">18977 </span> <span class="subxComment"># error("fn ___: invalid identifier in '" line "'\n")</span> +<span id="L18978" class="LineNr">18978 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18979" class="LineNr">18979 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18980" class="LineNr">18980 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18981" class="LineNr">18981 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18982" class="LineNr">18982 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L18983" class="LineNr">18983 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": invalid identifier in '"</span>) +<span id="L18984" class="LineNr">18984 </span> (<a href='125write-stream-data.subx.html#L11'>write-stream-data</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L18985" class="LineNr">18985 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L18986" class="LineNr">18986 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L18987" class="LineNr">18987 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L18988" class="LineNr">18988 </span> <span class="subxComment"># never gets here</span> +<span id="L18989" class="LineNr">18989 </span> +<span id="L18990" class="LineNr">18990 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-on-stack</span>: +<span id="L18991" class="LineNr">18991 </span> <span class="subxComment"># error("fn ___: cannot dereference var ___ on stack\n")</span> +<span id="L18992" class="LineNr">18992 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L18993" class="LineNr">18993 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L18994" class="LineNr">18994 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L18995" class="LineNr">18995 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L18996" class="LineNr">18996 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L18997" class="LineNr">18997 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference var '"</span>) +<span id="L18998" class="LineNr">18998 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L18999" class="LineNr">18999 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19000" class="LineNr">19000 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19001" class="LineNr">19001 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' on stack\n"</span>) +<span id="L19002" class="LineNr">19002 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19003" class="LineNr">19003 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19004" class="LineNr">19004 </span> <span class="subxComment"># never gets here</span> +<span id="L19005" class="LineNr">19005 </span> +<span id="L19006" class="LineNr">19006 </span><span class="Constant">$add-operation-and-inputs-to-stmt:error-deref-non-addr</span>: +<span id="L19007" class="LineNr">19007 </span> <span class="subxComment"># error("fn ___: cannot dereference non-addr var ___\n")</span> +<span id="L19008" class="LineNr">19008 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19009" class="LineNr">19009 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19010" class="LineNr">19010 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19011" class="LineNr">19011 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19012" class="LineNr">19012 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+0xc)) +<span id="L19013" class="LineNr">19013 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": cannot dereference non-addr var '"</span>) +<span id="L19014" class="LineNr">19014 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19015" class="LineNr">19015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19016" class="LineNr">19016 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19017" class="LineNr">19017 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19018" class="LineNr">19018 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19019" class="LineNr">19019 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19020" class="LineNr">19020 </span> <span class="subxComment"># never gets here</span> +<span id="L19021" class="LineNr">19021 </span> +<span id="L19022" class="LineNr">19022 </span><span class="subxFunction">stmt-has-outputs?</span>: <span class="subxComment"># line: (addr stream byte) -> result/eax: boolean</span> +<span id="L19023" class="LineNr">19023 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19024" class="LineNr">19024 </span> 55/push-ebp +<span id="L19025" class="LineNr">19025 </span> 89/<- %ebp 4/r32/esp +<span id="L19026" class="LineNr">19026 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19027" class="LineNr">19027 </span> 51/push-ecx +<span id="L19028" class="LineNr">19028 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L19029" class="LineNr">19029 </span> 68/push 0/imm32/end +<span id="L19030" class="LineNr">19030 </span> 68/push 0/imm32/start +<span id="L19031" class="LineNr">19031 </span> 89/<- %ecx 4/r32/esp +<span id="L19032" class="LineNr">19032 </span> <span class="subxComment"># result = false</span> +<span id="L19033" class="LineNr">19033 </span> b8/copy-to-eax 0/imm32/false +<span id="L19034" class="LineNr">19034 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L19035" class="LineNr">19035 </span> { +<span id="L19036" class="LineNr">19036 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> *(ebp+8) %ecx) +<span id="L19037" class="LineNr">19037 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L19038" class="LineNr">19038 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %ecx) +<span id="L19039" class="LineNr">19039 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19040" class="LineNr">19040 </span> b8/copy-to-eax 0/imm32/false/result <span class="subxComment"># restore result (if we're here it's still false)</span> +<span id="L19041" class="LineNr">19041 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L19042" class="LineNr">19042 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '#') break</span> +<span id="L19043" class="LineNr">19043 </span> <span class="subxS1Comment"># . eax = *word-slice->start</span> +<span id="L19044" class="LineNr">19044 </span> 8b/-> *ecx 0/r32/eax +<span id="L19045" class="LineNr">19045 </span> 8a/copy-byte *eax 0/r32/AL +<span id="L19046" class="LineNr">19046 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L19047" class="LineNr">19047 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L19048" class="LineNr">19048 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L19049" class="LineNr">19049 </span> b8/copy-to-eax 0/imm32/false/result <span class="subxComment"># restore result (if we're here it's still false)</span> +<span id="L19050" class="LineNr">19050 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L19051" class="LineNr">19051 </span> <span class="subxComment"># if slice-equal?(word-slice, '<-') return true</span> +<span id="L19052" class="LineNr">19052 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %ecx <span class="Constant">"<-"</span>) +<span id="L19053" class="LineNr">19053 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19054" class="LineNr">19054 </span> 74/jump-if-= <span class="Constant">loop</span>/disp8 +<span id="L19055" class="LineNr">19055 </span> b8/copy-to-eax 1/imm32/true +<span id="L19056" class="LineNr">19056 </span> } +<span id="L19057" class="LineNr">19057 </span><span class="Constant">$stmt-has-outputs:end</span>: +<span id="L19058" class="LineNr">19058 </span> (<a href='106stream.subx.html#L56'>rewind-stream</a> *(ebp+8)) +<span id="L19059" class="LineNr">19059 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19060" class="LineNr">19060 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19061" class="LineNr">19061 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19062" class="LineNr">19062 </span> 59/pop-to-ecx +<span id="L19063" class="LineNr">19063 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19064" class="LineNr">19064 </span> 89/<- %esp 5/r32/ebp +<span id="L19065" class="LineNr">19065 </span> 5d/pop-to-ebp +<span id="L19066" class="LineNr">19066 </span> c3/return +<span id="L19067" class="LineNr">19067 </span> +<span id="L19068" class="LineNr">19068 </span><span class="subxComment"># if 'name' starts with a digit, create a new literal var for it</span> +<span id="L19069" class="LineNr">19069 </span><span class="subxComment"># otherwise return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L19070" class="LineNr">19070 </span><span class="subxFunction">lookup-var-or-literal</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L19071" class="LineNr">19071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19072" class="LineNr">19072 </span> 55/push-ebp +<span id="L19073" class="LineNr">19073 </span> 89/<- %ebp 4/r32/esp +<span id="L19074" class="LineNr">19074 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19075" class="LineNr">19075 </span> 50/push-eax +<span id="L19076" class="LineNr">19076 </span> 51/push-ecx +<span id="L19077" class="LineNr">19077 </span> 56/push-esi +<span id="L19078" class="LineNr">19078 </span> <span class="subxComment"># esi = name</span> +<span id="L19079" class="LineNr">19079 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19080" class="LineNr">19080 </span> <span class="subxComment"># if slice-empty?(name) abort</span> +<span id="L19081" class="LineNr">19081 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L19082" class="LineNr">19082 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19083" class="LineNr">19083 </span> 0f 85/jump-if-!= $lookup-var-or-literal:abort/disp32 +<span id="L19084" class="LineNr">19084 </span> <span class="subxComment"># var c/ecx: byte = *name->start</span> +<span id="L19085" class="LineNr">19085 </span> 8b/-> *esi 1/r32/ecx +<span id="L19086" class="LineNr">19086 </span> 8a/copy-byte *ecx 1/r32/CL +<span id="L19087" class="LineNr">19087 </span> 81 4/subop/and %ecx 0xff/imm32 +<span id="L19088" class="LineNr">19088 </span> <span class="subxComment"># if (decimal-digit?(c) || c == '-') return new var(name)</span> +<span id="L19089" class="LineNr">19089 </span> { +<span id="L19090" class="LineNr">19090 </span> 81 7/subop/compare %ecx 0x2d/imm32/dash +<span id="L19091" class="LineNr">19091 </span> 74/jump-if-= $lookup-var-or-literal:literal/disp8 +<span id="L19092" class="LineNr">19092 </span> (<a href='126write-int-decimal.subx.html#L306'>decimal-digit?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L19093" class="LineNr">19093 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19094" class="LineNr">19094 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19095" class="LineNr">19095 </span><span class="Constant">$lookup-var-or-literal:literal</span>: +<span id="L19096" class="LineNr">19096 </span> (<a href='mu.subx.html#L19740'>new-literal-integer</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19097" class="LineNr">19097 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L19098" class="LineNr">19098 </span> } +<span id="L19099" class="LineNr">19099 </span> <span class="subxComment"># else if (c == '"') return new var(name)</span> +<span id="L19100" class="LineNr">19100 </span> { +<span id="L19101" class="LineNr">19101 </span> 81 7/subop/compare %ecx 0x22/imm32/dquote +<span id="L19102" class="LineNr">19102 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19103" class="LineNr">19103 </span><span class="Constant">$lookup-var-or-literal:literal-string</span>: +<span id="L19104" class="LineNr">19104 </span> (<a href='mu.subx.html#L19892'>new-literal-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %esi *(ebp+0x10)) +<span id="L19105" class="LineNr">19105 </span> eb/jump $lookup-var-or-literal:end/disp8 +<span id="L19106" class="LineNr">19106 </span> } +<span id="L19107" class="LineNr">19107 </span> <span class="subxComment"># otherwise return lookup-var(name, vars)</span> +<span id="L19108" class="LineNr">19108 </span> { +<span id="L19109" class="LineNr">19109 </span><span class="Constant">$lookup-var-or-literal:var</span>: +<span id="L19110" class="LineNr">19110 </span> (<a href='mu.subx.html#L19133'>lookup-var</a> %esi *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19111" class="LineNr">19111 </span> } +<span id="L19112" class="LineNr">19112 </span><span class="Constant">$lookup-var-or-literal:end</span>: +<span id="L19113" class="LineNr">19113 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19114" class="LineNr">19114 </span> 5e/pop-to-esi +<span id="L19115" class="LineNr">19115 </span> 59/pop-to-ecx +<span id="L19116" class="LineNr">19116 </span> 58/pop-to-eax +<span id="L19117" class="LineNr">19117 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19118" class="LineNr">19118 </span> 89/<- %esp 5/r32/ebp +<span id="L19119" class="LineNr">19119 </span> 5d/pop-to-ebp +<span id="L19120" class="LineNr">19120 </span> c3/return +<span id="L19121" class="LineNr">19121 </span> +<span id="L19122" class="LineNr">19122 </span><span class="Constant">$lookup-var-or-literal:abort</span>: +<span id="L19123" class="LineNr">19123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19124" class="LineNr">19124 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19125" class="LineNr">19125 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19126" class="LineNr">19126 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19127" class="LineNr">19127 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": empty variable!"</span>) +<span id="L19128" class="LineNr">19128 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19129" class="LineNr">19129 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19130" class="LineNr">19130 </span> <span class="subxComment"># never gets here</span> +<span id="L19131" class="LineNr">19131 </span> +<span id="L19132" class="LineNr">19132 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars' and abort if not found</span> +<span id="L19133" class="LineNr">19133 </span><span class="subxFunction">lookup-var</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L19134" class="LineNr">19134 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19135" class="LineNr">19135 </span> 55/push-ebp +<span id="L19136" class="LineNr">19136 </span> 89/<- %ebp 4/r32/esp +<span id="L19137" class="LineNr">19137 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19138" class="LineNr">19138 </span> 50/push-eax +<span id="L19139" class="LineNr">19139 </span> <span class="subxComment">#</span> +<span id="L19140" class="LineNr">19140 </span> (<a href='mu.subx.html#L19167'>lookup-var-helper</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19141" class="LineNr">19141 </span> <span class="subxComment"># if (*out == 0) abort</span> +<span id="L19142" class="LineNr">19142 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19143" class="LineNr">19143 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L19144" class="LineNr">19144 </span> 74/jump-if-= $lookup-var:abort/disp8 +<span id="L19145" class="LineNr">19145 </span><span class="Constant">$lookup-var:end</span>: +<span id="L19146" class="LineNr">19146 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19147" class="LineNr">19147 </span> 58/pop-to-eax +<span id="L19148" class="LineNr">19148 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19149" class="LineNr">19149 </span> 89/<- %esp 5/r32/ebp +<span id="L19150" class="LineNr">19150 </span> 5d/pop-to-ebp +<span id="L19151" class="LineNr">19151 </span> c3/return +<span id="L19152" class="LineNr">19152 </span> +<span id="L19153" class="LineNr">19153 </span><span class="Constant">$lookup-var:abort</span>: +<span id="L19154" class="LineNr">19154 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19155" class="LineNr">19155 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19156" class="LineNr">19156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19157" class="LineNr">19157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19158" class="LineNr">19158 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": unknown variable '"</span>) +<span id="L19159" class="LineNr">19159 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19160" class="LineNr">19160 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19161" class="LineNr">19161 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19162" class="LineNr">19162 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19163" class="LineNr">19163 </span> <span class="subxComment"># never gets here</span> +<span id="L19164" class="LineNr">19164 </span> +<span id="L19165" class="LineNr">19165 </span><span class="subxComment"># return first 'name' from the top (back) of 'vars', and 0/null if not found</span> +<span id="L19166" class="LineNr">19166 </span><span class="subxComment"># ensure that 'name' if in a register is the topmost variable in that register</span> +<span id="L19167" class="LineNr">19167 </span><span class="subxFunction">lookup-var-helper</span>: <span class="subxComment"># name: (addr slice), vars: (addr stack live-var), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L19168" class="LineNr">19168 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19169" class="LineNr">19169 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19170" class="LineNr">19170 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19171" class="LineNr">19171 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19172" class="LineNr">19172 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19173" class="LineNr">19173 </span> <span class="subxComment"># if v->name == name</span> +<span id="L19174" class="LineNr">19174 </span> <span class="subxComment"># return</span> +<span id="L19175" class="LineNr">19175 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19176" class="LineNr">19176 </span> <span class="subxComment">#</span> +<span id="L19177" class="LineNr">19177 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19178" class="LineNr">19178 </span> 55/push-ebp +<span id="L19179" class="LineNr">19179 </span> 89/<- %ebp 4/r32/esp +<span id="L19180" class="LineNr">19180 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19181" class="LineNr">19181 </span> 50/push-eax +<span id="L19182" class="LineNr">19182 </span> 51/push-ecx +<span id="L19183" class="LineNr">19183 </span> 52/push-edx +<span id="L19184" class="LineNr">19184 </span> 53/push-ebx +<span id="L19185" class="LineNr">19185 </span> 56/push-esi +<span id="L19186" class="LineNr">19186 </span> 57/push-edi +<span id="L19187" class="LineNr">19187 </span> <span class="subxComment"># clear out</span> +<span id="L19188" class="LineNr">19188 </span> (<a href='120allocate.subx.html#L889'>zero-out</a> *(ebp+0x10) *<span class="SpecialChar"><a href='120allocate.subx.html#L23'>Handle-size</a></span>) +<span id="L19189" class="LineNr">19189 </span> <span class="subxComment"># esi = vars</span> +<span id="L19190" class="LineNr">19190 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L19191" class="LineNr">19191 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L19192" class="LineNr">19192 </span> 8b/-> *esi 3/r32/ebx +<span id="L19193" class="LineNr">19193 </span> <span class="subxComment"># if (vars->top > vars->size) abort</span> +<span id="L19194" class="LineNr">19194 </span> 3b/compare<- *(esi+4) 0/r32/eax +<span id="L19195" class="LineNr">19195 </span> 0f 8f/jump-if-> $lookup-var-helper:error1/disp32 +<span id="L19196" class="LineNr">19196 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19197" class="LineNr">19197 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19198" class="LineNr">19198 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19199" class="LineNr">19199 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19200" class="LineNr">19200 </span> <span class="subxComment"># var var-in-reg/edi: 16 addrs</span> +<span id="L19201" class="LineNr">19201 </span> 68/push 0/imm32 +<span id="L19202" class="LineNr">19202 </span> 68/push 0/imm32 +<span id="L19203" class="LineNr">19203 </span> 68/push 0/imm32 +<span id="L19204" class="LineNr">19204 </span> 68/push 0/imm32 +<span id="L19205" class="LineNr">19205 </span> 68/push 0/imm32 +<span id="L19206" class="LineNr">19206 </span> 68/push 0/imm32 +<span id="L19207" class="LineNr">19207 </span> 68/push 0/imm32 +<span id="L19208" class="LineNr">19208 </span> 68/push 0/imm32 +<span id="L19209" class="LineNr">19209 </span> 68/push 0/imm32 +<span id="L19210" class="LineNr">19210 </span> 68/push 0/imm32 +<span id="L19211" class="LineNr">19211 </span> 68/push 0/imm32 +<span id="L19212" class="LineNr">19212 </span> 68/push 0/imm32 +<span id="L19213" class="LineNr">19213 </span> 68/push 0/imm32 +<span id="L19214" class="LineNr">19214 </span> 68/push 0/imm32 +<span id="L19215" class="LineNr">19215 </span> 68/push 0/imm32 +<span id="L19216" class="LineNr">19216 </span> 68/push 0/imm32 +<span id="L19217" class="LineNr">19217 </span> 89/<- %edi 4/r32/esp +<span id="L19218" class="LineNr">19218 </span> { +<span id="L19219" class="LineNr">19219 </span><span class="Constant">$lookup-var-helper:loop</span>: +<span id="L19220" class="LineNr">19220 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19221" class="LineNr">19221 </span> 39/compare %ebx 2/r32/edx +<span id="L19222" class="LineNr">19222 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19223" class="LineNr">19223 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(*curr)</span> +<span id="L19224" class="LineNr">19224 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L19225" class="LineNr">19225 </span> 89/<- %ecx 0/r32/eax +<span id="L19226" class="LineNr">19226 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L19227" class="LineNr">19227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19228" class="LineNr">19228 </span> <span class="subxComment"># if (vn == name) return curr</span> +<span id="L19229" class="LineNr">19229 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> *(ebp+8) %eax) <span class="subxComment"># => eax</span> +<span id="L19230" class="LineNr">19230 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19231" class="LineNr">19231 </span> { +<span id="L19232" class="LineNr">19232 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19233" class="LineNr">19233 </span><span class="Constant">$lookup-var-helper:found</span>: +<span id="L19234" class="LineNr">19234 </span> <span class="subxComment"># var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L19235" class="LineNr">19235 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19236" class="LineNr">19236 </span> 3d/compare-eax-and 0/imm32 +<span id="L19237" class="LineNr">19237 </span> { +<span id="L19238" class="LineNr">19238 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L19239" class="LineNr">19239 </span><span class="Constant">$lookup-var-helper:found-register</span>: +<span id="L19240" class="LineNr">19240 </span> <span class="subxComment"># var reg/eax: int = get(Registers, vr)</span> +<span id="L19241" class="LineNr">19241 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19400'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L19242" class="LineNr">19242 </span> 8b/-> *eax 0/r32/eax +<span id="L19243" class="LineNr">19243 </span> <span class="subxComment"># if (var-in-reg[reg]) error</span> +<span id="L19244" class="LineNr">19244 </span> 8b/-> *(edi+eax<<2) 0/r32/eax +<span id="L19245" class="LineNr">19245 </span> 3d/compare-eax-and 0/imm32 +<span id="L19246" class="LineNr">19246 </span> 0f 85/jump-if-!= $lookup-var-helper:error2/disp32 +<span id="L19247" class="LineNr">19247 </span> } +<span id="L19248" class="LineNr">19248 </span><span class="Constant">$lookup-var-helper:return</span>: +<span id="L19249" class="LineNr">19249 </span> <span class="subxComment"># esi = out</span> +<span id="L19250" class="LineNr">19250 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L19251" class="LineNr">19251 </span> <span class="subxComment"># *out = *curr</span> +<span id="L19252" class="LineNr">19252 </span> 8b/-> *ebx 0/r32/eax +<span id="L19253" class="LineNr">19253 </span> 89/<- *esi 0/r32/eax +<span id="L19254" class="LineNr">19254 </span> 8b/-> *(ebx+4) 0/r32/eax +<span id="L19255" class="LineNr">19255 </span> 89/<- *(esi+4) 0/r32/eax +<span id="L19256" class="LineNr">19256 </span> <span class="subxComment"># return</span> +<span id="L19257" class="LineNr">19257 </span> eb/jump $lookup-var-helper:end/disp8 +<span id="L19258" class="LineNr">19258 </span> } +<span id="L19259" class="LineNr">19259 </span> <span class="subxComment"># 'name' not yet found; update var-in-reg if v in register</span> +<span id="L19260" class="LineNr">19260 </span> <span class="subxS1Comment"># . var vr/eax: (addr array byte) = lookup(v->register)</span> +<span id="L19261" class="LineNr">19261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19262" class="LineNr">19262 </span> <span class="subxS1Comment"># . if (vr == 0) continue</span> +<span id="L19263" class="LineNr">19263 </span> 3d/compare-eax-and 0/imm32 +<span id="L19264" class="LineNr">19264 </span> 74/jump-if-= $lookup-var-helper:continue/disp8 +<span id="L19265" class="LineNr">19265 </span> <span class="subxS1Comment"># . var reg/eax: int = get(Registers, vr)</span> +<span id="L19266" class="LineNr">19266 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19400'>Mu-registers-unique</a></span> %eax 0xc <span class="Constant">"Mu-registers-unique"</span>) <span class="subxComment"># => eax</span> +<span id="L19267" class="LineNr">19267 </span> 8b/-> *eax 0/r32/eax +<span id="L19268" class="LineNr">19268 </span> <span class="subxS1Comment"># . var-in-reg[reg] = v</span> +<span id="L19269" class="LineNr">19269 </span> 89/<- *(edi+eax<<2) 1/r32/ecx +<span id="L19270" class="LineNr">19270 </span><span class="Constant">$lookup-var-helper:continue</span>: +<span id="L19271" class="LineNr">19271 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19272" class="LineNr">19272 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L19273" class="LineNr">19273 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19274" class="LineNr">19274 </span> } +<span id="L19275" class="LineNr">19275 </span><span class="Constant">$lookup-var-helper:end</span>: +<span id="L19276" class="LineNr">19276 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19277" class="LineNr">19277 </span> 81 0/subop/add %esp 0x40/imm32 +<span id="L19278" class="LineNr">19278 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19279" class="LineNr">19279 </span> 5f/pop-to-edi +<span id="L19280" class="LineNr">19280 </span> 5e/pop-to-esi +<span id="L19281" class="LineNr">19281 </span> 5b/pop-to-ebx +<span id="L19282" class="LineNr">19282 </span> 5a/pop-to-edx +<span id="L19283" class="LineNr">19283 </span> 59/pop-to-ecx +<span id="L19284" class="LineNr">19284 </span> 58/pop-to-eax +<span id="L19285" class="LineNr">19285 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19286" class="LineNr">19286 </span> 89/<- %esp 5/r32/ebp +<span id="L19287" class="LineNr">19287 </span> 5d/pop-to-ebp +<span id="L19288" class="LineNr">19288 </span> c3/return +<span id="L19289" class="LineNr">19289 </span> +<span id="L19290" class="LineNr">19290 </span><span class="Constant">$lookup-var-helper:error1</span>: +<span id="L19291" class="LineNr">19291 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19292" class="LineNr">19292 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19293" class="LineNr">19293 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19294" class="LineNr">19294 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19295" class="LineNr">19295 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": malformed stack when looking up '"</span>) +<span id="L19296" class="LineNr">19296 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19297" class="LineNr">19297 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19298" class="LineNr">19298 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19299" class="LineNr">19299 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19300" class="LineNr">19300 </span> <span class="subxComment"># never gets here</span> +<span id="L19301" class="LineNr">19301 </span> +<span id="L19302" class="LineNr">19302 </span><span class="Constant">$lookup-var-helper:error2</span>: +<span id="L19303" class="LineNr">19303 </span> <span class="subxComment"># eax contains the conflicting var at this point</span> +<span id="L19304" class="LineNr">19304 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19305" class="LineNr">19305 </span> 50/push-eax +<span id="L19306" class="LineNr">19306 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19307" class="LineNr">19307 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19308" class="LineNr">19308 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19309" class="LineNr">19309 </span> 58/pop-eax +<span id="L19310" class="LineNr">19310 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": register "</span>) +<span id="L19311" class="LineNr">19311 </span> 50/push-eax +<span id="L19312" class="LineNr">19312 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L19313" class="LineNr">19313 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19314" class="LineNr">19314 </span> 58/pop-to-eax +<span id="L19315" class="LineNr">19315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">" reads var '"</span>) +<span id="L19316" class="LineNr">19316 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+8)) +<span id="L19317" class="LineNr">19317 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' after writing var '"</span>) +<span id="L19318" class="LineNr">19318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19319" class="LineNr">19319 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19320" class="LineNr">19320 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"'\n"</span>) +<span id="L19321" class="LineNr">19321 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19322" class="LineNr">19322 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19323" class="LineNr">19323 </span> <span class="subxComment"># never gets here</span> +<span id="L19324" class="LineNr">19324 </span> +<span id="L19325" class="LineNr">19325 </span><span class="subxFunction">dump-vars</span>: <span class="subxComment"># vars: (addr stack live-var)</span> +<span id="L19326" class="LineNr">19326 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19327" class="LineNr">19327 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19328" class="LineNr">19328 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19329" class="LineNr">19329 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19330" class="LineNr">19330 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19331" class="LineNr">19331 </span> <span class="subxComment"># print v</span> +<span id="L19332" class="LineNr">19332 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19333" class="LineNr">19333 </span> <span class="subxComment">#</span> +<span id="L19334" class="LineNr">19334 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19335" class="LineNr">19335 </span> 55/push-ebp +<span id="L19336" class="LineNr">19336 </span> 89/<- %ebp 4/r32/esp +<span id="L19337" class="LineNr">19337 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19338" class="LineNr">19338 </span> 52/push-edx +<span id="L19339" class="LineNr">19339 </span> 53/push-ebx +<span id="L19340" class="LineNr">19340 </span> 56/push-esi +<span id="L19341" class="LineNr">19341 </span> <span class="subxComment"># esi = vars</span> +<span id="L19342" class="LineNr">19342 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L19343" class="LineNr">19343 </span> <span class="subxComment"># ebx = vars->top</span> +<span id="L19344" class="LineNr">19344 </span> 8b/-> *esi 3/r32/ebx +<span id="L19345" class="LineNr">19345 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19346" class="LineNr">19346 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19347" class="LineNr">19347 </span> <span class="subxComment"># var curr/ebx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19348" class="LineNr">19348 </span> 8d/copy-address *(esi+ebx-4) 3/r32/ebx <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19349" class="LineNr">19349 </span> { +<span id="L19350" class="LineNr">19350 </span><span class="Constant">$dump-vars:loop</span>: +<span id="L19351" class="LineNr">19351 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19352" class="LineNr">19352 </span> 39/compare %ebx 2/r32/edx +<span id="L19353" class="LineNr">19353 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19354" class="LineNr">19354 </span> <span class="subxComment">#</span> +<span id="L19355" class="LineNr">19355 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" var@"</span>) +<span id="L19356" class="LineNr">19356 </span> (<a href='mu.subx.html#L21195'>dump-var</a> 2 %ebx) +<span id="L19357" class="LineNr">19357 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19358" class="LineNr">19358 </span> 81 5/subop/subtract %ebx 0xc/imm32 +<span id="L19359" class="LineNr">19359 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19360" class="LineNr">19360 </span> } +<span id="L19361" class="LineNr">19361 </span><span class="Constant">$dump-vars:end</span>: +<span id="L19362" class="LineNr">19362 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19363" class="LineNr">19363 </span> 5e/pop-to-esi +<span id="L19364" class="LineNr">19364 </span> 5b/pop-to-ebx +<span id="L19365" class="LineNr">19365 </span> 5a/pop-to-edx +<span id="L19366" class="LineNr">19366 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19367" class="LineNr">19367 </span> 89/<- %esp 5/r32/ebp +<span id="L19368" class="LineNr">19368 </span> 5d/pop-to-ebp +<span id="L19369" class="LineNr">19369 </span> c3/return +<span id="L19370" class="LineNr">19370 </span> +<span id="L19371" class="LineNr">19371 </span>== data +<span id="L19372" class="LineNr">19372 </span><span class="subxComment"># Like Registers, but no esp or ebp</span> +<span id="L19373" class="LineNr">19373 </span><span class="SpecialChar">Mu-registers</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L19374" class="LineNr">19374 </span> <span class="subxComment"># a table is a stream</span> +<span id="L19375" class="LineNr">19375 </span> 0xa8/imm32/write +<span id="L19376" class="LineNr">19376 </span> 0/imm32/read +<span id="L19377" class="LineNr">19377 </span> 0xa8/imm32/length +<span id="L19378" class="LineNr">19378 </span> <span class="subxComment"># data</span> +<span id="L19379" class="LineNr">19379 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L19380" class="LineNr">19380 </span> <span class="subxComment"># it is perfectly ok to use fake alloc-ids -- as long as you never try to reclaim them</span> +<span id="L19381" class="LineNr">19381 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L19382" class="LineNr">19382 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L19383" class="LineNr">19383 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L19384" class="LineNr">19384 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L19385" class="LineNr">19385 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L19386" class="LineNr">19386 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L19387" class="LineNr">19387 </span> <span class="subxComment"># floating-point registers</span> +<span id="L19388" class="LineNr">19388 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 0/imm32 +<span id="L19389" class="LineNr">19389 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 1/imm32 +<span id="L19390" class="LineNr">19390 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 2/imm32 +<span id="L19391" class="LineNr">19391 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 3/imm32 +<span id="L19392" class="LineNr">19392 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 4/imm32 +<span id="L19393" class="LineNr">19393 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 5/imm32 +<span id="L19394" class="LineNr">19394 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 6/imm32 +<span id="L19395" class="LineNr">19395 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 7/imm32 +<span id="L19396" class="LineNr">19396 </span> +<span id="L19397" class="LineNr">19397 </span><span class="subxComment"># Like Mu-registers, but with unique codes for integer and floating-point</span> +<span id="L19398" class="LineNr">19398 </span><span class="subxComment"># registers.</span> +<span id="L19399" class="LineNr">19399 </span><span class="subxComment"># Don't use this for code-generation, only for checking.</span> +<span id="L19400" class="LineNr">19400 </span><span class="SpecialChar">Mu-registers-unique</span>: <span class="subxComment"># (addr stream {(handle array byte), int})</span> +<span id="L19401" class="LineNr">19401 </span> <span class="subxComment"># a table is a stream</span> +<span id="L19402" class="LineNr">19402 </span> 0xa8/imm32/write +<span id="L19403" class="LineNr">19403 </span> 0/imm32/read +<span id="L19404" class="LineNr">19404 </span> 0xa8/imm32/length +<span id="L19405" class="LineNr">19405 </span> <span class="subxComment"># data</span> +<span id="L19406" class="LineNr">19406 </span> <span class="subxComment"># general-purpose registers</span> +<span id="L19407" class="LineNr">19407 </span> 0x11/imm32/alloc-id $Mu-register-eax/imm32 0/imm32 +<span id="L19408" class="LineNr">19408 </span> 0x11/imm32/alloc-id $Mu-register-ecx/imm32 1/imm32 +<span id="L19409" class="LineNr">19409 </span> 0x11/imm32/alloc-id $Mu-register-edx/imm32 2/imm32 +<span id="L19410" class="LineNr">19410 </span> 0x11/imm32/alloc-id $Mu-register-ebx/imm32 3/imm32 +<span id="L19411" class="LineNr">19411 </span> 0x11/imm32/alloc-id $Mu-register-esi/imm32 6/imm32 +<span id="L19412" class="LineNr">19412 </span> 0x11/imm32/alloc-id $Mu-register-edi/imm32 7/imm32 +<span id="L19413" class="LineNr">19413 </span> <span class="subxComment"># floating-point registers</span> +<span id="L19414" class="LineNr">19414 </span> 0x11/imm32/alloc-id $Mu-register-xmm0/imm32 8/imm32 +<span id="L19415" class="LineNr">19415 </span> 0x11/imm32/alloc-id $Mu-register-xmm1/imm32 9/imm32 +<span id="L19416" class="LineNr">19416 </span> 0x11/imm32/alloc-id $Mu-register-xmm2/imm32 0xa/imm32 +<span id="L19417" class="LineNr">19417 </span> 0x11/imm32/alloc-id $Mu-register-xmm3/imm32 0xb/imm32 +<span id="L19418" class="LineNr">19418 </span> 0x11/imm32/alloc-id $Mu-register-xmm4/imm32 0xc/imm32 +<span id="L19419" class="LineNr">19419 </span> 0x11/imm32/alloc-id $Mu-register-xmm5/imm32 0xd/imm32 +<span id="L19420" class="LineNr">19420 </span> 0x11/imm32/alloc-id $Mu-register-xmm6/imm32 0xe/imm32 +<span id="L19421" class="LineNr">19421 </span> 0x11/imm32/alloc-id $Mu-register-xmm7/imm32 0xf/imm32 +<span id="L19422" class="LineNr">19422 </span> +<span id="L19423" class="LineNr">19423 </span><span class="Constant">$Mu-register-eax</span>: +<span id="L19424" class="LineNr">19424 </span> 0x11/imm32/alloc-id +<span id="L19425" class="LineNr">19425 </span> 3/imm32/size +<span id="L19426" class="LineNr">19426 </span> 0x65/e 0x61/a 0x78/x +<span id="L19427" class="LineNr">19427 </span> +<span id="L19428" class="LineNr">19428 </span><span class="Constant">$Mu-register-ecx</span>: +<span id="L19429" class="LineNr">19429 </span> 0x11/imm32/alloc-id +<span id="L19430" class="LineNr">19430 </span> 3/imm32/size +<span id="L19431" class="LineNr">19431 </span> 0x65/e 0x63/c 0x78/x +<span id="L19432" class="LineNr">19432 </span> +<span id="L19433" class="LineNr">19433 </span><span class="Constant">$Mu-register-edx</span>: +<span id="L19434" class="LineNr">19434 </span> 0x11/imm32/alloc-id +<span id="L19435" class="LineNr">19435 </span> 3/imm32/size +<span id="L19436" class="LineNr">19436 </span> 0x65/e 0x64/d 0x78/x +<span id="L19437" class="LineNr">19437 </span> +<span id="L19438" class="LineNr">19438 </span><span class="Constant">$Mu-register-ebx</span>: +<span id="L19439" class="LineNr">19439 </span> 0x11/imm32/alloc-id +<span id="L19440" class="LineNr">19440 </span> 3/imm32/size +<span id="L19441" class="LineNr">19441 </span> 0x65/e 0x62/b 0x78/x +<span id="L19442" class="LineNr">19442 </span> +<span id="L19443" class="LineNr">19443 </span><span class="Constant">$Mu-register-esi</span>: +<span id="L19444" class="LineNr">19444 </span> 0x11/imm32/alloc-id +<span id="L19445" class="LineNr">19445 </span> 3/imm32/size +<span id="L19446" class="LineNr">19446 </span> 0x65/e 0x73/s 0x69/i +<span id="L19447" class="LineNr">19447 </span> +<span id="L19448" class="LineNr">19448 </span><span class="Constant">$Mu-register-edi</span>: +<span id="L19449" class="LineNr">19449 </span> 0x11/imm32/alloc-id +<span id="L19450" class="LineNr">19450 </span> 3/imm32/size +<span id="L19451" class="LineNr">19451 </span> 0x65/e 0x64/d 0x69/i +<span id="L19452" class="LineNr">19452 </span> +<span id="L19453" class="LineNr">19453 </span><span class="Constant">$Mu-register-xmm0</span>: +<span id="L19454" class="LineNr">19454 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19455" class="LineNr">19455 </span> <span class="subxComment"># "xmm0"</span> +<span id="L19456" class="LineNr">19456 </span> 0x4/imm32/size +<span id="L19457" class="LineNr">19457 </span> 0x78/x 0x6d/m 0x6d/m 0x30/0 +<span id="L19458" class="LineNr">19458 </span> +<span id="L19459" class="LineNr">19459 </span><span class="Constant">$Mu-register-xmm1</span>: +<span id="L19460" class="LineNr">19460 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19461" class="LineNr">19461 </span> <span class="subxComment"># "xmm1"</span> +<span id="L19462" class="LineNr">19462 </span> 0x4/imm32/size +<span id="L19463" class="LineNr">19463 </span> 0x78/x 0x6d/m 0x6d/m 0x31/1 +<span id="L19464" class="LineNr">19464 </span> +<span id="L19465" class="LineNr">19465 </span><span class="Constant">$Mu-register-xmm2</span>: +<span id="L19466" class="LineNr">19466 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19467" class="LineNr">19467 </span> <span class="subxComment"># "xmm2"</span> +<span id="L19468" class="LineNr">19468 </span> 0x4/imm32/size +<span id="L19469" class="LineNr">19469 </span> 0x78/x 0x6d/m 0x6d/m 0x32/2 +<span id="L19470" class="LineNr">19470 </span> +<span id="L19471" class="LineNr">19471 </span><span class="Constant">$Mu-register-xmm3</span>: +<span id="L19472" class="LineNr">19472 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19473" class="LineNr">19473 </span> <span class="subxComment"># "xmm3"</span> +<span id="L19474" class="LineNr">19474 </span> 0x4/imm32/size +<span id="L19475" class="LineNr">19475 </span> 0x78/x 0x6d/m 0x6d/m 0x33/3 +<span id="L19476" class="LineNr">19476 </span> +<span id="L19477" class="LineNr">19477 </span><span class="Constant">$Mu-register-xmm4</span>: +<span id="L19478" class="LineNr">19478 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19479" class="LineNr">19479 </span> <span class="subxComment"># "xmm4"</span> +<span id="L19480" class="LineNr">19480 </span> 0x4/imm32/size +<span id="L19481" class="LineNr">19481 </span> 0x78/x 0x6d/m 0x6d/m 0x34/4 +<span id="L19482" class="LineNr">19482 </span> +<span id="L19483" class="LineNr">19483 </span><span class="Constant">$Mu-register-xmm5</span>: +<span id="L19484" class="LineNr">19484 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19485" class="LineNr">19485 </span> <span class="subxComment"># "xmm5"</span> +<span id="L19486" class="LineNr">19486 </span> 0x4/imm32/size +<span id="L19487" class="LineNr">19487 </span> 0x78/x 0x6d/m 0x6d/m 0x35/5 +<span id="L19488" class="LineNr">19488 </span> +<span id="L19489" class="LineNr">19489 </span><span class="Constant">$Mu-register-xmm6</span>: +<span id="L19490" class="LineNr">19490 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19491" class="LineNr">19491 </span> <span class="subxComment"># "xmm6"</span> +<span id="L19492" class="LineNr">19492 </span> 0x4/imm32/size +<span id="L19493" class="LineNr">19493 </span> 0x78/x 0x6d/m 0x6d/m 0x36/6 +<span id="L19494" class="LineNr">19494 </span> +<span id="L19495" class="LineNr">19495 </span><span class="Constant">$Mu-register-xmm7</span>: +<span id="L19496" class="LineNr">19496 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L19497" class="LineNr">19497 </span> <span class="subxComment"># "xmm7"</span> +<span id="L19498" class="LineNr">19498 </span> 0x4/imm32/size +<span id="L19499" class="LineNr">19499 </span> 0x78/x 0x6d/m 0x6d/m 0x37/7 +<span id="L19500" class="LineNr">19500 </span> +<span id="L19501" class="LineNr">19501 </span>== code +<span id="L19502" class="LineNr">19502 </span> +<span id="L19503" class="LineNr">19503 </span><span class="subxComment"># push 'out' to 'vars' if not already there; it's assumed to be a fn output</span> +<span id="L19504" class="LineNr">19504 </span><span class="subxFunction">maybe-define-var</span>: <span class="subxComment"># out: (handle var), vars: (addr stack live-var)</span> +<span id="L19505" class="LineNr">19505 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19506" class="LineNr">19506 </span> 55/push-ebp +<span id="L19507" class="LineNr">19507 </span> 89/<- %ebp 4/r32/esp +<span id="L19508" class="LineNr">19508 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19509" class="LineNr">19509 </span> 50/push-eax +<span id="L19510" class="LineNr">19510 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L19511" class="LineNr">19511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+8) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L19512" class="LineNr">19512 </span> <span class="subxComment">#</span> +<span id="L19513" class="LineNr">19513 </span> (<a href='mu.subx.html#L19529'>binding-exists?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L19514" class="LineNr">19514 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19515" class="LineNr">19515 </span> 75/jump-if-!= $maybe-define-var:end/disp8 +<span id="L19516" class="LineNr">19516 </span> <span class="subxComment"># otherwise update vars</span> +<span id="L19517" class="LineNr">19517 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+8)) +<span id="L19518" class="LineNr">19518 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ebp+0xc)) +<span id="L19519" class="LineNr">19519 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># 'out' is always a fn output; never spill it</span> +<span id="L19520" class="LineNr">19520 </span><span class="Constant">$maybe-define-var:end</span>: +<span id="L19521" class="LineNr">19521 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19522" class="LineNr">19522 </span> 58/pop-to-eax +<span id="L19523" class="LineNr">19523 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19524" class="LineNr">19524 </span> 89/<- %esp 5/r32/ebp +<span id="L19525" class="LineNr">19525 </span> 5d/pop-to-ebp +<span id="L19526" class="LineNr">19526 </span> c3/return +<span id="L19527" class="LineNr">19527 </span> +<span id="L19528" class="LineNr">19528 </span><span class="subxComment"># simpler version of lookup-var-helper</span> +<span id="L19529" class="LineNr">19529 </span><span class="subxFunction">binding-exists?</span>: <span class="subxComment"># target: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> +<span id="L19530" class="LineNr">19530 </span> <span class="subxComment"># pseudocode:</span> +<span id="L19531" class="LineNr">19531 </span> <span class="subxComment"># var curr: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19532" class="LineNr">19532 </span> <span class="subxComment"># var min = vars->data</span> +<span id="L19533" class="LineNr">19533 </span> <span class="subxComment"># while curr >= min</span> +<span id="L19534" class="LineNr">19534 </span> <span class="subxComment"># var v: (handle var) = *curr</span> +<span id="L19535" class="LineNr">19535 </span> <span class="subxComment"># if v->name == target->name</span> +<span id="L19536" class="LineNr">19536 </span> <span class="subxComment"># return true</span> +<span id="L19537" class="LineNr">19537 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19538" class="LineNr">19538 </span> <span class="subxComment"># return false</span> +<span id="L19539" class="LineNr">19539 </span> <span class="subxComment">#</span> +<span id="L19540" class="LineNr">19540 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19541" class="LineNr">19541 </span> 55/push-ebp +<span id="L19542" class="LineNr">19542 </span> 89/<- %ebp 4/r32/esp +<span id="L19543" class="LineNr">19543 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19544" class="LineNr">19544 </span> 51/push-ecx +<span id="L19545" class="LineNr">19545 </span> 52/push-edx +<span id="L19546" class="LineNr">19546 </span> 56/push-esi +<span id="L19547" class="LineNr">19547 </span> <span class="subxComment"># var target-name/ecx: (addr array byte) = lookup(target->name)</span> +<span id="L19548" class="LineNr">19548 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L19549" class="LineNr">19549 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19550" class="LineNr">19550 </span> 89/<- %ecx 0/r32/eax +<span id="L19551" class="LineNr">19551 </span> <span class="subxComment"># esi = vars</span> +<span id="L19552" class="LineNr">19552 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L19553" class="LineNr">19553 </span> <span class="subxComment"># eax = vars->top</span> +<span id="L19554" class="LineNr">19554 </span> 8b/-> *esi 0/r32/eax +<span id="L19555" class="LineNr">19555 </span> <span class="subxComment"># var min/edx: (addr handle var) = vars->data</span> +<span id="L19556" class="LineNr">19556 </span> 8d/copy-address *(esi+8) 2/r32/edx +<span id="L19557" class="LineNr">19557 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L19558" class="LineNr">19558 </span> 8d/copy-address *(esi+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->type - 12</span> +<span id="L19559" class="LineNr">19559 </span> { +<span id="L19560" class="LineNr">19560 </span><span class="Constant">$binding-exists?:loop</span>: +<span id="L19561" class="LineNr">19561 </span> <span class="subxComment"># if (curr < min) return</span> +<span id="L19562" class="LineNr">19562 </span> 39/compare %esi 2/r32/edx +<span id="L19563" class="LineNr">19563 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L19564" class="LineNr">19564 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(*curr)</span> +<span id="L19565" class="LineNr">19565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L19566" class="LineNr">19566 </span> <span class="subxComment"># var vn/eax: (addr array byte) = lookup(v->name)</span> +<span id="L19567" class="LineNr">19567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19568" class="LineNr">19568 </span> <span class="subxComment"># if (vn == target-name) return true</span> +<span id="L19569" class="LineNr">19569 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %eax) <span class="subxComment"># => eax</span> +<span id="L19570" class="LineNr">19570 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19571" class="LineNr">19571 </span> 75/jump-if-!= $binding-exists?:end/disp8 <span class="subxComment"># eax already contains true</span> +<span id="L19572" class="LineNr">19572 </span> <span class="subxComment"># curr -= 12</span> +<span id="L19573" class="LineNr">19573 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L19574" class="LineNr">19574 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L19575" class="LineNr">19575 </span> } +<span id="L19576" class="LineNr">19576 </span> b8/copy-to-eax 0/imm32/false +<span id="L19577" class="LineNr">19577 </span><span class="Constant">$binding-exists?:end</span>: +<span id="L19578" class="LineNr">19578 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19579" class="LineNr">19579 </span> 5e/pop-to-esi +<span id="L19580" class="LineNr">19580 </span> 5a/pop-to-edx +<span id="L19581" class="LineNr">19581 </span> 59/pop-to-ecx +<span id="L19582" class="LineNr">19582 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19583" class="LineNr">19583 </span> 89/<- %esp 5/r32/ebp +<span id="L19584" class="LineNr">19584 </span> 5d/pop-to-ebp +<span id="L19585" class="LineNr">19585 </span> c3/return +<span id="L19586" class="LineNr">19586 </span> +<span id="L19587" class="LineNr">19587 </span><span class="subxTest">test-parse-mu-stmt</span>: +<span id="L19588" class="LineNr">19588 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19589" class="LineNr">19589 </span> 55/push-ebp +<span id="L19590" class="LineNr">19590 </span> 89/<- %ebp 4/r32/esp +<span id="L19591" class="LineNr">19591 </span> <span class="subxComment"># setup</span> +<span id="L19592" class="LineNr">19592 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L19593" class="LineNr">19593 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L19594" class="LineNr">19594 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L19595" class="LineNr">19595 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"increment n\n"</span>) +<span id="L19596" class="LineNr">19596 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L19597" class="LineNr">19597 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L19598" class="LineNr">19598 </span> 68/push 0xc0/imm32/size +<span id="L19599" class="LineNr">19599 </span> 68/push 0/imm32/top +<span id="L19600" class="LineNr">19600 </span> 89/<- %ecx 4/r32/esp +<span id="L19601" class="LineNr">19601 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L19602" class="LineNr">19602 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L19603" class="LineNr">19603 </span> 68/push 0/imm32 +<span id="L19604" class="LineNr">19604 </span> 68/push 0/imm32 +<span id="L19605" class="LineNr">19605 </span> 89/<- %edx 4/r32/esp +<span id="L19606" class="LineNr">19606 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L19607" class="LineNr">19607 </span> 68/push 0/imm32 +<span id="L19608" class="LineNr">19608 </span> 68/push 0/imm32 +<span id="L19609" class="LineNr">19609 </span> 89/<- %eax 4/r32/esp +<span id="L19610" class="LineNr">19610 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L19611" class="LineNr">19611 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) +<span id="L19612" class="LineNr">19612 </span> (<a href='mu.subx.html#L19703'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L19613" class="LineNr">19613 </span> <span class="subxComment">#</span> +<span id="L19614" class="LineNr">19614 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L19615" class="LineNr">19615 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L19616" class="LineNr">19616 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L19617" class="LineNr">19617 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L19618" class="LineNr">19618 </span> 68/push 0/imm32 +<span id="L19619" class="LineNr">19619 </span> 68/push 0/imm32 +<span id="L19620" class="LineNr">19620 </span> 89/<- %eax 4/r32/esp +<span id="L19621" class="LineNr">19621 </span> <span class="subxComment"># convert</span> +<span id="L19622" class="LineNr">19622 </span> (<a href='mu.subx.html#L18741'>parse-mu-stmt</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx 0 %eax <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L19623" class="LineNr">19623 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L19624" class="LineNr">19624 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19625" class="LineNr">19625 </span> 89/<- %edx 0/r32/eax +<span id="L19626" class="LineNr">19626 </span> <span class="subxComment"># out->tag</span> +<span id="L19627" class="LineNr">19627 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19587'>test-parse-mu-stmt</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L19628" class="LineNr">19628 </span> <span class="subxComment"># out->operation</span> +<span id="L19629" class="LineNr">19629 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L19630" class="LineNr">19630 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"increment"</span> <span class="Constant">"F - <a href='mu.subx.html#L19587'>test-parse-mu-stmt</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L19631" class="LineNr">19631 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L19632" class="LineNr">19632 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L19633" class="LineNr">19633 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L19634" class="LineNr">19634 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L19635" class="LineNr">19635 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L19636" class="LineNr">19636 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L19637" class="LineNr">19637 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19638" class="LineNr">19638 </span> <span class="subxS1Comment"># .</span> +<span id="L19639" class="LineNr">19639 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L19587'>test-parse-mu-stmt</a>/inout:0"</span>) +<span id="L19640" class="LineNr">19640 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19641" class="LineNr">19641 </span> 89/<- %esp 5/r32/ebp +<span id="L19642" class="LineNr">19642 </span> 5d/pop-to-ebp +<span id="L19643" class="LineNr">19643 </span> c3/return +<span id="L19644" class="LineNr">19644 </span> +<span id="L19645" class="LineNr">19645 </span><span class="subxTest">test-parse-mu-stmt-with-comma</span>: +<span id="L19646" class="LineNr">19646 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19647" class="LineNr">19647 </span> 55/push-ebp +<span id="L19648" class="LineNr">19648 </span> 89/<- %ebp 4/r32/esp +<span id="L19649" class="LineNr">19649 </span> <span class="subxComment"># setup</span> +<span id="L19650" class="LineNr">19650 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> 0/r32/eax +<span id="L19651" class="LineNr">19651 </span> 89/<- *<span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> 0/r32/eax <span class="subxComment"># stream-write</span> +<span id="L19652" class="LineNr">19652 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>) +<span id="L19653" class="LineNr">19653 </span> (<a href='108write.subx.html#L24'>write</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> <span class="Constant">"copy-to n, 3\n"</span>) +<span id="L19654" class="LineNr">19654 </span> <span class="subxComment"># var vars/ecx: (stack (addr var) 16)</span> +<span id="L19655" class="LineNr">19655 </span> 81 5/subop/subtract %esp 0xc0/imm32 +<span id="L19656" class="LineNr">19656 </span> 68/push 0xc0/imm32/size +<span id="L19657" class="LineNr">19657 </span> 68/push 0/imm32/top +<span id="L19658" class="LineNr">19658 </span> 89/<- %ecx 4/r32/esp +<span id="L19659" class="LineNr">19659 </span> (<a href='203stack.subx.html#L13'>clear-stack</a> %ecx) +<span id="L19660" class="LineNr">19660 </span> <span class="subxComment"># var v/edx: (handle var)</span> +<span id="L19661" class="LineNr">19661 </span> 68/push 0/imm32 +<span id="L19662" class="LineNr">19662 </span> 68/push 0/imm32 +<span id="L19663" class="LineNr">19663 </span> 89/<- %edx 4/r32/esp +<span id="L19664" class="LineNr">19664 </span> <span class="subxComment"># var s/eax: (handle array byte)</span> +<span id="L19665" class="LineNr">19665 </span> 68/push 0/imm32 +<span id="L19666" class="LineNr">19666 </span> 68/push 0/imm32 +<span id="L19667" class="LineNr">19667 </span> 89/<- %eax 4/r32/esp +<span id="L19668" class="LineNr">19668 </span> <span class="subxComment"># v = new var("n")</span> +<span id="L19669" class="LineNr">19669 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"n"</span> %eax) +<span id="L19670" class="LineNr">19670 </span> (<a href='mu.subx.html#L19703'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L19671" class="LineNr">19671 </span> <span class="subxComment">#</span> +<span id="L19672" class="LineNr">19672 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *edx) +<span id="L19673" class="LineNr">19673 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx *(edx+4)) +<span id="L19674" class="LineNr">19674 </span> (<a href='203stack.subx.html#L114'>push</a> %ecx 0) +<span id="L19675" class="LineNr">19675 </span> <span class="subxComment"># var out/eax: (handle stmt)</span> +<span id="L19676" class="LineNr">19676 </span> 68/push 0/imm32 +<span id="L19677" class="LineNr">19677 </span> 68/push 0/imm32 +<span id="L19678" class="LineNr">19678 </span> 89/<- %eax 4/r32/esp +<span id="L19679" class="LineNr">19679 </span> <span class="subxComment"># convert</span> +<span id="L19680" class="LineNr">19680 </span> (<a href='mu.subx.html#L18741'>parse-mu-stmt</a> <a href='112read-byte.subx.html#L331'>_test-input-stream</a> %ecx 0 %eax <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L19681" class="LineNr">19681 </span> <span class="subxComment"># var out-addr/edx: (addr stmt) = lookup(*out)</span> +<span id="L19682" class="LineNr">19682 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19683" class="LineNr">19683 </span> 89/<- %edx 0/r32/eax +<span id="L19684" class="LineNr">19684 </span> <span class="subxComment"># out->tag</span> +<span id="L19685" class="LineNr">19685 </span> (<a href='102test.subx.html#L23'>check-ints-equal</a> *edx 1 <span class="Constant">"F - <a href='mu.subx.html#L19645'>test-parse-mu-stmt-with-comma</a>/tag"</span>) <span class="subxComment"># Stmt-tag is Stmt1</span> +<span id="L19686" class="LineNr">19686 </span> <span class="subxComment"># out->operation</span> +<span id="L19687" class="LineNr">19687 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L19688" class="LineNr">19688 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"copy-to"</span> <span class="Constant">"F - <a href='mu.subx.html#L19645'>test-parse-mu-stmt-with-comma</a>/name"</span>) <span class="subxComment"># Stmt1-operation</span> +<span id="L19689" class="LineNr">19689 </span> <span class="subxComment"># out->inouts->value->name</span> +<span id="L19690" class="LineNr">19690 </span> <span class="subxS1Comment"># . eax = out->inouts</span> +<span id="L19691" class="LineNr">19691 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L19692" class="LineNr">19692 </span> <span class="subxS1Comment"># . eax = out->inouts->value</span> +<span id="L19693" class="LineNr">19693 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L19694" class="LineNr">19694 </span> <span class="subxS1Comment"># . eax = out->inouts->value->name</span> +<span id="L19695" class="LineNr">19695 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L19696" class="LineNr">19696 </span> <span class="subxS1Comment"># .</span> +<span id="L19697" class="LineNr">19697 </span> (<a href='105string-equal.subx.html#L220'>check-strings-equal</a> %eax <span class="Constant">"n"</span> <span class="Constant">"F - <a href='mu.subx.html#L19645'>test-parse-mu-stmt-with-comma</a>/inout:0"</span>) +<span id="L19698" class="LineNr">19698 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19699" class="LineNr">19699 </span> 89/<- %esp 5/r32/ebp +<span id="L19700" class="LineNr">19700 </span> 5d/pop-to-ebp +<span id="L19701" class="LineNr">19701 </span> c3/return +<span id="L19702" class="LineNr">19702 </span> +<span id="L19703" class="LineNr">19703 </span><span class="subxFunction">new-var</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (handle array byte), out: (addr handle var)</span> +<span id="L19704" class="LineNr">19704 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19705" class="LineNr">19705 </span> 55/push-ebp +<span id="L19706" class="LineNr">19706 </span> 89/<- %ebp 4/r32/esp +<span id="L19707" class="LineNr">19707 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19708" class="LineNr">19708 </span> 50/push-eax +<span id="L19709" class="LineNr">19709 </span> 51/push-ecx +<span id="L19710" class="LineNr">19710 </span> <span class="subxComment"># ecx = out</span> +<span id="L19711" class="LineNr">19711 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L19712" class="LineNr">19712 </span> <span class="subxComment">#</span> +<span id="L19713" class="LineNr">19713 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L343'>Var-size</a></span> %ecx) +<span id="L19714" class="LineNr">19714 </span> <span class="subxComment"># var out-addr/eax: (addr var)</span> +<span id="L19715" class="LineNr">19715 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19716" class="LineNr">19716 </span> <span class="subxComment"># out-addr->name = name</span> +<span id="L19717" class="LineNr">19717 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19718" class="LineNr">19718 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L19719" class="LineNr">19719 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19720" class="LineNr">19720 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Var-name</span> +<span id="L19721" class="LineNr">19721 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L19722" class="LineNr">19722 </span><span class="CommentedCode">#? (lookup *(ebp+0xc) *(ebp+0x10))</span> +<span id="L19723" class="LineNr">19723 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L19724" class="LineNr">19724 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L19725" class="LineNr">19725 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x14) 1/r32/ecx</span> +<span id="L19726" class="LineNr">19726 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4)) # => eax</span> +<span id="L19727" class="LineNr">19727 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L19728" class="LineNr">19728 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L19729" class="LineNr">19729 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L19730" class="LineNr">19730 </span><span class="Constant">$new-var:end</span>: +<span id="L19731" class="LineNr">19731 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19732" class="LineNr">19732 </span> 59/pop-to-ecx +<span id="L19733" class="LineNr">19733 </span> 58/pop-to-eax +<span id="L19734" class="LineNr">19734 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19735" class="LineNr">19735 </span> 89/<- %esp 5/r32/ebp +<span id="L19736" class="LineNr">19736 </span> 5d/pop-to-ebp +<span id="L19737" class="LineNr">19737 </span> c3/return +<span id="L19738" class="LineNr">19738 </span> +<span id="L19739" class="LineNr">19739 </span><span class="subxComment"># WARNING: modifies name</span> +<span id="L19740" class="LineNr">19740 </span><span class="subxFunction">new-literal-integer</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L19741" class="LineNr">19741 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19742" class="LineNr">19742 </span> 55/push-ebp +<span id="L19743" class="LineNr">19743 </span> 89/<- %ebp 4/r32/esp +<span id="L19744" class="LineNr">19744 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19745" class="LineNr">19745 </span> 50/push-eax +<span id="L19746" class="LineNr">19746 </span> 51/push-ecx +<span id="L19747" class="LineNr">19747 </span> <span class="subxComment"># first strip out metadata</span> +<span id="L19748" class="LineNr">19748 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19749" class="LineNr">19749 </span> (<a href='124next-token.subx.html#L163'>next-token-from-slice</a> *ecx *(ecx+4) 0x2f *(ebp+0xc)) +<span id="L19750" class="LineNr">19750 </span> <span class="subxComment"># if (!is-hex-int?(name)) abort</span> +<span id="L19751" class="LineNr">19751 </span> (<a href='118parse-hex-int.subx.html#L9'>hex-int?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L19752" class="LineNr">19752 </span> 3d/compare-eax-and 0/imm32/false +<span id="L19753" class="LineNr">19753 </span> 0f 84/jump-if-= $new-literal-integer:abort/disp32 +<span id="L19754" class="LineNr">19754 </span> <span class="subxComment"># a little more error-checking</span> +<span id="L19755" class="LineNr">19755 </span> (<a href='mu.subx.html#L19795'>check-mu-hex-int</a> *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L19756" class="LineNr">19756 </span> <span class="subxComment"># out = new var(s)</span> +<span id="L19757" class="LineNr">19757 </span> (<a href='mu.subx.html#L19933'>new-var-from-slice</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L19758" class="LineNr">19758 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L19759" class="LineNr">19759 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L19760" class="LineNr">19760 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19761" class="LineNr">19761 </span> 89/<- %ecx 0/r32/eax +<span id="L19762" class="LineNr">19762 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L19763" class="LineNr">19763 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/r32/eax +<span id="L19764" class="LineNr">19764 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L19765" class="LineNr">19765 </span> <span class="subxComment"># out-addr->type = new tree()</span> +<span id="L19766" class="LineNr">19766 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L19767" class="LineNr">19767 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) +<span id="L19768" class="LineNr">19768 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19769" class="LineNr">19769 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19770" class="LineNr">19770 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L19771" class="LineNr">19771 </span><span class="Constant">$new-literal-integer:end</span>: +<span id="L19772" class="LineNr">19772 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19773" class="LineNr">19773 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19774" class="LineNr">19774 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19775" class="LineNr">19775 </span> 59/pop-to-ecx +<span id="L19776" class="LineNr">19776 </span> 58/pop-to-eax +<span id="L19777" class="LineNr">19777 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19778" class="LineNr">19778 </span> 89/<- %esp 5/r32/ebp +<span id="L19779" class="LineNr">19779 </span> 5d/pop-to-ebp +<span id="L19780" class="LineNr">19780 </span> c3/return +<span id="L19781" class="LineNr">19781 </span> +<span id="L19782" class="LineNr">19782 </span><span class="Constant">$new-literal-integer:abort</span>: +<span id="L19783" class="LineNr">19783 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"fn "</span>) +<span id="L19784" class="LineNr">19784 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19785" class="LineNr">19785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L19786" class="LineNr">19786 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) %eax) +<span id="L19787" class="LineNr">19787 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">": variable '"</span>) +<span id="L19788" class="LineNr">19788 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0x18) *(ebp+0xc)) +<span id="L19789" class="LineNr">19789 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x18) <span class="Constant">"' cannot begin with a digit (or do you have a typo in a number?)\n"</span>) +<span id="L19790" class="LineNr">19790 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x18)) +<span id="L19791" class="LineNr">19791 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x1c) 1) +<span id="L19792" class="LineNr">19792 </span> <span class="subxComment"># never gets here</span> +<span id="L19793" class="LineNr">19793 </span> +<span id="L19794" class="LineNr">19794 </span><span class="subxComment"># precondition: name is a valid hex integer; require a '0x' prefix</span> +<span id="L19795" class="LineNr">19795 </span><span class="subxFunction">check-mu-hex-int</span>: <span class="subxComment"># name: (addr slice), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L19796" class="LineNr">19796 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19797" class="LineNr">19797 </span> 55/push-ebp +<span id="L19798" class="LineNr">19798 </span> 89/<- %ebp 4/r32/esp +<span id="L19799" class="LineNr">19799 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19800" class="LineNr">19800 </span> 50/push-eax +<span id="L19801" class="LineNr">19801 </span> 51/push-ecx +<span id="L19802" class="LineNr">19802 </span> 52/push-edx +<span id="L19803" class="LineNr">19803 </span> <span class="subxComment"># ecx = name</span> +<span id="L19804" class="LineNr">19804 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L19805" class="LineNr">19805 </span> <span class="subxComment"># var start/edx: (addr byte) = name->start</span> +<span id="L19806" class="LineNr">19806 </span> 8b/-> *ecx 2/r32/edx +<span id="L19807" class="LineNr">19807 </span> <span class="subxComment"># if (*start == '-') ++start</span> +<span id="L19808" class="LineNr">19808 </span> b8/copy-to-eax 0/imm32 +<span id="L19809" class="LineNr">19809 </span> 8a/copy-byte *edx 0/r32/AL +<span id="L19810" class="LineNr">19810 </span> 3d/compare-eax-and 0x2d/imm32/dash +<span id="L19811" class="LineNr">19811 </span> { +<span id="L19812" class="LineNr">19812 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L19813" class="LineNr">19813 </span> 42/increment-edx +<span id="L19814" class="LineNr">19814 </span> } +<span id="L19815" class="LineNr">19815 </span> <span class="subxComment"># var end/ecx: (addr byte) = name->end</span> +<span id="L19816" class="LineNr">19816 </span> 8b/-> *(ecx+4) 1/r32/ecx +<span id="L19817" class="LineNr">19817 </span> <span class="subxComment"># var len/eax: int = name->end - name->start</span> +<span id="L19818" class="LineNr">19818 </span> 89/<- %eax 1/r32/ecx +<span id="L19819" class="LineNr">19819 </span> 29/subtract-from %eax 2/r32/edx +<span id="L19820" class="LineNr">19820 </span> <span class="subxComment"># if (len <= 1) return</span> +<span id="L19821" class="LineNr">19821 </span> 3d/compare-eax-with 1/imm32 +<span id="L19822" class="LineNr">19822 </span> 0f 8e/jump-if-<= $check-mu-hex-int:end/disp32 +<span id="L19823" class="LineNr">19823 </span><span class="Constant">$check-mu-hex-int:length->-1</span>: +<span id="L19824" class="LineNr">19824 </span> <span class="subxComment"># if slice-starts-with?({start, end}, "0x") return</span> +<span id="L19825" class="LineNr">19825 </span> <span class="subxS1Comment"># . var tmp = {start, end}</span> +<span id="L19826" class="LineNr">19826 </span> 51/push-ecx +<span id="L19827" class="LineNr">19827 </span> 52/push-edx +<span id="L19828" class="LineNr">19828 </span> 89/<- %eax 4/r32/esp +<span id="L19829" class="LineNr">19829 </span> <span class="subxS1Comment"># .</span> +<span id="L19830" class="LineNr">19830 </span> (<a href='123slice.subx.html#L487'>slice-starts-with?</a> %eax <span class="Constant">"0x"</span>) <span class="subxComment"># => eax</span> +<span id="L19831" class="LineNr">19831 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L19832" class="LineNr">19832 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19833" class="LineNr">19833 </span> <span class="subxS1Comment"># .</span> +<span id="L19834" class="LineNr">19834 </span> 3d/compare-eax-with 0/imm32/false +<span id="L19835" class="LineNr">19835 </span> 75/jump-if-!= $check-mu-hex-int:end/disp8 +<span id="L19836" class="LineNr">19836 </span><span class="Constant">$check-mu-hex-int:abort</span>: +<span id="L19837" class="LineNr">19837 </span> <span class="subxComment"># otherwise abort</span> +<span id="L19838" class="LineNr">19838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"literal integers are always hex in Mu; start '"</span>) +<span id="L19839" class="LineNr">19839 </span> (<a href='123slice.subx.html#L908'>write-slice-buffered</a> *(ebp+0xc) *(ebp+8)) +<span id="L19840" class="LineNr">19840 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' with a '0x' to be unambiguous, converting it to hexadecimal as necessary.\n"</span>) +<span id="L19841" class="LineNr">19841 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L19842" class="LineNr">19842 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L19843" class="LineNr">19843 </span><span class="Constant">$check-mu-hex-int:end</span>: +<span id="L19844" class="LineNr">19844 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19845" class="LineNr">19845 </span> 5a/pop-to-edx +<span id="L19846" class="LineNr">19846 </span> 59/pop-to-ecx +<span id="L19847" class="LineNr">19847 </span> 58/pop-to-eax +<span id="L19848" class="LineNr">19848 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19849" class="LineNr">19849 </span> 89/<- %esp 5/r32/ebp +<span id="L19850" class="LineNr">19850 </span> 5d/pop-to-ebp +<span id="L19851" class="LineNr">19851 </span> c3/return +<span id="L19852" class="LineNr">19852 </span> +<span id="L19853" class="LineNr">19853 </span><span class="subxFunction">new-literal</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L19854" class="LineNr">19854 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19855" class="LineNr">19855 </span> 55/push-ebp +<span id="L19856" class="LineNr">19856 </span> 89/<- %ebp 4/r32/esp +<span id="L19857" class="LineNr">19857 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19858" class="LineNr">19858 </span> 50/push-eax +<span id="L19859" class="LineNr">19859 </span> 51/push-ecx +<span id="L19860" class="LineNr">19860 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L19861" class="LineNr">19861 </span> 68/push 0/imm32 +<span id="L19862" class="LineNr">19862 </span> 68/push 0/imm32 +<span id="L19863" class="LineNr">19863 </span> 89/<- %ecx 4/r32/esp +<span id="L19864" class="LineNr">19864 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L19865" class="LineNr">19865 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %ecx) +<span id="L19866" class="LineNr">19866 </span> <span class="subxComment"># allocate to out</span> +<span id="L19867" class="LineNr">19867 </span> (<a href='mu.subx.html#L19703'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L19868" class="LineNr">19868 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L19869" class="LineNr">19869 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19870" class="LineNr">19870 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19871" class="LineNr">19871 </span> 89/<- %ecx 0/r32/eax +<span id="L19872" class="LineNr">19872 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L19873" class="LineNr">19873 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/r32/eax +<span id="L19874" class="LineNr">19874 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L19875" class="LineNr">19875 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L19876" class="LineNr">19876 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L19877" class="LineNr">19877 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) +<span id="L19878" class="LineNr">19878 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19879" class="LineNr">19879 </span> <span class="subxComment"># nothing else to do; default type is 'literal'</span> +<span id="L19880" class="LineNr">19880 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19881" class="LineNr">19881 </span><span class="Constant">$new-literal:end</span>: +<span id="L19882" class="LineNr">19882 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19883" class="LineNr">19883 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19884" class="LineNr">19884 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19885" class="LineNr">19885 </span> 59/pop-to-ecx +<span id="L19886" class="LineNr">19886 </span> 58/pop-to-eax +<span id="L19887" class="LineNr">19887 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19888" class="LineNr">19888 </span> 89/<- %esp 5/r32/ebp +<span id="L19889" class="LineNr">19889 </span> 5d/pop-to-ebp +<span id="L19890" class="LineNr">19890 </span> c3/return +<span id="L19891" class="LineNr">19891 </span> +<span id="L19892" class="LineNr">19892 </span><span class="subxFunction">new-literal-string</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L19893" class="LineNr">19893 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19894" class="LineNr">19894 </span> 55/push-ebp +<span id="L19895" class="LineNr">19895 </span> 89/<- %ebp 4/r32/esp +<span id="L19896" class="LineNr">19896 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19897" class="LineNr">19897 </span> 50/push-eax +<span id="L19898" class="LineNr">19898 </span> 51/push-ecx +<span id="L19899" class="LineNr">19899 </span> <span class="subxComment"># var s/ecx: (handle array byte)</span> +<span id="L19900" class="LineNr">19900 </span> 68/push 0/imm32 +<span id="L19901" class="LineNr">19901 </span> 68/push 0/imm32 +<span id="L19902" class="LineNr">19902 </span> 89/<- %ecx 4/r32/esp +<span id="L19903" class="LineNr">19903 </span> <span class="subxComment"># s = slice-to-string(name)</span> +<span id="L19904" class="LineNr">19904 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %ecx) +<span id="L19905" class="LineNr">19905 </span> <span class="subxComment"># allocate to out</span> +<span id="L19906" class="LineNr">19906 </span> (<a href='mu.subx.html#L19703'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L19907" class="LineNr">19907 </span> <span class="subxComment"># var out-addr/ecx: (addr var) = lookup(*out)</span> +<span id="L19908" class="LineNr">19908 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19909" class="LineNr">19909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L19910" class="LineNr">19910 </span> 89/<- %ecx 0/r32/eax +<span id="L19911" class="LineNr">19911 </span> <span class="subxComment"># out-addr->block-depth = *Curr-block-depth</span> +<span id="L19912" class="LineNr">19912 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/r32/eax +<span id="L19913" class="LineNr">19913 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L19914" class="LineNr">19914 </span> <span class="subxComment"># out-addr->type/eax = new type</span> +<span id="L19915" class="LineNr">19915 </span> 8d/copy-address *(ecx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L19916" class="LineNr">19916 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) +<span id="L19917" class="LineNr">19917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L19918" class="LineNr">19918 </span> <span class="subxComment"># out-addr->type->value = literal-string</span> +<span id="L19919" class="LineNr">19919 </span> c7 0/subop/copy *(eax+4) 0x10/imm32/type-id-string-literal <span class="subxComment"># Type-tree-value</span> +<span id="L19920" class="LineNr">19920 </span> <span class="subxComment"># out-addr->type->is-atom? = true</span> +<span id="L19921" class="LineNr">19921 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L19922" class="LineNr">19922 </span><span class="Constant">$new-literal-string:end</span>: +<span id="L19923" class="LineNr">19923 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19924" class="LineNr">19924 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19925" class="LineNr">19925 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19926" class="LineNr">19926 </span> 59/pop-to-ecx +<span id="L19927" class="LineNr">19927 </span> 58/pop-to-eax +<span id="L19928" class="LineNr">19928 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19929" class="LineNr">19929 </span> 89/<- %esp 5/r32/ebp +<span id="L19930" class="LineNr">19930 </span> 5d/pop-to-ebp +<span id="L19931" class="LineNr">19931 </span> c3/return +<span id="L19932" class="LineNr">19932 </span> +<span id="L19933" class="LineNr">19933 </span><span class="subxFunction">new-var-from-slice</span>: <span class="subxComment"># ad: (addr allocation-descriptor), name: (addr slice), out: (addr handle var)</span> +<span id="L19934" class="LineNr">19934 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19935" class="LineNr">19935 </span> 55/push-ebp +<span id="L19936" class="LineNr">19936 </span> 89/<- %ebp 4/r32/esp +<span id="L19937" class="LineNr">19937 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19938" class="LineNr">19938 </span> 51/push-ecx +<span id="L19939" class="LineNr">19939 </span> <span class="subxComment"># var tmp/ecx: (handle array byte)</span> +<span id="L19940" class="LineNr">19940 </span> 68/push 0/imm32 +<span id="L19941" class="LineNr">19941 </span> 68/push 0/imm32 +<span id="L19942" class="LineNr">19942 </span> 89/<- %ecx 4/r32/esp +<span id="L19943" class="LineNr">19943 </span> <span class="subxComment"># tmp = slice-to-string(name)</span> +<span id="L19944" class="LineNr">19944 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %ecx) +<span id="L19945" class="LineNr">19945 </span> <span class="subxComment"># out = new-var(tmp)</span> +<span id="L19946" class="LineNr">19946 </span> (<a href='mu.subx.html#L19703'>new-var</a> *(ebp+8) *ecx *(ecx+4) *(ebp+0x10)) +<span id="L19947" class="LineNr">19947 </span><span class="Constant">$new-var-from-slice:end</span>: +<span id="L19948" class="LineNr">19948 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L19949" class="LineNr">19949 </span> 81 0/subop/add %esp 8/imm32 +<span id="L19950" class="LineNr">19950 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19951" class="LineNr">19951 </span> 59/pop-to-ecx +<span id="L19952" class="LineNr">19952 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19953" class="LineNr">19953 </span> 89/<- %esp 5/r32/ebp +<span id="L19954" class="LineNr">19954 </span> 5d/pop-to-ebp +<span id="L19955" class="LineNr">19955 </span> c3/return +<span id="L19956" class="LineNr">19956 </span> +<span id="L19957" class="LineNr">19957 </span><span class="subxFunction">new-var-def</span>: <span class="subxComment"># ad: (addr allocation-descriptor), var: (handle var), out: (addr handle stmt)</span> +<span id="L19958" class="LineNr">19958 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19959" class="LineNr">19959 </span> 55/push-ebp +<span id="L19960" class="LineNr">19960 </span> 89/<- %ebp 4/r32/esp +<span id="L19961" class="LineNr">19961 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19962" class="LineNr">19962 </span> 50/push-eax +<span id="L19963" class="LineNr">19963 </span> 51/push-ecx +<span id="L19964" class="LineNr">19964 </span> <span class="subxComment">#</span> +<span id="L19965" class="LineNr">19965 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> *(ebp+0x14)) +<span id="L19966" class="LineNr">19966 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L19967" class="LineNr">19967 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19968" class="LineNr">19968 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19969" class="LineNr">19969 </span> <span class="subxComment"># out-addr->tag = stmt</span> +<span id="L19970" class="LineNr">19970 </span> c7 0/subop/copy *eax 2/imm32/tag/var-on-stack <span class="subxComment"># Stmt-tag</span> +<span id="L19971" class="LineNr">19971 </span> <span class="subxComment"># result->var = var</span> +<span id="L19972" class="LineNr">19972 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L19973" class="LineNr">19973 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L19974" class="LineNr">19974 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L19975" class="LineNr">19975 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Vardef-var</span> +<span id="L19976" class="LineNr">19976 </span><span class="Constant">$new-var-def:end</span>: +<span id="L19977" class="LineNr">19977 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L19978" class="LineNr">19978 </span> 59/pop-to-ecx +<span id="L19979" class="LineNr">19979 </span> 58/pop-to-eax +<span id="L19980" class="LineNr">19980 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L19981" class="LineNr">19981 </span> 89/<- %esp 5/r32/ebp +<span id="L19982" class="LineNr">19982 </span> 5d/pop-to-ebp +<span id="L19983" class="LineNr">19983 </span> c3/return +<span id="L19984" class="LineNr">19984 </span> +<span id="L19985" class="LineNr">19985 </span><span class="subxFunction">new-reg-var-def</span>: <span class="subxComment"># ad: (addr allocation-descriptor), var: (handle var), out: (addr handle stmt)</span> +<span id="L19986" class="LineNr">19986 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L19987" class="LineNr">19987 </span> 55/push-ebp +<span id="L19988" class="LineNr">19988 </span> 89/<- %ebp 4/r32/esp +<span id="L19989" class="LineNr">19989 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L19990" class="LineNr">19990 </span> 50/push-eax +<span id="L19991" class="LineNr">19991 </span> <span class="subxComment"># eax = out</span> +<span id="L19992" class="LineNr">19992 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L19993" class="LineNr">19993 </span> <span class="subxComment">#</span> +<span id="L19994" class="LineNr">19994 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L330'>Stmt-size</a></span> %eax) +<span id="L19995" class="LineNr">19995 </span> <span class="subxComment"># var out-addr/eax: (addr stmt) = lookup(*out)</span> +<span id="L19996" class="LineNr">19996 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L19997" class="LineNr">19997 </span> <span class="subxComment"># set tag</span> +<span id="L19998" class="LineNr">19998 </span> c7 0/subop/copy *eax 3/imm32/tag/var-in-register <span class="subxComment"># Stmt-tag</span> +<span id="L19999" class="LineNr">19999 </span> <span class="subxComment"># set output</span> +<span id="L20000" class="LineNr">20000 </span> 8d/copy-address *(eax+0x14) 0/r32/eax <span class="subxComment"># Regvardef-outputs</span> +<span id="L20001" class="LineNr">20001 </span> (<a href='mu.subx.html#L20068'>append-stmt-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) *(ebp+0x10) 0 0 0 %eax) +<span id="L20002" class="LineNr">20002 </span><span class="Constant">$new-reg-var-def:end</span>: +<span id="L20003" class="LineNr">20003 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20004" class="LineNr">20004 </span> 58/pop-to-eax +<span id="L20005" class="LineNr">20005 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20006" class="LineNr">20006 </span> 89/<- %esp 5/r32/ebp +<span id="L20007" class="LineNr">20007 </span> 5d/pop-to-ebp +<span id="L20008" class="LineNr">20008 </span> c3/return +<span id="L20009" class="LineNr">20009 </span> +<span id="L20010" class="LineNr">20010 </span><span class="subxFunction">append-list</span>: <span class="subxComment"># ad: (addr allocation-descriptor), value: (handle _type), list: (handle list _type), out: (addr handle list _type)</span> +<span id="L20011" class="LineNr">20011 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20012" class="LineNr">20012 </span> 55/push-ebp +<span id="L20013" class="LineNr">20013 </span> 89/<- %ebp 4/r32/esp +<span id="L20014" class="LineNr">20014 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20015" class="LineNr">20015 </span> 50/push-eax +<span id="L20016" class="LineNr">20016 </span> 51/push-ecx +<span id="L20017" class="LineNr">20017 </span> 57/push-edi +<span id="L20018" class="LineNr">20018 </span> <span class="subxComment"># edi = out</span> +<span id="L20019" class="LineNr">20019 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L20020" class="LineNr">20020 </span> <span class="subxComment"># *out = new list</span> +<span id="L20021" class="LineNr">20021 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L350'>List-size</a></span> %edi) +<span id="L20022" class="LineNr">20022 </span> <span class="subxComment"># var out-addr/edi: (addr list _type) = lookup(*out)</span> +<span id="L20023" class="LineNr">20023 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20024" class="LineNr">20024 </span> 89/<- %edi 0/r32/eax +<span id="L20025" class="LineNr">20025 </span> <span class="subxComment"># out-addr->value = value</span> +<span id="L20026" class="LineNr">20026 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20027" class="LineNr">20027 </span> 89/<- *edi 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L20028" class="LineNr">20028 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L20029" class="LineNr">20029 </span> 89/<- *(edi+4) 0/r32/eax <span class="subxComment"># List-value</span> +<span id="L20030" class="LineNr">20030 </span> <span class="subxComment"># if (list == null) return</span> +<span id="L20031" class="LineNr">20031 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32 +<span id="L20032" class="LineNr">20032 </span> 74/jump-if-= $append-list:end/disp8 +<span id="L20033" class="LineNr">20033 </span> <span class="subxComment"># otherwise append</span> +<span id="L20034" class="LineNr">20034 </span><span class="Constant">$append-list:non-empty-list</span>: +<span id="L20035" class="LineNr">20035 </span> <span class="subxComment"># var curr/eax: (addr list _type) = lookup(list)</span> +<span id="L20036" class="LineNr">20036 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L20037" class="LineNr">20037 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L20038" class="LineNr">20038 </span> { +<span id="L20039" class="LineNr">20039 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># List-next</span> +<span id="L20040" class="LineNr">20040 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20041" class="LineNr">20041 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20042" class="LineNr">20042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># List-next, List-next => eax</span> +<span id="L20043" class="LineNr">20043 </span> <span class="subxComment">#</span> +<span id="L20044" class="LineNr">20044 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20045" class="LineNr">20045 </span> } +<span id="L20046" class="LineNr">20046 </span> <span class="subxComment"># edi = out</span> +<span id="L20047" class="LineNr">20047 </span> 8b/-> *(ebp+0x1c) 7/r32/edi +<span id="L20048" class="LineNr">20048 </span> <span class="subxComment"># curr->next = out</span> +<span id="L20049" class="LineNr">20049 </span> 8b/-> *edi 1/r32/ecx +<span id="L20050" class="LineNr">20050 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L20051" class="LineNr">20051 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20052" class="LineNr">20052 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># List-next</span> +<span id="L20053" class="LineNr">20053 </span> <span class="subxComment"># out = list</span> +<span id="L20054" class="LineNr">20054 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L20055" class="LineNr">20055 </span> 89/<- *edi 1/r32/ecx +<span id="L20056" class="LineNr">20056 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L20057" class="LineNr">20057 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L20058" class="LineNr">20058 </span><span class="Constant">$append-list:end</span>: +<span id="L20059" class="LineNr">20059 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20060" class="LineNr">20060 </span> 5f/pop-to-edi +<span id="L20061" class="LineNr">20061 </span> 59/pop-to-ecx +<span id="L20062" class="LineNr">20062 </span> 58/pop-to-eax +<span id="L20063" class="LineNr">20063 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20064" class="LineNr">20064 </span> 89/<- %esp 5/r32/ebp +<span id="L20065" class="LineNr">20065 </span> 5d/pop-to-ebp +<span id="L20066" class="LineNr">20066 </span> c3/return +<span id="L20067" class="LineNr">20067 </span> +<span id="L20068" class="LineNr">20068 </span><span class="subxFunction">append-stmt-var</span>: <span class="subxComment"># ad: (addr allocation-descriptor), v: (handle var), vars: (handle stmt-var), is-deref?: boolean, out: (addr handle stmt-var)</span> +<span id="L20069" class="LineNr">20069 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20070" class="LineNr">20070 </span> 55/push-ebp +<span id="L20071" class="LineNr">20071 </span> 89/<- %ebp 4/r32/esp +<span id="L20072" class="LineNr">20072 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20073" class="LineNr">20073 </span> 50/push-eax +<span id="L20074" class="LineNr">20074 </span> 51/push-ecx +<span id="L20075" class="LineNr">20075 </span> 57/push-edi +<span id="L20076" class="LineNr">20076 </span> <span class="subxComment"># edi = out</span> +<span id="L20077" class="LineNr">20077 </span> 8b/-> *(ebp+0x20) 7/r32/edi +<span id="L20078" class="LineNr">20078 </span> <span class="subxComment"># out = new stmt-var</span> +<span id="L20079" class="LineNr">20079 </span> (<a href='120allocate.subx.html#L66'>allocate</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L360'>Stmt-var-size</a></span> %edi) +<span id="L20080" class="LineNr">20080 </span> <span class="subxComment"># var out-addr/ecx: (addr stmt-var) = lookup(*out)</span> +<span id="L20081" class="LineNr">20081 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20082" class="LineNr">20082 </span> 89/<- %ecx 0/r32/eax +<span id="L20083" class="LineNr">20083 </span> <span class="subxComment"># out-addr->value = v</span> +<span id="L20084" class="LineNr">20084 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20085" class="LineNr">20085 </span> 89/<- *ecx 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L20086" class="LineNr">20086 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L20087" class="LineNr">20087 </span> 89/<- *(ecx+4) 0/r32/eax <span class="subxComment"># Stmt-var-value</span> +<span id="L20088" class="LineNr">20088 </span> <span class="subxComment"># out-addr->is-deref? = is-deref?</span> +<span id="L20089" class="LineNr">20089 </span> 8b/-> *(ebp+0x1c) 0/r32/eax +<span id="L20090" class="LineNr">20090 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L20091" class="LineNr">20091 </span> <span class="subxComment"># if (vars == null) return result</span> +<span id="L20092" class="LineNr">20092 </span> 81 7/subop/compare *(ebp+0x14) 0/imm32/null +<span id="L20093" class="LineNr">20093 </span> 74/jump-if-= $append-stmt-var:end/disp8 +<span id="L20094" class="LineNr">20094 </span> <span class="subxComment"># otherwise append</span> +<span id="L20095" class="LineNr">20095 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(vars)</span> +<span id="L20096" class="LineNr">20096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L20097" class="LineNr">20097 </span> <span class="subxComment"># while (curr->next != null) curr = curr->next</span> +<span id="L20098" class="LineNr">20098 </span> { +<span id="L20099" class="LineNr">20099 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L20100" class="LineNr">20100 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20101" class="LineNr">20101 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20102" class="LineNr">20102 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next, Stmt-var-next => eax</span> +<span id="L20103" class="LineNr">20103 </span> <span class="subxComment">#</span> +<span id="L20104" class="LineNr">20104 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20105" class="LineNr">20105 </span> } +<span id="L20106" class="LineNr">20106 </span> <span class="subxComment"># curr->next = out</span> +<span id="L20107" class="LineNr">20107 </span> 8b/-> *edi 1/r32/ecx +<span id="L20108" class="LineNr">20108 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L20109" class="LineNr">20109 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20110" class="LineNr">20110 </span> 89/<- *(eax+0xc) 1/r32/ecx <span class="subxComment"># Stmt-var-next</span> +<span id="L20111" class="LineNr">20111 </span> <span class="subxComment"># out = vars</span> +<span id="L20112" class="LineNr">20112 </span> 8b/-> *(ebp+0x14) 1/r32/ecx +<span id="L20113" class="LineNr">20113 </span> 89/<- *edi 1/r32/ecx +<span id="L20114" class="LineNr">20114 </span> 8b/-> *(ebp+0x18) 1/r32/ecx +<span id="L20115" class="LineNr">20115 </span> 89/<- *(edi+4) 1/r32/ecx +<span id="L20116" class="LineNr">20116 </span><span class="Constant">$append-stmt-var:end</span>: +<span id="L20117" class="LineNr">20117 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20118" class="LineNr">20118 </span> 5f/pop-to-edi +<span id="L20119" class="LineNr">20119 </span> 59/pop-to-ecx +<span id="L20120" class="LineNr">20120 </span> 58/pop-to-eax +<span id="L20121" class="LineNr">20121 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20122" class="LineNr">20122 </span> 89/<- %esp 5/r32/ebp +<span id="L20123" class="LineNr">20123 </span> 5d/pop-to-ebp +<span id="L20124" class="LineNr">20124 </span> c3/return +<span id="L20125" class="LineNr">20125 </span> +<span id="L20126" class="LineNr">20126 </span><span class="subxFunction">append-to-block</span>: <span class="subxComment"># ad: (addr allocation-descriptor), block: (addr block), x: (handle stmt)</span> +<span id="L20127" class="LineNr">20127 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20128" class="LineNr">20128 </span> 55/push-ebp +<span id="L20129" class="LineNr">20129 </span> 89/<- %ebp 4/r32/esp +<span id="L20130" class="LineNr">20130 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20131" class="LineNr">20131 </span> 50/push-eax +<span id="L20132" class="LineNr">20132 </span> 56/push-esi +<span id="L20133" class="LineNr">20133 </span> <span class="subxComment"># esi = block</span> +<span id="L20134" class="LineNr">20134 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L20135" class="LineNr">20135 </span> <span class="subxComment"># block->stmts = append(x, block->stmts)</span> +<span id="L20136" class="LineNr">20136 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Block-stmts</span> +<span id="L20137" class="LineNr">20137 </span> (<a href='mu.subx.html#L20010'>append-list</a> *(ebp+8) *(ebp+0x10) *(ebp+0x14) *(esi+4) *(esi+8) %eax) <span class="subxComment"># ad, x, x, Block-stmts, Block-stmts</span> +<span id="L20138" class="LineNr">20138 </span><span class="Constant">$append-to-block:end</span>: +<span id="L20139" class="LineNr">20139 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20140" class="LineNr">20140 </span> 5e/pop-to-esi +<span id="L20141" class="LineNr">20141 </span> 58/pop-to-eax +<span id="L20142" class="LineNr">20142 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20143" class="LineNr">20143 </span> 89/<- %esp 5/r32/ebp +<span id="L20144" class="LineNr">20144 </span> 5d/pop-to-ebp +<span id="L20145" class="LineNr">20145 </span> c3/return +<span id="L20146" class="LineNr">20146 </span> +<span id="L20147" class="LineNr">20147 </span><span class="subxComment">## Parsing types</span> +<span id="L20148" class="LineNr">20148 </span><span class="subxComment"># We need to create metadata on user-defined types, and we need to use this</span> +<span id="L20149" class="LineNr">20149 </span><span class="subxComment"># metadata as we parse instructions.</span> +<span id="L20150" class="LineNr">20150 </span><span class="subxComment"># However, we also want to allow types to be used before their definitions.</span> +<span id="L20151" class="LineNr">20151 </span><span class="subxComment"># This means we can't ever assume any type data structures exist.</span> +<span id="L20152" class="LineNr">20152 </span> +<span id="L20153" class="LineNr">20153 </span><span class="subxFunction">lookup-or-create-constant</span>: <span class="subxComment"># container: (addr stmt-var), field-name: (addr slice), out: (addr handle var)</span> +<span id="L20154" class="LineNr">20154 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20155" class="LineNr">20155 </span> 55/push-ebp +<span id="L20156" class="LineNr">20156 </span> 89/<- %ebp 4/r32/esp +<span id="L20157" class="LineNr">20157 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20158" class="LineNr">20158 </span> 50/push-eax +<span id="L20159" class="LineNr">20159 </span> 56/push-esi +<span id="L20160" class="LineNr">20160 </span> <span class="subxComment"># var container-type/esi: type-id</span> +<span id="L20161" class="LineNr">20161 </span> (<a href='mu.subx.html#L20204'>container-type</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L20162" class="LineNr">20162 </span> 89/<- %esi 0/r32/eax +<span id="L20163" class="LineNr">20163 </span> <span class="subxComment"># var tmp/eax: (handle typeinfo) = find-or-create-typeinfo(container-type)</span> +<span id="L20164" class="LineNr">20164 </span> 68/push 0/imm32 +<span id="L20165" class="LineNr">20165 </span> 68/push 0/imm32 +<span id="L20166" class="LineNr">20166 </span> 89/<- %eax 4/r32/esp +<span id="L20167" class="LineNr">20167 </span> (<a href='mu.subx.html#L20241'>find-or-create-typeinfo</a> %esi %eax) +<span id="L20168" class="LineNr">20168 </span> <span class="subxComment"># var tmp-addr/eax: (addr typeinfo) = lookup(tmp)</span> +<span id="L20169" class="LineNr">20169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L20170" class="LineNr">20170 </span> <span class="subxComment"># result = find-or-create-typeinfo-output-var(typeinfo, field-name)</span> +<span id="L20171" class="LineNr">20171 </span><span class="CommentedCode">#? (write-buffered Stderr "constant: ")</span> +<span id="L20172" class="LineNr">20172 </span><span class="CommentedCode">#? (write-slice-buffered Stderr *(ebp+0xc))</span> +<span id="L20173" class="LineNr">20173 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20174" class="LineNr">20174 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20175" class="LineNr">20175 </span> (<a href='mu.subx.html#L20357'>find-or-create-typeinfo-output-var</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L20176" class="LineNr">20176 </span><span class="CommentedCode">#? 8b/-> *(ebp+0x10) 0/r32/eax</span> +<span id="L20177" class="LineNr">20177 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L20178" class="LineNr">20178 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L20179" class="LineNr">20179 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20180" class="LineNr">20180 </span><span class="CommentedCode">#? (lookup *eax *(eax+4))</span> +<span id="L20181" class="LineNr">20181 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L20182" class="LineNr">20182 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20183" class="LineNr">20183 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20184" class="LineNr">20184 </span><span class="CommentedCode">#? (write-buffered Stderr "offset: ")</span> +<span id="L20185" class="LineNr">20185 </span><span class="CommentedCode">#? 8b/-> *(eax+0x14) 0/r32/eax</span> +<span id="L20186" class="LineNr">20186 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20187" class="LineNr">20187 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20188" class="LineNr">20188 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20189" class="LineNr">20189 </span><span class="Constant">$lookup-or-create-constant:end</span>: +<span id="L20190" class="LineNr">20190 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20191" class="LineNr">20191 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20192" class="LineNr">20192 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20193" class="LineNr">20193 </span> 5e/pop-to-esi +<span id="L20194" class="LineNr">20194 </span> 58/pop-to-eax +<span id="L20195" class="LineNr">20195 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20196" class="LineNr">20196 </span> 89/<- %esp 5/r32/ebp +<span id="L20197" class="LineNr">20197 </span> 5d/pop-to-ebp +<span id="L20198" class="LineNr">20198 </span> c3/return +<span id="L20199" class="LineNr">20199 </span> +<span id="L20200" class="LineNr">20200 </span><span class="subxComment"># if addr var:</span> +<span id="L20201" class="LineNr">20201 </span><span class="subxComment"># container->var->type->right->left->value</span> +<span id="L20202" class="LineNr">20202 </span><span class="subxComment"># otherwise</span> +<span id="L20203" class="LineNr">20203 </span><span class="subxComment"># container->var->type->value</span> +<span id="L20204" class="LineNr">20204 </span><span class="subxFunction">container-type</span>: <span class="subxComment"># container: (addr stmt-var) -> result/eax: type-id</span> +<span id="L20205" class="LineNr">20205 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20206" class="LineNr">20206 </span> 55/push-ebp +<span id="L20207" class="LineNr">20207 </span> 89/<- %ebp 4/r32/esp +<span id="L20208" class="LineNr">20208 </span> <span class="subxComment">#</span> +<span id="L20209" class="LineNr">20209 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20210" class="LineNr">20210 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L20211" class="LineNr">20211 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20212" class="LineNr">20212 </span> { +<span id="L20213" class="LineNr">20213 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20214" class="LineNr">20214 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20215" class="LineNr">20215 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L20216" class="LineNr">20216 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L20217" class="LineNr">20217 </span> } +<span id="L20218" class="LineNr">20218 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L20219" class="LineNr">20219 </span><span class="Constant">$container-type:end</span>: +<span id="L20220" class="LineNr">20220 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20221" class="LineNr">20221 </span> 89/<- %esp 5/r32/ebp +<span id="L20222" class="LineNr">20222 </span> 5d/pop-to-ebp +<span id="L20223" class="LineNr">20223 </span> c3/return +<span id="L20224" class="LineNr">20224 </span> +<span id="L20225" class="LineNr">20225 </span><span class="subxFunction">container?</span>: <span class="subxComment"># t: type-id -> result/eax: boolean</span> +<span id="L20226" class="LineNr">20226 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20227" class="LineNr">20227 </span> 55/push-ebp +<span id="L20228" class="LineNr">20228 </span> 89/<- %ebp 4/r32/esp +<span id="L20229" class="LineNr">20229 </span> <span class="subxComment">#</span> +<span id="L20230" class="LineNr">20230 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20231" class="LineNr">20231 </span> c1/shift 4/subop/left %eax 2/imm8 +<span id="L20232" class="LineNr">20232 </span> 3b/compare 0/r32/eax *<span class="SpecialChar"><a href='mu.subx.html#L435'>Primitive-type-ids</a></span> +<span id="L20233" class="LineNr">20233 </span> 0f 9d/set-if->= %al +<span id="L20234" class="LineNr">20234 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L20235" class="LineNr">20235 </span><span class="Constant">$container?:end</span>: +<span id="L20236" class="LineNr">20236 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20237" class="LineNr">20237 </span> 89/<- %esp 5/r32/ebp +<span id="L20238" class="LineNr">20238 </span> 5d/pop-to-ebp +<span id="L20239" class="LineNr">20239 </span> c3/return +<span id="L20240" class="LineNr">20240 </span> +<span id="L20241" class="LineNr">20241 </span><span class="subxFunction">find-or-create-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L20242" class="LineNr">20242 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20243" class="LineNr">20243 </span> 55/push-ebp +<span id="L20244" class="LineNr">20244 </span> 89/<- %ebp 4/r32/esp +<span id="L20245" class="LineNr">20245 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20246" class="LineNr">20246 </span> 50/push-eax +<span id="L20247" class="LineNr">20247 </span> 51/push-ecx +<span id="L20248" class="LineNr">20248 </span> 52/push-edx +<span id="L20249" class="LineNr">20249 </span> 57/push-edi +<span id="L20250" class="LineNr">20250 </span> <span class="subxComment"># edi = out</span> +<span id="L20251" class="LineNr">20251 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20252" class="LineNr">20252 </span> <span class="subxComment"># var fields/ecx: (handle table (handle array byte) (handle typeinfo-entry))</span> +<span id="L20253" class="LineNr">20253 </span> 68/push 0/imm32 +<span id="L20254" class="LineNr">20254 </span> 68/push 0/imm32 +<span id="L20255" class="LineNr">20255 </span> 89/<- %ecx 4/r32/esp +<span id="L20256" class="LineNr">20256 </span> <span class="subxComment"># find-typeinfo(t, out)</span> +<span id="L20257" class="LineNr">20257 </span> (<a href='mu.subx.html#L20308'>find-typeinfo</a> *(ebp+8) %edi) +<span id="L20258" class="LineNr">20258 </span> { +<span id="L20259" class="LineNr">20259 </span> <span class="subxComment"># if (*out != 0) break</span> +<span id="L20260" class="LineNr">20260 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L20261" class="LineNr">20261 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20262" class="LineNr">20262 </span><span class="Constant">$find-or-create-typeinfo:create</span>: +<span id="L20263" class="LineNr">20263 </span> <span class="subxComment"># *out = allocate</span> +<span id="L20264" class="LineNr">20264 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L454'>Typeinfo-size</a></span> %edi) +<span id="L20265" class="LineNr">20265 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L20266" class="LineNr">20266 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20267" class="LineNr">20267 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo at ")</span> +<span id="L20268" class="LineNr">20268 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L20269" class="LineNr">20269 </span><span class="CommentedCode">#? (write-buffered Stderr " for type-id ")</span> +<span id="L20270" class="LineNr">20270 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L20271" class="LineNr">20271 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20272" class="LineNr">20272 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20273" class="LineNr">20273 </span> <span class="subxComment"># tmp->id = t</span> +<span id="L20274" class="LineNr">20274 </span> 8b/-> *(ebp+8) 2/r32/edx +<span id="L20275" class="LineNr">20275 </span> 89/<- *eax 2/r32/edx <span class="subxComment"># Typeinfo-id</span> +<span id="L20276" class="LineNr">20276 </span> <span class="subxComment"># tmp->fields = new table</span> +<span id="L20277" class="LineNr">20277 </span> <span class="subxS1Comment"># . fields = new table</span> +<span id="L20278" class="LineNr">20278 </span> (<a href='121new-stream.subx.html#L8'>new-stream</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> 0x40 *<span class="SpecialChar"><a href='mu.subx.html#L459'>Typeinfo-fields-row-size</a></span> %ecx) +<span id="L20279" class="LineNr">20279 </span> <span class="subxS1Comment"># . tmp->fields = fields</span> +<span id="L20280" class="LineNr">20280 </span> 8b/-> *ecx 2/r32/edx +<span id="L20281" class="LineNr">20281 </span> 89/<- *(eax+4) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L20282" class="LineNr">20282 </span> 8b/-> *(ecx+4) 2/r32/edx +<span id="L20283" class="LineNr">20283 </span> 89/<- *(eax+8) 2/r32/edx <span class="subxComment"># Typeinfo-fields</span> +<span id="L20284" class="LineNr">20284 </span> <span class="subxComment"># tmp->next = Program->types</span> +<span id="L20285" class="LineNr">20285 </span> 8b/-> *_Program-types 1/r32/ecx +<span id="L20286" class="LineNr">20286 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L20287" class="LineNr">20287 </span> 8b/-> *_Program-types->payload 1/r32/ecx +<span id="L20288" class="LineNr">20288 </span> 89/<- *(eax+0x14) 1/r32/ecx <span class="subxComment"># Typeinfo-next</span> +<span id="L20289" class="LineNr">20289 </span> <span class="subxComment"># Program->types = out</span> +<span id="L20290" class="LineNr">20290 </span> 8b/-> *edi 1/r32/ecx +<span id="L20291" class="LineNr">20291 </span> 89/<- *_Program-types 1/r32/ecx +<span id="L20292" class="LineNr">20292 </span> 8b/-> *(edi+4) 1/r32/ecx +<span id="L20293" class="LineNr">20293 </span> 89/<- *_Program-types->payload 1/r32/ecx +<span id="L20294" class="LineNr">20294 </span> } +<span id="L20295" class="LineNr">20295 </span><span class="Constant">$find-or-create-typeinfo:end</span>: +<span id="L20296" class="LineNr">20296 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20297" class="LineNr">20297 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20298" class="LineNr">20298 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20299" class="LineNr">20299 </span> 5f/pop-to-edi +<span id="L20300" class="LineNr">20300 </span> 5a/pop-to-edx +<span id="L20301" class="LineNr">20301 </span> 59/pop-to-ecx +<span id="L20302" class="LineNr">20302 </span> 58/pop-to-eax +<span id="L20303" class="LineNr">20303 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20304" class="LineNr">20304 </span> 89/<- %esp 5/r32/ebp +<span id="L20305" class="LineNr">20305 </span> 5d/pop-to-ebp +<span id="L20306" class="LineNr">20306 </span> c3/return +<span id="L20307" class="LineNr">20307 </span> +<span id="L20308" class="LineNr">20308 </span><span class="subxFunction">find-typeinfo</span>: <span class="subxComment"># t: type-id, out: (addr handle typeinfo)</span> +<span id="L20309" class="LineNr">20309 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20310" class="LineNr">20310 </span> 55/push-ebp +<span id="L20311" class="LineNr">20311 </span> 89/<- %ebp 4/r32/esp +<span id="L20312" class="LineNr">20312 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20313" class="LineNr">20313 </span> 50/push-eax +<span id="L20314" class="LineNr">20314 </span> 51/push-ecx +<span id="L20315" class="LineNr">20315 </span> 52/push-edx +<span id="L20316" class="LineNr">20316 </span> 57/push-edi +<span id="L20317" class="LineNr">20317 </span> <span class="subxComment"># ecx = t</span> +<span id="L20318" class="LineNr">20318 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20319" class="LineNr">20319 </span> <span class="subxComment"># edi = out</span> +<span id="L20320" class="LineNr">20320 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20321" class="LineNr">20321 </span> <span class="subxComment"># *out = Program->types</span> +<span id="L20322" class="LineNr">20322 </span> 8b/-> *_Program-types 0/r32/eax +<span id="L20323" class="LineNr">20323 </span> 89/<- *edi 0/r32/eax +<span id="L20324" class="LineNr">20324 </span> 8b/-> *_Program-types->payload 0/r32/eax +<span id="L20325" class="LineNr">20325 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L20326" class="LineNr">20326 </span> { +<span id="L20327" class="LineNr">20327 </span><span class="Constant">$find-typeinfo:loop</span>: +<span id="L20328" class="LineNr">20328 </span> <span class="subxComment"># if (*out == 0) break</span> +<span id="L20329" class="LineNr">20329 </span> 81 7/subop/compare *edi 0/imm32 +<span id="L20330" class="LineNr">20330 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20331" class="LineNr">20331 </span><span class="Constant">$find-typeinfo:<a href='401test.mu.html#L3'>check</a></span>: +<span id="L20332" class="LineNr">20332 </span> <span class="subxComment"># var tmp/eax: (addr typeinfo) = lookup(*out)</span> +<span id="L20333" class="LineNr">20333 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20334" class="LineNr">20334 </span> <span class="subxComment"># if (tmp->id == t) break</span> +<span id="L20335" class="LineNr">20335 </span> 39/compare *eax 1/r32/ecx <span class="subxComment"># Typeinfo-id</span> +<span id="L20336" class="LineNr">20336 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20337" class="LineNr">20337 </span><span class="Constant">$find-typeinfo:continue</span>: +<span id="L20338" class="LineNr">20338 </span> <span class="subxComment"># *out = tmp->next</span> +<span id="L20339" class="LineNr">20339 </span> 8b/-> *(eax+0x10) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L20340" class="LineNr">20340 </span> 89/<- *edi 2/r32/edx +<span id="L20341" class="LineNr">20341 </span> 8b/-> *(eax+0x14) 2/r32/edx <span class="subxComment"># Typeinfo-next</span> +<span id="L20342" class="LineNr">20342 </span> 89/<- *(edi+4) 2/r32/edx +<span id="L20343" class="LineNr">20343 </span> <span class="subxComment">#</span> +<span id="L20344" class="LineNr">20344 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20345" class="LineNr">20345 </span> } +<span id="L20346" class="LineNr">20346 </span><span class="Constant">$find-typeinfo:end</span>: +<span id="L20347" class="LineNr">20347 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20348" class="LineNr">20348 </span> 5f/pop-to-edi +<span id="L20349" class="LineNr">20349 </span> 5a/pop-to-edx +<span id="L20350" class="LineNr">20350 </span> 59/pop-to-ecx +<span id="L20351" class="LineNr">20351 </span> 58/pop-to-eax +<span id="L20352" class="LineNr">20352 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20353" class="LineNr">20353 </span> 89/<- %esp 5/r32/ebp +<span id="L20354" class="LineNr">20354 </span> 5d/pop-to-ebp +<span id="L20355" class="LineNr">20355 </span> c3/return +<span id="L20356" class="LineNr">20356 </span> +<span id="L20357" class="LineNr">20357 </span><span class="subxFunction">find-or-create-typeinfo-output-var</span>: <span class="subxComment"># T: (addr typeinfo), f: (addr slice), out: (addr handle var)</span> +<span id="L20358" class="LineNr">20358 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20359" class="LineNr">20359 </span> 55/push-ebp +<span id="L20360" class="LineNr">20360 </span> 89/<- %ebp 4/r32/esp +<span id="L20361" class="LineNr">20361 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20362" class="LineNr">20362 </span> 50/push-eax +<span id="L20363" class="LineNr">20363 </span> 52/push-edx +<span id="L20364" class="LineNr">20364 </span> 57/push-edi +<span id="L20365" class="LineNr">20365 </span> <span class="subxComment"># var dest/edi: (handle typeinfo-entry)</span> +<span id="L20366" class="LineNr">20366 </span> 68/push 0/imm32 +<span id="L20367" class="LineNr">20367 </span> 68/push 0/imm32 +<span id="L20368" class="LineNr">20368 </span> 89/<- %edi 4/r32/esp +<span id="L20369" class="LineNr">20369 </span> <span class="subxComment"># find-or-create-typeinfo-fields(T, f, dest)</span> +<span id="L20370" class="LineNr">20370 </span> (<a href='mu.subx.html#L20422'>find-or-create-typeinfo-fields</a> *(ebp+8) *(ebp+0xc) %edi) +<span id="L20371" class="LineNr">20371 </span> <span class="subxComment"># var dest-addr/edi: (addr typeinfo-entry) = lookup(dest)</span> +<span id="L20372" class="LineNr">20372 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># => eax</span> +<span id="L20373" class="LineNr">20373 </span> 89/<- %edi 0/r32/eax +<span id="L20374" class="LineNr">20374 </span> <span class="subxComment"># if dest-addr->output-var doesn't exist, create it</span> +<span id="L20375" class="LineNr">20375 </span> { +<span id="L20376" class="LineNr">20376 </span> 81 7/subop/compare *(edi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20377" class="LineNr">20377 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20378" class="LineNr">20378 </span> <span class="subxComment"># dest-addr->output-var = new var(dummy name, type, -1 offset)</span> +<span id="L20379" class="LineNr">20379 </span> <span class="subxS1Comment"># . var name/eax: (handle array byte) = "field"</span> +<span id="L20380" class="LineNr">20380 </span> 68/push 0/imm32 +<span id="L20381" class="LineNr">20381 </span> 68/push 0/imm32 +<span id="L20382" class="LineNr">20382 </span> 89/<- %eax 4/r32/esp +<span id="L20383" class="LineNr">20383 </span> (<a href='123slice.subx.html#L1043'>slice-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *(ebp+0xc) %eax) +<span id="L20384" class="LineNr">20384 </span> <span class="subxS1Comment"># . new var</span> +<span id="L20385" class="LineNr">20385 </span> 8d/copy-address *(edi+0xc) 2/r32/edx +<span id="L20386" class="LineNr">20386 </span> (<a href='mu.subx.html#L19703'>new-var</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *eax *(eax+4) %edx) +<span id="L20387" class="LineNr">20387 </span> <span class="subxS1Comment"># . reclaim name</span> +<span id="L20388" class="LineNr">20388 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20389" class="LineNr">20389 </span> <span class="subxComment"># var result/edx: (addr var) = lookup(dest-addr->output-var)</span> +<span id="L20390" class="LineNr">20390 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0xc) *(edi+0x10)) <span class="subxComment"># => eax</span> +<span id="L20391" class="LineNr">20391 </span> 89/<- %edx 0/r32/eax +<span id="L20392" class="LineNr">20392 </span> <span class="subxComment"># result->type = new constant type</span> +<span id="L20393" class="LineNr">20393 </span> 8d/copy-address *(edx+8) 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L20394" class="LineNr">20394 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L389'>Type-tree-size</a></span> %eax) +<span id="L20395" class="LineNr">20395 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># => eax</span> +<span id="L20396" class="LineNr">20396 </span> c7 0/subop/copy *eax 1/imm32/true <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20397" class="LineNr">20397 </span> c7 0/subop/copy *(eax+4) 6/imm32/constant <span class="subxComment"># Type-tree-value</span> +<span id="L20398" class="LineNr">20398 </span> c7 0/subop/copy *(eax+8) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L20399" class="LineNr">20399 </span> c7 0/subop/copy *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20400" class="LineNr">20400 </span> c7 0/subop/copy *(eax+0x10) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L20401" class="LineNr">20401 </span> <span class="subxComment"># result->offset isn't filled out yet</span> +<span id="L20402" class="LineNr">20402 </span> c7 0/subop/copy *(edx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L20403" class="LineNr">20403 </span> } +<span id="L20404" class="LineNr">20404 </span> <span class="subxComment"># out = dest-addr->output-var</span> +<span id="L20405" class="LineNr">20405 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L20406" class="LineNr">20406 </span> 8b/-> *(edi+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20407" class="LineNr">20407 </span> 89/<- *edx 0/r32/eax +<span id="L20408" class="LineNr">20408 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20409" class="LineNr">20409 </span> 89/<- *(edx+4) 0/r32/eax +<span id="L20410" class="LineNr">20410 </span><span class="Constant">$find-or-create-typeinfo-output-var:end</span>: +<span id="L20411" class="LineNr">20411 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20412" class="LineNr">20412 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20413" class="LineNr">20413 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20414" class="LineNr">20414 </span> 5f/pop-to-edi +<span id="L20415" class="LineNr">20415 </span> 5a/pop-to-edx +<span id="L20416" class="LineNr">20416 </span> 58/pop-to-eax +<span id="L20417" class="LineNr">20417 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20418" class="LineNr">20418 </span> 89/<- %esp 5/r32/ebp +<span id="L20419" class="LineNr">20419 </span> 5d/pop-to-ebp +<span id="L20420" class="LineNr">20420 </span> c3/return +<span id="L20421" class="LineNr">20421 </span> +<span id="L20422" class="LineNr">20422 </span><span class="subxFunction">find-or-create-typeinfo-fields</span>: <span class="subxComment"># T: (addr typeinfo), f: (addr slice), out: (addr handle typeinfo-entry)</span> +<span id="L20423" class="LineNr">20423 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20424" class="LineNr">20424 </span> 55/push-ebp +<span id="L20425" class="LineNr">20425 </span> 89/<- %ebp 4/r32/esp +<span id="L20426" class="LineNr">20426 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20427" class="LineNr">20427 </span> 50/push-eax +<span id="L20428" class="LineNr">20428 </span> 56/push-esi +<span id="L20429" class="LineNr">20429 </span> 57/push-edi +<span id="L20430" class="LineNr">20430 </span> <span class="subxComment"># eax = lookup(T->fields)</span> +<span id="L20431" class="LineNr">20431 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20432" class="LineNr">20432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20433" class="LineNr">20433 </span> <span class="subxComment"># edi = out</span> +<span id="L20434" class="LineNr">20434 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L20435" class="LineNr">20435 </span> <span class="subxComment"># var src/esi: (addr handle typeinfo-entry) = get-or-insert-slice(T->fields, f)</span> +<span id="L20436" class="LineNr">20436 </span> (<a href='131table.subx.html#L1022'>get-or-insert-slice</a> %eax *(ebp+0xc) *<span class="SpecialChar"><a href='mu.subx.html#L459'>Typeinfo-fields-row-size</a></span> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) <span class="subxComment"># => eax</span> +<span id="L20437" class="LineNr">20437 </span> 89/<- %esi 0/r32/eax +<span id="L20438" class="LineNr">20438 </span> <span class="subxComment"># if src doesn't exist, allocate it</span> +<span id="L20439" class="LineNr">20439 </span> { +<span id="L20440" class="LineNr">20440 </span> 81 7/subop/compare *esi 0/imm32 +<span id="L20441" class="LineNr">20441 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20442" class="LineNr">20442 </span> (<a href='120allocate.subx.html#L66'>allocate</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *<span class="SpecialChar"><a href='mu.subx.html#L475'>Typeinfo-entry-size</a></span> %esi) +<span id="L20443" class="LineNr">20443 </span><span class="CommentedCode">#? (write-buffered Stderr "handle at ")</span> +<span id="L20444" class="LineNr">20444 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L20445" class="LineNr">20445 </span><span class="CommentedCode">#? (write-buffered Stderr ": ")</span> +<span id="L20446" class="LineNr">20446 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *esi)</span> +<span id="L20447" class="LineNr">20447 </span><span class="CommentedCode">#? (write-buffered Stderr " ")</span> +<span id="L20448" class="LineNr">20448 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(esi+4))</span> +<span id="L20449" class="LineNr">20449 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20450" class="LineNr">20450 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20451" class="LineNr">20451 </span><span class="CommentedCode">#? (lookup *esi *(esi+4))</span> +<span id="L20452" class="LineNr">20452 </span><span class="CommentedCode">#? (write-buffered Stderr "created typeinfo fields at ")</span> +<span id="L20453" class="LineNr">20453 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %esi)</span> +<span id="L20454" class="LineNr">20454 </span><span class="CommentedCode">#? (write-buffered Stderr " for ")</span> +<span id="L20455" class="LineNr">20455 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L20456" class="LineNr">20456 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20457" class="LineNr">20457 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20458" class="LineNr">20458 </span> } +<span id="L20459" class="LineNr">20459 </span> <span class="subxComment"># *out = src</span> +<span id="L20460" class="LineNr">20460 </span> <span class="subxS1Comment"># . *edi = *src</span> +<span id="L20461" class="LineNr">20461 </span> 8b/-> *esi 0/r32/eax +<span id="L20462" class="LineNr">20462 </span> 89/<- *edi 0/r32/eax +<span id="L20463" class="LineNr">20463 </span> 8b/-> *(esi+4) 0/r32/eax +<span id="L20464" class="LineNr">20464 </span> 89/<- *(edi+4) 0/r32/eax +<span id="L20465" class="LineNr">20465 </span><span class="Constant">$find-or-create-typeinfo-fields:end</span>: +<span id="L20466" class="LineNr">20466 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20467" class="LineNr">20467 </span> 5f/pop-to-edi +<span id="L20468" class="LineNr">20468 </span> 5e/pop-to-esi +<span id="L20469" class="LineNr">20469 </span> 58/pop-to-eax +<span id="L20470" class="LineNr">20470 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20471" class="LineNr">20471 </span> 89/<- %esp 5/r32/ebp +<span id="L20472" class="LineNr">20472 </span> 5d/pop-to-ebp +<span id="L20473" class="LineNr">20473 </span> c3/return +<span id="L20474" class="LineNr">20474 </span> +<span id="L20475" class="LineNr">20475 </span><span class="subxFunction">populate-mu-type</span>: <span class="subxComment"># in: (addr stream byte), t: (addr typeinfo), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L20476" class="LineNr">20476 </span> <span class="subxComment"># pseudocode:</span> +<span id="L20477" class="LineNr">20477 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L20478" class="LineNr">20478 </span> <span class="subxComment"># curr-index = 0</span> +<span id="L20479" class="LineNr">20479 </span> <span class="subxComment"># while true</span> +<span id="L20480" class="LineNr">20480 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L20481" class="LineNr">20481 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L20482" class="LineNr">20482 </span> <span class="subxComment"># if line->write == 0</span> +<span id="L20483" class="LineNr">20483 </span> <span class="subxComment"># abort</span> +<span id="L20484" class="LineNr">20484 </span> <span class="subxComment"># word-slice = next-mu-token(line)</span> +<span id="L20485" class="LineNr">20485 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L20486" class="LineNr">20486 </span> <span class="subxComment"># continue</span> +<span id="L20487" class="LineNr">20487 </span> <span class="subxComment"># if slice-equal?(word-slice, "}")</span> +<span id="L20488" class="LineNr">20488 </span> <span class="subxComment"># break</span> +<span id="L20489" class="LineNr">20489 </span> <span class="subxComment"># var v: (handle var) = parse-var-with-type(word-slice, line)</span> +<span id="L20490" class="LineNr">20490 </span> <span class="subxComment"># var r: (handle typeinfo-fields) = find-or-create-typeinfo-fields(t, word-slice/v->name)</span> +<span id="L20491" class="LineNr">20491 </span> <span class="subxComment"># TODO: ensure that r->first is null</span> +<span id="L20492" class="LineNr">20492 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L20493" class="LineNr">20493 </span> <span class="subxComment"># curr-index++</span> +<span id="L20494" class="LineNr">20494 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L20495" class="LineNr">20495 </span> <span class="subxComment"># if r->output-var == 0</span> +<span id="L20496" class="LineNr">20496 </span> <span class="subxComment"># r->output-var = new literal</span> +<span id="L20497" class="LineNr">20497 </span> <span class="subxComment"># TODO: ensure nothing else in line</span> +<span id="L20498" class="LineNr">20498 </span> <span class="subxComment"># t->total-size-in-bytes = -2 (not yet initialized)</span> +<span id="L20499" class="LineNr">20499 </span> <span class="subxComment">#</span> +<span id="L20500" class="LineNr">20500 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20501" class="LineNr">20501 </span> 55/push-ebp +<span id="L20502" class="LineNr">20502 </span> 89/<- %ebp 4/r32/esp +<span id="L20503" class="LineNr">20503 </span> <span class="subxComment"># var curr-index: int at *(ebp-4)</span> +<span id="L20504" class="LineNr">20504 </span> 68/push 0/imm32 +<span id="L20505" class="LineNr">20505 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20506" class="LineNr">20506 </span> 50/push-eax +<span id="L20507" class="LineNr">20507 </span> 51/push-ecx +<span id="L20508" class="LineNr">20508 </span> 52/push-edx +<span id="L20509" class="LineNr">20509 </span> 53/push-ebx +<span id="L20510" class="LineNr">20510 </span> 56/push-esi +<span id="L20511" class="LineNr">20511 </span> 57/push-edi +<span id="L20512" class="LineNr">20512 </span> <span class="subxComment"># edi = t</span> +<span id="L20513" class="LineNr">20513 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L20514" class="LineNr">20514 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L20515" class="LineNr">20515 </span> 81 5/subop/subtract %esp 0x200/imm32 +<span id="L20516" class="LineNr">20516 </span> 68/push 0x200/imm32/size +<span id="L20517" class="LineNr">20517 </span> 68/push 0/imm32/read +<span id="L20518" class="LineNr">20518 </span> 68/push 0/imm32/write +<span id="L20519" class="LineNr">20519 </span> 89/<- %ecx 4/r32/esp +<span id="L20520" class="LineNr">20520 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L20521" class="LineNr">20521 </span> 68/push 0/imm32/end +<span id="L20522" class="LineNr">20522 </span> 68/push 0/imm32/start +<span id="L20523" class="LineNr">20523 </span> 89/<- %edx 4/r32/esp +<span id="L20524" class="LineNr">20524 </span> <span class="subxComment"># var v/esi: (handle var)</span> +<span id="L20525" class="LineNr">20525 </span> 68/push 0/imm32 +<span id="L20526" class="LineNr">20526 </span> 68/push 0/imm32 +<span id="L20527" class="LineNr">20527 </span> 89/<- %esi 4/r32/esp +<span id="L20528" class="LineNr">20528 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L20529" class="LineNr">20529 </span> 68/push 0/imm32 +<span id="L20530" class="LineNr">20530 </span> 68/push 0/imm32 +<span id="L20531" class="LineNr">20531 </span> 89/<- %ebx 4/r32/esp +<span id="L20532" class="LineNr">20532 </span> { +<span id="L20533" class="LineNr">20533 </span><span class="Constant">$populate-mu-type:line-loop</span>: +<span id="L20534" class="LineNr">20534 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> %ecx) +<span id="L20535" class="LineNr">20535 </span> (<a href='122read-line.subx.html#L9'>read-line-buffered</a> *(ebp+8) %ecx) +<span id="L20536" class="LineNr">20536 </span> <span class="subxComment"># if (line->write == 0) abort</span> +<span id="L20537" class="LineNr">20537 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L20538" class="LineNr">20538 </span> 0f 84/jump-if-= $populate-mu-type:error1/disp32 +<span id="L20539" class="Folded">20539 </span><span class="Folded">+-- 6 lines: #? # dump line ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L20545" class="LineNr">20545 </span> (<a href='mu.subx.html#L17281'>next-mu-token</a> %ecx %edx) +<span id="L20546" class="LineNr">20546 </span> <span class="subxComment"># if slice-empty?(word-slice) continue</span> +<span id="L20547" class="LineNr">20547 </span> (<a href='123slice.subx.html#L9'>slice-empty?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L20548" class="LineNr">20548 </span> 3d/compare-eax-and 0/imm32 +<span id="L20549" class="LineNr">20549 </span> 0f 85/jump-if-!= <span class="Constant">loop</span>/disp32 +<span id="L20550" class="LineNr">20550 </span> <span class="subxComment"># if slice-equal?(word-slice, "}") break</span> +<span id="L20551" class="LineNr">20551 </span> (<a href='123slice.subx.html#L120'>slice-equal?</a> %edx <span class="Constant">"}"</span>) +<span id="L20552" class="LineNr">20552 </span> 3d/compare-eax-and 0/imm32 +<span id="L20553" class="LineNr">20553 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L20554" class="LineNr">20554 </span><span class="Constant">$populate-mu-type:parse-element</span>: +<span id="L20555" class="LineNr">20555 </span> <span class="subxComment"># v = parse-var-with-type(word-slice, first-line)</span> +<span id="L20556" class="LineNr">20556 </span> <span class="subxComment"># must do this first to strip the trailing ':' from word-slice before</span> +<span id="L20557" class="LineNr">20557 </span> <span class="subxComment"># using it in find-or-create-typeinfo-fields below</span> +<span id="L20558" class="LineNr">20558 </span> <span class="subxComment"># TODO: clean up that mutation in parse-var-with-type</span> +<span id="L20559" class="LineNr">20559 </span> (<a href='mu.subx.html#L20703'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20560" class="LineNr">20560 </span> (<a href='mu.subx.html#L16926'>parse-var-with-type</a> %edx %ecx %esi %eax *(ebp+0x10) *(ebp+0x14)) +<span id="L20561" class="LineNr">20561 </span> <span class="subxComment"># if v is an addr, abort</span> +<span id="L20562" class="LineNr">20562 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20563" class="LineNr">20563 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20564" class="LineNr">20564 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20565" class="LineNr">20565 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20566" class="LineNr">20566 </span> 0f 85/jump-if-!= $populate-mu-type:error2/disp32 +<span id="L20567" class="LineNr">20567 </span> <span class="subxComment"># if v is an array, abort (we could support it, but initialization gets complex)</span> +<span id="L20568" class="LineNr">20568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20569" class="LineNr">20569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20570" class="LineNr">20570 </span> (<a href='mu.subx.html#L35788'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20571" class="LineNr">20571 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20572" class="LineNr">20572 </span> 0f 85/jump-if-!= $populate-mu-type:error3/disp32 +<span id="L20573" class="LineNr">20573 </span> <span class="subxComment"># if v is a byte, abort</span> +<span id="L20574" class="LineNr">20574 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20575" class="LineNr">20575 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20576" class="LineNr">20576 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L20577" class="LineNr">20577 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20578" class="LineNr">20578 </span> 0f 85/jump-if-!= $populate-mu-type:error4/disp32 +<span id="L20579" class="LineNr">20579 </span> <span class="subxComment"># if v is a slice, abort</span> +<span id="L20580" class="LineNr">20580 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20581" class="LineNr">20581 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20582" class="LineNr">20582 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0xc) <span class="subxComment"># slice => eax</span> +<span id="L20583" class="LineNr">20583 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20584" class="LineNr">20584 </span> 0f 85/jump-if-!= $populate-mu-type:error5/disp32 +<span id="L20585" class="LineNr">20585 </span> <span class="subxComment"># if v is a stream, abort (we could support it, but initialization gets even more complex)</span> +<span id="L20586" class="LineNr">20586 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L20587" class="LineNr">20587 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20588" class="LineNr">20588 </span> (<a href='mu.subx.html#L35850'>mu-stream-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20589" class="LineNr">20589 </span> 3d/compare-eax-and 0/imm32/false +<span id="L20590" class="LineNr">20590 </span> 0f 85/jump-if-!= $populate-mu-type:error6/disp32 +<span id="L20591" class="LineNr">20591 </span> <span class="subxComment"># var tmp/ecx</span> +<span id="L20592" class="LineNr">20592 </span> 51/push-ecx +<span id="L20593" class="LineNr">20593 </span><span class="Constant">$populate-mu-type:create-typeinfo-fields</span>: +<span id="L20594" class="LineNr">20594 </span> <span class="subxComment"># var r/ebx: (handle typeinfo-entry)</span> +<span id="L20595" class="LineNr">20595 </span> (<a href='mu.subx.html#L20422'>find-or-create-typeinfo-fields</a> %edi %edx %ebx) +<span id="L20596" class="LineNr">20596 </span> <span class="subxComment"># r->index = curr-index</span> +<span id="L20597" class="LineNr">20597 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> +<span id="L20598" class="LineNr">20598 </span> 8b/-> *(ebp-4) 1/r32/ecx +<span id="L20599" class="LineNr">20599 </span><span class="CommentedCode">#? (write-buffered Stderr "saving index ")</span> +<span id="L20600" class="LineNr">20600 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L20601" class="LineNr">20601 </span><span class="CommentedCode">#? (write-buffered Stderr " at ")</span> +<span id="L20602" class="LineNr">20602 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edi)</span> +<span id="L20603" class="LineNr">20603 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20604" class="LineNr">20604 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20605" class="LineNr">20605 </span> 89/<- *(eax+8) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L20606" class="LineNr">20606 </span> <span class="subxComment"># ++curr-index</span> +<span id="L20607" class="LineNr">20607 </span> ff 0/subop/increment *(ebp-4) +<span id="L20608" class="LineNr">20608 </span><span class="Constant">$populate-mu-type:set-input-type</span>: +<span id="L20609" class="LineNr">20609 </span> <span class="subxComment"># r->input-var = v</span> +<span id="L20610" class="LineNr">20610 </span> 8b/-> *esi 1/r32/ecx +<span id="L20611" class="LineNr">20611 </span> 89/<- *eax 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20612" class="LineNr">20612 </span> 8b/-> *(esi+4) 1/r32/ecx +<span id="L20613" class="LineNr">20613 </span> 89/<- *(eax+4) 1/r32/ecx <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20614" class="LineNr">20614 </span> <span class="subxComment"># restore line</span> +<span id="L20615" class="LineNr">20615 </span> 59/pop-to-ecx +<span id="L20616" class="LineNr">20616 </span> { +<span id="L20617" class="LineNr">20617 </span><span class="Constant">$populate-mu-type:create-output-type</span>: +<span id="L20618" class="LineNr">20618 </span> <span class="subxComment"># if (r->output-var == 0) create a new var with some placeholder data</span> +<span id="L20619" class="LineNr">20619 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20620" class="LineNr">20620 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20621" class="LineNr">20621 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L20622" class="LineNr">20622 </span> (<a href='mu.subx.html#L19853'>new-literal</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edx %eax) +<span id="L20623" class="LineNr">20623 </span> } +<span id="L20624" class="LineNr">20624 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20625" class="LineNr">20625 </span> } +<span id="L20626" class="LineNr">20626 </span><span class="Constant">$populate-mu-type:invalidate-total-size-in-bytes</span>: +<span id="L20627" class="LineNr">20627 </span> <span class="subxComment"># Offsets and total size may not be accurate here since we may not yet</span> +<span id="L20628" class="LineNr">20628 </span> <span class="subxComment"># have encountered the element types.</span> +<span id="L20629" class="LineNr">20629 </span> <span class="subxComment"># We'll recompute them separately after parsing the entire program.</span> +<span id="L20630" class="LineNr">20630 </span> c7 0/subop/copy *(edi+0xc) -2/imm32/uninitialized <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20631" class="LineNr">20631 </span><span class="Constant">$populate-mu-type:end</span>: +<span id="L20632" class="LineNr">20632 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20633" class="LineNr">20633 </span> 81 0/subop/add %esp 0x224/imm32 +<span id="L20634" class="LineNr">20634 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20635" class="LineNr">20635 </span> 5f/pop-to-edi +<span id="L20636" class="LineNr">20636 </span> 5e/pop-to-esi +<span id="L20637" class="LineNr">20637 </span> 5b/pop-to-ebx +<span id="L20638" class="LineNr">20638 </span> 5a/pop-to-edx +<span id="L20639" class="LineNr">20639 </span> 59/pop-to-ecx +<span id="L20640" class="LineNr">20640 </span> 58/pop-to-eax +<span id="L20641" class="LineNr">20641 </span> <span class="subxComment"># reclaim curr-index</span> +<span id="L20642" class="LineNr">20642 </span> 81 0/subop/add %esp 4/imm32 +<span id="L20643" class="LineNr">20643 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20644" class="LineNr">20644 </span> 89/<- %esp 5/r32/ebp +<span id="L20645" class="LineNr">20645 </span> 5d/pop-to-ebp +<span id="L20646" class="LineNr">20646 </span> c3/return +<span id="L20647" class="LineNr">20647 </span> +<span id="L20648" class="LineNr">20648 </span><span class="Constant">$populate-mu-type:error1</span>: +<span id="L20649" class="LineNr">20649 </span> <span class="subxComment"># error("incomplete type definition '" t->name "'\n")</span> +<span id="L20650" class="LineNr">20650 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"incomplete type definition '"</span>) +<span id="L20651" class="LineNr">20651 </span> (<a href='mu.subx.html#L20703'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20652" class="LineNr">20652 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20653" class="LineNr">20653 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"\n"</span>) +<span id="L20654" class="LineNr">20654 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20655" class="LineNr">20655 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20656" class="LineNr">20656 </span> <span class="subxComment"># never gets here</span> +<span id="L20657" class="LineNr">20657 </span> +<span id="L20658" class="LineNr">20658 </span><span class="Constant">$populate-mu-type:error2</span>: +<span id="L20659" class="LineNr">20659 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20660" class="LineNr">20660 </span> (<a href='mu.subx.html#L20703'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20661" class="LineNr">20661 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20662" class="LineNr">20662 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'addr' elements not allowed\n"</span>) +<span id="L20663" class="LineNr">20663 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20664" class="LineNr">20664 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20665" class="LineNr">20665 </span> <span class="subxComment"># never gets here</span> +<span id="L20666" class="LineNr">20666 </span> +<span id="L20667" class="LineNr">20667 </span><span class="Constant">$populate-mu-type:error3</span>: +<span id="L20668" class="LineNr">20668 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20669" class="LineNr">20669 </span> (<a href='mu.subx.html#L20703'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20670" class="LineNr">20670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20671" class="LineNr">20671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'array' elements not allowed for now\n"</span>) +<span id="L20672" class="LineNr">20672 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20673" class="LineNr">20673 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20674" class="LineNr">20674 </span> <span class="subxComment"># never gets here</span> +<span id="L20675" class="LineNr">20675 </span> +<span id="L20676" class="LineNr">20676 </span><span class="Constant">$populate-mu-type:error4</span>: +<span id="L20677" class="LineNr">20677 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20678" class="LineNr">20678 </span> (<a href='mu.subx.html#L20703'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20679" class="LineNr">20679 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20680" class="LineNr">20680 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'byte' elements not allowed\n"</span>) +<span id="L20681" class="LineNr">20681 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20682" class="LineNr">20682 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20683" class="LineNr">20683 </span> <span class="subxComment"># never gets here</span> +<span id="L20684" class="LineNr">20684 </span> +<span id="L20685" class="LineNr">20685 </span><span class="Constant">$populate-mu-type:error5</span>: +<span id="L20686" class="LineNr">20686 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20687" class="LineNr">20687 </span> (<a href='mu.subx.html#L20703'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20688" class="LineNr">20688 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20689" class="LineNr">20689 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'slice' elements not allowed\n"</span>) +<span id="L20690" class="LineNr">20690 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20691" class="LineNr">20691 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20692" class="LineNr">20692 </span> <span class="subxComment"># never gets here</span> +<span id="L20693" class="LineNr">20693 </span> +<span id="L20694" class="LineNr">20694 </span><span class="Constant">$populate-mu-type:error6</span>: +<span id="L20695" class="LineNr">20695 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"type "</span>) +<span id="L20696" class="LineNr">20696 </span> (<a href='mu.subx.html#L20703'>type-name</a> *edi) <span class="subxComment"># Typeinfo-id => eax</span> +<span id="L20697" class="LineNr">20697 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L20698" class="LineNr">20698 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": 'stream' elements not allowed for now\n"</span>) +<span id="L20699" class="LineNr">20699 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L20700" class="LineNr">20700 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L20701" class="LineNr">20701 </span> <span class="subxComment"># never gets here</span> +<span id="L20702" class="LineNr">20702 </span> +<span id="L20703" class="LineNr">20703 </span><span class="subxFunction">type-name</span>: <span class="subxComment"># index: int -> result/eax: (addr array byte)</span> +<span id="L20704" class="LineNr">20704 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20705" class="LineNr">20705 </span> 55/push-ebp +<span id="L20706" class="LineNr">20706 </span> 89/<- %ebp 4/r32/esp +<span id="L20707" class="LineNr">20707 </span> <span class="subxComment">#</span> +<span id="L20708" class="LineNr">20708 </span> (index <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span> *(ebp+8)) +<span id="L20709" class="LineNr">20709 </span><span class="Constant">$type-name:end</span>: +<span id="L20710" class="LineNr">20710 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20711" class="LineNr">20711 </span> 89/<- %esp 5/r32/ebp +<span id="L20712" class="LineNr">20712 </span> 5d/pop-to-ebp +<span id="L20713" class="LineNr">20713 </span> c3/return +<span id="L20714" class="LineNr">20714 </span> +<span id="L20715" class="LineNr">20715 </span><span class="subxFunction">index</span>: <span class="subxComment"># arr: (addr stream (handle array byte)), index: int -> result/eax: (addr array byte)</span> +<span id="L20716" class="LineNr">20716 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20717" class="LineNr">20717 </span> 55/push-ebp +<span id="L20718" class="LineNr">20718 </span> 89/<- %ebp 4/r32/esp +<span id="L20719" class="LineNr">20719 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20720" class="LineNr">20720 </span> 56/push-esi +<span id="L20721" class="LineNr">20721 </span> <span class="subxComment"># TODO: bounds-check index</span> +<span id="L20722" class="LineNr">20722 </span> <span class="subxComment"># esi = arr</span> +<span id="L20723" class="LineNr">20723 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20724" class="LineNr">20724 </span> <span class="subxComment"># eax = index</span> +<span id="L20725" class="LineNr">20725 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L20726" class="LineNr">20726 </span> <span class="subxComment"># eax = *(arr + 12 + index)</span> +<span id="L20727" class="LineNr">20727 </span> 8b/-> *(esi+eax<<2+0xc) 0/r32/eax +<span id="L20728" class="LineNr">20728 </span><span class="Constant">$index:end</span>: +<span id="L20729" class="LineNr">20729 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20730" class="LineNr">20730 </span> 5e/pop-to-esi +<span id="L20731" class="LineNr">20731 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20732" class="LineNr">20732 </span> 89/<- %esp 5/r32/ebp +<span id="L20733" class="LineNr">20733 </span> 5d/pop-to-ebp +<span id="L20734" class="LineNr">20734 </span> c3/return +<span id="L20735" class="LineNr">20735 </span> +<span id="L20736" class="LineNr">20736 </span><span class="subxComment">#######################################################</span> +<span id="L20737" class="LineNr">20737 </span><span class="subxComment"># Compute type sizes</span> +<span id="L20738" class="LineNr">20738 </span><span class="subxComment">#######################################################</span> +<span id="L20739" class="LineNr">20739 </span> +<span id="L20740" class="LineNr">20740 </span><span class="subxComment"># Compute the sizes of all user-defined types.</span> +<span id="L20741" class="LineNr">20741 </span><span class="subxComment"># We'll need the sizes of their elements, which may be other user-defined</span> +<span id="L20742" class="LineNr">20742 </span><span class="subxComment"># types, which we will compute as needed.</span> +<span id="L20743" class="LineNr">20743 </span> +<span id="L20744" class="LineNr">20744 </span><span class="subxComment"># Initially, all user-defined types have their sizes set to -2 (invalid)</span> +<span id="L20745" class="LineNr">20745 </span><span class="subxFunction">populate-mu-type-sizes</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L20746" class="LineNr">20746 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20747" class="LineNr">20747 </span> 55/push-ebp +<span id="L20748" class="LineNr">20748 </span> 89/<- %ebp 4/r32/esp +<span id="L20749" class="LineNr">20749 </span><span class="Constant">$populate-mu-type-sizes:total-sizes</span>: +<span id="L20750" class="LineNr">20750 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L20751" class="LineNr">20751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L20752" class="LineNr">20752 </span> { +<span id="L20753" class="LineNr">20753 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20754" class="LineNr">20754 </span> 3d/compare-eax-and 0/imm32/null +<span id="L20755" class="LineNr">20755 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20756" class="LineNr">20756 </span> (<a href='mu.subx.html#L20782'>populate-mu-type-sizes-in-type</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L20757" class="LineNr">20757 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L20758" class="LineNr">20758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L20759" class="LineNr">20759 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20760" class="LineNr">20760 </span> } +<span id="L20761" class="LineNr">20761 </span><span class="Constant">$populate-mu-type-sizes:offsets</span>: +<span id="L20762" class="LineNr">20762 </span> <span class="subxComment"># curr = *Program->types</span> +<span id="L20763" class="LineNr">20763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L20764" class="LineNr">20764 </span> { +<span id="L20765" class="LineNr">20765 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L20766" class="LineNr">20766 </span> 3d/compare-eax-and 0/imm32/null +<span id="L20767" class="LineNr">20767 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20768" class="LineNr">20768 </span> (<a href='mu.subx.html#L20946'>populate-mu-type-offsets</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L20769" class="LineNr">20769 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L20770" class="LineNr">20770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L20771" class="LineNr">20771 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20772" class="LineNr">20772 </span> } +<span id="L20773" class="LineNr">20773 </span><span class="Constant">$populate-mu-type-sizes:end</span>: +<span id="L20774" class="LineNr">20774 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20775" class="LineNr">20775 </span> 89/<- %esp 5/r32/ebp +<span id="L20776" class="LineNr">20776 </span> 5d/pop-to-ebp +<span id="L20777" class="LineNr">20777 </span> c3/return +<span id="L20778" class="LineNr">20778 </span> +<span id="L20779" class="LineNr">20779 </span><span class="subxComment"># compute sizes of all fields, recursing as necessary</span> +<span id="L20780" class="LineNr">20780 </span><span class="subxComment"># sum up all their sizes to arrive at total size</span> +<span id="L20781" class="LineNr">20781 </span><span class="subxComment"># fields may be out of order, but that doesn't affect the answer</span> +<span id="L20782" class="LineNr">20782 </span><span class="subxFunction">populate-mu-type-sizes-in-type</span>: <span class="subxComment"># T: (addr typeinfo), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L20783" class="LineNr">20783 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20784" class="LineNr">20784 </span> 55/push-ebp +<span id="L20785" class="LineNr">20785 </span> 89/<- %ebp 4/r32/esp +<span id="L20786" class="LineNr">20786 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20787" class="LineNr">20787 </span> 50/push-eax +<span id="L20788" class="LineNr">20788 </span> 51/push-ecx +<span id="L20789" class="LineNr">20789 </span> 52/push-edx +<span id="L20790" class="LineNr">20790 </span> 56/push-esi +<span id="L20791" class="LineNr">20791 </span> 57/push-edi +<span id="L20792" class="LineNr">20792 </span> <span class="subxComment"># esi = T</span> +<span id="L20793" class="LineNr">20793 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L20794" class="LineNr">20794 </span> <span class="subxComment"># if T is already computed, return</span> +<span id="L20795" class="LineNr">20795 </span> 81 7/subop/compare *(esi+0xc) 0/imm32 <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20796" class="LineNr">20796 </span> 0f 8d/jump-if->= $populate-mu-type-sizes-in-type:end/disp32 +<span id="L20797" class="LineNr">20797 </span> <span class="subxComment"># if T is being computed, abort</span> +<span id="L20798" class="LineNr">20798 </span> 81 7/subop/compare *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20799" class="LineNr">20799 </span> 0f 84/jump-if-= $populate-mu-type-sizes-in-type:abort/disp32 +<span id="L20800" class="LineNr">20800 </span> <span class="subxComment"># tag T (-2 to -1) to avoid infinite recursion</span> +<span id="L20801" class="LineNr">20801 </span> c7 0/subop/copy *(esi+0xc) -1/imm32/being-computed <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20802" class="LineNr">20802 </span> <span class="subxComment"># var total-size/edi: int = 0</span> +<span id="L20803" class="LineNr">20803 </span> bf/copy-to-edi 0/imm32 +<span id="L20804" class="LineNr">20804 </span> <span class="subxH1Comment"># - for every field, if it's a user-defined type, compute its size</span> +<span id="L20805" class="LineNr">20805 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L20806" class="LineNr">20806 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20807" class="LineNr">20807 </span> 89/<- %ecx 0/r32/eax +<span id="L20808" class="LineNr">20808 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L20809" class="LineNr">20809 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L20810" class="LineNr">20810 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L20811" class="LineNr">20811 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L20812" class="LineNr">20812 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L20813" class="LineNr">20813 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L20814" class="LineNr">20814 </span> { +<span id="L20815" class="LineNr">20815 </span><span class="Constant">$populate-mu-type-sizes-in-type:loop</span>: +<span id="L20816" class="LineNr">20816 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L20817" class="LineNr">20817 </span> 39/compare %ecx 2/r32/edx +<span id="L20818" class="LineNr">20818 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L20819" class="LineNr">20819 </span> <span class="subxComment"># var t/eax: (addr typeinfo-entry) = lookup(curr->value)</span> +<span id="L20820" class="LineNr">20820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L20821" class="LineNr">20821 </span> <span class="subxComment"># if (t->input-var == 0) silently ignore it; we'll emit a nice error message while type-checking</span> +<span id="L20822" class="LineNr">20822 </span> 81 7/subop/compare *eax 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20823" class="LineNr">20823 </span> 74/jump-if-= $populate-mu-type-sizes-in-type:end/disp8 +<span id="L20824" class="LineNr">20824 </span> <span class="subxComment"># compute size of t->input-var</span> +<span id="L20825" class="LineNr">20825 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L20826" class="LineNr">20826 </span> (<a href='mu.subx.html#L20856'>compute-size-of-var</a> %eax *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L20827" class="LineNr">20827 </span> <span class="subxComment"># result += eax</span> +<span id="L20828" class="LineNr">20828 </span> 01/add-to %edi 0/r32/eax +<span id="L20829" class="LineNr">20829 </span> <span class="subxComment"># curr += row-size</span> +<span id="L20830" class="LineNr">20830 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L20831" class="LineNr">20831 </span> <span class="subxComment">#</span> +<span id="L20832" class="LineNr">20832 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L20833" class="LineNr">20833 </span> } +<span id="L20834" class="LineNr">20834 </span> <span class="subxH1Comment"># - save result</span> +<span id="L20835" class="LineNr">20835 </span> 89/<- *(esi+0xc) 7/r32/edi <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20836" class="LineNr">20836 </span><span class="Constant">$populate-mu-type-sizes-in-type:end</span>: +<span id="L20837" class="LineNr">20837 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20838" class="LineNr">20838 </span> 5f/pop-to-edi +<span id="L20839" class="LineNr">20839 </span> 5e/pop-to-esi +<span id="L20840" class="LineNr">20840 </span> 5a/pop-to-edx +<span id="L20841" class="LineNr">20841 </span> 59/pop-to-ecx +<span id="L20842" class="LineNr">20842 </span> 58/pop-to-eax +<span id="L20843" class="LineNr">20843 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20844" class="LineNr">20844 </span> 89/<- %esp 5/r32/ebp +<span id="L20845" class="LineNr">20845 </span> 5d/pop-to-ebp +<span id="L20846" class="LineNr">20846 </span> c3/return +<span id="L20847" class="LineNr">20847 </span> +<span id="L20848" class="LineNr">20848 </span><span class="Constant">$populate-mu-type-sizes-in-type:abort</span>: +<span id="L20849" class="LineNr">20849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"cycle in type definitions\n"</span>) +<span id="L20850" class="LineNr">20850 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L20851" class="LineNr">20851 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L20852" class="LineNr">20852 </span> <span class="subxComment"># never gets here</span> +<span id="L20853" class="LineNr">20853 </span> +<span id="L20854" class="LineNr">20854 </span><span class="subxComment"># Analogous to size-of, except we need to compute what size-of can just read</span> +<span id="L20855" class="LineNr">20855 </span><span class="subxComment"># off the right data structures.</span> +<span id="L20856" class="LineNr">20856 </span><span class="subxFunction">compute-size-of-var</span>: <span class="subxComment"># in: (addr var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> +<span id="L20857" class="LineNr">20857 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20858" class="LineNr">20858 </span> 55/push-ebp +<span id="L20859" class="LineNr">20859 </span> 89/<- %ebp 4/r32/esp +<span id="L20860" class="LineNr">20860 </span> <span class="subxS1Comment"># . push registers</span> +<span id="L20861" class="LineNr">20861 </span> 51/push-ecx +<span id="L20862" class="LineNr">20862 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L20863" class="LineNr">20863 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20864" class="LineNr">20864 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L20865" class="LineNr">20865 </span> 89/<- %ecx 0/r32/eax +<span id="L20866" class="LineNr">20866 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L20867" class="LineNr">20867 </span> { +<span id="L20868" class="LineNr">20868 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L20869" class="LineNr">20869 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20870" class="LineNr">20870 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L20871" class="LineNr">20871 </span> 89/<- %ecx 0/r32/eax +<span id="L20872" class="LineNr">20872 </span> } +<span id="L20873" class="LineNr">20873 </span> <span class="subxComment"># TODO: ensure t is an atom</span> +<span id="L20874" class="LineNr">20874 </span> (<a href='mu.subx.html#L20883'>compute-size-of-type-id</a> *(ecx+4) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L20875" class="LineNr">20875 </span><span class="Constant">$compute-size-of-var:end</span>: +<span id="L20876" class="LineNr">20876 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20877" class="LineNr">20877 </span> 59/pop-to-ecx +<span id="L20878" class="LineNr">20878 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20879" class="LineNr">20879 </span> 89/<- %esp 5/r32/ebp +<span id="L20880" class="LineNr">20880 </span> 5d/pop-to-ebp +<span id="L20881" class="LineNr">20881 </span> c3/return +<span id="L20882" class="LineNr">20882 </span> +<span id="L20883" class="LineNr">20883 </span><span class="subxFunction">compute-size-of-type-id</span>: <span class="subxComment"># t: type-id, err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> +<span id="L20884" class="LineNr">20884 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20885" class="LineNr">20885 </span> 55/push-ebp +<span id="L20886" class="LineNr">20886 </span> 89/<- %ebp 4/r32/esp +<span id="L20887" class="LineNr">20887 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20888" class="LineNr">20888 </span> 51/push-ecx +<span id="L20889" class="LineNr">20889 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L20890" class="LineNr">20890 </span> 68/push 0/imm32 +<span id="L20891" class="LineNr">20891 </span> 68/push 0/imm32 +<span id="L20892" class="LineNr">20892 </span> 89/<- %ecx 4/r32/esp +<span id="L20893" class="LineNr">20893 </span> <span class="subxComment"># eax = t</span> +<span id="L20894" class="LineNr">20894 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L20895" class="LineNr">20895 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L20896" class="LineNr">20896 </span> 3d/compare-eax-and 0/imm32/literal +<span id="L20897" class="LineNr">20897 </span> 0f 84/jump-if-= $compute-size-of-type-id:end/disp32 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L20898" class="LineNr">20898 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L20899" class="LineNr">20899 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L20900" class="LineNr">20900 </span> { +<span id="L20901" class="LineNr">20901 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20902" class="LineNr">20902 </span> b8/copy-to-eax 4/imm32 +<span id="L20903" class="LineNr">20903 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L20904" class="LineNr">20904 </span> } +<span id="L20905" class="LineNr">20905 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L20906" class="LineNr">20906 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L20907" class="LineNr">20907 </span> { +<span id="L20908" class="LineNr">20908 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20909" class="LineNr">20909 </span> b8/copy-to-eax 8/imm32 +<span id="L20910" class="LineNr">20910 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L20911" class="LineNr">20911 </span> } +<span id="L20912" class="LineNr">20912 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L20913" class="LineNr">20913 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L20914" class="LineNr">20914 </span> { +<span id="L20915" class="LineNr">20915 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20916" class="LineNr">20916 </span> b8/copy-to-eax 8/imm32 +<span id="L20917" class="LineNr">20917 </span> eb/jump $compute-size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L20918" class="LineNr">20918 </span> } +<span id="L20919" class="LineNr">20919 </span> <span class="subxComment"># if t is a user-defined type, compute its size</span> +<span id="L20920" class="LineNr">20920 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L20921" class="LineNr">20921 </span> (<a href='mu.subx.html#L20308'>find-typeinfo</a> %eax %ecx) +<span id="L20922" class="LineNr">20922 </span> { +<span id="L20923" class="LineNr">20923 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L20924" class="LineNr">20924 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L20925" class="LineNr">20925 </span><span class="Constant">$compute-size-of-type-id:user-defined</span>: +<span id="L20926" class="LineNr">20926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L20927" class="LineNr">20927 </span> (<a href='mu.subx.html#L20782'>populate-mu-type-sizes-in-type</a> %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L20928" class="LineNr">20928 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L20929" class="LineNr">20929 </span> eb/jump $compute-size-of-type-id:end/disp8 +<span id="L20930" class="LineNr">20930 </span> } +<span id="L20931" class="LineNr">20931 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L20932" class="LineNr">20932 </span> b8/copy-to-eax 4/imm32 +<span id="L20933" class="LineNr">20933 </span><span class="Constant">$compute-size-of-type-id:end</span>: +<span id="L20934" class="LineNr">20934 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L20935" class="LineNr">20935 </span> 81 0/subop/add %esp 8/imm32 +<span id="L20936" class="LineNr">20936 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L20937" class="LineNr">20937 </span> 59/pop-to-ecx +<span id="L20938" class="LineNr">20938 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L20939" class="LineNr">20939 </span> 89/<- %esp 5/r32/ebp +<span id="L20940" class="LineNr">20940 </span> 5d/pop-to-ebp +<span id="L20941" class="LineNr">20941 </span> c3/return +<span id="L20942" class="LineNr">20942 </span> +<span id="L20943" class="LineNr">20943 </span><span class="subxComment"># at this point we have total sizes for all user-defined types</span> +<span id="L20944" class="LineNr">20944 </span><span class="subxComment"># compute offsets for each element</span> +<span id="L20945" class="LineNr">20945 </span><span class="subxComment"># complication: fields may be out of order</span> +<span id="L20946" class="LineNr">20946 </span><span class="subxFunction">populate-mu-type-offsets</span>: <span class="subxComment"># in: (addr typeinfo), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L20947" class="LineNr">20947 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L20948" class="LineNr">20948 </span> 55/push-ebp +<span id="L20949" class="LineNr">20949 </span> 89/<- %ebp 4/r32/esp +<span id="L20950" class="LineNr">20950 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L20951" class="LineNr">20951 </span> 50/push-eax +<span id="L20952" class="LineNr">20952 </span> 51/push-ecx +<span id="L20953" class="LineNr">20953 </span> 52/push-edx +<span id="L20954" class="LineNr">20954 </span> 53/push-ebx +<span id="L20955" class="LineNr">20955 </span> 56/push-esi +<span id="L20956" class="LineNr">20956 </span> 57/push-edi +<span id="L20957" class="LineNr">20957 </span><span class="CommentedCode">#? (dump-typeinfos "aaa\n")</span> +<span id="L20958" class="LineNr">20958 </span> <span class="subxComment"># var curr-offset/edi: int = 0</span> +<span id="L20959" class="LineNr">20959 </span> bf/copy-to-edi 0/imm32 +<span id="L20960" class="LineNr">20960 </span> <span class="subxComment"># var table/ecx: (addr table string_key (handle typeinfo-entry)) = lookup(in->fields)</span> +<span id="L20961" class="LineNr">20961 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L20962" class="LineNr">20962 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L20963" class="LineNr">20963 </span> 89/<- %ecx 0/r32/eax +<span id="L20964" class="LineNr">20964 </span> <span class="subxComment"># var num-elems/edx: int = table->write / Typeinfo-fields-row-size</span> +<span id="L20965" class="LineNr">20965 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L20966" class="LineNr">20966 </span> c1 5/subop/shift-right-logical %edx 4/imm8 +<span id="L20967" class="LineNr">20967 </span> <span class="subxComment"># var i/ebx: int = 0</span> +<span id="L20968" class="LineNr">20968 </span> bb/copy-to-ebx 0/imm32 +<span id="L20969" class="LineNr">20969 </span> { +<span id="L20970" class="LineNr">20970 </span><span class="Constant">$populate-mu-type-offsets:loop</span>: +<span id="L20971" class="LineNr">20971 </span> 39/compare %ebx 2/r32/edx +<span id="L20972" class="LineNr">20972 </span> 0f 8d/jump-if->= <span class="Constant">break</span>/disp32 +<span id="L20973" class="LineNr">20973 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up index ")</span> +<span id="L20974" class="LineNr">20974 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L20975" class="LineNr">20975 </span><span class="CommentedCode">#? (write-buffered Stderr " in ")</span> +<span id="L20976" class="LineNr">20976 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+8))</span> +<span id="L20977" class="LineNr">20977 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L20978" class="LineNr">20978 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L20979" class="LineNr">20979 </span> <span class="subxComment"># var v/esi: (addr typeinfo-entry)</span> +<span id="L20980" class="LineNr">20980 </span> (<a href='mu.subx.html#L21013'>locate-typeinfo-entry-with-index</a> %ecx %ebx *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L20981" class="LineNr">20981 </span> 89/<- %esi 0/r32/eax +<span id="L20982" class="LineNr">20982 </span> <span class="subxComment"># if v is null, silently move on; we'll emit a nice error message while type-checking</span> +<span id="L20983" class="LineNr">20983 </span> 81 7/subop/compare %esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20984" class="LineNr">20984 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L20985" class="LineNr">20985 </span> <span class="subxComment"># if (v->input-var == 0) silently ignore v; we'll emit a nice error message while type-checking</span> +<span id="L20986" class="LineNr">20986 </span> 81 7/subop/compare *esi 0/imm32 <span class="subxComment"># Typeinfo-entry-input-var</span> +<span id="L20987" class="LineNr">20987 </span> 74/jump-if-= $populate-mu-type-offsets:end/disp8 +<span id="L20988" class="LineNr">20988 </span> <span class="subxComment"># v->output-var->offset = curr-offset</span> +<span id="L20989" class="LineNr">20989 </span> <span class="subxS1Comment"># . eax: (addr var)</span> +<span id="L20990" class="LineNr">20990 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Typeinfo-entry-output-var Typeinfo-entry-output-var => eax</span> +<span id="L20991" class="LineNr">20991 </span> 89/<- *(eax+0x14) 7/r32/edi <span class="subxComment"># Var-offset</span> +<span id="L20992" class="LineNr">20992 </span> <span class="subxComment"># curr-offset += size-of(v->input-var)</span> +<span id="L20993" class="LineNr">20993 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L20994" class="LineNr">20994 </span> (<a href='mu.subx.html#L26551'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L20995" class="LineNr">20995 </span> 01/add-to %edi 0/r32/eax +<span id="L20996" class="LineNr">20996 </span> <span class="subxComment"># ++i</span> +<span id="L20997" class="LineNr">20997 </span> 43/increment-ebx +<span id="L20998" class="LineNr">20998 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L20999" class="LineNr">20999 </span> } +<span id="L21000" class="LineNr">21000 </span><span class="Constant">$populate-mu-type-offsets:end</span>: +<span id="L21001" class="LineNr">21001 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21002" class="LineNr">21002 </span> 5f/pop-to-edi +<span id="L21003" class="LineNr">21003 </span> 5e/pop-to-esi +<span id="L21004" class="LineNr">21004 </span> 5b/pop-to-ebx +<span id="L21005" class="LineNr">21005 </span> 5a/pop-to-edx +<span id="L21006" class="LineNr">21006 </span> 59/pop-to-ecx +<span id="L21007" class="LineNr">21007 </span> 58/pop-to-eax +<span id="L21008" class="LineNr">21008 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21009" class="LineNr">21009 </span> 89/<- %esp 5/r32/ebp +<span id="L21010" class="LineNr">21010 </span> 5d/pop-to-ebp +<span id="L21011" class="LineNr">21011 </span> c3/return +<span id="L21012" class="LineNr">21012 </span> +<span id="L21013" class="LineNr">21013 </span><span class="subxFunction">locate-typeinfo-entry-with-index</span>: <span class="subxComment"># table: (addr table (handle array byte) (handle typeinfo-entry)), idx: int, err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: (addr typeinfo-entry)</span> +<span id="L21014" class="LineNr">21014 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21015" class="LineNr">21015 </span> 55/push-ebp +<span id="L21016" class="LineNr">21016 </span> 89/<- %ebp 4/r32/esp +<span id="L21017" class="LineNr">21017 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21018" class="LineNr">21018 </span> 51/push-ecx +<span id="L21019" class="LineNr">21019 </span> 52/push-edx +<span id="L21020" class="LineNr">21020 </span> 53/push-ebx +<span id="L21021" class="LineNr">21021 </span> 56/push-esi +<span id="L21022" class="LineNr">21022 </span> 57/push-edi +<span id="L21023" class="LineNr">21023 </span> <span class="subxComment"># esi = table</span> +<span id="L21024" class="LineNr">21024 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21025" class="LineNr">21025 </span> <span class="subxComment"># var curr/ecx: (addr row (handle array byte) (handle typeinfo-entry)) = table->data</span> +<span id="L21026" class="LineNr">21026 </span> 8d/copy-address *(esi+0xc) 1/r32/ecx +<span id="L21027" class="LineNr">21027 </span> <span class="subxComment"># var max/edx: (addr byte) = &table->data[table->write]</span> +<span id="L21028" class="LineNr">21028 </span> 8b/-> *esi 2/r32/edx +<span id="L21029" class="LineNr">21029 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L21030" class="LineNr">21030 </span> { +<span id="L21031" class="LineNr">21031 </span><span class="Constant">$locate-typeinfo-entry-with-index:loop</span>: +<span id="L21032" class="LineNr">21032 </span> 39/compare %ecx 2/r32/edx +<span id="L21033" class="LineNr">21033 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 +<span id="L21034" class="LineNr">21034 </span> <span class="subxComment"># var v/eax: (addr typeinfo-entry)</span> +<span id="L21035" class="LineNr">21035 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># => eax</span> +<span id="L21036" class="LineNr">21036 </span> <span class="subxComment"># if (v->index == idx) return v</span> +<span id="L21037" class="LineNr">21037 </span> 8b/-> *(eax+8) 3/r32/ebx <span class="subxComment"># Typeinfo-entry-index</span> +<span id="L21038" class="LineNr">21038 </span><span class="CommentedCode">#? (write-buffered Stderr "comparing ")</span> +<span id="L21039" class="LineNr">21039 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L21040" class="LineNr">21040 </span><span class="CommentedCode">#? (write-buffered Stderr " and ")</span> +<span id="L21041" class="LineNr">21041 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ebp+0xc))</span> +<span id="L21042" class="LineNr">21042 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21043" class="LineNr">21043 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21044" class="LineNr">21044 </span> 39/compare *(ebp+0xc) 3/r32/ebx +<span id="L21045" class="LineNr">21045 </span> 74/jump-if-= $locate-typeinfo-entry-with-index:end/disp8 +<span id="L21046" class="LineNr">21046 </span> <span class="subxComment"># curr += Typeinfo-entry-size</span> +<span id="L21047" class="LineNr">21047 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-entry-size</span> +<span id="L21048" class="LineNr">21048 </span> <span class="subxComment">#</span> +<span id="L21049" class="LineNr">21049 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L21050" class="LineNr">21050 </span> } +<span id="L21051" class="LineNr">21051 </span> <span class="subxComment"># return 0</span> +<span id="L21052" class="LineNr">21052 </span> b8/copy-to-eax 0/imm32 +<span id="L21053" class="LineNr">21053 </span><span class="Constant">$locate-typeinfo-entry-with-index:end</span>: +<span id="L21054" class="LineNr">21054 </span><span class="CommentedCode">#? (write-buffered Stderr "returning ")</span> +<span id="L21055" class="LineNr">21055 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L21056" class="LineNr">21056 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21057" class="LineNr">21057 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21058" class="LineNr">21058 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21059" class="LineNr">21059 </span> 5f/pop-to-edi +<span id="L21060" class="LineNr">21060 </span> 5e/pop-to-esi +<span id="L21061" class="LineNr">21061 </span> 5b/pop-to-ebx +<span id="L21062" class="LineNr">21062 </span> 5a/pop-to-edx +<span id="L21063" class="LineNr">21063 </span> 59/pop-to-ecx +<span id="L21064" class="LineNr">21064 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21065" class="LineNr">21065 </span> 89/<- %esp 5/r32/ebp +<span id="L21066" class="LineNr">21066 </span> 5d/pop-to-ebp +<span id="L21067" class="LineNr">21067 </span> c3/return +<span id="L21068" class="LineNr">21068 </span> +<span id="L21069" class="LineNr">21069 </span><span class="subxFunction">dump-typeinfos</span>: <span class="subxComment"># hdr: (addr array byte)</span> +<span id="L21070" class="LineNr">21070 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21071" class="LineNr">21071 </span> 55/push-ebp +<span id="L21072" class="LineNr">21072 </span> 89/<- %ebp 4/r32/esp +<span id="L21073" class="LineNr">21073 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21074" class="LineNr">21074 </span> 50/push-eax +<span id="L21075" class="LineNr">21075 </span> <span class="subxComment">#</span> +<span id="L21076" class="LineNr">21076 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21077" class="LineNr">21077 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21078" class="LineNr">21078 </span> <span class="subxComment"># var curr/eax: (addr typeinfo) = lookup(Program->types)</span> +<span id="L21079" class="LineNr">21079 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-types *_Program-types->payload) <span class="subxComment"># => eax</span> +<span id="L21080" class="LineNr">21080 </span> { +<span id="L21081" class="LineNr">21081 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21082" class="LineNr">21082 </span> 3d/compare-eax-and 0/imm32 +<span id="L21083" class="LineNr">21083 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21084" class="LineNr">21084 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"---\n"</span>) +<span id="L21085" class="LineNr">21085 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21086" class="LineNr">21086 </span> (<a href='mu.subx.html#L21099'>dump-typeinfo</a> %eax) +<span id="L21087" class="LineNr">21087 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L21088" class="LineNr">21088 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Typeinfo-next Typeinfo-next => eax</span> +<span id="L21089" class="LineNr">21089 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L21090" class="LineNr">21090 </span> } +<span id="L21091" class="LineNr">21091 </span><span class="Constant">$dump-typeinfos:end</span>: +<span id="L21092" class="LineNr">21092 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21093" class="LineNr">21093 </span> 58/pop-to-eax +<span id="L21094" class="LineNr">21094 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21095" class="LineNr">21095 </span> 89/<- %esp 5/r32/ebp +<span id="L21096" class="LineNr">21096 </span> 5d/pop-to-ebp +<span id="L21097" class="LineNr">21097 </span> c3/return +<span id="L21098" class="LineNr">21098 </span> +<span id="L21099" class="LineNr">21099 </span><span class="subxFunction">dump-typeinfo</span>: <span class="subxComment"># in: (addr typeinfo)</span> +<span id="L21100" class="LineNr">21100 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21101" class="LineNr">21101 </span> 55/push-ebp +<span id="L21102" class="LineNr">21102 </span> 89/<- %ebp 4/r32/esp +<span id="L21103" class="LineNr">21103 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21104" class="LineNr">21104 </span> 50/push-eax +<span id="L21105" class="LineNr">21105 </span> 51/push-ecx +<span id="L21106" class="LineNr">21106 </span> 52/push-edx +<span id="L21107" class="LineNr">21107 </span> 53/push-ebx +<span id="L21108" class="LineNr">21108 </span> 56/push-esi +<span id="L21109" class="LineNr">21109 </span> 57/push-edi +<span id="L21110" class="LineNr">21110 </span> <span class="subxComment"># esi = in</span> +<span id="L21111" class="LineNr">21111 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21112" class="LineNr">21112 </span> <span class="subxComment"># var table/ecx: (addr table (handle array byte) (handle typeinfo-entry)) = lookup(T->fields)</span> +<span id="L21113" class="LineNr">21113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L21114" class="LineNr">21114 </span> 89/<- %ecx 0/r32/eax +<span id="L21115" class="LineNr">21115 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"id:"</span>) +<span id="L21116" class="LineNr">21116 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *esi) +<span id="L21117" class="LineNr">21117 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"\n"</span>) +<span id="L21118" class="LineNr">21118 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"fields @ "</span>) +<span id="L21119" class="LineNr">21119 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %ecx) +<span id="L21120" class="LineNr">21120 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21121" class="LineNr">21121 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21122" class="LineNr">21122 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='108write.subx.html#L24'>write</a>: "</span>) +<span id="L21123" class="LineNr">21123 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) +<span id="L21124" class="LineNr">21124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21125" class="LineNr">21125 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21126" class="LineNr">21126 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='111read.subx.html#L48'>read</a>: "</span>) +<span id="L21127" class="LineNr">21127 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+4)) +<span id="L21128" class="LineNr">21128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21129" class="LineNr">21129 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21130" class="LineNr">21130 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" <a href='307size.subx.html#L5'>size</a>: "</span>) +<span id="L21131" class="LineNr">21131 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) +<span id="L21132" class="LineNr">21132 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21133" class="LineNr">21133 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21134" class="LineNr">21134 </span> <span class="subxComment"># var table-size/edx: int = table->write</span> +<span id="L21135" class="LineNr">21135 </span> 8b/-> *ecx 2/r32/edx <span class="subxComment"># stream-write</span> +<span id="L21136" class="LineNr">21136 </span> <span class="subxComment"># var curr/ecx: (addr table_row) = table->data</span> +<span id="L21137" class="LineNr">21137 </span> 8d/copy-address *(ecx+0xc) 1/r32/ecx +<span id="L21138" class="LineNr">21138 </span> <span class="subxComment"># var max/edx: (addr table_row) = table->data + table->write</span> +<span id="L21139" class="LineNr">21139 </span> 8d/copy-address *(ecx+edx) 2/r32/edx +<span id="L21140" class="LineNr">21140 </span> { +<span id="L21141" class="LineNr">21141 </span><span class="Constant">$dump-typeinfo:loop</span>: +<span id="L21142" class="LineNr">21142 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L21143" class="LineNr">21143 </span> 39/compare %ecx 2/r32/edx +<span id="L21144" class="LineNr">21144 </span> 0f 83/jump-if-addr>= <span class="Constant">break</span>/disp32 +<span id="L21145" class="LineNr">21145 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" row:\n"</span>) +<span id="L21146" class="LineNr">21146 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" key: "</span>) +<span id="L21147" class="LineNr">21147 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *ecx) +<span id="L21148" class="LineNr">21148 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) +<span id="L21149" class="LineNr">21149 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+4)) +<span id="L21150" class="LineNr">21150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" = '"</span>) +<span id="L21151" class="LineNr">21151 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) +<span id="L21152" class="LineNr">21152 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21153" class="LineNr">21153 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"' @ "</span>) +<span id="L21154" class="LineNr">21154 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21155" class="LineNr">21155 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21156" class="LineNr">21156 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21157" class="LineNr">21157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" value: "</span>) +<span id="L21158" class="LineNr">21158 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+8)) +<span id="L21159" class="LineNr">21159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) +<span id="L21160" class="LineNr">21160 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ecx+0xc)) +<span id="L21161" class="LineNr">21161 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" = typeinfo-entry@"</span>) +<span id="L21162" class="LineNr">21162 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L21163" class="LineNr">21163 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21164" class="LineNr">21164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21165" class="LineNr">21165 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21166" class="LineNr">21166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" input var@"</span>) +<span id="L21167" class="LineNr">21167 </span> (<a href='mu.subx.html#L21195'>dump-var</a> 5 %eax) +<span id="L21168" class="LineNr">21168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) +<span id="L21169" class="LineNr">21169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" index: "</span>) +<span id="L21170" class="LineNr">21170 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(eax+8)) +<span id="L21171" class="LineNr">21171 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21172" class="LineNr">21172 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21173" class="LineNr">21173 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">" output var@"</span>) +<span id="L21174" class="LineNr">21174 </span> 8d/copy-address *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-entry-output-var</span> +<span id="L21175" class="LineNr">21175 </span> (<a href='mu.subx.html#L21195'>dump-var</a> 5 %eax) +<span id="L21176" class="LineNr">21176 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21177" class="LineNr">21177 </span> <span class="subxComment"># curr += row-size</span> +<span id="L21178" class="LineNr">21178 </span> 81 0/subop/add %ecx 0x10/imm32 <span class="subxComment"># Typeinfo-fields-row-size</span> +<span id="L21179" class="LineNr">21179 </span> <span class="subxComment">#</span> +<span id="L21180" class="LineNr">21180 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21181" class="LineNr">21181 </span> } +<span id="L21182" class="LineNr">21182 </span><span class="Constant">$dump-typeinfo:end</span>: +<span id="L21183" class="LineNr">21183 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21184" class="LineNr">21184 </span> 5f/pop-to-edi +<span id="L21185" class="LineNr">21185 </span> 5e/pop-to-esi +<span id="L21186" class="LineNr">21186 </span> 5b/pop-to-ebx +<span id="L21187" class="LineNr">21187 </span> 5a/pop-to-edx +<span id="L21188" class="LineNr">21188 </span> 59/pop-to-ecx +<span id="L21189" class="LineNr">21189 </span> 58/pop-to-eax +<span id="L21190" class="LineNr">21190 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21191" class="LineNr">21191 </span> 89/<- %esp 5/r32/ebp +<span id="L21192" class="LineNr">21192 </span> 5d/pop-to-ebp +<span id="L21193" class="LineNr">21193 </span> c3/return +<span id="L21194" class="LineNr">21194 </span> +<span id="L21195" class="LineNr">21195 </span><span class="subxFunction">dump-var</span>: <span class="subxComment"># indent: int, v: (addr handle var)</span> +<span id="L21196" class="LineNr">21196 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21197" class="LineNr">21197 </span> 55/push-ebp +<span id="L21198" class="LineNr">21198 </span> 89/<- %ebp 4/r32/esp +<span id="L21199" class="LineNr">21199 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21200" class="LineNr">21200 </span> 50/push-eax +<span id="L21201" class="LineNr">21201 </span> 53/push-ebx +<span id="L21202" class="LineNr">21202 </span> <span class="subxComment"># eax = v</span> +<span id="L21203" class="LineNr">21203 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21204" class="LineNr">21204 </span> <span class="subxComment">#</span> +<span id="L21205" class="LineNr">21205 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *eax) +<span id="L21206" class="LineNr">21206 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) +<span id="L21207" class="LineNr">21207 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(eax+4)) +<span id="L21208" class="LineNr">21208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"->"</span>) +<span id="L21209" class="LineNr">21209 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) +<span id="L21210" class="LineNr">21210 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21211" class="LineNr">21211 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21212" class="LineNr">21212 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21213" class="LineNr">21213 </span> { +<span id="L21214" class="LineNr">21214 </span> 3d/compare-eax-and 0/imm32 +<span id="L21215" class="LineNr">21215 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21216" class="LineNr">21216 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21217" class="LineNr">21217 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"name: "</span>) +<span id="L21218" class="LineNr">21218 </span> 89/<- %ebx 0/r32/eax +<span id="L21219" class="LineNr">21219 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *ebx) <span class="subxComment"># Var-name</span> +<span id="L21220" class="LineNr">21220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) +<span id="L21221" class="LineNr">21221 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+4)) <span class="subxComment"># Var-name</span> +<span id="L21222" class="LineNr">21222 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"->"</span>) +<span id="L21223" class="LineNr">21223 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name</span> +<span id="L21224" class="LineNr">21224 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21225" class="LineNr">21225 </span> { +<span id="L21226" class="LineNr">21226 </span> 3d/compare-eax-and 0/imm32 +<span id="L21227" class="LineNr">21227 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21228" class="LineNr">21228 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L21229" class="LineNr">21229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21230" class="LineNr">21230 </span> } +<span id="L21231" class="LineNr">21231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21232" class="LineNr">21232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21233" class="LineNr">21233 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21234" class="LineNr">21234 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"block depth: "</span>) +<span id="L21235" class="LineNr">21235 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x10)) <span class="subxComment"># Var-block-depth</span> +<span id="L21236" class="LineNr">21236 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21237" class="LineNr">21237 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21238" class="LineNr">21238 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21239" class="LineNr">21239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"stack offset: "</span>) +<span id="L21240" class="LineNr">21240 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x14)) <span class="subxComment"># Var-offset</span> +<span id="L21241" class="LineNr">21241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21242" class="LineNr">21242 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21243" class="LineNr">21243 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebp+8)) +<span id="L21244" class="LineNr">21244 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"reg: "</span>) +<span id="L21245" class="LineNr">21245 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x18)) <span class="subxComment"># Var-register</span> +<span id="L21246" class="LineNr">21246 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">","</span>) +<span id="L21247" class="LineNr">21247 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> *(ebx+0x1c)) <span class="subxComment"># Var-register</span> +<span id="L21248" class="LineNr">21248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"->"</span>) +<span id="L21249" class="LineNr">21249 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21250" class="LineNr">21250 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register</span> +<span id="L21251" class="LineNr">21251 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21252" class="LineNr">21252 </span> { +<span id="L21253" class="LineNr">21253 </span> 3d/compare-eax-and 0/imm32 +<span id="L21254" class="LineNr">21254 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21255" class="LineNr">21255 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L21256" class="LineNr">21256 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> %eax) +<span id="L21257" class="LineNr">21257 </span> } +<span id="L21258" class="LineNr">21258 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L21259" class="LineNr">21259 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L21260" class="LineNr">21260 </span> } +<span id="L21261" class="LineNr">21261 </span><span class="Constant">$dump-var:end</span>: +<span id="L21262" class="LineNr">21262 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21263" class="LineNr">21263 </span> 5b/pop-to-ebx +<span id="L21264" class="LineNr">21264 </span> 58/pop-to-eax +<span id="L21265" class="LineNr">21265 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21266" class="LineNr">21266 </span> 89/<- %esp 5/r32/ebp +<span id="L21267" class="LineNr">21267 </span> 5d/pop-to-ebp +<span id="L21268" class="LineNr">21268 </span> c3/return +<span id="L21269" class="LineNr">21269 </span> +<span id="L21270" class="LineNr">21270 </span><span class="subxComment">#######################################################</span> +<span id="L21271" class="LineNr">21271 </span><span class="subxComment"># Type-checking</span> +<span id="L21272" class="LineNr">21272 </span><span class="subxComment">#######################################################</span> +<span id="L21273" class="LineNr">21273 </span> +<span id="L21274" class="LineNr">21274 </span><span class="subxFunction">check-mu-types</span>: <span class="subxComment"># err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21275" class="LineNr">21275 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21276" class="LineNr">21276 </span> 55/push-ebp +<span id="L21277" class="LineNr">21277 </span> 89/<- %ebp 4/r32/esp +<span id="L21278" class="LineNr">21278 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21279" class="LineNr">21279 </span> 50/push-eax +<span id="L21280" class="LineNr">21280 </span> <span class="subxComment"># var curr/eax: (addr function) = lookup(Program->functions)</span> +<span id="L21281" class="LineNr">21281 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L21282" class="LineNr">21282 </span> { +<span id="L21283" class="LineNr">21283 </span><span class="Constant">$check-mu-types:loop</span>: +<span id="L21284" class="LineNr">21284 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21285" class="LineNr">21285 </span> 3d/compare-eax-and 0/imm32 +<span id="L21286" class="LineNr">21286 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21287" class="Folded">21287 </span><span class="Folded">+-- 8 lines: #? # dump curr->name ------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L21295" class="LineNr">21295 </span> (<a href='mu.subx.html#L21308'>check-mu-function</a> %eax *(ebp+8) *(ebp+0xc)) +<span id="L21296" class="LineNr">21296 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L21297" class="LineNr">21297 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L21298" class="LineNr">21298 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21299" class="LineNr">21299 </span> } +<span id="L21300" class="LineNr">21300 </span><span class="Constant">$check-mu-types:end</span>: +<span id="L21301" class="LineNr">21301 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21302" class="LineNr">21302 </span> 58/pop-to-eax +<span id="L21303" class="LineNr">21303 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21304" class="LineNr">21304 </span> 89/<- %esp 5/r32/ebp +<span id="L21305" class="LineNr">21305 </span> 5d/pop-to-ebp +<span id="L21306" class="LineNr">21306 </span> c3/return +<span id="L21307" class="LineNr">21307 </span> +<span id="L21308" class="LineNr">21308 </span><span class="subxFunction">check-mu-function</span>: <span class="subxComment"># fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21309" class="LineNr">21309 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21310" class="LineNr">21310 </span> 55/push-ebp +<span id="L21311" class="LineNr">21311 </span> 89/<- %ebp 4/r32/esp +<span id="L21312" class="LineNr">21312 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21313" class="LineNr">21313 </span> 50/push-eax +<span id="L21314" class="LineNr">21314 </span> 56/push-esi +<span id="L21315" class="LineNr">21315 </span> <span class="subxComment"># esi = f</span> +<span id="L21316" class="LineNr">21316 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21317" class="LineNr">21317 </span> <span class="subxComment"># outputs</span> +<span id="L21318" class="LineNr">21318 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x10) *(esi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L21319" class="LineNr">21319 </span> (<a href='mu.subx.html#L23351'>check-all-unique-registers</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21320" class="LineNr">21320 </span> <span class="subxComment"># body</span> +<span id="L21321" class="LineNr">21321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L21322" class="LineNr">21322 </span> (<a href='mu.subx.html#L21338'>check-mu-block</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10)) +<span id="L21323" class="LineNr">21323 </span> <span class="subxComment"># if function has no outputs, we're done</span> +<span id="L21324" class="LineNr">21324 </span> 81 7/subop/compare *(esi+0x10) 0/imm32 +<span id="L21325" class="LineNr">21325 </span> 74/jump-if-= $check-mu-function:end/disp8 +<span id="L21326" class="LineNr">21326 </span> <span class="subxComment"># some final checks on body</span> +<span id="L21327" class="LineNr">21327 </span> (<a href='mu.subx.html#L23564'>check-final-stmt-is-return</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21328" class="LineNr">21328 </span> (<a href='mu.subx.html#L23616'>check-no-breaks</a> %eax %esi *(ebp+0xc) *(ebp+0x10)) +<span id="L21329" class="LineNr">21329 </span><span class="Constant">$check-mu-function:end</span>: +<span id="L21330" class="LineNr">21330 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21331" class="LineNr">21331 </span> 5e/pop-to-esi +<span id="L21332" class="LineNr">21332 </span> 58/pop-to-eax +<span id="L21333" class="LineNr">21333 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21334" class="LineNr">21334 </span> 89/<- %esp 5/r32/ebp +<span id="L21335" class="LineNr">21335 </span> 5d/pop-to-ebp +<span id="L21336" class="LineNr">21336 </span> c3/return +<span id="L21337" class="LineNr">21337 </span> +<span id="L21338" class="LineNr">21338 </span><span class="subxFunction">check-mu-block</span>: <span class="subxComment"># block: (addr block), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21339" class="LineNr">21339 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21340" class="LineNr">21340 </span> 55/push-ebp +<span id="L21341" class="LineNr">21341 </span> 89/<- %ebp 4/r32/esp +<span id="L21342" class="LineNr">21342 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21343" class="LineNr">21343 </span> 50/push-eax +<span id="L21344" class="LineNr">21344 </span> <span class="subxComment"># eax = block</span> +<span id="L21345" class="LineNr">21345 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21346" class="LineNr">21346 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L21347" class="LineNr">21347 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L21348" class="LineNr">21348 </span> <span class="subxComment">#</span> +<span id="L21349" class="LineNr">21349 </span> { +<span id="L21350" class="LineNr">21350 </span><span class="Constant">$check-mu-block:check-empty</span>: +<span id="L21351" class="LineNr">21351 </span> 3d/compare-eax-and 0/imm32 +<span id="L21352" class="LineNr">21352 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21353" class="LineNr">21353 </span> <span class="subxComment"># emit block->statements</span> +<span id="L21354" class="LineNr">21354 </span> (<a href='mu.subx.html#L21364'>check-mu-stmt-list</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21355" class="LineNr">21355 </span> } +<span id="L21356" class="LineNr">21356 </span><span class="Constant">$check-mu-block:end</span>: +<span id="L21357" class="LineNr">21357 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21358" class="LineNr">21358 </span> 58/pop-to-eax +<span id="L21359" class="LineNr">21359 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21360" class="LineNr">21360 </span> 89/<- %esp 5/r32/ebp +<span id="L21361" class="LineNr">21361 </span> 5d/pop-to-ebp +<span id="L21362" class="LineNr">21362 </span> c3/return +<span id="L21363" class="LineNr">21363 </span> +<span id="L21364" class="LineNr">21364 </span><span class="subxFunction">check-mu-stmt-list</span>: <span class="subxComment"># stmts: (addr list stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21365" class="LineNr">21365 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21366" class="LineNr">21366 </span> 55/push-ebp +<span id="L21367" class="LineNr">21367 </span> 89/<- %ebp 4/r32/esp +<span id="L21368" class="LineNr">21368 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21369" class="LineNr">21369 </span> 50/push-eax +<span id="L21370" class="LineNr">21370 </span> 56/push-esi +<span id="L21371" class="LineNr">21371 </span> <span class="subxComment"># esi = stmts</span> +<span id="L21372" class="LineNr">21372 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21373" class="LineNr">21373 </span> { +<span id="L21374" class="LineNr">21374 </span><span class="Constant">$check-mu-stmt-list:loop</span>: +<span id="L21375" class="LineNr">21375 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L21376" class="LineNr">21376 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L21377" class="LineNr">21377 </span> <span class="subxComment"># var curr-stmt/eax: (addr stmt) = lookup(stmts->value)</span> +<span id="L21378" class="LineNr">21378 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L21379" class="LineNr">21379 </span> { +<span id="L21380" class="LineNr">21380 </span><span class="Constant">$check-mu-stmt-list:check-for-block</span>: +<span id="L21381" class="LineNr">21381 </span> 81 7/subop/compare *eax 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L21382" class="LineNr">21382 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21383" class="LineNr">21383 </span><span class="Constant">$check-mu-stmt-list:block</span>: +<span id="L21384" class="LineNr">21384 </span> (<a href='mu.subx.html#L21338'>check-mu-block</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21385" class="LineNr">21385 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21386" class="LineNr">21386 </span> } +<span id="L21387" class="LineNr">21387 </span> { +<span id="L21388" class="LineNr">21388 </span><span class="Constant">$check-mu-stmt-list:check-for-stmt1</span>: +<span id="L21389" class="LineNr">21389 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L21390" class="LineNr">21390 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L21391" class="LineNr">21391 </span><span class="Constant">$check-mu-stmt-list:stmt1</span>: +<span id="L21392" class="LineNr">21392 </span> (<a href='mu.subx.html#L21418'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21393" class="LineNr">21393 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21394" class="LineNr">21394 </span> } +<span id="L21395" class="LineNr">21395 </span> { +<span id="L21396" class="LineNr">21396 </span><span class="Constant">$check-mu-stmt-list:check-for-reg-var-def</span>: +<span id="L21397" class="LineNr">21397 </span> 81 7/subop/compare *eax 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L21398" class="LineNr">21398 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L21399" class="LineNr">21399 </span><span class="Constant">$check-mu-stmt-list:reg-var-def</span>: +<span id="L21400" class="LineNr">21400 </span> (<a href='mu.subx.html#L21418'>check-mu-stmt</a> %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21401" class="LineNr">21401 </span> eb/jump $check-mu-stmt-list:continue/disp8 +<span id="L21402" class="LineNr">21402 </span> } +<span id="L21403" class="LineNr">21403 </span><span class="Constant">$check-mu-stmt-list:continue</span>: +<span id="L21404" class="LineNr">21404 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L21405" class="LineNr">21405 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L21406" class="LineNr">21406 </span> 89/<- %esi 0/r32/eax +<span id="L21407" class="LineNr">21407 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21408" class="LineNr">21408 </span> } +<span id="L21409" class="LineNr">21409 </span><span class="Constant">$check-mu-stmt-list:end</span>: +<span id="L21410" class="LineNr">21410 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21411" class="LineNr">21411 </span> 5e/pop-to-esi +<span id="L21412" class="LineNr">21412 </span> 58/pop-to-eax +<span id="L21413" class="LineNr">21413 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21414" class="LineNr">21414 </span> 89/<- %esp 5/r32/ebp +<span id="L21415" class="LineNr">21415 </span> 5d/pop-to-ebp +<span id="L21416" class="LineNr">21416 </span> c3/return +<span id="L21417" class="LineNr">21417 </span> +<span id="L21418" class="LineNr">21418 </span><span class="subxFunction">check-mu-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21419" class="LineNr">21419 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21420" class="LineNr">21420 </span> 55/push-ebp +<span id="L21421" class="LineNr">21421 </span> 89/<- %ebp 4/r32/esp +<span id="L21422" class="LineNr">21422 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21423" class="LineNr">21423 </span> 50/push-eax +<span id="L21424" class="LineNr">21424 </span> <span class="subxH1Comment"># - if stmt's operation matches a primitive, check against it</span> +<span id="L21425" class="LineNr">21425 </span> (<a href='mu.subx.html#L21471'>has-primitive-name?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21426" class="LineNr">21426 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21427" class="LineNr">21427 </span> { +<span id="L21428" class="LineNr">21428 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21429" class="LineNr">21429 </span> (<a href='mu.subx.html#L21563'>check-mu-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21430" class="LineNr">21430 </span> e9/jump $check-mu-stmt:end/disp32 +<span id="L21431" class="LineNr">21431 </span> } +<span id="L21432" class="LineNr">21432 </span> <span class="subxH1Comment"># - otherwise find a function to check against</span> +<span id="L21433" class="LineNr">21433 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->functions)</span> +<span id="L21434" class="LineNr">21434 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L21435" class="LineNr">21435 </span> (<a href='mu.subx.html#L35636'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21436" class="LineNr">21436 </span> 3d/compare-eax-and 0/imm32 +<span id="L21437" class="LineNr">21437 </span> { +<span id="L21438" class="LineNr">21438 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21439" class="LineNr">21439 </span> (<a href='mu.subx.html#L26094'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21440" class="LineNr">21440 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L21441" class="LineNr">21441 </span> } +<span id="L21442" class="LineNr">21442 </span> <span class="subxComment"># var f/eax: (addr function) = lookup(*Program->signatures)</span> +<span id="L21443" class="LineNr">21443 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-signatures *_Program-signatures->payload) <span class="subxComment"># => eax</span> +<span id="L21444" class="LineNr">21444 </span> (<a href='mu.subx.html#L35636'>find-matching-function</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21445" class="LineNr">21445 </span> 3d/compare-eax-and 0/imm32 +<span id="L21446" class="LineNr">21446 </span> { +<span id="L21447" class="LineNr">21447 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21448" class="LineNr">21448 </span> (<a href='mu.subx.html#L26094'>check-mu-call</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21449" class="LineNr">21449 </span> eb/jump $check-mu-stmt:end/disp8 +<span id="L21450" class="LineNr">21450 </span> } +<span id="L21451" class="LineNr">21451 </span> <span class="subxH1Comment"># - otherwise abort</span> +<span id="L21452" class="LineNr">21452 </span> e9/jump $check-mu-stmt:unknown-call/disp32 +<span id="L21453" class="LineNr">21453 </span><span class="Constant">$check-mu-stmt:end</span>: +<span id="L21454" class="LineNr">21454 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21455" class="LineNr">21455 </span> 58/pop-to-eax +<span id="L21456" class="LineNr">21456 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21457" class="LineNr">21457 </span> 89/<- %esp 5/r32/ebp +<span id="L21458" class="LineNr">21458 </span> 5d/pop-to-ebp +<span id="L21459" class="LineNr">21459 </span> c3/return +<span id="L21460" class="LineNr">21460 </span> +<span id="L21461" class="LineNr">21461 </span><span class="Constant">$check-mu-stmt:unknown-call</span>: +<span id="L21462" class="LineNr">21462 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"unknown function '"</span>) +<span id="L21463" class="LineNr">21463 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21464" class="LineNr">21464 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21465" class="LineNr">21465 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21466" class="LineNr">21466 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L21467" class="LineNr">21467 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21468" class="LineNr">21468 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21469" class="LineNr">21469 </span> <span class="subxComment"># never gets here</span> +<span id="L21470" class="LineNr">21470 </span> +<span id="L21471" class="LineNr">21471 </span><span class="subxFunction">has-primitive-name?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L21472" class="LineNr">21472 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21473" class="LineNr">21473 </span> 55/push-ebp +<span id="L21474" class="LineNr">21474 </span> 89/<- %ebp 4/r32/esp +<span id="L21475" class="LineNr">21475 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21476" class="LineNr">21476 </span> 51/push-ecx +<span id="L21477" class="LineNr">21477 </span> 56/push-esi +<span id="L21478" class="LineNr">21478 </span> <span class="subxComment"># var name/esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L21479" class="LineNr">21479 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21480" class="LineNr">21480 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21481" class="LineNr">21481 </span> 89/<- %esi 0/r32/eax +<span id="L21482" class="LineNr">21482 </span> <span class="subxComment"># if (name == "return") return true</span> +<span id="L21483" class="LineNr">21483 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L21484" class="LineNr">21484 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21485" class="LineNr">21485 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21486" class="LineNr">21486 </span> <span class="subxComment"># if (name == "get") return true</span> +<span id="L21487" class="LineNr">21487 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L21488" class="LineNr">21488 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21489" class="LineNr">21489 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21490" class="LineNr">21490 </span> <span class="subxComment"># if (name == "index") return true</span> +<span id="L21491" class="LineNr">21491 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L21492" class="LineNr">21492 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21493" class="LineNr">21493 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21494" class="LineNr">21494 </span> <span class="subxComment"># if (name == "length") return true</span> +<span id="L21495" class="LineNr">21495 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L21496" class="LineNr">21496 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21497" class="LineNr">21497 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21498" class="LineNr">21498 </span> <span class="subxComment"># if (name == "compute-offset") return true</span> +<span id="L21499" class="LineNr">21499 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"compute-offset"</span>) <span class="subxComment"># => eax</span> +<span id="L21500" class="LineNr">21500 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21501" class="LineNr">21501 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21502" class="LineNr">21502 </span> <span class="subxComment"># if (name == "copy-object") return true</span> +<span id="L21503" class="LineNr">21503 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"copy-object"</span>) <span class="subxComment"># => eax</span> +<span id="L21504" class="LineNr">21504 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21505" class="LineNr">21505 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21506" class="LineNr">21506 </span> <span class="subxComment"># if (name == "clear-object") return true</span> +<span id="L21507" class="LineNr">21507 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"clear-object"</span>) <span class="subxComment"># => eax</span> +<span id="L21508" class="LineNr">21508 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21509" class="LineNr">21509 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21510" class="LineNr">21510 </span> <span class="subxComment"># if (name == "allocate") return true</span> +<span id="L21511" class="LineNr">21511 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L21512" class="LineNr">21512 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21513" class="LineNr">21513 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21514" class="LineNr">21514 </span> <span class="subxComment"># if (name == "populate") return true</span> +<span id="L21515" class="LineNr">21515 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L21516" class="LineNr">21516 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21517" class="LineNr">21517 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21518" class="LineNr">21518 </span> <span class="subxComment"># if (name == "populate-stream") return true</span> +<span id="L21519" class="LineNr">21519 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"populate-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L21520" class="LineNr">21520 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21521" class="LineNr">21521 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21522" class="LineNr">21522 </span> <span class="subxComment"># if (name == "read-from-stream") return true</span> +<span id="L21523" class="LineNr">21523 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"read-from-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L21524" class="LineNr">21524 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21525" class="LineNr">21525 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21526" class="LineNr">21526 </span> <span class="subxComment"># if (name == "write-to-stream") return true</span> +<span id="L21527" class="LineNr">21527 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi <span class="Constant">"write-to-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L21528" class="LineNr">21528 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21529" class="LineNr">21529 </span> 0f 85/jump-if-!= $has-primitive-name?:end/disp32 +<span id="L21530" class="LineNr">21530 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = Primitives</span> +<span id="L21531" class="LineNr">21531 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span>/imm32 +<span id="L21532" class="LineNr">21532 </span> { +<span id="L21533" class="LineNr">21533 </span><span class="Constant">$has-primitive-name?:loop</span>: +<span id="L21534" class="LineNr">21534 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L21535" class="LineNr">21535 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L21536" class="LineNr">21536 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21537" class="LineNr">21537 </span> <span class="subxComment"># if (primitive->name == name) return true</span> +<span id="L21538" class="LineNr">21538 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L21539" class="LineNr">21539 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L21540" class="LineNr">21540 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L21541" class="LineNr">21541 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L21542" class="LineNr">21542 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L21543" class="LineNr">21543 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21544" class="LineNr">21544 </span> 75/jump-if-!= $has-primitive-name?:end/disp8 +<span id="L21545" class="LineNr">21545 </span><span class="Constant">$has-primitive-name?:next-primitive</span>: +<span id="L21546" class="LineNr">21546 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L21547" class="LineNr">21547 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L21548" class="LineNr">21548 </span> 89/<- %ecx 0/r32/eax +<span id="L21549" class="LineNr">21549 </span> <span class="subxComment">#</span> +<span id="L21550" class="LineNr">21550 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L21551" class="LineNr">21551 </span> } +<span id="L21552" class="LineNr">21552 </span> <span class="subxComment"># return null</span> +<span id="L21553" class="LineNr">21553 </span> b8/copy-to-eax 0/imm32 +<span id="L21554" class="LineNr">21554 </span><span class="Constant">$has-primitive-name?:end</span>: +<span id="L21555" class="LineNr">21555 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21556" class="LineNr">21556 </span> 5e/pop-to-esi +<span id="L21557" class="LineNr">21557 </span> 59/pop-to-ecx +<span id="L21558" class="LineNr">21558 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21559" class="LineNr">21559 </span> 89/<- %esp 5/r32/ebp +<span id="L21560" class="LineNr">21560 </span> 5d/pop-to-ebp +<span id="L21561" class="LineNr">21561 </span> c3/return +<span id="L21562" class="LineNr">21562 </span> +<span id="L21563" class="LineNr">21563 </span><span class="subxFunction">check-mu-primitive</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21564" class="LineNr">21564 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21565" class="LineNr">21565 </span> 55/push-ebp +<span id="L21566" class="LineNr">21566 </span> 89/<- %ebp 4/r32/esp +<span id="L21567" class="LineNr">21567 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21568" class="LineNr">21568 </span> 50/push-eax +<span id="L21569" class="LineNr">21569 </span> 51/push-ecx +<span id="L21570" class="LineNr">21570 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L21571" class="LineNr">21571 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21572" class="LineNr">21572 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21573" class="LineNr">21573 </span> 89/<- %ecx 0/r32/eax +<span id="L21574" class="LineNr">21574 </span> <span class="subxComment"># if (op == "copy") check-mu-copy-stmt</span> +<span id="L21575" class="LineNr">21575 </span> { +<span id="L21576" class="LineNr">21576 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L21577" class="LineNr">21577 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21578" class="LineNr">21578 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21579" class="LineNr">21579 </span> (<a href='mu.subx.html#L21982'>check-mu-copy-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21580" class="LineNr">21580 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21581" class="LineNr">21581 </span> } +<span id="L21582" class="LineNr">21582 </span> <span class="subxComment"># if (op == "copy-to") check-mu-copy-to-stmt</span> +<span id="L21583" class="LineNr">21583 </span> { +<span id="L21584" class="LineNr">21584 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-to"</span>) <span class="subxComment"># => eax</span> +<span id="L21585" class="LineNr">21585 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21586" class="LineNr">21586 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21587" class="LineNr">21587 </span> (<a href='mu.subx.html#L22201'>check-mu-copy-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21588" class="LineNr">21588 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21589" class="LineNr">21589 </span> } +<span id="L21590" class="LineNr">21590 </span> <span class="subxComment"># if (op == "copy-byte") check-mu-copy-byte-stmt</span> +<span id="L21591" class="LineNr">21591 </span> { +<span id="L21592" class="LineNr">21592 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> +<span id="L21593" class="LineNr">21593 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21594" class="LineNr">21594 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21595" class="LineNr">21595 </span> (<a href='mu.subx.html#L22402'>check-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21596" class="LineNr">21596 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21597" class="LineNr">21597 </span> } +<span id="L21598" class="LineNr">21598 </span> <span class="subxComment"># if (op == "copy-byte-to") check-mu-copy-byte-to-stmt</span> +<span id="L21599" class="LineNr">21599 </span> { +<span id="L21600" class="LineNr">21600 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte-to"</span>) <span class="subxComment"># => eax</span> +<span id="L21601" class="LineNr">21601 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21602" class="LineNr">21602 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21603" class="LineNr">21603 </span> (<a href='mu.subx.html#L22573'>check-mu-copy-byte-to-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21604" class="LineNr">21604 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21605" class="LineNr">21605 </span> } +<span id="L21606" class="LineNr">21606 </span> <span class="subxComment"># if (op == "compare") check-mu-compare-stmt</span> +<span id="L21607" class="LineNr">21607 </span> { +<span id="L21608" class="LineNr">21608 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compare"</span>) <span class="subxComment"># => eax</span> +<span id="L21609" class="LineNr">21609 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21610" class="LineNr">21610 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21611" class="LineNr">21611 </span> (<a href='mu.subx.html#L22725'>check-mu-compare-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21612" class="LineNr">21612 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21613" class="LineNr">21613 </span> } +<span id="L21614" class="LineNr">21614 </span> <span class="subxComment"># if (op == "address") check-mu-address-stmt</span> +<span id="L21615" class="LineNr">21615 </span> { +<span id="L21616" class="LineNr">21616 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"address"</span>) <span class="subxComment"># => eax</span> +<span id="L21617" class="LineNr">21617 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21618" class="LineNr">21618 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21619" class="LineNr">21619 </span> (<a href='mu.subx.html#L22948'>check-mu-address-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21620" class="LineNr">21620 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21621" class="LineNr">21621 </span> } +<span id="L21622" class="LineNr">21622 </span> <span class="subxComment"># if (op == "return") check-mu-return-stmt</span> +<span id="L21623" class="LineNr">21623 </span> { +<span id="L21624" class="LineNr">21624 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L21625" class="LineNr">21625 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21626" class="LineNr">21626 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21627" class="LineNr">21627 </span> (<a href='mu.subx.html#L23192'>check-mu-return-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21628" class="LineNr">21628 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21629" class="LineNr">21629 </span> } +<span id="L21630" class="LineNr">21630 </span> <span class="subxComment"># if (op == "get") check-mu-get-stmt</span> +<span id="L21631" class="LineNr">21631 </span> { +<span id="L21632" class="LineNr">21632 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L21633" class="LineNr">21633 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21634" class="LineNr">21634 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21635" class="LineNr">21635 </span> (<a href='mu.subx.html#L23668'>check-mu-get-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21636" class="LineNr">21636 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21637" class="LineNr">21637 </span> } +<span id="L21638" class="LineNr">21638 </span> <span class="subxComment"># if (op == "index") check-mu-index-stmt</span> +<span id="L21639" class="LineNr">21639 </span> { +<span id="L21640" class="LineNr">21640 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L21641" class="LineNr">21641 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21642" class="LineNr">21642 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21643" class="LineNr">21643 </span> (<a href='mu.subx.html#L23963'>check-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21644" class="LineNr">21644 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21645" class="LineNr">21645 </span> } +<span id="L21646" class="LineNr">21646 </span> <span class="subxComment"># if (op == "length") check-mu-length-stmt</span> +<span id="L21647" class="LineNr">21647 </span> { +<span id="L21648" class="LineNr">21648 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L21649" class="LineNr">21649 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21650" class="LineNr">21650 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21651" class="LineNr">21651 </span> (<a href='mu.subx.html#L24346'>check-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21652" class="LineNr">21652 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21653" class="LineNr">21653 </span> } +<span id="L21654" class="LineNr">21654 </span> <span class="subxComment"># if (op == "compute-offset") check-mu-compute-offset-stmt</span> +<span id="L21655" class="LineNr">21655 </span> { +<span id="L21656" class="LineNr">21656 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compute-offset"</span>) <span class="subxComment"># => eax</span> +<span id="L21657" class="LineNr">21657 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21658" class="LineNr">21658 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21659" class="LineNr">21659 </span> (<a href='mu.subx.html#L24636'>check-mu-compute-offset-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21660" class="LineNr">21660 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21661" class="LineNr">21661 </span> } +<span id="L21662" class="LineNr">21662 </span> <span class="subxComment"># if (op == "copy-object") check-mu-copy-object-stmt</span> +<span id="L21663" class="LineNr">21663 </span> { +<span id="L21664" class="LineNr">21664 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-object"</span>) <span class="subxComment"># => eax</span> +<span id="L21665" class="LineNr">21665 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21666" class="LineNr">21666 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21667" class="LineNr">21667 </span> (<a href='mu.subx.html#L24924'>check-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21668" class="LineNr">21668 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21669" class="LineNr">21669 </span> } +<span id="L21670" class="LineNr">21670 </span> <span class="subxComment"># if (op == "clear-object") check-mu-clear-object-stmt</span> +<span id="L21671" class="LineNr">21671 </span> { +<span id="L21672" class="LineNr">21672 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"clear-object"</span>) <span class="subxComment"># => eax</span> +<span id="L21673" class="LineNr">21673 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21674" class="LineNr">21674 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21675" class="LineNr">21675 </span> (<a href='mu.subx.html#L25046'>check-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21676" class="LineNr">21676 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21677" class="LineNr">21677 </span> } +<span id="L21678" class="LineNr">21678 </span> <span class="subxComment"># if (op == "allocate") check-mu-allocate-stmt</span> +<span id="L21679" class="LineNr">21679 </span> { +<span id="L21680" class="LineNr">21680 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L21681" class="LineNr">21681 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21682" class="LineNr">21682 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21683" class="LineNr">21683 </span> (<a href='mu.subx.html#L25140'>check-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21684" class="LineNr">21684 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21685" class="LineNr">21685 </span> } +<span id="L21686" class="LineNr">21686 </span> <span class="subxComment"># if (op == "populate") check-mu-populate-stmt</span> +<span id="L21687" class="LineNr">21687 </span> { +<span id="L21688" class="LineNr">21688 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L21689" class="LineNr">21689 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21690" class="LineNr">21690 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21691" class="LineNr">21691 </span> (<a href='mu.subx.html#L25244'>check-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21692" class="LineNr">21692 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21693" class="LineNr">21693 </span> } +<span id="L21694" class="LineNr">21694 </span> <span class="subxComment"># if (op == "populate-stream") check-mu-populate-stream-stmt</span> +<span id="L21695" class="LineNr">21695 </span> { +<span id="L21696" class="LineNr">21696 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L21697" class="LineNr">21697 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21698" class="LineNr">21698 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21699" class="LineNr">21699 </span> (<a href='mu.subx.html#L25394'>check-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21700" class="LineNr">21700 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21701" class="LineNr">21701 </span> } +<span id="L21702" class="LineNr">21702 </span> <span class="subxComment"># if (op == "read-from-stream") check-mu-read-from-stream-stmt</span> +<span id="L21703" class="LineNr">21703 </span> { +<span id="L21704" class="LineNr">21704 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"read-from-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L21705" class="LineNr">21705 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21706" class="LineNr">21706 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21707" class="LineNr">21707 </span> (<a href='mu.subx.html#L25544'>check-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21708" class="LineNr">21708 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21709" class="LineNr">21709 </span> } +<span id="L21710" class="LineNr">21710 </span> <span class="subxComment"># if (op == "write-to-stream") check-mu-write-to-stream-stmt</span> +<span id="L21711" class="LineNr">21711 </span> { +<span id="L21712" class="LineNr">21712 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"write-to-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L21713" class="LineNr">21713 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21714" class="LineNr">21714 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21715" class="LineNr">21715 </span> (<a href='mu.subx.html#L25711'>check-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21716" class="LineNr">21716 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21717" class="LineNr">21717 </span> } +<span id="L21718" class="LineNr">21718 </span> <span class="subxComment"># if (op == "convert") check-mu-convert-stmt</span> +<span id="L21719" class="LineNr">21719 </span> { +<span id="L21720" class="LineNr">21720 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"convert"</span>) <span class="subxComment"># => eax</span> +<span id="L21721" class="LineNr">21721 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21722" class="LineNr">21722 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21723" class="LineNr">21723 </span> (<a href='mu.subx.html#L25878'>check-mu-convert-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21724" class="LineNr">21724 </span> e9/jump $check-mu-primitive:end/disp32 +<span id="L21725" class="LineNr">21725 </span> } +<span id="L21726" class="LineNr">21726 </span> <span class="subxComment"># otherwise check-numberlike-stmt</span> +<span id="L21727" class="LineNr">21727 </span> (<a href='mu.subx.html#L21738'>check-mu-numberlike-primitive</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21728" class="LineNr">21728 </span><span class="Constant">$check-mu-primitive:end</span>: +<span id="L21729" class="LineNr">21729 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21730" class="LineNr">21730 </span> 59/pop-to-ecx +<span id="L21731" class="LineNr">21731 </span> 58/pop-to-eax +<span id="L21732" class="LineNr">21732 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21733" class="LineNr">21733 </span> 89/<- %esp 5/r32/ebp +<span id="L21734" class="LineNr">21734 </span> 5d/pop-to-ebp +<span id="L21735" class="LineNr">21735 </span> c3/return +<span id="L21736" class="LineNr">21736 </span> +<span id="L21737" class="LineNr">21737 </span><span class="subxComment"># by default, Mu primitives should only operate on 'number-like' types</span> +<span id="L21738" class="LineNr">21738 </span><span class="subxFunction">check-mu-numberlike-primitive</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21739" class="LineNr">21739 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21740" class="LineNr">21740 </span> 55/push-ebp +<span id="L21741" class="LineNr">21741 </span> 89/<- %ebp 4/r32/esp +<span id="L21742" class="LineNr">21742 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21743" class="LineNr">21743 </span> 50/push-eax +<span id="L21744" class="LineNr">21744 </span> 51/push-ecx +<span id="L21745" class="LineNr">21745 </span> 56/push-esi +<span id="L21746" class="LineNr">21746 </span> <span class="subxComment"># esi = stmt</span> +<span id="L21747" class="LineNr">21747 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21748" class="LineNr">21748 </span> <span class="subxComment"># var gas/ecx: int = 2</span> +<span id="L21749" class="LineNr">21749 </span> b9/copy-to-ecx 2/imm32 +<span id="L21750" class="LineNr">21750 </span> <span class="subxH1Comment"># - check at most 1 output</span> +<span id="L21751" class="LineNr">21751 </span> <span class="subxComment"># var output/eax: (addr stmt-var) = stmt->outputs</span> +<span id="L21752" class="LineNr">21752 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L21753" class="LineNr">21753 </span> { +<span id="L21754" class="LineNr">21754 </span> 3d/compare-eax-and 0/imm32 +<span id="L21755" class="LineNr">21755 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21756" class="LineNr">21756 </span><span class="Constant">$check-mu-numberlike-primitive:output</span>: +<span id="L21757" class="LineNr">21757 </span> (<a href='mu.subx.html#L21878'>check-mu-numberlike-output</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21758" class="LineNr">21758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L21759" class="LineNr">21759 </span> 3d/compare-eax-and 0/imm32 +<span id="L21760" class="LineNr">21760 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-outputs/disp32 +<span id="L21761" class="LineNr">21761 </span> <span class="subxComment"># check output is in a register</span> +<span id="L21762" class="LineNr">21762 </span> <span class="subxComment"># --gas</span> +<span id="L21763" class="LineNr">21763 </span> 49/decrement-ecx +<span id="L21764" class="LineNr">21764 </span> } +<span id="L21765" class="LineNr">21765 </span> <span class="subxH1Comment"># - check first inout</span> +<span id="L21766" class="LineNr">21766 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L21767" class="LineNr">21767 </span> { +<span id="L21768" class="LineNr">21768 </span> 3d/compare-eax-and 0/imm32 +<span id="L21769" class="LineNr">21769 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:end/disp32 +<span id="L21770" class="LineNr">21770 </span><span class="Constant">$check-mu-numberlike-primitive:first-inout</span>: +<span id="L21771" class="LineNr">21771 </span> (<a href='mu.subx.html#L21827'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21772" class="LineNr">21772 </span> <span class="subxComment"># --gas</span> +<span id="L21773" class="LineNr">21773 </span> 49/decrement-ecx +<span id="L21774" class="LineNr">21774 </span> } +<span id="L21775" class="LineNr">21775 </span> <span class="subxH1Comment"># - check second inout</span> +<span id="L21776" class="LineNr">21776 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L21777" class="LineNr">21777 </span> { +<span id="L21778" class="LineNr">21778 </span> 3d/compare-eax-and 0/imm32 +<span id="L21779" class="LineNr">21779 </span> 74/jump-if-= $check-mu-numberlike-primitive:end/disp8 +<span id="L21780" class="LineNr">21780 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout</span>: +<span id="L21781" class="LineNr">21781 </span> <span class="subxComment"># is a second inout allowed?</span> +<span id="L21782" class="LineNr">21782 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L21783" class="LineNr">21783 </span> 0f 84/jump-if-= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L21784" class="LineNr">21784 </span><span class="Constant">$check-mu-numberlike-primitive:second-inout-permitted</span>: +<span id="L21785" class="LineNr">21785 </span> (<a href='mu.subx.html#L21827'>check-mu-numberlike-arg</a> %eax *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L21786" class="LineNr">21786 </span> } +<span id="L21787" class="LineNr">21787 </span><span class="Constant">$check-mu-numberlike-primitive:third-inout</span>: +<span id="L21788" class="LineNr">21788 </span> <span class="subxComment"># if there's a third arg, raise an error</span> +<span id="L21789" class="LineNr">21789 </span> 81 7/subop/compare *(eax+8) 0/imm32 <span class="subxComment"># Stmt-var-next</span> +<span id="L21790" class="LineNr">21790 </span> 0f 85/jump-if-!= $check-mu-numberlike-primitive:error-too-many-inouts/disp32 +<span id="L21791" class="LineNr">21791 </span><span class="Constant">$check-mu-numberlike-primitive:end</span>: +<span id="L21792" class="LineNr">21792 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21793" class="LineNr">21793 </span> 5e/pop-to-esi +<span id="L21794" class="LineNr">21794 </span> 59/pop-to-ecx +<span id="L21795" class="LineNr">21795 </span> 58/pop-to-eax +<span id="L21796" class="LineNr">21796 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21797" class="LineNr">21797 </span> 89/<- %esp 5/r32/ebp +<span id="L21798" class="LineNr">21798 </span> 5d/pop-to-ebp +<span id="L21799" class="LineNr">21799 </span> c3/return +<span id="L21800" class="LineNr">21800 </span> +<span id="L21801" class="LineNr">21801 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-inouts</span>: +<span id="L21802" class="LineNr">21802 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21803" class="LineNr">21803 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21804" class="LineNr">21804 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21805" class="LineNr">21805 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21806" class="LineNr">21806 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L21807" class="LineNr">21807 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21808" class="LineNr">21808 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21809" class="LineNr">21809 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": too many inouts; most primitives support at most two arguments, across inouts and outputs\n"</span>) +<span id="L21810" class="LineNr">21810 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21811" class="LineNr">21811 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21812" class="LineNr">21812 </span> <span class="subxComment"># never gets here</span> +<span id="L21813" class="LineNr">21813 </span> +<span id="L21814" class="LineNr">21814 </span><span class="Constant">$check-mu-numberlike-primitive:error-too-many-outputs</span>: +<span id="L21815" class="LineNr">21815 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L21816" class="LineNr">21816 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21817" class="LineNr">21817 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21818" class="LineNr">21818 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21819" class="LineNr">21819 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt "</span>) +<span id="L21820" class="LineNr">21820 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21821" class="LineNr">21821 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L21822" class="LineNr">21822 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": too many outputs; most primitives support at most one output\n"</span>) +<span id="L21823" class="LineNr">21823 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L21824" class="LineNr">21824 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L21825" class="LineNr">21825 </span> <span class="subxComment"># never gets here</span> +<span id="L21826" class="LineNr">21826 </span> +<span id="L21827" class="LineNr">21827 </span><span class="subxFunction">check-mu-numberlike-arg</span>: <span class="subxComment"># v: (addr stmt-var), stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21828" class="LineNr">21828 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21829" class="LineNr">21829 </span> 55/push-ebp +<span id="L21830" class="LineNr">21830 </span> 89/<- %ebp 4/r32/esp +<span id="L21831" class="LineNr">21831 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21832" class="LineNr">21832 </span> 50/push-eax +<span id="L21833" class="LineNr">21833 </span> 56/push-esi +<span id="L21834" class="LineNr">21834 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L21835" class="LineNr">21835 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21836" class="LineNr">21836 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L21837" class="LineNr">21837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21838" class="LineNr">21838 </span> 89/<- %esi 0/r32/eax +<span id="L21839" class="LineNr">21839 </span><span class="Constant">$check-mu-numberlike-arg:check-literal</span>: +<span id="L21840" class="LineNr">21840 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L21841" class="LineNr">21841 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %esi 0) <span class="subxComment"># literal => eax</span> +<span id="L21842" class="LineNr">21842 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21843" class="LineNr">21843 </span> 0f 85/jump-if-!= $check-mu-numberlike-arg:end/disp32 +<span id="L21844" class="LineNr">21844 </span><span class="Constant">$check-mu-numberlike-arg:check-addr</span>: +<span id="L21845" class="LineNr">21845 </span> <span class="subxComment"># if t is an addr and v is dereferenced, return whether t->payload is an addr</span> +<span id="L21846" class="LineNr">21846 </span> { +<span id="L21847" class="LineNr">21847 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L21848" class="LineNr">21848 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21849" class="LineNr">21849 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21850" class="LineNr">21850 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21851" class="LineNr">21851 </span> 8b/-> *(eax+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L21852" class="LineNr">21852 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21853" class="LineNr">21853 </span> { +<span id="L21854" class="LineNr">21854 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L21855" class="LineNr">21855 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L21856" class="LineNr">21856 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L21857" class="LineNr">21857 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L21858" class="LineNr">21858 </span> { +<span id="L21859" class="LineNr">21859 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L21860" class="LineNr">21860 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L21861" class="LineNr">21861 </span> } +<span id="L21862" class="LineNr">21862 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21863" class="LineNr">21863 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21864" class="LineNr">21864 </span> 74/jump-if-= $check-mu-numberlike-arg:end/disp8 +<span id="L21865" class="LineNr">21865 </span> } +<span id="L21866" class="LineNr">21866 </span> } +<span id="L21867" class="LineNr">21867 </span><span class="Constant">$check-mu-numberlike-arg:output-checks</span>: +<span id="L21868" class="LineNr">21868 </span> (<a href='mu.subx.html#L21878'>check-mu-numberlike-output</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L21869" class="LineNr">21869 </span><span class="Constant">$check-mu-numberlike-arg:end</span>: +<span id="L21870" class="LineNr">21870 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21871" class="LineNr">21871 </span> 5e/pop-to-esi +<span id="L21872" class="LineNr">21872 </span> 58/pop-to-eax +<span id="L21873" class="LineNr">21873 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21874" class="LineNr">21874 </span> 89/<- %esp 5/r32/ebp +<span id="L21875" class="LineNr">21875 </span> 5d/pop-to-ebp +<span id="L21876" class="LineNr">21876 </span> c3/return +<span id="L21877" class="LineNr">21877 </span> +<span id="L21878" class="LineNr">21878 </span><span class="subxFunction">check-mu-numberlike-output</span>: <span class="subxComment"># v: (addr stmt-var), stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21879" class="LineNr">21879 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21880" class="LineNr">21880 </span> 55/push-ebp +<span id="L21881" class="LineNr">21881 </span> 89/<- %ebp 4/r32/esp +<span id="L21882" class="LineNr">21882 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21883" class="LineNr">21883 </span> 50/push-eax +<span id="L21884" class="LineNr">21884 </span> <span class="subxComment">#</span> +<span id="L21885" class="LineNr">21885 </span> (<a href='mu.subx.html#L21916'>mu-numberlike-output-var?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L21886" class="LineNr">21886 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21887" class="LineNr">21887 </span> 0f 84/jump-if-= $check-mu-numberlike-output:fail/disp32 +<span id="L21888" class="LineNr">21888 </span><span class="Constant">$check-mu-numberlike-output:end</span>: +<span id="L21889" class="LineNr">21889 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21890" class="LineNr">21890 </span> 58/pop-to-eax +<span id="L21891" class="LineNr">21891 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21892" class="LineNr">21892 </span> 89/<- %esp 5/r32/ebp +<span id="L21893" class="LineNr">21893 </span> 5d/pop-to-ebp +<span id="L21894" class="LineNr">21894 </span> c3/return +<span id="L21895" class="LineNr">21895 </span> +<span id="L21896" class="LineNr">21896 </span><span class="Constant">$check-mu-numberlike-output:fail</span>: +<span id="L21897" class="LineNr">21897 </span> <span class="subxComment"># otherwise raise an error</span> +<span id="L21898" class="LineNr">21898 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L21899" class="LineNr">21899 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L21900" class="LineNr">21900 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L21901" class="LineNr">21901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L21902" class="LineNr">21902 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": stmt "</span>) +<span id="L21903" class="LineNr">21903 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L21904" class="LineNr">21904 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L21905" class="LineNr">21905 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L21906" class="LineNr">21906 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": '"</span>) +<span id="L21907" class="LineNr">21907 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21908" class="LineNr">21908 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L21909" class="LineNr">21909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L21910" class="LineNr">21910 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L21911" class="LineNr">21911 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' must be a non-addr non-offset scalar\n"</span>) +<span id="L21912" class="LineNr">21912 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L21913" class="LineNr">21913 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L21914" class="LineNr">21914 </span> <span class="subxComment"># never gets here</span> +<span id="L21915" class="LineNr">21915 </span> +<span id="L21916" class="LineNr">21916 </span><span class="subxFunction">mu-numberlike-output-var?</span>: <span class="subxComment"># v: (addr stmt-var) -> result/eax: boolean</span> +<span id="L21917" class="LineNr">21917 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21918" class="LineNr">21918 </span> 55/push-ebp +<span id="L21919" class="LineNr">21919 </span> 89/<- %ebp 4/r32/esp +<span id="L21920" class="LineNr">21920 </span> <span class="subxComment">#</span> +<span id="L21921" class="LineNr">21921 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L21922" class="LineNr">21922 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L21923" class="LineNr">21923 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L21924" class="LineNr">21924 </span> (<a href='mu.subx.html#L21931'>mu-numberlike-output?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L21925" class="LineNr">21925 </span><span class="Constant">$mu-numberlike-output-var?:end</span>: +<span id="L21926" class="LineNr">21926 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21927" class="LineNr">21927 </span> 89/<- %esp 5/r32/ebp +<span id="L21928" class="LineNr">21928 </span> 5d/pop-to-ebp +<span id="L21929" class="LineNr">21929 </span> c3/return +<span id="L21930" class="LineNr">21930 </span> +<span id="L21931" class="LineNr">21931 </span><span class="subxFunction">mu-numberlike-output?</span>: <span class="subxComment"># v: (addr type-tree) -> result/eax: boolean</span> +<span id="L21932" class="LineNr">21932 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21933" class="LineNr">21933 </span> 55/push-ebp +<span id="L21934" class="LineNr">21934 </span> 89/<- %ebp 4/r32/esp +<span id="L21935" class="LineNr">21935 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21936" class="LineNr">21936 </span> 56/push-esi +<span id="L21937" class="LineNr">21937 </span> <span class="subxComment"># var t/esi: (addr type-tree) = lookup(v->value->type)</span> +<span id="L21938" class="LineNr">21938 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L21939" class="LineNr">21939 </span><span class="Constant">$mu-numberlike-output?:check-int</span>: +<span id="L21940" class="LineNr">21940 </span> <span class="subxComment"># if t is an int, return</span> +<span id="L21941" class="LineNr">21941 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %esi 1) <span class="subxComment"># int => eax</span> +<span id="L21942" class="LineNr">21942 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21943" class="LineNr">21943 </span> 0f 85/jump-if-!= $mu-numberlike-output?:return-true/disp32 +<span id="L21944" class="LineNr">21944 </span><span class="Constant">$mu-numberlike-output?:check-float</span>: +<span id="L21945" class="LineNr">21945 </span> <span class="subxComment"># if t is a float, return</span> +<span id="L21946" class="LineNr">21946 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %esi 0xf) <span class="subxComment"># float => eax</span> +<span id="L21947" class="LineNr">21947 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21948" class="LineNr">21948 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21949" class="LineNr">21949 </span><span class="Constant">$mu-numberlike-output?:check-boolean</span>: +<span id="L21950" class="LineNr">21950 </span> <span class="subxComment"># if t is a boolean, return</span> +<span id="L21951" class="LineNr">21951 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %esi 5) <span class="subxComment"># boolean => eax</span> +<span id="L21952" class="LineNr">21952 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21953" class="LineNr">21953 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21954" class="LineNr">21954 </span><span class="Constant">$mu-numberlike-output?:check-byte</span>: +<span id="L21955" class="LineNr">21955 </span> <span class="subxComment"># if t is a byte, return</span> +<span id="L21956" class="LineNr">21956 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %esi 8) <span class="subxComment"># byte => eax</span> +<span id="L21957" class="LineNr">21957 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21958" class="LineNr">21958 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21959" class="LineNr">21959 </span><span class="Constant">$mu-numberlike-output?:check-code-point</span>: +<span id="L21960" class="LineNr">21960 </span> <span class="subxComment"># if t is a code-point, return</span> +<span id="L21961" class="LineNr">21961 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %esi 0xd) <span class="subxComment"># code-point => eax</span> +<span id="L21962" class="LineNr">21962 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21963" class="LineNr">21963 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21964" class="LineNr">21964 </span><span class="Constant">$mu-numberlike-output?:check-grapheme</span>: +<span id="L21965" class="LineNr">21965 </span> <span class="subxComment"># if t is a grapheme, return</span> +<span id="L21966" class="LineNr">21966 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %esi 0xe) <span class="subxComment"># grapheme => eax</span> +<span id="L21967" class="LineNr">21967 </span> 3d/compare-eax-and 0/imm32/false +<span id="L21968" class="LineNr">21968 </span> 75/jump-if-!= $mu-numberlike-output?:return-true/disp8 +<span id="L21969" class="LineNr">21969 </span><span class="Constant">$mu-numberlike-output?:return-false</span>: +<span id="L21970" class="LineNr">21970 </span> b8/copy-to-eax 0/imm32/false +<span id="L21971" class="LineNr">21971 </span> eb/jump $mu-numberlike-output?:end/disp8 +<span id="L21972" class="LineNr">21972 </span><span class="Constant">$mu-numberlike-output?:return-true</span>: +<span id="L21973" class="LineNr">21973 </span> b8/copy-to-eax 1/imm32/true +<span id="L21974" class="LineNr">21974 </span><span class="Constant">$mu-numberlike-output?:end</span>: +<span id="L21975" class="LineNr">21975 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L21976" class="LineNr">21976 </span> 5e/pop-to-esi +<span id="L21977" class="LineNr">21977 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L21978" class="LineNr">21978 </span> 89/<- %esp 5/r32/ebp +<span id="L21979" class="LineNr">21979 </span> 5d/pop-to-ebp +<span id="L21980" class="LineNr">21980 </span> c3/return +<span id="L21981" class="LineNr">21981 </span> +<span id="L21982" class="LineNr">21982 </span><span class="subxFunction">check-mu-copy-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L21983" class="LineNr">21983 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L21984" class="LineNr">21984 </span> 55/push-ebp +<span id="L21985" class="LineNr">21985 </span> 89/<- %ebp 4/r32/esp +<span id="L21986" class="LineNr">21986 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L21987" class="LineNr">21987 </span> 50/push-eax +<span id="L21988" class="LineNr">21988 </span> 51/push-ecx +<span id="L21989" class="LineNr">21989 </span> 52/push-edx +<span id="L21990" class="LineNr">21990 </span> 56/push-esi +<span id="L21991" class="LineNr">21991 </span> 57/push-edi +<span id="L21992" class="LineNr">21992 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L21993" class="LineNr">21993 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L21994" class="LineNr">21994 </span> 68/push 0x60/imm32/size +<span id="L21995" class="LineNr">21995 </span> 68/push 0/imm32/read +<span id="L21996" class="LineNr">21996 </span> 68/push 0/imm32/write +<span id="L21997" class="LineNr">21997 </span> 89/<- %edx 4/r32/esp +<span id="L21998" class="LineNr">21998 </span><span class="Constant">$check-mu-copy-stmt:get-output</span>: +<span id="L21999" class="LineNr">21999 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22000" class="LineNr">22000 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22001" class="LineNr">22001 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L22002" class="LineNr">22002 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22003" class="LineNr">22003 </span> 89/<- %edi 0/r32/eax +<span id="L22004" class="LineNr">22004 </span> <span class="subxComment"># zero outputs</span> +<span id="L22005" class="LineNr">22005 </span> 3d/compare-eax-and 0/imm32 +<span id="L22006" class="LineNr">22006 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-output/disp32 +<span id="L22007" class="LineNr">22007 </span> <span class="subxComment"># > 1 output</span> +<span id="L22008" class="LineNr">22008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22009" class="LineNr">22009 </span> 3d/compare-eax-and 0/imm32 +<span id="L22010" class="LineNr">22010 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-outputs/disp32 +<span id="L22011" class="LineNr">22011 </span><span class="Constant">$check-mu-copy-stmt:get-inout</span>: +<span id="L22012" class="LineNr">22012 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22013" class="LineNr">22013 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22014" class="LineNr">22014 </span> 89/<- %esi 0/r32/eax +<span id="L22015" class="LineNr">22015 </span> <span class="subxComment"># zero inouts</span> +<span id="L22016" class="LineNr">22016 </span> 3d/compare-eax-and 0/imm32 +<span id="L22017" class="LineNr">22017 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-no-inout/disp32 +<span id="L22018" class="LineNr">22018 </span> <span class="subxComment"># > 1 inout</span> +<span id="L22019" class="LineNr">22019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22020" class="LineNr">22020 </span> 3d/compare-eax-and 0/imm32 +<span id="L22021" class="LineNr">22021 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:error-too-many-inouts/disp32 +<span id="L22022" class="LineNr">22022 </span><span class="Constant">$check-mu-copy-stmt:types</span>: +<span id="L22023" class="LineNr">22023 </span> <span class="subxComment"># if inout is not a scalar, abort</span> +<span id="L22024" class="LineNr">22024 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22025" class="LineNr">22025 </span> (<a href='mu.subx.html#L26551'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22026" class="LineNr">22026 </span> 3d/compare-eax-and 4/imm32 +<span id="L22027" class="LineNr">22027 </span> 0f 8f/jump-if-> $check-mu-copy-stmt:error-inout-too-large/disp32 +<span id="L22028" class="LineNr">22028 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L22029" class="LineNr">22029 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22030" class="LineNr">22030 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22031" class="LineNr">22031 </span> 89/<- %ecx 0/r32/eax +<span id="L22032" class="LineNr">22032 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L22033" class="LineNr">22033 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22034" class="LineNr">22034 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22035" class="LineNr">22035 </span> { +<span id="L22036" class="LineNr">22036 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22037" class="LineNr">22037 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22038" class="LineNr">22038 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L22039" class="LineNr">22039 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22040" class="LineNr">22040 </span> { +<span id="L22041" class="LineNr">22041 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22042" class="LineNr">22042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22043" class="LineNr">22043 </span> } +<span id="L22044" class="LineNr">22044 </span> 89/<- %ecx 0/r32/eax +<span id="L22045" class="LineNr">22045 </span> } +<span id="L22046" class="LineNr">22046 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L22047" class="LineNr">22047 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22048" class="LineNr">22048 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22049" class="LineNr">22049 </span> 3d/compare-eax-and 0/imm32 +<span id="L22050" class="LineNr">22050 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-output-not-in-register/disp32 +<span id="L22051" class="LineNr">22051 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> +<span id="L22052" class="LineNr">22052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22053" class="LineNr">22053 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22054" class="LineNr">22054 </span> <span class="subxComment"># if (inout-type == output-type) return</span> +<span id="L22055" class="LineNr">22055 </span> (<a href='mu.subx.html#L26392'>type-match?</a> %eax %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22056" class="LineNr">22056 </span> 3d/compare-eax-and 0/imm32 +<span id="L22057" class="LineNr">22057 </span> 0f 85/jump-if-!= $check-mu-copy-stmt:end/disp32 +<span id="L22058" class="LineNr">22058 </span> <span class="subxComment"># if output is an addr and inout is 0, return</span> +<span id="L22059" class="LineNr">22059 </span> { +<span id="L22060" class="LineNr">22060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22061" class="LineNr">22061 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22062" class="LineNr">22062 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22063" class="LineNr">22063 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22064" class="LineNr">22064 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22065" class="LineNr">22065 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22066" class="LineNr">22066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22067" class="LineNr">22067 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22068" class="LineNr">22068 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22069" class="LineNr">22069 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22070" class="LineNr">22070 </span> e9/jump $check-mu-copy-stmt:end/disp32 +<span id="L22071" class="LineNr">22071 </span> } +<span id="L22072" class="LineNr">22072 </span> <span class="subxComment"># if output is an offset and inout is 0, return</span> +<span id="L22073" class="LineNr">22073 </span> { +<span id="L22074" class="LineNr">22074 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22075" class="LineNr">22075 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22076" class="LineNr">22076 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22077" class="LineNr">22077 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22078" class="LineNr">22078 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22079" class="LineNr">22079 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L22080" class="LineNr">22080 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22081" class="LineNr">22081 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22082" class="LineNr">22082 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22083" class="LineNr">22083 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22084" class="LineNr">22084 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22085" class="LineNr">22085 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22086" class="LineNr">22086 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22087" class="LineNr">22087 </span> e9/jump $check-mu-copy-stmt:end/disp32 +<span id="L22088" class="LineNr">22088 </span> } +<span id="L22089" class="LineNr">22089 </span> <span class="subxComment"># if output is a byte, abort if inout is not a literal. Otherwise return.</span> +<span id="L22090" class="LineNr">22090 </span> { +<span id="L22091" class="LineNr">22091 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22092" class="LineNr">22092 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22093" class="LineNr">22093 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L22094" class="LineNr">22094 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22095" class="LineNr">22095 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22096" class="LineNr">22096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22097" class="LineNr">22097 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22098" class="LineNr">22098 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L22099" class="LineNr">22099 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22100" class="LineNr">22100 </span> 0f 84/jump-if-= $check-mu-copy-stmt:error-non-literal-to-byte/disp32 +<span id="L22101" class="LineNr">22101 </span> eb/jump $check-mu-copy-stmt:end/disp8 +<span id="L22102" class="LineNr">22102 </span> } +<span id="L22103" class="LineNr">22103 </span> <span class="subxComment"># if output is not number-like, abort</span> +<span id="L22104" class="LineNr">22104 </span> (<a href='mu.subx.html#L21878'>check-mu-numberlike-output</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22105" class="LineNr">22105 </span><span class="Constant">$check-mu-copy-stmt:end</span>: +<span id="L22106" class="LineNr">22106 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22107" class="LineNr">22107 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22108" class="LineNr">22108 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22109" class="LineNr">22109 </span> 5f/pop-to-edi +<span id="L22110" class="LineNr">22110 </span> 5e/pop-to-esi +<span id="L22111" class="LineNr">22111 </span> 5a/pop-to-edx +<span id="L22112" class="LineNr">22112 </span> 59/pop-to-ecx +<span id="L22113" class="LineNr">22113 </span> 58/pop-to-eax +<span id="L22114" class="LineNr">22114 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22115" class="LineNr">22115 </span> 89/<- %esp 5/r32/ebp +<span id="L22116" class="LineNr">22116 </span> 5d/pop-to-ebp +<span id="L22117" class="LineNr">22117 </span> c3/return +<span id="L22118" class="LineNr">22118 </span> +<span id="L22119" class="LineNr">22119 </span><span class="Constant">$check-mu-copy-stmt:error-no-inout</span>: +<span id="L22120" class="LineNr">22120 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22121" class="LineNr">22121 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22122" class="LineNr">22122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22123" class="LineNr">22123 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22124" class="LineNr">22124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' expects an inout\n"</span>) +<span id="L22125" class="LineNr">22125 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22126" class="LineNr">22126 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22127" class="LineNr">22127 </span> <span class="subxComment"># never gets here</span> +<span id="L22128" class="LineNr">22128 </span> +<span id="L22129" class="LineNr">22129 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-inouts</span>: +<span id="L22130" class="LineNr">22130 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22131" class="LineNr">22131 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22132" class="LineNr">22132 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22133" class="LineNr">22133 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22134" class="LineNr">22134 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' must have just one inout\n"</span>) +<span id="L22135" class="LineNr">22135 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22136" class="LineNr">22136 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22137" class="LineNr">22137 </span> <span class="subxComment"># never gets here</span> +<span id="L22138" class="LineNr">22138 </span> +<span id="L22139" class="LineNr">22139 </span><span class="Constant">$check-mu-copy-stmt:error-no-output</span>: +<span id="L22140" class="LineNr">22140 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22141" class="LineNr">22141 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22142" class="LineNr">22142 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22143" class="LineNr">22143 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22144" class="LineNr">22144 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' expects an output\n"</span>) +<span id="L22145" class="LineNr">22145 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22146" class="LineNr">22146 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22147" class="LineNr">22147 </span> <span class="subxComment"># never gets here</span> +<span id="L22148" class="LineNr">22148 </span> +<span id="L22149" class="LineNr">22149 </span><span class="Constant">$check-mu-copy-stmt:error-output-not-in-register</span>: +<span id="L22150" class="LineNr">22150 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22151" class="LineNr">22151 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22152" class="LineNr">22152 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22153" class="LineNr">22153 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22154" class="LineNr">22154 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: output '"</span>) +<span id="L22155" class="LineNr">22155 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22156" class="LineNr">22156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22157" class="LineNr">22157 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22158" class="LineNr">22158 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L22159" class="LineNr">22159 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22160" class="LineNr">22160 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22161" class="LineNr">22161 </span> <span class="subxComment"># never gets here</span> +<span id="L22162" class="LineNr">22162 </span> +<span id="L22163" class="LineNr">22163 </span><span class="Constant">$check-mu-copy-stmt:error-too-many-outputs</span>: +<span id="L22164" class="LineNr">22164 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22165" class="LineNr">22165 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22166" class="LineNr">22166 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22167" class="LineNr">22167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22168" class="LineNr">22168 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy' must have just one output\n"</span>) +<span id="L22169" class="LineNr">22169 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22170" class="LineNr">22170 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22171" class="LineNr">22171 </span> <span class="subxComment"># never gets here</span> +<span id="L22172" class="LineNr">22172 </span> +<span id="L22173" class="LineNr">22173 </span><span class="Constant">$check-mu-copy-stmt:error-inout-too-large</span>: +<span id="L22174" class="LineNr">22174 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22175" class="LineNr">22175 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22176" class="LineNr">22176 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22177" class="LineNr">22177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22178" class="LineNr">22178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: '"</span>) +<span id="L22179" class="LineNr">22179 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22180" class="LineNr">22180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22181" class="LineNr">22181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22182" class="LineNr">22182 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to fit in a register\n"</span>) +<span id="L22183" class="LineNr">22183 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22184" class="LineNr">22184 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22185" class="LineNr">22185 </span> <span class="subxComment"># never gets here</span> +<span id="L22186" class="LineNr">22186 </span> +<span id="L22187" class="LineNr">22187 </span><span class="Constant">$check-mu-copy-stmt:error-non-literal-to-byte</span>: +<span id="L22188" class="LineNr">22188 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22189" class="LineNr">22189 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22190" class="LineNr">22190 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22191" class="LineNr">22191 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22192" class="LineNr">22192 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy: cannot copy non-literal to '"</span>) +<span id="L22193" class="LineNr">22193 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22194" class="LineNr">22194 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22195" class="LineNr">22195 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22196" class="LineNr">22196 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type byte; use copy-byte\n"</span>) +<span id="L22197" class="LineNr">22197 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22198" class="LineNr">22198 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22199" class="LineNr">22199 </span> <span class="subxComment"># never gets here</span> +<span id="L22200" class="LineNr">22200 </span> +<span id="L22201" class="LineNr">22201 </span><span class="subxFunction">check-mu-copy-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L22202" class="LineNr">22202 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22203" class="LineNr">22203 </span> 55/push-ebp +<span id="L22204" class="LineNr">22204 </span> 89/<- %ebp 4/r32/esp +<span id="L22205" class="LineNr">22205 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22206" class="LineNr">22206 </span> 50/push-eax +<span id="L22207" class="LineNr">22207 </span> 51/push-ecx +<span id="L22208" class="LineNr">22208 </span> 52/push-edx +<span id="L22209" class="LineNr">22209 </span> 53/push-ebx +<span id="L22210" class="LineNr">22210 </span> 56/push-esi +<span id="L22211" class="LineNr">22211 </span> 57/push-edi +<span id="L22212" class="LineNr">22212 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22213" class="LineNr">22213 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22214" class="LineNr">22214 </span> 68/push 0x60/imm32/size +<span id="L22215" class="LineNr">22215 </span> 68/push 0/imm32/read +<span id="L22216" class="LineNr">22216 </span> 68/push 0/imm32/write +<span id="L22217" class="LineNr">22217 </span> 89/<- %edx 4/r32/esp +<span id="L22218" class="LineNr">22218 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22219" class="LineNr">22219 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22220" class="LineNr">22220 </span><span class="Constant">$check-mu-copy-to-stmt:check-for-output</span>: +<span id="L22221" class="LineNr">22221 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22222" class="LineNr">22222 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22223" class="LineNr">22223 </span> 3d/compare-eax-and 0/imm32 +<span id="L22224" class="LineNr">22224 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-too-many-outputs/disp32 +<span id="L22225" class="LineNr">22225 </span><span class="Constant">$check-mu-copy-to-stmt:get-dest</span>: +<span id="L22226" class="LineNr">22226 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22227" class="LineNr">22227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22228" class="LineNr">22228 </span> 89/<- %edi 0/r32/eax +<span id="L22229" class="LineNr">22229 </span> <span class="subxComment"># zero inouts</span> +<span id="L22230" class="LineNr">22230 </span> 3d/compare-eax-and 0/imm32 +<span id="L22231" class="LineNr">22231 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22232" class="LineNr">22232 </span><span class="Constant">$check-mu-copy-to-stmt:get-src</span>: +<span id="L22233" class="LineNr">22233 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L22234" class="LineNr">22234 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22235" class="LineNr">22235 </span> 89/<- %esi 0/r32/eax +<span id="L22236" class="LineNr">22236 </span> <span class="subxComment"># 1 inout</span> +<span id="L22237" class="LineNr">22237 </span> 3d/compare-eax-and 0/imm32 +<span id="L22238" class="LineNr">22238 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22239" class="LineNr">22239 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22240" class="LineNr">22240 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22241" class="LineNr">22241 </span> 3d/compare-eax-and 0/imm32 +<span id="L22242" class="LineNr">22242 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:error-incorrect-inouts/disp32 +<span id="L22243" class="LineNr">22243 </span><span class="Constant">$check-mu-copy-to-stmt:types</span>: +<span id="L22244" class="LineNr">22244 </span> <span class="subxComment"># if src is not a scalar, abort</span> +<span id="L22245" class="LineNr">22245 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22246" class="LineNr">22246 </span> (<a href='mu.subx.html#L26551'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22247" class="LineNr">22247 </span> 3d/compare-eax-and 4/imm32 +<span id="L22248" class="LineNr">22248 </span> 0f 8f/jump-if-> $check-mu-copy-to-stmt:error-src-too-large/disp32 +<span id="L22249" class="LineNr">22249 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L22250" class="LineNr">22250 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22251" class="LineNr">22251 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22252" class="LineNr">22252 </span> 89/<- %ecx 0/r32/eax +<span id="L22253" class="LineNr">22253 </span> <span class="subxComment"># if src not in register or literal, abort</span> +<span id="L22254" class="LineNr">22254 </span> <span class="subxComment"># (we can't use stack-offset because it hasn't been computed yet)</span> +<span id="L22255" class="LineNr">22255 </span> { +<span id="L22256" class="LineNr">22256 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22257" class="LineNr">22257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22258" class="LineNr">22258 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22259" class="LineNr">22259 </span> 3d/compare-eax-and 0/imm32 +<span id="L22260" class="LineNr">22260 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22261" class="LineNr">22261 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22262" class="LineNr">22262 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22263" class="LineNr">22263 </span> 3d/compare-eax-and 0/imm32 +<span id="L22264" class="LineNr">22264 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22265" class="LineNr">22265 </span> e9/jump $check-mu-copy-to-stmt:error-src-not-literal-or-in-register/disp32 +<span id="L22266" class="LineNr">22266 </span> } +<span id="L22267" class="LineNr">22267 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L22268" class="LineNr">22268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22269" class="LineNr">22269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22270" class="LineNr">22270 </span> 89/<- %ebx 0/r32/eax +<span id="L22271" class="LineNr">22271 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L22272" class="LineNr">22272 </span><span class="Constant">$check-mu-copy-to-stmt:check-dest-deref</span>: +<span id="L22273" class="LineNr">22273 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22274" class="LineNr">22274 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22275" class="LineNr">22275 </span> { +<span id="L22276" class="LineNr">22276 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22277" class="LineNr">22277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22278" class="LineNr">22278 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref</span>: +<span id="L22279" class="LineNr">22279 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L22280" class="LineNr">22280 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22281" class="LineNr">22281 </span> { +<span id="L22282" class="LineNr">22282 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22283" class="LineNr">22283 </span><span class="Constant">$check-mu-copy-to-stmt:dest-is-deref2</span>: +<span id="L22284" class="LineNr">22284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22285" class="LineNr">22285 </span> } +<span id="L22286" class="LineNr">22286 </span> 89/<- %ebx 0/r32/eax +<span id="L22287" class="LineNr">22287 </span> } +<span id="L22288" class="LineNr">22288 </span> <span class="subxComment"># if dest is a byte and src is not a literal, abort</span> +<span id="L22289" class="LineNr">22289 </span> { +<span id="L22290" class="LineNr">22290 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-byte</span>: +<span id="L22291" class="LineNr">22291 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> +<span id="L22292" class="LineNr">22292 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22293" class="LineNr">22293 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22294" class="LineNr">22294 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ecx 0) <span class="subxComment"># literal => eax</span> +<span id="L22295" class="LineNr">22295 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22296" class="LineNr">22296 </span> 0f 84/jump-if-= $check-mu-copy-to-stmt:error-non-literal-to-byte/disp32 +<span id="L22297" class="LineNr">22297 </span> } +<span id="L22298" class="LineNr">22298 </span> <span class="subxComment"># if (src-type == dest-type) return</span> +<span id="L22299" class="LineNr">22299 </span> (<a href='mu.subx.html#L26392'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22300" class="LineNr">22300 </span> 3d/compare-eax-and 0/imm32 +<span id="L22301" class="LineNr">22301 </span> 0f 85/jump-if-!= $check-mu-copy-to-stmt:end/disp32 +<span id="L22302" class="LineNr">22302 </span> <span class="subxComment"># if dest is an addr and src is 0, return</span> +<span id="L22303" class="LineNr">22303 </span> { +<span id="L22304" class="LineNr">22304 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-addr</span>: +<span id="L22305" class="LineNr">22305 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L22306" class="LineNr">22306 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22307" class="LineNr">22307 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22308" class="LineNr">22308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22309" class="LineNr">22309 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22310" class="LineNr">22310 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22311" class="LineNr">22311 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22312" class="LineNr">22312 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22313" class="LineNr">22313 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 +<span id="L22314" class="LineNr">22314 </span> } +<span id="L22315" class="LineNr">22315 </span> <span class="subxComment"># if dest is an offset and src is 0, return</span> +<span id="L22316" class="LineNr">22316 </span> { +<span id="L22317" class="LineNr">22317 </span><span class="Constant">$check-mu-copy-to-stmt:final-check-offset</span>: +<span id="L22318" class="LineNr">22318 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L22319" class="LineNr">22319 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22320" class="LineNr">22320 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22321" class="LineNr">22321 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L22322" class="LineNr">22322 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22323" class="LineNr">22323 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22324" class="LineNr">22324 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22325" class="LineNr">22325 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22326" class="LineNr">22326 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22327" class="LineNr">22327 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22328" class="LineNr">22328 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22329" class="LineNr">22329 </span> e9/jump $check-mu-copy-to-stmt:end/disp32 +<span id="L22330" class="LineNr">22330 </span> } +<span id="L22331" class="LineNr">22331 </span> <span class="subxComment"># if dest is not number-like, abort</span> +<span id="L22332" class="LineNr">22332 </span> (<a href='mu.subx.html#L21827'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22333" class="LineNr">22333 </span><span class="Constant">$check-mu-copy-to-stmt:end</span>: +<span id="L22334" class="LineNr">22334 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22335" class="LineNr">22335 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22336" class="LineNr">22336 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22337" class="LineNr">22337 </span> 5f/pop-to-edi +<span id="L22338" class="LineNr">22338 </span> 5e/pop-to-esi +<span id="L22339" class="LineNr">22339 </span> 5b/pop-to-ebx +<span id="L22340" class="LineNr">22340 </span> 5a/pop-to-edx +<span id="L22341" class="LineNr">22341 </span> 59/pop-to-ecx +<span id="L22342" class="LineNr">22342 </span> 58/pop-to-eax +<span id="L22343" class="LineNr">22343 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22344" class="LineNr">22344 </span> 89/<- %esp 5/r32/ebp +<span id="L22345" class="LineNr">22345 </span> 5d/pop-to-ebp +<span id="L22346" class="LineNr">22346 </span> c3/return +<span id="L22347" class="LineNr">22347 </span> +<span id="L22348" class="LineNr">22348 </span><span class="Constant">$check-mu-copy-to-stmt:error-incorrect-inouts</span>: +<span id="L22349" class="LineNr">22349 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22350" class="LineNr">22350 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22351" class="LineNr">22351 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22352" class="LineNr">22352 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22353" class="LineNr">22353 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-to' must have two inouts\n"</span>) +<span id="L22354" class="LineNr">22354 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22355" class="LineNr">22355 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22356" class="LineNr">22356 </span> <span class="subxComment"># never gets here</span> +<span id="L22357" class="LineNr">22357 </span> +<span id="L22358" class="LineNr">22358 </span><span class="Constant">$check-mu-copy-to-stmt:error-too-many-outputs</span>: +<span id="L22359" class="LineNr">22359 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22360" class="LineNr">22360 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22361" class="LineNr">22361 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22362" class="LineNr">22362 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22363" class="LineNr">22363 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-to' must not have any outputs\n"</span>) +<span id="L22364" class="LineNr">22364 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22365" class="LineNr">22365 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22366" class="LineNr">22366 </span> <span class="subxComment"># never gets here</span> +<span id="L22367" class="LineNr">22367 </span> +<span id="L22368" class="LineNr">22368 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-not-literal-or-in-register</span>: +<span id="L22369" class="LineNr">22369 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22370" class="LineNr">22370 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22371" class="LineNr">22371 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22372" class="LineNr">22372 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22373" class="LineNr">22373 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: source (second inout) is in memory\n"</span>) +<span id="L22374" class="LineNr">22374 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22375" class="LineNr">22375 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22376" class="LineNr">22376 </span> <span class="subxComment"># never gets here</span> +<span id="L22377" class="LineNr">22377 </span> +<span id="L22378" class="LineNr">22378 </span><span class="Constant">$check-mu-copy-to-stmt:error-src-too-large</span>: +<span id="L22379" class="LineNr">22379 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22380" class="LineNr">22380 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22381" class="LineNr">22381 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22382" class="LineNr">22382 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22383" class="LineNr">22383 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: '"</span>) +<span id="L22384" class="LineNr">22384 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22385" class="LineNr">22385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22386" class="LineNr">22386 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22387" class="LineNr">22387 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to copy\n"</span>) +<span id="L22388" class="LineNr">22388 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22389" class="LineNr">22389 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22390" class="LineNr">22390 </span> <span class="subxComment"># never gets here</span> +<span id="L22391" class="LineNr">22391 </span> +<span id="L22392" class="LineNr">22392 </span><span class="Constant">$check-mu-copy-to-stmt:error-non-literal-to-byte</span>: +<span id="L22393" class="LineNr">22393 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22394" class="LineNr">22394 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22395" class="LineNr">22395 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22396" class="LineNr">22396 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22397" class="LineNr">22397 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-to: cannot copy non-literal to type byte; use copy-byte-to\n"</span>) +<span id="L22398" class="LineNr">22398 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22399" class="LineNr">22399 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22400" class="LineNr">22400 </span> <span class="subxComment"># never gets here</span> +<span id="L22401" class="LineNr">22401 </span> +<span id="L22402" class="LineNr">22402 </span><span class="subxFunction">check-mu-copy-byte-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L22403" class="LineNr">22403 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22404" class="LineNr">22404 </span> 55/push-ebp +<span id="L22405" class="LineNr">22405 </span> 89/<- %ebp 4/r32/esp +<span id="L22406" class="LineNr">22406 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22407" class="LineNr">22407 </span> 50/push-eax +<span id="L22408" class="LineNr">22408 </span> 51/push-ecx +<span id="L22409" class="LineNr">22409 </span> 52/push-edx +<span id="L22410" class="LineNr">22410 </span> 56/push-esi +<span id="L22411" class="LineNr">22411 </span> 57/push-edi +<span id="L22412" class="LineNr">22412 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22413" class="LineNr">22413 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22414" class="LineNr">22414 </span> 68/push 0x60/imm32/size +<span id="L22415" class="LineNr">22415 </span> 68/push 0/imm32/read +<span id="L22416" class="LineNr">22416 </span> 68/push 0/imm32/write +<span id="L22417" class="LineNr">22417 </span> 89/<- %edx 4/r32/esp +<span id="L22418" class="LineNr">22418 </span><span class="Constant">$check-mu-copy-byte-stmt:get-output</span>: +<span id="L22419" class="LineNr">22419 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22420" class="LineNr">22420 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22421" class="LineNr">22421 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L22422" class="LineNr">22422 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22423" class="LineNr">22423 </span> 89/<- %edi 0/r32/eax +<span id="L22424" class="LineNr">22424 </span> <span class="subxComment"># zero outputs</span> +<span id="L22425" class="LineNr">22425 </span> 3d/compare-eax-and 0/imm32 +<span id="L22426" class="LineNr">22426 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-output/disp32 +<span id="L22427" class="LineNr">22427 </span> <span class="subxComment"># > 1 output</span> +<span id="L22428" class="LineNr">22428 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22429" class="LineNr">22429 </span> 3d/compare-eax-and 0/imm32 +<span id="L22430" class="LineNr">22430 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-outputs/disp32 +<span id="L22431" class="LineNr">22431 </span><span class="Constant">$check-mu-copy-byte-stmt:get-inout</span>: +<span id="L22432" class="LineNr">22432 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22433" class="LineNr">22433 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22434" class="LineNr">22434 </span> 89/<- %esi 0/r32/eax +<span id="L22435" class="LineNr">22435 </span> <span class="subxComment"># zero inouts</span> +<span id="L22436" class="LineNr">22436 </span> 3d/compare-eax-and 0/imm32 +<span id="L22437" class="LineNr">22437 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-no-inout/disp32 +<span id="L22438" class="LineNr">22438 </span> <span class="subxComment"># > 1 inout</span> +<span id="L22439" class="LineNr">22439 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22440" class="LineNr">22440 </span> 3d/compare-eax-and 0/imm32 +<span id="L22441" class="LineNr">22441 </span> 0f 85/jump-if-!= $check-mu-copy-byte-stmt:error-too-many-inouts/disp32 +<span id="L22442" class="LineNr">22442 </span><span class="Constant">$check-mu-copy-byte-stmt:types</span>: +<span id="L22443" class="LineNr">22443 </span> <span class="subxComment"># if inout is not a scalar, abort</span> +<span id="L22444" class="LineNr">22444 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22445" class="LineNr">22445 </span> (<a href='mu.subx.html#L26551'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22446" class="LineNr">22446 </span> 3d/compare-eax-and 4/imm32 +<span id="L22447" class="LineNr">22447 </span> 0f 8f/jump-if-> $check-mu-copy-byte-stmt:error-inout-too-large/disp32 +<span id="L22448" class="LineNr">22448 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L22449" class="LineNr">22449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22450" class="LineNr">22450 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22451" class="LineNr">22451 </span> 89/<- %ecx 0/r32/eax +<span id="L22452" class="LineNr">22452 </span><span class="Constant">$check-mu-copy-byte-stmt:check-inout-deref</span>: +<span id="L22453" class="LineNr">22453 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L22454" class="LineNr">22454 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22455" class="LineNr">22455 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22456" class="LineNr">22456 </span> { +<span id="L22457" class="LineNr">22457 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22458" class="LineNr">22458 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref</span>: +<span id="L22459" class="LineNr">22459 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22460" class="LineNr">22460 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L22461" class="LineNr">22461 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22462" class="LineNr">22462 </span> { +<span id="L22463" class="LineNr">22463 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22464" class="LineNr">22464 </span><span class="Constant">$check-mu-copy-byte-stmt:inout-is-deref2</span>: +<span id="L22465" class="LineNr">22465 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22466" class="LineNr">22466 </span> } +<span id="L22467" class="LineNr">22467 </span> 89/<- %ecx 0/r32/eax +<span id="L22468" class="LineNr">22468 </span> } +<span id="L22469" class="LineNr">22469 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L22470" class="LineNr">22470 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22471" class="LineNr">22471 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22472" class="LineNr">22472 </span> 3d/compare-eax-and 0/imm32 +<span id="L22473" class="LineNr">22473 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-output-not-in-register/disp32 +<span id="L22474" class="LineNr">22474 </span> <span class="subxComment"># var output-type/eax: (addr type-tree) = output->value->type</span> +<span id="L22475" class="LineNr">22475 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22476" class="LineNr">22476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22477" class="LineNr">22477 </span> <span class="subxComment"># if output is not of type byte, abort</span> +<span id="L22478" class="LineNr">22478 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L22479" class="LineNr">22479 </span> 3d/compare-eax-and 0/imm32 +<span id="L22480" class="LineNr">22480 </span> 0f 84/jump-if-= $check-mu-copy-byte-stmt:error-invalid-output-type/disp32 +<span id="L22481" class="LineNr">22481 </span><span class="Constant">$check-mu-copy-byte-stmt:end</span>: +<span id="L22482" class="LineNr">22482 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22483" class="LineNr">22483 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22484" class="LineNr">22484 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22485" class="LineNr">22485 </span> 5f/pop-to-edi +<span id="L22486" class="LineNr">22486 </span> 5e/pop-to-esi +<span id="L22487" class="LineNr">22487 </span> 5a/pop-to-edx +<span id="L22488" class="LineNr">22488 </span> 59/pop-to-ecx +<span id="L22489" class="LineNr">22489 </span> 58/pop-to-eax +<span id="L22490" class="LineNr">22490 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22491" class="LineNr">22491 </span> 89/<- %esp 5/r32/ebp +<span id="L22492" class="LineNr">22492 </span> 5d/pop-to-ebp +<span id="L22493" class="LineNr">22493 </span> c3/return +<span id="L22494" class="LineNr">22494 </span> +<span id="L22495" class="LineNr">22495 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-inout</span>: +<span id="L22496" class="LineNr">22496 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22497" class="LineNr">22497 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22498" class="LineNr">22498 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22499" class="LineNr">22499 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22500" class="LineNr">22500 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an inout\n"</span>) +<span id="L22501" class="LineNr">22501 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22502" class="LineNr">22502 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22503" class="LineNr">22503 </span> <span class="subxComment"># never gets here</span> +<span id="L22504" class="LineNr">22504 </span> +<span id="L22505" class="LineNr">22505 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-inouts</span>: +<span id="L22506" class="LineNr">22506 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22507" class="LineNr">22507 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22508" class="LineNr">22508 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22509" class="LineNr">22509 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22510" class="LineNr">22510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one inout\n"</span>) +<span id="L22511" class="LineNr">22511 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22512" class="LineNr">22512 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22513" class="LineNr">22513 </span> <span class="subxComment"># never gets here</span> +<span id="L22514" class="LineNr">22514 </span> +<span id="L22515" class="LineNr">22515 </span><span class="Constant">$check-mu-copy-byte-stmt:error-no-output</span>: +<span id="L22516" class="LineNr">22516 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22517" class="LineNr">22517 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22518" class="LineNr">22518 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22519" class="LineNr">22519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22520" class="LineNr">22520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' expects an output\n"</span>) +<span id="L22521" class="LineNr">22521 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22522" class="LineNr">22522 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22523" class="LineNr">22523 </span> <span class="subxComment"># never gets here</span> +<span id="L22524" class="LineNr">22524 </span> +<span id="L22525" class="LineNr">22525 </span><span class="Constant">$check-mu-copy-byte-stmt:error-output-not-in-register</span>: +<span id="L22526" class="LineNr">22526 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22527" class="LineNr">22527 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22528" class="LineNr">22528 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22529" class="LineNr">22529 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22530" class="LineNr">22530 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: output '"</span>) +<span id="L22531" class="LineNr">22531 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22532" class="LineNr">22532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22533" class="LineNr">22533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22534" class="LineNr">22534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L22535" class="LineNr">22535 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22536" class="LineNr">22536 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22537" class="LineNr">22537 </span> <span class="subxComment"># never gets here</span> +<span id="L22538" class="LineNr">22538 </span> +<span id="L22539" class="LineNr">22539 </span><span class="Constant">$check-mu-copy-byte-stmt:error-too-many-outputs</span>: +<span id="L22540" class="LineNr">22540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22541" class="LineNr">22541 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22542" class="LineNr">22542 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22543" class="LineNr">22543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22544" class="LineNr">22544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must have just one output\n"</span>) +<span id="L22545" class="LineNr">22545 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22546" class="LineNr">22546 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22547" class="LineNr">22547 </span> <span class="subxComment"># never gets here</span> +<span id="L22548" class="LineNr">22548 </span> +<span id="L22549" class="LineNr">22549 </span><span class="Constant">$check-mu-copy-byte-stmt:error-invalid-output-type</span>: +<span id="L22550" class="LineNr">22550 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22551" class="LineNr">22551 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22552" class="LineNr">22552 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22553" class="LineNr">22553 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22554" class="LineNr">22554 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte' must <a href='108write.subx.html#L24'>write</a> to output of type byte\n"</span>) +<span id="L22555" class="LineNr">22555 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22556" class="LineNr">22556 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22557" class="LineNr">22557 </span> <span class="subxComment"># never gets here</span> +<span id="L22558" class="LineNr">22558 </span> +<span id="L22559" class="LineNr">22559 </span><span class="Constant">$check-mu-copy-byte-stmt:error-inout-too-large</span>: +<span id="L22560" class="LineNr">22560 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22561" class="LineNr">22561 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22562" class="LineNr">22562 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22563" class="LineNr">22563 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22564" class="LineNr">22564 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte: '"</span>) +<span id="L22565" class="LineNr">22565 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22566" class="LineNr">22566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22567" class="LineNr">22567 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22568" class="LineNr">22568 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to fit in a register\n"</span>) +<span id="L22569" class="LineNr">22569 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22570" class="LineNr">22570 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22571" class="LineNr">22571 </span> <span class="subxComment"># never gets here</span> +<span id="L22572" class="LineNr">22572 </span> +<span id="L22573" class="LineNr">22573 </span><span class="subxFunction">check-mu-copy-byte-to-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L22574" class="LineNr">22574 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22575" class="LineNr">22575 </span> 55/push-ebp +<span id="L22576" class="LineNr">22576 </span> 89/<- %ebp 4/r32/esp +<span id="L22577" class="LineNr">22577 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22578" class="LineNr">22578 </span> 50/push-eax +<span id="L22579" class="LineNr">22579 </span> 52/push-edx +<span id="L22580" class="LineNr">22580 </span> 53/push-ebx +<span id="L22581" class="LineNr">22581 </span> 56/push-esi +<span id="L22582" class="LineNr">22582 </span> 57/push-edi +<span id="L22583" class="LineNr">22583 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22584" class="LineNr">22584 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22585" class="LineNr">22585 </span> 68/push 0x60/imm32/size +<span id="L22586" class="LineNr">22586 </span> 68/push 0/imm32/read +<span id="L22587" class="LineNr">22587 </span> 68/push 0/imm32/write +<span id="L22588" class="LineNr">22588 </span> 89/<- %edx 4/r32/esp +<span id="L22589" class="LineNr">22589 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22590" class="LineNr">22590 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22591" class="LineNr">22591 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-for-output</span>: +<span id="L22592" class="LineNr">22592 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22593" class="LineNr">22593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22594" class="LineNr">22594 </span> 3d/compare-eax-and 0/imm32 +<span id="L22595" class="LineNr">22595 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-too-many-outputs/disp32 +<span id="L22596" class="LineNr">22596 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-dest</span>: +<span id="L22597" class="LineNr">22597 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22598" class="LineNr">22598 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22599" class="LineNr">22599 </span> 89/<- %edi 0/r32/eax +<span id="L22600" class="LineNr">22600 </span> <span class="subxComment"># zero inouts</span> +<span id="L22601" class="LineNr">22601 </span> 3d/compare-eax-and 0/imm32 +<span id="L22602" class="LineNr">22602 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22603" class="LineNr">22603 </span><span class="Constant">$check-mu-copy-byte-to-stmt:get-src</span>: +<span id="L22604" class="LineNr">22604 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L22605" class="LineNr">22605 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22606" class="LineNr">22606 </span> 89/<- %esi 0/r32/eax +<span id="L22607" class="LineNr">22607 </span> <span class="subxComment"># 1 inout</span> +<span id="L22608" class="LineNr">22608 </span> 3d/compare-eax-and 0/imm32 +<span id="L22609" class="LineNr">22609 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22610" class="LineNr">22610 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22611" class="LineNr">22611 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22612" class="LineNr">22612 </span> 3d/compare-eax-and 0/imm32 +<span id="L22613" class="LineNr">22613 </span> 0f 85/jump-if-!= $check-mu-copy-byte-to-stmt:error-incorrect-inouts/disp32 +<span id="L22614" class="LineNr">22614 </span><span class="Constant">$check-mu-copy-byte-to-stmt:types</span>: +<span id="L22615" class="LineNr">22615 </span> <span class="subxComment"># if src is not a scalar, abort</span> +<span id="L22616" class="LineNr">22616 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22617" class="LineNr">22617 </span> (<a href='mu.subx.html#L26551'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22618" class="LineNr">22618 </span> 3d/compare-eax-and 4/imm32 +<span id="L22619" class="LineNr">22619 </span> 0f 8f/jump-if-> $check-mu-copy-byte-to-stmt:error-src-too-large/disp32 +<span id="L22620" class="LineNr">22620 </span> <span class="subxComment"># if src not in register, abort</span> +<span id="L22621" class="LineNr">22621 </span> { +<span id="L22622" class="LineNr">22622 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22623" class="LineNr">22623 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22624" class="LineNr">22624 </span> 3d/compare-eax-and 0/imm32 +<span id="L22625" class="LineNr">22625 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22626" class="LineNr">22626 </span> e9/jump $check-mu-copy-byte-to-stmt:error-src-not-in-register/disp32 +<span id="L22627" class="LineNr">22627 </span> } +<span id="L22628" class="LineNr">22628 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L22629" class="LineNr">22629 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22630" class="LineNr">22630 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22631" class="LineNr">22631 </span> 89/<- %ebx 0/r32/eax +<span id="L22632" class="LineNr">22632 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L22633" class="LineNr">22633 </span><span class="Constant">$check-mu-copy-byte-to-stmt:check-dest-deref</span>: +<span id="L22634" class="LineNr">22634 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22635" class="LineNr">22635 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22636" class="LineNr">22636 </span> { +<span id="L22637" class="LineNr">22637 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22638" class="LineNr">22638 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22639" class="LineNr">22639 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref</span>: +<span id="L22640" class="LineNr">22640 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L22641" class="LineNr">22641 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22642" class="LineNr">22642 </span> { +<span id="L22643" class="LineNr">22643 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22644" class="LineNr">22644 </span><span class="Constant">$check-mu-copy-byte-to-stmt:dest-is-deref2</span>: +<span id="L22645" class="LineNr">22645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22646" class="LineNr">22646 </span> } +<span id="L22647" class="LineNr">22647 </span> 89/<- %ebx 0/r32/eax +<span id="L22648" class="LineNr">22648 </span> } +<span id="L22649" class="LineNr">22649 </span> <span class="subxComment"># if dest is not a byte, abort</span> +<span id="L22650" class="LineNr">22650 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 8) <span class="subxComment"># byte => eax</span> +<span id="L22651" class="LineNr">22651 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22652" class="LineNr">22652 </span> 0f 84/jump-if-= $check-mu-copy-byte-to-stmt:error-invalid-dest-type/disp32 +<span id="L22653" class="LineNr">22653 </span><span class="Constant">$check-mu-copy-byte-to-stmt:end</span>: +<span id="L22654" class="LineNr">22654 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22655" class="LineNr">22655 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22656" class="LineNr">22656 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22657" class="LineNr">22657 </span> 5f/pop-to-edi +<span id="L22658" class="LineNr">22658 </span> 5e/pop-to-esi +<span id="L22659" class="LineNr">22659 </span> 5b/pop-to-ebx +<span id="L22660" class="LineNr">22660 </span> 5a/pop-to-edx +<span id="L22661" class="LineNr">22661 </span> 58/pop-to-eax +<span id="L22662" class="LineNr">22662 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22663" class="LineNr">22663 </span> 89/<- %esp 5/r32/ebp +<span id="L22664" class="LineNr">22664 </span> 5d/pop-to-ebp +<span id="L22665" class="LineNr">22665 </span> c3/return +<span id="L22666" class="LineNr">22666 </span> +<span id="L22667" class="LineNr">22667 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-incorrect-inouts</span>: +<span id="L22668" class="LineNr">22668 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22669" class="LineNr">22669 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22670" class="LineNr">22670 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22671" class="LineNr">22671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22672" class="LineNr">22672 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must have two inouts\n"</span>) +<span id="L22673" class="LineNr">22673 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22674" class="LineNr">22674 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22675" class="LineNr">22675 </span> <span class="subxComment"># never gets here</span> +<span id="L22676" class="LineNr">22676 </span> +<span id="L22677" class="LineNr">22677 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-too-many-outputs</span>: +<span id="L22678" class="LineNr">22678 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22679" class="LineNr">22679 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22680" class="LineNr">22680 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22681" class="LineNr">22681 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22682" class="LineNr">22682 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-byte-to' must not have any outputs\n"</span>) +<span id="L22683" class="LineNr">22683 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22684" class="LineNr">22684 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22685" class="LineNr">22685 </span> <span class="subxComment"># never gets here</span> +<span id="L22686" class="LineNr">22686 </span> +<span id="L22687" class="LineNr">22687 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-not-in-register</span>: +<span id="L22688" class="LineNr">22688 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22689" class="LineNr">22689 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22690" class="LineNr">22690 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22691" class="LineNr">22691 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22692" class="LineNr">22692 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: source (second inout) must be in a register\n"</span>) +<span id="L22693" class="LineNr">22693 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22694" class="LineNr">22694 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22695" class="LineNr">22695 </span> <span class="subxComment"># never gets here</span> +<span id="L22696" class="LineNr">22696 </span> +<span id="L22697" class="LineNr">22697 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-invalid-dest-type</span>: +<span id="L22698" class="LineNr">22698 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22699" class="LineNr">22699 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22700" class="LineNr">22700 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22701" class="LineNr">22701 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22702" class="LineNr">22702 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) +<span id="L22703" class="LineNr">22703 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22704" class="LineNr">22704 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22705" class="LineNr">22705 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22706" class="LineNr">22706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be a byte\n"</span>) +<span id="L22707" class="LineNr">22707 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22708" class="LineNr">22708 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22709" class="LineNr">22709 </span> <span class="subxComment"># never gets here</span> +<span id="L22710" class="LineNr">22710 </span> +<span id="L22711" class="LineNr">22711 </span><span class="Constant">$check-mu-copy-byte-to-stmt:error-src-too-large</span>: +<span id="L22712" class="LineNr">22712 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22713" class="LineNr">22713 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22714" class="LineNr">22714 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22715" class="LineNr">22715 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22716" class="LineNr">22716 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-byte-to: '"</span>) +<span id="L22717" class="LineNr">22717 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22718" class="LineNr">22718 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22719" class="LineNr">22719 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22720" class="LineNr">22720 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to copy\n"</span>) +<span id="L22721" class="LineNr">22721 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22722" class="LineNr">22722 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22723" class="LineNr">22723 </span> <span class="subxComment"># never gets here</span> +<span id="L22724" class="LineNr">22724 </span> +<span id="L22725" class="LineNr">22725 </span><span class="subxFunction">check-mu-compare-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L22726" class="LineNr">22726 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22727" class="LineNr">22727 </span> 55/push-ebp +<span id="L22728" class="LineNr">22728 </span> 89/<- %ebp 4/r32/esp +<span id="L22729" class="LineNr">22729 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22730" class="LineNr">22730 </span> 50/push-eax +<span id="L22731" class="LineNr">22731 </span> 51/push-ecx +<span id="L22732" class="LineNr">22732 </span> 52/push-edx +<span id="L22733" class="LineNr">22733 </span> 53/push-ebx +<span id="L22734" class="LineNr">22734 </span> 56/push-esi +<span id="L22735" class="LineNr">22735 </span> 57/push-edi +<span id="L22736" class="LineNr">22736 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L22737" class="LineNr">22737 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L22738" class="LineNr">22738 </span> 68/push 0x60/imm32/size +<span id="L22739" class="LineNr">22739 </span> 68/push 0/imm32/read +<span id="L22740" class="LineNr">22740 </span> 68/push 0/imm32/write +<span id="L22741" class="LineNr">22741 </span> 89/<- %edx 4/r32/esp +<span id="L22742" class="LineNr">22742 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22743" class="LineNr">22743 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22744" class="LineNr">22744 </span><span class="Constant">$check-mu-compare-stmt:check-for-output</span>: +<span id="L22745" class="LineNr">22745 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L22746" class="LineNr">22746 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22747" class="LineNr">22747 </span> 3d/compare-eax-and 0/imm32 +<span id="L22748" class="LineNr">22748 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-too-many-outputs/disp32 +<span id="L22749" class="LineNr">22749 </span><span class="Constant">$check-mu-compare-stmt:get-left</span>: +<span id="L22750" class="LineNr">22750 </span> <span class="subxComment"># var left/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L22751" class="LineNr">22751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22752" class="LineNr">22752 </span> 89/<- %edi 0/r32/eax +<span id="L22753" class="LineNr">22753 </span> <span class="subxComment"># zero inouts</span> +<span id="L22754" class="LineNr">22754 </span> 3d/compare-eax-and 0/imm32 +<span id="L22755" class="LineNr">22755 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22756" class="LineNr">22756 </span><span class="Constant">$check-mu-compare-stmt:get-right</span>: +<span id="L22757" class="LineNr">22757 </span> <span class="subxComment"># var right/esi: (addr stmt-var) = left->next</span> +<span id="L22758" class="LineNr">22758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22759" class="LineNr">22759 </span> 89/<- %esi 0/r32/eax +<span id="L22760" class="LineNr">22760 </span> <span class="subxComment"># 1 inout</span> +<span id="L22761" class="LineNr">22761 </span> 3d/compare-eax-and 0/imm32 +<span id="L22762" class="LineNr">22762 </span> 0f 84/jump-if-= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22763" class="LineNr">22763 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L22764" class="LineNr">22764 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22765" class="LineNr">22765 </span> 3d/compare-eax-and 0/imm32 +<span id="L22766" class="LineNr">22766 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-incorrect-inouts/disp32 +<span id="L22767" class="LineNr">22767 </span> <span class="subxComment"># if both inouts are in memory, abort</span> +<span id="L22768" class="LineNr">22768 </span> { +<span id="L22769" class="LineNr">22769 </span><span class="Constant">$check-mu-compare-stmt:both-in-mem</span>: +<span id="L22770" class="LineNr">22770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22771" class="LineNr">22771 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22772" class="LineNr">22772 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22773" class="LineNr">22773 </span> 3d/compare-eax-and 0/imm32 +<span id="L22774" class="LineNr">22774 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L22775" class="LineNr">22775 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22776" class="LineNr">22776 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22777" class="LineNr">22777 </span> 3d/compare-eax-and 0/imm32 +<span id="L22778" class="LineNr">22778 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22779" class="LineNr">22779 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22780" class="LineNr">22780 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22781" class="LineNr">22781 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L22782" class="LineNr">22782 </span> 3d/compare-eax-and 0/imm32 +<span id="L22783" class="LineNr">22783 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22784" class="LineNr">22784 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22785" class="LineNr">22785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22786" class="LineNr">22786 </span> 3d/compare-eax-and 0/imm32 +<span id="L22787" class="LineNr">22787 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22788" class="LineNr">22788 </span> e9/jump $check-mu-compare-stmt:error-both-in-memory/disp32 +<span id="L22789" class="LineNr">22789 </span> } +<span id="L22790" class="LineNr">22790 </span><span class="Constant">$check-mu-compare-stmt:types</span>: +<span id="L22791" class="LineNr">22791 </span> <span class="subxComment"># var right-type/ecx: (addr type-tree) = right->value->type</span> +<span id="L22792" class="LineNr">22792 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22793" class="LineNr">22793 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22794" class="LineNr">22794 </span> 89/<- %ecx 0/r32/eax +<span id="L22795" class="LineNr">22795 </span> <span class="subxComment"># if (right->is-deref?) right-type = right-type->payload</span> +<span id="L22796" class="LineNr">22796 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22797" class="LineNr">22797 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22798" class="LineNr">22798 </span> { +<span id="L22799" class="LineNr">22799 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22800" class="LineNr">22800 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22801" class="LineNr">22801 </span> <span class="subxComment"># if right-type->right is null, right-type = right-type->left</span> +<span id="L22802" class="LineNr">22802 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22803" class="LineNr">22803 </span> { +<span id="L22804" class="LineNr">22804 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22805" class="LineNr">22805 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22806" class="LineNr">22806 </span> } +<span id="L22807" class="LineNr">22807 </span> 89/<- %ecx 0/r32/eax +<span id="L22808" class="LineNr">22808 </span> } +<span id="L22809" class="LineNr">22809 </span> <span class="subxComment"># if right-type is a literal string, abort</span> +<span id="L22810" class="LineNr">22810 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ecx 0x10) <span class="subxComment"># string-literal => eax</span> +<span id="L22811" class="LineNr">22811 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22812" class="LineNr">22812 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:error-right-string-literal/disp32 +<span id="L22813" class="LineNr">22813 </span> <span class="subxComment"># if right is not a scalar, abort</span> +<span id="L22814" class="LineNr">22814 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22815" class="LineNr">22815 </span> (<a href='mu.subx.html#L26551'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22816" class="LineNr">22816 </span> 3d/compare-eax-and 4/imm32 +<span id="L22817" class="LineNr">22817 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-right-too-large/disp32 +<span id="L22818" class="LineNr">22818 </span> <span class="subxComment"># if left is not a scalar, abort</span> +<span id="L22819" class="LineNr">22819 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22820" class="LineNr">22820 </span> (<a href='mu.subx.html#L26551'>size-of</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22821" class="LineNr">22821 </span> 3d/compare-eax-and 4/imm32 +<span id="L22822" class="LineNr">22822 </span> 0f 8f/jump-if-> $check-mu-compare-stmt:error-left-too-large/disp32 +<span id="L22823" class="LineNr">22823 </span> <span class="subxComment"># var left-type/ebx: (addr type-tree) = left->value->type</span> +<span id="L22824" class="LineNr">22824 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22825" class="LineNr">22825 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22826" class="LineNr">22826 </span> 89/<- %ebx 0/r32/eax +<span id="L22827" class="LineNr">22827 </span> <span class="subxComment"># if (left->is-deref?) left-type = left-type->payload</span> +<span id="L22828" class="LineNr">22828 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L22829" class="LineNr">22829 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22830" class="LineNr">22830 </span> { +<span id="L22831" class="LineNr">22831 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22832" class="LineNr">22832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22833" class="LineNr">22833 </span> <span class="subxComment"># if left-type->right is null, left-type = left-type->left</span> +<span id="L22834" class="LineNr">22834 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L22835" class="LineNr">22835 </span> { +<span id="L22836" class="LineNr">22836 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L22837" class="LineNr">22837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L22838" class="LineNr">22838 </span> } +<span id="L22839" class="LineNr">22839 </span> 89/<- %ebx 0/r32/eax +<span id="L22840" class="LineNr">22840 </span> } +<span id="L22841" class="LineNr">22841 </span> <span class="subxComment"># if (left-type == right-type) return</span> +<span id="L22842" class="LineNr">22842 </span> (<a href='mu.subx.html#L26392'>type-match?</a> %ebx %ecx %edx) <span class="subxComment"># => eax</span> +<span id="L22843" class="LineNr">22843 </span> 3d/compare-eax-and 0/imm32 +<span id="L22844" class="LineNr">22844 </span> 0f 85/jump-if-!= $check-mu-compare-stmt:end/disp32 +<span id="L22845" class="LineNr">22845 </span> <span class="subxComment"># if left is an addr and right is 0, return</span> +<span id="L22846" class="LineNr">22846 </span> { +<span id="L22847" class="LineNr">22847 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22848" class="LineNr">22848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22849" class="LineNr">22849 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L22850" class="LineNr">22850 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22851" class="LineNr">22851 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22852" class="LineNr">22852 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22853" class="LineNr">22853 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22854" class="LineNr">22854 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L22855" class="LineNr">22855 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22856" class="LineNr">22856 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L22857" class="LineNr">22857 </span> eb/jump $check-mu-compare-stmt:end/disp8 +<span id="L22858" class="LineNr">22858 </span> } +<span id="L22859" class="LineNr">22859 </span> <span class="subxComment"># if left is not number-like, abort</span> +<span id="L22860" class="LineNr">22860 </span> (<a href='mu.subx.html#L21827'>check-mu-numberlike-arg</a> %edi *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L22861" class="LineNr">22861 </span><span class="Constant">$check-mu-compare-stmt:end</span>: +<span id="L22862" class="LineNr">22862 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L22863" class="LineNr">22863 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L22864" class="LineNr">22864 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L22865" class="LineNr">22865 </span> 5f/pop-to-edi +<span id="L22866" class="LineNr">22866 </span> 5e/pop-to-esi +<span id="L22867" class="LineNr">22867 </span> 5b/pop-to-ebx +<span id="L22868" class="LineNr">22868 </span> 5a/pop-to-edx +<span id="L22869" class="LineNr">22869 </span> 59/pop-to-ecx +<span id="L22870" class="LineNr">22870 </span> 58/pop-to-eax +<span id="L22871" class="LineNr">22871 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L22872" class="LineNr">22872 </span> 89/<- %esp 5/r32/ebp +<span id="L22873" class="LineNr">22873 </span> 5d/pop-to-ebp +<span id="L22874" class="LineNr">22874 </span> c3/return +<span id="L22875" class="LineNr">22875 </span> +<span id="L22876" class="LineNr">22876 </span><span class="Constant">$check-mu-compare-stmt:error-incorrect-inouts</span>: +<span id="L22877" class="LineNr">22877 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22878" class="LineNr">22878 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22879" class="LineNr">22879 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22880" class="LineNr">22880 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22881" class="LineNr">22881 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'compare' must have two inouts\n"</span>) +<span id="L22882" class="LineNr">22882 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22883" class="LineNr">22883 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22884" class="LineNr">22884 </span> <span class="subxComment"># never gets here</span> +<span id="L22885" class="LineNr">22885 </span> +<span id="L22886" class="LineNr">22886 </span><span class="Constant">$check-mu-compare-stmt:error-too-many-outputs</span>: +<span id="L22887" class="LineNr">22887 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22888" class="LineNr">22888 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22889" class="LineNr">22889 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22890" class="LineNr">22890 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22891" class="LineNr">22891 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'compare' must not have any outputs\n"</span>) +<span id="L22892" class="LineNr">22892 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22893" class="LineNr">22893 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22894" class="LineNr">22894 </span> <span class="subxComment"># never gets here</span> +<span id="L22895" class="LineNr">22895 </span> +<span id="L22896" class="LineNr">22896 </span><span class="Constant">$check-mu-compare-stmt:error-both-in-memory</span>: +<span id="L22897" class="LineNr">22897 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22898" class="LineNr">22898 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22899" class="LineNr">22899 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22900" class="LineNr">22900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22901" class="LineNr">22901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: both inouts are in memory\n"</span>) +<span id="L22902" class="LineNr">22902 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22903" class="LineNr">22903 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22904" class="LineNr">22904 </span> <span class="subxComment"># never gets here</span> +<span id="L22905" class="LineNr">22905 </span> +<span id="L22906" class="LineNr">22906 </span><span class="Constant">$check-mu-compare-stmt:error-left-too-large</span>: +<span id="L22907" class="LineNr">22907 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22908" class="LineNr">22908 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22909" class="LineNr">22909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22910" class="LineNr">22910 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22911" class="LineNr">22911 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) +<span id="L22912" class="LineNr">22912 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22913" class="LineNr">22913 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22914" class="LineNr">22914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22915" class="LineNr">22915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to compare\n"</span>) +<span id="L22916" class="LineNr">22916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22917" class="LineNr">22917 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22918" class="LineNr">22918 </span> <span class="subxComment"># never gets here</span> +<span id="L22919" class="LineNr">22919 </span> +<span id="L22920" class="LineNr">22920 </span><span class="Constant">$check-mu-compare-stmt:error-right-too-large</span>: +<span id="L22921" class="LineNr">22921 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22922" class="LineNr">22922 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22923" class="LineNr">22923 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22924" class="LineNr">22924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22925" class="LineNr">22925 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: '"</span>) +<span id="L22926" class="LineNr">22926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22927" class="LineNr">22927 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22928" class="LineNr">22928 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22929" class="LineNr">22929 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is too large to compare\n"</span>) +<span id="L22930" class="LineNr">22930 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22931" class="LineNr">22931 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22932" class="LineNr">22932 </span> <span class="subxComment"># never gets here</span> +<span id="L22933" class="LineNr">22933 </span> +<span id="L22934" class="LineNr">22934 </span><span class="Constant">$check-mu-compare-stmt:error-right-string-literal</span>: +<span id="L22935" class="LineNr">22935 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L22936" class="LineNr">22936 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L22937" class="LineNr">22937 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L22938" class="LineNr">22938 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22939" class="LineNr">22939 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compare: string literal "</span>) +<span id="L22940" class="LineNr">22940 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22941" class="LineNr">22941 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L22942" class="LineNr">22942 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L22943" class="LineNr">22943 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" is not supported; use the <a href='105string-equal.subx.html#L15'>string-equal?</a> function\n"</span>) +<span id="L22944" class="LineNr">22944 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L22945" class="LineNr">22945 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L22946" class="LineNr">22946 </span> <span class="subxComment"># never gets here</span> +<span id="L22947" class="LineNr">22947 </span> +<span id="L22948" class="LineNr">22948 </span><span class="subxFunction">check-mu-address-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L22949" class="LineNr">22949 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L22950" class="LineNr">22950 </span> 55/push-ebp +<span id="L22951" class="LineNr">22951 </span> 89/<- %ebp 4/r32/esp +<span id="L22952" class="LineNr">22952 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L22953" class="LineNr">22953 </span> 50/push-eax +<span id="L22954" class="LineNr">22954 </span> 51/push-ecx +<span id="L22955" class="LineNr">22955 </span> 52/push-edx +<span id="L22956" class="LineNr">22956 </span> 56/push-esi +<span id="L22957" class="LineNr">22957 </span> 57/push-edi +<span id="L22958" class="LineNr">22958 </span><span class="Constant">$check-mu-address-stmt:get-output</span>: +<span id="L22959" class="LineNr">22959 </span> <span class="subxComment"># esi = stmt</span> +<span id="L22960" class="LineNr">22960 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L22961" class="LineNr">22961 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L22962" class="LineNr">22962 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L22963" class="LineNr">22963 </span> 89/<- %edi 0/r32/eax +<span id="L22964" class="LineNr">22964 </span> <span class="subxComment"># zero outputs</span> +<span id="L22965" class="LineNr">22965 </span> 3d/compare-eax-and 0/imm32 +<span id="L22966" class="LineNr">22966 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-output/disp32 +<span id="L22967" class="LineNr">22967 </span> <span class="subxComment"># > 1 output</span> +<span id="L22968" class="LineNr">22968 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22969" class="LineNr">22969 </span> 3d/compare-eax-and 0/imm32 +<span id="L22970" class="LineNr">22970 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-outputs/disp32 +<span id="L22971" class="LineNr">22971 </span><span class="Constant">$check-mu-address-stmt:get-inout</span>: +<span id="L22972" class="LineNr">22972 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L22973" class="LineNr">22973 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L22974" class="LineNr">22974 </span> 89/<- %esi 0/r32/eax +<span id="L22975" class="LineNr">22975 </span> <span class="subxComment"># zero inouts</span> +<span id="L22976" class="LineNr">22976 </span> 3d/compare-eax-and 0/imm32 +<span id="L22977" class="LineNr">22977 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-no-inout/disp32 +<span id="L22978" class="LineNr">22978 </span> <span class="subxComment"># > 1 inout</span> +<span id="L22979" class="LineNr">22979 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L22980" class="LineNr">22980 </span> 3d/compare-eax-and 0/imm32 +<span id="L22981" class="LineNr">22981 </span> 0f 85/jump-if-!= $check-mu-address-stmt:error-too-many-inouts/disp32 +<span id="L22982" class="LineNr">22982 </span><span class="Constant">$check-mu-address-stmt:types</span>: +<span id="L22983" class="LineNr">22983 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L22984" class="LineNr">22984 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22985" class="LineNr">22985 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L22986" class="LineNr">22986 </span> 3d/compare-eax-and 0/imm32 +<span id="L22987" class="LineNr">22987 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-in-register/disp32 +<span id="L22988" class="LineNr">22988 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L22989" class="LineNr">22989 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L22990" class="LineNr">22990 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L22991" class="LineNr">22991 </span> 89/<- %edx 0/r32/eax +<span id="L22992" class="LineNr">22992 </span> <span class="subxComment"># if output-type not an addr, abort</span> +<span id="L22993" class="LineNr">22993 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L22994" class="LineNr">22994 </span> 3d/compare-eax-and 0/imm32/false +<span id="L22995" class="LineNr">22995 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-output-not-address/disp32 +<span id="L22996" class="LineNr">22996 </span> <span class="subxComment"># output-type = output-type->right</span> +<span id="L22997" class="LineNr">22997 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L22998" class="LineNr">22998 </span> <span class="subxComment"># if output-type->right is null, output-type = output-type->left</span> +<span id="L22999" class="LineNr">22999 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23000" class="LineNr">23000 </span> { +<span id="L23001" class="LineNr">23001 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23002" class="LineNr">23002 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23003" class="LineNr">23003 </span> } +<span id="L23004" class="LineNr">23004 </span> 89/<- %edx 0/r32/eax +<span id="L23005" class="LineNr">23005 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L23006" class="LineNr">23006 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23007" class="LineNr">23007 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23008" class="LineNr">23008 </span> 89/<- %ecx 0/r32/eax +<span id="L23009" class="LineNr">23009 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L23010" class="LineNr">23010 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23011" class="LineNr">23011 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23012" class="LineNr">23012 </span> { +<span id="L23013" class="LineNr">23013 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23014" class="LineNr">23014 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23015" class="LineNr">23015 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L23016" class="LineNr">23016 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23017" class="LineNr">23017 </span> { +<span id="L23018" class="LineNr">23018 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23019" class="LineNr">23019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23020" class="LineNr">23020 </span> } +<span id="L23021" class="LineNr">23021 </span> 89/<- %ecx 0/r32/eax +<span id="L23022" class="LineNr">23022 </span> } +<span id="L23023" class="LineNr">23023 </span> <span class="subxComment"># if (inout-type != output-type) abort</span> +<span id="L23024" class="LineNr">23024 </span> (<a href='mu.subx.html#L23125'>type-equal-ignoring-capacity?</a> %edx %ecx) <span class="subxComment"># => eax</span> +<span id="L23025" class="LineNr">23025 </span> 3d/compare-eax-and 0/imm32 +<span id="L23026" class="LineNr">23026 </span> 0f 84/jump-if-= $check-mu-address-stmt:error-type-mismatch/disp32 +<span id="L23027" class="LineNr">23027 </span><span class="Constant">$check-mu-address-stmt:end</span>: +<span id="L23028" class="LineNr">23028 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23029" class="LineNr">23029 </span> 5f/pop-to-edi +<span id="L23030" class="LineNr">23030 </span> 5e/pop-to-esi +<span id="L23031" class="LineNr">23031 </span> 5a/pop-to-edx +<span id="L23032" class="LineNr">23032 </span> 59/pop-to-ecx +<span id="L23033" class="LineNr">23033 </span> 58/pop-to-eax +<span id="L23034" class="LineNr">23034 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23035" class="LineNr">23035 </span> 89/<- %esp 5/r32/ebp +<span id="L23036" class="LineNr">23036 </span> 5d/pop-to-ebp +<span id="L23037" class="LineNr">23037 </span> c3/return +<span id="L23038" class="LineNr">23038 </span> +<span id="L23039" class="LineNr">23039 </span><span class="Constant">$check-mu-address-stmt:error-no-inout</span>: +<span id="L23040" class="LineNr">23040 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23041" class="LineNr">23041 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23042" class="LineNr">23042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23043" class="LineNr">23043 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23044" class="LineNr">23044 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' expects an inout\n"</span>) +<span id="L23045" class="LineNr">23045 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23046" class="LineNr">23046 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23047" class="LineNr">23047 </span> <span class="subxComment"># never gets here</span> +<span id="L23048" class="LineNr">23048 </span> +<span id="L23049" class="LineNr">23049 </span><span class="Constant">$check-mu-address-stmt:error-too-many-inouts</span>: +<span id="L23050" class="LineNr">23050 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23051" class="LineNr">23051 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23052" class="LineNr">23052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23053" class="LineNr">23053 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23054" class="LineNr">23054 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' must have just one inout\n"</span>) +<span id="L23055" class="LineNr">23055 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23056" class="LineNr">23056 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23057" class="LineNr">23057 </span> <span class="subxComment"># never gets here</span> +<span id="L23058" class="LineNr">23058 </span> +<span id="L23059" class="LineNr">23059 </span><span class="Constant">$check-mu-address-stmt:error-no-output</span>: +<span id="L23060" class="LineNr">23060 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23061" class="LineNr">23061 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23062" class="LineNr">23062 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23063" class="LineNr">23063 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23064" class="LineNr">23064 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' expects an output\n"</span>) +<span id="L23065" class="LineNr">23065 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23066" class="LineNr">23066 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23067" class="LineNr">23067 </span> <span class="subxComment"># never gets here</span> +<span id="L23068" class="LineNr">23068 </span> +<span id="L23069" class="LineNr">23069 </span><span class="Constant">$check-mu-address-stmt:error-output-not-in-register</span>: +<span id="L23070" class="LineNr">23070 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23071" class="LineNr">23071 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23072" class="LineNr">23072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23073" class="LineNr">23073 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23074" class="LineNr">23074 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23075" class="LineNr">23075 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23076" class="LineNr">23076 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23077" class="LineNr">23077 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23078" class="LineNr">23078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L23079" class="LineNr">23079 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23080" class="LineNr">23080 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23081" class="LineNr">23081 </span> <span class="subxComment"># never gets here</span> +<span id="L23082" class="LineNr">23082 </span> +<span id="L23083" class="LineNr">23083 </span><span class="Constant">$check-mu-address-stmt:error-too-many-outputs</span>: +<span id="L23084" class="LineNr">23084 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23085" class="LineNr">23085 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23086" class="LineNr">23086 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23087" class="LineNr">23087 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23088" class="LineNr">23088 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'address' must have just one output\n"</span>) +<span id="L23089" class="LineNr">23089 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23090" class="LineNr">23090 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23091" class="LineNr">23091 </span> <span class="subxComment"># never gets here</span> +<span id="L23092" class="LineNr">23092 </span> +<span id="L23093" class="LineNr">23093 </span><span class="Constant">$check-mu-address-stmt:error-output-not-address</span>: +<span id="L23094" class="LineNr">23094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23095" class="LineNr">23095 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23096" class="LineNr">23096 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23097" class="LineNr">23097 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23098" class="LineNr">23098 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23099" class="LineNr">23099 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23100" class="LineNr">23100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23101" class="LineNr">23101 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23102" class="LineNr">23102 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an addr\n"</span>) +<span id="L23103" class="LineNr">23103 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23104" class="LineNr">23104 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23105" class="LineNr">23105 </span> <span class="subxComment"># never gets here</span> +<span id="L23106" class="LineNr">23106 </span> +<span id="L23107" class="LineNr">23107 </span><span class="Constant">$check-mu-address-stmt:error-type-mismatch</span>: +<span id="L23108" class="LineNr">23108 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23109" class="LineNr">23109 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23110" class="LineNr">23110 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23111" class="LineNr">23111 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23112" class="LineNr">23112 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt address: output '"</span>) +<span id="L23113" class="LineNr">23113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23114" class="LineNr">23114 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23115" class="LineNr">23115 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23116" class="LineNr">23116 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' cannot hold address of '"</span>) +<span id="L23117" class="LineNr">23117 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23118" class="LineNr">23118 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23119" class="LineNr">23119 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23120" class="LineNr">23120 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L23121" class="LineNr">23121 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23122" class="LineNr">23122 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23123" class="LineNr">23123 </span> <span class="subxComment"># never gets here</span> +<span id="L23124" class="LineNr">23124 </span> +<span id="L23125" class="LineNr">23125 </span><span class="subxFunction">type-equal-ignoring-capacity?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> +<span id="L23126" class="LineNr">23126 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23127" class="LineNr">23127 </span> 55/push-ebp +<span id="L23128" class="LineNr">23128 </span> 89/<- %ebp 4/r32/esp +<span id="L23129" class="LineNr">23129 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23130" class="LineNr">23130 </span> 51/push-ecx +<span id="L23131" class="LineNr">23131 </span> 52/push-edx +<span id="L23132" class="LineNr">23132 </span> 53/push-ebx +<span id="L23133" class="LineNr">23133 </span> <span class="subxComment"># var curr-a/ecx: (addr type-tree) = a</span> +<span id="L23134" class="LineNr">23134 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23135" class="LineNr">23135 </span> <span class="subxComment"># var curr-b/ebx: (addr type-tree) = b</span> +<span id="L23136" class="LineNr">23136 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L23137" class="LineNr">23137 </span> <span class="subxComment"># if (curr-a->is-atom?) fall back to regular equality</span> +<span id="L23138" class="LineNr">23138 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23139" class="LineNr">23139 </span> 0f 85/jump-if-!= $type-equal-ignoring-capacity?:base-case/disp32 +<span id="L23140" class="LineNr">23140 </span> <span class="subxComment"># if (curr-a->left != curr-b->left) return false</span> +<span id="L23141" class="LineNr">23141 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23142" class="LineNr">23142 </span> 89/<- %edx 0/r32/eax +<span id="L23143" class="LineNr">23143 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23144" class="LineNr">23144 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %edx %eax) <span class="subxComment"># => eax</span> +<span id="L23145" class="LineNr">23145 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23146" class="LineNr">23146 </span> 0f 84/jump-if-= $type-equal-ignoring-capacity?:end/disp32 <span class="subxComment"># eax switches meaning</span> +<span id="L23147" class="LineNr">23147 </span> <span class="subxComment"># if (curr-a->left == "array") curr-a = curr-a->element-type</span> +<span id="L23148" class="LineNr">23148 </span> { +<span id="L23149" class="LineNr">23149 </span> (<a href='mu.subx.html#L26648'>mu-array?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23150" class="LineNr">23150 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23151" class="LineNr">23151 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23152" class="LineNr">23152 </span><span class="Constant">$type-equal-ignoring-capacity?:array</span>: +<span id="L23153" class="LineNr">23153 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L23154" class="LineNr">23154 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23155" class="LineNr">23155 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23156" class="LineNr">23156 </span> 89/<- %ecx 0/r32/eax +<span id="L23157" class="LineNr">23157 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L23158" class="LineNr">23158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23159" class="LineNr">23159 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23160" class="LineNr">23160 </span> 89/<- %ebx 0/r32/eax +<span id="L23161" class="LineNr">23161 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L23162" class="LineNr">23162 </span> } +<span id="L23163" class="LineNr">23163 </span> <span class="subxComment"># if (curr-a->left == "stream") curr-a = curr-a->element-type</span> +<span id="L23164" class="LineNr">23164 </span> { +<span id="L23165" class="LineNr">23165 </span> (<a href='mu.subx.html#L26713'>mu-stream?</a> %edx) <span class="subxComment"># => eax</span> +<span id="L23166" class="LineNr">23166 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23167" class="LineNr">23167 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23168" class="LineNr">23168 </span><span class="Constant">$type-equal-ignoring-capacity?:stream</span>: +<span id="L23169" class="LineNr">23169 </span> <span class="subxComment"># curr-a = curr-a->right->left</span> +<span id="L23170" class="LineNr">23170 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23171" class="LineNr">23171 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23172" class="LineNr">23172 </span> 89/<- %ecx 0/r32/eax +<span id="L23173" class="LineNr">23173 </span> <span class="subxComment"># curr-b = curr-b->right->left</span> +<span id="L23174" class="LineNr">23174 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23175" class="LineNr">23175 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23176" class="LineNr">23176 </span> 89/<- %ebx 0/r32/eax +<span id="L23177" class="LineNr">23177 </span> eb/jump $type-equal-ignoring-capacity?:base-case/disp8 +<span id="L23178" class="LineNr">23178 </span> } +<span id="L23179" class="LineNr">23179 </span><span class="Constant">$type-equal-ignoring-capacity?:base-case</span>: +<span id="L23180" class="LineNr">23180 </span> <span class="subxComment"># return type-equal?(curr-a, curr-b)</span> +<span id="L23181" class="LineNr">23181 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L23182" class="LineNr">23182 </span><span class="Constant">$type-equal-ignoring-capacity?:end</span>: +<span id="L23183" class="LineNr">23183 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23184" class="LineNr">23184 </span> 5b/pop-to-ebx +<span id="L23185" class="LineNr">23185 </span> 5a/pop-to-edx +<span id="L23186" class="LineNr">23186 </span> 59/pop-to-ecx +<span id="L23187" class="LineNr">23187 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23188" class="LineNr">23188 </span> 89/<- %esp 5/r32/ebp +<span id="L23189" class="LineNr">23189 </span> 5d/pop-to-ebp +<span id="L23190" class="LineNr">23190 </span> c3/return +<span id="L23191" class="LineNr">23191 </span> +<span id="L23192" class="LineNr">23192 </span><span class="subxFunction">check-mu-return-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L23193" class="LineNr">23193 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23194" class="LineNr">23194 </span> 55/push-ebp +<span id="L23195" class="LineNr">23195 </span> 89/<- %ebp 4/r32/esp +<span id="L23196" class="LineNr">23196 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23197" class="LineNr">23197 </span> 50/push-eax +<span id="L23198" class="LineNr">23198 </span> 51/push-ecx +<span id="L23199" class="LineNr">23199 </span> 52/push-edx +<span id="L23200" class="LineNr">23200 </span> 53/push-ebx +<span id="L23201" class="LineNr">23201 </span> 56/push-esi +<span id="L23202" class="LineNr">23202 </span> 57/push-edi +<span id="L23203" class="LineNr">23203 </span> <span class="subxComment"># var type-parameters/edx: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L23204" class="LineNr">23204 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L23205" class="LineNr">23205 </span> 68/push 0x60/imm32/size +<span id="L23206" class="LineNr">23206 </span> 68/push 0/imm32/read +<span id="L23207" class="LineNr">23207 </span> 68/push 0/imm32/write +<span id="L23208" class="LineNr">23208 </span> 89/<- %edx 4/r32/esp +<span id="L23209" class="LineNr">23209 </span> <span class="subxComment"># var template/esi: (addr list var) = fn->outputs</span> +<span id="L23210" class="LineNr">23210 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23211" class="LineNr">23211 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L23212" class="LineNr">23212 </span> 89/<- %esi 0/r32/eax +<span id="L23213" class="LineNr">23213 </span> <span class="subxComment"># var curr-template/ebx: (addr list var) = fn->outputs</span> +<span id="L23214" class="LineNr">23214 </span> 89/<- %ebx 0/r32/eax +<span id="L23215" class="LineNr">23215 </span> <span class="subxComment"># var curr/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L23216" class="LineNr">23216 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23217" class="LineNr">23217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23218" class="LineNr">23218 </span> 89/<- %edi 0/r32/eax +<span id="L23219" class="LineNr">23219 </span> { +<span id="L23220" class="LineNr">23220 </span> <span class="subxComment"># if template is null, break</span> +<span id="L23221" class="LineNr">23221 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L23222" class="LineNr">23222 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23223" class="LineNr">23223 </span> <span class="subxComment"># if curr is null, abort</span> +<span id="L23224" class="LineNr">23224 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23225" class="LineNr">23225 </span> 0f 84/jump-if-= $check-mu-return-stmt:error-too-few-inouts/disp32 +<span id="L23226" class="LineNr">23226 </span> <span class="subxComment"># var template-type/ecx: (addr type-tree) = template->value->type</span> +<span id="L23227" class="LineNr">23227 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23228" class="LineNr">23228 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23229" class="LineNr">23229 </span> 89/<- %ecx 0/r32/eax +<span id="L23230" class="LineNr">23230 </span> <span class="subxComment"># var curr-type/eax: (addr type-tree) = curr->value->type</span> +<span id="L23231" class="LineNr">23231 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23232" class="LineNr">23232 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23233" class="LineNr">23233 </span> <span class="subxComment"># if (curr->is-deref?) curr-type = payload of curr-type</span> +<span id="L23234" class="LineNr">23234 </span> 81 7/subop/compare *(edi+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L23235" class="LineNr">23235 </span> { +<span id="L23236" class="LineNr">23236 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23237" class="LineNr">23237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23238" class="LineNr">23238 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L23239" class="LineNr">23239 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23240" class="LineNr">23240 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23241" class="LineNr">23241 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23242" class="LineNr">23242 </span> } +<span id="L23243" class="LineNr">23243 </span> <span class="subxComment"># if curr-type is literal and template-type is float, abort</span> +<span id="L23244" class="LineNr">23244 </span> 50/push-eax +<span id="L23245" class="LineNr">23245 </span> { +<span id="L23246" class="LineNr">23246 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L23247" class="LineNr">23247 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23248" class="LineNr">23248 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23249" class="LineNr">23249 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L23250" class="LineNr">23250 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23251" class="LineNr">23251 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-literal-to-float/disp32 +<span id="L23252" class="LineNr">23252 </span> } +<span id="L23253" class="LineNr">23253 </span> 58/pop-to-eax +<span id="L23254" class="LineNr">23254 </span> <span class="subxComment"># if (curr-type != template-type) abort</span> +<span id="L23255" class="LineNr">23255 </span> (<a href='mu.subx.html#L26392'>type-match?</a> %ecx %eax %edx) <span class="subxComment"># => eax</span> +<span id="L23256" class="LineNr">23256 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23257" class="LineNr">23257 </span> 0f 84/jump-if-= $check-mu-return-stmt:error1/disp32 +<span id="L23258" class="LineNr">23258 </span> <span class="subxComment"># if register-within-list-with-conflict?(curr, original template, curr-template, stmt) abort</span> +<span id="L23259" class="LineNr">23259 </span> (<a href='mu.subx.html#L23412'>register-within-list-with-conflict?</a> %edi %esi %ebx *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23260" class="LineNr">23260 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23261" class="LineNr">23261 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error2/disp32 +<span id="L23262" class="LineNr">23262 </span> <span class="subxComment"># template = template->next</span> +<span id="L23263" class="LineNr">23263 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23264" class="LineNr">23264 </span> 89/<- %ebx 0/r32/eax +<span id="L23265" class="LineNr">23265 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23266" class="LineNr">23266 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23267" class="LineNr">23267 </span> 89/<- %edi 0/r32/eax +<span id="L23268" class="LineNr">23268 </span> <span class="subxComment">#</span> +<span id="L23269" class="LineNr">23269 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23270" class="LineNr">23270 </span> } +<span id="L23271" class="LineNr">23271 </span> <span class="subxComment"># if curr is not null, abort</span> +<span id="L23272" class="LineNr">23272 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23273" class="LineNr">23273 </span> 0f 85/jump-if-!= $check-mu-return-stmt:error-too-many-inouts/disp32 +<span id="L23274" class="LineNr">23274 </span><span class="Constant">$check-mu-return-stmt:end</span>: +<span id="L23275" class="LineNr">23275 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L23276" class="LineNr">23276 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L23277" class="LineNr">23277 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23278" class="LineNr">23278 </span> 5f/pop-to-edi +<span id="L23279" class="LineNr">23279 </span> 5e/pop-to-esi +<span id="L23280" class="LineNr">23280 </span> 5b/pop-to-ebx +<span id="L23281" class="LineNr">23281 </span> 5a/pop-to-edx +<span id="L23282" class="LineNr">23282 </span> 59/pop-to-ecx +<span id="L23283" class="LineNr">23283 </span> 58/pop-to-eax +<span id="L23284" class="LineNr">23284 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23285" class="LineNr">23285 </span> 89/<- %esp 5/r32/ebp +<span id="L23286" class="LineNr">23286 </span> 5d/pop-to-ebp +<span id="L23287" class="LineNr">23287 </span> c3/return +<span id="L23288" class="LineNr">23288 </span> +<span id="L23289" class="LineNr">23289 </span><span class="Constant">$check-mu-return-stmt:error1</span>: +<span id="L23290" class="LineNr">23290 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23291" class="LineNr">23291 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23292" class="LineNr">23292 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23293" class="LineNr">23293 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23294" class="LineNr">23294 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L23295" class="LineNr">23295 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23296" class="LineNr">23296 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23297" class="LineNr">23297 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23298" class="LineNr">23298 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has the wrong type\n"</span>) +<span id="L23299" class="LineNr">23299 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23300" class="LineNr">23300 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23301" class="LineNr">23301 </span> <span class="subxComment"># never gets here</span> +<span id="L23302" class="LineNr">23302 </span> +<span id="L23303" class="LineNr">23303 </span><span class="Constant">$check-mu-return-stmt:error2</span>: +<span id="L23304" class="LineNr">23304 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23305" class="LineNr">23305 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23306" class="LineNr">23306 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23307" class="LineNr">23307 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23308" class="LineNr">23308 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: '"</span>) +<span id="L23309" class="LineNr">23309 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23310" class="LineNr">23310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23311" class="LineNr">23311 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23312" class="LineNr">23312 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is no longer available\n"</span>) +<span id="L23313" class="LineNr">23313 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23314" class="LineNr">23314 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23315" class="LineNr">23315 </span> <span class="subxComment"># never gets here</span> +<span id="L23316" class="LineNr">23316 </span> +<span id="L23317" class="LineNr">23317 </span><span class="Constant">$check-mu-return-stmt:error-literal-to-float</span>: +<span id="L23318" class="LineNr">23318 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23319" class="LineNr">23319 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23320" class="LineNr">23320 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23321" class="LineNr">23321 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23322" class="LineNr">23322 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: cannot copy literal '"</span>) +<span id="L23323" class="LineNr">23323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23324" class="LineNr">23324 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23325" class="LineNr">23325 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23326" class="LineNr">23326 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' to float\n"</span>) +<span id="L23327" class="LineNr">23327 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23328" class="LineNr">23328 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23329" class="LineNr">23329 </span> <span class="subxComment"># never gets here</span> +<span id="L23330" class="LineNr">23330 </span> +<span id="L23331" class="LineNr">23331 </span><span class="Constant">$check-mu-return-stmt:error-too-few-inouts</span>: +<span id="L23332" class="LineNr">23332 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23333" class="LineNr">23333 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23334" class="LineNr">23334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23335" class="LineNr">23335 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23336" class="LineNr">23336 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too few inouts\n"</span>) +<span id="L23337" class="LineNr">23337 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23338" class="LineNr">23338 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23339" class="LineNr">23339 </span> <span class="subxComment"># never gets here</span> +<span id="L23340" class="LineNr">23340 </span> +<span id="L23341" class="LineNr">23341 </span><span class="Constant">$check-mu-return-stmt:error-too-many-inouts</span>: +<span id="L23342" class="LineNr">23342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23343" class="LineNr">23343 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23344" class="LineNr">23344 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23345" class="LineNr">23345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23346" class="LineNr">23346 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": return: too many inouts\n"</span>) +<span id="L23347" class="LineNr">23347 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23348" class="LineNr">23348 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23349" class="LineNr">23349 </span> <span class="subxComment"># never gets here</span> +<span id="L23350" class="LineNr">23350 </span> +<span id="L23351" class="LineNr">23351 </span><span class="subxFunction">check-all-unique-registers</span>: <span class="subxComment"># outputs: (addr list var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L23352" class="LineNr">23352 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23353" class="LineNr">23353 </span> 55/push-ebp +<span id="L23354" class="LineNr">23354 </span> 89/<- %ebp 4/r32/esp +<span id="L23355" class="LineNr">23355 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23356" class="LineNr">23356 </span> 50/push-eax +<span id="L23357" class="LineNr">23357 </span> 51/push-ecx +<span id="L23358" class="LineNr">23358 </span> 56/push-esi +<span id="L23359" class="LineNr">23359 </span> <span class="subxComment"># var table/esi: (addr table (handle array byte) int 8)</span> +<span id="L23360" class="LineNr">23360 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L23361" class="LineNr">23361 </span> 68/push 0x60/imm32/size +<span id="L23362" class="LineNr">23362 </span> 68/push 0/imm32/read +<span id="L23363" class="LineNr">23363 </span> 68/push 0/imm32/write +<span id="L23364" class="LineNr">23364 </span> 89/<- %esi 4/r32/esp +<span id="L23365" class="LineNr">23365 </span> <span class="subxComment"># var curr/ecx: (addr list var) = outputs</span> +<span id="L23366" class="LineNr">23366 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L23367" class="LineNr">23367 </span> { +<span id="L23368" class="LineNr">23368 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L23369" class="LineNr">23369 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L23370" class="LineNr">23370 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23371" class="LineNr">23371 </span> <span class="subxComment"># var reg/eax: (addr array byte) = curr->value->register # guaranteed to exist</span> +<span id="L23372" class="LineNr">23372 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23373" class="LineNr">23373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23374" class="LineNr">23374 </span> <span class="subxComment"># if reg exists in table, abort</span> +<span id="L23375" class="LineNr">23375 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> %esi %eax 0xc) <span class="subxComment"># => eax</span> +<span id="L23376" class="LineNr">23376 </span> 3d/compare-eax-and 0/imm32 +<span id="L23377" class="LineNr">23377 </span> 0f 85/jump-if-!= $check-all-unique-registers:abort/disp32 +<span id="L23378" class="LineNr">23378 </span> <span class="subxComment"># insert reg in table</span> +<span id="L23379" class="LineNr">23379 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23380" class="LineNr">23380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23381" class="LineNr">23381 </span> (<a href='131table.subx.html#L421'>get-or-insert</a> %esi %eax 0xc <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) +<span id="L23382" class="LineNr">23382 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23383" class="LineNr">23383 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23384" class="LineNr">23384 </span> 89/<- %ecx 0/r32/eax +<span id="L23385" class="LineNr">23385 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23386" class="LineNr">23386 </span> } +<span id="L23387" class="LineNr">23387 </span><span class="Constant">$check-all-unique-registers:end</span>: +<span id="L23388" class="LineNr">23388 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L23389" class="LineNr">23389 </span> 81 0/subop/add %esp 0x6c/imm32 +<span id="L23390" class="LineNr">23390 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23391" class="LineNr">23391 </span> 5e/pop-to-esi +<span id="L23392" class="LineNr">23392 </span> 59/pop-to-ecx +<span id="L23393" class="LineNr">23393 </span> 58/pop-to-eax +<span id="L23394" class="LineNr">23394 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23395" class="LineNr">23395 </span> 89/<- %esp 5/r32/ebp +<span id="L23396" class="LineNr">23396 </span> 5d/pop-to-ebp +<span id="L23397" class="LineNr">23397 </span> c3/return +<span id="L23398" class="LineNr">23398 </span> +<span id="L23399" class="LineNr">23399 </span><span class="Constant">$check-all-unique-registers:abort</span>: +<span id="L23400" class="LineNr">23400 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23401" class="LineNr">23401 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23402" class="LineNr">23402 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23403" class="LineNr">23403 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23404" class="LineNr">23404 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": outputs must be in unique registers\n"</span>) +<span id="L23405" class="LineNr">23405 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23406" class="LineNr">23406 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23407" class="LineNr">23407 </span> <span class="subxComment"># never gets here</span> +<span id="L23408" class="LineNr">23408 </span> +<span id="L23409" class="LineNr">23409 </span><span class="subxComment"># return false if s's register is not between start (inclusive) and end (exclusive)</span> +<span id="L23410" class="LineNr">23410 </span><span class="subxComment"># return false if the positionally corresponding register in stmt->inouts (where s comes from) is also s's register</span> +<span id="L23411" class="LineNr">23411 </span><span class="subxComment"># otherwise return true</span> +<span id="L23412" class="LineNr">23412 </span><span class="subxFunction">register-within-list-with-conflict?</span>: <span class="subxComment"># s: (addr stmt-var), start: (addr list var), end: (addr list var), stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L23413" class="LineNr">23413 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23414" class="LineNr">23414 </span> 55/push-ebp +<span id="L23415" class="LineNr">23415 </span> 89/<- %ebp 4/r32/esp +<span id="L23416" class="LineNr">23416 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23417" class="LineNr">23417 </span> 51/push-ecx +<span id="L23418" class="LineNr">23418 </span> 52/push-edx +<span id="L23419" class="LineNr">23419 </span> 53/push-ebx +<span id="L23420" class="LineNr">23420 </span> 56/push-esi +<span id="L23421" class="LineNr">23421 </span> 57/push-edi +<span id="L23422" class="LineNr">23422 </span> <span class="subxComment"># var target/ebx: (addr array byte) = s->value->register</span> +<span id="L23423" class="LineNr">23423 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23424" class="LineNr">23424 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23425" class="LineNr">23425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23426" class="LineNr">23426 </span><span class="CommentedCode">#? (write-buffered Stderr "AA: ")</span> +<span id="L23427" class="LineNr">23427 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L23428" class="LineNr">23428 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23429" class="LineNr">23429 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23430" class="LineNr">23430 </span> <span class="subxComment"># if (var->register == 0) return false</span> +<span id="L23431" class="LineNr">23431 </span> 3d/compare-eax-and 0/imm32 +<span id="L23432" class="LineNr">23432 </span> 0f 84/jump-if-= $register-within-list-with-conflict?:end/disp32 <span class="subxComment"># eax turns into result</span> +<span id="L23433" class="LineNr">23433 </span> 89/<- %ebx 0/r32/eax +<span id="L23434" class="LineNr">23434 </span> <span class="subxComment"># var curr/ecx: (addr list var) = start</span> +<span id="L23435" class="LineNr">23435 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L23436" class="LineNr">23436 </span> <span class="subxComment"># edx = end</span> +<span id="L23437" class="LineNr">23437 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L23438" class="LineNr">23438 </span> { +<span id="L23439" class="LineNr">23439 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L23440" class="LineNr">23440 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23441" class="LineNr">23441 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23442" class="LineNr">23442 </span> <span class="subxComment"># if (curr == end) break</span> +<span id="L23443" class="LineNr">23443 </span> 39/compare %ecx 2/r32/edx +<span id="L23444" class="LineNr">23444 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23445" class="LineNr">23445 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr->value->register</span> +<span id="L23446" class="LineNr">23446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23447" class="LineNr">23447 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23448" class="LineNr">23448 </span> <span class="subxComment"># if (curr-reg == 0) continue</span> +<span id="L23449" class="LineNr">23449 </span> 3d/compare-eax-and 0/imm32 +<span id="L23450" class="LineNr">23450 </span> 74/jump-if-= $register-within-list-with-conflict?:continue/disp8 +<span id="L23451" class="LineNr">23451 </span> <span class="subxComment"># if (curr-reg == target) check for conflict</span> +<span id="L23452" class="LineNr">23452 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L23453" class="LineNr">23453 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23454" class="LineNr">23454 </span> { +<span id="L23455" class="LineNr">23455 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23456" class="LineNr">23456 </span><span class="CommentedCode">#? (write-buffered Stderr "conflict?\n")</span> +<span id="L23457" class="LineNr">23457 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23458" class="LineNr">23458 </span> <span class="subxComment"># var return-inouts/eax: (addr stmt-var) = stmt->inouts</span> +<span id="L23459" class="LineNr">23459 </span> 8b/-> *(ebp+0x14) 0/r32/eax +<span id="L23460" class="LineNr">23460 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23461" class="LineNr">23461 </span> (<a href='mu.subx.html#L23488'>register-conflict?</a> %ebx %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L23462" class="LineNr">23462 </span> eb/jump $register-within-list-with-conflict?:end/disp8 +<span id="L23463" class="LineNr">23463 </span> } +<span id="L23464" class="LineNr">23464 </span><span class="Constant">$register-within-list-with-conflict?:continue</span>: +<span id="L23465" class="LineNr">23465 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23466" class="LineNr">23466 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23467" class="LineNr">23467 </span> 89/<- %ecx 0/r32/eax +<span id="L23468" class="LineNr">23468 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23469" class="LineNr">23469 </span> } +<span id="L23470" class="LineNr">23470 </span> <span class="subxComment"># return false</span> +<span id="L23471" class="LineNr">23471 </span> b8/copy-to-eax 0/imm32/false +<span id="L23472" class="LineNr">23472 </span><span class="Constant">$register-within-list-with-conflict?:end</span>: +<span id="L23473" class="LineNr">23473 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23474" class="LineNr">23474 </span> 5f/pop-to-edi +<span id="L23475" class="LineNr">23475 </span> 5e/pop-to-esi +<span id="L23476" class="LineNr">23476 </span> 5b/pop-to-ebx +<span id="L23477" class="LineNr">23477 </span> 5a/pop-to-edx +<span id="L23478" class="LineNr">23478 </span> 59/pop-to-ecx +<span id="L23479" class="LineNr">23479 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23480" class="LineNr">23480 </span> 89/<- %esp 5/r32/ebp +<span id="L23481" class="LineNr">23481 </span> 5d/pop-to-ebp +<span id="L23482" class="LineNr">23482 </span> c3/return +<span id="L23483" class="LineNr">23483 </span> +<span id="L23484" class="LineNr">23484 </span><span class="subxComment"># At the first occurrence of register 'reg' in fn-outputs,</span> +<span id="L23485" class="LineNr">23485 </span><span class="subxComment"># check if the corresponding element of return-inouts has a different register.</span> +<span id="L23486" class="LineNr">23486 </span><span class="subxComment"># This hacky helper is intended to be called in one specific place. Don't</span> +<span id="L23487" class="LineNr">23487 </span><span class="subxComment"># reuse it as is.</span> +<span id="L23488" class="LineNr">23488 </span><span class="subxFunction">register-conflict?</span>: <span class="subxComment"># reg: (addr array byte), return-inouts: (addr stmt-var), fn-outputs: (addr list var) => result/eax: boolean</span> +<span id="L23489" class="LineNr">23489 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23490" class="LineNr">23490 </span> 55/push-ebp +<span id="L23491" class="LineNr">23491 </span> 89/<- %ebp 4/r32/esp +<span id="L23492" class="LineNr">23492 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23493" class="LineNr">23493 </span> 51/push-ecx +<span id="L23494" class="LineNr">23494 </span> 52/push-edx +<span id="L23495" class="LineNr">23495 </span> 53/push-ebx +<span id="L23496" class="LineNr">23496 </span> 56/push-esi +<span id="L23497" class="LineNr">23497 </span> 57/push-edi +<span id="L23498" class="LineNr">23498 </span><span class="CommentedCode">#? (write-buffered Stderr "BB: ")</span> +<span id="L23499" class="LineNr">23499 </span><span class="CommentedCode">#? (write-buffered Stderr *(ebp+8))</span> +<span id="L23500" class="LineNr">23500 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23501" class="LineNr">23501 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23502" class="LineNr">23502 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn-outputs</span> +<span id="L23503" class="LineNr">23503 </span> 8b/-> *(ebp+0x10) 7/r32/edi +<span id="L23504" class="LineNr">23504 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-inouts</span> +<span id="L23505" class="LineNr">23505 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L23506" class="LineNr">23506 </span> { +<span id="L23507" class="LineNr">23507 </span> <span class="subxComment"># if (curr-output == 0) abort</span> +<span id="L23508" class="LineNr">23508 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L23509" class="LineNr">23509 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L23510" class="LineNr">23510 </span> <span class="subxComment"># if (curr-output->value->register != reg) continue</span> +<span id="L23511" class="LineNr">23511 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23512" class="LineNr">23512 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23513" class="LineNr">23513 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23514" class="LineNr">23514 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23515" class="LineNr">23515 </span> 0f 84/jump-if= $register-conflict?:continue/disp32 +<span id="L23516" class="LineNr">23516 </span><span class="CommentedCode">#? (write-buffered Stderr "rescan\n")</span> +<span id="L23517" class="LineNr">23517 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23518" class="LineNr">23518 </span> <span class="subxComment"># var curr-reg/eax: (addr array byte) = curr-inout->value->register</span> +<span id="L23519" class="LineNr">23519 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23520" class="LineNr">23520 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23521" class="LineNr">23521 </span> <span class="subxComment"># if (curr-reg == 0) return true</span> +<span id="L23522" class="LineNr">23522 </span> 3d/compare-eax-and 0/imm32 +<span id="L23523" class="LineNr">23523 </span> { +<span id="L23524" class="LineNr">23524 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23525" class="LineNr">23525 </span><span class="CommentedCode">#? (write-buffered Stderr "no register\n")</span> +<span id="L23526" class="LineNr">23526 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23527" class="LineNr">23527 </span> b8/copy-to-eax 1/imm32/true +<span id="L23528" class="LineNr">23528 </span> e9/jump $register-conflict?:end/disp32 +<span id="L23529" class="LineNr">23529 </span> } +<span id="L23530" class="LineNr">23530 </span> <span class="subxComment"># return (curr-reg != reg)</span> +<span id="L23531" class="LineNr">23531 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L23532" class="LineNr">23532 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23533" class="LineNr">23533 </span> 0f 94/set-if-= %al +<span id="L23534" class="LineNr">23534 </span><span class="CommentedCode">#? (write-buffered Stderr "final: ")</span> +<span id="L23535" class="LineNr">23535 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L23536" class="LineNr">23536 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L23537" class="LineNr">23537 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L23538" class="LineNr">23538 </span> eb/jump $register-conflict?:end/disp8 +<span id="L23539" class="LineNr">23539 </span><span class="Constant">$register-conflict?:continue</span>: +<span id="L23540" class="LineNr">23540 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L23541" class="LineNr">23541 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23542" class="LineNr">23542 </span> 89/<- %edi 0/r32/eax +<span id="L23543" class="LineNr">23543 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L23544" class="LineNr">23544 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23545" class="LineNr">23545 </span> 89/<- %esi 0/r32/eax +<span id="L23546" class="LineNr">23546 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23547" class="LineNr">23547 </span> } +<span id="L23548" class="LineNr">23548 </span> <span class="subxComment"># should never get here</span> +<span id="L23549" class="LineNr">23549 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> <span class="Constant">"register-conflict? misused\n"</span>) +<span id="L23550" class="LineNr">23550 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>) +<span id="L23551" class="LineNr">23551 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L23552" class="LineNr">23552 </span><span class="Constant">$register-conflict?:end</span>: +<span id="L23553" class="LineNr">23553 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23554" class="LineNr">23554 </span> 5f/pop-to-edi +<span id="L23555" class="LineNr">23555 </span> 5e/pop-to-esi +<span id="L23556" class="LineNr">23556 </span> 5b/pop-to-ebx +<span id="L23557" class="LineNr">23557 </span> 5a/pop-to-edx +<span id="L23558" class="LineNr">23558 </span> 59/pop-to-ecx +<span id="L23559" class="LineNr">23559 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23560" class="LineNr">23560 </span> 89/<- %esp 5/r32/ebp +<span id="L23561" class="LineNr">23561 </span> 5d/pop-to-ebp +<span id="L23562" class="LineNr">23562 </span> c3/return +<span id="L23563" class="LineNr">23563 </span> +<span id="L23564" class="LineNr">23564 </span><span class="subxFunction">check-final-stmt-is-return</span>: <span class="subxComment"># block: (addr block), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L23565" class="LineNr">23565 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23566" class="LineNr">23566 </span> 55/push-ebp +<span id="L23567" class="LineNr">23567 </span> 89/<- %ebp 4/r32/esp +<span id="L23568" class="LineNr">23568 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23569" class="LineNr">23569 </span> 50/push-eax +<span id="L23570" class="LineNr">23570 </span> 51/push-ecx +<span id="L23571" class="LineNr">23571 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L23572" class="LineNr">23572 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23573" class="LineNr">23573 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L23574" class="LineNr">23574 </span> 3d/compare-eax-and 0/imm32 +<span id="L23575" class="LineNr">23575 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23576" class="LineNr">23576 </span> 89/<- %ecx 0/r32/eax +<span id="L23577" class="LineNr">23577 </span> { +<span id="L23578" class="LineNr">23578 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L23579" class="LineNr">23579 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23580" class="LineNr">23580 </span> 3d/compare-eax-and 0/imm32 +<span id="L23581" class="LineNr">23581 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23582" class="LineNr">23582 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23583" class="LineNr">23583 </span> 89/<- %ecx 0/r32/eax +<span id="L23584" class="LineNr">23584 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23585" class="LineNr">23585 </span> } +<span id="L23586" class="LineNr">23586 </span><span class="Constant">$check-final-stmt-is-return:check-tag</span>: +<span id="L23587" class="LineNr">23587 </span> <span class="subxComment"># if curr->value->tag != Stmt1, abort</span> +<span id="L23588" class="LineNr">23588 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23589" class="LineNr">23589 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L23590" class="LineNr">23590 </span> 75/jump-if-!= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23591" class="LineNr">23591 </span><span class="Constant">$check-final-stmt-is-return:check-operation</span>: +<span id="L23592" class="LineNr">23592 </span> <span class="subxComment"># if curr->operation != "return", abort</span> +<span id="L23593" class="LineNr">23593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23594" class="LineNr">23594 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"return"</span>) +<span id="L23595" class="LineNr">23595 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23596" class="LineNr">23596 </span> 74/jump-if-= $check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23597" class="LineNr">23597 </span><span class="Constant">$check-final-stmt-is-return:end</span>: +<span id="L23598" class="LineNr">23598 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23599" class="LineNr">23599 </span> 59/pop-to-ecx +<span id="L23600" class="LineNr">23600 </span> 58/pop-to-eax +<span id="L23601" class="LineNr">23601 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23602" class="LineNr">23602 </span> 89/<- %esp 5/r32/ebp +<span id="L23603" class="LineNr">23603 </span> 5d/pop-to-ebp +<span id="L23604" class="LineNr">23604 </span> c3/return +<span id="L23605" class="LineNr">23605 </span> +<span id="L23606" class="LineNr">23606 </span><span class="Constant">$check-final-stmt-is-return:<a href='114error.subx.html#L9'>error</a></span>: +<span id="L23607" class="LineNr">23607 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23608" class="LineNr">23608 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23609" class="LineNr">23609 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23610" class="LineNr">23610 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23611" class="LineNr">23611 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": final statement should be a 'return'\n"</span>) +<span id="L23612" class="LineNr">23612 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23613" class="LineNr">23613 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23614" class="LineNr">23614 </span> <span class="subxComment"># never gets here</span> +<span id="L23615" class="LineNr">23615 </span> +<span id="L23616" class="LineNr">23616 </span><span class="subxFunction">check-no-breaks</span>: <span class="subxComment"># block: (addr block), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L23617" class="LineNr">23617 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23618" class="LineNr">23618 </span> 55/push-ebp +<span id="L23619" class="LineNr">23619 </span> 89/<- %ebp 4/r32/esp +<span id="L23620" class="LineNr">23620 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23621" class="LineNr">23621 </span> 50/push-eax +<span id="L23622" class="LineNr">23622 </span> 51/push-ecx +<span id="L23623" class="LineNr">23623 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = block->stmts</span> +<span id="L23624" class="LineNr">23624 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L23625" class="LineNr">23625 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L23626" class="LineNr">23626 </span> 3d/compare-eax-and 0/imm32 +<span id="L23627" class="LineNr">23627 </span> 0f 84/jump-if-= $check-no-breaks:end/disp32 +<span id="L23628" class="LineNr">23628 </span> 89/<- %ecx 0/r32/eax +<span id="L23629" class="LineNr">23629 </span> { +<span id="L23630" class="LineNr">23630 </span> <span class="subxComment"># if curr->next == 0, break</span> +<span id="L23631" class="LineNr">23631 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23632" class="LineNr">23632 </span> 3d/compare-eax-and 0/imm32 +<span id="L23633" class="LineNr">23633 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23634" class="LineNr">23634 </span> <span class="subxComment"># if curr->value->tag != Stmt1, continue</span> +<span id="L23635" class="LineNr">23635 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L23636" class="LineNr">23636 </span> 81 7/subop/compare *eax 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L23637" class="LineNr">23637 </span> 75/jump-if-!= $check-no-breaks:continue/disp8 +<span id="L23638" class="LineNr">23638 </span> <span class="subxComment"># if curr->value->operation starts with "break", abort</span> +<span id="L23639" class="LineNr">23639 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L23640" class="LineNr">23640 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L23641" class="LineNr">23641 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23642" class="LineNr">23642 </span> 75/jump-if-!= $check-no-breaks:<a href='114error.subx.html#L9'>error</a>/disp8 +<span id="L23643" class="LineNr">23643 </span><span class="Constant">$check-no-breaks:continue</span>: +<span id="L23644" class="LineNr">23644 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L23645" class="LineNr">23645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L23646" class="LineNr">23646 </span> 89/<- %ecx 0/r32/eax +<span id="L23647" class="LineNr">23647 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L23648" class="LineNr">23648 </span> } +<span id="L23649" class="LineNr">23649 </span><span class="Constant">$check-no-breaks:end</span>: +<span id="L23650" class="LineNr">23650 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23651" class="LineNr">23651 </span> 59/pop-to-ecx +<span id="L23652" class="LineNr">23652 </span> 58/pop-to-eax +<span id="L23653" class="LineNr">23653 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23654" class="LineNr">23654 </span> 89/<- %esp 5/r32/ebp +<span id="L23655" class="LineNr">23655 </span> 5d/pop-to-ebp +<span id="L23656" class="LineNr">23656 </span> c3/return +<span id="L23657" class="LineNr">23657 </span> +<span id="L23658" class="LineNr">23658 </span><span class="Constant">$check-no-breaks:<a href='114error.subx.html#L9'>error</a></span>: +<span id="L23659" class="LineNr">23659 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23660" class="LineNr">23660 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23661" class="LineNr">23661 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23662" class="LineNr">23662 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23663" class="LineNr">23663 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">" has outputs, so you cannot 'break' out of the outermost block. Use 'return'.\n"</span>) +<span id="L23664" class="LineNr">23664 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23665" class="LineNr">23665 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23666" class="LineNr">23666 </span> <span class="subxComment"># never gets here</span> +<span id="L23667" class="LineNr">23667 </span> +<span id="L23668" class="LineNr">23668 </span><span class="subxFunction">check-mu-get-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L23669" class="LineNr">23669 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23670" class="LineNr">23670 </span> 55/push-ebp +<span id="L23671" class="LineNr">23671 </span> 89/<- %ebp 4/r32/esp +<span id="L23672" class="LineNr">23672 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23673" class="LineNr">23673 </span> 50/push-eax +<span id="L23674" class="LineNr">23674 </span> 51/push-ecx +<span id="L23675" class="LineNr">23675 </span> 52/push-edx +<span id="L23676" class="LineNr">23676 </span> 53/push-ebx +<span id="L23677" class="LineNr">23677 </span> 56/push-esi +<span id="L23678" class="LineNr">23678 </span> 57/push-edi +<span id="L23679" class="LineNr">23679 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23680" class="LineNr">23680 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23681" class="LineNr">23681 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L23682" class="LineNr">23682 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L23683" class="LineNr">23683 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23684" class="LineNr">23684 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23685" class="LineNr">23685 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L23686" class="LineNr">23686 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23687" class="LineNr">23687 </span> 89/<- %ecx 0/r32/eax +<span id="L23688" class="LineNr">23688 </span><span class="Constant">$check-mu-get-stmt:check-base</span>: +<span id="L23689" class="LineNr">23689 </span> <span class="subxH1Comment"># - check base type</span> +<span id="L23690" class="LineNr">23690 </span> <span class="subxComment"># if it's an 'addr', check that it's in a register</span> +<span id="L23691" class="LineNr">23691 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L23692" class="LineNr">23692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23693" class="LineNr">23693 </span> 89/<- %ebx 0/r32/eax +<span id="L23694" class="LineNr">23694 </span> { +<span id="L23695" class="LineNr">23695 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23696" class="LineNr">23696 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L23697" class="LineNr">23697 </span><span class="Constant">$check-mu-get-stmt:base-is-compound</span>: +<span id="L23698" class="LineNr">23698 </span> <span class="subxComment"># if (type->left != addr) break</span> +<span id="L23699" class="LineNr">23699 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23700" class="LineNr">23700 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L23701" class="LineNr">23701 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23702" class="LineNr">23702 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23703" class="LineNr">23703 </span><span class="Constant">$check-mu-get-stmt:base-is-addr</span>: +<span id="L23704" class="LineNr">23704 </span> <span class="subxComment"># now check for register</span> +<span id="L23705" class="LineNr">23705 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L23706" class="LineNr">23706 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-base-type-addr-but-not-register/disp32 +<span id="L23707" class="LineNr">23707 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-in-register</span>: +<span id="L23708" class="LineNr">23708 </span> <span class="subxComment"># type->left is now an addr; skip it</span> +<span id="L23709" class="LineNr">23709 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23710" class="LineNr">23710 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L23711" class="LineNr">23711 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L23712" class="LineNr">23712 </span><span class="Constant">$check-mu-get-stmt:base-is-addr-to-atom-in-register</span>: +<span id="L23713" class="LineNr">23713 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23714" class="LineNr">23714 </span> 89/<- %ebx 0/r32/eax +<span id="L23715" class="LineNr">23715 </span> } +<span id="L23716" class="LineNr">23716 </span><span class="Constant">$check-mu-get-stmt:check-base-typeinfo</span>: +<span id="L23717" class="LineNr">23717 </span> <span class="subxComment"># ensure type is a container</span> +<span id="L23718" class="LineNr">23718 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23719" class="LineNr">23719 </span> { +<span id="L23720" class="LineNr">23720 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23721" class="LineNr">23721 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23722" class="LineNr">23722 </span> 89/<- %ebx 0/r32/eax +<span id="L23723" class="LineNr">23723 </span> } +<span id="L23724" class="LineNr">23724 </span> <span class="subxComment"># var base-type-id/ebx: type-id = base-type->value</span> +<span id="L23725" class="LineNr">23725 </span> 8b/-> *(ebx+4) 3/r32/ebx <span class="subxComment"># Type-tree-value</span> +<span id="L23726" class="LineNr">23726 </span> (<a href='mu.subx.html#L20225'>container?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L23727" class="LineNr">23727 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23728" class="LineNr">23728 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-base/disp32 +<span id="L23729" class="LineNr">23729 </span> <span class="subxComment"># var base-typeinfo/edx: (addr typeinfo) = find-typeinfo(base-type-id)</span> +<span id="L23730" class="LineNr">23730 </span> <span class="subxS1Comment"># . var container/ecx: (handle typeinfo)</span> +<span id="L23731" class="LineNr">23731 </span> 68/push 0/imm32 +<span id="L23732" class="LineNr">23732 </span> 68/push 0/imm32 +<span id="L23733" class="LineNr">23733 </span> 89/<- %ecx 4/r32/esp +<span id="L23734" class="LineNr">23734 </span> <span class="subxS1Comment"># .</span> +<span id="L23735" class="LineNr">23735 </span> (<a href='mu.subx.html#L20308'>find-typeinfo</a> %ebx %ecx) +<span id="L23736" class="LineNr">23736 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L23737" class="LineNr">23737 </span> <span class="subxS1Comment"># . reclaim container</span> +<span id="L23738" class="LineNr">23738 </span> 81 0/subop/add %esp 8/imm32 +<span id="L23739" class="LineNr">23739 </span> <span class="subxS1Comment"># .</span> +<span id="L23740" class="LineNr">23740 </span> 89/<- %edx 0/r32/eax +<span id="L23741" class="LineNr">23741 </span> <span class="subxComment"># var offset/ecx: (addr stmt-var) = stmt->inouts->next</span> +<span id="L23742" class="LineNr">23742 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23743" class="LineNr">23743 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23744" class="LineNr">23744 </span> 89/<- %ecx 0/r32/eax +<span id="L23745" class="LineNr">23745 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L23746" class="LineNr">23746 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23747" class="LineNr">23747 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-inouts/disp32 +<span id="L23748" class="LineNr">23748 </span> <span class="subxComment"># var offset/ecx: (addr var) = lookup(offset->value)</span> +<span id="L23749" class="LineNr">23749 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23750" class="LineNr">23750 </span> 89/<- %ecx 0/r32/eax +<span id="L23751" class="LineNr">23751 </span> <span class="subxH1Comment"># - check for valid field</span> +<span id="L23752" class="LineNr">23752 </span> 81 7/subop/compare *(ecx+0x14) -1/imm32/uninitialized <span class="subxComment"># Var-offset</span> +<span id="L23753" class="LineNr">23753 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-field/disp32 +<span id="L23754" class="LineNr">23754 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L23755" class="LineNr">23755 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23756" class="LineNr">23756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23757" class="LineNr">23757 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23758" class="LineNr">23758 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23759" class="LineNr">23759 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-inouts/disp32 +<span id="L23760" class="LineNr">23760 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L23761" class="LineNr">23761 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23762" class="LineNr">23762 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L23763" class="LineNr">23763 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23764" class="LineNr">23764 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-too-few-outputs/disp32 +<span id="L23765" class="LineNr">23765 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23766" class="LineNr">23766 </span> 89/<- %edi 0/r32/eax +<span id="L23767" class="LineNr">23767 </span><span class="Constant">$check-mu-get-stmt:check-output-type</span>: +<span id="L23768" class="LineNr">23768 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L23769" class="LineNr">23769 </span> <span class="subxComment"># must be in register</span> +<span id="L23770" class="LineNr">23770 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L23771" class="LineNr">23771 </span> 3d/compare-eax-and 0/imm32 +<span id="L23772" class="LineNr">23772 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-not-in-register/disp32 +<span id="L23773" class="LineNr">23773 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L23774" class="LineNr">23774 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23775" class="LineNr">23775 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23776" class="LineNr">23776 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L23777" class="LineNr">23777 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L23778" class="LineNr">23778 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23779" class="LineNr">23779 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># => eax</span> +<span id="L23780" class="LineNr">23780 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23781" class="LineNr">23781 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-output-type-not-address/disp32 +<span id="L23782" class="LineNr">23782 </span><span class="Constant">$check-mu-get-stmt:check-output-type-match</span>: +<span id="L23783" class="LineNr">23783 </span> <span class="subxComment"># payload of addr type must match 'type' definition</span> +<span id="L23784" class="LineNr">23784 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23785" class="LineNr">23785 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L23786" class="LineNr">23786 </span> <span class="subxComment"># if (payload->right == null) payload = payload->left</span> +<span id="L23787" class="LineNr">23787 </span> 81 7/subop/compare *(eax+0xc) 0/imm32/null <span class="subxComment"># Type-tree-right</span> +<span id="L23788" class="LineNr">23788 </span> { +<span id="L23789" class="LineNr">23789 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L23790" class="LineNr">23790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L23791" class="LineNr">23791 </span> } +<span id="L23792" class="LineNr">23792 </span> 89/<- %edi 0/r32/eax +<span id="L23793" class="LineNr">23793 </span> <span class="subxS1Comment"># . var output-name/ecx: (addr array byte)</span> +<span id="L23794" class="LineNr">23794 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23795" class="LineNr">23795 </span> 89/<- %ecx 0/r32/eax +<span id="L23796" class="LineNr">23796 </span> <span class="subxS1Comment"># . var base-typeinfo-entry/eax: (addr handle typeinfo-entry)</span> +<span id="L23797" class="LineNr">23797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Typeinfo-fields Typeinfo-fields => eax</span> +<span id="L23798" class="LineNr">23798 </span> (<a href='131table.subx.html#L26'>get</a> %eax %ecx 0x10) <span class="subxComment"># => eax</span> +<span id="L23799" class="LineNr">23799 </span> <span class="subxS1Comment"># .</span> +<span id="L23800" class="LineNr">23800 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L23801" class="LineNr">23801 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Typeinfo-entry-input-var Typeinfo-entry-input-var => eax</span> +<span id="L23802" class="LineNr">23802 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23803" class="LineNr">23803 </span> <span class="subxS1Comment"># .</span> +<span id="L23804" class="LineNr">23804 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %edi %eax) <span class="subxComment"># => eax</span> +<span id="L23805" class="LineNr">23805 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23806" class="LineNr">23806 </span> 0f 84/jump-if-= $check-mu-get-stmt:error-bad-output-type/disp32 +<span id="L23807" class="LineNr">23807 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L23808" class="LineNr">23808 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L23809" class="LineNr">23809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L23810" class="LineNr">23810 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23811" class="LineNr">23811 </span> 0f 85/jump-if-!= $check-mu-get-stmt:error-too-many-outputs/disp32 +<span id="L23812" class="LineNr">23812 </span><span class="Constant">$check-mu-get-stmt:end</span>: +<span id="L23813" class="LineNr">23813 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L23814" class="LineNr">23814 </span> 5f/pop-to-edi +<span id="L23815" class="LineNr">23815 </span> 5e/pop-to-esi +<span id="L23816" class="LineNr">23816 </span> 5b/pop-to-ebx +<span id="L23817" class="LineNr">23817 </span> 5a/pop-to-edx +<span id="L23818" class="LineNr">23818 </span> 59/pop-to-ecx +<span id="L23819" class="LineNr">23819 </span> 58/pop-to-eax +<span id="L23820" class="LineNr">23820 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L23821" class="LineNr">23821 </span> 89/<- %esp 5/r32/ebp +<span id="L23822" class="LineNr">23822 </span> 5d/pop-to-ebp +<span id="L23823" class="LineNr">23823 </span> c3/return +<span id="L23824" class="LineNr">23824 </span> +<span id="L23825" class="LineNr">23825 </span><span class="Constant">$check-mu-get-stmt:error-too-few-inouts</span>: +<span id="L23826" class="LineNr">23826 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23827" class="LineNr">23827 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23828" class="LineNr">23828 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23829" class="LineNr">23829 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23830" class="LineNr">23830 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: too few inouts (2 required)\n"</span>) +<span id="L23831" class="LineNr">23831 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23832" class="LineNr">23832 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23833" class="LineNr">23833 </span> <span class="subxComment"># never gets here</span> +<span id="L23834" class="LineNr">23834 </span> +<span id="L23835" class="LineNr">23835 </span><span class="Constant">$check-mu-get-stmt:error-too-many-inouts</span>: +<span id="L23836" class="LineNr">23836 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23837" class="LineNr">23837 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23838" class="LineNr">23838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23839" class="LineNr">23839 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23840" class="LineNr">23840 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: too many inouts (2 required)\n"</span>) +<span id="L23841" class="LineNr">23841 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23842" class="LineNr">23842 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23843" class="LineNr">23843 </span> <span class="subxComment"># never gets here</span> +<span id="L23844" class="LineNr">23844 </span> +<span id="L23845" class="LineNr">23845 </span><span class="Constant">$check-mu-get-stmt:error-too-few-outputs</span>: +<span id="L23846" class="LineNr">23846 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23847" class="LineNr">23847 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23848" class="LineNr">23848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23849" class="LineNr">23849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23850" class="LineNr">23850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: must have an output\n"</span>) +<span id="L23851" class="LineNr">23851 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23852" class="LineNr">23852 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23853" class="LineNr">23853 </span> <span class="subxComment"># never gets here</span> +<span id="L23854" class="LineNr">23854 </span> +<span id="L23855" class="LineNr">23855 </span><span class="Constant">$check-mu-get-stmt:error-too-many-outputs</span>: +<span id="L23856" class="LineNr">23856 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23857" class="LineNr">23857 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23858" class="LineNr">23858 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23859" class="LineNr">23859 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23860" class="LineNr">23860 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: too many outputs (1 required)\n"</span>) +<span id="L23861" class="LineNr">23861 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23862" class="LineNr">23862 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23863" class="LineNr">23863 </span> <span class="subxComment"># never gets here</span> +<span id="L23864" class="LineNr">23864 </span> +<span id="L23865" class="LineNr">23865 </span><span class="Constant">$check-mu-get-stmt:error-bad-base</span>: +<span id="L23866" class="LineNr">23866 </span> <span class="subxComment"># error("fn " fn ": stmt get: var '" base->name "' must have a 'type' definition\n")</span> +<span id="L23867" class="LineNr">23867 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23868" class="LineNr">23868 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23869" class="LineNr">23869 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23870" class="LineNr">23870 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23871" class="LineNr">23871 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: var '"</span>) +<span id="L23872" class="LineNr">23872 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23873" class="LineNr">23873 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23874" class="LineNr">23874 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23875" class="LineNr">23875 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23876" class="LineNr">23876 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have a 'type' definition\n"</span>) +<span id="L23877" class="LineNr">23877 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23878" class="LineNr">23878 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23879" class="LineNr">23879 </span> <span class="subxComment"># never gets here</span> +<span id="L23880" class="LineNr">23880 </span> +<span id="L23881" class="LineNr">23881 </span><span class="Constant">$check-mu-get-stmt:error-base-type-addr-but-not-register</span>: +<span id="L23882" class="LineNr">23882 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23883" class="LineNr">23883 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23884" class="LineNr">23884 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23885" class="LineNr">23885 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23886" class="LineNr">23886 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: var '"</span>) +<span id="L23887" class="LineNr">23887 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23888" class="LineNr">23888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23889" class="LineNr">23889 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23890" class="LineNr">23890 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23891" class="LineNr">23891 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an 'addr' type, and so must live in a register\n"</span>) +<span id="L23892" class="LineNr">23892 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23893" class="LineNr">23893 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23894" class="LineNr">23894 </span> <span class="subxComment"># never gets here</span> +<span id="L23895" class="LineNr">23895 </span> +<span id="L23896" class="LineNr">23896 </span><span class="Constant">$check-mu-get-stmt:error-bad-field</span>: +<span id="L23897" class="LineNr">23897 </span> <span class="subxComment"># error("fn " fn ": stmt get: type " type " has no member called '" curr->name "'\n")</span> +<span id="L23898" class="LineNr">23898 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23899" class="LineNr">23899 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23900" class="LineNr">23900 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23901" class="LineNr">23901 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23902" class="LineNr">23902 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: type '"</span>) +<span id="L23903" class="LineNr">23903 </span> <span class="subxS1Comment"># . write(Type-id->data[tmp])</span> +<span id="L23904" class="LineNr">23904 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L23905" class="LineNr">23905 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L23906" class="LineNr">23906 </span> { +<span id="L23907" class="LineNr">23907 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L23908" class="LineNr">23908 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23909" class="LineNr">23909 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L23910" class="LineNr">23910 </span> } +<span id="L23911" class="LineNr">23911 </span> <span class="subxS1Comment"># .</span> +<span id="L23912" class="LineNr">23912 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' has no member called '"</span>) +<span id="L23913" class="LineNr">23913 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23914" class="LineNr">23914 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23915" class="LineNr">23915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L23916" class="LineNr">23916 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23917" class="LineNr">23917 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23918" class="LineNr">23918 </span> <span class="subxComment"># never gets here</span> +<span id="L23919" class="LineNr">23919 </span> +<span id="L23920" class="LineNr">23920 </span><span class="Constant">$check-mu-get-stmt:error-output-not-in-register</span>: +<span id="L23921" class="LineNr">23921 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23922" class="LineNr">23922 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23923" class="LineNr">23923 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23924" class="LineNr">23924 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23925" class="LineNr">23925 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: output '"</span>) +<span id="L23926" class="LineNr">23926 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L23927" class="LineNr">23927 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23928" class="LineNr">23928 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) +<span id="L23929" class="LineNr">23929 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23930" class="LineNr">23930 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23931" class="LineNr">23931 </span> <span class="subxComment"># never gets here</span> +<span id="L23932" class="LineNr">23932 </span> +<span id="L23933" class="LineNr">23933 </span><span class="Constant">$check-mu-get-stmt:error-output-type-not-address</span>: +<span id="L23934" class="LineNr">23934 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23935" class="LineNr">23935 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23936" class="LineNr">23936 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23937" class="LineNr">23937 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23938" class="LineNr">23938 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: output must be an addr\n"</span>) +<span id="L23939" class="LineNr">23939 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23940" class="LineNr">23940 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23941" class="LineNr">23941 </span> <span class="subxComment"># never gets here</span> +<span id="L23942" class="LineNr">23942 </span> +<span id="L23943" class="LineNr">23943 </span><span class="Constant">$check-mu-get-stmt:error-bad-output-type</span>: +<span id="L23944" class="LineNr">23944 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L23945" class="LineNr">23945 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L23946" class="LineNr">23946 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L23947" class="LineNr">23947 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L23948" class="LineNr">23948 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='131table.subx.html#L26'>get</a>: wrong output type for member '"</span>) +<span id="L23949" class="LineNr">23949 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %ecx) +<span id="L23950" class="LineNr">23950 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' of type '"</span>) +<span id="L23951" class="LineNr">23951 </span> bf/copy-to-edi <span class="SpecialChar"><a href='mu.subx.html#L395'>Type-id</a></span>/imm32 +<span id="L23952" class="LineNr">23952 </span> 8b/-> *(edi+ebx<<2+0xc) 6/r32/esi +<span id="L23953" class="LineNr">23953 </span> { +<span id="L23954" class="LineNr">23954 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L23955" class="LineNr">23955 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23956" class="LineNr">23956 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %esi) +<span id="L23957" class="LineNr">23957 </span> } +<span id="L23958" class="LineNr">23958 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'\n"</span>) +<span id="L23959" class="LineNr">23959 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L23960" class="LineNr">23960 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L23961" class="LineNr">23961 </span> <span class="subxComment"># never gets here</span> +<span id="L23962" class="LineNr">23962 </span> +<span id="L23963" class="LineNr">23963 </span><span class="subxFunction">check-mu-index-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L23964" class="LineNr">23964 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L23965" class="LineNr">23965 </span> 55/push-ebp +<span id="L23966" class="LineNr">23966 </span> 89/<- %ebp 4/r32/esp +<span id="L23967" class="LineNr">23967 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L23968" class="LineNr">23968 </span> 50/push-eax +<span id="L23969" class="LineNr">23969 </span> 51/push-ecx +<span id="L23970" class="LineNr">23970 </span> 52/push-edx +<span id="L23971" class="LineNr">23971 </span> 53/push-ebx +<span id="L23972" class="LineNr">23972 </span> 56/push-esi +<span id="L23973" class="LineNr">23973 </span> 57/push-edi +<span id="L23974" class="LineNr">23974 </span> <span class="subxComment"># esi = stmt</span> +<span id="L23975" class="LineNr">23975 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L23976" class="LineNr">23976 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L23977" class="LineNr">23977 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L23978" class="LineNr">23978 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L23979" class="LineNr">23979 </span><span class="Constant">$check-mu-index-stmt:check-no-inouts</span>: +<span id="L23980" class="LineNr">23980 </span> 3d/compare-eax-and 0/imm32 +<span id="L23981" class="LineNr">23981 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L23982" class="LineNr">23982 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L23983" class="LineNr">23983 </span> 89/<- %ecx 0/r32/eax +<span id="L23984" class="LineNr">23984 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L23985" class="LineNr">23985 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L23986" class="LineNr">23986 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L23987" class="LineNr">23987 </span> 89/<- %ebx 0/r32/eax +<span id="L23988" class="LineNr">23988 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L23989" class="LineNr">23989 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L23990" class="LineNr">23990 </span> { +<span id="L23991" class="LineNr">23991 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L23992" class="LineNr">23992 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L23993" class="LineNr">23993 </span> 3d/compare-eax-and 0/imm32/false +<span id="L23994" class="LineNr">23994 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-atom-type/disp32 +<span id="L23995" class="LineNr">23995 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L23996" class="LineNr">23996 </span> } +<span id="L23997" class="LineNr">23997 </span><span class="Constant">$check-mu-index-stmt:base-is-compound</span>: +<span id="L23998" class="LineNr">23998 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L23999" class="LineNr">23999 </span> { +<span id="L24000" class="LineNr">24000 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24001" class="LineNr">24001 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24002" class="LineNr">24002 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24003" class="LineNr">24003 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24004" class="LineNr">24004 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24005" class="LineNr">24005 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24006" class="LineNr">24006 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24007" class="LineNr">24007 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24008" class="LineNr">24008 </span> e9/jump $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L24009" class="LineNr">24009 </span> } +<span id="L24010" class="LineNr">24010 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24011" class="LineNr">24011 </span> { +<span id="L24012" class="LineNr">24012 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24013" class="LineNr">24013 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24014" class="LineNr">24014 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24015" class="LineNr">24015 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24016" class="LineNr">24016 </span><span class="Constant">$check-mu-index-stmt:base-is-addr</span>: +<span id="L24017" class="LineNr">24017 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24018" class="LineNr">24018 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24019" class="LineNr">24019 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24020" class="LineNr">24020 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24021" class="LineNr">24021 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-non-array-type/disp32 +<span id="L24022" class="LineNr">24022 </span><span class="Constant">$check-mu-index-stmt:check-base-addr-is-register</span>: +<span id="L24023" class="LineNr">24023 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24024" class="LineNr">24024 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L24025" class="LineNr">24025 </span> } +<span id="L24026" class="LineNr">24026 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L24027" class="LineNr">24027 </span> { +<span id="L24028" class="LineNr">24028 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24029" class="LineNr">24029 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24030" class="LineNr">24030 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24031" class="LineNr">24031 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24032" class="LineNr">24032 </span><span class="Constant">$check-mu-index-stmt:base-is-array</span>: +<span id="L24033" class="LineNr">24033 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24034" class="LineNr">24034 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-base-array-type-in-register/disp32 +<span id="L24035" class="LineNr">24035 </span> } +<span id="L24036" class="LineNr">24036 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24037" class="LineNr">24037 </span> { +<span id="L24038" class="LineNr">24038 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24039" class="LineNr">24039 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24040" class="LineNr">24040 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24041" class="LineNr">24041 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24042" class="LineNr">24042 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24043" class="LineNr">24043 </span> 89/<- %ebx 0/r32/eax +<span id="L24044" class="LineNr">24044 </span> } +<span id="L24045" class="LineNr">24045 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L24046" class="LineNr">24046 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24047" class="LineNr">24047 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24048" class="LineNr">24048 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24049" class="LineNr">24049 </span><span class="Constant">$check-mu-index-stmt:check-single-inout</span>: +<span id="L24050" class="LineNr">24050 </span> 3d/compare-eax-and 0/imm32 +<span id="L24051" class="LineNr">24051 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-inouts/disp32 +<span id="L24052" class="LineNr">24052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24053" class="LineNr">24053 </span> 89/<- %ecx 0/r32/eax +<span id="L24054" class="LineNr">24054 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L24055" class="LineNr">24055 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L24056" class="LineNr">24056 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24057" class="LineNr">24057 </span> 89/<- %edx 0/r32/eax +<span id="L24058" class="LineNr">24058 </span> <span class="subxComment"># if index type is an atom, it must be a literal or int</span> +<span id="L24059" class="LineNr">24059 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24060" class="LineNr">24060 </span> { +<span id="L24061" class="LineNr">24061 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24062" class="LineNr">24062 </span><span class="Constant">$check-mu-index-stmt:index-type-is-atom</span>: +<span id="L24063" class="LineNr">24063 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24064" class="LineNr">24064 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24065" class="LineNr">24065 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L24066" class="LineNr">24066 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24067" class="LineNr">24067 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24068" class="LineNr">24068 </span> 75/jump-if-!= $check-mu-index-stmt:index-type-done/disp8 +<span id="L24069" class="LineNr">24069 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 7) <span class="subxComment"># offset => eax</span> +<span id="L24070" class="LineNr">24070 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24071" class="LineNr">24071 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-index-offset-atom-type/disp32 +<span id="L24072" class="LineNr">24072 </span> e9/jump $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L24073" class="LineNr">24073 </span> } +<span id="L24074" class="LineNr">24074 </span> <span class="subxComment"># if index type is a non-atom: it must be an offset</span> +<span id="L24075" class="LineNr">24075 </span> { +<span id="L24076" class="LineNr">24076 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24077" class="LineNr">24077 </span><span class="Constant">$check-mu-index-stmt:index-type-is-non-atom</span>: +<span id="L24078" class="LineNr">24078 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24079" class="LineNr">24079 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L24080" class="LineNr">24080 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24081" class="LineNr">24081 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-invalid-index-type/disp32 +<span id="L24082" class="LineNr">24082 </span> } +<span id="L24083" class="LineNr">24083 </span><span class="Constant">$check-mu-index-stmt:index-type-done</span>: +<span id="L24084" class="LineNr">24084 </span> <span class="subxComment"># check index is either a literal or in a register</span> +<span id="L24085" class="LineNr">24085 </span> { +<span id="L24086" class="LineNr">24086 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24087" class="LineNr">24087 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24088" class="LineNr">24088 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24089" class="LineNr">24089 </span><span class="Constant">$check-mu-index-stmt:check-index-in-register</span>: +<span id="L24090" class="LineNr">24090 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24091" class="LineNr">24091 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-index-on-stack/disp32 +<span id="L24092" class="LineNr">24092 </span> } +<span id="L24093" class="LineNr">24093 </span> <span class="subxH1Comment"># - if index is an 'int', check that element type of base has size 1, 2, 4 or 8 bytes.</span> +<span id="L24094" class="LineNr">24094 </span> { +<span id="L24095" class="LineNr">24095 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24096" class="LineNr">24096 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24097" class="LineNr">24097 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24098" class="LineNr">24098 </span><span class="Constant">$check-mu-index-stmt:check-index-can-be-int</span>: +<span id="L24099" class="LineNr">24099 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24100" class="LineNr">24100 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24101" class="LineNr">24101 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %eax) <span class="subxComment"># => eax</span> +<span id="L24102" class="LineNr">24102 </span> 3d/compare-eax-and 1/imm32 +<span id="L24103" class="LineNr">24103 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24104" class="LineNr">24104 </span> 3d/compare-eax-and 2/imm32 +<span id="L24105" class="LineNr">24105 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24106" class="LineNr">24106 </span> 3d/compare-eax-and 4/imm32 +<span id="L24107" class="LineNr">24107 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24108" class="LineNr">24108 </span> 3d/compare-eax-and 8/imm32 +<span id="L24109" class="LineNr">24109 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24110" class="LineNr">24110 </span> e9/jump $check-mu-index-stmt:error-index-needs-offset/disp32 +<span id="L24111" class="LineNr">24111 </span> } +<span id="L24112" class="LineNr">24112 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24113" class="LineNr">24113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24114" class="LineNr">24114 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24115" class="LineNr">24115 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24116" class="LineNr">24116 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24117" class="LineNr">24117 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-inouts/disp32 +<span id="L24118" class="LineNr">24118 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24119" class="LineNr">24119 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24120" class="LineNr">24120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24121" class="LineNr">24121 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24122" class="LineNr">24122 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-too-few-outputs/disp32 +<span id="L24123" class="LineNr">24123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24124" class="LineNr">24124 </span> 89/<- %edi 0/r32/eax +<span id="L24125" class="LineNr">24125 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24126" class="LineNr">24126 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24127" class="LineNr">24127 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24128" class="LineNr">24128 </span> 89/<- %edx 0/r32/eax +<span id="L24129" class="LineNr">24129 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24130" class="LineNr">24130 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L24131" class="LineNr">24131 </span> <span class="subxComment"># type must start with (addr ...)</span> +<span id="L24132" class="LineNr">24132 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24133" class="LineNr">24133 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24134" class="LineNr">24134 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24135" class="LineNr">24135 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-output-type-not-address/disp32 +<span id="L24136" class="LineNr">24136 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L24137" class="LineNr">24137 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24138" class="LineNr">24138 </span> 89/<- %ebx 0/r32/eax +<span id="L24139" class="LineNr">24139 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24140" class="LineNr">24140 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L24141" class="LineNr">24141 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24142" class="LineNr">24142 </span> 0f 84/jump-if-= $check-mu-index-stmt:error-bad-output-type/disp32 +<span id="L24143" class="LineNr">24143 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24144" class="LineNr">24144 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24145" class="LineNr">24145 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24146" class="LineNr">24146 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24147" class="LineNr">24147 </span> 0f 85/jump-if-!= $check-mu-index-stmt:error-too-many-outputs/disp32 +<span id="L24148" class="LineNr">24148 </span><span class="Constant">$check-mu-index-stmt:end</span>: +<span id="L24149" class="LineNr">24149 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24150" class="LineNr">24150 </span> 5f/pop-to-edi +<span id="L24151" class="LineNr">24151 </span> 5e/pop-to-esi +<span id="L24152" class="LineNr">24152 </span> 5b/pop-to-ebx +<span id="L24153" class="LineNr">24153 </span> 5a/pop-to-edx +<span id="L24154" class="LineNr">24154 </span> 59/pop-to-ecx +<span id="L24155" class="LineNr">24155 </span> 58/pop-to-eax +<span id="L24156" class="LineNr">24156 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24157" class="LineNr">24157 </span> 89/<- %esp 5/r32/ebp +<span id="L24158" class="LineNr">24158 </span> 5d/pop-to-ebp +<span id="L24159" class="LineNr">24159 </span> c3/return +<span id="L24160" class="LineNr">24160 </span> +<span id="L24161" class="LineNr">24161 </span><span class="Constant">$check-mu-index-stmt:error-base-non-array-type</span>: +<span id="L24162" class="LineNr">24162 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24163" class="LineNr">24163 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24164" class="LineNr">24164 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24165" class="LineNr">24165 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24166" class="LineNr">24166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24167" class="LineNr">24167 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24168" class="LineNr">24168 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24169" class="LineNr">24169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24170" class="LineNr">24170 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24171" class="LineNr">24171 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24172" class="LineNr">24172 </span> <span class="subxComment"># never gets here</span> +<span id="L24173" class="LineNr">24173 </span> +<span id="L24174" class="LineNr">24174 </span><span class="Constant">$check-mu-index-stmt:error-base-array-atom-type</span>: +<span id="L24175" class="LineNr">24175 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24176" class="LineNr">24176 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24177" class="LineNr">24177 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24178" class="LineNr">24178 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24179" class="LineNr">24179 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: array '"</span>) +<span id="L24180" class="LineNr">24180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24181" class="LineNr">24181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24182" class="LineNr">24182 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of its elements\n"</span>) +<span id="L24183" class="LineNr">24183 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24184" class="LineNr">24184 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24185" class="LineNr">24185 </span> <span class="subxComment"># never gets here</span> +<span id="L24186" class="LineNr">24186 </span> +<span id="L24187" class="LineNr">24187 </span><span class="Constant">$check-mu-index-stmt:error-base-address-array-type-on-stack</span>: +<span id="L24188" class="LineNr">24188 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24189" class="LineNr">24189 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24190" class="LineNr">24190 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24191" class="LineNr">24191 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24192" class="LineNr">24192 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24193" class="LineNr">24193 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24194" class="LineNr">24194 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24195" class="LineNr">24195 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an addr to an array, and so must live in a register\n"</span>) +<span id="L24196" class="LineNr">24196 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24197" class="LineNr">24197 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24198" class="LineNr">24198 </span> <span class="subxComment"># never gets here</span> +<span id="L24199" class="LineNr">24199 </span> +<span id="L24200" class="LineNr">24200 </span><span class="Constant">$check-mu-index-stmt:error-base-array-type-in-register</span>: +<span id="L24201" class="LineNr">24201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24202" class="LineNr">24202 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24203" class="LineNr">24203 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24204" class="LineNr">24204 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24205" class="LineNr">24205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: var '"</span>) +<span id="L24206" class="LineNr">24206 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24207" class="LineNr">24207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24208" class="LineNr">24208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an array, and so must live on the stack\n"</span>) +<span id="L24209" class="LineNr">24209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24210" class="LineNr">24210 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24211" class="LineNr">24211 </span> <span class="subxComment"># never gets here</span> +<span id="L24212" class="LineNr">24212 </span> +<span id="L24213" class="LineNr">24213 </span><span class="Constant">$check-mu-index-stmt:error-too-few-inouts</span>: +<span id="L24214" class="LineNr">24214 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24215" class="LineNr">24215 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24216" class="LineNr">24216 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24217" class="LineNr">24217 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24218" class="LineNr">24218 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: too few inouts (2 required)\n"</span>) +<span id="L24219" class="LineNr">24219 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24220" class="LineNr">24220 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24221" class="LineNr">24221 </span> <span class="subxComment"># never gets here</span> +<span id="L24222" class="LineNr">24222 </span> +<span id="L24223" class="LineNr">24223 </span><span class="Constant">$check-mu-index-stmt:error-invalid-index-type</span>: +<span id="L24224" class="LineNr">24224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24225" class="LineNr">24225 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24226" class="LineNr">24226 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24227" class="LineNr">24227 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24228" class="LineNr">24228 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L24229" class="LineNr">24229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24230" class="LineNr">24230 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24231" class="LineNr">24231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or offset\n"</span>) +<span id="L24232" class="LineNr">24232 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24233" class="LineNr">24233 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24234" class="LineNr">24234 </span> <span class="subxComment"># never gets here</span> +<span id="L24235" class="LineNr">24235 </span> +<span id="L24236" class="LineNr">24236 </span><span class="Constant">$check-mu-index-stmt:error-index-offset-atom-type</span>: +<span id="L24237" class="LineNr">24237 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24238" class="LineNr">24238 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24239" class="LineNr">24239 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24240" class="LineNr">24240 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24241" class="LineNr">24241 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: offset '"</span>) +<span id="L24242" class="LineNr">24242 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24243" class="LineNr">24243 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24244" class="LineNr">24244 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of array elements\n"</span>) +<span id="L24245" class="LineNr">24245 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24246" class="LineNr">24246 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24247" class="LineNr">24247 </span> <span class="subxComment"># never gets here</span> +<span id="L24248" class="LineNr">24248 </span> +<span id="L24249" class="LineNr">24249 </span><span class="Constant">$check-mu-index-stmt:error-index-on-stack</span>: +<span id="L24250" class="LineNr">24250 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24251" class="LineNr">24251 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24252" class="LineNr">24252 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24253" class="LineNr">24253 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24254" class="LineNr">24254 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: second argument '"</span>) +<span id="L24255" class="LineNr">24255 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24256" class="LineNr">24256 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24257" class="LineNr">24257 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register\n"</span>) +<span id="L24258" class="LineNr">24258 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24259" class="LineNr">24259 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24260" class="LineNr">24260 </span> <span class="subxComment"># never gets here</span> +<span id="L24261" class="LineNr">24261 </span> +<span id="L24262" class="LineNr">24262 </span><span class="Constant">$check-mu-index-stmt:error-index-needs-offset</span>: +<span id="L24263" class="LineNr">24263 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24264" class="LineNr">24264 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24265" class="LineNr">24265 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24266" class="LineNr">24266 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24267" class="LineNr">24267 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: cannot take an int for array '"</span>) +<span id="L24268" class="LineNr">24268 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24269" class="LineNr">24269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24270" class="LineNr">24270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24271" class="LineNr">24271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24272" class="LineNr">24272 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'; create an offset instead. See mu.md for details.\n"</span>) +<span id="L24273" class="LineNr">24273 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24274" class="LineNr">24274 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24275" class="LineNr">24275 </span> <span class="subxComment"># never gets here</span> +<span id="L24276" class="LineNr">24276 </span> +<span id="L24277" class="LineNr">24277 </span><span class="Constant">$check-mu-index-stmt:error-too-many-inouts</span>: +<span id="L24278" class="LineNr">24278 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24279" class="LineNr">24279 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24280" class="LineNr">24280 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24281" class="LineNr">24281 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24282" class="LineNr">24282 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: too many inouts (2 required)\n"</span>) +<span id="L24283" class="LineNr">24283 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24284" class="LineNr">24284 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24285" class="LineNr">24285 </span> <span class="subxComment"># never gets here</span> +<span id="L24286" class="LineNr">24286 </span> +<span id="L24287" class="LineNr">24287 </span><span class="Constant">$check-mu-index-stmt:error-too-few-outputs</span>: +<span id="L24288" class="LineNr">24288 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24289" class="LineNr">24289 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24290" class="LineNr">24290 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24291" class="LineNr">24291 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24292" class="LineNr">24292 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: must have an output\n"</span>) +<span id="L24293" class="LineNr">24293 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24294" class="LineNr">24294 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24295" class="LineNr">24295 </span> <span class="subxComment"># never gets here</span> +<span id="L24296" class="LineNr">24296 </span> +<span id="L24297" class="LineNr">24297 </span><span class="Constant">$check-mu-index-stmt:error-too-many-outputs</span>: +<span id="L24298" class="LineNr">24298 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24299" class="LineNr">24299 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24300" class="LineNr">24300 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24301" class="LineNr">24301 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24302" class="LineNr">24302 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: too many outputs (1 required)\n"</span>) +<span id="L24303" class="LineNr">24303 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24304" class="LineNr">24304 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24305" class="LineNr">24305 </span> <span class="subxComment"># never gets here</span> +<span id="L24306" class="LineNr">24306 </span> +<span id="L24307" class="LineNr">24307 </span><span class="Constant">$check-mu-index-stmt:error-output-not-in-register</span>: +<span id="L24308" class="LineNr">24308 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24309" class="LineNr">24309 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24310" class="LineNr">24310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24311" class="LineNr">24311 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24312" class="LineNr">24312 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24313" class="LineNr">24313 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24314" class="LineNr">24314 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24315" class="LineNr">24315 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) +<span id="L24316" class="LineNr">24316 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24317" class="LineNr">24317 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24318" class="LineNr">24318 </span> <span class="subxComment"># never gets here</span> +<span id="L24319" class="LineNr">24319 </span> +<span id="L24320" class="LineNr">24320 </span><span class="Constant">$check-mu-index-stmt:error-output-type-not-address</span>: +<span id="L24321" class="LineNr">24321 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24322" class="LineNr">24322 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24323" class="LineNr">24323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24324" class="LineNr">24324 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24325" class="LineNr">24325 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24326" class="LineNr">24326 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24327" class="LineNr">24327 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24328" class="LineNr">24328 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L24329" class="LineNr">24329 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24330" class="LineNr">24330 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24331" class="LineNr">24331 </span> <span class="subxComment"># never gets here</span> +<span id="L24332" class="LineNr">24332 </span> +<span id="L24333" class="LineNr">24333 </span><span class="Constant">$check-mu-index-stmt:error-bad-output-type</span>: +<span id="L24334" class="LineNr">24334 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24335" class="LineNr">24335 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24336" class="LineNr">24336 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24337" class="LineNr">24337 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24338" class="LineNr">24338 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt index: output '"</span>) +<span id="L24339" class="LineNr">24339 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24340" class="LineNr">24340 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24341" class="LineNr">24341 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) +<span id="L24342" class="LineNr">24342 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24343" class="LineNr">24343 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24344" class="LineNr">24344 </span> <span class="subxComment"># never gets here</span> +<span id="L24345" class="LineNr">24345 </span> +<span id="L24346" class="LineNr">24346 </span><span class="subxFunction">check-mu-length-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L24347" class="LineNr">24347 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24348" class="LineNr">24348 </span> 55/push-ebp +<span id="L24349" class="LineNr">24349 </span> 89/<- %ebp 4/r32/esp +<span id="L24350" class="LineNr">24350 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24351" class="LineNr">24351 </span> 50/push-eax +<span id="L24352" class="LineNr">24352 </span> 51/push-ecx +<span id="L24353" class="LineNr">24353 </span> 52/push-edx +<span id="L24354" class="LineNr">24354 </span> 53/push-ebx +<span id="L24355" class="LineNr">24355 </span> 56/push-esi +<span id="L24356" class="LineNr">24356 </span> 57/push-edi +<span id="L24357" class="LineNr">24357 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24358" class="LineNr">24358 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24359" class="LineNr">24359 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24360" class="LineNr">24360 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24361" class="LineNr">24361 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24362" class="LineNr">24362 </span><span class="Constant">$check-mu-length-stmt:check-no-inouts</span>: +<span id="L24363" class="LineNr">24363 </span> 3d/compare-eax-and 0/imm32 +<span id="L24364" class="LineNr">24364 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-inouts/disp32 +<span id="L24365" class="LineNr">24365 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24366" class="LineNr">24366 </span> 89/<- %ecx 0/r32/eax +<span id="L24367" class="LineNr">24367 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24368" class="LineNr">24368 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24369" class="LineNr">24369 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24370" class="LineNr">24370 </span> 89/<- %ebx 0/r32/eax +<span id="L24371" class="LineNr">24371 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24372" class="LineNr">24372 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24373" class="LineNr">24373 </span> { +<span id="L24374" class="LineNr">24374 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24375" class="LineNr">24375 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24376" class="LineNr">24376 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24377" class="LineNr">24377 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-atom-type/disp32 +<span id="L24378" class="LineNr">24378 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24379" class="LineNr">24379 </span> } +<span id="L24380" class="LineNr">24380 </span><span class="Constant">$check-mu-length-stmt:base-is-compound</span>: +<span id="L24381" class="LineNr">24381 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24382" class="LineNr">24382 </span> { +<span id="L24383" class="LineNr">24383 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24384" class="LineNr">24384 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24385" class="LineNr">24385 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24386" class="LineNr">24386 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24387" class="LineNr">24387 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24388" class="LineNr">24388 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24389" class="LineNr">24389 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24390" class="LineNr">24390 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24391" class="LineNr">24391 </span> e9/jump $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24392" class="LineNr">24392 </span> } +<span id="L24393" class="LineNr">24393 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24394" class="LineNr">24394 </span> { +<span id="L24395" class="LineNr">24395 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24396" class="LineNr">24396 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24397" class="LineNr">24397 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24398" class="LineNr">24398 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24399" class="LineNr">24399 </span><span class="Constant">$check-mu-length-stmt:base-is-addr</span>: +<span id="L24400" class="LineNr">24400 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24401" class="LineNr">24401 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24402" class="LineNr">24402 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24403" class="LineNr">24403 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24404" class="LineNr">24404 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-non-array-type/disp32 +<span id="L24405" class="LineNr">24405 </span><span class="Constant">$check-mu-length-stmt:check-base-addr-is-register</span>: +<span id="L24406" class="LineNr">24406 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24407" class="LineNr">24407 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-base-address-array-type-on-stack/disp32 +<span id="L24408" class="LineNr">24408 </span> } +<span id="L24409" class="LineNr">24409 </span> <span class="subxComment"># if (type->left == array) ensure type->register doesn't exist</span> +<span id="L24410" class="LineNr">24410 </span> { +<span id="L24411" class="LineNr">24411 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24412" class="LineNr">24412 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24413" class="LineNr">24413 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24414" class="LineNr">24414 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24415" class="LineNr">24415 </span><span class="Constant">$check-mu-length-stmt:base-is-array</span>: +<span id="L24416" class="LineNr">24416 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L24417" class="LineNr">24417 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-base-array-type-in-register/disp32 +<span id="L24418" class="LineNr">24418 </span> } +<span id="L24419" class="LineNr">24419 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24420" class="LineNr">24420 </span> { +<span id="L24421" class="LineNr">24421 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24422" class="LineNr">24422 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24423" class="LineNr">24423 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24424" class="LineNr">24424 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24425" class="LineNr">24425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24426" class="LineNr">24426 </span> 89/<- %ebx 0/r32/eax +<span id="L24427" class="LineNr">24427 </span> } +<span id="L24428" class="LineNr">24428 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24429" class="LineNr">24429 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24430" class="LineNr">24430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24431" class="LineNr">24431 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24432" class="LineNr">24432 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-inouts/disp32 +<span id="L24433" class="LineNr">24433 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24434" class="LineNr">24434 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24435" class="LineNr">24435 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24436" class="LineNr">24436 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24437" class="LineNr">24437 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-too-few-outputs/disp32 +<span id="L24438" class="LineNr">24438 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24439" class="LineNr">24439 </span> 89/<- %edi 0/r32/eax +<span id="L24440" class="LineNr">24440 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24441" class="LineNr">24441 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24442" class="LineNr">24442 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24443" class="LineNr">24443 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L24444" class="LineNr">24444 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24445" class="LineNr">24445 </span> 0f 84/jump-if-= $check-mu-length-stmt:error-invalid-output-type/disp32 +<span id="L24446" class="LineNr">24446 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24447" class="LineNr">24447 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24448" class="LineNr">24448 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24449" class="LineNr">24449 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24450" class="LineNr">24450 </span> 0f 85/jump-if-!= $check-mu-length-stmt:error-too-many-outputs/disp32 +<span id="L24451" class="LineNr">24451 </span><span class="Constant">$check-mu-length-stmt:end</span>: +<span id="L24452" class="LineNr">24452 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24453" class="LineNr">24453 </span> 5f/pop-to-edi +<span id="L24454" class="LineNr">24454 </span> 5e/pop-to-esi +<span id="L24455" class="LineNr">24455 </span> 5b/pop-to-ebx +<span id="L24456" class="LineNr">24456 </span> 5a/pop-to-edx +<span id="L24457" class="LineNr">24457 </span> 59/pop-to-ecx +<span id="L24458" class="LineNr">24458 </span> 58/pop-to-eax +<span id="L24459" class="LineNr">24459 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24460" class="LineNr">24460 </span> 89/<- %esp 5/r32/ebp +<span id="L24461" class="LineNr">24461 </span> 5d/pop-to-ebp +<span id="L24462" class="LineNr">24462 </span> c3/return +<span id="L24463" class="LineNr">24463 </span> +<span id="L24464" class="LineNr">24464 </span><span class="Constant">$check-mu-length-stmt:error-base-non-array-type</span>: +<span id="L24465" class="LineNr">24465 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24466" class="LineNr">24466 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24467" class="LineNr">24467 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24468" class="LineNr">24468 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24469" class="LineNr">24469 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24470" class="LineNr">24470 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24471" class="LineNr">24471 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24472" class="LineNr">24472 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24473" class="LineNr">24473 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24474" class="LineNr">24474 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24475" class="LineNr">24475 </span> <span class="subxComment"># never gets here</span> +<span id="L24476" class="LineNr">24476 </span> +<span id="L24477" class="LineNr">24477 </span><span class="Constant">$check-mu-length-stmt:error-base-array-atom-type</span>: +<span id="L24478" class="LineNr">24478 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24479" class="LineNr">24479 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24480" class="LineNr">24480 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24481" class="LineNr">24481 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24482" class="LineNr">24482 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: array '"</span>) +<span id="L24483" class="LineNr">24483 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24484" class="LineNr">24484 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24485" class="LineNr">24485 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of its elements\n"</span>) +<span id="L24486" class="LineNr">24486 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24487" class="LineNr">24487 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24488" class="LineNr">24488 </span> <span class="subxComment"># never gets here</span> +<span id="L24489" class="LineNr">24489 </span> +<span id="L24490" class="LineNr">24490 </span><span class="Constant">$check-mu-length-stmt:error-base-address-array-type-on-stack</span>: +<span id="L24491" class="LineNr">24491 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24492" class="LineNr">24492 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24493" class="LineNr">24493 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24494" class="LineNr">24494 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24495" class="LineNr">24495 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24496" class="LineNr">24496 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24497" class="LineNr">24497 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24498" class="LineNr">24498 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an addr to an array, and so must live in a register\n"</span>) +<span id="L24499" class="LineNr">24499 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24500" class="LineNr">24500 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24501" class="LineNr">24501 </span> <span class="subxComment"># never gets here</span> +<span id="L24502" class="LineNr">24502 </span> +<span id="L24503" class="LineNr">24503 </span><span class="Constant">$check-mu-length-stmt:error-base-array-type-in-register</span>: +<span id="L24504" class="LineNr">24504 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24505" class="LineNr">24505 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24506" class="LineNr">24506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24507" class="LineNr">24507 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24508" class="LineNr">24508 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: var '"</span>) +<span id="L24509" class="LineNr">24509 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24510" class="LineNr">24510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24511" class="LineNr">24511 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is an array, and so must live on the stack\n"</span>) +<span id="L24512" class="LineNr">24512 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24513" class="LineNr">24513 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24514" class="LineNr">24514 </span> <span class="subxComment"># never gets here</span> +<span id="L24515" class="LineNr">24515 </span> +<span id="L24516" class="LineNr">24516 </span><span class="Constant">$check-mu-length-stmt:error-too-few-inouts</span>: +<span id="L24517" class="LineNr">24517 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24518" class="LineNr">24518 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24519" class="LineNr">24519 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24520" class="LineNr">24520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24521" class="LineNr">24521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: too few inouts (1 required)\n"</span>) +<span id="L24522" class="LineNr">24522 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24523" class="LineNr">24523 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24524" class="LineNr">24524 </span> <span class="subxComment"># never gets here</span> +<span id="L24525" class="LineNr">24525 </span> +<span id="L24526" class="LineNr">24526 </span><span class="Constant">$check-mu-length-stmt:error-invalid-index-type</span>: +<span id="L24527" class="LineNr">24527 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24528" class="LineNr">24528 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24529" class="LineNr">24529 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24530" class="LineNr">24530 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24531" class="LineNr">24531 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L24532" class="LineNr">24532 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24533" class="LineNr">24533 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24534" class="LineNr">24534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or offset\n"</span>) +<span id="L24535" class="LineNr">24535 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24536" class="LineNr">24536 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24537" class="LineNr">24537 </span> <span class="subxComment"># never gets here</span> +<span id="L24538" class="LineNr">24538 </span> +<span id="L24539" class="LineNr">24539 </span><span class="Constant">$check-mu-length-stmt:error-index-offset-atom-type</span>: +<span id="L24540" class="LineNr">24540 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24541" class="LineNr">24541 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24542" class="LineNr">24542 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24543" class="LineNr">24543 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24544" class="LineNr">24544 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: offset '"</span>) +<span id="L24545" class="LineNr">24545 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24546" class="LineNr">24546 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24547" class="LineNr">24547 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of array elements\n"</span>) +<span id="L24548" class="LineNr">24548 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24549" class="LineNr">24549 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24550" class="LineNr">24550 </span> <span class="subxComment"># never gets here</span> +<span id="L24551" class="LineNr">24551 </span> +<span id="L24552" class="LineNr">24552 </span><span class="Constant">$check-mu-length-stmt:error-index-on-stack</span>: +<span id="L24553" class="LineNr">24553 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24554" class="LineNr">24554 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24555" class="LineNr">24555 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24556" class="LineNr">24556 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24557" class="LineNr">24557 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: second argument '"</span>) +<span id="L24558" class="LineNr">24558 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24559" class="LineNr">24559 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24560" class="LineNr">24560 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register\n"</span>) +<span id="L24561" class="LineNr">24561 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24562" class="LineNr">24562 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24563" class="LineNr">24563 </span> <span class="subxComment"># never gets here</span> +<span id="L24564" class="LineNr">24564 </span> +<span id="L24565" class="LineNr">24565 </span><span class="Constant">$check-mu-length-stmt:error-index-needs-offset</span>: +<span id="L24566" class="LineNr">24566 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24567" class="LineNr">24567 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24568" class="LineNr">24568 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24569" class="LineNr">24569 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24570" class="LineNr">24570 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: cannot take an int for array '"</span>) +<span id="L24571" class="LineNr">24571 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24572" class="LineNr">24572 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24573" class="LineNr">24573 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24574" class="LineNr">24574 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24575" class="LineNr">24575 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"'; create an offset instead. See mu.md for details.\n"</span>) +<span id="L24576" class="LineNr">24576 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24577" class="LineNr">24577 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24578" class="LineNr">24578 </span> <span class="subxComment"># never gets here</span> +<span id="L24579" class="LineNr">24579 </span> +<span id="L24580" class="LineNr">24580 </span><span class="Constant">$check-mu-length-stmt:error-too-many-inouts</span>: +<span id="L24581" class="LineNr">24581 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24582" class="LineNr">24582 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24583" class="LineNr">24583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24584" class="LineNr">24584 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24585" class="LineNr">24585 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: too many inouts (1 required)\n"</span>) +<span id="L24586" class="LineNr">24586 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24587" class="LineNr">24587 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24588" class="LineNr">24588 </span> <span class="subxComment"># never gets here</span> +<span id="L24589" class="LineNr">24589 </span> +<span id="L24590" class="LineNr">24590 </span><span class="Constant">$check-mu-length-stmt:error-too-few-outputs</span>: +<span id="L24591" class="LineNr">24591 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24592" class="LineNr">24592 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24593" class="LineNr">24593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24594" class="LineNr">24594 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24595" class="LineNr">24595 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: must have an output\n"</span>) +<span id="L24596" class="LineNr">24596 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24597" class="LineNr">24597 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24598" class="LineNr">24598 </span> <span class="subxComment"># never gets here</span> +<span id="L24599" class="LineNr">24599 </span> +<span id="L24600" class="LineNr">24600 </span><span class="Constant">$check-mu-length-stmt:error-too-many-outputs</span>: +<span id="L24601" class="LineNr">24601 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24602" class="LineNr">24602 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24603" class="LineNr">24603 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24604" class="LineNr">24604 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24605" class="LineNr">24605 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: too many outputs (1 required)\n"</span>) +<span id="L24606" class="LineNr">24606 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24607" class="LineNr">24607 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24608" class="LineNr">24608 </span> <span class="subxComment"># never gets here</span> +<span id="L24609" class="LineNr">24609 </span> +<span id="L24610" class="LineNr">24610 </span><span class="Constant">$check-mu-length-stmt:error-output-not-in-register</span>: +<span id="L24611" class="LineNr">24611 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24612" class="LineNr">24612 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24613" class="LineNr">24613 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24614" class="LineNr">24614 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24615" class="LineNr">24615 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) +<span id="L24616" class="LineNr">24616 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24617" class="LineNr">24617 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24618" class="LineNr">24618 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) +<span id="L24619" class="LineNr">24619 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24620" class="LineNr">24620 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24621" class="LineNr">24621 </span> <span class="subxComment"># never gets here</span> +<span id="L24622" class="LineNr">24622 </span> +<span id="L24623" class="LineNr">24623 </span><span class="Constant">$check-mu-length-stmt:error-invalid-output-type</span>: +<span id="L24624" class="LineNr">24624 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24625" class="LineNr">24625 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24626" class="LineNr">24626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24627" class="LineNr">24627 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24628" class="LineNr">24628 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt length: output '"</span>) +<span id="L24629" class="LineNr">24629 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24630" class="LineNr">24630 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24631" class="LineNr">24631 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) +<span id="L24632" class="LineNr">24632 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24633" class="LineNr">24633 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24634" class="LineNr">24634 </span> <span class="subxComment"># never gets here</span> +<span id="L24635" class="LineNr">24635 </span> +<span id="L24636" class="LineNr">24636 </span><span class="subxFunction">check-mu-compute-offset-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L24637" class="LineNr">24637 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24638" class="LineNr">24638 </span> 55/push-ebp +<span id="L24639" class="LineNr">24639 </span> 89/<- %ebp 4/r32/esp +<span id="L24640" class="LineNr">24640 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24641" class="LineNr">24641 </span> 50/push-eax +<span id="L24642" class="LineNr">24642 </span> 51/push-ecx +<span id="L24643" class="LineNr">24643 </span> 52/push-edx +<span id="L24644" class="LineNr">24644 </span> 53/push-ebx +<span id="L24645" class="LineNr">24645 </span> 56/push-esi +<span id="L24646" class="LineNr">24646 </span> 57/push-edi +<span id="L24647" class="LineNr">24647 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24648" class="LineNr">24648 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24649" class="LineNr">24649 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L24650" class="LineNr">24650 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L24651" class="LineNr">24651 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24652" class="LineNr">24652 </span><span class="Constant">$check-mu-compute-offset-stmt:check-no-inouts</span>: +<span id="L24653" class="LineNr">24653 </span> 3d/compare-eax-and 0/imm32 +<span id="L24654" class="LineNr">24654 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L24655" class="LineNr">24655 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24656" class="LineNr">24656 </span> 89/<- %ecx 0/r32/eax +<span id="L24657" class="LineNr">24657 </span> <span class="subxH1Comment"># - check base type is either (addr array ...) in register or (array ...) on stack</span> +<span id="L24658" class="LineNr">24658 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L24659" class="LineNr">24659 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24660" class="LineNr">24660 </span> 89/<- %ebx 0/r32/eax +<span id="L24661" class="LineNr">24661 </span> <span class="subxComment"># if base-type is an atom, abort with a precise error</span> +<span id="L24662" class="LineNr">24662 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24663" class="LineNr">24663 </span> { +<span id="L24664" class="LineNr">24664 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24665" class="LineNr">24665 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 3) <span class="subxComment"># array => eax</span> +<span id="L24666" class="LineNr">24666 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24667" class="LineNr">24667 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-base-array-atom-type/disp32 +<span id="L24668" class="LineNr">24668 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24669" class="LineNr">24669 </span> } +<span id="L24670" class="LineNr">24670 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-compound</span>: +<span id="L24671" class="LineNr">24671 </span> <span class="subxComment"># if type->left not addr or array, abort</span> +<span id="L24672" class="LineNr">24672 </span> { +<span id="L24673" class="LineNr">24673 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24674" class="LineNr">24674 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24675" class="LineNr">24675 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24676" class="LineNr">24676 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24677" class="LineNr">24677 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24678" class="LineNr">24678 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24679" class="LineNr">24679 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24680" class="LineNr">24680 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24681" class="LineNr">24681 </span> e9/jump $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24682" class="LineNr">24682 </span> } +<span id="L24683" class="LineNr">24683 </span> <span class="subxComment"># if (type->left == addr) ensure type->right->left == array and type->register exists</span> +<span id="L24684" class="LineNr">24684 </span> { +<span id="L24685" class="LineNr">24685 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24686" class="LineNr">24686 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24687" class="LineNr">24687 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24688" class="LineNr">24688 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24689" class="LineNr">24689 </span><span class="Constant">$check-mu-compute-offset-stmt:base-is-addr</span>: +<span id="L24690" class="LineNr">24690 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24691" class="LineNr">24691 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24692" class="LineNr">24692 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L24693" class="LineNr">24693 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24694" class="LineNr">24694 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-base-non-array-type/disp32 +<span id="L24695" class="LineNr">24695 </span> } +<span id="L24696" class="LineNr">24696 </span> <span class="subxComment"># if (base-type->left == addr) base-type = base-type->right</span> +<span id="L24697" class="LineNr">24697 </span> { +<span id="L24698" class="LineNr">24698 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24699" class="LineNr">24699 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L24700" class="LineNr">24700 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24701" class="LineNr">24701 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24702" class="LineNr">24702 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24703" class="LineNr">24703 </span> 89/<- %ebx 0/r32/eax +<span id="L24704" class="LineNr">24704 </span> } +<span id="L24705" class="LineNr">24705 </span> <span class="subxH1Comment"># - check for 1 inout</span> +<span id="L24706" class="LineNr">24706 </span> <span class="subxComment"># var index/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L24707" class="LineNr">24707 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24708" class="LineNr">24708 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24709" class="LineNr">24709 </span><span class="Constant">$check-mu-compute-offset-stmt:check-single-inout</span>: +<span id="L24710" class="LineNr">24710 </span> 3d/compare-eax-and 0/imm32 +<span id="L24711" class="LineNr">24711 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-inouts/disp32 +<span id="L24712" class="LineNr">24712 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24713" class="LineNr">24713 </span> 89/<- %ecx 0/r32/eax +<span id="L24714" class="LineNr">24714 </span> <span class="subxH1Comment"># - check index is either a literal or register</span> +<span id="L24715" class="LineNr">24715 </span> <span class="subxComment"># var index-type/edx: (addr type-tree)</span> +<span id="L24716" class="LineNr">24716 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24717" class="LineNr">24717 </span> 89/<- %edx 0/r32/eax +<span id="L24718" class="LineNr">24718 </span> <span class="subxComment"># index type must be a literal or int</span> +<span id="L24719" class="LineNr">24719 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24720" class="LineNr">24720 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L24721" class="LineNr">24721 </span> { +<span id="L24722" class="LineNr">24722 </span><span class="Constant">$check-mu-compute-offset-stmt:index-type-is-atom</span>: +<span id="L24723" class="LineNr">24723 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 0) <span class="subxComment"># literal => eax</span> +<span id="L24724" class="LineNr">24724 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24725" class="LineNr">24725 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24726" class="LineNr">24726 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L24727" class="LineNr">24727 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24728" class="LineNr">24728 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24729" class="LineNr">24729 </span> e9/jump $check-mu-compute-offset-stmt:error-invalid-index-type/disp32 +<span id="L24730" class="LineNr">24730 </span> } +<span id="L24731" class="LineNr">24731 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L24732" class="LineNr">24732 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24733" class="LineNr">24733 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24734" class="LineNr">24734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24735" class="LineNr">24735 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24736" class="LineNr">24736 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-inouts/disp32 +<span id="L24737" class="LineNr">24737 </span> <span class="subxH1Comment"># - check for 0 outputs</span> +<span id="L24738" class="LineNr">24738 </span> <span class="subxComment"># var output/edi: (addr var) = stmt->outputs->value</span> +<span id="L24739" class="LineNr">24739 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24740" class="LineNr">24740 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24741" class="LineNr">24741 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-too-few-outputs/disp32 +<span id="L24742" class="LineNr">24742 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24743" class="LineNr">24743 </span> 89/<- %edi 0/r32/eax +<span id="L24744" class="LineNr">24744 </span> <span class="subxH1Comment"># - check output type</span> +<span id="L24745" class="LineNr">24745 </span> <span class="subxComment"># must have a non-atomic type</span> +<span id="L24746" class="LineNr">24746 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24747" class="LineNr">24747 </span> 89/<- %edx 0/r32/eax +<span id="L24748" class="LineNr">24748 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L24749" class="LineNr">24749 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L24750" class="LineNr">24750 </span> <span class="subxComment"># type must start with (offset ...)</span> +<span id="L24751" class="LineNr">24751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24752" class="LineNr">24752 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 7) <span class="subxComment"># offset => eax</span> +<span id="L24753" class="LineNr">24753 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24754" class="LineNr">24754 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-output-type-not-offset/disp32 +<span id="L24755" class="LineNr">24755 </span> <span class="subxComment"># if tail(base-type) != tail(output-type) abort</span> +<span id="L24756" class="LineNr">24756 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L24757" class="LineNr">24757 </span> 89/<- %ebx 0/r32/eax +<span id="L24758" class="LineNr">24758 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L24759" class="LineNr">24759 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L24760" class="LineNr">24760 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24761" class="LineNr">24761 </span> 0f 84/jump-if-= $check-mu-compute-offset-stmt:error-bad-output-type/disp32 +<span id="L24762" class="LineNr">24762 </span> <span class="subxH1Comment"># - check for too many outputs</span> +<span id="L24763" class="LineNr">24763 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24764" class="LineNr">24764 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24765" class="LineNr">24765 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24766" class="LineNr">24766 </span> 0f 85/jump-if-!= $check-mu-compute-offset-stmt:error-too-many-outputs/disp32 +<span id="L24767" class="LineNr">24767 </span><span class="Constant">$check-mu-compute-offset-stmt:end</span>: +<span id="L24768" class="LineNr">24768 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L24769" class="LineNr">24769 </span> 5f/pop-to-edi +<span id="L24770" class="LineNr">24770 </span> 5e/pop-to-esi +<span id="L24771" class="LineNr">24771 </span> 5b/pop-to-ebx +<span id="L24772" class="LineNr">24772 </span> 5a/pop-to-edx +<span id="L24773" class="LineNr">24773 </span> 59/pop-to-ecx +<span id="L24774" class="LineNr">24774 </span> 58/pop-to-eax +<span id="L24775" class="LineNr">24775 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L24776" class="LineNr">24776 </span> 89/<- %esp 5/r32/ebp +<span id="L24777" class="LineNr">24777 </span> 5d/pop-to-ebp +<span id="L24778" class="LineNr">24778 </span> c3/return +<span id="L24779" class="LineNr">24779 </span> +<span id="L24780" class="LineNr">24780 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-non-array-type</span>: +<span id="L24781" class="LineNr">24781 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24782" class="LineNr">24782 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24783" class="LineNr">24783 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24784" class="LineNr">24784 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24785" class="LineNr">24785 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: var '"</span>) +<span id="L24786" class="LineNr">24786 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24787" class="LineNr">24787 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24788" class="LineNr">24788 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not an array\n"</span>) +<span id="L24789" class="LineNr">24789 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24790" class="LineNr">24790 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24791" class="LineNr">24791 </span> <span class="subxComment"># never gets here</span> +<span id="L24792" class="LineNr">24792 </span> +<span id="L24793" class="LineNr">24793 </span><span class="Constant">$check-mu-compute-offset-stmt:error-base-array-atom-type</span>: +<span id="L24794" class="LineNr">24794 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24795" class="LineNr">24795 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24796" class="LineNr">24796 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24797" class="LineNr">24797 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24798" class="LineNr">24798 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: array '"</span>) +<span id="L24799" class="LineNr">24799 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24800" class="LineNr">24800 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24801" class="LineNr">24801 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of its elements\n"</span>) +<span id="L24802" class="LineNr">24802 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24803" class="LineNr">24803 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24804" class="LineNr">24804 </span> <span class="subxComment"># never gets here</span> +<span id="L24805" class="LineNr">24805 </span> +<span id="L24806" class="LineNr">24806 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-inouts</span>: +<span id="L24807" class="LineNr">24807 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24808" class="LineNr">24808 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24809" class="LineNr">24809 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24810" class="LineNr">24810 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24811" class="LineNr">24811 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: too few inouts (2 required)\n"</span>) +<span id="L24812" class="LineNr">24812 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24813" class="LineNr">24813 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24814" class="LineNr">24814 </span> <span class="subxComment"># never gets here</span> +<span id="L24815" class="LineNr">24815 </span> +<span id="L24816" class="LineNr">24816 </span><span class="Constant">$check-mu-compute-offset-stmt:error-invalid-index-type</span>: +<span id="L24817" class="LineNr">24817 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24818" class="LineNr">24818 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24819" class="LineNr">24819 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24820" class="LineNr">24820 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24821" class="LineNr">24821 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) +<span id="L24822" class="LineNr">24822 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24823" class="LineNr">24823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24824" class="LineNr">24824 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L24825" class="LineNr">24825 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24826" class="LineNr">24826 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24827" class="LineNr">24827 </span> <span class="subxComment"># never gets here</span> +<span id="L24828" class="LineNr">24828 </span> +<span id="L24829" class="LineNr">24829 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-offset-atom-type</span>: +<span id="L24830" class="LineNr">24830 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24831" class="LineNr">24831 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24832" class="LineNr">24832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24833" class="LineNr">24833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24834" class="LineNr">24834 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: offset '"</span>) +<span id="L24835" class="LineNr">24835 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24836" class="LineNr">24836 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24837" class="LineNr">24837 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must specify the type of array elements\n"</span>) +<span id="L24838" class="LineNr">24838 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24839" class="LineNr">24839 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24840" class="LineNr">24840 </span> <span class="subxComment"># never gets here</span> +<span id="L24841" class="LineNr">24841 </span> +<span id="L24842" class="LineNr">24842 </span><span class="Constant">$check-mu-compute-offset-stmt:error-index-on-stack</span>: +<span id="L24843" class="LineNr">24843 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24844" class="LineNr">24844 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24845" class="LineNr">24845 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24846" class="LineNr">24846 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24847" class="LineNr">24847 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: second argument '"</span>) +<span id="L24848" class="LineNr">24848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24849" class="LineNr">24849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24850" class="LineNr">24850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be in a register\n"</span>) +<span id="L24851" class="LineNr">24851 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24852" class="LineNr">24852 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24853" class="LineNr">24853 </span> <span class="subxComment"># never gets here</span> +<span id="L24854" class="LineNr">24854 </span> +<span id="L24855" class="LineNr">24855 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-inouts</span>: +<span id="L24856" class="LineNr">24856 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24857" class="LineNr">24857 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24858" class="LineNr">24858 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24859" class="LineNr">24859 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24860" class="LineNr">24860 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: too many inouts (2 required)\n"</span>) +<span id="L24861" class="LineNr">24861 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24862" class="LineNr">24862 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24863" class="LineNr">24863 </span> <span class="subxComment"># never gets here</span> +<span id="L24864" class="LineNr">24864 </span> +<span id="L24865" class="LineNr">24865 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-few-outputs</span>: +<span id="L24866" class="LineNr">24866 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24867" class="LineNr">24867 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24868" class="LineNr">24868 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24869" class="LineNr">24869 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24870" class="LineNr">24870 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: must have an output\n"</span>) +<span id="L24871" class="LineNr">24871 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24872" class="LineNr">24872 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24873" class="LineNr">24873 </span> <span class="subxComment"># never gets here</span> +<span id="L24874" class="LineNr">24874 </span> +<span id="L24875" class="LineNr">24875 </span><span class="Constant">$check-mu-compute-offset-stmt:error-too-many-outputs</span>: +<span id="L24876" class="LineNr">24876 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24877" class="LineNr">24877 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24878" class="LineNr">24878 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24879" class="LineNr">24879 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24880" class="LineNr">24880 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: too many outputs (1 required)\n"</span>) +<span id="L24881" class="LineNr">24881 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24882" class="LineNr">24882 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24883" class="LineNr">24883 </span> <span class="subxComment"># never gets here</span> +<span id="L24884" class="LineNr">24884 </span> +<span id="L24885" class="LineNr">24885 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-not-in-register</span>: +<span id="L24886" class="LineNr">24886 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24887" class="LineNr">24887 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24888" class="LineNr">24888 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24889" class="LineNr">24889 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24890" class="LineNr">24890 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L24891" class="LineNr">24891 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24892" class="LineNr">24892 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24893" class="LineNr">24893 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' is not in a register\n"</span>) +<span id="L24894" class="LineNr">24894 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24895" class="LineNr">24895 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24896" class="LineNr">24896 </span> <span class="subxComment"># never gets here</span> +<span id="L24897" class="LineNr">24897 </span> +<span id="L24898" class="LineNr">24898 </span><span class="Constant">$check-mu-compute-offset-stmt:error-output-type-not-offset</span>: +<span id="L24899" class="LineNr">24899 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24900" class="LineNr">24900 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24901" class="LineNr">24901 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24902" class="LineNr">24902 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24903" class="LineNr">24903 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L24904" class="LineNr">24904 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24905" class="LineNr">24905 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24906" class="LineNr">24906 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an offset\n"</span>) +<span id="L24907" class="LineNr">24907 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24908" class="LineNr">24908 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24909" class="LineNr">24909 </span> <span class="subxComment"># never gets here</span> +<span id="L24910" class="LineNr">24910 </span> +<span id="L24911" class="LineNr">24911 </span><span class="Constant">$check-mu-compute-offset-stmt:error-bad-output-type</span>: +<span id="L24912" class="LineNr">24912 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L24913" class="LineNr">24913 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L24914" class="LineNr">24914 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L24915" class="LineNr">24915 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24916" class="LineNr">24916 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt compute-offset: output '"</span>) +<span id="L24917" class="LineNr">24917 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L24918" class="LineNr">24918 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L24919" class="LineNr">24919 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) +<span id="L24920" class="LineNr">24920 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L24921" class="LineNr">24921 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L24922" class="LineNr">24922 </span> <span class="subxComment"># never gets here</span> +<span id="L24923" class="LineNr">24923 </span> +<span id="L24924" class="LineNr">24924 </span><span class="subxFunction">check-mu-copy-object-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L24925" class="LineNr">24925 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L24926" class="LineNr">24926 </span> 55/push-ebp +<span id="L24927" class="LineNr">24927 </span> 89/<- %ebp 4/r32/esp +<span id="L24928" class="LineNr">24928 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L24929" class="LineNr">24929 </span> 50/push-eax +<span id="L24930" class="LineNr">24930 </span> 51/push-ecx +<span id="L24931" class="LineNr">24931 </span> 53/push-ebx +<span id="L24932" class="LineNr">24932 </span> 56/push-esi +<span id="L24933" class="LineNr">24933 </span> 57/push-edi +<span id="L24934" class="LineNr">24934 </span> <span class="subxComment"># esi = stmt</span> +<span id="L24935" class="LineNr">24935 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L24936" class="LineNr">24936 </span><span class="Constant">$check-mu-copy-object-stmt:check-for-output</span>: +<span id="L24937" class="LineNr">24937 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L24938" class="LineNr">24938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L24939" class="LineNr">24939 </span> 3d/compare-eax-and 0/imm32 +<span id="L24940" class="LineNr">24940 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-too-many-outputs/disp32 +<span id="L24941" class="LineNr">24941 </span><span class="Constant">$check-mu-copy-object-stmt:get-left</span>: +<span id="L24942" class="LineNr">24942 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L24943" class="LineNr">24943 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L24944" class="LineNr">24944 </span> 89/<- %edi 0/r32/eax +<span id="L24945" class="LineNr">24945 </span> <span class="subxComment"># zero inouts</span> +<span id="L24946" class="LineNr">24946 </span> 3d/compare-eax-and 0/imm32 +<span id="L24947" class="LineNr">24947 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L24948" class="LineNr">24948 </span><span class="Constant">$check-mu-copy-object-stmt:get-src</span>: +<span id="L24949" class="LineNr">24949 </span> <span class="subxComment"># var src/esi: (addr stmt-var) = dest->next</span> +<span id="L24950" class="LineNr">24950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24951" class="LineNr">24951 </span> 89/<- %esi 0/r32/eax +<span id="L24952" class="LineNr">24952 </span> <span class="subxComment"># 1 inout</span> +<span id="L24953" class="LineNr">24953 </span> 3d/compare-eax-and 0/imm32 +<span id="L24954" class="LineNr">24954 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L24955" class="LineNr">24955 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L24956" class="LineNr">24956 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L24957" class="LineNr">24957 </span> 3d/compare-eax-and 0/imm32 +<span id="L24958" class="LineNr">24958 </span> 0f 85/jump-if-!= $check-mu-copy-object-stmt:error-incorrect-inouts/disp32 +<span id="L24959" class="LineNr">24959 </span><span class="Constant">$check-mu-copy-object-stmt:types</span>: +<span id="L24960" class="LineNr">24960 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L24961" class="LineNr">24961 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24962" class="LineNr">24962 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24963" class="LineNr">24963 </span> 89/<- %ecx 0/r32/eax +<span id="L24964" class="LineNr">24964 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L24965" class="LineNr">24965 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L24966" class="LineNr">24966 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24967" class="LineNr">24967 </span> { +<span id="L24968" class="LineNr">24968 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24969" class="LineNr">24969 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24970" class="LineNr">24970 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> +<span id="L24971" class="LineNr">24971 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L24972" class="LineNr">24972 </span> { +<span id="L24973" class="LineNr">24973 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24974" class="LineNr">24974 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24975" class="LineNr">24975 </span> } +<span id="L24976" class="LineNr">24976 </span> 89/<- %ecx 0/r32/eax +<span id="L24977" class="LineNr">24977 </span> } +<span id="L24978" class="LineNr">24978 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L24979" class="LineNr">24979 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L24980" class="LineNr">24980 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24981" class="LineNr">24981 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 +<span id="L24982" class="LineNr">24982 </span> <span class="subxComment"># var dest-type/ebx: (addr type-tree) = dest->value->type</span> +<span id="L24983" class="LineNr">24983 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L24984" class="LineNr">24984 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L24985" class="LineNr">24985 </span> 89/<- %ebx 0/r32/eax +<span id="L24986" class="LineNr">24986 </span> <span class="subxComment"># if (dest->is-deref?) dest-type = dest-type->payload</span> +<span id="L24987" class="LineNr">24987 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L24988" class="LineNr">24988 </span> 3d/compare-eax-and 0/imm32/false +<span id="L24989" class="LineNr">24989 </span> { +<span id="L24990" class="LineNr">24990 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L24991" class="LineNr">24991 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L24992" class="LineNr">24992 </span> <span class="subxComment"># if dest-type->right is null, dest-type = dest-type->left</span> +<span id="L24993" class="LineNr">24993 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L24994" class="LineNr">24994 </span> { +<span id="L24995" class="LineNr">24995 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L24996" class="LineNr">24996 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L24997" class="LineNr">24997 </span> } +<span id="L24998" class="LineNr">24998 </span> 89/<- %ebx 0/r32/eax +<span id="L24999" class="LineNr">24999 </span> } +<span id="L25000" class="LineNr">25000 </span> <span class="subxComment"># if (dest-type != src-type) abort</span> +<span id="L25001" class="LineNr">25001 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L25002" class="LineNr">25002 </span> 3d/compare-eax-and 0/imm32 +<span id="L25003" class="LineNr">25003 </span> 0f 84/jump-if-= $check-mu-copy-object-stmt:error-invalid-types/disp32 +<span id="L25004" class="LineNr">25004 </span><span class="Constant">$check-mu-copy-object-stmt:end</span>: +<span id="L25005" class="LineNr">25005 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25006" class="LineNr">25006 </span> 5f/pop-to-edi +<span id="L25007" class="LineNr">25007 </span> 5e/pop-to-esi +<span id="L25008" class="LineNr">25008 </span> 5b/pop-to-ebx +<span id="L25009" class="LineNr">25009 </span> 59/pop-to-ecx +<span id="L25010" class="LineNr">25010 </span> 58/pop-to-eax +<span id="L25011" class="LineNr">25011 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25012" class="LineNr">25012 </span> 89/<- %esp 5/r32/ebp +<span id="L25013" class="LineNr">25013 </span> 5d/pop-to-ebp +<span id="L25014" class="LineNr">25014 </span> c3/return +<span id="L25015" class="LineNr">25015 </span> +<span id="L25016" class="LineNr">25016 </span><span class="Constant">$check-mu-copy-object-stmt:error-incorrect-inouts</span>: +<span id="L25017" class="LineNr">25017 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25018" class="LineNr">25018 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25019" class="LineNr">25019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25020" class="LineNr">25020 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25021" class="LineNr">25021 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-object' must have two inouts\n"</span>) +<span id="L25022" class="LineNr">25022 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25023" class="LineNr">25023 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25024" class="LineNr">25024 </span> <span class="subxComment"># never gets here</span> +<span id="L25025" class="LineNr">25025 </span> +<span id="L25026" class="LineNr">25026 </span><span class="Constant">$check-mu-copy-object-stmt:error-too-many-outputs</span>: +<span id="L25027" class="LineNr">25027 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25028" class="LineNr">25028 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25029" class="LineNr">25029 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25030" class="LineNr">25030 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25031" class="LineNr">25031 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'copy-object' must not have any outputs\n"</span>) +<span id="L25032" class="LineNr">25032 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25033" class="LineNr">25033 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25034" class="LineNr">25034 </span> <span class="subxComment"># never gets here</span> +<span id="L25035" class="LineNr">25035 </span> +<span id="L25036" class="LineNr">25036 </span><span class="Constant">$check-mu-copy-object-stmt:error-invalid-types</span>: +<span id="L25037" class="LineNr">25037 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25038" class="LineNr">25038 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25039" class="LineNr">25039 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25040" class="LineNr">25040 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25041" class="LineNr">25041 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt copy-object: two inouts with identical addr types expected\n"</span>) +<span id="L25042" class="LineNr">25042 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25043" class="LineNr">25043 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25044" class="LineNr">25044 </span> <span class="subxComment"># never gets here</span> +<span id="L25045" class="LineNr">25045 </span> +<span id="L25046" class="LineNr">25046 </span><span class="subxFunction">check-mu-clear-object-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L25047" class="LineNr">25047 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25048" class="LineNr">25048 </span> 55/push-ebp +<span id="L25049" class="LineNr">25049 </span> 89/<- %ebp 4/r32/esp +<span id="L25050" class="LineNr">25050 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25051" class="LineNr">25051 </span> 50/push-eax +<span id="L25052" class="LineNr">25052 </span> 51/push-ecx +<span id="L25053" class="LineNr">25053 </span> 53/push-ebx +<span id="L25054" class="LineNr">25054 </span> 56/push-esi +<span id="L25055" class="LineNr">25055 </span> 57/push-edi +<span id="L25056" class="LineNr">25056 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25057" class="LineNr">25057 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25058" class="LineNr">25058 </span><span class="Constant">$check-mu-clear-object-stmt:check-for-output</span>: +<span id="L25059" class="LineNr">25059 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25060" class="LineNr">25060 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25061" class="LineNr">25061 </span> 3d/compare-eax-and 0/imm32 +<span id="L25062" class="LineNr">25062 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-too-many-outputs/disp32 +<span id="L25063" class="LineNr">25063 </span><span class="Constant">$check-mu-clear-object-stmt:get-left</span>: +<span id="L25064" class="LineNr">25064 </span> <span class="subxComment"># var dest/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25065" class="LineNr">25065 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25066" class="LineNr">25066 </span> 89/<- %edi 0/r32/eax +<span id="L25067" class="LineNr">25067 </span> <span class="subxComment"># zero inouts</span> +<span id="L25068" class="LineNr">25068 </span> 3d/compare-eax-and 0/imm32 +<span id="L25069" class="LineNr">25069 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L25070" class="LineNr">25070 </span><span class="Constant">$check-mu-clear-object-stmt:get-src</span>: +<span id="L25071" class="LineNr">25071 </span> <span class="subxComment"># > 1 inout</span> +<span id="L25072" class="LineNr">25072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25073" class="LineNr">25073 </span> 3d/compare-eax-and 0/imm32 +<span id="L25074" class="LineNr">25074 </span> 0f 85/jump-if-!= $check-mu-clear-object-stmt:error-incorrect-inouts/disp32 +<span id="L25075" class="LineNr">25075 </span><span class="Constant">$check-mu-clear-object-stmt:types</span>: +<span id="L25076" class="LineNr">25076 </span> <span class="subxComment"># var src-type/ecx: (addr type-tree) = src->value->type</span> +<span id="L25077" class="LineNr">25077 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25078" class="LineNr">25078 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25079" class="LineNr">25079 </span> 89/<- %ecx 0/r32/eax +<span id="L25080" class="LineNr">25080 </span> <span class="subxComment"># if (src->is-deref?) src-type = src-type->payload</span> +<span id="L25081" class="LineNr">25081 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25082" class="LineNr">25082 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25083" class="LineNr">25083 </span> { +<span id="L25084" class="LineNr">25084 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25085" class="LineNr">25085 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25086" class="LineNr">25086 </span> <span class="subxComment"># if src-type->right is null, src-type = src-type->left</span> +<span id="L25087" class="LineNr">25087 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25088" class="LineNr">25088 </span> { +<span id="L25089" class="LineNr">25089 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25090" class="LineNr">25090 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25091" class="LineNr">25091 </span> } +<span id="L25092" class="LineNr">25092 </span> 89/<- %ecx 0/r32/eax +<span id="L25093" class="LineNr">25093 </span> } +<span id="L25094" class="LineNr">25094 </span> <span class="subxComment"># if src-type is not addr, abort</span> +<span id="L25095" class="LineNr">25095 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L25096" class="LineNr">25096 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25097" class="LineNr">25097 </span> 0f 84/jump-if-= $check-mu-clear-object-stmt:error-invalid-type/disp32 +<span id="L25098" class="LineNr">25098 </span><span class="Constant">$check-mu-clear-object-stmt:end</span>: +<span id="L25099" class="LineNr">25099 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25100" class="LineNr">25100 </span> 5f/pop-to-edi +<span id="L25101" class="LineNr">25101 </span> 5e/pop-to-esi +<span id="L25102" class="LineNr">25102 </span> 5b/pop-to-ebx +<span id="L25103" class="LineNr">25103 </span> 59/pop-to-ecx +<span id="L25104" class="LineNr">25104 </span> 58/pop-to-eax +<span id="L25105" class="LineNr">25105 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25106" class="LineNr">25106 </span> 89/<- %esp 5/r32/ebp +<span id="L25107" class="LineNr">25107 </span> 5d/pop-to-ebp +<span id="L25108" class="LineNr">25108 </span> c3/return +<span id="L25109" class="LineNr">25109 </span> +<span id="L25110" class="LineNr">25110 </span><span class="Constant">$check-mu-clear-object-stmt:error-incorrect-inouts</span>: +<span id="L25111" class="LineNr">25111 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25112" class="LineNr">25112 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25113" class="LineNr">25113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25114" class="LineNr">25114 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25115" class="LineNr">25115 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'clear-object' must have a single inout\n"</span>) +<span id="L25116" class="LineNr">25116 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25117" class="LineNr">25117 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25118" class="LineNr">25118 </span> <span class="subxComment"># never gets here</span> +<span id="L25119" class="LineNr">25119 </span> +<span id="L25120" class="LineNr">25120 </span><span class="Constant">$check-mu-clear-object-stmt:error-too-many-outputs</span>: +<span id="L25121" class="LineNr">25121 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25122" class="LineNr">25122 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25123" class="LineNr">25123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25124" class="LineNr">25124 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25125" class="LineNr">25125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'clear-object' must not have any outputs\n"</span>) +<span id="L25126" class="LineNr">25126 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25127" class="LineNr">25127 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25128" class="LineNr">25128 </span> <span class="subxComment"># never gets here</span> +<span id="L25129" class="LineNr">25129 </span> +<span id="L25130" class="LineNr">25130 </span><span class="Constant">$check-mu-clear-object-stmt:error-invalid-type</span>: +<span id="L25131" class="LineNr">25131 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25132" class="LineNr">25132 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25133" class="LineNr">25133 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25134" class="LineNr">25134 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25135" class="LineNr">25135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt clear-object: inout must have an addr type\n"</span>) +<span id="L25136" class="LineNr">25136 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25137" class="LineNr">25137 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25138" class="LineNr">25138 </span> <span class="subxComment"># never gets here</span> +<span id="L25139" class="LineNr">25139 </span> +<span id="L25140" class="LineNr">25140 </span><span class="subxFunction">check-mu-allocate-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L25141" class="LineNr">25141 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25142" class="LineNr">25142 </span> 55/push-ebp +<span id="L25143" class="LineNr">25143 </span> 89/<- %ebp 4/r32/esp +<span id="L25144" class="LineNr">25144 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25145" class="LineNr">25145 </span> 50/push-eax +<span id="L25146" class="LineNr">25146 </span> 53/push-ebx +<span id="L25147" class="LineNr">25147 </span> 56/push-esi +<span id="L25148" class="LineNr">25148 </span> 57/push-edi +<span id="L25149" class="LineNr">25149 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25150" class="LineNr">25150 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25151" class="LineNr">25151 </span><span class="Constant">$check-mu-allocate-stmt:check-for-output</span>: +<span id="L25152" class="LineNr">25152 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25153" class="LineNr">25153 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25154" class="LineNr">25154 </span> 3d/compare-eax-and 0/imm32 +<span id="L25155" class="LineNr">25155 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-too-many-outputs/disp32 +<span id="L25156" class="LineNr">25156 </span><span class="Constant">$check-mu-allocate-stmt:get-target</span>: +<span id="L25157" class="LineNr">25157 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25158" class="LineNr">25158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25159" class="LineNr">25159 </span> 89/<- %edi 0/r32/eax +<span id="L25160" class="LineNr">25160 </span> <span class="subxComment"># zero inouts</span> +<span id="L25161" class="LineNr">25161 </span> 3d/compare-eax-and 0/imm32 +<span id="L25162" class="LineNr">25162 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L25163" class="LineNr">25163 </span> <span class="subxComment"># > 1 inouts</span> +<span id="L25164" class="LineNr">25164 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25165" class="LineNr">25165 </span> 3d/compare-eax-and 0/imm32 +<span id="L25166" class="LineNr">25166 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-incorrect-inouts/disp32 +<span id="L25167" class="LineNr">25167 </span><span class="Constant">$check-mu-allocate-stmt:check-type</span>: +<span id="L25168" class="LineNr">25168 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25169" class="LineNr">25169 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25170" class="LineNr">25170 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25171" class="LineNr">25171 </span> 89/<- %ebx 0/r32/eax +<span id="L25172" class="LineNr">25172 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25173" class="LineNr">25173 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25174" class="LineNr">25174 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25175" class="LineNr">25175 </span> { +<span id="L25176" class="LineNr">25176 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25177" class="LineNr">25177 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25178" class="LineNr">25178 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25179" class="LineNr">25179 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25180" class="LineNr">25180 </span> { +<span id="L25181" class="LineNr">25181 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25182" class="LineNr">25182 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25183" class="LineNr">25183 </span> } +<span id="L25184" class="LineNr">25184 </span> 89/<- %ebx 0/r32/eax +<span id="L25185" class="LineNr">25185 </span> } +<span id="L25186" class="LineNr">25186 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25187" class="LineNr">25187 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25188" class="LineNr">25188 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25189" class="LineNr">25189 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25190" class="LineNr">25190 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25191" class="LineNr">25191 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25192" class="LineNr">25192 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25193" class="LineNr">25193 </span> 0f 85/jump-if-!= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25194" class="LineNr">25194 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25195" class="LineNr">25195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25196" class="LineNr">25196 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25197" class="LineNr">25197 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25198" class="LineNr">25198 </span> 0f 84/jump-if-= $check-mu-allocate-stmt:error-invalid-type/disp32 +<span id="L25199" class="LineNr">25199 </span><span class="Constant">$check-mu-allocate-stmt:end</span>: +<span id="L25200" class="LineNr">25200 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25201" class="LineNr">25201 </span> 5f/pop-to-edi +<span id="L25202" class="LineNr">25202 </span> 5e/pop-to-esi +<span id="L25203" class="LineNr">25203 </span> 5b/pop-to-ebx +<span id="L25204" class="LineNr">25204 </span> 58/pop-to-eax +<span id="L25205" class="LineNr">25205 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25206" class="LineNr">25206 </span> 89/<- %esp 5/r32/ebp +<span id="L25207" class="LineNr">25207 </span> 5d/pop-to-ebp +<span id="L25208" class="LineNr">25208 </span> c3/return +<span id="L25209" class="LineNr">25209 </span> +<span id="L25210" class="LineNr">25210 </span><span class="Constant">$check-mu-allocate-stmt:error-incorrect-inouts</span>: +<span id="L25211" class="LineNr">25211 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25212" class="LineNr">25212 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25213" class="LineNr">25213 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25214" class="LineNr">25214 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25215" class="LineNr">25215 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'allocate' must have a single inout\n"</span>) +<span id="L25216" class="LineNr">25216 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25217" class="LineNr">25217 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25218" class="LineNr">25218 </span> <span class="subxComment"># never gets here</span> +<span id="L25219" class="LineNr">25219 </span> +<span id="L25220" class="LineNr">25220 </span><span class="Constant">$check-mu-allocate-stmt:error-too-many-outputs</span>: +<span id="L25221" class="LineNr">25221 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25222" class="LineNr">25222 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25223" class="LineNr">25223 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25224" class="LineNr">25224 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25225" class="LineNr">25225 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'allocate' must not have any outputs\n"</span>) +<span id="L25226" class="LineNr">25226 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25227" class="LineNr">25227 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25228" class="LineNr">25228 </span> <span class="subxComment"># never gets here</span> +<span id="L25229" class="LineNr">25229 </span> +<span id="L25230" class="LineNr">25230 </span><span class="Constant">$check-mu-allocate-stmt:error-invalid-type</span>: +<span id="L25231" class="LineNr">25231 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25232" class="LineNr">25232 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25233" class="LineNr">25233 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25234" class="LineNr">25234 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25235" class="LineNr">25235 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='120allocate.subx.html#L66'>allocate</a>: inout '"</span>) +<span id="L25236" class="LineNr">25236 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25237" class="LineNr">25237 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25238" class="LineNr">25238 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25239" class="LineNr">25239 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have type (addr handle ...)\n"</span>) +<span id="L25240" class="LineNr">25240 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25241" class="LineNr">25241 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25242" class="LineNr">25242 </span> <span class="subxComment"># never gets here</span> +<span id="L25243" class="LineNr">25243 </span> +<span id="L25244" class="LineNr">25244 </span><span class="subxFunction">check-mu-populate-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L25245" class="LineNr">25245 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25246" class="LineNr">25246 </span> 55/push-ebp +<span id="L25247" class="LineNr">25247 </span> 89/<- %ebp 4/r32/esp +<span id="L25248" class="LineNr">25248 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25249" class="LineNr">25249 </span> 50/push-eax +<span id="L25250" class="LineNr">25250 </span> 53/push-ebx +<span id="L25251" class="LineNr">25251 </span> 56/push-esi +<span id="L25252" class="LineNr">25252 </span> 57/push-edi +<span id="L25253" class="LineNr">25253 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25254" class="LineNr">25254 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25255" class="LineNr">25255 </span><span class="Constant">$check-mu-populate-stmt:check-for-output</span>: +<span id="L25256" class="LineNr">25256 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25257" class="LineNr">25257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25258" class="LineNr">25258 </span> 3d/compare-eax-and 0/imm32 +<span id="L25259" class="LineNr">25259 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-too-many-outputs/disp32 +<span id="L25260" class="LineNr">25260 </span><span class="Constant">$check-mu-populate-stmt:get-target</span>: +<span id="L25261" class="LineNr">25261 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25262" class="LineNr">25262 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25263" class="LineNr">25263 </span> 89/<- %edi 0/r32/eax +<span id="L25264" class="LineNr">25264 </span> <span class="subxComment"># zero inouts</span> +<span id="L25265" class="LineNr">25265 </span> 3d/compare-eax-and 0/imm32 +<span id="L25266" class="LineNr">25266 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25267" class="LineNr">25267 </span><span class="Constant">$check-mu-populate-stmt:get-length</span>: +<span id="L25268" class="LineNr">25268 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L25269" class="LineNr">25269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25270" class="LineNr">25270 </span> 89/<- %esi 0/r32/eax +<span id="L25271" class="LineNr">25271 </span> <span class="subxComment"># 1 inout</span> +<span id="L25272" class="LineNr">25272 </span> 3d/compare-eax-and 0/imm32 +<span id="L25273" class="LineNr">25273 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25274" class="LineNr">25274 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L25275" class="LineNr">25275 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25276" class="LineNr">25276 </span> 3d/compare-eax-and 0/imm32 +<span id="L25277" class="LineNr">25277 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-incorrect-inouts/disp32 +<span id="L25278" class="LineNr">25278 </span><span class="Constant">$check-mu-populate-stmt:check-target-type</span>: +<span id="L25279" class="LineNr">25279 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25280" class="LineNr">25280 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25281" class="LineNr">25281 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25282" class="LineNr">25282 </span> 89/<- %ebx 0/r32/eax +<span id="L25283" class="LineNr">25283 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-deref</span>: +<span id="L25284" class="LineNr">25284 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25285" class="LineNr">25285 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25286" class="LineNr">25286 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25287" class="LineNr">25287 </span> { +<span id="L25288" class="LineNr">25288 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25289" class="LineNr">25289 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25290" class="LineNr">25290 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25291" class="LineNr">25291 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25292" class="LineNr">25292 </span> { +<span id="L25293" class="LineNr">25293 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25294" class="LineNr">25294 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25295" class="LineNr">25295 </span> } +<span id="L25296" class="LineNr">25296 </span> 89/<- %ebx 0/r32/eax +<span id="L25297" class="LineNr">25297 </span> } +<span id="L25298" class="LineNr">25298 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-addr</span>: +<span id="L25299" class="LineNr">25299 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25300" class="LineNr">25300 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25301" class="LineNr">25301 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25302" class="LineNr">25302 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25303" class="LineNr">25303 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25304" class="LineNr">25304 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25305" class="LineNr">25305 </span> 89/<- %ebx 0/r32/eax +<span id="L25306" class="LineNr">25306 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25307" class="LineNr">25307 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25308" class="LineNr">25308 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-handle</span>: +<span id="L25309" class="LineNr">25309 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25310" class="LineNr">25310 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25311" class="LineNr">25311 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25312" class="LineNr">25312 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25313" class="LineNr">25313 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25314" class="LineNr">25314 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> +<span id="L25315" class="LineNr">25315 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25316" class="LineNr">25316 </span> 89/<- %ebx 0/r32/eax +<span id="L25317" class="LineNr">25317 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25318" class="LineNr">25318 </span> 0f 85/jump-if-!= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25319" class="LineNr">25319 </span><span class="Constant">$check-mu-populate-stmt:check-target-type-array</span>: +<span id="L25320" class="LineNr">25320 </span> <span class="subxComment"># if target-type->right->right->left is not array, abort</span> +<span id="L25321" class="LineNr">25321 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25322" class="LineNr">25322 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L25323" class="LineNr">25323 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25324" class="LineNr">25324 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-target-type/disp32 +<span id="L25325" class="LineNr">25325 </span><span class="Constant">$check-mu-populate-stmt:check-length-type</span>: +<span id="L25326" class="LineNr">25326 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25327" class="LineNr">25327 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25328" class="LineNr">25328 </span> 89/<- %ebx 0/r32/eax +<span id="L25329" class="LineNr">25329 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L25330" class="LineNr">25330 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25331" class="LineNr">25331 </span> 75/jump-if-!= $check-mu-populate-stmt:end/disp8 +<span id="L25332" class="LineNr">25332 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L25333" class="LineNr">25333 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25334" class="LineNr">25334 </span> 0f 84/jump-if-= $check-mu-populate-stmt:error-invalid-length-type/disp32 +<span id="L25335" class="LineNr">25335 </span><span class="Constant">$check-mu-populate-stmt:end</span>: +<span id="L25336" class="LineNr">25336 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25337" class="LineNr">25337 </span> 5f/pop-to-edi +<span id="L25338" class="LineNr">25338 </span> 5e/pop-to-esi +<span id="L25339" class="LineNr">25339 </span> 5b/pop-to-ebx +<span id="L25340" class="LineNr">25340 </span> 58/pop-to-eax +<span id="L25341" class="LineNr">25341 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25342" class="LineNr">25342 </span> 89/<- %esp 5/r32/ebp +<span id="L25343" class="LineNr">25343 </span> 5d/pop-to-ebp +<span id="L25344" class="LineNr">25344 </span> c3/return +<span id="L25345" class="LineNr">25345 </span> +<span id="L25346" class="LineNr">25346 </span><span class="Constant">$check-mu-populate-stmt:error-incorrect-inouts</span>: +<span id="L25347" class="LineNr">25347 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25348" class="LineNr">25348 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25349" class="LineNr">25349 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25350" class="LineNr">25350 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25351" class="LineNr">25351 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate' must have two inouts\n"</span>) +<span id="L25352" class="LineNr">25352 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25353" class="LineNr">25353 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25354" class="LineNr">25354 </span> <span class="subxComment"># never gets here</span> +<span id="L25355" class="LineNr">25355 </span> +<span id="L25356" class="LineNr">25356 </span><span class="Constant">$check-mu-populate-stmt:error-too-many-outputs</span>: +<span id="L25357" class="LineNr">25357 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25358" class="LineNr">25358 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25359" class="LineNr">25359 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25360" class="LineNr">25360 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25361" class="LineNr">25361 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate' must not have any outputs\n"</span>) +<span id="L25362" class="LineNr">25362 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25363" class="LineNr">25363 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25364" class="LineNr">25364 </span> <span class="subxComment"># never gets here</span> +<span id="L25365" class="LineNr">25365 </span> +<span id="L25366" class="LineNr">25366 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-target-type</span>: +<span id="L25367" class="LineNr">25367 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25368" class="LineNr">25368 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25369" class="LineNr">25369 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25370" class="LineNr">25370 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25371" class="LineNr">25371 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: first inout '"</span>) +<span id="L25372" class="LineNr">25372 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25373" class="LineNr">25373 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25374" class="LineNr">25374 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25375" class="LineNr">25375 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have type (addr handle array ...)\n"</span>) +<span id="L25376" class="LineNr">25376 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25377" class="LineNr">25377 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25378" class="LineNr">25378 </span> <span class="subxComment"># never gets here</span> +<span id="L25379" class="LineNr">25379 </span> +<span id="L25380" class="LineNr">25380 </span><span class="Constant">$check-mu-populate-stmt:error-invalid-length-type</span>: +<span id="L25381" class="LineNr">25381 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25382" class="LineNr">25382 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25383" class="LineNr">25383 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25384" class="LineNr">25384 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25385" class="LineNr">25385 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate: second inout '"</span>) +<span id="L25386" class="LineNr">25386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25387" class="LineNr">25387 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25388" class="LineNr">25388 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25389" class="LineNr">25389 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L25390" class="LineNr">25390 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25391" class="LineNr">25391 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25392" class="LineNr">25392 </span> <span class="subxComment"># never gets here</span> +<span id="L25393" class="LineNr">25393 </span> +<span id="L25394" class="LineNr">25394 </span><span class="subxFunction">check-mu-populate-stream-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L25395" class="LineNr">25395 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25396" class="LineNr">25396 </span> 55/push-ebp +<span id="L25397" class="LineNr">25397 </span> 89/<- %ebp 4/r32/esp +<span id="L25398" class="LineNr">25398 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25399" class="LineNr">25399 </span> 50/push-eax +<span id="L25400" class="LineNr">25400 </span> 53/push-ebx +<span id="L25401" class="LineNr">25401 </span> 56/push-esi +<span id="L25402" class="LineNr">25402 </span> 57/push-edi +<span id="L25403" class="LineNr">25403 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25404" class="LineNr">25404 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25405" class="LineNr">25405 </span><span class="Constant">$check-mu-populate-stream-stmt:check-for-output</span>: +<span id="L25406" class="LineNr">25406 </span> <span class="subxComment"># if stmt->outputs abort</span> +<span id="L25407" class="LineNr">25407 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25408" class="LineNr">25408 </span> 3d/compare-eax-and 0/imm32 +<span id="L25409" class="LineNr">25409 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-too-many-outputs/disp32 +<span id="L25410" class="LineNr">25410 </span><span class="Constant">$check-mu-populate-stream-stmt:get-target</span>: +<span id="L25411" class="LineNr">25411 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts</span> +<span id="L25412" class="LineNr">25412 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25413" class="LineNr">25413 </span> 89/<- %edi 0/r32/eax +<span id="L25414" class="LineNr">25414 </span> <span class="subxComment"># zero inouts</span> +<span id="L25415" class="LineNr">25415 </span> 3d/compare-eax-and 0/imm32 +<span id="L25416" class="LineNr">25416 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25417" class="LineNr">25417 </span><span class="Constant">$check-mu-populate-stream-stmt:get-length</span>: +<span id="L25418" class="LineNr">25418 </span> <span class="subxComment"># var length/esi: (addr stmt-var) = dest->next</span> +<span id="L25419" class="LineNr">25419 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25420" class="LineNr">25420 </span> 89/<- %esi 0/r32/eax +<span id="L25421" class="LineNr">25421 </span> <span class="subxComment"># 1 inout</span> +<span id="L25422" class="LineNr">25422 </span> 3d/compare-eax-and 0/imm32 +<span id="L25423" class="LineNr">25423 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25424" class="LineNr">25424 </span> <span class="subxComment"># > 2 inouts</span> +<span id="L25425" class="LineNr">25425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25426" class="LineNr">25426 </span> 3d/compare-eax-and 0/imm32 +<span id="L25427" class="LineNr">25427 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-incorrect-inouts/disp32 +<span id="L25428" class="LineNr">25428 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type</span>: +<span id="L25429" class="LineNr">25429 </span> <span class="subxComment"># var target-type/ebx: (addr type-tree) = target->value->type</span> +<span id="L25430" class="LineNr">25430 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25431" class="LineNr">25431 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25432" class="LineNr">25432 </span> 89/<- %ebx 0/r32/eax +<span id="L25433" class="LineNr">25433 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-deref</span>: +<span id="L25434" class="LineNr">25434 </span> <span class="subxComment"># if (target->is-deref?) target-type = target-type->payload</span> +<span id="L25435" class="LineNr">25435 </span> 8b/-> *(edi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25436" class="LineNr">25436 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25437" class="LineNr">25437 </span> { +<span id="L25438" class="LineNr">25438 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25439" class="LineNr">25439 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25440" class="LineNr">25440 </span> <span class="subxComment"># if target-type->right is null, target-type = target-type->left</span> +<span id="L25441" class="LineNr">25441 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25442" class="LineNr">25442 </span> { +<span id="L25443" class="LineNr">25443 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25444" class="LineNr">25444 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25445" class="LineNr">25445 </span> } +<span id="L25446" class="LineNr">25446 </span> 89/<- %ebx 0/r32/eax +<span id="L25447" class="LineNr">25447 </span> } +<span id="L25448" class="LineNr">25448 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-addr</span>: +<span id="L25449" class="LineNr">25449 </span> <span class="subxComment"># if target-type is not addr, abort</span> +<span id="L25450" class="LineNr">25450 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25451" class="LineNr">25451 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25452" class="LineNr">25452 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25453" class="LineNr">25453 </span> <span class="subxComment"># if target-type->right is an atom, abort</span> +<span id="L25454" class="LineNr">25454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25455" class="LineNr">25455 </span> 89/<- %ebx 0/r32/eax +<span id="L25456" class="LineNr">25456 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25457" class="LineNr">25457 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25458" class="LineNr">25458 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-handle</span>: +<span id="L25459" class="LineNr">25459 </span> <span class="subxComment"># if target-type->right->left is not handle, abort</span> +<span id="L25460" class="LineNr">25460 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25461" class="LineNr">25461 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 4) <span class="subxComment"># handle => eax</span> +<span id="L25462" class="LineNr">25462 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25463" class="LineNr">25463 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25464" class="LineNr">25464 </span> <span class="subxComment"># if target-type->right->right is an atom, abort</span> +<span id="L25465" class="LineNr">25465 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25466" class="LineNr">25466 </span> 89/<- %ebx 0/r32/eax +<span id="L25467" class="LineNr">25467 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25468" class="LineNr">25468 </span> 0f 85/jump-if-!= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25469" class="LineNr">25469 </span><span class="Constant">$check-mu-populate-stream-stmt:check-target-type-stream</span>: +<span id="L25470" class="LineNr">25470 </span> <span class="subxComment"># if target-type->right->right->left is not stream, abort</span> +<span id="L25471" class="LineNr">25471 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25472" class="LineNr">25472 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25473" class="LineNr">25473 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25474" class="LineNr">25474 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-target-type/disp32 +<span id="L25475" class="LineNr">25475 </span><span class="Constant">$check-mu-populate-stream-stmt:check-length-type</span>: +<span id="L25476" class="LineNr">25476 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25477" class="LineNr">25477 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25478" class="LineNr">25478 </span> 89/<- %ebx 0/r32/eax +<span id="L25479" class="LineNr">25479 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 0) <span class="subxComment"># literal => eax</span> +<span id="L25480" class="LineNr">25480 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25481" class="LineNr">25481 </span> 75/jump-if-!= $check-mu-populate-stream-stmt:end/disp8 +<span id="L25482" class="LineNr">25482 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ebx 1) <span class="subxComment"># int => eax</span> +<span id="L25483" class="LineNr">25483 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25484" class="LineNr">25484 </span> 0f 84/jump-if-= $check-mu-populate-stream-stmt:error-invalid-length-type/disp32 +<span id="L25485" class="LineNr">25485 </span><span class="Constant">$check-mu-populate-stream-stmt:end</span>: +<span id="L25486" class="LineNr">25486 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25487" class="LineNr">25487 </span> 5f/pop-to-edi +<span id="L25488" class="LineNr">25488 </span> 5e/pop-to-esi +<span id="L25489" class="LineNr">25489 </span> 5b/pop-to-ebx +<span id="L25490" class="LineNr">25490 </span> 58/pop-to-eax +<span id="L25491" class="LineNr">25491 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25492" class="LineNr">25492 </span> 89/<- %esp 5/r32/ebp +<span id="L25493" class="LineNr">25493 </span> 5d/pop-to-ebp +<span id="L25494" class="LineNr">25494 </span> c3/return +<span id="L25495" class="LineNr">25495 </span> +<span id="L25496" class="LineNr">25496 </span><span class="Constant">$check-mu-populate-stream-stmt:error-incorrect-inouts</span>: +<span id="L25497" class="LineNr">25497 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25498" class="LineNr">25498 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25499" class="LineNr">25499 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25500" class="LineNr">25500 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25501" class="LineNr">25501 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate-stream' must have two inouts\n"</span>) +<span id="L25502" class="LineNr">25502 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25503" class="LineNr">25503 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25504" class="LineNr">25504 </span> <span class="subxComment"># never gets here</span> +<span id="L25505" class="LineNr">25505 </span> +<span id="L25506" class="LineNr">25506 </span><span class="Constant">$check-mu-populate-stream-stmt:error-too-many-outputs</span>: +<span id="L25507" class="LineNr">25507 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25508" class="LineNr">25508 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25509" class="LineNr">25509 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25510" class="LineNr">25510 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25511" class="LineNr">25511 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'populate-stream' must not have any outputs\n"</span>) +<span id="L25512" class="LineNr">25512 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25513" class="LineNr">25513 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25514" class="LineNr">25514 </span> <span class="subxComment"># never gets here</span> +<span id="L25515" class="LineNr">25515 </span> +<span id="L25516" class="LineNr">25516 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-target-type</span>: +<span id="L25517" class="LineNr">25517 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25518" class="LineNr">25518 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25519" class="LineNr">25519 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25520" class="LineNr">25520 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25521" class="LineNr">25521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: first inout '"</span>) +<span id="L25522" class="LineNr">25522 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25523" class="LineNr">25523 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25524" class="LineNr">25524 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25525" class="LineNr">25525 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must have type (addr handle stream ...)\n"</span>) +<span id="L25526" class="LineNr">25526 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25527" class="LineNr">25527 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25528" class="LineNr">25528 </span> <span class="subxComment"># never gets here</span> +<span id="L25529" class="LineNr">25529 </span> +<span id="L25530" class="LineNr">25530 </span><span class="Constant">$check-mu-populate-stream-stmt:error-invalid-length-type</span>: +<span id="L25531" class="LineNr">25531 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25532" class="LineNr">25532 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25533" class="LineNr">25533 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25534" class="LineNr">25534 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25535" class="LineNr">25535 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt populate-stream: second inout '"</span>) +<span id="L25536" class="LineNr">25536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25537" class="LineNr">25537 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25538" class="LineNr">25538 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25539" class="LineNr">25539 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int\n"</span>) +<span id="L25540" class="LineNr">25540 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25541" class="LineNr">25541 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25542" class="LineNr">25542 </span> <span class="subxComment"># never gets here</span> +<span id="L25543" class="LineNr">25543 </span> +<span id="L25544" class="LineNr">25544 </span><span class="subxFunction">check-mu-read-from-stream-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L25545" class="LineNr">25545 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25546" class="LineNr">25546 </span> 55/push-ebp +<span id="L25547" class="LineNr">25547 </span> 89/<- %ebp 4/r32/esp +<span id="L25548" class="LineNr">25548 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25549" class="LineNr">25549 </span> 50/push-eax +<span id="L25550" class="LineNr">25550 </span> 51/push-ecx +<span id="L25551" class="LineNr">25551 </span> 52/push-edx +<span id="L25552" class="LineNr">25552 </span> 53/push-ebx +<span id="L25553" class="LineNr">25553 </span> 56/push-esi +<span id="L25554" class="LineNr">25554 </span> 57/push-edi +<span id="L25555" class="LineNr">25555 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25556" class="LineNr">25556 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25557" class="LineNr">25557 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L25558" class="LineNr">25558 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L25559" class="LineNr">25559 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25560" class="LineNr">25560 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-no-inouts</span>: +<span id="L25561" class="LineNr">25561 </span> 3d/compare-eax-and 0/imm32 +<span id="L25562" class="LineNr">25562 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L25563" class="LineNr">25563 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25564" class="LineNr">25564 </span> 89/<- %ecx 0/r32/eax +<span id="L25565" class="LineNr">25565 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L25566" class="LineNr">25566 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L25567" class="LineNr">25567 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25568" class="LineNr">25568 </span> 89/<- %ebx 0/r32/eax +<span id="L25569" class="LineNr">25569 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-compound</span>: +<span id="L25570" class="LineNr">25570 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L25571" class="LineNr">25571 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25572" class="LineNr">25572 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25573" class="LineNr">25573 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr</span>: +<span id="L25574" class="LineNr">25574 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L25575" class="LineNr">25575 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25576" class="LineNr">25576 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25577" class="LineNr">25577 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25578" class="LineNr">25578 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25579" class="LineNr">25579 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L25580" class="LineNr">25580 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L25581" class="LineNr">25581 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25582" class="LineNr">25582 </span> 89/<- %ebx 0/r32/eax +<span id="L25583" class="LineNr">25583 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L25584" class="LineNr">25584 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25585" class="LineNr">25585 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25586" class="LineNr">25586 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25587" class="LineNr">25587 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-base-type/disp32 +<span id="L25588" class="LineNr">25588 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L25589" class="LineNr">25589 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L25590" class="LineNr">25590 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25591" class="LineNr">25591 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25592" class="LineNr">25592 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-single-inout</span>: +<span id="L25593" class="LineNr">25593 </span> 3d/compare-eax-and 0/imm32 +<span id="L25594" class="LineNr">25594 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-too-few-inouts/disp32 +<span id="L25595" class="LineNr">25595 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25596" class="LineNr">25596 </span> 89/<- %ecx 0/r32/eax +<span id="L25597" class="LineNr">25597 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L25598" class="LineNr">25598 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25599" class="LineNr">25599 </span> 89/<- %edx 0/r32/eax +<span id="L25600" class="LineNr">25600 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L25601" class="LineNr">25601 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-is-compound</span>: +<span id="L25602" class="LineNr">25602 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25603" class="LineNr">25603 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L25604" class="LineNr">25604 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-target-type</span>: +<span id="L25605" class="LineNr">25605 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L25606" class="LineNr">25606 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25607" class="LineNr">25607 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25608" class="LineNr">25608 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25609" class="LineNr">25609 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-target-type-not-address/disp32 +<span id="L25610" class="LineNr">25610 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L25611" class="LineNr">25611 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25612" class="LineNr">25612 </span> 89/<- %ebx 0/r32/eax +<span id="L25613" class="LineNr">25613 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L25614" class="LineNr">25614 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L25615" class="LineNr">25615 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25616" class="LineNr">25616 </span> 0f 84/jump-if-= $check-mu-read-from-stream-stmt:error-invalid-target-type/disp32 +<span id="L25617" class="LineNr">25617 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-too-many-inouts</span>: +<span id="L25618" class="LineNr">25618 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L25619" class="LineNr">25619 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25620" class="LineNr">25620 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25621" class="LineNr">25621 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25622" class="LineNr">25622 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25623" class="LineNr">25623 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-too-many-inouts/disp32 +<span id="L25624" class="LineNr">25624 </span><span class="Constant">$check-mu-read-from-stream-stmt:check-unexpected-output</span>: +<span id="L25625" class="LineNr">25625 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L25626" class="LineNr">25626 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25627" class="LineNr">25627 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25628" class="LineNr">25628 </span> 0f 85/jump-if-!= $check-mu-read-from-stream-stmt:error-unexpected-output/disp32 +<span id="L25629" class="LineNr">25629 </span><span class="Constant">$check-mu-read-from-stream-stmt:end</span>: +<span id="L25630" class="LineNr">25630 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25631" class="LineNr">25631 </span> 5f/pop-to-edi +<span id="L25632" class="LineNr">25632 </span> 5e/pop-to-esi +<span id="L25633" class="LineNr">25633 </span> 5b/pop-to-ebx +<span id="L25634" class="LineNr">25634 </span> 5a/pop-to-edx +<span id="L25635" class="LineNr">25635 </span> 59/pop-to-ecx +<span id="L25636" class="LineNr">25636 </span> 58/pop-to-eax +<span id="L25637" class="LineNr">25637 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25638" class="LineNr">25638 </span> 89/<- %esp 5/r32/ebp +<span id="L25639" class="LineNr">25639 </span> 5d/pop-to-ebp +<span id="L25640" class="LineNr">25640 </span> c3/return +<span id="L25641" class="LineNr">25641 </span> +<span id="L25642" class="LineNr">25642 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-base-type</span>: +<span id="L25643" class="LineNr">25643 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25644" class="LineNr">25644 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25645" class="LineNr">25645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25646" class="LineNr">25646 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25647" class="LineNr">25647 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: var '"</span>) +<span id="L25648" class="LineNr">25648 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25649" class="LineNr">25649 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25650" class="LineNr">25650 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr to a stream\n"</span>) +<span id="L25651" class="LineNr">25651 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25652" class="LineNr">25652 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25653" class="LineNr">25653 </span> <span class="subxComment"># never gets here</span> +<span id="L25654" class="LineNr">25654 </span> +<span id="L25655" class="LineNr">25655 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-few-inouts</span>: +<span id="L25656" class="LineNr">25656 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25657" class="LineNr">25657 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25658" class="LineNr">25658 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25659" class="LineNr">25659 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25660" class="LineNr">25660 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too few inouts (2 required)\n"</span>) +<span id="L25661" class="LineNr">25661 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25662" class="LineNr">25662 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25663" class="LineNr">25663 </span> <span class="subxComment"># never gets here</span> +<span id="L25664" class="LineNr">25664 </span> +<span id="L25665" class="LineNr">25665 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-target-type-not-address</span>: +<span id="L25666" class="LineNr">25666 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25667" class="LineNr">25667 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25668" class="LineNr">25668 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25669" class="LineNr">25669 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25670" class="LineNr">25670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: target '"</span>) +<span id="L25671" class="LineNr">25671 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25672" class="LineNr">25672 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25673" class="LineNr">25673 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L25674" class="LineNr">25674 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25675" class="LineNr">25675 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25676" class="LineNr">25676 </span> <span class="subxComment"># never gets here</span> +<span id="L25677" class="LineNr">25677 </span> +<span id="L25678" class="LineNr">25678 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-invalid-target-type</span>: +<span id="L25679" class="LineNr">25679 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25680" class="LineNr">25680 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25681" class="LineNr">25681 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25682" class="LineNr">25682 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25683" class="LineNr">25683 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: second inout '"</span>) +<span id="L25684" class="LineNr">25684 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25685" class="LineNr">25685 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25686" class="LineNr">25686 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) +<span id="L25687" class="LineNr">25687 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25688" class="LineNr">25688 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25689" class="LineNr">25689 </span> <span class="subxComment"># never gets here</span> +<span id="L25690" class="LineNr">25690 </span> +<span id="L25691" class="LineNr">25691 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-too-many-inouts</span>: +<span id="L25692" class="LineNr">25692 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25693" class="LineNr">25693 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25694" class="LineNr">25694 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25695" class="LineNr">25695 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25696" class="LineNr">25696 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: too many inouts (2 required)\n"</span>) +<span id="L25697" class="LineNr">25697 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25698" class="LineNr">25698 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25699" class="LineNr">25699 </span> <span class="subxComment"># never gets here</span> +<span id="L25700" class="LineNr">25700 </span> +<span id="L25701" class="LineNr">25701 </span><span class="Constant">$check-mu-read-from-stream-stmt:error-unexpected-output</span>: +<span id="L25702" class="LineNr">25702 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25703" class="LineNr">25703 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25704" class="LineNr">25704 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25705" class="LineNr">25705 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25706" class="LineNr">25706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L107'>read-from-stream</a>: unexpected output\n"</span>) +<span id="L25707" class="LineNr">25707 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25708" class="LineNr">25708 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25709" class="LineNr">25709 </span> <span class="subxComment"># never gets here</span> +<span id="L25710" class="LineNr">25710 </span> +<span id="L25711" class="LineNr">25711 </span><span class="subxFunction">check-mu-write-to-stream-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L25712" class="LineNr">25712 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25713" class="LineNr">25713 </span> 55/push-ebp +<span id="L25714" class="LineNr">25714 </span> 89/<- %ebp 4/r32/esp +<span id="L25715" class="LineNr">25715 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25716" class="LineNr">25716 </span> 50/push-eax +<span id="L25717" class="LineNr">25717 </span> 51/push-ecx +<span id="L25718" class="LineNr">25718 </span> 52/push-edx +<span id="L25719" class="LineNr">25719 </span> 53/push-ebx +<span id="L25720" class="LineNr">25720 </span> 56/push-esi +<span id="L25721" class="LineNr">25721 </span> 57/push-edi +<span id="L25722" class="LineNr">25722 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25723" class="LineNr">25723 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25724" class="LineNr">25724 </span> <span class="subxH1Comment"># - check for 0 inouts</span> +<span id="L25725" class="LineNr">25725 </span> <span class="subxComment"># var base/ecx: (addr var) = stmt->inouts->value</span> +<span id="L25726" class="LineNr">25726 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25727" class="LineNr">25727 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-no-inouts</span>: +<span id="L25728" class="LineNr">25728 </span> 3d/compare-eax-and 0/imm32 +<span id="L25729" class="LineNr">25729 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L25730" class="LineNr">25730 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25731" class="LineNr">25731 </span> 89/<- %ecx 0/r32/eax +<span id="L25732" class="LineNr">25732 </span> <span class="subxH1Comment"># - check base type is (addr stream T)</span> +<span id="L25733" class="LineNr">25733 </span> <span class="subxComment"># var base-type/ebx: (addr type-tree) = lookup(base->type)</span> +<span id="L25734" class="LineNr">25734 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25735" class="LineNr">25735 </span> 89/<- %ebx 0/r32/eax +<span id="L25736" class="LineNr">25736 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-compound</span>: +<span id="L25737" class="LineNr">25737 </span> <span class="subxComment"># if base-type is an atom, abort</span> +<span id="L25738" class="LineNr">25738 </span> 81 7/subop/compare *ebx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25739" class="LineNr">25739 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25740" class="LineNr">25740 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr</span>: +<span id="L25741" class="LineNr">25741 </span> <span class="subxComment"># if type->left not addr, abort</span> +<span id="L25742" class="LineNr">25742 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25743" class="LineNr">25743 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25744" class="LineNr">25744 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25745" class="LineNr">25745 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25746" class="LineNr">25746 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-base-is-addr-to-stream</span>: +<span id="L25747" class="LineNr">25747 </span> <span class="subxComment"># base-type = base-type->right</span> +<span id="L25748" class="LineNr">25748 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25749" class="LineNr">25749 </span> 89/<- %ebx 0/r32/eax +<span id="L25750" class="LineNr">25750 </span> <span class="subxComment"># ensure base-type->left == stream</span> +<span id="L25751" class="LineNr">25751 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25752" class="LineNr">25752 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0xb) <span class="subxComment"># stream => eax</span> +<span id="L25753" class="LineNr">25753 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25754" class="LineNr">25754 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-base-type/disp32 +<span id="L25755" class="LineNr">25755 </span> <span class="subxH1Comment"># - check target type is (addr T)</span> +<span id="L25756" class="LineNr">25756 </span> <span class="subxComment"># var target/ecx: (addr stmt-var) = stmt->inouts->next->value</span> +<span id="L25757" class="LineNr">25757 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25758" class="LineNr">25758 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25759" class="LineNr">25759 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-single-inout</span>: +<span id="L25760" class="LineNr">25760 </span> 3d/compare-eax-and 0/imm32 +<span id="L25761" class="LineNr">25761 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-too-few-inouts/disp32 +<span id="L25762" class="LineNr">25762 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25763" class="LineNr">25763 </span> 89/<- %ecx 0/r32/eax +<span id="L25764" class="LineNr">25764 </span> <span class="subxComment"># var target-type/edx: (addr type-tree)</span> +<span id="L25765" class="LineNr">25765 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25766" class="LineNr">25766 </span> 89/<- %edx 0/r32/eax +<span id="L25767" class="LineNr">25767 </span> <span class="subxComment"># if target-type is an atom, it must be a literal or int</span> +<span id="L25768" class="LineNr">25768 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-is-compound</span>: +<span id="L25769" class="LineNr">25769 </span> 81 7/subop/compare *edx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L25770" class="LineNr">25770 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L25771" class="LineNr">25771 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-target-type</span>: +<span id="L25772" class="LineNr">25772 </span> <span class="subxComment"># target type must start with (addr ...)</span> +<span id="L25773" class="LineNr">25773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25774" class="LineNr">25774 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L25775" class="LineNr">25775 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25776" class="LineNr">25776 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-target-type-not-address/disp32 +<span id="L25777" class="LineNr">25777 </span> <span class="subxComment"># if tail(base-type) != tail(target-type) abort</span> +<span id="L25778" class="LineNr">25778 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L25779" class="LineNr">25779 </span> 89/<- %ebx 0/r32/eax +<span id="L25780" class="LineNr">25780 </span> (<a href='mu.subx.html#L26819'>type-tail</a> %edx) <span class="subxComment"># => eax</span> +<span id="L25781" class="LineNr">25781 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L25782" class="LineNr">25782 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25783" class="LineNr">25783 </span> 0f 84/jump-if-= $check-mu-write-to-stream-stmt:error-invalid-target-type/disp32 +<span id="L25784" class="LineNr">25784 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-too-many-inouts</span>: +<span id="L25785" class="LineNr">25785 </span> <span class="subxH1Comment"># - check for too many inouts</span> +<span id="L25786" class="LineNr">25786 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25787" class="LineNr">25787 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25788" class="LineNr">25788 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25789" class="LineNr">25789 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25790" class="LineNr">25790 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-too-many-inouts/disp32 +<span id="L25791" class="LineNr">25791 </span><span class="Constant">$check-mu-write-to-stream-stmt:check-unexpected-output</span>: +<span id="L25792" class="LineNr">25792 </span> <span class="subxH1Comment"># - check for any output</span> +<span id="L25793" class="LineNr">25793 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25794" class="LineNr">25794 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25795" class="LineNr">25795 </span> 0f 85/jump-if-!= $check-mu-write-to-stream-stmt:error-unexpected-output/disp32 +<span id="L25796" class="LineNr">25796 </span><span class="Constant">$check-mu-write-to-stream-stmt:end</span>: +<span id="L25797" class="LineNr">25797 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25798" class="LineNr">25798 </span> 5f/pop-to-edi +<span id="L25799" class="LineNr">25799 </span> 5e/pop-to-esi +<span id="L25800" class="LineNr">25800 </span> 5b/pop-to-ebx +<span id="L25801" class="LineNr">25801 </span> 5a/pop-to-edx +<span id="L25802" class="LineNr">25802 </span> 59/pop-to-ecx +<span id="L25803" class="LineNr">25803 </span> 58/pop-to-eax +<span id="L25804" class="LineNr">25804 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25805" class="LineNr">25805 </span> 89/<- %esp 5/r32/ebp +<span id="L25806" class="LineNr">25806 </span> 5d/pop-to-ebp +<span id="L25807" class="LineNr">25807 </span> c3/return +<span id="L25808" class="LineNr">25808 </span> +<span id="L25809" class="LineNr">25809 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-base-type</span>: +<span id="L25810" class="LineNr">25810 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25811" class="LineNr">25811 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25812" class="LineNr">25812 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25813" class="LineNr">25813 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25814" class="LineNr">25814 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: var '"</span>) +<span id="L25815" class="LineNr">25815 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25816" class="LineNr">25816 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25817" class="LineNr">25817 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr to a stream\n"</span>) +<span id="L25818" class="LineNr">25818 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25819" class="LineNr">25819 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25820" class="LineNr">25820 </span> <span class="subxComment"># never gets here</span> +<span id="L25821" class="LineNr">25821 </span> +<span id="L25822" class="LineNr">25822 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-few-inouts</span>: +<span id="L25823" class="LineNr">25823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25824" class="LineNr">25824 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25825" class="LineNr">25825 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25826" class="LineNr">25826 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25827" class="LineNr">25827 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too few inouts (2 required)\n"</span>) +<span id="L25828" class="LineNr">25828 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25829" class="LineNr">25829 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25830" class="LineNr">25830 </span> <span class="subxComment"># never gets here</span> +<span id="L25831" class="LineNr">25831 </span> +<span id="L25832" class="LineNr">25832 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-target-type-not-address</span>: +<span id="L25833" class="LineNr">25833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25834" class="LineNr">25834 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25835" class="LineNr">25835 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25836" class="LineNr">25836 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25837" class="LineNr">25837 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: target '"</span>) +<span id="L25838" class="LineNr">25838 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25839" class="LineNr">25839 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25840" class="LineNr">25840 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an addr\n"</span>) +<span id="L25841" class="LineNr">25841 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25842" class="LineNr">25842 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25843" class="LineNr">25843 </span> <span class="subxComment"># never gets here</span> +<span id="L25844" class="LineNr">25844 </span> +<span id="L25845" class="LineNr">25845 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-invalid-target-type</span>: +<span id="L25846" class="LineNr">25846 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25847" class="LineNr">25847 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25848" class="LineNr">25848 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25849" class="LineNr">25849 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25850" class="LineNr">25850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: second inout '"</span>) +<span id="L25851" class="LineNr">25851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L25852" class="LineNr">25852 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25853" class="LineNr">25853 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' does not have the right type\n"</span>) +<span id="L25854" class="LineNr">25854 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25855" class="LineNr">25855 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25856" class="LineNr">25856 </span> <span class="subxComment"># never gets here</span> +<span id="L25857" class="LineNr">25857 </span> +<span id="L25858" class="LineNr">25858 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-too-many-inouts</span>: +<span id="L25859" class="LineNr">25859 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25860" class="LineNr">25860 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25861" class="LineNr">25861 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25862" class="LineNr">25862 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25863" class="LineNr">25863 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: too many inouts (2 required)\n"</span>) +<span id="L25864" class="LineNr">25864 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25865" class="LineNr">25865 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25866" class="LineNr">25866 </span> <span class="subxComment"># never gets here</span> +<span id="L25867" class="LineNr">25867 </span> +<span id="L25868" class="LineNr">25868 </span><span class="Constant">$check-mu-write-to-stream-stmt:error-unexpected-output</span>: +<span id="L25869" class="LineNr">25869 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25870" class="LineNr">25870 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25871" class="LineNr">25871 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25872" class="LineNr">25872 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25873" class="LineNr">25873 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt <a href='309stream.subx.html#L54'>write-to-stream</a>: unexpected output\n"</span>) +<span id="L25874" class="LineNr">25874 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25875" class="LineNr">25875 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L25876" class="LineNr">25876 </span> <span class="subxComment"># never gets here</span> +<span id="L25877" class="LineNr">25877 </span> +<span id="L25878" class="LineNr">25878 </span><span class="subxFunction">check-mu-convert-stmt</span>: <span class="subxComment"># stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L25879" class="LineNr">25879 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L25880" class="LineNr">25880 </span> 55/push-ebp +<span id="L25881" class="LineNr">25881 </span> 89/<- %ebp 4/r32/esp +<span id="L25882" class="LineNr">25882 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L25883" class="LineNr">25883 </span> 50/push-eax +<span id="L25884" class="LineNr">25884 </span> 51/push-ecx +<span id="L25885" class="LineNr">25885 </span> 52/push-edx +<span id="L25886" class="LineNr">25886 </span> 56/push-esi +<span id="L25887" class="LineNr">25887 </span> 57/push-edi +<span id="L25888" class="LineNr">25888 </span><span class="Constant">$check-mu-convert-stmt:get-output</span>: +<span id="L25889" class="LineNr">25889 </span> <span class="subxComment"># esi = stmt</span> +<span id="L25890" class="LineNr">25890 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L25891" class="LineNr">25891 </span> <span class="subxComment"># var output/edi: (addr stmt-var) = stmt->outputs</span> +<span id="L25892" class="LineNr">25892 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L25893" class="LineNr">25893 </span> 89/<- %edi 0/r32/eax +<span id="L25894" class="LineNr">25894 </span> <span class="subxComment"># zero outputs</span> +<span id="L25895" class="LineNr">25895 </span> 3d/compare-eax-and 0/imm32 +<span id="L25896" class="LineNr">25896 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-output/disp32 +<span id="L25897" class="LineNr">25897 </span> <span class="subxComment"># > 1 output</span> +<span id="L25898" class="LineNr">25898 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25899" class="LineNr">25899 </span> 3d/compare-eax-and 0/imm32 +<span id="L25900" class="LineNr">25900 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-outputs/disp32 +<span id="L25901" class="LineNr">25901 </span><span class="Constant">$check-mu-convert-stmt:get-inout</span>: +<span id="L25902" class="LineNr">25902 </span> <span class="subxComment"># var inout/esi: (addr stmt-var) = stmt->inouts</span> +<span id="L25903" class="LineNr">25903 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L25904" class="LineNr">25904 </span> 89/<- %esi 0/r32/eax +<span id="L25905" class="LineNr">25905 </span> <span class="subxComment"># zero inouts</span> +<span id="L25906" class="LineNr">25906 </span> 3d/compare-eax-and 0/imm32 +<span id="L25907" class="LineNr">25907 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-no-inout/disp32 +<span id="L25908" class="LineNr">25908 </span> <span class="subxComment"># > 1 inout</span> +<span id="L25909" class="LineNr">25909 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L25910" class="LineNr">25910 </span> 3d/compare-eax-and 0/imm32 +<span id="L25911" class="LineNr">25911 </span> 0f 85/jump-if-!= $check-mu-convert-stmt:error-too-many-inouts/disp32 +<span id="L25912" class="LineNr">25912 </span><span class="Constant">$check-mu-convert-stmt:types</span>: +<span id="L25913" class="LineNr">25913 </span> <span class="subxComment"># var inout-type/ecx: (addr type-tree) = inout->value->type</span> +<span id="L25914" class="LineNr">25914 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25915" class="LineNr">25915 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25916" class="LineNr">25916 </span> 89/<- %ecx 0/r32/eax +<span id="L25917" class="LineNr">25917 </span> <span class="subxComment"># if (inout->is-deref?) inout-type = inout-type->payload</span> +<span id="L25918" class="LineNr">25918 </span> 8b/-> *(esi+0x10) 0/r32/eax <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L25919" class="LineNr">25919 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25920" class="LineNr">25920 </span> { +<span id="L25921" class="LineNr">25921 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25922" class="LineNr">25922 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L25923" class="LineNr">25923 </span> <span class="subxComment"># if inout-type->right is null, t = inout-type->left</span> +<span id="L25924" class="LineNr">25924 </span> 81 7/subop/compare *(eax+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L25925" class="LineNr">25925 </span> { +<span id="L25926" class="LineNr">25926 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25927" class="LineNr">25927 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L25928" class="LineNr">25928 </span> } +<span id="L25929" class="LineNr">25929 </span> 89/<- %ecx 0/r32/eax +<span id="L25930" class="LineNr">25930 </span> } +<span id="L25931" class="LineNr">25931 </span> <span class="subxComment"># if input is not int or float, abort</span> +<span id="L25932" class="LineNr">25932 </span> { +<span id="L25933" class="LineNr">25933 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> +<span id="L25934" class="LineNr">25934 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25935" class="LineNr">25935 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25936" class="LineNr">25936 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25937" class="LineNr">25937 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25938" class="LineNr">25938 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25939" class="LineNr">25939 </span> e9/jump $check-mu-convert-stmt:error-invalid-inout-type/disp32 +<span id="L25940" class="LineNr">25940 </span> } +<span id="L25941" class="LineNr">25941 </span> <span class="subxComment"># if output not in register, abort</span> +<span id="L25942" class="LineNr">25942 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25943" class="LineNr">25943 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L25944" class="LineNr">25944 </span> 3d/compare-eax-and 0/imm32 +<span id="L25945" class="LineNr">25945 </span> 0f 84/jump-if-= $check-mu-convert-stmt:error-output-not-in-register/disp32 +<span id="L25946" class="LineNr">25946 </span> <span class="subxComment"># var output-type/edx: (addr type-tree) = output->value->type</span> +<span id="L25947" class="LineNr">25947 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L25948" class="LineNr">25948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L25949" class="LineNr">25949 </span> 89/<- %edx 0/r32/eax +<span id="L25950" class="LineNr">25950 </span> <span class="subxComment"># if output is not int or float, abort</span> +<span id="L25951" class="LineNr">25951 </span> { +<span id="L25952" class="LineNr">25952 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L25953" class="LineNr">25953 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25954" class="LineNr">25954 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25955" class="LineNr">25955 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25956" class="LineNr">25956 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25957" class="LineNr">25957 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L25958" class="LineNr">25958 </span> e9/jump $check-mu-convert-stmt:error-invalid-output-type/disp32 +<span id="L25959" class="LineNr">25959 </span> } +<span id="L25960" class="LineNr">25960 </span> <span class="subxComment"># if both are ints, abort</span> +<span id="L25961" class="LineNr">25961 </span> { +<span id="L25962" class="LineNr">25962 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 1) <span class="subxComment"># int => eax</span> +<span id="L25963" class="LineNr">25963 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25964" class="LineNr">25964 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25965" class="LineNr">25965 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ecx 1) <span class="subxComment"># int => eax</span> +<span id="L25966" class="LineNr">25966 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25967" class="LineNr">25967 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25968" class="LineNr">25968 </span> e9/jump $check-mu-convert-stmt:error-int-to-int/disp32 +<span id="L25969" class="LineNr">25969 </span> } +<span id="L25970" class="LineNr">25970 </span> <span class="subxComment"># if both are floats, abort</span> +<span id="L25971" class="LineNr">25971 </span> { +<span id="L25972" class="LineNr">25972 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %edx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25973" class="LineNr">25973 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25974" class="LineNr">25974 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25975" class="LineNr">25975 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %ecx 0xf) <span class="subxComment"># float => eax</span> +<span id="L25976" class="LineNr">25976 </span> 3d/compare-eax-and 0/imm32/false +<span id="L25977" class="LineNr">25977 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L25978" class="LineNr">25978 </span> e9/jump $check-mu-convert-stmt:error-float-to-float/disp32 +<span id="L25979" class="LineNr">25979 </span> } +<span id="L25980" class="LineNr">25980 </span><span class="Constant">$check-mu-convert-stmt:end</span>: +<span id="L25981" class="LineNr">25981 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L25982" class="LineNr">25982 </span> 5f/pop-to-edi +<span id="L25983" class="LineNr">25983 </span> 5e/pop-to-esi +<span id="L25984" class="LineNr">25984 </span> 5a/pop-to-edx +<span id="L25985" class="LineNr">25985 </span> 59/pop-to-ecx +<span id="L25986" class="LineNr">25986 </span> 58/pop-to-eax +<span id="L25987" class="LineNr">25987 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L25988" class="LineNr">25988 </span> 89/<- %esp 5/r32/ebp +<span id="L25989" class="LineNr">25989 </span> 5d/pop-to-ebp +<span id="L25990" class="LineNr">25990 </span> c3/return +<span id="L25991" class="LineNr">25991 </span> +<span id="L25992" class="LineNr">25992 </span><span class="Constant">$check-mu-convert-stmt:error-no-inout</span>: +<span id="L25993" class="LineNr">25993 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L25994" class="LineNr">25994 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L25995" class="LineNr">25995 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L25996" class="LineNr">25996 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L25997" class="LineNr">25997 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' expects an inout\n"</span>) +<span id="L25998" class="LineNr">25998 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L25999" class="LineNr">25999 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26000" class="LineNr">26000 </span> <span class="subxComment"># never gets here</span> +<span id="L26001" class="LineNr">26001 </span> +<span id="L26002" class="LineNr">26002 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-inouts</span>: +<span id="L26003" class="LineNr">26003 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26004" class="LineNr">26004 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26005" class="LineNr">26005 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26006" class="LineNr">26006 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26007" class="LineNr">26007 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' must have just one inout\n"</span>) +<span id="L26008" class="LineNr">26008 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26009" class="LineNr">26009 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26010" class="LineNr">26010 </span> <span class="subxComment"># never gets here</span> +<span id="L26011" class="LineNr">26011 </span> +<span id="L26012" class="LineNr">26012 </span><span class="Constant">$check-mu-convert-stmt:error-no-output</span>: +<span id="L26013" class="LineNr">26013 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26014" class="LineNr">26014 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26015" class="LineNr">26015 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26016" class="LineNr">26016 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26017" class="LineNr">26017 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' expects an output\n"</span>) +<span id="L26018" class="LineNr">26018 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26019" class="LineNr">26019 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26020" class="LineNr">26020 </span> <span class="subxComment"># never gets here</span> +<span id="L26021" class="LineNr">26021 </span> +<span id="L26022" class="LineNr">26022 </span><span class="Constant">$check-mu-convert-stmt:error-output-not-in-register</span>: +<span id="L26023" class="LineNr">26023 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26024" class="LineNr">26024 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26025" class="LineNr">26025 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26026" class="LineNr">26026 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26027" class="LineNr">26027 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L26028" class="LineNr">26028 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26029" class="LineNr">26029 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26030" class="LineNr">26030 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26031" class="LineNr">26031 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' not in a register\n"</span>) +<span id="L26032" class="LineNr">26032 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26033" class="LineNr">26033 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26034" class="LineNr">26034 </span> <span class="subxComment"># never gets here</span> +<span id="L26035" class="LineNr">26035 </span> +<span id="L26036" class="LineNr">26036 </span><span class="Constant">$check-mu-convert-stmt:error-too-many-outputs</span>: +<span id="L26037" class="LineNr">26037 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26038" class="LineNr">26038 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26039" class="LineNr">26039 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26040" class="LineNr">26040 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26041" class="LineNr">26041 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt 'convert' must have just one output\n"</span>) +<span id="L26042" class="LineNr">26042 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26043" class="LineNr">26043 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26044" class="LineNr">26044 </span> <span class="subxComment"># never gets here</span> +<span id="L26045" class="LineNr">26045 </span> +<span id="L26046" class="LineNr">26046 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-inout-type</span>: +<span id="L26047" class="LineNr">26047 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26048" class="LineNr">26048 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26049" class="LineNr">26049 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26050" class="LineNr">26050 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26051" class="LineNr">26051 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: inout '"</span>) +<span id="L26052" class="LineNr">26052 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26053" class="LineNr">26053 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26054" class="LineNr">26054 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26055" class="LineNr">26055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or float\n"</span>) +<span id="L26056" class="LineNr">26056 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26057" class="LineNr">26057 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26058" class="LineNr">26058 </span> <span class="subxComment"># never gets here</span> +<span id="L26059" class="LineNr">26059 </span> +<span id="L26060" class="LineNr">26060 </span><span class="Constant">$check-mu-convert-stmt:error-invalid-output-type</span>: +<span id="L26061" class="LineNr">26061 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26062" class="LineNr">26062 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26063" class="LineNr">26063 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26064" class="LineNr">26064 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26065" class="LineNr">26065 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: output '"</span>) +<span id="L26066" class="LineNr">26066 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26067" class="LineNr">26067 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26068" class="LineNr">26068 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26069" class="LineNr">26069 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"' must be an int or float\n"</span>) +<span id="L26070" class="LineNr">26070 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26071" class="LineNr">26071 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26072" class="LineNr">26072 </span> <span class="subxComment"># never gets here</span> +<span id="L26073" class="LineNr">26073 </span> +<span id="L26074" class="LineNr">26074 </span><span class="Constant">$check-mu-convert-stmt:error-int-to-int</span>: +<span id="L26075" class="LineNr">26075 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26076" class="LineNr">26076 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26077" class="LineNr">26077 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26078" class="LineNr">26078 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26079" class="LineNr">26079 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: no need to convert int to int\n"</span>) +<span id="L26080" class="LineNr">26080 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26081" class="LineNr">26081 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26082" class="LineNr">26082 </span> <span class="subxComment"># never gets here</span> +<span id="L26083" class="LineNr">26083 </span> +<span id="L26084" class="LineNr">26084 </span><span class="Constant">$check-mu-convert-stmt:error-float-to-float</span>: +<span id="L26085" class="LineNr">26085 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"fn "</span>) +<span id="L26086" class="LineNr">26086 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L26087" class="LineNr">26087 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26088" class="LineNr">26088 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) %eax) +<span id="L26089" class="LineNr">26089 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">": stmt convert: no need to convert float to float\n"</span>) +<span id="L26090" class="LineNr">26090 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L26091" class="LineNr">26091 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L26092" class="LineNr">26092 </span> <span class="subxComment"># never gets here</span> +<span id="L26093" class="LineNr">26093 </span> +<span id="L26094" class="LineNr">26094 </span><span class="subxFunction">check-mu-call</span>: <span class="subxComment"># stmt: (addr stmt), callee: (addr function), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L26095" class="LineNr">26095 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26096" class="LineNr">26096 </span> 55/push-ebp +<span id="L26097" class="LineNr">26097 </span> 89/<- %ebp 4/r32/esp +<span id="L26098" class="LineNr">26098 </span> <span class="subxComment"># var type-parameters: (addr table (handle array byte) (addr type-tree) 8)</span> +<span id="L26099" class="LineNr">26099 </span> 68/push 0/imm32 +<span id="L26100" class="LineNr">26100 </span> <span class="subxComment"># var type-parameters-storage: (table (handle array byte) (addr type-tree) 8)</span> +<span id="L26101" class="LineNr">26101 </span> 81 5/subop/subtract %esp 0x60/imm32 +<span id="L26102" class="LineNr">26102 </span> 68/push 0x60/imm32/size +<span id="L26103" class="LineNr">26103 </span> 68/push 0/imm32/read +<span id="L26104" class="LineNr">26104 </span> 68/push 0/imm32/write +<span id="L26105" class="LineNr">26105 </span> <span class="subxComment"># save a pointer to type-parameters-storage at type-parameters</span> +<span id="L26106" class="LineNr">26106 </span> 89/<- *(ebp-4) 4/r32/esp +<span id="L26107" class="LineNr">26107 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> *(ebp-4)) +<span id="L26108" class="LineNr">26108 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26109" class="LineNr">26109 </span> 50/push-eax +<span id="L26110" class="LineNr">26110 </span> 51/push-ecx +<span id="L26111" class="LineNr">26111 </span> 52/push-edx +<span id="L26112" class="LineNr">26112 </span> 53/push-ebx +<span id="L26113" class="LineNr">26113 </span> 56/push-esi +<span id="L26114" class="LineNr">26114 </span> 57/push-edi +<span id="L26115" class="LineNr">26115 </span> <span class="subxComment"># esi = stmt</span> +<span id="L26116" class="LineNr">26116 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L26117" class="LineNr">26117 </span> <span class="subxComment"># edi = callee</span> +<span id="L26118" class="LineNr">26118 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L26119" class="LineNr">26119 </span> <span class="subxComment"># var inouts/ecx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L26120" class="LineNr">26120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L26121" class="LineNr">26121 </span> 89/<- %ecx 0/r32/eax +<span id="L26122" class="LineNr">26122 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->inouts)</span> +<span id="L26123" class="LineNr">26123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L26124" class="LineNr">26124 </span> 89/<- %edx 0/r32/eax +<span id="L26125" class="LineNr">26125 </span> { +<span id="L26126" class="LineNr">26126 </span><span class="Constant">$check-mu-call:check-for-inouts</span>: +<span id="L26127" class="LineNr">26127 </span> <span class="subxComment"># if (inouts == 0) break</span> +<span id="L26128" class="LineNr">26128 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26129" class="LineNr">26129 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26130" class="LineNr">26130 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L26131" class="LineNr">26131 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26132" class="LineNr">26132 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26133" class="LineNr">26133 </span><span class="Constant">$check-mu-call:check-null-addr</span>: +<span id="L26134" class="LineNr">26134 </span> <span class="subxComment"># if (inouts->value->name == "0") continue</span> +<span id="L26135" class="LineNr">26135 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26136" class="LineNr">26136 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26137" class="LineNr">26137 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"0"</span>) <span class="subxComment"># => eax</span> +<span id="L26138" class="LineNr">26138 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26139" class="LineNr">26139 </span> 0f 85/jump-if-!= $check-mu-call:continue-to-next-inout/disp32 +<span id="L26140" class="LineNr">26140 </span><span class="Constant">$check-mu-call:check-inout-type</span>: +<span id="L26141" class="LineNr">26141 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = inouts->value->type</span> +<span id="L26142" class="LineNr">26142 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26143" class="LineNr">26143 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26144" class="LineNr">26144 </span> 89/<- %ebx 0/r32/eax +<span id="L26145" class="LineNr">26145 </span> <span class="subxComment"># if (inouts->is-deref?) t = t->right</span> +<span id="L26146" class="LineNr">26146 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26147" class="LineNr">26147 </span> { +<span id="L26148" class="LineNr">26148 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26149" class="LineNr">26149 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26150" class="LineNr">26150 </span> 89/<- %ebx 0/r32/eax +<span id="L26151" class="LineNr">26151 </span> <span class="subxComment"># if t->right is null, t = t->left</span> +<span id="L26152" class="LineNr">26152 </span> 81 7/subop/compare *(ebx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L26153" class="LineNr">26153 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26154" class="LineNr">26154 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+4) *(ebx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26155" class="LineNr">26155 </span> 89/<- %ebx 0/r32/eax +<span id="L26156" class="LineNr">26156 </span> } +<span id="L26157" class="LineNr">26157 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26158" class="LineNr">26158 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26159" class="LineNr">26159 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L26160" class="LineNr">26160 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26161" class="LineNr">26161 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L26162" class="LineNr">26162 </span> (<a href='mu.subx.html#L26392'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L26163" class="LineNr">26163 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26164" class="LineNr">26164 </span> { +<span id="L26165" class="LineNr">26165 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26166" class="LineNr">26166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26167" class="LineNr">26167 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26168" class="LineNr">26168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26169" class="LineNr">26169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26170" class="LineNr">26170 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26171" class="LineNr">26171 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26172" class="LineNr">26172 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26173" class="LineNr">26173 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for inout '"</span>) +<span id="L26174" class="LineNr">26174 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26175" class="LineNr">26175 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26176" class="LineNr">26176 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26177" class="LineNr">26177 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26178" class="LineNr">26178 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26179" class="LineNr">26179 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26180" class="LineNr">26180 </span> } +<span id="L26181" class="LineNr">26181 </span><span class="Constant">$check-mu-call:continue-to-next-inout</span>: +<span id="L26182" class="LineNr">26182 </span> <span class="subxComment"># inouts = lookup(inouts->next)</span> +<span id="L26183" class="LineNr">26183 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L26184" class="LineNr">26184 </span> 89/<- %ecx 0/r32/eax +<span id="L26185" class="LineNr">26185 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L26186" class="LineNr">26186 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26187" class="LineNr">26187 </span> 89/<- %edx 0/r32/eax +<span id="L26188" class="LineNr">26188 </span> <span class="subxComment">#</span> +<span id="L26189" class="LineNr">26189 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26190" class="LineNr">26190 </span> } +<span id="L26191" class="LineNr">26191 </span><span class="Constant">$check-mu-call:check-inout-count</span>: +<span id="L26192" class="LineNr">26192 </span> <span class="subxComment"># if (inouts == expected) proceed</span> +<span id="L26193" class="LineNr">26193 </span> 39/compare %ecx 2/r32/edx +<span id="L26194" class="LineNr">26194 </span> { +<span id="L26195" class="LineNr">26195 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26196" class="LineNr">26196 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L26197" class="LineNr">26197 </span> <span class="subxComment"># if (inouts == 0) error("too many inouts")</span> +<span id="L26198" class="LineNr">26198 </span> { +<span id="L26199" class="LineNr">26199 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26200" class="LineNr">26200 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26201" class="LineNr">26201 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26202" class="LineNr">26202 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26203" class="LineNr">26203 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26204" class="LineNr">26204 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26205" class="LineNr">26205 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26206" class="LineNr">26206 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26207" class="LineNr">26207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26208" class="LineNr">26208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many inouts\n"</span>) +<span id="L26209" class="LineNr">26209 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26210" class="LineNr">26210 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26211" class="LineNr">26211 </span> } +<span id="L26212" class="LineNr">26212 </span> <span class="subxComment"># if (expected == 0) error("too few inouts")</span> +<span id="L26213" class="LineNr">26213 </span> { +<span id="L26214" class="LineNr">26214 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26215" class="LineNr">26215 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26216" class="LineNr">26216 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26217" class="LineNr">26217 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26218" class="LineNr">26218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26219" class="LineNr">26219 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26220" class="LineNr">26220 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26221" class="LineNr">26221 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26222" class="LineNr">26222 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26223" class="LineNr">26223 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few inouts\n"</span>) +<span id="L26224" class="LineNr">26224 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26225" class="LineNr">26225 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26226" class="LineNr">26226 </span> } +<span id="L26227" class="LineNr">26227 </span> } +<span id="L26228" class="LineNr">26228 </span><span class="Constant">$check-mu-call:check-outputs</span>: +<span id="L26229" class="LineNr">26229 </span> <span class="subxComment"># var outputs/ecx: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L26230" class="LineNr">26230 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L26231" class="LineNr">26231 </span> 89/<- %ecx 0/r32/eax +<span id="L26232" class="LineNr">26232 </span> <span class="subxComment"># var expected/edx: (addr list var) = lookup(f->outputs)</span> +<span id="L26233" class="LineNr">26233 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x10) *(edi+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L26234" class="LineNr">26234 </span> 89/<- %edx 0/r32/eax +<span id="L26235" class="LineNr">26235 </span> { +<span id="L26236" class="LineNr">26236 </span><span class="Constant">$check-mu-call:check-for-outputs</span>: +<span id="L26237" class="LineNr">26237 </span> <span class="subxComment"># if (outputs == 0) break</span> +<span id="L26238" class="LineNr">26238 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26239" class="LineNr">26239 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26240" class="LineNr">26240 </span> <span class="subxComment"># if (expected == 0) error</span> +<span id="L26241" class="LineNr">26241 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26242" class="LineNr">26242 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26243" class="LineNr">26243 </span><span class="Constant">$check-mu-call:check-output-type</span>: +<span id="L26244" class="LineNr">26244 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L26245" class="LineNr">26245 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26246" class="LineNr">26246 </span> <span class="subxComment"># var t/ebx: (addr type-tree) = lookup(v->type)</span> +<span id="L26247" class="LineNr">26247 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26248" class="LineNr">26248 </span> 89/<- %ebx 0/r32/eax +<span id="L26249" class="LineNr">26249 </span> <span class="subxComment"># if (outputs->is-deref?) t = t->right # TODO: check that t->left is an addr</span> +<span id="L26250" class="LineNr">26250 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L26251" class="LineNr">26251 </span> { +<span id="L26252" class="LineNr">26252 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26253" class="LineNr">26253 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26254" class="LineNr">26254 </span> 89/<- %ebx 0/r32/eax +<span id="L26255" class="LineNr">26255 </span> } +<span id="L26256" class="LineNr">26256 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26257" class="LineNr">26257 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L26258" class="LineNr">26258 </span> <span class="subxComment"># var t2/eax: (addr type-tree) = lookup(v2->type)</span> +<span id="L26259" class="LineNr">26259 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26260" class="LineNr">26260 </span> <span class="subxComment"># if (t != t2) error</span> +<span id="L26261" class="LineNr">26261 </span> (<a href='mu.subx.html#L26392'>type-match?</a> %eax %ebx *(ebp-4)) <span class="subxComment"># => eax</span> +<span id="L26262" class="LineNr">26262 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26263" class="LineNr">26263 </span> { +<span id="L26264" class="LineNr">26264 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26265" class="LineNr">26265 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26266" class="LineNr">26266 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26267" class="LineNr">26267 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26268" class="LineNr">26268 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26269" class="LineNr">26269 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26270" class="LineNr">26270 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26271" class="LineNr">26271 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26272" class="LineNr">26272 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": type for output '"</span>) +<span id="L26273" class="LineNr">26273 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26274" class="LineNr">26274 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26275" class="LineNr">26275 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26276" class="LineNr">26276 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26277" class="LineNr">26277 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26278" class="LineNr">26278 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26279" class="LineNr">26279 </span> } +<span id="L26280" class="LineNr">26280 </span><span class="Constant">$check-mu-call:check-output-register</span>: +<span id="L26281" class="LineNr">26281 </span> <span class="subxComment"># var v/eax: (addr v) = lookup(outputs->value)</span> +<span id="L26282" class="LineNr">26282 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26283" class="LineNr">26283 </span> <span class="subxComment"># var r/ebx: (addr array byte) = lookup(v->register)</span> +<span id="L26284" class="LineNr">26284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26285" class="LineNr">26285 </span> 89/<- %ebx 0/r32/eax +<span id="L26286" class="LineNr">26286 </span> <span class="subxComment"># if (r == 0) error</span> +<span id="L26287" class="LineNr">26287 </span> 3d/compare-eax-and 0/imm32 +<span id="L26288" class="LineNr">26288 </span> { +<span id="L26289" class="LineNr">26289 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26290" class="LineNr">26290 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26291" class="LineNr">26291 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26292" class="LineNr">26292 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26293" class="LineNr">26293 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26294" class="LineNr">26294 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26295" class="LineNr">26295 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26296" class="LineNr">26296 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26297" class="LineNr">26297 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": output '"</span>) +<span id="L26298" class="LineNr">26298 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26299" class="LineNr">26299 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26300" class="LineNr">26300 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26301" class="LineNr">26301 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not in a register\n"</span>) +<span id="L26302" class="LineNr">26302 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26303" class="LineNr">26303 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26304" class="LineNr">26304 </span> } +<span id="L26305" class="LineNr">26305 </span> <span class="subxComment"># var v2/eax: (addr v) = lookup(expected->value)</span> +<span id="L26306" class="LineNr">26306 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26307" class="LineNr">26307 </span> <span class="subxComment"># var r2/eax: (addr array byte) = lookup(v2->register)</span> +<span id="L26308" class="LineNr">26308 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L26309" class="LineNr">26309 </span> <span class="subxComment"># if (r != r2) error</span> +<span id="L26310" class="LineNr">26310 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L26311" class="LineNr">26311 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26312" class="LineNr">26312 </span> { +<span id="L26313" class="LineNr">26313 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L26314" class="LineNr">26314 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26315" class="LineNr">26315 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26316" class="LineNr">26316 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26317" class="LineNr">26317 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26318" class="LineNr">26318 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26319" class="LineNr">26319 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26320" class="LineNr">26320 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26321" class="LineNr">26321 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": register for output '"</span>) +<span id="L26322" class="LineNr">26322 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L26323" class="LineNr">26323 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L26324" class="LineNr">26324 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26325" class="LineNr">26325 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"' is not right\n"</span>) +<span id="L26326" class="LineNr">26326 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26327" class="LineNr">26327 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26328" class="LineNr">26328 </span> } +<span id="L26329" class="LineNr">26329 </span><span class="Constant">$check-mu-call:continue-to-next-output</span>: +<span id="L26330" class="LineNr">26330 </span> <span class="subxComment"># outputs = lookup(outputs->next)</span> +<span id="L26331" class="LineNr">26331 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L26332" class="LineNr">26332 </span> 89/<- %ecx 0/r32/eax +<span id="L26333" class="LineNr">26333 </span> <span class="subxComment"># expected = lookup(expected->next)</span> +<span id="L26334" class="LineNr">26334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L26335" class="LineNr">26335 </span> 89/<- %edx 0/r32/eax +<span id="L26336" class="LineNr">26336 </span> <span class="subxComment">#</span> +<span id="L26337" class="LineNr">26337 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26338" class="LineNr">26338 </span> } +<span id="L26339" class="LineNr">26339 </span><span class="Constant">$check-mu-call:check-output-count</span>: +<span id="L26340" class="LineNr">26340 </span> <span class="subxComment"># if (outputs == expected) proceed</span> +<span id="L26341" class="LineNr">26341 </span> 39/compare %ecx 2/r32/edx +<span id="L26342" class="LineNr">26342 </span> { +<span id="L26343" class="LineNr">26343 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26344" class="LineNr">26344 </span> <span class="subxComment"># exactly one of the two is null</span> +<span id="L26345" class="LineNr">26345 </span> <span class="subxComment"># if (outputs == 0) error("too many outputs")</span> +<span id="L26346" class="LineNr">26346 </span> { +<span id="L26347" class="LineNr">26347 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26348" class="LineNr">26348 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26349" class="LineNr">26349 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26350" class="LineNr">26350 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26351" class="LineNr">26351 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26352" class="LineNr">26352 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26353" class="LineNr">26353 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26354" class="LineNr">26354 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26355" class="LineNr">26355 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26356" class="LineNr">26356 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too many outputs\n"</span>) +<span id="L26357" class="LineNr">26357 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26358" class="LineNr">26358 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26359" class="LineNr">26359 </span> } +<span id="L26360" class="LineNr">26360 </span> <span class="subxComment"># if (expected == 0) error("too few outputs")</span> +<span id="L26361" class="LineNr">26361 </span> { +<span id="L26362" class="LineNr">26362 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26363" class="LineNr">26363 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26364" class="LineNr">26364 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"fn "</span>) +<span id="L26365" class="LineNr">26365 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L26366" class="LineNr">26366 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26367" class="LineNr">26367 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26368" class="LineNr">26368 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": call "</span>) +<span id="L26369" class="LineNr">26369 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L26370" class="LineNr">26370 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) %eax) +<span id="L26371" class="LineNr">26371 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">": too few outputs\n"</span>) +<span id="L26372" class="LineNr">26372 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L26373" class="LineNr">26373 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L26374" class="LineNr">26374 </span> } +<span id="L26375" class="LineNr">26375 </span> } +<span id="L26376" class="LineNr">26376 </span><span class="Constant">$check-mu-call:end</span>: +<span id="L26377" class="LineNr">26377 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26378" class="LineNr">26378 </span> 5f/pop-to-edi +<span id="L26379" class="LineNr">26379 </span> 5e/pop-to-esi +<span id="L26380" class="LineNr">26380 </span> 5b/pop-to-ebx +<span id="L26381" class="LineNr">26381 </span> 5a/pop-to-edx +<span id="L26382" class="LineNr">26382 </span> 59/pop-to-ecx +<span id="L26383" class="LineNr">26383 </span> 58/pop-to-eax +<span id="L26384" class="LineNr">26384 </span> <span class="subxS1Comment"># . reclaim locals exclusively on the stack</span> +<span id="L26385" class="LineNr">26385 </span> 81 0/subop/add %esp 0x70/imm32 +<span id="L26386" class="LineNr">26386 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26387" class="LineNr">26387 </span> 89/<- %esp 5/r32/ebp +<span id="L26388" class="LineNr">26388 </span> 5d/pop-to-ebp +<span id="L26389" class="LineNr">26389 </span> c3/return +<span id="L26390" class="LineNr">26390 </span> +<span id="L26391" class="LineNr">26391 </span><span class="subxComment"># like type-equal? but takes literals type parameters into account</span> +<span id="L26392" class="LineNr">26392 </span><span class="subxFunction">type-match?</span>: <span class="subxComment"># def: (addr type-tree), call: (addr type-tree), type-parameters: (addr table (handle array byte) (addr type-tree)) -> result/eax: boolean</span> +<span id="L26393" class="LineNr">26393 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26394" class="LineNr">26394 </span> 55/push-ebp +<span id="L26395" class="LineNr">26395 </span> 89/<- %ebp 4/r32/esp +<span id="L26396" class="LineNr">26396 </span> <span class="subxComment"># if (call is literal and def is numberlike) return true</span> +<span id="L26397" class="LineNr">26397 </span> { +<span id="L26398" class="LineNr">26398 </span><span class="Constant">$type-match?:check-literal-int</span>: +<span id="L26399" class="LineNr">26399 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> *(ebp+0xc) 0) <span class="subxComment"># literal => eax</span> +<span id="L26400" class="LineNr">26400 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26401" class="LineNr">26401 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26402" class="LineNr">26402 </span> (<a href='mu.subx.html#L21931'>mu-numberlike-output?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L26403" class="LineNr">26403 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26404" class="LineNr">26404 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26405" class="LineNr">26405 </span> b8/copy-to-eax 1/imm32/true +<span id="L26406" class="LineNr">26406 </span> e9/jump $type-match?:end/disp32 +<span id="L26407" class="LineNr">26407 </span> } +<span id="L26408" class="LineNr">26408 </span> <span class="subxComment"># if (call is literal-string and def is string) return true</span> +<span id="L26409" class="LineNr">26409 </span> { +<span id="L26410" class="LineNr">26410 </span><span class="Constant">$type-match?:check-literal-string</span>: +<span id="L26411" class="LineNr">26411 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> *(ebp+0xc) 0x10) <span class="subxComment"># literal-string => eax</span> +<span id="L26412" class="LineNr">26412 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26413" class="LineNr">26413 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26414" class="LineNr">26414 </span> (<a href='mu.subx.html#L35810'>mu-string-type?</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L26415" class="LineNr">26415 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26416" class="LineNr">26416 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26417" class="LineNr">26417 </span> b8/copy-to-eax 1/imm32/true +<span id="L26418" class="LineNr">26418 </span> e9/jump $type-match?:end/disp32 +<span id="L26419" class="LineNr">26419 </span> } +<span id="L26420" class="LineNr">26420 </span><span class="Constant">$type-match?:baseline</span>: +<span id="L26421" class="LineNr">26421 </span> <span class="subxComment"># otherwise fall back</span> +<span id="L26422" class="LineNr">26422 </span> (<a href='mu.subx.html#L26429'>type-component-match?</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26423" class="LineNr">26423 </span><span class="Constant">$type-match?:end</span>: +<span id="L26424" class="LineNr">26424 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26425" class="LineNr">26425 </span> 89/<- %esp 5/r32/ebp +<span id="L26426" class="LineNr">26426 </span> 5d/pop-to-ebp +<span id="L26427" class="LineNr">26427 </span> c3/return +<span id="L26428" class="LineNr">26428 </span> +<span id="L26429" class="LineNr">26429 </span><span class="subxFunction">type-component-match?</span>: <span class="subxComment"># def: (addr type-tree), call: (addr type-tree), type-parameters: (addr table (handle array byte) (addr type-tree)) -> result/eax: boolean</span> +<span id="L26430" class="LineNr">26430 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26431" class="LineNr">26431 </span> 55/push-ebp +<span id="L26432" class="LineNr">26432 </span> 89/<- %ebp 4/r32/esp +<span id="L26433" class="LineNr">26433 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26434" class="LineNr">26434 </span> 51/push-ecx +<span id="L26435" class="LineNr">26435 </span> 52/push-edx +<span id="L26436" class="LineNr">26436 </span> 53/push-ebx +<span id="L26437" class="LineNr">26437 </span> <span class="subxComment"># ecx = def</span> +<span id="L26438" class="LineNr">26438 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26439" class="LineNr">26439 </span> <span class="subxComment"># edx = call</span> +<span id="L26440" class="LineNr">26440 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L26441" class="LineNr">26441 </span><span class="Constant">$type-component-match?:compare-addr</span>: +<span id="L26442" class="LineNr">26442 </span> <span class="subxComment"># if (def == call) return true</span> +<span id="L26443" class="LineNr">26443 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26444" class="LineNr">26444 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26445" class="LineNr">26445 </span> b8/copy-to-eax 1/imm32/true +<span id="L26446" class="LineNr">26446 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26447" class="LineNr">26447 </span> <span class="subxComment"># if (def == 0) return false</span> +<span id="L26448" class="LineNr">26448 </span> b8/copy-to-eax 0/imm32/false +<span id="L26449" class="LineNr">26449 </span> 81 7/subop/compare %ecx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26450" class="LineNr">26450 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26451" class="LineNr">26451 </span> <span class="subxComment"># if (call == 0) return false</span> +<span id="L26452" class="LineNr">26452 </span> 81 7/subop/compare %edx 0/imm32 <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26453" class="LineNr">26453 </span> 0f 84/jump-if-= $type-component-match?:end/disp32 +<span id="L26454" class="LineNr">26454 </span> <span class="subxComment"># if def is a type parameter, just check in type-parameters</span> +<span id="L26455" class="LineNr">26455 </span> { +<span id="L26456" class="LineNr">26456 </span><span class="Constant">$type-component-match?:check-type-parameter</span>: +<span id="L26457" class="LineNr">26457 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26458" class="LineNr">26458 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26459" class="LineNr">26459 </span> 81 7/subop/compare *(ecx+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L26460" class="LineNr">26460 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26461" class="LineNr">26461 </span><span class="Constant">$type-component-match?:type-parameter</span>: +<span id="L26462" class="LineNr">26462 </span> (<a href='mu.subx.html#L26526'>type-parameter-match?</a> *(ecx+8) *(ecx+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26463" class="LineNr">26463 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26464" class="LineNr">26464 </span> } +<span id="L26465" class="LineNr">26465 </span> <span class="subxComment"># if def is a list containing just a type parameter, just check in type-parameters</span> +<span id="L26466" class="LineNr">26466 </span> { +<span id="L26467" class="LineNr">26467 </span><span class="Constant">$type-component-match?:check-list-type-parameter</span>: +<span id="L26468" class="LineNr">26468 </span> <span class="subxComment"># if def is a list..</span> +<span id="L26469" class="LineNr">26469 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26470" class="LineNr">26470 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26471" class="LineNr">26471 </span> <span class="subxComment"># ..that's a singleton</span> +<span id="L26472" class="LineNr">26472 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-left</span> +<span id="L26473" class="LineNr">26473 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26474" class="LineNr">26474 </span> <span class="subxComment"># ..and whose head is a type parameter</span> +<span id="L26475" class="LineNr">26475 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26476" class="LineNr">26476 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26477" class="LineNr">26477 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26478" class="LineNr">26478 </span> 81 7/subop/compare *(eax+4) 0xa/imm32/type-parameter <span class="subxComment"># Type-tree-value</span> +<span id="L26479" class="LineNr">26479 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26480" class="LineNr">26480 </span><span class="Constant">$type-component-match?:list-type-parameter</span>: +<span id="L26481" class="LineNr">26481 </span> (<a href='mu.subx.html#L26526'>type-parameter-match?</a> *(eax+8) *(eax+0xc) %edx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26482" class="LineNr">26482 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26483" class="LineNr">26483 </span> } +<span id="L26484" class="LineNr">26484 </span><span class="Constant">$type-component-match?:compare-atom-state</span>: +<span id="L26485" class="LineNr">26485 </span> <span class="subxComment"># if (def->is-atom? != call->is-atom?) return false</span> +<span id="L26486" class="LineNr">26486 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26487" class="LineNr">26487 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26488" class="LineNr">26488 </span> b8/copy-to-eax 0/imm32/false +<span id="L26489" class="LineNr">26489 </span> 0f 85/jump-if-!= $type-component-match?:end/disp32 +<span id="L26490" class="LineNr">26490 </span> <span class="subxComment"># if def->is-atom? return (def->value == call->value)</span> +<span id="L26491" class="LineNr">26491 </span> { +<span id="L26492" class="LineNr">26492 </span><span class="Constant">$type-component-match?:check-atom</span>: +<span id="L26493" class="LineNr">26493 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L26494" class="LineNr">26494 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26495" class="LineNr">26495 </span><span class="Constant">$type-component-match?:is-atom</span>: +<span id="L26496" class="LineNr">26496 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26497" class="LineNr">26497 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26498" class="LineNr">26498 </span> 0f 94/set-if-= %al +<span id="L26499" class="LineNr">26499 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26500" class="LineNr">26500 </span> e9/jump $type-component-match?:end/disp32 +<span id="L26501" class="LineNr">26501 </span> } +<span id="L26502" class="LineNr">26502 </span><span class="Constant">$type-component-match?:check-left</span>: +<span id="L26503" class="LineNr">26503 </span> <span class="subxComment"># if (!type-component-match?(def->left, call->left)) return false</span> +<span id="L26504" class="LineNr">26504 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26505" class="LineNr">26505 </span> 89/<- %ebx 0/r32/eax +<span id="L26506" class="LineNr">26506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26507" class="LineNr">26507 </span> (<a href='mu.subx.html#L26429'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26508" class="LineNr">26508 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26509" class="LineNr">26509 </span> 74/jump-if-= $type-component-match?:end/disp8 +<span id="L26510" class="LineNr">26510 </span><span class="Constant">$type-component-match?:check-right</span>: +<span id="L26511" class="LineNr">26511 </span> <span class="subxComment"># return type-component-match?(def->right, call->right)</span> +<span id="L26512" class="LineNr">26512 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26513" class="LineNr">26513 </span> 89/<- %ebx 0/r32/eax +<span id="L26514" class="LineNr">26514 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26515" class="LineNr">26515 </span> (<a href='mu.subx.html#L26429'>type-component-match?</a> %ebx %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L26516" class="LineNr">26516 </span><span class="Constant">$type-component-match?:end</span>: +<span id="L26517" class="LineNr">26517 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26518" class="LineNr">26518 </span> 5b/pop-to-ebx +<span id="L26519" class="LineNr">26519 </span> 5a/pop-to-edx +<span id="L26520" class="LineNr">26520 </span> 59/pop-to-ecx +<span id="L26521" class="LineNr">26521 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26522" class="LineNr">26522 </span> 89/<- %esp 5/r32/ebp +<span id="L26523" class="LineNr">26523 </span> 5d/pop-to-ebp +<span id="L26524" class="LineNr">26524 </span> c3/return +<span id="L26525" class="LineNr">26525 </span> +<span id="L26526" class="LineNr">26526 </span><span class="subxFunction">type-parameter-match?</span>: <span class="subxComment"># type-parameter-name: (handle array byte), type: (addr type-tree), type-parameters: (addr table (handle array byte) (addr type-tree)) -> result/eax: boolean</span> +<span id="L26527" class="LineNr">26527 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26528" class="LineNr">26528 </span> 55/push-ebp +<span id="L26529" class="LineNr">26529 </span> 89/<- %ebp 4/r32/esp +<span id="L26530" class="LineNr">26530 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26531" class="LineNr">26531 </span> 51/push-ecx +<span id="L26532" class="LineNr">26532 </span> <span class="subxComment">#</span> +<span id="L26533" class="LineNr">26533 </span> (<a href='131table.subx.html#L706'>get-or-insert-handle</a> *(ebp+0x14) *(ebp+8) *(ebp+0xc) 0xc) <span class="subxComment"># => eax</span> +<span id="L26534" class="LineNr">26534 </span> <span class="subxComment"># if parameter wasn't saved, save it</span> +<span id="L26535" class="LineNr">26535 </span> { +<span id="L26536" class="LineNr">26536 </span> 81 7/subop/compare *eax 0/imm32 +<span id="L26537" class="LineNr">26537 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26538" class="LineNr">26538 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L26539" class="LineNr">26539 </span> 89/<- *eax 1/r32/ecx +<span id="L26540" class="LineNr">26540 </span> } +<span id="L26541" class="LineNr">26541 </span> <span class="subxComment">#</span> +<span id="L26542" class="LineNr">26542 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> *(ebp+0x10) *eax) <span class="subxComment"># => eax</span> +<span id="L26543" class="LineNr">26543 </span><span class="Constant">$type-parameter-match?:end</span>: +<span id="L26544" class="LineNr">26544 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26545" class="LineNr">26545 </span> 59/pop-to-ecx +<span id="L26546" class="LineNr">26546 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26547" class="LineNr">26547 </span> 89/<- %esp 5/r32/ebp +<span id="L26548" class="LineNr">26548 </span> 5d/pop-to-ebp +<span id="L26549" class="LineNr">26549 </span> c3/return +<span id="L26550" class="LineNr">26550 </span> +<span id="L26551" class="LineNr">26551 </span><span class="subxFunction">size-of</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L26552" class="LineNr">26552 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26553" class="LineNr">26553 </span> 55/push-ebp +<span id="L26554" class="LineNr">26554 </span> 89/<- %ebp 4/r32/esp +<span id="L26555" class="LineNr">26555 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26556" class="LineNr">26556 </span> 51/push-ecx +<span id="L26557" class="LineNr">26557 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L26558" class="LineNr">26558 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26559" class="LineNr">26559 </span><span class="CommentedCode">#? (write-buffered Stderr "size-of ")</span> +<span id="L26560" class="LineNr">26560 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ecx)</span> +<span id="L26561" class="LineNr">26561 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L26562" class="LineNr">26562 </span><span class="CommentedCode">#? (write-buffered Stderr "type allocid: ")</span> +<span id="L26563" class="LineNr">26563 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+8))</span> +<span id="L26564" class="LineNr">26564 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L26565" class="LineNr">26565 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L26566" class="LineNr">26566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26567" class="LineNr">26567 </span> 89/<- %ecx 0/r32/eax +<span id="L26568" class="LineNr">26568 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> +<span id="L26569" class="LineNr">26569 </span> { +<span id="L26570" class="LineNr">26570 </span> (<a href='mu.subx.html#L26648'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26571" class="LineNr">26571 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26572" class="LineNr">26572 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26573" class="LineNr">26573 </span> (<a href='mu.subx.html#L26679'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26574" class="LineNr">26574 </span> eb/jump $size-of:end/disp8 +<span id="L26575" class="LineNr">26575 </span> } +<span id="L26576" class="LineNr">26576 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> +<span id="L26577" class="LineNr">26577 </span> { +<span id="L26578" class="LineNr">26578 </span> (<a href='mu.subx.html#L26713'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26579" class="LineNr">26579 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26580" class="LineNr">26580 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26581" class="LineNr">26581 </span> (<a href='mu.subx.html#L26744'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26582" class="LineNr">26582 </span> eb/jump $size-of:end/disp8 +<span id="L26583" class="LineNr">26583 </span> } +<span id="L26584" class="LineNr">26584 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L26585" class="LineNr">26585 </span> { +<span id="L26586" class="LineNr">26586 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26587" class="LineNr">26587 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26588" class="LineNr">26588 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26589" class="LineNr">26589 </span> 89/<- %ecx 0/r32/eax +<span id="L26590" class="LineNr">26590 </span> } +<span id="L26591" class="LineNr">26591 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L26592" class="LineNr">26592 </span> (<a href='mu.subx.html#L26757'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L26593" class="LineNr">26593 </span><span class="Constant">$size-of:end</span>: +<span id="L26594" class="LineNr">26594 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26595" class="LineNr">26595 </span> 59/pop-to-ecx +<span id="L26596" class="LineNr">26596 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26597" class="LineNr">26597 </span> 89/<- %esp 5/r32/ebp +<span id="L26598" class="LineNr">26598 </span> 5d/pop-to-ebp +<span id="L26599" class="LineNr">26599 </span> c3/return +<span id="L26600" class="LineNr">26600 </span> +<span id="L26601" class="LineNr">26601 </span><span class="subxFunction">size-of-deref</span>: <span class="subxComment"># v: (addr var) -> result/eax: int</span> +<span id="L26602" class="LineNr">26602 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26603" class="LineNr">26603 </span> 55/push-ebp +<span id="L26604" class="LineNr">26604 </span> 89/<- %ebp 4/r32/esp +<span id="L26605" class="LineNr">26605 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26606" class="LineNr">26606 </span> 51/push-ecx +<span id="L26607" class="LineNr">26607 </span> <span class="subxComment"># var t/ecx: (addr type-tree) = lookup(v->type)</span> +<span id="L26608" class="LineNr">26608 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26609" class="LineNr">26609 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L26610" class="LineNr">26610 </span> 89/<- %ecx 0/r32/eax +<span id="L26611" class="LineNr">26611 </span> <span class="subxComment"># TODO: assert(t is an addr)</span> +<span id="L26612" class="LineNr">26612 </span> <span class="subxComment"># t = lookup(t->right)</span> +<span id="L26613" class="LineNr">26613 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26614" class="LineNr">26614 </span> 89/<- %ecx 0/r32/eax +<span id="L26615" class="LineNr">26615 </span> <span class="subxComment"># if mu-array?(t) return size-of-array(t)</span> +<span id="L26616" class="LineNr">26616 </span> { +<span id="L26617" class="LineNr">26617 </span> (<a href='mu.subx.html#L26648'>mu-array?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26618" class="LineNr">26618 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26619" class="LineNr">26619 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26620" class="LineNr">26620 </span> (<a href='mu.subx.html#L26679'>size-of-array</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26621" class="LineNr">26621 </span> eb/jump $size-of-deref:end/disp8 +<span id="L26622" class="LineNr">26622 </span> } +<span id="L26623" class="LineNr">26623 </span> <span class="subxComment"># if mu-stream?(t) return size-of-stream(t)</span> +<span id="L26624" class="LineNr">26624 </span> { +<span id="L26625" class="LineNr">26625 </span> (<a href='mu.subx.html#L26713'>mu-stream?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26626" class="LineNr">26626 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26627" class="LineNr">26627 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26628" class="LineNr">26628 </span> (<a href='mu.subx.html#L26744'>size-of-stream</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L26629" class="LineNr">26629 </span> eb/jump $size-of-deref:end/disp8 +<span id="L26630" class="LineNr">26630 </span> } +<span id="L26631" class="LineNr">26631 </span> <span class="subxComment"># if (!t->is-atom?) t = lookup(t->left)</span> +<span id="L26632" class="LineNr">26632 </span> { +<span id="L26633" class="LineNr">26633 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26634" class="LineNr">26634 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26635" class="LineNr">26635 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26636" class="LineNr">26636 </span> 89/<- %ecx 0/r32/eax +<span id="L26637" class="LineNr">26637 </span> } +<span id="L26638" class="LineNr">26638 </span> <span class="subxComment"># TODO: assert t->is-atom?</span> +<span id="L26639" class="LineNr">26639 </span> (<a href='mu.subx.html#L26757'>size-of-type-id</a> *(ecx+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L26640" class="LineNr">26640 </span><span class="Constant">$size-of-deref:end</span>: +<span id="L26641" class="LineNr">26641 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26642" class="LineNr">26642 </span> 59/pop-to-ecx +<span id="L26643" class="LineNr">26643 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26644" class="LineNr">26644 </span> 89/<- %esp 5/r32/ebp +<span id="L26645" class="LineNr">26645 </span> 5d/pop-to-ebp +<span id="L26646" class="LineNr">26646 </span> c3/return +<span id="L26647" class="LineNr">26647 </span> +<span id="L26648" class="LineNr">26648 </span><span class="subxFunction">mu-array?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L26649" class="LineNr">26649 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26650" class="LineNr">26650 </span> 55/push-ebp +<span id="L26651" class="LineNr">26651 </span> 89/<- %ebp 4/r32/esp +<span id="L26652" class="LineNr">26652 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26653" class="LineNr">26653 </span> 51/push-ecx +<span id="L26654" class="LineNr">26654 </span> <span class="subxComment"># ecx = t</span> +<span id="L26655" class="LineNr">26655 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26656" class="LineNr">26656 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L26657" class="LineNr">26657 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26658" class="LineNr">26658 </span> 75/jump-if-!= $mu-array?:return-false/disp8 +<span id="L26659" class="LineNr">26659 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L26660" class="LineNr">26660 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26661" class="LineNr">26661 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26662" class="LineNr">26662 </span> 74/jump-if-= $mu-array?:return-false/disp8 +<span id="L26663" class="LineNr">26663 </span> <span class="subxComment"># return t->left->value == array</span> +<span id="L26664" class="LineNr">26664 </span> 81 7/subop/compare *(eax+4) 3/imm32/array-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L26665" class="LineNr">26665 </span> 0f 94/set-if-= %al +<span id="L26666" class="LineNr">26666 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26667" class="LineNr">26667 </span> eb/jump $mu-array?:end/disp8 +<span id="L26668" class="LineNr">26668 </span><span class="Constant">$mu-array?:return-false</span>: +<span id="L26669" class="LineNr">26669 </span> b8/copy-to-eax 0/imm32/false +<span id="L26670" class="LineNr">26670 </span><span class="Constant">$mu-array?:end</span>: +<span id="L26671" class="LineNr">26671 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26672" class="LineNr">26672 </span> 59/pop-to-ecx +<span id="L26673" class="LineNr">26673 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26674" class="LineNr">26674 </span> 89/<- %esp 5/r32/ebp +<span id="L26675" class="LineNr">26675 </span> 5d/pop-to-ebp +<span id="L26676" class="LineNr">26676 </span> c3/return +<span id="L26677" class="LineNr">26677 </span> +<span id="L26678" class="LineNr">26678 </span><span class="subxComment"># size of a statically allocated array where the size is part of the type expression</span> +<span id="L26679" class="LineNr">26679 </span><span class="subxFunction">size-of-array</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L26680" class="LineNr">26680 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26681" class="LineNr">26681 </span> 55/push-ebp +<span id="L26682" class="LineNr">26682 </span> 89/<- %ebp 4/r32/esp +<span id="L26683" class="LineNr">26683 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26684" class="LineNr">26684 </span> 51/push-ecx +<span id="L26685" class="LineNr">26685 </span> 52/push-edx +<span id="L26686" class="LineNr">26686 </span> <span class="subxComment">#</span> +<span id="L26687" class="LineNr">26687 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26688" class="LineNr">26688 </span> <span class="subxComment"># TODO: assert that a->left is 'array'</span> +<span id="L26689" class="LineNr">26689 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26690" class="LineNr">26690 </span> 89/<- %ecx 0/r32/eax +<span id="L26691" class="LineNr">26691 </span> <span class="subxComment"># var elem-type/edx: type-id = a->right->left->value</span> +<span id="L26692" class="LineNr">26692 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26693" class="LineNr">26693 </span> 8b/-> *(eax+4) 2/r32/edx <span class="subxComment"># Type-tree-value</span> +<span id="L26694" class="LineNr">26694 </span> <span class="subxComment"># TODO: assert that a->right->right->left->value == size</span> +<span id="L26695" class="LineNr">26695 </span> <span class="subxComment"># var array-size/ecx: int = a->right->right->left->value-size</span> +<span id="L26696" class="LineNr">26696 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26697" class="LineNr">26697 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26698" class="LineNr">26698 </span> 8b/-> *(eax+8) 1/r32/ecx <span class="subxComment"># Type-tree-value-size</span> +<span id="L26699" class="LineNr">26699 </span> <span class="subxComment"># return 4 + array-size * size-of(elem-type)</span> +<span id="L26700" class="LineNr">26700 </span> (<a href='mu.subx.html#L29019'>size-of-type-id-as-array-element</a> %edx) <span class="subxComment"># => eax</span> +<span id="L26701" class="LineNr">26701 </span> f7 4/subop/multiply-into-edx-eax %ecx +<span id="L26702" class="LineNr">26702 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array size</span> +<span id="L26703" class="LineNr">26703 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L26704" class="LineNr">26704 </span><span class="Constant">$size-of-array:end</span>: +<span id="L26705" class="LineNr">26705 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26706" class="LineNr">26706 </span> 5a/pop-to-edx +<span id="L26707" class="LineNr">26707 </span> 59/pop-to-ecx +<span id="L26708" class="LineNr">26708 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26709" class="LineNr">26709 </span> 89/<- %esp 5/r32/ebp +<span id="L26710" class="LineNr">26710 </span> 5d/pop-to-ebp +<span id="L26711" class="LineNr">26711 </span> c3/return +<span id="L26712" class="LineNr">26712 </span> +<span id="L26713" class="LineNr">26713 </span><span class="subxFunction">mu-stream?</span>: <span class="subxComment"># t: (addr type-tree) -> result/eax: boolean</span> +<span id="L26714" class="LineNr">26714 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26715" class="LineNr">26715 </span> 55/push-ebp +<span id="L26716" class="LineNr">26716 </span> 89/<- %ebp 4/r32/esp +<span id="L26717" class="LineNr">26717 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26718" class="LineNr">26718 </span> 51/push-ecx +<span id="L26719" class="LineNr">26719 </span> <span class="subxComment"># ecx = t</span> +<span id="L26720" class="LineNr">26720 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26721" class="LineNr">26721 </span> <span class="subxComment"># if t->is-atom?, return false</span> +<span id="L26722" class="LineNr">26722 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26723" class="LineNr">26723 </span> 75/jump-if-!= $mu-stream?:return-false/disp8 +<span id="L26724" class="LineNr">26724 </span> <span class="subxComment"># if !t->left->is-atom?, return false</span> +<span id="L26725" class="LineNr">26725 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26726" class="LineNr">26726 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26727" class="LineNr">26727 </span> 74/jump-if-= $mu-stream?:return-false/disp8 +<span id="L26728" class="LineNr">26728 </span> <span class="subxComment"># return t->left->value == stream</span> +<span id="L26729" class="LineNr">26729 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream-type-id <span class="subxComment"># Type-tree-value</span> +<span id="L26730" class="LineNr">26730 </span> 0f 94/set-if-= %al +<span id="L26731" class="LineNr">26731 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26732" class="LineNr">26732 </span> eb/jump $mu-stream?:end/disp8 +<span id="L26733" class="LineNr">26733 </span><span class="Constant">$mu-stream?:return-false</span>: +<span id="L26734" class="LineNr">26734 </span> b8/copy-to-eax 0/imm32/false +<span id="L26735" class="LineNr">26735 </span><span class="Constant">$mu-stream?:end</span>: +<span id="L26736" class="LineNr">26736 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26737" class="LineNr">26737 </span> 59/pop-to-ecx +<span id="L26738" class="LineNr">26738 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26739" class="LineNr">26739 </span> 89/<- %esp 5/r32/ebp +<span id="L26740" class="LineNr">26740 </span> 5d/pop-to-ebp +<span id="L26741" class="LineNr">26741 </span> c3/return +<span id="L26742" class="LineNr">26742 </span> +<span id="L26743" class="LineNr">26743 </span><span class="subxComment"># size of a statically allocated stream where the size is part of the type expression</span> +<span id="L26744" class="LineNr">26744 </span><span class="subxFunction">size-of-stream</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L26745" class="LineNr">26745 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26746" class="LineNr">26746 </span> 55/push-ebp +<span id="L26747" class="LineNr">26747 </span> 89/<- %ebp 4/r32/esp +<span id="L26748" class="LineNr">26748 </span> <span class="subxComment">#</span> +<span id="L26749" class="LineNr">26749 </span> (<a href='mu.subx.html#L26679'>size-of-array</a> *(ebp+8)) <span class="subxComment"># assumes we ignore the actual type name 'array' in the type</span> +<span id="L26750" class="LineNr">26750 </span> 05/add-to-eax 8/imm32 <span class="subxComment"># for read/write pointers</span> +<span id="L26751" class="LineNr">26751 </span><span class="Constant">$size-of-stream:end</span>: +<span id="L26752" class="LineNr">26752 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26753" class="LineNr">26753 </span> 89/<- %esp 5/r32/ebp +<span id="L26754" class="LineNr">26754 </span> 5d/pop-to-ebp +<span id="L26755" class="LineNr">26755 </span> c3/return +<span id="L26756" class="LineNr">26756 </span> +<span id="L26757" class="LineNr">26757 </span><span class="subxFunction">size-of-type-id</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L26758" class="LineNr">26758 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26759" class="LineNr">26759 </span> 55/push-ebp +<span id="L26760" class="LineNr">26760 </span> 89/<- %ebp 4/r32/esp +<span id="L26761" class="LineNr">26761 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26762" class="LineNr">26762 </span> 51/push-ecx +<span id="L26763" class="LineNr">26763 </span> <span class="subxComment"># var out/ecx: (handle typeinfo)</span> +<span id="L26764" class="LineNr">26764 </span> 68/push 0/imm32 +<span id="L26765" class="LineNr">26765 </span> 68/push 0/imm32 +<span id="L26766" class="LineNr">26766 </span> 89/<- %ecx 4/r32/esp +<span id="L26767" class="LineNr">26767 </span> <span class="subxComment"># eax = t</span> +<span id="L26768" class="LineNr">26768 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L26769" class="LineNr">26769 </span> <span class="subxComment"># if t is a literal, return 0</span> +<span id="L26770" class="LineNr">26770 </span> 3d/compare-eax-and 0/imm32 +<span id="L26771" class="LineNr">26771 </span> 0f 84/jump-if-= $size-of-type-id:end/disp32 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L26772" class="LineNr">26772 </span> <span class="subxComment"># if t is a byte, return 4 (because we don't really support non-multiples of 4)</span> +<span id="L26773" class="LineNr">26773 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L26774" class="LineNr">26774 </span> { +<span id="L26775" class="LineNr">26775 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26776" class="LineNr">26776 </span> b8/copy-to-eax 4/imm32 +<span id="L26777" class="LineNr">26777 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L26778" class="LineNr">26778 </span> } +<span id="L26779" class="LineNr">26779 </span> <span class="subxComment"># if t is a handle, return 8</span> +<span id="L26780" class="LineNr">26780 </span> 3d/compare-eax-and 4/imm32/handle +<span id="L26781" class="LineNr">26781 </span> { +<span id="L26782" class="LineNr">26782 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26783" class="LineNr">26783 </span> b8/copy-to-eax 8/imm32 +<span id="L26784" class="LineNr">26784 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L26785" class="LineNr">26785 </span> } +<span id="L26786" class="LineNr">26786 </span> <span class="subxComment"># if t is a slice, return 8</span> +<span id="L26787" class="LineNr">26787 </span> 3d/compare-eax-and 0xc/imm32/slice +<span id="L26788" class="LineNr">26788 </span> { +<span id="L26789" class="LineNr">26789 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26790" class="LineNr">26790 </span> b8/copy-to-eax 8/imm32 +<span id="L26791" class="LineNr">26791 </span> eb/jump $size-of-type-id:end/disp8 <span class="subxComment"># eax changes type from type-id to int</span> +<span id="L26792" class="LineNr">26792 </span> } +<span id="L26793" class="LineNr">26793 </span> <span class="subxComment"># if t is a user-defined type, return its size</span> +<span id="L26794" class="LineNr">26794 </span> <span class="subxComment"># TODO: support non-atom type</span> +<span id="L26795" class="LineNr">26795 </span> (<a href='mu.subx.html#L20308'>find-typeinfo</a> %eax %ecx) +<span id="L26796" class="LineNr">26796 </span> { +<span id="L26797" class="LineNr">26797 </span> 81 7/subop/compare *ecx 0/imm32 +<span id="L26798" class="LineNr">26798 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26799" class="LineNr">26799 </span><span class="Constant">$size-of-type-id:user-defined</span>: +<span id="L26800" class="LineNr">26800 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># => eax</span> +<span id="L26801" class="LineNr">26801 </span> 8b/-> *(eax+0xc) 0/r32/eax <span class="subxComment"># Typeinfo-total-size-in-bytes</span> +<span id="L26802" class="LineNr">26802 </span> eb/jump $size-of-type-id:end/disp8 +<span id="L26803" class="LineNr">26803 </span> } +<span id="L26804" class="LineNr">26804 </span> <span class="subxComment"># otherwise return the word size</span> +<span id="L26805" class="LineNr">26805 </span> b8/copy-to-eax 4/imm32 +<span id="L26806" class="LineNr">26806 </span><span class="Constant">$size-of-type-id:end</span>: +<span id="L26807" class="LineNr">26807 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L26808" class="LineNr">26808 </span> 81 0/subop/add %esp 8/imm32 +<span id="L26809" class="LineNr">26809 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26810" class="LineNr">26810 </span> 59/pop-to-ecx +<span id="L26811" class="LineNr">26811 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26812" class="LineNr">26812 </span> 89/<- %esp 5/r32/ebp +<span id="L26813" class="LineNr">26813 </span> 5d/pop-to-ebp +<span id="L26814" class="LineNr">26814 </span> c3/return +<span id="L26815" class="LineNr">26815 </span> +<span id="L26816" class="LineNr">26816 </span><span class="subxComment"># Minor violation of our type system since it returns an addr. But we could</span> +<span id="L26817" class="LineNr">26817 </span><span class="subxComment"># replace it with a handle some time.</span> +<span id="L26818" class="LineNr">26818 </span><span class="subxComment"># Returns null if t is an atom.</span> +<span id="L26819" class="LineNr">26819 </span><span class="subxFunction">type-tail</span>: <span class="subxComment"># t: (addr type-tree) -> out/eax: (addr type-tree)</span> +<span id="L26820" class="LineNr">26820 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26821" class="LineNr">26821 </span> 55/push-ebp +<span id="L26822" class="LineNr">26822 </span> 89/<- %ebp 4/r32/esp +<span id="L26823" class="LineNr">26823 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26824" class="LineNr">26824 </span> 51/push-ecx +<span id="L26825" class="LineNr">26825 </span> <span class="subxComment"># eax = 0</span> +<span id="L26826" class="LineNr">26826 </span> b8/copy-to-eax 0/imm32 +<span id="L26827" class="LineNr">26827 </span> <span class="subxComment"># ecx = t</span> +<span id="L26828" class="LineNr">26828 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26829" class="LineNr">26829 </span><span class="Constant">$type-tail:check-atom</span>: +<span id="L26830" class="LineNr">26830 </span> <span class="subxComment"># if t->is-atom? return 0</span> +<span id="L26831" class="LineNr">26831 </span> 81 7/subop/compare *ecx 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26832" class="LineNr">26832 </span> 0f 85/jump-if-!= $type-tail:end/disp32 +<span id="L26833" class="LineNr">26833 </span> <span class="subxComment"># var tail = t->right</span> +<span id="L26834" class="LineNr">26834 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26835" class="LineNr">26835 </span> 89/<- %ecx 0/r32/eax +<span id="L26836" class="LineNr">26836 </span><span class="Constant">$type-tail:check-singleton</span>: +<span id="L26837" class="LineNr">26837 </span> <span class="subxComment"># if (tail->right == 0) return tail->left</span> +<span id="L26838" class="LineNr">26838 </span> { +<span id="L26839" class="LineNr">26839 </span> 81 7/subop/compare *(ecx+0xc) 0/imm32 <span class="subxComment"># Type-tree-right</span> +<span id="L26840" class="LineNr">26840 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26841" class="LineNr">26841 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26842" class="LineNr">26842 </span> e9/jump $type-tail:end/disp32 +<span id="L26843" class="LineNr">26843 </span> } +<span id="L26844" class="LineNr">26844 </span> <span class="subxComment"># if tail->right->left is an array-capacity, return tail->left</span> +<span id="L26845" class="LineNr">26845 </span> { +<span id="L26846" class="LineNr">26846 </span><span class="Constant">$type-tail:check-array-capacity</span>: +<span id="L26847" class="LineNr">26847 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26848" class="LineNr">26848 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26849" class="LineNr">26849 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L26850" class="LineNr">26850 </span><span class="Constant">$type-tail:check-array-capacity-1</span>: +<span id="L26851" class="LineNr">26851 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26852" class="LineNr">26852 </span> 3d/compare-eax-and 0/imm32 +<span id="L26853" class="LineNr">26853 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26854" class="LineNr">26854 </span><span class="Constant">$type-tail:check-array-capacity-2</span>: +<span id="L26855" class="LineNr">26855 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 9) <span class="subxComment"># array-capacity => eax</span> +<span id="L26856" class="LineNr">26856 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26857" class="LineNr">26857 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26858" class="LineNr">26858 </span><span class="Constant">$type-tail:array-capacity</span>: +<span id="L26859" class="LineNr">26859 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26860" class="LineNr">26860 </span> eb/jump $type-tail:end/disp8 +<span id="L26861" class="LineNr">26861 </span> } +<span id="L26862" class="LineNr">26862 </span><span class="Constant">$type-tail:check-compound-left</span>: +<span id="L26863" class="LineNr">26863 </span> <span class="subxComment"># if !tail->left->is-atom? return tail->left</span> +<span id="L26864" class="LineNr">26864 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26865" class="LineNr">26865 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26866" class="LineNr">26866 </span> 74/jump-if-= $type-tail:end/disp8 +<span id="L26867" class="LineNr">26867 </span><span class="Constant">$type-tail:return-tail</span>: +<span id="L26868" class="LineNr">26868 </span> <span class="subxComment"># return tail</span> +<span id="L26869" class="LineNr">26869 </span> 89/<- %eax 1/r32/ecx +<span id="L26870" class="LineNr">26870 </span><span class="Constant">$type-tail:end</span>: +<span id="L26871" class="LineNr">26871 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26872" class="LineNr">26872 </span> 59/pop-to-ecx +<span id="L26873" class="LineNr">26873 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26874" class="LineNr">26874 </span> 89/<- %esp 5/r32/ebp +<span id="L26875" class="LineNr">26875 </span> 5d/pop-to-ebp +<span id="L26876" class="LineNr">26876 </span> c3/return +<span id="L26877" class="LineNr">26877 </span> +<span id="L26878" class="LineNr">26878 </span><span class="subxFunction">type-equal?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> +<span id="L26879" class="LineNr">26879 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26880" class="LineNr">26880 </span> 55/push-ebp +<span id="L26881" class="LineNr">26881 </span> 89/<- %ebp 4/r32/esp +<span id="L26882" class="LineNr">26882 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26883" class="LineNr">26883 </span> 51/push-ecx +<span id="L26884" class="LineNr">26884 </span> 52/push-edx +<span id="L26885" class="LineNr">26885 </span> 53/push-ebx +<span id="L26886" class="LineNr">26886 </span> <span class="subxComment"># ecx = a</span> +<span id="L26887" class="LineNr">26887 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L26888" class="LineNr">26888 </span> <span class="subxComment"># edx = b</span> +<span id="L26889" class="LineNr">26889 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L26890" class="LineNr">26890 </span><span class="Constant">$type-equal?:compare-addr</span>: +<span id="L26891" class="LineNr">26891 </span> <span class="subxComment"># if (a == b) return true</span> +<span id="L26892" class="LineNr">26892 </span> 8b/-> %ecx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26893" class="LineNr">26893 </span> 39/compare %edx 0/r32/eax <span class="subxComment"># Var-type</span> +<span id="L26894" class="LineNr">26894 </span> b8/copy-to-eax 1/imm32/true +<span id="L26895" class="LineNr">26895 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L26896" class="LineNr">26896 </span><span class="Constant">$type-equal?:compare-null-a</span>: +<span id="L26897" class="LineNr">26897 </span> <span class="subxComment"># if (a == 0) return false</span> +<span id="L26898" class="LineNr">26898 </span> b8/copy-to-eax 0/imm32/false +<span id="L26899" class="LineNr">26899 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L26900" class="LineNr">26900 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L26901" class="LineNr">26901 </span><span class="Constant">$type-equal?:compare-null-b</span>: +<span id="L26902" class="LineNr">26902 </span> <span class="subxComment"># if (b == 0) return false</span> +<span id="L26903" class="LineNr">26903 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L26904" class="LineNr">26904 </span> 0f 84/jump-if-= $type-equal?:end/disp32 +<span id="L26905" class="LineNr">26905 </span><span class="Constant">$type-equal?:compare-atom-state</span>: +<span id="L26906" class="LineNr">26906 </span> <span class="subxComment"># if (a->is-atom? != b->is-atom?) return false</span> +<span id="L26907" class="LineNr">26907 </span> 8b/-> *ecx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26908" class="LineNr">26908 </span> 39/compare *edx 3/r32/ebx <span class="subxComment"># Type-tree-is-atom</span> +<span id="L26909" class="LineNr">26909 </span> b8/copy-to-eax 0/imm32/false +<span id="L26910" class="LineNr">26910 </span> 0f 85/jump-if-!= $type-equal?:end/disp32 +<span id="L26911" class="LineNr">26911 </span> <span class="subxComment"># if a->is-atom? return (a->value == b->value)</span> +<span id="L26912" class="LineNr">26912 </span> { +<span id="L26913" class="LineNr">26913 </span><span class="Constant">$type-equal?:check-atom</span>: +<span id="L26914" class="LineNr">26914 </span> 81 7/subop/compare %ebx 0/imm32/false +<span id="L26915" class="LineNr">26915 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L26916" class="LineNr">26916 </span><span class="Constant">$type-equal?:is-atom</span>: +<span id="L26917" class="LineNr">26917 </span> 8b/-> *(ecx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26918" class="LineNr">26918 </span> 39/compare *(edx+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L26919" class="LineNr">26919 </span> 0f 94/set-if-= %al +<span id="L26920" class="LineNr">26920 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L26921" class="LineNr">26921 </span> e9/jump $type-equal?:end/disp32 +<span id="L26922" class="LineNr">26922 </span> } +<span id="L26923" class="LineNr">26923 </span><span class="Constant">$type-equal?:check-left</span>: +<span id="L26924" class="LineNr">26924 </span> <span class="subxComment"># if (!type-equal?(a->left, b->left)) return false</span> +<span id="L26925" class="LineNr">26925 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26926" class="LineNr">26926 </span> 89/<- %ebx 0/r32/eax +<span id="L26927" class="LineNr">26927 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+4) *(edx+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L26928" class="LineNr">26928 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L26929" class="LineNr">26929 </span> 3d/compare-eax-and 0/imm32/false +<span id="L26930" class="LineNr">26930 </span> 74/jump-if-= $type-equal?:end/disp8 +<span id="L26931" class="LineNr">26931 </span><span class="Constant">$type-equal?:check-right</span>: +<span id="L26932" class="LineNr">26932 </span> <span class="subxComment"># return type-equal?(a->right, b->right)</span> +<span id="L26933" class="LineNr">26933 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26934" class="LineNr">26934 </span> 89/<- %ebx 0/r32/eax +<span id="L26935" class="LineNr">26935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0xc) *(edx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L26936" class="LineNr">26936 </span> (<a href='mu.subx.html#L26878'>type-equal?</a> %eax %ebx) <span class="subxComment"># => eax</span> +<span id="L26937" class="LineNr">26937 </span><span class="Constant">$type-equal?:end</span>: +<span id="L26938" class="LineNr">26938 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26939" class="LineNr">26939 </span> 5b/pop-to-ebx +<span id="L26940" class="LineNr">26940 </span> 5a/pop-to-edx +<span id="L26941" class="LineNr">26941 </span> 59/pop-to-ecx +<span id="L26942" class="LineNr">26942 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26943" class="LineNr">26943 </span> 89/<- %esp 5/r32/ebp +<span id="L26944" class="LineNr">26944 </span> 5d/pop-to-ebp +<span id="L26945" class="LineNr">26945 </span> c3/return +<span id="L26946" class="LineNr">26946 </span> +<span id="L26947" class="LineNr">26947 </span><span class="subxComment">#######################################################</span> +<span id="L26948" class="LineNr">26948 </span><span class="subxComment"># Code-generation</span> +<span id="L26949" class="LineNr">26949 </span><span class="subxComment">#######################################################</span> +<span id="L26950" class="LineNr">26950 </span> +<span id="L26951" class="LineNr">26951 </span>== data +<span id="L26952" class="LineNr">26952 </span> +<span id="L26953" class="LineNr">26953 </span><span class="subxComment"># Global state added to each var record when performing code-generation.</span> +<span id="L26954" class="LineNr">26954 </span><span class="SpecialChar">Curr-local-stack-offset</span>: <span class="subxComment"># (addr int)</span> +<span id="L26955" class="LineNr">26955 </span> 0/imm32 +<span id="L26956" class="LineNr">26956 </span> +<span id="L26957" class="LineNr">26957 </span>== code +<span id="L26958" class="LineNr">26958 </span> +<span id="L26959" class="LineNr">26959 </span><span class="subxComment"># We may not need to pass err/ed everywhere here. I think they're relics of Mu</span> +<span id="L26960" class="LineNr">26960 </span><span class="subxComment"># getting type checks later in life.</span> +<span id="L26961" class="LineNr">26961 </span><span class="subxComment"># But we do need them for runtime checks, particularly array index bounds checks.</span> +<span id="L26962" class="LineNr">26962 </span><span class="subxComment"># So perhaps it's not worth taking them out. They're a safety net.</span> +<span id="L26963" class="LineNr">26963 </span> +<span id="L26964" class="LineNr">26964 </span><span class="subxFunction">emit-subx</span>: <span class="subxComment"># out: (addr buffered-file), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L26965" class="LineNr">26965 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26966" class="LineNr">26966 </span> 55/push-ebp +<span id="L26967" class="LineNr">26967 </span> 89/<- %ebp 4/r32/esp +<span id="L26968" class="LineNr">26968 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26969" class="LineNr">26969 </span> 50/push-eax +<span id="L26970" class="LineNr">26970 </span> <span class="subxComment"># var curr/eax: (addr function) = *Program->functions</span> +<span id="L26971" class="LineNr">26971 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *_Program-functions *_Program-functions->payload) <span class="subxComment"># => eax</span> +<span id="L26972" class="LineNr">26972 </span> { +<span id="L26973" class="LineNr">26973 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L26974" class="LineNr">26974 </span> 3d/compare-eax-and 0/imm32 +<span id="L26975" class="LineNr">26975 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L26976" class="LineNr">26976 </span> (<a href='mu.subx.html#L26989'>emit-subx-function</a> *(ebp+8) %eax *(ebp+0xc) *(ebp+0x10)) +<span id="L26977" class="LineNr">26977 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L26978" class="LineNr">26978 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x20) *(eax+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L26979" class="LineNr">26979 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L26980" class="LineNr">26980 </span> } +<span id="L26981" class="LineNr">26981 </span><span class="Constant">$emit-subx:end</span>: +<span id="L26982" class="LineNr">26982 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L26983" class="LineNr">26983 </span> 58/pop-to-eax +<span id="L26984" class="LineNr">26984 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L26985" class="LineNr">26985 </span> 89/<- %esp 5/r32/ebp +<span id="L26986" class="LineNr">26986 </span> 5d/pop-to-ebp +<span id="L26987" class="LineNr">26987 </span> c3/return +<span id="L26988" class="LineNr">26988 </span> +<span id="L26989" class="LineNr">26989 </span><span class="subxFunction">emit-subx-function</span>: <span class="subxComment"># out: (addr buffered-file), f: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L26990" class="LineNr">26990 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L26991" class="LineNr">26991 </span> 55/push-ebp +<span id="L26992" class="LineNr">26992 </span> 89/<- %ebp 4/r32/esp +<span id="L26993" class="LineNr">26993 </span> <span class="subxComment"># some preprocessing</span> +<span id="L26994" class="LineNr">26994 </span> (<a href='mu.subx.html#L27034'>populate-mu-type-offsets-in-inouts</a> *(ebp+0xc)) +<span id="L26995" class="LineNr">26995 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L26996" class="LineNr">26996 </span> 50/push-eax +<span id="L26997" class="LineNr">26997 </span> 51/push-ecx +<span id="L26998" class="LineNr">26998 </span> 52/push-edx +<span id="L26999" class="LineNr">26999 </span> <span class="subxComment"># initialize some global state</span> +<span id="L27000" class="LineNr">27000 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 1/imm32 <span class="subxComment"># Important: keep this in sync with the parse phase</span> +<span id="L27001" class="LineNr">27001 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L26954'>Curr-local-stack-offset</a></span> 0/imm32 +<span id="L27002" class="LineNr">27002 </span> <span class="subxComment"># ecx = f</span> +<span id="L27003" class="LineNr">27003 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27004" class="LineNr">27004 </span> <span class="subxComment"># var vars/edx: (stack (addr var) 256)</span> +<span id="L27005" class="LineNr">27005 </span> 81 5/subop/subtract %esp 0xc00/imm32 +<span id="L27006" class="LineNr">27006 </span> 68/push 0xc00/imm32/size +<span id="L27007" class="LineNr">27007 </span> 68/push 0/imm32/top +<span id="L27008" class="LineNr">27008 </span> 89/<- %edx 4/r32/esp +<span id="L27009" class="LineNr">27009 </span> <span class="subxComment"># var name/eax: (addr array byte) = lookup(f->name)</span> +<span id="L27010" class="LineNr">27010 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L27011" class="LineNr">27011 </span> <span class="subxComment">#</span> +<span id="L27012" class="LineNr">27012 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27013" class="LineNr">27013 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":\n"</span>) +<span id="L27014" class="LineNr">27014 </span> (<a href='mu.subx.html#L38323'>emit-subx-prologue</a> *(ebp+8)) +<span id="L27015" class="LineNr">27015 </span> <span class="subxComment"># var body/eax: (addr block) = lookup(f->body)</span> +<span id="L27016" class="LineNr">27016 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Function-body Function-body => eax</span> +<span id="L27017" class="LineNr">27017 </span> <span class="subxComment">#</span> +<span id="L27018" class="LineNr">27018 </span> (<a href='mu.subx.html#L30137'>emit-subx-block</a> *(ebp+8) %eax %edx *(ebp+0xc) *(ebp+0x10) *(ebp+0x14)) +<span id="L27019" class="LineNr">27019 </span> (<a href='mu.subx.html#L38337'>emit-subx-epilogue</a> *(ebp+8)) +<span id="L27020" class="LineNr">27020 </span> <span class="subxComment"># TODO: validate that *Curr-block-depth and *Curr-local-stack-offset have</span> +<span id="L27021" class="LineNr">27021 </span> <span class="subxComment"># been cleaned up</span> +<span id="L27022" class="LineNr">27022 </span><span class="Constant">$emit-subx-function:end</span>: +<span id="L27023" class="LineNr">27023 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L27024" class="LineNr">27024 </span> 81 0/subop/add %esp 0xc08/imm32 +<span id="L27025" class="LineNr">27025 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27026" class="LineNr">27026 </span> 5a/pop-to-edx +<span id="L27027" class="LineNr">27027 </span> 59/pop-to-ecx +<span id="L27028" class="LineNr">27028 </span> 58/pop-to-eax +<span id="L27029" class="LineNr">27029 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27030" class="LineNr">27030 </span> 89/<- %esp 5/r32/ebp +<span id="L27031" class="LineNr">27031 </span> 5d/pop-to-ebp +<span id="L27032" class="LineNr">27032 </span> c3/return +<span id="L27033" class="LineNr">27033 </span> +<span id="L27034" class="LineNr">27034 </span><span class="subxFunction">populate-mu-type-offsets-in-inouts</span>: <span class="subxComment"># f: (addr function)</span> +<span id="L27035" class="LineNr">27035 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27036" class="LineNr">27036 </span> 55/push-ebp +<span id="L27037" class="LineNr">27037 </span> 89/<- %ebp 4/r32/esp +<span id="L27038" class="LineNr">27038 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27039" class="LineNr">27039 </span> 50/push-eax +<span id="L27040" class="LineNr">27040 </span> 51/push-ecx +<span id="L27041" class="LineNr">27041 </span> 52/push-edx +<span id="L27042" class="LineNr">27042 </span> 53/push-ebx +<span id="L27043" class="LineNr">27043 </span> 57/push-edi +<span id="L27044" class="LineNr">27044 </span> <span class="subxComment"># var next-offset/edx: int = 8</span> +<span id="L27045" class="LineNr">27045 </span> ba/copy-to-edx 8/imm32 +<span id="L27046" class="LineNr">27046 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(f->inouts)</span> +<span id="L27047" class="LineNr">27047 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27048" class="LineNr">27048 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Function-inouts Function-inouts => eax</span> +<span id="L27049" class="LineNr">27049 </span> 89/<- %ecx 0/r32/eax +<span id="L27050" class="LineNr">27050 </span> { +<span id="L27051" class="LineNr">27051 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:loop</span>: +<span id="L27052" class="LineNr">27052 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L27053" class="LineNr">27053 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27054" class="LineNr">27054 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(curr->value)</span> +<span id="L27055" class="LineNr">27055 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27056" class="LineNr">27056 </span> 89/<- %ebx 0/r32/eax +<span id="L27057" class="LineNr">27057 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4))</span> +<span id="L27058" class="LineNr">27058 </span><span class="CommentedCode">#? (write-buffered Stderr "setting offset of fn inout ")</span> +<span id="L27059" class="LineNr">27059 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27060" class="LineNr">27060 </span><span class="CommentedCode">#? (write-buffered Stderr "@")</span> +<span id="L27061" class="LineNr">27061 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %ebx)</span> +<span id="L27062" class="LineNr">27062 </span><span class="CommentedCode">#? (write-buffered Stderr " to ")</span> +<span id="L27063" class="LineNr">27063 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %edx)</span> +<span id="L27064" class="LineNr">27064 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27065" class="LineNr">27065 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27066" class="LineNr">27066 </span> <span class="subxComment"># v->offset = next-offset</span> +<span id="L27067" class="LineNr">27067 </span> 89/<- *(ebx+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L27068" class="LineNr">27068 </span> <span class="subxComment"># next-offset += size-of(v)</span> +<span id="L27069" class="LineNr">27069 </span> (<a href='mu.subx.html#L26551'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27070" class="LineNr">27070 </span> 01/add-to %edx 0/r32/eax +<span id="L27071" class="LineNr">27071 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L27072" class="LineNr">27072 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27073" class="LineNr">27073 </span> 89/<- %ecx 0/r32/eax +<span id="L27074" class="LineNr">27074 </span> <span class="subxComment">#</span> +<span id="L27075" class="LineNr">27075 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L27076" class="LineNr">27076 </span> } +<span id="L27077" class="LineNr">27077 </span><span class="Constant">$populate-mu-type-offsets-in-inouts:end</span>: +<span id="L27078" class="LineNr">27078 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27079" class="LineNr">27079 </span> 5f/pop-to-edi +<span id="L27080" class="LineNr">27080 </span> 5b/pop-to-ebx +<span id="L27081" class="LineNr">27081 </span> 5a/pop-to-edx +<span id="L27082" class="LineNr">27082 </span> 59/pop-to-ecx +<span id="L27083" class="LineNr">27083 </span> 58/pop-to-eax +<span id="L27084" class="LineNr">27084 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27085" class="LineNr">27085 </span> 89/<- %esp 5/r32/ebp +<span id="L27086" class="LineNr">27086 </span> 5d/pop-to-ebp +<span id="L27087" class="LineNr">27087 </span> c3/return +<span id="L27088" class="LineNr">27088 </span> +<span id="L27089" class="LineNr">27089 </span><span class="subxFunction">emit-subx-stmt-list</span>: <span class="subxComment"># out: (addr buffered-file), stmts: (addr list stmt), vars: (addr stack live-var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L27090" class="LineNr">27090 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27091" class="LineNr">27091 </span> 55/push-ebp +<span id="L27092" class="LineNr">27092 </span> 89/<- %ebp 4/r32/esp +<span id="L27093" class="LineNr">27093 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27094" class="LineNr">27094 </span> 50/push-eax +<span id="L27095" class="LineNr">27095 </span> 51/push-ecx +<span id="L27096" class="LineNr">27096 </span> 53/push-ebx +<span id="L27097" class="LineNr">27097 </span> 56/push-esi +<span id="L27098" class="LineNr">27098 </span> <span class="subxComment"># esi = stmts</span> +<span id="L27099" class="LineNr">27099 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L27100" class="LineNr">27100 </span> <span class="subxComment">#</span> +<span id="L27101" class="LineNr">27101 </span> { +<span id="L27102" class="LineNr">27102 </span><span class="Constant">$emit-subx-stmt-list:loop</span>: +<span id="L27103" class="LineNr">27103 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L27104" class="LineNr">27104 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27105" class="LineNr">27105 </span> <span class="subxComment"># var curr-stmt/ecx: (addr stmt) = lookup(stmts->value)</span> +<span id="L27106" class="LineNr">27106 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27107" class="LineNr">27107 </span> 89/<- %ecx 0/r32/eax +<span id="L27108" class="LineNr">27108 </span> { +<span id="L27109" class="LineNr">27109 </span><span class="Constant">$emit-subx-stmt-list:check-for-block</span>: +<span id="L27110" class="LineNr">27110 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L27111" class="LineNr">27111 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27112" class="LineNr">27112 </span><span class="Constant">$emit-subx-stmt-list:block</span>: +<span id="L27113" class="LineNr">27113 </span> (<a href='mu.subx.html#L30137'>emit-subx-block</a> *(ebp+8) %ecx *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27114" class="LineNr">27114 </span> } +<span id="L27115" class="LineNr">27115 </span> { +<span id="L27116" class="LineNr">27116 </span><span class="Constant">$emit-subx-stmt-list:check-for-stmt</span>: +<span id="L27117" class="LineNr">27117 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L27118" class="LineNr">27118 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27119" class="LineNr">27119 </span><span class="Constant">$emit-subx-stmt-list:stmt1</span>: +<span id="L27120" class="LineNr">27120 </span> { +<span id="L27121" class="LineNr">27121 </span> (<a href='mu.subx.html#L27533'>mu-branch?</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L27122" class="LineNr">27122 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27123" class="LineNr">27123 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27124" class="LineNr">27124 </span><span class="Constant">$emit-subx-stmt-list:branch-stmt</span>: +<span id="L27125" class="Folded">27125 </span><span class="Folded">+-- 25 lines: # unconditional return ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27150" class="Folded">27150 </span><span class="Folded">+-- 27 lines: # unconditional loops -----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27177" class="Folded">27177 </span><span class="Folded">+-- 16 lines: # unconditional breaks ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27193" class="Folded">27193 </span><span class="Folded">+-- 38 lines: # simple conditional branches without a target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27231" class="Folded">27231 </span><span class="Folded">+-- 19 lines: # conditional branches with an explicit target ----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L27250" class="LineNr">27250 </span> } +<span id="L27251" class="LineNr">27251 </span><span class="Constant">$emit-subx-stmt-list:1-to-1</span>: +<span id="L27252" class="LineNr">27252 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27253" class="LineNr">27253 </span> e9/jump $emit-subx-stmt-list:continue/disp32 +<span id="L27254" class="LineNr">27254 </span> } +<span id="L27255" class="LineNr">27255 </span> { +<span id="L27256" class="LineNr">27256 </span><span class="Constant">$emit-subx-stmt-list:check-for-var-def</span>: +<span id="L27257" class="LineNr">27257 </span> 81 7/subop/compare *ecx 2/imm32/var-def <span class="subxComment"># Stmt-tag</span> +<span id="L27258" class="LineNr">27258 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27259" class="LineNr">27259 </span><span class="Constant">$emit-subx-stmt-list:var-def</span>: +<span id="L27260" class="LineNr">27260 </span> (<a href='mu.subx.html#L28489'>emit-subx-var-def</a> *(ebp+8) %ecx) +<span id="L27261" class="LineNr">27261 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+4)) <span class="subxComment"># Vardef-var</span> +<span id="L27262" class="LineNr">27262 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(ecx+8)) <span class="subxComment"># Vardef-var</span> +<span id="L27263" class="LineNr">27263 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># Live-var-register-spilled = 0 for vars on the stack</span> +<span id="L27264" class="LineNr">27264 </span> <span class="subxComment">#</span> +<span id="L27265" class="LineNr">27265 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L27266" class="LineNr">27266 </span> } +<span id="L27267" class="LineNr">27267 </span> { +<span id="L27268" class="LineNr">27268 </span><span class="Constant">$emit-subx-stmt-list:check-for-reg-var-def</span>: +<span id="L27269" class="LineNr">27269 </span> 81 7/subop/compare *ecx 3/imm32/reg-var-def <span class="subxComment"># Stmt-tag</span> +<span id="L27270" class="LineNr">27270 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27271" class="LineNr">27271 </span><span class="Constant">$emit-subx-stmt-list:reg-var-def</span>: +<span id="L27272" class="LineNr">27272 </span> <span class="subxComment"># TODO: ensure that there's exactly one output</span> +<span id="L27273" class="LineNr">27273 </span> (<a href='mu.subx.html#L27302'>push-output-and-maybe-emit-spill</a> *(ebp+8) %ecx *(ebp+0x10) %esi *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27274" class="LineNr">27274 </span> <span class="subxComment"># emit the instruction as usual</span> +<span id="L27275" class="LineNr">27275 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> *(ebp+8) %ecx <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L27276" class="LineNr">27276 </span> <span class="subxComment">#</span> +<span id="L27277" class="LineNr">27277 </span> eb/jump $emit-subx-stmt-list:continue/disp8 +<span id="L27278" class="LineNr">27278 </span> } +<span id="L27279" class="LineNr">27279 </span><span class="Constant">$emit-subx-stmt-list:continue</span>: +<span id="L27280" class="LineNr">27280 </span> <span class="subxComment"># TODO: raise an error on unrecognized Stmt-tag</span> +<span id="L27281" class="LineNr">27281 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27282" class="LineNr">27282 </span> 89/<- %esi 0/r32/eax +<span id="L27283" class="LineNr">27283 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27284" class="LineNr">27284 </span> } +<span id="L27285" class="LineNr">27285 </span><span class="Constant">$emit-subx-stmt-list:emit-cleanup</span>: +<span id="L27286" class="LineNr">27286 </span> (<a href='mu.subx.html#L27695'>emit-cleanup-code-until-depth</a> *(ebp+8) *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27287" class="LineNr">27287 </span><span class="Constant">$emit-subx-stmt-list:clean-up</span>: +<span id="L27288" class="LineNr">27288 </span> (<a href='mu.subx.html#L28025'>clean-up-stack-offset-state</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27289" class="LineNr">27289 </span> (<a href='mu.subx.html#L28413'>clean-up-blocks</a> *(ebp+0x10) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> *(ebp+0x14)) +<span id="L27290" class="LineNr">27290 </span><span class="Constant">$emit-subx-stmt-list:end</span>: +<span id="L27291" class="LineNr">27291 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27292" class="LineNr">27292 </span> 5e/pop-to-esi +<span id="L27293" class="LineNr">27293 </span> 5b/pop-to-ebx +<span id="L27294" class="LineNr">27294 </span> 59/pop-to-ecx +<span id="L27295" class="LineNr">27295 </span> 58/pop-to-eax +<span id="L27296" class="LineNr">27296 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27297" class="LineNr">27297 </span> 89/<- %esp 5/r32/ebp +<span id="L27298" class="LineNr">27298 </span> 5d/pop-to-ebp +<span id="L27299" class="LineNr">27299 </span> c3/return +<span id="L27300" class="LineNr">27300 </span> +<span id="L27301" class="LineNr">27301 </span><span class="subxComment"># 'later-stmts' includes 'stmt', but will behave the same even without it; reg-var-def stmts are guaranteed not to write to function outputs.</span> +<span id="L27302" class="LineNr">27302 </span><span class="subxFunction">push-output-and-maybe-emit-spill</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr reg-var-def), vars: (addr stack (handle var)), later-stmts: (addr list stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L27303" class="LineNr">27303 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27304" class="LineNr">27304 </span> 55/push-ebp +<span id="L27305" class="LineNr">27305 </span> 89/<- %ebp 4/r32/esp +<span id="L27306" class="LineNr">27306 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27307" class="LineNr">27307 </span> 50/push-eax +<span id="L27308" class="LineNr">27308 </span> 51/push-ecx +<span id="L27309" class="LineNr">27309 </span> 52/push-edx +<span id="L27310" class="LineNr">27310 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27311" class="LineNr">27311 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27312" class="LineNr">27312 </span> <span class="subxComment"># var sv/eax: (addr stmt-var) = lookup(curr-stmt->outputs)</span> +<span id="L27313" class="LineNr">27313 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L27314" class="LineNr">27314 </span> <span class="subxComment"># TODO: assert !sv->is-deref?</span> +<span id="L27315" class="LineNr">27315 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(sv->value)</span> +<span id="L27316" class="LineNr">27316 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L27317" class="LineNr">27317 </span> 89/<- %ecx 0/r32/eax +<span id="L27318" class="LineNr">27318 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L27319" class="LineNr">27319 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/r32/eax +<span id="L27320" class="LineNr">27320 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L27321" class="LineNr">27321 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L27322" class="LineNr">27322 </span><span class="CommentedCode">#? (lookup *ecx *(ecx+4))</span> +<span id="L27323" class="LineNr">27323 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27324" class="LineNr">27324 </span><span class="CommentedCode">#? (write-buffered Stderr " at depth ")</span> +<span id="L27325" class="LineNr">27325 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr *(ecx+0x10))</span> +<span id="L27326" class="LineNr">27326 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27327" class="LineNr">27327 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27328" class="LineNr">27328 </span> <span class="subxComment"># ensure that v is in a register</span> +<span id="L27329" class="LineNr">27329 </span> 81 7/subop/compare *(ecx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27330" class="LineNr">27330 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:abort/disp32 +<span id="L27331" class="LineNr">27331 </span> <span class="subxComment"># var emit-spill?/edx: boolean = not-yet-spilled-this-block? && will-not-write-some-register?(fn)</span> +<span id="L27332" class="LineNr">27332 </span> (<a href='mu.subx.html#L28097'>not-yet-spilled-this-block?</a> %ecx *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L27333" class="LineNr">27333 </span> 89/<- %edx 0/r32/eax +<span id="L27334" class="LineNr">27334 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27335" class="LineNr">27335 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 +<span id="L27336" class="LineNr">27336 </span> (<a href='mu.subx.html#L28170'>will-not-write-some-register?</a> %ecx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L27337" class="LineNr">27337 </span> 89/<- %edx 0/r32/eax +<span id="L27338" class="LineNr">27338 </span> <span class="subxComment"># check emit-spill?</span> +<span id="L27339" class="LineNr">27339 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27340" class="LineNr">27340 </span> 0f 84/jump-if-= $push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a>/disp32 +<span id="L27341" class="LineNr">27341 </span> <span class="subxComment"># TODO: assert(size-of(output) == 4)</span> +<span id="L27342" class="LineNr">27342 </span> <span class="subxComment"># *Curr-local-stack-offset -= 4</span> +<span id="L27343" class="LineNr">27343 </span> 81 5/subop/subtract *<span class="SpecialChar"><a href='mu.subx.html#L26954'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L27344" class="LineNr">27344 </span> <span class="subxComment"># emit spill</span> +<span id="L27345" class="LineNr">27345 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27346" class="LineNr">27346 </span> (<a href='mu.subx.html#L27868'>emit-push-register</a> *(ebp+8) %eax) +<span id="L27347" class="LineNr">27347 </span><span class="Constant">$push-output-and-maybe-emit-spill:<a href='203stack.subx.html#L114'>push</a></span>: +<span id="L27348" class="LineNr">27348 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27349" class="LineNr">27349 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Regvardef-outputs Regvardef-outputs => eax</span> +<span id="L27350" class="LineNr">27350 </span> <span class="subxComment"># push(vars, {sv->value, emit-spill?})</span> +<span id="L27351" class="LineNr">27351 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *eax) <span class="subxComment"># Stmt-var-value</span> +<span id="L27352" class="LineNr">27352 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(eax+4)) <span class="subxComment"># Stmt-var-value</span> +<span id="L27353" class="LineNr">27353 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) %edx) +<span id="L27354" class="LineNr">27354 </span><span class="Constant">$push-output-and-maybe-emit-spill:end</span>: +<span id="L27355" class="LineNr">27355 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27356" class="LineNr">27356 </span> 5a/pop-to-edx +<span id="L27357" class="LineNr">27357 </span> 59/pop-to-ecx +<span id="L27358" class="LineNr">27358 </span> 58/pop-to-eax +<span id="L27359" class="LineNr">27359 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27360" class="LineNr">27360 </span> 89/<- %esp 5/r32/ebp +<span id="L27361" class="LineNr">27361 </span> 5d/pop-to-ebp +<span id="L27362" class="LineNr">27362 </span> c3/return +<span id="L27363" class="LineNr">27363 </span> +<span id="L27364" class="LineNr">27364 </span><span class="Constant">$push-output-and-maybe-emit-spill:abort</span>: +<span id="L27365" class="LineNr">27365 </span> <span class="subxComment"># error("var '" var->name "' initialized from an instruction must live in a register\n")</span> +<span id="L27366" class="LineNr">27366 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"var '"</span>) +<span id="L27367" class="LineNr">27367 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) *eax) <span class="subxComment"># Var-name</span> +<span id="L27368" class="LineNr">27368 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x1c) <span class="Constant">"' initialized from an instruction must live in a register\n"</span>) +<span id="L27369" class="LineNr">27369 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x1c)) +<span id="L27370" class="LineNr">27370 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x20) 1) +<span id="L27371" class="LineNr">27371 </span> <span class="subxComment"># never gets here</span> +<span id="L27372" class="LineNr">27372 </span> +<span id="L27373" class="LineNr">27373 </span><span class="subxFunction">emit-subx-cleanup-and-unconditional-nonlocal-branch</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1), vars: (addr stack live-var)</span> +<span id="L27374" class="LineNr">27374 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27375" class="LineNr">27375 </span> 55/push-ebp +<span id="L27376" class="LineNr">27376 </span> 89/<- %ebp 4/r32/esp +<span id="L27377" class="LineNr">27377 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27378" class="LineNr">27378 </span> 50/push-eax +<span id="L27379" class="LineNr">27379 </span> 51/push-ecx +<span id="L27380" class="LineNr">27380 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L27381" class="LineNr">27381 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27382" class="LineNr">27382 </span> <span class="subxComment"># var target/eax: (addr array byte) = curr-stmt->inouts->value->name</span> +<span id="L27383" class="LineNr">27383 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27384" class="LineNr">27384 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L27385" class="LineNr">27385 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27386" class="LineNr">27386 </span> <span class="subxComment"># clean up until target block</span> +<span id="L27387" class="LineNr">27387 </span> (<a href='mu.subx.html#L27948'>emit-cleanup-code-until-target</a> *(ebp+8) *(ebp+0x10) %eax) +<span id="L27388" class="LineNr">27388 </span> <span class="subxComment"># emit jump to target block</span> +<span id="L27389" class="LineNr">27389 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27390" class="LineNr">27390 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L27391" class="LineNr">27391 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27392" class="LineNr">27392 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27393" class="LineNr">27393 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %eax <span class="Constant">"break"</span>) +<span id="L27394" class="LineNr">27394 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27395" class="LineNr">27395 </span> { +<span id="L27396" class="LineNr">27396 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27397" class="LineNr">27397 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break/disp32\n"</span>) +<span id="L27398" class="LineNr">27398 </span> eb/jump $emit-subx-cleanup-and-unconditional-nonlocal-branch:end/disp8 +<span id="L27399" class="LineNr">27399 </span> } +<span id="L27400" class="LineNr">27400 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop/disp32\n"</span>) +<span id="L27401" class="LineNr">27401 </span><span class="Constant">$emit-subx-cleanup-and-unconditional-nonlocal-branch:end</span>: +<span id="L27402" class="LineNr">27402 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27403" class="LineNr">27403 </span> 59/pop-to-ecx +<span id="L27404" class="LineNr">27404 </span> 58/pop-to-eax +<span id="L27405" class="LineNr">27405 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27406" class="LineNr">27406 </span> 89/<- %esp 5/r32/ebp +<span id="L27407" class="LineNr">27407 </span> 5d/pop-to-ebp +<span id="L27408" class="LineNr">27408 </span> c3/return +<span id="L27409" class="LineNr">27409 </span> +<span id="L27410" class="LineNr">27410 </span><span class="subxFunction">emit-outputs</span>: <span class="subxComment"># out: (addr buffered-file), return-stmt: (addr stmt1), fn: (addr function)</span> +<span id="L27411" class="LineNr">27411 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27412" class="LineNr">27412 </span> 55/push-ebp +<span id="L27413" class="LineNr">27413 </span> 89/<- %ebp 4/r32/esp +<span id="L27414" class="LineNr">27414 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27415" class="LineNr">27415 </span> 50/push-eax +<span id="L27416" class="LineNr">27416 </span> 51/push-ecx +<span id="L27417" class="LineNr">27417 </span> 56/push-esi +<span id="L27418" class="LineNr">27418 </span> 57/push-edi +<span id="L27419" class="LineNr">27419 </span> <span class="subxComment"># var curr-inout/esi: (addr stmt-var) = return-stmt->inouts</span> +<span id="L27420" class="LineNr">27420 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27421" class="LineNr">27421 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L27422" class="LineNr">27422 </span> 89/<- %esi 0/r32/eax +<span id="L27423" class="LineNr">27423 </span> <span class="subxComment"># var curr-output/edi: (addr list var) = fn->outputs</span> +<span id="L27424" class="LineNr">27424 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L27425" class="LineNr">27425 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L27426" class="LineNr">27426 </span> 89/<- %edi 0/r32/eax +<span id="L27427" class="LineNr">27427 </span> { +<span id="L27428" class="LineNr">27428 </span><span class="Constant">$emit-outputs:loop</span>: +<span id="L27429" class="LineNr">27429 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L27430" class="LineNr">27430 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27431" class="LineNr">27431 </span> <span class="subxComment"># emit copy to output register</span> +<span id="L27432" class="LineNr">27432 </span> <span class="subxComment"># var curr-output-register/ecx: (addr array byte) = curr-output->value->register</span> +<span id="L27433" class="LineNr">27433 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L27434" class="LineNr">27434 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27435" class="LineNr">27435 </span> 89/<- %ecx 0/r32/eax +<span id="L27436" class="LineNr">27436 </span> <span class="subxComment"># if curr-output-register starts with "x", emit a floating-point copy</span> +<span id="L27437" class="LineNr">27437 </span> 8a/copy-byte *(ecx+4) 0/r32/AL +<span id="L27438" class="LineNr">27438 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L27439" class="LineNr">27439 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L27440" class="LineNr">27440 </span> { +<span id="L27441" class="LineNr">27441 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27442" class="LineNr">27442 </span> (<a href='mu.subx.html#L27511'>emit-float-output</a> *(ebp+8) %esi %ecx) +<span id="L27443" class="LineNr">27443 </span> eb/jump $emit-outputs:continue/disp8 +<span id="L27444" class="LineNr">27444 </span> } +<span id="L27445" class="LineNr">27445 </span> <span class="subxComment"># otherwise emit an int copy</span> +<span id="L27446" class="LineNr">27446 </span> (<a href='mu.subx.html#L27468'>emit-int-output</a> *(ebp+8) %esi %ecx) +<span id="L27447" class="LineNr">27447 </span><span class="Constant">$emit-outputs:continue</span>: +<span id="L27448" class="LineNr">27448 </span> <span class="subxComment"># curr-inout = curr-inout->next</span> +<span id="L27449" class="LineNr">27449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L27450" class="LineNr">27450 </span> 89/<- %esi 0/r32/eax +<span id="L27451" class="LineNr">27451 </span> <span class="subxComment"># curr-output = curr-output->next</span> +<span id="L27452" class="LineNr">27452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L27453" class="LineNr">27453 </span> 89/<- %edi 0/r32/eax +<span id="L27454" class="LineNr">27454 </span> <span class="subxComment">#</span> +<span id="L27455" class="LineNr">27455 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27456" class="LineNr">27456 </span> } +<span id="L27457" class="LineNr">27457 </span><span class="Constant">$emit-outputs:end</span>: +<span id="L27458" class="LineNr">27458 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27459" class="LineNr">27459 </span> 5f/pop-to-edi +<span id="L27460" class="LineNr">27460 </span> 5e/pop-to-esi +<span id="L27461" class="LineNr">27461 </span> 59/pop-to-ecx +<span id="L27462" class="LineNr">27462 </span> 58/pop-to-eax +<span id="L27463" class="LineNr">27463 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27464" class="LineNr">27464 </span> 89/<- %esp 5/r32/ebp +<span id="L27465" class="LineNr">27465 </span> 5d/pop-to-ebp +<span id="L27466" class="LineNr">27466 </span> c3/return +<span id="L27467" class="LineNr">27467 </span> +<span id="L27468" class="LineNr">27468 </span><span class="subxFunction">emit-int-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> +<span id="L27469" class="LineNr">27469 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27470" class="LineNr">27470 </span> 55/push-ebp +<span id="L27471" class="LineNr">27471 </span> 89/<- %ebp 4/r32/esp +<span id="L27472" class="LineNr">27472 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27473" class="LineNr">27473 </span> 50/push-eax +<span id="L27474" class="LineNr">27474 </span> 51/push-ecx +<span id="L27475" class="LineNr">27475 </span> <span class="subxComment"># ecx = return-var->value</span> +<span id="L27476" class="LineNr">27476 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27477" class="LineNr">27477 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L27478" class="LineNr">27478 </span> 89/<- %ecx 0/r32/eax +<span id="L27479" class="LineNr">27479 </span> <span class="subxComment"># if curr-var is a literal, emit copy of a literal to the output</span> +<span id="L27480" class="LineNr">27480 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L27481" class="LineNr">27481 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L27482" class="LineNr">27482 </span> { +<span id="L27483" class="LineNr">27483 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27484" class="LineNr">27484 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27485" class="LineNr">27485 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27486" class="LineNr">27486 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c7 0/subop/copy %"</span>) +<span id="L27487" class="LineNr">27487 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x10)) +<span id="L27488" class="LineNr">27488 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27489" class="LineNr">27489 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27490" class="LineNr">27490 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27491" class="LineNr">27491 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27492" class="LineNr">27492 </span> e9/jump $emit-int-output:end/disp32 +<span id="L27493" class="LineNr">27493 </span> } +<span id="L27494" class="LineNr">27494 </span> <span class="subxComment"># otherwise emit an integer copy</span> +<span id="L27495" class="LineNr">27495 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27496" class="LineNr">27496 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/->"</span>) +<span id="L27497" class="LineNr">27497 </span> (<a href='mu.subx.html#L35266'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) +<span id="L27498" class="LineNr">27498 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27499" class="LineNr">27499 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L27500" class="LineNr">27500 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27501" class="LineNr">27501 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L27502" class="LineNr">27502 </span><span class="Constant">$emit-int-output:end</span>: +<span id="L27503" class="LineNr">27503 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27504" class="LineNr">27504 </span> 59/pop-to-ecx +<span id="L27505" class="LineNr">27505 </span> 58/pop-to-eax +<span id="L27506" class="LineNr">27506 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27507" class="LineNr">27507 </span> 89/<- %esp 5/r32/ebp +<span id="L27508" class="LineNr">27508 </span> 5d/pop-to-ebp +<span id="L27509" class="LineNr">27509 </span> c3/return +<span id="L27510" class="LineNr">27510 </span> +<span id="L27511" class="LineNr">27511 </span><span class="subxFunction">emit-float-output</span>: <span class="subxComment"># out: (addr buffered-file), return-var: (addr stmt-var), dest-reg: (addr array byte)</span> +<span id="L27512" class="LineNr">27512 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27513" class="LineNr">27513 </span> 55/push-ebp +<span id="L27514" class="LineNr">27514 </span> 89/<- %ebp 4/r32/esp +<span id="L27515" class="LineNr">27515 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27516" class="LineNr">27516 </span> 50/push-eax +<span id="L27517" class="LineNr">27517 </span> <span class="subxComment">#</span> +<span id="L27518" class="LineNr">27518 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27519" class="LineNr">27519 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/->"</span>) +<span id="L27520" class="LineNr">27520 </span> (<a href='mu.subx.html#L35266'>emit-subx-var-as-rm32</a> *(ebp+8) *(ebp+0xc)) +<span id="L27521" class="LineNr">27521 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L27522" class="LineNr">27522 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L27523" class="LineNr">27523 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L27524" class="LineNr">27524 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L27525" class="LineNr">27525 </span><span class="Constant">$emit-float-output:end</span>: +<span id="L27526" class="LineNr">27526 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27527" class="LineNr">27527 </span> 58/pop-to-eax +<span id="L27528" class="LineNr">27528 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27529" class="LineNr">27529 </span> 89/<- %esp 5/r32/ebp +<span id="L27530" class="LineNr">27530 </span> 5d/pop-to-ebp +<span id="L27531" class="LineNr">27531 </span> c3/return +<span id="L27532" class="LineNr">27532 </span> +<span id="L27533" class="LineNr">27533 </span><span class="subxFunction">mu-branch?</span>: <span class="subxComment"># stmt: (addr stmt1) -> result/eax: boolean</span> +<span id="L27534" class="LineNr">27534 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27535" class="LineNr">27535 </span> 55/push-ebp +<span id="L27536" class="LineNr">27536 </span> 89/<- %ebp 4/r32/esp +<span id="L27537" class="LineNr">27537 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27538" class="LineNr">27538 </span> 51/push-ecx +<span id="L27539" class="LineNr">27539 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L27540" class="LineNr">27540 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L27541" class="LineNr">27541 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27542" class="LineNr">27542 </span> 89/<- %ecx 0/r32/eax +<span id="L27543" class="LineNr">27543 </span> <span class="subxComment"># if (stmt->operation starts with "loop") return true</span> +<span id="L27544" class="LineNr">27544 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L27545" class="LineNr">27545 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27546" class="LineNr">27546 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 +<span id="L27547" class="LineNr">27547 </span> <span class="subxComment"># if (stmt->operation starts with "break") return true</span> +<span id="L27548" class="LineNr">27548 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L27549" class="LineNr">27549 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27550" class="LineNr">27550 </span> 75/jump-if-not-equal $mu-branch?:end/disp8 +<span id="L27551" class="LineNr">27551 </span> <span class="subxComment"># otherwise return (stmt->operation starts with "return")</span> +<span id="L27552" class="LineNr">27552 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"return"</span>) <span class="subxComment"># => eax</span> +<span id="L27553" class="LineNr">27553 </span><span class="Constant">$mu-branch?:end</span>: +<span id="L27554" class="LineNr">27554 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27555" class="LineNr">27555 </span> 59/pop-to-ecx +<span id="L27556" class="LineNr">27556 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27557" class="LineNr">27557 </span> 89/<- %esp 5/r32/ebp +<span id="L27558" class="LineNr">27558 </span> 5d/pop-to-ebp +<span id="L27559" class="LineNr">27559 </span> c3/return +<span id="L27560" class="LineNr">27560 </span> +<span id="L27561" class="LineNr">27561 </span><span class="subxFunction">emit-reverse-break</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt1)</span> +<span id="L27562" class="LineNr">27562 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27563" class="LineNr">27563 </span> 55/push-ebp +<span id="L27564" class="LineNr">27564 </span> 89/<- %ebp 4/r32/esp +<span id="L27565" class="LineNr">27565 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27566" class="LineNr">27566 </span> 50/push-eax +<span id="L27567" class="LineNr">27567 </span> <span class="subxComment"># eax = stmt</span> +<span id="L27568" class="LineNr">27568 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27569" class="LineNr">27569 </span> <span class="subxComment">#</span> +<span id="L27570" class="LineNr">27570 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L27571" class="LineNr">27571 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L27587'>Reverse-branch</a></span> %eax 0x10 <span class="Constant">"reverse-branch: "</span>) <span class="subxComment"># => eax: (addr handle array byte)</span> +<span id="L27572" class="LineNr">27572 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27573" class="LineNr">27573 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># => eax</span> +<span id="L27574" class="LineNr">27574 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27575" class="LineNr">27575 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" break/disp32\n"</span>) +<span id="L27576" class="LineNr">27576 </span><span class="Constant">$emit-reverse-break:end</span>: +<span id="L27577" class="LineNr">27577 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27578" class="LineNr">27578 </span> 58/pop-to-eax +<span id="L27579" class="LineNr">27579 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27580" class="LineNr">27580 </span> 89/<- %esp 5/r32/ebp +<span id="L27581" class="LineNr">27581 </span> 5d/pop-to-ebp +<span id="L27582" class="LineNr">27582 </span> c3/return +<span id="L27583" class="LineNr">27583 </span> +<span id="L27584" class="LineNr">27584 </span>== data +<span id="L27585" class="LineNr">27585 </span> +<span id="L27586" class="LineNr">27586 </span><span class="subxComment"># Table from Mu branch instructions to the reverse SubX opcodes for them.</span> +<span id="L27587" class="LineNr">27587 </span><span class="SpecialChar">Reverse-branch</span>: <span class="subxComment"># (table (handle array byte) (handle array byte))</span> +<span id="L27588" class="LineNr">27588 </span> <span class="subxComment"># a table is a stream</span> +<span id="L27589" class="LineNr">27589 </span> 0x1c0/imm32/write +<span id="L27590" class="LineNr">27590 </span> 0/imm32/read +<span id="L27591" class="LineNr">27591 </span> 0x1c0/imm32/size +<span id="L27592" class="LineNr">27592 </span> <span class="subxComment"># data</span> +<span id="L27593" class="LineNr">27593 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33636'>_string-break-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33983'>_string_0f_85_jump_label</a>/imm32 +<span id="L27594" class="LineNr">27594 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33746'>_string-loop-if-=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33983'>_string_0f_85_jump_label</a>/imm32 +<span id="L27595" class="LineNr">27595 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33651'>_string-break-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33968'>_string_0f_84_jump_label</a>/imm32 +<span id="L27596" class="LineNr">27596 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33761'>_string-loop-if-!=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33968'>_string_0f_84_jump_label</a>/imm32 +<span id="L27597" class="LineNr">27597 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33626'>_string-break-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34043'>_string_0f_8d_jump_label</a>/imm32 +<span id="L27598" class="LineNr">27598 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33736'>_string-loop-if-<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34043'>_string_0f_8d_jump_label</a>/imm32 +<span id="L27599" class="LineNr">27599 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33641'>_string-break-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34058'>_string_0f_8e_jump_label</a>/imm32 +<span id="L27600" class="LineNr">27600 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33751'>_string-loop-if-></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34058'>_string_0f_8e_jump_label</a>/imm32 +<span id="L27601" class="LineNr">27601 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33631'>_string-break-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34073'>_string_0f_8f_jump_label</a>/imm32 +<span id="L27602" class="LineNr">27602 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33741'>_string-loop-if-<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34073'>_string_0f_8f_jump_label</a>/imm32 +<span id="L27603" class="LineNr">27603 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33646'>_string-break-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34028'>_string_0f_8c_jump_label</a>/imm32 +<span id="L27604" class="LineNr">27604 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33756'>_string-loop-if->=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34028'>_string_0f_8c_jump_label</a>/imm32 +<span id="L27605" class="LineNr">27605 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33656'>_string-break-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32 +<span id="L27606" class="LineNr">27606 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33766'>_string-loop-if-addr<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32 +<span id="L27607" class="LineNr">27607 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33666'>_string-break-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32 +<span id="L27608" class="LineNr">27608 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33776'>_string-loop-if-addr></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32 +<span id="L27609" class="LineNr">27609 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33661'>_string-break-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32 +<span id="L27610" class="LineNr">27610 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33771'>_string-loop-if-addr<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32 +<span id="L27611" class="LineNr">27611 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33671'>_string-break-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32 +<span id="L27612" class="LineNr">27612 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33781'>_string-loop-if-addr>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32 +<span id="L27613" class="LineNr">27613 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33676'>_string-break-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32 +<span id="L27614" class="LineNr">27614 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33786'>_string-loop-if-float<</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32 +<span id="L27615" class="LineNr">27615 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33686'>_string-break-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32 +<span id="L27616" class="LineNr">27616 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33796'>_string-loop-if-float></a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32 +<span id="L27617" class="LineNr">27617 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33681'>_string-break-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32 +<span id="L27618" class="LineNr">27618 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33791'>_string-loop-if-float<=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32 +<span id="L27619" class="LineNr">27619 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33691'>_string-break-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32 +<span id="L27620" class="LineNr">27620 </span> 0x11/imm32/alloc-id <a href='mu.subx.html#L33801'>_string-loop-if-float>=</a>/imm32 0x11/imm32/alloc-id <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32 +<span id="L27621" class="LineNr">27621 </span> +<span id="L27622" class="LineNr">27622 </span>== code +<span id="L27623" class="LineNr">27623 </span> +<span id="L27624" class="LineNr">27624 </span><span class="subxFunction">emit-unconditional-jump-to-depth</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), depth: int, label-suffix: (addr array byte)</span> +<span id="L27625" class="LineNr">27625 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27626" class="LineNr">27626 </span> 55/push-ebp +<span id="L27627" class="LineNr">27627 </span> 89/<- %ebp 4/r32/esp +<span id="L27628" class="LineNr">27628 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27629" class="LineNr">27629 </span> 50/push-eax +<span id="L27630" class="LineNr">27630 </span> 51/push-ecx +<span id="L27631" class="LineNr">27631 </span> 52/push-edx +<span id="L27632" class="LineNr">27632 </span> 53/push-ebx +<span id="L27633" class="LineNr">27633 </span> 56/push-esi +<span id="L27634" class="LineNr">27634 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27635" class="LineNr">27635 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27636" class="LineNr">27636 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L27637" class="LineNr">27637 </span> 8b/-> *ecx 0/r32/eax +<span id="L27638" class="LineNr">27638 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27639" class="LineNr">27639 </span> 8d/copy-address *(ecx+eax-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27640" class="LineNr">27640 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27641" class="LineNr">27641 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L27642" class="LineNr">27642 </span> <span class="subxComment"># edx = depth</span> +<span id="L27643" class="LineNr">27643 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L27644" class="LineNr">27644 </span> { +<span id="L27645" class="LineNr">27645 </span><span class="Constant">$emit-unconditional-jump-to-depth:loop</span>: +<span id="L27646" class="LineNr">27646 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27647" class="LineNr">27647 </span> 39/compare %esi 1/r32/ecx +<span id="L27648" class="LineNr">27648 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27649" class="LineNr">27649 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27650" class="LineNr">27650 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27651" class="LineNr">27651 </span> 89/<- %ebx 0/r32/eax +<span id="L27652" class="LineNr">27652 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L27653" class="LineNr">27653 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27654" class="LineNr">27654 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L27655" class="LineNr">27655 </span> { +<span id="L27656" class="LineNr">27656 </span><span class="Constant">$emit-unconditional-jump-to-depth:<a href='401test.mu.html#L3'>check</a></span>: +<span id="L27657" class="LineNr">27657 </span> <span class="subxComment"># if v->block-depth != until-block-depth, continue</span> +<span id="L27658" class="LineNr">27658 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27659" class="LineNr">27659 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27660" class="LineNr">27660 </span><span class="Constant">$emit-unconditional-jump-to-depth:depth-found</span>: +<span id="L27661" class="LineNr">27661 </span> <span class="subxComment"># if v is not a literal, continue</span> +<span id="L27662" class="LineNr">27662 </span> (<a href='mu.subx.html#L26551'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27663" class="LineNr">27663 </span> 3d/compare-eax-and 0/imm32 +<span id="L27664" class="LineNr">27664 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27665" class="LineNr">27665 </span><span class="Constant">$emit-unconditional-jump-to-depth:label-found</span>: +<span id="L27666" class="LineNr">27666 </span> <span class="subxComment"># emit unconditional jump, then return</span> +<span id="L27667" class="LineNr">27667 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27668" class="LineNr">27668 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"e9/jump "</span>) +<span id="L27669" class="LineNr">27669 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27670" class="LineNr">27670 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L27671" class="LineNr">27671 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":"</span>) +<span id="L27672" class="LineNr">27672 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0x14)) +<span id="L27673" class="LineNr">27673 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32\n"</span>) +<span id="L27674" class="LineNr">27674 </span> eb/jump $emit-unconditional-jump-to-depth:end/disp8 +<span id="L27675" class="LineNr">27675 </span> } +<span id="L27676" class="LineNr">27676 </span> <span class="subxComment"># curr -= 12</span> +<span id="L27677" class="LineNr">27677 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L27678" class="LineNr">27678 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27679" class="LineNr">27679 </span> } +<span id="L27680" class="LineNr">27680 </span> <span class="subxComment"># TODO: error if no label at 'depth' was found</span> +<span id="L27681" class="LineNr">27681 </span><span class="Constant">$emit-unconditional-jump-to-depth:end</span>: +<span id="L27682" class="LineNr">27682 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27683" class="LineNr">27683 </span> 5e/pop-to-esi +<span id="L27684" class="LineNr">27684 </span> 5b/pop-to-ebx +<span id="L27685" class="LineNr">27685 </span> 5a/pop-to-edx +<span id="L27686" class="LineNr">27686 </span> 59/pop-to-ecx +<span id="L27687" class="LineNr">27687 </span> 58/pop-to-eax +<span id="L27688" class="LineNr">27688 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27689" class="LineNr">27689 </span> 89/<- %esp 5/r32/ebp +<span id="L27690" class="LineNr">27690 </span> 5d/pop-to-ebp +<span id="L27691" class="LineNr">27691 </span> c3/return +<span id="L27692" class="LineNr">27692 </span> +<span id="L27693" class="LineNr">27693 </span><span class="subxComment"># emit clean-up code for 'vars' until some block depth</span> +<span id="L27694" class="LineNr">27694 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L27695" class="LineNr">27695 </span><span class="subxFunction">emit-cleanup-code-until-depth</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), until-block-depth: int</span> +<span id="L27696" class="LineNr">27696 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27697" class="LineNr">27697 </span> 55/push-ebp +<span id="L27698" class="LineNr">27698 </span> 89/<- %ebp 4/r32/esp +<span id="L27699" class="LineNr">27699 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27700" class="LineNr">27700 </span> 50/push-eax +<span id="L27701" class="LineNr">27701 </span> 51/push-ecx +<span id="L27702" class="LineNr">27702 </span> 52/push-edx +<span id="L27703" class="LineNr">27703 </span> 53/push-ebx +<span id="L27704" class="LineNr">27704 </span> 56/push-esi +<span id="L27705" class="LineNr">27705 </span><span class="CommentedCode">#? (write-buffered Stderr "--- cleanup\n")</span> +<span id="L27706" class="LineNr">27706 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27707" class="LineNr">27707 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27708" class="LineNr">27708 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27709" class="LineNr">27709 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L27710" class="LineNr">27710 </span> 8b/-> *ecx 6/r32/esi +<span id="L27711" class="LineNr">27711 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27712" class="LineNr">27712 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27713" class="LineNr">27713 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27714" class="LineNr">27714 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L27715" class="LineNr">27715 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L27716" class="LineNr">27716 </span> 8b/-> *(ebp+0x10) 2/r32/edx +<span id="L27717" class="LineNr">27717 </span> { +<span id="L27718" class="LineNr">27718 </span><span class="Constant">$emit-cleanup-code-until-depth:loop</span>: +<span id="L27719" class="LineNr">27719 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27720" class="LineNr">27720 </span> 39/compare %esi 1/r32/ecx +<span id="L27721" class="LineNr">27721 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27722" class="LineNr">27722 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27723" class="LineNr">27723 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27724" class="LineNr">27724 </span> 89/<- %ebx 0/r32/eax +<span id="L27725" class="LineNr">27725 </span><span class="CommentedCode">#? (lookup *ebx *(ebx+4)) # Var-name</span> +<span id="L27726" class="LineNr">27726 </span><span class="CommentedCode">#? (write-buffered Stderr "var ")</span> +<span id="L27727" class="LineNr">27727 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L27728" class="LineNr">27728 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L27729" class="LineNr">27729 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L27730" class="LineNr">27730 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L27731" class="LineNr">27731 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L27732" class="LineNr">27732 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L27733" class="LineNr">27733 </span> <span class="subxComment"># if v is in a register</span> +<span id="L27734" class="LineNr">27734 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27735" class="LineNr">27735 </span> { +<span id="L27736" class="LineNr">27736 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27737" class="LineNr">27737 </span> { +<span id="L27738" class="LineNr">27738 </span><span class="Constant">$emit-cleanup-code-until-depth:check-for-previous-spill</span>: +<span id="L27739" class="LineNr">27739 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L27740" class="LineNr">27740 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27741" class="LineNr">27741 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27742" class="LineNr">27742 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-in-register</span>: +<span id="L27743" class="LineNr">27743 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27744" class="LineNr">27744 </span> (<a href='mu.subx.html#L27905'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L27745" class="LineNr">27745 </span> } +<span id="L27746" class="LineNr">27746 </span> eb/jump $emit-cleanup-code-until-depth:continue/disp8 +<span id="L27747" class="LineNr">27747 </span> } +<span id="L27748" class="LineNr">27748 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L27749" class="LineNr">27749 </span> { +<span id="L27750" class="LineNr">27750 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27751" class="LineNr">27751 </span><span class="Constant">$emit-cleanup-code-until-depth:var-on-stack</span>: +<span id="L27752" class="LineNr">27752 </span> (<a href='mu.subx.html#L26551'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27753" class="LineNr">27753 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L27754" class="LineNr">27754 </span> 3d/compare-eax-and 0/imm32 +<span id="L27755" class="LineNr">27755 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27756" class="LineNr">27756 </span><span class="Constant">$emit-cleanup-code-until-depth:reclaim-var-on-stack</span>: +<span id="L27757" class="LineNr">27757 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27758" class="LineNr">27758 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L27759" class="LineNr">27759 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27760" class="LineNr">27760 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27761" class="LineNr">27761 </span> } +<span id="L27762" class="LineNr">27762 </span><span class="Constant">$emit-cleanup-code-until-depth:continue</span>: +<span id="L27763" class="LineNr">27763 </span> <span class="subxComment"># curr -= 12</span> +<span id="L27764" class="LineNr">27764 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L27765" class="LineNr">27765 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27766" class="LineNr">27766 </span> } +<span id="L27767" class="LineNr">27767 </span><span class="Constant">$emit-cleanup-code-until-depth:end</span>: +<span id="L27768" class="LineNr">27768 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27769" class="LineNr">27769 </span> 5e/pop-to-esi +<span id="L27770" class="LineNr">27770 </span> 5b/pop-to-ebx +<span id="L27771" class="LineNr">27771 </span> 5a/pop-to-edx +<span id="L27772" class="LineNr">27772 </span> 59/pop-to-ecx +<span id="L27773" class="LineNr">27773 </span> 58/pop-to-eax +<span id="L27774" class="LineNr">27774 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27775" class="LineNr">27775 </span> 89/<- %esp 5/r32/ebp +<span id="L27776" class="LineNr">27776 </span> 5d/pop-to-ebp +<span id="L27777" class="LineNr">27777 </span> c3/return +<span id="L27778" class="LineNr">27778 </span> +<span id="L27779" class="LineNr">27779 </span><span class="subxComment"># emit clean-up code for 'vars' that don't conflict with output registers</span> +<span id="L27780" class="LineNr">27780 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L27781" class="LineNr">27781 </span><span class="subxFunction">emit-cleanup-code-for-non-outputs</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), fn: (addr function)</span> +<span id="L27782" class="LineNr">27782 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27783" class="LineNr">27783 </span> 55/push-ebp +<span id="L27784" class="LineNr">27784 </span> 89/<- %ebp 4/r32/esp +<span id="L27785" class="LineNr">27785 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27786" class="LineNr">27786 </span> 50/push-eax +<span id="L27787" class="LineNr">27787 </span> 51/push-ecx +<span id="L27788" class="LineNr">27788 </span> 52/push-edx +<span id="L27789" class="LineNr">27789 </span> 53/push-ebx +<span id="L27790" class="LineNr">27790 </span> 56/push-esi +<span id="L27791" class="LineNr">27791 </span> 57/push-edi +<span id="L27792" class="LineNr">27792 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27793" class="LineNr">27793 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27794" class="LineNr">27794 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L27795" class="LineNr">27795 </span> 8b/-> *ecx 6/r32/esi +<span id="L27796" class="LineNr">27796 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27797" class="LineNr">27797 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27798" class="LineNr">27798 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27799" class="LineNr">27799 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L27800" class="LineNr">27800 </span> { +<span id="L27801" class="LineNr">27801 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:loop</span>: +<span id="L27802" class="LineNr">27802 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27803" class="LineNr">27803 </span> 39/compare %esi 1/r32/ecx +<span id="L27804" class="LineNr">27804 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27805" class="LineNr">27805 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L27806" class="LineNr">27806 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L27807" class="LineNr">27807 </span> 89/<- %ebx 0/r32/eax +<span id="L27808" class="LineNr">27808 </span> <span class="subxComment"># if v is in a register</span> +<span id="L27809" class="LineNr">27809 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27810" class="LineNr">27810 </span> { +<span id="L27811" class="LineNr">27811 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27812" class="LineNr">27812 </span> { +<span id="L27813" class="LineNr">27813 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:check-for-previous-spill</span>: +<span id="L27814" class="LineNr">27814 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L27815" class="LineNr">27815 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27816" class="LineNr">27816 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27817" class="LineNr">27817 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register</span>: +<span id="L27818" class="LineNr">27818 </span> <span class="subxComment"># var reg/edi: (addr array name) = v->register</span> +<span id="L27819" class="LineNr">27819 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27820" class="LineNr">27820 </span> 89/<- %edi 0/r32/eax +<span id="L27821" class="LineNr">27821 </span> <span class="subxComment"># if reg is not in function outputs, emit a pop</span> +<span id="L27822" class="LineNr">27822 </span> (<a href='mu.subx.html#L28451'>reg-in-function-outputs?</a> *(ebp+0x10) %edi) <span class="subxComment"># => eax</span> +<span id="L27823" class="LineNr">27823 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27824" class="LineNr">27824 </span> { +<span id="L27825" class="LineNr">27825 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27826" class="LineNr">27826 </span> (<a href='mu.subx.html#L27905'>emit-pop-register</a> *(ebp+8) %edi) +<span id="L27827" class="LineNr">27827 </span> eb/jump $emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done/disp8 +<span id="L27828" class="LineNr">27828 </span> } +<span id="L27829" class="LineNr">27829 </span> <span class="subxComment"># otherwise just drop it from the stack</span> +<span id="L27830" class="LineNr">27830 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27831" class="LineNr">27831 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp 4/imm32\n"</span>) +<span id="L27832" class="LineNr">27832 </span> } +<span id="L27833" class="LineNr">27833 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-in-register-done</span>: +<span id="L27834" class="LineNr">27834 </span> eb/jump $emit-cleanup-code-for-non-outputs:continue/disp8 +<span id="L27835" class="LineNr">27835 </span> } +<span id="L27836" class="LineNr">27836 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L27837" class="LineNr">27837 </span> { +<span id="L27838" class="LineNr">27838 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27839" class="LineNr">27839 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:var-on-stack</span>: +<span id="L27840" class="LineNr">27840 </span> (<a href='mu.subx.html#L26551'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27841" class="LineNr">27841 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L27842" class="LineNr">27842 </span> 3d/compare-eax-and 0/imm32 +<span id="L27843" class="LineNr">27843 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27844" class="LineNr">27844 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:reclaim-var-on-stack</span>: +<span id="L27845" class="LineNr">27845 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27846" class="LineNr">27846 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L27847" class="LineNr">27847 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L27848" class="LineNr">27848 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L27849" class="LineNr">27849 </span> } +<span id="L27850" class="LineNr">27850 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:continue</span>: +<span id="L27851" class="LineNr">27851 </span> <span class="subxComment"># curr -= 12</span> +<span id="L27852" class="LineNr">27852 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L27853" class="LineNr">27853 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L27854" class="LineNr">27854 </span> } +<span id="L27855" class="LineNr">27855 </span><span class="Constant">$emit-cleanup-code-for-non-outputs:end</span>: +<span id="L27856" class="LineNr">27856 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27857" class="LineNr">27857 </span> 5f/pop-to-edi +<span id="L27858" class="LineNr">27858 </span> 5e/pop-to-esi +<span id="L27859" class="LineNr">27859 </span> 5b/pop-to-ebx +<span id="L27860" class="LineNr">27860 </span> 5a/pop-to-edx +<span id="L27861" class="LineNr">27861 </span> 59/pop-to-ecx +<span id="L27862" class="LineNr">27862 </span> 58/pop-to-eax +<span id="L27863" class="LineNr">27863 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27864" class="LineNr">27864 </span> 89/<- %esp 5/r32/ebp +<span id="L27865" class="LineNr">27865 </span> 5d/pop-to-ebp +<span id="L27866" class="LineNr">27866 </span> c3/return +<span id="L27867" class="LineNr">27867 </span> +<span id="L27868" class="LineNr">27868 </span><span class="subxFunction">emit-push-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L27869" class="LineNr">27869 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27870" class="LineNr">27870 </span> 55/push-ebp +<span id="L27871" class="LineNr">27871 </span> 89/<- %ebp 4/r32/esp +<span id="L27872" class="LineNr">27872 </span> <span class="subxComment"># eax = reg</span> +<span id="L27873" class="LineNr">27873 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27874" class="LineNr">27874 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L27875" class="LineNr">27875 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L27876" class="LineNr">27876 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L27877" class="LineNr">27877 </span> <span class="subxComment"># if (prefix == 'x') push xmm register</span> +<span id="L27878" class="LineNr">27878 </span> { +<span id="L27879" class="LineNr">27879 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L27880" class="LineNr">27880 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27881" class="LineNr">27881 </span> <span class="subxComment"># TODO validate register</span> +<span id="L27882" class="LineNr">27882 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27883" class="LineNr">27883 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 5/subop/subtract %esp 4/imm32\n"</span>) +<span id="L27884" class="LineNr">27884 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27885" class="LineNr">27885 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 11/<- *esp "</span>) +<span id="L27886" class="LineNr">27886 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L27887" class="LineNr">27887 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27888" class="LineNr">27888 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L27889" class="LineNr">27889 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L27890" class="LineNr">27890 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L27891" class="LineNr">27891 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L27892" class="LineNr">27892 </span> e9/jump $emit-push-register:end/disp32 +<span id="L27893" class="LineNr">27893 </span> } +<span id="L27894" class="LineNr">27894 </span> <span class="subxComment"># otherwise push gp register</span> +<span id="L27895" class="LineNr">27895 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27896" class="LineNr">27896 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"ff 6/subop/push %"</span>) +<span id="L27897" class="LineNr">27897 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L27898" class="LineNr">27898 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L27899" class="LineNr">27899 </span><span class="Constant">$emit-push-register:end</span>: +<span id="L27900" class="LineNr">27900 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27901" class="LineNr">27901 </span> 89/<- %esp 5/r32/ebp +<span id="L27902" class="LineNr">27902 </span> 5d/pop-to-ebp +<span id="L27903" class="LineNr">27903 </span> c3/return +<span id="L27904" class="LineNr">27904 </span> +<span id="L27905" class="LineNr">27905 </span><span class="subxFunction">emit-pop-register</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte)</span> +<span id="L27906" class="LineNr">27906 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27907" class="LineNr">27907 </span> 55/push-ebp +<span id="L27908" class="LineNr">27908 </span> 89/<- %ebp 4/r32/esp +<span id="L27909" class="LineNr">27909 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27910" class="LineNr">27910 </span> 50/push-eax +<span id="L27911" class="LineNr">27911 </span> <span class="subxComment"># eax = reg</span> +<span id="L27912" class="LineNr">27912 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27913" class="LineNr">27913 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[0]</span> +<span id="L27914" class="LineNr">27914 </span> 8a/copy-byte *(eax+4) 0/r32/AL +<span id="L27915" class="LineNr">27915 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L27916" class="LineNr">27916 </span> <span class="subxComment"># if (prefix == 'x') pop to xmm register</span> +<span id="L27917" class="LineNr">27917 </span> { +<span id="L27918" class="LineNr">27918 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L27919" class="LineNr">27919 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27920" class="LineNr">27920 </span> <span class="subxComment"># TODO validate register</span> +<span id="L27921" class="LineNr">27921 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27922" class="LineNr">27922 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f3 0f 10/-> *esp "</span>) +<span id="L27923" class="LineNr">27923 </span> <span class="subxComment"># var prefix/eax: byte = reg->data[3]</span> +<span id="L27924" class="LineNr">27924 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L27925" class="LineNr">27925 </span> 8a/copy-byte *(eax+7) 0/r32/AL +<span id="L27926" class="LineNr">27926 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L27927" class="LineNr">27927 </span> (<a href='115write-byte.subx.html#L33'>write-byte-buffered</a> *(ebp+8) %eax) +<span id="L27928" class="LineNr">27928 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32\n"</span>) +<span id="L27929" class="LineNr">27929 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27930" class="LineNr">27930 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp 4/imm32\n"</span>) +<span id="L27931" class="LineNr">27931 </span> e9/jump $emit-pop-register:end/disp32 +<span id="L27932" class="LineNr">27932 </span> } +<span id="L27933" class="LineNr">27933 </span> <span class="subxComment"># otherwise pop to gp register</span> +<span id="L27934" class="LineNr">27934 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L27935" class="LineNr">27935 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8f 0/subop/pop %"</span>) +<span id="L27936" class="LineNr">27936 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L27937" class="LineNr">27937 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L27938" class="LineNr">27938 </span><span class="Constant">$emit-pop-register:end</span>: +<span id="L27939" class="LineNr">27939 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L27940" class="LineNr">27940 </span> 58/pop-to-eax +<span id="L27941" class="LineNr">27941 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L27942" class="LineNr">27942 </span> 89/<- %esp 5/r32/ebp +<span id="L27943" class="LineNr">27943 </span> 5d/pop-to-ebp +<span id="L27944" class="LineNr">27944 </span> c3/return +<span id="L27945" class="LineNr">27945 </span> +<span id="L27946" class="LineNr">27946 </span><span class="subxComment"># emit clean-up code for 'vars' until a given label is encountered</span> +<span id="L27947" class="LineNr">27947 </span><span class="subxComment"># doesn't actually modify 'vars' so we need traverse manually inside the stack</span> +<span id="L27948" class="LineNr">27948 </span><span class="subxFunction">emit-cleanup-code-until-target</span>: <span class="subxComment"># out: (addr buffered-file), vars: (addr stack live-var), until-block-label: (addr array byte)</span> +<span id="L27949" class="LineNr">27949 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L27950" class="LineNr">27950 </span> 55/push-ebp +<span id="L27951" class="LineNr">27951 </span> 89/<- %ebp 4/r32/esp +<span id="L27952" class="LineNr">27952 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L27953" class="LineNr">27953 </span> 50/push-eax +<span id="L27954" class="LineNr">27954 </span> 51/push-ecx +<span id="L27955" class="LineNr">27955 </span> 52/push-edx +<span id="L27956" class="LineNr">27956 </span> 53/push-ebx +<span id="L27957" class="LineNr">27957 </span> <span class="subxComment"># ecx = vars</span> +<span id="L27958" class="LineNr">27958 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L27959" class="LineNr">27959 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L27960" class="LineNr">27960 </span> 8b/-> *ecx 0/r32/eax +<span id="L27961" class="LineNr">27961 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L27962" class="LineNr">27962 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L27963" class="LineNr">27963 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L27964" class="LineNr">27964 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L27965" class="LineNr">27965 </span> { +<span id="L27966" class="LineNr">27966 </span><span class="Constant">$emit-cleanup-code-until-target:loop</span>: +<span id="L27967" class="LineNr">27967 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L27968" class="LineNr">27968 </span> 39/compare %edx 1/r32/ecx +<span id="L27969" class="LineNr">27969 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L27970" class="LineNr">27970 </span> <span class="subxComment"># var v/ebx: (handle var) = lookup(*curr)</span> +<span id="L27971" class="LineNr">27971 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L27972" class="LineNr">27972 </span> 89/<- %ebx 0/r32/eax +<span id="L27973" class="LineNr">27973 </span> <span class="subxComment"># if (v->name == until-block-label) break</span> +<span id="L27974" class="LineNr">27974 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L27975" class="LineNr">27975 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L27976" class="LineNr">27976 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27977" class="LineNr">27977 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L27978" class="LineNr">27978 </span> <span class="subxComment"># if v is in a register</span> +<span id="L27979" class="LineNr">27979 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L27980" class="LineNr">27980 </span> { +<span id="L27981" class="LineNr">27981 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L27982" class="LineNr">27982 </span> { +<span id="L27983" class="LineNr">27983 </span><span class="Constant">$emit-cleanup-code-until-target:check-for-previous-spill</span>: +<span id="L27984" class="LineNr">27984 </span> 8b/-> *(edx+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L27985" class="LineNr">27985 </span> 3d/compare-eax-and 0/imm32/false +<span id="L27986" class="LineNr">27986 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L27987" class="LineNr">27987 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-in-register</span>: +<span id="L27988" class="LineNr">27988 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L27989" class="LineNr">27989 </span> (<a href='mu.subx.html#L27905'>emit-pop-register</a> *(ebp+8) %eax) +<span id="L27990" class="LineNr">27990 </span> } +<span id="L27991" class="LineNr">27991 </span> eb/jump $emit-cleanup-code-until-target:continue/disp8 +<span id="L27992" class="LineNr">27992 </span> } +<span id="L27993" class="LineNr">27993 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L27994" class="LineNr">27994 </span> { +<span id="L27995" class="LineNr">27995 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L27996" class="LineNr">27996 </span><span class="Constant">$emit-cleanup-code-until-target:reclaim-var-on-stack</span>: +<span id="L27997" class="LineNr">27997 </span> (<a href='mu.subx.html#L26551'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L27998" class="LineNr">27998 </span> <span class="subxComment"># don't emit code for labels</span> +<span id="L27999" class="LineNr">27999 </span> 3d/compare-eax-and 0/imm32 +<span id="L28000" class="LineNr">28000 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28001" class="LineNr">28001 </span> <span class="subxComment">#</span> +<span id="L28002" class="LineNr">28002 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28003" class="LineNr">28003 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 0/subop/add %esp "</span>) +<span id="L28004" class="LineNr">28004 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L28005" class="LineNr">28005 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28006" class="LineNr">28006 </span> } +<span id="L28007" class="LineNr">28007 </span><span class="Constant">$emit-cleanup-code-until-target:continue</span>: +<span id="L28008" class="LineNr">28008 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28009" class="LineNr">28009 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28010" class="LineNr">28010 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28011" class="LineNr">28011 </span> } +<span id="L28012" class="LineNr">28012 </span><span class="Constant">$emit-cleanup-code-until-target:end</span>: +<span id="L28013" class="LineNr">28013 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28014" class="LineNr">28014 </span> 5b/pop-to-ebx +<span id="L28015" class="LineNr">28015 </span> 5a/pop-to-edx +<span id="L28016" class="LineNr">28016 </span> 59/pop-to-ecx +<span id="L28017" class="LineNr">28017 </span> 58/pop-to-eax +<span id="L28018" class="LineNr">28018 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28019" class="LineNr">28019 </span> 89/<- %esp 5/r32/ebp +<span id="L28020" class="LineNr">28020 </span> 5d/pop-to-ebp +<span id="L28021" class="LineNr">28021 </span> c3/return +<span id="L28022" class="LineNr">28022 </span> +<span id="L28023" class="LineNr">28023 </span><span class="subxComment"># update Curr-local-stack-offset assuming vars until some block depth are popped</span> +<span id="L28024" class="LineNr">28024 </span><span class="subxComment"># doesn't actually modify 'vars', so we need traverse manually inside the stack</span> +<span id="L28025" class="LineNr">28025 </span><span class="subxFunction">clean-up-stack-offset-state</span>: <span class="subxComment"># vars: (addr stack live-var), until-block-depth: int</span> +<span id="L28026" class="LineNr">28026 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28027" class="LineNr">28027 </span> 55/push-ebp +<span id="L28028" class="LineNr">28028 </span> 89/<- %ebp 4/r32/esp +<span id="L28029" class="LineNr">28029 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28030" class="LineNr">28030 </span> 50/push-eax +<span id="L28031" class="LineNr">28031 </span> 51/push-ecx +<span id="L28032" class="LineNr">28032 </span> 52/push-edx +<span id="L28033" class="LineNr">28033 </span> 53/push-ebx +<span id="L28034" class="LineNr">28034 </span> 56/push-esi +<span id="L28035" class="LineNr">28035 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28036" class="LineNr">28036 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28037" class="LineNr">28037 </span> <span class="subxComment"># var esi: int = vars->top</span> +<span id="L28038" class="LineNr">28038 </span> 8b/-> *ecx 6/r32/esi +<span id="L28039" class="LineNr">28039 </span> <span class="subxComment"># var curr/esi: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28040" class="LineNr">28040 </span> 8d/copy-address *(ecx+esi-4) 6/r32/esi <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28041" class="LineNr">28041 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28042" class="LineNr">28042 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28043" class="LineNr">28043 </span> <span class="subxComment"># edx = until-block-depth</span> +<span id="L28044" class="LineNr">28044 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L28045" class="LineNr">28045 </span> { +<span id="L28046" class="LineNr">28046 </span><span class="Constant">$clean-up-stack-offset-state:loop</span>: +<span id="L28047" class="LineNr">28047 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28048" class="LineNr">28048 </span> 39/compare %esi 1/r32/ecx +<span id="L28049" class="LineNr">28049 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28050" class="LineNr">28050 </span> <span class="subxComment"># var v/ebx: (addr var) = lookup(*curr)</span> +<span id="L28051" class="LineNr">28051 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L28052" class="LineNr">28052 </span> 89/<- %ebx 0/r32/eax +<span id="L28053" class="LineNr">28053 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L28054" class="LineNr">28054 </span> 39/compare *(ebx+0x10) 2/r32/edx <span class="subxComment"># Var-block-depth</span> +<span id="L28055" class="LineNr">28055 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28056" class="LineNr">28056 </span> <span class="subxComment"># if v is in a register</span> +<span id="L28057" class="LineNr">28057 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28058" class="LineNr">28058 </span> { +<span id="L28059" class="LineNr">28059 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28060" class="LineNr">28060 </span> { +<span id="L28061" class="LineNr">28061 </span><span class="Constant">$clean-up-stack-offset-state:check-for-previous-spill</span>: +<span id="L28062" class="LineNr">28062 </span> 8b/-> *(esi+8) 0/r32/eax <span class="subxComment"># Live-var-register-spilled</span> +<span id="L28063" class="LineNr">28063 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28064" class="LineNr">28064 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28065" class="LineNr">28065 </span><span class="Constant">$clean-up-stack-offset-state:reclaim-var-in-register</span>: +<span id="L28066" class="LineNr">28066 </span> 81 0/subop/add *<span class="SpecialChar"><a href='mu.subx.html#L26954'>Curr-local-stack-offset</a></span> 4/imm32 +<span id="L28067" class="LineNr">28067 </span> } +<span id="L28068" class="LineNr">28068 </span> eb/jump $clean-up-stack-offset-state:continue/disp8 +<span id="L28069" class="LineNr">28069 </span> } +<span id="L28070" class="LineNr">28070 </span> <span class="subxComment"># otherwise v is on the stack</span> +<span id="L28071" class="LineNr">28071 </span> { +<span id="L28072" class="LineNr">28072 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28073" class="LineNr">28073 </span><span class="Constant">$clean-up-stack-offset-state:var-on-stack</span>: +<span id="L28074" class="LineNr">28074 </span> (<a href='mu.subx.html#L26551'>size-of</a> %ebx) <span class="subxComment"># => eax</span> +<span id="L28075" class="LineNr">28075 </span> 01/add-to *<span class="SpecialChar"><a href='mu.subx.html#L26954'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L28076" class="LineNr">28076 </span> } +<span id="L28077" class="LineNr">28077 </span><span class="Constant">$clean-up-stack-offset-state:continue</span>: +<span id="L28078" class="LineNr">28078 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28079" class="LineNr">28079 </span> 81 5/subop/subtract %esi 0xc/imm32 +<span id="L28080" class="LineNr">28080 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28081" class="LineNr">28081 </span> } +<span id="L28082" class="LineNr">28082 </span><span class="Constant">$clean-up-stack-offset-state:end</span>: +<span id="L28083" class="LineNr">28083 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28084" class="LineNr">28084 </span> 5e/pop-to-esi +<span id="L28085" class="LineNr">28085 </span> 5b/pop-to-ebx +<span id="L28086" class="LineNr">28086 </span> 5a/pop-to-edx +<span id="L28087" class="LineNr">28087 </span> 59/pop-to-ecx +<span id="L28088" class="LineNr">28088 </span> 58/pop-to-eax +<span id="L28089" class="LineNr">28089 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28090" class="LineNr">28090 </span> 89/<- %esp 5/r32/ebp +<span id="L28091" class="LineNr">28091 </span> 5d/pop-to-ebp +<span id="L28092" class="LineNr">28092 </span> c3/return +<span id="L28093" class="LineNr">28093 </span> +<span id="L28094" class="LineNr">28094 </span><span class="subxComment"># Return true if there isn't a variable in 'vars' with the same block-depth</span> +<span id="L28095" class="LineNr">28095 </span><span class="subxComment"># and register as 'v'.</span> +<span id="L28096" class="LineNr">28096 </span><span class="subxComment"># 'v' is guaranteed not to be within 'vars'.</span> +<span id="L28097" class="LineNr">28097 </span><span class="subxFunction">not-yet-spilled-this-block?</span>: <span class="subxComment"># v: (addr var), vars: (addr stack live-var) -> result/eax: boolean</span> +<span id="L28098" class="LineNr">28098 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28099" class="LineNr">28099 </span> 55/push-ebp +<span id="L28100" class="LineNr">28100 </span> 89/<- %ebp 4/r32/esp +<span id="L28101" class="LineNr">28101 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28102" class="LineNr">28102 </span> 51/push-ecx +<span id="L28103" class="LineNr">28103 </span> 52/push-edx +<span id="L28104" class="LineNr">28104 </span> 53/push-ebx +<span id="L28105" class="LineNr">28105 </span> 56/push-esi +<span id="L28106" class="LineNr">28106 </span> 57/push-edi +<span id="L28107" class="LineNr">28107 </span> <span class="subxComment"># ecx = vars</span> +<span id="L28108" class="LineNr">28108 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28109" class="LineNr">28109 </span> <span class="subxComment"># var eax: int = vars->top</span> +<span id="L28110" class="LineNr">28110 </span> 8b/-> *ecx 0/r32/eax +<span id="L28111" class="LineNr">28111 </span> <span class="subxComment"># var curr/edx: (addr handle var) = &vars->data[vars->top - 12]</span> +<span id="L28112" class="LineNr">28112 </span> 8d/copy-address *(ecx+eax-4) 2/r32/edx <span class="subxComment"># vars + 8 + vars->top - 12/Live-var-size</span> +<span id="L28113" class="LineNr">28113 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28114" class="LineNr">28114 </span> 8d/copy-address *(ecx+8) 1/r32/ecx +<span id="L28115" class="LineNr">28115 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L28116" class="LineNr">28116 </span> 8b/-> *(ebp+8) 3/r32/ebx +<span id="L28117" class="LineNr">28117 </span> 8b/-> *(ebx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28118" class="LineNr">28118 </span> <span class="subxComment"># var needle/esi: (addr array byte) = v->register</span> +<span id="L28119" class="LineNr">28119 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28120" class="LineNr">28120 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28121" class="LineNr">28121 </span> 89/<- %esi 0/r32/eax +<span id="L28122" class="LineNr">28122 </span> { +<span id="L28123" class="LineNr">28123 </span><span class="Constant">$not-yet-spilled-this-block?:loop</span>: +<span id="L28124" class="LineNr">28124 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28125" class="LineNr">28125 </span> 39/compare %edx 1/r32/ecx +<span id="L28126" class="LineNr">28126 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28127" class="LineNr">28127 </span> <span class="subxComment"># var cand/edi: (addr var) = lookup(*curr)</span> +<span id="L28128" class="LineNr">28128 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># => eax</span> +<span id="L28129" class="LineNr">28129 </span> 89/<- %edi 0/r32/eax +<span id="L28130" class="LineNr">28130 </span> <span class="subxComment"># if (cand->block-depth < depth) break</span> +<span id="L28131" class="LineNr">28131 </span> 39/compare *(edi+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28132" class="LineNr">28132 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28133" class="LineNr">28133 </span> <span class="subxComment"># var cand-reg/edi: (array array byte) = cand->reg</span> +<span id="L28134" class="LineNr">28134 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28135" class="LineNr">28135 </span> 89/<- %edi 0/r32/eax +<span id="L28136" class="LineNr">28136 </span> <span class="subxComment"># if (cand-reg == null) continue</span> +<span id="L28137" class="LineNr">28137 </span> { +<span id="L28138" class="LineNr">28138 </span><span class="Constant">$not-yet-spilled-this-block?:check-reg</span>: +<span id="L28139" class="LineNr">28139 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L28140" class="LineNr">28140 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28141" class="LineNr">28141 </span> <span class="subxComment"># if (cand-reg == needle) return true</span> +<span id="L28142" class="LineNr">28142 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L28143" class="LineNr">28143 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28144" class="LineNr">28144 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28145" class="LineNr">28145 </span><span class="Constant">$not-yet-spilled-this-block?:return-false</span>: +<span id="L28146" class="LineNr">28146 </span> b8/copy-to-eax 0/imm32/false +<span id="L28147" class="LineNr">28147 </span> eb/jump $not-yet-spilled-this-block?:end/disp8 +<span id="L28148" class="LineNr">28148 </span> } +<span id="L28149" class="LineNr">28149 </span><span class="Constant">$not-yet-spilled-this-block?:continue</span>: +<span id="L28150" class="LineNr">28150 </span> <span class="subxComment"># curr -= 12</span> +<span id="L28151" class="LineNr">28151 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28152" class="LineNr">28152 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28153" class="LineNr">28153 </span> } +<span id="L28154" class="LineNr">28154 </span><span class="Constant">$not-yet-spilled-this-block?:return-true</span>: +<span id="L28155" class="LineNr">28155 </span> <span class="subxComment"># return true</span> +<span id="L28156" class="LineNr">28156 </span> b8/copy-to-eax 1/imm32/true +<span id="L28157" class="LineNr">28157 </span><span class="Constant">$not-yet-spilled-this-block?:end</span>: +<span id="L28158" class="LineNr">28158 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28159" class="LineNr">28159 </span> 5f/pop-to-edi +<span id="L28160" class="LineNr">28160 </span> 5e/pop-to-esi +<span id="L28161" class="LineNr">28161 </span> 5b/pop-to-ebx +<span id="L28162" class="LineNr">28162 </span> 5a/pop-to-edx +<span id="L28163" class="LineNr">28163 </span> 59/pop-to-ecx +<span id="L28164" class="LineNr">28164 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28165" class="LineNr">28165 </span> 89/<- %esp 5/r32/ebp +<span id="L28166" class="LineNr">28166 </span> 5d/pop-to-ebp +<span id="L28167" class="LineNr">28167 </span> c3/return +<span id="L28168" class="LineNr">28168 </span> +<span id="L28169" class="LineNr">28169 </span><span class="subxComment"># could the register of 'v' ever be written to by one of the vars in fn-outputs?</span> +<span id="L28170" class="LineNr">28170 </span><span class="subxFunction">will-not-write-some-register?</span>: <span class="subxComment"># v: (addr var), stmts: (addr list stmt), fn: (addr function) -> result/eax: boolean</span> +<span id="L28171" class="LineNr">28171 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28172" class="LineNr">28172 </span> 55/push-ebp +<span id="L28173" class="LineNr">28173 </span> 89/<- %ebp 4/r32/esp +<span id="L28174" class="LineNr">28174 </span> <span class="subxComment"># eax = v</span> +<span id="L28175" class="LineNr">28175 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28176" class="LineNr">28176 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L28177" class="LineNr">28177 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28178" class="LineNr">28178 </span> <span class="subxComment"># var target/eax: (addr var) = find-register(fn-outputs, reg)</span> +<span id="L28179" class="LineNr">28179 </span> (<a href='mu.subx.html#L28200'>find-register</a> *(ebp+0x10) %eax) <span class="subxComment"># => eax</span> +<span id="L28180" class="LineNr">28180 </span> <span class="subxComment"># if (target == 0) return true</span> +<span id="L28181" class="LineNr">28181 </span> { +<span id="L28182" class="LineNr">28182 </span> 3d/compare-eax-and 0/imm32 +<span id="L28183" class="LineNr">28183 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28184" class="LineNr">28184 </span> b8/copy-to-eax 1/imm32/true +<span id="L28185" class="LineNr">28185 </span> eb/jump $will-not-write-some-register?:end/disp8 +<span id="L28186" class="LineNr">28186 </span> } +<span id="L28187" class="LineNr">28187 </span> <span class="subxComment"># return !assigns-in-stmts?(stmts, target)</span> +<span id="L28188" class="LineNr">28188 </span> (<a href='mu.subx.html#L28242'>assigns-in-stmts?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L28189" class="LineNr">28189 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28190" class="LineNr">28190 </span> <span class="subxComment"># assume: true = 1, so no need to mask with 0x000000ff</span> +<span id="L28191" class="LineNr">28191 </span> 0f 94/set-if-= %al +<span id="L28192" class="LineNr">28192 </span><span class="Constant">$will-not-write-some-register?:end</span>: +<span id="L28193" class="LineNr">28193 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28194" class="LineNr">28194 </span> 89/<- %esp 5/r32/ebp +<span id="L28195" class="LineNr">28195 </span> 5d/pop-to-ebp +<span id="L28196" class="LineNr">28196 </span> c3/return +<span id="L28197" class="LineNr">28197 </span> +<span id="L28198" class="LineNr">28198 </span><span class="subxComment"># return fn output with matching register</span> +<span id="L28199" class="LineNr">28199 </span><span class="subxComment"># always returns false if 'reg' is null</span> +<span id="L28200" class="LineNr">28200 </span><span class="subxFunction">find-register</span>: <span class="subxComment"># fn: (addr function), reg: (addr array byte) -> result/eax: (addr var)</span> +<span id="L28201" class="LineNr">28201 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28202" class="LineNr">28202 </span> 55/push-ebp +<span id="L28203" class="LineNr">28203 </span> 89/<- %ebp 4/r32/esp +<span id="L28204" class="LineNr">28204 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28205" class="LineNr">28205 </span> 51/push-ecx +<span id="L28206" class="LineNr">28206 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L28207" class="LineNr">28207 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28208" class="LineNr">28208 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x10) *(ecx+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L28209" class="LineNr">28209 </span> 89/<- %ecx 0/r32/eax +<span id="L28210" class="LineNr">28210 </span> { +<span id="L28211" class="LineNr">28211 </span><span class="Constant">$find-register:loop</span>: +<span id="L28212" class="LineNr">28212 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28213" class="LineNr">28213 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28214" class="LineNr">28214 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28215" class="LineNr">28215 </span> <span class="subxComment"># eax = curr->value->register</span> +<span id="L28216" class="LineNr">28216 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28217" class="LineNr">28217 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28218" class="LineNr">28218 </span> <span class="subxComment"># if (eax == reg) return curr->value</span> +<span id="L28219" class="LineNr">28219 </span><span class="Constant">$find-register:compare</span>: +<span id="L28220" class="LineNr">28220 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> *(ebp+0xc) %eax) <span class="subxComment"># => eax</span> +<span id="L28221" class="LineNr">28221 </span> { +<span id="L28222" class="LineNr">28222 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28223" class="LineNr">28223 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28224" class="LineNr">28224 </span><span class="Constant">$find-register:found</span>: +<span id="L28225" class="LineNr">28225 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28226" class="LineNr">28226 </span> eb/jump $find-register:end/disp8 +<span id="L28227" class="LineNr">28227 </span> } +<span id="L28228" class="LineNr">28228 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28229" class="LineNr">28229 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28230" class="LineNr">28230 </span> 89/<- %ecx 0/r32/eax +<span id="L28231" class="LineNr">28231 </span> <span class="subxComment">#</span> +<span id="L28232" class="LineNr">28232 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28233" class="LineNr">28233 </span> } +<span id="L28234" class="LineNr">28234 </span><span class="Constant">$find-register:end</span>: +<span id="L28235" class="LineNr">28235 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28236" class="LineNr">28236 </span> 59/pop-to-ecx +<span id="L28237" class="LineNr">28237 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28238" class="LineNr">28238 </span> 89/<- %esp 5/r32/ebp +<span id="L28239" class="LineNr">28239 </span> 5d/pop-to-ebp +<span id="L28240" class="LineNr">28240 </span> c3/return +<span id="L28241" class="LineNr">28241 </span> +<span id="L28242" class="LineNr">28242 </span><span class="subxFunction">assigns-in-stmts?</span>: <span class="subxComment"># stmts: (addr list stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L28243" class="LineNr">28243 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28244" class="LineNr">28244 </span> 55/push-ebp +<span id="L28245" class="LineNr">28245 </span> 89/<- %ebp 4/r32/esp +<span id="L28246" class="LineNr">28246 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28247" class="LineNr">28247 </span> 51/push-ecx +<span id="L28248" class="LineNr">28248 </span> <span class="subxComment"># var curr/ecx: (addr list stmt) = stmts</span> +<span id="L28249" class="LineNr">28249 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28250" class="LineNr">28250 </span> { +<span id="L28251" class="LineNr">28251 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28252" class="LineNr">28252 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28253" class="LineNr">28253 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28254" class="LineNr">28254 </span> <span class="subxComment"># if assigns-in-stmt?(curr->value, v) return true</span> +<span id="L28255" class="LineNr">28255 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28256" class="LineNr">28256 </span> (<a href='mu.subx.html#L28273'>assigns-in-stmt?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28257" class="LineNr">28257 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28258" class="LineNr">28258 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28259" class="LineNr">28259 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28260" class="LineNr">28260 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28261" class="LineNr">28261 </span> 89/<- %ecx 0/r32/eax +<span id="L28262" class="LineNr">28262 </span> <span class="subxComment">#</span> +<span id="L28263" class="LineNr">28263 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28264" class="LineNr">28264 </span> } +<span id="L28265" class="LineNr">28265 </span><span class="Constant">$assigns-in-stmts?:end</span>: +<span id="L28266" class="LineNr">28266 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28267" class="LineNr">28267 </span> 59/pop-to-ecx +<span id="L28268" class="LineNr">28268 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28269" class="LineNr">28269 </span> 89/<- %esp 5/r32/ebp +<span id="L28270" class="LineNr">28270 </span> 5d/pop-to-ebp +<span id="L28271" class="LineNr">28271 </span> c3/return +<span id="L28272" class="LineNr">28272 </span> +<span id="L28273" class="LineNr">28273 </span><span class="subxFunction">assigns-in-stmt?</span>: <span class="subxComment"># stmt: (addr stmt), v: (addr var) -> result/eax: boolean</span> +<span id="L28274" class="LineNr">28274 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28275" class="LineNr">28275 </span> 55/push-ebp +<span id="L28276" class="LineNr">28276 </span> 89/<- %ebp 4/r32/esp +<span id="L28277" class="LineNr">28277 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28278" class="LineNr">28278 </span> 51/push-ecx +<span id="L28279" class="LineNr">28279 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L28280" class="LineNr">28280 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28281" class="LineNr">28281 </span> <span class="subxComment"># if stmt is a stmt1, return assigns-in-stmt-vars?(stmt->outputs, v)</span> +<span id="L28282" class="LineNr">28282 </span> { +<span id="L28283" class="LineNr">28283 </span> 81 7/subop/compare *ecx 1/imm32/stmt1 <span class="subxComment"># Stmt-tag</span> +<span id="L28284" class="LineNr">28284 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28285" class="LineNr">28285 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L28286" class="LineNr">28286 </span> (<a href='mu.subx.html#L28307'>assigns-in-stmt-vars?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28287" class="LineNr">28287 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L28288" class="LineNr">28288 </span> } +<span id="L28289" class="LineNr">28289 </span> <span class="subxComment"># if stmt is a block, return assigns-in-stmts?(stmt->stmts, v)</span> +<span id="L28290" class="LineNr">28290 </span> { +<span id="L28291" class="LineNr">28291 </span> 81 7/subop/compare *ecx 0/imm32/block <span class="subxComment"># Stmt-tag</span> +<span id="L28292" class="LineNr">28292 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28293" class="LineNr">28293 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L28294" class="LineNr">28294 </span> (<a href='mu.subx.html#L28242'>assigns-in-stmts?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28295" class="LineNr">28295 </span> eb/jump $assigns-in-stmt?:end/disp8 +<span id="L28296" class="LineNr">28296 </span> } +<span id="L28297" class="LineNr">28297 </span> <span class="subxComment"># otherwise return false</span> +<span id="L28298" class="LineNr">28298 </span> b8/copy 0/imm32/false +<span id="L28299" class="LineNr">28299 </span><span class="Constant">$assigns-in-stmt?:end</span>: +<span id="L28300" class="LineNr">28300 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28301" class="LineNr">28301 </span> 59/pop-to-ecx +<span id="L28302" class="LineNr">28302 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28303" class="LineNr">28303 </span> 89/<- %esp 5/r32/ebp +<span id="L28304" class="LineNr">28304 </span> 5d/pop-to-ebp +<span id="L28305" class="LineNr">28305 </span> c3/return +<span id="L28306" class="LineNr">28306 </span> +<span id="L28307" class="LineNr">28307 </span><span class="subxFunction">assigns-in-stmt-vars?</span>: <span class="subxComment"># stmt-var: (addr stmt-var), v: (addr var) -> result/eax: boolean</span> +<span id="L28308" class="LineNr">28308 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28309" class="LineNr">28309 </span> 55/push-ebp +<span id="L28310" class="LineNr">28310 </span> 89/<- %ebp 4/r32/esp +<span id="L28311" class="LineNr">28311 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28312" class="LineNr">28312 </span> 51/push-ecx +<span id="L28313" class="LineNr">28313 </span> <span class="subxComment"># var curr/ecx: (addr stmt-var) = stmt-var</span> +<span id="L28314" class="LineNr">28314 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28315" class="LineNr">28315 </span> { +<span id="L28316" class="LineNr">28316 </span> <span class="subxComment"># if (curr == 0) break</span> +<span id="L28317" class="LineNr">28317 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28318" class="LineNr">28318 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28319" class="LineNr">28319 </span> <span class="subxComment"># eax = lookup(curr->value)</span> +<span id="L28320" class="LineNr">28320 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28321" class="LineNr">28321 </span> <span class="subxComment"># if (eax == v && curr->is-deref? == false) return true</span> +<span id="L28322" class="LineNr">28322 </span> { +<span id="L28323" class="LineNr">28323 </span> 39/compare *(ebp+0xc) 0/r32/eax +<span id="L28324" class="LineNr">28324 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28325" class="LineNr">28325 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L28326" class="LineNr">28326 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28327" class="LineNr">28327 </span> b8/copy-to-eax 1/imm32/true +<span id="L28328" class="LineNr">28328 </span> eb/jump $assigns-in-stmt-vars?:end/disp8 +<span id="L28329" class="LineNr">28329 </span> } +<span id="L28330" class="LineNr">28330 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L28331" class="LineNr">28331 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L28332" class="LineNr">28332 </span> 89/<- %ecx 0/r32/eax +<span id="L28333" class="LineNr">28333 </span> <span class="subxComment">#</span> +<span id="L28334" class="LineNr">28334 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28335" class="LineNr">28335 </span> } +<span id="L28336" class="LineNr">28336 </span><span class="Constant">$assigns-in-stmt-vars?:end</span>: +<span id="L28337" class="LineNr">28337 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28338" class="LineNr">28338 </span> 59/pop-to-ecx +<span id="L28339" class="LineNr">28339 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28340" class="LineNr">28340 </span> 89/<- %esp 5/r32/ebp +<span id="L28341" class="LineNr">28341 </span> 5d/pop-to-ebp +<span id="L28342" class="LineNr">28342 </span> c3/return +<span id="L28343" class="LineNr">28343 </span> +<span id="L28344" class="LineNr">28344 </span><span class="subxComment"># is there a var before 'v' with the same block-depth and register on the 'vars' stack?</span> +<span id="L28345" class="LineNr">28345 </span><span class="subxComment"># v is guaranteed to be within vars</span> +<span id="L28346" class="LineNr">28346 </span><span class="subxComment"># 'start' is provided as an optimization, a pointer within vars</span> +<span id="L28347" class="LineNr">28347 </span><span class="subxComment"># *start == v</span> +<span id="L28348" class="LineNr">28348 </span><span class="subxFunction">same-register-spilled-before?</span>: <span class="subxComment"># v: (addr var), vars: (addr stack (handle var)), start: (addr var) -> result/eax: boolean</span> +<span id="L28349" class="LineNr">28349 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28350" class="LineNr">28350 </span> 55/push-ebp +<span id="L28351" class="LineNr">28351 </span> 89/<- %ebp 4/r32/esp +<span id="L28352" class="LineNr">28352 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28353" class="LineNr">28353 </span> 51/push-ecx +<span id="L28354" class="LineNr">28354 </span> 52/push-edx +<span id="L28355" class="LineNr">28355 </span> 53/push-ebx +<span id="L28356" class="LineNr">28356 </span> 56/push-esi +<span id="L28357" class="LineNr">28357 </span> 57/push-edi +<span id="L28358" class="LineNr">28358 </span> <span class="subxComment"># ecx = v</span> +<span id="L28359" class="LineNr">28359 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L28360" class="LineNr">28360 </span> <span class="subxComment"># var reg/edx: (addr array byte) = lookup(v->register)</span> +<span id="L28361" class="LineNr">28361 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28362" class="LineNr">28362 </span> 89/<- %edx 0/r32/eax +<span id="L28363" class="LineNr">28363 </span> <span class="subxComment"># var depth/ebx: int = v->block-depth</span> +<span id="L28364" class="LineNr">28364 </span> 8b/-> *(ecx+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28365" class="LineNr">28365 </span> <span class="subxComment"># var min/ecx: (addr handle var) = vars->data</span> +<span id="L28366" class="LineNr">28366 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28367" class="LineNr">28367 </span> 81 0/subop/add %ecx 8/imm32 +<span id="L28368" class="LineNr">28368 </span> <span class="subxComment"># TODO: check that start >= min and start < &vars->data[top]</span> +<span id="L28369" class="LineNr">28369 </span> <span class="subxComment"># TODO: check that *start == v</span> +<span id="L28370" class="LineNr">28370 </span> <span class="subxComment"># var curr/esi: (addr handle var) = start</span> +<span id="L28371" class="LineNr">28371 </span> 8b/-> *(ebp+0x10) 6/r32/esi +<span id="L28372" class="LineNr">28372 </span> <span class="subxComment"># curr -= 8</span> +<span id="L28373" class="LineNr">28373 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L28374" class="LineNr">28374 </span> { +<span id="L28375" class="LineNr">28375 </span><span class="Constant">$same-register-spilled-before?:loop</span>: +<span id="L28376" class="LineNr">28376 </span> <span class="subxComment"># if (curr < min) break</span> +<span id="L28377" class="LineNr">28377 </span> 39/compare %esi 1/r32/ecx +<span id="L28378" class="LineNr">28378 </span> 0f 82/jump-if-addr< <span class="Constant">break</span>/disp32 +<span id="L28379" class="LineNr">28379 </span> <span class="subxComment"># var x/eax: (addr var) = lookup(*curr)</span> +<span id="L28380" class="LineNr">28380 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># => eax</span> +<span id="L28381" class="LineNr">28381 </span> <span class="subxComment"># if (x->block-depth < depth) break</span> +<span id="L28382" class="LineNr">28382 </span> 39/compare *(eax+0x10) 3/r32/ebx <span class="subxComment"># Var-block-depth</span> +<span id="L28383" class="LineNr">28383 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28384" class="LineNr">28384 </span> <span class="subxComment"># if (x->register == 0) continue</span> +<span id="L28385" class="LineNr">28385 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L28386" class="LineNr">28386 </span> 74/jump-if-= $same-register-spilled-before?:continue/disp8 +<span id="L28387" class="LineNr">28387 </span> <span class="subxComment"># if (x->register == reg) return true</span> +<span id="L28388" class="LineNr">28388 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28389" class="LineNr">28389 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edx) <span class="subxComment"># => eax</span> +<span id="L28390" class="LineNr">28390 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28391" class="LineNr">28391 </span> b8/copy-to-eax 1/imm32/true +<span id="L28392" class="LineNr">28392 </span> 75/jump-if-!= $same-register-spilled-before?:end/disp8 +<span id="L28393" class="LineNr">28393 </span><span class="Constant">$same-register-spilled-before?:continue</span>: +<span id="L28394" class="LineNr">28394 </span> <span class="subxComment"># curr -= 8</span> +<span id="L28395" class="LineNr">28395 </span> 81 5/subop/subtract %esi 8/imm32 +<span id="L28396" class="LineNr">28396 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28397" class="LineNr">28397 </span> } +<span id="L28398" class="LineNr">28398 </span><span class="Constant">$same-register-spilled-before?:false</span>: +<span id="L28399" class="LineNr">28399 </span> b8/copy-to-eax 0/imm32/false +<span id="L28400" class="LineNr">28400 </span><span class="Constant">$same-register-spilled-before?:end</span>: +<span id="L28401" class="LineNr">28401 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28402" class="LineNr">28402 </span> 5f/pop-to-edi +<span id="L28403" class="LineNr">28403 </span> 5e/pop-to-esi +<span id="L28404" class="LineNr">28404 </span> 5b/pop-to-ebx +<span id="L28405" class="LineNr">28405 </span> 5a/pop-to-edx +<span id="L28406" class="LineNr">28406 </span> 59/pop-to-ecx +<span id="L28407" class="LineNr">28407 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28408" class="LineNr">28408 </span> 89/<- %esp 5/r32/ebp +<span id="L28409" class="LineNr">28409 </span> 5d/pop-to-ebp +<span id="L28410" class="LineNr">28410 </span> c3/return +<span id="L28411" class="LineNr">28411 </span> +<span id="L28412" class="LineNr">28412 </span><span class="subxComment"># clean up global state for 'vars' until some block depth (inclusive)</span> +<span id="L28413" class="LineNr">28413 </span><span class="subxFunction">clean-up-blocks</span>: <span class="subxComment"># vars: (addr stack live-var), until-block-depth: int, fn: (addr function)</span> +<span id="L28414" class="LineNr">28414 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28415" class="LineNr">28415 </span> 55/push-ebp +<span id="L28416" class="LineNr">28416 </span> 89/<- %ebp 4/r32/esp +<span id="L28417" class="LineNr">28417 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28418" class="LineNr">28418 </span> 50/push-eax +<span id="L28419" class="LineNr">28419 </span> 51/push-ecx +<span id="L28420" class="LineNr">28420 </span> 56/push-esi +<span id="L28421" class="LineNr">28421 </span> <span class="subxComment"># esi = vars</span> +<span id="L28422" class="LineNr">28422 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28423" class="LineNr">28423 </span> <span class="subxComment"># ecx = until-block-depth</span> +<span id="L28424" class="LineNr">28424 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28425" class="LineNr">28425 </span> { +<span id="L28426" class="LineNr">28426 </span><span class="Constant">$clean-up-blocks:reclaim-loop</span>: +<span id="L28427" class="LineNr">28427 </span> <span class="subxComment"># if (vars->top <= 0) break</span> +<span id="L28428" class="LineNr">28428 </span> 8b/-> *esi 0/r32/eax <span class="subxComment"># Stack-top</span> +<span id="L28429" class="LineNr">28429 </span> 3d/compare-eax-and 0/imm32 +<span id="L28430" class="LineNr">28430 </span> 0f 8e/jump-if-<= <span class="Constant">break</span>/disp32 +<span id="L28431" class="LineNr">28431 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(vars[vars->top-12])</span> +<span id="L28432" class="LineNr">28432 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+eax-4) *(esi+eax)) <span class="subxComment"># vars + 8 + vars->top - 12 => eax</span> +<span id="L28433" class="LineNr">28433 </span> <span class="subxComment"># if (v->block-depth < until-block-depth) break</span> +<span id="L28434" class="LineNr">28434 </span> 39/compare *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L28435" class="LineNr">28435 </span> 0f 8c/jump-if-< <span class="Constant">break</span>/disp32 +<span id="L28436" class="LineNr">28436 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28437" class="LineNr">28437 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28438" class="LineNr">28438 </span> (<a href='203stack.subx.html#L234'>pop</a> %esi) <span class="subxComment"># => eax</span> +<span id="L28439" class="LineNr">28439 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L28440" class="LineNr">28440 </span> } +<span id="L28441" class="LineNr">28441 </span><span class="Constant">$clean-up-blocks:end</span>: +<span id="L28442" class="LineNr">28442 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28443" class="LineNr">28443 </span> 5e/pop-to-esi +<span id="L28444" class="LineNr">28444 </span> 59/pop-to-ecx +<span id="L28445" class="LineNr">28445 </span> 58/pop-to-eax +<span id="L28446" class="LineNr">28446 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28447" class="LineNr">28447 </span> 89/<- %esp 5/r32/ebp +<span id="L28448" class="LineNr">28448 </span> 5d/pop-to-ebp +<span id="L28449" class="LineNr">28449 </span> c3/return +<span id="L28450" class="LineNr">28450 </span> +<span id="L28451" class="LineNr">28451 </span><span class="subxFunction">reg-in-function-outputs?</span>: <span class="subxComment"># fn: (addr function), target: (addr array byte) -> result/eax: boolean</span> +<span id="L28452" class="LineNr">28452 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28453" class="LineNr">28453 </span> 55/push-ebp +<span id="L28454" class="LineNr">28454 </span> 89/<- %ebp 4/r32/esp +<span id="L28455" class="LineNr">28455 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28456" class="LineNr">28456 </span> 51/push-ecx +<span id="L28457" class="LineNr">28457 </span> <span class="subxComment"># var curr/ecx: (addr list var) = lookup(fn->outputs)</span> +<span id="L28458" class="LineNr">28458 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28459" class="LineNr">28459 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x10) *(eax+0x14)) <span class="subxComment"># Function-outputs Function-outputs => eax</span> +<span id="L28460" class="LineNr">28460 </span> 89/<- %ecx 0/r32/eax +<span id="L28461" class="LineNr">28461 </span> <span class="subxComment"># while curr != null</span> +<span id="L28462" class="LineNr">28462 </span> { +<span id="L28463" class="LineNr">28463 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L28464" class="LineNr">28464 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28465" class="LineNr">28465 </span> <span class="subxComment"># var v/eax: (addr var) = lookup(curr->value)</span> +<span id="L28466" class="LineNr">28466 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L28467" class="LineNr">28467 </span> <span class="subxComment"># var reg/eax: (addr array byte) = lookup(v->register)</span> +<span id="L28468" class="LineNr">28468 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28469" class="LineNr">28469 </span> <span class="subxComment"># if (reg == target) return true</span> +<span id="L28470" class="LineNr">28470 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28471" class="LineNr">28471 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28472" class="LineNr">28472 </span> 75/jump-if-!= $reg-in-function-outputs?:end/disp8 +<span id="L28473" class="LineNr">28473 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L28474" class="LineNr">28474 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L28475" class="LineNr">28475 </span> 89/<- %ecx 0/r32/eax +<span id="L28476" class="LineNr">28476 </span> <span class="subxComment">#</span> +<span id="L28477" class="LineNr">28477 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28478" class="LineNr">28478 </span> } +<span id="L28479" class="LineNr">28479 </span> <span class="subxComment"># return false</span> +<span id="L28480" class="LineNr">28480 </span> b8/copy-to-eax 0/imm32 +<span id="L28481" class="LineNr">28481 </span><span class="Constant">$reg-in-function-outputs?:end</span>: +<span id="L28482" class="LineNr">28482 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28483" class="LineNr">28483 </span> 59/pop-to-ecx +<span id="L28484" class="LineNr">28484 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28485" class="LineNr">28485 </span> 89/<- %esp 5/r32/ebp +<span id="L28486" class="LineNr">28486 </span> 5d/pop-to-ebp +<span id="L28487" class="LineNr">28487 </span> c3/return +<span id="L28488" class="LineNr">28488 </span> +<span id="L28489" class="LineNr">28489 </span><span class="subxFunction">emit-subx-var-def</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L28490" class="LineNr">28490 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28491" class="LineNr">28491 </span> 55/push-ebp +<span id="L28492" class="LineNr">28492 </span> 89/<- %ebp 4/r32/esp +<span id="L28493" class="LineNr">28493 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28494" class="LineNr">28494 </span> 50/push-eax +<span id="L28495" class="LineNr">28495 </span> 51/push-ecx +<span id="L28496" class="LineNr">28496 </span> 52/push-edx +<span id="L28497" class="LineNr">28497 </span> <span class="subxComment"># eax = stmt</span> +<span id="L28498" class="LineNr">28498 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L28499" class="LineNr">28499 </span> <span class="subxComment"># var v/ecx: (addr var)</span> +<span id="L28500" class="LineNr">28500 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Vardef-var Vardef-var => eax</span> +<span id="L28501" class="LineNr">28501 </span> 89/<- %ecx 0/r32/eax +<span id="L28502" class="LineNr">28502 </span> <span class="subxComment"># v->block-depth = *Curr-block-depth</span> +<span id="L28503" class="LineNr">28503 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/r32/eax +<span id="L28504" class="LineNr">28504 </span> 89/<- *(ecx+0x10) 0/r32/eax <span class="subxComment"># Var-block-depth</span> +<span id="L28505" class="LineNr">28505 </span> <span class="subxComment"># var n/edx: int = size-of(stmt->var)</span> +<span id="L28506" class="LineNr">28506 </span> (<a href='mu.subx.html#L26551'>size-of</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L28507" class="LineNr">28507 </span> 89/<- %edx 0/r32/eax +<span id="L28508" class="LineNr">28508 </span> <span class="subxComment"># *Curr-local-stack-offset -= n</span> +<span id="L28509" class="LineNr">28509 </span> 29/subtract-from *<span class="SpecialChar"><a href='mu.subx.html#L26954'>Curr-local-stack-offset</a></span> 2/r32/edx +<span id="L28510" class="LineNr">28510 </span> <span class="subxComment"># v->offset = *Curr-local-stack-offset</span> +<span id="L28511" class="LineNr">28511 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L26954'>Curr-local-stack-offset</a></span> 0/r32/eax +<span id="L28512" class="LineNr">28512 </span> 89/<- *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L28513" class="LineNr">28513 </span> <span class="subxComment"># if v is an array, do something special to initialize it</span> +<span id="L28514" class="LineNr">28514 </span> { +<span id="L28515" class="LineNr">28515 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28516" class="LineNr">28516 </span> (<a href='mu.subx.html#L26648'>mu-array?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28517" class="LineNr">28517 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28518" class="LineNr">28518 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28519" class="LineNr">28519 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-4</span> +<span id="L28520" class="LineNr">28520 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L28521" class="LineNr">28521 </span> <span class="subxComment">#</span> +<span id="L28522" class="LineNr">28522 </span> (<a href='mu.subx.html#L28564'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L28523" class="LineNr">28523 </span> e9/jump $emit-subx-var-def:end/disp32 +<span id="L28524" class="LineNr">28524 </span> } +<span id="L28525" class="LineNr">28525 </span> <span class="subxComment"># another special-case for initializing streams</span> +<span id="L28526" class="LineNr">28526 </span> <span class="subxComment"># a stream is an array with 2 extra pointers</span> +<span id="L28527" class="LineNr">28527 </span> { +<span id="L28528" class="LineNr">28528 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28529" class="LineNr">28529 </span> (<a href='mu.subx.html#L26713'>mu-stream?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28530" class="LineNr">28530 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28531" class="LineNr">28531 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28532" class="LineNr">28532 </span> <span class="subxComment"># var array-size-without-size/edx: int = n-12</span> +<span id="L28533" class="LineNr">28533 </span> 81 5/subop/subtract %edx 0xc/imm32 +<span id="L28534" class="LineNr">28534 </span> (<a href='mu.subx.html#L28564'>emit-array-data-initialization</a> *(ebp+8) %edx) +<span id="L28535" class="LineNr">28535 </span> <span class="subxComment"># emit read and write pointers</span> +<span id="L28536" class="LineNr">28536 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28537" class="LineNr">28537 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28538" class="LineNr">28538 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28539" class="LineNr">28539 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28540" class="LineNr">28540 </span> <span class="subxComment">#</span> +<span id="L28541" class="LineNr">28541 </span> eb/jump $emit-subx-var-def:end/disp8 +<span id="L28542" class="LineNr">28542 </span> } +<span id="L28543" class="LineNr">28543 </span> <span class="subxComment"># while n > 0</span> +<span id="L28544" class="LineNr">28544 </span> { +<span id="L28545" class="LineNr">28545 </span> 81 7/subop/compare %edx 0/imm32 +<span id="L28546" class="LineNr">28546 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L28547" class="LineNr">28547 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28548" class="LineNr">28548 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push 0/imm32\n"</span>) +<span id="L28549" class="LineNr">28549 </span> <span class="subxComment"># n -= 4</span> +<span id="L28550" class="LineNr">28550 </span> 81 5/subop/subtract %edx 4/imm32 +<span id="L28551" class="LineNr">28551 </span> <span class="subxComment">#</span> +<span id="L28552" class="LineNr">28552 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L28553" class="LineNr">28553 </span> } +<span id="L28554" class="LineNr">28554 </span><span class="Constant">$emit-subx-var-def:end</span>: +<span id="L28555" class="LineNr">28555 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28556" class="LineNr">28556 </span> 5a/pop-to-edx +<span id="L28557" class="LineNr">28557 </span> 59/pop-to-ecx +<span id="L28558" class="LineNr">28558 </span> 58/pop-to-eax +<span id="L28559" class="LineNr">28559 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28560" class="LineNr">28560 </span> 89/<- %esp 5/r32/ebp +<span id="L28561" class="LineNr">28561 </span> 5d/pop-to-ebp +<span id="L28562" class="LineNr">28562 </span> c3/return +<span id="L28563" class="LineNr">28563 </span> +<span id="L28564" class="LineNr">28564 </span><span class="subxFunction">emit-array-data-initialization</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L28565" class="LineNr">28565 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28566" class="LineNr">28566 </span> 55/push-ebp +<span id="L28567" class="LineNr">28567 </span> 89/<- %ebp 4/r32/esp +<span id="L28568" class="LineNr">28568 </span> <span class="subxComment">#</span> +<span id="L28569" class="LineNr">28569 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28570" class="LineNr">28570 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='302stack_allocate.subx.html#L34'>push-n-zero-bytes</a> "</span>) +<span id="L28571" class="LineNr">28571 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28572" class="LineNr">28572 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L28573" class="LineNr">28573 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28574" class="LineNr">28574 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"68/push "</span>) +<span id="L28575" class="LineNr">28575 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L28576" class="LineNr">28576 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28577" class="LineNr">28577 </span><span class="Constant">$emit-array-data-initialization:end</span>: +<span id="L28578" class="LineNr">28578 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28579" class="LineNr">28579 </span> 89/<- %esp 5/r32/ebp +<span id="L28580" class="LineNr">28580 </span> 5d/pop-to-ebp +<span id="L28581" class="LineNr">28581 </span> c3/return +<span id="L28582" class="LineNr">28582 </span> +<span id="L28583" class="LineNr">28583 </span><span class="subxFunction">emit-subx-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), primitives: (addr primitive), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L28584" class="LineNr">28584 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28585" class="LineNr">28585 </span> 55/push-ebp +<span id="L28586" class="LineNr">28586 </span> 89/<- %ebp 4/r32/esp +<span id="L28587" class="LineNr">28587 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28588" class="LineNr">28588 </span> 50/push-eax +<span id="L28589" class="LineNr">28589 </span> 51/push-ecx +<span id="L28590" class="LineNr">28590 </span> <span class="subxH1Comment"># - some special-case primitives that don't actually use the 'primitives' data structure</span> +<span id="L28591" class="LineNr">28591 </span> <span class="subxComment"># var op/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L28592" class="LineNr">28592 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L28593" class="LineNr">28593 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L28594" class="LineNr">28594 </span> 89/<- %ecx 0/r32/eax +<span id="L28595" class="LineNr">28595 </span> <span class="subxComment"># copy byte (can be a primitive except we need to emit a second instruction)</span> +<span id="L28596" class="LineNr">28596 </span> { +<span id="L28597" class="LineNr">28597 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-byte")) break</span> +<span id="L28598" class="LineNr">28598 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-byte"</span>) <span class="subxComment"># => eax</span> +<span id="L28599" class="LineNr">28599 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28600" class="LineNr">28600 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28601" class="LineNr">28601 </span> (<a href='mu.subx.html#L29105'>translate-mu-copy-byte-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28602" class="LineNr">28602 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28603" class="LineNr">28603 </span> } +<span id="L28604" class="LineNr">28604 </span> <span class="subxComment"># copy-byte-to can be a primitive; writes to memory don't need to clear surrounding bytes</span> +<span id="L28605" class="LineNr">28605 </span> <span class="subxComment"># array size</span> +<span id="L28606" class="LineNr">28606 </span> { +<span id="L28607" class="LineNr">28607 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "length")) break</span> +<span id="L28608" class="LineNr">28608 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"length"</span>) <span class="subxComment"># => eax</span> +<span id="L28609" class="LineNr">28609 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28610" class="LineNr">28610 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28611" class="LineNr">28611 </span> (<a href='mu.subx.html#L28779'>translate-mu-length-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28612" class="LineNr">28612 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28613" class="LineNr">28613 </span> } +<span id="L28614" class="LineNr">28614 </span> <span class="subxComment"># index into array</span> +<span id="L28615" class="LineNr">28615 </span> { +<span id="L28616" class="LineNr">28616 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "index")) break</span> +<span id="L28617" class="LineNr">28617 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"index"</span>) <span class="subxComment"># => eax</span> +<span id="L28618" class="LineNr">28618 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28619" class="LineNr">28619 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28620" class="LineNr">28620 </span> (<a href='mu.subx.html#L29147'>translate-mu-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28621" class="LineNr">28621 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28622" class="LineNr">28622 </span> } +<span id="L28623" class="LineNr">28623 </span> <span class="subxComment"># compute-offset for index into array</span> +<span id="L28624" class="LineNr">28624 </span> { +<span id="L28625" class="LineNr">28625 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "compute-offset")) break</span> +<span id="L28626" class="LineNr">28626 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"compute-offset"</span>) <span class="subxComment"># => eax</span> +<span id="L28627" class="LineNr">28627 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28628" class="LineNr">28628 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28629" class="LineNr">28629 </span> (<a href='mu.subx.html#L29551'>translate-mu-compute-index-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28630" class="LineNr">28630 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28631" class="LineNr">28631 </span> } +<span id="L28632" class="LineNr">28632 </span> <span class="subxComment"># get field from record</span> +<span id="L28633" class="LineNr">28633 </span> { +<span id="L28634" class="LineNr">28634 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "get")) break</span> +<span id="L28635" class="LineNr">28635 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"get"</span>) <span class="subxComment"># => eax</span> +<span id="L28636" class="LineNr">28636 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28637" class="LineNr">28637 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28638" class="LineNr">28638 </span> (<a href='mu.subx.html#L29599'>translate-mu-get-stmt</a> *(ebp+8) *(ebp+0xc)) +<span id="L28639" class="LineNr">28639 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28640" class="LineNr">28640 </span> } +<span id="L28641" class="LineNr">28641 </span> <span class="subxComment"># allocate scalar</span> +<span id="L28642" class="LineNr">28642 </span> { +<span id="L28643" class="LineNr">28643 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "allocate")) break</span> +<span id="L28644" class="LineNr">28644 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"allocate"</span>) <span class="subxComment"># => eax</span> +<span id="L28645" class="LineNr">28645 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28646" class="LineNr">28646 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28647" class="LineNr">28647 </span> (<a href='mu.subx.html#L29718'>translate-mu-allocate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28648" class="LineNr">28648 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28649" class="LineNr">28649 </span> } +<span id="L28650" class="LineNr">28650 </span> <span class="subxComment"># copy-object</span> +<span id="L28651" class="LineNr">28651 </span> { +<span id="L28652" class="LineNr">28652 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "copy-object")) break</span> +<span id="L28653" class="LineNr">28653 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"copy-object"</span>) <span class="subxComment"># => eax</span> +<span id="L28654" class="LineNr">28654 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28655" class="LineNr">28655 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28656" class="LineNr">28656 </span> (<a href='mu.subx.html#L29661'>translate-mu-copy-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28657" class="LineNr">28657 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28658" class="LineNr">28658 </span> } +<span id="L28659" class="LineNr">28659 </span> <span class="subxComment"># clear-object</span> +<span id="L28660" class="LineNr">28660 </span> { +<span id="L28661" class="LineNr">28661 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "clear-object")) break</span> +<span id="L28662" class="LineNr">28662 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"clear-object"</span>) <span class="subxComment"># => eax</span> +<span id="L28663" class="LineNr">28663 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28664" class="LineNr">28664 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28665" class="LineNr">28665 </span> (<a href='mu.subx.html#L29691'>translate-mu-clear-object-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28666" class="LineNr">28666 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28667" class="LineNr">28667 </span> } +<span id="L28668" class="LineNr">28668 </span> <span class="subxComment"># allocate array</span> +<span id="L28669" class="LineNr">28669 </span> { +<span id="L28670" class="LineNr">28670 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate")) break</span> +<span id="L28671" class="LineNr">28671 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate"</span>) <span class="subxComment"># => eax</span> +<span id="L28672" class="LineNr">28672 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28673" class="LineNr">28673 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28674" class="LineNr">28674 </span> (<a href='mu.subx.html#L29814'>translate-mu-populate-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28675" class="LineNr">28675 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28676" class="LineNr">28676 </span> } +<span id="L28677" class="LineNr">28677 </span> <span class="subxComment"># allocate stream</span> +<span id="L28678" class="LineNr">28678 </span> { +<span id="L28679" class="LineNr">28679 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "populate-stream")) break</span> +<span id="L28680" class="LineNr">28680 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"populate-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L28681" class="LineNr">28681 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28682" class="LineNr">28682 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28683" class="LineNr">28683 </span> (<a href='mu.subx.html#L29850'>translate-mu-populate-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28684" class="LineNr">28684 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28685" class="LineNr">28685 </span> } +<span id="L28686" class="LineNr">28686 </span> <span class="subxComment"># read from stream</span> +<span id="L28687" class="LineNr">28687 </span> { +<span id="L28688" class="LineNr">28688 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "read-from-stream")) break</span> +<span id="L28689" class="LineNr">28689 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"read-from-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L28690" class="LineNr">28690 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28691" class="LineNr">28691 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28692" class="LineNr">28692 </span> (<a href='mu.subx.html#L29886'>translate-mu-read-from-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28693" class="LineNr">28693 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28694" class="LineNr">28694 </span> } +<span id="L28695" class="LineNr">28695 </span> <span class="subxComment"># write to stream</span> +<span id="L28696" class="LineNr">28696 </span> { +<span id="L28697" class="LineNr">28697 </span> <span class="subxComment"># if (!string-equal?(stmt->operation, "write-to-stream")) break</span> +<span id="L28698" class="LineNr">28698 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"write-to-stream"</span>) <span class="subxComment"># => eax</span> +<span id="L28699" class="LineNr">28699 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28700" class="LineNr">28700 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L28701" class="LineNr">28701 </span> (<a href='mu.subx.html#L29923'>translate-mu-write-to-stream-stmt</a> *(ebp+8) *(ebp+0xc) *(ebp+0x18) *(ebp+0x1c)) +<span id="L28702" class="LineNr">28702 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28703" class="LineNr">28703 </span> } +<span id="L28704" class="LineNr">28704 </span> <span class="subxH1Comment"># - optimizations</span> +<span id="L28705" class="LineNr">28705 </span> <span class="subxComment"># if copy instruction has same register in source and destination, emit nothing</span> +<span id="L28706" class="LineNr">28706 </span> (<a href='mu.subx.html#L28733'>redundant-copy?</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L28707" class="LineNr">28707 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28708" class="LineNr">28708 </span> 75/jump-if-!= $emit-subx-stmt:end/disp8 +<span id="L28709" class="LineNr">28709 </span> <span class="subxH1Comment"># - if stmt matches a primitive, emit it</span> +<span id="L28710" class="LineNr">28710 </span> { +<span id="L28711" class="LineNr">28711 </span><span class="Constant">$emit-subx-stmt:check-for-primitive</span>: +<span id="L28712" class="LineNr">28712 </span> <span class="subxComment"># var curr/eax: (addr primitive)</span> +<span id="L28713" class="LineNr">28713 </span> (<a href='mu.subx.html#L35325'>find-matching-primitive</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># primitives, stmt => eax</span> +<span id="L28714" class="LineNr">28714 </span> 3d/compare-eax-and 0/imm32 +<span id="L28715" class="LineNr">28715 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28716" class="LineNr">28716 </span><span class="Constant">$emit-subx-stmt:primitive</span>: +<span id="L28717" class="LineNr">28717 </span> (<a href='mu.subx.html#L34796'>emit-subx-primitive</a> *(ebp+8) *(ebp+0xc) %eax) <span class="subxComment"># out, stmt, curr</span> +<span id="L28718" class="LineNr">28718 </span> e9/jump $emit-subx-stmt:end/disp32 +<span id="L28719" class="LineNr">28719 </span> } +<span id="L28720" class="LineNr">28720 </span> <span class="subxH1Comment"># - otherwise emit a call</span> +<span id="L28721" class="LineNr">28721 </span> <span class="subxComment"># TODO: type-checking</span> +<span id="L28722" class="LineNr">28722 </span><span class="Constant">$emit-subx-stmt:call</span>: +<span id="L28723" class="LineNr">28723 </span> (<a href='mu.subx.html#L35065'>emit-call</a> *(ebp+8) *(ebp+0xc)) +<span id="L28724" class="LineNr">28724 </span><span class="Constant">$emit-subx-stmt:end</span>: +<span id="L28725" class="LineNr">28725 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28726" class="LineNr">28726 </span> 59/pop-to-ecx +<span id="L28727" class="LineNr">28727 </span> 58/pop-to-eax +<span id="L28728" class="LineNr">28728 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28729" class="LineNr">28729 </span> 89/<- %esp 5/r32/ebp +<span id="L28730" class="LineNr">28730 </span> 5d/pop-to-ebp +<span id="L28731" class="LineNr">28731 </span> c3/return +<span id="L28732" class="LineNr">28732 </span> +<span id="L28733" class="LineNr">28733 </span><span class="subxFunction">redundant-copy?</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: boolean</span> +<span id="L28734" class="LineNr">28734 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28735" class="LineNr">28735 </span> 55/push-ebp +<span id="L28736" class="LineNr">28736 </span> 89/<- %ebp 4/r32/esp +<span id="L28737" class="LineNr">28737 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28738" class="LineNr">28738 </span> 56/push-esi +<span id="L28739" class="LineNr">28739 </span> 57/push-edi +<span id="L28740" class="LineNr">28740 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28741" class="LineNr">28741 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L28742" class="LineNr">28742 </span> <span class="subxComment"># if stmt->operation != "copy" return false</span> +<span id="L28743" class="LineNr">28743 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L28744" class="LineNr">28744 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax <span class="Constant">"copy"</span>) <span class="subxComment"># => eax</span> +<span id="L28745" class="LineNr">28745 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28746" class="LineNr">28746 </span> 0f 84/jump-if-= $redundant-copy?:end/disp32 +<span id="L28747" class="LineNr">28747 </span> <span class="subxComment"># var output-reg/edi: (addr stmt-var) = stmt->outputs->value->register</span> +<span id="L28748" class="LineNr">28748 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L28749" class="LineNr">28749 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28750" class="LineNr">28750 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28751" class="LineNr">28751 </span> <span class="subxS1Comment"># . if output-reg == null, return false</span> +<span id="L28752" class="LineNr">28752 </span> 3d/compare-eax-and 0/imm32 +<span id="L28753" class="LineNr">28753 </span> 74/jump-if-= $redundant-copy?:end/disp8 +<span id="L28754" class="LineNr">28754 </span> 89/<- %edi 0/r32/eax +<span id="L28755" class="LineNr">28755 </span> <span class="subxComment"># return (inout->value->register == output->value->register)</span> +<span id="L28756" class="LineNr">28756 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28757" class="LineNr">28757 </span> <span class="subxS1Comment"># . if inout->is-deref return false</span> +<span id="L28758" class="LineNr">28758 </span> 81 7/subop/compare *(eax+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L28759" class="LineNr">28759 </span> { +<span id="L28760" class="LineNr">28760 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28761" class="LineNr">28761 </span> b8/copy-to-eax 0/imm32/false +<span id="L28762" class="LineNr">28762 </span> e9/jump $redundant-copy?:end/disp32 +<span id="L28763" class="LineNr">28763 </span> } +<span id="L28764" class="LineNr">28764 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28765" class="LineNr">28765 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28766" class="LineNr">28766 </span> <span class="subxS1Comment"># . if inout-reg == null, return false</span> +<span id="L28767" class="LineNr">28767 </span> 3d/compare-eax-and 0/imm32 +<span id="L28768" class="LineNr">28768 </span> 74/jump-if-= $redundant-copy?:end/disp8 +<span id="L28769" class="LineNr">28769 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %edi) <span class="subxComment"># => eax</span> +<span id="L28770" class="LineNr">28770 </span><span class="Constant">$redundant-copy?:end</span>: +<span id="L28771" class="LineNr">28771 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28772" class="LineNr">28772 </span> 5f/pop-to-edi +<span id="L28773" class="LineNr">28773 </span> 5e/pop-to-esi +<span id="L28774" class="LineNr">28774 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28775" class="LineNr">28775 </span> 89/<- %esp 5/r32/ebp +<span id="L28776" class="LineNr">28776 </span> 5d/pop-to-ebp +<span id="L28777" class="LineNr">28777 </span> c3/return +<span id="L28778" class="LineNr">28778 </span> +<span id="L28779" class="LineNr">28779 </span><span class="subxFunction">translate-mu-length-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L28780" class="LineNr">28780 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28781" class="LineNr">28781 </span> 55/push-ebp +<span id="L28782" class="LineNr">28782 </span> 89/<- %ebp 4/r32/esp +<span id="L28783" class="LineNr">28783 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L28784" class="LineNr">28784 </span> 50/push-eax +<span id="L28785" class="LineNr">28785 </span> 51/push-ecx +<span id="L28786" class="LineNr">28786 </span> 52/push-edx +<span id="L28787" class="LineNr">28787 </span> 53/push-ebx +<span id="L28788" class="LineNr">28788 </span> 56/push-esi +<span id="L28789" class="LineNr">28789 </span> <span class="subxComment"># esi = stmt</span> +<span id="L28790" class="LineNr">28790 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L28791" class="LineNr">28791 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]->value</span> +<span id="L28792" class="LineNr">28792 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L28793" class="LineNr">28793 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28794" class="LineNr">28794 </span> 89/<- %ebx 0/r32/eax +<span id="L28795" class="LineNr">28795 </span> <span class="subxComment"># var elemsize/ecx: int = array-element-size(base)</span> +<span id="L28796" class="LineNr">28796 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28797" class="LineNr">28797 </span> 89/<- %ecx 0/r32/eax +<span id="L28798" class="LineNr">28798 </span> <span class="subxComment"># var outreg/edx: (addr array byte) = stmt->outputs[0]->value->register</span> +<span id="L28799" class="LineNr">28799 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L28800" class="LineNr">28800 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L28801" class="LineNr">28801 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L28802" class="LineNr">28802 </span> 89/<- %edx 0/r32/eax +<span id="L28803" class="LineNr">28803 </span> <span class="subxComment"># if elemsize == 1</span> +<span id="L28804" class="LineNr">28804 </span> { +<span id="L28805" class="LineNr">28805 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L28806" class="LineNr">28806 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28807" class="LineNr">28807 </span><span class="Constant">$translate-mu-length-stmt:size-1</span>: +<span id="L28808" class="LineNr">28808 </span> (<a href='mu.subx.html#L29040'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L28809" class="LineNr">28809 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L28810" class="LineNr">28810 </span> } +<span id="L28811" class="LineNr">28811 </span> <span class="subxComment"># if elemsize is a power of 2 less than 256</span> +<span id="L28812" class="LineNr">28812 </span> { +<span id="L28813" class="LineNr">28813 </span> (<a href='mu.subx.html#L30049'>power-of-2?</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L28814" class="LineNr">28814 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28815" class="LineNr">28815 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28816" class="LineNr">28816 </span> 81 7/subop/compare %ecx 0xff/imm32 +<span id="L28817" class="LineNr">28817 </span> 7f/jump-if-> <span class="Constant">break</span>/disp8 +<span id="L28818" class="LineNr">28818 </span><span class="Constant">$translate-mu-length-stmt:size-power-of-2</span>: +<span id="L28819" class="LineNr">28819 </span> (<a href='mu.subx.html#L29040'>emit-save-size-to</a> *(ebp+8) %ebx %edx) +<span id="L28820" class="LineNr">28820 </span> (<a href='mu.subx.html#L29083'>emit-divide-by-shift-right</a> *(ebp+8) %edx %ecx) +<span id="L28821" class="LineNr">28821 </span> e9/jump $translate-mu-length-stmt:end/disp32 +<span id="L28822" class="LineNr">28822 </span> } +<span id="L28823" class="LineNr">28823 </span> <span class="subxComment"># otherwise, the complex case</span> +<span id="L28824" class="LineNr">28824 </span> <span class="subxS1Comment"># . emit register spills</span> +<span id="L28825" class="LineNr">28825 </span> { +<span id="L28826" class="LineNr">28826 </span><span class="Constant">$translate-mu-length-stmt:complex</span>: +<span id="L28827" class="LineNr">28827 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L28828" class="LineNr">28828 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28829" class="LineNr">28829 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28830" class="LineNr">28830 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28831" class="LineNr">28831 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"50/push-eax\n"</span>) +<span id="L28832" class="LineNr">28832 </span> } +<span id="L28833" class="LineNr">28833 </span> { +<span id="L28834" class="LineNr">28834 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L28835" class="LineNr">28835 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28836" class="LineNr">28836 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28837" class="LineNr">28837 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28838" class="LineNr">28838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"51/push-ecx\n"</span>) +<span id="L28839" class="LineNr">28839 </span> } +<span id="L28840" class="LineNr">28840 </span> { +<span id="L28841" class="LineNr">28841 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L28842" class="LineNr">28842 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28843" class="LineNr">28843 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28844" class="LineNr">28844 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28845" class="LineNr">28845 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"52/push-edx\n"</span>) +<span id="L28846" class="LineNr">28846 </span> } +<span id="L28847" class="LineNr">28847 </span> <span class="subxS1Comment"># .</span> +<span id="L28848" class="LineNr">28848 </span> (<a href='mu.subx.html#L29040'>emit-save-size-to</a> *(ebp+8) %ebx <span class="Constant">"eax"</span>) +<span id="L28849" class="LineNr">28849 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28850" class="LineNr">28850 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"31/xor %edx 2/r32/edx\n"</span>) +<span id="L28851" class="LineNr">28851 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28852" class="LineNr">28852 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"b9/copy-to-ecx "</span>) +<span id="L28853" class="LineNr">28853 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L28854" class="LineNr">28854 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32\n"</span>) +<span id="L28855" class="LineNr">28855 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28856" class="LineNr">28856 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"f7 7/subop/idiv-eax-edx-by %ecx\n"</span>) +<span id="L28857" class="LineNr">28857 </span> { +<span id="L28858" class="LineNr">28858 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L28859" class="LineNr">28859 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28860" class="LineNr">28860 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28861" class="LineNr">28861 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28862" class="LineNr">28862 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"89/<- %"</span>) +<span id="L28863" class="LineNr">28863 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %edx) +<span id="L28864" class="LineNr">28864 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0/r32/eax\n"</span>) +<span id="L28865" class="LineNr">28865 </span> } +<span id="L28866" class="LineNr">28866 </span> <span class="subxS1Comment"># . emit register restores</span> +<span id="L28867" class="LineNr">28867 </span> { +<span id="L28868" class="LineNr">28868 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"edx"</span>) <span class="subxComment"># => eax</span> +<span id="L28869" class="LineNr">28869 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28870" class="LineNr">28870 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28871" class="LineNr">28871 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28872" class="LineNr">28872 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"5a/pop-to-edx\n"</span>) +<span id="L28873" class="LineNr">28873 </span> } +<span id="L28874" class="LineNr">28874 </span> { +<span id="L28875" class="LineNr">28875 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"ecx"</span>) <span class="subxComment"># => eax</span> +<span id="L28876" class="LineNr">28876 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28877" class="LineNr">28877 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28878" class="LineNr">28878 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28879" class="LineNr">28879 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"59/pop-to-ecx\n"</span>) +<span id="L28880" class="LineNr">28880 </span> } +<span id="L28881" class="LineNr">28881 </span> { +<span id="L28882" class="LineNr">28882 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %edx <span class="Constant">"eax"</span>) <span class="subxComment"># => eax</span> +<span id="L28883" class="LineNr">28883 </span> 3d/compare-eax-and 0/imm32/false +<span id="L28884" class="LineNr">28884 </span> 75/break-if-!= <span class="Constant">break</span>/disp8 +<span id="L28885" class="LineNr">28885 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L28886" class="LineNr">28886 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"58/pop-to-eax\n"</span>) +<span id="L28887" class="LineNr">28887 </span> } +<span id="L28888" class="LineNr">28888 </span><span class="Constant">$translate-mu-length-stmt:end</span>: +<span id="L28889" class="LineNr">28889 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L28890" class="LineNr">28890 </span> 5e/pop-to-esi +<span id="L28891" class="LineNr">28891 </span> 5b/pop-to-ebx +<span id="L28892" class="LineNr">28892 </span> 5a/pop-to-edx +<span id="L28893" class="LineNr">28893 </span> 59/pop-to-ecx +<span id="L28894" class="LineNr">28894 </span> 58/pop-to-eax +<span id="L28895" class="LineNr">28895 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28896" class="LineNr">28896 </span> 89/<- %esp 5/r32/ebp +<span id="L28897" class="LineNr">28897 </span> 5d/pop-to-ebp +<span id="L28898" class="LineNr">28898 </span> c3/return +<span id="L28899" class="LineNr">28899 </span> +<span id="L28900" class="LineNr">28900 </span><span class="subxFunction">array-element-size</span>: <span class="subxComment"># arr: (addr var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> +<span id="L28901" class="LineNr">28901 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28902" class="LineNr">28902 </span> 55/push-ebp +<span id="L28903" class="LineNr">28903 </span> 89/<- %ebp 4/r32/esp +<span id="L28904" class="LineNr">28904 </span> <span class="subxComment">#</span> +<span id="L28905" class="LineNr">28905 </span> (<a href='mu.subx.html#L28913'>array-element-type-id</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L28906" class="LineNr">28906 </span> (<a href='mu.subx.html#L29019'>size-of-type-id-as-array-element</a> %eax) <span class="subxComment"># => eax</span> +<span id="L28907" class="LineNr">28907 </span><span class="Constant">$array-element-size:end</span>: +<span id="L28908" class="LineNr">28908 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28909" class="LineNr">28909 </span> 89/<- %esp 5/r32/ebp +<span id="L28910" class="LineNr">28910 </span> 5d/pop-to-ebp +<span id="L28911" class="LineNr">28911 </span> c3/return +<span id="L28912" class="LineNr">28912 </span> +<span id="L28913" class="LineNr">28913 </span><span class="subxFunction">array-element-type-id</span>: <span class="subxComment"># v: (addr var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: type-id</span> +<span id="L28914" class="LineNr">28914 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L28915" class="LineNr">28915 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L28916" class="LineNr">28916 </span> 55/push-ebp +<span id="L28917" class="LineNr">28917 </span> 89/<- %ebp 4/r32/esp +<span id="L28918" class="LineNr">28918 </span> <span class="subxComment">#</span> +<span id="L28919" class="LineNr">28919 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28920" class="LineNr">28920 </span> <span class="subxComment"># var t/eax: (addr type-tree)</span> +<span id="L28921" class="LineNr">28921 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L28922" class="LineNr">28922 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L28923" class="LineNr">28923 </span> 3d/compare-eax-with 0/imm32 +<span id="L28924" class="LineNr">28924 </span> 0f 84/jump-if-== $array-element-type-id:error0/disp32 +<span id="L28925" class="LineNr">28925 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L28926" class="LineNr">28926 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L28927" class="LineNr">28927 </span> 0f 85/jump-if-!= $array-element-type-id:error1/disp32 +<span id="L28928" class="LineNr">28928 </span> <span class="subxComment"># if (t->left == addr) t = t->right</span> +<span id="L28929" class="LineNr">28929 </span> { +<span id="L28930" class="LineNr">28930 </span> 50/push-eax +<span id="L28931" class="LineNr">28931 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L28932" class="LineNr">28932 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 2) <span class="subxComment"># addr => eax</span> +<span id="L28933" class="LineNr">28933 </span> 3d/compare-eax-with 0/imm32/false +<span id="L28934" class="LineNr">28934 </span> 58/pop-to-eax +<span id="L28935" class="LineNr">28935 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L28936" class="LineNr">28936 </span><span class="Constant">$array-element-type-id:skip-addr</span>: +<span id="L28937" class="LineNr">28937 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L28938" class="LineNr">28938 </span> } +<span id="L28939" class="LineNr">28939 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L28940" class="LineNr">28940 </span> 3d/compare-eax-with 0/imm32 +<span id="L28941" class="LineNr">28941 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L28942" class="LineNr">28942 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L28943" class="LineNr">28943 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L28944" class="LineNr">28944 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L28945" class="LineNr">28945 </span> <span class="subxComment"># if t->left != array abort</span> +<span id="L28946" class="LineNr">28946 </span> { +<span id="L28947" class="LineNr">28947 </span> 50/push-eax +<span id="L28948" class="LineNr">28948 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L28949" class="LineNr">28949 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 3) <span class="subxComment"># array => eax</span> +<span id="L28950" class="LineNr">28950 </span> 3d/compare-eax-with 0/imm32/false +<span id="L28951" class="LineNr">28951 </span> 58/pop-to-eax +<span id="L28952" class="LineNr">28952 </span><span class="Constant">$array-element-type-id:no-array</span>: +<span id="L28953" class="LineNr">28953 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L28954" class="LineNr">28954 </span> } +<span id="L28955" class="LineNr">28955 </span><span class="Constant">$array-element-type-id:skip-array</span>: +<span id="L28956" class="LineNr">28956 </span> <span class="subxComment"># t = t->right</span> +<span id="L28957" class="LineNr">28957 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L28958" class="LineNr">28958 </span> <span class="subxComment"># if t == 0 abort</span> +<span id="L28959" class="LineNr">28959 </span> 3d/compare-eax-with 0/imm32 +<span id="L28960" class="LineNr">28960 </span> 0f 84/jump-if-= $array-element-type-id:error2/disp32 +<span id="L28961" class="LineNr">28961 </span> <span class="subxComment"># if t->is-atom? abort</span> +<span id="L28962" class="LineNr">28962 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L28963" class="LineNr">28963 </span> 0f 85/jump-if-!= $array-element-type-id:error2/disp32 +<span id="L28964" class="LineNr">28964 </span> <span class="subxComment"># t = t->left</span> +<span id="L28965" class="LineNr">28965 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L28966" class="LineNr">28966 </span> <span class="subxComment"># if (!t->is-atom?) t = t->left # TODO: assumes array element size can be determined from just first word of array element type</span> +<span id="L28967" class="LineNr">28967 </span> <span class="subxComment"># if (t->is-atom == false) t = lookup(t->left)</span> +<span id="L28968" class="LineNr">28968 </span> { +<span id="L28969" class="LineNr">28969 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L28970" class="LineNr">28970 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L28971" class="LineNr">28971 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L28972" class="LineNr">28972 </span> } +<span id="L28973" class="LineNr">28973 </span> <span class="subxComment"># return t->value</span> +<span id="L28974" class="LineNr">28974 </span> 8b/-> *(eax+4) 0/r32/eax <span class="subxComment"># Type-tree-value</span> +<span id="L28975" class="LineNr">28975 </span><span class="Constant">$array-element-type-id:end</span>: +<span id="L28976" class="LineNr">28976 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L28977" class="LineNr">28977 </span> 89/<- %esp 5/r32/ebp +<span id="L28978" class="LineNr">28978 </span> 5d/pop-to-ebp +<span id="L28979" class="LineNr">28979 </span> c3/return +<span id="L28980" class="LineNr">28980 </span> +<span id="L28981" class="LineNr">28981 </span><span class="Constant">$array-element-type-id:error0</span>: +<span id="L28982" class="LineNr">28982 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L28983" class="LineNr">28983 </span> 50/push-eax +<span id="L28984" class="LineNr">28984 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28985" class="LineNr">28985 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L28986" class="LineNr">28986 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L28987" class="LineNr">28987 </span> 58/pop-to-eax +<span id="L28988" class="LineNr">28988 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has no type\n"</span>) +<span id="L28989" class="LineNr">28989 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L28990" class="LineNr">28990 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L28991" class="LineNr">28991 </span> <span class="subxComment"># never gets here</span> +<span id="L28992" class="LineNr">28992 </span> +<span id="L28993" class="LineNr">28993 </span><span class="Constant">$array-element-type-id:error1</span>: +<span id="L28994" class="LineNr">28994 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L28995" class="LineNr">28995 </span> 50/push-eax +<span id="L28996" class="LineNr">28996 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L28997" class="LineNr">28997 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L28998" class="LineNr">28998 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L28999" class="LineNr">28999 </span> 58/pop-to-eax +<span id="L29000" class="LineNr">29000 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has atomic type "</span>) +<span id="L29001" class="LineNr">29001 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0xc) *(eax+4)) <span class="subxComment"># Type-tree-value</span> +<span id="L29002" class="LineNr">29002 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L29003" class="LineNr">29003 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29004" class="LineNr">29004 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29005" class="LineNr">29005 </span> <span class="subxComment"># never gets here</span> +<span id="L29006" class="LineNr">29006 </span> +<span id="L29007" class="LineNr">29007 </span><span class="Constant">$array-element-type-id:error2</span>: +<span id="L29008" class="LineNr">29008 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"array-element-type-id: var '"</span>) +<span id="L29009" class="LineNr">29009 </span> 50/push-eax +<span id="L29010" class="LineNr">29010 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29011" class="LineNr">29011 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29012" class="LineNr">29012 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) %eax) +<span id="L29013" class="LineNr">29013 </span> 58/pop-to-eax +<span id="L29014" class="LineNr">29014 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"' has non-array type\n"</span>) +<span id="L29015" class="LineNr">29015 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L29016" class="LineNr">29016 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L29017" class="LineNr">29017 </span> <span class="subxComment"># never gets here</span> +<span id="L29018" class="LineNr">29018 </span> +<span id="L29019" class="LineNr">29019 </span><span class="subxFunction">size-of-type-id-as-array-element</span>: <span class="subxComment"># t: type-id -> result/eax: int</span> +<span id="L29020" class="LineNr">29020 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29021" class="LineNr">29021 </span> 55/push-ebp +<span id="L29022" class="LineNr">29022 </span> 89/<- %ebp 4/r32/esp +<span id="L29023" class="LineNr">29023 </span> <span class="subxComment"># eax = t</span> +<span id="L29024" class="LineNr">29024 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29025" class="LineNr">29025 </span> <span class="subxComment"># if t is 'byte', size is 1</span> +<span id="L29026" class="LineNr">29026 </span> 3d/compare-eax-and 8/imm32/byte +<span id="L29027" class="LineNr">29027 </span> { +<span id="L29028" class="LineNr">29028 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29029" class="LineNr">29029 </span> b8/copy-to-eax 1/imm32 +<span id="L29030" class="LineNr">29030 </span> eb/jump $size-of-type-id-as-array-element:end/disp8 +<span id="L29031" class="LineNr">29031 </span> } +<span id="L29032" class="LineNr">29032 </span> <span class="subxComment"># otherwise proceed as usual</span> +<span id="L29033" class="LineNr">29033 </span> (<a href='mu.subx.html#L26757'>size-of-type-id</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29034" class="LineNr">29034 </span><span class="Constant">$size-of-type-id-as-array-element:end</span>: +<span id="L29035" class="LineNr">29035 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29036" class="LineNr">29036 </span> 89/<- %esp 5/r32/ebp +<span id="L29037" class="LineNr">29037 </span> 5d/pop-to-ebp +<span id="L29038" class="LineNr">29038 </span> c3/return +<span id="L29039" class="LineNr">29039 </span> +<span id="L29040" class="LineNr">29040 </span><span class="subxFunction">emit-save-size-to</span>: <span class="subxComment"># out: (addr buffered-file), base: (addr var), outreg: (addr array byte)</span> +<span id="L29041" class="LineNr">29041 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29042" class="LineNr">29042 </span> 55/push-ebp +<span id="L29043" class="LineNr">29043 </span> 89/<- %ebp 4/r32/esp +<span id="L29044" class="LineNr">29044 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29045" class="LineNr">29045 </span> 50/push-eax +<span id="L29046" class="LineNr">29046 </span> 53/push-ebx +<span id="L29047" class="LineNr">29047 </span> <span class="subxComment"># ebx = base</span> +<span id="L29048" class="LineNr">29048 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L29049" class="LineNr">29049 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29050" class="LineNr">29050 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8b/-> *"</span>) +<span id="L29051" class="LineNr">29051 </span> <span class="subxComment"># if base is an (addr array ...) in a register</span> +<span id="L29052" class="LineNr">29052 </span> { +<span id="L29053" class="LineNr">29053 </span> 81 7/subop/compare *(ebx+0x18)) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29054" class="LineNr">29054 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29055" class="LineNr">29055 </span><span class="Constant">$emit-save-size-to:emit-base-from-register</span>: +<span id="L29056" class="LineNr">29056 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29057" class="LineNr">29057 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29058" class="LineNr">29058 </span> eb/jump $emit-save-size-to:emit-output/disp8 +<span id="L29059" class="LineNr">29059 </span> } +<span id="L29060" class="LineNr">29060 </span> <span class="subxComment"># otherwise if base is an (array ...) on the stack</span> +<span id="L29061" class="LineNr">29061 </span> { +<span id="L29062" class="LineNr">29062 </span> 81 7/subop/compare *(ebx+0x14)) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L29063" class="LineNr">29063 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29064" class="LineNr">29064 </span><span class="Constant">$emit-save-size-to:emit-base-from-stack</span>: +<span id="L29065" class="LineNr">29065 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(ebp+"</span>) +<span id="L29066" class="LineNr">29066 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebx+0x14)) <span class="subxComment"># Var-offset</span> +<span id="L29067" class="LineNr">29067 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L29068" class="LineNr">29068 </span> } +<span id="L29069" class="LineNr">29069 </span><span class="Constant">$emit-save-size-to:emit-output</span>: +<span id="L29070" class="LineNr">29070 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L29071" class="LineNr">29071 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> *(ebp+0x10) 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax</span> +<span id="L29072" class="LineNr">29072 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29073" class="LineNr">29073 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29074" class="LineNr">29074 </span><span class="Constant">$emit-save-size-to:end</span>: +<span id="L29075" class="LineNr">29075 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29076" class="LineNr">29076 </span> 5b/pop-to-ebx +<span id="L29077" class="LineNr">29077 </span> 58/pop-to-eax +<span id="L29078" class="LineNr">29078 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29079" class="LineNr">29079 </span> 89/<- %esp 5/r32/ebp +<span id="L29080" class="LineNr">29080 </span> 5d/pop-to-ebp +<span id="L29081" class="LineNr">29081 </span> c3/return +<span id="L29082" class="LineNr">29082 </span> +<span id="L29083" class="LineNr">29083 </span><span class="subxFunction">emit-divide-by-shift-right</span>: <span class="subxComment"># out: (addr buffered-file), reg: (addr array byte), size: int</span> +<span id="L29084" class="LineNr">29084 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29085" class="LineNr">29085 </span> 55/push-ebp +<span id="L29086" class="LineNr">29086 </span> 89/<- %ebp 4/r32/esp +<span id="L29087" class="LineNr">29087 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29088" class="LineNr">29088 </span> 50/push-eax +<span id="L29089" class="LineNr">29089 </span> <span class="subxComment">#</span> +<span id="L29090" class="LineNr">29090 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29091" class="LineNr">29091 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"c1/shift 5/subop/>> %"</span>) +<span id="L29092" class="LineNr">29092 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) *(ebp+0xc)) +<span id="L29093" class="LineNr">29093 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L29094" class="LineNr">29094 </span> (<a href='mu.subx.html#L30079'>num-shift-rights</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L29095" class="LineNr">29095 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29096" class="LineNr">29096 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8\n"</span>) +<span id="L29097" class="LineNr">29097 </span><span class="Constant">$emit-divide-by-shift-right:end</span>: +<span id="L29098" class="LineNr">29098 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29099" class="LineNr">29099 </span> 58/pop-to-eax +<span id="L29100" class="LineNr">29100 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29101" class="LineNr">29101 </span> 89/<- %esp 5/r32/ebp +<span id="L29102" class="LineNr">29102 </span> 5d/pop-to-ebp +<span id="L29103" class="LineNr">29103 </span> c3/return +<span id="L29104" class="LineNr">29104 </span> +<span id="L29105" class="LineNr">29105 </span><span class="subxFunction">translate-mu-copy-byte-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29106" class="LineNr">29106 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29107" class="LineNr">29107 </span> 55/push-ebp +<span id="L29108" class="LineNr">29108 </span> 89/<- %ebp 4/r32/esp +<span id="L29109" class="LineNr">29109 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29110" class="LineNr">29110 </span> 50/push-eax +<span id="L29111" class="LineNr">29111 </span> 56/push-esi +<span id="L29112" class="LineNr">29112 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29113" class="LineNr">29113 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29114" class="LineNr">29114 </span> <span class="subxComment">#</span> +<span id="L29115" class="LineNr">29115 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29116" class="LineNr">29116 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8a/byte->"</span>) +<span id="L29117" class="LineNr">29117 </span> <span class="subxComment"># emit stmt->inouts[0]</span> +<span id="L29118" class="LineNr">29118 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29119" class="LineNr">29119 </span> (<a href='mu.subx.html#L35266'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L29120" class="LineNr">29120 </span> <span class="subxComment"># emit /r32 for stmt->outputs[0]->register</span> +<span id="L29121" class="LineNr">29121 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29122" class="LineNr">29122 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29123" class="LineNr">29123 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29124" class="LineNr">29124 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L29125" class="LineNr">29125 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L29126" class="LineNr">29126 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29127" class="LineNr">29127 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29128" class="LineNr">29128 </span> <span class="subxComment"># clear rest of register</span> +<span id="L29129" class="LineNr">29129 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29130" class="LineNr">29130 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"81 4/subop/and %"</span>) +<span id="L29131" class="LineNr">29131 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29132" class="LineNr">29132 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x14) *(esi+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29133" class="LineNr">29133 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29134" class="LineNr">29134 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29135" class="LineNr">29135 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29136" class="LineNr">29136 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 0xff/imm32\n"</span>) +<span id="L29137" class="LineNr">29137 </span><span class="Constant">$translate-mu-copy-byte-stmt:end</span>: +<span id="L29138" class="LineNr">29138 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29139" class="LineNr">29139 </span> 5e/pop-to-esi +<span id="L29140" class="LineNr">29140 </span> 58/pop-to-eax +<span id="L29141" class="LineNr">29141 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29142" class="LineNr">29142 </span> 89/<- %esp 5/r32/ebp +<span id="L29143" class="LineNr">29143 </span> 5d/pop-to-ebp +<span id="L29144" class="LineNr">29144 </span> c3/return +<span id="L29145" class="LineNr">29145 </span> +<span id="L29146" class="LineNr">29146 </span><span class="subxComment"># a little different from other translate- functions; notice the extra 'fn' argument</span> +<span id="L29147" class="LineNr">29147 </span><span class="subxFunction">translate-mu-index-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29148" class="LineNr">29148 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29149" class="LineNr">29149 </span> 55/push-ebp +<span id="L29150" class="LineNr">29150 </span> 89/<- %ebp 4/r32/esp +<span id="L29151" class="LineNr">29151 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29152" class="LineNr">29152 </span> 53/push-ebx +<span id="L29153" class="LineNr">29153 </span> <span class="subxComment"># ebx = stmt</span> +<span id="L29154" class="LineNr">29154 </span> 8b/-> *(ebp+0xc) 3/r32/ebx +<span id="L29155" class="LineNr">29155 </span> <span class="subxComment"># var base/ebx: (addr var) = stmt->inouts[0]</span> +<span id="L29156" class="LineNr">29156 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29157" class="LineNr">29157 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29158" class="LineNr">29158 </span> 89/<- %ebx 0/r32/eax +<span id="L29159" class="LineNr">29159 </span> <span class="subxComment"># emit bounds-check</span> +<span id="L29160" class="LineNr">29160 </span> (<a href='mu.subx.html#L29197'>emit-mu-index-bounds-check</a> *(ebp+8) *(ebp+0xc) *(ebp+0x10) *(ebp+0x14) *(ebp+0x18)) +<span id="L29161" class="LineNr">29161 </span> <span class="subxComment"># if (var->register) do one thing</span> +<span id="L29162" class="LineNr">29162 </span> { +<span id="L29163" class="LineNr">29163 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29164" class="LineNr">29164 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29165" class="LineNr">29165 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L29166" class="LineNr">29166 </span> (<a href='mu.subx.html#L29316'>translate-mu-index-stmt-with-array-in-register</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L29167" class="LineNr">29167 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L29168" class="LineNr">29168 </span> } +<span id="L29169" class="LineNr">29169 </span> <span class="subxComment"># if (var->offset) do a different thing</span> +<span id="L29170" class="LineNr">29170 </span> { +<span id="L29171" class="LineNr">29171 </span> 81 7/subop/compare *(ebx+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L29172" class="LineNr">29172 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29173" class="LineNr">29173 </span> <span class="subxComment"># TODO: ensure there's no dereference</span> +<span id="L29174" class="LineNr">29174 </span> (<a href='mu.subx.html#L29432'>translate-mu-index-stmt-with-array-on-stack</a> *(ebp+8) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) +<span id="L29175" class="LineNr">29175 </span> eb/jump $translate-mu-index-stmt:end/disp8 +<span id="L29176" class="LineNr">29176 </span> } +<span id="L29177" class="LineNr">29177 </span><span class="Constant">$translate-mu-index-stmt:end</span>: +<span id="L29178" class="LineNr">29178 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29179" class="LineNr">29179 </span> 5b/pop-to-ebx +<span id="L29180" class="LineNr">29180 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29181" class="LineNr">29181 </span> 89/<- %esp 5/r32/ebp +<span id="L29182" class="LineNr">29182 </span> 5d/pop-to-ebp +<span id="L29183" class="LineNr">29183 </span> c3/return +<span id="L29184" class="LineNr">29184 </span> +<span id="L29185" class="LineNr">29185 </span><span class="Constant">$translate-mu-index-stmt:error1</span>: +<span id="L29186" class="LineNr">29186 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"couldn't translate an index instruction. second (index) input must either lie in a register or be a literal\n"</span>) +<span id="L29187" class="LineNr">29187 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L29188" class="LineNr">29188 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L29189" class="LineNr">29189 </span> <span class="subxComment"># never gets here</span> +<span id="L29190" class="LineNr">29190 </span> +<span id="L29191" class="LineNr">29191 </span><span class="Constant">$translate-mu-index-stmt:error2</span>: +<span id="L29192" class="LineNr">29192 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x14) <span class="Constant">"couldn't translate an index instruction. second (index) input when in a register must be an int or offset\n"</span>) +<span id="L29193" class="LineNr">29193 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x14)) +<span id="L29194" class="LineNr">29194 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x18) 1) +<span id="L29195" class="LineNr">29195 </span> <span class="subxComment"># never gets here</span> +<span id="L29196" class="LineNr">29196 </span> +<span id="L29197" class="LineNr">29197 </span><span class="subxFunction">emit-mu-index-bounds-check</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29198" class="LineNr">29198 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29199" class="LineNr">29199 </span> 55/push-ebp +<span id="L29200" class="LineNr">29200 </span> 89/<- %ebp 4/r32/esp +<span id="L29201" class="LineNr">29201 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29202" class="LineNr">29202 </span> 50/push-eax +<span id="L29203" class="LineNr">29203 </span> 51/push-ecx +<span id="L29204" class="LineNr">29204 </span> 52/push-edx +<span id="L29205" class="LineNr">29205 </span> 53/push-ebx +<span id="L29206" class="LineNr">29206 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29207" class="LineNr">29207 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29208" class="LineNr">29208 </span> <span class="subxComment">#</span> +<span id="L29209" class="LineNr">29209 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29210" class="LineNr">29210 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='313index-bounds-check.subx.html#L6'>__check-mu-array-bounds</a> "</span>) +<span id="L29211" class="LineNr">29211 </span><span class="Constant">$emit-mu-index-bounds-check:compute-base</span>: +<span id="L29212" class="LineNr">29212 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L29213" class="LineNr">29213 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29214" class="LineNr">29214 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29215" class="LineNr">29215 </span> 89/<- %ebx 0/r32/eax +<span id="L29216" class="LineNr">29216 </span><span class="Constant">$emit-mu-index-bounds-check:emit-index</span>: +<span id="L29217" class="LineNr">29217 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L29218" class="LineNr">29218 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29219" class="LineNr">29219 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29220" class="LineNr">29220 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29221" class="LineNr">29221 </span> 89/<- %edx 0/r32/eax +<span id="L29222" class="LineNr">29222 </span> <span class="subxComment"># if index->register, print its code</span> +<span id="L29223" class="LineNr">29223 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29224" class="LineNr">29224 </span> { +<span id="L29225" class="LineNr">29225 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29226" class="LineNr">29226 </span><span class="Constant">$emit-mu-index-bounds-check:emit-register-index</span>: +<span id="L29227" class="LineNr">29227 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"%"</span>) +<span id="L29228" class="LineNr">29228 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29229" class="LineNr">29229 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29230" class="LineNr">29230 </span> eb/jump $emit-mu-index-bounds-check:index-done/disp8 +<span id="L29231" class="LineNr">29231 </span> } +<span id="L29232" class="LineNr">29232 </span> <span class="subxComment"># otherwise if index is a literal, print it</span> +<span id="L29233" class="LineNr">29233 </span><span class="Constant">$emit-mu-index-bounds-check:emit-literal-index</span>: +<span id="L29234" class="LineNr">29234 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29235" class="LineNr">29235 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29236" class="LineNr">29236 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29237" class="LineNr">29237 </span> { +<span id="L29238" class="LineNr">29238 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29239" class="LineNr">29239 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29240" class="LineNr">29240 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29241" class="LineNr">29241 </span> } +<span id="L29242" class="LineNr">29242 </span><span class="Constant">$emit-mu-index-bounds-check:index-done</span>: +<span id="L29243" class="LineNr">29243 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L29244" class="LineNr">29244 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size</span>: +<span id="L29245" class="LineNr">29245 </span> <span class="subxComment"># if index is a literal or int, print size of array element</span> +<span id="L29246" class="LineNr">29246 </span> { +<span id="L29247" class="LineNr">29247 </span> { +<span id="L29248" class="LineNr">29248 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29249" class="LineNr">29249 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># literal => eax</span> +<span id="L29250" class="LineNr">29250 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29251" class="LineNr">29251 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29252" class="LineNr">29252 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29253" class="LineNr">29253 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29254" class="LineNr">29254 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29255" class="LineNr">29255 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29256" class="LineNr">29256 </span> eb/jump $emit-mu-index-bounds-check:emit-element-size-offset/disp8 +<span id="L29257" class="LineNr">29257 </span> } +<span id="L29258" class="LineNr">29258 </span><span class="Constant">$emit-mu-index-bounds-check:emit-int-register-index</span>: +<span id="L29259" class="LineNr">29259 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %ebx *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L29260" class="LineNr">29260 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29261" class="LineNr">29261 </span> e9/jump $emit-mu-index-bounds-check:emit-base/disp32 +<span id="L29262" class="LineNr">29262 </span> } +<span id="L29263" class="LineNr">29263 </span><span class="Constant">$emit-mu-index-bounds-check:emit-element-size-offset</span>: +<span id="L29264" class="LineNr">29264 </span> <span class="subxComment"># if index has type (offset ...), print "1"</span> +<span id="L29265" class="LineNr">29265 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29266" class="LineNr">29266 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29267" class="LineNr">29267 </span> { +<span id="L29268" class="LineNr">29268 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29269" class="LineNr">29269 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29270" class="LineNr">29270 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29271" class="LineNr">29271 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29272" class="LineNr">29272 </span> { +<span id="L29273" class="LineNr">29273 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29274" class="LineNr">29274 </span><span class="Constant">$emit-mu-index-bounds-check:emit-offset-register-index</span>: +<span id="L29275" class="LineNr">29275 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"1"</span>) +<span id="L29276" class="LineNr">29276 </span> } +<span id="L29277" class="LineNr">29277 </span> } +<span id="L29278" class="LineNr">29278 </span><span class="Constant">$emit-mu-index-bounds-check:emit-base</span>: +<span id="L29279" class="LineNr">29279 </span> <span class="subxComment"># if base is in a register, print " *" base->register</span> +<span id="L29280" class="LineNr">29280 </span> 81 7/subop/compare *(ebx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29281" class="LineNr">29281 </span> { +<span id="L29282" class="LineNr">29282 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L29283" class="LineNr">29283 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L29284" class="LineNr">29284 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29285" class="LineNr">29285 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29286" class="LineNr">29286 </span> e9/jump $emit-mu-index-bounds-check:emit-function-name/disp32 +<span id="L29287" class="LineNr">29287 </span> } +<span id="L29288" class="LineNr">29288 </span> <span class="subxComment"># otherwise print " *(ebp+" base->offset ")"</span> +<span id="L29289" class="LineNr">29289 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L29290" class="LineNr">29290 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(ebx+0x14)) <span class="subxComment"># Var-offset</span> +<span id="L29291" class="LineNr">29291 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L29292" class="LineNr">29292 </span><span class="Constant">$emit-mu-index-bounds-check:emit-function-name</span>: +<span id="L29293" class="LineNr">29293 </span> <span class="subxComment"># " \"" function-name "\""</span> +<span id="L29294" class="LineNr">29294 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L29295" class="LineNr">29295 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L29296" class="LineNr">29296 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L29297" class="LineNr">29297 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29298" class="LineNr">29298 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>") +<span id="L29299" class="LineNr">29299 </span><span class="Constant">$emit-mu-index-bounds-check:emit-array-name</span>: +<span id="L29300" class="LineNr">29300 </span> <span class="subxComment"># " \"" base->name "\""</span> +<span id="L29301" class="LineNr">29301 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" \"</span>") +<span id="L29302" class="LineNr">29302 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29303" class="LineNr">29303 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29304" class="LineNr">29304 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"\"</span>)\n") +<span id="L29305" class="LineNr">29305 </span><span class="Constant">$emit-mu-index-bounds-check:end</span>: +<span id="L29306" class="LineNr">29306 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29307" class="LineNr">29307 </span> 5b/pop-to-ebx +<span id="L29308" class="LineNr">29308 </span> 5a/pop-to-edx +<span id="L29309" class="LineNr">29309 </span> 59/pop-to-ecx +<span id="L29310" class="LineNr">29310 </span> 58/pop-to-eax +<span id="L29311" class="LineNr">29311 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29312" class="LineNr">29312 </span> 89/<- %esp 5/r32/ebp +<span id="L29313" class="LineNr">29313 </span> 5d/pop-to-ebp +<span id="L29314" class="LineNr">29314 </span> c3/return +<span id="L29315" class="LineNr">29315 </span> +<span id="L29316" class="LineNr">29316 </span><span class="subxFunction">translate-mu-index-stmt-with-array-in-register</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29317" class="LineNr">29317 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29318" class="LineNr">29318 </span> 55/push-ebp +<span id="L29319" class="LineNr">29319 </span> 89/<- %ebp 4/r32/esp +<span id="L29320" class="LineNr">29320 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29321" class="LineNr">29321 </span> 50/push-eax +<span id="L29322" class="LineNr">29322 </span> 51/push-ecx +<span id="L29323" class="LineNr">29323 </span> 52/push-edx +<span id="L29324" class="LineNr">29324 </span> 53/push-ebx +<span id="L29325" class="LineNr">29325 </span> <span class="subxComment">#</span> +<span id="L29326" class="LineNr">29326 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29327" class="LineNr">29327 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *("</span>) +<span id="L29328" class="LineNr">29328 </span> <span class="subxComment"># TODO: ensure inouts[0] is in a register and not dereferenced</span> +<span id="L29329" class="LineNr">29329 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-base</span>: +<span id="L29330" class="LineNr">29330 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29331" class="LineNr">29331 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29332" class="LineNr">29332 </span> <span class="subxComment"># var base/ebx: (addr var) = inouts[0]</span> +<span id="L29333" class="LineNr">29333 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29334" class="LineNr">29334 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29335" class="LineNr">29335 </span> 89/<- %ebx 0/r32/eax +<span id="L29336" class="LineNr">29336 </span> <span class="subxComment"># print base->register " + "</span> +<span id="L29337" class="LineNr">29337 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0x18) *(ebx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29338" class="LineNr">29338 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29339" class="LineNr">29339 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L29340" class="LineNr">29340 </span> <span class="subxComment"># var index/edx: (addr var) = inouts[1]</span> +<span id="L29341" class="LineNr">29341 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29342" class="LineNr">29342 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29343" class="LineNr">29343 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29344" class="LineNr">29344 </span> 89/<- %edx 0/r32/eax +<span id="L29345" class="LineNr">29345 </span> <span class="subxComment"># if index->register</span> +<span id="L29346" class="LineNr">29346 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29347" class="LineNr">29347 </span> { +<span id="L29348" class="LineNr">29348 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29349" class="LineNr">29349 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index</span>: +<span id="L29350" class="LineNr">29350 </span> <span class="subxComment"># if index is an int</span> +<span id="L29351" class="LineNr">29351 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29352" class="LineNr">29352 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29353" class="LineNr">29353 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29354" class="LineNr">29354 </span> { +<span id="L29355" class="LineNr">29355 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29356" class="LineNr">29356 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-int-register-index</span>: +<span id="L29357" class="LineNr">29357 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + 4) "</span> +<span id="L29358" class="LineNr">29358 </span> <span class="subxS1Comment"># . index->register "<<"</span> +<span id="L29359" class="LineNr">29359 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29360" class="LineNr">29360 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29361" class="LineNr">29361 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L29362" class="LineNr">29362 </span> <span class="subxS1Comment"># . log2(array-element-size(base->type))</span> +<span id="L29363" class="LineNr">29363 </span> <span class="subxComment"># we know size is a power of 2</span> +<span id="L29364" class="LineNr">29364 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29365" class="LineNr">29365 </span> (<a href='mu.subx.html#L30079'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29366" class="LineNr">29366 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29367" class="LineNr">29367 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 +<span id="L29368" class="LineNr">29368 </span> } +<span id="L29369" class="LineNr">29369 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L29370" class="LineNr">29370 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29371" class="LineNr">29371 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29372" class="LineNr">29372 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L29373" class="LineNr">29373 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L29374" class="LineNr">29374 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29375" class="LineNr">29375 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29376" class="LineNr">29376 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29377" class="LineNr">29377 </span> { +<span id="L29378" class="LineNr">29378 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29379" class="LineNr">29379 </span> <span class="subxComment"># print index->register</span> +<span id="L29380" class="LineNr">29380 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-offset-register-index</span>: +<span id="L29381" class="LineNr">29381 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29382" class="LineNr">29382 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29383" class="LineNr">29383 </span> } +<span id="L29384" class="LineNr">29384 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-register-index-done</span>: +<span id="L29385" class="LineNr">29385 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + 4) "</span>) +<span id="L29386" class="LineNr">29386 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L29387" class="LineNr">29387 </span> } +<span id="L29388" class="LineNr">29388 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L29389" class="LineNr">29389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29390" class="LineNr">29390 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29391" class="LineNr">29391 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29392" class="LineNr">29392 </span> { +<span id="L29393" class="LineNr">29393 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29394" class="LineNr">29394 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-literal-index</span>: +<span id="L29395" class="LineNr">29395 </span> <span class="subxComment"># var index-value/edx: int = parse-hex-int(index->name)</span> +<span id="L29396" class="LineNr">29396 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29397" class="LineNr">29397 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29398" class="LineNr">29398 </span> 89/<- %edx 0/r32/eax +<span id="L29399" class="LineNr">29399 </span> <span class="subxComment"># offset = idx-value * array-element-size(base->type)</span> +<span id="L29400" class="LineNr">29400 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29401" class="LineNr">29401 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L29402" class="LineNr">29402 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L29403" class="LineNr">29403 </span> 05/add-to-eax 4/imm32 +<span id="L29404" class="LineNr">29404 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L29405" class="LineNr">29405 </span> <span class="subxComment"># print offset</span> +<span id="L29406" class="LineNr">29406 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29407" class="LineNr">29407 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29408" class="LineNr">29408 </span> e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 +<span id="L29409" class="LineNr">29409 </span> } +<span id="L29410" class="LineNr">29410 </span> <span class="subxComment"># otherwise abort</span> +<span id="L29411" class="LineNr">29411 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L29412" class="LineNr">29412 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:emit-output</span>: +<span id="L29413" class="LineNr">29413 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29414" class="LineNr">29414 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29415" class="LineNr">29415 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29416" class="LineNr">29416 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29417" class="LineNr">29417 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29418" class="LineNr">29418 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29419" class="LineNr">29419 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29420" class="LineNr">29420 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29421" class="LineNr">29421 </span><span class="Constant">$translate-mu-index-stmt-with-array-in-register:end</span>: +<span id="L29422" class="LineNr">29422 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29423" class="LineNr">29423 </span> 5b/pop-to-ebx +<span id="L29424" class="LineNr">29424 </span> 5a/pop-to-edx +<span id="L29425" class="LineNr">29425 </span> 59/pop-to-ecx +<span id="L29426" class="LineNr">29426 </span> 58/pop-to-eax +<span id="L29427" class="LineNr">29427 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29428" class="LineNr">29428 </span> 89/<- %esp 5/r32/ebp +<span id="L29429" class="LineNr">29429 </span> 5d/pop-to-ebp +<span id="L29430" class="LineNr">29430 </span> c3/return +<span id="L29431" class="LineNr">29431 </span> +<span id="L29432" class="LineNr">29432 </span><span class="subxFunction">translate-mu-index-stmt-with-array-on-stack</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29433" class="LineNr">29433 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29434" class="LineNr">29434 </span> 55/push-ebp +<span id="L29435" class="LineNr">29435 </span> 89/<- %ebp 4/r32/esp +<span id="L29436" class="LineNr">29436 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29437" class="LineNr">29437 </span> 50/push-eax +<span id="L29438" class="LineNr">29438 </span> 51/push-ecx +<span id="L29439" class="LineNr">29439 </span> 52/push-edx +<span id="L29440" class="LineNr">29440 </span> 53/push-ebx +<span id="L29441" class="LineNr">29441 </span> <span class="subxComment">#</span> +<span id="L29442" class="LineNr">29442 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29443" class="LineNr">29443 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address *(ebp + "</span>) +<span id="L29444" class="LineNr">29444 </span> <span class="subxComment"># var curr/edx: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L29445" class="LineNr">29445 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29446" class="LineNr">29446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29447" class="LineNr">29447 </span> 89/<- %edx 0/r32/eax +<span id="L29448" class="LineNr">29448 </span> <span class="subxComment"># var base/ecx: (addr var) = lookup(curr->value)</span> +<span id="L29449" class="LineNr">29449 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29450" class="LineNr">29450 </span> 89/<- %ecx 0/r32/eax +<span id="L29451" class="LineNr">29451 </span> <span class="subxComment"># var curr2/eax: (addr stmt-var) = lookup(curr->next)</span> +<span id="L29452" class="LineNr">29452 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29453" class="LineNr">29453 </span> <span class="subxComment"># var index/edx: (handle var) = curr2->value</span> +<span id="L29454" class="LineNr">29454 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29455" class="LineNr">29455 </span> 89/<- %edx 0/r32/eax +<span id="L29456" class="LineNr">29456 </span> <span class="subxComment"># if index->register</span> +<span id="L29457" class="LineNr">29457 </span> 81 7/subop/compare *(edx+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29458" class="LineNr">29458 </span> { +<span id="L29459" class="LineNr">29459 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29460" class="LineNr">29460 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index</span>: +<span id="L29461" class="LineNr">29461 </span> <span class="subxComment"># if index is an int</span> +<span id="L29462" class="LineNr">29462 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29463" class="LineNr">29463 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 1) <span class="subxComment"># int => eax</span> +<span id="L29464" class="LineNr">29464 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29465" class="LineNr">29465 </span> { +<span id="L29466" class="LineNr">29466 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29467" class="LineNr">29467 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-int-register-index</span>: +<span id="L29468" class="LineNr">29468 </span> <span class="subxComment"># print index->register "<<" log2(array-element-size(base)) " + " base->offset+4</span> +<span id="L29469" class="LineNr">29469 </span> <span class="subxS1Comment"># . inouts[1]->register "<<"</span> +<span id="L29470" class="LineNr">29470 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29471" class="LineNr">29471 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29472" class="LineNr">29472 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"<<"</span>) +<span id="L29473" class="LineNr">29473 </span> <span class="subxS1Comment"># . log2(array-element-size(base))</span> +<span id="L29474" class="LineNr">29474 </span> <span class="subxComment"># TODO: ensure size is a power of 2</span> +<span id="L29475" class="LineNr">29475 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29476" class="LineNr">29476 </span> (<a href='mu.subx.html#L30079'>num-shift-rights</a> %eax) <span class="subxComment"># => eax</span> +<span id="L29477" class="LineNr">29477 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29478" class="LineNr">29478 </span> <span class="subxComment">#</span> +<span id="L29479" class="LineNr">29479 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L29480" class="LineNr">29480 </span> <span class="subxComment">#</span> +<span id="L29481" class="LineNr">29481 </span> 8b/-> *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L29482" class="LineNr">29482 </span> 05/add-to-eax 4/imm32 <span class="subxComment"># for array length</span> +<span id="L29483" class="LineNr">29483 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29484" class="LineNr">29484 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 +<span id="L29485" class="LineNr">29485 </span> } +<span id="L29486" class="LineNr">29486 </span> <span class="subxComment"># if index->type is any other atom, abort</span> +<span id="L29487" class="LineNr">29487 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29488" class="LineNr">29488 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L29489" class="LineNr">29489 </span> 0f 85/jump-if-!= $translate-mu-index-stmt:error2/disp32 +<span id="L29490" class="LineNr">29490 </span> <span class="subxComment"># if index has type (offset ...)</span> +<span id="L29491" class="LineNr">29491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29492" class="LineNr">29492 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 7) <span class="subxComment"># => eax</span> +<span id="L29493" class="LineNr">29493 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29494" class="LineNr">29494 </span> { +<span id="L29495" class="LineNr">29495 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29496" class="LineNr">29496 </span> <span class="subxComment"># print index->register</span> +<span id="L29497" class="LineNr">29497 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-offset-register-index</span>: +<span id="L29498" class="LineNr">29498 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x18) *(edx+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29499" class="LineNr">29499 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29500" class="LineNr">29500 </span> } +<span id="L29501" class="LineNr">29501 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-register-index-done</span>: +<span id="L29502" class="LineNr">29502 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29503" class="LineNr">29503 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L29504" class="LineNr">29504 </span> } +<span id="L29505" class="LineNr">29505 </span> <span class="subxComment"># otherwise if index is a literal</span> +<span id="L29506" class="LineNr">29506 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29507" class="LineNr">29507 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 0) <span class="subxComment"># => eax</span> +<span id="L29508" class="LineNr">29508 </span> 3d/compare-eax-and 0/imm32/false +<span id="L29509" class="LineNr">29509 </span> { +<span id="L29510" class="LineNr">29510 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29511" class="LineNr">29511 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-literal-index</span>: +<span id="L29512" class="LineNr">29512 </span> <span class="subxComment"># var idx-value/edx: int = parse-hex-int(index->name)</span> +<span id="L29513" class="LineNr">29513 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L29514" class="LineNr">29514 </span> (<a href='118parse-hex-int.subx.html#L354'>parse-hex-int</a> %eax) <span class="subxComment"># Var-name => eax</span> +<span id="L29515" class="LineNr">29515 </span> 89/<- %edx 0/r32/eax +<span id="L29516" class="LineNr">29516 </span> <span class="subxComment"># offset = idx-value * array-element-size(base)</span> +<span id="L29517" class="LineNr">29517 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %ecx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29518" class="LineNr">29518 </span> f7 4/subop/multiply-into-edx-eax %edx <span class="subxComment"># clobbers edx</span> +<span id="L29519" class="LineNr">29519 </span> <span class="subxComment"># offset += base->offset</span> +<span id="L29520" class="LineNr">29520 </span> 03/add *(ecx+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L29521" class="LineNr">29521 </span> <span class="subxComment"># offset += 4 for array size</span> +<span id="L29522" class="LineNr">29522 </span> 05/add-to-eax 4/imm32 +<span id="L29523" class="LineNr">29523 </span> <span class="subxComment"># TODO: check edx for overflow</span> +<span id="L29524" class="LineNr">29524 </span> <span class="subxComment"># print offset</span> +<span id="L29525" class="LineNr">29525 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29526" class="LineNr">29526 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29527" class="LineNr">29527 </span> e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 +<span id="L29528" class="LineNr">29528 </span> } +<span id="L29529" class="LineNr">29529 </span> <span class="subxComment"># otherwise abort</span> +<span id="L29530" class="LineNr">29530 </span> e9/jump $translate-mu-index-stmt:error1/disp32 +<span id="L29531" class="LineNr">29531 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:emit-output</span>: +<span id="L29532" class="LineNr">29532 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29533" class="LineNr">29533 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29534" class="LineNr">29534 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x14) *(eax+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29535" class="LineNr">29535 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29536" class="LineNr">29536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29537" class="LineNr">29537 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29538" class="LineNr">29538 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29539" class="LineNr">29539 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29540" class="LineNr">29540 </span><span class="Constant">$translate-mu-index-stmt-with-array-on-stack:end</span>: +<span id="L29541" class="LineNr">29541 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29542" class="LineNr">29542 </span> 5b/pop-to-ebx +<span id="L29543" class="LineNr">29543 </span> 5a/pop-to-edx +<span id="L29544" class="LineNr">29544 </span> 59/pop-to-ecx +<span id="L29545" class="LineNr">29545 </span> 58/pop-to-eax +<span id="L29546" class="LineNr">29546 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29547" class="LineNr">29547 </span> 89/<- %esp 5/r32/ebp +<span id="L29548" class="LineNr">29548 </span> 5d/pop-to-ebp +<span id="L29549" class="LineNr">29549 </span> c3/return +<span id="L29550" class="LineNr">29550 </span> +<span id="L29551" class="LineNr">29551 </span><span class="subxFunction">translate-mu-compute-index-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29552" class="LineNr">29552 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29553" class="LineNr">29553 </span> 55/push-ebp +<span id="L29554" class="LineNr">29554 </span> 89/<- %ebp 4/r32/esp +<span id="L29555" class="LineNr">29555 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29556" class="LineNr">29556 </span> 50/push-eax +<span id="L29557" class="LineNr">29557 </span> 51/push-ecx +<span id="L29558" class="LineNr">29558 </span> 52/push-edx +<span id="L29559" class="LineNr">29559 </span> 53/push-ebx +<span id="L29560" class="LineNr">29560 </span> <span class="subxComment">#</span> +<span id="L29561" class="LineNr">29561 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29562" class="LineNr">29562 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"69/multiply"</span>) +<span id="L29563" class="LineNr">29563 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29564" class="LineNr">29564 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29565" class="LineNr">29565 </span> <span class="subxComment"># var first-inout/ebx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29566" class="LineNr">29566 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29567" class="LineNr">29567 </span> 89/<- %ebx 0/r32/eax +<span id="L29568" class="LineNr">29568 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-index</span>: +<span id="L29569" class="LineNr">29569 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+8) *(ebx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29570" class="LineNr">29570 </span> (<a href='mu.subx.html#L35266'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L29571" class="LineNr">29571 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L29572" class="LineNr">29572 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-elem-size</span>: +<span id="L29573" class="LineNr">29573 </span> <span class="subxComment"># var base/ebx: (addr var)</span> +<span id="L29574" class="LineNr">29574 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29575" class="LineNr">29575 </span> 89/<- %ebx 0/r32/eax +<span id="L29576" class="LineNr">29576 </span> <span class="subxComment"># print array-element-size(base)</span> +<span id="L29577" class="LineNr">29577 </span> (<a href='mu.subx.html#L28900'>array-element-size</a> %ebx *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29578" class="LineNr">29578 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29579" class="LineNr">29579 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32 "</span>) +<span id="L29580" class="LineNr">29580 </span><span class="Constant">$translate-mu-compute-index-stmt:emit-output</span>: +<span id="L29581" class="LineNr">29581 </span> <span class="subxComment"># outputs[0] "/r32"</span> +<span id="L29582" class="LineNr">29582 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29583" class="LineNr">29583 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29584" class="LineNr">29584 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29585" class="LineNr">29585 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29586" class="LineNr">29586 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29587" class="LineNr">29587 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29588" class="LineNr">29588 </span><span class="Constant">$translate-mu-compute-index-stmt:end</span>: +<span id="L29589" class="LineNr">29589 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29590" class="LineNr">29590 </span> 5b/pop-to-ebx +<span id="L29591" class="LineNr">29591 </span> 5a/pop-to-edx +<span id="L29592" class="LineNr">29592 </span> 59/pop-to-ecx +<span id="L29593" class="LineNr">29593 </span> 58/pop-to-eax +<span id="L29594" class="LineNr">29594 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29595" class="LineNr">29595 </span> 89/<- %esp 5/r32/ebp +<span id="L29596" class="LineNr">29596 </span> 5d/pop-to-ebp +<span id="L29597" class="LineNr">29597 </span> c3/return +<span id="L29598" class="LineNr">29598 </span> +<span id="L29599" class="LineNr">29599 </span><span class="subxFunction">translate-mu-get-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L29600" class="LineNr">29600 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29601" class="LineNr">29601 </span> 55/push-ebp +<span id="L29602" class="LineNr">29602 </span> 89/<- %ebp 4/r32/esp +<span id="L29603" class="LineNr">29603 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29604" class="LineNr">29604 </span> 50/push-eax +<span id="L29605" class="LineNr">29605 </span> 51/push-ecx +<span id="L29606" class="LineNr">29606 </span> 52/push-edx +<span id="L29607" class="LineNr">29607 </span> <span class="subxComment">#</span> +<span id="L29608" class="LineNr">29608 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29609" class="LineNr">29609 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"8d/copy-address "</span>) +<span id="L29610" class="LineNr">29610 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L29611" class="LineNr">29611 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L29612" class="LineNr">29612 </span> <span class="subxComment"># var offset/edx: int = get offset of stmt</span> +<span id="L29613" class="LineNr">29613 </span> (<a href='mu.subx.html#L30106'>mu-get-offset</a> %ecx) <span class="subxComment"># => eax</span> +<span id="L29614" class="LineNr">29614 </span> 89/<- %edx 0/r32/eax +<span id="L29615" class="LineNr">29615 </span> <span class="subxComment"># var base/eax: (addr var) = stmt->inouts->value</span> +<span id="L29616" class="LineNr">29616 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29617" class="LineNr">29617 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29618" class="LineNr">29618 </span> <span class="subxComment"># if base is in a register</span> +<span id="L29619" class="LineNr">29619 </span> 81 7/subop/compare *(eax+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L29620" class="LineNr">29620 </span> { +<span id="L29621" class="LineNr">29621 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L29622" class="LineNr">29622 </span><span class="Constant">$translate-mu-get-stmt:emit-register-input</span>: +<span id="L29623" class="LineNr">29623 </span> <span class="subxComment"># emit "*(" base->register " + " offset ") "</span> +<span id="L29624" class="LineNr">29624 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*("</span>) +<span id="L29625" class="LineNr">29625 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29626" class="LineNr">29626 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L29627" class="LineNr">29627 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" + "</span>) +<span id="L29628" class="LineNr">29628 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L29629" class="LineNr">29629 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29630" class="LineNr">29630 </span> e9/jump $translate-mu-get-stmt:emit-output/disp32 +<span id="L29631" class="LineNr">29631 </span> } +<span id="L29632" class="LineNr">29632 </span> <span class="subxComment"># otherwise base is on the stack</span> +<span id="L29633" class="LineNr">29633 </span> { +<span id="L29634" class="LineNr">29634 </span><span class="Constant">$translate-mu-get-stmt:emit-stack-input</span>: +<span id="L29635" class="LineNr">29635 </span> <span class="subxComment"># emit "*(ebp + " inouts[0]->stack-offset + offset ") "</span> +<span id="L29636" class="LineNr">29636 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L29637" class="LineNr">29637 </span> 03/add *(eax+0x14) 2/r32/edx <span class="subxComment"># Var-offset</span> +<span id="L29638" class="LineNr">29638 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %edx) +<span id="L29639" class="LineNr">29639 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">") "</span>) +<span id="L29640" class="LineNr">29640 </span> eb/jump $translate-mu-get-stmt:emit-output/disp8 +<span id="L29641" class="LineNr">29641 </span> } +<span id="L29642" class="LineNr">29642 </span><span class="Constant">$translate-mu-get-stmt:emit-output</span>: +<span id="L29643" class="LineNr">29643 </span> <span class="subxComment"># var output/eax: (addr var) = stmt->outputs->value</span> +<span id="L29644" class="LineNr">29644 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L29645" class="LineNr">29645 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29646" class="LineNr">29646 </span> <span class="subxComment"># emit offset->register "/r32"</span> +<span id="L29647" class="LineNr">29647 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L29648" class="LineNr">29648 </span> (<a href='131table.subx.html#L26'>get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> %eax 0xc <span class="Constant">"Mu-registers"</span>) <span class="subxComment"># => eax: (addr int)</span> +<span id="L29649" class="LineNr">29649 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L29650" class="LineNr">29650 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32\n"</span>) +<span id="L29651" class="LineNr">29651 </span><span class="Constant">$translate-mu-get-stmt:end</span>: +<span id="L29652" class="LineNr">29652 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29653" class="LineNr">29653 </span> 5a/pop-to-edx +<span id="L29654" class="LineNr">29654 </span> 59/pop-to-ecx +<span id="L29655" class="LineNr">29655 </span> 58/pop-to-eax +<span id="L29656" class="LineNr">29656 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29657" class="LineNr">29657 </span> 89/<- %esp 5/r32/ebp +<span id="L29658" class="LineNr">29658 </span> 5d/pop-to-ebp +<span id="L29659" class="LineNr">29659 </span> c3/return +<span id="L29660" class="LineNr">29660 </span> +<span id="L29661" class="LineNr">29661 </span><span class="subxFunction">translate-mu-copy-object-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29662" class="LineNr">29662 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29663" class="LineNr">29663 </span> 55/push-ebp +<span id="L29664" class="LineNr">29664 </span> 89/<- %ebp 4/r32/esp +<span id="L29665" class="LineNr">29665 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29666" class="LineNr">29666 </span> 50/push-eax +<span id="L29667" class="LineNr">29667 </span> <span class="subxComment">#</span> +<span id="L29668" class="LineNr">29668 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29669" class="LineNr">29669 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(copy-bytes"</span>) +<span id="L29670" class="LineNr">29670 </span> <span class="subxComment"># eax = stmt</span> +<span id="L29671" class="LineNr">29671 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29672" class="LineNr">29672 </span> <span class="subxComment"># var first-inout/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29673" class="LineNr">29673 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29674" class="LineNr">29674 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L29675" class="LineNr">29675 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L29676" class="LineNr">29676 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29677" class="LineNr">29677 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L29678" class="LineNr">29678 </span> <span class="subxComment"># emit size of inouts</span> +<span id="L29679" class="LineNr">29679 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L29680" class="LineNr">29680 </span> (<a href='mu.subx.html#L29784'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29681" class="LineNr">29681 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29682" class="LineNr">29682 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29683" class="LineNr">29683 </span><span class="Constant">$translate-mu-copy-object-stmt:end</span>: +<span id="L29684" class="LineNr">29684 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29685" class="LineNr">29685 </span> 58/pop-to-eax +<span id="L29686" class="LineNr">29686 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29687" class="LineNr">29687 </span> 89/<- %esp 5/r32/ebp +<span id="L29688" class="LineNr">29688 </span> 5d/pop-to-ebp +<span id="L29689" class="LineNr">29689 </span> c3/return +<span id="L29690" class="LineNr">29690 </span> +<span id="L29691" class="LineNr">29691 </span><span class="subxFunction">translate-mu-clear-object-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29692" class="LineNr">29692 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29693" class="LineNr">29693 </span> 55/push-ebp +<span id="L29694" class="LineNr">29694 </span> 89/<- %ebp 4/r32/esp +<span id="L29695" class="LineNr">29695 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29696" class="LineNr">29696 </span> 50/push-eax +<span id="L29697" class="LineNr">29697 </span> <span class="subxComment">#</span> +<span id="L29698" class="LineNr">29698 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29699" class="LineNr">29699 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(zero-out"</span>) +<span id="L29700" class="LineNr">29700 </span> <span class="subxComment"># eax = stmt</span> +<span id="L29701" class="LineNr">29701 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L29702" class="LineNr">29702 </span> <span class="subxComment"># var dest/eax: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29703" class="LineNr">29703 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29704" class="LineNr">29704 </span> <span class="subxComment">#</span> +<span id="L29705" class="LineNr">29705 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L29706" class="LineNr">29706 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L29707" class="LineNr">29707 </span> (<a href='mu.subx.html#L29784'>addr-payload-size</a> %eax *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29708" class="LineNr">29708 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29709" class="LineNr">29709 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29710" class="LineNr">29710 </span><span class="Constant">$translate-mu-clear-object-stmt:end</span>: +<span id="L29711" class="LineNr">29711 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29712" class="LineNr">29712 </span> 58/pop-to-eax +<span id="L29713" class="LineNr">29713 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29714" class="LineNr">29714 </span> 89/<- %esp 5/r32/ebp +<span id="L29715" class="LineNr">29715 </span> 5d/pop-to-ebp +<span id="L29716" class="LineNr">29716 </span> c3/return +<span id="L29717" class="LineNr">29717 </span> +<span id="L29718" class="LineNr">29718 </span><span class="subxFunction">translate-mu-allocate-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29719" class="LineNr">29719 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29720" class="LineNr">29720 </span> 55/push-ebp +<span id="L29721" class="LineNr">29721 </span> 89/<- %ebp 4/r32/esp +<span id="L29722" class="LineNr">29722 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29723" class="LineNr">29723 </span> 50/push-eax +<span id="L29724" class="LineNr">29724 </span> 56/push-esi +<span id="L29725" class="LineNr">29725 </span> 57/push-edi +<span id="L29726" class="LineNr">29726 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29727" class="LineNr">29727 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29728" class="LineNr">29728 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29729" class="LineNr">29729 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29730" class="LineNr">29730 </span> 89/<- %edi 0/r32/eax +<span id="L29731" class="LineNr">29731 </span> <span class="subxComment">#</span> +<span id="L29732" class="LineNr">29732 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29733" class="LineNr">29733 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='120allocate.subx.html#L66'>allocate</a> <a href='120allocate.subx.html#L27'>Heap</a> "</span>) +<span id="L29734" class="LineNr">29734 </span> (<a href='mu.subx.html#L29748'>addr-handle-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29735" class="LineNr">29735 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29736" class="LineNr">29736 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L29737" class="LineNr">29737 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29738" class="LineNr">29738 </span><span class="Constant">$translate-mu-allocate-stmt:end</span>: +<span id="L29739" class="LineNr">29739 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29740" class="LineNr">29740 </span> 5f/pop-to-edi +<span id="L29741" class="LineNr">29741 </span> 5e/pop-to-esi +<span id="L29742" class="LineNr">29742 </span> 58/pop-to-eax +<span id="L29743" class="LineNr">29743 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29744" class="LineNr">29744 </span> 89/<- %esp 5/r32/ebp +<span id="L29745" class="LineNr">29745 </span> 5d/pop-to-ebp +<span id="L29746" class="LineNr">29746 </span> c3/return +<span id="L29747" class="LineNr">29747 </span> +<span id="L29748" class="LineNr">29748 </span><span class="subxFunction">addr-handle-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> +<span id="L29749" class="LineNr">29749 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29750" class="LineNr">29750 </span> 55/push-ebp +<span id="L29751" class="LineNr">29751 </span> 89/<- %ebp 4/r32/esp +<span id="L29752" class="LineNr">29752 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L29753" class="LineNr">29753 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29754" class="LineNr">29754 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29755" class="LineNr">29755 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29756" class="LineNr">29756 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29757" class="LineNr">29757 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29758" class="LineNr">29758 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L29759" class="LineNr">29759 </span> <span class="subxComment"># t = t->right</span> +<span id="L29760" class="LineNr">29760 </span><span class="Constant">$addr-handle-payload-size:skip-addr</span>: +<span id="L29761" class="LineNr">29761 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29762" class="LineNr">29762 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29763" class="LineNr">29763 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29764" class="LineNr">29764 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L29765" class="LineNr">29765 </span> <span class="subxComment"># t = t->right</span> +<span id="L29766" class="LineNr">29766 </span><span class="Constant">$addr-handle-payload-size:skip-handle</span>: +<span id="L29767" class="LineNr">29767 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29768" class="LineNr">29768 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29769" class="LineNr">29769 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L29770" class="LineNr">29770 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L29771" class="LineNr">29771 </span> { +<span id="L29772" class="LineNr">29772 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29773" class="LineNr">29773 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29774" class="LineNr">29774 </span> } +<span id="L29775" class="LineNr">29775 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L29776" class="LineNr">29776 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L29777" class="LineNr">29777 </span> (<a href='mu.subx.html#L26757'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L29778" class="LineNr">29778 </span><span class="Constant">$addr-handle-payload-size:end</span>: +<span id="L29779" class="LineNr">29779 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29780" class="LineNr">29780 </span> 89/<- %esp 5/r32/ebp +<span id="L29781" class="LineNr">29781 </span> 5d/pop-to-ebp +<span id="L29782" class="LineNr">29782 </span> c3/return +<span id="L29783" class="LineNr">29783 </span> +<span id="L29784" class="LineNr">29784 </span><span class="subxFunction">addr-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> +<span id="L29785" class="LineNr">29785 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29786" class="LineNr">29786 </span> 55/push-ebp +<span id="L29787" class="LineNr">29787 </span> 89/<- %ebp 4/r32/esp +<span id="L29788" class="LineNr">29788 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L29789" class="LineNr">29789 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29790" class="LineNr">29790 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29791" class="LineNr">29791 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29792" class="LineNr">29792 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29793" class="LineNr">29793 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29794" class="LineNr">29794 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L29795" class="LineNr">29795 </span> <span class="subxComment"># t = t->right</span> +<span id="L29796" class="LineNr">29796 </span><span class="Constant">$addr-payload-size:skip-addr</span>: +<span id="L29797" class="LineNr">29797 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29798" class="LineNr">29798 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29799" class="LineNr">29799 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L29800" class="LineNr">29800 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L29801" class="LineNr">29801 </span> { +<span id="L29802" class="LineNr">29802 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29803" class="LineNr">29803 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29804" class="LineNr">29804 </span> } +<span id="L29805" class="LineNr">29805 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L29806" class="LineNr">29806 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L29807" class="LineNr">29807 </span> (<a href='mu.subx.html#L26757'>size-of-type-id</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L29808" class="LineNr">29808 </span><span class="Constant">$addr-payload-size:end</span>: +<span id="L29809" class="LineNr">29809 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29810" class="LineNr">29810 </span> 89/<- %esp 5/r32/ebp +<span id="L29811" class="LineNr">29811 </span> 5d/pop-to-ebp +<span id="L29812" class="LineNr">29812 </span> c3/return +<span id="L29813" class="LineNr">29813 </span> +<span id="L29814" class="LineNr">29814 </span><span class="subxFunction">translate-mu-populate-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29815" class="LineNr">29815 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29816" class="LineNr">29816 </span> 55/push-ebp +<span id="L29817" class="LineNr">29817 </span> 89/<- %ebp 4/r32/esp +<span id="L29818" class="LineNr">29818 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29819" class="LineNr">29819 </span> 50/push-eax +<span id="L29820" class="LineNr">29820 </span> 51/push-ecx +<span id="L29821" class="LineNr">29821 </span> 56/push-esi +<span id="L29822" class="LineNr">29822 </span> 57/push-edi +<span id="L29823" class="LineNr">29823 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29824" class="LineNr">29824 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29825" class="LineNr">29825 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29826" class="LineNr">29826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29827" class="LineNr">29827 </span> 89/<- %edi 0/r32/eax +<span id="L29828" class="LineNr">29828 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L29829" class="LineNr">29829 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29830" class="LineNr">29830 </span> 89/<- %ecx 0/r32/eax +<span id="L29831" class="LineNr">29831 </span> <span class="subxComment">#</span> +<span id="L29832" class="LineNr">29832 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29833" class="LineNr">29833 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='308allocate-array.subx.html#L6'>allocate-array2</a> <a href='120allocate.subx.html#L27'>Heap</a> "</span>) +<span id="L29834" class="LineNr">29834 </span> (<a href='mu.subx.html#L29963'>addr-handle-array-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29835" class="LineNr">29835 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29836" class="LineNr">29836 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L29837" class="LineNr">29837 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L29838" class="LineNr">29838 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29839" class="LineNr">29839 </span><span class="Constant">$translate-mu-populate-stmt:end</span>: +<span id="L29840" class="LineNr">29840 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29841" class="LineNr">29841 </span> 5f/pop-to-edi +<span id="L29842" class="LineNr">29842 </span> 5e/pop-to-esi +<span id="L29843" class="LineNr">29843 </span> 59/pop-to-ecx +<span id="L29844" class="LineNr">29844 </span> 58/pop-to-eax +<span id="L29845" class="LineNr">29845 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29846" class="LineNr">29846 </span> 89/<- %esp 5/r32/ebp +<span id="L29847" class="LineNr">29847 </span> 5d/pop-to-ebp +<span id="L29848" class="LineNr">29848 </span> c3/return +<span id="L29849" class="LineNr">29849 </span> +<span id="L29850" class="LineNr">29850 </span><span class="subxFunction">translate-mu-populate-stream-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29851" class="LineNr">29851 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29852" class="LineNr">29852 </span> 55/push-ebp +<span id="L29853" class="LineNr">29853 </span> 89/<- %ebp 4/r32/esp +<span id="L29854" class="LineNr">29854 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29855" class="LineNr">29855 </span> 50/push-eax +<span id="L29856" class="LineNr">29856 </span> 51/push-ecx +<span id="L29857" class="LineNr">29857 </span> 56/push-esi +<span id="L29858" class="LineNr">29858 </span> 57/push-edi +<span id="L29859" class="LineNr">29859 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29860" class="LineNr">29860 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29861" class="LineNr">29861 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29862" class="LineNr">29862 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29863" class="LineNr">29863 </span> 89/<- %edi 0/r32/eax +<span id="L29864" class="LineNr">29864 </span> <span class="subxComment"># var len/ecx: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L29865" class="LineNr">29865 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29866" class="LineNr">29866 </span> 89/<- %ecx 0/r32/eax +<span id="L29867" class="LineNr">29867 </span> <span class="subxComment">#</span> +<span id="L29868" class="LineNr">29868 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29869" class="LineNr">29869 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(<a href='121new-stream.subx.html#L8'>new-stream</a> <a href='120allocate.subx.html#L27'>Heap</a> "</span>) +<span id="L29870" class="LineNr">29870 </span> (<a href='mu.subx.html#L30006'>addr-handle-stream-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29871" class="LineNr">29871 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29872" class="LineNr">29872 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L29873" class="LineNr">29873 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L29874" class="LineNr">29874 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29875" class="LineNr">29875 </span><span class="Constant">$translate-mu-populate-stream-stmt:end</span>: +<span id="L29876" class="LineNr">29876 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29877" class="LineNr">29877 </span> 5f/pop-to-edi +<span id="L29878" class="LineNr">29878 </span> 5e/pop-to-esi +<span id="L29879" class="LineNr">29879 </span> 59/pop-to-ecx +<span id="L29880" class="LineNr">29880 </span> 58/pop-to-eax +<span id="L29881" class="LineNr">29881 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29882" class="LineNr">29882 </span> 89/<- %esp 5/r32/ebp +<span id="L29883" class="LineNr">29883 </span> 5d/pop-to-ebp +<span id="L29884" class="LineNr">29884 </span> c3/return +<span id="L29885" class="LineNr">29885 </span> +<span id="L29886" class="LineNr">29886 </span><span class="subxFunction">translate-mu-read-from-stream-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29887" class="LineNr">29887 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29888" class="LineNr">29888 </span> 55/push-ebp +<span id="L29889" class="LineNr">29889 </span> 89/<- %ebp 4/r32/esp +<span id="L29890" class="LineNr">29890 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29891" class="LineNr">29891 </span> 50/push-eax +<span id="L29892" class="LineNr">29892 </span> 51/push-ecx +<span id="L29893" class="LineNr">29893 </span> 56/push-esi +<span id="L29894" class="LineNr">29894 </span> 57/push-edi +<span id="L29895" class="LineNr">29895 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29896" class="LineNr">29896 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29897" class="LineNr">29897 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29898" class="LineNr">29898 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29899" class="LineNr">29899 </span> 89/<- %ecx 0/r32/eax +<span id="L29900" class="LineNr">29900 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L29901" class="LineNr">29901 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29902" class="LineNr">29902 </span> 89/<- %edi 0/r32/eax +<span id="L29903" class="LineNr">29903 </span> <span class="subxComment">#</span> +<span id="L29904" class="LineNr">29904 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29905" class="LineNr">29905 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(read-from-stream"</span>) +<span id="L29906" class="LineNr">29906 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L29907" class="LineNr">29907 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L29908" class="LineNr">29908 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L29909" class="LineNr">29909 </span> (<a href='mu.subx.html#L29784'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29910" class="LineNr">29910 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29911" class="LineNr">29911 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29912" class="LineNr">29912 </span><span class="Constant">$translate-mu-read-from-stream-stmt:end</span>: +<span id="L29913" class="LineNr">29913 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29914" class="LineNr">29914 </span> 5f/pop-to-edi +<span id="L29915" class="LineNr">29915 </span> 5e/pop-to-esi +<span id="L29916" class="LineNr">29916 </span> 59/pop-to-ecx +<span id="L29917" class="LineNr">29917 </span> 58/pop-to-eax +<span id="L29918" class="LineNr">29918 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29919" class="LineNr">29919 </span> 89/<- %esp 5/r32/ebp +<span id="L29920" class="LineNr">29920 </span> 5d/pop-to-ebp +<span id="L29921" class="LineNr">29921 </span> c3/return +<span id="L29922" class="LineNr">29922 </span> +<span id="L29923" class="LineNr">29923 </span><span class="subxFunction">translate-mu-write-to-stream-stmt</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L29924" class="LineNr">29924 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29925" class="LineNr">29925 </span> 55/push-ebp +<span id="L29926" class="LineNr">29926 </span> 89/<- %ebp 4/r32/esp +<span id="L29927" class="LineNr">29927 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L29928" class="LineNr">29928 </span> 50/push-eax +<span id="L29929" class="LineNr">29929 </span> 51/push-ecx +<span id="L29930" class="LineNr">29930 </span> 56/push-esi +<span id="L29931" class="LineNr">29931 </span> 57/push-edi +<span id="L29932" class="LineNr">29932 </span> <span class="subxComment"># esi = stmt</span> +<span id="L29933" class="LineNr">29933 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L29934" class="LineNr">29934 </span> <span class="subxComment"># var stream/ecx: (addr stmt-var) = stmt->inouts[0]</span> +<span id="L29935" class="LineNr">29935 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L29936" class="LineNr">29936 </span> 89/<- %ecx 0/r32/eax +<span id="L29937" class="LineNr">29937 </span> <span class="subxComment"># var target/edi: (addr stmt-var) = stmt->inouts[1]</span> +<span id="L29938" class="LineNr">29938 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+8) *(ecx+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L29939" class="LineNr">29939 </span> 89/<- %edi 0/r32/eax +<span id="L29940" class="LineNr">29940 </span> <span class="subxComment">#</span> +<span id="L29941" class="LineNr">29941 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L29942" class="LineNr">29942 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"(write-to-stream"</span>) +<span id="L29943" class="LineNr">29943 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %ecx) +<span id="L29944" class="LineNr">29944 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L29945" class="LineNr">29945 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %edi) +<span id="L29946" class="LineNr">29946 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L29947" class="LineNr">29947 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L29948" class="LineNr">29948 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+8)) +<span id="L29949" class="LineNr">29949 </span> (<a href='mu.subx.html#L29784'>addr-payload-size</a> %edi *(ebp+0x10) *(ebp+0x14)) <span class="subxComment"># => eax</span> +<span id="L29950" class="LineNr">29950 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L29951" class="LineNr">29951 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L29952" class="LineNr">29952 </span><span class="Constant">$translate-mu-write-to-stream-stmt:end</span>: +<span id="L29953" class="LineNr">29953 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L29954" class="LineNr">29954 </span> 5f/pop-to-edi +<span id="L29955" class="LineNr">29955 </span> 5e/pop-to-esi +<span id="L29956" class="LineNr">29956 </span> 59/pop-to-ecx +<span id="L29957" class="LineNr">29957 </span> 58/pop-to-eax +<span id="L29958" class="LineNr">29958 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L29959" class="LineNr">29959 </span> 89/<- %esp 5/r32/ebp +<span id="L29960" class="LineNr">29960 </span> 5d/pop-to-ebp +<span id="L29961" class="LineNr">29961 </span> c3/return +<span id="L29962" class="LineNr">29962 </span> +<span id="L29963" class="LineNr">29963 </span><span class="subxFunction">addr-handle-array-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> +<span id="L29964" class="LineNr">29964 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L29965" class="LineNr">29965 </span> 55/push-ebp +<span id="L29966" class="LineNr">29966 </span> 89/<- %ebp 4/r32/esp +<span id="L29967" class="LineNr">29967 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L29968" class="LineNr">29968 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L29969" class="LineNr">29969 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L29970" class="LineNr">29970 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L29971" class="LineNr">29971 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29972" class="LineNr">29972 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29973" class="LineNr">29973 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L29974" class="LineNr">29974 </span> <span class="subxComment"># t = t->right</span> +<span id="L29975" class="LineNr">29975 </span><span class="Constant">$addr-handle-array-payload-size:skip-addr</span>: +<span id="L29976" class="LineNr">29976 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29977" class="LineNr">29977 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29978" class="LineNr">29978 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29979" class="LineNr">29979 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L29980" class="LineNr">29980 </span> <span class="subxComment"># t = t->right</span> +<span id="L29981" class="LineNr">29981 </span><span class="Constant">$addr-handle-array-payload-size:skip-handle</span>: +<span id="L29982" class="LineNr">29982 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29983" class="LineNr">29983 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29984" class="LineNr">29984 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L29985" class="LineNr">29985 </span> <span class="subxComment"># TODO: check t->left == array</span> +<span id="L29986" class="LineNr">29986 </span> <span class="subxComment"># t = t->right</span> +<span id="L29987" class="LineNr">29987 </span><span class="Constant">$addr-handle-array-payload-size:skip-array</span>: +<span id="L29988" class="LineNr">29988 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L29989" class="LineNr">29989 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L29990" class="LineNr">29990 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L29991" class="LineNr">29991 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L29992" class="LineNr">29992 </span> { +<span id="L29993" class="LineNr">29993 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L29994" class="LineNr">29994 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L29995" class="LineNr">29995 </span> } +<span id="L29996" class="LineNr">29996 </span><span class="Constant">$addr-handle-array-payload-size:compute-size</span>: +<span id="L29997" class="LineNr">29997 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L29998" class="LineNr">29998 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L29999" class="LineNr">29999 </span> (<a href='mu.subx.html#L29019'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30000" class="LineNr">30000 </span><span class="Constant">$addr-handle-array-payload-size:end</span>: +<span id="L30001" class="LineNr">30001 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30002" class="LineNr">30002 </span> 89/<- %esp 5/r32/ebp +<span id="L30003" class="LineNr">30003 </span> 5d/pop-to-ebp +<span id="L30004" class="LineNr">30004 </span> c3/return +<span id="L30005" class="LineNr">30005 </span> +<span id="L30006" class="LineNr">30006 </span><span class="subxFunction">addr-handle-stream-payload-size</span>: <span class="subxComment"># s: (addr stmt-var), err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: int</span> +<span id="L30007" class="LineNr">30007 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30008" class="LineNr">30008 </span> 55/push-ebp +<span id="L30009" class="LineNr">30009 </span> 89/<- %ebp 4/r32/esp +<span id="L30010" class="LineNr">30010 </span> <span class="subxComment"># var t/eax: (addr type-tree) = s->value->type</span> +<span id="L30011" class="LineNr">30011 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30012" class="LineNr">30012 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L30013" class="LineNr">30013 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L30014" class="LineNr">30014 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30015" class="LineNr">30015 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30016" class="LineNr">30016 </span> <span class="subxComment"># TODO: check t->left == addr</span> +<span id="L30017" class="LineNr">30017 </span> <span class="subxComment"># t = t->right</span> +<span id="L30018" class="LineNr">30018 </span><span class="Constant">$addr-handle-stream-payload-size:skip-addr</span>: +<span id="L30019" class="LineNr">30019 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30020" class="LineNr">30020 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30021" class="LineNr">30021 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30022" class="LineNr">30022 </span> <span class="subxComment"># TODO: check t->left == handle</span> +<span id="L30023" class="LineNr">30023 </span> <span class="subxComment"># t = t->right</span> +<span id="L30024" class="LineNr">30024 </span><span class="Constant">$addr-handle-stream-payload-size:skip-handle</span>: +<span id="L30025" class="LineNr">30025 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30026" class="LineNr">30026 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30027" class="LineNr">30027 </span> <span class="subxComment"># TODO: check !t->is-atom?</span> +<span id="L30028" class="LineNr">30028 </span> <span class="subxComment"># TODO: check t->left == stream</span> +<span id="L30029" class="LineNr">30029 </span> <span class="subxComment"># t = t->right</span> +<span id="L30030" class="LineNr">30030 </span><span class="Constant">$addr-handle-stream-payload-size:skip-stream</span>: +<span id="L30031" class="LineNr">30031 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L30032" class="LineNr">30032 </span> <span class="subxComment"># TODO: check eax != 0</span> +<span id="L30033" class="LineNr">30033 </span> <span class="subxComment"># if !t->is-atom? t = t->left</span> +<span id="L30034" class="LineNr">30034 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L30035" class="LineNr">30035 </span> { +<span id="L30036" class="LineNr">30036 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L30037" class="LineNr">30037 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L30038" class="LineNr">30038 </span> } +<span id="L30039" class="LineNr">30039 </span><span class="Constant">$addr-handle-stream-payload-size:compute-size</span>: +<span id="L30040" class="LineNr">30040 </span> <span class="subxComment"># TODO: check t->is-atom?</span> +<span id="L30041" class="LineNr">30041 </span> <span class="subxComment"># return size(t->value)</span> +<span id="L30042" class="LineNr">30042 </span> (<a href='mu.subx.html#L29019'>size-of-type-id-as-array-element</a> *(eax+4)) <span class="subxComment"># Type-tree-value => eax</span> +<span id="L30043" class="LineNr">30043 </span><span class="Constant">$addr-handle-stream-payload-size:end</span>: +<span id="L30044" class="LineNr">30044 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30045" class="LineNr">30045 </span> 89/<- %esp 5/r32/ebp +<span id="L30046" class="LineNr">30046 </span> 5d/pop-to-ebp +<span id="L30047" class="LineNr">30047 </span> c3/return +<span id="L30048" class="LineNr">30048 </span> +<span id="L30049" class="LineNr">30049 </span><span class="subxFunction">power-of-2?</span>: <span class="subxComment"># n: int, err: (addr buffered-file), ed: (addr exit-descriptor) -> result/eax: boolean</span> +<span id="L30050" class="LineNr">30050 </span> <span class="subxComment"># precondition: n is positive</span> +<span id="L30051" class="LineNr">30051 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30052" class="LineNr">30052 </span> 55/push-ebp +<span id="L30053" class="LineNr">30053 </span> 89/<- %ebp 4/r32/esp +<span id="L30054" class="LineNr">30054 </span> <span class="subxComment"># eax = n</span> +<span id="L30055" class="LineNr">30055 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30056" class="LineNr">30056 </span> <span class="subxComment"># if (n < 0) abort</span> +<span id="L30057" class="LineNr">30057 </span> 3d/compare-eax-with 0/imm32 +<span id="L30058" class="LineNr">30058 </span> 0f 8c/jump-if-< $power-of-2?:abort/disp32 +<span id="L30059" class="LineNr">30059 </span> <span class="subxComment"># var tmp/eax: int = n-1</span> +<span id="L30060" class="LineNr">30060 </span> 48/decrement-eax +<span id="L30061" class="LineNr">30061 </span> <span class="subxComment"># var tmp2/eax: int = n & tmp</span> +<span id="L30062" class="LineNr">30062 </span> 23/and-> *(ebp+8) 0/r32/eax +<span id="L30063" class="LineNr">30063 </span> <span class="subxComment"># return (tmp2 == 0)</span> +<span id="L30064" class="LineNr">30064 </span> 3d/compare-eax-and 0/imm32 +<span id="L30065" class="LineNr">30065 </span> 0f 94/set-byte-if-= %al +<span id="L30066" class="LineNr">30066 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L30067" class="LineNr">30067 </span><span class="Constant">$power-of-2?:end</span>: +<span id="L30068" class="LineNr">30068 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30069" class="LineNr">30069 </span> 89/<- %esp 5/r32/ebp +<span id="L30070" class="LineNr">30070 </span> 5d/pop-to-ebp +<span id="L30071" class="LineNr">30071 </span> c3/return +<span id="L30072" class="LineNr">30072 </span> +<span id="L30073" class="LineNr">30073 </span><span class="Constant">$power-of-2?:abort</span>: +<span id="L30074" class="LineNr">30074 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0xc) <span class="Constant">"power-of-2?: negative number\n"</span>) +<span id="L30075" class="LineNr">30075 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0xc)) +<span id="L30076" class="LineNr">30076 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x10) 1) +<span id="L30077" class="LineNr">30077 </span> <span class="subxComment"># never gets here</span> +<span id="L30078" class="LineNr">30078 </span> +<span id="L30079" class="LineNr">30079 </span><span class="subxFunction">num-shift-rights</span>: <span class="subxComment"># n: int -> result/eax: int</span> +<span id="L30080" class="LineNr">30080 </span> <span class="subxComment"># precondition: n is a positive power of 2</span> +<span id="L30081" class="LineNr">30081 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30082" class="LineNr">30082 </span> 55/push-ebp +<span id="L30083" class="LineNr">30083 </span> 89/<- %ebp 4/r32/esp +<span id="L30084" class="LineNr">30084 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30085" class="LineNr">30085 </span> 51/push-ecx +<span id="L30086" class="LineNr">30086 </span> <span class="subxComment"># var curr/ecx: int = n</span> +<span id="L30087" class="LineNr">30087 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L30088" class="LineNr">30088 </span> <span class="subxComment"># result = 0</span> +<span id="L30089" class="LineNr">30089 </span> b8/copy-to-eax 0/imm32 +<span id="L30090" class="LineNr">30090 </span> { +<span id="L30091" class="LineNr">30091 </span> <span class="subxComment"># if (curr <= 1) break</span> +<span id="L30092" class="LineNr">30092 </span> 81 7/subop/compare %ecx 1/imm32 +<span id="L30093" class="LineNr">30093 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L30094" class="LineNr">30094 </span> 40/increment-eax +<span id="L30095" class="LineNr">30095 </span> c1/shift 5/subop/arithmetic-right %ecx 1/imm8 +<span id="L30096" class="LineNr">30096 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L30097" class="LineNr">30097 </span> } +<span id="L30098" class="LineNr">30098 </span><span class="Constant">$num-shift-rights:end</span>: +<span id="L30099" class="LineNr">30099 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30100" class="LineNr">30100 </span> 59/pop-to-ecx +<span id="L30101" class="LineNr">30101 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30102" class="LineNr">30102 </span> 89/<- %esp 5/r32/ebp +<span id="L30103" class="LineNr">30103 </span> 5d/pop-to-ebp +<span id="L30104" class="LineNr">30104 </span> c3/return +<span id="L30105" class="LineNr">30105 </span> +<span id="L30106" class="LineNr">30106 </span><span class="subxFunction">mu-get-offset</span>: <span class="subxComment"># stmt: (addr stmt) -> result/eax: int</span> +<span id="L30107" class="LineNr">30107 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30108" class="LineNr">30108 </span> 55/push-ebp +<span id="L30109" class="LineNr">30109 </span> 89/<- %ebp 4/r32/esp +<span id="L30110" class="LineNr">30110 </span> <span class="subxComment"># var second-inout/eax: (addr stmt-var) = stmt->inouts->next</span> +<span id="L30111" class="LineNr">30111 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L30112" class="LineNr">30112 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L30113" class="LineNr">30113 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L30114" class="LineNr">30114 </span> <span class="subxComment"># var output-var/eax: (addr var) = second-inout->value</span> +<span id="L30115" class="LineNr">30115 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L30116" class="LineNr">30116 </span><span class="CommentedCode">#? (write-buffered Stderr "mu-get-offset: ")</span> +<span id="L30117" class="LineNr">30117 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L30118" class="LineNr">30118 </span><span class="CommentedCode">#? (write-buffered Stderr " name: ")</span> +<span id="L30119" class="LineNr">30119 </span><span class="CommentedCode">#? 50/push-eax</span> +<span id="L30120" class="LineNr">30120 </span><span class="CommentedCode">#? (lookup *eax *(eax+4)) # Var-name</span> +<span id="L30121" class="LineNr">30121 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L30122" class="LineNr">30122 </span><span class="CommentedCode">#? 58/pop-to-eax</span> +<span id="L30123" class="LineNr">30123 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L30124" class="LineNr">30124 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L30125" class="LineNr">30125 </span> <span class="subxComment"># return output-var->stack-offset</span> +<span id="L30126" class="LineNr">30126 </span> 8b/-> *(eax+0x14) 0/r32/eax <span class="subxComment"># Var-offset</span> +<span id="L30127" class="LineNr">30127 </span><span class="CommentedCode">#? (write-buffered Stderr "=> ")</span> +<span id="L30128" class="LineNr">30128 </span><span class="CommentedCode">#? (write-int32-hex-buffered Stderr %eax)</span> +<span id="L30129" class="LineNr">30129 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L30130" class="LineNr">30130 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L30131" class="LineNr">30131 </span><span class="Constant">$emit-get-offset:end</span>: +<span id="L30132" class="LineNr">30132 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30133" class="LineNr">30133 </span> 89/<- %esp 5/r32/ebp +<span id="L30134" class="LineNr">30134 </span> 5d/pop-to-ebp +<span id="L30135" class="LineNr">30135 </span> c3/return +<span id="L30136" class="LineNr">30136 </span> +<span id="L30137" class="LineNr">30137 </span><span class="subxFunction">emit-subx-block</span>: <span class="subxComment"># out: (addr buffered-file), block: (addr block), vars: (addr stack live-var), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L30138" class="LineNr">30138 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L30139" class="LineNr">30139 </span> 55/push-ebp +<span id="L30140" class="LineNr">30140 </span> 89/<- %ebp 4/r32/esp +<span id="L30141" class="LineNr">30141 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L30142" class="LineNr">30142 </span> 50/push-eax +<span id="L30143" class="LineNr">30143 </span> 51/push-ecx +<span id="L30144" class="LineNr">30144 </span> 56/push-esi +<span id="L30145" class="LineNr">30145 </span> <span class="subxComment"># esi = block</span> +<span id="L30146" class="LineNr">30146 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L30147" class="LineNr">30147 </span> <span class="subxComment"># block->var->block-depth = *Curr-block-depth</span> +<span id="L30148" class="LineNr">30148 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L30149" class="LineNr">30149 </span> 8b/-> *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 1/r32/ecx +<span id="L30150" class="LineNr">30150 </span> 89/<- *(eax+0x10) 1/r32/ecx <span class="subxComment"># Var-block-depth</span> +<span id="L30151" class="LineNr">30151 </span> <span class="subxComment"># var stmts/eax: (addr list stmt) = lookup(block->statements)</span> +<span id="L30152" class="LineNr">30152 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L30153" class="LineNr">30153 </span> <span class="subxComment">#</span> +<span id="L30154" class="LineNr">30154 </span> { +<span id="L30155" class="LineNr">30155 </span><span class="Constant">$emit-subx-block:check-empty</span>: +<span id="L30156" class="LineNr">30156 </span> 3d/compare-eax-and 0/imm32 +<span id="L30157" class="LineNr">30157 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L30158" class="LineNr">30158 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L30159" class="LineNr">30159 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"{\n"</span>) +<span id="L30160" class="LineNr">30160 </span> <span class="subxComment"># var v/ecx: (addr var) = lookup(block->var)</span> +<span id="L30161" class="LineNr">30161 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Block-var Block-var => eax</span> +<span id="L30162" class="LineNr">30162 </span> 89/<- %ecx 0/r32/eax +<span id="L30163" class="LineNr">30163 </span> <span class="subxComment">#</span> +<span id="L30164" class="LineNr">30164 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L30165" class="LineNr">30165 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30166" class="LineNr">30166 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop:\n"</span>) +<span id="L30167" class="LineNr">30167 </span> ff 0/subop/increment *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> +<span id="L30168" class="LineNr">30168 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0xc)) <span class="subxComment"># Block-var</span> +<span id="L30169" class="LineNr">30169 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) *(esi+0x10)) <span class="subxComment"># Block-var</span> +<span id="L30170" class="LineNr">30170 </span> (<a href='203stack.subx.html#L114'>push</a> *(ebp+0x10) 0) <span class="subxComment"># false</span> +<span id="L30171" class="LineNr">30171 </span> <span class="subxComment"># emit block->statements</span> +<span id="L30172" class="LineNr">30172 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+4) *(esi+8)) <span class="subxComment"># Block-stmts Block-stmts => eax</span> +<span id="L30173" class="LineNr">30173 </span> (<a href='mu.subx.html#L27089'>emit-subx-stmt-list</a> *(ebp+8) %eax *(ebp+0x10) *(ebp+0x14) *(ebp+0x18) *(ebp+0x1c)) +<span id="L30174" class="LineNr">30174 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30175" class="LineNr">30175 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30176" class="LineNr">30176 </span> (<a href='203stack.subx.html#L234'>pop</a> *(ebp+0x10)) <span class="subxComment"># => eax</span> +<span id="L30177" class="LineNr">30177 </span> ff 1/subop/decrement *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> +<span id="L30178" class="LineNr">30178 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L30179" class="LineNr">30179 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"}\n"</span>) +<span id="L30180" class="LineNr">30180 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L30181" class="LineNr">30181 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L30182" class="LineNr">30182 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break:\n"</span>) +<span id="L30183" class="LineNr">30183 </span> } +<span id="L30184" class="LineNr">30184 </span><span class="Constant">$emit-subx-block:end</span>: +<span id="L30185" class="LineNr">30185 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L30186" class="LineNr">30186 </span> 5e/pop-to-esi +<span id="L30187" class="LineNr">30187 </span> 59/pop-to-ecx +<span id="L30188" class="LineNr">30188 </span> 58/pop-to-eax +<span id="L30189" class="LineNr">30189 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L30190" class="LineNr">30190 </span> 89/<- %esp 5/r32/ebp +<span id="L30191" class="LineNr">30191 </span> 5d/pop-to-ebp +<span id="L30192" class="LineNr">30192 </span> c3/return +<span id="L30193" class="LineNr">30193 </span> +<span id="L30194" class="LineNr">30194 </span><span class="subxComment"># Primitives supported</span> +<span id="L30195" class="LineNr">30195 </span><span class="subxComment"># See mu_instructions for a summary of this linked-list data structure.</span> +<span id="L30196" class="LineNr">30196 </span><span class="subxComment">#</span> +<span id="L30197" class="LineNr">30197 </span><span class="subxComment"># For each operation, put variants with hard-coded registers before flexible ones.</span> +<span id="L30198" class="LineNr">30198 </span><span class="subxComment">#</span> +<span id="L30199" class="LineNr">30199 </span><span class="subxComment"># Unfortunately, our restrictions on addresses require that various fields in</span> +<span id="L30200" class="LineNr">30200 </span><span class="subxComment"># primitives be handles, which complicates these definitions.</span> +<span id="L30201" class="LineNr">30201 </span><span class="subxComment"># - we need to insert dummy fields all over the place for fake alloc-ids</span> +<span id="L30202" class="LineNr">30202 </span><span class="subxComment"># - we can't use our syntax sugar of quoted literals for string fields</span> +<span id="L30203" class="LineNr">30203 </span><span class="subxComment">#</span> +<span id="L30204" class="LineNr">30204 </span><span class="subxComment"># Fake alloc-ids are needed because our type definitions up top require</span> +<span id="L30205" class="LineNr">30205 </span><span class="subxComment"># handles but it's clearer to statically allocate these long-lived objects.</span> +<span id="L30206" class="LineNr">30206 </span><span class="subxComment"># Fake alloc-ids are perfectly safe, but they can't be reclaimed.</span> +<span id="L30207" class="LineNr">30207 </span><span class="subxComment">#</span> +<span id="L30208" class="LineNr">30208 </span><span class="subxComment"># Every 'object' below starts with a fake alloc-id. It may also contain other</span> +<span id="L30209" class="LineNr">30209 </span><span class="subxComment"># fake alloc-ids for various handle fields.</span> +<span id="L30210" class="LineNr">30210 </span><span class="subxComment">#</span> +<span id="L30211" class="LineNr">30211 </span><span class="subxComment"># I think of objects starting with a fake alloc-id as having type 'payload'.</span> +<span id="L30212" class="LineNr">30212 </span><span class="subxComment"># It's not really intended to be created dynamically; for that use `allocate`</span> +<span id="L30213" class="LineNr">30213 </span><span class="subxComment"># as usual.</span> +<span id="L30214" class="LineNr">30214 </span><span class="subxComment">#</span> +<span id="L30215" class="LineNr">30215 </span><span class="subxComment"># Idea for a notation to simplify such definitions:</span> +<span id="L30216" class="LineNr">30216 </span><span class="subxComment"># _Primitive-increment-eax: # (payload primitive)</span> +<span id="L30217" class="LineNr">30217 </span><span class="subxComment"># 0x11/alloc-id:fake:payload</span> +<span id="L30218" class="LineNr">30218 </span><span class="subxComment"># 0x11 @(0x11 "increment") # name</span> +<span id="L30219" class="LineNr">30219 </span><span class="subxComment"># 0 0 # inouts</span> +<span id="L30220" class="LineNr">30220 </span><span class="subxComment"># 0x11 @(0x11/payload</span> +<span id="L30221" class="LineNr">30221 </span><span class="subxComment"># 0x11 @(0x11/payload # List-value</span> +<span id="L30222" class="LineNr">30222 </span><span class="subxComment"># 0 0 # Var-name</span> +<span id="L30223" class="LineNr">30223 </span><span class="subxComment"># 0x11 @(0x11 # Var-type</span> +<span id="L30224" class="LineNr">30224 </span><span class="subxComment"># 1/is-atom</span> +<span id="L30225" class="LineNr">30225 </span><span class="subxComment"># 1/value 0/unused # Type-tree-left</span> +<span id="L30226" class="LineNr">30226 </span><span class="subxComment"># 0 0 # Type-tree-right</span> +<span id="L30227" class="LineNr">30227 </span><span class="subxComment"># )</span> +<span id="L30228" class="LineNr">30228 </span><span class="subxComment"># 1 # block-depth</span> +<span id="L30229" class="LineNr">30229 </span><span class="subxComment"># 0 # stack-offset</span> +<span id="L30230" class="LineNr">30230 </span><span class="subxComment"># 0x11 @(0x11 "eax") # Var-register</span> +<span id="L30231" class="LineNr">30231 </span><span class="subxComment"># )</span> +<span id="L30232" class="LineNr">30232 </span><span class="subxComment"># 0 0) # List-next</span> +<span id="L30233" class="LineNr">30233 </span><span class="subxComment"># ...</span> +<span id="L30234" class="LineNr">30234 </span><span class="subxComment"># _Primitive-increment-ecx/imm32/next</span> +<span id="L30235" class="LineNr">30235 </span><span class="subxComment"># ...</span> +<span id="L30236" class="LineNr">30236 </span><span class="subxComment"># Awfully complex and non-obvious. But also clearly signals there's something</span> +<span id="L30237" class="LineNr">30237 </span><span class="subxComment"># to learn here, so may be worth trying.</span> +<span id="L30238" class="LineNr">30238 </span><span class="subxComment">#</span> +<span id="L30239" class="LineNr">30239 </span><span class="subxComment"># '@' is just an initial thought. Punctuation used so far in Mu: () * % # / "</span> +<span id="L30240" class="LineNr">30240 </span><span class="subxComment">#</span> +<span id="L30241" class="LineNr">30241 </span><span class="subxComment"># For now we'll continue to just use comments and manually ensure they stay up</span> +<span id="L30242" class="LineNr">30242 </span><span class="subxComment"># to date.</span> +<span id="L30243" class="LineNr">30243 </span>== data +<span id="L30244" class="LineNr">30244 </span><span class="SpecialChar">Primitives</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L30245" class="LineNr">30245 </span><span class="subxH1Comment"># - increment/decrement</span> +<span id="L30246" class="LineNr">30246 </span><span class="subxMinorFunction">_Primitive-increment-eax</span>: <span class="subxComment"># (addr primitive)</span> +<span id="L30247" class="LineNr">30247 </span> <span class="subxComment"># var/eax <- increment => 40/increment-eax</span> +<span id="L30248" class="LineNr">30248 </span> 0x11/imm32/alloc-id:fake +<span id="L30249" class="LineNr">30249 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30250" class="LineNr">30250 </span> 0/imm32/no-inouts +<span id="L30251" class="LineNr">30251 </span> 0/imm32/no-inouts +<span id="L30252" class="LineNr">30252 </span> 0x11/imm32/alloc-id:fake +<span id="L30253" class="LineNr">30253 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30254" class="LineNr">30254 </span> 0x11/imm32/alloc-id:fake +<span id="L30255" class="LineNr">30255 </span> <a href='mu.subx.html#L34228'>_string_40_increment_eax</a>/imm32/subx-name +<span id="L30256" class="LineNr">30256 </span> 0/imm32/no-rm32 +<span id="L30257" class="LineNr">30257 </span> 0/imm32/no-r32 +<span id="L30258" class="LineNr">30258 </span> 0/imm32/no-imm32 +<span id="L30259" class="LineNr">30259 </span> 0/imm32/no-imm8 +<span id="L30260" class="LineNr">30260 </span> 0/imm32/no-disp32 +<span id="L30261" class="LineNr">30261 </span> 0/imm32/no-xm32 +<span id="L30262" class="LineNr">30262 </span> 0/imm32/no-x32 +<span id="L30263" class="LineNr">30263 </span> 0x11/imm32/alloc-id:fake +<span id="L30264" class="LineNr">30264 </span> <a href='mu.subx.html#L30265'>_Primitive-increment-ecx</a>/imm32/next +<span id="L30265" class="LineNr">30265 </span><span class="subxMinorFunction">_Primitive-increment-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30266" class="LineNr">30266 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30267" class="LineNr">30267 </span> <span class="subxComment"># var/ecx <- increment => 41/increment-ecx</span> +<span id="L30268" class="LineNr">30268 </span> 0x11/imm32/alloc-id:fake +<span id="L30269" class="LineNr">30269 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30270" class="LineNr">30270 </span> 0/imm32/no-inouts +<span id="L30271" class="LineNr">30271 </span> 0/imm32/no-inouts +<span id="L30272" class="LineNr">30272 </span> 0x11/imm32/alloc-id:fake +<span id="L30273" class="LineNr">30273 </span> <span class="SpecialChar"><a href='mu.subx.html#L34611'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L30274" class="LineNr">30274 </span> 0x11/imm32/alloc-id:fake +<span id="L30275" class="LineNr">30275 </span> <a href='mu.subx.html#L34233'>_string_41_increment_ecx</a>/imm32/subx-name +<span id="L30276" class="LineNr">30276 </span> 0/imm32/no-rm32 +<span id="L30277" class="LineNr">30277 </span> 0/imm32/no-r32 +<span id="L30278" class="LineNr">30278 </span> 0/imm32/no-imm32 +<span id="L30279" class="LineNr">30279 </span> 0/imm32/no-imm8 +<span id="L30280" class="LineNr">30280 </span> 0/imm32/no-disp32 +<span id="L30281" class="LineNr">30281 </span> 0/imm32/no-xm32 +<span id="L30282" class="LineNr">30282 </span> 0/imm32/no-x32 +<span id="L30283" class="LineNr">30283 </span> 0x11/imm32/alloc-id:fake +<span id="L30284" class="LineNr">30284 </span> <a href='mu.subx.html#L30285'>_Primitive-increment-edx</a>/imm32/next +<span id="L30285" class="LineNr">30285 </span><span class="subxMinorFunction">_Primitive-increment-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30286" class="LineNr">30286 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30287" class="LineNr">30287 </span> <span class="subxComment"># var/edx <- increment => 42/increment-edx</span> +<span id="L30288" class="LineNr">30288 </span> 0x11/imm32/alloc-id:fake +<span id="L30289" class="LineNr">30289 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30290" class="LineNr">30290 </span> 0/imm32/no-inouts +<span id="L30291" class="LineNr">30291 </span> 0/imm32/no-inouts +<span id="L30292" class="LineNr">30292 </span> 0x11/imm32/alloc-id:fake +<span id="L30293" class="LineNr">30293 </span> <span class="SpecialChar"><a href='mu.subx.html#L34629'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L30294" class="LineNr">30294 </span> 0x11/imm32/alloc-id:fake +<span id="L30295" class="LineNr">30295 </span> <a href='mu.subx.html#L34238'>_string_42_increment_edx</a>/imm32/subx-name +<span id="L30296" class="LineNr">30296 </span> 0/imm32/no-rm32 +<span id="L30297" class="LineNr">30297 </span> 0/imm32/no-r32 +<span id="L30298" class="LineNr">30298 </span> 0/imm32/no-imm32 +<span id="L30299" class="LineNr">30299 </span> 0/imm32/no-imm8 +<span id="L30300" class="LineNr">30300 </span> 0/imm32/no-disp32 +<span id="L30301" class="LineNr">30301 </span> 0/imm32/no-xm32 +<span id="L30302" class="LineNr">30302 </span> 0/imm32/no-x32 +<span id="L30303" class="LineNr">30303 </span> 0x11/imm32/alloc-id:fake +<span id="L30304" class="LineNr">30304 </span> <a href='mu.subx.html#L30305'>_Primitive-increment-ebx</a>/imm32/next +<span id="L30305" class="LineNr">30305 </span><span class="subxMinorFunction">_Primitive-increment-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30306" class="LineNr">30306 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30307" class="LineNr">30307 </span> <span class="subxComment"># var/ebx <- increment => 43/increment-ebx</span> +<span id="L30308" class="LineNr">30308 </span> 0x11/imm32/alloc-id:fake +<span id="L30309" class="LineNr">30309 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30310" class="LineNr">30310 </span> 0/imm32/no-inouts +<span id="L30311" class="LineNr">30311 </span> 0/imm32/no-inouts +<span id="L30312" class="LineNr">30312 </span> 0x11/imm32/alloc-id:fake +<span id="L30313" class="LineNr">30313 </span> <span class="SpecialChar"><a href='mu.subx.html#L34647'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L30314" class="LineNr">30314 </span> 0x11/imm32/alloc-id:fake +<span id="L30315" class="LineNr">30315 </span> <a href='mu.subx.html#L34243'>_string_43_increment_ebx</a>/imm32/subx-name +<span id="L30316" class="LineNr">30316 </span> 0/imm32/no-rm32 +<span id="L30317" class="LineNr">30317 </span> 0/imm32/no-r32 +<span id="L30318" class="LineNr">30318 </span> 0/imm32/no-imm32 +<span id="L30319" class="LineNr">30319 </span> 0/imm32/no-imm8 +<span id="L30320" class="LineNr">30320 </span> 0/imm32/no-disp32 +<span id="L30321" class="LineNr">30321 </span> 0/imm32/no-xm32 +<span id="L30322" class="LineNr">30322 </span> 0/imm32/no-x32 +<span id="L30323" class="LineNr">30323 </span> 0x11/imm32/alloc-id:fake +<span id="L30324" class="LineNr">30324 </span> <a href='mu.subx.html#L30325'>_Primitive-increment-esi</a>/imm32/next +<span id="L30325" class="LineNr">30325 </span><span class="subxMinorFunction">_Primitive-increment-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30326" class="LineNr">30326 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30327" class="LineNr">30327 </span> <span class="subxComment"># var/esi <- increment => 46/increment-esi</span> +<span id="L30328" class="LineNr">30328 </span> 0x11/imm32/alloc-id:fake +<span id="L30329" class="LineNr">30329 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30330" class="LineNr">30330 </span> 0/imm32/no-inouts +<span id="L30331" class="LineNr">30331 </span> 0/imm32/no-inouts +<span id="L30332" class="LineNr">30332 </span> 0x11/imm32/alloc-id:fake +<span id="L30333" class="LineNr">30333 </span> <span class="SpecialChar"><a href='mu.subx.html#L34665'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L30334" class="LineNr">30334 </span> 0x11/imm32/alloc-id:fake +<span id="L30335" class="LineNr">30335 </span> <a href='mu.subx.html#L34248'>_string_46_increment_esi</a>/imm32/subx-name +<span id="L30336" class="LineNr">30336 </span> 0/imm32/no-rm32 +<span id="L30337" class="LineNr">30337 </span> 0/imm32/no-r32 +<span id="L30338" class="LineNr">30338 </span> 0/imm32/no-imm32 +<span id="L30339" class="LineNr">30339 </span> 0/imm32/no-imm8 +<span id="L30340" class="LineNr">30340 </span> 0/imm32/no-disp32 +<span id="L30341" class="LineNr">30341 </span> 0/imm32/no-xm32 +<span id="L30342" class="LineNr">30342 </span> 0/imm32/no-x32 +<span id="L30343" class="LineNr">30343 </span> 0x11/imm32/alloc-id:fake +<span id="L30344" class="LineNr">30344 </span> <a href='mu.subx.html#L30345'>_Primitive-increment-edi</a>/imm32/next +<span id="L30345" class="LineNr">30345 </span><span class="subxMinorFunction">_Primitive-increment-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30346" class="LineNr">30346 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30347" class="LineNr">30347 </span> <span class="subxComment"># var/edi <- increment => 47/increment-edi</span> +<span id="L30348" class="LineNr">30348 </span> 0x11/imm32/alloc-id:fake +<span id="L30349" class="LineNr">30349 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30350" class="LineNr">30350 </span> 0/imm32/no-inouts +<span id="L30351" class="LineNr">30351 </span> 0/imm32/no-inouts +<span id="L30352" class="LineNr">30352 </span> 0x11/imm32/alloc-id:fake +<span id="L30353" class="LineNr">30353 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L30354" class="LineNr">30354 </span> 0x11/imm32/alloc-id:fake +<span id="L30355" class="LineNr">30355 </span> <a href='mu.subx.html#L34253'>_string_47_increment_edi</a>/imm32/subx-name +<span id="L30356" class="LineNr">30356 </span> 0/imm32/no-rm32 +<span id="L30357" class="LineNr">30357 </span> 0/imm32/no-r32 +<span id="L30358" class="LineNr">30358 </span> 0/imm32/no-imm32 +<span id="L30359" class="LineNr">30359 </span> 0/imm32/no-imm8 +<span id="L30360" class="LineNr">30360 </span> 0/imm32/no-disp32 +<span id="L30361" class="LineNr">30361 </span> 0/imm32/no-xm32 +<span id="L30362" class="LineNr">30362 </span> 0/imm32/no-x32 +<span id="L30363" class="LineNr">30363 </span> 0x11/imm32/alloc-id:fake +<span id="L30364" class="LineNr">30364 </span> <a href='mu.subx.html#L30365'>_Primitive-decrement-eax</a>/imm32/next +<span id="L30365" class="LineNr">30365 </span><span class="subxMinorFunction">_Primitive-decrement-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30366" class="LineNr">30366 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30367" class="LineNr">30367 </span> <span class="subxComment"># var/eax <- decrement => 48/decrement-eax</span> +<span id="L30368" class="LineNr">30368 </span> 0x11/imm32/alloc-id:fake +<span id="L30369" class="LineNr">30369 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30370" class="LineNr">30370 </span> 0/imm32/no-inouts +<span id="L30371" class="LineNr">30371 </span> 0/imm32/no-inouts +<span id="L30372" class="LineNr">30372 </span> 0x11/imm32/alloc-id:fake +<span id="L30373" class="LineNr">30373 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30374" class="LineNr">30374 </span> 0x11/imm32/alloc-id:fake +<span id="L30375" class="LineNr">30375 </span> <a href='mu.subx.html#L34258'>_string_48_decrement_eax</a>/imm32/subx-name +<span id="L30376" class="LineNr">30376 </span> 0/imm32/no-rm32 +<span id="L30377" class="LineNr">30377 </span> 0/imm32/no-r32 +<span id="L30378" class="LineNr">30378 </span> 0/imm32/no-imm32 +<span id="L30379" class="LineNr">30379 </span> 0/imm32/no-imm8 +<span id="L30380" class="LineNr">30380 </span> 0/imm32/no-disp32 +<span id="L30381" class="LineNr">30381 </span> 0/imm32/no-xm32 +<span id="L30382" class="LineNr">30382 </span> 0/imm32/no-x32 +<span id="L30383" class="LineNr">30383 </span> 0x11/imm32/alloc-id:fake +<span id="L30384" class="LineNr">30384 </span> <a href='mu.subx.html#L30385'>_Primitive-decrement-ecx</a>/imm32/next +<span id="L30385" class="LineNr">30385 </span><span class="subxMinorFunction">_Primitive-decrement-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30386" class="LineNr">30386 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30387" class="LineNr">30387 </span> <span class="subxComment"># var/ecx <- decrement => 49/decrement-ecx</span> +<span id="L30388" class="LineNr">30388 </span> 0x11/imm32/alloc-id:fake +<span id="L30389" class="LineNr">30389 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30390" class="LineNr">30390 </span> 0/imm32/no-inouts +<span id="L30391" class="LineNr">30391 </span> 0/imm32/no-inouts +<span id="L30392" class="LineNr">30392 </span> 0x11/imm32/alloc-id:fake +<span id="L30393" class="LineNr">30393 </span> <span class="SpecialChar"><a href='mu.subx.html#L34611'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L30394" class="LineNr">30394 </span> 0x11/imm32/alloc-id:fake +<span id="L30395" class="LineNr">30395 </span> <a href='mu.subx.html#L34263'>_string_49_decrement_ecx</a>/imm32/subx-name +<span id="L30396" class="LineNr">30396 </span> 0/imm32/no-rm32 +<span id="L30397" class="LineNr">30397 </span> 0/imm32/no-r32 +<span id="L30398" class="LineNr">30398 </span> 0/imm32/no-imm32 +<span id="L30399" class="LineNr">30399 </span> 0/imm32/no-imm8 +<span id="L30400" class="LineNr">30400 </span> 0/imm32/no-disp32 +<span id="L30401" class="LineNr">30401 </span> 0/imm32/no-xm32 +<span id="L30402" class="LineNr">30402 </span> 0/imm32/no-x32 +<span id="L30403" class="LineNr">30403 </span> 0x11/imm32/alloc-id:fake +<span id="L30404" class="LineNr">30404 </span> <a href='mu.subx.html#L30405'>_Primitive-decrement-edx</a>/imm32/next +<span id="L30405" class="LineNr">30405 </span><span class="subxMinorFunction">_Primitive-decrement-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30406" class="LineNr">30406 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30407" class="LineNr">30407 </span> <span class="subxComment"># var/edx <- decrement => 4a/decrement-edx</span> +<span id="L30408" class="LineNr">30408 </span> 0x11/imm32/alloc-id:fake +<span id="L30409" class="LineNr">30409 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30410" class="LineNr">30410 </span> 0/imm32/no-inouts +<span id="L30411" class="LineNr">30411 </span> 0/imm32/no-inouts +<span id="L30412" class="LineNr">30412 </span> 0x11/imm32/alloc-id:fake +<span id="L30413" class="LineNr">30413 </span> <span class="SpecialChar"><a href='mu.subx.html#L34629'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L30414" class="LineNr">30414 </span> 0x11/imm32/alloc-id:fake +<span id="L30415" class="LineNr">30415 </span> <a href='mu.subx.html#L34268'>_string_4a_decrement_edx</a>/imm32/subx-name +<span id="L30416" class="LineNr">30416 </span> 0/imm32/no-rm32 +<span id="L30417" class="LineNr">30417 </span> 0/imm32/no-r32 +<span id="L30418" class="LineNr">30418 </span> 0/imm32/no-imm32 +<span id="L30419" class="LineNr">30419 </span> 0/imm32/no-imm8 +<span id="L30420" class="LineNr">30420 </span> 0/imm32/no-disp32 +<span id="L30421" class="LineNr">30421 </span> 0/imm32/no-xm32 +<span id="L30422" class="LineNr">30422 </span> 0/imm32/no-x32 +<span id="L30423" class="LineNr">30423 </span> 0x11/imm32/alloc-id:fake +<span id="L30424" class="LineNr">30424 </span> <a href='mu.subx.html#L30425'>_Primitive-decrement-ebx</a>/imm32/next +<span id="L30425" class="LineNr">30425 </span><span class="subxMinorFunction">_Primitive-decrement-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30426" class="LineNr">30426 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30427" class="LineNr">30427 </span> <span class="subxComment"># var/ebx <- decrement => 4b/decrement-ebx</span> +<span id="L30428" class="LineNr">30428 </span> 0x11/imm32/alloc-id:fake +<span id="L30429" class="LineNr">30429 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30430" class="LineNr">30430 </span> 0/imm32/no-inouts +<span id="L30431" class="LineNr">30431 </span> 0/imm32/no-inouts +<span id="L30432" class="LineNr">30432 </span> 0x11/imm32/alloc-id:fake +<span id="L30433" class="LineNr">30433 </span> <span class="SpecialChar"><a href='mu.subx.html#L34647'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L30434" class="LineNr">30434 </span> 0x11/imm32/alloc-id:fake +<span id="L30435" class="LineNr">30435 </span> <a href='mu.subx.html#L34273'>_string_4b_decrement_ebx</a>/imm32/subx-name +<span id="L30436" class="LineNr">30436 </span> 0/imm32/no-rm32 +<span id="L30437" class="LineNr">30437 </span> 0/imm32/no-r32 +<span id="L30438" class="LineNr">30438 </span> 0/imm32/no-imm32 +<span id="L30439" class="LineNr">30439 </span> 0/imm32/no-imm8 +<span id="L30440" class="LineNr">30440 </span> 0/imm32/no-disp32 +<span id="L30441" class="LineNr">30441 </span> 0/imm32/no-xm32 +<span id="L30442" class="LineNr">30442 </span> 0/imm32/no-x32 +<span id="L30443" class="LineNr">30443 </span> 0x11/imm32/alloc-id:fake +<span id="L30444" class="LineNr">30444 </span> <a href='mu.subx.html#L30445'>_Primitive-decrement-esi</a>/imm32/next +<span id="L30445" class="LineNr">30445 </span><span class="subxMinorFunction">_Primitive-decrement-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30446" class="LineNr">30446 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30447" class="LineNr">30447 </span> <span class="subxComment"># var/esi <- decrement => 4e/decrement-esi</span> +<span id="L30448" class="LineNr">30448 </span> 0x11/imm32/alloc-id:fake +<span id="L30449" class="LineNr">30449 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30450" class="LineNr">30450 </span> 0/imm32/no-inouts +<span id="L30451" class="LineNr">30451 </span> 0/imm32/no-inouts +<span id="L30452" class="LineNr">30452 </span> 0x11/imm32/alloc-id:fake +<span id="L30453" class="LineNr">30453 </span> <span class="SpecialChar"><a href='mu.subx.html#L34665'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L30454" class="LineNr">30454 </span> 0x11/imm32/alloc-id:fake +<span id="L30455" class="LineNr">30455 </span> <a href='mu.subx.html#L34278'>_string_4e_decrement_esi</a>/imm32/subx-name +<span id="L30456" class="LineNr">30456 </span> 0/imm32/no-rm32 +<span id="L30457" class="LineNr">30457 </span> 0/imm32/no-r32 +<span id="L30458" class="LineNr">30458 </span> 0/imm32/no-imm32 +<span id="L30459" class="LineNr">30459 </span> 0/imm32/no-imm8 +<span id="L30460" class="LineNr">30460 </span> 0/imm32/no-disp32 +<span id="L30461" class="LineNr">30461 </span> 0/imm32/no-xm32 +<span id="L30462" class="LineNr">30462 </span> 0/imm32/no-x32 +<span id="L30463" class="LineNr">30463 </span> 0x11/imm32/alloc-id:fake +<span id="L30464" class="LineNr">30464 </span> <a href='mu.subx.html#L30465'>_Primitive-decrement-edi</a>/imm32/next +<span id="L30465" class="LineNr">30465 </span><span class="subxMinorFunction">_Primitive-decrement-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30466" class="LineNr">30466 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30467" class="LineNr">30467 </span> <span class="subxComment"># var/edi <- decrement => 4f/decrement-edi</span> +<span id="L30468" class="LineNr">30468 </span> 0x11/imm32/alloc-id:fake +<span id="L30469" class="LineNr">30469 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30470" class="LineNr">30470 </span> 0/imm32/no-inouts +<span id="L30471" class="LineNr">30471 </span> 0/imm32/no-inouts +<span id="L30472" class="LineNr">30472 </span> 0x11/imm32/alloc-id:fake +<span id="L30473" class="LineNr">30473 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L30474" class="LineNr">30474 </span> 0x11/imm32/alloc-id:fake +<span id="L30475" class="LineNr">30475 </span> <a href='mu.subx.html#L34283'>_string_4f_decrement_edi</a>/imm32/subx-name +<span id="L30476" class="LineNr">30476 </span> 0/imm32/no-rm32 +<span id="L30477" class="LineNr">30477 </span> 0/imm32/no-r32 +<span id="L30478" class="LineNr">30478 </span> 0/imm32/no-imm32 +<span id="L30479" class="LineNr">30479 </span> 0/imm32/no-imm8 +<span id="L30480" class="LineNr">30480 </span> 0/imm32/no-disp32 +<span id="L30481" class="LineNr">30481 </span> 0/imm32/no-xm32 +<span id="L30482" class="LineNr">30482 </span> 0/imm32/no-x32 +<span id="L30483" class="LineNr">30483 </span> 0x11/imm32/alloc-id:fake +<span id="L30484" class="LineNr">30484 </span> <a href='mu.subx.html#L30485'>_Primitive-increment-mem</a>/imm32/next +<span id="L30485" class="LineNr">30485 </span><span class="subxMinorFunction">_Primitive-increment-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30486" class="LineNr">30486 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30487" class="LineNr">30487 </span> <span class="subxComment"># increment var => ff 0/subop/increment *(ebp+__)</span> +<span id="L30488" class="LineNr">30488 </span> 0x11/imm32/alloc-id:fake +<span id="L30489" class="LineNr">30489 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30490" class="LineNr">30490 </span> 0x11/imm32/alloc-id:fake +<span id="L30491" class="LineNr">30491 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30492" class="LineNr">30492 </span> 0/imm32/no-outputs +<span id="L30493" class="LineNr">30493 </span> 0/imm32/no-outputs +<span id="L30494" class="LineNr">30494 </span> 0x11/imm32/alloc-id:fake +<span id="L30495" class="LineNr">30495 </span> <a href='mu.subx.html#L34398'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L30496" class="LineNr">30496 </span> 1/imm32/rm32-is-first-inout +<span id="L30497" class="LineNr">30497 </span> 0/imm32/no-r32 +<span id="L30498" class="LineNr">30498 </span> 0/imm32/no-imm32 +<span id="L30499" class="LineNr">30499 </span> 0/imm32/no-imm8 +<span id="L30500" class="LineNr">30500 </span> 0/imm32/no-disp32 +<span id="L30501" class="LineNr">30501 </span> 0/imm32/no-xm32 +<span id="L30502" class="LineNr">30502 </span> 0/imm32/no-x32 +<span id="L30503" class="LineNr">30503 </span> 0x11/imm32/alloc-id:fake +<span id="L30504" class="LineNr">30504 </span> <a href='mu.subx.html#L30505'>_Primitive-increment-reg</a>/imm32/next +<span id="L30505" class="LineNr">30505 </span><span class="subxMinorFunction">_Primitive-increment-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30506" class="LineNr">30506 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30507" class="LineNr">30507 </span> <span class="subxComment"># var/reg <- increment => ff 0/subop/increment %__</span> +<span id="L30508" class="LineNr">30508 </span> 0x11/imm32/alloc-id:fake +<span id="L30509" class="LineNr">30509 </span> <a href='mu.subx.html#L33726'>_string-increment</a>/imm32/name +<span id="L30510" class="LineNr">30510 </span> 0/imm32/no-inouts +<span id="L30511" class="LineNr">30511 </span> 0/imm32/no-inouts +<span id="L30512" class="LineNr">30512 </span> 0x11/imm32/alloc-id:fake +<span id="L30513" class="LineNr">30513 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30514" class="LineNr">30514 </span> 0x11/imm32/alloc-id:fake +<span id="L30515" class="LineNr">30515 </span> <a href='mu.subx.html#L34398'>_string_ff_subop_increment</a>/imm32/subx-name +<span id="L30516" class="LineNr">30516 </span> 3/imm32/rm32-is-first-output +<span id="L30517" class="LineNr">30517 </span> 0/imm32/no-r32 +<span id="L30518" class="LineNr">30518 </span> 0/imm32/no-imm32 +<span id="L30519" class="LineNr">30519 </span> 0/imm32/no-imm8 +<span id="L30520" class="LineNr">30520 </span> 0/imm32/no-disp32 +<span id="L30521" class="LineNr">30521 </span> 0/imm32/no-xm32 +<span id="L30522" class="LineNr">30522 </span> 0/imm32/no-x32 +<span id="L30523" class="LineNr">30523 </span> 0x11/imm32/alloc-id:fake +<span id="L30524" class="LineNr">30524 </span> <a href='mu.subx.html#L30525'>_Primitive-decrement-mem</a>/imm32/next +<span id="L30525" class="LineNr">30525 </span><span class="subxMinorFunction">_Primitive-decrement-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30526" class="LineNr">30526 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30527" class="LineNr">30527 </span> <span class="subxComment"># decrement var => ff 1/subop/decrement *(ebp+__)</span> +<span id="L30528" class="LineNr">30528 </span> 0x11/imm32/alloc-id:fake +<span id="L30529" class="LineNr">30529 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30530" class="LineNr">30530 </span> 0x11/imm32/alloc-id:fake +<span id="L30531" class="LineNr">30531 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30532" class="LineNr">30532 </span> 0/imm32/no-outputs +<span id="L30533" class="LineNr">30533 </span> 0/imm32/no-outputs +<span id="L30534" class="LineNr">30534 </span> 0x11/imm32/alloc-id:fake +<span id="L30535" class="LineNr">30535 </span> <a href='mu.subx.html#L34403'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L30536" class="LineNr">30536 </span> 1/imm32/rm32-is-first-inout +<span id="L30537" class="LineNr">30537 </span> 0/imm32/no-r32 +<span id="L30538" class="LineNr">30538 </span> 0/imm32/no-imm32 +<span id="L30539" class="LineNr">30539 </span> 0/imm32/no-imm8 +<span id="L30540" class="LineNr">30540 </span> 0/imm32/no-disp32 +<span id="L30541" class="LineNr">30541 </span> 0/imm32/no-xm32 +<span id="L30542" class="LineNr">30542 </span> 0/imm32/no-x32 +<span id="L30543" class="LineNr">30543 </span> 0x11/imm32/alloc-id:fake +<span id="L30544" class="LineNr">30544 </span> <a href='mu.subx.html#L30545'>_Primitive-decrement-reg</a>/imm32/next +<span id="L30545" class="LineNr">30545 </span><span class="subxMinorFunction">_Primitive-decrement-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30546" class="LineNr">30546 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30547" class="LineNr">30547 </span> <span class="subxComment"># var/reg <- decrement => ff 1/subop/decrement %__</span> +<span id="L30548" class="LineNr">30548 </span> 0x11/imm32/alloc-id:fake +<span id="L30549" class="LineNr">30549 </span> <a href='mu.subx.html#L33721'>_string-decrement</a>/imm32/name +<span id="L30550" class="LineNr">30550 </span> 0/imm32/no-inouts +<span id="L30551" class="LineNr">30551 </span> 0/imm32/no-inouts +<span id="L30552" class="LineNr">30552 </span> 0x11/imm32/alloc-id:fake +<span id="L30553" class="LineNr">30553 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30554" class="LineNr">30554 </span> 0x11/imm32/alloc-id:fake +<span id="L30555" class="LineNr">30555 </span> <a href='mu.subx.html#L34403'>_string_ff_subop_decrement</a>/imm32/subx-name +<span id="L30556" class="LineNr">30556 </span> 3/imm32/rm32-is-first-output +<span id="L30557" class="LineNr">30557 </span> 0/imm32/no-r32 +<span id="L30558" class="LineNr">30558 </span> 0/imm32/no-imm32 +<span id="L30559" class="LineNr">30559 </span> 0/imm32/no-imm8 +<span id="L30560" class="LineNr">30560 </span> 0/imm32/no-disp32 +<span id="L30561" class="LineNr">30561 </span> 0/imm32/no-xm32 +<span id="L30562" class="LineNr">30562 </span> 0/imm32/no-x32 +<span id="L30563" class="LineNr">30563 </span> 0x11/imm32/alloc-id:fake +<span id="L30564" class="LineNr">30564 </span> <a href='mu.subx.html#L30566'>_Primitive-add-to-eax</a>/imm32/next +<span id="L30565" class="LineNr">30565 </span><span class="subxH1Comment"># - add</span> +<span id="L30566" class="LineNr">30566 </span><span class="subxMinorFunction">_Primitive-add-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30567" class="LineNr">30567 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30568" class="LineNr">30568 </span> <span class="subxComment"># var/eax <- add lit => 05/add-to-eax lit/imm32</span> +<span id="L30569" class="LineNr">30569 </span> 0x11/imm32/alloc-id:fake +<span id="L30570" class="LineNr">30570 </span> <a href='mu.subx.html#L33596'>_string-add</a>/imm32/name +<span id="L30571" class="LineNr">30571 </span> 0x11/imm32/alloc-id:fake +<span id="L30572" class="LineNr">30572 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L30573" class="LineNr">30573 </span> 0x11/imm32/alloc-id:fake +<span id="L30574" class="LineNr">30574 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30575" class="LineNr">30575 </span> 0x11/imm32/alloc-id:fake +<span id="L30576" class="LineNr">30576 </span> <a href='mu.subx.html#L33918'>_string_05_add_to_eax</a>/imm32/subx-name +<span id="L30577" class="LineNr">30577 </span> 0/imm32/no-rm32 +<span id="L30578" class="LineNr">30578 </span> 0/imm32/no-r32 +<span id="L30579" class="LineNr">30579 </span> 1/imm32/imm32-is-first-inout +<span id="L30580" class="LineNr">30580 </span> 0/imm32/no-imm8 +<span id="L30581" class="LineNr">30581 </span> 0/imm32/no-disp32 +<span id="L30582" class="LineNr">30582 </span> 0/imm32/no-xm32 +<span id="L30583" class="LineNr">30583 </span> 0/imm32/no-x32 +<span id="L30584" class="LineNr">30584 </span> 0x11/imm32/alloc-id:fake +<span id="L30585" class="LineNr">30585 </span> <a href='mu.subx.html#L30586'>_Primitive-add-reg-to-reg</a>/imm32/next +<span id="L30586" class="LineNr">30586 </span><span class="subxMinorFunction">_Primitive-add-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30587" class="LineNr">30587 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30588" class="LineNr">30588 </span> <span class="subxComment"># var1/reg <- add var2/reg => 01/add-to var1/rm32 var2/r32</span> +<span id="L30589" class="LineNr">30589 </span> 0x11/imm32/alloc-id:fake +<span id="L30590" class="LineNr">30590 </span> <a href='mu.subx.html#L33596'>_string-add</a>/imm32/name +<span id="L30591" class="LineNr">30591 </span> 0x11/imm32/alloc-id:fake +<span id="L30592" class="LineNr">30592 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L30593" class="LineNr">30593 </span> 0x11/imm32/alloc-id:fake +<span id="L30594" class="LineNr">30594 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30595" class="LineNr">30595 </span> 0x11/imm32/alloc-id:fake +<span id="L30596" class="LineNr">30596 </span> <a href='mu.subx.html#L33908'>_string_01_add_to</a>/imm32/subx-name +<span id="L30597" class="LineNr">30597 </span> 3/imm32/rm32-is-first-output +<span id="L30598" class="LineNr">30598 </span> 1/imm32/r32-is-first-inout +<span id="L30599" class="LineNr">30599 </span> 0/imm32/no-imm32 +<span id="L30600" class="LineNr">30600 </span> 0/imm32/no-imm8 +<span id="L30601" class="LineNr">30601 </span> 0/imm32/no-disp32 +<span id="L30602" class="LineNr">30602 </span> 0/imm32/no-xm32 +<span id="L30603" class="LineNr">30603 </span> 0/imm32/no-x32 +<span id="L30604" class="LineNr">30604 </span> 0x11/imm32/alloc-id:fake +<span id="L30605" class="LineNr">30605 </span> <a href='mu.subx.html#L30606'>_Primitive-add-reg-to-mem</a>/imm32/next +<span id="L30606" class="LineNr">30606 </span><span class="subxMinorFunction">_Primitive-add-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30607" class="LineNr">30607 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30608" class="LineNr">30608 </span> <span class="subxComment"># add-to var1 var2/reg => 01/add-to var1 var2/r32</span> +<span id="L30609" class="LineNr">30609 </span> 0x11/imm32/alloc-id:fake +<span id="L30610" class="LineNr">30610 </span> <a href='mu.subx.html#L33606'>_string-add-to</a>/imm32/name +<span id="L30611" class="LineNr">30611 </span> 0x11/imm32/alloc-id:fake +<span id="L30612" class="LineNr">30612 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L30613" class="LineNr">30613 </span> 0/imm32/no-outputs +<span id="L30614" class="LineNr">30614 </span> 0/imm32/no-outputs +<span id="L30615" class="LineNr">30615 </span> 0x11/imm32/alloc-id:fake +<span id="L30616" class="LineNr">30616 </span> <a href='mu.subx.html#L33908'>_string_01_add_to</a>/imm32/subx-name +<span id="L30617" class="LineNr">30617 </span> 1/imm32/rm32-is-first-inout +<span id="L30618" class="LineNr">30618 </span> 2/imm32/r32-is-second-inout +<span id="L30619" class="LineNr">30619 </span> 0/imm32/no-imm32 +<span id="L30620" class="LineNr">30620 </span> 0/imm32/no-imm8 +<span id="L30621" class="LineNr">30621 </span> 0/imm32/no-disp32 +<span id="L30622" class="LineNr">30622 </span> 0/imm32/no-xm32 +<span id="L30623" class="LineNr">30623 </span> 0/imm32/no-x32 +<span id="L30624" class="LineNr">30624 </span> 0x11/imm32/alloc-id:fake +<span id="L30625" class="LineNr">30625 </span> <a href='mu.subx.html#L30626'>_Primitive-add-mem-to-reg</a>/imm32/next +<span id="L30626" class="LineNr">30626 </span><span class="subxMinorFunction">_Primitive-add-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30627" class="LineNr">30627 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30628" class="LineNr">30628 </span> <span class="subxComment"># var1/reg <- add var2 => 03/add var2/rm32 var1/r32</span> +<span id="L30629" class="LineNr">30629 </span> 0x11/imm32/alloc-id:fake +<span id="L30630" class="LineNr">30630 </span> <a href='mu.subx.html#L33596'>_string-add</a>/imm32/name +<span id="L30631" class="LineNr">30631 </span> 0x11/imm32/alloc-id:fake +<span id="L30632" class="LineNr">30632 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30633" class="LineNr">30633 </span> 0x11/imm32/alloc-id:fake +<span id="L30634" class="LineNr">30634 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30635" class="LineNr">30635 </span> 0x11/imm32/alloc-id:fake +<span id="L30636" class="LineNr">30636 </span> <a href='mu.subx.html#L33913'>_string_03_add</a>/imm32/subx-name +<span id="L30637" class="LineNr">30637 </span> 1/imm32/rm32-is-first-inout +<span id="L30638" class="LineNr">30638 </span> 3/imm32/r32-is-first-output +<span id="L30639" class="LineNr">30639 </span> 0/imm32/no-imm32 +<span id="L30640" class="LineNr">30640 </span> 0/imm32/no-imm8 +<span id="L30641" class="LineNr">30641 </span> 0/imm32/no-disp32 +<span id="L30642" class="LineNr">30642 </span> 0/imm32/no-xm32 +<span id="L30643" class="LineNr">30643 </span> 0/imm32/no-x32 +<span id="L30644" class="LineNr">30644 </span> 0x11/imm32/alloc-id:fake +<span id="L30645" class="LineNr">30645 </span> <a href='mu.subx.html#L30646'>_Primitive-add-lit-to-reg</a>/imm32/next +<span id="L30646" class="LineNr">30646 </span><span class="subxMinorFunction">_Primitive-add-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30647" class="LineNr">30647 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30648" class="LineNr">30648 </span> <span class="subxComment"># var1/reg <- add lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L30649" class="LineNr">30649 </span> 0x11/imm32/alloc-id:fake +<span id="L30650" class="LineNr">30650 </span> <a href='mu.subx.html#L33596'>_string-add</a>/imm32/name +<span id="L30651" class="LineNr">30651 </span> 0x11/imm32/alloc-id:fake +<span id="L30652" class="LineNr">30652 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L30653" class="LineNr">30653 </span> 0x11/imm32/alloc-id:fake +<span id="L30654" class="LineNr">30654 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30655" class="LineNr">30655 </span> 0x11/imm32/alloc-id:fake +<span id="L30656" class="LineNr">30656 </span> <a href='mu.subx.html#L34288'>_string_81_subop_add</a>/imm32/subx-name +<span id="L30657" class="LineNr">30657 </span> 3/imm32/rm32-is-first-output +<span id="L30658" class="LineNr">30658 </span> 0/imm32/no-r32 +<span id="L30659" class="LineNr">30659 </span> 1/imm32/imm32-is-first-inout +<span id="L30660" class="LineNr">30660 </span> 0/imm32/no-imm8 +<span id="L30661" class="LineNr">30661 </span> 0/imm32/no-disp32 +<span id="L30662" class="LineNr">30662 </span> 0/imm32/no-xm32 +<span id="L30663" class="LineNr">30663 </span> 0/imm32/no-x32 +<span id="L30664" class="LineNr">30664 </span> 0x11/imm32/alloc-id:fake +<span id="L30665" class="LineNr">30665 </span> <a href='mu.subx.html#L30666'>_Primitive-add-lit-to-mem</a>/imm32/next +<span id="L30666" class="LineNr">30666 </span><span class="subxMinorFunction">_Primitive-add-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30667" class="LineNr">30667 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30668" class="LineNr">30668 </span> <span class="subxComment"># add-to var1, lit => 81 0/subop/add var1/rm32 lit/imm32</span> +<span id="L30669" class="LineNr">30669 </span> 0x11/imm32/alloc-id:fake +<span id="L30670" class="LineNr">30670 </span> <a href='mu.subx.html#L33606'>_string-add-to</a>/imm32/name +<span id="L30671" class="LineNr">30671 </span> 0x11/imm32/alloc-id:fake +<span id="L30672" class="LineNr">30672 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L30673" class="LineNr">30673 </span> 0/imm32/no-outputs +<span id="L30674" class="LineNr">30674 </span> 0/imm32/no-outputs +<span id="L30675" class="LineNr">30675 </span> 0x11/imm32/alloc-id:fake +<span id="L30676" class="LineNr">30676 </span> <a href='mu.subx.html#L34288'>_string_81_subop_add</a>/imm32/subx-name +<span id="L30677" class="LineNr">30677 </span> 1/imm32/rm32-is-first-inout +<span id="L30678" class="LineNr">30678 </span> 0/imm32/no-r32 +<span id="L30679" class="LineNr">30679 </span> 2/imm32/imm32-is-second-inout +<span id="L30680" class="LineNr">30680 </span> 0/imm32/no-imm8 +<span id="L30681" class="LineNr">30681 </span> 0/imm32/no-disp32 +<span id="L30682" class="LineNr">30682 </span> 0/imm32/no-xm32 +<span id="L30683" class="LineNr">30683 </span> 0/imm32/no-x32 +<span id="L30684" class="LineNr">30684 </span> 0x11/imm32/alloc-id:fake +<span id="L30685" class="LineNr">30685 </span> <a href='mu.subx.html#L30687'>_Primitive-subtract-from-eax</a>/imm32/next +<span id="L30686" class="LineNr">30686 </span><span class="subxH1Comment"># - subtract</span> +<span id="L30687" class="LineNr">30687 </span><span class="subxMinorFunction">_Primitive-subtract-from-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30688" class="LineNr">30688 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30689" class="LineNr">30689 </span> <span class="subxComment"># var/eax <- subtract lit => 2d/subtract-from-eax lit/imm32</span> +<span id="L30690" class="LineNr">30690 </span> 0x11/imm32/alloc-id:fake +<span id="L30691" class="LineNr">30691 </span> <a href='mu.subx.html#L33871'>_string-subtract</a>/imm32/name +<span id="L30692" class="LineNr">30692 </span> 0x11/imm32/alloc-id:fake +<span id="L30693" class="LineNr">30693 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L30694" class="LineNr">30694 </span> 0x11/imm32/alloc-id:fake +<span id="L30695" class="LineNr">30695 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30696" class="LineNr">30696 </span> 0x11/imm32/alloc-id:fake +<span id="L30697" class="LineNr">30697 </span> <a href='mu.subx.html#L34193'>_string_2d_subtract_from_eax</a>/imm32/subx-name +<span id="L30698" class="LineNr">30698 </span> 0/imm32/no-rm32 +<span id="L30699" class="LineNr">30699 </span> 0/imm32/no-r32 +<span id="L30700" class="LineNr">30700 </span> 1/imm32/imm32-is-first-inout +<span id="L30701" class="LineNr">30701 </span> 0/imm32/no-imm8 +<span id="L30702" class="LineNr">30702 </span> 0/imm32/no-disp32 +<span id="L30703" class="LineNr">30703 </span> 0/imm32/no-xm32 +<span id="L30704" class="LineNr">30704 </span> 0/imm32/no-x32 +<span id="L30705" class="LineNr">30705 </span> 0x11/imm32/alloc-id:fake +<span id="L30706" class="LineNr">30706 </span> <a href='mu.subx.html#L30707'>_Primitive-subtract-reg-from-reg</a>/imm32/next +<span id="L30707" class="LineNr">30707 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30708" class="LineNr">30708 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30709" class="LineNr">30709 </span> <span class="subxComment"># var1/reg <- subtract var2/reg => 29/subtract-from var1/rm32 var2/r32</span> +<span id="L30710" class="LineNr">30710 </span> 0x11/imm32/alloc-id:fake +<span id="L30711" class="LineNr">30711 </span> <a href='mu.subx.html#L33871'>_string-subtract</a>/imm32/name +<span id="L30712" class="LineNr">30712 </span> 0x11/imm32/alloc-id:fake +<span id="L30713" class="LineNr">30713 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L30714" class="LineNr">30714 </span> 0x11/imm32/alloc-id:fake +<span id="L30715" class="LineNr">30715 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30716" class="LineNr">30716 </span> 0x11/imm32/alloc-id:fake +<span id="L30717" class="LineNr">30717 </span> <a href='mu.subx.html#L34183'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L30718" class="LineNr">30718 </span> 3/imm32/rm32-is-first-output +<span id="L30719" class="LineNr">30719 </span> 1/imm32/r32-is-first-inout +<span id="L30720" class="LineNr">30720 </span> 0/imm32/no-imm32 +<span id="L30721" class="LineNr">30721 </span> 0/imm32/no-imm8 +<span id="L30722" class="LineNr">30722 </span> 0/imm32/no-disp32 +<span id="L30723" class="LineNr">30723 </span> 0/imm32/no-xm32 +<span id="L30724" class="LineNr">30724 </span> 0/imm32/no-x32 +<span id="L30725" class="LineNr">30725 </span> 0x11/imm32/alloc-id:fake +<span id="L30726" class="LineNr">30726 </span> <a href='mu.subx.html#L30727'>_Primitive-subtract-reg-from-mem</a>/imm32/next +<span id="L30727" class="LineNr">30727 </span><span class="subxMinorFunction">_Primitive-subtract-reg-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30728" class="LineNr">30728 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30729" class="LineNr">30729 </span> <span class="subxComment"># subtract-from var1 var2/reg => 29/subtract-from var1 var2/r32</span> +<span id="L30730" class="LineNr">30730 </span> 0x11/imm32/alloc-id:fake +<span id="L30731" class="LineNr">30731 </span> <a href='mu.subx.html#L33876'>_string-subtract-from</a>/imm32/name +<span id="L30732" class="LineNr">30732 </span> 0x11/imm32/alloc-id:fake +<span id="L30733" class="LineNr">30733 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L30734" class="LineNr">30734 </span> 0/imm32/no-outputs +<span id="L30735" class="LineNr">30735 </span> 0/imm32/no-outputs +<span id="L30736" class="LineNr">30736 </span> 0x11/imm32/alloc-id:fake +<span id="L30737" class="LineNr">30737 </span> <a href='mu.subx.html#L34183'>_string_29_subtract_from</a>/imm32/subx-name +<span id="L30738" class="LineNr">30738 </span> 1/imm32/rm32-is-first-inout +<span id="L30739" class="LineNr">30739 </span> 2/imm32/r32-is-second-inout +<span id="L30740" class="LineNr">30740 </span> 0/imm32/no-imm32 +<span id="L30741" class="LineNr">30741 </span> 0/imm32/no-imm8 +<span id="L30742" class="LineNr">30742 </span> 0/imm32/no-disp32 +<span id="L30743" class="LineNr">30743 </span> 0/imm32/no-xm32 +<span id="L30744" class="LineNr">30744 </span> 0/imm32/no-x32 +<span id="L30745" class="LineNr">30745 </span> 0x11/imm32/alloc-id:fake +<span id="L30746" class="LineNr">30746 </span> <a href='mu.subx.html#L30747'>_Primitive-subtract-mem-from-reg</a>/imm32/next +<span id="L30747" class="LineNr">30747 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30748" class="LineNr">30748 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30749" class="LineNr">30749 </span> <span class="subxComment"># var1/reg <- subtract var2 => 2b/subtract var2/rm32 var1/r32</span> +<span id="L30750" class="LineNr">30750 </span> 0x11/imm32/alloc-id:fake +<span id="L30751" class="LineNr">30751 </span> <a href='mu.subx.html#L33871'>_string-subtract</a>/imm32/name +<span id="L30752" class="LineNr">30752 </span> 0x11/imm32/alloc-id:fake +<span id="L30753" class="LineNr">30753 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30754" class="LineNr">30754 </span> 0x11/imm32/alloc-id:fake +<span id="L30755" class="LineNr">30755 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30756" class="LineNr">30756 </span> 0x11/imm32/alloc-id:fake +<span id="L30757" class="LineNr">30757 </span> <a href='mu.subx.html#L34188'>_string_2b_subtract</a>/imm32/subx-name +<span id="L30758" class="LineNr">30758 </span> 1/imm32/rm32-is-first-inout +<span id="L30759" class="LineNr">30759 </span> 3/imm32/r32-is-first-output +<span id="L30760" class="LineNr">30760 </span> 0/imm32/no-imm32 +<span id="L30761" class="LineNr">30761 </span> 0/imm32/no-imm8 +<span id="L30762" class="LineNr">30762 </span> 0/imm32/no-disp32 +<span id="L30763" class="LineNr">30763 </span> 0/imm32/no-xm32 +<span id="L30764" class="LineNr">30764 </span> 0/imm32/no-x32 +<span id="L30765" class="LineNr">30765 </span> 0x11/imm32/alloc-id:fake +<span id="L30766" class="LineNr">30766 </span> <a href='mu.subx.html#L30767'>_Primitive-subtract-lit-from-reg</a>/imm32/next +<span id="L30767" class="LineNr">30767 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30768" class="LineNr">30768 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30769" class="LineNr">30769 </span> <span class="subxComment"># var1/reg <- subtract lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L30770" class="LineNr">30770 </span> 0x11/imm32/alloc-id:fake +<span id="L30771" class="LineNr">30771 </span> <a href='mu.subx.html#L33871'>_string-subtract</a>/imm32/name +<span id="L30772" class="LineNr">30772 </span> 0x11/imm32/alloc-id:fake +<span id="L30773" class="LineNr">30773 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L30774" class="LineNr">30774 </span> 0x11/imm32/alloc-id:fake +<span id="L30775" class="LineNr">30775 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30776" class="LineNr">30776 </span> 0x11/imm32/alloc-id:fake +<span id="L30777" class="LineNr">30777 </span> <a href='mu.subx.html#L34303'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L30778" class="LineNr">30778 </span> 3/imm32/rm32-is-first-output +<span id="L30779" class="LineNr">30779 </span> 0/imm32/no-r32 +<span id="L30780" class="LineNr">30780 </span> 1/imm32/imm32-is-first-inout +<span id="L30781" class="LineNr">30781 </span> 0/imm32/no-imm8 +<span id="L30782" class="LineNr">30782 </span> 0/imm32/no-disp32 +<span id="L30783" class="LineNr">30783 </span> 0/imm32/no-xm32 +<span id="L30784" class="LineNr">30784 </span> 0/imm32/no-x32 +<span id="L30785" class="LineNr">30785 </span> 0x11/imm32/alloc-id:fake +<span id="L30786" class="LineNr">30786 </span> <a href='mu.subx.html#L30787'>_Primitive-subtract-lit-from-mem</a>/imm32/next +<span id="L30787" class="LineNr">30787 </span><span class="subxMinorFunction">_Primitive-subtract-lit-from-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30788" class="LineNr">30788 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30789" class="LineNr">30789 </span> <span class="subxComment"># subtract-from var1, lit => 81 5/subop/subtract var1/rm32 lit/imm32</span> +<span id="L30790" class="LineNr">30790 </span> 0x11/imm32/alloc-id:fake +<span id="L30791" class="LineNr">30791 </span> <a href='mu.subx.html#L33876'>_string-subtract-from</a>/imm32/name +<span id="L30792" class="LineNr">30792 </span> 0x11/imm32/alloc-id:fake +<span id="L30793" class="LineNr">30793 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L30794" class="LineNr">30794 </span> 0/imm32/no-outputs +<span id="L30795" class="LineNr">30795 </span> 0/imm32/no-outputs +<span id="L30796" class="LineNr">30796 </span> 0x11/imm32/alloc-id:fake +<span id="L30797" class="LineNr">30797 </span> <a href='mu.subx.html#L34303'>_string_81_subop_subtract</a>/imm32/subx-name +<span id="L30798" class="LineNr">30798 </span> 1/imm32/rm32-is-first-inout +<span id="L30799" class="LineNr">30799 </span> 0/imm32/no-r32 +<span id="L30800" class="LineNr">30800 </span> 2/imm32/imm32-is-second-inout +<span id="L30801" class="LineNr">30801 </span> 0/imm32/no-imm8 +<span id="L30802" class="LineNr">30802 </span> 0/imm32/no-disp32 +<span id="L30803" class="LineNr">30803 </span> 0/imm32/no-xm32 +<span id="L30804" class="LineNr">30804 </span> 0/imm32/no-x32 +<span id="L30805" class="LineNr">30805 </span> 0x11/imm32/alloc-id:fake +<span id="L30806" class="LineNr">30806 </span> <a href='mu.subx.html#L30808'>_Primitive-and-with-eax</a>/imm32/next +<span id="L30807" class="LineNr">30807 </span><span class="subxH1Comment"># - and</span> +<span id="L30808" class="LineNr">30808 </span><span class="subxMinorFunction">_Primitive-and-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30809" class="LineNr">30809 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30810" class="LineNr">30810 </span> <span class="subxComment"># var/eax <- and lit => 25/and-with-eax lit/imm32</span> +<span id="L30811" class="LineNr">30811 </span> 0x11/imm32/alloc-id:fake +<span id="L30812" class="LineNr">30812 </span> <a href='mu.subx.html#L33611'>_string-and</a>/imm32/name +<span id="L30813" class="LineNr">30813 </span> 0x11/imm32/alloc-id:fake +<span id="L30814" class="LineNr">30814 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L30815" class="LineNr">30815 </span> 0x11/imm32/alloc-id:fake +<span id="L30816" class="LineNr">30816 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30817" class="LineNr">30817 </span> 0x11/imm32/alloc-id:fake +<span id="L30818" class="LineNr">30818 </span> <a href='mu.subx.html#L34178'>_string_25_and_with_eax</a>/imm32/subx-name +<span id="L30819" class="LineNr">30819 </span> 0/imm32/no-rm32 +<span id="L30820" class="LineNr">30820 </span> 0/imm32/no-r32 +<span id="L30821" class="LineNr">30821 </span> 1/imm32/imm32-is-first-inout +<span id="L30822" class="LineNr">30822 </span> 0/imm32/no-imm8 +<span id="L30823" class="LineNr">30823 </span> 0/imm32/no-disp32 +<span id="L30824" class="LineNr">30824 </span> 0/imm32/no-xm32 +<span id="L30825" class="LineNr">30825 </span> 0/imm32/no-x32 +<span id="L30826" class="LineNr">30826 </span> 0x11/imm32/alloc-id:fake +<span id="L30827" class="LineNr">30827 </span> <a href='mu.subx.html#L30828'>_Primitive-and-reg-with-reg</a>/imm32/next +<span id="L30828" class="LineNr">30828 </span><span class="subxMinorFunction">_Primitive-and-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30829" class="LineNr">30829 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30830" class="LineNr">30830 </span> <span class="subxComment"># var1/reg <- and var2/reg => 21/and-with var1/rm32 var2/r32</span> +<span id="L30831" class="LineNr">30831 </span> 0x11/imm32/alloc-id:fake +<span id="L30832" class="LineNr">30832 </span> <a href='mu.subx.html#L33611'>_string-and</a>/imm32/name +<span id="L30833" class="LineNr">30833 </span> 0x11/imm32/alloc-id:fake +<span id="L30834" class="LineNr">30834 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L30835" class="LineNr">30835 </span> 0x11/imm32/alloc-id:fake +<span id="L30836" class="LineNr">30836 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30837" class="LineNr">30837 </span> 0x11/imm32/alloc-id:fake +<span id="L30838" class="LineNr">30838 </span> <a href='mu.subx.html#L34168'>_string_21_and_with</a>/imm32/subx-name +<span id="L30839" class="LineNr">30839 </span> 3/imm32/rm32-is-first-output +<span id="L30840" class="LineNr">30840 </span> 1/imm32/r32-is-first-inout +<span id="L30841" class="LineNr">30841 </span> 0/imm32/no-imm32 +<span id="L30842" class="LineNr">30842 </span> 0/imm32/no-imm8 +<span id="L30843" class="LineNr">30843 </span> 0/imm32/no-disp32 +<span id="L30844" class="LineNr">30844 </span> 0/imm32/no-xm32 +<span id="L30845" class="LineNr">30845 </span> 0/imm32/no-x32 +<span id="L30846" class="LineNr">30846 </span> 0x11/imm32/alloc-id:fake +<span id="L30847" class="LineNr">30847 </span> <a href='mu.subx.html#L30848'>_Primitive-and-reg-with-mem</a>/imm32/next +<span id="L30848" class="LineNr">30848 </span><span class="subxMinorFunction">_Primitive-and-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30849" class="LineNr">30849 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30850" class="LineNr">30850 </span> <span class="subxComment"># and-with var1 var2/reg => 21/and-with var1 var2/r32</span> +<span id="L30851" class="LineNr">30851 </span> 0x11/imm32/alloc-id:fake +<span id="L30852" class="LineNr">30852 </span> <a href='mu.subx.html#L33616'>_string-and-with</a>/imm32/name +<span id="L30853" class="LineNr">30853 </span> 0x11/imm32/alloc-id:fake +<span id="L30854" class="LineNr">30854 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L30855" class="LineNr">30855 </span> 0/imm32/no-outputs +<span id="L30856" class="LineNr">30856 </span> 0/imm32/no-outputs +<span id="L30857" class="LineNr">30857 </span> 0x11/imm32/alloc-id:fake +<span id="L30858" class="LineNr">30858 </span> <a href='mu.subx.html#L34168'>_string_21_and_with</a>/imm32/subx-name +<span id="L30859" class="LineNr">30859 </span> 1/imm32/rm32-is-first-inout +<span id="L30860" class="LineNr">30860 </span> 2/imm32/r32-is-second-inout +<span id="L30861" class="LineNr">30861 </span> 0/imm32/no-imm32 +<span id="L30862" class="LineNr">30862 </span> 0/imm32/no-imm8 +<span id="L30863" class="LineNr">30863 </span> 0/imm32/no-disp32 +<span id="L30864" class="LineNr">30864 </span> 0/imm32/no-xm32 +<span id="L30865" class="LineNr">30865 </span> 0/imm32/no-x32 +<span id="L30866" class="LineNr">30866 </span> 0x11/imm32/alloc-id:fake +<span id="L30867" class="LineNr">30867 </span> <a href='mu.subx.html#L30868'>_Primitive-and-mem-with-reg</a>/imm32/next +<span id="L30868" class="LineNr">30868 </span><span class="subxMinorFunction">_Primitive-and-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30869" class="LineNr">30869 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30870" class="LineNr">30870 </span> <span class="subxComment"># var1/reg <- and var2 => 23/and var2/rm32 var1/r32</span> +<span id="L30871" class="LineNr">30871 </span> 0x11/imm32/alloc-id:fake +<span id="L30872" class="LineNr">30872 </span> <a href='mu.subx.html#L33611'>_string-and</a>/imm32/name +<span id="L30873" class="LineNr">30873 </span> 0x11/imm32/alloc-id:fake +<span id="L30874" class="LineNr">30874 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30875" class="LineNr">30875 </span> 0x11/imm32/alloc-id:fake +<span id="L30876" class="LineNr">30876 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30877" class="LineNr">30877 </span> 0x11/imm32/alloc-id:fake +<span id="L30878" class="LineNr">30878 </span> <a href='mu.subx.html#L34173'>_string_23_and</a>/imm32/subx-name +<span id="L30879" class="LineNr">30879 </span> 1/imm32/rm32-is-first-inout +<span id="L30880" class="LineNr">30880 </span> 3/imm32/r32-is-first-output +<span id="L30881" class="LineNr">30881 </span> 0/imm32/no-imm32 +<span id="L30882" class="LineNr">30882 </span> 0/imm32/no-imm8 +<span id="L30883" class="LineNr">30883 </span> 0/imm32/no-disp32 +<span id="L30884" class="LineNr">30884 </span> 0/imm32/no-xm32 +<span id="L30885" class="LineNr">30885 </span> 0/imm32/no-x32 +<span id="L30886" class="LineNr">30886 </span> 0x11/imm32/alloc-id:fake +<span id="L30887" class="LineNr">30887 </span> <a href='mu.subx.html#L30888'>_Primitive-and-lit-with-reg</a>/imm32/next +<span id="L30888" class="LineNr">30888 </span><span class="subxMinorFunction">_Primitive-and-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30889" class="LineNr">30889 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30890" class="LineNr">30890 </span> <span class="subxComment"># var1/reg <- and lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L30891" class="LineNr">30891 </span> 0x11/imm32/alloc-id:fake +<span id="L30892" class="LineNr">30892 </span> <a href='mu.subx.html#L33611'>_string-and</a>/imm32/name +<span id="L30893" class="LineNr">30893 </span> 0x11/imm32/alloc-id:fake +<span id="L30894" class="LineNr">30894 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L30895" class="LineNr">30895 </span> 0x11/imm32/alloc-id:fake +<span id="L30896" class="LineNr">30896 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30897" class="LineNr">30897 </span> 0x11/imm32/alloc-id:fake +<span id="L30898" class="LineNr">30898 </span> <a href='mu.subx.html#L34298'>_string_81_subop_and</a>/imm32/subx-name +<span id="L30899" class="LineNr">30899 </span> 3/imm32/rm32-is-first-output +<span id="L30900" class="LineNr">30900 </span> 0/imm32/no-r32 +<span id="L30901" class="LineNr">30901 </span> 1/imm32/imm32-is-first-inout +<span id="L30902" class="LineNr">30902 </span> 0/imm32/no-imm8 +<span id="L30903" class="LineNr">30903 </span> 0/imm32/no-disp32 +<span id="L30904" class="LineNr">30904 </span> 0/imm32/no-xm32 +<span id="L30905" class="LineNr">30905 </span> 0/imm32/no-x32 +<span id="L30906" class="LineNr">30906 </span> 0x11/imm32/alloc-id:fake +<span id="L30907" class="LineNr">30907 </span> <a href='mu.subx.html#L30908'>_Primitive-and-lit-with-mem</a>/imm32/next +<span id="L30908" class="LineNr">30908 </span><span class="subxMinorFunction">_Primitive-and-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30909" class="LineNr">30909 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30910" class="LineNr">30910 </span> <span class="subxComment"># and-with var1, lit => 81 4/subop/and var1/rm32 lit/imm32</span> +<span id="L30911" class="LineNr">30911 </span> 0x11/imm32/alloc-id:fake +<span id="L30912" class="LineNr">30912 </span> <a href='mu.subx.html#L33616'>_string-and-with</a>/imm32/name +<span id="L30913" class="LineNr">30913 </span> 0x11/imm32/alloc-id:fake +<span id="L30914" class="LineNr">30914 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L30915" class="LineNr">30915 </span> 0/imm32/no-outputs +<span id="L30916" class="LineNr">30916 </span> 0/imm32/no-outputs +<span id="L30917" class="LineNr">30917 </span> 0x11/imm32/alloc-id:fake +<span id="L30918" class="LineNr">30918 </span> <a href='mu.subx.html#L34298'>_string_81_subop_and</a>/imm32/subx-name +<span id="L30919" class="LineNr">30919 </span> 1/imm32/rm32-is-first-inout +<span id="L30920" class="LineNr">30920 </span> 0/imm32/no-r32 +<span id="L30921" class="LineNr">30921 </span> 2/imm32/imm32-is-second-inout +<span id="L30922" class="LineNr">30922 </span> 0/imm32/no-imm8 +<span id="L30923" class="LineNr">30923 </span> 0/imm32/no-disp32 +<span id="L30924" class="LineNr">30924 </span> 0/imm32/no-xm32 +<span id="L30925" class="LineNr">30925 </span> 0/imm32/no-x32 +<span id="L30926" class="LineNr">30926 </span> 0x11/imm32/alloc-id:fake +<span id="L30927" class="LineNr">30927 </span> <a href='mu.subx.html#L30929'>_Primitive-or-with-eax</a>/imm32/next +<span id="L30928" class="LineNr">30928 </span><span class="subxH1Comment"># - or</span> +<span id="L30929" class="LineNr">30929 </span><span class="subxMinorFunction">_Primitive-or-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30930" class="LineNr">30930 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30931" class="LineNr">30931 </span> <span class="subxComment"># var/eax <- or lit => 0d/or-with-eax lit/imm32</span> +<span id="L30932" class="LineNr">30932 </span> 0x11/imm32/alloc-id:fake +<span id="L30933" class="LineNr">30933 </span> <a href='mu.subx.html#L33861'>_string-or</a>/imm32/name +<span id="L30934" class="LineNr">30934 </span> 0x11/imm32/alloc-id:fake +<span id="L30935" class="LineNr">30935 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L30936" class="LineNr">30936 </span> 0x11/imm32/alloc-id:fake +<span id="L30937" class="LineNr">30937 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L30938" class="LineNr">30938 </span> 0x11/imm32/alloc-id:fake +<span id="L30939" class="LineNr">30939 </span> <a href='mu.subx.html#L33933'>_string_0d_or_with_eax</a>/imm32/subx-name +<span id="L30940" class="LineNr">30940 </span> 0/imm32/no-rm32 +<span id="L30941" class="LineNr">30941 </span> 0/imm32/no-r32 +<span id="L30942" class="LineNr">30942 </span> 1/imm32/imm32-is-first-inout +<span id="L30943" class="LineNr">30943 </span> 0/imm32/no-imm8 +<span id="L30944" class="LineNr">30944 </span> 0/imm32/no-disp32 +<span id="L30945" class="LineNr">30945 </span> 0/imm32/no-xm32 +<span id="L30946" class="LineNr">30946 </span> 0/imm32/no-x32 +<span id="L30947" class="LineNr">30947 </span> 0x11/imm32/alloc-id:fake +<span id="L30948" class="LineNr">30948 </span> <a href='mu.subx.html#L30949'>_Primitive-or-reg-with-reg</a>/imm32/next +<span id="L30949" class="LineNr">30949 </span><span class="subxMinorFunction">_Primitive-or-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30950" class="LineNr">30950 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30951" class="LineNr">30951 </span> <span class="subxComment"># var1/reg <- or var2/reg => 09/or-with var1/rm32 var2/r32</span> +<span id="L30952" class="LineNr">30952 </span> 0x11/imm32/alloc-id:fake +<span id="L30953" class="LineNr">30953 </span> <a href='mu.subx.html#L33861'>_string-or</a>/imm32/name +<span id="L30954" class="LineNr">30954 </span> 0x11/imm32/alloc-id:fake +<span id="L30955" class="LineNr">30955 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L30956" class="LineNr">30956 </span> 0x11/imm32/alloc-id:fake +<span id="L30957" class="LineNr">30957 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30958" class="LineNr">30958 </span> 0x11/imm32/alloc-id:fake +<span id="L30959" class="LineNr">30959 </span> <a href='mu.subx.html#L33923'>_string_09_or_with</a>/imm32/subx-name +<span id="L30960" class="LineNr">30960 </span> 3/imm32/rm32-is-first-output +<span id="L30961" class="LineNr">30961 </span> 1/imm32/r32-is-first-inout +<span id="L30962" class="LineNr">30962 </span> 0/imm32/no-imm32 +<span id="L30963" class="LineNr">30963 </span> 0/imm32/no-imm8 +<span id="L30964" class="LineNr">30964 </span> 0/imm32/no-disp32 +<span id="L30965" class="LineNr">30965 </span> 0/imm32/no-xm32 +<span id="L30966" class="LineNr">30966 </span> 0/imm32/no-x32 +<span id="L30967" class="LineNr">30967 </span> 0x11/imm32/alloc-id:fake +<span id="L30968" class="LineNr">30968 </span> <a href='mu.subx.html#L30969'>_Primitive-or-reg-with-mem</a>/imm32/next +<span id="L30969" class="LineNr">30969 </span><span class="subxMinorFunction">_Primitive-or-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30970" class="LineNr">30970 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30971" class="LineNr">30971 </span> <span class="subxComment"># or-with var1 var2/reg => 09/or-with var1 var2/r32</span> +<span id="L30972" class="LineNr">30972 </span> 0x11/imm32/alloc-id:fake +<span id="L30973" class="LineNr">30973 </span> <a href='mu.subx.html#L33866'>_string-or-with</a>/imm32/name +<span id="L30974" class="LineNr">30974 </span> 0x11/imm32/alloc-id:fake +<span id="L30975" class="LineNr">30975 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L30976" class="LineNr">30976 </span> 0/imm32/no-outputs +<span id="L30977" class="LineNr">30977 </span> 0/imm32/no-outputs +<span id="L30978" class="LineNr">30978 </span> 0x11/imm32/alloc-id:fake +<span id="L30979" class="LineNr">30979 </span> <a href='mu.subx.html#L33923'>_string_09_or_with</a>/imm32/subx-name +<span id="L30980" class="LineNr">30980 </span> 1/imm32/rm32-is-first-inout +<span id="L30981" class="LineNr">30981 </span> 2/imm32/r32-is-second-inout +<span id="L30982" class="LineNr">30982 </span> 0/imm32/no-imm32 +<span id="L30983" class="LineNr">30983 </span> 0/imm32/no-imm8 +<span id="L30984" class="LineNr">30984 </span> 0/imm32/no-disp32 +<span id="L30985" class="LineNr">30985 </span> 0/imm32/no-xm32 +<span id="L30986" class="LineNr">30986 </span> 0/imm32/no-x32 +<span id="L30987" class="LineNr">30987 </span> 0x11/imm32/alloc-id:fake +<span id="L30988" class="LineNr">30988 </span> <a href='mu.subx.html#L30989'>_Primitive-or-mem-with-reg</a>/imm32/next +<span id="L30989" class="LineNr">30989 </span><span class="subxMinorFunction">_Primitive-or-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L30990" class="LineNr">30990 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L30991" class="LineNr">30991 </span> <span class="subxComment"># var1/reg <- or var2 => 0b/or var2/rm32 var1/r32</span> +<span id="L30992" class="LineNr">30992 </span> 0x11/imm32/alloc-id:fake +<span id="L30993" class="LineNr">30993 </span> <a href='mu.subx.html#L33861'>_string-or</a>/imm32/name +<span id="L30994" class="LineNr">30994 </span> 0x11/imm32/alloc-id:fake +<span id="L30995" class="LineNr">30995 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L30996" class="LineNr">30996 </span> 0x11/imm32/alloc-id:fake +<span id="L30997" class="LineNr">30997 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L30998" class="LineNr">30998 </span> 0x11/imm32/alloc-id:fake +<span id="L30999" class="LineNr">30999 </span> <a href='mu.subx.html#L33928'>_string_0b_or</a>/imm32/subx-name +<span id="L31000" class="LineNr">31000 </span> 1/imm32/rm32-is-first-inout +<span id="L31001" class="LineNr">31001 </span> 3/imm32/r32-is-first-output +<span id="L31002" class="LineNr">31002 </span> 0/imm32/no-imm32 +<span id="L31003" class="LineNr">31003 </span> 0/imm32/no-imm8 +<span id="L31004" class="LineNr">31004 </span> 0/imm32/no-disp32 +<span id="L31005" class="LineNr">31005 </span> 0/imm32/no-xm32 +<span id="L31006" class="LineNr">31006 </span> 0/imm32/no-x32 +<span id="L31007" class="LineNr">31007 </span> 0x11/imm32/alloc-id:fake +<span id="L31008" class="LineNr">31008 </span> <a href='mu.subx.html#L31009'>_Primitive-or-lit-with-reg</a>/imm32/next +<span id="L31009" class="LineNr">31009 </span><span class="subxMinorFunction">_Primitive-or-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31010" class="LineNr">31010 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31011" class="LineNr">31011 </span> <span class="subxComment"># var1/reg <- or lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L31012" class="LineNr">31012 </span> 0x11/imm32/alloc-id:fake +<span id="L31013" class="LineNr">31013 </span> <a href='mu.subx.html#L33861'>_string-or</a>/imm32/name +<span id="L31014" class="LineNr">31014 </span> 0x11/imm32/alloc-id:fake +<span id="L31015" class="LineNr">31015 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31016" class="LineNr">31016 </span> 0x11/imm32/alloc-id:fake +<span id="L31017" class="LineNr">31017 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31018" class="LineNr">31018 </span> 0x11/imm32/alloc-id:fake +<span id="L31019" class="LineNr">31019 </span> <a href='mu.subx.html#L34293'>_string_81_subop_or</a>/imm32/subx-name +<span id="L31020" class="LineNr">31020 </span> 3/imm32/rm32-is-first-output +<span id="L31021" class="LineNr">31021 </span> 0/imm32/no-r32 +<span id="L31022" class="LineNr">31022 </span> 1/imm32/imm32-is-first-inout +<span id="L31023" class="LineNr">31023 </span> 0/imm32/no-imm8 +<span id="L31024" class="LineNr">31024 </span> 0/imm32/no-disp32 +<span id="L31025" class="LineNr">31025 </span> 0/imm32/no-xm32 +<span id="L31026" class="LineNr">31026 </span> 0/imm32/no-x32 +<span id="L31027" class="LineNr">31027 </span> 0x11/imm32/alloc-id:fake +<span id="L31028" class="LineNr">31028 </span> <a href='mu.subx.html#L31029'>_Primitive-or-lit-with-mem</a>/imm32/next +<span id="L31029" class="LineNr">31029 </span><span class="subxMinorFunction">_Primitive-or-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31030" class="LineNr">31030 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31031" class="LineNr">31031 </span> <span class="subxComment"># or-with var1, lit => 81 1/subop/or var1/rm32 lit/imm32</span> +<span id="L31032" class="LineNr">31032 </span> 0x11/imm32/alloc-id:fake +<span id="L31033" class="LineNr">31033 </span> <a href='mu.subx.html#L33866'>_string-or-with</a>/imm32/name +<span id="L31034" class="LineNr">31034 </span> 0x11/imm32/alloc-id:fake +<span id="L31035" class="LineNr">31035 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31036" class="LineNr">31036 </span> 0/imm32/no-outputs +<span id="L31037" class="LineNr">31037 </span> 0/imm32/no-outputs +<span id="L31038" class="LineNr">31038 </span> 0x11/imm32/alloc-id:fake +<span id="L31039" class="LineNr">31039 </span> <a href='mu.subx.html#L34293'>_string_81_subop_or</a>/imm32/subx-name +<span id="L31040" class="LineNr">31040 </span> 1/imm32/rm32-is-first-inout +<span id="L31041" class="LineNr">31041 </span> 0/imm32/no-r32 +<span id="L31042" class="LineNr">31042 </span> 2/imm32/imm32-is-second-inout +<span id="L31043" class="LineNr">31043 </span> 0/imm32/no-imm8 +<span id="L31044" class="LineNr">31044 </span> 0/imm32/no-disp32 +<span id="L31045" class="LineNr">31045 </span> 0/imm32/no-xm32 +<span id="L31046" class="LineNr">31046 </span> 0/imm32/no-x32 +<span id="L31047" class="LineNr">31047 </span> 0x11/imm32/alloc-id:fake +<span id="L31048" class="LineNr">31048 </span> <a href='mu.subx.html#L31050'>_Primitive-xor-with-eax</a>/imm32/next +<span id="L31049" class="LineNr">31049 </span><span class="subxH1Comment"># - xor</span> +<span id="L31050" class="LineNr">31050 </span><span class="subxMinorFunction">_Primitive-xor-with-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31051" class="LineNr">31051 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31052" class="LineNr">31052 </span> <span class="subxComment"># var/eax <- xor lit => 35/xor-with-eax lit/imm32</span> +<span id="L31053" class="LineNr">31053 </span> 0x11/imm32/alloc-id:fake +<span id="L31054" class="LineNr">31054 </span> <a href='mu.subx.html#L33881'>_string-xor</a>/imm32/name +<span id="L31055" class="LineNr">31055 </span> 0x11/imm32/alloc-id:fake +<span id="L31056" class="LineNr">31056 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31057" class="LineNr">31057 </span> 0x11/imm32/alloc-id:fake +<span id="L31058" class="LineNr">31058 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31059" class="LineNr">31059 </span> 0x11/imm32/alloc-id:fake +<span id="L31060" class="LineNr">31060 </span> <a href='mu.subx.html#L34208'>_string_35_xor_with_eax</a>/imm32/subx-name +<span id="L31061" class="LineNr">31061 </span> 0/imm32/no-rm32 +<span id="L31062" class="LineNr">31062 </span> 0/imm32/no-r32 +<span id="L31063" class="LineNr">31063 </span> 1/imm32/imm32-is-first-inout +<span id="L31064" class="LineNr">31064 </span> 0/imm32/no-imm8 +<span id="L31065" class="LineNr">31065 </span> 0/imm32/no-disp32 +<span id="L31066" class="LineNr">31066 </span> 0/imm32/no-xm32 +<span id="L31067" class="LineNr">31067 </span> 0/imm32/no-x32 +<span id="L31068" class="LineNr">31068 </span> 0x11/imm32/alloc-id:fake +<span id="L31069" class="LineNr">31069 </span> <a href='mu.subx.html#L31070'>_Primitive-xor-reg-with-reg</a>/imm32/next +<span id="L31070" class="LineNr">31070 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31071" class="LineNr">31071 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31072" class="LineNr">31072 </span> <span class="subxComment"># var1/reg <- xor var2/reg => 31/xor-with var1/rm32 var2/r32</span> +<span id="L31073" class="LineNr">31073 </span> 0x11/imm32/alloc-id:fake +<span id="L31074" class="LineNr">31074 </span> <a href='mu.subx.html#L33881'>_string-xor</a>/imm32/name +<span id="L31075" class="LineNr">31075 </span> 0x11/imm32/alloc-id:fake +<span id="L31076" class="LineNr">31076 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L31077" class="LineNr">31077 </span> 0x11/imm32/alloc-id:fake +<span id="L31078" class="LineNr">31078 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31079" class="LineNr">31079 </span> 0x11/imm32/alloc-id:fake +<span id="L31080" class="LineNr">31080 </span> <a href='mu.subx.html#L34198'>_string_31_xor_with</a>/imm32/subx-name +<span id="L31081" class="LineNr">31081 </span> 3/imm32/rm32-is-first-output +<span id="L31082" class="LineNr">31082 </span> 1/imm32/r32-is-first-inout +<span id="L31083" class="LineNr">31083 </span> 0/imm32/no-imm32 +<span id="L31084" class="LineNr">31084 </span> 0/imm32/no-imm8 +<span id="L31085" class="LineNr">31085 </span> 0/imm32/no-disp32 +<span id="L31086" class="LineNr">31086 </span> 0/imm32/no-xm32 +<span id="L31087" class="LineNr">31087 </span> 0/imm32/no-x32 +<span id="L31088" class="LineNr">31088 </span> 0x11/imm32/alloc-id:fake +<span id="L31089" class="LineNr">31089 </span> <a href='mu.subx.html#L31090'>_Primitive-xor-reg-with-mem</a>/imm32/next +<span id="L31090" class="LineNr">31090 </span><span class="subxMinorFunction">_Primitive-xor-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31091" class="LineNr">31091 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31092" class="LineNr">31092 </span> <span class="subxComment"># xor-with var1 var2/reg => 31/xor-with var1 var2/r32</span> +<span id="L31093" class="LineNr">31093 </span> 0x11/imm32/alloc-id:fake +<span id="L31094" class="LineNr">31094 </span> <a href='mu.subx.html#L33886'>_string-xor-with</a>/imm32/name +<span id="L31095" class="LineNr">31095 </span> 0x11/imm32/alloc-id:fake +<span id="L31096" class="LineNr">31096 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31097" class="LineNr">31097 </span> 0/imm32/no-outputs +<span id="L31098" class="LineNr">31098 </span> 0/imm32/no-outputs +<span id="L31099" class="LineNr">31099 </span> 0x11/imm32/alloc-id:fake +<span id="L31100" class="LineNr">31100 </span> <a href='mu.subx.html#L34198'>_string_31_xor_with</a>/imm32/subx-name +<span id="L31101" class="LineNr">31101 </span> 1/imm32/rm32-is-first-inout +<span id="L31102" class="LineNr">31102 </span> 2/imm32/r32-is-second-inout +<span id="L31103" class="LineNr">31103 </span> 0/imm32/no-imm32 +<span id="L31104" class="LineNr">31104 </span> 0/imm32/no-imm8 +<span id="L31105" class="LineNr">31105 </span> 0/imm32/no-disp32 +<span id="L31106" class="LineNr">31106 </span> 0/imm32/no-xm32 +<span id="L31107" class="LineNr">31107 </span> 0/imm32/no-x32 +<span id="L31108" class="LineNr">31108 </span> 0x11/imm32/alloc-id:fake +<span id="L31109" class="LineNr">31109 </span> <a href='mu.subx.html#L31110'>_Primitive-xor-mem-with-reg</a>/imm32/next +<span id="L31110" class="LineNr">31110 </span><span class="subxMinorFunction">_Primitive-xor-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31111" class="LineNr">31111 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31112" class="LineNr">31112 </span> <span class="subxComment"># var1/reg <- xor var2 => 33/xor var2/rm32 var1/r32</span> +<span id="L31113" class="LineNr">31113 </span> 0x11/imm32/alloc-id:fake +<span id="L31114" class="LineNr">31114 </span> <a href='mu.subx.html#L33881'>_string-xor</a>/imm32/name +<span id="L31115" class="LineNr">31115 </span> 0x11/imm32/alloc-id:fake +<span id="L31116" class="LineNr">31116 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31117" class="LineNr">31117 </span> 0x11/imm32/alloc-id:fake +<span id="L31118" class="LineNr">31118 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31119" class="LineNr">31119 </span> 0x11/imm32/alloc-id:fake +<span id="L31120" class="LineNr">31120 </span> <a href='mu.subx.html#L34203'>_string_33_xor</a>/imm32/subx-name +<span id="L31121" class="LineNr">31121 </span> 1/imm32/rm32-is-first-inout +<span id="L31122" class="LineNr">31122 </span> 3/imm32/r32-is-first-output +<span id="L31123" class="LineNr">31123 </span> 0/imm32/no-imm32 +<span id="L31124" class="LineNr">31124 </span> 0/imm32/no-imm8 +<span id="L31125" class="LineNr">31125 </span> 0/imm32/no-disp32 +<span id="L31126" class="LineNr">31126 </span> 0/imm32/no-xm32 +<span id="L31127" class="LineNr">31127 </span> 0/imm32/no-x32 +<span id="L31128" class="LineNr">31128 </span> 0x11/imm32/alloc-id:fake +<span id="L31129" class="LineNr">31129 </span> <a href='mu.subx.html#L31130'>_Primitive-xor-lit-with-reg</a>/imm32/next +<span id="L31130" class="LineNr">31130 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31131" class="LineNr">31131 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31132" class="LineNr">31132 </span> <span class="subxComment"># var1/reg <- xor lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L31133" class="LineNr">31133 </span> 0x11/imm32/alloc-id:fake +<span id="L31134" class="LineNr">31134 </span> <a href='mu.subx.html#L33881'>_string-xor</a>/imm32/name +<span id="L31135" class="LineNr">31135 </span> 0x11/imm32/alloc-id:fake +<span id="L31136" class="LineNr">31136 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31137" class="LineNr">31137 </span> 0x11/imm32/alloc-id:fake +<span id="L31138" class="LineNr">31138 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31139" class="LineNr">31139 </span> 0x11/imm32/alloc-id:fake +<span id="L31140" class="LineNr">31140 </span> <a href='mu.subx.html#L34308'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L31141" class="LineNr">31141 </span> 3/imm32/rm32-is-first-output +<span id="L31142" class="LineNr">31142 </span> 0/imm32/no-r32 +<span id="L31143" class="LineNr">31143 </span> 1/imm32/imm32-is-first-inout +<span id="L31144" class="LineNr">31144 </span> 0/imm32/no-imm8 +<span id="L31145" class="LineNr">31145 </span> 0/imm32/no-disp32 +<span id="L31146" class="LineNr">31146 </span> 0/imm32/no-xm32 +<span id="L31147" class="LineNr">31147 </span> 0/imm32/no-x32 +<span id="L31148" class="LineNr">31148 </span> 0x11/imm32/alloc-id:fake +<span id="L31149" class="LineNr">31149 </span> <a href='mu.subx.html#L31150'>_Primitive-xor-lit-with-mem</a>/imm32/next +<span id="L31150" class="LineNr">31150 </span><span class="subxMinorFunction">_Primitive-xor-lit-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31151" class="LineNr">31151 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31152" class="LineNr">31152 </span> <span class="subxComment"># xor-with var1, lit => 81 6/subop/xor var1/rm32 lit/imm32</span> +<span id="L31153" class="LineNr">31153 </span> 0x11/imm32/alloc-id:fake +<span id="L31154" class="LineNr">31154 </span> <a href='mu.subx.html#L33886'>_string-xor-with</a>/imm32/name +<span id="L31155" class="LineNr">31155 </span> 0x11/imm32/alloc-id:fake +<span id="L31156" class="LineNr">31156 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31157" class="LineNr">31157 </span> 0/imm32/no-outputs +<span id="L31158" class="LineNr">31158 </span> 0/imm32/no-outputs +<span id="L31159" class="LineNr">31159 </span> 0x11/imm32/alloc-id:fake +<span id="L31160" class="LineNr">31160 </span> <a href='mu.subx.html#L34308'>_string_81_subop_xor</a>/imm32/subx-name +<span id="L31161" class="LineNr">31161 </span> 1/imm32/rm32-is-first-inout +<span id="L31162" class="LineNr">31162 </span> 0/imm32/no-r32 +<span id="L31163" class="LineNr">31163 </span> 2/imm32/imm32-is-second-inout +<span id="L31164" class="LineNr">31164 </span> 0/imm32/no-imm8 +<span id="L31165" class="LineNr">31165 </span> 0/imm32/no-disp32 +<span id="L31166" class="LineNr">31166 </span> 0/imm32/no-xm32 +<span id="L31167" class="LineNr">31167 </span> 0/imm32/no-x32 +<span id="L31168" class="LineNr">31168 </span> 0x11/imm32/alloc-id:fake +<span id="L31169" class="LineNr">31169 </span> <a href='mu.subx.html#L31170'>_Primitive-shift-reg-left-by-lit</a>/imm32/next +<span id="L31170" class="LineNr">31170 </span><span class="subxMinorFunction">_Primitive-shift-reg-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31171" class="LineNr">31171 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31172" class="LineNr">31172 </span> <span class="subxComment"># var1/reg <- shift-left lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L31173" class="LineNr">31173 </span> 0x11/imm32/alloc-id:fake +<span id="L31174" class="LineNr">31174 </span> <a href='mu.subx.html#L33891'>_string-shift-left</a>/imm32/name +<span id="L31175" class="LineNr">31175 </span> 0x11/imm32/alloc-id:fake +<span id="L31176" class="LineNr">31176 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31177" class="LineNr">31177 </span> 0x11/imm32/alloc-id:fake +<span id="L31178" class="LineNr">31178 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31179" class="LineNr">31179 </span> 0x11/imm32/alloc-id:fake +<span id="L31180" class="LineNr">31180 </span> <a href='mu.subx.html#L34408'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L31181" class="LineNr">31181 </span> 3/imm32/rm32-is-first-output +<span id="L31182" class="LineNr">31182 </span> 0/imm32/no-r32 +<span id="L31183" class="LineNr">31183 </span> 0/imm32/no-imm32 +<span id="L31184" class="LineNr">31184 </span> 1/imm32/imm8-is-first-inout +<span id="L31185" class="LineNr">31185 </span> 0/imm32/no-disp32 +<span id="L31186" class="LineNr">31186 </span> 0/imm32/no-xm32 +<span id="L31187" class="LineNr">31187 </span> 0/imm32/no-x32 +<span id="L31188" class="LineNr">31188 </span> 0x11/imm32/alloc-id:fake +<span id="L31189" class="LineNr">31189 </span> <a href='mu.subx.html#L31190'>_Primitive-shift-reg-right-by-lit</a>/imm32/next +<span id="L31190" class="LineNr">31190 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31191" class="LineNr">31191 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31192" class="LineNr">31192 </span> <span class="subxComment"># var1/reg <- shift-right lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L31193" class="LineNr">31193 </span> 0x11/imm32/alloc-id:fake +<span id="L31194" class="LineNr">31194 </span> <a href='mu.subx.html#L33896'>_string-shift-right</a>/imm32/name +<span id="L31195" class="LineNr">31195 </span> 0x11/imm32/alloc-id:fake +<span id="L31196" class="LineNr">31196 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31197" class="LineNr">31197 </span> 0x11/imm32/alloc-id:fake +<span id="L31198" class="LineNr">31198 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31199" class="LineNr">31199 </span> 0x11/imm32/alloc-id:fake +<span id="L31200" class="LineNr">31200 </span> <a href='mu.subx.html#L34413'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L31201" class="LineNr">31201 </span> 3/imm32/rm32-is-first-output +<span id="L31202" class="LineNr">31202 </span> 0/imm32/no-r32 +<span id="L31203" class="LineNr">31203 </span> 0/imm32/no-imm32 +<span id="L31204" class="LineNr">31204 </span> 1/imm32/imm8-is-first-inout +<span id="L31205" class="LineNr">31205 </span> 0/imm32/no-disp32 +<span id="L31206" class="LineNr">31206 </span> 0/imm32/no-xm32 +<span id="L31207" class="LineNr">31207 </span> 0/imm32/no-x32 +<span id="L31208" class="LineNr">31208 </span> 0x11/imm32/alloc-id:fake +<span id="L31209" class="LineNr">31209 </span> <a href='mu.subx.html#L31210'>_Primitive-shift-reg-right-signed-by-lit</a>/imm32/next +<span id="L31210" class="LineNr">31210 </span><span class="subxMinorFunction">_Primitive-shift-reg-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31211" class="LineNr">31211 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31212" class="LineNr">31212 </span> <span class="subxComment"># var1/reg <- shift-right-signed lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L31213" class="LineNr">31213 </span> 0x11/imm32/alloc-id:fake +<span id="L31214" class="LineNr">31214 </span> <a href='mu.subx.html#L33901'>_string-shift-right-signed</a>/imm32/name +<span id="L31215" class="LineNr">31215 </span> 0x11/imm32/alloc-id:fake +<span id="L31216" class="LineNr">31216 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31217" class="LineNr">31217 </span> 0x11/imm32/alloc-id:fake +<span id="L31218" class="LineNr">31218 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31219" class="LineNr">31219 </span> 0x11/imm32/alloc-id:fake +<span id="L31220" class="LineNr">31220 </span> <a href='mu.subx.html#L34418'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L31221" class="LineNr">31221 </span> 3/imm32/rm32-is-first-output +<span id="L31222" class="LineNr">31222 </span> 0/imm32/no-r32 +<span id="L31223" class="LineNr">31223 </span> 0/imm32/no-imm32 +<span id="L31224" class="LineNr">31224 </span> 1/imm32/imm8-is-first-inout +<span id="L31225" class="LineNr">31225 </span> 0/imm32/no-disp32 +<span id="L31226" class="LineNr">31226 </span> 0/imm32/no-xm32 +<span id="L31227" class="LineNr">31227 </span> 0/imm32/no-x32 +<span id="L31228" class="LineNr">31228 </span> 0x11/imm32/alloc-id:fake +<span id="L31229" class="LineNr">31229 </span> <a href='mu.subx.html#L31230'>_Primitive-shift-mem-left-by-lit</a>/imm32/next +<span id="L31230" class="LineNr">31230 </span><span class="subxMinorFunction">_Primitive-shift-mem-left-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31231" class="LineNr">31231 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31232" class="LineNr">31232 </span> <span class="subxComment"># shift-left var1, lit => c1/shift 4/subop/left var1/rm32 lit/imm32</span> +<span id="L31233" class="LineNr">31233 </span> 0x11/imm32/alloc-id:fake +<span id="L31234" class="LineNr">31234 </span> <a href='mu.subx.html#L33891'>_string-shift-left</a>/imm32/name +<span id="L31235" class="LineNr">31235 </span> 0x11/imm32/alloc-id:fake +<span id="L31236" class="LineNr">31236 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31237" class="LineNr">31237 </span> 0/imm32/no-outputs +<span id="L31238" class="LineNr">31238 </span> 0/imm32/no-outputs +<span id="L31239" class="LineNr">31239 </span> 0x11/imm32/alloc-id:fake +<span id="L31240" class="LineNr">31240 </span> <a href='mu.subx.html#L34408'>_string_c1_subop_shift_left</a>/imm32/subx-name +<span id="L31241" class="LineNr">31241 </span> 1/imm32/rm32-is-first-inout +<span id="L31242" class="LineNr">31242 </span> 0/imm32/no-r32 +<span id="L31243" class="LineNr">31243 </span> 0/imm32/no-imm32 +<span id="L31244" class="LineNr">31244 </span> 2/imm32/imm8-is-second-inout +<span id="L31245" class="LineNr">31245 </span> 0/imm32/no-disp32 +<span id="L31246" class="LineNr">31246 </span> 0/imm32/no-xm32 +<span id="L31247" class="LineNr">31247 </span> 0/imm32/no-x32 +<span id="L31248" class="LineNr">31248 </span> 0x11/imm32/alloc-id:fake +<span id="L31249" class="LineNr">31249 </span> <a href='mu.subx.html#L31250'>_Primitive-shift-mem-right-by-lit</a>/imm32/next +<span id="L31250" class="LineNr">31250 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31251" class="LineNr">31251 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31252" class="LineNr">31252 </span> <span class="subxComment"># shift-right var1, lit => c1/shift 5/subop/right var1/rm32 lit/imm32</span> +<span id="L31253" class="LineNr">31253 </span> 0x11/imm32/alloc-id:fake +<span id="L31254" class="LineNr">31254 </span> <a href='mu.subx.html#L33896'>_string-shift-right</a>/imm32/name +<span id="L31255" class="LineNr">31255 </span> 0x11/imm32/alloc-id:fake +<span id="L31256" class="LineNr">31256 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31257" class="LineNr">31257 </span> 0/imm32/no-outputs +<span id="L31258" class="LineNr">31258 </span> 0/imm32/no-outputs +<span id="L31259" class="LineNr">31259 </span> 0x11/imm32/alloc-id:fake +<span id="L31260" class="LineNr">31260 </span> <a href='mu.subx.html#L34413'>_string_c1_subop_shift_right_padding_zeroes</a>/imm32/subx-name +<span id="L31261" class="LineNr">31261 </span> 1/imm32/rm32-is-first-inout +<span id="L31262" class="LineNr">31262 </span> 0/imm32/no-r32 +<span id="L31263" class="LineNr">31263 </span> 0/imm32/no-imm32 +<span id="L31264" class="LineNr">31264 </span> 2/imm32/imm8-is-second-inout +<span id="L31265" class="LineNr">31265 </span> 0/imm32/no-disp32 +<span id="L31266" class="LineNr">31266 </span> 0/imm32/no-xm32 +<span id="L31267" class="LineNr">31267 </span> 0/imm32/no-x32 +<span id="L31268" class="LineNr">31268 </span> 0x11/imm32/alloc-id:fake +<span id="L31269" class="LineNr">31269 </span> <a href='mu.subx.html#L31270'>_Primitive-shift-mem-right-signed-by-lit</a>/imm32/next +<span id="L31270" class="LineNr">31270 </span><span class="subxMinorFunction">_Primitive-shift-mem-right-signed-by-lit</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31271" class="LineNr">31271 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31272" class="LineNr">31272 </span> <span class="subxComment"># shift-right-signed var1, lit => c1/shift 7/subop/right-preserving-sign var1/rm32 lit/imm32</span> +<span id="L31273" class="LineNr">31273 </span> 0x11/imm32/alloc-id:fake +<span id="L31274" class="LineNr">31274 </span> <a href='mu.subx.html#L33901'>_string-shift-right-signed</a>/imm32/name +<span id="L31275" class="LineNr">31275 </span> 0x11/imm32/alloc-id:fake +<span id="L31276" class="LineNr">31276 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31277" class="LineNr">31277 </span> 0/imm32/no-outputs +<span id="L31278" class="LineNr">31278 </span> 0/imm32/no-outputs +<span id="L31279" class="LineNr">31279 </span> 0x11/imm32/alloc-id:fake +<span id="L31280" class="LineNr">31280 </span> <a href='mu.subx.html#L34418'>_string_c1_subop_shift_right_preserving_sign</a>/imm32/subx-name +<span id="L31281" class="LineNr">31281 </span> 1/imm32/rm32-is-first-inout +<span id="L31282" class="LineNr">31282 </span> 0/imm32/no-r32 +<span id="L31283" class="LineNr">31283 </span> 0/imm32/no-imm32 +<span id="L31284" class="LineNr">31284 </span> 2/imm32/imm8-is-second-inout +<span id="L31285" class="LineNr">31285 </span> 0/imm32/no-disp32 +<span id="L31286" class="LineNr">31286 </span> 0/imm32/no-xm32 +<span id="L31287" class="LineNr">31287 </span> 0/imm32/no-x32 +<span id="L31288" class="LineNr">31288 </span> 0x11/imm32/alloc-id:fake +<span id="L31289" class="LineNr">31289 </span> <a href='mu.subx.html#L31291'>_Primitive-copy-to-eax</a>/imm32/next +<span id="L31290" class="LineNr">31290 </span><span class="subxH1Comment"># - copy</span> +<span id="L31291" class="LineNr">31291 </span><span class="subxMinorFunction">_Primitive-copy-to-eax</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31292" class="LineNr">31292 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31293" class="LineNr">31293 </span> <span class="subxComment"># var/eax <- copy lit => b8/copy-to-eax lit/imm32</span> +<span id="L31294" class="LineNr">31294 </span> 0x11/imm32/alloc-id:fake +<span id="L31295" class="LineNr">31295 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31296" class="LineNr">31296 </span> 0x11/imm32/alloc-id:fake +<span id="L31297" class="LineNr">31297 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31298" class="LineNr">31298 </span> 0x11/imm32/alloc-id:fake +<span id="L31299" class="LineNr">31299 </span> <span class="SpecialChar"><a href='mu.subx.html#L34593'>Single-int-var-in-eax</a></span>/imm32/outputs +<span id="L31300" class="LineNr">31300 </span> 0x11/imm32/alloc-id:fake +<span id="L31301" class="LineNr">31301 </span> <a href='mu.subx.html#L34343'>_string_b8_copy_to_eax</a>/imm32/subx-name +<span id="L31302" class="LineNr">31302 </span> 0/imm32/no-rm32 +<span id="L31303" class="LineNr">31303 </span> 0/imm32/no-r32 +<span id="L31304" class="LineNr">31304 </span> 1/imm32/imm32-is-first-inout +<span id="L31305" class="LineNr">31305 </span> 0/imm32/no-imm8 +<span id="L31306" class="LineNr">31306 </span> 0/imm32/no-disp32 +<span id="L31307" class="LineNr">31307 </span> 0/imm32/no-xm32 +<span id="L31308" class="LineNr">31308 </span> 0/imm32/no-x32 +<span id="L31309" class="LineNr">31309 </span> 0x11/imm32/alloc-id:fake +<span id="L31310" class="LineNr">31310 </span> <a href='mu.subx.html#L31311'>_Primitive-copy-to-ecx</a>/imm32/next +<span id="L31311" class="LineNr">31311 </span><span class="subxMinorFunction">_Primitive-copy-to-ecx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31312" class="LineNr">31312 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31313" class="LineNr">31313 </span> <span class="subxComment"># var/ecx <- copy lit => b9/copy-to-ecx lit/imm32</span> +<span id="L31314" class="LineNr">31314 </span> 0x11/imm32/alloc-id:fake +<span id="L31315" class="LineNr">31315 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31316" class="LineNr">31316 </span> 0x11/imm32/alloc-id:fake +<span id="L31317" class="LineNr">31317 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31318" class="LineNr">31318 </span> 0x11/imm32/alloc-id:fake +<span id="L31319" class="LineNr">31319 </span> <span class="SpecialChar"><a href='mu.subx.html#L34611'>Single-int-var-in-ecx</a></span>/imm32/outputs +<span id="L31320" class="LineNr">31320 </span> 0x11/imm32/alloc-id:fake +<span id="L31321" class="LineNr">31321 </span> <a href='mu.subx.html#L34348'>_string_b9_copy_to_ecx</a>/imm32/subx-name +<span id="L31322" class="LineNr">31322 </span> 0/imm32/no-rm32 +<span id="L31323" class="LineNr">31323 </span> 0/imm32/no-r32 +<span id="L31324" class="LineNr">31324 </span> 1/imm32/imm32-is-first-inout +<span id="L31325" class="LineNr">31325 </span> 0/imm32/no-imm8 +<span id="L31326" class="LineNr">31326 </span> 0/imm32/no-disp32 +<span id="L31327" class="LineNr">31327 </span> 0/imm32/no-xm32 +<span id="L31328" class="LineNr">31328 </span> 0/imm32/no-x32 +<span id="L31329" class="LineNr">31329 </span> 0x11/imm32/alloc-id:fake +<span id="L31330" class="LineNr">31330 </span> <a href='mu.subx.html#L31331'>_Primitive-copy-to-edx</a>/imm32/next +<span id="L31331" class="LineNr">31331 </span><span class="subxMinorFunction">_Primitive-copy-to-edx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31332" class="LineNr">31332 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31333" class="LineNr">31333 </span> <span class="subxComment"># var/edx <- copy lit => ba/copy-to-edx lit/imm32</span> +<span id="L31334" class="LineNr">31334 </span> 0x11/imm32/alloc-id:fake +<span id="L31335" class="LineNr">31335 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31336" class="LineNr">31336 </span> 0x11/imm32/alloc-id:fake +<span id="L31337" class="LineNr">31337 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31338" class="LineNr">31338 </span> 0x11/imm32/alloc-id:fake +<span id="L31339" class="LineNr">31339 </span> <span class="SpecialChar"><a href='mu.subx.html#L34629'>Single-int-var-in-edx</a></span>/imm32/outputs +<span id="L31340" class="LineNr">31340 </span> 0x11/imm32/alloc-id:fake +<span id="L31341" class="LineNr">31341 </span> <a href='mu.subx.html#L34353'>_string_ba_copy_to_edx</a>/imm32/subx-name +<span id="L31342" class="LineNr">31342 </span> 0/imm32/no-rm32 +<span id="L31343" class="LineNr">31343 </span> 0/imm32/no-r32 +<span id="L31344" class="LineNr">31344 </span> 1/imm32/imm32-is-first-inout +<span id="L31345" class="LineNr">31345 </span> 0/imm32/no-imm8 +<span id="L31346" class="LineNr">31346 </span> 0/imm32/no-disp32 +<span id="L31347" class="LineNr">31347 </span> 0/imm32/no-xm32 +<span id="L31348" class="LineNr">31348 </span> 0/imm32/no-x32 +<span id="L31349" class="LineNr">31349 </span> 0x11/imm32/alloc-id:fake +<span id="L31350" class="LineNr">31350 </span> <a href='mu.subx.html#L31351'>_Primitive-copy-to-ebx</a>/imm32/next +<span id="L31351" class="LineNr">31351 </span><span class="subxMinorFunction">_Primitive-copy-to-ebx</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31352" class="LineNr">31352 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31353" class="LineNr">31353 </span> <span class="subxComment"># var/ebx <- copy lit => bb/copy-to-ebx lit/imm32</span> +<span id="L31354" class="LineNr">31354 </span> 0x11/imm32/alloc-id:fake +<span id="L31355" class="LineNr">31355 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31356" class="LineNr">31356 </span> 0x11/imm32/alloc-id:fake +<span id="L31357" class="LineNr">31357 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31358" class="LineNr">31358 </span> 0x11/imm32/alloc-id:fake +<span id="L31359" class="LineNr">31359 </span> <span class="SpecialChar"><a href='mu.subx.html#L34647'>Single-int-var-in-ebx</a></span>/imm32/outputs +<span id="L31360" class="LineNr">31360 </span> 0x11/imm32/alloc-id:fake +<span id="L31361" class="LineNr">31361 </span> <a href='mu.subx.html#L34358'>_string_bb_copy_to_ebx</a>/imm32/subx-name +<span id="L31362" class="LineNr">31362 </span> 0/imm32/no-rm32 +<span id="L31363" class="LineNr">31363 </span> 0/imm32/no-r32 +<span id="L31364" class="LineNr">31364 </span> 1/imm32/imm32-is-first-inout +<span id="L31365" class="LineNr">31365 </span> 0/imm32/no-imm8 +<span id="L31366" class="LineNr">31366 </span> 0/imm32/no-disp32 +<span id="L31367" class="LineNr">31367 </span> 0/imm32/no-xm32 +<span id="L31368" class="LineNr">31368 </span> 0/imm32/no-x32 +<span id="L31369" class="LineNr">31369 </span> 0x11/imm32/alloc-id:fake +<span id="L31370" class="LineNr">31370 </span> <a href='mu.subx.html#L31371'>_Primitive-copy-to-esi</a>/imm32/next +<span id="L31371" class="LineNr">31371 </span><span class="subxMinorFunction">_Primitive-copy-to-esi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31372" class="LineNr">31372 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31373" class="LineNr">31373 </span> <span class="subxComment"># var/esi <- copy lit => be/copy-to-esi lit/imm32</span> +<span id="L31374" class="LineNr">31374 </span> 0x11/imm32/alloc-id:fake +<span id="L31375" class="LineNr">31375 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31376" class="LineNr">31376 </span> 0x11/imm32/alloc-id:fake +<span id="L31377" class="LineNr">31377 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31378" class="LineNr">31378 </span> 0x11/imm32/alloc-id:fake +<span id="L31379" class="LineNr">31379 </span> <span class="SpecialChar"><a href='mu.subx.html#L34665'>Single-int-var-in-esi</a></span>/imm32/outputs +<span id="L31380" class="LineNr">31380 </span> 0x11/imm32/alloc-id:fake +<span id="L31381" class="LineNr">31381 </span> <a href='mu.subx.html#L34363'>_string_be_copy_to_esi</a>/imm32/subx-name +<span id="L31382" class="LineNr">31382 </span> 0/imm32/no-rm32 +<span id="L31383" class="LineNr">31383 </span> 0/imm32/no-r32 +<span id="L31384" class="LineNr">31384 </span> 1/imm32/imm32-is-first-inout +<span id="L31385" class="LineNr">31385 </span> 0/imm32/no-imm8 +<span id="L31386" class="LineNr">31386 </span> 0/imm32/no-disp32 +<span id="L31387" class="LineNr">31387 </span> 0/imm32/no-xm32 +<span id="L31388" class="LineNr">31388 </span> 0/imm32/no-x32 +<span id="L31389" class="LineNr">31389 </span> 0x11/imm32/alloc-id:fake +<span id="L31390" class="LineNr">31390 </span> <a href='mu.subx.html#L31391'>_Primitive-copy-to-edi</a>/imm32/next +<span id="L31391" class="LineNr">31391 </span><span class="subxMinorFunction">_Primitive-copy-to-edi</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31392" class="LineNr">31392 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31393" class="LineNr">31393 </span> <span class="subxComment"># var/edi <- copy lit => bf/copy-to-edi lit/imm32</span> +<span id="L31394" class="LineNr">31394 </span> 0x11/imm32/alloc-id:fake +<span id="L31395" class="LineNr">31395 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31396" class="LineNr">31396 </span> 0x11/imm32/alloc-id:fake +<span id="L31397" class="LineNr">31397 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31398" class="LineNr">31398 </span> 0x11/imm32/alloc-id:fake +<span id="L31399" class="LineNr">31399 </span> <span class="SpecialChar"><a href='mu.subx.html#L34683'>Single-int-var-in-edi</a></span>/imm32/outputs +<span id="L31400" class="LineNr">31400 </span> 0x11/imm32/alloc-id:fake +<span id="L31401" class="LineNr">31401 </span> <a href='mu.subx.html#L34368'>_string_bf_copy_to_edi</a>/imm32/subx-name +<span id="L31402" class="LineNr">31402 </span> 0/imm32/no-rm32 +<span id="L31403" class="LineNr">31403 </span> 0/imm32/no-r32 +<span id="L31404" class="LineNr">31404 </span> 1/imm32/imm32-is-first-inout +<span id="L31405" class="LineNr">31405 </span> 0/imm32/no-imm8 +<span id="L31406" class="LineNr">31406 </span> 0/imm32/no-disp32 +<span id="L31407" class="LineNr">31407 </span> 0/imm32/no-xm32 +<span id="L31408" class="LineNr">31408 </span> 0/imm32/no-x32 +<span id="L31409" class="LineNr">31409 </span> 0x11/imm32/alloc-id:fake +<span id="L31410" class="LineNr">31410 </span> <a href='mu.subx.html#L31411'>_Primitive-copy-reg-to-reg</a>/imm32/next +<span id="L31411" class="LineNr">31411 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31412" class="LineNr">31412 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31413" class="LineNr">31413 </span> <span class="subxComment"># var1/reg <- copy var2/reg => 89/<- var1/rm32 var2/r32</span> +<span id="L31414" class="LineNr">31414 </span> 0x11/imm32/alloc-id:fake +<span id="L31415" class="LineNr">31415 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31416" class="LineNr">31416 </span> 0x11/imm32/alloc-id:fake +<span id="L31417" class="LineNr">31417 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L31418" class="LineNr">31418 </span> 0x11/imm32/alloc-id:fake +<span id="L31419" class="LineNr">31419 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31420" class="LineNr">31420 </span> 0x11/imm32/alloc-id:fake +<span id="L31421" class="LineNr">31421 </span> <a href='mu.subx.html#L34318'>_string_89_<-</a>/imm32/subx-name +<span id="L31422" class="LineNr">31422 </span> 3/imm32/rm32-is-first-output +<span id="L31423" class="LineNr">31423 </span> 1/imm32/r32-is-first-inout +<span id="L31424" class="LineNr">31424 </span> 0/imm32/no-imm32 +<span id="L31425" class="LineNr">31425 </span> 0/imm32/no-imm8 +<span id="L31426" class="LineNr">31426 </span> 0/imm32/no-disp32 +<span id="L31427" class="LineNr">31427 </span> 0/imm32/no-xm32 +<span id="L31428" class="LineNr">31428 </span> 0/imm32/no-x32 +<span id="L31429" class="LineNr">31429 </span> 0x11/imm32/alloc-id:fake +<span id="L31430" class="LineNr">31430 </span> <a href='mu.subx.html#L31431'>_Primitive-copy-reg-to-mem</a>/imm32/next +<span id="L31431" class="LineNr">31431 </span><span class="subxMinorFunction">_Primitive-copy-reg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31432" class="LineNr">31432 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31433" class="LineNr">31433 </span> <span class="subxComment"># copy-to var1 var2/reg => 89/<- var1 var2/r32</span> +<span id="L31434" class="LineNr">31434 </span> 0x11/imm32/alloc-id:fake +<span id="L31435" class="LineNr">31435 </span> <a href='mu.subx.html#L33706'>_string-copy-to</a>/imm32/name +<span id="L31436" class="LineNr">31436 </span> 0x11/imm32/alloc-id:fake +<span id="L31437" class="LineNr">31437 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31438" class="LineNr">31438 </span> 0/imm32/no-outputs +<span id="L31439" class="LineNr">31439 </span> 0/imm32/no-outputs +<span id="L31440" class="LineNr">31440 </span> 0x11/imm32/alloc-id:fake +<span id="L31441" class="LineNr">31441 </span> <a href='mu.subx.html#L34318'>_string_89_<-</a>/imm32/subx-name +<span id="L31442" class="LineNr">31442 </span> 1/imm32/rm32-is-first-inout +<span id="L31443" class="LineNr">31443 </span> 2/imm32/r32-is-second-inout +<span id="L31444" class="LineNr">31444 </span> 0/imm32/no-imm32 +<span id="L31445" class="LineNr">31445 </span> 0/imm32/no-imm8 +<span id="L31446" class="LineNr">31446 </span> 0/imm32/no-disp32 +<span id="L31447" class="LineNr">31447 </span> 0/imm32/no-xm32 +<span id="L31448" class="LineNr">31448 </span> 0/imm32/no-x32 +<span id="L31449" class="LineNr">31449 </span> 0x11/imm32/alloc-id:fake +<span id="L31450" class="LineNr">31450 </span> <a href='mu.subx.html#L31451'>_Primitive-copy-mem-to-reg</a>/imm32/next +<span id="L31451" class="LineNr">31451 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31452" class="LineNr">31452 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31453" class="LineNr">31453 </span> <span class="subxComment"># var1/reg <- copy var2 => 8b/-> var2/rm32 var1/r32</span> +<span id="L31454" class="LineNr">31454 </span> 0x11/imm32/alloc-id:fake +<span id="L31455" class="LineNr">31455 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31456" class="LineNr">31456 </span> 0x11/imm32/alloc-id:fake +<span id="L31457" class="LineNr">31457 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31458" class="LineNr">31458 </span> 0x11/imm32/alloc-id:fake +<span id="L31459" class="LineNr">31459 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31460" class="LineNr">31460 </span> 0x11/imm32/alloc-id:fake +<span id="L31461" class="LineNr">31461 </span> <a href='mu.subx.html#L34323'>_string_8b_-></a>/imm32/subx-name +<span id="L31462" class="LineNr">31462 </span> 1/imm32/rm32-is-first-inout +<span id="L31463" class="LineNr">31463 </span> 3/imm32/r32-is-first-output +<span id="L31464" class="LineNr">31464 </span> 0/imm32/no-imm32 +<span id="L31465" class="LineNr">31465 </span> 0/imm32/no-imm8 +<span id="L31466" class="LineNr">31466 </span> 0/imm32/no-disp32 +<span id="L31467" class="LineNr">31467 </span> 0/imm32/no-xm32 +<span id="L31468" class="LineNr">31468 </span> 0/imm32/no-x32 +<span id="L31469" class="LineNr">31469 </span> 0x11/imm32/alloc-id:fake +<span id="L31470" class="LineNr">31470 </span> <a href='mu.subx.html#L31471'>_Primitive-copy-lit-to-reg</a>/imm32/next +<span id="L31471" class="LineNr">31471 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31472" class="LineNr">31472 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31473" class="LineNr">31473 </span> <span class="subxComment"># var1/reg <- copy lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L31474" class="LineNr">31474 </span> 0x11/imm32/alloc-id:fake +<span id="L31475" class="LineNr">31475 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31476" class="LineNr">31476 </span> 0x11/imm32/alloc-id:fake +<span id="L31477" class="LineNr">31477 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L31478" class="LineNr">31478 </span> 0x11/imm32/alloc-id:fake +<span id="L31479" class="LineNr">31479 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31480" class="LineNr">31480 </span> 0x11/imm32/alloc-id:fake +<span id="L31481" class="LineNr">31481 </span> <a href='mu.subx.html#L34373'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L31482" class="LineNr">31482 </span> 3/imm32/rm32-is-first-output +<span id="L31483" class="LineNr">31483 </span> 0/imm32/no-r32 +<span id="L31484" class="LineNr">31484 </span> 1/imm32/imm32-is-first-inout +<span id="L31485" class="LineNr">31485 </span> 0/imm32/no-imm8 +<span id="L31486" class="LineNr">31486 </span> 0/imm32/no-disp32 +<span id="L31487" class="LineNr">31487 </span> 0/imm32/no-xm32 +<span id="L31488" class="LineNr">31488 </span> 0/imm32/no-x32 +<span id="L31489" class="LineNr">31489 </span> 0x11/imm32/alloc-id:fake +<span id="L31490" class="LineNr">31490 </span> <a href='mu.subx.html#L31491'>_Primitive-copy-lit-to-mem</a>/imm32/next +<span id="L31491" class="LineNr">31491 </span><span class="subxMinorFunction">_Primitive-copy-lit-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31492" class="LineNr">31492 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31493" class="LineNr">31493 </span> <span class="subxComment"># copy-to var1, lit => c7 0/subop/copy var1/rm32 lit/imm32</span> +<span id="L31494" class="LineNr">31494 </span> 0x11/imm32/alloc-id:fake +<span id="L31495" class="LineNr">31495 </span> <a href='mu.subx.html#L33706'>_string-copy-to</a>/imm32/name +<span id="L31496" class="LineNr">31496 </span> 0x11/imm32/alloc-id:fake +<span id="L31497" class="LineNr">31497 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31498" class="LineNr">31498 </span> 0/imm32/no-outputs +<span id="L31499" class="LineNr">31499 </span> 0/imm32/no-outputs +<span id="L31500" class="LineNr">31500 </span> 0x11/imm32/alloc-id:fake +<span id="L31501" class="LineNr">31501 </span> <a href='mu.subx.html#L34373'>_string_c7_subop_copy</a>/imm32/subx-name +<span id="L31502" class="LineNr">31502 </span> 1/imm32/rm32-is-first-inout +<span id="L31503" class="LineNr">31503 </span> 0/imm32/no-r32 +<span id="L31504" class="LineNr">31504 </span> 2/imm32/imm32-is-second-inout +<span id="L31505" class="LineNr">31505 </span> 0/imm32/no-imm8 +<span id="L31506" class="LineNr">31506 </span> 0/imm32/no-disp32 +<span id="L31507" class="LineNr">31507 </span> 0/imm32/no-xm32 +<span id="L31508" class="LineNr">31508 </span> 0/imm32/no-x32 +<span id="L31509" class="LineNr">31509 </span> 0x11/imm32/alloc-id:fake +<span id="L31510" class="LineNr">31510 </span> <a href='mu.subx.html#L31512'>_Primitive-copy-byte-from-reg</a>/imm32/next +<span id="L31511" class="LineNr">31511 </span><span class="subxH1Comment"># - copy byte</span> +<span id="L31512" class="LineNr">31512 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-reg</span>: +<span id="L31513" class="LineNr">31513 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31514" class="LineNr">31514 </span> <span class="subxComment"># var/reg <- copy-byte var2/reg2 => 8a/byte-> %var2 var/r32</span> +<span id="L31515" class="LineNr">31515 </span> 0x11/imm32/alloc-id:fake +<span id="L31516" class="LineNr">31516 </span> <a href='mu.subx.html#L33711'>_string-copy-byte</a>/imm32/name +<span id="L31517" class="LineNr">31517 </span> 0x11/imm32/alloc-id:fake +<span id="L31518" class="LineNr">31518 </span> <span class="SpecialChar"><a href='mu.subx.html#L34547'>Single-byte-var-in-some-register</a></span>/imm32/inouts +<span id="L31519" class="LineNr">31519 </span> 0x11/imm32/alloc-id:fake +<span id="L31520" class="LineNr">31520 </span> <span class="SpecialChar"><a href='mu.subx.html#L34547'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L31521" class="LineNr">31521 </span> 0x11/imm32/alloc-id:fake +<span id="L31522" class="LineNr">31522 </span> <a href='mu.subx.html#L34328'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L31523" class="LineNr">31523 </span> 1/imm32/rm32-is-first-inout +<span id="L31524" class="LineNr">31524 </span> 3/imm32/r32-is-first-output +<span id="L31525" class="LineNr">31525 </span> 0/imm32/no-imm32 +<span id="L31526" class="LineNr">31526 </span> 0/imm32/no-imm8 +<span id="L31527" class="LineNr">31527 </span> 0/imm32/no-disp32 +<span id="L31528" class="LineNr">31528 </span> 0/imm32/no-xm32 +<span id="L31529" class="LineNr">31529 </span> 0/imm32/no-x32 +<span id="L31530" class="LineNr">31530 </span> 0x11/imm32/alloc-id:fake +<span id="L31531" class="LineNr">31531 </span> <a href='mu.subx.html#L31532'>_Primitive-copy-byte-from-mem</a>/imm32/next +<span id="L31532" class="LineNr">31532 </span><span class="subxMinorFunction">_Primitive-copy-byte-from-mem</span>: +<span id="L31533" class="LineNr">31533 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31534" class="LineNr">31534 </span> <span class="subxComment"># var/reg <- copy-byte *var2/reg2 => 8a/byte-> *var2 var/r32</span> +<span id="L31535" class="LineNr">31535 </span> 0x11/imm32/alloc-id:fake +<span id="L31536" class="LineNr">31536 </span> <a href='mu.subx.html#L33711'>_string-copy-byte</a>/imm32/name +<span id="L31537" class="LineNr">31537 </span> 0x11/imm32/alloc-id:fake +<span id="L31538" class="LineNr">31538 </span> <span class="SpecialChar"><a href='mu.subx.html#L34443'>Single-byte-var-in-mem</a></span>/imm32/inouts +<span id="L31539" class="LineNr">31539 </span> 0x11/imm32/alloc-id:fake +<span id="L31540" class="LineNr">31540 </span> <span class="SpecialChar"><a href='mu.subx.html#L34547'>Single-byte-var-in-some-register</a></span>/imm32/outputs +<span id="L31541" class="LineNr">31541 </span> 0x11/imm32/alloc-id:fake +<span id="L31542" class="LineNr">31542 </span> <a href='mu.subx.html#L34328'>_string_8a_copy_byte</a>/imm32/subx-name +<span id="L31543" class="LineNr">31543 </span> 1/imm32/rm32-is-first-inout +<span id="L31544" class="LineNr">31544 </span> 3/imm32/r32-is-first-output +<span id="L31545" class="LineNr">31545 </span> 0/imm32/no-imm32 +<span id="L31546" class="LineNr">31546 </span> 0/imm32/no-imm8 +<span id="L31547" class="LineNr">31547 </span> 0/imm32/no-disp32 +<span id="L31548" class="LineNr">31548 </span> 0/imm32/no-xm32 +<span id="L31549" class="LineNr">31549 </span> 0/imm32/no-x32 +<span id="L31550" class="LineNr">31550 </span> 0x11/imm32/alloc-id:fake +<span id="L31551" class="LineNr">31551 </span> <a href='mu.subx.html#L31552'>_Primitive-copy-byte-to-mem</a>/imm32/next +<span id="L31552" class="LineNr">31552 </span><span class="subxMinorFunction">_Primitive-copy-byte-to-mem</span>: +<span id="L31553" class="LineNr">31553 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31554" class="LineNr">31554 </span> <span class="subxComment"># copy-byte-to *var1/reg1, var2/reg2 => 88/byte<- *reg1 reg2/r32</span> +<span id="L31555" class="LineNr">31555 </span> 0x11/imm32/alloc-id:fake +<span id="L31556" class="LineNr">31556 </span> <a href='mu.subx.html#L33716'>_string-copy-byte-to</a>/imm32/name +<span id="L31557" class="LineNr">31557 </span> 0x11/imm32/alloc-id:fake +<span id="L31558" class="LineNr">31558 </span> <span class="SpecialChar"><a href='mu.subx.html#L34477'>Two-args-byte-stack-byte-reg</a></span>/imm32/inouts +<span id="L31559" class="LineNr">31559 </span> 0/imm32/no-outputs +<span id="L31560" class="LineNr">31560 </span> 0/imm32/no-outputs +<span id="L31561" class="LineNr">31561 </span> 0x11/imm32/alloc-id:fake +<span id="L31562" class="LineNr">31562 </span> <a href='mu.subx.html#L34333'>_string_88_copy_byte</a>/imm32/subx-name +<span id="L31563" class="LineNr">31563 </span> 1/imm32/rm32-is-first-inout +<span id="L31564" class="LineNr">31564 </span> 2/imm32/r32-is-second-inout +<span id="L31565" class="LineNr">31565 </span> 0/imm32/no-imm32 +<span id="L31566" class="LineNr">31566 </span> 0/imm32/no-imm8 +<span id="L31567" class="LineNr">31567 </span> 0/imm32/no-disp32 +<span id="L31568" class="LineNr">31568 </span> 0/imm32/no-xm32 +<span id="L31569" class="LineNr">31569 </span> 0/imm32/no-x32 +<span id="L31570" class="LineNr">31570 </span> 0x11/imm32/alloc-id:fake +<span id="L31571" class="LineNr">31571 </span> <a href='mu.subx.html#L31573'>_Primitive-address</a>/imm32/next +<span id="L31572" class="LineNr">31572 </span><span class="subxH1Comment"># - address</span> +<span id="L31573" class="LineNr">31573 </span><span class="subxMinorFunction">_Primitive-address</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31574" class="LineNr">31574 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31575" class="LineNr">31575 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L31576" class="LineNr">31576 </span> 0x11/imm32/alloc-id:fake +<span id="L31577" class="LineNr">31577 </span> <a href='mu.subx.html#L33601'>_string-address</a>/imm32/name +<span id="L31578" class="LineNr">31578 </span> 0x11/imm32/alloc-id:fake +<span id="L31579" class="LineNr">31579 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31580" class="LineNr">31580 </span> 0x11/imm32/alloc-id:fake +<span id="L31581" class="LineNr">31581 </span> <span class="SpecialChar"><a href='mu.subx.html#L34540'>Single-addr-var-in-some-register</a></span>/imm32/outputs +<span id="L31582" class="LineNr">31582 </span> 0x11/imm32/alloc-id:fake +<span id="L31583" class="LineNr">31583 </span> <a href='mu.subx.html#L34338'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L31584" class="LineNr">31584 </span> 1/imm32/rm32-is-first-inout +<span id="L31585" class="LineNr">31585 </span> 3/imm32/r32-is-first-output +<span id="L31586" class="LineNr">31586 </span> 0/imm32/no-imm32 +<span id="L31587" class="LineNr">31587 </span> 0/imm32/no-imm8 +<span id="L31588" class="LineNr">31588 </span> 0/imm32/no-disp32 +<span id="L31589" class="LineNr">31589 </span> 0/imm32/no-xm32 +<span id="L31590" class="LineNr">31590 </span> 0/imm32/no-x32 +<span id="L31591" class="LineNr">31591 </span> 0x11/imm32/alloc-id:fake +<span id="L31592" class="LineNr">31592 </span> <a href='mu.subx.html#L31594'>_Primitive-compare-reg-with-reg</a>/imm32/next +<span id="L31593" class="LineNr">31593 </span><span class="subxH1Comment"># - compare</span> +<span id="L31594" class="LineNr">31594 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31595" class="LineNr">31595 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31596" class="LineNr">31596 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 39/compare var1/rm32 var2/r32</span> +<span id="L31597" class="LineNr">31597 </span> 0x11/imm32/alloc-id:fake +<span id="L31598" class="LineNr">31598 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L31599" class="LineNr">31599 </span> 0x11/imm32/alloc-id:fake +<span id="L31600" class="LineNr">31600 </span> <span class="SpecialChar"><a href='mu.subx.html#L34469'>Two-int-args-in-regs</a></span>/imm32/inouts +<span id="L31601" class="LineNr">31601 </span> 0/imm32/no-outputs +<span id="L31602" class="LineNr">31602 </span> 0/imm32/no-outputs +<span id="L31603" class="LineNr">31603 </span> 0x11/imm32/alloc-id:fake +<span id="L31604" class="LineNr">31604 </span> <a href='mu.subx.html#L34213'>_string_39_compare-></a>/imm32/subx-name +<span id="L31605" class="LineNr">31605 </span> 1/imm32/rm32-is-first-inout +<span id="L31606" class="LineNr">31606 </span> 2/imm32/r32-is-second-inout +<span id="L31607" class="LineNr">31607 </span> 0/imm32/no-imm32 +<span id="L31608" class="LineNr">31608 </span> 0/imm32/no-imm8 +<span id="L31609" class="LineNr">31609 </span> 0/imm32/no-disp32 +<span id="L31610" class="LineNr">31610 </span> 0/imm32/no-xm32 +<span id="L31611" class="LineNr">31611 </span> 0/imm32/no-x32 +<span id="L31612" class="LineNr">31612 </span> 0x11/imm32/alloc-id:fake +<span id="L31613" class="LineNr">31613 </span> <a href='mu.subx.html#L31614'>_Primitive-compare-mem-with-reg</a>/imm32/next +<span id="L31614" class="LineNr">31614 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31615" class="LineNr">31615 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31616" class="LineNr">31616 </span> <span class="subxComment"># compare var1 var2/reg => 39/compare var1/rm32 var2/r32</span> +<span id="L31617" class="LineNr">31617 </span> 0x11/imm32/alloc-id:fake +<span id="L31618" class="LineNr">31618 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L31619" class="LineNr">31619 </span> 0x11/imm32/alloc-id:fake +<span id="L31620" class="LineNr">31620 </span> <span class="SpecialChar"><a href='mu.subx.html#L34462'>Two-args-int-stack-int-reg</a></span>/imm32/inouts +<span id="L31621" class="LineNr">31621 </span> 0/imm32/no-outputs +<span id="L31622" class="LineNr">31622 </span> 0/imm32/no-outputs +<span id="L31623" class="LineNr">31623 </span> 0x11/imm32/alloc-id:fake +<span id="L31624" class="LineNr">31624 </span> <a href='mu.subx.html#L34213'>_string_39_compare-></a>/imm32/subx-name +<span id="L31625" class="LineNr">31625 </span> 1/imm32/rm32-is-first-inout +<span id="L31626" class="LineNr">31626 </span> 2/imm32/r32-is-second-inout +<span id="L31627" class="LineNr">31627 </span> 0/imm32/no-imm32 +<span id="L31628" class="LineNr">31628 </span> 0/imm32/no-imm8 +<span id="L31629" class="LineNr">31629 </span> 0/imm32/no-disp32 +<span id="L31630" class="LineNr">31630 </span> 0/imm32/no-xm32 +<span id="L31631" class="LineNr">31631 </span> 0/imm32/no-x32 +<span id="L31632" class="LineNr">31632 </span> 0x11/imm32/alloc-id:fake +<span id="L31633" class="LineNr">31633 </span> <a href='mu.subx.html#L31634'>_Primitive-compare-reg-with-mem</a>/imm32/next +<span id="L31634" class="LineNr">31634 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31635" class="LineNr">31635 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31636" class="LineNr">31636 </span> <span class="subxComment"># compare var1/reg var2 => 3b/compare<- var2/rm32 var1/r32</span> +<span id="L31637" class="LineNr">31637 </span> 0x11/imm32/alloc-id:fake +<span id="L31638" class="LineNr">31638 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L31639" class="LineNr">31639 </span> 0x11/imm32/alloc-id:fake +<span id="L31640" class="LineNr">31640 </span> <span class="SpecialChar"><a href='mu.subx.html#L34484'>Two-args-int-reg-int-stack</a></span>/imm32/inouts +<span id="L31641" class="LineNr">31641 </span> 0/imm32/no-outputs +<span id="L31642" class="LineNr">31642 </span> 0/imm32/no-outputs +<span id="L31643" class="LineNr">31643 </span> 0x11/imm32/alloc-id:fake +<span id="L31644" class="LineNr">31644 </span> <a href='mu.subx.html#L34218'>_string_3b_compare<-</a>/imm32/subx-name +<span id="L31645" class="LineNr">31645 </span> 2/imm32/rm32-is-second-inout +<span id="L31646" class="LineNr">31646 </span> 1/imm32/r32-is-first-inout +<span id="L31647" class="LineNr">31647 </span> 0/imm32/no-imm32 +<span id="L31648" class="LineNr">31648 </span> 0/imm32/no-imm8 +<span id="L31649" class="LineNr">31649 </span> 0/imm32/no-disp32 +<span id="L31650" class="LineNr">31650 </span> 0/imm32/no-xm32 +<span id="L31651" class="LineNr">31651 </span> 0/imm32/no-x32 +<span id="L31652" class="LineNr">31652 </span> 0x11/imm32/alloc-id:fake +<span id="L31653" class="LineNr">31653 </span> <a href='mu.subx.html#L31654'>_Primitive-compare-eax-with-literal</a>/imm32/next +<span id="L31654" class="LineNr">31654 </span><span class="subxMinorFunction">_Primitive-compare-eax-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31655" class="LineNr">31655 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31656" class="LineNr">31656 </span> <span class="subxComment"># compare var1/eax n => 3d/compare-eax-with n/imm32</span> +<span id="L31657" class="LineNr">31657 </span> 0x11/imm32/alloc-id:fake +<span id="L31658" class="LineNr">31658 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L31659" class="LineNr">31659 </span> 0x11/imm32/alloc-id:fake +<span id="L31660" class="LineNr">31660 </span> <span class="SpecialChar"><a href='mu.subx.html#L34491'>Two-args-int-eax-int-literal</a></span>/imm32/inouts +<span id="L31661" class="LineNr">31661 </span> 0/imm32/no-outputs +<span id="L31662" class="LineNr">31662 </span> 0/imm32/no-outputs +<span id="L31663" class="LineNr">31663 </span> 0x11/imm32/alloc-id:fake +<span id="L31664" class="LineNr">31664 </span> <a href='mu.subx.html#L34223'>_string_3d_compare_eax_with</a>/imm32/subx-name +<span id="L31665" class="LineNr">31665 </span> 0/imm32/no-rm32 +<span id="L31666" class="LineNr">31666 </span> 0/imm32/no-r32 +<span id="L31667" class="LineNr">31667 </span> 2/imm32/imm32-is-second-inout +<span id="L31668" class="LineNr">31668 </span> 0/imm32/no-imm8 +<span id="L31669" class="LineNr">31669 </span> 0/imm32/no-disp32 +<span id="L31670" class="LineNr">31670 </span> 0/imm32/no-xm32 +<span id="L31671" class="LineNr">31671 </span> 0/imm32/no-x32 +<span id="L31672" class="LineNr">31672 </span> 0x11/imm32/alloc-id:fake +<span id="L31673" class="LineNr">31673 </span> <a href='mu.subx.html#L31674'>_Primitive-compare-reg-with-literal</a>/imm32/next +<span id="L31674" class="LineNr">31674 </span><span class="subxMinorFunction">_Primitive-compare-reg-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31675" class="LineNr">31675 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31676" class="LineNr">31676 </span> <span class="subxComment"># compare var1/reg n => 81 7/subop/compare %reg n/imm32</span> +<span id="L31677" class="LineNr">31677 </span> 0x11/imm32/alloc-id:fake +<span id="L31678" class="LineNr">31678 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L31679" class="LineNr">31679 </span> 0x11/imm32/alloc-id:fake +<span id="L31680" class="LineNr">31680 </span> <span class="SpecialChar"><a href='mu.subx.html#L34505'>Int-var-in-register-and-literal</a></span>/imm32/inouts +<span id="L31681" class="LineNr">31681 </span> 0/imm32/no-outputs +<span id="L31682" class="LineNr">31682 </span> 0/imm32/no-outputs +<span id="L31683" class="LineNr">31683 </span> 0x11/imm32/alloc-id:fake +<span id="L31684" class="LineNr">31684 </span> <a href='mu.subx.html#L34313'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L31685" class="LineNr">31685 </span> 1/imm32/rm32-is-first-inout +<span id="L31686" class="LineNr">31686 </span> 0/imm32/no-r32 +<span id="L31687" class="LineNr">31687 </span> 2/imm32/imm32-is-second-inout +<span id="L31688" class="LineNr">31688 </span> 0/imm32/no-imm8 +<span id="L31689" class="LineNr">31689 </span> 0/imm32/no-disp32 +<span id="L31690" class="LineNr">31690 </span> 0/imm32/no-xm32 +<span id="L31691" class="LineNr">31691 </span> 0/imm32/no-x32 +<span id="L31692" class="LineNr">31692 </span> 0x11/imm32/alloc-id:fake +<span id="L31693" class="LineNr">31693 </span> <a href='mu.subx.html#L31694'>_Primitive-compare-mem-with-literal</a>/imm32/next +<span id="L31694" class="LineNr">31694 </span><span class="subxMinorFunction">_Primitive-compare-mem-with-literal</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31695" class="LineNr">31695 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31696" class="LineNr">31696 </span> <span class="subxComment"># compare var1 n => 81 7/subop/compare *(ebp+___) n/imm32</span> +<span id="L31697" class="LineNr">31697 </span> 0x11/imm32/alloc-id:fake +<span id="L31698" class="LineNr">31698 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L31699" class="LineNr">31699 </span> 0x11/imm32/alloc-id:fake +<span id="L31700" class="LineNr">31700 </span> <span class="SpecialChar"><a href='mu.subx.html#L34498'>Int-var-and-literal</a></span>/imm32/inouts +<span id="L31701" class="LineNr">31701 </span> 0/imm32/no-outputs +<span id="L31702" class="LineNr">31702 </span> 0/imm32/no-outputs +<span id="L31703" class="LineNr">31703 </span> 0x11/imm32/alloc-id:fake +<span id="L31704" class="LineNr">31704 </span> <a href='mu.subx.html#L34313'>_string_81_subop_compare</a>/imm32/subx-name +<span id="L31705" class="LineNr">31705 </span> 1/imm32/rm32-is-first-inout +<span id="L31706" class="LineNr">31706 </span> 0/imm32/no-r32 +<span id="L31707" class="LineNr">31707 </span> 2/imm32/imm32-is-second-inout +<span id="L31708" class="LineNr">31708 </span> 0/imm32/no-imm8 +<span id="L31709" class="LineNr">31709 </span> 0/imm32/no-disp32 +<span id="L31710" class="LineNr">31710 </span> 0/imm32/no-xm32 +<span id="L31711" class="LineNr">31711 </span> 0/imm32/no-x32 +<span id="L31712" class="LineNr">31712 </span> 0x11/imm32/alloc-id:fake +<span id="L31713" class="LineNr">31713 </span> <a href='mu.subx.html#L31715'>_Primitive-negate-reg</a>/imm32/next +<span id="L31714" class="LineNr">31714 </span><span class="subxH1Comment"># - negate</span> +<span id="L31715" class="LineNr">31715 </span><span class="subxMinorFunction">_Primitive-negate-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31716" class="LineNr">31716 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31717" class="LineNr">31717 </span> <span class="subxComment"># var1/reg <- negate => f7 3/subop/negate var1/rm32</span> +<span id="L31718" class="LineNr">31718 </span> 0x11/imm32/alloc-id:fake +<span id="L31719" class="LineNr">31719 </span> <a href='mu.subx.html#L33856'>_string-negate</a>/imm32/name +<span id="L31720" class="LineNr">31720 </span> 0/imm32/no-inouts +<span id="L31721" class="LineNr">31721 </span> 0/imm32/no-inouts +<span id="L31722" class="LineNr">31722 </span> 0x11/imm32/alloc-id:fake +<span id="L31723" class="LineNr">31723 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31724" class="LineNr">31724 </span> 0x11/imm32/alloc-id:fake +<span id="L31725" class="LineNr">31725 </span> <a href='mu.subx.html#L34393'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L31726" class="LineNr">31726 </span> 3/imm32/rm32-is-first-output +<span id="L31727" class="LineNr">31727 </span> 0/imm32/no-r32 +<span id="L31728" class="LineNr">31728 </span> 0/imm32/no-imm32 +<span id="L31729" class="LineNr">31729 </span> 0/imm32/no-imm8 +<span id="L31730" class="LineNr">31730 </span> 0/imm32/no-disp32 +<span id="L31731" class="LineNr">31731 </span> 0/imm32/no-xm32 +<span id="L31732" class="LineNr">31732 </span> 0/imm32/no-x32 +<span id="L31733" class="LineNr">31733 </span> 0x11/imm32/alloc-id:fake +<span id="L31734" class="LineNr">31734 </span> <a href='mu.subx.html#L31735'>_Primitive-negate-mem</a>/imm32/next +<span id="L31735" class="LineNr">31735 </span><span class="subxMinorFunction">_Primitive-negate-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31736" class="LineNr">31736 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31737" class="LineNr">31737 </span> <span class="subxComment"># negate var1 => f7 3/subop/negate var1/rm32</span> +<span id="L31738" class="LineNr">31738 </span> 0x11/imm32/alloc-id:fake +<span id="L31739" class="LineNr">31739 </span> <a href='mu.subx.html#L33856'>_string-negate</a>/imm32/name +<span id="L31740" class="LineNr">31740 </span> 0x11/imm32/alloc-id:fake +<span id="L31741" class="LineNr">31741 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31742" class="LineNr">31742 </span> 0/imm32/no-outputs +<span id="L31743" class="LineNr">31743 </span> 0/imm32/no-outputs +<span id="L31744" class="LineNr">31744 </span> 0x11/imm32/alloc-id:fake +<span id="L31745" class="LineNr">31745 </span> <a href='mu.subx.html#L34393'>_string_f7_subop_negate</a>/imm32/subx-name +<span id="L31746" class="LineNr">31746 </span> 1/imm32/rm32-is-first-inout +<span id="L31747" class="LineNr">31747 </span> 0/imm32/no-r32 +<span id="L31748" class="LineNr">31748 </span> 0/imm32/no-imm32 +<span id="L31749" class="LineNr">31749 </span> 0/imm32/no-imm8 +<span id="L31750" class="LineNr">31750 </span> 0/imm32/no-disp32 +<span id="L31751" class="LineNr">31751 </span> 0/imm32/no-xm32 +<span id="L31752" class="LineNr">31752 </span> 0/imm32/no-x32 +<span id="L31753" class="LineNr">31753 </span> 0x11/imm32/alloc-id:fake +<span id="L31754" class="LineNr">31754 </span> <a href='mu.subx.html#L31756'>_Primitive-multiply-reg-by-reg</a>/imm32/next +<span id="L31755" class="LineNr">31755 </span><span class="subxH1Comment"># - multiply</span> +<span id="L31756" class="LineNr">31756 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31757" class="LineNr">31757 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31758" class="LineNr">31758 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L31759" class="LineNr">31759 </span> 0x11/imm32/alloc-id:fake +<span id="L31760" class="LineNr">31760 </span> <a href='mu.subx.html#L33806'>_string-multiply</a>/imm32/name +<span id="L31761" class="LineNr">31761 </span> 0x11/imm32/alloc-id:fake +<span id="L31762" class="LineNr">31762 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L31763" class="LineNr">31763 </span> 0x11/imm32/alloc-id:fake +<span id="L31764" class="LineNr">31764 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31765" class="LineNr">31765 </span> 0x11/imm32/alloc-id:fake +<span id="L31766" class="LineNr">31766 </span> <a href='mu.subx.html#L34088'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L31767" class="LineNr">31767 </span> 1/imm32/rm32-is-first-inout +<span id="L31768" class="LineNr">31768 </span> 3/imm32/r32-is-first-output +<span id="L31769" class="LineNr">31769 </span> 0/imm32/no-imm32 +<span id="L31770" class="LineNr">31770 </span> 0/imm32/no-imm8 +<span id="L31771" class="LineNr">31771 </span> 0/imm32/no-disp32 +<span id="L31772" class="LineNr">31772 </span> 0/imm32/no-xm32 +<span id="L31773" class="LineNr">31773 </span> 0/imm32/no-x32 +<span id="L31774" class="LineNr">31774 </span> 0x11/imm32/alloc-id:fake +<span id="L31775" class="LineNr">31775 </span> <a href='mu.subx.html#L31776'>_Primitive-multiply-reg-by-mem</a>/imm32/next +<span id="L31776" class="LineNr">31776 </span><span class="subxMinorFunction">_Primitive-multiply-reg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31777" class="LineNr">31777 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31778" class="LineNr">31778 </span> <span class="subxComment"># var1/reg <- multiply var2 => 0f af/multiply var2/rm32 var1/r32</span> +<span id="L31779" class="LineNr">31779 </span> 0x11/imm32/alloc-id:fake +<span id="L31780" class="LineNr">31780 </span> <a href='mu.subx.html#L33806'>_string-multiply</a>/imm32/name +<span id="L31781" class="LineNr">31781 </span> 0x11/imm32/alloc-id:fake +<span id="L31782" class="LineNr">31782 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31783" class="LineNr">31783 </span> 0x11/imm32/alloc-id:fake +<span id="L31784" class="LineNr">31784 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31785" class="LineNr">31785 </span> 0x11/imm32/alloc-id:fake +<span id="L31786" class="LineNr">31786 </span> <a href='mu.subx.html#L34088'>_string_0f_af_multiply</a>/imm32/subx-name +<span id="L31787" class="LineNr">31787 </span> 1/imm32/rm32-is-first-inout +<span id="L31788" class="LineNr">31788 </span> 3/imm32/r32-is-first-output +<span id="L31789" class="LineNr">31789 </span> 0/imm32/no-imm32 +<span id="L31790" class="LineNr">31790 </span> 0/imm32/no-imm8 +<span id="L31791" class="LineNr">31791 </span> 0/imm32/no-disp32 +<span id="L31792" class="LineNr">31792 </span> 0/imm32/no-xm32 +<span id="L31793" class="LineNr">31793 </span> 0/imm32/no-x32 +<span id="L31794" class="LineNr">31794 </span> 0x11/imm32/alloc-id:fake +<span id="L31795" class="LineNr">31795 </span> <a href='mu.subx.html#L31797'>_Primitive-convert-mem-to-xreg</a>/imm32/next +<span id="L31796" class="LineNr">31796 </span><span class="subxH1Comment"># - convert int to floating point</span> +<span id="L31797" class="LineNr">31797 </span><span class="subxMinorFunction">_Primitive-convert-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31798" class="LineNr">31798 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31799" class="LineNr">31799 </span> <span class="subxComment"># var1/xreg <- convert var2 => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L31800" class="LineNr">31800 </span> 0x11/imm32/alloc-id:fake +<span id="L31801" class="LineNr">31801 </span> <a href='mu.subx.html#L33811'>_string-convert</a>/imm32/name +<span id="L31802" class="LineNr">31802 </span> 0x11/imm32/alloc-id:fake +<span id="L31803" class="LineNr">31803 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31804" class="LineNr">31804 </span> 0x11/imm32/alloc-id:fake +<span id="L31805" class="LineNr">31805 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L31806" class="LineNr">31806 </span> 0x11/imm32/alloc-id:fake +<span id="L31807" class="LineNr">31807 </span> <a href='mu.subx.html#L34093'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L31808" class="LineNr">31808 </span> 1/imm32/rm32-is-first-inout +<span id="L31809" class="LineNr">31809 </span> 0/imm32/no-r32 +<span id="L31810" class="LineNr">31810 </span> 0/imm32/no-imm32 +<span id="L31811" class="LineNr">31811 </span> 0/imm32/no-imm8 +<span id="L31812" class="LineNr">31812 </span> 0/imm32/no-disp32 +<span id="L31813" class="LineNr">31813 </span> 0/imm32/no-xm32 +<span id="L31814" class="LineNr">31814 </span> 3/imm32/x32-is-first-output +<span id="L31815" class="LineNr">31815 </span> 0x11/imm32/alloc-id:fake +<span id="L31816" class="LineNr">31816 </span> <a href='mu.subx.html#L31817'>_Primitive-convert-reg-to-xreg</a>/imm32/next +<span id="L31817" class="LineNr">31817 </span><span class="subxMinorFunction">_Primitive-convert-reg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31818" class="LineNr">31818 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31819" class="LineNr">31819 </span> <span class="subxComment"># var1/xreg <- convert var2/reg => f3 0f 2a/convert-to-float var2/rm32 var1/x32</span> +<span id="L31820" class="LineNr">31820 </span> 0x11/imm32/alloc-id:fake +<span id="L31821" class="LineNr">31821 </span> <a href='mu.subx.html#L33811'>_string-convert</a>/imm32/name +<span id="L31822" class="LineNr">31822 </span> 0x11/imm32/alloc-id:fake +<span id="L31823" class="LineNr">31823 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/inouts +<span id="L31824" class="LineNr">31824 </span> 0x11/imm32/alloc-id:fake +<span id="L31825" class="LineNr">31825 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L31826" class="LineNr">31826 </span> 0x11/imm32/alloc-id:fake +<span id="L31827" class="LineNr">31827 </span> <a href='mu.subx.html#L34093'>_string_f3_0f_2a_convert_to_float</a>/imm32/subx-name +<span id="L31828" class="LineNr">31828 </span> 1/imm32/rm32-is-first-inout +<span id="L31829" class="LineNr">31829 </span> 0/imm32/no-r32 +<span id="L31830" class="LineNr">31830 </span> 0/imm32/no-imm32 +<span id="L31831" class="LineNr">31831 </span> 0/imm32/no-imm8 +<span id="L31832" class="LineNr">31832 </span> 0/imm32/no-disp32 +<span id="L31833" class="LineNr">31833 </span> 0/imm32/no-xm32 +<span id="L31834" class="LineNr">31834 </span> 3/imm32/x32-is-first-output +<span id="L31835" class="LineNr">31835 </span> 0x11/imm32/alloc-id:fake +<span id="L31836" class="LineNr">31836 </span> <a href='mu.subx.html#L31838'>_Primitive-convert-xmem-to-reg</a>/imm32/next +<span id="L31837" class="LineNr">31837 </span><span class="subxH1Comment"># - convert floating point to int</span> +<span id="L31838" class="LineNr">31838 </span><span class="subxMinorFunction">_Primitive-convert-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31839" class="LineNr">31839 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31840" class="LineNr">31840 </span> <span class="subxComment"># var1/reg <- convert var2 => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L31841" class="LineNr">31841 </span> 0x11/imm32/alloc-id:fake +<span id="L31842" class="LineNr">31842 </span> <a href='mu.subx.html#L33811'>_string-convert</a>/imm32/name +<span id="L31843" class="LineNr">31843 </span> 0x11/imm32/alloc-id:fake +<span id="L31844" class="LineNr">31844 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L31845" class="LineNr">31845 </span> 0x11/imm32/alloc-id:fake +<span id="L31846" class="LineNr">31846 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31847" class="LineNr">31847 </span> 0x11/imm32/alloc-id:fake +<span id="L31848" class="LineNr">31848 </span> <a href='mu.subx.html#L34098'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L31849" class="LineNr">31849 </span> 0/imm32/no-rm32 +<span id="L31850" class="LineNr">31850 </span> 3/imm32/r32-is-first-output +<span id="L31851" class="LineNr">31851 </span> 0/imm32/no-imm32 +<span id="L31852" class="LineNr">31852 </span> 0/imm32/no-imm8 +<span id="L31853" class="LineNr">31853 </span> 0/imm32/no-disp32 +<span id="L31854" class="LineNr">31854 </span> 1/imm32/xm32-is-first-inout +<span id="L31855" class="LineNr">31855 </span> 0/imm32/no-x32 +<span id="L31856" class="LineNr">31856 </span> 0x11/imm32/alloc-id:fake +<span id="L31857" class="LineNr">31857 </span> <a href='mu.subx.html#L31858'>_Primitive-convert-xreg-to-reg</a>/imm32/next +<span id="L31858" class="LineNr">31858 </span><span class="subxMinorFunction">_Primitive-convert-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31859" class="LineNr">31859 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31860" class="LineNr">31860 </span> <span class="subxComment"># var1/reg <- convert var2/xreg => f3 0f 2d/convert-to-int var2/xm32 var1/r32</span> +<span id="L31861" class="LineNr">31861 </span> 0x11/imm32/alloc-id:fake +<span id="L31862" class="LineNr">31862 </span> <a href='mu.subx.html#L33811'>_string-convert</a>/imm32/name +<span id="L31863" class="LineNr">31863 </span> 0x11/imm32/alloc-id:fake +<span id="L31864" class="LineNr">31864 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L31865" class="LineNr">31865 </span> 0x11/imm32/alloc-id:fake +<span id="L31866" class="LineNr">31866 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31867" class="LineNr">31867 </span> 0x11/imm32/alloc-id:fake +<span id="L31868" class="LineNr">31868 </span> <a href='mu.subx.html#L34098'>_string_f3_0f_2d_convert_to_int</a>/imm32/subx-name +<span id="L31869" class="LineNr">31869 </span> 0/imm32/no-rm32 +<span id="L31870" class="LineNr">31870 </span> 3/imm32/r32-is-first-output +<span id="L31871" class="LineNr">31871 </span> 0/imm32/no-imm32 +<span id="L31872" class="LineNr">31872 </span> 0/imm32/no-imm8 +<span id="L31873" class="LineNr">31873 </span> 0/imm32/no-disp32 +<span id="L31874" class="LineNr">31874 </span> 1/imm32/xm32-is-first-inout +<span id="L31875" class="LineNr">31875 </span> 0/imm32/no-x32 +<span id="L31876" class="LineNr">31876 </span> 0x11/imm32/alloc-id:fake +<span id="L31877" class="LineNr">31877 </span> <a href='mu.subx.html#L31878'>_Primitive-truncate-xmem-to-reg</a>/imm32/next +<span id="L31878" class="LineNr">31878 </span><span class="subxMinorFunction">_Primitive-truncate-xmem-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31879" class="LineNr">31879 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31880" class="LineNr">31880 </span> <span class="subxComment"># var1/reg <- truncate var2 => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L31881" class="LineNr">31881 </span> 0x11/imm32/alloc-id:fake +<span id="L31882" class="LineNr">31882 </span> <a href='mu.subx.html#L33816'>_string-truncate</a>/imm32/name +<span id="L31883" class="LineNr">31883 </span> 0x11/imm32/alloc-id:fake +<span id="L31884" class="LineNr">31884 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L31885" class="LineNr">31885 </span> 0x11/imm32/alloc-id:fake +<span id="L31886" class="LineNr">31886 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31887" class="LineNr">31887 </span> 0x11/imm32/alloc-id:fake +<span id="L31888" class="LineNr">31888 </span> <a href='mu.subx.html#L34103'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L31889" class="LineNr">31889 </span> 0/imm32/no-rm32 +<span id="L31890" class="LineNr">31890 </span> 3/imm32/r32-is-first-output +<span id="L31891" class="LineNr">31891 </span> 0/imm32/no-imm32 +<span id="L31892" class="LineNr">31892 </span> 0/imm32/no-imm8 +<span id="L31893" class="LineNr">31893 </span> 0/imm32/no-disp32 +<span id="L31894" class="LineNr">31894 </span> 1/imm32/xm32-is-first-inout +<span id="L31895" class="LineNr">31895 </span> 0/imm32/no-x32 +<span id="L31896" class="LineNr">31896 </span> 0x11/imm32/alloc-id:fake +<span id="L31897" class="LineNr">31897 </span> <a href='mu.subx.html#L31898'>_Primitive-truncate-xreg-to-reg</a>/imm32/next +<span id="L31898" class="LineNr">31898 </span><span class="subxMinorFunction">_Primitive-truncate-xreg-to-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31899" class="LineNr">31899 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31900" class="LineNr">31900 </span> <span class="subxComment"># var1/reg <- truncate var2/xreg => f3 0f 2c/truncate-to-int var2/xm32 var1/r32</span> +<span id="L31901" class="LineNr">31901 </span> 0x11/imm32/alloc-id:fake +<span id="L31902" class="LineNr">31902 </span> <a href='mu.subx.html#L33816'>_string-truncate</a>/imm32/name +<span id="L31903" class="LineNr">31903 </span> 0x11/imm32/alloc-id:fake +<span id="L31904" class="LineNr">31904 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L31905" class="LineNr">31905 </span> 0x11/imm32/alloc-id:fake +<span id="L31906" class="LineNr">31906 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31907" class="LineNr">31907 </span> 0x11/imm32/alloc-id:fake +<span id="L31908" class="LineNr">31908 </span> <a href='mu.subx.html#L34103'>_string_f3_0f_2c_truncate_to_int</a>/imm32/subx-name +<span id="L31909" class="LineNr">31909 </span> 0/imm32/no-rm32 +<span id="L31910" class="LineNr">31910 </span> 3/imm32/r32-is-first-output +<span id="L31911" class="LineNr">31911 </span> 0/imm32/no-imm32 +<span id="L31912" class="LineNr">31912 </span> 0/imm32/no-imm8 +<span id="L31913" class="LineNr">31913 </span> 0/imm32/no-disp32 +<span id="L31914" class="LineNr">31914 </span> 1/imm32/xm32-is-first-inout +<span id="L31915" class="LineNr">31915 </span> 0/imm32/no-x32 +<span id="L31916" class="LineNr">31916 </span> 0x11/imm32/alloc-id:fake +<span id="L31917" class="LineNr">31917 </span> <a href='mu.subx.html#L31919'>_Primitive-reinterpret-xmem-as-reg</a>/imm32/next +<span id="L31918" class="LineNr">31918 </span><span class="subxH1Comment"># - reinterpret bytes (just for debugging)</span> +<span id="L31919" class="LineNr">31919 </span><span class="subxMinorFunction">_Primitive-reinterpret-xmem-as-reg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31920" class="LineNr">31920 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31921" class="LineNr">31921 </span> <span class="subxComment"># var1/reg <- reinterpret var2 => 8b/-> var2/xm32 var1/r32</span> +<span id="L31922" class="LineNr">31922 </span> 0x11/imm32/alloc-id:fake +<span id="L31923" class="LineNr">31923 </span> <a href='mu.subx.html#L33821'>_string-reinterpret</a>/imm32/name +<span id="L31924" class="LineNr">31924 </span> 0x11/imm32/alloc-id:fake +<span id="L31925" class="LineNr">31925 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L31926" class="LineNr">31926 </span> 0x11/imm32/alloc-id:fake +<span id="L31927" class="LineNr">31927 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/outputs +<span id="L31928" class="LineNr">31928 </span> 0x11/imm32/alloc-id:fake +<span id="L31929" class="LineNr">31929 </span> <a href='mu.subx.html#L34323'>_string_8b_-></a>/imm32/subx-name +<span id="L31930" class="LineNr">31930 </span> 0/imm32/no-rm32 +<span id="L31931" class="LineNr">31931 </span> 3/imm32/r32-is-first-output +<span id="L31932" class="LineNr">31932 </span> 0/imm32/no-imm32 +<span id="L31933" class="LineNr">31933 </span> 0/imm32/no-imm8 +<span id="L31934" class="LineNr">31934 </span> 0/imm32/no-disp32 +<span id="L31935" class="LineNr">31935 </span> 1/imm32/xm32-is-first-inout +<span id="L31936" class="LineNr">31936 </span> 0/imm32/no-x32 +<span id="L31937" class="LineNr">31937 </span> 0x11/imm32/alloc-id:fake +<span id="L31938" class="LineNr">31938 </span> <a href='mu.subx.html#L31939'>_Primitive-reinterpret-mem-as-xreg</a>/imm32/next +<span id="L31939" class="LineNr">31939 </span><span class="subxMinorFunction">_Primitive-reinterpret-mem-as-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31940" class="LineNr">31940 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31941" class="LineNr">31941 </span> <span class="subxComment"># var1/xreg <- reinterpret var2 => f3 0f 10/-> var2/rm32 var1/x32</span> +<span id="L31942" class="LineNr">31942 </span> 0x11/imm32/alloc-id:fake +<span id="L31943" class="LineNr">31943 </span> <a href='mu.subx.html#L33821'>_string-reinterpret</a>/imm32/name +<span id="L31944" class="LineNr">31944 </span> 0x11/imm32/alloc-id:fake +<span id="L31945" class="LineNr">31945 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/inouts +<span id="L31946" class="LineNr">31946 </span> 0x11/imm32/alloc-id:fake +<span id="L31947" class="LineNr">31947 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L31948" class="LineNr">31948 </span> 0x11/imm32/alloc-id:fake +<span id="L31949" class="LineNr">31949 </span> <a href='mu.subx.html#L34153'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L31950" class="LineNr">31950 </span> 1/imm32/rm32-is-first-inout +<span id="L31951" class="LineNr">31951 </span> 0/imm32/no-r32 +<span id="L31952" class="LineNr">31952 </span> 0/imm32/no-imm32 +<span id="L31953" class="LineNr">31953 </span> 0/imm32/no-imm8 +<span id="L31954" class="LineNr">31954 </span> 0/imm32/no-disp32 +<span id="L31955" class="LineNr">31955 </span> 0/imm32/no-xm32 +<span id="L31956" class="LineNr">31956 </span> 3/imm32/x32-is-first-output +<span id="L31957" class="LineNr">31957 </span> 0x11/imm32/alloc-id:fake +<span id="L31958" class="LineNr">31958 </span> <a href='mu.subx.html#L31960'>_Primitive-copy-xreg-to-xreg</a>/imm32/next +<span id="L31959" class="LineNr">31959 </span><span class="subxH1Comment"># - floating-point copy</span> +<span id="L31960" class="LineNr">31960 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31961" class="LineNr">31961 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31962" class="LineNr">31962 </span> <span class="subxComment"># var1/xreg <- copy var2/xreg => f3 0f 11/<- var1/xm32 var2/x32</span> +<span id="L31963" class="LineNr">31963 </span> 0x11/imm32/alloc-id:fake +<span id="L31964" class="LineNr">31964 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L31965" class="LineNr">31965 </span> 0x11/imm32/alloc-id:fake +<span id="L31966" class="LineNr">31966 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L31967" class="LineNr">31967 </span> 0x11/imm32/alloc-id:fake +<span id="L31968" class="LineNr">31968 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L31969" class="LineNr">31969 </span> 0x11/imm32/alloc-id:fake +<span id="L31970" class="LineNr">31970 </span> <a href='mu.subx.html#L34158'>_string_f3_0f_11_copy</a>/imm32/subx-name +<span id="L31971" class="LineNr">31971 </span> 0/imm32/no-rm32 +<span id="L31972" class="LineNr">31972 </span> 0/imm32/no-r32 +<span id="L31973" class="LineNr">31973 </span> 0/imm32/no-imm32 +<span id="L31974" class="LineNr">31974 </span> 0/imm32/no-imm8 +<span id="L31975" class="LineNr">31975 </span> 0/imm32/no-disp32 +<span id="L31976" class="LineNr">31976 </span> 3/imm32/xm32-is-first-output +<span id="L31977" class="LineNr">31977 </span> 1/imm32/x32-is-first-inout +<span id="L31978" class="LineNr">31978 </span> 0x11/imm32/alloc-id:fake +<span id="L31979" class="LineNr">31979 </span> <a href='mu.subx.html#L31980'>_Primitive-copy-xreg-to-mem</a>/imm32/next +<span id="L31980" class="LineNr">31980 </span><span class="subxMinorFunction">_Primitive-copy-xreg-to-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L31981" class="LineNr">31981 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L31982" class="LineNr">31982 </span> <span class="subxComment"># copy-to var1 var2/xreg => f3 0f 11/<- var1 var2/x32</span> +<span id="L31983" class="LineNr">31983 </span> 0x11/imm32/alloc-id:fake +<span id="L31984" class="LineNr">31984 </span> <a href='mu.subx.html#L33706'>_string-copy-to</a>/imm32/name +<span id="L31985" class="LineNr">31985 </span> 0x11/imm32/alloc-id:fake +<span id="L31986" class="LineNr">31986 </span> <span class="SpecialChar"><a href='mu.subx.html#L34526'>Two-args-float-stack-float-reg</a></span>/imm32/inouts +<span id="L31987" class="LineNr">31987 </span> 0/imm32/no-outputs +<span id="L31988" class="LineNr">31988 </span> 0/imm32/no-outputs +<span id="L31989" class="LineNr">31989 </span> 0x11/imm32/alloc-id:fake +<span id="L31990" class="LineNr">31990 </span> <a href='mu.subx.html#L34158'>_string_f3_0f_11_copy</a>/imm32/subx-name +<span id="L31991" class="LineNr">31991 </span> 0/imm32/no-rm32 +<span id="L31992" class="LineNr">31992 </span> 0/imm32/no-r32 +<span id="L31993" class="LineNr">31993 </span> 0/imm32/no-imm32 +<span id="L31994" class="LineNr">31994 </span> 0/imm32/no-imm8 +<span id="L31995" class="LineNr">31995 </span> 0/imm32/no-disp32 +<span id="L31996" class="LineNr">31996 </span> 1/imm32/xm32-is-first-inout +<span id="L31997" class="LineNr">31997 </span> 2/imm32/x32-is-second-inout +<span id="L31998" class="LineNr">31998 </span> 0x11/imm32/alloc-id:fake +<span id="L31999" class="LineNr">31999 </span> <a href='mu.subx.html#L32000'>_Primitive-copy-mem-to-xreg</a>/imm32/next +<span id="L32000" class="LineNr">32000 </span><span class="subxMinorFunction">_Primitive-copy-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32001" class="LineNr">32001 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32002" class="LineNr">32002 </span> <span class="subxComment"># var1/xreg <- copy var2 => f3 0f 10/-> var2/rm32 var1/x32</span> +<span id="L32003" class="LineNr">32003 </span> 0x11/imm32/alloc-id:fake +<span id="L32004" class="LineNr">32004 </span> <a href='mu.subx.html#L33701'>_string-copy</a>/imm32/name +<span id="L32005" class="LineNr">32005 </span> 0x11/imm32/alloc-id:fake +<span id="L32006" class="LineNr">32006 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32007" class="LineNr">32007 </span> 0x11/imm32/alloc-id:fake +<span id="L32008" class="LineNr">32008 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32009" class="LineNr">32009 </span> 0x11/imm32/alloc-id:fake +<span id="L32010" class="LineNr">32010 </span> <a href='mu.subx.html#L34153'>_string_f3_0f_10_copy</a>/imm32/subx-name +<span id="L32011" class="LineNr">32011 </span> 0/imm32/no-rm32 +<span id="L32012" class="LineNr">32012 </span> 0/imm32/no-r32 +<span id="L32013" class="LineNr">32013 </span> 0/imm32/no-imm32 +<span id="L32014" class="LineNr">32014 </span> 0/imm32/no-imm8 +<span id="L32015" class="LineNr">32015 </span> 0/imm32/no-disp32 +<span id="L32016" class="LineNr">32016 </span> 1/imm32/xm32-is-first-inout +<span id="L32017" class="LineNr">32017 </span> 3/imm32/x32-is-first-output +<span id="L32018" class="LineNr">32018 </span> 0x11/imm32/alloc-id:fake +<span id="L32019" class="LineNr">32019 </span> <a href='mu.subx.html#L32021'>_Primitive-address-of-xmem</a>/imm32/next +<span id="L32020" class="LineNr">32020 </span><span class="subxH1Comment"># - floating-point-address</span> +<span id="L32021" class="LineNr">32021 </span><span class="subxMinorFunction">_Primitive-address-of-xmem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32022" class="LineNr">32022 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32023" class="LineNr">32023 </span> <span class="subxComment"># var1/reg <- address var2 => 8d/copy-address var2/rm32 var1/r32</span> +<span id="L32024" class="LineNr">32024 </span> 0x11/imm32/alloc-id:fake +<span id="L32025" class="LineNr">32025 </span> <a href='mu.subx.html#L33601'>_string-address</a>/imm32/name +<span id="L32026" class="LineNr">32026 </span> 0x11/imm32/alloc-id:fake +<span id="L32027" class="LineNr">32027 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32028" class="LineNr">32028 </span> 0x11/imm32/alloc-id:fake +<span id="L32029" class="LineNr">32029 </span> <span class="SpecialChar"><a href='mu.subx.html#L34540'>Single-addr-var-in-some-register</a></span>/imm32/outputs +<span id="L32030" class="LineNr">32030 </span> 0x11/imm32/alloc-id:fake +<span id="L32031" class="LineNr">32031 </span> <a href='mu.subx.html#L34338'>_string_8d_copy_address</a>/imm32/subx-name +<span id="L32032" class="LineNr">32032 </span> 1/imm32/rm32-is-first-inout +<span id="L32033" class="LineNr">32033 </span> 3/imm32/r32-is-first-output +<span id="L32034" class="LineNr">32034 </span> 0/imm32/no-imm32 +<span id="L32035" class="LineNr">32035 </span> 0/imm32/no-imm8 +<span id="L32036" class="LineNr">32036 </span> 0/imm32/no-disp32 +<span id="L32037" class="LineNr">32037 </span> 0/imm32/no-xm32 +<span id="L32038" class="LineNr">32038 </span> 0/imm32/no-x32 +<span id="L32039" class="LineNr">32039 </span> 0x11/imm32/alloc-id:fake +<span id="L32040" class="LineNr">32040 </span> <a href='mu.subx.html#L32042'>_Primitive-add-xreg-to-xreg</a>/imm32/next +<span id="L32041" class="LineNr">32041 </span><span class="subxH1Comment"># - floating-point add</span> +<span id="L32042" class="LineNr">32042 </span><span class="subxMinorFunction">_Primitive-add-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32043" class="LineNr">32043 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32044" class="LineNr">32044 </span> <span class="subxComment"># var1/xreg <- add var2/xreg => f3 0f 58/add var1/xm32 var2/x32</span> +<span id="L32045" class="LineNr">32045 </span> 0x11/imm32/alloc-id:fake +<span id="L32046" class="LineNr">32046 </span> <a href='mu.subx.html#L33596'>_string-add</a>/imm32/name +<span id="L32047" class="LineNr">32047 </span> 0x11/imm32/alloc-id:fake +<span id="L32048" class="LineNr">32048 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32049" class="LineNr">32049 </span> 0x11/imm32/alloc-id:fake +<span id="L32050" class="LineNr">32050 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32051" class="LineNr">32051 </span> 0x11/imm32/alloc-id:fake +<span id="L32052" class="LineNr">32052 </span> <a href='mu.subx.html#L34108'>_string_f3_0f_58_add</a>/imm32/subx-name +<span id="L32053" class="LineNr">32053 </span> 0/imm32/no-rm32 +<span id="L32054" class="LineNr">32054 </span> 0/imm32/no-r32 +<span id="L32055" class="LineNr">32055 </span> 0/imm32/no-imm32 +<span id="L32056" class="LineNr">32056 </span> 0/imm32/no-imm8 +<span id="L32057" class="LineNr">32057 </span> 0/imm32/no-disp32 +<span id="L32058" class="LineNr">32058 </span> 1/imm32/xm32-is-first-inout +<span id="L32059" class="LineNr">32059 </span> 3/imm32/x32-is-first-output +<span id="L32060" class="LineNr">32060 </span> 0x11/imm32/alloc-id:fake +<span id="L32061" class="LineNr">32061 </span> <a href='mu.subx.html#L32062'>_Primitive-add-mem-to-xreg</a>/imm32/next +<span id="L32062" class="LineNr">32062 </span><span class="subxMinorFunction">_Primitive-add-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32063" class="LineNr">32063 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32064" class="LineNr">32064 </span> <span class="subxComment"># var1/xreg <- add var2 => f3 0f 58/add var2/xm32 var1/x32</span> +<span id="L32065" class="LineNr">32065 </span> 0x11/imm32/alloc-id:fake +<span id="L32066" class="LineNr">32066 </span> <a href='mu.subx.html#L33596'>_string-add</a>/imm32/name +<span id="L32067" class="LineNr">32067 </span> 0x11/imm32/alloc-id:fake +<span id="L32068" class="LineNr">32068 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32069" class="LineNr">32069 </span> 0x11/imm32/alloc-id:fake +<span id="L32070" class="LineNr">32070 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32071" class="LineNr">32071 </span> 0x11/imm32/alloc-id:fake +<span id="L32072" class="LineNr">32072 </span> <a href='mu.subx.html#L34108'>_string_f3_0f_58_add</a>/imm32/subx-name +<span id="L32073" class="LineNr">32073 </span> 0/imm32/no-rm32 +<span id="L32074" class="LineNr">32074 </span> 0/imm32/no-r32 +<span id="L32075" class="LineNr">32075 </span> 0/imm32/no-imm32 +<span id="L32076" class="LineNr">32076 </span> 0/imm32/no-imm8 +<span id="L32077" class="LineNr">32077 </span> 0/imm32/no-disp32 +<span id="L32078" class="LineNr">32078 </span> 1/imm32/xm32-is-first-inout +<span id="L32079" class="LineNr">32079 </span> 3/imm32/x32-is-first-output +<span id="L32080" class="LineNr">32080 </span> 0x11/imm32/alloc-id:fake +<span id="L32081" class="LineNr">32081 </span> <a href='mu.subx.html#L32083'>_Primitive-subtract-xreg-from-xreg</a>/imm32/next +<span id="L32082" class="LineNr">32082 </span><span class="subxH1Comment"># - floating-point subtract</span> +<span id="L32083" class="LineNr">32083 </span><span class="subxMinorFunction">_Primitive-subtract-xreg-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32084" class="LineNr">32084 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32085" class="LineNr">32085 </span> <span class="subxComment"># var1/xreg <- subtract var2/xreg => f3 0f 5c/subtract var1/xm32 var2/x32</span> +<span id="L32086" class="LineNr">32086 </span> 0x11/imm32/alloc-id:fake +<span id="L32087" class="LineNr">32087 </span> <a href='mu.subx.html#L33871'>_string-subtract</a>/imm32/name +<span id="L32088" class="LineNr">32088 </span> 0x11/imm32/alloc-id:fake +<span id="L32089" class="LineNr">32089 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32090" class="LineNr">32090 </span> 0x11/imm32/alloc-id:fake +<span id="L32091" class="LineNr">32091 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32092" class="LineNr">32092 </span> 0x11/imm32/alloc-id:fake +<span id="L32093" class="LineNr">32093 </span> <a href='mu.subx.html#L34113'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L32094" class="LineNr">32094 </span> 0/imm32/no-rm32 +<span id="L32095" class="LineNr">32095 </span> 0/imm32/no-r32 +<span id="L32096" class="LineNr">32096 </span> 0/imm32/no-imm32 +<span id="L32097" class="LineNr">32097 </span> 0/imm32/no-imm8 +<span id="L32098" class="LineNr">32098 </span> 0/imm32/no-disp32 +<span id="L32099" class="LineNr">32099 </span> 1/imm32/xm32-is-first-inout +<span id="L32100" class="LineNr">32100 </span> 3/imm32/x32-is-first-output +<span id="L32101" class="LineNr">32101 </span> 0x11/imm32/alloc-id:fake +<span id="L32102" class="LineNr">32102 </span> <a href='mu.subx.html#L32103'>_Primitive-subtract-mem-from-xreg</a>/imm32/next +<span id="L32103" class="LineNr">32103 </span><span class="subxMinorFunction">_Primitive-subtract-mem-from-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32104" class="LineNr">32104 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32105" class="LineNr">32105 </span> <span class="subxComment"># var1/xreg <- subtract var2 => f3 0f 5c/subtract var2/xm32 var1/x32</span> +<span id="L32106" class="LineNr">32106 </span> 0x11/imm32/alloc-id:fake +<span id="L32107" class="LineNr">32107 </span> <a href='mu.subx.html#L33871'>_string-subtract</a>/imm32/name +<span id="L32108" class="LineNr">32108 </span> 0x11/imm32/alloc-id:fake +<span id="L32109" class="LineNr">32109 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32110" class="LineNr">32110 </span> 0x11/imm32/alloc-id:fake +<span id="L32111" class="LineNr">32111 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32112" class="LineNr">32112 </span> 0x11/imm32/alloc-id:fake +<span id="L32113" class="LineNr">32113 </span> <a href='mu.subx.html#L34113'>_string_f3_0f_5c_subtract</a>/imm32/subx-name +<span id="L32114" class="LineNr">32114 </span> 0/imm32/no-rm32 +<span id="L32115" class="LineNr">32115 </span> 0/imm32/no-r32 +<span id="L32116" class="LineNr">32116 </span> 0/imm32/no-imm32 +<span id="L32117" class="LineNr">32117 </span> 0/imm32/no-imm8 +<span id="L32118" class="LineNr">32118 </span> 0/imm32/no-disp32 +<span id="L32119" class="LineNr">32119 </span> 1/imm32/xm32-is-first-inout +<span id="L32120" class="LineNr">32120 </span> 3/imm32/x32-is-first-output +<span id="L32121" class="LineNr">32121 </span> 0x11/imm32/alloc-id:fake +<span id="L32122" class="LineNr">32122 </span> <a href='mu.subx.html#L32124'>_Primitive-multiply-xreg-by-xreg</a>/imm32/next +<span id="L32123" class="LineNr">32123 </span><span class="subxH1Comment"># - floating-point multiply</span> +<span id="L32124" class="LineNr">32124 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32125" class="LineNr">32125 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32126" class="LineNr">32126 </span> <span class="subxComment"># var1/xreg <- multiply var2 => f3 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L32127" class="LineNr">32127 </span> 0x11/imm32/alloc-id:fake +<span id="L32128" class="LineNr">32128 </span> <a href='mu.subx.html#L33806'>_string-multiply</a>/imm32/name +<span id="L32129" class="LineNr">32129 </span> 0x11/imm32/alloc-id:fake +<span id="L32130" class="LineNr">32130 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32131" class="LineNr">32131 </span> 0x11/imm32/alloc-id:fake +<span id="L32132" class="LineNr">32132 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32133" class="LineNr">32133 </span> 0x11/imm32/alloc-id:fake +<span id="L32134" class="LineNr">32134 </span> <a href='mu.subx.html#L34118'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L32135" class="LineNr">32135 </span> 0/imm32/no-rm32 +<span id="L32136" class="LineNr">32136 </span> 0/imm32/no-r32 +<span id="L32137" class="LineNr">32137 </span> 0/imm32/no-imm32 +<span id="L32138" class="LineNr">32138 </span> 0/imm32/no-imm8 +<span id="L32139" class="LineNr">32139 </span> 0/imm32/no-disp32 +<span id="L32140" class="LineNr">32140 </span> 1/imm32/xm32-is-first-inout +<span id="L32141" class="LineNr">32141 </span> 3/imm32/x32-is-first-output +<span id="L32142" class="LineNr">32142 </span> 0x11/imm32/alloc-id:fake +<span id="L32143" class="LineNr">32143 </span> <a href='mu.subx.html#L32144'>_Primitive-multiply-xreg-by-mem</a>/imm32/next +<span id="L32144" class="LineNr">32144 </span><span class="subxMinorFunction">_Primitive-multiply-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32145" class="LineNr">32145 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32146" class="LineNr">32146 </span> <span class="subxComment"># var1/xreg <- multiply var2 => 53 0f 59/multiply var2/xm32 var1/x32</span> +<span id="L32147" class="LineNr">32147 </span> 0x11/imm32/alloc-id:fake +<span id="L32148" class="LineNr">32148 </span> <a href='mu.subx.html#L33806'>_string-multiply</a>/imm32/name +<span id="L32149" class="LineNr">32149 </span> 0x11/imm32/alloc-id:fake +<span id="L32150" class="LineNr">32150 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32151" class="LineNr">32151 </span> 0x11/imm32/alloc-id:fake +<span id="L32152" class="LineNr">32152 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32153" class="LineNr">32153 </span> 0x11/imm32/alloc-id:fake +<span id="L32154" class="LineNr">32154 </span> <a href='mu.subx.html#L34118'>_string_f3_0f_59_multiply</a>/imm32/subx-name +<span id="L32155" class="LineNr">32155 </span> 0/imm32/no-rm32 +<span id="L32156" class="LineNr">32156 </span> 0/imm32/no-r32 +<span id="L32157" class="LineNr">32157 </span> 0/imm32/no-imm32 +<span id="L32158" class="LineNr">32158 </span> 0/imm32/no-imm8 +<span id="L32159" class="LineNr">32159 </span> 0/imm32/no-disp32 +<span id="L32160" class="LineNr">32160 </span> 1/imm32/xm32-is-first-inout +<span id="L32161" class="LineNr">32161 </span> 3/imm32/x32-is-first-output +<span id="L32162" class="LineNr">32162 </span> 0x11/imm32/alloc-id:fake +<span id="L32163" class="LineNr">32163 </span> <a href='mu.subx.html#L32165'>_Primitive-divide-xreg-by-xreg</a>/imm32/next +<span id="L32164" class="LineNr">32164 </span><span class="subxH1Comment"># - floating-point divide</span> +<span id="L32165" class="LineNr">32165 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32166" class="LineNr">32166 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32167" class="LineNr">32167 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L32168" class="LineNr">32168 </span> 0x11/imm32/alloc-id:fake +<span id="L32169" class="LineNr">32169 </span> <a href='mu.subx.html#L33826'>_string-divide</a>/imm32/name +<span id="L32170" class="LineNr">32170 </span> 0x11/imm32/alloc-id:fake +<span id="L32171" class="LineNr">32171 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32172" class="LineNr">32172 </span> 0x11/imm32/alloc-id:fake +<span id="L32173" class="LineNr">32173 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32174" class="LineNr">32174 </span> 0x11/imm32/alloc-id:fake +<span id="L32175" class="LineNr">32175 </span> <a href='mu.subx.html#L34123'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L32176" class="LineNr">32176 </span> 0/imm32/no-rm32 +<span id="L32177" class="LineNr">32177 </span> 0/imm32/no-r32 +<span id="L32178" class="LineNr">32178 </span> 0/imm32/no-imm32 +<span id="L32179" class="LineNr">32179 </span> 0/imm32/no-imm8 +<span id="L32180" class="LineNr">32180 </span> 0/imm32/no-disp32 +<span id="L32181" class="LineNr">32181 </span> 1/imm32/xm32-is-first-inout +<span id="L32182" class="LineNr">32182 </span> 3/imm32/x32-is-first-output +<span id="L32183" class="LineNr">32183 </span> 0x11/imm32/alloc-id:fake +<span id="L32184" class="LineNr">32184 </span> <a href='mu.subx.html#L32185'>_Primitive-divide-xreg-by-mem</a>/imm32/next +<span id="L32185" class="LineNr">32185 </span><span class="subxMinorFunction">_Primitive-divide-xreg-by-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32186" class="LineNr">32186 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32187" class="LineNr">32187 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5e/divide var2/xm32 var1/x32</span> +<span id="L32188" class="LineNr">32188 </span> 0x11/imm32/alloc-id:fake +<span id="L32189" class="LineNr">32189 </span> <a href='mu.subx.html#L33826'>_string-divide</a>/imm32/name +<span id="L32190" class="LineNr">32190 </span> 0x11/imm32/alloc-id:fake +<span id="L32191" class="LineNr">32191 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32192" class="LineNr">32192 </span> 0x11/imm32/alloc-id:fake +<span id="L32193" class="LineNr">32193 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32194" class="LineNr">32194 </span> 0x11/imm32/alloc-id:fake +<span id="L32195" class="LineNr">32195 </span> <a href='mu.subx.html#L34123'>_string_f3_0f_5e_divide</a>/imm32/subx-name +<span id="L32196" class="LineNr">32196 </span> 0/imm32/no-rm32 +<span id="L32197" class="LineNr">32197 </span> 0/imm32/no-r32 +<span id="L32198" class="LineNr">32198 </span> 0/imm32/no-imm32 +<span id="L32199" class="LineNr">32199 </span> 0/imm32/no-imm8 +<span id="L32200" class="LineNr">32200 </span> 0/imm32/no-disp32 +<span id="L32201" class="LineNr">32201 </span> 1/imm32/xm32-is-first-inout +<span id="L32202" class="LineNr">32202 </span> 3/imm32/x32-is-first-output +<span id="L32203" class="LineNr">32203 </span> 0x11/imm32/alloc-id:fake +<span id="L32204" class="LineNr">32204 </span> <a href='mu.subx.html#L32206'>_Primitive-max-xreg-with-xreg</a>/imm32/next +<span id="L32205" class="LineNr">32205 </span><span class="subxH1Comment"># - floating-point maximum</span> +<span id="L32206" class="LineNr">32206 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32207" class="LineNr">32207 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32208" class="LineNr">32208 </span> <span class="subxComment"># var1/xreg <- max var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L32209" class="LineNr">32209 </span> 0x11/imm32/alloc-id:fake +<span id="L32210" class="LineNr">32210 </span> <a href='mu.subx.html#L33831'>_string-max</a>/imm32/name +<span id="L32211" class="LineNr">32211 </span> 0x11/imm32/alloc-id:fake +<span id="L32212" class="LineNr">32212 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32213" class="LineNr">32213 </span> 0x11/imm32/alloc-id:fake +<span id="L32214" class="LineNr">32214 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32215" class="LineNr">32215 </span> 0x11/imm32/alloc-id:fake +<span id="L32216" class="LineNr">32216 </span> <a href='mu.subx.html#L34148'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L32217" class="LineNr">32217 </span> 0/imm32/no-rm32 +<span id="L32218" class="LineNr">32218 </span> 0/imm32/no-r32 +<span id="L32219" class="LineNr">32219 </span> 0/imm32/no-imm32 +<span id="L32220" class="LineNr">32220 </span> 0/imm32/no-imm8 +<span id="L32221" class="LineNr">32221 </span> 0/imm32/no-disp32 +<span id="L32222" class="LineNr">32222 </span> 1/imm32/xm32-is-first-inout +<span id="L32223" class="LineNr">32223 </span> 3/imm32/x32-is-first-output +<span id="L32224" class="LineNr">32224 </span> 0x11/imm32/alloc-id:fake +<span id="L32225" class="LineNr">32225 </span> <a href='mu.subx.html#L32226'>_Primitive-max-xreg-with-mem</a>/imm32/next +<span id="L32226" class="LineNr">32226 </span><span class="subxMinorFunction">_Primitive-max-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32227" class="LineNr">32227 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32228" class="LineNr">32228 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5f/max var2/xm32 var1/x32</span> +<span id="L32229" class="LineNr">32229 </span> 0x11/imm32/alloc-id:fake +<span id="L32230" class="LineNr">32230 </span> <a href='mu.subx.html#L33831'>_string-max</a>/imm32/name +<span id="L32231" class="LineNr">32231 </span> 0x11/imm32/alloc-id:fake +<span id="L32232" class="LineNr">32232 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32233" class="LineNr">32233 </span> 0x11/imm32/alloc-id:fake +<span id="L32234" class="LineNr">32234 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32235" class="LineNr">32235 </span> 0x11/imm32/alloc-id:fake +<span id="L32236" class="LineNr">32236 </span> <a href='mu.subx.html#L34148'>_string_f3_0f_5f_max</a>/imm32/subx-name +<span id="L32237" class="LineNr">32237 </span> 0/imm32/no-rm32 +<span id="L32238" class="LineNr">32238 </span> 0/imm32/no-r32 +<span id="L32239" class="LineNr">32239 </span> 0/imm32/no-imm32 +<span id="L32240" class="LineNr">32240 </span> 0/imm32/no-imm8 +<span id="L32241" class="LineNr">32241 </span> 0/imm32/no-disp32 +<span id="L32242" class="LineNr">32242 </span> 1/imm32/xm32-is-first-inout +<span id="L32243" class="LineNr">32243 </span> 3/imm32/x32-is-first-output +<span id="L32244" class="LineNr">32244 </span> 0x11/imm32/alloc-id:fake +<span id="L32245" class="LineNr">32245 </span> <a href='mu.subx.html#L32247'>_Primitive-min-xreg-with-xreg</a>/imm32/next +<span id="L32246" class="LineNr">32246 </span><span class="subxH1Comment"># - floating-point minimum</span> +<span id="L32247" class="LineNr">32247 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32248" class="LineNr">32248 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32249" class="LineNr">32249 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L32250" class="LineNr">32250 </span> 0x11/imm32/alloc-id:fake +<span id="L32251" class="LineNr">32251 </span> <a href='mu.subx.html#L33836'>_string-min</a>/imm32/name +<span id="L32252" class="LineNr">32252 </span> 0x11/imm32/alloc-id:fake +<span id="L32253" class="LineNr">32253 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32254" class="LineNr">32254 </span> 0x11/imm32/alloc-id:fake +<span id="L32255" class="LineNr">32255 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32256" class="LineNr">32256 </span> 0x11/imm32/alloc-id:fake +<span id="L32257" class="LineNr">32257 </span> <a href='mu.subx.html#L34143'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L32258" class="LineNr">32258 </span> 0/imm32/no-rm32 +<span id="L32259" class="LineNr">32259 </span> 0/imm32/no-r32 +<span id="L32260" class="LineNr">32260 </span> 0/imm32/no-imm32 +<span id="L32261" class="LineNr">32261 </span> 0/imm32/no-imm8 +<span id="L32262" class="LineNr">32262 </span> 0/imm32/no-disp32 +<span id="L32263" class="LineNr">32263 </span> 1/imm32/xm32-is-first-inout +<span id="L32264" class="LineNr">32264 </span> 3/imm32/x32-is-first-output +<span id="L32265" class="LineNr">32265 </span> 0x11/imm32/alloc-id:fake +<span id="L32266" class="LineNr">32266 </span> <a href='mu.subx.html#L32267'>_Primitive-min-xreg-with-mem</a>/imm32/next +<span id="L32267" class="LineNr">32267 </span><span class="subxMinorFunction">_Primitive-min-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32268" class="LineNr">32268 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32269" class="LineNr">32269 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 5d/min var2/xm32 var1/x32</span> +<span id="L32270" class="LineNr">32270 </span> 0x11/imm32/alloc-id:fake +<span id="L32271" class="LineNr">32271 </span> <a href='mu.subx.html#L33836'>_string-min</a>/imm32/name +<span id="L32272" class="LineNr">32272 </span> 0x11/imm32/alloc-id:fake +<span id="L32273" class="LineNr">32273 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32274" class="LineNr">32274 </span> 0x11/imm32/alloc-id:fake +<span id="L32275" class="LineNr">32275 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32276" class="LineNr">32276 </span> 0x11/imm32/alloc-id:fake +<span id="L32277" class="LineNr">32277 </span> <a href='mu.subx.html#L34143'>_string_f3_0f_5d_min</a>/imm32/subx-name +<span id="L32278" class="LineNr">32278 </span> 0/imm32/no-rm32 +<span id="L32279" class="LineNr">32279 </span> 0/imm32/no-r32 +<span id="L32280" class="LineNr">32280 </span> 0/imm32/no-imm32 +<span id="L32281" class="LineNr">32281 </span> 0/imm32/no-imm8 +<span id="L32282" class="LineNr">32282 </span> 0/imm32/no-disp32 +<span id="L32283" class="LineNr">32283 </span> 1/imm32/xm32-is-first-inout +<span id="L32284" class="LineNr">32284 </span> 3/imm32/x32-is-first-output +<span id="L32285" class="LineNr">32285 </span> 0x11/imm32/alloc-id:fake +<span id="L32286" class="LineNr">32286 </span> <a href='mu.subx.html#L32288'>_Primitive-reciprocal-xreg-to-xreg</a>/imm32/next +<span id="L32287" class="LineNr">32287 </span><span class="subxH1Comment"># - floating-point reciprocal</span> +<span id="L32288" class="LineNr">32288 </span><span class="subxMinorFunction">_Primitive-reciprocal-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32289" class="LineNr">32289 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32290" class="LineNr">32290 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L32291" class="LineNr">32291 </span> 0x11/imm32/alloc-id:fake +<span id="L32292" class="LineNr">32292 </span> <a href='mu.subx.html#L33841'>_string-reciprocal</a>/imm32/name +<span id="L32293" class="LineNr">32293 </span> 0x11/imm32/alloc-id:fake +<span id="L32294" class="LineNr">32294 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32295" class="LineNr">32295 </span> 0x11/imm32/alloc-id:fake +<span id="L32296" class="LineNr">32296 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32297" class="LineNr">32297 </span> 0x11/imm32/alloc-id:fake +<span id="L32298" class="LineNr">32298 </span> <a href='mu.subx.html#L34128'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L32299" class="LineNr">32299 </span> 0/imm32/no-rm32 +<span id="L32300" class="LineNr">32300 </span> 0/imm32/no-r32 +<span id="L32301" class="LineNr">32301 </span> 0/imm32/no-imm32 +<span id="L32302" class="LineNr">32302 </span> 0/imm32/no-imm8 +<span id="L32303" class="LineNr">32303 </span> 0/imm32/no-disp32 +<span id="L32304" class="LineNr">32304 </span> 1/imm32/xm32-is-first-inout +<span id="L32305" class="LineNr">32305 </span> 3/imm32/x32-is-first-output +<span id="L32306" class="LineNr">32306 </span> 0x11/imm32/alloc-id:fake +<span id="L32307" class="LineNr">32307 </span> <a href='mu.subx.html#L32308'>_Primitive-reciprocal-mem-to-xreg</a>/imm32/next +<span id="L32308" class="LineNr">32308 </span><span class="subxMinorFunction">_Primitive-reciprocal-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32309" class="LineNr">32309 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32310" class="LineNr">32310 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 53/reciprocal var2/xm32 var1/x32</span> +<span id="L32311" class="LineNr">32311 </span> 0x11/imm32/alloc-id:fake +<span id="L32312" class="LineNr">32312 </span> <a href='mu.subx.html#L33841'>_string-reciprocal</a>/imm32/name +<span id="L32313" class="LineNr">32313 </span> 0x11/imm32/alloc-id:fake +<span id="L32314" class="LineNr">32314 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32315" class="LineNr">32315 </span> 0x11/imm32/alloc-id:fake +<span id="L32316" class="LineNr">32316 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32317" class="LineNr">32317 </span> 0x11/imm32/alloc-id:fake +<span id="L32318" class="LineNr">32318 </span> <a href='mu.subx.html#L34128'>_string_f3_0f_53_reciprocal</a>/imm32/subx-name +<span id="L32319" class="LineNr">32319 </span> 0/imm32/no-rm32 +<span id="L32320" class="LineNr">32320 </span> 0/imm32/no-r32 +<span id="L32321" class="LineNr">32321 </span> 0/imm32/no-imm32 +<span id="L32322" class="LineNr">32322 </span> 0/imm32/no-imm8 +<span id="L32323" class="LineNr">32323 </span> 0/imm32/no-disp32 +<span id="L32324" class="LineNr">32324 </span> 1/imm32/xm32-is-first-inout +<span id="L32325" class="LineNr">32325 </span> 3/imm32/x32-is-first-output +<span id="L32326" class="LineNr">32326 </span> 0x11/imm32/alloc-id:fake +<span id="L32327" class="LineNr">32327 </span> <a href='mu.subx.html#L32329'>_Primitive-square-root-xreg-to-xreg</a>/imm32/next +<span id="L32328" class="LineNr">32328 </span><span class="subxH1Comment"># - floating-point square root</span> +<span id="L32329" class="LineNr">32329 </span><span class="subxMinorFunction">_Primitive-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32330" class="LineNr">32330 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32331" class="LineNr">32331 </span> <span class="subxComment"># var1/xreg <- square-root var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L32332" class="LineNr">32332 </span> 0x11/imm32/alloc-id:fake +<span id="L32333" class="LineNr">32333 </span> <a href='mu.subx.html#L33846'>_string-square-root</a>/imm32/name +<span id="L32334" class="LineNr">32334 </span> 0x11/imm32/alloc-id:fake +<span id="L32335" class="LineNr">32335 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32336" class="LineNr">32336 </span> 0x11/imm32/alloc-id:fake +<span id="L32337" class="LineNr">32337 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32338" class="LineNr">32338 </span> 0x11/imm32/alloc-id:fake +<span id="L32339" class="LineNr">32339 </span> <a href='mu.subx.html#L34133'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L32340" class="LineNr">32340 </span> 0/imm32/no-rm32 +<span id="L32341" class="LineNr">32341 </span> 0/imm32/no-r32 +<span id="L32342" class="LineNr">32342 </span> 0/imm32/no-imm32 +<span id="L32343" class="LineNr">32343 </span> 0/imm32/no-imm8 +<span id="L32344" class="LineNr">32344 </span> 0/imm32/no-disp32 +<span id="L32345" class="LineNr">32345 </span> 1/imm32/xm32-is-first-inout +<span id="L32346" class="LineNr">32346 </span> 3/imm32/x32-is-first-output +<span id="L32347" class="LineNr">32347 </span> 0x11/imm32/alloc-id:fake +<span id="L32348" class="LineNr">32348 </span> <a href='mu.subx.html#L32349'>_Primitive-square-root-mem-to-xreg</a>/imm32/next +<span id="L32349" class="LineNr">32349 </span><span class="subxMinorFunction">_Primitive-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32350" class="LineNr">32350 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32351" class="LineNr">32351 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 51/square-root var2/xm32 var1/x32</span> +<span id="L32352" class="LineNr">32352 </span> 0x11/imm32/alloc-id:fake +<span id="L32353" class="LineNr">32353 </span> <a href='mu.subx.html#L33846'>_string-square-root</a>/imm32/name +<span id="L32354" class="LineNr">32354 </span> 0x11/imm32/alloc-id:fake +<span id="L32355" class="LineNr">32355 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32356" class="LineNr">32356 </span> 0x11/imm32/alloc-id:fake +<span id="L32357" class="LineNr">32357 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32358" class="LineNr">32358 </span> 0x11/imm32/alloc-id:fake +<span id="L32359" class="LineNr">32359 </span> <a href='mu.subx.html#L34133'>_string_f3_0f_51_square_root</a>/imm32/subx-name +<span id="L32360" class="LineNr">32360 </span> 0/imm32/no-rm32 +<span id="L32361" class="LineNr">32361 </span> 0/imm32/no-r32 +<span id="L32362" class="LineNr">32362 </span> 0/imm32/no-imm32 +<span id="L32363" class="LineNr">32363 </span> 0/imm32/no-imm8 +<span id="L32364" class="LineNr">32364 </span> 0/imm32/no-disp32 +<span id="L32365" class="LineNr">32365 </span> 1/imm32/xm32-is-first-inout +<span id="L32366" class="LineNr">32366 </span> 3/imm32/x32-is-first-output +<span id="L32367" class="LineNr">32367 </span> 0x11/imm32/alloc-id:fake +<span id="L32368" class="LineNr">32368 </span> <a href='mu.subx.html#L32370'>_Primitive-inverse-square-root-xreg-to-xreg</a>/imm32/next +<span id="L32369" class="LineNr">32369 </span><span class="subxH1Comment"># - floating-point inverse square root 1/sqrt(x)</span> +<span id="L32370" class="LineNr">32370 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-xreg-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32371" class="LineNr">32371 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32372" class="LineNr">32372 </span> <span class="subxComment"># var1/xreg <- reciprocal var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L32373" class="LineNr">32373 </span> 0x11/imm32/alloc-id:fake +<span id="L32374" class="LineNr">32374 </span> <a href='mu.subx.html#L33851'>_string-inverse-square-root</a>/imm32/name +<span id="L32375" class="LineNr">32375 </span> 0x11/imm32/alloc-id:fake +<span id="L32376" class="LineNr">32376 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/inouts +<span id="L32377" class="LineNr">32377 </span> 0x11/imm32/alloc-id:fake +<span id="L32378" class="LineNr">32378 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32379" class="LineNr">32379 </span> 0x11/imm32/alloc-id:fake +<span id="L32380" class="LineNr">32380 </span> <a href='mu.subx.html#L34138'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L32381" class="LineNr">32381 </span> 0/imm32/no-rm32 +<span id="L32382" class="LineNr">32382 </span> 0/imm32/no-r32 +<span id="L32383" class="LineNr">32383 </span> 0/imm32/no-imm32 +<span id="L32384" class="LineNr">32384 </span> 0/imm32/no-imm8 +<span id="L32385" class="LineNr">32385 </span> 0/imm32/no-disp32 +<span id="L32386" class="LineNr">32386 </span> 1/imm32/xm32-is-first-inout +<span id="L32387" class="LineNr">32387 </span> 3/imm32/x32-is-first-output +<span id="L32388" class="LineNr">32388 </span> 0x11/imm32/alloc-id:fake +<span id="L32389" class="LineNr">32389 </span> <a href='mu.subx.html#L32390'>_Primitive-inverse-square-root-mem-to-xreg</a>/imm32/next +<span id="L32390" class="LineNr">32390 </span><span class="subxMinorFunction">_Primitive-inverse-square-root-mem-to-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32391" class="LineNr">32391 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32392" class="LineNr">32392 </span> <span class="subxComment"># var1/xreg <- divide var2 => f3 0f 52/inverse-square-root var2/xm32 var1/x32</span> +<span id="L32393" class="LineNr">32393 </span> 0x11/imm32/alloc-id:fake +<span id="L32394" class="LineNr">32394 </span> <a href='mu.subx.html#L33851'>_string-inverse-square-root</a>/imm32/name +<span id="L32395" class="LineNr">32395 </span> 0x11/imm32/alloc-id:fake +<span id="L32396" class="LineNr">32396 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/inouts +<span id="L32397" class="LineNr">32397 </span> 0x11/imm32/alloc-id:fake +<span id="L32398" class="LineNr">32398 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/outputs +<span id="L32399" class="LineNr">32399 </span> 0x11/imm32/alloc-id:fake +<span id="L32400" class="LineNr">32400 </span> <a href='mu.subx.html#L34138'>_string_f3_0f_52_inverse_square_root</a>/imm32/subx-name +<span id="L32401" class="LineNr">32401 </span> 0/imm32/no-rm32 +<span id="L32402" class="LineNr">32402 </span> 0/imm32/no-r32 +<span id="L32403" class="LineNr">32403 </span> 0/imm32/no-imm32 +<span id="L32404" class="LineNr">32404 </span> 0/imm32/no-imm8 +<span id="L32405" class="LineNr">32405 </span> 0/imm32/no-disp32 +<span id="L32406" class="LineNr">32406 </span> 1/imm32/xm32-is-first-inout +<span id="L32407" class="LineNr">32407 </span> 3/imm32/x32-is-first-output +<span id="L32408" class="LineNr">32408 </span> 0x11/imm32/alloc-id:fake +<span id="L32409" class="LineNr">32409 </span> <a href='mu.subx.html#L32411'>_Primitive-compare-xreg-with-xreg</a>/imm32/next +<span id="L32410" class="LineNr">32410 </span><span class="subxH1Comment"># - floating-point compare</span> +<span id="L32411" class="LineNr">32411 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-xreg</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32412" class="LineNr">32412 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32413" class="LineNr">32413 </span> <span class="subxComment"># compare var1/reg1 var2/reg2 => 0f 2f/compare var2/x32 var1/xm32</span> +<span id="L32414" class="LineNr">32414 </span> 0x11/imm32/alloc-id:fake +<span id="L32415" class="LineNr">32415 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L32416" class="LineNr">32416 </span> 0x11/imm32/alloc-id:fake +<span id="L32417" class="LineNr">32417 </span> <span class="SpecialChar"><a href='mu.subx.html#L34512'>Two-float-args-in-regs</a></span>/imm32/inouts +<span id="L32418" class="LineNr">32418 </span> 0/imm32/no-outputs +<span id="L32419" class="LineNr">32419 </span> 0/imm32/no-outputs +<span id="L32420" class="LineNr">32420 </span> 0x11/imm32/alloc-id:fake +<span id="L32421" class="LineNr">32421 </span> <a href='mu.subx.html#L34163'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L32422" class="LineNr">32422 </span> 0/imm32/no-rm32 +<span id="L32423" class="LineNr">32423 </span> 0/imm32/no-r32 +<span id="L32424" class="LineNr">32424 </span> 0/imm32/no-imm32 +<span id="L32425" class="LineNr">32425 </span> 0/imm32/no-imm8 +<span id="L32426" class="LineNr">32426 </span> 0/imm32/no-disp32 +<span id="L32427" class="LineNr">32427 </span> 2/imm32/xm32-is-second-inout +<span id="L32428" class="LineNr">32428 </span> 1/imm32/x32-is-first-inout +<span id="L32429" class="LineNr">32429 </span> 0x11/imm32/alloc-id:fake +<span id="L32430" class="LineNr">32430 </span> <a href='mu.subx.html#L32431'>_Primitive-compare-xreg-with-mem</a>/imm32/next +<span id="L32431" class="LineNr">32431 </span><span class="subxMinorFunction">_Primitive-compare-xreg-with-mem</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32432" class="LineNr">32432 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32433" class="LineNr">32433 </span> <span class="subxComment"># compare var1/xreg var2 => 0f 2f/compare var1/x32 var2/xm32</span> +<span id="L32434" class="LineNr">32434 </span> 0x11/imm32/alloc-id:fake +<span id="L32435" class="LineNr">32435 </span> <a href='mu.subx.html#L33696'>_string-compare</a>/imm32/name +<span id="L32436" class="LineNr">32436 </span> 0x11/imm32/alloc-id:fake +<span id="L32437" class="LineNr">32437 </span> <span class="SpecialChar"><a href='mu.subx.html#L34519'>Two-args-float-reg-float-stack</a></span>/imm32/inouts +<span id="L32438" class="LineNr">32438 </span> 0/imm32/no-outputs +<span id="L32439" class="LineNr">32439 </span> 0/imm32/no-outputs +<span id="L32440" class="LineNr">32440 </span> 0x11/imm32/alloc-id:fake +<span id="L32441" class="LineNr">32441 </span> <a href='mu.subx.html#L34163'>_string_0f_2f_compare</a>/imm32/subx-name +<span id="L32442" class="LineNr">32442 </span> 0/imm32/no-rm32 +<span id="L32443" class="LineNr">32443 </span> 0/imm32/no-r32 +<span id="L32444" class="LineNr">32444 </span> 0/imm32/no-imm32 +<span id="L32445" class="LineNr">32445 </span> 0/imm32/no-imm8 +<span id="L32446" class="LineNr">32446 </span> 0/imm32/no-disp32 +<span id="L32447" class="LineNr">32447 </span> 2/imm32/xm32-is-second-inout +<span id="L32448" class="LineNr">32448 </span> 1/imm32/x32-is-first-inout +<span id="L32449" class="LineNr">32449 </span> 0x11/imm32/alloc-id:fake +<span id="L32450" class="LineNr">32450 </span> <a href='mu.subx.html#L32452'>_Primitive-break-if-addr<</a>/imm32/next +<span id="L32451" class="LineNr">32451 </span><span class="subxH1Comment"># - branches</span> +<span id="L32452" class="LineNr">32452 </span><span class="subxMinorFunction">_Primitive-break-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32453" class="LineNr">32453 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32454" class="LineNr">32454 </span> 0x11/imm32/alloc-id:fake +<span id="L32455" class="LineNr">32455 </span> <a href='mu.subx.html#L33656'>_string-break-if-addr<</a>/imm32/name +<span id="L32456" class="LineNr">32456 </span> 0/imm32/no-inouts +<span id="L32457" class="LineNr">32457 </span> 0/imm32/no-inouts +<span id="L32458" class="LineNr">32458 </span> 0/imm32/no-outputs +<span id="L32459" class="LineNr">32459 </span> 0/imm32/no-outputs +<span id="L32460" class="LineNr">32460 </span> 0x11/imm32/alloc-id:fake +<span id="L32461" class="LineNr">32461 </span> <a href='mu.subx.html#L33943'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L32462" class="LineNr">32462 </span> 0/imm32/no-rm32 +<span id="L32463" class="LineNr">32463 </span> 0/imm32/no-r32 +<span id="L32464" class="LineNr">32464 </span> 0/imm32/no-imm32 +<span id="L32465" class="LineNr">32465 </span> 0/imm32/no-imm8 +<span id="L32466" class="LineNr">32466 </span> 0/imm32/no-disp32 +<span id="L32467" class="LineNr">32467 </span> 0/imm32/no-xm32 +<span id="L32468" class="LineNr">32468 </span> 0/imm32/no-x32 +<span id="L32469" class="LineNr">32469 </span> 0x11/imm32/alloc-id:fake +<span id="L32470" class="LineNr">32470 </span> <a href='mu.subx.html#L32471'>_Primitive-break-if-addr>=</a>/imm32/next +<span id="L32471" class="LineNr">32471 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32472" class="LineNr">32472 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32473" class="LineNr">32473 </span> 0x11/imm32/alloc-id:fake +<span id="L32474" class="LineNr">32474 </span> <a href='mu.subx.html#L33671'>_string-break-if-addr>=</a>/imm32/name +<span id="L32475" class="LineNr">32475 </span> 0/imm32/no-inouts +<span id="L32476" class="LineNr">32476 </span> 0/imm32/no-inouts +<span id="L32477" class="LineNr">32477 </span> 0/imm32/no-outputs +<span id="L32478" class="LineNr">32478 </span> 0/imm32/no-outputs +<span id="L32479" class="LineNr">32479 </span> 0x11/imm32/alloc-id:fake +<span id="L32480" class="LineNr">32480 </span> <a href='mu.subx.html#L33958'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L32481" class="LineNr">32481 </span> 0/imm32/no-rm32 +<span id="L32482" class="LineNr">32482 </span> 0/imm32/no-r32 +<span id="L32483" class="LineNr">32483 </span> 0/imm32/no-imm32 +<span id="L32484" class="LineNr">32484 </span> 0/imm32/no-imm8 +<span id="L32485" class="LineNr">32485 </span> 0/imm32/no-disp32 +<span id="L32486" class="LineNr">32486 </span> 0/imm32/no-xm32 +<span id="L32487" class="LineNr">32487 </span> 0/imm32/no-x32 +<span id="L32488" class="LineNr">32488 </span> 0x11/imm32/alloc-id:fake +<span id="L32489" class="LineNr">32489 </span> <a href='mu.subx.html#L32490'>_Primitive-break-if-=</a>/imm32/next +<span id="L32490" class="LineNr">32490 </span><span class="subxMinorFunction">_Primitive-break-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32491" class="LineNr">32491 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32492" class="LineNr">32492 </span> 0x11/imm32/alloc-id:fake +<span id="L32493" class="LineNr">32493 </span> <a href='mu.subx.html#L33636'>_string-break-if-=</a>/imm32/name +<span id="L32494" class="LineNr">32494 </span> 0/imm32/no-inouts +<span id="L32495" class="LineNr">32495 </span> 0/imm32/no-inouts +<span id="L32496" class="LineNr">32496 </span> 0/imm32/no-outputs +<span id="L32497" class="LineNr">32497 </span> 0/imm32/no-outputs +<span id="L32498" class="LineNr">32498 </span> 0x11/imm32/alloc-id:fake +<span id="L32499" class="LineNr">32499 </span> <a href='mu.subx.html#L33973'>_string_0f_84_jump_break</a>/imm32/subx-name +<span id="L32500" class="LineNr">32500 </span> 0/imm32/no-rm32 +<span id="L32501" class="LineNr">32501 </span> 0/imm32/no-r32 +<span id="L32502" class="LineNr">32502 </span> 0/imm32/no-imm32 +<span id="L32503" class="LineNr">32503 </span> 0/imm32/no-imm8 +<span id="L32504" class="LineNr">32504 </span> 0/imm32/no-disp32 +<span id="L32505" class="LineNr">32505 </span> 0/imm32/no-xm32 +<span id="L32506" class="LineNr">32506 </span> 0/imm32/no-x32 +<span id="L32507" class="LineNr">32507 </span> 0x11/imm32/alloc-id:fake +<span id="L32508" class="LineNr">32508 </span> <a href='mu.subx.html#L32509'>_Primitive-break-if-!=</a>/imm32/next +<span id="L32509" class="LineNr">32509 </span><span class="subxMinorFunction">_Primitive-break-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32510" class="LineNr">32510 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32511" class="LineNr">32511 </span> 0x11/imm32/alloc-id:fake +<span id="L32512" class="LineNr">32512 </span> <a href='mu.subx.html#L33651'>_string-break-if-!=</a>/imm32/name +<span id="L32513" class="LineNr">32513 </span> 0/imm32/no-inouts +<span id="L32514" class="LineNr">32514 </span> 0/imm32/no-inouts +<span id="L32515" class="LineNr">32515 </span> 0/imm32/no-outputs +<span id="L32516" class="LineNr">32516 </span> 0/imm32/no-outputs +<span id="L32517" class="LineNr">32517 </span> 0x11/imm32/alloc-id:fake +<span id="L32518" class="LineNr">32518 </span> <a href='mu.subx.html#L33988'>_string_0f_85_jump_break</a>/imm32/subx-name +<span id="L32519" class="LineNr">32519 </span> 0/imm32/no-rm32 +<span id="L32520" class="LineNr">32520 </span> 0/imm32/no-r32 +<span id="L32521" class="LineNr">32521 </span> 0/imm32/no-imm32 +<span id="L32522" class="LineNr">32522 </span> 0/imm32/no-imm8 +<span id="L32523" class="LineNr">32523 </span> 0/imm32/no-disp32 +<span id="L32524" class="LineNr">32524 </span> 0/imm32/no-xm32 +<span id="L32525" class="LineNr">32525 </span> 0/imm32/no-x32 +<span id="L32526" class="LineNr">32526 </span> 0x11/imm32/alloc-id:fake +<span id="L32527" class="LineNr">32527 </span> <a href='mu.subx.html#L32528'>_Primitive-break-if-addr<=</a>/imm32/next +<span id="L32528" class="LineNr">32528 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32529" class="LineNr">32529 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32530" class="LineNr">32530 </span> 0x11/imm32/alloc-id:fake +<span id="L32531" class="LineNr">32531 </span> <a href='mu.subx.html#L33661'>_string-break-if-addr<=</a>/imm32/name +<span id="L32532" class="LineNr">32532 </span> 0/imm32/no-inouts +<span id="L32533" class="LineNr">32533 </span> 0/imm32/no-inouts +<span id="L32534" class="LineNr">32534 </span> 0/imm32/no-outputs +<span id="L32535" class="LineNr">32535 </span> 0/imm32/no-outputs +<span id="L32536" class="LineNr">32536 </span> 0x11/imm32/alloc-id:fake +<span id="L32537" class="LineNr">32537 </span> <a href='mu.subx.html#L34003'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L32538" class="LineNr">32538 </span> 0/imm32/no-rm32 +<span id="L32539" class="LineNr">32539 </span> 0/imm32/no-r32 +<span id="L32540" class="LineNr">32540 </span> 0/imm32/no-imm32 +<span id="L32541" class="LineNr">32541 </span> 0/imm32/no-imm8 +<span id="L32542" class="LineNr">32542 </span> 0/imm32/no-disp32 +<span id="L32543" class="LineNr">32543 </span> 0/imm32/no-xm32 +<span id="L32544" class="LineNr">32544 </span> 0/imm32/no-x32 +<span id="L32545" class="LineNr">32545 </span> 0x11/imm32/alloc-id:fake +<span id="L32546" class="LineNr">32546 </span> <a href='mu.subx.html#L32547'>_Primitive-break-if-addr></a>/imm32/next +<span id="L32547" class="LineNr">32547 </span><span class="subxMinorFunction">_Primitive-break-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32548" class="LineNr">32548 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32549" class="LineNr">32549 </span> 0x11/imm32/alloc-id:fake +<span id="L32550" class="LineNr">32550 </span> <a href='mu.subx.html#L33666'>_string-break-if-addr></a>/imm32/name +<span id="L32551" class="LineNr">32551 </span> 0/imm32/no-inouts +<span id="L32552" class="LineNr">32552 </span> 0/imm32/no-inouts +<span id="L32553" class="LineNr">32553 </span> 0/imm32/no-outputs +<span id="L32554" class="LineNr">32554 </span> 0/imm32/no-outputs +<span id="L32555" class="LineNr">32555 </span> 0x11/imm32/alloc-id:fake +<span id="L32556" class="LineNr">32556 </span> <a href='mu.subx.html#L34018'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L32557" class="LineNr">32557 </span> 0/imm32/no-rm32 +<span id="L32558" class="LineNr">32558 </span> 0/imm32/no-r32 +<span id="L32559" class="LineNr">32559 </span> 0/imm32/no-imm32 +<span id="L32560" class="LineNr">32560 </span> 0/imm32/no-imm8 +<span id="L32561" class="LineNr">32561 </span> 0/imm32/no-disp32 +<span id="L32562" class="LineNr">32562 </span> 0/imm32/no-xm32 +<span id="L32563" class="LineNr">32563 </span> 0/imm32/no-x32 +<span id="L32564" class="LineNr">32564 </span> 0x11/imm32/alloc-id:fake +<span id="L32565" class="LineNr">32565 </span> <a href='mu.subx.html#L32566'>_Primitive-break-if-<</a>/imm32/next +<span id="L32566" class="LineNr">32566 </span><span class="subxMinorFunction">_Primitive-break-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32567" class="LineNr">32567 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32568" class="LineNr">32568 </span> 0x11/imm32/alloc-id:fake +<span id="L32569" class="LineNr">32569 </span> <a href='mu.subx.html#L33626'>_string-break-if-<</a>/imm32/name +<span id="L32570" class="LineNr">32570 </span> 0/imm32/no-inouts +<span id="L32571" class="LineNr">32571 </span> 0/imm32/no-inouts +<span id="L32572" class="LineNr">32572 </span> 0/imm32/no-outputs +<span id="L32573" class="LineNr">32573 </span> 0/imm32/no-outputs +<span id="L32574" class="LineNr">32574 </span> 0x11/imm32/alloc-id:fake +<span id="L32575" class="LineNr">32575 </span> <a href='mu.subx.html#L34033'>_string_0f_8c_jump_break</a>/imm32/subx-name +<span id="L32576" class="LineNr">32576 </span> 0/imm32/no-rm32 +<span id="L32577" class="LineNr">32577 </span> 0/imm32/no-r32 +<span id="L32578" class="LineNr">32578 </span> 0/imm32/no-imm32 +<span id="L32579" class="LineNr">32579 </span> 0/imm32/no-imm8 +<span id="L32580" class="LineNr">32580 </span> 0/imm32/no-disp32 +<span id="L32581" class="LineNr">32581 </span> 0/imm32/no-xm32 +<span id="L32582" class="LineNr">32582 </span> 0/imm32/no-x32 +<span id="L32583" class="LineNr">32583 </span> 0x11/imm32/alloc-id:fake +<span id="L32584" class="LineNr">32584 </span> <a href='mu.subx.html#L32585'>_Primitive-break-if->=</a>/imm32/next +<span id="L32585" class="LineNr">32585 </span><span class="subxMinorFunction">_Primitive-break-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32586" class="LineNr">32586 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32587" class="LineNr">32587 </span> 0x11/imm32/alloc-id:fake +<span id="L32588" class="LineNr">32588 </span> <a href='mu.subx.html#L33646'>_string-break-if->=</a>/imm32/name +<span id="L32589" class="LineNr">32589 </span> 0/imm32/no-inouts +<span id="L32590" class="LineNr">32590 </span> 0/imm32/no-inouts +<span id="L32591" class="LineNr">32591 </span> 0/imm32/no-outputs +<span id="L32592" class="LineNr">32592 </span> 0/imm32/no-outputs +<span id="L32593" class="LineNr">32593 </span> 0x11/imm32/alloc-id:fake +<span id="L32594" class="LineNr">32594 </span> <a href='mu.subx.html#L34048'>_string_0f_8d_jump_break</a>/imm32/subx-name +<span id="L32595" class="LineNr">32595 </span> 0/imm32/no-rm32 +<span id="L32596" class="LineNr">32596 </span> 0/imm32/no-r32 +<span id="L32597" class="LineNr">32597 </span> 0/imm32/no-imm32 +<span id="L32598" class="LineNr">32598 </span> 0/imm32/no-imm8 +<span id="L32599" class="LineNr">32599 </span> 0/imm32/no-disp32 +<span id="L32600" class="LineNr">32600 </span> 0/imm32/no-xm32 +<span id="L32601" class="LineNr">32601 </span> 0/imm32/no-x32 +<span id="L32602" class="LineNr">32602 </span> 0x11/imm32/alloc-id:fake +<span id="L32603" class="LineNr">32603 </span> <a href='mu.subx.html#L32604'>_Primitive-break-if-<=</a>/imm32/next +<span id="L32604" class="LineNr">32604 </span><span class="subxMinorFunction">_Primitive-break-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32605" class="LineNr">32605 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32606" class="LineNr">32606 </span> 0x11/imm32/alloc-id:fake +<span id="L32607" class="LineNr">32607 </span> <a href='mu.subx.html#L33631'>_string-break-if-<=</a>/imm32/name +<span id="L32608" class="LineNr">32608 </span> 0/imm32/no-inouts +<span id="L32609" class="LineNr">32609 </span> 0/imm32/no-inouts +<span id="L32610" class="LineNr">32610 </span> 0/imm32/no-outputs +<span id="L32611" class="LineNr">32611 </span> 0/imm32/no-outputs +<span id="L32612" class="LineNr">32612 </span> 0x11/imm32/alloc-id:fake +<span id="L32613" class="LineNr">32613 </span> <a href='mu.subx.html#L34063'>_string_0f_8e_jump_break</a>/imm32/subx-name +<span id="L32614" class="LineNr">32614 </span> 0/imm32/no-rm32 +<span id="L32615" class="LineNr">32615 </span> 0/imm32/no-r32 +<span id="L32616" class="LineNr">32616 </span> 0/imm32/no-imm32 +<span id="L32617" class="LineNr">32617 </span> 0/imm32/no-imm8 +<span id="L32618" class="LineNr">32618 </span> 0/imm32/no-disp32 +<span id="L32619" class="LineNr">32619 </span> 0/imm32/no-xm32 +<span id="L32620" class="LineNr">32620 </span> 0/imm32/no-x32 +<span id="L32621" class="LineNr">32621 </span> 0x11/imm32/alloc-id:fake +<span id="L32622" class="LineNr">32622 </span> <a href='mu.subx.html#L32623'>_Primitive-break-if-></a>/imm32/next +<span id="L32623" class="LineNr">32623 </span><span class="subxMinorFunction">_Primitive-break-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32624" class="LineNr">32624 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32625" class="LineNr">32625 </span> 0x11/imm32/alloc-id:fake +<span id="L32626" class="LineNr">32626 </span> <a href='mu.subx.html#L33641'>_string-break-if-></a>/imm32/name +<span id="L32627" class="LineNr">32627 </span> 0/imm32/no-inouts +<span id="L32628" class="LineNr">32628 </span> 0/imm32/no-inouts +<span id="L32629" class="LineNr">32629 </span> 0/imm32/no-outputs +<span id="L32630" class="LineNr">32630 </span> 0/imm32/no-outputs +<span id="L32631" class="LineNr">32631 </span> 0x11/imm32/alloc-id:fake +<span id="L32632" class="LineNr">32632 </span> <a href='mu.subx.html#L34078'>_string_0f_8f_jump_break</a>/imm32/subx-name +<span id="L32633" class="LineNr">32633 </span> 0/imm32/no-rm32 +<span id="L32634" class="LineNr">32634 </span> 0/imm32/no-r32 +<span id="L32635" class="LineNr">32635 </span> 0/imm32/no-imm32 +<span id="L32636" class="LineNr">32636 </span> 0/imm32/no-imm8 +<span id="L32637" class="LineNr">32637 </span> 0/imm32/no-disp32 +<span id="L32638" class="LineNr">32638 </span> 0/imm32/no-xm32 +<span id="L32639" class="LineNr">32639 </span> 0/imm32/no-x32 +<span id="L32640" class="LineNr">32640 </span> 0x11/imm32/alloc-id:fake +<span id="L32641" class="LineNr">32641 </span> <a href='mu.subx.html#L32642'>_Primitive-break</a>/imm32/next +<span id="L32642" class="LineNr">32642 </span><span class="subxMinorFunction">_Primitive-break</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32643" class="LineNr">32643 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32644" class="LineNr">32644 </span> 0x11/imm32/alloc-id:fake +<span id="L32645" class="LineNr">32645 </span> <a href='mu.subx.html#L33621'>_string-break</a>/imm32/name +<span id="L32646" class="LineNr">32646 </span> 0/imm32/no-inouts +<span id="L32647" class="LineNr">32647 </span> 0/imm32/no-inouts +<span id="L32648" class="LineNr">32648 </span> 0/imm32/no-outputs +<span id="L32649" class="LineNr">32649 </span> 0/imm32/no-outputs +<span id="L32650" class="LineNr">32650 </span> 0x11/imm32/alloc-id:fake +<span id="L32651" class="LineNr">32651 </span> <a href='mu.subx.html#L34383'>_string_e9_jump_break</a>/imm32/subx-name +<span id="L32652" class="LineNr">32652 </span> 0/imm32/no-rm32 +<span id="L32653" class="LineNr">32653 </span> 0/imm32/no-r32 +<span id="L32654" class="LineNr">32654 </span> 0/imm32/no-imm32 +<span id="L32655" class="LineNr">32655 </span> 0/imm32/no-imm8 +<span id="L32656" class="LineNr">32656 </span> 0/imm32/no-disp32 +<span id="L32657" class="LineNr">32657 </span> 0/imm32/no-xm32 +<span id="L32658" class="LineNr">32658 </span> 0/imm32/no-x32 +<span id="L32659" class="LineNr">32659 </span> 0x11/imm32/alloc-id:fake +<span id="L32660" class="LineNr">32660 </span> <a href='mu.subx.html#L32661'>_Primitive-loop-if-addr<</a>/imm32/next +<span id="L32661" class="LineNr">32661 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32662" class="LineNr">32662 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32663" class="LineNr">32663 </span> 0x11/imm32/alloc-id:fake +<span id="L32664" class="LineNr">32664 </span> <a href='mu.subx.html#L33766'>_string-loop-if-addr<</a>/imm32/name +<span id="L32665" class="LineNr">32665 </span> 0/imm32/no-inouts +<span id="L32666" class="LineNr">32666 </span> 0/imm32/no-inouts +<span id="L32667" class="LineNr">32667 </span> 0/imm32/no-outputs +<span id="L32668" class="LineNr">32668 </span> 0/imm32/no-outputs +<span id="L32669" class="LineNr">32669 </span> 0x11/imm32/alloc-id:fake +<span id="L32670" class="LineNr">32670 </span> <a href='mu.subx.html#L33948'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L32671" class="LineNr">32671 </span> 0/imm32/no-rm32 +<span id="L32672" class="LineNr">32672 </span> 0/imm32/no-r32 +<span id="L32673" class="LineNr">32673 </span> 0/imm32/no-imm32 +<span id="L32674" class="LineNr">32674 </span> 0/imm32/no-imm8 +<span id="L32675" class="LineNr">32675 </span> 0/imm32/no-disp32 +<span id="L32676" class="LineNr">32676 </span> 0/imm32/no-xm32 +<span id="L32677" class="LineNr">32677 </span> 0/imm32/no-x32 +<span id="L32678" class="LineNr">32678 </span> 0x11/imm32/alloc-id:fake +<span id="L32679" class="LineNr">32679 </span> <a href='mu.subx.html#L32680'>_Primitive-loop-if-addr>=</a>/imm32/next +<span id="L32680" class="LineNr">32680 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32681" class="LineNr">32681 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32682" class="LineNr">32682 </span> 0x11/imm32/alloc-id:fake +<span id="L32683" class="LineNr">32683 </span> <a href='mu.subx.html#L33781'>_string-loop-if-addr>=</a>/imm32/name +<span id="L32684" class="LineNr">32684 </span> 0/imm32/no-inouts +<span id="L32685" class="LineNr">32685 </span> 0/imm32/no-inouts +<span id="L32686" class="LineNr">32686 </span> 0/imm32/no-outputs +<span id="L32687" class="LineNr">32687 </span> 0/imm32/no-outputs +<span id="L32688" class="LineNr">32688 </span> 0x11/imm32/alloc-id:fake +<span id="L32689" class="LineNr">32689 </span> <a href='mu.subx.html#L33963'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L32690" class="LineNr">32690 </span> 0/imm32/no-rm32 +<span id="L32691" class="LineNr">32691 </span> 0/imm32/no-r32 +<span id="L32692" class="LineNr">32692 </span> 0/imm32/no-imm32 +<span id="L32693" class="LineNr">32693 </span> 0/imm32/no-imm8 +<span id="L32694" class="LineNr">32694 </span> 0/imm32/no-disp32 +<span id="L32695" class="LineNr">32695 </span> 0/imm32/no-xm32 +<span id="L32696" class="LineNr">32696 </span> 0/imm32/no-x32 +<span id="L32697" class="LineNr">32697 </span> 0x11/imm32/alloc-id:fake +<span id="L32698" class="LineNr">32698 </span> <a href='mu.subx.html#L32699'>_Primitive-loop-if-=</a>/imm32/next +<span id="L32699" class="LineNr">32699 </span><span class="subxMinorFunction">_Primitive-loop-if-=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32700" class="LineNr">32700 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32701" class="LineNr">32701 </span> 0x11/imm32/alloc-id:fake +<span id="L32702" class="LineNr">32702 </span> <a href='mu.subx.html#L33746'>_string-loop-if-=</a>/imm32/name +<span id="L32703" class="LineNr">32703 </span> 0/imm32/no-inouts +<span id="L32704" class="LineNr">32704 </span> 0/imm32/no-inouts +<span id="L32705" class="LineNr">32705 </span> 0/imm32/no-outputs +<span id="L32706" class="LineNr">32706 </span> 0/imm32/no-outputs +<span id="L32707" class="LineNr">32707 </span> 0x11/imm32/alloc-id:fake +<span id="L32708" class="LineNr">32708 </span> <a href='mu.subx.html#L33978'>_string_0f_84_jump_loop</a>/imm32/subx-name +<span id="L32709" class="LineNr">32709 </span> 0/imm32/no-rm32 +<span id="L32710" class="LineNr">32710 </span> 0/imm32/no-r32 +<span id="L32711" class="LineNr">32711 </span> 0/imm32/no-imm32 +<span id="L32712" class="LineNr">32712 </span> 0/imm32/no-imm8 +<span id="L32713" class="LineNr">32713 </span> 0/imm32/no-disp32 +<span id="L32714" class="LineNr">32714 </span> 0/imm32/no-xm32 +<span id="L32715" class="LineNr">32715 </span> 0/imm32/no-x32 +<span id="L32716" class="LineNr">32716 </span> 0x11/imm32/alloc-id:fake +<span id="L32717" class="LineNr">32717 </span> <a href='mu.subx.html#L32718'>_Primitive-loop-if-!=</a>/imm32/next +<span id="L32718" class="LineNr">32718 </span><span class="subxMinorFunction">_Primitive-loop-if-!=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32719" class="LineNr">32719 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32720" class="LineNr">32720 </span> 0x11/imm32/alloc-id:fake +<span id="L32721" class="LineNr">32721 </span> <a href='mu.subx.html#L33761'>_string-loop-if-!=</a>/imm32/name +<span id="L32722" class="LineNr">32722 </span> 0/imm32/no-inouts +<span id="L32723" class="LineNr">32723 </span> 0/imm32/no-inouts +<span id="L32724" class="LineNr">32724 </span> 0/imm32/no-outputs +<span id="L32725" class="LineNr">32725 </span> 0/imm32/no-outputs +<span id="L32726" class="LineNr">32726 </span> 0x11/imm32/alloc-id:fake +<span id="L32727" class="LineNr">32727 </span> <a href='mu.subx.html#L33993'>_string_0f_85_jump_loop</a>/imm32/subx-name +<span id="L32728" class="LineNr">32728 </span> 0/imm32/no-rm32 +<span id="L32729" class="LineNr">32729 </span> 0/imm32/no-r32 +<span id="L32730" class="LineNr">32730 </span> 0/imm32/no-imm32 +<span id="L32731" class="LineNr">32731 </span> 0/imm32/no-imm8 +<span id="L32732" class="LineNr">32732 </span> 0/imm32/no-disp32 +<span id="L32733" class="LineNr">32733 </span> 0/imm32/no-xm32 +<span id="L32734" class="LineNr">32734 </span> 0/imm32/no-x32 +<span id="L32735" class="LineNr">32735 </span> 0x11/imm32/alloc-id:fake +<span id="L32736" class="LineNr">32736 </span> <a href='mu.subx.html#L32737'>_Primitive-loop-if-addr<=</a>/imm32/next +<span id="L32737" class="LineNr">32737 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32738" class="LineNr">32738 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32739" class="LineNr">32739 </span> 0x11/imm32/alloc-id:fake +<span id="L32740" class="LineNr">32740 </span> <a href='mu.subx.html#L33771'>_string-loop-if-addr<=</a>/imm32/name +<span id="L32741" class="LineNr">32741 </span> 0/imm32/no-inouts +<span id="L32742" class="LineNr">32742 </span> 0/imm32/no-inouts +<span id="L32743" class="LineNr">32743 </span> 0/imm32/no-outputs +<span id="L32744" class="LineNr">32744 </span> 0/imm32/no-outputs +<span id="L32745" class="LineNr">32745 </span> 0x11/imm32/alloc-id:fake +<span id="L32746" class="LineNr">32746 </span> <a href='mu.subx.html#L34008'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L32747" class="LineNr">32747 </span> 0/imm32/no-rm32 +<span id="L32748" class="LineNr">32748 </span> 0/imm32/no-r32 +<span id="L32749" class="LineNr">32749 </span> 0/imm32/no-imm32 +<span id="L32750" class="LineNr">32750 </span> 0/imm32/no-imm8 +<span id="L32751" class="LineNr">32751 </span> 0/imm32/no-disp32 +<span id="L32752" class="LineNr">32752 </span> 0/imm32/no-xm32 +<span id="L32753" class="LineNr">32753 </span> 0/imm32/no-x32 +<span id="L32754" class="LineNr">32754 </span> 0x11/imm32/alloc-id:fake +<span id="L32755" class="LineNr">32755 </span> <a href='mu.subx.html#L32756'>_Primitive-loop-if-addr></a>/imm32/next +<span id="L32756" class="LineNr">32756 </span><span class="subxMinorFunction">_Primitive-loop-if-addr></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32757" class="LineNr">32757 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32758" class="LineNr">32758 </span> 0x11/imm32/alloc-id:fake +<span id="L32759" class="LineNr">32759 </span> <a href='mu.subx.html#L33776'>_string-loop-if-addr></a>/imm32/name +<span id="L32760" class="LineNr">32760 </span> 0/imm32/no-inouts +<span id="L32761" class="LineNr">32761 </span> 0/imm32/no-inouts +<span id="L32762" class="LineNr">32762 </span> 0/imm32/no-outputs +<span id="L32763" class="LineNr">32763 </span> 0/imm32/no-outputs +<span id="L32764" class="LineNr">32764 </span> 0x11/imm32/alloc-id:fake +<span id="L32765" class="LineNr">32765 </span> <a href='mu.subx.html#L34023'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L32766" class="LineNr">32766 </span> 0/imm32/no-rm32 +<span id="L32767" class="LineNr">32767 </span> 0/imm32/no-r32 +<span id="L32768" class="LineNr">32768 </span> 0/imm32/no-imm32 +<span id="L32769" class="LineNr">32769 </span> 0/imm32/no-imm8 +<span id="L32770" class="LineNr">32770 </span> 0/imm32/no-disp32 +<span id="L32771" class="LineNr">32771 </span> 0/imm32/no-xm32 +<span id="L32772" class="LineNr">32772 </span> 0/imm32/no-x32 +<span id="L32773" class="LineNr">32773 </span> 0x11/imm32/alloc-id:fake +<span id="L32774" class="LineNr">32774 </span> <a href='mu.subx.html#L32775'>_Primitive-loop-if-<</a>/imm32/next +<span id="L32775" class="LineNr">32775 </span><span class="subxMinorFunction">_Primitive-loop-if-<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32776" class="LineNr">32776 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32777" class="LineNr">32777 </span> 0x11/imm32/alloc-id:fake +<span id="L32778" class="LineNr">32778 </span> <a href='mu.subx.html#L33736'>_string-loop-if-<</a>/imm32/name +<span id="L32779" class="LineNr">32779 </span> 0/imm32/no-inouts +<span id="L32780" class="LineNr">32780 </span> 0/imm32/no-inouts +<span id="L32781" class="LineNr">32781 </span> 0/imm32/no-outputs +<span id="L32782" class="LineNr">32782 </span> 0/imm32/no-outputs +<span id="L32783" class="LineNr">32783 </span> 0x11/imm32/alloc-id:fake +<span id="L32784" class="LineNr">32784 </span> <a href='mu.subx.html#L34038'>_string_0f_8c_jump_loop</a>/imm32/subx-name +<span id="L32785" class="LineNr">32785 </span> 0/imm32/no-rm32 +<span id="L32786" class="LineNr">32786 </span> 0/imm32/no-r32 +<span id="L32787" class="LineNr">32787 </span> 0/imm32/no-imm32 +<span id="L32788" class="LineNr">32788 </span> 0/imm32/no-imm8 +<span id="L32789" class="LineNr">32789 </span> 0/imm32/no-disp32 +<span id="L32790" class="LineNr">32790 </span> 0/imm32/no-xm32 +<span id="L32791" class="LineNr">32791 </span> 0/imm32/no-x32 +<span id="L32792" class="LineNr">32792 </span> 0x11/imm32/alloc-id:fake +<span id="L32793" class="LineNr">32793 </span> <a href='mu.subx.html#L32794'>_Primitive-loop-if->=</a>/imm32/next +<span id="L32794" class="LineNr">32794 </span><span class="subxMinorFunction">_Primitive-loop-if->=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32795" class="LineNr">32795 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32796" class="LineNr">32796 </span> 0x11/imm32/alloc-id:fake +<span id="L32797" class="LineNr">32797 </span> <a href='mu.subx.html#L33756'>_string-loop-if->=</a>/imm32/name +<span id="L32798" class="LineNr">32798 </span> 0/imm32/no-inouts +<span id="L32799" class="LineNr">32799 </span> 0/imm32/no-inouts +<span id="L32800" class="LineNr">32800 </span> 0/imm32/no-outputs +<span id="L32801" class="LineNr">32801 </span> 0/imm32/no-outputs +<span id="L32802" class="LineNr">32802 </span> 0x11/imm32/alloc-id:fake +<span id="L32803" class="LineNr">32803 </span> <a href='mu.subx.html#L34053'>_string_0f_8d_jump_loop</a>/imm32/subx-name +<span id="L32804" class="LineNr">32804 </span> 0/imm32/no-rm32 +<span id="L32805" class="LineNr">32805 </span> 0/imm32/no-r32 +<span id="L32806" class="LineNr">32806 </span> 0/imm32/no-imm32 +<span id="L32807" class="LineNr">32807 </span> 0/imm32/no-imm8 +<span id="L32808" class="LineNr">32808 </span> 0/imm32/no-disp32 +<span id="L32809" class="LineNr">32809 </span> 0/imm32/no-xm32 +<span id="L32810" class="LineNr">32810 </span> 0/imm32/no-x32 +<span id="L32811" class="LineNr">32811 </span> 0x11/imm32/alloc-id:fake +<span id="L32812" class="LineNr">32812 </span> <a href='mu.subx.html#L32813'>_Primitive-loop-if-<=</a>/imm32/next +<span id="L32813" class="LineNr">32813 </span><span class="subxMinorFunction">_Primitive-loop-if-<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32814" class="LineNr">32814 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32815" class="LineNr">32815 </span> 0x11/imm32/alloc-id:fake +<span id="L32816" class="LineNr">32816 </span> <a href='mu.subx.html#L33741'>_string-loop-if-<=</a>/imm32/name +<span id="L32817" class="LineNr">32817 </span> 0/imm32/no-inouts +<span id="L32818" class="LineNr">32818 </span> 0/imm32/no-inouts +<span id="L32819" class="LineNr">32819 </span> 0/imm32/no-outputs +<span id="L32820" class="LineNr">32820 </span> 0/imm32/no-outputs +<span id="L32821" class="LineNr">32821 </span> 0x11/imm32/alloc-id:fake +<span id="L32822" class="LineNr">32822 </span> <a href='mu.subx.html#L34068'>_string_0f_8e_jump_loop</a>/imm32/subx-name +<span id="L32823" class="LineNr">32823 </span> 0/imm32/no-rm32 +<span id="L32824" class="LineNr">32824 </span> 0/imm32/no-r32 +<span id="L32825" class="LineNr">32825 </span> 0/imm32/no-imm32 +<span id="L32826" class="LineNr">32826 </span> 0/imm32/no-imm8 +<span id="L32827" class="LineNr">32827 </span> 0/imm32/no-disp32 +<span id="L32828" class="LineNr">32828 </span> 0/imm32/no-xm32 +<span id="L32829" class="LineNr">32829 </span> 0/imm32/no-x32 +<span id="L32830" class="LineNr">32830 </span> 0x11/imm32/alloc-id:fake +<span id="L32831" class="LineNr">32831 </span> <a href='mu.subx.html#L32832'>_Primitive-loop-if-></a>/imm32/next +<span id="L32832" class="LineNr">32832 </span><span class="subxMinorFunction">_Primitive-loop-if-></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32833" class="LineNr">32833 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32834" class="LineNr">32834 </span> 0x11/imm32/alloc-id:fake +<span id="L32835" class="LineNr">32835 </span> <a href='mu.subx.html#L33751'>_string-loop-if-></a>/imm32/name +<span id="L32836" class="LineNr">32836 </span> 0/imm32/no-inouts +<span id="L32837" class="LineNr">32837 </span> 0/imm32/no-inouts +<span id="L32838" class="LineNr">32838 </span> 0/imm32/no-outputs +<span id="L32839" class="LineNr">32839 </span> 0/imm32/no-outputs +<span id="L32840" class="LineNr">32840 </span> 0x11/imm32/alloc-id:fake +<span id="L32841" class="LineNr">32841 </span> <a href='mu.subx.html#L34083'>_string_0f_8f_jump_loop</a>/imm32/subx-name +<span id="L32842" class="LineNr">32842 </span> 0/imm32/no-rm32 +<span id="L32843" class="LineNr">32843 </span> 0/imm32/no-r32 +<span id="L32844" class="LineNr">32844 </span> 0/imm32/no-imm32 +<span id="L32845" class="LineNr">32845 </span> 0/imm32/no-imm8 +<span id="L32846" class="LineNr">32846 </span> 0/imm32/no-disp32 +<span id="L32847" class="LineNr">32847 </span> 0/imm32/no-xm32 +<span id="L32848" class="LineNr">32848 </span> 0/imm32/no-x32 +<span id="L32849" class="LineNr">32849 </span> 0x11/imm32/alloc-id:fake +<span id="L32850" class="LineNr">32850 </span> <a href='mu.subx.html#L32851'>_Primitive-loop</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L32851" class="LineNr">32851 </span><span class="subxMinorFunction">_Primitive-loop</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32852" class="LineNr">32852 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32853" class="LineNr">32853 </span> 0x11/imm32/alloc-id:fake +<span id="L32854" class="LineNr">32854 </span> <a href='mu.subx.html#L33731'>_string-loop</a>/imm32/name +<span id="L32855" class="LineNr">32855 </span> 0/imm32/no-inouts +<span id="L32856" class="LineNr">32856 </span> 0/imm32/no-inouts +<span id="L32857" class="LineNr">32857 </span> 0/imm32/no-outputs +<span id="L32858" class="LineNr">32858 </span> 0/imm32/no-outputs +<span id="L32859" class="LineNr">32859 </span> 0x11/imm32/alloc-id:fake +<span id="L32860" class="LineNr">32860 </span> <a href='mu.subx.html#L34388'>_string_e9_jump_loop</a>/imm32/subx-name +<span id="L32861" class="LineNr">32861 </span> 0/imm32/no-rm32 +<span id="L32862" class="LineNr">32862 </span> 0/imm32/no-r32 +<span id="L32863" class="LineNr">32863 </span> 0/imm32/no-imm32 +<span id="L32864" class="LineNr">32864 </span> 0/imm32/no-imm8 +<span id="L32865" class="LineNr">32865 </span> 0/imm32/no-disp32 +<span id="L32866" class="LineNr">32866 </span> 0/imm32/no-xm32 +<span id="L32867" class="LineNr">32867 </span> 0/imm32/no-x32 +<span id="L32868" class="LineNr">32868 </span> 0x11/imm32/alloc-id:fake +<span id="L32869" class="LineNr">32869 </span> <a href='mu.subx.html#L32871'>_Primitive-break-if-addr<-named</a>/imm32/next +<span id="L32870" class="LineNr">32870 </span><span class="subxH1Comment"># - branches to named blocks</span> +<span id="L32871" class="LineNr">32871 </span><span class="subxMinorFunction">_Primitive-break-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32872" class="LineNr">32872 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32873" class="LineNr">32873 </span> 0x11/imm32/alloc-id:fake +<span id="L32874" class="LineNr">32874 </span> <a href='mu.subx.html#L33656'>_string-break-if-addr<</a>/imm32/name +<span id="L32875" class="LineNr">32875 </span> 0x11/imm32/alloc-id:fake +<span id="L32876" class="LineNr">32876 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L32877" class="LineNr">32877 </span> 0/imm32/no-outputs +<span id="L32878" class="LineNr">32878 </span> 0/imm32/no-outputs +<span id="L32879" class="LineNr">32879 </span> 0x11/imm32/alloc-id:fake +<span id="L32880" class="LineNr">32880 </span> <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L32881" class="LineNr">32881 </span> 0/imm32/no-rm32 +<span id="L32882" class="LineNr">32882 </span> 0/imm32/no-r32 +<span id="L32883" class="LineNr">32883 </span> 0/imm32/no-imm32 +<span id="L32884" class="LineNr">32884 </span> 0/imm32/no-imm8 +<span id="L32885" class="LineNr">32885 </span> 1/imm32/disp32-is-first-inout +<span id="L32886" class="LineNr">32886 </span> 0/imm32/no-xm32 +<span id="L32887" class="LineNr">32887 </span> 0/imm32/no-x32 +<span id="L32888" class="LineNr">32888 </span> 0x11/imm32/alloc-id:fake +<span id="L32889" class="LineNr">32889 </span> <a href='mu.subx.html#L32890'>_Primitive-break-if-addr>=-named</a>/imm32/next +<span id="L32890" class="LineNr">32890 </span><span class="subxMinorFunction">_Primitive-break-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32891" class="LineNr">32891 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32892" class="LineNr">32892 </span> 0x11/imm32/alloc-id:fake +<span id="L32893" class="LineNr">32893 </span> <a href='mu.subx.html#L33671'>_string-break-if-addr>=</a>/imm32/name +<span id="L32894" class="LineNr">32894 </span> 0x11/imm32/alloc-id:fake +<span id="L32895" class="LineNr">32895 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L32896" class="LineNr">32896 </span> 0/imm32/no-outputs +<span id="L32897" class="LineNr">32897 </span> 0/imm32/no-outputs +<span id="L32898" class="LineNr">32898 </span> 0x11/imm32/alloc-id:fake +<span id="L32899" class="LineNr">32899 </span> <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L32900" class="LineNr">32900 </span> 0/imm32/no-rm32 +<span id="L32901" class="LineNr">32901 </span> 0/imm32/no-r32 +<span id="L32902" class="LineNr">32902 </span> 0/imm32/no-imm32 +<span id="L32903" class="LineNr">32903 </span> 0/imm32/no-imm8 +<span id="L32904" class="LineNr">32904 </span> 1/imm32/disp32-is-first-inout +<span id="L32905" class="LineNr">32905 </span> 0/imm32/no-xm32 +<span id="L32906" class="LineNr">32906 </span> 0/imm32/no-x32 +<span id="L32907" class="LineNr">32907 </span> 0x11/imm32/alloc-id:fake +<span id="L32908" class="LineNr">32908 </span> <a href='mu.subx.html#L32909'>_Primitive-break-if-=-named</a>/imm32/next +<span id="L32909" class="LineNr">32909 </span><span class="subxMinorFunction">_Primitive-break-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32910" class="LineNr">32910 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32911" class="LineNr">32911 </span> 0x11/imm32/alloc-id:fake +<span id="L32912" class="LineNr">32912 </span> <a href='mu.subx.html#L33636'>_string-break-if-=</a>/imm32/name +<span id="L32913" class="LineNr">32913 </span> 0x11/imm32/alloc-id:fake +<span id="L32914" class="LineNr">32914 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L32915" class="LineNr">32915 </span> 0/imm32/no-outputs +<span id="L32916" class="LineNr">32916 </span> 0/imm32/no-outputs +<span id="L32917" class="LineNr">32917 </span> 0x11/imm32/alloc-id:fake +<span id="L32918" class="LineNr">32918 </span> <a href='mu.subx.html#L33968'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L32919" class="LineNr">32919 </span> 0/imm32/no-rm32 +<span id="L32920" class="LineNr">32920 </span> 0/imm32/no-r32 +<span id="L32921" class="LineNr">32921 </span> 0/imm32/no-imm32 +<span id="L32922" class="LineNr">32922 </span> 0/imm32/no-imm8 +<span id="L32923" class="LineNr">32923 </span> 1/imm32/disp32-is-first-inout +<span id="L32924" class="LineNr">32924 </span> 0/imm32/no-xm32 +<span id="L32925" class="LineNr">32925 </span> 0/imm32/no-x32 +<span id="L32926" class="LineNr">32926 </span> 0x11/imm32/alloc-id:fake +<span id="L32927" class="LineNr">32927 </span> <a href='mu.subx.html#L32928'>_Primitive-break-if-!=-named</a>/imm32/next +<span id="L32928" class="LineNr">32928 </span><span class="subxMinorFunction">_Primitive-break-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32929" class="LineNr">32929 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32930" class="LineNr">32930 </span> 0x11/imm32/alloc-id:fake +<span id="L32931" class="LineNr">32931 </span> <a href='mu.subx.html#L33651'>_string-break-if-!=</a>/imm32/name +<span id="L32932" class="LineNr">32932 </span> 0x11/imm32/alloc-id:fake +<span id="L32933" class="LineNr">32933 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L32934" class="LineNr">32934 </span> 0/imm32/no-outputs +<span id="L32935" class="LineNr">32935 </span> 0/imm32/no-outputs +<span id="L32936" class="LineNr">32936 </span> 0x11/imm32/alloc-id:fake +<span id="L32937" class="LineNr">32937 </span> <a href='mu.subx.html#L33983'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L32938" class="LineNr">32938 </span> 0/imm32/no-rm32 +<span id="L32939" class="LineNr">32939 </span> 0/imm32/no-r32 +<span id="L32940" class="LineNr">32940 </span> 0/imm32/no-imm32 +<span id="L32941" class="LineNr">32941 </span> 0/imm32/no-imm8 +<span id="L32942" class="LineNr">32942 </span> 1/imm32/disp32-is-first-inout +<span id="L32943" class="LineNr">32943 </span> 0/imm32/no-xm32 +<span id="L32944" class="LineNr">32944 </span> 0/imm32/no-x32 +<span id="L32945" class="LineNr">32945 </span> 0x11/imm32/alloc-id:fake +<span id="L32946" class="LineNr">32946 </span> <a href='mu.subx.html#L32947'>_Primitive-break-if-addr<=-named</a>/imm32/next +<span id="L32947" class="LineNr">32947 </span><span class="subxMinorFunction">_Primitive-break-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32948" class="LineNr">32948 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32949" class="LineNr">32949 </span> 0x11/imm32/alloc-id:fake +<span id="L32950" class="LineNr">32950 </span> <a href='mu.subx.html#L33661'>_string-break-if-addr<=</a>/imm32/name +<span id="L32951" class="LineNr">32951 </span> 0x11/imm32/alloc-id:fake +<span id="L32952" class="LineNr">32952 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L32953" class="LineNr">32953 </span> 0/imm32/no-outputs +<span id="L32954" class="LineNr">32954 </span> 0/imm32/no-outputs +<span id="L32955" class="LineNr">32955 </span> 0x11/imm32/alloc-id:fake +<span id="L32956" class="LineNr">32956 </span> <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L32957" class="LineNr">32957 </span> 0/imm32/no-rm32 +<span id="L32958" class="LineNr">32958 </span> 0/imm32/no-r32 +<span id="L32959" class="LineNr">32959 </span> 0/imm32/no-imm32 +<span id="L32960" class="LineNr">32960 </span> 0/imm32/no-imm8 +<span id="L32961" class="LineNr">32961 </span> 1/imm32/disp32-is-first-inout +<span id="L32962" class="LineNr">32962 </span> 0/imm32/no-xm32 +<span id="L32963" class="LineNr">32963 </span> 0/imm32/no-x32 +<span id="L32964" class="LineNr">32964 </span> 0x11/imm32/alloc-id:fake +<span id="L32965" class="LineNr">32965 </span> <a href='mu.subx.html#L32966'>_Primitive-break-if-addr>-named</a>/imm32/next +<span id="L32966" class="LineNr">32966 </span><span class="subxMinorFunction">_Primitive-break-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32967" class="LineNr">32967 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32968" class="LineNr">32968 </span> 0x11/imm32/alloc-id:fake +<span id="L32969" class="LineNr">32969 </span> <a href='mu.subx.html#L33666'>_string-break-if-addr></a>/imm32/name +<span id="L32970" class="LineNr">32970 </span> 0x11/imm32/alloc-id:fake +<span id="L32971" class="LineNr">32971 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L32972" class="LineNr">32972 </span> 0/imm32/no-outputs +<span id="L32973" class="LineNr">32973 </span> 0/imm32/no-outputs +<span id="L32974" class="LineNr">32974 </span> 0x11/imm32/alloc-id:fake +<span id="L32975" class="LineNr">32975 </span> <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L32976" class="LineNr">32976 </span> 0/imm32/no-rm32 +<span id="L32977" class="LineNr">32977 </span> 0/imm32/no-r32 +<span id="L32978" class="LineNr">32978 </span> 0/imm32/no-imm32 +<span id="L32979" class="LineNr">32979 </span> 0/imm32/no-imm8 +<span id="L32980" class="LineNr">32980 </span> 1/imm32/disp32-is-first-inout +<span id="L32981" class="LineNr">32981 </span> 0/imm32/no-xm32 +<span id="L32982" class="LineNr">32982 </span> 0/imm32/no-x32 +<span id="L32983" class="LineNr">32983 </span> 0x11/imm32/alloc-id:fake +<span id="L32984" class="LineNr">32984 </span> <a href='mu.subx.html#L32985'>_Primitive-break-if-<-named</a>/imm32/next +<span id="L32985" class="LineNr">32985 </span><span class="subxMinorFunction">_Primitive-break-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L32986" class="LineNr">32986 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L32987" class="LineNr">32987 </span> 0x11/imm32/alloc-id:fake +<span id="L32988" class="LineNr">32988 </span> <a href='mu.subx.html#L33626'>_string-break-if-<</a>/imm32/name +<span id="L32989" class="LineNr">32989 </span> 0x11/imm32/alloc-id:fake +<span id="L32990" class="LineNr">32990 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L32991" class="LineNr">32991 </span> 0/imm32/no-outputs +<span id="L32992" class="LineNr">32992 </span> 0/imm32/no-outputs +<span id="L32993" class="LineNr">32993 </span> 0x11/imm32/alloc-id:fake +<span id="L32994" class="LineNr">32994 </span> <a href='mu.subx.html#L34028'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L32995" class="LineNr">32995 </span> 0/imm32/no-rm32 +<span id="L32996" class="LineNr">32996 </span> 0/imm32/no-r32 +<span id="L32997" class="LineNr">32997 </span> 0/imm32/no-imm32 +<span id="L32998" class="LineNr">32998 </span> 0/imm32/no-imm8 +<span id="L32999" class="LineNr">32999 </span> 1/imm32/disp32-is-first-inout +<span id="L33000" class="LineNr">33000 </span> 0/imm32/no-xm32 +<span id="L33001" class="LineNr">33001 </span> 0/imm32/no-x32 +<span id="L33002" class="LineNr">33002 </span> 0x11/imm32/alloc-id:fake +<span id="L33003" class="LineNr">33003 </span> <a href='mu.subx.html#L33004'>_Primitive-break-if->=-named</a>/imm32/next +<span id="L33004" class="LineNr">33004 </span><span class="subxMinorFunction">_Primitive-break-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33005" class="LineNr">33005 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33006" class="LineNr">33006 </span> 0x11/imm32/alloc-id:fake +<span id="L33007" class="LineNr">33007 </span> <a href='mu.subx.html#L33646'>_string-break-if->=</a>/imm32/name +<span id="L33008" class="LineNr">33008 </span> 0x11/imm32/alloc-id:fake +<span id="L33009" class="LineNr">33009 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33010" class="LineNr">33010 </span> 0/imm32/no-outputs +<span id="L33011" class="LineNr">33011 </span> 0/imm32/no-outputs +<span id="L33012" class="LineNr">33012 </span> 0x11/imm32/alloc-id:fake +<span id="L33013" class="LineNr">33013 </span> <a href='mu.subx.html#L34043'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L33014" class="LineNr">33014 </span> 0/imm32/no-rm32 +<span id="L33015" class="LineNr">33015 </span> 0/imm32/no-r32 +<span id="L33016" class="LineNr">33016 </span> 0/imm32/no-imm32 +<span id="L33017" class="LineNr">33017 </span> 0/imm32/no-imm8 +<span id="L33018" class="LineNr">33018 </span> 1/imm32/disp32-is-first-inout +<span id="L33019" class="LineNr">33019 </span> 0/imm32/no-xm32 +<span id="L33020" class="LineNr">33020 </span> 0/imm32/no-x32 +<span id="L33021" class="LineNr">33021 </span> 0x11/imm32/alloc-id:fake +<span id="L33022" class="LineNr">33022 </span> <a href='mu.subx.html#L33023'>_Primitive-break-if-<=-named</a>/imm32/next +<span id="L33023" class="LineNr">33023 </span><span class="subxMinorFunction">_Primitive-break-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33024" class="LineNr">33024 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33025" class="LineNr">33025 </span> 0x11/imm32/alloc-id:fake +<span id="L33026" class="LineNr">33026 </span> <a href='mu.subx.html#L33631'>_string-break-if-<=</a>/imm32/name +<span id="L33027" class="LineNr">33027 </span> 0x11/imm32/alloc-id:fake +<span id="L33028" class="LineNr">33028 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33029" class="LineNr">33029 </span> 0/imm32/no-outputs +<span id="L33030" class="LineNr">33030 </span> 0/imm32/no-outputs +<span id="L33031" class="LineNr">33031 </span> 0x11/imm32/alloc-id:fake +<span id="L33032" class="LineNr">33032 </span> <a href='mu.subx.html#L34058'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L33033" class="LineNr">33033 </span> 0/imm32/no-rm32 +<span id="L33034" class="LineNr">33034 </span> 0/imm32/no-r32 +<span id="L33035" class="LineNr">33035 </span> 0/imm32/no-imm32 +<span id="L33036" class="LineNr">33036 </span> 0/imm32/no-imm8 +<span id="L33037" class="LineNr">33037 </span> 1/imm32/disp32-is-first-inout +<span id="L33038" class="LineNr">33038 </span> 0/imm32/no-xm32 +<span id="L33039" class="LineNr">33039 </span> 0/imm32/no-x32 +<span id="L33040" class="LineNr">33040 </span> 0x11/imm32/alloc-id:fake +<span id="L33041" class="LineNr">33041 </span> <a href='mu.subx.html#L33042'>_Primitive-break-if->-named</a>/imm32/next +<span id="L33042" class="LineNr">33042 </span><span class="subxMinorFunction">_Primitive-break-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33043" class="LineNr">33043 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33044" class="LineNr">33044 </span> 0x11/imm32/alloc-id:fake +<span id="L33045" class="LineNr">33045 </span> <a href='mu.subx.html#L33641'>_string-break-if-></a>/imm32/name +<span id="L33046" class="LineNr">33046 </span> 0x11/imm32/alloc-id:fake +<span id="L33047" class="LineNr">33047 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33048" class="LineNr">33048 </span> 0/imm32/no-outputs +<span id="L33049" class="LineNr">33049 </span> 0/imm32/no-outputs +<span id="L33050" class="LineNr">33050 </span> 0x11/imm32/alloc-id:fake +<span id="L33051" class="LineNr">33051 </span> <a href='mu.subx.html#L34073'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L33052" class="LineNr">33052 </span> 0/imm32/no-rm32 +<span id="L33053" class="LineNr">33053 </span> 0/imm32/no-r32 +<span id="L33054" class="LineNr">33054 </span> 0/imm32/no-imm32 +<span id="L33055" class="LineNr">33055 </span> 0/imm32/no-imm8 +<span id="L33056" class="LineNr">33056 </span> 1/imm32/disp32-is-first-inout +<span id="L33057" class="LineNr">33057 </span> 0/imm32/no-xm32 +<span id="L33058" class="LineNr">33058 </span> 0/imm32/no-x32 +<span id="L33059" class="LineNr">33059 </span> 0x11/imm32/alloc-id:fake +<span id="L33060" class="LineNr">33060 </span> <a href='mu.subx.html#L33061'>_Primitive-break-named</a>/imm32/next +<span id="L33061" class="LineNr">33061 </span><span class="subxMinorFunction">_Primitive-break-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33062" class="LineNr">33062 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33063" class="LineNr">33063 </span> 0x11/imm32/alloc-id:fake +<span id="L33064" class="LineNr">33064 </span> <a href='mu.subx.html#L33621'>_string-break</a>/imm32/name +<span id="L33065" class="LineNr">33065 </span> 0x11/imm32/alloc-id:fake +<span id="L33066" class="LineNr">33066 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33067" class="LineNr">33067 </span> 0/imm32/no-outputs +<span id="L33068" class="LineNr">33068 </span> 0/imm32/no-outputs +<span id="L33069" class="LineNr">33069 </span> 0x11/imm32/alloc-id:fake +<span id="L33070" class="LineNr">33070 </span> <a href='mu.subx.html#L34378'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L33071" class="LineNr">33071 </span> 0/imm32/no-rm32 +<span id="L33072" class="LineNr">33072 </span> 0/imm32/no-r32 +<span id="L33073" class="LineNr">33073 </span> 0/imm32/no-imm32 +<span id="L33074" class="LineNr">33074 </span> 0/imm32/no-imm8 +<span id="L33075" class="LineNr">33075 </span> 1/imm32/disp32-is-first-inout +<span id="L33076" class="LineNr">33076 </span> 0/imm32/no-xm32 +<span id="L33077" class="LineNr">33077 </span> 0/imm32/no-x32 +<span id="L33078" class="LineNr">33078 </span> 0x11/imm32/alloc-id:fake +<span id="L33079" class="LineNr">33079 </span> <a href='mu.subx.html#L33080'>_Primitive-loop-if-addr<-named</a>/imm32/next +<span id="L33080" class="LineNr">33080 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33081" class="LineNr">33081 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33082" class="LineNr">33082 </span> 0x11/imm32/alloc-id:fake +<span id="L33083" class="LineNr">33083 </span> <a href='mu.subx.html#L33766'>_string-loop-if-addr<</a>/imm32/name +<span id="L33084" class="LineNr">33084 </span> 0x11/imm32/alloc-id:fake +<span id="L33085" class="LineNr">33085 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33086" class="LineNr">33086 </span> 0/imm32/no-outputs +<span id="L33087" class="LineNr">33087 </span> 0/imm32/no-outputs +<span id="L33088" class="LineNr">33088 </span> 0x11/imm32/alloc-id:fake +<span id="L33089" class="LineNr">33089 </span> <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33090" class="LineNr">33090 </span> 0/imm32/no-rm32 +<span id="L33091" class="LineNr">33091 </span> 0/imm32/no-r32 +<span id="L33092" class="LineNr">33092 </span> 0/imm32/no-imm32 +<span id="L33093" class="LineNr">33093 </span> 0/imm32/no-imm8 +<span id="L33094" class="LineNr">33094 </span> 1/imm32/disp32-is-first-inout +<span id="L33095" class="LineNr">33095 </span> 0/imm32/no-xm32 +<span id="L33096" class="LineNr">33096 </span> 0/imm32/no-x32 +<span id="L33097" class="LineNr">33097 </span> 0x11/imm32/alloc-id:fake +<span id="L33098" class="LineNr">33098 </span> <a href='mu.subx.html#L33099'>_Primitive-loop-if-addr>=-named</a>/imm32/next +<span id="L33099" class="LineNr">33099 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33100" class="LineNr">33100 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33101" class="LineNr">33101 </span> 0x11/imm32/alloc-id:fake +<span id="L33102" class="LineNr">33102 </span> <a href='mu.subx.html#L33781'>_string-loop-if-addr>=</a>/imm32/name +<span id="L33103" class="LineNr">33103 </span> 0x11/imm32/alloc-id:fake +<span id="L33104" class="LineNr">33104 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33105" class="LineNr">33105 </span> 0/imm32/no-outputs +<span id="L33106" class="LineNr">33106 </span> 0/imm32/no-outputs +<span id="L33107" class="LineNr">33107 </span> 0x11/imm32/alloc-id:fake +<span id="L33108" class="LineNr">33108 </span> <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33109" class="LineNr">33109 </span> 0/imm32/no-rm32 +<span id="L33110" class="LineNr">33110 </span> 0/imm32/no-r32 +<span id="L33111" class="LineNr">33111 </span> 0/imm32/no-imm32 +<span id="L33112" class="LineNr">33112 </span> 0/imm32/no-imm8 +<span id="L33113" class="LineNr">33113 </span> 1/imm32/disp32-is-first-inout +<span id="L33114" class="LineNr">33114 </span> 0/imm32/no-xm32 +<span id="L33115" class="LineNr">33115 </span> 0/imm32/no-x32 +<span id="L33116" class="LineNr">33116 </span> 0x11/imm32/alloc-id:fake +<span id="L33117" class="LineNr">33117 </span> <a href='mu.subx.html#L33118'>_Primitive-loop-if-=-named</a>/imm32/next +<span id="L33118" class="LineNr">33118 </span><span class="subxMinorFunction">_Primitive-loop-if-=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33119" class="LineNr">33119 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33120" class="LineNr">33120 </span> 0x11/imm32/alloc-id:fake +<span id="L33121" class="LineNr">33121 </span> <a href='mu.subx.html#L33746'>_string-loop-if-=</a>/imm32/name +<span id="L33122" class="LineNr">33122 </span> 0x11/imm32/alloc-id:fake +<span id="L33123" class="LineNr">33123 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33124" class="LineNr">33124 </span> 0/imm32/no-outputs +<span id="L33125" class="LineNr">33125 </span> 0/imm32/no-outputs +<span id="L33126" class="LineNr">33126 </span> 0x11/imm32/alloc-id:fake +<span id="L33127" class="LineNr">33127 </span> <a href='mu.subx.html#L33968'>_string_0f_84_jump_label</a>/imm32/subx-name +<span id="L33128" class="LineNr">33128 </span> 0/imm32/no-rm32 +<span id="L33129" class="LineNr">33129 </span> 0/imm32/no-r32 +<span id="L33130" class="LineNr">33130 </span> 0/imm32/no-imm32 +<span id="L33131" class="LineNr">33131 </span> 0/imm32/no-imm8 +<span id="L33132" class="LineNr">33132 </span> 1/imm32/disp32-is-first-inout +<span id="L33133" class="LineNr">33133 </span> 0/imm32/no-xm32 +<span id="L33134" class="LineNr">33134 </span> 0/imm32/no-x32 +<span id="L33135" class="LineNr">33135 </span> 0x11/imm32/alloc-id:fake +<span id="L33136" class="LineNr">33136 </span> <a href='mu.subx.html#L33137'>_Primitive-loop-if-!=-named</a>/imm32/next +<span id="L33137" class="LineNr">33137 </span><span class="subxMinorFunction">_Primitive-loop-if-!=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33138" class="LineNr">33138 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33139" class="LineNr">33139 </span> 0x11/imm32/alloc-id:fake +<span id="L33140" class="LineNr">33140 </span> <a href='mu.subx.html#L33761'>_string-loop-if-!=</a>/imm32/name +<span id="L33141" class="LineNr">33141 </span> 0x11/imm32/alloc-id:fake +<span id="L33142" class="LineNr">33142 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33143" class="LineNr">33143 </span> 0/imm32/no-outputs +<span id="L33144" class="LineNr">33144 </span> 0/imm32/no-outputs +<span id="L33145" class="LineNr">33145 </span> 0x11/imm32/alloc-id:fake +<span id="L33146" class="LineNr">33146 </span> <a href='mu.subx.html#L33983'>_string_0f_85_jump_label</a>/imm32/subx-name +<span id="L33147" class="LineNr">33147 </span> 0/imm32/no-rm32 +<span id="L33148" class="LineNr">33148 </span> 0/imm32/no-r32 +<span id="L33149" class="LineNr">33149 </span> 0/imm32/no-imm32 +<span id="L33150" class="LineNr">33150 </span> 0/imm32/no-imm8 +<span id="L33151" class="LineNr">33151 </span> 1/imm32/disp32-is-first-inout +<span id="L33152" class="LineNr">33152 </span> 0/imm32/no-xm32 +<span id="L33153" class="LineNr">33153 </span> 0/imm32/no-x32 +<span id="L33154" class="LineNr">33154 </span> 0x11/imm32/alloc-id:fake +<span id="L33155" class="LineNr">33155 </span> <a href='mu.subx.html#L33156'>_Primitive-loop-if-addr<=-named</a>/imm32/next +<span id="L33156" class="LineNr">33156 </span><span class="subxMinorFunction">_Primitive-loop-if-addr<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33157" class="LineNr">33157 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33158" class="LineNr">33158 </span> 0x11/imm32/alloc-id:fake +<span id="L33159" class="LineNr">33159 </span> <a href='mu.subx.html#L33771'>_string-loop-if-addr<=</a>/imm32/name +<span id="L33160" class="LineNr">33160 </span> 0x11/imm32/alloc-id:fake +<span id="L33161" class="LineNr">33161 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33162" class="LineNr">33162 </span> 0/imm32/no-outputs +<span id="L33163" class="LineNr">33163 </span> 0/imm32/no-outputs +<span id="L33164" class="LineNr">33164 </span> 0x11/imm32/alloc-id:fake +<span id="L33165" class="LineNr">33165 </span> <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33166" class="LineNr">33166 </span> 0/imm32/no-rm32 +<span id="L33167" class="LineNr">33167 </span> 0/imm32/no-r32 +<span id="L33168" class="LineNr">33168 </span> 0/imm32/no-imm32 +<span id="L33169" class="LineNr">33169 </span> 0/imm32/no-imm8 +<span id="L33170" class="LineNr">33170 </span> 1/imm32/disp32-is-first-inout +<span id="L33171" class="LineNr">33171 </span> 0/imm32/no-xm32 +<span id="L33172" class="LineNr">33172 </span> 0/imm32/no-x32 +<span id="L33173" class="LineNr">33173 </span> 0x11/imm32/alloc-id:fake +<span id="L33174" class="LineNr">33174 </span> <a href='mu.subx.html#L33175'>_Primitive-loop-if-addr>-named</a>/imm32/next +<span id="L33175" class="LineNr">33175 </span><span class="subxMinorFunction">_Primitive-loop-if-addr>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33176" class="LineNr">33176 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33177" class="LineNr">33177 </span> 0x11/imm32/alloc-id:fake +<span id="L33178" class="LineNr">33178 </span> <a href='mu.subx.html#L33776'>_string-loop-if-addr></a>/imm32/name +<span id="L33179" class="LineNr">33179 </span> 0x11/imm32/alloc-id:fake +<span id="L33180" class="LineNr">33180 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33181" class="LineNr">33181 </span> 0/imm32/no-outputs +<span id="L33182" class="LineNr">33182 </span> 0/imm32/no-outputs +<span id="L33183" class="LineNr">33183 </span> 0x11/imm32/alloc-id:fake +<span id="L33184" class="LineNr">33184 </span> <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33185" class="LineNr">33185 </span> 0/imm32/no-rm32 +<span id="L33186" class="LineNr">33186 </span> 0/imm32/no-r32 +<span id="L33187" class="LineNr">33187 </span> 0/imm32/no-imm32 +<span id="L33188" class="LineNr">33188 </span> 0/imm32/no-imm8 +<span id="L33189" class="LineNr">33189 </span> 1/imm32/disp32-is-first-inout +<span id="L33190" class="LineNr">33190 </span> 0/imm32/no-xm32 +<span id="L33191" class="LineNr">33191 </span> 0/imm32/no-x32 +<span id="L33192" class="LineNr">33192 </span> 0x11/imm32/alloc-id:fake +<span id="L33193" class="LineNr">33193 </span> <a href='mu.subx.html#L33194'>_Primitive-loop-if-<-named</a>/imm32/next +<span id="L33194" class="LineNr">33194 </span><span class="subxMinorFunction">_Primitive-loop-if-<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33195" class="LineNr">33195 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33196" class="LineNr">33196 </span> 0x11/imm32/alloc-id:fake +<span id="L33197" class="LineNr">33197 </span> <a href='mu.subx.html#L33736'>_string-loop-if-<</a>/imm32/name +<span id="L33198" class="LineNr">33198 </span> 0x11/imm32/alloc-id:fake +<span id="L33199" class="LineNr">33199 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33200" class="LineNr">33200 </span> 0/imm32/no-outputs +<span id="L33201" class="LineNr">33201 </span> 0/imm32/no-outputs +<span id="L33202" class="LineNr">33202 </span> 0x11/imm32/alloc-id:fake +<span id="L33203" class="LineNr">33203 </span> <a href='mu.subx.html#L34028'>_string_0f_8c_jump_label</a>/imm32/subx-name +<span id="L33204" class="LineNr">33204 </span> 0/imm32/no-rm32 +<span id="L33205" class="LineNr">33205 </span> 0/imm32/no-r32 +<span id="L33206" class="LineNr">33206 </span> 0/imm32/no-imm32 +<span id="L33207" class="LineNr">33207 </span> 0/imm32/no-imm8 +<span id="L33208" class="LineNr">33208 </span> 1/imm32/disp32-is-first-inout +<span id="L33209" class="LineNr">33209 </span> 0/imm32/no-xm32 +<span id="L33210" class="LineNr">33210 </span> 0/imm32/no-x32 +<span id="L33211" class="LineNr">33211 </span> 0x11/imm32/alloc-id:fake +<span id="L33212" class="LineNr">33212 </span> <a href='mu.subx.html#L33213'>_Primitive-loop-if->=-named</a>/imm32/next +<span id="L33213" class="LineNr">33213 </span><span class="subxMinorFunction">_Primitive-loop-if->=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33214" class="LineNr">33214 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33215" class="LineNr">33215 </span> 0x11/imm32/alloc-id:fake +<span id="L33216" class="LineNr">33216 </span> <a href='mu.subx.html#L33756'>_string-loop-if->=</a>/imm32/name +<span id="L33217" class="LineNr">33217 </span> 0x11/imm32/alloc-id:fake +<span id="L33218" class="LineNr">33218 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33219" class="LineNr">33219 </span> 0/imm32/no-outputs +<span id="L33220" class="LineNr">33220 </span> 0/imm32/no-outputs +<span id="L33221" class="LineNr">33221 </span> 0x11/imm32/alloc-id:fake +<span id="L33222" class="LineNr">33222 </span> <a href='mu.subx.html#L34043'>_string_0f_8d_jump_label</a>/imm32/subx-name +<span id="L33223" class="LineNr">33223 </span> 0/imm32/no-rm32 +<span id="L33224" class="LineNr">33224 </span> 0/imm32/no-r32 +<span id="L33225" class="LineNr">33225 </span> 0/imm32/no-imm32 +<span id="L33226" class="LineNr">33226 </span> 0/imm32/no-imm8 +<span id="L33227" class="LineNr">33227 </span> 1/imm32/disp32-is-first-inout +<span id="L33228" class="LineNr">33228 </span> 0/imm32/no-xm32 +<span id="L33229" class="LineNr">33229 </span> 0/imm32/no-x32 +<span id="L33230" class="LineNr">33230 </span> 0x11/imm32/alloc-id:fake +<span id="L33231" class="LineNr">33231 </span> <a href='mu.subx.html#L33232'>_Primitive-loop-if-<=-named</a>/imm32/next +<span id="L33232" class="LineNr">33232 </span><span class="subxMinorFunction">_Primitive-loop-if-<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33233" class="LineNr">33233 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33234" class="LineNr">33234 </span> 0x11/imm32/alloc-id:fake +<span id="L33235" class="LineNr">33235 </span> <a href='mu.subx.html#L33741'>_string-loop-if-<=</a>/imm32/name +<span id="L33236" class="LineNr">33236 </span> 0x11/imm32/alloc-id:fake +<span id="L33237" class="LineNr">33237 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33238" class="LineNr">33238 </span> 0/imm32/no-outputs +<span id="L33239" class="LineNr">33239 </span> 0/imm32/no-outputs +<span id="L33240" class="LineNr">33240 </span> 0x11/imm32/alloc-id:fake +<span id="L33241" class="LineNr">33241 </span> <a href='mu.subx.html#L34058'>_string_0f_8e_jump_label</a>/imm32/subx-name +<span id="L33242" class="LineNr">33242 </span> 0/imm32/no-rm32 +<span id="L33243" class="LineNr">33243 </span> 0/imm32/no-r32 +<span id="L33244" class="LineNr">33244 </span> 0/imm32/no-imm32 +<span id="L33245" class="LineNr">33245 </span> 0/imm32/no-imm8 +<span id="L33246" class="LineNr">33246 </span> 1/imm32/disp32-is-first-inout +<span id="L33247" class="LineNr">33247 </span> 0/imm32/no-xm32 +<span id="L33248" class="LineNr">33248 </span> 0/imm32/no-x32 +<span id="L33249" class="LineNr">33249 </span> 0x11/imm32/alloc-id:fake +<span id="L33250" class="LineNr">33250 </span> <a href='mu.subx.html#L33251'>_Primitive-loop-if->-named</a>/imm32/next +<span id="L33251" class="LineNr">33251 </span><span class="subxMinorFunction">_Primitive-loop-if->-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33252" class="LineNr">33252 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33253" class="LineNr">33253 </span> 0x11/imm32/alloc-id:fake +<span id="L33254" class="LineNr">33254 </span> <a href='mu.subx.html#L33751'>_string-loop-if-></a>/imm32/name +<span id="L33255" class="LineNr">33255 </span> 0x11/imm32/alloc-id:fake +<span id="L33256" class="LineNr">33256 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33257" class="LineNr">33257 </span> 0/imm32/no-outputs +<span id="L33258" class="LineNr">33258 </span> 0/imm32/no-outputs +<span id="L33259" class="LineNr">33259 </span> 0x11/imm32/alloc-id:fake +<span id="L33260" class="LineNr">33260 </span> <a href='mu.subx.html#L34073'>_string_0f_8f_jump_label</a>/imm32/subx-name +<span id="L33261" class="LineNr">33261 </span> 0/imm32/no-rm32 +<span id="L33262" class="LineNr">33262 </span> 0/imm32/no-r32 +<span id="L33263" class="LineNr">33263 </span> 0/imm32/no-imm32 +<span id="L33264" class="LineNr">33264 </span> 0/imm32/no-imm8 +<span id="L33265" class="LineNr">33265 </span> 1/imm32/disp32-is-first-inout +<span id="L33266" class="LineNr">33266 </span> 0/imm32/no-xm32 +<span id="L33267" class="LineNr">33267 </span> 0/imm32/no-x32 +<span id="L33268" class="LineNr">33268 </span> 0x11/imm32/alloc-id:fake +<span id="L33269" class="LineNr">33269 </span> <a href='mu.subx.html#L33270'>_Primitive-loop-named</a>/imm32/next <span class="subxComment"># we probably don't need an unconditional break</span> +<span id="L33270" class="LineNr">33270 </span><span class="subxMinorFunction">_Primitive-loop-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33271" class="LineNr">33271 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33272" class="LineNr">33272 </span> 0x11/imm32/alloc-id:fake +<span id="L33273" class="LineNr">33273 </span> <a href='mu.subx.html#L33731'>_string-loop</a>/imm32/name +<span id="L33274" class="LineNr">33274 </span> 0x11/imm32/alloc-id:fake +<span id="L33275" class="LineNr">33275 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33276" class="LineNr">33276 </span> 0/imm32/no-outputs +<span id="L33277" class="LineNr">33277 </span> 0/imm32/no-outputs +<span id="L33278" class="LineNr">33278 </span> 0x11/imm32/alloc-id:fake +<span id="L33279" class="LineNr">33279 </span> <a href='mu.subx.html#L34378'>_string_e9_jump_label</a>/imm32/subx-name +<span id="L33280" class="LineNr">33280 </span> 0/imm32/no-rm32 +<span id="L33281" class="LineNr">33281 </span> 0/imm32/no-r32 +<span id="L33282" class="LineNr">33282 </span> 0/imm32/no-imm32 +<span id="L33283" class="LineNr">33283 </span> 0/imm32/no-imm8 +<span id="L33284" class="LineNr">33284 </span> 1/imm32/disp32-is-first-inout +<span id="L33285" class="LineNr">33285 </span> 0/imm32/no-xm32 +<span id="L33286" class="LineNr">33286 </span> 0/imm32/no-x32 +<span id="L33287" class="LineNr">33287 </span> 0x11/imm32/alloc-id:fake +<span id="L33288" class="LineNr">33288 </span> <a href='mu.subx.html#L33290'>_Primitive-break-if-float<</a>/imm32/next +<span id="L33289" class="LineNr">33289 </span><span class="subxH1Comment"># - branches based on floating-point comparisons</span> +<span id="L33290" class="LineNr">33290 </span><span class="subxMinorFunction">_Primitive-break-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33291" class="LineNr">33291 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33292" class="LineNr">33292 </span> 0x11/imm32/alloc-id:fake +<span id="L33293" class="LineNr">33293 </span> <a href='mu.subx.html#L33676'>_string-break-if-float<</a>/imm32/name +<span id="L33294" class="LineNr">33294 </span> 0/imm32/no-inouts +<span id="L33295" class="LineNr">33295 </span> 0/imm32/no-inouts +<span id="L33296" class="LineNr">33296 </span> 0/imm32/no-outputs +<span id="L33297" class="LineNr">33297 </span> 0/imm32/no-outputs +<span id="L33298" class="LineNr">33298 </span> 0x11/imm32/alloc-id:fake +<span id="L33299" class="LineNr">33299 </span> <a href='mu.subx.html#L33943'>_string_0f_82_jump_break</a>/imm32/subx-name +<span id="L33300" class="LineNr">33300 </span> 0/imm32/no-rm32 +<span id="L33301" class="LineNr">33301 </span> 0/imm32/no-r32 +<span id="L33302" class="LineNr">33302 </span> 0/imm32/no-imm32 +<span id="L33303" class="LineNr">33303 </span> 0/imm32/no-imm8 +<span id="L33304" class="LineNr">33304 </span> 0/imm32/no-disp32 +<span id="L33305" class="LineNr">33305 </span> 0/imm32/no-xm32 +<span id="L33306" class="LineNr">33306 </span> 0/imm32/no-x32 +<span id="L33307" class="LineNr">33307 </span> 0x11/imm32/alloc-id:fake +<span id="L33308" class="LineNr">33308 </span> <a href='mu.subx.html#L33309'>_Primitive-break-if-float>=</a>/imm32/next +<span id="L33309" class="LineNr">33309 </span><span class="subxMinorFunction">_Primitive-break-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33310" class="LineNr">33310 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33311" class="LineNr">33311 </span> 0x11/imm32/alloc-id:fake +<span id="L33312" class="LineNr">33312 </span> <a href='mu.subx.html#L33691'>_string-break-if-float>=</a>/imm32/name +<span id="L33313" class="LineNr">33313 </span> 0/imm32/no-inouts +<span id="L33314" class="LineNr">33314 </span> 0/imm32/no-inouts +<span id="L33315" class="LineNr">33315 </span> 0/imm32/no-outputs +<span id="L33316" class="LineNr">33316 </span> 0/imm32/no-outputs +<span id="L33317" class="LineNr">33317 </span> 0x11/imm32/alloc-id:fake +<span id="L33318" class="LineNr">33318 </span> <a href='mu.subx.html#L33958'>_string_0f_83_jump_break</a>/imm32/subx-name +<span id="L33319" class="LineNr">33319 </span> 0/imm32/no-rm32 +<span id="L33320" class="LineNr">33320 </span> 0/imm32/no-r32 +<span id="L33321" class="LineNr">33321 </span> 0/imm32/no-imm32 +<span id="L33322" class="LineNr">33322 </span> 0/imm32/no-imm8 +<span id="L33323" class="LineNr">33323 </span> 0/imm32/no-disp32 +<span id="L33324" class="LineNr">33324 </span> 0/imm32/no-xm32 +<span id="L33325" class="LineNr">33325 </span> 0/imm32/no-x32 +<span id="L33326" class="LineNr">33326 </span> 0x11/imm32/alloc-id:fake +<span id="L33327" class="LineNr">33327 </span> <a href='mu.subx.html#L33328'>_Primitive-break-if-float<=</a>/imm32/next +<span id="L33328" class="LineNr">33328 </span><span class="subxMinorFunction">_Primitive-break-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33329" class="LineNr">33329 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33330" class="LineNr">33330 </span> 0x11/imm32/alloc-id:fake +<span id="L33331" class="LineNr">33331 </span> <a href='mu.subx.html#L33681'>_string-break-if-float<=</a>/imm32/name +<span id="L33332" class="LineNr">33332 </span> 0/imm32/no-inouts +<span id="L33333" class="LineNr">33333 </span> 0/imm32/no-inouts +<span id="L33334" class="LineNr">33334 </span> 0/imm32/no-outputs +<span id="L33335" class="LineNr">33335 </span> 0/imm32/no-outputs +<span id="L33336" class="LineNr">33336 </span> 0x11/imm32/alloc-id:fake +<span id="L33337" class="LineNr">33337 </span> <a href='mu.subx.html#L34003'>_string_0f_86_jump_break</a>/imm32/subx-name +<span id="L33338" class="LineNr">33338 </span> 0/imm32/no-rm32 +<span id="L33339" class="LineNr">33339 </span> 0/imm32/no-r32 +<span id="L33340" class="LineNr">33340 </span> 0/imm32/no-imm32 +<span id="L33341" class="LineNr">33341 </span> 0/imm32/no-imm8 +<span id="L33342" class="LineNr">33342 </span> 0/imm32/no-disp32 +<span id="L33343" class="LineNr">33343 </span> 0/imm32/no-xm32 +<span id="L33344" class="LineNr">33344 </span> 0/imm32/no-x32 +<span id="L33345" class="LineNr">33345 </span> 0x11/imm32/alloc-id:fake +<span id="L33346" class="LineNr">33346 </span> <a href='mu.subx.html#L33347'>_Primitive-break-if-float></a>/imm32/next +<span id="L33347" class="LineNr">33347 </span><span class="subxMinorFunction">_Primitive-break-if-float></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33348" class="LineNr">33348 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33349" class="LineNr">33349 </span> 0x11/imm32/alloc-id:fake +<span id="L33350" class="LineNr">33350 </span> <a href='mu.subx.html#L33686'>_string-break-if-float></a>/imm32/name +<span id="L33351" class="LineNr">33351 </span> 0/imm32/no-inouts +<span id="L33352" class="LineNr">33352 </span> 0/imm32/no-inouts +<span id="L33353" class="LineNr">33353 </span> 0/imm32/no-outputs +<span id="L33354" class="LineNr">33354 </span> 0/imm32/no-outputs +<span id="L33355" class="LineNr">33355 </span> 0x11/imm32/alloc-id:fake +<span id="L33356" class="LineNr">33356 </span> <a href='mu.subx.html#L34018'>_string_0f_87_jump_break</a>/imm32/subx-name +<span id="L33357" class="LineNr">33357 </span> 0/imm32/no-rm32 +<span id="L33358" class="LineNr">33358 </span> 0/imm32/no-r32 +<span id="L33359" class="LineNr">33359 </span> 0/imm32/no-imm32 +<span id="L33360" class="LineNr">33360 </span> 0/imm32/no-imm8 +<span id="L33361" class="LineNr">33361 </span> 0/imm32/no-disp32 +<span id="L33362" class="LineNr">33362 </span> 0/imm32/no-xm32 +<span id="L33363" class="LineNr">33363 </span> 0/imm32/no-x32 +<span id="L33364" class="LineNr">33364 </span> 0x11/imm32/alloc-id:fake +<span id="L33365" class="LineNr">33365 </span> <a href='mu.subx.html#L33366'>_Primitive-loop-if-float<</a>/imm32/next +<span id="L33366" class="LineNr">33366 </span><span class="subxMinorFunction">_Primitive-loop-if-float<</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33367" class="LineNr">33367 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33368" class="LineNr">33368 </span> 0x11/imm32/alloc-id:fake +<span id="L33369" class="LineNr">33369 </span> <a href='mu.subx.html#L33786'>_string-loop-if-float<</a>/imm32/name +<span id="L33370" class="LineNr">33370 </span> 0/imm32/no-inouts +<span id="L33371" class="LineNr">33371 </span> 0/imm32/no-inouts +<span id="L33372" class="LineNr">33372 </span> 0/imm32/no-outputs +<span id="L33373" class="LineNr">33373 </span> 0/imm32/no-outputs +<span id="L33374" class="LineNr">33374 </span> 0x11/imm32/alloc-id:fake +<span id="L33375" class="LineNr">33375 </span> <a href='mu.subx.html#L33948'>_string_0f_82_jump_loop</a>/imm32/subx-name +<span id="L33376" class="LineNr">33376 </span> 0/imm32/no-rm32 +<span id="L33377" class="LineNr">33377 </span> 0/imm32/no-r32 +<span id="L33378" class="LineNr">33378 </span> 0/imm32/no-imm32 +<span id="L33379" class="LineNr">33379 </span> 0/imm32/no-imm8 +<span id="L33380" class="LineNr">33380 </span> 0/imm32/no-disp32 +<span id="L33381" class="LineNr">33381 </span> 0/imm32/no-xm32 +<span id="L33382" class="LineNr">33382 </span> 0/imm32/no-x32 +<span id="L33383" class="LineNr">33383 </span> 0x11/imm32/alloc-id:fake +<span id="L33384" class="LineNr">33384 </span> <a href='mu.subx.html#L33385'>_Primitive-loop-if-float>=</a>/imm32/next +<span id="L33385" class="LineNr">33385 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33386" class="LineNr">33386 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33387" class="LineNr">33387 </span> 0x11/imm32/alloc-id:fake +<span id="L33388" class="LineNr">33388 </span> <a href='mu.subx.html#L33801'>_string-loop-if-float>=</a>/imm32/name +<span id="L33389" class="LineNr">33389 </span> 0/imm32/no-inouts +<span id="L33390" class="LineNr">33390 </span> 0/imm32/no-inouts +<span id="L33391" class="LineNr">33391 </span> 0/imm32/no-outputs +<span id="L33392" class="LineNr">33392 </span> 0/imm32/no-outputs +<span id="L33393" class="LineNr">33393 </span> 0x11/imm32/alloc-id:fake +<span id="L33394" class="LineNr">33394 </span> <a href='mu.subx.html#L33963'>_string_0f_83_jump_loop</a>/imm32/subx-name +<span id="L33395" class="LineNr">33395 </span> 0/imm32/no-rm32 +<span id="L33396" class="LineNr">33396 </span> 0/imm32/no-r32 +<span id="L33397" class="LineNr">33397 </span> 0/imm32/no-imm32 +<span id="L33398" class="LineNr">33398 </span> 0/imm32/no-imm8 +<span id="L33399" class="LineNr">33399 </span> 0/imm32/no-disp32 +<span id="L33400" class="LineNr">33400 </span> 0/imm32/no-xm32 +<span id="L33401" class="LineNr">33401 </span> 0/imm32/no-x32 +<span id="L33402" class="LineNr">33402 </span> 0x11/imm32/alloc-id:fake +<span id="L33403" class="LineNr">33403 </span> <a href='mu.subx.html#L33404'>_Primitive-loop-if-float<=</a>/imm32/next +<span id="L33404" class="LineNr">33404 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33405" class="LineNr">33405 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33406" class="LineNr">33406 </span> 0x11/imm32/alloc-id:fake +<span id="L33407" class="LineNr">33407 </span> <a href='mu.subx.html#L33791'>_string-loop-if-float<=</a>/imm32/name +<span id="L33408" class="LineNr">33408 </span> 0/imm32/no-inouts +<span id="L33409" class="LineNr">33409 </span> 0/imm32/no-inouts +<span id="L33410" class="LineNr">33410 </span> 0/imm32/no-outputs +<span id="L33411" class="LineNr">33411 </span> 0/imm32/no-outputs +<span id="L33412" class="LineNr">33412 </span> 0x11/imm32/alloc-id:fake +<span id="L33413" class="LineNr">33413 </span> <a href='mu.subx.html#L34008'>_string_0f_86_jump_loop</a>/imm32/subx-name +<span id="L33414" class="LineNr">33414 </span> 0/imm32/no-rm32 +<span id="L33415" class="LineNr">33415 </span> 0/imm32/no-r32 +<span id="L33416" class="LineNr">33416 </span> 0/imm32/no-imm32 +<span id="L33417" class="LineNr">33417 </span> 0/imm32/no-imm8 +<span id="L33418" class="LineNr">33418 </span> 0/imm32/no-disp32 +<span id="L33419" class="LineNr">33419 </span> 0/imm32/no-xm32 +<span id="L33420" class="LineNr">33420 </span> 0/imm32/no-x32 +<span id="L33421" class="LineNr">33421 </span> 0x11/imm32/alloc-id:fake +<span id="L33422" class="LineNr">33422 </span> <a href='mu.subx.html#L33423'>_Primitive-loop-if-float></a>/imm32/next +<span id="L33423" class="LineNr">33423 </span><span class="subxMinorFunction">_Primitive-loop-if-float></span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33424" class="LineNr">33424 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33425" class="LineNr">33425 </span> 0x11/imm32/alloc-id:fake +<span id="L33426" class="LineNr">33426 </span> <a href='mu.subx.html#L33796'>_string-loop-if-float></a>/imm32/name +<span id="L33427" class="LineNr">33427 </span> 0/imm32/no-inouts +<span id="L33428" class="LineNr">33428 </span> 0/imm32/no-inouts +<span id="L33429" class="LineNr">33429 </span> 0/imm32/no-outputs +<span id="L33430" class="LineNr">33430 </span> 0/imm32/no-outputs +<span id="L33431" class="LineNr">33431 </span> 0x11/imm32/alloc-id:fake +<span id="L33432" class="LineNr">33432 </span> <a href='mu.subx.html#L34023'>_string_0f_87_jump_loop</a>/imm32/subx-name +<span id="L33433" class="LineNr">33433 </span> 0/imm32/no-rm32 +<span id="L33434" class="LineNr">33434 </span> 0/imm32/no-r32 +<span id="L33435" class="LineNr">33435 </span> 0/imm32/no-imm32 +<span id="L33436" class="LineNr">33436 </span> 0/imm32/no-imm8 +<span id="L33437" class="LineNr">33437 </span> 0/imm32/no-disp32 +<span id="L33438" class="LineNr">33438 </span> 0/imm32/no-xm32 +<span id="L33439" class="LineNr">33439 </span> 0/imm32/no-x32 +<span id="L33440" class="LineNr">33440 </span> 0x11/imm32/alloc-id:fake +<span id="L33441" class="LineNr">33441 </span> <a href='mu.subx.html#L33442'>_Primitive-break-if-float<-named</a>/imm32/next +<span id="L33442" class="LineNr">33442 </span><span class="subxMinorFunction">_Primitive-break-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33443" class="LineNr">33443 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33444" class="LineNr">33444 </span> 0x11/imm32/alloc-id:fake +<span id="L33445" class="LineNr">33445 </span> <a href='mu.subx.html#L33676'>_string-break-if-float<</a>/imm32/name +<span id="L33446" class="LineNr">33446 </span> 0x11/imm32/alloc-id:fake +<span id="L33447" class="LineNr">33447 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33448" class="LineNr">33448 </span> 0/imm32/no-outputs +<span id="L33449" class="LineNr">33449 </span> 0/imm32/no-outputs +<span id="L33450" class="LineNr">33450 </span> 0x11/imm32/alloc-id:fake +<span id="L33451" class="LineNr">33451 </span> <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33452" class="LineNr">33452 </span> 0/imm32/no-rm32 +<span id="L33453" class="LineNr">33453 </span> 0/imm32/no-r32 +<span id="L33454" class="LineNr">33454 </span> 0/imm32/no-imm32 +<span id="L33455" class="LineNr">33455 </span> 0/imm32/no-imm8 +<span id="L33456" class="LineNr">33456 </span> 1/imm32/disp32-is-first-inout +<span id="L33457" class="LineNr">33457 </span> 0/imm32/no-xm32 +<span id="L33458" class="LineNr">33458 </span> 0/imm32/no-x32 +<span id="L33459" class="LineNr">33459 </span> 0x11/imm32/alloc-id:fake +<span id="L33460" class="LineNr">33460 </span> <a href='mu.subx.html#L33461'>_Primitive-break-if-float>=-named</a>/imm32/next +<span id="L33461" class="LineNr">33461 </span><span class="subxMinorFunction">_Primitive-break-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33462" class="LineNr">33462 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33463" class="LineNr">33463 </span> 0x11/imm32/alloc-id:fake +<span id="L33464" class="LineNr">33464 </span> <a href='mu.subx.html#L33691'>_string-break-if-float>=</a>/imm32/name +<span id="L33465" class="LineNr">33465 </span> 0x11/imm32/alloc-id:fake +<span id="L33466" class="LineNr">33466 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33467" class="LineNr">33467 </span> 0/imm32/no-outputs +<span id="L33468" class="LineNr">33468 </span> 0/imm32/no-outputs +<span id="L33469" class="LineNr">33469 </span> 0x11/imm32/alloc-id:fake +<span id="L33470" class="LineNr">33470 </span> <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33471" class="LineNr">33471 </span> 0/imm32/no-rm32 +<span id="L33472" class="LineNr">33472 </span> 0/imm32/no-r32 +<span id="L33473" class="LineNr">33473 </span> 0/imm32/no-imm32 +<span id="L33474" class="LineNr">33474 </span> 0/imm32/no-imm8 +<span id="L33475" class="LineNr">33475 </span> 1/imm32/disp32-is-first-inout +<span id="L33476" class="LineNr">33476 </span> 0/imm32/no-xm32 +<span id="L33477" class="LineNr">33477 </span> 0/imm32/no-x32 +<span id="L33478" class="LineNr">33478 </span> 0x11/imm32/alloc-id:fake +<span id="L33479" class="LineNr">33479 </span> <a href='mu.subx.html#L33480'>_Primitive-break-if-float<=-named</a>/imm32/next +<span id="L33480" class="LineNr">33480 </span><span class="subxMinorFunction">_Primitive-break-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33481" class="LineNr">33481 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33482" class="LineNr">33482 </span> 0x11/imm32/alloc-id:fake +<span id="L33483" class="LineNr">33483 </span> <a href='mu.subx.html#L33681'>_string-break-if-float<=</a>/imm32/name +<span id="L33484" class="LineNr">33484 </span> 0x11/imm32/alloc-id:fake +<span id="L33485" class="LineNr">33485 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33486" class="LineNr">33486 </span> 0/imm32/no-outputs +<span id="L33487" class="LineNr">33487 </span> 0/imm32/no-outputs +<span id="L33488" class="LineNr">33488 </span> 0x11/imm32/alloc-id:fake +<span id="L33489" class="LineNr">33489 </span> <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33490" class="LineNr">33490 </span> 0/imm32/no-rm32 +<span id="L33491" class="LineNr">33491 </span> 0/imm32/no-r32 +<span id="L33492" class="LineNr">33492 </span> 0/imm32/no-imm32 +<span id="L33493" class="LineNr">33493 </span> 0/imm32/no-imm8 +<span id="L33494" class="LineNr">33494 </span> 1/imm32/disp32-is-first-inout +<span id="L33495" class="LineNr">33495 </span> 0/imm32/no-xm32 +<span id="L33496" class="LineNr">33496 </span> 0/imm32/no-x32 +<span id="L33497" class="LineNr">33497 </span> 0x11/imm32/alloc-id:fake +<span id="L33498" class="LineNr">33498 </span> <a href='mu.subx.html#L33499'>_Primitive-break-if-float>-named</a>/imm32/next +<span id="L33499" class="LineNr">33499 </span><span class="subxMinorFunction">_Primitive-break-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33500" class="LineNr">33500 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33501" class="LineNr">33501 </span> 0x11/imm32/alloc-id:fake +<span id="L33502" class="LineNr">33502 </span> <a href='mu.subx.html#L33686'>_string-break-if-float></a>/imm32/name +<span id="L33503" class="LineNr">33503 </span> 0x11/imm32/alloc-id:fake +<span id="L33504" class="LineNr">33504 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33505" class="LineNr">33505 </span> 0/imm32/no-outputs +<span id="L33506" class="LineNr">33506 </span> 0/imm32/no-outputs +<span id="L33507" class="LineNr">33507 </span> 0x11/imm32/alloc-id:fake +<span id="L33508" class="LineNr">33508 </span> <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33509" class="LineNr">33509 </span> 0/imm32/no-rm32 +<span id="L33510" class="LineNr">33510 </span> 0/imm32/no-r32 +<span id="L33511" class="LineNr">33511 </span> 0/imm32/no-imm32 +<span id="L33512" class="LineNr">33512 </span> 0/imm32/no-imm8 +<span id="L33513" class="LineNr">33513 </span> 1/imm32/disp32-is-first-inout +<span id="L33514" class="LineNr">33514 </span> 0/imm32/no-xm32 +<span id="L33515" class="LineNr">33515 </span> 0/imm32/no-x32 +<span id="L33516" class="LineNr">33516 </span> 0x11/imm32/alloc-id:fake +<span id="L33517" class="LineNr">33517 </span> <a href='mu.subx.html#L33518'>_Primitive-loop-if-float<-named</a>/imm32/next +<span id="L33518" class="LineNr">33518 </span><span class="subxMinorFunction">_Primitive-loop-if-float<-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33519" class="LineNr">33519 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33520" class="LineNr">33520 </span> 0x11/imm32/alloc-id:fake +<span id="L33521" class="LineNr">33521 </span> <a href='mu.subx.html#L33786'>_string-loop-if-float<</a>/imm32/name +<span id="L33522" class="LineNr">33522 </span> 0x11/imm32/alloc-id:fake +<span id="L33523" class="LineNr">33523 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33524" class="LineNr">33524 </span> 0/imm32/no-outputs +<span id="L33525" class="LineNr">33525 </span> 0/imm32/no-outputs +<span id="L33526" class="LineNr">33526 </span> 0x11/imm32/alloc-id:fake +<span id="L33527" class="LineNr">33527 </span> <a href='mu.subx.html#L33938'>_string_0f_82_jump_label</a>/imm32/subx-name +<span id="L33528" class="LineNr">33528 </span> 0/imm32/no-rm32 +<span id="L33529" class="LineNr">33529 </span> 0/imm32/no-r32 +<span id="L33530" class="LineNr">33530 </span> 0/imm32/no-imm32 +<span id="L33531" class="LineNr">33531 </span> 0/imm32/no-imm8 +<span id="L33532" class="LineNr">33532 </span> 1/imm32/disp32-is-first-inout +<span id="L33533" class="LineNr">33533 </span> 0/imm32/no-xm32 +<span id="L33534" class="LineNr">33534 </span> 0/imm32/no-x32 +<span id="L33535" class="LineNr">33535 </span> 0x11/imm32/alloc-id:fake +<span id="L33536" class="LineNr">33536 </span> <a href='mu.subx.html#L33537'>_Primitive-loop-if-float>=-named</a>/imm32/next +<span id="L33537" class="LineNr">33537 </span><span class="subxMinorFunction">_Primitive-loop-if-float>=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33538" class="LineNr">33538 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33539" class="LineNr">33539 </span> 0x11/imm32/alloc-id:fake +<span id="L33540" class="LineNr">33540 </span> <a href='mu.subx.html#L33801'>_string-loop-if-float>=</a>/imm32/name +<span id="L33541" class="LineNr">33541 </span> 0x11/imm32/alloc-id:fake +<span id="L33542" class="LineNr">33542 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33543" class="LineNr">33543 </span> 0/imm32/no-outputs +<span id="L33544" class="LineNr">33544 </span> 0/imm32/no-outputs +<span id="L33545" class="LineNr">33545 </span> 0x11/imm32/alloc-id:fake +<span id="L33546" class="LineNr">33546 </span> <a href='mu.subx.html#L33953'>_string_0f_83_jump_label</a>/imm32/subx-name +<span id="L33547" class="LineNr">33547 </span> 0/imm32/no-rm32 +<span id="L33548" class="LineNr">33548 </span> 0/imm32/no-r32 +<span id="L33549" class="LineNr">33549 </span> 0/imm32/no-imm32 +<span id="L33550" class="LineNr">33550 </span> 0/imm32/no-imm8 +<span id="L33551" class="LineNr">33551 </span> 1/imm32/disp32-is-first-inout +<span id="L33552" class="LineNr">33552 </span> 0/imm32/no-xm32 +<span id="L33553" class="LineNr">33553 </span> 0/imm32/no-x32 +<span id="L33554" class="LineNr">33554 </span> 0x11/imm32/alloc-id:fake +<span id="L33555" class="LineNr">33555 </span> <a href='mu.subx.html#L33556'>_Primitive-loop-if-float<=-named</a>/imm32/next +<span id="L33556" class="LineNr">33556 </span><span class="subxMinorFunction">_Primitive-loop-if-float<=-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33557" class="LineNr">33557 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33558" class="LineNr">33558 </span> 0x11/imm32/alloc-id:fake +<span id="L33559" class="LineNr">33559 </span> <a href='mu.subx.html#L33791'>_string-loop-if-float<=</a>/imm32/name +<span id="L33560" class="LineNr">33560 </span> 0x11/imm32/alloc-id:fake +<span id="L33561" class="LineNr">33561 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33562" class="LineNr">33562 </span> 0/imm32/no-outputs +<span id="L33563" class="LineNr">33563 </span> 0/imm32/no-outputs +<span id="L33564" class="LineNr">33564 </span> 0x11/imm32/alloc-id:fake +<span id="L33565" class="LineNr">33565 </span> <a href='mu.subx.html#L33998'>_string_0f_86_jump_label</a>/imm32/subx-name +<span id="L33566" class="LineNr">33566 </span> 0/imm32/no-rm32 +<span id="L33567" class="LineNr">33567 </span> 0/imm32/no-r32 +<span id="L33568" class="LineNr">33568 </span> 0/imm32/no-imm32 +<span id="L33569" class="LineNr">33569 </span> 0/imm32/no-imm8 +<span id="L33570" class="LineNr">33570 </span> 1/imm32/disp32-is-first-inout +<span id="L33571" class="LineNr">33571 </span> 0/imm32/no-xm32 +<span id="L33572" class="LineNr">33572 </span> 0/imm32/no-x32 +<span id="L33573" class="LineNr">33573 </span> 0x11/imm32/alloc-id:fake +<span id="L33574" class="LineNr">33574 </span> <a href='mu.subx.html#L33575'>_Primitive-loop-if-float>-named</a>/imm32/next +<span id="L33575" class="LineNr">33575 </span><span class="subxMinorFunction">_Primitive-loop-if-float>-named</span>: <span class="subxComment"># (payload primitive)</span> +<span id="L33576" class="LineNr">33576 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33577" class="LineNr">33577 </span> 0x11/imm32/alloc-id:fake +<span id="L33578" class="LineNr">33578 </span> <a href='mu.subx.html#L33796'>_string-loop-if-float></a>/imm32/name +<span id="L33579" class="LineNr">33579 </span> 0x11/imm32/alloc-id:fake +<span id="L33580" class="LineNr">33580 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/inouts +<span id="L33581" class="LineNr">33581 </span> 0/imm32/no-outputs +<span id="L33582" class="LineNr">33582 </span> 0/imm32/no-outputs +<span id="L33583" class="LineNr">33583 </span> 0x11/imm32/alloc-id:fake +<span id="L33584" class="LineNr">33584 </span> <a href='mu.subx.html#L34013'>_string_0f_87_jump_label</a>/imm32/subx-name +<span id="L33585" class="LineNr">33585 </span> 0/imm32/no-rm32 +<span id="L33586" class="LineNr">33586 </span> 0/imm32/no-r32 +<span id="L33587" class="LineNr">33587 </span> 0/imm32/no-imm32 +<span id="L33588" class="LineNr">33588 </span> 0/imm32/no-imm8 +<span id="L33589" class="LineNr">33589 </span> 1/imm32/disp32-is-first-inout +<span id="L33590" class="LineNr">33590 </span> 0/imm32/no-xm32 +<span id="L33591" class="LineNr">33591 </span> 0/imm32/no-x32 +<span id="L33592" class="LineNr">33592 </span> 0/imm32/next +<span id="L33593" class="LineNr">33593 </span> 0/imm32/next +<span id="L33594" class="LineNr">33594 </span> +<span id="L33595" class="LineNr">33595 </span><span class="subxComment"># string literals for Mu instructions</span> +<span id="L33596" class="LineNr">33596 </span><span class="subxMinorFunction">_string-add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33597" class="LineNr">33597 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33598" class="LineNr">33598 </span> <span class="subxComment"># "add"</span> +<span id="L33599" class="LineNr">33599 </span> 0x3/imm32/size +<span id="L33600" class="LineNr">33600 </span> 0x61/a 0x64/d 0x64/d +<span id="L33601" class="LineNr">33601 </span><span class="subxMinorFunction">_string-address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33602" class="LineNr">33602 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33603" class="LineNr">33603 </span> <span class="subxComment"># "address"</span> +<span id="L33604" class="LineNr">33604 </span> 0x7/imm32/size +<span id="L33605" class="LineNr">33605 </span> 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s +<span id="L33606" class="LineNr">33606 </span><span class="subxMinorFunction">_string-add-to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33607" class="LineNr">33607 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33608" class="LineNr">33608 </span> <span class="subxComment"># "add-to"</span> +<span id="L33609" class="LineNr">33609 </span> 0x6/imm32/size +<span id="L33610" class="LineNr">33610 </span> 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L33611" class="LineNr">33611 </span><span class="subxMinorFunction">_string-and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33612" class="LineNr">33612 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33613" class="LineNr">33613 </span> <span class="subxComment"># "and"</span> +<span id="L33614" class="LineNr">33614 </span> 0x3/imm32/size +<span id="L33615" class="LineNr">33615 </span> 0x61/a 0x6e/n 0x64/d +<span id="L33616" class="LineNr">33616 </span><span class="subxMinorFunction">_string-and-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33617" class="LineNr">33617 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33618" class="LineNr">33618 </span> <span class="subxComment"># "and-with"</span> +<span id="L33619" class="LineNr">33619 </span> 0x8/imm32/size +<span id="L33620" class="LineNr">33620 </span> 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L33621" class="LineNr">33621 </span><span class="subxMinorFunction">_string-break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33622" class="LineNr">33622 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33623" class="LineNr">33623 </span> <span class="subxComment"># "break"</span> +<span id="L33624" class="LineNr">33624 </span> 0x5/imm32/size +<span id="L33625" class="LineNr">33625 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k +<span id="L33626" class="LineNr">33626 </span><span class="subxMinorFunction">_string-break-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33627" class="LineNr">33627 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33628" class="LineNr">33628 </span> <span class="subxComment"># "break-if-<"</span> +<span id="L33629" class="LineNr">33629 </span> 0xa/imm32/size +<span id="L33630" class="LineNr">33630 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L33631" class="LineNr">33631 </span><span class="subxMinorFunction">_string-break-if-<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33632" class="LineNr">33632 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33633" class="LineNr">33633 </span> <span class="subxComment"># "break-if-<="</span> +<span id="L33634" class="LineNr">33634 </span> 0xb/imm32/size +<span id="L33635" class="LineNr">33635 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L33636" class="LineNr">33636 </span><span class="subxMinorFunction">_string-break-if-=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33637" class="LineNr">33637 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33638" class="LineNr">33638 </span> <span class="subxComment"># "break-if-="</span> +<span id="L33639" class="LineNr">33639 </span> 0xa/imm32/size +<span id="L33640" class="LineNr">33640 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L33641" class="LineNr">33641 </span><span class="subxMinorFunction">_string-break-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33642" class="LineNr">33642 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33643" class="LineNr">33643 </span> <span class="subxComment"># "break-if->"</span> +<span id="L33644" class="LineNr">33644 </span> 0xa/imm32/size +<span id="L33645" class="LineNr">33645 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L33646" class="LineNr">33646 </span><span class="subxMinorFunction">_string-break-if->=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33647" class="LineNr">33647 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33648" class="LineNr">33648 </span> <span class="subxComment"># "break-if->="</span> +<span id="L33649" class="LineNr">33649 </span> 0xb/imm32/size +<span id="L33650" class="LineNr">33650 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L33651" class="LineNr">33651 </span><span class="subxMinorFunction">_string-break-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33652" class="LineNr">33652 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33653" class="LineNr">33653 </span> <span class="subxComment"># "break-if-!="</span> +<span id="L33654" class="LineNr">33654 </span> 0xb/imm32/size +<span id="L33655" class="LineNr">33655 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L33656" class="LineNr">33656 </span><span class="subxMinorFunction">_string-break-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33657" class="LineNr">33657 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33658" class="LineNr">33658 </span> <span class="subxComment"># "break-if-addr<"</span> +<span id="L33659" class="LineNr">33659 </span> 0xe/imm32/size +<span id="L33660" class="LineNr">33660 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< +<span id="L33661" class="LineNr">33661 </span><span class="subxMinorFunction">_string-break-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33662" class="LineNr">33662 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33663" class="LineNr">33663 </span> <span class="subxComment"># "break-if-addr<="</span> +<span id="L33664" class="LineNr">33664 </span> 0xf/imm32/size +<span id="L33665" class="LineNr">33665 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= +<span id="L33666" class="LineNr">33666 </span><span class="subxMinorFunction">_string-break-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33667" class="LineNr">33667 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33668" class="LineNr">33668 </span> <span class="subxComment"># "break-if-addr>"</span> +<span id="L33669" class="LineNr">33669 </span> 0xe/imm32/size +<span id="L33670" class="LineNr">33670 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> +<span id="L33671" class="LineNr">33671 </span><span class="subxMinorFunction">_string-break-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33672" class="LineNr">33672 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33673" class="LineNr">33673 </span> <span class="subxComment"># "break-if-addr>="</span> +<span id="L33674" class="LineNr">33674 </span> 0xf/imm32/size +<span id="L33675" class="LineNr">33675 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= +<span id="L33676" class="LineNr">33676 </span><span class="subxMinorFunction">_string-break-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33677" class="LineNr">33677 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33678" class="LineNr">33678 </span> <span class="subxComment"># "break-if-float<"</span> +<span id="L33679" class="LineNr">33679 </span> 0xf/imm32/size +<span id="L33680" class="LineNr">33680 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< +<span id="L33681" class="LineNr">33681 </span><span class="subxMinorFunction">_string-break-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33682" class="LineNr">33682 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33683" class="LineNr">33683 </span> <span class="subxComment"># "break-if-float<="</span> +<span id="L33684" class="LineNr">33684 </span> 0x10/imm32/size +<span id="L33685" class="LineNr">33685 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< 0x3d/= +<span id="L33686" class="LineNr">33686 </span><span class="subxMinorFunction">_string-break-if-float></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33687" class="LineNr">33687 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33688" class="LineNr">33688 </span> <span class="subxComment"># "break-if-float>"</span> +<span id="L33689" class="LineNr">33689 </span> 0xf/imm32/size +<span id="L33690" class="LineNr">33690 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> +<span id="L33691" class="LineNr">33691 </span><span class="subxMinorFunction">_string-break-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33692" class="LineNr">33692 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33693" class="LineNr">33693 </span> <span class="subxComment"># "break-if-float>="</span> +<span id="L33694" class="LineNr">33694 </span> 0x10/imm32/size +<span id="L33695" class="LineNr">33695 </span> 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> 0x3d/= +<span id="L33696" class="LineNr">33696 </span><span class="subxMinorFunction">_string-compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33697" class="LineNr">33697 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33698" class="LineNr">33698 </span> <span class="subxComment"># "compare"</span> +<span id="L33699" class="LineNr">33699 </span> 0x7/imm32/size +<span id="L33700" class="LineNr">33700 </span> 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e +<span id="L33701" class="LineNr">33701 </span><span class="subxMinorFunction">_string-copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33702" class="LineNr">33702 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33703" class="LineNr">33703 </span> <span class="subxComment"># "copy"</span> +<span id="L33704" class="LineNr">33704 </span> 0x4/imm32/size +<span id="L33705" class="LineNr">33705 </span> 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L33706" class="LineNr">33706 </span><span class="subxMinorFunction">_string-copy-to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33707" class="LineNr">33707 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33708" class="LineNr">33708 </span> <span class="subxComment"># "copy-to"</span> +<span id="L33709" class="LineNr">33709 </span> 0x7/imm32/size +<span id="L33710" class="LineNr">33710 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o +<span id="L33711" class="LineNr">33711 </span><span class="subxMinorFunction">_string-copy-byte</span>: +<span id="L33712" class="LineNr">33712 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33713" class="LineNr">33713 </span> <span class="subxComment"># "copy-byte"</span> +<span id="L33714" class="LineNr">33714 </span> 0x9/imm32/size +<span id="L33715" class="LineNr">33715 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e +<span id="L33716" class="LineNr">33716 </span><span class="subxMinorFunction">_string-copy-byte-to</span>: +<span id="L33717" class="LineNr">33717 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33718" class="LineNr">33718 </span> <span class="subxComment"># "copy-byte-to"</span> +<span id="L33719" class="LineNr">33719 </span> 0xc/imm32/size +<span id="L33720" class="LineNr">33720 </span> 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/- 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x74/t 0x6f/o +<span id="L33721" class="LineNr">33721 </span><span class="subxMinorFunction">_string-decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33722" class="LineNr">33722 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33723" class="LineNr">33723 </span> <span class="subxComment"># "decrement"</span> +<span id="L33724" class="LineNr">33724 </span> 0x9/imm32/size +<span id="L33725" class="LineNr">33725 </span> 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L33726" class="LineNr">33726 </span><span class="subxMinorFunction">_string-increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33727" class="LineNr">33727 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33728" class="LineNr">33728 </span> <span class="subxComment"># "increment"</span> +<span id="L33729" class="LineNr">33729 </span> 0x9/imm32/size +<span id="L33730" class="LineNr">33730 </span> 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L33731" class="LineNr">33731 </span><span class="subxMinorFunction">_string-loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33732" class="LineNr">33732 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33733" class="LineNr">33733 </span> <span class="subxComment"># "loop"</span> +<span id="L33734" class="LineNr">33734 </span> 0x4/imm32/size +<span id="L33735" class="LineNr">33735 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p +<span id="L33736" class="LineNr">33736 </span><span class="subxMinorFunction">_string-loop-if-<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33737" class="LineNr">33737 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33738" class="LineNr">33738 </span> <span class="subxComment"># "loop-if-<"</span> +<span id="L33739" class="LineNr">33739 </span> 0x9/imm32/size +<span id="L33740" class="LineNr">33740 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L33741" class="LineNr">33741 </span><span class="subxMinorFunction">_string-loop-if-<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33742" class="LineNr">33742 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33743" class="LineNr">33743 </span> <span class="subxComment"># "loop-if-<="</span> +<span id="L33744" class="LineNr">33744 </span> 0xa/imm32/size +<span id="L33745" class="LineNr">33745 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L33746" class="LineNr">33746 </span><span class="subxMinorFunction">_string-loop-if-=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33747" class="LineNr">33747 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33748" class="LineNr">33748 </span> <span class="subxComment"># "loop-if-="</span> +<span id="L33749" class="LineNr">33749 </span> 0x9/imm32/size +<span id="L33750" class="LineNr">33750 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L33751" class="LineNr">33751 </span><span class="subxMinorFunction">_string-loop-if-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33752" class="LineNr">33752 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33753" class="LineNr">33753 </span> <span class="subxComment"># "loop-if->"</span> +<span id="L33754" class="LineNr">33754 </span> 0x9/imm32/size +<span id="L33755" class="LineNr">33755 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L33756" class="LineNr">33756 </span><span class="subxMinorFunction">_string-loop-if->=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33757" class="LineNr">33757 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33758" class="LineNr">33758 </span> <span class="subxComment"># "loop-if->="</span> +<span id="L33759" class="LineNr">33759 </span> 0xa/imm32/size +<span id="L33760" class="LineNr">33760 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L33761" class="LineNr">33761 </span><span class="subxMinorFunction">_string-loop-if-!=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33762" class="LineNr">33762 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33763" class="LineNr">33763 </span> <span class="subxComment"># "loop-if-!="</span> +<span id="L33764" class="LineNr">33764 </span> 0xa/imm32/size +<span id="L33765" class="LineNr">33765 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L33766" class="LineNr">33766 </span><span class="subxMinorFunction">_string-loop-if-addr<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33767" class="LineNr">33767 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33768" class="LineNr">33768 </span> <span class="subxComment"># "loop-if-addr<"</span> +<span id="L33769" class="LineNr">33769 </span> 0xd/imm32/size +<span id="L33770" class="LineNr">33770 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< +<span id="L33771" class="LineNr">33771 </span><span class="subxMinorFunction">_string-loop-if-addr<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33772" class="LineNr">33772 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33773" class="LineNr">33773 </span> <span class="subxComment"># "loop-if-addr<="</span> +<span id="L33774" class="LineNr">33774 </span> 0xe/imm32/size +<span id="L33775" class="LineNr">33775 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= +<span id="L33776" class="LineNr">33776 </span><span class="subxMinorFunction">_string-loop-if-addr></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33777" class="LineNr">33777 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33778" class="LineNr">33778 </span> <span class="subxComment"># "loop-if-addr>"</span> +<span id="L33779" class="LineNr">33779 </span> 0xd/imm32/size +<span id="L33780" class="LineNr">33780 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> +<span id="L33781" class="LineNr">33781 </span><span class="subxMinorFunction">_string-loop-if-addr>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33782" class="LineNr">33782 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33783" class="LineNr">33783 </span> <span class="subxComment"># "loop-if-addr>="</span> +<span id="L33784" class="LineNr">33784 </span> 0xe/imm32/size +<span id="L33785" class="LineNr">33785 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= +<span id="L33786" class="LineNr">33786 </span><span class="subxMinorFunction">_string-loop-if-float<</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33787" class="LineNr">33787 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33788" class="LineNr">33788 </span> <span class="subxComment"># "loop-if-float<"</span> +<span id="L33789" class="LineNr">33789 </span> 0xe/imm32/size +<span id="L33790" class="LineNr">33790 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< +<span id="L33791" class="LineNr">33791 </span><span class="subxMinorFunction">_string-loop-if-float<=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33792" class="LineNr">33792 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33793" class="LineNr">33793 </span> <span class="subxComment"># "loop-if-float<="</span> +<span id="L33794" class="LineNr">33794 </span> 0xf/imm32/size +<span id="L33795" class="LineNr">33795 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3c/< 0x3d/= +<span id="L33796" class="LineNr">33796 </span><span class="subxMinorFunction">_string-loop-if-float></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33797" class="LineNr">33797 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33798" class="LineNr">33798 </span> <span class="subxComment"># "loop-if-float>"</span> +<span id="L33799" class="LineNr">33799 </span> 0xe/imm32/size +<span id="L33800" class="LineNr">33800 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> +<span id="L33801" class="LineNr">33801 </span><span class="subxMinorFunction">_string-loop-if-float>=</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33802" class="LineNr">33802 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33803" class="LineNr">33803 </span> <span class="subxComment"># "loop-if-float>="</span> +<span id="L33804" class="LineNr">33804 </span> 0xf/imm32/size +<span id="L33805" class="LineNr">33805 </span> 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t 0x3e/> 0x3d/= +<span id="L33806" class="LineNr">33806 </span><span class="subxMinorFunction">_string-multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33807" class="LineNr">33807 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33808" class="LineNr">33808 </span> <span class="subxComment"># "multiply"</span> +<span id="L33809" class="LineNr">33809 </span> 0x8/imm32/size +<span id="L33810" class="LineNr">33810 </span> 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y +<span id="L33811" class="LineNr">33811 </span><span class="subxMinorFunction">_string-convert</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33812" class="LineNr">33812 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33813" class="LineNr">33813 </span> <span class="subxComment"># "convert"</span> +<span id="L33814" class="LineNr">33814 </span> 0x7/imm32/size +<span id="L33815" class="LineNr">33815 </span> 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t +<span id="L33816" class="LineNr">33816 </span><span class="subxMinorFunction">_string-truncate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33817" class="LineNr">33817 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33818" class="LineNr">33818 </span> <span class="subxComment"># "truncate"</span> +<span id="L33819" class="LineNr">33819 </span> 0x8/imm32/size +<span id="L33820" class="LineNr">33820 </span> 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e +<span id="L33821" class="LineNr">33821 </span><span class="subxMinorFunction">_string-reinterpret</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33822" class="LineNr">33822 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33823" class="LineNr">33823 </span> <span class="subxComment"># "reinterpret"</span> +<span id="L33824" class="LineNr">33824 </span> 0xb/imm32/size +<span id="L33825" class="LineNr">33825 </span> 0x72/r 0x65/e 0x69/i 0x6e/n 0x74/t 0x65/e 0x72/r 0x70/p 0x72/r 0x65/e 0x74/t +<span id="L33826" class="LineNr">33826 </span><span class="subxMinorFunction">_string-divide</span>: +<span id="L33827" class="LineNr">33827 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33828" class="LineNr">33828 </span> <span class="subxComment"># "divide"</span> +<span id="L33829" class="LineNr">33829 </span> 0x6/imm32/size +<span id="L33830" class="LineNr">33830 </span> 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e +<span id="L33831" class="LineNr">33831 </span><span class="subxMinorFunction">_string-max</span>: +<span id="L33832" class="LineNr">33832 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33833" class="LineNr">33833 </span> <span class="subxComment"># "max"</span> +<span id="L33834" class="LineNr">33834 </span> 0x3/imm32/size +<span id="L33835" class="LineNr">33835 </span> 0x6d/m 0x61/a 0x78/x +<span id="L33836" class="LineNr">33836 </span><span class="subxMinorFunction">_string-min</span>: +<span id="L33837" class="LineNr">33837 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33838" class="LineNr">33838 </span> <span class="subxComment"># "min"</span> +<span id="L33839" class="LineNr">33839 </span> 0x3/imm32/size +<span id="L33840" class="LineNr">33840 </span> 0x6d/m 0x69/i 0x6e/n +<span id="L33841" class="LineNr">33841 </span><span class="subxMinorFunction">_string-reciprocal</span>: +<span id="L33842" class="LineNr">33842 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33843" class="LineNr">33843 </span> <span class="subxComment"># "reciprocal"</span> +<span id="L33844" class="LineNr">33844 </span> 0xa/imm32/size +<span id="L33845" class="LineNr">33845 </span> 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l +<span id="L33846" class="LineNr">33846 </span><span class="subxMinorFunction">_string-square-root</span>: +<span id="L33847" class="LineNr">33847 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33848" class="LineNr">33848 </span> <span class="subxComment"># "square-root"</span> +<span id="L33849" class="LineNr">33849 </span> 0xb/imm32/size +<span id="L33850" class="LineNr">33850 </span> 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L33851" class="LineNr">33851 </span><span class="subxMinorFunction">_string-inverse-square-root</span>: +<span id="L33852" class="LineNr">33852 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33853" class="LineNr">33853 </span> <span class="subxComment"># "inverse-square-root"</span> +<span id="L33854" class="LineNr">33854 </span> 0x13/imm32/size +<span id="L33855" class="LineNr">33855 </span> 0x69/i 0x6e/n 0x76/v 0x65/e 0x72/r 0x73/s 0x65/e 0x2d/- 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/- 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L33856" class="LineNr">33856 </span><span class="subxMinorFunction">_string-negate</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33857" class="LineNr">33857 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33858" class="LineNr">33858 </span> <span class="subxComment"># "negate"</span> +<span id="L33859" class="LineNr">33859 </span> 0x6/imm32/size +<span id="L33860" class="LineNr">33860 </span> 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e +<span id="L33861" class="LineNr">33861 </span><span class="subxMinorFunction">_string-or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33862" class="LineNr">33862 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33863" class="LineNr">33863 </span> <span class="subxComment"># "or"</span> +<span id="L33864" class="LineNr">33864 </span> 0x2/imm32/size +<span id="L33865" class="LineNr">33865 </span> 0x6f/o 0x72/r +<span id="L33866" class="LineNr">33866 </span><span class="subxMinorFunction">_string-or-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33867" class="LineNr">33867 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33868" class="LineNr">33868 </span> <span class="subxComment"># "or-with"</span> +<span id="L33869" class="LineNr">33869 </span> 0x7/imm32/size +<span id="L33870" class="LineNr">33870 </span> 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L33871" class="LineNr">33871 </span><span class="subxMinorFunction">_string-subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33872" class="LineNr">33872 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33873" class="LineNr">33873 </span> <span class="subxComment"># "subtract"</span> +<span id="L33874" class="LineNr">33874 </span> 0x8/imm32/size +<span id="L33875" class="LineNr">33875 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t +<span id="L33876" class="LineNr">33876 </span><span class="subxMinorFunction">_string-subtract-from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33877" class="LineNr">33877 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33878" class="LineNr">33878 </span> <span class="subxComment"># "subtract-from"</span> +<span id="L33879" class="LineNr">33879 </span> 0xd/imm32/size +<span id="L33880" class="LineNr">33880 </span> 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t 0x2d/dash 0x66/f 0x72/r 0x6f/o 0x6d/m +<span id="L33881" class="LineNr">33881 </span><span class="subxMinorFunction">_string-xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33882" class="LineNr">33882 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33883" class="LineNr">33883 </span> <span class="subxComment"># "xor"</span> +<span id="L33884" class="LineNr">33884 </span> 0x3/imm32/size +<span id="L33885" class="LineNr">33885 </span> 0x78/x 0x6f/o 0x72/r +<span id="L33886" class="LineNr">33886 </span><span class="subxMinorFunction">_string-xor-with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33887" class="LineNr">33887 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33888" class="LineNr">33888 </span> <span class="subxComment"># "xor-with"</span> +<span id="L33889" class="LineNr">33889 </span> 0x8/imm32/size +<span id="L33890" class="LineNr">33890 </span> 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L33891" class="LineNr">33891 </span><span class="subxMinorFunction">_string-shift-left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33892" class="LineNr">33892 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33893" class="LineNr">33893 </span> <span class="subxComment"># "shift-left"</span> +<span id="L33894" class="LineNr">33894 </span> 0xa/imm32/size +<span id="L33895" class="LineNr">33895 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x6c/l 0x65/e 0x66/f 0x74/t +<span id="L33896" class="LineNr">33896 </span><span class="subxMinorFunction">_string-shift-right</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33897" class="LineNr">33897 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33898" class="LineNr">33898 </span> <span class="subxComment"># "shift-right"</span> +<span id="L33899" class="LineNr">33899 </span> 0xb/imm32/size +<span id="L33900" class="LineNr">33900 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t +<span id="L33901" class="LineNr">33901 </span><span class="subxMinorFunction">_string-shift-right-signed</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33902" class="LineNr">33902 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33903" class="LineNr">33903 </span> <span class="subxComment"># "shift-right-signed"</span> +<span id="L33904" class="LineNr">33904 </span> 0x12/imm32/size +<span id="L33905" class="LineNr">33905 </span> 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x2d/dash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t 0x2d/dash 0x73/s 0x69/i 0x67/g 0x6e/n 0x65/e 0x64/d +<span id="L33906" class="LineNr">33906 </span> +<span id="L33907" class="LineNr">33907 </span><span class="subxComment"># string literals for SubX instructions</span> +<span id="L33908" class="LineNr">33908 </span><span class="subxMinorFunction">_string_01_add_to</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33909" class="LineNr">33909 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33910" class="LineNr">33910 </span> <span class="subxComment"># "01/add-to"</span> +<span id="L33911" class="LineNr">33911 </span> 0x9/imm32/size +<span id="L33912" class="LineNr">33912 </span> 0x30/0 0x31/1 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o +<span id="L33913" class="LineNr">33913 </span><span class="subxMinorFunction">_string_03_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33914" class="LineNr">33914 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33915" class="LineNr">33915 </span> <span class="subxComment"># "03/add"</span> +<span id="L33916" class="LineNr">33916 </span> 0x6/imm32/size +<span id="L33917" class="LineNr">33917 </span> 0x30/0 0x33/3 0x2f/slash 0x61/a 0x64/d 0x64/d +<span id="L33918" class="LineNr">33918 </span><span class="subxMinorFunction">_string_05_add_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33919" class="LineNr">33919 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33920" class="LineNr">33920 </span> <span class="subxComment"># "05/add-to-eax"</span> +<span id="L33921" class="LineNr">33921 </span> 0xd/imm32/size +<span id="L33922" class="LineNr">33922 </span> 0x30/0 0x35/5 0x2f/slash 0x61/a 0x64/d 0x64/d 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L33923" class="LineNr">33923 </span><span class="subxMinorFunction">_string_09_or_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33924" class="LineNr">33924 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33925" class="LineNr">33925 </span> <span class="subxComment"># "09/or-with"</span> +<span id="L33926" class="LineNr">33926 </span> 0xa/imm32/size +<span id="L33927" class="LineNr">33927 </span> 0x30/0 0x39/9 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L33928" class="LineNr">33928 </span><span class="subxMinorFunction">_string_0b_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33929" class="LineNr">33929 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33930" class="LineNr">33930 </span> <span class="subxComment"># "0b/or"</span> +<span id="L33931" class="LineNr">33931 </span> 0x5/imm32/size +<span id="L33932" class="LineNr">33932 </span> 0x30/0 0x62/b 0x2f/slash 0x6f/o 0x72/r +<span id="L33933" class="LineNr">33933 </span><span class="subxMinorFunction">_string_0d_or_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33934" class="LineNr">33934 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33935" class="LineNr">33935 </span> <span class="subxComment"># "0d/or-with-eax"</span> +<span id="L33936" class="LineNr">33936 </span> 0xe/imm32/size +<span id="L33937" class="LineNr">33937 </span> 0x30/0 0x64/d 0x2f/slash 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L33938" class="LineNr">33938 </span><span class="subxMinorFunction">_string_0f_82_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33939" class="LineNr">33939 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33940" class="LineNr">33940 </span> <span class="subxComment"># "0f 82/jump-if-addr<"</span> +<span id="L33941" class="LineNr">33941 </span> 0x13/imm32/size +<span id="L33942" class="LineNr">33942 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x32/2 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< +<span id="L33943" class="LineNr">33943 </span><span class="subxMinorFunction">_string_0f_82_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33944" class="LineNr">33944 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33945" class="LineNr">33945 </span> <span class="subxComment"># "0f 82/jump-if-addr< break/disp32"</span> +<span id="L33946" class="LineNr">33946 </span> 0x20/imm32/size +<span id="L33947" class="LineNr">33947 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x32/2 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33948" class="LineNr">33948 </span><span class="subxMinorFunction">_string_0f_82_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33949" class="LineNr">33949 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33950" class="LineNr">33950 </span> <span class="subxComment"># "0f 82/jump-if-addr< loop/disp32"</span> +<span id="L33951" class="LineNr">33951 </span> 0x1f/imm32/size +<span id="L33952" class="LineNr">33952 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x32/2 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33953" class="LineNr">33953 </span><span class="subxMinorFunction">_string_0f_83_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33954" class="LineNr">33954 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33955" class="LineNr">33955 </span> <span class="subxComment"># "0f 83/jump-if-addr>="</span> +<span id="L33956" class="LineNr">33956 </span> 0x14/imm32/size +<span id="L33957" class="LineNr">33957 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x33/3 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= +<span id="L33958" class="LineNr">33958 </span><span class="subxMinorFunction">_string_0f_83_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33959" class="LineNr">33959 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33960" class="LineNr">33960 </span> <span class="subxComment"># "0f 83/jump-if-addr>= break/disp32"</span> +<span id="L33961" class="LineNr">33961 </span> 0x21/imm32/size +<span id="L33962" class="LineNr">33962 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x33/3 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33963" class="LineNr">33963 </span><span class="subxMinorFunction">_string_0f_83_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33964" class="LineNr">33964 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33965" class="LineNr">33965 </span> <span class="subxComment"># "0f 83/jump-if-addr>= loop/disp32"</span> +<span id="L33966" class="LineNr">33966 </span> 0x20/imm32/size +<span id="L33967" class="LineNr">33967 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x33/3 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33968" class="LineNr">33968 </span><span class="subxMinorFunction">_string_0f_84_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33969" class="LineNr">33969 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33970" class="LineNr">33970 </span> <span class="subxComment"># "0f 84/jump-if-="</span> +<span id="L33971" class="LineNr">33971 </span> 0xf/imm32/size +<span id="L33972" class="LineNr">33972 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x34/4 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= +<span id="L33973" class="LineNr">33973 </span><span class="subxMinorFunction">_string_0f_84_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33974" class="LineNr">33974 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33975" class="LineNr">33975 </span> <span class="subxComment"># "0f 84/jump-if-= break/disp32"</span> +<span id="L33976" class="LineNr">33976 </span> 0x1c/imm32/size +<span id="L33977" class="LineNr">33977 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x34/4 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33978" class="LineNr">33978 </span><span class="subxMinorFunction">_string_0f_84_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33979" class="LineNr">33979 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33980" class="LineNr">33980 </span> <span class="subxComment"># "0f 84/jump-if-= loop/disp32"</span> +<span id="L33981" class="LineNr">33981 </span> 0x1b/imm32/size +<span id="L33982" class="LineNr">33982 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x34/4 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3d/= 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33983" class="LineNr">33983 </span><span class="subxMinorFunction">_string_0f_85_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33984" class="LineNr">33984 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33985" class="LineNr">33985 </span> <span class="subxComment"># "0f 85/jump-if-!="</span> +<span id="L33986" class="LineNr">33986 </span> 0x10/imm32/size +<span id="L33987" class="LineNr">33987 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x35/5 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= +<span id="L33988" class="LineNr">33988 </span><span class="subxMinorFunction">_string_0f_85_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33989" class="LineNr">33989 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33990" class="LineNr">33990 </span> <span class="subxComment"># "0f 85/jump-if-!= break/disp32"</span> +<span id="L33991" class="LineNr">33991 </span> 0x1d/imm32/size +<span id="L33992" class="LineNr">33992 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x35/5 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33993" class="LineNr">33993 </span><span class="subxMinorFunction">_string_0f_85_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33994" class="LineNr">33994 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L33995" class="LineNr">33995 </span> <span class="subxComment"># "0f 85/jump-if-!= loop/disp32"</span> +<span id="L33996" class="LineNr">33996 </span> 0x1c/imm32/size +<span id="L33997" class="LineNr">33997 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x35/5 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x21/! 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L33998" class="LineNr">33998 </span><span class="subxMinorFunction">_string_0f_86_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L33999" class="LineNr">33999 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34000" class="LineNr">34000 </span> <span class="subxComment"># "0f 86/jump-if-addr<="</span> +<span id="L34001" class="LineNr">34001 </span> 0x14/imm32/size +<span id="L34002" class="LineNr">34002 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x36/6 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= +<span id="L34003" class="LineNr">34003 </span><span class="subxMinorFunction">_string_0f_86_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34004" class="LineNr">34004 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34005" class="LineNr">34005 </span> <span class="subxComment"># "0f 86/jump-if-addr<= break/disp32"</span> +<span id="L34006" class="LineNr">34006 </span> 0x21/imm32/size +<span id="L34007" class="LineNr">34007 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x36/6 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34008" class="LineNr">34008 </span><span class="subxMinorFunction">_string_0f_86_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34009" class="LineNr">34009 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34010" class="LineNr">34010 </span> <span class="subxComment"># "0f 86/jump-if-addr<= loop/disp32"</span> +<span id="L34011" class="LineNr">34011 </span> 0x20/imm32/size +<span id="L34012" class="LineNr">34012 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x36/6 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3c/< 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34013" class="LineNr">34013 </span><span class="subxMinorFunction">_string_0f_87_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34014" class="LineNr">34014 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34015" class="LineNr">34015 </span> <span class="subxComment"># "0f 87/jump-if-addr>"</span> +<span id="L34016" class="LineNr">34016 </span> 0x13/imm32/size +<span id="L34017" class="LineNr">34017 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x37/7 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> +<span id="L34018" class="LineNr">34018 </span><span class="subxMinorFunction">_string_0f_87_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34019" class="LineNr">34019 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34020" class="LineNr">34020 </span> <span class="subxComment"># "0f 87/jump-if-addr> break/disp32"</span> +<span id="L34021" class="LineNr">34021 </span> 0x20/imm32/size +<span id="L34022" class="LineNr">34022 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x37/7 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34023" class="LineNr">34023 </span><span class="subxMinorFunction">_string_0f_87_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34024" class="LineNr">34024 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34025" class="LineNr">34025 </span> <span class="subxComment"># "0f 87/jump-if-addr> loop/disp32"</span> +<span id="L34026" class="LineNr">34026 </span> 0x1f/imm32/size +<span id="L34027" class="LineNr">34027 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x37/7 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x3e/> 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34028" class="LineNr">34028 </span><span class="subxMinorFunction">_string_0f_8c_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34029" class="LineNr">34029 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34030" class="LineNr">34030 </span> <span class="subxComment"># "0f 8c/jump-if-<"</span> +<span id="L34031" class="LineNr">34031 </span> 0xf/imm32/size +<span id="L34032" class="LineNr">34032 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x63/c 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< +<span id="L34033" class="LineNr">34033 </span><span class="subxMinorFunction">_string_0f_8c_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34034" class="LineNr">34034 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34035" class="LineNr">34035 </span> <span class="subxComment"># "0f 8c/jump-if-< break/disp32"</span> +<span id="L34036" class="LineNr">34036 </span> 0x1c/imm32/size +<span id="L34037" class="LineNr">34037 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x63/c 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34038" class="LineNr">34038 </span><span class="subxMinorFunction">_string_0f_8c_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34039" class="LineNr">34039 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34040" class="LineNr">34040 </span> <span class="subxComment"># "0f 8c/jump-if-< loop/disp32"</span> +<span id="L34041" class="LineNr">34041 </span> 0x1b/imm32/size +<span id="L34042" class="LineNr">34042 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x63/c 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34043" class="LineNr">34043 </span><span class="subxMinorFunction">_string_0f_8d_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34044" class="LineNr">34044 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34045" class="LineNr">34045 </span> <span class="subxComment"># "0f 8d/jump-if->="</span> +<span id="L34046" class="LineNr">34046 </span> 0x10/imm32/size +<span id="L34047" class="LineNr">34047 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x64/d 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= +<span id="L34048" class="LineNr">34048 </span><span class="subxMinorFunction">_string_0f_8d_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34049" class="LineNr">34049 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34050" class="LineNr">34050 </span> <span class="subxComment"># "0f 8d/jump-if->= break/disp32"</span> +<span id="L34051" class="LineNr">34051 </span> 0x1d/imm32/size +<span id="L34052" class="LineNr">34052 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x64/d 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34053" class="LineNr">34053 </span><span class="subxMinorFunction">_string_0f_8d_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34054" class="LineNr">34054 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34055" class="LineNr">34055 </span> <span class="subxComment"># "0f 8d/jump-if->= loop/disp32"</span> +<span id="L34056" class="LineNr">34056 </span> 0x1c/imm32/size +<span id="L34057" class="LineNr">34057 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x64/d 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34058" class="LineNr">34058 </span><span class="subxMinorFunction">_string_0f_8e_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34059" class="LineNr">34059 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34060" class="LineNr">34060 </span> <span class="subxComment"># "0f 8e/jump-if-<="</span> +<span id="L34061" class="LineNr">34061 </span> 0x10/imm32/size +<span id="L34062" class="LineNr">34062 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x65/e 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= +<span id="L34063" class="LineNr">34063 </span><span class="subxMinorFunction">_string_0f_8e_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34064" class="LineNr">34064 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34065" class="LineNr">34065 </span> <span class="subxComment"># "0f 8e/jump-if-<= break/disp32"</span> +<span id="L34066" class="LineNr">34066 </span> 0x1d/imm32/size +<span id="L34067" class="LineNr">34067 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x65/e 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34068" class="LineNr">34068 </span><span class="subxMinorFunction">_string_0f_8e_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34069" class="LineNr">34069 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34070" class="LineNr">34070 </span> <span class="subxComment"># "0f 8e/jump-if-<= loop/disp32"</span> +<span id="L34071" class="LineNr">34071 </span> 0x1c/imm32/size +<span id="L34072" class="LineNr">34072 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x65/e 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3c/< 0x3d/= 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34073" class="LineNr">34073 </span><span class="subxMinorFunction">_string_0f_8f_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34074" class="LineNr">34074 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34075" class="LineNr">34075 </span> <span class="subxComment"># "0f 8f/jump-if->"</span> +<span id="L34076" class="LineNr">34076 </span> 0xf/imm32/size +<span id="L34077" class="LineNr">34077 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x66/f 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> +<span id="L34078" class="LineNr">34078 </span><span class="subxMinorFunction">_string_0f_8f_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34079" class="LineNr">34079 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34080" class="LineNr">34080 </span> <span class="subxComment"># "0f 8f/jump-if-> break/disp32"</span> +<span id="L34081" class="LineNr">34081 </span> 0x1c/imm32/size +<span id="L34082" class="LineNr">34082 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x66/f 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34083" class="LineNr">34083 </span><span class="subxMinorFunction">_string_0f_8f_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34084" class="LineNr">34084 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34085" class="LineNr">34085 </span> <span class="subxComment"># "0f 8f/jump-if-> loop/disp32"</span> +<span id="L34086" class="LineNr">34086 </span> 0x1b/imm32/size +<span id="L34087" class="LineNr">34087 </span> 0x30/0 0x66/f 0x20/space 0x38/8 0x66/f 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x2d/dash 0x69/i 0x66/f 0x2d/dash 0x3e/> 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34088" class="LineNr">34088 </span><span class="subxMinorFunction">_string_0f_af_multiply</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34089" class="LineNr">34089 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34090" class="LineNr">34090 </span> <span class="subxComment"># "0f af/multiply"</span> +<span id="L34091" class="LineNr">34091 </span> 0xe/imm32/size +<span id="L34092" class="LineNr">34092 </span> 0x30/0 0x66/f 0x20/space 0x61/a 0x66/f 0x2f/slash 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y +<span id="L34093" class="LineNr">34093 </span><span class="subxMinorFunction">_string_f3_0f_2a_convert_to_float</span>: +<span id="L34094" class="LineNr">34094 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34095" class="LineNr">34095 </span> <span class="subxComment"># "f3 0f 2a/convert-to-float"</span> +<span id="L34096" class="LineNr">34096 </span> 0x19/imm32/size +<span id="L34097" class="LineNr">34097 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x32/2 0x61/a 0x2f/slash 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x66/f 0x6c/l 0x6f/o 0x61/a 0x74/t +<span id="L34098" class="LineNr">34098 </span><span class="subxMinorFunction">_string_f3_0f_2d_convert_to_int</span>: +<span id="L34099" class="LineNr">34099 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34100" class="LineNr">34100 </span> <span class="subxComment"># "f3 0f 2d/convert-to-int"</span> +<span id="L34101" class="LineNr">34101 </span> 0x17/imm32/size +<span id="L34102" class="LineNr">34102 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x32/2 0x64/d 0x2f/slash 0x63/c 0x6f/o 0x6e/n 0x76/v 0x65/e 0x72/r 0x74/t 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x69/i 0x6e/n 0x74/t +<span id="L34103" class="LineNr">34103 </span><span class="subxMinorFunction">_string_f3_0f_2c_truncate_to_int</span>: +<span id="L34104" class="LineNr">34104 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34105" class="LineNr">34105 </span> <span class="subxComment"># "f3 0f 2c/truncate-to-int"</span> +<span id="L34106" class="LineNr">34106 </span> 0x18/imm32/size +<span id="L34107" class="LineNr">34107 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x32/2 0x63/c 0x2f/slash 0x74/t 0x72/r 0x75/u 0x6e/n 0x63/c 0x61/a 0x74/t 0x65/e 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x69/i 0x6e/n 0x74/t +<span id="L34108" class="LineNr">34108 </span><span class="subxMinorFunction">_string_f3_0f_58_add</span>: +<span id="L34109" class="LineNr">34109 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34110" class="LineNr">34110 </span> <span class="subxComment"># "f3 0f 58/add"</span> +<span id="L34111" class="LineNr">34111 </span> 0xc/imm32/size +<span id="L34112" class="LineNr">34112 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x38/8 0x2f/slash 0x61/a 0x64/d 0x64/d +<span id="L34113" class="LineNr">34113 </span><span class="subxMinorFunction">_string_f3_0f_5c_subtract</span>: +<span id="L34114" class="LineNr">34114 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34115" class="LineNr">34115 </span> <span class="subxComment"># "f3 0f 5c/subtract"</span> +<span id="L34116" class="LineNr">34116 </span> 0x11/imm32/size +<span id="L34117" class="LineNr">34117 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x63/c 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t +<span id="L34118" class="LineNr">34118 </span><span class="subxMinorFunction">_string_f3_0f_59_multiply</span>: +<span id="L34119" class="LineNr">34119 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34120" class="LineNr">34120 </span> <span class="subxComment"># "f3 0f 59/multiply"</span> +<span id="L34121" class="LineNr">34121 </span> 0x11/imm32/size +<span id="L34122" class="LineNr">34122 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x39/9 0x2f/slash 0x6d/m 0x75/u 0x6c/l 0x74/t 0x69/i 0x70/p 0x6c/l 0x79/y +<span id="L34123" class="LineNr">34123 </span><span class="subxMinorFunction">_string_f3_0f_5e_divide</span>: +<span id="L34124" class="LineNr">34124 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34125" class="LineNr">34125 </span> <span class="subxComment"># "f3 0f 5e/divide"</span> +<span id="L34126" class="LineNr">34126 </span> 0xf/imm32/size +<span id="L34127" class="LineNr">34127 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x65/e 0x2f/slash 0x64/d 0x69/i 0x76/v 0x69/i 0x64/d 0x65/e +<span id="L34128" class="LineNr">34128 </span><span class="subxMinorFunction">_string_f3_0f_53_reciprocal</span>: +<span id="L34129" class="LineNr">34129 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34130" class="LineNr">34130 </span> <span class="subxComment"># "f3 0f 53/reciprocal"</span> +<span id="L34131" class="LineNr">34131 </span> 0x13/imm32/size +<span id="L34132" class="LineNr">34132 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x33/3 0x2f/slash 0x72/r 0x65/e 0x63/c 0x69/i 0x70/p 0x72/r 0x6f/o 0x63/c 0x61/a 0x6c/l +<span id="L34133" class="LineNr">34133 </span><span class="subxMinorFunction">_string_f3_0f_51_square_root</span>: +<span id="L34134" class="LineNr">34134 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34135" class="LineNr">34135 </span> <span class="subxComment"># "f3 0f 51/square-root"</span> +<span id="L34136" class="LineNr">34136 </span> 0x14/imm32/size +<span id="L34137" class="LineNr">34137 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x31/1 0x2f/slash 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/dash 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L34138" class="LineNr">34138 </span><span class="subxMinorFunction">_string_f3_0f_52_inverse_square_root</span>: +<span id="L34139" class="LineNr">34139 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34140" class="LineNr">34140 </span> <span class="subxComment"># "f3 0f 52/inverse-square-root"</span> +<span id="L34141" class="LineNr">34141 </span> 0x1c/imm32/size +<span id="L34142" class="LineNr">34142 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x32/2 0x2f/slash 0x69/i 0x6e/n 0x76/v 0x65/e 0x72/r 0x73/s 0x65/e 0x2d/dash 0x73/s 0x71/q 0x75/u 0x61/a 0x72/r 0x65/e 0x2d/dash 0x72/r 0x6f/o 0x6f/o 0x74/t +<span id="L34143" class="LineNr">34143 </span><span class="subxMinorFunction">_string_f3_0f_5d_min</span>: +<span id="L34144" class="LineNr">34144 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34145" class="LineNr">34145 </span> <span class="subxComment"># "f3 0f 5d/min"</span> +<span id="L34146" class="LineNr">34146 </span> 0xc/imm32/size +<span id="L34147" class="LineNr">34147 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x64/d 0x2f/slash 0x6d/m 0x69/i 0x6e/n +<span id="L34148" class="LineNr">34148 </span><span class="subxMinorFunction">_string_f3_0f_5f_max</span>: +<span id="L34149" class="LineNr">34149 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34150" class="LineNr">34150 </span> <span class="subxComment"># "f3 0f 5f/max"</span> +<span id="L34151" class="LineNr">34151 </span> 0xc/imm32/size +<span id="L34152" class="LineNr">34152 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x35/5 0x66/f 0x2f/slash 0x6d/m 0x61/a 0x78/x +<span id="L34153" class="LineNr">34153 </span><span class="subxMinorFunction">_string_f3_0f_10_copy</span>: +<span id="L34154" class="LineNr">34154 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34155" class="LineNr">34155 </span> <span class="subxComment"># "f3 0f 10/copy"</span> +<span id="L34156" class="LineNr">34156 </span> 0xd/imm32/size +<span id="L34157" class="LineNr">34157 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x31/1 0x30/0 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L34158" class="LineNr">34158 </span><span class="subxMinorFunction">_string_f3_0f_11_copy</span>: +<span id="L34159" class="LineNr">34159 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34160" class="LineNr">34160 </span> <span class="subxComment"># "f3 0f 11/copy"</span> +<span id="L34161" class="LineNr">34161 </span> 0xd/imm32/size +<span id="L34162" class="LineNr">34162 </span> 0x66/f 0x33/3 0x20/space 0x30/0 0x66/f 0x20/space 0x31/1 0x31/1 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L34163" class="LineNr">34163 </span><span class="subxMinorFunction">_string_0f_2f_compare</span>: +<span id="L34164" class="LineNr">34164 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34165" class="LineNr">34165 </span> <span class="subxComment"># "0f 2f/compare"</span> +<span id="L34166" class="LineNr">34166 </span> 0xd/imm32/size +<span id="L34167" class="LineNr">34167 </span> 0x30/0 0x66/f 0x20/space 0x32/2 0x66/f 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e +<span id="L34168" class="LineNr">34168 </span><span class="subxMinorFunction">_string_21_and_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34169" class="LineNr">34169 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34170" class="LineNr">34170 </span> <span class="subxComment"># "21/and-with"</span> +<span id="L34171" class="LineNr">34171 </span> 0xb/imm32/size +<span id="L34172" class="LineNr">34172 </span> 0x32/2 0x31/1 0x2f/slash 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34173" class="LineNr">34173 </span><span class="subxMinorFunction">_string_23_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34174" class="LineNr">34174 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34175" class="LineNr">34175 </span> <span class="subxComment"># "23/and"</span> +<span id="L34176" class="LineNr">34176 </span> 0x6/imm32/size +<span id="L34177" class="LineNr">34177 </span> 0x32/2 0x33/3 0x2f/slash 0x61/a 0x6e/n 0x64/d +<span id="L34178" class="LineNr">34178 </span><span class="subxMinorFunction">_string_25_and_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34179" class="LineNr">34179 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34180" class="LineNr">34180 </span> <span class="subxComment"># "25/and-with-eax"</span> +<span id="L34181" class="LineNr">34181 </span> 0xf/imm32/size +<span id="L34182" class="LineNr">34182 </span> 0x32/2 0x35/5 0x2f/slash 0x61/a 0x6e/n 0x64/d 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L34183" class="LineNr">34183 </span><span class="subxMinorFunction">_string_29_subtract_from</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34184" class="LineNr">34184 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34185" class="LineNr">34185 </span> <span class="subxComment"># "29/subtract-from"</span> +<span id="L34186" class="LineNr">34186 </span> 0x10/imm32/size +<span id="L34187" class="LineNr">34187 </span> 0x32/2 0x39/9 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t 0x2d/dash 0x66/f 0x72/r 0x6f/o 0x6d/m +<span id="L34188" class="LineNr">34188 </span><span class="subxMinorFunction">_string_2b_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34189" class="LineNr">34189 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34190" class="LineNr">34190 </span> <span class="subxComment"># "2b/subtract"</span> +<span id="L34191" class="LineNr">34191 </span> 0xb/imm32/size +<span id="L34192" class="LineNr">34192 </span> 0x32/2 0x62/b 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t +<span id="L34193" class="LineNr">34193 </span><span class="subxMinorFunction">_string_2d_subtract_from_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34194" class="LineNr">34194 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34195" class="LineNr">34195 </span> <span class="subxComment"># "2d/subtract-from-eax"</span> +<span id="L34196" class="LineNr">34196 </span> 0x14/imm32/size +<span id="L34197" class="LineNr">34197 </span> 0x32/2 0x64/d 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t 0x2d/dash 0x66/f 0x72/r 0x6f/o 0x6d/m 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L34198" class="LineNr">34198 </span><span class="subxMinorFunction">_string_31_xor_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34199" class="LineNr">34199 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34200" class="LineNr">34200 </span> <span class="subxComment"># "31/xor-with"</span> +<span id="L34201" class="LineNr">34201 </span> 0xb/imm32/size +<span id="L34202" class="LineNr">34202 </span> 0x33/3 0x31/1 0x2f/slash 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34203" class="LineNr">34203 </span><span class="subxMinorFunction">_string_33_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34204" class="LineNr">34204 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34205" class="LineNr">34205 </span> <span class="subxComment"># "33/xor"</span> +<span id="L34206" class="LineNr">34206 </span> 0x6/imm32/size +<span id="L34207" class="LineNr">34207 </span> 0x33/3 0x33/3 0x2f/slash 0x78/x 0x6f/o 0x72/r +<span id="L34208" class="LineNr">34208 </span><span class="subxMinorFunction">_string_35_xor_with_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34209" class="LineNr">34209 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34210" class="LineNr">34210 </span> <span class="subxComment"># "35/xor-with-eax"</span> +<span id="L34211" class="LineNr">34211 </span> 0xf/imm32/size +<span id="L34212" class="LineNr">34212 </span> 0x33/3 0x35/5 0x2f/slash 0x78/x 0x6f/o 0x72/r 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L34213" class="LineNr">34213 </span><span class="subxMinorFunction">_string_39_compare-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34214" class="LineNr">34214 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34215" class="LineNr">34215 </span> <span class="subxComment"># "39/compare->"</span> +<span id="L34216" class="LineNr">34216 </span> 0xc/imm32/size +<span id="L34217" class="LineNr">34217 </span> 0x33/3 0x39/9 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e 0x2d/dash 0x3e/> +<span id="L34218" class="LineNr">34218 </span><span class="subxMinorFunction">_string_3b_compare<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34219" class="LineNr">34219 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34220" class="LineNr">34220 </span> <span class="subxComment"># "3b/compare<-"</span> +<span id="L34221" class="LineNr">34221 </span> 0xc/imm32/size +<span id="L34222" class="LineNr">34222 </span> 0x33/3 0x62/b 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e 0x3c/< 0x2d/dash +<span id="L34223" class="LineNr">34223 </span><span class="subxMinorFunction">_string_3d_compare_eax_with</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34224" class="LineNr">34224 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34225" class="LineNr">34225 </span> <span class="subxComment"># "3d/compare-eax-with"</span> +<span id="L34226" class="LineNr">34226 </span> 0x13/imm32/size +<span id="L34227" class="LineNr">34227 </span> 0x33/3 0x64/d 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e 0x2d/dash 0x65/e 0x61/a 0x78/x 0x2d/dash 0x77/w 0x69/i 0x74/t 0x68/h +<span id="L34228" class="LineNr">34228 </span><span class="subxMinorFunction">_string_40_increment_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34229" class="LineNr">34229 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34230" class="LineNr">34230 </span> <span class="subxComment"># "40/increment-eax"</span> +<span id="L34231" class="LineNr">34231 </span> 0x10/imm32/size +<span id="L34232" class="LineNr">34232 </span> 0x34/4 0x30/0 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L34233" class="LineNr">34233 </span><span class="subxMinorFunction">_string_41_increment_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34234" class="LineNr">34234 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34235" class="LineNr">34235 </span> <span class="subxComment"># "41/increment-ecx"</span> +<span id="L34236" class="LineNr">34236 </span> 0x10/imm32/size +<span id="L34237" class="LineNr">34237 </span> 0x34/4 0x31/1 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x63/c 0x78/x +<span id="L34238" class="LineNr">34238 </span><span class="subxMinorFunction">_string_42_increment_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34239" class="LineNr">34239 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34240" class="LineNr">34240 </span> <span class="subxComment"># "42/increment-edx"</span> +<span id="L34241" class="LineNr">34241 </span> 0x10/imm32/size +<span id="L34242" class="LineNr">34242 </span> 0x34/4 0x32/2 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x78/x +<span id="L34243" class="LineNr">34243 </span><span class="subxMinorFunction">_string_43_increment_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34244" class="LineNr">34244 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34245" class="LineNr">34245 </span> <span class="subxComment"># "43/increment-ebx"</span> +<span id="L34246" class="LineNr">34246 </span> 0x10/imm32/size +<span id="L34247" class="LineNr">34247 </span> 0x34/4 0x33/3 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x62/b 0x78/x +<span id="L34248" class="LineNr">34248 </span><span class="subxMinorFunction">_string_46_increment_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34249" class="LineNr">34249 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34250" class="LineNr">34250 </span> <span class="subxComment"># "46/increment-esi"</span> +<span id="L34251" class="LineNr">34251 </span> 0x10/imm32/size +<span id="L34252" class="LineNr">34252 </span> 0x34/4 0x36/6 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x73/s 0x69/i +<span id="L34253" class="LineNr">34253 </span><span class="subxMinorFunction">_string_47_increment_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34254" class="LineNr">34254 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34255" class="LineNr">34255 </span> <span class="subxComment"># "47/increment-edi"</span> +<span id="L34256" class="LineNr">34256 </span> 0x10/imm32/size +<span id="L34257" class="LineNr">34257 </span> 0x34/4 0x37/7 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x69/i +<span id="L34258" class="LineNr">34258 </span><span class="subxMinorFunction">_string_48_decrement_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34259" class="LineNr">34259 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34260" class="LineNr">34260 </span> <span class="subxComment"># "48/decrement-eax"</span> +<span id="L34261" class="LineNr">34261 </span> 0x10/imm32/size +<span id="L34262" class="LineNr">34262 </span> 0x34/4 0x38/8 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L34263" class="LineNr">34263 </span><span class="subxMinorFunction">_string_49_decrement_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34264" class="LineNr">34264 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34265" class="LineNr">34265 </span> <span class="subxComment"># "49/decrement-ecx"</span> +<span id="L34266" class="LineNr">34266 </span> 0x10/imm32/size +<span id="L34267" class="LineNr">34267 </span> 0x34/4 0x39/9 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x63/c 0x78/x +<span id="L34268" class="LineNr">34268 </span><span class="subxMinorFunction">_string_4a_decrement_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34269" class="LineNr">34269 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34270" class="LineNr">34270 </span> <span class="subxComment"># "4a/decrement-edx"</span> +<span id="L34271" class="LineNr">34271 </span> 0x10/imm32/size +<span id="L34272" class="LineNr">34272 </span> 0x34/4 0x61/a 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x78/x +<span id="L34273" class="LineNr">34273 </span><span class="subxMinorFunction">_string_4b_decrement_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34274" class="LineNr">34274 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34275" class="LineNr">34275 </span> <span class="subxComment"># "4b/decrement-ebx"</span> +<span id="L34276" class="LineNr">34276 </span> 0x10/imm32/size +<span id="L34277" class="LineNr">34277 </span> 0x34/4 0x62/b 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x62/b 0x78/x +<span id="L34278" class="LineNr">34278 </span><span class="subxMinorFunction">_string_4e_decrement_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34279" class="LineNr">34279 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34280" class="LineNr">34280 </span> <span class="subxComment"># "4e/decrement-esi"</span> +<span id="L34281" class="LineNr">34281 </span> 0x10/imm32/size +<span id="L34282" class="LineNr">34282 </span> 0x34/4 0x65/e 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x73/s 0x69/i +<span id="L34283" class="LineNr">34283 </span><span class="subxMinorFunction">_string_4f_decrement_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34284" class="LineNr">34284 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34285" class="LineNr">34285 </span> <span class="subxComment"># "4f/decrement-edi"</span> +<span id="L34286" class="LineNr">34286 </span> 0x10/imm32/size +<span id="L34287" class="LineNr">34287 </span> 0x34/4 0x66/f 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t 0x2d/dash 0x65/e 0x64/d 0x69/i +<span id="L34288" class="LineNr">34288 </span><span class="subxMinorFunction">_string_81_subop_add</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34289" class="LineNr">34289 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34290" class="LineNr">34290 </span> <span class="subxComment"># "81 0/subop/add"</span> +<span id="L34291" class="LineNr">34291 </span> 0xe/imm32/size +<span id="L34292" class="LineNr">34292 </span> 0x38/8 0x31/1 0x20/space 0x30/0 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x61/a 0x64/d 0x64/d +<span id="L34293" class="LineNr">34293 </span><span class="subxMinorFunction">_string_81_subop_or</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34294" class="LineNr">34294 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34295" class="LineNr">34295 </span> <span class="subxComment"># "81 1/subop/or"</span> +<span id="L34296" class="LineNr">34296 </span> 0xd/imm32/size +<span id="L34297" class="LineNr">34297 </span> 0x38/8 0x31/1 0x20/space 0x31/1 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x6f/o 0x72/r +<span id="L34298" class="LineNr">34298 </span><span class="subxMinorFunction">_string_81_subop_and</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34299" class="LineNr">34299 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34300" class="LineNr">34300 </span> <span class="subxComment"># "81 4/subop/and"</span> +<span id="L34301" class="LineNr">34301 </span> 0xe/imm32/size +<span id="L34302" class="LineNr">34302 </span> 0x38/8 0x31/1 0x20/space 0x34/4 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x61/a 0x6e/n 0x64/d +<span id="L34303" class="LineNr">34303 </span><span class="subxMinorFunction">_string_81_subop_subtract</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34304" class="LineNr">34304 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34305" class="LineNr">34305 </span> <span class="subxComment"># "81 5/subop/subtract"</span> +<span id="L34306" class="LineNr">34306 </span> 0x13/imm32/size +<span id="L34307" class="LineNr">34307 </span> 0x38/8 0x31/1 0x20/space 0x35/5 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x73/s 0x75/u 0x62/b 0x74/t 0x72/r 0x61/a 0x63/c 0x74/t +<span id="L34308" class="LineNr">34308 </span><span class="subxMinorFunction">_string_81_subop_xor</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34309" class="LineNr">34309 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34310" class="LineNr">34310 </span> <span class="subxComment"># "81 6/subop/xor"</span> +<span id="L34311" class="LineNr">34311 </span> 0xe/imm32/size +<span id="L34312" class="LineNr">34312 </span> 0x38/8 0x31/1 0x20/space 0x36/6 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x78/x 0x6f/o 0x72/r +<span id="L34313" class="LineNr">34313 </span><span class="subxMinorFunction">_string_81_subop_compare</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34314" class="LineNr">34314 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34315" class="LineNr">34315 </span> <span class="subxComment"># "81 7/subop/compare"</span> +<span id="L34316" class="LineNr">34316 </span> 0x12/imm32/size +<span id="L34317" class="LineNr">34317 </span> 0x38/8 0x31/1 0x20/space 0x37/7 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x63/c 0x6f/o 0x6d/m 0x70/p 0x61/a 0x72/r 0x65/e +<span id="L34318" class="LineNr">34318 </span><span class="subxMinorFunction">_string_89_<-</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34319" class="LineNr">34319 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34320" class="LineNr">34320 </span> <span class="subxComment"># "89/<-"</span> +<span id="L34321" class="LineNr">34321 </span> 0x5/imm32/size +<span id="L34322" class="LineNr">34322 </span> 0x38/8 0x39/9 0x2f/slash 0x3c/< 0x2d/dash +<span id="L34323" class="LineNr">34323 </span><span class="subxMinorFunction">_string_8b_-></span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34324" class="LineNr">34324 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34325" class="LineNr">34325 </span> <span class="subxComment"># "8b/->"</span> +<span id="L34326" class="LineNr">34326 </span> 0x5/imm32/size +<span id="L34327" class="LineNr">34327 </span> 0x38/8 0x62/b 0x2f/slash 0x2d/dash 0x3e/> +<span id="L34328" class="LineNr">34328 </span><span class="subxMinorFunction">_string_8a_copy_byte</span>: +<span id="L34329" class="LineNr">34329 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34330" class="LineNr">34330 </span> <span class="subxComment"># "8a/byte->"</span> +<span id="L34331" class="LineNr">34331 </span> 0x9/imm32/size +<span id="L34332" class="LineNr">34332 </span> 0x38/8 0x61/a 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x2d/- 0x3e/> +<span id="L34333" class="LineNr">34333 </span><span class="subxMinorFunction">_string_88_copy_byte</span>: +<span id="L34334" class="LineNr">34334 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34335" class="LineNr">34335 </span> <span class="subxComment"># "88/byte<-"</span> +<span id="L34336" class="LineNr">34336 </span> 0x9/imm32/size +<span id="L34337" class="LineNr">34337 </span> 0x38/8 0x38/8 0x2f// 0x62/b 0x79/y 0x74/t 0x65/e 0x3c/< 0x2d/- +<span id="L34338" class="LineNr">34338 </span><span class="subxMinorFunction">_string_8d_copy_address</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34339" class="LineNr">34339 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34340" class="LineNr">34340 </span> <span class="subxComment"># "8d/copy-address"</span> +<span id="L34341" class="LineNr">34341 </span> 0xf/imm32/size +<span id="L34342" class="LineNr">34342 </span> 0x38/8 0x64/d 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x61/a 0x64/d 0x64/d 0x72/r 0x65/e 0x73/s 0x73/s +<span id="L34343" class="LineNr">34343 </span><span class="subxMinorFunction">_string_b8_copy_to_eax</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34344" class="LineNr">34344 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34345" class="LineNr">34345 </span> <span class="subxComment"># "b8/copy-to-eax"</span> +<span id="L34346" class="LineNr">34346 </span> 0xe/imm32/size +<span id="L34347" class="LineNr">34347 </span> 0x62/b 0x38/8 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x61/a 0x78/x +<span id="L34348" class="LineNr">34348 </span><span class="subxMinorFunction">_string_b9_copy_to_ecx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34349" class="LineNr">34349 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34350" class="LineNr">34350 </span> <span class="subxComment"># "b9/copy-to-ecx"</span> +<span id="L34351" class="LineNr">34351 </span> 0xe/imm32/size +<span id="L34352" class="LineNr">34352 </span> 0x62/b 0x39/9 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x63/c 0x78/x +<span id="L34353" class="LineNr">34353 </span><span class="subxMinorFunction">_string_ba_copy_to_edx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34354" class="LineNr">34354 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34355" class="LineNr">34355 </span> <span class="subxComment"># "ba/copy-to-edx"</span> +<span id="L34356" class="LineNr">34356 </span> 0xe/imm32/size +<span id="L34357" class="LineNr">34357 </span> 0x62/b 0x61/a 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x64/d 0x78/x +<span id="L34358" class="LineNr">34358 </span><span class="subxMinorFunction">_string_bb_copy_to_ebx</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34359" class="LineNr">34359 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34360" class="LineNr">34360 </span> <span class="subxComment"># "bb/copy-to-ebx"</span> +<span id="L34361" class="LineNr">34361 </span> 0xe/imm32/size +<span id="L34362" class="LineNr">34362 </span> 0x62/b 0x62/b 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x62/b 0x78/x +<span id="L34363" class="LineNr">34363 </span><span class="subxMinorFunction">_string_be_copy_to_esi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34364" class="LineNr">34364 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34365" class="LineNr">34365 </span> <span class="subxComment"># "be/copy-to-esi"</span> +<span id="L34366" class="LineNr">34366 </span> 0xe/imm32/size +<span id="L34367" class="LineNr">34367 </span> 0x62/b 0x65/e 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x73/s 0x69/i +<span id="L34368" class="LineNr">34368 </span><span class="subxMinorFunction">_string_bf_copy_to_edi</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34369" class="LineNr">34369 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34370" class="LineNr">34370 </span> <span class="subxComment"># "bf/copy-to-edi"</span> +<span id="L34371" class="LineNr">34371 </span> 0xe/imm32/size +<span id="L34372" class="LineNr">34372 </span> 0x62/b 0x66/f 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y 0x2d/dash 0x74/t 0x6f/o 0x2d/dash 0x65/e 0x64/d 0x69/i +<span id="L34373" class="LineNr">34373 </span><span class="subxMinorFunction">_string_c7_subop_copy</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34374" class="LineNr">34374 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34375" class="LineNr">34375 </span> <span class="subxComment"># "c7 0/subop/copy"</span> +<span id="L34376" class="LineNr">34376 </span> 0xf/imm32/size +<span id="L34377" class="LineNr">34377 </span> 0x63/c 0x37/7 0x20/space 0x30/0 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x63/c 0x6f/o 0x70/p 0x79/y +<span id="L34378" class="LineNr">34378 </span><span class="subxMinorFunction">_string_e9_jump_label</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34379" class="LineNr">34379 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34380" class="LineNr">34380 </span> <span class="subxComment"># "e9/jump"</span> +<span id="L34381" class="LineNr">34381 </span> 0x7/imm32/size +<span id="L34382" class="LineNr">34382 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p +<span id="L34383" class="LineNr">34383 </span><span class="subxMinorFunction">_string_e9_jump_break</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34384" class="LineNr">34384 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34385" class="LineNr">34385 </span> <span class="subxComment"># "e9/jump break/disp32"</span> +<span id="L34386" class="LineNr">34386 </span> 0x14/imm32/size +<span id="L34387" class="LineNr">34387 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x20/space 0x62/b 0x72/r 0x65/e 0x61/a 0x6b/k 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34388" class="LineNr">34388 </span><span class="subxMinorFunction">_string_e9_jump_loop</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34389" class="LineNr">34389 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34390" class="LineNr">34390 </span> <span class="subxComment"># "e9/jump loop/disp32"</span> +<span id="L34391" class="LineNr">34391 </span> 0x13/imm32/size +<span id="L34392" class="LineNr">34392 </span> 0x65/e 0x39/9 0x2f/slash 0x6a/j 0x75/u 0x6d/m 0x70/p 0x20/space 0x6c/l 0x6f/o 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x69/i 0x73/s 0x70/p 0x33/3 0x32/2 +<span id="L34393" class="LineNr">34393 </span><span class="subxMinorFunction">_string_f7_subop_negate</span>: +<span id="L34394" class="LineNr">34394 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34395" class="LineNr">34395 </span> <span class="subxComment"># "f7 3/subop/negate"</span> +<span id="L34396" class="LineNr">34396 </span> 0x11/imm32/size +<span id="L34397" class="LineNr">34397 </span> 0x66/f 0x37/7 0x20/space 0x33/3 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x6e/n 0x65/e 0x67/g 0x61/a 0x74/t 0x65/e +<span id="L34398" class="LineNr">34398 </span><span class="subxMinorFunction">_string_ff_subop_increment</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34399" class="LineNr">34399 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34400" class="LineNr">34400 </span> <span class="subxComment"># "ff 0/subop/increment"</span> +<span id="L34401" class="LineNr">34401 </span> 0x14/imm32/size +<span id="L34402" class="LineNr">34402 </span> 0x66/f 0x66/f 0x20/space 0x30/0 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x69/i 0x6e/n 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L34403" class="LineNr">34403 </span><span class="subxMinorFunction">_string_ff_subop_decrement</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34404" class="LineNr">34404 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34405" class="LineNr">34405 </span> <span class="subxComment"># "ff 1/subop/decrement"</span> +<span id="L34406" class="LineNr">34406 </span> 0x14/imm32/size +<span id="L34407" class="LineNr">34407 </span> 0x66/f 0x66/f 0x20/space 0x31/1 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x64/d 0x65/e 0x63/c 0x72/r 0x65/e 0x6d/m 0x65/e 0x6e/n 0x74/t +<span id="L34408" class="LineNr">34408 </span><span class="subxMinorFunction">_string_c1_subop_shift_left</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34409" class="LineNr">34409 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34410" class="LineNr">34410 </span> <span class="subxComment"># "c1/shift 4/subop/left"</span> +<span id="L34411" class="LineNr">34411 </span> 0x15/imm32/size +<span id="L34412" class="LineNr">34412 </span> 0x63/c 0x31/1 0x2f/slash 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x20/space 0x34/4 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x6c/l 0x65/e 0x66/f 0x74/t +<span id="L34413" class="LineNr">34413 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_padding_zeroes</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34414" class="LineNr">34414 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34415" class="LineNr">34415 </span> <span class="subxComment"># "c1/shift 5/subop/right-padding-zeroes"</span> +<span id="L34416" class="LineNr">34416 </span> 0x25/imm32/size +<span id="L34417" class="LineNr">34417 </span> 0x63/c 0x31/1 0x2f/slash 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x20/space 0x35/5 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t 0x2d/dash 0x70/p 0x61/a 0x64/d 0x64/d 0x69/i 0x6e/n 0x67/g 0x2d/dash 0x7a/z 0x65/e 0x72/r 0x6f/o 0x65/e 0x73/s +<span id="L34418" class="LineNr">34418 </span><span class="subxMinorFunction">_string_c1_subop_shift_right_preserving_sign</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34419" class="LineNr">34419 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34420" class="LineNr">34420 </span> <span class="subxComment"># "c1/shift 7/subop/right-preserving-sign"</span> +<span id="L34421" class="LineNr">34421 </span> 0x26/imm32/size +<span id="L34422" class="LineNr">34422 </span> 0x63/c 0x31/1 0x2f/slash 0x73/s 0x68/h 0x69/i 0x66/f 0x74/t 0x20/space 0x37/7 0x2f/slash 0x73/s 0x75/u 0x62/b 0x6f/o 0x70/p 0x2f/slash 0x72/r 0x69/i 0x67/g 0x68/h 0x74/t 0x2d/dash 0x70/p 0x72/r 0x65/e 0x73/s 0x65/e 0x72/r 0x76/v 0x69/i 0x6e/n 0x67/g 0x2d/dash 0x73/s 0x69/i 0x67/g 0x6e/n +<span id="L34423" class="LineNr">34423 </span> +<span id="L34424" class="LineNr">34424 </span><span class="SpecialChar">Single-int-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34425" class="LineNr">34425 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34426" class="LineNr">34426 </span> 0x11/imm32/alloc-id:fake +<span id="L34427" class="LineNr">34427 </span> <span class="SpecialChar"><a href='mu.subx.html#L34431'>Int-var-in-mem</a></span>/imm32 +<span id="L34428" class="LineNr">34428 </span> 0/imm32/next +<span id="L34429" class="LineNr">34429 </span> 0/imm32/next +<span id="L34430" class="LineNr">34430 </span> +<span id="L34431" class="LineNr">34431 </span><span class="SpecialChar">Int-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L34432" class="LineNr">34432 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34433" class="LineNr">34433 </span> 0/imm32/name +<span id="L34434" class="LineNr">34434 </span> 0/imm32/name +<span id="L34435" class="LineNr">34435 </span> 0x11/imm32/alloc-id:fake +<span id="L34436" class="LineNr">34436 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34437" class="LineNr">34437 </span> 1/imm32/some-block-depth +<span id="L34438" class="LineNr">34438 </span> 1/imm32/some-stack-offset +<span id="L34439" class="LineNr">34439 </span> 0/imm32/no-register +<span id="L34440" class="LineNr">34440 </span> 0/imm32/no-register +<span id="L34441" class="LineNr">34441 </span> +<span id="L34442" class="LineNr">34442 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L34443" class="LineNr">34443 </span><span class="SpecialChar">Single-byte-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34444" class="LineNr">34444 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34445" class="LineNr">34445 </span> 0x11/imm32/alloc-id:fake +<span id="L34446" class="LineNr">34446 </span> <span class="SpecialChar"><a href='mu.subx.html#L34451'>Byte-var-in-mem</a></span>/imm32 +<span id="L34447" class="LineNr">34447 </span> 0/imm32/next +<span id="L34448" class="LineNr">34448 </span> 0/imm32/next +<span id="L34449" class="LineNr">34449 </span> +<span id="L34450" class="LineNr">34450 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L34451" class="LineNr">34451 </span><span class="SpecialChar">Byte-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L34452" class="LineNr">34452 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34453" class="LineNr">34453 </span> 0/imm32/name +<span id="L34454" class="LineNr">34454 </span> 0/imm32/name +<span id="L34455" class="LineNr">34455 </span> 0x11/imm32/alloc-id:fake +<span id="L34456" class="LineNr">34456 </span> <span class="SpecialChar"><a href='mu.subx.html#L34779'>Type-byte</a></span>/imm32 +<span id="L34457" class="LineNr">34457 </span> 1/imm32/some-block-depth +<span id="L34458" class="LineNr">34458 </span> 1/imm32/some-stack-offset +<span id="L34459" class="LineNr">34459 </span> 0/imm32/no-register +<span id="L34460" class="LineNr">34460 </span> 0/imm32/no-register +<span id="L34461" class="LineNr">34461 </span> +<span id="L34462" class="LineNr">34462 </span><span class="SpecialChar">Two-args-int-stack-int-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34463" class="LineNr">34463 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34464" class="LineNr">34464 </span> 0x11/imm32/alloc-id:fake +<span id="L34465" class="LineNr">34465 </span> <span class="SpecialChar"><a href='mu.subx.html#L34431'>Int-var-in-mem</a></span>/imm32 +<span id="L34466" class="LineNr">34466 </span> 0x11/imm32/alloc-id:fake +<span id="L34467" class="LineNr">34467 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L34468" class="LineNr">34468 </span> +<span id="L34469" class="LineNr">34469 </span><span class="SpecialChar">Two-int-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34470" class="LineNr">34470 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34471" class="LineNr">34471 </span> 0x11/imm32/alloc-id:fake +<span id="L34472" class="LineNr">34472 </span> <span class="SpecialChar"><a href='mu.subx.html#L34554'>Int-var-in-some-register</a></span>/imm32 +<span id="L34473" class="LineNr">34473 </span> 0x11/imm32/alloc-id:fake +<span id="L34474" class="LineNr">34474 </span> <span class="SpecialChar"><a href='mu.subx.html#L34533'>Single-int-var-in-some-register</a></span>/imm32/next +<span id="L34475" class="LineNr">34475 </span> +<span id="L34476" class="LineNr">34476 </span><span class="subxComment"># Not really legal, but closest we can currently represent a dereference of an (addr byte)</span> +<span id="L34477" class="LineNr">34477 </span><span class="SpecialChar">Two-args-byte-stack-byte-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34478" class="LineNr">34478 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34479" class="LineNr">34479 </span> 0x11/imm32/alloc-id:fake +<span id="L34480" class="LineNr">34480 </span> <span class="SpecialChar"><a href='mu.subx.html#L34451'>Byte-var-in-mem</a></span>/imm32 +<span id="L34481" class="LineNr">34481 </span> 0x11/imm32/alloc-id:fake +<span id="L34482" class="LineNr">34482 </span> <span class="SpecialChar"><a href='mu.subx.html#L34547'>Single-byte-var-in-some-register</a></span>/imm32/next +<span id="L34483" class="LineNr">34483 </span> +<span id="L34484" class="LineNr">34484 </span><span class="SpecialChar">Two-args-int-reg-int-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34485" class="LineNr">34485 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34486" class="LineNr">34486 </span> 0x11/imm32/alloc-id:fake +<span id="L34487" class="LineNr">34487 </span> <span class="SpecialChar"><a href='mu.subx.html#L34554'>Int-var-in-some-register</a></span>/imm32 +<span id="L34488" class="LineNr">34488 </span> 0x11/imm32/alloc-id:fake +<span id="L34489" class="LineNr">34489 </span> <span class="SpecialChar"><a href='mu.subx.html#L34424'>Single-int-var-in-mem</a></span>/imm32/next +<span id="L34490" class="LineNr">34490 </span> +<span id="L34491" class="LineNr">34491 </span><span class="SpecialChar">Two-args-int-eax-int-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34492" class="LineNr">34492 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34493" class="LineNr">34493 </span> 0x11/imm32/alloc-id:fake +<span id="L34494" class="LineNr">34494 </span> <span class="SpecialChar"><a href='mu.subx.html#L34600'>Int-var-in-eax</a></span>/imm32 +<span id="L34495" class="LineNr">34495 </span> 0x11/imm32/alloc-id:fake +<span id="L34496" class="LineNr">34496 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/next +<span id="L34497" class="LineNr">34497 </span> +<span id="L34498" class="LineNr">34498 </span><span class="SpecialChar">Int-var-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34499" class="LineNr">34499 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34500" class="LineNr">34500 </span> 0x11/imm32/alloc-id:fake +<span id="L34501" class="LineNr">34501 </span> <span class="SpecialChar"><a href='mu.subx.html#L34431'>Int-var-in-mem</a></span>/imm32 +<span id="L34502" class="LineNr">34502 </span> 0x11/imm32/alloc-id:fake +<span id="L34503" class="LineNr">34503 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/next +<span id="L34504" class="LineNr">34504 </span> +<span id="L34505" class="LineNr">34505 </span><span class="SpecialChar">Int-var-in-register-and-literal</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34506" class="LineNr">34506 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34507" class="LineNr">34507 </span> 0x11/imm32/alloc-id:fake +<span id="L34508" class="LineNr">34508 </span> <span class="SpecialChar"><a href='mu.subx.html#L34554'>Int-var-in-some-register</a></span>/imm32 +<span id="L34509" class="LineNr">34509 </span> 0x11/imm32/alloc-id:fake +<span id="L34510" class="LineNr">34510 </span> <span class="SpecialChar"><a href='mu.subx.html#L34701'>Single-lit-var</a></span>/imm32/next +<span id="L34511" class="LineNr">34511 </span> +<span id="L34512" class="LineNr">34512 </span><span class="SpecialChar">Two-float-args-in-regs</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34513" class="LineNr">34513 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34514" class="LineNr">34514 </span> 0x11/imm32/alloc-id:fake +<span id="L34515" class="LineNr">34515 </span> <span class="SpecialChar"><a href='mu.subx.html#L34744'>Float-var-in-some-register</a></span>/imm32 +<span id="L34516" class="LineNr">34516 </span> 0x11/imm32/alloc-id:fake +<span id="L34517" class="LineNr">34517 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L34518" class="LineNr">34518 </span> +<span id="L34519" class="LineNr">34519 </span><span class="SpecialChar">Two-args-float-reg-float-stack</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34520" class="LineNr">34520 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34521" class="LineNr">34521 </span> 0x11/imm32/alloc-id:fake +<span id="L34522" class="LineNr">34522 </span> <span class="SpecialChar"><a href='mu.subx.html#L34744'>Float-var-in-some-register</a></span>/imm32 +<span id="L34523" class="LineNr">34523 </span> 0x11/imm32/alloc-id:fake +<span id="L34524" class="LineNr">34524 </span> <span class="SpecialChar"><a href='mu.subx.html#L34719'>Single-float-var-in-mem</a></span>/imm32/next +<span id="L34525" class="LineNr">34525 </span> +<span id="L34526" class="LineNr">34526 </span><span class="SpecialChar">Two-args-float-stack-float-reg</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34527" class="LineNr">34527 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34528" class="LineNr">34528 </span> 0x11/imm32/alloc-id:fake +<span id="L34529" class="LineNr">34529 </span> <span class="SpecialChar"><a href='mu.subx.html#L34726'>Float-var-in-mem</a></span>/imm32 +<span id="L34530" class="LineNr">34530 </span> 0x11/imm32/alloc-id:fake +<span id="L34531" class="LineNr">34531 </span> <span class="SpecialChar"><a href='mu.subx.html#L34737'>Single-float-var-in-some-register</a></span>/imm32/next +<span id="L34532" class="LineNr">34532 </span> +<span id="L34533" class="LineNr">34533 </span><span class="SpecialChar">Single-int-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34534" class="LineNr">34534 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34535" class="LineNr">34535 </span> 0x11/imm32/alloc-id:fake +<span id="L34536" class="LineNr">34536 </span> <span class="SpecialChar"><a href='mu.subx.html#L34554'>Int-var-in-some-register</a></span>/imm32 +<span id="L34537" class="LineNr">34537 </span> 0/imm32/next +<span id="L34538" class="LineNr">34538 </span> 0/imm32/next +<span id="L34539" class="LineNr">34539 </span> +<span id="L34540" class="LineNr">34540 </span><span class="SpecialChar">Single-addr-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34541" class="LineNr">34541 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34542" class="LineNr">34542 </span> 0x11/imm32/alloc-id:fake +<span id="L34543" class="LineNr">34543 </span> <span class="SpecialChar"><a href='mu.subx.html#L34571'>Addr-var-in-some-register</a></span>/imm32 +<span id="L34544" class="LineNr">34544 </span> 0/imm32/next +<span id="L34545" class="LineNr">34545 </span> 0/imm32/next +<span id="L34546" class="LineNr">34546 </span> +<span id="L34547" class="LineNr">34547 </span><span class="SpecialChar">Single-byte-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34548" class="LineNr">34548 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34549" class="LineNr">34549 </span> 0x11/imm32/alloc-id:fake +<span id="L34550" class="LineNr">34550 </span> <span class="SpecialChar"><a href='mu.subx.html#L34582'>Byte-var-in-some-register</a></span>/imm32 +<span id="L34551" class="LineNr">34551 </span> 0/imm32/next +<span id="L34552" class="LineNr">34552 </span> 0/imm32/next +<span id="L34553" class="LineNr">34553 </span> +<span id="L34554" class="LineNr">34554 </span><span class="SpecialChar">Int-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L34555" class="LineNr">34555 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34556" class="LineNr">34556 </span> 0/imm32/name +<span id="L34557" class="LineNr">34557 </span> 0/imm32/name +<span id="L34558" class="LineNr">34558 </span> 0x11/imm32/alloc-id:fake +<span id="L34559" class="LineNr">34559 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34560" class="LineNr">34560 </span> 1/imm32/some-block-depth +<span id="L34561" class="LineNr">34561 </span> 0/imm32/no-stack-offset +<span id="L34562" class="LineNr">34562 </span> 0x11/imm32/alloc-id:fake +<span id="L34563" class="LineNr">34563 </span> <span class="SpecialChar"><a href='mu.subx.html#L34565'>Any-register</a></span>/imm32 +<span id="L34564" class="LineNr">34564 </span> +<span id="L34565" class="LineNr">34565 </span><span class="SpecialChar">Any-register</span>: <span class="subxComment"># (payload array byte)</span> +<span id="L34566" class="LineNr">34566 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34567" class="LineNr">34567 </span> 1/imm32/size +<span id="L34568" class="LineNr">34568 </span> <span class="subxComment"># data</span> +<span id="L34569" class="LineNr">34569 </span> 2a/asterisk +<span id="L34570" class="LineNr">34570 </span> +<span id="L34571" class="LineNr">34571 </span><span class="SpecialChar">Addr-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L34572" class="LineNr">34572 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34573" class="LineNr">34573 </span> 0/imm32/name +<span id="L34574" class="LineNr">34574 </span> 0/imm32/name +<span id="L34575" class="LineNr">34575 </span> 0x11/imm32/alloc-id:fake +<span id="L34576" class="LineNr">34576 </span> <span class="SpecialChar"><a href='mu.subx.html#L34771'>Type-addr</a></span>/imm32 +<span id="L34577" class="LineNr">34577 </span> 1/imm32/some-block-depth +<span id="L34578" class="LineNr">34578 </span> 0/imm32/no-stack-offset +<span id="L34579" class="LineNr">34579 </span> 0x11/imm32/alloc-id:fake +<span id="L34580" class="LineNr">34580 </span> <span class="SpecialChar"><a href='mu.subx.html#L34565'>Any-register</a></span>/imm32 +<span id="L34581" class="LineNr">34581 </span> +<span id="L34582" class="LineNr">34582 </span><span class="SpecialChar">Byte-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L34583" class="LineNr">34583 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34584" class="LineNr">34584 </span> 0/imm32/name +<span id="L34585" class="LineNr">34585 </span> 0/imm32/name +<span id="L34586" class="LineNr">34586 </span> 0x11/imm32/alloc-id:fake +<span id="L34587" class="LineNr">34587 </span> <span class="SpecialChar"><a href='mu.subx.html#L34779'>Type-byte</a></span>/imm32 +<span id="L34588" class="LineNr">34588 </span> 1/imm32/some-block-depth +<span id="L34589" class="LineNr">34589 </span> 0/imm32/no-stack-offset +<span id="L34590" class="LineNr">34590 </span> 0x11/imm32/alloc-id:fake +<span id="L34591" class="LineNr">34591 </span> <span class="SpecialChar"><a href='mu.subx.html#L34565'>Any-register</a></span>/imm32 +<span id="L34592" class="LineNr">34592 </span> +<span id="L34593" class="LineNr">34593 </span><span class="SpecialChar">Single-int-var-in-eax</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34594" class="LineNr">34594 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34595" class="LineNr">34595 </span> 0x11/imm32/alloc-id:fake +<span id="L34596" class="LineNr">34596 </span> <span class="SpecialChar"><a href='mu.subx.html#L34600'>Int-var-in-eax</a></span>/imm32 +<span id="L34597" class="LineNr">34597 </span> 0/imm32/next +<span id="L34598" class="LineNr">34598 </span> 0/imm32/next +<span id="L34599" class="LineNr">34599 </span> +<span id="L34600" class="LineNr">34600 </span><span class="SpecialChar">Int-var-in-eax</span>: +<span id="L34601" class="LineNr">34601 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34602" class="LineNr">34602 </span> 0/imm32/name +<span id="L34603" class="LineNr">34603 </span> 0/imm32/name +<span id="L34604" class="LineNr">34604 </span> 0x11/imm32/alloc-id:fake +<span id="L34605" class="LineNr">34605 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34606" class="LineNr">34606 </span> 1/imm32/some-block-depth +<span id="L34607" class="LineNr">34607 </span> 0/imm32/no-stack-offset +<span id="L34608" class="LineNr">34608 </span> 0x11/imm32/alloc-id:fake +<span id="L34609" class="LineNr">34609 </span> $Mu-register-eax/imm32 <span class="subxComment"># can't use Register-eax only to keep our buggy tools/treeshake.cc happy (TODO)</span> +<span id="L34610" class="LineNr">34610 </span> +<span id="L34611" class="LineNr">34611 </span><span class="SpecialChar">Single-int-var-in-ecx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34612" class="LineNr">34612 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34613" class="LineNr">34613 </span> 0x11/imm32/alloc-id:fake +<span id="L34614" class="LineNr">34614 </span> <span class="SpecialChar"><a href='mu.subx.html#L34618'>Int-var-in-ecx</a></span>/imm32 +<span id="L34615" class="LineNr">34615 </span> 0/imm32/next +<span id="L34616" class="LineNr">34616 </span> 0/imm32/next +<span id="L34617" class="LineNr">34617 </span> +<span id="L34618" class="LineNr">34618 </span><span class="SpecialChar">Int-var-in-ecx</span>: +<span id="L34619" class="LineNr">34619 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34620" class="LineNr">34620 </span> 0/imm32/name +<span id="L34621" class="LineNr">34621 </span> 0/imm32/name +<span id="L34622" class="LineNr">34622 </span> 0x11/imm32/alloc-id:fake +<span id="L34623" class="LineNr">34623 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34624" class="LineNr">34624 </span> 1/imm32/some-block-depth +<span id="L34625" class="LineNr">34625 </span> 0/imm32/no-stack-offset +<span id="L34626" class="LineNr">34626 </span> 0x11/imm32/alloc-id:fake +<span id="L34627" class="LineNr">34627 </span> $Register-ecx/imm32/register +<span id="L34628" class="LineNr">34628 </span> +<span id="L34629" class="LineNr">34629 </span><span class="SpecialChar">Single-int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34630" class="LineNr">34630 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34631" class="LineNr">34631 </span> 0x11/imm32/alloc-id:fake +<span id="L34632" class="LineNr">34632 </span> <span class="SpecialChar"><a href='mu.subx.html#L34636'>Int-var-in-edx</a></span>/imm32 +<span id="L34633" class="LineNr">34633 </span> 0/imm32/next +<span id="L34634" class="LineNr">34634 </span> 0/imm32/next +<span id="L34635" class="LineNr">34635 </span> +<span id="L34636" class="LineNr">34636 </span><span class="SpecialChar">Int-var-in-edx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34637" class="LineNr">34637 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34638" class="LineNr">34638 </span> 0/imm32/name +<span id="L34639" class="LineNr">34639 </span> 0/imm32/name +<span id="L34640" class="LineNr">34640 </span> 0x11/imm32/alloc-id:fake +<span id="L34641" class="LineNr">34641 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34642" class="LineNr">34642 </span> 1/imm32/some-block-depth +<span id="L34643" class="LineNr">34643 </span> 0/imm32/no-stack-offset +<span id="L34644" class="LineNr">34644 </span> 0x11/imm32/alloc-id:fake +<span id="L34645" class="LineNr">34645 </span> $Register-edx/imm32/register +<span id="L34646" class="LineNr">34646 </span> +<span id="L34647" class="LineNr">34647 </span><span class="SpecialChar">Single-int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34648" class="LineNr">34648 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34649" class="LineNr">34649 </span> 0x11/imm32/alloc-id:fake +<span id="L34650" class="LineNr">34650 </span> <span class="SpecialChar"><a href='mu.subx.html#L34654'>Int-var-in-ebx</a></span>/imm32 +<span id="L34651" class="LineNr">34651 </span> 0/imm32/next +<span id="L34652" class="LineNr">34652 </span> 0/imm32/next +<span id="L34653" class="LineNr">34653 </span> +<span id="L34654" class="LineNr">34654 </span><span class="SpecialChar">Int-var-in-ebx</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34655" class="LineNr">34655 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34656" class="LineNr">34656 </span> 0/imm32/name +<span id="L34657" class="LineNr">34657 </span> 0/imm32/name +<span id="L34658" class="LineNr">34658 </span> 0x11/imm32/alloc-id:fake +<span id="L34659" class="LineNr">34659 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34660" class="LineNr">34660 </span> 1/imm32/some-block-depth +<span id="L34661" class="LineNr">34661 </span> 0/imm32/no-stack-offset +<span id="L34662" class="LineNr">34662 </span> 0x11/imm32/alloc-id:fake +<span id="L34663" class="LineNr">34663 </span> $Register-ebx/imm32/register +<span id="L34664" class="LineNr">34664 </span> +<span id="L34665" class="LineNr">34665 </span><span class="SpecialChar">Single-int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34666" class="LineNr">34666 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34667" class="LineNr">34667 </span> 0x11/imm32/alloc-id:fake +<span id="L34668" class="LineNr">34668 </span> <span class="SpecialChar"><a href='mu.subx.html#L34672'>Int-var-in-esi</a></span>/imm32 +<span id="L34669" class="LineNr">34669 </span> 0/imm32/next +<span id="L34670" class="LineNr">34670 </span> 0/imm32/next +<span id="L34671" class="LineNr">34671 </span> +<span id="L34672" class="LineNr">34672 </span><span class="SpecialChar">Int-var-in-esi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34673" class="LineNr">34673 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34674" class="LineNr">34674 </span> 0/imm32/name +<span id="L34675" class="LineNr">34675 </span> 0/imm32/name +<span id="L34676" class="LineNr">34676 </span> 0x11/imm32/alloc-id:fake +<span id="L34677" class="LineNr">34677 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34678" class="LineNr">34678 </span> 1/imm32/some-block-depth +<span id="L34679" class="LineNr">34679 </span> 0/imm32/no-stack-offset +<span id="L34680" class="LineNr">34680 </span> 0x11/imm32/alloc-id:fake +<span id="L34681" class="LineNr">34681 </span> $Register-esi/imm32/register +<span id="L34682" class="LineNr">34682 </span> +<span id="L34683" class="LineNr">34683 </span><span class="SpecialChar">Single-int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34684" class="LineNr">34684 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34685" class="LineNr">34685 </span> 0x11/imm32/alloc-id:fake +<span id="L34686" class="LineNr">34686 </span> <span class="SpecialChar"><a href='mu.subx.html#L34690'>Int-var-in-edi</a></span>/imm32 +<span id="L34687" class="LineNr">34687 </span> 0/imm32/next +<span id="L34688" class="LineNr">34688 </span> 0/imm32/next +<span id="L34689" class="LineNr">34689 </span> +<span id="L34690" class="LineNr">34690 </span><span class="SpecialChar">Int-var-in-edi</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34691" class="LineNr">34691 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34692" class="LineNr">34692 </span> 0/imm32/name +<span id="L34693" class="LineNr">34693 </span> 0/imm32/name +<span id="L34694" class="LineNr">34694 </span> 0x11/imm32/alloc-id:fake +<span id="L34695" class="LineNr">34695 </span> <span class="SpecialChar"><a href='mu.subx.html#L34755'>Type-int</a></span>/imm32 +<span id="L34696" class="LineNr">34696 </span> 1/imm32/some-block-depth +<span id="L34697" class="LineNr">34697 </span> 0/imm32/no-stack-offset +<span id="L34698" class="LineNr">34698 </span> 0x11/imm32/alloc-id:fake +<span id="L34699" class="LineNr">34699 </span> $Register-edi/imm32/register +<span id="L34700" class="LineNr">34700 </span> +<span id="L34701" class="LineNr">34701 </span><span class="SpecialChar">Single-lit-var</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34702" class="LineNr">34702 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34703" class="LineNr">34703 </span> 0x11/imm32/alloc-id:fake +<span id="L34704" class="LineNr">34704 </span> <span class="SpecialChar"><a href='mu.subx.html#L34708'>Lit-var</a></span>/imm32 +<span id="L34705" class="LineNr">34705 </span> 0/imm32/next +<span id="L34706" class="LineNr">34706 </span> 0/imm32/next +<span id="L34707" class="LineNr">34707 </span> +<span id="L34708" class="LineNr">34708 </span><span class="SpecialChar">Lit-var</span>: <span class="subxComment"># (payload var)</span> +<span id="L34709" class="LineNr">34709 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34710" class="LineNr">34710 </span> 0/imm32/name +<span id="L34711" class="LineNr">34711 </span> 0/imm32/name +<span id="L34712" class="LineNr">34712 </span> 0x11/imm32/alloc-id:fake +<span id="L34713" class="LineNr">34713 </span> <span class="SpecialChar"><a href='mu.subx.html#L34763'>Type-literal</a></span>/imm32 +<span id="L34714" class="LineNr">34714 </span> 1/imm32/some-block-depth +<span id="L34715" class="LineNr">34715 </span> 0/imm32/no-stack-offset +<span id="L34716" class="LineNr">34716 </span> 0/imm32/no-register +<span id="L34717" class="LineNr">34717 </span> 0/imm32/no-register +<span id="L34718" class="LineNr">34718 </span> +<span id="L34719" class="LineNr">34719 </span><span class="SpecialChar">Single-float-var-in-mem</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34720" class="LineNr">34720 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34721" class="LineNr">34721 </span> 0x11/imm32/alloc-id:fake +<span id="L34722" class="LineNr">34722 </span> <span class="SpecialChar"><a href='mu.subx.html#L34726'>Float-var-in-mem</a></span>/imm32 +<span id="L34723" class="LineNr">34723 </span> 0/imm32/next +<span id="L34724" class="LineNr">34724 </span> 0/imm32/next +<span id="L34725" class="LineNr">34725 </span> +<span id="L34726" class="LineNr">34726 </span><span class="SpecialChar">Float-var-in-mem</span>: <span class="subxComment"># (payload var)</span> +<span id="L34727" class="LineNr">34727 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34728" class="LineNr">34728 </span> 0/imm32/name +<span id="L34729" class="LineNr">34729 </span> 0/imm32/name +<span id="L34730" class="LineNr">34730 </span> 0x11/imm32/alloc-id:fake +<span id="L34731" class="LineNr">34731 </span> <span class="SpecialChar"><a href='mu.subx.html#L34787'>Type-float</a></span>/imm32 +<span id="L34732" class="LineNr">34732 </span> 1/imm32/some-block-depth +<span id="L34733" class="LineNr">34733 </span> 1/imm32/some-stack-offset +<span id="L34734" class="LineNr">34734 </span> 0/imm32/no-register +<span id="L34735" class="LineNr">34735 </span> 0/imm32/no-register +<span id="L34736" class="LineNr">34736 </span> +<span id="L34737" class="LineNr">34737 </span><span class="SpecialChar">Single-float-var-in-some-register</span>: <span class="subxComment"># (payload list var)</span> +<span id="L34738" class="LineNr">34738 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34739" class="LineNr">34739 </span> 0x11/imm32/alloc-id:fake +<span id="L34740" class="LineNr">34740 </span> <span class="SpecialChar"><a href='mu.subx.html#L34744'>Float-var-in-some-register</a></span>/imm32 +<span id="L34741" class="LineNr">34741 </span> 0/imm32/next +<span id="L34742" class="LineNr">34742 </span> 0/imm32/next +<span id="L34743" class="LineNr">34743 </span> +<span id="L34744" class="LineNr">34744 </span><span class="SpecialChar">Float-var-in-some-register</span>: <span class="subxComment"># (payload var)</span> +<span id="L34745" class="LineNr">34745 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34746" class="LineNr">34746 </span> 0/imm32/name +<span id="L34747" class="LineNr">34747 </span> 0/imm32/name +<span id="L34748" class="LineNr">34748 </span> 0x11/imm32/alloc-id:fake +<span id="L34749" class="LineNr">34749 </span> <span class="SpecialChar"><a href='mu.subx.html#L34787'>Type-float</a></span>/imm32 +<span id="L34750" class="LineNr">34750 </span> 1/imm32/some-block-depth +<span id="L34751" class="LineNr">34751 </span> 0/imm32/no-stack-offset +<span id="L34752" class="LineNr">34752 </span> 0x11/imm32/alloc-id:fake +<span id="L34753" class="LineNr">34753 </span> <span class="SpecialChar"><a href='mu.subx.html#L34565'>Any-register</a></span>/imm32 +<span id="L34754" class="LineNr">34754 </span> +<span id="L34755" class="LineNr">34755 </span><span class="SpecialChar">Type-int</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L34756" class="LineNr">34756 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34757" class="LineNr">34757 </span> 1/imm32/is-atom +<span id="L34758" class="LineNr">34758 </span> 1/imm32/value:int +<span id="L34759" class="LineNr">34759 </span> 0/imm32/left:unused +<span id="L34760" class="LineNr">34760 </span> 0/imm32/right:null +<span id="L34761" class="LineNr">34761 </span> 0/imm32/right:null +<span id="L34762" class="LineNr">34762 </span> +<span id="L34763" class="LineNr">34763 </span><span class="SpecialChar">Type-literal</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L34764" class="LineNr">34764 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34765" class="LineNr">34765 </span> 1/imm32/is-atom +<span id="L34766" class="LineNr">34766 </span> 0/imm32/value:literal +<span id="L34767" class="LineNr">34767 </span> 0/imm32/left:unused +<span id="L34768" class="LineNr">34768 </span> 0/imm32/right:null +<span id="L34769" class="LineNr">34769 </span> 0/imm32/right:null +<span id="L34770" class="LineNr">34770 </span> +<span id="L34771" class="LineNr">34771 </span><span class="SpecialChar">Type-addr</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L34772" class="LineNr">34772 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34773" class="LineNr">34773 </span> 1/imm32/is-atom +<span id="L34774" class="LineNr">34774 </span> 2/imm32/value:addr +<span id="L34775" class="LineNr">34775 </span> 0/imm32/left:unused +<span id="L34776" class="LineNr">34776 </span> 0/imm32/right:null +<span id="L34777" class="LineNr">34777 </span> 0/imm32/right:null +<span id="L34778" class="LineNr">34778 </span> +<span id="L34779" class="LineNr">34779 </span><span class="SpecialChar">Type-byte</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L34780" class="LineNr">34780 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34781" class="LineNr">34781 </span> 1/imm32/is-atom +<span id="L34782" class="LineNr">34782 </span> 8/imm32/value:byte +<span id="L34783" class="LineNr">34783 </span> 0/imm32/left:unused +<span id="L34784" class="LineNr">34784 </span> 0/imm32/right:null +<span id="L34785" class="LineNr">34785 </span> 0/imm32/right:null +<span id="L34786" class="LineNr">34786 </span> +<span id="L34787" class="LineNr">34787 </span><span class="SpecialChar">Type-float</span>: <span class="subxComment"># (payload type-tree)</span> +<span id="L34788" class="LineNr">34788 </span> 0x11/imm32/alloc-id:fake:payload +<span id="L34789" class="LineNr">34789 </span> 1/imm32/is-atom +<span id="L34790" class="LineNr">34790 </span> 0xf/imm32/value:float +<span id="L34791" class="LineNr">34791 </span> 0/imm32/left:unused +<span id="L34792" class="LineNr">34792 </span> 0/imm32/right:null +<span id="L34793" class="LineNr">34793 </span> 0/imm32/right:null +<span id="L34794" class="LineNr">34794 </span> +<span id="L34795" class="LineNr">34795 </span>== code +<span id="L34796" class="LineNr">34796 </span><span class="subxFunction">emit-subx-primitive</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt), primitive: (addr primitive), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L34797" class="LineNr">34797 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34798" class="LineNr">34798 </span> 55/push-ebp +<span id="L34799" class="LineNr">34799 </span> 89/<- %ebp 4/r32/esp +<span id="L34800" class="LineNr">34800 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34801" class="LineNr">34801 </span> 50/push-eax +<span id="L34802" class="LineNr">34802 </span> 51/push-ecx +<span id="L34803" class="LineNr">34803 </span> <span class="subxComment"># ecx = primitive</span> +<span id="L34804" class="LineNr">34804 </span> 8b/-> *(ebp+0x10) 1/r32/ecx +<span id="L34805" class="LineNr">34805 </span> <span class="subxComment"># emit primitive name</span> +<span id="L34806" class="LineNr">34806 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L34807" class="LineNr">34807 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x18) *(ecx+0x1c)) <span class="subxComment"># Primitive-subx-name Primitive-subx-name => eax</span> +<span id="L34808" class="LineNr">34808 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L34809" class="LineNr">34809 </span> <span class="subxComment"># emit rm32 if necessary</span> +<span id="L34810" class="LineNr">34810 </span> (<a href='mu.subx.html#L34833'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x20) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-rm32</span> +<span id="L34811" class="LineNr">34811 </span> <span class="subxComment"># emit xm32 if necessary</span> +<span id="L34812" class="LineNr">34812 </span> (<a href='mu.subx.html#L34833'>emit-subx-rm32</a> *(ebp+8) *(ecx+0x34) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-xm32</span> +<span id="L34813" class="LineNr">34813 </span> <span class="subxComment"># emit r32 if necessary</span> +<span id="L34814" class="LineNr">34814 </span> (<a href='mu.subx.html#L34907'>emit-subx-r32</a> *(ebp+8) *(ecx+0x24) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-r32</span> +<span id="L34815" class="LineNr">34815 </span> <span class="subxComment"># emit x32 if necessary</span> +<span id="L34816" class="LineNr">34816 </span> (<a href='mu.subx.html#L34938'>emit-subx-x32</a> *(ebp+8) *(ecx+0x38) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-x32</span> +<span id="L34817" class="LineNr">34817 </span> <span class="subxComment"># emit imm32 if necessary</span> +<span id="L34818" class="LineNr">34818 </span> (<a href='mu.subx.html#L34969'>emit-subx-imm32</a> *(ebp+8) *(ecx+0x28) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm32</span> +<span id="L34819" class="LineNr">34819 </span> <span class="subxComment"># emit imm8 if necessary</span> +<span id="L34820" class="LineNr">34820 </span> (<a href='mu.subx.html#L34995'>emit-subx-imm8</a> *(ebp+8) *(ecx+0x2c) *(ebp+0xc)) <span class="subxComment"># Primitive-subx-imm8</span> +<span id="L34821" class="LineNr">34821 </span> <span class="subxComment"># emit disp32 if necessary</span> +<span id="L34822" class="LineNr">34822 </span> (<a href='mu.subx.html#L35021'>emit-subx-disp32</a> *(ebp+8) *(ecx+0x30) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># Primitive-subx-disp32</span> +<span id="L34823" class="LineNr">34823 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L34824" class="LineNr">34824 </span><span class="Constant">$emit-subx-primitive:end</span>: +<span id="L34825" class="LineNr">34825 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34826" class="LineNr">34826 </span> 59/pop-to-ecx +<span id="L34827" class="LineNr">34827 </span> 58/pop-to-eax +<span id="L34828" class="LineNr">34828 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34829" class="LineNr">34829 </span> 89/<- %esp 5/r32/ebp +<span id="L34830" class="LineNr">34830 </span> 5d/pop-to-ebp +<span id="L34831" class="LineNr">34831 </span> c3/return +<span id="L34832" class="LineNr">34832 </span> +<span id="L34833" class="LineNr">34833 </span><span class="subxFunction">emit-subx-rm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L34834" class="LineNr">34834 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34835" class="LineNr">34835 </span> 55/push-ebp +<span id="L34836" class="LineNr">34836 </span> 89/<- %ebp 4/r32/esp +<span id="L34837" class="LineNr">34837 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34838" class="LineNr">34838 </span> 50/push-eax +<span id="L34839" class="LineNr">34839 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L34840" class="LineNr">34840 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L34841" class="LineNr">34841 </span> 74/jump-if-= $emit-subx-rm32:end/disp8 +<span id="L34842" class="LineNr">34842 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L34843" class="LineNr">34843 </span> (<a href='mu.subx.html#L34853'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L34844" class="LineNr">34844 </span> (<a href='mu.subx.html#L35266'>emit-subx-var-as-rm32</a> *(ebp+8) %eax) +<span id="L34845" class="LineNr">34845 </span><span class="Constant">$emit-subx-rm32:end</span>: +<span id="L34846" class="LineNr">34846 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34847" class="LineNr">34847 </span> 58/pop-to-eax +<span id="L34848" class="LineNr">34848 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34849" class="LineNr">34849 </span> 89/<- %esp 5/r32/ebp +<span id="L34850" class="LineNr">34850 </span> 5d/pop-to-ebp +<span id="L34851" class="LineNr">34851 </span> c3/return +<span id="L34852" class="LineNr">34852 </span> +<span id="L34853" class="LineNr">34853 </span><span class="subxFunction">get-stmt-operand-from-arg-location</span>: <span class="subxComment"># stmt: (addr stmt), l: arg-location, err: (addr buffered-file), ed: (addr exit-descriptor) -> var/eax: (addr stmt-var)</span> +<span id="L34854" class="LineNr">34854 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34855" class="LineNr">34855 </span> 55/push-ebp +<span id="L34856" class="LineNr">34856 </span> 89/<- %ebp 4/r32/esp +<span id="L34857" class="LineNr">34857 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34858" class="LineNr">34858 </span> 51/push-ecx +<span id="L34859" class="LineNr">34859 </span> <span class="subxComment"># eax = l</span> +<span id="L34860" class="LineNr">34860 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L34861" class="LineNr">34861 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L34862" class="LineNr">34862 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L34863" class="LineNr">34863 </span> <span class="subxComment"># if (l == 1) return stmt->inouts</span> +<span id="L34864" class="LineNr">34864 </span> { +<span id="L34865" class="LineNr">34865 </span> 3d/compare-eax-and 1/imm32 +<span id="L34866" class="LineNr">34866 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L34867" class="LineNr">34867 </span><span class="Constant">$get-stmt-operand-from-arg-location:1</span>: +<span id="L34868" class="LineNr">34868 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L34869" class="LineNr">34869 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L34870" class="LineNr">34870 </span> } +<span id="L34871" class="LineNr">34871 </span> <span class="subxComment"># if (l == 2) return stmt->inouts->next</span> +<span id="L34872" class="LineNr">34872 </span> { +<span id="L34873" class="LineNr">34873 </span> 3d/compare-eax-and 2/imm32 +<span id="L34874" class="LineNr">34874 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L34875" class="LineNr">34875 </span><span class="Constant">$get-stmt-operand-from-arg-location:2</span>: +<span id="L34876" class="LineNr">34876 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L34877" class="LineNr">34877 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L34878" class="LineNr">34878 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L34879" class="LineNr">34879 </span> } +<span id="L34880" class="LineNr">34880 </span> <span class="subxComment"># if (l == 3) return stmt->outputs</span> +<span id="L34881" class="LineNr">34881 </span> { +<span id="L34882" class="LineNr">34882 </span> 3d/compare-eax-and 3/imm32 +<span id="L34883" class="LineNr">34883 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L34884" class="LineNr">34884 </span><span class="Constant">$get-stmt-operand-from-arg-location:3</span>: +<span id="L34885" class="LineNr">34885 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L34886" class="LineNr">34886 </span> eb/jump $get-stmt-operand-from-arg-location:end/disp8 +<span id="L34887" class="LineNr">34887 </span> } +<span id="L34888" class="LineNr">34888 </span> <span class="subxComment"># abort</span> +<span id="L34889" class="LineNr">34889 </span> e9/jump $get-stmt-operand-from-arg-location:abort/disp32 +<span id="L34890" class="LineNr">34890 </span><span class="Constant">$get-stmt-operand-from-arg-location:end</span>: +<span id="L34891" class="LineNr">34891 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34892" class="LineNr">34892 </span> 59/pop-to-ecx +<span id="L34893" class="LineNr">34893 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34894" class="LineNr">34894 </span> 89/<- %esp 5/r32/ebp +<span id="L34895" class="LineNr">34895 </span> 5d/pop-to-ebp +<span id="L34896" class="LineNr">34896 </span> c3/return +<span id="L34897" class="LineNr">34897 </span> +<span id="L34898" class="LineNr">34898 </span><span class="Constant">$get-stmt-operand-from-arg-location:abort</span>: +<span id="L34899" class="LineNr">34899 </span> <span class="subxComment"># error("invalid arg-location " eax)</span> +<span id="L34900" class="LineNr">34900 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="Constant">"invalid arg-location "</span>) +<span id="L34901" class="LineNr">34901 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+0x10) %eax) +<span id="L34902" class="LineNr">34902 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+0x10) <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>) +<span id="L34903" class="LineNr">34903 </span> (<a href='115write-byte.subx.html#L81'>flush</a> *(ebp+0x10)) +<span id="L34904" class="LineNr">34904 </span> (<a href='110stop.subx.html#L92'>stop</a> *(ebp+0x14) 1) +<span id="L34905" class="LineNr">34905 </span> <span class="subxComment"># never gets here</span> +<span id="L34906" class="LineNr">34906 </span> +<span id="L34907" class="LineNr">34907 </span><span class="subxFunction">emit-subx-r32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L34908" class="LineNr">34908 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34909" class="LineNr">34909 </span> 55/push-ebp +<span id="L34910" class="LineNr">34910 </span> 89/<- %ebp 4/r32/esp +<span id="L34911" class="LineNr">34911 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34912" class="LineNr">34912 </span> 50/push-eax +<span id="L34913" class="LineNr">34913 </span> 51/push-ecx +<span id="L34914" class="LineNr">34914 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L34915" class="LineNr">34915 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L34916" class="LineNr">34916 </span> 0f 84/jump-if-= $emit-subx-r32:end/disp32 +<span id="L34917" class="LineNr">34917 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L34918" class="LineNr">34918 </span> (<a href='mu.subx.html#L34853'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L34919" class="LineNr">34919 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L34920" class="LineNr">34920 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L34921" class="LineNr">34921 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L34922" class="LineNr">34922 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L34923" class="LineNr">34923 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L34924" class="LineNr">34924 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L34925" class="LineNr">34925 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L34926" class="LineNr">34926 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L34927" class="LineNr">34927 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L34928" class="LineNr">34928 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/r32"</span>) +<span id="L34929" class="LineNr">34929 </span><span class="Constant">$emit-subx-r32:end</span>: +<span id="L34930" class="LineNr">34930 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34931" class="LineNr">34931 </span> 59/pop-to-ecx +<span id="L34932" class="LineNr">34932 </span> 58/pop-to-eax +<span id="L34933" class="LineNr">34933 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34934" class="LineNr">34934 </span> 89/<- %esp 5/r32/ebp +<span id="L34935" class="LineNr">34935 </span> 5d/pop-to-ebp +<span id="L34936" class="LineNr">34936 </span> c3/return +<span id="L34937" class="LineNr">34937 </span> +<span id="L34938" class="LineNr">34938 </span><span class="subxFunction">emit-subx-x32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L34939" class="LineNr">34939 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34940" class="LineNr">34940 </span> 55/push-ebp +<span id="L34941" class="LineNr">34941 </span> 89/<- %ebp 4/r32/esp +<span id="L34942" class="LineNr">34942 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34943" class="LineNr">34943 </span> 50/push-eax +<span id="L34944" class="LineNr">34944 </span> 51/push-ecx +<span id="L34945" class="LineNr">34945 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L34946" class="LineNr">34946 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L34947" class="LineNr">34947 </span> 0f 84/jump-if-= $emit-subx-x32:end/disp32 +<span id="L34948" class="LineNr">34948 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L34949" class="LineNr">34949 </span> (<a href='mu.subx.html#L34853'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L34950" class="LineNr">34950 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L34951" class="LineNr">34951 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0x18) *(eax+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L34952" class="LineNr">34952 </span><span class="CommentedCode">#? (write-buffered Stderr "looking up ")</span> +<span id="L34953" class="LineNr">34953 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L34954" class="LineNr">34954 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L34955" class="LineNr">34955 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L34956" class="LineNr">34956 </span> (<a href='131table.subx.html#L1800'>maybe-get</a> <span class="SpecialChar"><a href='mu.subx.html#L19373'>Mu-registers</a></span> %eax 0xc) <span class="subxComment"># => eax: (addr register-index)</span> +<span id="L34957" class="LineNr">34957 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L34958" class="LineNr">34958 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *eax) +<span id="L34959" class="LineNr">34959 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/x32"</span>) +<span id="L34960" class="LineNr">34960 </span><span class="Constant">$emit-subx-x32:end</span>: +<span id="L34961" class="LineNr">34961 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34962" class="LineNr">34962 </span> 59/pop-to-ecx +<span id="L34963" class="LineNr">34963 </span> 58/pop-to-eax +<span id="L34964" class="LineNr">34964 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34965" class="LineNr">34965 </span> 89/<- %esp 5/r32/ebp +<span id="L34966" class="LineNr">34966 </span> 5d/pop-to-ebp +<span id="L34967" class="LineNr">34967 </span> c3/return +<span id="L34968" class="LineNr">34968 </span> +<span id="L34969" class="LineNr">34969 </span><span class="subxFunction">emit-subx-imm32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L34970" class="LineNr">34970 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34971" class="LineNr">34971 </span> 55/push-ebp +<span id="L34972" class="LineNr">34972 </span> 89/<- %ebp 4/r32/esp +<span id="L34973" class="LineNr">34973 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L34974" class="LineNr">34974 </span> 50/push-eax +<span id="L34975" class="LineNr">34975 </span> 51/push-ecx +<span id="L34976" class="LineNr">34976 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L34977" class="LineNr">34977 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L34978" class="LineNr">34978 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L34979" class="LineNr">34979 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L34980" class="LineNr">34980 </span> (<a href='mu.subx.html#L34853'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L34981" class="LineNr">34981 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L34982" class="LineNr">34982 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L34983" class="LineNr">34983 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L34984" class="LineNr">34984 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L34985" class="LineNr">34985 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm32"</span>) +<span id="L34986" class="LineNr">34986 </span><span class="Constant">$emit-subx-imm32:end</span>: +<span id="L34987" class="LineNr">34987 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L34988" class="LineNr">34988 </span> 59/pop-to-ecx +<span id="L34989" class="LineNr">34989 </span> 58/pop-to-eax +<span id="L34990" class="LineNr">34990 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L34991" class="LineNr">34991 </span> 89/<- %esp 5/r32/ebp +<span id="L34992" class="LineNr">34992 </span> 5d/pop-to-ebp +<span id="L34993" class="LineNr">34993 </span> c3/return +<span id="L34994" class="LineNr">34994 </span> +<span id="L34995" class="LineNr">34995 </span><span class="subxFunction">emit-subx-imm8</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt)</span> +<span id="L34996" class="LineNr">34996 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L34997" class="LineNr">34997 </span> 55/push-ebp +<span id="L34998" class="LineNr">34998 </span> 89/<- %ebp 4/r32/esp +<span id="L34999" class="LineNr">34999 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35000" class="LineNr">35000 </span> 50/push-eax +<span id="L35001" class="LineNr">35001 </span> 51/push-ecx +<span id="L35002" class="LineNr">35002 </span> <span class="subxComment"># if (l == 0) return</span> +<span id="L35003" class="LineNr">35003 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35004" class="LineNr">35004 </span> 0f 84/jump-if-= $emit-subx-imm32:end/disp32 +<span id="L35005" class="LineNr">35005 </span> <span class="subxComment"># var v/eax: (handle var)</span> +<span id="L35006" class="LineNr">35006 </span> (<a href='mu.subx.html#L34853'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35007" class="LineNr">35007 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35008" class="LineNr">35008 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35009" class="LineNr">35009 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L35010" class="LineNr">35010 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35011" class="LineNr">35011 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/imm8"</span>) +<span id="L35012" class="LineNr">35012 </span><span class="Constant">$emit-subx-imm8:end</span>: +<span id="L35013" class="LineNr">35013 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35014" class="LineNr">35014 </span> 59/pop-to-ecx +<span id="L35015" class="LineNr">35015 </span> 58/pop-to-eax +<span id="L35016" class="LineNr">35016 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35017" class="LineNr">35017 </span> 89/<- %esp 5/r32/ebp +<span id="L35018" class="LineNr">35018 </span> 5d/pop-to-ebp +<span id="L35019" class="LineNr">35019 </span> c3/return +<span id="L35020" class="LineNr">35020 </span> +<span id="L35021" class="LineNr">35021 </span><span class="subxFunction">emit-subx-disp32</span>: <span class="subxComment"># out: (addr buffered-file), l: arg-location, stmt: (addr stmt), err: (addr buffered-file), ed: (addr exit-descriptor)</span> +<span id="L35022" class="LineNr">35022 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35023" class="LineNr">35023 </span> 55/push-ebp +<span id="L35024" class="LineNr">35024 </span> 89/<- %ebp 4/r32/esp +<span id="L35025" class="LineNr">35025 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35026" class="LineNr">35026 </span> 50/push-eax +<span id="L35027" class="LineNr">35027 </span> 51/push-ecx +<span id="L35028" class="LineNr">35028 </span> <span class="subxComment"># if (location == 0) return</span> +<span id="L35029" class="LineNr">35029 </span> 81 7/subop/compare *(ebp+0xc) 0/imm32 +<span id="L35030" class="LineNr">35030 </span> 0f 84/jump-if-= $emit-subx-disp32:end/disp32 +<span id="L35031" class="LineNr">35031 </span> <span class="subxComment"># var v/eax: (addr stmt-var)</span> +<span id="L35032" class="LineNr">35032 </span> (<a href='mu.subx.html#L34853'>get-stmt-operand-from-arg-location</a> *(ebp+0x10) *(ebp+0xc) *(ebp+0x14) *(ebp+0x18)) <span class="subxComment"># => eax</span> +<span id="L35033" class="LineNr">35033 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35034" class="LineNr">35034 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35035" class="LineNr">35035 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L35036" class="LineNr">35036 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35037" class="LineNr">35037 </span> <span class="subxComment"># hack: if instruction operation starts with "break", emit ":break"</span> +<span id="L35038" class="LineNr">35038 </span> <span class="subxComment"># var name/ecx: (addr array byte) = lookup(stmt->operation)</span> +<span id="L35039" class="LineNr">35039 </span> 8b/-> *(ebp+0x10) 0/r32/eax +<span id="L35040" class="LineNr">35040 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35041" class="LineNr">35041 </span> 89/<- %ecx 0/r32/eax +<span id="L35042" class="LineNr">35042 </span> { +<span id="L35043" class="LineNr">35043 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"break"</span>) <span class="subxComment"># => eax</span> +<span id="L35044" class="LineNr">35044 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35045" class="LineNr">35045 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35046" class="LineNr">35046 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":break"</span>) +<span id="L35047" class="LineNr">35047 </span> } +<span id="L35048" class="LineNr">35048 </span> <span class="subxComment"># hack: if instruction operation starts with "loop", emit ":loop"</span> +<span id="L35049" class="LineNr">35049 </span> { +<span id="L35050" class="LineNr">35050 </span> (<a href='105string-equal.subx.html#L57'>string-starts-with?</a> %ecx <span class="Constant">"loop"</span>) <span class="subxComment"># => eax</span> +<span id="L35051" class="LineNr">35051 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35052" class="LineNr">35052 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35053" class="LineNr">35053 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">":loop"</span>) +<span id="L35054" class="LineNr">35054 </span> } +<span id="L35055" class="LineNr">35055 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"/disp32"</span>) +<span id="L35056" class="LineNr">35056 </span><span class="Constant">$emit-subx-disp32:end</span>: +<span id="L35057" class="LineNr">35057 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35058" class="LineNr">35058 </span> 59/pop-to-ecx +<span id="L35059" class="LineNr">35059 </span> 58/pop-to-eax +<span id="L35060" class="LineNr">35060 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35061" class="LineNr">35061 </span> 89/<- %esp 5/r32/ebp +<span id="L35062" class="LineNr">35062 </span> 5d/pop-to-ebp +<span id="L35063" class="LineNr">35063 </span> c3/return +<span id="L35064" class="LineNr">35064 </span> +<span id="L35065" class="LineNr">35065 </span><span class="subxFunction">emit-call</span>: <span class="subxComment"># out: (addr buffered-file), stmt: (addr stmt)</span> +<span id="L35066" class="LineNr">35066 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35067" class="LineNr">35067 </span> 55/push-ebp +<span id="L35068" class="LineNr">35068 </span> 89/<- %ebp 4/r32/esp +<span id="L35069" class="LineNr">35069 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35070" class="LineNr">35070 </span> 50/push-eax +<span id="L35071" class="LineNr">35071 </span> 51/push-ecx +<span id="L35072" class="LineNr">35072 </span> <span class="subxComment">#</span> +<span id="L35073" class="LineNr">35073 </span> (<a href='mu.subx.html#L38299'>emit-indent</a> *(ebp+8) *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span>) +<span id="L35074" class="LineNr">35074 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"("</span>) +<span id="L35075" class="LineNr">35075 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L35076" class="LineNr">35076 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35077" class="LineNr">35077 </span> <span class="subxH1Comment"># - emit function name</span> +<span id="L35078" class="LineNr">35078 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35079" class="LineNr">35079 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35080" class="LineNr">35080 </span> <span class="subxH1Comment"># - emit arguments</span> +<span id="L35081" class="LineNr">35081 </span> <span class="subxComment"># var curr/eax: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L35082" class="LineNr">35082 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35083" class="LineNr">35083 </span> { +<span id="L35084" class="LineNr">35084 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L35085" class="LineNr">35085 </span> 3d/compare-eax-and 0/imm32 +<span id="L35086" class="LineNr">35086 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35087" class="LineNr">35087 </span> <span class="subxComment">#</span> +<span id="L35088" class="LineNr">35088 </span> (<a href='mu.subx.html#L35104'>emit-subx-call-operand</a> *(ebp+8) %eax) +<span id="L35089" class="LineNr">35089 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L35090" class="LineNr">35090 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+8) *(eax+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L35091" class="LineNr">35091 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35092" class="LineNr">35092 </span> } +<span id="L35093" class="LineNr">35093 </span> <span class="subxComment">#</span> +<span id="L35094" class="LineNr">35094 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")\n"</span>) +<span id="L35095" class="LineNr">35095 </span><span class="Constant">$emit-call:end</span>: +<span id="L35096" class="LineNr">35096 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35097" class="LineNr">35097 </span> 59/pop-to-ecx +<span id="L35098" class="LineNr">35098 </span> 58/pop-to-eax +<span id="L35099" class="LineNr">35099 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35100" class="LineNr">35100 </span> 89/<- %esp 5/r32/ebp +<span id="L35101" class="LineNr">35101 </span> 5d/pop-to-ebp +<span id="L35102" class="LineNr">35102 </span> c3/return +<span id="L35103" class="LineNr">35103 </span> +<span id="L35104" class="LineNr">35104 </span><span class="subxFunction">emit-subx-call-operand</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L35105" class="LineNr">35105 </span> <span class="subxComment"># shares code with emit-subx-var-as-rm32</span> +<span id="L35106" class="LineNr">35106 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35107" class="LineNr">35107 </span> 55/push-ebp +<span id="L35108" class="LineNr">35108 </span> 89/<- %ebp 4/r32/esp +<span id="L35109" class="LineNr">35109 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35110" class="LineNr">35110 </span> 50/push-eax +<span id="L35111" class="LineNr">35111 </span> 51/push-ecx +<span id="L35112" class="LineNr">35112 </span> 56/push-esi +<span id="L35113" class="LineNr">35113 </span> <span class="subxComment"># ecx = s</span> +<span id="L35114" class="LineNr">35114 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35115" class="LineNr">35115 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L35116" class="LineNr">35116 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35117" class="LineNr">35117 </span> 89/<- %esi 0/r32/eax +<span id="L35118" class="LineNr">35118 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L35119" class="LineNr">35119 </span> { +<span id="L35120" class="LineNr">35120 </span><span class="Constant">$emit-subx-call-operand:check-for-register-direct</span>: +<span id="L35121" class="LineNr">35121 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35122" class="LineNr">35122 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35123" class="LineNr">35123 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35124" class="LineNr">35124 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35125" class="LineNr">35125 </span><span class="Constant">$emit-subx-call-operand:register-direct</span>: +<span id="L35126" class="LineNr">35126 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L35127" class="LineNr">35127 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35128" class="LineNr">35128 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35129" class="LineNr">35129 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35130" class="LineNr">35130 </span> } +<span id="L35131" class="LineNr">35131 </span> <span class="subxComment"># else if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L35132" class="LineNr">35132 </span> { +<span id="L35133" class="LineNr">35133 </span><span class="Constant">$emit-subx-call-operand:check-for-register-indirect</span>: +<span id="L35134" class="LineNr">35134 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35135" class="LineNr">35135 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35136" class="LineNr">35136 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35137" class="LineNr">35137 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35138" class="LineNr">35138 </span><span class="Constant">$emit-subx-call-operand:register-indirect</span>: +<span id="L35139" class="LineNr">35139 </span> (<a href='mu.subx.html#L35181'>emit-subx-call-operand-register-indirect</a> *(ebp+8) %esi) +<span id="L35140" class="LineNr">35140 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35141" class="LineNr">35141 </span> } +<span id="L35142" class="LineNr">35142 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L35143" class="LineNr">35143 </span> { +<span id="L35144" class="LineNr">35144 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L35145" class="LineNr">35145 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35146" class="LineNr">35146 </span><span class="Constant">$emit-subx-call-operand:stack</span>: +<span id="L35147" class="LineNr">35147 </span> (<a href='mu.subx.html#L35226'>emit-subx-call-operand-stack</a> *(ebp+8) %esi) +<span id="L35148" class="LineNr">35148 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35149" class="LineNr">35149 </span> } +<span id="L35150" class="LineNr">35150 </span> <span class="subxComment"># else if (operand->type == literal) emit "__"</span> +<span id="L35151" class="LineNr">35151 </span> { +<span id="L35152" class="LineNr">35152 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35153" class="LineNr">35153 </span> 81 7/subop/compare *(eax+4) 0/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L35154" class="LineNr">35154 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35155" class="LineNr">35155 </span><span class="Constant">$emit-subx-call-operand:literal</span>: +<span id="L35156" class="LineNr">35156 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L35157" class="LineNr">35157 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35158" class="LineNr">35158 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35159" class="LineNr">35159 </span> e9/jump $emit-subx-call-operand:end/disp32 +<span id="L35160" class="LineNr">35160 </span> } +<span id="L35161" class="LineNr">35161 </span> <span class="subxComment"># else if (operand->type == literal-string) emit "__"</span> +<span id="L35162" class="LineNr">35162 </span> { +<span id="L35163" class="LineNr">35163 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35164" class="LineNr">35164 </span> 81 7/subop/compare *(eax+4) 0x10/imm32 <span class="subxComment"># Type-tree-value</span> +<span id="L35165" class="LineNr">35165 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35166" class="LineNr">35166 </span><span class="Constant">$emit-subx-call-operand:literal-string</span>: +<span id="L35167" class="LineNr">35167 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L35168" class="LineNr">35168 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *esi *(esi+4)) <span class="subxComment"># Var-name Var-name => eax</span> +<span id="L35169" class="LineNr">35169 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35170" class="LineNr">35170 </span> } +<span id="L35171" class="LineNr">35171 </span><span class="Constant">$emit-subx-call-operand:end</span>: +<span id="L35172" class="LineNr">35172 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35173" class="LineNr">35173 </span> 5e/pop-to-esi +<span id="L35174" class="LineNr">35174 </span> 59/pop-to-ecx +<span id="L35175" class="LineNr">35175 </span> 58/pop-to-eax +<span id="L35176" class="LineNr">35176 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35177" class="LineNr">35177 </span> 89/<- %esp 5/r32/ebp +<span id="L35178" class="LineNr">35178 </span> 5d/pop-to-ebp +<span id="L35179" class="LineNr">35179 </span> c3/return +<span id="L35180" class="LineNr">35180 </span> +<span id="L35181" class="LineNr">35181 </span><span class="subxFunction">emit-subx-call-operand-register-indirect</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L35182" class="LineNr">35182 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35183" class="LineNr">35183 </span> 55/push-ebp +<span id="L35184" class="LineNr">35184 </span> 89/<- %ebp 4/r32/esp +<span id="L35185" class="LineNr">35185 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35186" class="LineNr">35186 </span> 50/push-eax +<span id="L35187" class="LineNr">35187 </span> 51/push-ecx +<span id="L35188" class="LineNr">35188 </span> 56/push-esi +<span id="L35189" class="LineNr">35189 </span> <span class="subxComment"># esi = v</span> +<span id="L35190" class="LineNr">35190 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L35191" class="LineNr">35191 </span> <span class="subxComment"># var size/ecx: int = size-of-deref(v)</span> +<span id="L35192" class="LineNr">35192 </span> (<a href='mu.subx.html#L26601'>size-of-deref</a> %esi) <span class="subxComment"># => eax</span> +<span id="L35193" class="LineNr">35193 </span> 89/<- %ecx 0/r32/eax +<span id="L35194" class="LineNr">35194 </span> <span class="subxComment"># var reg-name/esi: (addr array byte) = lookup(v->register)</span> +<span id="L35195" class="LineNr">35195 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35196" class="LineNr">35196 </span> 89/<- %esi 0/r32/eax +<span id="L35197" class="LineNr">35197 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L35198" class="LineNr">35198 </span> <span class="subxComment"># var i/eax: int = 0</span> +<span id="L35199" class="LineNr">35199 </span> b8/copy-to-eax 0/imm32 +<span id="L35200" class="LineNr">35200 </span> { +<span id="L35201" class="LineNr">35201 </span><span class="Constant">$emit-subx-call-operand-register-indirect:loop</span>: +<span id="L35202" class="LineNr">35202 </span> <span class="subxComment"># if (i >= size) break</span> +<span id="L35203" class="LineNr">35203 </span> 39/compare %eax 1/r32/ecx +<span id="L35204" class="LineNr">35204 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L35205" class="LineNr">35205 </span> <span class="subxComment"># emit " *(" v->register "+" i ")"</span> +<span id="L35206" class="LineNr">35206 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *("</span>) +<span id="L35207" class="LineNr">35207 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %esi) +<span id="L35208" class="LineNr">35208 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"+"</span>) +<span id="L35209" class="LineNr">35209 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %eax) +<span id="L35210" class="LineNr">35210 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L35211" class="LineNr">35211 </span> <span class="subxComment"># i += 4</span> +<span id="L35212" class="LineNr">35212 </span> 05/add-to-eax 4/imm32 +<span id="L35213" class="LineNr">35213 </span> <span class="subxComment">#</span> +<span id="L35214" class="LineNr">35214 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35215" class="LineNr">35215 </span> } +<span id="L35216" class="LineNr">35216 </span><span class="Constant">$emit-subx-call-operand-register-indirect:end</span>: +<span id="L35217" class="LineNr">35217 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35218" class="LineNr">35218 </span> 5e/pop-to-esi +<span id="L35219" class="LineNr">35219 </span> 59/pop-to-ecx +<span id="L35220" class="LineNr">35220 </span> 58/pop-to-eax +<span id="L35221" class="LineNr">35221 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35222" class="LineNr">35222 </span> 89/<- %esp 5/r32/ebp +<span id="L35223" class="LineNr">35223 </span> 5d/pop-to-ebp +<span id="L35224" class="LineNr">35224 </span> c3/return +<span id="L35225" class="LineNr">35225 </span> +<span id="L35226" class="LineNr">35226 </span><span class="subxFunction">emit-subx-call-operand-stack</span>: <span class="subxComment"># out: (addr buffered-file), v: (addr var)</span> +<span id="L35227" class="LineNr">35227 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35228" class="LineNr">35228 </span> 55/push-ebp +<span id="L35229" class="LineNr">35229 </span> 89/<- %ebp 4/r32/esp +<span id="L35230" class="LineNr">35230 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35231" class="LineNr">35231 </span> 50/push-eax +<span id="L35232" class="LineNr">35232 </span> 51/push-ecx +<span id="L35233" class="LineNr">35233 </span> 56/push-esi +<span id="L35234" class="LineNr">35234 </span> <span class="subxComment"># esi = v</span> +<span id="L35235" class="LineNr">35235 </span> 8b/-> *(ebp+0xc) 6/r32/esi +<span id="L35236" class="LineNr">35236 </span> <span class="subxComment"># var curr/ecx: int = v->offset</span> +<span id="L35237" class="LineNr">35237 </span> 8b/-> *(esi+0x14) 1/r32/ecx <span class="subxComment"># Var-offset</span> +<span id="L35238" class="LineNr">35238 </span> <span class="subxComment"># var max/eax: int = v->offset + size-of(v)</span> +<span id="L35239" class="LineNr">35239 </span> (<a href='mu.subx.html#L26551'>size-of</a> %esi) <span class="subxComment"># => eax</span> +<span id="L35240" class="LineNr">35240 </span> <span class="subxComment"># TODO: assert size is a multiple of 4</span> +<span id="L35241" class="LineNr">35241 </span> 01/add-to %eax 1/r32/ecx +<span id="L35242" class="LineNr">35242 </span> { +<span id="L35243" class="LineNr">35243 </span><span class="Constant">$emit-subx-call-operand-stack:loop</span>: +<span id="L35244" class="LineNr">35244 </span> <span class="subxComment"># if (curr >= max) break</span> +<span id="L35245" class="LineNr">35245 </span> 39/compare %ecx 0/r32/eax +<span id="L35246" class="LineNr">35246 </span> 7d/jump-if->= <span class="Constant">break</span>/disp8 +<span id="L35247" class="LineNr">35247 </span> <span class="subxComment"># emit " *(ebp+" curr ")"</span> +<span id="L35248" class="LineNr">35248 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *(ebp+"</span>) +<span id="L35249" class="LineNr">35249 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) %ecx) +<span id="L35250" class="LineNr">35250 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L35251" class="LineNr">35251 </span> <span class="subxComment"># i += 4</span> +<span id="L35252" class="LineNr">35252 </span> 81 0/subop/add %ecx 4/imm32 +<span id="L35253" class="LineNr">35253 </span> <span class="subxComment">#</span> +<span id="L35254" class="LineNr">35254 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35255" class="LineNr">35255 </span> } +<span id="L35256" class="LineNr">35256 </span><span class="Constant">$emit-subx-call-operand-stack:end</span>: +<span id="L35257" class="LineNr">35257 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35258" class="LineNr">35258 </span> 5e/pop-to-esi +<span id="L35259" class="LineNr">35259 </span> 59/pop-to-ecx +<span id="L35260" class="LineNr">35260 </span> 58/pop-to-eax +<span id="L35261" class="LineNr">35261 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35262" class="LineNr">35262 </span> 89/<- %esp 5/r32/ebp +<span id="L35263" class="LineNr">35263 </span> 5d/pop-to-ebp +<span id="L35264" class="LineNr">35264 </span> c3/return +<span id="L35265" class="LineNr">35265 </span> +<span id="L35266" class="LineNr">35266 </span><span class="subxFunction">emit-subx-var-as-rm32</span>: <span class="subxComment"># out: (addr buffered-file), s: (addr stmt-var)</span> +<span id="L35267" class="LineNr">35267 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35268" class="LineNr">35268 </span> 55/push-ebp +<span id="L35269" class="LineNr">35269 </span> 89/<- %ebp 4/r32/esp +<span id="L35270" class="LineNr">35270 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35271" class="LineNr">35271 </span> 50/push-eax +<span id="L35272" class="LineNr">35272 </span> 51/push-ecx +<span id="L35273" class="LineNr">35273 </span> 56/push-esi +<span id="L35274" class="LineNr">35274 </span> <span class="subxComment"># ecx = s</span> +<span id="L35275" class="LineNr">35275 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35276" class="LineNr">35276 </span> <span class="subxComment"># var operand/esi: (addr var) = lookup(s->value)</span> +<span id="L35277" class="LineNr">35277 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35278" class="LineNr">35278 </span> 89/<- %esi 0/r32/eax +<span id="L35279" class="LineNr">35279 </span> <span class="subxComment"># if (operand->register && s->is-deref?) emit "*__"</span> +<span id="L35280" class="LineNr">35280 </span> { +<span id="L35281" class="LineNr">35281 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-indirect</span>: +<span id="L35282" class="LineNr">35282 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35283" class="LineNr">35283 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35284" class="LineNr">35284 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35285" class="LineNr">35285 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35286" class="LineNr">35286 </span><span class="Constant">$emit-subx-var-as-rm32:register-indirect</span>: +<span id="L35287" class="LineNr">35287 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" *"</span>) +<span id="L35288" class="LineNr">35288 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35289" class="LineNr">35289 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35290" class="LineNr">35290 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L35291" class="LineNr">35291 </span> } +<span id="L35292" class="LineNr">35292 </span> <span class="subxComment"># if (operand->register && !s->is-deref?) emit "%__"</span> +<span id="L35293" class="LineNr">35293 </span> { +<span id="L35294" class="LineNr">35294 </span><span class="Constant">$emit-subx-var-as-rm32:check-for-register-direct</span>: +<span id="L35295" class="LineNr">35295 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35296" class="LineNr">35296 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35297" class="LineNr">35297 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35298" class="LineNr">35298 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35299" class="LineNr">35299 </span><span class="Constant">$emit-subx-var-as-rm32:register-direct</span>: +<span id="L35300" class="LineNr">35300 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" %"</span>) +<span id="L35301" class="LineNr">35301 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35302" class="LineNr">35302 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) %eax) +<span id="L35303" class="LineNr">35303 </span> e9/jump $emit-subx-var-as-rm32:end/disp32 +<span id="L35304" class="LineNr">35304 </span> } +<span id="L35305" class="LineNr">35305 </span> <span class="subxComment"># else if (operand->stack-offset) emit "*(ebp+__)"</span> +<span id="L35306" class="LineNr">35306 </span> { +<span id="L35307" class="LineNr">35307 </span> 81 7/subop/compare *(esi+0x14) 0/imm32 <span class="subxComment"># Var-offset</span> +<span id="L35308" class="LineNr">35308 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35309" class="LineNr">35309 </span><span class="Constant">$emit-subx-var-as-rm32:stack</span>: +<span id="L35310" class="LineNr">35310 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>) +<span id="L35311" class="LineNr">35311 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">"*(ebp+"</span>) +<span id="L35312" class="LineNr">35312 </span> (<a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a> *(ebp+8) *(esi+0x14)) <span class="subxComment"># Var-offset</span> +<span id="L35313" class="LineNr">35313 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">")"</span>) +<span id="L35314" class="LineNr">35314 </span> } +<span id="L35315" class="LineNr">35315 </span><span class="Constant">$emit-subx-var-as-rm32:end</span>: +<span id="L35316" class="LineNr">35316 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35317" class="LineNr">35317 </span> 5e/pop-to-esi +<span id="L35318" class="LineNr">35318 </span> 59/pop-to-ecx +<span id="L35319" class="LineNr">35319 </span> 58/pop-to-eax +<span id="L35320" class="LineNr">35320 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35321" class="LineNr">35321 </span> 89/<- %esp 5/r32/ebp +<span id="L35322" class="LineNr">35322 </span> 5d/pop-to-ebp +<span id="L35323" class="LineNr">35323 </span> c3/return +<span id="L35324" class="LineNr">35324 </span> +<span id="L35325" class="LineNr">35325 </span><span class="subxFunction">find-matching-primitive</span>: <span class="subxComment"># primitives: (addr primitive), stmt: (addr stmt) -> result/eax: (addr primitive)</span> +<span id="L35326" class="LineNr">35326 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35327" class="LineNr">35327 </span> 55/push-ebp +<span id="L35328" class="LineNr">35328 </span> 89/<- %ebp 4/r32/esp +<span id="L35329" class="LineNr">35329 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35330" class="LineNr">35330 </span> 51/push-ecx +<span id="L35331" class="LineNr">35331 </span> <span class="subxComment"># var curr/ecx: (addr primitive) = primitives</span> +<span id="L35332" class="LineNr">35332 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35333" class="LineNr">35333 </span> { +<span id="L35334" class="LineNr">35334 </span><span class="Constant">$find-matching-primitive:loop</span>: +<span id="L35335" class="LineNr">35335 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L35336" class="LineNr">35336 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L35337" class="LineNr">35337 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35338" class="LineNr">35338 </span> <span class="subxComment"># if match(curr, stmt) return curr</span> +<span id="L35339" class="LineNr">35339 </span> { +<span id="L35340" class="LineNr">35340 </span> (<a href='mu.subx.html#L35363'>mu-stmt-matches-primitive?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L35341" class="LineNr">35341 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35342" class="LineNr">35342 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35343" class="LineNr">35343 </span> 89/<- %eax 1/r32/ecx +<span id="L35344" class="LineNr">35344 </span> eb/jump $find-matching-primitive:end/disp8 +<span id="L35345" class="LineNr">35345 </span> } +<span id="L35346" class="LineNr">35346 </span><span class="Constant">$find-matching-primitive:next-primitive</span>: +<span id="L35347" class="LineNr">35347 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L35348" class="LineNr">35348 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x3c) *(ecx+0x40)) <span class="subxComment"># Primitive-next Primitive-next => eax</span> +<span id="L35349" class="LineNr">35349 </span> 89/<- %ecx 0/r32/eax +<span id="L35350" class="LineNr">35350 </span> <span class="subxComment">#</span> +<span id="L35351" class="LineNr">35351 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L35352" class="LineNr">35352 </span> } +<span id="L35353" class="LineNr">35353 </span> <span class="subxComment"># return null</span> +<span id="L35354" class="LineNr">35354 </span> b8/copy-to-eax 0/imm32 +<span id="L35355" class="LineNr">35355 </span><span class="Constant">$find-matching-primitive:end</span>: +<span id="L35356" class="LineNr">35356 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35357" class="LineNr">35357 </span> 59/pop-to-ecx +<span id="L35358" class="LineNr">35358 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35359" class="LineNr">35359 </span> 89/<- %esp 5/r32/ebp +<span id="L35360" class="LineNr">35360 </span> 5d/pop-to-ebp +<span id="L35361" class="LineNr">35361 </span> c3/return +<span id="L35362" class="LineNr">35362 </span> +<span id="L35363" class="LineNr">35363 </span><span class="subxFunction">mu-stmt-matches-primitive?</span>: <span class="subxComment"># stmt: (addr stmt), primitive: (addr primitive) -> result/eax: boolean</span> +<span id="L35364" class="LineNr">35364 </span> <span class="subxComment"># A mu stmt matches a primitive if the name matches, all the inout vars</span> +<span id="L35365" class="LineNr">35365 </span> <span class="subxComment"># match, and all the output vars match.</span> +<span id="L35366" class="LineNr">35366 </span> <span class="subxComment"># Vars match if types match and registers match.</span> +<span id="L35367" class="LineNr">35367 </span> <span class="subxComment"># In addition, a stmt output matches a primitive's output if types match</span> +<span id="L35368" class="LineNr">35368 </span> <span class="subxComment"># and the primitive has a wildcard register.</span> +<span id="L35369" class="LineNr">35369 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35370" class="LineNr">35370 </span> 55/push-ebp +<span id="L35371" class="LineNr">35371 </span> 89/<- %ebp 4/r32/esp +<span id="L35372" class="LineNr">35372 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35373" class="LineNr">35373 </span> 51/push-ecx +<span id="L35374" class="LineNr">35374 </span> 52/push-edx +<span id="L35375" class="LineNr">35375 </span> 53/push-ebx +<span id="L35376" class="LineNr">35376 </span> 56/push-esi +<span id="L35377" class="LineNr">35377 </span> 57/push-edi +<span id="L35378" class="LineNr">35378 </span> <span class="subxComment"># ecx = stmt</span> +<span id="L35379" class="LineNr">35379 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35380" class="LineNr">35380 </span> <span class="subxComment"># edx = primitive</span> +<span id="L35381" class="LineNr">35381 </span> 8b/-> *(ebp+0xc) 2/r32/edx +<span id="L35382" class="LineNr">35382 </span> { +<span id="L35383" class="LineNr">35383 </span><span class="Constant">$mu-stmt-matches-primitive?:check-name</span>: +<span id="L35384" class="LineNr">35384 </span> <span class="subxComment"># if (primitive->name != stmt->operation) return false</span> +<span id="L35385" class="LineNr">35385 </span> <span class="subxS1Comment"># . var esi: (addr array byte) = lookup(stmt->operation)</span> +<span id="L35386" class="LineNr">35386 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+4) *(ecx+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35387" class="LineNr">35387 </span> 89/<- %esi 0/r32/eax +<span id="L35388" class="LineNr">35388 </span> <span class="subxS1Comment"># . var edi: (addr array byte) = lookup(primitive->name)</span> +<span id="L35389" class="LineNr">35389 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edx *(edx+4)) <span class="subxComment"># Primitive-name Primitive-name => eax</span> +<span id="L35390" class="LineNr">35390 </span><span class="CommentedCode">#? (write-buffered Stderr %eax)</span> +<span id="L35391" class="LineNr">35391 </span><span class="CommentedCode">#? (write-buffered Stderr Newline)</span> +<span id="L35392" class="LineNr">35392 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L35393" class="LineNr">35393 </span> 89/<- %edi 0/r32/eax +<span id="L35394" class="LineNr">35394 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %esi %edi) <span class="subxComment"># => eax</span> +<span id="L35395" class="LineNr">35395 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35396" class="LineNr">35396 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35397" class="LineNr">35397 </span> b8/copy-to-eax 0/imm32 +<span id="L35398" class="LineNr">35398 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35399" class="LineNr">35399 </span> } +<span id="L35400" class="LineNr">35400 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->inouts)</span> +<span id="L35401" class="LineNr">35401 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0xc) *(ecx+0x10)) <span class="subxComment"># Stmt1-inouts Stmt1-inouts => eax</span> +<span id="L35402" class="LineNr">35402 </span> 89/<- %esi 0/r32/eax +<span id="L35403" class="LineNr">35403 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->inouts)</span> +<span id="L35404" class="LineNr">35404 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+8) *(edx+0xc)) <span class="subxComment"># Primitive-inouts Primitive-inouts => eax</span> +<span id="L35405" class="LineNr">35405 </span> 89/<- %edi 0/r32/eax +<span id="L35406" class="LineNr">35406 </span> { +<span id="L35407" class="LineNr">35407 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-loop</span>: +<span id="L35408" class="LineNr">35408 </span> <span class="subxComment"># if (curr == 0 && curr2 == 0) move on to check outputs</span> +<span id="L35409" class="LineNr">35409 </span> { +<span id="L35410" class="LineNr">35410 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-inouts-null</span>: +<span id="L35411" class="LineNr">35411 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L35412" class="LineNr">35412 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35413" class="LineNr">35413 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null</span>: +<span id="L35414" class="LineNr">35414 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35415" class="LineNr">35415 </span> 0f 84/jump-if-= $mu-stmt-matches-primitive?:check-outputs/disp32 +<span id="L35416" class="LineNr">35416 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-inout-null-and-prim-inout-not-null</span>: +<span id="L35417" class="LineNr">35417 </span> <span class="subxComment"># return false</span> +<span id="L35418" class="LineNr">35418 </span> b8/copy-to-eax 0/imm32/false +<span id="L35419" class="LineNr">35419 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35420" class="LineNr">35420 </span> } +<span id="L35421" class="LineNr">35421 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L35422" class="LineNr">35422 </span> { +<span id="L35423" class="LineNr">35423 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-inout-null</span>: +<span id="L35424" class="LineNr">35424 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35425" class="LineNr">35425 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35426" class="LineNr">35426 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-inout-null</span>: +<span id="L35427" class="LineNr">35427 </span> b8/copy-to-eax 0/imm32/false +<span id="L35428" class="LineNr">35428 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35429" class="LineNr">35429 </span> } +<span id="L35430" class="LineNr">35430 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L35431" class="LineNr">35431 </span> { +<span id="L35432" class="LineNr">35432 </span><span class="Constant">$mu-stmt-matches-primitive?:check-inouts-match</span>: +<span id="L35433" class="LineNr">35433 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L35434" class="LineNr">35434 </span> (<a href='mu.subx.html#L35523'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L35435" class="LineNr">35435 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35436" class="LineNr">35436 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35437" class="LineNr">35437 </span><span class="Constant">$mu-stmt-matches-primitive?:inouts-match</span>: +<span id="L35438" class="LineNr">35438 </span> b8/copy-to-eax 0/imm32/false +<span id="L35439" class="LineNr">35439 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35440" class="LineNr">35440 </span> } +<span id="L35441" class="LineNr">35441 </span><span class="Constant">$mu-stmt-matches-primitive?:next-inout</span>: +<span id="L35442" class="LineNr">35442 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L35443" class="LineNr">35443 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L35444" class="LineNr">35444 </span> 89/<- %esi 0/r32/eax +<span id="L35445" class="LineNr">35445 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L35446" class="LineNr">35446 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L35447" class="LineNr">35447 </span> 89/<- %edi 0/r32/eax +<span id="L35448" class="LineNr">35448 </span> <span class="subxComment">#</span> +<span id="L35449" class="LineNr">35449 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L35450" class="LineNr">35450 </span> } +<span id="L35451" class="LineNr">35451 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs</span>: +<span id="L35452" class="LineNr">35452 </span> <span class="subxComment"># var curr/esi: (addr stmt-var) = lookup(stmt->outputs)</span> +<span id="L35453" class="LineNr">35453 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x14) *(ecx+0x18)) <span class="subxComment"># Stmt1-outputs Stmt1-outputs => eax</span> +<span id="L35454" class="LineNr">35454 </span> 89/<- %esi 0/r32/eax +<span id="L35455" class="LineNr">35455 </span> <span class="subxComment"># var curr2/edi: (addr list var) = lookup(primitive->outputs)</span> +<span id="L35456" class="LineNr">35456 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edx+0x10) *(edx+0x14)) <span class="subxComment"># Primitive-outputs Primitive-outputs => eax</span> +<span id="L35457" class="LineNr">35457 </span> 89/<- %edi 0/r32/eax +<span id="L35458" class="LineNr">35458 </span> { +<span id="L35459" class="LineNr">35459 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-loop</span>: +<span id="L35460" class="LineNr">35460 </span> <span class="subxComment"># if (curr == 0) return (curr2 == 0)</span> +<span id="L35461" class="LineNr">35461 </span> { +<span id="L35462" class="LineNr">35462 </span><span class="Constant">$mu-stmt-matches-primitive?:check-both-outputs-null</span>: +<span id="L35463" class="LineNr">35463 </span> 81 7/subop/compare %esi 0/imm32 +<span id="L35464" class="LineNr">35464 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35465" class="LineNr">35465 </span> { +<span id="L35466" class="LineNr">35466 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null</span>: +<span id="L35467" class="LineNr">35467 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35468" class="LineNr">35468 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35469" class="LineNr">35469 </span><span class="Constant">$mu-stmt-matches-primitive?:both-outputs-null</span>: +<span id="L35470" class="LineNr">35470 </span> <span class="subxComment"># return true</span> +<span id="L35471" class="LineNr">35471 </span> b8/copy-to-eax 1/imm32 +<span id="L35472" class="LineNr">35472 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35473" class="LineNr">35473 </span> } +<span id="L35474" class="LineNr">35474 </span><span class="Constant">$mu-stmt-matches-primitive?:stmt-output-null-and-prim-output-not-null</span>: +<span id="L35475" class="LineNr">35475 </span> <span class="subxComment"># return false</span> +<span id="L35476" class="LineNr">35476 </span> b8/copy-to-eax 0/imm32 +<span id="L35477" class="LineNr">35477 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35478" class="LineNr">35478 </span> } +<span id="L35479" class="LineNr">35479 </span> <span class="subxComment"># if (curr2 == 0) return false</span> +<span id="L35480" class="LineNr">35480 </span> { +<span id="L35481" class="LineNr">35481 </span><span class="Constant">$mu-stmt-matches-primitive?:check-prim-output-null</span>: +<span id="L35482" class="LineNr">35482 </span> 81 7/subop/compare %edi 0/imm32 +<span id="L35483" class="LineNr">35483 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35484" class="LineNr">35484 </span><span class="Constant">$mu-stmt-matches-primitive?:prim-output-is-null</span>: +<span id="L35485" class="LineNr">35485 </span> b8/copy-to-eax 0/imm32 +<span id="L35486" class="LineNr">35486 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35487" class="LineNr">35487 </span> } +<span id="L35488" class="LineNr">35488 </span> <span class="subxComment"># if (curr != curr2) return false</span> +<span id="L35489" class="LineNr">35489 </span> { +<span id="L35490" class="LineNr">35490 </span><span class="Constant">$mu-stmt-matches-primitive?:check-outputs-match</span>: +<span id="L35491" class="LineNr">35491 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *edi *(edi+4)) <span class="subxComment"># List-value List-value => eax</span> +<span id="L35492" class="LineNr">35492 </span> (<a href='mu.subx.html#L35523'>operand-matches-primitive?</a> %esi %eax) <span class="subxComment"># => eax</span> +<span id="L35493" class="LineNr">35493 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35494" class="LineNr">35494 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35495" class="LineNr">35495 </span><span class="Constant">$mu-stmt-matches-primitive?:outputs-match</span>: +<span id="L35496" class="LineNr">35496 </span> b8/copy-to-eax 0/imm32 +<span id="L35497" class="LineNr">35497 </span> e9/jump $mu-stmt-matches-primitive?:end/disp32 +<span id="L35498" class="LineNr">35498 </span> } +<span id="L35499" class="LineNr">35499 </span><span class="Constant">$mu-stmt-matches-primitive?:next-output</span>: +<span id="L35500" class="LineNr">35500 </span> <span class="subxComment"># curr = lookup(curr->next)</span> +<span id="L35501" class="LineNr">35501 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Stmt-var-next Stmt-var-next => eax</span> +<span id="L35502" class="LineNr">35502 </span> 89/<- %esi 0/r32/eax +<span id="L35503" class="LineNr">35503 </span> <span class="subxComment"># curr2 = lookup(curr2->next)</span> +<span id="L35504" class="LineNr">35504 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># List-next List-next => eax</span> +<span id="L35505" class="LineNr">35505 </span> 89/<- %edi 0/r32/eax +<span id="L35506" class="LineNr">35506 </span> <span class="subxComment">#</span> +<span id="L35507" class="LineNr">35507 </span> e9/jump <span class="Constant">loop</span>/disp32 +<span id="L35508" class="LineNr">35508 </span> } +<span id="L35509" class="LineNr">35509 </span><span class="Constant">$mu-stmt-matches-primitive?:return-true</span>: +<span id="L35510" class="LineNr">35510 </span> b8/copy-to-eax 1/imm32 +<span id="L35511" class="LineNr">35511 </span><span class="Constant">$mu-stmt-matches-primitive?:end</span>: +<span id="L35512" class="LineNr">35512 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35513" class="LineNr">35513 </span> 5f/pop-to-edi +<span id="L35514" class="LineNr">35514 </span> 5e/pop-to-esi +<span id="L35515" class="LineNr">35515 </span> 5b/pop-to-ebx +<span id="L35516" class="LineNr">35516 </span> 5a/pop-to-edx +<span id="L35517" class="LineNr">35517 </span> 59/pop-to-ecx +<span id="L35518" class="LineNr">35518 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35519" class="LineNr">35519 </span> 89/<- %esp 5/r32/ebp +<span id="L35520" class="LineNr">35520 </span> 5d/pop-to-ebp +<span id="L35521" class="LineNr">35521 </span> c3/return +<span id="L35522" class="LineNr">35522 </span> +<span id="L35523" class="LineNr">35523 </span><span class="subxFunction">operand-matches-primitive?</span>: <span class="subxComment"># s: (addr stmt-var), prim-var: (addr var) -> result/eax: boolean</span> +<span id="L35524" class="LineNr">35524 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35525" class="LineNr">35525 </span> 55/push-ebp +<span id="L35526" class="LineNr">35526 </span> 89/<- %ebp 4/r32/esp +<span id="L35527" class="LineNr">35527 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35528" class="LineNr">35528 </span> 51/push-ecx +<span id="L35529" class="LineNr">35529 </span> 52/push-edx +<span id="L35530" class="LineNr">35530 </span> 53/push-ebx +<span id="L35531" class="LineNr">35531 </span> 56/push-esi +<span id="L35532" class="LineNr">35532 </span> 57/push-edi +<span id="L35533" class="LineNr">35533 </span> <span class="subxComment"># ecx = s</span> +<span id="L35534" class="LineNr">35534 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35535" class="LineNr">35535 </span> <span class="subxComment"># var var/esi: (addr var) = lookup(s->value)</span> +<span id="L35536" class="LineNr">35536 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *ecx *(ecx+4)) <span class="subxComment"># Stmt-var-value Stmt-var-value => eax</span> +<span id="L35537" class="LineNr">35537 </span> 89/<- %esi 0/r32/eax +<span id="L35538" class="LineNr">35538 </span> <span class="subxComment"># edi = prim-var</span> +<span id="L35539" class="LineNr">35539 </span> 8b/-> *(ebp+0xc) 7/r32/edi +<span id="L35540" class="LineNr">35540 </span><span class="Constant">$operand-matches-primitive?:check-type</span>: +<span id="L35541" class="LineNr">35541 </span> <span class="subxComment"># if !category-match?(var->type, prim-var->type) return false</span> +<span id="L35542" class="LineNr">35542 </span> <span class="subxS1Comment"># . var vtype/ebx: (addr type-tree) = lookup(var->type)</span> +<span id="L35543" class="LineNr">35543 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+8) *(esi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35544" class="LineNr">35544 </span> 89/<- %ebx 0/r32/eax +<span id="L35545" class="LineNr">35545 </span> <span class="subxS1Comment"># . if s is deref, vtype = vtype->right</span> +<span id="L35546" class="LineNr">35546 </span> { +<span id="L35547" class="LineNr">35547 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35548" class="LineNr">35548 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35549" class="LineNr">35549 </span><span class="Constant">$operand-matches-primitive?:is-deref</span>: +<span id="L35550" class="LineNr">35550 </span> <span class="subxS1Comment"># . var t/eax: (addr type)</span> +<span id="L35551" class="LineNr">35551 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ebx+0xc) *(ebx+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L35552" class="LineNr">35552 </span> <span class="subxS1Comment"># . if !t->is-atom? t = t->left</span> +<span id="L35553" class="LineNr">35553 </span> 81 7/subop/compare *eax 0/imm32/false +<span id="L35554" class="LineNr">35554 </span> { +<span id="L35555" class="LineNr">35555 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35556" class="LineNr">35556 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L35557" class="LineNr">35557 </span> } +<span id="L35558" class="LineNr">35558 </span> <span class="subxS1Comment"># .</span> +<span id="L35559" class="LineNr">35559 </span> 89/<- %ebx 0/r32/eax +<span id="L35560" class="LineNr">35560 </span> } +<span id="L35561" class="LineNr">35561 </span> <span class="subxS1Comment"># . var ptype/eax: (addr type-tree) = lookup(prim-var->type)</span> +<span id="L35562" class="LineNr">35562 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+8) *(edi+0xc)) <span class="subxComment"># Var-type Var-type => eax</span> +<span id="L35563" class="LineNr">35563 </span> (<a href='mu.subx.html#L35700'>subx-type-category-match?</a> %ebx %eax) <span class="subxComment"># => eax</span> +<span id="L35564" class="LineNr">35564 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35565" class="LineNr">35565 </span> 0f 84/jump-if-= $operand-matches-primitive?:return-false/disp32 +<span id="L35566" class="LineNr">35566 </span> { +<span id="L35567" class="LineNr">35567 </span><span class="Constant">$operand-matches-primitive?:check-register</span>: +<span id="L35568" class="LineNr">35568 </span> <span class="subxComment"># if prim-var is in memory and var is in register but dereference, match</span> +<span id="L35569" class="LineNr">35569 </span> { +<span id="L35570" class="LineNr">35570 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35571" class="LineNr">35571 </span> 0f 85/jump-if-!= <span class="Constant">break</span>/disp32 +<span id="L35572" class="LineNr">35572 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35573" class="LineNr">35573 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35574" class="LineNr">35574 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35575" class="LineNr">35575 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35576" class="LineNr">35576 </span><span class="Constant">$operand-matches-primitive?:var-deref-match</span>: +<span id="L35577" class="LineNr">35577 </span> e9/jump $operand-matches-primitive?:return-true/disp32 +<span id="L35578" class="LineNr">35578 </span> } +<span id="L35579" class="LineNr">35579 </span> <span class="subxComment"># if prim-var is in register and var is in register but dereference, no match</span> +<span id="L35580" class="LineNr">35580 </span> { +<span id="L35581" class="LineNr">35581 </span> 81 7/subop/compare *(edi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35582" class="LineNr">35582 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L35583" class="LineNr">35583 </span> 81 7/subop/compare *(esi+0x18) 0/imm32 <span class="subxComment"># Var-register</span> +<span id="L35584" class="LineNr">35584 </span> 0f 84/jump-if-= <span class="Constant">break</span>/disp32 +<span id="L35585" class="LineNr">35585 </span> 81 7/subop/compare *(ecx+0x10) 0/imm32/false <span class="subxComment"># Stmt-var-is-deref</span> +<span id="L35586" class="LineNr">35586 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35587" class="LineNr">35587 </span><span class="Constant">$operand-matches-primitive?:var-deref-no-match</span>: +<span id="L35588" class="LineNr">35588 </span> e9/jump $operand-matches-primitive?:return-false/disp32 +<span id="L35589" class="LineNr">35589 </span> } +<span id="L35590" class="LineNr">35590 </span> <span class="subxComment"># return false if var->register doesn't match prim-var->register</span> +<span id="L35591" class="LineNr">35591 </span> { +<span id="L35592" class="LineNr">35592 </span> <span class="subxComment"># if register addresses are equal, it's a match</span> +<span id="L35593" class="LineNr">35593 </span> <span class="subxComment"># var vreg/ebx: (addr array byte) = lookup(var->register)</span> +<span id="L35594" class="LineNr">35594 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0x18) *(esi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35595" class="LineNr">35595 </span> 89/<- %ebx 0/r32/eax +<span id="L35596" class="LineNr">35596 </span> <span class="subxComment"># var preg/ecx: (addr array byte) = lookup(prim-var->register)</span> +<span id="L35597" class="LineNr">35597 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(edi+0x18) *(edi+0x1c)) <span class="subxComment"># Var-register Var-register => eax</span> +<span id="L35598" class="LineNr">35598 </span> 89/<- %ecx 0/r32/eax +<span id="L35599" class="LineNr">35599 </span> <span class="subxComment"># if (vreg == preg) break</span> +<span id="L35600" class="LineNr">35600 </span> 39/compare %ecx 3/r32/ebx +<span id="L35601" class="LineNr">35601 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35602" class="LineNr">35602 </span><span class="Constant">$operand-matches-primitive?:var-register-no-match</span>: +<span id="L35603" class="LineNr">35603 </span> <span class="subxComment"># if either address is 0, return false</span> +<span id="L35604" class="LineNr">35604 </span> 81 7/subop/compare %ebx 0/imm32 +<span id="L35605" class="LineNr">35605 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L35606" class="LineNr">35606 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L35607" class="LineNr">35607 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L35608" class="LineNr">35608 </span> <span class="subxComment"># if prim-var->register is wildcard, it's a match</span> +<span id="L35609" class="LineNr">35609 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx <span class="Constant">"*"</span>) <span class="subxComment"># Any-register => eax</span> +<span id="L35610" class="LineNr">35610 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35611" class="LineNr">35611 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35612" class="LineNr">35612 </span><span class="Constant">$operand-matches-primitive?:wildcard-no-match</span>: +<span id="L35613" class="LineNr">35613 </span> <span class="subxComment"># if string contents aren't equal, return false</span> +<span id="L35614" class="LineNr">35614 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %ecx %ebx) <span class="subxComment"># => eax</span> +<span id="L35615" class="LineNr">35615 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35616" class="LineNr">35616 </span> 74/jump-if-= $operand-matches-primitive?:return-false/disp8 +<span id="L35617" class="LineNr">35617 </span> } +<span id="L35618" class="LineNr">35618 </span> } +<span id="L35619" class="LineNr">35619 </span><span class="Constant">$operand-matches-primitive?:return-true</span>: +<span id="L35620" class="LineNr">35620 </span> b8/copy-to-eax 1/imm32/true +<span id="L35621" class="LineNr">35621 </span> eb/jump $operand-matches-primitive?:end/disp8 +<span id="L35622" class="LineNr">35622 </span><span class="Constant">$operand-matches-primitive?:return-false</span>: +<span id="L35623" class="LineNr">35623 </span> b8/copy-to-eax 0/imm32/false +<span id="L35624" class="LineNr">35624 </span><span class="Constant">$operand-matches-primitive?:end</span>: +<span id="L35625" class="LineNr">35625 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35626" class="LineNr">35626 </span> 5f/pop-to-edi +<span id="L35627" class="LineNr">35627 </span> 5e/pop-to-esi +<span id="L35628" class="LineNr">35628 </span> 5b/pop-to-ebx +<span id="L35629" class="LineNr">35629 </span> 5a/pop-to-edx +<span id="L35630" class="LineNr">35630 </span> 59/pop-to-ecx +<span id="L35631" class="LineNr">35631 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35632" class="LineNr">35632 </span> 89/<- %esp 5/r32/ebp +<span id="L35633" class="LineNr">35633 </span> 5d/pop-to-ebp +<span id="L35634" class="LineNr">35634 </span> c3/return +<span id="L35635" class="LineNr">35635 </span> +<span id="L35636" class="LineNr">35636 </span><span class="subxFunction">find-matching-function</span>: <span class="subxComment"># functions: (addr function), stmt: (addr stmt) -> result/eax: (addr function)</span> +<span id="L35637" class="LineNr">35637 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35638" class="LineNr">35638 </span> 55/push-ebp +<span id="L35639" class="LineNr">35639 </span> 89/<- %ebp 4/r32/esp +<span id="L35640" class="LineNr">35640 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35641" class="LineNr">35641 </span> 51/push-ecx +<span id="L35642" class="LineNr">35642 </span> <span class="subxComment"># var curr/ecx: (handle function) = functions</span> +<span id="L35643" class="LineNr">35643 </span> 8b/-> *(ebp+8) 1/r32/ecx +<span id="L35644" class="LineNr">35644 </span> { +<span id="L35645" class="LineNr">35645 </span> <span class="subxComment"># if (curr == null) break</span> +<span id="L35646" class="LineNr">35646 </span> 81 7/subop/compare %ecx 0/imm32 +<span id="L35647" class="LineNr">35647 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35648" class="LineNr">35648 </span><span class="CommentedCode">#? (write-buffered Stderr "iter\n")</span> +<span id="L35649" class="LineNr">35649 </span><span class="CommentedCode">#? (flush Stderr)</span> +<span id="L35650" class="LineNr">35650 </span> <span class="subxComment"># if match(stmt, curr) return curr</span> +<span id="L35651" class="LineNr">35651 </span> { +<span id="L35652" class="LineNr">35652 </span> (<a href='mu.subx.html#L35675'>mu-stmt-matches-function?</a> *(ebp+0xc) %ecx) <span class="subxComment"># => eax</span> +<span id="L35653" class="LineNr">35653 </span> 3d/compare-eax-and 0/imm32/false +<span id="L35654" class="LineNr">35654 </span> 74/jump-if-= <span class="Constant">break</span>/disp8 +<span id="L35655" class="LineNr">35655 </span> 89/<- %eax 1/r32/ecx +<span id="L35656" class="LineNr">35656 </span> eb/jump $find-matching-function:end/disp8 +<span id="L35657" class="LineNr">35657 </span> } +<span id="L35658" class="LineNr">35658 </span> <span class="subxComment"># curr = curr->next</span> +<span id="L35659" class="LineNr">35659 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(ecx+0x20) *(ecx+0x24)) <span class="subxComment"># Function-next Function-next => eax</span> +<span id="L35660" class="LineNr">35660 </span> 89/<- %ecx 0/r32/eax +<span id="L35661" class="LineNr">35661 </span> <span class="subxComment">#</span> +<span id="L35662" class="LineNr">35662 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L35663" class="LineNr">35663 </span> } +<span id="L35664" class="LineNr">35664 </span> <span class="subxComment"># return null</span> +<span id="L35665" class="LineNr">35665 </span> b8/copy-to-eax 0/imm32 +<span id="L35666" class="LineNr">35666 </span><span class="Constant">$find-matching-function:end</span>: +<span id="L35667" class="LineNr">35667 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35668" class="LineNr">35668 </span> 59/pop-to-ecx +<span id="L35669" class="LineNr">35669 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35670" class="LineNr">35670 </span> 89/<- %esp 5/r32/ebp +<span id="L35671" class="LineNr">35671 </span> 5d/pop-to-ebp +<span id="L35672" class="LineNr">35672 </span> c3/return +<span id="L35673" class="LineNr">35673 </span> +<span id="L35674" class="LineNr">35674 </span><span class="subxComment"># Just compare names; user-defined functions don't support overloading yet.</span> +<span id="L35675" class="LineNr">35675 </span><span class="subxFunction">mu-stmt-matches-function?</span>: <span class="subxComment"># stmt: (addr stmt1), function: (addr function) -> result/eax: boolean</span> +<span id="L35676" class="LineNr">35676 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35677" class="LineNr">35677 </span> 55/push-ebp +<span id="L35678" class="LineNr">35678 </span> 89/<- %ebp 4/r32/esp +<span id="L35679" class="LineNr">35679 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35680" class="LineNr">35680 </span> 51/push-ecx +<span id="L35681" class="LineNr">35681 </span> <span class="subxComment"># return function->name == stmt->operation</span> +<span id="L35682" class="LineNr">35682 </span> <span class="subxComment"># ecx = lookup(stmt->operation)</span> +<span id="L35683" class="LineNr">35683 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L35684" class="LineNr">35684 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Stmt1-operation Stmt1-operation => eax</span> +<span id="L35685" class="LineNr">35685 </span> 89/<- %ecx 0/r32/eax +<span id="L35686" class="LineNr">35686 </span> <span class="subxComment"># eax = lookup(function->name)</span> +<span id="L35687" class="LineNr">35687 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L35688" class="LineNr">35688 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *eax *(eax+4)) <span class="subxComment"># Function-name Function-name => eax</span> +<span id="L35689" class="LineNr">35689 </span> (<a href='105string-equal.subx.html#L15'>string-equal?</a> %eax %ecx) <span class="subxComment"># => eax</span> +<span id="L35690" class="LineNr">35690 </span><span class="Constant">$mu-stmt-matches-function?:end</span>: +<span id="L35691" class="LineNr">35691 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35692" class="LineNr">35692 </span> 59/pop-to-ecx +<span id="L35693" class="LineNr">35693 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35694" class="LineNr">35694 </span> 89/<- %esp 5/r32/ebp +<span id="L35695" class="LineNr">35695 </span> 5d/pop-to-ebp +<span id="L35696" class="LineNr">35696 </span> c3/return +<span id="L35697" class="LineNr">35697 </span> +<span id="L35698" class="LineNr">35698 </span><span class="subxComment"># Type-checking happens elsewhere. This method is for selecting between</span> +<span id="L35699" class="LineNr">35699 </span><span class="subxComment"># primitives.</span> +<span id="L35700" class="LineNr">35700 </span><span class="subxFunction">subx-type-category-match?</span>: <span class="subxComment"># a: (addr type-tree), b: (addr type-tree) -> result/eax: boolean</span> +<span id="L35701" class="LineNr">35701 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35702" class="LineNr">35702 </span> 55/push-ebp +<span id="L35703" class="LineNr">35703 </span> 89/<- %ebp 4/r32/esp +<span id="L35704" class="LineNr">35704 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35705" class="LineNr">35705 </span> 51/push-ecx +<span id="L35706" class="LineNr">35706 </span> <span class="subxComment"># var cata/ecx: int = type-category(a)</span> +<span id="L35707" class="LineNr">35707 </span> (<a href='mu.subx.html#L35723'>type-category</a> *(ebp+8)) <span class="subxComment"># => eax</span> +<span id="L35708" class="LineNr">35708 </span> 89/<- %ecx 0/r32/eax +<span id="L35709" class="LineNr">35709 </span> <span class="subxComment"># var catb/eax: int = type-category(b)</span> +<span id="L35710" class="LineNr">35710 </span> (<a href='mu.subx.html#L35723'>type-category</a> *(ebp+0xc)) <span class="subxComment"># => eax</span> +<span id="L35711" class="LineNr">35711 </span> <span class="subxComment"># return cata == catb</span> +<span id="L35712" class="LineNr">35712 </span> 39/compare %eax 1/r32/ecx +<span id="L35713" class="LineNr">35713 </span> 0f 94/set-byte-if-= %al +<span id="L35714" class="LineNr">35714 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L35715" class="LineNr">35715 </span><span class="Constant">$subx-type-category-match?:end</span>: +<span id="L35716" class="LineNr">35716 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35717" class="LineNr">35717 </span> 59/pop-to-ecx +<span id="L35718" class="LineNr">35718 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35719" class="LineNr">35719 </span> 89/<- %esp 5/r32/ebp +<span id="L35720" class="LineNr">35720 </span> 5d/pop-to-ebp +<span id="L35721" class="LineNr">35721 </span> c3/return +<span id="L35722" class="LineNr">35722 </span> +<span id="L35723" class="LineNr">35723 </span><span class="subxFunction">type-category</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: int</span> +<span id="L35724" class="LineNr">35724 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35725" class="LineNr">35725 </span> 55/push-ebp +<span id="L35726" class="LineNr">35726 </span> 89/<- %ebp 4/r32/esp +<span id="L35727" class="LineNr">35727 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35728" class="LineNr">35728 </span> 51/push-ecx +<span id="L35729" class="LineNr">35729 </span> <span class="subxComment"># var lit?/ecx: boolean = literal-type?(a)</span> +<span id="L35730" class="LineNr">35730 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> *(ebp+8) 0) <span class="subxComment"># literal => eax</span> +<span id="L35731" class="LineNr">35731 </span> 89/<- %ecx 0/r32/eax +<span id="L35732" class="LineNr">35732 </span> <span class="subxComment"># var float?/eax: int = float?(a)</span> +<span id="L35733" class="LineNr">35733 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> *(ebp+8) 0xf) <span class="subxComment"># => eax</span> +<span id="L35734" class="LineNr">35734 </span> <span class="subxComment"># set bits for lit? and float?</span> +<span id="L35735" class="LineNr">35735 </span> c1/shift 4/subop/left %ecx 1/imm8 +<span id="L35736" class="LineNr">35736 </span> 09/or %eax 1/r32/ecx +<span id="L35737" class="LineNr">35737 </span><span class="Constant">$type-category:end</span>: +<span id="L35738" class="LineNr">35738 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35739" class="LineNr">35739 </span> 59/pop-to-ecx +<span id="L35740" class="LineNr">35740 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35741" class="LineNr">35741 </span> 89/<- %esp 5/r32/ebp +<span id="L35742" class="LineNr">35742 </span> 5d/pop-to-ebp +<span id="L35743" class="LineNr">35743 </span> c3/return +<span id="L35744" class="LineNr">35744 </span> +<span id="L35745" class="LineNr">35745 </span><span class="subxFunction">simple-mu-type?</span>: <span class="subxComment"># a: (addr type-tree), n: type-id -> result/eax: boolean</span> +<span id="L35746" class="LineNr">35746 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35747" class="LineNr">35747 </span> 55/push-ebp +<span id="L35748" class="LineNr">35748 </span> 89/<- %ebp 4/r32/esp +<span id="L35749" class="LineNr">35749 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35750" class="LineNr">35750 </span> 51/push-ecx +<span id="L35751" class="LineNr">35751 </span> <span class="subxComment"># ecx = n</span> +<span id="L35752" class="LineNr">35752 </span> 8b/-> *(ebp+0xc) 1/r32/ecx +<span id="L35753" class="LineNr">35753 </span> <span class="subxComment"># return (a->value == n)</span> +<span id="L35754" class="LineNr">35754 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L35755" class="LineNr">35755 </span> 39/compare *(eax+4) 1/r32/ecx <span class="subxComment"># Type-tree-value</span> +<span id="L35756" class="LineNr">35756 </span> 0f 94/set-byte-if-= %al +<span id="L35757" class="LineNr">35757 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L35758" class="LineNr">35758 </span><span class="Constant">$simple-mu-type?:end</span>: +<span id="L35759" class="LineNr">35759 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35760" class="LineNr">35760 </span> 59/pop-to-ecx +<span id="L35761" class="LineNr">35761 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35762" class="LineNr">35762 </span> 89/<- %esp 5/r32/ebp +<span id="L35763" class="LineNr">35763 </span> 5d/pop-to-ebp +<span id="L35764" class="LineNr">35764 </span> c3/return +<span id="L35765" class="LineNr">35765 </span> +<span id="L35766" class="LineNr">35766 </span><span class="subxFunction">mu-addr-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L35767" class="LineNr">35767 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35768" class="LineNr">35768 </span> 55/push-ebp +<span id="L35769" class="LineNr">35769 </span> 89/<- %ebp 4/r32/esp +<span id="L35770" class="LineNr">35770 </span> <span class="subxComment"># eax = a</span> +<span id="L35771" class="LineNr">35771 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L35772" class="LineNr">35772 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L35773" class="LineNr">35773 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L35774" class="LineNr">35774 </span> { +<span id="L35775" class="LineNr">35775 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35776" class="LineNr">35776 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L35777" class="LineNr">35777 </span> } +<span id="L35778" class="LineNr">35778 </span> <span class="subxComment"># return (a->value == addr)</span> +<span id="L35779" class="LineNr">35779 </span> 81 7/subop/compare *(eax+4) 2/imm32/addr <span class="subxComment"># Type-tree-value</span> +<span id="L35780" class="LineNr">35780 </span> 0f 94/set-byte-if-= %al +<span id="L35781" class="LineNr">35781 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L35782" class="LineNr">35782 </span><span class="Constant">$mu-addr-type?:end</span>: +<span id="L35783" class="LineNr">35783 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35784" class="LineNr">35784 </span> 89/<- %esp 5/r32/ebp +<span id="L35785" class="LineNr">35785 </span> 5d/pop-to-ebp +<span id="L35786" class="LineNr">35786 </span> c3/return +<span id="L35787" class="LineNr">35787 </span> +<span id="L35788" class="LineNr">35788 </span><span class="subxFunction">mu-array-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L35789" class="LineNr">35789 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35790" class="LineNr">35790 </span> 55/push-ebp +<span id="L35791" class="LineNr">35791 </span> 89/<- %ebp 4/r32/esp +<span id="L35792" class="LineNr">35792 </span> <span class="subxComment"># eax = a</span> +<span id="L35793" class="LineNr">35793 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L35794" class="LineNr">35794 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L35795" class="LineNr">35795 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L35796" class="LineNr">35796 </span> { +<span id="L35797" class="LineNr">35797 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35798" class="LineNr">35798 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L35799" class="LineNr">35799 </span> } +<span id="L35800" class="LineNr">35800 </span> <span class="subxComment"># return (a->value == array)</span> +<span id="L35801" class="LineNr">35801 </span> 81 7/subop/compare *(eax+4) 3/imm32/array <span class="subxComment"># Type-tree-value</span> +<span id="L35802" class="LineNr">35802 </span> 0f 94/set-byte-if-= %al +<span id="L35803" class="LineNr">35803 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L35804" class="LineNr">35804 </span><span class="Constant">$mu-array-type?:end</span>: +<span id="L35805" class="LineNr">35805 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35806" class="LineNr">35806 </span> 89/<- %esp 5/r32/ebp +<span id="L35807" class="LineNr">35807 </span> 5d/pop-to-ebp +<span id="L35808" class="LineNr">35808 </span> c3/return +<span id="L35809" class="LineNr">35809 </span> +<span id="L35810" class="LineNr">35810 </span><span class="subxFunction">mu-string-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L35811" class="LineNr">35811 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35812" class="LineNr">35812 </span> 55/push-ebp +<span id="L35813" class="LineNr">35813 </span> 89/<- %ebp 4/r32/esp +<span id="L35814" class="LineNr">35814 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L35815" class="LineNr">35815 </span> 56/push-esi +<span id="L35816" class="LineNr">35816 </span> <span class="subxComment"># esi = a</span> +<span id="L35817" class="LineNr">35817 </span> 8b/-> *(ebp+8) 6/r32/esi +<span id="L35818" class="LineNr">35818 </span> <span class="subxComment"># if (a->is-atom?) return false</span> +<span id="L35819" class="LineNr">35819 </span> 81 7/subop/compare *esi 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L35820" class="LineNr">35820 </span> 0f 85/jump-if-!= $mu-string-type?:return-false/disp32 +<span id="L35821" class="LineNr">35821 </span> <span class="subxComment"># if a is not an addr, return false</span> +<span id="L35822" class="LineNr">35822 </span> (<a href='mu.subx.html#L35766'>mu-addr-type?</a> %esi) <span class="subxComment"># => eax</span> +<span id="L35823" class="LineNr">35823 </span> 3d/compare-eax-with 0/imm32/false +<span id="L35824" class="LineNr">35824 </span> 0f 84/jump-if-= $mu-string-type?:end/disp32 <span class="subxComment"># eax changes var</span> +<span id="L35825" class="LineNr">35825 </span> <span class="subxComment"># if a is not an array, return false</span> +<span id="L35826" class="LineNr">35826 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L35827" class="LineNr">35827 </span> (<a href='mu.subx.html#L35788'>mu-array-type?</a> %eax) <span class="subxComment"># => eax</span> +<span id="L35828" class="LineNr">35828 </span> 3d/compare-eax-with 0/imm32/false +<span id="L35829" class="LineNr">35829 </span> 74/jump-if-= $mu-string-type?:end/disp8 <span class="subxComment"># eax changes var</span> +<span id="L35830" class="LineNr">35830 </span> <span class="subxComment"># var p/eax: (addr type-tree) = payload of a</span> +<span id="L35831" class="LineNr">35831 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(esi+0xc) *(esi+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L35832" class="LineNr">35832 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+0xc) *(eax+0x10)) <span class="subxComment"># Type-tree-right Type-tree-right => eax</span> +<span id="L35833" class="LineNr">35833 </span> <span class="subxComment"># if p is an atom, return false</span> +<span id="L35834" class="LineNr">35834 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L35835" class="LineNr">35835 </span> 75/jump-if-!= $mu-string-type?:return-false/disp8 +<span id="L35836" class="LineNr">35836 </span> <span class="subxComment"># return (p == byte)</span> +<span id="L35837" class="LineNr">35837 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L35838" class="LineNr">35838 </span> (<a href='mu.subx.html#L35745'>simple-mu-type?</a> %eax 8) <span class="subxComment"># byte => eax</span> +<span id="L35839" class="LineNr">35839 </span> eb/jump $mu-string-type?:end/disp8 +<span id="L35840" class="LineNr">35840 </span><span class="Constant">$mu-string-type?:return-false</span>: +<span id="L35841" class="LineNr">35841 </span> b8/copy-to-eax 0/imm32/false +<span id="L35842" class="LineNr">35842 </span><span class="Constant">$mu-string-type?:end</span>: +<span id="L35843" class="LineNr">35843 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L35844" class="LineNr">35844 </span> 5e/pop-to-esi +<span id="L35845" class="LineNr">35845 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35846" class="LineNr">35846 </span> 89/<- %esp 5/r32/ebp +<span id="L35847" class="LineNr">35847 </span> 5d/pop-to-ebp +<span id="L35848" class="LineNr">35848 </span> c3/return +<span id="L35849" class="LineNr">35849 </span> +<span id="L35850" class="LineNr">35850 </span><span class="subxFunction">mu-stream-type?</span>: <span class="subxComment"># a: (addr type-tree) -> result/eax: boolean</span> +<span id="L35851" class="LineNr">35851 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35852" class="LineNr">35852 </span> 55/push-ebp +<span id="L35853" class="LineNr">35853 </span> 89/<- %ebp 4/r32/esp +<span id="L35854" class="LineNr">35854 </span> <span class="subxComment"># eax = a</span> +<span id="L35855" class="LineNr">35855 </span> 8b/-> *(ebp+8) 0/r32/eax +<span id="L35856" class="LineNr">35856 </span> <span class="subxComment"># if (!a->is-atom?) a = a->left</span> +<span id="L35857" class="LineNr">35857 </span> 81 7/subop/compare *eax 0/imm32/false <span class="subxComment"># Type-tree-is-atom</span> +<span id="L35858" class="LineNr">35858 </span> { +<span id="L35859" class="LineNr">35859 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L35860" class="LineNr">35860 </span> (<a href='120allocate.subx.html#L258'>lookup</a> *(eax+4) *(eax+8)) <span class="subxComment"># Type-tree-left Type-tree-left => eax</span> +<span id="L35861" class="LineNr">35861 </span> } +<span id="L35862" class="LineNr">35862 </span> <span class="subxComment"># return (a->value == stream)</span> +<span id="L35863" class="LineNr">35863 </span> 81 7/subop/compare *(eax+4) 0xb/imm32/stream <span class="subxComment"># Type-tree-value</span> +<span id="L35864" class="LineNr">35864 </span> 0f 94/set-byte-if-= %al +<span id="L35865" class="LineNr">35865 </span> 81 4/subop/and %eax 0xff/imm32 +<span id="L35866" class="LineNr">35866 </span><span class="Constant">$mu-stream-type?:end</span>: +<span id="L35867" class="LineNr">35867 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35868" class="LineNr">35868 </span> 89/<- %esp 5/r32/ebp +<span id="L35869" class="LineNr">35869 </span> 5d/pop-to-ebp +<span id="L35870" class="LineNr">35870 </span> c3/return +<span id="L35871" class="LineNr">35871 </span> +<span id="L35872" class="LineNr">35872 </span><span class="subxTest">test-emit-subx-stmt-primitive</span>: +<span id="L35873" class="LineNr">35873 </span> <span class="subxComment"># Primitive operation on a variable on the stack.</span> +<span id="L35874" class="LineNr">35874 </span> <span class="subxComment"># increment foo</span> +<span id="L35875" class="LineNr">35875 </span> <span class="subxComment"># =></span> +<span id="L35876" class="LineNr">35876 </span> <span class="subxComment"># ff 0/subop/increment *(ebp-8)</span> +<span id="L35877" class="LineNr">35877 </span> <span class="subxComment">#</span> +<span id="L35878" class="LineNr">35878 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L35879" class="LineNr">35879 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L35880" class="LineNr">35880 </span> <span class="subxComment"># type: int</span> +<span id="L35881" class="LineNr">35881 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L35882" class="LineNr">35882 </span> <span class="subxComment">#</span> +<span id="L35883" class="LineNr">35883 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L35884" class="LineNr">35884 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L35885" class="LineNr">35885 </span> <span class="subxComment"># inouts: int/mem</span> +<span id="L35886" class="LineNr">35886 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L35887" class="LineNr">35887 </span> <span class="subxComment">#</span> +<span id="L35888" class="LineNr">35888 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L35889" class="LineNr">35889 </span> 55/push-ebp +<span id="L35890" class="LineNr">35890 </span> 89/<- %ebp 4/r32/esp +<span id="L35891" class="LineNr">35891 </span> <span class="subxComment"># setup</span> +<span id="L35892" class="LineNr">35892 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L35893" class="LineNr">35893 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L35894" class="LineNr">35894 </span> <span class="subxComment"># simulate allocated payloads starting with an initial fake alloc-id (0x11)</span> +<span id="L35895" class="LineNr">35895 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-type</span>: +<span id="L35896" class="LineNr">35896 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L35897" class="LineNr">35897 </span> 68/push 0/imm32/right:null +<span id="L35898" class="LineNr">35898 </span> 68/push 0/imm32/right:null +<span id="L35899" class="LineNr">35899 </span> 68/push 0/imm32/left:unused +<span id="L35900" class="LineNr">35900 </span> 68/push 1/imm32/value:int +<span id="L35901" class="LineNr">35901 </span> 68/push 1/imm32/is-atom?:true +<span id="L35902" class="LineNr">35902 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35903" class="LineNr">35903 </span> 89/<- %ecx 4/r32/esp +<span id="L35904" class="LineNr">35904 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var</span>: +<span id="L35905" class="LineNr">35905 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L35906" class="LineNr">35906 </span> 68/push 0/imm32/no-register +<span id="L35907" class="LineNr">35907 </span> 68/push 0/imm32/no-register +<span id="L35908" class="LineNr">35908 </span> 68/push -8/imm32/stack-offset +<span id="L35909" class="LineNr">35909 </span> 68/push 1/imm32/block-depth +<span id="L35910" class="LineNr">35910 </span> 51/push-ecx/type +<span id="L35911" class="LineNr">35911 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35912" class="LineNr">35912 </span> 68/push 0/imm32/name +<span id="L35913" class="LineNr">35913 </span> 68/push 0/imm32/name +<span id="L35914" class="LineNr">35914 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35915" class="LineNr">35915 </span> 89/<- %ecx 4/r32/esp +<span id="L35916" class="LineNr">35916 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-var-name</span>: +<span id="L35917" class="LineNr">35917 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L35918" class="LineNr">35918 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L35919" class="LineNr">35919 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L35920" class="LineNr">35920 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-var</span>: +<span id="L35921" class="LineNr">35921 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L35922" class="LineNr">35922 </span> 68/push 0/imm32/is-deref:false +<span id="L35923" class="LineNr">35923 </span> 68/push 0/imm32/next +<span id="L35924" class="LineNr">35924 </span> 68/push 0/imm32/next +<span id="L35925" class="LineNr">35925 </span> 51/push-ecx/var-foo +<span id="L35926" class="LineNr">35926 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35927" class="LineNr">35927 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L35928" class="LineNr">35928 </span> 89/<- %ebx 4/r32/esp +<span id="L35929" class="LineNr">35929 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt</span>: +<span id="L35930" class="LineNr">35930 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L35931" class="LineNr">35931 </span> 68/push 0/imm32/no-outputs +<span id="L35932" class="LineNr">35932 </span> 68/push 0/imm32/no-outputs +<span id="L35933" class="LineNr">35933 </span> 53/push-ebx/inouts +<span id="L35934" class="LineNr">35934 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35935" class="LineNr">35935 </span> 68/push 0/imm32/operation +<span id="L35936" class="LineNr">35936 </span> 68/push 0/imm32/operation +<span id="L35937" class="LineNr">35937 </span> 68/push 1/imm32/tag +<span id="L35938" class="LineNr">35938 </span> 89/<- %esi 4/r32/esp +<span id="L35939" class="LineNr">35939 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-stmt-operation</span>: +<span id="L35940" class="LineNr">35940 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L35941" class="LineNr">35941 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L35942" class="LineNr">35942 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L35943" class="LineNr">35943 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive</span>: +<span id="L35944" class="LineNr">35944 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L35945" class="LineNr">35945 </span> 68/push 0/imm32/next +<span id="L35946" class="LineNr">35946 </span> 68/push 0/imm32/next +<span id="L35947" class="LineNr">35947 </span> 68/push 0/imm32/no-x32 +<span id="L35948" class="LineNr">35948 </span> 68/push 0/imm32/no-xm32 +<span id="L35949" class="LineNr">35949 </span> 68/push 0/imm32/no-disp32 +<span id="L35950" class="LineNr">35950 </span> 68/push 0/imm32/no-imm8 +<span id="L35951" class="LineNr">35951 </span> 68/push 0/imm32/no-imm32 +<span id="L35952" class="LineNr">35952 </span> 68/push 0/imm32/no-r32 +<span id="L35953" class="LineNr">35953 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L35954" class="LineNr">35954 </span> 68/push 0/imm32/subx-name +<span id="L35955" class="LineNr">35955 </span> 68/push 0/imm32/subx-name +<span id="L35956" class="LineNr">35956 </span> 68/push 0/imm32/no-outputs +<span id="L35957" class="LineNr">35957 </span> 68/push 0/imm32/no-outputs +<span id="L35958" class="LineNr">35958 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L35959" class="LineNr">35959 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L35960" class="LineNr">35960 </span> 68/push 0/imm32/name +<span id="L35961" class="LineNr">35961 </span> 68/push 0/imm32/name +<span id="L35962" class="LineNr">35962 </span> 89/<- %ebx 4/r32/esp +<span id="L35963" class="LineNr">35963 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-name</span>: +<span id="L35964" class="LineNr">35964 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L35965" class="LineNr">35965 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L35966" class="LineNr">35966 </span><span class="Constant">$test-emit-subx-stmt-primitive:initialize-primitive-subx-name</span>: +<span id="L35967" class="LineNr">35967 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L35968" class="LineNr">35968 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L35969" class="LineNr">35969 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L35970" class="LineNr">35970 </span> <span class="subxComment"># convert</span> +<span id="L35971" class="LineNr">35971 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L35972" class="LineNr">35972 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L35973" class="LineNr">35973 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L35974" class="Folded">35974 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L35980" class="LineNr">35980 </span> <span class="subxComment"># check output</span> +<span id="L35981" class="LineNr">35981 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment *(ebp+0xfffffff8)"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive"</span>) +<span id="L35982" class="LineNr">35982 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L35983" class="LineNr">35983 </span> 89/<- %esp 5/r32/ebp +<span id="L35984" class="LineNr">35984 </span> 5d/pop-to-ebp +<span id="L35985" class="LineNr">35985 </span> c3/return +<span id="L35986" class="LineNr">35986 </span> +<span id="L35987" class="LineNr">35987 </span><span class="subxTest">test-emit-subx-stmt-primitive-register</span>: +<span id="L35988" class="LineNr">35988 </span> <span class="subxComment"># Primitive operation on a variable in a register.</span> +<span id="L35989" class="LineNr">35989 </span> <span class="subxComment"># foo <- increment</span> +<span id="L35990" class="LineNr">35990 </span> <span class="subxComment"># =></span> +<span id="L35991" class="LineNr">35991 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L35992" class="LineNr">35992 </span> <span class="subxComment">#</span> +<span id="L35993" class="LineNr">35993 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L35994" class="LineNr">35994 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L35995" class="LineNr">35995 </span> <span class="subxComment"># type: int</span> +<span id="L35996" class="LineNr">35996 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L35997" class="LineNr">35997 </span> <span class="subxComment">#</span> +<span id="L35998" class="LineNr">35998 </span> <span class="subxComment"># There's a primitive with this info:</span> +<span id="L35999" class="LineNr">35999 </span> <span class="subxComment"># name: 'increment'</span> +<span id="L36000" class="LineNr">36000 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36001" class="LineNr">36001 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36002" class="LineNr">36002 </span> <span class="subxComment">#</span> +<span id="L36003" class="LineNr">36003 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36004" class="LineNr">36004 </span> 55/push-ebp +<span id="L36005" class="LineNr">36005 </span> 89/<- %ebp 4/r32/esp +<span id="L36006" class="LineNr">36006 </span> <span class="subxComment"># setup</span> +<span id="L36007" class="LineNr">36007 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36008" class="LineNr">36008 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36009" class="LineNr">36009 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-type</span>: +<span id="L36010" class="LineNr">36010 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36011" class="LineNr">36011 </span> 68/push 0/imm32/right:null +<span id="L36012" class="LineNr">36012 </span> 68/push 0/imm32/right:null +<span id="L36013" class="LineNr">36013 </span> 68/push 0/imm32/left:unused +<span id="L36014" class="LineNr">36014 </span> 68/push 1/imm32/value:int +<span id="L36015" class="LineNr">36015 </span> 68/push 1/imm32/is-atom?:true +<span id="L36016" class="LineNr">36016 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36017" class="LineNr">36017 </span> 89/<- %ecx 4/r32/esp +<span id="L36018" class="LineNr">36018 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var</span>: +<span id="L36019" class="LineNr">36019 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36020" class="LineNr">36020 </span> 68/push 0/imm32/register +<span id="L36021" class="LineNr">36021 </span> 68/push 0/imm32/register +<span id="L36022" class="LineNr">36022 </span> 68/push 0/imm32/no-stack-offset +<span id="L36023" class="LineNr">36023 </span> 68/push 1/imm32/block-depth +<span id="L36024" class="LineNr">36024 </span> 51/push-ecx +<span id="L36025" class="LineNr">36025 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36026" class="LineNr">36026 </span> 68/push 0/imm32/name +<span id="L36027" class="LineNr">36027 </span> 68/push 0/imm32/name +<span id="L36028" class="LineNr">36028 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36029" class="LineNr">36029 </span> 89/<- %ecx 4/r32/esp +<span id="L36030" class="LineNr">36030 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-name</span>: +<span id="L36031" class="LineNr">36031 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36032" class="LineNr">36032 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36033" class="LineNr">36033 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36034" class="LineNr">36034 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-register</span>: +<span id="L36035" class="LineNr">36035 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36036" class="LineNr">36036 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36037" class="LineNr">36037 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36038" class="LineNr">36038 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-var</span>: +<span id="L36039" class="LineNr">36039 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36040" class="LineNr">36040 </span> 68/push 0/imm32/is-deref:false +<span id="L36041" class="LineNr">36041 </span> 68/push 0/imm32/next +<span id="L36042" class="LineNr">36042 </span> 68/push 0/imm32/next +<span id="L36043" class="LineNr">36043 </span> 51/push-ecx/var-foo +<span id="L36044" class="LineNr">36044 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36045" class="LineNr">36045 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36046" class="LineNr">36046 </span> 89/<- %ebx 4/r32/esp +<span id="L36047" class="LineNr">36047 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt</span>: +<span id="L36048" class="LineNr">36048 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36049" class="LineNr">36049 </span> 53/push-ebx/outputs +<span id="L36050" class="LineNr">36050 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36051" class="LineNr">36051 </span> 68/push 0/imm32/no-inouts +<span id="L36052" class="LineNr">36052 </span> 68/push 0/imm32/no-inouts +<span id="L36053" class="LineNr">36053 </span> 68/push 0/imm32/operation +<span id="L36054" class="LineNr">36054 </span> 68/push 0/imm32/operation +<span id="L36055" class="LineNr">36055 </span> 68/push 1/imm32 +<span id="L36056" class="LineNr">36056 </span> 89/<- %esi 4/r32/esp +<span id="L36057" class="LineNr">36057 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-stmt-operation</span>: +<span id="L36058" class="LineNr">36058 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36059" class="LineNr">36059 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36060" class="LineNr">36060 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36061" class="LineNr">36061 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var</span>: +<span id="L36062" class="LineNr">36062 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36063" class="LineNr">36063 </span> 68/push 0/imm32/register +<span id="L36064" class="LineNr">36064 </span> 68/push 0/imm32/register +<span id="L36065" class="LineNr">36065 </span> 68/push 0/imm32/no-stack-offset +<span id="L36066" class="LineNr">36066 </span> 68/push 1/imm32/block-depth +<span id="L36067" class="LineNr">36067 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L36068" class="LineNr">36068 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36069" class="LineNr">36069 </span> 68/push 0/imm32/name +<span id="L36070" class="LineNr">36070 </span> 68/push 0/imm32/name +<span id="L36071" class="LineNr">36071 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36072" class="LineNr">36072 </span> 89/<- %ebx 4/r32/esp +<span id="L36073" class="LineNr">36073 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-var-name</span>: +<span id="L36074" class="LineNr">36074 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L36075" class="LineNr">36075 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36076" class="LineNr">36076 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L36077" class="LineNr">36077 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-formal-register</span>: +<span id="L36078" class="LineNr">36078 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L36079" class="LineNr">36079 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36080" class="LineNr">36080 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L36081" class="LineNr">36081 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-var-list</span>: +<span id="L36082" class="LineNr">36082 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L36083" class="LineNr">36083 </span> 68/push 0/imm32/next +<span id="L36084" class="LineNr">36084 </span> 68/push 0/imm32/next +<span id="L36085" class="LineNr">36085 </span> 53/push-ebx/formal-var +<span id="L36086" class="LineNr">36086 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36087" class="LineNr">36087 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36088" class="LineNr">36088 </span> 89/<- %ebx 4/r32/esp +<span id="L36089" class="LineNr">36089 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive</span>: +<span id="L36090" class="LineNr">36090 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36091" class="LineNr">36091 </span> 68/push 0/imm32/next +<span id="L36092" class="LineNr">36092 </span> 68/push 0/imm32/next +<span id="L36093" class="LineNr">36093 </span> 68/push 0/imm32/no-x32 +<span id="L36094" class="LineNr">36094 </span> 68/push 0/imm32/no-xm32 +<span id="L36095" class="LineNr">36095 </span> 68/push 0/imm32/no-disp32 +<span id="L36096" class="LineNr">36096 </span> 68/push 0/imm32/no-imm8 +<span id="L36097" class="LineNr">36097 </span> 68/push 0/imm32/no-imm32 +<span id="L36098" class="LineNr">36098 </span> 68/push 0/imm32/no-r32 +<span id="L36099" class="LineNr">36099 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L36100" class="LineNr">36100 </span> 68/push 0/imm32/subx-name +<span id="L36101" class="LineNr">36101 </span> 68/push 0/imm32/subx-name +<span id="L36102" class="LineNr">36102 </span> 53/push-ebx/outputs +<span id="L36103" class="LineNr">36103 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36104" class="LineNr">36104 </span> 68/push 0/imm32/no-inouts +<span id="L36105" class="LineNr">36105 </span> 68/push 0/imm32/no-inouts +<span id="L36106" class="LineNr">36106 </span> 68/push 0/imm32/name +<span id="L36107" class="LineNr">36107 </span> 68/push 0/imm32/name +<span id="L36108" class="LineNr">36108 </span> 89/<- %ebx 4/r32/esp +<span id="L36109" class="LineNr">36109 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-name</span>: +<span id="L36110" class="LineNr">36110 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36111" class="LineNr">36111 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L36112" class="LineNr">36112 </span><span class="Constant">$test-emit-subx-stmt-primitive-register:initialize-primitive-subx-name</span>: +<span id="L36113" class="LineNr">36113 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36114" class="LineNr">36114 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36115" class="LineNr">36115 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36116" class="LineNr">36116 </span> <span class="subxComment"># convert</span> +<span id="L36117" class="LineNr">36117 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L36118" class="LineNr">36118 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36119" class="LineNr">36119 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36120" class="Folded">36120 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36126" class="LineNr">36126 </span> <span class="subxComment"># check output</span> +<span id="L36127" class="LineNr">36127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-primitive-register"</span>) +<span id="L36128" class="LineNr">36128 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36129" class="LineNr">36129 </span> 89/<- %esp 5/r32/ebp +<span id="L36130" class="LineNr">36130 </span> 5d/pop-to-ebp +<span id="L36131" class="LineNr">36131 </span> c3/return +<span id="L36132" class="LineNr">36132 </span> +<span id="L36133" class="LineNr">36133 </span><span class="subxTest">test-emit-subx-stmt-select-primitive</span>: +<span id="L36134" class="LineNr">36134 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L36135" class="LineNr">36135 </span> <span class="subxComment"># foo <- increment</span> +<span id="L36136" class="LineNr">36136 </span> <span class="subxComment"># =></span> +<span id="L36137" class="LineNr">36137 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L36138" class="LineNr">36138 </span> <span class="subxComment">#</span> +<span id="L36139" class="LineNr">36139 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36140" class="LineNr">36140 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36141" class="LineNr">36141 </span> <span class="subxComment"># type: int</span> +<span id="L36142" class="LineNr">36142 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36143" class="LineNr">36143 </span> <span class="subxComment">#</span> +<span id="L36144" class="LineNr">36144 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L36145" class="LineNr">36145 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36146" class="LineNr">36146 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36147" class="LineNr">36147 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36148" class="LineNr">36148 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36149" class="LineNr">36149 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L36150" class="LineNr">36150 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36151" class="LineNr">36151 </span> <span class="subxComment">#</span> +<span id="L36152" class="LineNr">36152 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36153" class="LineNr">36153 </span> 55/push-ebp +<span id="L36154" class="LineNr">36154 </span> 89/<- %ebp 4/r32/esp +<span id="L36155" class="LineNr">36155 </span> <span class="subxComment"># setup</span> +<span id="L36156" class="LineNr">36156 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36157" class="LineNr">36157 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36158" class="LineNr">36158 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-type</span>: +<span id="L36159" class="LineNr">36159 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36160" class="LineNr">36160 </span> 68/push 0/imm32/right:null +<span id="L36161" class="LineNr">36161 </span> 68/push 0/imm32/right:null +<span id="L36162" class="LineNr">36162 </span> 68/push 0/imm32/left:unused +<span id="L36163" class="LineNr">36163 </span> 68/push 1/imm32/value:int +<span id="L36164" class="LineNr">36164 </span> 68/push 1/imm32/is-atom?:true +<span id="L36165" class="LineNr">36165 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36166" class="LineNr">36166 </span> 89/<- %ecx 4/r32/esp +<span id="L36167" class="LineNr">36167 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var</span>: +<span id="L36168" class="LineNr">36168 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36169" class="LineNr">36169 </span> 68/push 0/imm32/register +<span id="L36170" class="LineNr">36170 </span> 68/push 0/imm32/register +<span id="L36171" class="LineNr">36171 </span> 68/push 0/imm32/no-stack-offset +<span id="L36172" class="LineNr">36172 </span> 68/push 1/imm32/block-depth +<span id="L36173" class="LineNr">36173 </span> 51/push-ecx +<span id="L36174" class="LineNr">36174 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36175" class="LineNr">36175 </span> 68/push 0/imm32/name +<span id="L36176" class="LineNr">36176 </span> 68/push 0/imm32/name +<span id="L36177" class="LineNr">36177 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36178" class="LineNr">36178 </span> 89/<- %ecx 4/r32/esp +<span id="L36179" class="LineNr">36179 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-name</span>: +<span id="L36180" class="LineNr">36180 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36181" class="LineNr">36181 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36182" class="LineNr">36182 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36183" class="LineNr">36183 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-register</span>: +<span id="L36184" class="LineNr">36184 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36185" class="LineNr">36185 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36186" class="LineNr">36186 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36187" class="LineNr">36187 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-var</span>: +<span id="L36188" class="LineNr">36188 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36189" class="LineNr">36189 </span> 68/push 0/imm32/is-deref:false +<span id="L36190" class="LineNr">36190 </span> 68/push 0/imm32/next +<span id="L36191" class="LineNr">36191 </span> 68/push 0/imm32/next +<span id="L36192" class="LineNr">36192 </span> 51/push-ecx/var-foo +<span id="L36193" class="LineNr">36193 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36194" class="LineNr">36194 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36195" class="LineNr">36195 </span> 89/<- %ebx 4/r32/esp +<span id="L36196" class="LineNr">36196 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt</span>: +<span id="L36197" class="LineNr">36197 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36198" class="LineNr">36198 </span> 53/push-ebx/outputs +<span id="L36199" class="LineNr">36199 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36200" class="LineNr">36200 </span> 68/push 0/imm32/no-inouts +<span id="L36201" class="LineNr">36201 </span> 68/push 0/imm32/no-inouts +<span id="L36202" class="LineNr">36202 </span> 68/push 0/imm32/operation +<span id="L36203" class="LineNr">36203 </span> 68/push 0/imm32/operation +<span id="L36204" class="LineNr">36204 </span> 68/push 1/imm32 +<span id="L36205" class="LineNr">36205 </span> 89/<- %esi 4/r32/esp +<span id="L36206" class="LineNr">36206 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-stmt-operation</span>: +<span id="L36207" class="LineNr">36207 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36208" class="LineNr">36208 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36209" class="LineNr">36209 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36210" class="LineNr">36210 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var</span>: +<span id="L36211" class="LineNr">36211 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36212" class="LineNr">36212 </span> 68/push 0/imm32/register +<span id="L36213" class="LineNr">36213 </span> 68/push 0/imm32/register +<span id="L36214" class="LineNr">36214 </span> 68/push 0/imm32/no-stack-offset +<span id="L36215" class="LineNr">36215 </span> 68/push 1/imm32/block-depth +<span id="L36216" class="LineNr">36216 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L36217" class="LineNr">36217 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36218" class="LineNr">36218 </span> 68/push 0/imm32/name +<span id="L36219" class="LineNr">36219 </span> 68/push 0/imm32/name +<span id="L36220" class="LineNr">36220 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36221" class="LineNr">36221 </span> 89/<- %ebx 4/r32/esp +<span id="L36222" class="LineNr">36222 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-var-name</span>: +<span id="L36223" class="LineNr">36223 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L36224" class="LineNr">36224 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36225" class="LineNr">36225 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L36226" class="LineNr">36226 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-formal-register</span>: +<span id="L36227" class="LineNr">36227 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L36228" class="LineNr">36228 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36229" class="LineNr">36229 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L36230" class="LineNr">36230 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-var-list</span>: +<span id="L36231" class="LineNr">36231 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list var)</span> +<span id="L36232" class="LineNr">36232 </span> 68/push 0/imm32/next +<span id="L36233" class="LineNr">36233 </span> 68/push 0/imm32/next +<span id="L36234" class="LineNr">36234 </span> 53/push-ebx/formal-var +<span id="L36235" class="LineNr">36235 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36236" class="LineNr">36236 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36237" class="LineNr">36237 </span> 89/<- %ebx 4/r32/esp +<span id="L36238" class="LineNr">36238 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2</span>: +<span id="L36239" class="LineNr">36239 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L36240" class="LineNr">36240 </span> 68/push 0/imm32/next +<span id="L36241" class="LineNr">36241 </span> 68/push 0/imm32/next +<span id="L36242" class="LineNr">36242 </span> 68/push 0/imm32/no-x32 +<span id="L36243" class="LineNr">36243 </span> 68/push 0/imm32/no-xm32 +<span id="L36244" class="LineNr">36244 </span> 68/push 0/imm32/no-disp32 +<span id="L36245" class="LineNr">36245 </span> 68/push 0/imm32/no-imm8 +<span id="L36246" class="LineNr">36246 </span> 68/push 0/imm32/no-imm32 +<span id="L36247" class="LineNr">36247 </span> 68/push 0/imm32/no-r32 +<span id="L36248" class="LineNr">36248 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L36249" class="LineNr">36249 </span> 68/push 0/imm32/subx-name +<span id="L36250" class="LineNr">36250 </span> 68/push 0/imm32/subx-name +<span id="L36251" class="LineNr">36251 </span> 53/push-ebx/outputs +<span id="L36252" class="LineNr">36252 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36253" class="LineNr">36253 </span> 68/push 0/imm32/no-inouts +<span id="L36254" class="LineNr">36254 </span> 68/push 0/imm32/no-inouts +<span id="L36255" class="LineNr">36255 </span> 68/push 0/imm32/name +<span id="L36256" class="LineNr">36256 </span> 68/push 0/imm32/name +<span id="L36257" class="LineNr">36257 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36258" class="LineNr">36258 </span> 89/<- %edi 4/r32/esp +<span id="L36259" class="LineNr">36259 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-name</span>: +<span id="L36260" class="LineNr">36260 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36261" class="LineNr">36261 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L36262" class="LineNr">36262 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36263" class="LineNr">36263 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive2-subx-name</span>: +<span id="L36264" class="LineNr">36264 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36265" class="LineNr">36265 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L36266" class="LineNr">36266 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36267" class="LineNr">36267 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive</span>: +<span id="L36268" class="LineNr">36268 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36269" class="LineNr">36269 </span> 57/push-edi +<span id="L36270" class="LineNr">36270 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36271" class="LineNr">36271 </span> 68/push 0/imm32/no-x32 +<span id="L36272" class="LineNr">36272 </span> 68/push 0/imm32/no-xm32 +<span id="L36273" class="LineNr">36273 </span> 68/push 0/imm32/no-disp32 +<span id="L36274" class="LineNr">36274 </span> 68/push 0/imm32/no-imm8 +<span id="L36275" class="LineNr">36275 </span> 68/push 0/imm32/no-imm32 +<span id="L36276" class="LineNr">36276 </span> 68/push 0/imm32/no-r32 +<span id="L36277" class="LineNr">36277 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L36278" class="LineNr">36278 </span> 68/push 0/imm32/subx-name +<span id="L36279" class="LineNr">36279 </span> 68/push 0/imm32/subx-name +<span id="L36280" class="LineNr">36280 </span> 68/push 0/imm32/no-outputs +<span id="L36281" class="LineNr">36281 </span> 68/push 0/imm32/no-outputs +<span id="L36282" class="LineNr">36282 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L36283" class="LineNr">36283 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36284" class="LineNr">36284 </span> 68/push 0/imm32/name +<span id="L36285" class="LineNr">36285 </span> 68/push 0/imm32/name +<span id="L36286" class="LineNr">36286 </span> 89/<- %ebx 4/r32/esp +<span id="L36287" class="LineNr">36287 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-name</span>: +<span id="L36288" class="LineNr">36288 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36289" class="LineNr">36289 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L36290" class="LineNr">36290 </span><span class="Constant">$test-emit-subx-stmt-select-primitive:initialize-primitive-subx-name</span>: +<span id="L36291" class="LineNr">36291 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36292" class="LineNr">36292 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36293" class="LineNr">36293 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36294" class="LineNr">36294 </span> <span class="subxComment"># convert</span> +<span id="L36295" class="LineNr">36295 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L36296" class="LineNr">36296 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36297" class="LineNr">36297 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36298" class="Folded">36298 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36304" class="LineNr">36304 </span> <span class="subxComment"># check output</span> +<span id="L36305" class="LineNr">36305 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive"</span>) +<span id="L36306" class="LineNr">36306 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36307" class="LineNr">36307 </span> 89/<- %esp 5/r32/ebp +<span id="L36308" class="LineNr">36308 </span> 5d/pop-to-ebp +<span id="L36309" class="LineNr">36309 </span> c3/return +<span id="L36310" class="LineNr">36310 </span> +<span id="L36311" class="LineNr">36311 </span><span class="subxTest">test-emit-subx-stmt-select-primitive-2</span>: +<span id="L36312" class="LineNr">36312 </span> <span class="subxComment"># Select the right primitive between overloads.</span> +<span id="L36313" class="LineNr">36313 </span> <span class="subxComment"># increment foo</span> +<span id="L36314" class="LineNr">36314 </span> <span class="subxComment"># =></span> +<span id="L36315" class="LineNr">36315 </span> <span class="subxComment"># ff 0/subop/increment %eax # sub-optimal, but should suffice</span> +<span id="L36316" class="LineNr">36316 </span> <span class="subxComment">#</span> +<span id="L36317" class="LineNr">36317 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36318" class="LineNr">36318 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36319" class="LineNr">36319 </span> <span class="subxComment"># type: int</span> +<span id="L36320" class="LineNr">36320 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36321" class="LineNr">36321 </span> <span class="subxComment">#</span> +<span id="L36322" class="LineNr">36322 </span> <span class="subxComment"># There's two primitives, as follows:</span> +<span id="L36323" class="LineNr">36323 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36324" class="LineNr">36324 </span> <span class="subxComment"># out: int/reg</span> +<span id="L36325" class="LineNr">36325 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36326" class="LineNr">36326 </span> <span class="subxComment"># - name: 'increment'</span> +<span id="L36327" class="LineNr">36327 </span> <span class="subxComment"># inout: int/mem</span> +<span id="L36328" class="LineNr">36328 </span> <span class="subxComment"># value: 'ff 0/subop/increment'</span> +<span id="L36329" class="LineNr">36329 </span> <span class="subxComment">#</span> +<span id="L36330" class="LineNr">36330 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36331" class="LineNr">36331 </span> 55/push-ebp +<span id="L36332" class="LineNr">36332 </span> 89/<- %ebp 4/r32/esp +<span id="L36333" class="LineNr">36333 </span> <span class="subxComment"># setup</span> +<span id="L36334" class="LineNr">36334 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36335" class="LineNr">36335 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36336" class="LineNr">36336 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-type</span>: +<span id="L36337" class="LineNr">36337 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36338" class="LineNr">36338 </span> 68/push 0/imm32/right:null +<span id="L36339" class="LineNr">36339 </span> 68/push 0/imm32/right:null +<span id="L36340" class="LineNr">36340 </span> 68/push 0/imm32/left:unused +<span id="L36341" class="LineNr">36341 </span> 68/push 1/imm32/value:int +<span id="L36342" class="LineNr">36342 </span> 68/push 1/imm32/is-atom?:true +<span id="L36343" class="LineNr">36343 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36344" class="LineNr">36344 </span> 89/<- %ecx 4/r32/esp +<span id="L36345" class="LineNr">36345 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var</span>: +<span id="L36346" class="LineNr">36346 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36347" class="LineNr">36347 </span> 68/push 0/imm32/register +<span id="L36348" class="LineNr">36348 </span> 68/push 0/imm32/register +<span id="L36349" class="LineNr">36349 </span> 68/push 0/imm32/no-stack-offset +<span id="L36350" class="LineNr">36350 </span> 68/push 1/imm32/block-depth +<span id="L36351" class="LineNr">36351 </span> 51/push-ecx +<span id="L36352" class="LineNr">36352 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36353" class="LineNr">36353 </span> 68/push 0/imm32/name +<span id="L36354" class="LineNr">36354 </span> 68/push 0/imm32/name +<span id="L36355" class="LineNr">36355 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36356" class="LineNr">36356 </span> 89/<- %ecx 4/r32/esp +<span id="L36357" class="LineNr">36357 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-name</span>: +<span id="L36358" class="LineNr">36358 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36359" class="LineNr">36359 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36360" class="LineNr">36360 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36361" class="LineNr">36361 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-register</span>: +<span id="L36362" class="LineNr">36362 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36363" class="LineNr">36363 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36364" class="LineNr">36364 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36365" class="LineNr">36365 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-var</span>: +<span id="L36366" class="LineNr">36366 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36367" class="LineNr">36367 </span> 68/push 0/imm32/is-deref:false +<span id="L36368" class="LineNr">36368 </span> 68/push 0/imm32/next +<span id="L36369" class="LineNr">36369 </span> 68/push 0/imm32/next +<span id="L36370" class="LineNr">36370 </span> 51/push-ecx/var-foo +<span id="L36371" class="LineNr">36371 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36372" class="LineNr">36372 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36373" class="LineNr">36373 </span> 89/<- %ebx 4/r32/esp +<span id="L36374" class="LineNr">36374 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt</span>: +<span id="L36375" class="LineNr">36375 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36376" class="LineNr">36376 </span> 68/push 0/imm32/no-outputs +<span id="L36377" class="LineNr">36377 </span> 68/push 0/imm32/no-outputs +<span id="L36378" class="LineNr">36378 </span> 53/push-ebx/inouts +<span id="L36379" class="LineNr">36379 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36380" class="LineNr">36380 </span> 68/push 0/imm32/operation +<span id="L36381" class="LineNr">36381 </span> 68/push 0/imm32/operation +<span id="L36382" class="LineNr">36382 </span> 68/push 1/imm32 +<span id="L36383" class="LineNr">36383 </span> 89/<- %esi 4/r32/esp +<span id="L36384" class="LineNr">36384 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-stmt-operation</span>: +<span id="L36385" class="LineNr">36385 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36386" class="LineNr">36386 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36387" class="LineNr">36387 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36388" class="LineNr">36388 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var</span>: +<span id="L36389" class="LineNr">36389 </span> <span class="subxComment"># var formal-var/ebx: (payload var)</span> +<span id="L36390" class="LineNr">36390 </span> 68/push 0/imm32/register +<span id="L36391" class="LineNr">36391 </span> 68/push 0/imm32/register +<span id="L36392" class="LineNr">36392 </span> 68/push 0/imm32/no-stack-offset +<span id="L36393" class="LineNr">36393 </span> 68/push 1/imm32/block-depth +<span id="L36394" class="LineNr">36394 </span> ff 6/subop/push *(ecx+0x10) <span class="subxComment"># Var-type + payload alloc id + handle alloc id</span> +<span id="L36395" class="LineNr">36395 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36396" class="LineNr">36396 </span> 68/push 0/imm32/name +<span id="L36397" class="LineNr">36397 </span> 68/push 0/imm32/name +<span id="L36398" class="LineNr">36398 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36399" class="LineNr">36399 </span> 89/<- %ebx 4/r32/esp +<span id="L36400" class="LineNr">36400 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-var-name</span>: +<span id="L36401" class="LineNr">36401 </span> <span class="subxComment"># formal-var->name = "dummy"</span> +<span id="L36402" class="LineNr">36402 </span> 8d/copy-address *(ebx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36403" class="LineNr">36403 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"dummy"</span> %eax) +<span id="L36404" class="LineNr">36404 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-formal-register</span>: +<span id="L36405" class="LineNr">36405 </span> <span class="subxComment"># formal-var->register = "*"</span> +<span id="L36406" class="LineNr">36406 </span> 8d/copy-address *(ebx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36407" class="LineNr">36407 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"*"</span> %eax) <span class="subxComment"># Any-register</span> +<span id="L36408" class="LineNr">36408 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-var-list</span>: +<span id="L36409" class="LineNr">36409 </span> <span class="subxComment"># var formal-outputs/ebx: (payload list stmt-var)</span> +<span id="L36410" class="LineNr">36410 </span> 68/push 0/imm32/next +<span id="L36411" class="LineNr">36411 </span> 68/push 0/imm32/next +<span id="L36412" class="LineNr">36412 </span> 53/push-ebx/formal-var +<span id="L36413" class="LineNr">36413 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36414" class="LineNr">36414 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36415" class="LineNr">36415 </span> 89/<- %ebx 4/r32/esp +<span id="L36416" class="LineNr">36416 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2</span>: +<span id="L36417" class="LineNr">36417 </span> <span class="subxComment"># var primitive2/edi: (payload primitive)</span> +<span id="L36418" class="LineNr">36418 </span> 68/push 0/imm32/next +<span id="L36419" class="LineNr">36419 </span> 68/push 0/imm32/next +<span id="L36420" class="LineNr">36420 </span> 68/push 0/imm32/no-x32 +<span id="L36421" class="LineNr">36421 </span> 68/push 0/imm32/no-xm32 +<span id="L36422" class="LineNr">36422 </span> 68/push 0/imm32/no-disp32 +<span id="L36423" class="LineNr">36423 </span> 68/push 0/imm32/no-imm8 +<span id="L36424" class="LineNr">36424 </span> 68/push 0/imm32/no-imm32 +<span id="L36425" class="LineNr">36425 </span> 68/push 0/imm32/no-r32 +<span id="L36426" class="LineNr">36426 </span> 68/push 3/imm32/rm32-is-first-output +<span id="L36427" class="LineNr">36427 </span> 68/push 0/imm32/subx-name +<span id="L36428" class="LineNr">36428 </span> 68/push 0/imm32/subx-name +<span id="L36429" class="LineNr">36429 </span> 53/push-ebx/outputs +<span id="L36430" class="LineNr">36430 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36431" class="LineNr">36431 </span> 68/push 0/imm32/no-inouts +<span id="L36432" class="LineNr">36432 </span> 68/push 0/imm32/no-inouts +<span id="L36433" class="LineNr">36433 </span> 68/push 0/imm32/name +<span id="L36434" class="LineNr">36434 </span> 68/push 0/imm32/name +<span id="L36435" class="LineNr">36435 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36436" class="LineNr">36436 </span> 89/<- %edi 4/r32/esp +<span id="L36437" class="LineNr">36437 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-name</span>: +<span id="L36438" class="LineNr">36438 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36439" class="LineNr">36439 </span> 8d/copy-address *(edi+4) 0/r32/eax <span class="subxComment"># Primitive-name + 4</span> +<span id="L36440" class="LineNr">36440 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36441" class="LineNr">36441 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive2-subx-name</span>: +<span id="L36442" class="LineNr">36442 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36443" class="LineNr">36443 </span> 8d/copy-address *(edi+0x1c) 0/r32/eax <span class="subxComment"># Primitive-subx-name + 4</span> +<span id="L36444" class="LineNr">36444 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36445" class="LineNr">36445 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive</span>: +<span id="L36446" class="LineNr">36446 </span> <span class="subxComment"># var primitives/ebx: (addr primitive)</span> +<span id="L36447" class="LineNr">36447 </span> 57/push-edi +<span id="L36448" class="LineNr">36448 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36449" class="LineNr">36449 </span> 68/push 0/imm32/no-x32 +<span id="L36450" class="LineNr">36450 </span> 68/push 0/imm32/no-xm32 +<span id="L36451" class="LineNr">36451 </span> 68/push 0/imm32/no-disp32 +<span id="L36452" class="LineNr">36452 </span> 68/push 0/imm32/no-imm8 +<span id="L36453" class="LineNr">36453 </span> 68/push 0/imm32/no-imm32 +<span id="L36454" class="LineNr">36454 </span> 68/push 0/imm32/no-r32 +<span id="L36455" class="LineNr">36455 </span> 68/push 1/imm32/rm32-is-first-inout +<span id="L36456" class="LineNr">36456 </span> 68/push 0/imm32/subx-name +<span id="L36457" class="LineNr">36457 </span> 68/push 0/imm32/subx-name +<span id="L36458" class="LineNr">36458 </span> 68/push 0/imm32/no-outputs +<span id="L36459" class="LineNr">36459 </span> 68/push 0/imm32/no-outputs +<span id="L36460" class="LineNr">36460 </span> 53/push-ebx/inouts <span class="subxComment"># hack: reuse stmt-var from call stmt as (list var) in function declaration</span> +<span id="L36461" class="LineNr">36461 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36462" class="LineNr">36462 </span> 68/push 0/imm32/name +<span id="L36463" class="LineNr">36463 </span> 68/push 0/imm32/name +<span id="L36464" class="LineNr">36464 </span> 89/<- %ebx 4/r32/esp +<span id="L36465" class="LineNr">36465 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-name</span>: +<span id="L36466" class="LineNr">36466 </span> <span class="subxComment"># primitives->name = "increment"</span> +<span id="L36467" class="LineNr">36467 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %ebx) <span class="subxComment"># Primitive-name</span> +<span id="L36468" class="LineNr">36468 </span><span class="Constant">$test-emit-subx-stmt-select-primitive-2:initialize-primitive-subx-name</span>: +<span id="L36469" class="LineNr">36469 </span> <span class="subxComment"># primitives->subx-name = "ff 0/subop/increment"</span> +<span id="L36470" class="LineNr">36470 </span> 8d/copy-address *(ebx+0x18) 0/r32/eax <span class="subxComment"># Primitive-subx-name</span> +<span id="L36471" class="LineNr">36471 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ff 0/subop/increment"</span> %eax) +<span id="L36472" class="LineNr">36472 </span> <span class="subxComment"># convert</span> +<span id="L36473" class="LineNr">36473 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L36474" class="LineNr">36474 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36475" class="LineNr">36475 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36476" class="Folded">36476 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36482" class="LineNr">36482 </span> <span class="subxComment"># check output</span> +<span id="L36483" class="LineNr">36483 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"ff 0/subop/increment %eax"</span> <span class="Constant">"F - test-emit-subx-stmt-select-primitive-2"</span>) +<span id="L36484" class="LineNr">36484 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36485" class="LineNr">36485 </span> 89/<- %esp 5/r32/ebp +<span id="L36486" class="LineNr">36486 </span> 5d/pop-to-ebp +<span id="L36487" class="LineNr">36487 </span> c3/return +<span id="L36488" class="LineNr">36488 </span> +<span id="L36489" class="LineNr">36489 </span><span class="subxTest">test-increment-register</span>: +<span id="L36490" class="LineNr">36490 </span> <span class="subxComment"># Select the right register between overloads.</span> +<span id="L36491" class="LineNr">36491 </span> <span class="subxComment"># foo <- increment</span> +<span id="L36492" class="LineNr">36492 </span> <span class="subxComment"># =></span> +<span id="L36493" class="LineNr">36493 </span> <span class="subxComment"># 50/increment-eax</span> +<span id="L36494" class="LineNr">36494 </span> <span class="subxComment">#</span> +<span id="L36495" class="LineNr">36495 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L36496" class="LineNr">36496 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L36497" class="LineNr">36497 </span> <span class="subxComment"># type: int</span> +<span id="L36498" class="LineNr">36498 </span> <span class="subxComment"># register: 'eax'</span> +<span id="L36499" class="LineNr">36499 </span> <span class="subxComment">#</span> +<span id="L36500" class="LineNr">36500 </span> <span class="subxComment"># Primitives are the global definitions.</span> +<span id="L36501" class="LineNr">36501 </span> <span class="subxComment">#</span> +<span id="L36502" class="LineNr">36502 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36503" class="LineNr">36503 </span> 55/push-ebp +<span id="L36504" class="LineNr">36504 </span> 89/<- %ebp 4/r32/esp +<span id="L36505" class="LineNr">36505 </span> <span class="subxComment"># setup</span> +<span id="L36506" class="LineNr">36506 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36507" class="LineNr">36507 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36508" class="LineNr">36508 </span><span class="Constant">$test-increment-register:initialize-type</span>: +<span id="L36509" class="LineNr">36509 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36510" class="LineNr">36510 </span> 68/push 0/imm32/right:null +<span id="L36511" class="LineNr">36511 </span> 68/push 0/imm32/right:null +<span id="L36512" class="LineNr">36512 </span> 68/push 0/imm32/left:unused +<span id="L36513" class="LineNr">36513 </span> 68/push 1/imm32/value:int +<span id="L36514" class="LineNr">36514 </span> 68/push 1/imm32/is-atom?:true +<span id="L36515" class="LineNr">36515 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36516" class="LineNr">36516 </span> 89/<- %ecx 4/r32/esp +<span id="L36517" class="LineNr">36517 </span><span class="Constant">$test-increment-register:initialize-var</span>: +<span id="L36518" class="LineNr">36518 </span> <span class="subxComment"># var var-foo/ecx: (payload var)</span> +<span id="L36519" class="LineNr">36519 </span> 68/push 0/imm32/register +<span id="L36520" class="LineNr">36520 </span> 68/push 0/imm32/register +<span id="L36521" class="LineNr">36521 </span> 68/push 0/imm32/no-stack-offset +<span id="L36522" class="LineNr">36522 </span> 68/push 1/imm32/block-depth +<span id="L36523" class="LineNr">36523 </span> 51/push-ecx +<span id="L36524" class="LineNr">36524 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36525" class="LineNr">36525 </span> 68/push 0/imm32/name +<span id="L36526" class="LineNr">36526 </span> 68/push 0/imm32/name +<span id="L36527" class="LineNr">36527 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36528" class="LineNr">36528 </span> 89/<- %ecx 4/r32/esp +<span id="L36529" class="LineNr">36529 </span><span class="Constant">$test-increment-register:initialize-var-name</span>: +<span id="L36530" class="LineNr">36530 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L36531" class="LineNr">36531 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36532" class="LineNr">36532 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L36533" class="LineNr">36533 </span><span class="Constant">$test-increment-register:initialize-var-register</span>: +<span id="L36534" class="LineNr">36534 </span> <span class="subxComment"># var-foo->register = "eax"</span> +<span id="L36535" class="LineNr">36535 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36536" class="LineNr">36536 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36537" class="LineNr">36537 </span><span class="Constant">$test-increment-register:initialize-stmt-var</span>: +<span id="L36538" class="LineNr">36538 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var)</span> +<span id="L36539" class="LineNr">36539 </span> 68/push 0/imm32/is-deref:false +<span id="L36540" class="LineNr">36540 </span> 68/push 0/imm32/next +<span id="L36541" class="LineNr">36541 </span> 68/push 0/imm32/next +<span id="L36542" class="LineNr">36542 </span> 51/push-ecx/var-foo +<span id="L36543" class="LineNr">36543 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36544" class="LineNr">36544 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36545" class="LineNr">36545 </span> 89/<- %ebx 4/r32/esp +<span id="L36546" class="LineNr">36546 </span><span class="Constant">$test-increment-register:initialize-stmt</span>: +<span id="L36547" class="LineNr">36547 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36548" class="LineNr">36548 </span> 53/push-ebx/outputs +<span id="L36549" class="LineNr">36549 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36550" class="LineNr">36550 </span> 68/push 0/imm32/no-inouts +<span id="L36551" class="LineNr">36551 </span> 68/push 0/imm32/no-inouts +<span id="L36552" class="LineNr">36552 </span> 68/push 0/imm32/operation +<span id="L36553" class="LineNr">36553 </span> 68/push 0/imm32/operation +<span id="L36554" class="LineNr">36554 </span> 68/push 1/imm32 +<span id="L36555" class="LineNr">36555 </span> 89/<- %esi 4/r32/esp +<span id="L36556" class="LineNr">36556 </span><span class="Constant">$test-increment-register:initialize-stmt-operation</span>: +<span id="L36557" class="LineNr">36557 </span> <span class="subxComment"># stmt->operation = "increment"</span> +<span id="L36558" class="LineNr">36558 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36559" class="LineNr">36559 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"increment"</span> %eax) +<span id="L36560" class="LineNr">36560 </span> <span class="subxComment"># convert</span> +<span id="L36561" class="LineNr">36561 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L36562" class="LineNr">36562 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36563" class="LineNr">36563 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36564" class="Folded">36564 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36570" class="LineNr">36570 </span> <span class="subxComment"># check output</span> +<span id="L36571" class="LineNr">36571 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"40/increment-eax"</span> <span class="Constant">"F - test-increment-register"</span>) +<span id="L36572" class="LineNr">36572 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36573" class="LineNr">36573 </span> 89/<- %esp 5/r32/ebp +<span id="L36574" class="LineNr">36574 </span> 5d/pop-to-ebp +<span id="L36575" class="LineNr">36575 </span> c3/return +<span id="L36576" class="LineNr">36576 </span> +<span id="L36577" class="LineNr">36577 </span><span class="subxTest">test-add-reg-to-reg</span>: +<span id="L36578" class="LineNr">36578 </span> <span class="subxComment"># var1/reg <- add var2/reg</span> +<span id="L36579" class="LineNr">36579 </span> <span class="subxComment"># =></span> +<span id="L36580" class="LineNr">36580 </span> <span class="subxComment"># 01/add-to %var1 var2</span> +<span id="L36581" class="LineNr">36581 </span> <span class="subxComment">#</span> +<span id="L36582" class="LineNr">36582 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36583" class="LineNr">36583 </span> 55/push-ebp +<span id="L36584" class="LineNr">36584 </span> 89/<- %ebp 4/r32/esp +<span id="L36585" class="LineNr">36585 </span> <span class="subxComment"># setup</span> +<span id="L36586" class="LineNr">36586 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36587" class="LineNr">36587 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36588" class="LineNr">36588 </span><span class="Constant">$test-add-reg-to-reg:initialize-type</span>: +<span id="L36589" class="LineNr">36589 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36590" class="LineNr">36590 </span> 68/push 0/imm32/right:null +<span id="L36591" class="LineNr">36591 </span> 68/push 0/imm32/right:null +<span id="L36592" class="LineNr">36592 </span> 68/push 0/imm32/left:unused +<span id="L36593" class="LineNr">36593 </span> 68/push 1/imm32/value:int +<span id="L36594" class="LineNr">36594 </span> 68/push 1/imm32/is-atom?:true +<span id="L36595" class="LineNr">36595 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36596" class="LineNr">36596 </span> 89/<- %ecx 4/r32/esp +<span id="L36597" class="LineNr">36597 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1</span>: +<span id="L36598" class="LineNr">36598 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L36599" class="LineNr">36599 </span> 68/push 0/imm32/register +<span id="L36600" class="LineNr">36600 </span> 68/push 0/imm32/register +<span id="L36601" class="LineNr">36601 </span> 68/push 0/imm32/no-stack-offset +<span id="L36602" class="LineNr">36602 </span> 68/push 1/imm32/block-depth +<span id="L36603" class="LineNr">36603 </span> 51/push-ecx +<span id="L36604" class="LineNr">36604 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36605" class="LineNr">36605 </span> 68/push 0/imm32/name +<span id="L36606" class="LineNr">36606 </span> 68/push 0/imm32/name +<span id="L36607" class="LineNr">36607 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36608" class="LineNr">36608 </span> 89/<- %ecx 4/r32/esp +<span id="L36609" class="LineNr">36609 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-name</span>: +<span id="L36610" class="LineNr">36610 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L36611" class="LineNr">36611 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36612" class="LineNr">36612 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L36613" class="LineNr">36613 </span><span class="Constant">$test-add-reg-to-reg:initialize-var1-register</span>: +<span id="L36614" class="LineNr">36614 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L36615" class="LineNr">36615 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36616" class="LineNr">36616 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36617" class="LineNr">36617 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2</span>: +<span id="L36618" class="LineNr">36618 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L36619" class="LineNr">36619 </span> 68/push 0/imm32/register +<span id="L36620" class="LineNr">36620 </span> 68/push 0/imm32/register +<span id="L36621" class="LineNr">36621 </span> 68/push 0/imm32/no-stack-offset +<span id="L36622" class="LineNr">36622 </span> 68/push 1/imm32/block-depth +<span id="L36623" class="LineNr">36623 </span> ff 6/subop/push *(ecx+0x10) +<span id="L36624" class="LineNr">36624 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36625" class="LineNr">36625 </span> 68/push 0/imm32/name +<span id="L36626" class="LineNr">36626 </span> 68/push 0/imm32/name +<span id="L36627" class="LineNr">36627 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36628" class="LineNr">36628 </span> 89/<- %edx 4/r32/esp +<span id="L36629" class="LineNr">36629 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-name</span>: +<span id="L36630" class="LineNr">36630 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L36631" class="LineNr">36631 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36632" class="LineNr">36632 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L36633" class="LineNr">36633 </span><span class="Constant">$test-add-reg-to-reg:initialize-var2-register</span>: +<span id="L36634" class="LineNr">36634 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L36635" class="LineNr">36635 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36636" class="LineNr">36636 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L36637" class="LineNr">36637 </span><span class="Constant">$test-add-reg-to-reg:initialize-inouts</span>: +<span id="L36638" class="LineNr">36638 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L36639" class="LineNr">36639 </span> 68/push 0/imm32/is-deref:false +<span id="L36640" class="LineNr">36640 </span> 68/push 0/imm32/next +<span id="L36641" class="LineNr">36641 </span> 68/push 0/imm32/next +<span id="L36642" class="LineNr">36642 </span> 52/push-edx/var2 +<span id="L36643" class="LineNr">36643 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36644" class="LineNr">36644 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36645" class="LineNr">36645 </span> 89/<- %esi 4/r32/esp +<span id="L36646" class="LineNr">36646 </span><span class="Constant">$test-add-reg-to-reg:initialize-outputs</span>: +<span id="L36647" class="LineNr">36647 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L36648" class="LineNr">36648 </span> 68/push 0/imm32/is-deref:false +<span id="L36649" class="LineNr">36649 </span> 68/push 0/imm32/next +<span id="L36650" class="LineNr">36650 </span> 68/push 0/imm32/next +<span id="L36651" class="LineNr">36651 </span> 51/push-ecx/var1 +<span id="L36652" class="LineNr">36652 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36653" class="LineNr">36653 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36654" class="LineNr">36654 </span> 89/<- %edi 4/r32/esp +<span id="L36655" class="LineNr">36655 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt</span>: +<span id="L36656" class="LineNr">36656 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36657" class="LineNr">36657 </span> 68/push 0/imm32/next +<span id="L36658" class="LineNr">36658 </span> 68/push 0/imm32/next +<span id="L36659" class="LineNr">36659 </span> 57/push-edi/outputs +<span id="L36660" class="LineNr">36660 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36661" class="LineNr">36661 </span> 56/push-esi/inouts +<span id="L36662" class="LineNr">36662 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36663" class="LineNr">36663 </span> 68/push 0/imm32/operation +<span id="L36664" class="LineNr">36664 </span> 68/push 0/imm32/operation +<span id="L36665" class="LineNr">36665 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36666" class="LineNr">36666 </span> 89/<- %esi 4/r32/esp +<span id="L36667" class="LineNr">36667 </span><span class="Constant">$test-add-reg-to-reg:initialize-stmt-operation</span>: +<span id="L36668" class="LineNr">36668 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L36669" class="LineNr">36669 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36670" class="LineNr">36670 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L36671" class="LineNr">36671 </span> <span class="subxComment"># convert</span> +<span id="L36672" class="LineNr">36672 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L36673" class="LineNr">36673 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36674" class="LineNr">36674 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36675" class="Folded">36675 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36681" class="LineNr">36681 </span> <span class="subxComment"># check output</span> +<span id="L36682" class="LineNr">36682 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"01/add-to %eax 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-reg"</span>) +<span id="L36683" class="LineNr">36683 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36684" class="LineNr">36684 </span> 89/<- %esp 5/r32/ebp +<span id="L36685" class="LineNr">36685 </span> 5d/pop-to-ebp +<span id="L36686" class="LineNr">36686 </span> c3/return +<span id="L36687" class="LineNr">36687 </span> +<span id="L36688" class="LineNr">36688 </span><span class="subxTest">test-add-reg-to-mem</span>: +<span id="L36689" class="LineNr">36689 </span> <span class="subxComment"># add-to var1 var2/reg</span> +<span id="L36690" class="LineNr">36690 </span> <span class="subxComment"># =></span> +<span id="L36691" class="LineNr">36691 </span> <span class="subxComment"># 01/add-to *(ebp+__) var2</span> +<span id="L36692" class="LineNr">36692 </span> <span class="subxComment">#</span> +<span id="L36693" class="LineNr">36693 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36694" class="LineNr">36694 </span> 55/push-ebp +<span id="L36695" class="LineNr">36695 </span> 89/<- %ebp 4/r32/esp +<span id="L36696" class="LineNr">36696 </span> <span class="subxComment"># setup</span> +<span id="L36697" class="LineNr">36697 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36698" class="LineNr">36698 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36699" class="LineNr">36699 </span><span class="Constant">$test-add-reg-to-mem:initialize-type</span>: +<span id="L36700" class="LineNr">36700 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36701" class="LineNr">36701 </span> 68/push 0/imm32/right:null +<span id="L36702" class="LineNr">36702 </span> 68/push 0/imm32/right:null +<span id="L36703" class="LineNr">36703 </span> 68/push 0/imm32/left:unused +<span id="L36704" class="LineNr">36704 </span> 68/push 1/imm32/value:int +<span id="L36705" class="LineNr">36705 </span> 68/push 1/imm32/is-atom?:true +<span id="L36706" class="LineNr">36706 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36707" class="LineNr">36707 </span> 89/<- %ecx 4/r32/esp +<span id="L36708" class="LineNr">36708 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1</span>: +<span id="L36709" class="LineNr">36709 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L36710" class="LineNr">36710 </span> 68/push 0/imm32/register +<span id="L36711" class="LineNr">36711 </span> 68/push 0/imm32/register +<span id="L36712" class="LineNr">36712 </span> 68/push 8/imm32/stack-offset +<span id="L36713" class="LineNr">36713 </span> 68/push 1/imm32/block-depth +<span id="L36714" class="LineNr">36714 </span> 51/push-ecx +<span id="L36715" class="LineNr">36715 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36716" class="LineNr">36716 </span> 68/push 0/imm32/name +<span id="L36717" class="LineNr">36717 </span> 68/push 0/imm32/name +<span id="L36718" class="LineNr">36718 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36719" class="LineNr">36719 </span> 89/<- %ecx 4/r32/esp +<span id="L36720" class="LineNr">36720 </span><span class="Constant">$test-add-reg-to-mem:initialize-var1-name</span>: +<span id="L36721" class="LineNr">36721 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L36722" class="LineNr">36722 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36723" class="LineNr">36723 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L36724" class="LineNr">36724 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2</span>: +<span id="L36725" class="LineNr">36725 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L36726" class="LineNr">36726 </span> 68/push 0/imm32/register +<span id="L36727" class="LineNr">36727 </span> 68/push 0/imm32/register +<span id="L36728" class="LineNr">36728 </span> 68/push 0/imm32/no-stack-offset +<span id="L36729" class="LineNr">36729 </span> 68/push 1/imm32/block-depth +<span id="L36730" class="LineNr">36730 </span> ff 6/subop/push *(ecx+0x10) +<span id="L36731" class="LineNr">36731 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36732" class="LineNr">36732 </span> 68/push 0/imm32/name +<span id="L36733" class="LineNr">36733 </span> 68/push 0/imm32/name +<span id="L36734" class="LineNr">36734 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36735" class="LineNr">36735 </span> 89/<- %edx 4/r32/esp +<span id="L36736" class="LineNr">36736 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-name</span>: +<span id="L36737" class="LineNr">36737 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L36738" class="LineNr">36738 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36739" class="LineNr">36739 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L36740" class="LineNr">36740 </span><span class="Constant">$test-add-reg-to-mem:initialize-var2-register</span>: +<span id="L36741" class="LineNr">36741 </span> <span class="subxComment"># var2->register = "ecx"</span> +<span id="L36742" class="LineNr">36742 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36743" class="LineNr">36743 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L36744" class="LineNr">36744 </span><span class="Constant">$test-add-reg-to-mem:initialize-inouts</span>: +<span id="L36745" class="LineNr">36745 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L36746" class="LineNr">36746 </span> 68/push 0/imm32/is-deref:false +<span id="L36747" class="LineNr">36747 </span> 68/push 0/imm32/next +<span id="L36748" class="LineNr">36748 </span> 68/push 0/imm32/next +<span id="L36749" class="LineNr">36749 </span> 52/push-edx/var2 +<span id="L36750" class="LineNr">36750 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36751" class="LineNr">36751 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36752" class="LineNr">36752 </span> 89/<- %esi 4/r32/esp +<span id="L36753" class="LineNr">36753 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L36754" class="LineNr">36754 </span> 68/push 0/imm32/is-deref:false +<span id="L36755" class="LineNr">36755 </span> 56/push-esi/next +<span id="L36756" class="LineNr">36756 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36757" class="LineNr">36757 </span> 51/push-ecx/var1 +<span id="L36758" class="LineNr">36758 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36759" class="LineNr">36759 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36760" class="LineNr">36760 </span> 89/<- %esi 4/r32/esp +<span id="L36761" class="LineNr">36761 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt</span>: +<span id="L36762" class="LineNr">36762 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36763" class="LineNr">36763 </span> 68/push 0/imm32/next +<span id="L36764" class="LineNr">36764 </span> 68/push 0/imm32/next +<span id="L36765" class="LineNr">36765 </span> 68/push 0/imm32/outputs +<span id="L36766" class="LineNr">36766 </span> 68/push 0/imm32/outputs +<span id="L36767" class="LineNr">36767 </span> 56/push-esi/inouts +<span id="L36768" class="LineNr">36768 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36769" class="LineNr">36769 </span> 68/push 0/imm32/operation +<span id="L36770" class="LineNr">36770 </span> 68/push 0/imm32/operation +<span id="L36771" class="LineNr">36771 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36772" class="LineNr">36772 </span> 89/<- %esi 4/r32/esp +<span id="L36773" class="LineNr">36773 </span><span class="Constant">$test-add-reg-to-mem:initialize-stmt-operation</span>: +<span id="L36774" class="LineNr">36774 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L36775" class="LineNr">36775 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36776" class="LineNr">36776 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) +<span id="L36777" class="LineNr">36777 </span> <span class="subxComment"># convert</span> +<span id="L36778" class="LineNr">36778 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L36779" class="LineNr">36779 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36780" class="LineNr">36780 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36781" class="Folded">36781 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36787" class="LineNr">36787 </span> <span class="subxComment"># check output</span> +<span id="L36788" class="LineNr">36788 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"01/add-to *(ebp+0x00000008) 0x00000001/r32"</span> <span class="Constant">"F - test-add-reg-to-mem"</span>) +<span id="L36789" class="LineNr">36789 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36790" class="LineNr">36790 </span> 89/<- %esp 5/r32/ebp +<span id="L36791" class="LineNr">36791 </span> 5d/pop-to-ebp +<span id="L36792" class="LineNr">36792 </span> c3/return +<span id="L36793" class="LineNr">36793 </span> +<span id="L36794" class="LineNr">36794 </span><span class="subxTest">test-add-mem-to-reg</span>: +<span id="L36795" class="LineNr">36795 </span> <span class="subxComment"># var1/reg <- add var2</span> +<span id="L36796" class="LineNr">36796 </span> <span class="subxComment"># =></span> +<span id="L36797" class="LineNr">36797 </span> <span class="subxComment"># 03/add *(ebp+__) var1</span> +<span id="L36798" class="LineNr">36798 </span> <span class="subxComment">#</span> +<span id="L36799" class="LineNr">36799 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36800" class="LineNr">36800 </span> 55/push-ebp +<span id="L36801" class="LineNr">36801 </span> 89/<- %ebp 4/r32/esp +<span id="L36802" class="LineNr">36802 </span> <span class="subxComment"># setup</span> +<span id="L36803" class="LineNr">36803 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36804" class="LineNr">36804 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36805" class="LineNr">36805 </span><span class="Constant">$test-add-mem-to-reg:initialize-type</span>: +<span id="L36806" class="LineNr">36806 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36807" class="LineNr">36807 </span> 68/push 0/imm32/right:null +<span id="L36808" class="LineNr">36808 </span> 68/push 0/imm32/right:null +<span id="L36809" class="LineNr">36809 </span> 68/push 0/imm32/left:unused +<span id="L36810" class="LineNr">36810 </span> 68/push 1/imm32/value:int +<span id="L36811" class="LineNr">36811 </span> 68/push 1/imm32/is-atom?:true +<span id="L36812" class="LineNr">36812 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36813" class="LineNr">36813 </span> 89/<- %ecx 4/r32/esp +<span id="L36814" class="LineNr">36814 </span><span class="Constant">$test-add-mem-to-reg:initialize-var</span>: +<span id="L36815" class="LineNr">36815 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L36816" class="LineNr">36816 </span> 68/push 0/imm32/register +<span id="L36817" class="LineNr">36817 </span> 68/push 0/imm32/register +<span id="L36818" class="LineNr">36818 </span> 68/push 0/imm32/no-stack-offset +<span id="L36819" class="LineNr">36819 </span> 68/push 1/imm32/block-depth +<span id="L36820" class="LineNr">36820 </span> 51/push-ecx +<span id="L36821" class="LineNr">36821 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36822" class="LineNr">36822 </span> 68/push 0/imm32/name +<span id="L36823" class="LineNr">36823 </span> 68/push 0/imm32/name +<span id="L36824" class="LineNr">36824 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36825" class="LineNr">36825 </span> 89/<- %ecx 4/r32/esp +<span id="L36826" class="LineNr">36826 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-name</span>: +<span id="L36827" class="LineNr">36827 </span> <span class="subxComment"># var1->name = "foo"</span> +<span id="L36828" class="LineNr">36828 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36829" class="LineNr">36829 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L36830" class="LineNr">36830 </span><span class="Constant">$test-add-mem-to-reg:initialize-var-register</span>: +<span id="L36831" class="LineNr">36831 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L36832" class="LineNr">36832 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36833" class="LineNr">36833 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36834" class="LineNr">36834 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2</span>: +<span id="L36835" class="LineNr">36835 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L36836" class="LineNr">36836 </span> 68/push 0/imm32/register +<span id="L36837" class="LineNr">36837 </span> 68/push 0/imm32/register +<span id="L36838" class="LineNr">36838 </span> 68/push 8/imm32/stack-offset +<span id="L36839" class="LineNr">36839 </span> 68/push 1/imm32/block-depth +<span id="L36840" class="LineNr">36840 </span> ff 6/subop/push *(ecx+0x10) +<span id="L36841" class="LineNr">36841 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36842" class="LineNr">36842 </span> 68/push 0/imm32/name +<span id="L36843" class="LineNr">36843 </span> 68/push 0/imm32/name +<span id="L36844" class="LineNr">36844 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36845" class="LineNr">36845 </span> 89/<- %edx 4/r32/esp +<span id="L36846" class="LineNr">36846 </span><span class="Constant">$test-add-mem-to-reg:initialize-var2-name</span>: +<span id="L36847" class="LineNr">36847 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L36848" class="LineNr">36848 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36849" class="LineNr">36849 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L36850" class="LineNr">36850 </span><span class="Constant">$test-add-mem-to-reg:initialize-inouts</span>: +<span id="L36851" class="LineNr">36851 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L36852" class="LineNr">36852 </span> 68/push 0/imm32/is-deref:false +<span id="L36853" class="LineNr">36853 </span> 68/push 0/imm32/next +<span id="L36854" class="LineNr">36854 </span> 68/push 0/imm32/next +<span id="L36855" class="LineNr">36855 </span> 52/push-edx/var2 +<span id="L36856" class="LineNr">36856 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36857" class="LineNr">36857 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36858" class="LineNr">36858 </span> 89/<- %esi 4/r32/esp +<span id="L36859" class="LineNr">36859 </span><span class="Constant">$test-add-mem-to-reg:initialize-outputs</span>: +<span id="L36860" class="LineNr">36860 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [var1]</span> +<span id="L36861" class="LineNr">36861 </span> 68/push 0/imm32/is-deref:false +<span id="L36862" class="LineNr">36862 </span> 68/push 0/imm32/next +<span id="L36863" class="LineNr">36863 </span> 68/push 0/imm32/next +<span id="L36864" class="LineNr">36864 </span> 51/push-ecx/var1 +<span id="L36865" class="LineNr">36865 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36866" class="LineNr">36866 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36867" class="LineNr">36867 </span> 89/<- %edi 4/r32/esp +<span id="L36868" class="LineNr">36868 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt</span>: +<span id="L36869" class="LineNr">36869 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36870" class="LineNr">36870 </span> 68/push 0/imm32/next +<span id="L36871" class="LineNr">36871 </span> 68/push 0/imm32/next +<span id="L36872" class="LineNr">36872 </span> 57/push-edi/outputs +<span id="L36873" class="LineNr">36873 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36874" class="LineNr">36874 </span> 56/push-esi/inouts +<span id="L36875" class="LineNr">36875 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36876" class="LineNr">36876 </span> 68/push 0/imm32/operation +<span id="L36877" class="LineNr">36877 </span> 68/push 0/imm32/operation +<span id="L36878" class="LineNr">36878 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36879" class="LineNr">36879 </span> 89/<- %esi 4/r32/esp +<span id="L36880" class="LineNr">36880 </span><span class="Constant">$test-add-mem-to-reg:initialize-stmt-operation</span>: +<span id="L36881" class="LineNr">36881 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L36882" class="LineNr">36882 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36883" class="LineNr">36883 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L36884" class="LineNr">36884 </span> <span class="subxComment"># convert</span> +<span id="L36885" class="LineNr">36885 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L36886" class="LineNr">36886 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L36887" class="LineNr">36887 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L36888" class="Folded">36888 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L36894" class="LineNr">36894 </span> <span class="subxComment"># check output</span> +<span id="L36895" class="LineNr">36895 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"03/add *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-add-mem-to-reg"</span>) +<span id="L36896" class="LineNr">36896 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L36897" class="LineNr">36897 </span> 89/<- %esp 5/r32/ebp +<span id="L36898" class="LineNr">36898 </span> 5d/pop-to-ebp +<span id="L36899" class="LineNr">36899 </span> c3/return +<span id="L36900" class="LineNr">36900 </span> +<span id="L36901" class="LineNr">36901 </span><span class="subxTest">test-add-literal-to-eax</span>: +<span id="L36902" class="LineNr">36902 </span> <span class="subxComment"># var1/eax <- add 0x34</span> +<span id="L36903" class="LineNr">36903 </span> <span class="subxComment"># =></span> +<span id="L36904" class="LineNr">36904 </span> <span class="subxComment"># 05/add-to-eax 0x34/imm32</span> +<span id="L36905" class="LineNr">36905 </span> <span class="subxComment">#</span> +<span id="L36906" class="LineNr">36906 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L36907" class="LineNr">36907 </span> 55/push-ebp +<span id="L36908" class="LineNr">36908 </span> 89/<- %ebp 4/r32/esp +<span id="L36909" class="LineNr">36909 </span> <span class="subxComment"># setup</span> +<span id="L36910" class="LineNr">36910 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L36911" class="LineNr">36911 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L36912" class="LineNr">36912 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-type</span>: +<span id="L36913" class="LineNr">36913 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L36914" class="LineNr">36914 </span> 68/push 0/imm32/right:null +<span id="L36915" class="LineNr">36915 </span> 68/push 0/imm32/right:null +<span id="L36916" class="LineNr">36916 </span> 68/push 0/imm32/left:unused +<span id="L36917" class="LineNr">36917 </span> 68/push 1/imm32/value:int +<span id="L36918" class="LineNr">36918 </span> 68/push 1/imm32/is-atom?:true +<span id="L36919" class="LineNr">36919 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36920" class="LineNr">36920 </span> 89/<- %ecx 4/r32/esp +<span id="L36921" class="LineNr">36921 </span><span class="Constant">$test-add-literal-to-eax:initialize-var</span>: +<span id="L36922" class="LineNr">36922 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L36923" class="LineNr">36923 </span> 68/push 0/imm32/register +<span id="L36924" class="LineNr">36924 </span> 68/push 0/imm32/register +<span id="L36925" class="LineNr">36925 </span> 68/push 0/imm32/no-stack-offset +<span id="L36926" class="LineNr">36926 </span> 68/push 1/imm32/block-depth +<span id="L36927" class="LineNr">36927 </span> 51/push-ecx +<span id="L36928" class="LineNr">36928 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36929" class="LineNr">36929 </span> 68/push 0/imm32/name +<span id="L36930" class="LineNr">36930 </span> 68/push 0/imm32/name +<span id="L36931" class="LineNr">36931 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36932" class="LineNr">36932 </span> 89/<- %ecx 4/r32/esp +<span id="L36933" class="LineNr">36933 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-name</span>: +<span id="L36934" class="LineNr">36934 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L36935" class="LineNr">36935 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36936" class="LineNr">36936 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L36937" class="LineNr">36937 </span><span class="Constant">$test-add-literal-to-eax:initialize-var-register</span>: +<span id="L36938" class="LineNr">36938 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L36939" class="LineNr">36939 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L36940" class="LineNr">36940 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L36941" class="LineNr">36941 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-type</span>: +<span id="L36942" class="LineNr">36942 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L36943" class="LineNr">36943 </span> 68/push 0/imm32/right:null +<span id="L36944" class="LineNr">36944 </span> 68/push 0/imm32/right:null +<span id="L36945" class="LineNr">36945 </span> 68/push 0/imm32/left:unused +<span id="L36946" class="LineNr">36946 </span> 68/push 0/imm32/value:literal +<span id="L36947" class="LineNr">36947 </span> 68/push 1/imm32/is-atom?:true +<span id="L36948" class="LineNr">36948 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36949" class="LineNr">36949 </span> 89/<- %edx 4/r32/esp +<span id="L36950" class="LineNr">36950 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal</span>: +<span id="L36951" class="LineNr">36951 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L36952" class="LineNr">36952 </span> 68/push 0/imm32/register +<span id="L36953" class="LineNr">36953 </span> 68/push 0/imm32/register +<span id="L36954" class="LineNr">36954 </span> 68/push 0/imm32/no-stack-offset +<span id="L36955" class="LineNr">36955 </span> 68/push 1/imm32/block-depth +<span id="L36956" class="LineNr">36956 </span> 52/push-edx +<span id="L36957" class="LineNr">36957 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36958" class="LineNr">36958 </span> 68/push 0/imm32/name +<span id="L36959" class="LineNr">36959 </span> 68/push 0/imm32/name +<span id="L36960" class="LineNr">36960 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36961" class="LineNr">36961 </span> 89/<- %edx 4/r32/esp +<span id="L36962" class="LineNr">36962 </span><span class="Constant">$test-add-literal-to-eax:initialize-literal-value</span>: +<span id="L36963" class="LineNr">36963 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L36964" class="LineNr">36964 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L36965" class="LineNr">36965 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L36966" class="LineNr">36966 </span><span class="Constant">$test-add-literal-to-eax:initialize-inouts</span>: +<span id="L36967" class="LineNr">36967 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L36968" class="LineNr">36968 </span> 68/push 0/imm32/is-deref:false +<span id="L36969" class="LineNr">36969 </span> 68/push 0/imm32/next +<span id="L36970" class="LineNr">36970 </span> 68/push 0/imm32/next +<span id="L36971" class="LineNr">36971 </span> 52/push-edx/l +<span id="L36972" class="LineNr">36972 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36973" class="LineNr">36973 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36974" class="LineNr">36974 </span> 89/<- %esi 4/r32/esp +<span id="L36975" class="LineNr">36975 </span><span class="Constant">$test-add-literal-to-eax:initialize-outputs</span>: +<span id="L36976" class="LineNr">36976 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L36977" class="LineNr">36977 </span> 68/push 0/imm32/is-deref:false +<span id="L36978" class="LineNr">36978 </span> 68/push 0/imm32/next +<span id="L36979" class="LineNr">36979 </span> 68/push 0/imm32/next +<span id="L36980" class="LineNr">36980 </span> 51/push-ecx/v +<span id="L36981" class="LineNr">36981 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36982" class="LineNr">36982 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L36983" class="LineNr">36983 </span> 89/<- %edi 4/r32/esp +<span id="L36984" class="LineNr">36984 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt</span>: +<span id="L36985" class="LineNr">36985 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L36986" class="LineNr">36986 </span> 68/push 0/imm32/next +<span id="L36987" class="LineNr">36987 </span> 68/push 0/imm32/next +<span id="L36988" class="LineNr">36988 </span> 57/push-edi/outputs +<span id="L36989" class="LineNr">36989 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36990" class="LineNr">36990 </span> 56/push-esi/inouts +<span id="L36991" class="LineNr">36991 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L36992" class="LineNr">36992 </span> 68/push 0/imm32/operation +<span id="L36993" class="LineNr">36993 </span> 68/push 0/imm32/operation +<span id="L36994" class="LineNr">36994 </span> 68/push 1/imm32/tag:stmt1 +<span id="L36995" class="LineNr">36995 </span> 89/<- %esi 4/r32/esp +<span id="L36996" class="LineNr">36996 </span><span class="Constant">$test-add-literal-to-eax:initialize-stmt-operation</span>: +<span id="L36997" class="LineNr">36997 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L36998" class="LineNr">36998 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L36999" class="LineNr">36999 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L37000" class="LineNr">37000 </span> <span class="subxComment"># convert</span> +<span id="L37001" class="LineNr">37001 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37002" class="LineNr">37002 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37003" class="LineNr">37003 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37004" class="Folded">37004 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37010" class="LineNr">37010 </span> <span class="subxComment"># check output</span> +<span id="L37011" class="LineNr">37011 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"05/add-to-eax 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-eax"</span>) +<span id="L37012" class="LineNr">37012 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37013" class="LineNr">37013 </span> 89/<- %esp 5/r32/ebp +<span id="L37014" class="LineNr">37014 </span> 5d/pop-to-ebp +<span id="L37015" class="LineNr">37015 </span> c3/return +<span id="L37016" class="LineNr">37016 </span> +<span id="L37017" class="LineNr">37017 </span><span class="subxTest">test-add-literal-to-reg</span>: +<span id="L37018" class="LineNr">37018 </span> <span class="subxComment"># var1/ecx <- add 0x34</span> +<span id="L37019" class="LineNr">37019 </span> <span class="subxComment"># =></span> +<span id="L37020" class="LineNr">37020 </span> <span class="subxComment"># 81 0/subop/add %ecx 0x34/imm32</span> +<span id="L37021" class="LineNr">37021 </span> <span class="subxComment">#</span> +<span id="L37022" class="LineNr">37022 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37023" class="LineNr">37023 </span> 55/push-ebp +<span id="L37024" class="LineNr">37024 </span> 89/<- %ebp 4/r32/esp +<span id="L37025" class="LineNr">37025 </span> <span class="subxComment"># setup</span> +<span id="L37026" class="LineNr">37026 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37027" class="LineNr">37027 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37028" class="LineNr">37028 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-type</span>: +<span id="L37029" class="LineNr">37029 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37030" class="LineNr">37030 </span> 68/push 0/imm32/right:null +<span id="L37031" class="LineNr">37031 </span> 68/push 0/imm32/right:null +<span id="L37032" class="LineNr">37032 </span> 68/push 0/imm32/left:unused +<span id="L37033" class="LineNr">37033 </span> 68/push 1/imm32/value:int +<span id="L37034" class="LineNr">37034 </span> 68/push 1/imm32/is-atom?:true +<span id="L37035" class="LineNr">37035 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37036" class="LineNr">37036 </span> 89/<- %ecx 4/r32/esp +<span id="L37037" class="LineNr">37037 </span><span class="Constant">$test-add-literal-to-reg:initialize-var</span>: +<span id="L37038" class="LineNr">37038 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L37039" class="LineNr">37039 </span> 68/push 0/imm32/register +<span id="L37040" class="LineNr">37040 </span> 68/push 0/imm32/register +<span id="L37041" class="LineNr">37041 </span> 68/push 0/imm32/no-stack-offset +<span id="L37042" class="LineNr">37042 </span> 68/push 1/imm32/block-depth +<span id="L37043" class="LineNr">37043 </span> 51/push-ecx +<span id="L37044" class="LineNr">37044 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37045" class="LineNr">37045 </span> 68/push 0/imm32/name +<span id="L37046" class="LineNr">37046 </span> 68/push 0/imm32/name +<span id="L37047" class="LineNr">37047 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37048" class="LineNr">37048 </span> 89/<- %ecx 4/r32/esp +<span id="L37049" class="LineNr">37049 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-name</span>: +<span id="L37050" class="LineNr">37050 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37051" class="LineNr">37051 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37052" class="LineNr">37052 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L37053" class="LineNr">37053 </span><span class="Constant">$test-add-literal-to-reg:initialize-var-register</span>: +<span id="L37054" class="LineNr">37054 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L37055" class="LineNr">37055 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37056" class="LineNr">37056 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37057" class="LineNr">37057 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-type</span>: +<span id="L37058" class="LineNr">37058 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37059" class="LineNr">37059 </span> 68/push 0/imm32/right:null +<span id="L37060" class="LineNr">37060 </span> 68/push 0/imm32/right:null +<span id="L37061" class="LineNr">37061 </span> 68/push 0/imm32/left:unused +<span id="L37062" class="LineNr">37062 </span> 68/push 0/imm32/value:literal +<span id="L37063" class="LineNr">37063 </span> 68/push 1/imm32/is-atom?:true +<span id="L37064" class="LineNr">37064 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37065" class="LineNr">37065 </span> 89/<- %edx 4/r32/esp +<span id="L37066" class="LineNr">37066 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal</span>: +<span id="L37067" class="LineNr">37067 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37068" class="LineNr">37068 </span> 68/push 0/imm32/register +<span id="L37069" class="LineNr">37069 </span> 68/push 0/imm32/register +<span id="L37070" class="LineNr">37070 </span> 68/push 0/imm32/no-stack-offset +<span id="L37071" class="LineNr">37071 </span> 68/push 1/imm32/block-depth +<span id="L37072" class="LineNr">37072 </span> 52/push-edx +<span id="L37073" class="LineNr">37073 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37074" class="LineNr">37074 </span> 68/push 0/imm32/name +<span id="L37075" class="LineNr">37075 </span> 68/push 0/imm32/name +<span id="L37076" class="LineNr">37076 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37077" class="LineNr">37077 </span> 89/<- %edx 4/r32/esp +<span id="L37078" class="LineNr">37078 </span><span class="Constant">$test-add-literal-to-reg:initialize-literal-value</span>: +<span id="L37079" class="LineNr">37079 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37080" class="LineNr">37080 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37081" class="LineNr">37081 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L37082" class="LineNr">37082 </span><span class="Constant">$test-add-literal-to-reg:initialize-inouts</span>: +<span id="L37083" class="LineNr">37083 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37084" class="LineNr">37084 </span> 68/push 0/imm32/is-deref:false +<span id="L37085" class="LineNr">37085 </span> 68/push 0/imm32/next +<span id="L37086" class="LineNr">37086 </span> 68/push 0/imm32/next +<span id="L37087" class="LineNr">37087 </span> 52/push-edx/l +<span id="L37088" class="LineNr">37088 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37089" class="LineNr">37089 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37090" class="LineNr">37090 </span> 89/<- %esi 4/r32/esp +<span id="L37091" class="LineNr">37091 </span><span class="Constant">$test-add-literal-to-reg:initialize-outputs</span>: +<span id="L37092" class="LineNr">37092 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37093" class="LineNr">37093 </span> 68/push 0/imm32/is-deref:false +<span id="L37094" class="LineNr">37094 </span> 68/push 0/imm32/next +<span id="L37095" class="LineNr">37095 </span> 68/push 0/imm32/next +<span id="L37096" class="LineNr">37096 </span> 51/push-ecx/v +<span id="L37097" class="LineNr">37097 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37098" class="LineNr">37098 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37099" class="LineNr">37099 </span> 89/<- %edi 4/r32/esp +<span id="L37100" class="LineNr">37100 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt</span>: +<span id="L37101" class="LineNr">37101 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37102" class="LineNr">37102 </span> 68/push 0/imm32/next +<span id="L37103" class="LineNr">37103 </span> 68/push 0/imm32/next +<span id="L37104" class="LineNr">37104 </span> 57/push-edi/outputs +<span id="L37105" class="LineNr">37105 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37106" class="LineNr">37106 </span> 56/push-esi/inouts +<span id="L37107" class="LineNr">37107 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37108" class="LineNr">37108 </span> 68/push 0/imm32/operation +<span id="L37109" class="LineNr">37109 </span> 68/push 0/imm32/operation +<span id="L37110" class="LineNr">37110 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37111" class="LineNr">37111 </span> 89/<- %esi 4/r32/esp +<span id="L37112" class="LineNr">37112 </span><span class="Constant">$test-add-literal-to-reg:initialize-stmt-operation</span>: +<span id="L37113" class="LineNr">37113 </span> <span class="subxComment"># stmt->operation = "add"</span> +<span id="L37114" class="LineNr">37114 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37115" class="LineNr">37115 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add"</span> %eax) +<span id="L37116" class="LineNr">37116 </span> <span class="subxComment"># convert</span> +<span id="L37117" class="LineNr">37117 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37118" class="LineNr">37118 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37119" class="LineNr">37119 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37120" class="Folded">37120 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37126" class="LineNr">37126 </span> <span class="subxComment"># check output</span> +<span id="L37127" class="LineNr">37127 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 0/subop/add %ecx 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-reg"</span>) +<span id="L37128" class="LineNr">37128 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37129" class="LineNr">37129 </span> 89/<- %esp 5/r32/ebp +<span id="L37130" class="LineNr">37130 </span> 5d/pop-to-ebp +<span id="L37131" class="LineNr">37131 </span> c3/return +<span id="L37132" class="LineNr">37132 </span> +<span id="L37133" class="LineNr">37133 </span><span class="subxTest">test-add-literal-to-mem</span>: +<span id="L37134" class="LineNr">37134 </span> <span class="subxComment"># add-to var1, 0x34</span> +<span id="L37135" class="LineNr">37135 </span> <span class="subxComment"># =></span> +<span id="L37136" class="LineNr">37136 </span> <span class="subxComment"># 81 0/subop/add %eax 0x34/imm32</span> +<span id="L37137" class="LineNr">37137 </span> <span class="subxComment">#</span> +<span id="L37138" class="LineNr">37138 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37139" class="LineNr">37139 </span> 55/push-ebp +<span id="L37140" class="LineNr">37140 </span> 89/<- %ebp 4/r32/esp +<span id="L37141" class="LineNr">37141 </span> <span class="subxComment"># setup</span> +<span id="L37142" class="LineNr">37142 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37143" class="LineNr">37143 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37144" class="LineNr">37144 </span><span class="Constant">$test-add-literal-to-mem:initialize-type</span>: +<span id="L37145" class="LineNr">37145 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37146" class="LineNr">37146 </span> 68/push 0/imm32/right:null +<span id="L37147" class="LineNr">37147 </span> 68/push 0/imm32/right:null +<span id="L37148" class="LineNr">37148 </span> 68/push 0/imm32/left:unused +<span id="L37149" class="LineNr">37149 </span> 68/push 1/imm32/value:int +<span id="L37150" class="LineNr">37150 </span> 68/push 1/imm32/is-atom?:true +<span id="L37151" class="LineNr">37151 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37152" class="LineNr">37152 </span> 89/<- %ecx 4/r32/esp +<span id="L37153" class="LineNr">37153 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1</span>: +<span id="L37154" class="LineNr">37154 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37155" class="LineNr">37155 </span> 68/push 0/imm32/register +<span id="L37156" class="LineNr">37156 </span> 68/push 0/imm32/register +<span id="L37157" class="LineNr">37157 </span> 68/push 8/imm32/stack-offset +<span id="L37158" class="LineNr">37158 </span> 68/push 1/imm32/block-depth +<span id="L37159" class="LineNr">37159 </span> 51/push-ecx +<span id="L37160" class="LineNr">37160 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37161" class="LineNr">37161 </span> 68/push 0/imm32/name +<span id="L37162" class="LineNr">37162 </span> 68/push 0/imm32/name +<span id="L37163" class="LineNr">37163 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37164" class="LineNr">37164 </span> 89/<- %ecx 4/r32/esp +<span id="L37165" class="LineNr">37165 </span><span class="Constant">$test-add-literal-to-mem:initialize-var1-name</span>: +<span id="L37166" class="LineNr">37166 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37167" class="LineNr">37167 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37168" class="LineNr">37168 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37169" class="LineNr">37169 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-type</span>: +<span id="L37170" class="LineNr">37170 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37171" class="LineNr">37171 </span> 68/push 0/imm32/right:null +<span id="L37172" class="LineNr">37172 </span> 68/push 0/imm32/right:null +<span id="L37173" class="LineNr">37173 </span> 68/push 0/imm32/left:unused +<span id="L37174" class="LineNr">37174 </span> 68/push 0/imm32/value:literal +<span id="L37175" class="LineNr">37175 </span> 68/push 1/imm32/is-atom?:true +<span id="L37176" class="LineNr">37176 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37177" class="LineNr">37177 </span> 89/<- %edx 4/r32/esp +<span id="L37178" class="LineNr">37178 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal</span>: +<span id="L37179" class="LineNr">37179 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37180" class="LineNr">37180 </span> 68/push 0/imm32/register +<span id="L37181" class="LineNr">37181 </span> 68/push 0/imm32/register +<span id="L37182" class="LineNr">37182 </span> 68/push 0/imm32/no-stack-offset +<span id="L37183" class="LineNr">37183 </span> 68/push 1/imm32/block-depth +<span id="L37184" class="LineNr">37184 </span> 52/push-edx +<span id="L37185" class="LineNr">37185 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37186" class="LineNr">37186 </span> 68/push 0/imm32/name +<span id="L37187" class="LineNr">37187 </span> 68/push 0/imm32/name +<span id="L37188" class="LineNr">37188 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37189" class="LineNr">37189 </span> 89/<- %edx 4/r32/esp +<span id="L37190" class="LineNr">37190 </span><span class="Constant">$test-add-literal-to-mem:initialize-literal-value</span>: +<span id="L37191" class="LineNr">37191 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37192" class="LineNr">37192 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37193" class="LineNr">37193 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L37194" class="LineNr">37194 </span><span class="Constant">$test-add-literal-to-mem:initialize-inouts</span>: +<span id="L37195" class="LineNr">37195 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37196" class="LineNr">37196 </span> 68/push 0/imm32/is-deref:false +<span id="L37197" class="LineNr">37197 </span> 68/push 0/imm32/next +<span id="L37198" class="LineNr">37198 </span> 68/push 0/imm32/next +<span id="L37199" class="LineNr">37199 </span> 52/push-edx/l +<span id="L37200" class="LineNr">37200 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37201" class="LineNr">37201 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37202" class="LineNr">37202 </span> 89/<- %esi 4/r32/esp +<span id="L37203" class="LineNr">37203 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L37204" class="LineNr">37204 </span> 68/push 0/imm32/is-deref:false +<span id="L37205" class="LineNr">37205 </span> 56/push-esi/next +<span id="L37206" class="LineNr">37206 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37207" class="LineNr">37207 </span> 51/push-ecx/var1 +<span id="L37208" class="LineNr">37208 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37209" class="LineNr">37209 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37210" class="LineNr">37210 </span> 89/<- %esi 4/r32/esp +<span id="L37211" class="LineNr">37211 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt</span>: +<span id="L37212" class="LineNr">37212 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37213" class="LineNr">37213 </span> 68/push 0/imm32/next +<span id="L37214" class="LineNr">37214 </span> 68/push 0/imm32/next +<span id="L37215" class="LineNr">37215 </span> 68/push 0/imm32/outputs +<span id="L37216" class="LineNr">37216 </span> 68/push 0/imm32/outputs +<span id="L37217" class="LineNr">37217 </span> 56/push-esi/inouts +<span id="L37218" class="LineNr">37218 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37219" class="LineNr">37219 </span> 68/push 0/imm32/operation +<span id="L37220" class="LineNr">37220 </span> 68/push 0/imm32/operation +<span id="L37221" class="LineNr">37221 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37222" class="LineNr">37222 </span> 89/<- %esi 4/r32/esp +<span id="L37223" class="LineNr">37223 </span><span class="Constant">$test-add-literal-to-mem:initialize-stmt-operation</span>: +<span id="L37224" class="LineNr">37224 </span> <span class="subxComment"># stmt->operation = "add-to"</span> +<span id="L37225" class="LineNr">37225 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37226" class="LineNr">37226 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"add-to"</span> %eax) +<span id="L37227" class="LineNr">37227 </span> <span class="subxComment"># convert</span> +<span id="L37228" class="LineNr">37228 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37229" class="LineNr">37229 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37230" class="LineNr">37230 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37231" class="Folded">37231 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37237" class="LineNr">37237 </span> <span class="subxComment"># check output</span> +<span id="L37238" class="LineNr">37238 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 0/subop/add *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-add-literal-to-mem"</span>) +<span id="L37239" class="LineNr">37239 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37240" class="LineNr">37240 </span> 89/<- %esp 5/r32/ebp +<span id="L37241" class="LineNr">37241 </span> 5d/pop-to-ebp +<span id="L37242" class="LineNr">37242 </span> c3/return +<span id="L37243" class="LineNr">37243 </span> +<span id="L37244" class="LineNr">37244 </span><span class="subxTest">test-shift-reg-by-literal</span>: +<span id="L37245" class="LineNr">37245 </span> <span class="subxComment"># var1/ecx <- shift-left 2</span> +<span id="L37246" class="LineNr">37246 </span> <span class="subxComment"># =></span> +<span id="L37247" class="LineNr">37247 </span> <span class="subxComment"># c1/shift 4/subop/left %ecx 2/imm8</span> +<span id="L37248" class="LineNr">37248 </span> <span class="subxComment">#</span> +<span id="L37249" class="LineNr">37249 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37250" class="LineNr">37250 </span> 55/push-ebp +<span id="L37251" class="LineNr">37251 </span> 89/<- %ebp 4/r32/esp +<span id="L37252" class="LineNr">37252 </span> <span class="subxComment"># setup</span> +<span id="L37253" class="LineNr">37253 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37254" class="LineNr">37254 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37255" class="LineNr">37255 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-type</span>: +<span id="L37256" class="LineNr">37256 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37257" class="LineNr">37257 </span> 68/push 0/imm32/right:null +<span id="L37258" class="LineNr">37258 </span> 68/push 0/imm32/right:null +<span id="L37259" class="LineNr">37259 </span> 68/push 0/imm32/left:unused +<span id="L37260" class="LineNr">37260 </span> 68/push 1/imm32/value:int +<span id="L37261" class="LineNr">37261 </span> 68/push 1/imm32/is-atom?:true +<span id="L37262" class="LineNr">37262 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37263" class="LineNr">37263 </span> 89/<- %ecx 4/r32/esp +<span id="L37264" class="LineNr">37264 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var</span>: +<span id="L37265" class="LineNr">37265 </span> <span class="subxComment"># var v/ecx: (payload var)</span> +<span id="L37266" class="LineNr">37266 </span> 68/push 0/imm32/register +<span id="L37267" class="LineNr">37267 </span> 68/push 0/imm32/register +<span id="L37268" class="LineNr">37268 </span> 68/push 0/imm32/no-stack-offset +<span id="L37269" class="LineNr">37269 </span> 68/push 1/imm32/block-depth +<span id="L37270" class="LineNr">37270 </span> 51/push-ecx +<span id="L37271" class="LineNr">37271 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37272" class="LineNr">37272 </span> 68/push 0/imm32/name +<span id="L37273" class="LineNr">37273 </span> 68/push 0/imm32/name +<span id="L37274" class="LineNr">37274 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37275" class="LineNr">37275 </span> 89/<- %ecx 4/r32/esp +<span id="L37276" class="LineNr">37276 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-name</span>: +<span id="L37277" class="LineNr">37277 </span> <span class="subxComment"># v->name = "v"</span> +<span id="L37278" class="LineNr">37278 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37279" class="LineNr">37279 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"v"</span> %eax) +<span id="L37280" class="LineNr">37280 </span><span class="Constant">$test-shift-reg-by-literal:initialize-var-register</span>: +<span id="L37281" class="LineNr">37281 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L37282" class="LineNr">37282 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37283" class="LineNr">37283 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37284" class="LineNr">37284 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-type</span>: +<span id="L37285" class="LineNr">37285 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37286" class="LineNr">37286 </span> 68/push 0/imm32/right:null +<span id="L37287" class="LineNr">37287 </span> 68/push 0/imm32/right:null +<span id="L37288" class="LineNr">37288 </span> 68/push 0/imm32/left:unused +<span id="L37289" class="LineNr">37289 </span> 68/push 0/imm32/value:literal +<span id="L37290" class="LineNr">37290 </span> 68/push 1/imm32/is-atom?:true +<span id="L37291" class="LineNr">37291 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37292" class="LineNr">37292 </span> 89/<- %edx 4/r32/esp +<span id="L37293" class="LineNr">37293 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal</span>: +<span id="L37294" class="LineNr">37294 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37295" class="LineNr">37295 </span> 68/push 0/imm32/register +<span id="L37296" class="LineNr">37296 </span> 68/push 0/imm32/register +<span id="L37297" class="LineNr">37297 </span> 68/push 0/imm32/no-stack-offset +<span id="L37298" class="LineNr">37298 </span> 68/push 1/imm32/block-depth +<span id="L37299" class="LineNr">37299 </span> 52/push-edx +<span id="L37300" class="LineNr">37300 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37301" class="LineNr">37301 </span> 68/push 0/imm32/name +<span id="L37302" class="LineNr">37302 </span> 68/push 0/imm32/name +<span id="L37303" class="LineNr">37303 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37304" class="LineNr">37304 </span> 89/<- %edx 4/r32/esp +<span id="L37305" class="LineNr">37305 </span><span class="Constant">$test-shift-reg-by-literal:initialize-literal-value</span>: +<span id="L37306" class="LineNr">37306 </span> <span class="subxComment"># l->name = "2"</span> +<span id="L37307" class="LineNr">37307 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37308" class="LineNr">37308 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"2"</span> %eax) +<span id="L37309" class="LineNr">37309 </span><span class="Constant">$test-shift-reg-by-literal:initialize-inouts</span>: +<span id="L37310" class="LineNr">37310 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37311" class="LineNr">37311 </span> 68/push 0/imm32/is-deref:false +<span id="L37312" class="LineNr">37312 </span> 68/push 0/imm32/next +<span id="L37313" class="LineNr">37313 </span> 68/push 0/imm32/next +<span id="L37314" class="LineNr">37314 </span> 52/push-edx/l +<span id="L37315" class="LineNr">37315 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37316" class="LineNr">37316 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37317" class="LineNr">37317 </span> 89/<- %esi 4/r32/esp +<span id="L37318" class="LineNr">37318 </span><span class="Constant">$test-shift-reg-by-literal:initialize-outputs</span>: +<span id="L37319" class="LineNr">37319 </span> <span class="subxComment"># var outputs/edi: (payload stmt-var) = [v]</span> +<span id="L37320" class="LineNr">37320 </span> 68/push 0/imm32/is-deref:false +<span id="L37321" class="LineNr">37321 </span> 68/push 0/imm32/next +<span id="L37322" class="LineNr">37322 </span> 68/push 0/imm32/next +<span id="L37323" class="LineNr">37323 </span> 51/push-ecx/v +<span id="L37324" class="LineNr">37324 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37325" class="LineNr">37325 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37326" class="LineNr">37326 </span> 89/<- %edi 4/r32/esp +<span id="L37327" class="LineNr">37327 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt</span>: +<span id="L37328" class="LineNr">37328 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37329" class="LineNr">37329 </span> 68/push 0/imm32/next +<span id="L37330" class="LineNr">37330 </span> 68/push 0/imm32/next +<span id="L37331" class="LineNr">37331 </span> 57/push-edi/outputs +<span id="L37332" class="LineNr">37332 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37333" class="LineNr">37333 </span> 56/push-esi/inouts +<span id="L37334" class="LineNr">37334 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37335" class="LineNr">37335 </span> 68/push 0/imm32/operation +<span id="L37336" class="LineNr">37336 </span> 68/push 0/imm32/operation +<span id="L37337" class="LineNr">37337 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37338" class="LineNr">37338 </span> 89/<- %esi 4/r32/esp +<span id="L37339" class="LineNr">37339 </span><span class="Constant">$test-shift-reg-by-literal:initialize-stmt-operation</span>: +<span id="L37340" class="LineNr">37340 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L37341" class="LineNr">37341 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37342" class="LineNr">37342 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) +<span id="L37343" class="LineNr">37343 </span> <span class="subxComment"># convert</span> +<span id="L37344" class="LineNr">37344 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37345" class="LineNr">37345 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37346" class="LineNr">37346 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37347" class="Folded">37347 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37353" class="LineNr">37353 </span> <span class="subxComment"># check output</span> +<span id="L37354" class="LineNr">37354 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left %ecx 2/imm8"</span> <span class="Constant">"F - test-shift-reg-by-literal"</span>) +<span id="L37355" class="LineNr">37355 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37356" class="LineNr">37356 </span> 89/<- %esp 5/r32/ebp +<span id="L37357" class="LineNr">37357 </span> 5d/pop-to-ebp +<span id="L37358" class="LineNr">37358 </span> c3/return +<span id="L37359" class="LineNr">37359 </span> +<span id="L37360" class="LineNr">37360 </span><span class="subxTest">test-shift-mem-by-literal</span>: +<span id="L37361" class="LineNr">37361 </span> <span class="subxComment"># shift-left var 3</span> +<span id="L37362" class="LineNr">37362 </span> <span class="subxComment"># =></span> +<span id="L37363" class="LineNr">37363 </span> <span class="subxComment"># c1/shift 4/subop/left *(ebp+8) 3/imm8</span> +<span id="L37364" class="LineNr">37364 </span> <span class="subxComment">#</span> +<span id="L37365" class="LineNr">37365 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37366" class="LineNr">37366 </span> 55/push-ebp +<span id="L37367" class="LineNr">37367 </span> 89/<- %ebp 4/r32/esp +<span id="L37368" class="LineNr">37368 </span> <span class="subxComment"># setup</span> +<span id="L37369" class="LineNr">37369 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37370" class="LineNr">37370 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37371" class="LineNr">37371 </span><span class="Constant">$test-shift-mem-by-literal:initialize-type</span>: +<span id="L37372" class="LineNr">37372 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37373" class="LineNr">37373 </span> 68/push 0/imm32/right:null +<span id="L37374" class="LineNr">37374 </span> 68/push 0/imm32/right:null +<span id="L37375" class="LineNr">37375 </span> 68/push 0/imm32/left:unused +<span id="L37376" class="LineNr">37376 </span> 68/push 1/imm32/value:int +<span id="L37377" class="LineNr">37377 </span> 68/push 1/imm32/is-atom?:true +<span id="L37378" class="LineNr">37378 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37379" class="LineNr">37379 </span> 89/<- %ecx 4/r32/esp +<span id="L37380" class="LineNr">37380 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1</span>: +<span id="L37381" class="LineNr">37381 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37382" class="LineNr">37382 </span> 68/push 0/imm32/register +<span id="L37383" class="LineNr">37383 </span> 68/push 0/imm32/register +<span id="L37384" class="LineNr">37384 </span> 68/push 8/imm32/stack-offset +<span id="L37385" class="LineNr">37385 </span> 68/push 1/imm32/block-depth +<span id="L37386" class="LineNr">37386 </span> 51/push-ecx +<span id="L37387" class="LineNr">37387 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37388" class="LineNr">37388 </span> 68/push 0/imm32/name +<span id="L37389" class="LineNr">37389 </span> 68/push 0/imm32/name +<span id="L37390" class="LineNr">37390 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37391" class="LineNr">37391 </span> 89/<- %ecx 4/r32/esp +<span id="L37392" class="LineNr">37392 </span><span class="Constant">$test-shift-mem-by-literal:initialize-var1-name</span>: +<span id="L37393" class="LineNr">37393 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37394" class="LineNr">37394 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37395" class="LineNr">37395 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37396" class="LineNr">37396 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-type</span>: +<span id="L37397" class="LineNr">37397 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37398" class="LineNr">37398 </span> 68/push 0/imm32/right:null +<span id="L37399" class="LineNr">37399 </span> 68/push 0/imm32/right:null +<span id="L37400" class="LineNr">37400 </span> 68/push 0/imm32/left:unused +<span id="L37401" class="LineNr">37401 </span> 68/push 0/imm32/value:literal +<span id="L37402" class="LineNr">37402 </span> 68/push 1/imm32/is-atom?:true +<span id="L37403" class="LineNr">37403 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37404" class="LineNr">37404 </span> 89/<- %edx 4/r32/esp +<span id="L37405" class="LineNr">37405 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal</span>: +<span id="L37406" class="LineNr">37406 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37407" class="LineNr">37407 </span> 68/push 0/imm32/register +<span id="L37408" class="LineNr">37408 </span> 68/push 0/imm32/register +<span id="L37409" class="LineNr">37409 </span> 68/push 0/imm32/no-stack-offset +<span id="L37410" class="LineNr">37410 </span> 68/push 1/imm32/block-depth +<span id="L37411" class="LineNr">37411 </span> 52/push-edx +<span id="L37412" class="LineNr">37412 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37413" class="LineNr">37413 </span> 68/push 0/imm32/name +<span id="L37414" class="LineNr">37414 </span> 68/push 0/imm32/name +<span id="L37415" class="LineNr">37415 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37416" class="LineNr">37416 </span> 89/<- %edx 4/r32/esp +<span id="L37417" class="LineNr">37417 </span><span class="Constant">$test-shift-mem-by-literal:initialize-literal-value</span>: +<span id="L37418" class="LineNr">37418 </span> <span class="subxComment"># l->name = "3"</span> +<span id="L37419" class="LineNr">37419 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37420" class="LineNr">37420 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"3"</span> %eax) +<span id="L37421" class="LineNr">37421 </span><span class="Constant">$test-shift-mem-by-literal:initialize-inouts</span>: +<span id="L37422" class="LineNr">37422 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37423" class="LineNr">37423 </span> 68/push 0/imm32/is-deref:false +<span id="L37424" class="LineNr">37424 </span> 68/push 0/imm32/next +<span id="L37425" class="LineNr">37425 </span> 68/push 0/imm32/next +<span id="L37426" class="LineNr">37426 </span> 52/push-edx/l +<span id="L37427" class="LineNr">37427 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37428" class="LineNr">37428 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37429" class="LineNr">37429 </span> 89/<- %esi 4/r32/esp +<span id="L37430" class="LineNr">37430 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L37431" class="LineNr">37431 </span> 68/push 0/imm32/is-deref:false +<span id="L37432" class="LineNr">37432 </span> 56/push-esi/next +<span id="L37433" class="LineNr">37433 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37434" class="LineNr">37434 </span> 51/push-ecx/var1 +<span id="L37435" class="LineNr">37435 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37436" class="LineNr">37436 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37437" class="LineNr">37437 </span> 89/<- %esi 4/r32/esp +<span id="L37438" class="LineNr">37438 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt</span>: +<span id="L37439" class="LineNr">37439 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37440" class="LineNr">37440 </span> 68/push 0/imm32/next +<span id="L37441" class="LineNr">37441 </span> 68/push 0/imm32/next +<span id="L37442" class="LineNr">37442 </span> 68/push 0/imm32/outputs +<span id="L37443" class="LineNr">37443 </span> 68/push 0/imm32/outputs +<span id="L37444" class="LineNr">37444 </span> 56/push-esi/inouts +<span id="L37445" class="LineNr">37445 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37446" class="LineNr">37446 </span> 68/push 0/imm32/operation +<span id="L37447" class="LineNr">37447 </span> 68/push 0/imm32/operation +<span id="L37448" class="LineNr">37448 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37449" class="LineNr">37449 </span> 89/<- %esi 4/r32/esp +<span id="L37450" class="LineNr">37450 </span><span class="Constant">$test-shift-mem-by-literal:initialize-stmt-operation</span>: +<span id="L37451" class="LineNr">37451 </span> <span class="subxComment"># stmt->operation = "shift-left"</span> +<span id="L37452" class="LineNr">37452 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37453" class="LineNr">37453 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"shift-left"</span> %eax) +<span id="L37454" class="LineNr">37454 </span> <span class="subxComment"># convert</span> +<span id="L37455" class="LineNr">37455 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37456" class="LineNr">37456 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37457" class="LineNr">37457 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37458" class="Folded">37458 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37464" class="LineNr">37464 </span> <span class="subxComment"># check output</span> +<span id="L37465" class="LineNr">37465 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"c1/shift 4/subop/left *(ebp+0x00000008) 3/imm8"</span> <span class="Constant">"F - test-shift-mem-by-literal"</span>) +<span id="L37466" class="LineNr">37466 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37467" class="LineNr">37467 </span> 89/<- %esp 5/r32/ebp +<span id="L37468" class="LineNr">37468 </span> 5d/pop-to-ebp +<span id="L37469" class="LineNr">37469 </span> c3/return +<span id="L37470" class="LineNr">37470 </span> +<span id="L37471" class="LineNr">37471 </span><span class="subxTest">test-compare-reg-with-reg</span>: +<span id="L37472" class="LineNr">37472 </span> <span class="subxComment"># compare var1/ecx, var2/eax</span> +<span id="L37473" class="LineNr">37473 </span> <span class="subxComment"># =></span> +<span id="L37474" class="LineNr">37474 </span> <span class="subxComment"># 39/compare %ecx 0/r32/eax</span> +<span id="L37475" class="LineNr">37475 </span> <span class="subxComment">#</span> +<span id="L37476" class="LineNr">37476 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37477" class="LineNr">37477 </span> 55/push-ebp +<span id="L37478" class="LineNr">37478 </span> 89/<- %ebp 4/r32/esp +<span id="L37479" class="LineNr">37479 </span> <span class="subxComment"># setup</span> +<span id="L37480" class="LineNr">37480 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37481" class="LineNr">37481 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37482" class="LineNr">37482 </span><span class="Constant">$test-compare-reg-with-reg:initialize-type</span>: +<span id="L37483" class="LineNr">37483 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37484" class="LineNr">37484 </span> 68/push 0/imm32/right:null +<span id="L37485" class="LineNr">37485 </span> 68/push 0/imm32/right:null +<span id="L37486" class="LineNr">37486 </span> 68/push 0/imm32/left:unused +<span id="L37487" class="LineNr">37487 </span> 68/push 1/imm32/value:int +<span id="L37488" class="LineNr">37488 </span> 68/push 1/imm32/is-atom?:true +<span id="L37489" class="LineNr">37489 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37490" class="LineNr">37490 </span> 89/<- %ecx 4/r32/esp +<span id="L37491" class="LineNr">37491 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1</span>: +<span id="L37492" class="LineNr">37492 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37493" class="LineNr">37493 </span> 68/push 0/imm32/register +<span id="L37494" class="LineNr">37494 </span> 68/push 0/imm32/register +<span id="L37495" class="LineNr">37495 </span> 68/push 0/imm32/no-stack-offset +<span id="L37496" class="LineNr">37496 </span> 68/push 1/imm32/block-depth +<span id="L37497" class="LineNr">37497 </span> 51/push-ecx +<span id="L37498" class="LineNr">37498 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37499" class="LineNr">37499 </span> 68/push 0/imm32/name +<span id="L37500" class="LineNr">37500 </span> 68/push 0/imm32/name +<span id="L37501" class="LineNr">37501 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37502" class="LineNr">37502 </span> 89/<- %ecx 4/r32/esp +<span id="L37503" class="LineNr">37503 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-name</span>: +<span id="L37504" class="LineNr">37504 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37505" class="LineNr">37505 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37506" class="LineNr">37506 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37507" class="LineNr">37507 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var1-register</span>: +<span id="L37508" class="LineNr">37508 </span> <span class="subxComment"># var1->register = "ecx"</span> +<span id="L37509" class="LineNr">37509 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37510" class="LineNr">37510 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L37511" class="LineNr">37511 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2</span>: +<span id="L37512" class="LineNr">37512 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37513" class="LineNr">37513 </span> 68/push 0/imm32/register +<span id="L37514" class="LineNr">37514 </span> 68/push 0/imm32/register +<span id="L37515" class="LineNr">37515 </span> 68/push 0/imm32/no-stack-offset +<span id="L37516" class="LineNr">37516 </span> 68/push 1/imm32/block-depth +<span id="L37517" class="LineNr">37517 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37518" class="LineNr">37518 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37519" class="LineNr">37519 </span> 68/push 0/imm32/name +<span id="L37520" class="LineNr">37520 </span> 68/push 0/imm32/name +<span id="L37521" class="LineNr">37521 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37522" class="LineNr">37522 </span> 89/<- %edx 4/r32/esp +<span id="L37523" class="LineNr">37523 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-name</span>: +<span id="L37524" class="LineNr">37524 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37525" class="LineNr">37525 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37526" class="LineNr">37526 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L37527" class="LineNr">37527 </span><span class="Constant">$test-compare-reg-with-reg:initialize-var2-register</span>: +<span id="L37528" class="LineNr">37528 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L37529" class="LineNr">37529 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37530" class="LineNr">37530 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37531" class="LineNr">37531 </span><span class="Constant">$test-compare-reg-with-reg:initialize-inouts</span>: +<span id="L37532" class="LineNr">37532 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37533" class="LineNr">37533 </span> 68/push 0/imm32/is-deref:false +<span id="L37534" class="LineNr">37534 </span> 68/push 0/imm32/next +<span id="L37535" class="LineNr">37535 </span> 68/push 0/imm32/next +<span id="L37536" class="LineNr">37536 </span> 52/push-edx/var2 +<span id="L37537" class="LineNr">37537 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37538" class="LineNr">37538 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37539" class="LineNr">37539 </span> 89/<- %esi 4/r32/esp +<span id="L37540" class="LineNr">37540 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L37541" class="LineNr">37541 </span> 68/push 0/imm32/is-deref:false +<span id="L37542" class="LineNr">37542 </span> 56/push-esi/next +<span id="L37543" class="LineNr">37543 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37544" class="LineNr">37544 </span> 51/push-ecx/var1 +<span id="L37545" class="LineNr">37545 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37546" class="LineNr">37546 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37547" class="LineNr">37547 </span> 89/<- %esi 4/r32/esp +<span id="L37548" class="LineNr">37548 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt</span>: +<span id="L37549" class="LineNr">37549 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37550" class="LineNr">37550 </span> 68/push 0/imm32/next +<span id="L37551" class="LineNr">37551 </span> 68/push 0/imm32/next +<span id="L37552" class="LineNr">37552 </span> 68/push 0/imm32/outputs +<span id="L37553" class="LineNr">37553 </span> 68/push 0/imm32/outputs +<span id="L37554" class="LineNr">37554 </span> 56/push-esi/inouts +<span id="L37555" class="LineNr">37555 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37556" class="LineNr">37556 </span> 68/push 0/imm32/operation +<span id="L37557" class="LineNr">37557 </span> 68/push 0/imm32/operation +<span id="L37558" class="LineNr">37558 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37559" class="LineNr">37559 </span> 89/<- %esi 4/r32/esp +<span id="L37560" class="LineNr">37560 </span><span class="Constant">$test-compare-reg-with-reg:initialize-stmt-operation</span>: +<span id="L37561" class="LineNr">37561 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L37562" class="LineNr">37562 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37563" class="LineNr">37563 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L37564" class="LineNr">37564 </span> <span class="subxComment"># convert</span> +<span id="L37565" class="LineNr">37565 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37566" class="LineNr">37566 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37567" class="LineNr">37567 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37568" class="Folded">37568 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37574" class="LineNr">37574 </span> <span class="subxComment"># check output</span> +<span id="L37575" class="LineNr">37575 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"39/compare-> %ecx 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-reg"</span>) +<span id="L37576" class="LineNr">37576 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37577" class="LineNr">37577 </span> 89/<- %esp 5/r32/ebp +<span id="L37578" class="LineNr">37578 </span> 5d/pop-to-ebp +<span id="L37579" class="LineNr">37579 </span> c3/return +<span id="L37580" class="LineNr">37580 </span> +<span id="L37581" class="LineNr">37581 </span><span class="subxTest">test-compare-mem-with-reg</span>: +<span id="L37582" class="LineNr">37582 </span> <span class="subxComment"># compare var1, var2/eax</span> +<span id="L37583" class="LineNr">37583 </span> <span class="subxComment"># =></span> +<span id="L37584" class="LineNr">37584 </span> <span class="subxComment"># 39/compare *(ebp+___) 0/r32/eax</span> +<span id="L37585" class="LineNr">37585 </span> <span class="subxComment">#</span> +<span id="L37586" class="LineNr">37586 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37587" class="LineNr">37587 </span> 55/push-ebp +<span id="L37588" class="LineNr">37588 </span> 89/<- %ebp 4/r32/esp +<span id="L37589" class="LineNr">37589 </span> <span class="subxComment"># setup</span> +<span id="L37590" class="LineNr">37590 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37591" class="LineNr">37591 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37592" class="LineNr">37592 </span><span class="Constant">$test-compare-mem-with-reg:initialize-type</span>: +<span id="L37593" class="LineNr">37593 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37594" class="LineNr">37594 </span> 68/push 0/imm32/right:null +<span id="L37595" class="LineNr">37595 </span> 68/push 0/imm32/right:null +<span id="L37596" class="LineNr">37596 </span> 68/push 0/imm32/left:unused +<span id="L37597" class="LineNr">37597 </span> 68/push 1/imm32/value:int +<span id="L37598" class="LineNr">37598 </span> 68/push 1/imm32/is-atom?:true +<span id="L37599" class="LineNr">37599 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37600" class="LineNr">37600 </span> 89/<- %ecx 4/r32/esp +<span id="L37601" class="LineNr">37601 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1</span>: +<span id="L37602" class="LineNr">37602 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37603" class="LineNr">37603 </span> 68/push 0/imm32/register +<span id="L37604" class="LineNr">37604 </span> 68/push 0/imm32/register +<span id="L37605" class="LineNr">37605 </span> 68/push 8/imm32/stack-offset +<span id="L37606" class="LineNr">37606 </span> 68/push 1/imm32/block-depth +<span id="L37607" class="LineNr">37607 </span> 51/push-ecx +<span id="L37608" class="LineNr">37608 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37609" class="LineNr">37609 </span> 68/push 0/imm32/name +<span id="L37610" class="LineNr">37610 </span> 68/push 0/imm32/name +<span id="L37611" class="LineNr">37611 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37612" class="LineNr">37612 </span> 89/<- %ecx 4/r32/esp +<span id="L37613" class="LineNr">37613 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var1-name</span>: +<span id="L37614" class="LineNr">37614 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37615" class="LineNr">37615 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37616" class="LineNr">37616 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37617" class="LineNr">37617 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2</span>: +<span id="L37618" class="LineNr">37618 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37619" class="LineNr">37619 </span> 68/push 0/imm32/register +<span id="L37620" class="LineNr">37620 </span> 68/push 0/imm32/register +<span id="L37621" class="LineNr">37621 </span> 68/push 0/imm32/no-stack-offset +<span id="L37622" class="LineNr">37622 </span> 68/push 1/imm32/block-depth +<span id="L37623" class="LineNr">37623 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37624" class="LineNr">37624 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37625" class="LineNr">37625 </span> 68/push 0/imm32/name +<span id="L37626" class="LineNr">37626 </span> 68/push 0/imm32/name +<span id="L37627" class="LineNr">37627 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37628" class="LineNr">37628 </span> 89/<- %edx 4/r32/esp +<span id="L37629" class="LineNr">37629 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-name</span>: +<span id="L37630" class="LineNr">37630 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37631" class="LineNr">37631 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37632" class="LineNr">37632 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L37633" class="LineNr">37633 </span><span class="Constant">$test-compare-mem-with-reg:initialize-var2-register</span>: +<span id="L37634" class="LineNr">37634 </span> <span class="subxComment"># var2->register = "eax"</span> +<span id="L37635" class="LineNr">37635 </span> 8d/copy-address *(edx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37636" class="LineNr">37636 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37637" class="LineNr">37637 </span><span class="Constant">$test-compare-mem-with-reg:initialize-inouts</span>: +<span id="L37638" class="LineNr">37638 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37639" class="LineNr">37639 </span> 68/push 0/imm32/is-deref:false +<span id="L37640" class="LineNr">37640 </span> 68/push 0/imm32/next +<span id="L37641" class="LineNr">37641 </span> 68/push 0/imm32/next +<span id="L37642" class="LineNr">37642 </span> 52/push-edx/var2 +<span id="L37643" class="LineNr">37643 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37644" class="LineNr">37644 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37645" class="LineNr">37645 </span> 89/<- %esi 4/r32/esp +<span id="L37646" class="LineNr">37646 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L37647" class="LineNr">37647 </span> 68/push 0/imm32/is-deref:false +<span id="L37648" class="LineNr">37648 </span> 56/push-esi/next +<span id="L37649" class="LineNr">37649 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37650" class="LineNr">37650 </span> 51/push-ecx/var1 +<span id="L37651" class="LineNr">37651 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37652" class="LineNr">37652 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37653" class="LineNr">37653 </span> 89/<- %esi 4/r32/esp +<span id="L37654" class="LineNr">37654 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt</span>: +<span id="L37655" class="LineNr">37655 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37656" class="LineNr">37656 </span> 68/push 0/imm32/next +<span id="L37657" class="LineNr">37657 </span> 68/push 0/imm32/next +<span id="L37658" class="LineNr">37658 </span> 68/push 0/imm32/outputs +<span id="L37659" class="LineNr">37659 </span> 68/push 0/imm32/outputs +<span id="L37660" class="LineNr">37660 </span> 56/push-esi/inouts +<span id="L37661" class="LineNr">37661 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37662" class="LineNr">37662 </span> 68/push 0/imm32/operation +<span id="L37663" class="LineNr">37663 </span> 68/push 0/imm32/operation +<span id="L37664" class="LineNr">37664 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37665" class="LineNr">37665 </span> 89/<- %esi 4/r32/esp +<span id="L37666" class="LineNr">37666 </span><span class="Constant">$test-compare-mem-with-reg:initialize-stmt-operation</span>: +<span id="L37667" class="LineNr">37667 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L37668" class="LineNr">37668 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37669" class="LineNr">37669 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L37670" class="LineNr">37670 </span> <span class="subxComment"># convert</span> +<span id="L37671" class="LineNr">37671 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37672" class="LineNr">37672 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37673" class="LineNr">37673 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37674" class="Folded">37674 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37680" class="LineNr">37680 </span> <span class="subxComment"># check output</span> +<span id="L37681" class="LineNr">37681 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"39/compare-> *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-mem-with-reg"</span>) +<span id="L37682" class="LineNr">37682 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37683" class="LineNr">37683 </span> 89/<- %esp 5/r32/ebp +<span id="L37684" class="LineNr">37684 </span> 5d/pop-to-ebp +<span id="L37685" class="LineNr">37685 </span> c3/return +<span id="L37686" class="LineNr">37686 </span> +<span id="L37687" class="LineNr">37687 </span><span class="subxTest">test-compare-reg-with-mem</span>: +<span id="L37688" class="LineNr">37688 </span> <span class="subxComment"># compare var1/eax, var2</span> +<span id="L37689" class="LineNr">37689 </span> <span class="subxComment"># =></span> +<span id="L37690" class="LineNr">37690 </span> <span class="subxComment"># 3b/compare<- *(ebp+___) 0/r32/eax</span> +<span id="L37691" class="LineNr">37691 </span> <span class="subxComment">#</span> +<span id="L37692" class="LineNr">37692 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37693" class="LineNr">37693 </span> 55/push-ebp +<span id="L37694" class="LineNr">37694 </span> 89/<- %ebp 4/r32/esp +<span id="L37695" class="LineNr">37695 </span> <span class="subxComment"># setup</span> +<span id="L37696" class="LineNr">37696 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37697" class="LineNr">37697 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37698" class="LineNr">37698 </span><span class="Constant">$test-compare-reg-with-mem:initialize-type</span>: +<span id="L37699" class="LineNr">37699 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37700" class="LineNr">37700 </span> 68/push 0/imm32/right:null +<span id="L37701" class="LineNr">37701 </span> 68/push 0/imm32/right:null +<span id="L37702" class="LineNr">37702 </span> 68/push 0/imm32/left:unused +<span id="L37703" class="LineNr">37703 </span> 68/push 1/imm32/value:int +<span id="L37704" class="LineNr">37704 </span> 68/push 1/imm32/is-atom?:true +<span id="L37705" class="LineNr">37705 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37706" class="LineNr">37706 </span> 89/<- %ecx 4/r32/esp +<span id="L37707" class="LineNr">37707 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1</span>: +<span id="L37708" class="LineNr">37708 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37709" class="LineNr">37709 </span> 68/push 0/imm32/register +<span id="L37710" class="LineNr">37710 </span> 68/push 0/imm32/register +<span id="L37711" class="LineNr">37711 </span> 68/push 0/imm32/no-stack-offset +<span id="L37712" class="LineNr">37712 </span> 68/push 1/imm32/block-depth +<span id="L37713" class="LineNr">37713 </span> 51/push-ecx +<span id="L37714" class="LineNr">37714 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37715" class="LineNr">37715 </span> 68/push 0/imm32/name +<span id="L37716" class="LineNr">37716 </span> 68/push 0/imm32/name +<span id="L37717" class="LineNr">37717 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37718" class="LineNr">37718 </span> 89/<- %ecx 4/r32/esp +<span id="L37719" class="LineNr">37719 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-name</span>: +<span id="L37720" class="LineNr">37720 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37721" class="LineNr">37721 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37722" class="LineNr">37722 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37723" class="LineNr">37723 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var1-register</span>: +<span id="L37724" class="LineNr">37724 </span> <span class="subxComment"># var1->register = "eax"</span> +<span id="L37725" class="LineNr">37725 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37726" class="LineNr">37726 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37727" class="LineNr">37727 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2</span>: +<span id="L37728" class="LineNr">37728 </span> <span class="subxComment"># var var2/edx: (payload var)</span> +<span id="L37729" class="LineNr">37729 </span> 68/push 0/imm32/register +<span id="L37730" class="LineNr">37730 </span> 68/push 0/imm32/register +<span id="L37731" class="LineNr">37731 </span> 68/push 8/imm32/stack-offset +<span id="L37732" class="LineNr">37732 </span> 68/push 1/imm32/block-depth +<span id="L37733" class="LineNr">37733 </span> ff 6/subop/push *(ecx+0x10) +<span id="L37734" class="LineNr">37734 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37735" class="LineNr">37735 </span> 68/push 0/imm32/name +<span id="L37736" class="LineNr">37736 </span> 68/push 0/imm32/name +<span id="L37737" class="LineNr">37737 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37738" class="LineNr">37738 </span> 89/<- %edx 4/r32/esp +<span id="L37739" class="LineNr">37739 </span><span class="Constant">$test-compare-reg-with-mem:initialize-var2-name</span>: +<span id="L37740" class="LineNr">37740 </span> <span class="subxComment"># var2->name = "var2"</span> +<span id="L37741" class="LineNr">37741 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37742" class="LineNr">37742 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var2"</span> %eax) +<span id="L37743" class="LineNr">37743 </span><span class="Constant">$test-compare-reg-with-mem:initialize-inouts</span>: +<span id="L37744" class="LineNr">37744 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [var2]</span> +<span id="L37745" class="LineNr">37745 </span> 68/push 0/imm32/is-deref:false +<span id="L37746" class="LineNr">37746 </span> 68/push 0/imm32/next +<span id="L37747" class="LineNr">37747 </span> 68/push 0/imm32/next +<span id="L37748" class="LineNr">37748 </span> 52/push-edx/var2 +<span id="L37749" class="LineNr">37749 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37750" class="LineNr">37750 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37751" class="LineNr">37751 </span> 89/<- %esi 4/r32/esp +<span id="L37752" class="LineNr">37752 </span> <span class="subxComment"># inouts = [var1, var2]</span> +<span id="L37753" class="LineNr">37753 </span> 68/push 0/imm32/is-deref:false +<span id="L37754" class="LineNr">37754 </span> 56/push-esi/next +<span id="L37755" class="LineNr">37755 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37756" class="LineNr">37756 </span> 51/push-ecx/var1 +<span id="L37757" class="LineNr">37757 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37758" class="LineNr">37758 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37759" class="LineNr">37759 </span> 89/<- %esi 4/r32/esp +<span id="L37760" class="LineNr">37760 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt</span>: +<span id="L37761" class="LineNr">37761 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37762" class="LineNr">37762 </span> 68/push 0/imm32/next +<span id="L37763" class="LineNr">37763 </span> 68/push 0/imm32/next +<span id="L37764" class="LineNr">37764 </span> 68/push 0/imm32/outputs +<span id="L37765" class="LineNr">37765 </span> 68/push 0/imm32/outputs +<span id="L37766" class="LineNr">37766 </span> 56/push-esi/inouts +<span id="L37767" class="LineNr">37767 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37768" class="LineNr">37768 </span> 68/push 0/imm32/operation +<span id="L37769" class="LineNr">37769 </span> 68/push 0/imm32/operation +<span id="L37770" class="LineNr">37770 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37771" class="LineNr">37771 </span> 89/<- %esi 4/r32/esp +<span id="L37772" class="LineNr">37772 </span><span class="Constant">$test-compare-reg-with-mem:initialize-stmt-operation</span>: +<span id="L37773" class="LineNr">37773 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L37774" class="LineNr">37774 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37775" class="LineNr">37775 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L37776" class="LineNr">37776 </span> <span class="subxComment"># convert</span> +<span id="L37777" class="LineNr">37777 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37778" class="LineNr">37778 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37779" class="LineNr">37779 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37780" class="Folded">37780 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37786" class="LineNr">37786 </span> <span class="subxComment"># check output</span> +<span id="L37787" class="LineNr">37787 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"3b/compare<- *(ebp+0x00000008) 0x00000000/r32"</span> <span class="Constant">"F - test-compare-reg-with-mem"</span>) +<span id="L37788" class="LineNr">37788 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37789" class="LineNr">37789 </span> 89/<- %esp 5/r32/ebp +<span id="L37790" class="LineNr">37790 </span> 5d/pop-to-ebp +<span id="L37791" class="LineNr">37791 </span> c3/return +<span id="L37792" class="LineNr">37792 </span> +<span id="L37793" class="LineNr">37793 </span><span class="subxTest">test-compare-mem-with-literal</span>: +<span id="L37794" class="LineNr">37794 </span> <span class="subxComment"># compare var1, 0x34</span> +<span id="L37795" class="LineNr">37795 </span> <span class="subxComment"># =></span> +<span id="L37796" class="LineNr">37796 </span> <span class="subxComment"># 81 7/subop/compare *(ebp+___) 0x34/imm32</span> +<span id="L37797" class="LineNr">37797 </span> <span class="subxComment">#</span> +<span id="L37798" class="LineNr">37798 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37799" class="LineNr">37799 </span> 55/push-ebp +<span id="L37800" class="LineNr">37800 </span> 89/<- %ebp 4/r32/esp +<span id="L37801" class="LineNr">37801 </span> <span class="subxComment"># setup</span> +<span id="L37802" class="LineNr">37802 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37803" class="LineNr">37803 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37804" class="LineNr">37804 </span><span class="Constant">$test-compare-mem-with-literal:initialize-type</span>: +<span id="L37805" class="LineNr">37805 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37806" class="LineNr">37806 </span> 68/push 0/imm32/right:null +<span id="L37807" class="LineNr">37807 </span> 68/push 0/imm32/right:null +<span id="L37808" class="LineNr">37808 </span> 68/push 0/imm32/left:unused +<span id="L37809" class="LineNr">37809 </span> 68/push 1/imm32/value:int +<span id="L37810" class="LineNr">37810 </span> 68/push 1/imm32/is-atom?:true +<span id="L37811" class="LineNr">37811 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37812" class="LineNr">37812 </span> 89/<- %ecx 4/r32/esp +<span id="L37813" class="LineNr">37813 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1</span>: +<span id="L37814" class="LineNr">37814 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37815" class="LineNr">37815 </span> 68/push 0/imm32/register +<span id="L37816" class="LineNr">37816 </span> 68/push 0/imm32/register +<span id="L37817" class="LineNr">37817 </span> 68/push 8/imm32/stack-offset +<span id="L37818" class="LineNr">37818 </span> 68/push 1/imm32/block-depth +<span id="L37819" class="LineNr">37819 </span> 51/push-ecx +<span id="L37820" class="LineNr">37820 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37821" class="LineNr">37821 </span> 68/push 0/imm32/name +<span id="L37822" class="LineNr">37822 </span> 68/push 0/imm32/name +<span id="L37823" class="LineNr">37823 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37824" class="LineNr">37824 </span> 89/<- %ecx 4/r32/esp +<span id="L37825" class="LineNr">37825 </span><span class="Constant">$test-compare-mem-with-literal:initialize-var1-name</span>: +<span id="L37826" class="LineNr">37826 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37827" class="LineNr">37827 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37828" class="LineNr">37828 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37829" class="LineNr">37829 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-type</span>: +<span id="L37830" class="LineNr">37830 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37831" class="LineNr">37831 </span> 68/push 0/imm32/right:null +<span id="L37832" class="LineNr">37832 </span> 68/push 0/imm32/right:null +<span id="L37833" class="LineNr">37833 </span> 68/push 0/imm32/left:unused +<span id="L37834" class="LineNr">37834 </span> 68/push 0/imm32/value:literal +<span id="L37835" class="LineNr">37835 </span> 68/push 1/imm32/is-atom?:true +<span id="L37836" class="LineNr">37836 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37837" class="LineNr">37837 </span> 89/<- %edx 4/r32/esp +<span id="L37838" class="LineNr">37838 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal</span>: +<span id="L37839" class="LineNr">37839 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37840" class="LineNr">37840 </span> 68/push 0/imm32/register +<span id="L37841" class="LineNr">37841 </span> 68/push 0/imm32/register +<span id="L37842" class="LineNr">37842 </span> 68/push 0/imm32/no-stack-offset +<span id="L37843" class="LineNr">37843 </span> 68/push 1/imm32/block-depth +<span id="L37844" class="LineNr">37844 </span> 52/push-edx +<span id="L37845" class="LineNr">37845 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37846" class="LineNr">37846 </span> 68/push 0/imm32/name +<span id="L37847" class="LineNr">37847 </span> 68/push 0/imm32/name +<span id="L37848" class="LineNr">37848 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37849" class="LineNr">37849 </span> 89/<- %edx 4/r32/esp +<span id="L37850" class="LineNr">37850 </span><span class="Constant">$test-compare-mem-with-literal:initialize-literal-value</span>: +<span id="L37851" class="LineNr">37851 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37852" class="LineNr">37852 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37853" class="LineNr">37853 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L37854" class="LineNr">37854 </span><span class="Constant">$test-compare-mem-with-literal:initialize-inouts</span>: +<span id="L37855" class="LineNr">37855 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37856" class="LineNr">37856 </span> 68/push 0/imm32/is-deref:false +<span id="L37857" class="LineNr">37857 </span> 68/push 0/imm32/next +<span id="L37858" class="LineNr">37858 </span> 68/push 0/imm32/next +<span id="L37859" class="LineNr">37859 </span> 52/push-edx/l +<span id="L37860" class="LineNr">37860 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37861" class="LineNr">37861 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37862" class="LineNr">37862 </span> 89/<- %esi 4/r32/esp +<span id="L37863" class="LineNr">37863 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L37864" class="LineNr">37864 </span> 68/push 0/imm32/is-deref:false +<span id="L37865" class="LineNr">37865 </span> 56/push-esi/next +<span id="L37866" class="LineNr">37866 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37867" class="LineNr">37867 </span> 51/push-ecx/var1 +<span id="L37868" class="LineNr">37868 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37869" class="LineNr">37869 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37870" class="LineNr">37870 </span> 89/<- %esi 4/r32/esp +<span id="L37871" class="LineNr">37871 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt</span>: +<span id="L37872" class="LineNr">37872 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37873" class="LineNr">37873 </span> 68/push 0/imm32/next +<span id="L37874" class="LineNr">37874 </span> 68/push 0/imm32/next +<span id="L37875" class="LineNr">37875 </span> 68/push 0/imm32/outputs +<span id="L37876" class="LineNr">37876 </span> 68/push 0/imm32/outputs +<span id="L37877" class="LineNr">37877 </span> 56/push-esi/inouts +<span id="L37878" class="LineNr">37878 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37879" class="LineNr">37879 </span> 68/push 0/imm32/operation +<span id="L37880" class="LineNr">37880 </span> 68/push 0/imm32/operation +<span id="L37881" class="LineNr">37881 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37882" class="LineNr">37882 </span> 89/<- %esi 4/r32/esp +<span id="L37883" class="LineNr">37883 </span><span class="Constant">$test-compare-mem-with-literal:initialize-stmt-operation</span>: +<span id="L37884" class="LineNr">37884 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L37885" class="LineNr">37885 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L37886" class="LineNr">37886 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L37887" class="LineNr">37887 </span> <span class="subxComment"># convert</span> +<span id="L37888" class="LineNr">37888 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L37889" class="LineNr">37889 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L37890" class="LineNr">37890 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L37891" class="Folded">37891 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L37897" class="LineNr">37897 </span> <span class="subxComment"># check output</span> +<span id="L37898" class="LineNr">37898 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare *(ebp+0x00000008) 0x34/imm32"</span> <span class="Constant">"F - test-compare-mem-with-literal"</span>) +<span id="L37899" class="LineNr">37899 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L37900" class="LineNr">37900 </span> 89/<- %esp 5/r32/ebp +<span id="L37901" class="LineNr">37901 </span> 5d/pop-to-ebp +<span id="L37902" class="LineNr">37902 </span> c3/return +<span id="L37903" class="LineNr">37903 </span> +<span id="L37904" class="LineNr">37904 </span><span class="subxTest">test-compare-eax-with-literal</span>: +<span id="L37905" class="LineNr">37905 </span> <span class="subxComment"># compare var1/eax 0x34</span> +<span id="L37906" class="LineNr">37906 </span> <span class="subxComment"># =></span> +<span id="L37907" class="LineNr">37907 </span> <span class="subxComment"># 3d/compare-eax-with 0x34/imm32</span> +<span id="L37908" class="LineNr">37908 </span> <span class="subxComment">#</span> +<span id="L37909" class="LineNr">37909 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L37910" class="LineNr">37910 </span> 55/push-ebp +<span id="L37911" class="LineNr">37911 </span> 89/<- %ebp 4/r32/esp +<span id="L37912" class="LineNr">37912 </span> <span class="subxComment"># setup</span> +<span id="L37913" class="LineNr">37913 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L37914" class="LineNr">37914 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L37915" class="LineNr">37915 </span><span class="Constant">$test-compare-eax-with-literal:initialize-type</span>: +<span id="L37916" class="LineNr">37916 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L37917" class="LineNr">37917 </span> 68/push 0/imm32/right:null +<span id="L37918" class="LineNr">37918 </span> 68/push 0/imm32/right:null +<span id="L37919" class="LineNr">37919 </span> 68/push 0/imm32/left:unused +<span id="L37920" class="LineNr">37920 </span> 68/push 1/imm32/value:int +<span id="L37921" class="LineNr">37921 </span> 68/push 1/imm32/is-atom?:true +<span id="L37922" class="LineNr">37922 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37923" class="LineNr">37923 </span> 89/<- %ecx 4/r32/esp +<span id="L37924" class="LineNr">37924 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1</span>: +<span id="L37925" class="LineNr">37925 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L37926" class="LineNr">37926 </span> 68/push 0/imm32/register +<span id="L37927" class="LineNr">37927 </span> 68/push 0/imm32/register +<span id="L37928" class="LineNr">37928 </span> 68/push 0/imm32/no-stack-offset +<span id="L37929" class="LineNr">37929 </span> 68/push 1/imm32/block-depth +<span id="L37930" class="LineNr">37930 </span> 51/push-ecx +<span id="L37931" class="LineNr">37931 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37932" class="LineNr">37932 </span> 68/push 0/imm32/name +<span id="L37933" class="LineNr">37933 </span> 68/push 0/imm32/name +<span id="L37934" class="LineNr">37934 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37935" class="LineNr">37935 </span> 89/<- %ecx 4/r32/esp +<span id="L37936" class="LineNr">37936 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-name</span>: +<span id="L37937" class="LineNr">37937 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L37938" class="LineNr">37938 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37939" class="LineNr">37939 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L37940" class="LineNr">37940 </span><span class="Constant">$test-compare-eax-with-literal:initialize-var1-register</span>: +<span id="L37941" class="LineNr">37941 </span> <span class="subxComment"># v->register = "eax"</span> +<span id="L37942" class="LineNr">37942 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L37943" class="LineNr">37943 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"eax"</span> %eax) +<span id="L37944" class="LineNr">37944 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-type</span>: +<span id="L37945" class="LineNr">37945 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L37946" class="LineNr">37946 </span> 68/push 0/imm32/right:null +<span id="L37947" class="LineNr">37947 </span> 68/push 0/imm32/right:null +<span id="L37948" class="LineNr">37948 </span> 68/push 0/imm32/left:unused +<span id="L37949" class="LineNr">37949 </span> 68/push 0/imm32/value:literal +<span id="L37950" class="LineNr">37950 </span> 68/push 1/imm32/is-atom?:true +<span id="L37951" class="LineNr">37951 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37952" class="LineNr">37952 </span> 89/<- %edx 4/r32/esp +<span id="L37953" class="LineNr">37953 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal</span>: +<span id="L37954" class="LineNr">37954 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L37955" class="LineNr">37955 </span> 68/push 0/imm32/register +<span id="L37956" class="LineNr">37956 </span> 68/push 0/imm32/register +<span id="L37957" class="LineNr">37957 </span> 68/push 0/imm32/no-stack-offset +<span id="L37958" class="LineNr">37958 </span> 68/push 1/imm32/block-depth +<span id="L37959" class="LineNr">37959 </span> 52/push-edx +<span id="L37960" class="LineNr">37960 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37961" class="LineNr">37961 </span> 68/push 0/imm32/name +<span id="L37962" class="LineNr">37962 </span> 68/push 0/imm32/name +<span id="L37963" class="LineNr">37963 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37964" class="LineNr">37964 </span> 89/<- %edx 4/r32/esp +<span id="L37965" class="LineNr">37965 </span><span class="Constant">$test-compare-eax-with-literal:initialize-literal-value</span>: +<span id="L37966" class="LineNr">37966 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L37967" class="LineNr">37967 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L37968" class="LineNr">37968 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L37969" class="LineNr">37969 </span><span class="Constant">$test-compare-eax-with-literal:initialize-inouts</span>: +<span id="L37970" class="LineNr">37970 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L37971" class="LineNr">37971 </span> 68/push 0/imm32/is-deref:false +<span id="L37972" class="LineNr">37972 </span> 68/push 0/imm32/next +<span id="L37973" class="LineNr">37973 </span> 68/push 0/imm32/next +<span id="L37974" class="LineNr">37974 </span> 52/push-edx/l +<span id="L37975" class="LineNr">37975 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37976" class="LineNr">37976 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37977" class="LineNr">37977 </span> 89/<- %esi 4/r32/esp +<span id="L37978" class="LineNr">37978 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L37979" class="LineNr">37979 </span> 68/push 0/imm32/is-deref:false +<span id="L37980" class="LineNr">37980 </span> 56/push-esi/next +<span id="L37981" class="LineNr">37981 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37982" class="LineNr">37982 </span> 51/push-ecx/var1 +<span id="L37983" class="LineNr">37983 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37984" class="LineNr">37984 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L37985" class="LineNr">37985 </span> 89/<- %esi 4/r32/esp +<span id="L37986" class="LineNr">37986 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt</span>: +<span id="L37987" class="LineNr">37987 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L37988" class="LineNr">37988 </span> 68/push 0/imm32/next +<span id="L37989" class="LineNr">37989 </span> 68/push 0/imm32/next +<span id="L37990" class="LineNr">37990 </span> 68/push 0/imm32/outputs +<span id="L37991" class="LineNr">37991 </span> 68/push 0/imm32/outputs +<span id="L37992" class="LineNr">37992 </span> 56/push-esi/inouts +<span id="L37993" class="LineNr">37993 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L37994" class="LineNr">37994 </span> 68/push 0/imm32/operation +<span id="L37995" class="LineNr">37995 </span> 68/push 0/imm32/operation +<span id="L37996" class="LineNr">37996 </span> 68/push 1/imm32/tag:stmt1 +<span id="L37997" class="LineNr">37997 </span> 89/<- %esi 4/r32/esp +<span id="L37998" class="LineNr">37998 </span><span class="Constant">$test-compare-eax-with-literal:initialize-stmt-operation</span>: +<span id="L37999" class="LineNr">37999 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38000" class="LineNr">38000 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38001" class="LineNr">38001 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38002" class="LineNr">38002 </span> <span class="subxComment"># convert</span> +<span id="L38003" class="LineNr">38003 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L38004" class="LineNr">38004 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38005" class="LineNr">38005 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38006" class="Folded">38006 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38012" class="LineNr">38012 </span> <span class="subxComment"># check output</span> +<span id="L38013" class="LineNr">38013 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"3d/compare-eax-with 0x34/imm32"</span> <span class="Constant">"F - test-compare-eax-with-literal"</span>) +<span id="L38014" class="LineNr">38014 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38015" class="LineNr">38015 </span> 89/<- %esp 5/r32/ebp +<span id="L38016" class="LineNr">38016 </span> 5d/pop-to-ebp +<span id="L38017" class="LineNr">38017 </span> c3/return +<span id="L38018" class="LineNr">38018 </span> +<span id="L38019" class="LineNr">38019 </span><span class="subxTest">test-compare-reg-with-literal</span>: +<span id="L38020" class="LineNr">38020 </span> <span class="subxComment"># compare var1/ecx 0x34</span> +<span id="L38021" class="LineNr">38021 </span> <span class="subxComment"># =></span> +<span id="L38022" class="LineNr">38022 </span> <span class="subxComment"># 81 7/subop/compare %ecx 0x34/imm32</span> +<span id="L38023" class="LineNr">38023 </span> <span class="subxComment">#</span> +<span id="L38024" class="LineNr">38024 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38025" class="LineNr">38025 </span> 55/push-ebp +<span id="L38026" class="LineNr">38026 </span> 89/<- %ebp 4/r32/esp +<span id="L38027" class="LineNr">38027 </span> <span class="subxComment"># setup</span> +<span id="L38028" class="LineNr">38028 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38029" class="LineNr">38029 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38030" class="LineNr">38030 </span><span class="Constant">$test-compare-reg-with-literal:initialize-type</span>: +<span id="L38031" class="LineNr">38031 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38032" class="LineNr">38032 </span> 68/push 0/imm32/right:null +<span id="L38033" class="LineNr">38033 </span> 68/push 0/imm32/right:null +<span id="L38034" class="LineNr">38034 </span> 68/push 0/imm32/left:unused +<span id="L38035" class="LineNr">38035 </span> 68/push 1/imm32/value:int +<span id="L38036" class="LineNr">38036 </span> 68/push 1/imm32/is-atom?:true +<span id="L38037" class="LineNr">38037 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38038" class="LineNr">38038 </span> 89/<- %ecx 4/r32/esp +<span id="L38039" class="LineNr">38039 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1</span>: +<span id="L38040" class="LineNr">38040 </span> <span class="subxComment"># var var1/ecx: (payload var)</span> +<span id="L38041" class="LineNr">38041 </span> 68/push 0/imm32/register +<span id="L38042" class="LineNr">38042 </span> 68/push 0/imm32/register +<span id="L38043" class="LineNr">38043 </span> 68/push 0/imm32/no-stack-offset +<span id="L38044" class="LineNr">38044 </span> 68/push 1/imm32/block-depth +<span id="L38045" class="LineNr">38045 </span> 51/push-ecx +<span id="L38046" class="LineNr">38046 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38047" class="LineNr">38047 </span> 68/push 0/imm32/name +<span id="L38048" class="LineNr">38048 </span> 68/push 0/imm32/name +<span id="L38049" class="LineNr">38049 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38050" class="LineNr">38050 </span> 89/<- %ecx 4/r32/esp +<span id="L38051" class="LineNr">38051 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-name</span>: +<span id="L38052" class="LineNr">38052 </span> <span class="subxComment"># var1->name = "var1"</span> +<span id="L38053" class="LineNr">38053 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38054" class="LineNr">38054 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"var1"</span> %eax) +<span id="L38055" class="LineNr">38055 </span><span class="Constant">$test-compare-reg-with-literal:initialize-var1-register</span>: +<span id="L38056" class="LineNr">38056 </span> <span class="subxComment"># v->register = "ecx"</span> +<span id="L38057" class="LineNr">38057 </span> 8d/copy-address *(ecx+0x1c) 0/r32/eax <span class="subxComment"># Var-register + 4</span> +<span id="L38058" class="LineNr">38058 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"ecx"</span> %eax) +<span id="L38059" class="LineNr">38059 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-type</span>: +<span id="L38060" class="LineNr">38060 </span> <span class="subxComment"># var type/edx: (payload type-tree) = literal</span> +<span id="L38061" class="LineNr">38061 </span> 68/push 0/imm32/right:null +<span id="L38062" class="LineNr">38062 </span> 68/push 0/imm32/right:null +<span id="L38063" class="LineNr">38063 </span> 68/push 0/imm32/left:unused +<span id="L38064" class="LineNr">38064 </span> 68/push 0/imm32/value:literal +<span id="L38065" class="LineNr">38065 </span> 68/push 1/imm32/is-atom?:true +<span id="L38066" class="LineNr">38066 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38067" class="LineNr">38067 </span> 89/<- %edx 4/r32/esp +<span id="L38068" class="LineNr">38068 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal</span>: +<span id="L38069" class="LineNr">38069 </span> <span class="subxComment"># var l/edx: (payload var)</span> +<span id="L38070" class="LineNr">38070 </span> 68/push 0/imm32/register +<span id="L38071" class="LineNr">38071 </span> 68/push 0/imm32/register +<span id="L38072" class="LineNr">38072 </span> 68/push 0/imm32/no-stack-offset +<span id="L38073" class="LineNr">38073 </span> 68/push 1/imm32/block-depth +<span id="L38074" class="LineNr">38074 </span> 52/push-edx +<span id="L38075" class="LineNr">38075 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38076" class="LineNr">38076 </span> 68/push 0/imm32/name +<span id="L38077" class="LineNr">38077 </span> 68/push 0/imm32/name +<span id="L38078" class="LineNr">38078 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38079" class="LineNr">38079 </span> 89/<- %edx 4/r32/esp +<span id="L38080" class="LineNr">38080 </span><span class="Constant">$test-compare-reg-with-literal:initialize-literal-value</span>: +<span id="L38081" class="LineNr">38081 </span> <span class="subxComment"># l->name = "0x34"</span> +<span id="L38082" class="LineNr">38082 </span> 8d/copy-address *(edx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38083" class="LineNr">38083 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L38084" class="LineNr">38084 </span><span class="Constant">$test-compare-reg-with-literal:initialize-inouts</span>: +<span id="L38085" class="LineNr">38085 </span> <span class="subxComment"># var inouts/esi: (payload stmt-var) = [l]</span> +<span id="L38086" class="LineNr">38086 </span> 68/push 0/imm32/is-deref:false +<span id="L38087" class="LineNr">38087 </span> 68/push 0/imm32/next +<span id="L38088" class="LineNr">38088 </span> 68/push 0/imm32/next +<span id="L38089" class="LineNr">38089 </span> 52/push-edx/l +<span id="L38090" class="LineNr">38090 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38091" class="LineNr">38091 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38092" class="LineNr">38092 </span> 89/<- %esi 4/r32/esp +<span id="L38093" class="LineNr">38093 </span> <span class="subxComment"># var inouts = (handle stmt-var) = [var1, var2]</span> +<span id="L38094" class="LineNr">38094 </span> 68/push 0/imm32/is-deref:false +<span id="L38095" class="LineNr">38095 </span> 56/push-esi/next +<span id="L38096" class="LineNr">38096 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38097" class="LineNr">38097 </span> 51/push-ecx/var1 +<span id="L38098" class="LineNr">38098 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38099" class="LineNr">38099 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38100" class="LineNr">38100 </span> 89/<- %esi 4/r32/esp +<span id="L38101" class="LineNr">38101 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt</span>: +<span id="L38102" class="LineNr">38102 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38103" class="LineNr">38103 </span> 68/push 0/imm32/next +<span id="L38104" class="LineNr">38104 </span> 68/push 0/imm32/next +<span id="L38105" class="LineNr">38105 </span> 68/push 0/imm32/outputs +<span id="L38106" class="LineNr">38106 </span> 68/push 0/imm32/outputs +<span id="L38107" class="LineNr">38107 </span> 56/push-esi/inouts +<span id="L38108" class="LineNr">38108 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38109" class="LineNr">38109 </span> 68/push 0/imm32/operation +<span id="L38110" class="LineNr">38110 </span> 68/push 0/imm32/operation +<span id="L38111" class="LineNr">38111 </span> 68/push 1/imm32/tag:stmt1 +<span id="L38112" class="LineNr">38112 </span> 89/<- %esi 4/r32/esp +<span id="L38113" class="LineNr">38113 </span><span class="Constant">$test-compare-reg-with-literal:initialize-stmt-operation</span>: +<span id="L38114" class="LineNr">38114 </span> <span class="subxComment"># stmt->operation = "compare"</span> +<span id="L38115" class="LineNr">38115 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38116" class="LineNr">38116 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"compare"</span> %eax) +<span id="L38117" class="LineNr">38117 </span> <span class="subxComment"># convert</span> +<span id="L38118" class="LineNr">38118 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L38119" class="LineNr">38119 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi <span class="SpecialChar"><a href='mu.subx.html#L30244'>Primitives</a></span> 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38120" class="LineNr">38120 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38121" class="Folded">38121 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38127" class="LineNr">38127 </span> <span class="subxComment"># check output</span> +<span id="L38128" class="LineNr">38128 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"81 7/subop/compare %ecx 0x34/imm32"</span> <span class="Constant">"F - test-compare-reg-with-literal"</span>) +<span id="L38129" class="LineNr">38129 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38130" class="LineNr">38130 </span> 89/<- %esp 5/r32/ebp +<span id="L38131" class="LineNr">38131 </span> 5d/pop-to-ebp +<span id="L38132" class="LineNr">38132 </span> c3/return +<span id="L38133" class="LineNr">38133 </span> +<span id="L38134" class="LineNr">38134 </span><span class="subxTest">test-emit-subx-stmt-function-call</span>: +<span id="L38135" class="LineNr">38135 </span> <span class="subxComment"># Call a function on a variable on the stack.</span> +<span id="L38136" class="LineNr">38136 </span> <span class="subxComment"># f foo</span> +<span id="L38137" class="LineNr">38137 </span> <span class="subxComment"># =></span> +<span id="L38138" class="LineNr">38138 </span> <span class="subxComment"># (f *(ebp-8))</span> +<span id="L38139" class="LineNr">38139 </span> <span class="subxComment"># (Changing the function name supports overloading in general, but here it</span> +<span id="L38140" class="LineNr">38140 </span> <span class="subxComment"># just serves to help disambiguate things.)</span> +<span id="L38141" class="LineNr">38141 </span> <span class="subxComment">#</span> +<span id="L38142" class="LineNr">38142 </span> <span class="subxComment"># There's a variable on the var stack as follows:</span> +<span id="L38143" class="LineNr">38143 </span> <span class="subxComment"># name: 'foo'</span> +<span id="L38144" class="LineNr">38144 </span> <span class="subxComment"># type: int</span> +<span id="L38145" class="LineNr">38145 </span> <span class="subxComment"># stack-offset: -8</span> +<span id="L38146" class="LineNr">38146 </span> <span class="subxComment">#</span> +<span id="L38147" class="LineNr">38147 </span> <span class="subxComment"># There's nothing in primitives.</span> +<span id="L38148" class="LineNr">38148 </span> <span class="subxComment">#</span> +<span id="L38149" class="LineNr">38149 </span> <span class="subxComment"># We don't perform any checking here on the type of 'f'.</span> +<span id="L38150" class="LineNr">38150 </span> <span class="subxComment">#</span> +<span id="L38151" class="LineNr">38151 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38152" class="LineNr">38152 </span> 55/push-ebp +<span id="L38153" class="LineNr">38153 </span> 89/<- %ebp 4/r32/esp +<span id="L38154" class="LineNr">38154 </span> <span class="subxComment"># setup</span> +<span id="L38155" class="LineNr">38155 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38156" class="LineNr">38156 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38157" class="LineNr">38157 </span><span class="Constant">$test-emit-subx-function-call:initialize-type</span>: +<span id="L38158" class="LineNr">38158 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38159" class="LineNr">38159 </span> 68/push 0/imm32/right:null +<span id="L38160" class="LineNr">38160 </span> 68/push 0/imm32/right:null +<span id="L38161" class="LineNr">38161 </span> 68/push 0/imm32/left:unused +<span id="L38162" class="LineNr">38162 </span> 68/push 1/imm32/value:int +<span id="L38163" class="LineNr">38163 </span> 68/push 1/imm32/is-atom?:true +<span id="L38164" class="LineNr">38164 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38165" class="LineNr">38165 </span> 89/<- %ecx 4/r32/esp +<span id="L38166" class="LineNr">38166 </span><span class="Constant">$test-emit-subx-function-call:initialize-var</span>: +<span id="L38167" class="LineNr">38167 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(type)</span> +<span id="L38168" class="LineNr">38168 </span> 68/push 0/imm32/no-register +<span id="L38169" class="LineNr">38169 </span> 68/push 0/imm32/no-register +<span id="L38170" class="LineNr">38170 </span> 68/push -8/imm32/stack-offset +<span id="L38171" class="LineNr">38171 </span> 68/push 1/imm32/block-depth +<span id="L38172" class="LineNr">38172 </span> 51/push-ecx/type +<span id="L38173" class="LineNr">38173 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38174" class="LineNr">38174 </span> 68/push 0/imm32/name +<span id="L38175" class="LineNr">38175 </span> 68/push 0/imm32/name +<span id="L38176" class="LineNr">38176 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38177" class="LineNr">38177 </span> 89/<- %ecx 4/r32/esp +<span id="L38178" class="LineNr">38178 </span><span class="Constant">$test-emit-subx-function-call:initialize-var-name</span>: +<span id="L38179" class="LineNr">38179 </span> <span class="subxComment"># var-foo->name = "foo"</span> +<span id="L38180" class="LineNr">38180 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38181" class="LineNr">38181 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"foo"</span> %eax) +<span id="L38182" class="LineNr">38182 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-var</span>: +<span id="L38183" class="LineNr">38183 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L38184" class="LineNr">38184 </span> 68/push 0/imm32/is-deref:false +<span id="L38185" class="LineNr">38185 </span> 68/push 0/imm32/next +<span id="L38186" class="LineNr">38186 </span> 68/push 0/imm32/next +<span id="L38187" class="LineNr">38187 </span> 51/push-ecx/var-foo +<span id="L38188" class="LineNr">38188 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38189" class="LineNr">38189 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38190" class="LineNr">38190 </span> 89/<- %ebx 4/r32/esp +<span id="L38191" class="LineNr">38191 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt</span>: +<span id="L38192" class="LineNr">38192 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38193" class="LineNr">38193 </span> 68/push 0/imm32/no-outputs +<span id="L38194" class="LineNr">38194 </span> 68/push 0/imm32/no-outputs +<span id="L38195" class="LineNr">38195 </span> 53/push-ebx/inouts +<span id="L38196" class="LineNr">38196 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38197" class="LineNr">38197 </span> 68/push 0/imm32/operation +<span id="L38198" class="LineNr">38198 </span> 68/push 0/imm32/operation +<span id="L38199" class="LineNr">38199 </span> 68/push 1/imm32/tag +<span id="L38200" class="LineNr">38200 </span> 89/<- %esi 4/r32/esp +<span id="L38201" class="LineNr">38201 </span><span class="Constant">$test-emit-subx-function-call:initialize-stmt-operation</span>: +<span id="L38202" class="LineNr">38202 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L38203" class="LineNr">38203 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38204" class="LineNr">38204 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) +<span id="L38205" class="LineNr">38205 </span> <span class="subxComment"># convert</span> +<span id="L38206" class="LineNr">38206 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L38207" class="LineNr">38207 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi 0 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38208" class="LineNr">38208 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38209" class="Folded">38209 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38215" class="LineNr">38215 </span> <span class="subxComment"># check output</span> +<span id="L38216" class="LineNr">38216 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"(f *(ebp+0xfffffff8))"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call"</span>) +<span id="L38217" class="LineNr">38217 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38218" class="LineNr">38218 </span> 89/<- %esp 5/r32/ebp +<span id="L38219" class="LineNr">38219 </span> 5d/pop-to-ebp +<span id="L38220" class="LineNr">38220 </span> c3/return +<span id="L38221" class="LineNr">38221 </span> +<span id="L38222" class="LineNr">38222 </span><span class="subxTest">test-emit-subx-stmt-function-call-with-literal-arg</span>: +<span id="L38223" class="LineNr">38223 </span> <span class="subxComment"># Call a function on a literal.</span> +<span id="L38224" class="LineNr">38224 </span> <span class="subxComment"># f 0x34</span> +<span id="L38225" class="LineNr">38225 </span> <span class="subxComment"># =></span> +<span id="L38226" class="LineNr">38226 </span> <span class="subxComment"># (f2 0x34)</span> +<span id="L38227" class="LineNr">38227 </span> <span class="subxComment">#</span> +<span id="L38228" class="LineNr">38228 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38229" class="LineNr">38229 </span> 55/push-ebp +<span id="L38230" class="LineNr">38230 </span> 89/<- %ebp 4/r32/esp +<span id="L38231" class="LineNr">38231 </span> <span class="subxComment"># setup</span> +<span id="L38232" class="LineNr">38232 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a>) +<span id="L38233" class="LineNr">38233 </span> (<a href='106stream.subx.html#L17'>clear-stream</a> $_test-output-buffered-file->buffer) +<span id="L38234" class="LineNr">38234 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-type</span>: +<span id="L38235" class="LineNr">38235 </span> <span class="subxComment"># var type/ecx: (payload type-tree) = int</span> +<span id="L38236" class="LineNr">38236 </span> 68/push 0/imm32/right:null +<span id="L38237" class="LineNr">38237 </span> 68/push 0/imm32/right:null +<span id="L38238" class="LineNr">38238 </span> 68/push 0/imm32/left:unused +<span id="L38239" class="LineNr">38239 </span> 68/push 0/imm32/value:literal +<span id="L38240" class="LineNr">38240 </span> 68/push 1/imm32/is-atom?:true +<span id="L38241" class="LineNr">38241 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38242" class="LineNr">38242 </span> 89/<- %ecx 4/r32/esp +<span id="L38243" class="LineNr">38243 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var</span>: +<span id="L38244" class="LineNr">38244 </span> <span class="subxComment"># var var-foo/ecx: (payload var) = var(lit)</span> +<span id="L38245" class="LineNr">38245 </span> 68/push 0/imm32/no-register +<span id="L38246" class="LineNr">38246 </span> 68/push 0/imm32/no-register +<span id="L38247" class="LineNr">38247 </span> 68/push 0/imm32/no-stack-offset +<span id="L38248" class="LineNr">38248 </span> 68/push 1/imm32/block-depth +<span id="L38249" class="LineNr">38249 </span> 51/push-ecx/type +<span id="L38250" class="LineNr">38250 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38251" class="LineNr">38251 </span> 68/push 0/imm32/name +<span id="L38252" class="LineNr">38252 </span> 68/push 0/imm32/name +<span id="L38253" class="LineNr">38253 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38254" class="LineNr">38254 </span> 89/<- %ecx 4/r32/esp +<span id="L38255" class="LineNr">38255 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-var-name</span>: +<span id="L38256" class="LineNr">38256 </span> <span class="subxComment"># var-foo->name = "0x34"</span> +<span id="L38257" class="LineNr">38257 </span> 8d/copy-address *(ecx+4) 0/r32/eax <span class="subxComment"># Var-name + 4</span> +<span id="L38258" class="LineNr">38258 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"0x34"</span> %eax) +<span id="L38259" class="LineNr">38259 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-var</span>: +<span id="L38260" class="LineNr">38260 </span> <span class="subxComment"># var operand/ebx: (payload stmt-var) = stmt-var(var-foo)</span> +<span id="L38261" class="LineNr">38261 </span> 68/push 0/imm32/is-deref:false +<span id="L38262" class="LineNr">38262 </span> 68/push 0/imm32/next +<span id="L38263" class="LineNr">38263 </span> 68/push 0/imm32/next +<span id="L38264" class="LineNr">38264 </span> 51/push-ecx/var-foo +<span id="L38265" class="LineNr">38265 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38266" class="LineNr">38266 </span> 68/push 0x11/imm32/alloc-id:fake:payload +<span id="L38267" class="LineNr">38267 </span> 89/<- %ebx 4/r32/esp +<span id="L38268" class="LineNr">38268 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt</span>: +<span id="L38269" class="LineNr">38269 </span> <span class="subxComment"># var stmt/esi: (addr statement)</span> +<span id="L38270" class="LineNr">38270 </span> 68/push 0/imm32/no-outputs +<span id="L38271" class="LineNr">38271 </span> 68/push 0/imm32/no-outputs +<span id="L38272" class="LineNr">38272 </span> 53/push-ebx/inouts +<span id="L38273" class="LineNr">38273 </span> 68/push 0x11/imm32/alloc-id:fake +<span id="L38274" class="LineNr">38274 </span> 68/push 0/imm32/operation +<span id="L38275" class="LineNr">38275 </span> 68/push 0/imm32/operation +<span id="L38276" class="LineNr">38276 </span> 68/push 1/imm32/tag +<span id="L38277" class="LineNr">38277 </span> 89/<- %esi 4/r32/esp +<span id="L38278" class="LineNr">38278 </span><span class="Constant">$test-emit-subx-function-call-with-literal-arg:initialize-stmt-operation</span>: +<span id="L38279" class="LineNr">38279 </span> <span class="subxComment"># stmt->operation = "f"</span> +<span id="L38280" class="LineNr">38280 </span> 8d/copy-address *(esi+4) 0/r32/eax <span class="subxComment"># Stmt1-operation</span> +<span id="L38281" class="LineNr">38281 </span> (<a href='120allocate.subx.html#L720'>copy-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> <span class="Constant">"f"</span> %eax) +<span id="L38282" class="LineNr">38282 </span> <span class="subxComment"># convert</span> +<span id="L38283" class="LineNr">38283 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='mu.subx.html#L15692'>Curr-block-depth</a></span> 0/imm32 +<span id="L38284" class="LineNr">38284 </span> (<a href='mu.subx.html#L28583'>emit-subx-stmt</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a> %esi 0 %ebx 0 <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span> 0) +<span id="L38285" class="LineNr">38285 </span> (<a href='115write-byte.subx.html#L81'>flush</a> <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>) +<span id="L38286" class="Folded">38286 </span><span class="Folded">+-- 6 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L38292" class="LineNr">38292 </span> <span class="subxComment"># check output</span> +<span id="L38293" class="LineNr">38293 </span> (<a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a> <a href='115write-byte.subx.html#L287'>_test-output-stream</a> <span class="Constant">"(f 0x34)"</span> <span class="Constant">"F - test-emit-subx-stmt-function-call-with-literal-arg"</span>) +<span id="L38294" class="LineNr">38294 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38295" class="LineNr">38295 </span> 89/<- %esp 5/r32/ebp +<span id="L38296" class="LineNr">38296 </span> 5d/pop-to-ebp +<span id="L38297" class="LineNr">38297 </span> c3/return +<span id="L38298" class="LineNr">38298 </span> +<span id="L38299" class="LineNr">38299 </span><span class="subxFunction">emit-indent</span>: <span class="subxComment"># out: (addr buffered-file), n: int</span> +<span id="L38300" class="LineNr">38300 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38301" class="LineNr">38301 </span> 55/push-ebp +<span id="L38302" class="LineNr">38302 </span> 89/<- %ebp 4/r32/esp +<span id="L38303" class="LineNr">38303 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L38304" class="LineNr">38304 </span> 50/push-eax +<span id="L38305" class="LineNr">38305 </span> <span class="subxComment"># var i/eax: int = n</span> +<span id="L38306" class="LineNr">38306 </span> 8b/-> *(ebp+0xc) 0/r32/eax +<span id="L38307" class="LineNr">38307 </span> { +<span id="L38308" class="LineNr">38308 </span> <span class="subxComment"># if (i <= 0) break</span> +<span id="L38309" class="LineNr">38309 </span> 3d/compare-eax-with 0/imm32 +<span id="L38310" class="LineNr">38310 </span> 7e/jump-if-<= <span class="Constant">break</span>/disp8 +<span id="L38311" class="LineNr">38311 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" "</span>) +<span id="L38312" class="LineNr">38312 </span> 48/decrement-eax +<span id="L38313" class="LineNr">38313 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L38314" class="LineNr">38314 </span> } +<span id="L38315" class="LineNr">38315 </span><span class="Constant">$emit-indent:end</span>: +<span id="L38316" class="LineNr">38316 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L38317" class="LineNr">38317 </span> 58/pop-to-eax +<span id="L38318" class="LineNr">38318 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38319" class="LineNr">38319 </span> 89/<- %esp 5/r32/ebp +<span id="L38320" class="LineNr">38320 </span> 5d/pop-to-ebp +<span id="L38321" class="LineNr">38321 </span> c3/return +<span id="L38322" class="LineNr">38322 </span> +<span id="L38323" class="LineNr">38323 </span><span class="subxFunction">emit-subx-prologue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L38324" class="LineNr">38324 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38325" class="LineNr">38325 </span> 55/push-ebp +<span id="L38326" class="LineNr">38326 </span> 89/<- %ebp 4/r32/esp +<span id="L38327" class="LineNr">38327 </span> <span class="subxComment">#</span> +<span id="L38328" class="LineNr">38328 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . prologue\n"</span>) +<span id="L38329" class="LineNr">38329 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 55/push-ebp\n"</span>) +<span id="L38330" class="LineNr">38330 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 89/<- %ebp 4/r32/esp\n"</span>) +<span id="L38331" class="LineNr">38331 </span><span class="Constant">$emit-subx-prologue:end</span>: +<span id="L38332" class="LineNr">38332 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38333" class="LineNr">38333 </span> 89/<- %esp 5/r32/ebp +<span id="L38334" class="LineNr">38334 </span> 5d/pop-to-ebp +<span id="L38335" class="LineNr">38335 </span> c3/return +<span id="L38336" class="LineNr">38336 </span> +<span id="L38337" class="LineNr">38337 </span><span class="subxFunction">emit-subx-epilogue</span>: <span class="subxComment"># out: (addr buffered-file)</span> +<span id="L38338" class="LineNr">38338 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L38339" class="LineNr">38339 </span> 55/push-ebp +<span id="L38340" class="LineNr">38340 </span> 89/<- %ebp 4/r32/esp +<span id="L38341" class="LineNr">38341 </span> <span class="subxComment">#</span> +<span id="L38342" class="LineNr">38342 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" # . epilogue\n"</span>) +<span id="L38343" class="LineNr">38343 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 89/<- %esp 5/r32/ebp\n"</span>) +<span id="L38344" class="LineNr">38344 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" 5d/pop-to-ebp\n"</span>) +<span id="L38345" class="LineNr">38345 </span> (<a href='116write-buffered.subx.html#L8'>write-buffered</a> *(ebp+8) <span class="Constant">" c3/return\n"</span>) +<span id="L38346" class="LineNr">38346 </span><span class="Constant">$emit-subx-epilogue:end</span>: +<span id="L38347" class="LineNr">38347 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L38348" class="LineNr">38348 </span> 89/<- %esp 5/r32/ebp +<span id="L38349" class="LineNr">38349 </span> 5d/pop-to-ebp +<span id="L38350" class="LineNr">38350 </span> c3/return +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/pack.subx.html b/html/linux/pack.subx.html index 2762f0fb..137f33e0 100644 --- a/html/apps/pack.subx.html +++ b/html/linux/pack.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/pack.subx</title> +<title>Mu - linux/pack.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -58,15 +58,15 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/pack.subx'>https://github.com/akkartik/mu/blob/main/apps/pack.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/pack.subx'>https://github.com/akkartik/mu/blob/main/linux/pack.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Read a text file of SubX instructions from stdin, and convert it into a list</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># of whitespace-separated ascii hex bytes on stdout. Label definitions and</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># uses are left untouched.</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> <span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To run:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/subx-params.subx apps/pack.subx -o apps/pack</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '05/add-to-eax 0x20/imm32' |./bootstrap run apps/pack</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/subx-params.subx apps/pack.subx -o apps/pack</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># $ echo '05/add-to-eax 0x20/imm32' |bootstrap/bootstrap run pack</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># Expected output:</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># 05 20 00 00 00 # 05/add-to-eax 0x20/imm32</span> <span id="L10" class="LineNr"> 10 </span><span class="subxComment"># The original instruction gets included as a comment at the end of each</span> @@ -87,10 +87,10 @@ if ('onhashchange' in window) { <span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># initialize heap</span> <span id="L26" class="LineNr"> 26 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L27" class="LineNr"> 27 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L28" class="LineNr"> 28 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L29" class="LineNr"> 29 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L28" class="LineNr"> 28 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L29" class="LineNr"> 29 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L30" class="LineNr"> 30 </span> <span class="subxS2Comment"># . . call</span> -<span id="L31" class="LineNr"> 31 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L31" class="LineNr"> 31 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L32" class="LineNr"> 32 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L33" class="LineNr"> 33 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L34" class="LineNr"> 34 </span> @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L42" class="LineNr"> 42 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L43" class="LineNr"> 43 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L44" class="LineNr"> 44 </span> <span class="subxS2Comment"># . . call</span> -<span id="L45" class="LineNr"> 45 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L45" class="LineNr"> 45 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L46" class="LineNr"> 46 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L47" class="LineNr"> 47 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L48" class="LineNr"> 48 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> @@ -113,14 +113,14 @@ if ('onhashchange' in window) { <span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># run-tests()</span> <span id="L52" class="LineNr"> 52 </span> e8/call run-tests/disp32 <span id="L53" class="LineNr"> 53 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L54" class="LineNr"> 54 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L54" class="LineNr"> 54 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L55" class="LineNr"> 55 </span> eb/jump $subx-pack-main:end/disp8 <span id="L56" class="LineNr"> 56 </span><span class="Constant">$subx-pack-main:interactive</span>: <span id="L57" class="LineNr"> 57 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> <span id="L58" class="LineNr"> 58 </span> <span class="subxComment"># subx-pack(Stdin, Stdout)</span> <span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L60" class="LineNr"> 60 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L61" class="LineNr"> 61 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L60" class="LineNr"> 60 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L61" class="LineNr"> 61 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . call</span> <span id="L63" class="LineNr"> 63 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . discard args</span> @@ -128,7 +128,7 @@ if ('onhashchange' in window) { <span id="L66" class="LineNr"> 66 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L67" class="LineNr"> 67 </span> bb/copy-to-ebx 0/imm32 <span id="L68" class="LineNr"> 68 </span><span class="Constant">$subx-pack-main:end</span>: -<span id="L69" class="LineNr"> 69 </span> e8/call syscall_exit/disp32 +<span id="L69" class="LineNr"> 69 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L70" class="LineNr"> 70 </span> <span id="L71" class="LineNr"> 71 </span><span class="subxH1Comment"># - big picture</span> <span id="L72" class="LineNr"> 72 </span><span class="subxComment"># We'll operate on each line/instruction in isolation. That way we only need to</span> @@ -198,7 +198,7 @@ if ('onhashchange' in window) { <span id="L136" class="LineNr"> 136 </span> <span class="subxS2Comment"># . . push args</span> <span id="L137" class="LineNr"> 137 </span> 51/push-ecx <span id="L138" class="LineNr"> 138 </span> <span class="subxS2Comment"># . . call</span> -<span id="L139" class="LineNr"> 139 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L139" class="LineNr"> 139 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L140" class="LineNr"> 140 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L141" class="LineNr"> 141 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L142" class="LineNr"> 142 </span> <span class="subxComment"># read-line-buffered(in, line)</span> @@ -206,7 +206,7 @@ if ('onhashchange' in window) { <span id="L144" class="LineNr"> 144 </span> 51/push-ecx <span id="L145" class="LineNr"> 145 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L146" class="LineNr"> 146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L147" class="LineNr"> 147 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L147" class="LineNr"> 147 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 <span id="L148" class="LineNr"> 148 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L149" class="LineNr"> 149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L150" class="LineNr"> 150 </span><span class="Constant">$subx-pack:check0</span>: @@ -219,7 +219,7 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr"> 182 </span> 52/push-edx <span id="L183" class="LineNr"> 183 </span> 51/push-ecx <span id="L184" class="LineNr"> 184 </span> <span class="subxS2Comment"># . . call</span> -<span id="L185" class="LineNr"> 185 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L185" class="LineNr"> 185 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L186" class="LineNr"> 186 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L187" class="LineNr"> 187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L188" class="LineNr"> 188 </span><span class="Constant">$subx-pack:check1</span>: @@ -228,7 +228,7 @@ if ('onhashchange' in window) { <span id="L191" class="LineNr"> 191 </span> <span class="subxS2Comment"># . . push args</span> <span id="L192" class="LineNr"> 192 </span> 52/push-edx <span id="L193" class="LineNr"> 193 </span> <span class="subxS2Comment"># . . call</span> -<span id="L194" class="LineNr"> 194 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L194" class="LineNr"> 194 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 <span id="L195" class="LineNr"> 195 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L196" class="LineNr"> 196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L197" class="LineNr"> 197 </span> <span class="subxS1Comment"># . if (eax != false) write-stream-data(out, line)</span> @@ -242,7 +242,7 @@ if ('onhashchange' in window) { <span id="L244" class="LineNr"> 244 </span> 68/push <span class="Constant">"=="</span>/imm32 <span id="L245" class="LineNr"> 245 </span> 52/push-edx <span id="L246" class="LineNr"> 246 </span> <span class="subxS2Comment"># . . call</span> -<span id="L247" class="LineNr"> 247 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L247" class="LineNr"> 247 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 <span id="L248" class="LineNr"> 248 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L249" class="LineNr"> 249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . if (eax == false) goto check3</span> @@ -253,7 +253,7 @@ if ('onhashchange' in window) { <span id="L255" class="LineNr"> 255 </span> 52/push-edx <span id="L256" class="LineNr"> 256 </span> 51/push-ecx <span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . call</span> -<span id="L258" class="LineNr"> 258 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L258" class="LineNr"> 258 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L260" class="LineNr"> 260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L261" class="Folded"> 261 </span><span class="Folded">+-- 40 lines: #? # dump segment name ------------------------------------------------------------------------------------------------------------------------------------------------</span> @@ -262,7 +262,7 @@ if ('onhashchange' in window) { <span id="L303" class="LineNr"> 303 </span> 68/push <span class="Constant">"code"</span>/imm32 <span id="L304" class="LineNr"> 304 </span> 52/push-edx <span id="L305" class="LineNr"> 305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L306" class="LineNr"> 306 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L306" class="LineNr"> 306 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 <span id="L307" class="LineNr"> 307 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L308" class="LineNr"> 308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L309" class="LineNr"> 309 </span> <span class="subxS2Comment"># . . in-code? = eax</span> @@ -275,7 +275,7 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr"> 316 </span> <span class="subxS2Comment"># . . push args</span> <span id="L317" class="LineNr"> 317 </span> 51/push-ecx <span id="L318" class="LineNr"> 318 </span> <span class="subxS2Comment"># . . call</span> -<span id="L319" class="LineNr"> 319 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L319" class="LineNr"> 319 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L320" class="LineNr"> 320 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L321" class="LineNr"> 321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L322" class="LineNr"> 322 </span> <span class="subxComment"># if (in-code? != false) convert-instruction(line, out)</span> @@ -287,7 +287,7 @@ if ('onhashchange' in window) { <span id="L328" class="LineNr"> 328 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L329" class="LineNr"> 329 </span> 51/push-ecx <span id="L330" class="LineNr"> 330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L331" class="LineNr"> 331 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 +<span id="L331" class="LineNr"> 331 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 <span id="L332" class="LineNr"> 332 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L333" class="LineNr"> 333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L334" class="LineNr"> 334 </span> <span class="subxS1Comment"># . loop</span> @@ -309,7 +309,7 @@ if ('onhashchange' in window) { <span id="L350" class="LineNr"> 350 </span> 51/push-ecx <span id="L351" class="LineNr"> 351 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L352" class="LineNr"> 352 </span> <span class="subxS2Comment"># . . call</span> -<span id="L353" class="LineNr"> 353 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L353" class="LineNr"> 353 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L354" class="LineNr"> 354 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L355" class="LineNr"> 355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L356" class="LineNr"> 356 </span> <span class="subxS1Comment"># . loop</span> @@ -319,7 +319,7 @@ if ('onhashchange' in window) { <span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . push args</span> <span id="L361" class="LineNr"> 361 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . call</span> -<span id="L363" class="LineNr"> 363 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L363" class="LineNr"> 363 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L365" class="LineNr"> 365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L366" class="LineNr"> 366 </span><span class="Constant">$subx-pack:end</span>: @@ -343,37 +343,37 @@ if ('onhashchange' in window) { <span id="L384" class="LineNr"> 384 </span> <span class="subxComment"># setup</span> <span id="L385" class="LineNr"> 385 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L386" class="LineNr"> 386 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L387" class="LineNr"> 387 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L387" class="LineNr"> 387 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L388" class="LineNr"> 388 </span> <span class="subxS2Comment"># . . call</span> -<span id="L389" class="LineNr"> 389 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L389" class="LineNr"> 389 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L390" class="LineNr"> 390 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L391" class="LineNr"> 391 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L392" class="LineNr"> 392 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L393" class="LineNr"> 393 </span> <span class="subxS2Comment"># . . push args</span> <span id="L394" class="LineNr"> 394 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L395" class="LineNr"> 395 </span> <span class="subxS2Comment"># . . call</span> -<span id="L396" class="LineNr"> 396 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L396" class="LineNr"> 396 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L397" class="LineNr"> 397 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L398" class="LineNr"> 398 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L399" class="LineNr"> 399 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L400" class="LineNr"> 400 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L401" class="LineNr"> 401 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L401" class="LineNr"> 401 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L402" class="LineNr"> 402 </span> <span class="subxS2Comment"># . . call</span> -<span id="L403" class="LineNr"> 403 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L403" class="LineNr"> 403 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L404" class="LineNr"> 404 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L405" class="LineNr"> 405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L406" class="LineNr"> 406 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L407" class="LineNr"> 407 </span> <span class="subxS2Comment"># . . push args</span> <span id="L408" class="LineNr"> 408 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . call</span> -<span id="L410" class="LineNr"> 410 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L410" class="LineNr"> 410 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L412" class="LineNr"> 412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L413" class="LineNr"> 413 </span> <span class="subxComment"># write nothing to input</span> <span id="L414" class="LineNr"> 414 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L416" class="LineNr"> 416 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L417" class="LineNr"> 417 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L416" class="LineNr"> 416 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L417" class="LineNr"> 417 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L418" class="LineNr"> 418 </span> <span class="subxS2Comment"># . . call</span> <span id="L419" class="LineNr"> 419 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . discard args</span> @@ -381,18 +381,18 @@ if ('onhashchange' in window) { <span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L423" class="LineNr"> 423 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L425" class="LineNr"> 425 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L425" class="LineNr"> 425 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . call</span> -<span id="L427" class="LineNr"> 427 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L427" class="LineNr"> 427 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L429" class="LineNr"> 429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L430" class="LineNr"> 430 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "", msg)</span> <span id="L431" class="LineNr"> 431 </span> <span class="subxS2Comment"># . . push args</span> <span id="L432" class="LineNr"> 432 </span> 68/push <span class="Constant">"F - test-subx-pack-passes-empty-lines-through"</span>/imm32 <span id="L433" class="LineNr"> 433 </span> 68/push <span class="Constant">""</span>/imm32 -<span id="L434" class="LineNr"> 434 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L434" class="LineNr"> 434 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L435" class="LineNr"> 435 </span> <span class="subxS2Comment"># . . call</span> -<span id="L436" class="LineNr"> 436 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L436" class="LineNr"> 436 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L437" class="LineNr"> 437 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L438" class="LineNr"> 438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L439" class="LineNr"> 439 </span> <span class="subxS1Comment"># . epilogue</span> @@ -408,45 +408,45 @@ if ('onhashchange' in window) { <span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># setup</span> <span id="L450" class="LineNr"> 450 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L451" class="LineNr"> 451 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L452" class="LineNr"> 452 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L452" class="LineNr"> 452 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . call</span> -<span id="L454" class="LineNr"> 454 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L454" class="LineNr"> 454 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L455" class="LineNr"> 455 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L456" class="LineNr"> 456 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L457" class="LineNr"> 457 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L458" class="LineNr"> 458 </span> <span class="subxS2Comment"># . . push args</span> <span id="L459" class="LineNr"> 459 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L460" class="LineNr"> 460 </span> <span class="subxS2Comment"># . . call</span> -<span id="L461" class="LineNr"> 461 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L461" class="LineNr"> 461 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L462" class="LineNr"> 462 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L463" class="LineNr"> 463 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L464" class="LineNr"> 464 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L465" class="LineNr"> 465 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L466" class="LineNr"> 466 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L466" class="LineNr"> 466 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L467" class="LineNr"> 467 </span> <span class="subxS2Comment"># . . call</span> -<span id="L468" class="LineNr"> 468 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L468" class="LineNr"> 468 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L469" class="LineNr"> 469 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L470" class="LineNr"> 470 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L471" class="LineNr"> 471 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L472" class="LineNr"> 472 </span> <span class="subxS2Comment"># . . push args</span> <span id="L473" class="LineNr"> 473 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L474" class="LineNr"> 474 </span> <span class="subxS2Comment"># . . call</span> -<span id="L475" class="LineNr"> 475 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L475" class="LineNr"> 475 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L476" class="LineNr"> 476 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L477" class="LineNr"> 477 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L478" class="LineNr"> 478 </span> <span class="subxComment"># initialize input</span> <span id="L479" class="LineNr"> 479 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ")</span> <span id="L480" class="LineNr"> 480 </span> <span class="subxS2Comment"># . . push args</span> <span id="L481" class="LineNr"> 481 </span> 68/push <span class="Constant">" "</span>/imm32 -<span id="L482" class="LineNr"> 482 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L482" class="LineNr"> 482 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L483" class="LineNr"> 483 </span> <span class="subxS2Comment"># . . call</span> -<span id="L484" class="LineNr"> 484 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L484" class="LineNr"> 484 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L485" class="LineNr"> 485 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L486" class="LineNr"> 486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L487" class="LineNr"> 487 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L488" class="LineNr"> 488 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L489" class="LineNr"> 489 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L490" class="LineNr"> 490 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L489" class="LineNr"> 489 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L490" class="LineNr"> 490 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L491" class="LineNr"> 491 </span> <span class="subxS2Comment"># . . call</span> <span id="L492" class="LineNr"> 492 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L493" class="LineNr"> 493 </span> <span class="subxS2Comment"># . . discard args</span> @@ -454,18 +454,18 @@ if ('onhashchange' in window) { <span id="L495" class="LineNr"> 495 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L496" class="LineNr"> 496 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L497" class="LineNr"> 497 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L498" class="LineNr"> 498 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L498" class="LineNr"> 498 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L499" class="LineNr"> 499 </span> <span class="subxS2Comment"># . . call</span> -<span id="L500" class="LineNr"> 500 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L500" class="LineNr"> 500 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L501" class="LineNr"> 501 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L502" class="LineNr"> 502 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L503" class="LineNr"> 503 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, " ", msg)</span> <span id="L504" class="LineNr"> 504 </span> <span class="subxS2Comment"># . . push args</span> <span id="L505" class="LineNr"> 505 </span> 68/push <span class="Constant">"F - test-subx-pack-passes-with-just-whitespace-through"</span>/imm32 <span id="L506" class="LineNr"> 506 </span> 68/push <span class="Constant">" "</span>/imm32 -<span id="L507" class="LineNr"> 507 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L507" class="LineNr"> 507 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L508" class="LineNr"> 508 </span> <span class="subxS2Comment"># . . call</span> -<span id="L509" class="LineNr"> 509 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L509" class="LineNr"> 509 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L510" class="LineNr"> 510 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L511" class="LineNr"> 511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L512" class="LineNr"> 512 </span> <span class="subxS1Comment"># . epilogue</span> @@ -481,45 +481,45 @@ if ('onhashchange' in window) { <span id="L522" class="LineNr"> 522 </span> <span class="subxComment"># setup</span> <span id="L523" class="LineNr"> 523 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L524" class="LineNr"> 524 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L525" class="LineNr"> 525 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L525" class="LineNr"> 525 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L526" class="LineNr"> 526 </span> <span class="subxS2Comment"># . . call</span> -<span id="L527" class="LineNr"> 527 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L527" class="LineNr"> 527 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L528" class="LineNr"> 528 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L529" class="LineNr"> 529 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L530" class="LineNr"> 530 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L531" class="LineNr"> 531 </span> <span class="subxS2Comment"># . . push args</span> <span id="L532" class="LineNr"> 532 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L533" class="LineNr"> 533 </span> <span class="subxS2Comment"># . . call</span> -<span id="L534" class="LineNr"> 534 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L534" class="LineNr"> 534 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L535" class="LineNr"> 535 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L536" class="LineNr"> 536 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L537" class="LineNr"> 537 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L538" class="LineNr"> 538 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L539" class="LineNr"> 539 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L539" class="LineNr"> 539 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L540" class="LineNr"> 540 </span> <span class="subxS2Comment"># . . call</span> -<span id="L541" class="LineNr"> 541 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L541" class="LineNr"> 541 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L542" class="LineNr"> 542 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L543" class="LineNr"> 543 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L544" class="LineNr"> 544 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L545" class="LineNr"> 545 </span> <span class="subxS2Comment"># . . push args</span> <span id="L546" class="LineNr"> 546 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L547" class="LineNr"> 547 </span> <span class="subxS2Comment"># . . call</span> -<span id="L548" class="LineNr"> 548 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L548" class="LineNr"> 548 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L549" class="LineNr"> 549 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L550" class="LineNr"> 550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L551" class="LineNr"> 551 </span> <span class="subxComment"># initialize input</span> <span id="L552" class="LineNr"> 552 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1")</span> <span id="L553" class="LineNr"> 553 </span> <span class="subxS2Comment"># . . push args</span> <span id="L554" class="LineNr"> 554 </span> 68/push <span class="Constant">"== abcd 0x1"</span>/imm32 -<span id="L555" class="LineNr"> 555 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L555" class="LineNr"> 555 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . call</span> -<span id="L557" class="LineNr"> 557 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L557" class="LineNr"> 557 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L558" class="LineNr"> 558 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L559" class="LineNr"> 559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L560" class="LineNr"> 560 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L561" class="LineNr"> 561 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L562" class="LineNr"> 562 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L563" class="LineNr"> 563 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L562" class="LineNr"> 562 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L563" class="LineNr"> 563 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L564" class="LineNr"> 564 </span> <span class="subxS2Comment"># . . call</span> <span id="L565" class="LineNr"> 565 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L566" class="LineNr"> 566 </span> <span class="subxS2Comment"># . . discard args</span> @@ -527,18 +527,18 @@ if ('onhashchange' in window) { <span id="L568" class="LineNr"> 568 </span> <span class="subxComment"># check that the line just passed through</span> <span id="L569" class="LineNr"> 569 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L570" class="LineNr"> 570 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L571" class="LineNr"> 571 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L571" class="LineNr"> 571 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L572" class="LineNr"> 572 </span> <span class="subxS2Comment"># . . call</span> -<span id="L573" class="LineNr"> 573 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L573" class="LineNr"> 573 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L574" class="LineNr"> 574 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L575" class="LineNr"> 575 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L576" class="LineNr"> 576 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1", msg)</span> <span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . push args</span> <span id="L578" class="LineNr"> 578 </span> 68/push <span class="Constant">"F - test-subx-pack-passes-segment-headers-through"</span>/imm32 <span id="L579" class="LineNr"> 579 </span> 68/push <span class="Constant">"== abcd 0x1"</span>/imm32 -<span id="L580" class="LineNr"> 580 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L580" class="LineNr"> 580 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L581" class="LineNr"> 581 </span> <span class="subxS2Comment"># . . call</span> -<span id="L582" class="LineNr"> 582 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L582" class="LineNr"> 582 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L583" class="LineNr"> 583 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L584" class="LineNr"> 584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L585" class="LineNr"> 585 </span> <span class="subxS1Comment"># . epilogue</span> @@ -554,30 +554,30 @@ if ('onhashchange' in window) { <span id="L595" class="LineNr"> 595 </span> <span class="subxComment"># setup</span> <span id="L596" class="LineNr"> 596 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L597" class="LineNr"> 597 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L598" class="LineNr"> 598 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L598" class="LineNr"> 598 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L599" class="LineNr"> 599 </span> <span class="subxS2Comment"># . . call</span> -<span id="L600" class="LineNr"> 600 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L600" class="LineNr"> 600 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L601" class="LineNr"> 601 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L602" class="LineNr"> 602 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L603" class="LineNr"> 603 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . push args</span> <span id="L605" class="LineNr"> 605 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . call</span> -<span id="L607" class="LineNr"> 607 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L607" class="LineNr"> 607 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L608" class="LineNr"> 608 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L609" class="LineNr"> 609 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L610" class="LineNr"> 610 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L611" class="LineNr"> 611 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L612" class="LineNr"> 612 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L612" class="LineNr"> 612 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L613" class="LineNr"> 613 </span> <span class="subxS2Comment"># . . call</span> -<span id="L614" class="LineNr"> 614 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L614" class="LineNr"> 614 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L615" class="LineNr"> 615 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L616" class="LineNr"> 616 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L617" class="LineNr"> 617 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . push args</span> <span id="L619" class="LineNr"> 619 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> -<span id="L621" class="LineNr"> 621 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L621" class="LineNr"> 621 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L623" class="LineNr"> 623 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L624" class="LineNr"> 624 </span> <span class="subxComment"># initialize input</span> @@ -587,31 +587,31 @@ if ('onhashchange' in window) { <span id="L628" class="LineNr"> 628 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1")</span> <span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . push args</span> <span id="L630" class="LineNr"> 630 </span> 68/push <span class="Constant">"== code 0x1\n"</span>/imm32 -<span id="L631" class="LineNr"> 631 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L631" class="LineNr"> 631 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L632" class="LineNr"> 632 </span> <span class="subxS2Comment"># . . call</span> -<span id="L633" class="LineNr"> 633 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L633" class="LineNr"> 633 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L634" class="LineNr"> 634 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L635" class="LineNr"> 635 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L636" class="LineNr"> 636 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x2\n")</span> <span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . push args</span> <span id="L638" class="LineNr"> 638 </span> 68/push <span class="Constant">"== data 0x2\n"</span>/imm32 -<span id="L639" class="LineNr"> 639 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L639" class="LineNr"> 639 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . call</span> -<span id="L641" class="LineNr"> 641 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L641" class="LineNr"> 641 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L642" class="LineNr"> 642 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L643" class="LineNr"> 643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L644" class="LineNr"> 644 </span> <span class="subxS1Comment"># . write(_test-input-stream, "3 4/imm32\n")</span> <span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . push args</span> <span id="L646" class="LineNr"> 646 </span> 68/push <span class="Constant">"3 4/imm32\n"</span>/imm32 -<span id="L647" class="LineNr"> 647 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L647" class="LineNr"> 647 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L648" class="LineNr"> 648 </span> <span class="subxS2Comment"># . . call</span> -<span id="L649" class="LineNr"> 649 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L649" class="LineNr"> 649 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L650" class="LineNr"> 650 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L651" class="LineNr"> 651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L652" class="LineNr"> 652 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L654" class="LineNr"> 654 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L655" class="LineNr"> 655 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L654" class="LineNr"> 654 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L655" class="LineNr"> 655 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . call</span> <span id="L657" class="LineNr"> 657 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . discard args</span> @@ -620,36 +620,36 @@ if ('onhashchange' in window) { <span id="L661" class="Folded"> 661 </span><span class="Folded">+-- 26 lines: #? # debug print ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L687" class="LineNr"> 687 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L688" class="LineNr"> 688 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L689" class="LineNr"> 689 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L689" class="LineNr"> 689 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . call</span> -<span id="L691" class="LineNr"> 691 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L691" class="LineNr"> 691 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L693" class="LineNr"> 693 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L694" class="LineNr"> 694 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== code 0x1", msg)</span> <span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . push args</span> <span id="L696" class="LineNr"> 696 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L590'>test-subx-pack-in-data-segment</a>/0"</span>/imm32 <span id="L697" class="LineNr"> 697 </span> 68/push <span class="Constant">"== code 0x1"</span>/imm32 -<span id="L698" class="LineNr"> 698 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L698" class="LineNr"> 698 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L699" class="LineNr"> 699 </span> <span class="subxS2Comment"># . . call</span> -<span id="L700" class="LineNr"> 700 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L700" class="LineNr"> 700 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L701" class="LineNr"> 701 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L702" class="LineNr"> 702 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L703" class="LineNr"> 703 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== data 0x2", msg)</span> <span id="L704" class="LineNr"> 704 </span> <span class="subxS2Comment"># . . push args</span> <span id="L705" class="LineNr"> 705 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L590'>test-subx-pack-in-data-segment</a>/1"</span>/imm32 <span id="L706" class="LineNr"> 706 </span> 68/push <span class="Constant">"== data 0x2"</span>/imm32 -<span id="L707" class="LineNr"> 707 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L707" class="LineNr"> 707 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L708" class="LineNr"> 708 </span> <span class="subxS2Comment"># . . call</span> -<span id="L709" class="LineNr"> 709 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L709" class="LineNr"> 709 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L710" class="LineNr"> 710 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L711" class="LineNr"> 711 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L712" class="LineNr"> 712 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "03 04 00 00 00 ", msg)</span> <span id="L713" class="LineNr"> 713 </span> <span class="subxS2Comment"># . . push args</span> <span id="L714" class="LineNr"> 714 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L590'>test-subx-pack-in-data-segment</a>/2"</span>/imm32 <span id="L715" class="LineNr"> 715 </span> 68/push <span class="Constant">"03 04 00 00 00 "</span>/imm32 -<span id="L716" class="LineNr"> 716 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L716" class="LineNr"> 716 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L717" class="LineNr"> 717 </span> <span class="subxS2Comment"># . . call</span> -<span id="L718" class="LineNr"> 718 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L718" class="LineNr"> 718 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L719" class="LineNr"> 719 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L720" class="LineNr"> 720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L721" class="LineNr"> 721 </span> <span class="subxS1Comment"># . epilogue</span> @@ -665,30 +665,30 @@ if ('onhashchange' in window) { <span id="L731" class="LineNr"> 731 </span> <span class="subxComment"># setup</span> <span id="L732" class="LineNr"> 732 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L733" class="LineNr"> 733 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L734" class="LineNr"> 734 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L734" class="LineNr"> 734 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L735" class="LineNr"> 735 </span> <span class="subxS2Comment"># . . call</span> -<span id="L736" class="LineNr"> 736 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L736" class="LineNr"> 736 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L737" class="LineNr"> 737 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L738" class="LineNr"> 738 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L739" class="LineNr"> 739 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L740" class="LineNr"> 740 </span> <span class="subxS2Comment"># . . push args</span> <span id="L741" class="LineNr"> 741 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L742" class="LineNr"> 742 </span> <span class="subxS2Comment"># . . call</span> -<span id="L743" class="LineNr"> 743 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L743" class="LineNr"> 743 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L744" class="LineNr"> 744 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L745" class="LineNr"> 745 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L746" class="LineNr"> 746 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L747" class="LineNr"> 747 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L748" class="LineNr"> 748 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L748" class="LineNr"> 748 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L749" class="LineNr"> 749 </span> <span class="subxS2Comment"># . . call</span> -<span id="L750" class="LineNr"> 750 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L750" class="LineNr"> 750 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L751" class="LineNr"> 751 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L752" class="LineNr"> 752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L753" class="LineNr"> 753 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L754" class="LineNr"> 754 </span> <span class="subxS2Comment"># . . push args</span> <span id="L755" class="LineNr"> 755 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L756" class="LineNr"> 756 </span> <span class="subxS2Comment"># . . call</span> -<span id="L757" class="LineNr"> 757 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L757" class="LineNr"> 757 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L758" class="LineNr"> 758 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L759" class="LineNr"> 759 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L760" class="LineNr"> 760 </span> <span class="subxComment"># initialize input</span> @@ -700,47 +700,47 @@ if ('onhashchange' in window) { <span id="L766" class="LineNr"> 766 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1\n")</span> <span id="L767" class="LineNr"> 767 </span> <span class="subxS2Comment"># . . push args</span> <span id="L768" class="LineNr"> 768 </span> 68/push <span class="Constant">"== code 0x1\n"</span>/imm32 -<span id="L769" class="LineNr"> 769 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L769" class="LineNr"> 769 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L770" class="LineNr"> 770 </span> <span class="subxS2Comment"># . . call</span> -<span id="L771" class="LineNr"> 771 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L771" class="LineNr"> 771 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L772" class="LineNr"> 772 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L773" class="LineNr"> 773 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L774" class="LineNr"> 774 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp32\n")</span> <span id="L775" class="LineNr"> 775 </span> <span class="subxS2Comment"># . . push args</span> <span id="L776" class="LineNr"> 776 </span> 68/push <span class="Constant">"e8/call 20/disp32\n"</span>/imm32 -<span id="L777" class="LineNr"> 777 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L777" class="LineNr"> 777 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L778" class="LineNr"> 778 </span> <span class="subxS2Comment"># . . call</span> -<span id="L779" class="LineNr"> 779 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L779" class="LineNr"> 779 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L780" class="LineNr"> 780 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L781" class="LineNr"> 781 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L782" class="LineNr"> 782 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm8\n")</span> <span id="L783" class="LineNr"> 783 </span> <span class="subxS2Comment"># . . push args</span> <span id="L784" class="LineNr"> 784 </span> 68/push <span class="Constant">"68/push 0x20/imm8\n"</span>/imm32 -<span id="L785" class="LineNr"> 785 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L785" class="LineNr"> 785 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . call</span> -<span id="L787" class="LineNr"> 787 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L787" class="LineNr"> 787 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L789" class="LineNr"> 789 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L790" class="LineNr"> 790 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x2\n")</span> <span id="L791" class="LineNr"> 791 </span> <span class="subxS2Comment"># . . push args</span> <span id="L792" class="LineNr"> 792 </span> 68/push <span class="Constant">"== data 0x2\n"</span>/imm32 -<span id="L793" class="LineNr"> 793 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L793" class="LineNr"> 793 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L794" class="LineNr"> 794 </span> <span class="subxS2Comment"># . . call</span> -<span id="L795" class="LineNr"> 795 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L795" class="LineNr"> 795 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L796" class="LineNr"> 796 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L797" class="LineNr"> 797 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L798" class="LineNr"> 798 </span> <span class="subxS1Comment"># . write(_test-input-stream, "3 4/imm32\n")</span> <span id="L799" class="LineNr"> 799 </span> <span class="subxS2Comment"># . . push args</span> <span id="L800" class="LineNr"> 800 </span> 68/push <span class="Constant">"3 4/imm32\n"</span>/imm32 -<span id="L801" class="LineNr"> 801 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L801" class="LineNr"> 801 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L802" class="LineNr"> 802 </span> <span class="subxS2Comment"># . . call</span> -<span id="L803" class="LineNr"> 803 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L803" class="LineNr"> 803 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L804" class="LineNr"> 804 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L805" class="LineNr"> 805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L806" class="LineNr"> 806 </span> <span class="subxComment"># subx-pack(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L808" class="LineNr"> 808 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L809" class="LineNr"> 809 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L808" class="LineNr"> 808 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L809" class="LineNr"> 809 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L810" class="LineNr"> 810 </span> <span class="subxS2Comment"># . . call</span> <span id="L811" class="LineNr"> 811 </span> e8/call <a href='pack.subx.html#L91'>subx-pack</a>/disp32 <span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . discard args</span> @@ -754,54 +754,54 @@ if ('onhashchange' in window) { <span id="L820" class="Folded"> 820 </span><span class="Folded">+-- 26 lines: #? # debug print ------------------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L846" class="LineNr"> 846 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> <span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L848" class="LineNr"> 848 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L848" class="LineNr"> 848 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 <span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . call</span> -<span id="L850" class="LineNr"> 850 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L850" class="LineNr"> 850 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L851" class="LineNr"> 851 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L852" class="LineNr"> 852 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L853" class="LineNr"> 853 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== code 0x1", msg)</span> <span id="L854" class="LineNr"> 854 </span> <span class="subxS2Comment"># . . push args</span> <span id="L855" class="LineNr"> 855 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L726'>test-subx-pack-code-and-data-segments</a>/0"</span>/imm32 <span id="L856" class="LineNr"> 856 </span> 68/push <span class="Constant">"== code 0x1"</span>/imm32 -<span id="L857" class="LineNr"> 857 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L857" class="LineNr"> 857 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L858" class="LineNr"> 858 </span> <span class="subxS2Comment"># . . call</span> -<span id="L859" class="LineNr"> 859 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L859" class="LineNr"> 859 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L860" class="LineNr"> 860 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L861" class="LineNr"> 861 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L862" class="LineNr"> 862 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8 20 00 00 00 # e8/call 20/disp32", msg)</span> <span id="L863" class="LineNr"> 863 </span> <span class="subxS2Comment"># . . push args</span> <span id="L864" class="LineNr"> 864 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L726'>test-subx-pack-code-and-data-segments</a>/1"</span>/imm32 <span id="L865" class="LineNr"> 865 </span> 68/push <span class="Constant">"e8 20 00 00 00 # e8/call 20/disp32"</span>/imm32 -<span id="L866" class="LineNr"> 866 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L866" class="LineNr"> 866 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L867" class="LineNr"> 867 </span> <span class="subxS2Comment"># . . call</span> -<span id="L868" class="LineNr"> 868 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L868" class="LineNr"> 868 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L869" class="LineNr"> 869 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L870" class="LineNr"> 870 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L871" class="LineNr"> 871 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "68 20 # 68/push 0x20/imm8", msg)</span> <span id="L872" class="LineNr"> 872 </span> <span class="subxS2Comment"># . . push args</span> <span id="L873" class="LineNr"> 873 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L726'>test-subx-pack-code-and-data-segments</a>/2"</span>/imm32 <span id="L874" class="LineNr"> 874 </span> 68/push <span class="Constant">"68 20 # 68/push 0x20/imm8"</span>/imm32 -<span id="L875" class="LineNr"> 875 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L875" class="LineNr"> 875 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L876" class="LineNr"> 876 </span> <span class="subxS2Comment"># . . call</span> -<span id="L877" class="LineNr"> 877 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L877" class="LineNr"> 877 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L878" class="LineNr"> 878 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L879" class="LineNr"> 879 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L880" class="LineNr"> 880 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "== data 0x2", msg)</span> <span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . push args</span> <span id="L882" class="LineNr"> 882 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L726'>test-subx-pack-code-and-data-segments</a>/3"</span>/imm32 <span id="L883" class="LineNr"> 883 </span> 68/push <span class="Constant">"== data 0x2"</span>/imm32 -<span id="L884" class="LineNr"> 884 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L884" class="LineNr"> 884 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L885" class="LineNr"> 885 </span> <span class="subxS2Comment"># . . call</span> -<span id="L886" class="LineNr"> 886 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L886" class="LineNr"> 886 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L887" class="LineNr"> 887 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L888" class="LineNr"> 888 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L889" class="LineNr"> 889 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "03 04 00 00 00 ", msg)</span> <span id="L890" class="LineNr"> 890 </span> <span class="subxS2Comment"># . . push args</span> <span id="L891" class="LineNr"> 891 </span> 68/push <span class="Constant">"F - <a href='pack.subx.html#L726'>test-subx-pack-code-and-data-segments</a>/4"</span>/imm32 <span id="L892" class="LineNr"> 892 </span> 68/push <span class="Constant">"03 04 00 00 00 "</span>/imm32 -<span id="L893" class="LineNr"> 893 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L893" class="LineNr"> 893 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . call</span> -<span id="L895" class="LineNr"> 895 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L895" class="LineNr"> 895 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 <span id="L896" class="LineNr"> 896 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L897" class="LineNr"> 897 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L898" class="LineNr"> 898 </span> <span class="subxS1Comment"># . epilogue</span> @@ -824,4032 +824,4146 @@ if ('onhashchange' in window) { <span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># return</span> <span id="L916" class="LineNr"> 916 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm32")</span> <span id="L917" class="LineNr"> 917 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L918" class="LineNr"> 918 </span> <span class="subxComment"># # disp32 is not permitted in data segments, and anything else is only a byte long</span> -<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># else</span> -<span id="L920" class="LineNr"> 920 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L922" class="LineNr"> 922 </span> <span class="subxComment">#</span> -<span id="L923" class="LineNr"> 923 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L924" class="LineNr"> 924 </span> 55/push-ebp -<span id="L925" class="LineNr"> 925 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L926" class="LineNr"> 926 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L927" class="LineNr"> 927 </span> 50/push-eax -<span id="L928" class="LineNr"> 928 </span> 51/push-ecx -<span id="L929" class="LineNr"> 929 </span> 52/push-edx -<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L931" class="LineNr"> 931 </span> 68/push 0/imm32/end -<span id="L932" class="LineNr"> 932 </span> 68/push 0/imm32/start -<span id="L933" class="LineNr"> 933 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L934" class="Folded"> 934 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L960" class="LineNr"> 960 </span><span class="Constant">$convert-data:loop</span>: -<span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L963" class="LineNr"> 963 </span> 51/push-ecx -<span id="L964" class="LineNr"> 964 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L965" class="LineNr"> 965 </span> <span class="subxS2Comment"># . . call</span> -<span id="L966" class="LineNr"> 966 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L967" class="LineNr"> 967 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L968" class="LineNr"> 968 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L969" class="Folded"> 969 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1009" class="LineNr">1009 </span><span class="Constant">$convert-data:check0</span>: -<span id="L1010" class="LineNr">1010 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L1011" class="LineNr">1011 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L1012" class="LineNr">1012 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1013" class="LineNr">1013 </span> 51/push-ecx -<span id="L1014" class="LineNr">1014 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1015" class="LineNr">1015 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L1016" class="LineNr">1016 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1017" class="LineNr">1017 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1018" class="LineNr">1018 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L1019" class="LineNr">1019 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1020" class="LineNr">1020 </span> 0f 85/jump-if-!= $convert-data:<span class="Constant">break</span>/disp32 -<span id="L1021" class="LineNr">1021 </span><span class="Constant">$convert-data:check-for-comment</span>: -<span id="L1022" class="LineNr">1022 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#"))</span> -<span id="L1023" class="LineNr">1023 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> -<span id="L1024" class="LineNr">1024 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L1025" class="LineNr">1025 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L1026" class="LineNr">1026 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1027" class="LineNr">1027 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L1028" class="LineNr">1028 </span> <span class="subxS1Comment"># . if (c != '#') goto next check</span> -<span id="L1029" class="LineNr">1029 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L1030" class="LineNr">1030 </span> 75/jump-if-!= $convert-data:check-for-label/disp8 -<span id="L1031" class="LineNr">1031 </span><span class="Constant">$convert-data:comment</span>: -<span id="L1032" class="LineNr">1032 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1034" class="LineNr">1034 </span> 51/push-ecx -<span id="L1035" class="LineNr">1035 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1036" class="LineNr">1036 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1037" class="LineNr">1037 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L1038" class="LineNr">1038 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1039" class="LineNr">1039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1040" class="LineNr">1040 </span> <span class="subxComment"># return</span> -<span id="L1041" class="LineNr">1041 </span> 0f 85/jump-if-!= $convert-data:end/disp32 -<span id="L1042" class="LineNr">1042 </span><span class="Constant">$convert-data:check-for-label</span>: -<span id="L1043" class="LineNr">1043 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":"))</span> -<span id="L1044" class="LineNr">1044 </span> <span class="subxS1Comment"># . var end/edx: (addr byte) = word-slice->end</span> -<span id="L1045" class="LineNr">1045 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> -<span id="L1046" class="LineNr">1046 </span> <span class="subxS1Comment"># . var c/eax: byte = *(end-1)</span> -<span id="L1047" class="LineNr">1047 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1048" class="LineNr">1048 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L1049" class="LineNr">1049 </span> <span class="subxS1Comment"># . if (c != ':') goto next check</span> -<span id="L1050" class="LineNr">1050 </span> 3d/compare-eax-and 0x3a/imm32/colon -<span id="L1051" class="LineNr">1051 </span> 75/jump-if-!= $convert-data:check-for-imm32/disp8 -<span id="L1052" class="LineNr">1052 </span><span class="Constant">$convert-data:label</span>: -<span id="L1053" class="LineNr">1053 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1055" class="LineNr">1055 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1056" class="LineNr">1056 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1057" class="LineNr">1057 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1058" class="LineNr">1058 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1059" class="LineNr">1059 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1060" class="LineNr">1060 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1061" class="LineNr">1061 </span> <span class="subxComment"># return</span> -<span id="L1062" class="LineNr">1062 </span> 75/jump-if-!= $convert-data:end/disp8 -<span id="L1063" class="LineNr">1063 </span><span class="Constant">$convert-data:check-for-imm32</span>: -<span id="L1064" class="LineNr">1064 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm32"))</span> -<span id="L1065" class="LineNr">1065 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm32")</span> -<span id="L1066" class="LineNr">1066 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1067" class="LineNr">1067 </span> 68/push <span class="Constant">"imm32"</span>/imm32 -<span id="L1068" class="LineNr">1068 </span> 51/push-ecx -<span id="L1069" class="LineNr">1069 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1070" class="LineNr">1070 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L1071" class="LineNr">1071 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1072" class="LineNr">1072 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1073" class="LineNr">1073 </span> <span class="subxS1Comment"># . if (eax == false) process as a single byte</span> -<span id="L1074" class="LineNr">1074 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1075" class="LineNr">1075 </span> 74/jump-if-= $convert-data:single-byte/disp8 -<span id="L1076" class="LineNr">1076 </span><span class="Constant">$convert-data:imm32</span>: -<span id="L1077" class="LineNr">1077 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L1078" class="LineNr">1078 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1079" class="LineNr">1079 </span> 68/push 4/imm32 -<span id="L1080" class="LineNr">1080 </span> 51/push-ecx -<span id="L1081" class="LineNr">1081 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1082" class="LineNr">1082 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1083" class="LineNr">1083 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L1084" class="LineNr">1084 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1085" class="LineNr">1085 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1086" class="LineNr">1086 </span> e9/jump $convert-data:<span class="Constant">loop</span>/disp32 -<span id="L1087" class="LineNr">1087 </span><span class="Constant">$convert-data:single-byte</span>: -<span id="L1088" class="LineNr">1088 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L1089" class="LineNr">1089 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1090" class="LineNr">1090 </span> 68/push 1/imm32 -<span id="L1091" class="LineNr">1091 </span> 51/push-ecx -<span id="L1092" class="LineNr">1092 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1094" class="LineNr">1094 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1096" class="LineNr">1096 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1097" class="LineNr">1097 </span> e9/jump $convert-data:<span class="Constant">loop</span>/disp32 -<span id="L1098" class="LineNr">1098 </span><span class="Constant">$convert-data:break</span>: -<span id="L1099" class="LineNr">1099 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L1100" class="LineNr">1100 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1101" class="LineNr">1101 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L1102" class="LineNr">1102 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1104" class="LineNr">1104 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1105" class="LineNr">1105 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1106" class="LineNr">1106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1107" class="LineNr">1107 </span><span class="Constant">$convert-data:end</span>: -<span id="L1108" class="LineNr">1108 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1109" class="LineNr">1109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1110" class="LineNr">1110 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1111" class="LineNr">1111 </span> 5a/pop-to-edx -<span id="L1112" class="LineNr">1112 </span> 59/pop-to-ecx -<span id="L1113" class="LineNr">1113 </span> 58/pop-to-eax -<span id="L1114" class="LineNr">1114 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1115" class="LineNr">1115 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1116" class="LineNr">1116 </span> 5d/pop-to-ebp -<span id="L1117" class="LineNr">1117 </span> c3/return -<span id="L1118" class="LineNr">1118 </span> -<span id="L1119" class="LineNr">1119 </span><span class="subxTest">test-convert-data-passes-comments-through</span>: -<span id="L1120" class="LineNr">1120 </span> <span class="subxComment"># if a line starts with '#', pass it along unchanged</span> -<span id="L1121" class="LineNr">1121 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1122" class="LineNr">1122 </span> 55/push-ebp -<span id="L1123" class="LineNr">1123 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1124" class="LineNr">1124 </span> <span class="subxComment"># setup</span> -<span id="L1125" class="LineNr">1125 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1126" class="LineNr">1126 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1127" class="LineNr">1127 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L918" class="LineNr"> 918 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm16")</span> +<span id="L919" class="LineNr"> 919 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L920" class="LineNr"> 920 </span> <span class="subxComment"># else</span> +<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L922" class="LineNr"> 922 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxComment">#</span> +<span id="L924" class="LineNr"> 924 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L925" class="LineNr"> 925 </span> 55/push-ebp +<span id="L926" class="LineNr"> 926 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L927" class="LineNr"> 927 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L928" class="LineNr"> 928 </span> 50/push-eax +<span id="L929" class="LineNr"> 929 </span> 51/push-ecx +<span id="L930" class="LineNr"> 930 </span> 52/push-edx +<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L932" class="LineNr"> 932 </span> 68/push 0/imm32/end +<span id="L933" class="LineNr"> 933 </span> 68/push 0/imm32/start +<span id="L934" class="LineNr"> 934 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L935" class="Folded"> 935 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L961" class="LineNr"> 961 </span><span class="Constant">$convert-data:loop</span>: +<span id="L962" class="LineNr"> 962 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L963" class="LineNr"> 963 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L964" class="LineNr"> 964 </span> 51/push-ecx +<span id="L965" class="LineNr"> 965 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L966" class="LineNr"> 966 </span> <span class="subxS2Comment"># . . call</span> +<span id="L967" class="LineNr"> 967 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L968" class="LineNr"> 968 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L969" class="LineNr"> 969 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L970" class="Folded"> 970 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1010" class="LineNr">1010 </span><span class="Constant">$convert-data:check0</span>: +<span id="L1011" class="LineNr">1011 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L1012" class="LineNr">1012 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L1013" class="LineNr">1013 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1014" class="LineNr">1014 </span> 51/push-ecx +<span id="L1015" class="LineNr">1015 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1016" class="LineNr">1016 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1018" class="LineNr">1018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1019" class="LineNr">1019 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L1020" class="LineNr">1020 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1021" class="LineNr">1021 </span> 0f 85/jump-if-!= $convert-data:<span class="Constant">break</span>/disp32 +<span id="L1022" class="LineNr">1022 </span><span class="Constant">$convert-data:check-for-comment</span>: +<span id="L1023" class="LineNr">1023 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#"))</span> +<span id="L1024" class="LineNr">1024 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> +<span id="L1025" class="LineNr">1025 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L1026" class="LineNr">1026 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L1027" class="LineNr">1027 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1028" class="LineNr">1028 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L1029" class="LineNr">1029 </span> <span class="subxS1Comment"># . if (c != '#') goto next check</span> +<span id="L1030" class="LineNr">1030 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L1031" class="LineNr">1031 </span> 75/jump-if-!= $convert-data:check-for-label/disp8 +<span id="L1032" class="LineNr">1032 </span><span class="Constant">$convert-data:comment</span>: +<span id="L1033" class="LineNr">1033 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L1034" class="LineNr">1034 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1035" class="LineNr">1035 </span> 51/push-ecx +<span id="L1036" class="LineNr">1036 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1037" class="LineNr">1037 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1038" class="LineNr">1038 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1039" class="LineNr">1039 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1040" class="LineNr">1040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1041" class="LineNr">1041 </span> <span class="subxComment"># return</span> +<span id="L1042" class="LineNr">1042 </span> 0f 85/jump-if-!= $convert-data:end/disp32 +<span id="L1043" class="LineNr">1043 </span><span class="Constant">$convert-data:check-for-label</span>: +<span id="L1044" class="LineNr">1044 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":"))</span> +<span id="L1045" class="LineNr">1045 </span> <span class="subxS1Comment"># . var end/edx: (addr byte) = word-slice->end</span> +<span id="L1046" class="LineNr">1046 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L1047" class="LineNr">1047 </span> <span class="subxS1Comment"># . var c/eax: byte = *(end-1)</span> +<span id="L1048" class="LineNr">1048 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1049" class="LineNr">1049 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L1050" class="LineNr">1050 </span> <span class="subxS1Comment"># . if (c != ':') goto next check</span> +<span id="L1051" class="LineNr">1051 </span> 3d/compare-eax-and 0x3a/imm32/colon +<span id="L1052" class="LineNr">1052 </span> 75/jump-if-!= $convert-data:check-for-imm32/disp8 +<span id="L1053" class="LineNr">1053 </span><span class="Constant">$convert-data:label</span>: +<span id="L1054" class="LineNr">1054 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L1055" class="LineNr">1055 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1056" class="LineNr">1056 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1057" class="LineNr">1057 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1059" class="LineNr">1059 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1061" class="LineNr">1061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1062" class="LineNr">1062 </span> <span class="subxComment"># return</span> +<span id="L1063" class="LineNr">1063 </span> 0f 85/jump-if-!= $convert-data:end/disp32 +<span id="L1064" class="LineNr">1064 </span><span class="Constant">$convert-data:check-for-imm32</span>: +<span id="L1065" class="LineNr">1065 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm32"))</span> +<span id="L1066" class="LineNr">1066 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm32")</span> +<span id="L1067" class="LineNr">1067 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1068" class="LineNr">1068 </span> 68/push <span class="Constant">"imm32"</span>/imm32 +<span id="L1069" class="LineNr">1069 </span> 51/push-ecx +<span id="L1070" class="LineNr">1070 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1071" class="LineNr">1071 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1072" class="LineNr">1072 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1073" class="LineNr">1073 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1074" class="LineNr">1074 </span> <span class="subxS1Comment"># . if (eax == false) process as a single byte</span> +<span id="L1075" class="LineNr">1075 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1076" class="LineNr">1076 </span> 74/jump-if-= $convert-data:check-for-imm16/disp8 +<span id="L1077" class="LineNr">1077 </span><span class="Constant">$convert-data:imm32</span>: +<span id="L1078" class="LineNr">1078 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L1079" class="LineNr">1079 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1080" class="LineNr">1080 </span> 68/push 4/imm32 +<span id="L1081" class="LineNr">1081 </span> 51/push-ecx +<span id="L1082" class="LineNr">1082 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1083" class="LineNr">1083 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1084" class="LineNr">1084 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L1085" class="LineNr">1085 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1086" class="LineNr">1086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1087" class="LineNr">1087 </span> e9/jump $convert-data:<span class="Constant">loop</span>/disp32 +<span id="L1088" class="LineNr">1088 </span><span class="Constant">$convert-data:check-for-imm16</span>: +<span id="L1089" class="LineNr">1089 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm16"))</span> +<span id="L1090" class="LineNr">1090 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm16")</span> +<span id="L1091" class="LineNr">1091 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1092" class="LineNr">1092 </span> 68/push <span class="Constant">"imm16"</span>/imm32 +<span id="L1093" class="LineNr">1093 </span> 51/push-ecx +<span id="L1094" class="LineNr">1094 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1095" class="LineNr">1095 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1097" class="LineNr">1097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1098" class="LineNr">1098 </span> <span class="subxS1Comment"># . if (eax == false) process as a single byte</span> +<span id="L1099" class="LineNr">1099 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1100" class="LineNr">1100 </span> 74/jump-if-= $convert-data:single-byte/disp8 +<span id="L1101" class="LineNr">1101 </span><span class="Constant">$convert-data:imm16</span>: +<span id="L1102" class="LineNr">1102 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1104" class="LineNr">1104 </span> 68/push 2/imm32 +<span id="L1105" class="LineNr">1105 </span> 51/push-ecx +<span id="L1106" class="LineNr">1106 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1107" class="LineNr">1107 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1108" class="LineNr">1108 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L1109" class="LineNr">1109 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1110" class="LineNr">1110 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1111" class="LineNr">1111 </span> e9/jump $convert-data:<span class="Constant">loop</span>/disp32 +<span id="L1112" class="LineNr">1112 </span><span class="Constant">$convert-data:single-byte</span>: +<span id="L1113" class="LineNr">1113 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1115" class="LineNr">1115 </span> 68/push 1/imm32 +<span id="L1116" class="LineNr">1116 </span> 51/push-ecx +<span id="L1117" class="LineNr">1117 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1118" class="LineNr">1118 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1119" class="LineNr">1119 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L1120" class="LineNr">1120 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1121" class="LineNr">1121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1122" class="LineNr">1122 </span> e9/jump $convert-data:<span class="Constant">loop</span>/disp32 +<span id="L1123" class="LineNr">1123 </span><span class="Constant">$convert-data:break</span>: +<span id="L1124" class="LineNr">1124 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L1125" class="LineNr">1125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1126" class="LineNr">1126 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1127" class="LineNr">1127 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L1128" class="LineNr">1128 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1129" class="LineNr">1129 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1129" class="LineNr">1129 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L1130" class="LineNr">1130 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1131" class="LineNr">1131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1132" class="LineNr">1132 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1133" class="LineNr">1133 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1134" class="LineNr">1134 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1135" class="LineNr">1135 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1136" class="LineNr">1136 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1137" class="LineNr">1137 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1138" class="LineNr">1138 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1139" class="LineNr">1139 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1140" class="LineNr">1140 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1141" class="LineNr">1141 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1142" class="LineNr">1142 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1143" class="LineNr">1143 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1144" class="LineNr">1144 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1145" class="LineNr">1145 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1146" class="LineNr">1146 </span> <span class="subxComment"># initialize input</span> -<span id="L1147" class="LineNr">1147 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> -<span id="L1148" class="LineNr">1148 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1149" class="LineNr">1149 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L1150" class="LineNr">1150 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1151" class="LineNr">1151 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1152" class="LineNr">1152 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1153" class="LineNr">1153 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1154" class="LineNr">1154 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1155" class="LineNr">1155 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1156" class="LineNr">1156 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1157" class="LineNr">1157 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1158" class="LineNr">1158 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1160" class="LineNr">1160 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1161" class="LineNr">1161 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1162" class="LineNr">1162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1163" class="LineNr">1163 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1164" class="LineNr">1164 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1131" class="LineNr">1131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1132" class="LineNr">1132 </span><span class="Constant">$convert-data:end</span>: +<span id="L1133" class="LineNr">1133 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1134" class="LineNr">1134 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1135" class="LineNr">1135 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1136" class="LineNr">1136 </span> 5a/pop-to-edx +<span id="L1137" class="LineNr">1137 </span> 59/pop-to-ecx +<span id="L1138" class="LineNr">1138 </span> 58/pop-to-eax +<span id="L1139" class="LineNr">1139 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1140" class="LineNr">1140 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1141" class="LineNr">1141 </span> 5d/pop-to-ebp +<span id="L1142" class="LineNr">1142 </span> c3/return +<span id="L1143" class="LineNr">1143 </span> +<span id="L1144" class="LineNr">1144 </span><span class="subxTest">test-convert-data-passes-comments-through</span>: +<span id="L1145" class="LineNr">1145 </span> <span class="subxComment"># if a line starts with '#', pass it along unchanged</span> +<span id="L1146" class="LineNr">1146 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1147" class="LineNr">1147 </span> 55/push-ebp +<span id="L1148" class="LineNr">1148 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1149" class="LineNr">1149 </span> <span class="subxComment"># setup</span> +<span id="L1150" class="LineNr">1150 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1151" class="LineNr">1151 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1152" class="LineNr">1152 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1153" class="LineNr">1153 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1154" class="LineNr">1154 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1155" class="LineNr">1155 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1156" class="LineNr">1156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1157" class="LineNr">1157 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1158" class="LineNr">1158 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1159" class="LineNr">1159 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1160" class="LineNr">1160 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1161" class="LineNr">1161 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1162" class="LineNr">1162 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1163" class="LineNr">1163 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1164" class="LineNr">1164 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1165" class="LineNr">1165 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1166" class="LineNr">1166 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1166" class="LineNr">1166 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1167" class="LineNr">1167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1168" class="LineNr">1168 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1168" class="LineNr">1168 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1169" class="LineNr">1169 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1170" class="LineNr">1170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1171" class="Folded">1171 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1197" class="LineNr">1197 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> -<span id="L1198" class="LineNr">1198 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1199" class="LineNr">1199 </span> 68/push <span class="Constant">"F - test-convert-data-passes-comments-through"</span>/imm32 -<span id="L1200" class="LineNr">1200 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L1201" class="LineNr">1201 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1202" class="LineNr">1202 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1203" class="LineNr">1203 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1204" class="LineNr">1204 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1205" class="LineNr">1205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1206" class="LineNr">1206 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1207" class="LineNr">1207 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1208" class="LineNr">1208 </span> 5d/pop-to-ebp -<span id="L1209" class="LineNr">1209 </span> c3/return -<span id="L1210" class="LineNr">1210 </span> -<span id="L1211" class="LineNr">1211 </span><span class="subxTest">test-convert-data-passes-labels-through</span>: -<span id="L1212" class="LineNr">1212 </span> <span class="subxComment"># if the first word ends with ':', pass along the entire line unchanged</span> -<span id="L1213" class="LineNr">1213 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1214" class="LineNr">1214 </span> 55/push-ebp -<span id="L1215" class="LineNr">1215 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1216" class="LineNr">1216 </span> <span class="subxComment"># setup</span> -<span id="L1217" class="LineNr">1217 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1219" class="LineNr">1219 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1221" class="LineNr">1221 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1223" class="LineNr">1223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1224" class="LineNr">1224 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1225" class="LineNr">1225 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1226" class="LineNr">1226 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1171" class="LineNr">1171 </span> <span class="subxComment"># initialize input</span> +<span id="L1172" class="LineNr">1172 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> +<span id="L1173" class="LineNr">1173 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1174" class="LineNr">1174 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L1175" class="LineNr">1175 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1176" class="LineNr">1176 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1177" class="LineNr">1177 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1178" class="LineNr">1178 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1179" class="LineNr">1179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1180" class="LineNr">1180 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1182" class="LineNr">1182 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1183" class="LineNr">1183 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1184" class="LineNr">1184 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1185" class="LineNr">1185 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1187" class="LineNr">1187 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1188" class="LineNr">1188 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1189" class="LineNr">1189 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1191" class="LineNr">1191 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1193" class="LineNr">1193 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1194" class="LineNr">1194 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1195" class="LineNr">1195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1196" class="Folded">1196 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1222" class="LineNr">1222 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> +<span id="L1223" class="LineNr">1223 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1224" class="LineNr">1224 </span> 68/push <span class="Constant">"F - test-convert-data-passes-comments-through"</span>/imm32 +<span id="L1225" class="LineNr">1225 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L1226" class="LineNr">1226 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1227" class="LineNr">1227 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1228" class="LineNr">1228 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1228" class="LineNr">1228 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1229" class="LineNr">1229 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1230" class="LineNr">1230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1231" class="LineNr">1231 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1232" class="LineNr">1232 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1233" class="LineNr">1233 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1234" class="LineNr">1234 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1235" class="LineNr">1235 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1236" class="LineNr">1236 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1237" class="LineNr">1237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1238" class="LineNr">1238 </span> <span class="subxComment"># initialize input</span> -<span id="L1239" class="LineNr">1239 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> -<span id="L1240" class="LineNr">1240 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1241" class="LineNr">1241 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L1242" class="LineNr">1242 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1243" class="LineNr">1243 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1244" class="LineNr">1244 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1245" class="LineNr">1245 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1246" class="LineNr">1246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1247" class="LineNr">1247 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1248" class="LineNr">1248 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1249" class="LineNr">1249 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1250" class="LineNr">1250 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1252" class="LineNr">1252 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1254" class="LineNr">1254 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1255" class="LineNr">1255 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1256" class="LineNr">1256 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1230" class="LineNr">1230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1231" class="LineNr">1231 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1232" class="LineNr">1232 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1233" class="LineNr">1233 </span> 5d/pop-to-ebp +<span id="L1234" class="LineNr">1234 </span> c3/return +<span id="L1235" class="LineNr">1235 </span> +<span id="L1236" class="LineNr">1236 </span><span class="subxTest">test-convert-data-passes-labels-through</span>: +<span id="L1237" class="LineNr">1237 </span> <span class="subxComment"># if the first word ends with ':', pass along the entire line unchanged</span> +<span id="L1238" class="LineNr">1238 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1239" class="LineNr">1239 </span> 55/push-ebp +<span id="L1240" class="LineNr">1240 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1241" class="LineNr">1241 </span> <span class="subxComment"># setup</span> +<span id="L1242" class="LineNr">1242 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1243" class="LineNr">1243 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1244" class="LineNr">1244 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1245" class="LineNr">1245 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1246" class="LineNr">1246 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1248" class="LineNr">1248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1249" class="LineNr">1249 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1250" class="LineNr">1250 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1251" class="LineNr">1251 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1252" class="LineNr">1252 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1253" class="LineNr">1253 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1254" class="LineNr">1254 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1255" class="LineNr">1255 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1256" class="LineNr">1256 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1258" class="LineNr">1258 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1258" class="LineNr">1258 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1259" class="LineNr">1259 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1260" class="LineNr">1260 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1260" class="LineNr">1260 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1261" class="LineNr">1261 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1262" class="LineNr">1262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1263" class="LineNr">1263 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab: # cd", msg)</span> -<span id="L1264" class="LineNr">1264 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1265" class="LineNr">1265 </span> 68/push <span class="Constant">"F - test-convert-data-passes-labels-through"</span>/imm32 +<span id="L1263" class="LineNr">1263 </span> <span class="subxComment"># initialize input</span> +<span id="L1264" class="LineNr">1264 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> +<span id="L1265" class="LineNr">1265 </span> <span class="subxS2Comment"># . . push args</span> <span id="L1266" class="LineNr">1266 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L1267" class="LineNr">1267 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1267" class="LineNr">1267 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1268" class="LineNr">1268 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1269" class="LineNr">1269 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1269" class="LineNr">1269 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1271" class="LineNr">1271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1272" class="LineNr">1272 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1273" class="LineNr">1273 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1274" class="LineNr">1274 </span> 5d/pop-to-ebp -<span id="L1275" class="LineNr">1275 </span> c3/return -<span id="L1276" class="LineNr">1276 </span> -<span id="L1277" class="LineNr">1277 </span><span class="subxTest">test-convert-data-passes-names-through</span>: -<span id="L1278" class="LineNr">1278 </span> <span class="subxComment"># If a word is a valid name, just emit it unchanged.</span> -<span id="L1279" class="LineNr">1279 </span> <span class="subxComment"># Later phases will deal with it.</span> -<span id="L1280" class="LineNr">1280 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1281" class="LineNr">1281 </span> 55/push-ebp -<span id="L1282" class="LineNr">1282 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1283" class="LineNr">1283 </span> <span class="subxComment"># setup</span> -<span id="L1284" class="LineNr">1284 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1285" class="LineNr">1285 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1286" class="LineNr">1286 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1287" class="LineNr">1287 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1288" class="LineNr">1288 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1289" class="LineNr">1289 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1290" class="LineNr">1290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1291" class="LineNr">1291 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1292" class="LineNr">1292 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1293" class="LineNr">1293 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1294" class="LineNr">1294 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1295" class="LineNr">1295 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1296" class="LineNr">1296 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1297" class="LineNr">1297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1298" class="LineNr">1298 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1299" class="LineNr">1299 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1300" class="LineNr">1300 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1301" class="LineNr">1301 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1302" class="LineNr">1302 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1303" class="LineNr">1303 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1304" class="LineNr">1304 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1305" class="LineNr">1305 </span> <span class="subxComment"># initialize input</span> -<span id="L1306" class="LineNr">1306 </span> <span class="subxS1Comment"># . write(_test-input-stream, "abcd/imm32")</span> -<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1308" class="LineNr">1308 </span> 68/push <span class="Constant">"abcd/imm32"</span>/imm32 -<span id="L1309" class="LineNr">1309 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1311" class="LineNr">1311 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1312" class="LineNr">1312 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1313" class="LineNr">1313 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1314" class="LineNr">1314 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1315" class="LineNr">1315 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1316" class="LineNr">1316 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1317" class="LineNr">1317 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1319" class="LineNr">1319 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1321" class="LineNr">1321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1322" class="LineNr">1322 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1323" class="LineNr">1323 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1271" class="LineNr">1271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1272" class="LineNr">1272 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1273" class="LineNr">1273 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1274" class="LineNr">1274 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1275" class="LineNr">1275 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1276" class="LineNr">1276 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1277" class="LineNr">1277 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1278" class="LineNr">1278 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1279" class="LineNr">1279 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1280" class="LineNr">1280 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1281" class="LineNr">1281 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1282" class="LineNr">1282 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1283" class="LineNr">1283 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1285" class="LineNr">1285 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1286" class="LineNr">1286 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1287" class="LineNr">1287 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1288" class="LineNr">1288 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab: # cd", msg)</span> +<span id="L1289" class="LineNr">1289 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1290" class="LineNr">1290 </span> 68/push <span class="Constant">"F - test-convert-data-passes-labels-through"</span>/imm32 +<span id="L1291" class="LineNr">1291 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L1292" class="LineNr">1292 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1294" class="LineNr">1294 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1296" class="LineNr">1296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1297" class="LineNr">1297 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1298" class="LineNr">1298 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1299" class="LineNr">1299 </span> 5d/pop-to-ebp +<span id="L1300" class="LineNr">1300 </span> c3/return +<span id="L1301" class="LineNr">1301 </span> +<span id="L1302" class="LineNr">1302 </span><span class="subxTest">test-convert-data-passes-names-through</span>: +<span id="L1303" class="LineNr">1303 </span> <span class="subxComment"># If a word is a valid name, just emit it unchanged.</span> +<span id="L1304" class="LineNr">1304 </span> <span class="subxComment"># Later phases will deal with it.</span> +<span id="L1305" class="LineNr">1305 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1306" class="LineNr">1306 </span> 55/push-ebp +<span id="L1307" class="LineNr">1307 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1308" class="LineNr">1308 </span> <span class="subxComment"># setup</span> +<span id="L1309" class="LineNr">1309 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1311" class="LineNr">1311 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1312" class="LineNr">1312 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1313" class="LineNr">1313 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1314" class="LineNr">1314 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1315" class="LineNr">1315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1316" class="LineNr">1316 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1317" class="LineNr">1317 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1318" class="LineNr">1318 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1319" class="LineNr">1319 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1320" class="LineNr">1320 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1321" class="LineNr">1321 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1322" class="LineNr">1322 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1323" class="LineNr">1323 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1324" class="LineNr">1324 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1325" class="LineNr">1325 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1325" class="LineNr">1325 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1326" class="LineNr">1326 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1327" class="LineNr">1327 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1327" class="LineNr">1327 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1328" class="LineNr">1328 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1329" class="LineNr">1329 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1330" class="LineNr">1330 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "abcd/imm32 \n", msg)</span> -<span id="L1331" class="LineNr">1331 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1332" class="LineNr">1332 </span> 68/push <span class="Constant">"F - test-convert-data-passes-names-through"</span>/imm32 -<span id="L1333" class="LineNr">1333 </span> 68/push <span class="Constant">"abcd/imm32 \n"</span>/imm32 -<span id="L1334" class="LineNr">1334 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1330" class="LineNr">1330 </span> <span class="subxComment"># initialize input</span> +<span id="L1331" class="LineNr">1331 </span> <span class="subxS1Comment"># . write(_test-input-stream, "abcd/imm32")</span> +<span id="L1332" class="LineNr">1332 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1333" class="LineNr">1333 </span> 68/push <span class="Constant">"abcd/imm32"</span>/imm32 +<span id="L1334" class="LineNr">1334 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1335" class="LineNr">1335 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1336" class="LineNr">1336 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1336" class="LineNr">1336 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1337" class="LineNr">1337 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1338" class="LineNr">1338 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1339" class="LineNr">1339 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1340" class="LineNr">1340 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1341" class="LineNr">1341 </span> 5d/pop-to-ebp -<span id="L1342" class="LineNr">1342 </span> c3/return -<span id="L1343" class="LineNr">1343 </span> -<span id="L1344" class="LineNr">1344 </span><span class="subxTest">test-convert-data-handles-imm32</span>: -<span id="L1345" class="LineNr">1345 </span> <span class="subxComment"># If a word has the /imm32 metadata, emit it in 4 bytes.</span> -<span id="L1346" class="LineNr">1346 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1347" class="LineNr">1347 </span> 55/push-ebp -<span id="L1348" class="LineNr">1348 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1349" class="LineNr">1349 </span> <span class="subxComment"># setup</span> -<span id="L1350" class="LineNr">1350 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1352" class="LineNr">1352 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1354" class="LineNr">1354 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1356" class="LineNr">1356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1357" class="LineNr">1357 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1358" class="LineNr">1358 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1359" class="LineNr">1359 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1338" class="LineNr">1338 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1339" class="LineNr">1339 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1340" class="LineNr">1340 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1341" class="LineNr">1341 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1342" class="LineNr">1342 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1343" class="LineNr">1343 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1344" class="LineNr">1344 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1345" class="LineNr">1345 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1346" class="LineNr">1346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1347" class="LineNr">1347 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1348" class="LineNr">1348 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1349" class="LineNr">1349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1350" class="LineNr">1350 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1352" class="LineNr">1352 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1354" class="LineNr">1354 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1355" class="LineNr">1355 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "abcd/imm32 \n", msg)</span> +<span id="L1356" class="LineNr">1356 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1357" class="LineNr">1357 </span> 68/push <span class="Constant">"F - test-convert-data-passes-names-through"</span>/imm32 +<span id="L1358" class="LineNr">1358 </span> 68/push <span class="Constant">"abcd/imm32 \n"</span>/imm32 +<span id="L1359" class="LineNr">1359 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L1360" class="LineNr">1360 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1361" class="LineNr">1361 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1361" class="LineNr">1361 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 <span id="L1362" class="LineNr">1362 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1363" class="LineNr">1363 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1364" class="LineNr">1364 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1365" class="LineNr">1365 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1366" class="LineNr">1366 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1367" class="LineNr">1367 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1368" class="LineNr">1368 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1369" class="LineNr">1369 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1370" class="LineNr">1370 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1371" class="LineNr">1371 </span> <span class="subxComment"># initialize input</span> -<span id="L1372" class="LineNr">1372 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30/imm32")</span> -<span id="L1373" class="LineNr">1373 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1374" class="LineNr">1374 </span> 68/push <span class="Constant">"30/imm32"</span>/imm32 -<span id="L1375" class="LineNr">1375 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1376" class="LineNr">1376 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1377" class="LineNr">1377 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1378" class="LineNr">1378 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1379" class="LineNr">1379 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1380" class="LineNr">1380 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1381" class="LineNr">1381 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1382" class="LineNr">1382 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1383" class="LineNr">1383 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1384" class="LineNr">1384 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1385" class="LineNr">1385 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1386" class="LineNr">1386 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1387" class="LineNr">1387 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1388" class="LineNr">1388 </span> <span class="subxComment"># check that 4 bytes were written</span> -<span id="L1389" class="LineNr">1389 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1363" class="LineNr">1363 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1364" class="LineNr">1364 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1365" class="LineNr">1365 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1366" class="LineNr">1366 </span> 5d/pop-to-ebp +<span id="L1367" class="LineNr">1367 </span> c3/return +<span id="L1368" class="LineNr">1368 </span> +<span id="L1369" class="LineNr">1369 </span><span class="subxTest">test-convert-data-handles-imm32</span>: +<span id="L1370" class="LineNr">1370 </span> <span class="subxComment"># If a word has the /imm32 metadata, emit it in 4 bytes.</span> +<span id="L1371" class="LineNr">1371 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1372" class="LineNr">1372 </span> 55/push-ebp +<span id="L1373" class="LineNr">1373 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1374" class="LineNr">1374 </span> <span class="subxComment"># setup</span> +<span id="L1375" class="LineNr">1375 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1376" class="LineNr">1376 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1377" class="LineNr">1377 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1378" class="LineNr">1378 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1379" class="LineNr">1379 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1380" class="LineNr">1380 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1381" class="LineNr">1381 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1382" class="LineNr">1382 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1383" class="LineNr">1383 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1384" class="LineNr">1384 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1385" class="LineNr">1385 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1386" class="LineNr">1386 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1387" class="LineNr">1387 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1388" class="LineNr">1388 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1389" class="LineNr">1389 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L1390" class="LineNr">1390 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1391" class="LineNr">1391 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 +<span id="L1391" class="LineNr">1391 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L1392" class="LineNr">1392 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1393" class="LineNr">1393 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1393" class="LineNr">1393 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1394" class="LineNr">1394 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1395" class="LineNr">1395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1396" class="LineNr">1396 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 00 00 00 \n", msg)</span> -<span id="L1397" class="LineNr">1397 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1398" class="LineNr">1398 </span> 68/push <span class="Constant">"F - test-convert-data-handles-imm32"</span>/imm32 -<span id="L1399" class="LineNr">1399 </span> 68/push <span class="Constant">"30 00 00 00 \n"</span>/imm32 -<span id="L1400" class="LineNr">1400 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L1396" class="LineNr">1396 </span> <span class="subxComment"># initialize input</span> +<span id="L1397" class="LineNr">1397 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30/imm32")</span> +<span id="L1398" class="LineNr">1398 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1399" class="LineNr">1399 </span> 68/push <span class="Constant">"30/imm32"</span>/imm32 +<span id="L1400" class="LineNr">1400 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1401" class="LineNr">1401 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1402" class="LineNr">1402 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1402" class="LineNr">1402 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1403" class="LineNr">1403 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1404" class="LineNr">1404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1405" class="LineNr">1405 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1406" class="LineNr">1406 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1407" class="LineNr">1407 </span> 5d/pop-to-ebp -<span id="L1408" class="LineNr">1408 </span> c3/return -<span id="L1409" class="LineNr">1409 </span> -<span id="L1410" class="LineNr">1410 </span><span class="subxTest">test-convert-data-handles-single-byte</span>: -<span id="L1411" class="LineNr">1411 </span> <span class="subxComment"># Any metadata but /imm32 will emit a single byte.</span> -<span id="L1412" class="LineNr">1412 </span> <span class="subxComment"># Data segments can't have /disp32, and SubX doesn't support 16-bit operands.</span> -<span id="L1413" class="LineNr">1413 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1414" class="LineNr">1414 </span> 55/push-ebp -<span id="L1415" class="LineNr">1415 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1416" class="LineNr">1416 </span> <span class="subxComment"># setup</span> -<span id="L1417" class="LineNr">1417 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1418" class="LineNr">1418 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1419" class="LineNr">1419 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1420" class="LineNr">1420 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1421" class="LineNr">1421 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1422" class="LineNr">1422 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1423" class="LineNr">1423 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1424" class="LineNr">1424 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1425" class="LineNr">1425 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1426" class="LineNr">1426 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1427" class="LineNr">1427 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1428" class="LineNr">1428 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1429" class="LineNr">1429 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1430" class="LineNr">1430 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1431" class="LineNr">1431 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1433" class="LineNr">1433 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1434" class="LineNr">1434 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1435" class="LineNr">1435 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1436" class="LineNr">1436 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1437" class="LineNr">1437 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1438" class="LineNr">1438 </span> <span class="subxComment"># initialize input</span> -<span id="L1439" class="LineNr">1439 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30/imm16")</span> -<span id="L1440" class="LineNr">1440 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1441" class="LineNr">1441 </span> 68/push <span class="Constant">"30/imm16"</span>/imm32 -<span id="L1442" class="LineNr">1442 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1404" class="LineNr">1404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1405" class="LineNr">1405 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1406" class="LineNr">1406 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1407" class="LineNr">1407 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1408" class="LineNr">1408 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1409" class="LineNr">1409 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1410" class="LineNr">1410 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1411" class="LineNr">1411 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1412" class="LineNr">1412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1413" class="LineNr">1413 </span> <span class="subxComment"># check that 4 bytes were written</span> +<span id="L1414" class="LineNr">1414 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1415" class="LineNr">1415 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1416" class="LineNr">1416 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1417" class="LineNr">1417 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1418" class="LineNr">1418 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1419" class="LineNr">1419 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1420" class="LineNr">1420 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1421" class="LineNr">1421 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 00 00 00 \n", msg)</span> +<span id="L1422" class="LineNr">1422 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1423" class="LineNr">1423 </span> 68/push <span class="Constant">"F - test-convert-data-handles-imm32"</span>/imm32 +<span id="L1424" class="LineNr">1424 </span> 68/push <span class="Constant">"30 00 00 00 \n"</span>/imm32 +<span id="L1425" class="LineNr">1425 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1427" class="LineNr">1427 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1428" class="LineNr">1428 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1429" class="LineNr">1429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1430" class="LineNr">1430 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1431" class="LineNr">1431 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1432" class="LineNr">1432 </span> 5d/pop-to-ebp +<span id="L1433" class="LineNr">1433 </span> c3/return +<span id="L1434" class="LineNr">1434 </span> +<span id="L1435" class="LineNr">1435 </span><span class="subxTest">test-convert-data-handles-imm16</span>: +<span id="L1436" class="LineNr">1436 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1437" class="LineNr">1437 </span> 55/push-ebp +<span id="L1438" class="LineNr">1438 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1439" class="LineNr">1439 </span> <span class="subxComment"># setup</span> +<span id="L1440" class="LineNr">1440 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1441" class="LineNr">1441 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1442" class="LineNr">1442 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1443" class="LineNr">1443 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1444" class="LineNr">1444 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1444" class="LineNr">1444 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L1445" class="LineNr">1445 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1446" class="LineNr">1446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1447" class="LineNr">1447 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1446" class="LineNr">1446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1449" class="LineNr">1449 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1450" class="LineNr">1450 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1451" class="LineNr">1451 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1452" class="LineNr">1452 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1453" class="LineNr">1453 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1454" class="LineNr">1454 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1455" class="LineNr">1455 </span> <span class="subxComment"># check that a single byte was written (imm16 is not a valid operand type)</span> -<span id="L1456" class="LineNr">1456 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1457" class="LineNr">1457 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1458" class="LineNr">1458 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1459" class="LineNr">1459 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1460" class="LineNr">1460 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1461" class="LineNr">1461 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1462" class="LineNr">1462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1463" class="LineNr">1463 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 \n", msg)</span> -<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1465" class="LineNr">1465 </span> 68/push <span class="Constant">"F - test-convert-data-handles-single-byte"</span>/imm32 -<span id="L1466" class="LineNr">1466 </span> 68/push <span class="Constant">"30 \n"</span>/imm32 -<span id="L1467" class="LineNr">1467 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1468" class="LineNr">1468 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1469" class="LineNr">1469 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1470" class="LineNr">1470 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1471" class="LineNr">1471 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1472" class="LineNr">1472 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1473" class="LineNr">1473 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1474" class="LineNr">1474 </span> 5d/pop-to-ebp -<span id="L1475" class="LineNr">1475 </span> c3/return -<span id="L1476" class="LineNr">1476 </span> -<span id="L1477" class="LineNr">1477 </span><span class="subxTest">test-convert-data-multiple-bytes</span>: -<span id="L1478" class="LineNr">1478 </span> <span class="subxComment"># Multiple single-byte words in input stream get processed one by one.</span> -<span id="L1479" class="LineNr">1479 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1480" class="LineNr">1480 </span> 55/push-ebp -<span id="L1481" class="LineNr">1481 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1482" class="LineNr">1482 </span> <span class="subxComment"># setup</span> -<span id="L1483" class="LineNr">1483 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1484" class="LineNr">1484 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1485" class="LineNr">1485 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1487" class="LineNr">1487 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1489" class="LineNr">1489 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1490" class="LineNr">1490 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1492" class="LineNr">1492 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1494" class="LineNr">1494 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1495" class="LineNr">1495 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1496" class="LineNr">1496 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1497" class="LineNr">1497 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1498" class="LineNr">1498 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1499" class="LineNr">1499 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1500" class="LineNr">1500 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1501" class="LineNr">1501 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1502" class="LineNr">1502 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1503" class="LineNr">1503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1504" class="LineNr">1504 </span> <span class="subxComment"># initialize input</span> -<span id="L1505" class="LineNr">1505 </span> <span class="subxS1Comment"># . write(_test-input-stream, "1 2")</span> +<span id="L1449" class="LineNr">1449 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1450" class="LineNr">1450 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1451" class="LineNr">1451 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1452" class="LineNr">1452 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1453" class="LineNr">1453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1454" class="LineNr">1454 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1455" class="LineNr">1455 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1456" class="LineNr">1456 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1457" class="LineNr">1457 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1458" class="LineNr">1458 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1459" class="LineNr">1459 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1460" class="LineNr">1460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1461" class="LineNr">1461 </span> <span class="subxComment"># initialize input</span> +<span id="L1462" class="LineNr">1462 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30/imm16")</span> +<span id="L1463" class="LineNr">1463 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1464" class="LineNr">1464 </span> 68/push <span class="Constant">"30/imm16"</span>/imm32 +<span id="L1465" class="LineNr">1465 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1466" class="LineNr">1466 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1467" class="LineNr">1467 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1468" class="LineNr">1468 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1469" class="LineNr">1469 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1470" class="LineNr">1470 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1472" class="LineNr">1472 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1473" class="LineNr">1473 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1474" class="LineNr">1474 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1475" class="LineNr">1475 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1476" class="LineNr">1476 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1477" class="LineNr">1477 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1478" class="LineNr">1478 </span> <span class="subxComment"># check that a single byte was written</span> +<span id="L1479" class="LineNr">1479 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1480" class="LineNr">1480 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1481" class="LineNr">1481 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1482" class="LineNr">1482 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1483" class="LineNr">1483 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1484" class="LineNr">1484 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1485" class="LineNr">1485 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1486" class="LineNr">1486 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 00 \n", msg)</span> +<span id="L1487" class="LineNr">1487 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1488" class="LineNr">1488 </span> 68/push <span class="Constant">"F - test-convert-data-handles-imm16"</span>/imm32 +<span id="L1489" class="LineNr">1489 </span> 68/push <span class="Constant">"30 00 \n"</span>/imm32 +<span id="L1490" class="LineNr">1490 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1492" class="LineNr">1492 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1494" class="LineNr">1494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1495" class="LineNr">1495 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1496" class="LineNr">1496 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1497" class="LineNr">1497 </span> 5d/pop-to-ebp +<span id="L1498" class="LineNr">1498 </span> c3/return +<span id="L1499" class="LineNr">1499 </span> +<span id="L1500" class="LineNr">1500 </span><span class="subxTest">test-convert-data-handles-imm8</span>: +<span id="L1501" class="LineNr">1501 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1502" class="LineNr">1502 </span> 55/push-ebp +<span id="L1503" class="LineNr">1503 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1504" class="LineNr">1504 </span> <span class="subxComment"># setup</span> +<span id="L1505" class="LineNr">1505 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1506" class="LineNr">1506 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1507" class="LineNr">1507 </span> 68/push <span class="Constant">"1 2"</span>/imm32 -<span id="L1508" class="LineNr">1508 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1509" class="LineNr">1509 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1510" class="LineNr">1510 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1512" class="LineNr">1512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1513" class="LineNr">1513 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1514" class="LineNr">1514 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1515" class="LineNr">1515 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1516" class="LineNr">1516 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1518" class="LineNr">1518 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1519" class="LineNr">1519 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1520" class="LineNr">1520 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1521" class="LineNr">1521 </span> <span class="subxComment"># check output</span> -<span id="L1522" class="LineNr">1522 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1523" class="LineNr">1523 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1524" class="LineNr">1524 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1525" class="LineNr">1525 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1526" class="LineNr">1526 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1527" class="LineNr">1527 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1528" class="LineNr">1528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1529" class="LineNr">1529 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "01 02 \n", msg)</span> -<span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1531" class="LineNr">1531 </span> 68/push <span class="Constant">"F - test-convert-data-multiple-bytes"</span>/imm32 -<span id="L1532" class="LineNr">1532 </span> 68/push <span class="Constant">"01 02 \n"</span>/imm32 -<span id="L1533" class="LineNr">1533 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1534" class="LineNr">1534 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1535" class="LineNr">1535 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1536" class="LineNr">1536 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1537" class="LineNr">1537 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1538" class="LineNr">1538 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1539" class="LineNr">1539 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1540" class="LineNr">1540 </span> 5d/pop-to-ebp -<span id="L1541" class="LineNr">1541 </span> c3/return -<span id="L1542" class="LineNr">1542 </span> -<span id="L1543" class="LineNr">1543 </span><span class="subxTest">test-convert-data-byte-then-name</span>: -<span id="L1544" class="LineNr">1544 </span> <span class="subxComment"># Single-byte word followed by valid name get processed one by one.</span> -<span id="L1545" class="LineNr">1545 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1546" class="LineNr">1546 </span> 55/push-ebp -<span id="L1547" class="LineNr">1547 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1548" class="LineNr">1548 </span> <span class="subxComment"># setup</span> -<span id="L1549" class="LineNr">1549 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1550" class="LineNr">1550 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1551" class="LineNr">1551 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1553" class="LineNr">1553 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1555" class="LineNr">1555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1556" class="LineNr">1556 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1558" class="LineNr">1558 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1559" class="LineNr">1559 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1560" class="LineNr">1560 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1561" class="LineNr">1561 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1562" class="LineNr">1562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1563" class="LineNr">1563 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1564" class="LineNr">1564 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1565" class="LineNr">1565 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1566" class="LineNr">1566 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1567" class="LineNr">1567 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1568" class="LineNr">1568 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1569" class="LineNr">1569 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1570" class="LineNr">1570 </span> <span class="subxComment"># initialize input</span> -<span id="L1571" class="LineNr">1571 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30 abcd/o")</span> +<span id="L1507" class="LineNr">1507 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1508" class="LineNr">1508 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1509" class="LineNr">1509 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1510" class="LineNr">1510 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1511" class="LineNr">1511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1512" class="LineNr">1512 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1513" class="LineNr">1513 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1514" class="LineNr">1514 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1515" class="LineNr">1515 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1516" class="LineNr">1516 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1517" class="LineNr">1517 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1518" class="LineNr">1518 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1519" class="LineNr">1519 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1520" class="LineNr">1520 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1521" class="LineNr">1521 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1522" class="LineNr">1522 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1523" class="LineNr">1523 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1525" class="LineNr">1525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1526" class="LineNr">1526 </span> <span class="subxComment"># initialize input</span> +<span id="L1527" class="LineNr">1527 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30/imm8")</span> +<span id="L1528" class="LineNr">1528 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1529" class="LineNr">1529 </span> 68/push <span class="Constant">"30/imm8"</span>/imm32 +<span id="L1530" class="LineNr">1530 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1531" class="LineNr">1531 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1532" class="LineNr">1532 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1533" class="LineNr">1533 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1534" class="LineNr">1534 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1535" class="LineNr">1535 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1536" class="LineNr">1536 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1537" class="LineNr">1537 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1538" class="LineNr">1538 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1539" class="LineNr">1539 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1540" class="LineNr">1540 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1541" class="LineNr">1541 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1542" class="LineNr">1542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1543" class="LineNr">1543 </span> <span class="subxComment"># check that a single byte was written</span> +<span id="L1544" class="LineNr">1544 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1545" class="LineNr">1545 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1546" class="LineNr">1546 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1547" class="LineNr">1547 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1548" class="LineNr">1548 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1549" class="LineNr">1549 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1550" class="LineNr">1550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1551" class="LineNr">1551 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 \n", msg)</span> +<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1553" class="LineNr">1553 </span> 68/push <span class="Constant">"F - test-convert-data-handles-imm8"</span>/imm32 +<span id="L1554" class="LineNr">1554 </span> 68/push <span class="Constant">"30 \n"</span>/imm32 +<span id="L1555" class="LineNr">1555 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1556" class="LineNr">1556 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1557" class="LineNr">1557 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1558" class="LineNr">1558 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1559" class="LineNr">1559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1560" class="LineNr">1560 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1561" class="LineNr">1561 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1562" class="LineNr">1562 </span> 5d/pop-to-ebp +<span id="L1563" class="LineNr">1563 </span> c3/return +<span id="L1564" class="LineNr">1564 </span> +<span id="L1565" class="LineNr">1565 </span><span class="subxTest">test-convert-data-multiple-bytes</span>: +<span id="L1566" class="LineNr">1566 </span> <span class="subxComment"># Multiple single-byte words in input stream get processed one by one.</span> +<span id="L1567" class="LineNr">1567 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1568" class="LineNr">1568 </span> 55/push-ebp +<span id="L1569" class="LineNr">1569 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1570" class="LineNr">1570 </span> <span class="subxComment"># setup</span> +<span id="L1571" class="LineNr">1571 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1572" class="LineNr">1572 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1573" class="LineNr">1573 </span> 68/push <span class="Constant">"30 abcd/o"</span>/imm32 -<span id="L1574" class="LineNr">1574 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1575" class="LineNr">1575 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1576" class="LineNr">1576 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1577" class="LineNr">1577 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1578" class="LineNr">1578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1579" class="LineNr">1579 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1581" class="LineNr">1581 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1582" class="LineNr">1582 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1583" class="LineNr">1583 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1584" class="LineNr">1584 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1585" class="LineNr">1585 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1586" class="LineNr">1586 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1587" class="LineNr">1587 </span> <span class="subxComment"># check output</span> -<span id="L1588" class="LineNr">1588 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1589" class="LineNr">1589 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1590" class="LineNr">1590 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1591" class="LineNr">1591 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1592" class="LineNr">1592 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1593" class="LineNr">1593 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1594" class="LineNr">1594 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1595" class="LineNr">1595 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 abcd/o \n", msg)</span> -<span id="L1596" class="LineNr">1596 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1597" class="LineNr">1597 </span> 68/push <span class="Constant">"F - test-convert-data-byte-then-name"</span>/imm32 -<span id="L1598" class="LineNr">1598 </span> 68/push <span class="Constant">"30 abcd/o \n"</span>/imm32 -<span id="L1599" class="LineNr">1599 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1600" class="LineNr">1600 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1601" class="LineNr">1601 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1602" class="LineNr">1602 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1603" class="LineNr">1603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1604" class="LineNr">1604 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1605" class="LineNr">1605 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1606" class="LineNr">1606 </span> 5d/pop-to-ebp -<span id="L1607" class="LineNr">1607 </span> c3/return -<span id="L1608" class="LineNr">1608 </span> -<span id="L1609" class="LineNr">1609 </span><span class="subxTest">test-convert-data-multiple-words</span>: -<span id="L1610" class="LineNr">1610 </span> <span class="subxComment"># Multiple words in input stream get processed one by one.</span> -<span id="L1611" class="LineNr">1611 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1612" class="LineNr">1612 </span> 55/push-ebp -<span id="L1613" class="LineNr">1613 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1614" class="LineNr">1614 </span> <span class="subxComment"># setup</span> -<span id="L1615" class="LineNr">1615 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1616" class="LineNr">1616 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1617" class="LineNr">1617 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1618" class="LineNr">1618 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1619" class="LineNr">1619 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1620" class="LineNr">1620 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1621" class="LineNr">1621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1622" class="LineNr">1622 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1623" class="LineNr">1623 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1624" class="LineNr">1624 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1625" class="LineNr">1625 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1626" class="LineNr">1626 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1627" class="LineNr">1627 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1628" class="LineNr">1628 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1629" class="LineNr">1629 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1630" class="LineNr">1630 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1631" class="LineNr">1631 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1632" class="LineNr">1632 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1633" class="LineNr">1633 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1634" class="LineNr">1634 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1635" class="LineNr">1635 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># initialize input</span> -<span id="L1637" class="LineNr">1637 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30 abcd/o 42e1/imm32")</span> +<span id="L1573" class="LineNr">1573 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1575" class="LineNr">1575 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1577" class="LineNr">1577 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1578" class="LineNr">1578 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1579" class="LineNr">1579 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1580" class="LineNr">1580 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1581" class="LineNr">1581 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1582" class="LineNr">1582 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1583" class="LineNr">1583 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1584" class="LineNr">1584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1585" class="LineNr">1585 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1586" class="LineNr">1586 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1587" class="LineNr">1587 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1589" class="LineNr">1589 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1590" class="LineNr">1590 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1591" class="LineNr">1591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1592" class="LineNr">1592 </span> <span class="subxComment"># initialize input</span> +<span id="L1593" class="LineNr">1593 </span> <span class="subxS1Comment"># . write(_test-input-stream, "1 2")</span> +<span id="L1594" class="LineNr">1594 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1595" class="LineNr">1595 </span> 68/push <span class="Constant">"1 2"</span>/imm32 +<span id="L1596" class="LineNr">1596 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1597" class="LineNr">1597 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1598" class="LineNr">1598 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1599" class="LineNr">1599 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1600" class="LineNr">1600 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1601" class="LineNr">1601 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1602" class="LineNr">1602 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1603" class="LineNr">1603 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1604" class="LineNr">1604 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1605" class="LineNr">1605 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1606" class="LineNr">1606 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1607" class="LineNr">1607 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1608" class="LineNr">1608 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1609" class="LineNr">1609 </span> <span class="subxComment"># check output</span> +<span id="L1610" class="LineNr">1610 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1611" class="LineNr">1611 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1612" class="LineNr">1612 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1614" class="LineNr">1614 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1615" class="LineNr">1615 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1616" class="LineNr">1616 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1617" class="LineNr">1617 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "01 02 \n", msg)</span> +<span id="L1618" class="LineNr">1618 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1619" class="LineNr">1619 </span> 68/push <span class="Constant">"F - test-convert-data-multiple-bytes"</span>/imm32 +<span id="L1620" class="LineNr">1620 </span> 68/push <span class="Constant">"01 02 \n"</span>/imm32 +<span id="L1621" class="LineNr">1621 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1622" class="LineNr">1622 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1623" class="LineNr">1623 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1624" class="LineNr">1624 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1625" class="LineNr">1625 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1626" class="LineNr">1626 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1627" class="LineNr">1627 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1628" class="LineNr">1628 </span> 5d/pop-to-ebp +<span id="L1629" class="LineNr">1629 </span> c3/return +<span id="L1630" class="LineNr">1630 </span> +<span id="L1631" class="LineNr">1631 </span><span class="subxTest">test-convert-data-byte-then-name</span>: +<span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># Single-byte word followed by valid name get processed one by one.</span> +<span id="L1633" class="LineNr">1633 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1634" class="LineNr">1634 </span> 55/push-ebp +<span id="L1635" class="LineNr">1635 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># setup</span> +<span id="L1637" class="LineNr">1637 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L1638" class="LineNr">1638 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1639" class="LineNr">1639 </span> 68/push <span class="Constant">"30 abcd/o 42e1/imm32"</span>/imm32 -<span id="L1640" class="LineNr">1640 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1641" class="LineNr">1641 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1642" class="LineNr">1642 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1643" class="LineNr">1643 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1644" class="LineNr">1644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1646" class="LineNr">1646 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1647" class="LineNr">1647 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1648" class="LineNr">1648 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1649" class="LineNr">1649 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1650" class="LineNr">1650 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1651" class="LineNr">1651 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1652" class="LineNr">1652 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1653" class="LineNr">1653 </span> <span class="subxComment"># check output</span> -<span id="L1654" class="LineNr">1654 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1655" class="LineNr">1655 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1656" class="LineNr">1656 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1657" class="LineNr">1657 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1658" class="LineNr">1658 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1659" class="LineNr">1659 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1660" class="LineNr">1660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1661" class="Folded">1661 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1687" class="LineNr">1687 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 abcd/o 42 e1 00 00 \n", msg)</span> -<span id="L1688" class="LineNr">1688 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1689" class="LineNr">1689 </span> 68/push <span class="Constant">"F - test-convert-data-multiple-words"</span>/imm32 -<span id="L1690" class="LineNr">1690 </span> 68/push <span class="Constant">"30 abcd/o e1 42 00 00 \n"</span>/imm32 -<span id="L1691" class="LineNr">1691 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1692" class="LineNr">1692 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1693" class="LineNr">1693 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1694" class="LineNr">1694 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1695" class="LineNr">1695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1696" class="LineNr">1696 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1697" class="LineNr">1697 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1698" class="LineNr">1698 </span> 5d/pop-to-ebp -<span id="L1699" class="LineNr">1699 </span> c3/return -<span id="L1700" class="LineNr">1700 </span> -<span id="L1701" class="LineNr">1701 </span><span class="subxTest">test-convert-data-trailing-comment</span>: -<span id="L1702" class="LineNr">1702 </span> <span class="subxComment"># Trailing comments in data segment get appropriately ignored.</span> -<span id="L1703" class="LineNr">1703 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1704" class="LineNr">1704 </span> 55/push-ebp -<span id="L1705" class="LineNr">1705 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1706" class="LineNr">1706 </span> <span class="subxComment"># setup</span> -<span id="L1707" class="LineNr">1707 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1708" class="LineNr">1708 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1709" class="LineNr">1709 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1710" class="LineNr">1710 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1711" class="LineNr">1711 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1712" class="LineNr">1712 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1713" class="LineNr">1713 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1714" class="LineNr">1714 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1716" class="LineNr">1716 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1717" class="LineNr">1717 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1718" class="LineNr">1718 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1719" class="LineNr">1719 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1720" class="LineNr">1720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1721" class="LineNr">1721 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1723" class="LineNr">1723 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1725" class="LineNr">1725 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1726" class="LineNr">1726 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1727" class="LineNr">1727 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1728" class="LineNr">1728 </span> <span class="subxComment"># initialize input</span> -<span id="L1729" class="LineNr">1729 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30/imm32 # comment")</span> -<span id="L1730" class="LineNr">1730 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1731" class="LineNr">1731 </span> 68/push <span class="Constant">"30/imm32 # comment"</span>/imm32 -<span id="L1732" class="LineNr">1732 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1733" class="LineNr">1733 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1734" class="LineNr">1734 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1735" class="LineNr">1735 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1736" class="LineNr">1736 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1737" class="LineNr">1737 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> -<span id="L1738" class="LineNr">1738 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1739" class="LineNr">1739 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1740" class="LineNr">1740 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1741" class="LineNr">1741 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1742" class="LineNr">1742 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 -<span id="L1743" class="LineNr">1743 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1744" class="LineNr">1744 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1745" class="LineNr">1745 </span> <span class="subxComment"># check output</span> -<span id="L1746" class="LineNr">1746 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1747" class="LineNr">1747 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1748" class="LineNr">1748 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1749" class="LineNr">1749 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1750" class="LineNr">1750 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1751" class="LineNr">1751 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1752" class="LineNr">1752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1753" class="Folded">1753 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1779" class="LineNr">1779 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 00 00 00 # comment", msg)</span> -<span id="L1780" class="LineNr">1780 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1781" class="LineNr">1781 </span> 68/push <span class="Constant">"F - test-convert-data-trailing-comment"</span>/imm32 -<span id="L1782" class="LineNr">1782 </span> 68/push <span class="Constant">"30 00 00 00 # comment"</span>/imm32 -<span id="L1783" class="LineNr">1783 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1784" class="LineNr">1784 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1785" class="LineNr">1785 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1786" class="LineNr">1786 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1787" class="LineNr">1787 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1788" class="LineNr">1788 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1789" class="LineNr">1789 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1790" class="LineNr">1790 </span> 5d/pop-to-ebp -<span id="L1791" class="LineNr">1791 </span> c3/return -<span id="L1792" class="LineNr">1792 </span> -<span id="L1793" class="LineNr">1793 </span><span class="subxComment"># pack an instruction, following the C++ version</span> -<span id="L1794" class="LineNr">1794 </span><span class="subxComment">#</span> -<span id="L1795" class="LineNr">1795 </span><span class="subxComment"># zero error handling at the moment (continuing to rely on the C++ version for that):</span> -<span id="L1796" class="LineNr">1796 </span><span class="subxComment"># missing fields are always 0-filled</span> -<span id="L1797" class="LineNr">1797 </span><span class="subxComment"># bytes never mentioned are silently dropped; if you don't provide /mod, /rm32 or /r32 you don't get a 0 ModR/M byte. You get *no* ModR/M byte.</span> -<span id="L1798" class="LineNr">1798 </span><span class="subxComment"># may pick up any of duplicate operands in an instruction</span> -<span id="L1799" class="LineNr">1799 </span><span class="subxComment"># silently drop extraneous operands</span> -<span id="L1800" class="LineNr">1800 </span><span class="subxComment"># unceremoniously abort on non-numeric operands except disp or imm</span> -<span id="L1801" class="LineNr">1801 </span><span class="subxComment"># opcodes must be lowercase and zero padded</span> -<span id="L1802" class="LineNr">1802 </span><span class="subxComment"># opcodes with misleading operand metadata may get duplicated as operands as well. don't rely on this.</span> -<span id="L1803" class="LineNr">1803 </span><span class="subxFunction">convert-instruction</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L1804" class="LineNr">1804 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1805" class="LineNr">1805 </span> <span class="subxComment"># # some early exits</span> -<span id="L1806" class="LineNr">1806 </span> <span class="subxComment"># var word-slice = next-word(line)</span> -<span id="L1807" class="LineNr">1807 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> -<span id="L1808" class="LineNr">1808 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L1809" class="LineNr">1809 </span> <span class="subxComment"># return</span> -<span id="L1810" class="LineNr">1810 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#")</span> -<span id="L1811" class="LineNr">1811 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L1812" class="LineNr">1812 </span> <span class="subxComment"># return</span> -<span id="L1813" class="LineNr">1813 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":")</span> -<span id="L1814" class="LineNr">1814 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L1815" class="LineNr">1815 </span> <span class="subxComment"># return</span> -<span id="L1816" class="LineNr">1816 </span> <span class="subxComment"># # really convert</span> -<span id="L1817" class="LineNr">1817 </span> <span class="subxComment"># emit-opcodes(line, out)</span> -<span id="L1818" class="LineNr">1818 </span> <span class="subxComment"># emit-modrm(line, out)</span> -<span id="L1819" class="LineNr">1819 </span> <span class="subxComment"># emit-sib(line, out)</span> -<span id="L1820" class="LineNr">1820 </span> <span class="subxComment"># emit-disp(line, out)</span> -<span id="L1821" class="LineNr">1821 </span> <span class="subxComment"># emit-imm(line, out)</span> -<span id="L1822" class="LineNr">1822 </span> <span class="subxComment"># emit-line-in-comment(line, out)</span> -<span id="L1823" class="LineNr">1823 </span> <span class="subxComment">#</span> -<span id="L1824" class="LineNr">1824 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1825" class="LineNr">1825 </span> 55/push-ebp -<span id="L1826" class="LineNr">1826 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1827" class="LineNr">1827 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1828" class="LineNr">1828 </span> 50/push-eax -<span id="L1829" class="LineNr">1829 </span> 51/push-ecx -<span id="L1830" class="LineNr">1830 </span> 52/push-edx -<span id="L1831" class="LineNr">1831 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L1832" class="LineNr">1832 </span> 68/push 0/imm32/end -<span id="L1833" class="LineNr">1833 </span> 68/push 0/imm32/start -<span id="L1834" class="LineNr">1834 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1835" class="LineNr">1835 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L1836" class="LineNr">1836 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1837" class="LineNr">1837 </span> 51/push-ecx -<span id="L1838" class="LineNr">1838 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1839" class="LineNr">1839 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1840" class="LineNr">1840 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L1841" class="LineNr">1841 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1842" class="LineNr">1842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1843" class="LineNr">1843 </span><span class="Constant">$convert-instruction:check0</span>: -<span id="L1844" class="LineNr">1844 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L1845" class="LineNr">1845 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L1846" class="LineNr">1846 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1847" class="LineNr">1847 </span> 51/push-ecx -<span id="L1848" class="LineNr">1848 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1849" class="LineNr">1849 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L1850" class="LineNr">1850 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1851" class="LineNr">1851 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1852" class="LineNr">1852 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L1853" class="LineNr">1853 </span> 3d/compare-eax-and 0/imm32/false -<span id="L1854" class="LineNr">1854 </span> 75/jump-if-!= $convert-instruction:pass-through/disp8 -<span id="L1855" class="LineNr">1855 </span><span class="Constant">$convert-instruction:check1</span>: -<span id="L1856" class="LineNr">1856 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) write-stream-data(out, line)</span> -<span id="L1857" class="LineNr">1857 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> -<span id="L1858" class="LineNr">1858 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L1859" class="LineNr">1859 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L1860" class="LineNr">1860 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1861" class="LineNr">1861 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L1862" class="LineNr">1862 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> -<span id="L1863" class="LineNr">1863 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L1864" class="LineNr">1864 </span> 74/jump-if-= $convert-instruction:pass-through/disp8 -<span id="L1865" class="LineNr">1865 </span><span class="Constant">$convert-instruction:check2</span>: -<span id="L1866" class="LineNr">1866 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) write-stream-data(out, line)</span> -<span id="L1867" class="LineNr">1867 </span> <span class="subxS1Comment"># . var end/edx: (addr byte) = word-slice->end</span> -<span id="L1868" class="LineNr">1868 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> -<span id="L1869" class="LineNr">1869 </span> <span class="subxS1Comment"># . var c/eax: byte = *(end-1)</span> -<span id="L1870" class="LineNr">1870 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1871" class="LineNr">1871 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L1872" class="LineNr">1872 </span> <span class="subxS1Comment"># . if (c == ':') pass through</span> -<span id="L1873" class="LineNr">1873 </span> 3d/compare-eax-and 0x3a/imm32/colon -<span id="L1874" class="LineNr">1874 </span> 75/jump-if-!= $convert-instruction:really-convert/disp8 -<span id="L1875" class="LineNr">1875 </span><span class="Constant">$convert-instruction:pass-through</span>: -<span id="L1876" class="LineNr">1876 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L1877" class="LineNr">1877 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1878" class="LineNr">1878 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1879" class="LineNr">1879 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1881" class="LineNr">1881 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1882" class="LineNr">1882 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1883" class="LineNr">1883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1884" class="LineNr">1884 </span> <span class="subxComment"># return</span> -<span id="L1885" class="LineNr">1885 </span> eb/jump $convert-instruction:end/disp8 -<span id="L1886" class="LineNr">1886 </span><span class="Constant">$convert-instruction:really-convert</span>: -<span id="L1887" class="LineNr">1887 </span> <span class="subxComment"># emit-opcodes(line, out)</span> -<span id="L1888" class="LineNr">1888 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1889" class="LineNr">1889 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1890" class="LineNr">1890 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1891" class="LineNr">1891 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1892" class="LineNr">1892 </span> e8/call <a href='pack.subx.html#L1947'>emit-opcodes</a>/disp32 -<span id="L1893" class="LineNr">1893 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1894" class="LineNr">1894 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1895" class="LineNr">1895 </span> <span class="subxComment"># emit-modrm(line, out)</span> -<span id="L1896" class="LineNr">1896 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1897" class="LineNr">1897 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1898" class="LineNr">1898 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1899" class="LineNr">1899 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1900" class="LineNr">1900 </span> e8/call <a href='pack.subx.html#L2243'>emit-modrm</a>/disp32 -<span id="L1901" class="LineNr">1901 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1902" class="LineNr">1902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1903" class="LineNr">1903 </span> <span class="subxComment"># emit-sib(line, out)</span> -<span id="L1904" class="LineNr">1904 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1905" class="LineNr">1905 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1906" class="LineNr">1906 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1908" class="LineNr">1908 </span> e8/call <a href='pack.subx.html#L2616'>emit-sib</a>/disp32 -<span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1910" class="LineNr">1910 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1911" class="LineNr">1911 </span> <span class="subxComment"># emit-disp(line, out)</span> -<span id="L1912" class="LineNr">1912 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1913" class="LineNr">1913 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1914" class="LineNr">1914 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1915" class="LineNr">1915 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1916" class="LineNr">1916 </span> e8/call <a href='pack.subx.html#L2897'>emit-disp</a>/disp32 -<span id="L1917" class="LineNr">1917 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1918" class="LineNr">1918 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1919" class="LineNr">1919 </span> <span class="subxComment"># emit-imm(line, out)</span> -<span id="L1920" class="LineNr">1920 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1921" class="LineNr">1921 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1922" class="LineNr">1922 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1923" class="LineNr">1923 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1924" class="LineNr">1924 </span> e8/call <a href='pack.subx.html#L3116'>emit-imm</a>/disp32 -<span id="L1925" class="LineNr">1925 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1926" class="LineNr">1926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1927" class="LineNr">1927 </span> <span class="subxComment"># emit-line-in-comment(line, out)</span> -<span id="L1928" class="LineNr">1928 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1929" class="LineNr">1929 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1930" class="LineNr">1930 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1931" class="LineNr">1931 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1932" class="LineNr">1932 </span> e8/call <a href='pack.subx.html#L3335'>emit-line-in-comment</a>/disp32 -<span id="L1933" class="LineNr">1933 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1934" class="LineNr">1934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1935" class="LineNr">1935 </span><span class="Constant">$convert-instruction:end</span>: -<span id="L1936" class="LineNr">1936 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L1937" class="LineNr">1937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1938" class="LineNr">1938 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1939" class="LineNr">1939 </span> 5a/pop-to-edx -<span id="L1940" class="LineNr">1940 </span> 59/pop-to-ecx -<span id="L1941" class="LineNr">1941 </span> 58/pop-to-eax -<span id="L1942" class="LineNr">1942 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1943" class="LineNr">1943 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1944" class="LineNr">1944 </span> 5d/pop-to-ebp -<span id="L1945" class="LineNr">1945 </span> c3/return -<span id="L1946" class="LineNr">1946 </span> -<span id="L1947" class="LineNr">1947 </span><span class="subxFunction">emit-opcodes</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L1948" class="LineNr">1948 </span> <span class="subxComment"># opcodes occupy 1-3 bytes:</span> -<span id="L1949" class="LineNr">1949 </span> <span class="subxComment"># xx</span> -<span id="L1950" class="LineNr">1950 </span> <span class="subxComment"># 0f xx</span> -<span id="L1951" class="LineNr">1951 </span> <span class="subxComment"># f2 xx</span> -<span id="L1952" class="LineNr">1952 </span> <span class="subxComment"># f3 xx</span> -<span id="L1953" class="LineNr">1953 </span> <span class="subxComment"># f2 0f xx</span> -<span id="L1954" class="LineNr">1954 </span> <span class="subxComment"># f3 0f xx</span> -<span id="L1955" class="LineNr">1955 </span> <span class="subxComment">#</span> -<span id="L1956" class="LineNr">1956 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1957" class="LineNr">1957 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L1958" class="LineNr">1958 </span> <span class="subxComment">#</span> -<span id="L1959" class="LineNr">1959 </span> <span class="subxComment"># var op1 = next-word(line)</span> -<span id="L1960" class="LineNr">1960 </span> <span class="subxComment"># if (slice-empty?(op1) || slice-starts-with?(op1, "#")) return</span> -<span id="L1961" class="LineNr">1961 </span> <span class="subxComment"># op1 = next-token-from-slice(op1->start, op1->end, "/")</span> -<span id="L1962" class="LineNr">1962 </span> <span class="subxComment"># write-slice-buffered(out, op1)</span> -<span id="L1963" class="LineNr">1963 </span> <span class="subxComment"># if !slice-equal?(op1, "0f") && !slice-equal?(op1, "f2") && !slice-equal?(op1, "f3")</span> -<span id="L1964" class="LineNr">1964 </span> <span class="subxComment"># return</span> -<span id="L1965" class="LineNr">1965 </span> <span class="subxComment">#</span> -<span id="L1966" class="LineNr">1966 </span> <span class="subxComment"># var op2 = next-word(line)</span> -<span id="L1967" class="LineNr">1967 </span> <span class="subxComment"># if (slice-empty?(op2) || slice-starts-with?(op2, "#")) return</span> -<span id="L1968" class="LineNr">1968 </span> <span class="subxComment"># op2 = next-token-from-slice(op2->start, op2->end, "/")</span> -<span id="L1969" class="LineNr">1969 </span> <span class="subxComment"># write-slice-buffered(out, op2)</span> -<span id="L1970" class="LineNr">1970 </span> <span class="subxComment"># if slice-equal?(op1, "0f")</span> -<span id="L1971" class="LineNr">1971 </span> <span class="subxComment"># return</span> -<span id="L1972" class="LineNr">1972 </span> <span class="subxComment"># if !slice-equal?(op2, "0f")</span> -<span id="L1973" class="LineNr">1973 </span> <span class="subxComment"># return</span> -<span id="L1974" class="LineNr">1974 </span> <span class="subxComment">#</span> -<span id="L1975" class="LineNr">1975 </span> <span class="subxComment"># var op3 = next-word(line)</span> -<span id="L1976" class="LineNr">1976 </span> <span class="subxComment"># if (slice-empty?(op3) || slice-starts-with?(op3, "#")) return</span> -<span id="L1977" class="LineNr">1977 </span> <span class="subxComment"># op3 = next-token-from-slice(op3->start, op3->end, "/")</span> -<span id="L1978" class="LineNr">1978 </span> <span class="subxComment"># write-slice-buffered(out, op3)</span> -<span id="L1979" class="LineNr">1979 </span> <span class="subxComment">#</span> -<span id="L1980" class="LineNr">1980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1981" class="LineNr">1981 </span> 55/push-ebp -<span id="L1982" class="LineNr">1982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1983" class="LineNr">1983 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1984" class="LineNr">1984 </span> 50/push-eax -<span id="L1985" class="LineNr">1985 </span> 51/push-ecx -<span id="L1986" class="LineNr">1986 </span> 52/push-edx -<span id="L1987" class="LineNr">1987 </span> 53/push-ebx -<span id="L1988" class="LineNr">1988 </span> <span class="subxComment"># var op1/ecx: slice</span> -<span id="L1989" class="LineNr">1989 </span> 68/push 0/imm32/end -<span id="L1990" class="LineNr">1990 </span> 68/push 0/imm32/start -<span id="L1991" class="LineNr">1991 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1992" class="LineNr">1992 </span> <span class="subxComment"># var op2/edx: slice</span> -<span id="L1993" class="LineNr">1993 </span> 68/push 0/imm32/end -<span id="L1994" class="LineNr">1994 </span> 68/push 0/imm32/start -<span id="L1995" class="LineNr">1995 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1996" class="LineNr">1996 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L1997" class="LineNr">1997 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1998" class="LineNr">1998 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1999" class="LineNr">1999 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2000" class="LineNr">2000 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L2001" class="LineNr">2001 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2002" class="LineNr">2002 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2003" class="LineNr">2003 </span><span class="Constant">$emit-opcodes:op1</span>: -<span id="L2004" class="LineNr">2004 </span> <span class="subxComment"># next-word(line, op1)</span> -<span id="L2005" class="LineNr">2005 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2006" class="LineNr">2006 </span> 51/push-ecx -<span id="L2007" class="LineNr">2007 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2008" class="LineNr">2008 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2009" class="LineNr">2009 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2010" class="LineNr">2010 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2011" class="LineNr">2011 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2012" class="LineNr">2012 </span> <span class="subxComment"># if (slice-empty?(op1)) return</span> -<span id="L2013" class="LineNr">2013 </span> <span class="subxS1Comment"># . eax = slice-empty?(op1)</span> -<span id="L2014" class="LineNr">2014 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2015" class="LineNr">2015 </span> 51/push-ecx -<span id="L2016" class="LineNr">2016 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2017" class="LineNr">2017 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2018" class="LineNr">2018 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2019" class="LineNr">2019 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2020" class="LineNr">2020 </span> <span class="subxS1Comment"># . if (eax != false) return</span> -<span id="L2021" class="LineNr">2021 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2022" class="LineNr">2022 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 -<span id="L2023" class="LineNr">2023 </span> <span class="subxComment"># if (slice-starts-with?(op1, "#")) return</span> -<span id="L2024" class="LineNr">2024 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op1->start</span> -<span id="L2025" class="LineNr">2025 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> -<span id="L2026" class="LineNr">2026 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L2027" class="LineNr">2027 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L2028" class="LineNr">2028 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> -<span id="L2029" class="LineNr">2029 </span> <span class="subxS1Comment"># . if (c == '#') return</span> -<span id="L2030" class="LineNr">2030 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2031" class="LineNr">2031 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 -<span id="L2032" class="LineNr">2032 </span> <span class="subxComment"># op1 = next-token-from-slice(op1->start, op1->end, '/')</span> -<span id="L2033" class="LineNr">2033 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2034" class="LineNr">2034 </span> 51/push-ecx -<span id="L2035" class="LineNr">2035 </span> 68/push 0x2f/imm32/slash -<span id="L2036" class="LineNr">2036 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> -<span id="L2037" class="LineNr">2037 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> -<span id="L2038" class="LineNr">2038 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2039" class="LineNr">2039 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L2040" class="LineNr">2040 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2041" class="LineNr">2041 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2042" class="LineNr">2042 </span> <span class="subxComment"># write-slice-buffered(out, op1)</span> -<span id="L2043" class="LineNr">2043 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2044" class="LineNr">2044 </span> 51/push-ecx -<span id="L2045" class="LineNr">2045 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2046" class="LineNr">2046 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2047" class="LineNr">2047 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L2048" class="LineNr">2048 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2049" class="LineNr">2049 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2050" class="LineNr">2050 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L2051" class="LineNr">2051 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2052" class="LineNr">2052 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 -<span id="L2053" class="LineNr">2053 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2054" class="LineNr">2054 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2055" class="LineNr">2055 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2056" class="LineNr">2056 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2057" class="LineNr">2057 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2058" class="LineNr">2058 </span> <span class="subxComment"># if (slice-equal?(op1, "0f")) goto op2</span> -<span id="L2059" class="LineNr">2059 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "0f")</span> -<span id="L2060" class="LineNr">2060 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2061" class="LineNr">2061 </span> 68/push <span class="Constant">"0f"</span>/imm32 -<span id="L2062" class="LineNr">2062 </span> 51/push-ecx -<span id="L2063" class="LineNr">2063 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2064" class="LineNr">2064 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2065" class="LineNr">2065 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2066" class="LineNr">2066 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2067" class="LineNr">2067 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> -<span id="L2068" class="LineNr">2068 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2069" class="LineNr">2069 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 -<span id="L2070" class="LineNr">2070 </span> <span class="subxComment"># if (slice-equal?(op1, "f2")) goto op2</span> -<span id="L2071" class="LineNr">2071 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "f2")</span> -<span id="L2072" class="LineNr">2072 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2073" class="LineNr">2073 </span> 68/push <span class="Constant">"f2"</span>/imm32 -<span id="L2074" class="LineNr">2074 </span> 51/push-ecx -<span id="L2075" class="LineNr">2075 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2076" class="LineNr">2076 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2077" class="LineNr">2077 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2078" class="LineNr">2078 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2079" class="LineNr">2079 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> -<span id="L2080" class="LineNr">2080 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2081" class="LineNr">2081 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 -<span id="L2082" class="LineNr">2082 </span> <span class="subxComment"># if (slice-equal?(op1, "f3")) goto op2</span> -<span id="L2083" class="LineNr">2083 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "f3")</span> -<span id="L2084" class="LineNr">2084 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2085" class="LineNr">2085 </span> 68/push <span class="Constant">"f3"</span>/imm32 -<span id="L2086" class="LineNr">2086 </span> 51/push-ecx -<span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2088" class="LineNr">2088 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2089" class="LineNr">2089 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2090" class="LineNr">2090 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2091" class="LineNr">2091 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> -<span id="L2092" class="LineNr">2092 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2093" class="LineNr">2093 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 -<span id="L2094" class="LineNr">2094 </span> <span class="subxComment"># otherwise return</span> -<span id="L2095" class="LineNr">2095 </span> e9/jump $emit-opcodes:end/disp32 -<span id="L2096" class="LineNr">2096 </span><span class="Constant">$emit-opcodes:op2</span>: -<span id="L2097" class="LineNr">2097 </span> <span class="subxComment"># next-word(line, op2)</span> -<span id="L2098" class="LineNr">2098 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2099" class="LineNr">2099 </span> 52/push-edx -<span id="L2100" class="LineNr">2100 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2101" class="LineNr">2101 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2102" class="LineNr">2102 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2103" class="LineNr">2103 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2104" class="LineNr">2104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2105" class="LineNr">2105 </span> <span class="subxComment"># if (slice-empty?(op2)) return</span> -<span id="L2106" class="LineNr">2106 </span> <span class="subxS1Comment"># . eax = slice-empty?(op2)</span> -<span id="L2107" class="LineNr">2107 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2108" class="LineNr">2108 </span> 52/push-edx -<span id="L2109" class="LineNr">2109 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2110" class="LineNr">2110 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2111" class="LineNr">2111 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2112" class="LineNr">2112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2113" class="LineNr">2113 </span> <span class="subxS1Comment"># . if (eax != false) return</span> -<span id="L2114" class="LineNr">2114 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2115" class="LineNr">2115 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 -<span id="L2116" class="LineNr">2116 </span> <span class="subxComment"># if (slice-starts-with?(op2, "#")) return</span> -<span id="L2117" class="LineNr">2117 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op2->start</span> -<span id="L2118" class="LineNr">2118 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> -<span id="L2119" class="LineNr">2119 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L2120" class="LineNr">2120 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L2121" class="LineNr">2121 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> -<span id="L2122" class="LineNr">2122 </span> <span class="subxS1Comment"># . if (c == '#') return</span> -<span id="L2123" class="LineNr">2123 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2124" class="LineNr">2124 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 -<span id="L2125" class="LineNr">2125 </span> <span class="subxComment"># op2 = next-token-from-slice(op2->start, op2->end, '/')</span> -<span id="L2126" class="LineNr">2126 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2127" class="LineNr">2127 </span> 52/push-edx -<span id="L2128" class="LineNr">2128 </span> 68/push 0x2f/imm32/slash -<span id="L2129" class="LineNr">2129 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L2130" class="LineNr">2130 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L2131" class="LineNr">2131 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2132" class="LineNr">2132 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L2133" class="LineNr">2133 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2134" class="LineNr">2134 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2135" class="LineNr">2135 </span> <span class="subxComment"># write-slice-buffered(out, op2)</span> -<span id="L2136" class="LineNr">2136 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2137" class="LineNr">2137 </span> 52/push-edx -<span id="L2138" class="LineNr">2138 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2139" class="LineNr">2139 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2140" class="LineNr">2140 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L2141" class="LineNr">2141 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2142" class="LineNr">2142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2143" class="LineNr">2143 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L2144" class="LineNr">2144 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2145" class="LineNr">2145 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 -<span id="L2146" class="LineNr">2146 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2147" class="LineNr">2147 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2148" class="LineNr">2148 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2149" class="LineNr">2149 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2150" class="LineNr">2150 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2151" class="LineNr">2151 </span> <span class="subxComment"># if (slice-equal?(op1, "0f")) return</span> -<span id="L2152" class="LineNr">2152 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "0f")</span> -<span id="L2153" class="LineNr">2153 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2154" class="LineNr">2154 </span> 68/push <span class="Constant">"0f"</span>/imm32 -<span id="L2155" class="LineNr">2155 </span> 51/push-ecx -<span id="L2156" class="LineNr">2156 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2157" class="LineNr">2157 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2158" class="LineNr">2158 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2159" class="LineNr">2159 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2160" class="LineNr">2160 </span> <span class="subxS1Comment"># . if (eax != false) return</span> -<span id="L2161" class="LineNr">2161 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2162" class="LineNr">2162 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 -<span id="L2163" class="LineNr">2163 </span> <span class="subxComment"># if (!slice-equal?(op2, "0f")) return</span> -<span id="L2164" class="LineNr">2164 </span> <span class="subxS1Comment"># . eax = slice-equal?(op2, "0f")</span> -<span id="L2165" class="LineNr">2165 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2166" class="LineNr">2166 </span> 68/push <span class="Constant">"0f"</span>/imm32 -<span id="L2167" class="LineNr">2167 </span> 52/push-edx -<span id="L2168" class="LineNr">2168 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2169" class="LineNr">2169 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2170" class="LineNr">2170 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2171" class="LineNr">2171 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2172" class="LineNr">2172 </span> <span class="subxS1Comment"># . if (eax == false) return</span> -<span id="L2173" class="LineNr">2173 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2174" class="LineNr">2174 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 -<span id="L2175" class="LineNr">2175 </span><span class="Constant">$emit-opcodes:op3</span>: -<span id="L2176" class="LineNr">2176 </span> <span class="subxComment"># next-word(line, op3) # reuse op2/edx</span> -<span id="L2177" class="LineNr">2177 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2178" class="LineNr">2178 </span> 52/push-edx -<span id="L2179" class="LineNr">2179 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2180" class="LineNr">2180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2181" class="LineNr">2181 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2182" class="LineNr">2182 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2183" class="LineNr">2183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2184" class="LineNr">2184 </span> <span class="subxComment"># if (slice-empty?(op3)) return</span> -<span id="L2185" class="LineNr">2185 </span> <span class="subxS1Comment"># . eax = slice-empty?(op3)</span> +<span id="L1639" class="LineNr">1639 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1640" class="LineNr">1640 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1641" class="LineNr">1641 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1642" class="LineNr">1642 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1643" class="LineNr">1643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1644" class="LineNr">1644 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1645" class="LineNr">1645 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1646" class="LineNr">1646 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1647" class="LineNr">1647 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1648" class="LineNr">1648 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1649" class="LineNr">1649 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1650" class="LineNr">1650 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1651" class="LineNr">1651 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1652" class="LineNr">1652 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1653" class="LineNr">1653 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1654" class="LineNr">1654 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1655" class="LineNr">1655 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1656" class="LineNr">1656 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1657" class="LineNr">1657 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1658" class="LineNr">1658 </span> <span class="subxComment"># initialize input</span> +<span id="L1659" class="LineNr">1659 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30 abcd/o")</span> +<span id="L1660" class="LineNr">1660 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1661" class="LineNr">1661 </span> 68/push <span class="Constant">"30 abcd/o"</span>/imm32 +<span id="L1662" class="LineNr">1662 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1663" class="LineNr">1663 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1664" class="LineNr">1664 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1665" class="LineNr">1665 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1666" class="LineNr">1666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1667" class="LineNr">1667 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1669" class="LineNr">1669 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1670" class="LineNr">1670 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1672" class="LineNr">1672 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1673" class="LineNr">1673 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1674" class="LineNr">1674 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1675" class="LineNr">1675 </span> <span class="subxComment"># check output</span> +<span id="L1676" class="LineNr">1676 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1677" class="LineNr">1677 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1678" class="LineNr">1678 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1679" class="LineNr">1679 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1680" class="LineNr">1680 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1682" class="LineNr">1682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1683" class="LineNr">1683 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 abcd/o \n", msg)</span> +<span id="L1684" class="LineNr">1684 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1685" class="LineNr">1685 </span> 68/push <span class="Constant">"F - test-convert-data-byte-then-name"</span>/imm32 +<span id="L1686" class="LineNr">1686 </span> 68/push <span class="Constant">"30 abcd/o \n"</span>/imm32 +<span id="L1687" class="LineNr">1687 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1688" class="LineNr">1688 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1689" class="LineNr">1689 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1690" class="LineNr">1690 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1691" class="LineNr">1691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1692" class="LineNr">1692 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1693" class="LineNr">1693 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1694" class="LineNr">1694 </span> 5d/pop-to-ebp +<span id="L1695" class="LineNr">1695 </span> c3/return +<span id="L1696" class="LineNr">1696 </span> +<span id="L1697" class="LineNr">1697 </span><span class="subxTest">test-convert-data-multiple-words</span>: +<span id="L1698" class="LineNr">1698 </span> <span class="subxComment"># Multiple words in input stream get processed one by one.</span> +<span id="L1699" class="LineNr">1699 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1700" class="LineNr">1700 </span> 55/push-ebp +<span id="L1701" class="LineNr">1701 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1702" class="LineNr">1702 </span> <span class="subxComment"># setup</span> +<span id="L1703" class="LineNr">1703 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1704" class="LineNr">1704 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1705" class="LineNr">1705 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1706" class="LineNr">1706 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1707" class="LineNr">1707 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1708" class="LineNr">1708 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1709" class="LineNr">1709 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1710" class="LineNr">1710 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1711" class="LineNr">1711 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1712" class="LineNr">1712 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1713" class="LineNr">1713 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1714" class="LineNr">1714 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1716" class="LineNr">1716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1717" class="LineNr">1717 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1718" class="LineNr">1718 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1719" class="LineNr">1719 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1721" class="LineNr">1721 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1723" class="LineNr">1723 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1724" class="LineNr">1724 </span> <span class="subxComment"># initialize input</span> +<span id="L1725" class="LineNr">1725 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30 abcd/o 42e1/imm32")</span> +<span id="L1726" class="LineNr">1726 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1727" class="LineNr">1727 </span> 68/push <span class="Constant">"30 abcd/o 42e1/imm32"</span>/imm32 +<span id="L1728" class="LineNr">1728 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1729" class="LineNr">1729 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1730" class="LineNr">1730 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1731" class="LineNr">1731 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1732" class="LineNr">1732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1733" class="LineNr">1733 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1735" class="LineNr">1735 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1736" class="LineNr">1736 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1737" class="LineNr">1737 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1738" class="LineNr">1738 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1739" class="LineNr">1739 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1740" class="LineNr">1740 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1741" class="LineNr">1741 </span> <span class="subxComment"># check output</span> +<span id="L1742" class="LineNr">1742 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1743" class="LineNr">1743 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1744" class="LineNr">1744 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1745" class="LineNr">1745 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1746" class="LineNr">1746 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1747" class="LineNr">1747 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1748" class="LineNr">1748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1749" class="Folded">1749 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1775" class="LineNr">1775 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 abcd/o 42 e1 00 00 \n", msg)</span> +<span id="L1776" class="LineNr">1776 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1777" class="LineNr">1777 </span> 68/push <span class="Constant">"F - test-convert-data-multiple-words"</span>/imm32 +<span id="L1778" class="LineNr">1778 </span> 68/push <span class="Constant">"30 abcd/o e1 42 00 00 \n"</span>/imm32 +<span id="L1779" class="LineNr">1779 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1780" class="LineNr">1780 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1781" class="LineNr">1781 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1782" class="LineNr">1782 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1783" class="LineNr">1783 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1784" class="LineNr">1784 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1785" class="LineNr">1785 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1786" class="LineNr">1786 </span> 5d/pop-to-ebp +<span id="L1787" class="LineNr">1787 </span> c3/return +<span id="L1788" class="LineNr">1788 </span> +<span id="L1789" class="LineNr">1789 </span><span class="subxTest">test-convert-data-trailing-comment</span>: +<span id="L1790" class="LineNr">1790 </span> <span class="subxComment"># Trailing comments in data segment get appropriately ignored.</span> +<span id="L1791" class="LineNr">1791 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1792" class="LineNr">1792 </span> 55/push-ebp +<span id="L1793" class="LineNr">1793 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1794" class="LineNr">1794 </span> <span class="subxComment"># setup</span> +<span id="L1795" class="LineNr">1795 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1796" class="LineNr">1796 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1797" class="LineNr">1797 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1798" class="LineNr">1798 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1799" class="LineNr">1799 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1800" class="LineNr">1800 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1801" class="LineNr">1801 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1802" class="LineNr">1802 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1803" class="LineNr">1803 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1804" class="LineNr">1804 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1805" class="LineNr">1805 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1806" class="LineNr">1806 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1807" class="LineNr">1807 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1808" class="LineNr">1808 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1809" class="LineNr">1809 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1810" class="LineNr">1810 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1811" class="LineNr">1811 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1812" class="LineNr">1812 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1813" class="LineNr">1813 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1814" class="LineNr">1814 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1815" class="LineNr">1815 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1816" class="LineNr">1816 </span> <span class="subxComment"># initialize input</span> +<span id="L1817" class="LineNr">1817 </span> <span class="subxS1Comment"># . write(_test-input-stream, "30/imm32 # comment")</span> +<span id="L1818" class="LineNr">1818 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1819" class="LineNr">1819 </span> 68/push <span class="Constant">"30/imm32 # comment"</span>/imm32 +<span id="L1820" class="LineNr">1820 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1821" class="LineNr">1821 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1822" class="LineNr">1822 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1823" class="LineNr">1823 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1824" class="LineNr">1824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1825" class="LineNr">1825 </span> <span class="subxComment"># convert-data(_test-input-stream, _test-output-buffered-file)</span> +<span id="L1826" class="LineNr">1826 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1827" class="LineNr">1827 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1828" class="LineNr">1828 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1829" class="LineNr">1829 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1830" class="LineNr">1830 </span> e8/call <a href='pack.subx.html#L903'>convert-data</a>/disp32 +<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1832" class="LineNr">1832 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1833" class="LineNr">1833 </span> <span class="subxComment"># check output</span> +<span id="L1834" class="LineNr">1834 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1835" class="LineNr">1835 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1836" class="LineNr">1836 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1837" class="LineNr">1837 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1838" class="LineNr">1838 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1839" class="LineNr">1839 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1840" class="LineNr">1840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1841" class="Folded">1841 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1867" class="LineNr">1867 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "30 00 00 00 # comment", msg)</span> +<span id="L1868" class="LineNr">1868 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1869" class="LineNr">1869 </span> 68/push <span class="Constant">"F - test-convert-data-trailing-comment"</span>/imm32 +<span id="L1870" class="LineNr">1870 </span> 68/push <span class="Constant">"30 00 00 00 # comment"</span>/imm32 +<span id="L1871" class="LineNr">1871 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1872" class="LineNr">1872 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1873" class="LineNr">1873 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1874" class="LineNr">1874 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1875" class="LineNr">1875 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1876" class="LineNr">1876 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1877" class="LineNr">1877 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1878" class="LineNr">1878 </span> 5d/pop-to-ebp +<span id="L1879" class="LineNr">1879 </span> c3/return +<span id="L1880" class="LineNr">1880 </span> +<span id="L1881" class="LineNr">1881 </span><span class="subxComment"># pack an instruction, following the C++ version</span> +<span id="L1882" class="LineNr">1882 </span><span class="subxComment">#</span> +<span id="L1883" class="LineNr">1883 </span><span class="subxComment"># zero error handling at the moment (continuing to rely on the C++ version for that):</span> +<span id="L1884" class="LineNr">1884 </span><span class="subxComment"># missing fields are always 0-filled</span> +<span id="L1885" class="LineNr">1885 </span><span class="subxComment"># bytes never mentioned are silently dropped; if you don't provide /mod, /rm32 or /r32 you don't get a 0 ModR/M byte. You get *no* ModR/M byte.</span> +<span id="L1886" class="LineNr">1886 </span><span class="subxComment"># may pick up any of duplicate operands in an instruction</span> +<span id="L1887" class="LineNr">1887 </span><span class="subxComment"># silently drop extraneous operands</span> +<span id="L1888" class="LineNr">1888 </span><span class="subxComment"># unceremoniously abort on non-numeric operands except disp or imm</span> +<span id="L1889" class="LineNr">1889 </span><span class="subxComment"># opcodes must be lowercase and zero padded</span> +<span id="L1890" class="LineNr">1890 </span><span class="subxComment"># opcodes with misleading operand metadata may get duplicated as operands as well. don't rely on this.</span> +<span id="L1891" class="LineNr">1891 </span><span class="subxFunction">convert-instruction</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L1892" class="LineNr">1892 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1893" class="LineNr">1893 </span> <span class="subxComment"># # some early exits</span> +<span id="L1894" class="LineNr">1894 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L1895" class="LineNr">1895 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> +<span id="L1896" class="LineNr">1896 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L1897" class="LineNr">1897 </span> <span class="subxComment"># return</span> +<span id="L1898" class="LineNr">1898 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#")</span> +<span id="L1899" class="LineNr">1899 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L1900" class="LineNr">1900 </span> <span class="subxComment"># return</span> +<span id="L1901" class="LineNr">1901 </span> <span class="subxComment"># if slice-ends-with?(word-slice, ":")</span> +<span id="L1902" class="LineNr">1902 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L1903" class="LineNr">1903 </span> <span class="subxComment"># return</span> +<span id="L1904" class="LineNr">1904 </span> <span class="subxComment"># # really convert</span> +<span id="L1905" class="LineNr">1905 </span> <span class="subxComment"># emit-opcodes(line, out)</span> +<span id="L1906" class="LineNr">1906 </span> <span class="subxComment"># emit-modrm(line, out)</span> +<span id="L1907" class="LineNr">1907 </span> <span class="subxComment"># emit-sib(line, out)</span> +<span id="L1908" class="LineNr">1908 </span> <span class="subxComment"># emit-disp(line, out)</span> +<span id="L1909" class="LineNr">1909 </span> <span class="subxComment"># emit-imm(line, out)</span> +<span id="L1910" class="LineNr">1910 </span> <span class="subxComment"># emit-line-in-comment(line, out)</span> +<span id="L1911" class="LineNr">1911 </span> <span class="subxComment">#</span> +<span id="L1912" class="LineNr">1912 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1913" class="LineNr">1913 </span> 55/push-ebp +<span id="L1914" class="LineNr">1914 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1915" class="LineNr">1915 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1916" class="LineNr">1916 </span> 50/push-eax +<span id="L1917" class="LineNr">1917 </span> 51/push-ecx +<span id="L1918" class="LineNr">1918 </span> 52/push-edx +<span id="L1919" class="LineNr">1919 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L1920" class="LineNr">1920 </span> 68/push 0/imm32/end +<span id="L1921" class="LineNr">1921 </span> 68/push 0/imm32/start +<span id="L1922" class="LineNr">1922 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1923" class="LineNr">1923 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L1924" class="LineNr">1924 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1925" class="LineNr">1925 </span> 51/push-ecx +<span id="L1926" class="LineNr">1926 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1927" class="LineNr">1927 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1928" class="LineNr">1928 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L1929" class="LineNr">1929 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1930" class="LineNr">1930 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1931" class="LineNr">1931 </span><span class="Constant">$convert-instruction:check0</span>: +<span id="L1932" class="LineNr">1932 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L1933" class="LineNr">1933 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L1934" class="LineNr">1934 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1935" class="LineNr">1935 </span> 51/push-ecx +<span id="L1936" class="LineNr">1936 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1937" class="LineNr">1937 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L1938" class="LineNr">1938 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1939" class="LineNr">1939 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1940" class="LineNr">1940 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L1941" class="LineNr">1941 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1942" class="LineNr">1942 </span> 75/jump-if-!= $convert-instruction:pass-through/disp8 +<span id="L1943" class="LineNr">1943 </span><span class="Constant">$convert-instruction:check1</span>: +<span id="L1944" class="LineNr">1944 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) write-stream-data(out, line)</span> +<span id="L1945" class="LineNr">1945 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> +<span id="L1946" class="LineNr">1946 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L1947" class="LineNr">1947 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L1948" class="LineNr">1948 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1949" class="LineNr">1949 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L1950" class="LineNr">1950 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> +<span id="L1951" class="LineNr">1951 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L1952" class="LineNr">1952 </span> 74/jump-if-= $convert-instruction:pass-through/disp8 +<span id="L1953" class="LineNr">1953 </span><span class="Constant">$convert-instruction:check2</span>: +<span id="L1954" class="LineNr">1954 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) write-stream-data(out, line)</span> +<span id="L1955" class="LineNr">1955 </span> <span class="subxS1Comment"># . var end/edx: (addr byte) = word-slice->end</span> +<span id="L1956" class="LineNr">1956 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L1957" class="LineNr">1957 </span> <span class="subxS1Comment"># . var c/eax: byte = *(end-1)</span> +<span id="L1958" class="LineNr">1958 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1959" class="LineNr">1959 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L1960" class="LineNr">1960 </span> <span class="subxS1Comment"># . if (c == ':') pass through</span> +<span id="L1961" class="LineNr">1961 </span> 3d/compare-eax-and 0x3a/imm32/colon +<span id="L1962" class="LineNr">1962 </span> 75/jump-if-!= $convert-instruction:really-convert/disp8 +<span id="L1963" class="LineNr">1963 </span><span class="Constant">$convert-instruction:pass-through</span>: +<span id="L1964" class="LineNr">1964 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L1965" class="LineNr">1965 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1966" class="LineNr">1966 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1967" class="LineNr">1967 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1968" class="LineNr">1968 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1969" class="LineNr">1969 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1970" class="LineNr">1970 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1971" class="LineNr">1971 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1972" class="LineNr">1972 </span> <span class="subxComment"># return</span> +<span id="L1973" class="LineNr">1973 </span> eb/jump $convert-instruction:end/disp8 +<span id="L1974" class="LineNr">1974 </span><span class="Constant">$convert-instruction:really-convert</span>: +<span id="L1975" class="LineNr">1975 </span> <span class="subxComment"># emit-opcodes(line, out)</span> +<span id="L1976" class="LineNr">1976 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1977" class="LineNr">1977 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1978" class="LineNr">1978 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1979" class="LineNr">1979 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1980" class="LineNr">1980 </span> e8/call <a href='pack.subx.html#L2035'>emit-opcodes</a>/disp32 +<span id="L1981" class="LineNr">1981 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1982" class="LineNr">1982 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1983" class="LineNr">1983 </span> <span class="subxComment"># emit-modrm(line, out)</span> +<span id="L1984" class="LineNr">1984 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1985" class="LineNr">1985 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1986" class="LineNr">1986 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1987" class="LineNr">1987 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1988" class="LineNr">1988 </span> e8/call <a href='pack.subx.html#L2357'>emit-modrm</a>/disp32 +<span id="L1989" class="LineNr">1989 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1990" class="LineNr">1990 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1991" class="LineNr">1991 </span> <span class="subxComment"># emit-sib(line, out)</span> +<span id="L1992" class="LineNr">1992 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1993" class="LineNr">1993 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1994" class="LineNr">1994 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1995" class="LineNr">1995 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1996" class="LineNr">1996 </span> e8/call <a href='pack.subx.html#L2730'>emit-sib</a>/disp32 +<span id="L1997" class="LineNr">1997 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1998" class="LineNr">1998 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1999" class="LineNr">1999 </span> <span class="subxComment"># emit-disp(line, out)</span> +<span id="L2000" class="LineNr">2000 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2001" class="LineNr">2001 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2002" class="LineNr">2002 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2003" class="LineNr">2003 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2004" class="LineNr">2004 </span> e8/call <a href='pack.subx.html#L3011'>emit-disp</a>/disp32 +<span id="L2005" class="LineNr">2005 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2006" class="LineNr">2006 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2007" class="LineNr">2007 </span> <span class="subxComment"># emit-imm(line, out)</span> +<span id="L2008" class="LineNr">2008 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2009" class="LineNr">2009 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2010" class="LineNr">2010 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2011" class="LineNr">2011 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2012" class="LineNr">2012 </span> e8/call <a href='pack.subx.html#L3230'>emit-imm</a>/disp32 +<span id="L2013" class="LineNr">2013 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2014" class="LineNr">2014 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2015" class="LineNr">2015 </span> <span class="subxComment"># emit-line-in-comment(line, out)</span> +<span id="L2016" class="LineNr">2016 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2017" class="LineNr">2017 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2018" class="LineNr">2018 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2019" class="LineNr">2019 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2020" class="LineNr">2020 </span> e8/call <a href='pack.subx.html#L3449'>emit-line-in-comment</a>/disp32 +<span id="L2021" class="LineNr">2021 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2022" class="LineNr">2022 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2023" class="LineNr">2023 </span><span class="Constant">$convert-instruction:end</span>: +<span id="L2024" class="LineNr">2024 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L2025" class="LineNr">2025 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2026" class="LineNr">2026 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2027" class="LineNr">2027 </span> 5a/pop-to-edx +<span id="L2028" class="LineNr">2028 </span> 59/pop-to-ecx +<span id="L2029" class="LineNr">2029 </span> 58/pop-to-eax +<span id="L2030" class="LineNr">2030 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2031" class="LineNr">2031 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2032" class="LineNr">2032 </span> 5d/pop-to-ebp +<span id="L2033" class="LineNr">2033 </span> c3/return +<span id="L2034" class="LineNr">2034 </span> +<span id="L2035" class="LineNr">2035 </span><span class="subxFunction">emit-opcodes</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L2036" class="LineNr">2036 </span> <span class="subxComment"># opcodes occupy 1-3 bytes:</span> +<span id="L2037" class="LineNr">2037 </span> <span class="subxComment"># xx</span> +<span id="L2038" class="LineNr">2038 </span> <span class="subxComment"># 0f xx</span> +<span id="L2039" class="LineNr">2039 </span> <span class="subxComment"># f2 xx</span> +<span id="L2040" class="LineNr">2040 </span> <span class="subxComment"># f3 xx</span> +<span id="L2041" class="LineNr">2041 </span> <span class="subxComment"># f2 0f xx</span> +<span id="L2042" class="LineNr">2042 </span> <span class="subxComment"># f3 0f xx</span> +<span id="L2043" class="LineNr">2043 </span> <span class="subxComment"># 66 xx (hacky support for boot.subx)</span> +<span id="L2044" class="LineNr">2044 </span> <span class="subxComment"># db xx (hacky support for boot.subx)</span> +<span id="L2045" class="LineNr">2045 </span> <span class="subxComment">#</span> +<span id="L2046" class="LineNr">2046 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2047" class="LineNr">2047 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2048" class="LineNr">2048 </span> <span class="subxComment">#</span> +<span id="L2049" class="LineNr">2049 </span> <span class="subxComment"># var op1 = next-word(line)</span> +<span id="L2050" class="LineNr">2050 </span> <span class="subxComment"># if (slice-empty?(op1) || slice-starts-with?(op1, "#")) return</span> +<span id="L2051" class="LineNr">2051 </span> <span class="subxComment"># op1 = next-token-from-slice(op1->start, op1->end, "/")</span> +<span id="L2052" class="LineNr">2052 </span> <span class="subxComment"># write-slice-buffered(out, op1)</span> +<span id="L2053" class="LineNr">2053 </span> <span class="subxComment"># if !slice-equal?(op1, "0f") && !slice-equal?(op1, "f2") && !slice-equal?(op1, "f3") && !slice-equal?(op1, "66") && !slice-equal?(op1, "db")</span> +<span id="L2054" class="LineNr">2054 </span> <span class="subxComment"># return</span> +<span id="L2055" class="LineNr">2055 </span> <span class="subxComment">#</span> +<span id="L2056" class="LineNr">2056 </span> <span class="subxComment"># var op2 = next-word(line)</span> +<span id="L2057" class="LineNr">2057 </span> <span class="subxComment"># if (slice-empty?(op2) || slice-starts-with?(op2, "#")) return</span> +<span id="L2058" class="LineNr">2058 </span> <span class="subxComment"># op2 = next-token-from-slice(op2->start, op2->end, "/")</span> +<span id="L2059" class="LineNr">2059 </span> <span class="subxComment"># write-slice-buffered(out, op2)</span> +<span id="L2060" class="LineNr">2060 </span> <span class="subxComment"># if slice-equal?(op1, "0f")</span> +<span id="L2061" class="LineNr">2061 </span> <span class="subxComment"># return</span> +<span id="L2062" class="LineNr">2062 </span> <span class="subxComment"># if !slice-equal?(op2, "0f")</span> +<span id="L2063" class="LineNr">2063 </span> <span class="subxComment"># return</span> +<span id="L2064" class="LineNr">2064 </span> <span class="subxComment">#</span> +<span id="L2065" class="LineNr">2065 </span> <span class="subxComment"># var op3 = next-word(line)</span> +<span id="L2066" class="LineNr">2066 </span> <span class="subxComment"># if (slice-empty?(op3) || slice-starts-with?(op3, "#")) return</span> +<span id="L2067" class="LineNr">2067 </span> <span class="subxComment"># op3 = next-token-from-slice(op3->start, op3->end, "/")</span> +<span id="L2068" class="LineNr">2068 </span> <span class="subxComment"># write-slice-buffered(out, op3)</span> +<span id="L2069" class="LineNr">2069 </span> <span class="subxComment">#</span> +<span id="L2070" class="LineNr">2070 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2071" class="LineNr">2071 </span> 55/push-ebp +<span id="L2072" class="LineNr">2072 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2073" class="LineNr">2073 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2074" class="LineNr">2074 </span> 50/push-eax +<span id="L2075" class="LineNr">2075 </span> 51/push-ecx +<span id="L2076" class="LineNr">2076 </span> 52/push-edx +<span id="L2077" class="LineNr">2077 </span> 53/push-ebx +<span id="L2078" class="LineNr">2078 </span> <span class="subxComment"># var op1/ecx: slice</span> +<span id="L2079" class="LineNr">2079 </span> 68/push 0/imm32/end +<span id="L2080" class="LineNr">2080 </span> 68/push 0/imm32/start +<span id="L2081" class="LineNr">2081 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2082" class="LineNr">2082 </span> <span class="subxComment"># var op2/edx: slice</span> +<span id="L2083" class="LineNr">2083 </span> 68/push 0/imm32/end +<span id="L2084" class="LineNr">2084 </span> 68/push 0/imm32/start +<span id="L2085" class="LineNr">2085 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L2086" class="LineNr">2086 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2088" class="LineNr">2088 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2089" class="LineNr">2089 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2090" class="LineNr">2090 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2092" class="LineNr">2092 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2093" class="LineNr">2093 </span><span class="Constant">$emit-opcodes:op1</span>: +<span id="L2094" class="LineNr">2094 </span> <span class="subxComment"># next-word(line, op1)</span> +<span id="L2095" class="LineNr">2095 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2096" class="LineNr">2096 </span> 51/push-ecx +<span id="L2097" class="LineNr">2097 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2098" class="LineNr">2098 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2099" class="LineNr">2099 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2100" class="LineNr">2100 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2101" class="LineNr">2101 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2102" class="LineNr">2102 </span> <span class="subxComment"># if (slice-empty?(op1)) return</span> +<span id="L2103" class="LineNr">2103 </span> <span class="subxS1Comment"># . eax = slice-empty?(op1)</span> +<span id="L2104" class="LineNr">2104 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2105" class="LineNr">2105 </span> 51/push-ecx +<span id="L2106" class="LineNr">2106 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2107" class="LineNr">2107 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2108" class="LineNr">2108 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2109" class="LineNr">2109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2110" class="LineNr">2110 </span> <span class="subxS1Comment"># . if (eax != false) return</span> +<span id="L2111" class="LineNr">2111 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2112" class="LineNr">2112 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 +<span id="L2113" class="LineNr">2113 </span> <span class="subxComment"># if (slice-starts-with?(op1, "#")) return</span> +<span id="L2114" class="LineNr">2114 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op1->start</span> +<span id="L2115" class="LineNr">2115 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to ebx</span> +<span id="L2116" class="LineNr">2116 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L2117" class="LineNr">2117 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2118" class="LineNr">2118 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> +<span id="L2119" class="LineNr">2119 </span> <span class="subxS1Comment"># . if (c == '#') return</span> +<span id="L2120" class="LineNr">2120 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L2121" class="LineNr">2121 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 +<span id="L2122" class="LineNr">2122 </span> <span class="subxComment"># op1 = next-token-from-slice(op1->start, op1->end, '/')</span> +<span id="L2123" class="LineNr">2123 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2124" class="LineNr">2124 </span> 51/push-ecx +<span id="L2125" class="LineNr">2125 </span> 68/push 0x2f/imm32/slash +<span id="L2126" class="LineNr">2126 </span> ff 6/subop/push 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ecx+4)</span> +<span id="L2127" class="LineNr">2127 </span> ff 6/subop/push 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ecx</span> +<span id="L2128" class="LineNr">2128 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2129" class="LineNr">2129 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2130" class="LineNr">2130 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2131" class="LineNr">2131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2132" class="LineNr">2132 </span> <span class="subxComment"># write-slice-buffered(out, op1)</span> +<span id="L2133" class="LineNr">2133 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2134" class="LineNr">2134 </span> 51/push-ecx +<span id="L2135" class="LineNr">2135 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2136" class="LineNr">2136 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2137" class="LineNr">2137 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L2138" class="LineNr">2138 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2139" class="LineNr">2139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2140" class="LineNr">2140 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L2141" class="LineNr">2141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2142" class="LineNr">2142 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L2143" class="LineNr">2143 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2144" class="LineNr">2144 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2145" class="LineNr">2145 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2146" class="LineNr">2146 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2147" class="LineNr">2147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2148" class="LineNr">2148 </span> <span class="subxComment"># if (slice-equal?(op1, "0f")) goto op2</span> +<span id="L2149" class="LineNr">2149 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "0f")</span> +<span id="L2150" class="LineNr">2150 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2151" class="LineNr">2151 </span> 68/push <span class="Constant">"0f"</span>/imm32 +<span id="L2152" class="LineNr">2152 </span> 51/push-ecx +<span id="L2153" class="LineNr">2153 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2154" class="LineNr">2154 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2155" class="LineNr">2155 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2156" class="LineNr">2156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2157" class="LineNr">2157 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> +<span id="L2158" class="LineNr">2158 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2159" class="LineNr">2159 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 +<span id="L2160" class="LineNr">2160 </span> <span class="subxComment"># if (slice-equal?(op1, "f2")) goto op2</span> +<span id="L2161" class="LineNr">2161 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "f2")</span> +<span id="L2162" class="LineNr">2162 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2163" class="LineNr">2163 </span> 68/push <span class="Constant">"f2"</span>/imm32 +<span id="L2164" class="LineNr">2164 </span> 51/push-ecx +<span id="L2165" class="LineNr">2165 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2166" class="LineNr">2166 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2167" class="LineNr">2167 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2168" class="LineNr">2168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2169" class="LineNr">2169 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> +<span id="L2170" class="LineNr">2170 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2171" class="LineNr">2171 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 +<span id="L2172" class="LineNr">2172 </span> <span class="subxComment"># if (slice-equal?(op1, "f3")) goto op2</span> +<span id="L2173" class="LineNr">2173 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "f3")</span> +<span id="L2174" class="LineNr">2174 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2175" class="LineNr">2175 </span> 68/push <span class="Constant">"f3"</span>/imm32 +<span id="L2176" class="LineNr">2176 </span> 51/push-ecx +<span id="L2177" class="LineNr">2177 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2178" class="LineNr">2178 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2179" class="LineNr">2179 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2180" class="LineNr">2180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2181" class="LineNr">2181 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> +<span id="L2182" class="LineNr">2182 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2183" class="LineNr">2183 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 +<span id="L2184" class="LineNr">2184 </span> <span class="subxComment"># if (slice-equal?(op1, "66")) goto op2</span> +<span id="L2185" class="LineNr">2185 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "66")</span> <span id="L2186" class="LineNr">2186 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2187" class="LineNr">2187 </span> 52/push-edx -<span id="L2188" class="LineNr">2188 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2189" class="LineNr">2189 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2190" class="LineNr">2190 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2191" class="LineNr">2191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2192" class="LineNr">2192 </span> <span class="subxS1Comment"># . if (eax != false) return</span> -<span id="L2193" class="LineNr">2193 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2194" class="LineNr">2194 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 -<span id="L2195" class="LineNr">2195 </span> <span class="subxComment"># if (slice-starts-with?(op3, "#")) return</span> -<span id="L2196" class="LineNr">2196 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op2->start</span> -<span id="L2197" class="LineNr">2197 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> -<span id="L2198" class="LineNr">2198 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L2199" class="LineNr">2199 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L2200" class="LineNr">2200 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> -<span id="L2201" class="LineNr">2201 </span> <span class="subxS1Comment"># . if (c == '#') return</span> -<span id="L2202" class="LineNr">2202 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2203" class="LineNr">2203 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 -<span id="L2204" class="LineNr">2204 </span> <span class="subxComment"># op3 = next-token-from-slice(op3->start, op3->end, '/')</span> -<span id="L2205" class="LineNr">2205 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2206" class="LineNr">2206 </span> 52/push-edx -<span id="L2207" class="LineNr">2207 </span> 68/push 0x2f/imm32/slash -<span id="L2208" class="LineNr">2208 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L2209" class="LineNr">2209 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L2210" class="LineNr">2210 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2211" class="LineNr">2211 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L2212" class="LineNr">2212 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2213" class="LineNr">2213 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2214" class="LineNr">2214 </span> <span class="subxComment"># write-slice-buffered(out, op3)</span> -<span id="L2215" class="LineNr">2215 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2216" class="LineNr">2216 </span> 52/push-edx -<span id="L2217" class="LineNr">2217 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2218" class="LineNr">2218 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2219" class="LineNr">2219 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L2220" class="LineNr">2220 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2221" class="LineNr">2221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2222" class="LineNr">2222 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L2223" class="LineNr">2223 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2224" class="LineNr">2224 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 -<span id="L2225" class="LineNr">2225 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2226" class="LineNr">2226 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2227" class="LineNr">2227 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2228" class="LineNr">2228 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2229" class="LineNr">2229 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2230" class="LineNr">2230 </span><span class="Constant">$emit-opcodes:end</span>: -<span id="L2231" class="LineNr">2231 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L2232" class="LineNr">2232 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2233" class="LineNr">2233 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2234" class="LineNr">2234 </span> 5b/pop-to-ebx -<span id="L2235" class="LineNr">2235 </span> 5a/pop-to-edx -<span id="L2236" class="LineNr">2236 </span> 59/pop-to-ecx -<span id="L2237" class="LineNr">2237 </span> 58/pop-to-eax -<span id="L2238" class="LineNr">2238 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2239" class="LineNr">2239 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2240" class="LineNr">2240 </span> 5d/pop-to-ebp -<span id="L2241" class="LineNr">2241 </span> c3/return -<span id="L2242" class="LineNr">2242 </span> -<span id="L2243" class="LineNr">2243 </span><span class="subxFunction">emit-modrm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L2244" class="LineNr">2244 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2245" class="LineNr">2245 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2246" class="LineNr">2246 </span> <span class="subxComment"># var has-modrm? = false, mod = 0, rm32 = 0, r32 = 0</span> -<span id="L2247" class="LineNr">2247 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L2248" class="LineNr">2248 </span> <span class="subxComment"># while true</span> -<span id="L2249" class="LineNr">2249 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L2250" class="LineNr">2250 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2251" class="LineNr">2251 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2252" class="LineNr">2252 </span> <span class="subxComment"># if (has-metadata?(word-slice, "mod"))</span> -<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># mod = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2254" class="LineNr">2254 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># else if has-metadata?(word-slice, "rm32") or has-metadata?(word-slice, "xm32")</span> -<span id="L2256" class="LineNr">2256 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># else if has-metadata?(word-slice, "r32") or has-metadata?(word-slice, "x32") or has-metadata?(word-slice, "subop")</span> -<span id="L2259" class="LineNr">2259 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2261" class="LineNr">2261 </span> <span class="subxComment"># if has-modrm?</span> -<span id="L2262" class="LineNr">2262 </span> <span class="subxComment"># var modrm = mod & 0b11</span> -<span id="L2263" class="LineNr">2263 </span> <span class="subxComment"># modrm <<= 3</span> -<span id="L2264" class="LineNr">2264 </span> <span class="subxComment"># modrm |= r32 & 0b111</span> -<span id="L2265" class="LineNr">2265 </span> <span class="subxComment"># modrm <<= 3</span> -<span id="L2266" class="LineNr">2266 </span> <span class="subxComment"># modrm |= rm32 & 0b111</span> -<span id="L2267" class="LineNr">2267 </span> <span class="subxComment"># emit-hex(out, modrm, 1)</span> -<span id="L2268" class="LineNr">2268 </span> <span class="subxComment">#</span> -<span id="L2269" class="LineNr">2269 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2270" class="LineNr">2270 </span> 55/push-ebp -<span id="L2271" class="LineNr">2271 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2272" class="LineNr">2272 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2273" class="LineNr">2273 </span> 50/push-eax -<span id="L2274" class="LineNr">2274 </span> 51/push-ecx -<span id="L2275" class="LineNr">2275 </span> 52/push-edx -<span id="L2276" class="LineNr">2276 </span> 53/push-ebx -<span id="L2277" class="LineNr">2277 </span> 56/push-esi -<span id="L2278" class="LineNr">2278 </span> 57/push-edi -<span id="L2279" class="LineNr">2279 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L2280" class="LineNr">2280 </span> 68/push 0/imm32/end -<span id="L2281" class="LineNr">2281 </span> 68/push 0/imm32/start -<span id="L2282" class="LineNr">2282 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2283" class="LineNr">2283 </span> <span class="subxComment"># var has-modrm?/edx: boolean = false</span> -<span id="L2284" class="LineNr">2284 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> -<span id="L2285" class="LineNr">2285 </span> <span class="subxComment"># var mod/ebx: byte = 0</span> -<span id="L2286" class="LineNr">2286 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L2287" class="LineNr">2287 </span> <span class="subxComment"># var rm32/esi: byte = 0</span> -<span id="L2288" class="LineNr">2288 </span> 31/xor 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear esi</span> -<span id="L2289" class="LineNr">2289 </span> <span class="subxComment"># var r32/edi: byte = 0</span> -<span id="L2290" class="LineNr">2290 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> -<span id="L2291" class="LineNr">2291 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2292" class="LineNr">2292 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2187" class="LineNr">2187 </span> 68/push <span class="Constant">"66"</span>/imm32 +<span id="L2188" class="LineNr">2188 </span> 51/push-ecx +<span id="L2189" class="LineNr">2189 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2190" class="LineNr">2190 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2191" class="LineNr">2191 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2192" class="LineNr">2192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2193" class="LineNr">2193 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> +<span id="L2194" class="LineNr">2194 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2195" class="LineNr">2195 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 +<span id="L2196" class="LineNr">2196 </span> <span class="subxComment"># if (slice-equal?(op1, "db")) goto op2</span> +<span id="L2197" class="LineNr">2197 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "db")</span> +<span id="L2198" class="LineNr">2198 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2199" class="LineNr">2199 </span> 68/push <span class="Constant">"db"</span>/imm32 +<span id="L2200" class="LineNr">2200 </span> 51/push-ecx +<span id="L2201" class="LineNr">2201 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2202" class="LineNr">2202 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2203" class="LineNr">2203 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2204" class="LineNr">2204 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2205" class="LineNr">2205 </span> <span class="subxS1Comment"># . if (eax != false) goto op2</span> +<span id="L2206" class="LineNr">2206 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2207" class="LineNr">2207 </span> 75/jump-if-!= $emit-opcodes:op2/disp8 +<span id="L2208" class="LineNr">2208 </span> <span class="subxComment"># otherwise return</span> +<span id="L2209" class="LineNr">2209 </span> e9/jump $emit-opcodes:end/disp32 +<span id="L2210" class="LineNr">2210 </span><span class="Constant">$emit-opcodes:op2</span>: +<span id="L2211" class="LineNr">2211 </span> <span class="subxComment"># next-word(line, op2)</span> +<span id="L2212" class="LineNr">2212 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2213" class="LineNr">2213 </span> 52/push-edx +<span id="L2214" class="LineNr">2214 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2215" class="LineNr">2215 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2216" class="LineNr">2216 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2217" class="LineNr">2217 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2218" class="LineNr">2218 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2219" class="LineNr">2219 </span> <span class="subxComment"># if (slice-empty?(op2)) return</span> +<span id="L2220" class="LineNr">2220 </span> <span class="subxS1Comment"># . eax = slice-empty?(op2)</span> +<span id="L2221" class="LineNr">2221 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2222" class="LineNr">2222 </span> 52/push-edx +<span id="L2223" class="LineNr">2223 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2224" class="LineNr">2224 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2225" class="LineNr">2225 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2226" class="LineNr">2226 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2227" class="LineNr">2227 </span> <span class="subxS1Comment"># . if (eax != false) return</span> +<span id="L2228" class="LineNr">2228 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2229" class="LineNr">2229 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 +<span id="L2230" class="LineNr">2230 </span> <span class="subxComment"># if (slice-starts-with?(op2, "#")) return</span> +<span id="L2231" class="LineNr">2231 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op2->start</span> +<span id="L2232" class="LineNr">2232 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> +<span id="L2233" class="LineNr">2233 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L2234" class="LineNr">2234 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2235" class="LineNr">2235 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> +<span id="L2236" class="LineNr">2236 </span> <span class="subxS1Comment"># . if (c == '#') return</span> +<span id="L2237" class="LineNr">2237 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L2238" class="LineNr">2238 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 +<span id="L2239" class="LineNr">2239 </span> <span class="subxComment"># op2 = next-token-from-slice(op2->start, op2->end, '/')</span> +<span id="L2240" class="LineNr">2240 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2241" class="LineNr">2241 </span> 52/push-edx +<span id="L2242" class="LineNr">2242 </span> 68/push 0x2f/imm32/slash +<span id="L2243" class="LineNr">2243 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L2244" class="LineNr">2244 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L2245" class="LineNr">2245 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2246" class="LineNr">2246 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2247" class="LineNr">2247 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2248" class="LineNr">2248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2249" class="LineNr">2249 </span> <span class="subxComment"># write-slice-buffered(out, op2)</span> +<span id="L2250" class="LineNr">2250 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2251" class="LineNr">2251 </span> 52/push-edx +<span id="L2252" class="LineNr">2252 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2253" class="LineNr">2253 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2254" class="LineNr">2254 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L2255" class="LineNr">2255 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2256" class="LineNr">2256 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L2258" class="LineNr">2258 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2259" class="LineNr">2259 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L2260" class="LineNr">2260 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2261" class="LineNr">2261 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2262" class="LineNr">2262 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2263" class="LineNr">2263 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2264" class="LineNr">2264 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2265" class="LineNr">2265 </span> <span class="subxComment"># if (slice-equal?(op1, "0f")) return</span> +<span id="L2266" class="LineNr">2266 </span> <span class="subxS1Comment"># . eax = slice-equal?(op1, "0f")</span> +<span id="L2267" class="LineNr">2267 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2268" class="LineNr">2268 </span> 68/push <span class="Constant">"0f"</span>/imm32 +<span id="L2269" class="LineNr">2269 </span> 51/push-ecx +<span id="L2270" class="LineNr">2270 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2271" class="LineNr">2271 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2272" class="LineNr">2272 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2273" class="LineNr">2273 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2274" class="LineNr">2274 </span> <span class="subxS1Comment"># . if (eax != false) return</span> +<span id="L2275" class="LineNr">2275 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2276" class="LineNr">2276 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 +<span id="L2277" class="LineNr">2277 </span> <span class="subxComment"># if (!slice-equal?(op2, "0f")) return</span> +<span id="L2278" class="LineNr">2278 </span> <span class="subxS1Comment"># . eax = slice-equal?(op2, "0f")</span> +<span id="L2279" class="LineNr">2279 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2280" class="LineNr">2280 </span> 68/push <span class="Constant">"0f"</span>/imm32 +<span id="L2281" class="LineNr">2281 </span> 52/push-edx +<span id="L2282" class="LineNr">2282 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2283" class="LineNr">2283 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2284" class="LineNr">2284 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2285" class="LineNr">2285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2286" class="LineNr">2286 </span> <span class="subxS1Comment"># . if (eax == false) return</span> +<span id="L2287" class="LineNr">2287 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2288" class="LineNr">2288 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 +<span id="L2289" class="LineNr">2289 </span><span class="Constant">$emit-opcodes:op3</span>: +<span id="L2290" class="LineNr">2290 </span> <span class="subxComment"># next-word(line, op3) # reuse op2/edx</span> +<span id="L2291" class="LineNr">2291 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2292" class="LineNr">2292 </span> 52/push-edx <span id="L2293" class="LineNr">2293 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L2294" class="LineNr">2294 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2295" class="LineNr">2295 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2295" class="LineNr">2295 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L2296" class="LineNr">2296 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2297" class="LineNr">2297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2298" class="Folded">2298 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2331" class="LineNr">2331 </span><span class="Constant">$emit-modrm:loop</span>: -<span id="L2332" class="LineNr">2332 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2333" class="LineNr">2333 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2334" class="LineNr">2334 </span> 51/push-ecx -<span id="L2335" class="LineNr">2335 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2336" class="LineNr">2336 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2337" class="LineNr">2337 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2338" class="LineNr">2338 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2339" class="LineNr">2339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2340" class="Folded">2340 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2380" class="LineNr">2380 </span><span class="Constant">$emit-modrm:check0</span>: -<span id="L2381" class="LineNr">2381 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2382" class="LineNr">2382 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2383" class="LineNr">2383 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2384" class="LineNr">2384 </span> 51/push-ecx -<span id="L2385" class="LineNr">2385 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2386" class="LineNr">2386 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2387" class="LineNr">2387 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2388" class="LineNr">2388 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2389" class="LineNr">2389 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L2390" class="LineNr">2390 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2391" class="LineNr">2391 </span> 0f 85/jump-if-!= $emit-modrm:<span class="Constant">break</span>/disp32 -<span id="L2392" class="LineNr">2392 </span><span class="Constant">$emit-modrm:check1</span>: -<span id="L2393" class="LineNr">2393 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2394" class="LineNr">2394 </span> <span class="subxS1Comment"># . spill edx</span> -<span id="L2395" class="LineNr">2395 </span> 52/push-edx -<span id="L2396" class="LineNr">2396 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> -<span id="L2397" class="LineNr">2397 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L2398" class="LineNr">2398 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L2399" class="LineNr">2399 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L2400" class="LineNr">2400 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L2401" class="LineNr">2401 </span> <span class="subxS1Comment"># . restore edx</span> -<span id="L2402" class="LineNr">2402 </span> 5a/pop-to-edx -<span id="L2403" class="LineNr">2403 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> -<span id="L2404" class="LineNr">2404 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2405" class="LineNr">2405 </span> 0f 84/jump-if-= $emit-modrm:<span class="Constant">break</span>/disp32 -<span id="L2406" class="LineNr">2406 </span><span class="Constant">$emit-modrm:check-for-mod</span>: -<span id="L2407" class="LineNr">2407 </span> <span class="subxComment"># if (has-metadata?(word-slice, "mod"))</span> -<span id="L2408" class="LineNr">2408 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "mod")</span> -<span id="L2409" class="LineNr">2409 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2410" class="LineNr">2410 </span> 68/push <span class="Constant">"mod"</span>/imm32 -<span id="L2411" class="LineNr">2411 </span> 51/push-ecx -<span id="L2412" class="LineNr">2412 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2413" class="LineNr">2413 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2414" class="LineNr">2414 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2415" class="LineNr">2415 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2416" class="LineNr">2416 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2417" class="LineNr">2417 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2418" class="LineNr">2418 </span> 74/jump-if-= $emit-modrm:check-for-rm32/disp8 -<span id="L2419" class="LineNr">2419 </span><span class="Constant">$emit-modrm:mod</span>: -<span id="L2420" class="LineNr">2420 </span> <span class="subxComment"># mod = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2421" class="LineNr">2421 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2422" class="LineNr">2422 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2423" class="LineNr">2423 </span> 51/push-ecx -<span id="L2424" class="LineNr">2424 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2425" class="LineNr">2425 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2426" class="LineNr">2426 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2427" class="LineNr">2427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2428" class="LineNr">2428 </span> <span class="subxS1Comment"># . mod = eax</span> -<span id="L2429" class="LineNr">2429 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L2430" class="LineNr">2430 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2431" class="LineNr">2431 </span> ba/copy-to-edx 1/imm32/true -<span id="L2432" class="LineNr">2432 </span> <span class="subxComment"># continue</span> -<span id="L2433" class="LineNr">2433 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2434" class="LineNr">2434 </span><span class="Constant">$emit-modrm:check-for-rm32</span>: -<span id="L2435" class="LineNr">2435 </span> <span class="subxComment"># if (has-metadata?(word-slice, "rm32"))</span> -<span id="L2436" class="LineNr">2436 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "rm32")</span> -<span id="L2437" class="LineNr">2437 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2438" class="LineNr">2438 </span> 68/push <span class="Constant">"rm32"</span>/imm32 -<span id="L2439" class="LineNr">2439 </span> 51/push-ecx -<span id="L2440" class="LineNr">2440 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2441" class="LineNr">2441 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2442" class="LineNr">2442 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2443" class="LineNr">2443 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2444" class="LineNr">2444 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2445" class="LineNr">2445 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2446" class="LineNr">2446 </span> 74/jump-if-= $emit-modrm:check-for-xm32/disp8 -<span id="L2447" class="LineNr">2447 </span><span class="Constant">$emit-modrm:rm32</span>: -<span id="L2448" class="LineNr">2448 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2449" class="LineNr">2449 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2450" class="LineNr">2450 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2451" class="LineNr">2451 </span> 51/push-ecx -<span id="L2452" class="LineNr">2452 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2453" class="LineNr">2453 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2454" class="LineNr">2454 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2455" class="LineNr">2455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2456" class="LineNr">2456 </span> <span class="subxS1Comment"># . rm32 = eax</span> -<span id="L2457" class="LineNr">2457 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> -<span id="L2458" class="LineNr">2458 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2459" class="LineNr">2459 </span> ba/copy-to-edx 1/imm32/true -<span id="L2460" class="LineNr">2460 </span> <span class="subxComment"># continue</span> -<span id="L2461" class="LineNr">2461 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2462" class="LineNr">2462 </span><span class="Constant">$emit-modrm:check-for-xm32</span>: -<span id="L2463" class="LineNr">2463 </span> <span class="subxComment"># if (has-metadata?(word-slice, "xm32"))</span> -<span id="L2464" class="LineNr">2464 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "xm32")</span> -<span id="L2465" class="LineNr">2465 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2466" class="LineNr">2466 </span> 68/push <span class="Constant">"xm32"</span>/imm32 -<span id="L2467" class="LineNr">2467 </span> 51/push-ecx -<span id="L2468" class="LineNr">2468 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2469" class="LineNr">2469 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2470" class="LineNr">2470 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2471" class="LineNr">2471 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2472" class="LineNr">2472 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2473" class="LineNr">2473 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2474" class="LineNr">2474 </span> 74/jump-if-= $emit-modrm:check-for-r32/disp8 -<span id="L2475" class="LineNr">2475 </span><span class="Constant">$emit-modrm:xm32</span>: -<span id="L2476" class="LineNr">2476 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2477" class="LineNr">2477 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2478" class="LineNr">2478 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2479" class="LineNr">2479 </span> 51/push-ecx -<span id="L2480" class="LineNr">2480 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2481" class="LineNr">2481 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2482" class="LineNr">2482 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2483" class="LineNr">2483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2484" class="LineNr">2484 </span> <span class="subxS1Comment"># . rm32 = eax</span> -<span id="L2485" class="LineNr">2485 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> -<span id="L2486" class="LineNr">2486 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2487" class="LineNr">2487 </span> ba/copy-to-edx 1/imm32/true -<span id="L2488" class="LineNr">2488 </span> <span class="subxComment"># continue</span> -<span id="L2489" class="LineNr">2489 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2490" class="LineNr">2490 </span><span class="Constant">$emit-modrm:check-for-r32</span>: -<span id="L2491" class="LineNr">2491 </span> <span class="subxComment"># if (has-metadata?(word-slice, "r32"))</span> -<span id="L2492" class="LineNr">2492 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "r32")</span> -<span id="L2493" class="LineNr">2493 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2494" class="LineNr">2494 </span> 68/push <span class="Constant">"r32"</span>/imm32 -<span id="L2495" class="LineNr">2495 </span> 51/push-ecx -<span id="L2496" class="LineNr">2496 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2497" class="LineNr">2497 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2498" class="LineNr">2498 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2499" class="LineNr">2499 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2500" class="LineNr">2500 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2501" class="LineNr">2501 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2502" class="LineNr">2502 </span> 74/jump-if-= $emit-modrm:check-for-x32/disp8 -<span id="L2503" class="LineNr">2503 </span><span class="Constant">$emit-modrm:r32</span>: -<span id="L2504" class="LineNr">2504 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2505" class="LineNr">2505 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2506" class="LineNr">2506 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2507" class="LineNr">2507 </span> 51/push-ecx -<span id="L2508" class="LineNr">2508 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2509" class="LineNr">2509 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2510" class="LineNr">2510 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2511" class="LineNr">2511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2512" class="LineNr">2512 </span> <span class="subxS1Comment"># . r32 = eax</span> -<span id="L2513" class="LineNr">2513 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L2514" class="LineNr">2514 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2515" class="LineNr">2515 </span> ba/copy-to-edx 1/imm32/true -<span id="L2516" class="LineNr">2516 </span> <span class="subxComment"># continue</span> -<span id="L2517" class="LineNr">2517 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2518" class="LineNr">2518 </span><span class="Constant">$emit-modrm:check-for-x32</span>: -<span id="L2519" class="LineNr">2519 </span> <span class="subxComment"># if (has-metadata?(word-slice, "x32"))</span> -<span id="L2520" class="LineNr">2520 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "x32")</span> -<span id="L2521" class="LineNr">2521 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2522" class="LineNr">2522 </span> 68/push <span class="Constant">"x32"</span>/imm32 -<span id="L2523" class="LineNr">2523 </span> 51/push-ecx -<span id="L2524" class="LineNr">2524 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2525" class="LineNr">2525 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2526" class="LineNr">2526 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2527" class="LineNr">2527 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2528" class="LineNr">2528 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2529" class="LineNr">2529 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2530" class="LineNr">2530 </span> 74/jump-if-= $emit-modrm:check-for-subop/disp8 -<span id="L2531" class="LineNr">2531 </span><span class="Constant">$emit-modrm:x32</span>: -<span id="L2532" class="LineNr">2532 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2533" class="LineNr">2533 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2534" class="LineNr">2534 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2535" class="LineNr">2535 </span> 51/push-ecx -<span id="L2536" class="LineNr">2536 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2537" class="LineNr">2537 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2538" class="LineNr">2538 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2539" class="LineNr">2539 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2540" class="LineNr">2540 </span> <span class="subxS1Comment"># . r32 = eax</span> -<span id="L2541" class="LineNr">2541 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L2542" class="LineNr">2542 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2543" class="LineNr">2543 </span> ba/copy-to-edx 1/imm32/true -<span id="L2544" class="LineNr">2544 </span> <span class="subxComment"># continue</span> -<span id="L2545" class="LineNr">2545 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2546" class="LineNr">2546 </span><span class="Constant">$emit-modrm:check-for-subop</span>: -<span id="L2547" class="LineNr">2547 </span> <span class="subxComment"># if (has-metadata?(word-slice, "subop"))</span> -<span id="L2548" class="LineNr">2548 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "subop")</span> -<span id="L2549" class="LineNr">2549 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2550" class="LineNr">2550 </span> 68/push <span class="Constant">"subop"</span>/imm32 -<span id="L2551" class="LineNr">2551 </span> 51/push-ecx -<span id="L2552" class="LineNr">2552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2553" class="LineNr">2553 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2554" class="LineNr">2554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2555" class="LineNr">2555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2556" class="LineNr">2556 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> -<span id="L2557" class="LineNr">2557 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2558" class="LineNr">2558 </span> 0f 84/jump-if-= $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2559" class="LineNr">2559 </span><span class="Constant">$emit-modrm:subop</span>: -<span id="L2560" class="LineNr">2560 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2561" class="LineNr">2561 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2562" class="LineNr">2562 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2563" class="LineNr">2563 </span> 51/push-ecx -<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2565" class="LineNr">2565 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2567" class="LineNr">2567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2568" class="LineNr">2568 </span> <span class="subxS1Comment"># . r32 = eax</span> -<span id="L2569" class="LineNr">2569 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L2570" class="LineNr">2570 </span> <span class="subxComment"># has-modrm? = true</span> -<span id="L2571" class="LineNr">2571 </span> ba/copy-to-edx 1/imm32/true -<span id="L2572" class="LineNr">2572 </span> <span class="subxComment"># continue</span> -<span id="L2573" class="LineNr">2573 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 -<span id="L2574" class="LineNr">2574 </span><span class="Constant">$emit-modrm:break</span>: -<span id="L2575" class="LineNr">2575 </span> <span class="subxComment"># if (!has-modrm?) return</span> -<span id="L2576" class="LineNr">2576 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> -<span id="L2577" class="LineNr">2577 </span> 74/jump-if-= $emit-modrm:end/disp8 -<span id="L2578" class="LineNr">2578 </span><span class="Constant">$emit-modrm:calculate</span>: -<span id="L2579" class="LineNr">2579 </span> <span class="subxComment"># var modrm/ebx: byte = mod & 0b11</span> -<span id="L2580" class="LineNr">2580 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> -<span id="L2581" class="LineNr">2581 </span> <span class="subxComment"># modrm <<= 3</span> -<span id="L2582" class="LineNr">2582 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2583" class="LineNr">2583 </span> <span class="subxComment"># modrm |= r32 & 0b111</span> -<span id="L2584" class="LineNr">2584 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> -<span id="L2585" class="LineNr">2585 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> -<span id="L2586" class="LineNr">2586 </span> <span class="subxComment"># modrm <<= 3</span> -<span id="L2587" class="LineNr">2587 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2588" class="LineNr">2588 </span> <span class="subxComment"># modrm |= rm32 & 0b111</span> -<span id="L2589" class="LineNr">2589 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> -<span id="L2590" class="LineNr">2590 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> -<span id="L2591" class="LineNr">2591 </span><span class="Constant">$emit-modrm:<a href='../130emit.subx.html#L10'>emit</a></span>: -<span id="L2592" class="LineNr">2592 </span> <span class="subxComment"># emit-hex(out, modrm, 1)</span> -<span id="L2593" class="LineNr">2593 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2594" class="LineNr">2594 </span> 68/push 1/imm32 -<span id="L2595" class="LineNr">2595 </span> 53/push-ebx -<span id="L2596" class="LineNr">2596 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2597" class="LineNr">2597 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2598" class="LineNr">2598 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L2599" class="LineNr">2599 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2600" class="LineNr">2600 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2601" class="LineNr">2601 </span><span class="Constant">$emit-modrm:end</span>: -<span id="L2602" class="LineNr">2602 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L2603" class="LineNr">2603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2604" class="LineNr">2604 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2605" class="LineNr">2605 </span> 5f/pop-to-edi -<span id="L2606" class="LineNr">2606 </span> 5e/pop-to-esi -<span id="L2607" class="LineNr">2607 </span> 5b/pop-to-ebx -<span id="L2608" class="LineNr">2608 </span> 5a/pop-to-edx -<span id="L2609" class="LineNr">2609 </span> 59/pop-to-ecx -<span id="L2610" class="LineNr">2610 </span> 58/pop-to-eax -<span id="L2611" class="LineNr">2611 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2612" class="LineNr">2612 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2613" class="LineNr">2613 </span> 5d/pop-to-ebp -<span id="L2614" class="LineNr">2614 </span> c3/return -<span id="L2615" class="LineNr">2615 </span> -<span id="L2616" class="LineNr">2616 </span><span class="subxFunction">emit-sib</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L2617" class="LineNr">2617 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2618" class="LineNr">2618 </span> <span class="subxComment"># var has-sib? = false, base = 0, index = 0, scale = 0</span> -<span id="L2619" class="LineNr">2619 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L2620" class="LineNr">2620 </span> <span class="subxComment"># while true</span> -<span id="L2621" class="LineNr">2621 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L2622" class="LineNr">2622 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2623" class="LineNr">2623 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2624" class="LineNr">2624 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base")</span> -<span id="L2625" class="LineNr">2625 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2626" class="LineNr">2626 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2627" class="LineNr">2627 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "index")</span> -<span id="L2628" class="LineNr">2628 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2629" class="LineNr">2629 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2630" class="LineNr">2630 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "scale")</span> -<span id="L2631" class="LineNr">2631 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> -<span id="L2632" class="LineNr">2632 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2633" class="LineNr">2633 </span> <span class="subxComment"># if has-sib?</span> -<span id="L2634" class="LineNr">2634 </span> <span class="subxComment"># var sib = scale & 0b11</span> -<span id="L2635" class="LineNr">2635 </span> <span class="subxComment"># sib <<= 3</span> -<span id="L2636" class="LineNr">2636 </span> <span class="subxComment"># sib |= index & 0b111</span> -<span id="L2637" class="LineNr">2637 </span> <span class="subxComment"># sib <<= 3</span> -<span id="L2638" class="LineNr">2638 </span> <span class="subxComment"># sib |= base & 0b111</span> -<span id="L2639" class="LineNr">2639 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> -<span id="L2640" class="LineNr">2640 </span> <span class="subxComment">#</span> -<span id="L2641" class="LineNr">2641 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2642" class="LineNr">2642 </span> 55/push-ebp -<span id="L2643" class="LineNr">2643 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2644" class="LineNr">2644 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2645" class="LineNr">2645 </span> 50/push-eax -<span id="L2646" class="LineNr">2646 </span> 51/push-ecx -<span id="L2647" class="LineNr">2647 </span> 52/push-edx -<span id="L2648" class="LineNr">2648 </span> 53/push-ebx -<span id="L2649" class="LineNr">2649 </span> 56/push-esi -<span id="L2650" class="LineNr">2650 </span> 57/push-edi -<span id="L2651" class="LineNr">2651 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L2652" class="LineNr">2652 </span> 68/push 0/imm32/end -<span id="L2653" class="LineNr">2653 </span> 68/push 0/imm32/start -<span id="L2654" class="LineNr">2654 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2655" class="LineNr">2655 </span> <span class="subxComment"># var has-sib?/edx: boolean = false</span> -<span id="L2656" class="LineNr">2656 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> -<span id="L2657" class="LineNr">2657 </span> <span class="subxComment"># var scale/ebx: byte = 0</span> -<span id="L2658" class="LineNr">2658 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L2659" class="LineNr">2659 </span> <span class="subxComment"># var base/esi: byte = 0</span> -<span id="L2660" class="LineNr">2660 </span> 31/xor 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear esi</span> -<span id="L2661" class="LineNr">2661 </span> <span class="subxComment"># var index/edi: byte = 0</span> -<span id="L2662" class="LineNr">2662 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> -<span id="L2663" class="LineNr">2663 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2664" class="LineNr">2664 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2665" class="LineNr">2665 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2297" class="LineNr">2297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2298" class="LineNr">2298 </span> <span class="subxComment"># if (slice-empty?(op3)) return</span> +<span id="L2299" class="LineNr">2299 </span> <span class="subxS1Comment"># . eax = slice-empty?(op3)</span> +<span id="L2300" class="LineNr">2300 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2301" class="LineNr">2301 </span> 52/push-edx +<span id="L2302" class="LineNr">2302 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2303" class="LineNr">2303 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2304" class="LineNr">2304 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2305" class="LineNr">2305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2306" class="LineNr">2306 </span> <span class="subxS1Comment"># . if (eax != false) return</span> +<span id="L2307" class="LineNr">2307 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2308" class="LineNr">2308 </span> 0f 85/jump-if-!= $emit-opcodes:end/disp32 +<span id="L2309" class="LineNr">2309 </span> <span class="subxComment"># if (slice-starts-with?(op3, "#")) return</span> +<span id="L2310" class="LineNr">2310 </span> <span class="subxS1Comment"># . var start/ebx: (addr byte) = op2->start</span> +<span id="L2311" class="LineNr">2311 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> +<span id="L2312" class="LineNr">2312 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L2313" class="LineNr">2313 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2314" class="LineNr">2314 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> +<span id="L2315" class="LineNr">2315 </span> <span class="subxS1Comment"># . if (c == '#') return</span> +<span id="L2316" class="LineNr">2316 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L2317" class="LineNr">2317 </span> 0f 84/jump-if-= $emit-opcodes:end/disp32 +<span id="L2318" class="LineNr">2318 </span> <span class="subxComment"># op3 = next-token-from-slice(op3->start, op3->end, '/')</span> +<span id="L2319" class="LineNr">2319 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2320" class="LineNr">2320 </span> 52/push-edx +<span id="L2321" class="LineNr">2321 </span> 68/push 0x2f/imm32/slash +<span id="L2322" class="LineNr">2322 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L2323" class="LineNr">2323 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L2324" class="LineNr">2324 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2325" class="LineNr">2325 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2326" class="LineNr">2326 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2327" class="LineNr">2327 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2328" class="LineNr">2328 </span> <span class="subxComment"># write-slice-buffered(out, op3)</span> +<span id="L2329" class="LineNr">2329 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2330" class="LineNr">2330 </span> 52/push-edx +<span id="L2331" class="LineNr">2331 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2332" class="LineNr">2332 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2333" class="LineNr">2333 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L2334" class="LineNr">2334 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2335" class="LineNr">2335 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2336" class="LineNr">2336 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L2337" class="LineNr">2337 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2338" class="LineNr">2338 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L2339" class="LineNr">2339 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2340" class="LineNr">2340 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2341" class="LineNr">2341 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2342" class="LineNr">2342 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2343" class="LineNr">2343 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2344" class="LineNr">2344 </span><span class="Constant">$emit-opcodes:end</span>: +<span id="L2345" class="LineNr">2345 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L2346" class="LineNr">2346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2347" class="LineNr">2347 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2348" class="LineNr">2348 </span> 5b/pop-to-ebx +<span id="L2349" class="LineNr">2349 </span> 5a/pop-to-edx +<span id="L2350" class="LineNr">2350 </span> 59/pop-to-ecx +<span id="L2351" class="LineNr">2351 </span> 58/pop-to-eax +<span id="L2352" class="LineNr">2352 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2353" class="LineNr">2353 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2354" class="LineNr">2354 </span> 5d/pop-to-ebp +<span id="L2355" class="LineNr">2355 </span> c3/return +<span id="L2356" class="LineNr">2356 </span> +<span id="L2357" class="LineNr">2357 </span><span class="subxFunction">emit-modrm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L2358" class="LineNr">2358 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2359" class="LineNr">2359 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2360" class="LineNr">2360 </span> <span class="subxComment"># var has-modrm? = false, mod = 0, rm32 = 0, r32 = 0</span> +<span id="L2361" class="LineNr">2361 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L2362" class="LineNr">2362 </span> <span class="subxComment"># while true</span> +<span id="L2363" class="LineNr">2363 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L2364" class="LineNr">2364 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2365" class="LineNr">2365 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2366" class="LineNr">2366 </span> <span class="subxComment"># if (has-metadata?(word-slice, "mod"))</span> +<span id="L2367" class="LineNr">2367 </span> <span class="subxComment"># mod = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2368" class="LineNr">2368 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2369" class="LineNr">2369 </span> <span class="subxComment"># else if has-metadata?(word-slice, "rm32") or has-metadata?(word-slice, "xm32")</span> +<span id="L2370" class="LineNr">2370 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2371" class="LineNr">2371 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2372" class="LineNr">2372 </span> <span class="subxComment"># else if has-metadata?(word-slice, "r32") or has-metadata?(word-slice, "x32") or has-metadata?(word-slice, "subop")</span> +<span id="L2373" class="LineNr">2373 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2374" class="LineNr">2374 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2375" class="LineNr">2375 </span> <span class="subxComment"># if has-modrm?</span> +<span id="L2376" class="LineNr">2376 </span> <span class="subxComment"># var modrm = mod & 0b11</span> +<span id="L2377" class="LineNr">2377 </span> <span class="subxComment"># modrm <<= 3</span> +<span id="L2378" class="LineNr">2378 </span> <span class="subxComment"># modrm |= r32 & 0b111</span> +<span id="L2379" class="LineNr">2379 </span> <span class="subxComment"># modrm <<= 3</span> +<span id="L2380" class="LineNr">2380 </span> <span class="subxComment"># modrm |= rm32 & 0b111</span> +<span id="L2381" class="LineNr">2381 </span> <span class="subxComment"># emit-hex(out, modrm, 1)</span> +<span id="L2382" class="LineNr">2382 </span> <span class="subxComment">#</span> +<span id="L2383" class="LineNr">2383 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2384" class="LineNr">2384 </span> 55/push-ebp +<span id="L2385" class="LineNr">2385 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2386" class="LineNr">2386 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2387" class="LineNr">2387 </span> 50/push-eax +<span id="L2388" class="LineNr">2388 </span> 51/push-ecx +<span id="L2389" class="LineNr">2389 </span> 52/push-edx +<span id="L2390" class="LineNr">2390 </span> 53/push-ebx +<span id="L2391" class="LineNr">2391 </span> 56/push-esi +<span id="L2392" class="LineNr">2392 </span> 57/push-edi +<span id="L2393" class="LineNr">2393 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L2394" class="LineNr">2394 </span> 68/push 0/imm32/end +<span id="L2395" class="LineNr">2395 </span> 68/push 0/imm32/start +<span id="L2396" class="LineNr">2396 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2397" class="LineNr">2397 </span> <span class="subxComment"># var has-modrm?/edx: boolean = false</span> +<span id="L2398" class="LineNr">2398 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> +<span id="L2399" class="LineNr">2399 </span> <span class="subxComment"># var mod/ebx: byte = 0</span> +<span id="L2400" class="LineNr">2400 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L2401" class="LineNr">2401 </span> <span class="subxComment"># var rm32/esi: byte = 0</span> +<span id="L2402" class="LineNr">2402 </span> 31/xor 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear esi</span> +<span id="L2403" class="LineNr">2403 </span> <span class="subxComment"># var r32/edi: byte = 0</span> +<span id="L2404" class="LineNr">2404 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> +<span id="L2405" class="LineNr">2405 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2406" class="LineNr">2406 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2407" class="LineNr">2407 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2408" class="LineNr">2408 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2409" class="LineNr">2409 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2410" class="LineNr">2410 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2411" class="LineNr">2411 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2412" class="Folded">2412 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2445" class="LineNr">2445 </span><span class="Constant">$emit-modrm:loop</span>: +<span id="L2446" class="LineNr">2446 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2447" class="LineNr">2447 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2448" class="LineNr">2448 </span> 51/push-ecx +<span id="L2449" class="LineNr">2449 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2450" class="LineNr">2450 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2451" class="LineNr">2451 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2452" class="LineNr">2452 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2453" class="LineNr">2453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2454" class="Folded">2454 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2494" class="LineNr">2494 </span><span class="Constant">$emit-modrm:check0</span>: +<span id="L2495" class="LineNr">2495 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2496" class="LineNr">2496 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2497" class="LineNr">2497 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2498" class="LineNr">2498 </span> 51/push-ecx +<span id="L2499" class="LineNr">2499 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2500" class="LineNr">2500 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2501" class="LineNr">2501 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2502" class="LineNr">2502 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2503" class="LineNr">2503 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L2504" class="LineNr">2504 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2505" class="LineNr">2505 </span> 0f 85/jump-if-!= $emit-modrm:<span class="Constant">break</span>/disp32 +<span id="L2506" class="LineNr">2506 </span><span class="Constant">$emit-modrm:check1</span>: +<span id="L2507" class="LineNr">2507 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2508" class="LineNr">2508 </span> <span class="subxS1Comment"># . spill edx</span> +<span id="L2509" class="LineNr">2509 </span> 52/push-edx +<span id="L2510" class="LineNr">2510 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> +<span id="L2511" class="LineNr">2511 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L2512" class="LineNr">2512 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L2513" class="LineNr">2513 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2514" class="LineNr">2514 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L2515" class="LineNr">2515 </span> <span class="subxS1Comment"># . restore edx</span> +<span id="L2516" class="LineNr">2516 </span> 5a/pop-to-edx +<span id="L2517" class="LineNr">2517 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> +<span id="L2518" class="LineNr">2518 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L2519" class="LineNr">2519 </span> 0f 84/jump-if-= $emit-modrm:<span class="Constant">break</span>/disp32 +<span id="L2520" class="LineNr">2520 </span><span class="Constant">$emit-modrm:check-for-mod</span>: +<span id="L2521" class="LineNr">2521 </span> <span class="subxComment"># if (has-metadata?(word-slice, "mod"))</span> +<span id="L2522" class="LineNr">2522 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "mod")</span> +<span id="L2523" class="LineNr">2523 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2524" class="LineNr">2524 </span> 68/push <span class="Constant">"mod"</span>/imm32 +<span id="L2525" class="LineNr">2525 </span> 51/push-ecx +<span id="L2526" class="LineNr">2526 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2527" class="LineNr">2527 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2528" class="LineNr">2528 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2529" class="LineNr">2529 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2530" class="LineNr">2530 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2531" class="LineNr">2531 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2532" class="LineNr">2532 </span> 74/jump-if-= $emit-modrm:check-for-rm32/disp8 +<span id="L2533" class="LineNr">2533 </span><span class="Constant">$emit-modrm:mod</span>: +<span id="L2534" class="LineNr">2534 </span> <span class="subxComment"># mod = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2535" class="LineNr">2535 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2536" class="LineNr">2536 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2537" class="LineNr">2537 </span> 51/push-ecx +<span id="L2538" class="LineNr">2538 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2539" class="LineNr">2539 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2540" class="LineNr">2540 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2541" class="LineNr">2541 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2542" class="LineNr">2542 </span> <span class="subxS1Comment"># . mod = eax</span> +<span id="L2543" class="LineNr">2543 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> +<span id="L2544" class="LineNr">2544 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2545" class="LineNr">2545 </span> ba/copy-to-edx 1/imm32/true +<span id="L2546" class="LineNr">2546 </span> <span class="subxComment"># continue</span> +<span id="L2547" class="LineNr">2547 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2548" class="LineNr">2548 </span><span class="Constant">$emit-modrm:check-for-rm32</span>: +<span id="L2549" class="LineNr">2549 </span> <span class="subxComment"># if (has-metadata?(word-slice, "rm32"))</span> +<span id="L2550" class="LineNr">2550 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "rm32")</span> +<span id="L2551" class="LineNr">2551 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2552" class="LineNr">2552 </span> 68/push <span class="Constant">"rm32"</span>/imm32 +<span id="L2553" class="LineNr">2553 </span> 51/push-ecx +<span id="L2554" class="LineNr">2554 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2555" class="LineNr">2555 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2556" class="LineNr">2556 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2557" class="LineNr">2557 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2558" class="LineNr">2558 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2559" class="LineNr">2559 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2560" class="LineNr">2560 </span> 74/jump-if-= $emit-modrm:check-for-xm32/disp8 +<span id="L2561" class="LineNr">2561 </span><span class="Constant">$emit-modrm:rm32</span>: +<span id="L2562" class="LineNr">2562 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2563" class="LineNr">2563 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2565" class="LineNr">2565 </span> 51/push-ecx +<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2567" class="LineNr">2567 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2568" class="LineNr">2568 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2569" class="LineNr">2569 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2570" class="LineNr">2570 </span> <span class="subxS1Comment"># . rm32 = eax</span> +<span id="L2571" class="LineNr">2571 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L2572" class="LineNr">2572 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2573" class="LineNr">2573 </span> ba/copy-to-edx 1/imm32/true +<span id="L2574" class="LineNr">2574 </span> <span class="subxComment"># continue</span> +<span id="L2575" class="LineNr">2575 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2576" class="LineNr">2576 </span><span class="Constant">$emit-modrm:check-for-xm32</span>: +<span id="L2577" class="LineNr">2577 </span> <span class="subxComment"># if (has-metadata?(word-slice, "xm32"))</span> +<span id="L2578" class="LineNr">2578 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "xm32")</span> +<span id="L2579" class="LineNr">2579 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2580" class="LineNr">2580 </span> 68/push <span class="Constant">"xm32"</span>/imm32 +<span id="L2581" class="LineNr">2581 </span> 51/push-ecx +<span id="L2582" class="LineNr">2582 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2583" class="LineNr">2583 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2584" class="LineNr">2584 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2585" class="LineNr">2585 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2586" class="LineNr">2586 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2587" class="LineNr">2587 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2588" class="LineNr">2588 </span> 74/jump-if-= $emit-modrm:check-for-r32/disp8 +<span id="L2589" class="LineNr">2589 </span><span class="Constant">$emit-modrm:xm32</span>: +<span id="L2590" class="LineNr">2590 </span> <span class="subxComment"># rm32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2591" class="LineNr">2591 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2592" class="LineNr">2592 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2593" class="LineNr">2593 </span> 51/push-ecx +<span id="L2594" class="LineNr">2594 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2595" class="LineNr">2595 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2596" class="LineNr">2596 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2597" class="LineNr">2597 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2598" class="LineNr">2598 </span> <span class="subxS1Comment"># . rm32 = eax</span> +<span id="L2599" class="LineNr">2599 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L2600" class="LineNr">2600 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2601" class="LineNr">2601 </span> ba/copy-to-edx 1/imm32/true +<span id="L2602" class="LineNr">2602 </span> <span class="subxComment"># continue</span> +<span id="L2603" class="LineNr">2603 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2604" class="LineNr">2604 </span><span class="Constant">$emit-modrm:check-for-r32</span>: +<span id="L2605" class="LineNr">2605 </span> <span class="subxComment"># if (has-metadata?(word-slice, "r32"))</span> +<span id="L2606" class="LineNr">2606 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "r32")</span> +<span id="L2607" class="LineNr">2607 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2608" class="LineNr">2608 </span> 68/push <span class="Constant">"r32"</span>/imm32 +<span id="L2609" class="LineNr">2609 </span> 51/push-ecx +<span id="L2610" class="LineNr">2610 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2611" class="LineNr">2611 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2612" class="LineNr">2612 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2613" class="LineNr">2613 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2614" class="LineNr">2614 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2615" class="LineNr">2615 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2616" class="LineNr">2616 </span> 74/jump-if-= $emit-modrm:check-for-x32/disp8 +<span id="L2617" class="LineNr">2617 </span><span class="Constant">$emit-modrm:r32</span>: +<span id="L2618" class="LineNr">2618 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2619" class="LineNr">2619 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2620" class="LineNr">2620 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2621" class="LineNr">2621 </span> 51/push-ecx +<span id="L2622" class="LineNr">2622 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2623" class="LineNr">2623 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2624" class="LineNr">2624 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2625" class="LineNr">2625 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2626" class="LineNr">2626 </span> <span class="subxS1Comment"># . r32 = eax</span> +<span id="L2627" class="LineNr">2627 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L2628" class="LineNr">2628 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2629" class="LineNr">2629 </span> ba/copy-to-edx 1/imm32/true +<span id="L2630" class="LineNr">2630 </span> <span class="subxComment"># continue</span> +<span id="L2631" class="LineNr">2631 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2632" class="LineNr">2632 </span><span class="Constant">$emit-modrm:check-for-x32</span>: +<span id="L2633" class="LineNr">2633 </span> <span class="subxComment"># if (has-metadata?(word-slice, "x32"))</span> +<span id="L2634" class="LineNr">2634 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "x32")</span> +<span id="L2635" class="LineNr">2635 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2636" class="LineNr">2636 </span> 68/push <span class="Constant">"x32"</span>/imm32 +<span id="L2637" class="LineNr">2637 </span> 51/push-ecx +<span id="L2638" class="LineNr">2638 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2639" class="LineNr">2639 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2640" class="LineNr">2640 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2641" class="LineNr">2641 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2642" class="LineNr">2642 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2643" class="LineNr">2643 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2644" class="LineNr">2644 </span> 74/jump-if-= $emit-modrm:check-for-subop/disp8 +<span id="L2645" class="LineNr">2645 </span><span class="Constant">$emit-modrm:x32</span>: +<span id="L2646" class="LineNr">2646 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2647" class="LineNr">2647 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2648" class="LineNr">2648 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2649" class="LineNr">2649 </span> 51/push-ecx +<span id="L2650" class="LineNr">2650 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2651" class="LineNr">2651 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2652" class="LineNr">2652 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2653" class="LineNr">2653 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2654" class="LineNr">2654 </span> <span class="subxS1Comment"># . r32 = eax</span> +<span id="L2655" class="LineNr">2655 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L2656" class="LineNr">2656 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2657" class="LineNr">2657 </span> ba/copy-to-edx 1/imm32/true +<span id="L2658" class="LineNr">2658 </span> <span class="subxComment"># continue</span> +<span id="L2659" class="LineNr">2659 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2660" class="LineNr">2660 </span><span class="Constant">$emit-modrm:check-for-subop</span>: +<span id="L2661" class="LineNr">2661 </span> <span class="subxComment"># if (has-metadata?(word-slice, "subop"))</span> +<span id="L2662" class="LineNr">2662 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "subop")</span> +<span id="L2663" class="LineNr">2663 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2664" class="LineNr">2664 </span> 68/push <span class="Constant">"subop"</span>/imm32 +<span id="L2665" class="LineNr">2665 </span> 51/push-ecx <span id="L2666" class="LineNr">2666 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2667" class="LineNr">2667 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2667" class="LineNr">2667 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 <span id="L2668" class="LineNr">2668 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2669" class="LineNr">2669 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2670" class="LineNr">2670 </span><span class="Constant">$emit-sib:loop</span>: -<span id="L2671" class="Folded">2671 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2697" class="LineNr">2697 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2698" class="LineNr">2698 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2699" class="LineNr">2699 </span> 51/push-ecx -<span id="L2700" class="LineNr">2700 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2701" class="LineNr">2701 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2702" class="LineNr">2702 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2703" class="LineNr">2703 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2704" class="LineNr">2704 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2705" class="Folded">2705 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2745" class="LineNr">2745 </span><span class="Constant">$emit-sib:check0</span>: -<span id="L2746" class="LineNr">2746 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2747" class="LineNr">2747 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2748" class="LineNr">2748 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2749" class="LineNr">2749 </span> 51/push-ecx -<span id="L2750" class="LineNr">2750 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2751" class="LineNr">2751 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2752" class="LineNr">2752 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2753" class="LineNr">2753 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2754" class="LineNr">2754 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L2755" class="LineNr">2755 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2756" class="LineNr">2756 </span> 0f 85/jump-if-!= $emit-sib:<span class="Constant">break</span>/disp32 -<span id="L2757" class="LineNr">2757 </span><span class="Constant">$emit-sib:check1</span>: -<span id="L2758" class="LineNr">2758 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2759" class="LineNr">2759 </span> <span class="subxS1Comment"># . spill edx</span> -<span id="L2760" class="LineNr">2760 </span> 52/push-edx -<span id="L2761" class="LineNr">2761 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> -<span id="L2762" class="LineNr">2762 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L2763" class="LineNr">2763 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L2764" class="LineNr">2764 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L2765" class="LineNr">2765 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L2766" class="LineNr">2766 </span> <span class="subxS1Comment"># . restore edx</span> -<span id="L2767" class="LineNr">2767 </span> 5a/pop-to-edx -<span id="L2768" class="LineNr">2768 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> -<span id="L2769" class="LineNr">2769 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2770" class="LineNr">2770 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">break</span>/disp32 -<span id="L2771" class="LineNr">2771 </span><span class="Constant">$emit-sib:check-for-scale</span>: -<span id="L2772" class="LineNr">2772 </span> <span class="subxComment"># if (has-metadata?(word-slice, "scale"))</span> -<span id="L2773" class="LineNr">2773 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "scale")</span> -<span id="L2774" class="LineNr">2774 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2775" class="LineNr">2775 </span> 68/push <span class="Constant">"scale"</span>/imm32 -<span id="L2776" class="LineNr">2776 </span> 51/push-ecx -<span id="L2777" class="LineNr">2777 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2778" class="LineNr">2778 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2779" class="LineNr">2779 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2780" class="LineNr">2780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2781" class="LineNr">2781 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2782" class="LineNr">2782 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2783" class="LineNr">2783 </span> 74/jump-if-= $emit-sib:check-for-base/disp8 -<span id="L2784" class="LineNr">2784 </span><span class="Constant">$emit-sib:scale</span>: -<span id="L2785" class="LineNr">2785 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2786" class="LineNr">2786 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2787" class="LineNr">2787 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2788" class="LineNr">2788 </span> 51/push-ecx -<span id="L2789" class="LineNr">2789 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2790" class="LineNr">2790 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2791" class="LineNr">2791 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2792" class="LineNr">2792 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2793" class="LineNr">2793 </span> <span class="subxS1Comment"># . scale = eax</span> -<span id="L2794" class="LineNr">2794 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L2795" class="LineNr">2795 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2796" class="LineNr">2796 </span> ba/copy-to-edx 1/imm32/true -<span id="L2797" class="LineNr">2797 </span> <span class="subxComment"># continue</span> -<span id="L2798" class="LineNr">2798 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2799" class="LineNr">2799 </span><span class="Constant">$emit-sib:check-for-base</span>: -<span id="L2800" class="LineNr">2800 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base"))</span> -<span id="L2801" class="LineNr">2801 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "base")</span> -<span id="L2802" class="LineNr">2802 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2803" class="LineNr">2803 </span> 68/push <span class="Constant">"base"</span>/imm32 -<span id="L2804" class="LineNr">2804 </span> 51/push-ecx -<span id="L2805" class="LineNr">2805 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2806" class="LineNr">2806 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2807" class="LineNr">2807 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2808" class="LineNr">2808 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2809" class="LineNr">2809 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2810" class="LineNr">2810 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2811" class="LineNr">2811 </span> 74/jump-if-= $emit-sib:check-for-index/disp8 -<span id="L2812" class="LineNr">2812 </span><span class="Constant">$emit-sib:base</span>: -<span id="L2813" class="LineNr">2813 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2814" class="LineNr">2814 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2815" class="LineNr">2815 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2816" class="LineNr">2816 </span> 51/push-ecx -<span id="L2817" class="LineNr">2817 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2818" class="LineNr">2818 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2820" class="LineNr">2820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2821" class="LineNr">2821 </span> <span class="subxS1Comment"># . base = eax</span> -<span id="L2822" class="LineNr">2822 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> -<span id="L2823" class="LineNr">2823 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2824" class="LineNr">2824 </span> ba/copy-to-edx 1/imm32/true -<span id="L2825" class="LineNr">2825 </span> <span class="subxComment"># continue</span> -<span id="L2826" class="LineNr">2826 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2827" class="LineNr">2827 </span><span class="Constant">$emit-sib:check-for-index</span>: -<span id="L2828" class="LineNr">2828 </span> <span class="subxComment"># if (has-metadata?(word-slice, "index"))</span> -<span id="L2829" class="LineNr">2829 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "index")</span> -<span id="L2830" class="LineNr">2830 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2831" class="LineNr">2831 </span> 68/push <span class="Constant">"index"</span>/imm32 -<span id="L2832" class="LineNr">2832 </span> 51/push-ecx -<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2834" class="LineNr">2834 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2835" class="LineNr">2835 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2836" class="LineNr">2836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2837" class="LineNr">2837 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> -<span id="L2838" class="LineNr">2838 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2839" class="LineNr">2839 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2840" class="LineNr">2840 </span><span class="Constant">$emit-sib:index</span>: -<span id="L2841" class="LineNr">2841 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> -<span id="L2842" class="LineNr">2842 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> -<span id="L2843" class="LineNr">2843 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2844" class="LineNr">2844 </span> 51/push-ecx -<span id="L2845" class="LineNr">2845 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2846" class="LineNr">2846 </span> e8/call <a href='pack.subx.html#L5979'>parse-datum-of-word</a>/disp32 -<span id="L2847" class="LineNr">2847 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2848" class="LineNr">2848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2849" class="LineNr">2849 </span> <span class="subxS1Comment"># . index = eax</span> -<span id="L2850" class="LineNr">2850 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L2851" class="LineNr">2851 </span> <span class="subxComment"># has-sib? = true</span> -<span id="L2852" class="LineNr">2852 </span> ba/copy-to-edx 1/imm32/true -<span id="L2853" class="LineNr">2853 </span> <span class="subxComment"># continue</span> -<span id="L2854" class="LineNr">2854 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 -<span id="L2855" class="LineNr">2855 </span><span class="Constant">$emit-sib:break</span>: -<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># if (!has-sib?) return</span> -<span id="L2857" class="LineNr">2857 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> -<span id="L2858" class="LineNr">2858 </span> 74/jump-if-= $emit-sib:end/disp8 -<span id="L2859" class="LineNr">2859 </span><span class="Constant">$emit-sib:calculate</span>: -<span id="L2860" class="LineNr">2860 </span> <span class="subxComment"># var sib/ebx: byte = scale & 0b11</span> -<span id="L2861" class="LineNr">2861 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> -<span id="L2862" class="LineNr">2862 </span> <span class="subxComment"># sib <<= 2</span> -<span id="L2863" class="LineNr">2863 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2864" class="LineNr">2864 </span> <span class="subxComment"># sib |= index & 0b111</span> -<span id="L2865" class="LineNr">2865 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> -<span id="L2866" class="LineNr">2866 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> -<span id="L2867" class="LineNr">2867 </span> <span class="subxComment"># sib <<= 3</span> -<span id="L2868" class="LineNr">2868 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> -<span id="L2869" class="LineNr">2869 </span> <span class="subxComment"># sib |= base & 0b111</span> -<span id="L2870" class="LineNr">2870 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> -<span id="L2871" class="LineNr">2871 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> -<span id="L2872" class="LineNr">2872 </span><span class="Constant">$emit-sib:<a href='../130emit.subx.html#L10'>emit</a></span>: -<span id="L2873" class="LineNr">2873 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> -<span id="L2874" class="LineNr">2874 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2875" class="LineNr">2875 </span> 68/push 1/imm32 -<span id="L2876" class="LineNr">2876 </span> 53/push-ebx -<span id="L2877" class="LineNr">2877 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2878" class="LineNr">2878 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2879" class="LineNr">2879 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L2880" class="LineNr">2880 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2881" class="LineNr">2881 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2882" class="LineNr">2882 </span><span class="Constant">$emit-sib:end</span>: -<span id="L2883" class="LineNr">2883 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L2884" class="LineNr">2884 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2885" class="LineNr">2885 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2886" class="LineNr">2886 </span> 5f/pop-to-edi -<span id="L2887" class="LineNr">2887 </span> 5e/pop-to-esi -<span id="L2888" class="LineNr">2888 </span> 5b/pop-to-ebx -<span id="L2889" class="LineNr">2889 </span> 5a/pop-to-edx -<span id="L2890" class="LineNr">2890 </span> 59/pop-to-ecx -<span id="L2891" class="LineNr">2891 </span> 58/pop-to-eax -<span id="L2892" class="LineNr">2892 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2893" class="LineNr">2893 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2894" class="LineNr">2894 </span> 5d/pop-to-ebp -<span id="L2895" class="LineNr">2895 </span> c3/return -<span id="L2896" class="LineNr">2896 </span> -<span id="L2897" class="LineNr">2897 </span><span class="subxFunction">emit-disp</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L2898" class="LineNr">2898 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2899" class="LineNr">2899 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2900" class="LineNr">2900 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L2901" class="LineNr">2901 </span> <span class="subxComment"># while true</span> -<span id="L2902" class="LineNr">2902 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L2903" class="LineNr">2903 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2904" class="LineNr">2904 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2905" class="LineNr">2905 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp32")</span> -<span id="L2906" class="LineNr">2906 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L2907" class="LineNr">2907 </span> <span class="subxComment"># break</span> -<span id="L2908" class="LineNr">2908 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp16")</span> -<span id="L2909" class="LineNr">2909 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L2910" class="LineNr">2910 </span> <span class="subxComment"># break</span> -<span id="L2911" class="LineNr">2911 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp8")</span> -<span id="L2912" class="LineNr">2912 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L2913" class="LineNr">2913 </span> <span class="subxComment"># break</span> -<span id="L2914" class="LineNr">2914 </span> <span class="subxComment">#</span> -<span id="L2915" class="LineNr">2915 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2916" class="LineNr">2916 </span> 55/push-ebp -<span id="L2917" class="LineNr">2917 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2918" class="LineNr">2918 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2919" class="LineNr">2919 </span> 50/push-eax -<span id="L2920" class="LineNr">2920 </span> 51/push-ecx -<span id="L2921" class="LineNr">2921 </span> 52/push-edx -<span id="L2922" class="LineNr">2922 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L2923" class="LineNr">2923 </span> 68/push 0/imm32/end -<span id="L2924" class="LineNr">2924 </span> 68/push 0/imm32/start -<span id="L2925" class="LineNr">2925 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2926" class="LineNr">2926 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L2927" class="LineNr">2927 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2928" class="LineNr">2928 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2929" class="LineNr">2929 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2930" class="LineNr">2930 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2932" class="LineNr">2932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2933" class="Folded">2933 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2959" class="LineNr">2959 </span><span class="Constant">$emit-disp:loop</span>: -<span id="L2960" class="LineNr">2960 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2962" class="LineNr">2962 </span> 51/push-ecx -<span id="L2963" class="LineNr">2963 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L2964" class="LineNr">2964 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2965" class="LineNr">2965 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L2966" class="LineNr">2966 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2967" class="LineNr">2967 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2968" class="Folded">2968 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3008" class="LineNr">3008 </span><span class="Constant">$emit-disp:check0</span>: -<span id="L3009" class="LineNr">3009 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L3010" class="LineNr">3010 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L3011" class="LineNr">3011 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3012" class="LineNr">3012 </span> 51/push-ecx -<span id="L3013" class="LineNr">3013 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3014" class="LineNr">3014 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L3015" class="LineNr">3015 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3016" class="LineNr">3016 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3017" class="LineNr">3017 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L3018" class="LineNr">3018 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3019" class="LineNr">3019 </span> 0f 85/jump-if-!= $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L3020" class="LineNr">3020 </span><span class="Constant">$emit-disp:check1</span>: -<span id="L3021" class="LineNr">3021 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L3022" class="LineNr">3022 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> -<span id="L3023" class="LineNr">3023 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L3024" class="LineNr">3024 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L3025" class="LineNr">3025 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L3026" class="LineNr">3026 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L3027" class="LineNr">3027 </span> <span class="subxS1Comment"># . if (c == '#') break</span> -<span id="L3028" class="LineNr">3028 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L3029" class="LineNr">3029 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L3030" class="LineNr">3030 </span><span class="Constant">$emit-disp:check-for-disp32</span>: -<span id="L3031" class="LineNr">3031 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp32"))</span> -<span id="L3032" class="LineNr">3032 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp32")</span> -<span id="L3033" class="LineNr">3033 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3034" class="LineNr">3034 </span> 68/push <span class="Constant">"disp32"</span>/imm32 -<span id="L3035" class="LineNr">3035 </span> 51/push-ecx -<span id="L3036" class="LineNr">3036 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3037" class="LineNr">3037 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3038" class="LineNr">3038 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3039" class="LineNr">3039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3040" class="LineNr">3040 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3041" class="LineNr">3041 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3042" class="LineNr">3042 </span> 74/jump-if-= $emit-disp:check-for-disp16/disp8 -<span id="L3043" class="LineNr">3043 </span><span class="Constant">$emit-disp:disp32</span>: -<span id="L3044" class="LineNr">3044 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L3045" class="LineNr">3045 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3046" class="LineNr">3046 </span> 68/push 4/imm32 -<span id="L3047" class="LineNr">3047 </span> 51/push-ecx -<span id="L3048" class="LineNr">3048 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3049" class="LineNr">3049 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3050" class="LineNr">3050 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3051" class="LineNr">3051 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3052" class="LineNr">3052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3053" class="LineNr">3053 </span> <span class="subxComment"># break</span> -<span id="L3054" class="LineNr">3054 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L3055" class="LineNr">3055 </span><span class="Constant">$emit-disp:check-for-disp16</span>: -<span id="L3056" class="LineNr">3056 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "disp16"))</span> -<span id="L3057" class="LineNr">3057 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp16")</span> -<span id="L3058" class="LineNr">3058 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3059" class="LineNr">3059 </span> 68/push <span class="Constant">"disp16"</span>/imm32 -<span id="L3060" class="LineNr">3060 </span> 51/push-ecx -<span id="L3061" class="LineNr">3061 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3062" class="LineNr">3062 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3063" class="LineNr">3063 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3064" class="LineNr">3064 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3065" class="LineNr">3065 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3066" class="LineNr">3066 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3067" class="LineNr">3067 </span> 74/jump-if-= $emit-disp:check-for-disp8/disp8 -<span id="L3068" class="LineNr">3068 </span><span class="Constant">$emit-disp:disp16</span>: -<span id="L3069" class="LineNr">3069 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L3070" class="LineNr">3070 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3071" class="LineNr">3071 </span> 68/push 2/imm32 -<span id="L3072" class="LineNr">3072 </span> 51/push-ecx -<span id="L3073" class="LineNr">3073 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3074" class="LineNr">3074 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3075" class="LineNr">3075 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3076" class="LineNr">3076 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3077" class="LineNr">3077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3078" class="LineNr">3078 </span> <span class="subxComment"># break</span> -<span id="L3079" class="LineNr">3079 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 -<span id="L3080" class="LineNr">3080 </span><span class="Constant">$emit-disp:check-for-disp8</span>: -<span id="L3081" class="LineNr">3081 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp8"))</span> -<span id="L3082" class="LineNr">3082 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp8")</span> -<span id="L3083" class="LineNr">3083 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3084" class="LineNr">3084 </span> 68/push <span class="Constant">"disp8"</span>/imm32 -<span id="L3085" class="LineNr">3085 </span> 51/push-ecx -<span id="L3086" class="LineNr">3086 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3087" class="LineNr">3087 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3088" class="LineNr">3088 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3089" class="LineNr">3089 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3090" class="LineNr">3090 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> -<span id="L3091" class="LineNr">3091 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3092" class="LineNr">3092 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">loop</span>/disp32 -<span id="L3093" class="LineNr">3093 </span><span class="Constant">$emit-disp:disp8</span>: -<span id="L3094" class="LineNr">3094 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L3095" class="LineNr">3095 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3096" class="LineNr">3096 </span> 68/push 1/imm32 -<span id="L3097" class="LineNr">3097 </span> 51/push-ecx -<span id="L3098" class="LineNr">3098 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3099" class="LineNr">3099 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3100" class="LineNr">3100 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3101" class="LineNr">3101 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3102" class="LineNr">3102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3103" class="LineNr">3103 </span> <span class="subxComment"># break</span> -<span id="L3104" class="LineNr">3104 </span><span class="Constant">$emit-disp:break</span>: -<span id="L3105" class="LineNr">3105 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L3106" class="LineNr">3106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3107" class="LineNr">3107 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3108" class="LineNr">3108 </span> 5a/pop-to-edx -<span id="L3109" class="LineNr">3109 </span> 59/pop-to-ecx -<span id="L3110" class="LineNr">3110 </span> 58/pop-to-eax -<span id="L3111" class="LineNr">3111 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3112" class="LineNr">3112 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3113" class="LineNr">3113 </span> 5d/pop-to-ebp -<span id="L3114" class="LineNr">3114 </span> c3/return -<span id="L3115" class="LineNr">3115 </span> -<span id="L3116" class="LineNr">3116 </span><span class="subxFunction">emit-imm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L3117" class="LineNr">3117 </span> <span class="subxComment"># pseudocode:</span> -<span id="L3118" class="LineNr">3118 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L3119" class="LineNr">3119 </span> <span class="subxComment"># var word-slice: slice</span> -<span id="L3120" class="LineNr">3120 </span> <span class="subxComment"># while true</span> -<span id="L3121" class="LineNr">3121 </span> <span class="subxComment"># word-slice = next-word(line)</span> -<span id="L3122" class="LineNr">3122 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L3123" class="LineNr">3123 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L3124" class="LineNr">3124 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm32")</span> -<span id="L3125" class="LineNr">3125 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L3126" class="LineNr">3126 </span> <span class="subxComment"># break</span> -<span id="L3127" class="LineNr">3127 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm16")</span> -<span id="L3128" class="LineNr">3128 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L3129" class="LineNr">3129 </span> <span class="subxComment"># break</span> -<span id="L3130" class="LineNr">3130 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> -<span id="L3131" class="LineNr">3131 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L3132" class="LineNr">3132 </span> <span class="subxComment"># break</span> -<span id="L3133" class="LineNr">3133 </span> <span class="subxComment">#</span> -<span id="L3134" class="LineNr">3134 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3135" class="LineNr">3135 </span> 55/push-ebp -<span id="L3136" class="LineNr">3136 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3137" class="LineNr">3137 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3138" class="LineNr">3138 </span> 50/push-eax -<span id="L3139" class="LineNr">3139 </span> 51/push-ecx -<span id="L3140" class="LineNr">3140 </span> 52/push-edx -<span id="L3141" class="LineNr">3141 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L3142" class="LineNr">3142 </span> 68/push 0/imm32/end -<span id="L3143" class="LineNr">3143 </span> 68/push 0/imm32/start -<span id="L3144" class="LineNr">3144 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L3145" class="LineNr">3145 </span> <span class="subxComment"># rewind-stream(line)</span> -<span id="L3146" class="LineNr">3146 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3147" class="LineNr">3147 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3148" class="LineNr">3148 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3149" class="LineNr">3149 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L3150" class="LineNr">3150 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3151" class="LineNr">3151 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3152" class="Folded">3152 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3178" class="LineNr">3178 </span><span class="Constant">$emit-imm:loop</span>: -<span id="L3179" class="LineNr">3179 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L3180" class="LineNr">3180 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3181" class="LineNr">3181 </span> 51/push-ecx -<span id="L3182" class="LineNr">3182 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3183" class="LineNr">3183 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3184" class="LineNr">3184 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L3185" class="LineNr">3185 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3186" class="LineNr">3186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3187" class="Folded">3187 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3227" class="LineNr">3227 </span><span class="Constant">$emit-imm:check0</span>: -<span id="L3228" class="LineNr">3228 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L3229" class="LineNr">3229 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L3230" class="LineNr">3230 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3231" class="LineNr">3231 </span> 51/push-ecx -<span id="L3232" class="LineNr">3232 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3233" class="LineNr">3233 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L3234" class="LineNr">3234 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3235" class="LineNr">3235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3236" class="LineNr">3236 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> -<span id="L3237" class="LineNr">3237 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3238" class="LineNr">3238 </span> 0f 85/jump-if-!= $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3239" class="LineNr">3239 </span><span class="Constant">$emit-imm:check1</span>: -<span id="L3240" class="LineNr">3240 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L3241" class="LineNr">3241 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = slice->start</span> -<span id="L3242" class="LineNr">3242 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L3243" class="LineNr">3243 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> -<span id="L3244" class="LineNr">3244 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L3245" class="LineNr">3245 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> -<span id="L3246" class="LineNr">3246 </span> <span class="subxS1Comment"># . if (c == '#') break</span> -<span id="L3247" class="LineNr">3247 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L3248" class="LineNr">3248 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3249" class="LineNr">3249 </span><span class="Constant">$emit-imm:check-for-imm32</span>: -<span id="L3250" class="LineNr">3250 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm32"))</span> -<span id="L3251" class="LineNr">3251 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm32")</span> -<span id="L3252" class="LineNr">3252 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3253" class="LineNr">3253 </span> 68/push <span class="Constant">"imm32"</span>/imm32 -<span id="L3254" class="LineNr">3254 </span> 51/push-ecx -<span id="L3255" class="LineNr">3255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3256" class="LineNr">3256 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3257" class="LineNr">3257 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3258" class="LineNr">3258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3259" class="LineNr">3259 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3260" class="LineNr">3260 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3261" class="LineNr">3261 </span> 74/jump-if-= $emit-imm:check-for-imm16/disp8 -<span id="L3262" class="LineNr">3262 </span><span class="Constant">$emit-imm:imm32</span>: -<span id="L3263" class="LineNr">3263 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> -<span id="L3264" class="LineNr">3264 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3265" class="LineNr">3265 </span> 68/push 4/imm32 -<span id="L3266" class="LineNr">3266 </span> 51/push-ecx -<span id="L3267" class="LineNr">3267 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3268" class="LineNr">3268 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3269" class="LineNr">3269 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3270" class="LineNr">3270 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3271" class="LineNr">3271 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3272" class="LineNr">3272 </span> <span class="subxComment"># break</span> -<span id="L3273" class="LineNr">3273 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3274" class="LineNr">3274 </span><span class="Constant">$emit-imm:check-for-imm16</span>: -<span id="L3275" class="LineNr">3275 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm16"))</span> -<span id="L3276" class="LineNr">3276 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm16")</span> -<span id="L3277" class="LineNr">3277 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3278" class="LineNr">3278 </span> 68/push <span class="Constant">"imm16"</span>/imm32 -<span id="L3279" class="LineNr">3279 </span> 51/push-ecx -<span id="L3280" class="LineNr">3280 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3281" class="LineNr">3281 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3282" class="LineNr">3282 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3283" class="LineNr">3283 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3284" class="LineNr">3284 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3285" class="LineNr">3285 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3286" class="LineNr">3286 </span> 74/jump-if-= $emit-imm:check-for-imm8/disp8 -<span id="L3287" class="LineNr">3287 </span><span class="Constant">$emit-imm:imm16</span>: -<span id="L3288" class="LineNr">3288 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> -<span id="L3289" class="LineNr">3289 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3290" class="LineNr">3290 </span> 68/push 2/imm32 -<span id="L3291" class="LineNr">3291 </span> 51/push-ecx -<span id="L3292" class="LineNr">3292 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3293" class="LineNr">3293 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3294" class="LineNr">3294 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3296" class="LineNr">3296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3297" class="LineNr">3297 </span> <span class="subxComment"># break</span> -<span id="L3298" class="LineNr">3298 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 -<span id="L3299" class="LineNr">3299 </span><span class="Constant">$emit-imm:check-for-imm8</span>: -<span id="L3300" class="LineNr">3300 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm8"))</span> -<span id="L3301" class="LineNr">3301 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm8")</span> -<span id="L3302" class="LineNr">3302 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3303" class="LineNr">3303 </span> 68/push <span class="Constant">"imm8"</span>/imm32 -<span id="L3304" class="LineNr">3304 </span> 51/push-ecx -<span id="L3305" class="LineNr">3305 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3306" class="LineNr">3306 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L3307" class="LineNr">3307 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3308" class="LineNr">3308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3309" class="LineNr">3309 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> -<span id="L3310" class="LineNr">3310 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3311" class="LineNr">3311 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">loop</span>/disp32 -<span id="L3312" class="LineNr">3312 </span><span class="Constant">$emit-imm:imm8</span>: -<span id="L3313" class="LineNr">3313 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> -<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3315" class="LineNr">3315 </span> 68/push 1/imm32 -<span id="L3316" class="LineNr">3316 </span> 51/push-ecx -<span id="L3317" class="LineNr">3317 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3318" class="LineNr">3318 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3319" class="LineNr">3319 </span> e8/call <a href='../130emit.subx.html#L10'>emit</a>/disp32 -<span id="L3320" class="LineNr">3320 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3321" class="LineNr">3321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3322" class="LineNr">3322 </span> <span class="subxComment"># break</span> -<span id="L3323" class="LineNr">3323 </span><span class="Constant">$emit-imm:break</span>: -<span id="L3324" class="LineNr">3324 </span> <span class="subxS1Comment"># . restore locals</span> -<span id="L3325" class="LineNr">3325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3326" class="LineNr">3326 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3327" class="LineNr">3327 </span> 5a/pop-to-edx -<span id="L3328" class="LineNr">3328 </span> 59/pop-to-ecx -<span id="L3329" class="LineNr">3329 </span> 58/pop-to-eax -<span id="L3330" class="LineNr">3330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3331" class="LineNr">3331 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3332" class="LineNr">3332 </span> 5d/pop-to-ebp -<span id="L3333" class="LineNr">3333 </span> c3/return -<span id="L3334" class="LineNr">3334 </span> -<span id="L3335" class="LineNr">3335 </span><span class="subxFunction">emit-line-in-comment</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> -<span id="L3336" class="LineNr">3336 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3337" class="LineNr">3337 </span> 55/push-ebp -<span id="L3338" class="LineNr">3338 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3339" class="LineNr">3339 </span> <span class="subxComment"># write-buffered(out, " # ")</span> -<span id="L3340" class="LineNr">3340 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3341" class="LineNr">3341 </span> 68/push <span class="Constant">" # "</span>/imm32 -<span id="L3342" class="LineNr">3342 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3343" class="LineNr">3343 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3344" class="LineNr">3344 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3345" class="LineNr">3345 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3346" class="LineNr">3346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3347" class="LineNr">3347 </span> <span class="subxComment"># write-stream-data(out, line)</span> -<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3349" class="LineNr">3349 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3350" class="LineNr">3350 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3351" class="LineNr">3351 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3352" class="LineNr">3352 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L3353" class="LineNr">3353 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3354" class="LineNr">3354 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3355" class="LineNr">3355 </span><span class="Constant">$emit-line-in-comment:end</span>: -<span id="L3356" class="LineNr">3356 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3357" class="LineNr">3357 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3358" class="LineNr">3358 </span> 5d/pop-to-ebp -<span id="L3359" class="LineNr">3359 </span> c3/return -<span id="L3360" class="LineNr">3360 </span> -<span id="L3361" class="LineNr">3361 </span><span class="subxTest">test-convert-instruction-passes-comments-through</span>: -<span id="L3362" class="LineNr">3362 </span> <span class="subxComment"># if a line starts with '#', pass it along unchanged</span> -<span id="L3363" class="LineNr">3363 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3364" class="LineNr">3364 </span> 55/push-ebp -<span id="L3365" class="LineNr">3365 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3366" class="LineNr">3366 </span> <span class="subxComment"># setup</span> -<span id="L3367" class="LineNr">3367 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3368" class="LineNr">3368 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3369" class="LineNr">3369 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3370" class="LineNr">3370 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3371" class="LineNr">3371 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3372" class="LineNr">3372 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3373" class="LineNr">3373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3374" class="LineNr">3374 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3375" class="LineNr">3375 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3376" class="LineNr">3376 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3377" class="LineNr">3377 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3378" class="LineNr">3378 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3379" class="LineNr">3379 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3380" class="LineNr">3380 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3381" class="LineNr">3381 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3382" class="LineNr">3382 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3383" class="LineNr">3383 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3384" class="LineNr">3384 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3385" class="LineNr">3385 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3386" class="LineNr">3386 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3387" class="LineNr">3387 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3388" class="LineNr">3388 </span> <span class="subxComment"># initialize input</span> -<span id="L3389" class="LineNr">3389 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> -<span id="L3390" class="LineNr">3390 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3391" class="LineNr">3391 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L3392" class="LineNr">3392 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3393" class="LineNr">3393 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3394" class="LineNr">3394 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3395" class="LineNr">3395 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3396" class="LineNr">3396 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3397" class="LineNr">3397 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3398" class="LineNr">3398 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3399" class="LineNr">3399 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3400" class="LineNr">3400 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3401" class="LineNr">3401 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3402" class="LineNr">3402 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3403" class="LineNr">3403 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3404" class="LineNr">3404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3405" class="LineNr">3405 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L3406" class="LineNr">3406 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3407" class="LineNr">3407 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3408" class="LineNr">3408 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3409" class="LineNr">3409 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3410" class="LineNr">3410 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3411" class="LineNr">3411 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3412" class="LineNr">3412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3413" class="LineNr">3413 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> -<span id="L3414" class="LineNr">3414 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3415" class="LineNr">3415 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-comments-through"</span>/imm32 -<span id="L3416" class="LineNr">3416 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L3417" class="LineNr">3417 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3418" class="LineNr">3418 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3419" class="LineNr">3419 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3420" class="LineNr">3420 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3421" class="LineNr">3421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3422" class="LineNr">3422 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3423" class="LineNr">3423 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3424" class="LineNr">3424 </span> 5d/pop-to-ebp -<span id="L3425" class="LineNr">3425 </span> c3/return -<span id="L3426" class="LineNr">3426 </span> -<span id="L3427" class="LineNr">3427 </span><span class="subxTest">test-convert-instruction-passes-labels-through</span>: -<span id="L3428" class="LineNr">3428 </span> <span class="subxComment"># if the first word ends with ':', pass along the entire line unchanged</span> -<span id="L3429" class="LineNr">3429 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3430" class="LineNr">3430 </span> 55/push-ebp -<span id="L3431" class="LineNr">3431 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3432" class="LineNr">3432 </span> <span class="subxComment"># setup</span> -<span id="L3433" class="LineNr">3433 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3434" class="LineNr">3434 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3435" class="LineNr">3435 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3436" class="LineNr">3436 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3437" class="LineNr">3437 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3438" class="LineNr">3438 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3439" class="LineNr">3439 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3440" class="LineNr">3440 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3441" class="LineNr">3441 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3442" class="LineNr">3442 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3443" class="LineNr">3443 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3444" class="LineNr">3444 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3445" class="LineNr">3445 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3446" class="LineNr">3446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3447" class="LineNr">3447 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3448" class="LineNr">3448 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3449" class="LineNr">3449 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3450" class="LineNr">3450 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3451" class="LineNr">3451 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3452" class="LineNr">3452 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3453" class="LineNr">3453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3454" class="LineNr">3454 </span> <span class="subxComment"># initialize input</span> -<span id="L3455" class="LineNr">3455 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> -<span id="L3456" class="LineNr">3456 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3457" class="LineNr">3457 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L3458" class="LineNr">3458 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3459" class="LineNr">3459 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3460" class="LineNr">3460 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3461" class="LineNr">3461 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3462" class="LineNr">3462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3463" class="LineNr">3463 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3464" class="LineNr">3464 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3465" class="LineNr">3465 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3466" class="LineNr">3466 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3467" class="LineNr">3467 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3468" class="LineNr">3468 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3469" class="LineNr">3469 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3470" class="LineNr">3470 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3471" class="LineNr">3471 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L3472" class="LineNr">3472 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3473" class="LineNr">3473 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3474" class="LineNr">3474 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3475" class="LineNr">3475 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3476" class="LineNr">3476 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3477" class="LineNr">3477 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3478" class="LineNr">3478 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3479" class="LineNr">3479 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab: # cd", msg)</span> -<span id="L3480" class="LineNr">3480 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3481" class="LineNr">3481 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-labels-through"</span>/imm32 -<span id="L3482" class="LineNr">3482 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L3483" class="LineNr">3483 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L2669" class="LineNr">2669 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2670" class="LineNr">2670 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L2671" class="LineNr">2671 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2672" class="LineNr">2672 </span> 0f 84/jump-if-= $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2673" class="LineNr">2673 </span><span class="Constant">$emit-modrm:subop</span>: +<span id="L2674" class="LineNr">2674 </span> <span class="subxComment"># r32 = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2675" class="LineNr">2675 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2676" class="LineNr">2676 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2677" class="LineNr">2677 </span> 51/push-ecx +<span id="L2678" class="LineNr">2678 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2679" class="LineNr">2679 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2680" class="LineNr">2680 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2681" class="LineNr">2681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2682" class="LineNr">2682 </span> <span class="subxS1Comment"># . r32 = eax</span> +<span id="L2683" class="LineNr">2683 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L2684" class="LineNr">2684 </span> <span class="subxComment"># has-modrm? = true</span> +<span id="L2685" class="LineNr">2685 </span> ba/copy-to-edx 1/imm32/true +<span id="L2686" class="LineNr">2686 </span> <span class="subxComment"># continue</span> +<span id="L2687" class="LineNr">2687 </span> e9/jump $emit-modrm:<span class="Constant">loop</span>/disp32 +<span id="L2688" class="LineNr">2688 </span><span class="Constant">$emit-modrm:break</span>: +<span id="L2689" class="LineNr">2689 </span> <span class="subxComment"># if (!has-modrm?) return</span> +<span id="L2690" class="LineNr">2690 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> +<span id="L2691" class="LineNr">2691 </span> 74/jump-if-= $emit-modrm:end/disp8 +<span id="L2692" class="LineNr">2692 </span><span class="Constant">$emit-modrm:calculate</span>: +<span id="L2693" class="LineNr">2693 </span> <span class="subxComment"># var modrm/ebx: byte = mod & 0b11</span> +<span id="L2694" class="LineNr">2694 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> +<span id="L2695" class="LineNr">2695 </span> <span class="subxComment"># modrm <<= 3</span> +<span id="L2696" class="LineNr">2696 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2697" class="LineNr">2697 </span> <span class="subxComment"># modrm |= r32 & 0b111</span> +<span id="L2698" class="LineNr">2698 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> +<span id="L2699" class="LineNr">2699 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> +<span id="L2700" class="LineNr">2700 </span> <span class="subxComment"># modrm <<= 3</span> +<span id="L2701" class="LineNr">2701 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2702" class="LineNr">2702 </span> <span class="subxComment"># modrm |= rm32 & 0b111</span> +<span id="L2703" class="LineNr">2703 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> +<span id="L2704" class="LineNr">2704 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> +<span id="L2705" class="LineNr">2705 </span><span class="Constant">$emit-modrm:<a href='130emit.subx.html#L10'>emit</a></span>: +<span id="L2706" class="LineNr">2706 </span> <span class="subxComment"># emit-hex(out, modrm, 1)</span> +<span id="L2707" class="LineNr">2707 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2708" class="LineNr">2708 </span> 68/push 1/imm32 +<span id="L2709" class="LineNr">2709 </span> 53/push-ebx +<span id="L2710" class="LineNr">2710 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2711" class="LineNr">2711 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2712" class="LineNr">2712 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L2713" class="LineNr">2713 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2714" class="LineNr">2714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2715" class="LineNr">2715 </span><span class="Constant">$emit-modrm:end</span>: +<span id="L2716" class="LineNr">2716 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L2717" class="LineNr">2717 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2718" class="LineNr">2718 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2719" class="LineNr">2719 </span> 5f/pop-to-edi +<span id="L2720" class="LineNr">2720 </span> 5e/pop-to-esi +<span id="L2721" class="LineNr">2721 </span> 5b/pop-to-ebx +<span id="L2722" class="LineNr">2722 </span> 5a/pop-to-edx +<span id="L2723" class="LineNr">2723 </span> 59/pop-to-ecx +<span id="L2724" class="LineNr">2724 </span> 58/pop-to-eax +<span id="L2725" class="LineNr">2725 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2726" class="LineNr">2726 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2727" class="LineNr">2727 </span> 5d/pop-to-ebp +<span id="L2728" class="LineNr">2728 </span> c3/return +<span id="L2729" class="LineNr">2729 </span> +<span id="L2730" class="LineNr">2730 </span><span class="subxFunction">emit-sib</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L2731" class="LineNr">2731 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2732" class="LineNr">2732 </span> <span class="subxComment"># var has-sib? = false, base = 0, index = 0, scale = 0</span> +<span id="L2733" class="LineNr">2733 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L2734" class="LineNr">2734 </span> <span class="subxComment"># while true</span> +<span id="L2735" class="LineNr">2735 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L2736" class="LineNr">2736 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2737" class="LineNr">2737 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2738" class="LineNr">2738 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base")</span> +<span id="L2739" class="LineNr">2739 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2740" class="LineNr">2740 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2741" class="LineNr">2741 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "index")</span> +<span id="L2742" class="LineNr">2742 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2743" class="LineNr">2743 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2744" class="LineNr">2744 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "scale")</span> +<span id="L2745" class="LineNr">2745 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice, "/"))</span> +<span id="L2746" class="LineNr">2746 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2747" class="LineNr">2747 </span> <span class="subxComment"># if has-sib?</span> +<span id="L2748" class="LineNr">2748 </span> <span class="subxComment"># var sib = scale & 0b11</span> +<span id="L2749" class="LineNr">2749 </span> <span class="subxComment"># sib <<= 3</span> +<span id="L2750" class="LineNr">2750 </span> <span class="subxComment"># sib |= index & 0b111</span> +<span id="L2751" class="LineNr">2751 </span> <span class="subxComment"># sib <<= 3</span> +<span id="L2752" class="LineNr">2752 </span> <span class="subxComment"># sib |= base & 0b111</span> +<span id="L2753" class="LineNr">2753 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> +<span id="L2754" class="LineNr">2754 </span> <span class="subxComment">#</span> +<span id="L2755" class="LineNr">2755 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2756" class="LineNr">2756 </span> 55/push-ebp +<span id="L2757" class="LineNr">2757 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2758" class="LineNr">2758 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2759" class="LineNr">2759 </span> 50/push-eax +<span id="L2760" class="LineNr">2760 </span> 51/push-ecx +<span id="L2761" class="LineNr">2761 </span> 52/push-edx +<span id="L2762" class="LineNr">2762 </span> 53/push-ebx +<span id="L2763" class="LineNr">2763 </span> 56/push-esi +<span id="L2764" class="LineNr">2764 </span> 57/push-edi +<span id="L2765" class="LineNr">2765 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L2766" class="LineNr">2766 </span> 68/push 0/imm32/end +<span id="L2767" class="LineNr">2767 </span> 68/push 0/imm32/start +<span id="L2768" class="LineNr">2768 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2769" class="LineNr">2769 </span> <span class="subxComment"># var has-sib?/edx: boolean = false</span> +<span id="L2770" class="LineNr">2770 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> +<span id="L2771" class="LineNr">2771 </span> <span class="subxComment"># var scale/ebx: byte = 0</span> +<span id="L2772" class="LineNr">2772 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L2773" class="LineNr">2773 </span> <span class="subxComment"># var base/esi: byte = 0</span> +<span id="L2774" class="LineNr">2774 </span> 31/xor 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear esi</span> +<span id="L2775" class="LineNr">2775 </span> <span class="subxComment"># var index/edi: byte = 0</span> +<span id="L2776" class="LineNr">2776 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> +<span id="L2777" class="LineNr">2777 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L2778" class="LineNr">2778 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2779" class="LineNr">2779 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2780" class="LineNr">2780 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2781" class="LineNr">2781 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2782" class="LineNr">2782 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2783" class="LineNr">2783 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2784" class="LineNr">2784 </span><span class="Constant">$emit-sib:loop</span>: +<span id="L2785" class="Folded">2785 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2811" class="LineNr">2811 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2812" class="LineNr">2812 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2813" class="LineNr">2813 </span> 51/push-ecx +<span id="L2814" class="LineNr">2814 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2815" class="LineNr">2815 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2816" class="LineNr">2816 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2817" class="LineNr">2817 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2818" class="LineNr">2818 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2819" class="Folded">2819 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2859" class="LineNr">2859 </span><span class="Constant">$emit-sib:check0</span>: +<span id="L2860" class="LineNr">2860 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2861" class="LineNr">2861 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2862" class="LineNr">2862 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2863" class="LineNr">2863 </span> 51/push-ecx +<span id="L2864" class="LineNr">2864 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2865" class="LineNr">2865 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2866" class="LineNr">2866 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2867" class="LineNr">2867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2868" class="LineNr">2868 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L2869" class="LineNr">2869 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2870" class="LineNr">2870 </span> 0f 85/jump-if-!= $emit-sib:<span class="Constant">break</span>/disp32 +<span id="L2871" class="LineNr">2871 </span><span class="Constant">$emit-sib:check1</span>: +<span id="L2872" class="LineNr">2872 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2873" class="LineNr">2873 </span> <span class="subxS1Comment"># . spill edx</span> +<span id="L2874" class="LineNr">2874 </span> 52/push-edx +<span id="L2875" class="LineNr">2875 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> +<span id="L2876" class="LineNr">2876 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L2877" class="LineNr">2877 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L2878" class="LineNr">2878 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2879" class="LineNr">2879 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L2880" class="LineNr">2880 </span> <span class="subxS1Comment"># . restore edx</span> +<span id="L2881" class="LineNr">2881 </span> 5a/pop-to-edx +<span id="L2882" class="LineNr">2882 </span> <span class="subxS1Comment"># . if (c == '#') pass through</span> +<span id="L2883" class="LineNr">2883 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L2884" class="LineNr">2884 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">break</span>/disp32 +<span id="L2885" class="LineNr">2885 </span><span class="Constant">$emit-sib:check-for-scale</span>: +<span id="L2886" class="LineNr">2886 </span> <span class="subxComment"># if (has-metadata?(word-slice, "scale"))</span> +<span id="L2887" class="LineNr">2887 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "scale")</span> +<span id="L2888" class="LineNr">2888 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2889" class="LineNr">2889 </span> 68/push <span class="Constant">"scale"</span>/imm32 +<span id="L2890" class="LineNr">2890 </span> 51/push-ecx +<span id="L2891" class="LineNr">2891 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2892" class="LineNr">2892 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2893" class="LineNr">2893 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2894" class="LineNr">2894 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2895" class="LineNr">2895 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2896" class="LineNr">2896 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2897" class="LineNr">2897 </span> 74/jump-if-= $emit-sib:check-for-base/disp8 +<span id="L2898" class="LineNr">2898 </span><span class="Constant">$emit-sib:scale</span>: +<span id="L2899" class="LineNr">2899 </span> <span class="subxComment"># scale = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2900" class="LineNr">2900 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2901" class="LineNr">2901 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2902" class="LineNr">2902 </span> 51/push-ecx +<span id="L2903" class="LineNr">2903 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2904" class="LineNr">2904 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2905" class="LineNr">2905 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2906" class="LineNr">2906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2907" class="LineNr">2907 </span> <span class="subxS1Comment"># . scale = eax</span> +<span id="L2908" class="LineNr">2908 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> +<span id="L2909" class="LineNr">2909 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2910" class="LineNr">2910 </span> ba/copy-to-edx 1/imm32/true +<span id="L2911" class="LineNr">2911 </span> <span class="subxComment"># continue</span> +<span id="L2912" class="LineNr">2912 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 +<span id="L2913" class="LineNr">2913 </span><span class="Constant">$emit-sib:check-for-base</span>: +<span id="L2914" class="LineNr">2914 </span> <span class="subxComment"># if (has-metadata?(word-slice, "base"))</span> +<span id="L2915" class="LineNr">2915 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "base")</span> +<span id="L2916" class="LineNr">2916 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2917" class="LineNr">2917 </span> 68/push <span class="Constant">"base"</span>/imm32 +<span id="L2918" class="LineNr">2918 </span> 51/push-ecx +<span id="L2919" class="LineNr">2919 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2920" class="LineNr">2920 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2921" class="LineNr">2921 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2922" class="LineNr">2922 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2923" class="LineNr">2923 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2924" class="LineNr">2924 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2925" class="LineNr">2925 </span> 74/jump-if-= $emit-sib:check-for-index/disp8 +<span id="L2926" class="LineNr">2926 </span><span class="Constant">$emit-sib:base</span>: +<span id="L2927" class="LineNr">2927 </span> <span class="subxComment"># base = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2928" class="LineNr">2928 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2929" class="LineNr">2929 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2930" class="LineNr">2930 </span> 51/push-ecx +<span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2932" class="LineNr">2932 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2933" class="LineNr">2933 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2934" class="LineNr">2934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2935" class="LineNr">2935 </span> <span class="subxS1Comment"># . base = eax</span> +<span id="L2936" class="LineNr">2936 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L2937" class="LineNr">2937 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2938" class="LineNr">2938 </span> ba/copy-to-edx 1/imm32/true +<span id="L2939" class="LineNr">2939 </span> <span class="subxComment"># continue</span> +<span id="L2940" class="LineNr">2940 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 +<span id="L2941" class="LineNr">2941 </span><span class="Constant">$emit-sib:check-for-index</span>: +<span id="L2942" class="LineNr">2942 </span> <span class="subxComment"># if (has-metadata?(word-slice, "index"))</span> +<span id="L2943" class="LineNr">2943 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "index")</span> +<span id="L2944" class="LineNr">2944 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2945" class="LineNr">2945 </span> 68/push <span class="Constant">"index"</span>/imm32 +<span id="L2946" class="LineNr">2946 </span> 51/push-ecx +<span id="L2947" class="LineNr">2947 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2948" class="LineNr">2948 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2949" class="LineNr">2949 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2950" class="LineNr">2950 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2951" class="LineNr">2951 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L2952" class="LineNr">2952 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2953" class="LineNr">2953 </span> 0f 84/jump-if-= $emit-sib:<span class="Constant">loop</span>/disp32 +<span id="L2954" class="LineNr">2954 </span><span class="Constant">$emit-sib:index</span>: +<span id="L2955" class="LineNr">2955 </span> <span class="subxComment"># index = parse-hex-int-from-slice(next-token-from-slice(word-slice->start, word-slice->end, '/'))</span> +<span id="L2956" class="LineNr">2956 </span> <span class="subxS1Comment"># . eax = parse-datum-of-word(word-slice)</span> +<span id="L2957" class="LineNr">2957 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2958" class="LineNr">2958 </span> 51/push-ecx +<span id="L2959" class="LineNr">2959 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2960" class="LineNr">2960 </span> e8/call <a href='pack.subx.html#L6093'>parse-datum-of-word</a>/disp32 +<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2962" class="LineNr">2962 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2963" class="LineNr">2963 </span> <span class="subxS1Comment"># . index = eax</span> +<span id="L2964" class="LineNr">2964 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L2965" class="LineNr">2965 </span> <span class="subxComment"># has-sib? = true</span> +<span id="L2966" class="LineNr">2966 </span> ba/copy-to-edx 1/imm32/true +<span id="L2967" class="LineNr">2967 </span> <span class="subxComment"># continue</span> +<span id="L2968" class="LineNr">2968 </span> e9/jump $emit-sib:<span class="Constant">loop</span>/disp32 +<span id="L2969" class="LineNr">2969 </span><span class="Constant">$emit-sib:break</span>: +<span id="L2970" class="LineNr">2970 </span> <span class="subxComment"># if (!has-sib?) return</span> +<span id="L2971" class="LineNr">2971 </span> 81 7/subop/compare 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edx</span> +<span id="L2972" class="LineNr">2972 </span> 74/jump-if-= $emit-sib:end/disp8 +<span id="L2973" class="LineNr">2973 </span><span class="Constant">$emit-sib:calculate</span>: +<span id="L2974" class="LineNr">2974 </span> <span class="subxComment"># var sib/ebx: byte = scale & 0b11</span> +<span id="L2975" class="LineNr">2975 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32/0b11 <span class="subxComment"># bitwise and of ebx</span> +<span id="L2976" class="LineNr">2976 </span> <span class="subxComment"># sib <<= 2</span> +<span id="L2977" class="LineNr">2977 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2978" class="LineNr">2978 </span> <span class="subxComment"># sib |= index & 0b111</span> +<span id="L2979" class="LineNr">2979 </span> 81 4/subop/and 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of edi</span> +<span id="L2980" class="LineNr">2980 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with edi</span> +<span id="L2981" class="LineNr">2981 </span> <span class="subxComment"># sib <<= 3</span> +<span id="L2982" class="LineNr">2982 </span> c1/shift 4/subop/left 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm8 <span class="subxComment"># shift ebx left by 3 bits</span> +<span id="L2983" class="LineNr">2983 </span> <span class="subxComment"># sib |= base & 0b111</span> +<span id="L2984" class="LineNr">2984 </span> 81 4/subop/and 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32/0b111 <span class="subxComment"># bitwise and of esi</span> +<span id="L2985" class="LineNr">2985 </span> 09/or 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># ebx = bitwise OR with esi</span> +<span id="L2986" class="LineNr">2986 </span><span class="Constant">$emit-sib:<a href='130emit.subx.html#L10'>emit</a></span>: +<span id="L2987" class="LineNr">2987 </span> <span class="subxComment"># emit-hex(out, sib, 1)</span> +<span id="L2988" class="LineNr">2988 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2989" class="LineNr">2989 </span> 68/push 1/imm32 +<span id="L2990" class="LineNr">2990 </span> 53/push-ebx +<span id="L2991" class="LineNr">2991 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2992" class="LineNr">2992 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2993" class="LineNr">2993 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L2994" class="LineNr">2994 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2995" class="LineNr">2995 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2996" class="LineNr">2996 </span><span class="Constant">$emit-sib:end</span>: +<span id="L2997" class="LineNr">2997 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L2998" class="LineNr">2998 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2999" class="LineNr">2999 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3000" class="LineNr">3000 </span> 5f/pop-to-edi +<span id="L3001" class="LineNr">3001 </span> 5e/pop-to-esi +<span id="L3002" class="LineNr">3002 </span> 5b/pop-to-ebx +<span id="L3003" class="LineNr">3003 </span> 5a/pop-to-edx +<span id="L3004" class="LineNr">3004 </span> 59/pop-to-ecx +<span id="L3005" class="LineNr">3005 </span> 58/pop-to-eax +<span id="L3006" class="LineNr">3006 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3007" class="LineNr">3007 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3008" class="LineNr">3008 </span> 5d/pop-to-ebp +<span id="L3009" class="LineNr">3009 </span> c3/return +<span id="L3010" class="LineNr">3010 </span> +<span id="L3011" class="LineNr">3011 </span><span class="subxFunction">emit-disp</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L3012" class="LineNr">3012 </span> <span class="subxComment"># pseudocode:</span> +<span id="L3013" class="LineNr">3013 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L3014" class="LineNr">3014 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L3015" class="LineNr">3015 </span> <span class="subxComment"># while true</span> +<span id="L3016" class="LineNr">3016 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L3017" class="LineNr">3017 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L3018" class="LineNr">3018 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L3019" class="LineNr">3019 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp32")</span> +<span id="L3020" class="LineNr">3020 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L3021" class="LineNr">3021 </span> <span class="subxComment"># break</span> +<span id="L3022" class="LineNr">3022 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp16")</span> +<span id="L3023" class="LineNr">3023 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L3024" class="LineNr">3024 </span> <span class="subxComment"># break</span> +<span id="L3025" class="LineNr">3025 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp8")</span> +<span id="L3026" class="LineNr">3026 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L3027" class="LineNr">3027 </span> <span class="subxComment"># break</span> +<span id="L3028" class="LineNr">3028 </span> <span class="subxComment">#</span> +<span id="L3029" class="LineNr">3029 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3030" class="LineNr">3030 </span> 55/push-ebp +<span id="L3031" class="LineNr">3031 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3032" class="LineNr">3032 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3033" class="LineNr">3033 </span> 50/push-eax +<span id="L3034" class="LineNr">3034 </span> 51/push-ecx +<span id="L3035" class="LineNr">3035 </span> 52/push-edx +<span id="L3036" class="LineNr">3036 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L3037" class="LineNr">3037 </span> 68/push 0/imm32/end +<span id="L3038" class="LineNr">3038 </span> 68/push 0/imm32/start +<span id="L3039" class="LineNr">3039 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L3040" class="LineNr">3040 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L3041" class="LineNr">3041 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3042" class="LineNr">3042 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3043" class="LineNr">3043 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3044" class="LineNr">3044 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L3045" class="LineNr">3045 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3046" class="LineNr">3046 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3047" class="Folded">3047 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3073" class="LineNr">3073 </span><span class="Constant">$emit-disp:loop</span>: +<span id="L3074" class="LineNr">3074 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L3075" class="LineNr">3075 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3076" class="LineNr">3076 </span> 51/push-ecx +<span id="L3077" class="LineNr">3077 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3078" class="LineNr">3078 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3079" class="LineNr">3079 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L3080" class="LineNr">3080 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3081" class="LineNr">3081 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3082" class="Folded">3082 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3122" class="LineNr">3122 </span><span class="Constant">$emit-disp:check0</span>: +<span id="L3123" class="LineNr">3123 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L3124" class="LineNr">3124 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L3125" class="LineNr">3125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3126" class="LineNr">3126 </span> 51/push-ecx +<span id="L3127" class="LineNr">3127 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3128" class="LineNr">3128 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L3129" class="LineNr">3129 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3130" class="LineNr">3130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3131" class="LineNr">3131 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L3132" class="LineNr">3132 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3133" class="LineNr">3133 </span> 0f 85/jump-if-!= $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3134" class="LineNr">3134 </span><span class="Constant">$emit-disp:check1</span>: +<span id="L3135" class="LineNr">3135 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L3136" class="LineNr">3136 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = word-slice->start</span> +<span id="L3137" class="LineNr">3137 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L3138" class="LineNr">3138 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L3139" class="LineNr">3139 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L3140" class="LineNr">3140 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L3141" class="LineNr">3141 </span> <span class="subxS1Comment"># . if (c == '#') break</span> +<span id="L3142" class="LineNr">3142 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L3143" class="LineNr">3143 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3144" class="LineNr">3144 </span><span class="Constant">$emit-disp:check-for-disp32</span>: +<span id="L3145" class="LineNr">3145 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp32"))</span> +<span id="L3146" class="LineNr">3146 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp32")</span> +<span id="L3147" class="LineNr">3147 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3148" class="LineNr">3148 </span> 68/push <span class="Constant">"disp32"</span>/imm32 +<span id="L3149" class="LineNr">3149 </span> 51/push-ecx +<span id="L3150" class="LineNr">3150 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3151" class="LineNr">3151 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3152" class="LineNr">3152 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3153" class="LineNr">3153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3154" class="LineNr">3154 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3155" class="LineNr">3155 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3156" class="LineNr">3156 </span> 74/jump-if-= $emit-disp:check-for-disp16/disp8 +<span id="L3157" class="LineNr">3157 </span><span class="Constant">$emit-disp:disp32</span>: +<span id="L3158" class="LineNr">3158 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L3159" class="LineNr">3159 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3160" class="LineNr">3160 </span> 68/push 4/imm32 +<span id="L3161" class="LineNr">3161 </span> 51/push-ecx +<span id="L3162" class="LineNr">3162 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3163" class="LineNr">3163 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3164" class="LineNr">3164 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3165" class="LineNr">3165 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3166" class="LineNr">3166 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3167" class="LineNr">3167 </span> <span class="subxComment"># break</span> +<span id="L3168" class="LineNr">3168 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3169" class="LineNr">3169 </span><span class="Constant">$emit-disp:check-for-disp16</span>: +<span id="L3170" class="LineNr">3170 </span> <span class="subxComment"># else if (has-metadata?(word-slice, "disp16"))</span> +<span id="L3171" class="LineNr">3171 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp16")</span> +<span id="L3172" class="LineNr">3172 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3173" class="LineNr">3173 </span> 68/push <span class="Constant">"disp16"</span>/imm32 +<span id="L3174" class="LineNr">3174 </span> 51/push-ecx +<span id="L3175" class="LineNr">3175 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3176" class="LineNr">3176 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3177" class="LineNr">3177 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3178" class="LineNr">3178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3179" class="LineNr">3179 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3180" class="LineNr">3180 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3181" class="LineNr">3181 </span> 74/jump-if-= $emit-disp:check-for-disp8/disp8 +<span id="L3182" class="LineNr">3182 </span><span class="Constant">$emit-disp:disp16</span>: +<span id="L3183" class="LineNr">3183 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L3184" class="LineNr">3184 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3185" class="LineNr">3185 </span> 68/push 2/imm32 +<span id="L3186" class="LineNr">3186 </span> 51/push-ecx +<span id="L3187" class="LineNr">3187 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3188" class="LineNr">3188 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3189" class="LineNr">3189 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3190" class="LineNr">3190 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3191" class="LineNr">3191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3192" class="LineNr">3192 </span> <span class="subxComment"># break</span> +<span id="L3193" class="LineNr">3193 </span> e9/jump $emit-disp:<span class="Constant">break</span>/disp32 +<span id="L3194" class="LineNr">3194 </span><span class="Constant">$emit-disp:check-for-disp8</span>: +<span id="L3195" class="LineNr">3195 </span> <span class="subxComment"># if (has-metadata?(word-slice, "disp8"))</span> +<span id="L3196" class="LineNr">3196 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "disp8")</span> +<span id="L3197" class="LineNr">3197 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3198" class="LineNr">3198 </span> 68/push <span class="Constant">"disp8"</span>/imm32 +<span id="L3199" class="LineNr">3199 </span> 51/push-ecx +<span id="L3200" class="LineNr">3200 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3201" class="LineNr">3201 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3202" class="LineNr">3202 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3203" class="LineNr">3203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3204" class="LineNr">3204 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L3205" class="LineNr">3205 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3206" class="LineNr">3206 </span> 0f 84/jump-if-= $emit-disp:<span class="Constant">loop</span>/disp32 +<span id="L3207" class="LineNr">3207 </span><span class="Constant">$emit-disp:disp8</span>: +<span id="L3208" class="LineNr">3208 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L3209" class="LineNr">3209 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3210" class="LineNr">3210 </span> 68/push 1/imm32 +<span id="L3211" class="LineNr">3211 </span> 51/push-ecx +<span id="L3212" class="LineNr">3212 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3213" class="LineNr">3213 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3214" class="LineNr">3214 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3215" class="LineNr">3215 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3216" class="LineNr">3216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3217" class="LineNr">3217 </span> <span class="subxComment"># break</span> +<span id="L3218" class="LineNr">3218 </span><span class="Constant">$emit-disp:break</span>: +<span id="L3219" class="LineNr">3219 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L3220" class="LineNr">3220 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3221" class="LineNr">3221 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3222" class="LineNr">3222 </span> 5a/pop-to-edx +<span id="L3223" class="LineNr">3223 </span> 59/pop-to-ecx +<span id="L3224" class="LineNr">3224 </span> 58/pop-to-eax +<span id="L3225" class="LineNr">3225 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3226" class="LineNr">3226 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3227" class="LineNr">3227 </span> 5d/pop-to-ebp +<span id="L3228" class="LineNr">3228 </span> c3/return +<span id="L3229" class="LineNr">3229 </span> +<span id="L3230" class="LineNr">3230 </span><span class="subxFunction">emit-imm</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L3231" class="LineNr">3231 </span> <span class="subxComment"># pseudocode:</span> +<span id="L3232" class="LineNr">3232 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L3233" class="LineNr">3233 </span> <span class="subxComment"># var word-slice: slice</span> +<span id="L3234" class="LineNr">3234 </span> <span class="subxComment"># while true</span> +<span id="L3235" class="LineNr">3235 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L3236" class="LineNr">3236 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L3237" class="LineNr">3237 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L3238" class="LineNr">3238 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm32")</span> +<span id="L3239" class="LineNr">3239 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L3240" class="LineNr">3240 </span> <span class="subxComment"># break</span> +<span id="L3241" class="LineNr">3241 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm16")</span> +<span id="L3242" class="LineNr">3242 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L3243" class="LineNr">3243 </span> <span class="subxComment"># break</span> +<span id="L3244" class="LineNr">3244 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> +<span id="L3245" class="LineNr">3245 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L3246" class="LineNr">3246 </span> <span class="subxComment"># break</span> +<span id="L3247" class="LineNr">3247 </span> <span class="subxComment">#</span> +<span id="L3248" class="LineNr">3248 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3249" class="LineNr">3249 </span> 55/push-ebp +<span id="L3250" class="LineNr">3250 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3251" class="LineNr">3251 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3252" class="LineNr">3252 </span> 50/push-eax +<span id="L3253" class="LineNr">3253 </span> 51/push-ecx +<span id="L3254" class="LineNr">3254 </span> 52/push-edx +<span id="L3255" class="LineNr">3255 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L3256" class="LineNr">3256 </span> 68/push 0/imm32/end +<span id="L3257" class="LineNr">3257 </span> 68/push 0/imm32/start +<span id="L3258" class="LineNr">3258 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L3259" class="LineNr">3259 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L3260" class="LineNr">3260 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3261" class="LineNr">3261 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3262" class="LineNr">3262 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3263" class="LineNr">3263 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L3264" class="LineNr">3264 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3265" class="LineNr">3265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3266" class="Folded">3266 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3292" class="LineNr">3292 </span><span class="Constant">$emit-imm:loop</span>: +<span id="L3293" class="LineNr">3293 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L3294" class="LineNr">3294 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3295" class="LineNr">3295 </span> 51/push-ecx +<span id="L3296" class="LineNr">3296 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3297" class="LineNr">3297 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3298" class="LineNr">3298 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L3299" class="LineNr">3299 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3300" class="LineNr">3300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3301" class="Folded">3301 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3341" class="LineNr">3341 </span><span class="Constant">$emit-imm:check0</span>: +<span id="L3342" class="LineNr">3342 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L3343" class="LineNr">3343 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L3344" class="LineNr">3344 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3345" class="LineNr">3345 </span> 51/push-ecx +<span id="L3346" class="LineNr">3346 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3347" class="LineNr">3347 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3349" class="LineNr">3349 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3350" class="LineNr">3350 </span> <span class="subxS1Comment"># . if (eax != false) pass through</span> +<span id="L3351" class="LineNr">3351 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3352" class="LineNr">3352 </span> 0f 85/jump-if-!= $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3353" class="LineNr">3353 </span><span class="Constant">$emit-imm:check1</span>: +<span id="L3354" class="LineNr">3354 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L3355" class="LineNr">3355 </span> <span class="subxS1Comment"># . var start/edx: (addr byte) = slice->start</span> +<span id="L3356" class="LineNr">3356 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L3357" class="LineNr">3357 </span> <span class="subxS1Comment"># . var c/eax: byte = *start</span> +<span id="L3358" class="LineNr">3358 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L3359" class="LineNr">3359 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to AL</span> +<span id="L3360" class="LineNr">3360 </span> <span class="subxS1Comment"># . if (c == '#') break</span> +<span id="L3361" class="LineNr">3361 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L3362" class="LineNr">3362 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3363" class="LineNr">3363 </span><span class="Constant">$emit-imm:check-for-imm32</span>: +<span id="L3364" class="LineNr">3364 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm32"))</span> +<span id="L3365" class="LineNr">3365 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm32")</span> +<span id="L3366" class="LineNr">3366 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3367" class="LineNr">3367 </span> 68/push <span class="Constant">"imm32"</span>/imm32 +<span id="L3368" class="LineNr">3368 </span> 51/push-ecx +<span id="L3369" class="LineNr">3369 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3370" class="LineNr">3370 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3371" class="LineNr">3371 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3372" class="LineNr">3372 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3373" class="LineNr">3373 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3374" class="LineNr">3374 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3375" class="LineNr">3375 </span> 74/jump-if-= $emit-imm:check-for-imm16/disp8 +<span id="L3376" class="LineNr">3376 </span><span class="Constant">$emit-imm:imm32</span>: +<span id="L3377" class="LineNr">3377 </span> <span class="subxComment"># emit(out, word-slice, 4)</span> +<span id="L3378" class="LineNr">3378 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3379" class="LineNr">3379 </span> 68/push 4/imm32 +<span id="L3380" class="LineNr">3380 </span> 51/push-ecx +<span id="L3381" class="LineNr">3381 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3382" class="LineNr">3382 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3383" class="LineNr">3383 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3384" class="LineNr">3384 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3385" class="LineNr">3385 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3386" class="LineNr">3386 </span> <span class="subxComment"># break</span> +<span id="L3387" class="LineNr">3387 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3388" class="LineNr">3388 </span><span class="Constant">$emit-imm:check-for-imm16</span>: +<span id="L3389" class="LineNr">3389 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm16"))</span> +<span id="L3390" class="LineNr">3390 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm16")</span> +<span id="L3391" class="LineNr">3391 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3392" class="LineNr">3392 </span> 68/push <span class="Constant">"imm16"</span>/imm32 +<span id="L3393" class="LineNr">3393 </span> 51/push-ecx +<span id="L3394" class="LineNr">3394 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3395" class="LineNr">3395 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3396" class="LineNr">3396 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3397" class="LineNr">3397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3398" class="LineNr">3398 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3399" class="LineNr">3399 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3400" class="LineNr">3400 </span> 74/jump-if-= $emit-imm:check-for-imm8/disp8 +<span id="L3401" class="LineNr">3401 </span><span class="Constant">$emit-imm:imm16</span>: +<span id="L3402" class="LineNr">3402 </span> <span class="subxComment"># emit(out, word-slice, 2)</span> +<span id="L3403" class="LineNr">3403 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3404" class="LineNr">3404 </span> 68/push 2/imm32 +<span id="L3405" class="LineNr">3405 </span> 51/push-ecx +<span id="L3406" class="LineNr">3406 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3407" class="LineNr">3407 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3408" class="LineNr">3408 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3409" class="LineNr">3409 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3410" class="LineNr">3410 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3411" class="LineNr">3411 </span> <span class="subxComment"># break</span> +<span id="L3412" class="LineNr">3412 </span> e9/jump $emit-imm:<span class="Constant">break</span>/disp32 +<span id="L3413" class="LineNr">3413 </span><span class="Constant">$emit-imm:check-for-imm8</span>: +<span id="L3414" class="LineNr">3414 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm8"))</span> +<span id="L3415" class="LineNr">3415 </span> <span class="subxS1Comment"># . eax = has-metadata?(ecx, "imm8")</span> +<span id="L3416" class="LineNr">3416 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3417" class="LineNr">3417 </span> 68/push <span class="Constant">"imm8"</span>/imm32 +<span id="L3418" class="LineNr">3418 </span> 51/push-ecx +<span id="L3419" class="LineNr">3419 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3420" class="LineNr">3420 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L3421" class="LineNr">3421 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3422" class="LineNr">3422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3423" class="LineNr">3423 </span> <span class="subxS1Comment"># . if (eax == false) loop</span> +<span id="L3424" class="LineNr">3424 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3425" class="LineNr">3425 </span> 0f 84/jump-if-= $emit-imm:<span class="Constant">loop</span>/disp32 +<span id="L3426" class="LineNr">3426 </span><span class="Constant">$emit-imm:imm8</span>: +<span id="L3427" class="LineNr">3427 </span> <span class="subxComment"># emit(out, word-slice, 1)</span> +<span id="L3428" class="LineNr">3428 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3429" class="LineNr">3429 </span> 68/push 1/imm32 +<span id="L3430" class="LineNr">3430 </span> 51/push-ecx +<span id="L3431" class="LineNr">3431 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3432" class="LineNr">3432 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3433" class="LineNr">3433 </span> e8/call <a href='130emit.subx.html#L10'>emit</a>/disp32 +<span id="L3434" class="LineNr">3434 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3435" class="LineNr">3435 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3436" class="LineNr">3436 </span> <span class="subxComment"># break</span> +<span id="L3437" class="LineNr">3437 </span><span class="Constant">$emit-imm:break</span>: +<span id="L3438" class="LineNr">3438 </span> <span class="subxS1Comment"># . restore locals</span> +<span id="L3439" class="LineNr">3439 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3440" class="LineNr">3440 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3441" class="LineNr">3441 </span> 5a/pop-to-edx +<span id="L3442" class="LineNr">3442 </span> 59/pop-to-ecx +<span id="L3443" class="LineNr">3443 </span> 58/pop-to-eax +<span id="L3444" class="LineNr">3444 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3445" class="LineNr">3445 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3446" class="LineNr">3446 </span> 5d/pop-to-ebp +<span id="L3447" class="LineNr">3447 </span> c3/return +<span id="L3448" class="LineNr">3448 </span> +<span id="L3449" class="LineNr">3449 </span><span class="subxFunction">emit-line-in-comment</span>: <span class="subxComment"># line: (addr stream byte), out: (addr buffered-file)</span> +<span id="L3450" class="LineNr">3450 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3451" class="LineNr">3451 </span> 55/push-ebp +<span id="L3452" class="LineNr">3452 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3453" class="LineNr">3453 </span> <span class="subxComment"># write-buffered(out, " # ")</span> +<span id="L3454" class="LineNr">3454 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3455" class="LineNr">3455 </span> 68/push <span class="Constant">" # "</span>/imm32 +<span id="L3456" class="LineNr">3456 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3457" class="LineNr">3457 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3458" class="LineNr">3458 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3459" class="LineNr">3459 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3460" class="LineNr">3460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3461" class="LineNr">3461 </span> <span class="subxComment"># write-stream-data(out, line)</span> +<span id="L3462" class="LineNr">3462 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3463" class="LineNr">3463 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3464" class="LineNr">3464 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3465" class="LineNr">3465 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3466" class="LineNr">3466 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L3467" class="LineNr">3467 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3468" class="LineNr">3468 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3469" class="LineNr">3469 </span><span class="Constant">$emit-line-in-comment:end</span>: +<span id="L3470" class="LineNr">3470 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3471" class="LineNr">3471 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3472" class="LineNr">3472 </span> 5d/pop-to-ebp +<span id="L3473" class="LineNr">3473 </span> c3/return +<span id="L3474" class="LineNr">3474 </span> +<span id="L3475" class="LineNr">3475 </span><span class="subxTest">test-convert-instruction-passes-comments-through</span>: +<span id="L3476" class="LineNr">3476 </span> <span class="subxComment"># if a line starts with '#', pass it along unchanged</span> +<span id="L3477" class="LineNr">3477 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3478" class="LineNr">3478 </span> 55/push-ebp +<span id="L3479" class="LineNr">3479 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3480" class="LineNr">3480 </span> <span class="subxComment"># setup</span> +<span id="L3481" class="LineNr">3481 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3482" class="LineNr">3482 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3483" class="LineNr">3483 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L3484" class="LineNr">3484 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3485" class="LineNr">3485 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3485" class="LineNr">3485 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L3486" class="LineNr">3486 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3487" class="LineNr">3487 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3488" class="LineNr">3488 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3489" class="LineNr">3489 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3490" class="LineNr">3490 </span> 5d/pop-to-ebp -<span id="L3491" class="LineNr">3491 </span> c3/return -<span id="L3492" class="LineNr">3492 </span> -<span id="L3493" class="LineNr">3493 </span><span class="subxTest">test-convert-instruction-handles-single-opcode</span>: -<span id="L3494" class="LineNr">3494 </span> <span class="subxComment"># if the instruction consists of a single opcode, strip its metadata and pass it along</span> -<span id="L3495" class="LineNr">3495 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3496" class="LineNr">3496 </span> 55/push-ebp -<span id="L3497" class="LineNr">3497 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3498" class="LineNr">3498 </span> <span class="subxComment"># setup</span> -<span id="L3499" class="LineNr">3499 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3500" class="LineNr">3500 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3501" class="LineNr">3501 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3502" class="LineNr">3502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3503" class="LineNr">3503 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3504" class="LineNr">3504 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3505" class="LineNr">3505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3506" class="LineNr">3506 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3507" class="LineNr">3507 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3508" class="LineNr">3508 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3509" class="LineNr">3509 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3510" class="LineNr">3510 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3511" class="LineNr">3511 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3512" class="LineNr">3512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3513" class="LineNr">3513 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3514" class="LineNr">3514 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3515" class="LineNr">3515 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3516" class="LineNr">3516 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3517" class="LineNr">3517 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3518" class="LineNr">3518 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3519" class="LineNr">3519 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3520" class="LineNr">3520 </span> <span class="subxComment"># initialize input</span> -<span id="L3521" class="LineNr">3521 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/cd # comment")</span> -<span id="L3522" class="LineNr">3522 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3523" class="LineNr">3523 </span> 68/push <span class="Constant">"ab/cd # comment"</span>/imm32 -<span id="L3524" class="LineNr">3524 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3525" class="LineNr">3525 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3526" class="LineNr">3526 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3527" class="LineNr">3527 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3528" class="LineNr">3528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3529" class="LineNr">3529 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3530" class="LineNr">3530 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3531" class="LineNr">3531 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3532" class="LineNr">3532 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3533" class="LineNr">3533 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3534" class="LineNr">3534 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3535" class="LineNr">3535 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3536" class="LineNr">3536 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3537" class="LineNr">3537 </span> <span class="subxComment"># check output</span> -<span id="L3538" class="LineNr">3538 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3539" class="LineNr">3539 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3540" class="LineNr">3540 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3541" class="LineNr">3541 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3542" class="LineNr">3542 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3543" class="LineNr">3543 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3544" class="LineNr">3544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3545" class="Folded">3545 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3571" class="LineNr">3571 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # ab/cd # comment", msg)</span> -<span id="L3572" class="LineNr">3572 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3573" class="LineNr">3573 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-single-opcode"</span>/imm32 -<span id="L3574" class="LineNr">3574 </span> 68/push <span class="Constant">"ab # ab/cd # comment"</span>/imm32 -<span id="L3575" class="LineNr">3575 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3576" class="LineNr">3576 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3577" class="LineNr">3577 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3578" class="LineNr">3578 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3579" class="LineNr">3579 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3580" class="LineNr">3580 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3581" class="LineNr">3581 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3582" class="LineNr">3582 </span> 5d/pop-to-ebp -<span id="L3583" class="LineNr">3583 </span> c3/return -<span id="L3584" class="LineNr">3584 </span> -<span id="L3585" class="LineNr">3585 </span><span class="subxTest">test-convert-instruction-handles-0f-opcode</span>: -<span id="L3586" class="LineNr">3586 </span> <span class="subxComment"># if the instruction starts with 0f opcode, include a second opcode</span> -<span id="L3587" class="LineNr">3587 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3588" class="LineNr">3588 </span> 55/push-ebp -<span id="L3589" class="LineNr">3589 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3590" class="LineNr">3590 </span> <span class="subxComment"># setup</span> -<span id="L3591" class="LineNr">3591 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3592" class="LineNr">3592 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3593" class="LineNr">3593 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3594" class="LineNr">3594 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3595" class="LineNr">3595 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3596" class="LineNr">3596 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3597" class="LineNr">3597 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3598" class="LineNr">3598 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3599" class="LineNr">3599 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3600" class="LineNr">3600 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3601" class="LineNr">3601 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3602" class="LineNr">3602 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3603" class="LineNr">3603 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3604" class="LineNr">3604 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3605" class="LineNr">3605 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3606" class="LineNr">3606 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3607" class="LineNr">3607 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3608" class="LineNr">3608 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3609" class="LineNr">3609 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3610" class="LineNr">3610 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3611" class="LineNr">3611 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3612" class="LineNr">3612 </span> <span class="subxComment"># initialize input</span> -<span id="L3613" class="LineNr">3613 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0f/m1 ab/m2 # comment")</span> +<span id="L3487" class="LineNr">3487 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3488" class="LineNr">3488 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3489" class="LineNr">3489 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3490" class="LineNr">3490 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3491" class="LineNr">3491 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3492" class="LineNr">3492 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3493" class="LineNr">3493 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3494" class="LineNr">3494 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3495" class="LineNr">3495 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3496" class="LineNr">3496 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3497" class="LineNr">3497 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3498" class="LineNr">3498 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3499" class="LineNr">3499 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3500" class="LineNr">3500 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3501" class="LineNr">3501 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3502" class="LineNr">3502 </span> <span class="subxComment"># initialize input</span> +<span id="L3503" class="LineNr">3503 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> +<span id="L3504" class="LineNr">3504 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3505" class="LineNr">3505 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L3506" class="LineNr">3506 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3507" class="LineNr">3507 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3508" class="LineNr">3508 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3509" class="LineNr">3509 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3510" class="LineNr">3510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3511" class="LineNr">3511 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3512" class="LineNr">3512 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3513" class="LineNr">3513 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3514" class="LineNr">3514 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3515" class="LineNr">3515 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3516" class="LineNr">3516 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L3517" class="LineNr">3517 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3518" class="LineNr">3518 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3519" class="LineNr">3519 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L3520" class="LineNr">3520 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3521" class="LineNr">3521 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3522" class="LineNr">3522 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3523" class="LineNr">3523 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3524" class="LineNr">3524 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3525" class="LineNr">3525 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3526" class="LineNr">3526 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3527" class="LineNr">3527 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> +<span id="L3528" class="LineNr">3528 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3529" class="LineNr">3529 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-comments-through"</span>/imm32 +<span id="L3530" class="LineNr">3530 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L3531" class="LineNr">3531 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3532" class="LineNr">3532 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3533" class="LineNr">3533 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3534" class="LineNr">3534 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3535" class="LineNr">3535 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3536" class="LineNr">3536 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3537" class="LineNr">3537 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3538" class="LineNr">3538 </span> 5d/pop-to-ebp +<span id="L3539" class="LineNr">3539 </span> c3/return +<span id="L3540" class="LineNr">3540 </span> +<span id="L3541" class="LineNr">3541 </span><span class="subxTest">test-convert-instruction-passes-labels-through</span>: +<span id="L3542" class="LineNr">3542 </span> <span class="subxComment"># if the first word ends with ':', pass along the entire line unchanged</span> +<span id="L3543" class="LineNr">3543 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3544" class="LineNr">3544 </span> 55/push-ebp +<span id="L3545" class="LineNr">3545 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3546" class="LineNr">3546 </span> <span class="subxComment"># setup</span> +<span id="L3547" class="LineNr">3547 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3548" class="LineNr">3548 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3549" class="LineNr">3549 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3550" class="LineNr">3550 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3551" class="LineNr">3551 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3552" class="LineNr">3552 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3553" class="LineNr">3553 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3554" class="LineNr">3554 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3555" class="LineNr">3555 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3556" class="LineNr">3556 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3557" class="LineNr">3557 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3558" class="LineNr">3558 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3559" class="LineNr">3559 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3560" class="LineNr">3560 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3561" class="LineNr">3561 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3562" class="LineNr">3562 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3563" class="LineNr">3563 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3564" class="LineNr">3564 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3565" class="LineNr">3565 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3566" class="LineNr">3566 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3567" class="LineNr">3567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3568" class="LineNr">3568 </span> <span class="subxComment"># initialize input</span> +<span id="L3569" class="LineNr">3569 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> +<span id="L3570" class="LineNr">3570 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3571" class="LineNr">3571 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L3572" class="LineNr">3572 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3573" class="LineNr">3573 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3574" class="LineNr">3574 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3575" class="LineNr">3575 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3576" class="LineNr">3576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3577" class="LineNr">3577 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3578" class="LineNr">3578 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3579" class="LineNr">3579 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3580" class="LineNr">3580 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3581" class="LineNr">3581 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3582" class="LineNr">3582 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L3583" class="LineNr">3583 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3584" class="LineNr">3584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3585" class="LineNr">3585 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L3586" class="LineNr">3586 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3587" class="LineNr">3587 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3588" class="LineNr">3588 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3589" class="LineNr">3589 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3590" class="LineNr">3590 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3591" class="LineNr">3591 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3592" class="LineNr">3592 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3593" class="LineNr">3593 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab: # cd", msg)</span> +<span id="L3594" class="LineNr">3594 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3595" class="LineNr">3595 </span> 68/push <span class="Constant">"F - test-convert-instruction-passes-labels-through"</span>/imm32 +<span id="L3596" class="LineNr">3596 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L3597" class="LineNr">3597 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3598" class="LineNr">3598 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3599" class="LineNr">3599 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3600" class="LineNr">3600 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3601" class="LineNr">3601 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3602" class="LineNr">3602 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3603" class="LineNr">3603 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3604" class="LineNr">3604 </span> 5d/pop-to-ebp +<span id="L3605" class="LineNr">3605 </span> c3/return +<span id="L3606" class="LineNr">3606 </span> +<span id="L3607" class="LineNr">3607 </span><span class="subxTest">test-convert-instruction-handles-single-opcode</span>: +<span id="L3608" class="LineNr">3608 </span> <span class="subxComment"># if the instruction consists of a single opcode, strip its metadata and pass it along</span> +<span id="L3609" class="LineNr">3609 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3610" class="LineNr">3610 </span> 55/push-ebp +<span id="L3611" class="LineNr">3611 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3612" class="LineNr">3612 </span> <span class="subxComment"># setup</span> +<span id="L3613" class="LineNr">3613 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L3614" class="LineNr">3614 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3615" class="LineNr">3615 </span> 68/push <span class="Constant">"0f/m1 ab/m2 # comment"</span>/imm32 -<span id="L3616" class="LineNr">3616 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3617" class="LineNr">3617 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3618" class="LineNr">3618 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3619" class="LineNr">3619 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3620" class="LineNr">3620 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3621" class="LineNr">3621 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3622" class="LineNr">3622 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3623" class="LineNr">3623 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3624" class="LineNr">3624 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3625" class="LineNr">3625 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3626" class="LineNr">3626 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3627" class="LineNr">3627 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3628" class="LineNr">3628 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3629" class="LineNr">3629 </span> <span class="subxComment"># check output</span> -<span id="L3630" class="LineNr">3630 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3631" class="LineNr">3631 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3632" class="LineNr">3632 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3633" class="LineNr">3633 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3634" class="LineNr">3634 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3635" class="LineNr">3635 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3636" class="LineNr">3636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3637" class="Folded">3637 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3663" class="LineNr">3663 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "0f ab # 0f/m1 ab/m2 # comment", msg)</span> -<span id="L3664" class="LineNr">3664 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3665" class="LineNr">3665 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-0f-opcode"</span>/imm32 -<span id="L3666" class="LineNr">3666 </span> 68/push <span class="Constant">"0f ab # 0f/m1 ab/m2 # comment"</span>/imm32 -<span id="L3667" class="LineNr">3667 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3668" class="LineNr">3668 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3669" class="LineNr">3669 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3670" class="LineNr">3670 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3671" class="LineNr">3671 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3672" class="LineNr">3672 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3673" class="LineNr">3673 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3674" class="LineNr">3674 </span> 5d/pop-to-ebp -<span id="L3675" class="LineNr">3675 </span> c3/return -<span id="L3676" class="LineNr">3676 </span> -<span id="L3677" class="LineNr">3677 </span><span class="subxTest">test-convert-instruction-handles-f2-opcode</span>: -<span id="L3678" class="LineNr">3678 </span> <span class="subxComment"># if the instruction starts with f2 opcode, include a second opcode</span> -<span id="L3679" class="LineNr">3679 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3680" class="LineNr">3680 </span> 55/push-ebp -<span id="L3681" class="LineNr">3681 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3682" class="LineNr">3682 </span> <span class="subxComment"># setup</span> -<span id="L3683" class="LineNr">3683 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3684" class="LineNr">3684 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3685" class="LineNr">3685 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3686" class="LineNr">3686 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3687" class="LineNr">3687 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3688" class="LineNr">3688 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3689" class="LineNr">3689 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3690" class="LineNr">3690 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3691" class="LineNr">3691 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3692" class="LineNr">3692 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3693" class="LineNr">3693 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3694" class="LineNr">3694 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3695" class="LineNr">3695 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3696" class="LineNr">3696 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3697" class="LineNr">3697 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3698" class="LineNr">3698 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3699" class="LineNr">3699 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3700" class="LineNr">3700 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3701" class="LineNr">3701 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3702" class="LineNr">3702 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3703" class="LineNr">3703 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3704" class="LineNr">3704 </span> <span class="subxComment"># initialize input</span> -<span id="L3705" class="LineNr">3705 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 # comment")</span> +<span id="L3615" class="LineNr">3615 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3616" class="LineNr">3616 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3617" class="LineNr">3617 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3618" class="LineNr">3618 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3619" class="LineNr">3619 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3620" class="LineNr">3620 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3621" class="LineNr">3621 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3622" class="LineNr">3622 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3623" class="LineNr">3623 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3624" class="LineNr">3624 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3625" class="LineNr">3625 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3626" class="LineNr">3626 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3627" class="LineNr">3627 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3628" class="LineNr">3628 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3629" class="LineNr">3629 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3630" class="LineNr">3630 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3631" class="LineNr">3631 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3632" class="LineNr">3632 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3633" class="LineNr">3633 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3634" class="LineNr">3634 </span> <span class="subxComment"># initialize input</span> +<span id="L3635" class="LineNr">3635 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/cd # comment")</span> +<span id="L3636" class="LineNr">3636 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3637" class="LineNr">3637 </span> 68/push <span class="Constant">"ab/cd # comment"</span>/imm32 +<span id="L3638" class="LineNr">3638 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3639" class="LineNr">3639 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3640" class="LineNr">3640 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3641" class="LineNr">3641 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3642" class="LineNr">3642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3643" class="LineNr">3643 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3644" class="LineNr">3644 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3645" class="LineNr">3645 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3646" class="LineNr">3646 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3647" class="LineNr">3647 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3648" class="LineNr">3648 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L3649" class="LineNr">3649 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3650" class="LineNr">3650 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3651" class="LineNr">3651 </span> <span class="subxComment"># check output</span> +<span id="L3652" class="LineNr">3652 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3653" class="LineNr">3653 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3654" class="LineNr">3654 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3655" class="LineNr">3655 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3656" class="LineNr">3656 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3657" class="LineNr">3657 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3658" class="LineNr">3658 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3659" class="Folded">3659 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3685" class="LineNr">3685 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # ab/cd # comment", msg)</span> +<span id="L3686" class="LineNr">3686 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3687" class="LineNr">3687 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-single-opcode"</span>/imm32 +<span id="L3688" class="LineNr">3688 </span> 68/push <span class="Constant">"ab # ab/cd # comment"</span>/imm32 +<span id="L3689" class="LineNr">3689 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3690" class="LineNr">3690 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3691" class="LineNr">3691 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3692" class="LineNr">3692 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3693" class="LineNr">3693 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3694" class="LineNr">3694 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3695" class="LineNr">3695 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3696" class="LineNr">3696 </span> 5d/pop-to-ebp +<span id="L3697" class="LineNr">3697 </span> c3/return +<span id="L3698" class="LineNr">3698 </span> +<span id="L3699" class="LineNr">3699 </span><span class="subxTest">test-convert-instruction-handles-0f-opcode</span>: +<span id="L3700" class="LineNr">3700 </span> <span class="subxComment"># if the instruction starts with 0f opcode, include a second opcode</span> +<span id="L3701" class="LineNr">3701 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3702" class="LineNr">3702 </span> 55/push-ebp +<span id="L3703" class="LineNr">3703 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3704" class="LineNr">3704 </span> <span class="subxComment"># setup</span> +<span id="L3705" class="LineNr">3705 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L3706" class="LineNr">3706 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3707" class="LineNr">3707 </span> 68/push <span class="Constant">"f2/m1 ab/m2 # comment"</span>/imm32 -<span id="L3708" class="LineNr">3708 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3709" class="LineNr">3709 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3710" class="LineNr">3710 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3711" class="LineNr">3711 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3712" class="LineNr">3712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3713" class="LineNr">3713 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3714" class="LineNr">3714 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3715" class="LineNr">3715 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3716" class="LineNr">3716 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3717" class="LineNr">3717 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3718" class="LineNr">3718 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3719" class="LineNr">3719 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3720" class="LineNr">3720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3721" class="LineNr">3721 </span> <span class="subxComment"># check output</span> -<span id="L3722" class="LineNr">3722 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3723" class="LineNr">3723 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3724" class="LineNr">3724 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3725" class="LineNr">3725 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3726" class="LineNr">3726 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3727" class="LineNr">3727 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3728" class="LineNr">3728 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3729" class="Folded">3729 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3755" class="LineNr">3755 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 # comment", msg)</span> -<span id="L3756" class="LineNr">3756 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3757" class="LineNr">3757 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-opcode"</span>/imm32 -<span id="L3758" class="LineNr">3758 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 # comment"</span>/imm32 -<span id="L3759" class="LineNr">3759 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3760" class="LineNr">3760 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3761" class="LineNr">3761 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3762" class="LineNr">3762 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3763" class="LineNr">3763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3764" class="LineNr">3764 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3765" class="LineNr">3765 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3766" class="LineNr">3766 </span> 5d/pop-to-ebp -<span id="L3767" class="LineNr">3767 </span> c3/return -<span id="L3768" class="LineNr">3768 </span> -<span id="L3769" class="LineNr">3769 </span><span class="subxTest">test-convert-instruction-handles-f3-opcode</span>: -<span id="L3770" class="LineNr">3770 </span> <span class="subxComment"># if the instruction starts with f3 opcode, include a second opcode</span> -<span id="L3771" class="LineNr">3771 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3772" class="LineNr">3772 </span> 55/push-ebp -<span id="L3773" class="LineNr">3773 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3774" class="LineNr">3774 </span> <span class="subxComment"># setup</span> -<span id="L3775" class="LineNr">3775 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3776" class="LineNr">3776 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3777" class="LineNr">3777 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3778" class="LineNr">3778 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3779" class="LineNr">3779 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3780" class="LineNr">3780 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3781" class="LineNr">3781 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3782" class="LineNr">3782 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3783" class="LineNr">3783 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3784" class="LineNr">3784 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3785" class="LineNr">3785 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3786" class="LineNr">3786 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3787" class="LineNr">3787 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3788" class="LineNr">3788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3789" class="LineNr">3789 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3790" class="LineNr">3790 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3791" class="LineNr">3791 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3792" class="LineNr">3792 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3793" class="LineNr">3793 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3794" class="LineNr">3794 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3795" class="LineNr">3795 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3796" class="LineNr">3796 </span> <span class="subxComment"># initialize input</span> -<span id="L3797" class="LineNr">3797 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 # comment")</span> +<span id="L3707" class="LineNr">3707 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3708" class="LineNr">3708 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3709" class="LineNr">3709 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3710" class="LineNr">3710 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3711" class="LineNr">3711 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3712" class="LineNr">3712 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3713" class="LineNr">3713 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3714" class="LineNr">3714 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3715" class="LineNr">3715 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3716" class="LineNr">3716 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3717" class="LineNr">3717 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3718" class="LineNr">3718 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3719" class="LineNr">3719 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3720" class="LineNr">3720 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3721" class="LineNr">3721 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3722" class="LineNr">3722 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3723" class="LineNr">3723 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3724" class="LineNr">3724 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3725" class="LineNr">3725 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3726" class="LineNr">3726 </span> <span class="subxComment"># initialize input</span> +<span id="L3727" class="LineNr">3727 </span> <span class="subxS1Comment"># . write(_test-input-stream, "0f/m1 ab/m2 # comment")</span> +<span id="L3728" class="LineNr">3728 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3729" class="LineNr">3729 </span> 68/push <span class="Constant">"0f/m1 ab/m2 # comment"</span>/imm32 +<span id="L3730" class="LineNr">3730 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3731" class="LineNr">3731 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3732" class="LineNr">3732 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3733" class="LineNr">3733 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3734" class="LineNr">3734 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3735" class="LineNr">3735 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3736" class="LineNr">3736 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3737" class="LineNr">3737 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3738" class="LineNr">3738 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3739" class="LineNr">3739 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3740" class="LineNr">3740 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L3741" class="LineNr">3741 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3742" class="LineNr">3742 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3743" class="LineNr">3743 </span> <span class="subxComment"># check output</span> +<span id="L3744" class="LineNr">3744 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3745" class="LineNr">3745 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3746" class="LineNr">3746 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3747" class="LineNr">3747 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3748" class="LineNr">3748 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3749" class="LineNr">3749 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3750" class="LineNr">3750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3751" class="Folded">3751 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3777" class="LineNr">3777 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "0f ab # 0f/m1 ab/m2 # comment", msg)</span> +<span id="L3778" class="LineNr">3778 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3779" class="LineNr">3779 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-0f-opcode"</span>/imm32 +<span id="L3780" class="LineNr">3780 </span> 68/push <span class="Constant">"0f ab # 0f/m1 ab/m2 # comment"</span>/imm32 +<span id="L3781" class="LineNr">3781 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3782" class="LineNr">3782 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3783" class="LineNr">3783 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3784" class="LineNr">3784 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3785" class="LineNr">3785 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3786" class="LineNr">3786 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3787" class="LineNr">3787 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3788" class="LineNr">3788 </span> 5d/pop-to-ebp +<span id="L3789" class="LineNr">3789 </span> c3/return +<span id="L3790" class="LineNr">3790 </span> +<span id="L3791" class="LineNr">3791 </span><span class="subxTest">test-convert-instruction-handles-f2-opcode</span>: +<span id="L3792" class="LineNr">3792 </span> <span class="subxComment"># if the instruction starts with f2 opcode, include a second opcode</span> +<span id="L3793" class="LineNr">3793 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3794" class="LineNr">3794 </span> 55/push-ebp +<span id="L3795" class="LineNr">3795 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3796" class="LineNr">3796 </span> <span class="subxComment"># setup</span> +<span id="L3797" class="LineNr">3797 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L3798" class="LineNr">3798 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3799" class="LineNr">3799 </span> 68/push <span class="Constant">"f3/m1 ab/m2 # comment"</span>/imm32 -<span id="L3800" class="LineNr">3800 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3801" class="LineNr">3801 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3802" class="LineNr">3802 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3803" class="LineNr">3803 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3804" class="LineNr">3804 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3805" class="LineNr">3805 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3806" class="LineNr">3806 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3807" class="LineNr">3807 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3808" class="LineNr">3808 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3809" class="LineNr">3809 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3810" class="LineNr">3810 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3811" class="LineNr">3811 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3812" class="LineNr">3812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3813" class="LineNr">3813 </span> <span class="subxComment"># check output</span> -<span id="L3814" class="LineNr">3814 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3815" class="LineNr">3815 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3816" class="LineNr">3816 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3817" class="LineNr">3817 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3818" class="LineNr">3818 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3819" class="LineNr">3819 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3820" class="LineNr">3820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3821" class="Folded">3821 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3847" class="LineNr">3847 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 # comment", msg)</span> -<span id="L3848" class="LineNr">3848 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3849" class="LineNr">3849 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-opcode"</span>/imm32 -<span id="L3850" class="LineNr">3850 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 # comment"</span>/imm32 -<span id="L3851" class="LineNr">3851 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3852" class="LineNr">3852 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3853" class="LineNr">3853 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3854" class="LineNr">3854 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3855" class="LineNr">3855 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3856" class="LineNr">3856 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3857" class="LineNr">3857 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3858" class="LineNr">3858 </span> 5d/pop-to-ebp -<span id="L3859" class="LineNr">3859 </span> c3/return -<span id="L3860" class="LineNr">3860 </span> -<span id="L3861" class="LineNr">3861 </span><span class="subxTest">test-convert-instruction-handles-f2-0f-opcode</span>: -<span id="L3862" class="LineNr">3862 </span> <span class="subxComment"># if the instruction starts with f2 0f opcode, include a second opcode</span> -<span id="L3863" class="LineNr">3863 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3864" class="LineNr">3864 </span> 55/push-ebp -<span id="L3865" class="LineNr">3865 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3866" class="LineNr">3866 </span> <span class="subxComment"># setup</span> -<span id="L3867" class="LineNr">3867 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3868" class="LineNr">3868 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3869" class="LineNr">3869 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3870" class="LineNr">3870 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3871" class="LineNr">3871 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3872" class="LineNr">3872 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3873" class="LineNr">3873 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3874" class="LineNr">3874 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3875" class="LineNr">3875 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3876" class="LineNr">3876 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3877" class="LineNr">3877 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3878" class="LineNr">3878 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3879" class="LineNr">3879 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3880" class="LineNr">3880 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3881" class="LineNr">3881 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3882" class="LineNr">3882 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3883" class="LineNr">3883 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3884" class="LineNr">3884 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3885" class="LineNr">3885 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3886" class="LineNr">3886 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3887" class="LineNr">3887 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3888" class="LineNr">3888 </span> <span class="subxComment"># initialize input</span> -<span id="L3889" class="LineNr">3889 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 0f/m2 ab/m3 # comment")</span> +<span id="L3799" class="LineNr">3799 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3800" class="LineNr">3800 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3801" class="LineNr">3801 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3802" class="LineNr">3802 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3803" class="LineNr">3803 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3804" class="LineNr">3804 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3805" class="LineNr">3805 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3806" class="LineNr">3806 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3807" class="LineNr">3807 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3808" class="LineNr">3808 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3809" class="LineNr">3809 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3810" class="LineNr">3810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3811" class="LineNr">3811 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3812" class="LineNr">3812 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3813" class="LineNr">3813 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3814" class="LineNr">3814 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3815" class="LineNr">3815 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3816" class="LineNr">3816 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3817" class="LineNr">3817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3818" class="LineNr">3818 </span> <span class="subxComment"># initialize input</span> +<span id="L3819" class="LineNr">3819 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 # comment")</span> +<span id="L3820" class="LineNr">3820 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3821" class="LineNr">3821 </span> 68/push <span class="Constant">"f2/m1 ab/m2 # comment"</span>/imm32 +<span id="L3822" class="LineNr">3822 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3823" class="LineNr">3823 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3824" class="LineNr">3824 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3825" class="LineNr">3825 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3826" class="LineNr">3826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3827" class="LineNr">3827 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3828" class="LineNr">3828 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3829" class="LineNr">3829 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3830" class="LineNr">3830 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3831" class="LineNr">3831 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3832" class="LineNr">3832 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L3833" class="LineNr">3833 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3834" class="LineNr">3834 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3835" class="LineNr">3835 </span> <span class="subxComment"># check output</span> +<span id="L3836" class="LineNr">3836 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3837" class="LineNr">3837 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3838" class="LineNr">3838 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3839" class="LineNr">3839 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3840" class="LineNr">3840 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3841" class="LineNr">3841 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3842" class="LineNr">3842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3843" class="Folded">3843 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3869" class="LineNr">3869 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 # comment", msg)</span> +<span id="L3870" class="LineNr">3870 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3871" class="LineNr">3871 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-opcode"</span>/imm32 +<span id="L3872" class="LineNr">3872 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 # comment"</span>/imm32 +<span id="L3873" class="LineNr">3873 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3874" class="LineNr">3874 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3875" class="LineNr">3875 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3876" class="LineNr">3876 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3877" class="LineNr">3877 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3878" class="LineNr">3878 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3879" class="LineNr">3879 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3880" class="LineNr">3880 </span> 5d/pop-to-ebp +<span id="L3881" class="LineNr">3881 </span> c3/return +<span id="L3882" class="LineNr">3882 </span> +<span id="L3883" class="LineNr">3883 </span><span class="subxTest">test-convert-instruction-handles-f3-opcode</span>: +<span id="L3884" class="LineNr">3884 </span> <span class="subxComment"># if the instruction starts with f3 opcode, include a second opcode</span> +<span id="L3885" class="LineNr">3885 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3886" class="LineNr">3886 </span> 55/push-ebp +<span id="L3887" class="LineNr">3887 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3888" class="LineNr">3888 </span> <span class="subxComment"># setup</span> +<span id="L3889" class="LineNr">3889 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L3890" class="LineNr">3890 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3891" class="LineNr">3891 </span> 68/push <span class="Constant">"f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L3892" class="LineNr">3892 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3893" class="LineNr">3893 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3894" class="LineNr">3894 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3895" class="LineNr">3895 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3896" class="LineNr">3896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3897" class="LineNr">3897 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3898" class="LineNr">3898 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3899" class="LineNr">3899 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3900" class="LineNr">3900 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3901" class="LineNr">3901 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3902" class="LineNr">3902 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3903" class="LineNr">3903 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3904" class="LineNr">3904 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3905" class="LineNr">3905 </span> <span class="subxComment"># check output</span> -<span id="L3906" class="LineNr">3906 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3907" class="LineNr">3907 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3908" class="LineNr">3908 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3909" class="LineNr">3909 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3910" class="LineNr">3910 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3911" class="LineNr">3911 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3912" class="LineNr">3912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3913" class="Folded">3913 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3939" class="LineNr">3939 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 0f ab # f2/m1 0f/m2 ab/m3 # comment", msg)</span> -<span id="L3940" class="LineNr">3940 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3941" class="LineNr">3941 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-0f-opcode"</span>/imm32 -<span id="L3942" class="LineNr">3942 </span> 68/push <span class="Constant">"f2 0f ab # f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L3943" class="LineNr">3943 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3944" class="LineNr">3944 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3945" class="LineNr">3945 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3946" class="LineNr">3946 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3947" class="LineNr">3947 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3948" class="LineNr">3948 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3949" class="LineNr">3949 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3950" class="LineNr">3950 </span> 5d/pop-to-ebp -<span id="L3951" class="LineNr">3951 </span> c3/return -<span id="L3952" class="LineNr">3952 </span> -<span id="L3953" class="LineNr">3953 </span><span class="subxTest">test-convert-instruction-handles-f3-0f-opcode</span>: -<span id="L3954" class="LineNr">3954 </span> <span class="subxComment"># if the instruction starts with f3 0f opcode, include a second opcode</span> -<span id="L3955" class="LineNr">3955 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3956" class="LineNr">3956 </span> 55/push-ebp -<span id="L3957" class="LineNr">3957 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3958" class="LineNr">3958 </span> <span class="subxComment"># setup</span> -<span id="L3959" class="LineNr">3959 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L3960" class="LineNr">3960 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3961" class="LineNr">3961 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3962" class="LineNr">3962 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3963" class="LineNr">3963 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3964" class="LineNr">3964 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3965" class="LineNr">3965 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3966" class="LineNr">3966 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3967" class="LineNr">3967 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3968" class="LineNr">3968 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3969" class="LineNr">3969 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3970" class="LineNr">3970 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3971" class="LineNr">3971 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3972" class="LineNr">3972 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3973" class="LineNr">3973 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3974" class="LineNr">3974 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3975" class="LineNr">3975 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3976" class="LineNr">3976 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3977" class="LineNr">3977 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3978" class="LineNr">3978 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3979" class="LineNr">3979 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3980" class="LineNr">3980 </span> <span class="subxComment"># initialize input</span> -<span id="L3981" class="LineNr">3981 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 0f/m2 ab/m3 # comment")</span> +<span id="L3891" class="LineNr">3891 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3892" class="LineNr">3892 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3893" class="LineNr">3893 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3894" class="LineNr">3894 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3895" class="LineNr">3895 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3896" class="LineNr">3896 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3897" class="LineNr">3897 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3898" class="LineNr">3898 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3899" class="LineNr">3899 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3900" class="LineNr">3900 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3901" class="LineNr">3901 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3902" class="LineNr">3902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3903" class="LineNr">3903 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3904" class="LineNr">3904 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3905" class="LineNr">3905 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3906" class="LineNr">3906 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3907" class="LineNr">3907 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3908" class="LineNr">3908 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3909" class="LineNr">3909 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3910" class="LineNr">3910 </span> <span class="subxComment"># initialize input</span> +<span id="L3911" class="LineNr">3911 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 # comment")</span> +<span id="L3912" class="LineNr">3912 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3913" class="LineNr">3913 </span> 68/push <span class="Constant">"f3/m1 ab/m2 # comment"</span>/imm32 +<span id="L3914" class="LineNr">3914 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3915" class="LineNr">3915 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3916" class="LineNr">3916 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3917" class="LineNr">3917 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3918" class="LineNr">3918 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3919" class="LineNr">3919 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L3920" class="LineNr">3920 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3921" class="LineNr">3921 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3922" class="LineNr">3922 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3923" class="LineNr">3923 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3924" class="LineNr">3924 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L3925" class="LineNr">3925 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3926" class="LineNr">3926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3927" class="LineNr">3927 </span> <span class="subxComment"># check output</span> +<span id="L3928" class="LineNr">3928 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3929" class="LineNr">3929 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3930" class="LineNr">3930 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3931" class="LineNr">3931 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3932" class="LineNr">3932 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3933" class="LineNr">3933 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3934" class="LineNr">3934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3935" class="Folded">3935 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3961" class="LineNr">3961 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 # comment", msg)</span> +<span id="L3962" class="LineNr">3962 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3963" class="LineNr">3963 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-opcode"</span>/imm32 +<span id="L3964" class="LineNr">3964 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 # comment"</span>/imm32 +<span id="L3965" class="LineNr">3965 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3966" class="LineNr">3966 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3967" class="LineNr">3967 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3968" class="LineNr">3968 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3969" class="LineNr">3969 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3970" class="LineNr">3970 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3971" class="LineNr">3971 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3972" class="LineNr">3972 </span> 5d/pop-to-ebp +<span id="L3973" class="LineNr">3973 </span> c3/return +<span id="L3974" class="LineNr">3974 </span> +<span id="L3975" class="LineNr">3975 </span><span class="subxTest">test-convert-instruction-handles-f2-0f-opcode</span>: +<span id="L3976" class="LineNr">3976 </span> <span class="subxComment"># if the instruction starts with f2 0f opcode, include a second opcode</span> +<span id="L3977" class="LineNr">3977 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3978" class="LineNr">3978 </span> 55/push-ebp +<span id="L3979" class="LineNr">3979 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3980" class="LineNr">3980 </span> <span class="subxComment"># setup</span> +<span id="L3981" class="LineNr">3981 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L3982" class="LineNr">3982 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3983" class="LineNr">3983 </span> 68/push <span class="Constant">"f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L3984" class="LineNr">3984 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3985" class="LineNr">3985 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3986" class="LineNr">3986 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3987" class="LineNr">3987 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3988" class="LineNr">3988 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3989" class="LineNr">3989 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L3990" class="LineNr">3990 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3991" class="LineNr">3991 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3992" class="LineNr">3992 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L3993" class="LineNr">3993 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3994" class="LineNr">3994 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L3995" class="LineNr">3995 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3996" class="LineNr">3996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3997" class="LineNr">3997 </span> <span class="subxComment"># check output</span> -<span id="L3998" class="LineNr">3998 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3999" class="LineNr">3999 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4000" class="LineNr">4000 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4001" class="LineNr">4001 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4002" class="LineNr">4002 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4003" class="LineNr">4003 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4004" class="LineNr">4004 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4005" class="Folded">4005 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4031" class="LineNr">4031 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 0f ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> -<span id="L4032" class="LineNr">4032 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4033" class="LineNr">4033 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-0f-opcode"</span>/imm32 -<span id="L4034" class="LineNr">4034 </span> 68/push <span class="Constant">"f3 0f ab # f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 -<span id="L4035" class="LineNr">4035 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4036" class="LineNr">4036 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4037" class="LineNr">4037 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4038" class="LineNr">4038 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4039" class="LineNr">4039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4040" class="LineNr">4040 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4041" class="LineNr">4041 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4042" class="LineNr">4042 </span> 5d/pop-to-ebp -<span id="L4043" class="LineNr">4043 </span> c3/return -<span id="L4044" class="LineNr">4044 </span> -<span id="L4045" class="LineNr">4045 </span><span class="subxTest">test-convert-instruction-handles-unused-opcodes</span>: -<span id="L4046" class="LineNr">4046 </span> <span class="subxComment"># if the instruction doesn't start with f2, f3 or 0f, don't include other opcodes</span> -<span id="L4047" class="LineNr">4047 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4048" class="LineNr">4048 </span> 55/push-ebp -<span id="L4049" class="LineNr">4049 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4050" class="LineNr">4050 </span> <span class="subxComment"># setup</span> -<span id="L4051" class="LineNr">4051 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4052" class="LineNr">4052 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4053" class="LineNr">4053 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4054" class="LineNr">4054 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4055" class="LineNr">4055 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4056" class="LineNr">4056 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4057" class="LineNr">4057 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4058" class="LineNr">4058 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4059" class="LineNr">4059 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4060" class="LineNr">4060 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4061" class="LineNr">4061 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4062" class="LineNr">4062 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4063" class="LineNr">4063 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4064" class="LineNr">4064 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4065" class="LineNr">4065 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4066" class="LineNr">4066 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4067" class="LineNr">4067 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4068" class="LineNr">4068 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4069" class="LineNr">4069 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4070" class="LineNr">4070 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4071" class="LineNr">4071 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4072" class="LineNr">4072 </span> <span class="subxComment"># initialize input</span> -<span id="L4073" class="LineNr">4073 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/m1 cd/m2 # comment")</span> +<span id="L3983" class="LineNr">3983 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3984" class="LineNr">3984 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3985" class="LineNr">3985 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3986" class="LineNr">3986 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3987" class="LineNr">3987 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3988" class="LineNr">3988 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3989" class="LineNr">3989 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3990" class="LineNr">3990 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3991" class="LineNr">3991 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3992" class="LineNr">3992 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3993" class="LineNr">3993 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3994" class="LineNr">3994 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3995" class="LineNr">3995 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3996" class="LineNr">3996 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3997" class="LineNr">3997 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3998" class="LineNr">3998 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3999" class="LineNr">3999 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4000" class="LineNr">4000 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4001" class="LineNr">4001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4002" class="LineNr">4002 </span> <span class="subxComment"># initialize input</span> +<span id="L4003" class="LineNr">4003 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 0f/m2 ab/m3 # comment")</span> +<span id="L4004" class="LineNr">4004 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4005" class="LineNr">4005 </span> 68/push <span class="Constant">"f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L4006" class="LineNr">4006 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4007" class="LineNr">4007 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4008" class="LineNr">4008 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4009" class="LineNr">4009 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4010" class="LineNr">4010 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4011" class="LineNr">4011 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4012" class="LineNr">4012 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4013" class="LineNr">4013 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4014" class="LineNr">4014 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4015" class="LineNr">4015 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4016" class="LineNr">4016 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4017" class="LineNr">4017 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4018" class="LineNr">4018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4019" class="LineNr">4019 </span> <span class="subxComment"># check output</span> +<span id="L4020" class="LineNr">4020 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4021" class="LineNr">4021 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4022" class="LineNr">4022 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4023" class="LineNr">4023 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4024" class="LineNr">4024 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4025" class="LineNr">4025 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4026" class="LineNr">4026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4027" class="Folded">4027 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4053" class="LineNr">4053 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 0f ab # f2/m1 0f/m2 ab/m3 # comment", msg)</span> +<span id="L4054" class="LineNr">4054 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4055" class="LineNr">4055 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f2-0f-opcode"</span>/imm32 +<span id="L4056" class="LineNr">4056 </span> 68/push <span class="Constant">"f2 0f ab # f2/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L4057" class="LineNr">4057 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4058" class="LineNr">4058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4059" class="LineNr">4059 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4060" class="LineNr">4060 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4061" class="LineNr">4061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4062" class="LineNr">4062 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4063" class="LineNr">4063 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4064" class="LineNr">4064 </span> 5d/pop-to-ebp +<span id="L4065" class="LineNr">4065 </span> c3/return +<span id="L4066" class="LineNr">4066 </span> +<span id="L4067" class="LineNr">4067 </span><span class="subxTest">test-convert-instruction-handles-f3-0f-opcode</span>: +<span id="L4068" class="LineNr">4068 </span> <span class="subxComment"># if the instruction starts with f3 0f opcode, include a second opcode</span> +<span id="L4069" class="LineNr">4069 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4070" class="LineNr">4070 </span> 55/push-ebp +<span id="L4071" class="LineNr">4071 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4072" class="LineNr">4072 </span> <span class="subxComment"># setup</span> +<span id="L4073" class="LineNr">4073 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4074" class="LineNr">4074 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4075" class="LineNr">4075 </span> 68/push <span class="Constant">"ab/m1 cd/m2 # comment"</span>/imm32 -<span id="L4076" class="LineNr">4076 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4077" class="LineNr">4077 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4078" class="LineNr">4078 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4079" class="LineNr">4079 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4080" class="LineNr">4080 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4081" class="LineNr">4081 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4082" class="LineNr">4082 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4083" class="LineNr">4083 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4084" class="LineNr">4084 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4085" class="LineNr">4085 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4086" class="LineNr">4086 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4087" class="LineNr">4087 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4088" class="LineNr">4088 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4089" class="LineNr">4089 </span> <span class="subxComment"># check output</span> -<span id="L4090" class="LineNr">4090 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4091" class="LineNr">4091 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4092" class="LineNr">4092 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4093" class="LineNr">4093 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4094" class="LineNr">4094 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4095" class="LineNr">4095 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4096" class="LineNr">4096 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4097" class="Folded">4097 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4123" class="LineNr">4123 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> -<span id="L4124" class="LineNr">4124 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4125" class="LineNr">4125 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-opcodes"</span>/imm32 -<span id="L4126" class="LineNr">4126 </span> 68/push <span class="Constant">"ab # ab/m1 cd/m2 # comment"</span>/imm32 -<span id="L4127" class="LineNr">4127 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4128" class="LineNr">4128 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4129" class="LineNr">4129 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4130" class="LineNr">4130 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4131" class="LineNr">4131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4132" class="LineNr">4132 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4133" class="LineNr">4133 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4134" class="LineNr">4134 </span> 5d/pop-to-ebp -<span id="L4135" class="LineNr">4135 </span> c3/return -<span id="L4136" class="LineNr">4136 </span> -<span id="L4137" class="LineNr">4137 </span><span class="subxTest">test-convert-instruction-handles-unused-second-opcodes</span>: -<span id="L4138" class="LineNr">4138 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> -<span id="L4139" class="LineNr">4139 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4140" class="LineNr">4140 </span> 55/push-ebp -<span id="L4141" class="LineNr">4141 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4142" class="LineNr">4142 </span> <span class="subxComment"># setup</span> -<span id="L4143" class="LineNr">4143 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4145" class="LineNr">4145 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4147" class="LineNr">4147 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4148" class="LineNr">4148 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4149" class="LineNr">4149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4150" class="LineNr">4150 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4151" class="LineNr">4151 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4152" class="LineNr">4152 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4153" class="LineNr">4153 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4154" class="LineNr">4154 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4155" class="LineNr">4155 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4156" class="LineNr">4156 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4157" class="LineNr">4157 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4158" class="LineNr">4158 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4159" class="LineNr">4159 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4160" class="LineNr">4160 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4161" class="LineNr">4161 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4162" class="LineNr">4162 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4163" class="LineNr">4163 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4164" class="LineNr">4164 </span> <span class="subxComment"># initialize input</span> -<span id="L4165" class="LineNr">4165 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 cd/m3 # comment")</span> +<span id="L4075" class="LineNr">4075 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4076" class="LineNr">4076 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4077" class="LineNr">4077 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4078" class="LineNr">4078 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4079" class="LineNr">4079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4080" class="LineNr">4080 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4081" class="LineNr">4081 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4082" class="LineNr">4082 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4083" class="LineNr">4083 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4084" class="LineNr">4084 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4085" class="LineNr">4085 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4086" class="LineNr">4086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4087" class="LineNr">4087 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4088" class="LineNr">4088 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4089" class="LineNr">4089 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4090" class="LineNr">4090 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4091" class="LineNr">4091 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4092" class="LineNr">4092 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4093" class="LineNr">4093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4094" class="LineNr">4094 </span> <span class="subxComment"># initialize input</span> +<span id="L4095" class="LineNr">4095 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 0f/m2 ab/m3 # comment")</span> +<span id="L4096" class="LineNr">4096 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4097" class="LineNr">4097 </span> 68/push <span class="Constant">"f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L4098" class="LineNr">4098 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4099" class="LineNr">4099 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4100" class="LineNr">4100 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4101" class="LineNr">4101 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4102" class="LineNr">4102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4103" class="LineNr">4103 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4104" class="LineNr">4104 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4105" class="LineNr">4105 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4106" class="LineNr">4106 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4107" class="LineNr">4107 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4108" class="LineNr">4108 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4109" class="LineNr">4109 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4110" class="LineNr">4110 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4111" class="LineNr">4111 </span> <span class="subxComment"># check output</span> +<span id="L4112" class="LineNr">4112 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4113" class="LineNr">4113 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4114" class="LineNr">4114 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4115" class="LineNr">4115 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4116" class="LineNr">4116 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4117" class="LineNr">4117 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4118" class="LineNr">4118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4119" class="Folded">4119 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4145" class="LineNr">4145 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 0f ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> +<span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4147" class="LineNr">4147 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-f3-0f-opcode"</span>/imm32 +<span id="L4148" class="LineNr">4148 </span> 68/push <span class="Constant">"f3 0f ab # f3/m1 0f/m2 ab/m3 # comment"</span>/imm32 +<span id="L4149" class="LineNr">4149 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4150" class="LineNr">4150 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4151" class="LineNr">4151 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4152" class="LineNr">4152 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4153" class="LineNr">4153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4154" class="LineNr">4154 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4155" class="LineNr">4155 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4156" class="LineNr">4156 </span> 5d/pop-to-ebp +<span id="L4157" class="LineNr">4157 </span> c3/return +<span id="L4158" class="LineNr">4158 </span> +<span id="L4159" class="LineNr">4159 </span><span class="subxTest">test-convert-instruction-handles-unused-opcodes</span>: +<span id="L4160" class="LineNr">4160 </span> <span class="subxComment"># if the instruction doesn't start with f2, f3 or 0f, don't include other opcodes</span> +<span id="L4161" class="LineNr">4161 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4162" class="LineNr">4162 </span> 55/push-ebp +<span id="L4163" class="LineNr">4163 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4164" class="LineNr">4164 </span> <span class="subxComment"># setup</span> +<span id="L4165" class="LineNr">4165 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4166" class="LineNr">4166 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4167" class="LineNr">4167 </span> 68/push <span class="Constant">"f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4168" class="LineNr">4168 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4169" class="LineNr">4169 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4170" class="LineNr">4170 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4171" class="LineNr">4171 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4172" class="LineNr">4172 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4173" class="LineNr">4173 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4174" class="LineNr">4174 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4175" class="LineNr">4175 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4176" class="LineNr">4176 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4177" class="LineNr">4177 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4178" class="LineNr">4178 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4179" class="LineNr">4179 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4180" class="LineNr">4180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4181" class="LineNr">4181 </span> <span class="subxComment"># check output</span> -<span id="L4182" class="LineNr">4182 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4183" class="LineNr">4183 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4184" class="LineNr">4184 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4185" class="LineNr">4185 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4186" class="LineNr">4186 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4187" class="LineNr">4187 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4188" class="LineNr">4188 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4189" class="Folded">4189 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4215" class="LineNr">4215 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 cd/m3 # comment", msg)</span> -<span id="L4216" class="LineNr">4216 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4217" class="LineNr">4217 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 -<span id="L4218" class="LineNr">4218 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4219" class="LineNr">4219 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4220" class="LineNr">4220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4221" class="LineNr">4221 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4222" class="LineNr">4222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4223" class="LineNr">4223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4224" class="LineNr">4224 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4225" class="LineNr">4225 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4226" class="LineNr">4226 </span> 5d/pop-to-ebp -<span id="L4227" class="LineNr">4227 </span> c3/return -<span id="L4228" class="LineNr">4228 </span> -<span id="L4229" class="LineNr">4229 </span><span class="subxTest">test-convert-instruction-handles-unused-second-opcodes-2</span>: -<span id="L4230" class="LineNr">4230 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> -<span id="L4231" class="LineNr">4231 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4232" class="LineNr">4232 </span> 55/push-ebp -<span id="L4233" class="LineNr">4233 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4234" class="LineNr">4234 </span> <span class="subxComment"># setup</span> -<span id="L4235" class="LineNr">4235 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4236" class="LineNr">4236 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4237" class="LineNr">4237 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4238" class="LineNr">4238 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4239" class="LineNr">4239 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4240" class="LineNr">4240 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4241" class="LineNr">4241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4242" class="LineNr">4242 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4244" class="LineNr">4244 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4245" class="LineNr">4245 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4246" class="LineNr">4246 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4247" class="LineNr">4247 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4248" class="LineNr">4248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4249" class="LineNr">4249 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4250" class="LineNr">4250 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4251" class="LineNr">4251 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4252" class="LineNr">4252 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4253" class="LineNr">4253 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4254" class="LineNr">4254 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4255" class="LineNr">4255 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4256" class="LineNr">4256 </span> <span class="subxComment"># initialize input</span> -<span id="L4257" class="LineNr">4257 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 cd/m3 # comment")</span> +<span id="L4167" class="LineNr">4167 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4168" class="LineNr">4168 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4169" class="LineNr">4169 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4170" class="LineNr">4170 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4171" class="LineNr">4171 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4172" class="LineNr">4172 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4173" class="LineNr">4173 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4174" class="LineNr">4174 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4175" class="LineNr">4175 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4176" class="LineNr">4176 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4177" class="LineNr">4177 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4178" class="LineNr">4178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4179" class="LineNr">4179 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4180" class="LineNr">4180 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4181" class="LineNr">4181 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4182" class="LineNr">4182 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4183" class="LineNr">4183 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4184" class="LineNr">4184 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4185" class="LineNr">4185 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4186" class="LineNr">4186 </span> <span class="subxComment"># initialize input</span> +<span id="L4187" class="LineNr">4187 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab/m1 cd/m2 # comment")</span> +<span id="L4188" class="LineNr">4188 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4189" class="LineNr">4189 </span> 68/push <span class="Constant">"ab/m1 cd/m2 # comment"</span>/imm32 +<span id="L4190" class="LineNr">4190 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4191" class="LineNr">4191 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4192" class="LineNr">4192 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4193" class="LineNr">4193 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4194" class="LineNr">4194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4195" class="LineNr">4195 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4196" class="LineNr">4196 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4197" class="LineNr">4197 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4198" class="LineNr">4198 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4199" class="LineNr">4199 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4200" class="LineNr">4200 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4201" class="LineNr">4201 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4202" class="LineNr">4202 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4203" class="LineNr">4203 </span> <span class="subxComment"># check output</span> +<span id="L4204" class="LineNr">4204 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4205" class="LineNr">4205 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4206" class="LineNr">4206 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4207" class="LineNr">4207 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4208" class="LineNr">4208 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4209" class="LineNr">4209 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4210" class="LineNr">4210 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4211" class="Folded">4211 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4237" class="LineNr">4237 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab # f3/m1 0f/m2 ab/m3 # comment", msg)</span> +<span id="L4238" class="LineNr">4238 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4239" class="LineNr">4239 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-opcodes"</span>/imm32 +<span id="L4240" class="LineNr">4240 </span> 68/push <span class="Constant">"ab # ab/m1 cd/m2 # comment"</span>/imm32 +<span id="L4241" class="LineNr">4241 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4242" class="LineNr">4242 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4243" class="LineNr">4243 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4244" class="LineNr">4244 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4245" class="LineNr">4245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4246" class="LineNr">4246 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4247" class="LineNr">4247 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4248" class="LineNr">4248 </span> 5d/pop-to-ebp +<span id="L4249" class="LineNr">4249 </span> c3/return +<span id="L4250" class="LineNr">4250 </span> +<span id="L4251" class="LineNr">4251 </span><span class="subxTest">test-convert-instruction-handles-unused-second-opcodes</span>: +<span id="L4252" class="LineNr">4252 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> +<span id="L4253" class="LineNr">4253 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4254" class="LineNr">4254 </span> 55/push-ebp +<span id="L4255" class="LineNr">4255 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4256" class="LineNr">4256 </span> <span class="subxComment"># setup</span> +<span id="L4257" class="LineNr">4257 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4258" class="LineNr">4258 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4259" class="LineNr">4259 </span> 68/push <span class="Constant">"f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4260" class="LineNr">4260 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4261" class="LineNr">4261 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4262" class="LineNr">4262 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4263" class="LineNr">4263 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4264" class="LineNr">4264 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4265" class="LineNr">4265 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4266" class="LineNr">4266 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4267" class="LineNr">4267 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4268" class="LineNr">4268 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4269" class="LineNr">4269 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4270" class="LineNr">4270 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4271" class="LineNr">4271 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4272" class="LineNr">4272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4273" class="LineNr">4273 </span> <span class="subxComment"># check output</span> -<span id="L4274" class="LineNr">4274 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4275" class="LineNr">4275 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4276" class="LineNr">4276 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4277" class="LineNr">4277 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4278" class="LineNr">4278 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4279" class="LineNr">4279 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4280" class="LineNr">4280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4281" class="Folded">4281 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4307" class="LineNr">4307 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 cd/m3 # comment", msg)</span> -<span id="L4308" class="LineNr">4308 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4309" class="LineNr">4309 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 -<span id="L4310" class="LineNr">4310 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 -<span id="L4311" class="LineNr">4311 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4312" class="LineNr">4312 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4313" class="LineNr">4313 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4314" class="LineNr">4314 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4315" class="LineNr">4315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4316" class="LineNr">4316 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4317" class="LineNr">4317 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4318" class="LineNr">4318 </span> 5d/pop-to-ebp -<span id="L4319" class="LineNr">4319 </span> c3/return -<span id="L4320" class="LineNr">4320 </span> -<span id="L4321" class="LineNr">4321 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte</span>: -<span id="L4322" class="LineNr">4322 </span> <span class="subxComment"># pack mod, rm32 and r32 operands into ModR/M byte</span> -<span id="L4323" class="LineNr">4323 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4324" class="LineNr">4324 </span> 55/push-ebp -<span id="L4325" class="LineNr">4325 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4326" class="LineNr">4326 </span> <span class="subxComment"># setup</span> -<span id="L4327" class="LineNr">4327 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4328" class="LineNr">4328 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4329" class="LineNr">4329 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4330" class="LineNr">4330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4331" class="LineNr">4331 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4332" class="LineNr">4332 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4333" class="LineNr">4333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4334" class="LineNr">4334 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4335" class="LineNr">4335 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4336" class="LineNr">4336 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4337" class="LineNr">4337 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4338" class="LineNr">4338 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4339" class="LineNr">4339 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4340" class="LineNr">4340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4341" class="LineNr">4341 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4342" class="LineNr">4342 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4343" class="LineNr">4343 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4344" class="LineNr">4344 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4345" class="LineNr">4345 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4346" class="LineNr">4346 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4347" class="LineNr">4347 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4348" class="LineNr">4348 </span> <span class="subxComment"># initialize input</span> -<span id="L4349" class="LineNr">4349 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32 1/r32")</span> +<span id="L4259" class="LineNr">4259 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4260" class="LineNr">4260 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4261" class="LineNr">4261 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4262" class="LineNr">4262 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4263" class="LineNr">4263 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4264" class="LineNr">4264 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4265" class="LineNr">4265 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4266" class="LineNr">4266 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4267" class="LineNr">4267 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4268" class="LineNr">4268 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4269" class="LineNr">4269 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4270" class="LineNr">4270 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4271" class="LineNr">4271 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4272" class="LineNr">4272 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4273" class="LineNr">4273 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4274" class="LineNr">4274 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4275" class="LineNr">4275 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4276" class="LineNr">4276 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4277" class="LineNr">4277 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4278" class="LineNr">4278 </span> <span class="subxComment"># initialize input</span> +<span id="L4279" class="LineNr">4279 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f2/m1 ab/m2 cd/m3 # comment")</span> +<span id="L4280" class="LineNr">4280 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4281" class="LineNr">4281 </span> 68/push <span class="Constant">"f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4282" class="LineNr">4282 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4283" class="LineNr">4283 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4284" class="LineNr">4284 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4285" class="LineNr">4285 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4286" class="LineNr">4286 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4287" class="LineNr">4287 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4288" class="LineNr">4288 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4289" class="LineNr">4289 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4290" class="LineNr">4290 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4291" class="LineNr">4291 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4292" class="LineNr">4292 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4293" class="LineNr">4293 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4294" class="LineNr">4294 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4295" class="LineNr">4295 </span> <span class="subxComment"># check output</span> +<span id="L4296" class="LineNr">4296 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4297" class="LineNr">4297 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4298" class="LineNr">4298 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4299" class="LineNr">4299 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4300" class="LineNr">4300 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4301" class="LineNr">4301 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4302" class="LineNr">4302 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4303" class="Folded">4303 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4329" class="LineNr">4329 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f2 ab # f2/m1 ab/m2 cd/m3 # comment", msg)</span> +<span id="L4330" class="LineNr">4330 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4331" class="LineNr">4331 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 +<span id="L4332" class="LineNr">4332 </span> 68/push <span class="Constant">"f2 ab # f2/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4333" class="LineNr">4333 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4334" class="LineNr">4334 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4335" class="LineNr">4335 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4336" class="LineNr">4336 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4337" class="LineNr">4337 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4338" class="LineNr">4338 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4339" class="LineNr">4339 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4340" class="LineNr">4340 </span> 5d/pop-to-ebp +<span id="L4341" class="LineNr">4341 </span> c3/return +<span id="L4342" class="LineNr">4342 </span> +<span id="L4343" class="LineNr">4343 </span><span class="subxTest">test-convert-instruction-handles-unused-second-opcodes-2</span>: +<span id="L4344" class="LineNr">4344 </span> <span class="subxComment"># if the second opcode isn't 0f, don't include further opcodes</span> +<span id="L4345" class="LineNr">4345 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4346" class="LineNr">4346 </span> 55/push-ebp +<span id="L4347" class="LineNr">4347 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4348" class="LineNr">4348 </span> <span class="subxComment"># setup</span> +<span id="L4349" class="LineNr">4349 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4350" class="LineNr">4350 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4351" class="LineNr">4351 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 -<span id="L4352" class="LineNr">4352 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4353" class="LineNr">4353 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4354" class="LineNr">4354 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4355" class="LineNr">4355 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4356" class="LineNr">4356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4357" class="LineNr">4357 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4358" class="LineNr">4358 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4359" class="LineNr">4359 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4360" class="LineNr">4360 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4361" class="LineNr">4361 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4362" class="LineNr">4362 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4363" class="LineNr">4363 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4364" class="LineNr">4364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4365" class="LineNr">4365 </span> <span class="subxComment"># check output</span> -<span id="L4366" class="LineNr">4366 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4367" class="LineNr">4367 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4368" class="LineNr">4368 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4369" class="LineNr">4369 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4370" class="LineNr">4370 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4371" class="LineNr">4371 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4372" class="LineNr">4372 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4373" class="Folded">4373 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4399" class="LineNr">4399 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 0/rm32 1/r32", msg)</span> -<span id="L4400" class="LineNr">4400 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4401" class="LineNr">4401 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte"</span>/imm32 -<span id="L4402" class="LineNr">4402 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 -<span id="L4403" class="LineNr">4403 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4404" class="LineNr">4404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4405" class="LineNr">4405 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4406" class="LineNr">4406 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4407" class="LineNr">4407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4408" class="LineNr">4408 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4409" class="LineNr">4409 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4410" class="LineNr">4410 </span> 5d/pop-to-ebp -<span id="L4411" class="LineNr">4411 </span> c3/return -<span id="L4412" class="LineNr">4412 </span> -<span id="L4413" class="LineNr">4413 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-non-zero-mod</span>: -<span id="L4414" class="LineNr">4414 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4415" class="LineNr">4415 </span> 55/push-ebp -<span id="L4416" class="LineNr">4416 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4417" class="LineNr">4417 </span> <span class="subxComment"># setup</span> -<span id="L4418" class="LineNr">4418 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4419" class="LineNr">4419 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4420" class="LineNr">4420 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4421" class="LineNr">4421 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4422" class="LineNr">4422 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4423" class="LineNr">4423 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4424" class="LineNr">4424 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4425" class="LineNr">4425 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4426" class="LineNr">4426 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4427" class="LineNr">4427 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4428" class="LineNr">4428 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4429" class="LineNr">4429 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4430" class="LineNr">4430 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4431" class="LineNr">4431 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4432" class="LineNr">4432 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4433" class="LineNr">4433 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4434" class="LineNr">4434 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4435" class="LineNr">4435 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4436" class="LineNr">4436 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4437" class="LineNr">4437 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4438" class="LineNr">4438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4439" class="LineNr">4439 </span> <span class="subxComment"># initialize input</span> -<span id="L4440" class="LineNr">4440 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx")</span> -<span id="L4441" class="LineNr">4441 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4442" class="LineNr">4442 </span> 68/push <span class="Constant">"01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 -<span id="L4443" class="LineNr">4443 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4351" class="LineNr">4351 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4352" class="LineNr">4352 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4353" class="LineNr">4353 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4354" class="LineNr">4354 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4355" class="LineNr">4355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4356" class="LineNr">4356 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4357" class="LineNr">4357 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4358" class="LineNr">4358 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4359" class="LineNr">4359 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4360" class="LineNr">4360 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4361" class="LineNr">4361 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4362" class="LineNr">4362 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4363" class="LineNr">4363 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4364" class="LineNr">4364 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4365" class="LineNr">4365 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4366" class="LineNr">4366 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4367" class="LineNr">4367 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4368" class="LineNr">4368 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4369" class="LineNr">4369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4370" class="LineNr">4370 </span> <span class="subxComment"># initialize input</span> +<span id="L4371" class="LineNr">4371 </span> <span class="subxS1Comment"># . write(_test-input-stream, "f3/m1 ab/m2 cd/m3 # comment")</span> +<span id="L4372" class="LineNr">4372 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4373" class="LineNr">4373 </span> 68/push <span class="Constant">"f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4374" class="LineNr">4374 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4375" class="LineNr">4375 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4376" class="LineNr">4376 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4377" class="LineNr">4377 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4378" class="LineNr">4378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4379" class="LineNr">4379 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4380" class="LineNr">4380 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4381" class="LineNr">4381 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4382" class="LineNr">4382 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4383" class="LineNr">4383 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4384" class="LineNr">4384 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4385" class="LineNr">4385 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4386" class="LineNr">4386 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4387" class="LineNr">4387 </span> <span class="subxComment"># check output</span> +<span id="L4388" class="LineNr">4388 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4389" class="LineNr">4389 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4390" class="LineNr">4390 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4391" class="LineNr">4391 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4392" class="LineNr">4392 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4393" class="LineNr">4393 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4394" class="LineNr">4394 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4395" class="Folded">4395 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4421" class="LineNr">4421 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "f3 ab # f3/m1 ab/m2 cd/m3 # comment", msg)</span> +<span id="L4422" class="LineNr">4422 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4423" class="LineNr">4423 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-unused-second-opcodes"</span>/imm32 +<span id="L4424" class="LineNr">4424 </span> 68/push <span class="Constant">"f3 ab # f3/m1 ab/m2 cd/m3 # comment"</span>/imm32 +<span id="L4425" class="LineNr">4425 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4426" class="LineNr">4426 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4427" class="LineNr">4427 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4428" class="LineNr">4428 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4429" class="LineNr">4429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4430" class="LineNr">4430 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4431" class="LineNr">4431 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4432" class="LineNr">4432 </span> 5d/pop-to-ebp +<span id="L4433" class="LineNr">4433 </span> c3/return +<span id="L4434" class="LineNr">4434 </span> +<span id="L4435" class="LineNr">4435 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte</span>: +<span id="L4436" class="LineNr">4436 </span> <span class="subxComment"># pack mod, rm32 and r32 operands into ModR/M byte</span> +<span id="L4437" class="LineNr">4437 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4438" class="LineNr">4438 </span> 55/push-ebp +<span id="L4439" class="LineNr">4439 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4440" class="LineNr">4440 </span> <span class="subxComment"># setup</span> +<span id="L4441" class="LineNr">4441 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4442" class="LineNr">4442 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4443" class="LineNr">4443 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L4444" class="LineNr">4444 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4445" class="LineNr">4445 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L4445" class="LineNr">4445 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L4446" class="LineNr">4446 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4447" class="LineNr">4447 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4448" class="LineNr">4448 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4447" class="LineNr">4447 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4448" class="LineNr">4448 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L4449" class="LineNr">4449 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4450" class="LineNr">4450 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4451" class="LineNr">4451 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4452" class="LineNr">4452 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4453" class="LineNr">4453 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4455" class="LineNr">4455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4456" class="LineNr">4456 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4457" class="LineNr">4457 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4458" class="LineNr">4458 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4459" class="LineNr">4459 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4460" class="LineNr">4460 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4461" class="LineNr">4461 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4462" class="LineNr">4462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4463" class="Folded">4463 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4489" class="LineNr">4489 </span> <span class="subxComment"># check output</span> -<span id="L4490" class="LineNr">4490 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> -<span id="L4491" class="LineNr">4491 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4492" class="LineNr">4492 </span> 68/push <span class="Constant">"F - test-convert-instruction-foo"</span>/imm32 -<span id="L4493" class="LineNr">4493 </span> 68/push <span class="Constant">"01 cb # 01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 -<span id="L4494" class="LineNr">4494 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4495" class="LineNr">4495 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4496" class="LineNr">4496 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4497" class="LineNr">4497 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4498" class="LineNr">4498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4499" class="LineNr">4499 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4500" class="LineNr">4500 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4501" class="LineNr">4501 </span> 5d/pop-to-ebp -<span id="L4502" class="LineNr">4502 </span> c3/return -<span id="L4503" class="LineNr">4503 </span> -<span id="L4504" class="LineNr">4504 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-from-subop</span>: -<span id="L4505" class="LineNr">4505 </span> <span class="subxComment"># pack mod, rm32 and subop operands into ModR/M byte</span> -<span id="L4506" class="LineNr">4506 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4507" class="LineNr">4507 </span> 55/push-ebp -<span id="L4508" class="LineNr">4508 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4509" class="LineNr">4509 </span> <span class="subxComment"># setup</span> -<span id="L4510" class="LineNr">4510 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4511" class="LineNr">4511 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4512" class="LineNr">4512 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4513" class="LineNr">4513 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4514" class="LineNr">4514 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4515" class="LineNr">4515 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4516" class="LineNr">4516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4517" class="LineNr">4517 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4518" class="LineNr">4518 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4519" class="LineNr">4519 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4520" class="LineNr">4520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4521" class="LineNr">4521 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4522" class="LineNr">4522 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4523" class="LineNr">4523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4524" class="LineNr">4524 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4525" class="LineNr">4525 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4526" class="LineNr">4526 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4527" class="LineNr">4527 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4528" class="LineNr">4528 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4529" class="LineNr">4529 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4530" class="LineNr">4530 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4531" class="LineNr">4531 </span> <span class="subxComment"># initialize input</span> -<span id="L4532" class="LineNr">4532 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ff 6/subop/push 0/mod 0/rm32")</span> +<span id="L4450" class="LineNr">4450 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4451" class="LineNr">4451 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4452" class="LineNr">4452 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4453" class="LineNr">4453 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4454" class="LineNr">4454 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4455" class="LineNr">4455 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4456" class="LineNr">4456 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4457" class="LineNr">4457 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4458" class="LineNr">4458 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4459" class="LineNr">4459 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4460" class="LineNr">4460 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4461" class="LineNr">4461 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4462" class="LineNr">4462 </span> <span class="subxComment"># initialize input</span> +<span id="L4463" class="LineNr">4463 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32 1/r32")</span> +<span id="L4464" class="LineNr">4464 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4465" class="LineNr">4465 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 +<span id="L4466" class="LineNr">4466 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4467" class="LineNr">4467 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4468" class="LineNr">4468 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4469" class="LineNr">4469 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4470" class="LineNr">4470 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4471" class="LineNr">4471 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4472" class="LineNr">4472 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4473" class="LineNr">4473 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4474" class="LineNr">4474 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4475" class="LineNr">4475 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4476" class="LineNr">4476 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4477" class="LineNr">4477 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4478" class="LineNr">4478 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4479" class="LineNr">4479 </span> <span class="subxComment"># check output</span> +<span id="L4480" class="LineNr">4480 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4481" class="LineNr">4481 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4482" class="LineNr">4482 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4483" class="LineNr">4483 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4484" class="LineNr">4484 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4485" class="LineNr">4485 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4486" class="LineNr">4486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4487" class="Folded">4487 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4513" class="LineNr">4513 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 0/rm32 1/r32", msg)</span> +<span id="L4514" class="LineNr">4514 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4515" class="LineNr">4515 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte"</span>/imm32 +<span id="L4516" class="LineNr">4516 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 0/rm32 1/r32"</span>/imm32 +<span id="L4517" class="LineNr">4517 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4518" class="LineNr">4518 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4519" class="LineNr">4519 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4520" class="LineNr">4520 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4521" class="LineNr">4521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4522" class="LineNr">4522 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4523" class="LineNr">4523 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4524" class="LineNr">4524 </span> 5d/pop-to-ebp +<span id="L4525" class="LineNr">4525 </span> c3/return +<span id="L4526" class="LineNr">4526 </span> +<span id="L4527" class="LineNr">4527 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-non-zero-mod</span>: +<span id="L4528" class="LineNr">4528 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4529" class="LineNr">4529 </span> 55/push-ebp +<span id="L4530" class="LineNr">4530 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4531" class="LineNr">4531 </span> <span class="subxComment"># setup</span> +<span id="L4532" class="LineNr">4532 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4533" class="LineNr">4533 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4534" class="LineNr">4534 </span> 68/push <span class="Constant">"ff 6/subop/push 0/mod 0/rm32"</span>/imm32 -<span id="L4535" class="LineNr">4535 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4536" class="LineNr">4536 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4537" class="LineNr">4537 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4538" class="LineNr">4538 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4539" class="LineNr">4539 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4540" class="LineNr">4540 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4541" class="LineNr">4541 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4542" class="LineNr">4542 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4543" class="LineNr">4543 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4544" class="LineNr">4544 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4545" class="LineNr">4545 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4546" class="LineNr">4546 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4547" class="LineNr">4547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4548" class="LineNr">4548 </span> <span class="subxComment"># check output</span> -<span id="L4549" class="LineNr">4549 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4550" class="LineNr">4550 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4551" class="LineNr">4551 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4552" class="LineNr">4552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4553" class="LineNr">4553 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4554" class="LineNr">4554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4555" class="LineNr">4555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4556" class="Folded">4556 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4582" class="LineNr">4582 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ff 30 # ff 6/subop/push 0/mod 0/rm32", msg)</span> -<span id="L4583" class="LineNr">4583 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4584" class="LineNr">4584 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-from-subop"</span>/imm32 -<span id="L4585" class="LineNr">4585 </span> 68/push <span class="Constant">"ff 30 # ff 6/subop/push 0/mod 0/rm32"</span>/imm32 -<span id="L4586" class="LineNr">4586 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4587" class="LineNr">4587 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4588" class="LineNr">4588 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4589" class="LineNr">4589 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4590" class="LineNr">4590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4591" class="LineNr">4591 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4592" class="LineNr">4592 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4593" class="LineNr">4593 </span> 5d/pop-to-ebp -<span id="L4594" class="LineNr">4594 </span> c3/return -<span id="L4595" class="LineNr">4595 </span> -<span id="L4596" class="LineNr">4596 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-mod</span>: -<span id="L4597" class="LineNr">4597 </span> <span class="subxComment"># pack rm32 and r32 operands into ModR/M byte</span> -<span id="L4598" class="LineNr">4598 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4599" class="LineNr">4599 </span> 55/push-ebp -<span id="L4600" class="LineNr">4600 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4601" class="LineNr">4601 </span> <span class="subxComment"># setup</span> -<span id="L4602" class="LineNr">4602 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4603" class="LineNr">4603 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4604" class="LineNr">4604 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4605" class="LineNr">4605 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4606" class="LineNr">4606 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4607" class="LineNr">4607 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4608" class="LineNr">4608 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4609" class="LineNr">4609 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4610" class="LineNr">4610 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4611" class="LineNr">4611 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4612" class="LineNr">4612 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4613" class="LineNr">4613 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4614" class="LineNr">4614 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4615" class="LineNr">4615 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4616" class="LineNr">4616 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4617" class="LineNr">4617 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4618" class="LineNr">4618 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4619" class="LineNr">4619 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4620" class="LineNr">4620 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4621" class="LineNr">4621 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4622" class="LineNr">4622 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4623" class="LineNr">4623 </span> <span class="subxComment"># initialize input</span> -<span id="L4624" class="LineNr">4624 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/rm32 1/r32")</span> +<span id="L4534" class="LineNr">4534 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4535" class="LineNr">4535 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4536" class="LineNr">4536 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4537" class="LineNr">4537 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4538" class="LineNr">4538 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4539" class="LineNr">4539 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4540" class="LineNr">4540 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4541" class="LineNr">4541 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4542" class="LineNr">4542 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4543" class="LineNr">4543 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4544" class="LineNr">4544 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4545" class="LineNr">4545 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4546" class="LineNr">4546 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4547" class="LineNr">4547 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4548" class="LineNr">4548 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4549" class="LineNr">4549 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4550" class="LineNr">4550 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4551" class="LineNr">4551 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4552" class="LineNr">4552 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4553" class="LineNr">4553 </span> <span class="subxComment"># initialize input</span> +<span id="L4554" class="LineNr">4554 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx")</span> +<span id="L4555" class="LineNr">4555 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4556" class="LineNr">4556 </span> 68/push <span class="Constant">"01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 +<span id="L4557" class="LineNr">4557 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4558" class="LineNr">4558 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4559" class="LineNr">4559 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4560" class="LineNr">4560 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4561" class="LineNr">4561 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4562" class="LineNr">4562 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4563" class="LineNr">4563 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4564" class="LineNr">4564 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4565" class="LineNr">4565 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4566" class="LineNr">4566 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4567" class="LineNr">4567 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4568" class="LineNr">4568 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4569" class="LineNr">4569 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4570" class="LineNr">4570 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4571" class="LineNr">4571 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4572" class="LineNr">4572 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4573" class="LineNr">4573 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4574" class="LineNr">4574 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4575" class="LineNr">4575 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4576" class="LineNr">4576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4577" class="Folded">4577 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4603" class="LineNr">4603 </span> <span class="subxComment"># check output</span> +<span id="L4604" class="LineNr">4604 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "# abcd", msg)</span> +<span id="L4605" class="LineNr">4605 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4606" class="LineNr">4606 </span> 68/push <span class="Constant">"F - test-convert-instruction-foo"</span>/imm32 +<span id="L4607" class="LineNr">4607 </span> 68/push <span class="Constant">"01 cb # 01/add 3/mod/direct 3/rm32/ebx 1/r32/ecx"</span>/imm32 +<span id="L4608" class="LineNr">4608 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4609" class="LineNr">4609 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4610" class="LineNr">4610 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4611" class="LineNr">4611 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4612" class="LineNr">4612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4613" class="LineNr">4613 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4614" class="LineNr">4614 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4615" class="LineNr">4615 </span> 5d/pop-to-ebp +<span id="L4616" class="LineNr">4616 </span> c3/return +<span id="L4617" class="LineNr">4617 </span> +<span id="L4618" class="LineNr">4618 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-from-subop</span>: +<span id="L4619" class="LineNr">4619 </span> <span class="subxComment"># pack mod, rm32 and subop operands into ModR/M byte</span> +<span id="L4620" class="LineNr">4620 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4621" class="LineNr">4621 </span> 55/push-ebp +<span id="L4622" class="LineNr">4622 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4623" class="LineNr">4623 </span> <span class="subxComment"># setup</span> +<span id="L4624" class="LineNr">4624 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4625" class="LineNr">4625 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4626" class="LineNr">4626 </span> 68/push <span class="Constant">"8b/copy 0/rm32 1/r32"</span>/imm32 -<span id="L4627" class="LineNr">4627 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4628" class="LineNr">4628 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4629" class="LineNr">4629 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4630" class="LineNr">4630 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4631" class="LineNr">4631 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4632" class="LineNr">4632 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4633" class="LineNr">4633 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4634" class="LineNr">4634 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4635" class="LineNr">4635 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4636" class="LineNr">4636 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4637" class="LineNr">4637 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4638" class="LineNr">4638 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4639" class="LineNr">4639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4640" class="LineNr">4640 </span> <span class="subxComment"># check output</span> -<span id="L4641" class="LineNr">4641 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4642" class="LineNr">4642 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4643" class="LineNr">4643 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4644" class="LineNr">4644 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4645" class="LineNr">4645 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4646" class="LineNr">4646 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4647" class="LineNr">4647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4648" class="Folded">4648 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4674" class="LineNr">4674 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/rm32 1/r32", msg)</span> -<span id="L4675" class="LineNr">4675 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4676" class="LineNr">4676 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-mod"</span>/imm32 -<span id="L4677" class="LineNr">4677 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/rm32 1/r32"</span>/imm32 -<span id="L4678" class="LineNr">4678 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4679" class="LineNr">4679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4680" class="LineNr">4680 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4681" class="LineNr">4681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4682" class="LineNr">4682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4683" class="LineNr">4683 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4684" class="LineNr">4684 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4685" class="LineNr">4685 </span> 5d/pop-to-ebp -<span id="L4686" class="LineNr">4686 </span> c3/return -<span id="L4687" class="LineNr">4687 </span> -<span id="L4688" class="LineNr">4688 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-rm32</span>: -<span id="L4689" class="LineNr">4689 </span> <span class="subxComment"># pack mod and r32 operands into ModR/M byte</span> -<span id="L4690" class="LineNr">4690 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4691" class="LineNr">4691 </span> 55/push-ebp -<span id="L4692" class="LineNr">4692 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4693" class="LineNr">4693 </span> <span class="subxComment"># setup</span> -<span id="L4694" class="LineNr">4694 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4695" class="LineNr">4695 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4696" class="LineNr">4696 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4697" class="LineNr">4697 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4698" class="LineNr">4698 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4699" class="LineNr">4699 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4700" class="LineNr">4700 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4701" class="LineNr">4701 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4702" class="LineNr">4702 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4703" class="LineNr">4703 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4704" class="LineNr">4704 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4705" class="LineNr">4705 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4706" class="LineNr">4706 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4707" class="LineNr">4707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4708" class="LineNr">4708 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4709" class="LineNr">4709 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4710" class="LineNr">4710 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4711" class="LineNr">4711 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4712" class="LineNr">4712 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4713" class="LineNr">4713 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4714" class="LineNr">4714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4715" class="LineNr">4715 </span> <span class="subxComment"># initialize input</span> -<span id="L4716" class="LineNr">4716 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 1/r32")</span> +<span id="L4626" class="LineNr">4626 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4627" class="LineNr">4627 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4628" class="LineNr">4628 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4629" class="LineNr">4629 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4630" class="LineNr">4630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4631" class="LineNr">4631 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4632" class="LineNr">4632 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4633" class="LineNr">4633 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4634" class="LineNr">4634 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4635" class="LineNr">4635 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4636" class="LineNr">4636 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4637" class="LineNr">4637 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4638" class="LineNr">4638 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4639" class="LineNr">4639 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4640" class="LineNr">4640 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4641" class="LineNr">4641 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4642" class="LineNr">4642 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4643" class="LineNr">4643 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4644" class="LineNr">4644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4645" class="LineNr">4645 </span> <span class="subxComment"># initialize input</span> +<span id="L4646" class="LineNr">4646 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ff 6/subop/push 0/mod 0/rm32")</span> +<span id="L4647" class="LineNr">4647 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4648" class="LineNr">4648 </span> 68/push <span class="Constant">"ff 6/subop/push 0/mod 0/rm32"</span>/imm32 +<span id="L4649" class="LineNr">4649 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4650" class="LineNr">4650 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4651" class="LineNr">4651 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4652" class="LineNr">4652 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4653" class="LineNr">4653 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4654" class="LineNr">4654 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4655" class="LineNr">4655 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4656" class="LineNr">4656 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4657" class="LineNr">4657 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4658" class="LineNr">4658 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4659" class="LineNr">4659 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4660" class="LineNr">4660 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4661" class="LineNr">4661 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4662" class="LineNr">4662 </span> <span class="subxComment"># check output</span> +<span id="L4663" class="LineNr">4663 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4664" class="LineNr">4664 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4665" class="LineNr">4665 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4666" class="LineNr">4666 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4667" class="LineNr">4667 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4668" class="LineNr">4668 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4669" class="LineNr">4669 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4670" class="Folded">4670 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4696" class="LineNr">4696 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ff 30 # ff 6/subop/push 0/mod 0/rm32", msg)</span> +<span id="L4697" class="LineNr">4697 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4698" class="LineNr">4698 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-from-subop"</span>/imm32 +<span id="L4699" class="LineNr">4699 </span> 68/push <span class="Constant">"ff 30 # ff 6/subop/push 0/mod 0/rm32"</span>/imm32 +<span id="L4700" class="LineNr">4700 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4701" class="LineNr">4701 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4702" class="LineNr">4702 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4703" class="LineNr">4703 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4704" class="LineNr">4704 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4705" class="LineNr">4705 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4706" class="LineNr">4706 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4707" class="LineNr">4707 </span> 5d/pop-to-ebp +<span id="L4708" class="LineNr">4708 </span> c3/return +<span id="L4709" class="LineNr">4709 </span> +<span id="L4710" class="LineNr">4710 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-mod</span>: +<span id="L4711" class="LineNr">4711 </span> <span class="subxComment"># pack rm32 and r32 operands into ModR/M byte</span> +<span id="L4712" class="LineNr">4712 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4713" class="LineNr">4713 </span> 55/push-ebp +<span id="L4714" class="LineNr">4714 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4715" class="LineNr">4715 </span> <span class="subxComment"># setup</span> +<span id="L4716" class="LineNr">4716 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4717" class="LineNr">4717 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4718" class="LineNr">4718 </span> 68/push <span class="Constant">"8b/copy 0/mod 1/r32"</span>/imm32 -<span id="L4719" class="LineNr">4719 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4720" class="LineNr">4720 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4721" class="LineNr">4721 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4722" class="LineNr">4722 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4723" class="LineNr">4723 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4724" class="LineNr">4724 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4725" class="LineNr">4725 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4726" class="LineNr">4726 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4727" class="LineNr">4727 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4728" class="LineNr">4728 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4729" class="LineNr">4729 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4730" class="LineNr">4730 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4731" class="LineNr">4731 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4732" class="LineNr">4732 </span> <span class="subxComment"># check output</span> -<span id="L4733" class="LineNr">4733 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4734" class="LineNr">4734 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4735" class="LineNr">4735 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4736" class="LineNr">4736 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4737" class="LineNr">4737 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4738" class="LineNr">4738 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4739" class="LineNr">4739 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4740" class="Folded">4740 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4766" class="LineNr">4766 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 1/r32", msg)</span> -<span id="L4767" class="LineNr">4767 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4768" class="LineNr">4768 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-rm32"</span>/imm32 -<span id="L4769" class="LineNr">4769 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 1/r32"</span>/imm32 -<span id="L4770" class="LineNr">4770 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4771" class="LineNr">4771 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4772" class="LineNr">4772 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4773" class="LineNr">4773 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4774" class="LineNr">4774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4775" class="LineNr">4775 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4776" class="LineNr">4776 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4777" class="LineNr">4777 </span> 5d/pop-to-ebp -<span id="L4778" class="LineNr">4778 </span> c3/return -<span id="L4779" class="LineNr">4779 </span> -<span id="L4780" class="LineNr">4780 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-r32</span>: -<span id="L4781" class="LineNr">4781 </span> <span class="subxComment"># pack mod and rm32 operands into ModR/M byte</span> -<span id="L4782" class="LineNr">4782 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4783" class="LineNr">4783 </span> 55/push-ebp -<span id="L4784" class="LineNr">4784 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4785" class="LineNr">4785 </span> <span class="subxComment"># setup</span> -<span id="L4786" class="LineNr">4786 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4787" class="LineNr">4787 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4788" class="LineNr">4788 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4789" class="LineNr">4789 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4790" class="LineNr">4790 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4791" class="LineNr">4791 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4792" class="LineNr">4792 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4793" class="LineNr">4793 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4794" class="LineNr">4794 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4795" class="LineNr">4795 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4796" class="LineNr">4796 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4797" class="LineNr">4797 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4798" class="LineNr">4798 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4799" class="LineNr">4799 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4800" class="LineNr">4800 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4801" class="LineNr">4801 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4802" class="LineNr">4802 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4803" class="LineNr">4803 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4804" class="LineNr">4804 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4805" class="LineNr">4805 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4806" class="LineNr">4806 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4807" class="LineNr">4807 </span> <span class="subxComment"># initialize input</span> -<span id="L4808" class="LineNr">4808 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32")</span> +<span id="L4718" class="LineNr">4718 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4719" class="LineNr">4719 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4720" class="LineNr">4720 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4721" class="LineNr">4721 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4722" class="LineNr">4722 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4723" class="LineNr">4723 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4724" class="LineNr">4724 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4725" class="LineNr">4725 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4726" class="LineNr">4726 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4727" class="LineNr">4727 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4728" class="LineNr">4728 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4729" class="LineNr">4729 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4730" class="LineNr">4730 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4731" class="LineNr">4731 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4732" class="LineNr">4732 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4733" class="LineNr">4733 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4734" class="LineNr">4734 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4735" class="LineNr">4735 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4736" class="LineNr">4736 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4737" class="LineNr">4737 </span> <span class="subxComment"># initialize input</span> +<span id="L4738" class="LineNr">4738 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/rm32 1/r32")</span> +<span id="L4739" class="LineNr">4739 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4740" class="LineNr">4740 </span> 68/push <span class="Constant">"8b/copy 0/rm32 1/r32"</span>/imm32 +<span id="L4741" class="LineNr">4741 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4742" class="LineNr">4742 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4743" class="LineNr">4743 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4744" class="LineNr">4744 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4745" class="LineNr">4745 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4746" class="LineNr">4746 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4747" class="LineNr">4747 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4748" class="LineNr">4748 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4749" class="LineNr">4749 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4750" class="LineNr">4750 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4751" class="LineNr">4751 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4752" class="LineNr">4752 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4753" class="LineNr">4753 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4754" class="LineNr">4754 </span> <span class="subxComment"># check output</span> +<span id="L4755" class="LineNr">4755 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4756" class="LineNr">4756 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4757" class="LineNr">4757 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4758" class="LineNr">4758 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4759" class="LineNr">4759 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4760" class="LineNr">4760 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4761" class="LineNr">4761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4762" class="Folded">4762 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4788" class="LineNr">4788 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/rm32 1/r32", msg)</span> +<span id="L4789" class="LineNr">4789 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4790" class="LineNr">4790 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-mod"</span>/imm32 +<span id="L4791" class="LineNr">4791 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/rm32 1/r32"</span>/imm32 +<span id="L4792" class="LineNr">4792 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4793" class="LineNr">4793 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4794" class="LineNr">4794 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4795" class="LineNr">4795 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4796" class="LineNr">4796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4797" class="LineNr">4797 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4798" class="LineNr">4798 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4799" class="LineNr">4799 </span> 5d/pop-to-ebp +<span id="L4800" class="LineNr">4800 </span> c3/return +<span id="L4801" class="LineNr">4801 </span> +<span id="L4802" class="LineNr">4802 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-rm32</span>: +<span id="L4803" class="LineNr">4803 </span> <span class="subxComment"># pack mod and r32 operands into ModR/M byte</span> +<span id="L4804" class="LineNr">4804 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4805" class="LineNr">4805 </span> 55/push-ebp +<span id="L4806" class="LineNr">4806 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4807" class="LineNr">4807 </span> <span class="subxComment"># setup</span> +<span id="L4808" class="LineNr">4808 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4809" class="LineNr">4809 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4810" class="LineNr">4810 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32"</span>/imm32 -<span id="L4811" class="LineNr">4811 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4812" class="LineNr">4812 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4813" class="LineNr">4813 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4814" class="LineNr">4814 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4815" class="LineNr">4815 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4816" class="LineNr">4816 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4817" class="LineNr">4817 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4818" class="LineNr">4818 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4819" class="LineNr">4819 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4820" class="LineNr">4820 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4821" class="LineNr">4821 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4822" class="LineNr">4822 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4823" class="LineNr">4823 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4824" class="LineNr">4824 </span> <span class="subxComment"># check output</span> -<span id="L4825" class="LineNr">4825 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4826" class="LineNr">4826 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4827" class="LineNr">4827 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4828" class="LineNr">4828 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4829" class="LineNr">4829 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4830" class="LineNr">4830 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4831" class="LineNr">4831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4832" class="Folded">4832 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4858" class="LineNr">4858 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 00 # 8b/copy 0/mod 0/rm32", msg)</span> -<span id="L4859" class="LineNr">4859 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4860" class="LineNr">4860 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-r32"</span>/imm32 -<span id="L4861" class="LineNr">4861 </span> 68/push <span class="Constant">"8b 00 # 8b/copy 0/mod 0/rm32"</span>/imm32 -<span id="L4862" class="LineNr">4862 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4863" class="LineNr">4863 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4864" class="LineNr">4864 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4865" class="LineNr">4865 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4866" class="LineNr">4866 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4867" class="LineNr">4867 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4868" class="LineNr">4868 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4869" class="LineNr">4869 </span> 5d/pop-to-ebp -<span id="L4870" class="LineNr">4870 </span> c3/return -<span id="L4871" class="LineNr">4871 </span> -<span id="L4872" class="LineNr">4872 </span><span class="subxTest">test-convert-instruction-emits-sib-byte</span>: -<span id="L4873" class="LineNr">4873 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> -<span id="L4874" class="LineNr">4874 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4875" class="LineNr">4875 </span> 55/push-ebp -<span id="L4876" class="LineNr">4876 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4877" class="LineNr">4877 </span> <span class="subxComment"># setup</span> -<span id="L4878" class="LineNr">4878 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4879" class="LineNr">4879 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4880" class="LineNr">4880 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4881" class="LineNr">4881 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4882" class="LineNr">4882 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4883" class="LineNr">4883 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4884" class="LineNr">4884 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4885" class="LineNr">4885 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4886" class="LineNr">4886 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4887" class="LineNr">4887 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4888" class="LineNr">4888 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4889" class="LineNr">4889 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4890" class="LineNr">4890 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4891" class="LineNr">4891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4892" class="LineNr">4892 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4893" class="LineNr">4893 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4894" class="LineNr">4894 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4895" class="LineNr">4895 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4896" class="LineNr">4896 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4897" class="LineNr">4897 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4898" class="LineNr">4898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4899" class="LineNr">4899 </span> <span class="subxComment"># initialize input</span> -<span id="L4900" class="LineNr">4900 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale")</span> +<span id="L4810" class="LineNr">4810 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4811" class="LineNr">4811 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4812" class="LineNr">4812 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4813" class="LineNr">4813 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4814" class="LineNr">4814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4815" class="LineNr">4815 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4816" class="LineNr">4816 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4817" class="LineNr">4817 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4818" class="LineNr">4818 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4819" class="LineNr">4819 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4820" class="LineNr">4820 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4821" class="LineNr">4821 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4822" class="LineNr">4822 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4823" class="LineNr">4823 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4824" class="LineNr">4824 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4825" class="LineNr">4825 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4826" class="LineNr">4826 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4827" class="LineNr">4827 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4828" class="LineNr">4828 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4829" class="LineNr">4829 </span> <span class="subxComment"># initialize input</span> +<span id="L4830" class="LineNr">4830 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 1/r32")</span> +<span id="L4831" class="LineNr">4831 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4832" class="LineNr">4832 </span> 68/push <span class="Constant">"8b/copy 0/mod 1/r32"</span>/imm32 +<span id="L4833" class="LineNr">4833 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4834" class="LineNr">4834 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4835" class="LineNr">4835 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4836" class="LineNr">4836 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4837" class="LineNr">4837 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4838" class="LineNr">4838 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4839" class="LineNr">4839 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4840" class="LineNr">4840 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4841" class="LineNr">4841 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4842" class="LineNr">4842 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4843" class="LineNr">4843 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4844" class="LineNr">4844 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4845" class="LineNr">4845 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4846" class="LineNr">4846 </span> <span class="subxComment"># check output</span> +<span id="L4847" class="LineNr">4847 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4848" class="LineNr">4848 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4849" class="LineNr">4849 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4850" class="LineNr">4850 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4851" class="LineNr">4851 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4852" class="LineNr">4852 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4853" class="LineNr">4853 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4854" class="Folded">4854 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4880" class="LineNr">4880 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 1/r32", msg)</span> +<span id="L4881" class="LineNr">4881 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4882" class="LineNr">4882 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-rm32"</span>/imm32 +<span id="L4883" class="LineNr">4883 </span> 68/push <span class="Constant">"8b 08 # 8b/copy 0/mod 1/r32"</span>/imm32 +<span id="L4884" class="LineNr">4884 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4885" class="LineNr">4885 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4886" class="LineNr">4886 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4887" class="LineNr">4887 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4888" class="LineNr">4888 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4889" class="LineNr">4889 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4890" class="LineNr">4890 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4891" class="LineNr">4891 </span> 5d/pop-to-ebp +<span id="L4892" class="LineNr">4892 </span> c3/return +<span id="L4893" class="LineNr">4893 </span> +<span id="L4894" class="LineNr">4894 </span><span class="subxTest">test-convert-instruction-emits-modrm-byte-with-missing-r32</span>: +<span id="L4895" class="LineNr">4895 </span> <span class="subxComment"># pack mod and rm32 operands into ModR/M byte</span> +<span id="L4896" class="LineNr">4896 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4897" class="LineNr">4897 </span> 55/push-ebp +<span id="L4898" class="LineNr">4898 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4899" class="LineNr">4899 </span> <span class="subxComment"># setup</span> +<span id="L4900" class="LineNr">4900 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4901" class="LineNr">4901 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4902" class="LineNr">4902 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 -<span id="L4903" class="LineNr">4903 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4904" class="LineNr">4904 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4905" class="LineNr">4905 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4906" class="LineNr">4906 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4907" class="LineNr">4907 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4908" class="LineNr">4908 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L4909" class="LineNr">4909 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4910" class="LineNr">4910 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4911" class="LineNr">4911 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4912" class="LineNr">4912 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4913" class="LineNr">4913 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L4914" class="LineNr">4914 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4915" class="LineNr">4915 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4916" class="LineNr">4916 </span> <span class="subxComment"># check output</span> -<span id="L4917" class="LineNr">4917 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L4918" class="LineNr">4918 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4919" class="LineNr">4919 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L4920" class="LineNr">4920 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4921" class="LineNr">4921 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4922" class="LineNr">4922 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4923" class="LineNr">4923 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4924" class="Folded">4924 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4950" class="LineNr">4950 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale", msg)</span> -<span id="L4951" class="LineNr">4951 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4952" class="LineNr">4952 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte"</span>/imm32 -<span id="L4953" class="LineNr">4953 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 -<span id="L4954" class="LineNr">4954 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4955" class="LineNr">4955 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4956" class="LineNr">4956 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L4957" class="LineNr">4957 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4958" class="LineNr">4958 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4959" class="LineNr">4959 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4960" class="LineNr">4960 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4961" class="LineNr">4961 </span> 5d/pop-to-ebp -<span id="L4962" class="LineNr">4962 </span> c3/return -<span id="L4963" class="LineNr">4963 </span> -<span id="L4964" class="LineNr">4964 </span><span class="subxTest">test-convert-instruction-emits-scale</span>: -<span id="L4965" class="LineNr">4965 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> -<span id="L4966" class="LineNr">4966 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4967" class="LineNr">4967 </span> 55/push-ebp -<span id="L4968" class="LineNr">4968 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4969" class="LineNr">4969 </span> <span class="subxComment"># setup</span> -<span id="L4970" class="LineNr">4970 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4971" class="LineNr">4971 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4972" class="LineNr">4972 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4973" class="LineNr">4973 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4974" class="LineNr">4974 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4975" class="LineNr">4975 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4976" class="LineNr">4976 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4977" class="LineNr">4977 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4978" class="LineNr">4978 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4979" class="LineNr">4979 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4980" class="LineNr">4980 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4981" class="LineNr">4981 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4982" class="LineNr">4982 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4983" class="LineNr">4983 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4984" class="LineNr">4984 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L4985" class="LineNr">4985 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4986" class="LineNr">4986 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L4987" class="LineNr">4987 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4988" class="LineNr">4988 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4989" class="LineNr">4989 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4990" class="LineNr">4990 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4991" class="LineNr">4991 </span> <span class="subxComment"># initialize input</span> -<span id="L4992" class="LineNr">4992 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/scale")</span> +<span id="L4902" class="LineNr">4902 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4903" class="LineNr">4903 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4904" class="LineNr">4904 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4905" class="LineNr">4905 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4906" class="LineNr">4906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4907" class="LineNr">4907 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4908" class="LineNr">4908 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4909" class="LineNr">4909 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4910" class="LineNr">4910 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4911" class="LineNr">4911 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4912" class="LineNr">4912 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4913" class="LineNr">4913 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4914" class="LineNr">4914 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L4915" class="LineNr">4915 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4916" class="LineNr">4916 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L4917" class="LineNr">4917 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4918" class="LineNr">4918 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4919" class="LineNr">4919 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4920" class="LineNr">4920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4921" class="LineNr">4921 </span> <span class="subxComment"># initialize input</span> +<span id="L4922" class="LineNr">4922 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 0/rm32")</span> +<span id="L4923" class="LineNr">4923 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4924" class="LineNr">4924 </span> 68/push <span class="Constant">"8b/copy 0/mod 0/rm32"</span>/imm32 +<span id="L4925" class="LineNr">4925 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4926" class="LineNr">4926 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4927" class="LineNr">4927 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4928" class="LineNr">4928 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4929" class="LineNr">4929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4930" class="LineNr">4930 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L4931" class="LineNr">4931 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4932" class="LineNr">4932 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4933" class="LineNr">4933 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4934" class="LineNr">4934 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4935" class="LineNr">4935 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L4936" class="LineNr">4936 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4937" class="LineNr">4937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4938" class="LineNr">4938 </span> <span class="subxComment"># check output</span> +<span id="L4939" class="LineNr">4939 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L4940" class="LineNr">4940 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4941" class="LineNr">4941 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L4942" class="LineNr">4942 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4943" class="LineNr">4943 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4944" class="LineNr">4944 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4945" class="LineNr">4945 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4946" class="Folded">4946 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4972" class="LineNr">4972 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 00 # 8b/copy 0/mod 0/rm32", msg)</span> +<span id="L4973" class="LineNr">4973 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4974" class="LineNr">4974 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-modrm-byte-with-missing-r32"</span>/imm32 +<span id="L4975" class="LineNr">4975 </span> 68/push <span class="Constant">"8b 00 # 8b/copy 0/mod 0/rm32"</span>/imm32 +<span id="L4976" class="LineNr">4976 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4977" class="LineNr">4977 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4978" class="LineNr">4978 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L4979" class="LineNr">4979 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4980" class="LineNr">4980 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4981" class="LineNr">4981 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4982" class="LineNr">4982 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4983" class="LineNr">4983 </span> 5d/pop-to-ebp +<span id="L4984" class="LineNr">4984 </span> c3/return +<span id="L4985" class="LineNr">4985 </span> +<span id="L4986" class="LineNr">4986 </span><span class="subxTest">test-convert-instruction-emits-sib-byte</span>: +<span id="L4987" class="LineNr">4987 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> +<span id="L4988" class="LineNr">4988 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4989" class="LineNr">4989 </span> 55/push-ebp +<span id="L4990" class="LineNr">4990 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4991" class="LineNr">4991 </span> <span class="subxComment"># setup</span> +<span id="L4992" class="LineNr">4992 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L4993" class="LineNr">4993 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4994" class="LineNr">4994 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 -<span id="L4995" class="LineNr">4995 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4996" class="LineNr">4996 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4997" class="LineNr">4997 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4998" class="LineNr">4998 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4999" class="LineNr">4999 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5000" class="LineNr">5000 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5001" class="LineNr">5001 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5002" class="LineNr">5002 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5003" class="LineNr">5003 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5004" class="LineNr">5004 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5005" class="LineNr">5005 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5006" class="LineNr">5006 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5007" class="LineNr">5007 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5008" class="LineNr">5008 </span> <span class="subxComment"># check output</span> -<span id="L5009" class="LineNr">5009 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5010" class="LineNr">5010 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5011" class="LineNr">5011 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5012" class="LineNr">5012 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5013" class="LineNr">5013 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5014" class="LineNr">5014 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5015" class="LineNr">5015 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5016" class="Folded">5016 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5042" class="LineNr">5042 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale", msg)</span> -<span id="L5043" class="LineNr">5043 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5044" class="LineNr">5044 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-scale"</span>/imm32 -<span id="L5045" class="LineNr">5045 </span> 68/push <span class="Constant">"8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 -<span id="L5046" class="LineNr">5046 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5047" class="LineNr">5047 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5048" class="LineNr">5048 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5049" class="LineNr">5049 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5050" class="LineNr">5050 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5051" class="LineNr">5051 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5052" class="LineNr">5052 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5053" class="LineNr">5053 </span> 5d/pop-to-ebp -<span id="L5054" class="LineNr">5054 </span> c3/return -<span id="L5055" class="LineNr">5055 </span> -<span id="L5056" class="LineNr">5056 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-base</span>: -<span id="L5057" class="LineNr">5057 </span> <span class="subxComment"># pack index and scale operands into SIB byte</span> -<span id="L5058" class="LineNr">5058 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5059" class="LineNr">5059 </span> 55/push-ebp -<span id="L5060" class="LineNr">5060 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5061" class="LineNr">5061 </span> <span class="subxComment"># setup</span> -<span id="L5062" class="LineNr">5062 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5063" class="LineNr">5063 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5064" class="LineNr">5064 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5065" class="LineNr">5065 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5066" class="LineNr">5066 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5067" class="LineNr">5067 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5068" class="LineNr">5068 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5069" class="LineNr">5069 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5070" class="LineNr">5070 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5071" class="LineNr">5071 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5072" class="LineNr">5072 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5073" class="LineNr">5073 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5074" class="LineNr">5074 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5075" class="LineNr">5075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5076" class="LineNr">5076 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5077" class="LineNr">5077 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5078" class="LineNr">5078 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5079" class="LineNr">5079 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5080" class="LineNr">5080 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5081" class="LineNr">5081 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5082" class="LineNr">5082 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5083" class="LineNr">5083 </span> <span class="subxComment"># initialize input</span> -<span id="L5084" class="LineNr">5084 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale")</span> +<span id="L4994" class="LineNr">4994 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4995" class="LineNr">4995 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4996" class="LineNr">4996 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4997" class="LineNr">4997 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4998" class="LineNr">4998 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4999" class="LineNr">4999 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5000" class="LineNr">5000 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5001" class="LineNr">5001 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5002" class="LineNr">5002 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5003" class="LineNr">5003 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5004" class="LineNr">5004 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5005" class="LineNr">5005 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5006" class="LineNr">5006 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5007" class="LineNr">5007 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5008" class="LineNr">5008 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5009" class="LineNr">5009 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5010" class="LineNr">5010 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5011" class="LineNr">5011 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5012" class="LineNr">5012 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5013" class="LineNr">5013 </span> <span class="subxComment"># initialize input</span> +<span id="L5014" class="LineNr">5014 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale")</span> +<span id="L5015" class="LineNr">5015 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5016" class="LineNr">5016 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 +<span id="L5017" class="LineNr">5017 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5018" class="LineNr">5018 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5019" class="LineNr">5019 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5020" class="LineNr">5020 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5021" class="LineNr">5021 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5022" class="LineNr">5022 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5023" class="LineNr">5023 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5024" class="LineNr">5024 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5025" class="LineNr">5025 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5026" class="LineNr">5026 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5027" class="LineNr">5027 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5028" class="LineNr">5028 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5029" class="LineNr">5029 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5030" class="LineNr">5030 </span> <span class="subxComment"># check output</span> +<span id="L5031" class="LineNr">5031 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5032" class="LineNr">5032 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5033" class="LineNr">5033 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5034" class="LineNr">5034 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5035" class="LineNr">5035 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5036" class="LineNr">5036 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5037" class="LineNr">5037 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5038" class="Folded">5038 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5064" class="LineNr">5064 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale", msg)</span> +<span id="L5065" class="LineNr">5065 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5066" class="LineNr">5066 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte"</span>/imm32 +<span id="L5067" class="LineNr">5067 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index 0/scale"</span>/imm32 +<span id="L5068" class="LineNr">5068 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5069" class="LineNr">5069 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5070" class="LineNr">5070 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5071" class="LineNr">5071 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5072" class="LineNr">5072 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5073" class="LineNr">5073 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5074" class="LineNr">5074 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5075" class="LineNr">5075 </span> 5d/pop-to-ebp +<span id="L5076" class="LineNr">5076 </span> c3/return +<span id="L5077" class="LineNr">5077 </span> +<span id="L5078" class="LineNr">5078 </span><span class="subxTest">test-convert-instruction-emits-scale</span>: +<span id="L5079" class="LineNr">5079 </span> <span class="subxComment"># pack base, index and scale operands into SIB byte</span> +<span id="L5080" class="LineNr">5080 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5081" class="LineNr">5081 </span> 55/push-ebp +<span id="L5082" class="LineNr">5082 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5083" class="LineNr">5083 </span> <span class="subxComment"># setup</span> +<span id="L5084" class="LineNr">5084 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5085" class="LineNr">5085 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5086" class="LineNr">5086 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 -<span id="L5087" class="LineNr">5087 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5088" class="LineNr">5088 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5089" class="LineNr">5089 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5090" class="LineNr">5090 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5091" class="LineNr">5091 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5092" class="LineNr">5092 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5093" class="LineNr">5093 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5094" class="LineNr">5094 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5095" class="LineNr">5095 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5096" class="LineNr">5096 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5097" class="LineNr">5097 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5098" class="LineNr">5098 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5099" class="LineNr">5099 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5100" class="LineNr">5100 </span> <span class="subxComment"># check output</span> -<span id="L5101" class="LineNr">5101 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5102" class="LineNr">5102 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5103" class="LineNr">5103 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5104" class="LineNr">5104 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5105" class="LineNr">5105 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5106" class="LineNr">5106 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5107" class="LineNr">5107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5108" class="Folded">5108 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5134" class="LineNr">5134 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale", msg)</span> -<span id="L5135" class="LineNr">5135 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5136" class="LineNr">5136 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-base"</span>/imm32 -<span id="L5137" class="LineNr">5137 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 -<span id="L5138" class="LineNr">5138 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5139" class="LineNr">5139 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5140" class="LineNr">5140 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5141" class="LineNr">5141 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5142" class="LineNr">5142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5143" class="LineNr">5143 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5144" class="LineNr">5144 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5145" class="LineNr">5145 </span> 5d/pop-to-ebp -<span id="L5146" class="LineNr">5146 </span> c3/return -<span id="L5147" class="LineNr">5147 </span> -<span id="L5148" class="LineNr">5148 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-index</span>: -<span id="L5149" class="LineNr">5149 </span> <span class="subxComment"># pack base and scale operands into SIB byte</span> -<span id="L5150" class="LineNr">5150 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5151" class="LineNr">5151 </span> 55/push-ebp -<span id="L5152" class="LineNr">5152 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5153" class="LineNr">5153 </span> <span class="subxComment"># setup</span> -<span id="L5154" class="LineNr">5154 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5155" class="LineNr">5155 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5156" class="LineNr">5156 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5157" class="LineNr">5157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5158" class="LineNr">5158 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5159" class="LineNr">5159 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5160" class="LineNr">5160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5161" class="LineNr">5161 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5162" class="LineNr">5162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5163" class="LineNr">5163 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5164" class="LineNr">5164 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5165" class="LineNr">5165 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5166" class="LineNr">5166 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5167" class="LineNr">5167 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5168" class="LineNr">5168 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5169" class="LineNr">5169 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5170" class="LineNr">5170 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5171" class="LineNr">5171 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5172" class="LineNr">5172 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5173" class="LineNr">5173 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5174" class="LineNr">5174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5175" class="LineNr">5175 </span> <span class="subxComment"># initialize input</span> -<span id="L5176" class="LineNr">5176 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale")</span> +<span id="L5086" class="LineNr">5086 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5087" class="LineNr">5087 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5088" class="LineNr">5088 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5089" class="LineNr">5089 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5090" class="LineNr">5090 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5091" class="LineNr">5091 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5092" class="LineNr">5092 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5093" class="LineNr">5093 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5094" class="LineNr">5094 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5095" class="LineNr">5095 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5096" class="LineNr">5096 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5097" class="LineNr">5097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5098" class="LineNr">5098 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5099" class="LineNr">5099 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5100" class="LineNr">5100 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5101" class="LineNr">5101 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5102" class="LineNr">5102 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5103" class="LineNr">5103 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5104" class="LineNr">5104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5105" class="LineNr">5105 </span> <span class="subxComment"># initialize input</span> +<span id="L5106" class="LineNr">5106 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/scale")</span> +<span id="L5107" class="LineNr">5107 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5108" class="LineNr">5108 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 +<span id="L5109" class="LineNr">5109 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5110" class="LineNr">5110 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5111" class="LineNr">5111 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5112" class="LineNr">5112 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5113" class="LineNr">5113 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5114" class="LineNr">5114 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5115" class="LineNr">5115 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5116" class="LineNr">5116 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5117" class="LineNr">5117 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5118" class="LineNr">5118 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5119" class="LineNr">5119 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5120" class="LineNr">5120 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5121" class="LineNr">5121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5122" class="LineNr">5122 </span> <span class="subxComment"># check output</span> +<span id="L5123" class="LineNr">5123 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5124" class="LineNr">5124 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5125" class="LineNr">5125 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5126" class="LineNr">5126 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5127" class="LineNr">5127 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5128" class="LineNr">5128 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5129" class="LineNr">5129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5130" class="Folded">5130 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5156" class="LineNr">5156 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale", msg)</span> +<span id="L5157" class="LineNr">5157 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5158" class="LineNr">5158 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-scale"</span>/imm32 +<span id="L5159" class="LineNr">5159 </span> 68/push <span class="Constant">"8b 04 40 # 8b/copy 0/mod 4/rm32 1/scale"</span>/imm32 +<span id="L5160" class="LineNr">5160 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5161" class="LineNr">5161 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5162" class="LineNr">5162 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5163" class="LineNr">5163 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5164" class="LineNr">5164 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5165" class="LineNr">5165 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5166" class="LineNr">5166 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5167" class="LineNr">5167 </span> 5d/pop-to-ebp +<span id="L5168" class="LineNr">5168 </span> c3/return +<span id="L5169" class="LineNr">5169 </span> +<span id="L5170" class="LineNr">5170 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-base</span>: +<span id="L5171" class="LineNr">5171 </span> <span class="subxComment"># pack index and scale operands into SIB byte</span> +<span id="L5172" class="LineNr">5172 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5173" class="LineNr">5173 </span> 55/push-ebp +<span id="L5174" class="LineNr">5174 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5175" class="LineNr">5175 </span> <span class="subxComment"># setup</span> +<span id="L5176" class="LineNr">5176 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5177" class="LineNr">5177 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5178" class="LineNr">5178 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 -<span id="L5179" class="LineNr">5179 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5180" class="LineNr">5180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5181" class="LineNr">5181 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5182" class="LineNr">5182 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5183" class="LineNr">5183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5184" class="LineNr">5184 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5185" class="LineNr">5185 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5186" class="LineNr">5186 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5187" class="LineNr">5187 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5188" class="LineNr">5188 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5189" class="LineNr">5189 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5190" class="LineNr">5190 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5191" class="LineNr">5191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5192" class="LineNr">5192 </span> <span class="subxComment"># check output</span> -<span id="L5193" class="LineNr">5193 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5194" class="LineNr">5194 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5195" class="LineNr">5195 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5196" class="LineNr">5196 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5197" class="LineNr">5197 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5198" class="LineNr">5198 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5199" class="LineNr">5199 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5200" class="Folded">5200 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5226" class="LineNr">5226 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale", msg)</span> -<span id="L5227" class="LineNr">5227 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5228" class="LineNr">5228 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-index"</span>/imm32 -<span id="L5229" class="LineNr">5229 </span> 68/push <span class="Constant">"8b 0c 00 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 -<span id="L5230" class="LineNr">5230 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5231" class="LineNr">5231 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5232" class="LineNr">5232 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5233" class="LineNr">5233 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5234" class="LineNr">5234 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5235" class="LineNr">5235 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5236" class="LineNr">5236 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5237" class="LineNr">5237 </span> 5d/pop-to-ebp -<span id="L5238" class="LineNr">5238 </span> c3/return -<span id="L5239" class="LineNr">5239 </span> -<span id="L5240" class="LineNr">5240 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-scale</span>: -<span id="L5241" class="LineNr">5241 </span> <span class="subxComment"># pack base and index operands into SIB byte</span> -<span id="L5242" class="LineNr">5242 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5243" class="LineNr">5243 </span> 55/push-ebp -<span id="L5244" class="LineNr">5244 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5245" class="LineNr">5245 </span> <span class="subxComment"># setup</span> -<span id="L5246" class="LineNr">5246 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5247" class="LineNr">5247 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5248" class="LineNr">5248 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5249" class="LineNr">5249 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5250" class="LineNr">5250 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5251" class="LineNr">5251 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5252" class="LineNr">5252 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5253" class="LineNr">5253 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5254" class="LineNr">5254 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5255" class="LineNr">5255 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5256" class="LineNr">5256 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5257" class="LineNr">5257 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5258" class="LineNr">5258 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5259" class="LineNr">5259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5260" class="LineNr">5260 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5261" class="LineNr">5261 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5262" class="LineNr">5262 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5263" class="LineNr">5263 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5264" class="LineNr">5264 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5265" class="LineNr">5265 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5266" class="LineNr">5266 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5267" class="LineNr">5267 </span> <span class="subxComment"># initialize input</span> -<span id="L5268" class="LineNr">5268 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index")</span> +<span id="L5178" class="LineNr">5178 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5179" class="LineNr">5179 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5180" class="LineNr">5180 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5181" class="LineNr">5181 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5182" class="LineNr">5182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5183" class="LineNr">5183 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5184" class="LineNr">5184 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5185" class="LineNr">5185 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5186" class="LineNr">5186 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5187" class="LineNr">5187 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5188" class="LineNr">5188 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5189" class="LineNr">5189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5190" class="LineNr">5190 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5191" class="LineNr">5191 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5192" class="LineNr">5192 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5193" class="LineNr">5193 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5194" class="LineNr">5194 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5195" class="LineNr">5195 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5196" class="LineNr">5196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5197" class="LineNr">5197 </span> <span class="subxComment"># initialize input</span> +<span id="L5198" class="LineNr">5198 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale")</span> +<span id="L5199" class="LineNr">5199 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5200" class="LineNr">5200 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 +<span id="L5201" class="LineNr">5201 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5202" class="LineNr">5202 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5203" class="LineNr">5203 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5204" class="LineNr">5204 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5205" class="LineNr">5205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5206" class="LineNr">5206 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5207" class="LineNr">5207 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5208" class="LineNr">5208 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5209" class="LineNr">5209 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5210" class="LineNr">5210 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5211" class="LineNr">5211 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5212" class="LineNr">5212 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5213" class="LineNr">5213 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5214" class="LineNr">5214 </span> <span class="subxComment"># check output</span> +<span id="L5215" class="LineNr">5215 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5216" class="LineNr">5216 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5217" class="LineNr">5217 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5218" class="LineNr">5218 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5219" class="LineNr">5219 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5220" class="LineNr">5220 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5221" class="LineNr">5221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5222" class="Folded">5222 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5248" class="LineNr">5248 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale", msg)</span> +<span id="L5249" class="LineNr">5249 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5250" class="LineNr">5250 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-base"</span>/imm32 +<span id="L5251" class="LineNr">5251 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 1/index 0/scale"</span>/imm32 +<span id="L5252" class="LineNr">5252 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5253" class="LineNr">5253 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5254" class="LineNr">5254 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5255" class="LineNr">5255 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5256" class="LineNr">5256 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5257" class="LineNr">5257 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5258" class="LineNr">5258 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5259" class="LineNr">5259 </span> 5d/pop-to-ebp +<span id="L5260" class="LineNr">5260 </span> c3/return +<span id="L5261" class="LineNr">5261 </span> +<span id="L5262" class="LineNr">5262 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-index</span>: +<span id="L5263" class="LineNr">5263 </span> <span class="subxComment"># pack base and scale operands into SIB byte</span> +<span id="L5264" class="LineNr">5264 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5265" class="LineNr">5265 </span> 55/push-ebp +<span id="L5266" class="LineNr">5266 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5267" class="LineNr">5267 </span> <span class="subxComment"># setup</span> +<span id="L5268" class="LineNr">5268 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5269" class="LineNr">5269 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5270" class="LineNr">5270 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 -<span id="L5271" class="LineNr">5271 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5272" class="LineNr">5272 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5273" class="LineNr">5273 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5274" class="LineNr">5274 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5275" class="LineNr">5275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5276" class="LineNr">5276 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5277" class="LineNr">5277 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5278" class="LineNr">5278 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5279" class="LineNr">5279 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5280" class="LineNr">5280 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5281" class="LineNr">5281 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5282" class="LineNr">5282 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5283" class="LineNr">5283 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5284" class="LineNr">5284 </span> <span class="subxComment"># check output</span> -<span id="L5285" class="LineNr">5285 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5286" class="LineNr">5286 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5287" class="LineNr">5287 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5288" class="LineNr">5288 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5289" class="LineNr">5289 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5290" class="LineNr">5290 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5291" class="LineNr">5291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5292" class="Folded">5292 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5318" class="LineNr">5318 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index", msg)</span> -<span id="L5319" class="LineNr">5319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5320" class="LineNr">5320 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-scale"</span>/imm32 -<span id="L5321" class="LineNr">5321 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 -<span id="L5322" class="LineNr">5322 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5323" class="LineNr">5323 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5324" class="LineNr">5324 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5325" class="LineNr">5325 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5326" class="LineNr">5326 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5327" class="LineNr">5327 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5328" class="LineNr">5328 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5329" class="LineNr">5329 </span> 5d/pop-to-ebp -<span id="L5330" class="LineNr">5330 </span> c3/return -<span id="L5331" class="LineNr">5331 </span> -<span id="L5332" class="LineNr">5332 </span><span class="subxTest">test-convert-instruction-handles-disp32-operand</span>: -<span id="L5333" class="LineNr">5333 </span> <span class="subxComment"># expand /disp32 operand into 4 bytes</span> -<span id="L5334" class="LineNr">5334 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5335" class="LineNr">5335 </span> 55/push-ebp -<span id="L5336" class="LineNr">5336 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5337" class="LineNr">5337 </span> <span class="subxComment"># setup</span> -<span id="L5338" class="LineNr">5338 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5339" class="LineNr">5339 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5340" class="LineNr">5340 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5341" class="LineNr">5341 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5342" class="LineNr">5342 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5343" class="LineNr">5343 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5344" class="LineNr">5344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5345" class="LineNr">5345 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5346" class="LineNr">5346 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5347" class="LineNr">5347 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5348" class="LineNr">5348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5349" class="LineNr">5349 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5350" class="LineNr">5350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5351" class="LineNr">5351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5352" class="LineNr">5352 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5353" class="LineNr">5353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5354" class="LineNr">5354 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5355" class="LineNr">5355 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5356" class="LineNr">5356 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5357" class="LineNr">5357 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5358" class="LineNr">5358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5359" class="LineNr">5359 </span> <span class="subxComment"># initialize input</span> -<span id="L5360" class="LineNr">5360 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp32")</span> +<span id="L5270" class="LineNr">5270 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5271" class="LineNr">5271 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5272" class="LineNr">5272 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5273" class="LineNr">5273 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5274" class="LineNr">5274 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5275" class="LineNr">5275 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5276" class="LineNr">5276 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5277" class="LineNr">5277 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5278" class="LineNr">5278 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5279" class="LineNr">5279 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5280" class="LineNr">5280 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5281" class="LineNr">5281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5282" class="LineNr">5282 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5283" class="LineNr">5283 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5284" class="LineNr">5284 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5285" class="LineNr">5285 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5286" class="LineNr">5286 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5287" class="LineNr">5287 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5288" class="LineNr">5288 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5289" class="LineNr">5289 </span> <span class="subxComment"># initialize input</span> +<span id="L5290" class="LineNr">5290 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale")</span> +<span id="L5291" class="LineNr">5291 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5292" class="LineNr">5292 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 +<span id="L5293" class="LineNr">5293 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5294" class="LineNr">5294 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5295" class="LineNr">5295 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5296" class="LineNr">5296 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5297" class="LineNr">5297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5298" class="LineNr">5298 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5299" class="LineNr">5299 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5300" class="LineNr">5300 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5301" class="LineNr">5301 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5302" class="LineNr">5302 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5303" class="LineNr">5303 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5304" class="LineNr">5304 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5305" class="LineNr">5305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5306" class="LineNr">5306 </span> <span class="subxComment"># check output</span> +<span id="L5307" class="LineNr">5307 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5308" class="LineNr">5308 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5309" class="LineNr">5309 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5310" class="LineNr">5310 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5311" class="LineNr">5311 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5312" class="LineNr">5312 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5313" class="LineNr">5313 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5314" class="Folded">5314 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5340" class="LineNr">5340 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale", msg)</span> +<span id="L5341" class="LineNr">5341 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5342" class="LineNr">5342 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-index"</span>/imm32 +<span id="L5343" class="LineNr">5343 </span> 68/push <span class="Constant">"8b 0c 00 # 8b/copy 0/mod 4/rm32 1/r32 0/base 0/scale"</span>/imm32 +<span id="L5344" class="LineNr">5344 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5345" class="LineNr">5345 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5346" class="LineNr">5346 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5347" class="LineNr">5347 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5348" class="LineNr">5348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5349" class="LineNr">5349 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5350" class="LineNr">5350 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5351" class="LineNr">5351 </span> 5d/pop-to-ebp +<span id="L5352" class="LineNr">5352 </span> c3/return +<span id="L5353" class="LineNr">5353 </span> +<span id="L5354" class="LineNr">5354 </span><span class="subxTest">test-convert-instruction-emits-sib-byte-with-missing-scale</span>: +<span id="L5355" class="LineNr">5355 </span> <span class="subxComment"># pack base and index operands into SIB byte</span> +<span id="L5356" class="LineNr">5356 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5357" class="LineNr">5357 </span> 55/push-ebp +<span id="L5358" class="LineNr">5358 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5359" class="LineNr">5359 </span> <span class="subxComment"># setup</span> +<span id="L5360" class="LineNr">5360 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5361" class="LineNr">5361 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5362" class="LineNr">5362 </span> 68/push <span class="Constant">"e8/call 20/disp32"</span>/imm32 -<span id="L5363" class="LineNr">5363 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5364" class="LineNr">5364 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5365" class="LineNr">5365 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5366" class="LineNr">5366 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5367" class="LineNr">5367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5368" class="LineNr">5368 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5369" class="LineNr">5369 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5370" class="LineNr">5370 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5371" class="LineNr">5371 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5372" class="LineNr">5372 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5373" class="LineNr">5373 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5374" class="LineNr">5374 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5375" class="LineNr">5375 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5376" class="LineNr">5376 </span> <span class="subxComment"># check output</span> -<span id="L5377" class="LineNr">5377 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5378" class="LineNr">5378 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5379" class="LineNr">5379 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5380" class="LineNr">5380 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5381" class="LineNr">5381 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5382" class="LineNr">5382 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5383" class="LineNr">5383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5384" class="Folded">5384 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5410" class="LineNr">5410 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 00 00 # e8/call 20/disp32", msg)</span> -<span id="L5411" class="LineNr">5411 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5412" class="LineNr">5412 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp32-operand"</span>/imm32 -<span id="L5413" class="LineNr">5413 </span> 68/push <span class="Constant">"e8 20 00 00 00 # e8/call 20/disp32"</span>/imm32 -<span id="L5414" class="LineNr">5414 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5415" class="LineNr">5415 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5416" class="LineNr">5416 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5417" class="LineNr">5417 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5418" class="LineNr">5418 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5419" class="LineNr">5419 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5420" class="LineNr">5420 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5421" class="LineNr">5421 </span> 5d/pop-to-ebp -<span id="L5422" class="LineNr">5422 </span> c3/return -<span id="L5423" class="LineNr">5423 </span> -<span id="L5424" class="LineNr">5424 </span><span class="subxTest">test-convert-instruction-handles-disp16-operand</span>: -<span id="L5425" class="LineNr">5425 </span> <span class="subxComment"># expand /disp16 operand into 2 bytes</span> -<span id="L5426" class="LineNr">5426 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5427" class="LineNr">5427 </span> 55/push-ebp -<span id="L5428" class="LineNr">5428 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5429" class="LineNr">5429 </span> <span class="subxComment"># setup</span> -<span id="L5430" class="LineNr">5430 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5431" class="LineNr">5431 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5432" class="LineNr">5432 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5433" class="LineNr">5433 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5434" class="LineNr">5434 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5435" class="LineNr">5435 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5436" class="LineNr">5436 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5437" class="LineNr">5437 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5438" class="LineNr">5438 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5439" class="LineNr">5439 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5440" class="LineNr">5440 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5441" class="LineNr">5441 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5442" class="LineNr">5442 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5443" class="LineNr">5443 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5444" class="LineNr">5444 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5445" class="LineNr">5445 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5446" class="LineNr">5446 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5447" class="LineNr">5447 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5448" class="LineNr">5448 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5449" class="LineNr">5449 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5450" class="LineNr">5450 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5451" class="LineNr">5451 </span> <span class="subxComment"># initialize input</span> -<span id="L5452" class="LineNr">5452 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp16")</span> +<span id="L5362" class="LineNr">5362 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5363" class="LineNr">5363 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5364" class="LineNr">5364 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5365" class="LineNr">5365 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5366" class="LineNr">5366 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5367" class="LineNr">5367 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5368" class="LineNr">5368 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5369" class="LineNr">5369 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5370" class="LineNr">5370 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5371" class="LineNr">5371 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5372" class="LineNr">5372 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5373" class="LineNr">5373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5374" class="LineNr">5374 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5375" class="LineNr">5375 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5376" class="LineNr">5376 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5377" class="LineNr">5377 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5378" class="LineNr">5378 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5379" class="LineNr">5379 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5380" class="LineNr">5380 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5381" class="LineNr">5381 </span> <span class="subxComment"># initialize input</span> +<span id="L5382" class="LineNr">5382 </span> <span class="subxS1Comment"># . write(_test-input-stream, "8b/copy 0/mod 4/rm32 1/r32 0/base 1/index")</span> +<span id="L5383" class="LineNr">5383 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5384" class="LineNr">5384 </span> 68/push <span class="Constant">"8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 +<span id="L5385" class="LineNr">5385 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5386" class="LineNr">5386 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5387" class="LineNr">5387 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5388" class="LineNr">5388 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5389" class="LineNr">5389 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5390" class="LineNr">5390 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5391" class="LineNr">5391 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5392" class="LineNr">5392 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5393" class="LineNr">5393 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5394" class="LineNr">5394 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5395" class="LineNr">5395 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5396" class="LineNr">5396 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5397" class="LineNr">5397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5398" class="LineNr">5398 </span> <span class="subxComment"># check output</span> +<span id="L5399" class="LineNr">5399 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5400" class="LineNr">5400 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5401" class="LineNr">5401 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5402" class="LineNr">5402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5403" class="LineNr">5403 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5404" class="LineNr">5404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5405" class="LineNr">5405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5406" class="Folded">5406 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5432" class="LineNr">5432 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index", msg)</span> +<span id="L5433" class="LineNr">5433 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5434" class="LineNr">5434 </span> 68/push <span class="Constant">"F - test-convert-instruction-emits-sib-byte-with-missing-scale"</span>/imm32 +<span id="L5435" class="LineNr">5435 </span> 68/push <span class="Constant">"8b 0c 08 # 8b/copy 0/mod 4/rm32 1/r32 0/base 1/index"</span>/imm32 +<span id="L5436" class="LineNr">5436 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5437" class="LineNr">5437 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5438" class="LineNr">5438 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5439" class="LineNr">5439 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5440" class="LineNr">5440 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5441" class="LineNr">5441 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5442" class="LineNr">5442 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5443" class="LineNr">5443 </span> 5d/pop-to-ebp +<span id="L5444" class="LineNr">5444 </span> c3/return +<span id="L5445" class="LineNr">5445 </span> +<span id="L5446" class="LineNr">5446 </span><span class="subxTest">test-convert-instruction-handles-disp32-operand</span>: +<span id="L5447" class="LineNr">5447 </span> <span class="subxComment"># expand /disp32 operand into 4 bytes</span> +<span id="L5448" class="LineNr">5448 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5449" class="LineNr">5449 </span> 55/push-ebp +<span id="L5450" class="LineNr">5450 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5451" class="LineNr">5451 </span> <span class="subxComment"># setup</span> +<span id="L5452" class="LineNr">5452 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5453" class="LineNr">5453 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5454" class="LineNr">5454 </span> 68/push <span class="Constant">"e8/call 20/disp16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> -<span id="L5455" class="LineNr">5455 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5456" class="LineNr">5456 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5457" class="LineNr">5457 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5458" class="LineNr">5458 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5459" class="LineNr">5459 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5460" class="LineNr">5460 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5461" class="LineNr">5461 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5462" class="LineNr">5462 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5463" class="LineNr">5463 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5464" class="LineNr">5464 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5465" class="LineNr">5465 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5466" class="LineNr">5466 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5467" class="LineNr">5467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5468" class="LineNr">5468 </span> <span class="subxComment"># check output</span> -<span id="L5469" class="LineNr">5469 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5470" class="LineNr">5470 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5471" class="LineNr">5471 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5472" class="LineNr">5472 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5473" class="LineNr">5473 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5474" class="LineNr">5474 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5475" class="LineNr">5475 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5476" class="Folded">5476 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5502" class="LineNr">5502 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 # e8/call 20/disp16", msg)</span> -<span id="L5503" class="LineNr">5503 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5504" class="LineNr">5504 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp16-operand"</span>/imm32 -<span id="L5505" class="LineNr">5505 </span> 68/push <span class="Constant">"e8 20 00 # e8/call 20/disp16"</span>/imm32 -<span id="L5506" class="LineNr">5506 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5507" class="LineNr">5507 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5508" class="LineNr">5508 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5509" class="LineNr">5509 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5510" class="LineNr">5510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5511" class="LineNr">5511 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5512" class="LineNr">5512 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5513" class="LineNr">5513 </span> 5d/pop-to-ebp -<span id="L5514" class="LineNr">5514 </span> c3/return -<span id="L5515" class="LineNr">5515 </span> -<span id="L5516" class="LineNr">5516 </span><span class="subxTest">test-convert-instruction-handles-disp8-operand</span>: -<span id="L5517" class="LineNr">5517 </span> <span class="subxComment"># expand /disp8 operand into 1 byte</span> -<span id="L5518" class="LineNr">5518 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5519" class="LineNr">5519 </span> 55/push-ebp -<span id="L5520" class="LineNr">5520 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5521" class="LineNr">5521 </span> <span class="subxComment"># setup</span> -<span id="L5522" class="LineNr">5522 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5523" class="LineNr">5523 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5524" class="LineNr">5524 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5525" class="LineNr">5525 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5526" class="LineNr">5526 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5527" class="LineNr">5527 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5528" class="LineNr">5528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5529" class="LineNr">5529 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5530" class="LineNr">5530 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5531" class="LineNr">5531 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5532" class="LineNr">5532 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5533" class="LineNr">5533 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5534" class="LineNr">5534 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5535" class="LineNr">5535 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5536" class="LineNr">5536 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5537" class="LineNr">5537 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5538" class="LineNr">5538 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5539" class="LineNr">5539 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5540" class="LineNr">5540 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5541" class="LineNr">5541 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5542" class="LineNr">5542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5543" class="LineNr">5543 </span> <span class="subxComment"># initialize input</span> -<span id="L5544" class="LineNr">5544 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump 20/disp8")</span> +<span id="L5454" class="LineNr">5454 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5455" class="LineNr">5455 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5456" class="LineNr">5456 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5457" class="LineNr">5457 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5458" class="LineNr">5458 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5459" class="LineNr">5459 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5460" class="LineNr">5460 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5461" class="LineNr">5461 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5462" class="LineNr">5462 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5463" class="LineNr">5463 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5464" class="LineNr">5464 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5465" class="LineNr">5465 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5466" class="LineNr">5466 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5467" class="LineNr">5467 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5468" class="LineNr">5468 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5469" class="LineNr">5469 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5470" class="LineNr">5470 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5471" class="LineNr">5471 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5472" class="LineNr">5472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5473" class="LineNr">5473 </span> <span class="subxComment"># initialize input</span> +<span id="L5474" class="LineNr">5474 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp32")</span> +<span id="L5475" class="LineNr">5475 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5476" class="LineNr">5476 </span> 68/push <span class="Constant">"e8/call 20/disp32"</span>/imm32 +<span id="L5477" class="LineNr">5477 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5478" class="LineNr">5478 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5479" class="LineNr">5479 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5480" class="LineNr">5480 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5481" class="LineNr">5481 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5482" class="LineNr">5482 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5483" class="LineNr">5483 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5484" class="LineNr">5484 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5485" class="LineNr">5485 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5486" class="LineNr">5486 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5487" class="LineNr">5487 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5488" class="LineNr">5488 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5489" class="LineNr">5489 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5490" class="LineNr">5490 </span> <span class="subxComment"># check output</span> +<span id="L5491" class="LineNr">5491 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5492" class="LineNr">5492 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5493" class="LineNr">5493 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5494" class="LineNr">5494 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5495" class="LineNr">5495 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5496" class="LineNr">5496 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5497" class="LineNr">5497 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5498" class="Folded">5498 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5524" class="LineNr">5524 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 00 00 # e8/call 20/disp32", msg)</span> +<span id="L5525" class="LineNr">5525 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5526" class="LineNr">5526 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp32-operand"</span>/imm32 +<span id="L5527" class="LineNr">5527 </span> 68/push <span class="Constant">"e8 20 00 00 00 # e8/call 20/disp32"</span>/imm32 +<span id="L5528" class="LineNr">5528 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5529" class="LineNr">5529 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5530" class="LineNr">5530 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5531" class="LineNr">5531 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5532" class="LineNr">5532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5533" class="LineNr">5533 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5534" class="LineNr">5534 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5535" class="LineNr">5535 </span> 5d/pop-to-ebp +<span id="L5536" class="LineNr">5536 </span> c3/return +<span id="L5537" class="LineNr">5537 </span> +<span id="L5538" class="LineNr">5538 </span><span class="subxTest">test-convert-instruction-handles-disp16-operand</span>: +<span id="L5539" class="LineNr">5539 </span> <span class="subxComment"># expand /disp16 operand into 2 bytes</span> +<span id="L5540" class="LineNr">5540 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5541" class="LineNr">5541 </span> 55/push-ebp +<span id="L5542" class="LineNr">5542 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5543" class="LineNr">5543 </span> <span class="subxComment"># setup</span> +<span id="L5544" class="LineNr">5544 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5545" class="LineNr">5545 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5546" class="LineNr">5546 </span> 68/push <span class="Constant">"eb/jump 20/disp8"</span>/imm32 -<span id="L5547" class="LineNr">5547 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5548" class="LineNr">5548 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5549" class="LineNr">5549 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5550" class="LineNr">5550 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5551" class="LineNr">5551 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5552" class="LineNr">5552 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5553" class="LineNr">5553 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5554" class="LineNr">5554 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5555" class="LineNr">5555 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5556" class="LineNr">5556 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5557" class="LineNr">5557 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5558" class="LineNr">5558 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5559" class="LineNr">5559 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5560" class="LineNr">5560 </span> <span class="subxComment"># check output</span> -<span id="L5561" class="LineNr">5561 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5562" class="LineNr">5562 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5563" class="LineNr">5563 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5564" class="LineNr">5564 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5565" class="LineNr">5565 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5566" class="LineNr">5566 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5567" class="LineNr">5567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5568" class="Folded">5568 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5594" class="LineNr">5594 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb 20 # eb/jump 20/disp8", msg)</span> -<span id="L5595" class="LineNr">5595 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5596" class="LineNr">5596 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-operand"</span>/imm32 -<span id="L5597" class="LineNr">5597 </span> 68/push <span class="Constant">"eb 20 # eb/jump 20/disp8"</span>/imm32 -<span id="L5598" class="LineNr">5598 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5599" class="LineNr">5599 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5600" class="LineNr">5600 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5601" class="LineNr">5601 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5602" class="LineNr">5602 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5603" class="LineNr">5603 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5604" class="LineNr">5604 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5605" class="LineNr">5605 </span> 5d/pop-to-ebp -<span id="L5606" class="LineNr">5606 </span> c3/return -<span id="L5607" class="LineNr">5607 </span> -<span id="L5608" class="LineNr">5608 </span><span class="subxTest">test-convert-instruction-handles-disp8-name</span>: -<span id="L5609" class="LineNr">5609 </span> <span class="subxComment"># pass /disp8 name directly through</span> -<span id="L5610" class="LineNr">5610 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5611" class="LineNr">5611 </span> 55/push-ebp -<span id="L5612" class="LineNr">5612 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5613" class="LineNr">5613 </span> <span class="subxComment"># setup</span> -<span id="L5614" class="LineNr">5614 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5615" class="LineNr">5615 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5616" class="LineNr">5616 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5617" class="LineNr">5617 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5618" class="LineNr">5618 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5619" class="LineNr">5619 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5620" class="LineNr">5620 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5621" class="LineNr">5621 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5622" class="LineNr">5622 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5623" class="LineNr">5623 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5624" class="LineNr">5624 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5625" class="LineNr">5625 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5626" class="LineNr">5626 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5627" class="LineNr">5627 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5628" class="LineNr">5628 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5629" class="LineNr">5629 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5630" class="LineNr">5630 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5631" class="LineNr">5631 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5632" class="LineNr">5632 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5633" class="LineNr">5633 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5634" class="LineNr">5634 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5635" class="LineNr">5635 </span> <span class="subxComment"># initialize input</span> -<span id="L5636" class="LineNr">5636 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump xyz/disp8")</span> +<span id="L5546" class="LineNr">5546 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5547" class="LineNr">5547 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5548" class="LineNr">5548 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5549" class="LineNr">5549 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5550" class="LineNr">5550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5551" class="LineNr">5551 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5552" class="LineNr">5552 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5553" class="LineNr">5553 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5554" class="LineNr">5554 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5555" class="LineNr">5555 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5556" class="LineNr">5556 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5557" class="LineNr">5557 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5558" class="LineNr">5558 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5559" class="LineNr">5559 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5560" class="LineNr">5560 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5561" class="LineNr">5561 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5562" class="LineNr">5562 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5563" class="LineNr">5563 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5564" class="LineNr">5564 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5565" class="LineNr">5565 </span> <span class="subxComment"># initialize input</span> +<span id="L5566" class="LineNr">5566 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8/call 20/disp16")</span> +<span id="L5567" class="LineNr">5567 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5568" class="LineNr">5568 </span> 68/push <span class="Constant">"e8/call 20/disp16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> +<span id="L5569" class="LineNr">5569 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5570" class="LineNr">5570 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5571" class="LineNr">5571 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5572" class="LineNr">5572 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5573" class="LineNr">5573 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5574" class="LineNr">5574 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5575" class="LineNr">5575 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5576" class="LineNr">5576 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5577" class="LineNr">5577 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5578" class="LineNr">5578 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5579" class="LineNr">5579 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5580" class="LineNr">5580 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5581" class="LineNr">5581 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5582" class="LineNr">5582 </span> <span class="subxComment"># check output</span> +<span id="L5583" class="LineNr">5583 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5584" class="LineNr">5584 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5585" class="LineNr">5585 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5586" class="LineNr">5586 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5587" class="LineNr">5587 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5588" class="LineNr">5588 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5589" class="LineNr">5589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5590" class="Folded">5590 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5616" class="LineNr">5616 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "e8 20 00 # e8/call 20/disp16", msg)</span> +<span id="L5617" class="LineNr">5617 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5618" class="LineNr">5618 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp16-operand"</span>/imm32 +<span id="L5619" class="LineNr">5619 </span> 68/push <span class="Constant">"e8 20 00 # e8/call 20/disp16"</span>/imm32 +<span id="L5620" class="LineNr">5620 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5621" class="LineNr">5621 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5622" class="LineNr">5622 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5623" class="LineNr">5623 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5624" class="LineNr">5624 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5625" class="LineNr">5625 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5626" class="LineNr">5626 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5627" class="LineNr">5627 </span> 5d/pop-to-ebp +<span id="L5628" class="LineNr">5628 </span> c3/return +<span id="L5629" class="LineNr">5629 </span> +<span id="L5630" class="LineNr">5630 </span><span class="subxTest">test-convert-instruction-handles-disp8-operand</span>: +<span id="L5631" class="LineNr">5631 </span> <span class="subxComment"># expand /disp8 operand into 1 byte</span> +<span id="L5632" class="LineNr">5632 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5633" class="LineNr">5633 </span> 55/push-ebp +<span id="L5634" class="LineNr">5634 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5635" class="LineNr">5635 </span> <span class="subxComment"># setup</span> +<span id="L5636" class="LineNr">5636 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5637" class="LineNr">5637 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5638" class="LineNr">5638 </span> 68/push <span class="Constant">"eb/jump xyz/disp8"</span>/imm32 -<span id="L5639" class="LineNr">5639 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5640" class="LineNr">5640 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5641" class="LineNr">5641 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5642" class="LineNr">5642 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5643" class="LineNr">5643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5644" class="LineNr">5644 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5645" class="LineNr">5645 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5646" class="LineNr">5646 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5647" class="LineNr">5647 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5648" class="LineNr">5648 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5649" class="LineNr">5649 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5650" class="LineNr">5650 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5651" class="LineNr">5651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5652" class="LineNr">5652 </span> <span class="subxComment"># check output</span> -<span id="L5653" class="LineNr">5653 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5654" class="LineNr">5654 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5655" class="LineNr">5655 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5656" class="LineNr">5656 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5657" class="LineNr">5657 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5658" class="LineNr">5658 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5659" class="LineNr">5659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5660" class="Folded">5660 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5686" class="LineNr">5686 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb xyz/disp8 # eb/jump xyz/disp8", msg)</span> -<span id="L5687" class="LineNr">5687 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5688" class="LineNr">5688 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-name"</span>/imm32 -<span id="L5689" class="LineNr">5689 </span> 68/push <span class="Constant">"eb xyz/disp8 # eb/jump xyz/disp8"</span>/imm32 -<span id="L5690" class="LineNr">5690 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5691" class="LineNr">5691 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5692" class="LineNr">5692 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5693" class="LineNr">5693 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5694" class="LineNr">5694 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5695" class="LineNr">5695 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5696" class="LineNr">5696 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5697" class="LineNr">5697 </span> 5d/pop-to-ebp -<span id="L5698" class="LineNr">5698 </span> c3/return -<span id="L5699" class="LineNr">5699 </span> -<span id="L5700" class="LineNr">5700 </span><span class="subxTest">test-convert-instruction-handles-imm32-operand</span>: -<span id="L5701" class="LineNr">5701 </span> <span class="subxComment"># expand /imm32 operand into 4 bytes</span> -<span id="L5702" class="LineNr">5702 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5703" class="LineNr">5703 </span> 55/push-ebp -<span id="L5704" class="LineNr">5704 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5705" class="LineNr">5705 </span> <span class="subxComment"># setup</span> -<span id="L5706" class="LineNr">5706 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5707" class="LineNr">5707 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5708" class="LineNr">5708 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5709" class="LineNr">5709 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5710" class="LineNr">5710 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5711" class="LineNr">5711 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5712" class="LineNr">5712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5713" class="LineNr">5713 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5714" class="LineNr">5714 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5715" class="LineNr">5715 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5716" class="LineNr">5716 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5717" class="LineNr">5717 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5718" class="LineNr">5718 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5719" class="LineNr">5719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5720" class="LineNr">5720 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5721" class="LineNr">5721 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5722" class="LineNr">5722 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5723" class="LineNr">5723 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5724" class="LineNr">5724 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5725" class="LineNr">5725 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5726" class="LineNr">5726 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5727" class="LineNr">5727 </span> <span class="subxComment"># initialize input</span> -<span id="L5728" class="LineNr">5728 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm32")</span> +<span id="L5638" class="LineNr">5638 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5639" class="LineNr">5639 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5640" class="LineNr">5640 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5641" class="LineNr">5641 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5642" class="LineNr">5642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5643" class="LineNr">5643 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5644" class="LineNr">5644 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5645" class="LineNr">5645 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5646" class="LineNr">5646 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5647" class="LineNr">5647 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5648" class="LineNr">5648 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5649" class="LineNr">5649 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5650" class="LineNr">5650 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5651" class="LineNr">5651 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5652" class="LineNr">5652 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5653" class="LineNr">5653 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5654" class="LineNr">5654 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5655" class="LineNr">5655 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5656" class="LineNr">5656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5657" class="LineNr">5657 </span> <span class="subxComment"># initialize input</span> +<span id="L5658" class="LineNr">5658 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump 20/disp8")</span> +<span id="L5659" class="LineNr">5659 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5660" class="LineNr">5660 </span> 68/push <span class="Constant">"eb/jump 20/disp8"</span>/imm32 +<span id="L5661" class="LineNr">5661 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5662" class="LineNr">5662 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5663" class="LineNr">5663 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5664" class="LineNr">5664 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5665" class="LineNr">5665 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5666" class="LineNr">5666 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5667" class="LineNr">5667 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5668" class="LineNr">5668 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5669" class="LineNr">5669 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5670" class="LineNr">5670 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5671" class="LineNr">5671 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5672" class="LineNr">5672 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5673" class="LineNr">5673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5674" class="LineNr">5674 </span> <span class="subxComment"># check output</span> +<span id="L5675" class="LineNr">5675 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5676" class="LineNr">5676 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5677" class="LineNr">5677 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5678" class="LineNr">5678 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5679" class="LineNr">5679 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5680" class="LineNr">5680 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5681" class="LineNr">5681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5682" class="Folded">5682 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5708" class="LineNr">5708 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb 20 # eb/jump 20/disp8", msg)</span> +<span id="L5709" class="LineNr">5709 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5710" class="LineNr">5710 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-operand"</span>/imm32 +<span id="L5711" class="LineNr">5711 </span> 68/push <span class="Constant">"eb 20 # eb/jump 20/disp8"</span>/imm32 +<span id="L5712" class="LineNr">5712 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5713" class="LineNr">5713 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5714" class="LineNr">5714 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5715" class="LineNr">5715 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5716" class="LineNr">5716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5717" class="LineNr">5717 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5718" class="LineNr">5718 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5719" class="LineNr">5719 </span> 5d/pop-to-ebp +<span id="L5720" class="LineNr">5720 </span> c3/return +<span id="L5721" class="LineNr">5721 </span> +<span id="L5722" class="LineNr">5722 </span><span class="subxTest">test-convert-instruction-handles-disp8-name</span>: +<span id="L5723" class="LineNr">5723 </span> <span class="subxComment"># pass /disp8 name directly through</span> +<span id="L5724" class="LineNr">5724 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5725" class="LineNr">5725 </span> 55/push-ebp +<span id="L5726" class="LineNr">5726 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5727" class="LineNr">5727 </span> <span class="subxComment"># setup</span> +<span id="L5728" class="LineNr">5728 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L5729" class="LineNr">5729 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5730" class="LineNr">5730 </span> 68/push <span class="Constant">"68/push 0x20/imm32"</span>/imm32 -<span id="L5731" class="LineNr">5731 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5732" class="LineNr">5732 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5733" class="LineNr">5733 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5734" class="LineNr">5734 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5735" class="LineNr">5735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5736" class="LineNr">5736 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5737" class="LineNr">5737 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5738" class="LineNr">5738 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5739" class="LineNr">5739 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5740" class="LineNr">5740 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5741" class="LineNr">5741 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5742" class="LineNr">5742 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5743" class="LineNr">5743 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5744" class="LineNr">5744 </span> <span class="subxComment"># check output</span> -<span id="L5745" class="LineNr">5745 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5746" class="LineNr">5746 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5747" class="LineNr">5747 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5748" class="LineNr">5748 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5749" class="LineNr">5749 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5750" class="LineNr">5750 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5751" class="LineNr">5751 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5752" class="Folded">5752 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5778" class="LineNr">5778 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 00 00 # 68/push 0x20/imm32", msg)</span> -<span id="L5779" class="LineNr">5779 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5780" class="LineNr">5780 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm32-operand"</span>/imm32 -<span id="L5781" class="LineNr">5781 </span> 68/push <span class="Constant">"68 20 00 00 00 # 68/push 0x20/imm32"</span>/imm32 -<span id="L5782" class="LineNr">5782 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5783" class="LineNr">5783 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5784" class="LineNr">5784 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5785" class="LineNr">5785 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5786" class="LineNr">5786 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5787" class="LineNr">5787 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5788" class="LineNr">5788 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5789" class="LineNr">5789 </span> 5d/pop-to-ebp -<span id="L5790" class="LineNr">5790 </span> c3/return -<span id="L5791" class="LineNr">5791 </span> -<span id="L5792" class="LineNr">5792 </span><span class="subxTest">test-convert-instruction-handles-imm16-operand</span>: -<span id="L5793" class="LineNr">5793 </span> <span class="subxComment"># expand /imm16 operand into 2 bytes</span> -<span id="L5794" class="LineNr">5794 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> -<span id="L5795" class="LineNr">5795 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5796" class="LineNr">5796 </span> 55/push-ebp -<span id="L5797" class="LineNr">5797 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5798" class="LineNr">5798 </span> <span class="subxComment"># setup</span> -<span id="L5799" class="LineNr">5799 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L5800" class="LineNr">5800 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5801" class="LineNr">5801 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5802" class="LineNr">5802 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5803" class="LineNr">5803 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5804" class="LineNr">5804 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5805" class="LineNr">5805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5806" class="LineNr">5806 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5807" class="LineNr">5807 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5808" class="LineNr">5808 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5809" class="LineNr">5809 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5810" class="LineNr">5810 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5811" class="LineNr">5811 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5812" class="LineNr">5812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5813" class="LineNr">5813 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5814" class="LineNr">5814 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5815" class="LineNr">5815 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5816" class="LineNr">5816 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5817" class="LineNr">5817 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5818" class="LineNr">5818 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5819" class="LineNr">5819 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5820" class="LineNr">5820 </span> <span class="subxComment"># initialize input</span> -<span id="L5821" class="LineNr">5821 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm16")</span> -<span id="L5822" class="LineNr">5822 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5823" class="LineNr">5823 </span> 68/push <span class="Constant">"68/push 0x20/imm16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> -<span id="L5824" class="LineNr">5824 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5825" class="LineNr">5825 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5826" class="LineNr">5826 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5827" class="LineNr">5827 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5828" class="LineNr">5828 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5829" class="LineNr">5829 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5830" class="LineNr">5830 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5831" class="LineNr">5831 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5832" class="LineNr">5832 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5833" class="LineNr">5833 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5834" class="LineNr">5834 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5835" class="LineNr">5835 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5836" class="LineNr">5836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5837" class="LineNr">5837 </span> <span class="subxComment"># check output</span> -<span id="L5838" class="LineNr">5838 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5839" class="LineNr">5839 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5840" class="LineNr">5840 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5841" class="LineNr">5841 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5842" class="LineNr">5842 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5843" class="LineNr">5843 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5844" class="LineNr">5844 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5845" class="Folded">5845 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5871" class="LineNr">5871 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 # 68/push 0x20/imm16", msg)</span> -<span id="L5872" class="LineNr">5872 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5873" class="LineNr">5873 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm16-operand"</span>/imm32 -<span id="L5874" class="LineNr">5874 </span> 68/push <span class="Constant">"68 20 00 # 68/push 0x20/imm16"</span>/imm32 -<span id="L5875" class="LineNr">5875 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5876" class="LineNr">5876 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5877" class="LineNr">5877 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5878" class="LineNr">5878 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5879" class="LineNr">5879 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5880" class="LineNr">5880 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5881" class="LineNr">5881 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5882" class="LineNr">5882 </span> 5d/pop-to-ebp -<span id="L5883" class="LineNr">5883 </span> c3/return -<span id="L5884" class="LineNr">5884 </span> -<span id="L5885" class="LineNr">5885 </span><span class="subxTest">test-convert-instruction-handles-imm8-operand</span>: -<span id="L5886" class="LineNr">5886 </span> <span class="subxComment"># expand /imm8 operand into 1 byte</span> -<span id="L5887" class="LineNr">5887 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> -<span id="L5888" class="LineNr">5888 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5889" class="LineNr">5889 </span> 55/push-ebp -<span id="L5890" class="LineNr">5890 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5891" class="LineNr">5891 </span> <span class="subxComment"># setup</span> -<span id="L5892" class="LineNr">5892 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5730" class="LineNr">5730 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5731" class="LineNr">5731 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5732" class="LineNr">5732 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5733" class="LineNr">5733 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5734" class="LineNr">5734 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5735" class="LineNr">5735 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5736" class="LineNr">5736 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5737" class="LineNr">5737 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5738" class="LineNr">5738 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5739" class="LineNr">5739 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5740" class="LineNr">5740 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5741" class="LineNr">5741 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5742" class="LineNr">5742 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5743" class="LineNr">5743 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5744" class="LineNr">5744 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5745" class="LineNr">5745 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5746" class="LineNr">5746 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5747" class="LineNr">5747 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5748" class="LineNr">5748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5749" class="LineNr">5749 </span> <span class="subxComment"># initialize input</span> +<span id="L5750" class="LineNr">5750 </span> <span class="subxS1Comment"># . write(_test-input-stream, "eb/jump xyz/disp8")</span> +<span id="L5751" class="LineNr">5751 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5752" class="LineNr">5752 </span> 68/push <span class="Constant">"eb/jump xyz/disp8"</span>/imm32 +<span id="L5753" class="LineNr">5753 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5754" class="LineNr">5754 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5755" class="LineNr">5755 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5756" class="LineNr">5756 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5757" class="LineNr">5757 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5758" class="LineNr">5758 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5759" class="LineNr">5759 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5760" class="LineNr">5760 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5761" class="LineNr">5761 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5762" class="LineNr">5762 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5763" class="LineNr">5763 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5764" class="LineNr">5764 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5765" class="LineNr">5765 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5766" class="LineNr">5766 </span> <span class="subxComment"># check output</span> +<span id="L5767" class="LineNr">5767 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5768" class="LineNr">5768 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5769" class="LineNr">5769 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5770" class="LineNr">5770 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5771" class="LineNr">5771 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5772" class="LineNr">5772 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5773" class="LineNr">5773 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5774" class="Folded">5774 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5800" class="LineNr">5800 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "eb xyz/disp8 # eb/jump xyz/disp8", msg)</span> +<span id="L5801" class="LineNr">5801 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5802" class="LineNr">5802 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-disp8-name"</span>/imm32 +<span id="L5803" class="LineNr">5803 </span> 68/push <span class="Constant">"eb xyz/disp8 # eb/jump xyz/disp8"</span>/imm32 +<span id="L5804" class="LineNr">5804 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5805" class="LineNr">5805 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5806" class="LineNr">5806 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5807" class="LineNr">5807 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5808" class="LineNr">5808 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5809" class="LineNr">5809 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5810" class="LineNr">5810 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5811" class="LineNr">5811 </span> 5d/pop-to-ebp +<span id="L5812" class="LineNr">5812 </span> c3/return +<span id="L5813" class="LineNr">5813 </span> +<span id="L5814" class="LineNr">5814 </span><span class="subxTest">test-convert-instruction-handles-imm32-operand</span>: +<span id="L5815" class="LineNr">5815 </span> <span class="subxComment"># expand /imm32 operand into 4 bytes</span> +<span id="L5816" class="LineNr">5816 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5817" class="LineNr">5817 </span> 55/push-ebp +<span id="L5818" class="LineNr">5818 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5819" class="LineNr">5819 </span> <span class="subxComment"># setup</span> +<span id="L5820" class="LineNr">5820 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5821" class="LineNr">5821 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5822" class="LineNr">5822 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5823" class="LineNr">5823 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5824" class="LineNr">5824 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5825" class="LineNr">5825 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5826" class="LineNr">5826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5827" class="LineNr">5827 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5828" class="LineNr">5828 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5829" class="LineNr">5829 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5830" class="LineNr">5830 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5831" class="LineNr">5831 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5832" class="LineNr">5832 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5833" class="LineNr">5833 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5834" class="LineNr">5834 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5835" class="LineNr">5835 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5836" class="LineNr">5836 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5837" class="LineNr">5837 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5838" class="LineNr">5838 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5839" class="LineNr">5839 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5840" class="LineNr">5840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5841" class="LineNr">5841 </span> <span class="subxComment"># initialize input</span> +<span id="L5842" class="LineNr">5842 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm32")</span> +<span id="L5843" class="LineNr">5843 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5844" class="LineNr">5844 </span> 68/push <span class="Constant">"68/push 0x20/imm32"</span>/imm32 +<span id="L5845" class="LineNr">5845 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5846" class="LineNr">5846 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5847" class="LineNr">5847 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5848" class="LineNr">5848 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5849" class="LineNr">5849 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5850" class="LineNr">5850 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5851" class="LineNr">5851 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5852" class="LineNr">5852 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5853" class="LineNr">5853 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5854" class="LineNr">5854 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5855" class="LineNr">5855 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5856" class="LineNr">5856 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5857" class="LineNr">5857 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5858" class="LineNr">5858 </span> <span class="subxComment"># check output</span> +<span id="L5859" class="LineNr">5859 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5860" class="LineNr">5860 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5861" class="LineNr">5861 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5862" class="LineNr">5862 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5863" class="LineNr">5863 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5864" class="LineNr">5864 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5865" class="LineNr">5865 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5866" class="Folded">5866 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5892" class="LineNr">5892 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 00 00 # 68/push 0x20/imm32", msg)</span> <span id="L5893" class="LineNr">5893 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5894" class="LineNr">5894 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5895" class="LineNr">5895 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5896" class="LineNr">5896 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5897" class="LineNr">5897 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5898" class="LineNr">5898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5899" class="LineNr">5899 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L5900" class="LineNr">5900 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5901" class="LineNr">5901 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5902" class="LineNr">5902 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5903" class="LineNr">5903 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5904" class="LineNr">5904 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5905" class="LineNr">5905 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5906" class="LineNr">5906 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L5907" class="LineNr">5907 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5908" class="LineNr">5908 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L5909" class="LineNr">5909 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5910" class="LineNr">5910 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L5911" class="LineNr">5911 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5912" class="LineNr">5912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5913" class="LineNr">5913 </span> <span class="subxComment"># initialize input</span> -<span id="L5914" class="LineNr">5914 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm8")</span> -<span id="L5915" class="LineNr">5915 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5916" class="LineNr">5916 </span> 68/push <span class="Constant">"68/push 0x20/imm8"</span>/imm32 -<span id="L5917" class="LineNr">5917 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5918" class="LineNr">5918 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5919" class="LineNr">5919 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L5920" class="LineNr">5920 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5921" class="LineNr">5921 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5922" class="LineNr">5922 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> -<span id="L5923" class="LineNr">5923 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5924" class="LineNr">5924 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5925" class="LineNr">5925 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L5926" class="LineNr">5926 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5927" class="LineNr">5927 </span> e8/call <a href='pack.subx.html#L1803'>convert-instruction</a>/disp32 -<span id="L5928" class="LineNr">5928 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5929" class="LineNr">5929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L5930" class="LineNr">5930 </span> <span class="subxComment"># check output</span> -<span id="L5931" class="LineNr">5931 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L5932" class="LineNr">5932 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5933" class="LineNr">5933 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L5934" class="LineNr">5934 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5935" class="LineNr">5935 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L5936" class="LineNr">5936 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5937" class="LineNr">5937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L5938" class="Folded">5938 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L5964" class="LineNr">5964 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 # 68/push 0x20/imm8", msg)</span> -<span id="L5965" class="LineNr">5965 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5966" class="LineNr">5966 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm8-operand"</span>/imm32 -<span id="L5967" class="LineNr">5967 </span> 68/push <span class="Constant">"68 20 # 68/push 0x20/imm8"</span>/imm32 -<span id="L5968" class="LineNr">5968 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L5969" class="LineNr">5969 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5970" class="LineNr">5970 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L5971" class="LineNr">5971 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L5972" class="LineNr">5972 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L5973" class="LineNr">5973 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L5974" class="LineNr">5974 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L5975" class="LineNr">5975 </span> 5d/pop-to-ebp -<span id="L5976" class="LineNr">5976 </span> c3/return -<span id="L5977" class="LineNr">5977 </span> -<span id="L5978" class="LineNr">5978 </span><span class="subxComment"># shortcut for parse-hex-int-from-slice(next-token-from-slice(word->start, word->end, '/'))</span> -<span id="L5979" class="LineNr">5979 </span><span class="subxFunction">parse-datum-of-word</span>: <span class="subxComment"># word: (addr slice) -> value/eax: int</span> -<span id="L5980" class="LineNr">5980 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L5981" class="LineNr">5981 </span> 55/push-ebp -<span id="L5982" class="LineNr">5982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L5983" class="LineNr">5983 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L5984" class="LineNr">5984 </span> 51/push-ecx -<span id="L5985" class="LineNr">5985 </span> 56/push-esi -<span id="L5986" class="LineNr">5986 </span> <span class="subxComment"># esi = word</span> -<span id="L5987" class="LineNr">5987 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L5988" class="LineNr">5988 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L5989" class="LineNr">5989 </span> 68/push 0/imm32/end -<span id="L5990" class="LineNr">5990 </span> 68/push 0/imm32/start -<span id="L5991" class="LineNr">5991 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L5992" class="LineNr">5992 </span> <span class="subxComment"># slice = next-token-from-slice(word->start, word->end, '/')</span> -<span id="L5993" class="LineNr">5993 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L5994" class="LineNr">5994 </span> 51/push-ecx -<span id="L5995" class="LineNr">5995 </span> 68/push 0x2f/imm32/slash -<span id="L5996" class="LineNr">5996 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L5997" class="LineNr">5997 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L5998" class="LineNr">5998 </span> <span class="subxS2Comment"># . . call</span> -<span id="L5999" class="LineNr">5999 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L6000" class="LineNr">6000 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L6001" class="LineNr">6001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L6002" class="LineNr">6002 </span> <span class="subxComment"># return parse-hex-int-from-slice(slice)</span> -<span id="L6003" class="LineNr">6003 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L6004" class="LineNr">6004 </span> 51/push-ecx -<span id="L6005" class="LineNr">6005 </span> <span class="subxS2Comment"># . . call</span> -<span id="L6006" class="LineNr">6006 </span> e8/call <a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 -<span id="L6007" class="LineNr">6007 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L6008" class="LineNr">6008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L6009" class="LineNr">6009 </span><span class="Constant">$parse-datum-of-word:end</span>: -<span id="L6010" class="LineNr">6010 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L6011" class="LineNr">6011 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L6012" class="LineNr">6012 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L6013" class="LineNr">6013 </span> 5e/pop-to-esi -<span id="L6014" class="LineNr">6014 </span> 59/pop-to-ecx -<span id="L6015" class="LineNr">6015 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L6016" class="LineNr">6016 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L6017" class="LineNr">6017 </span> 5d/pop-to-ebp -<span id="L6018" class="LineNr">6018 </span> c3/return -<span id="L6019" class="LineNr">6019 </span> -<span id="L6020" class="LineNr">6020 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L5894" class="LineNr">5894 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm32-operand"</span>/imm32 +<span id="L5895" class="LineNr">5895 </span> 68/push <span class="Constant">"68 20 00 00 00 # 68/push 0x20/imm32"</span>/imm32 +<span id="L5896" class="LineNr">5896 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5897" class="LineNr">5897 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5898" class="LineNr">5898 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5899" class="LineNr">5899 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5900" class="LineNr">5900 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5901" class="LineNr">5901 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5902" class="LineNr">5902 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5903" class="LineNr">5903 </span> 5d/pop-to-ebp +<span id="L5904" class="LineNr">5904 </span> c3/return +<span id="L5905" class="LineNr">5905 </span> +<span id="L5906" class="LineNr">5906 </span><span class="subxTest">test-convert-instruction-handles-imm16-operand</span>: +<span id="L5907" class="LineNr">5907 </span> <span class="subxComment"># expand /imm16 operand into 2 bytes</span> +<span id="L5908" class="LineNr">5908 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> +<span id="L5909" class="LineNr">5909 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L5910" class="LineNr">5910 </span> 55/push-ebp +<span id="L5911" class="LineNr">5911 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L5912" class="LineNr">5912 </span> <span class="subxComment"># setup</span> +<span id="L5913" class="LineNr">5913 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L5914" class="LineNr">5914 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5915" class="LineNr">5915 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5916" class="LineNr">5916 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5917" class="LineNr">5917 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5918" class="LineNr">5918 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5919" class="LineNr">5919 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5920" class="LineNr">5920 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L5921" class="LineNr">5921 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5922" class="LineNr">5922 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5923" class="LineNr">5923 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5924" class="LineNr">5924 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5925" class="LineNr">5925 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5926" class="LineNr">5926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5927" class="LineNr">5927 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L5928" class="LineNr">5928 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5929" class="LineNr">5929 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L5930" class="LineNr">5930 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5931" class="LineNr">5931 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L5932" class="LineNr">5932 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5933" class="LineNr">5933 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5934" class="LineNr">5934 </span> <span class="subxComment"># initialize input</span> +<span id="L5935" class="LineNr">5935 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm16")</span> +<span id="L5936" class="LineNr">5936 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5937" class="LineNr">5937 </span> 68/push <span class="Constant">"68/push 0x20/imm16"</span>/imm32 <span class="subxComment"># not a valid instruction</span> +<span id="L5938" class="LineNr">5938 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5939" class="LineNr">5939 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5940" class="LineNr">5940 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L5941" class="LineNr">5941 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5942" class="LineNr">5942 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5943" class="LineNr">5943 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L5944" class="LineNr">5944 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5945" class="LineNr">5945 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5946" class="LineNr">5946 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L5947" class="LineNr">5947 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5948" class="LineNr">5948 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L5949" class="LineNr">5949 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5950" class="LineNr">5950 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L5951" class="LineNr">5951 </span> <span class="subxComment"># check output</span> +<span id="L5952" class="LineNr">5952 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L5953" class="LineNr">5953 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5954" class="LineNr">5954 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L5955" class="LineNr">5955 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5956" class="LineNr">5956 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L5957" class="LineNr">5957 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5958" class="LineNr">5958 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L5959" class="Folded">5959 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L5985" class="LineNr">5985 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 00 # 68/push 0x20/imm16", msg)</span> +<span id="L5986" class="LineNr">5986 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L5987" class="LineNr">5987 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm16-operand"</span>/imm32 +<span id="L5988" class="LineNr">5988 </span> 68/push <span class="Constant">"68 20 00 # 68/push 0x20/imm16"</span>/imm32 +<span id="L5989" class="LineNr">5989 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L5990" class="LineNr">5990 </span> <span class="subxS2Comment"># . . call</span> +<span id="L5991" class="LineNr">5991 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L5992" class="LineNr">5992 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L5993" class="LineNr">5993 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L5994" class="LineNr">5994 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L5995" class="LineNr">5995 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L5996" class="LineNr">5996 </span> 5d/pop-to-ebp +<span id="L5997" class="LineNr">5997 </span> c3/return +<span id="L5998" class="LineNr">5998 </span> +<span id="L5999" class="LineNr">5999 </span><span class="subxTest">test-convert-instruction-handles-imm8-operand</span>: +<span id="L6000" class="LineNr">6000 </span> <span class="subxComment"># expand /imm8 operand into 1 byte</span> +<span id="L6001" class="LineNr">6001 </span> <span class="subxComment"># we don't have one of these at the moment, so this expands to an invalid instruction</span> +<span id="L6002" class="LineNr">6002 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6003" class="LineNr">6003 </span> 55/push-ebp +<span id="L6004" class="LineNr">6004 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L6005" class="LineNr">6005 </span> <span class="subxComment"># setup</span> +<span id="L6006" class="LineNr">6006 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L6007" class="LineNr">6007 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6008" class="LineNr">6008 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L6009" class="LineNr">6009 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6010" class="LineNr">6010 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L6011" class="LineNr">6011 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6012" class="LineNr">6012 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L6013" class="LineNr">6013 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L6014" class="LineNr">6014 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6015" class="LineNr">6015 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L6016" class="LineNr">6016 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6017" class="LineNr">6017 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L6018" class="LineNr">6018 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6019" class="LineNr">6019 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L6020" class="LineNr">6020 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L6021" class="LineNr">6021 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6022" class="LineNr">6022 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L6023" class="LineNr">6023 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6024" class="LineNr">6024 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L6025" class="LineNr">6025 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6026" class="LineNr">6026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L6027" class="LineNr">6027 </span> <span class="subxComment"># initialize input</span> +<span id="L6028" class="LineNr">6028 </span> <span class="subxS1Comment"># . write(_test-input-stream, "68/push 0x20/imm8")</span> +<span id="L6029" class="LineNr">6029 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6030" class="LineNr">6030 </span> 68/push <span class="Constant">"68/push 0x20/imm8"</span>/imm32 +<span id="L6031" class="LineNr">6031 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L6032" class="LineNr">6032 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6033" class="LineNr">6033 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L6034" class="LineNr">6034 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6035" class="LineNr">6035 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L6036" class="LineNr">6036 </span> <span class="subxComment"># convert-instruction(_test-input-stream, _test-output-buffered-file)</span> +<span id="L6037" class="LineNr">6037 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6038" class="LineNr">6038 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L6039" class="LineNr">6039 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L6040" class="LineNr">6040 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6041" class="LineNr">6041 </span> e8/call <a href='pack.subx.html#L1891'>convert-instruction</a>/disp32 +<span id="L6042" class="LineNr">6042 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6043" class="LineNr">6043 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L6044" class="LineNr">6044 </span> <span class="subxComment"># check output</span> +<span id="L6045" class="LineNr">6045 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L6046" class="LineNr">6046 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6047" class="LineNr">6047 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L6048" class="LineNr">6048 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6049" class="LineNr">6049 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L6050" class="LineNr">6050 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6051" class="LineNr">6051 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L6052" class="Folded">6052 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L6078" class="LineNr">6078 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "68 20 # 68/push 0x20/imm8", msg)</span> +<span id="L6079" class="LineNr">6079 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6080" class="LineNr">6080 </span> 68/push <span class="Constant">"F - test-convert-instruction-handles-imm8-operand"</span>/imm32 +<span id="L6081" class="LineNr">6081 </span> 68/push <span class="Constant">"68 20 # 68/push 0x20/imm8"</span>/imm32 +<span id="L6082" class="LineNr">6082 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L6083" class="LineNr">6083 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6084" class="LineNr">6084 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L6085" class="LineNr">6085 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6086" class="LineNr">6086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L6087" class="LineNr">6087 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6088" class="LineNr">6088 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L6089" class="LineNr">6089 </span> 5d/pop-to-ebp +<span id="L6090" class="LineNr">6090 </span> c3/return +<span id="L6091" class="LineNr">6091 </span> +<span id="L6092" class="LineNr">6092 </span><span class="subxComment"># shortcut for parse-hex-int-from-slice(next-token-from-slice(word->start, word->end, '/'))</span> +<span id="L6093" class="LineNr">6093 </span><span class="subxFunction">parse-datum-of-word</span>: <span class="subxComment"># word: (addr slice) -> value/eax: int</span> +<span id="L6094" class="LineNr">6094 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L6095" class="LineNr">6095 </span> 55/push-ebp +<span id="L6096" class="LineNr">6096 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L6097" class="LineNr">6097 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L6098" class="LineNr">6098 </span> 51/push-ecx +<span id="L6099" class="LineNr">6099 </span> 56/push-esi +<span id="L6100" class="LineNr">6100 </span> <span class="subxComment"># esi = word</span> +<span id="L6101" class="LineNr">6101 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L6102" class="LineNr">6102 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L6103" class="LineNr">6103 </span> 68/push 0/imm32/end +<span id="L6104" class="LineNr">6104 </span> 68/push 0/imm32/start +<span id="L6105" class="LineNr">6105 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L6106" class="LineNr">6106 </span> <span class="subxComment"># slice = next-token-from-slice(word->start, word->end, '/')</span> +<span id="L6107" class="LineNr">6107 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6108" class="LineNr">6108 </span> 51/push-ecx +<span id="L6109" class="LineNr">6109 </span> 68/push 0x2f/imm32/slash +<span id="L6110" class="LineNr">6110 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L6111" class="LineNr">6111 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L6112" class="LineNr">6112 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6113" class="LineNr">6113 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L6114" class="LineNr">6114 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6115" class="LineNr">6115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L6116" class="LineNr">6116 </span> <span class="subxComment"># return parse-hex-int-from-slice(slice)</span> +<span id="L6117" class="LineNr">6117 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L6118" class="LineNr">6118 </span> 51/push-ecx +<span id="L6119" class="LineNr">6119 </span> <span class="subxS2Comment"># . . call</span> +<span id="L6120" class="LineNr">6120 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L6121" class="LineNr">6121 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L6122" class="LineNr">6122 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L6123" class="LineNr">6123 </span><span class="Constant">$parse-datum-of-word:end</span>: +<span id="L6124" class="LineNr">6124 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L6125" class="LineNr">6125 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L6126" class="LineNr">6126 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L6127" class="LineNr">6127 </span> 5e/pop-to-esi +<span id="L6128" class="LineNr">6128 </span> 59/pop-to-ecx +<span id="L6129" class="LineNr">6129 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L6130" class="LineNr">6130 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L6131" class="LineNr">6131 </span> 5d/pop-to-ebp +<span id="L6132" class="LineNr">6132 </span> c3/return +<span id="L6133" class="LineNr">6133 </span> +<span id="L6134" class="LineNr">6134 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/apps/parse-int.mu.html b/html/linux/parse-int.mu.html index daa5dd83..1041c516 100644 --- a/html/apps/parse-int.mu.html +++ b/html/linux/parse-int.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/parse-int.mu</title> +<title>Mu - linux/parse-int.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,51 +54,51 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/parse-int.mu'>https://github.com/akkartik/mu/blob/main/apps/parse-int.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/parse-int.mu'>https://github.com/akkartik/mu/blob/main/linux/parse-int.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># parse a decimal int at the commandline</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate_mu apps/parse-int.mu</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate parse-int.mu</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf 123</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo $?</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># 123</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse-int.mu.html#L9'>main</a></span> _args: (addr array addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L10" class="LineNr">10 </span> <span class="muComment"># if no args, print a message and exit</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy _args -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr array addr array byte) <span class="Special"><-</span> copy _args +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length args <span id="L13" class="LineNr">13 </span> compare n, <span class="Constant">1</span> <span id="L14" class="LineNr">14 </span> <span class="Delimiter">{</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if-></span> -<span id="L16" class="LineNr">16 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"usage: <a href='parse-int.mu.html#L25'>parse-int</a> <integer>\n"</span> +<span id="L16" class="LineNr">16 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"usage: <a href='parse-int.mu.html#L25'>parse-int</a> <integer>\n"</span> <span id="L17" class="LineNr">17 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span id="L18" class="LineNr">18 </span> <span class="Delimiter">}</span> <span id="L19" class="LineNr">19 </span> <span class="muComment"># otherwise parse the first arg as an integer</span> -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> in/<span class="Constant">ecx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args, <span class="Constant">1</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='parse-int.mu.html#L25'>parse-int</a> *in +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> in/<span class="Constant">ecx</span>: (addr addr array byte) <span class="Special"><-</span> index args, <span class="Constant">1</span> +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='parse-int.mu.html#L25'>parse-int</a> *in <span id="L22" class="LineNr">22 </span> <span class="PreProc">return</span> out <span id="L23" class="LineNr">23 </span><span class="Delimiter">}</span> <span id="L24" class="LineNr">24 </span> <span id="L25" class="LineNr">25 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse-int.mu.html#L25'>parse-int</a></span> _in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _in -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> length in -<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> copy _in +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length in +<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> result/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L30" class="LineNr">30 </span> <span class="Delimiter">{</span> <span id="L31" class="LineNr">31 </span> compare i, len <span id="L32" class="LineNr">32 </span> <span class="PreProc">break-if->=</span> <span id="L33" class="LineNr">33 </span> <span class="muComment"># result *= 10</span> -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> ten/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xa</span> -<span id="L35" class="LineNr">35 </span> result <span class="SpecialChar"><-</span> multiply ten +<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> ten/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0xa</span> +<span id="L35" class="LineNr">35 </span> result <span class="Special"><-</span> multiply ten <span id="L36" class="LineNr">36 </span> <span class="muComment"># c = in[i]</span> -<span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ebx</span>: (addr byte) <span class="SpecialChar"><-</span> index in, i -<span id="L38" class="LineNr">38 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> copy-byte *tmp +<span id="L37" class="LineNr">37 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ebx</span>: (addr byte) <span class="Special"><-</span> index in, i +<span id="L38" class="LineNr">38 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> copy-byte *tmp <span id="L39" class="LineNr">39 </span> <span class="muComment">#</span> -<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> digit/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../126write-int-decimal.subx.html#L405'>to-decimal-digit</a> g -<span id="L42" class="LineNr">42 </span> result <span class="SpecialChar"><-</span> add digit -<span id="L43" class="LineNr">43 </span> i <span class="SpecialChar"><-</span> increment +<span id="L40" class="LineNr">40 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L41" class="LineNr">41 </span> <span class="PreProc">var</span> digit/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='126write-int-decimal.subx.html#L405'>to-decimal-digit</a> g +<span id="L42" class="LineNr">42 </span> result <span class="Special"><-</span> add digit +<span id="L43" class="LineNr">43 </span> i <span class="Special"><-</span> increment <span id="L44" class="LineNr">44 </span> <span class="PreProc">loop</span> <span id="L45" class="LineNr">45 </span> <span class="Delimiter">}</span> <span id="L46" class="LineNr">46 </span> <span class="PreProc">return</span> result diff --git a/html/apps/print-file.mu.html b/html/linux/print-file.mu.html index 746f6881..6cee81a7 100644 --- a/html/apps/print-file.mu.html +++ b/html/linux/print-file.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/print-file.mu</title> +<title>Mu - linux/print-file.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,42 +54,42 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/print-file.mu'>https://github.com/akkartik/mu/blob/main/apps/print-file.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/print-file.mu'>https://github.com/akkartik/mu/blob/main/linux/print-file.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># accept a filename on the commandline, read it and print it out to screen</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># only ascii right now, just like the rest of Mu</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./translate_mu apps/print-file.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./translate print-file.mu</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ echo abc > x</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf x</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># abc</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print-file.mu.html#L10'>main</a></span> _args: (addr array addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="SpecialChar"><-</span> copy _args -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length args +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="Special"><-</span> copy _args +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length args <span id="L13" class="LineNr">13 </span> compare n, <span class="Constant">1</span> <span id="L14" class="LineNr">14 </span> <span class="Delimiter">{</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if-></span> -<span id="L16" class="LineNr">16 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"usage: cat <filename>\n"</span> +<span id="L16" class="LineNr">16 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"usage: cat <filename>\n"</span> <span id="L17" class="LineNr">17 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L18" class="LineNr">18 </span> <span class="Delimiter">}</span> <span id="L19" class="LineNr">19 </span> <span class="Delimiter">{</span> <span id="L20" class="LineNr">20 </span> <span class="PreProc">break-if-<=</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> filename/<span class="Constant">edx</span>: (addr addr array byte) <span class="SpecialChar"><-</span> index args <span class="Constant">1</span> +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> filename/<span class="Constant">edx</span>: (addr addr array byte) <span class="Special"><-</span> index args <span class="Constant">1</span> <span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> in: (handle buffered-file) <span id="L23" class="LineNr">23 </span> <span class="Delimiter">{</span> -<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> addr-in/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> address in -<span id="L25" class="LineNr">25 </span> <a href='../306files.subx.html#L12'>open</a> *filename, <span class="Constant">0</span>, addr-in +<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> addr-in/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> address in +<span id="L25" class="LineNr">25 </span> <a href='306files.subx.html#L12'>open</a> *filename, <span class="Constant">0</span>/read-only, addr-in <span id="L26" class="LineNr">26 </span> <span class="Delimiter">}</span> -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> _in-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../120allocate.subx.html#L256'>lookup</a> in -<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">ecx</span>: (addr buffered-file) <span class="SpecialChar"><-</span> copy _in-addr +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> _in-addr/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> in +<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">ecx</span>: (addr buffered-file) <span class="Special"><-</span> copy _in-addr <span id="L29" class="LineNr">29 </span> <span class="Delimiter">{</span> -<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../112read-byte.subx.html#L38'>read-byte-buffered</a> in-addr -<span id="L31" class="LineNr">31 </span> compare c, <span class="Constant">0xffffffff</span> <span class="muComment"># EOF marker</span> +<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='112read-byte.subx.html#L38'>read-byte-buffered</a> in-addr +<span id="L31" class="LineNr">31 </span> compare c, <span class="Constant">0xffffffff</span>/end-of-file <span id="L32" class="LineNr">32 </span> <span class="PreProc">break-if-=</span> -<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy c -<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L210'>print-grapheme</a> <span class="Constant">0</span>, g +<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy c +<span id="L34" class="LineNr">34 </span> <a href='405screen.mu.html#L214'>print-grapheme</a> <span class="Constant">0</span>/screen, g <span id="L35" class="LineNr">35 </span> <span class="PreProc">loop</span> <span id="L36" class="LineNr">36 </span> <span class="Delimiter">}</span> <span id="L37" class="LineNr">37 </span> <span class="Delimiter">}</span> diff --git a/html/apps/random.subx.html b/html/linux/random.subx.html index e03b3fbd..ea13bb1b 100644 --- a/html/apps/random.subx.html +++ b/html/linux/random.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/random.subx</title> +<title>Mu - linux/random.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,12 +15,12 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } --> </style> @@ -54,13 +54,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/random.subx'>https://github.com/akkartik/mu/blob/main/apps/random.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/random.subx'>https://github.com/akkartik/mu/blob/main/linux/random.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Repeatedly read 32-bit numbers from /dev/random, print them to stdout.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># To run:</span> -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/random.subx -o apps/random</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap run apps/random</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/random.subx -o apps/random</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap run random</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span>== code 0x09000000 <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -72,7 +72,7 @@ if ('onhashchange' in window) { <span id="L14" class="LineNr">14 </span> bb/copy-to-ebx <span class="SpecialChar"><a href='random.subx.html#L55'>Filename</a></span>/imm32 <span id="L15" class="LineNr">15 </span> b9/copy-to-ecx 0/imm32/rdonly <span id="L16" class="LineNr">16 </span> ba/copy-to-edx 0x180/imm32/fixed-perms -<span id="L17" class="LineNr">17 </span> e8/call syscall_open/disp32 +<span id="L17" class="LineNr">17 </span> e8/call <a href='000init.subx.html#L35'>syscall_open</a>/disp32 <span id="L18" class="LineNr">18 </span> <span class="subxS1Comment"># . stream = eax</span> <span id="L19" class="LineNr">19 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> <span id="L20" class="LineNr">20 </span> @@ -82,21 +82,21 @@ if ('onhashchange' in window) { <span id="L24" class="LineNr">24 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to ebx</span> <span id="L25" class="LineNr">25 </span> b9/copy-to-ecx <span class="SpecialChar"><a href='random.subx.html#L53'>N</a></span>/imm32 <span id="L26" class="LineNr">26 </span> ba/copy-to-edx 4/imm32/size -<span id="L27" class="LineNr">27 </span> e8/call syscall_read/disp32 +<span id="L27" class="LineNr">27 </span> e8/call <a href='000init.subx.html#L23'>syscall_read</a>/disp32 <span id="L28" class="LineNr">28 </span> <span id="L29" class="LineNr">29 </span> <span class="subxComment"># write-int32-hex-buffered(Stdout, *N)</span> <span id="L30" class="LineNr">30 </span> <span class="subxS2Comment"># . . push args</span> <span id="L31" class="LineNr">31 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='random.subx.html#L53'>N</a></span>/disp32 <span class="subxComment"># push *N</span> -<span id="L32" class="LineNr">32 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L32" class="LineNr">32 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 <span id="L33" class="LineNr">33 </span> <span class="subxS2Comment"># . . call</span> -<span id="L34" class="LineNr">34 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L34" class="LineNr">34 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 <span id="L35" class="LineNr">35 </span> <span id="L36" class="LineNr">36 </span> <span class="subxComment"># write-buffered(Stdout, Newline)</span> <span id="L37" class="LineNr">37 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L38" class="LineNr">38 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L39" class="LineNr">39 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L38" class="LineNr">38 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L39" class="LineNr">39 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 <span id="L40" class="LineNr">40 </span> <span class="subxS2Comment"># . . call</span> -<span id="L41" class="LineNr">41 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L41" class="LineNr">41 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 <span id="L42" class="LineNr">42 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L43" class="LineNr">43 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L44" class="LineNr">44 </span> @@ -104,7 +104,7 @@ if ('onhashchange' in window) { <span id="L46" class="LineNr">46 </span> <span id="L47" class="LineNr">47 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L48" class="LineNr">48 </span> bb/copy-to-ebx 0/imm32 -<span id="L49" class="LineNr">49 </span> e8/call syscall_exit/disp32 +<span id="L49" class="LineNr">49 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L50" class="LineNr">50 </span> <span id="L51" class="LineNr">51 </span>== data 0x0a000000 <span id="L52" class="LineNr">52 </span> diff --git a/html/apps/raytracing/1.mu.html b/html/linux/raytracing/1.mu.html index 5c349ae2..97c5cf39 100644 --- a/html/apps/raytracing/1.mu.html +++ b/html/linux/raytracing/1.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/raytracing/1.mu</title> +<title>Mu - linux/raytracing/1.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/raytracing/1.mu'>https://github.com/akkartik/mu/blob/main/apps/raytracing/1.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/1.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/1.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 1 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># (simplified)</span> @@ -62,27 +62,27 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="muComment"># To run (on Linux):</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ cd mu</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate_mu apps/raytracing/1.mu</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate raytracing/1.mu</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># $ ./a.elf > 1.ppm</span> <span id="L9" class="LineNr"> 9 </span> <span id="L10" class="LineNr">10 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L11" class="LineNr">11 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> +<span id="L11" class="LineNr">11 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> <span id="L13" class="LineNr">13 </span> <span class="Delimiter">{</span> <span id="L14" class="LineNr">14 </span> compare j, <span class="Constant">0</span> <span id="L15" class="LineNr">15 </span> <span class="PreProc">break-if-<</span> -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> <span id="L18" class="LineNr">18 </span> compare i, <span class="Constant">0xff</span> <span id="L19" class="LineNr">19 </span> <span class="PreProc">break-if-></span> -<span id="L20" class="LineNr">20 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, i -<span id="L21" class="LineNr">21 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L22" class="LineNr">22 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, j -<span id="L23" class="LineNr">23 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" 64\n"</span> -<span id="L24" class="LineNr">24 </span> i <span class="SpecialChar"><-</span> increment +<span id="L20" class="LineNr">20 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, i +<span id="L21" class="LineNr">21 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L22" class="LineNr">22 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, j +<span id="L23" class="LineNr">23 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" 64\n"</span> +<span id="L24" class="LineNr">24 </span> i <span class="Special"><-</span> increment <span id="L25" class="LineNr">25 </span> <span class="PreProc">loop</span> <span id="L26" class="LineNr">26 </span> <span class="Delimiter">}</span> -<span id="L27" class="LineNr">27 </span> j <span class="SpecialChar"><-</span> decrement +<span id="L27" class="LineNr">27 </span> j <span class="Special"><-</span> decrement <span id="L28" class="LineNr">28 </span> <span class="PreProc">loop</span> <span id="L29" class="LineNr">29 </span> <span class="Delimiter">}</span> <span id="L30" class="LineNr">30 </span> <span class="PreProc">return</span> <span class="Constant">0</span> diff --git a/html/apps/raytracing/2.mu.html b/html/linux/raytracing/2.mu.html index edb9d9d9..8702e8ed 100644 --- a/html/apps/raytracing/2.mu.html +++ b/html/linux/raytracing/2.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/raytracing/2.mu</title> +<title>Mu - linux/raytracing/2.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,55 +55,55 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/raytracing/2.mu'>https://github.com/akkartik/mu/blob/main/apps/raytracing/2.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/2.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/2.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 7 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/raytracing/2.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate raytracing/2.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf > 2.ppm</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction">main</span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> -<span id="L10" class="LineNr">10 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> _four/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">4</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> four/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert _four -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> one-fourth/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> reciprocal four -<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> image-size/<span class="Constant">xmm2</span>: float <span class="SpecialChar"><-</span> convert max -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> +<span id="L10" class="LineNr">10 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n256 256\n255\n"</span> +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> _four/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">4</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> four/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert _four +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> one-fourth/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> reciprocal four +<span id="L14" class="LineNr">14 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> image-size/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert max +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> <span id="L17" class="LineNr">17 </span> <span class="Delimiter">{</span> <span id="L18" class="LineNr">18 </span> compare j, <span class="Constant">0</span> <span id="L19" class="LineNr">19 </span> <span class="PreProc">break-if-<</span> -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L21" class="LineNr">21 </span> <span class="Delimiter">{</span> <span id="L22" class="LineNr">22 </span> compare i, <span class="Constant">0xff</span> <span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if-></span> <span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> c: rgb <span id="L25" class="LineNr">25 </span> <span class="muComment"># compute r</span> -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert i -<span id="L27" class="LineNr">27 </span> tmp <span class="SpecialChar"><-</span> divide image-size -<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> r-addr/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert i +<span id="L27" class="LineNr">27 </span> tmp <span class="Special"><-</span> divide image-size +<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> r-addr/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r <span id="L29" class="LineNr">29 </span> copy-to *r-addr, tmp <span id="L30" class="LineNr">30 </span><span class="CommentedCode">#? var tmp2/ebx: int <- reinterpret *r-addr</span> <span id="L31" class="LineNr">31 </span><span class="CommentedCode">#? print-int32-hex 0, tmp2</span> <span id="L32" class="LineNr">32 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L33" class="LineNr">33 </span> <span class="muComment"># compute g</span> -<span id="L34" class="LineNr">34 </span> tmp <span class="SpecialChar"><-</span> convert j -<span id="L35" class="LineNr">35 </span> tmp <span class="SpecialChar"><-</span> divide image-size -<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> g-addr/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g +<span id="L34" class="LineNr">34 </span> tmp <span class="Special"><-</span> convert j +<span id="L35" class="LineNr">35 </span> tmp <span class="Special"><-</span> divide image-size +<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> g-addr/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g <span id="L37" class="LineNr">37 </span> copy-to *g-addr, tmp <span id="L38" class="LineNr">38 </span> <span class="muComment"># compute b</span> -<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> b-addr/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b +<span id="L39" class="LineNr">39 </span> <span class="PreProc">var</span> b-addr/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b <span id="L40" class="LineNr">40 </span> copy-to *b-addr, one-fourth <span id="L41" class="LineNr">41 </span> <span class="muComment"># emit</span> -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> c-addr/<span class="Constant">edx</span>: (addr rgb) <span class="SpecialChar"><-</span> address c +<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> c-addr/<span class="Constant">edx</span>: (addr rgb) <span class="Special"><-</span> address c <span id="L43" class="LineNr">43 </span> print-rgb <span class="Constant">0</span>, c-addr -<span id="L44" class="LineNr">44 </span> i <span class="SpecialChar"><-</span> increment +<span id="L44" class="LineNr">44 </span> i <span class="Special"><-</span> increment <span id="L45" class="LineNr">45 </span> <span class="PreProc">loop</span> <span id="L46" class="LineNr">46 </span> <span class="Delimiter">}</span> -<span id="L47" class="LineNr">47 </span> j <span class="SpecialChar"><-</span> decrement +<span id="L47" class="LineNr">47 </span> j <span class="Special"><-</span> decrement <span id="L48" class="LineNr">48 </span> <span class="PreProc">loop</span> <span id="L49" class="LineNr">49 </span> <span class="Delimiter">}</span> <span id="L50" class="LineNr">50 </span> <span class="PreProc">return</span> <span class="Constant">0</span> @@ -117,31 +117,31 @@ if ('onhashchange' in window) { <span id="L58" class="LineNr">58 </span><span class="Delimiter">}</span> <span id="L59" class="LineNr">59 </span> <span id="L60" class="LineNr">60 </span><span class="muComment"># print translating to [0, 256)</span> -<span id="L61" class="LineNr">61 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L62" class="LineNr">62 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _c -<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> <span class="muComment"># turns out 255 works just as well as 255.999, which is lucky because we don't have floating-point literals</span> -<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> xn/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert n +<span id="L61" class="LineNr">61 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> +<span id="L62" class="LineNr">62 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c +<span id="L63" class="LineNr">63 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> <span class="muComment"># turns out 255 works just as well as 255.999, which is lucky because we don't have floating-point literals</span> +<span id="L64" class="LineNr">64 </span> <span class="PreProc">var</span> xn/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert n <span id="L65" class="LineNr">65 </span> <span class="muComment"># print 255 * c->r</span> -<span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn -<span id="L67" class="LineNr">67 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r -<span id="L68" class="LineNr">68 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L69" class="LineNr">69 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> convert result -<span id="L70" class="LineNr">70 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L71" class="LineNr">71 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L66" class="LineNr">66 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy xn +<span id="L67" class="LineNr">67 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r +<span id="L68" class="LineNr">68 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L69" class="LineNr">69 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="Special"><-</span> convert result +<span id="L70" class="LineNr">70 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L71" class="LineNr">71 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> <span id="L72" class="LineNr">72 </span> <span class="muComment"># print 255 * c->g</span> -<span id="L73" class="LineNr">73 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g -<span id="L74" class="LineNr">74 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L75" class="LineNr">75 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L76" class="LineNr">76 </span> result-int <span class="SpecialChar"><-</span> convert result -<span id="L77" class="LineNr">77 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L78" class="LineNr">78 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L73" class="LineNr">73 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g +<span id="L74" class="LineNr">74 </span> result <span class="Special"><-</span> copy xn +<span id="L75" class="LineNr">75 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L76" class="LineNr">76 </span> result-int <span class="Special"><-</span> convert result +<span id="L77" class="LineNr">77 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L78" class="LineNr">78 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> <span id="L79" class="LineNr">79 </span> <span class="muComment"># print 255 * c->b</span> -<span id="L80" class="LineNr">80 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b -<span id="L81" class="LineNr">81 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L82" class="LineNr">82 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L83" class="LineNr">83 </span> result-int <span class="SpecialChar"><-</span> convert result -<span id="L84" class="LineNr">84 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L85" class="LineNr">85 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> +<span id="L80" class="LineNr">80 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b +<span id="L81" class="LineNr">81 </span> result <span class="Special"><-</span> copy xn +<span id="L82" class="LineNr">82 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L83" class="LineNr">83 </span> result-int <span class="Special"><-</span> convert result +<span id="L84" class="LineNr">84 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L85" class="LineNr">85 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> <span id="L86" class="LineNr">86 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/raytracing/3.mu.html b/html/linux/raytracing/3.mu.html index 0d22fec5..6cd28275 100644 --- a/html/apps/raytracing/3.mu.html +++ b/html/linux/raytracing/3.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/raytracing/3.mu</title> +<title>Mu - linux/raytracing/3.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,16 +14,16 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } -.muS1Comment { color: #0000af; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.muS1Comment { color: #0000af; } +.muS2Comment { color: #8a8a8a; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } -.muS2Comment { color: #8a8a8a; } +.muComment { color: #005faf; } --> </style> @@ -57,57 +57,57 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/raytracing/3.mu'>https://github.com/akkartik/mu/blob/main/apps/raytracing/3.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/3.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/3.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Listing 9 of <a href="https://raytracing.github.io/books/RayTracingInOneWeekend.html">https://raytracing.github.io/books/RayTracingInOneWeekend.html</a></span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/raytracing/3.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate raytracing/3.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf > 3.ppm</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L9'>ray-color</a></span> _in: (addr ray), _out: (addr rgb) <span class="Delimiter">{</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr ray) <span class="SpecialChar"><-</span> copy _in -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _out -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> dir/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> in, dir +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr ray) <span class="Special"><-</span> copy _in +<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr rgb) <span class="Special"><-</span> copy _out +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> dir/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> in, dir <span id="L13" class="LineNr"> 13 </span><span class="CommentedCode">#? print-string 0, "r.dir: "</span> <span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? print-vec3 0, dir</span> <span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> unit-storage: vec3 -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> unit/<span class="Constant">ecx</span>: (addr vec3) <span class="SpecialChar"><-</span> address unit-storage +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> unit/<span class="Constant">ecx</span>: (addr vec3) <span class="Special"><-</span> address unit-storage <span id="L18" class="LineNr"> 18 </span> vec3-unit dir, unit <span id="L19" class="LineNr"> 19 </span><span class="CommentedCode">#? print-string 0, "r.dir normalized: "</span> <span id="L20" class="LineNr"> 20 </span><span class="CommentedCode">#? print-vec3 0, unit</span> <span id="L21" class="LineNr"> 21 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> y-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> unit, y +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> y-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> unit, y <span id="L23" class="LineNr"> 23 </span> <span class="muComment"># t = (dir.y + 1.0) / 2.0</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> t/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *y-addr -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert one -<span id="L27" class="LineNr"> 27 </span> t <span class="SpecialChar"><-</span> add one-f -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="SpecialChar"><-</span> convert two -<span id="L30" class="LineNr"> 30 </span> t <span class="SpecialChar"><-</span> divide two-f +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> t/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *y-addr +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert one +<span id="L27" class="LineNr"> 27 </span> t <span class="Special"><-</span> add one-f +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> two/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm2</span>: float <span class="Special"><-</span> convert two +<span id="L30" class="LineNr"> 30 </span> t <span class="Special"><-</span> divide two-f <span id="L31" class="LineNr"> 31 </span><span class="CommentedCode">#? print-string 0, "t: "</span> <span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? print-float-hex 0, t</span> <span id="L33" class="LineNr"> 33 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L34" class="LineNr"> 34 </span> <span class="muComment"># whitening = (1.0 - t) * white</span> <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> whitening-storage: rgb -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> whitening/<span class="Constant">ecx</span>: (addr rgb) <span class="SpecialChar"><-</span> address whitening-storage +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> whitening/<span class="Constant">ecx</span>: (addr rgb) <span class="Special"><-</span> address whitening-storage <span id="L37" class="LineNr"> 37 </span> <a href='3.mu.html#L302'>rgb-white</a> whitening -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> one-minus-t/<span class="Constant">xmm3</span>: float <span class="SpecialChar"><-</span> copy one-f -<span id="L39" class="LineNr"> 39 </span> one-minus-t <span class="SpecialChar"><-</span> subtract t +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> one-minus-t/<span class="Constant">xmm3</span>: float <span class="Special"><-</span> copy one-f +<span id="L39" class="LineNr"> 39 </span> one-minus-t <span class="Special"><-</span> subtract t <span id="L40" class="LineNr"> 40 </span> <a href='3.mu.html#L337'>rgb-scale-up</a> whitening, one-minus-t <span id="L41" class="LineNr"> 41 </span><span class="CommentedCode">#? print-string 0, "whitening: "</span> <span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-rgb-raw 0, whitening</span> <span id="L43" class="LineNr"> 43 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L44" class="LineNr"> 44 </span> <span class="muComment"># out = t * (0.5, 0.7, 1.0)</span> -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, r -<span id="L46" class="LineNr"> 46 </span> <a href='../../408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">5</span>, <span class="Constant">0xa</span> -<span id="L47" class="LineNr"> 47 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, g -<span id="L48" class="LineNr"> 48 </span> <a href='../../408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">7</span>, <span class="Constant">0xa</span> -<span id="L49" class="LineNr"> 49 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, b +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, r +<span id="L46" class="LineNr"> 46 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">5</span>, <span class="Constant">0xa</span> +<span id="L47" class="LineNr"> 47 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, g +<span id="L48" class="LineNr"> 48 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> dest, <span class="Constant">7</span>, <span class="Constant">0xa</span> +<span id="L49" class="LineNr"> 49 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, b <span id="L50" class="LineNr"> 50 </span> copy-to *dest, one-f <span id="L51" class="LineNr"> 51 </span> <a href='3.mu.html#L337'>rgb-scale-up</a> out, t <span id="L52" class="LineNr"> 52 </span><span class="CommentedCode">#? print-string 0, "base: "</span> @@ -126,8 +126,8 @@ if ('onhashchange' in window) { <span id="L65" class="LineNr"> 65 </span> <span class="muComment"># width = 400</span> <span id="L66" class="LineNr"> 66 </span> <span class="muComment"># height = 400 * 9/16 = 225</span> <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> aspect: float -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> aspect-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> address aspect -<span id="L69" class="LineNr"> 69 </span> <a href='../../408float.mu.html#L3'>fill-in-rational</a> aspect-addr, <span class="Constant">0x10</span>, <span class="Constant">9</span> <span class="muComment"># 16/9</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> aspect-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> address aspect +<span id="L69" class="LineNr"> 69 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> aspect-addr, <span class="Constant">0x10</span>, <span class="Constant">9</span> <span class="muComment"># 16/9</span> <span id="L70" class="LineNr"> 70 </span><span class="CommentedCode">#? print-string 0, "aspect ratio: "</span> <span id="L71" class="LineNr"> 71 </span><span class="CommentedCode">#? print-float-hex 0, aspect</span> <span id="L72" class="LineNr"> 72 </span><span class="CommentedCode">#? print-string 0, " "</span> @@ -140,9 +140,9 @@ if ('onhashchange' in window) { <span id="L79" class="LineNr"> 79 </span> <span class="muComment"># camera</span> <span id="L80" class="LineNr"> 80 </span> <span id="L81" class="LineNr"> 81 </span> <span class="muComment"># viewport-height = 2.0</span> -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">2</span> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm4</span>: float <span class="SpecialChar"><-</span> convert tmp -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> viewport-height/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> copy two-f +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">2</span> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> two-f/<span class="Constant">xmm4</span>: float <span class="Special"><-</span> convert tmp +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> viewport-height/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> copy two-f <span id="L85" class="LineNr"> 85 </span><span class="CommentedCode">#? print-string 0, "viewport height: "</span> <span id="L86" class="LineNr"> 86 </span><span class="CommentedCode">#? print-float-hex 0, viewport-height</span> <span id="L87" class="LineNr"> 87 </span><span class="CommentedCode">#? print-string 0, " "</span> @@ -154,8 +154,8 @@ if ('onhashchange' in window) { <span id="L93" class="LineNr"> 93 </span><span class="CommentedCode">#? }</span> <span id="L94" class="LineNr"> 94 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L95" class="LineNr"> 95 </span> <span class="muComment"># viewport-width = aspect * viewport-height</span> -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> viewport-width/<span class="Constant">xmm6</span>: float <span class="SpecialChar"><-</span> convert tmp -<span id="L97" class="LineNr"> 97 </span> viewport-width <span class="SpecialChar"><-</span> multiply aspect +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> viewport-width/<span class="Constant">xmm6</span>: float <span class="Special"><-</span> convert tmp +<span id="L97" class="LineNr"> 97 </span> viewport-width <span class="Special"><-</span> multiply aspect <span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? print-string 0, "viewport width: "</span> <span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? print-float-hex 0, viewport-width</span> <span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-string 0, " "</span> @@ -167,30 +167,30 @@ if ('onhashchange' in window) { <span id="L106" class="LineNr">106 </span><span class="CommentedCode">#? }</span> <span id="L107" class="LineNr">107 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L108" class="LineNr">108 </span> <span class="muComment"># focal-length = 1.0</span> -<span id="L109" class="LineNr">109 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> focal-length/<span class="Constant">xmm5</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L109" class="LineNr">109 </span> tmp <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> focal-length/<span class="Constant">xmm5</span>: float <span class="Special"><-</span> convert tmp <span id="L111" class="LineNr">111 </span> <span id="L112" class="LineNr">112 </span> <span class="muComment"># origin = point3(0, 0, 0)</span> <span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> origin-storage: vec3 -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> origin/<span class="Constant">edi</span>: (addr vec3) <span class="SpecialChar"><-</span> address origin-storage +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> origin/<span class="Constant">edi</span>: (addr vec3) <span class="Special"><-</span> address origin-storage <span id="L115" class="LineNr">115 </span> <span class="muComment"># horizontal = vec3(viewport-width, 0, 0)</span> <span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> horizontal-storage: vec3 -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> horizontal-storage, x +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> horizontal-storage, x <span id="L118" class="LineNr">118 </span> copy-to *dest, viewport-width -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> horizontal/<span class="Constant">ebx</span>: (addr vec3) <span class="SpecialChar"><-</span> address horizontal-storage +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> horizontal/<span class="Constant">ebx</span>: (addr vec3) <span class="Special"><-</span> address horizontal-storage <span id="L120" class="LineNr">120 </span> <span class="muComment"># vertical = vec3(0, viewport-height, 0)</span> <span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> vertical-storage: vec3 -<span id="L122" class="LineNr">122 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> vertical-storage, y +<span id="L122" class="LineNr">122 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> vertical-storage, y <span id="L123" class="LineNr">123 </span> copy-to *dest, viewport-height -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> vertical/<span class="Constant">edx</span>: (addr vec3) <span class="SpecialChar"><-</span> address vertical-storage +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> vertical/<span class="Constant">edx</span>: (addr vec3) <span class="Special"><-</span> address vertical-storage <span id="L125" class="LineNr">125 </span> <span class="muComment"># lower-left-corner = origin - horizontal/2 - vertical/2 - vec3(0, 0, focal-length)</span> <span id="L126" class="LineNr">126 </span> <span class="muS1Comment"># . lower-left-corner = origin</span> <span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> lower-left-corner-storage: vec3 -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> lower-left-corner/<span class="Constant">esi</span>: (addr vec3) <span class="SpecialChar"><-</span> address lower-left-corner-storage +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> lower-left-corner/<span class="Constant">esi</span>: (addr vec3) <span class="Special"><-</span> address lower-left-corner-storage <span id="L129" class="LineNr">129 </span> copy-object origin, lower-left-corner <span id="L130" class="LineNr">130 </span> <span class="muS1Comment"># . lower-left-corner -= horizontal/2</span> <span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> tmp2: vec3 -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> tmp2-addr/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> address tmp2 +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> tmp2-addr/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> address tmp2 <span id="L133" class="LineNr">133 </span> copy-object horizontal, tmp2-addr <span id="L134" class="LineNr">134 </span> vec3-scale-down tmp2-addr, two-f <span id="L135" class="LineNr">135 </span> vec3-subtract-from lower-left-corner, tmp2-addr @@ -199,9 +199,9 @@ if ('onhashchange' in window) { <span id="L138" class="LineNr">138 </span> vec3-scale-down tmp2-addr, two-f <span id="L139" class="LineNr">139 </span> vec3-subtract-from lower-left-corner, tmp2-addr <span id="L140" class="LineNr">140 </span> <span class="muS1Comment"># . lower-left-corner -= vec3(0, 0, focal-length)</span> -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> dest2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> lower-left-corner, z -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest2 -<span id="L143" class="LineNr">143 </span> tmp3 <span class="SpecialChar"><-</span> subtract focal-length +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> dest2/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> lower-left-corner, z +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> tmp3/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest2 +<span id="L143" class="LineNr">143 </span> tmp3 <span class="Special"><-</span> subtract focal-length <span id="L144" class="LineNr">144 </span> copy-to *dest2, tmp3 <span id="L145" class="LineNr">145 </span> <span class="muComment"># phew!</span> <span id="L146" class="LineNr">146 </span> @@ -213,29 +213,29 @@ if ('onhashchange' in window) { <span id="L152" class="LineNr">152 </span> <span class="muComment"># horizontal (ebx)</span> <span id="L153" class="LineNr">153 </span> <span class="muComment"># vertical (edx)</span> <span id="L154" class="LineNr">154 </span> <span class="muComment"># floating-point registers are all free</span> -<span id="L155" class="LineNr">155 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n400 225\n255\n"</span> <span class="muComment"># 225 = image height</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0x18f</span> <span class="muComment"># image width - 1</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> image-width-1/<span class="Constant">xmm7</span>: float <span class="SpecialChar"><-</span> convert tmp -<span id="L158" class="LineNr">158 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># image height - 1</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> image-height-1/<span class="Constant">xmm6</span>: float <span class="SpecialChar"><-</span> convert tmp +<span id="L155" class="LineNr">155 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n400 225\n255\n"</span> <span class="muComment"># 225 = image height</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0x18f</span> <span class="muComment"># image width - 1</span> +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> image-width-1/<span class="Constant">xmm7</span>: float <span class="Special"><-</span> convert tmp +<span id="L158" class="LineNr">158 </span> tmp <span class="Special"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># image height - 1</span> +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> image-height-1/<span class="Constant">xmm6</span>: float <span class="Special"><-</span> convert tmp <span id="L160" class="LineNr">160 </span> <span class="muComment">#</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># 224</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0xe0</span> <span class="muComment"># 224</span> <span id="L162" class="LineNr">162 </span> <span class="Delimiter">{</span> <span id="L163" class="LineNr">163 </span> compare j, <span class="Constant">0</span> <span id="L164" class="LineNr">164 </span> <span class="PreProc">break-if-<</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L166" class="LineNr">166 </span> <span class="Delimiter">{</span> <span id="L167" class="LineNr">167 </span> compare i, <span class="Constant">0x190</span> <span class="muComment"># 400 = image width</span> <span id="L168" class="LineNr">168 </span> <span class="PreProc">break-if->=</span> <span id="L169" class="LineNr">169 </span> <span class="muComment"># u = i / (image-width - 1)</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert i -<span id="L171" class="LineNr">171 </span> u <span class="SpecialChar"><-</span> divide image-width-1 +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> u/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert i +<span id="L171" class="LineNr">171 </span> u <span class="Special"><-</span> divide image-width-1 <span id="L172" class="LineNr">172 </span><span class="CommentedCode">#? print-string 0, "u: "</span> <span id="L173" class="LineNr">173 </span><span class="CommentedCode">#? print-float-hex 0, u</span> <span id="L174" class="LineNr">174 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L175" class="LineNr">175 </span> <span class="muComment"># v = j / (image-height - 1)</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> v/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> convert j -<span id="L177" class="LineNr">177 </span> v <span class="SpecialChar"><-</span> divide image-height-1 +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> v/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> convert j +<span id="L177" class="LineNr">177 </span> v <span class="Special"><-</span> divide image-height-1 <span id="L178" class="LineNr">178 </span> <span class="muComment"># r = ray(origin, lower-left-corner + u*horizontal + v*vertical - origin)</span> <span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> r-storage: ray <span id="L180" class="LineNr">180 </span> <span class="muS2Comment"># . . we're running out of int registers now,</span> @@ -243,15 +243,15 @@ if ('onhashchange' in window) { <span id="L182" class="LineNr">182 </span> <span class="muS2Comment"># . . so we'll just spill them in a block</span> <span id="L183" class="LineNr">183 </span> <span class="Delimiter">{</span> <span id="L184" class="LineNr">184 </span> <span class="muS1Comment"># . r.orig = origin</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr ray) <span class="SpecialChar"><-</span> address r-storage -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, orig +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr ray) <span class="Special"><-</span> address r-storage +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> r, orig <span id="L187" class="LineNr">187 </span> copy-object origin, dest <span id="L188" class="LineNr">188 </span> <span class="muS1Comment"># . r.dir = lower-left-corner</span> -<span id="L189" class="LineNr">189 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> r, dir +<span id="L189" class="LineNr">189 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> r, dir <span id="L190" class="LineNr">190 </span> copy-object lower-left-corner, dest <span id="L191" class="LineNr">191 </span> <span class="muS1Comment"># . r.dir += horizontal*u</span> <span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> tmp-vec3: vec3 -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> address tmp-vec3 +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> address tmp-vec3 <span id="L194" class="LineNr">194 </span> copy-object horizontal, tmp <span id="L195" class="LineNr">195 </span> vec3-scale-up tmp, u <span id="L196" class="LineNr">196 </span> vec3-add-to dest, tmp @@ -267,19 +267,19 @@ if ('onhashchange' in window) { <span id="L206" class="LineNr">206 </span> <span class="Delimiter">}</span> <span id="L207" class="LineNr">207 </span> <span class="muComment"># pixel-color = ray-color(r)</span> <span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> c-storage: rgb -<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: (addr rgb) <span class="SpecialChar"><-</span> address c-storage +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> c/<span class="Constant">ecx</span>: (addr rgb) <span class="Special"><-</span> address c-storage <span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr ray) <span class="SpecialChar"><-</span> address r-storage +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr ray) <span class="Special"><-</span> address r-storage <span id="L212" class="LineNr">212 </span> <a href='3.mu.html#L9'>ray-color</a> r, c <span id="L213" class="LineNr">213 </span> <span class="muComment"># write color</span> <span id="L214" class="LineNr">214 </span> print-rgb <span class="Constant">0</span>, c <span id="L215" class="LineNr">215 </span><span class="CommentedCode">#? print-rgb-raw 0, c</span> <span id="L216" class="LineNr">216 </span><span class="CommentedCode">#? print-string 0, "\n"</span> <span id="L217" class="LineNr">217 </span> <span class="Delimiter">}</span> -<span id="L218" class="LineNr">218 </span> i <span class="SpecialChar"><-</span> increment +<span id="L218" class="LineNr">218 </span> i <span class="Special"><-</span> increment <span id="L219" class="LineNr">219 </span> <span class="PreProc">loop</span> <span id="L220" class="LineNr">220 </span> <span class="Delimiter">}</span> -<span id="L221" class="LineNr">221 </span> j <span class="SpecialChar"><-</span> decrement +<span id="L221" class="LineNr">221 </span> j <span class="Special"><-</span> decrement <span id="L222" class="LineNr">222 </span> <span class="PreProc">loop</span> <span id="L223" class="LineNr">223 </span> <span class="Delimiter">}</span> <span id="L224" class="LineNr">224 </span> <span class="PreProc">return</span> <span class="Constant">0</span> @@ -294,19 +294,19 @@ if ('onhashchange' in window) { <span id="L233" class="LineNr">233 </span><span class="muComment"># We immediately normalize the direction vector so we don't have to keep doing</span> <span id="L234" class="LineNr">234 </span><span class="muComment"># so.</span> <span id="L235" class="LineNr">235 </span><span class="PreProc">fn</span> <span class="muFunction">initialize-ray</span> _self: (addr ray), o: (addr vec3), d: (addr vec3) <span class="Delimiter">{</span> -<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="SpecialChar"><-</span> copy _self -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="Special"><-</span> copy _self +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig <span id="L238" class="LineNr">238 </span> copy-object o, dest -<span id="L239" class="LineNr">239 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L239" class="LineNr">239 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir <span id="L240" class="LineNr">240 </span> vec3-unit d, dest <span id="L241" class="LineNr">241 </span><span class="Delimiter">}</span> <span id="L242" class="LineNr">242 </span> <span id="L243" class="LineNr">243 </span><span class="PreProc">fn</span> <span class="muFunction">ray-at</span> _self: (addr ray), t: float, out: (addr vec3) <span class="Delimiter">{</span> -<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="SpecialChar"><-</span> copy _self -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="Special"><-</span> copy _self +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir <span id="L246" class="LineNr">246 </span> copy-object src, out <span id="L247" class="LineNr">247 </span> vec3-scale-up out, t -<span id="L248" class="LineNr">248 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L248" class="LineNr">248 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig <span id="L249" class="LineNr">249 </span> vec3-add-to out, src <span id="L250" class="LineNr">250 </span><span class="Delimiter">}</span> <span id="L251" class="LineNr">251 </span> @@ -318,99 +318,99 @@ if ('onhashchange' in window) { <span id="L257" class="LineNr">257 </span><span class="Delimiter">}</span> <span id="L258" class="LineNr">258 </span> <span id="L259" class="LineNr">259 </span><span class="muComment"># print translating to [0, 256)</span> -<span id="L260" class="LineNr">260 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _c +<span id="L260" class="LineNr">260 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c <span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> xn: float -<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> xn-addr/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> address xn -<span id="L264" class="LineNr">264 </span> <a href='../../408float.mu.html#L3'>fill-in-rational</a> xn-addr, <span class="Constant">0x3e7ff</span>, <span class="Constant">0x3e8</span> <span class="muComment"># 255999 / 1000</span> +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> xn-addr/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> address xn +<span id="L264" class="LineNr">264 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> xn-addr, <span class="Constant">0x3e7ff</span>, <span class="Constant">0x3e8</span> <span class="muComment"># 255999 / 1000</span> <span id="L265" class="LineNr">265 </span> <span class="muComment"># print 255.999 * c->r</span> -<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r -<span id="L268" class="LineNr">268 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> truncate result -<span id="L270" class="LineNr">270 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L271" class="LineNr">271 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy xn +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r +<span id="L268" class="LineNr">268 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="Special"><-</span> truncate result +<span id="L270" class="LineNr">270 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L271" class="LineNr">271 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> <span id="L272" class="LineNr">272 </span> <span class="muComment"># print 255.999 * c->g</span> -<span id="L273" class="LineNr">273 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g -<span id="L274" class="LineNr">274 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L275" class="LineNr">275 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L276" class="LineNr">276 </span> result-int <span class="SpecialChar"><-</span> truncate result -<span id="L277" class="LineNr">277 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L278" class="LineNr">278 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L273" class="LineNr">273 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g +<span id="L274" class="LineNr">274 </span> result <span class="Special"><-</span> copy xn +<span id="L275" class="LineNr">275 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L276" class="LineNr">276 </span> result-int <span class="Special"><-</span> truncate result +<span id="L277" class="LineNr">277 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L278" class="LineNr">278 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> <span id="L279" class="LineNr">279 </span> <span class="muComment"># print 255.999 * c->b</span> -<span id="L280" class="LineNr">280 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b -<span id="L281" class="LineNr">281 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L282" class="LineNr">282 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L283" class="LineNr">283 </span> result-int <span class="SpecialChar"><-</span> truncate result -<span id="L284" class="LineNr">284 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L285" class="LineNr">285 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> +<span id="L280" class="LineNr">280 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b +<span id="L281" class="LineNr">281 </span> result <span class="Special"><-</span> copy xn +<span id="L282" class="LineNr">282 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L283" class="LineNr">283 </span> result-int <span class="Special"><-</span> truncate result +<span id="L284" class="LineNr">284 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L285" class="LineNr">285 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> <span id="L286" class="LineNr">286 </span><span class="Delimiter">}</span> <span id="L287" class="LineNr">287 </span> -<span id="L288" class="LineNr">288 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L288'>print-rgb-raw</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr rgb) <span class="Delimiter">{</span> -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _v -<span id="L290" class="LineNr">290 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, r -<span id="L292" class="LineNr">292 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L293" class="LineNr">293 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L294" class="LineNr">294 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, g -<span id="L295" class="LineNr">295 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L296" class="LineNr">296 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L297" class="LineNr">297 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, b -<span id="L298" class="LineNr">298 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L299" class="LineNr">299 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> +<span id="L288" class="LineNr">288 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L288'>print-rgb-raw</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _v: (addr rgb) <span class="Delimiter">{</span> +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr rgb) <span class="Special"><-</span> copy _v +<span id="L290" class="LineNr">290 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, r +<span id="L292" class="LineNr">292 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L293" class="LineNr">293 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L294" class="LineNr">294 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, g +<span id="L295" class="LineNr">295 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L296" class="LineNr">296 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L297" class="LineNr">297 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, b +<span id="L298" class="LineNr">298 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L299" class="LineNr">299 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> <span id="L300" class="LineNr">300 </span><span class="Delimiter">}</span> <span id="L301" class="LineNr">301 </span> <span id="L302" class="LineNr">302 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L302'>rgb-white</a></span> _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _c -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert one -<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert one +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r <span id="L307" class="LineNr">307 </span> copy-to *dest, one-f -<span id="L308" class="LineNr">308 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g +<span id="L308" class="LineNr">308 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g <span id="L309" class="LineNr">309 </span> copy-to *dest, one-f -<span id="L310" class="LineNr">310 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b +<span id="L310" class="LineNr">310 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b <span id="L311" class="LineNr">311 </span> copy-to *dest, one-f <span id="L312" class="LineNr">312 </span><span class="Delimiter">}</span> <span id="L313" class="LineNr">313 </span> <span id="L314" class="LineNr">314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L314'>rgb-add-to</a></span> _c1: (addr rgb), _c2: (addr rgb) <span class="Delimiter">{</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _c1 -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> c2/<span class="Constant">esi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _c2 +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr rgb) <span class="Special"><-</span> copy _c1 +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> c2/<span class="Constant">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c2 <span id="L317" class="LineNr">317 </span> <span class="muComment"># c1.r += c2.r</span> -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, r -<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 -<span id="L321" class="LineNr">321 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, r +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c2, r +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *arg1 +<span id="L321" class="LineNr">321 </span> result <span class="Special"><-</span> add *arg2 <span id="L322" class="LineNr">322 </span> copy-to *arg1, result <span id="L323" class="LineNr">323 </span> <span class="muComment"># c1.g += c2.g</span> -<span id="L324" class="LineNr">324 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g -<span id="L325" class="LineNr">325 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, g -<span id="L326" class="LineNr">326 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L327" class="LineNr">327 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L324" class="LineNr">324 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, g +<span id="L325" class="LineNr">325 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c2, g +<span id="L326" class="LineNr">326 </span> result <span class="Special"><-</span> copy *arg1 +<span id="L327" class="LineNr">327 </span> result <span class="Special"><-</span> add *arg2 <span id="L328" class="LineNr">328 </span> copy-to *arg1, result <span id="L329" class="LineNr">329 </span> <span class="muComment"># c1.b += c2.b</span> -<span id="L330" class="LineNr">330 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b -<span id="L331" class="LineNr">331 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c2, b -<span id="L332" class="LineNr">332 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L333" class="LineNr">333 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L330" class="LineNr">330 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, b +<span id="L331" class="LineNr">331 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c2, b +<span id="L332" class="LineNr">332 </span> result <span class="Special"><-</span> copy *arg1 +<span id="L333" class="LineNr">333 </span> result <span class="Special"><-</span> add *arg2 <span id="L334" class="LineNr">334 </span> copy-to *arg1, result <span id="L335" class="LineNr">335 </span><span class="Delimiter">}</span> <span id="L336" class="LineNr">336 </span> <span id="L337" class="LineNr">337 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='3.mu.html#L337'>rgb-scale-up</a></span> _c1: (addr rgb), f: float <span class="Delimiter">{</span> -<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _c1 +<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> c1/<span class="Constant">edi</span>: (addr rgb) <span class="Special"><-</span> copy _c1 <span id="L339" class="LineNr">339 </span> <span class="muComment"># c1.r *= f</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, r -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L342" class="LineNr">342 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, r +<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest +<span id="L342" class="LineNr">342 </span> result <span class="Special"><-</span> multiply f <span id="L343" class="LineNr">343 </span> copy-to *dest, result <span id="L344" class="LineNr">344 </span> <span class="muComment"># c1.g *= f</span> -<span id="L345" class="LineNr">345 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, g -<span id="L346" class="LineNr">346 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L347" class="LineNr">347 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L345" class="LineNr">345 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, g +<span id="L346" class="LineNr">346 </span> result <span class="Special"><-</span> copy *dest +<span id="L347" class="LineNr">347 </span> result <span class="Special"><-</span> multiply f <span id="L348" class="LineNr">348 </span> copy-to *dest, result <span id="L349" class="LineNr">349 </span> <span class="muComment"># c1.b *= f</span> -<span id="L350" class="LineNr">350 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c1, b -<span id="L351" class="LineNr">351 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L352" class="LineNr">352 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L350" class="LineNr">350 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c1, b +<span id="L351" class="LineNr">351 </span> result <span class="Special"><-</span> copy *dest +<span id="L352" class="LineNr">352 </span> result <span class="Special"><-</span> multiply f <span id="L353" class="LineNr">353 </span> copy-to *dest, result <span id="L354" class="LineNr">354 </span><span class="Delimiter">}</span> <span id="L355" class="LineNr">355 </span> @@ -420,97 +420,97 @@ if ('onhashchange' in window) { <span id="L359" class="LineNr">359 </span> z: float <span id="L360" class="LineNr">360 </span><span class="Delimiter">}</span> <span id="L361" class="LineNr">361 </span> -<span id="L362" class="LineNr">362 </span><span class="PreProc">fn</span> <span class="muFunction">print-vec3</span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr vec3) <span class="Delimiter">{</span> -<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v -<span id="L364" class="LineNr">364 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> -<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L366" class="LineNr">366 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L367" class="LineNr">367 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L368" class="LineNr">368 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L369" class="LineNr">369 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L370" class="LineNr">370 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L371" class="LineNr">371 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L372" class="LineNr">372 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L373" class="LineNr">373 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> +<span id="L362" class="LineNr">362 </span><span class="PreProc">fn</span> <span class="muFunction">print-vec3</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _v: (addr vec3) <span class="Delimiter">{</span> +<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v +<span id="L364" class="LineNr">364 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L366" class="LineNr">366 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L367" class="LineNr">367 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L368" class="LineNr">368 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L369" class="LineNr">369 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L370" class="LineNr">370 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L371" class="LineNr">371 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L372" class="LineNr">372 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L373" class="LineNr">373 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> <span id="L374" class="LineNr">374 </span><span class="Delimiter">}</span> <span id="L375" class="LineNr">375 </span> <span id="L376" class="LineNr">376 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-add-to</span> _v1: (addr vec3), _v2: (addr vec3) <span class="Delimiter">{</span> -<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v1 -<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> v2/<span class="Constant">esi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v2 +<span id="L377" class="LineNr">377 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v1 +<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> v2/<span class="Constant">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v2 <span id="L379" class="LineNr">379 </span> <span class="muComment"># v1.x += v2.x</span> -<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, x -<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 -<span id="L383" class="LineNr">383 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L380" class="LineNr">380 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, x +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, x +<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *arg1 +<span id="L383" class="LineNr">383 </span> result <span class="Special"><-</span> add *arg2 <span id="L384" class="LineNr">384 </span> copy-to *arg1, result <span id="L385" class="LineNr">385 </span> <span class="muComment"># v1.y += v2.y</span> -<span id="L386" class="LineNr">386 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y -<span id="L387" class="LineNr">387 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, y -<span id="L388" class="LineNr">388 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L389" class="LineNr">389 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L386" class="LineNr">386 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, y +<span id="L387" class="LineNr">387 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, y +<span id="L388" class="LineNr">388 </span> result <span class="Special"><-</span> copy *arg1 +<span id="L389" class="LineNr">389 </span> result <span class="Special"><-</span> add *arg2 <span id="L390" class="LineNr">390 </span> copy-to *arg1, result <span id="L391" class="LineNr">391 </span> <span class="muComment"># v1.z += v2.z</span> -<span id="L392" class="LineNr">392 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z -<span id="L393" class="LineNr">393 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, z -<span id="L394" class="LineNr">394 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L395" class="LineNr">395 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L392" class="LineNr">392 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, z +<span id="L393" class="LineNr">393 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, z +<span id="L394" class="LineNr">394 </span> result <span class="Special"><-</span> copy *arg1 +<span id="L395" class="LineNr">395 </span> result <span class="Special"><-</span> add *arg2 <span id="L396" class="LineNr">396 </span> copy-to *arg1, result <span id="L397" class="LineNr">397 </span><span class="Delimiter">}</span> <span id="L398" class="LineNr">398 </span> <span id="L399" class="LineNr">399 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-subtract-from</span> v1: (addr vec3), v2: (addr vec3) <span class="Delimiter">{</span> <span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> tmp-storage: vec3 -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> address tmp-storage +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> address tmp-storage <span id="L402" class="LineNr">402 </span> copy-object v2, tmp <span id="L403" class="LineNr">403 </span> vec3-negate tmp <span id="L404" class="LineNr">404 </span> vec3-add-to v1, tmp <span id="L405" class="LineNr">405 </span><span class="Delimiter">}</span> <span id="L406" class="LineNr">406 </span> <span id="L407" class="LineNr">407 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-negate</span> v: (addr vec3) <span class="Delimiter">{</span> -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> negative-one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> -<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert negative-one +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> negative-one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert negative-one <span id="L410" class="LineNr">410 </span> vec3-scale-up v, negative-one-f <span id="L411" class="LineNr">411 </span><span class="Delimiter">}</span> <span id="L412" class="LineNr">412 </span> <span id="L413" class="LineNr">413 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-up</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v +<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v <span id="L415" class="LineNr">415 </span> <span class="muComment"># v.x *= f</span> -<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L417" class="LineNr">417 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L418" class="LineNr">418 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L417" class="LineNr">417 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest +<span id="L418" class="LineNr">418 </span> result <span class="Special"><-</span> multiply f <span id="L419" class="LineNr">419 </span> copy-to *dest, result <span id="L420" class="LineNr">420 </span> <span class="muComment"># v.y *= f</span> -<span id="L421" class="LineNr">421 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L422" class="LineNr">422 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L423" class="LineNr">423 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L421" class="LineNr">421 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L422" class="LineNr">422 </span> result <span class="Special"><-</span> copy *dest +<span id="L423" class="LineNr">423 </span> result <span class="Special"><-</span> multiply f <span id="L424" class="LineNr">424 </span> copy-to *dest, result <span id="L425" class="LineNr">425 </span> <span class="muComment"># v.z *= f</span> -<span id="L426" class="LineNr">426 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L427" class="LineNr">427 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L428" class="LineNr">428 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L426" class="LineNr">426 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L427" class="LineNr">427 </span> result <span class="Special"><-</span> copy *dest +<span id="L428" class="LineNr">428 </span> result <span class="Special"><-</span> multiply f <span id="L429" class="LineNr">429 </span> copy-to *dest, result <span id="L430" class="LineNr">430 </span><span class="Delimiter">}</span> <span id="L431" class="LineNr">431 </span> <span id="L432" class="LineNr">432 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-down</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v +<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v <span id="L434" class="LineNr">434 </span> <span class="muComment"># v.x /= f</span> -<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L437" class="LineNr">437 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L435" class="LineNr">435 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L436" class="LineNr">436 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest +<span id="L437" class="LineNr">437 </span> result <span class="Special"><-</span> divide f <span id="L438" class="LineNr">438 </span> copy-to *dest, result <span id="L439" class="LineNr">439 </span> <span class="muComment"># v.y /= f</span> -<span id="L440" class="LineNr">440 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L441" class="LineNr">441 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L442" class="LineNr">442 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L440" class="LineNr">440 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L441" class="LineNr">441 </span> result <span class="Special"><-</span> copy *dest +<span id="L442" class="LineNr">442 </span> result <span class="Special"><-</span> divide f <span id="L443" class="LineNr">443 </span> copy-to *dest, result <span id="L444" class="LineNr">444 </span> <span class="muComment"># v.z /= f</span> -<span id="L445" class="LineNr">445 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L446" class="LineNr">446 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L447" class="LineNr">447 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L445" class="LineNr">445 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L446" class="LineNr">446 </span> result <span class="Special"><-</span> copy *dest +<span id="L447" class="LineNr">447 </span> result <span class="Special"><-</span> divide f <span id="L448" class="LineNr">448 </span> copy-to *dest, result <span id="L449" class="LineNr">449 </span><span class="Delimiter">}</span> <span id="L450" class="LineNr">450 </span> <span id="L451" class="LineNr">451 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-unit</span> in: (addr vec3), out: (addr vec3) <span class="Delimiter">{</span> -<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> vec3-length in +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length in <span id="L453" class="LineNr">453 </span><span class="CommentedCode">#? print-string 0, "len: "</span> <span id="L454" class="LineNr">454 </span><span class="CommentedCode">#? print-float-hex 0, len</span> <span id="L455" class="LineNr">455 </span><span class="CommentedCode">#? print-string 0, "\n"</span> @@ -519,28 +519,28 @@ if ('onhashchange' in window) { <span id="L458" class="LineNr">458 </span><span class="Delimiter">}</span> <span id="L459" class="LineNr">459 </span> <span id="L460" class="LineNr">460 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length</span> v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L461" class="LineNr">461 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> vec3-length-squared v -<span id="L462" class="LineNr">462 </span> result <span class="SpecialChar"><-</span> square-root result +<span id="L461" class="LineNr">461 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length-squared v +<span id="L462" class="LineNr">462 </span> result <span class="Special"><-</span> square-root result <span id="L463" class="LineNr">463 </span> <span class="PreProc">return</span> result <span id="L464" class="LineNr">464 </span><span class="Delimiter">}</span> <span id="L465" class="LineNr">465 </span> <span id="L466" class="LineNr">466 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length-squared</span> _v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v +<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v <span id="L468" class="LineNr">468 </span> <span class="muComment"># result = v.x * v.x</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy *src -<span id="L471" class="LineNr">471 </span> tmp <span class="SpecialChar"><-</span> multiply tmp -<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy tmp +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy *src +<span id="L471" class="LineNr">471 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy tmp <span id="L473" class="LineNr">473 </span> <span class="muComment"># result += v.y * v.y</span> -<span id="L474" class="LineNr">474 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L475" class="LineNr">475 </span> tmp <span class="SpecialChar"><-</span> copy *src -<span id="L476" class="LineNr">476 </span> tmp <span class="SpecialChar"><-</span> multiply tmp -<span id="L477" class="LineNr">477 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L474" class="LineNr">474 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L475" class="LineNr">475 </span> tmp <span class="Special"><-</span> copy *src +<span id="L476" class="LineNr">476 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L477" class="LineNr">477 </span> result <span class="Special"><-</span> add tmp <span id="L478" class="LineNr">478 </span> <span class="muComment"># result += v.z * v.z</span> -<span id="L479" class="LineNr">479 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L480" class="LineNr">480 </span> tmp <span class="SpecialChar"><-</span> copy *src -<span id="L481" class="LineNr">481 </span> tmp <span class="SpecialChar"><-</span> multiply tmp -<span id="L482" class="LineNr">482 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L479" class="LineNr">479 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L480" class="LineNr">480 </span> tmp <span class="Special"><-</span> copy *src +<span id="L481" class="LineNr">481 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L482" class="LineNr">482 </span> result <span class="Special"><-</span> add tmp <span id="L483" class="LineNr">483 </span> <span class="PreProc">return</span> result <span id="L484" class="LineNr">484 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/raytracing/color.mu.html b/html/linux/raytracing/color.mu.html index ad8e4aa2..f146f085 100644 --- a/html/apps/raytracing/color.mu.html +++ b/html/linux/raytracing/color.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/raytracing/color.mu</title> +<title>Mu - linux/raytracing/color.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/raytracing/color.mu'>https://github.com/akkartik/mu/blob/main/apps/raytracing/color.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/color.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/color.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> rgb <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> <span class="muComment"># components normalized to within [0.0, 1.0]</span> @@ -64,32 +64,32 @@ if ('onhashchange' in window) { <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># print translating to [0, 256)</span> -<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> -<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="SpecialChar"><-</span> copy _c +<span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction">print-rgb</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _c: (addr rgb) <span class="Delimiter">{</span> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> c/<span class="Constant">esi</span>: (addr rgb) <span class="Special"><-</span> copy _c <span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> xn: float -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> xn-addr/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> address xn -<span id="L13" class="LineNr">13 </span> <a href='../../408float.mu.html#L3'>fill-in-rational</a> xn-addr, <span class="Constant">0x3e7ff</span>, <span class="Constant">0x3e8</span> <span class="muComment"># 255999 / 1000</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> xn-addr/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> address xn +<span id="L13" class="LineNr">13 </span> <a href='../408float.mu.html#L3'>fill-in-rational</a> xn-addr, <span class="Constant">0x3e7ff</span>, <span class="Constant">0x3e8</span> <span class="muComment"># 255999 / 1000</span> <span id="L14" class="LineNr">14 </span> <span class="muComment"># print 255.999 * c->r</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy xn -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, r -<span id="L17" class="LineNr">17 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> truncate result -<span id="L19" class="LineNr">19 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L20" class="LineNr">20 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy xn +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, r +<span id="L17" class="LineNr">17 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> result-int/<span class="Constant">edx</span>: int <span class="Special"><-</span> truncate result +<span id="L19" class="LineNr">19 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L20" class="LineNr">20 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> <span id="L21" class="LineNr">21 </span> <span class="muComment"># print 255.999 * c->g</span> -<span id="L22" class="LineNr">22 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, g -<span id="L23" class="LineNr">23 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L24" class="LineNr">24 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L25" class="LineNr">25 </span> result-int <span class="SpecialChar"><-</span> truncate result -<span id="L26" class="LineNr">26 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L27" class="LineNr">27 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L22" class="LineNr">22 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, g +<span id="L23" class="LineNr">23 </span> result <span class="Special"><-</span> copy xn +<span id="L24" class="LineNr">24 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L25" class="LineNr">25 </span> result-int <span class="Special"><-</span> truncate result +<span id="L26" class="LineNr">26 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L27" class="LineNr">27 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> <span id="L28" class="LineNr">28 </span> <span class="muComment"># print 255.999 * c->b</span> -<span id="L29" class="LineNr">29 </span> src-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> c, b -<span id="L30" class="LineNr">30 </span> result <span class="SpecialChar"><-</span> copy xn -<span id="L31" class="LineNr">31 </span> result <span class="SpecialChar"><-</span> multiply *src-addr -<span id="L32" class="LineNr">32 </span> result-int <span class="SpecialChar"><-</span> truncate result -<span id="L33" class="LineNr">33 </span> <a href='../../405screen.mu.html#L480'>print-int32-decimal</a> <a href='../../405screen.mu.html#L9'>screen</a>, result-int -<span id="L34" class="LineNr">34 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> +<span id="L29" class="LineNr">29 </span> src-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> c, b +<span id="L30" class="LineNr">30 </span> result <span class="Special"><-</span> copy xn +<span id="L31" class="LineNr">31 </span> result <span class="Special"><-</span> multiply *src-addr +<span id="L32" class="LineNr">32 </span> result-int <span class="Special"><-</span> truncate result +<span id="L33" class="LineNr">33 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <a href='../405screen.mu.html#L9'>screen</a>, result-int +<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> <span id="L35" class="LineNr">35 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/raytracing/ray.mu.html b/html/linux/raytracing/ray.mu.html index aa1a1064..03d732a9 100644 --- a/html/apps/raytracing/ray.mu.html +++ b/html/linux/raytracing/ray.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/raytracing/ray.mu</title> +<title>Mu - linux/raytracing/ray.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/raytracing/ray.mu'>https://github.com/akkartik/mu/blob/main/apps/raytracing/ray.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/ray.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/ray.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> ray <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> orig: vec3 <span class="muComment"># point</span> @@ -65,19 +65,19 @@ if ('onhashchange' in window) { <span id="L7" class="LineNr"> 7 </span><span class="muComment"># We immediately normalize the direction vector so we don't have to keep doing</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment"># so.</span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction">initialize-ray</span> _self: (addr ray), o: (addr vec3), d: (addr vec3) <span class="Delimiter">{</span> -<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="SpecialChar"><-</span> copy _self -<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="Special"><-</span> copy _self +<span id="L11" class="LineNr">11 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig <span id="L12" class="LineNr">12 </span> copy-object o, dest -<span id="L13" class="LineNr">13 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L13" class="LineNr">13 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir <span id="L14" class="LineNr">14 </span> vec3-unit d, dest <span id="L15" class="LineNr">15 </span><span class="Delimiter">}</span> <span id="L16" class="LineNr">16 </span> <span id="L17" class="LineNr">17 </span><span class="PreProc">fn</span> <span class="muFunction">ray-at</span> _self: (addr ray), t: float, out: (addr vec3) <span class="Delimiter">{</span> -<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="SpecialChar"><-</span> copy _self -<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, dir +<span id="L18" class="LineNr">18 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr ray) <span class="Special"><-</span> copy _self +<span id="L19" class="LineNr">19 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, dir <span id="L20" class="LineNr">20 </span> copy-object src, out <span id="L21" class="LineNr">21 </span> vec3-scale-up out, t -<span id="L22" class="LineNr">22 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, orig +<span id="L22" class="LineNr">22 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, orig <span id="L23" class="LineNr">23 </span> vec3-add-to out, src <span id="L24" class="LineNr">24 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/raytracing/vec.mu.html b/html/linux/raytracing/vec.mu.html index e14fb498..35d7e733 100644 --- a/html/apps/raytracing/vec.mu.html +++ b/html/linux/raytracing/vec.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/raytracing/vec.mu</title> +<title>Mu - linux/raytracing/vec.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } .CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } .muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/raytracing/vec.mu'>https://github.com/akkartik/mu/blob/main/apps/raytracing/vec.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/raytracing/vec.mu'>https://github.com/akkartik/mu/blob/main/linux/raytracing/vec.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> vec3 <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> x: float @@ -63,97 +63,97 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span> z: float <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">}</span> <span id="L6" class="LineNr"> 6 </span> -<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction">print-vec3</span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _v: (addr vec3) <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v -<span id="L9" class="LineNr"> 9 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L11" class="LineNr"> 11 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L12" class="LineNr"> 12 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L13" class="LineNr"> 13 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L14" class="LineNr"> 14 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L15" class="LineNr"> 15 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> -<span id="L16" class="LineNr"> 16 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L17" class="LineNr"> 17 </span> <a href='../../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../../405screen.mu.html#L9'>screen</a>, *tmp -<span id="L18" class="LineNr"> 18 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> +<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction">print-vec3</span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _v: (addr vec3) <span class="Delimiter">{</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v +<span id="L9" class="LineNr"> 9 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"("</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L11" class="LineNr"> 11 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L12" class="LineNr"> 12 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L13" class="LineNr"> 13 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L14" class="LineNr"> 14 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L15" class="LineNr"> 15 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">", "</span> +<span id="L16" class="LineNr"> 16 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L17" class="LineNr"> 17 </span> <a href='../409print-float-hex.mu.html#L118'>print-float-hex</a> <a href='../405screen.mu.html#L9'>screen</a>, *tmp +<span id="L18" class="LineNr"> 18 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">")"</span> <span id="L19" class="LineNr"> 19 </span><span class="Delimiter">}</span> <span id="L20" class="LineNr"> 20 </span> <span id="L21" class="LineNr"> 21 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-add-to</span> _v1: (addr vec3), _v2: (addr vec3) <span class="Delimiter">{</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v1 -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> v2/<span class="Constant">esi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v2 +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> v1/<span class="Constant">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v1 +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> v2/<span class="Constant">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v2 <span id="L24" class="LineNr"> 24 </span> <span class="muComment"># v1.x += v2.x</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, x -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, x -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *arg1 -<span id="L28" class="LineNr"> 28 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> arg1/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, x +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> arg2/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, x +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *arg1 +<span id="L28" class="LineNr"> 28 </span> result <span class="Special"><-</span> add *arg2 <span id="L29" class="LineNr"> 29 </span> copy-to *arg1, result <span id="L30" class="LineNr"> 30 </span> <span class="muComment"># v1.y += v2.y</span> -<span id="L31" class="LineNr"> 31 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, y -<span id="L32" class="LineNr"> 32 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, y -<span id="L33" class="LineNr"> 33 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L34" class="LineNr"> 34 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L31" class="LineNr"> 31 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, y +<span id="L32" class="LineNr"> 32 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, y +<span id="L33" class="LineNr"> 33 </span> result <span class="Special"><-</span> copy *arg1 +<span id="L34" class="LineNr"> 34 </span> result <span class="Special"><-</span> add *arg2 <span id="L35" class="LineNr"> 35 </span> copy-to *arg1, result <span id="L36" class="LineNr"> 36 </span> <span class="muComment"># v1.z += v2.z</span> -<span id="L37" class="LineNr"> 37 </span> arg1 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v1, z -<span id="L38" class="LineNr"> 38 </span> arg2 <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v2, z -<span id="L39" class="LineNr"> 39 </span> result <span class="SpecialChar"><-</span> copy *arg1 -<span id="L40" class="LineNr"> 40 </span> result <span class="SpecialChar"><-</span> add *arg2 +<span id="L37" class="LineNr"> 37 </span> arg1 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v1, z +<span id="L38" class="LineNr"> 38 </span> arg2 <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v2, z +<span id="L39" class="LineNr"> 39 </span> result <span class="Special"><-</span> copy *arg1 +<span id="L40" class="LineNr"> 40 </span> result <span class="Special"><-</span> add *arg2 <span id="L41" class="LineNr"> 41 </span> copy-to *arg1, result <span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> <span id="L43" class="LineNr"> 43 </span> <span id="L44" class="LineNr"> 44 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-subtract-from</span> v1: (addr vec3), v2: (addr vec3) <span class="Delimiter">{</span> <span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> tmp-storage: vec3 -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr vec3) <span class="SpecialChar"><-</span> address tmp-storage +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr vec3) <span class="Special"><-</span> address tmp-storage <span id="L47" class="LineNr"> 47 </span> copy-object v2, tmp <span id="L48" class="LineNr"> 48 </span> vec3-negate tmp <span id="L49" class="LineNr"> 49 </span> vec3-add-to v1, tmp <span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> <span id="L51" class="LineNr"> 51 </span> <span id="L52" class="LineNr"> 52 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-negate</span> v: (addr vec3) <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> negative-one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert negative-one +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> negative-one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> negative-one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert negative-one <span id="L55" class="LineNr"> 55 </span> vec3-scale-up v, negative-one-f <span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> <span id="L57" class="LineNr"> 57 </span> <span id="L58" class="LineNr"> 58 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-up</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v <span id="L60" class="LineNr"> 60 </span> <span class="muComment"># v.x *= f</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L63" class="LineNr"> 63 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest +<span id="L63" class="LineNr"> 63 </span> result <span class="Special"><-</span> multiply f <span id="L64" class="LineNr"> 64 </span> copy-to *dest, result <span id="L65" class="LineNr"> 65 </span> <span class="muComment"># v.y *= f</span> -<span id="L66" class="LineNr"> 66 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L67" class="LineNr"> 67 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L68" class="LineNr"> 68 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L66" class="LineNr"> 66 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L67" class="LineNr"> 67 </span> result <span class="Special"><-</span> copy *dest +<span id="L68" class="LineNr"> 68 </span> result <span class="Special"><-</span> multiply f <span id="L69" class="LineNr"> 69 </span> copy-to *dest, result <span id="L70" class="LineNr"> 70 </span> <span class="muComment"># v.z *= f</span> -<span id="L71" class="LineNr"> 71 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L72" class="LineNr"> 72 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L73" class="LineNr"> 73 </span> result <span class="SpecialChar"><-</span> multiply f +<span id="L71" class="LineNr"> 71 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L72" class="LineNr"> 72 </span> result <span class="Special"><-</span> copy *dest +<span id="L73" class="LineNr"> 73 </span> result <span class="Special"><-</span> multiply f <span id="L74" class="LineNr"> 74 </span> copy-to *dest, result <span id="L75" class="LineNr"> 75 </span><span class="Delimiter">}</span> <span id="L76" class="LineNr"> 76 </span> <span id="L77" class="LineNr"> 77 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-scale-down</span> _v: (addr vec3), f: float <span class="Delimiter">{</span> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> v/<span class="Constant">edi</span>: (addr vec3) <span class="Special"><-</span> copy _v <span id="L79" class="LineNr"> 79 </span> <span class="muComment"># v.x /= f</span> -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy *dest -<span id="L82" class="LineNr"> 82 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *dest +<span id="L82" class="LineNr"> 82 </span> result <span class="Special"><-</span> divide f <span id="L83" class="LineNr"> 83 </span> copy-to *dest, result <span id="L84" class="LineNr"> 84 </span> <span class="muComment"># v.y /= f</span> -<span id="L85" class="LineNr"> 85 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L86" class="LineNr"> 86 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L87" class="LineNr"> 87 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L85" class="LineNr"> 85 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L86" class="LineNr"> 86 </span> result <span class="Special"><-</span> copy *dest +<span id="L87" class="LineNr"> 87 </span> result <span class="Special"><-</span> divide f <span id="L88" class="LineNr"> 88 </span> copy-to *dest, result <span id="L89" class="LineNr"> 89 </span> <span class="muComment"># v.z /= f</span> -<span id="L90" class="LineNr"> 90 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L91" class="LineNr"> 91 </span> result <span class="SpecialChar"><-</span> copy *dest -<span id="L92" class="LineNr"> 92 </span> result <span class="SpecialChar"><-</span> divide f +<span id="L90" class="LineNr"> 90 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L91" class="LineNr"> 91 </span> result <span class="Special"><-</span> copy *dest +<span id="L92" class="LineNr"> 92 </span> result <span class="Special"><-</span> divide f <span id="L93" class="LineNr"> 93 </span> copy-to *dest, result <span id="L94" class="LineNr"> 94 </span><span class="Delimiter">}</span> <span id="L95" class="LineNr"> 95 </span> <span id="L96" class="LineNr"> 96 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-unit</span> in: (addr vec3), out: (addr vec3) <span class="Delimiter">{</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> vec3-length in +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> len/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length in <span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? print-string 0, "len: "</span> <span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? print-float-hex 0, len</span> <span id="L100" class="LineNr">100 </span><span class="CommentedCode">#? print-string 0, "\n"</span> @@ -162,28 +162,28 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr">103 </span><span class="Delimiter">}</span> <span id="L104" class="LineNr">104 </span> <span id="L105" class="LineNr">105 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length</span> v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> vec3-length-squared v -<span id="L107" class="LineNr">107 </span> result <span class="SpecialChar"><-</span> square-root result +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> vec3-length-squared v +<span id="L107" class="LineNr">107 </span> result <span class="Special"><-</span> square-root result <span id="L108" class="LineNr">108 </span> <span class="PreProc">return</span> result <span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> <span id="L110" class="LineNr">110 </span> <span id="L111" class="LineNr">111 </span><span class="PreProc">fn</span> <span class="muFunction">vec3-length-squared</span> _v: (addr vec3)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="SpecialChar"><-</span> copy _v +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr vec3) <span class="Special"><-</span> copy _v <span id="L113" class="LineNr">113 </span> <span class="muComment"># result = v.x * v.x</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, x -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy *src -<span id="L116" class="LineNr">116 </span> tmp <span class="SpecialChar"><-</span> multiply tmp -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy tmp +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, x +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> tmp/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy *src +<span id="L116" class="LineNr">116 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy tmp <span id="L118" class="LineNr">118 </span> <span class="muComment"># result += v.y * v.y</span> -<span id="L119" class="LineNr">119 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, y -<span id="L120" class="LineNr">120 </span> tmp <span class="SpecialChar"><-</span> copy *src -<span id="L121" class="LineNr">121 </span> tmp <span class="SpecialChar"><-</span> multiply tmp -<span id="L122" class="LineNr">122 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L119" class="LineNr">119 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, y +<span id="L120" class="LineNr">120 </span> tmp <span class="Special"><-</span> copy *src +<span id="L121" class="LineNr">121 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L122" class="LineNr">122 </span> result <span class="Special"><-</span> add tmp <span id="L123" class="LineNr">123 </span> <span class="muComment"># result += v.z * v.z</span> -<span id="L124" class="LineNr">124 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, z -<span id="L125" class="LineNr">125 </span> tmp <span class="SpecialChar"><-</span> copy *src -<span id="L126" class="LineNr">126 </span> tmp <span class="SpecialChar"><-</span> multiply tmp -<span id="L127" class="LineNr">127 </span> result <span class="SpecialChar"><-</span> add tmp +<span id="L124" class="LineNr">124 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, z +<span id="L125" class="LineNr">125 </span> tmp <span class="Special"><-</span> copy *src +<span id="L126" class="LineNr">126 </span> tmp <span class="Special"><-</span> multiply tmp +<span id="L127" class="LineNr">127 </span> result <span class="Special"><-</span> add tmp <span id="L128" class="LineNr">128 </span> <span class="PreProc">return</span> result <span id="L129" class="LineNr">129 </span><span class="Delimiter">}</span> <span id="L130" class="LineNr">130 </span> diff --git a/html/apps/rpn.mu.html b/html/linux/rpn.mu.html index b49a7801..e723a0a0 100644 --- a/html/apps/rpn.mu.html +++ b/html/linux/rpn.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/rpn.mu</title> +<title>Mu - linux/rpn.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/rpn.mu'>https://github.com/akkartik/mu/blob/main/apps/rpn.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/rpn.mu'>https://github.com/akkartik/mu/blob/main/linux/rpn.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Integer arithmetic using postfix notation</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> @@ -62,7 +62,7 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="muComment"># No division yet.</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># To build:</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate_mu apps/rpn.mu</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate rpn.mu</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># Example session:</span> <span id="L10" class="LineNr"> 10 </span><span class="muComment"># $ ./a.elf</span> @@ -86,23 +86,23 @@ if ('onhashchange' in window) { <span id="L28" class="LineNr"> 28 </span> <span id="L29" class="LineNr"> 29 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L29'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> in-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-storage -<span id="L32" class="LineNr"> 32 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-storage +<span id="L32" class="LineNr"> 32 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"press ctrl-c or ctrl-d to exit\n"</span> <span id="L33" class="LineNr"> 33 </span> <span class="muComment"># read-eval-print loop</span> <span id="L34" class="LineNr"> 34 </span> <span class="Delimiter">{</span> <span id="L35" class="LineNr"> 35 </span> <span class="muComment"># print prompt</span> -<span id="L36" class="LineNr"> 36 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"> "</span> +<span id="L36" class="LineNr"> 36 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"> "</span> <span id="L37" class="LineNr"> 37 </span> <span class="muComment"># read line</span> -<span id="L38" class="LineNr"> 38 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> in -<span id="L39" class="LineNr"> 39 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> in -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in +<span id="L38" class="LineNr"> 38 </span> <a href='106stream.subx.html#L17'>clear-stream</a> in +<span id="L39" class="LineNr"> 39 </span> <a href='305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> in +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='309stream.subx.html#L6'>stream-empty?</a> in <span id="L41" class="LineNr"> 41 </span> compare done?, <span class="Constant">0</span> <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">break-if-!=</span> <span id="L43" class="LineNr"> 43 </span> <span class="muComment"># parse and eval</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L59'>simplify</a> in +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L59'>simplify</a> in <span id="L45" class="LineNr"> 45 </span> <span class="muComment"># print</span> -<span id="L46" class="LineNr"> 46 </span> <a href='../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, out -<span id="L47" class="LineNr"> 47 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L46" class="LineNr"> 46 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>/screen, out +<span id="L47" class="LineNr"> 47 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"\n"</span> <span id="L48" class="LineNr"> 48 </span> <span class="muComment">#</span> <span id="L49" class="LineNr"> 49 </span> <span class="PreProc">loop</span> <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> @@ -111,97 +111,97 @@ if ('onhashchange' in window) { <span id="L53" class="LineNr"> 53 </span> <span id="L54" class="LineNr"> 54 </span><span class="PreProc">type</span> <a href='rpn.mu.html#L54'>int-stack</a> <span class="Delimiter">{</span> <span id="L55" class="LineNr"> 55 </span> data: (handle array int) -<span id="L56" class="LineNr"> 56 </span> <a href='../203stack.subx.html#L338'>top</a>: int +<span id="L56" class="LineNr"> 56 </span> <a href='203stack.subx.html#L338'>top</a>: int <span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> <span id="L58" class="LineNr"> 58 </span> <span id="L59" class="LineNr"> 59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L59'>simplify</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> word-storage: slice -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> word/<span class="Constant">ecx</span>: (addr slice) <span class="SpecialChar"><-</span> address word-storage +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> word/<span class="Constant">ecx</span>: (addr slice) <span class="Special"><-</span> address word-storage <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> stack-storage: <a href='rpn.mu.html#L54'>int-stack</a> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> stack/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> address stack-storage +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> stack/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="Special"><-</span> address stack-storage <span id="L64" class="LineNr"> 64 </span> <a href='rpn.mu.html#L113'>initialize-int-stack</a> stack, <span class="Constant">0x10</span> <span id="L65" class="LineNr"> 65 </span> $simplify:word-loop: <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> <a href='../127next-word.subx.html#L11'>next-word</a> in, word -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L9'>slice-empty?</a> word +<span id="L66" class="LineNr"> 66 </span> <a href='127next-word.subx.html#L11'>next-word</a> in, word +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L9'>slice-empty?</a> word <span id="L68" class="LineNr"> 68 </span> compare done?, <span class="Constant">0</span> <span id="L69" class="LineNr"> 69 </span> <span class="PreProc">break-if-!=</span> <span id="L70" class="LineNr"> 70 </span> <span class="muComment"># if word is an operator, perform it</span> <span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">{</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"+"</span> -<span id="L73" class="LineNr"> 73 </span> compare is-add?, <span class="Constant">0</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> add?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"+"</span> +<span id="L73" class="LineNr"> 73 </span> compare add?, <span class="Constant">0</span> <span id="L74" class="LineNr"> 74 </span> <span class="PreProc">break-if-=</span> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack -<span id="L78" class="LineNr"> 78 </span> a <span class="SpecialChar"><-</span> add b +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack +<span id="L78" class="LineNr"> 78 </span> a <span class="Special"><-</span> add b <span id="L79" class="LineNr"> 79 </span> <a href='rpn.mu.html#L121'>push-int-stack</a> stack, a <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">loop</span> $simplify:word-loop <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">{</span> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"-"</span> -<span id="L84" class="LineNr"> 84 </span> compare is-sub?, <span class="Constant">0</span> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> sub?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"-"</span> +<span id="L84" class="LineNr"> 84 </span> compare sub?, <span class="Constant">0</span> <span id="L85" class="LineNr"> 85 </span> <span class="PreProc">break-if-=</span> -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack -<span id="L89" class="LineNr"> 89 </span> a <span class="SpecialChar"><-</span> subtract b +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack +<span id="L89" class="LineNr"> 89 </span> a <span class="Special"><-</span> subtract b <span id="L90" class="LineNr"> 90 </span> <a href='rpn.mu.html#L121'>push-int-stack</a> stack, a <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">loop</span> $simplify:word-loop <span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"*"</span> -<span id="L95" class="LineNr"> 95 </span> compare is-mul?, <span class="Constant">0</span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> mul?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"*"</span> +<span id="L95" class="LineNr"> 95 </span> compare mul?, <span class="Constant">0</span> <span id="L96" class="LineNr"> 96 </span> <span class="PreProc">break-if-=</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack -<span id="L100" class="LineNr">100 </span> a <span class="SpecialChar"><-</span> multiply b +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack +<span id="L100" class="LineNr">100 </span> a <span class="Special"><-</span> multiply b <span id="L101" class="LineNr">101 </span> <a href='rpn.mu.html#L121'>push-int-stack</a> stack, a <span id="L102" class="LineNr">102 </span> <span class="PreProc">loop</span> $simplify:word-loop <span id="L103" class="LineNr">103 </span> <span class="Delimiter">}</span> <span id="L104" class="LineNr">104 </span> <span class="muComment"># otherwise it's an int</span> -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> word +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> word <span id="L106" class="LineNr">106 </span> <a href='rpn.mu.html#L121'>push-int-stack</a> stack, n <span id="L107" class="LineNr">107 </span> <span class="PreProc">loop</span> <span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L133'>pop-int-stack</a> stack <span id="L110" class="LineNr">110 </span> <span class="PreProc">return</span> result <span id="L111" class="LineNr">111 </span><span class="Delimiter">}</span> <span id="L112" class="LineNr">112 </span> <span id="L113" class="LineNr">113 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L113'>initialize-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L54'>int-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> self, data <span id="L116" class="LineNr">116 </span> populate d, n -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> <a href='203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> self, <a href='203stack.subx.html#L338'>top</a> <span id="L118" class="LineNr">118 </span> copy-to *top, <span class="Constant">0</span> <span id="L119" class="LineNr">119 </span><span class="Delimiter">}</span> <span id="L120" class="LineNr">120 </span> <span id="L121" class="LineNr">121 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L121'>push-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L54'>int-stack</a>), _val: int <span class="Delimiter">{</span> -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _val +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> self, <a href='203stack.subx.html#L338'>top</a> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> self, data +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> <a href='203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> index data, <a href='203stack.subx.html#L338'>top</a> +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _val <span id="L129" class="LineNr">129 </span> copy-to *dest-addr, val <span id="L130" class="LineNr">130 </span> add-to *top-addr, <span class="Constant">1</span> <span id="L131" class="LineNr">131 </span><span class="Delimiter">}</span> <span id="L132" class="LineNr">132 </span> <span id="L133" class="LineNr">133 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L133'>pop-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L54'>int-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L54'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> self, <a href='203stack.subx.html#L338'>top</a> <span id="L136" class="LineNr">136 </span> <span class="Delimiter">{</span> <span id="L137" class="LineNr">137 </span> compare *top-addr, <span class="Constant">0</span> <span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-></span> <span id="L139" class="LineNr">139 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> <span id="L141" class="LineNr">141 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *result-addr +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="Special"><-</span> <a href='131table.subx.html#L26'>get</a> self, data +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> <a href='203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index data, <a href='203stack.subx.html#L338'>top</a> +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *result-addr <span id="L147" class="LineNr">147 </span> <span class="PreProc">return</span> val <span id="L148" class="LineNr">148 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/sigils.subx.html b/html/linux/sigils.subx.html index 9ee04d48..7348dd35 100644 --- a/html/apps/sigils.subx.html +++ b/html/linux/sigils.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/sigils.subx</title> +<title>Mu - linux/sigils.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,17 +14,17 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -58,4180 +58,4182 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/sigils.subx'>https://github.com/akkartik/mu/blob/main/apps/sigils.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/sigils.subx'>https://github.com/akkartik/mu/blob/main/linux/sigils.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Syntax sugar for addressing modes that expand into /rm32 and other related</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># arguments.</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To run:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/subx-params.subx apps/sigils.subx -o apps/sigils</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap translate [012]*.subx apps/subx-params.subx apps/sigils.subx -o apps/sigils</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># We currently support the following notations:</span> <span id="L8" class="LineNr"> 8 </span><span class="subxComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment"># 1.</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ echo '%eax' | ./bootstrap run apps/sigils</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># $ echo '%eax' | bootstrap/bootstrap run sigils</span> <span id="L11" class="LineNr"> 11 </span><span class="subxComment"># 3/mod 0/rm32</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># 2.</span> -<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># $ echo '*eax' | ./bootstrap run apps/sigils</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># $ echo '*eax' | bootstrap/bootstrap run sigils</span> <span id="L15" class="LineNr"> 15 </span><span class="subxComment"># 0/mod 0/rm32</span> <span id="L16" class="LineNr"> 16 </span><span class="subxComment">#</span> <span id="L17" class="LineNr"> 17 </span><span class="subxComment"># 3.</span> -<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># $ echo '*(eax+4)' | ./bootstrap run apps/sigils</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># $ echo '*(eax+4)' | bootstrap/bootstrap run sigils</span> <span id="L19" class="LineNr"> 19 </span><span class="subxComment"># 2/mod 0/rm32 4/disp32</span> <span id="L20" class="LineNr"> 20 </span><span class="subxComment">#</span> <span id="L21" class="LineNr"> 21 </span><span class="subxComment"># 4.</span> -<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo '*(eax+ecx)' | ./bootstrap run apps/sigils</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># $ echo '*(eax+ecx)' | bootstrap/bootstrap run sigils</span> <span id="L23" class="LineNr"> 23 </span><span class="subxComment"># 0/mod 4/rm32 0/base 1/index 0/scale</span> <span id="L24" class="LineNr"> 24 </span><span class="subxComment">#</span> <span id="L25" class="LineNr"> 25 </span><span class="subxComment"># 5.</span> -<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># $ echo '*(eax+ecx+4)' | ./bootstrap run apps/sigils</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># $ echo '*(eax+ecx+4)' | bootstrap/bootstrap run sigils</span> <span id="L27" class="LineNr"> 27 </span><span class="subxComment"># 2/mod 4/rm32 0/base 1/index 0/scale 4/disp32</span> <span id="L28" class="LineNr"> 28 </span><span class="subxComment">#</span> <span id="L29" class="LineNr"> 29 </span><span class="subxComment"># 6.</span> -<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># $ echo '*(eax+ecx<<2+4)' | ./bootstrap run apps/sigils</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># $ echo '*(eax+ecx<<2+4)' | bootstrap/bootstrap run sigils</span> <span id="L31" class="LineNr"> 31 </span><span class="subxComment"># 2/mod 4/rm32 0/base 1/index 2/scale 4/disp32</span> <span id="L32" class="LineNr"> 32 </span><span class="subxComment">#</span> <span id="L33" class="LineNr"> 33 </span><span class="subxComment"># 7.</span> -<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># $ echo '*Foo' | ./bootstrap run apps/sigils</span> +<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># $ echo '*Foo' | bootstrap/bootstrap run sigils</span> <span id="L35" class="LineNr"> 35 </span><span class="subxComment"># 0/mod 5/rm32/.disp32 Foo/disp32</span> <span id="L36" class="LineNr"> 36 </span><span class="subxComment">#</span> -<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># Addition isn't commutative here. Template must always be (base+index<<scale+disp),</span> -<span id="L38" class="LineNr"> 38 </span><span class="subxComment"># though some components are optional as described above.</span> -<span id="L39" class="LineNr"> 39 </span><span class="subxComment"># In particular, global variables like 'Foo' above don't support displacement</span> -<span id="L40" class="LineNr"> 40 </span><span class="subxComment"># or index or scale.</span> -<span id="L41" class="LineNr"> 41 </span><span class="subxComment">#</span> -<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># No metadata allowed inside '*(...)'.</span> -<span id="L43" class="LineNr"> 43 </span><span class="subxComment"># Whitespace inside '*(...)' is ok. But not immediately after the '*' or '%'.</span> -<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># We don't support conversions to floating-point registers. In particular, so</span> -<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># far there's no %xmm1.</span> -<span id="L46" class="LineNr"> 46 </span><span class="subxComment">#</span> -<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># The code generated is sub-optimal:</span> -<span id="L48" class="LineNr"> 48 </span><span class="subxComment"># - displacements are always disp32, even when disp8 will do</span> -<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># - *(...esp...) always uses SIB arguments even when redundant</span> -<span id="L50" class="LineNr"> 50 </span> -<span id="L51" class="LineNr"> 51 </span>== code -<span id="L52" class="LineNr"> 52 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L53" class="LineNr"> 53 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L54" class="LineNr"> 54 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L55" class="LineNr"> 55 </span> -<span id="L56" class="LineNr"> 56 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> -<span id="L57" class="LineNr"> 57 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L58" class="LineNr"> 58 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span> <span class="subxComment"># initialize heap</span> -<span id="L61" class="LineNr"> 61 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> -<span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L63" class="LineNr"> 63 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L64" class="LineNr"> 64 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> -<span id="L65" class="LineNr"> 65 </span> <span class="subxS2Comment"># . . call</span> -<span id="L66" class="LineNr"> 66 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L68" class="LineNr"> 68 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L69" class="LineNr"> 69 </span> -<span id="L70" class="LineNr"> 70 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> -<span id="L71" class="LineNr"> 71 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> -<span id="L72" class="LineNr"> 72 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> -<span id="L73" class="LineNr"> 73 </span> 7e/jump-if-<= $subx-sigils-main:interactive/disp8 -<span id="L74" class="LineNr"> 74 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> -<span id="L75" class="LineNr"> 75 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> -<span id="L76" class="LineNr"> 76 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L77" class="LineNr"> 77 </span> 68/push <span class="Constant">"test"</span>/imm32 -<span id="L78" class="LineNr"> 78 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L79" class="LineNr"> 79 </span> <span class="subxS2Comment"># . . call</span> -<span id="L80" class="LineNr"> 80 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 -<span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L82" class="LineNr"> 82 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L83" class="LineNr"> 83 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> -<span id="L84" class="LineNr"> 84 </span> 3d/compare-eax-and 0/imm32/false -<span id="L85" class="LineNr"> 85 </span> 74/jump-if-= $subx-sigils-main:interactive/disp8 -<span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># run-tests()</span> -<span id="L87" class="LineNr"> 87 </span> e8/call run-tests/disp32 -<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L89" class="LineNr"> 89 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L90" class="LineNr"> 90 </span> eb/jump $subx-sigils-main:end/disp8 -<span id="L91" class="LineNr"> 91 </span><span class="Constant">$subx-sigils-main:interactive</span>: -<span id="L92" class="LineNr"> 92 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> -<span id="L93" class="LineNr"> 93 </span> <span class="subxComment"># subx-sigils(Stdin, Stdout)</span> -<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L95" class="LineNr"> 95 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L96" class="LineNr"> 96 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 -<span id="L97" class="LineNr"> 97 </span> <span class="subxS2Comment"># . . call</span> -<span id="L98" class="LineNr"> 98 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L100" class="LineNr"> 100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L101" class="LineNr"> 101 </span> <span class="subxComment"># syscall(exit, 0)</span> -<span id="L102" class="LineNr"> 102 </span> bb/copy-to-ebx 0/imm32 -<span id="L103" class="LineNr"> 103 </span><span class="Constant">$subx-sigils-main:end</span>: -<span id="L104" class="LineNr"> 104 </span> e8/call syscall_exit/disp32 -<span id="L105" class="LineNr"> 105 </span> -<span id="L106" class="LineNr"> 106 </span><span class="subxComment"># error messages considered:</span> -<span id="L107" class="LineNr"> 107 </span><span class="subxComment"># *x + 34 -> error: base+disp addressing must be within '()'</span> -<span id="L108" class="LineNr"> 108 </span><span class="subxFunction">subx-sigils</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> -<span id="L109" class="LineNr"> 109 </span> <span class="subxComment"># pseudocode:</span> -<span id="L110" class="LineNr"> 110 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># while true</span> -<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L113" class="LineNr"> 113 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># while true</span> -<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># var word-slice = next-word-or-expression(line)</span> -<span id="L117" class="LineNr"> 117 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L118" class="LineNr"> 118 </span> <span class="subxComment"># break</span> -<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L120" class="LineNr"> 120 </span> <span class="subxComment"># continue</span> -<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '%') # direct mode</span> -<span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> -<span id="L123" class="LineNr"> 123 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '*') # indirect mode</span> -<span id="L124" class="LineNr"> 124 </span> <span class="subxComment"># if disp32-mode?(word-slice)</span> -<span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># emit-indirect-disp32(out, word-slice)</span> -<span id="L126" class="LineNr"> 126 </span> <span class="subxComment"># else</span> -<span id="L127" class="LineNr"> 127 </span> <span class="subxComment"># base, index, scale, disp = parse-effective-address(word-slice)</span> -<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> -<span id="L129" class="LineNr"> 129 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '+')</span> -<span id="L130" class="LineNr"> 130 </span> <span class="subxComment"># abort("'+' only permitted within '*(...)'")</span> -<span id="L131" class="LineNr"> 131 </span> <span class="subxComment"># else</span> -<span id="L132" class="LineNr"> 132 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># write(out, " ")</span> -<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># write(out, "\n")</span> -<span id="L135" class="LineNr"> 135 </span> <span class="subxComment"># flush(out)</span> -<span id="L136" class="LineNr"> 136 </span> <span class="subxComment">#</span> -<span id="L137" class="LineNr"> 137 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L138" class="LineNr"> 138 </span> 55/push-ebp -<span id="L139" class="LineNr"> 139 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L140" class="LineNr"> 140 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L141" class="LineNr"> 141 </span> 50/push-eax -<span id="L142" class="LineNr"> 142 </span> 51/push-ecx -<span id="L143" class="LineNr"> 143 </span> 52/push-edx -<span id="L144" class="LineNr"> 144 </span> 53/push-ebx -<span id="L145" class="LineNr"> 145 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L146" class="LineNr"> 146 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L147" class="LineNr"> 147 </span> 68/push 0x200/imm32/length -<span id="L148" class="LineNr"> 148 </span> 68/push 0/imm32/read -<span id="L149" class="LineNr"> 149 </span> 68/push 0/imm32/write -<span id="L150" class="LineNr"> 150 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L151" class="LineNr"> 151 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L152" class="LineNr"> 152 </span> 68/push 0/imm32/end -<span id="L153" class="LineNr"> 153 </span> 68/push 0/imm32/start -<span id="L154" class="LineNr"> 154 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L155" class="LineNr"> 155 </span><span class="Constant">$subx-sigils:line-loop</span>: -<span id="L156" class="LineNr"> 156 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L157" class="LineNr"> 157 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L158" class="LineNr"> 158 </span> 51/push-ecx -<span id="L159" class="LineNr"> 159 </span> <span class="subxS2Comment"># . . call</span> -<span id="L160" class="LineNr"> 160 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L161" class="LineNr"> 161 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L162" class="LineNr"> 162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L163" class="LineNr"> 163 </span> <span class="subxComment"># read-line-buffered(in, line)</span> -<span id="L164" class="LineNr"> 164 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L165" class="LineNr"> 165 </span> 51/push-ecx -<span id="L166" class="LineNr"> 166 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L167" class="LineNr"> 167 </span> <span class="subxS2Comment"># . . call</span> -<span id="L168" class="LineNr"> 168 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 -<span id="L169" class="LineNr"> 169 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L170" class="LineNr"> 170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L171" class="LineNr"> 171 </span><span class="Constant">$subx-sigils:check0</span>: -<span id="L172" class="LineNr"> 172 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L173" class="LineNr"> 173 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> -<span id="L174" class="LineNr"> 174 </span> 0f 84/jump-if-= $subx-sigils:<span class="Constant">break</span>/disp32 -<span id="L175" class="LineNr"> 175 </span><span class="Constant">$subx-sigils:word-loop</span>: -<span id="L176" class="LineNr"> 176 </span> <span class="subxComment"># next-word-or-expression(line, word-slice)</span> -<span id="L177" class="LineNr"> 177 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L178" class="LineNr"> 178 </span> 52/push-edx -<span id="L179" class="LineNr"> 179 </span> 51/push-ecx -<span id="L180" class="LineNr"> 180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L181" class="LineNr"> 181 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 -<span id="L182" class="LineNr"> 182 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L183" class="LineNr"> 183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L184" class="LineNr"> 184 </span><span class="Constant">$subx-sigils:check1</span>: -<span id="L185" class="LineNr"> 185 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L186" class="LineNr"> 186 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L187" class="LineNr"> 187 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L188" class="LineNr"> 188 </span> 52/push-edx -<span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . call</span> -<span id="L190" class="LineNr"> 190 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L191" class="LineNr"> 191 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L192" class="LineNr"> 192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L193" class="LineNr"> 193 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L194" class="LineNr"> 194 </span> 3d/compare-eax-and 0/imm32/false -<span id="L195" class="LineNr"> 195 </span> 0f 85/jump-if-!= $subx-sigils:next-line/disp32 -<span id="L196" class="LineNr"> 196 </span><span class="Constant">$subx-sigils:check-for-comment</span>: -<span id="L197" class="LineNr"> 197 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) continue</span> -<span id="L198" class="LineNr"> 198 </span> <span class="subxS1Comment"># . start/ebx = word-slice->start</span> -<span id="L199" class="LineNr"> 199 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> -<span id="L200" class="LineNr"> 200 </span> <span class="subxS1Comment"># . c/eax = *start</span> -<span id="L201" class="LineNr"> 201 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L202" class="LineNr"> 202 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> -<span id="L203" class="LineNr"> 203 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> -<span id="L204" class="LineNr"> 204 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L205" class="LineNr"> 205 </span> 74/jump-if-= $subx-sigils:word-loop/disp8 -<span id="L206" class="LineNr"> 206 </span><span class="Constant">$subx-sigils:check-for-direct-mode</span>: -<span id="L207" class="LineNr"> 207 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "%")) goto next check</span> -<span id="L208" class="LineNr"> 208 </span> 3d/compare-eax-and 0x25/imm32/percent -<span id="L209" class="LineNr"> 209 </span> 75/jump-if-!= $subx-sigils:check-for-indirect-mode/disp8 -<span id="L210" class="LineNr"> 210 </span><span class="Constant">$subx-sigils:direct-mode</span>: -<span id="L211" class="Folded"> 211 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L251" class="LineNr"> 251 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> -<span id="L252" class="LineNr"> 252 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L253" class="LineNr"> 253 </span> 52/push-edx -<span id="L254" class="LineNr"> 254 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L255" class="LineNr"> 255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L256" class="LineNr"> 256 </span> e8/call <a href='sigils.subx.html#L1362'>emit-direct-mode</a>/disp32 -<span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L258" class="LineNr"> 258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L259" class="LineNr"> 259 </span> <span class="subxComment"># continue</span> -<span id="L260" class="LineNr"> 260 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L261" class="LineNr"> 261 </span><span class="Constant">$subx-sigils:check-for-indirect-mode</span>: -<span id="L262" class="LineNr"> 262 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "*")) goto next check</span> -<span id="L263" class="LineNr"> 263 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L264" class="LineNr"> 264 </span> 75/jump-if-!= $subx-sigils:check-for-invalid-addition/disp8 -<span id="L265" class="LineNr"> 265 </span> <span class="subxComment"># if (!disp32-mode?(word-slice)) goto indirect mode</span> -<span id="L266" class="LineNr"> 266 </span> <span class="subxS1Comment"># . eax = disp32-mode?(word-slice)</span> -<span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L268" class="LineNr"> 268 </span> 52/push-edx -<span id="L269" class="LineNr"> 269 </span> <span class="subxS2Comment"># . . call</span> -<span id="L270" class="LineNr"> 270 </span> e8/call <a href='sigils.subx.html#L3879'>disp32-mode?</a>/disp32 -<span id="L271" class="LineNr"> 271 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L272" class="LineNr"> 272 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L273" class="LineNr"> 273 </span> <span class="subxS1Comment"># . if (eax == false) goto indirect mode</span> -<span id="L274" class="LineNr"> 274 </span> 3d/compare-eax-and 0/imm32/false -<span id="L275" class="LineNr"> 275 </span> 74/jump-if-= $subx-sigils:indirect-mode/disp8 -<span id="L276" class="LineNr"> 276 </span><span class="Constant">$subx-sigils:disp32-mode</span>: -<span id="L277" class="LineNr"> 277 </span> <span class="subxComment"># emit-indirect-mode(out, word-slice)</span> -<span id="L278" class="LineNr"> 278 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L279" class="LineNr"> 279 </span> 52/push-edx -<span id="L280" class="LineNr"> 280 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L281" class="LineNr"> 281 </span> <span class="subxS2Comment"># . . call</span> -<span id="L282" class="LineNr"> 282 </span> e8/call <a href='sigils.subx.html#L3938'>emit-indirect-disp32</a>/disp32 -<span id="L283" class="LineNr"> 283 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L284" class="LineNr"> 284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L285" class="LineNr"> 285 </span> <span class="subxComment"># continue</span> -<span id="L286" class="LineNr"> 286 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L287" class="LineNr"> 287 </span><span class="Constant">$subx-sigils:indirect-mode</span>: -<span id="L288" class="LineNr"> 288 </span> <span class="subxComment"># spill registers</span> -<span id="L289" class="LineNr"> 289 </span> 50/push-eax -<span id="L290" class="LineNr"> 290 </span> 51/push-ecx -<span id="L291" class="LineNr"> 291 </span> 52/push-edx -<span id="L292" class="LineNr"> 292 </span> 53/push-ebx -<span id="L293" class="LineNr"> 293 </span> <span class="subxComment"># base/eax, index/ecx, scale/edx, disp/ebx = parse-effective-address(word-slice)</span> -<span id="L294" class="LineNr"> 294 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L295" class="LineNr"> 295 </span> 52/push-edx -<span id="L296" class="LineNr"> 296 </span> <span class="subxS2Comment"># . . call</span> -<span id="L297" class="LineNr"> 297 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L298" class="LineNr"> 298 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L299" class="LineNr"> 299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L300" class="LineNr"> 300 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> -<span id="L301" class="LineNr"> 301 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L302" class="LineNr"> 302 </span> 53/push-ebx -<span id="L303" class="LineNr"> 303 </span> 52/push-edx -<span id="L304" class="LineNr"> 304 </span> 51/push-ecx -<span id="L305" class="LineNr"> 305 </span> 50/push-eax -<span id="L306" class="LineNr"> 306 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L307" class="LineNr"> 307 </span> <span class="subxS2Comment"># . . call</span> -<span id="L308" class="LineNr"> 308 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L309" class="LineNr"> 309 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L310" class="LineNr"> 310 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L311" class="LineNr"> 311 </span> <span class="subxComment"># restore registers</span> -<span id="L312" class="LineNr"> 312 </span> 5b/pop-to-ebx -<span id="L313" class="LineNr"> 313 </span> 5a/pop-to-edx -<span id="L314" class="LineNr"> 314 </span> 59/pop-to-ecx -<span id="L315" class="LineNr"> 315 </span> 58/pop-to-eax -<span id="L316" class="LineNr"> 316 </span> <span class="subxComment"># continue</span> -<span id="L317" class="LineNr"> 317 </span> e9/jump $subx-sigils:<a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L318" class="LineNr"> 318 </span><span class="Constant">$subx-sigils:check-for-invalid-addition</span>: -<span id="L319" class="LineNr"> 319 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "+")) goto error1</span> -<span id="L320" class="LineNr"> 320 </span> 3d/compare-eax-and 0x2b/imm32/plus -<span id="L321" class="LineNr"> 321 </span> 74/jump-if-= $subx-sigils:error1/disp8 -<span id="L322" class="LineNr"> 322 </span><span class="Constant">$subx-sigils:check-for-invalid-left-shift</span>: -<span id="L323" class="LineNr"> 323 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "<")) goto error1</span> -<span id="L324" class="LineNr"> 324 </span> 3d/compare-eax-and 0x3c/imm32/less-than -<span id="L325" class="LineNr"> 325 </span> 74/jump-if-= $subx-sigils:error1/disp8 -<span id="L326" class="LineNr"> 326 </span><span class="Constant">$subx-sigils:regular-word</span>: -<span id="L327" class="LineNr"> 327 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L328" class="LineNr"> 328 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L329" class="LineNr"> 329 </span> 52/push-edx -<span id="L330" class="LineNr"> 330 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L331" class="LineNr"> 331 </span> <span class="subxS2Comment"># . . call</span> -<span id="L332" class="LineNr"> 332 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L333" class="LineNr"> 333 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L334" class="LineNr"> 334 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L335" class="LineNr"> 335 </span> <span class="subxComment"># fall through</span> -<span id="L336" class="LineNr"> 336 </span><span class="Constant">$subx-sigils:<a href='../127next-word.subx.html#L11'>next-word</a></span>: -<span id="L337" class="LineNr"> 337 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L338" class="LineNr"> 338 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L339" class="LineNr"> 339 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 -<span id="L340" class="LineNr"> 340 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L341" class="LineNr"> 341 </span> <span class="subxS2Comment"># . . call</span> -<span id="L342" class="LineNr"> 342 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L343" class="LineNr"> 343 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L344" class="LineNr"> 344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L345" class="LineNr"> 345 </span> <span class="subxComment"># loop</span> -<span id="L346" class="LineNr"> 346 </span> e9/jump $subx-sigils:word-loop/disp32 -<span id="L347" class="LineNr"> 347 </span><span class="Constant">$subx-sigils:next-line</span>: -<span id="L348" class="LineNr"> 348 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L349" class="LineNr"> 349 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L350" class="LineNr"> 350 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L351" class="LineNr"> 351 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L352" class="LineNr"> 352 </span> <span class="subxS2Comment"># . . call</span> -<span id="L353" class="LineNr"> 353 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L354" class="LineNr"> 354 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L355" class="LineNr"> 355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L356" class="LineNr"> 356 </span> <span class="subxComment"># loop</span> -<span id="L357" class="LineNr"> 357 </span> e9/jump $subx-sigils:line-loop/disp32 -<span id="L358" class="LineNr"> 358 </span><span class="Constant">$subx-sigils:break</span>: -<span id="L359" class="LineNr"> 359 </span> <span class="subxComment"># flush(out)</span> -<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L361" class="LineNr"> 361 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . call</span> -<span id="L363" class="LineNr"> 363 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L365" class="LineNr"> 365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L366" class="LineNr"> 366 </span><span class="Constant">$subx-sigils:end</span>: -<span id="L367" class="LineNr"> 367 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L368" class="LineNr"> 368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> -<span id="L369" class="LineNr"> 369 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L370" class="LineNr"> 370 </span> 5b/pop-to-ebx -<span id="L371" class="LineNr"> 371 </span> 5a/pop-to-edx -<span id="L372" class="LineNr"> 372 </span> 59/pop-to-ecx -<span id="L373" class="LineNr"> 373 </span> 58/pop-to-eax -<span id="L374" class="LineNr"> 374 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L375" class="LineNr"> 375 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L376" class="LineNr"> 376 </span> 5d/pop-to-ebp -<span id="L377" class="LineNr"> 377 </span> c3/return -<span id="L378" class="LineNr"> 378 </span> -<span id="L379" class="LineNr"> 379 </span><span class="Constant">$subx-sigils:error1</span>: -<span id="L380" class="LineNr"> 380 </span> <span class="subxComment"># print(stderr, "error: '" eax "' only permitted within '*(...)' in '" line "'")</span> -<span id="L381" class="LineNr"> 381 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '")</span> -<span id="L382" class="LineNr"> 382 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L383" class="LineNr"> 383 </span> 68/push <span class="Constant">"error: '"</span>/imm32 -<span id="L384" class="LineNr"> 384 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L385" class="LineNr"> 385 </span> <span class="subxS2Comment"># . . call</span> -<span id="L386" class="LineNr"> 386 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L387" class="LineNr"> 387 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L388" class="LineNr"> 388 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L389" class="LineNr"> 389 </span> <span class="subxS1Comment"># . write-byte-buffered(Stderr, eax)</span> -<span id="L390" class="LineNr"> 390 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L391" class="LineNr"> 391 </span> 50/push-eax -<span id="L392" class="LineNr"> 392 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L393" class="LineNr"> 393 </span> <span class="subxS2Comment"># . . call</span> -<span id="L394" class="LineNr"> 394 </span> e8/call <a href='../115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 -<span id="L395" class="LineNr"> 395 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L396" class="LineNr"> 396 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L397" class="LineNr"> 397 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "' only permitted within '*(...)' in '")</span> -<span id="L398" class="LineNr"> 398 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L399" class="LineNr"> 399 </span> 68/push <span class="Constant">"' only permitted within '*(...)' in '"</span>/imm32 -<span id="L400" class="LineNr"> 400 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L401" class="LineNr"> 401 </span> <span class="subxS2Comment"># . . call</span> -<span id="L402" class="LineNr"> 402 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L403" class="LineNr"> 403 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L404" class="LineNr"> 404 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L405" class="LineNr"> 405 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L406" class="LineNr"> 406 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L407" class="LineNr"> 407 </span> 51/push-ecx -<span id="L408" class="LineNr"> 408 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L409" class="LineNr"> 409 </span> <span class="subxS2Comment"># . . call</span> -<span id="L410" class="LineNr"> 410 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L412" class="LineNr"> 412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L413" class="LineNr"> 413 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L414" class="LineNr"> 414 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L415" class="LineNr"> 415 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L416" class="LineNr"> 416 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L417" class="LineNr"> 417 </span> <span class="subxS2Comment"># . . call</span> -<span id="L418" class="LineNr"> 418 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L419" class="LineNr"> 419 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L420" class="LineNr"> 420 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L421" class="LineNr"> 421 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L422" class="LineNr"> 422 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L423" class="LineNr"> 423 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . call</span> -<span id="L425" class="LineNr"> 425 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L427" class="LineNr"> 427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L428" class="LineNr"> 428 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L429" class="LineNr"> 429 </span> bb/copy-to-ebx 1/imm32 -<span id="L430" class="LineNr"> 430 </span> e8/call syscall_exit/disp32 -<span id="L431" class="LineNr"> 431 </span> <span class="subxComment"># never gets here</span> -<span id="L432" class="LineNr"> 432 </span> -<span id="L433" class="LineNr"> 433 </span><span class="subxTest">test-subx-sigils-passes-most-words-through</span>: -<span id="L434" class="LineNr"> 434 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L435" class="LineNr"> 435 </span> 55/push-ebp -<span id="L436" class="LineNr"> 436 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L437" class="LineNr"> 437 </span> <span class="subxComment"># setup</span> -<span id="L438" class="LineNr"> 438 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L439" class="LineNr"> 439 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L440" class="LineNr"> 440 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L441" class="LineNr"> 441 </span> <span class="subxS2Comment"># . . call</span> -<span id="L442" class="LineNr"> 442 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L444" class="LineNr"> 444 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L445" class="LineNr"> 445 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L446" class="LineNr"> 446 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L447" class="LineNr"> 447 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L448" class="LineNr"> 448 </span> <span class="subxS2Comment"># . . call</span> -<span id="L449" class="LineNr"> 449 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L450" class="LineNr"> 450 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L451" class="LineNr"> 451 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L452" class="LineNr"> 452 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L454" class="LineNr"> 454 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L455" class="LineNr"> 455 </span> <span class="subxS2Comment"># . . call</span> -<span id="L456" class="LineNr"> 456 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L457" class="LineNr"> 457 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L458" class="LineNr"> 458 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L459" class="LineNr"> 459 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L460" class="LineNr"> 460 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L461" class="LineNr"> 461 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L462" class="LineNr"> 462 </span> <span class="subxS2Comment"># . . call</span> -<span id="L463" class="LineNr"> 463 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L464" class="LineNr"> 464 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L465" class="LineNr"> 465 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L466" class="LineNr"> 466 </span> <span class="subxComment"># initialize input</span> -<span id="L467" class="LineNr"> 467 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1")</span> -<span id="L468" class="LineNr"> 468 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L469" class="LineNr"> 469 </span> 68/push <span class="Constant">"== abcd 0x1"</span>/imm32 -<span id="L470" class="LineNr"> 470 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L471" class="LineNr"> 471 </span> <span class="subxS2Comment"># . . call</span> -<span id="L472" class="LineNr"> 472 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L473" class="LineNr"> 473 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L474" class="LineNr"> 474 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L476" class="LineNr"> 476 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L477" class="LineNr"> 477 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L478" class="LineNr"> 478 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L479" class="LineNr"> 479 </span> <span class="subxS2Comment"># . . call</span> -<span id="L480" class="LineNr"> 480 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L481" class="LineNr"> 481 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L482" class="LineNr"> 482 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L484" class="LineNr"> 484 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L485" class="LineNr"> 485 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L486" class="LineNr"> 486 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L487" class="LineNr"> 487 </span> <span class="subxS2Comment"># . . call</span> -<span id="L488" class="LineNr"> 488 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L489" class="LineNr"> 489 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L490" class="LineNr"> 490 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L491" class="Folded"> 491 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L517" class="LineNr"> 517 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1 \n", msg)</span> -<span id="L518" class="LineNr"> 518 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L519" class="LineNr"> 519 </span> 68/push <span class="Constant">"F - test-subx-sigils-passes-most-words-through"</span>/imm32 -<span id="L520" class="LineNr"> 520 </span> 68/push <span class="Constant">"== abcd 0x1 \n"</span>/imm32 -<span id="L521" class="LineNr"> 521 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L522" class="LineNr"> 522 </span> <span class="subxS2Comment"># . . call</span> -<span id="L523" class="LineNr"> 523 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L524" class="LineNr"> 524 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L525" class="LineNr"> 525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L526" class="LineNr"> 526 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L527" class="LineNr"> 527 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L528" class="LineNr"> 528 </span> 5d/pop-to-ebp -<span id="L529" class="LineNr"> 529 </span> c3/return -<span id="L530" class="LineNr"> 530 </span> -<span id="L531" class="LineNr"> 531 </span><span class="subxTest">test-subx-sigils-direct-mode</span>: -<span id="L532" class="LineNr"> 532 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L533" class="LineNr"> 533 </span> 55/push-ebp -<span id="L534" class="LineNr"> 534 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L535" class="LineNr"> 535 </span> <span class="subxComment"># setup</span> -<span id="L536" class="LineNr"> 536 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L537" class="LineNr"> 537 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L538" class="LineNr"> 538 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L539" class="LineNr"> 539 </span> <span class="subxS2Comment"># . . call</span> -<span id="L540" class="LineNr"> 540 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L541" class="LineNr"> 541 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L542" class="LineNr"> 542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L543" class="LineNr"> 543 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L544" class="LineNr"> 544 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L545" class="LineNr"> 545 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L546" class="LineNr"> 546 </span> <span class="subxS2Comment"># . . call</span> -<span id="L547" class="LineNr"> 547 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L548" class="LineNr"> 548 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L549" class="LineNr"> 549 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L550" class="LineNr"> 550 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L551" class="LineNr"> 551 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L552" class="LineNr"> 552 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L553" class="LineNr"> 553 </span> <span class="subxS2Comment"># . . call</span> -<span id="L554" class="LineNr"> 554 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L555" class="LineNr"> 555 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L556" class="LineNr"> 556 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L557" class="LineNr"> 557 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L558" class="LineNr"> 558 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L559" class="LineNr"> 559 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L560" class="LineNr"> 560 </span> <span class="subxS2Comment"># . . call</span> -<span id="L561" class="LineNr"> 561 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L562" class="LineNr"> 562 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L563" class="LineNr"> 563 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L564" class="LineNr"> 564 </span> <span class="subxComment"># initialize input</span> -<span id="L565" class="LineNr"> 565 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx")</span> -<span id="L566" class="LineNr"> 566 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L567" class="LineNr"> 567 </span> 68/push <span class="Constant">"ab %ecx"</span>/imm32 -<span id="L568" class="LineNr"> 568 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L569" class="LineNr"> 569 </span> <span class="subxS2Comment"># . . call</span> -<span id="L570" class="LineNr"> 570 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L571" class="LineNr"> 571 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L572" class="LineNr"> 572 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L573" class="LineNr"> 573 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L574" class="LineNr"> 574 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L575" class="LineNr"> 575 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L576" class="LineNr"> 576 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . call</span> -<span id="L578" class="LineNr"> 578 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L580" class="LineNr"> 580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L581" class="LineNr"> 581 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L582" class="LineNr"> 582 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L583" class="LineNr"> 583 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L584" class="LineNr"> 584 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L585" class="LineNr"> 585 </span> <span class="subxS2Comment"># . . call</span> -<span id="L586" class="LineNr"> 586 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L587" class="LineNr"> 587 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L588" class="LineNr"> 588 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L589" class="Folded"> 589 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L615" class="LineNr"> 615 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> -<span id="L616" class="LineNr"> 616 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L617" class="LineNr"> 617 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode"</span>/imm32 -<span id="L618" class="LineNr"> 618 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 -<span id="L619" class="LineNr"> 619 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> -<span id="L621" class="LineNr"> 621 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L623" class="LineNr"> 623 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L624" class="LineNr"> 624 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L625" class="LineNr"> 625 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L626" class="LineNr"> 626 </span> 5d/pop-to-ebp -<span id="L627" class="LineNr"> 627 </span> c3/return -<span id="L628" class="LineNr"> 628 </span> -<span id="L629" class="LineNr"> 629 </span><span class="subxTest">test-subx-sigils-direct-mode-with-metadata</span>: -<span id="L630" class="LineNr"> 630 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L631" class="LineNr"> 631 </span> 55/push-ebp -<span id="L632" class="LineNr"> 632 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L633" class="LineNr"> 633 </span> <span class="subxComment"># setup</span> -<span id="L634" class="LineNr"> 634 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L635" class="LineNr"> 635 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L636" class="LineNr"> 636 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . call</span> -<span id="L638" class="LineNr"> 638 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L640" class="LineNr"> 640 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L641" class="LineNr"> 641 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L642" class="LineNr"> 642 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L643" class="LineNr"> 643 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . call</span> -<span id="L645" class="LineNr"> 645 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L646" class="LineNr"> 646 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L647" class="LineNr"> 647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L648" class="LineNr"> 648 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L650" class="LineNr"> 650 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . call</span> -<span id="L652" class="LineNr"> 652 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L654" class="LineNr"> 654 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L655" class="LineNr"> 655 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L657" class="LineNr"> 657 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . call</span> -<span id="L659" class="LineNr"> 659 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L660" class="LineNr"> 660 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L661" class="LineNr"> 661 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L662" class="LineNr"> 662 </span> <span class="subxComment"># initialize input</span> -<span id="L663" class="LineNr"> 663 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx/foo")</span> -<span id="L664" class="LineNr"> 664 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L665" class="LineNr"> 665 </span> 68/push <span class="Constant">"ab %ecx/foo"</span>/imm32 -<span id="L666" class="LineNr"> 666 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . call</span> -<span id="L668" class="LineNr"> 668 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L669" class="LineNr"> 669 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L670" class="LineNr"> 670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L671" class="LineNr"> 671 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L672" class="LineNr"> 672 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L673" class="LineNr"> 673 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L674" class="LineNr"> 674 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . call</span> -<span id="L676" class="LineNr"> 676 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L678" class="LineNr"> 678 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L679" class="LineNr"> 679 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L680" class="LineNr"> 680 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L681" class="LineNr"> 681 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L682" class="LineNr"> 682 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . call</span> -<span id="L684" class="LineNr"> 684 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L685" class="LineNr"> 685 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L686" class="LineNr"> 686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L687" class="LineNr"> 687 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> -<span id="L688" class="LineNr"> 688 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L689" class="LineNr"> 689 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode-with-metadata"</span>/imm32 -<span id="L690" class="LineNr"> 690 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 -<span id="L691" class="LineNr"> 691 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L692" class="LineNr"> 692 </span> <span class="subxS2Comment"># . . call</span> -<span id="L693" class="LineNr"> 693 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L694" class="LineNr"> 694 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L695" class="LineNr"> 695 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L696" class="LineNr"> 696 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L697" class="LineNr"> 697 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L698" class="LineNr"> 698 </span> 5d/pop-to-ebp -<span id="L699" class="LineNr"> 699 </span> c3/return -<span id="L700" class="LineNr"> 700 </span> -<span id="L701" class="LineNr"> 701 </span><span class="subxTest">test-subx-sigils-register-indirect-mode</span>: -<span id="L702" class="LineNr"> 702 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L703" class="LineNr"> 703 </span> 55/push-ebp -<span id="L704" class="LineNr"> 704 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L705" class="LineNr"> 705 </span> <span class="subxComment"># setup</span> -<span id="L706" class="LineNr"> 706 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L708" class="LineNr"> 708 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . call</span> -<span id="L710" class="LineNr"> 710 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L712" class="LineNr"> 712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L713" class="LineNr"> 713 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L714" class="LineNr"> 714 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L715" class="LineNr"> 715 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L716" class="LineNr"> 716 </span> <span class="subxS2Comment"># . . call</span> -<span id="L717" class="LineNr"> 717 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L718" class="LineNr"> 718 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L719" class="LineNr"> 719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L720" class="LineNr"> 720 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L721" class="LineNr"> 721 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L722" class="LineNr"> 722 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L723" class="LineNr"> 723 </span> <span class="subxS2Comment"># . . call</span> -<span id="L724" class="LineNr"> 724 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L726" class="LineNr"> 726 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L727" class="LineNr"> 727 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L728" class="LineNr"> 728 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L729" class="LineNr"> 729 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . call</span> -<span id="L731" class="LineNr"> 731 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L732" class="LineNr"> 732 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L733" class="LineNr"> 733 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L734" class="LineNr"> 734 </span> <span class="subxComment"># initialize input</span> -<span id="L735" class="LineNr"> 735 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx")</span> -<span id="L736" class="LineNr"> 736 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L737" class="LineNr"> 737 </span> 68/push <span class="Constant">"ab *ecx"</span>/imm32 -<span id="L738" class="LineNr"> 738 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L739" class="LineNr"> 739 </span> <span class="subxS2Comment"># . . call</span> -<span id="L740" class="LineNr"> 740 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L741" class="LineNr"> 741 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L742" class="LineNr"> 742 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L743" class="LineNr"> 743 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L744" class="LineNr"> 744 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L745" class="LineNr"> 745 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L746" class="LineNr"> 746 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L747" class="LineNr"> 747 </span> <span class="subxS2Comment"># . . call</span> -<span id="L748" class="LineNr"> 748 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L749" class="LineNr"> 749 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L750" class="LineNr"> 750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L751" class="LineNr"> 751 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L752" class="LineNr"> 752 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L753" class="LineNr"> 753 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L754" class="LineNr"> 754 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L755" class="LineNr"> 755 </span> <span class="subxS2Comment"># . . call</span> -<span id="L756" class="LineNr"> 756 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L757" class="LineNr"> 757 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L758" class="LineNr"> 758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L759" class="Folded"> 759 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L785" class="LineNr"> 785 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> -<span id="L786" class="LineNr"> 786 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L787" class="LineNr"> 787 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode"</span>/imm32 -<span id="L788" class="LineNr"> 788 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 -<span id="L789" class="LineNr"> 789 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L790" class="LineNr"> 790 </span> <span class="subxS2Comment"># . . call</span> -<span id="L791" class="LineNr"> 791 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L792" class="LineNr"> 792 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L793" class="LineNr"> 793 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L794" class="LineNr"> 794 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L795" class="LineNr"> 795 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L796" class="LineNr"> 796 </span> 5d/pop-to-ebp -<span id="L797" class="LineNr"> 797 </span> c3/return -<span id="L798" class="LineNr"> 798 </span> -<span id="L799" class="LineNr"> 799 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-metadata</span>: -<span id="L800" class="LineNr"> 800 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L801" class="LineNr"> 801 </span> 55/push-ebp -<span id="L802" class="LineNr"> 802 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L803" class="LineNr"> 803 </span> <span class="subxComment"># setup</span> -<span id="L804" class="LineNr"> 804 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L805" class="LineNr"> 805 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L806" class="LineNr"> 806 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . call</span> -<span id="L808" class="LineNr"> 808 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L809" class="LineNr"> 809 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L810" class="LineNr"> 810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L811" class="LineNr"> 811 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L812" class="LineNr"> 812 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L813" class="LineNr"> 813 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L814" class="LineNr"> 814 </span> <span class="subxS2Comment"># . . call</span> -<span id="L815" class="LineNr"> 815 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L816" class="LineNr"> 816 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L817" class="LineNr"> 817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L818" class="LineNr"> 818 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L819" class="LineNr"> 819 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L820" class="LineNr"> 820 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L821" class="LineNr"> 821 </span> <span class="subxS2Comment"># . . call</span> -<span id="L822" class="LineNr"> 822 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L823" class="LineNr"> 823 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L824" class="LineNr"> 824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L825" class="LineNr"> 825 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L826" class="LineNr"> 826 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L827" class="LineNr"> 827 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L828" class="LineNr"> 828 </span> <span class="subxS2Comment"># . . call</span> -<span id="L829" class="LineNr"> 829 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L830" class="LineNr"> 830 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L831" class="LineNr"> 831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L832" class="LineNr"> 832 </span> <span class="subxComment"># initialize input</span> -<span id="L833" class="LineNr"> 833 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx/foo")</span> -<span id="L834" class="LineNr"> 834 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L835" class="LineNr"> 835 </span> 68/push <span class="Constant">"ab *ecx/foo"</span>/imm32 -<span id="L836" class="LineNr"> 836 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L837" class="LineNr"> 837 </span> <span class="subxS2Comment"># . . call</span> -<span id="L838" class="LineNr"> 838 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L839" class="LineNr"> 839 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L840" class="LineNr"> 840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L841" class="LineNr"> 841 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L842" class="LineNr"> 842 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L843" class="LineNr"> 843 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L844" class="LineNr"> 844 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L845" class="LineNr"> 845 </span> <span class="subxS2Comment"># . . call</span> -<span id="L846" class="LineNr"> 846 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L848" class="LineNr"> 848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L849" class="LineNr"> 849 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L850" class="LineNr"> 850 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L851" class="LineNr"> 851 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L852" class="LineNr"> 852 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L853" class="LineNr"> 853 </span> <span class="subxS2Comment"># . . call</span> -<span id="L854" class="LineNr"> 854 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L856" class="LineNr"> 856 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L857" class="LineNr"> 857 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> -<span id="L858" class="LineNr"> 858 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L859" class="LineNr"> 859 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-metadata"</span>/imm32 -<span id="L860" class="LineNr"> 860 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 -<span id="L861" class="LineNr"> 861 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . call</span> -<span id="L863" class="LineNr"> 863 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L865" class="LineNr"> 865 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L866" class="LineNr"> 866 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L867" class="LineNr"> 867 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L868" class="LineNr"> 868 </span> 5d/pop-to-ebp -<span id="L869" class="LineNr"> 869 </span> c3/return -<span id="L870" class="LineNr"> 870 </span> -<span id="L871" class="LineNr"> 871 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-without-displacement</span>: -<span id="L872" class="LineNr"> 872 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L873" class="LineNr"> 873 </span> 55/push-ebp -<span id="L874" class="LineNr"> 874 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L875" class="LineNr"> 875 </span> <span class="subxComment"># setup</span> -<span id="L876" class="LineNr"> 876 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L878" class="LineNr"> 878 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . call</span> -<span id="L880" class="LineNr"> 880 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L882" class="LineNr"> 882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L883" class="LineNr"> 883 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L885" class="LineNr"> 885 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . call</span> -<span id="L887" class="LineNr"> 887 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L889" class="LineNr"> 889 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L890" class="LineNr"> 890 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L891" class="LineNr"> 891 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L892" class="LineNr"> 892 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . call</span> -<span id="L894" class="LineNr"> 894 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L895" class="LineNr"> 895 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L896" class="LineNr"> 896 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L897" class="LineNr"> 897 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L898" class="LineNr"> 898 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L899" class="LineNr"> 899 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . call</span> -<span id="L901" class="LineNr"> 901 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L902" class="LineNr"> 902 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L903" class="LineNr"> 903 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L904" class="LineNr"> 904 </span> <span class="subxComment"># initialize input</span> -<span id="L905" class="LineNr"> 905 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx)")</span> -<span id="L906" class="LineNr"> 906 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L907" class="LineNr"> 907 </span> 68/push <span class="Constant">"ab *(ecx)"</span>/imm32 -<span id="L908" class="LineNr"> 908 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L909" class="LineNr"> 909 </span> <span class="subxS2Comment"># . . call</span> -<span id="L910" class="LineNr"> 910 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L911" class="LineNr"> 911 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L912" class="LineNr"> 912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L913" class="LineNr"> 913 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L914" class="LineNr"> 914 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L915" class="LineNr"> 915 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L916" class="LineNr"> 916 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L917" class="LineNr"> 917 </span> <span class="subxS2Comment"># . . call</span> -<span id="L918" class="LineNr"> 918 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L919" class="LineNr"> 919 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L920" class="LineNr"> 920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L921" class="LineNr"> 921 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L922" class="LineNr"> 922 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L924" class="LineNr"> 924 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L925" class="LineNr"> 925 </span> <span class="subxS2Comment"># . . call</span> -<span id="L926" class="LineNr"> 926 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L927" class="LineNr"> 927 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L928" class="LineNr"> 928 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L929" class="Folded"> 929 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L955" class="LineNr"> 955 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 1/rm32 \n", msg)</span> -<span id="L956" class="LineNr"> 956 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L957" class="LineNr"> 957 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-without-displacement"</span>/imm32 -<span id="L958" class="LineNr"> 958 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 -<span id="L959" class="LineNr"> 959 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L960" class="LineNr"> 960 </span> <span class="subxS2Comment"># . . call</span> -<span id="L961" class="LineNr"> 961 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L963" class="LineNr"> 963 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L964" class="LineNr"> 964 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L965" class="LineNr"> 965 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L966" class="LineNr"> 966 </span> 5d/pop-to-ebp -<span id="L967" class="LineNr"> 967 </span> c3/return -<span id="L968" class="LineNr"> 968 </span> -<span id="L969" class="LineNr"> 969 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-displacement</span>: -<span id="L970" class="LineNr"> 970 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L971" class="LineNr"> 971 </span> 55/push-ebp -<span id="L972" class="LineNr"> 972 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L973" class="LineNr"> 973 </span> <span class="subxComment"># setup</span> -<span id="L974" class="LineNr"> 974 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L975" class="LineNr"> 975 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L976" class="LineNr"> 976 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . call</span> -<span id="L978" class="LineNr"> 978 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L979" class="LineNr"> 979 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L980" class="LineNr"> 980 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L981" class="LineNr"> 981 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L982" class="LineNr"> 982 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L983" class="LineNr"> 983 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L984" class="LineNr"> 984 </span> <span class="subxS2Comment"># . . call</span> -<span id="L985" class="LineNr"> 985 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L986" class="LineNr"> 986 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L987" class="LineNr"> 987 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L988" class="LineNr"> 988 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L989" class="LineNr"> 989 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L990" class="LineNr"> 990 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . call</span> -<span id="L992" class="LineNr"> 992 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L994" class="LineNr"> 994 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L995" class="LineNr"> 995 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L996" class="LineNr"> 996 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L997" class="LineNr"> 997 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . call</span> -<span id="L999" class="LineNr"> 999 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1001" class="LineNr">1001 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1002" class="LineNr">1002 </span> <span class="subxComment"># initialize input</span> -<span id="L1003" class="LineNr">1003 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx+4)")</span> -<span id="L1004" class="LineNr">1004 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1005" class="LineNr">1005 </span> 68/push <span class="Constant">"ab *(ecx+4)"</span>/imm32 -<span id="L1006" class="LineNr">1006 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1007" class="LineNr">1007 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1008" class="LineNr">1008 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1010" class="LineNr">1010 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1011" class="LineNr">1011 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1012" class="LineNr">1012 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1013" class="LineNr">1013 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1014" class="LineNr">1014 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L1015" class="LineNr">1015 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1016" class="LineNr">1016 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1018" class="LineNr">1018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1019" class="LineNr">1019 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1020" class="LineNr">1020 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1021" class="LineNr">1021 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1022" class="LineNr">1022 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1023" class="LineNr">1023 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1024" class="LineNr">1024 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1025" class="LineNr">1025 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1026" class="LineNr">1026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1027" class="Folded">1027 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1053" class="LineNr">1053 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 1/rm32 4/disp32 \n", msg)</span> -<span id="L1054" class="LineNr">1054 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-displacement"</span>/imm32 -<span id="L1056" class="LineNr">1056 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 0x00000001/rm32 0x00000004/disp32 \n"</span>/imm32 -<span id="L1057" class="LineNr">1057 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1059" class="LineNr">1059 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1061" class="LineNr">1061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1062" class="LineNr">1062 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1063" class="LineNr">1063 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1064" class="LineNr">1064 </span> 5d/pop-to-ebp -<span id="L1065" class="LineNr">1065 </span> c3/return -<span id="L1066" class="LineNr">1066 </span> -<span id="L1067" class="LineNr">1067 </span><span class="subxComment"># boss level</span> -<span id="L1068" class="LineNr">1068 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte</span>: -<span id="L1069" class="LineNr">1069 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1070" class="LineNr">1070 </span> 55/push-ebp -<span id="L1071" class="LineNr">1071 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1072" class="LineNr">1072 </span> <span class="subxComment"># setup</span> -<span id="L1073" class="LineNr">1073 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1074" class="LineNr">1074 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1075" class="LineNr">1075 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1076" class="LineNr">1076 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1077" class="LineNr">1077 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1078" class="LineNr">1078 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1079" class="LineNr">1079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1080" class="LineNr">1080 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L1081" class="LineNr">1081 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1082" class="LineNr">1082 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L1083" class="LineNr">1083 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1084" class="LineNr">1084 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1085" class="LineNr">1085 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1086" class="LineNr">1086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1087" class="LineNr">1087 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1089" class="LineNr">1089 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1091" class="LineNr">1091 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1092" class="LineNr">1092 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1093" class="LineNr">1093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1094" class="LineNr">1094 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1095" class="LineNr">1095 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1096" class="LineNr">1096 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1098" class="LineNr">1098 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1100" class="LineNr">1100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1101" class="LineNr">1101 </span> <span class="subxComment"># initialize input</span> -<span id="L1102" class="LineNr">1102 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 + 4)")</span> -<span id="L1103" class="LineNr">1103 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1104" class="LineNr">1104 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 + 4)"</span>/imm32 -<span id="L1105" class="LineNr">1105 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1107" class="LineNr">1107 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1109" class="LineNr">1109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1110" class="LineNr">1110 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1111" class="LineNr">1111 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1112" class="LineNr">1112 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1113" class="LineNr">1113 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1115" class="LineNr">1115 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1117" class="LineNr">1117 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1118" class="LineNr">1118 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1119" class="LineNr">1119 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1120" class="LineNr">1120 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1121" class="LineNr">1121 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1122" class="LineNr">1122 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1123" class="LineNr">1123 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1124" class="LineNr">1124 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1125" class="LineNr">1125 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1126" class="Folded">1126 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1152" class="LineNr">1152 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale 4/disp32 \n", msg)</span> -<span id="L1153" class="LineNr">1153 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1154" class="LineNr">1154 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte"</span>/imm32 -<span id="L1155" class="LineNr">1155 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0x00000004/disp32 \n"</span>/imm32 -<span id="L1156" class="LineNr">1156 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1157" class="LineNr">1157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1158" class="LineNr">1158 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1160" class="LineNr">1160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1161" class="LineNr">1161 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1162" class="LineNr">1162 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1163" class="LineNr">1163 </span> 5d/pop-to-ebp -<span id="L1164" class="LineNr">1164 </span> c3/return -<span id="L1165" class="LineNr">1165 </span> -<span id="L1166" class="LineNr">1166 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement</span>: -<span id="L1167" class="LineNr">1167 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1168" class="LineNr">1168 </span> 55/push-ebp -<span id="L1169" class="LineNr">1169 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1170" class="LineNr">1170 </span> <span class="subxComment"># setup</span> -<span id="L1171" class="LineNr">1171 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1172" class="LineNr">1172 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1173" class="LineNr">1173 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1174" class="LineNr">1174 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1175" class="LineNr">1175 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1176" class="LineNr">1176 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1177" class="LineNr">1177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1178" class="LineNr">1178 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1180" class="LineNr">1180 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1182" class="LineNr">1182 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1183" class="LineNr">1183 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1184" class="LineNr">1184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1185" class="LineNr">1185 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1186" class="LineNr">1186 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1187" class="LineNr">1187 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1189" class="LineNr">1189 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1191" class="LineNr">1191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1192" class="LineNr">1192 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1193" class="LineNr">1193 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1194" class="LineNr">1194 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1196" class="LineNr">1196 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1198" class="LineNr">1198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1199" class="LineNr">1199 </span> <span class="subxComment"># initialize input</span> -<span id="L1200" class="LineNr">1200 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 - 4)")</span> -<span id="L1201" class="LineNr">1201 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1202" class="LineNr">1202 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 - 4)"</span>/imm32 -<span id="L1203" class="LineNr">1203 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1204" class="LineNr">1204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1205" class="LineNr">1205 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1206" class="LineNr">1206 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1207" class="LineNr">1207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1208" class="LineNr">1208 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1209" class="LineNr">1209 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1210" class="LineNr">1210 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1211" class="LineNr">1211 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L1212" class="LineNr">1212 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1213" class="LineNr">1213 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L1214" class="LineNr">1214 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1215" class="LineNr">1215 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1216" class="LineNr">1216 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1217" class="LineNr">1217 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1219" class="LineNr">1219 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1221" class="LineNr">1221 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1223" class="LineNr">1223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1224" class="Folded">1224 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1250" class="LineNr">1250 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale -4/disp32 \n", msg)</span> -<span id="L1251" class="LineNr">1251 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1252" class="LineNr">1252 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement"</span>/imm32 -<span id="L1253" class="LineNr">1253 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0xfffffffc/disp32 \n"</span>/imm32 -<span id="L1254" class="LineNr">1254 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1256" class="LineNr">1256 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1258" class="LineNr">1258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1259" class="LineNr">1259 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1260" class="LineNr">1260 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1261" class="LineNr">1261 </span> 5d/pop-to-ebp -<span id="L1262" class="LineNr">1262 </span> c3/return -<span id="L1263" class="LineNr">1263 </span> -<span id="L1264" class="LineNr">1264 </span><span class="subxTest">test-subx-sigils-indirect-mode-without-register</span>: -<span id="L1265" class="LineNr">1265 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1266" class="LineNr">1266 </span> 55/push-ebp -<span id="L1267" class="LineNr">1267 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1268" class="LineNr">1268 </span> <span class="subxComment"># setup</span> -<span id="L1269" class="LineNr">1269 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1271" class="LineNr">1271 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1272" class="LineNr">1272 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1273" class="LineNr">1273 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1274" class="LineNr">1274 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1275" class="LineNr">1275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1276" class="LineNr">1276 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> -<span id="L1277" class="LineNr">1277 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1278" class="LineNr">1278 </span> 68/push $_test-input-buffered-file->buffer/imm32 -<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1280" class="LineNr">1280 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1281" class="LineNr">1281 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1282" class="LineNr">1282 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1283" class="LineNr">1283 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1285" class="LineNr">1285 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1286" class="LineNr">1286 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1287" class="LineNr">1287 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1289" class="LineNr">1289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1290" class="LineNr">1290 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1291" class="LineNr">1291 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1292" class="LineNr">1292 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1294" class="LineNr">1294 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1296" class="LineNr">1296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1297" class="LineNr">1297 </span> <span class="subxComment"># initialize input</span> -<span id="L1298" class="LineNr">1298 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *Foo")</span> -<span id="L1299" class="LineNr">1299 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1300" class="LineNr">1300 </span> 68/push <span class="Constant">"ab *Foo"</span>/imm32 -<span id="L1301" class="LineNr">1301 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1302" class="LineNr">1302 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1303" class="LineNr">1303 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1304" class="LineNr">1304 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1305" class="LineNr">1305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1306" class="LineNr">1306 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> -<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1308" class="LineNr">1308 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1309" class="LineNr">1309 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 -<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1311" class="LineNr">1311 </span> e8/call <a href='sigils.subx.html#L108'>subx-sigils</a>/disp32 -<span id="L1312" class="LineNr">1312 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1313" class="LineNr">1313 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1314" class="LineNr">1314 </span> <span class="subxComment"># check that the line just passed through</span> -<span id="L1315" class="LineNr">1315 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1317" class="LineNr">1317 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1319" class="LineNr">1319 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1321" class="LineNr">1321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1322" class="Folded">1322 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1348" class="LineNr">1348 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n", msg)</span> -<span id="L1349" class="LineNr">1349 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1350" class="LineNr">1350 </span> 68/push <span class="Constant">"F - test-subx-sigils-indirect-mode-without-register"</span>/imm32 -<span id="L1351" class="LineNr">1351 </span> 68/push <span class="Constant">"ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n"</span>/imm32 -<span id="L1352" class="LineNr">1352 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1353" class="LineNr">1353 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1354" class="LineNr">1354 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1356" class="LineNr">1356 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1357" class="LineNr">1357 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1358" class="LineNr">1358 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1359" class="LineNr">1359 </span> 5d/pop-to-ebp -<span id="L1360" class="LineNr">1360 </span> c3/return -<span id="L1361" class="LineNr">1361 </span> -<span id="L1362" class="LineNr">1362 </span><span class="subxFunction">emit-direct-mode</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> -<span id="L1363" class="LineNr">1363 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1364" class="LineNr">1364 </span> 55/push-ebp -<span id="L1365" class="LineNr">1365 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1366" class="LineNr">1366 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1367" class="LineNr">1367 </span> 50/push-eax -<span id="L1368" class="LineNr">1368 </span> <span class="subxComment"># var local-slice/eax: slice = {word-slice->start, word-slice->end}</span> -<span id="L1369" class="LineNr">1369 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L1370" class="LineNr">1370 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1371" class="LineNr">1371 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L1372" class="LineNr">1372 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> -<span id="L1373" class="LineNr">1373 </span> <span class="subxComment"># ++local-slice->start to skip '%'</span> -<span id="L1374" class="LineNr">1374 </span> <span class="subxS1Comment"># . ++(*eax)</span> -<span id="L1375" class="LineNr">1375 </span> ff 0/subop/increment 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *eax</span> -<span id="L1376" class="Folded">1376 </span><span class="Folded">+-- 24 lines: #? # write-slice-buffered(Stderr, word-slice) -------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1400" class="LineNr">1400 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L1401" class="LineNr">1401 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1402" class="LineNr">1402 </span> 50/push-eax -<span id="L1403" class="LineNr">1403 </span> 68/push 0x2f/imm32/slash -<span id="L1404" class="LineNr">1404 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1405" class="LineNr">1405 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L1406" class="LineNr">1406 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1407" class="LineNr">1407 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L1408" class="LineNr">1408 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1409" class="LineNr">1409 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1410" class="LineNr">1410 </span> <span class="subxComment"># reg-num/eax = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L1411" class="LineNr">1411 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1412" class="LineNr">1412 </span> 68/push <span class="Constant">"Registers"</span>/imm32 -<span id="L1413" class="LineNr">1413 </span> 68/push 0xc/imm32/row-size -<span id="L1414" class="LineNr">1414 </span> 50/push-eax -<span id="L1415" class="LineNr">1415 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L1416" class="LineNr">1416 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1417" class="LineNr">1417 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L1418" class="LineNr">1418 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1419" class="LineNr">1419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1420" class="LineNr">1420 </span> <span class="subxComment"># write-buffered(out, "3/mod/direct ")</span> -<span id="L1421" class="LineNr">1421 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1422" class="LineNr">1422 </span> 68/push <span class="Constant">"3/mod/direct "</span>/imm32 -<span id="L1423" class="LineNr">1423 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1424" class="LineNr">1424 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1425" class="LineNr">1425 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1427" class="LineNr">1427 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1428" class="LineNr">1428 </span> <span class="subxComment"># write-int32-hex-buffered(out, *reg-num)</span> -<span id="L1429" class="LineNr">1429 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1430" class="LineNr">1430 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> -<span id="L1431" class="LineNr">1431 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1433" class="LineNr">1433 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L1434" class="LineNr">1434 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1435" class="LineNr">1435 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1436" class="LineNr">1436 </span> <span class="subxComment"># write-buffered(out, "/rm32")</span> -<span id="L1437" class="LineNr">1437 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1438" class="LineNr">1438 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 -<span id="L1439" class="LineNr">1439 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1440" class="LineNr">1440 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1441" class="LineNr">1441 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1442" class="LineNr">1442 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1443" class="LineNr">1443 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1444" class="LineNr">1444 </span><span class="Constant">$emit-direct-mode:end</span>: -<span id="L1445" class="LineNr">1445 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L1446" class="LineNr">1446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1448" class="LineNr">1448 </span> 58/pop-to-eax -<span id="L1449" class="LineNr">1449 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1450" class="LineNr">1450 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1451" class="LineNr">1451 </span> 5d/pop-to-ebp -<span id="L1452" class="LineNr">1452 </span> c3/return -<span id="L1453" class="LineNr">1453 </span> -<span id="L1454" class="LineNr">1454 </span><span class="subxTest">test-emit-direct-mode</span>: -<span id="L1455" class="LineNr">1455 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1456" class="LineNr">1456 </span> 55/push-ebp -<span id="L1457" class="LineNr">1457 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1458" class="LineNr">1458 </span> <span class="subxComment"># setup</span> -<span id="L1459" class="LineNr">1459 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1460" class="LineNr">1460 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1461" class="LineNr">1461 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1462" class="LineNr">1462 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1463" class="LineNr">1463 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1465" class="LineNr">1465 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1466" class="LineNr">1466 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1467" class="LineNr">1467 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1468" class="LineNr">1468 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1470" class="LineNr">1470 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1472" class="LineNr">1472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1473" class="LineNr">1473 </span> <span class="subxComment"># var slice/ecx = "%eax"</span> -<span id="L1474" class="LineNr">1474 </span> b8/copy-to-eax <span class="Constant">"%eax"</span>/imm32 -<span id="L1475" class="LineNr">1475 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1476" class="LineNr">1476 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1477" class="LineNr">1477 </span> 05/add-to-eax 4/imm32 -<span id="L1478" class="LineNr">1478 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L1479" class="LineNr">1479 </span> 51/push-ecx -<span id="L1480" class="LineNr">1480 </span> 50/push-eax -<span id="L1481" class="LineNr">1481 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1482" class="LineNr">1482 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str)</span> -<span id="L1483" class="LineNr">1483 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1484" class="LineNr">1484 </span> 51/push-ecx -<span id="L1485" class="LineNr">1485 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1486" class="LineNr">1486 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1487" class="LineNr">1487 </span> e8/call <a href='sigils.subx.html#L1362'>emit-direct-mode</a>/disp32 -<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1489" class="LineNr">1489 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1490" class="LineNr">1490 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1491" class="LineNr">1491 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1492" class="LineNr">1492 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1494" class="LineNr">1494 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1495" class="LineNr">1495 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1496" class="LineNr">1496 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1497" class="Folded">1497 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1523" class="LineNr">1523 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 0/rm32", msg)</span> -<span id="L1524" class="LineNr">1524 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1525" class="LineNr">1525 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1454'>test-emit-direct-mode</a>/0"</span>/imm32 -<span id="L1526" class="LineNr">1526 </span> 68/push <span class="Constant">"3/mod/direct 0x00000000/rm32"</span>/imm32 -<span id="L1527" class="LineNr">1527 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1528" class="LineNr">1528 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1529" class="LineNr">1529 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1531" class="LineNr">1531 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1532" class="LineNr">1532 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1533" class="LineNr">1533 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1534" class="LineNr">1534 </span> 5d/pop-to-ebp -<span id="L1535" class="LineNr">1535 </span> c3/return -<span id="L1536" class="LineNr">1536 </span> -<span id="L1537" class="LineNr">1537 </span><span class="subxTest">test-emit-direct-mode-2</span>: -<span id="L1538" class="LineNr">1538 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1539" class="LineNr">1539 </span> 55/push-ebp -<span id="L1540" class="LineNr">1540 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1541" class="LineNr">1541 </span> <span class="subxComment"># setup</span> -<span id="L1542" class="LineNr">1542 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1544" class="LineNr">1544 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1545" class="LineNr">1545 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1546" class="LineNr">1546 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1547" class="LineNr">1547 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1548" class="LineNr">1548 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1549" class="LineNr">1549 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L1550" class="LineNr">1550 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1551" class="LineNr">1551 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1553" class="LineNr">1553 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1555" class="LineNr">1555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1556" class="LineNr">1556 </span> <span class="subxComment"># var slice/ecx = "%edi"</span> -<span id="L1557" class="LineNr">1557 </span> b8/copy-to-eax <span class="Constant">"%edi"</span>/imm32 -<span id="L1558" class="LineNr">1558 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L1559" class="LineNr">1559 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L1560" class="LineNr">1560 </span> 05/add-to-eax 4/imm32 -<span id="L1561" class="LineNr">1561 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L1562" class="LineNr">1562 </span> 51/push-ecx -<span id="L1563" class="LineNr">1563 </span> 50/push-eax -<span id="L1564" class="LineNr">1564 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1565" class="LineNr">1565 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str/ecx)</span> -<span id="L1566" class="LineNr">1566 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1567" class="LineNr">1567 </span> 51/push-ecx -<span id="L1568" class="LineNr">1568 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1569" class="LineNr">1569 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1570" class="LineNr">1570 </span> e8/call <a href='sigils.subx.html#L1362'>emit-direct-mode</a>/disp32 -<span id="L1571" class="LineNr">1571 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1572" class="LineNr">1572 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1573" class="LineNr">1573 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1575" class="LineNr">1575 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1577" class="LineNr">1577 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1579" class="LineNr">1579 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1580" class="Folded">1580 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1606" class="LineNr">1606 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 7/rm32", msg)</span> -<span id="L1607" class="LineNr">1607 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1608" class="LineNr">1608 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1454'>test-emit-direct-mode</a>/1"</span>/imm32 -<span id="L1609" class="LineNr">1609 </span> 68/push <span class="Constant">"3/mod/direct 0x00000007/rm32"</span>/imm32 -<span id="L1610" class="LineNr">1610 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L1611" class="LineNr">1611 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1612" class="LineNr">1612 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1614" class="LineNr">1614 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1615" class="LineNr">1615 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1616" class="LineNr">1616 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1617" class="LineNr">1617 </span> 5d/pop-to-ebp -<span id="L1618" class="LineNr">1618 </span> c3/return -<span id="L1619" class="LineNr">1619 </span> -<span id="L1620" class="LineNr">1620 </span><span class="subxComment"># (re)compute the bounds of the next word or parenthetical expression in the line</span> -<span id="L1621" class="LineNr">1621 </span><span class="subxComment"># return empty string on reaching end of file</span> -<span id="L1622" class="LineNr">1622 </span><span class="subxComment">#</span> -<span id="L1623" class="LineNr">1623 </span><span class="subxComment"># error messages considered:</span> -<span id="L1624" class="LineNr">1624 </span><span class="subxComment"># * ... -> error: no space after '*'</span> -<span id="L1625" class="LineNr">1625 </span><span class="subxComment"># *(... -> error: *(...) expression must be all on a single line</span> -<span id="L1626" class="LineNr">1626 </span><span class="subxFunction">next-word-or-expression</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> -<span id="L1627" class="LineNr">1627 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1628" class="LineNr">1628 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> -<span id="L1629" class="LineNr">1629 </span> <span class="subxComment"># if line->read >= line->write # end of line</span> -<span id="L1630" class="LineNr">1630 </span> <span class="subxComment"># out = {0, 0}</span> -<span id="L1631" class="LineNr">1631 </span> <span class="subxComment"># return</span> -<span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> -<span id="L1633" class="LineNr">1633 </span> <span class="subxComment"># if line->data[line->read] == '#' # comment</span> -<span id="L1634" class="LineNr">1634 </span> <span class="subxComment"># out.end = &line->data[line->write]</span> -<span id="L1635" class="LineNr">1635 </span> <span class="subxComment"># return</span> -<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># if line->data[line->read] == '"' # string literal</span> -<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># skip-string(line)</span> -<span id="L1638" class="LineNr">1638 </span> <span class="subxComment"># else if line->data[line->read] == '*' # expression</span> -<span id="L1639" class="LineNr">1639 </span> <span class="subxComment"># if line->data[line->read + 1] == ' '</span> -<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># abort</span> -<span id="L1641" class="LineNr">1641 </span> <span class="subxComment"># if line->data[line->read + 1] == '('</span> -<span id="L1642" class="LineNr">1642 </span> <span class="subxComment"># skip-until-close-paren(line)</span> -<span id="L1643" class="LineNr">1643 </span> <span class="subxComment"># if (line->data[line->read] != ')'</span> -<span id="L1644" class="LineNr">1644 </span> <span class="subxComment"># abort</span> -<span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># ++line->data[line->read] to skip ')'</span> -<span id="L1646" class="LineNr">1646 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line)</span> -<span id="L1647" class="LineNr">1647 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L1648" class="LineNr">1648 </span> <span class="subxComment">#</span> -<span id="L1649" class="LineNr">1649 </span> <span class="subxComment"># registers:</span> -<span id="L1650" class="LineNr">1650 </span> <span class="subxComment"># ecx: often line->read</span> -<span id="L1651" class="LineNr">1651 </span> <span class="subxComment"># eax: often line->data[line->read]</span> -<span id="L1652" class="LineNr">1652 </span> <span class="subxComment">#</span> -<span id="L1653" class="LineNr">1653 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1654" class="LineNr">1654 </span> 55/push-ebp -<span id="L1655" class="LineNr">1655 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1656" class="LineNr">1656 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1657" class="LineNr">1657 </span> 50/push-eax -<span id="L1658" class="LineNr">1658 </span> 51/push-ecx -<span id="L1659" class="LineNr">1659 </span> 56/push-esi -<span id="L1660" class="LineNr">1660 </span> 57/push-edi -<span id="L1661" class="LineNr">1661 </span> <span class="subxComment"># esi = line</span> -<span id="L1662" class="LineNr">1662 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L1663" class="LineNr">1663 </span> <span class="subxComment"># edi = out</span> -<span id="L1664" class="LineNr">1664 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> -<span id="L1665" class="LineNr">1665 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> -<span id="L1666" class="LineNr">1666 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1667" class="LineNr">1667 </span> 68/push 0x20/imm32/space -<span id="L1668" class="LineNr">1668 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1669" class="LineNr">1669 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1670" class="LineNr">1670 </span> e8/call <a href='../124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 -<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1672" class="LineNr">1672 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1673" class="LineNr">1673 </span><span class="Constant">$next-word-or-expression:check0</span>: -<span id="L1674" class="LineNr">1674 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> -<span id="L1675" class="LineNr">1675 </span> <span class="subxS1Comment"># . ecx = line->read</span> -<span id="L1676" class="LineNr">1676 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L1677" class="LineNr">1677 </span> <span class="subxS1Comment"># . if (ecx < line->write) goto next check</span> -<span id="L1678" class="LineNr">1678 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> -<span id="L1679" class="LineNr">1679 </span> 7c/jump-if-< $next-word-or-expression:check-for-comment/disp8 -<span id="L1680" class="LineNr">1680 </span> <span class="subxS1Comment"># . return out = {0, 0}</span> -<span id="L1681" class="LineNr">1681 </span> c7 0/subop/copy 0/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *edi</span> -<span id="L1682" class="LineNr">1682 </span> c7 0/subop/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(edi+4)</span> -<span id="L1683" class="LineNr">1683 </span> e9/jump $next-word-or-expression:end/disp32 -<span id="L1684" class="LineNr">1684 </span><span class="Constant">$next-word-or-expression:check-for-comment</span>: -<span id="L1685" class="LineNr">1685 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> -<span id="L1686" class="LineNr">1686 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> -<span id="L1687" class="LineNr">1687 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> -<span id="L1688" class="LineNr">1688 </span> <span class="subxComment"># if (line->data[line->read] != '#') goto next check</span> -<span id="L1689" class="LineNr">1689 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L1690" class="LineNr">1690 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L1691" class="LineNr">1691 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L1692" class="LineNr">1692 </span> <span class="subxS1Comment"># . if (eax != '#') goto next check</span> -<span id="L1693" class="LineNr">1693 </span> 3d/compare-eax-and 0x23/imm32/pound -<span id="L1694" class="LineNr">1694 </span> 75/jump-if-!= $next-word-or-expression:check-for-string-literal/disp8 -<span id="L1695" class="LineNr">1695 </span><span class="Constant">$next-word-or-expression:comment</span>: -<span id="L1696" class="LineNr">1696 </span> <span class="subxComment"># out->end = &line->data[line->write]</span> -<span id="L1697" class="LineNr">1697 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L1698" class="LineNr">1698 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> -<span id="L1699" class="LineNr">1699 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L1700" class="LineNr">1700 </span> <span class="subxComment"># line->read = line->write # skip rest of line</span> -<span id="L1701" class="LineNr">1701 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L1702" class="LineNr">1702 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(esi+4)</span> -<span id="L1703" class="LineNr">1703 </span> <span class="subxComment"># return</span> -<span id="L1704" class="LineNr">1704 </span> eb/jump $next-word-or-expression:end/disp8 -<span id="L1705" class="LineNr">1705 </span><span class="Constant">$next-word-or-expression:check-for-string-literal</span>: -<span id="L1706" class="LineNr">1706 </span> <span class="subxComment"># if (line->data[line->read] != '"') goto next check</span> -<span id="L1707" class="LineNr">1707 </span> 3d/compare-eax-and 0x22/imm32/dquote -<span id="L1708" class="LineNr">1708 </span> 75/jump-if-!= $next-word-or-expression:check-for-expression/disp8 -<span id="L1709" class="LineNr">1709 </span><span class="Constant">$next-word-or-expression:string-literal</span>: -<span id="L1710" class="LineNr">1710 </span> <span class="subxComment"># skip-string(line)</span> -<span id="L1711" class="LineNr">1711 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1712" class="LineNr">1712 </span> 56/push-esi -<span id="L1713" class="LineNr">1713 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1714" class="LineNr">1714 </span> e8/call <a href='../124next-token.subx.html#L1171'>skip-string</a>/disp32 -<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1716" class="LineNr">1716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1717" class="LineNr">1717 </span> <span class="subxComment"># skip rest of word</span> -<span id="L1718" class="LineNr">1718 </span> eb/jump $next-word-or-expression:regular-word/disp8 -<span id="L1719" class="LineNr">1719 </span><span class="Constant">$next-word-or-expression:check-for-expression</span>: -<span id="L1720" class="LineNr">1720 </span> <span class="subxComment"># if (line->data[line->read] != '*') goto next check</span> -<span id="L1721" class="LineNr">1721 </span> 3d/compare-eax-and 0x2a/imm32/asterisk -<span id="L1722" class="LineNr">1722 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 -<span id="L1723" class="LineNr">1723 </span> <span class="subxComment"># if (line->data[line->read + 1] == ' ') goto error1</span> -<span id="L1724" class="LineNr">1724 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xd/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12+1) to AL</span> -<span id="L1725" class="LineNr">1725 </span> 3d/compare-eax-and 0x20/imm32/space -<span id="L1726" class="LineNr">1726 </span> 74/jump-if-= $next-word-or-expression:error1/disp8 -<span id="L1727" class="LineNr">1727 </span> <span class="subxComment"># if (line->data[line->read + 1] != '(') goto regular word</span> -<span id="L1728" class="LineNr">1728 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L1729" class="LineNr">1729 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 -<span id="L1730" class="LineNr">1730 </span><span class="Constant">$next-word-or-expression:paren</span>: -<span id="L1731" class="LineNr">1731 </span> <span class="subxComment"># skip-until-close-paren(line)</span> -<span id="L1732" class="LineNr">1732 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1733" class="LineNr">1733 </span> 56/push-esi -<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1735" class="LineNr">1735 </span> e8/call <a href='../124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 -<span id="L1736" class="LineNr">1736 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1737" class="LineNr">1737 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1738" class="LineNr">1738 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto error2</span> -<span id="L1739" class="LineNr">1739 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> -<span id="L1740" class="LineNr">1740 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L1741" class="LineNr">1741 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> -<span id="L1742" class="LineNr">1742 </span> <span class="subxS1Comment"># . if (eax != ')') goto error2</span> -<span id="L1743" class="LineNr">1743 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L1744" class="LineNr">1744 </span> 75/jump-if-!= $next-word-or-expression:error2/disp8 -<span id="L1745" class="LineNr">1745 </span> <span class="subxComment"># skip ')'</span> -<span id="L1746" class="LineNr">1746 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> -<span id="L1747" class="LineNr">1747 </span> <span class="subxComment"># fall through</span> -<span id="L1748" class="LineNr">1748 </span><span class="Constant">$next-word-or-expression:regular-word</span>: -<span id="L1749" class="LineNr">1749 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line) # including trailing newline</span> -<span id="L1750" class="LineNr">1750 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1751" class="LineNr">1751 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1752" class="LineNr">1752 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1753" class="LineNr">1753 </span> e8/call <a href='../124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 -<span id="L1754" class="LineNr">1754 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1755" class="LineNr">1755 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1756" class="LineNr">1756 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> -<span id="L1757" class="LineNr">1757 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> -<span id="L1758" class="LineNr">1758 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> -<span id="L1759" class="LineNr">1759 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L1760" class="LineNr">1760 </span><span class="Constant">$next-word-or-expression:end</span>: -<span id="L1761" class="LineNr">1761 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1762" class="LineNr">1762 </span> 5f/pop-to-edi -<span id="L1763" class="LineNr">1763 </span> 5e/pop-to-esi -<span id="L1764" class="LineNr">1764 </span> 59/pop-to-ecx -<span id="L1765" class="LineNr">1765 </span> 58/pop-to-eax -<span id="L1766" class="LineNr">1766 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1767" class="LineNr">1767 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1768" class="LineNr">1768 </span> 5d/pop-to-ebp -<span id="L1769" class="LineNr">1769 </span> c3/return -<span id="L1770" class="LineNr">1770 </span> -<span id="L1771" class="LineNr">1771 </span><span class="Constant">$next-word-or-expression:error1</span>: -<span id="L1772" class="LineNr">1772 </span> <span class="subxComment"># print(stderr, "error: no space allowed after '*' in '" line "'")</span> -<span id="L1773" class="LineNr">1773 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no space allowed after '*' in '")</span> -<span id="L1774" class="LineNr">1774 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1775" class="LineNr">1775 </span> 68/push <span class="Constant">"error: no space allowed after '*' in '"</span>/imm32 -<span id="L1776" class="LineNr">1776 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1778" class="LineNr">1778 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1780" class="LineNr">1780 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1781" class="LineNr">1781 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1782" class="LineNr">1782 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1783" class="LineNr">1783 </span> 56/push-esi -<span id="L1784" class="LineNr">1784 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1785" class="LineNr">1785 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1786" class="LineNr">1786 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1787" class="LineNr">1787 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1788" class="LineNr">1788 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1789" class="LineNr">1789 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1790" class="LineNr">1790 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1791" class="LineNr">1791 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1792" class="LineNr">1792 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1793" class="LineNr">1793 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1794" class="LineNr">1794 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1795" class="LineNr">1795 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1796" class="LineNr">1796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1797" class="LineNr">1797 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1798" class="LineNr">1798 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1799" class="LineNr">1799 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1800" class="LineNr">1800 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1801" class="LineNr">1801 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1802" class="LineNr">1802 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1803" class="LineNr">1803 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1804" class="LineNr">1804 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1805" class="LineNr">1805 </span> bb/copy-to-ebx 1/imm32 -<span id="L1806" class="LineNr">1806 </span> e8/call syscall_exit/disp32 -<span id="L1807" class="LineNr">1807 </span> <span class="subxComment"># never gets here</span> -<span id="L1808" class="LineNr">1808 </span> -<span id="L1809" class="LineNr">1809 </span><span class="Constant">$next-word-or-expression:error2</span>: -<span id="L1810" class="LineNr">1810 </span> <span class="subxComment"># print(stderr, "error: *(...) expression must be all on a single line in '" line "'")</span> -<span id="L1811" class="LineNr">1811 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")</span> -<span id="L1812" class="LineNr">1812 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1813" class="LineNr">1813 </span> 68/push <span class="Constant">"error: *(...) expression must be all on a single line in '"</span>/imm32 -<span id="L1814" class="LineNr">1814 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1815" class="LineNr">1815 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1816" class="LineNr">1816 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1817" class="LineNr">1817 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1818" class="LineNr">1818 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1819" class="LineNr">1819 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> -<span id="L1820" class="LineNr">1820 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1821" class="LineNr">1821 </span> 56/push-esi -<span id="L1822" class="LineNr">1822 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1823" class="LineNr">1823 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1824" class="LineNr">1824 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 -<span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1826" class="LineNr">1826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1827" class="LineNr">1827 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> -<span id="L1828" class="LineNr">1828 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1829" class="LineNr">1829 </span> 68/push <span class="Constant">"'"</span>/imm32 -<span id="L1830" class="LineNr">1830 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1832" class="LineNr">1832 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L1833" class="LineNr">1833 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1834" class="LineNr">1834 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1835" class="LineNr">1835 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L1836" class="LineNr">1836 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1837" class="LineNr">1837 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L1838" class="LineNr">1838 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1839" class="LineNr">1839 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L1840" class="LineNr">1840 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1841" class="LineNr">1841 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1842" class="LineNr">1842 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L1843" class="LineNr">1843 </span> bb/copy-to-ebx 1/imm32 -<span id="L1844" class="LineNr">1844 </span> e8/call syscall_exit/disp32 -<span id="L1845" class="LineNr">1845 </span> <span class="subxComment"># never gets here</span> -<span id="L1846" class="LineNr">1846 </span> -<span id="L1847" class="LineNr">1847 </span><span class="subxTest">test-next-word-or-expression</span>: -<span id="L1848" class="LineNr">1848 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1849" class="LineNr">1849 </span> 55/push-ebp -<span id="L1850" class="LineNr">1850 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1851" class="LineNr">1851 </span> <span class="subxComment"># setup</span> -<span id="L1852" class="LineNr">1852 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1853" class="LineNr">1853 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1854" class="LineNr">1854 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1855" class="LineNr">1855 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1856" class="LineNr">1856 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1857" class="LineNr">1857 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1858" class="LineNr">1858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1859" class="LineNr">1859 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1860" class="LineNr">1860 </span> 68/push 0/imm32/end -<span id="L1861" class="LineNr">1861 </span> 68/push 0/imm32/start -<span id="L1862" class="LineNr">1862 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1863" class="LineNr">1863 </span> <span class="subxComment"># write(_test-input-stream, " ab")</span> -<span id="L1864" class="LineNr">1864 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1865" class="LineNr">1865 </span> 68/push <span class="Constant">" ab"</span>/imm32 -<span id="L1866" class="LineNr">1866 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1867" class="LineNr">1867 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1868" class="LineNr">1868 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1869" class="LineNr">1869 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1870" class="LineNr">1870 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1871" class="LineNr">1871 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L1872" class="LineNr">1872 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1873" class="LineNr">1873 </span> 51/push-ecx -<span id="L1874" class="LineNr">1874 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1875" class="LineNr">1875 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1876" class="LineNr">1876 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 -<span id="L1877" class="LineNr">1877 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1878" class="LineNr">1878 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1879" class="LineNr">1879 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 4, msg)</span> -<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1881" class="LineNr">1881 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1847'>test-next-word-or-expression</a>/updates-stream-read-correctly"</span>/imm32 -<span id="L1882" class="LineNr">1882 </span> 68/push 4/imm32 -<span id="L1883" class="LineNr">1883 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1884" class="LineNr">1884 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1886" class="LineNr">1886 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1887" class="LineNr">1887 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1888" class="LineNr">1888 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1889" class="LineNr">1889 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> -<span id="L1890" class="LineNr">1890 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> -<span id="L1891" class="LineNr">1891 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1892" class="LineNr">1892 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1847'>test-next-word-or-expression</a>: start"</span>/imm32 -<span id="L1893" class="LineNr">1893 </span> 68/push 0xe/imm32 -<span id="L1894" class="LineNr">1894 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1895" class="LineNr">1895 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L1896" class="LineNr">1896 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1897" class="LineNr">1897 </span> 50/push-eax -<span id="L1898" class="LineNr">1898 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1899" class="LineNr">1899 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1900" class="LineNr">1900 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1901" class="LineNr">1901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1902" class="LineNr">1902 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> -<span id="L1903" class="LineNr">1903 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, msg)</span> -<span id="L1904" class="LineNr">1904 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1905" class="LineNr">1905 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1847'>test-next-word-or-expression</a>: end"</span>/imm32 -<span id="L1906" class="LineNr">1906 </span> 68/push 0x10/imm32 -<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1908" class="LineNr">1908 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L1909" class="LineNr">1909 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1910" class="LineNr">1910 </span> 50/push-eax -<span id="L1911" class="LineNr">1911 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1912" class="LineNr">1912 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1913" class="LineNr">1913 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1914" class="LineNr">1914 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1915" class="LineNr">1915 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1916" class="LineNr">1916 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1917" class="LineNr">1917 </span> 5d/pop-to-ebp -<span id="L1918" class="LineNr">1918 </span> c3/return -<span id="L1919" class="LineNr">1919 </span> -<span id="L1920" class="LineNr">1920 </span><span class="subxTest">test-next-word-or-expression-returns-whole-comment</span>: -<span id="L1921" class="LineNr">1921 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1922" class="LineNr">1922 </span> 55/push-ebp -<span id="L1923" class="LineNr">1923 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1924" class="LineNr">1924 </span> <span class="subxComment"># setup</span> -<span id="L1925" class="LineNr">1925 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1926" class="LineNr">1926 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1927" class="LineNr">1927 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1928" class="LineNr">1928 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1929" class="LineNr">1929 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1930" class="LineNr">1930 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1931" class="LineNr">1931 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1932" class="LineNr">1932 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L1933" class="LineNr">1933 </span> 68/push 0/imm32/end -<span id="L1934" class="LineNr">1934 </span> 68/push 0/imm32/start -<span id="L1935" class="LineNr">1935 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1936" class="LineNr">1936 </span> <span class="subxComment"># write(_test-input-stream, " # a")</span> -<span id="L1937" class="LineNr">1937 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1938" class="LineNr">1938 </span> 68/push <span class="Constant">" # a"</span>/imm32 -<span id="L1939" class="LineNr">1939 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1940" class="LineNr">1940 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1941" class="LineNr">1941 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L1942" class="LineNr">1942 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1943" class="LineNr">1943 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1944" class="LineNr">1944 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L1945" class="LineNr">1945 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1946" class="LineNr">1946 </span> 51/push-ecx -<span id="L1947" class="LineNr">1947 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1948" class="LineNr">1948 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1949" class="LineNr">1949 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 -<span id="L1950" class="LineNr">1950 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1951" class="LineNr">1951 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1952" class="LineNr">1952 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 5, msg)</span> -<span id="L1953" class="LineNr">1953 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1954" class="LineNr">1954 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1920'>test-next-word-or-expression-returns-whole-comment</a>/updates-stream-read-correctly"</span>/imm32 -<span id="L1955" class="LineNr">1955 </span> 68/push 5/imm32 -<span id="L1956" class="LineNr">1956 </span> b8/copy-to-eax <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1957" class="LineNr">1957 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> -<span id="L1958" class="LineNr">1958 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1959" class="LineNr">1959 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1960" class="LineNr">1960 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1961" class="LineNr">1961 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1962" class="LineNr">1962 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> -<span id="L1963" class="LineNr">1963 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> -<span id="L1964" class="LineNr">1964 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1965" class="LineNr">1965 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1920'>test-next-word-or-expression-returns-whole-comment</a>: start"</span>/imm32 -<span id="L1966" class="LineNr">1966 </span> 68/push 0xe/imm32 -<span id="L1967" class="LineNr">1967 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L1968" class="LineNr">1968 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L1969" class="LineNr">1969 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1970" class="LineNr">1970 </span> 50/push-eax -<span id="L1971" class="LineNr">1971 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1972" class="LineNr">1972 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1973" class="LineNr">1973 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1974" class="LineNr">1974 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1975" class="LineNr">1975 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 5, msg)</span> -<span id="L1976" class="LineNr">1976 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 17, msg)</span> -<span id="L1977" class="LineNr">1977 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1978" class="LineNr">1978 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1920'>test-next-word-or-expression-returns-whole-comment</a>: end"</span>/imm32 -<span id="L1979" class="LineNr">1979 </span> 68/push 0x11/imm32 -<span id="L1980" class="LineNr">1980 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L1981" class="LineNr">1981 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L1982" class="LineNr">1982 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L1983" class="LineNr">1983 </span> 50/push-eax -<span id="L1984" class="LineNr">1984 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1985" class="LineNr">1985 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1986" class="LineNr">1986 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1987" class="LineNr">1987 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1988" class="LineNr">1988 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1989" class="LineNr">1989 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1990" class="LineNr">1990 </span> 5d/pop-to-ebp -<span id="L1991" class="LineNr">1991 </span> c3/return -<span id="L1992" class="LineNr">1992 </span> -<span id="L1993" class="LineNr">1993 </span><span class="subxTest">test-next-word-or-expression-returns-empty-slice-on-eof</span>: -<span id="L1994" class="LineNr">1994 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1995" class="LineNr">1995 </span> 55/push-ebp -<span id="L1996" class="LineNr">1996 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1997" class="LineNr">1997 </span> <span class="subxComment"># setup</span> -<span id="L1998" class="LineNr">1998 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L1999" class="LineNr">1999 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2000" class="LineNr">2000 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2001" class="LineNr">2001 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2002" class="LineNr">2002 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2003" class="LineNr">2003 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2004" class="LineNr">2004 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2005" class="LineNr">2005 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2006" class="LineNr">2006 </span> 68/push 0/imm32/end -<span id="L2007" class="LineNr">2007 </span> 68/push 0/imm32/start -<span id="L2008" class="LineNr">2008 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2009" class="LineNr">2009 </span> <span class="subxComment"># write nothing to _test-input-stream</span> -<span id="L2010" class="LineNr">2010 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2011" class="LineNr">2011 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2012" class="LineNr">2012 </span> 51/push-ecx -<span id="L2013" class="LineNr">2013 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2014" class="LineNr">2014 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2015" class="LineNr">2015 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 -<span id="L2016" class="LineNr">2016 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2017" class="LineNr">2017 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2018" class="LineNr">2018 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> -<span id="L2019" class="LineNr">2019 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2020" class="LineNr">2020 </span> 68/push <span class="Constant">"F - test-next-word-or-expression-returns-empty-expression-on-eof"</span>/imm32 -<span id="L2021" class="LineNr">2021 </span> 68/push 0/imm32 -<span id="L2022" class="LineNr">2022 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> -<span id="L2023" class="LineNr">2023 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L2024" class="LineNr">2024 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> -<span id="L2025" class="LineNr">2025 </span> 50/push-eax -<span id="L2026" class="LineNr">2026 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2027" class="LineNr">2027 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2028" class="LineNr">2028 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2029" class="LineNr">2029 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2030" class="LineNr">2030 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2031" class="LineNr">2031 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2032" class="LineNr">2032 </span> 5d/pop-to-ebp -<span id="L2033" class="LineNr">2033 </span> c3/return -<span id="L2034" class="LineNr">2034 </span> -<span id="L2035" class="LineNr">2035 </span><span class="subxTest">test-next-word-or-expression-returns-string-literal</span>: -<span id="L2036" class="LineNr">2036 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2037" class="LineNr">2037 </span> 55/push-ebp -<span id="L2038" class="LineNr">2038 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2039" class="LineNr">2039 </span> <span class="subxComment"># setup</span> -<span id="L2040" class="LineNr">2040 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2041" class="LineNr">2041 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2042" class="LineNr">2042 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2043" class="LineNr">2043 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2044" class="LineNr">2044 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2045" class="LineNr">2045 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2046" class="LineNr">2046 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2047" class="LineNr">2047 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2048" class="LineNr">2048 </span> 68/push 0/imm32/end -<span id="L2049" class="LineNr">2049 </span> 68/push 0/imm32/start -<span id="L2050" class="LineNr">2050 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2051" class="LineNr">2051 </span> <span class="subxComment"># write(_test-input-stream, " \"a b\"/imm32 ")</span> -<span id="L2052" class="LineNr">2052 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2053" class="LineNr">2053 </span> 68/push <span class="Constant">" \"</span>a b\<span class="Constant">"/imm32 "</span>/imm32 -<span id="L2054" class="LineNr">2054 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2055" class="LineNr">2055 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2056" class="LineNr">2056 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2057" class="LineNr">2057 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2058" class="LineNr">2058 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2059" class="LineNr">2059 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2060" class="LineNr">2060 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2061" class="LineNr">2061 </span> 51/push-ecx -<span id="L2062" class="LineNr">2062 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2063" class="LineNr">2063 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2064" class="LineNr">2064 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 -<span id="L2065" class="LineNr">2065 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2066" class="LineNr">2066 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2067" class="LineNr">2067 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L2068" class="LineNr">2068 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L2069" class="LineNr">2069 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2070" class="LineNr">2070 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2035'>test-next-word-or-expression-returns-string-literal</a>: start"</span>/imm32 -<span id="L2071" class="LineNr">2071 </span> 68/push 0xd/imm32 -<span id="L2072" class="LineNr">2072 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L2073" class="LineNr">2073 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L2074" class="LineNr">2074 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2075" class="LineNr">2075 </span> 50/push-eax -<span id="L2076" class="LineNr">2076 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2077" class="LineNr">2077 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2078" class="LineNr">2078 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2079" class="LineNr">2079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2080" class="LineNr">2080 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 12, msg)</span> -<span id="L2081" class="LineNr">2081 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 24, msg)</span> -<span id="L2082" class="LineNr">2082 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2083" class="LineNr">2083 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2035'>test-next-word-or-expression-returns-string-literal</a>: end"</span>/imm32 -<span id="L2084" class="LineNr">2084 </span> 68/push 0x18/imm32 -<span id="L2085" class="LineNr">2085 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L2086" class="LineNr">2086 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L2087" class="LineNr">2087 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2088" class="LineNr">2088 </span> 50/push-eax -<span id="L2089" class="LineNr">2089 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2090" class="LineNr">2090 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2092" class="LineNr">2092 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2093" class="LineNr">2093 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2094" class="LineNr">2094 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2095" class="LineNr">2095 </span> 5d/pop-to-ebp -<span id="L2096" class="LineNr">2096 </span> c3/return -<span id="L2097" class="LineNr">2097 </span> -<span id="L2098" class="LineNr">2098 </span><span class="subxTest">test-next-word-or-expression-returns-string-with-escapes</span>: -<span id="L2099" class="LineNr">2099 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2100" class="LineNr">2100 </span> 55/push-ebp -<span id="L2101" class="LineNr">2101 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2102" class="LineNr">2102 </span> <span class="subxComment"># setup</span> -<span id="L2103" class="LineNr">2103 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2104" class="LineNr">2104 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2105" class="LineNr">2105 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2106" class="LineNr">2106 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2107" class="LineNr">2107 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2108" class="LineNr">2108 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2109" class="LineNr">2109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2110" class="LineNr">2110 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2111" class="LineNr">2111 </span> 68/push 0/imm32/end -<span id="L2112" class="LineNr">2112 </span> 68/push 0/imm32/start -<span id="L2113" class="LineNr">2113 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2114" class="LineNr">2114 </span> <span class="subxComment"># write(_test-input-stream, " \"a\\\"b\"/x")</span> -<span id="L2115" class="LineNr">2115 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2116" class="LineNr">2116 </span> 68/push <span class="Constant">" \"</span>a\\\<span class="Constant">"b\"</span>/x"/imm32 -<span id="L2117" class="LineNr">2117 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2118" class="LineNr">2118 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2119" class="LineNr">2119 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2120" class="LineNr">2120 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2121" class="LineNr">2121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2122" class="LineNr">2122 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2123" class="LineNr">2123 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2124" class="LineNr">2124 </span> 51/push-ecx -<span id="L2125" class="LineNr">2125 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2126" class="LineNr">2126 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2127" class="LineNr">2127 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 -<span id="L2128" class="LineNr">2128 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2129" class="LineNr">2129 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2130" class="LineNr">2130 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L2131" class="LineNr">2131 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L2132" class="LineNr">2132 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2133" class="LineNr">2133 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2098'>test-next-word-or-expression-returns-string-with-escapes</a>: start"</span>/imm32 -<span id="L2134" class="LineNr">2134 </span> 68/push 0xd/imm32 -<span id="L2135" class="LineNr">2135 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L2136" class="LineNr">2136 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L2137" class="LineNr">2137 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2138" class="LineNr">2138 </span> 50/push-eax -<span id="L2139" class="LineNr">2139 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2140" class="LineNr">2140 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2141" class="LineNr">2141 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2142" class="LineNr">2142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2143" class="LineNr">2143 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 9, msg)</span> -<span id="L2144" class="LineNr">2144 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 21, msg)</span> -<span id="L2145" class="LineNr">2145 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2146" class="LineNr">2146 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2098'>test-next-word-or-expression-returns-string-with-escapes</a>: end"</span>/imm32 -<span id="L2147" class="LineNr">2147 </span> 68/push 0x15/imm32 -<span id="L2148" class="LineNr">2148 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L2149" class="LineNr">2149 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L2150" class="LineNr">2150 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2151" class="LineNr">2151 </span> 50/push-eax -<span id="L2152" class="LineNr">2152 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2153" class="LineNr">2153 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2154" class="LineNr">2154 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2155" class="LineNr">2155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2156" class="LineNr">2156 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2157" class="LineNr">2157 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2158" class="LineNr">2158 </span> 5d/pop-to-ebp -<span id="L2159" class="LineNr">2159 </span> c3/return -<span id="L2160" class="LineNr">2160 </span> -<span id="L2161" class="LineNr">2161 </span><span class="subxTest">test-next-word-or-expression-returns-whole-expression</span>: -<span id="L2162" class="LineNr">2162 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2163" class="LineNr">2163 </span> 55/push-ebp -<span id="L2164" class="LineNr">2164 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2165" class="LineNr">2165 </span> <span class="subxComment"># setup</span> -<span id="L2166" class="LineNr">2166 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2167" class="LineNr">2167 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2168" class="LineNr">2168 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2169" class="LineNr">2169 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2170" class="LineNr">2170 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2171" class="LineNr">2171 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2172" class="LineNr">2172 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2173" class="LineNr">2173 </span> <span class="subxComment"># var slice/ecx: slice</span> -<span id="L2174" class="LineNr">2174 </span> 68/push 0/imm32/end -<span id="L2175" class="LineNr">2175 </span> 68/push 0/imm32/start -<span id="L2176" class="LineNr">2176 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2177" class="LineNr">2177 </span> <span class="subxComment"># write(_test-input-stream, " *(a b)/imm32 ")</span> -<span id="L2178" class="LineNr">2178 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2179" class="LineNr">2179 </span> 68/push <span class="Constant">" *(a b)/imm32 "</span>/imm32 -<span id="L2180" class="LineNr">2180 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2181" class="LineNr">2181 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2182" class="LineNr">2182 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2183" class="LineNr">2183 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2184" class="LineNr">2184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2185" class="LineNr">2185 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> -<span id="L2186" class="LineNr">2186 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2187" class="LineNr">2187 </span> 51/push-ecx -<span id="L2188" class="LineNr">2188 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2189" class="LineNr">2189 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2190" class="LineNr">2190 </span> e8/call <a href='sigils.subx.html#L1626'>next-word-or-expression</a>/disp32 -<span id="L2191" class="LineNr">2191 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2192" class="LineNr">2192 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2193" class="LineNr">2193 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> -<span id="L2194" class="LineNr">2194 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> -<span id="L2195" class="LineNr">2195 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2196" class="LineNr">2196 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2161'>test-next-word-or-expression-returns-whole-expression</a>: start"</span>/imm32 -<span id="L2197" class="LineNr">2197 </span> 68/push 0xd/imm32 -<span id="L2198" class="LineNr">2198 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> -<span id="L2199" class="LineNr">2199 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L2200" class="LineNr">2200 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2201" class="LineNr">2201 </span> 50/push-eax -<span id="L2202" class="LineNr">2202 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2203" class="LineNr">2203 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2204" class="LineNr">2204 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2205" class="LineNr">2205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2206" class="LineNr">2206 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 13, msg)</span> -<span id="L2207" class="LineNr">2207 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 25, msg)</span> -<span id="L2208" class="LineNr">2208 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2209" class="LineNr">2209 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2161'>test-next-word-or-expression-returns-whole-expression</a>: end"</span>/imm32 -<span id="L2210" class="LineNr">2210 </span> 68/push 0x19/imm32 -<span id="L2211" class="LineNr">2211 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> -<span id="L2212" class="LineNr">2212 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> -<span id="L2213" class="LineNr">2213 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> -<span id="L2214" class="LineNr">2214 </span> 50/push-eax -<span id="L2215" class="LineNr">2215 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2216" class="LineNr">2216 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2217" class="LineNr">2217 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2218" class="LineNr">2218 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2219" class="LineNr">2219 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2220" class="LineNr">2220 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2221" class="LineNr">2221 </span> 5d/pop-to-ebp -<span id="L2222" class="LineNr">2222 </span> c3/return -<span id="L2223" class="LineNr">2223 </span> -<span id="L2224" class="LineNr">2224 </span><span class="subxComment"># Grammar:</span> -<span id="L2225" class="LineNr">2225 </span><span class="subxComment"># *reg -> 0/mod reg/rm32</span> -<span id="L2226" class="LineNr">2226 </span><span class="subxComment"># *(reg) -> 0/mod reg/rm32</span> -<span id="L2227" class="LineNr">2227 </span><span class="subxComment"># *(reg+disp) -> 2/mod reg/rm32 disp/disp32</span> -<span id="L2228" class="LineNr">2228 </span><span class="subxComment"># *(reg1+reg2<<s) -> 2/mod 4/rm32 reg1/base reg2/index s/scale 0/disp32</span> -<span id="L2229" class="LineNr">2229 </span><span class="subxComment"># *(reg1+reg2<<s+disp) -> 2/mod 4/rm32 reg1/base reg2/index s/scale disp/disp32</span> -<span id="L2230" class="LineNr">2230 </span><span class="subxComment"># Intermediate structure: base, index, scale, disp</span> -<span id="L2231" class="LineNr">2231 </span><span class="subxComment"># Default values: base: 0, index: 4 (none), scale: 0, disp: 0</span> -<span id="L2232" class="LineNr">2232 </span><span class="subxFunction">parse-effective-address</span>: <span class="subxComment"># word-slice: (addr slice) -> base/eax, index/ecx, scale/edx, disp/ebx</span> -<span id="L2233" class="LineNr">2233 </span> <span class="subxComment"># pseudocode:</span> -<span id="L2234" class="LineNr">2234 </span> <span class="subxComment"># var local-slice = {word-slice->start, word-slice->end}</span> -<span id="L2235" class="LineNr">2235 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L2236" class="LineNr">2236 </span> <span class="subxComment"># initialize defaults: base=0, index=4, scale=0, disp=0</span> -<span id="L2237" class="LineNr">2237 </span> <span class="subxComment"># if (*local-slice->start != '(') {</span> -<span id="L2238" class="LineNr">2238 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L2239" class="LineNr">2239 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L2240" class="LineNr">2240 </span> <span class="subxComment"># return</span> -<span id="L2241" class="LineNr">2241 </span> <span class="subxComment"># }</span> -<span id="L2242" class="LineNr">2242 </span> <span class="subxComment"># # compound expressions</span> -<span id="L2243" class="LineNr">2243 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2244" class="LineNr">2244 </span> <span class="subxComment"># read register into base</span> +<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># TODO: *(Foo+ecx<<2)</span> +<span id="L38" class="LineNr"> 38 </span><span class="subxComment">#</span> +<span id="L39" class="LineNr"> 39 </span><span class="subxComment"># Addition isn't commutative here. Template must always be (base+index<<scale+disp),</span> +<span id="L40" class="LineNr"> 40 </span><span class="subxComment"># though some components are optional as described above.</span> +<span id="L41" class="LineNr"> 41 </span><span class="subxComment"># In particular, global variables like 'Foo' above don't support displacement</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxComment"># or index or scale.</span> +<span id="L43" class="LineNr"> 43 </span><span class="subxComment">#</span> +<span id="L44" class="LineNr"> 44 </span><span class="subxComment"># No metadata allowed inside '*(...)'.</span> +<span id="L45" class="LineNr"> 45 </span><span class="subxComment"># Whitespace inside '*(...)' is ok. But not immediately after the '*' or '%'.</span> +<span id="L46" class="LineNr"> 46 </span><span class="subxComment"># We don't support conversions to floating-point registers. In particular, so</span> +<span id="L47" class="LineNr"> 47 </span><span class="subxComment"># far there's no %xmm1.</span> +<span id="L48" class="LineNr"> 48 </span><span class="subxComment">#</span> +<span id="L49" class="LineNr"> 49 </span><span class="subxComment"># The code generated is sub-optimal:</span> +<span id="L50" class="LineNr"> 50 </span><span class="subxComment"># - displacements are always disp32, even when disp8 will do</span> +<span id="L51" class="LineNr"> 51 </span><span class="subxComment"># - *(...esp...) always uses SIB arguments even when redundant</span> +<span id="L52" class="LineNr"> 52 </span> +<span id="L53" class="LineNr"> 53 </span>== code +<span id="L54" class="LineNr"> 54 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L55" class="LineNr"> 55 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L56" class="LineNr"> 56 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L57" class="LineNr"> 57 </span> +<span id="L58" class="LineNr"> 58 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> +<span id="L59" class="LineNr"> 59 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L60" class="LineNr"> 60 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L61" class="LineNr"> 61 </span> +<span id="L62" class="LineNr"> 62 </span> <span class="subxComment"># initialize heap</span> +<span id="L63" class="LineNr"> 63 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L65" class="LineNr"> 65 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L66" class="LineNr"> 66 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L67" class="LineNr"> 67 </span> <span class="subxS2Comment"># . . call</span> +<span id="L68" class="LineNr"> 68 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L69" class="LineNr"> 69 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L70" class="LineNr"> 70 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L71" class="LineNr"> 71 </span> +<span id="L72" class="LineNr"> 72 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> +<span id="L74" class="LineNr"> 74 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> +<span id="L75" class="LineNr"> 75 </span> 7e/jump-if-<= $subx-sigils-main:interactive/disp8 +<span id="L76" class="LineNr"> 76 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> +<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> +<span id="L78" class="LineNr"> 78 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L79" class="LineNr"> 79 </span> 68/push <span class="Constant">"test"</span>/imm32 +<span id="L80" class="LineNr"> 80 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L81" class="LineNr"> 81 </span> <span class="subxS2Comment"># . . call</span> +<span id="L82" class="LineNr"> 82 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L83" class="LineNr"> 83 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L84" class="LineNr"> 84 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L85" class="LineNr"> 85 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> +<span id="L86" class="LineNr"> 86 </span> 3d/compare-eax-and 0/imm32/false +<span id="L87" class="LineNr"> 87 </span> 74/jump-if-= $subx-sigils-main:interactive/disp8 +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># run-tests()</span> +<span id="L89" class="LineNr"> 89 </span> e8/call run-tests/disp32 +<span id="L90" class="LineNr"> 90 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L91" class="LineNr"> 91 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L92" class="LineNr"> 92 </span> eb/jump $subx-sigils-main:end/disp8 +<span id="L93" class="LineNr"> 93 </span><span class="Constant">$subx-sigils-main:interactive</span>: +<span id="L94" class="LineNr"> 94 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> +<span id="L95" class="LineNr"> 95 </span> <span class="subxComment"># subx-sigils(Stdin, Stdout)</span> +<span id="L96" class="LineNr"> 96 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L97" class="LineNr"> 97 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L98" class="LineNr"> 98 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L99" class="LineNr"> 99 </span> <span class="subxS2Comment"># . . call</span> +<span id="L100" class="LineNr"> 100 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L101" class="LineNr"> 101 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L102" class="LineNr"> 102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L104" class="LineNr"> 104 </span> bb/copy-to-ebx 0/imm32 +<span id="L105" class="LineNr"> 105 </span><span class="Constant">$subx-sigils-main:end</span>: +<span id="L106" class="LineNr"> 106 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L107" class="LineNr"> 107 </span> +<span id="L108" class="LineNr"> 108 </span><span class="subxComment"># error messages considered:</span> +<span id="L109" class="LineNr"> 109 </span><span class="subxComment"># *x + 34 -> error: base+disp addressing must be within '()'</span> +<span id="L110" class="LineNr"> 110 </span><span class="subxFunction">subx-sigils</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> +<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># pseudocode:</span> +<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L113" class="LineNr"> 113 </span> <span class="subxComment"># while true</span> +<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L117" class="LineNr"> 117 </span> <span class="subxComment"># while true</span> +<span id="L118" class="LineNr"> 118 </span> <span class="subxComment"># var word-slice = next-word-or-expression(line)</span> +<span id="L119" class="LineNr"> 119 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L120" class="LineNr"> 120 </span> <span class="subxComment"># break</span> +<span id="L121" class="LineNr"> 121 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L122" class="LineNr"> 122 </span> <span class="subxComment"># continue</span> +<span id="L123" class="LineNr"> 123 </span> <span class="subxComment"># if slice-starts-with?(word-slice, '%') # direct mode</span> +<span id="L124" class="LineNr"> 124 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> +<span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '*') # indirect mode</span> +<span id="L126" class="LineNr"> 126 </span> <span class="subxComment"># if disp32-mode?(word-slice)</span> +<span id="L127" class="LineNr"> 127 </span> <span class="subxComment"># emit-indirect-disp32(out, word-slice)</span> +<span id="L128" class="LineNr"> 128 </span> <span class="subxComment"># else</span> +<span id="L129" class="LineNr"> 129 </span> <span class="subxComment"># base, index, scale, disp = parse-effective-address(word-slice)</span> +<span id="L130" class="LineNr"> 130 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> +<span id="L131" class="LineNr"> 131 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, '+')</span> +<span id="L132" class="LineNr"> 132 </span> <span class="subxComment"># abort("'+' only permitted within '*(...)'")</span> +<span id="L133" class="LineNr"> 133 </span> <span class="subxComment"># else</span> +<span id="L134" class="LineNr"> 134 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L135" class="LineNr"> 135 </span> <span class="subxComment"># write(out, " ")</span> +<span id="L136" class="LineNr"> 136 </span> <span class="subxComment"># write(out, "\n")</span> +<span id="L137" class="LineNr"> 137 </span> <span class="subxComment"># flush(out)</span> +<span id="L138" class="LineNr"> 138 </span> <span class="subxComment">#</span> +<span id="L139" class="LineNr"> 139 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L140" class="LineNr"> 140 </span> 55/push-ebp +<span id="L141" class="LineNr"> 141 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L142" class="LineNr"> 142 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L143" class="LineNr"> 143 </span> 50/push-eax +<span id="L144" class="LineNr"> 144 </span> 51/push-ecx +<span id="L145" class="LineNr"> 145 </span> 52/push-edx +<span id="L146" class="LineNr"> 146 </span> 53/push-ebx +<span id="L147" class="LineNr"> 147 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L148" class="LineNr"> 148 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L149" class="LineNr"> 149 </span> 68/push 0x200/imm32/length +<span id="L150" class="LineNr"> 150 </span> 68/push 0/imm32/read +<span id="L151" class="LineNr"> 151 </span> 68/push 0/imm32/write +<span id="L152" class="LineNr"> 152 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L153" class="LineNr"> 153 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L154" class="LineNr"> 154 </span> 68/push 0/imm32/end +<span id="L155" class="LineNr"> 155 </span> 68/push 0/imm32/start +<span id="L156" class="LineNr"> 156 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L157" class="LineNr"> 157 </span><span class="Constant">$subx-sigils:line-loop</span>: +<span id="L158" class="LineNr"> 158 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L159" class="LineNr"> 159 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L160" class="LineNr"> 160 </span> 51/push-ecx +<span id="L161" class="LineNr"> 161 </span> <span class="subxS2Comment"># . . call</span> +<span id="L162" class="LineNr"> 162 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L163" class="LineNr"> 163 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L164" class="LineNr"> 164 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L165" class="LineNr"> 165 </span> <span class="subxComment"># read-line-buffered(in, line)</span> +<span id="L166" class="LineNr"> 166 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L167" class="LineNr"> 167 </span> 51/push-ecx +<span id="L168" class="LineNr"> 168 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L169" class="LineNr"> 169 </span> <span class="subxS2Comment"># . . call</span> +<span id="L170" class="LineNr"> 170 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L171" class="LineNr"> 171 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L172" class="LineNr"> 172 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L173" class="LineNr"> 173 </span><span class="Constant">$subx-sigils:check0</span>: +<span id="L174" class="LineNr"> 174 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L175" class="LineNr"> 175 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> +<span id="L176" class="LineNr"> 176 </span> 0f 84/jump-if-= $subx-sigils:<span class="Constant">break</span>/disp32 +<span id="L177" class="LineNr"> 177 </span><span class="Constant">$subx-sigils:word-loop</span>: +<span id="L178" class="LineNr"> 178 </span> <span class="subxComment"># next-word-or-expression(line, word-slice)</span> +<span id="L179" class="LineNr"> 179 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L180" class="LineNr"> 180 </span> 52/push-edx +<span id="L181" class="LineNr"> 181 </span> 51/push-ecx +<span id="L182" class="LineNr"> 182 </span> <span class="subxS2Comment"># . . call</span> +<span id="L183" class="LineNr"> 183 </span> e8/call <a href='sigils.subx.html#L1628'>next-word-or-expression</a>/disp32 +<span id="L184" class="LineNr"> 184 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L185" class="LineNr"> 185 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L186" class="LineNr"> 186 </span><span class="Constant">$subx-sigils:check1</span>: +<span id="L187" class="LineNr"> 187 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L188" class="LineNr"> 188 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L190" class="LineNr"> 190 </span> 52/push-edx +<span id="L191" class="LineNr"> 191 </span> <span class="subxS2Comment"># . . call</span> +<span id="L192" class="LineNr"> 192 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L193" class="LineNr"> 193 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L194" class="LineNr"> 194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L195" class="LineNr"> 195 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L196" class="LineNr"> 196 </span> 3d/compare-eax-and 0/imm32/false +<span id="L197" class="LineNr"> 197 </span> 0f 85/jump-if-!= $subx-sigils:next-line/disp32 +<span id="L198" class="LineNr"> 198 </span><span class="Constant">$subx-sigils:check-for-comment</span>: +<span id="L199" class="LineNr"> 199 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) continue</span> +<span id="L200" class="LineNr"> 200 </span> <span class="subxS1Comment"># . start/ebx = word-slice->start</span> +<span id="L201" class="LineNr"> 201 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> +<span id="L202" class="LineNr"> 202 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L203" class="LineNr"> 203 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L204" class="LineNr"> 204 </span> 8a/copy-byte 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ebx to AL</span> +<span id="L205" class="LineNr"> 205 </span> <span class="subxS1Comment"># . if (eax == '#') continue</span> +<span id="L206" class="LineNr"> 206 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L207" class="LineNr"> 207 </span> 74/jump-if-= $subx-sigils:word-loop/disp8 +<span id="L208" class="LineNr"> 208 </span><span class="Constant">$subx-sigils:check-for-direct-mode</span>: +<span id="L209" class="LineNr"> 209 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "%")) goto next check</span> +<span id="L210" class="LineNr"> 210 </span> 3d/compare-eax-and 0x25/imm32/percent +<span id="L211" class="LineNr"> 211 </span> 75/jump-if-!= $subx-sigils:check-for-indirect-mode/disp8 +<span id="L212" class="LineNr"> 212 </span><span class="Constant">$subx-sigils:direct-mode</span>: +<span id="L213" class="Folded"> 213 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L253" class="LineNr"> 253 </span> <span class="subxComment"># emit-direct-mode(out, word-slice)</span> +<span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L255" class="LineNr"> 255 </span> 52/push-edx +<span id="L256" class="LineNr"> 256 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L257" class="LineNr"> 257 </span> <span class="subxS2Comment"># . . call</span> +<span id="L258" class="LineNr"> 258 </span> e8/call <a href='sigils.subx.html#L1364'>emit-direct-mode</a>/disp32 +<span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L260" class="LineNr"> 260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L261" class="LineNr"> 261 </span> <span class="subxComment"># continue</span> +<span id="L262" class="LineNr"> 262 </span> e9/jump $subx-sigils:<a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L263" class="LineNr"> 263 </span><span class="Constant">$subx-sigils:check-for-indirect-mode</span>: +<span id="L264" class="LineNr"> 264 </span> <span class="subxComment"># if (!slice-starts-with?(word-slice, "*")) goto next check</span> +<span id="L265" class="LineNr"> 265 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L266" class="LineNr"> 266 </span> 75/jump-if-!= $subx-sigils:check-for-invalid-addition/disp8 +<span id="L267" class="LineNr"> 267 </span> <span class="subxComment"># if (!disp32-mode?(word-slice)) goto indirect mode</span> +<span id="L268" class="LineNr"> 268 </span> <span class="subxS1Comment"># . eax = disp32-mode?(word-slice)</span> +<span id="L269" class="LineNr"> 269 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L270" class="LineNr"> 270 </span> 52/push-edx +<span id="L271" class="LineNr"> 271 </span> <span class="subxS2Comment"># . . call</span> +<span id="L272" class="LineNr"> 272 </span> e8/call <a href='sigils.subx.html#L3881'>disp32-mode?</a>/disp32 +<span id="L273" class="LineNr"> 273 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L274" class="LineNr"> 274 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L275" class="LineNr"> 275 </span> <span class="subxS1Comment"># . if (eax == false) goto indirect mode</span> +<span id="L276" class="LineNr"> 276 </span> 3d/compare-eax-and 0/imm32/false +<span id="L277" class="LineNr"> 277 </span> 74/jump-if-= $subx-sigils:indirect-mode/disp8 +<span id="L278" class="LineNr"> 278 </span><span class="Constant">$subx-sigils:disp32-mode</span>: +<span id="L279" class="LineNr"> 279 </span> <span class="subxComment"># emit-indirect-mode(out, word-slice)</span> +<span id="L280" class="LineNr"> 280 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L281" class="LineNr"> 281 </span> 52/push-edx +<span id="L282" class="LineNr"> 282 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L283" class="LineNr"> 283 </span> <span class="subxS2Comment"># . . call</span> +<span id="L284" class="LineNr"> 284 </span> e8/call <a href='sigils.subx.html#L3940'>emit-indirect-disp32</a>/disp32 +<span id="L285" class="LineNr"> 285 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L286" class="LineNr"> 286 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L287" class="LineNr"> 287 </span> <span class="subxComment"># continue</span> +<span id="L288" class="LineNr"> 288 </span> e9/jump $subx-sigils:<a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L289" class="LineNr"> 289 </span><span class="Constant">$subx-sigils:indirect-mode</span>: +<span id="L290" class="LineNr"> 290 </span> <span class="subxComment"># spill registers</span> +<span id="L291" class="LineNr"> 291 </span> 50/push-eax +<span id="L292" class="LineNr"> 292 </span> 51/push-ecx +<span id="L293" class="LineNr"> 293 </span> 52/push-edx +<span id="L294" class="LineNr"> 294 </span> 53/push-ebx +<span id="L295" class="LineNr"> 295 </span> <span class="subxComment"># base/eax, index/ecx, scale/edx, disp/ebx = parse-effective-address(word-slice)</span> +<span id="L296" class="LineNr"> 296 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L297" class="LineNr"> 297 </span> 52/push-edx +<span id="L298" class="LineNr"> 298 </span> <span class="subxS2Comment"># . . call</span> +<span id="L299" class="LineNr"> 299 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L300" class="LineNr"> 300 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L301" class="LineNr"> 301 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L302" class="LineNr"> 302 </span> <span class="subxComment"># emit-indirect-mode(out, base, index, scale, disp)</span> +<span id="L303" class="LineNr"> 303 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L304" class="LineNr"> 304 </span> 53/push-ebx +<span id="L305" class="LineNr"> 305 </span> 52/push-edx +<span id="L306" class="LineNr"> 306 </span> 51/push-ecx +<span id="L307" class="LineNr"> 307 </span> 50/push-eax +<span id="L308" class="LineNr"> 308 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L309" class="LineNr"> 309 </span> <span class="subxS2Comment"># . . call</span> +<span id="L310" class="LineNr"> 310 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L311" class="LineNr"> 311 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L312" class="LineNr"> 312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L313" class="LineNr"> 313 </span> <span class="subxComment"># restore registers</span> +<span id="L314" class="LineNr"> 314 </span> 5b/pop-to-ebx +<span id="L315" class="LineNr"> 315 </span> 5a/pop-to-edx +<span id="L316" class="LineNr"> 316 </span> 59/pop-to-ecx +<span id="L317" class="LineNr"> 317 </span> 58/pop-to-eax +<span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># continue</span> +<span id="L319" class="LineNr"> 319 </span> e9/jump $subx-sigils:<a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L320" class="LineNr"> 320 </span><span class="Constant">$subx-sigils:check-for-invalid-addition</span>: +<span id="L321" class="LineNr"> 321 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "+")) goto error1</span> +<span id="L322" class="LineNr"> 322 </span> 3d/compare-eax-and 0x2b/imm32/plus +<span id="L323" class="LineNr"> 323 </span> 74/jump-if-= $subx-sigils:error1/disp8 +<span id="L324" class="LineNr"> 324 </span><span class="Constant">$subx-sigils:check-for-invalid-left-shift</span>: +<span id="L325" class="LineNr"> 325 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "<")) goto error1</span> +<span id="L326" class="LineNr"> 326 </span> 3d/compare-eax-and 0x3c/imm32/less-than +<span id="L327" class="LineNr"> 327 </span> 74/jump-if-= $subx-sigils:error1/disp8 +<span id="L328" class="LineNr"> 328 </span><span class="Constant">$subx-sigils:regular-word</span>: +<span id="L329" class="LineNr"> 329 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L330" class="LineNr"> 330 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L331" class="LineNr"> 331 </span> 52/push-edx +<span id="L332" class="LineNr"> 332 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L333" class="LineNr"> 333 </span> <span class="subxS2Comment"># . . call</span> +<span id="L334" class="LineNr"> 334 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L335" class="LineNr"> 335 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L336" class="LineNr"> 336 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L337" class="LineNr"> 337 </span> <span class="subxComment"># fall through</span> +<span id="L338" class="LineNr"> 338 </span><span class="Constant">$subx-sigils:<a href='127next-word.subx.html#L11'>next-word</a></span>: +<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L340" class="LineNr"> 340 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L341" class="LineNr"> 341 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L342" class="LineNr"> 342 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L343" class="LineNr"> 343 </span> <span class="subxS2Comment"># . . call</span> +<span id="L344" class="LineNr"> 344 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L345" class="LineNr"> 345 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L346" class="LineNr"> 346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L347" class="LineNr"> 347 </span> <span class="subxComment"># loop</span> +<span id="L348" class="LineNr"> 348 </span> e9/jump $subx-sigils:word-loop/disp32 +<span id="L349" class="LineNr"> 349 </span><span class="Constant">$subx-sigils:next-line</span>: +<span id="L350" class="LineNr"> 350 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L351" class="LineNr"> 351 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L352" class="LineNr"> 352 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L353" class="LineNr"> 353 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L354" class="LineNr"> 354 </span> <span class="subxS2Comment"># . . call</span> +<span id="L355" class="LineNr"> 355 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L356" class="LineNr"> 356 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L357" class="LineNr"> 357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L358" class="LineNr"> 358 </span> <span class="subxComment"># loop</span> +<span id="L359" class="LineNr"> 359 </span> e9/jump $subx-sigils:line-loop/disp32 +<span id="L360" class="LineNr"> 360 </span><span class="Constant">$subx-sigils:break</span>: +<span id="L361" class="LineNr"> 361 </span> <span class="subxComment"># flush(out)</span> +<span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L363" class="LineNr"> 363 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . call</span> +<span id="L365" class="LineNr"> 365 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L366" class="LineNr"> 366 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L367" class="LineNr"> 367 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L368" class="LineNr"> 368 </span><span class="Constant">$subx-sigils:end</span>: +<span id="L369" class="LineNr"> 369 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L370" class="LineNr"> 370 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L371" class="LineNr"> 371 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L372" class="LineNr"> 372 </span> 5b/pop-to-ebx +<span id="L373" class="LineNr"> 373 </span> 5a/pop-to-edx +<span id="L374" class="LineNr"> 374 </span> 59/pop-to-ecx +<span id="L375" class="LineNr"> 375 </span> 58/pop-to-eax +<span id="L376" class="LineNr"> 376 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L377" class="LineNr"> 377 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L378" class="LineNr"> 378 </span> 5d/pop-to-ebp +<span id="L379" class="LineNr"> 379 </span> c3/return +<span id="L380" class="LineNr"> 380 </span> +<span id="L381" class="LineNr"> 381 </span><span class="Constant">$subx-sigils:error1</span>: +<span id="L382" class="LineNr"> 382 </span> <span class="subxComment"># print(stderr, "error: '" eax "' only permitted within '*(...)' in '" line "'")</span> +<span id="L383" class="LineNr"> 383 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '")</span> +<span id="L384" class="LineNr"> 384 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L385" class="LineNr"> 385 </span> 68/push <span class="Constant">"error: '"</span>/imm32 +<span id="L386" class="LineNr"> 386 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L387" class="LineNr"> 387 </span> <span class="subxS2Comment"># . . call</span> +<span id="L388" class="LineNr"> 388 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L389" class="LineNr"> 389 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L390" class="LineNr"> 390 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L391" class="LineNr"> 391 </span> <span class="subxS1Comment"># . write-byte-buffered(Stderr, eax)</span> +<span id="L392" class="LineNr"> 392 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L393" class="LineNr"> 393 </span> 50/push-eax +<span id="L394" class="LineNr"> 394 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L395" class="LineNr"> 395 </span> <span class="subxS2Comment"># . . call</span> +<span id="L396" class="LineNr"> 396 </span> e8/call <a href='115write-byte.subx.html#L33'>write-byte-buffered</a>/disp32 +<span id="L397" class="LineNr"> 397 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L398" class="LineNr"> 398 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L399" class="LineNr"> 399 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "' only permitted within '*(...)' in '")</span> +<span id="L400" class="LineNr"> 400 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L401" class="LineNr"> 401 </span> 68/push <span class="Constant">"' only permitted within '*(...)' in '"</span>/imm32 +<span id="L402" class="LineNr"> 402 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L403" class="LineNr"> 403 </span> <span class="subxS2Comment"># . . call</span> +<span id="L404" class="LineNr"> 404 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L405" class="LineNr"> 405 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L406" class="LineNr"> 406 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L407" class="LineNr"> 407 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L408" class="LineNr"> 408 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L409" class="LineNr"> 409 </span> 51/push-ecx +<span id="L410" class="LineNr"> 410 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L411" class="LineNr"> 411 </span> <span class="subxS2Comment"># . . call</span> +<span id="L412" class="LineNr"> 412 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L413" class="LineNr"> 413 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L414" class="LineNr"> 414 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L415" class="LineNr"> 415 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L416" class="LineNr"> 416 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L417" class="LineNr"> 417 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L418" class="LineNr"> 418 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L419" class="LineNr"> 419 </span> <span class="subxS2Comment"># . . call</span> +<span id="L420" class="LineNr"> 420 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L421" class="LineNr"> 421 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L422" class="LineNr"> 422 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L423" class="LineNr"> 423 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L424" class="LineNr"> 424 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L425" class="LineNr"> 425 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L426" class="LineNr"> 426 </span> <span class="subxS2Comment"># . . call</span> +<span id="L427" class="LineNr"> 427 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L428" class="LineNr"> 428 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L429" class="LineNr"> 429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L430" class="LineNr"> 430 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L431" class="LineNr"> 431 </span> bb/copy-to-ebx 1/imm32 +<span id="L432" class="LineNr"> 432 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L433" class="LineNr"> 433 </span> <span class="subxComment"># never gets here</span> +<span id="L434" class="LineNr"> 434 </span> +<span id="L435" class="LineNr"> 435 </span><span class="subxTest">test-subx-sigils-passes-most-words-through</span>: +<span id="L436" class="LineNr"> 436 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L437" class="LineNr"> 437 </span> 55/push-ebp +<span id="L438" class="LineNr"> 438 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L439" class="LineNr"> 439 </span> <span class="subxComment"># setup</span> +<span id="L440" class="LineNr"> 440 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L441" class="LineNr"> 441 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L442" class="LineNr"> 442 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L443" class="LineNr"> 443 </span> <span class="subxS2Comment"># . . call</span> +<span id="L444" class="LineNr"> 444 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L445" class="LineNr"> 445 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L446" class="LineNr"> 446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L447" class="LineNr"> 447 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L448" class="LineNr"> 448 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L449" class="LineNr"> 449 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L450" class="LineNr"> 450 </span> <span class="subxS2Comment"># . . call</span> +<span id="L451" class="LineNr"> 451 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L452" class="LineNr"> 452 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L453" class="LineNr"> 453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L454" class="LineNr"> 454 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L455" class="LineNr"> 455 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L456" class="LineNr"> 456 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L457" class="LineNr"> 457 </span> <span class="subxS2Comment"># . . call</span> +<span id="L458" class="LineNr"> 458 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L459" class="LineNr"> 459 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L460" class="LineNr"> 460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L461" class="LineNr"> 461 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L462" class="LineNr"> 462 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L463" class="LineNr"> 463 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L464" class="LineNr"> 464 </span> <span class="subxS2Comment"># . . call</span> +<span id="L465" class="LineNr"> 465 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L466" class="LineNr"> 466 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L467" class="LineNr"> 467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L468" class="LineNr"> 468 </span> <span class="subxComment"># initialize input</span> +<span id="L469" class="LineNr"> 469 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== abcd 0x1")</span> +<span id="L470" class="LineNr"> 470 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L471" class="LineNr"> 471 </span> 68/push <span class="Constant">"== abcd 0x1"</span>/imm32 +<span id="L472" class="LineNr"> 472 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L473" class="LineNr"> 473 </span> <span class="subxS2Comment"># . . call</span> +<span id="L474" class="LineNr"> 474 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L475" class="LineNr"> 475 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L476" class="LineNr"> 476 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L477" class="LineNr"> 477 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L478" class="LineNr"> 478 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L479" class="LineNr"> 479 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L480" class="LineNr"> 480 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L481" class="LineNr"> 481 </span> <span class="subxS2Comment"># . . call</span> +<span id="L482" class="LineNr"> 482 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L483" class="LineNr"> 483 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L484" class="LineNr"> 484 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L486" class="LineNr"> 486 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L487" class="LineNr"> 487 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L488" class="LineNr"> 488 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L489" class="LineNr"> 489 </span> <span class="subxS2Comment"># . . call</span> +<span id="L490" class="LineNr"> 490 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L491" class="LineNr"> 491 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L492" class="LineNr"> 492 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L493" class="Folded"> 493 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L519" class="LineNr"> 519 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "== abcd 0x1 \n", msg)</span> +<span id="L520" class="LineNr"> 520 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L521" class="LineNr"> 521 </span> 68/push <span class="Constant">"F - test-subx-sigils-passes-most-words-through"</span>/imm32 +<span id="L522" class="LineNr"> 522 </span> 68/push <span class="Constant">"== abcd 0x1 \n"</span>/imm32 +<span id="L523" class="LineNr"> 523 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L524" class="LineNr"> 524 </span> <span class="subxS2Comment"># . . call</span> +<span id="L525" class="LineNr"> 525 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L526" class="LineNr"> 526 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L527" class="LineNr"> 527 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L528" class="LineNr"> 528 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L529" class="LineNr"> 529 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L530" class="LineNr"> 530 </span> 5d/pop-to-ebp +<span id="L531" class="LineNr"> 531 </span> c3/return +<span id="L532" class="LineNr"> 532 </span> +<span id="L533" class="LineNr"> 533 </span><span class="subxTest">test-subx-sigils-direct-mode</span>: +<span id="L534" class="LineNr"> 534 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L535" class="LineNr"> 535 </span> 55/push-ebp +<span id="L536" class="LineNr"> 536 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L537" class="LineNr"> 537 </span> <span class="subxComment"># setup</span> +<span id="L538" class="LineNr"> 538 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L539" class="LineNr"> 539 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L540" class="LineNr"> 540 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L541" class="LineNr"> 541 </span> <span class="subxS2Comment"># . . call</span> +<span id="L542" class="LineNr"> 542 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L543" class="LineNr"> 543 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L544" class="LineNr"> 544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L545" class="LineNr"> 545 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L546" class="LineNr"> 546 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L547" class="LineNr"> 547 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L548" class="LineNr"> 548 </span> <span class="subxS2Comment"># . . call</span> +<span id="L549" class="LineNr"> 549 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L550" class="LineNr"> 550 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L551" class="LineNr"> 551 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L552" class="LineNr"> 552 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L553" class="LineNr"> 553 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L554" class="LineNr"> 554 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L555" class="LineNr"> 555 </span> <span class="subxS2Comment"># . . call</span> +<span id="L556" class="LineNr"> 556 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L557" class="LineNr"> 557 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L558" class="LineNr"> 558 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L559" class="LineNr"> 559 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L560" class="LineNr"> 560 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L561" class="LineNr"> 561 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L562" class="LineNr"> 562 </span> <span class="subxS2Comment"># . . call</span> +<span id="L563" class="LineNr"> 563 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L564" class="LineNr"> 564 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L565" class="LineNr"> 565 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L566" class="LineNr"> 566 </span> <span class="subxComment"># initialize input</span> +<span id="L567" class="LineNr"> 567 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx")</span> +<span id="L568" class="LineNr"> 568 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L569" class="LineNr"> 569 </span> 68/push <span class="Constant">"ab %ecx"</span>/imm32 +<span id="L570" class="LineNr"> 570 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L571" class="LineNr"> 571 </span> <span class="subxS2Comment"># . . call</span> +<span id="L572" class="LineNr"> 572 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L573" class="LineNr"> 573 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L574" class="LineNr"> 574 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L575" class="LineNr"> 575 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L576" class="LineNr"> 576 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L577" class="LineNr"> 577 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L578" class="LineNr"> 578 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L579" class="LineNr"> 579 </span> <span class="subxS2Comment"># . . call</span> +<span id="L580" class="LineNr"> 580 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L581" class="LineNr"> 581 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L582" class="LineNr"> 582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L583" class="LineNr"> 583 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L584" class="LineNr"> 584 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L585" class="LineNr"> 585 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L586" class="LineNr"> 586 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L587" class="LineNr"> 587 </span> <span class="subxS2Comment"># . . call</span> +<span id="L588" class="LineNr"> 588 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L589" class="LineNr"> 589 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L590" class="LineNr"> 590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L591" class="Folded"> 591 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L617" class="LineNr"> 617 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> +<span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L619" class="LineNr"> 619 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode"</span>/imm32 +<span id="L620" class="LineNr"> 620 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 +<span id="L621" class="LineNr"> 621 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . call</span> +<span id="L623" class="LineNr"> 623 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L624" class="LineNr"> 624 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L625" class="LineNr"> 625 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L626" class="LineNr"> 626 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L627" class="LineNr"> 627 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L628" class="LineNr"> 628 </span> 5d/pop-to-ebp +<span id="L629" class="LineNr"> 629 </span> c3/return +<span id="L630" class="LineNr"> 630 </span> +<span id="L631" class="LineNr"> 631 </span><span class="subxTest">test-subx-sigils-direct-mode-with-metadata</span>: +<span id="L632" class="LineNr"> 632 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L633" class="LineNr"> 633 </span> 55/push-ebp +<span id="L634" class="LineNr"> 634 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># setup</span> +<span id="L636" class="LineNr"> 636 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L637" class="LineNr"> 637 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L638" class="LineNr"> 638 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . call</span> +<span id="L640" class="LineNr"> 640 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L642" class="LineNr"> 642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L643" class="LineNr"> 643 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L645" class="LineNr"> 645 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L646" class="LineNr"> 646 </span> <span class="subxS2Comment"># . . call</span> +<span id="L647" class="LineNr"> 647 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L648" class="LineNr"> 648 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L649" class="LineNr"> 649 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L650" class="LineNr"> 650 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L652" class="LineNr"> 652 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L653" class="LineNr"> 653 </span> <span class="subxS2Comment"># . . call</span> +<span id="L654" class="LineNr"> 654 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L655" class="LineNr"> 655 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L656" class="LineNr"> 656 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L657" class="LineNr"> 657 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L659" class="LineNr"> 659 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L660" class="LineNr"> 660 </span> <span class="subxS2Comment"># . . call</span> +<span id="L661" class="LineNr"> 661 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L662" class="LineNr"> 662 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L663" class="LineNr"> 663 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L664" class="LineNr"> 664 </span> <span class="subxComment"># initialize input</span> +<span id="L665" class="LineNr"> 665 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab %ecx/foo")</span> +<span id="L666" class="LineNr"> 666 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L667" class="LineNr"> 667 </span> 68/push <span class="Constant">"ab %ecx/foo"</span>/imm32 +<span id="L668" class="LineNr"> 668 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L669" class="LineNr"> 669 </span> <span class="subxS2Comment"># . . call</span> +<span id="L670" class="LineNr"> 670 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L671" class="LineNr"> 671 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L672" class="LineNr"> 672 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L673" class="LineNr"> 673 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L674" class="LineNr"> 674 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L675" class="LineNr"> 675 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L676" class="LineNr"> 676 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . call</span> +<span id="L678" class="LineNr"> 678 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L680" class="LineNr"> 680 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L681" class="LineNr"> 681 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L682" class="LineNr"> 682 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L684" class="LineNr"> 684 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L685" class="LineNr"> 685 </span> <span class="subxS2Comment"># . . call</span> +<span id="L686" class="LineNr"> 686 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L687" class="LineNr"> 687 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L688" class="LineNr"> 688 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L689" class="LineNr"> 689 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 3/mod/direct 0x00000001/rm32 \n", msg)</span> +<span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L691" class="LineNr"> 691 </span> 68/push <span class="Constant">"F - test-subx-sigils-direct-mode-with-metadata"</span>/imm32 +<span id="L692" class="LineNr"> 692 </span> 68/push <span class="Constant">"ab 3/mod/direct 0x00000001/rm32 \n"</span>/imm32 +<span id="L693" class="LineNr"> 693 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L694" class="LineNr"> 694 </span> <span class="subxS2Comment"># . . call</span> +<span id="L695" class="LineNr"> 695 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L696" class="LineNr"> 696 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L697" class="LineNr"> 697 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L698" class="LineNr"> 698 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L699" class="LineNr"> 699 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L700" class="LineNr"> 700 </span> 5d/pop-to-ebp +<span id="L701" class="LineNr"> 701 </span> c3/return +<span id="L702" class="LineNr"> 702 </span> +<span id="L703" class="LineNr"> 703 </span><span class="subxTest">test-subx-sigils-register-indirect-mode</span>: +<span id="L704" class="LineNr"> 704 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L705" class="LineNr"> 705 </span> 55/push-ebp +<span id="L706" class="LineNr"> 706 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L707" class="LineNr"> 707 </span> <span class="subxComment"># setup</span> +<span id="L708" class="LineNr"> 708 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L710" class="LineNr"> 710 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . call</span> +<span id="L712" class="LineNr"> 712 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L713" class="LineNr"> 713 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L714" class="LineNr"> 714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L715" class="LineNr"> 715 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L716" class="LineNr"> 716 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L717" class="LineNr"> 717 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L718" class="LineNr"> 718 </span> <span class="subxS2Comment"># . . call</span> +<span id="L719" class="LineNr"> 719 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L720" class="LineNr"> 720 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L721" class="LineNr"> 721 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L722" class="LineNr"> 722 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L723" class="LineNr"> 723 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L724" class="LineNr"> 724 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . call</span> +<span id="L726" class="LineNr"> 726 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L727" class="LineNr"> 727 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L728" class="LineNr"> 728 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L729" class="LineNr"> 729 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L730" class="LineNr"> 730 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L731" class="LineNr"> 731 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L732" class="LineNr"> 732 </span> <span class="subxS2Comment"># . . call</span> +<span id="L733" class="LineNr"> 733 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L735" class="LineNr"> 735 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L736" class="LineNr"> 736 </span> <span class="subxComment"># initialize input</span> +<span id="L737" class="LineNr"> 737 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx")</span> +<span id="L738" class="LineNr"> 738 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L739" class="LineNr"> 739 </span> 68/push <span class="Constant">"ab *ecx"</span>/imm32 +<span id="L740" class="LineNr"> 740 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L741" class="LineNr"> 741 </span> <span class="subxS2Comment"># . . call</span> +<span id="L742" class="LineNr"> 742 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L743" class="LineNr"> 743 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L744" class="LineNr"> 744 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L745" class="LineNr"> 745 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L746" class="LineNr"> 746 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L747" class="LineNr"> 747 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L748" class="LineNr"> 748 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L749" class="LineNr"> 749 </span> <span class="subxS2Comment"># . . call</span> +<span id="L750" class="LineNr"> 750 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L751" class="LineNr"> 751 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L752" class="LineNr"> 752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L753" class="LineNr"> 753 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L754" class="LineNr"> 754 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L755" class="LineNr"> 755 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L756" class="LineNr"> 756 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L757" class="LineNr"> 757 </span> <span class="subxS2Comment"># . . call</span> +<span id="L758" class="LineNr"> 758 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L759" class="LineNr"> 759 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L760" class="LineNr"> 760 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L761" class="Folded"> 761 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L787" class="LineNr"> 787 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> +<span id="L788" class="LineNr"> 788 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L789" class="LineNr"> 789 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode"</span>/imm32 +<span id="L790" class="LineNr"> 790 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 +<span id="L791" class="LineNr"> 791 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L792" class="LineNr"> 792 </span> <span class="subxS2Comment"># . . call</span> +<span id="L793" class="LineNr"> 793 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L794" class="LineNr"> 794 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L795" class="LineNr"> 795 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L796" class="LineNr"> 796 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L797" class="LineNr"> 797 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L798" class="LineNr"> 798 </span> 5d/pop-to-ebp +<span id="L799" class="LineNr"> 799 </span> c3/return +<span id="L800" class="LineNr"> 800 </span> +<span id="L801" class="LineNr"> 801 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-metadata</span>: +<span id="L802" class="LineNr"> 802 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L803" class="LineNr"> 803 </span> 55/push-ebp +<span id="L804" class="LineNr"> 804 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L805" class="LineNr"> 805 </span> <span class="subxComment"># setup</span> +<span id="L806" class="LineNr"> 806 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L808" class="LineNr"> 808 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L809" class="LineNr"> 809 </span> <span class="subxS2Comment"># . . call</span> +<span id="L810" class="LineNr"> 810 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L811" class="LineNr"> 811 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L812" class="LineNr"> 812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L813" class="LineNr"> 813 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L814" class="LineNr"> 814 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L815" class="LineNr"> 815 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L816" class="LineNr"> 816 </span> <span class="subxS2Comment"># . . call</span> +<span id="L817" class="LineNr"> 817 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L818" class="LineNr"> 818 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L819" class="LineNr"> 819 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L820" class="LineNr"> 820 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L821" class="LineNr"> 821 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L822" class="LineNr"> 822 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L823" class="LineNr"> 823 </span> <span class="subxS2Comment"># . . call</span> +<span id="L824" class="LineNr"> 824 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L825" class="LineNr"> 825 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L826" class="LineNr"> 826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L827" class="LineNr"> 827 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L828" class="LineNr"> 828 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L829" class="LineNr"> 829 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L830" class="LineNr"> 830 </span> <span class="subxS2Comment"># . . call</span> +<span id="L831" class="LineNr"> 831 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L832" class="LineNr"> 832 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L833" class="LineNr"> 833 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L834" class="LineNr"> 834 </span> <span class="subxComment"># initialize input</span> +<span id="L835" class="LineNr"> 835 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *ecx/foo")</span> +<span id="L836" class="LineNr"> 836 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L837" class="LineNr"> 837 </span> 68/push <span class="Constant">"ab *ecx/foo"</span>/imm32 +<span id="L838" class="LineNr"> 838 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L839" class="LineNr"> 839 </span> <span class="subxS2Comment"># . . call</span> +<span id="L840" class="LineNr"> 840 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L841" class="LineNr"> 841 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L842" class="LineNr"> 842 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L843" class="LineNr"> 843 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L844" class="LineNr"> 844 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L845" class="LineNr"> 845 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L846" class="LineNr"> 846 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L847" class="LineNr"> 847 </span> <span class="subxS2Comment"># . . call</span> +<span id="L848" class="LineNr"> 848 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L850" class="LineNr"> 850 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L851" class="LineNr"> 851 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L852" class="LineNr"> 852 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L853" class="LineNr"> 853 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L854" class="LineNr"> 854 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L855" class="LineNr"> 855 </span> <span class="subxS2Comment"># . . call</span> +<span id="L856" class="LineNr"> 856 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L858" class="LineNr"> 858 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L859" class="LineNr"> 859 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 0x00000001/rm32 \n", msg)</span> +<span id="L860" class="LineNr"> 860 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L861" class="LineNr"> 861 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-metadata"</span>/imm32 +<span id="L862" class="LineNr"> 862 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 +<span id="L863" class="LineNr"> 863 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L864" class="LineNr"> 864 </span> <span class="subxS2Comment"># . . call</span> +<span id="L865" class="LineNr"> 865 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L866" class="LineNr"> 866 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L867" class="LineNr"> 867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L868" class="LineNr"> 868 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L869" class="LineNr"> 869 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L870" class="LineNr"> 870 </span> 5d/pop-to-ebp +<span id="L871" class="LineNr"> 871 </span> c3/return +<span id="L872" class="LineNr"> 872 </span> +<span id="L873" class="LineNr"> 873 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-without-displacement</span>: +<span id="L874" class="LineNr"> 874 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L875" class="LineNr"> 875 </span> 55/push-ebp +<span id="L876" class="LineNr"> 876 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L877" class="LineNr"> 877 </span> <span class="subxComment"># setup</span> +<span id="L878" class="LineNr"> 878 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L879" class="LineNr"> 879 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L880" class="LineNr"> 880 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . call</span> +<span id="L882" class="LineNr"> 882 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L883" class="LineNr"> 883 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L884" class="LineNr"> 884 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L885" class="LineNr"> 885 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L887" class="LineNr"> 887 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . call</span> +<span id="L889" class="LineNr"> 889 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L890" class="LineNr"> 890 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L891" class="LineNr"> 891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L892" class="LineNr"> 892 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L893" class="LineNr"> 893 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L894" class="LineNr"> 894 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L895" class="LineNr"> 895 </span> <span class="subxS2Comment"># . . call</span> +<span id="L896" class="LineNr"> 896 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L897" class="LineNr"> 897 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L898" class="LineNr"> 898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L899" class="LineNr"> 899 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L900" class="LineNr"> 900 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L901" class="LineNr"> 901 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L902" class="LineNr"> 902 </span> <span class="subxS2Comment"># . . call</span> +<span id="L903" class="LineNr"> 903 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L904" class="LineNr"> 904 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L905" class="LineNr"> 905 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L906" class="LineNr"> 906 </span> <span class="subxComment"># initialize input</span> +<span id="L907" class="LineNr"> 907 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx)")</span> +<span id="L908" class="LineNr"> 908 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L909" class="LineNr"> 909 </span> 68/push <span class="Constant">"ab *(ecx)"</span>/imm32 +<span id="L910" class="LineNr"> 910 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L911" class="LineNr"> 911 </span> <span class="subxS2Comment"># . . call</span> +<span id="L912" class="LineNr"> 912 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L913" class="LineNr"> 913 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L914" class="LineNr"> 914 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L915" class="LineNr"> 915 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L916" class="LineNr"> 916 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L917" class="LineNr"> 917 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L918" class="LineNr"> 918 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L919" class="LineNr"> 919 </span> <span class="subxS2Comment"># . . call</span> +<span id="L920" class="LineNr"> 920 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L921" class="LineNr"> 921 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L922" class="LineNr"> 922 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L924" class="LineNr"> 924 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L925" class="LineNr"> 925 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L926" class="LineNr"> 926 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L927" class="LineNr"> 927 </span> <span class="subxS2Comment"># . . call</span> +<span id="L928" class="LineNr"> 928 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L929" class="LineNr"> 929 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L930" class="LineNr"> 930 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L931" class="Folded"> 931 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L957" class="LineNr"> 957 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 1/rm32 \n", msg)</span> +<span id="L958" class="LineNr"> 958 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L959" class="LineNr"> 959 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-without-displacement"</span>/imm32 +<span id="L960" class="LineNr"> 960 </span> 68/push <span class="Constant">"ab 0/mod/indirect 0x00000001/rm32 \n"</span>/imm32 +<span id="L961" class="LineNr"> 961 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L962" class="LineNr"> 962 </span> <span class="subxS2Comment"># . . call</span> +<span id="L963" class="LineNr"> 963 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L964" class="LineNr"> 964 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L965" class="LineNr"> 965 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L966" class="LineNr"> 966 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L967" class="LineNr"> 967 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L968" class="LineNr"> 968 </span> 5d/pop-to-ebp +<span id="L969" class="LineNr"> 969 </span> c3/return +<span id="L970" class="LineNr"> 970 </span> +<span id="L971" class="LineNr"> 971 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-displacement</span>: +<span id="L972" class="LineNr"> 972 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L973" class="LineNr"> 973 </span> 55/push-ebp +<span id="L974" class="LineNr"> 974 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L975" class="LineNr"> 975 </span> <span class="subxComment"># setup</span> +<span id="L976" class="LineNr"> 976 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L978" class="LineNr"> 978 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L979" class="LineNr"> 979 </span> <span class="subxS2Comment"># . . call</span> +<span id="L980" class="LineNr"> 980 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L981" class="LineNr"> 981 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L982" class="LineNr"> 982 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L983" class="LineNr"> 983 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L984" class="LineNr"> 984 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L985" class="LineNr"> 985 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L986" class="LineNr"> 986 </span> <span class="subxS2Comment"># . . call</span> +<span id="L987" class="LineNr"> 987 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L988" class="LineNr"> 988 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L989" class="LineNr"> 989 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L990" class="LineNr"> 990 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L991" class="LineNr"> 991 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L992" class="LineNr"> 992 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . call</span> +<span id="L994" class="LineNr"> 994 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L995" class="LineNr"> 995 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L996" class="LineNr"> 996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L997" class="LineNr"> 997 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L999" class="LineNr"> 999 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1000" class="LineNr">1000 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1001" class="LineNr">1001 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1002" class="LineNr">1002 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1003" class="LineNr">1003 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1004" class="LineNr">1004 </span> <span class="subxComment"># initialize input</span> +<span id="L1005" class="LineNr">1005 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx+4)")</span> +<span id="L1006" class="LineNr">1006 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1007" class="LineNr">1007 </span> 68/push <span class="Constant">"ab *(ecx+4)"</span>/imm32 +<span id="L1008" class="LineNr">1008 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1010" class="LineNr">1010 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1011" class="LineNr">1011 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1012" class="LineNr">1012 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1013" class="LineNr">1013 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1014" class="LineNr">1014 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1015" class="LineNr">1015 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1016" class="LineNr">1016 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1018" class="LineNr">1018 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L1019" class="LineNr">1019 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1020" class="LineNr">1020 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1021" class="LineNr">1021 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1022" class="LineNr">1022 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1023" class="LineNr">1023 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1024" class="LineNr">1024 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1025" class="LineNr">1025 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1026" class="LineNr">1026 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1027" class="LineNr">1027 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1028" class="LineNr">1028 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1029" class="Folded">1029 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1055" class="LineNr">1055 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 1/rm32 4/disp32 \n", msg)</span> +<span id="L1056" class="LineNr">1056 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1057" class="LineNr">1057 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-displacement"</span>/imm32 +<span id="L1058" class="LineNr">1058 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 0x00000001/rm32 0x00000004/disp32 \n"</span>/imm32 +<span id="L1059" class="LineNr">1059 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1060" class="LineNr">1060 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1061" class="LineNr">1061 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1062" class="LineNr">1062 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1063" class="LineNr">1063 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1064" class="LineNr">1064 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1065" class="LineNr">1065 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1066" class="LineNr">1066 </span> 5d/pop-to-ebp +<span id="L1067" class="LineNr">1067 </span> c3/return +<span id="L1068" class="LineNr">1068 </span> +<span id="L1069" class="LineNr">1069 </span><span class="subxComment"># boss level</span> +<span id="L1070" class="LineNr">1070 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte</span>: +<span id="L1071" class="LineNr">1071 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1072" class="LineNr">1072 </span> 55/push-ebp +<span id="L1073" class="LineNr">1073 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1074" class="LineNr">1074 </span> <span class="subxComment"># setup</span> +<span id="L1075" class="LineNr">1075 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1076" class="LineNr">1076 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1077" class="LineNr">1077 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1078" class="LineNr">1078 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1079" class="LineNr">1079 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1080" class="LineNr">1080 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1081" class="LineNr">1081 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1082" class="LineNr">1082 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L1083" class="LineNr">1083 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1084" class="LineNr">1084 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L1085" class="LineNr">1085 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1086" class="LineNr">1086 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1087" class="LineNr">1087 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1088" class="LineNr">1088 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1089" class="LineNr">1089 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1091" class="LineNr">1091 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1092" class="LineNr">1092 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1093" class="LineNr">1093 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1094" class="LineNr">1094 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1095" class="LineNr">1095 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1096" class="LineNr">1096 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1098" class="LineNr">1098 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1100" class="LineNr">1100 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1102" class="LineNr">1102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1103" class="LineNr">1103 </span> <span class="subxComment"># initialize input</span> +<span id="L1104" class="LineNr">1104 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 + 4)")</span> +<span id="L1105" class="LineNr">1105 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1106" class="LineNr">1106 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 + 4)"</span>/imm32 +<span id="L1107" class="LineNr">1107 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1109" class="LineNr">1109 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1110" class="LineNr">1110 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1111" class="LineNr">1111 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1112" class="LineNr">1112 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1113" class="LineNr">1113 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1114" class="LineNr">1114 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1115" class="LineNr">1115 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1116" class="LineNr">1116 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1117" class="LineNr">1117 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L1118" class="LineNr">1118 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1119" class="LineNr">1119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1120" class="LineNr">1120 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1121" class="LineNr">1121 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1122" class="LineNr">1122 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1123" class="LineNr">1123 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1124" class="LineNr">1124 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1125" class="LineNr">1125 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1126" class="LineNr">1126 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1127" class="LineNr">1127 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1128" class="Folded">1128 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1154" class="LineNr">1154 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale 4/disp32 \n", msg)</span> +<span id="L1155" class="LineNr">1155 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1156" class="LineNr">1156 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte"</span>/imm32 +<span id="L1157" class="LineNr">1157 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0x00000004/disp32 \n"</span>/imm32 +<span id="L1158" class="LineNr">1158 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1160" class="LineNr">1160 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1161" class="LineNr">1161 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1162" class="LineNr">1162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1163" class="LineNr">1163 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1164" class="LineNr">1164 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1165" class="LineNr">1165 </span> 5d/pop-to-ebp +<span id="L1166" class="LineNr">1166 </span> c3/return +<span id="L1167" class="LineNr">1167 </span> +<span id="L1168" class="LineNr">1168 </span><span class="subxTest">test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement</span>: +<span id="L1169" class="LineNr">1169 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1170" class="LineNr">1170 </span> 55/push-ebp +<span id="L1171" class="LineNr">1171 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1172" class="LineNr">1172 </span> <span class="subxComment"># setup</span> +<span id="L1173" class="LineNr">1173 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1174" class="LineNr">1174 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1175" class="LineNr">1175 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1176" class="LineNr">1176 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1177" class="LineNr">1177 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1178" class="LineNr">1178 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1179" class="LineNr">1179 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1180" class="LineNr">1180 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1182" class="LineNr">1182 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L1183" class="LineNr">1183 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1184" class="LineNr">1184 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1185" class="LineNr">1185 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1186" class="LineNr">1186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1187" class="LineNr">1187 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1188" class="LineNr">1188 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1189" class="LineNr">1189 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1190" class="LineNr">1190 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1191" class="LineNr">1191 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1193" class="LineNr">1193 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1194" class="LineNr">1194 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1196" class="LineNr">1196 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1198" class="LineNr">1198 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1199" class="LineNr">1199 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1200" class="LineNr">1200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1201" class="LineNr">1201 </span> <span class="subxComment"># initialize input</span> +<span id="L1202" class="LineNr">1202 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *(ecx + edx<<3 - 4)")</span> +<span id="L1203" class="LineNr">1203 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1204" class="LineNr">1204 </span> 68/push <span class="Constant">"ab *(ecx + edx<<3 - 4)"</span>/imm32 +<span id="L1205" class="LineNr">1205 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1206" class="LineNr">1206 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1207" class="LineNr">1207 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1208" class="LineNr">1208 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1209" class="LineNr">1209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1210" class="LineNr">1210 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1212" class="LineNr">1212 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1213" class="LineNr">1213 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1214" class="LineNr">1214 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1215" class="LineNr">1215 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L1216" class="LineNr">1216 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1217" class="LineNr">1217 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1218" class="LineNr">1218 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1219" class="LineNr">1219 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1221" class="LineNr">1221 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1223" class="LineNr">1223 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1225" class="LineNr">1225 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1226" class="Folded">1226 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1252" class="LineNr">1252 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 2/mod/*+disp32 4/rm32/sib 1/base 2/index 3/scale -4/disp32 \n", msg)</span> +<span id="L1253" class="LineNr">1253 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1254" class="LineNr">1254 </span> 68/push <span class="Constant">"F - test-subx-sigils-register-indirect-mode-with-sib-byte-negative-displacement"</span>/imm32 +<span id="L1255" class="LineNr">1255 </span> 68/push <span class="Constant">"ab 2/mod/*+disp32 4/rm32/sib 0x00000001/base 0x00000002/index 0x00000003/scale 0xfffffffc/disp32 \n"</span>/imm32 +<span id="L1256" class="LineNr">1256 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1258" class="LineNr">1258 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1259" class="LineNr">1259 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1260" class="LineNr">1260 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1261" class="LineNr">1261 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1262" class="LineNr">1262 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1263" class="LineNr">1263 </span> 5d/pop-to-ebp +<span id="L1264" class="LineNr">1264 </span> c3/return +<span id="L1265" class="LineNr">1265 </span> +<span id="L1266" class="LineNr">1266 </span><span class="subxTest">test-subx-sigils-indirect-mode-without-register</span>: +<span id="L1267" class="LineNr">1267 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1268" class="LineNr">1268 </span> 55/push-ebp +<span id="L1269" class="LineNr">1269 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1270" class="LineNr">1270 </span> <span class="subxComment"># setup</span> +<span id="L1271" class="LineNr">1271 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1272" class="LineNr">1272 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1273" class="LineNr">1273 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1274" class="LineNr">1274 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1275" class="LineNr">1275 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1276" class="LineNr">1276 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1277" class="LineNr">1277 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1278" class="LineNr">1278 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1280" class="LineNr">1280 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L1281" class="LineNr">1281 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1282" class="LineNr">1282 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1283" class="LineNr">1283 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1284" class="LineNr">1284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1285" class="LineNr">1285 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1286" class="LineNr">1286 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1287" class="LineNr">1287 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1288" class="LineNr">1288 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1289" class="LineNr">1289 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1290" class="LineNr">1290 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1291" class="LineNr">1291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1292" class="LineNr">1292 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1293" class="LineNr">1293 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1294" class="LineNr">1294 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1296" class="LineNr">1296 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1298" class="LineNr">1298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1299" class="LineNr">1299 </span> <span class="subxComment"># initialize input</span> +<span id="L1300" class="LineNr">1300 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab *Foo")</span> +<span id="L1301" class="LineNr">1301 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1302" class="LineNr">1302 </span> 68/push <span class="Constant">"ab *Foo"</span>/imm32 +<span id="L1303" class="LineNr">1303 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1304" class="LineNr">1304 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1305" class="LineNr">1305 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1306" class="LineNr">1306 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1307" class="LineNr">1307 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1308" class="LineNr">1308 </span> <span class="subxComment"># subx-sigils(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L1309" class="LineNr">1309 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1310" class="LineNr">1310 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1311" class="LineNr">1311 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L1312" class="LineNr">1312 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1313" class="LineNr">1313 </span> e8/call <a href='sigils.subx.html#L110'>subx-sigils</a>/disp32 +<span id="L1314" class="LineNr">1314 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1315" class="LineNr">1315 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1316" class="LineNr">1316 </span> <span class="subxComment"># check that the line just passed through</span> +<span id="L1317" class="LineNr">1317 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1319" class="LineNr">1319 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1320" class="LineNr">1320 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1321" class="LineNr">1321 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1322" class="LineNr">1322 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1323" class="LineNr">1323 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1324" class="Folded">1324 </span><span class="Folded">+-- 26 lines: #? # dump _test-output-stream -----------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1350" class="LineNr">1350 </span> <span class="subxS1Comment"># . check-stream-equal(_test-output-stream, "ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n", msg)</span> +<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1352" class="LineNr">1352 </span> 68/push <span class="Constant">"F - test-subx-sigils-indirect-mode-without-register"</span>/imm32 +<span id="L1353" class="LineNr">1353 </span> 68/push <span class="Constant">"ab 0/mod/indirect 5/rm32/.disp32 Foo/disp32 \n"</span>/imm32 +<span id="L1354" class="LineNr">1354 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1355" class="LineNr">1355 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1356" class="LineNr">1356 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1357" class="LineNr">1357 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1358" class="LineNr">1358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1359" class="LineNr">1359 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1360" class="LineNr">1360 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1361" class="LineNr">1361 </span> 5d/pop-to-ebp +<span id="L1362" class="LineNr">1362 </span> c3/return +<span id="L1363" class="LineNr">1363 </span> +<span id="L1364" class="LineNr">1364 </span><span class="subxFunction">emit-direct-mode</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> +<span id="L1365" class="LineNr">1365 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1366" class="LineNr">1366 </span> 55/push-ebp +<span id="L1367" class="LineNr">1367 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1368" class="LineNr">1368 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1369" class="LineNr">1369 </span> 50/push-eax +<span id="L1370" class="LineNr">1370 </span> <span class="subxComment"># var local-slice/eax: slice = {word-slice->start, word-slice->end}</span> +<span id="L1371" class="LineNr">1371 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L1372" class="LineNr">1372 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1373" class="LineNr">1373 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L1374" class="LineNr">1374 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to eax</span> +<span id="L1375" class="LineNr">1375 </span> <span class="subxComment"># ++local-slice->start to skip '%'</span> +<span id="L1376" class="LineNr">1376 </span> <span class="subxS1Comment"># . ++(*eax)</span> +<span id="L1377" class="LineNr">1377 </span> ff 0/subop/increment 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *eax</span> +<span id="L1378" class="Folded">1378 </span><span class="Folded">+-- 24 lines: #? # write-slice-buffered(Stderr, word-slice) -------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1402" class="LineNr">1402 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L1403" class="LineNr">1403 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1404" class="LineNr">1404 </span> 50/push-eax +<span id="L1405" class="LineNr">1405 </span> 68/push 0x2f/imm32/slash +<span id="L1406" class="LineNr">1406 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1407" class="LineNr">1407 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L1408" class="LineNr">1408 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1409" class="LineNr">1409 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L1410" class="LineNr">1410 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1411" class="LineNr">1411 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1412" class="LineNr">1412 </span> <span class="subxComment"># reg-num/eax = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L1413" class="LineNr">1413 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1414" class="LineNr">1414 </span> 68/push <span class="Constant">"Registers"</span>/imm32 +<span id="L1415" class="LineNr">1415 </span> 68/push 0xc/imm32/row-size +<span id="L1416" class="LineNr">1416 </span> 50/push-eax +<span id="L1417" class="LineNr">1417 </span> 68/push <span class="SpecialChar"><a href='201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L1418" class="LineNr">1418 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1419" class="LineNr">1419 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L1420" class="LineNr">1420 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1421" class="LineNr">1421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1422" class="LineNr">1422 </span> <span class="subxComment"># write-buffered(out, "3/mod/direct ")</span> +<span id="L1423" class="LineNr">1423 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1424" class="LineNr">1424 </span> 68/push <span class="Constant">"3/mod/direct "</span>/imm32 +<span id="L1425" class="LineNr">1425 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1427" class="LineNr">1427 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1428" class="LineNr">1428 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1429" class="LineNr">1429 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1430" class="LineNr">1430 </span> <span class="subxComment"># write-int32-hex-buffered(out, *reg-num)</span> +<span id="L1431" class="LineNr">1431 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1432" class="LineNr">1432 </span> ff 6/subop/push 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *eax</span> +<span id="L1433" class="LineNr">1433 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1434" class="LineNr">1434 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1435" class="LineNr">1435 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L1436" class="LineNr">1436 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1437" class="LineNr">1437 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1438" class="LineNr">1438 </span> <span class="subxComment"># write-buffered(out, "/rm32")</span> +<span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1440" class="LineNr">1440 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 +<span id="L1441" class="LineNr">1441 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1442" class="LineNr">1442 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1443" class="LineNr">1443 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1444" class="LineNr">1444 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1445" class="LineNr">1445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1446" class="LineNr">1446 </span><span class="Constant">$emit-direct-mode:end</span>: +<span id="L1447" class="LineNr">1447 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1448" class="LineNr">1448 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1449" class="LineNr">1449 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1450" class="LineNr">1450 </span> 58/pop-to-eax +<span id="L1451" class="LineNr">1451 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1452" class="LineNr">1452 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1453" class="LineNr">1453 </span> 5d/pop-to-ebp +<span id="L1454" class="LineNr">1454 </span> c3/return +<span id="L1455" class="LineNr">1455 </span> +<span id="L1456" class="LineNr">1456 </span><span class="subxTest">test-emit-direct-mode</span>: +<span id="L1457" class="LineNr">1457 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1458" class="LineNr">1458 </span> 55/push-ebp +<span id="L1459" class="LineNr">1459 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1460" class="LineNr">1460 </span> <span class="subxComment"># setup</span> +<span id="L1461" class="LineNr">1461 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1462" class="LineNr">1462 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1463" class="LineNr">1463 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1465" class="LineNr">1465 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1466" class="LineNr">1466 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1467" class="LineNr">1467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1468" class="LineNr">1468 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1470" class="LineNr">1470 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1472" class="LineNr">1472 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1473" class="LineNr">1473 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1474" class="LineNr">1474 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1475" class="LineNr">1475 </span> <span class="subxComment"># var slice/ecx = "%eax"</span> +<span id="L1476" class="LineNr">1476 </span> b8/copy-to-eax <span class="Constant">"%eax"</span>/imm32 +<span id="L1477" class="LineNr">1477 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1478" class="LineNr">1478 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1479" class="LineNr">1479 </span> 05/add-to-eax 4/imm32 +<span id="L1480" class="LineNr">1480 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L1481" class="LineNr">1481 </span> 51/push-ecx +<span id="L1482" class="LineNr">1482 </span> 50/push-eax +<span id="L1483" class="LineNr">1483 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1484" class="LineNr">1484 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str)</span> +<span id="L1485" class="LineNr">1485 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1486" class="LineNr">1486 </span> 51/push-ecx +<span id="L1487" class="LineNr">1487 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1489" class="LineNr">1489 </span> e8/call <a href='sigils.subx.html#L1364'>emit-direct-mode</a>/disp32 +<span id="L1490" class="LineNr">1490 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1491" class="LineNr">1491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1492" class="LineNr">1492 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1493" class="LineNr">1493 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1494" class="LineNr">1494 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1495" class="LineNr">1495 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1496" class="LineNr">1496 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1497" class="LineNr">1497 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1498" class="LineNr">1498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1499" class="Folded">1499 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1525" class="LineNr">1525 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 0/rm32", msg)</span> +<span id="L1526" class="LineNr">1526 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1527" class="LineNr">1527 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1456'>test-emit-direct-mode</a>/0"</span>/imm32 +<span id="L1528" class="LineNr">1528 </span> 68/push <span class="Constant">"3/mod/direct 0x00000000/rm32"</span>/imm32 +<span id="L1529" class="LineNr">1529 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1531" class="LineNr">1531 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1532" class="LineNr">1532 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1533" class="LineNr">1533 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1534" class="LineNr">1534 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1535" class="LineNr">1535 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1536" class="LineNr">1536 </span> 5d/pop-to-ebp +<span id="L1537" class="LineNr">1537 </span> c3/return +<span id="L1538" class="LineNr">1538 </span> +<span id="L1539" class="LineNr">1539 </span><span class="subxTest">test-emit-direct-mode-2</span>: +<span id="L1540" class="LineNr">1540 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1541" class="LineNr">1541 </span> 55/push-ebp +<span id="L1542" class="LineNr">1542 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1543" class="LineNr">1543 </span> <span class="subxComment"># setup</span> +<span id="L1544" class="LineNr">1544 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1545" class="LineNr">1545 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1546" class="LineNr">1546 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1547" class="LineNr">1547 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1548" class="LineNr">1548 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1549" class="LineNr">1549 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1550" class="LineNr">1550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1551" class="LineNr">1551 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1552" class="LineNr">1552 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1553" class="LineNr">1553 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1554" class="LineNr">1554 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1555" class="LineNr">1555 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1556" class="LineNr">1556 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1557" class="LineNr">1557 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1558" class="LineNr">1558 </span> <span class="subxComment"># var slice/ecx = "%edi"</span> +<span id="L1559" class="LineNr">1559 </span> b8/copy-to-eax <span class="Constant">"%edi"</span>/imm32 +<span id="L1560" class="LineNr">1560 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L1561" class="LineNr">1561 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L1562" class="LineNr">1562 </span> 05/add-to-eax 4/imm32 +<span id="L1563" class="LineNr">1563 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L1564" class="LineNr">1564 </span> 51/push-ecx +<span id="L1565" class="LineNr">1565 </span> 50/push-eax +<span id="L1566" class="LineNr">1566 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1567" class="LineNr">1567 </span> <span class="subxComment"># emit-direct-mode(_test-output-buffered-file, str/ecx)</span> +<span id="L1568" class="LineNr">1568 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1569" class="LineNr">1569 </span> 51/push-ecx +<span id="L1570" class="LineNr">1570 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1571" class="LineNr">1571 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1572" class="LineNr">1572 </span> e8/call <a href='sigils.subx.html#L1364'>emit-direct-mode</a>/disp32 +<span id="L1573" class="LineNr">1573 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1574" class="LineNr">1574 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1575" class="LineNr">1575 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1577" class="LineNr">1577 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1579" class="LineNr">1579 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1580" class="LineNr">1580 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1581" class="LineNr">1581 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1582" class="Folded">1582 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1608" class="LineNr">1608 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "3/mod/direct 7/rm32", msg)</span> +<span id="L1609" class="LineNr">1609 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1610" class="LineNr">1610 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1456'>test-emit-direct-mode</a>/1"</span>/imm32 +<span id="L1611" class="LineNr">1611 </span> 68/push <span class="Constant">"3/mod/direct 0x00000007/rm32"</span>/imm32 +<span id="L1612" class="LineNr">1612 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1614" class="LineNr">1614 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L1615" class="LineNr">1615 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1616" class="LineNr">1616 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1617" class="LineNr">1617 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1618" class="LineNr">1618 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1619" class="LineNr">1619 </span> 5d/pop-to-ebp +<span id="L1620" class="LineNr">1620 </span> c3/return +<span id="L1621" class="LineNr">1621 </span> +<span id="L1622" class="LineNr">1622 </span><span class="subxComment"># (re)compute the bounds of the next word or parenthetical expression in the line</span> +<span id="L1623" class="LineNr">1623 </span><span class="subxComment"># return empty string on reaching end of file</span> +<span id="L1624" class="LineNr">1624 </span><span class="subxComment">#</span> +<span id="L1625" class="LineNr">1625 </span><span class="subxComment"># error messages considered:</span> +<span id="L1626" class="LineNr">1626 </span><span class="subxComment"># * ... -> error: no space after '*'</span> +<span id="L1627" class="LineNr">1627 </span><span class="subxComment"># *(... -> error: *(...) expression must be all on a single line</span> +<span id="L1628" class="LineNr">1628 </span><span class="subxFunction">next-word-or-expression</span>: <span class="subxComment"># line: (addr stream byte), out: (addr slice)</span> +<span id="L1629" class="LineNr">1629 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1630" class="LineNr">1630 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> +<span id="L1631" class="LineNr">1631 </span> <span class="subxComment"># if line->read >= line->write # end of line</span> +<span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># out = {0, 0}</span> +<span id="L1633" class="LineNr">1633 </span> <span class="subxComment"># return</span> +<span id="L1634" class="LineNr">1634 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L1635" class="LineNr">1635 </span> <span class="subxComment"># if line->data[line->read] == '#' # comment</span> +<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># out.end = &line->data[line->write]</span> +<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># return</span> +<span id="L1638" class="LineNr">1638 </span> <span class="subxComment"># if line->data[line->read] == '"' # string literal</span> +<span id="L1639" class="LineNr">1639 </span> <span class="subxComment"># skip-string(line)</span> +<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># else if line->data[line->read] == '*' # expression</span> +<span id="L1641" class="LineNr">1641 </span> <span class="subxComment"># if line->data[line->read + 1] == ' '</span> +<span id="L1642" class="LineNr">1642 </span> <span class="subxComment"># abort</span> +<span id="L1643" class="LineNr">1643 </span> <span class="subxComment"># if line->data[line->read + 1] == '('</span> +<span id="L1644" class="LineNr">1644 </span> <span class="subxComment"># skip-until-close-paren(line)</span> +<span id="L1645" class="LineNr">1645 </span> <span class="subxComment"># if (line->data[line->read] != ')'</span> +<span id="L1646" class="LineNr">1646 </span> <span class="subxComment"># abort</span> +<span id="L1647" class="LineNr">1647 </span> <span class="subxComment"># ++line->data[line->read] to skip ')'</span> +<span id="L1648" class="LineNr">1648 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line)</span> +<span id="L1649" class="LineNr">1649 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L1650" class="LineNr">1650 </span> <span class="subxComment">#</span> +<span id="L1651" class="LineNr">1651 </span> <span class="subxComment"># registers:</span> +<span id="L1652" class="LineNr">1652 </span> <span class="subxComment"># ecx: often line->read</span> +<span id="L1653" class="LineNr">1653 </span> <span class="subxComment"># eax: often line->data[line->read]</span> +<span id="L1654" class="LineNr">1654 </span> <span class="subxComment">#</span> +<span id="L1655" class="LineNr">1655 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1656" class="LineNr">1656 </span> 55/push-ebp +<span id="L1657" class="LineNr">1657 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1658" class="LineNr">1658 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1659" class="LineNr">1659 </span> 50/push-eax +<span id="L1660" class="LineNr">1660 </span> 51/push-ecx +<span id="L1661" class="LineNr">1661 </span> 56/push-esi +<span id="L1662" class="LineNr">1662 </span> 57/push-edi +<span id="L1663" class="LineNr">1663 </span> <span class="subxComment"># esi = line</span> +<span id="L1664" class="LineNr">1664 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L1665" class="LineNr">1665 </span> <span class="subxComment"># edi = out</span> +<span id="L1666" class="LineNr">1666 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to edi</span> +<span id="L1667" class="LineNr">1667 </span> <span class="subxComment"># skip-chars-matching(line, ' ')</span> +<span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1669" class="LineNr">1669 </span> 68/push 0x20/imm32/space +<span id="L1670" class="LineNr">1670 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1672" class="LineNr">1672 </span> e8/call <a href='124next-token.subx.html#L341'>skip-chars-matching</a>/disp32 +<span id="L1673" class="LineNr">1673 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1674" class="LineNr">1674 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1675" class="LineNr">1675 </span><span class="Constant">$next-word-or-expression:check0</span>: +<span id="L1676" class="LineNr">1676 </span> <span class="subxComment"># if (line->read >= line->write) clear out and return</span> +<span id="L1677" class="LineNr">1677 </span> <span class="subxS1Comment"># . ecx = line->read</span> +<span id="L1678" class="LineNr">1678 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L1679" class="LineNr">1679 </span> <span class="subxS1Comment"># . if (ecx < line->write) goto next check</span> +<span id="L1680" class="LineNr">1680 </span> 3b/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with *esi</span> +<span id="L1681" class="LineNr">1681 </span> 7c/jump-if-< $next-word-or-expression:check-for-comment/disp8 +<span id="L1682" class="LineNr">1682 </span> <span class="subxS1Comment"># . return out = {0, 0}</span> +<span id="L1683" class="LineNr">1683 </span> c7 0/subop/copy 0/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># copy to *edi</span> +<span id="L1684" class="LineNr">1684 </span> c7 0/subop/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 0/imm32 <span class="subxComment"># copy to *(edi+4)</span> +<span id="L1685" class="LineNr">1685 </span> e9/jump $next-word-or-expression:end/disp32 +<span id="L1686" class="LineNr">1686 </span><span class="Constant">$next-word-or-expression:check-for-comment</span>: +<span id="L1687" class="LineNr">1687 </span> <span class="subxComment"># out->start = &line->data[line->read]</span> +<span id="L1688" class="LineNr">1688 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L1689" class="LineNr">1689 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> +<span id="L1690" class="LineNr">1690 </span> <span class="subxComment"># if (line->data[line->read] != '#') goto next check</span> +<span id="L1691" class="LineNr">1691 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L1692" class="LineNr">1692 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1693" class="LineNr">1693 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L1694" class="LineNr">1694 </span> <span class="subxS1Comment"># . if (eax != '#') goto next check</span> +<span id="L1695" class="LineNr">1695 </span> 3d/compare-eax-and 0x23/imm32/pound +<span id="L1696" class="LineNr">1696 </span> 75/jump-if-!= $next-word-or-expression:check-for-string-literal/disp8 +<span id="L1697" class="LineNr">1697 </span><span class="Constant">$next-word-or-expression:comment</span>: +<span id="L1698" class="LineNr">1698 </span> <span class="subxComment"># out->end = &line->data[line->write]</span> +<span id="L1699" class="LineNr">1699 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1700" class="LineNr">1700 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L1701" class="LineNr">1701 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L1702" class="LineNr">1702 </span> <span class="subxComment"># line->read = line->write # skip rest of line</span> +<span id="L1703" class="LineNr">1703 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1704" class="LineNr">1704 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(esi+4)</span> +<span id="L1705" class="LineNr">1705 </span> <span class="subxComment"># return</span> +<span id="L1706" class="LineNr">1706 </span> eb/jump $next-word-or-expression:end/disp8 +<span id="L1707" class="LineNr">1707 </span><span class="Constant">$next-word-or-expression:check-for-string-literal</span>: +<span id="L1708" class="LineNr">1708 </span> <span class="subxComment"># if (line->data[line->read] != '"') goto next check</span> +<span id="L1709" class="LineNr">1709 </span> 3d/compare-eax-and 0x22/imm32/dquote +<span id="L1710" class="LineNr">1710 </span> 75/jump-if-!= $next-word-or-expression:check-for-expression/disp8 +<span id="L1711" class="LineNr">1711 </span><span class="Constant">$next-word-or-expression:string-literal</span>: +<span id="L1712" class="LineNr">1712 </span> <span class="subxComment"># skip-string(line)</span> +<span id="L1713" class="LineNr">1713 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1714" class="LineNr">1714 </span> 56/push-esi +<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1716" class="LineNr">1716 </span> e8/call <a href='124next-token.subx.html#L1171'>skip-string</a>/disp32 +<span id="L1717" class="LineNr">1717 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1718" class="LineNr">1718 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1719" class="LineNr">1719 </span> <span class="subxComment"># skip rest of word</span> +<span id="L1720" class="LineNr">1720 </span> eb/jump $next-word-or-expression:regular-word/disp8 +<span id="L1721" class="LineNr">1721 </span><span class="Constant">$next-word-or-expression:check-for-expression</span>: +<span id="L1722" class="LineNr">1722 </span> <span class="subxComment"># if (line->data[line->read] != '*') goto next check</span> +<span id="L1723" class="LineNr">1723 </span> 3d/compare-eax-and 0x2a/imm32/asterisk +<span id="L1724" class="LineNr">1724 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 +<span id="L1725" class="LineNr">1725 </span> <span class="subxComment"># if (line->data[line->read + 1] == ' ') goto error1</span> +<span id="L1726" class="LineNr">1726 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xd/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12+1) to AL</span> +<span id="L1727" class="LineNr">1727 </span> 3d/compare-eax-and 0x20/imm32/space +<span id="L1728" class="LineNr">1728 </span> 74/jump-if-= $next-word-or-expression:error1/disp8 +<span id="L1729" class="LineNr">1729 </span> <span class="subxComment"># if (line->data[line->read + 1] != '(') goto regular word</span> +<span id="L1730" class="LineNr">1730 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L1731" class="LineNr">1731 </span> 75/jump-if-!= $next-word-or-expression:regular-word/disp8 +<span id="L1732" class="LineNr">1732 </span><span class="Constant">$next-word-or-expression:paren</span>: +<span id="L1733" class="LineNr">1733 </span> <span class="subxComment"># skip-until-close-paren(line)</span> +<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1735" class="LineNr">1735 </span> 56/push-esi +<span id="L1736" class="LineNr">1736 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1737" class="LineNr">1737 </span> e8/call <a href='124next-token.subx.html#L1599'>skip-until-close-paren</a>/disp32 +<span id="L1738" class="LineNr">1738 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1739" class="LineNr">1739 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1740" class="LineNr">1740 </span> <span class="subxComment"># if (line->data[line->read] != ')') goto error2</span> +<span id="L1741" class="LineNr">1741 </span> <span class="subxS1Comment"># . eax = line->data[line->read]</span> +<span id="L1742" class="LineNr">1742 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L1743" class="LineNr">1743 </span> 8a/copy-byte 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/AL 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *(esi+ecx+12) to AL</span> +<span id="L1744" class="LineNr">1744 </span> <span class="subxS1Comment"># . if (eax != ')') goto error2</span> +<span id="L1745" class="LineNr">1745 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L1746" class="LineNr">1746 </span> 75/jump-if-!= $next-word-or-expression:error2/disp8 +<span id="L1747" class="LineNr">1747 </span> <span class="subxComment"># skip ')'</span> +<span id="L1748" class="LineNr">1748 </span> ff 0/subop/increment 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># increment *(esi+4)</span> +<span id="L1749" class="LineNr">1749 </span> <span class="subxComment"># fall through</span> +<span id="L1750" class="LineNr">1750 </span><span class="Constant">$next-word-or-expression:regular-word</span>: +<span id="L1751" class="LineNr">1751 </span> <span class="subxComment"># skip-chars-not-matching-whitespace(line) # including trailing newline</span> +<span id="L1752" class="LineNr">1752 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1753" class="LineNr">1753 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1754" class="LineNr">1754 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1755" class="LineNr">1755 </span> e8/call <a href='124next-token.subx.html#L716'>skip-chars-not-matching-whitespace</a>/disp32 +<span id="L1756" class="LineNr">1756 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1757" class="LineNr">1757 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1758" class="LineNr">1758 </span> <span class="subxComment"># out->end = &line->data[line->read]</span> +<span id="L1759" class="LineNr">1759 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to ecx</span> +<span id="L1760" class="LineNr">1760 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to eax</span> +<span id="L1761" class="LineNr">1761 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L1762" class="LineNr">1762 </span><span class="Constant">$next-word-or-expression:end</span>: +<span id="L1763" class="LineNr">1763 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1764" class="LineNr">1764 </span> 5f/pop-to-edi +<span id="L1765" class="LineNr">1765 </span> 5e/pop-to-esi +<span id="L1766" class="LineNr">1766 </span> 59/pop-to-ecx +<span id="L1767" class="LineNr">1767 </span> 58/pop-to-eax +<span id="L1768" class="LineNr">1768 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1769" class="LineNr">1769 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1770" class="LineNr">1770 </span> 5d/pop-to-ebp +<span id="L1771" class="LineNr">1771 </span> c3/return +<span id="L1772" class="LineNr">1772 </span> +<span id="L1773" class="LineNr">1773 </span><span class="Constant">$next-word-or-expression:error1</span>: +<span id="L1774" class="LineNr">1774 </span> <span class="subxComment"># print(stderr, "error: no space allowed after '*' in '" line "'")</span> +<span id="L1775" class="LineNr">1775 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: no space allowed after '*' in '")</span> +<span id="L1776" class="LineNr">1776 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1777" class="LineNr">1777 </span> 68/push <span class="Constant">"error: no space allowed after '*' in '"</span>/imm32 +<span id="L1778" class="LineNr">1778 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1780" class="LineNr">1780 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1781" class="LineNr">1781 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1782" class="LineNr">1782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1783" class="LineNr">1783 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1784" class="LineNr">1784 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1785" class="LineNr">1785 </span> 56/push-esi +<span id="L1786" class="LineNr">1786 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1787" class="LineNr">1787 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1788" class="LineNr">1788 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1789" class="LineNr">1789 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1790" class="LineNr">1790 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1791" class="LineNr">1791 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1792" class="LineNr">1792 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1793" class="LineNr">1793 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1794" class="LineNr">1794 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1795" class="LineNr">1795 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1796" class="LineNr">1796 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1798" class="LineNr">1798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1799" class="LineNr">1799 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1800" class="LineNr">1800 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1801" class="LineNr">1801 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1802" class="LineNr">1802 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1803" class="LineNr">1803 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1804" class="LineNr">1804 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1805" class="LineNr">1805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1806" class="LineNr">1806 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1807" class="LineNr">1807 </span> bb/copy-to-ebx 1/imm32 +<span id="L1808" class="LineNr">1808 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1809" class="LineNr">1809 </span> <span class="subxComment"># never gets here</span> +<span id="L1810" class="LineNr">1810 </span> +<span id="L1811" class="LineNr">1811 </span><span class="Constant">$next-word-or-expression:error2</span>: +<span id="L1812" class="LineNr">1812 </span> <span class="subxComment"># print(stderr, "error: *(...) expression must be all on a single line in '" line "'")</span> +<span id="L1813" class="LineNr">1813 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: *(...) expression must be all on a single line in '")</span> +<span id="L1814" class="LineNr">1814 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1815" class="LineNr">1815 </span> 68/push <span class="Constant">"error: *(...) expression must be all on a single line in '"</span>/imm32 +<span id="L1816" class="LineNr">1816 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1817" class="LineNr">1817 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1818" class="LineNr">1818 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1819" class="LineNr">1819 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1820" class="LineNr">1820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1821" class="LineNr">1821 </span> <span class="subxS1Comment"># . write-stream-data(Stderr, line)</span> +<span id="L1822" class="LineNr">1822 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1823" class="LineNr">1823 </span> 56/push-esi +<span id="L1824" class="LineNr">1824 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1826" class="LineNr">1826 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L1827" class="LineNr">1827 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1828" class="LineNr">1828 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1829" class="LineNr">1829 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "'")</span> +<span id="L1830" class="LineNr">1830 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1831" class="LineNr">1831 </span> 68/push <span class="Constant">"'"</span>/imm32 +<span id="L1832" class="LineNr">1832 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1833" class="LineNr">1833 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1834" class="LineNr">1834 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1835" class="LineNr">1835 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1836" class="LineNr">1836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1837" class="LineNr">1837 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1838" class="LineNr">1838 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1839" class="LineNr">1839 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1840" class="LineNr">1840 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1841" class="LineNr">1841 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1842" class="LineNr">1842 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1843" class="LineNr">1843 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1844" class="LineNr">1844 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1845" class="LineNr">1845 </span> bb/copy-to-ebx 1/imm32 +<span id="L1846" class="LineNr">1846 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1847" class="LineNr">1847 </span> <span class="subxComment"># never gets here</span> +<span id="L1848" class="LineNr">1848 </span> +<span id="L1849" class="LineNr">1849 </span><span class="subxTest">test-next-word-or-expression</span>: +<span id="L1850" class="LineNr">1850 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1851" class="LineNr">1851 </span> 55/push-ebp +<span id="L1852" class="LineNr">1852 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1853" class="LineNr">1853 </span> <span class="subxComment"># setup</span> +<span id="L1854" class="LineNr">1854 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1855" class="LineNr">1855 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1856" class="LineNr">1856 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1857" class="LineNr">1857 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1858" class="LineNr">1858 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1859" class="LineNr">1859 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1860" class="LineNr">1860 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1861" class="LineNr">1861 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1862" class="LineNr">1862 </span> 68/push 0/imm32/end +<span id="L1863" class="LineNr">1863 </span> 68/push 0/imm32/start +<span id="L1864" class="LineNr">1864 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1865" class="LineNr">1865 </span> <span class="subxComment"># write(_test-input-stream, " ab")</span> +<span id="L1866" class="LineNr">1866 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1867" class="LineNr">1867 </span> 68/push <span class="Constant">" ab"</span>/imm32 +<span id="L1868" class="LineNr">1868 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1869" class="LineNr">1869 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1870" class="LineNr">1870 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1871" class="LineNr">1871 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1872" class="LineNr">1872 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1873" class="LineNr">1873 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L1874" class="LineNr">1874 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1875" class="LineNr">1875 </span> 51/push-ecx +<span id="L1876" class="LineNr">1876 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1877" class="LineNr">1877 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1878" class="LineNr">1878 </span> e8/call <a href='sigils.subx.html#L1628'>next-word-or-expression</a>/disp32 +<span id="L1879" class="LineNr">1879 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1880" class="LineNr">1880 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1881" class="LineNr">1881 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 4, msg)</span> +<span id="L1882" class="LineNr">1882 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1883" class="LineNr">1883 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1849'>test-next-word-or-expression</a>/updates-stream-read-correctly"</span>/imm32 +<span id="L1884" class="LineNr">1884 </span> 68/push 4/imm32 +<span id="L1885" class="LineNr">1885 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1886" class="LineNr">1886 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1887" class="LineNr">1887 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1888" class="LineNr">1888 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1889" class="LineNr">1889 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1890" class="LineNr">1890 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1891" class="LineNr">1891 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> +<span id="L1892" class="LineNr">1892 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> +<span id="L1893" class="LineNr">1893 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1894" class="LineNr">1894 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1849'>test-next-word-or-expression</a>: start"</span>/imm32 +<span id="L1895" class="LineNr">1895 </span> 68/push 0xe/imm32 +<span id="L1896" class="LineNr">1896 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1897" class="LineNr">1897 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L1898" class="LineNr">1898 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1899" class="LineNr">1899 </span> 50/push-eax +<span id="L1900" class="LineNr">1900 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1901" class="LineNr">1901 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1902" class="LineNr">1902 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1903" class="LineNr">1903 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1904" class="LineNr">1904 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 4, msg)</span> +<span id="L1905" class="LineNr">1905 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 16, msg)</span> +<span id="L1906" class="LineNr">1906 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1907" class="LineNr">1907 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1849'>test-next-word-or-expression</a>: end"</span>/imm32 +<span id="L1908" class="LineNr">1908 </span> 68/push 0x10/imm32 +<span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1910" class="LineNr">1910 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L1911" class="LineNr">1911 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1912" class="LineNr">1912 </span> 50/push-eax +<span id="L1913" class="LineNr">1913 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1914" class="LineNr">1914 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1915" class="LineNr">1915 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1916" class="LineNr">1916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1917" class="LineNr">1917 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1918" class="LineNr">1918 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1919" class="LineNr">1919 </span> 5d/pop-to-ebp +<span id="L1920" class="LineNr">1920 </span> c3/return +<span id="L1921" class="LineNr">1921 </span> +<span id="L1922" class="LineNr">1922 </span><span class="subxTest">test-next-word-or-expression-returns-whole-comment</span>: +<span id="L1923" class="LineNr">1923 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1924" class="LineNr">1924 </span> 55/push-ebp +<span id="L1925" class="LineNr">1925 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1926" class="LineNr">1926 </span> <span class="subxComment"># setup</span> +<span id="L1927" class="LineNr">1927 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1928" class="LineNr">1928 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1929" class="LineNr">1929 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1930" class="LineNr">1930 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1931" class="LineNr">1931 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1932" class="LineNr">1932 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1933" class="LineNr">1933 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1934" class="LineNr">1934 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L1935" class="LineNr">1935 </span> 68/push 0/imm32/end +<span id="L1936" class="LineNr">1936 </span> 68/push 0/imm32/start +<span id="L1937" class="LineNr">1937 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1938" class="LineNr">1938 </span> <span class="subxComment"># write(_test-input-stream, " # a")</span> +<span id="L1939" class="LineNr">1939 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1940" class="LineNr">1940 </span> 68/push <span class="Constant">" # a"</span>/imm32 +<span id="L1941" class="LineNr">1941 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1942" class="LineNr">1942 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1943" class="LineNr">1943 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1944" class="LineNr">1944 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1945" class="LineNr">1945 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1946" class="LineNr">1946 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L1947" class="LineNr">1947 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1948" class="LineNr">1948 </span> 51/push-ecx +<span id="L1949" class="LineNr">1949 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1950" class="LineNr">1950 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1951" class="LineNr">1951 </span> e8/call <a href='sigils.subx.html#L1628'>next-word-or-expression</a>/disp32 +<span id="L1952" class="LineNr">1952 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1953" class="LineNr">1953 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1954" class="LineNr">1954 </span> <span class="subxComment"># check-ints-equal(_test-input-stream->read, 5, msg)</span> +<span id="L1955" class="LineNr">1955 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1956" class="LineNr">1956 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1922'>test-next-word-or-expression-returns-whole-comment</a>/updates-stream-read-correctly"</span>/imm32 +<span id="L1957" class="LineNr">1957 </span> 68/push 5/imm32 +<span id="L1958" class="LineNr">1958 </span> b8/copy-to-eax <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1959" class="LineNr">1959 </span> ff 6/subop/push 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(eax+4)</span> +<span id="L1960" class="LineNr">1960 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1961" class="LineNr">1961 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1962" class="LineNr">1962 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1963" class="LineNr">1963 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1964" class="LineNr">1964 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 2, msg)</span> +<span id="L1965" class="LineNr">1965 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 14, msg)</span> +<span id="L1966" class="LineNr">1966 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1967" class="LineNr">1967 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1922'>test-next-word-or-expression-returns-whole-comment</a>: start"</span>/imm32 +<span id="L1968" class="LineNr">1968 </span> 68/push 0xe/imm32 +<span id="L1969" class="LineNr">1969 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L1970" class="LineNr">1970 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L1971" class="LineNr">1971 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1972" class="LineNr">1972 </span> 50/push-eax +<span id="L1973" class="LineNr">1973 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1974" class="LineNr">1974 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1975" class="LineNr">1975 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1976" class="LineNr">1976 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1977" class="LineNr">1977 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 5, msg)</span> +<span id="L1978" class="LineNr">1978 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 17, msg)</span> +<span id="L1979" class="LineNr">1979 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1980" class="LineNr">1980 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L1922'>test-next-word-or-expression-returns-whole-comment</a>: end"</span>/imm32 +<span id="L1981" class="LineNr">1981 </span> 68/push 0x11/imm32 +<span id="L1982" class="LineNr">1982 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L1983" class="LineNr">1983 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L1984" class="LineNr">1984 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L1985" class="LineNr">1985 </span> 50/push-eax +<span id="L1986" class="LineNr">1986 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1987" class="LineNr">1987 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1988" class="LineNr">1988 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1989" class="LineNr">1989 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1990" class="LineNr">1990 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1991" class="LineNr">1991 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1992" class="LineNr">1992 </span> 5d/pop-to-ebp +<span id="L1993" class="LineNr">1993 </span> c3/return +<span id="L1994" class="LineNr">1994 </span> +<span id="L1995" class="LineNr">1995 </span><span class="subxTest">test-next-word-or-expression-returns-empty-slice-on-eof</span>: +<span id="L1996" class="LineNr">1996 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1997" class="LineNr">1997 </span> 55/push-ebp +<span id="L1998" class="LineNr">1998 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1999" class="LineNr">1999 </span> <span class="subxComment"># setup</span> +<span id="L2000" class="LineNr">2000 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2001" class="LineNr">2001 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2002" class="LineNr">2002 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2003" class="LineNr">2003 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2004" class="LineNr">2004 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2005" class="LineNr">2005 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2006" class="LineNr">2006 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2007" class="LineNr">2007 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2008" class="LineNr">2008 </span> 68/push 0/imm32/end +<span id="L2009" class="LineNr">2009 </span> 68/push 0/imm32/start +<span id="L2010" class="LineNr">2010 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2011" class="LineNr">2011 </span> <span class="subxComment"># write nothing to _test-input-stream</span> +<span id="L2012" class="LineNr">2012 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2013" class="LineNr">2013 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2014" class="LineNr">2014 </span> 51/push-ecx +<span id="L2015" class="LineNr">2015 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2016" class="LineNr">2016 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2017" class="LineNr">2017 </span> e8/call <a href='sigils.subx.html#L1628'>next-word-or-expression</a>/disp32 +<span id="L2018" class="LineNr">2018 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2019" class="LineNr">2019 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2020" class="LineNr">2020 </span> <span class="subxComment"># check-ints-equal(slice->end - slice->start, 0, msg)</span> +<span id="L2021" class="LineNr">2021 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2022" class="LineNr">2022 </span> 68/push <span class="Constant">"F - test-next-word-or-expression-returns-empty-expression-on-eof"</span>/imm32 +<span id="L2023" class="LineNr">2023 </span> 68/push 0/imm32 +<span id="L2024" class="LineNr">2024 </span> <span class="subxS2Comment"># . . push slice->end - slice->start</span> +<span id="L2025" class="LineNr">2025 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2026" class="LineNr">2026 </span> 2b/subtract 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *ecx from eax</span> +<span id="L2027" class="LineNr">2027 </span> 50/push-eax +<span id="L2028" class="LineNr">2028 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2029" class="LineNr">2029 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2030" class="LineNr">2030 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2031" class="LineNr">2031 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2032" class="LineNr">2032 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2033" class="LineNr">2033 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2034" class="LineNr">2034 </span> 5d/pop-to-ebp +<span id="L2035" class="LineNr">2035 </span> c3/return +<span id="L2036" class="LineNr">2036 </span> +<span id="L2037" class="LineNr">2037 </span><span class="subxTest">test-next-word-or-expression-returns-string-literal</span>: +<span id="L2038" class="LineNr">2038 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2039" class="LineNr">2039 </span> 55/push-ebp +<span id="L2040" class="LineNr">2040 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2041" class="LineNr">2041 </span> <span class="subxComment"># setup</span> +<span id="L2042" class="LineNr">2042 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2043" class="LineNr">2043 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2044" class="LineNr">2044 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2045" class="LineNr">2045 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2046" class="LineNr">2046 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2047" class="LineNr">2047 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2048" class="LineNr">2048 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2049" class="LineNr">2049 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2050" class="LineNr">2050 </span> 68/push 0/imm32/end +<span id="L2051" class="LineNr">2051 </span> 68/push 0/imm32/start +<span id="L2052" class="LineNr">2052 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2053" class="LineNr">2053 </span> <span class="subxComment"># write(_test-input-stream, " \"a b\"/imm32 ")</span> +<span id="L2054" class="LineNr">2054 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2055" class="LineNr">2055 </span> 68/push <span class="Constant">" \"</span>a b\<span class="Constant">"/imm32 "</span>/imm32 +<span id="L2056" class="LineNr">2056 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2057" class="LineNr">2057 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2058" class="LineNr">2058 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2059" class="LineNr">2059 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2060" class="LineNr">2060 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2061" class="LineNr">2061 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2062" class="LineNr">2062 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2063" class="LineNr">2063 </span> 51/push-ecx +<span id="L2064" class="LineNr">2064 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2065" class="LineNr">2065 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2066" class="LineNr">2066 </span> e8/call <a href='sigils.subx.html#L1628'>next-word-or-expression</a>/disp32 +<span id="L2067" class="LineNr">2067 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2068" class="LineNr">2068 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2069" class="LineNr">2069 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L2070" class="LineNr">2070 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L2071" class="LineNr">2071 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2072" class="LineNr">2072 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2037'>test-next-word-or-expression-returns-string-literal</a>: start"</span>/imm32 +<span id="L2073" class="LineNr">2073 </span> 68/push 0xd/imm32 +<span id="L2074" class="LineNr">2074 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L2075" class="LineNr">2075 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L2076" class="LineNr">2076 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2077" class="LineNr">2077 </span> 50/push-eax +<span id="L2078" class="LineNr">2078 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2079" class="LineNr">2079 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2080" class="LineNr">2080 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2081" class="LineNr">2081 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2082" class="LineNr">2082 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 12, msg)</span> +<span id="L2083" class="LineNr">2083 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 24, msg)</span> +<span id="L2084" class="LineNr">2084 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2085" class="LineNr">2085 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2037'>test-next-word-or-expression-returns-string-literal</a>: end"</span>/imm32 +<span id="L2086" class="LineNr">2086 </span> 68/push 0x18/imm32 +<span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L2088" class="LineNr">2088 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2089" class="LineNr">2089 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2090" class="LineNr">2090 </span> 50/push-eax +<span id="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2092" class="LineNr">2092 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2093" class="LineNr">2093 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2094" class="LineNr">2094 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2095" class="LineNr">2095 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2096" class="LineNr">2096 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2097" class="LineNr">2097 </span> 5d/pop-to-ebp +<span id="L2098" class="LineNr">2098 </span> c3/return +<span id="L2099" class="LineNr">2099 </span> +<span id="L2100" class="LineNr">2100 </span><span class="subxTest">test-next-word-or-expression-returns-string-with-escapes</span>: +<span id="L2101" class="LineNr">2101 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2102" class="LineNr">2102 </span> 55/push-ebp +<span id="L2103" class="LineNr">2103 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2104" class="LineNr">2104 </span> <span class="subxComment"># setup</span> +<span id="L2105" class="LineNr">2105 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2106" class="LineNr">2106 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2107" class="LineNr">2107 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2108" class="LineNr">2108 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2109" class="LineNr">2109 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2110" class="LineNr">2110 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2111" class="LineNr">2111 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2112" class="LineNr">2112 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2113" class="LineNr">2113 </span> 68/push 0/imm32/end +<span id="L2114" class="LineNr">2114 </span> 68/push 0/imm32/start +<span id="L2115" class="LineNr">2115 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2116" class="LineNr">2116 </span> <span class="subxComment"># write(_test-input-stream, " \"a\\\"b\"/x")</span> +<span id="L2117" class="LineNr">2117 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2118" class="LineNr">2118 </span> 68/push <span class="Constant">" \"</span>a\\\<span class="Constant">"b\"</span>/x"/imm32 +<span id="L2119" class="LineNr">2119 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2120" class="LineNr">2120 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2121" class="LineNr">2121 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2122" class="LineNr">2122 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2123" class="LineNr">2123 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2124" class="LineNr">2124 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2125" class="LineNr">2125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2126" class="LineNr">2126 </span> 51/push-ecx +<span id="L2127" class="LineNr">2127 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2128" class="LineNr">2128 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2129" class="LineNr">2129 </span> e8/call <a href='sigils.subx.html#L1628'>next-word-or-expression</a>/disp32 +<span id="L2130" class="LineNr">2130 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2131" class="LineNr">2131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2132" class="LineNr">2132 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L2133" class="LineNr">2133 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L2134" class="LineNr">2134 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2135" class="LineNr">2135 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2100'>test-next-word-or-expression-returns-string-with-escapes</a>: start"</span>/imm32 +<span id="L2136" class="LineNr">2136 </span> 68/push 0xd/imm32 +<span id="L2137" class="LineNr">2137 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L2138" class="LineNr">2138 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L2139" class="LineNr">2139 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2140" class="LineNr">2140 </span> 50/push-eax +<span id="L2141" class="LineNr">2141 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2142" class="LineNr">2142 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2143" class="LineNr">2143 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2144" class="LineNr">2144 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2145" class="LineNr">2145 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 9, msg)</span> +<span id="L2146" class="LineNr">2146 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 21, msg)</span> +<span id="L2147" class="LineNr">2147 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2148" class="LineNr">2148 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2100'>test-next-word-or-expression-returns-string-with-escapes</a>: end"</span>/imm32 +<span id="L2149" class="LineNr">2149 </span> 68/push 0x15/imm32 +<span id="L2150" class="LineNr">2150 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L2151" class="LineNr">2151 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2152" class="LineNr">2152 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2153" class="LineNr">2153 </span> 50/push-eax +<span id="L2154" class="LineNr">2154 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2155" class="LineNr">2155 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2156" class="LineNr">2156 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2157" class="LineNr">2157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2158" class="LineNr">2158 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2159" class="LineNr">2159 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2160" class="LineNr">2160 </span> 5d/pop-to-ebp +<span id="L2161" class="LineNr">2161 </span> c3/return +<span id="L2162" class="LineNr">2162 </span> +<span id="L2163" class="LineNr">2163 </span><span class="subxTest">test-next-word-or-expression-returns-whole-expression</span>: +<span id="L2164" class="LineNr">2164 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2165" class="LineNr">2165 </span> 55/push-ebp +<span id="L2166" class="LineNr">2166 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2167" class="LineNr">2167 </span> <span class="subxComment"># setup</span> +<span id="L2168" class="LineNr">2168 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2169" class="LineNr">2169 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2170" class="LineNr">2170 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2171" class="LineNr">2171 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2172" class="LineNr">2172 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2173" class="LineNr">2173 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2174" class="LineNr">2174 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2175" class="LineNr">2175 </span> <span class="subxComment"># var slice/ecx: slice</span> +<span id="L2176" class="LineNr">2176 </span> 68/push 0/imm32/end +<span id="L2177" class="LineNr">2177 </span> 68/push 0/imm32/start +<span id="L2178" class="LineNr">2178 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2179" class="LineNr">2179 </span> <span class="subxComment"># write(_test-input-stream, " *(a b)/imm32 ")</span> +<span id="L2180" class="LineNr">2180 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2181" class="LineNr">2181 </span> 68/push <span class="Constant">" *(a b)/imm32 "</span>/imm32 +<span id="L2182" class="LineNr">2182 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2183" class="LineNr">2183 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2184" class="LineNr">2184 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2185" class="LineNr">2185 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2186" class="LineNr">2186 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2187" class="LineNr">2187 </span> <span class="subxComment"># next-word-or-expression(_test-input-stream, slice)</span> +<span id="L2188" class="LineNr">2188 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2189" class="LineNr">2189 </span> 51/push-ecx +<span id="L2190" class="LineNr">2190 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2191" class="LineNr">2191 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2192" class="LineNr">2192 </span> e8/call <a href='sigils.subx.html#L1628'>next-word-or-expression</a>/disp32 +<span id="L2193" class="LineNr">2193 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2194" class="LineNr">2194 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2195" class="LineNr">2195 </span> <span class="subxComment"># check-ints-equal(slice->start - _test-input-stream->data, 1, msg)</span> +<span id="L2196" class="LineNr">2196 </span> <span class="subxS1Comment"># . check-ints-equal(slice->start - _test-input-stream, 13, msg)</span> +<span id="L2197" class="LineNr">2197 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2198" class="LineNr">2198 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2163'>test-next-word-or-expression-returns-whole-expression</a>: start"</span>/imm32 +<span id="L2199" class="LineNr">2199 </span> 68/push 0xd/imm32 +<span id="L2200" class="LineNr">2200 </span> <span class="subxS2Comment"># . . push slice->start - _test-input-stream</span> +<span id="L2201" class="LineNr">2201 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L2202" class="LineNr">2202 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2203" class="LineNr">2203 </span> 50/push-eax +<span id="L2204" class="LineNr">2204 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2205" class="LineNr">2205 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2206" class="LineNr">2206 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2207" class="LineNr">2207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2208" class="LineNr">2208 </span> <span class="subxComment"># check-ints-equal(slice->end - _test-input-stream->data, 13, msg)</span> +<span id="L2209" class="LineNr">2209 </span> <span class="subxS1Comment"># . check-ints-equal(slice->end - _test-input-stream, 25, msg)</span> +<span id="L2210" class="LineNr">2210 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2211" class="LineNr">2211 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2163'>test-next-word-or-expression-returns-whole-expression</a>: end"</span>/imm32 +<span id="L2212" class="LineNr">2212 </span> 68/push 0x19/imm32 +<span id="L2213" class="LineNr">2213 </span> <span class="subxS2Comment"># . . push slice->end - _test-input-stream</span> +<span id="L2214" class="LineNr">2214 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to eax</span> +<span id="L2215" class="LineNr">2215 </span> 81 5/subop/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span class="subxComment"># subtract from eax</span> +<span id="L2216" class="LineNr">2216 </span> 50/push-eax +<span id="L2217" class="LineNr">2217 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2218" class="LineNr">2218 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2219" class="LineNr">2219 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2220" class="LineNr">2220 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2221" class="LineNr">2221 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2222" class="LineNr">2222 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2223" class="LineNr">2223 </span> 5d/pop-to-ebp +<span id="L2224" class="LineNr">2224 </span> c3/return +<span id="L2225" class="LineNr">2225 </span> +<span id="L2226" class="LineNr">2226 </span><span class="subxComment"># Grammar:</span> +<span id="L2227" class="LineNr">2227 </span><span class="subxComment"># *reg -> 0/mod reg/rm32</span> +<span id="L2228" class="LineNr">2228 </span><span class="subxComment"># *(reg) -> 0/mod reg/rm32</span> +<span id="L2229" class="LineNr">2229 </span><span class="subxComment"># *(reg+disp) -> 2/mod reg/rm32 disp/disp32</span> +<span id="L2230" class="LineNr">2230 </span><span class="subxComment"># *(reg1+reg2<<s) -> 2/mod 4/rm32 reg1/base reg2/index s/scale 0/disp32</span> +<span id="L2231" class="LineNr">2231 </span><span class="subxComment"># *(reg1+reg2<<s+disp) -> 2/mod 4/rm32 reg1/base reg2/index s/scale disp/disp32</span> +<span id="L2232" class="LineNr">2232 </span><span class="subxComment"># Intermediate structure: base, index, scale, disp</span> +<span id="L2233" class="LineNr">2233 </span><span class="subxComment"># Default values: base: 0, index: 4 (none), scale: 0, disp: 0</span> +<span id="L2234" class="LineNr">2234 </span><span class="subxFunction">parse-effective-address</span>: <span class="subxComment"># word-slice: (addr slice) -> base/eax, index/ecx, scale/edx, disp/ebx</span> +<span id="L2235" class="LineNr">2235 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2236" class="LineNr">2236 </span> <span class="subxComment"># var local-slice = {word-slice->start, word-slice->end}</span> +<span id="L2237" class="LineNr">2237 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L2238" class="LineNr">2238 </span> <span class="subxComment"># initialize defaults: base=0, index=4, scale=0, disp=0</span> +<span id="L2239" class="LineNr">2239 </span> <span class="subxComment"># if (*local-slice->start != '(') {</span> +<span id="L2240" class="LineNr">2240 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L2241" class="LineNr">2241 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L2242" class="LineNr">2242 </span> <span class="subxComment"># return</span> +<span id="L2243" class="LineNr">2243 </span> <span class="subxComment"># }</span> +<span id="L2244" class="LineNr">2244 </span> <span class="subxComment"># # compound expressions</span> <span id="L2245" class="LineNr">2245 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2246" class="LineNr">2246 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2247" class="LineNr">2247 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> -<span id="L2248" class="LineNr">2248 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> -<span id="L2249" class="LineNr">2249 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> -<span id="L2250" class="LineNr">2250 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2251" class="LineNr">2251 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> -<span id="L2252" class="LineNr">2252 </span> <span class="subxComment"># read register into index</span> -<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2254" class="LineNr">2254 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># if (*local-slice->start == '<') {</span> -<span id="L2256" class="LineNr">2256 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> +<span id="L2246" class="LineNr">2246 </span> <span class="subxComment"># read register into base</span> +<span id="L2247" class="LineNr">2247 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2248" class="LineNr">2248 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2249" class="LineNr">2249 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> +<span id="L2250" class="LineNr">2250 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> +<span id="L2251" class="LineNr">2251 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> +<span id="L2252" class="LineNr">2252 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2253" class="LineNr">2253 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> +<span id="L2254" class="LineNr">2254 </span> <span class="subxComment"># read register into index</span> +<span id="L2255" class="LineNr">2255 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2256" class="LineNr">2256 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2257" class="LineNr">2257 </span> <span class="subxComment"># if (*local-slice->start == '<') {</span> <span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2259" class="LineNr">2259 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># read integer into scale</span> +<span id="L2259" class="LineNr">2259 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> +<span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> <span id="L2261" class="LineNr">2261 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2262" class="LineNr">2262 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2263" class="LineNr">2263 </span> <span class="subxComment"># }</span> -<span id="L2264" class="LineNr">2264 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> -<span id="L2265" class="LineNr">2265 </span> <span class="subxComment"># displacement:</span> -<span id="L2266" class="LineNr">2266 </span> <span class="subxComment"># read integer into disp</span> -<span id="L2267" class="LineNr">2267 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2268" class="LineNr">2268 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> -<span id="L2269" class="LineNr">2269 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2270" class="LineNr">2270 </span> 55/push-ebp -<span id="L2271" class="LineNr">2271 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2272" class="LineNr">2272 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2273" class="LineNr">2273 </span> 56/push-esi -<span id="L2274" class="LineNr">2274 </span> 57/push-edi -<span id="L2275" class="LineNr">2275 </span> <span class="subxComment"># var local-slice/esi: slice = {word-slice->start, word-slice->end}</span> -<span id="L2276" class="LineNr">2276 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L2277" class="LineNr">2277 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2278" class="LineNr">2278 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2279" class="LineNr">2279 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L2280" class="LineNr">2280 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L2281" class="LineNr">2281 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2282" class="LineNr">2282 </span> <span class="subxComment"># initialize defaults</span> -<span id="L2283" class="LineNr">2283 </span> <span class="subxComment"># base is in edi; we'll move it to eax just before we return</span> -<span id="L2284" class="LineNr">2284 </span> bf/copy-to-edi 0/imm32 -<span id="L2285" class="LineNr">2285 </span> b9/copy-to-ecx 4/imm32/no-index -<span id="L2286" class="LineNr">2286 </span> ba/copy-to-edx 0/imm32/.scale -<span id="L2287" class="LineNr">2287 </span> bb/copy-to-ebx 0/imm32/disp -<span id="L2288" class="LineNr">2288 </span><span class="Constant">$parse-effective-address:check-for-simple-register</span>: -<span id="L2289" class="LineNr">2289 </span> <span class="subxComment"># if (*local-slice->start == '(') goto compound expression</span> -<span id="L2290" class="LineNr">2290 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L2291" class="LineNr">2291 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2292" class="LineNr">2292 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2293" class="LineNr">2293 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L2294" class="LineNr">2294 </span> 74/jump-if-= $parse-effective-address:compound-expression/disp8 -<span id="L2295" class="LineNr">2295 </span><span class="Constant">$parse-effective-address:simple-register</span>: -<span id="L2296" class="LineNr">2296 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L2297" class="LineNr">2297 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2298" class="LineNr">2298 </span> 56/push-esi -<span id="L2299" class="LineNr">2299 </span> 68/push 0x2f/imm32/slash -<span id="L2300" class="LineNr">2300 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2301" class="LineNr">2301 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2302" class="LineNr">2302 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2303" class="LineNr">2303 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L2304" class="LineNr">2304 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2305" class="LineNr">2305 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2306" class="LineNr">2306 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L2307" class="LineNr">2307 </span> <span class="subxS1Comment"># . eax = get-slice(Registers, local-slice, row-size=12)</span> -<span id="L2308" class="LineNr">2308 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2309" class="LineNr">2309 </span> 68/push <span class="Constant">"Registers"</span>/imm32 -<span id="L2310" class="LineNr">2310 </span> 68/push 0xc/imm32/row-size -<span id="L2311" class="LineNr">2311 </span> 56/push-esi -<span id="L2312" class="LineNr">2312 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L2313" class="LineNr">2313 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2314" class="LineNr">2314 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L2315" class="LineNr">2315 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2316" class="LineNr">2316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2317" class="LineNr">2317 </span> <span class="subxS1Comment"># . base = *eax</span> -<span id="L2318" class="LineNr">2318 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> -<span id="L2319" class="LineNr">2319 </span> <span class="subxComment"># return</span> -<span id="L2320" class="LineNr">2320 </span> e9/jump $parse-effective-address:end/disp32 -<span id="L2321" class="LineNr">2321 </span><span class="Constant">$parse-effective-address:compound-expression</span>: -<span id="L2322" class="LineNr">2322 </span> <span class="subxComment"># ++local-slice->start to skip '('</span> -<span id="L2323" class="LineNr">2323 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2324" class="LineNr">2324 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2325" class="LineNr">2325 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2326" class="LineNr">2326 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2327" class="LineNr">2327 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2328" class="LineNr">2328 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2329" class="LineNr">2329 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2330" class="LineNr">2330 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2331" class="LineNr">2331 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2332" class="LineNr">2332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2333" class="LineNr">2333 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2334" class="LineNr">2334 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2335" class="LineNr">2335 </span> <span class="subxComment"># read register into base</span> -<span id="L2336" class="LineNr">2336 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> -<span id="L2337" class="LineNr">2337 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2338" class="LineNr">2338 </span> 56/push-esi -<span id="L2339" class="LineNr">2339 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2340" class="LineNr">2340 </span> e8/call <a href='sigils.subx.html#L2691'>next-register</a>/disp32 -<span id="L2341" class="LineNr">2341 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2342" class="LineNr">2342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2343" class="LineNr">2343 </span> <span class="subxS1Comment"># . edi = *eax</span> -<span id="L2344" class="LineNr">2344 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> -<span id="L2345" class="LineNr">2345 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2346" class="LineNr">2346 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2347" class="LineNr">2347 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2348" class="LineNr">2348 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2349" class="LineNr">2349 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2350" class="LineNr">2350 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2351" class="LineNr">2351 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2352" class="LineNr">2352 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2353" class="LineNr">2353 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2354" class="LineNr">2354 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2355" class="LineNr">2355 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2356" class="LineNr">2356 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2357" class="LineNr">2357 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2358" class="LineNr">2358 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2359" class="LineNr">2359 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2360" class="LineNr">2360 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 -<span id="L2361" class="LineNr">2361 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> -<span id="L2362" class="LineNr">2362 </span> 3d/compare-eax-and 0x2d/imm32/minus -<span id="L2363" class="LineNr">2363 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 -<span id="L2364" class="LineNr">2364 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> -<span id="L2365" class="LineNr">2365 </span> 3d/compare-eax-and 0x2b/imm32/plus -<span id="L2366" class="LineNr">2366 </span> 0f 85/jump-if-!= $parse-effective-address:error1/disp32 -<span id="L2367" class="LineNr">2367 </span><span class="Constant">$parse-effective-address:check-for-index</span>: -<span id="L2368" class="LineNr">2368 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> -<span id="L2369" class="LineNr">2369 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2370" class="LineNr">2370 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2371" class="LineNr">2371 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2372" class="LineNr">2372 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2373" class="LineNr">2373 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2374" class="LineNr">2374 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2375" class="LineNr">2375 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2376" class="LineNr">2376 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2377" class="LineNr">2377 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2378" class="LineNr">2378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2379" class="LineNr">2379 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2380" class="LineNr">2380 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2381" class="LineNr">2381 </span><span class="Constant">$parse-effective-address:resolve-ambiguity</span>: -<span id="L2382" class="LineNr">2382 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> -<span id="L2383" class="LineNr">2383 </span> <span class="subxS1Comment"># . spill ecx</span> -<span id="L2384" class="LineNr">2384 </span> 51/push-ecx -<span id="L2385" class="LineNr">2385 </span> <span class="subxS1Comment"># . var tmp/ecx = {local-slice->start, local-slice->start+3}</span> -<span id="L2386" class="LineNr">2386 </span> <span class="subxS2Comment"># . . ecx = local-slice->start</span> -<span id="L2387" class="LineNr">2387 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L2388" class="LineNr">2388 </span> <span class="subxS2Comment"># . . eax = local-slice->start+3</span> -<span id="L2389" class="LineNr">2389 </span> 05/add-to-eax 3/imm32 -<span id="L2390" class="LineNr">2390 </span> <span class="subxS2Comment"># . . push</span> -<span id="L2391" class="LineNr">2391 </span> 50/push-eax -<span id="L2392" class="LineNr">2392 </span> 51/push-ecx -<span id="L2393" class="LineNr">2393 </span> <span class="subxS2Comment"># . . copy esp to ecx</span> -<span id="L2394" class="LineNr">2394 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2395" class="LineNr">2395 </span> <span class="subxS1Comment"># . eax = maybe-get-slice(Register, tmp, row-size=12)</span> -<span id="L2396" class="LineNr">2396 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2397" class="LineNr">2397 </span> 68/push 0xc/imm32/row-size -<span id="L2398" class="LineNr">2398 </span> 51/push-ecx -<span id="L2399" class="LineNr">2399 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L2400" class="LineNr">2400 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2401" class="LineNr">2401 </span> e8/call <a href='../131table.subx.html#L1965'>maybe-get-slice</a>/disp32 -<span id="L2402" class="LineNr">2402 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2403" class="LineNr">2403 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2404" class="LineNr">2404 </span> <span class="subxS1Comment"># . reclaim tmp</span> -<span id="L2405" class="LineNr">2405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2406" class="LineNr">2406 </span> <span class="subxS1Comment"># . restore ecx</span> -<span id="L2407" class="LineNr">2407 </span> 59/pop-to-ecx -<span id="L2408" class="LineNr">2408 </span> <span class="subxS1Comment"># . if (eax == 0) goto displacement</span> -<span id="L2409" class="LineNr">2409 </span> 3d/compare-eax-and 0/imm32 -<span id="L2410" class="LineNr">2410 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 -<span id="L2411" class="LineNr">2411 </span><span class="Constant">$parse-effective-address:index</span>: -<span id="L2412" class="LineNr">2412 </span> <span class="subxComment"># read register into index</span> -<span id="L2413" class="LineNr">2413 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> -<span id="L2414" class="LineNr">2414 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2415" class="LineNr">2415 </span> 56/push-esi -<span id="L2416" class="LineNr">2416 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2417" class="LineNr">2417 </span> e8/call <a href='sigils.subx.html#L2691'>next-register</a>/disp32 -<span id="L2418" class="LineNr">2418 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2419" class="LineNr">2419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2420" class="LineNr">2420 </span> <span class="subxS1Comment"># . ecx = *eax</span> -<span id="L2421" class="LineNr">2421 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L2422" class="LineNr">2422 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2423" class="LineNr">2423 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2424" class="LineNr">2424 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2425" class="LineNr">2425 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2426" class="LineNr">2426 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2427" class="LineNr">2427 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2428" class="LineNr">2428 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2429" class="LineNr">2429 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2430" class="LineNr">2430 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2431" class="LineNr">2431 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2432" class="LineNr">2432 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2433" class="LineNr">2433 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2434" class="LineNr">2434 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2435" class="LineNr">2435 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2436" class="LineNr">2436 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2437" class="LineNr">2437 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 -<span id="L2438" class="LineNr">2438 </span><span class="Constant">$parse-effective-address:check-for-scale</span>: -<span id="L2439" class="LineNr">2439 </span> <span class="subxComment"># if (*local-slice->start != '<') goto next check</span> -<span id="L2440" class="LineNr">2440 </span> 3d/compare-eax-and 0x3c/imm32/less-than -<span id="L2441" class="LineNr">2441 </span> 75/jump-if-!= $parse-effective-address:check-for-displacement/disp8 -<span id="L2442" class="LineNr">2442 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2443" class="LineNr">2443 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2444" class="LineNr">2444 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> -<span id="L2445" class="LineNr">2445 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L2446" class="LineNr">2446 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2447" class="LineNr">2447 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2448" class="LineNr">2448 </span> 3d/compare-eax-and 0x3c/imm32/less-than -<span id="L2449" class="LineNr">2449 </span> 0f 85/jump-if-!= $parse-effective-address:error2/disp32 -<span id="L2450" class="LineNr">2450 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> -<span id="L2451" class="LineNr">2451 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L2452" class="LineNr">2452 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2453" class="LineNr">2453 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2454" class="LineNr">2454 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2455" class="LineNr">2455 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2456" class="LineNr">2456 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2457" class="LineNr">2457 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2458" class="LineNr">2458 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2459" class="LineNr">2459 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2460" class="LineNr">2460 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2461" class="LineNr">2461 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2462" class="LineNr">2462 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2463" class="LineNr">2463 </span><span class="Constant">$parse-effective-address:scale</span>: -<span id="L2464" class="LineNr">2464 </span> <span class="subxComment"># read positive integer into scale</span> -<span id="L2465" class="LineNr">2465 </span> <span class="subxS1Comment"># . eax = next-positive-hex-int(local-slice)</span> -<span id="L2466" class="LineNr">2466 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2467" class="LineNr">2467 </span> 56/push-esi -<span id="L2468" class="LineNr">2468 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2469" class="LineNr">2469 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 -<span id="L2470" class="LineNr">2470 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2471" class="LineNr">2471 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2472" class="LineNr">2472 </span> <span class="subxS1Comment"># . edx = eax</span> -<span id="L2473" class="LineNr">2473 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L2474" class="LineNr">2474 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2475" class="LineNr">2475 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2476" class="LineNr">2476 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2477" class="LineNr">2477 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2478" class="LineNr">2478 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2479" class="LineNr">2479 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2480" class="LineNr">2480 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2481" class="LineNr">2481 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2482" class="LineNr">2482 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2483" class="LineNr">2483 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2484" class="LineNr">2484 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2485" class="LineNr">2485 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> -<span id="L2486" class="LineNr">2486 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2487" class="LineNr">2487 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2488" class="LineNr">2488 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2489" class="LineNr">2489 </span> 74/jump-if-= $parse-effective-address:end/disp8 -<span id="L2490" class="LineNr">2490 </span><span class="Constant">$parse-effective-address:check-for-displacement</span>: -<span id="L2491" class="LineNr">2491 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> -<span id="L2492" class="LineNr">2492 </span> 3d/compare-eax-and 0x2b/imm32/plus -<span id="L2493" class="LineNr">2493 </span> 74/jump-if-= $parse-effective-address:displacement/disp8 -<span id="L2494" class="LineNr">2494 </span> 3d/compare-eax-and 0x2d/imm32/minus +<span id="L2262" class="LineNr">2262 </span> <span class="subxComment"># read integer into scale</span> +<span id="L2263" class="LineNr">2263 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2264" class="LineNr">2264 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2265" class="LineNr">2265 </span> <span class="subxComment"># }</span> +<span id="L2266" class="LineNr">2266 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> +<span id="L2267" class="LineNr">2267 </span> <span class="subxComment"># displacement:</span> +<span id="L2268" class="LineNr">2268 </span> <span class="subxComment"># read integer into disp</span> +<span id="L2269" class="LineNr">2269 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2270" class="LineNr">2270 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> +<span id="L2271" class="LineNr">2271 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2272" class="LineNr">2272 </span> 55/push-ebp +<span id="L2273" class="LineNr">2273 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2274" class="LineNr">2274 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2275" class="LineNr">2275 </span> 56/push-esi +<span id="L2276" class="LineNr">2276 </span> 57/push-edi +<span id="L2277" class="LineNr">2277 </span> <span class="subxComment"># var local-slice/esi: slice = {word-slice->start, word-slice->end}</span> +<span id="L2278" class="LineNr">2278 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L2279" class="LineNr">2279 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2280" class="LineNr">2280 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2281" class="LineNr">2281 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L2282" class="LineNr">2282 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L2283" class="LineNr">2283 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2284" class="LineNr">2284 </span> <span class="subxComment"># initialize defaults</span> +<span id="L2285" class="LineNr">2285 </span> <span class="subxComment"># base is in edi; we'll move it to eax just before we return</span> +<span id="L2286" class="LineNr">2286 </span> bf/copy-to-edi 0/imm32 +<span id="L2287" class="LineNr">2287 </span> b9/copy-to-ecx 4/imm32/no-index +<span id="L2288" class="LineNr">2288 </span> ba/copy-to-edx 0/imm32/.scale +<span id="L2289" class="LineNr">2289 </span> bb/copy-to-ebx 0/imm32/disp +<span id="L2290" class="LineNr">2290 </span><span class="Constant">$parse-effective-address:check-for-simple-register</span>: +<span id="L2291" class="LineNr">2291 </span> <span class="subxComment"># if (*local-slice->start == '(') goto compound expression</span> +<span id="L2292" class="LineNr">2292 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2293" class="LineNr">2293 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2294" class="LineNr">2294 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2295" class="LineNr">2295 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L2296" class="LineNr">2296 </span> 74/jump-if-= $parse-effective-address:compound-expression/disp8 +<span id="L2297" class="LineNr">2297 </span><span class="Constant">$parse-effective-address:simple-register</span>: +<span id="L2298" class="LineNr">2298 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L2299" class="LineNr">2299 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2300" class="LineNr">2300 </span> 56/push-esi +<span id="L2301" class="LineNr">2301 </span> 68/push 0x2f/imm32/slash +<span id="L2302" class="LineNr">2302 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2303" class="LineNr">2303 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2304" class="LineNr">2304 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2305" class="LineNr">2305 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2306" class="LineNr">2306 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2307" class="LineNr">2307 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2308" class="LineNr">2308 </span> <span class="subxComment"># base = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L2309" class="LineNr">2309 </span> <span class="subxS1Comment"># . eax = get-slice(Registers, local-slice, row-size=12)</span> +<span id="L2310" class="LineNr">2310 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2311" class="LineNr">2311 </span> 68/push <span class="Constant">"Registers"</span>/imm32 +<span id="L2312" class="LineNr">2312 </span> 68/push 0xc/imm32/row-size +<span id="L2313" class="LineNr">2313 </span> 56/push-esi +<span id="L2314" class="LineNr">2314 </span> 68/push <span class="SpecialChar"><a href='201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L2315" class="LineNr">2315 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2316" class="LineNr">2316 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L2317" class="LineNr">2317 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2318" class="LineNr">2318 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2319" class="LineNr">2319 </span> <span class="subxS1Comment"># . base = *eax</span> +<span id="L2320" class="LineNr">2320 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> +<span id="L2321" class="LineNr">2321 </span> <span class="subxComment"># return</span> +<span id="L2322" class="LineNr">2322 </span> e9/jump $parse-effective-address:end/disp32 +<span id="L2323" class="LineNr">2323 </span><span class="Constant">$parse-effective-address:compound-expression</span>: +<span id="L2324" class="LineNr">2324 </span> <span class="subxComment"># ++local-slice->start to skip '('</span> +<span id="L2325" class="LineNr">2325 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2326" class="LineNr">2326 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2327" class="LineNr">2327 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2328" class="LineNr">2328 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2329" class="LineNr">2329 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2330" class="LineNr">2330 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2331" class="LineNr">2331 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2332" class="LineNr">2332 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2333" class="LineNr">2333 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2334" class="LineNr">2334 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2335" class="LineNr">2335 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2336" class="LineNr">2336 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2337" class="LineNr">2337 </span> <span class="subxComment"># read register into base</span> +<span id="L2338" class="LineNr">2338 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> +<span id="L2339" class="LineNr">2339 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2340" class="LineNr">2340 </span> 56/push-esi +<span id="L2341" class="LineNr">2341 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2342" class="LineNr">2342 </span> e8/call <a href='sigils.subx.html#L2693'>next-register</a>/disp32 +<span id="L2343" class="LineNr">2343 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2344" class="LineNr">2344 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2345" class="LineNr">2345 </span> <span class="subxS1Comment"># . edi = *eax</span> +<span id="L2346" class="LineNr">2346 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to edi</span> +<span id="L2347" class="LineNr">2347 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2348" class="LineNr">2348 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2349" class="LineNr">2349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2350" class="LineNr">2350 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2351" class="LineNr">2351 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2352" class="LineNr">2352 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2353" class="LineNr">2353 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2354" class="LineNr">2354 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2355" class="LineNr">2355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2356" class="LineNr">2356 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2357" class="LineNr">2357 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2358" class="LineNr">2358 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2359" class="LineNr">2359 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2360" class="LineNr">2360 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2361" class="LineNr">2361 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2362" class="LineNr">2362 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 +<span id="L2363" class="LineNr">2363 </span> <span class="subxComment"># if (*local-slice->start == '-') goto displacement</span> +<span id="L2364" class="LineNr">2364 </span> 3d/compare-eax-and 0x2d/imm32/minus +<span id="L2365" class="LineNr">2365 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 +<span id="L2366" class="LineNr">2366 </span> <span class="subxComment"># if (*local-slice->start != '+') goto error1</span> +<span id="L2367" class="LineNr">2367 </span> 3d/compare-eax-and 0x2b/imm32/plus +<span id="L2368" class="LineNr">2368 </span> 0f 85/jump-if-!= $parse-effective-address:error1/disp32 +<span id="L2369" class="LineNr">2369 </span><span class="Constant">$parse-effective-address:check-for-index</span>: +<span id="L2370" class="LineNr">2370 </span> <span class="subxComment"># ++local-slice->start to skip '+'</span> +<span id="L2371" class="LineNr">2371 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2372" class="LineNr">2372 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2373" class="LineNr">2373 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2374" class="LineNr">2374 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2375" class="LineNr">2375 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2376" class="LineNr">2376 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2377" class="LineNr">2377 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2378" class="LineNr">2378 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2379" class="LineNr">2379 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2380" class="LineNr">2380 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2381" class="LineNr">2381 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2382" class="LineNr">2382 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2383" class="LineNr">2383 </span><span class="Constant">$parse-effective-address:resolve-ambiguity</span>: +<span id="L2384" class="LineNr">2384 </span> <span class="subxComment"># if next 3 characters don't make a register, goto displacement</span> +<span id="L2385" class="LineNr">2385 </span> <span class="subxS1Comment"># . spill ecx</span> +<span id="L2386" class="LineNr">2386 </span> 51/push-ecx +<span id="L2387" class="LineNr">2387 </span> <span class="subxS1Comment"># . var tmp/ecx = {local-slice->start, local-slice->start+3}</span> +<span id="L2388" class="LineNr">2388 </span> <span class="subxS2Comment"># . . ecx = local-slice->start</span> +<span id="L2389" class="LineNr">2389 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L2390" class="LineNr">2390 </span> <span class="subxS2Comment"># . . eax = local-slice->start+3</span> +<span id="L2391" class="LineNr">2391 </span> 05/add-to-eax 3/imm32 +<span id="L2392" class="LineNr">2392 </span> <span class="subxS2Comment"># . . push</span> +<span id="L2393" class="LineNr">2393 </span> 50/push-eax +<span id="L2394" class="LineNr">2394 </span> 51/push-ecx +<span id="L2395" class="LineNr">2395 </span> <span class="subxS2Comment"># . . copy esp to ecx</span> +<span id="L2396" class="LineNr">2396 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2397" class="LineNr">2397 </span> <span class="subxS1Comment"># . eax = maybe-get-slice(Register, tmp, row-size=12)</span> +<span id="L2398" class="LineNr">2398 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2399" class="LineNr">2399 </span> 68/push 0xc/imm32/row-size +<span id="L2400" class="LineNr">2400 </span> 51/push-ecx +<span id="L2401" class="LineNr">2401 </span> 68/push <span class="SpecialChar"><a href='201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L2402" class="LineNr">2402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2403" class="LineNr">2403 </span> e8/call <a href='131table.subx.html#L1965'>maybe-get-slice</a>/disp32 +<span id="L2404" class="LineNr">2404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2405" class="LineNr">2405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2406" class="LineNr">2406 </span> <span class="subxS1Comment"># . reclaim tmp</span> +<span id="L2407" class="LineNr">2407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2408" class="LineNr">2408 </span> <span class="subxS1Comment"># . restore ecx</span> +<span id="L2409" class="LineNr">2409 </span> 59/pop-to-ecx +<span id="L2410" class="LineNr">2410 </span> <span class="subxS1Comment"># . if (eax == 0) goto displacement</span> +<span id="L2411" class="LineNr">2411 </span> 3d/compare-eax-and 0/imm32 +<span id="L2412" class="LineNr">2412 </span> 0f 84/jump-if-= $parse-effective-address:displacement/disp32 +<span id="L2413" class="LineNr">2413 </span><span class="Constant">$parse-effective-address:index</span>: +<span id="L2414" class="LineNr">2414 </span> <span class="subxComment"># read register into index</span> +<span id="L2415" class="LineNr">2415 </span> <span class="subxS1Comment"># . eax = next-register(local-slice)</span> +<span id="L2416" class="LineNr">2416 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2417" class="LineNr">2417 </span> 56/push-esi +<span id="L2418" class="LineNr">2418 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2419" class="LineNr">2419 </span> e8/call <a href='sigils.subx.html#L2693'>next-register</a>/disp32 +<span id="L2420" class="LineNr">2420 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2421" class="LineNr">2421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2422" class="LineNr">2422 </span> <span class="subxS1Comment"># . ecx = *eax</span> +<span id="L2423" class="LineNr">2423 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2424" class="LineNr">2424 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2425" class="LineNr">2425 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2426" class="LineNr">2426 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2427" class="LineNr">2427 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2428" class="LineNr">2428 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2429" class="LineNr">2429 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2430" class="LineNr">2430 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2431" class="LineNr">2431 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2432" class="LineNr">2432 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2433" class="LineNr">2433 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2434" class="LineNr">2434 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2435" class="LineNr">2435 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2436" class="LineNr">2436 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2437" class="LineNr">2437 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2438" class="LineNr">2438 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2439" class="LineNr">2439 </span> 0f 84/jump-if-= $parse-effective-address:end/disp32 +<span id="L2440" class="LineNr">2440 </span><span class="Constant">$parse-effective-address:check-for-scale</span>: +<span id="L2441" class="LineNr">2441 </span> <span class="subxComment"># if (*local-slice->start != '<') goto next check</span> +<span id="L2442" class="LineNr">2442 </span> 3d/compare-eax-and 0x3c/imm32/less-than +<span id="L2443" class="LineNr">2443 </span> 75/jump-if-!= $parse-effective-address:check-for-displacement/disp8 +<span id="L2444" class="LineNr">2444 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> +<span id="L2445" class="LineNr">2445 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2446" class="LineNr">2446 </span> <span class="subxComment"># if (*local-slice->start != '<') goto error2</span> +<span id="L2447" class="LineNr">2447 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2448" class="LineNr">2448 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2449" class="LineNr">2449 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2450" class="LineNr">2450 </span> 3d/compare-eax-and 0x3c/imm32/less-than +<span id="L2451" class="LineNr">2451 </span> 0f 85/jump-if-!= $parse-effective-address:error2/disp32 +<span id="L2452" class="LineNr">2452 </span> <span class="subxComment"># ++local-slice->start to skip '<'</span> +<span id="L2453" class="LineNr">2453 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L2454" class="LineNr">2454 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2455" class="LineNr">2455 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2456" class="LineNr">2456 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2457" class="LineNr">2457 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2458" class="LineNr">2458 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2459" class="LineNr">2459 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2460" class="LineNr">2460 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2461" class="LineNr">2461 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2462" class="LineNr">2462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2463" class="LineNr">2463 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2464" class="LineNr">2464 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2465" class="LineNr">2465 </span><span class="Constant">$parse-effective-address:scale</span>: +<span id="L2466" class="LineNr">2466 </span> <span class="subxComment"># read positive integer into scale</span> +<span id="L2467" class="LineNr">2467 </span> <span class="subxS1Comment"># . eax = next-positive-hex-int(local-slice)</span> +<span id="L2468" class="LineNr">2468 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2469" class="LineNr">2469 </span> 56/push-esi +<span id="L2470" class="LineNr">2470 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2471" class="LineNr">2471 </span> e8/call <a href='sigils.subx.html#L4404'>next-positive-hex-int</a>/disp32 +<span id="L2472" class="LineNr">2472 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2473" class="LineNr">2473 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2474" class="LineNr">2474 </span> <span class="subxS1Comment"># . edx = eax</span> +<span id="L2475" class="LineNr">2475 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L2476" class="LineNr">2476 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2477" class="LineNr">2477 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2478" class="LineNr">2478 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2479" class="LineNr">2479 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2480" class="LineNr">2480 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2481" class="LineNr">2481 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2482" class="LineNr">2482 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2483" class="LineNr">2483 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2484" class="LineNr">2484 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2485" class="LineNr">2485 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2486" class="LineNr">2486 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2487" class="LineNr">2487 </span> <span class="subxComment"># if (*local-slice->start == ')') goto end</span> +<span id="L2488" class="LineNr">2488 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2489" class="LineNr">2489 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2490" class="LineNr">2490 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2491" class="LineNr">2491 </span> 74/jump-if-= $parse-effective-address:end/disp8 +<span id="L2492" class="LineNr">2492 </span><span class="Constant">$parse-effective-address:check-for-displacement</span>: +<span id="L2493" class="LineNr">2493 </span> <span class="subxComment"># if (*local-slice->start not in '+' '-') goto error3</span> +<span id="L2494" class="LineNr">2494 </span> 3d/compare-eax-and 0x2b/imm32/plus <span id="L2495" class="LineNr">2495 </span> 74/jump-if-= $parse-effective-address:displacement/disp8 -<span id="L2496" class="LineNr">2496 </span> e9/jump $parse-effective-address:error3/disp32 -<span id="L2497" class="LineNr">2497 </span><span class="Constant">$parse-effective-address:displacement</span>: -<span id="L2498" class="LineNr">2498 </span> <span class="subxComment"># read integer into disp</span> -<span id="L2499" class="LineNr">2499 </span> <span class="subxS1Comment"># . eax = next-hex-int(local-slice)</span> -<span id="L2500" class="LineNr">2500 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2501" class="LineNr">2501 </span> 56/push-esi -<span id="L2502" class="LineNr">2502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2503" class="LineNr">2503 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L2504" class="LineNr">2504 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2505" class="LineNr">2505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2506" class="LineNr">2506 </span> <span class="subxS1Comment"># . ebx = eax</span> -<span id="L2507" class="LineNr">2507 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> -<span id="L2508" class="LineNr">2508 </span> <span class="subxComment"># skip whitespace</span> -<span id="L2509" class="LineNr">2509 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> -<span id="L2510" class="LineNr">2510 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2511" class="LineNr">2511 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2512" class="LineNr">2512 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2513" class="LineNr">2513 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2514" class="LineNr">2514 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L2515" class="LineNr">2515 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2516" class="LineNr">2516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2517" class="LineNr">2517 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> -<span id="L2518" class="LineNr">2518 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> -<span id="L2519" class="LineNr">2519 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> -<span id="L2520" class="LineNr">2520 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L2521" class="LineNr">2521 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L2522" class="LineNr">2522 </span> 3d/compare-eax-and 0x29/imm32/close-paren -<span id="L2523" class="LineNr">2523 </span> 0f 85/jump-if-!= $parse-effective-address:error4/disp32 -<span id="L2524" class="LineNr">2524 </span><span class="Constant">$parse-effective-address:end</span>: -<span id="L2525" class="LineNr">2525 </span> <span class="subxComment"># return base in eax</span> -<span id="L2526" class="LineNr">2526 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> -<span id="L2527" class="LineNr">2527 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L2528" class="LineNr">2528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2529" class="LineNr">2529 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2530" class="LineNr">2530 </span> 5f/pop-to-edi -<span id="L2531" class="LineNr">2531 </span> 5e/pop-to-esi -<span id="L2532" class="LineNr">2532 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2533" class="LineNr">2533 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2534" class="LineNr">2534 </span> 5d/pop-to-ebp -<span id="L2535" class="LineNr">2535 </span> c3/return -<span id="L2536" class="LineNr">2536 </span> -<span id="L2537" class="LineNr">2537 </span><span class="Constant">$parse-effective-address:error1</span>: -<span id="L2538" class="LineNr">2538 </span> <span class="subxComment"># print(stderr, "error: unexpected character: " eax "\n")</span> -<span id="L2539" class="LineNr">2539 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character: ")</span> -<span id="L2540" class="LineNr">2540 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2541" class="LineNr">2541 </span> 68/push <span class="Constant">"error: unexpected character: "</span>/imm32 -<span id="L2542" class="LineNr">2542 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2543" class="LineNr">2543 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2544" class="LineNr">2544 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2545" class="LineNr">2545 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2546" class="LineNr">2546 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2547" class="LineNr">2547 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2548" class="LineNr">2548 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2549" class="LineNr">2549 </span> 50/push-eax -<span id="L2550" class="LineNr">2550 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2551" class="LineNr">2551 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2552" class="LineNr">2552 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L2553" class="LineNr">2553 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2554" class="LineNr">2554 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2555" class="LineNr">2555 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> -<span id="L2556" class="LineNr">2556 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2557" class="LineNr">2557 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L2558" class="LineNr">2558 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2559" class="LineNr">2559 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2560" class="LineNr">2560 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2561" class="LineNr">2561 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2562" class="LineNr">2562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2563" class="LineNr">2563 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2565" class="LineNr">2565 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2567" class="LineNr">2567 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2568" class="LineNr">2568 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2569" class="LineNr">2569 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2570" class="LineNr">2570 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2571" class="LineNr">2571 </span> bb/copy-to-ebx 1/imm32 -<span id="L2572" class="LineNr">2572 </span> e8/call syscall_exit/disp32 -<span id="L2573" class="LineNr">2573 </span> <span class="subxComment"># never gets here</span> -<span id="L2574" class="LineNr">2574 </span> -<span id="L2575" class="LineNr">2575 </span><span class="Constant">$parse-effective-address:error2</span>: -<span id="L2576" class="LineNr">2576 </span> <span class="subxComment"># print(stderr, "error: '<' can only be followed by '<' but got: " eax "\n")</span> -<span id="L2577" class="LineNr">2577 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '<' can only be followed by '<' but got: ")</span> -<span id="L2578" class="LineNr">2578 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2579" class="LineNr">2579 </span> 68/push <span class="Constant">"error: '<' can only be followed by '<' but got: "</span>/imm32 -<span id="L2580" class="LineNr">2580 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2581" class="LineNr">2581 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2582" class="LineNr">2582 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2583" class="LineNr">2583 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2584" class="LineNr">2584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2585" class="LineNr">2585 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2586" class="LineNr">2586 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2587" class="LineNr">2587 </span> 50/push-eax -<span id="L2588" class="LineNr">2588 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2589" class="LineNr">2589 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2590" class="LineNr">2590 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L2591" class="LineNr">2591 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2592" class="LineNr">2592 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2593" class="LineNr">2593 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> -<span id="L2594" class="LineNr">2594 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2595" class="LineNr">2595 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L2596" class="LineNr">2596 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2597" class="LineNr">2597 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2598" class="LineNr">2598 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2599" class="LineNr">2599 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2600" class="LineNr">2600 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2601" class="LineNr">2601 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L2602" class="LineNr">2602 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2603" class="LineNr">2603 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2604" class="LineNr">2604 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2605" class="LineNr">2605 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2606" class="LineNr">2606 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2607" class="LineNr">2607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2608" class="LineNr">2608 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2609" class="LineNr">2609 </span> bb/copy-to-ebx 1/imm32 -<span id="L2610" class="LineNr">2610 </span> e8/call syscall_exit/disp32 -<span id="L2611" class="LineNr">2611 </span> <span class="subxComment"># never gets here</span> -<span id="L2612" class="LineNr">2612 </span> -<span id="L2613" class="LineNr">2613 </span><span class="Constant">$parse-effective-address:error3</span>: -<span id="L2614" class="LineNr">2614 </span> <span class="subxComment"># print(stderr, "error: unexpected character before displacement: " eax "\n")</span> -<span id="L2615" class="LineNr">2615 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character before displacement: ")</span> -<span id="L2616" class="LineNr">2616 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2617" class="LineNr">2617 </span> 68/push <span class="Constant">"error: unexpected character before displacement: "</span>/imm32 -<span id="L2618" class="LineNr">2618 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2619" class="LineNr">2619 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2620" class="LineNr">2620 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2621" class="LineNr">2621 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2622" class="LineNr">2622 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2623" class="LineNr">2623 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2624" class="LineNr">2624 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2625" class="LineNr">2625 </span> 50/push-eax -<span id="L2626" class="LineNr">2626 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2627" class="LineNr">2627 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2628" class="LineNr">2628 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L2629" class="LineNr">2629 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2630" class="LineNr">2630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2631" class="LineNr">2631 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> -<span id="L2632" class="LineNr">2632 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2633" class="LineNr">2633 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L2634" class="LineNr">2634 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2635" class="LineNr">2635 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2636" class="LineNr">2636 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2637" class="LineNr">2637 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2638" class="LineNr">2638 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2639" class="LineNr">2639 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L2640" class="LineNr">2640 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2641" class="LineNr">2641 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2642" class="LineNr">2642 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2643" class="LineNr">2643 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2644" class="LineNr">2644 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2645" class="LineNr">2645 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2646" class="LineNr">2646 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2647" class="LineNr">2647 </span> bb/copy-to-ebx 1/imm32 -<span id="L2648" class="LineNr">2648 </span> e8/call syscall_exit/disp32 -<span id="L2649" class="LineNr">2649 </span> <span class="subxComment"># never gets here</span> -<span id="L2650" class="LineNr">2650 </span> -<span id="L2651" class="LineNr">2651 </span><span class="Constant">$parse-effective-address:error4</span>: -<span id="L2652" class="LineNr">2652 </span> <span class="subxComment"># print(stderr, "error: unexpected character after displacement: " eax "; expected ')' to wrap up\n")</span> -<span id="L2653" class="LineNr">2653 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character after displacement: ")</span> -<span id="L2654" class="LineNr">2654 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2655" class="LineNr">2655 </span> 68/push <span class="Constant">"error: unexpected character after displacement: "</span>/imm32 -<span id="L2656" class="LineNr">2656 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2657" class="LineNr">2657 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2658" class="LineNr">2658 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2659" class="LineNr">2659 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2660" class="LineNr">2660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2661" class="LineNr">2661 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> -<span id="L2662" class="LineNr">2662 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2663" class="LineNr">2663 </span> 50/push-eax -<span id="L2664" class="LineNr">2664 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2665" class="LineNr">2665 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2666" class="LineNr">2666 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L2667" class="LineNr">2667 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2668" class="LineNr">2668 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2669" class="LineNr">2669 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "; expected ')' to wrap up\n")</span> -<span id="L2670" class="LineNr">2670 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2671" class="LineNr">2671 </span> 68/push <span class="Constant">"; expected ')' to wrap up\n"</span>/imm32 -<span id="L2672" class="LineNr">2672 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2673" class="LineNr">2673 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2674" class="LineNr">2674 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2675" class="LineNr">2675 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2676" class="LineNr">2676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2677" class="LineNr">2677 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L2678" class="LineNr">2678 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2679" class="LineNr">2679 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2680" class="LineNr">2680 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2681" class="LineNr">2681 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2682" class="LineNr">2682 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2683" class="LineNr">2683 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2684" class="LineNr">2684 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2685" class="LineNr">2685 </span> bb/copy-to-ebx 1/imm32 -<span id="L2686" class="LineNr">2686 </span> e8/call syscall_exit/disp32 -<span id="L2687" class="LineNr">2687 </span> <span class="subxComment"># never gets here</span> -<span id="L2688" class="LineNr">2688 </span> -<span id="L2689" class="LineNr">2689 </span><span class="subxComment"># assumes 'in' starts with a register name, and returns pointer to its code</span> -<span id="L2690" class="LineNr">2690 </span><span class="subxComment"># side-effect: modifies 'in' to scan past the initial register name</span> -<span id="L2691" class="LineNr">2691 </span><span class="subxFunction">next-register</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: int</span> -<span id="L2692" class="LineNr">2692 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2693" class="LineNr">2693 </span> 55/push-ebp -<span id="L2694" class="LineNr">2694 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2695" class="LineNr">2695 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L2696" class="LineNr">2696 </span> 51/push-ecx -<span id="L2697" class="LineNr">2697 </span> 56/push-esi -<span id="L2698" class="LineNr">2698 </span> <span class="subxComment"># esi = in</span> -<span id="L2699" class="LineNr">2699 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L2700" class="LineNr">2700 </span> <span class="subxComment"># var reg-slice/ecx: slice = {in->start, in->start + 3}</span> -<span id="L2701" class="LineNr">2701 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L2702" class="LineNr">2702 </span> 05/add-to-eax 3/imm32 -<span id="L2703" class="LineNr">2703 </span> 50/push-eax -<span id="L2704" class="LineNr">2704 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2705" class="LineNr">2705 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2706" class="LineNr">2706 </span> <span class="subxComment"># in->start += 3</span> -<span id="L2707" class="LineNr">2707 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32 <span class="subxComment"># add to *esi</span> -<span id="L2708" class="LineNr">2708 </span> <span class="subxComment"># eax = get-slice(Registers, reg-slice, row-size=12)</span> -<span id="L2709" class="LineNr">2709 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2710" class="LineNr">2710 </span> 68/push <span class="Constant">"next-register"</span>/imm32 -<span id="L2711" class="LineNr">2711 </span> 68/push 0xc/imm32/row-size -<span id="L2712" class="LineNr">2712 </span> 51/push-ecx -<span id="L2713" class="LineNr">2713 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L2714" class="LineNr">2714 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2715" class="LineNr">2715 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L2716" class="LineNr">2716 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2717" class="LineNr">2717 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2718" class="LineNr">2718 </span><span class="Constant">$next-register:end</span>: -<span id="L2719" class="LineNr">2719 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L2720" class="LineNr">2720 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2721" class="LineNr">2721 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2722" class="LineNr">2722 </span> 5e/pop-to-esi -<span id="L2723" class="LineNr">2723 </span> 59/pop-to-ecx -<span id="L2724" class="LineNr">2724 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2725" class="LineNr">2725 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2726" class="LineNr">2726 </span> 5d/pop-to-ebp -<span id="L2727" class="LineNr">2727 </span> c3/return -<span id="L2728" class="LineNr">2728 </span> -<span id="L2729" class="LineNr">2729 </span><span class="subxTest">test-parse-effective-address-simple</span>: -<span id="L2730" class="LineNr">2730 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2731" class="LineNr">2731 </span> 55/push-ebp -<span id="L2732" class="LineNr">2732 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2733" class="LineNr">2733 </span> <span class="subxComment"># var slice/ecx = "*esi"</span> -<span id="L2734" class="LineNr">2734 </span> b8/copy-to-eax <span class="Constant">"*esi"</span>/imm32 -<span id="L2735" class="LineNr">2735 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L2736" class="LineNr">2736 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L2737" class="LineNr">2737 </span> 05/add-to-eax 4/imm32 -<span id="L2738" class="LineNr">2738 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2739" class="LineNr">2739 </span> 51/push-ecx -<span id="L2740" class="LineNr">2740 </span> 50/push-eax -<span id="L2741" class="LineNr">2741 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2742" class="LineNr">2742 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2743" class="LineNr">2743 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2744" class="LineNr">2744 </span> 51/push-ecx -<span id="L2745" class="LineNr">2745 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2746" class="LineNr">2746 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L2747" class="LineNr">2747 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2748" class="LineNr">2748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2749" class="LineNr">2749 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2750" class="LineNr">2750 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2751" class="LineNr">2751 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2752" class="LineNr">2752 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/base"</span>/imm32 -<span id="L2753" class="LineNr">2753 </span> 68/push 6/imm32/esi -<span id="L2754" class="LineNr">2754 </span> 50/push-eax -<span id="L2755" class="LineNr">2755 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2756" class="LineNr">2756 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2757" class="LineNr">2757 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2758" class="LineNr">2758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2759" class="LineNr">2759 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2760" class="LineNr">2760 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2761" class="LineNr">2761 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/index"</span>/imm32 -<span id="L2762" class="LineNr">2762 </span> 68/push 4/imm32/none -<span id="L2763" class="LineNr">2763 </span> 51/push-ecx -<span id="L2764" class="LineNr">2764 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2765" class="LineNr">2765 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2766" class="LineNr">2766 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2767" class="LineNr">2767 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2768" class="LineNr">2768 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2769" class="LineNr">2769 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2770" class="LineNr">2770 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/scale"</span>/imm32 -<span id="L2771" class="LineNr">2771 </span> 68/push 0/imm32/none -<span id="L2772" class="LineNr">2772 </span> 52/push-edx -<span id="L2773" class="LineNr">2773 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2774" class="LineNr">2774 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2775" class="LineNr">2775 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2776" class="LineNr">2776 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2777" class="LineNr">2777 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> -<span id="L2778" class="LineNr">2778 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2779" class="LineNr">2779 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2729'>test-parse-effective-address-simple</a>/displacement"</span>/imm32 -<span id="L2780" class="LineNr">2780 </span> 68/push 0/imm32/none -<span id="L2781" class="LineNr">2781 </span> 53/push-ebx -<span id="L2782" class="LineNr">2782 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2783" class="LineNr">2783 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2784" class="LineNr">2784 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2785" class="LineNr">2785 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2786" class="LineNr">2786 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2787" class="LineNr">2787 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2788" class="LineNr">2788 </span> 5d/pop-to-ebp -<span id="L2789" class="LineNr">2789 </span> c3/return -<span id="L2790" class="LineNr">2790 </span> -<span id="L2791" class="LineNr">2791 </span><span class="subxTest">test-parse-effective-address-base</span>: -<span id="L2792" class="LineNr">2792 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2793" class="LineNr">2793 </span> 55/push-ebp -<span id="L2794" class="LineNr">2794 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2795" class="LineNr">2795 </span> <span class="subxComment"># var slice/ecx = "*(esi )"</span> -<span id="L2796" class="LineNr">2796 </span> b8/copy-to-eax <span class="Constant">"*(esi )"</span>/imm32 -<span id="L2797" class="LineNr">2797 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L2798" class="LineNr">2798 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L2799" class="LineNr">2799 </span> 05/add-to-eax 4/imm32 -<span id="L2800" class="LineNr">2800 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2801" class="LineNr">2801 </span> 51/push-ecx -<span id="L2802" class="LineNr">2802 </span> 50/push-eax -<span id="L2803" class="LineNr">2803 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2804" class="LineNr">2804 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2805" class="LineNr">2805 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2806" class="LineNr">2806 </span> 51/push-ecx -<span id="L2807" class="LineNr">2807 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2808" class="LineNr">2808 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L2809" class="LineNr">2809 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2810" class="LineNr">2810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2811" class="LineNr">2811 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2812" class="LineNr">2812 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2813" class="LineNr">2813 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2814" class="LineNr">2814 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/base"</span>/imm32 -<span id="L2815" class="LineNr">2815 </span> 68/push 6/imm32/esi -<span id="L2816" class="LineNr">2816 </span> 50/push-eax -<span id="L2817" class="LineNr">2817 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2818" class="LineNr">2818 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2820" class="LineNr">2820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2821" class="LineNr">2821 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2822" class="LineNr">2822 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2823" class="LineNr">2823 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/index"</span>/imm32 -<span id="L2824" class="LineNr">2824 </span> 68/push 4/imm32/none -<span id="L2825" class="LineNr">2825 </span> 51/push-ecx -<span id="L2826" class="LineNr">2826 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2827" class="LineNr">2827 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2828" class="LineNr">2828 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2829" class="LineNr">2829 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2830" class="LineNr">2830 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2831" class="LineNr">2831 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2832" class="LineNr">2832 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/scale"</span>/imm32 -<span id="L2833" class="LineNr">2833 </span> 68/push 0/imm32/none -<span id="L2834" class="LineNr">2834 </span> 52/push-edx -<span id="L2835" class="LineNr">2835 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2836" class="LineNr">2836 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2837" class="LineNr">2837 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2838" class="LineNr">2838 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2839" class="LineNr">2839 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> -<span id="L2840" class="LineNr">2840 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2841" class="LineNr">2841 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2791'>test-parse-effective-address-base</a>/displacement"</span>/imm32 -<span id="L2842" class="LineNr">2842 </span> 68/push 0/imm32/none -<span id="L2843" class="LineNr">2843 </span> 53/push-ebx -<span id="L2844" class="LineNr">2844 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2845" class="LineNr">2845 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2846" class="LineNr">2846 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2847" class="LineNr">2847 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2848" class="LineNr">2848 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2849" class="LineNr">2849 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2850" class="LineNr">2850 </span> 5d/pop-to-ebp -<span id="L2851" class="LineNr">2851 </span> c3/return -<span id="L2852" class="LineNr">2852 </span> -<span id="L2853" class="LineNr">2853 </span><span class="subxTest">test-parse-effective-address-base-displacement</span>: -<span id="L2854" class="LineNr">2854 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2855" class="LineNr">2855 </span> 55/push-ebp -<span id="L2856" class="LineNr">2856 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2857" class="LineNr">2857 </span> <span class="subxComment"># var slice/ecx = "*(esi+3)"</span> -<span id="L2858" class="LineNr">2858 </span> b8/copy-to-eax <span class="Constant">"*(esi+3)"</span>/imm32 -<span id="L2859" class="LineNr">2859 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L2860" class="LineNr">2860 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L2861" class="LineNr">2861 </span> 05/add-to-eax 4/imm32 -<span id="L2862" class="LineNr">2862 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2863" class="LineNr">2863 </span> 51/push-ecx -<span id="L2864" class="LineNr">2864 </span> 50/push-eax -<span id="L2865" class="LineNr">2865 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2866" class="LineNr">2866 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2867" class="LineNr">2867 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2868" class="LineNr">2868 </span> 51/push-ecx -<span id="L2869" class="LineNr">2869 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2870" class="LineNr">2870 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L2871" class="LineNr">2871 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2872" class="LineNr">2872 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2873" class="LineNr">2873 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2874" class="LineNr">2874 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2875" class="LineNr">2875 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2876" class="LineNr">2876 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/base"</span>/imm32 -<span id="L2877" class="LineNr">2877 </span> 68/push 6/imm32/esi -<span id="L2878" class="LineNr">2878 </span> 50/push-eax -<span id="L2879" class="LineNr">2879 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2880" class="LineNr">2880 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2881" class="LineNr">2881 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2882" class="LineNr">2882 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2883" class="LineNr">2883 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2884" class="LineNr">2884 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2885" class="LineNr">2885 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/index"</span>/imm32 -<span id="L2886" class="LineNr">2886 </span> 68/push 4/imm32/none -<span id="L2887" class="LineNr">2887 </span> 51/push-ecx -<span id="L2888" class="LineNr">2888 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2889" class="LineNr">2889 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2890" class="LineNr">2890 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2891" class="LineNr">2891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2892" class="LineNr">2892 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2893" class="LineNr">2893 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2894" class="LineNr">2894 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/scale"</span>/imm32 -<span id="L2895" class="LineNr">2895 </span> 68/push 0/imm32/none -<span id="L2896" class="LineNr">2896 </span> 52/push-edx -<span id="L2897" class="LineNr">2897 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2898" class="LineNr">2898 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2899" class="LineNr">2899 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2900" class="LineNr">2900 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2901" class="LineNr">2901 </span> <span class="subxComment"># check-ints-equal(ebx, 3, msg)</span> -<span id="L2902" class="LineNr">2902 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2903" class="LineNr">2903 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2853'>test-parse-effective-address-base-displacement</a>/displacement"</span>/imm32 -<span id="L2904" class="LineNr">2904 </span> 68/push 3/imm32 -<span id="L2905" class="LineNr">2905 </span> 53/push-ebx -<span id="L2906" class="LineNr">2906 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2907" class="LineNr">2907 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2908" class="LineNr">2908 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2909" class="LineNr">2909 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2910" class="LineNr">2910 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2911" class="LineNr">2911 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2912" class="LineNr">2912 </span> 5d/pop-to-ebp -<span id="L2913" class="LineNr">2913 </span> c3/return -<span id="L2914" class="LineNr">2914 </span> -<span id="L2915" class="LineNr">2915 </span><span class="subxTest">test-parse-effective-address-base-negative-displacement</span>: -<span id="L2916" class="LineNr">2916 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2917" class="LineNr">2917 </span> 55/push-ebp -<span id="L2918" class="LineNr">2918 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2919" class="LineNr">2919 </span> <span class="subxComment"># var slice/ecx = "*(esi-3)"</span> -<span id="L2920" class="LineNr">2920 </span> b8/copy-to-eax <span class="Constant">"*(esi-3)"</span>/imm32 -<span id="L2921" class="LineNr">2921 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L2922" class="LineNr">2922 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L2923" class="LineNr">2923 </span> 05/add-to-eax 4/imm32 -<span id="L2924" class="LineNr">2924 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2925" class="LineNr">2925 </span> 51/push-ecx -<span id="L2926" class="LineNr">2926 </span> 50/push-eax -<span id="L2927" class="LineNr">2927 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2928" class="LineNr">2928 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2929" class="LineNr">2929 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2930" class="LineNr">2930 </span> 51/push-ecx -<span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2932" class="LineNr">2932 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L2933" class="LineNr">2933 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2934" class="LineNr">2934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2935" class="LineNr">2935 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2936" class="LineNr">2936 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2937" class="LineNr">2937 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2938" class="LineNr">2938 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/base"</span>/imm32 -<span id="L2939" class="LineNr">2939 </span> 68/push 6/imm32/esi -<span id="L2940" class="LineNr">2940 </span> 50/push-eax -<span id="L2941" class="LineNr">2941 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2942" class="LineNr">2942 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2943" class="LineNr">2943 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2944" class="LineNr">2944 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2945" class="LineNr">2945 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> -<span id="L2946" class="LineNr">2946 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2947" class="LineNr">2947 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/index"</span>/imm32 -<span id="L2948" class="LineNr">2948 </span> 68/push 4/imm32/none -<span id="L2949" class="LineNr">2949 </span> 51/push-ecx -<span id="L2950" class="LineNr">2950 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2951" class="LineNr">2951 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2952" class="LineNr">2952 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2953" class="LineNr">2953 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2954" class="LineNr">2954 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L2955" class="LineNr">2955 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2956" class="LineNr">2956 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/scale"</span>/imm32 -<span id="L2957" class="LineNr">2957 </span> 68/push 0/imm32/none -<span id="L2958" class="LineNr">2958 </span> 52/push-edx -<span id="L2959" class="LineNr">2959 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2960" class="LineNr">2960 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2962" class="LineNr">2962 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2963" class="LineNr">2963 </span> <span class="subxComment"># check-ints-equal(ebx, -3, msg)</span> -<span id="L2964" class="LineNr">2964 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2965" class="LineNr">2965 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2915'>test-parse-effective-address-base-negative-displacement</a>/displacement"</span>/imm32 -<span id="L2966" class="LineNr">2966 </span> 68/push -3/imm32 -<span id="L2967" class="LineNr">2967 </span> 53/push-ebx -<span id="L2968" class="LineNr">2968 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2969" class="LineNr">2969 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L2970" class="LineNr">2970 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2971" class="LineNr">2971 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2972" class="LineNr">2972 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2973" class="LineNr">2973 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2974" class="LineNr">2974 </span> 5d/pop-to-ebp -<span id="L2975" class="LineNr">2975 </span> c3/return -<span id="L2976" class="LineNr">2976 </span> -<span id="L2977" class="LineNr">2977 </span><span class="subxTest">test-parse-effective-address-base-index</span>: -<span id="L2978" class="LineNr">2978 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2979" class="LineNr">2979 </span> 55/push-ebp -<span id="L2980" class="LineNr">2980 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2981" class="LineNr">2981 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx)"</span> -<span id="L2982" class="LineNr">2982 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx)"</span>/imm32 -<span id="L2983" class="LineNr">2983 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L2984" class="LineNr">2984 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L2985" class="LineNr">2985 </span> 05/add-to-eax 4/imm32 -<span id="L2986" class="LineNr">2986 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L2987" class="LineNr">2987 </span> 51/push-ecx -<span id="L2988" class="LineNr">2988 </span> 50/push-eax -<span id="L2989" class="LineNr">2989 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L2990" class="LineNr">2990 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L2991" class="LineNr">2991 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2992" class="LineNr">2992 </span> 51/push-ecx -<span id="L2993" class="LineNr">2993 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2994" class="LineNr">2994 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L2995" class="LineNr">2995 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2996" class="LineNr">2996 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2997" class="LineNr">2997 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L2998" class="LineNr">2998 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L2999" class="LineNr">2999 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3000" class="LineNr">3000 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/base"</span>/imm32 -<span id="L3001" class="LineNr">3001 </span> 68/push 6/imm32/esi -<span id="L3002" class="LineNr">3002 </span> 50/push-eax -<span id="L3003" class="LineNr">3003 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3004" class="LineNr">3004 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3005" class="LineNr">3005 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3006" class="LineNr">3006 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3007" class="LineNr">3007 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> -<span id="L3008" class="LineNr">3008 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3009" class="LineNr">3009 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/index"</span>/imm32 -<span id="L3010" class="LineNr">3010 </span> 68/push 1/imm32/none -<span id="L3011" class="LineNr">3011 </span> 51/push-ecx -<span id="L3012" class="LineNr">3012 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3013" class="LineNr">3013 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3014" class="LineNr">3014 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3015" class="LineNr">3015 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3016" class="LineNr">3016 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> -<span id="L3017" class="LineNr">3017 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3018" class="LineNr">3018 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/scale"</span>/imm32 -<span id="L3019" class="LineNr">3019 </span> 68/push 0/imm32/none -<span id="L3020" class="LineNr">3020 </span> 52/push-edx -<span id="L3021" class="LineNr">3021 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3022" class="LineNr">3022 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3023" class="LineNr">3023 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3024" class="LineNr">3024 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3025" class="LineNr">3025 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> -<span id="L3026" class="LineNr">3026 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3027" class="LineNr">3027 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2977'>test-parse-effective-address-base-index</a>/displacement"</span>/imm32 -<span id="L3028" class="LineNr">3028 </span> 68/push 0/imm32 -<span id="L3029" class="LineNr">3029 </span> 53/push-ebx -<span id="L3030" class="LineNr">3030 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3031" class="LineNr">3031 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3032" class="LineNr">3032 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3033" class="LineNr">3033 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3034" class="LineNr">3034 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3035" class="LineNr">3035 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3036" class="LineNr">3036 </span> 5d/pop-to-ebp -<span id="L3037" class="LineNr">3037 </span> c3/return -<span id="L3038" class="LineNr">3038 </span> -<span id="L3039" class="LineNr">3039 </span><span class="subxTest">test-parse-effective-address-base-index-scale</span>: -<span id="L3040" class="LineNr">3040 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3041" class="LineNr">3041 </span> 55/push-ebp -<span id="L3042" class="LineNr">3042 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3043" class="LineNr">3043 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx<<2)"</span> -<span id="L3044" class="LineNr">3044 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx<<2)"</span>/imm32 -<span id="L3045" class="LineNr">3045 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L3046" class="LineNr">3046 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L3047" class="LineNr">3047 </span> 05/add-to-eax 4/imm32 -<span id="L3048" class="LineNr">3048 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L3049" class="LineNr">3049 </span> 51/push-ecx -<span id="L3050" class="LineNr">3050 </span> 50/push-eax -<span id="L3051" class="LineNr">3051 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L3052" class="LineNr">3052 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L3053" class="LineNr">3053 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3054" class="LineNr">3054 </span> 51/push-ecx -<span id="L3055" class="LineNr">3055 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3056" class="LineNr">3056 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L3057" class="LineNr">3057 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3058" class="LineNr">3058 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3059" class="LineNr">3059 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L3060" class="LineNr">3060 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L3061" class="LineNr">3061 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3062" class="LineNr">3062 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 -<span id="L3063" class="LineNr">3063 </span> 68/push 6/imm32/esi -<span id="L3064" class="LineNr">3064 </span> 50/push-eax -<span id="L3065" class="LineNr">3065 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3066" class="LineNr">3066 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3067" class="LineNr">3067 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3068" class="LineNr">3068 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3069" class="LineNr">3069 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> -<span id="L3070" class="LineNr">3070 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3071" class="LineNr">3071 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 -<span id="L3072" class="LineNr">3072 </span> 68/push 1/imm32/none -<span id="L3073" class="LineNr">3073 </span> 51/push-ecx -<span id="L3074" class="LineNr">3074 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3075" class="LineNr">3075 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3076" class="LineNr">3076 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3077" class="LineNr">3077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3078" class="LineNr">3078 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> -<span id="L3079" class="LineNr">3079 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3080" class="LineNr">3080 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 -<span id="L3081" class="LineNr">3081 </span> 68/push 2/imm32 -<span id="L3082" class="LineNr">3082 </span> 52/push-edx -<span id="L3083" class="LineNr">3083 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3084" class="LineNr">3084 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3085" class="LineNr">3085 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3086" class="LineNr">3086 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3087" class="LineNr">3087 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> -<span id="L3088" class="LineNr">3088 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3089" class="LineNr">3089 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 -<span id="L3090" class="LineNr">3090 </span> 68/push 0/imm32 -<span id="L3091" class="LineNr">3091 </span> 53/push-ebx -<span id="L3092" class="LineNr">3092 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3093" class="LineNr">3093 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3094" class="LineNr">3094 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3095" class="LineNr">3095 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3096" class="LineNr">3096 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3097" class="LineNr">3097 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3098" class="LineNr">3098 </span> 5d/pop-to-ebp -<span id="L3099" class="LineNr">3099 </span> c3/return -<span id="L3100" class="LineNr">3100 </span> -<span id="L3101" class="LineNr">3101 </span><span class="subxTest">test-parse-effective-address-base-index-scale-displacement</span>: -<span id="L3102" class="LineNr">3102 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3103" class="LineNr">3103 </span> 55/push-ebp -<span id="L3104" class="LineNr">3104 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3105" class="LineNr">3105 </span> <span class="subxComment"># var slice/ecx = "*(esi + ecx<<2 - 0x34)"</span> -<span id="L3106" class="LineNr">3106 </span> b8/copy-to-eax <span class="Constant">"*(esi + ecx<<2 - 0x34)"</span>/imm32 -<span id="L3107" class="LineNr">3107 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L3108" class="LineNr">3108 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L3109" class="LineNr">3109 </span> 05/add-to-eax 4/imm32 -<span id="L3110" class="LineNr">3110 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> -<span id="L3111" class="LineNr">3111 </span> 51/push-ecx -<span id="L3112" class="LineNr">3112 </span> 50/push-eax -<span id="L3113" class="LineNr">3113 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L3114" class="LineNr">3114 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> -<span id="L3115" class="LineNr">3115 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3116" class="LineNr">3116 </span> 51/push-ecx -<span id="L3117" class="LineNr">3117 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3118" class="LineNr">3118 </span> e8/call <a href='sigils.subx.html#L2232'>parse-effective-address</a>/disp32 -<span id="L3119" class="LineNr">3119 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3120" class="LineNr">3120 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3121" class="LineNr">3121 </span> <span class="subxComment"># slice clobbered beyond this point</span> -<span id="L3122" class="LineNr">3122 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L3123" class="LineNr">3123 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3124" class="LineNr">3124 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 -<span id="L3125" class="LineNr">3125 </span> 68/push 6/imm32/esi -<span id="L3126" class="LineNr">3126 </span> 50/push-eax -<span id="L3127" class="LineNr">3127 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3128" class="LineNr">3128 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3129" class="LineNr">3129 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3130" class="LineNr">3130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3131" class="LineNr">3131 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> -<span id="L3132" class="LineNr">3132 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3133" class="LineNr">3133 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 -<span id="L3134" class="LineNr">3134 </span> 68/push 1/imm32/none -<span id="L3135" class="LineNr">3135 </span> 51/push-ecx -<span id="L3136" class="LineNr">3136 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3137" class="LineNr">3137 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3138" class="LineNr">3138 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3139" class="LineNr">3139 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3140" class="LineNr">3140 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> -<span id="L3141" class="LineNr">3141 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3142" class="LineNr">3142 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 -<span id="L3143" class="LineNr">3143 </span> 68/push 2/imm32 -<span id="L3144" class="LineNr">3144 </span> 52/push-edx -<span id="L3145" class="LineNr">3145 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3146" class="LineNr">3146 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3147" class="LineNr">3147 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3148" class="LineNr">3148 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3149" class="LineNr">3149 </span> <span class="subxComment"># check-ints-equal(ebx, -0x34, msg)</span> -<span id="L3150" class="LineNr">3150 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3151" class="LineNr">3151 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3039'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 -<span id="L3152" class="LineNr">3152 </span> 68/push -0x34/imm32 -<span id="L3153" class="LineNr">3153 </span> 53/push-ebx -<span id="L3154" class="LineNr">3154 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3155" class="LineNr">3155 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L3156" class="LineNr">3156 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3157" class="LineNr">3157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3158" class="LineNr">3158 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3159" class="LineNr">3159 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3160" class="LineNr">3160 </span> 5d/pop-to-ebp -<span id="L3161" class="LineNr">3161 </span> c3/return -<span id="L3162" class="LineNr">3162 </span> -<span id="L3163" class="LineNr">3163 </span><span class="subxComment"># Code generation:</span> -<span id="L3164" class="LineNr">3164 </span><span class="subxComment"># if base is esp, then goto emit-sib</span> -<span id="L3165" class="LineNr">3165 </span><span class="subxComment"># if base is ebp, then goto emit-sib</span> -<span id="L3166" class="LineNr">3166 </span><span class="subxComment"># if index is none and disp is 0, then mod = 0 and rm32 = base</span> -<span id="L3167" class="LineNr">3167 </span><span class="subxComment"># if index is none, then mod = 2 and rm32 = base and disp32 = disp</span> -<span id="L3168" class="LineNr">3168 </span><span class="subxComment"># emit-sib:</span> -<span id="L3169" class="LineNr">3169 </span><span class="subxComment"># if index is not none, then mod = 2 and rm32 = 4 and base = base and index = index and disp32 = disp</span> -<span id="L3170" class="LineNr">3170 </span><span class="subxFunction">emit-indirect-mode</span>: <span class="subxComment"># out: (addr buffered-file), base: int, index: int, scale: int, disp: int</span> -<span id="L3171" class="LineNr">3171 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3172" class="LineNr">3172 </span> 55/push-ebp -<span id="L3173" class="LineNr">3173 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3174" class="LineNr">3174 </span><span class="Constant">$emit-indirect-mode:check-for-ebp</span>: -<span id="L3175" class="LineNr">3175 </span> <span class="subxComment"># if (base == 5) goto emit-sib</span> -<span id="L3176" class="LineNr">3176 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 5/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L3177" class="LineNr">3177 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 -<span id="L3178" class="LineNr">3178 </span><span class="Constant">$emit-indirect-mode:check-for-esp</span>: -<span id="L3179" class="LineNr">3179 </span> <span class="subxComment"># if (base == 4) goto emit-sib</span> -<span id="L3180" class="LineNr">3180 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 4/imm32 <span class="subxComment"># compare *(ebp+12)</span> -<span id="L3181" class="LineNr">3181 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 -<span id="L3182" class="LineNr">3182 </span><span class="Constant">$emit-indirect-mode:check-for-sib</span>: -<span id="L3183" class="LineNr">3183 </span> <span class="subxComment"># if (index == 4/none) goto next check</span> -<span id="L3184" class="LineNr">3184 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 4/imm32 <span class="subxComment"># compare *(ebp+16)</span> -<span id="L3185" class="LineNr">3185 </span> 0f 84/jump-if-= $emit-indirect-mode:check-for-disp/disp32 -<span id="L3186" class="LineNr">3186 </span><span class="Constant">$emit-indirect-mode:emit-sib</span>: -<span id="L3187" class="LineNr">3187 </span> <span class="subxComment"># emit(out, "2/mod/indirect 4/rm32/sib " base "/base " index "/index " scale "/scale " disp "/disp32")</span> -<span id="L3188" class="LineNr">3188 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 4/rm32/sib ")</span> -<span id="L3189" class="LineNr">3189 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3190" class="LineNr">3190 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib "</span>/imm32 -<span id="L3191" class="LineNr">3191 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3192" class="LineNr">3192 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3193" class="LineNr">3193 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3194" class="LineNr">3194 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3195" class="LineNr">3195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3196" class="LineNr">3196 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> -<span id="L3197" class="LineNr">3197 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3198" class="LineNr">3198 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3199" class="LineNr">3199 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3200" class="LineNr">3200 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3201" class="LineNr">3201 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L3202" class="LineNr">3202 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3203" class="LineNr">3203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3204" class="LineNr">3204 </span> <span class="subxS1Comment"># . write-buffered(out, "/base ")</span> -<span id="L3205" class="LineNr">3205 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3206" class="LineNr">3206 </span> 68/push <span class="Constant">"/base "</span>/imm32 -<span id="L3207" class="LineNr">3207 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3208" class="LineNr">3208 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3209" class="LineNr">3209 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3210" class="LineNr">3210 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3211" class="LineNr">3211 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3212" class="LineNr">3212 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, index)</span> -<span id="L3213" class="LineNr">3213 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3214" class="LineNr">3214 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L3215" class="LineNr">3215 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3216" class="LineNr">3216 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3217" class="LineNr">3217 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L3218" class="LineNr">3218 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3219" class="LineNr">3219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3220" class="LineNr">3220 </span> <span class="subxS1Comment"># . write-buffered(out, "/index ")</span> -<span id="L3221" class="LineNr">3221 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3222" class="LineNr">3222 </span> 68/push <span class="Constant">"/index "</span>/imm32 -<span id="L3223" class="LineNr">3223 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3224" class="LineNr">3224 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3225" class="LineNr">3225 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3226" class="LineNr">3226 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3227" class="LineNr">3227 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3228" class="LineNr">3228 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, scale)</span> -<span id="L3229" class="LineNr">3229 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3230" class="LineNr">3230 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L3231" class="LineNr">3231 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3232" class="LineNr">3232 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3233" class="LineNr">3233 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L3234" class="LineNr">3234 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3235" class="LineNr">3235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3236" class="LineNr">3236 </span> <span class="subxS1Comment"># . write-buffered(out, "/scale ")</span> -<span id="L3237" class="LineNr">3237 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3238" class="LineNr">3238 </span> 68/push <span class="Constant">"/scale "</span>/imm32 -<span id="L3239" class="LineNr">3239 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3240" class="LineNr">3240 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3241" class="LineNr">3241 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3242" class="LineNr">3242 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3243" class="LineNr">3243 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3244" class="LineNr">3244 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> -<span id="L3245" class="LineNr">3245 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3246" class="LineNr">3246 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L3247" class="LineNr">3247 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3248" class="LineNr">3248 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3249" class="LineNr">3249 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L3250" class="LineNr">3250 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3251" class="LineNr">3251 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3252" class="LineNr">3252 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> -<span id="L3253" class="LineNr">3253 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3254" class="LineNr">3254 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 -<span id="L3255" class="LineNr">3255 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3256" class="LineNr">3256 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3257" class="LineNr">3257 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3258" class="LineNr">3258 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3259" class="LineNr">3259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3260" class="LineNr">3260 </span> e9/jump $emit-indirect-mode:end/disp32 -<span id="L3261" class="LineNr">3261 </span><span class="Constant">$emit-indirect-mode:check-for-disp</span>: -<span id="L3262" class="LineNr">3262 </span> <span class="subxComment"># if (disp == 0) goto next check</span> -<span id="L3263" class="LineNr">3263 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 0/imm32 <span class="subxComment"># compare *(ebp+24)</span> -<span id="L3264" class="LineNr">3264 </span> 74/jump-if-= $emit-indirect-mode:emit-indirect/disp8 -<span id="L3265" class="LineNr">3265 </span><span class="Constant">$emit-indirect-mode:emit-disp</span>: -<span id="L3266" class="LineNr">3266 </span> <span class="subxComment"># emit(out, "2/mod/*+disp32 " base "/rm32 " disp "/disp32")</span> -<span id="L3267" class="LineNr">3267 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 ")</span> -<span id="L3268" class="LineNr">3268 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3269" class="LineNr">3269 </span> 68/push <span class="Constant">"2/mod/*+disp32 "</span>/imm32 -<span id="L3270" class="LineNr">3270 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3271" class="LineNr">3271 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3272" class="LineNr">3272 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3273" class="LineNr">3273 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3274" class="LineNr">3274 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3275" class="LineNr">3275 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> -<span id="L3276" class="LineNr">3276 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3277" class="LineNr">3277 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3278" class="LineNr">3278 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3279" class="LineNr">3279 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3280" class="LineNr">3280 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L3281" class="LineNr">3281 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3282" class="LineNr">3282 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3283" class="LineNr">3283 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32 ")</span> -<span id="L3284" class="LineNr">3284 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3285" class="LineNr">3285 </span> 68/push <span class="Constant">"/rm32 "</span>/imm32 -<span id="L3286" class="LineNr">3286 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3287" class="LineNr">3287 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3288" class="LineNr">3288 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3289" class="LineNr">3289 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3290" class="LineNr">3290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3291" class="LineNr">3291 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> -<span id="L3292" class="LineNr">3292 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3293" class="LineNr">3293 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L3294" class="LineNr">3294 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3296" class="LineNr">3296 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L3297" class="LineNr">3297 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3298" class="LineNr">3298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3299" class="LineNr">3299 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> -<span id="L3300" class="LineNr">3300 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3301" class="LineNr">3301 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 -<span id="L3302" class="LineNr">3302 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3303" class="LineNr">3303 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3304" class="LineNr">3304 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3305" class="LineNr">3305 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3306" class="LineNr">3306 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3307" class="LineNr">3307 </span> eb/jump $emit-indirect-mode:end/disp8 -<span id="L3308" class="LineNr">3308 </span><span class="Constant">$emit-indirect-mode:emit-indirect</span>: -<span id="L3309" class="LineNr">3309 </span> <span class="subxComment"># emit(out, "0/mod/indirect " base "/rm32")</span> -<span id="L3310" class="LineNr">3310 </span> <span class="subxS1Comment"># . write-buffered(out, "0/mod/indirect ")</span> -<span id="L3311" class="LineNr">3311 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3312" class="LineNr">3312 </span> 68/push <span class="Constant">"0/mod/indirect "</span>/imm32 -<span id="L3313" class="LineNr">3313 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3315" class="LineNr">3315 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3316" class="LineNr">3316 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3317" class="LineNr">3317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3318" class="LineNr">3318 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> -<span id="L3319" class="LineNr">3319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3320" class="LineNr">3320 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3321" class="LineNr">3321 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3322" class="LineNr">3322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3323" class="LineNr">3323 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L3324" class="LineNr">3324 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3325" class="LineNr">3325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3326" class="LineNr">3326 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32")</span> -<span id="L3327" class="LineNr">3327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3328" class="LineNr">3328 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 -<span id="L3329" class="LineNr">3329 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3330" class="LineNr">3330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3331" class="LineNr">3331 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3332" class="LineNr">3332 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3333" class="LineNr">3333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3334" class="LineNr">3334 </span><span class="Constant">$emit-indirect-mode:end</span>: -<span id="L3335" class="LineNr">3335 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3336" class="LineNr">3336 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3337" class="LineNr">3337 </span> 5d/pop-to-ebp -<span id="L3338" class="LineNr">3338 </span> c3/return -<span id="L3339" class="LineNr">3339 </span> -<span id="L3340" class="LineNr">3340 </span><span class="subxTest">test-emit-indirect-mode</span>: -<span id="L3341" class="LineNr">3341 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3342" class="LineNr">3342 </span> 55/push-ebp -<span id="L3343" class="LineNr">3343 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3344" class="LineNr">3344 </span> <span class="subxComment"># setup</span> -<span id="L3345" class="LineNr">3345 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3346" class="LineNr">3346 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3347" class="LineNr">3347 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3349" class="LineNr">3349 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3350" class="LineNr">3350 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3351" class="LineNr">3351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3352" class="LineNr">3352 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3353" class="LineNr">3353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3354" class="LineNr">3354 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3355" class="LineNr">3355 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3356" class="LineNr">3356 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3357" class="LineNr">3357 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3358" class="LineNr">3358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3359" class="LineNr">3359 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 0, 4/none, 0, 0)</span> -<span id="L3360" class="LineNr">3360 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3361" class="LineNr">3361 </span> 68/push 0/imm32/.disp -<span id="L3362" class="LineNr">3362 </span> 68/push 0/imm32/.scale -<span id="L3363" class="LineNr">3363 </span> 68/push 4/imm32/.index/none -<span id="L3364" class="LineNr">3364 </span> 68/push 0/imm32/.base -<span id="L3365" class="LineNr">3365 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3366" class="LineNr">3366 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3367" class="LineNr">3367 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L3368" class="LineNr">3368 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3369" class="LineNr">3369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3370" class="LineNr">3370 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3371" class="LineNr">3371 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3372" class="LineNr">3372 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3373" class="LineNr">3373 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3374" class="LineNr">3374 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3375" class="LineNr">3375 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3376" class="LineNr">3376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3377" class="Folded">3377 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3403" class="LineNr">3403 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 0/rm32", msg)</span> -<span id="L3404" class="LineNr">3404 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3405" class="LineNr">3405 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode"</span>/imm32 -<span id="L3406" class="LineNr">3406 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000000/rm32"</span>/imm32 -<span id="L3407" class="LineNr">3407 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3408" class="LineNr">3408 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3409" class="LineNr">3409 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3410" class="LineNr">3410 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3411" class="LineNr">3411 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3412" class="LineNr">3412 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3413" class="LineNr">3413 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3414" class="LineNr">3414 </span> 5d/pop-to-ebp -<span id="L3415" class="LineNr">3415 </span> c3/return -<span id="L3416" class="LineNr">3416 </span> -<span id="L3417" class="LineNr">3417 </span><span class="subxTest">test-emit-indirect-mode-2</span>: -<span id="L3418" class="LineNr">3418 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3419" class="LineNr">3419 </span> 55/push-ebp -<span id="L3420" class="LineNr">3420 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3421" class="LineNr">3421 </span> <span class="subxComment"># setup</span> -<span id="L3422" class="LineNr">3422 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3423" class="LineNr">3423 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3424" class="LineNr">3424 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3425" class="LineNr">3425 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3426" class="LineNr">3426 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3427" class="LineNr">3427 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3428" class="LineNr">3428 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3429" class="LineNr">3429 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3430" class="LineNr">3430 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3431" class="LineNr">3431 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3432" class="LineNr">3432 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3433" class="LineNr">3433 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3434" class="LineNr">3434 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3435" class="LineNr">3435 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3436" class="LineNr">3436 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 0)</span> -<span id="L3437" class="LineNr">3437 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3438" class="LineNr">3438 </span> 68/push 0/imm32/.disp -<span id="L3439" class="LineNr">3439 </span> 68/push 0/imm32/.scale -<span id="L3440" class="LineNr">3440 </span> 68/push 4/imm32/.index/none -<span id="L3441" class="LineNr">3441 </span> 68/push 7/imm32/.base -<span id="L3442" class="LineNr">3442 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3443" class="LineNr">3443 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3444" class="LineNr">3444 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L3445" class="LineNr">3445 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3446" class="LineNr">3446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3447" class="LineNr">3447 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3448" class="LineNr">3448 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3449" class="LineNr">3449 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3450" class="LineNr">3450 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3451" class="LineNr">3451 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3452" class="LineNr">3452 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3453" class="LineNr">3453 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3454" class="Folded">3454 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3480" class="LineNr">3480 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 7/rm32", msg)</span> -<span id="L3481" class="LineNr">3481 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3482" class="LineNr">3482 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-2"</span>/imm32 -<span id="L3483" class="LineNr">3483 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000007/rm32"</span>/imm32 -<span id="L3484" class="LineNr">3484 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3485" class="LineNr">3485 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3486" class="LineNr">3486 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3487" class="LineNr">3487 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3488" class="LineNr">3488 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3489" class="LineNr">3489 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3490" class="LineNr">3490 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3491" class="LineNr">3491 </span> 5d/pop-to-ebp -<span id="L3492" class="LineNr">3492 </span> c3/return -<span id="L3493" class="LineNr">3493 </span> -<span id="L3494" class="LineNr">3494 </span><span class="subxTest">test-emit-indirect-mode-with-disp</span>: -<span id="L3495" class="LineNr">3495 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3496" class="LineNr">3496 </span> 55/push-ebp -<span id="L3497" class="LineNr">3497 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3498" class="LineNr">3498 </span> <span class="subxComment"># setup</span> -<span id="L3499" class="LineNr">3499 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3500" class="LineNr">3500 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3501" class="LineNr">3501 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3502" class="LineNr">3502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3503" class="LineNr">3503 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3504" class="LineNr">3504 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3505" class="LineNr">3505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3506" class="LineNr">3506 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3507" class="LineNr">3507 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3508" class="LineNr">3508 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3509" class="LineNr">3509 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3510" class="LineNr">3510 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3511" class="LineNr">3511 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3512" class="LineNr">3512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3513" class="LineNr">3513 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 4)</span> -<span id="L3514" class="LineNr">3514 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3515" class="LineNr">3515 </span> 68/push 4/imm32/.disp -<span id="L3516" class="LineNr">3516 </span> 68/push 0/imm32/.scale -<span id="L3517" class="LineNr">3517 </span> 68/push 4/imm32/.index/none -<span id="L3518" class="LineNr">3518 </span> 68/push 6/imm32/.base -<span id="L3519" class="LineNr">3519 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3520" class="LineNr">3520 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3521" class="LineNr">3521 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L3522" class="LineNr">3522 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3523" class="LineNr">3523 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3524" class="LineNr">3524 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3525" class="LineNr">3525 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3526" class="LineNr">3526 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3527" class="LineNr">3527 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3528" class="LineNr">3528 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3529" class="LineNr">3529 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3530" class="LineNr">3530 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3531" class="Folded">3531 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3557" class="LineNr">3557 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 4/disp32", msg)</span> -<span id="L3558" class="LineNr">3558 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3559" class="LineNr">3559 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 -<span id="L3560" class="LineNr">3560 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0x00000004/disp32"</span>/imm32 -<span id="L3561" class="LineNr">3561 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3562" class="LineNr">3562 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3563" class="LineNr">3563 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3564" class="LineNr">3564 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3565" class="LineNr">3565 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3566" class="LineNr">3566 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3567" class="LineNr">3567 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3568" class="LineNr">3568 </span> 5d/pop-to-ebp -<span id="L3569" class="LineNr">3569 </span> c3/return -<span id="L3570" class="LineNr">3570 </span> -<span id="L3571" class="LineNr">3571 </span><span class="subxTest">test-emit-indirect-mode-with-disp-negative</span>: -<span id="L3572" class="LineNr">3572 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3573" class="LineNr">3573 </span> 55/push-ebp -<span id="L3574" class="LineNr">3574 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3575" class="LineNr">3575 </span> <span class="subxComment"># setup</span> -<span id="L3576" class="LineNr">3576 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3577" class="LineNr">3577 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3578" class="LineNr">3578 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3579" class="LineNr">3579 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3580" class="LineNr">3580 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3581" class="LineNr">3581 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3582" class="LineNr">3582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3583" class="LineNr">3583 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3584" class="LineNr">3584 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3585" class="LineNr">3585 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3586" class="LineNr">3586 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3587" class="LineNr">3587 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3588" class="LineNr">3588 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3589" class="LineNr">3589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3590" class="LineNr">3590 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, -4)</span> -<span id="L3591" class="LineNr">3591 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3592" class="LineNr">3592 </span> 68/push -4/imm32/.disp -<span id="L3593" class="LineNr">3593 </span> 68/push 0/imm32/.scale -<span id="L3594" class="LineNr">3594 </span> 68/push 4/imm32/.index/none -<span id="L3595" class="LineNr">3595 </span> 68/push 6/imm32/.base -<span id="L3596" class="LineNr">3596 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3597" class="LineNr">3597 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3598" class="LineNr">3598 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L3599" class="LineNr">3599 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3600" class="LineNr">3600 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3601" class="LineNr">3601 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3602" class="LineNr">3602 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3603" class="LineNr">3603 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3604" class="LineNr">3604 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3605" class="LineNr">3605 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3606" class="LineNr">3606 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3607" class="LineNr">3607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3608" class="Folded">3608 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3634" class="LineNr">3634 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 -4/disp32", msg)</span> -<span id="L3635" class="LineNr">3635 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3636" class="LineNr">3636 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 -<span id="L3637" class="LineNr">3637 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0xfffffffc/disp32"</span>/imm32 -<span id="L3638" class="LineNr">3638 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3639" class="LineNr">3639 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3640" class="LineNr">3640 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3641" class="LineNr">3641 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3642" class="LineNr">3642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3643" class="LineNr">3643 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3644" class="LineNr">3644 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3645" class="LineNr">3645 </span> 5d/pop-to-ebp -<span id="L3646" class="LineNr">3646 </span> c3/return -<span id="L3647" class="LineNr">3647 </span> -<span id="L3648" class="LineNr">3648 </span><span class="subxTest">test-emit-indirect-mode-with-sib</span>: -<span id="L3649" class="LineNr">3649 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3650" class="LineNr">3650 </span> 55/push-ebp -<span id="L3651" class="LineNr">3651 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3652" class="LineNr">3652 </span> <span class="subxComment"># setup</span> -<span id="L3653" class="LineNr">3653 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3654" class="LineNr">3654 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3655" class="LineNr">3655 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3656" class="LineNr">3656 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3657" class="LineNr">3657 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3658" class="LineNr">3658 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3659" class="LineNr">3659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3660" class="LineNr">3660 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3661" class="LineNr">3661 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3662" class="LineNr">3662 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3663" class="LineNr">3663 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3664" class="LineNr">3664 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3665" class="LineNr">3665 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3666" class="LineNr">3666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3667" class="LineNr">3667 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6/base, 1/index, 2/scale, 4/disp)</span> -<span id="L3668" class="LineNr">3668 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3669" class="LineNr">3669 </span> 68/push 4/imm32/.disp -<span id="L3670" class="LineNr">3670 </span> 68/push 2/imm32/.scale -<span id="L3671" class="LineNr">3671 </span> 68/push 1/imm32/.index -<span id="L3672" class="LineNr">3672 </span> 68/push 6/imm32/.base -<span id="L3673" class="LineNr">3673 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3674" class="LineNr">3674 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3675" class="LineNr">3675 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L3676" class="LineNr">3676 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3677" class="LineNr">3677 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3678" class="LineNr">3678 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3679" class="LineNr">3679 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3680" class="LineNr">3680 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3681" class="LineNr">3681 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3682" class="LineNr">3682 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3683" class="LineNr">3683 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3684" class="LineNr">3684 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3685" class="Folded">3685 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3711" class="LineNr">3711 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/indirect 4/rm32/sib 6/base 1/index 2/scale 4/disp", msg)</span> -<span id="L3712" class="LineNr">3712 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3713" class="LineNr">3713 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-sib"</span>/imm32 -<span id="L3714" class="LineNr">3714 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000006/base 0x00000001/index 0x00000002/scale 0x00000004/disp32"</span>/imm32 -<span id="L3715" class="LineNr">3715 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3716" class="LineNr">3716 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3717" class="LineNr">3717 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3718" class="LineNr">3718 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3719" class="LineNr">3719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3720" class="LineNr">3720 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3721" class="LineNr">3721 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3722" class="LineNr">3722 </span> 5d/pop-to-ebp -<span id="L3723" class="LineNr">3723 </span> c3/return -<span id="L3724" class="LineNr">3724 </span> -<span id="L3725" class="LineNr">3725 </span><span class="subxTest">test-emit-indirect-mode-ebp</span>: -<span id="L3726" class="LineNr">3726 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3727" class="LineNr">3727 </span> 55/push-ebp -<span id="L3728" class="LineNr">3728 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3729" class="LineNr">3729 </span> <span class="subxComment"># setup</span> -<span id="L3730" class="LineNr">3730 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3731" class="LineNr">3731 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3732" class="LineNr">3732 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3733" class="LineNr">3733 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3734" class="LineNr">3734 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3735" class="LineNr">3735 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3736" class="LineNr">3736 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3737" class="LineNr">3737 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3738" class="LineNr">3738 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3739" class="LineNr">3739 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3740" class="LineNr">3740 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3741" class="LineNr">3741 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3742" class="LineNr">3742 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3743" class="LineNr">3743 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3744" class="LineNr">3744 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 5/base, 0/index, 0/scale, 0/disp)</span> -<span id="L3745" class="LineNr">3745 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3746" class="LineNr">3746 </span> 68/push 0/imm32/.disp -<span id="L3747" class="LineNr">3747 </span> 68/push 0/imm32/.scale -<span id="L3748" class="LineNr">3748 </span> 68/push 0/imm32/.index -<span id="L3749" class="LineNr">3749 </span> 68/push 5/imm32/.base/ebp -<span id="L3750" class="LineNr">3750 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3751" class="LineNr">3751 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3752" class="LineNr">3752 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L3753" class="LineNr">3753 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3754" class="LineNr">3754 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3755" class="LineNr">3755 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3756" class="LineNr">3756 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3757" class="LineNr">3757 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3758" class="LineNr">3758 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3759" class="LineNr">3759 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3760" class="LineNr">3760 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3761" class="LineNr">3761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3762" class="Folded">3762 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3788" class="LineNr">3788 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 5/base/ebp 0/index 0/scale 0/disp32", msg)</span> -<span id="L3789" class="LineNr">3789 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3790" class="LineNr">3790 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-ebp"</span>/imm32 -<span id="L3791" class="LineNr">3791 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000005/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 -<span id="L3792" class="LineNr">3792 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3793" class="LineNr">3793 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3794" class="LineNr">3794 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3795" class="LineNr">3795 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3796" class="LineNr">3796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3797" class="LineNr">3797 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3798" class="LineNr">3798 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3799" class="LineNr">3799 </span> 5d/pop-to-ebp -<span id="L3800" class="LineNr">3800 </span> c3/return -<span id="L3801" class="LineNr">3801 </span> -<span id="L3802" class="LineNr">3802 </span><span class="subxTest">test-emit-indirect-mode-esp</span>: -<span id="L3803" class="LineNr">3803 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3804" class="LineNr">3804 </span> 55/push-ebp -<span id="L3805" class="LineNr">3805 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3806" class="LineNr">3806 </span> <span class="subxComment"># setup</span> -<span id="L3807" class="LineNr">3807 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L3808" class="LineNr">3808 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3809" class="LineNr">3809 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3810" class="LineNr">3810 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3811" class="LineNr">3811 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3812" class="LineNr">3812 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3813" class="LineNr">3813 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3814" class="LineNr">3814 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L3815" class="LineNr">3815 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3816" class="LineNr">3816 </span> 68/push $_test-output-buffered-file->buffer/imm32 -<span id="L3817" class="LineNr">3817 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3818" class="LineNr">3818 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L3819" class="LineNr">3819 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3820" class="LineNr">3820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3821" class="LineNr">3821 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 4/base, 0/index, 0/scale, 0/disp)</span> -<span id="L3822" class="LineNr">3822 </span> <span class="subxS2Comment"># . . write args</span> -<span id="L3823" class="LineNr">3823 </span> 68/push 0/imm32/.disp -<span id="L3824" class="LineNr">3824 </span> 68/push 0/imm32/.scale -<span id="L3825" class="LineNr">3825 </span> 68/push 0/imm32/.index -<span id="L3826" class="LineNr">3826 </span> 68/push 4/imm32/.base/esp -<span id="L3827" class="LineNr">3827 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3828" class="LineNr">3828 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3829" class="LineNr">3829 </span> e8/call <a href='sigils.subx.html#L3170'>emit-indirect-mode</a>/disp32 -<span id="L3830" class="LineNr">3830 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3831" class="LineNr">3831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3832" class="LineNr">3832 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L3833" class="LineNr">3833 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3834" class="LineNr">3834 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L3835" class="LineNr">3835 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3836" class="LineNr">3836 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L3837" class="LineNr">3837 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3838" class="LineNr">3838 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3839" class="Folded">3839 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3865" class="LineNr">3865 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 4/base/ebp 0/index 0/scale 0/disp32", msg)</span> -<span id="L3866" class="LineNr">3866 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3867" class="LineNr">3867 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-esp"</span>/imm32 -<span id="L3868" class="LineNr">3868 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000004/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 -<span id="L3869" class="LineNr">3869 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3870" class="LineNr">3870 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3871" class="LineNr">3871 </span> e8/call <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 -<span id="L3872" class="LineNr">3872 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3873" class="LineNr">3873 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3874" class="LineNr">3874 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3875" class="LineNr">3875 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3876" class="LineNr">3876 </span> 5d/pop-to-ebp -<span id="L3877" class="LineNr">3877 </span> c3/return -<span id="L3878" class="LineNr">3878 </span> -<span id="L3879" class="LineNr">3879 </span><span class="subxFunction">disp32-mode?</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: boolean</span> -<span id="L3880" class="LineNr">3880 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3881" class="LineNr">3881 </span> 55/push-ebp -<span id="L3882" class="LineNr">3882 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3883" class="LineNr">3883 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3884" class="LineNr">3884 </span> 56/push-esi -<span id="L3885" class="LineNr">3885 </span> 57/push-edi -<span id="L3886" class="LineNr">3886 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> -<span id="L3887" class="LineNr">3887 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L3888" class="LineNr">3888 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L3889" class="LineNr">3889 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L3890" class="LineNr">3890 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L3891" class="LineNr">3891 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L3892" class="LineNr">3892 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L3893" class="LineNr">3893 </span> <span class="subxComment"># if (*local-slice->start == '(') return false</span> -<span id="L3894" class="LineNr">3894 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L3895" class="LineNr">3895 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> -<span id="L3896" class="LineNr">3896 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> -<span id="L3897" class="LineNr">3897 </span> 3d/compare-eax-and 0x28/imm32/open-paren -<span id="L3898" class="LineNr">3898 </span> 74/jump-if-= $disp32-mode?:false/disp8 -<span id="L3899" class="LineNr">3899 </span><span class="Constant">$disp32-mode?:check-for-register</span>: -<span id="L3900" class="LineNr">3900 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> -<span id="L3901" class="LineNr">3901 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3902" class="LineNr">3902 </span> 56/push-esi -<span id="L3903" class="LineNr">3903 </span> 68/push 0x2f/imm32/slash -<span id="L3904" class="LineNr">3904 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L3905" class="LineNr">3905 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L3906" class="LineNr">3906 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3907" class="LineNr">3907 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L3908" class="LineNr">3908 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3909" class="LineNr">3909 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L3910" class="LineNr">3910 </span> <span class="subxComment"># reg-num/eax = maybe-get-slice(Registers, local-slice, row-size=12)</span> -<span id="L3911" class="LineNr">3911 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3912" class="LineNr">3912 </span> 68/push 0xc/imm32/row-size -<span id="L3913" class="LineNr">3913 </span> 56/push-esi -<span id="L3914" class="LineNr">3914 </span> 68/push <span class="SpecialChar"><a href='../201register-names.subx.html#L2'>Registers</a></span>/imm32 -<span id="L3915" class="LineNr">3915 </span> <span class="subxS2Comment"># . . cal</span> -<span id="L3916" class="LineNr">3916 </span> e8/call <a href='../131table.subx.html#L1965'>maybe-get-slice</a>/disp32 -<span id="L3917" class="LineNr">3917 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3918" class="LineNr">3918 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3919" class="LineNr">3919 </span> <span class="subxComment"># if (eax != 0) return false</span> -<span id="L3920" class="LineNr">3920 </span> 3d/compare-eax-and 0/imm32 -<span id="L3921" class="LineNr">3921 </span> 75/jump-if-!= $disp32-mode?:false/disp8 -<span id="L3922" class="LineNr">3922 </span> <span class="subxComment"># return true</span> -<span id="L3923" class="LineNr">3923 </span> b8/copy-to-eax 1/imm32/true -<span id="L3924" class="LineNr">3924 </span> eb/jump $disp32-mode?:end/disp8 -<span id="L3925" class="LineNr">3925 </span><span class="Constant">$disp32-mode?:false</span>: -<span id="L3926" class="LineNr">3926 </span> b8/copy-to-eax 0/imm32/false -<span id="L3927" class="LineNr">3927 </span><span class="Constant">$disp32-mode?:end</span>: -<span id="L3928" class="LineNr">3928 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L3929" class="LineNr">3929 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3930" class="LineNr">3930 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3931" class="LineNr">3931 </span> 5f/pop-to-edi -<span id="L3932" class="LineNr">3932 </span> 5e/pop-to-esi -<span id="L3933" class="LineNr">3933 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3934" class="LineNr">3934 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3935" class="LineNr">3935 </span> 5d/pop-to-ebp -<span id="L3936" class="LineNr">3936 </span> c3/return -<span id="L3937" class="LineNr">3937 </span> -<span id="L3938" class="LineNr">3938 </span><span class="subxFunction">emit-indirect-disp32</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> -<span id="L3939" class="LineNr">3939 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3940" class="LineNr">3940 </span> 55/push-ebp -<span id="L3941" class="LineNr">3941 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3942" class="LineNr">3942 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3943" class="LineNr">3943 </span> 56/push-esi -<span id="L3944" class="LineNr">3944 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> -<span id="L3945" class="LineNr">3945 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L3946" class="LineNr">3946 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L3947" class="LineNr">3947 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L3948" class="LineNr">3948 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> -<span id="L3949" class="LineNr">3949 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> -<span id="L3950" class="LineNr">3950 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> -<span id="L3951" class="LineNr">3951 </span> <span class="subxComment"># write-buffered(out, "0/mod/indirect 5/rm32/.disp32 ")</span> -<span id="L3952" class="LineNr">3952 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3953" class="LineNr">3953 </span> 68/push <span class="Constant">"0/mod/indirect 5/rm32/.disp32 "</span>/imm32 -<span id="L3954" class="LineNr">3954 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3955" class="LineNr">3955 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3956" class="LineNr">3956 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3957" class="LineNr">3957 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3958" class="LineNr">3958 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3959" class="LineNr">3959 </span> <span class="subxComment"># write-slice-buffered(out, local-slice)</span> -<span id="L3960" class="LineNr">3960 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3961" class="LineNr">3961 </span> 56/push-esi -<span id="L3962" class="LineNr">3962 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3963" class="LineNr">3963 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3964" class="LineNr">3964 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L3965" class="LineNr">3965 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3966" class="LineNr">3966 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3967" class="LineNr">3967 </span> <span class="subxComment"># write-buffered(out, "/disp32")</span> -<span id="L3968" class="LineNr">3968 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3969" class="LineNr">3969 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 -<span id="L3970" class="LineNr">3970 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3971" class="LineNr">3971 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3972" class="LineNr">3972 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3973" class="LineNr">3973 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3974" class="LineNr">3974 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3975" class="LineNr">3975 </span><span class="Constant">$emit-indirect-disp32:end</span>: -<span id="L3976" class="LineNr">3976 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L3977" class="LineNr">3977 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3978" class="LineNr">3978 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3979" class="LineNr">3979 </span> 5e/pop-to-esi -<span id="L3980" class="LineNr">3980 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3981" class="LineNr">3981 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3982" class="LineNr">3982 </span> 5d/pop-to-ebp -<span id="L3983" class="LineNr">3983 </span> c3/return -<span id="L3984" class="LineNr">3984 </span> -<span id="L3985" class="LineNr">3985 </span><span class="subxComment"># assumes 'in' starts with optional '+' or '-', optional whitespace, and an unsigned integer</span> -<span id="L3986" class="LineNr">3986 </span><span class="subxComment"># returns the value of the integer</span> -<span id="L3987" class="LineNr">3987 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> -<span id="L3988" class="LineNr">3988 </span><span class="subxFunction">next-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> -<span id="L3989" class="LineNr">3989 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3990" class="LineNr">3990 </span> 55/push-ebp -<span id="L3991" class="LineNr">3991 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3992" class="LineNr">3992 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3993" class="LineNr">3993 </span> 51/push-ecx -<span id="L3994" class="LineNr">3994 </span> 52/push-edx -<span id="L3995" class="LineNr">3995 </span> 53/push-ebx -<span id="L3996" class="LineNr">3996 </span> 56/push-esi -<span id="L3997" class="LineNr">3997 </span> 57/push-edi -<span id="L3998" class="LineNr">3998 </span> <span class="subxComment"># result/edi = 0</span> -<span id="L3999" class="LineNr">3999 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> -<span id="L4000" class="LineNr">4000 </span> <span class="subxComment"># esi = in</span> -<span id="L4001" class="LineNr">4001 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L4002" class="LineNr">4002 </span> <span class="subxComment"># edx = in->end</span> -<span id="L4003" class="LineNr">4003 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> -<span id="L4004" class="LineNr">4004 </span> <span class="subxComment"># curr/ecx = in->start</span> -<span id="L4005" class="LineNr">4005 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L4006" class="LineNr">4006 </span> <span class="subxComment"># negate?/ebx = false</span> -<span id="L4007" class="LineNr">4007 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L4008" class="LineNr">4008 </span> <span class="subxComment"># eax = *curr</span> -<span id="L4009" class="LineNr">4009 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L4010" class="LineNr">4010 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4011" class="LineNr">4011 </span><span class="Constant">$next-hex-int:positive</span>: -<span id="L4012" class="LineNr">4012 </span> <span class="subxComment"># if (*curr == '+') ++curr</span> -<span id="L4013" class="LineNr">4013 </span> 3d/compare-eax-and 0x2b/imm32/+ -<span id="L4014" class="LineNr">4014 </span> 75/jump-if-!= $next-hex-int:negative/disp8 -<span id="L4015" class="LineNr">4015 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4016" class="LineNr">4016 </span> 41/increment-ecx -<span id="L4017" class="LineNr">4017 </span> eb/jump $next-hex-int:skip-whitespace/disp8 -<span id="L4018" class="LineNr">4018 </span><span class="Constant">$next-hex-int:negative</span>: -<span id="L4019" class="LineNr">4019 </span> <span class="subxComment"># else if (*curr == '-') ++curr, negate = true</span> -<span id="L4020" class="LineNr">4020 </span> 3d/compare-eax-and 0x2d/imm32/- -<span id="L4021" class="LineNr">4021 </span> 75/jump-if-!= $next-hex-int:skip-whitespace/disp8 -<span id="L4022" class="LineNr">4022 </span><span class="Constant">$next-hex-int:need-to-negate</span>: -<span id="L4023" class="LineNr">4023 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4024" class="LineNr">4024 </span> 41/increment-ecx -<span id="L4025" class="LineNr">4025 </span> <span class="subxS1Comment"># . negate = true</span> -<span id="L4026" class="LineNr">4026 </span> bb/copy-to-ebx 1/imm32/true -<span id="L4027" class="LineNr">4027 </span> <span class="subxComment"># fall through</span> -<span id="L4028" class="LineNr">4028 </span><span class="Constant">$next-hex-int:skip-whitespace</span>: -<span id="L4029" class="LineNr">4029 </span> <span class="subxComment"># spill eax</span> -<span id="L4030" class="LineNr">4030 </span> 50/push-eax -<span id="L4031" class="LineNr">4031 </span> <span class="subxComment"># eax = skip-chars-matching-whitespace-in-slice(word-slice->start, word-slice->end)</span> -<span id="L4032" class="LineNr">4032 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4033" class="LineNr">4033 </span> 52/push-edx -<span id="L4034" class="LineNr">4034 </span> 51/push-ecx -<span id="L4035" class="LineNr">4035 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4036" class="LineNr">4036 </span> e8/call <a href='../124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 -<span id="L4037" class="LineNr">4037 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4038" class="LineNr">4038 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4039" class="LineNr">4039 </span> <span class="subxComment"># ecx = eax</span> -<span id="L4040" class="LineNr">4040 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> -<span id="L4041" class="LineNr">4041 </span> <span class="subxComment"># restore eax</span> -<span id="L4042" class="LineNr">4042 </span> 58/pop-to-eax -<span id="L4043" class="LineNr">4043 </span><span class="Constant">$next-hex-int:initial-0</span>: -<span id="L4044" class="LineNr">4044 </span> <span class="subxComment"># skip past leading '0x'</span> -<span id="L4045" class="LineNr">4045 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> -<span id="L4046" class="LineNr">4046 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4047" class="LineNr">4047 </span> 3d/compare-eax-and 0x30/imm32/0 -<span id="L4048" class="LineNr">4048 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4049" class="LineNr">4049 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4050" class="LineNr">4050 </span> 41/increment-ecx -<span id="L4051" class="LineNr">4051 </span><span class="Constant">$next-hex-int:initial-0x</span>: -<span id="L4052" class="LineNr">4052 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> -<span id="L4053" class="LineNr">4053 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L4054" class="LineNr">4054 </span> 73/jump-if-addr>= $next-hex-int:end/disp8 -<span id="L4055" class="LineNr">4055 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> -<span id="L4056" class="LineNr">4056 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L4057" class="LineNr">4057 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4058" class="LineNr">4058 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L4059" class="LineNr">4059 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4060" class="LineNr">4060 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4061" class="LineNr">4061 </span> 41/increment-ecx -<span id="L4062" class="LineNr">4062 </span><span class="Constant">$next-hex-int:loop</span>: -<span id="L4063" class="LineNr">4063 </span> <span class="subxComment"># if (curr >= in->end) break</span> -<span id="L4064" class="LineNr">4064 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L4065" class="LineNr">4065 </span> 73/jump-if-addr>= $next-hex-int:<span class="Constant">break</span>/disp8 -<span id="L4066" class="LineNr">4066 </span> <span class="subxComment"># if (!is-hex-digit?(*curr)) break</span> -<span id="L4067" class="LineNr">4067 </span> <span class="subxS1Comment"># . eax = *curr</span> -<span id="L4068" class="LineNr">4068 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4069" class="LineNr">4069 </span> <span class="subxS1Comment"># . eax = is-hex-digit?(*curr)</span> -<span id="L4070" class="LineNr">4070 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4071" class="LineNr">4071 </span> 50/push-eax -<span id="L4072" class="LineNr">4072 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4073" class="LineNr">4073 </span> e8/call <a href='../118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 -<span id="L4074" class="LineNr">4074 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4075" class="LineNr">4075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4076" class="LineNr">4076 </span> <span class="subxS1Comment"># . if (eax == false) break</span> -<span id="L4077" class="LineNr">4077 </span> 3d/compare-eax-and 0/imm32/false -<span id="L4078" class="LineNr">4078 </span> 74/jump-if-= $next-hex-int:<span class="Constant">break</span>/disp8 -<span id="L4079" class="LineNr">4079 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> -<span id="L4080" class="LineNr">4080 </span> <span class="subxS2Comment"># . . copy arg to eax</span> -<span id="L4081" class="LineNr">4081 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4082" class="LineNr">4082 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4083" class="LineNr">4083 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 -<span id="L4084" class="LineNr">4084 </span> <span class="subxComment"># result = result * 16 + eax</span> -<span id="L4085" class="LineNr">4085 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> -<span id="L4086" class="LineNr">4086 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> -<span id="L4087" class="LineNr">4087 </span> <span class="subxComment"># ++curr</span> -<span id="L4088" class="LineNr">4088 </span> 41/increment-ecx -<span id="L4089" class="LineNr">4089 </span> <span class="subxComment"># loop</span> -<span id="L4090" class="LineNr">4090 </span> eb/jump $next-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4091" class="LineNr">4091 </span><span class="Constant">$next-hex-int:break</span>: -<span id="L4092" class="LineNr">4092 </span> <span class="subxComment"># if (negate?) result = -result</span> -<span id="L4093" class="LineNr">4093 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare ebx</span> -<span id="L4094" class="LineNr">4094 </span> 74/jump-if-= $next-hex-int:end/disp8 -<span id="L4095" class="LineNr">4095 </span><span class="Constant">$next-hex-int:negate</span>: -<span id="L4096" class="LineNr">4096 </span> f7 3/subop/negate 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># negate edi</span> -<span id="L4097" class="LineNr">4097 </span><span class="Constant">$next-hex-int:end</span>: -<span id="L4098" class="LineNr">4098 </span> <span class="subxComment"># word-slice->start = curr</span> -<span id="L4099" class="LineNr">4099 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> -<span id="L4100" class="LineNr">4100 </span> <span class="subxComment"># return edi</span> -<span id="L4101" class="LineNr">4101 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> -<span id="L4102" class="LineNr">4102 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L4103" class="LineNr">4103 </span> 5f/pop-to-edi -<span id="L4104" class="LineNr">4104 </span> 5e/pop-to-esi -<span id="L4105" class="LineNr">4105 </span> 5b/pop-to-ebx -<span id="L4106" class="LineNr">4106 </span> 5a/pop-to-edx -<span id="L4107" class="LineNr">4107 </span> 59/pop-to-ecx -<span id="L4108" class="LineNr">4108 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4109" class="LineNr">4109 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4110" class="LineNr">4110 </span> 5d/pop-to-ebp -<span id="L4111" class="LineNr">4111 </span> c3/return -<span id="L4112" class="LineNr">4112 </span> -<span id="L4113" class="LineNr">4113 </span><span class="Constant">$next-hex-int:abort</span>: -<span id="L4114" class="LineNr">4114 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L4115" class="LineNr">4115 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4116" class="LineNr">4116 </span> 68/push <span class="Constant">"next-hex-int: invalid hex char: "</span>/imm32 -<span id="L4117" class="LineNr">4117 </span> 68/push 2/imm32/stderr -<span id="L4118" class="LineNr">4118 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4119" class="LineNr">4119 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L4120" class="LineNr">4120 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4121" class="LineNr">4121 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4122" class="LineNr">4122 </span> <span class="subxS1Comment"># . clear-stream($Stderr->buffer)</span> -<span id="L4123" class="LineNr">4123 </span> <span class="subxS2Comment"># . . save eax</span> -<span id="L4124" class="LineNr">4124 </span> 50/push-eax -<span id="L4125" class="LineNr">4125 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4126" class="LineNr">4126 </span> 68/push $Stderr->buffer/imm32 -<span id="L4127" class="LineNr">4127 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4128" class="LineNr">4128 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4129" class="LineNr">4129 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4130" class="LineNr">4130 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4131" class="LineNr">4131 </span> <span class="subxS2Comment"># . . restore eax</span> -<span id="L4132" class="LineNr">4132 </span> 58/pop-to-eax -<span id="L4133" class="LineNr">4133 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(Stderr, eax)</span> -<span id="L4134" class="LineNr">4134 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4135" class="LineNr">4135 </span> 50/push-eax -<span id="L4136" class="LineNr">4136 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L4137" class="LineNr">4137 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4138" class="LineNr">4138 </span> e8/call <a href='../117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 -<span id="L4139" class="LineNr">4139 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4140" class="LineNr">4140 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4141" class="LineNr">4141 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L4142" class="LineNr">4142 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4143" class="LineNr">4143 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4145" class="LineNr">4145 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4147" class="LineNr">4147 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4148" class="LineNr">4148 </span> <span class="subxS1Comment"># . _write(2/stderr, "\n")</span> -<span id="L4149" class="LineNr">4149 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4150" class="LineNr">4150 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L4151" class="LineNr">4151 </span> 68/push 2/imm32/stderr -<span id="L4152" class="LineNr">4152 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4153" class="LineNr">4153 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L4154" class="LineNr">4154 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4155" class="LineNr">4155 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4156" class="LineNr">4156 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L4157" class="LineNr">4157 </span> bb/copy-to-ebx 1/imm32 -<span id="L4158" class="LineNr">4158 </span> e8/call syscall_exit/disp32 -<span id="L4159" class="LineNr">4159 </span> <span class="subxComment"># never gets here</span> -<span id="L4160" class="LineNr">4160 </span> -<span id="L4161" class="LineNr">4161 </span><span class="subxTest">test-next-hex-int-single-digit</span>: -<span id="L4162" class="LineNr">4162 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4163" class="LineNr">4163 </span> 55/push-ebp -<span id="L4164" class="LineNr">4164 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4165" class="LineNr">4165 </span> <span class="subxComment"># (eax..ecx) = "+a)"</span> -<span id="L4166" class="LineNr">4166 </span> b8/copy-to-eax <span class="Constant">"+a)"</span>/imm32 -<span id="L4167" class="LineNr">4167 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4168" class="LineNr">4168 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4169" class="LineNr">4169 </span> 05/add-to-eax 4/imm32 -<span id="L4170" class="LineNr">4170 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4171" class="LineNr">4171 </span> 51/push-ecx -<span id="L4172" class="LineNr">4172 </span> 50/push-eax -<span id="L4173" class="LineNr">4173 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4174" class="LineNr">4174 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4175" class="LineNr">4175 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4176" class="LineNr">4176 </span> 51/push-ecx -<span id="L4177" class="LineNr">4177 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4178" class="LineNr">4178 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L4179" class="LineNr">4179 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4180" class="LineNr">4180 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4181" class="LineNr">4181 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> -<span id="L4182" class="LineNr">4182 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4183" class="LineNr">4183 </span> 68/push <span class="Constant">"F - test-next-hex-int-single-digit"</span>/imm32 -<span id="L4184" class="LineNr">4184 </span> 68/push 0xa/imm32 -<span id="L4185" class="LineNr">4185 </span> 50/push-eax -<span id="L4186" class="LineNr">4186 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4187" class="LineNr">4187 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4188" class="LineNr">4188 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4189" class="LineNr">4189 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4190" class="LineNr">4190 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4191" class="LineNr">4191 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4192" class="LineNr">4192 </span> 5d/pop-to-ebp -<span id="L4193" class="LineNr">4193 </span> c3/return -<span id="L4194" class="LineNr">4194 </span> -<span id="L4195" class="LineNr">4195 </span><span class="subxTest">test-next-hex-int-multi-digit</span>: -<span id="L4196" class="LineNr">4196 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4197" class="LineNr">4197 </span> 55/push-ebp -<span id="L4198" class="LineNr">4198 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4199" class="LineNr">4199 </span> <span class="subxComment"># (eax..ecx) = "+ 34a)"</span> -<span id="L4200" class="LineNr">4200 </span> b8/copy-to-eax <span class="Constant">"+ 34a)"</span>/imm32 -<span id="L4201" class="LineNr">4201 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4202" class="LineNr">4202 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4203" class="LineNr">4203 </span> 05/add-to-eax 4/imm32 -<span id="L4204" class="LineNr">4204 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4205" class="LineNr">4205 </span> 51/push-ecx -<span id="L4206" class="LineNr">4206 </span> 50/push-eax -<span id="L4207" class="LineNr">4207 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4208" class="LineNr">4208 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4209" class="LineNr">4209 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4210" class="LineNr">4210 </span> 51/push-ecx -<span id="L4211" class="LineNr">4211 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4212" class="LineNr">4212 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L4213" class="LineNr">4213 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4214" class="LineNr">4214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4215" class="LineNr">4215 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> -<span id="L4216" class="LineNr">4216 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4217" class="LineNr">4217 </span> 68/push <span class="Constant">"F - test-next-hex-int-multi-digit"</span>/imm32 -<span id="L4218" class="LineNr">4218 </span> 68/push 0x34a/imm32 -<span id="L4219" class="LineNr">4219 </span> 50/push-eax -<span id="L4220" class="LineNr">4220 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4221" class="LineNr">4221 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4222" class="LineNr">4222 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4223" class="LineNr">4223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4224" class="LineNr">4224 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4225" class="LineNr">4225 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4226" class="LineNr">4226 </span> 5d/pop-to-ebp -<span id="L4227" class="LineNr">4227 </span> c3/return -<span id="L4228" class="LineNr">4228 </span> -<span id="L4229" class="LineNr">4229 </span><span class="subxTest">test-next-hex-int-0x-prefix</span>: -<span id="L4230" class="LineNr">4230 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4231" class="LineNr">4231 </span> 55/push-ebp -<span id="L4232" class="LineNr">4232 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4233" class="LineNr">4233 </span> <span class="subxComment"># (eax..ecx) = "+0x34)"</span> -<span id="L4234" class="LineNr">4234 </span> b8/copy-to-eax <span class="Constant">"+0x34)"</span>/imm32 -<span id="L4235" class="LineNr">4235 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4236" class="LineNr">4236 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4237" class="LineNr">4237 </span> 05/add-to-eax 4/imm32 -<span id="L4238" class="LineNr">4238 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4239" class="LineNr">4239 </span> 51/push-ecx -<span id="L4240" class="LineNr">4240 </span> 50/push-eax -<span id="L4241" class="LineNr">4241 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4242" class="LineNr">4242 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4244" class="LineNr">4244 </span> 51/push-ecx -<span id="L4245" class="LineNr">4245 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4246" class="LineNr">4246 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L4247" class="LineNr">4247 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4248" class="LineNr">4248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4249" class="LineNr">4249 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> -<span id="L4250" class="LineNr">4250 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4251" class="LineNr">4251 </span> 68/push <span class="Constant">"F - test-next-hex-int-0x-prefix"</span>/imm32 -<span id="L4252" class="LineNr">4252 </span> 68/push 0x34/imm32 -<span id="L4253" class="LineNr">4253 </span> 50/push-eax -<span id="L4254" class="LineNr">4254 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4255" class="LineNr">4255 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4256" class="LineNr">4256 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4257" class="LineNr">4257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4258" class="LineNr">4258 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4259" class="LineNr">4259 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4260" class="LineNr">4260 </span> 5d/pop-to-ebp -<span id="L4261" class="LineNr">4261 </span> c3/return -<span id="L4262" class="LineNr">4262 </span> -<span id="L4263" class="LineNr">4263 </span><span class="subxTest">test-next-hex-int-zero</span>: -<span id="L4264" class="LineNr">4264 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4265" class="LineNr">4265 </span> 55/push-ebp -<span id="L4266" class="LineNr">4266 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4267" class="LineNr">4267 </span> <span class="subxComment"># (eax..ecx) = "+0)"</span> -<span id="L4268" class="LineNr">4268 </span> b8/copy-to-eax <span class="Constant">"+0)"</span>/imm32 -<span id="L4269" class="LineNr">4269 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4270" class="LineNr">4270 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4271" class="LineNr">4271 </span> 05/add-to-eax 4/imm32 -<span id="L4272" class="LineNr">4272 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4273" class="LineNr">4273 </span> 51/push-ecx -<span id="L4274" class="LineNr">4274 </span> 50/push-eax -<span id="L4275" class="LineNr">4275 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4276" class="LineNr">4276 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4277" class="LineNr">4277 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4278" class="LineNr">4278 </span> 51/push-ecx -<span id="L4279" class="LineNr">4279 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4280" class="LineNr">4280 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L4281" class="LineNr">4281 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4282" class="LineNr">4282 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4283" class="LineNr">4283 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4284" class="LineNr">4284 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4285" class="LineNr">4285 </span> 68/push <span class="Constant">"F - test-next-hex-int-zero"</span>/imm32 -<span id="L4286" class="LineNr">4286 </span> 68/push 0/imm32 -<span id="L4287" class="LineNr">4287 </span> 50/push-eax -<span id="L4288" class="LineNr">4288 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4289" class="LineNr">4289 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4290" class="LineNr">4290 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4291" class="LineNr">4291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4292" class="LineNr">4292 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4293" class="LineNr">4293 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4294" class="LineNr">4294 </span> 5d/pop-to-ebp -<span id="L4295" class="LineNr">4295 </span> c3/return -<span id="L4296" class="LineNr">4296 </span> -<span id="L4297" class="LineNr">4297 </span><span class="subxTest">test-next-hex-int-0-prefix</span>: -<span id="L4298" class="LineNr">4298 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4299" class="LineNr">4299 </span> 55/push-ebp -<span id="L4300" class="LineNr">4300 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4301" class="LineNr">4301 </span> <span class="subxComment"># (eax..ecx) = "+ 03)"</span> -<span id="L4302" class="LineNr">4302 </span> b8/copy-to-eax <span class="Constant">"+ 03)"</span>/imm32 -<span id="L4303" class="LineNr">4303 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4304" class="LineNr">4304 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4305" class="LineNr">4305 </span> 05/add-to-eax 4/imm32 -<span id="L4306" class="LineNr">4306 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4307" class="LineNr">4307 </span> 51/push-ecx -<span id="L4308" class="LineNr">4308 </span> 50/push-eax -<span id="L4309" class="LineNr">4309 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4310" class="LineNr">4310 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4311" class="LineNr">4311 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4312" class="LineNr">4312 </span> 51/push-ecx -<span id="L4313" class="LineNr">4313 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4314" class="LineNr">4314 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L4315" class="LineNr">4315 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4316" class="LineNr">4316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4317" class="LineNr">4317 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> -<span id="L4318" class="LineNr">4318 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4319" class="LineNr">4319 </span> 68/push <span class="Constant">"F - test-next-hex-int-0-prefix"</span>/imm32 -<span id="L4320" class="LineNr">4320 </span> 68/push 3/imm32 -<span id="L4321" class="LineNr">4321 </span> 50/push-eax -<span id="L4322" class="LineNr">4322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4323" class="LineNr">4323 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4324" class="LineNr">4324 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4325" class="LineNr">4325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4326" class="LineNr">4326 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4327" class="LineNr">4327 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4328" class="LineNr">4328 </span> 5d/pop-to-ebp -<span id="L4329" class="LineNr">4329 </span> c3/return -<span id="L4330" class="LineNr">4330 </span> -<span id="L4331" class="LineNr">4331 </span><span class="subxTest">test-next-hex-int-negative</span>: -<span id="L4332" class="LineNr">4332 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4333" class="LineNr">4333 </span> 55/push-ebp -<span id="L4334" class="LineNr">4334 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4335" class="LineNr">4335 </span> <span class="subxComment"># (eax..ecx) = "-03)"</span> -<span id="L4336" class="LineNr">4336 </span> b8/copy-to-eax <span class="Constant">"-03)"</span>/imm32 -<span id="L4337" class="LineNr">4337 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4338" class="LineNr">4338 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4339" class="LineNr">4339 </span> 05/add-to-eax 4/imm32 -<span id="L4340" class="LineNr">4340 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4341" class="LineNr">4341 </span> 51/push-ecx -<span id="L4342" class="LineNr">4342 </span> 50/push-eax -<span id="L4343" class="LineNr">4343 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4344" class="LineNr">4344 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4345" class="LineNr">4345 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4346" class="LineNr">4346 </span> 51/push-ecx -<span id="L4347" class="LineNr">4347 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4348" class="LineNr">4348 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L4349" class="LineNr">4349 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4350" class="LineNr">4350 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4351" class="LineNr">4351 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> -<span id="L4352" class="LineNr">4352 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4353" class="LineNr">4353 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative"</span>/imm32 -<span id="L4354" class="LineNr">4354 </span> 68/push -3/imm32 -<span id="L4355" class="LineNr">4355 </span> 50/push-eax -<span id="L4356" class="LineNr">4356 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4357" class="LineNr">4357 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4358" class="LineNr">4358 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4359" class="LineNr">4359 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4360" class="LineNr">4360 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4361" class="LineNr">4361 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4362" class="LineNr">4362 </span> 5d/pop-to-ebp -<span id="L4363" class="LineNr">4363 </span> c3/return -<span id="L4364" class="LineNr">4364 </span> -<span id="L4365" class="LineNr">4365 </span><span class="subxTest">test-next-hex-int-negative-with-space</span>: -<span id="L4366" class="LineNr">4366 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4367" class="LineNr">4367 </span> 55/push-ebp -<span id="L4368" class="LineNr">4368 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4369" class="LineNr">4369 </span> <span class="subxComment"># (eax..ecx) = "- 03)"</span> -<span id="L4370" class="LineNr">4370 </span> b8/copy-to-eax <span class="Constant">"- 03)"</span>/imm32 -<span id="L4371" class="LineNr">4371 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4372" class="LineNr">4372 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4373" class="LineNr">4373 </span> 05/add-to-eax 4/imm32 -<span id="L4374" class="LineNr">4374 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4375" class="LineNr">4375 </span> 51/push-ecx -<span id="L4376" class="LineNr">4376 </span> 50/push-eax -<span id="L4377" class="LineNr">4377 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4378" class="LineNr">4378 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> -<span id="L4379" class="LineNr">4379 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4380" class="LineNr">4380 </span> 51/push-ecx -<span id="L4381" class="LineNr">4381 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4382" class="LineNr">4382 </span> e8/call <a href='sigils.subx.html#L3988'>next-hex-int</a>/disp32 -<span id="L4383" class="LineNr">4383 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4384" class="LineNr">4384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4385" class="LineNr">4385 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> -<span id="L4386" class="LineNr">4386 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4387" class="LineNr">4387 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative-with-space"</span>/imm32 -<span id="L4388" class="LineNr">4388 </span> 68/push -3/imm32 -<span id="L4389" class="LineNr">4389 </span> 50/push-eax -<span id="L4390" class="LineNr">4390 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4391" class="LineNr">4391 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4392" class="LineNr">4392 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4393" class="LineNr">4393 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4394" class="LineNr">4394 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4395" class="LineNr">4395 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4396" class="LineNr">4396 </span> 5d/pop-to-ebp -<span id="L4397" class="LineNr">4397 </span> c3/return -<span id="L4398" class="LineNr">4398 </span> -<span id="L4399" class="LineNr">4399 </span><span class="subxComment"># assumes 'in' starts a positive unsigned integer</span> -<span id="L4400" class="LineNr">4400 </span><span class="subxComment"># returns the value of the integer</span> -<span id="L4401" class="LineNr">4401 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> -<span id="L4402" class="LineNr">4402 </span><span class="subxFunction">next-positive-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> -<span id="L4403" class="LineNr">4403 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4404" class="LineNr">4404 </span> 55/push-ebp -<span id="L4405" class="LineNr">4405 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4406" class="LineNr">4406 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L4407" class="LineNr">4407 </span> 51/push-ecx -<span id="L4408" class="LineNr">4408 </span> 52/push-edx -<span id="L4409" class="LineNr">4409 </span> 53/push-ebx -<span id="L4410" class="LineNr">4410 </span> 56/push-esi -<span id="L4411" class="LineNr">4411 </span> 57/push-edi -<span id="L4412" class="LineNr">4412 </span> <span class="subxComment"># result/edi = 0</span> -<span id="L4413" class="LineNr">4413 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> -<span id="L4414" class="LineNr">4414 </span> <span class="subxComment"># esi = in</span> -<span id="L4415" class="LineNr">4415 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L4416" class="LineNr">4416 </span> <span class="subxComment"># edx = in->end</span> -<span id="L4417" class="LineNr">4417 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> -<span id="L4418" class="LineNr">4418 </span> <span class="subxComment"># curr/ecx = in->start</span> -<span id="L4419" class="LineNr">4419 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L4420" class="LineNr">4420 </span> <span class="subxComment"># negate?/ebx = false</span> -<span id="L4421" class="LineNr">4421 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L4422" class="LineNr">4422 </span> <span class="subxComment"># eax = *curr</span> -<span id="L4423" class="LineNr">4423 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L4424" class="LineNr">4424 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4425" class="LineNr">4425 </span><span class="Constant">$next-positive-hex-int:initial-0</span>: -<span id="L4426" class="LineNr">4426 </span> <span class="subxComment"># skip past leading '0x'</span> -<span id="L4427" class="LineNr">4427 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> -<span id="L4428" class="LineNr">4428 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4429" class="LineNr">4429 </span> 3d/compare-eax-and 0x30/imm32/0 -<span id="L4430" class="LineNr">4430 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4431" class="LineNr">4431 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4432" class="LineNr">4432 </span> 41/increment-ecx -<span id="L4433" class="LineNr">4433 </span><span class="Constant">$next-positive-hex-int:initial-0x</span>: -<span id="L4434" class="LineNr">4434 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> -<span id="L4435" class="LineNr">4435 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L4436" class="LineNr">4436 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 -<span id="L4437" class="LineNr">4437 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> -<span id="L4438" class="LineNr">4438 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L4439" class="LineNr">4439 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4440" class="LineNr">4440 </span> 3d/compare-eax-and 0x78/imm32/x -<span id="L4441" class="LineNr">4441 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4442" class="LineNr">4442 </span> <span class="subxS1Comment"># . ++curr</span> -<span id="L4443" class="LineNr">4443 </span> 41/increment-ecx -<span id="L4444" class="LineNr">4444 </span><span class="Constant">$next-positive-hex-int:loop</span>: -<span id="L4445" class="LineNr">4445 </span> <span class="subxComment"># if (curr >= in->end) break</span> -<span id="L4446" class="LineNr">4446 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> -<span id="L4447" class="LineNr">4447 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 -<span id="L4448" class="LineNr">4448 </span> <span class="subxComment"># if (!is-hex-digit?(*curr)) break</span> -<span id="L4449" class="LineNr">4449 </span> <span class="subxS1Comment"># . eax = *curr</span> -<span id="L4450" class="LineNr">4450 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4451" class="LineNr">4451 </span> <span class="subxS1Comment"># . eax = is-hex-digit?(*curr)</span> -<span id="L4452" class="LineNr">4452 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4453" class="LineNr">4453 </span> 50/push-eax -<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4455" class="LineNr">4455 </span> e8/call <a href='../118parse-hex-int.subx.html#L701'>is-hex-digit?</a>/disp32 -<span id="L4456" class="LineNr">4456 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4457" class="LineNr">4457 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4458" class="LineNr">4458 </span> <span class="subxS1Comment"># . if (eax == false) break</span> -<span id="L4459" class="LineNr">4459 </span> 3d/compare-eax-and 0/imm32/false -<span id="L4460" class="LineNr">4460 </span> 74/jump-if-= $next-positive-hex-int:end/disp8 -<span id="L4461" class="LineNr">4461 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> -<span id="L4462" class="LineNr">4462 </span> <span class="subxS2Comment"># . . copy arg to eax</span> -<span id="L4463" class="LineNr">4463 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> -<span id="L4464" class="LineNr">4464 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4465" class="LineNr">4465 </span> e8/call <a href='../118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 -<span id="L4466" class="LineNr">4466 </span> <span class="subxComment"># result = result * 16 + eax</span> -<span id="L4467" class="LineNr">4467 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> -<span id="L4468" class="LineNr">4468 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> -<span id="L4469" class="LineNr">4469 </span> <span class="subxComment"># ++curr</span> -<span id="L4470" class="LineNr">4470 </span> 41/increment-ecx -<span id="L4471" class="LineNr">4471 </span> <span class="subxComment"># loop</span> -<span id="L4472" class="LineNr">4472 </span> eb/jump $next-positive-hex-int:<span class="Constant">loop</span>/disp8 -<span id="L4473" class="LineNr">4473 </span><span class="Constant">$next-positive-hex-int:end</span>: -<span id="L4474" class="LineNr">4474 </span> <span class="subxComment"># word-slice->start = curr</span> -<span id="L4475" class="LineNr">4475 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> -<span id="L4476" class="LineNr">4476 </span> <span class="subxComment"># return edi</span> -<span id="L4477" class="LineNr">4477 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> -<span id="L4478" class="LineNr">4478 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L4479" class="LineNr">4479 </span> 5f/pop-to-edi -<span id="L4480" class="LineNr">4480 </span> 5e/pop-to-esi -<span id="L4481" class="LineNr">4481 </span> 5b/pop-to-ebx -<span id="L4482" class="LineNr">4482 </span> 5a/pop-to-edx -<span id="L4483" class="LineNr">4483 </span> 59/pop-to-ecx -<span id="L4484" class="LineNr">4484 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4485" class="LineNr">4485 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4486" class="LineNr">4486 </span> 5d/pop-to-ebp -<span id="L4487" class="LineNr">4487 </span> c3/return -<span id="L4488" class="LineNr">4488 </span> -<span id="L4489" class="LineNr">4489 </span><span class="subxTest">test-next-positive-hex-int-single-digit</span>: -<span id="L4490" class="LineNr">4490 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4491" class="LineNr">4491 </span> 55/push-ebp -<span id="L4492" class="LineNr">4492 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4493" class="LineNr">4493 </span> <span class="subxComment"># (eax..ecx) = "a)"</span> -<span id="L4494" class="LineNr">4494 </span> b8/copy-to-eax <span class="Constant">"a)"</span>/imm32 -<span id="L4495" class="LineNr">4495 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4496" class="LineNr">4496 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4497" class="LineNr">4497 </span> 05/add-to-eax 4/imm32 -<span id="L4498" class="LineNr">4498 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4499" class="LineNr">4499 </span> 51/push-ecx -<span id="L4500" class="LineNr">4500 </span> 50/push-eax -<span id="L4501" class="LineNr">4501 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4502" class="LineNr">4502 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4503" class="LineNr">4503 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4504" class="LineNr">4504 </span> 51/push-ecx -<span id="L4505" class="LineNr">4505 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4506" class="LineNr">4506 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 -<span id="L4507" class="LineNr">4507 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4508" class="LineNr">4508 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4509" class="LineNr">4509 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> -<span id="L4510" class="LineNr">4510 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4511" class="LineNr">4511 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-single-digit"</span>/imm32 -<span id="L4512" class="LineNr">4512 </span> 68/push 0xa/imm32 -<span id="L4513" class="LineNr">4513 </span> 50/push-eax -<span id="L4514" class="LineNr">4514 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4515" class="LineNr">4515 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4516" class="LineNr">4516 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4517" class="LineNr">4517 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4518" class="LineNr">4518 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4519" class="LineNr">4519 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4520" class="LineNr">4520 </span> 5d/pop-to-ebp -<span id="L4521" class="LineNr">4521 </span> c3/return -<span id="L4522" class="LineNr">4522 </span> -<span id="L4523" class="LineNr">4523 </span><span class="subxTest">test-next-positive-hex-int-multi-digit</span>: -<span id="L4524" class="LineNr">4524 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4525" class="LineNr">4525 </span> 55/push-ebp -<span id="L4526" class="LineNr">4526 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4527" class="LineNr">4527 </span> <span class="subxComment"># (eax..ecx) = "34a)"</span> -<span id="L4528" class="LineNr">4528 </span> b8/copy-to-eax <span class="Constant">"34a)"</span>/imm32 -<span id="L4529" class="LineNr">4529 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4530" class="LineNr">4530 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4531" class="LineNr">4531 </span> 05/add-to-eax 4/imm32 -<span id="L4532" class="LineNr">4532 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4533" class="LineNr">4533 </span> 51/push-ecx -<span id="L4534" class="LineNr">4534 </span> 50/push-eax -<span id="L4535" class="LineNr">4535 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4536" class="LineNr">4536 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4537" class="LineNr">4537 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4538" class="LineNr">4538 </span> 51/push-ecx -<span id="L4539" class="LineNr">4539 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4540" class="LineNr">4540 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 -<span id="L4541" class="LineNr">4541 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4542" class="LineNr">4542 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4543" class="LineNr">4543 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> -<span id="L4544" class="LineNr">4544 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4545" class="LineNr">4545 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-multi-digit"</span>/imm32 -<span id="L4546" class="LineNr">4546 </span> 68/push 0x34a/imm32 -<span id="L4547" class="LineNr">4547 </span> 50/push-eax -<span id="L4548" class="LineNr">4548 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4549" class="LineNr">4549 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4550" class="LineNr">4550 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4551" class="LineNr">4551 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4552" class="LineNr">4552 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4553" class="LineNr">4553 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4554" class="LineNr">4554 </span> 5d/pop-to-ebp -<span id="L4555" class="LineNr">4555 </span> c3/return -<span id="L4556" class="LineNr">4556 </span> -<span id="L4557" class="LineNr">4557 </span><span class="subxTest">test-next-positive-hex-int-0x-prefix</span>: -<span id="L4558" class="LineNr">4558 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4559" class="LineNr">4559 </span> 55/push-ebp -<span id="L4560" class="LineNr">4560 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4561" class="LineNr">4561 </span> <span class="subxComment"># (eax..ecx) = "0x34)"</span> -<span id="L4562" class="LineNr">4562 </span> b8/copy-to-eax <span class="Constant">"0x34)"</span>/imm32 -<span id="L4563" class="LineNr">4563 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4564" class="LineNr">4564 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4565" class="LineNr">4565 </span> 05/add-to-eax 4/imm32 -<span id="L4566" class="LineNr">4566 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4567" class="LineNr">4567 </span> 51/push-ecx -<span id="L4568" class="LineNr">4568 </span> 50/push-eax -<span id="L4569" class="LineNr">4569 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4570" class="LineNr">4570 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4571" class="LineNr">4571 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4572" class="LineNr">4572 </span> 51/push-ecx -<span id="L4573" class="LineNr">4573 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4574" class="LineNr">4574 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 -<span id="L4575" class="LineNr">4575 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4576" class="LineNr">4576 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4577" class="LineNr">4577 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> -<span id="L4578" class="LineNr">4578 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4579" class="LineNr">4579 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0x-prefix"</span>/imm32 -<span id="L4580" class="LineNr">4580 </span> 68/push 0x34/imm32 -<span id="L4581" class="LineNr">4581 </span> 50/push-eax -<span id="L4582" class="LineNr">4582 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4583" class="LineNr">4583 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4584" class="LineNr">4584 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4585" class="LineNr">4585 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4586" class="LineNr">4586 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4587" class="LineNr">4587 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4588" class="LineNr">4588 </span> 5d/pop-to-ebp -<span id="L4589" class="LineNr">4589 </span> c3/return -<span id="L4590" class="LineNr">4590 </span> -<span id="L4591" class="LineNr">4591 </span><span class="subxTest">test-next-positive-hex-int-zero</span>: -<span id="L4592" class="LineNr">4592 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4593" class="LineNr">4593 </span> 55/push-ebp -<span id="L4594" class="LineNr">4594 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4595" class="LineNr">4595 </span> <span class="subxComment"># (eax..ecx) = "0"</span> -<span id="L4596" class="LineNr">4596 </span> b8/copy-to-eax <span class="Constant">"0"</span>/imm32 -<span id="L4597" class="LineNr">4597 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4598" class="LineNr">4598 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4599" class="LineNr">4599 </span> 05/add-to-eax 4/imm32 -<span id="L4600" class="LineNr">4600 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4601" class="LineNr">4601 </span> 51/push-ecx -<span id="L4602" class="LineNr">4602 </span> 50/push-eax -<span id="L4603" class="LineNr">4603 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4604" class="LineNr">4604 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4605" class="LineNr">4605 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4606" class="LineNr">4606 </span> 51/push-ecx -<span id="L4607" class="LineNr">4607 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4608" class="LineNr">4608 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 -<span id="L4609" class="LineNr">4609 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4610" class="LineNr">4610 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4611" class="LineNr">4611 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4612" class="LineNr">4612 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4613" class="LineNr">4613 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-zero"</span>/imm32 -<span id="L4614" class="LineNr">4614 </span> 68/push 0/imm32 -<span id="L4615" class="LineNr">4615 </span> 50/push-eax -<span id="L4616" class="LineNr">4616 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4617" class="LineNr">4617 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4618" class="LineNr">4618 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4619" class="LineNr">4619 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4620" class="LineNr">4620 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4621" class="LineNr">4621 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4622" class="LineNr">4622 </span> 5d/pop-to-ebp -<span id="L4623" class="LineNr">4623 </span> c3/return -<span id="L4624" class="LineNr">4624 </span> -<span id="L4625" class="LineNr">4625 </span><span class="subxTest">test-next-positive-hex-int-0-prefix</span>: -<span id="L4626" class="LineNr">4626 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4627" class="LineNr">4627 </span> 55/push-ebp -<span id="L4628" class="LineNr">4628 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4629" class="LineNr">4629 </span> <span class="subxComment"># (eax..ecx) = "03)"</span> -<span id="L4630" class="LineNr">4630 </span> b8/copy-to-eax <span class="Constant">"03)"</span>/imm32 -<span id="L4631" class="LineNr">4631 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4632" class="LineNr">4632 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4633" class="LineNr">4633 </span> 05/add-to-eax 4/imm32 -<span id="L4634" class="LineNr">4634 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> -<span id="L4635" class="LineNr">4635 </span> 51/push-ecx -<span id="L4636" class="LineNr">4636 </span> 50/push-eax -<span id="L4637" class="LineNr">4637 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4638" class="LineNr">4638 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> -<span id="L4639" class="LineNr">4639 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4640" class="LineNr">4640 </span> 51/push-ecx -<span id="L4641" class="LineNr">4641 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4642" class="LineNr">4642 </span> e8/call <a href='sigils.subx.html#L4402'>next-positive-hex-int</a>/disp32 -<span id="L4643" class="LineNr">4643 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4644" class="LineNr">4644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4645" class="LineNr">4645 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> -<span id="L4646" class="LineNr">4646 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4647" class="LineNr">4647 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0-prefix"</span>/imm32 -<span id="L4648" class="LineNr">4648 </span> 68/push 3/imm32 -<span id="L4649" class="LineNr">4649 </span> 50/push-eax -<span id="L4650" class="LineNr">4650 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4651" class="LineNr">4651 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4652" class="LineNr">4652 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4653" class="LineNr">4653 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4654" class="LineNr">4654 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4655" class="LineNr">4655 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4656" class="LineNr">4656 </span> 5d/pop-to-ebp -<span id="L4657" class="LineNr">4657 </span> c3/return -<span id="L4658" class="LineNr">4658 </span> -<span id="L4659" class="LineNr">4659 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L2496" class="LineNr">2496 </span> 3d/compare-eax-and 0x2d/imm32/minus +<span id="L2497" class="LineNr">2497 </span> 74/jump-if-= $parse-effective-address:displacement/disp8 +<span id="L2498" class="LineNr">2498 </span> e9/jump $parse-effective-address:error3/disp32 +<span id="L2499" class="LineNr">2499 </span><span class="Constant">$parse-effective-address:displacement</span>: +<span id="L2500" class="LineNr">2500 </span> <span class="subxComment"># read integer into disp</span> +<span id="L2501" class="LineNr">2501 </span> <span class="subxS1Comment"># . eax = next-hex-int(local-slice)</span> +<span id="L2502" class="LineNr">2502 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2503" class="LineNr">2503 </span> 56/push-esi +<span id="L2504" class="LineNr">2504 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2505" class="LineNr">2505 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L2506" class="LineNr">2506 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2507" class="LineNr">2507 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2508" class="LineNr">2508 </span> <span class="subxS1Comment"># . ebx = eax</span> +<span id="L2509" class="LineNr">2509 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ebx</span> +<span id="L2510" class="LineNr">2510 </span> <span class="subxComment"># skip whitespace</span> +<span id="L2511" class="LineNr">2511 </span> <span class="subxS1Comment"># . eax = skip-chars-matching-whitespace-in-slice(local-slice->start, local-slice->end)</span> +<span id="L2512" class="LineNr">2512 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2513" class="LineNr">2513 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L2514" class="LineNr">2514 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2515" class="LineNr">2515 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2516" class="LineNr">2516 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L2517" class="LineNr">2517 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2518" class="LineNr">2518 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2519" class="LineNr">2519 </span> <span class="subxS1Comment"># . local-slice->start = eax</span> +<span id="L2520" class="LineNr">2520 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *esi</span> +<span id="L2521" class="LineNr">2521 </span> <span class="subxComment"># if (*local-slice->start != ')') goto error4</span> +<span id="L2522" class="LineNr">2522 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2523" class="LineNr">2523 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2524" class="LineNr">2524 </span> 3d/compare-eax-and 0x29/imm32/close-paren +<span id="L2525" class="LineNr">2525 </span> 0f 85/jump-if-!= $parse-effective-address:error4/disp32 +<span id="L2526" class="LineNr">2526 </span><span class="Constant">$parse-effective-address:end</span>: +<span id="L2527" class="LineNr">2527 </span> <span class="subxComment"># return base in eax</span> +<span id="L2528" class="LineNr">2528 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> +<span id="L2529" class="LineNr">2529 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2530" class="LineNr">2530 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2531" class="LineNr">2531 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2532" class="LineNr">2532 </span> 5f/pop-to-edi +<span id="L2533" class="LineNr">2533 </span> 5e/pop-to-esi +<span id="L2534" class="LineNr">2534 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2535" class="LineNr">2535 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2536" class="LineNr">2536 </span> 5d/pop-to-ebp +<span id="L2537" class="LineNr">2537 </span> c3/return +<span id="L2538" class="LineNr">2538 </span> +<span id="L2539" class="LineNr">2539 </span><span class="Constant">$parse-effective-address:error1</span>: +<span id="L2540" class="LineNr">2540 </span> <span class="subxComment"># print(stderr, "error: unexpected character: " eax "\n")</span> +<span id="L2541" class="LineNr">2541 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character: ")</span> +<span id="L2542" class="LineNr">2542 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2543" class="LineNr">2543 </span> 68/push <span class="Constant">"error: unexpected character: "</span>/imm32 +<span id="L2544" class="LineNr">2544 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2545" class="LineNr">2545 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2546" class="LineNr">2546 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2547" class="LineNr">2547 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2548" class="LineNr">2548 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2549" class="LineNr">2549 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2550" class="LineNr">2550 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2551" class="LineNr">2551 </span> 50/push-eax +<span id="L2552" class="LineNr">2552 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2553" class="LineNr">2553 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2554" class="LineNr">2554 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2555" class="LineNr">2555 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2556" class="LineNr">2556 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2557" class="LineNr">2557 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> +<span id="L2558" class="LineNr">2558 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2559" class="LineNr">2559 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L2560" class="LineNr">2560 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2561" class="LineNr">2561 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2562" class="LineNr">2562 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2563" class="LineNr">2563 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2564" class="LineNr">2564 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2565" class="LineNr">2565 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2566" class="LineNr">2566 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2567" class="LineNr">2567 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2568" class="LineNr">2568 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2569" class="LineNr">2569 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2570" class="LineNr">2570 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2571" class="LineNr">2571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2572" class="LineNr">2572 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2573" class="LineNr">2573 </span> bb/copy-to-ebx 1/imm32 +<span id="L2574" class="LineNr">2574 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2575" class="LineNr">2575 </span> <span class="subxComment"># never gets here</span> +<span id="L2576" class="LineNr">2576 </span> +<span id="L2577" class="LineNr">2577 </span><span class="Constant">$parse-effective-address:error2</span>: +<span id="L2578" class="LineNr">2578 </span> <span class="subxComment"># print(stderr, "error: '<' can only be followed by '<' but got: " eax "\n")</span> +<span id="L2579" class="LineNr">2579 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: '<' can only be followed by '<' but got: ")</span> +<span id="L2580" class="LineNr">2580 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2581" class="LineNr">2581 </span> 68/push <span class="Constant">"error: '<' can only be followed by '<' but got: "</span>/imm32 +<span id="L2582" class="LineNr">2582 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2583" class="LineNr">2583 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2584" class="LineNr">2584 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2585" class="LineNr">2585 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2586" class="LineNr">2586 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2587" class="LineNr">2587 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2588" class="LineNr">2588 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2589" class="LineNr">2589 </span> 50/push-eax +<span id="L2590" class="LineNr">2590 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2591" class="LineNr">2591 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2592" class="LineNr">2592 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2593" class="LineNr">2593 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2594" class="LineNr">2594 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2595" class="LineNr">2595 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> +<span id="L2596" class="LineNr">2596 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2597" class="LineNr">2597 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L2598" class="LineNr">2598 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2599" class="LineNr">2599 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2600" class="LineNr">2600 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2601" class="LineNr">2601 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2602" class="LineNr">2602 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2603" class="LineNr">2603 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2604" class="LineNr">2604 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2605" class="LineNr">2605 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2606" class="LineNr">2606 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2607" class="LineNr">2607 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2608" class="LineNr">2608 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2609" class="LineNr">2609 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2610" class="LineNr">2610 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2611" class="LineNr">2611 </span> bb/copy-to-ebx 1/imm32 +<span id="L2612" class="LineNr">2612 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2613" class="LineNr">2613 </span> <span class="subxComment"># never gets here</span> +<span id="L2614" class="LineNr">2614 </span> +<span id="L2615" class="LineNr">2615 </span><span class="Constant">$parse-effective-address:error3</span>: +<span id="L2616" class="LineNr">2616 </span> <span class="subxComment"># print(stderr, "error: unexpected character before displacement: " eax "\n")</span> +<span id="L2617" class="LineNr">2617 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character before displacement: ")</span> +<span id="L2618" class="LineNr">2618 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2619" class="LineNr">2619 </span> 68/push <span class="Constant">"error: unexpected character before displacement: "</span>/imm32 +<span id="L2620" class="LineNr">2620 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2621" class="LineNr">2621 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2622" class="LineNr">2622 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2623" class="LineNr">2623 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2624" class="LineNr">2624 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2625" class="LineNr">2625 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2626" class="LineNr">2626 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2627" class="LineNr">2627 </span> 50/push-eax +<span id="L2628" class="LineNr">2628 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2629" class="LineNr">2629 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2630" class="LineNr">2630 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2631" class="LineNr">2631 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2632" class="LineNr">2632 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2633" class="LineNr">2633 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "\n")</span> +<span id="L2634" class="LineNr">2634 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2635" class="LineNr">2635 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L2636" class="LineNr">2636 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2637" class="LineNr">2637 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2638" class="LineNr">2638 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2639" class="LineNr">2639 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2640" class="LineNr">2640 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2641" class="LineNr">2641 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2642" class="LineNr">2642 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2643" class="LineNr">2643 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2644" class="LineNr">2644 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2645" class="LineNr">2645 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2646" class="LineNr">2646 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2647" class="LineNr">2647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2648" class="LineNr">2648 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2649" class="LineNr">2649 </span> bb/copy-to-ebx 1/imm32 +<span id="L2650" class="LineNr">2650 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2651" class="LineNr">2651 </span> <span class="subxComment"># never gets here</span> +<span id="L2652" class="LineNr">2652 </span> +<span id="L2653" class="LineNr">2653 </span><span class="Constant">$parse-effective-address:error4</span>: +<span id="L2654" class="LineNr">2654 </span> <span class="subxComment"># print(stderr, "error: unexpected character after displacement: " eax "; expected ')' to wrap up\n")</span> +<span id="L2655" class="LineNr">2655 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "error: unexpected character after displacement: ")</span> +<span id="L2656" class="LineNr">2656 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2657" class="LineNr">2657 </span> 68/push <span class="Constant">"error: unexpected character after displacement: "</span>/imm32 +<span id="L2658" class="LineNr">2658 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2659" class="LineNr">2659 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2660" class="LineNr">2660 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2661" class="LineNr">2661 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2662" class="LineNr">2662 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2663" class="LineNr">2663 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, eax)</span> +<span id="L2664" class="LineNr">2664 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2665" class="LineNr">2665 </span> 50/push-eax +<span id="L2666" class="LineNr">2666 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2667" class="LineNr">2667 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2668" class="LineNr">2668 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L2669" class="LineNr">2669 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2670" class="LineNr">2670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2671" class="LineNr">2671 </span> <span class="subxS1Comment"># . write-buffered(Stderr, "; expected ')' to wrap up\n")</span> +<span id="L2672" class="LineNr">2672 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2673" class="LineNr">2673 </span> 68/push <span class="Constant">"; expected ')' to wrap up\n"</span>/imm32 +<span id="L2674" class="LineNr">2674 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2675" class="LineNr">2675 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2676" class="LineNr">2676 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2677" class="LineNr">2677 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2678" class="LineNr">2678 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2679" class="LineNr">2679 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2680" class="LineNr">2680 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2681" class="LineNr">2681 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2682" class="LineNr">2682 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2683" class="LineNr">2683 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2684" class="LineNr">2684 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2685" class="LineNr">2685 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2686" class="LineNr">2686 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2687" class="LineNr">2687 </span> bb/copy-to-ebx 1/imm32 +<span id="L2688" class="LineNr">2688 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2689" class="LineNr">2689 </span> <span class="subxComment"># never gets here</span> +<span id="L2690" class="LineNr">2690 </span> +<span id="L2691" class="LineNr">2691 </span><span class="subxComment"># assumes 'in' starts with a register name, and returns pointer to its code</span> +<span id="L2692" class="LineNr">2692 </span><span class="subxComment"># side-effect: modifies 'in' to scan past the initial register name</span> +<span id="L2693" class="LineNr">2693 </span><span class="subxFunction">next-register</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: int</span> +<span id="L2694" class="LineNr">2694 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2695" class="LineNr">2695 </span> 55/push-ebp +<span id="L2696" class="LineNr">2696 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2697" class="LineNr">2697 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2698" class="LineNr">2698 </span> 51/push-ecx +<span id="L2699" class="LineNr">2699 </span> 56/push-esi +<span id="L2700" class="LineNr">2700 </span> <span class="subxComment"># esi = in</span> +<span id="L2701" class="LineNr">2701 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L2702" class="LineNr">2702 </span> <span class="subxComment"># var reg-slice/ecx: slice = {in->start, in->start + 3}</span> +<span id="L2703" class="LineNr">2703 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2704" class="LineNr">2704 </span> 05/add-to-eax 3/imm32 +<span id="L2705" class="LineNr">2705 </span> 50/push-eax +<span id="L2706" class="LineNr">2706 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L2707" class="LineNr">2707 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2708" class="LineNr">2708 </span> <span class="subxComment"># in->start += 3</span> +<span id="L2709" class="LineNr">2709 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/imm32 <span class="subxComment"># add to *esi</span> +<span id="L2710" class="LineNr">2710 </span> <span class="subxComment"># eax = get-slice(Registers, reg-slice, row-size=12)</span> +<span id="L2711" class="LineNr">2711 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2712" class="LineNr">2712 </span> 68/push <span class="Constant">"next-register"</span>/imm32 +<span id="L2713" class="LineNr">2713 </span> 68/push 0xc/imm32/row-size +<span id="L2714" class="LineNr">2714 </span> 51/push-ecx +<span id="L2715" class="LineNr">2715 </span> 68/push <span class="SpecialChar"><a href='201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L2716" class="LineNr">2716 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2717" class="LineNr">2717 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L2718" class="LineNr">2718 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2719" class="LineNr">2719 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2720" class="LineNr">2720 </span><span class="Constant">$next-register:end</span>: +<span id="L2721" class="LineNr">2721 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2722" class="LineNr">2722 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2723" class="LineNr">2723 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2724" class="LineNr">2724 </span> 5e/pop-to-esi +<span id="L2725" class="LineNr">2725 </span> 59/pop-to-ecx +<span id="L2726" class="LineNr">2726 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2727" class="LineNr">2727 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2728" class="LineNr">2728 </span> 5d/pop-to-ebp +<span id="L2729" class="LineNr">2729 </span> c3/return +<span id="L2730" class="LineNr">2730 </span> +<span id="L2731" class="LineNr">2731 </span><span class="subxTest">test-parse-effective-address-simple</span>: +<span id="L2732" class="LineNr">2732 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2733" class="LineNr">2733 </span> 55/push-ebp +<span id="L2734" class="LineNr">2734 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2735" class="LineNr">2735 </span> <span class="subxComment"># var slice/ecx = "*esi"</span> +<span id="L2736" class="LineNr">2736 </span> b8/copy-to-eax <span class="Constant">"*esi"</span>/imm32 +<span id="L2737" class="LineNr">2737 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2738" class="LineNr">2738 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2739" class="LineNr">2739 </span> 05/add-to-eax 4/imm32 +<span id="L2740" class="LineNr">2740 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2741" class="LineNr">2741 </span> 51/push-ecx +<span id="L2742" class="LineNr">2742 </span> 50/push-eax +<span id="L2743" class="LineNr">2743 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2744" class="LineNr">2744 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2745" class="LineNr">2745 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2746" class="LineNr">2746 </span> 51/push-ecx +<span id="L2747" class="LineNr">2747 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2748" class="LineNr">2748 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L2749" class="LineNr">2749 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2750" class="LineNr">2750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2751" class="LineNr">2751 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2752" class="LineNr">2752 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2753" class="LineNr">2753 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2754" class="LineNr">2754 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2731'>test-parse-effective-address-simple</a>/base"</span>/imm32 +<span id="L2755" class="LineNr">2755 </span> 68/push 6/imm32/esi +<span id="L2756" class="LineNr">2756 </span> 50/push-eax +<span id="L2757" class="LineNr">2757 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2758" class="LineNr">2758 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2759" class="LineNr">2759 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2760" class="LineNr">2760 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2761" class="LineNr">2761 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2762" class="LineNr">2762 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2763" class="LineNr">2763 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2731'>test-parse-effective-address-simple</a>/index"</span>/imm32 +<span id="L2764" class="LineNr">2764 </span> 68/push 4/imm32/none +<span id="L2765" class="LineNr">2765 </span> 51/push-ecx +<span id="L2766" class="LineNr">2766 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2767" class="LineNr">2767 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2768" class="LineNr">2768 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2769" class="LineNr">2769 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2770" class="LineNr">2770 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2771" class="LineNr">2771 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2772" class="LineNr">2772 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2731'>test-parse-effective-address-simple</a>/scale"</span>/imm32 +<span id="L2773" class="LineNr">2773 </span> 68/push 0/imm32/none +<span id="L2774" class="LineNr">2774 </span> 52/push-edx +<span id="L2775" class="LineNr">2775 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2776" class="LineNr">2776 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2777" class="LineNr">2777 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2778" class="LineNr">2778 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2779" class="LineNr">2779 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L2780" class="LineNr">2780 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2781" class="LineNr">2781 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2731'>test-parse-effective-address-simple</a>/displacement"</span>/imm32 +<span id="L2782" class="LineNr">2782 </span> 68/push 0/imm32/none +<span id="L2783" class="LineNr">2783 </span> 53/push-ebx +<span id="L2784" class="LineNr">2784 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2785" class="LineNr">2785 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2786" class="LineNr">2786 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2787" class="LineNr">2787 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2788" class="LineNr">2788 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2789" class="LineNr">2789 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2790" class="LineNr">2790 </span> 5d/pop-to-ebp +<span id="L2791" class="LineNr">2791 </span> c3/return +<span id="L2792" class="LineNr">2792 </span> +<span id="L2793" class="LineNr">2793 </span><span class="subxTest">test-parse-effective-address-base</span>: +<span id="L2794" class="LineNr">2794 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2795" class="LineNr">2795 </span> 55/push-ebp +<span id="L2796" class="LineNr">2796 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2797" class="LineNr">2797 </span> <span class="subxComment"># var slice/ecx = "*(esi )"</span> +<span id="L2798" class="LineNr">2798 </span> b8/copy-to-eax <span class="Constant">"*(esi )"</span>/imm32 +<span id="L2799" class="LineNr">2799 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2800" class="LineNr">2800 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2801" class="LineNr">2801 </span> 05/add-to-eax 4/imm32 +<span id="L2802" class="LineNr">2802 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2803" class="LineNr">2803 </span> 51/push-ecx +<span id="L2804" class="LineNr">2804 </span> 50/push-eax +<span id="L2805" class="LineNr">2805 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2806" class="LineNr">2806 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2807" class="LineNr">2807 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2808" class="LineNr">2808 </span> 51/push-ecx +<span id="L2809" class="LineNr">2809 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2810" class="LineNr">2810 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L2811" class="LineNr">2811 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2812" class="LineNr">2812 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2813" class="LineNr">2813 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2814" class="LineNr">2814 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2815" class="LineNr">2815 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2816" class="LineNr">2816 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2793'>test-parse-effective-address-base</a>/base"</span>/imm32 +<span id="L2817" class="LineNr">2817 </span> 68/push 6/imm32/esi +<span id="L2818" class="LineNr">2818 </span> 50/push-eax +<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2820" class="LineNr">2820 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2821" class="LineNr">2821 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2822" class="LineNr">2822 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2823" class="LineNr">2823 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2824" class="LineNr">2824 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2825" class="LineNr">2825 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2793'>test-parse-effective-address-base</a>/index"</span>/imm32 +<span id="L2826" class="LineNr">2826 </span> 68/push 4/imm32/none +<span id="L2827" class="LineNr">2827 </span> 51/push-ecx +<span id="L2828" class="LineNr">2828 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2829" class="LineNr">2829 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2830" class="LineNr">2830 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2831" class="LineNr">2831 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2832" class="LineNr">2832 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2834" class="LineNr">2834 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2793'>test-parse-effective-address-base</a>/scale"</span>/imm32 +<span id="L2835" class="LineNr">2835 </span> 68/push 0/imm32/none +<span id="L2836" class="LineNr">2836 </span> 52/push-edx +<span id="L2837" class="LineNr">2837 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2838" class="LineNr">2838 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2839" class="LineNr">2839 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2840" class="LineNr">2840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2841" class="LineNr">2841 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L2842" class="LineNr">2842 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2843" class="LineNr">2843 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2793'>test-parse-effective-address-base</a>/displacement"</span>/imm32 +<span id="L2844" class="LineNr">2844 </span> 68/push 0/imm32/none +<span id="L2845" class="LineNr">2845 </span> 53/push-ebx +<span id="L2846" class="LineNr">2846 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2847" class="LineNr">2847 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2848" class="LineNr">2848 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2849" class="LineNr">2849 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2850" class="LineNr">2850 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2851" class="LineNr">2851 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2852" class="LineNr">2852 </span> 5d/pop-to-ebp +<span id="L2853" class="LineNr">2853 </span> c3/return +<span id="L2854" class="LineNr">2854 </span> +<span id="L2855" class="LineNr">2855 </span><span class="subxTest">test-parse-effective-address-base-displacement</span>: +<span id="L2856" class="LineNr">2856 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2857" class="LineNr">2857 </span> 55/push-ebp +<span id="L2858" class="LineNr">2858 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2859" class="LineNr">2859 </span> <span class="subxComment"># var slice/ecx = "*(esi+3)"</span> +<span id="L2860" class="LineNr">2860 </span> b8/copy-to-eax <span class="Constant">"*(esi+3)"</span>/imm32 +<span id="L2861" class="LineNr">2861 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2862" class="LineNr">2862 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2863" class="LineNr">2863 </span> 05/add-to-eax 4/imm32 +<span id="L2864" class="LineNr">2864 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2865" class="LineNr">2865 </span> 51/push-ecx +<span id="L2866" class="LineNr">2866 </span> 50/push-eax +<span id="L2867" class="LineNr">2867 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2868" class="LineNr">2868 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2869" class="LineNr">2869 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2870" class="LineNr">2870 </span> 51/push-ecx +<span id="L2871" class="LineNr">2871 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2872" class="LineNr">2872 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L2873" class="LineNr">2873 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2874" class="LineNr">2874 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2875" class="LineNr">2875 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2876" class="LineNr">2876 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2877" class="LineNr">2877 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2878" class="LineNr">2878 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2855'>test-parse-effective-address-base-displacement</a>/base"</span>/imm32 +<span id="L2879" class="LineNr">2879 </span> 68/push 6/imm32/esi +<span id="L2880" class="LineNr">2880 </span> 50/push-eax +<span id="L2881" class="LineNr">2881 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2882" class="LineNr">2882 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2883" class="LineNr">2883 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2884" class="LineNr">2884 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2885" class="LineNr">2885 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2886" class="LineNr">2886 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2887" class="LineNr">2887 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2855'>test-parse-effective-address-base-displacement</a>/index"</span>/imm32 +<span id="L2888" class="LineNr">2888 </span> 68/push 4/imm32/none +<span id="L2889" class="LineNr">2889 </span> 51/push-ecx +<span id="L2890" class="LineNr">2890 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2891" class="LineNr">2891 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2892" class="LineNr">2892 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2893" class="LineNr">2893 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2894" class="LineNr">2894 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2895" class="LineNr">2895 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2896" class="LineNr">2896 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2855'>test-parse-effective-address-base-displacement</a>/scale"</span>/imm32 +<span id="L2897" class="LineNr">2897 </span> 68/push 0/imm32/none +<span id="L2898" class="LineNr">2898 </span> 52/push-edx +<span id="L2899" class="LineNr">2899 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2900" class="LineNr">2900 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2901" class="LineNr">2901 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2902" class="LineNr">2902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2903" class="LineNr">2903 </span> <span class="subxComment"># check-ints-equal(ebx, 3, msg)</span> +<span id="L2904" class="LineNr">2904 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2905" class="LineNr">2905 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2855'>test-parse-effective-address-base-displacement</a>/displacement"</span>/imm32 +<span id="L2906" class="LineNr">2906 </span> 68/push 3/imm32 +<span id="L2907" class="LineNr">2907 </span> 53/push-ebx +<span id="L2908" class="LineNr">2908 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2909" class="LineNr">2909 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2910" class="LineNr">2910 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2911" class="LineNr">2911 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2912" class="LineNr">2912 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2913" class="LineNr">2913 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2914" class="LineNr">2914 </span> 5d/pop-to-ebp +<span id="L2915" class="LineNr">2915 </span> c3/return +<span id="L2916" class="LineNr">2916 </span> +<span id="L2917" class="LineNr">2917 </span><span class="subxTest">test-parse-effective-address-base-negative-displacement</span>: +<span id="L2918" class="LineNr">2918 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2919" class="LineNr">2919 </span> 55/push-ebp +<span id="L2920" class="LineNr">2920 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2921" class="LineNr">2921 </span> <span class="subxComment"># var slice/ecx = "*(esi-3)"</span> +<span id="L2922" class="LineNr">2922 </span> b8/copy-to-eax <span class="Constant">"*(esi-3)"</span>/imm32 +<span id="L2923" class="LineNr">2923 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2924" class="LineNr">2924 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2925" class="LineNr">2925 </span> 05/add-to-eax 4/imm32 +<span id="L2926" class="LineNr">2926 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2927" class="LineNr">2927 </span> 51/push-ecx +<span id="L2928" class="LineNr">2928 </span> 50/push-eax +<span id="L2929" class="LineNr">2929 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2930" class="LineNr">2930 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2932" class="LineNr">2932 </span> 51/push-ecx +<span id="L2933" class="LineNr">2933 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2934" class="LineNr">2934 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L2935" class="LineNr">2935 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2936" class="LineNr">2936 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2937" class="LineNr">2937 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L2938" class="LineNr">2938 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L2939" class="LineNr">2939 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2940" class="LineNr">2940 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2917'>test-parse-effective-address-base-negative-displacement</a>/base"</span>/imm32 +<span id="L2941" class="LineNr">2941 </span> 68/push 6/imm32/esi +<span id="L2942" class="LineNr">2942 </span> 50/push-eax +<span id="L2943" class="LineNr">2943 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2944" class="LineNr">2944 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2945" class="LineNr">2945 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2946" class="LineNr">2946 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2947" class="LineNr">2947 </span> <span class="subxComment"># check-ints-equal(ecx, 4, msg)</span> +<span id="L2948" class="LineNr">2948 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2949" class="LineNr">2949 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2917'>test-parse-effective-address-base-negative-displacement</a>/index"</span>/imm32 +<span id="L2950" class="LineNr">2950 </span> 68/push 4/imm32/none +<span id="L2951" class="LineNr">2951 </span> 51/push-ecx +<span id="L2952" class="LineNr">2952 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2953" class="LineNr">2953 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2954" class="LineNr">2954 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2955" class="LineNr">2955 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2956" class="LineNr">2956 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L2957" class="LineNr">2957 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2958" class="LineNr">2958 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2917'>test-parse-effective-address-base-negative-displacement</a>/scale"</span>/imm32 +<span id="L2959" class="LineNr">2959 </span> 68/push 0/imm32/none +<span id="L2960" class="LineNr">2960 </span> 52/push-edx +<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2962" class="LineNr">2962 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2963" class="LineNr">2963 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2964" class="LineNr">2964 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2965" class="LineNr">2965 </span> <span class="subxComment"># check-ints-equal(ebx, -3, msg)</span> +<span id="L2966" class="LineNr">2966 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2967" class="LineNr">2967 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2917'>test-parse-effective-address-base-negative-displacement</a>/displacement"</span>/imm32 +<span id="L2968" class="LineNr">2968 </span> 68/push -3/imm32 +<span id="L2969" class="LineNr">2969 </span> 53/push-ebx +<span id="L2970" class="LineNr">2970 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2971" class="LineNr">2971 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L2972" class="LineNr">2972 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2973" class="LineNr">2973 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2974" class="LineNr">2974 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2975" class="LineNr">2975 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2976" class="LineNr">2976 </span> 5d/pop-to-ebp +<span id="L2977" class="LineNr">2977 </span> c3/return +<span id="L2978" class="LineNr">2978 </span> +<span id="L2979" class="LineNr">2979 </span><span class="subxTest">test-parse-effective-address-base-index</span>: +<span id="L2980" class="LineNr">2980 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2981" class="LineNr">2981 </span> 55/push-ebp +<span id="L2982" class="LineNr">2982 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2983" class="LineNr">2983 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx)"</span> +<span id="L2984" class="LineNr">2984 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx)"</span>/imm32 +<span id="L2985" class="LineNr">2985 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2986" class="LineNr">2986 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2987" class="LineNr">2987 </span> 05/add-to-eax 4/imm32 +<span id="L2988" class="LineNr">2988 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L2989" class="LineNr">2989 </span> 51/push-ecx +<span id="L2990" class="LineNr">2990 </span> 50/push-eax +<span id="L2991" class="LineNr">2991 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2992" class="LineNr">2992 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L2993" class="LineNr">2993 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2994" class="LineNr">2994 </span> 51/push-ecx +<span id="L2995" class="LineNr">2995 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2996" class="LineNr">2996 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L2997" class="LineNr">2997 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2998" class="LineNr">2998 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2999" class="LineNr">2999 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L3000" class="LineNr">3000 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L3001" class="LineNr">3001 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3002" class="LineNr">3002 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2979'>test-parse-effective-address-base-index</a>/base"</span>/imm32 +<span id="L3003" class="LineNr">3003 </span> 68/push 6/imm32/esi +<span id="L3004" class="LineNr">3004 </span> 50/push-eax +<span id="L3005" class="LineNr">3005 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3006" class="LineNr">3006 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3007" class="LineNr">3007 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3008" class="LineNr">3008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3009" class="LineNr">3009 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> +<span id="L3010" class="LineNr">3010 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3011" class="LineNr">3011 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2979'>test-parse-effective-address-base-index</a>/index"</span>/imm32 +<span id="L3012" class="LineNr">3012 </span> 68/push 1/imm32/none +<span id="L3013" class="LineNr">3013 </span> 51/push-ecx +<span id="L3014" class="LineNr">3014 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3015" class="LineNr">3015 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3016" class="LineNr">3016 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3017" class="LineNr">3017 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3018" class="LineNr">3018 </span> <span class="subxComment"># check-ints-equal(edx, 0, msg)</span> +<span id="L3019" class="LineNr">3019 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3020" class="LineNr">3020 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2979'>test-parse-effective-address-base-index</a>/scale"</span>/imm32 +<span id="L3021" class="LineNr">3021 </span> 68/push 0/imm32/none +<span id="L3022" class="LineNr">3022 </span> 52/push-edx +<span id="L3023" class="LineNr">3023 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3024" class="LineNr">3024 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3025" class="LineNr">3025 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3026" class="LineNr">3026 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3027" class="LineNr">3027 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L3028" class="LineNr">3028 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3029" class="LineNr">3029 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L2979'>test-parse-effective-address-base-index</a>/displacement"</span>/imm32 +<span id="L3030" class="LineNr">3030 </span> 68/push 0/imm32 +<span id="L3031" class="LineNr">3031 </span> 53/push-ebx +<span id="L3032" class="LineNr">3032 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3033" class="LineNr">3033 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3034" class="LineNr">3034 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3035" class="LineNr">3035 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3036" class="LineNr">3036 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3037" class="LineNr">3037 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3038" class="LineNr">3038 </span> 5d/pop-to-ebp +<span id="L3039" class="LineNr">3039 </span> c3/return +<span id="L3040" class="LineNr">3040 </span> +<span id="L3041" class="LineNr">3041 </span><span class="subxTest">test-parse-effective-address-base-index-scale</span>: +<span id="L3042" class="LineNr">3042 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3043" class="LineNr">3043 </span> 55/push-ebp +<span id="L3044" class="LineNr">3044 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3045" class="LineNr">3045 </span> <span class="subxComment"># var slice/ecx = "*(esi+ecx<<2)"</span> +<span id="L3046" class="LineNr">3046 </span> b8/copy-to-eax <span class="Constant">"*(esi+ecx<<2)"</span>/imm32 +<span id="L3047" class="LineNr">3047 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3048" class="LineNr">3048 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L3049" class="LineNr">3049 </span> 05/add-to-eax 4/imm32 +<span id="L3050" class="LineNr">3050 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L3051" class="LineNr">3051 </span> 51/push-ecx +<span id="L3052" class="LineNr">3052 </span> 50/push-eax +<span id="L3053" class="LineNr">3053 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L3054" class="LineNr">3054 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L3055" class="LineNr">3055 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3056" class="LineNr">3056 </span> 51/push-ecx +<span id="L3057" class="LineNr">3057 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3058" class="LineNr">3058 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L3059" class="LineNr">3059 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3060" class="LineNr">3060 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3061" class="LineNr">3061 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L3062" class="LineNr">3062 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L3063" class="LineNr">3063 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3064" class="LineNr">3064 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 +<span id="L3065" class="LineNr">3065 </span> 68/push 6/imm32/esi +<span id="L3066" class="LineNr">3066 </span> 50/push-eax +<span id="L3067" class="LineNr">3067 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3068" class="LineNr">3068 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3069" class="LineNr">3069 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3070" class="LineNr">3070 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3071" class="LineNr">3071 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> +<span id="L3072" class="LineNr">3072 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3073" class="LineNr">3073 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 +<span id="L3074" class="LineNr">3074 </span> 68/push 1/imm32/none +<span id="L3075" class="LineNr">3075 </span> 51/push-ecx +<span id="L3076" class="LineNr">3076 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3077" class="LineNr">3077 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3078" class="LineNr">3078 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3079" class="LineNr">3079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3080" class="LineNr">3080 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> +<span id="L3081" class="LineNr">3081 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3082" class="LineNr">3082 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 +<span id="L3083" class="LineNr">3083 </span> 68/push 2/imm32 +<span id="L3084" class="LineNr">3084 </span> 52/push-edx +<span id="L3085" class="LineNr">3085 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3086" class="LineNr">3086 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3087" class="LineNr">3087 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3088" class="LineNr">3088 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3089" class="LineNr">3089 </span> <span class="subxComment"># check-ints-equal(ebx, 0, msg)</span> +<span id="L3090" class="LineNr">3090 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3091" class="LineNr">3091 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 +<span id="L3092" class="LineNr">3092 </span> 68/push 0/imm32 +<span id="L3093" class="LineNr">3093 </span> 53/push-ebx +<span id="L3094" class="LineNr">3094 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3095" class="LineNr">3095 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3096" class="LineNr">3096 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3097" class="LineNr">3097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3098" class="LineNr">3098 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3099" class="LineNr">3099 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3100" class="LineNr">3100 </span> 5d/pop-to-ebp +<span id="L3101" class="LineNr">3101 </span> c3/return +<span id="L3102" class="LineNr">3102 </span> +<span id="L3103" class="LineNr">3103 </span><span class="subxTest">test-parse-effective-address-base-index-scale-displacement</span>: +<span id="L3104" class="LineNr">3104 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3105" class="LineNr">3105 </span> 55/push-ebp +<span id="L3106" class="LineNr">3106 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3107" class="LineNr">3107 </span> <span class="subxComment"># var slice/ecx = "*(esi + ecx<<2 - 0x34)"</span> +<span id="L3108" class="LineNr">3108 </span> b8/copy-to-eax <span class="Constant">"*(esi + ecx<<2 - 0x34)"</span>/imm32 +<span id="L3109" class="LineNr">3109 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3110" class="LineNr">3110 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L3111" class="LineNr">3111 </span> 05/add-to-eax 4/imm32 +<span id="L3112" class="LineNr">3112 </span> <span class="subxS1Comment"># . ecx = {eax, ecx}</span> +<span id="L3113" class="LineNr">3113 </span> 51/push-ecx +<span id="L3114" class="LineNr">3114 </span> 50/push-eax +<span id="L3115" class="LineNr">3115 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L3116" class="LineNr">3116 </span> <span class="subxComment"># eax, ecx, edx, ebx = parse-effective-address(slice)</span> +<span id="L3117" class="LineNr">3117 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3118" class="LineNr">3118 </span> 51/push-ecx +<span id="L3119" class="LineNr">3119 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3120" class="LineNr">3120 </span> e8/call <a href='sigils.subx.html#L2234'>parse-effective-address</a>/disp32 +<span id="L3121" class="LineNr">3121 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3122" class="LineNr">3122 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3123" class="LineNr">3123 </span> <span class="subxComment"># slice clobbered beyond this point</span> +<span id="L3124" class="LineNr">3124 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L3125" class="LineNr">3125 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3126" class="LineNr">3126 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/base"</span>/imm32 +<span id="L3127" class="LineNr">3127 </span> 68/push 6/imm32/esi +<span id="L3128" class="LineNr">3128 </span> 50/push-eax +<span id="L3129" class="LineNr">3129 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3130" class="LineNr">3130 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3131" class="LineNr">3131 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3132" class="LineNr">3132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3133" class="LineNr">3133 </span> <span class="subxComment"># check-ints-equal(ecx, 1, msg)</span> +<span id="L3134" class="LineNr">3134 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3135" class="LineNr">3135 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/index"</span>/imm32 +<span id="L3136" class="LineNr">3136 </span> 68/push 1/imm32/none +<span id="L3137" class="LineNr">3137 </span> 51/push-ecx +<span id="L3138" class="LineNr">3138 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3139" class="LineNr">3139 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3140" class="LineNr">3140 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3141" class="LineNr">3141 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3142" class="LineNr">3142 </span> <span class="subxComment"># check-ints-equal(edx, 2, msg)</span> +<span id="L3143" class="LineNr">3143 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3144" class="LineNr">3144 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/scale"</span>/imm32 +<span id="L3145" class="LineNr">3145 </span> 68/push 2/imm32 +<span id="L3146" class="LineNr">3146 </span> 52/push-edx +<span id="L3147" class="LineNr">3147 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3148" class="LineNr">3148 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3149" class="LineNr">3149 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3150" class="LineNr">3150 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3151" class="LineNr">3151 </span> <span class="subxComment"># check-ints-equal(ebx, -0x34, msg)</span> +<span id="L3152" class="LineNr">3152 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3153" class="LineNr">3153 </span> 68/push <span class="Constant">"F - <a href='sigils.subx.html#L3041'>test-parse-effective-address-base-index-scale</a>/displacement"</span>/imm32 +<span id="L3154" class="LineNr">3154 </span> 68/push -0x34/imm32 +<span id="L3155" class="LineNr">3155 </span> 53/push-ebx +<span id="L3156" class="LineNr">3156 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3157" class="LineNr">3157 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3158" class="LineNr">3158 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3159" class="LineNr">3159 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3160" class="LineNr">3160 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3161" class="LineNr">3161 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3162" class="LineNr">3162 </span> 5d/pop-to-ebp +<span id="L3163" class="LineNr">3163 </span> c3/return +<span id="L3164" class="LineNr">3164 </span> +<span id="L3165" class="LineNr">3165 </span><span class="subxComment"># Code generation:</span> +<span id="L3166" class="LineNr">3166 </span><span class="subxComment"># if base is esp, then goto emit-sib</span> +<span id="L3167" class="LineNr">3167 </span><span class="subxComment"># if base is ebp, then goto emit-sib</span> +<span id="L3168" class="LineNr">3168 </span><span class="subxComment"># if index is none and disp is 0, then mod = 0 and rm32 = base</span> +<span id="L3169" class="LineNr">3169 </span><span class="subxComment"># if index is none, then mod = 2 and rm32 = base and disp32 = disp</span> +<span id="L3170" class="LineNr">3170 </span><span class="subxComment"># emit-sib:</span> +<span id="L3171" class="LineNr">3171 </span><span class="subxComment"># if index is not none, then mod = 2 and rm32 = 4 and base = base and index = index and disp32 = disp</span> +<span id="L3172" class="LineNr">3172 </span><span class="subxFunction">emit-indirect-mode</span>: <span class="subxComment"># out: (addr buffered-file), base: int, index: int, scale: int, disp: int</span> +<span id="L3173" class="LineNr">3173 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3174" class="LineNr">3174 </span> 55/push-ebp +<span id="L3175" class="LineNr">3175 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3176" class="LineNr">3176 </span><span class="Constant">$emit-indirect-mode:check-for-ebp</span>: +<span id="L3177" class="LineNr">3177 </span> <span class="subxComment"># if (base == 5) goto emit-sib</span> +<span id="L3178" class="LineNr">3178 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 5/imm32 <span class="subxComment"># compare *(ebp+12)</span> +<span id="L3179" class="LineNr">3179 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 +<span id="L3180" class="LineNr">3180 </span><span class="Constant">$emit-indirect-mode:check-for-esp</span>: +<span id="L3181" class="LineNr">3181 </span> <span class="subxComment"># if (base == 4) goto emit-sib</span> +<span id="L3182" class="LineNr">3182 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 4/imm32 <span class="subxComment"># compare *(ebp+12)</span> +<span id="L3183" class="LineNr">3183 </span> 74/jump-if-= $emit-indirect-mode:emit-sib/disp8 +<span id="L3184" class="LineNr">3184 </span><span class="Constant">$emit-indirect-mode:check-for-sib</span>: +<span id="L3185" class="LineNr">3185 </span> <span class="subxComment"># if (index == 4/none) goto next check</span> +<span id="L3186" class="LineNr">3186 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 4/imm32 <span class="subxComment"># compare *(ebp+16)</span> +<span id="L3187" class="LineNr">3187 </span> 0f 84/jump-if-= $emit-indirect-mode:check-for-disp/disp32 +<span id="L3188" class="LineNr">3188 </span><span class="Constant">$emit-indirect-mode:emit-sib</span>: +<span id="L3189" class="LineNr">3189 </span> <span class="subxComment"># emit(out, "2/mod/indirect 4/rm32/sib " base "/base " index "/index " scale "/scale " disp "/disp32")</span> +<span id="L3190" class="LineNr">3190 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 4/rm32/sib ")</span> +<span id="L3191" class="LineNr">3191 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3192" class="LineNr">3192 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib "</span>/imm32 +<span id="L3193" class="LineNr">3193 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3194" class="LineNr">3194 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3195" class="LineNr">3195 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3196" class="LineNr">3196 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3197" class="LineNr">3197 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3198" class="LineNr">3198 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> +<span id="L3199" class="LineNr">3199 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3200" class="LineNr">3200 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3201" class="LineNr">3201 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3202" class="LineNr">3202 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3203" class="LineNr">3203 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3204" class="LineNr">3204 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3205" class="LineNr">3205 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3206" class="LineNr">3206 </span> <span class="subxS1Comment"># . write-buffered(out, "/base ")</span> +<span id="L3207" class="LineNr">3207 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3208" class="LineNr">3208 </span> 68/push <span class="Constant">"/base "</span>/imm32 +<span id="L3209" class="LineNr">3209 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3210" class="LineNr">3210 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3211" class="LineNr">3211 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3212" class="LineNr">3212 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3213" class="LineNr">3213 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3214" class="LineNr">3214 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, index)</span> +<span id="L3215" class="LineNr">3215 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3216" class="LineNr">3216 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L3217" class="LineNr">3217 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3218" class="LineNr">3218 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3219" class="LineNr">3219 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3220" class="LineNr">3220 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3221" class="LineNr">3221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3222" class="LineNr">3222 </span> <span class="subxS1Comment"># . write-buffered(out, "/index ")</span> +<span id="L3223" class="LineNr">3223 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3224" class="LineNr">3224 </span> 68/push <span class="Constant">"/index "</span>/imm32 +<span id="L3225" class="LineNr">3225 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3226" class="LineNr">3226 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3227" class="LineNr">3227 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3228" class="LineNr">3228 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3229" class="LineNr">3229 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3230" class="LineNr">3230 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, scale)</span> +<span id="L3231" class="LineNr">3231 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3232" class="LineNr">3232 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L3233" class="LineNr">3233 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3234" class="LineNr">3234 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3235" class="LineNr">3235 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3236" class="LineNr">3236 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3237" class="LineNr">3237 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3238" class="LineNr">3238 </span> <span class="subxS1Comment"># . write-buffered(out, "/scale ")</span> +<span id="L3239" class="LineNr">3239 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3240" class="LineNr">3240 </span> 68/push <span class="Constant">"/scale "</span>/imm32 +<span id="L3241" class="LineNr">3241 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3242" class="LineNr">3242 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3243" class="LineNr">3243 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3244" class="LineNr">3244 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3245" class="LineNr">3245 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3246" class="LineNr">3246 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> +<span id="L3247" class="LineNr">3247 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3248" class="LineNr">3248 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L3249" class="LineNr">3249 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3250" class="LineNr">3250 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3251" class="LineNr">3251 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3252" class="LineNr">3252 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3253" class="LineNr">3253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3254" class="LineNr">3254 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> +<span id="L3255" class="LineNr">3255 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3256" class="LineNr">3256 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 +<span id="L3257" class="LineNr">3257 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3258" class="LineNr">3258 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3259" class="LineNr">3259 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3260" class="LineNr">3260 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3261" class="LineNr">3261 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3262" class="LineNr">3262 </span> e9/jump $emit-indirect-mode:end/disp32 +<span id="L3263" class="LineNr">3263 </span><span class="Constant">$emit-indirect-mode:check-for-disp</span>: +<span id="L3264" class="LineNr">3264 </span> <span class="subxComment"># if (disp == 0) goto next check</span> +<span id="L3265" class="LineNr">3265 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 0/imm32 <span class="subxComment"># compare *(ebp+24)</span> +<span id="L3266" class="LineNr">3266 </span> 74/jump-if-= $emit-indirect-mode:emit-indirect/disp8 +<span id="L3267" class="LineNr">3267 </span><span class="Constant">$emit-indirect-mode:emit-disp</span>: +<span id="L3268" class="LineNr">3268 </span> <span class="subxComment"># emit(out, "2/mod/*+disp32 " base "/rm32 " disp "/disp32")</span> +<span id="L3269" class="LineNr">3269 </span> <span class="subxS1Comment"># . write-buffered(out, "2/mod/*+disp32 ")</span> +<span id="L3270" class="LineNr">3270 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3271" class="LineNr">3271 </span> 68/push <span class="Constant">"2/mod/*+disp32 "</span>/imm32 +<span id="L3272" class="LineNr">3272 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3273" class="LineNr">3273 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3274" class="LineNr">3274 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3275" class="LineNr">3275 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3276" class="LineNr">3276 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3277" class="LineNr">3277 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> +<span id="L3278" class="LineNr">3278 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3279" class="LineNr">3279 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3280" class="LineNr">3280 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3281" class="LineNr">3281 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3282" class="LineNr">3282 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3283" class="LineNr">3283 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3284" class="LineNr">3284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3285" class="LineNr">3285 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32 ")</span> +<span id="L3286" class="LineNr">3286 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3287" class="LineNr">3287 </span> 68/push <span class="Constant">"/rm32 "</span>/imm32 +<span id="L3288" class="LineNr">3288 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3289" class="LineNr">3289 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3290" class="LineNr">3290 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3291" class="LineNr">3291 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3292" class="LineNr">3292 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3293" class="LineNr">3293 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, disp)</span> +<span id="L3294" class="LineNr">3294 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3295" class="LineNr">3295 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L3296" class="LineNr">3296 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3297" class="LineNr">3297 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3298" class="LineNr">3298 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3299" class="LineNr">3299 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3300" class="LineNr">3300 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3301" class="LineNr">3301 </span> <span class="subxS1Comment"># . write-buffered(out, "/disp32")</span> +<span id="L3302" class="LineNr">3302 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3303" class="LineNr">3303 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 +<span id="L3304" class="LineNr">3304 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3305" class="LineNr">3305 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3306" class="LineNr">3306 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3307" class="LineNr">3307 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3308" class="LineNr">3308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3309" class="LineNr">3309 </span> eb/jump $emit-indirect-mode:end/disp8 +<span id="L3310" class="LineNr">3310 </span><span class="Constant">$emit-indirect-mode:emit-indirect</span>: +<span id="L3311" class="LineNr">3311 </span> <span class="subxComment"># emit(out, "0/mod/indirect " base "/rm32")</span> +<span id="L3312" class="LineNr">3312 </span> <span class="subxS1Comment"># . write-buffered(out, "0/mod/indirect ")</span> +<span id="L3313" class="LineNr">3313 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3314" class="LineNr">3314 </span> 68/push <span class="Constant">"0/mod/indirect "</span>/imm32 +<span id="L3315" class="LineNr">3315 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3316" class="LineNr">3316 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3317" class="LineNr">3317 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3318" class="LineNr">3318 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3319" class="LineNr">3319 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3320" class="LineNr">3320 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, base)</span> +<span id="L3321" class="LineNr">3321 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3322" class="LineNr">3322 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3323" class="LineNr">3323 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3324" class="LineNr">3324 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3325" class="LineNr">3325 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L3326" class="LineNr">3326 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3327" class="LineNr">3327 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3328" class="LineNr">3328 </span> <span class="subxS1Comment"># . write-buffered(out, "/rm32")</span> +<span id="L3329" class="LineNr">3329 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3330" class="LineNr">3330 </span> 68/push <span class="Constant">"/rm32"</span>/imm32 +<span id="L3331" class="LineNr">3331 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3332" class="LineNr">3332 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3333" class="LineNr">3333 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3334" class="LineNr">3334 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3335" class="LineNr">3335 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3336" class="LineNr">3336 </span><span class="Constant">$emit-indirect-mode:end</span>: +<span id="L3337" class="LineNr">3337 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3338" class="LineNr">3338 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3339" class="LineNr">3339 </span> 5d/pop-to-ebp +<span id="L3340" class="LineNr">3340 </span> c3/return +<span id="L3341" class="LineNr">3341 </span> +<span id="L3342" class="LineNr">3342 </span><span class="subxTest">test-emit-indirect-mode</span>: +<span id="L3343" class="LineNr">3343 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3344" class="LineNr">3344 </span> 55/push-ebp +<span id="L3345" class="LineNr">3345 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3346" class="LineNr">3346 </span> <span class="subxComment"># setup</span> +<span id="L3347" class="LineNr">3347 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3349" class="LineNr">3349 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3350" class="LineNr">3350 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3351" class="LineNr">3351 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3352" class="LineNr">3352 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3353" class="LineNr">3353 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3354" class="LineNr">3354 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3355" class="LineNr">3355 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3356" class="LineNr">3356 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3357" class="LineNr">3357 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3358" class="LineNr">3358 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3359" class="LineNr">3359 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3360" class="LineNr">3360 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3361" class="LineNr">3361 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 0, 4/none, 0, 0)</span> +<span id="L3362" class="LineNr">3362 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3363" class="LineNr">3363 </span> 68/push 0/imm32/.disp +<span id="L3364" class="LineNr">3364 </span> 68/push 0/imm32/.scale +<span id="L3365" class="LineNr">3365 </span> 68/push 4/imm32/.index/none +<span id="L3366" class="LineNr">3366 </span> 68/push 0/imm32/.base +<span id="L3367" class="LineNr">3367 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3368" class="LineNr">3368 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3369" class="LineNr">3369 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L3370" class="LineNr">3370 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3371" class="LineNr">3371 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3372" class="LineNr">3372 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3373" class="LineNr">3373 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3374" class="LineNr">3374 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3375" class="LineNr">3375 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3376" class="LineNr">3376 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3377" class="LineNr">3377 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3378" class="LineNr">3378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3379" class="Folded">3379 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3405" class="LineNr">3405 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 0/rm32", msg)</span> +<span id="L3406" class="LineNr">3406 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3407" class="LineNr">3407 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode"</span>/imm32 +<span id="L3408" class="LineNr">3408 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000000/rm32"</span>/imm32 +<span id="L3409" class="LineNr">3409 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3410" class="LineNr">3410 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3411" class="LineNr">3411 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3412" class="LineNr">3412 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3413" class="LineNr">3413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3414" class="LineNr">3414 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3415" class="LineNr">3415 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3416" class="LineNr">3416 </span> 5d/pop-to-ebp +<span id="L3417" class="LineNr">3417 </span> c3/return +<span id="L3418" class="LineNr">3418 </span> +<span id="L3419" class="LineNr">3419 </span><span class="subxTest">test-emit-indirect-mode-2</span>: +<span id="L3420" class="LineNr">3420 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3421" class="LineNr">3421 </span> 55/push-ebp +<span id="L3422" class="LineNr">3422 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3423" class="LineNr">3423 </span> <span class="subxComment"># setup</span> +<span id="L3424" class="LineNr">3424 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3425" class="LineNr">3425 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3426" class="LineNr">3426 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3427" class="LineNr">3427 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3428" class="LineNr">3428 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3429" class="LineNr">3429 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3430" class="LineNr">3430 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3431" class="LineNr">3431 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3432" class="LineNr">3432 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3433" class="LineNr">3433 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3434" class="LineNr">3434 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3435" class="LineNr">3435 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3436" class="LineNr">3436 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3437" class="LineNr">3437 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3438" class="LineNr">3438 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 0)</span> +<span id="L3439" class="LineNr">3439 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3440" class="LineNr">3440 </span> 68/push 0/imm32/.disp +<span id="L3441" class="LineNr">3441 </span> 68/push 0/imm32/.scale +<span id="L3442" class="LineNr">3442 </span> 68/push 4/imm32/.index/none +<span id="L3443" class="LineNr">3443 </span> 68/push 7/imm32/.base +<span id="L3444" class="LineNr">3444 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3445" class="LineNr">3445 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3446" class="LineNr">3446 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L3447" class="LineNr">3447 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3448" class="LineNr">3448 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3449" class="LineNr">3449 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3450" class="LineNr">3450 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3451" class="LineNr">3451 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3452" class="LineNr">3452 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3453" class="LineNr">3453 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3454" class="LineNr">3454 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3455" class="LineNr">3455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3456" class="Folded">3456 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3482" class="LineNr">3482 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "0/mod/indirect 7/rm32", msg)</span> +<span id="L3483" class="LineNr">3483 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3484" class="LineNr">3484 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-2"</span>/imm32 +<span id="L3485" class="LineNr">3485 </span> 68/push <span class="Constant">"0/mod/indirect 0x00000007/rm32"</span>/imm32 +<span id="L3486" class="LineNr">3486 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3487" class="LineNr">3487 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3488" class="LineNr">3488 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3489" class="LineNr">3489 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3490" class="LineNr">3490 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3491" class="LineNr">3491 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3492" class="LineNr">3492 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3493" class="LineNr">3493 </span> 5d/pop-to-ebp +<span id="L3494" class="LineNr">3494 </span> c3/return +<span id="L3495" class="LineNr">3495 </span> +<span id="L3496" class="LineNr">3496 </span><span class="subxTest">test-emit-indirect-mode-with-disp</span>: +<span id="L3497" class="LineNr">3497 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3498" class="LineNr">3498 </span> 55/push-ebp +<span id="L3499" class="LineNr">3499 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3500" class="LineNr">3500 </span> <span class="subxComment"># setup</span> +<span id="L3501" class="LineNr">3501 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3502" class="LineNr">3502 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3503" class="LineNr">3503 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3504" class="LineNr">3504 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3505" class="LineNr">3505 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3506" class="LineNr">3506 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3507" class="LineNr">3507 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3508" class="LineNr">3508 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3509" class="LineNr">3509 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3510" class="LineNr">3510 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3511" class="LineNr">3511 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3512" class="LineNr">3512 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3513" class="LineNr">3513 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3514" class="LineNr">3514 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3515" class="LineNr">3515 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, 4)</span> +<span id="L3516" class="LineNr">3516 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3517" class="LineNr">3517 </span> 68/push 4/imm32/.disp +<span id="L3518" class="LineNr">3518 </span> 68/push 0/imm32/.scale +<span id="L3519" class="LineNr">3519 </span> 68/push 4/imm32/.index/none +<span id="L3520" class="LineNr">3520 </span> 68/push 6/imm32/.base +<span id="L3521" class="LineNr">3521 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3522" class="LineNr">3522 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3523" class="LineNr">3523 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L3524" class="LineNr">3524 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3525" class="LineNr">3525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3526" class="LineNr">3526 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3527" class="LineNr">3527 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3528" class="LineNr">3528 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3529" class="LineNr">3529 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3530" class="LineNr">3530 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3531" class="LineNr">3531 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3532" class="LineNr">3532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3533" class="Folded">3533 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3559" class="LineNr">3559 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 4/disp32", msg)</span> +<span id="L3560" class="LineNr">3560 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3561" class="LineNr">3561 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 +<span id="L3562" class="LineNr">3562 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0x00000004/disp32"</span>/imm32 +<span id="L3563" class="LineNr">3563 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3564" class="LineNr">3564 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3565" class="LineNr">3565 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3566" class="LineNr">3566 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3567" class="LineNr">3567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3568" class="LineNr">3568 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3569" class="LineNr">3569 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3570" class="LineNr">3570 </span> 5d/pop-to-ebp +<span id="L3571" class="LineNr">3571 </span> c3/return +<span id="L3572" class="LineNr">3572 </span> +<span id="L3573" class="LineNr">3573 </span><span class="subxTest">test-emit-indirect-mode-with-disp-negative</span>: +<span id="L3574" class="LineNr">3574 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3575" class="LineNr">3575 </span> 55/push-ebp +<span id="L3576" class="LineNr">3576 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3577" class="LineNr">3577 </span> <span class="subxComment"># setup</span> +<span id="L3578" class="LineNr">3578 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3579" class="LineNr">3579 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3580" class="LineNr">3580 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3581" class="LineNr">3581 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3582" class="LineNr">3582 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3583" class="LineNr">3583 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3584" class="LineNr">3584 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3585" class="LineNr">3585 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3586" class="LineNr">3586 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3587" class="LineNr">3587 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3588" class="LineNr">3588 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3589" class="LineNr">3589 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3590" class="LineNr">3590 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3591" class="LineNr">3591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3592" class="LineNr">3592 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6, 4/none, 0, -4)</span> +<span id="L3593" class="LineNr">3593 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3594" class="LineNr">3594 </span> 68/push -4/imm32/.disp +<span id="L3595" class="LineNr">3595 </span> 68/push 0/imm32/.scale +<span id="L3596" class="LineNr">3596 </span> 68/push 4/imm32/.index/none +<span id="L3597" class="LineNr">3597 </span> 68/push 6/imm32/.base +<span id="L3598" class="LineNr">3598 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3599" class="LineNr">3599 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3600" class="LineNr">3600 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L3601" class="LineNr">3601 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3602" class="LineNr">3602 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3603" class="LineNr">3603 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3604" class="LineNr">3604 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3605" class="LineNr">3605 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3606" class="LineNr">3606 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3607" class="LineNr">3607 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3608" class="LineNr">3608 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3609" class="LineNr">3609 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3610" class="Folded">3610 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3636" class="LineNr">3636 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 6/rm32 -4/disp32", msg)</span> +<span id="L3637" class="LineNr">3637 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3638" class="LineNr">3638 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-disp"</span>/imm32 +<span id="L3639" class="LineNr">3639 </span> 68/push <span class="Constant">"2/mod/*+disp32 0x00000006/rm32 0xfffffffc/disp32"</span>/imm32 +<span id="L3640" class="LineNr">3640 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3641" class="LineNr">3641 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3642" class="LineNr">3642 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3643" class="LineNr">3643 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3644" class="LineNr">3644 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3645" class="LineNr">3645 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3646" class="LineNr">3646 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3647" class="LineNr">3647 </span> 5d/pop-to-ebp +<span id="L3648" class="LineNr">3648 </span> c3/return +<span id="L3649" class="LineNr">3649 </span> +<span id="L3650" class="LineNr">3650 </span><span class="subxTest">test-emit-indirect-mode-with-sib</span>: +<span id="L3651" class="LineNr">3651 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3652" class="LineNr">3652 </span> 55/push-ebp +<span id="L3653" class="LineNr">3653 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3654" class="LineNr">3654 </span> <span class="subxComment"># setup</span> +<span id="L3655" class="LineNr">3655 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3656" class="LineNr">3656 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3657" class="LineNr">3657 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3658" class="LineNr">3658 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3659" class="LineNr">3659 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3660" class="LineNr">3660 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3661" class="LineNr">3661 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3662" class="LineNr">3662 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3663" class="LineNr">3663 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3664" class="LineNr">3664 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3665" class="LineNr">3665 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3666" class="LineNr">3666 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3667" class="LineNr">3667 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3668" class="LineNr">3668 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3669" class="LineNr">3669 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 6/base, 1/index, 2/scale, 4/disp)</span> +<span id="L3670" class="LineNr">3670 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3671" class="LineNr">3671 </span> 68/push 4/imm32/.disp +<span id="L3672" class="LineNr">3672 </span> 68/push 2/imm32/.scale +<span id="L3673" class="LineNr">3673 </span> 68/push 1/imm32/.index +<span id="L3674" class="LineNr">3674 </span> 68/push 6/imm32/.base +<span id="L3675" class="LineNr">3675 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3676" class="LineNr">3676 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3677" class="LineNr">3677 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L3678" class="LineNr">3678 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3679" class="LineNr">3679 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3680" class="LineNr">3680 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3681" class="LineNr">3681 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3682" class="LineNr">3682 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3683" class="LineNr">3683 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3684" class="LineNr">3684 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3685" class="LineNr">3685 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3686" class="LineNr">3686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3687" class="Folded">3687 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3713" class="LineNr">3713 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/indirect 4/rm32/sib 6/base 1/index 2/scale 4/disp", msg)</span> +<span id="L3714" class="LineNr">3714 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3715" class="LineNr">3715 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-with-sib"</span>/imm32 +<span id="L3716" class="LineNr">3716 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000006/base 0x00000001/index 0x00000002/scale 0x00000004/disp32"</span>/imm32 +<span id="L3717" class="LineNr">3717 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3718" class="LineNr">3718 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3719" class="LineNr">3719 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3720" class="LineNr">3720 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3721" class="LineNr">3721 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3722" class="LineNr">3722 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3723" class="LineNr">3723 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3724" class="LineNr">3724 </span> 5d/pop-to-ebp +<span id="L3725" class="LineNr">3725 </span> c3/return +<span id="L3726" class="LineNr">3726 </span> +<span id="L3727" class="LineNr">3727 </span><span class="subxTest">test-emit-indirect-mode-ebp</span>: +<span id="L3728" class="LineNr">3728 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3729" class="LineNr">3729 </span> 55/push-ebp +<span id="L3730" class="LineNr">3730 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3731" class="LineNr">3731 </span> <span class="subxComment"># setup</span> +<span id="L3732" class="LineNr">3732 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3733" class="LineNr">3733 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3734" class="LineNr">3734 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3735" class="LineNr">3735 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3736" class="LineNr">3736 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3737" class="LineNr">3737 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3738" class="LineNr">3738 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3739" class="LineNr">3739 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3740" class="LineNr">3740 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3741" class="LineNr">3741 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3742" class="LineNr">3742 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3743" class="LineNr">3743 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3744" class="LineNr">3744 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3745" class="LineNr">3745 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3746" class="LineNr">3746 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 5/base, 0/index, 0/scale, 0/disp)</span> +<span id="L3747" class="LineNr">3747 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3748" class="LineNr">3748 </span> 68/push 0/imm32/.disp +<span id="L3749" class="LineNr">3749 </span> 68/push 0/imm32/.scale +<span id="L3750" class="LineNr">3750 </span> 68/push 0/imm32/.index +<span id="L3751" class="LineNr">3751 </span> 68/push 5/imm32/.base/ebp +<span id="L3752" class="LineNr">3752 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3753" class="LineNr">3753 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3754" class="LineNr">3754 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L3755" class="LineNr">3755 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3756" class="LineNr">3756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3757" class="LineNr">3757 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3758" class="LineNr">3758 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3759" class="LineNr">3759 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3760" class="LineNr">3760 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3761" class="LineNr">3761 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3762" class="LineNr">3762 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3763" class="LineNr">3763 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3764" class="Folded">3764 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3790" class="LineNr">3790 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 5/base/ebp 0/index 0/scale 0/disp32", msg)</span> +<span id="L3791" class="LineNr">3791 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3792" class="LineNr">3792 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-ebp"</span>/imm32 +<span id="L3793" class="LineNr">3793 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000005/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 +<span id="L3794" class="LineNr">3794 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3795" class="LineNr">3795 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3796" class="LineNr">3796 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3797" class="LineNr">3797 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3798" class="LineNr">3798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3799" class="LineNr">3799 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3800" class="LineNr">3800 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3801" class="LineNr">3801 </span> 5d/pop-to-ebp +<span id="L3802" class="LineNr">3802 </span> c3/return +<span id="L3803" class="LineNr">3803 </span> +<span id="L3804" class="LineNr">3804 </span><span class="subxTest">test-emit-indirect-mode-esp</span>: +<span id="L3805" class="LineNr">3805 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3806" class="LineNr">3806 </span> 55/push-ebp +<span id="L3807" class="LineNr">3807 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3808" class="LineNr">3808 </span> <span class="subxComment"># setup</span> +<span id="L3809" class="LineNr">3809 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3810" class="LineNr">3810 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3811" class="LineNr">3811 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3812" class="LineNr">3812 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3813" class="LineNr">3813 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3814" class="LineNr">3814 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3815" class="LineNr">3815 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3816" class="LineNr">3816 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L3817" class="LineNr">3817 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3818" class="LineNr">3818 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L3819" class="LineNr">3819 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3820" class="LineNr">3820 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3821" class="LineNr">3821 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3822" class="LineNr">3822 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3823" class="LineNr">3823 </span> <span class="subxComment"># emit-indirect-mode(_test-output-buffered-file, 4/base, 0/index, 0/scale, 0/disp)</span> +<span id="L3824" class="LineNr">3824 </span> <span class="subxS2Comment"># . . write args</span> +<span id="L3825" class="LineNr">3825 </span> 68/push 0/imm32/.disp +<span id="L3826" class="LineNr">3826 </span> 68/push 0/imm32/.scale +<span id="L3827" class="LineNr">3827 </span> 68/push 0/imm32/.index +<span id="L3828" class="LineNr">3828 </span> 68/push 4/imm32/.base/esp +<span id="L3829" class="LineNr">3829 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3830" class="LineNr">3830 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3831" class="LineNr">3831 </span> e8/call <a href='sigils.subx.html#L3172'>emit-indirect-mode</a>/disp32 +<span id="L3832" class="LineNr">3832 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3833" class="LineNr">3833 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3834" class="LineNr">3834 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L3835" class="LineNr">3835 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3836" class="LineNr">3836 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L3837" class="LineNr">3837 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3838" class="LineNr">3838 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L3839" class="LineNr">3839 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3840" class="LineNr">3840 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3841" class="Folded">3841 </span><span class="Folded">+-- 26 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3867" class="LineNr">3867 </span> <span class="subxComment"># check-stream-equal(_test-output-stream, "2/mod/*+disp32 4/rm32/sib 4/base/ebp 0/index 0/scale 0/disp32", msg)</span> +<span id="L3868" class="LineNr">3868 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3869" class="LineNr">3869 </span> 68/push <span class="Constant">"F - test-emit-indirect-mode-esp"</span>/imm32 +<span id="L3870" class="LineNr">3870 </span> 68/push <span class="Constant">"2/mod/*+disp32 4/rm32/sib 0x00000004/base 0x00000000/index 0x00000000/scale 0x00000000/disp32"</span>/imm32 +<span id="L3871" class="LineNr">3871 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3872" class="LineNr">3872 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3873" class="LineNr">3873 </span> e8/call <a href='109stream-equal.subx.html#L194'>check-stream-equal</a>/disp32 +<span id="L3874" class="LineNr">3874 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3875" class="LineNr">3875 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3876" class="LineNr">3876 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3877" class="LineNr">3877 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3878" class="LineNr">3878 </span> 5d/pop-to-ebp +<span id="L3879" class="LineNr">3879 </span> c3/return +<span id="L3880" class="LineNr">3880 </span> +<span id="L3881" class="LineNr">3881 </span><span class="subxFunction">disp32-mode?</span>: <span class="subxComment"># in: (addr slice) -> reg/eax: boolean</span> +<span id="L3882" class="LineNr">3882 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3883" class="LineNr">3883 </span> 55/push-ebp +<span id="L3884" class="LineNr">3884 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3885" class="LineNr">3885 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3886" class="LineNr">3886 </span> 56/push-esi +<span id="L3887" class="LineNr">3887 </span> 57/push-edi +<span id="L3888" class="LineNr">3888 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> +<span id="L3889" class="LineNr">3889 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L3890" class="LineNr">3890 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L3891" class="LineNr">3891 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L3892" class="LineNr">3892 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L3893" class="LineNr">3893 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L3894" class="LineNr">3894 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L3895" class="LineNr">3895 </span> <span class="subxComment"># if (*local-slice->start == '(') return false</span> +<span id="L3896" class="LineNr">3896 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L3897" class="LineNr">3897 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L3898" class="LineNr">3898 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L3899" class="LineNr">3899 </span> 3d/compare-eax-and 0x28/imm32/open-paren +<span id="L3900" class="LineNr">3900 </span> 74/jump-if-= $disp32-mode?:false/disp8 +<span id="L3901" class="LineNr">3901 </span><span class="Constant">$disp32-mode?:check-for-register</span>: +<span id="L3902" class="LineNr">3902 </span> <span class="subxComment"># local-slice = next-token-from-slice(local-slice->start, local-slice->end, "/")</span> +<span id="L3903" class="LineNr">3903 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3904" class="LineNr">3904 </span> 56/push-esi +<span id="L3905" class="LineNr">3905 </span> 68/push 0x2f/imm32/slash +<span id="L3906" class="LineNr">3906 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L3907" class="LineNr">3907 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L3908" class="LineNr">3908 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3909" class="LineNr">3909 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L3910" class="LineNr">3910 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3911" class="LineNr">3911 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L3912" class="LineNr">3912 </span> <span class="subxComment"># reg-num/eax = maybe-get-slice(Registers, local-slice, row-size=12)</span> +<span id="L3913" class="LineNr">3913 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3914" class="LineNr">3914 </span> 68/push 0xc/imm32/row-size +<span id="L3915" class="LineNr">3915 </span> 56/push-esi +<span id="L3916" class="LineNr">3916 </span> 68/push <span class="SpecialChar"><a href='201register-names.subx.html#L2'>Registers</a></span>/imm32 +<span id="L3917" class="LineNr">3917 </span> <span class="subxS2Comment"># . . cal</span> +<span id="L3918" class="LineNr">3918 </span> e8/call <a href='131table.subx.html#L1965'>maybe-get-slice</a>/disp32 +<span id="L3919" class="LineNr">3919 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3920" class="LineNr">3920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3921" class="LineNr">3921 </span> <span class="subxComment"># if (eax != 0) return false</span> +<span id="L3922" class="LineNr">3922 </span> 3d/compare-eax-and 0/imm32 +<span id="L3923" class="LineNr">3923 </span> 75/jump-if-!= $disp32-mode?:false/disp8 +<span id="L3924" class="LineNr">3924 </span> <span class="subxComment"># return true</span> +<span id="L3925" class="LineNr">3925 </span> b8/copy-to-eax 1/imm32/true +<span id="L3926" class="LineNr">3926 </span> eb/jump $disp32-mode?:end/disp8 +<span id="L3927" class="LineNr">3927 </span><span class="Constant">$disp32-mode?:false</span>: +<span id="L3928" class="LineNr">3928 </span> b8/copy-to-eax 0/imm32/false +<span id="L3929" class="LineNr">3929 </span><span class="Constant">$disp32-mode?:end</span>: +<span id="L3930" class="LineNr">3930 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L3931" class="LineNr">3931 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3932" class="LineNr">3932 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3933" class="LineNr">3933 </span> 5f/pop-to-edi +<span id="L3934" class="LineNr">3934 </span> 5e/pop-to-esi +<span id="L3935" class="LineNr">3935 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3936" class="LineNr">3936 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3937" class="LineNr">3937 </span> 5d/pop-to-ebp +<span id="L3938" class="LineNr">3938 </span> c3/return +<span id="L3939" class="LineNr">3939 </span> +<span id="L3940" class="LineNr">3940 </span><span class="subxFunction">emit-indirect-disp32</span>: <span class="subxComment"># out: (addr buffered-file), word-slice: (addr slice)</span> +<span id="L3941" class="LineNr">3941 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3942" class="LineNr">3942 </span> 55/push-ebp +<span id="L3943" class="LineNr">3943 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3944" class="LineNr">3944 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3945" class="LineNr">3945 </span> 56/push-esi +<span id="L3946" class="LineNr">3946 </span> <span class="subxComment"># var local-slice/esi: slice = {in->start, in->end}</span> +<span id="L3947" class="LineNr">3947 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L3948" class="LineNr">3948 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L3949" class="LineNr">3949 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L3950" class="LineNr">3950 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L3951" class="LineNr">3951 </span> <span class="subxComment"># ++local-slice->start to skip '*'</span> +<span id="L3952" class="LineNr">3952 </span> ff 0/subop/increment 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># increment *esi</span> +<span id="L3953" class="LineNr">3953 </span> <span class="subxComment"># write-buffered(out, "0/mod/indirect 5/rm32/.disp32 ")</span> +<span id="L3954" class="LineNr">3954 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3955" class="LineNr">3955 </span> 68/push <span class="Constant">"0/mod/indirect 5/rm32/.disp32 "</span>/imm32 +<span id="L3956" class="LineNr">3956 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3957" class="LineNr">3957 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3958" class="LineNr">3958 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3959" class="LineNr">3959 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3960" class="LineNr">3960 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3961" class="LineNr">3961 </span> <span class="subxComment"># write-slice-buffered(out, local-slice)</span> +<span id="L3962" class="LineNr">3962 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3963" class="LineNr">3963 </span> 56/push-esi +<span id="L3964" class="LineNr">3964 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3965" class="LineNr">3965 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3966" class="LineNr">3966 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L3967" class="LineNr">3967 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3968" class="LineNr">3968 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3969" class="LineNr">3969 </span> <span class="subxComment"># write-buffered(out, "/disp32")</span> +<span id="L3970" class="LineNr">3970 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3971" class="LineNr">3971 </span> 68/push <span class="Constant">"/disp32"</span>/imm32 +<span id="L3972" class="LineNr">3972 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3973" class="LineNr">3973 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3974" class="LineNr">3974 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3975" class="LineNr">3975 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3976" class="LineNr">3976 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3977" class="LineNr">3977 </span><span class="Constant">$emit-indirect-disp32:end</span>: +<span id="L3978" class="LineNr">3978 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L3979" class="LineNr">3979 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3980" class="LineNr">3980 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3981" class="LineNr">3981 </span> 5e/pop-to-esi +<span id="L3982" class="LineNr">3982 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3983" class="LineNr">3983 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3984" class="LineNr">3984 </span> 5d/pop-to-ebp +<span id="L3985" class="LineNr">3985 </span> c3/return +<span id="L3986" class="LineNr">3986 </span> +<span id="L3987" class="LineNr">3987 </span><span class="subxComment"># assumes 'in' starts with optional '+' or '-', optional whitespace, and an unsigned integer</span> +<span id="L3988" class="LineNr">3988 </span><span class="subxComment"># returns the value of the integer</span> +<span id="L3989" class="LineNr">3989 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> +<span id="L3990" class="LineNr">3990 </span><span class="subxFunction">next-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> +<span id="L3991" class="LineNr">3991 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3992" class="LineNr">3992 </span> 55/push-ebp +<span id="L3993" class="LineNr">3993 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3994" class="LineNr">3994 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3995" class="LineNr">3995 </span> 51/push-ecx +<span id="L3996" class="LineNr">3996 </span> 52/push-edx +<span id="L3997" class="LineNr">3997 </span> 53/push-ebx +<span id="L3998" class="LineNr">3998 </span> 56/push-esi +<span id="L3999" class="LineNr">3999 </span> 57/push-edi +<span id="L4000" class="LineNr">4000 </span> <span class="subxComment"># result/edi = 0</span> +<span id="L4001" class="LineNr">4001 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> +<span id="L4002" class="LineNr">4002 </span> <span class="subxComment"># esi = in</span> +<span id="L4003" class="LineNr">4003 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L4004" class="LineNr">4004 </span> <span class="subxComment"># edx = in->end</span> +<span id="L4005" class="LineNr">4005 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> +<span id="L4006" class="LineNr">4006 </span> <span class="subxComment"># curr/ecx = in->start</span> +<span id="L4007" class="LineNr">4007 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L4008" class="LineNr">4008 </span> <span class="subxComment"># negate?/ebx = false</span> +<span id="L4009" class="LineNr">4009 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L4010" class="LineNr">4010 </span> <span class="subxComment"># eax = *curr</span> +<span id="L4011" class="LineNr">4011 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4012" class="LineNr">4012 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4013" class="LineNr">4013 </span><span class="Constant">$next-hex-int:positive</span>: +<span id="L4014" class="LineNr">4014 </span> <span class="subxComment"># if (*curr == '+') ++curr</span> +<span id="L4015" class="LineNr">4015 </span> 3d/compare-eax-and 0x2b/imm32/+ +<span id="L4016" class="LineNr">4016 </span> 75/jump-if-!= $next-hex-int:negative/disp8 +<span id="L4017" class="LineNr">4017 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4018" class="LineNr">4018 </span> 41/increment-ecx +<span id="L4019" class="LineNr">4019 </span> eb/jump $next-hex-int:skip-whitespace/disp8 +<span id="L4020" class="LineNr">4020 </span><span class="Constant">$next-hex-int:negative</span>: +<span id="L4021" class="LineNr">4021 </span> <span class="subxComment"># else if (*curr == '-') ++curr, negate = true</span> +<span id="L4022" class="LineNr">4022 </span> 3d/compare-eax-and 0x2d/imm32/- +<span id="L4023" class="LineNr">4023 </span> 75/jump-if-!= $next-hex-int:skip-whitespace/disp8 +<span id="L4024" class="LineNr">4024 </span><span class="Constant">$next-hex-int:need-to-negate</span>: +<span id="L4025" class="LineNr">4025 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4026" class="LineNr">4026 </span> 41/increment-ecx +<span id="L4027" class="LineNr">4027 </span> <span class="subxS1Comment"># . negate = true</span> +<span id="L4028" class="LineNr">4028 </span> bb/copy-to-ebx 1/imm32/true +<span id="L4029" class="LineNr">4029 </span> <span class="subxComment"># fall through</span> +<span id="L4030" class="LineNr">4030 </span><span class="Constant">$next-hex-int:skip-whitespace</span>: +<span id="L4031" class="LineNr">4031 </span> <span class="subxComment"># spill eax</span> +<span id="L4032" class="LineNr">4032 </span> 50/push-eax +<span id="L4033" class="LineNr">4033 </span> <span class="subxComment"># eax = skip-chars-matching-whitespace-in-slice(word-slice->start, word-slice->end)</span> +<span id="L4034" class="LineNr">4034 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4035" class="LineNr">4035 </span> 52/push-edx +<span id="L4036" class="LineNr">4036 </span> 51/push-ecx +<span id="L4037" class="LineNr">4037 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4038" class="LineNr">4038 </span> e8/call <a href='124next-token.subx.html#L900'>skip-chars-matching-whitespace-in-slice</a>/disp32 +<span id="L4039" class="LineNr">4039 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4040" class="LineNr">4040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4041" class="LineNr">4041 </span> <span class="subxComment"># ecx = eax</span> +<span id="L4042" class="LineNr">4042 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to ecx</span> +<span id="L4043" class="LineNr">4043 </span> <span class="subxComment"># restore eax</span> +<span id="L4044" class="LineNr">4044 </span> 58/pop-to-eax +<span id="L4045" class="LineNr">4045 </span><span class="Constant">$next-hex-int:initial-0</span>: +<span id="L4046" class="LineNr">4046 </span> <span class="subxComment"># skip past leading '0x'</span> +<span id="L4047" class="LineNr">4047 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> +<span id="L4048" class="LineNr">4048 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4049" class="LineNr">4049 </span> 3d/compare-eax-and 0x30/imm32/0 +<span id="L4050" class="LineNr">4050 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4051" class="LineNr">4051 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4052" class="LineNr">4052 </span> 41/increment-ecx +<span id="L4053" class="LineNr">4053 </span><span class="Constant">$next-hex-int:initial-0x</span>: +<span id="L4054" class="LineNr">4054 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> +<span id="L4055" class="LineNr">4055 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4056" class="LineNr">4056 </span> 73/jump-if-addr>= $next-hex-int:end/disp8 +<span id="L4057" class="LineNr">4057 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> +<span id="L4058" class="LineNr">4058 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4059" class="LineNr">4059 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4060" class="LineNr">4060 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L4061" class="LineNr">4061 </span> 75/jump-if-!= $next-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4062" class="LineNr">4062 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4063" class="LineNr">4063 </span> 41/increment-ecx +<span id="L4064" class="LineNr">4064 </span><span class="Constant">$next-hex-int:loop</span>: +<span id="L4065" class="LineNr">4065 </span> <span class="subxComment"># if (curr >= in->end) break</span> +<span id="L4066" class="LineNr">4066 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4067" class="LineNr">4067 </span> 73/jump-if-addr>= $next-hex-int:<span class="Constant">break</span>/disp8 +<span id="L4068" class="LineNr">4068 </span> <span class="subxComment"># if (!hex-digit?(*curr)) break</span> +<span id="L4069" class="LineNr">4069 </span> <span class="subxS1Comment"># . eax = *curr</span> +<span id="L4070" class="LineNr">4070 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4071" class="LineNr">4071 </span> <span class="subxS1Comment"># . eax = hex-digit?(*curr)</span> +<span id="L4072" class="LineNr">4072 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4073" class="LineNr">4073 </span> 50/push-eax +<span id="L4074" class="LineNr">4074 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4075" class="LineNr">4075 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 +<span id="L4076" class="LineNr">4076 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4077" class="LineNr">4077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4078" class="LineNr">4078 </span> <span class="subxS1Comment"># . if (eax == false) break</span> +<span id="L4079" class="LineNr">4079 </span> 3d/compare-eax-and 0/imm32/false +<span id="L4080" class="LineNr">4080 </span> 74/jump-if-= $next-hex-int:<span class="Constant">break</span>/disp8 +<span id="L4081" class="LineNr">4081 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> +<span id="L4082" class="LineNr">4082 </span> <span class="subxS2Comment"># . . copy arg to eax</span> +<span id="L4083" class="LineNr">4083 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4084" class="LineNr">4084 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4085" class="LineNr">4085 </span> e8/call <a href='118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L4086" class="LineNr">4086 </span> <span class="subxComment"># result = result * 16 + eax</span> +<span id="L4087" class="LineNr">4087 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> +<span id="L4088" class="LineNr">4088 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> +<span id="L4089" class="LineNr">4089 </span> <span class="subxComment"># ++curr</span> +<span id="L4090" class="LineNr">4090 </span> 41/increment-ecx +<span id="L4091" class="LineNr">4091 </span> <span class="subxComment"># loop</span> +<span id="L4092" class="LineNr">4092 </span> eb/jump $next-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4093" class="LineNr">4093 </span><span class="Constant">$next-hex-int:break</span>: +<span id="L4094" class="LineNr">4094 </span> <span class="subxComment"># if (negate?) result = -result</span> +<span id="L4095" class="LineNr">4095 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare ebx</span> +<span id="L4096" class="LineNr">4096 </span> 74/jump-if-= $next-hex-int:end/disp8 +<span id="L4097" class="LineNr">4097 </span><span class="Constant">$next-hex-int:negate</span>: +<span id="L4098" class="LineNr">4098 </span> f7 3/subop/negate 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># negate edi</span> +<span id="L4099" class="LineNr">4099 </span><span class="Constant">$next-hex-int:end</span>: +<span id="L4100" class="LineNr">4100 </span> <span class="subxComment"># word-slice->start = curr</span> +<span id="L4101" class="LineNr">4101 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> +<span id="L4102" class="LineNr">4102 </span> <span class="subxComment"># return edi</span> +<span id="L4103" class="LineNr">4103 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> +<span id="L4104" class="LineNr">4104 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L4105" class="LineNr">4105 </span> 5f/pop-to-edi +<span id="L4106" class="LineNr">4106 </span> 5e/pop-to-esi +<span id="L4107" class="LineNr">4107 </span> 5b/pop-to-ebx +<span id="L4108" class="LineNr">4108 </span> 5a/pop-to-edx +<span id="L4109" class="LineNr">4109 </span> 59/pop-to-ecx +<span id="L4110" class="LineNr">4110 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4111" class="LineNr">4111 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4112" class="LineNr">4112 </span> 5d/pop-to-ebp +<span id="L4113" class="LineNr">4113 </span> c3/return +<span id="L4114" class="LineNr">4114 </span> +<span id="L4115" class="LineNr">4115 </span><span class="Constant">$next-hex-int:abort</span>: +<span id="L4116" class="LineNr">4116 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L4117" class="LineNr">4117 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4118" class="LineNr">4118 </span> 68/push <span class="Constant">"next-hex-int: invalid hex char: "</span>/imm32 +<span id="L4119" class="LineNr">4119 </span> 68/push 2/imm32/stderr +<span id="L4120" class="LineNr">4120 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4121" class="LineNr">4121 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L4122" class="LineNr">4122 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4123" class="LineNr">4123 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4124" class="LineNr">4124 </span> <span class="subxS1Comment"># . clear-stream($Stderr->buffer)</span> +<span id="L4125" class="LineNr">4125 </span> <span class="subxS2Comment"># . . save eax</span> +<span id="L4126" class="LineNr">4126 </span> 50/push-eax +<span id="L4127" class="LineNr">4127 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4128" class="LineNr">4128 </span> 68/push $Stderr->buffer/imm32 +<span id="L4129" class="LineNr">4129 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4130" class="LineNr">4130 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4131" class="LineNr">4131 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4132" class="LineNr">4132 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4133" class="LineNr">4133 </span> <span class="subxS2Comment"># . . restore eax</span> +<span id="L4134" class="LineNr">4134 </span> 58/pop-to-eax +<span id="L4135" class="LineNr">4135 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(Stderr, eax)</span> +<span id="L4136" class="LineNr">4136 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4137" class="LineNr">4137 </span> 50/push-eax +<span id="L4138" class="LineNr">4138 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L4139" class="LineNr">4139 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4140" class="LineNr">4140 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L4141" class="LineNr">4141 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4142" class="LineNr">4142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4143" class="LineNr">4143 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4145" class="LineNr">4145 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4147" class="LineNr">4147 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L4148" class="LineNr">4148 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4149" class="LineNr">4149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4150" class="LineNr">4150 </span> <span class="subxS1Comment"># . _write(2/stderr, "\n")</span> +<span id="L4151" class="LineNr">4151 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4152" class="LineNr">4152 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L4153" class="LineNr">4153 </span> 68/push 2/imm32/stderr +<span id="L4154" class="LineNr">4154 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4155" class="LineNr">4155 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L4156" class="LineNr">4156 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4157" class="LineNr">4157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4158" class="LineNr">4158 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L4159" class="LineNr">4159 </span> bb/copy-to-ebx 1/imm32 +<span id="L4160" class="LineNr">4160 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L4161" class="LineNr">4161 </span> <span class="subxComment"># never gets here</span> +<span id="L4162" class="LineNr">4162 </span> +<span id="L4163" class="LineNr">4163 </span><span class="subxTest">test-next-hex-int-single-digit</span>: +<span id="L4164" class="LineNr">4164 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4165" class="LineNr">4165 </span> 55/push-ebp +<span id="L4166" class="LineNr">4166 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4167" class="LineNr">4167 </span> <span class="subxComment"># (eax..ecx) = "+a)"</span> +<span id="L4168" class="LineNr">4168 </span> b8/copy-to-eax <span class="Constant">"+a)"</span>/imm32 +<span id="L4169" class="LineNr">4169 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4170" class="LineNr">4170 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4171" class="LineNr">4171 </span> 05/add-to-eax 4/imm32 +<span id="L4172" class="LineNr">4172 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4173" class="LineNr">4173 </span> 51/push-ecx +<span id="L4174" class="LineNr">4174 </span> 50/push-eax +<span id="L4175" class="LineNr">4175 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4176" class="LineNr">4176 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4177" class="LineNr">4177 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4178" class="LineNr">4178 </span> 51/push-ecx +<span id="L4179" class="LineNr">4179 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4180" class="LineNr">4180 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L4181" class="LineNr">4181 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4182" class="LineNr">4182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4183" class="LineNr">4183 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> +<span id="L4184" class="LineNr">4184 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4185" class="LineNr">4185 </span> 68/push <span class="Constant">"F - test-next-hex-int-single-digit"</span>/imm32 +<span id="L4186" class="LineNr">4186 </span> 68/push 0xa/imm32 +<span id="L4187" class="LineNr">4187 </span> 50/push-eax +<span id="L4188" class="LineNr">4188 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4189" class="LineNr">4189 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4190" class="LineNr">4190 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4191" class="LineNr">4191 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4192" class="LineNr">4192 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4193" class="LineNr">4193 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4194" class="LineNr">4194 </span> 5d/pop-to-ebp +<span id="L4195" class="LineNr">4195 </span> c3/return +<span id="L4196" class="LineNr">4196 </span> +<span id="L4197" class="LineNr">4197 </span><span class="subxTest">test-next-hex-int-multi-digit</span>: +<span id="L4198" class="LineNr">4198 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4199" class="LineNr">4199 </span> 55/push-ebp +<span id="L4200" class="LineNr">4200 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4201" class="LineNr">4201 </span> <span class="subxComment"># (eax..ecx) = "+ 34a)"</span> +<span id="L4202" class="LineNr">4202 </span> b8/copy-to-eax <span class="Constant">"+ 34a)"</span>/imm32 +<span id="L4203" class="LineNr">4203 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4204" class="LineNr">4204 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4205" class="LineNr">4205 </span> 05/add-to-eax 4/imm32 +<span id="L4206" class="LineNr">4206 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4207" class="LineNr">4207 </span> 51/push-ecx +<span id="L4208" class="LineNr">4208 </span> 50/push-eax +<span id="L4209" class="LineNr">4209 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4210" class="LineNr">4210 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4211" class="LineNr">4211 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4212" class="LineNr">4212 </span> 51/push-ecx +<span id="L4213" class="LineNr">4213 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4214" class="LineNr">4214 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L4215" class="LineNr">4215 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4216" class="LineNr">4216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4217" class="LineNr">4217 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> +<span id="L4218" class="LineNr">4218 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4219" class="LineNr">4219 </span> 68/push <span class="Constant">"F - test-next-hex-int-multi-digit"</span>/imm32 +<span id="L4220" class="LineNr">4220 </span> 68/push 0x34a/imm32 +<span id="L4221" class="LineNr">4221 </span> 50/push-eax +<span id="L4222" class="LineNr">4222 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4223" class="LineNr">4223 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4224" class="LineNr">4224 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4225" class="LineNr">4225 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4226" class="LineNr">4226 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4227" class="LineNr">4227 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4228" class="LineNr">4228 </span> 5d/pop-to-ebp +<span id="L4229" class="LineNr">4229 </span> c3/return +<span id="L4230" class="LineNr">4230 </span> +<span id="L4231" class="LineNr">4231 </span><span class="subxTest">test-next-hex-int-0x-prefix</span>: +<span id="L4232" class="LineNr">4232 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4233" class="LineNr">4233 </span> 55/push-ebp +<span id="L4234" class="LineNr">4234 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4235" class="LineNr">4235 </span> <span class="subxComment"># (eax..ecx) = "+0x34)"</span> +<span id="L4236" class="LineNr">4236 </span> b8/copy-to-eax <span class="Constant">"+0x34)"</span>/imm32 +<span id="L4237" class="LineNr">4237 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4238" class="LineNr">4238 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4239" class="LineNr">4239 </span> 05/add-to-eax 4/imm32 +<span id="L4240" class="LineNr">4240 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4241" class="LineNr">4241 </span> 51/push-ecx +<span id="L4242" class="LineNr">4242 </span> 50/push-eax +<span id="L4243" class="LineNr">4243 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4244" class="LineNr">4244 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4245" class="LineNr">4245 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4246" class="LineNr">4246 </span> 51/push-ecx +<span id="L4247" class="LineNr">4247 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4248" class="LineNr">4248 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L4249" class="LineNr">4249 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4250" class="LineNr">4250 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4251" class="LineNr">4251 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> +<span id="L4252" class="LineNr">4252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4253" class="LineNr">4253 </span> 68/push <span class="Constant">"F - test-next-hex-int-0x-prefix"</span>/imm32 +<span id="L4254" class="LineNr">4254 </span> 68/push 0x34/imm32 +<span id="L4255" class="LineNr">4255 </span> 50/push-eax +<span id="L4256" class="LineNr">4256 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4257" class="LineNr">4257 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4258" class="LineNr">4258 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4259" class="LineNr">4259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4260" class="LineNr">4260 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4261" class="LineNr">4261 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4262" class="LineNr">4262 </span> 5d/pop-to-ebp +<span id="L4263" class="LineNr">4263 </span> c3/return +<span id="L4264" class="LineNr">4264 </span> +<span id="L4265" class="LineNr">4265 </span><span class="subxTest">test-next-hex-int-zero</span>: +<span id="L4266" class="LineNr">4266 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4267" class="LineNr">4267 </span> 55/push-ebp +<span id="L4268" class="LineNr">4268 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4269" class="LineNr">4269 </span> <span class="subxComment"># (eax..ecx) = "+0)"</span> +<span id="L4270" class="LineNr">4270 </span> b8/copy-to-eax <span class="Constant">"+0)"</span>/imm32 +<span id="L4271" class="LineNr">4271 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4272" class="LineNr">4272 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4273" class="LineNr">4273 </span> 05/add-to-eax 4/imm32 +<span id="L4274" class="LineNr">4274 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4275" class="LineNr">4275 </span> 51/push-ecx +<span id="L4276" class="LineNr">4276 </span> 50/push-eax +<span id="L4277" class="LineNr">4277 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4278" class="LineNr">4278 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4279" class="LineNr">4279 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4280" class="LineNr">4280 </span> 51/push-ecx +<span id="L4281" class="LineNr">4281 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4282" class="LineNr">4282 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L4283" class="LineNr">4283 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4284" class="LineNr">4284 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4285" class="LineNr">4285 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4286" class="LineNr">4286 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4287" class="LineNr">4287 </span> 68/push <span class="Constant">"F - test-next-hex-int-zero"</span>/imm32 +<span id="L4288" class="LineNr">4288 </span> 68/push 0/imm32 +<span id="L4289" class="LineNr">4289 </span> 50/push-eax +<span id="L4290" class="LineNr">4290 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4291" class="LineNr">4291 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4292" class="LineNr">4292 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4293" class="LineNr">4293 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4294" class="LineNr">4294 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4295" class="LineNr">4295 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4296" class="LineNr">4296 </span> 5d/pop-to-ebp +<span id="L4297" class="LineNr">4297 </span> c3/return +<span id="L4298" class="LineNr">4298 </span> +<span id="L4299" class="LineNr">4299 </span><span class="subxTest">test-next-hex-int-0-prefix</span>: +<span id="L4300" class="LineNr">4300 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4301" class="LineNr">4301 </span> 55/push-ebp +<span id="L4302" class="LineNr">4302 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4303" class="LineNr">4303 </span> <span class="subxComment"># (eax..ecx) = "+ 03)"</span> +<span id="L4304" class="LineNr">4304 </span> b8/copy-to-eax <span class="Constant">"+ 03)"</span>/imm32 +<span id="L4305" class="LineNr">4305 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4306" class="LineNr">4306 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4307" class="LineNr">4307 </span> 05/add-to-eax 4/imm32 +<span id="L4308" class="LineNr">4308 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4309" class="LineNr">4309 </span> 51/push-ecx +<span id="L4310" class="LineNr">4310 </span> 50/push-eax +<span id="L4311" class="LineNr">4311 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4312" class="LineNr">4312 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4313" class="LineNr">4313 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4314" class="LineNr">4314 </span> 51/push-ecx +<span id="L4315" class="LineNr">4315 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4316" class="LineNr">4316 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L4317" class="LineNr">4317 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4318" class="LineNr">4318 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4319" class="LineNr">4319 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L4320" class="LineNr">4320 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4321" class="LineNr">4321 </span> 68/push <span class="Constant">"F - test-next-hex-int-0-prefix"</span>/imm32 +<span id="L4322" class="LineNr">4322 </span> 68/push 3/imm32 +<span id="L4323" class="LineNr">4323 </span> 50/push-eax +<span id="L4324" class="LineNr">4324 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4325" class="LineNr">4325 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4326" class="LineNr">4326 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4327" class="LineNr">4327 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4328" class="LineNr">4328 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4329" class="LineNr">4329 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4330" class="LineNr">4330 </span> 5d/pop-to-ebp +<span id="L4331" class="LineNr">4331 </span> c3/return +<span id="L4332" class="LineNr">4332 </span> +<span id="L4333" class="LineNr">4333 </span><span class="subxTest">test-next-hex-int-negative</span>: +<span id="L4334" class="LineNr">4334 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4335" class="LineNr">4335 </span> 55/push-ebp +<span id="L4336" class="LineNr">4336 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4337" class="LineNr">4337 </span> <span class="subxComment"># (eax..ecx) = "-03)"</span> +<span id="L4338" class="LineNr">4338 </span> b8/copy-to-eax <span class="Constant">"-03)"</span>/imm32 +<span id="L4339" class="LineNr">4339 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4340" class="LineNr">4340 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4341" class="LineNr">4341 </span> 05/add-to-eax 4/imm32 +<span id="L4342" class="LineNr">4342 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4343" class="LineNr">4343 </span> 51/push-ecx +<span id="L4344" class="LineNr">4344 </span> 50/push-eax +<span id="L4345" class="LineNr">4345 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4346" class="LineNr">4346 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4347" class="LineNr">4347 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4348" class="LineNr">4348 </span> 51/push-ecx +<span id="L4349" class="LineNr">4349 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4350" class="LineNr">4350 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L4351" class="LineNr">4351 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4352" class="LineNr">4352 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4353" class="LineNr">4353 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> +<span id="L4354" class="LineNr">4354 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4355" class="LineNr">4355 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative"</span>/imm32 +<span id="L4356" class="LineNr">4356 </span> 68/push -3/imm32 +<span id="L4357" class="LineNr">4357 </span> 50/push-eax +<span id="L4358" class="LineNr">4358 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4359" class="LineNr">4359 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4360" class="LineNr">4360 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4361" class="LineNr">4361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4362" class="LineNr">4362 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4363" class="LineNr">4363 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4364" class="LineNr">4364 </span> 5d/pop-to-ebp +<span id="L4365" class="LineNr">4365 </span> c3/return +<span id="L4366" class="LineNr">4366 </span> +<span id="L4367" class="LineNr">4367 </span><span class="subxTest">test-next-hex-int-negative-with-space</span>: +<span id="L4368" class="LineNr">4368 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4369" class="LineNr">4369 </span> 55/push-ebp +<span id="L4370" class="LineNr">4370 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4371" class="LineNr">4371 </span> <span class="subxComment"># (eax..ecx) = "- 03)"</span> +<span id="L4372" class="LineNr">4372 </span> b8/copy-to-eax <span class="Constant">"- 03)"</span>/imm32 +<span id="L4373" class="LineNr">4373 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4374" class="LineNr">4374 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4375" class="LineNr">4375 </span> 05/add-to-eax 4/imm32 +<span id="L4376" class="LineNr">4376 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4377" class="LineNr">4377 </span> 51/push-ecx +<span id="L4378" class="LineNr">4378 </span> 50/push-eax +<span id="L4379" class="LineNr">4379 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4380" class="LineNr">4380 </span> <span class="subxComment"># eax = next-hex-int(slice)</span> +<span id="L4381" class="LineNr">4381 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4382" class="LineNr">4382 </span> 51/push-ecx +<span id="L4383" class="LineNr">4383 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4384" class="LineNr">4384 </span> e8/call <a href='sigils.subx.html#L3990'>next-hex-int</a>/disp32 +<span id="L4385" class="LineNr">4385 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4386" class="LineNr">4386 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4387" class="LineNr">4387 </span> <span class="subxComment"># check-ints-equal(eax, -3, msg)</span> +<span id="L4388" class="LineNr">4388 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4389" class="LineNr">4389 </span> 68/push <span class="Constant">"F - test-next-hex-int-negative-with-space"</span>/imm32 +<span id="L4390" class="LineNr">4390 </span> 68/push -3/imm32 +<span id="L4391" class="LineNr">4391 </span> 50/push-eax +<span id="L4392" class="LineNr">4392 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4393" class="LineNr">4393 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4394" class="LineNr">4394 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4395" class="LineNr">4395 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4396" class="LineNr">4396 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4397" class="LineNr">4397 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4398" class="LineNr">4398 </span> 5d/pop-to-ebp +<span id="L4399" class="LineNr">4399 </span> c3/return +<span id="L4400" class="LineNr">4400 </span> +<span id="L4401" class="LineNr">4401 </span><span class="subxComment"># assumes 'in' starts a positive unsigned integer</span> +<span id="L4402" class="LineNr">4402 </span><span class="subxComment"># returns the value of the integer</span> +<span id="L4403" class="LineNr">4403 </span><span class="subxComment"># side-effect: modifies 'in' to skip past the integer</span> +<span id="L4404" class="LineNr">4404 </span><span class="subxFunction">next-positive-hex-int</span>: <span class="subxComment"># in: (addr slice) -> result/eax</span> +<span id="L4405" class="LineNr">4405 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4406" class="LineNr">4406 </span> 55/push-ebp +<span id="L4407" class="LineNr">4407 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4408" class="LineNr">4408 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L4409" class="LineNr">4409 </span> 51/push-ecx +<span id="L4410" class="LineNr">4410 </span> 52/push-edx +<span id="L4411" class="LineNr">4411 </span> 53/push-ebx +<span id="L4412" class="LineNr">4412 </span> 56/push-esi +<span id="L4413" class="LineNr">4413 </span> 57/push-edi +<span id="L4414" class="LineNr">4414 </span> <span class="subxComment"># result/edi = 0</span> +<span id="L4415" class="LineNr">4415 </span> 31/xor 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edi</span> +<span id="L4416" class="LineNr">4416 </span> <span class="subxComment"># esi = in</span> +<span id="L4417" class="LineNr">4417 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L4418" class="LineNr">4418 </span> <span class="subxComment"># edx = in->end</span> +<span id="L4419" class="LineNr">4419 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to edx</span> +<span id="L4420" class="LineNr">4420 </span> <span class="subxComment"># curr/ecx = in->start</span> +<span id="L4421" class="LineNr">4421 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L4422" class="LineNr">4422 </span> <span class="subxComment"># negate?/ebx = false</span> +<span id="L4423" class="LineNr">4423 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L4424" class="LineNr">4424 </span> <span class="subxComment"># eax = *curr</span> +<span id="L4425" class="LineNr">4425 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4426" class="LineNr">4426 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4427" class="LineNr">4427 </span><span class="Constant">$next-positive-hex-int:initial-0</span>: +<span id="L4428" class="LineNr">4428 </span> <span class="subxComment"># skip past leading '0x'</span> +<span id="L4429" class="LineNr">4429 </span> <span class="subxS1Comment"># . if (*curr != '0') jump to loop</span> +<span id="L4430" class="LineNr">4430 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4431" class="LineNr">4431 </span> 3d/compare-eax-and 0x30/imm32/0 +<span id="L4432" class="LineNr">4432 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4433" class="LineNr">4433 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4434" class="LineNr">4434 </span> 41/increment-ecx +<span id="L4435" class="LineNr">4435 </span><span class="Constant">$next-positive-hex-int:initial-0x</span>: +<span id="L4436" class="LineNr">4436 </span> <span class="subxS1Comment"># . if (curr >= in->end) return result</span> +<span id="L4437" class="LineNr">4437 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4438" class="LineNr">4438 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 +<span id="L4439" class="LineNr">4439 </span> <span class="subxS1Comment"># . if (*curr != 'x') jump to loop # the previous '0' is still valid so doesn't need to be checked again</span> +<span id="L4440" class="LineNr">4440 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4441" class="LineNr">4441 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4442" class="LineNr">4442 </span> 3d/compare-eax-and 0x78/imm32/x +<span id="L4443" class="LineNr">4443 </span> 75/jump-if-!= $next-positive-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4444" class="LineNr">4444 </span> <span class="subxS1Comment"># . ++curr</span> +<span id="L4445" class="LineNr">4445 </span> 41/increment-ecx +<span id="L4446" class="LineNr">4446 </span><span class="Constant">$next-positive-hex-int:loop</span>: +<span id="L4447" class="LineNr">4447 </span> <span class="subxComment"># if (curr >= in->end) break</span> +<span id="L4448" class="LineNr">4448 </span> 39/compare 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ecx with edx</span> +<span id="L4449" class="LineNr">4449 </span> 73/jump-if-addr>= $next-positive-hex-int:end/disp8 +<span id="L4450" class="LineNr">4450 </span> <span class="subxComment"># if (!hex-digit?(*curr)) break</span> +<span id="L4451" class="LineNr">4451 </span> <span class="subxS1Comment"># . eax = *curr</span> +<span id="L4452" class="LineNr">4452 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4453" class="LineNr">4453 </span> <span class="subxS1Comment"># . eax = hex-digit?(*curr)</span> +<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4455" class="LineNr">4455 </span> 50/push-eax +<span id="L4456" class="LineNr">4456 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4457" class="LineNr">4457 </span> e8/call <a href='118parse-hex-int.subx.html#L701'>hex-digit?</a>/disp32 +<span id="L4458" class="LineNr">4458 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4459" class="LineNr">4459 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4460" class="LineNr">4460 </span> <span class="subxS1Comment"># . if (eax == false) break</span> +<span id="L4461" class="LineNr">4461 </span> 3d/compare-eax-and 0/imm32/false +<span id="L4462" class="LineNr">4462 </span> 74/jump-if-= $next-positive-hex-int:end/disp8 +<span id="L4463" class="LineNr">4463 </span> <span class="subxComment"># eax = from-hex-char(*curr)</span> +<span id="L4464" class="LineNr">4464 </span> <span class="subxS2Comment"># . . copy arg to eax</span> +<span id="L4465" class="LineNr">4465 </span> 8a/copy-byte 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to AL</span> +<span id="L4466" class="LineNr">4466 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4467" class="LineNr">4467 </span> e8/call <a href='118parse-hex-int.subx.html#L864'>from-hex-char</a>/disp32 +<span id="L4468" class="LineNr">4468 </span> <span class="subxComment"># result = result * 16 + eax</span> +<span id="L4469" class="LineNr">4469 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm8 <span class="subxComment"># shift edi left by 4 bits</span> +<span id="L4470" class="LineNr">4470 </span> 01/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to edi</span> +<span id="L4471" class="LineNr">4471 </span> <span class="subxComment"># ++curr</span> +<span id="L4472" class="LineNr">4472 </span> 41/increment-ecx +<span id="L4473" class="LineNr">4473 </span> <span class="subxComment"># loop</span> +<span id="L4474" class="LineNr">4474 </span> eb/jump $next-positive-hex-int:<span class="Constant">loop</span>/disp8 +<span id="L4475" class="LineNr">4475 </span><span class="Constant">$next-positive-hex-int:end</span>: +<span id="L4476" class="LineNr">4476 </span> <span class="subxComment"># word-slice->start = curr</span> +<span id="L4477" class="LineNr">4477 </span> 89/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *esi</span> +<span id="L4478" class="LineNr">4478 </span> <span class="subxComment"># return edi</span> +<span id="L4479" class="LineNr">4479 </span> 89/copy 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy edi to eax</span> +<span id="L4480" class="LineNr">4480 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L4481" class="LineNr">4481 </span> 5f/pop-to-edi +<span id="L4482" class="LineNr">4482 </span> 5e/pop-to-esi +<span id="L4483" class="LineNr">4483 </span> 5b/pop-to-ebx +<span id="L4484" class="LineNr">4484 </span> 5a/pop-to-edx +<span id="L4485" class="LineNr">4485 </span> 59/pop-to-ecx +<span id="L4486" class="LineNr">4486 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4487" class="LineNr">4487 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4488" class="LineNr">4488 </span> 5d/pop-to-ebp +<span id="L4489" class="LineNr">4489 </span> c3/return +<span id="L4490" class="LineNr">4490 </span> +<span id="L4491" class="LineNr">4491 </span><span class="subxTest">test-next-positive-hex-int-single-digit</span>: +<span id="L4492" class="LineNr">4492 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4493" class="LineNr">4493 </span> 55/push-ebp +<span id="L4494" class="LineNr">4494 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4495" class="LineNr">4495 </span> <span class="subxComment"># (eax..ecx) = "a)"</span> +<span id="L4496" class="LineNr">4496 </span> b8/copy-to-eax <span class="Constant">"a)"</span>/imm32 +<span id="L4497" class="LineNr">4497 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4498" class="LineNr">4498 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4499" class="LineNr">4499 </span> 05/add-to-eax 4/imm32 +<span id="L4500" class="LineNr">4500 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4501" class="LineNr">4501 </span> 51/push-ecx +<span id="L4502" class="LineNr">4502 </span> 50/push-eax +<span id="L4503" class="LineNr">4503 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4504" class="LineNr">4504 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4505" class="LineNr">4505 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4506" class="LineNr">4506 </span> 51/push-ecx +<span id="L4507" class="LineNr">4507 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4508" class="LineNr">4508 </span> e8/call <a href='sigils.subx.html#L4404'>next-positive-hex-int</a>/disp32 +<span id="L4509" class="LineNr">4509 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4510" class="LineNr">4510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4511" class="LineNr">4511 </span> <span class="subxComment"># check-ints-equal(eax, 0xa, msg)</span> +<span id="L4512" class="LineNr">4512 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4513" class="LineNr">4513 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-single-digit"</span>/imm32 +<span id="L4514" class="LineNr">4514 </span> 68/push 0xa/imm32 +<span id="L4515" class="LineNr">4515 </span> 50/push-eax +<span id="L4516" class="LineNr">4516 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4517" class="LineNr">4517 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4518" class="LineNr">4518 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4519" class="LineNr">4519 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4520" class="LineNr">4520 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4521" class="LineNr">4521 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4522" class="LineNr">4522 </span> 5d/pop-to-ebp +<span id="L4523" class="LineNr">4523 </span> c3/return +<span id="L4524" class="LineNr">4524 </span> +<span id="L4525" class="LineNr">4525 </span><span class="subxTest">test-next-positive-hex-int-multi-digit</span>: +<span id="L4526" class="LineNr">4526 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4527" class="LineNr">4527 </span> 55/push-ebp +<span id="L4528" class="LineNr">4528 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4529" class="LineNr">4529 </span> <span class="subxComment"># (eax..ecx) = "34a)"</span> +<span id="L4530" class="LineNr">4530 </span> b8/copy-to-eax <span class="Constant">"34a)"</span>/imm32 +<span id="L4531" class="LineNr">4531 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4532" class="LineNr">4532 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4533" class="LineNr">4533 </span> 05/add-to-eax 4/imm32 +<span id="L4534" class="LineNr">4534 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4535" class="LineNr">4535 </span> 51/push-ecx +<span id="L4536" class="LineNr">4536 </span> 50/push-eax +<span id="L4537" class="LineNr">4537 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4538" class="LineNr">4538 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4539" class="LineNr">4539 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4540" class="LineNr">4540 </span> 51/push-ecx +<span id="L4541" class="LineNr">4541 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4542" class="LineNr">4542 </span> e8/call <a href='sigils.subx.html#L4404'>next-positive-hex-int</a>/disp32 +<span id="L4543" class="LineNr">4543 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4544" class="LineNr">4544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4545" class="LineNr">4545 </span> <span class="subxComment"># check-ints-equal(eax, 0x34a, msg)</span> +<span id="L4546" class="LineNr">4546 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4547" class="LineNr">4547 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-multi-digit"</span>/imm32 +<span id="L4548" class="LineNr">4548 </span> 68/push 0x34a/imm32 +<span id="L4549" class="LineNr">4549 </span> 50/push-eax +<span id="L4550" class="LineNr">4550 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4551" class="LineNr">4551 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4552" class="LineNr">4552 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4553" class="LineNr">4553 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4554" class="LineNr">4554 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4555" class="LineNr">4555 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4556" class="LineNr">4556 </span> 5d/pop-to-ebp +<span id="L4557" class="LineNr">4557 </span> c3/return +<span id="L4558" class="LineNr">4558 </span> +<span id="L4559" class="LineNr">4559 </span><span class="subxTest">test-next-positive-hex-int-0x-prefix</span>: +<span id="L4560" class="LineNr">4560 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4561" class="LineNr">4561 </span> 55/push-ebp +<span id="L4562" class="LineNr">4562 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4563" class="LineNr">4563 </span> <span class="subxComment"># (eax..ecx) = "0x34)"</span> +<span id="L4564" class="LineNr">4564 </span> b8/copy-to-eax <span class="Constant">"0x34)"</span>/imm32 +<span id="L4565" class="LineNr">4565 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4566" class="LineNr">4566 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4567" class="LineNr">4567 </span> 05/add-to-eax 4/imm32 +<span id="L4568" class="LineNr">4568 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4569" class="LineNr">4569 </span> 51/push-ecx +<span id="L4570" class="LineNr">4570 </span> 50/push-eax +<span id="L4571" class="LineNr">4571 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4572" class="LineNr">4572 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4573" class="LineNr">4573 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4574" class="LineNr">4574 </span> 51/push-ecx +<span id="L4575" class="LineNr">4575 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4576" class="LineNr">4576 </span> e8/call <a href='sigils.subx.html#L4404'>next-positive-hex-int</a>/disp32 +<span id="L4577" class="LineNr">4577 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4578" class="LineNr">4578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4579" class="LineNr">4579 </span> <span class="subxComment"># check-ints-equal(eax, 0x34, msg)</span> +<span id="L4580" class="LineNr">4580 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4581" class="LineNr">4581 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0x-prefix"</span>/imm32 +<span id="L4582" class="LineNr">4582 </span> 68/push 0x34/imm32 +<span id="L4583" class="LineNr">4583 </span> 50/push-eax +<span id="L4584" class="LineNr">4584 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4585" class="LineNr">4585 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4586" class="LineNr">4586 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4587" class="LineNr">4587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4588" class="LineNr">4588 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4589" class="LineNr">4589 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4590" class="LineNr">4590 </span> 5d/pop-to-ebp +<span id="L4591" class="LineNr">4591 </span> c3/return +<span id="L4592" class="LineNr">4592 </span> +<span id="L4593" class="LineNr">4593 </span><span class="subxTest">test-next-positive-hex-int-zero</span>: +<span id="L4594" class="LineNr">4594 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4595" class="LineNr">4595 </span> 55/push-ebp +<span id="L4596" class="LineNr">4596 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4597" class="LineNr">4597 </span> <span class="subxComment"># (eax..ecx) = "0"</span> +<span id="L4598" class="LineNr">4598 </span> b8/copy-to-eax <span class="Constant">"0"</span>/imm32 +<span id="L4599" class="LineNr">4599 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4600" class="LineNr">4600 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4601" class="LineNr">4601 </span> 05/add-to-eax 4/imm32 +<span id="L4602" class="LineNr">4602 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4603" class="LineNr">4603 </span> 51/push-ecx +<span id="L4604" class="LineNr">4604 </span> 50/push-eax +<span id="L4605" class="LineNr">4605 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4606" class="LineNr">4606 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4607" class="LineNr">4607 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4608" class="LineNr">4608 </span> 51/push-ecx +<span id="L4609" class="LineNr">4609 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4610" class="LineNr">4610 </span> e8/call <a href='sigils.subx.html#L4404'>next-positive-hex-int</a>/disp32 +<span id="L4611" class="LineNr">4611 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4612" class="LineNr">4612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4613" class="LineNr">4613 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4614" class="LineNr">4614 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4615" class="LineNr">4615 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-zero"</span>/imm32 +<span id="L4616" class="LineNr">4616 </span> 68/push 0/imm32 +<span id="L4617" class="LineNr">4617 </span> 50/push-eax +<span id="L4618" class="LineNr">4618 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4619" class="LineNr">4619 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4620" class="LineNr">4620 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4621" class="LineNr">4621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4622" class="LineNr">4622 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4623" class="LineNr">4623 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4624" class="LineNr">4624 </span> 5d/pop-to-ebp +<span id="L4625" class="LineNr">4625 </span> c3/return +<span id="L4626" class="LineNr">4626 </span> +<span id="L4627" class="LineNr">4627 </span><span class="subxTest">test-next-positive-hex-int-0-prefix</span>: +<span id="L4628" class="LineNr">4628 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4629" class="LineNr">4629 </span> 55/push-ebp +<span id="L4630" class="LineNr">4630 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4631" class="LineNr">4631 </span> <span class="subxComment"># (eax..ecx) = "03)"</span> +<span id="L4632" class="LineNr">4632 </span> b8/copy-to-eax <span class="Constant">"03)"</span>/imm32 +<span id="L4633" class="LineNr">4633 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4634" class="LineNr">4634 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4635" class="LineNr">4635 </span> 05/add-to-eax 4/imm32 +<span id="L4636" class="LineNr">4636 </span> <span class="subxComment"># var slice/ecx = {eax, ecx}</span> +<span id="L4637" class="LineNr">4637 </span> 51/push-ecx +<span id="L4638" class="LineNr">4638 </span> 50/push-eax +<span id="L4639" class="LineNr">4639 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4640" class="LineNr">4640 </span> <span class="subxComment"># eax = next-positive-hex-int(slice)</span> +<span id="L4641" class="LineNr">4641 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4642" class="LineNr">4642 </span> 51/push-ecx +<span id="L4643" class="LineNr">4643 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4644" class="LineNr">4644 </span> e8/call <a href='sigils.subx.html#L4404'>next-positive-hex-int</a>/disp32 +<span id="L4645" class="LineNr">4645 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4646" class="LineNr">4646 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4647" class="LineNr">4647 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L4648" class="LineNr">4648 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4649" class="LineNr">4649 </span> 68/push <span class="Constant">"F - test-next-positive-hex-int-0-prefix"</span>/imm32 +<span id="L4650" class="LineNr">4650 </span> 68/push 3/imm32 +<span id="L4651" class="LineNr">4651 </span> 50/push-eax +<span id="L4652" class="LineNr">4652 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4653" class="LineNr">4653 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4654" class="LineNr">4654 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4655" class="LineNr">4655 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4656" class="LineNr">4656 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4657" class="LineNr">4657 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4658" class="LineNr">4658 </span> 5d/pop-to-ebp +<span id="L4659" class="LineNr">4659 </span> c3/return +<span id="L4660" class="LineNr">4660 </span> +<span id="L4661" class="LineNr">4661 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/apps/subx-params.subx.html b/html/linux/subx-params.subx.html index 648a80a1..ef1435a5 100644 --- a/html/apps/subx-params.subx.html +++ b/html/linux/subx-params.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/subx-params.subx</title> +<title>Mu - linux/subx-params.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -50,7 +50,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/subx-params.subx'>https://github.com/akkartik/mu/blob/main/apps/subx-params.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/subx-params.subx'>https://github.com/akkartik/mu/blob/main/linux/subx-params.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Various knobs for translating SubX programs using SubX.</span> <span id="L2" class="LineNr"> 2 </span> @@ -66,7 +66,7 @@ if ('onhashchange' in window) { <span id="L12" class="LineNr">12 </span> <span id="L13" class="LineNr">13 </span><span class="subxComment"># number of labels we can translate to addresses</span> <span id="L14" class="LineNr">14 </span><span class="SpecialChar">Max-labels</span>: -<span id="L15" class="LineNr">15 </span> 0x60000/imm32/24K-labels/192KB +<span id="L15" class="LineNr">15 </span> 0x60000/imm32/16K-labels/384KB <span id="L16" class="LineNr">16 </span> <span id="L17" class="LineNr">17 </span><span class="subxComment"># capacity of trace-stream</span> <span id="L18" class="LineNr">18 </span><span class="SpecialChar">Trace-size</span>: diff --git a/html/linux/survey_baremetal.subx.html b/html/linux/survey_baremetal.subx.html new file mode 100644 index 00000000..31b90392 --- /dev/null +++ b/html/linux/survey_baremetal.subx.html @@ -0,0 +1,2927 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/survey_baremetal.subx</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } +.subxS2Comment { color: #8a8a8a; } +.LineNr { } +.Constant { color: #008787; } +.subxTest { color: #5f8700; } +.SpecialChar { color: #d70000; } +.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } +.Folded { color: #080808; background-color: #949494; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/survey_baremetal.subx'>https://github.com/akkartik/mu/blob/main/linux/survey_baremetal.subx</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Assign addresses (co-ordinates) to instructions (landmarks) in a program</span> +<span id="L2" class="LineNr"> 2 </span><span class="subxComment"># (landscape).</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Use the addresses assigned to replace labels.</span> +<span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># To build:</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/subx-params.subx apps/survey_baremetal.subx -o apps/survey_baremetal</span> +<span id="L7" class="LineNr"> 7 </span><span class="subxComment">#</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># The expected input is a stream of bytes and some interspersed labels.</span> +<span id="L9" class="LineNr"> 9 </span><span class="subxComment"># Comments and '==' segment headers are allowed, but names are ignored. The</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># emitted code will all lie in a single contiguous address range starting at</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># address 0x7c00. Addresses in segment headers are optional. If provided, this</span> +<span id="L12" class="LineNr"> 12 </span><span class="subxComment"># program will insert padding in the output until the desired address is</span> +<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># reached.</span> +<span id="L14" class="LineNr"> 14 </span><span class="subxComment">#</span> +<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># $ cat x</span> +<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># == code</span> +<span id="L17" class="LineNr"> 17 </span><span class="subxComment"># l1:</span> +<span id="L18" class="LineNr"> 18 </span><span class="subxComment"># aa bb l1/imm8</span> +<span id="L19" class="LineNr"> 19 </span><span class="subxComment"># cc dd l2/disp32</span> +<span id="L20" class="LineNr"> 20 </span><span class="subxComment"># l2:</span> +<span id="L21" class="LineNr"> 21 </span><span class="subxComment"># ee foo/imm32</span> +<span id="L22" class="LineNr"> 22 </span><span class="subxComment"># == data 0x7c10</span> +<span id="L23" class="LineNr"> 23 </span><span class="subxComment"># foo:</span> +<span id="L24" class="LineNr"> 24 </span><span class="subxComment"># 34</span> +<span id="L25" class="LineNr"> 25 </span><span class="subxComment">#</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># The output is the stream of bytes without segment headers or label definitions,</span> +<span id="L27" class="LineNr"> 27 </span><span class="subxComment"># and with label references replaced with numeric values/displacements.</span> +<span id="L28" class="LineNr"> 28 </span><span class="subxComment">#</span> +<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run survey_baremetal</span> +<span id="L30" class="LineNr"> 30 </span><span class="subxComment"># # 0x7c00</span> +<span id="L31" class="LineNr"> 31 </span><span class="subxComment"># aa bb nn # some computed address</span> +<span id="L32" class="LineNr"> 32 </span><span class="subxComment"># cc dd nn nn nn nn # some computed displacement</span> +<span id="L33" class="LineNr"> 33 </span><span class="subxComment"># ee nn nn nn nn # address right after this instruction</span> +<span id="L34" class="LineNr"> 34 </span><span class="subxComment"># # 0x7c0e</span> +<span id="L35" class="LineNr"> 35 </span><span class="subxComment"># 00 00 # padding</span> +<span id="L36" class="LineNr"> 36 </span><span class="subxComment"># # 0x7c10</span> +<span id="L37" class="LineNr"> 37 </span><span class="subxComment"># 34 # data segment interleaved with code</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span>== code +<span id="L40" class="LineNr"> 40 </span><span class="subxComment"># instruction effective address register displacement immediate</span> +<span id="L41" class="LineNr"> 41 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> +<span id="L42" class="LineNr"> 42 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> +<span id="L43" class="LineNr"> 43 </span> +<span id="L44" class="LineNr"> 44 </span><span class="SpecialChar">Entry</span>: <span class="subxComment"># run tests if necessary, convert stdin if not</span> +<span id="L45" class="LineNr"> 45 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L46" class="LineNr"> 46 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L47" class="LineNr"> 47 </span> +<span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># Heap = new-segment(Heap-size)</span> +<span id="L49" class="LineNr"> 49 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L50" class="LineNr"> 50 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . call</span> +<span id="L53" class="LineNr"> 53 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L54" class="LineNr"> 54 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L55" class="LineNr"> 55 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># initialize-trace-stream(Trace-size)</span> +<span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L58" class="LineNr"> 58 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Trace-size</span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> +<span id="L60" class="LineNr"> 60 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 +<span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span> <span class="subxH1Comment"># - if argc > 1 and argv[1] == "test", then return run_tests()</span> +<span id="L65" class="LineNr"> 65 </span> <span class="subxComment"># if (argc <= 1) goto interactive</span> +<span id="L66" class="LineNr"> 66 </span> 81 7/subop/compare 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/disp8 1/imm32 <span class="subxComment"># compare *ebp</span> +<span id="L67" class="LineNr"> 67 </span> 7e/jump-if-<= $subx-survey-main:interactive/disp8 +<span id="L68" class="LineNr"> 68 </span> <span class="subxComment"># if (!kernel-string-equal?(argv[1], "test")) goto interactive</span> +<span id="L69" class="LineNr"> 69 </span> <span class="subxS1Comment"># . eax = kernel-string-equal?(argv[1], "test")</span> +<span id="L70" class="LineNr"> 70 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L71" class="LineNr"> 71 </span> 68/push <span class="Constant">"test"</span>/imm32 +<span id="L72" class="LineNr"> 72 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . call</span> +<span id="L74" class="LineNr"> 74 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L76" class="LineNr"> 76 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> +<span id="L78" class="LineNr"> 78 </span> 3d/compare-eax-and 0/imm32/false +<span id="L79" class="LineNr"> 79 </span> 74/jump-if-= $subx-survey-main:interactive/disp8 +<span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># run-tests()</span> +<span id="L81" class="LineNr"> 81 </span><span class="CommentedCode">#? e8/call test-emit-output-with-padding/disp32</span> +<span id="L82" class="LineNr"> 82 </span> e8/call run-tests/disp32 +<span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> +<span id="L84" class="LineNr"> 84 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L85" class="LineNr"> 85 </span> eb/jump $subx-survey-main:end/disp8 +<span id="L86" class="LineNr"> 86 </span><span class="Constant">$subx-survey-main:interactive</span>: +<span id="L87" class="LineNr"> 87 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> +<span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># subx-survey(Stdin, Stdout)</span> +<span id="L89" class="LineNr"> 89 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L90" class="LineNr"> 90 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L91" class="LineNr"> 91 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L92" class="LineNr"> 92 </span> <span class="subxS2Comment"># . . call</span> +<span id="L93" class="LineNr"> 93 </span> e8/call <a href='survey_baremetal.subx.html#L109'>subx-survey</a>/disp32 +<span id="L94" class="LineNr"> 94 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L95" class="LineNr"> 95 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L96" class="LineNr"> 96 </span><span class="CommentedCode">#? # . write-stream(2/stderr, Trace-stream)</span> +<span id="L97" class="LineNr"> 97 </span><span class="CommentedCode">#? # . . push args</span> +<span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 . . . Trace-stream/disp32 # push *Trace-stream</span> +<span id="L99" class="LineNr"> 99 </span><span class="CommentedCode">#? 68/push 2/imm32/stderr</span> +<span id="L100" class="LineNr"> 100 </span><span class="CommentedCode">#? # . . call</span> +<span id="L101" class="LineNr"> 101 </span><span class="CommentedCode">#? e8/call write-stream/disp32</span> +<span id="L102" class="LineNr"> 102 </span><span class="CommentedCode">#? # . . discard args</span> +<span id="L103" class="LineNr"> 103 </span><span class="CommentedCode">#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp</span> +<span id="L104" class="LineNr"> 104 </span> <span class="subxComment"># syscall(exit, 0)</span> +<span id="L105" class="LineNr"> 105 </span> bb/copy-to-ebx 0/imm32 +<span id="L106" class="LineNr"> 106 </span><span class="Constant">$subx-survey-main:end</span>: +<span id="L107" class="LineNr"> 107 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L108" class="LineNr"> 108 </span> +<span id="L109" class="LineNr"> 109 </span><span class="subxFunction">subx-survey</span>: <span class="subxComment"># infile: (addr buffered-file), out: (addr buffered-file)</span> +<span id="L110" class="LineNr"> 110 </span> <span class="subxComment"># pseudocode</span> +<span id="L111" class="LineNr"> 111 </span> <span class="subxComment"># var in: (stream byte Input-size)</span> +<span id="L112" class="LineNr"> 112 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L113" class="LineNr"> 113 </span> <span class="subxComment"># var labels: (stream {label-name, address} Max-labels)</span> +<span id="L114" class="LineNr"> 114 </span> <span class="subxComment"># compute-offsets(in, labels)</span> +<span id="L115" class="LineNr"> 115 </span> <span class="subxComment"># rewind-stream(in)</span> +<span id="L116" class="LineNr"> 116 </span> <span class="subxComment"># emit-output(in, out, labels)</span> +<span id="L117" class="LineNr"> 117 </span> <span class="subxComment">#</span> +<span id="L118" class="LineNr"> 118 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L119" class="LineNr"> 119 </span> 55/push-ebp +<span id="L120" class="LineNr"> 120 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L121" class="LineNr"> 121 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L122" class="LineNr"> 122 </span> 51/push-ecx +<span id="L123" class="LineNr"> 123 </span> 52/push-edx +<span id="L124" class="LineNr"> 124 </span> 56/push-esi +<span id="L125" class="LineNr"> 125 </span> <span class="subxComment"># var labels/edx: (stream {label-name, address} Max-labels)</span> +<span id="L126" class="LineNr"> 126 </span> <span class="subxComment"># (we get more rows than Max-labels advertises because row size is smaller than in survey_elf)</span> +<span id="L127" class="LineNr"> 127 </span> <span class="subxS1Comment"># . data</span> +<span id="L128" class="LineNr"> 128 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># subtract *Max-labels from esp</span> +<span id="L129" class="LineNr"> 129 </span> <span class="subxS1Comment"># . size</span> +<span id="L130" class="LineNr"> 130 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># push *Max-labels</span> +<span id="L131" class="LineNr"> 131 </span> <span class="subxS1Comment"># . read</span> +<span id="L132" class="LineNr"> 132 </span> 68/push 0/imm32/read +<span id="L133" class="LineNr"> 133 </span> <span class="subxS1Comment"># . write</span> +<span id="L134" class="LineNr"> 134 </span> 68/push 0/imm32/write +<span id="L135" class="LineNr"> 135 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L136" class="LineNr"> 136 </span> <span class="subxComment"># var in/esi: (stream byte Input-size)</span> +<span id="L137" class="LineNr"> 137 </span> <span class="subxS1Comment"># . data</span> +<span id="L138" class="LineNr"> 138 </span> 2b/subtract 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># subtract *Input-size from esp</span> +<span id="L139" class="LineNr"> 139 </span> <span class="subxS1Comment"># . size</span> +<span id="L140" class="LineNr"> 140 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># push *Input-size</span> +<span id="L141" class="LineNr"> 141 </span> <span class="subxS1Comment"># . read</span> +<span id="L142" class="LineNr"> 142 </span> 68/push 0/imm32/read +<span id="L143" class="LineNr"> 143 </span> <span class="subxS1Comment"># . write</span> +<span id="L144" class="LineNr"> 144 </span> 68/push 0/imm32/write +<span id="L145" class="LineNr"> 145 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> +<span id="L146" class="LineNr"> 146 </span> <span class="subxComment"># slurp(infile, in)</span> +<span id="L147" class="LineNr"> 147 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L148" class="LineNr"> 148 </span> 56/push-esi +<span id="L149" class="LineNr"> 149 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L150" class="LineNr"> 150 </span> <span class="subxS2Comment"># . . call</span> +<span id="L151" class="LineNr"> 151 </span> e8/call <a href='132slurp.subx.html#L8'>slurp</a>/disp32 +<span id="L152" class="LineNr"> 152 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L153" class="LineNr"> 153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L154" class="LineNr"> 154 </span> <span class="subxComment"># compute-offsets(in, labels)</span> +<span id="L155" class="LineNr"> 155 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L156" class="LineNr"> 156 </span> 52/push-edx +<span id="L157" class="LineNr"> 157 </span> 56/push-esi +<span id="L158" class="LineNr"> 158 </span> <span class="subxS2Comment"># . . call</span> +<span id="L159" class="LineNr"> 159 </span> e8/call <a href='survey_baremetal.subx.html#L462'>compute-offsets</a>/disp32 +<span id="L160" class="LineNr"> 160 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L161" class="LineNr"> 161 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L162" class="LineNr"> 162 </span> <span class="subxComment"># rewind-stream(in)</span> +<span id="L163" class="LineNr"> 163 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L164" class="LineNr"> 164 </span> 56/push-esi +<span id="L165" class="LineNr"> 165 </span> <span class="subxS2Comment"># . . call</span> +<span id="L166" class="LineNr"> 166 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L167" class="LineNr"> 167 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L168" class="LineNr"> 168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L169" class="LineNr"> 169 </span> <span class="subxComment"># emit-output(in, out, labels)</span> +<span id="L170" class="LineNr"> 170 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L171" class="LineNr"> 171 </span> 52/push-edx +<span id="L172" class="LineNr"> 172 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L173" class="LineNr"> 173 </span> 56/push-esi +<span id="L174" class="LineNr"> 174 </span> <span class="subxS2Comment"># . . call</span> +<span id="L175" class="LineNr"> 175 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 +<span id="L176" class="LineNr"> 176 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L177" class="LineNr"> 177 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L178" class="LineNr"> 178 </span> <span class="subxComment"># flush(out)</span> +<span id="L179" class="LineNr"> 179 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L180" class="LineNr"> 180 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L181" class="LineNr"> 181 </span> <span class="subxS2Comment"># . . call</span> +<span id="L182" class="LineNr"> 182 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L183" class="LineNr"> 183 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L184" class="LineNr"> 184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L185" class="LineNr"> 185 </span><span class="Constant">$subx-survey:end</span>: +<span id="L186" class="LineNr"> 186 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L187" class="LineNr"> 187 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Max-labels</span>/disp32 <span class="subxComment"># add *Max-labels to esp</span> +<span id="L188" class="LineNr"> 188 </span> 03/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="SpecialChar">Input-size</span>/disp32 <span class="subxComment"># add *Input-size to esp</span> +<span id="L189" class="LineNr"> 189 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L190" class="LineNr"> 190 </span> 5e/pop-to-esi +<span id="L191" class="LineNr"> 191 </span> 5a/pop-to-edx +<span id="L192" class="LineNr"> 192 </span> 59/pop-to-ecx +<span id="L193" class="LineNr"> 193 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L194" class="LineNr"> 194 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L195" class="LineNr"> 195 </span> 5d/pop-to-ebp +<span id="L196" class="LineNr"> 196 </span> c3/return +<span id="L197" class="LineNr"> 197 </span> +<span id="L198" class="LineNr"> 198 </span><span class="subxTest">test-subx-survey-computes-addresses</span>: +<span id="L199" class="LineNr"> 199 </span> <span class="subxComment"># input:</span> +<span id="L200" class="LineNr"> 200 </span> <span class="subxComment"># == code</span> +<span id="L201" class="LineNr"> 201 </span> <span class="subxComment"># ab x/imm32</span> +<span id="L202" class="LineNr"> 202 </span> <span class="subxComment"># == data</span> +<span id="L203" class="LineNr"> 203 </span> <span class="subxComment"># x:</span> +<span id="L204" class="LineNr"> 204 </span> <span class="subxComment"># 01</span> +<span id="L205" class="LineNr"> 205 </span> <span class="subxComment">#</span> +<span id="L206" class="LineNr"> 206 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L207" class="LineNr"> 207 </span> <span class="subxComment"># label x is at address 0x7c05</span> +<span id="L208" class="LineNr"> 208 </span> <span class="subxComment">#</span> +<span id="L209" class="LineNr"> 209 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L210" class="LineNr"> 210 </span> 55/push-ebp +<span id="L211" class="LineNr"> 211 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L212" class="LineNr"> 212 </span> <span class="subxComment"># setup</span> +<span id="L213" class="LineNr"> 213 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L214" class="LineNr"> 214 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L215" class="LineNr"> 215 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L216" class="LineNr"> 216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L217" class="LineNr"> 217 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L218" class="LineNr"> 218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L219" class="LineNr"> 219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L220" class="LineNr"> 220 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L221" class="LineNr"> 221 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L222" class="LineNr"> 222 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L223" class="LineNr"> 223 </span> <span class="subxS2Comment"># . . call</span> +<span id="L224" class="LineNr"> 224 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L225" class="LineNr"> 225 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L226" class="LineNr"> 226 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L227" class="LineNr"> 227 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L228" class="LineNr"> 228 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L229" class="LineNr"> 229 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L230" class="LineNr"> 230 </span> <span class="subxS2Comment"># . . call</span> +<span id="L231" class="LineNr"> 231 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L232" class="LineNr"> 232 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L233" class="LineNr"> 233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L234" class="LineNr"> 234 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L235" class="LineNr"> 235 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L236" class="LineNr"> 236 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L237" class="LineNr"> 237 </span> <span class="subxS2Comment"># . . call</span> +<span id="L238" class="LineNr"> 238 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L239" class="LineNr"> 239 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L240" class="LineNr"> 240 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L241" class="LineNr"> 241 </span> <span class="subxComment"># initialize input</span> +<span id="L242" class="LineNr"> 242 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L243" class="LineNr"> 243 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L244" class="LineNr"> 244 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L245" class="LineNr"> 245 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L246" class="LineNr"> 246 </span> <span class="subxS2Comment"># . . call</span> +<span id="L247" class="LineNr"> 247 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L248" class="LineNr"> 248 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L249" class="LineNr"> 249 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L250" class="LineNr"> 250 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> +<span id="L251" class="LineNr"> 251 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L252" class="LineNr"> 252 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L253" class="LineNr"> 253 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L254" class="LineNr"> 254 </span> <span class="subxS2Comment"># . . call</span> +<span id="L255" class="LineNr"> 255 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L256" class="LineNr"> 256 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L257" class="LineNr"> 257 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L258" class="LineNr"> 258 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L259" class="LineNr"> 259 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L260" class="LineNr"> 260 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L261" class="LineNr"> 261 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L262" class="LineNr"> 262 </span> <span class="subxS2Comment"># . . call</span> +<span id="L263" class="LineNr"> 263 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L264" class="LineNr"> 264 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L265" class="LineNr"> 265 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L266" class="LineNr"> 266 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L268" class="LineNr"> 268 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L269" class="LineNr"> 269 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L270" class="LineNr"> 270 </span> <span class="subxS2Comment"># . . call</span> +<span id="L271" class="LineNr"> 271 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L272" class="LineNr"> 272 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L273" class="LineNr"> 273 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L274" class="LineNr"> 274 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> +<span id="L275" class="LineNr"> 275 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L276" class="LineNr"> 276 </span> 68/push <span class="Constant">"01\n"</span>/imm32 +<span id="L277" class="LineNr"> 277 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L278" class="LineNr"> 278 </span> <span class="subxS2Comment"># . . call</span> +<span id="L279" class="LineNr"> 279 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L280" class="LineNr"> 280 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L281" class="LineNr"> 281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L282" class="LineNr"> 282 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L283" class="LineNr"> 283 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L284" class="LineNr"> 284 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L285" class="LineNr"> 285 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L286" class="LineNr"> 286 </span> <span class="subxS2Comment"># . . call</span> +<span id="L287" class="LineNr"> 287 </span> e8/call <a href='survey_baremetal.subx.html#L109'>subx-survey</a>/disp32 +<span id="L288" class="LineNr"> 288 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L289" class="LineNr"> 289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L290" class="LineNr"> 290 </span> <span class="subxComment"># check trace</span> +<span id="L291" class="Folded"> 291 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L317" class="LineNr"> 317 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c05.", msg)</span> +<span id="L318" class="LineNr"> 318 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L319" class="LineNr"> 319 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L198'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 +<span id="L320" class="LineNr"> 320 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c05."</span>/imm32 +<span id="L321" class="LineNr"> 321 </span> <span class="subxS2Comment"># . . call</span> +<span id="L322" class="LineNr"> 322 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L323" class="LineNr"> 323 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L324" class="LineNr"> 324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L325" class="LineNr"> 325 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L326" class="LineNr"> 326 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L327" class="LineNr"> 327 </span> 5d/pop-to-ebp +<span id="L328" class="LineNr"> 328 </span> c3/return +<span id="L329" class="LineNr"> 329 </span> +<span id="L330" class="LineNr"> 330 </span><span class="subxTest">test-subx-survey-computes-addresses-with-padding</span>: +<span id="L331" class="LineNr"> 331 </span> <span class="subxComment"># input:</span> +<span id="L332" class="LineNr"> 332 </span> <span class="subxComment"># == code</span> +<span id="L333" class="LineNr"> 333 </span> <span class="subxComment"># ab x/imm32</span> +<span id="L334" class="LineNr"> 334 </span> <span class="subxComment"># == data 0x7c10</span> +<span id="L335" class="LineNr"> 335 </span> <span class="subxComment"># x:</span> +<span id="L336" class="LineNr"> 336 </span> <span class="subxComment"># 01</span> +<span id="L337" class="LineNr"> 337 </span> <span class="subxComment">#</span> +<span id="L338" class="LineNr"> 338 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L339" class="LineNr"> 339 </span> <span class="subxComment"># label x is at address 0x7c10</span> +<span id="L340" class="LineNr"> 340 </span> <span class="subxComment">#</span> +<span id="L341" class="LineNr"> 341 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L342" class="LineNr"> 342 </span> 55/push-ebp +<span id="L343" class="LineNr"> 343 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L344" class="LineNr"> 344 </span> <span class="subxComment"># setup</span> +<span id="L345" class="LineNr"> 345 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L346" class="LineNr"> 346 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L347" class="LineNr"> 347 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L348" class="LineNr"> 348 </span> <span class="subxS2Comment"># . . call</span> +<span id="L349" class="LineNr"> 349 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L350" class="LineNr"> 350 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L351" class="LineNr"> 351 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L352" class="LineNr"> 352 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> +<span id="L353" class="LineNr"> 353 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L354" class="LineNr"> 354 </span> 68/push $_test-input-buffered-file->buffer/imm32 +<span id="L355" class="LineNr"> 355 </span> <span class="subxS2Comment"># . . call</span> +<span id="L356" class="LineNr"> 356 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L357" class="LineNr"> 357 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L358" class="LineNr"> 358 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L359" class="LineNr"> 359 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L360" class="LineNr"> 360 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L361" class="LineNr"> 361 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . call</span> +<span id="L363" class="LineNr"> 363 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L364" class="LineNr"> 364 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L365" class="LineNr"> 365 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L366" class="LineNr"> 366 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L367" class="LineNr"> 367 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L368" class="LineNr"> 368 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L369" class="LineNr"> 369 </span> <span class="subxS2Comment"># . . call</span> +<span id="L370" class="LineNr"> 370 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L371" class="LineNr"> 371 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L372" class="LineNr"> 372 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L373" class="LineNr"> 373 </span> <span class="subxComment"># initialize input</span> +<span id="L374" class="LineNr"> 374 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L375" class="LineNr"> 375 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L376" class="LineNr"> 376 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L377" class="LineNr"> 377 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L378" class="LineNr"> 378 </span> <span class="subxS2Comment"># . . call</span> +<span id="L379" class="LineNr"> 379 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L380" class="LineNr"> 380 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L381" class="LineNr"> 381 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L382" class="LineNr"> 382 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> +<span id="L383" class="LineNr"> 383 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L384" class="LineNr"> 384 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 +<span id="L385" class="LineNr"> 385 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L386" class="LineNr"> 386 </span> <span class="subxS2Comment"># . . call</span> +<span id="L387" class="LineNr"> 387 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L388" class="LineNr"> 388 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L389" class="LineNr"> 389 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L390" class="LineNr"> 390 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L391" class="LineNr"> 391 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L392" class="LineNr"> 392 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 +<span id="L393" class="LineNr"> 393 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L394" class="LineNr"> 394 </span> <span class="subxS2Comment"># . . call</span> +<span id="L395" class="LineNr"> 395 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L396" class="LineNr"> 396 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L397" class="LineNr"> 397 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L398" class="LineNr"> 398 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L399" class="LineNr"> 399 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L400" class="LineNr"> 400 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L401" class="LineNr"> 401 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L402" class="LineNr"> 402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L403" class="LineNr"> 403 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L404" class="LineNr"> 404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L405" class="LineNr"> 405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L406" class="LineNr"> 406 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> +<span id="L407" class="LineNr"> 407 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L408" class="LineNr"> 408 </span> 68/push <span class="Constant">"01\n"</span>/imm32 +<span id="L409" class="LineNr"> 409 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L410" class="LineNr"> 410 </span> <span class="subxS2Comment"># . . call</span> +<span id="L411" class="LineNr"> 411 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L412" class="LineNr"> 412 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L413" class="LineNr"> 413 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L414" class="LineNr"> 414 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> +<span id="L415" class="LineNr"> 415 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L416" class="LineNr"> 416 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L417" class="LineNr"> 417 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L418" class="LineNr"> 418 </span> <span class="subxS2Comment"># . . call</span> +<span id="L419" class="LineNr"> 419 </span> e8/call <a href='survey_baremetal.subx.html#L109'>subx-survey</a>/disp32 +<span id="L420" class="LineNr"> 420 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L421" class="LineNr"> 421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L422" class="LineNr"> 422 </span> <span class="subxComment"># check trace</span> +<span id="L423" class="Folded"> 423 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L449" class="LineNr"> 449 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c10.", msg)</span> +<span id="L450" class="LineNr"> 450 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L451" class="LineNr"> 451 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L330'>test-subx-survey-computes-addresses-with-padding</a>/0"</span>/imm32 +<span id="L452" class="LineNr"> 452 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c10."</span>/imm32 +<span id="L453" class="LineNr"> 453 </span> <span class="subxS2Comment"># . . call</span> +<span id="L454" class="LineNr"> 454 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L455" class="LineNr"> 455 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L456" class="LineNr"> 456 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L457" class="LineNr"> 457 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L458" class="LineNr"> 458 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L459" class="LineNr"> 459 </span> 5d/pop-to-ebp +<span id="L460" class="LineNr"> 460 </span> c3/return +<span id="L461" class="LineNr"> 461 </span> +<span id="L462" class="LineNr"> 462 </span><span class="subxFunction">compute-offsets</span>: <span class="subxComment"># in: (addr stream byte), labels: (addr stream {(handle array byte), address})</span> +<span id="L463" class="LineNr"> 463 </span> <span class="subxComment"># pseudocode:</span> +<span id="L464" class="LineNr"> 464 </span> <span class="subxComment"># var current-address = 0x7c00</span> +<span id="L465" class="LineNr"> 465 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L466" class="LineNr"> 466 </span> <span class="subxComment"># while true # line loop</span> +<span id="L467" class="LineNr"> 467 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L468" class="LineNr"> 468 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L469" class="LineNr"> 469 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L470" class="LineNr"> 470 </span> <span class="subxComment"># while true # word loop</span> +<span id="L471" class="LineNr"> 471 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L472" class="LineNr"> 472 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L473" class="LineNr"> 473 </span> <span class="subxComment"># break</span> +<span id="L474" class="LineNr"> 474 </span> <span class="subxComment"># else if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L475" class="LineNr"> 475 </span> <span class="subxComment"># break # end of line</span> +<span id="L476" class="LineNr"> 476 </span> <span class="subxComment"># else if slice-equal?(word-slice, "==") # segment header</span> +<span id="L477" class="LineNr"> 477 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L478" class="LineNr"> 478 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> +<span id="L479" class="LineNr"> 479 </span> <span class="subxComment"># abort</span> +<span id="L480" class="LineNr"> 480 </span> <span class="subxComment"># word-slice = next-word(line) # segment address</span> +<span id="L481" class="LineNr"> 481 </span> <span class="subxComment"># if slice-empty?(word-slice)</span> +<span id="L482" class="LineNr"> 482 </span> <span class="subxComment"># goto line-loop # segment address is optional</span> +<span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> +<span id="L484" class="LineNr"> 484 </span> <span class="subxComment"># if new-address < current-address</span> +<span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># abort</span> +<span id="L486" class="LineNr"> 486 </span> <span class="subxComment"># current-address = new-address</span> +<span id="L487" class="LineNr"> 487 </span> <span class="subxComment"># else if label?(word-slice)</span> +<span id="L488" class="LineNr"> 488 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> +<span id="L489" class="LineNr"> 489 </span> <span class="subxComment"># trace("label '" word-slice "' is at address " current-address ".")</span> +<span id="L490" class="LineNr"> 490 </span> <span class="subxComment"># # labels occupy no space, so no need to increment offsets</span> +<span id="L491" class="LineNr"> 491 </span> <span class="subxComment"># else</span> +<span id="L492" class="LineNr"> 492 </span> <span class="subxComment"># width = compute-width-of-slice(word-slice)</span> +<span id="L493" class="LineNr"> 493 </span> <span class="subxComment"># current-address += width</span> +<span id="L494" class="LineNr"> 494 </span> <span class="subxComment">#</span> +<span id="L495" class="LineNr"> 495 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L496" class="LineNr"> 496 </span> 55/push-ebp +<span id="L497" class="LineNr"> 497 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L498" class="LineNr"> 498 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L499" class="LineNr"> 499 </span> 50/push-eax +<span id="L500" class="LineNr"> 500 </span> 51/push-ecx +<span id="L501" class="LineNr"> 501 </span> 52/push-edx +<span id="L502" class="LineNr"> 502 </span> 53/push-ebx +<span id="L503" class="LineNr"> 503 </span> 56/push-esi +<span id="L504" class="LineNr"> 504 </span> 57/push-edi +<span id="L505" class="LineNr"> 505 </span> <span class="subxComment"># var current-address/esi: int = 0x7c00</span> +<span id="L506" class="LineNr"> 506 </span> be/copy-to-esi 0x7c00/imm32 +<span id="L507" class="LineNr"> 507 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L508" class="LineNr"> 508 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L509" class="LineNr"> 509 </span> 68/push 0x200/imm32/size +<span id="L510" class="LineNr"> 510 </span> 68/push 0/imm32/read +<span id="L511" class="LineNr"> 511 </span> 68/push 0/imm32/write +<span id="L512" class="LineNr"> 512 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L513" class="LineNr"> 513 </span> <span class="subxComment"># var word-slice/edx: (addr slice)</span> +<span id="L514" class="LineNr"> 514 </span> 68/push 0/imm32 +<span id="L515" class="LineNr"> 515 </span> 68/push 0/imm32 +<span id="L516" class="LineNr"> 516 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L517" class="LineNr"> 517 </span><span class="Constant">$compute-offsets:line-loop</span>: +<span id="L518" class="LineNr"> 518 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L519" class="LineNr"> 519 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L520" class="LineNr"> 520 </span> 51/push-ecx +<span id="L521" class="LineNr"> 521 </span> <span class="subxS2Comment"># . . call</span> +<span id="L522" class="LineNr"> 522 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L523" class="LineNr"> 523 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L524" class="LineNr"> 524 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L525" class="LineNr"> 525 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L526" class="LineNr"> 526 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L527" class="LineNr"> 527 </span> 51/push-ecx +<span id="L528" class="LineNr"> 528 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L529" class="LineNr"> 529 </span> <span class="subxS2Comment"># . . call</span> +<span id="L530" class="LineNr"> 530 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 +<span id="L531" class="LineNr"> 531 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L532" class="LineNr"> 532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L533" class="LineNr"> 533 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L534" class="LineNr"> 534 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L535" class="LineNr"> 535 </span> 3d/compare-eax-and 0/imm32 +<span id="L536" class="LineNr"> 536 </span> 0f 84/jump-if-= $compute-offsets:end/disp32 +<span id="L537" class="Folded"> 537 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L570" class="LineNr"> 570 </span><span class="Constant">$compute-offsets:word-loop</span>: +<span id="L571" class="LineNr"> 571 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L572" class="LineNr"> 572 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L573" class="LineNr"> 573 </span> 52/push-edx +<span id="L574" class="LineNr"> 574 </span> 51/push-ecx +<span id="L575" class="LineNr"> 575 </span> <span class="subxS2Comment"># . . call</span> +<span id="L576" class="LineNr"> 576 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L578" class="LineNr"> 578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L579" class="LineNr"> 579 </span><span class="Constant">$compute-offsets:case-empty</span>: +<span id="L580" class="LineNr"> 580 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L581" class="LineNr"> 581 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L582" class="LineNr"> 582 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L583" class="LineNr"> 583 </span> 52/push-edx +<span id="L584" class="LineNr"> 584 </span> <span class="subxS2Comment"># . . call</span> +<span id="L585" class="LineNr"> 585 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L586" class="LineNr"> 586 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L587" class="LineNr"> 587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L588" class="LineNr"> 588 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L589" class="LineNr"> 589 </span> 3d/compare-eax-and 0/imm32/false +<span id="L590" class="LineNr"> 590 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 +<span id="L591" class="LineNr"> 591 </span><span class="Constant">$compute-offsets:case-comment</span>: +<span id="L592" class="LineNr"> 592 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") break</span> +<span id="L593" class="LineNr"> 593 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L594" class="LineNr"> 594 </span> 68/push <span class="Constant">"#"</span>/imm32 +<span id="L595" class="LineNr"> 595 </span> 52/push-edx +<span id="L596" class="LineNr"> 596 </span> <span class="subxS2Comment"># . . call</span> +<span id="L597" class="LineNr"> 597 </span> e8/call <a href='123slice.subx.html#L487'>slice-starts-with?</a>/disp32 +<span id="L598" class="LineNr"> 598 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L599" class="LineNr"> 599 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L600" class="LineNr"> 600 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L601" class="LineNr"> 601 </span> 3d/compare-eax-and 0/imm32/false +<span id="L602" class="LineNr"> 602 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 +<span id="L603" class="LineNr"> 603 </span><span class="Constant">$compute-offsets:case-segment-header</span>: +<span id="L604" class="LineNr"> 604 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next case</span> +<span id="L605" class="LineNr"> 605 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L607" class="LineNr"> 607 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L608" class="LineNr"> 608 </span> 52/push-edx +<span id="L609" class="LineNr"> 609 </span> <span class="subxS2Comment"># . . call</span> +<span id="L610" class="LineNr"> 610 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L611" class="LineNr"> 611 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L612" class="LineNr"> 612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L613" class="LineNr"> 613 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L614" class="LineNr"> 614 </span> 3d/compare-eax-and 0/imm32/false +<span id="L615" class="LineNr"> 615 </span> 0f 84/jump-if-= $compute-offsets:case-label/disp32 +<span id="L616" class="LineNr"> 616 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L617" class="LineNr"> 617 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L618" class="LineNr"> 618 </span> 52/push-edx +<span id="L619" class="LineNr"> 619 </span> 51/push-ecx +<span id="L620" class="LineNr"> 620 </span> <span class="subxS2Comment"># . . call</span> +<span id="L621" class="LineNr"> 621 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L622" class="LineNr"> 622 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L623" class="LineNr"> 623 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L624" class="LineNr"> 624 </span> <span class="subxComment"># if slice-empty?(word-slice) abort</span> +<span id="L625" class="LineNr"> 625 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L626" class="LineNr"> 626 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L627" class="LineNr"> 627 </span> 52/push-edx +<span id="L628" class="LineNr"> 628 </span> <span class="subxS2Comment"># . . call</span> +<span id="L629" class="LineNr"> 629 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L630" class="LineNr"> 630 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L631" class="LineNr"> 631 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L632" class="LineNr"> 632 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L633" class="LineNr"> 633 </span> 3d/compare-eax-and 0/imm32/false +<span id="L634" class="LineNr"> 634 </span> 0f 85/jump-if-!= $compute-offsets:abort/disp32 +<span id="L635" class="LineNr"> 635 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L636" class="LineNr"> 636 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L637" class="LineNr"> 637 </span> 52/push-edx +<span id="L638" class="LineNr"> 638 </span> 51/push-ecx +<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . call</span> +<span id="L640" class="LineNr"> 640 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L642" class="LineNr"> 642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L643" class="LineNr"> 643 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L644" class="LineNr"> 644 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L646" class="LineNr"> 646 </span> 52/push-edx +<span id="L647" class="LineNr"> 647 </span> <span class="subxS2Comment"># . . call</span> +<span id="L648" class="LineNr"> 648 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L649" class="LineNr"> 649 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L650" class="LineNr"> 650 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L651" class="LineNr"> 651 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L652" class="LineNr"> 652 </span> 3d/compare-eax-and 0/imm32/false +<span id="L653" class="LineNr"> 653 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 +<span id="L654" class="LineNr"> 654 </span> <span class="subxComment"># var new-address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L655" class="LineNr"> 655 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L656" class="LineNr"> 656 </span> 52/push-edx +<span id="L657" class="LineNr"> 657 </span> <span class="subxS2Comment"># . . call</span> +<span id="L658" class="LineNr"> 658 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L659" class="LineNr"> 659 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L660" class="LineNr"> 660 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L661" class="LineNr"> 661 </span> <span class="subxComment"># if (new-address < current-address) abort</span> +<span id="L662" class="LineNr"> 662 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with esi</span> +<span id="L663" class="LineNr"> 663 </span> 0f 82/jump-if-addr< $compute-offsets:error-bad-segment-address/disp32 +<span id="L664" class="LineNr"> 664 </span> <span class="subxComment"># current-address = new-address</span> +<span id="L665" class="LineNr"> 665 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L666" class="LineNr"> 666 </span> <span class="subxComment"># break</span> +<span id="L667" class="LineNr"> 667 </span> e9/jump $compute-offsets:line-loop/disp32 +<span id="L668" class="LineNr"> 668 </span><span class="Constant">$compute-offsets:case-label</span>: +<span id="L669" class="LineNr"> 669 </span> <span class="subxComment"># if (!label?(word-slice)) goto next case</span> +<span id="L670" class="LineNr"> 670 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> +<span id="L671" class="LineNr"> 671 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L672" class="LineNr"> 672 </span> 52/push-edx +<span id="L673" class="LineNr"> 673 </span> <span class="subxS2Comment"># . . call</span> +<span id="L674" class="LineNr"> 674 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 +<span id="L675" class="LineNr"> 675 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L676" class="LineNr"> 676 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L677" class="LineNr"> 677 </span> <span class="subxS1Comment"># . if (eax == false) goto next case</span> +<span id="L678" class="LineNr"> 678 </span> 3d/compare-eax-and 0/imm32/false +<span id="L679" class="LineNr"> 679 </span> 0f 84/jump-if-= $compute-offsets:case-default/disp32 +<span id="L680" class="LineNr"> 680 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> +<span id="L681" class="LineNr"> 681 </span> ff 1/subop/decrement 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># decrement *(edx+4)</span> +<span id="L682" class="LineNr"> 682 </span> <span class="subxComment"># var tmp/eax: (addr int) = get-or-insert-slice(labels, word-slice, row-size=12)</span> +<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L684" class="LineNr"> 684 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L685" class="LineNr"> 685 </span> 68/push 0xc/imm32/row-size +<span id="L686" class="LineNr"> 686 </span> 52/push-edx +<span id="L687" class="LineNr"> 687 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L688" class="LineNr"> 688 </span> <span class="subxS2Comment"># . . call</span> +<span id="L689" class="LineNr"> 689 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L690" class="LineNr"> 690 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L691" class="LineNr"> 691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L692" class="LineNr"> 692 </span> <span class="subxComment"># *tmp = current-address</span> +<span id="L693" class="LineNr"> 693 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esi to *eax</span> +<span id="L694" class="LineNr"> 694 </span> <span class="subxComment"># trace-slsns("label '" word-slice "' is at address " current-address ".")</span> +<span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L696" class="LineNr"> 696 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L697" class="LineNr"> 697 </span> 56/push-esi +<span id="L698" class="LineNr"> 698 </span> 68/push <span class="Constant">"' is at address "</span>/imm32 +<span id="L699" class="LineNr"> 699 </span> 52/push-edx +<span id="L700" class="LineNr"> 700 </span> 68/push <span class="Constant">"label '"</span>/imm32 +<span id="L701" class="LineNr"> 701 </span> <span class="subxS2Comment"># . . call</span> +<span id="L702" class="LineNr"> 702 </span> e8/call <a href='survey_baremetal.subx.html#L2729'>trace-slsns</a>/disp32 +<span id="L703" class="LineNr"> 703 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L704" class="LineNr"> 704 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L705" class="LineNr"> 705 </span> <span class="subxComment"># continue</span> +<span id="L706" class="LineNr"> 706 </span> e9/jump $compute-offsets:word-loop/disp32 +<span id="L707" class="LineNr"> 707 </span><span class="Constant">$compute-offsets:case-default</span>: +<span id="L708" class="LineNr"> 708 </span> <span class="subxComment"># width/eax = compute-width-of-slice(word-slice)</span> +<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L710" class="LineNr"> 710 </span> 52/push-edx +<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . call</span> +<span id="L712" class="LineNr"> 712 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 +<span id="L713" class="LineNr"> 713 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L714" class="LineNr"> 714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L715" class="LineNr"> 715 </span> <span class="subxComment"># current-address += width</span> +<span id="L716" class="LineNr"> 716 </span> 01/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to *esi</span> +<span id="L717" class="Folded"> 717 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L758" class="LineNr"> 758 </span> e9/jump $compute-offsets:word-loop/disp32 +<span id="L759" class="LineNr"> 759 </span><span class="Constant">$compute-offsets:end</span>: +<span id="L760" class="LineNr"> 760 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L761" class="LineNr"> 761 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L762" class="LineNr"> 762 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L763" class="LineNr"> 763 </span> 5f/pop-to-edi +<span id="L764" class="LineNr"> 764 </span> 5e/pop-to-esi +<span id="L765" class="LineNr"> 765 </span> 5b/pop-to-ebx +<span id="L766" class="LineNr"> 766 </span> 5a/pop-to-edx +<span id="L767" class="LineNr"> 767 </span> 59/pop-to-ecx +<span id="L768" class="LineNr"> 768 </span> 58/pop-to-eax +<span id="L769" class="LineNr"> 769 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L770" class="LineNr"> 770 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L771" class="LineNr"> 771 </span> 5d/pop-to-ebp +<span id="L772" class="LineNr"> 772 </span> c3/return +<span id="L773" class="LineNr"> 773 </span> +<span id="L774" class="LineNr"> 774 </span><span class="Constant">$compute-offsets:abort</span>: +<span id="L775" class="LineNr"> 775 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L776" class="LineNr"> 776 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L777" class="LineNr"> 777 </span> 68/push <span class="Constant">"'==' must be followed by segment name and optionally an address\n"</span>/imm32 +<span id="L778" class="LineNr"> 778 </span> 68/push 2/imm32/stderr +<span id="L779" class="LineNr"> 779 </span> <span class="subxS2Comment"># . . call</span> +<span id="L780" class="LineNr"> 780 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L781" class="LineNr"> 781 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L782" class="LineNr"> 782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L783" class="LineNr"> 783 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L784" class="LineNr"> 784 </span> bb/copy-to-ebx 1/imm32 +<span id="L785" class="LineNr"> 785 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L786" class="LineNr"> 786 </span> <span class="subxComment"># never gets here</span> +<span id="L787" class="LineNr"> 787 </span> +<span id="L788" class="LineNr"> 788 </span><span class="Constant">$compute-offsets:error-bad-segment-address</span>: +<span id="L789" class="LineNr"> 789 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L790" class="LineNr"> 790 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L791" class="LineNr"> 791 </span> 68/push <span class="Constant">"'==' specifies an address that implies negative padding\n"</span>/imm32 +<span id="L792" class="LineNr"> 792 </span> 68/push 2/imm32/stderr +<span id="L793" class="LineNr"> 793 </span> <span class="subxS2Comment"># . . call</span> +<span id="L794" class="LineNr"> 794 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L795" class="LineNr"> 795 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L796" class="LineNr"> 796 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L797" class="LineNr"> 797 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L798" class="LineNr"> 798 </span> bb/copy-to-ebx 1/imm32 +<span id="L799" class="LineNr"> 799 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L800" class="LineNr"> 800 </span> <span class="subxComment"># never gets here</span> +<span id="L801" class="LineNr"> 801 </span> +<span id="L802" class="LineNr"> 802 </span><span class="subxTest">test-compute-offsets</span>: +<span id="L803" class="LineNr"> 803 </span> <span class="subxComment"># input:</span> +<span id="L804" class="LineNr"> 804 </span> <span class="subxComment"># == code</span> +<span id="L805" class="LineNr"> 805 </span> <span class="subxComment"># ab x/imm32 # skip comment</span> +<span id="L806" class="LineNr"> 806 </span> <span class="subxComment"># == data</span> +<span id="L807" class="LineNr"> 807 </span> <span class="subxComment"># 00</span> +<span id="L808" class="LineNr"> 808 </span> <span class="subxComment"># x:</span> +<span id="L809" class="LineNr"> 809 </span> <span class="subxComment"># 34</span> +<span id="L810" class="LineNr"> 810 </span> <span class="subxComment">#</span> +<span id="L811" class="LineNr"> 811 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L812" class="LineNr"> 812 </span> <span class="subxComment"># label 'x' is at address 0x7c06.</span> +<span id="L813" class="LineNr"> 813 </span> <span class="subxComment">#</span> +<span id="L814" class="LineNr"> 814 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L815" class="LineNr"> 815 </span> 55/push-ebp +<span id="L816" class="LineNr"> 816 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L817" class="LineNr"> 817 </span> <span class="subxComment"># setup</span> +<span id="L818" class="LineNr"> 818 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L819" class="LineNr"> 819 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L820" class="LineNr"> 820 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L821" class="LineNr"> 821 </span> <span class="subxS2Comment"># . . call</span> +<span id="L822" class="LineNr"> 822 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L823" class="LineNr"> 823 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L824" class="LineNr"> 824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L825" class="LineNr"> 825 </span> <span class="subxComment"># var labels/edx: (stream byte 2*12)</span> +<span id="L826" class="LineNr"> 826 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L827" class="LineNr"> 827 </span> 68/push 0x18/imm32/size +<span id="L828" class="LineNr"> 828 </span> 68/push 0/imm32/read +<span id="L829" class="LineNr"> 829 </span> 68/push 0/imm32/write +<span id="L830" class="LineNr"> 830 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L831" class="LineNr"> 831 </span> <span class="subxComment"># initialize input</span> +<span id="L832" class="LineNr"> 832 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L833" class="LineNr"> 833 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L834" class="LineNr"> 834 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L835" class="LineNr"> 835 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L836" class="LineNr"> 836 </span> <span class="subxS2Comment"># . . call</span> +<span id="L837" class="LineNr"> 837 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L838" class="LineNr"> 838 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L839" class="LineNr"> 839 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L840" class="LineNr"> 840 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32 # skip comment\n")</span> +<span id="L841" class="LineNr"> 841 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L842" class="LineNr"> 842 </span> 68/push <span class="Constant">"ab x/imm32 # skip comment\n"</span>/imm32 +<span id="L843" class="LineNr"> 843 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L844" class="LineNr"> 844 </span> <span class="subxS2Comment"># . . call</span> +<span id="L845" class="LineNr"> 845 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L846" class="LineNr"> 846 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L847" class="LineNr"> 847 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L848" class="LineNr"> 848 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L849" class="LineNr"> 849 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L850" class="LineNr"> 850 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L851" class="LineNr"> 851 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L852" class="LineNr"> 852 </span> <span class="subxS2Comment"># . . call</span> +<span id="L853" class="LineNr"> 853 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L854" class="LineNr"> 854 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L855" class="LineNr"> 855 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L856" class="LineNr"> 856 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> +<span id="L857" class="LineNr"> 857 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L858" class="LineNr"> 858 </span> 68/push <span class="Constant">"00\n"</span>/imm32 +<span id="L859" class="LineNr"> 859 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L860" class="LineNr"> 860 </span> <span class="subxS2Comment"># . . call</span> +<span id="L861" class="LineNr"> 861 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L862" class="LineNr"> 862 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L863" class="LineNr"> 863 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L864" class="LineNr"> 864 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L865" class="LineNr"> 865 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L866" class="LineNr"> 866 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L867" class="LineNr"> 867 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L868" class="LineNr"> 868 </span> <span class="subxS2Comment"># . . call</span> +<span id="L869" class="LineNr"> 869 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L870" class="LineNr"> 870 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L871" class="LineNr"> 871 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L872" class="LineNr"> 872 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L873" class="LineNr"> 873 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L874" class="LineNr"> 874 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L875" class="LineNr"> 875 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L876" class="LineNr"> 876 </span> <span class="subxS2Comment"># . . call</span> +<span id="L877" class="LineNr"> 877 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L878" class="LineNr"> 878 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L879" class="LineNr"> 879 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L880" class="LineNr"> 880 </span> <span class="subxComment"># compute-offsets(_test-input-stream, labels)</span> +<span id="L881" class="LineNr"> 881 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L882" class="LineNr"> 882 </span> 52/push-edx +<span id="L883" class="LineNr"> 883 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L884" class="LineNr"> 884 </span> <span class="subxS2Comment"># . . call</span> +<span id="L885" class="LineNr"> 885 </span> e8/call <a href='survey_baremetal.subx.html#L462'>compute-offsets</a>/disp32 +<span id="L886" class="LineNr"> 886 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L887" class="LineNr"> 887 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L888" class="Folded"> 888 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L914" class="LineNr"> 914 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00007c06.", msg)</span> +<span id="L915" class="LineNr"> 915 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L916" class="LineNr"> 916 </span> 68/push <span class="Constant">"F - test-compute-offsets"</span>/imm32 +<span id="L917" class="LineNr"> 917 </span> 68/push <span class="Constant">"label 'x' is at address 0x00007c06."</span>/imm32 +<span id="L918" class="LineNr"> 918 </span> <span class="subxS2Comment"># . . call</span> +<span id="L919" class="LineNr"> 919 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L920" class="LineNr"> 920 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L921" class="LineNr"> 921 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L922" class="LineNr"> 922 </span> <span class="subxS1Comment"># . check-ints-equal(labels->write, 0xc, msg)</span> +<span id="L923" class="LineNr"> 923 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L924" class="LineNr"> 924 </span> 68/push <span class="Constant">"F - test-compute-offsets-maintains-labels-write-index"</span>/imm32 +<span id="L925" class="LineNr"> 925 </span> 68/push 0xc/imm32/1-entry +<span id="L926" class="LineNr"> 926 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L927" class="LineNr"> 927 </span> <span class="subxS2Comment"># . . call</span> +<span id="L928" class="LineNr"> 928 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L929" class="LineNr"> 929 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L930" class="LineNr"> 930 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L931" class="LineNr"> 931 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L932" class="LineNr"> 932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x24/imm32 <span class="subxComment"># add to esp</span> +<span id="L933" class="LineNr"> 933 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L934" class="LineNr"> 934 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L935" class="LineNr"> 935 </span> 5d/pop-to-ebp +<span id="L936" class="LineNr"> 936 </span> c3/return +<span id="L937" class="LineNr"> 937 </span> +<span id="L938" class="LineNr"> 938 </span><span class="subxComment"># global scratch space for emit-output</span> +<span id="L939" class="LineNr"> 939 </span>== data +<span id="L940" class="LineNr"> 940 </span> +<span id="L941" class="LineNr"> 941 </span><span class="subxFunction">emit-output:datum</span>: <span class="subxComment"># slice</span> +<span id="L942" class="LineNr"> 942 </span> 0/imm32/start +<span id="L943" class="LineNr"> 943 </span> 0/imm32/end +<span id="L944" class="LineNr"> 944 </span> +<span id="L945" class="LineNr"> 945 </span>== code +<span id="L946" class="LineNr"> 946 </span> +<span id="L947" class="LineNr"> 947 </span><span class="subxFunction">emit-output</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), labels: (addr stream {(handle array byte), address})</span> +<span id="L948" class="LineNr"> 948 </span> <span class="subxComment"># pseudocode:</span> +<span id="L949" class="LineNr"> 949 </span> <span class="subxComment"># var address-of-next-instruction = 0x7c00</span> +<span id="L950" class="LineNr"> 950 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L951" class="LineNr"> 951 </span> <span class="subxComment"># line-loop:</span> +<span id="L952" class="LineNr"> 952 </span> <span class="subxComment"># while true</span> +<span id="L953" class="LineNr"> 953 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L954" class="LineNr"> 954 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L956" class="LineNr"> 956 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> +<span id="L957" class="LineNr"> 957 </span> <span class="subxComment"># var far-jump-or-call? = far-jump-or-call?(line)</span> +<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L959" class="LineNr"> 959 </span> <span class="subxComment"># while true</span> +<span id="L960" class="LineNr"> 960 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L962" class="LineNr"> 962 </span> <span class="subxComment"># break</span> +<span id="L963" class="LineNr"> 963 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L964" class="LineNr"> 964 </span> <span class="subxComment"># break</span> +<span id="L965" class="LineNr"> 965 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L966" class="LineNr"> 966 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L967" class="LineNr"> 967 </span> <span class="subxComment"># if slice-equal?(word-slice, "==") # no need for segment header lines</span> +<span id="L968" class="LineNr"> 968 </span> <span class="subxComment"># word-slice = next-word(line) # skip segment name</span> +<span id="L969" class="LineNr"> 969 </span> <span class="subxComment"># word-slice = next-word(line)</span> +<span id="L970" class="LineNr"> 970 </span> <span class="subxComment"># if !slice-empty?(word-slice)</span> +<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># new-address = parse-hex-int-from-slice(word-slice)</span> +<span id="L972" class="LineNr"> 972 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L973" class="LineNr"> 973 </span> <span class="subxComment"># while address-of-next-instruction < new-address</span> +<span id="L974" class="LineNr"> 974 </span> <span class="subxComment"># write-buffered("00")</span> +<span id="L975" class="LineNr"> 975 </span> <span class="subxComment"># ++address-of-next-instruction</span> +<span id="L976" class="LineNr"> 976 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L978" class="LineNr"> 978 </span> <span class="subxComment"># if length(word-slice) == 2</span> +<span id="L979" class="LineNr"> 979 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L980" class="LineNr"> 980 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L981" class="LineNr"> 981 </span> <span class="subxComment"># continue</span> +<span id="L982" class="LineNr"> 982 </span> <span class="subxComment"># var datum: (addr slice) = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># var address: (addr int) = get-slice(labels, datum)</span> +<span id="L984" class="LineNr"> 984 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> +<span id="L985" class="LineNr"> 985 </span> <span class="subxComment"># emit(out, *address, 1)</span> +<span id="L986" class="LineNr"> 986 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm16")</span> +<span id="L987" class="LineNr"> 987 </span> <span class="subxComment"># emit(out, *address, 2)</span> +<span id="L988" class="LineNr"> 988 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm32")</span> +<span id="L989" class="LineNr"> 989 </span> <span class="subxComment"># emit(out, *address, 4)</span> +<span id="L990" class="LineNr"> 990 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp8")</span> +<span id="L991" class="LineNr"> 991 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> +<span id="L992" class="LineNr"> 992 </span> <span class="subxComment"># emit(out, value, 1)</span> +<span id="L993" class="LineNr"> 993 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp32")</span> +<span id="L994" class="LineNr"> 994 </span> <span class="subxComment"># if far-jump-or-call?</span> +<span id="L995" class="LineNr"> 995 </span> <span class="subxComment"># value = *address - address-of-next-instruction</span> +<span id="L996" class="LineNr"> 996 </span> <span class="subxComment"># else</span> +<span id="L997" class="LineNr"> 997 </span> <span class="subxComment"># value = *address</span> +<span id="L998" class="LineNr"> 998 </span> <span class="subxComment"># emit(out, value, 4)</span> +<span id="L999" class="LineNr"> 999 </span> <span class="subxComment"># else</span> +<span id="L1000" class="LineNr">1000 </span> <span class="subxComment"># abort</span> +<span id="L1001" class="LineNr">1001 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L1002" class="LineNr">1002 </span> <span class="subxComment">#</span> +<span id="L1003" class="LineNr">1003 </span> <span class="subxComment"># registers:</span> +<span id="L1004" class="LineNr">1004 </span> <span class="subxComment"># line: ecx</span> +<span id="L1005" class="LineNr">1005 </span> <span class="subxComment"># word-slice: edx</span> +<span id="L1006" class="LineNr">1006 </span> <span class="subxComment"># address-of-next-instruction: ebx</span> +<span id="L1007" class="LineNr">1007 </span> <span class="subxComment"># far-jump-or-call?: edi</span> +<span id="L1008" class="LineNr">1008 </span> <span class="subxComment"># address: esi (inner loop only)</span> +<span id="L1009" class="LineNr">1009 </span> <span class="subxComment"># temporaries: eax, esi (outer loop)</span> +<span id="L1010" class="LineNr">1010 </span> <span class="subxComment">#</span> +<span id="L1011" class="LineNr">1011 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1012" class="LineNr">1012 </span> 55/push-ebp +<span id="L1013" class="LineNr">1013 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1014" class="LineNr">1014 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1015" class="LineNr">1015 </span> 50/push-eax +<span id="L1016" class="LineNr">1016 </span> 51/push-ecx +<span id="L1017" class="LineNr">1017 </span> 52/push-edx +<span id="L1018" class="LineNr">1018 </span> 53/push-ebx +<span id="L1019" class="LineNr">1019 </span> 56/push-esi +<span id="L1020" class="LineNr">1020 </span> 57/push-edi +<span id="L1021" class="LineNr">1021 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L1022" class="LineNr">1022 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1023" class="LineNr">1023 </span> 68/push 0x200/imm32/size +<span id="L1024" class="LineNr">1024 </span> 68/push 0/imm32/read +<span id="L1025" class="LineNr">1025 </span> 68/push 0/imm32/write +<span id="L1026" class="LineNr">1026 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1027" class="LineNr">1027 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L1028" class="LineNr">1028 </span> 68/push 0/imm32/end +<span id="L1029" class="LineNr">1029 </span> 68/push 0/imm32/start +<span id="L1030" class="LineNr">1030 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1031" class="LineNr">1031 </span> <span class="subxComment"># var address-of-next-instruction/ebx = 0x7c00</span> +<span id="L1032" class="LineNr">1032 </span> bb/copy-to-ebx 0x7c00/imm32 +<span id="L1033" class="LineNr">1033 </span><span class="Constant">$emit-output:line-loop</span>: +<span id="L1034" class="LineNr">1034 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L1035" class="LineNr">1035 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1036" class="LineNr">1036 </span> 51/push-ecx +<span id="L1037" class="LineNr">1037 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1038" class="LineNr">1038 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1039" class="LineNr">1039 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1040" class="LineNr">1040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1041" class="LineNr">1041 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L1042" class="LineNr">1042 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1043" class="LineNr">1043 </span> 51/push-ecx +<span id="L1044" class="LineNr">1044 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1045" class="LineNr">1045 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1046" class="LineNr">1046 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 +<span id="L1047" class="LineNr">1047 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1048" class="LineNr">1048 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1049" class="Folded">1049 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1082" class="LineNr">1082 </span><span class="Constant">$emit-output:check-for-end-of-input</span>: +<span id="L1083" class="LineNr">1083 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L1084" class="LineNr">1084 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> +<span id="L1085" class="LineNr">1085 </span> 0f 84/jump-if-= $emit-output:end/disp32 +<span id="L1086" class="LineNr">1086 </span> <span class="subxComment"># address-of-next-instruction += num-bytes(line)</span> +<span id="L1087" class="LineNr">1087 </span> <span class="subxS1Comment"># . eax = num-bytes(line)</span> +<span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1089" class="LineNr">1089 </span> 51/push-ecx +<span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1091" class="LineNr">1091 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L1092" class="LineNr">1092 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1093" class="LineNr">1093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1094" class="LineNr">1094 </span> <span class="subxS1Comment"># . ebx += eax</span> +<span id="L1095" class="LineNr">1095 </span> 01/add 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ebx</span> +<span id="L1096" class="LineNr">1096 </span> <span class="subxComment"># var far-jump-or-call?/edi: boolean = far-jump-or-call?(line)</span> +<span id="L1097" class="LineNr">1097 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1098" class="LineNr">1098 </span> 51/push-ecx +<span id="L1099" class="LineNr">1099 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1100" class="LineNr">1100 </span> e8/call <a href='survey_baremetal.subx.html#L2518'>far-jump-or-call?</a>/disp32 +<span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1102" class="LineNr">1102 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1103" class="LineNr">1103 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L1104" class="LineNr">1104 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1105" class="LineNr">1105 </span> 51/push-ecx +<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1107" class="LineNr">1107 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L1108" class="LineNr">1108 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1109" class="LineNr">1109 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1110" class="LineNr">1110 </span><span class="Constant">$emit-output:word-loop</span>: +<span id="L1111" class="LineNr">1111 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L1112" class="LineNr">1112 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1113" class="LineNr">1113 </span> 52/push-edx +<span id="L1114" class="LineNr">1114 </span> 51/push-ecx +<span id="L1115" class="LineNr">1115 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1116" class="LineNr">1116 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L1117" class="LineNr">1117 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1118" class="LineNr">1118 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1119" class="Folded">1119 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1152" class="LineNr">1152 </span><span class="Constant">$emit-output:check-for-end-of-line</span>: +<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L1154" class="LineNr">1154 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L1155" class="LineNr">1155 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1156" class="LineNr">1156 </span> 52/push-edx +<span id="L1157" class="LineNr">1157 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1158" class="LineNr">1158 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L1159" class="LineNr">1159 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1160" class="LineNr">1160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1161" class="LineNr">1161 </span> <span class="subxS1Comment"># . if (eax != 0) break</span> +<span id="L1162" class="LineNr">1162 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1163" class="LineNr">1163 </span> 0f 85/jump-if-!= $emit-output:next-line/disp32 +<span id="L1164" class="LineNr">1164 </span><span class="Constant">$emit-output:check-for-comment</span>: +<span id="L1165" class="LineNr">1165 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L1166" class="LineNr">1166 </span> <span class="subxS1Comment"># . start/esi = word-slice->start</span> +<span id="L1167" class="LineNr">1167 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to esi</span> +<span id="L1168" class="LineNr">1168 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L1169" class="LineNr">1169 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L1170" class="LineNr">1170 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> +<span id="L1171" class="LineNr">1171 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L1172" class="LineNr">1172 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L1173" class="LineNr">1173 </span> 0f 84/jump-if-= $emit-output:next-line/disp32 +<span id="L1174" class="LineNr">1174 </span><span class="Constant">$emit-output:check-for-label</span>: +<span id="L1175" class="LineNr">1175 </span> <span class="subxComment"># if label?(word-slice) break</span> +<span id="L1176" class="LineNr">1176 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> +<span id="L1177" class="LineNr">1177 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1178" class="LineNr">1178 </span> 52/push-edx +<span id="L1179" class="LineNr">1179 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1180" class="LineNr">1180 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 +<span id="L1181" class="LineNr">1181 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1182" class="LineNr">1182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1183" class="LineNr">1183 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L1184" class="LineNr">1184 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1185" class="LineNr">1185 </span> 0f 85/jump-if-!= $emit-output:line-loop/disp32 +<span id="L1186" class="LineNr">1186 </span><span class="Constant">$emit-output:check-for-segment-header</span>: +<span id="L1187" class="LineNr">1187 </span> <span class="subxComment"># if !slice-equal?(word-slice, "==") goto next check</span> +<span id="L1188" class="LineNr">1188 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L1189" class="LineNr">1189 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1190" class="LineNr">1190 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L1191" class="LineNr">1191 </span> 52/push-edx +<span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1193" class="LineNr">1193 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L1194" class="LineNr">1194 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1195" class="LineNr">1195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1196" class="LineNr">1196 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1197" class="LineNr">1197 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1198" class="LineNr">1198 </span> 0f 84/jump-if-= $emit-output:2-character/disp32 +<span id="L1199" class="LineNr">1199 </span> <span class="subxComment"># skip segment name</span> +<span id="L1200" class="LineNr">1200 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> +<span id="L1201" class="LineNr">1201 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1202" class="LineNr">1202 </span> 52/push-edx +<span id="L1203" class="LineNr">1203 </span> 51/push-ecx +<span id="L1204" class="LineNr">1204 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1205" class="LineNr">1205 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L1206" class="LineNr">1206 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1207" class="LineNr">1207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1208" class="LineNr">1208 </span> <span class="subxComment"># compute segment address if it exists</span> +<span id="L1209" class="LineNr">1209 </span> <span class="subxS1Comment"># . next-word(line, word-slice)</span> +<span id="L1210" class="LineNr">1210 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1211" class="LineNr">1211 </span> 52/push-edx +<span id="L1212" class="LineNr">1212 </span> 51/push-ecx +<span id="L1213" class="LineNr">1213 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1214" class="LineNr">1214 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L1215" class="LineNr">1215 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1216" class="LineNr">1216 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1217" class="LineNr">1217 </span> <span class="subxS1Comment"># . if slice-empty?(word-slice) goto padding-done</span> +<span id="L1218" class="LineNr">1218 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1219" class="LineNr">1219 </span> 52/push-edx +<span id="L1220" class="LineNr">1220 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1221" class="LineNr">1221 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1223" class="LineNr">1223 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . .</span> +<span id="L1225" class="LineNr">1225 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1226" class="LineNr">1226 </span> 0f 85/jump-if-!= $emit-output:padding-done/disp32 +<span id="L1227" class="LineNr">1227 </span> <span class="subxS1Comment"># . var new-address/eax: int = parse-hex-int-from-slice(word-slice)</span> +<span id="L1228" class="LineNr">1228 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1229" class="LineNr">1229 </span> 52/push-edx +<span id="L1230" class="LineNr">1230 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1231" class="LineNr">1231 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L1232" class="LineNr">1232 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1233" class="LineNr">1233 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1234" class="LineNr">1234 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L1235" class="LineNr">1235 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> +<span id="L1236" class="LineNr">1236 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1237" class="LineNr">1237 </span> 68/push <span class="Constant">"# "</span>/imm32 +<span id="L1238" class="LineNr">1238 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1239" class="LineNr">1239 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1240" class="LineNr">1240 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1241" class="LineNr">1241 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1242" class="LineNr">1242 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1243" class="LineNr">1243 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> +<span id="L1244" class="LineNr">1244 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1245" class="LineNr">1245 </span> 53/push-ebx +<span id="L1246" class="LineNr">1246 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1247" class="LineNr">1247 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1248" class="LineNr">1248 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L1249" class="LineNr">1249 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1250" class="LineNr">1250 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1251" class="LineNr">1251 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L1252" class="LineNr">1252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1253" class="LineNr">1253 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1254" class="LineNr">1254 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1255" class="LineNr">1255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1256" class="LineNr">1256 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1257" class="LineNr">1257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1258" class="LineNr">1258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1259" class="LineNr">1259 </span><span class="Constant">$emit-output:padding-loop</span>: +<span id="L1260" class="LineNr">1260 </span> <span class="subxComment"># if (address-of-next-instruction >= new-address) goto padding-loop-done</span> +<span id="L1261" class="LineNr">1261 </span> 39/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare ebx with eax</span> +<span id="L1262" class="LineNr">1262 </span> 73/jump-if-addr>= $emit-output:padding-loop-done/disp8 +<span id="L1263" class="LineNr">1263 </span> <span class="subxComment"># if (address-of-next-instruction % 8 == 0) write-buffered("\n")</span> +<span id="L1264" class="LineNr">1264 </span> 53/push-ebx +<span id="L1265" class="LineNr">1265 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/imm32 <span class="subxComment"># bitwise and of ebx</span> +<span id="L1266" class="LineNr">1266 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare ebx</span> +<span id="L1267" class="LineNr">1267 </span> 5b/pop-to-ebx +<span id="L1268" class="LineNr">1268 </span> 75/jump-if-!= $emit-output:padding-core/disp8 +<span id="L1269" class="LineNr">1269 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L1270" class="LineNr">1270 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1271" class="LineNr">1271 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1272" class="LineNr">1272 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1273" class="LineNr">1273 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1274" class="LineNr">1274 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1275" class="LineNr">1275 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1276" class="LineNr">1276 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1277" class="LineNr">1277 </span><span class="Constant">$emit-output:padding-core</span>: +<span id="L1278" class="LineNr">1278 </span> <span class="subxComment"># write-buffered("00")</span> +<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1280" class="LineNr">1280 </span> 68/push <span class="Constant">"00 "</span>/imm32 +<span id="L1281" class="LineNr">1281 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1282" class="LineNr">1282 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1283" class="LineNr">1283 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1285" class="LineNr">1285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1286" class="LineNr">1286 </span> <span class="subxComment"># ++address-of-next-instruction</span> +<span id="L1287" class="LineNr">1287 </span> 43/increment-ebx +<span id="L1288" class="LineNr">1288 </span> <span class="subxComment"># loop</span> +<span id="L1289" class="LineNr">1289 </span> eb/jump $emit-output:padding-loop/disp8 +<span id="L1290" class="LineNr">1290 </span><span class="Constant">$emit-output:padding-loop-done</span>: +<span id="L1291" class="LineNr">1291 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L1292" class="LineNr">1292 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1293" class="LineNr">1293 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1294" class="LineNr">1294 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1296" class="LineNr">1296 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1297" class="LineNr">1297 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1298" class="LineNr">1298 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1299" class="LineNr">1299 </span><span class="Constant">$emit-output:padding-done</span>: +<span id="L1300" class="LineNr">1300 </span> <span class="subxComment"># write-buffered(out, "# " address-of-next-instruction "\n")</span> +<span id="L1301" class="LineNr">1301 </span> <span class="subxS1Comment"># . write-buffered(out, "# ")</span> +<span id="L1302" class="LineNr">1302 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1303" class="LineNr">1303 </span> 68/push <span class="Constant">"# "</span>/imm32 +<span id="L1304" class="LineNr">1304 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1305" class="LineNr">1305 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1306" class="LineNr">1306 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1307" class="LineNr">1307 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1308" class="LineNr">1308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1309" class="LineNr">1309 </span> <span class="subxS1Comment"># . write-int32-hex-buffered(out, address-of-next-instruction)</span> +<span id="L1310" class="LineNr">1310 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1311" class="LineNr">1311 </span> 53/push-ebx +<span id="L1312" class="LineNr">1312 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1313" class="LineNr">1313 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1314" class="LineNr">1314 </span> e8/call <a href='117write-int-hex.subx.html#L288'>write-int32-hex-buffered</a>/disp32 +<span id="L1315" class="LineNr">1315 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1316" class="LineNr">1316 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1317" class="LineNr">1317 </span> <span class="subxS1Comment"># . write-buffered(out, "\n")</span> +<span id="L1318" class="LineNr">1318 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1319" class="LineNr">1319 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1320" class="LineNr">1320 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1321" class="LineNr">1321 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1322" class="LineNr">1322 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1323" class="LineNr">1323 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1324" class="LineNr">1324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1325" class="LineNr">1325 </span> <span class="subxComment">#</span> +<span id="L1326" class="LineNr">1326 </span> e9/jump $emit-output:line-loop/disp32 +<span id="L1327" class="LineNr">1327 </span><span class="Constant">$emit-output:2-character</span>: +<span id="L1328" class="LineNr">1328 </span> <span class="subxComment"># if (size(word-slice) != 2) goto next check</span> +<span id="L1329" class="LineNr">1329 </span> <span class="subxS1Comment"># . eax = size(word-slice)</span> +<span id="L1330" class="LineNr">1330 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to eax</span> +<span id="L1331" class="LineNr">1331 </span> 2b/subtract 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edx from eax</span> +<span id="L1332" class="LineNr">1332 </span> <span class="subxS1Comment"># . if (eax != 2) goto next check</span> +<span id="L1333" class="LineNr">1333 </span> 3d/compare-eax-and 2/imm32 +<span id="L1334" class="LineNr">1334 </span> 75/jump-if-!= $emit-output:check-metadata/disp8 +<span id="L1335" class="LineNr">1335 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L1336" class="LineNr">1336 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1337" class="LineNr">1337 </span> 52/push-edx +<span id="L1338" class="LineNr">1338 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1339" class="LineNr">1339 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1340" class="LineNr">1340 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1341" class="LineNr">1341 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1342" class="LineNr">1342 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1343" class="LineNr">1343 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L1344" class="LineNr">1344 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1345" class="LineNr">1345 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L1346" class="LineNr">1346 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1347" class="LineNr">1347 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1348" class="LineNr">1348 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1349" class="LineNr">1349 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1350" class="LineNr">1350 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1351" class="LineNr">1351 </span> <span class="subxComment"># continue</span> +<span id="L1352" class="LineNr">1352 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1353" class="LineNr">1353 </span><span class="Constant">$emit-output:check-metadata</span>: +<span id="L1354" class="LineNr">1354 </span> <span class="subxH1Comment"># - if we get here, 'word-slice' must be a label to be looked up</span> +<span id="L1355" class="LineNr">1355 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L1356" class="LineNr">1356 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1357" class="LineNr">1357 </span> 68/push <a href='survey_baremetal.subx.html#L947'>emit-output</a>:datum/imm32 +<span id="L1358" class="LineNr">1358 </span> 68/push 0x2f/imm32/slash +<span id="L1359" class="LineNr">1359 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L1360" class="LineNr">1360 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L1361" class="LineNr">1361 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1362" class="LineNr">1362 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L1363" class="LineNr">1363 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1364" class="LineNr">1364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1365" class="Folded">1365 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># address/esi: (addr int) = get-slice(labels, datum, row-size=12, "label table")</span> +<span id="L1399" class="LineNr">1399 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> +<span id="L1400" class="LineNr">1400 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1401" class="LineNr">1401 </span> 68/push <span class="Constant">"label table"</span>/imm32 +<span id="L1402" class="LineNr">1402 </span> 68/push 0xc/imm32/row-size +<span id="L1403" class="LineNr">1403 </span> 68/push <a href='survey_baremetal.subx.html#L947'>emit-output</a>:datum/imm32 +<span id="L1404" class="LineNr">1404 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L1405" class="LineNr">1405 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1406" class="LineNr">1406 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L1407" class="LineNr">1407 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1408" class="LineNr">1408 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1409" class="LineNr">1409 </span> <span class="subxS1Comment"># . esi = eax</span> +<span id="L1410" class="LineNr">1410 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L1411" class="LineNr">1411 </span><span class="Constant">$emit-output:check-imm8</span>: +<span id="L1412" class="LineNr">1412 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm8")) goto next check</span> +<span id="L1413" class="LineNr">1413 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm8")</span> +<span id="L1414" class="LineNr">1414 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1415" class="LineNr">1415 </span> 68/push <span class="Constant">"imm8"</span>/imm32 +<span id="L1416" class="LineNr">1416 </span> 52/push-edx +<span id="L1417" class="LineNr">1417 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1418" class="LineNr">1418 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1419" class="LineNr">1419 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1420" class="LineNr">1420 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1421" class="LineNr">1421 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L1422" class="LineNr">1422 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1423" class="LineNr">1423 </span> 74/jump-if-= $emit-output:check-imm16/disp8 +<span id="L1424" class="LineNr">1424 </span><span class="Constant">$emit-output:emit-imm8</span>: +<span id="L1425" class="LineNr">1425 </span> <span class="subxComment"># emit-hex(out, *address, 1)</span> +<span id="L1426" class="LineNr">1426 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1427" class="LineNr">1427 </span> 68/push 1/imm32 +<span id="L1428" class="LineNr">1428 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L1429" class="LineNr">1429 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1430" class="LineNr">1430 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1431" class="LineNr">1431 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1433" class="LineNr">1433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1434" class="LineNr">1434 </span> <span class="subxComment"># continue</span> +<span id="L1435" class="LineNr">1435 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1436" class="LineNr">1436 </span><span class="Constant">$emit-output:check-imm16</span>: +<span id="L1437" class="LineNr">1437 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm16")) goto next check</span> +<span id="L1438" class="LineNr">1438 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm16")</span> +<span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1440" class="LineNr">1440 </span> 68/push <span class="Constant">"imm16"</span>/imm32 +<span id="L1441" class="LineNr">1441 </span> 52/push-edx +<span id="L1442" class="LineNr">1442 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1443" class="LineNr">1443 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1444" class="LineNr">1444 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1445" class="LineNr">1445 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1446" class="LineNr">1446 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1447" class="LineNr">1447 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1448" class="LineNr">1448 </span> 74/jump-if-= $emit-output:check-imm32/disp8 +<span id="L1449" class="Folded">1449 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1482" class="LineNr">1482 </span><span class="Constant">$emit-output:emit-imm16</span>: +<span id="L1483" class="LineNr">1483 </span> <span class="subxComment"># emit-hex(out, *address, 2)</span> +<span id="L1484" class="LineNr">1484 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1485" class="LineNr">1485 </span> 68/push 2/imm32 +<span id="L1486" class="LineNr">1486 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L1487" class="LineNr">1487 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1489" class="LineNr">1489 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1490" class="LineNr">1490 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1491" class="LineNr">1491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1492" class="LineNr">1492 </span> <span class="subxComment"># TODO: ensure that the higher 2 bytes are zero</span> +<span id="L1493" class="LineNr">1493 </span> <span class="subxComment"># continue</span> +<span id="L1494" class="LineNr">1494 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1495" class="LineNr">1495 </span><span class="Constant">$emit-output:check-imm32</span>: +<span id="L1496" class="LineNr">1496 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm32")) goto next check</span> +<span id="L1497" class="LineNr">1497 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm32")</span> +<span id="L1498" class="LineNr">1498 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1499" class="LineNr">1499 </span> 68/push <span class="Constant">"imm32"</span>/imm32 +<span id="L1500" class="LineNr">1500 </span> 52/push-edx +<span id="L1501" class="LineNr">1501 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1502" class="LineNr">1502 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1503" class="LineNr">1503 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1504" class="LineNr">1504 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1505" class="LineNr">1505 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1506" class="LineNr">1506 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1507" class="LineNr">1507 </span> 74/jump-if-= $emit-output:check-disp8/disp8 +<span id="L1508" class="Folded">1508 </span><span class="Folded">+-- 33 lines: #? # dump *address ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1541" class="LineNr">1541 </span><span class="Constant">$emit-output:emit-imm32</span>: +<span id="L1542" class="LineNr">1542 </span> <span class="subxComment"># emit-hex(out, *address, 4)</span> +<span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1544" class="LineNr">1544 </span> 68/push 4/imm32 +<span id="L1545" class="LineNr">1545 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L1546" class="LineNr">1546 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1547" class="LineNr">1547 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1548" class="LineNr">1548 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1549" class="LineNr">1549 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1550" class="LineNr">1550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1551" class="LineNr">1551 </span> <span class="subxComment"># continue</span> +<span id="L1552" class="LineNr">1552 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1553" class="LineNr">1553 </span><span class="Constant">$emit-output:check-disp8</span>: +<span id="L1554" class="LineNr">1554 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp8")) goto next check</span> +<span id="L1555" class="LineNr">1555 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp8")</span> +<span id="L1556" class="LineNr">1556 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1557" class="LineNr">1557 </span> 68/push <span class="Constant">"disp8"</span>/imm32 +<span id="L1558" class="LineNr">1558 </span> 52/push-edx +<span id="L1559" class="LineNr">1559 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1560" class="LineNr">1560 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1561" class="LineNr">1561 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1562" class="LineNr">1562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1563" class="LineNr">1563 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1564" class="LineNr">1564 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1565" class="LineNr">1565 </span> 74/jump-if-= $emit-output:check-disp16/disp8 +<span id="L1566" class="LineNr">1566 </span><span class="Constant">$emit-output:emit-disp8</span>: +<span id="L1567" class="LineNr">1567 </span> <span class="subxComment"># emit-hex(out, *address - address-of-next-instruction, 1)</span> +<span id="L1568" class="LineNr">1568 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1569" class="LineNr">1569 </span> 68/push 1/imm32 +<span id="L1570" class="LineNr">1570 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1571" class="LineNr">1571 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L1572" class="LineNr">1572 </span> 50/push-eax +<span id="L1573" class="LineNr">1573 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1574" class="LineNr">1574 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1575" class="LineNr">1575 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1577" class="LineNr">1577 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1578" class="LineNr">1578 </span> <span class="subxComment"># continue</span> +<span id="L1579" class="LineNr">1579 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1580" class="LineNr">1580 </span><span class="Constant">$emit-output:check-disp16</span>: +<span id="L1581" class="LineNr">1581 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp16")) goto next check</span> +<span id="L1582" class="LineNr">1582 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp16")</span> +<span id="L1583" class="LineNr">1583 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1584" class="LineNr">1584 </span> 68/push <span class="Constant">"disp16"</span>/imm32 +<span id="L1585" class="LineNr">1585 </span> 52/push-edx +<span id="L1586" class="LineNr">1586 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1587" class="LineNr">1587 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1588" class="LineNr">1588 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1589" class="LineNr">1589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1590" class="LineNr">1590 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L1591" class="LineNr">1591 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1592" class="LineNr">1592 </span> 74/jump-if-= $emit-output:check-disp32/disp8 +<span id="L1593" class="LineNr">1593 </span><span class="Constant">$emit-output:emit-disp16</span>: +<span id="L1594" class="LineNr">1594 </span> <span class="subxComment"># emit-hex(out, *address - address-of-next-instruction, 2)</span> +<span id="L1595" class="LineNr">1595 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1596" class="LineNr">1596 </span> 68/push 2/imm32 +<span id="L1597" class="LineNr">1597 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1598" class="LineNr">1598 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L1599" class="LineNr">1599 </span> 50/push-eax +<span id="L1600" class="LineNr">1600 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1601" class="LineNr">1601 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1602" class="LineNr">1602 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1603" class="LineNr">1603 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1604" class="LineNr">1604 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1605" class="LineNr">1605 </span> <span class="subxComment"># continue</span> +<span id="L1606" class="LineNr">1606 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1607" class="LineNr">1607 </span><span class="Constant">$emit-output:check-disp32</span>: +<span id="L1608" class="LineNr">1608 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp32")) abort</span> +<span id="L1609" class="LineNr">1609 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp32")</span> +<span id="L1610" class="LineNr">1610 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1611" class="LineNr">1611 </span> 68/push <span class="Constant">"disp32"</span>/imm32 +<span id="L1612" class="LineNr">1612 </span> 52/push-edx +<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1614" class="LineNr">1614 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L1615" class="LineNr">1615 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1616" class="LineNr">1616 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1617" class="LineNr">1617 </span> <span class="subxS1Comment"># . if (eax == false) abort</span> +<span id="L1618" class="LineNr">1618 </span> 3d/compare-eax-and 0/imm32/false +<span id="L1619" class="LineNr">1619 </span> 0f 84/jump-if-= $emit-output:abort/disp32 +<span id="L1620" class="LineNr">1620 </span><span class="Constant">$emit-output:emit-disp32</span>: +<span id="L1621" class="LineNr">1621 </span> <span class="subxComment"># var value/eax = *address</span> +<span id="L1622" class="LineNr">1622 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1623" class="LineNr">1623 </span> <span class="subxComment"># if (far-jump-or-call?) value -= address-of-next-instruction</span> +<span id="L1624" class="LineNr">1624 </span> 81 7/subop/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edi</span> +<span id="L1625" class="LineNr">1625 </span> 74/jump-if-= $emit-output:really-emit-disp32/disp8 +<span id="L1626" class="LineNr">1626 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L1627" class="LineNr">1627 </span><span class="Constant">$emit-output:really-emit-disp32</span>: +<span id="L1628" class="LineNr">1628 </span> <span class="subxComment"># emit-hex(out, value, 4)</span> +<span id="L1629" class="LineNr">1629 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1630" class="LineNr">1630 </span> 68/push 4/imm32 +<span id="L1631" class="LineNr">1631 </span> 50/push-eax +<span id="L1632" class="LineNr">1632 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1633" class="LineNr">1633 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1634" class="LineNr">1634 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L1635" class="LineNr">1635 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1636" class="LineNr">1636 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># continue</span> +<span id="L1638" class="LineNr">1638 </span> e9/jump $emit-output:word-loop/disp32 +<span id="L1639" class="LineNr">1639 </span><span class="Constant">$emit-output:next-line</span>: +<span id="L1640" class="LineNr">1640 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L1641" class="LineNr">1641 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1642" class="LineNr">1642 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L1643" class="LineNr">1643 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1644" class="LineNr">1644 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1645" class="LineNr">1645 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L1646" class="LineNr">1646 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1647" class="LineNr">1647 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1648" class="LineNr">1648 </span> <span class="subxComment"># loop</span> +<span id="L1649" class="LineNr">1649 </span> e9/jump $emit-output:line-loop/disp32 +<span id="L1650" class="LineNr">1650 </span><span class="Constant">$emit-output:end</span>: +<span id="L1651" class="LineNr">1651 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L1652" class="LineNr">1652 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L1653" class="LineNr">1653 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1654" class="LineNr">1654 </span> 5f/pop-to-edi +<span id="L1655" class="LineNr">1655 </span> 5e/pop-to-esi +<span id="L1656" class="LineNr">1656 </span> 5b/pop-to-ebx +<span id="L1657" class="LineNr">1657 </span> 5a/pop-to-edx +<span id="L1658" class="LineNr">1658 </span> 59/pop-to-ecx +<span id="L1659" class="LineNr">1659 </span> 58/pop-to-eax +<span id="L1660" class="LineNr">1660 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1661" class="LineNr">1661 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1662" class="LineNr">1662 </span> 5d/pop-to-ebp +<span id="L1663" class="LineNr">1663 </span> c3/return +<span id="L1664" class="LineNr">1664 </span> +<span id="L1665" class="LineNr">1665 </span><span class="Constant">$emit-output:abort</span>: +<span id="L1666" class="LineNr">1666 </span> <span class="subxComment"># print(stderr, "missing metadata in " word-slice)</span> +<span id="L1667" class="LineNr">1667 </span> <span class="subxS1Comment"># . _write(2/stderr, "missing metadata in word ")</span> +<span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1669" class="LineNr">1669 </span> 68/push <span class="Constant">"emit-output: missing metadata in "</span>/imm32 +<span id="L1670" class="LineNr">1670 </span> 68/push 2/imm32/stderr +<span id="L1671" class="LineNr">1671 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1672" class="LineNr">1672 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L1673" class="LineNr">1673 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1674" class="LineNr">1674 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1675" class="LineNr">1675 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, word-slice)</span> +<span id="L1676" class="LineNr">1676 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1677" class="LineNr">1677 </span> 52/push-edx +<span id="L1678" class="LineNr">1678 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1679" class="LineNr">1679 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1680" class="LineNr">1680 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1682" class="LineNr">1682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1683" class="LineNr">1683 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L1684" class="LineNr">1684 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1685" class="LineNr">1685 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L1686" class="LineNr">1686 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1687" class="LineNr">1687 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1688" class="LineNr">1688 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1689" class="LineNr">1689 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1690" class="LineNr">1690 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L1691" class="LineNr">1691 </span> bb/copy-to-ebx 1/imm32 +<span id="L1692" class="LineNr">1692 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L1693" class="LineNr">1693 </span> <span class="subxComment"># never gets here</span> +<span id="L1694" class="LineNr">1694 </span> +<span id="L1695" class="LineNr">1695 </span><span class="subxTest">test-emit-output-non-far-control-flow</span>: +<span id="L1696" class="LineNr">1696 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> +<span id="L1697" class="LineNr">1697 </span> <span class="subxComment">#</span> +<span id="L1698" class="LineNr">1698 </span> <span class="subxComment"># input:</span> +<span id="L1699" class="LineNr">1699 </span> <span class="subxComment"># in:</span> +<span id="L1700" class="LineNr">1700 </span> <span class="subxComment"># == code</span> +<span id="L1701" class="LineNr">1701 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1702" class="LineNr">1702 </span> <span class="subxComment"># ij x/disp32</span> +<span id="L1703" class="LineNr">1703 </span> <span class="subxComment"># == data</span> +<span id="L1704" class="LineNr">1704 </span> <span class="subxComment"># 00</span> +<span id="L1705" class="LineNr">1705 </span> <span class="subxComment"># 34</span> +<span id="L1706" class="LineNr">1706 </span> <span class="subxComment"># labels:</span> +<span id="L1707" class="LineNr">1707 </span> <span class="subxComment"># - 'x': 0x11223344</span> +<span id="L1708" class="LineNr">1708 </span> <span class="subxComment">#</span> +<span id="L1709" class="LineNr">1709 </span> <span class="subxComment"># output:</span> +<span id="L1710" class="LineNr">1710 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1711" class="LineNr">1711 </span> <span class="subxComment"># ij 44 33 22 11</span> +<span id="L1712" class="LineNr">1712 </span> <span class="subxComment"># 00</span> +<span id="L1713" class="LineNr">1713 </span> <span class="subxComment"># 34</span> +<span id="L1714" class="LineNr">1714 </span> <span class="subxComment">#</span> +<span id="L1715" class="LineNr">1715 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1716" class="LineNr">1716 </span> 55/push-ebp +<span id="L1717" class="LineNr">1717 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1718" class="LineNr">1718 </span> <span class="subxComment"># setup</span> +<span id="L1719" class="LineNr">1719 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1721" class="LineNr">1721 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1723" class="LineNr">1723 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1724" class="LineNr">1724 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1725" class="LineNr">1725 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1726" class="LineNr">1726 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1727" class="LineNr">1727 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1728" class="LineNr">1728 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1729" class="LineNr">1729 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1730" class="LineNr">1730 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1731" class="LineNr">1731 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1732" class="LineNr">1732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1733" class="LineNr">1733 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1734" class="LineNr">1734 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1735" class="LineNr">1735 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1736" class="LineNr">1736 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1737" class="LineNr">1737 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1738" class="LineNr">1738 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1739" class="LineNr">1739 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1740" class="LineNr">1740 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1741" class="LineNr">1741 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1742" class="LineNr">1742 </span> 68/push 0xc0/imm32/size +<span id="L1743" class="LineNr">1743 </span> 68/push 0/imm32/read +<span id="L1744" class="LineNr">1744 </span> 68/push 0/imm32/write +<span id="L1745" class="LineNr">1745 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1746" class="LineNr">1746 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1747" class="LineNr">1747 </span> 68/push 0/imm32 +<span id="L1748" class="LineNr">1748 </span> 68/push 0/imm32 +<span id="L1749" class="LineNr">1749 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1750" class="LineNr">1750 </span> <span class="subxComment"># initialize input</span> +<span id="L1751" class="LineNr">1751 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1752" class="LineNr">1752 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1753" class="LineNr">1753 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1754" class="LineNr">1754 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1755" class="LineNr">1755 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1756" class="LineNr">1756 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1757" class="LineNr">1757 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1758" class="LineNr">1758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1759" class="LineNr">1759 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> +<span id="L1760" class="LineNr">1760 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1761" class="LineNr">1761 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 +<span id="L1762" class="LineNr">1762 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1763" class="LineNr">1763 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1764" class="LineNr">1764 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1765" class="LineNr">1765 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1766" class="LineNr">1766 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1767" class="LineNr">1767 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij x/disp32\n")</span> +<span id="L1768" class="LineNr">1768 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1769" class="LineNr">1769 </span> 68/push <span class="Constant">"ij x/disp32\n"</span>/imm32 +<span id="L1770" class="LineNr">1770 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1771" class="LineNr">1771 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1772" class="LineNr">1772 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1773" class="LineNr">1773 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1774" class="LineNr">1774 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1775" class="LineNr">1775 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data\n")</span> +<span id="L1776" class="LineNr">1776 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1777" class="LineNr">1777 </span> 68/push <span class="Constant">"== data\n"</span>/imm32 +<span id="L1778" class="LineNr">1778 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1779" class="LineNr">1779 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1780" class="LineNr">1780 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1781" class="LineNr">1781 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1782" class="LineNr">1782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1783" class="LineNr">1783 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> +<span id="L1784" class="LineNr">1784 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1785" class="LineNr">1785 </span> 68/push <span class="Constant">"00\n"</span>/imm32 +<span id="L1786" class="LineNr">1786 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1787" class="LineNr">1787 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1788" class="LineNr">1788 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1789" class="LineNr">1789 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1790" class="LineNr">1790 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1791" class="LineNr">1791 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L1792" class="LineNr">1792 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1793" class="LineNr">1793 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L1794" class="LineNr">1794 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1795" class="LineNr">1795 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1796" class="LineNr">1796 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1798" class="LineNr">1798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1799" class="LineNr">1799 </span> <span class="subxS1Comment"># . stream-add2(labels, "x", 0x11223344)</span> +<span id="L1800" class="LineNr">1800 </span> 68/push 0x11223344/imm32/label-address +<span id="L1801" class="LineNr">1801 </span> <span class="subxS2Comment"># . . push handle for "x"</span> +<span id="L1802" class="LineNr">1802 </span> 53/push-ebx +<span id="L1803" class="LineNr">1803 </span> 68/push <span class="Constant">"x"</span>/imm32 +<span id="L1804" class="LineNr">1804 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1805" class="LineNr">1805 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1806" class="LineNr">1806 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1807" class="LineNr">1807 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1808" class="LineNr">1808 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1809" class="LineNr">1809 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1810" class="LineNr">1810 </span> 52/push-edx +<span id="L1811" class="LineNr">1811 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1812" class="LineNr">1812 </span> e8/call <a href='survey_baremetal.subx.html#L2652'>stream-add2</a>/disp32 +<span id="L1813" class="LineNr">1813 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1814" class="LineNr">1814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1815" class="LineNr">1815 </span> <span class="subxComment"># component under test</span> +<span id="L1816" class="LineNr">1816 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L1817" class="LineNr">1817 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1818" class="LineNr">1818 </span> 52/push-edx +<span id="L1819" class="LineNr">1819 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1820" class="LineNr">1820 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1821" class="LineNr">1821 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1822" class="LineNr">1822 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 +<span id="L1823" class="LineNr">1823 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1824" class="LineNr">1824 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1825" class="LineNr">1825 </span> <span class="subxComment"># checks</span> +<span id="L1826" class="LineNr">1826 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L1827" class="LineNr">1827 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1828" class="LineNr">1828 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L1829" class="LineNr">1829 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1830" class="LineNr">1830 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1832" class="LineNr">1832 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1833" class="Folded">1833 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1866" class="LineNr">1866 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L1867" class="LineNr">1867 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1868" class="LineNr">1868 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/0"</span>/imm32 +<span id="L1869" class="LineNr">1869 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L1870" class="LineNr">1870 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1871" class="LineNr">1871 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1872" class="LineNr">1872 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1873" class="LineNr">1873 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1874" class="LineNr">1874 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1875" class="LineNr">1875 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> +<span id="L1876" class="LineNr">1876 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1877" class="LineNr">1877 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/1"</span>/imm32 +<span id="L1878" class="LineNr">1878 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 +<span id="L1879" class="LineNr">1879 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1880" class="LineNr">1880 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1881" class="LineNr">1881 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1882" class="LineNr">1882 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1883" class="LineNr">1883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1884" class="LineNr">1884 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij 44 33 22 11 ", msg)</span> +<span id="L1885" class="LineNr">1885 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1886" class="LineNr">1886 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/2"</span>/imm32 +<span id="L1887" class="LineNr">1887 </span> 68/push <span class="Constant">"ij 44 33 22 11 "</span>/imm32 +<span id="L1888" class="LineNr">1888 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1889" class="LineNr">1889 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1890" class="LineNr">1890 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1891" class="LineNr">1891 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1892" class="LineNr">1892 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1893" class="LineNr">1893 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c09", msg)</span> +<span id="L1894" class="LineNr">1894 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1895" class="LineNr">1895 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 +<span id="L1896" class="LineNr">1896 </span> 68/push <span class="Constant">"# 0x00007c09"</span>/imm32 +<span id="L1897" class="LineNr">1897 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1898" class="LineNr">1898 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1899" class="LineNr">1899 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1900" class="LineNr">1900 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1901" class="LineNr">1901 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1902" class="LineNr">1902 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 ", msg)</span> +<span id="L1903" class="LineNr">1903 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1904" class="LineNr">1904 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/3"</span>/imm32 +<span id="L1905" class="LineNr">1905 </span> 68/push <span class="Constant">"00 "</span>/imm32 +<span id="L1906" class="LineNr">1906 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1908" class="LineNr">1908 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1910" class="LineNr">1910 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1911" class="LineNr">1911 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> +<span id="L1912" class="LineNr">1912 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1913" class="LineNr">1913 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1695'>test-emit-output-non-far-control-flow</a>/4"</span>/imm32 +<span id="L1914" class="LineNr">1914 </span> 68/push <span class="Constant">"34 "</span>/imm32 +<span id="L1915" class="LineNr">1915 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1916" class="LineNr">1916 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1917" class="LineNr">1917 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L1918" class="LineNr">1918 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1919" class="LineNr">1919 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1920" class="LineNr">1920 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1921" class="LineNr">1921 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1922" class="LineNr">1922 </span> 5d/pop-to-ebp +<span id="L1923" class="LineNr">1923 </span> c3/return +<span id="L1924" class="LineNr">1924 </span> +<span id="L1925" class="LineNr">1925 </span><span class="subxTest">test-emit-output-with-padding</span>: +<span id="L1926" class="LineNr">1926 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> +<span id="L1927" class="LineNr">1927 </span> <span class="subxComment">#</span> +<span id="L1928" class="LineNr">1928 </span> <span class="subxComment"># input:</span> +<span id="L1929" class="LineNr">1929 </span> <span class="subxComment"># in:</span> +<span id="L1930" class="LineNr">1930 </span> <span class="subxComment"># == code</span> +<span id="L1931" class="LineNr">1931 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1932" class="LineNr">1932 </span> <span class="subxComment"># == data 0x7c10</span> +<span id="L1933" class="LineNr">1933 </span> <span class="subxComment"># 34</span> +<span id="L1934" class="LineNr">1934 </span> <span class="subxComment">#</span> +<span id="L1935" class="LineNr">1935 </span> <span class="subxComment"># output:</span> +<span id="L1936" class="LineNr">1936 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L1937" class="LineNr">1937 </span> <span class="subxComment"># # 0x7c04</span> +<span id="L1938" class="LineNr">1938 </span> <span class="subxComment"># 00 00 00 00</span> +<span id="L1939" class="LineNr">1939 </span> <span class="subxComment"># 00 00 00 00 00 00 00 00</span> +<span id="L1940" class="LineNr">1940 </span> <span class="subxComment"># # 0x7c10</span> +<span id="L1941" class="LineNr">1941 </span> <span class="subxComment"># 34</span> +<span id="L1942" class="LineNr">1942 </span> <span class="subxComment">#</span> +<span id="L1943" class="LineNr">1943 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1944" class="LineNr">1944 </span> 55/push-ebp +<span id="L1945" class="LineNr">1945 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1946" class="LineNr">1946 </span> <span class="subxComment"># setup</span> +<span id="L1947" class="LineNr">1947 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L1948" class="LineNr">1948 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1949" class="LineNr">1949 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1950" class="LineNr">1950 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1951" class="LineNr">1951 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1952" class="LineNr">1952 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1953" class="LineNr">1953 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1954" class="LineNr">1954 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L1955" class="LineNr">1955 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1956" class="LineNr">1956 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L1957" class="LineNr">1957 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1958" class="LineNr">1958 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1959" class="LineNr">1959 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1960" class="LineNr">1960 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1961" class="LineNr">1961 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L1962" class="LineNr">1962 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1963" class="LineNr">1963 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L1964" class="LineNr">1964 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1965" class="LineNr">1965 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1966" class="LineNr">1966 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1967" class="LineNr">1967 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1968" class="LineNr">1968 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1969" class="LineNr">1969 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1970" class="LineNr">1970 </span> 68/push 0xc0/imm32/size +<span id="L1971" class="LineNr">1971 </span> 68/push 0/imm32/read +<span id="L1972" class="LineNr">1972 </span> 68/push 0/imm32/write +<span id="L1973" class="LineNr">1973 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1974" class="LineNr">1974 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1975" class="LineNr">1975 </span> 68/push 0/imm32 +<span id="L1976" class="LineNr">1976 </span> 68/push 0/imm32 +<span id="L1977" class="LineNr">1977 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1978" class="LineNr">1978 </span> <span class="subxComment"># initialize input</span> +<span id="L1979" class="LineNr">1979 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L1980" class="LineNr">1980 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1981" class="LineNr">1981 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L1982" class="LineNr">1982 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1983" class="LineNr">1983 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1984" class="LineNr">1984 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1985" class="LineNr">1985 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1986" class="LineNr">1986 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1987" class="LineNr">1987 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> +<span id="L1988" class="LineNr">1988 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1989" class="LineNr">1989 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 +<span id="L1990" class="LineNr">1990 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1991" class="LineNr">1991 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1992" class="LineNr">1992 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1993" class="LineNr">1993 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1994" class="LineNr">1994 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1995" class="LineNr">1995 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x7c10\n")</span> +<span id="L1996" class="LineNr">1996 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1997" class="LineNr">1997 </span> 68/push <span class="Constant">"== data 0x7c10\n"</span>/imm32 +<span id="L1998" class="LineNr">1998 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1999" class="LineNr">1999 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2000" class="LineNr">2000 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2001" class="LineNr">2001 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2002" class="LineNr">2002 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2003" class="LineNr">2003 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L2004" class="LineNr">2004 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2005" class="LineNr">2005 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L2006" class="LineNr">2006 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2007" class="LineNr">2007 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2008" class="LineNr">2008 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2009" class="LineNr">2009 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2010" class="LineNr">2010 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2011" class="LineNr">2011 </span> <span class="subxComment"># component under test</span> +<span id="L2012" class="LineNr">2012 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L2013" class="LineNr">2013 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2014" class="LineNr">2014 </span> 52/push-edx +<span id="L2015" class="LineNr">2015 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2016" class="LineNr">2016 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2017" class="LineNr">2017 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2018" class="LineNr">2018 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 +<span id="L2019" class="LineNr">2019 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2020" class="LineNr">2020 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2021" class="LineNr">2021 </span> <span class="subxComment"># checks</span> +<span id="L2022" class="LineNr">2022 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L2023" class="LineNr">2023 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2024" class="LineNr">2024 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2025" class="LineNr">2025 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2026" class="LineNr">2026 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2027" class="LineNr">2027 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2028" class="LineNr">2028 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2029" class="Folded">2029 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2062" class="LineNr">2062 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L2063" class="LineNr">2063 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2064" class="LineNr">2064 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L2065" class="LineNr">2065 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L2066" class="LineNr">2066 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2067" class="LineNr">2067 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2068" class="LineNr">2068 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2069" class="LineNr">2069 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2070" class="LineNr">2070 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2071" class="LineNr">2071 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> +<span id="L2072" class="LineNr">2072 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2073" class="LineNr">2073 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/1"</span>/imm32 +<span id="L2074" class="LineNr">2074 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 +<span id="L2075" class="LineNr">2075 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2076" class="LineNr">2076 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2077" class="LineNr">2077 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2078" class="LineNr">2078 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2079" class="LineNr">2079 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2080" class="LineNr">2080 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c04", msg)</span> +<span id="L2081" class="LineNr">2081 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2082" class="LineNr">2082 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L2083" class="LineNr">2083 </span> 68/push <span class="Constant">"# 0x00007c04"</span>/imm32 +<span id="L2084" class="LineNr">2084 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2085" class="LineNr">2085 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2086" class="LineNr">2086 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2087" class="LineNr">2087 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2088" class="LineNr">2088 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2089" class="LineNr">2089 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</span> +<span id="L2090" class="LineNr">2090 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2091" class="LineNr">2091 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/2"</span>/imm32 +<span id="L2092" class="LineNr">2092 </span> 68/push <span class="Constant">"00 00 00 00 "</span>/imm32 +<span id="L2093" class="LineNr">2093 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2094" class="LineNr">2094 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2095" class="LineNr">2095 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2096" class="LineNr">2096 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2097" class="LineNr">2097 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2098" class="LineNr">2098 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 00 00 00 ", msg)</span> +<span id="L2099" class="LineNr">2099 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2100" class="LineNr">2100 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/3"</span>/imm32 +<span id="L2101" class="LineNr">2101 </span> 68/push <span class="Constant">"00 00 00 00 00 00 00 00 "</span>/imm32 +<span id="L2102" class="LineNr">2102 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2103" class="LineNr">2103 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2104" class="LineNr">2104 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2105" class="LineNr">2105 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2106" class="LineNr">2106 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2107" class="LineNr">2107 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c10", msg)</span> +<span id="L2108" class="LineNr">2108 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2109" class="LineNr">2109 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/0"</span>/imm32 +<span id="L2110" class="LineNr">2110 </span> 68/push <span class="Constant">"# 0x00007c10"</span>/imm32 +<span id="L2111" class="LineNr">2111 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2112" class="LineNr">2112 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2113" class="LineNr">2113 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2114" class="LineNr">2114 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2115" class="LineNr">2115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2116" class="LineNr">2116 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> +<span id="L2117" class="LineNr">2117 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2118" class="LineNr">2118 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L1925'>test-emit-output-with-padding</a>/4"</span>/imm32 +<span id="L2119" class="LineNr">2119 </span> 68/push <span class="Constant">"34 "</span>/imm32 +<span id="L2120" class="LineNr">2120 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2121" class="LineNr">2121 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2122" class="LineNr">2122 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2123" class="LineNr">2123 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2124" class="LineNr">2124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2125" class="LineNr">2125 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2126" class="LineNr">2126 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2127" class="LineNr">2127 </span> 5d/pop-to-ebp +<span id="L2128" class="LineNr">2128 </span> c3/return +<span id="L2129" class="LineNr">2129 </span> +<span id="L2130" class="LineNr">2130 </span><span class="subxTest">test-emit-output-code-label</span>: +<span id="L2131" class="LineNr">2131 </span> <span class="subxComment"># labels turn into PC-relative addresses if opcodes are far jumps or calls</span> +<span id="L2132" class="LineNr">2132 </span> <span class="subxComment">#</span> +<span id="L2133" class="LineNr">2133 </span> <span class="subxComment"># input:</span> +<span id="L2134" class="LineNr">2134 </span> <span class="subxComment"># in:</span> +<span id="L2135" class="LineNr">2135 </span> <span class="subxComment"># == code</span> +<span id="L2136" class="LineNr">2136 </span> <span class="subxComment"># ab cd</span> +<span id="L2137" class="LineNr">2137 </span> <span class="subxComment"># ef gh</span> +<span id="L2138" class="LineNr">2138 </span> <span class="subxComment"># e8 l1/disp32</span> +<span id="L2139" class="LineNr">2139 </span> <span class="subxComment"># labels:</span> +<span id="L2140" class="LineNr">2140 </span> <span class="subxComment"># - 'l1': 0x7c10</span> +<span id="L2141" class="LineNr">2141 </span> <span class="subxComment">#</span> +<span id="L2142" class="LineNr">2142 </span> <span class="subxComment"># output:</span> +<span id="L2143" class="LineNr">2143 </span> <span class="subxComment"># ab cd</span> +<span id="L2144" class="LineNr">2144 </span> <span class="subxComment"># ef gh</span> +<span id="L2145" class="LineNr">2145 </span> <span class="subxComment"># e8 07 00 00 00 # 0x7c10 - 0x7c09 = 7</span> +<span id="L2146" class="LineNr">2146 </span> <span class="subxComment">#</span> +<span id="L2147" class="LineNr">2147 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2148" class="LineNr">2148 </span> 55/push-ebp +<span id="L2149" class="LineNr">2149 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2150" class="LineNr">2150 </span> <span class="subxComment"># setup</span> +<span id="L2151" class="LineNr">2151 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2152" class="LineNr">2152 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2153" class="LineNr">2153 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2154" class="LineNr">2154 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2155" class="LineNr">2155 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2156" class="LineNr">2156 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2157" class="LineNr">2157 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2158" class="LineNr">2158 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2159" class="LineNr">2159 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2160" class="LineNr">2160 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2161" class="LineNr">2161 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2162" class="LineNr">2162 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2163" class="LineNr">2163 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2164" class="LineNr">2164 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2165" class="LineNr">2165 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L2166" class="LineNr">2166 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2167" class="LineNr">2167 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2168" class="LineNr">2168 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2169" class="LineNr">2169 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2170" class="LineNr">2170 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2171" class="LineNr">2171 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2172" class="LineNr">2172 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L2173" class="LineNr">2173 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L2174" class="LineNr">2174 </span> 68/push 0xc0/imm32/size +<span id="L2175" class="LineNr">2175 </span> 68/push 0/imm32/read +<span id="L2176" class="LineNr">2176 </span> 68/push 0/imm32/write +<span id="L2177" class="LineNr">2177 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L2178" class="LineNr">2178 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L2179" class="LineNr">2179 </span> 68/push 0/imm32 +<span id="L2180" class="LineNr">2180 </span> 68/push 0/imm32 +<span id="L2181" class="LineNr">2181 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2182" class="LineNr">2182 </span> <span class="subxComment"># initialize input</span> +<span id="L2183" class="LineNr">2183 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code\n")</span> +<span id="L2184" class="LineNr">2184 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2185" class="LineNr">2185 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L2186" class="LineNr">2186 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2187" class="LineNr">2187 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2188" class="LineNr">2188 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2189" class="LineNr">2189 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2190" class="LineNr">2190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2191" class="LineNr">2191 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L2192" class="LineNr">2192 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2193" class="LineNr">2193 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L2194" class="LineNr">2194 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2195" class="LineNr">2195 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2196" class="LineNr">2196 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2197" class="LineNr">2197 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2198" class="LineNr">2198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2199" class="LineNr">2199 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> +<span id="L2200" class="LineNr">2200 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2201" class="LineNr">2201 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 +<span id="L2202" class="LineNr">2202 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2203" class="LineNr">2203 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2204" class="LineNr">2204 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2205" class="LineNr">2205 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2206" class="LineNr">2206 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2207" class="LineNr">2207 </span> <span class="subxS1Comment"># . write(_test-input-stream, "e8 l1/disp32\n")</span> +<span id="L2208" class="LineNr">2208 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2209" class="LineNr">2209 </span> 68/push <span class="Constant">"e8 l1/disp32\n"</span>/imm32 +<span id="L2210" class="LineNr">2210 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2211" class="LineNr">2211 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2212" class="LineNr">2212 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2213" class="LineNr">2213 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2214" class="LineNr">2214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2215" class="LineNr">2215 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x7c10)</span> +<span id="L2216" class="LineNr">2216 </span> 68/push 0x7c10/imm32/label-address +<span id="L2217" class="LineNr">2217 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> +<span id="L2218" class="LineNr">2218 </span> 53/push-ebx +<span id="L2219" class="LineNr">2219 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L2220" class="LineNr">2220 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2221" class="LineNr">2221 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2222" class="LineNr">2222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2223" class="LineNr">2223 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2224" class="LineNr">2224 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2225" class="LineNr">2225 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L2226" class="LineNr">2226 </span> 52/push-edx +<span id="L2227" class="LineNr">2227 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2228" class="LineNr">2228 </span> e8/call <a href='survey_baremetal.subx.html#L2652'>stream-add2</a>/disp32 +<span id="L2229" class="LineNr">2229 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2230" class="LineNr">2230 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2231" class="LineNr">2231 </span> <span class="subxComment"># component under test</span> +<span id="L2232" class="LineNr">2232 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L2233" class="LineNr">2233 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2234" class="LineNr">2234 </span> 52/push-edx +<span id="L2235" class="LineNr">2235 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2236" class="LineNr">2236 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2237" class="LineNr">2237 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2238" class="LineNr">2238 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 +<span id="L2239" class="LineNr">2239 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2240" class="LineNr">2240 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2241" class="LineNr">2241 </span> <span class="subxComment"># checks</span> +<span id="L2242" class="LineNr">2242 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L2243" class="LineNr">2243 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2244" class="LineNr">2244 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2245" class="LineNr">2245 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2246" class="LineNr">2246 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2247" class="LineNr">2247 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2248" class="LineNr">2248 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2249" class="Folded">2249 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2282" class="LineNr">2282 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L2283" class="LineNr">2283 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2284" class="LineNr">2284 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/0"</span>/imm32 +<span id="L2285" class="LineNr">2285 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L2286" class="LineNr">2286 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2287" class="LineNr">2287 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2288" class="LineNr">2288 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2289" class="LineNr">2289 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2290" class="LineNr">2290 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2291" class="LineNr">2291 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L2292" class="LineNr">2292 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2293" class="LineNr">2293 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/1"</span>/imm32 +<span id="L2294" class="LineNr">2294 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L2295" class="LineNr">2295 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2296" class="LineNr">2296 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2297" class="LineNr">2297 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2298" class="LineNr">2298 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2299" class="LineNr">2299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2300" class="LineNr">2300 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L2301" class="LineNr">2301 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2302" class="LineNr">2302 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/2"</span>/imm32 +<span id="L2303" class="LineNr">2303 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L2304" class="LineNr">2304 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2305" class="LineNr">2305 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2306" class="LineNr">2306 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2307" class="LineNr">2307 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2308" class="LineNr">2308 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2309" class="LineNr">2309 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8 07 00 00 00 ", msg)</span> +<span id="L2310" class="LineNr">2310 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2311" class="LineNr">2311 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2130'>test-emit-output-code-label</a>/3"</span>/imm32 +<span id="L2312" class="LineNr">2312 </span> 68/push <span class="Constant">"e8 07 00 00 00 "</span>/imm32 +<span id="L2313" class="LineNr">2313 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2314" class="LineNr">2314 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2315" class="LineNr">2315 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2316" class="LineNr">2316 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2317" class="LineNr">2317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2318" class="LineNr">2318 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2319" class="LineNr">2319 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2320" class="LineNr">2320 </span> 5d/pop-to-ebp +<span id="L2321" class="LineNr">2321 </span> c3/return +<span id="L2322" class="LineNr">2322 </span> +<span id="L2323" class="LineNr">2323 </span><span class="subxTest">test-emit-output-code-label-absolute</span>: +<span id="L2324" class="LineNr">2324 </span> <span class="subxComment"># labels can also convert to absolute addresses</span> +<span id="L2325" class="LineNr">2325 </span> <span class="subxComment">#</span> +<span id="L2326" class="LineNr">2326 </span> <span class="subxComment"># input:</span> +<span id="L2327" class="LineNr">2327 </span> <span class="subxComment"># in:</span> +<span id="L2328" class="LineNr">2328 </span> <span class="subxComment"># == code</span> +<span id="L2329" class="LineNr">2329 </span> <span class="subxComment"># ab cd</span> +<span id="L2330" class="LineNr">2330 </span> <span class="subxComment"># ef gh</span> +<span id="L2331" class="LineNr">2331 </span> <span class="subxComment"># ij l1/imm32</span> +<span id="L2332" class="LineNr">2332 </span> <span class="subxComment"># labels:</span> +<span id="L2333" class="LineNr">2333 </span> <span class="subxComment"># - 'l1': 0x1056</span> +<span id="L2334" class="LineNr">2334 </span> <span class="subxComment">#</span> +<span id="L2335" class="LineNr">2335 </span> <span class="subxComment"># output:</span> +<span id="L2336" class="LineNr">2336 </span> <span class="subxComment"># ab cd</span> +<span id="L2337" class="LineNr">2337 </span> <span class="subxComment"># ef gh</span> +<span id="L2338" class="LineNr">2338 </span> <span class="subxComment"># ij 56 10 00 00</span> +<span id="L2339" class="LineNr">2339 </span> <span class="subxComment">#</span> +<span id="L2340" class="LineNr">2340 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2341" class="LineNr">2341 </span> 55/push-ebp +<span id="L2342" class="LineNr">2342 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2343" class="LineNr">2343 </span> <span class="subxComment"># setup</span> +<span id="L2344" class="LineNr">2344 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2345" class="LineNr">2345 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2346" class="LineNr">2346 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2347" class="LineNr">2347 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2348" class="LineNr">2348 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2349" class="LineNr">2349 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2350" class="LineNr">2350 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2351" class="LineNr">2351 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2352" class="LineNr">2352 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2353" class="LineNr">2353 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2354" class="LineNr">2354 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2355" class="LineNr">2355 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2356" class="LineNr">2356 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2357" class="LineNr">2357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2358" class="LineNr">2358 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L2359" class="LineNr">2359 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2360" class="LineNr">2360 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2361" class="LineNr">2361 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2362" class="LineNr">2362 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2363" class="LineNr">2363 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2364" class="LineNr">2364 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2365" class="LineNr">2365 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L2366" class="LineNr">2366 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L2367" class="LineNr">2367 </span> 68/push 0xc0/imm32/size +<span id="L2368" class="LineNr">2368 </span> 68/push 0/imm32/read +<span id="L2369" class="LineNr">2369 </span> 68/push 0/imm32/write +<span id="L2370" class="LineNr">2370 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L2371" class="LineNr">2371 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L2372" class="LineNr">2372 </span> 68/push 0/imm32 +<span id="L2373" class="LineNr">2373 </span> 68/push 0/imm32 +<span id="L2374" class="LineNr">2374 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2375" class="LineNr">2375 </span> <span class="subxComment"># initialize input</span> +<span id="L2376" class="LineNr">2376 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> +<span id="L2377" class="LineNr">2377 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2378" class="LineNr">2378 </span> 68/push <span class="Constant">"== code\n"</span>/imm32 +<span id="L2379" class="LineNr">2379 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2380" class="LineNr">2380 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2381" class="LineNr">2381 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2382" class="LineNr">2382 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2383" class="LineNr">2383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2384" class="LineNr">2384 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L2385" class="LineNr">2385 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2386" class="LineNr">2386 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L2387" class="LineNr">2387 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2388" class="LineNr">2388 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2389" class="LineNr">2389 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2390" class="LineNr">2390 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2391" class="LineNr">2391 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2392" class="LineNr">2392 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ef gh\n")</span> +<span id="L2393" class="LineNr">2393 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2394" class="LineNr">2394 </span> 68/push <span class="Constant">"ef gh\n"</span>/imm32 +<span id="L2395" class="LineNr">2395 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2396" class="LineNr">2396 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2397" class="LineNr">2397 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2398" class="LineNr">2398 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2399" class="LineNr">2399 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2400" class="LineNr">2400 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij l1/imm32\n")</span> +<span id="L2401" class="LineNr">2401 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2402" class="LineNr">2402 </span> 68/push <span class="Constant">"ij l1/imm32\n"</span>/imm32 +<span id="L2403" class="LineNr">2403 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2404" class="LineNr">2404 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2405" class="LineNr">2405 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2406" class="LineNr">2406 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2407" class="LineNr">2407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2408" class="LineNr">2408 </span> <span class="subxS1Comment"># . stream-add2(labels, "l1", 0x1056)</span> +<span id="L2409" class="LineNr">2409 </span> 68/push 0x1056/imm32/label-address +<span id="L2410" class="LineNr">2410 </span> <span class="subxS2Comment"># . . push handle for "l1"</span> +<span id="L2411" class="LineNr">2411 </span> 53/push-ebx +<span id="L2412" class="LineNr">2412 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L2413" class="LineNr">2413 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2414" class="LineNr">2414 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2415" class="LineNr">2415 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2416" class="LineNr">2416 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2417" class="LineNr">2417 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2418" class="LineNr">2418 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L2419" class="LineNr">2419 </span> 52/push-edx +<span id="L2420" class="LineNr">2420 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2421" class="LineNr">2421 </span> e8/call <a href='survey_baremetal.subx.html#L2652'>stream-add2</a>/disp32 +<span id="L2422" class="LineNr">2422 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2423" class="LineNr">2423 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2424" class="LineNr">2424 </span> <span class="subxComment"># component under test</span> +<span id="L2425" class="LineNr">2425 </span> <span class="subxS1Comment"># . emit-output(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L2426" class="LineNr">2426 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2427" class="LineNr">2427 </span> 52/push-edx +<span id="L2428" class="LineNr">2428 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2429" class="LineNr">2429 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2430" class="LineNr">2430 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2431" class="LineNr">2431 </span> e8/call <a href='survey_baremetal.subx.html#L947'>emit-output</a>/disp32 +<span id="L2432" class="LineNr">2432 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2433" class="LineNr">2433 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2434" class="LineNr">2434 </span> <span class="subxComment"># checks</span> +<span id="L2435" class="LineNr">2435 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L2436" class="LineNr">2436 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2437" class="LineNr">2437 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2438" class="LineNr">2438 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2439" class="LineNr">2439 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2440" class="LineNr">2440 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2441" class="LineNr">2441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2442" class="Folded">2442 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2475" class="LineNr">2475 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "# 0x00007c00", msg)</span> +<span id="L2476" class="LineNr">2476 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2477" class="LineNr">2477 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/0"</span>/imm32 +<span id="L2478" class="LineNr">2478 </span> 68/push <span class="Constant">"# 0x00007c00"</span>/imm32 +<span id="L2479" class="LineNr">2479 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2480" class="LineNr">2480 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2481" class="LineNr">2481 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2482" class="LineNr">2482 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2483" class="LineNr">2483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2484" class="LineNr">2484 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L2485" class="LineNr">2485 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2486" class="LineNr">2486 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/1"</span>/imm32 +<span id="L2487" class="LineNr">2487 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L2488" class="LineNr">2488 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2489" class="LineNr">2489 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2490" class="LineNr">2490 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2491" class="LineNr">2491 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2492" class="LineNr">2492 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2493" class="LineNr">2493 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L2494" class="LineNr">2494 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2495" class="LineNr">2495 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/2"</span>/imm32 +<span id="L2496" class="LineNr">2496 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L2497" class="LineNr">2497 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2498" class="LineNr">2498 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2499" class="LineNr">2499 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2500" class="LineNr">2500 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2501" class="LineNr">2501 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2502" class="LineNr">2502 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij f9 ff ff ff ", msg)</span> +<span id="L2503" class="LineNr">2503 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2504" class="LineNr">2504 </span> 68/push <span class="Constant">"F - <a href='survey_baremetal.subx.html#L2323'>test-emit-output-code-label-absolute</a>/3"</span>/imm32 +<span id="L2505" class="LineNr">2505 </span> 68/push <span class="Constant">"ij 56 10 00 00 "</span>/imm32 +<span id="L2506" class="LineNr">2506 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2507" class="LineNr">2507 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2508" class="LineNr">2508 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2509" class="LineNr">2509 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2510" class="LineNr">2510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2511" class="LineNr">2511 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2512" class="LineNr">2512 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2513" class="LineNr">2513 </span> 5d/pop-to-ebp +<span id="L2514" class="LineNr">2514 </span> c3/return +<span id="L2515" class="LineNr">2515 </span> +<span id="L2516" class="LineNr">2516 </span><span class="subxComment"># reads line to make some checks</span> +<span id="L2517" class="LineNr">2517 </span><span class="subxComment"># don't assume the read state of line after calling this function</span> +<span id="L2518" class="LineNr">2518 </span><span class="subxFunction">far-jump-or-call?</span>: <span class="subxComment"># line: (addr stream byte) -> result/edi: boolean</span> +<span id="L2519" class="LineNr">2519 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2520" class="LineNr">2520 </span> 55/push-ebp +<span id="L2521" class="LineNr">2521 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2522" class="LineNr">2522 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2523" class="LineNr">2523 </span> 50/push-eax +<span id="L2524" class="LineNr">2524 </span> 51/push-ecx +<span id="L2525" class="LineNr">2525 </span> 52/push-edx +<span id="L2526" class="LineNr">2526 </span> 53/push-ebx +<span id="L2527" class="LineNr">2527 </span> <span class="subxComment"># ecx = line</span> +<span id="L2528" class="LineNr">2528 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L2529" class="LineNr">2529 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L2530" class="LineNr">2530 </span> 68/push 0/imm32/end +<span id="L2531" class="LineNr">2531 </span> 68/push 0/imm32/start +<span id="L2532" class="LineNr">2532 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L2533" class="LineNr">2533 </span> <span class="subxComment"># var datum-slice/ebx: slice</span> +<span id="L2534" class="LineNr">2534 </span> 68/push 0/imm32/end +<span id="L2535" class="LineNr">2535 </span> 68/push 0/imm32/start +<span id="L2536" class="LineNr">2536 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2537" class="LineNr">2537 </span> <span class="subxComment"># result = false</span> +<span id="L2538" class="LineNr">2538 </span> bf/copy-to-edi 0/imm32/false +<span id="L2539" class="LineNr">2539 </span><span class="Constant">$far-jump-or-call?:check-first-word</span>: +<span id="L2540" class="LineNr">2540 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2541" class="LineNr">2541 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2542" class="LineNr">2542 </span> 52/push-edx +<span id="L2543" class="LineNr">2543 </span> 51/push-ecx +<span id="L2544" class="LineNr">2544 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2545" class="LineNr">2545 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2546" class="LineNr">2546 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2547" class="LineNr">2547 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2548" class="LineNr">2548 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L2549" class="LineNr">2549 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2550" class="LineNr">2550 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2551" class="LineNr">2551 </span> 52/push-edx +<span id="L2552" class="LineNr">2552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2553" class="LineNr">2553 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2554" class="LineNr">2554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2555" class="LineNr">2555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2556" class="LineNr">2556 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L2557" class="LineNr">2557 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2558" class="LineNr">2558 </span> 0f 85/jump-if-!= $far-jump-or-call?:end/disp32 +<span id="L2559" class="LineNr">2559 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L2560" class="LineNr">2560 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2561" class="LineNr">2561 </span> 53/push-ebx +<span id="L2562" class="LineNr">2562 </span> 68/push 0x2f/imm32/slash +<span id="L2563" class="LineNr">2563 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L2564" class="LineNr">2564 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L2565" class="LineNr">2565 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2566" class="LineNr">2566 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2567" class="LineNr">2567 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2568" class="LineNr">2568 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2569" class="LineNr">2569 </span> <span class="subxComment"># if (datum-slice == "e8") return true</span> +<span id="L2570" class="LineNr">2570 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e8")</span> +<span id="L2571" class="LineNr">2571 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2572" class="LineNr">2572 </span> 68/push <span class="Constant">"e8"</span>/imm32 +<span id="L2573" class="LineNr">2573 </span> 53/push-ebx +<span id="L2574" class="LineNr">2574 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2575" class="LineNr">2575 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2576" class="LineNr">2576 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2577" class="LineNr">2577 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2578" class="LineNr">2578 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L2579" class="LineNr">2579 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2580" class="LineNr">2580 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L2581" class="LineNr">2581 </span> <span class="subxComment"># if (datum-slice == "e9") return true</span> +<span id="L2582" class="LineNr">2582 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e9")</span> +<span id="L2583" class="LineNr">2583 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2584" class="LineNr">2584 </span> 68/push <span class="Constant">"e9"</span>/imm32 +<span id="L2585" class="LineNr">2585 </span> 53/push-ebx +<span id="L2586" class="LineNr">2586 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2587" class="LineNr">2587 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2588" class="LineNr">2588 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2589" class="LineNr">2589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2590" class="LineNr">2590 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L2591" class="LineNr">2591 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2592" class="LineNr">2592 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L2593" class="LineNr">2593 </span> <span class="subxComment"># if (datum-slice != "0f") return false</span> +<span id="L2594" class="LineNr">2594 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "0f")</span> +<span id="L2595" class="LineNr">2595 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2596" class="LineNr">2596 </span> 68/push <span class="Constant">"0f"</span>/imm32 +<span id="L2597" class="LineNr">2597 </span> 53/push-ebx +<span id="L2598" class="LineNr">2598 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2599" class="LineNr">2599 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2600" class="LineNr">2600 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2601" class="LineNr">2601 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2602" class="LineNr">2602 </span> <span class="subxS1Comment"># . if (eax == false) return</span> +<span id="L2603" class="LineNr">2603 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2604" class="LineNr">2604 </span> 74/jump-if-= $far-jump-or-call?:end/disp8 +<span id="L2605" class="LineNr">2605 </span><span class="Constant">$far-jump-or-call?:check-second-word</span>: +<span id="L2606" class="LineNr">2606 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2607" class="LineNr">2607 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2608" class="LineNr">2608 </span> 52/push-edx +<span id="L2609" class="LineNr">2609 </span> 51/push-ecx +<span id="L2610" class="LineNr">2610 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2611" class="LineNr">2611 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2612" class="LineNr">2612 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2613" class="LineNr">2613 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2614" class="LineNr">2614 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L2615" class="LineNr">2615 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2616" class="LineNr">2616 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2617" class="LineNr">2617 </span> 52/push-edx +<span id="L2618" class="LineNr">2618 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2619" class="LineNr">2619 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2620" class="LineNr">2620 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2621" class="LineNr">2621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2622" class="LineNr">2622 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L2623" class="LineNr">2623 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2624" class="LineNr">2624 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L2625" class="LineNr">2625 </span> <span class="subxComment"># if datum of word-slice does not start with "8", return false</span> +<span id="L2626" class="LineNr">2626 </span> <span class="subxS1Comment"># . start/eax = word-slice->start</span> +<span id="L2627" class="LineNr">2627 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span> +<span id="L2628" class="LineNr">2628 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L2629" class="LineNr">2629 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L2630" class="LineNr">2630 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L2631" class="LineNr">2631 </span> <span class="subxS1Comment"># . if (eax != '8') return</span> +<span id="L2632" class="LineNr">2632 </span> 3d/compare-eax-and 0x38/imm32/8 +<span id="L2633" class="LineNr">2633 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L2634" class="LineNr">2634 </span> <span class="subxComment"># otherwise return true</span> +<span id="L2635" class="LineNr">2635 </span><span class="Constant">$far-jump-or-call?:return-true</span>: +<span id="L2636" class="LineNr">2636 </span> bf/copy-to-edi 1/imm32/true +<span id="L2637" class="LineNr">2637 </span><span class="Constant">$far-jump-or-call?:end</span>: +<span id="L2638" class="LineNr">2638 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2639" class="LineNr">2639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2640" class="LineNr">2640 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2641" class="LineNr">2641 </span> 5b/pop-to-ebx +<span id="L2642" class="LineNr">2642 </span> 5a/pop-to-edx +<span id="L2643" class="LineNr">2643 </span> 59/pop-to-ecx +<span id="L2644" class="LineNr">2644 </span> 58/pop-to-eax +<span id="L2645" class="LineNr">2645 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2646" class="LineNr">2646 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2647" class="LineNr">2647 </span> 5d/pop-to-ebp +<span id="L2648" class="LineNr">2648 </span> c3/return +<span id="L2649" class="LineNr">2649 </span> +<span id="L2650" class="LineNr">2650 </span><span class="subxH1Comment"># - some helpers for tests</span> +<span id="L2651" class="LineNr">2651 </span> +<span id="L2652" class="LineNr">2652 </span><span class="subxFunction">stream-add2</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val: int</span> +<span id="L2653" class="LineNr">2653 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2654" class="LineNr">2654 </span> 55/push-ebp +<span id="L2655" class="LineNr">2655 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2656" class="LineNr">2656 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2657" class="LineNr">2657 </span> 50/push-eax +<span id="L2658" class="LineNr">2658 </span> 51/push-ecx +<span id="L2659" class="LineNr">2659 </span> 52/push-edx +<span id="L2660" class="LineNr">2660 </span> 56/push-esi +<span id="L2661" class="LineNr">2661 </span> <span class="subxComment"># esi = in</span> +<span id="L2662" class="LineNr">2662 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L2663" class="LineNr">2663 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> +<span id="L2664" class="LineNr">2664 </span> <span class="subxS1Comment"># . eax = in->write</span> +<span id="L2665" class="LineNr">2665 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L2666" class="LineNr">2666 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> +<span id="L2667" class="LineNr">2667 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L2668" class="LineNr">2668 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> +<span id="L2669" class="LineNr">2669 </span> <span class="subxS1Comment"># . edx = in->size</span> +<span id="L2670" class="LineNr">2670 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> +<span id="L2671" class="LineNr">2671 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> +<span id="L2672" class="LineNr">2672 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> +<span id="L2673" class="LineNr">2673 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2674" class="LineNr">2674 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L2675" class="LineNr">2675 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2676" class="LineNr">2676 </span> <span class="subxComment"># *curr = key->alloc-id</span> +<span id="L2677" class="LineNr">2677 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L2678" class="LineNr">2678 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L2679" class="LineNr">2679 </span> <span class="subxComment"># curr += 4</span> +<span id="L2680" class="LineNr">2680 </span> 05/add-to-eax 4/imm32 +<span id="L2681" class="LineNr">2681 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2682" class="LineNr">2682 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L2683" class="LineNr">2683 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2684" class="LineNr">2684 </span> <span class="subxComment"># *curr = key->payload</span> +<span id="L2685" class="LineNr">2685 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L2686" class="LineNr">2686 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L2687" class="LineNr">2687 </span> <span class="subxComment"># curr += 4</span> +<span id="L2688" class="LineNr">2688 </span> 05/add-to-eax 4/imm32 +<span id="L2689" class="LineNr">2689 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L2690" class="LineNr">2690 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L2691" class="LineNr">2691 </span> 73/jump-if-addr>= $stream-add2:abort/disp8 +<span id="L2692" class="LineNr">2692 </span> <span class="subxComment"># *curr = val</span> +<span id="L2693" class="LineNr">2693 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> +<span id="L2694" class="LineNr">2694 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L2695" class="LineNr">2695 </span> <span class="subxComment"># in->write += 0xc</span> +<span id="L2696" class="LineNr">2696 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to *esi</span> +<span id="L2697" class="LineNr">2697 </span><span class="Constant">$stream-add2:end</span>: +<span id="L2698" class="LineNr">2698 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2699" class="LineNr">2699 </span> 5e/pop-to-esi +<span id="L2700" class="LineNr">2700 </span> 5a/pop-to-edx +<span id="L2701" class="LineNr">2701 </span> 59/pop-to-ecx +<span id="L2702" class="LineNr">2702 </span> 58/pop-to-eax +<span id="L2703" class="LineNr">2703 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2704" class="LineNr">2704 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2705" class="LineNr">2705 </span> 5d/pop-to-ebp +<span id="L2706" class="LineNr">2706 </span> c3/return +<span id="L2707" class="LineNr">2707 </span> +<span id="L2708" class="LineNr">2708 </span><span class="Constant">$stream-add2:abort</span>: +<span id="L2709" class="LineNr">2709 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L2710" class="LineNr">2710 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2711" class="LineNr">2711 </span> 68/push <span class="Constant">"overflow in stream-add2\n"</span>/imm32 +<span id="L2712" class="LineNr">2712 </span> 68/push 2/imm32/stderr +<span id="L2713" class="LineNr">2713 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2714" class="LineNr">2714 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L2715" class="LineNr">2715 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2716" class="LineNr">2716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2717" class="LineNr">2717 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2718" class="LineNr">2718 </span> bb/copy-to-ebx 1/imm32 +<span id="L2719" class="LineNr">2719 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2720" class="LineNr">2720 </span> <span class="subxComment"># never gets here</span> +<span id="L2721" class="LineNr">2721 </span> +<span id="L2722" class="LineNr">2722 </span><span class="subxComment"># some variants of 'trace' that take multiple arguments in different combinations of types:</span> +<span id="L2723" class="LineNr">2723 </span><span class="subxComment"># n: int</span> +<span id="L2724" class="LineNr">2724 </span><span class="subxComment"># c: character [4-bytes, will eventually be UTF-8]</span> +<span id="L2725" class="LineNr">2725 </span><span class="subxComment"># s: (addr array byte)</span> +<span id="L2726" class="LineNr">2726 </span><span class="subxComment"># l: (addr slice)</span> +<span id="L2727" class="LineNr">2727 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span> +<span id="L2728" class="LineNr">2728 </span> +<span id="L2729" class="LineNr">2729 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), n4: int, s5: (addr array byte)</span> +<span id="L2730" class="LineNr">2730 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2731" class="LineNr">2731 </span> 55/push-ebp +<span id="L2732" class="LineNr">2732 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2733" class="LineNr">2733 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L2734" class="LineNr">2734 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2735" class="LineNr">2735 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2736" class="LineNr">2736 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2737" class="LineNr">2737 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2738" class="LineNr">2738 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2739" class="LineNr">2739 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2740" class="LineNr">2740 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2741" class="LineNr">2741 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> +<span id="L2742" class="LineNr">2742 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2743" class="LineNr">2743 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2744" class="LineNr">2744 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2745" class="LineNr">2745 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2746" class="LineNr">2746 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L2747" class="LineNr">2747 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2748" class="LineNr">2748 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2749" class="LineNr">2749 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L2750" class="LineNr">2750 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2751" class="LineNr">2751 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L2752" class="LineNr">2752 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2753" class="LineNr">2753 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2754" class="LineNr">2754 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2755" class="LineNr">2755 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2756" class="LineNr">2756 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2757" class="LineNr">2757 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> +<span id="L2758" class="LineNr">2758 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2759" class="LineNr">2759 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L2760" class="LineNr">2760 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L2761" class="LineNr">2761 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2762" class="LineNr">2762 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L2763" class="LineNr">2763 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2764" class="LineNr">2764 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2765" class="LineNr">2765 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> +<span id="L2766" class="LineNr">2766 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2767" class="LineNr">2767 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L2768" class="LineNr">2768 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2769" class="LineNr">2769 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L2770" class="LineNr">2770 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2771" class="LineNr">2771 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2772" class="LineNr">2772 </span><span class="Constant">$trace-slsns:end</span>: +<span id="L2773" class="LineNr">2773 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2774" class="LineNr">2774 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2775" class="LineNr">2775 </span> 5d/pop-to-ebp +<span id="L2776" class="LineNr">2776 </span> c3/return +<span id="L2777" class="LineNr">2777 </span> +<span id="L2778" class="LineNr">2778 </span><span class="subxTest">test-trace-slsns</span>: +<span id="L2779" class="LineNr">2779 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2780" class="LineNr">2780 </span> 55/push-ebp +<span id="L2781" class="LineNr">2781 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2782" class="LineNr">2782 </span> <span class="subxComment"># setup</span> +<span id="L2783" class="LineNr">2783 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L2784" class="LineNr">2784 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> +<span id="L2785" class="LineNr">2785 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> +<span id="L2786" class="LineNr">2786 </span> <span class="subxComment"># (eax..ecx) = "b"</span> +<span id="L2787" class="LineNr">2787 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 +<span id="L2788" class="LineNr">2788 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L2789" class="LineNr">2789 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L2790" class="LineNr">2790 </span> 05/add-to-eax 4/imm32 +<span id="L2791" class="LineNr">2791 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> +<span id="L2792" class="LineNr">2792 </span> 51/push-ecx +<span id="L2793" class="LineNr">2793 </span> 50/push-eax +<span id="L2794" class="LineNr">2794 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2795" class="LineNr">2795 </span> <span class="subxComment"># trace-slsls("A" b "c " 3 " e")</span> +<span id="L2796" class="LineNr">2796 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2797" class="LineNr">2797 </span> 68/push <span class="Constant">" e"</span>/imm32 +<span id="L2798" class="LineNr">2798 </span> 68/push 3/imm32 +<span id="L2799" class="LineNr">2799 </span> 68/push <span class="Constant">"c "</span>/imm32 +<span id="L2800" class="LineNr">2800 </span> 53/push-ebx +<span id="L2801" class="LineNr">2801 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L2802" class="LineNr">2802 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2803" class="LineNr">2803 </span> e8/call <a href='survey_baremetal.subx.html#L2729'>trace-slsns</a>/disp32 +<span id="L2804" class="LineNr">2804 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2805" class="LineNr">2805 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L2806" class="Folded">2806 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2832" class="LineNr">2832 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> +<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2834" class="LineNr">2834 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 +<span id="L2835" class="LineNr">2835 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 +<span id="L2836" class="LineNr">2836 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2837" class="LineNr">2837 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L2838" class="LineNr">2838 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2839" class="LineNr">2839 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2840" class="LineNr">2840 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2841" class="LineNr">2841 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2842" class="LineNr">2842 </span> 5d/pop-to-ebp +<span id="L2843" class="LineNr">2843 </span> c3/return +<span id="L2844" class="LineNr">2844 </span> +<span id="L2845" class="LineNr">2845 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line: (addr stream byte) -> eax: int</span> +<span id="L2846" class="LineNr">2846 </span> <span class="subxComment"># pseudocode:</span> +<span id="L2847" class="LineNr">2847 </span> <span class="subxComment"># result = 0</span> +<span id="L2848" class="LineNr">2848 </span> <span class="subxComment"># while true</span> +<span id="L2849" class="LineNr">2849 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L2850" class="LineNr">2850 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L2851" class="LineNr">2851 </span> <span class="subxComment"># break</span> +<span id="L2852" class="LineNr">2852 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L2853" class="LineNr">2853 </span> <span class="subxComment"># break</span> +<span id="L2854" class="LineNr">2854 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L2855" class="LineNr">2855 </span> <span class="subxComment"># break</span> +<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># if slice-equal?(word-slice, "==")</span> +<span id="L2857" class="LineNr">2857 </span> <span class="subxComment"># break # no need for segment header lines</span> +<span id="L2858" class="LineNr">2858 </span> <span class="subxComment"># result += compute-width(word-slice)</span> +<span id="L2859" class="LineNr">2859 </span> <span class="subxComment"># return result</span> +<span id="L2860" class="LineNr">2860 </span> <span class="subxComment">#</span> +<span id="L2861" class="LineNr">2861 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2862" class="LineNr">2862 </span> 55/push-ebp +<span id="L2863" class="LineNr">2863 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2864" class="LineNr">2864 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L2865" class="LineNr">2865 </span> 51/push-ecx +<span id="L2866" class="LineNr">2866 </span> 52/push-edx +<span id="L2867" class="LineNr">2867 </span> 53/push-ebx +<span id="L2868" class="LineNr">2868 </span> <span class="subxComment"># var result/eax = 0</span> +<span id="L2869" class="LineNr">2869 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2870" class="LineNr">2870 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L2871" class="LineNr">2871 </span> 68/push 0/imm32/end +<span id="L2872" class="LineNr">2872 </span> 68/push 0/imm32/start +<span id="L2873" class="LineNr">2873 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L2874" class="Folded">2874 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2900" class="LineNr">2900 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L2901" class="LineNr">2901 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2902" class="LineNr">2902 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2903" class="LineNr">2903 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2904" class="LineNr">2904 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L2905" class="LineNr">2905 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2906" class="LineNr">2906 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2907" class="LineNr">2907 </span><span class="Constant">$num-bytes:loop</span>: +<span id="L2908" class="LineNr">2908 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2909" class="LineNr">2909 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2910" class="LineNr">2910 </span> 51/push-ecx +<span id="L2911" class="LineNr">2911 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L2912" class="LineNr">2912 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2913" class="LineNr">2913 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2914" class="LineNr">2914 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2915" class="LineNr">2915 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2916" class="Folded">2916 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2956" class="LineNr">2956 </span><span class="Constant">$num-bytes:check0</span>: +<span id="L2957" class="LineNr">2957 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2958" class="LineNr">2958 </span> <span class="subxS1Comment"># . save result</span> +<span id="L2959" class="LineNr">2959 </span> 50/push-eax +<span id="L2960" class="LineNr">2960 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2961" class="LineNr">2961 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2962" class="LineNr">2962 </span> 51/push-ecx +<span id="L2963" class="LineNr">2963 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2964" class="LineNr">2964 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2965" class="LineNr">2965 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2966" class="LineNr">2966 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2967" class="LineNr">2967 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L2968" class="LineNr">2968 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2969" class="LineNr">2969 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L2970" class="LineNr">2970 </span> 58/pop-to-eax +<span id="L2971" class="LineNr">2971 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L2972" class="LineNr">2972 </span><span class="Constant">$num-bytes:check-for-comment</span>: +<span id="L2973" class="LineNr">2973 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2974" class="LineNr">2974 </span> <span class="subxS1Comment"># . start/edx = word-slice->start</span> +<span id="L2975" class="LineNr">2975 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L2976" class="LineNr">2976 </span> <span class="subxS1Comment"># . c/ebx = *start</span> +<span id="L2977" class="LineNr">2977 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L2978" class="LineNr">2978 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to BL</span> +<span id="L2979" class="LineNr">2979 </span> <span class="subxS1Comment"># . if (ebx == '#') break</span> +<span id="L2980" class="LineNr">2980 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x23/imm32/hash <span class="subxComment"># compare ebx</span> +<span id="L2981" class="LineNr">2981 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L2982" class="LineNr">2982 </span><span class="Constant">$num-bytes:check-for-label</span>: +<span id="L2983" class="LineNr">2983 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) break</span> +<span id="L2984" class="LineNr">2984 </span> <span class="subxS1Comment"># . end/edx = word-slice->end</span> +<span id="L2985" class="LineNr">2985 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L2986" class="LineNr">2986 </span> <span class="subxS1Comment"># . c/ebx = *(end-1)</span> +<span id="L2987" class="LineNr">2987 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L2988" class="LineNr">2988 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> +<span id="L2989" class="LineNr">2989 </span> <span class="subxS1Comment"># . if (ebx == ':') break</span> +<span id="L2990" class="LineNr">2990 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x3a/imm32/colon <span class="subxComment"># compare ebx</span> +<span id="L2991" class="LineNr">2991 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L2992" class="LineNr">2992 </span><span class="Constant">$num-bytes:check-for-segment-header</span>: +<span id="L2993" class="LineNr">2993 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> +<span id="L2994" class="LineNr">2994 </span> <span class="subxS1Comment"># . push result</span> +<span id="L2995" class="LineNr">2995 </span> 50/push-eax +<span id="L2996" class="LineNr">2996 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L2997" class="LineNr">2997 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2998" class="LineNr">2998 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L2999" class="LineNr">2999 </span> 51/push-ecx +<span id="L3000" class="LineNr">3000 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3001" class="LineNr">3001 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L3002" class="LineNr">3002 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3003" class="LineNr">3003 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3004" class="LineNr">3004 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L3005" class="LineNr">3005 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3006" class="LineNr">3006 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L3007" class="LineNr">3007 </span> 58/pop-to-eax +<span id="L3008" class="LineNr">3008 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L3009" class="LineNr">3009 </span><span class="Constant">$num-bytes:loop-body</span>: +<span id="L3010" class="LineNr">3010 </span> <span class="subxComment"># result += compute-width-of-slice(word-slice)</span> +<span id="L3011" class="LineNr">3011 </span> <span class="subxS1Comment"># . copy result to edx</span> +<span id="L3012" class="LineNr">3012 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L3013" class="LineNr">3013 </span> <span class="subxS1Comment"># . eax = compute-width-of-slice(word-slice)</span> +<span id="L3014" class="LineNr">3014 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3015" class="LineNr">3015 </span> 51/push-ecx +<span id="L3016" class="LineNr">3016 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3017" class="LineNr">3017 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 +<span id="L3018" class="LineNr">3018 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3019" class="LineNr">3019 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3020" class="LineNr">3020 </span> <span class="subxS1Comment"># . eax += result</span> +<span id="L3021" class="LineNr">3021 </span> 01/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edx to eax</span> +<span id="L3022" class="LineNr">3022 </span> e9/jump $num-bytes:<span class="Constant">loop</span>/disp32 +<span id="L3023" class="LineNr">3023 </span><span class="Constant">$num-bytes:end</span>: +<span id="L3024" class="LineNr">3024 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L3025" class="LineNr">3025 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3026" class="LineNr">3026 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3027" class="LineNr">3027 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3028" class="LineNr">3028 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L3029" class="LineNr">3029 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3030" class="LineNr">3030 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3031" class="LineNr">3031 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L3032" class="LineNr">3032 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3033" class="LineNr">3033 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3034" class="LineNr">3034 </span> 5b/pop-to-ebx +<span id="L3035" class="LineNr">3035 </span> 5a/pop-to-edx +<span id="L3036" class="LineNr">3036 </span> 59/pop-to-ecx +<span id="L3037" class="LineNr">3037 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3038" class="LineNr">3038 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3039" class="LineNr">3039 </span> 5d/pop-to-ebp +<span id="L3040" class="LineNr">3040 </span> c3/return +<span id="L3041" class="LineNr">3041 </span> +<span id="L3042" class="LineNr">3042 </span><span class="subxTest">test-num-bytes-handles-empty-string</span>: +<span id="L3043" class="LineNr">3043 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L3044" class="LineNr">3044 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3045" class="LineNr">3045 </span> 55/push-ebp +<span id="L3046" class="LineNr">3046 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3047" class="LineNr">3047 </span> <span class="subxComment"># setup</span> +<span id="L3048" class="LineNr">3048 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3049" class="LineNr">3049 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3050" class="LineNr">3050 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3051" class="LineNr">3051 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3052" class="LineNr">3052 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3053" class="LineNr">3053 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3054" class="LineNr">3054 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3055" class="LineNr">3055 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3056" class="LineNr">3056 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3057" class="LineNr">3057 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3058" class="LineNr">3058 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3059" class="LineNr">3059 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3060" class="LineNr">3060 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3061" class="LineNr">3061 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3062" class="LineNr">3062 </span> <span class="subxComment"># no contents in input</span> +<span id="L3063" class="LineNr">3063 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L3064" class="LineNr">3064 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3065" class="LineNr">3065 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3066" class="LineNr">3066 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3067" class="LineNr">3067 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L3068" class="LineNr">3068 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3069" class="LineNr">3069 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3070" class="LineNr">3070 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L3071" class="LineNr">3071 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3072" class="LineNr">3072 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-empty-string"</span>/imm32 +<span id="L3073" class="LineNr">3073 </span> 68/push 0/imm32/true +<span id="L3074" class="LineNr">3074 </span> 50/push-eax +<span id="L3075" class="LineNr">3075 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3076" class="LineNr">3076 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3077" class="LineNr">3077 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3078" class="LineNr">3078 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3079" class="LineNr">3079 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3080" class="LineNr">3080 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3081" class="LineNr">3081 </span> 5d/pop-to-ebp +<span id="L3082" class="LineNr">3082 </span> c3/return +<span id="L3083" class="LineNr">3083 </span> +<span id="L3084" class="LineNr">3084 </span><span class="subxTest">test-num-bytes-ignores-comments</span>: +<span id="L3085" class="LineNr">3085 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L3086" class="LineNr">3086 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3087" class="LineNr">3087 </span> 55/push-ebp +<span id="L3088" class="LineNr">3088 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3089" class="LineNr">3089 </span> <span class="subxComment"># setup</span> +<span id="L3090" class="LineNr">3090 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3091" class="LineNr">3091 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3092" class="LineNr">3092 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3093" class="LineNr">3093 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3094" class="LineNr">3094 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3095" class="LineNr">3095 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3096" class="LineNr">3096 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3097" class="LineNr">3097 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3098" class="LineNr">3098 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3099" class="LineNr">3099 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3100" class="LineNr">3100 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3101" class="LineNr">3101 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3102" class="LineNr">3102 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3103" class="LineNr">3103 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3104" class="LineNr">3104 </span> <span class="subxComment"># initialize input</span> +<span id="L3105" class="LineNr">3105 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> +<span id="L3106" class="LineNr">3106 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3107" class="LineNr">3107 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L3108" class="LineNr">3108 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3109" class="LineNr">3109 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3110" class="LineNr">3110 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3111" class="LineNr">3111 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3112" class="LineNr">3112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3113" class="LineNr">3113 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L3114" class="LineNr">3114 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3115" class="LineNr">3115 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3116" class="LineNr">3116 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3117" class="LineNr">3117 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L3118" class="LineNr">3118 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3119" class="LineNr">3119 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3120" class="LineNr">3120 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L3121" class="LineNr">3121 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3122" class="LineNr">3122 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-comments"</span>/imm32 +<span id="L3123" class="LineNr">3123 </span> 68/push 0/imm32/true +<span id="L3124" class="LineNr">3124 </span> 50/push-eax +<span id="L3125" class="LineNr">3125 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3126" class="LineNr">3126 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3127" class="LineNr">3127 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3128" class="LineNr">3128 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3129" class="LineNr">3129 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3130" class="LineNr">3130 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3131" class="LineNr">3131 </span> 5d/pop-to-ebp +<span id="L3132" class="LineNr">3132 </span> c3/return +<span id="L3133" class="LineNr">3133 </span> +<span id="L3134" class="LineNr">3134 </span><span class="subxTest">test-num-bytes-ignores-labels</span>: +<span id="L3135" class="LineNr">3135 </span> <span class="subxComment"># if the first word ends with ':', return 0</span> +<span id="L3136" class="LineNr">3136 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3137" class="LineNr">3137 </span> 55/push-ebp +<span id="L3138" class="LineNr">3138 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3139" class="LineNr">3139 </span> <span class="subxComment"># setup</span> +<span id="L3140" class="LineNr">3140 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3141" class="LineNr">3141 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3142" class="LineNr">3142 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3143" class="LineNr">3143 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3144" class="LineNr">3144 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3145" class="LineNr">3145 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3146" class="LineNr">3146 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3147" class="LineNr">3147 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3148" class="LineNr">3148 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3149" class="LineNr">3149 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3150" class="LineNr">3150 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3151" class="LineNr">3151 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3152" class="LineNr">3152 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3153" class="LineNr">3153 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3154" class="LineNr">3154 </span> <span class="subxComment"># initialize input</span> +<span id="L3155" class="LineNr">3155 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> +<span id="L3156" class="LineNr">3156 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3157" class="LineNr">3157 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L3158" class="LineNr">3158 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3159" class="LineNr">3159 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3160" class="LineNr">3160 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3161" class="LineNr">3161 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3162" class="LineNr">3162 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3163" class="LineNr">3163 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L3164" class="LineNr">3164 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3165" class="LineNr">3165 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3166" class="LineNr">3166 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3167" class="LineNr">3167 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L3168" class="LineNr">3168 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3169" class="LineNr">3169 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3170" class="LineNr">3170 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L3171" class="LineNr">3171 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3172" class="LineNr">3172 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-labels"</span>/imm32 +<span id="L3173" class="LineNr">3173 </span> 68/push 0/imm32/true +<span id="L3174" class="LineNr">3174 </span> 50/push-eax +<span id="L3175" class="LineNr">3175 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3176" class="LineNr">3176 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3177" class="LineNr">3177 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3178" class="LineNr">3178 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3179" class="LineNr">3179 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3180" class="LineNr">3180 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3181" class="LineNr">3181 </span> 5d/pop-to-ebp +<span id="L3182" class="LineNr">3182 </span> c3/return +<span id="L3183" class="LineNr">3183 </span> +<span id="L3184" class="LineNr">3184 </span><span class="subxTest">test-num-bytes-ignores-segment-headers</span>: +<span id="L3185" class="LineNr">3185 </span> <span class="subxComment"># if the first word is '==', return 0</span> +<span id="L3186" class="LineNr">3186 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3187" class="LineNr">3187 </span> 55/push-ebp +<span id="L3188" class="LineNr">3188 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3189" class="LineNr">3189 </span> <span class="subxComment"># setup</span> +<span id="L3190" class="LineNr">3190 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3191" class="LineNr">3191 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3192" class="LineNr">3192 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3193" class="LineNr">3193 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3194" class="LineNr">3194 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3195" class="LineNr">3195 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3196" class="LineNr">3196 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3197" class="LineNr">3197 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3198" class="LineNr">3198 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3199" class="LineNr">3199 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3200" class="LineNr">3200 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3201" class="LineNr">3201 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3202" class="LineNr">3202 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3203" class="LineNr">3203 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3204" class="LineNr">3204 </span> <span class="subxComment"># initialize input</span> +<span id="L3205" class="LineNr">3205 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== ab cd")</span> +<span id="L3206" class="LineNr">3206 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3207" class="LineNr">3207 </span> 68/push <span class="Constant">"== ab cd"</span>/imm32 +<span id="L3208" class="LineNr">3208 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3209" class="LineNr">3209 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3210" class="LineNr">3210 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3211" class="LineNr">3211 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3212" class="LineNr">3212 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3213" class="LineNr">3213 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L3214" class="LineNr">3214 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3215" class="LineNr">3215 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3216" class="LineNr">3216 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3217" class="LineNr">3217 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L3218" class="LineNr">3218 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3219" class="LineNr">3219 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3220" class="LineNr">3220 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L3221" class="LineNr">3221 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3222" class="LineNr">3222 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-segment-headers"</span>/imm32 +<span id="L3223" class="LineNr">3223 </span> 68/push 0/imm32/true +<span id="L3224" class="LineNr">3224 </span> 50/push-eax +<span id="L3225" class="LineNr">3225 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3226" class="LineNr">3226 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3227" class="LineNr">3227 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3228" class="LineNr">3228 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3229" class="LineNr">3229 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3230" class="LineNr">3230 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3231" class="LineNr">3231 </span> 5d/pop-to-ebp +<span id="L3232" class="LineNr">3232 </span> c3/return +<span id="L3233" class="LineNr">3233 </span> +<span id="L3234" class="LineNr">3234 </span><span class="subxTest">test-num-bytes-counts-words-by-default</span>: +<span id="L3235" class="LineNr">3235 </span> <span class="subxComment"># without metadata, count words</span> +<span id="L3236" class="LineNr">3236 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3237" class="LineNr">3237 </span> 55/push-ebp +<span id="L3238" class="LineNr">3238 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3239" class="LineNr">3239 </span> <span class="subxComment"># setup</span> +<span id="L3240" class="LineNr">3240 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3241" class="LineNr">3241 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3242" class="LineNr">3242 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3243" class="LineNr">3243 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3244" class="LineNr">3244 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3245" class="LineNr">3245 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3246" class="LineNr">3246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3247" class="LineNr">3247 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3248" class="LineNr">3248 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3249" class="LineNr">3249 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3250" class="LineNr">3250 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3251" class="LineNr">3251 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3252" class="LineNr">3252 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3253" class="LineNr">3253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3254" class="LineNr">3254 </span> <span class="subxComment"># initialize input</span> +<span id="L3255" class="LineNr">3255 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef")</span> +<span id="L3256" class="LineNr">3256 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3257" class="LineNr">3257 </span> 68/push <span class="Constant">"ab cd ef"</span>/imm32 +<span id="L3258" class="LineNr">3258 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3259" class="LineNr">3259 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3260" class="LineNr">3260 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3261" class="LineNr">3261 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3262" class="LineNr">3262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3263" class="LineNr">3263 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L3264" class="LineNr">3264 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3265" class="LineNr">3265 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3266" class="LineNr">3266 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3267" class="LineNr">3267 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L3268" class="LineNr">3268 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3269" class="LineNr">3269 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3270" class="LineNr">3270 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L3271" class="LineNr">3271 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3272" class="LineNr">3272 </span> 68/push <span class="Constant">"F - test-num-bytes-counts-words-by-default"</span>/imm32 +<span id="L3273" class="LineNr">3273 </span> 68/push 3/imm32/true +<span id="L3274" class="LineNr">3274 </span> 50/push-eax +<span id="L3275" class="LineNr">3275 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3276" class="LineNr">3276 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3277" class="LineNr">3277 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3278" class="LineNr">3278 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3279" class="LineNr">3279 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3280" class="LineNr">3280 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3281" class="LineNr">3281 </span> 5d/pop-to-ebp +<span id="L3282" class="LineNr">3282 </span> c3/return +<span id="L3283" class="LineNr">3283 </span> +<span id="L3284" class="LineNr">3284 </span><span class="subxTest">test-num-bytes-ignores-trailing-comment</span>: +<span id="L3285" class="LineNr">3285 </span> <span class="subxComment"># trailing comments appropriately ignored</span> +<span id="L3286" class="LineNr">3286 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3287" class="LineNr">3287 </span> 55/push-ebp +<span id="L3288" class="LineNr">3288 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3289" class="LineNr">3289 </span> <span class="subxComment"># setup</span> +<span id="L3290" class="LineNr">3290 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3291" class="LineNr">3291 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3292" class="LineNr">3292 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3293" class="LineNr">3293 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3294" class="LineNr">3294 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3295" class="LineNr">3295 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3296" class="LineNr">3296 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3297" class="LineNr">3297 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3298" class="LineNr">3298 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3299" class="LineNr">3299 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3300" class="LineNr">3300 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3301" class="LineNr">3301 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3302" class="LineNr">3302 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3303" class="LineNr">3303 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3304" class="LineNr">3304 </span> <span class="subxComment"># initialize input</span> +<span id="L3305" class="LineNr">3305 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd # ef")</span> +<span id="L3306" class="LineNr">3306 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3307" class="LineNr">3307 </span> 68/push <span class="Constant">"ab cd # ef"</span>/imm32 +<span id="L3308" class="LineNr">3308 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3309" class="LineNr">3309 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3310" class="LineNr">3310 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3311" class="LineNr">3311 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3312" class="LineNr">3312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3313" class="LineNr">3313 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3315" class="LineNr">3315 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3316" class="LineNr">3316 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3317" class="LineNr">3317 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L3318" class="LineNr">3318 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3319" class="LineNr">3319 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3320" class="LineNr">3320 </span> <span class="subxComment"># check-ints-equal(eax, 2, msg)</span> +<span id="L3321" class="LineNr">3321 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3322" class="LineNr">3322 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-trailing-comment"</span>/imm32 +<span id="L3323" class="LineNr">3323 </span> 68/push 2/imm32/true +<span id="L3324" class="LineNr">3324 </span> 50/push-eax +<span id="L3325" class="LineNr">3325 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3326" class="LineNr">3326 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3327" class="LineNr">3327 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3328" class="LineNr">3328 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3329" class="LineNr">3329 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3330" class="LineNr">3330 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3331" class="LineNr">3331 </span> 5d/pop-to-ebp +<span id="L3332" class="LineNr">3332 </span> c3/return +<span id="L3333" class="LineNr">3333 </span> +<span id="L3334" class="LineNr">3334 </span><span class="subxTest">test-num-bytes-handles-imm32</span>: +<span id="L3335" class="LineNr">3335 </span> <span class="subxComment"># if a word has the /imm32 metadata, count it as 4 bytes</span> +<span id="L3336" class="LineNr">3336 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3337" class="LineNr">3337 </span> 55/push-ebp +<span id="L3338" class="LineNr">3338 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3339" class="LineNr">3339 </span> <span class="subxComment"># setup</span> +<span id="L3340" class="LineNr">3340 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L3341" class="LineNr">3341 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3342" class="LineNr">3342 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3343" class="LineNr">3343 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3344" class="LineNr">3344 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3345" class="LineNr">3345 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3346" class="LineNr">3346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3347" class="LineNr">3347 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L3348" class="LineNr">3348 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3349" class="LineNr">3349 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L3350" class="LineNr">3350 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3351" class="LineNr">3351 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L3352" class="LineNr">3352 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3353" class="LineNr">3353 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3354" class="LineNr">3354 </span> <span class="subxComment"># initialize input</span> +<span id="L3355" class="LineNr">3355 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd/imm32 ef")</span> +<span id="L3356" class="LineNr">3356 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3357" class="LineNr">3357 </span> 68/push <span class="Constant">"ab cd/imm32 ef"</span>/imm32 +<span id="L3358" class="LineNr">3358 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3359" class="LineNr">3359 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3360" class="LineNr">3360 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3361" class="LineNr">3361 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3362" class="LineNr">3362 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3363" class="LineNr">3363 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L3364" class="LineNr">3364 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3365" class="LineNr">3365 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L3366" class="LineNr">3366 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3367" class="LineNr">3367 </span> e8/call <a href='survey_baremetal.subx.html#L2845'>num-bytes</a>/disp32 +<span id="L3368" class="LineNr">3368 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3369" class="LineNr">3369 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3370" class="LineNr">3370 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L3371" class="LineNr">3371 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3372" class="LineNr">3372 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-imm32"</span>/imm32 +<span id="L3373" class="LineNr">3373 </span> 68/push 6/imm32/true +<span id="L3374" class="LineNr">3374 </span> 50/push-eax +<span id="L3375" class="LineNr">3375 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3376" class="LineNr">3376 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L3377" class="LineNr">3377 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3378" class="LineNr">3378 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3379" class="LineNr">3379 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3380" class="LineNr">3380 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3381" class="LineNr">3381 </span> 5d/pop-to-ebp +<span id="L3382" class="LineNr">3382 </span> c3/return +<span id="L3383" class="LineNr">3383 </span> +<span id="L3384" class="LineNr">3384 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/survey.subx.html b/html/linux/survey_elf.subx.html index 72513342..9136545c 100644 --- a/html/apps/survey.subx.html +++ b/html/linux/survey_elf.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/survey.subx</title> +<title>Mu - linux/survey_elf.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,18 +14,18 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } +.Constant { color: #008787; } .subxTest { color: #5f8700; } -.subxS1Comment { color: #0000af; } -.CommentedCode { color: #8a8a8a; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } +.CommentedCode { color: #8a8a8a; } +.subxFunction { color: #af5f00; text-decoration: underline; } .Folded { color: #080808; background-color: #949494; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -59,19 +59,19 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/survey.subx'>https://github.com/akkartik/mu/blob/main/apps/survey.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/survey_elf.subx'>https://github.com/akkartik/mu/blob/main/linux/survey_elf.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Assign addresses (co-ordinates) to instructions (landmarks) in a program</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># (landscape).</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment"># Use the addresses assigned to:</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># a) replace labels</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># b) add segment headers with addresses and offsets correctly filled in</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># b) add an ELF header and segment headers with addresses and offsets correctly filled in</span> <span id="L6" class="LineNr"> 6 </span><span class="subxComment">#</span> <span id="L7" class="LineNr"> 7 </span><span class="subxComment"># To build:</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/subx-params.subx apps/survey.subx -o apps/survey</span> +<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/subx-params.subx apps/survey_elf.subx -o apps/survey_elf</span> <span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> -<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># The expected input is a stream of bytes with segment headers, comments and</span> -<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># some interspersed labels.</span> +<span id="L10" class="LineNr"> 10 </span><span class="subxComment"># The expected input is a stream of bytes with '==' segment headers, comments</span> +<span id="L11" class="LineNr"> 11 </span><span class="subxComment"># and some interspersed labels.</span> <span id="L12" class="LineNr"> 12 </span><span class="subxComment"># $ cat x</span> <span id="L13" class="LineNr"> 13 </span><span class="subxComment"># == code 0x1</span> <span id="L14" class="LineNr"> 14 </span><span class="subxComment"># l1:</span> @@ -86,7 +86,7 @@ if ('onhashchange' in window) { <span id="L23" class="LineNr"> 23 </span><span class="subxComment"># The output is the stream of bytes without segment headers or label definitions,</span> <span id="L24" class="LineNr"> 24 </span><span class="subxComment"># and with label references replaced with numeric values/displacements.</span> <span id="L25" class="LineNr"> 25 </span><span class="subxComment">#</span> -<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># $ cat x |./bootstrap run apps/survey</span> +<span id="L26" class="LineNr"> 26 </span><span class="subxComment"># $ cat x |bootstrap/bootstrap run survey_elf</span> <span id="L27" class="LineNr"> 27 </span><span class="subxComment"># ...ELF header bytes...</span> <span id="L28" class="LineNr"> 28 </span><span class="subxComment"># # ELF header above will specify that code segment begins at this offset</span> <span id="L29" class="LineNr"> 29 </span><span class="subxComment"># aa bb nn # some computed address</span> @@ -110,17 +110,17 @@ if ('onhashchange' in window) { <span id="L47" class="LineNr"> 47 </span> <span id="L48" class="LineNr"> 48 </span> <span class="subxComment"># Heap = new-segment(Heap-size)</span> <span id="L49" class="LineNr"> 49 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L50" class="LineNr"> 50 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L50" class="LineNr"> 50 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L51" class="LineNr"> 51 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L52" class="LineNr"> 52 </span> <span class="subxS2Comment"># . . call</span> -<span id="L53" class="LineNr"> 53 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L53" class="LineNr"> 53 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L54" class="LineNr"> 54 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L55" class="LineNr"> 55 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># initialize-trace-stream(Trace-size)</span> <span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> <span id="L58" class="LineNr"> 58 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Trace-size</span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L59" class="LineNr"> 59 </span> <span class="subxS2Comment"># . . call</span> -<span id="L60" class="LineNr"> 60 </span> e8/call <a href='../107trace.subx.html#L48'>initialize-trace-stream</a>/disp32 +<span id="L60" class="LineNr"> 60 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 <span id="L61" class="LineNr"> 61 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L62" class="LineNr"> 62 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L63" class="LineNr"> 63 </span> @@ -134,7 +134,7 @@ if ('onhashchange' in window) { <span id="L71" class="LineNr"> 71 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L72" class="LineNr"> 72 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L73" class="LineNr"> 73 </span> <span class="subxS2Comment"># . . call</span> -<span id="L74" class="LineNr"> 74 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L74" class="LineNr"> 74 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L75" class="LineNr"> 75 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L76" class="LineNr"> 76 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L77" class="LineNr"> 77 </span> <span class="subxS1Comment"># . if (eax == false) goto interactive</span> @@ -143,16 +143,16 @@ if ('onhashchange' in window) { <span id="L80" class="LineNr"> 80 </span> <span class="subxComment"># run-tests()</span> <span id="L81" class="LineNr"> 81 </span> e8/call run-tests/disp32 <span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L83" class="LineNr"> 83 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L83" class="LineNr"> 83 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L84" class="LineNr"> 84 </span> eb/jump $subx-survey-main:end/disp8 <span id="L85" class="LineNr"> 85 </span><span class="Constant">$subx-survey-main:interactive</span>: <span id="L86" class="LineNr"> 86 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> <span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># subx-survey(Stdin, Stdout)</span> <span id="L88" class="LineNr"> 88 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L89" class="LineNr"> 89 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L90" class="LineNr"> 90 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L89" class="LineNr"> 89 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L90" class="LineNr"> 90 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L91" class="LineNr"> 91 </span> <span class="subxS2Comment"># . . call</span> -<span id="L92" class="LineNr"> 92 </span> e8/call <a href='survey.subx.html#L115'>subx-survey</a>/disp32 +<span id="L92" class="LineNr"> 92 </span> e8/call <a href='survey_elf.subx.html#L115'>subx-survey</a>/disp32 <span id="L93" class="LineNr"> 93 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L94" class="LineNr"> 94 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L95" class="LineNr"> 95 </span><span class="CommentedCode">#? # . write-stream(2/stderr, Trace-stream)</span> @@ -166,7 +166,7 @@ if ('onhashchange' in window) { <span id="L103" class="LineNr"> 103 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L104" class="LineNr"> 104 </span> bb/copy-to-ebx 0/imm32 <span id="L105" class="LineNr"> 105 </span><span class="Constant">$subx-survey-main:end</span>: -<span id="L106" class="LineNr"> 106 </span> e8/call syscall_exit/disp32 +<span id="L106" class="LineNr"> 106 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L107" class="LineNr"> 107 </span> <span id="L108" class="LineNr"> 108 </span><span class="subxComment"># data structures:</span> <span id="L109" class="LineNr"> 109 </span><span class="subxComment"># segment-info: {address, file-offset, size} (12 bytes)</span> @@ -224,7 +224,7 @@ if ('onhashchange' in window) { <span id="L161" class="LineNr"> 161 </span> 56/push-esi <span id="L162" class="LineNr"> 162 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L163" class="LineNr"> 163 </span> <span class="subxS2Comment"># . . call</span> -<span id="L164" class="LineNr"> 164 </span> e8/call <a href='../132slurp.subx.html#L8'>slurp</a>/disp32 +<span id="L164" class="LineNr"> 164 </span> e8/call <a href='132slurp.subx.html#L8'>slurp</a>/disp32 <span id="L165" class="LineNr"> 165 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L166" class="LineNr"> 166 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L167" class="LineNr"> 167 </span> <span class="subxComment"># compute-offsets(in, segments, labels)</span> @@ -233,7 +233,7 @@ if ('onhashchange' in window) { <span id="L170" class="LineNr"> 170 </span> 51/push-ecx <span id="L171" class="LineNr"> 171 </span> 56/push-esi <span id="L172" class="LineNr"> 172 </span> <span class="subxS2Comment"># . . call</span> -<span id="L173" class="LineNr"> 173 </span> e8/call <a href='survey.subx.html#L407'>compute-offsets</a>/disp32 +<span id="L173" class="LineNr"> 173 </span> e8/call <a href='survey_elf.subx.html#L407'>compute-offsets</a>/disp32 <span id="L174" class="LineNr"> 174 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L175" class="LineNr"> 175 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L176" class="LineNr"> 176 </span> <span class="subxComment"># compute-addresses(segments, labels)</span> @@ -241,14 +241,14 @@ if ('onhashchange' in window) { <span id="L178" class="LineNr"> 178 </span> 52/push-edx <span id="L179" class="LineNr"> 179 </span> 51/push-ecx <span id="L180" class="LineNr"> 180 </span> <span class="subxS2Comment"># . . call</span> -<span id="L181" class="LineNr"> 181 </span> e8/call <a href='survey.subx.html#L1117'>compute-addresses</a>/disp32 +<span id="L181" class="LineNr"> 181 </span> e8/call <a href='survey_elf.subx.html#L1133'>compute-addresses</a>/disp32 <span id="L182" class="LineNr"> 182 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L183" class="LineNr"> 183 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L184" class="LineNr"> 184 </span> <span class="subxComment"># rewind-stream(in)</span> <span id="L185" class="LineNr"> 185 </span> <span class="subxS2Comment"># . . push args</span> <span id="L186" class="LineNr"> 186 </span> 56/push-esi <span id="L187" class="LineNr"> 187 </span> <span class="subxS2Comment"># . . call</span> -<span id="L188" class="LineNr"> 188 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L188" class="LineNr"> 188 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L189" class="LineNr"> 189 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L190" class="LineNr"> 190 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L191" class="LineNr"> 191 </span> <span class="subxComment"># emit-output(in, out, segments, labels)</span> @@ -258,14 +258,14 @@ if ('onhashchange' in window) { <span id="L195" class="LineNr"> 195 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L196" class="LineNr"> 196 </span> 56/push-esi <span id="L197" class="LineNr"> 197 </span> <span class="subxS2Comment"># . . call</span> -<span id="L198" class="LineNr"> 198 </span> e8/call <a href='survey.subx.html#L1773'>emit-output</a>/disp32 +<span id="L198" class="LineNr"> 198 </span> e8/call <a href='survey_elf.subx.html#L1789'>emit-output</a>/disp32 <span id="L199" class="LineNr"> 199 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L200" class="LineNr"> 200 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L201" class="LineNr"> 201 </span> <span class="subxComment"># flush(out)</span> <span id="L202" class="LineNr"> 202 </span> <span class="subxS2Comment"># . . push args</span> <span id="L203" class="LineNr"> 203 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L204" class="LineNr"> 204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L205" class="LineNr"> 205 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L205" class="LineNr"> 205 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L206" class="LineNr"> 206 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L207" class="LineNr"> 207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L208" class="LineNr"> 208 </span><span class="Constant">$subx-survey:end</span>: @@ -303,121 +303,121 @@ if ('onhashchange' in window) { <span id="L240" class="LineNr"> 240 </span> <span class="subxComment"># setup</span> <span id="L241" class="LineNr"> 241 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> <span id="L242" class="LineNr"> 242 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L243" class="LineNr"> 243 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L243" class="LineNr"> 243 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L244" class="LineNr"> 244 </span> <span class="subxS2Comment"># . . call</span> -<span id="L245" class="LineNr"> 245 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L245" class="LineNr"> 245 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L246" class="LineNr"> 246 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L247" class="LineNr"> 247 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L248" class="LineNr"> 248 </span> <span class="subxS1Comment"># . clear-stream($_test-input-buffered-file->buffer)</span> <span id="L249" class="LineNr"> 249 </span> <span class="subxS2Comment"># . . push args</span> <span id="L250" class="LineNr"> 250 </span> 68/push $_test-input-buffered-file->buffer/imm32 <span id="L251" class="LineNr"> 251 </span> <span class="subxS2Comment"># . . call</span> -<span id="L252" class="LineNr"> 252 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L252" class="LineNr"> 252 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L253" class="LineNr"> 253 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L254" class="LineNr"> 254 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L255" class="LineNr"> 255 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> <span id="L256" class="LineNr"> 256 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L257" class="LineNr"> 257 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 +<span id="L257" class="LineNr"> 257 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 <span id="L258" class="LineNr"> 258 </span> <span class="subxS2Comment"># . . call</span> -<span id="L259" class="LineNr"> 259 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L259" class="LineNr"> 259 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L260" class="LineNr"> 260 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L261" class="LineNr"> 261 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L262" class="LineNr"> 262 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> <span id="L263" class="LineNr"> 263 </span> <span class="subxS2Comment"># . . push args</span> <span id="L264" class="LineNr"> 264 </span> 68/push $_test-output-buffered-file->buffer/imm32 <span id="L265" class="LineNr"> 265 </span> <span class="subxS2Comment"># . . call</span> -<span id="L266" class="LineNr"> 266 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L266" class="LineNr"> 266 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L267" class="LineNr"> 267 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L268" class="LineNr"> 268 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L269" class="LineNr"> 269 </span> <span class="subxComment"># initialize input</span> <span id="L270" class="LineNr"> 270 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1\n")</span> <span id="L271" class="LineNr"> 271 </span> <span class="subxS2Comment"># . . push args</span> <span id="L272" class="LineNr"> 272 </span> 68/push <span class="Constant">"== code 0x1\n"</span>/imm32 -<span id="L273" class="LineNr"> 273 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L273" class="LineNr"> 273 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L274" class="LineNr"> 274 </span> <span class="subxS2Comment"># . . call</span> -<span id="L275" class="LineNr"> 275 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L275" class="LineNr"> 275 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L276" class="LineNr"> 276 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L277" class="LineNr"> 277 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L278" class="LineNr"> 278 </span> <span class="subxS1Comment"># . write(_test-input-stream, "Entry:\n")</span> <span id="L279" class="LineNr"> 279 </span> <span class="subxS2Comment"># . . push args</span> <span id="L280" class="LineNr"> 280 </span> 68/push <span class="Constant">"Entry:\n"</span>/imm32 -<span id="L281" class="LineNr"> 281 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L281" class="LineNr"> 281 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L282" class="LineNr"> 282 </span> <span class="subxS2Comment"># . . call</span> -<span id="L283" class="LineNr"> 283 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L283" class="LineNr"> 283 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L284" class="LineNr"> 284 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L285" class="LineNr"> 285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L286" class="LineNr"> 286 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32\n")</span> <span id="L287" class="LineNr"> 287 </span> <span class="subxS2Comment"># . . push args</span> <span id="L288" class="LineNr"> 288 </span> 68/push <span class="Constant">"ab x/imm32\n"</span>/imm32 -<span id="L289" class="LineNr"> 289 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L289" class="LineNr"> 289 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L290" class="LineNr"> 290 </span> <span class="subxS2Comment"># . . call</span> -<span id="L291" class="LineNr"> 291 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L291" class="LineNr"> 291 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L292" class="LineNr"> 292 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L293" class="LineNr"> 293 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L294" class="LineNr"> 294 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x1000\n")</span> <span id="L295" class="LineNr"> 295 </span> <span class="subxS2Comment"># . . push args</span> <span id="L296" class="LineNr"> 296 </span> 68/push <span class="Constant">"== data 0x1000\n"</span>/imm32 -<span id="L297" class="LineNr"> 297 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L297" class="LineNr"> 297 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L298" class="LineNr"> 298 </span> <span class="subxS2Comment"># . . call</span> -<span id="L299" class="LineNr"> 299 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L299" class="LineNr"> 299 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L300" class="LineNr"> 300 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L301" class="LineNr"> 301 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L302" class="LineNr"> 302 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> <span id="L303" class="LineNr"> 303 </span> <span class="subxS2Comment"># . . push args</span> <span id="L304" class="LineNr"> 304 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 -<span id="L305" class="LineNr"> 305 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L305" class="LineNr"> 305 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L306" class="LineNr"> 306 </span> <span class="subxS2Comment"># . . call</span> -<span id="L307" class="LineNr"> 307 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L307" class="LineNr"> 307 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L308" class="LineNr"> 308 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L309" class="LineNr"> 309 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L310" class="LineNr"> 310 </span> <span class="subxS1Comment"># . write(_test-input-stream, "01\n")</span> <span id="L311" class="LineNr"> 311 </span> <span class="subxS2Comment"># . . push args</span> <span id="L312" class="LineNr"> 312 </span> 68/push <span class="Constant">"01\n"</span>/imm32 -<span id="L313" class="LineNr"> 313 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L313" class="LineNr"> 313 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L314" class="LineNr"> 314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L315" class="LineNr"> 315 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L315" class="LineNr"> 315 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L316" class="LineNr"> 316 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L317" class="LineNr"> 317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L318" class="LineNr"> 318 </span> <span class="subxComment"># subx-survey(_test-input-buffered-file, _test-output-buffered-file)</span> <span id="L319" class="LineNr"> 319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L320" class="LineNr"> 320 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L321" class="LineNr"> 321 </span> 68/push <a href='../112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 +<span id="L320" class="LineNr"> 320 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L321" class="LineNr"> 321 </span> 68/push <a href='112read-byte.subx.html#L405'>_test-input-buffered-file</a>/imm32 <span id="L322" class="LineNr"> 322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L323" class="LineNr"> 323 </span> e8/call <a href='survey.subx.html#L115'>subx-survey</a>/disp32 +<span id="L323" class="LineNr"> 323 </span> e8/call <a href='survey_elf.subx.html#L115'>subx-survey</a>/disp32 <span id="L324" class="LineNr"> 324 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L325" class="LineNr"> 325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L326" class="LineNr"> 326 </span> <span class="subxComment"># check trace</span> <span id="L327" class="Folded"> 327 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> <span id="L353" class="LineNr"> 353 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at address 0x00001079.", msg)</span> <span id="L354" class="LineNr"> 354 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L355" class="LineNr"> 355 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L222'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 +<span id="L355" class="LineNr"> 355 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L222'>test-subx-survey-computes-addresses</a>/0"</span>/imm32 <span id="L356" class="LineNr"> 356 </span> 68/push <span class="Constant">"label 'x' is at address 0x00001079."</span>/imm32 <span id="L357" class="LineNr"> 357 </span> <span class="subxS2Comment"># . . call</span> -<span id="L358" class="LineNr"> 358 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L358" class="LineNr"> 358 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L359" class="LineNr"> 359 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L360" class="LineNr"> 360 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L361" class="LineNr"> 361 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' starts at address 0x00000074.", msg)</span> <span id="L362" class="LineNr"> 362 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L363" class="LineNr"> 363 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L222'>test-subx-survey-computes-addresses</a>/1"</span>/imm32 +<span id="L363" class="LineNr"> 363 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L222'>test-subx-survey-computes-addresses</a>/1"</span>/imm32 <span id="L364" class="LineNr"> 364 </span> 68/push <span class="Constant">"segment 'code' starts at address 0x00000074."</span>/imm32 <span id="L365" class="LineNr"> 365 </span> <span class="subxS2Comment"># . . call</span> -<span id="L366" class="LineNr"> 366 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L366" class="LineNr"> 366 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L367" class="LineNr"> 367 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L368" class="LineNr"> 368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L369" class="LineNr"> 369 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' has size 0x00000005.", msg)</span> <span id="L370" class="LineNr"> 370 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L371" class="LineNr"> 371 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L222'>test-subx-survey-computes-addresses</a>/2"</span>/imm32 -<span id="L372" class="LineNr"> 372 </span> 68/push <span class="Constant">"segment 'code' has <a href='../307size.subx.html#L5'>size</a> 0x00000005."</span>/imm32 +<span id="L371" class="LineNr"> 371 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L222'>test-subx-survey-computes-addresses</a>/2"</span>/imm32 +<span id="L372" class="LineNr"> 372 </span> 68/push <span class="Constant">"segment 'code' has <a href='307size.subx.html#L5'>size</a> 0x00000005."</span>/imm32 <span id="L373" class="LineNr"> 373 </span> <span class="subxS2Comment"># . . call</span> -<span id="L374" class="LineNr"> 374 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L374" class="LineNr"> 374 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L375" class="LineNr"> 375 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L376" class="LineNr"> 376 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L377" class="LineNr"> 377 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'data' starts at address 0x00001079.", msg)</span> <span id="L378" class="LineNr"> 378 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L379" class="LineNr"> 379 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L222'>test-subx-survey-computes-addresses</a>/3"</span>/imm32 +<span id="L379" class="LineNr"> 379 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L222'>test-subx-survey-computes-addresses</a>/3"</span>/imm32 <span id="L380" class="LineNr"> 380 </span> 68/push <span class="Constant">"segment 'data' starts at address 0x00001079."</span>/imm32 <span id="L381" class="LineNr"> 381 </span> <span class="subxS2Comment"># . . call</span> -<span id="L382" class="LineNr"> 382 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L382" class="LineNr"> 382 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L383" class="LineNr"> 383 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L384" class="LineNr"> 384 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L385" class="LineNr"> 385 </span> <span class="subxS1Comment"># . epilogue</span> @@ -425,7 +425,7 @@ if ('onhashchange' in window) { <span id="L387" class="LineNr"> 387 </span> 5d/pop-to-ebp <span id="L388" class="LineNr"> 388 </span> c3/return <span id="L389" class="LineNr"> 389 </span> -<span id="L390" class="LineNr"> 390 </span><span class="subxComment"># global scratch space for compute-offsets in the data segment</span> +<span id="L390" class="LineNr"> 390 </span><span class="subxComment"># global scratch space for compute-offsets</span> <span id="L391" class="LineNr"> 391 </span>== data <span id="L392" class="LineNr"> 392 </span> <span id="L393" class="LineNr"> 393 </span><span class="subxFunction">compute-offsets:file-offset</span>: <span class="subxComment"># int</span> @@ -487,7 +487,7 @@ if ('onhashchange' in window) { <span id="L449" class="LineNr"> 449 </span> <span class="subxComment"># trace("segment '", curr-segment-name, "' is at file offset ", sinfo->file-offset)</span> <span id="L450" class="LineNr"> 450 </span> <span class="subxComment"># segment-offset = 0</span> <span id="L451" class="LineNr"> 451 </span> <span class="subxComment"># break (next line)</span> -<span id="L452" class="LineNr"> 452 </span> <span class="subxComment"># else if is-label?(word-slice)</span> +<span id="L452" class="LineNr"> 452 </span> <span class="subxComment"># else if label?(word-slice)</span> <span id="L453" class="LineNr"> 453 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> <span id="L454" class="LineNr"> 454 </span> <span class="subxComment"># linfo: (addr label-info) = get-or-insert-slice(labels, word-slice)</span> <span id="L455" class="LineNr"> 455 </span> <span class="subxComment"># linfo->segment-name = curr-segment-name</span> @@ -517,9 +517,9 @@ if ('onhashchange' in window) { <span id="L479" class="LineNr"> 479 </span> 68/push 0/imm32 <span id="L480" class="LineNr"> 480 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to esi</span> <span id="L481" class="LineNr"> 481 </span> <span class="subxComment"># file-offset = 0</span> -<span id="L482" class="LineNr"> 482 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey.subx.html#L407'>compute-offsets</a>:file-offset/disp32 0/imm32 <span class="subxComment"># copy to *compute-offsets:file-offset</span> +<span id="L482" class="LineNr"> 482 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey_elf.subx.html#L407'>compute-offsets</a>:file-offset/disp32 0/imm32 <span class="subxComment"># copy to *compute-offsets:file-offset</span> <span id="L483" class="LineNr"> 483 </span> <span class="subxComment"># segment-offset = 0</span> -<span id="L484" class="LineNr"> 484 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 0/imm32 <span class="subxComment"># copy to *compute-offsets:segment-offset</span> +<span id="L484" class="LineNr"> 484 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 0/imm32 <span class="subxComment"># copy to *compute-offsets:segment-offset</span> <span id="L485" class="LineNr"> 485 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> <span id="L486" class="LineNr"> 486 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> <span id="L487" class="LineNr"> 487 </span> 68/push 0x200/imm32/size @@ -532,3568 +532,3507 @@ if ('onhashchange' in window) { <span id="L494" class="LineNr"> 494 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> <span id="L495" class="LineNr"> 495 </span><span class="Constant">$compute-offsets:line-loop</span>: <span id="L496" class="LineNr"> 496 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L497" class="LineNr"> 497 </span> 51/push-ecx -<span id="L498" class="LineNr"> 498 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L499" class="LineNr"> 499 </span> <span class="subxS1Comment"># . discard args</span> -<span id="L500" class="LineNr"> 500 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L501" class="LineNr"> 501 </span> <span class="subxComment"># read-line(in, line)</span> -<span id="L502" class="LineNr"> 502 </span> 51/push-ecx -<span id="L503" class="LineNr"> 503 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L504" class="LineNr"> 504 </span> e8/call <a href='../122read-line.subx.html#L218'>read-line</a>/disp32 -<span id="L505" class="LineNr"> 505 </span> <span class="subxS1Comment"># . discard args</span> -<span id="L506" class="LineNr"> 506 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L507" class="LineNr"> 507 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L508" class="LineNr"> 508 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> -<span id="L509" class="LineNr"> 509 </span> 3d/compare-eax-and 0/imm32 -<span id="L510" class="LineNr"> 510 </span> 0f 84/jump-if-= $compute-offsets:break-line-loop/disp32 -<span id="L511" class="Folded"> 511 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L544" class="LineNr"> 544 </span><span class="Constant">$compute-offsets:word-loop</span>: -<span id="L545" class="LineNr"> 545 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L546" class="LineNr"> 546 </span> 52/push-edx -<span id="L547" class="LineNr"> 547 </span> 51/push-ecx -<span id="L548" class="LineNr"> 548 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L549" class="LineNr"> 549 </span> <span class="subxS1Comment"># . discard args</span> -<span id="L550" class="LineNr"> 550 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L551" class="LineNr"> 551 </span><span class="Constant">$compute-offsets:case-empty</span>: -<span id="L552" class="LineNr"> 552 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> -<span id="L553" class="LineNr"> 553 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L554" class="LineNr"> 554 </span> 52/push-edx -<span id="L555" class="LineNr"> 555 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L556" class="LineNr"> 556 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L557" class="LineNr"> 557 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L558" class="LineNr"> 558 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L559" class="LineNr"> 559 </span> 3d/compare-eax-and 0/imm32/false -<span id="L560" class="LineNr"> 560 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 -<span id="L561" class="LineNr"> 561 </span><span class="Constant">$compute-offsets:case-comment</span>: -<span id="L562" class="LineNr"> 562 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") continue</span> -<span id="L563" class="LineNr"> 563 </span> 68/push <span class="Constant">"#"</span>/imm32 -<span id="L564" class="LineNr"> 564 </span> 52/push-edx -<span id="L565" class="LineNr"> 565 </span> e8/call <a href='../123slice.subx.html#L487'>slice-starts-with?</a>/disp32 -<span id="L566" class="LineNr"> 566 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L567" class="LineNr"> 567 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L568" class="LineNr"> 568 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L569" class="LineNr"> 569 </span> 3d/compare-eax-and 0/imm32/false -<span id="L570" class="LineNr"> 570 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 -<span id="L571" class="LineNr"> 571 </span><span class="Constant">$compute-offsets:case-segment-header</span>: -<span id="L572" class="LineNr"> 572 </span> <span class="subxComment"># if (!slice-equal?(word-slice, "==")) goto next case</span> -<span id="L573" class="LineNr"> 573 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> -<span id="L574" class="LineNr"> 574 </span> 68/push <span class="Constant">"=="</span>/imm32 -<span id="L575" class="LineNr"> 575 </span> 52/push-edx -<span id="L576" class="LineNr"> 576 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L577" class="LineNr"> 577 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L578" class="LineNr"> 578 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L579" class="LineNr"> 579 </span> <span class="subxS1Comment"># . if (eax == false) goto next case</span> -<span id="L580" class="LineNr"> 580 </span> 3d/compare-eax-and 0/imm32/false -<span id="L581" class="LineNr"> 581 </span> 0f 84/jump-if-= $compute-offsets:case-label/disp32 -<span id="L582" class="LineNr"> 582 </span> <span class="subxComment"># if (*curr-segment-name == 0) goto construct-next-segment</span> -<span id="L583" class="LineNr"> 583 </span> 81 7/subop/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *esi</span> -<span id="L584" class="LineNr"> 584 </span> 74/jump-if-= $compute-offsets:construct-next-segment/disp8 -<span id="L585" class="LineNr"> 585 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> -<span id="L586" class="LineNr"> 586 </span> <span class="subxS1Comment"># . eax = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> -<span id="L587" class="LineNr"> 587 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L588" class="LineNr"> 588 </span> 68/push 0x14/imm32/row-size -<span id="L589" class="LineNr"> 589 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L590" class="LineNr"> 590 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L591" class="LineNr"> 591 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L592" class="LineNr"> 592 </span> <span class="subxS2Comment"># . . call</span> -<span id="L593" class="LineNr"> 593 </span> e8/call <a href='../131table.subx.html#L706'>get-or-insert-handle</a>/disp32 -<span id="L594" class="LineNr"> 594 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L595" class="LineNr"> 595 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L596" class="LineNr"> 596 </span> <span class="subxS1Comment"># . edi = eax</span> -<span id="L597" class="LineNr"> 597 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L598" class="LineNr"> 598 </span> <span class="subxComment"># sinfo->size = file-offset - sinfo->file-offset</span> -<span id="L599" class="LineNr"> 599 </span> <span class="subxS1Comment"># . save ecx</span> -<span id="L600" class="LineNr"> 600 </span> 51/push-ecx -<span id="L601" class="LineNr"> 601 </span> <span class="subxS1Comment"># . ebx = *file-offset</span> -<span id="L602" class="LineNr"> 602 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <a href='survey.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># copy *file-offset to ebx</span> -<span id="L603" class="LineNr"> 603 </span> <span class="subxS1Comment"># . ecx = sinfo->file-offset</span> -<span id="L604" class="LineNr"> 604 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> -<span id="L605" class="LineNr"> 605 </span> <span class="subxS1Comment"># . ebx -= ecx</span> -<span id="L606" class="LineNr"> 606 </span> 29/subtract 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from ebx</span> -<span id="L607" class="LineNr"> 607 </span> <span class="subxS1Comment"># . sinfo->size = ebx</span> -<span id="L608" class="LineNr"> 608 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+8)</span> -<span id="L609" class="LineNr"> 609 </span> <span class="subxS1Comment"># . restore ecx</span> -<span id="L610" class="LineNr"> 610 </span> 59/pop-to-ecx -<span id="L611" class="LineNr"> 611 </span> <span class="subxComment"># trace-sssns("segment '", curr-segment-name, "' has size ", sinfo->size, ".")</span> -<span id="L612" class="LineNr"> 612 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> -<span id="L613" class="LineNr"> 613 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L614" class="LineNr"> 614 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L615" class="LineNr"> 615 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L616" class="LineNr"> 616 </span> <span class="subxS2Comment"># . . call</span> -<span id="L617" class="LineNr"> 617 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L618" class="LineNr"> 618 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L619" class="LineNr"> 619 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L620" class="LineNr"> 620 </span> <span class="subxS1Comment"># . trace-sssns("segment '", eax, "' has size ", sinfo->size, ".")</span> -<span id="L621" class="LineNr"> 621 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L622" class="LineNr"> 622 </span> 68/push <span class="Constant">"."</span>/imm32 -<span id="L623" class="LineNr"> 623 </span> 53/push-ebx -<span id="L624" class="LineNr"> 624 </span> 68/push <span class="Constant">"' has size "</span>/imm32 -<span id="L625" class="LineNr"> 625 </span> 50/push-eax -<span id="L626" class="LineNr"> 626 </span> 68/push <span class="Constant">"segment '"</span>/imm32 -<span id="L627" class="LineNr"> 627 </span> <span class="subxS2Comment"># . . call</span> -<span id="L628" class="LineNr"> 628 </span> e8/call <a href='survey.subx.html#L3603'>trace-sssns</a>/disp32 -<span id="L629" class="LineNr"> 629 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L630" class="LineNr"> 630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L631" class="LineNr"> 631 </span><span class="Constant">$compute-offsets:construct-next-segment</span>: -<span id="L632" class="LineNr"> 632 </span> <span class="subxComment"># next-word(line, segment-tmp)</span> -<span id="L633" class="LineNr"> 633 </span> 68/push <a href='survey.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 -<span id="L634" class="LineNr"> 634 </span> 51/push-ecx -<span id="L635" class="LineNr"> 635 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L636" class="LineNr"> 636 </span> <span class="subxS1Comment"># . discard args</span> -<span id="L637" class="LineNr"> 637 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L638" class="LineNr"> 638 </span> <span class="subxComment"># if slice-empty?(segment-tmp) abort</span> -<span id="L639" class="LineNr"> 639 </span> <span class="subxS1Comment"># . eax = slice-empty?(segment-tmp)</span> -<span id="L640" class="LineNr"> 640 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L641" class="LineNr"> 641 </span> 68/push <a href='survey.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 -<span id="L642" class="LineNr"> 642 </span> <span class="subxS2Comment"># . . call</span> -<span id="L643" class="LineNr"> 643 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L644" class="LineNr"> 644 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L645" class="LineNr"> 645 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L646" class="LineNr"> 646 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> -<span id="L647" class="LineNr"> 647 </span> 3d/compare-eax-and 0/imm32/false -<span id="L648" class="LineNr"> 648 </span> 0f 85/jump-if-!= $compute-offsets:abort/disp32 -<span id="L649" class="LineNr"> 649 </span><span class="Constant">$compute-offsets:update-curr-segment-name</span>: -<span id="L650" class="LineNr"> 650 </span> <span class="subxComment"># slice-to-string(Heap, segment-tmp, curr-segment-name)</span> -<span id="L651" class="LineNr"> 651 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L652" class="LineNr"> 652 </span> 56/push-esi -<span id="L653" class="LineNr"> 653 </span> 68/push <a href='survey.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 -<span id="L654" class="LineNr"> 654 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L655" class="LineNr"> 655 </span> <span class="subxS2Comment"># . . call</span> -<span id="L656" class="LineNr"> 656 </span> e8/call <a href='../123slice.subx.html#L1043'>slice-to-string</a>/disp32 -<span id="L657" class="LineNr"> 657 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L658" class="LineNr"> 658 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L659" class="LineNr"> 659 </span> <span class="subxComment"># next-word(line, segment-tmp)</span> -<span id="L660" class="LineNr"> 660 </span> 68/push <a href='survey.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 -<span id="L661" class="LineNr"> 661 </span> 51/push-ecx -<span id="L662" class="LineNr"> 662 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L663" class="LineNr"> 663 </span> <span class="subxS1Comment"># . discard args</span> -<span id="L664" class="LineNr"> 664 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L665" class="LineNr"> 665 </span> <span class="subxComment"># if slice-empty?(segment-tmp) abort</span> -<span id="L666" class="LineNr"> 666 </span> <span class="subxS1Comment"># . eax = slice-empty?(segment-tmp)</span> -<span id="L667" class="LineNr"> 667 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L668" class="LineNr"> 668 </span> 68/push <a href='survey.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 +<span id="L497" class="LineNr"> 497 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L498" class="LineNr"> 498 </span> 51/push-ecx +<span id="L499" class="LineNr"> 499 </span> <span class="subxS2Comment"># . . call</span> +<span id="L500" class="LineNr"> 500 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L501" class="LineNr"> 501 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L502" class="LineNr"> 502 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L503" class="LineNr"> 503 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L504" class="LineNr"> 504 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L505" class="LineNr"> 505 </span> 51/push-ecx +<span id="L506" class="LineNr"> 506 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L507" class="LineNr"> 507 </span> <span class="subxS2Comment"># . . call</span> +<span id="L508" class="LineNr"> 508 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 +<span id="L509" class="LineNr"> 509 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L510" class="LineNr"> 510 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L511" class="LineNr"> 511 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L512" class="LineNr"> 512 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to eax</span> +<span id="L513" class="LineNr"> 513 </span> 3d/compare-eax-and 0/imm32 +<span id="L514" class="LineNr"> 514 </span> 0f 84/jump-if-= $compute-offsets:break-line-loop/disp32 +<span id="L515" class="Folded"> 515 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L548" class="LineNr"> 548 </span><span class="Constant">$compute-offsets:word-loop</span>: +<span id="L549" class="LineNr"> 549 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L550" class="LineNr"> 550 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L551" class="LineNr"> 551 </span> 52/push-edx +<span id="L552" class="LineNr"> 552 </span> 51/push-ecx +<span id="L553" class="LineNr"> 553 </span> <span class="subxS2Comment"># . . call</span> +<span id="L554" class="LineNr"> 554 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L555" class="LineNr"> 555 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L556" class="LineNr"> 556 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L557" class="LineNr"> 557 </span><span class="Constant">$compute-offsets:case-empty</span>: +<span id="L558" class="LineNr"> 558 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> +<span id="L559" class="LineNr"> 559 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L560" class="LineNr"> 560 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L561" class="LineNr"> 561 </span> 52/push-edx +<span id="L562" class="LineNr"> 562 </span> <span class="subxS2Comment"># . . call</span> +<span id="L563" class="LineNr"> 563 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L564" class="LineNr"> 564 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L565" class="LineNr"> 565 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L566" class="LineNr"> 566 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L567" class="LineNr"> 567 </span> 3d/compare-eax-and 0/imm32/false +<span id="L568" class="LineNr"> 568 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 +<span id="L569" class="LineNr"> 569 </span><span class="Constant">$compute-offsets:case-comment</span>: +<span id="L570" class="LineNr"> 570 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") continue</span> +<span id="L571" class="LineNr"> 571 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L572" class="LineNr"> 572 </span> 68/push <span class="Constant">"#"</span>/imm32 +<span id="L573" class="LineNr"> 573 </span> 52/push-edx +<span id="L574" class="LineNr"> 574 </span> <span class="subxS2Comment"># . . call</span> +<span id="L575" class="LineNr"> 575 </span> e8/call <a href='123slice.subx.html#L487'>slice-starts-with?</a>/disp32 +<span id="L576" class="LineNr"> 576 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L577" class="LineNr"> 577 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L578" class="LineNr"> 578 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L579" class="LineNr"> 579 </span> 3d/compare-eax-and 0/imm32/false +<span id="L580" class="LineNr"> 580 </span> 0f 85/jump-if-!= $compute-offsets:line-loop/disp32 +<span id="L581" class="LineNr"> 581 </span><span class="Constant">$compute-offsets:case-segment-header</span>: +<span id="L582" class="LineNr"> 582 </span> <span class="subxComment"># if (!slice-equal?(word-slice, "==")) goto next case</span> +<span id="L583" class="LineNr"> 583 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L584" class="LineNr"> 584 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L585" class="LineNr"> 585 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L586" class="LineNr"> 586 </span> 52/push-edx +<span id="L587" class="LineNr"> 587 </span> <span class="subxS2Comment"># . . call</span> +<span id="L588" class="LineNr"> 588 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L589" class="LineNr"> 589 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L590" class="LineNr"> 590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L591" class="LineNr"> 591 </span> <span class="subxS1Comment"># . if (eax == false) goto next case</span> +<span id="L592" class="LineNr"> 592 </span> 3d/compare-eax-and 0/imm32/false +<span id="L593" class="LineNr"> 593 </span> 0f 84/jump-if-= $compute-offsets:case-label/disp32 +<span id="L594" class="LineNr"> 594 </span> <span class="subxComment"># if (*curr-segment-name == 0) goto construct-next-segment</span> +<span id="L595" class="LineNr"> 595 </span> 81 7/subop/compare 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *esi</span> +<span id="L596" class="LineNr"> 596 </span> 74/jump-if-= $compute-offsets:construct-next-segment/disp8 +<span id="L597" class="LineNr"> 597 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> +<span id="L598" class="LineNr"> 598 </span> <span class="subxS1Comment"># . eax = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> +<span id="L599" class="LineNr"> 599 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L600" class="LineNr"> 600 </span> 68/push 0x14/imm32/row-size +<span id="L601" class="LineNr"> 601 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L602" class="LineNr"> 602 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L603" class="LineNr"> 603 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L604" class="LineNr"> 604 </span> <span class="subxS2Comment"># . . call</span> +<span id="L605" class="LineNr"> 605 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 +<span id="L606" class="LineNr"> 606 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L607" class="LineNr"> 607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L608" class="LineNr"> 608 </span> <span class="subxS1Comment"># . edi = eax</span> +<span id="L609" class="LineNr"> 609 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L610" class="LineNr"> 610 </span> <span class="subxComment"># sinfo->size = file-offset - sinfo->file-offset</span> +<span id="L611" class="LineNr"> 611 </span> <span class="subxS1Comment"># . save ecx</span> +<span id="L612" class="LineNr"> 612 </span> 51/push-ecx +<span id="L613" class="LineNr"> 613 </span> <span class="subxS1Comment"># . ebx = *file-offset</span> +<span id="L614" class="LineNr"> 614 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <a href='survey_elf.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># copy *file-offset to ebx</span> +<span id="L615" class="LineNr"> 615 </span> <span class="subxS1Comment"># . ecx = sinfo->file-offset</span> +<span id="L616" class="LineNr"> 616 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> +<span id="L617" class="LineNr"> 617 </span> <span class="subxS1Comment"># . ebx -= ecx</span> +<span id="L618" class="LineNr"> 618 </span> 29/subtract 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from ebx</span> +<span id="L619" class="LineNr"> 619 </span> <span class="subxS1Comment"># . sinfo->size = ebx</span> +<span id="L620" class="LineNr"> 620 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+8)</span> +<span id="L621" class="LineNr"> 621 </span> <span class="subxS1Comment"># . restore ecx</span> +<span id="L622" class="LineNr"> 622 </span> 59/pop-to-ecx +<span id="L623" class="LineNr"> 623 </span> <span class="subxComment"># trace-sssns("segment '", curr-segment-name, "' has size ", sinfo->size, ".")</span> +<span id="L624" class="LineNr"> 624 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> +<span id="L625" class="LineNr"> 625 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L626" class="LineNr"> 626 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L627" class="LineNr"> 627 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L628" class="LineNr"> 628 </span> <span class="subxS2Comment"># . . call</span> +<span id="L629" class="LineNr"> 629 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L630" class="LineNr"> 630 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L631" class="LineNr"> 631 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L632" class="LineNr"> 632 </span> <span class="subxS1Comment"># . trace-sssns("segment '", eax, "' has size ", sinfo->size, ".")</span> +<span id="L633" class="LineNr"> 633 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L634" class="LineNr"> 634 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L635" class="LineNr"> 635 </span> 53/push-ebx +<span id="L636" class="LineNr"> 636 </span> 68/push <span class="Constant">"' has size "</span>/imm32 +<span id="L637" class="LineNr"> 637 </span> 50/push-eax +<span id="L638" class="LineNr"> 638 </span> 68/push <span class="Constant">"segment '"</span>/imm32 +<span id="L639" class="LineNr"> 639 </span> <span class="subxS2Comment"># . . call</span> +<span id="L640" class="LineNr"> 640 </span> e8/call <a href='survey_elf.subx.html#L3624'>trace-sssns</a>/disp32 +<span id="L641" class="LineNr"> 641 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L642" class="LineNr"> 642 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L643" class="LineNr"> 643 </span><span class="Constant">$compute-offsets:construct-next-segment</span>: +<span id="L644" class="LineNr"> 644 </span> <span class="subxComment"># next-word(line, segment-tmp)</span> +<span id="L645" class="LineNr"> 645 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L646" class="LineNr"> 646 </span> 68/push <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 +<span id="L647" class="LineNr"> 647 </span> 51/push-ecx +<span id="L648" class="LineNr"> 648 </span> <span class="subxS2Comment"># . . call</span> +<span id="L649" class="LineNr"> 649 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L650" class="LineNr"> 650 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L651" class="LineNr"> 651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L652" class="LineNr"> 652 </span> <span class="subxComment"># if slice-empty?(segment-tmp) abort</span> +<span id="L653" class="LineNr"> 653 </span> <span class="subxS1Comment"># . eax = slice-empty?(segment-tmp)</span> +<span id="L654" class="LineNr"> 654 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L655" class="LineNr"> 655 </span> 68/push <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 +<span id="L656" class="LineNr"> 656 </span> <span class="subxS2Comment"># . . call</span> +<span id="L657" class="LineNr"> 657 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L658" class="LineNr"> 658 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L659" class="LineNr"> 659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L660" class="LineNr"> 660 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L661" class="LineNr"> 661 </span> 3d/compare-eax-and 0/imm32/false +<span id="L662" class="LineNr"> 662 </span> 0f 85/jump-if-!= $compute-offsets:abort/disp32 +<span id="L663" class="LineNr"> 663 </span><span class="Constant">$compute-offsets:update-curr-segment-name</span>: +<span id="L664" class="LineNr"> 664 </span> <span class="subxComment"># slice-to-string(Heap, segment-tmp, curr-segment-name)</span> +<span id="L665" class="LineNr"> 665 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L666" class="LineNr"> 666 </span> 56/push-esi +<span id="L667" class="LineNr"> 667 </span> 68/push <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 +<span id="L668" class="LineNr"> 668 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L669" class="LineNr"> 669 </span> <span class="subxS2Comment"># . . call</span> -<span id="L670" class="LineNr"> 670 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L670" class="LineNr"> 670 </span> e8/call <a href='123slice.subx.html#L1043'>slice-to-string</a>/disp32 <span id="L671" class="LineNr"> 671 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L672" class="LineNr"> 672 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L673" class="LineNr"> 673 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> -<span id="L674" class="LineNr"> 674 </span> 3d/compare-eax-and 0/imm32/false -<span id="L675" class="LineNr"> 675 </span> 0f 85/jump-if-!= $compute-offsets:abort/disp32 -<span id="L676" class="LineNr"> 676 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> -<span id="L677" class="LineNr"> 677 </span> <span class="subxS1Comment"># . eax = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> -<span id="L678" class="LineNr"> 678 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L679" class="LineNr"> 679 </span> 68/push 0x14/imm32/row-size -<span id="L680" class="LineNr"> 680 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L681" class="LineNr"> 681 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L682" class="LineNr"> 682 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . call</span> -<span id="L684" class="LineNr"> 684 </span> e8/call <a href='../131table.subx.html#L706'>get-or-insert-handle</a>/disp32 -<span id="L685" class="LineNr"> 685 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L686" class="LineNr"> 686 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L687" class="LineNr"> 687 </span> <span class="subxS1Comment"># . edi = eax</span> -<span id="L688" class="LineNr"> 688 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L689" class="LineNr"> 689 </span> <span class="subxComment"># sinfo->address = parse-hex-int-from-slice(segment-tmp)</span> -<span id="L690" class="LineNr"> 690 </span> <span class="subxS1Comment"># . eax = parse-hex-int-from-slice(segment-tmp)</span> -<span id="L691" class="LineNr"> 691 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L692" class="LineNr"> 692 </span> 68/push <a href='survey.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 -<span id="L693" class="LineNr"> 693 </span> <span class="subxS2Comment"># . . call</span> -<span id="L694" class="LineNr"> 694 </span> e8/call <a href='../118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 -<span id="L695" class="LineNr"> 695 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L696" class="LineNr"> 696 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L697" class="LineNr"> 697 </span> <span class="subxS1Comment"># . sinfo->address = eax</span> -<span id="L698" class="LineNr"> 698 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> -<span id="L699" class="LineNr"> 699 </span> <span class="subxComment"># sinfo->file-offset = *file-offset</span> -<span id="L700" class="LineNr"> 700 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># copy *file-offset to eax</span> -<span id="L701" class="LineNr"> 701 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L702" class="LineNr"> 702 </span> <span class="subxComment"># trace-sssns("segment '", curr-segment-name, "' is at file offset ", sinfo->file-offset, "")</span> -<span id="L703" class="LineNr"> 703 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> -<span id="L704" class="LineNr"> 704 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L705" class="LineNr"> 705 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L706" class="LineNr"> 706 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . call</span> -<span id="L708" class="LineNr"> 708 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L710" class="LineNr"> 710 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L711" class="LineNr"> 711 </span> <span class="subxS1Comment"># . trace-sssns("segment '", eax, "' is at file offset ", file-offset, ".")</span> -<span id="L712" class="LineNr"> 712 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L713" class="LineNr"> 713 </span> 68/push <span class="Constant">"."</span>/imm32 -<span id="L714" class="LineNr"> 714 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># push *file-offset</span> -<span id="L715" class="LineNr"> 715 </span> 68/push <span class="Constant">"' is at file offset "</span>/imm32 -<span id="L716" class="LineNr"> 716 </span> 50/push-eax -<span id="L717" class="LineNr"> 717 </span> 68/push <span class="Constant">"segment '"</span>/imm32 -<span id="L718" class="LineNr"> 718 </span> <span class="subxS2Comment"># . . call</span> -<span id="L719" class="LineNr"> 719 </span> e8/call <a href='survey.subx.html#L3603'>trace-sssns</a>/disp32 -<span id="L720" class="LineNr"> 720 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L721" class="LineNr"> 721 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L722" class="LineNr"> 722 </span> <span class="subxComment"># segment-offset = 0</span> -<span id="L723" class="LineNr"> 723 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 0/imm32 <span class="subxComment"># copy to *segment-offset</span> -<span id="L724" class="LineNr"> 724 </span> <span class="subxComment"># break</span> -<span id="L725" class="LineNr"> 725 </span> e9/jump $compute-offsets:line-loop/disp32 -<span id="L726" class="LineNr"> 726 </span><span class="Constant">$compute-offsets:case-label</span>: -<span id="L727" class="LineNr"> 727 </span> <span class="subxComment"># if (!is-label?(word-slice)) goto next case</span> -<span id="L728" class="LineNr"> 728 </span> <span class="subxS1Comment"># . eax = is-label?(word-slice)</span> -<span id="L729" class="LineNr"> 729 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L730" class="LineNr"> 730 </span> 52/push-edx -<span id="L731" class="LineNr"> 731 </span> <span class="subxS2Comment"># . . call</span> -<span id="L732" class="LineNr"> 732 </span> e8/call <a href='../128subx-words.subx.html#L535'>is-label?</a>/disp32 -<span id="L733" class="LineNr"> 733 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L734" class="LineNr"> 734 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L735" class="LineNr"> 735 </span> <span class="subxS1Comment"># . if (eax == false) goto next case</span> -<span id="L736" class="LineNr"> 736 </span> 3d/compare-eax-and 0/imm32/false -<span id="L737" class="LineNr"> 737 </span> 0f 84/jump-if-= $compute-offsets:case-default/disp32 -<span id="L738" class="LineNr"> 738 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> -<span id="L739" class="LineNr"> 739 </span> ff 1/subop/decrement 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># decrement *(edx+4)</span> -<span id="L740" class="LineNr"> 740 </span> <span class="subxComment"># linfo/edi = get-or-insert-slice(labels, word-slice, row-size=24)</span> -<span id="L741" class="LineNr"> 741 </span> <span class="subxS1Comment"># . eax = get-or-insert-slice(labels, word-slice, row-size=24)</span> -<span id="L742" class="LineNr"> 742 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L743" class="LineNr"> 743 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L744" class="LineNr"> 744 </span> 68/push 0x18/imm32/row-size -<span id="L745" class="LineNr"> 745 </span> 52/push-edx -<span id="L746" class="LineNr"> 746 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L672" class="LineNr"> 672 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L673" class="LineNr"> 673 </span> <span class="subxComment"># next-word(line, segment-tmp)</span> +<span id="L674" class="LineNr"> 674 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L675" class="LineNr"> 675 </span> 68/push <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 +<span id="L676" class="LineNr"> 676 </span> 51/push-ecx +<span id="L677" class="LineNr"> 677 </span> <span class="subxS2Comment"># . . call</span> +<span id="L678" class="LineNr"> 678 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L679" class="LineNr"> 679 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L680" class="LineNr"> 680 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L681" class="LineNr"> 681 </span> <span class="subxComment"># if slice-empty?(segment-tmp) abort</span> +<span id="L682" class="LineNr"> 682 </span> <span class="subxS1Comment"># . eax = slice-empty?(segment-tmp)</span> +<span id="L683" class="LineNr"> 683 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L684" class="LineNr"> 684 </span> 68/push <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 +<span id="L685" class="LineNr"> 685 </span> <span class="subxS2Comment"># . . call</span> +<span id="L686" class="LineNr"> 686 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L687" class="LineNr"> 687 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L688" class="LineNr"> 688 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L689" class="LineNr"> 689 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L690" class="LineNr"> 690 </span> 3d/compare-eax-and 0/imm32/false +<span id="L691" class="LineNr"> 691 </span> 0f 85/jump-if-!= $compute-offsets:abort/disp32 +<span id="L692" class="LineNr"> 692 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> +<span id="L693" class="LineNr"> 693 </span> <span class="subxS1Comment"># . eax = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> +<span id="L694" class="LineNr"> 694 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L695" class="LineNr"> 695 </span> 68/push 0x14/imm32/row-size +<span id="L696" class="LineNr"> 696 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L697" class="LineNr"> 697 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L698" class="LineNr"> 698 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L699" class="LineNr"> 699 </span> <span class="subxS2Comment"># . . call</span> +<span id="L700" class="LineNr"> 700 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 +<span id="L701" class="LineNr"> 701 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L702" class="LineNr"> 702 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L703" class="LineNr"> 703 </span> <span class="subxS1Comment"># . edi = eax</span> +<span id="L704" class="LineNr"> 704 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L705" class="LineNr"> 705 </span> <span class="subxComment"># sinfo->address = parse-hex-int-from-slice(segment-tmp)</span> +<span id="L706" class="LineNr"> 706 </span> <span class="subxS1Comment"># . eax = parse-hex-int-from-slice(segment-tmp)</span> +<span id="L707" class="LineNr"> 707 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L708" class="LineNr"> 708 </span> 68/push <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-tmp/imm32 +<span id="L709" class="LineNr"> 709 </span> <span class="subxS2Comment"># . . call</span> +<span id="L710" class="LineNr"> 710 </span> e8/call <a href='118parse-hex-int.subx.html#L387'>parse-hex-int-from-slice</a>/disp32 +<span id="L711" class="LineNr"> 711 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L712" class="LineNr"> 712 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L713" class="LineNr"> 713 </span> <span class="subxS1Comment"># . sinfo->address = eax</span> +<span id="L714" class="LineNr"> 714 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> +<span id="L715" class="LineNr"> 715 </span> <span class="subxComment"># sinfo->file-offset = *file-offset</span> +<span id="L716" class="LineNr"> 716 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey_elf.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># copy *file-offset to eax</span> +<span id="L717" class="LineNr"> 717 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L718" class="LineNr"> 718 </span> <span class="subxComment"># trace-sssns("segment '", curr-segment-name, "' is at file offset ", sinfo->file-offset, "")</span> +<span id="L719" class="LineNr"> 719 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> +<span id="L720" class="LineNr"> 720 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L721" class="LineNr"> 721 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L722" class="LineNr"> 722 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L723" class="LineNr"> 723 </span> <span class="subxS2Comment"># . . call</span> +<span id="L724" class="LineNr"> 724 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L725" class="LineNr"> 725 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L726" class="LineNr"> 726 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L727" class="LineNr"> 727 </span> <span class="subxS1Comment"># . trace-sssns("segment '", eax, "' is at file offset ", file-offset, ".")</span> +<span id="L728" class="LineNr"> 728 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L729" class="LineNr"> 729 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L730" class="LineNr"> 730 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey_elf.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># push *file-offset</span> +<span id="L731" class="LineNr"> 731 </span> 68/push <span class="Constant">"' is at file offset "</span>/imm32 +<span id="L732" class="LineNr"> 732 </span> 50/push-eax +<span id="L733" class="LineNr"> 733 </span> 68/push <span class="Constant">"segment '"</span>/imm32 +<span id="L734" class="LineNr"> 734 </span> <span class="subxS2Comment"># . . call</span> +<span id="L735" class="LineNr"> 735 </span> e8/call <a href='survey_elf.subx.html#L3624'>trace-sssns</a>/disp32 +<span id="L736" class="LineNr"> 736 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L737" class="LineNr"> 737 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L738" class="LineNr"> 738 </span> <span class="subxComment"># segment-offset = 0</span> +<span id="L739" class="LineNr"> 739 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 0/imm32 <span class="subxComment"># copy to *segment-offset</span> +<span id="L740" class="LineNr"> 740 </span> <span class="subxComment"># break</span> +<span id="L741" class="LineNr"> 741 </span> e9/jump $compute-offsets:line-loop/disp32 +<span id="L742" class="LineNr"> 742 </span><span class="Constant">$compute-offsets:case-label</span>: +<span id="L743" class="LineNr"> 743 </span> <span class="subxComment"># if (!label?(word-slice)) goto next case</span> +<span id="L744" class="LineNr"> 744 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> +<span id="L745" class="LineNr"> 745 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L746" class="LineNr"> 746 </span> 52/push-edx <span id="L747" class="LineNr"> 747 </span> <span class="subxS2Comment"># . . call</span> -<span id="L748" class="LineNr"> 748 </span> e8/call <a href='../131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L748" class="LineNr"> 748 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 <span id="L749" class="LineNr"> 749 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L750" class="LineNr"> 750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L751" class="LineNr"> 751 </span> <span class="subxS1Comment"># . edi = eax</span> -<span id="L752" class="LineNr"> 752 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L753" class="LineNr"> 753 </span><span class="Constant">$compute-offsets:save-label-offset</span>: -<span id="L754" class="LineNr"> 754 </span> <span class="subxComment"># linfo->segment-name = curr-segment-name</span> -<span id="L755" class="LineNr"> 755 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L756" class="LineNr"> 756 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> -<span id="L757" class="LineNr"> 757 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> -<span id="L758" class="LineNr"> 758 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> -<span id="L759" class="LineNr"> 759 </span> <span class="subxComment"># trace-slsss("label '" word-slice "' is in segment '" current-segment-name "'.")</span> -<span id="L760" class="LineNr"> 760 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> -<span id="L761" class="LineNr"> 761 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L762" class="LineNr"> 762 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L763" class="LineNr"> 763 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L764" class="LineNr"> 764 </span> <span class="subxS2Comment"># . . call</span> -<span id="L765" class="LineNr"> 765 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L766" class="LineNr"> 766 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L767" class="LineNr"> 767 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L768" class="LineNr"> 768 </span> <span class="subxS1Comment"># . trace-slsss("label '" word-slice "' is in segment '" eax "'.")</span> -<span id="L769" class="LineNr"> 769 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L770" class="LineNr"> 770 </span> 68/push <span class="Constant">"'."</span>/imm32 -<span id="L771" class="LineNr"> 771 </span> 50/push-eax -<span id="L772" class="LineNr"> 772 </span> 68/push <span class="Constant">"' is in segment '"</span>/imm32 -<span id="L773" class="LineNr"> 773 </span> 52/push-edx -<span id="L774" class="LineNr"> 774 </span> 68/push <span class="Constant">"label '"</span>/imm32 -<span id="L775" class="LineNr"> 775 </span> <span class="subxS2Comment"># . . call</span> -<span id="L776" class="LineNr"> 776 </span> e8/call <a href='survey.subx.html#L4058'>trace-slsss</a>/disp32 -<span id="L777" class="LineNr"> 777 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L778" class="LineNr"> 778 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L779" class="LineNr"> 779 </span> <span class="subxComment"># linfo->segment-offset = segment-offset</span> -<span id="L780" class="LineNr"> 780 </span> <span class="subxS1Comment"># . ebx = segment-offset</span> -<span id="L781" class="LineNr"> 781 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <a href='survey.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 <span class="subxComment"># copy *segment-offset to ebx</span> -<span id="L782" class="LineNr"> 782 </span> <span class="subxS1Comment"># . linfo->segment-offset = ebx</span> -<span id="L783" class="LineNr"> 783 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+8)</span> -<span id="L784" class="LineNr"> 784 </span> <span class="subxComment"># trace-slsns("label '" word-slice "' is at segment offset " *segment-offset/eax ".")</span> +<span id="L750" class="LineNr"> 750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L751" class="LineNr"> 751 </span> <span class="subxS1Comment"># . if (eax == false) goto next case</span> +<span id="L752" class="LineNr"> 752 </span> 3d/compare-eax-and 0/imm32/false +<span id="L753" class="LineNr"> 753 </span> 0f 84/jump-if-= $compute-offsets:case-default/disp32 +<span id="L754" class="LineNr"> 754 </span> <span class="subxComment"># strip trailing ':' from word-slice</span> +<span id="L755" class="LineNr"> 755 </span> ff 1/subop/decrement 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># decrement *(edx+4)</span> +<span id="L756" class="LineNr"> 756 </span> <span class="subxComment"># linfo/edi = get-or-insert-slice(labels, word-slice, row-size=24)</span> +<span id="L757" class="LineNr"> 757 </span> <span class="subxS1Comment"># . eax = get-or-insert-slice(labels, word-slice, row-size=24)</span> +<span id="L758" class="LineNr"> 758 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L759" class="LineNr"> 759 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L760" class="LineNr"> 760 </span> 68/push 0x18/imm32/row-size +<span id="L761" class="LineNr"> 761 </span> 52/push-edx +<span id="L762" class="LineNr"> 762 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L763" class="LineNr"> 763 </span> <span class="subxS2Comment"># . . call</span> +<span id="L764" class="LineNr"> 764 </span> e8/call <a href='131table.subx.html#L1022'>get-or-insert-slice</a>/disp32 +<span id="L765" class="LineNr"> 765 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L766" class="LineNr"> 766 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L767" class="LineNr"> 767 </span> <span class="subxS1Comment"># . edi = eax</span> +<span id="L768" class="LineNr"> 768 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L769" class="LineNr"> 769 </span><span class="Constant">$compute-offsets:save-label-offset</span>: +<span id="L770" class="LineNr"> 770 </span> <span class="subxComment"># linfo->segment-name = curr-segment-name</span> +<span id="L771" class="LineNr"> 771 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L772" class="LineNr"> 772 </span> 89/copy 0/mod/indirect 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to *edi</span> +<span id="L773" class="LineNr"> 773 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+4) to eax</span> +<span id="L774" class="LineNr"> 774 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax to *(edi+4)</span> +<span id="L775" class="LineNr"> 775 </span> <span class="subxComment"># trace-slsss("label '" word-slice "' is in segment '" current-segment-name "'.")</span> +<span id="L776" class="LineNr"> 776 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> +<span id="L777" class="LineNr"> 777 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L778" class="LineNr"> 778 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L779" class="LineNr"> 779 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L780" class="LineNr"> 780 </span> <span class="subxS2Comment"># . . call</span> +<span id="L781" class="LineNr"> 781 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L782" class="LineNr"> 782 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L783" class="LineNr"> 783 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L784" class="LineNr"> 784 </span> <span class="subxS1Comment"># . trace-slsss("label '" word-slice "' is in segment '" eax "'.")</span> <span id="L785" class="LineNr"> 785 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L786" class="LineNr"> 786 </span> 68/push <span class="Constant">"."</span>/imm32 -<span id="L787" class="LineNr"> 787 </span> 53/push-ebx -<span id="L788" class="LineNr"> 788 </span> 68/push <span class="Constant">"' is at segment offset "</span>/imm32 +<span id="L786" class="LineNr"> 786 </span> 68/push <span class="Constant">"'."</span>/imm32 +<span id="L787" class="LineNr"> 787 </span> 50/push-eax +<span id="L788" class="LineNr"> 788 </span> 68/push <span class="Constant">"' is in segment '"</span>/imm32 <span id="L789" class="LineNr"> 789 </span> 52/push-edx <span id="L790" class="LineNr"> 790 </span> 68/push <span class="Constant">"label '"</span>/imm32 <span id="L791" class="LineNr"> 791 </span> <span class="subxS2Comment"># . . call</span> -<span id="L792" class="LineNr"> 792 </span> e8/call <a href='survey.subx.html#L3942'>trace-slsns</a>/disp32 +<span id="L792" class="LineNr"> 792 </span> e8/call <a href='survey_elf.subx.html#L3972'>trace-slsss</a>/disp32 <span id="L793" class="LineNr"> 793 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L794" class="LineNr"> 794 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L795" class="LineNr"> 795 </span> <span class="subxComment"># continue</span> -<span id="L796" class="LineNr"> 796 </span> e9/jump $compute-offsets:word-loop/disp32 -<span id="L797" class="LineNr"> 797 </span><span class="Constant">$compute-offsets:case-default</span>: -<span id="L798" class="LineNr"> 798 </span> <span class="subxComment"># width/eax = compute-width-of-slice(word-slice)</span> -<span id="L799" class="LineNr"> 799 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L800" class="LineNr"> 800 </span> 52/push-edx -<span id="L801" class="LineNr"> 801 </span> <span class="subxS2Comment"># . . call</span> -<span id="L802" class="LineNr"> 802 </span> e8/call <a href='../133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 -<span id="L803" class="LineNr"> 803 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L804" class="LineNr"> 804 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L805" class="LineNr"> 805 </span> <span class="subxComment"># segment-offset += width</span> -<span id="L806" class="LineNr"> 806 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 <span class="subxComment"># add eax to *segment-offset</span> -<span id="L807" class="LineNr"> 807 </span> <span class="subxComment"># file-offset += width</span> -<span id="L808" class="LineNr"> 808 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># add eax to *file-offset</span> -<span id="L809" class="Folded"> 809 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L850" class="LineNr"> 850 </span> e9/jump $compute-offsets:word-loop/disp32 -<span id="L851" class="LineNr"> 851 </span><span class="Constant">$compute-offsets:break-line-loop</span>: -<span id="L852" class="LineNr"> 852 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> -<span id="L853" class="LineNr"> 853 </span> <span class="subxS1Comment"># . eax = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> -<span id="L854" class="LineNr"> 854 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L855" class="LineNr"> 855 </span> 68/push 0x14/imm32/row-size -<span id="L856" class="LineNr"> 856 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L857" class="LineNr"> 857 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L858" class="LineNr"> 858 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L859" class="LineNr"> 859 </span> <span class="subxS2Comment"># . . call</span> -<span id="L860" class="LineNr"> 860 </span> e8/call <a href='../131table.subx.html#L706'>get-or-insert-handle</a>/disp32 -<span id="L861" class="LineNr"> 861 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L862" class="LineNr"> 862 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L863" class="LineNr"> 863 </span> <span class="subxS1Comment"># . edi = eax</span> -<span id="L864" class="LineNr"> 864 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L865" class="LineNr"> 865 </span> <span class="subxComment"># sinfo->size = file-offset - sinfo->file-offset</span> -<span id="L866" class="LineNr"> 866 </span> <span class="subxS1Comment"># . save ecx</span> -<span id="L867" class="LineNr"> 867 </span> 51/push-ecx -<span id="L868" class="LineNr"> 868 </span> <span class="subxS1Comment"># . ebx = *file-offset</span> -<span id="L869" class="LineNr"> 869 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <a href='survey.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># copy *file-offset to ebx</span> -<span id="L870" class="LineNr"> 870 </span> <span class="subxS1Comment"># . ecx = sinfo->file-offset</span> -<span id="L871" class="LineNr"> 871 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> -<span id="L872" class="LineNr"> 872 </span> <span class="subxS1Comment"># . ebx -= ecx</span> -<span id="L873" class="LineNr"> 873 </span> 29/subtract 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from ebx</span> -<span id="L874" class="LineNr"> 874 </span> <span class="subxS1Comment"># . sinfo->size = ebx</span> -<span id="L875" class="LineNr"> 875 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+8)</span> -<span id="L876" class="LineNr"> 876 </span> <span class="subxS1Comment"># . restore ecx</span> -<span id="L877" class="LineNr"> 877 </span> 59/pop-to-ecx -<span id="L878" class="LineNr"> 878 </span> <span class="subxComment"># trace-sssns("segment '", curr-segment-name, "' has size ", sinfo->size, ".")</span> -<span id="L879" class="LineNr"> 879 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> -<span id="L880" class="LineNr"> 880 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L881" class="LineNr"> 881 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L882" class="LineNr"> 882 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L883" class="LineNr"> 883 </span> <span class="subxS2Comment"># . . call</span> -<span id="L884" class="LineNr"> 884 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L885" class="LineNr"> 885 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L886" class="LineNr"> 886 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L887" class="LineNr"> 887 </span> <span class="subxS1Comment"># . trace-sssns("segment '", eax, "' has size ", ebx, ".")</span> -<span id="L888" class="LineNr"> 888 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L889" class="LineNr"> 889 </span> 68/push <span class="Constant">"."</span>/imm32 -<span id="L890" class="LineNr"> 890 </span> 53/push-ebx -<span id="L891" class="LineNr"> 891 </span> 68/push <span class="Constant">"' has size "</span>/imm32 -<span id="L892" class="LineNr"> 892 </span> 50/push-eax -<span id="L893" class="LineNr"> 893 </span> 68/push <span class="Constant">"segment '"</span>/imm32 -<span id="L894" class="LineNr"> 894 </span> <span class="subxS2Comment"># . . call</span> -<span id="L895" class="LineNr"> 895 </span> e8/call <a href='survey.subx.html#L3603'>trace-sssns</a>/disp32 -<span id="L896" class="LineNr"> 896 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L897" class="LineNr"> 897 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L898" class="LineNr"> 898 </span><span class="Constant">$compute-offsets:end</span>: -<span id="L899" class="LineNr"> 899 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L900" class="LineNr"> 900 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x21c/imm32 <span class="subxComment"># add to esp</span> -<span id="L901" class="LineNr"> 901 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L902" class="LineNr"> 902 </span> 5f/pop-to-edi -<span id="L903" class="LineNr"> 903 </span> 5e/pop-to-esi -<span id="L904" class="LineNr"> 904 </span> 5b/pop-to-ebx -<span id="L905" class="LineNr"> 905 </span> 5a/pop-to-edx -<span id="L906" class="LineNr"> 906 </span> 59/pop-to-ecx -<span id="L907" class="LineNr"> 907 </span> 58/pop-to-eax -<span id="L908" class="LineNr"> 908 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L909" class="LineNr"> 909 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L910" class="LineNr"> 910 </span> 5d/pop-to-ebp -<span id="L911" class="LineNr"> 911 </span> c3/return -<span id="L912" class="LineNr"> 912 </span> -<span id="L913" class="LineNr"> 913 </span><span class="Constant">$compute-offsets:abort</span>: -<span id="L914" class="LineNr"> 914 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L915" class="LineNr"> 915 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L916" class="LineNr"> 916 </span> 68/push <span class="Constant">"'==' must be followed by segment name and segment-start\n"</span>/imm32 -<span id="L917" class="LineNr"> 917 </span> 68/push 2/imm32/stderr -<span id="L918" class="LineNr"> 918 </span> <span class="subxS2Comment"># . . call</span> -<span id="L919" class="LineNr"> 919 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L920" class="LineNr"> 920 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L921" class="LineNr"> 921 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L922" class="LineNr"> 922 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L923" class="LineNr"> 923 </span> bb/copy-to-ebx 1/imm32 -<span id="L924" class="LineNr"> 924 </span> e8/call syscall_exit/disp32 -<span id="L925" class="LineNr"> 925 </span> <span class="subxComment"># never gets here</span> -<span id="L926" class="LineNr"> 926 </span> -<span id="L927" class="LineNr"> 927 </span><span class="subxTest">test-compute-offsets</span>: -<span id="L928" class="LineNr"> 928 </span> <span class="subxComment"># input:</span> -<span id="L929" class="LineNr"> 929 </span> <span class="subxComment"># == code 0x1</span> -<span id="L930" class="LineNr"> 930 </span> <span class="subxComment"># ab x/imm32 # skip comment</span> -<span id="L931" class="LineNr"> 931 </span> <span class="subxComment"># == data 0x1000</span> -<span id="L932" class="LineNr"> 932 </span> <span class="subxComment"># 00</span> -<span id="L933" class="LineNr"> 933 </span> <span class="subxComment"># x:</span> -<span id="L934" class="LineNr"> 934 </span> <span class="subxComment"># 34</span> -<span id="L935" class="LineNr"> 935 </span> <span class="subxComment">#</span> -<span id="L936" class="LineNr"> 936 </span> <span class="subxComment"># trace contains (in any order):</span> -<span id="L937" class="LineNr"> 937 </span> <span class="subxComment"># segment 'code' is at file offset 0x0.</span> -<span id="L938" class="LineNr"> 938 </span> <span class="subxComment"># segment 'code' has size 0x5.</span> -<span id="L939" class="LineNr"> 939 </span> <span class="subxComment"># segment 'data' is at file offset 0x5.</span> -<span id="L940" class="LineNr"> 940 </span> <span class="subxComment"># segment 'data' has size 0x2.</span> -<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># label 'x' is in segment 'data'.</span> -<span id="L942" class="LineNr"> 942 </span> <span class="subxComment"># label 'x' is at segment offset 0x1.</span> -<span id="L943" class="LineNr"> 943 </span> <span class="subxComment">#</span> -<span id="L944" class="LineNr"> 944 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L945" class="LineNr"> 945 </span> 55/push-ebp -<span id="L946" class="LineNr"> 946 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L947" class="LineNr"> 947 </span> <span class="subxComment"># setup</span> -<span id="L948" class="LineNr"> 948 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L949" class="LineNr"> 949 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L950" class="LineNr"> 950 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L951" class="LineNr"> 951 </span> <span class="subxS2Comment"># . . call</span> -<span id="L952" class="LineNr"> 952 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L953" class="LineNr"> 953 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L954" class="LineNr"> 954 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># var segments/ecx: (stream byte 2*20)</span> -<span id="L956" class="LineNr"> 956 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x28/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L957" class="LineNr"> 957 </span> 68/push 0x28/imm32/size -<span id="L958" class="LineNr"> 958 </span> 68/push 0/imm32/read -<span id="L959" class="LineNr"> 959 </span> 68/push 0/imm32/write -<span id="L960" class="LineNr"> 960 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L961" class="LineNr"> 961 </span> <span class="subxComment"># var labels/edx: (stream byte 2*24)</span> -<span id="L962" class="LineNr"> 962 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L963" class="LineNr"> 963 </span> 68/push 0x30/imm32/size -<span id="L964" class="LineNr"> 964 </span> 68/push 0/imm32/read -<span id="L965" class="LineNr"> 965 </span> 68/push 0/imm32/write -<span id="L966" class="LineNr"> 966 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L967" class="LineNr"> 967 </span> <span class="subxComment"># initialize input</span> -<span id="L968" class="LineNr"> 968 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1\n")</span> -<span id="L969" class="LineNr"> 969 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L970" class="LineNr"> 970 </span> 68/push <span class="Constant">"== code 0x1\n"</span>/imm32 -<span id="L971" class="LineNr"> 971 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L972" class="LineNr"> 972 </span> <span class="subxS2Comment"># . . call</span> -<span id="L973" class="LineNr"> 973 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L974" class="LineNr"> 974 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L975" class="LineNr"> 975 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L976" class="LineNr"> 976 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32 # skip comment\n")</span> -<span id="L977" class="LineNr"> 977 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L978" class="LineNr"> 978 </span> 68/push <span class="Constant">"ab x/imm32 # skip comment\n"</span>/imm32 -<span id="L979" class="LineNr"> 979 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L980" class="LineNr"> 980 </span> <span class="subxS2Comment"># . . call</span> -<span id="L981" class="LineNr"> 981 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L982" class="LineNr"> 982 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L983" class="LineNr"> 983 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x1000\n")</span> +<span id="L795" class="LineNr"> 795 </span> <span class="subxComment"># linfo->segment-offset = segment-offset</span> +<span id="L796" class="LineNr"> 796 </span> <span class="subxS1Comment"># . ebx = segment-offset</span> +<span id="L797" class="LineNr"> 797 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 <span class="subxComment"># copy *segment-offset to ebx</span> +<span id="L798" class="LineNr"> 798 </span> <span class="subxS1Comment"># . linfo->segment-offset = ebx</span> +<span id="L799" class="LineNr"> 799 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+8)</span> +<span id="L800" class="LineNr"> 800 </span> <span class="subxComment"># trace-slsns("label '" word-slice "' is at segment offset " *segment-offset/eax ".")</span> +<span id="L801" class="LineNr"> 801 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L802" class="LineNr"> 802 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L803" class="LineNr"> 803 </span> 53/push-ebx +<span id="L804" class="LineNr"> 804 </span> 68/push <span class="Constant">"' is at segment offset "</span>/imm32 +<span id="L805" class="LineNr"> 805 </span> 52/push-edx +<span id="L806" class="LineNr"> 806 </span> 68/push <span class="Constant">"label '"</span>/imm32 +<span id="L807" class="LineNr"> 807 </span> <span class="subxS2Comment"># . . call</span> +<span id="L808" class="LineNr"> 808 </span> e8/call <a href='survey_elf.subx.html#L3856'>trace-slsns</a>/disp32 +<span id="L809" class="LineNr"> 809 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L810" class="LineNr"> 810 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L811" class="LineNr"> 811 </span> <span class="subxComment"># continue</span> +<span id="L812" class="LineNr"> 812 </span> e9/jump $compute-offsets:word-loop/disp32 +<span id="L813" class="LineNr"> 813 </span><span class="Constant">$compute-offsets:case-default</span>: +<span id="L814" class="LineNr"> 814 </span> <span class="subxComment"># width/eax = compute-width-of-slice(word-slice)</span> +<span id="L815" class="LineNr"> 815 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L816" class="LineNr"> 816 </span> 52/push-edx +<span id="L817" class="LineNr"> 817 </span> <span class="subxS2Comment"># . . call</span> +<span id="L818" class="LineNr"> 818 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 +<span id="L819" class="LineNr"> 819 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L820" class="LineNr"> 820 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L821" class="LineNr"> 821 </span> <span class="subxComment"># segment-offset += width</span> +<span id="L822" class="LineNr"> 822 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey_elf.subx.html#L407'>compute-offsets</a>:segment-offset/disp32 <span class="subxComment"># add eax to *segment-offset</span> +<span id="L823" class="LineNr"> 823 </span> <span class="subxComment"># file-offset += width</span> +<span id="L824" class="LineNr"> 824 </span> 01/add 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <a href='survey_elf.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># add eax to *file-offset</span> +<span id="L825" class="Folded"> 825 </span><span class="Folded">+-- 41 lines: #? # dump segment-offset ----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L866" class="LineNr"> 866 </span> e9/jump $compute-offsets:word-loop/disp32 +<span id="L867" class="LineNr"> 867 </span><span class="Constant">$compute-offsets:break-line-loop</span>: +<span id="L868" class="LineNr"> 868 </span> <span class="subxComment"># sinfo/edi = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> +<span id="L869" class="LineNr"> 869 </span> <span class="subxS1Comment"># . eax = get-or-insert-handle(segments, curr-segment-name, row-size=16)</span> +<span id="L870" class="LineNr"> 870 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L871" class="LineNr"> 871 </span> 68/push 0x14/imm32/row-size +<span id="L872" class="LineNr"> 872 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L873" class="LineNr"> 873 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L874" class="LineNr"> 874 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L875" class="LineNr"> 875 </span> <span class="subxS2Comment"># . . call</span> +<span id="L876" class="LineNr"> 876 </span> e8/call <a href='131table.subx.html#L706'>get-or-insert-handle</a>/disp32 +<span id="L877" class="LineNr"> 877 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L878" class="LineNr"> 878 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L879" class="LineNr"> 879 </span> <span class="subxS1Comment"># . edi = eax</span> +<span id="L880" class="LineNr"> 880 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L881" class="LineNr"> 881 </span> <span class="subxComment"># sinfo->size = file-offset - sinfo->file-offset</span> +<span id="L882" class="LineNr"> 882 </span> <span class="subxS1Comment"># . save ecx</span> +<span id="L883" class="LineNr"> 883 </span> 51/push-ecx +<span id="L884" class="LineNr"> 884 </span> <span class="subxS1Comment"># . ebx = *file-offset</span> +<span id="L885" class="LineNr"> 885 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <a href='survey_elf.subx.html#L407'>compute-offsets</a>:file-offset/disp32 <span class="subxComment"># copy *file-offset to ebx</span> +<span id="L886" class="LineNr"> 886 </span> <span class="subxS1Comment"># . ecx = sinfo->file-offset</span> +<span id="L887" class="LineNr"> 887 </span> 8b/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edi+4) to ecx</span> +<span id="L888" class="LineNr"> 888 </span> <span class="subxS1Comment"># . ebx -= ecx</span> +<span id="L889" class="LineNr"> 889 </span> 29/subtract 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ecx from ebx</span> +<span id="L890" class="LineNr"> 890 </span> <span class="subxS1Comment"># . sinfo->size = ebx</span> +<span id="L891" class="LineNr"> 891 </span> 89/copy 1/mod/*+disp8 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(edi+8)</span> +<span id="L892" class="LineNr"> 892 </span> <span class="subxS1Comment"># . restore ecx</span> +<span id="L893" class="LineNr"> 893 </span> 59/pop-to-ecx +<span id="L894" class="LineNr"> 894 </span> <span class="subxComment"># trace-sssns("segment '", curr-segment-name, "' has size ", sinfo->size, ".")</span> +<span id="L895" class="LineNr"> 895 </span> <span class="subxS1Comment"># . eax = lookup(curr-segment-name)</span> +<span id="L896" class="LineNr"> 896 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L897" class="LineNr"> 897 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L898" class="LineNr"> 898 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L899" class="LineNr"> 899 </span> <span class="subxS2Comment"># . . call</span> +<span id="L900" class="LineNr"> 900 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L901" class="LineNr"> 901 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L902" class="LineNr"> 902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L903" class="LineNr"> 903 </span> <span class="subxS1Comment"># . trace-sssns("segment '", eax, "' has size ", ebx, ".")</span> +<span id="L904" class="LineNr"> 904 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L905" class="LineNr"> 905 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L906" class="LineNr"> 906 </span> 53/push-ebx +<span id="L907" class="LineNr"> 907 </span> 68/push <span class="Constant">"' has size "</span>/imm32 +<span id="L908" class="LineNr"> 908 </span> 50/push-eax +<span id="L909" class="LineNr"> 909 </span> 68/push <span class="Constant">"segment '"</span>/imm32 +<span id="L910" class="LineNr"> 910 </span> <span class="subxS2Comment"># . . call</span> +<span id="L911" class="LineNr"> 911 </span> e8/call <a href='survey_elf.subx.html#L3624'>trace-sssns</a>/disp32 +<span id="L912" class="LineNr"> 912 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L913" class="LineNr"> 913 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L914" class="LineNr"> 914 </span><span class="Constant">$compute-offsets:end</span>: +<span id="L915" class="LineNr"> 915 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L916" class="LineNr"> 916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x21c/imm32 <span class="subxComment"># add to esp</span> +<span id="L917" class="LineNr"> 917 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L918" class="LineNr"> 918 </span> 5f/pop-to-edi +<span id="L919" class="LineNr"> 919 </span> 5e/pop-to-esi +<span id="L920" class="LineNr"> 920 </span> 5b/pop-to-ebx +<span id="L921" class="LineNr"> 921 </span> 5a/pop-to-edx +<span id="L922" class="LineNr"> 922 </span> 59/pop-to-ecx +<span id="L923" class="LineNr"> 923 </span> 58/pop-to-eax +<span id="L924" class="LineNr"> 924 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L925" class="LineNr"> 925 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L926" class="LineNr"> 926 </span> 5d/pop-to-ebp +<span id="L927" class="LineNr"> 927 </span> c3/return +<span id="L928" class="LineNr"> 928 </span> +<span id="L929" class="LineNr"> 929 </span><span class="Constant">$compute-offsets:abort</span>: +<span id="L930" class="LineNr"> 930 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L931" class="LineNr"> 931 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L932" class="LineNr"> 932 </span> 68/push <span class="Constant">"'==' must be followed by segment name and optionally an address\n"</span>/imm32 +<span id="L933" class="LineNr"> 933 </span> 68/push 2/imm32/stderr +<span id="L934" class="LineNr"> 934 </span> <span class="subxS2Comment"># . . call</span> +<span id="L935" class="LineNr"> 935 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L936" class="LineNr"> 936 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L937" class="LineNr"> 937 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L938" class="LineNr"> 938 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L939" class="LineNr"> 939 </span> bb/copy-to-ebx 1/imm32 +<span id="L940" class="LineNr"> 940 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L941" class="LineNr"> 941 </span> <span class="subxComment"># never gets here</span> +<span id="L942" class="LineNr"> 942 </span> +<span id="L943" class="LineNr"> 943 </span><span class="subxTest">test-compute-offsets</span>: +<span id="L944" class="LineNr"> 944 </span> <span class="subxComment"># input:</span> +<span id="L945" class="LineNr"> 945 </span> <span class="subxComment"># == code 0x1</span> +<span id="L946" class="LineNr"> 946 </span> <span class="subxComment"># ab x/imm32 # skip comment</span> +<span id="L947" class="LineNr"> 947 </span> <span class="subxComment"># == data 0x1000</span> +<span id="L948" class="LineNr"> 948 </span> <span class="subxComment"># 00</span> +<span id="L949" class="LineNr"> 949 </span> <span class="subxComment"># x:</span> +<span id="L950" class="LineNr"> 950 </span> <span class="subxComment"># 34</span> +<span id="L951" class="LineNr"> 951 </span> <span class="subxComment">#</span> +<span id="L952" class="LineNr"> 952 </span> <span class="subxComment"># trace contains (in any order):</span> +<span id="L953" class="LineNr"> 953 </span> <span class="subxComment"># segment 'code' is at file offset 0x0.</span> +<span id="L954" class="LineNr"> 954 </span> <span class="subxComment"># segment 'code' has size 0x5.</span> +<span id="L955" class="LineNr"> 955 </span> <span class="subxComment"># segment 'data' is at file offset 0x5.</span> +<span id="L956" class="LineNr"> 956 </span> <span class="subxComment"># segment 'data' has size 0x2.</span> +<span id="L957" class="LineNr"> 957 </span> <span class="subxComment"># label 'x' is in segment 'data'.</span> +<span id="L958" class="LineNr"> 958 </span> <span class="subxComment"># label 'x' is at segment offset 0x1.</span> +<span id="L959" class="LineNr"> 959 </span> <span class="subxComment">#</span> +<span id="L960" class="LineNr"> 960 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L961" class="LineNr"> 961 </span> 55/push-ebp +<span id="L962" class="LineNr"> 962 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L963" class="LineNr"> 963 </span> <span class="subxComment"># setup</span> +<span id="L964" class="LineNr"> 964 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L965" class="LineNr"> 965 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L966" class="LineNr"> 966 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L967" class="LineNr"> 967 </span> <span class="subxS2Comment"># . . call</span> +<span id="L968" class="LineNr"> 968 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L969" class="LineNr"> 969 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L970" class="LineNr"> 970 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L971" class="LineNr"> 971 </span> <span class="subxComment"># var segments/ecx: (stream byte 2*20)</span> +<span id="L972" class="LineNr"> 972 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x28/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L973" class="LineNr"> 973 </span> 68/push 0x28/imm32/size +<span id="L974" class="LineNr"> 974 </span> 68/push 0/imm32/read +<span id="L975" class="LineNr"> 975 </span> 68/push 0/imm32/write +<span id="L976" class="LineNr"> 976 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L977" class="LineNr"> 977 </span> <span class="subxComment"># var labels/edx: (stream byte 2*24)</span> +<span id="L978" class="LineNr"> 978 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x30/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L979" class="LineNr"> 979 </span> 68/push 0x30/imm32/size +<span id="L980" class="LineNr"> 980 </span> 68/push 0/imm32/read +<span id="L981" class="LineNr"> 981 </span> 68/push 0/imm32/write +<span id="L982" class="LineNr"> 982 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L983" class="LineNr"> 983 </span> <span class="subxComment"># initialize input</span> +<span id="L984" class="LineNr"> 984 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1\n")</span> <span id="L985" class="LineNr"> 985 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L986" class="LineNr"> 986 </span> 68/push <span class="Constant">"== data 0x1000\n"</span>/imm32 -<span id="L987" class="LineNr"> 987 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L986" class="LineNr"> 986 </span> 68/push <span class="Constant">"== code 0x1\n"</span>/imm32 +<span id="L987" class="LineNr"> 987 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L988" class="LineNr"> 988 </span> <span class="subxS2Comment"># . . call</span> -<span id="L989" class="LineNr"> 989 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L989" class="LineNr"> 989 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L990" class="LineNr"> 990 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L991" class="LineNr"> 991 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L992" class="LineNr"> 992 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> +<span id="L992" class="LineNr"> 992 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab x/imm32 # skip comment\n")</span> <span id="L993" class="LineNr"> 993 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L994" class="LineNr"> 994 </span> 68/push <span class="Constant">"00\n"</span>/imm32 -<span id="L995" class="LineNr"> 995 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L994" class="LineNr"> 994 </span> 68/push <span class="Constant">"ab x/imm32 # skip comment\n"</span>/imm32 +<span id="L995" class="LineNr"> 995 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L996" class="LineNr"> 996 </span> <span class="subxS2Comment"># . . call</span> -<span id="L997" class="LineNr"> 997 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L997" class="LineNr"> 997 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L998" class="LineNr"> 998 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L999" class="LineNr"> 999 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1000" class="LineNr">1000 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L1000" class="LineNr">1000 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x1000\n")</span> <span id="L1001" class="LineNr">1001 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1002" class="LineNr">1002 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 -<span id="L1003" class="LineNr">1003 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1002" class="LineNr">1002 </span> 68/push <span class="Constant">"== data 0x1000\n"</span>/imm32 +<span id="L1003" class="LineNr">1003 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1004" class="LineNr">1004 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1005" class="LineNr">1005 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1005" class="LineNr">1005 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1006" class="LineNr">1006 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1007" class="LineNr">1007 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1008" class="LineNr">1008 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L1008" class="LineNr">1008 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> <span id="L1009" class="LineNr">1009 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1010" class="LineNr">1010 </span> 68/push <span class="Constant">"34\n"</span>/imm32 -<span id="L1011" class="LineNr">1011 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1010" class="LineNr">1010 </span> 68/push <span class="Constant">"00\n"</span>/imm32 +<span id="L1011" class="LineNr">1011 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L1012" class="LineNr">1012 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1013" class="LineNr">1013 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L1013" class="LineNr">1013 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L1014" class="LineNr">1014 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1015" class="LineNr">1015 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1016" class="LineNr">1016 </span> <span class="subxComment"># compute-offsets(_test-input-stream, segments, labels)</span> +<span id="L1016" class="LineNr">1016 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> <span id="L1017" class="LineNr">1017 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1018" class="LineNr">1018 </span> 52/push-edx -<span id="L1019" class="LineNr">1019 </span> 51/push-ecx -<span id="L1020" class="LineNr">1020 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L1021" class="LineNr">1021 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1022" class="LineNr">1022 </span> e8/call <a href='survey.subx.html#L407'>compute-offsets</a>/disp32 -<span id="L1023" class="LineNr">1023 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1024" class="LineNr">1024 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1025" class="Folded">1025 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1051" class="LineNr">1051 </span> <span class="subxComment"># check trace</span> -<span id="L1052" class="LineNr">1052 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' is at file offset 0x00000000.", msg)</span> -<span id="L1053" class="LineNr">1053 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1054" class="LineNr">1054 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L927'>test-compute-offsets</a>/0"</span>/imm32 -<span id="L1055" class="LineNr">1055 </span> 68/push <span class="Constant">"segment 'code' is at file offset 0x00000000."</span>/imm32 -<span id="L1056" class="LineNr">1056 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1057" class="LineNr">1057 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L1058" class="LineNr">1058 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1059" class="LineNr">1059 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1060" class="LineNr">1060 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' has size 0x00000005", msg)</span> -<span id="L1061" class="LineNr">1061 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1062" class="LineNr">1062 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L927'>test-compute-offsets</a>/1"</span>/imm32 -<span id="L1063" class="LineNr">1063 </span> 68/push <span class="Constant">"segment 'code' has <a href='../307size.subx.html#L5'>size</a> 0x00000005."</span>/imm32 -<span id="L1064" class="LineNr">1064 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1065" class="LineNr">1065 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L1066" class="LineNr">1066 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1067" class="LineNr">1067 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1068" class="LineNr">1068 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'data' is at file offset 0x00000005.", msg)</span> +<span id="L1018" class="LineNr">1018 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L1019" class="LineNr">1019 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1020" class="LineNr">1020 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1021" class="LineNr">1021 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1022" class="LineNr">1022 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1023" class="LineNr">1023 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1024" class="LineNr">1024 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L1025" class="LineNr">1025 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1026" class="LineNr">1026 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L1027" class="LineNr">1027 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1028" class="LineNr">1028 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1029" class="LineNr">1029 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L1030" class="LineNr">1030 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1031" class="LineNr">1031 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1032" class="LineNr">1032 </span> <span class="subxComment"># compute-offsets(_test-input-stream, segments, labels)</span> +<span id="L1033" class="LineNr">1033 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1034" class="LineNr">1034 </span> 52/push-edx +<span id="L1035" class="LineNr">1035 </span> 51/push-ecx +<span id="L1036" class="LineNr">1036 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L1037" class="LineNr">1037 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1038" class="LineNr">1038 </span> e8/call <a href='survey_elf.subx.html#L407'>compute-offsets</a>/disp32 +<span id="L1039" class="LineNr">1039 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1040" class="LineNr">1040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1041" class="Folded">1041 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1067" class="LineNr">1067 </span> <span class="subxComment"># check trace</span> +<span id="L1068" class="LineNr">1068 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' is at file offset 0x00000000.", msg)</span> <span id="L1069" class="LineNr">1069 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1070" class="LineNr">1070 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L927'>test-compute-offsets</a>/2"</span>/imm32 -<span id="L1071" class="LineNr">1071 </span> 68/push <span class="Constant">"segment 'data' is at file offset 0x00000005."</span>/imm32 +<span id="L1070" class="LineNr">1070 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L943'>test-compute-offsets</a>/0"</span>/imm32 +<span id="L1071" class="LineNr">1071 </span> 68/push <span class="Constant">"segment 'code' is at file offset 0x00000000."</span>/imm32 <span id="L1072" class="LineNr">1072 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1073" class="LineNr">1073 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1073" class="LineNr">1073 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1074" class="LineNr">1074 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1075" class="LineNr">1075 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1076" class="LineNr">1076 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'data' has size 0x00000002.", msg)</span> +<span id="L1076" class="LineNr">1076 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'code' has size 0x00000005", msg)</span> <span id="L1077" class="LineNr">1077 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1078" class="LineNr">1078 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L927'>test-compute-offsets</a>/3"</span>/imm32 -<span id="L1079" class="LineNr">1079 </span> 68/push <span class="Constant">"segment 'data' has <a href='../307size.subx.html#L5'>size</a> 0x00000002."</span>/imm32 +<span id="L1078" class="LineNr">1078 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L943'>test-compute-offsets</a>/1"</span>/imm32 +<span id="L1079" class="LineNr">1079 </span> 68/push <span class="Constant">"segment 'code' has <a href='307size.subx.html#L5'>size</a> 0x00000005."</span>/imm32 <span id="L1080" class="LineNr">1080 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1081" class="LineNr">1081 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1081" class="LineNr">1081 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1082" class="LineNr">1082 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1083" class="LineNr">1083 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1084" class="LineNr">1084 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is in segment 'data'.", msg)</span> +<span id="L1084" class="LineNr">1084 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'data' is at file offset 0x00000005.", msg)</span> <span id="L1085" class="LineNr">1085 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1086" class="LineNr">1086 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L927'>test-compute-offsets</a>/4"</span>/imm32 -<span id="L1087" class="LineNr">1087 </span> 68/push <span class="Constant">"label 'x' is in segment 'data'."</span>/imm32 +<span id="L1086" class="LineNr">1086 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L943'>test-compute-offsets</a>/2"</span>/imm32 +<span id="L1087" class="LineNr">1087 </span> 68/push <span class="Constant">"segment 'data' is at file offset 0x00000005."</span>/imm32 <span id="L1088" class="LineNr">1088 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1089" class="LineNr">1089 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1089" class="LineNr">1089 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1090" class="LineNr">1090 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1091" class="LineNr">1091 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1092" class="LineNr">1092 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at segment offset 0x00000001.", msg)</span> +<span id="L1092" class="LineNr">1092 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'data' has size 0x00000002.", msg)</span> <span id="L1093" class="LineNr">1093 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1094" class="LineNr">1094 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L927'>test-compute-offsets</a>/5"</span>/imm32 -<span id="L1095" class="LineNr">1095 </span> 68/push <span class="Constant">"label 'x' is at segment offset 0x00000001."</span>/imm32 +<span id="L1094" class="LineNr">1094 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L943'>test-compute-offsets</a>/3"</span>/imm32 +<span id="L1095" class="LineNr">1095 </span> 68/push <span class="Constant">"segment 'data' has <a href='307size.subx.html#L5'>size</a> 0x00000002."</span>/imm32 <span id="L1096" class="LineNr">1096 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1097" class="LineNr">1097 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1097" class="LineNr">1097 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1098" class="LineNr">1098 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1099" class="LineNr">1099 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1100" class="LineNr">1100 </span> <span class="subxS1Comment"># . check-ints-equal(labels->write, 0x18, msg)</span> +<span id="L1100" class="LineNr">1100 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is in segment 'data'.", msg)</span> <span id="L1101" class="LineNr">1101 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1102" class="LineNr">1102 </span> 68/push <span class="Constant">"F - test-compute-offsets-maintains-labels-write-index"</span>/imm32 -<span id="L1103" class="LineNr">1103 </span> 68/push 0x18/imm32/1-entry -<span id="L1104" class="LineNr">1104 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L1105" class="LineNr">1105 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1106" class="LineNr">1106 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1107" class="LineNr">1107 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1108" class="LineNr">1108 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1109" class="LineNr">1109 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1110" class="LineNr">1110 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1111" class="LineNr">1111 </span> 5d/pop-to-ebp -<span id="L1112" class="LineNr">1112 </span> c3/return -<span id="L1113" class="LineNr">1113 </span> -<span id="L1114" class="LineNr">1114 </span><span class="subxComment"># write segments->file-offset,</span> -<span id="L1115" class="LineNr">1115 </span><span class="subxComment"># segments->address, and</span> -<span id="L1116" class="LineNr">1116 </span><span class="subxComment"># labels->address</span> -<span id="L1117" class="LineNr">1117 </span><span class="subxFunction">compute-addresses</span>: <span class="subxComment"># segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> -<span id="L1118" class="LineNr">1118 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1119" class="LineNr">1119 </span> <span class="subxComment"># var srow: (addr segment-row) = segments->data</span> -<span id="L1120" class="LineNr">1120 </span> <span class="subxComment"># var max: (addr byte) = &segments->data[segments->write]</span> -<span id="L1121" class="LineNr">1121 </span> <span class="subxComment"># var num-segments: int = segments->write / 20</span> -<span id="L1122" class="LineNr">1122 </span> <span class="subxComment"># var starting-offset: int = 0x34 + (num-segments * 0x20)</span> -<span id="L1123" class="LineNr">1123 </span> <span class="subxComment"># while true</span> -<span id="L1124" class="LineNr">1124 </span> <span class="subxComment"># if (srow >= max) break</span> -<span id="L1125" class="LineNr">1125 </span> <span class="subxComment"># srow->file-offset += starting-offset</span> -<span id="L1126" class="LineNr">1126 </span> <span class="subxComment"># srow->address &= 0xfffff000 # clear last 12 bits for p_align</span> -<span id="L1127" class="LineNr">1127 </span> <span class="subxComment"># srow->address += (srow->file-offset & 0x00000fff)</span> -<span id="L1128" class="LineNr">1128 </span> <span class="subxComment"># trace-sssns("segment " srow->key " starts at address " srow->address)</span> -<span id="L1129" class="LineNr">1129 </span> <span class="subxComment"># srow += 20 # row-size</span> -<span id="L1130" class="LineNr">1130 </span> <span class="subxComment"># var lrow: (addr label-row) = labels->data</span> -<span id="L1131" class="LineNr">1131 </span> <span class="subxComment"># max = &labels->data[labels->write]</span> -<span id="L1132" class="LineNr">1132 </span> <span class="subxComment"># while true</span> -<span id="L1133" class="LineNr">1133 </span> <span class="subxComment"># if (lrow >= max) break</span> -<span id="L1134" class="LineNr">1134 </span> <span class="subxComment"># var seg-name: (addr array byte) = lookup(lrow->segment-name)</span> -<span id="L1135" class="LineNr">1135 </span> <span class="subxComment"># var label-seg: (addr segment-info) = get(segments, seg-name)</span> -<span id="L1136" class="LineNr">1136 </span> <span class="subxComment"># lrow->address = label-seg->address + lrow->segment-offset</span> -<span id="L1137" class="LineNr">1137 </span> <span class="subxComment"># trace-sssns("label " lrow->key " is at address " lrow->address)</span> -<span id="L1138" class="LineNr">1138 </span> <span class="subxComment"># lrow += 24 # row-size</span> -<span id="L1139" class="LineNr">1139 </span> <span class="subxComment">#</span> -<span id="L1140" class="LineNr">1140 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1141" class="LineNr">1141 </span> 55/push-ebp -<span id="L1142" class="LineNr">1142 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1143" class="LineNr">1143 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1144" class="LineNr">1144 </span> 50/push-eax -<span id="L1145" class="LineNr">1145 </span> 51/push-ecx -<span id="L1146" class="LineNr">1146 </span> 52/push-edx -<span id="L1147" class="LineNr">1147 </span> 53/push-ebx -<span id="L1148" class="LineNr">1148 </span> 56/push-esi -<span id="L1149" class="LineNr">1149 </span> 57/push-edi -<span id="L1150" class="LineNr">1150 </span> <span class="subxComment"># esi = segments</span> -<span id="L1151" class="LineNr">1151 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L1152" class="LineNr">1152 </span> <span class="subxComment"># var num-segments/edi: int = segments->write / 20 (row-size)</span> -<span id="L1153" class="LineNr">1153 </span> <span class="subxS1Comment"># . eax = segments->write</span> -<span id="L1154" class="LineNr">1154 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L1155" class="LineNr">1155 </span> <span class="subxS1Comment"># . edx = 0</span> -<span id="L1156" class="LineNr">1156 </span> ba/copy-to-edx 0/imm32 -<span id="L1157" class="LineNr">1157 </span> <span class="subxS1Comment"># . ecx = 20 (row-size)</span> -<span id="L1158" class="LineNr">1158 </span> b9/copy-to-ecx 0x14/imm32/row-size -<span id="L1159" class="LineNr">1159 </span> <span class="subxS1Comment"># . eax /= ecx (clobbering edx)</span> -<span id="L1160" class="LineNr">1160 </span> f7 7/subop/divide 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># divide eax by ecx</span> -<span id="L1161" class="LineNr">1161 </span> <span class="subxS1Comment"># . edi = eax</span> -<span id="L1162" class="LineNr">1162 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> -<span id="L1163" class="LineNr">1163 </span> <span class="subxComment"># var starting-offset/edi: int = 0x34 + (num-segments * 0x20) # make room for ELF headers</span> -<span id="L1164" class="LineNr">1164 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/imm8 <span class="subxComment"># shift edi left by 5 bits</span> -<span id="L1165" class="LineNr">1165 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x34/imm32 <span class="subxComment"># add to edi</span> -<span id="L1166" class="LineNr">1166 </span> <span class="subxComment"># var max/ecx: (addr byte) = &segments->data[segments->write]</span> -<span id="L1167" class="LineNr">1167 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L1168" class="LineNr">1168 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to ecx</span> -<span id="L1169" class="LineNr">1169 </span> <span class="subxComment"># var srow/esi: (addr segment-row) = segments->data</span> -<span id="L1170" class="LineNr">1170 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to esi</span> -<span id="L1171" class="LineNr">1171 </span><span class="Constant">$compute-addresses:segment-loop</span>: -<span id="L1172" class="LineNr">1172 </span> <span class="subxComment"># if (srow >= max) break</span> -<span id="L1173" class="LineNr">1173 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> -<span id="L1174" class="LineNr">1174 </span> 73/jump-if-addr>= $compute-addresses:segment-break/disp8 -<span id="L1175" class="LineNr">1175 </span> <span class="subxComment"># srow->file-offset += starting-offset</span> -<span id="L1176" class="LineNr">1176 </span> 01/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add edi to *(esi+12)</span> -<span id="L1177" class="LineNr">1177 </span> <span class="subxComment"># clear last 12 bits of srow->address for p_align=0x1000</span> -<span id="L1178" class="LineNr">1178 </span> <span class="subxS1Comment"># . edx = srow->address</span> -<span id="L1179" class="LineNr">1179 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> -<span id="L1180" class="LineNr">1180 </span> <span class="subxS1Comment"># . edx &= 0xfffff000</span> -<span id="L1181" class="LineNr">1181 </span> 81 4/subop/and 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xfffff000/imm32 <span class="subxComment"># bitwise and of edx</span> -<span id="L1182" class="LineNr">1182 </span> <span class="subxComment"># update last 12 bits from srow->file-offset</span> -<span id="L1183" class="LineNr">1183 </span> <span class="subxS1Comment"># . ebx = srow->file-offset</span> -<span id="L1184" class="LineNr">1184 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+12) to ebx</span> -<span id="L1185" class="LineNr">1185 </span> <span class="subxS1Comment"># . ebx &= 0xfff</span> -<span id="L1186" class="LineNr">1186 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x00000fff/imm32 <span class="subxComment"># bitwise and of ebx</span> -<span id="L1187" class="LineNr">1187 </span> <span class="subxS1Comment"># . srow->address = edx | ebx</span> -<span id="L1188" class="LineNr">1188 </span> 09/or 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># edx = bitwise OR with ebx</span> -<span id="L1189" class="LineNr">1189 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx to *(esi+8)</span> -<span id="L1190" class="LineNr">1190 </span> <span class="subxComment"># trace-sssns("segment " srow " starts at address " srow->address ".")</span> -<span id="L1191" class="LineNr">1191 </span> <span class="subxS1Comment"># . eax = lookup(*srow)</span> -<span id="L1192" class="LineNr">1192 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1193" class="LineNr">1193 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L1194" class="LineNr">1194 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L1195" class="LineNr">1195 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1196" class="LineNr">1196 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L1197" class="LineNr">1197 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1198" class="LineNr">1198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1199" class="LineNr">1199 </span> <span class="subxS1Comment"># . trace-sssns("segment " eax " starts at address " srow->address ".")</span> -<span id="L1200" class="LineNr">1200 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1201" class="LineNr">1201 </span> 68/push <span class="Constant">"."</span>/imm32 -<span id="L1202" class="LineNr">1202 </span> 52/push-edx -<span id="L1203" class="LineNr">1203 </span> 68/push <span class="Constant">"' starts at address "</span>/imm32 -<span id="L1204" class="LineNr">1204 </span> 50/push-eax -<span id="L1205" class="LineNr">1205 </span> 68/push <span class="Constant">"segment '"</span>/imm32 -<span id="L1206" class="LineNr">1206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1207" class="LineNr">1207 </span> e8/call <a href='survey.subx.html#L3603'>trace-sssns</a>/disp32 -<span id="L1208" class="LineNr">1208 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1209" class="LineNr">1209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L1210" class="LineNr">1210 </span> <span class="subxComment"># srow += 20 # size of row</span> -<span id="L1211" class="LineNr">1211 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esi</span> -<span id="L1212" class="LineNr">1212 </span> eb/jump $compute-addresses:segment-loop/disp8 -<span id="L1213" class="LineNr">1213 </span><span class="Constant">$compute-addresses:segment-break</span>: -<span id="L1214" class="Folded">1214 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1240" class="LineNr">1240 </span> <span class="subxComment"># esi = labels</span> -<span id="L1241" class="LineNr">1241 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L1242" class="LineNr">1242 </span> <span class="subxComment"># var max/ecx: (addr byte) = &labels->data[labels->write]</span> -<span id="L1243" class="LineNr">1243 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> -<span id="L1244" class="LineNr">1244 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to ecx</span> -<span id="L1245" class="LineNr">1245 </span> <span class="subxComment"># var lrow/esi: (addr label-row) = labels->data</span> -<span id="L1246" class="LineNr">1246 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to esi</span> -<span id="L1247" class="LineNr">1247 </span><span class="Constant">$compute-addresses:label-loop</span>: -<span id="L1248" class="LineNr">1248 </span> <span class="subxComment"># if (lrow >= max) break</span> -<span id="L1249" class="LineNr">1249 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> -<span id="L1250" class="LineNr">1250 </span> 0f 83/jump-if-addr>= $compute-addresses:end/disp32 -<span id="L1251" class="Folded">1251 </span><span class="Folded">+-- 26 lines: #? # dump lrow->key ---------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1277" class="LineNr">1277 </span> <span class="subxComment"># var seg-name/edx: (addr array byte) = lookup(lrow->segment-name)</span> -<span id="L1278" class="LineNr">1278 </span> <span class="subxS1Comment"># . eax = lookup(lrow->segment-name)</span> -<span id="L1279" class="LineNr">1279 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1280" class="LineNr">1280 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+12)</span> -<span id="L1281" class="LineNr">1281 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+8)</span> -<span id="L1282" class="LineNr">1282 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1283" class="LineNr">1283 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L1284" class="LineNr">1284 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1285" class="LineNr">1285 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1286" class="LineNr">1286 </span> <span class="subxS1Comment"># . edx = eax</span> -<span id="L1287" class="LineNr">1287 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L1288" class="Folded">1288 </span><span class="Folded">+-- 26 lines: #? # dump seg-name ----------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1314" class="LineNr">1314 </span> <span class="subxComment"># var label-seg/edx: (addr segment-info) = get(segments, seg-name, row-size=20, "segment table")</span> -<span id="L1315" class="LineNr">1315 </span> <span class="subxS1Comment"># . eax = get(segments, seg-name, row-size=20)</span> -<span id="L1316" class="LineNr">1316 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1317" class="LineNr">1317 </span> 68/push <span class="Constant">"segment table"</span>/imm32 -<span id="L1318" class="LineNr">1318 </span> 68/push 0x14/imm32/row-size -<span id="L1319" class="LineNr">1319 </span> 52/push-edx -<span id="L1320" class="LineNr">1320 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1321" class="LineNr">1321 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1322" class="LineNr">1322 </span> e8/call <a href='../131table.subx.html#L26'>get</a>/disp32 -<span id="L1323" class="LineNr">1323 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1324" class="LineNr">1324 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L1325" class="LineNr">1325 </span> <span class="subxS1Comment"># . edx = eax</span> -<span id="L1326" class="LineNr">1326 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L1327" class="LineNr">1327 </span> <span class="subxComment"># ebx = label-seg->address</span> -<span id="L1328" class="LineNr">1328 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> -<span id="L1329" class="LineNr">1329 </span> <span class="subxComment"># ebx += lrow->segment-offset</span> -<span id="L1330" class="LineNr">1330 </span> 03/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(esi+16) to ebx</span> -<span id="L1331" class="LineNr">1331 </span> <span class="subxComment"># lrow->address = ebx</span> -<span id="L1332" class="LineNr">1332 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(esi+20)</span> -<span id="L1333" class="LineNr">1333 </span> <span class="subxComment"># trace-sssns("label " lrow->key " is at address " lrow->address ".")</span> -<span id="L1334" class="LineNr">1334 </span> <span class="subxS1Comment"># . eax = lookup(lrow->key)</span> -<span id="L1335" class="LineNr">1335 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1336" class="LineNr">1336 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L1337" class="LineNr">1337 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L1338" class="LineNr">1338 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1339" class="LineNr">1339 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L1340" class="LineNr">1340 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1341" class="LineNr">1341 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1342" class="LineNr">1342 </span> <span class="subxS1Comment"># . trace-sssns("label " eax " is at address " lrow->address ".")</span> -<span id="L1343" class="LineNr">1343 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1344" class="LineNr">1344 </span> 68/push <span class="Constant">"."</span>/imm32 -<span id="L1345" class="LineNr">1345 </span> 53/push-ebx -<span id="L1346" class="LineNr">1346 </span> 68/push <span class="Constant">"' is at address "</span>/imm32 -<span id="L1347" class="LineNr">1347 </span> 50/push-eax -<span id="L1348" class="LineNr">1348 </span> 68/push <span class="Constant">"label '"</span>/imm32 -<span id="L1349" class="LineNr">1349 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1350" class="LineNr">1350 </span> e8/call <a href='survey.subx.html#L3603'>trace-sssns</a>/disp32 -<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1352" class="LineNr">1352 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L1353" class="LineNr">1353 </span> <span class="subxComment"># lrow += 24 # size of row</span> -<span id="L1354" class="LineNr">1354 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esi</span> -<span id="L1355" class="LineNr">1355 </span> e9/jump $compute-addresses:label-loop/disp32 -<span id="L1356" class="LineNr">1356 </span><span class="Constant">$compute-addresses:end</span>: -<span id="L1357" class="LineNr">1357 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L1358" class="LineNr">1358 </span> 5f/pop-to-edi -<span id="L1359" class="LineNr">1359 </span> 5e/pop-to-esi -<span id="L1360" class="LineNr">1360 </span> 5b/pop-to-ebx -<span id="L1361" class="LineNr">1361 </span> 5a/pop-to-edx -<span id="L1362" class="LineNr">1362 </span> 59/pop-to-ecx -<span id="L1363" class="LineNr">1363 </span> 58/pop-to-eax -<span id="L1364" class="LineNr">1364 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1365" class="LineNr">1365 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1366" class="LineNr">1366 </span> 5d/pop-to-ebp -<span id="L1367" class="LineNr">1367 </span> c3/return -<span id="L1368" class="LineNr">1368 </span> -<span id="L1369" class="LineNr">1369 </span><span class="subxTest">test-compute-addresses</span>: -<span id="L1370" class="LineNr">1370 </span> <span class="subxComment"># input:</span> -<span id="L1371" class="LineNr">1371 </span> <span class="subxComment"># segments:</span> -<span id="L1372" class="LineNr">1372 </span> <span class="subxComment"># - 'a': {0x1000, 0, 5}</span> -<span id="L1373" class="LineNr">1373 </span> <span class="subxComment"># - 'b': {0x2018, 5, 1}</span> -<span id="L1374" class="LineNr">1374 </span> <span class="subxComment"># - 'c': {0x5444, 6, 12}</span> -<span id="L1375" class="LineNr">1375 </span> <span class="subxComment"># labels:</span> -<span id="L1376" class="LineNr">1376 </span> <span class="subxComment"># - 'l1': {'a', 3, 0}</span> -<span id="L1377" class="LineNr">1377 </span> <span class="subxComment"># - 'l2': {'b', 0, 0}</span> -<span id="L1378" class="LineNr">1378 </span> <span class="subxComment">#</span> -<span id="L1379" class="LineNr">1379 </span> <span class="subxComment"># trace contains in any order (comments in parens):</span> -<span id="L1380" class="LineNr">1380 </span> <span class="subxComment"># segment 'a' starts at address 0x00001094. (0x34 + 0x20 for each segment)</span> -<span id="L1381" class="LineNr">1381 </span> <span class="subxComment"># segment 'b' starts at address 0x00002099. (0x018 discarded)</span> -<span id="L1382" class="LineNr">1382 </span> <span class="subxComment"># segment 'c' starts at address 0x0000509a. (0x444 discarded)</span> -<span id="L1383" class="LineNr">1383 </span> <span class="subxComment"># label 'l1' is at address 0x00001097. (0x1094 + segment-offset 3)</span> -<span id="L1384" class="LineNr">1384 </span> <span class="subxComment"># label 'l2' is at address 0x00002099. (0x2099 + segment-offset 0)</span> -<span id="L1385" class="LineNr">1385 </span> <span class="subxComment">#</span> -<span id="L1386" class="LineNr">1386 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1387" class="LineNr">1387 </span> 55/push-ebp -<span id="L1388" class="LineNr">1388 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1389" class="LineNr">1389 </span> <span class="subxComment"># setup</span> -<span id="L1390" class="LineNr">1390 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*20)</span> -<span id="L1391" class="LineNr">1391 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1392" class="LineNr">1392 </span> 68/push 0xc8/imm32/size -<span id="L1393" class="LineNr">1393 </span> 68/push 0/imm32/read -<span id="L1394" class="LineNr">1394 </span> 68/push 0/imm32/write -<span id="L1395" class="LineNr">1395 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1396" class="LineNr">1396 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L1397" class="LineNr">1397 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1398" class="LineNr">1398 </span> 68/push 0xc0/imm32/size -<span id="L1399" class="LineNr">1399 </span> 68/push 0/imm32/read -<span id="L1400" class="LineNr">1400 </span> 68/push 0/imm32/write -<span id="L1401" class="LineNr">1401 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1402" class="LineNr">1402 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L1403" class="LineNr">1403 </span> 68/push 0/imm32 -<span id="L1404" class="LineNr">1404 </span> 68/push 0/imm32 -<span id="L1405" class="LineNr">1405 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1406" class="LineNr">1406 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "a")</span> -<span id="L1407" class="LineNr">1407 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1408" class="LineNr">1408 </span> 53/push-ebx -<span id="L1409" class="LineNr">1409 </span> 68/push <span class="Constant">"a"</span>/imm32 -<span id="L1410" class="LineNr">1410 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1411" class="LineNr">1411 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1412" class="LineNr">1412 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1413" class="LineNr">1413 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1414" class="LineNr">1414 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1415" class="LineNr">1415 </span> <span class="subxS1Comment"># . stream-add5(segments, "a", 0x1000, 0, 5)</span> -<span id="L1416" class="LineNr">1416 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1417" class="LineNr">1417 </span> 68/push 5/imm32/segment-size -<span id="L1418" class="LineNr">1418 </span> 68/push 0/imm32/file-offset -<span id="L1419" class="LineNr">1419 </span> 68/push 0x1000/imm32/start-address -<span id="L1420" class="LineNr">1420 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1421" class="LineNr">1421 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1422" class="LineNr">1422 </span> 51/push-ecx -<span id="L1423" class="LineNr">1423 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1424" class="LineNr">1424 </span> e8/call <a href='survey.subx.html#L3415'>stream-add5</a>/disp32 -<span id="L1425" class="LineNr">1425 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1426" class="LineNr">1426 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1427" class="LineNr">1427 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "b")</span> -<span id="L1428" class="LineNr">1428 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1429" class="LineNr">1429 </span> 53/push-ebx -<span id="L1430" class="LineNr">1430 </span> 68/push <span class="Constant">"b"</span>/imm32 -<span id="L1431" class="LineNr">1431 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1433" class="LineNr">1433 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1434" class="LineNr">1434 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1435" class="LineNr">1435 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1436" class="LineNr">1436 </span> <span class="subxS1Comment"># . stream-add5(segments, "b", 0x2018, 5, 1)</span> -<span id="L1437" class="LineNr">1437 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1438" class="LineNr">1438 </span> 68/push 1/imm32/segment-size -<span id="L1439" class="LineNr">1439 </span> 68/push 5/imm32/file-offset -<span id="L1440" class="LineNr">1440 </span> 68/push 0x2018/imm32/start-address -<span id="L1441" class="LineNr">1441 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1442" class="LineNr">1442 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1443" class="LineNr">1443 </span> 51/push-ecx -<span id="L1444" class="LineNr">1444 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1445" class="LineNr">1445 </span> e8/call <a href='survey.subx.html#L3415'>stream-add5</a>/disp32 -<span id="L1446" class="LineNr">1446 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1447" class="LineNr">1447 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1448" class="LineNr">1448 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "c")</span> -<span id="L1449" class="LineNr">1449 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1450" class="LineNr">1450 </span> 53/push-ebx -<span id="L1451" class="LineNr">1451 </span> 68/push <span class="Constant">"c"</span>/imm32 -<span id="L1452" class="LineNr">1452 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1453" class="LineNr">1453 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1454" class="LineNr">1454 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1455" class="LineNr">1455 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1456" class="LineNr">1456 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1457" class="LineNr">1457 </span> <span class="subxS1Comment"># . stream-add5(segments, "c", 0x5444, 6, 12)</span> -<span id="L1458" class="LineNr">1458 </span> 68/push 0xc/imm32/segment-size -<span id="L1459" class="LineNr">1459 </span> 68/push 6/imm32/file-offset -<span id="L1460" class="LineNr">1460 </span> 68/push 0x5444/imm32/start-address -<span id="L1461" class="LineNr">1461 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1462" class="LineNr">1462 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1463" class="LineNr">1463 </span> 51/push-ecx -<span id="L1464" class="LineNr">1464 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1465" class="LineNr">1465 </span> e8/call <a href='survey.subx.html#L3415'>stream-add5</a>/disp32 -<span id="L1466" class="LineNr">1466 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1467" class="LineNr">1467 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1468" class="LineNr">1468 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "a", 3, 0)</span> -<span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1470" class="LineNr">1470 </span> 68/push 0/imm32/label-address -<span id="L1471" class="LineNr">1471 </span> 68/push 3/imm32/segment-offset -<span id="L1472" class="LineNr">1472 </span> <span class="subxS2Comment"># . . push "a"</span> -<span id="L1473" class="LineNr">1473 </span> 53/push-ebx -<span id="L1474" class="LineNr">1474 </span> 68/push <span class="Constant">"a"</span>/imm32 -<span id="L1475" class="LineNr">1475 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1476" class="LineNr">1476 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1477" class="LineNr">1477 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1478" class="LineNr">1478 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1479" class="LineNr">1479 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1480" class="LineNr">1480 </span> <span class="subxS2Comment"># . . push "l1"</span> -<span id="L1481" class="LineNr">1481 </span> 53/push-ebx -<span id="L1482" class="LineNr">1482 </span> 68/push <span class="Constant">"l1"</span>/imm32 -<span id="L1483" class="LineNr">1483 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1484" class="LineNr">1484 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1485" class="LineNr">1485 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1486" class="LineNr">1486 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1487" class="LineNr">1487 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L1489" class="LineNr">1489 </span> 52/push-edx -<span id="L1490" class="LineNr">1490 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1491" class="LineNr">1491 </span> e8/call <a href='survey.subx.html#L3501'>stream-add6</a>/disp32 -<span id="L1492" class="LineNr">1492 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1493" class="LineNr">1493 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> -<span id="L1494" class="LineNr">1494 </span> <span class="subxS1Comment"># . stream-add6(labels, "l2", "b", 0, 0)</span> -<span id="L1495" class="LineNr">1495 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1496" class="LineNr">1496 </span> 68/push 0/imm32/label-address -<span id="L1497" class="LineNr">1497 </span> 68/push 0/imm32/segment-offset -<span id="L1498" class="LineNr">1498 </span> <span class="subxS2Comment"># . . push "b"</span> -<span id="L1499" class="LineNr">1499 </span> 53/push-ebx -<span id="L1500" class="LineNr">1500 </span> 68/push <span class="Constant">"b"</span>/imm32 -<span id="L1501" class="LineNr">1501 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1502" class="LineNr">1502 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1503" class="LineNr">1503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1504" class="LineNr">1504 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1505" class="LineNr">1505 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1506" class="LineNr">1506 </span> <span class="subxS2Comment"># . . push "l2"</span> -<span id="L1507" class="LineNr">1507 </span> 53/push-ebx -<span id="L1508" class="LineNr">1508 </span> 68/push <span class="Constant">"l2"</span>/imm32 -<span id="L1509" class="LineNr">1509 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1510" class="LineNr">1510 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1511" class="LineNr">1511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1512" class="LineNr">1512 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1513" class="LineNr">1513 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1514" class="LineNr">1514 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L1515" class="LineNr">1515 </span> 52/push-edx -<span id="L1516" class="LineNr">1516 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1517" class="LineNr">1517 </span> e8/call <a href='survey.subx.html#L3501'>stream-add6</a>/disp32 -<span id="L1518" class="LineNr">1518 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1519" class="LineNr">1519 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> -<span id="L1520" class="LineNr">1520 </span> <span class="subxComment"># component under test</span> -<span id="L1521" class="LineNr">1521 </span> <span class="subxS1Comment"># . compute-addresses(segments, labels)</span> -<span id="L1522" class="LineNr">1522 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1523" class="LineNr">1523 </span> 52/push-edx -<span id="L1524" class="LineNr">1524 </span> 51/push-ecx -<span id="L1525" class="LineNr">1525 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1526" class="LineNr">1526 </span> e8/call <a href='survey.subx.html#L1117'>compute-addresses</a>/disp32 -<span id="L1527" class="LineNr">1527 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1528" class="LineNr">1528 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1529" class="LineNr">1529 </span> <span class="subxComment"># checks</span> -<span id="L1530" class="Folded">1530 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1556" class="LineNr">1556 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001094.", msg)</span> -<span id="L1557" class="LineNr">1557 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1558" class="LineNr">1558 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1369'>test-compute-addresses</a>/0"</span>/imm32 -<span id="L1559" class="LineNr">1559 </span> 68/push <span class="Constant">"segment 'a' starts at address 0x00001094."</span>/imm32 -<span id="L1560" class="LineNr">1560 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1561" class="LineNr">1561 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L1562" class="LineNr">1562 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1563" class="LineNr">1563 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1564" class="LineNr">1564 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'b' starts at address 0x00002099.", msg)</span> -<span id="L1565" class="LineNr">1565 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1566" class="LineNr">1566 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1369'>test-compute-addresses</a>/1"</span>/imm32 -<span id="L1567" class="LineNr">1567 </span> 68/push <span class="Constant">"segment 'b' starts at address 0x00002099."</span>/imm32 -<span id="L1568" class="LineNr">1568 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1569" class="LineNr">1569 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L1570" class="LineNr">1570 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1571" class="LineNr">1571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1572" class="LineNr">1572 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'c' starts at address 0x0000509a.", msg)</span> +<span id="L1102" class="LineNr">1102 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L943'>test-compute-offsets</a>/4"</span>/imm32 +<span id="L1103" class="LineNr">1103 </span> 68/push <span class="Constant">"label 'x' is in segment 'data'."</span>/imm32 +<span id="L1104" class="LineNr">1104 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1105" class="LineNr">1105 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L1106" class="LineNr">1106 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1107" class="LineNr">1107 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1108" class="LineNr">1108 </span> <span class="subxS1Comment"># . check-trace-contains("label 'x' is at segment offset 0x00000001.", msg)</span> +<span id="L1109" class="LineNr">1109 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1110" class="LineNr">1110 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L943'>test-compute-offsets</a>/5"</span>/imm32 +<span id="L1111" class="LineNr">1111 </span> 68/push <span class="Constant">"label 'x' is at segment offset 0x00000001."</span>/imm32 +<span id="L1112" class="LineNr">1112 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1113" class="LineNr">1113 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L1114" class="LineNr">1114 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1115" class="LineNr">1115 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1116" class="LineNr">1116 </span> <span class="subxS1Comment"># . check-ints-equal(labels->write, 0x18, msg)</span> +<span id="L1117" class="LineNr">1117 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1118" class="LineNr">1118 </span> 68/push <span class="Constant">"F - test-compute-offsets-maintains-labels-write-index"</span>/imm32 +<span id="L1119" class="LineNr">1119 </span> 68/push 0x18/imm32/1-entry +<span id="L1120" class="LineNr">1120 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L1121" class="LineNr">1121 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1122" class="LineNr">1122 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1123" class="LineNr">1123 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1124" class="LineNr">1124 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1125" class="LineNr">1125 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1126" class="LineNr">1126 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1127" class="LineNr">1127 </span> 5d/pop-to-ebp +<span id="L1128" class="LineNr">1128 </span> c3/return +<span id="L1129" class="LineNr">1129 </span> +<span id="L1130" class="LineNr">1130 </span><span class="subxComment"># write segments->file-offset,</span> +<span id="L1131" class="LineNr">1131 </span><span class="subxComment"># segments->address, and</span> +<span id="L1132" class="LineNr">1132 </span><span class="subxComment"># labels->address</span> +<span id="L1133" class="LineNr">1133 </span><span class="subxFunction">compute-addresses</span>: <span class="subxComment"># segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> +<span id="L1134" class="LineNr">1134 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1135" class="LineNr">1135 </span> <span class="subxComment"># var srow: (addr segment-row) = segments->data</span> +<span id="L1136" class="LineNr">1136 </span> <span class="subxComment"># var max: (addr byte) = &segments->data[segments->write]</span> +<span id="L1137" class="LineNr">1137 </span> <span class="subxComment"># var num-segments: int = segments->write / 20</span> +<span id="L1138" class="LineNr">1138 </span> <span class="subxComment"># var starting-offset: int = 0x34 + (num-segments * 0x20)</span> +<span id="L1139" class="LineNr">1139 </span> <span class="subxComment"># while true</span> +<span id="L1140" class="LineNr">1140 </span> <span class="subxComment"># if (srow >= max) break</span> +<span id="L1141" class="LineNr">1141 </span> <span class="subxComment"># srow->file-offset += starting-offset</span> +<span id="L1142" class="LineNr">1142 </span> <span class="subxComment"># srow->address &= 0xfffff000 # clear last 12 bits for p_align</span> +<span id="L1143" class="LineNr">1143 </span> <span class="subxComment"># srow->address += (srow->file-offset & 0x00000fff)</span> +<span id="L1144" class="LineNr">1144 </span> <span class="subxComment"># trace-sssns("segment " srow->key " starts at address " srow->address)</span> +<span id="L1145" class="LineNr">1145 </span> <span class="subxComment"># srow += 20 # row-size</span> +<span id="L1146" class="LineNr">1146 </span> <span class="subxComment"># var lrow: (addr label-row) = labels->data</span> +<span id="L1147" class="LineNr">1147 </span> <span class="subxComment"># max = &labels->data[labels->write]</span> +<span id="L1148" class="LineNr">1148 </span> <span class="subxComment"># while true</span> +<span id="L1149" class="LineNr">1149 </span> <span class="subxComment"># if (lrow >= max) break</span> +<span id="L1150" class="LineNr">1150 </span> <span class="subxComment"># var seg-name: (addr array byte) = lookup(lrow->segment-name)</span> +<span id="L1151" class="LineNr">1151 </span> <span class="subxComment"># var label-seg: (addr segment-info) = get(segments, seg-name)</span> +<span id="L1152" class="LineNr">1152 </span> <span class="subxComment"># lrow->address = label-seg->address + lrow->segment-offset</span> +<span id="L1153" class="LineNr">1153 </span> <span class="subxComment"># trace-sssns("label " lrow->key " is at address " lrow->address)</span> +<span id="L1154" class="LineNr">1154 </span> <span class="subxComment"># lrow += 24 # row-size</span> +<span id="L1155" class="LineNr">1155 </span> <span class="subxComment">#</span> +<span id="L1156" class="LineNr">1156 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1157" class="LineNr">1157 </span> 55/push-ebp +<span id="L1158" class="LineNr">1158 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1159" class="LineNr">1159 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1160" class="LineNr">1160 </span> 50/push-eax +<span id="L1161" class="LineNr">1161 </span> 51/push-ecx +<span id="L1162" class="LineNr">1162 </span> 52/push-edx +<span id="L1163" class="LineNr">1163 </span> 53/push-ebx +<span id="L1164" class="LineNr">1164 </span> 56/push-esi +<span id="L1165" class="LineNr">1165 </span> 57/push-edi +<span id="L1166" class="LineNr">1166 </span> <span class="subxComment"># esi = segments</span> +<span id="L1167" class="LineNr">1167 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L1168" class="LineNr">1168 </span> <span class="subxComment"># var num-segments/edi: int = segments->write / 20 (row-size)</span> +<span id="L1169" class="LineNr">1169 </span> <span class="subxS1Comment"># . eax = segments->write</span> +<span id="L1170" class="LineNr">1170 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L1171" class="LineNr">1171 </span> <span class="subxS1Comment"># . edx = 0</span> +<span id="L1172" class="LineNr">1172 </span> ba/copy-to-edx 0/imm32 +<span id="L1173" class="LineNr">1173 </span> <span class="subxS1Comment"># . ecx = 20 (row-size)</span> +<span id="L1174" class="LineNr">1174 </span> b9/copy-to-ecx 0x14/imm32/row-size +<span id="L1175" class="LineNr">1175 </span> <span class="subxS1Comment"># . eax /= ecx (clobbering edx)</span> +<span id="L1176" class="LineNr">1176 </span> f7 7/subop/divide 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># divide eax by ecx</span> +<span id="L1177" class="LineNr">1177 </span> <span class="subxS1Comment"># . edi = eax</span> +<span id="L1178" class="LineNr">1178 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edi</span> +<span id="L1179" class="LineNr">1179 </span> <span class="subxComment"># var starting-offset/edi: int = 0x34 + (num-segments * 0x20) # make room for ELF headers</span> +<span id="L1180" class="LineNr">1180 </span> c1/shift 4/subop/left 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/imm8 <span class="subxComment"># shift edi left by 5 bits</span> +<span id="L1181" class="LineNr">1181 </span> 81 0/subop/add 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x34/imm32 <span class="subxComment"># add to edi</span> +<span id="L1182" class="LineNr">1182 </span> <span class="subxComment"># var max/ecx: (addr byte) = &segments->data[segments->write]</span> +<span id="L1183" class="LineNr">1183 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L1184" class="LineNr">1184 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to ecx</span> +<span id="L1185" class="LineNr">1185 </span> <span class="subxComment"># var srow/esi: (addr segment-row) = segments->data</span> +<span id="L1186" class="LineNr">1186 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to esi</span> +<span id="L1187" class="LineNr">1187 </span><span class="Constant">$compute-addresses:segment-loop</span>: +<span id="L1188" class="LineNr">1188 </span> <span class="subxComment"># if (srow >= max) break</span> +<span id="L1189" class="LineNr">1189 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> +<span id="L1190" class="LineNr">1190 </span> 73/jump-if-addr>= $compute-addresses:segment-break/disp8 +<span id="L1191" class="LineNr">1191 </span> <span class="subxComment"># srow->file-offset += starting-offset</span> +<span id="L1192" class="LineNr">1192 </span> 01/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 7/r32/edi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># add edi to *(esi+12)</span> +<span id="L1193" class="LineNr">1193 </span> <span class="subxComment"># clear last 12 bits of srow->address for p_align=0x1000</span> +<span id="L1194" class="LineNr">1194 </span> <span class="subxS1Comment"># . edx = srow->address</span> +<span id="L1195" class="LineNr">1195 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> +<span id="L1196" class="LineNr">1196 </span> <span class="subxS1Comment"># . edx &= 0xfffff000</span> +<span id="L1197" class="LineNr">1197 </span> 81 4/subop/and 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xfffff000/imm32 <span class="subxComment"># bitwise and of edx</span> +<span id="L1198" class="LineNr">1198 </span> <span class="subxComment"># update last 12 bits from srow->file-offset</span> +<span id="L1199" class="LineNr">1199 </span> <span class="subxS1Comment"># . ebx = srow->file-offset</span> +<span id="L1200" class="LineNr">1200 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+12) to ebx</span> +<span id="L1201" class="LineNr">1201 </span> <span class="subxS1Comment"># . ebx &= 0xfff</span> +<span id="L1202" class="LineNr">1202 </span> 81 4/subop/and 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x00000fff/imm32 <span class="subxComment"># bitwise and of ebx</span> +<span id="L1203" class="LineNr">1203 </span> <span class="subxS1Comment"># . srow->address = edx | ebx</span> +<span id="L1204" class="LineNr">1204 </span> 09/or 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># edx = bitwise OR with ebx</span> +<span id="L1205" class="LineNr">1205 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy edx to *(esi+8)</span> +<span id="L1206" class="LineNr">1206 </span> <span class="subxComment"># trace-sssns("segment " srow " starts at address " srow->address ".")</span> +<span id="L1207" class="LineNr">1207 </span> <span class="subxS1Comment"># . eax = lookup(*srow)</span> +<span id="L1208" class="LineNr">1208 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1209" class="LineNr">1209 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L1210" class="LineNr">1210 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L1211" class="LineNr">1211 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1212" class="LineNr">1212 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1213" class="LineNr">1213 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1214" class="LineNr">1214 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1215" class="LineNr">1215 </span> <span class="subxS1Comment"># . trace-sssns("segment " eax " starts at address " srow->address ".")</span> +<span id="L1216" class="LineNr">1216 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1217" class="LineNr">1217 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L1218" class="LineNr">1218 </span> 52/push-edx +<span id="L1219" class="LineNr">1219 </span> 68/push <span class="Constant">"' starts at address "</span>/imm32 +<span id="L1220" class="LineNr">1220 </span> 50/push-eax +<span id="L1221" class="LineNr">1221 </span> 68/push <span class="Constant">"segment '"</span>/imm32 +<span id="L1222" class="LineNr">1222 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1223" class="LineNr">1223 </span> e8/call <a href='survey_elf.subx.html#L3624'>trace-sssns</a>/disp32 +<span id="L1224" class="LineNr">1224 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1225" class="LineNr">1225 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L1226" class="LineNr">1226 </span> <span class="subxComment"># srow += 20 # size of row</span> +<span id="L1227" class="LineNr">1227 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esi</span> +<span id="L1228" class="LineNr">1228 </span> eb/jump $compute-addresses:segment-loop/disp8 +<span id="L1229" class="LineNr">1229 </span><span class="Constant">$compute-addresses:segment-break</span>: +<span id="L1230" class="Folded">1230 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1256" class="LineNr">1256 </span> <span class="subxComment"># esi = labels</span> +<span id="L1257" class="LineNr">1257 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L1258" class="LineNr">1258 </span> <span class="subxComment"># var max/ecx: (addr byte) = &labels->data[labels->write]</span> +<span id="L1259" class="LineNr">1259 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to ecx</span> +<span id="L1260" class="LineNr">1260 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+ecx+12 to ecx</span> +<span id="L1261" class="LineNr">1261 </span> <span class="subxComment"># var lrow/esi: (addr label-row) = labels->data</span> +<span id="L1262" class="LineNr">1262 </span> 8d/copy-address 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+12 to esi</span> +<span id="L1263" class="LineNr">1263 </span><span class="Constant">$compute-addresses:label-loop</span>: +<span id="L1264" class="LineNr">1264 </span> <span class="subxComment"># if (lrow >= max) break</span> +<span id="L1265" class="LineNr">1265 </span> 39/compare 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare esi with ecx</span> +<span id="L1266" class="LineNr">1266 </span> 0f 83/jump-if-addr>= $compute-addresses:end/disp32 +<span id="L1267" class="Folded">1267 </span><span class="Folded">+-- 26 lines: #? # dump lrow->key ---------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1293" class="LineNr">1293 </span> <span class="subxComment"># var seg-name/edx: (addr array byte) = lookup(lrow->segment-name)</span> +<span id="L1294" class="LineNr">1294 </span> <span class="subxS1Comment"># . eax = lookup(lrow->segment-name)</span> +<span id="L1295" class="LineNr">1295 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1296" class="LineNr">1296 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+12)</span> +<span id="L1297" class="LineNr">1297 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+8)</span> +<span id="L1298" class="LineNr">1298 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1299" class="LineNr">1299 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1300" class="LineNr">1300 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1301" class="LineNr">1301 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1302" class="LineNr">1302 </span> <span class="subxS1Comment"># . edx = eax</span> +<span id="L1303" class="LineNr">1303 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L1304" class="Folded">1304 </span><span class="Folded">+-- 26 lines: #? # dump seg-name ----------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1330" class="LineNr">1330 </span> <span class="subxComment"># var label-seg/edx: (addr segment-info) = get(segments, seg-name, row-size=20, "segment table")</span> +<span id="L1331" class="LineNr">1331 </span> <span class="subxS1Comment"># . eax = get(segments, seg-name, row-size=20)</span> +<span id="L1332" class="LineNr">1332 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1333" class="LineNr">1333 </span> 68/push <span class="Constant">"segment table"</span>/imm32 +<span id="L1334" class="LineNr">1334 </span> 68/push 0x14/imm32/row-size +<span id="L1335" class="LineNr">1335 </span> 52/push-edx +<span id="L1336" class="LineNr">1336 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1337" class="LineNr">1337 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1338" class="LineNr">1338 </span> e8/call <a href='131table.subx.html#L26'>get</a>/disp32 +<span id="L1339" class="LineNr">1339 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1340" class="LineNr">1340 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L1341" class="LineNr">1341 </span> <span class="subxS1Comment"># . edx = eax</span> +<span id="L1342" class="LineNr">1342 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L1343" class="LineNr">1343 </span> <span class="subxComment"># ebx = label-seg->address</span> +<span id="L1344" class="LineNr">1344 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to ebx</span> +<span id="L1345" class="LineNr">1345 </span> <span class="subxComment"># ebx += lrow->segment-offset</span> +<span id="L1346" class="LineNr">1346 </span> 03/add 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># add *(esi+16) to ebx</span> +<span id="L1347" class="LineNr">1347 </span> <span class="subxComment"># lrow->address = ebx</span> +<span id="L1348" class="LineNr">1348 </span> 89/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy ebx to *(esi+20)</span> +<span id="L1349" class="LineNr">1349 </span> <span class="subxComment"># trace-sssns("label " lrow->key " is at address " lrow->address ".")</span> +<span id="L1350" class="LineNr">1350 </span> <span class="subxS1Comment"># . eax = lookup(lrow->key)</span> +<span id="L1351" class="LineNr">1351 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1352" class="LineNr">1352 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L1353" class="LineNr">1353 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L1354" class="LineNr">1354 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1355" class="LineNr">1355 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L1356" class="LineNr">1356 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1357" class="LineNr">1357 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1358" class="LineNr">1358 </span> <span class="subxS1Comment"># . trace-sssns("label " eax " is at address " lrow->address ".")</span> +<span id="L1359" class="LineNr">1359 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1360" class="LineNr">1360 </span> 68/push <span class="Constant">"."</span>/imm32 +<span id="L1361" class="LineNr">1361 </span> 53/push-ebx +<span id="L1362" class="LineNr">1362 </span> 68/push <span class="Constant">"' is at address "</span>/imm32 +<span id="L1363" class="LineNr">1363 </span> 50/push-eax +<span id="L1364" class="LineNr">1364 </span> 68/push <span class="Constant">"label '"</span>/imm32 +<span id="L1365" class="LineNr">1365 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1366" class="LineNr">1366 </span> e8/call <a href='survey_elf.subx.html#L3624'>trace-sssns</a>/disp32 +<span id="L1367" class="LineNr">1367 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1368" class="LineNr">1368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L1369" class="LineNr">1369 </span> <span class="subxComment"># lrow += 24 # size of row</span> +<span id="L1370" class="LineNr">1370 </span> 81 0/subop/add 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esi</span> +<span id="L1371" class="LineNr">1371 </span> e9/jump $compute-addresses:label-loop/disp32 +<span id="L1372" class="LineNr">1372 </span><span class="Constant">$compute-addresses:end</span>: +<span id="L1373" class="LineNr">1373 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L1374" class="LineNr">1374 </span> 5f/pop-to-edi +<span id="L1375" class="LineNr">1375 </span> 5e/pop-to-esi +<span id="L1376" class="LineNr">1376 </span> 5b/pop-to-ebx +<span id="L1377" class="LineNr">1377 </span> 5a/pop-to-edx +<span id="L1378" class="LineNr">1378 </span> 59/pop-to-ecx +<span id="L1379" class="LineNr">1379 </span> 58/pop-to-eax +<span id="L1380" class="LineNr">1380 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1381" class="LineNr">1381 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1382" class="LineNr">1382 </span> 5d/pop-to-ebp +<span id="L1383" class="LineNr">1383 </span> c3/return +<span id="L1384" class="LineNr">1384 </span> +<span id="L1385" class="LineNr">1385 </span><span class="subxTest">test-compute-addresses</span>: +<span id="L1386" class="LineNr">1386 </span> <span class="subxComment"># input:</span> +<span id="L1387" class="LineNr">1387 </span> <span class="subxComment"># segments:</span> +<span id="L1388" class="LineNr">1388 </span> <span class="subxComment"># - 'a': {0x1000, 0, 5}</span> +<span id="L1389" class="LineNr">1389 </span> <span class="subxComment"># - 'b': {0x2018, 5, 1}</span> +<span id="L1390" class="LineNr">1390 </span> <span class="subxComment"># - 'c': {0x5444, 6, 12}</span> +<span id="L1391" class="LineNr">1391 </span> <span class="subxComment"># labels:</span> +<span id="L1392" class="LineNr">1392 </span> <span class="subxComment"># - 'l1': {'a', 3, 0}</span> +<span id="L1393" class="LineNr">1393 </span> <span class="subxComment"># - 'l2': {'b', 0, 0}</span> +<span id="L1394" class="LineNr">1394 </span> <span class="subxComment">#</span> +<span id="L1395" class="LineNr">1395 </span> <span class="subxComment"># trace contains in any order (comments in parens):</span> +<span id="L1396" class="LineNr">1396 </span> <span class="subxComment"># segment 'a' starts at address 0x00001094. (0x34 + 0x20 for each segment)</span> +<span id="L1397" class="LineNr">1397 </span> <span class="subxComment"># segment 'b' starts at address 0x00002099. (0x018 discarded)</span> +<span id="L1398" class="LineNr">1398 </span> <span class="subxComment"># segment 'c' starts at address 0x0000509a. (0x444 discarded)</span> +<span id="L1399" class="LineNr">1399 </span> <span class="subxComment"># label 'l1' is at address 0x00001097. (0x1094 + segment-offset 3)</span> +<span id="L1400" class="LineNr">1400 </span> <span class="subxComment"># label 'l2' is at address 0x00002099. (0x2099 + segment-offset 0)</span> +<span id="L1401" class="LineNr">1401 </span> <span class="subxComment">#</span> +<span id="L1402" class="LineNr">1402 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1403" class="LineNr">1403 </span> 55/push-ebp +<span id="L1404" class="LineNr">1404 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1405" class="LineNr">1405 </span> <span class="subxComment"># setup</span> +<span id="L1406" class="LineNr">1406 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*20)</span> +<span id="L1407" class="LineNr">1407 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc8/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1408" class="LineNr">1408 </span> 68/push 0xc8/imm32/size +<span id="L1409" class="LineNr">1409 </span> 68/push 0/imm32/read +<span id="L1410" class="LineNr">1410 </span> 68/push 0/imm32/write +<span id="L1411" class="LineNr">1411 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1412" class="LineNr">1412 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1413" class="LineNr">1413 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1414" class="LineNr">1414 </span> 68/push 0xc0/imm32/size +<span id="L1415" class="LineNr">1415 </span> 68/push 0/imm32/read +<span id="L1416" class="LineNr">1416 </span> 68/push 0/imm32/write +<span id="L1417" class="LineNr">1417 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1418" class="LineNr">1418 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1419" class="LineNr">1419 </span> 68/push 0/imm32 +<span id="L1420" class="LineNr">1420 </span> 68/push 0/imm32 +<span id="L1421" class="LineNr">1421 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1422" class="LineNr">1422 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "a")</span> +<span id="L1423" class="LineNr">1423 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1424" class="LineNr">1424 </span> 53/push-ebx +<span id="L1425" class="LineNr">1425 </span> 68/push <span class="Constant">"a"</span>/imm32 +<span id="L1426" class="LineNr">1426 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1427" class="LineNr">1427 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1428" class="LineNr">1428 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1429" class="LineNr">1429 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1430" class="LineNr">1430 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1431" class="LineNr">1431 </span> <span class="subxS1Comment"># . stream-add5(segments, "a", 0x1000, 0, 5)</span> +<span id="L1432" class="LineNr">1432 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1433" class="LineNr">1433 </span> 68/push 5/imm32/segment-size +<span id="L1434" class="LineNr">1434 </span> 68/push 0/imm32/file-offset +<span id="L1435" class="LineNr">1435 </span> 68/push 0x1000/imm32/start-address +<span id="L1436" class="LineNr">1436 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1437" class="LineNr">1437 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1438" class="LineNr">1438 </span> 51/push-ecx +<span id="L1439" class="LineNr">1439 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1440" class="LineNr">1440 </span> e8/call <a href='survey_elf.subx.html#L3436'>stream-add5</a>/disp32 +<span id="L1441" class="LineNr">1441 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1442" class="LineNr">1442 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1443" class="LineNr">1443 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "b")</span> +<span id="L1444" class="LineNr">1444 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1445" class="LineNr">1445 </span> 53/push-ebx +<span id="L1446" class="LineNr">1446 </span> 68/push <span class="Constant">"b"</span>/imm32 +<span id="L1447" class="LineNr">1447 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1448" class="LineNr">1448 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1449" class="LineNr">1449 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1450" class="LineNr">1450 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1451" class="LineNr">1451 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1452" class="LineNr">1452 </span> <span class="subxS1Comment"># . stream-add5(segments, "b", 0x2018, 5, 1)</span> +<span id="L1453" class="LineNr">1453 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1454" class="LineNr">1454 </span> 68/push 1/imm32/segment-size +<span id="L1455" class="LineNr">1455 </span> 68/push 5/imm32/file-offset +<span id="L1456" class="LineNr">1456 </span> 68/push 0x2018/imm32/start-address +<span id="L1457" class="LineNr">1457 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1458" class="LineNr">1458 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1459" class="LineNr">1459 </span> 51/push-ecx +<span id="L1460" class="LineNr">1460 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1461" class="LineNr">1461 </span> e8/call <a href='survey_elf.subx.html#L3436'>stream-add5</a>/disp32 +<span id="L1462" class="LineNr">1462 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1463" class="LineNr">1463 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1464" class="LineNr">1464 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "c")</span> +<span id="L1465" class="LineNr">1465 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1466" class="LineNr">1466 </span> 53/push-ebx +<span id="L1467" class="LineNr">1467 </span> 68/push <span class="Constant">"c"</span>/imm32 +<span id="L1468" class="LineNr">1468 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1469" class="LineNr">1469 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1470" class="LineNr">1470 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1471" class="LineNr">1471 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1472" class="LineNr">1472 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1473" class="LineNr">1473 </span> <span class="subxS1Comment"># . stream-add5(segments, "c", 0x5444, 6, 12)</span> +<span id="L1474" class="LineNr">1474 </span> 68/push 0xc/imm32/segment-size +<span id="L1475" class="LineNr">1475 </span> 68/push 6/imm32/file-offset +<span id="L1476" class="LineNr">1476 </span> 68/push 0x5444/imm32/start-address +<span id="L1477" class="LineNr">1477 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1478" class="LineNr">1478 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1479" class="LineNr">1479 </span> 51/push-ecx +<span id="L1480" class="LineNr">1480 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1481" class="LineNr">1481 </span> e8/call <a href='survey_elf.subx.html#L3436'>stream-add5</a>/disp32 +<span id="L1482" class="LineNr">1482 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1483" class="LineNr">1483 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1484" class="LineNr">1484 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "a", 3, 0)</span> +<span id="L1485" class="LineNr">1485 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1486" class="LineNr">1486 </span> 68/push 0/imm32/label-address +<span id="L1487" class="LineNr">1487 </span> 68/push 3/imm32/segment-offset +<span id="L1488" class="LineNr">1488 </span> <span class="subxS2Comment"># . . push "a"</span> +<span id="L1489" class="LineNr">1489 </span> 53/push-ebx +<span id="L1490" class="LineNr">1490 </span> 68/push <span class="Constant">"a"</span>/imm32 +<span id="L1491" class="LineNr">1491 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1492" class="LineNr">1492 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1493" class="LineNr">1493 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1494" class="LineNr">1494 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1495" class="LineNr">1495 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1496" class="LineNr">1496 </span> <span class="subxS2Comment"># . . push "l1"</span> +<span id="L1497" class="LineNr">1497 </span> 53/push-ebx +<span id="L1498" class="LineNr">1498 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L1499" class="LineNr">1499 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1500" class="LineNr">1500 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1501" class="LineNr">1501 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1502" class="LineNr">1502 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1503" class="LineNr">1503 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1504" class="LineNr">1504 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1505" class="LineNr">1505 </span> 52/push-edx +<span id="L1506" class="LineNr">1506 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1507" class="LineNr">1507 </span> e8/call <a href='survey_elf.subx.html#L3522'>stream-add6</a>/disp32 +<span id="L1508" class="LineNr">1508 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1509" class="LineNr">1509 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> +<span id="L1510" class="LineNr">1510 </span> <span class="subxS1Comment"># . stream-add6(labels, "l2", "b", 0, 0)</span> +<span id="L1511" class="LineNr">1511 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1512" class="LineNr">1512 </span> 68/push 0/imm32/label-address +<span id="L1513" class="LineNr">1513 </span> 68/push 0/imm32/segment-offset +<span id="L1514" class="LineNr">1514 </span> <span class="subxS2Comment"># . . push "b"</span> +<span id="L1515" class="LineNr">1515 </span> 53/push-ebx +<span id="L1516" class="LineNr">1516 </span> 68/push <span class="Constant">"b"</span>/imm32 +<span id="L1517" class="LineNr">1517 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1518" class="LineNr">1518 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1519" class="LineNr">1519 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1520" class="LineNr">1520 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1521" class="LineNr">1521 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1522" class="LineNr">1522 </span> <span class="subxS2Comment"># . . push "l2"</span> +<span id="L1523" class="LineNr">1523 </span> 53/push-ebx +<span id="L1524" class="LineNr">1524 </span> 68/push <span class="Constant">"l2"</span>/imm32 +<span id="L1525" class="LineNr">1525 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1526" class="LineNr">1526 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1527" class="LineNr">1527 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1528" class="LineNr">1528 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1529" class="LineNr">1529 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1530" class="LineNr">1530 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1531" class="LineNr">1531 </span> 52/push-edx +<span id="L1532" class="LineNr">1532 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1533" class="LineNr">1533 </span> e8/call <a href='survey_elf.subx.html#L3522'>stream-add6</a>/disp32 +<span id="L1534" class="LineNr">1534 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1535" class="LineNr">1535 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> +<span id="L1536" class="LineNr">1536 </span> <span class="subxComment"># component under test</span> +<span id="L1537" class="LineNr">1537 </span> <span class="subxS1Comment"># . compute-addresses(segments, labels)</span> +<span id="L1538" class="LineNr">1538 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1539" class="LineNr">1539 </span> 52/push-edx +<span id="L1540" class="LineNr">1540 </span> 51/push-ecx +<span id="L1541" class="LineNr">1541 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1542" class="LineNr">1542 </span> e8/call <a href='survey_elf.subx.html#L1133'>compute-addresses</a>/disp32 +<span id="L1543" class="LineNr">1543 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1544" class="LineNr">1544 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1545" class="LineNr">1545 </span> <span class="subxComment"># checks</span> +<span id="L1546" class="Folded">1546 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1572" class="LineNr">1572 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001094.", msg)</span> <span id="L1573" class="LineNr">1573 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1574" class="LineNr">1574 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1369'>test-compute-addresses</a>/2"</span>/imm32 -<span id="L1575" class="LineNr">1575 </span> 68/push <span class="Constant">"segment 'c' starts at address 0x0000509a."</span>/imm32 +<span id="L1574" class="LineNr">1574 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1385'>test-compute-addresses</a>/0"</span>/imm32 +<span id="L1575" class="LineNr">1575 </span> 68/push <span class="Constant">"segment 'a' starts at address 0x00001094."</span>/imm32 <span id="L1576" class="LineNr">1576 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1577" class="LineNr">1577 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1577" class="LineNr">1577 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1578" class="LineNr">1578 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1579" class="LineNr">1579 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1580" class="LineNr">1580 </span> <span class="subxS1Comment"># . check-trace-contains("label 'l1' is at address 0x00001097.", msg)</span> +<span id="L1580" class="LineNr">1580 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'b' starts at address 0x00002099.", msg)</span> <span id="L1581" class="LineNr">1581 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1582" class="LineNr">1582 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1369'>test-compute-addresses</a>/3"</span>/imm32 -<span id="L1583" class="LineNr">1583 </span> 68/push <span class="Constant">"label 'l1' is at address 0x00001097."</span>/imm32 +<span id="L1582" class="LineNr">1582 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1385'>test-compute-addresses</a>/1"</span>/imm32 +<span id="L1583" class="LineNr">1583 </span> 68/push <span class="Constant">"segment 'b' starts at address 0x00002099."</span>/imm32 <span id="L1584" class="LineNr">1584 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1585" class="LineNr">1585 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1585" class="LineNr">1585 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1586" class="LineNr">1586 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1587" class="LineNr">1587 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1588" class="LineNr">1588 </span> <span class="subxS1Comment"># . check-trace-contains("label 'l2' is at address 0x00002099.", msg)</span> +<span id="L1588" class="LineNr">1588 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'c' starts at address 0x0000509a.", msg)</span> <span id="L1589" class="LineNr">1589 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1590" class="LineNr">1590 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1369'>test-compute-addresses</a>/4"</span>/imm32 -<span id="L1591" class="LineNr">1591 </span> 68/push <span class="Constant">"label 'l2' is at address 0x00002099."</span>/imm32 +<span id="L1590" class="LineNr">1590 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1385'>test-compute-addresses</a>/2"</span>/imm32 +<span id="L1591" class="LineNr">1591 </span> 68/push <span class="Constant">"segment 'c' starts at address 0x0000509a."</span>/imm32 <span id="L1592" class="LineNr">1592 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1593" class="LineNr">1593 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1593" class="LineNr">1593 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1594" class="LineNr">1594 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1595" class="LineNr">1595 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1596" class="LineNr">1596 </span> <span class="subxS1Comment"># . check-ints-equal(labels->write, 0x30, msg)</span> +<span id="L1596" class="LineNr">1596 </span> <span class="subxS1Comment"># . check-trace-contains("label 'l1' is at address 0x00001097.", msg)</span> <span id="L1597" class="LineNr">1597 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1598" class="LineNr">1598 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1369'>test-compute-addresses</a>/maintains-labels-write-index"</span>/imm32 -<span id="L1599" class="LineNr">1599 </span> 68/push 0x30/imm32/2-entries -<span id="L1600" class="LineNr">1600 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L1601" class="LineNr">1601 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1602" class="LineNr">1602 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L1603" class="LineNr">1603 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1604" class="LineNr">1604 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1605" class="LineNr">1605 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1606" class="LineNr">1606 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1607" class="LineNr">1607 </span> 5d/pop-to-ebp -<span id="L1608" class="LineNr">1608 </span> c3/return -<span id="L1609" class="LineNr">1609 </span> -<span id="L1610" class="LineNr">1610 </span><span class="subxTest">test-compute-addresses-large-segments</span>: -<span id="L1611" class="LineNr">1611 </span> <span class="subxComment"># input:</span> -<span id="L1612" class="LineNr">1612 </span> <span class="subxComment"># segments:</span> -<span id="L1613" class="LineNr">1613 </span> <span class="subxComment"># - 'a': {0x1000, 0, 0x5604}</span> -<span id="L1614" class="LineNr">1614 </span> <span class="subxComment"># - 'b': {0x2018, 0x5604, 1}</span> -<span id="L1615" class="LineNr">1615 </span> <span class="subxComment"># labels:</span> -<span id="L1616" class="LineNr">1616 </span> <span class="subxComment"># - 'l1': {'a', 3, 0}</span> -<span id="L1617" class="LineNr">1617 </span> <span class="subxComment">#</span> -<span id="L1618" class="LineNr">1618 </span> <span class="subxComment"># trace contains in any order (comments in parens):</span> -<span id="L1619" class="LineNr">1619 </span> <span class="subxComment"># segment 'a' starts at address 0x00001074. (0x34 + 0x20 for each segment)</span> -<span id="L1620" class="LineNr">1620 </span> <span class="subxComment"># segment 'b' starts at address 0x00002678. (0x018 discarded; last 3 nibbles from 0x1074 + 0x5604)</span> -<span id="L1621" class="LineNr">1621 </span> <span class="subxComment"># label 'l1' is at address 0x00001077. (0x1074 + segment-offset 3)</span> -<span id="L1622" class="LineNr">1622 </span> <span class="subxComment">#</span> -<span id="L1623" class="LineNr">1623 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1624" class="LineNr">1624 </span> 55/push-ebp -<span id="L1625" class="LineNr">1625 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1626" class="LineNr">1626 </span> <span class="subxComment"># setup</span> -<span id="L1627" class="LineNr">1627 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*20)</span> -<span id="L1628" class="LineNr">1628 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc8/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1629" class="LineNr">1629 </span> 68/push 0xc8/imm32/size -<span id="L1630" class="LineNr">1630 </span> 68/push 0/imm32/read -<span id="L1631" class="LineNr">1631 </span> 68/push 0/imm32/write -<span id="L1632" class="LineNr">1632 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1633" class="LineNr">1633 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L1634" class="LineNr">1634 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1635" class="LineNr">1635 </span> 68/push 0xc0/imm32/size -<span id="L1636" class="LineNr">1636 </span> 68/push 0/imm32/read -<span id="L1637" class="LineNr">1637 </span> 68/push 0/imm32/write -<span id="L1638" class="LineNr">1638 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1639" class="LineNr">1639 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L1640" class="LineNr">1640 </span> 68/push 0/imm32 -<span id="L1641" class="LineNr">1641 </span> 68/push 0/imm32 -<span id="L1642" class="LineNr">1642 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L1643" class="LineNr">1643 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "a")</span> -<span id="L1644" class="LineNr">1644 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1645" class="LineNr">1645 </span> 53/push-ebx -<span id="L1646" class="LineNr">1646 </span> 68/push <span class="Constant">"a"</span>/imm32 -<span id="L1647" class="LineNr">1647 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1648" class="LineNr">1648 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1649" class="LineNr">1649 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1650" class="LineNr">1650 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1651" class="LineNr">1651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1652" class="LineNr">1652 </span> <span class="subxS1Comment"># . stream-add5(segments, "a", 0x1000, 0, 0x5604)</span> -<span id="L1653" class="LineNr">1653 </span> 68/push 0x5604/imm32/segment-size -<span id="L1654" class="LineNr">1654 </span> 68/push 0/imm32/file-offset -<span id="L1655" class="LineNr">1655 </span> 68/push 0x1000/imm32/start-address -<span id="L1656" class="LineNr">1656 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1657" class="LineNr">1657 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1658" class="LineNr">1658 </span> 51/push-ecx -<span id="L1659" class="LineNr">1659 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1660" class="LineNr">1660 </span> e8/call <a href='survey.subx.html#L3415'>stream-add5</a>/disp32 -<span id="L1661" class="LineNr">1661 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1662" class="LineNr">1662 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1663" class="LineNr">1663 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "b")</span> -<span id="L1664" class="LineNr">1664 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1665" class="LineNr">1665 </span> 53/push-ebx -<span id="L1666" class="LineNr">1666 </span> 68/push <span class="Constant">"b"</span>/imm32 -<span id="L1667" class="LineNr">1667 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1668" class="LineNr">1668 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1669" class="LineNr">1669 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1670" class="LineNr">1670 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1671" class="LineNr">1671 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1672" class="LineNr">1672 </span> <span class="subxS1Comment"># . stream-add5(segments, "b", 0x2018, 0x5604, 1)</span> -<span id="L1673" class="LineNr">1673 </span> 68/push 1/imm32/segment-size -<span id="L1674" class="LineNr">1674 </span> 68/push 0x5604/imm32/file-offset -<span id="L1675" class="LineNr">1675 </span> 68/push 0x2018/imm32/start-address -<span id="L1676" class="LineNr">1676 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1677" class="LineNr">1677 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1678" class="LineNr">1678 </span> 51/push-ecx -<span id="L1679" class="LineNr">1679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1680" class="LineNr">1680 </span> e8/call <a href='survey.subx.html#L3415'>stream-add5</a>/disp32 -<span id="L1681" class="LineNr">1681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1682" class="LineNr">1682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> -<span id="L1683" class="LineNr">1683 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "a", 3, 0)</span> -<span id="L1684" class="LineNr">1684 </span> 68/push 0/imm32/label-address -<span id="L1685" class="LineNr">1685 </span> 68/push 3/imm32/segment-offset -<span id="L1686" class="LineNr">1686 </span> <span class="subxS2Comment"># . . push "a"</span> -<span id="L1687" class="LineNr">1687 </span> 53/push-ebx -<span id="L1688" class="LineNr">1688 </span> 68/push <span class="Constant">"a"</span>/imm32 -<span id="L1689" class="LineNr">1689 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1690" class="LineNr">1690 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1691" class="LineNr">1691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1598" class="LineNr">1598 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1385'>test-compute-addresses</a>/3"</span>/imm32 +<span id="L1599" class="LineNr">1599 </span> 68/push <span class="Constant">"label 'l1' is at address 0x00001097."</span>/imm32 +<span id="L1600" class="LineNr">1600 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1601" class="LineNr">1601 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L1602" class="LineNr">1602 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1603" class="LineNr">1603 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1604" class="LineNr">1604 </span> <span class="subxS1Comment"># . check-trace-contains("label 'l2' is at address 0x00002099.", msg)</span> +<span id="L1605" class="LineNr">1605 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1606" class="LineNr">1606 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1385'>test-compute-addresses</a>/4"</span>/imm32 +<span id="L1607" class="LineNr">1607 </span> 68/push <span class="Constant">"label 'l2' is at address 0x00002099."</span>/imm32 +<span id="L1608" class="LineNr">1608 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1609" class="LineNr">1609 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L1610" class="LineNr">1610 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1611" class="LineNr">1611 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1612" class="LineNr">1612 </span> <span class="subxS1Comment"># . check-ints-equal(labels->write, 0x30, msg)</span> +<span id="L1613" class="LineNr">1613 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1614" class="LineNr">1614 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1385'>test-compute-addresses</a>/maintains-labels-write-index"</span>/imm32 +<span id="L1615" class="LineNr">1615 </span> 68/push 0x30/imm32/2-entries +<span id="L1616" class="LineNr">1616 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L1617" class="LineNr">1617 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1618" class="LineNr">1618 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L1619" class="LineNr">1619 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1620" class="LineNr">1620 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1621" class="LineNr">1621 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1622" class="LineNr">1622 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1623" class="LineNr">1623 </span> 5d/pop-to-ebp +<span id="L1624" class="LineNr">1624 </span> c3/return +<span id="L1625" class="LineNr">1625 </span> +<span id="L1626" class="LineNr">1626 </span><span class="subxTest">test-compute-addresses-large-segments</span>: +<span id="L1627" class="LineNr">1627 </span> <span class="subxComment"># input:</span> +<span id="L1628" class="LineNr">1628 </span> <span class="subxComment"># segments:</span> +<span id="L1629" class="LineNr">1629 </span> <span class="subxComment"># - 'a': {0x1000, 0, 0x5604}</span> +<span id="L1630" class="LineNr">1630 </span> <span class="subxComment"># - 'b': {0x2018, 0x5604, 1}</span> +<span id="L1631" class="LineNr">1631 </span> <span class="subxComment"># labels:</span> +<span id="L1632" class="LineNr">1632 </span> <span class="subxComment"># - 'l1': {'a', 3, 0}</span> +<span id="L1633" class="LineNr">1633 </span> <span class="subxComment">#</span> +<span id="L1634" class="LineNr">1634 </span> <span class="subxComment"># trace contains in any order (comments in parens):</span> +<span id="L1635" class="LineNr">1635 </span> <span class="subxComment"># segment 'a' starts at address 0x00001074. (0x34 + 0x20 for each segment)</span> +<span id="L1636" class="LineNr">1636 </span> <span class="subxComment"># segment 'b' starts at address 0x00002678. (0x018 discarded; last 3 nibbles from 0x1074 + 0x5604)</span> +<span id="L1637" class="LineNr">1637 </span> <span class="subxComment"># label 'l1' is at address 0x00001077. (0x1074 + segment-offset 3)</span> +<span id="L1638" class="LineNr">1638 </span> <span class="subxComment">#</span> +<span id="L1639" class="LineNr">1639 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1640" class="LineNr">1640 </span> 55/push-ebp +<span id="L1641" class="LineNr">1641 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1642" class="LineNr">1642 </span> <span class="subxComment"># setup</span> +<span id="L1643" class="LineNr">1643 </span> <span class="subxS1Comment"># . var segments/ecx: (stream byte 10*20)</span> +<span id="L1644" class="LineNr">1644 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc8/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1645" class="LineNr">1645 </span> 68/push 0xc8/imm32/size +<span id="L1646" class="LineNr">1646 </span> 68/push 0/imm32/read +<span id="L1647" class="LineNr">1647 </span> 68/push 0/imm32/write +<span id="L1648" class="LineNr">1648 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1649" class="LineNr">1649 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L1650" class="LineNr">1650 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1651" class="LineNr">1651 </span> 68/push 0xc0/imm32/size +<span id="L1652" class="LineNr">1652 </span> 68/push 0/imm32/read +<span id="L1653" class="LineNr">1653 </span> 68/push 0/imm32/write +<span id="L1654" class="LineNr">1654 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1655" class="LineNr">1655 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L1656" class="LineNr">1656 </span> 68/push 0/imm32 +<span id="L1657" class="LineNr">1657 </span> 68/push 0/imm32 +<span id="L1658" class="LineNr">1658 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L1659" class="LineNr">1659 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "a")</span> +<span id="L1660" class="LineNr">1660 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1661" class="LineNr">1661 </span> 53/push-ebx +<span id="L1662" class="LineNr">1662 </span> 68/push <span class="Constant">"a"</span>/imm32 +<span id="L1663" class="LineNr">1663 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1664" class="LineNr">1664 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1665" class="LineNr">1665 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1666" class="LineNr">1666 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1667" class="LineNr">1667 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1668" class="LineNr">1668 </span> <span class="subxS1Comment"># . stream-add5(segments, "a", 0x1000, 0, 0x5604)</span> +<span id="L1669" class="LineNr">1669 </span> 68/push 0x5604/imm32/segment-size +<span id="L1670" class="LineNr">1670 </span> 68/push 0/imm32/file-offset +<span id="L1671" class="LineNr">1671 </span> 68/push 0x1000/imm32/start-address +<span id="L1672" class="LineNr">1672 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1673" class="LineNr">1673 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1674" class="LineNr">1674 </span> 51/push-ecx +<span id="L1675" class="LineNr">1675 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1676" class="LineNr">1676 </span> e8/call <a href='survey_elf.subx.html#L3436'>stream-add5</a>/disp32 +<span id="L1677" class="LineNr">1677 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1678" class="LineNr">1678 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1679" class="LineNr">1679 </span> <span class="subxS1Comment"># . h = copy-array(Heap, "b")</span> +<span id="L1680" class="LineNr">1680 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1681" class="LineNr">1681 </span> 53/push-ebx +<span id="L1682" class="LineNr">1682 </span> 68/push <span class="Constant">"b"</span>/imm32 +<span id="L1683" class="LineNr">1683 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1684" class="LineNr">1684 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1685" class="LineNr">1685 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1686" class="LineNr">1686 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1687" class="LineNr">1687 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1688" class="LineNr">1688 </span> <span class="subxS1Comment"># . stream-add5(segments, "b", 0x2018, 0x5604, 1)</span> +<span id="L1689" class="LineNr">1689 </span> 68/push 1/imm32/segment-size +<span id="L1690" class="LineNr">1690 </span> 68/push 0x5604/imm32/file-offset +<span id="L1691" class="LineNr">1691 </span> 68/push 0x2018/imm32/start-address <span id="L1692" class="LineNr">1692 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> <span id="L1693" class="LineNr">1693 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1694" class="LineNr">1694 </span> <span class="subxS2Comment"># . . push "l1"</span> -<span id="L1695" class="LineNr">1695 </span> 53/push-ebx -<span id="L1696" class="LineNr">1696 </span> 68/push <span class="Constant">"l1"</span>/imm32 -<span id="L1697" class="LineNr">1697 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L1698" class="LineNr">1698 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L1699" class="LineNr">1699 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1700" class="LineNr">1700 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L1701" class="LineNr">1701 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L1702" class="LineNr">1702 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L1703" class="LineNr">1703 </span> 52/push-edx -<span id="L1704" class="LineNr">1704 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1705" class="LineNr">1705 </span> e8/call <a href='survey.subx.html#L3501'>stream-add6</a>/disp32 -<span id="L1706" class="LineNr">1706 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1707" class="LineNr">1707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> -<span id="L1708" class="LineNr">1708 </span> <span class="subxComment"># component under test</span> -<span id="L1709" class="LineNr">1709 </span> <span class="subxS1Comment"># . compute-addresses(segments, labels)</span> -<span id="L1710" class="LineNr">1710 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1711" class="LineNr">1711 </span> 52/push-edx -<span id="L1712" class="LineNr">1712 </span> 51/push-ecx -<span id="L1713" class="LineNr">1713 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1714" class="LineNr">1714 </span> e8/call <a href='survey.subx.html#L1117'>compute-addresses</a>/disp32 -<span id="L1715" class="LineNr">1715 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1716" class="LineNr">1716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1717" class="LineNr">1717 </span> <span class="subxComment"># checks</span> -<span id="L1718" class="Folded">1718 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1744" class="LineNr">1744 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001074.", msg)</span> -<span id="L1745" class="LineNr">1745 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1746" class="LineNr">1746 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1610'>test-compute-addresses-large-segments</a>/0"</span>/imm32 -<span id="L1747" class="LineNr">1747 </span> 68/push <span class="Constant">"segment 'a' starts at address 0x00001074."</span>/imm32 -<span id="L1748" class="LineNr">1748 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1749" class="LineNr">1749 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L1750" class="LineNr">1750 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1751" class="LineNr">1751 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1752" class="LineNr">1752 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'b' starts at address 0x00002678.", msg)</span> -<span id="L1753" class="LineNr">1753 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1754" class="LineNr">1754 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1610'>test-compute-addresses-large-segments</a>/1"</span>/imm32 -<span id="L1755" class="LineNr">1755 </span> 68/push <span class="Constant">"segment 'b' starts at address 0x00002678."</span>/imm32 -<span id="L1756" class="LineNr">1756 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1757" class="LineNr">1757 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L1758" class="LineNr">1758 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1759" class="LineNr">1759 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1760" class="LineNr">1760 </span> <span class="subxS1Comment"># . check-trace-contains("label 'l1' is at address 0x00001077.", msg)</span> +<span id="L1694" class="LineNr">1694 </span> 51/push-ecx +<span id="L1695" class="LineNr">1695 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1696" class="LineNr">1696 </span> e8/call <a href='survey_elf.subx.html#L3436'>stream-add5</a>/disp32 +<span id="L1697" class="LineNr">1697 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1698" class="LineNr">1698 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to esp</span> +<span id="L1699" class="LineNr">1699 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "a", 3, 0)</span> +<span id="L1700" class="LineNr">1700 </span> 68/push 0/imm32/label-address +<span id="L1701" class="LineNr">1701 </span> 68/push 3/imm32/segment-offset +<span id="L1702" class="LineNr">1702 </span> <span class="subxS2Comment"># . . push "a"</span> +<span id="L1703" class="LineNr">1703 </span> 53/push-ebx +<span id="L1704" class="LineNr">1704 </span> 68/push <span class="Constant">"a"</span>/imm32 +<span id="L1705" class="LineNr">1705 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1706" class="LineNr">1706 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1707" class="LineNr">1707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1708" class="LineNr">1708 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1709" class="LineNr">1709 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1710" class="LineNr">1710 </span> <span class="subxS2Comment"># . . push "l1"</span> +<span id="L1711" class="LineNr">1711 </span> 53/push-ebx +<span id="L1712" class="LineNr">1712 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L1713" class="LineNr">1713 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L1714" class="LineNr">1714 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L1715" class="LineNr">1715 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1716" class="LineNr">1716 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L1717" class="LineNr">1717 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L1718" class="LineNr">1718 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L1719" class="LineNr">1719 </span> 52/push-edx +<span id="L1720" class="LineNr">1720 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1721" class="LineNr">1721 </span> e8/call <a href='survey_elf.subx.html#L3522'>stream-add6</a>/disp32 +<span id="L1722" class="LineNr">1722 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1723" class="LineNr">1723 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> +<span id="L1724" class="LineNr">1724 </span> <span class="subxComment"># component under test</span> +<span id="L1725" class="LineNr">1725 </span> <span class="subxS1Comment"># . compute-addresses(segments, labels)</span> +<span id="L1726" class="LineNr">1726 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1727" class="LineNr">1727 </span> 52/push-edx +<span id="L1728" class="LineNr">1728 </span> 51/push-ecx +<span id="L1729" class="LineNr">1729 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1730" class="LineNr">1730 </span> e8/call <a href='survey_elf.subx.html#L1133'>compute-addresses</a>/disp32 +<span id="L1731" class="LineNr">1731 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1732" class="LineNr">1732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1733" class="LineNr">1733 </span> <span class="subxComment"># checks</span> +<span id="L1734" class="Folded">1734 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1760" class="LineNr">1760 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'a' starts at address 0x00001074.", msg)</span> <span id="L1761" class="LineNr">1761 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1762" class="LineNr">1762 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L1610'>test-compute-addresses-large-segments</a>/3"</span>/imm32 -<span id="L1763" class="LineNr">1763 </span> 68/push <span class="Constant">"label 'l1' is at address 0x00001077."</span>/imm32 +<span id="L1762" class="LineNr">1762 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1626'>test-compute-addresses-large-segments</a>/0"</span>/imm32 +<span id="L1763" class="LineNr">1763 </span> 68/push <span class="Constant">"segment 'a' starts at address 0x00001074."</span>/imm32 <span id="L1764" class="LineNr">1764 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1765" class="LineNr">1765 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 +<span id="L1765" class="LineNr">1765 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 <span id="L1766" class="LineNr">1766 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L1767" class="LineNr">1767 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1768" class="LineNr">1768 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1769" class="LineNr">1769 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1770" class="LineNr">1770 </span> 5d/pop-to-ebp -<span id="L1771" class="LineNr">1771 </span> c3/return -<span id="L1772" class="LineNr">1772 </span> -<span id="L1773" class="LineNr">1773 </span><span class="subxFunction">emit-output</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> -<span id="L1774" class="LineNr">1774 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1775" class="LineNr">1775 </span> <span class="subxComment"># emit-headers(out, segments, labels)</span> -<span id="L1776" class="LineNr">1776 </span> <span class="subxComment"># emit-segments(in, out, labels)</span> -<span id="L1777" class="LineNr">1777 </span> <span class="subxComment">#</span> -<span id="L1778" class="LineNr">1778 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1779" class="LineNr">1779 </span> 55/push-ebp -<span id="L1780" class="LineNr">1780 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1781" class="Folded">1781 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-headers\n") --------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1790" class="LineNr">1790 </span> <span class="subxComment"># emit-headers(out, segments, labels)</span> -<span id="L1791" class="LineNr">1791 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1792" class="LineNr">1792 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L1793" class="LineNr">1793 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L1794" class="LineNr">1794 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1795" class="LineNr">1795 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1796" class="LineNr">1796 </span> e8/call <a href='survey.subx.html#L3043'>emit-headers</a>/disp32 -<span id="L1797" class="LineNr">1797 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1798" class="LineNr">1798 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1799" class="Folded">1799 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segments\n") -------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1808" class="LineNr">1808 </span> <span class="subxComment"># emit-segments(in, out, labels)</span> -<span id="L1809" class="LineNr">1809 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1810" class="LineNr">1810 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L1811" class="LineNr">1811 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L1812" class="LineNr">1812 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1813" class="LineNr">1813 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1814" class="LineNr">1814 </span> e8/call <a href='survey.subx.html#L1823'>emit-segments</a>/disp32 -<span id="L1815" class="LineNr">1815 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1816" class="LineNr">1816 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L1817" class="LineNr">1817 </span><span class="Constant">$emit-output:end</span>: -<span id="L1818" class="LineNr">1818 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L1819" class="LineNr">1819 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L1820" class="LineNr">1820 </span> 5d/pop-to-ebp -<span id="L1821" class="LineNr">1821 </span> c3/return -<span id="L1822" class="LineNr">1822 </span> -<span id="L1823" class="LineNr">1823 </span><span class="subxFunction">emit-segments</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), labels: (addr stream {(handle array byte), label-info})</span> -<span id="L1824" class="LineNr">1824 </span> <span class="subxComment"># pseudocode:</span> -<span id="L1825" class="LineNr">1825 </span> <span class="subxComment"># var offset-of-next-instruction = 0</span> -<span id="L1826" class="LineNr">1826 </span> <span class="subxComment"># var line: (stream byte 512)</span> -<span id="L1827" class="LineNr">1827 </span> <span class="subxComment"># line-loop:</span> -<span id="L1828" class="LineNr">1828 </span> <span class="subxComment"># while true</span> -<span id="L1829" class="LineNr">1829 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L1830" class="LineNr">1830 </span> <span class="subxComment"># read-line(in, line)</span> -<span id="L1831" class="LineNr">1831 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> -<span id="L1832" class="LineNr">1832 </span> <span class="subxComment"># offset-of-next-instruction += num-bytes(line)</span> -<span id="L1833" class="LineNr">1833 </span> <span class="subxComment"># while true</span> -<span id="L1834" class="LineNr">1834 </span> <span class="subxComment"># var word-slice = next-word(line)</span> -<span id="L1835" class="LineNr">1835 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L1836" class="LineNr">1836 </span> <span class="subxComment"># break</span> -<span id="L1837" class="LineNr">1837 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L1838" class="LineNr">1838 </span> <span class="subxComment"># break</span> -<span id="L1839" class="LineNr">1839 </span> <span class="subxComment"># if is-label?(word-slice) # no need for label declarations anymore</span> -<span id="L1840" class="LineNr">1840 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> -<span id="L1841" class="LineNr">1841 </span> <span class="subxComment"># if slice-equal?(word-slice, "==") # no need for segment header lines</span> -<span id="L1842" class="LineNr">1842 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> -<span id="L1843" class="LineNr">1843 </span> <span class="subxComment"># if length(word-slice) == 2</span> -<span id="L1844" class="LineNr">1844 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L1845" class="LineNr">1845 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L1846" class="LineNr">1846 </span> <span class="subxComment"># continue</span> -<span id="L1847" class="LineNr">1847 </span> <span class="subxComment"># var datum: (addr slice) = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> -<span id="L1848" class="LineNr">1848 </span> <span class="subxComment"># var info: (addr label-info) = get-slice(labels, datum)</span> -<span id="L1849" class="LineNr">1849 </span> <span class="subxComment"># var curr-segment-name: (addr array byte) = lookup(info->segment-name)</span> -<span id="L1850" class="LineNr">1850 </span> <span class="subxComment"># if !string-equal?(info->segment-name, "code")</span> -<span id="L1851" class="LineNr">1851 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp8")</span> -<span id="L1852" class="LineNr">1852 </span> <span class="subxComment"># abort</span> -<span id="L1853" class="LineNr">1853 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> -<span id="L1854" class="LineNr">1854 </span> <span class="subxComment"># abort</span> -<span id="L1855" class="LineNr">1855 </span> <span class="subxComment"># emit(out, info->address, 4) # global variables always translate init.linux to absolute addresses</span> -<span id="L1856" class="LineNr">1856 </span> <span class="subxComment"># # code segment cases</span> -<span id="L1857" class="LineNr">1857 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm8")</span> -<span id="L1858" class="LineNr">1858 </span> <span class="subxComment"># abort # label should never go to imm8</span> -<span id="L1859" class="LineNr">1859 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm32")</span> -<span id="L1860" class="LineNr">1860 </span> <span class="subxComment"># emit(out, info->address, 4)</span> -<span id="L1861" class="LineNr">1861 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp8")</span> -<span id="L1862" class="LineNr">1862 </span> <span class="subxComment"># value = info->offset - offset-of-next-instruction</span> -<span id="L1863" class="LineNr">1863 </span> <span class="subxComment"># emit(out, value, 1)</span> -<span id="L1864" class="LineNr">1864 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp32")</span> -<span id="L1865" class="LineNr">1865 </span> <span class="subxComment"># value = info->offset - offset-of-next-instruction</span> -<span id="L1866" class="LineNr">1866 </span> <span class="subxComment"># emit(out, value, 4)</span> -<span id="L1867" class="LineNr">1867 </span> <span class="subxComment"># else</span> -<span id="L1868" class="LineNr">1868 </span> <span class="subxComment"># abort</span> -<span id="L1869" class="LineNr">1869 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L1870" class="LineNr">1870 </span> <span class="subxComment">#</span> -<span id="L1871" class="LineNr">1871 </span> <span class="subxComment"># registers:</span> -<span id="L1872" class="LineNr">1872 </span> <span class="subxComment"># line: ecx</span> -<span id="L1873" class="LineNr">1873 </span> <span class="subxComment"># word-slice: edx</span> -<span id="L1874" class="LineNr">1874 </span> <span class="subxComment"># offset-of-next-instruction: ebx</span> -<span id="L1875" class="LineNr">1875 </span> <span class="subxComment"># datum: edi</span> -<span id="L1876" class="LineNr">1876 </span> <span class="subxComment"># info: esi (inner loop only)</span> -<span id="L1877" class="LineNr">1877 </span> <span class="subxComment"># temporaries: eax, esi (outer loop)</span> -<span id="L1878" class="LineNr">1878 </span> <span class="subxComment">#</span> -<span id="L1879" class="LineNr">1879 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L1880" class="LineNr">1880 </span> 55/push-ebp -<span id="L1881" class="LineNr">1881 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L1882" class="LineNr">1882 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L1883" class="LineNr">1883 </span> 50/push-eax -<span id="L1884" class="LineNr">1884 </span> 51/push-ecx -<span id="L1885" class="LineNr">1885 </span> 52/push-edx -<span id="L1886" class="LineNr">1886 </span> 53/push-ebx -<span id="L1887" class="LineNr">1887 </span> 56/push-esi -<span id="L1888" class="LineNr">1888 </span> 57/push-edi -<span id="L1889" class="LineNr">1889 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> -<span id="L1890" class="LineNr">1890 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L1891" class="LineNr">1891 </span> 68/push 0x200/imm32/size -<span id="L1892" class="LineNr">1892 </span> 68/push 0/imm32/read -<span id="L1893" class="LineNr">1893 </span> 68/push 0/imm32/write -<span id="L1894" class="LineNr">1894 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L1895" class="LineNr">1895 </span> <span class="subxComment"># var word-slice/edx: slice</span> -<span id="L1896" class="LineNr">1896 </span> 68/push 0/imm32/end -<span id="L1897" class="LineNr">1897 </span> 68/push 0/imm32/start -<span id="L1898" class="LineNr">1898 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L1899" class="LineNr">1899 </span> <span class="subxComment"># var datum/edi: slice</span> -<span id="L1900" class="LineNr">1900 </span> 68/push 0/imm32/end -<span id="L1901" class="LineNr">1901 </span> 68/push 0/imm32/start -<span id="L1902" class="LineNr">1902 </span> 89/copy 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edi</span> -<span id="L1903" class="LineNr">1903 </span> <span class="subxComment"># offset-of-next-instruction/ebx = 0</span> -<span id="L1904" class="LineNr">1904 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L1905" class="LineNr">1905 </span><span class="Constant">$emit-segments:line-loop</span>: -<span id="L1906" class="LineNr">1906 </span> <span class="subxComment"># clear-stream(line)</span> -<span id="L1907" class="LineNr">1907 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1908" class="LineNr">1908 </span> 51/push-ecx -<span id="L1909" class="LineNr">1909 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1910" class="LineNr">1910 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L1911" class="LineNr">1911 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1912" class="LineNr">1912 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1913" class="LineNr">1913 </span> <span class="subxComment"># read-line(in, line)</span> -<span id="L1914" class="LineNr">1914 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1915" class="LineNr">1915 </span> 51/push-ecx -<span id="L1916" class="LineNr">1916 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L1917" class="LineNr">1917 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1918" class="LineNr">1918 </span> e8/call <a href='../122read-line.subx.html#L218'>read-line</a>/disp32 -<span id="L1919" class="LineNr">1919 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1920" class="LineNr">1920 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1921" class="Folded">1921 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L1954" class="LineNr">1954 </span><span class="Constant">$emit-segments:check-for-end-of-input</span>: -<span id="L1955" class="LineNr">1955 </span> <span class="subxComment"># if (line->write == 0) break</span> -<span id="L1956" class="LineNr">1956 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> -<span id="L1957" class="LineNr">1957 </span> 0f 84/jump-if-= $emit-segments:end/disp32 -<span id="L1958" class="LineNr">1958 </span> <span class="subxComment"># offset-of-next-instruction += num-bytes(line)</span> -<span id="L1959" class="LineNr">1959 </span> <span class="subxS1Comment"># . eax = num-bytes(line)</span> -<span id="L1960" class="LineNr">1960 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1961" class="LineNr">1961 </span> 51/push-ecx -<span id="L1962" class="LineNr">1962 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1963" class="LineNr">1963 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L1964" class="LineNr">1964 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1965" class="LineNr">1965 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L1966" class="LineNr">1966 </span> <span class="subxS1Comment"># . ebx += eax</span> -<span id="L1967" class="LineNr">1967 </span> 01/add 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ebx</span> -<span id="L1968" class="LineNr">1968 </span><span class="Constant">$emit-segments:word-loop</span>: -<span id="L1969" class="LineNr">1969 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L1970" class="LineNr">1970 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L1971" class="LineNr">1971 </span> 52/push-edx -<span id="L1972" class="LineNr">1972 </span> 51/push-ecx -<span id="L1973" class="LineNr">1973 </span> <span class="subxS2Comment"># . . call</span> -<span id="L1974" class="LineNr">1974 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L1975" class="LineNr">1975 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L1976" class="LineNr">1976 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L1977" class="Folded">1977 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2010" class="LineNr">2010 </span><span class="Constant">$emit-segments:check-for-end-of-line</span>: -<span id="L2011" class="LineNr">2011 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L2012" class="LineNr">2012 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L2013" class="LineNr">2013 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2014" class="LineNr">2014 </span> 52/push-edx -<span id="L2015" class="LineNr">2015 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2016" class="LineNr">2016 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L2017" class="LineNr">2017 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2018" class="LineNr">2018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2019" class="LineNr">2019 </span> <span class="subxS1Comment"># . if (eax != 0) break</span> -<span id="L2020" class="LineNr">2020 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2021" class="LineNr">2021 </span> 0f 85/jump-if-!= $emit-segments:next-line/disp32 -<span id="L2022" class="LineNr">2022 </span><span class="Constant">$emit-segments:check-for-comment</span>: -<span id="L2023" class="LineNr">2023 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L2024" class="LineNr">2024 </span> <span class="subxS1Comment"># . start/esi = word-slice->start</span> -<span id="L2025" class="LineNr">2025 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to esi</span> -<span id="L2026" class="LineNr">2026 </span> <span class="subxS1Comment"># . c/eax = *start</span> -<span id="L2027" class="LineNr">2027 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L2028" class="LineNr">2028 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> -<span id="L2029" class="LineNr">2029 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> -<span id="L2030" class="LineNr">2030 </span> 3d/compare-eax-and 0x23/imm32/hash -<span id="L2031" class="LineNr">2031 </span> 0f 84/jump-if-= $emit-segments:next-line/disp32 -<span id="L2032" class="LineNr">2032 </span><span class="Constant">$emit-segments:check-for-label</span>: -<span id="L2033" class="LineNr">2033 </span> <span class="subxComment"># if is-label?(word-slice) break</span> -<span id="L2034" class="LineNr">2034 </span> <span class="subxS1Comment"># . eax = is-label?(word-slice)</span> -<span id="L2035" class="LineNr">2035 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2036" class="LineNr">2036 </span> 52/push-edx -<span id="L2037" class="LineNr">2037 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2038" class="LineNr">2038 </span> e8/call <a href='../128subx-words.subx.html#L535'>is-label?</a>/disp32 -<span id="L2039" class="LineNr">2039 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2040" class="LineNr">2040 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2041" class="LineNr">2041 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L2042" class="LineNr">2042 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2043" class="LineNr">2043 </span> 0f 85/jump-if-!= $emit-segments:line-loop/disp32 -<span id="L2044" class="LineNr">2044 </span><span class="Constant">$emit-segments:check-for-segment-header</span>: -<span id="L2045" class="LineNr">2045 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> -<span id="L2046" class="LineNr">2046 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> -<span id="L2047" class="LineNr">2047 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2048" class="LineNr">2048 </span> 68/push <span class="Constant">"=="</span>/imm32 -<span id="L2049" class="LineNr">2049 </span> 52/push-edx -<span id="L2050" class="LineNr">2050 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2051" class="LineNr">2051 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L2052" class="LineNr">2052 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2053" class="LineNr">2053 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2054" class="LineNr">2054 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L2055" class="LineNr">2055 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2056" class="LineNr">2056 </span> 0f 85/jump-if-!= $emit-segments:line-loop/disp32 -<span id="L2057" class="LineNr">2057 </span><span class="Constant">$emit-segments:2-character</span>: -<span id="L2058" class="LineNr">2058 </span> <span class="subxComment"># if (size(word-slice) != 2) goto next check</span> -<span id="L2059" class="LineNr">2059 </span> <span class="subxS1Comment"># . eax = size(word-slice)</span> -<span id="L2060" class="LineNr">2060 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to eax</span> -<span id="L2061" class="LineNr">2061 </span> 2b/subtract 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edx from eax</span> -<span id="L2062" class="LineNr">2062 </span> <span class="subxS1Comment"># . if (eax != 2) goto next check</span> -<span id="L2063" class="LineNr">2063 </span> 3d/compare-eax-and 2/imm32 -<span id="L2064" class="LineNr">2064 </span> 75/jump-if-!= $emit-segments:check-metadata/disp8 -<span id="L2065" class="LineNr">2065 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> -<span id="L2066" class="LineNr">2066 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2067" class="LineNr">2067 </span> 52/push-edx -<span id="L2068" class="LineNr">2068 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1768" class="LineNr">1768 </span> <span class="subxS1Comment"># . check-trace-contains("segment 'b' starts at address 0x00002678.", msg)</span> +<span id="L1769" class="LineNr">1769 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1770" class="LineNr">1770 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1626'>test-compute-addresses-large-segments</a>/1"</span>/imm32 +<span id="L1771" class="LineNr">1771 </span> 68/push <span class="Constant">"segment 'b' starts at address 0x00002678."</span>/imm32 +<span id="L1772" class="LineNr">1772 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1773" class="LineNr">1773 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L1774" class="LineNr">1774 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1775" class="LineNr">1775 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1776" class="LineNr">1776 </span> <span class="subxS1Comment"># . check-trace-contains("label 'l1' is at address 0x00001077.", msg)</span> +<span id="L1777" class="LineNr">1777 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1778" class="LineNr">1778 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L1626'>test-compute-addresses-large-segments</a>/3"</span>/imm32 +<span id="L1779" class="LineNr">1779 </span> 68/push <span class="Constant">"label 'l1' is at address 0x00001077."</span>/imm32 +<span id="L1780" class="LineNr">1780 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1781" class="LineNr">1781 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L1782" class="LineNr">1782 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1783" class="LineNr">1783 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1784" class="LineNr">1784 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1785" class="LineNr">1785 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1786" class="LineNr">1786 </span> 5d/pop-to-ebp +<span id="L1787" class="LineNr">1787 </span> c3/return +<span id="L1788" class="LineNr">1788 </span> +<span id="L1789" class="LineNr">1789 </span><span class="subxFunction">emit-output</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> +<span id="L1790" class="LineNr">1790 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1791" class="LineNr">1791 </span> <span class="subxComment"># emit-headers(out, segments, labels)</span> +<span id="L1792" class="LineNr">1792 </span> <span class="subxComment"># emit-segments(in, out, labels)</span> +<span id="L1793" class="LineNr">1793 </span> <span class="subxComment">#</span> +<span id="L1794" class="LineNr">1794 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1795" class="LineNr">1795 </span> 55/push-ebp +<span id="L1796" class="LineNr">1796 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1797" class="Folded">1797 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-headers\n") --------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1806" class="LineNr">1806 </span> <span class="subxComment"># emit-headers(out, segments, labels)</span> +<span id="L1807" class="LineNr">1807 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1808" class="LineNr">1808 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L1809" class="LineNr">1809 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L1810" class="LineNr">1810 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1811" class="LineNr">1811 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1812" class="LineNr">1812 </span> e8/call <a href='survey_elf.subx.html#L3142'>emit-headers</a>/disp32 +<span id="L1813" class="LineNr">1813 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1814" class="LineNr">1814 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1815" class="Folded">1815 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segments\n") -------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1824" class="LineNr">1824 </span> <span class="subxComment"># emit-segments(in, out, labels)</span> +<span id="L1825" class="LineNr">1825 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1826" class="LineNr">1826 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L1827" class="LineNr">1827 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L1828" class="LineNr">1828 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1829" class="LineNr">1829 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1830" class="LineNr">1830 </span> e8/call <a href='survey_elf.subx.html#L1848'>emit-segments</a>/disp32 +<span id="L1831" class="LineNr">1831 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1832" class="LineNr">1832 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L1833" class="LineNr">1833 </span><span class="Constant">$emit-output:end</span>: +<span id="L1834" class="LineNr">1834 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L1835" class="LineNr">1835 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L1836" class="LineNr">1836 </span> 5d/pop-to-ebp +<span id="L1837" class="LineNr">1837 </span> c3/return +<span id="L1838" class="LineNr">1838 </span> +<span id="L1839" class="LineNr">1839 </span><span class="subxComment"># global scratch space for emit-segments</span> +<span id="L1840" class="LineNr">1840 </span>== data +<span id="L1841" class="LineNr">1841 </span> +<span id="L1842" class="LineNr">1842 </span><span class="subxFunction">emit-segments:datum</span>: <span class="subxComment"># slice</span> +<span id="L1843" class="LineNr">1843 </span> 0/imm32/start +<span id="L1844" class="LineNr">1844 </span> 0/imm32/end +<span id="L1845" class="LineNr">1845 </span> +<span id="L1846" class="LineNr">1846 </span>== code +<span id="L1847" class="LineNr">1847 </span> +<span id="L1848" class="LineNr">1848 </span><span class="subxFunction">emit-segments</span>: <span class="subxComment"># in: (addr stream byte), out: (addr buffered-file), labels: (addr stream {(handle array byte), label-info})</span> +<span id="L1849" class="LineNr">1849 </span> <span class="subxComment"># pseudocode:</span> +<span id="L1850" class="LineNr">1850 </span> <span class="subxComment"># var offset-of-next-instruction = 0</span> +<span id="L1851" class="LineNr">1851 </span> <span class="subxComment"># var line: (stream byte 512)</span> +<span id="L1852" class="LineNr">1852 </span> <span class="subxComment"># line-loop:</span> +<span id="L1853" class="LineNr">1853 </span> <span class="subxComment"># while true</span> +<span id="L1854" class="LineNr">1854 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L1855" class="LineNr">1855 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L1856" class="LineNr">1856 </span> <span class="subxComment"># if (line->write == 0) break # end of file</span> +<span id="L1857" class="LineNr">1857 </span> <span class="subxComment"># offset-of-next-instruction += num-bytes(line)</span> +<span id="L1858" class="LineNr">1858 </span> <span class="subxComment"># var far-jump-or-call? = far-jump-or-call?(line)</span> +<span id="L1859" class="LineNr">1859 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L1860" class="LineNr">1860 </span> <span class="subxComment"># while true</span> +<span id="L1861" class="LineNr">1861 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L1862" class="LineNr">1862 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L1863" class="LineNr">1863 </span> <span class="subxComment"># break</span> +<span id="L1864" class="LineNr">1864 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L1865" class="LineNr">1865 </span> <span class="subxComment"># break</span> +<span id="L1866" class="LineNr">1866 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L1867" class="LineNr">1867 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L1868" class="LineNr">1868 </span> <span class="subxComment"># if slice-equal?(word-slice, "==") # no need for segment header lines</span> +<span id="L1869" class="LineNr">1869 </span> <span class="subxComment"># goto line-loop # don't insert empty lines</span> +<span id="L1870" class="LineNr">1870 </span> <span class="subxComment"># if length(word-slice) == 2</span> +<span id="L1871" class="LineNr">1871 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L1872" class="LineNr">1872 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L1873" class="LineNr">1873 </span> <span class="subxComment"># continue</span> +<span id="L1874" class="LineNr">1874 </span> <span class="subxComment"># var datum: (addr slice) = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L1875" class="LineNr">1875 </span> <span class="subxComment"># var info: (addr label-info) = get-slice(labels, datum)</span> +<span id="L1876" class="LineNr">1876 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8")</span> +<span id="L1877" class="LineNr">1877 </span> <span class="subxComment"># abort</span> +<span id="L1878" class="LineNr">1878 </span> <span class="subxComment"># else if has-metadata?(word-slice, "imm32")</span> +<span id="L1879" class="LineNr">1879 </span> <span class="subxComment"># emit(out, info->address, 4)</span> +<span id="L1880" class="LineNr">1880 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp8")</span> +<span id="L1881" class="LineNr">1881 </span> <span class="subxComment"># value = info->offset - offset-of-next-instruction</span> +<span id="L1882" class="LineNr">1882 </span> <span class="subxComment"># emit(out, value, 1)</span> +<span id="L1883" class="LineNr">1883 </span> <span class="subxComment"># else if has-metadata?(word-slice, "disp32")</span> +<span id="L1884" class="LineNr">1884 </span> <span class="subxComment"># if far-jump-or-call?</span> +<span id="L1885" class="LineNr">1885 </span> <span class="subxComment"># value = info->offset - offset-of-next-instruction</span> +<span id="L1886" class="LineNr">1886 </span> <span class="subxComment"># else</span> +<span id="L1887" class="LineNr">1887 </span> <span class="subxComment"># value = info->address</span> +<span id="L1888" class="LineNr">1888 </span> <span class="subxComment"># emit(out, value, 4)</span> +<span id="L1889" class="LineNr">1889 </span> <span class="subxComment"># else</span> +<span id="L1890" class="LineNr">1890 </span> <span class="subxComment"># abort</span> +<span id="L1891" class="LineNr">1891 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L1892" class="LineNr">1892 </span> <span class="subxComment">#</span> +<span id="L1893" class="LineNr">1893 </span> <span class="subxComment"># registers:</span> +<span id="L1894" class="LineNr">1894 </span> <span class="subxComment"># line: ecx</span> +<span id="L1895" class="LineNr">1895 </span> <span class="subxComment"># word-slice: edx</span> +<span id="L1896" class="LineNr">1896 </span> <span class="subxComment"># offset-of-next-instruction: ebx</span> +<span id="L1897" class="LineNr">1897 </span> <span class="subxComment"># far-jump-or-call?: edi</span> +<span id="L1898" class="LineNr">1898 </span> <span class="subxComment"># info: esi (inner loop only)</span> +<span id="L1899" class="LineNr">1899 </span> <span class="subxComment"># temporaries: eax, esi (outer loop)</span> +<span id="L1900" class="LineNr">1900 </span> <span class="subxComment">#</span> +<span id="L1901" class="LineNr">1901 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L1902" class="LineNr">1902 </span> 55/push-ebp +<span id="L1903" class="LineNr">1903 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L1904" class="LineNr">1904 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L1905" class="LineNr">1905 </span> 50/push-eax +<span id="L1906" class="LineNr">1906 </span> 51/push-ecx +<span id="L1907" class="LineNr">1907 </span> 52/push-edx +<span id="L1908" class="LineNr">1908 </span> 53/push-ebx +<span id="L1909" class="LineNr">1909 </span> 56/push-esi +<span id="L1910" class="LineNr">1910 </span> 57/push-edi +<span id="L1911" class="LineNr">1911 </span> <span class="subxComment"># var line/ecx: (stream byte 512)</span> +<span id="L1912" class="LineNr">1912 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x200/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L1913" class="LineNr">1913 </span> 68/push 0x200/imm32/size +<span id="L1914" class="LineNr">1914 </span> 68/push 0/imm32/read +<span id="L1915" class="LineNr">1915 </span> 68/push 0/imm32/write +<span id="L1916" class="LineNr">1916 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L1917" class="LineNr">1917 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L1918" class="LineNr">1918 </span> 68/push 0/imm32/end +<span id="L1919" class="LineNr">1919 </span> 68/push 0/imm32/start +<span id="L1920" class="LineNr">1920 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L1921" class="LineNr">1921 </span> <span class="subxComment"># offset-of-next-instruction/ebx = 0</span> +<span id="L1922" class="LineNr">1922 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L1923" class="LineNr">1923 </span><span class="Constant">$emit-segments:line-loop</span>: +<span id="L1924" class="LineNr">1924 </span> <span class="subxComment"># clear-stream(line)</span> +<span id="L1925" class="LineNr">1925 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1926" class="LineNr">1926 </span> 51/push-ecx +<span id="L1927" class="LineNr">1927 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1928" class="LineNr">1928 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L1929" class="LineNr">1929 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1930" class="LineNr">1930 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1931" class="LineNr">1931 </span> <span class="subxComment"># read-line(in, line)</span> +<span id="L1932" class="LineNr">1932 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1933" class="LineNr">1933 </span> 51/push-ecx +<span id="L1934" class="LineNr">1934 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L1935" class="LineNr">1935 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1936" class="LineNr">1936 </span> e8/call <a href='122read-line.subx.html#L218'>read-line</a>/disp32 +<span id="L1937" class="LineNr">1937 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1938" class="LineNr">1938 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L1939" class="Folded">1939 </span><span class="Folded">+-- 33 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L1972" class="LineNr">1972 </span><span class="Constant">$emit-segments:check-for-end-of-input</span>: +<span id="L1973" class="LineNr">1973 </span> <span class="subxComment"># if (line->write == 0) break</span> +<span id="L1974" class="LineNr">1974 </span> 81 7/subop/compare 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># compare *ecx</span> +<span id="L1975" class="LineNr">1975 </span> 0f 84/jump-if-= $emit-segments:end/disp32 +<span id="L1976" class="LineNr">1976 </span> <span class="subxComment"># offset-of-next-instruction += num-bytes(line)</span> +<span id="L1977" class="LineNr">1977 </span> <span class="subxS1Comment"># . eax = num-bytes(line)</span> +<span id="L1978" class="LineNr">1978 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1979" class="LineNr">1979 </span> 51/push-ecx +<span id="L1980" class="LineNr">1980 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1981" class="LineNr">1981 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L1982" class="LineNr">1982 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1983" class="LineNr">1983 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1984" class="LineNr">1984 </span> <span class="subxS1Comment"># . ebx += eax</span> +<span id="L1985" class="LineNr">1985 </span> 01/add 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ebx</span> +<span id="L1986" class="LineNr">1986 </span> <span class="subxComment"># var far-jump-or-call?/edi: boolean = far-jump-or-call?(line)</span> +<span id="L1987" class="LineNr">1987 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1988" class="LineNr">1988 </span> 51/push-ecx +<span id="L1989" class="LineNr">1989 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1990" class="LineNr">1990 </span> e8/call <a href='survey_elf.subx.html#L3010'>far-jump-or-call?</a>/disp32 +<span id="L1991" class="LineNr">1991 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1992" class="LineNr">1992 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L1993" class="LineNr">1993 </span> <span class="subxComment"># rewind-stream(line)</span> +<span id="L1994" class="LineNr">1994 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L1995" class="LineNr">1995 </span> 51/push-ecx +<span id="L1996" class="LineNr">1996 </span> <span class="subxS2Comment"># . . call</span> +<span id="L1997" class="LineNr">1997 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L1998" class="LineNr">1998 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L1999" class="LineNr">1999 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2000" class="LineNr">2000 </span><span class="Constant">$emit-segments:word-loop</span>: +<span id="L2001" class="LineNr">2001 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L2002" class="LineNr">2002 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2003" class="LineNr">2003 </span> 52/push-edx +<span id="L2004" class="LineNr">2004 </span> 51/push-ecx +<span id="L2005" class="LineNr">2005 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2006" class="LineNr">2006 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L2007" class="LineNr">2007 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2008" class="LineNr">2008 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2009" class="Folded">2009 </span><span class="Folded">+-- 33 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2042" class="LineNr">2042 </span><span class="Constant">$emit-segments:check-for-end-of-line</span>: +<span id="L2043" class="LineNr">2043 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L2044" class="LineNr">2044 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L2045" class="LineNr">2045 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2046" class="LineNr">2046 </span> 52/push-edx +<span id="L2047" class="LineNr">2047 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2048" class="LineNr">2048 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L2049" class="LineNr">2049 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2050" class="LineNr">2050 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2051" class="LineNr">2051 </span> <span class="subxS1Comment"># . if (eax != 0) break</span> +<span id="L2052" class="LineNr">2052 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2053" class="LineNr">2053 </span> 0f 85/jump-if-!= $emit-segments:next-line/disp32 +<span id="L2054" class="LineNr">2054 </span><span class="Constant">$emit-segments:check-for-comment</span>: +<span id="L2055" class="LineNr">2055 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L2056" class="LineNr">2056 </span> <span class="subxS1Comment"># . start/esi = word-slice->start</span> +<span id="L2057" class="LineNr">2057 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to esi</span> +<span id="L2058" class="LineNr">2058 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L2059" class="LineNr">2059 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L2060" class="LineNr">2060 </span> 8a/copy-byte 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *esi to AL</span> +<span id="L2061" class="LineNr">2061 </span> <span class="subxS1Comment"># . if (eax == '#') break</span> +<span id="L2062" class="LineNr">2062 </span> 3d/compare-eax-and 0x23/imm32/hash +<span id="L2063" class="LineNr">2063 </span> 0f 84/jump-if-= $emit-segments:next-line/disp32 +<span id="L2064" class="LineNr">2064 </span><span class="Constant">$emit-segments:check-for-label</span>: +<span id="L2065" class="LineNr">2065 </span> <span class="subxComment"># if label?(word-slice) break</span> +<span id="L2066" class="LineNr">2066 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> +<span id="L2067" class="LineNr">2067 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2068" class="LineNr">2068 </span> 52/push-edx <span id="L2069" class="LineNr">2069 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2070" class="LineNr">2070 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L2070" class="LineNr">2070 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 <span id="L2071" class="LineNr">2071 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2072" class="LineNr">2072 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2073" class="LineNr">2073 </span> <span class="subxComment"># write-buffered(out, " ")</span> -<span id="L2074" class="LineNr">2074 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2075" class="LineNr">2075 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L93'>Space</a></span>/imm32 -<span id="L2076" class="LineNr">2076 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2077" class="LineNr">2077 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2078" class="LineNr">2078 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2079" class="LineNr">2079 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2080" class="LineNr">2080 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2081" class="LineNr">2081 </span> <span class="subxComment"># continue</span> -<span id="L2082" class="LineNr">2082 </span> e9/jump $emit-segments:word-loop/disp32 -<span id="L2083" class="LineNr">2083 </span><span class="Constant">$emit-segments:check-metadata</span>: -<span id="L2084" class="LineNr">2084 </span> <span class="subxH1Comment"># - if we get here, 'word-slice' must be a label to be looked up</span> -<span id="L2085" class="LineNr">2085 </span> <span class="subxComment"># datum/edi = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> -<span id="L2086" class="LineNr">2086 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2087" class="LineNr">2087 </span> 57/push-edi -<span id="L2088" class="LineNr">2088 </span> 68/push 0x2f/imm32/slash -<span id="L2089" class="LineNr">2089 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> -<span id="L2090" class="LineNr">2090 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> -<span id="L2091" class="LineNr">2091 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2092" class="LineNr">2092 </span> e8/call <a href='../124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 -<span id="L2093" class="LineNr">2093 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2094" class="LineNr">2094 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2095" class="Folded">2095 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2128" class="LineNr">2128 </span> <span class="subxComment"># info/esi = get-slice(labels, datum, row-size=24, "label table")</span> -<span id="L2129" class="LineNr">2129 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> -<span id="L2130" class="LineNr">2130 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2131" class="LineNr">2131 </span> 68/push <span class="Constant">"label table"</span>/imm32 -<span id="L2132" class="LineNr">2132 </span> 68/push 0x18/imm32/row-size -<span id="L2133" class="LineNr">2133 </span> 57/push-edi -<span id="L2134" class="LineNr">2134 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L2135" class="LineNr">2135 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2136" class="LineNr">2136 </span> e8/call <a href='../131table.subx.html#L210'>get-slice</a>/disp32 -<span id="L2137" class="LineNr">2137 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2138" class="LineNr">2138 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L2139" class="LineNr">2139 </span> <span class="subxS1Comment"># . esi = eax</span> -<span id="L2140" class="LineNr">2140 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> -<span id="L2141" class="LineNr">2141 </span><span class="Constant">$emit-segments:check-global-variable</span>: -<span id="L2142" class="LineNr">2142 </span> <span class="subxComment"># if string-equal?(info->segment-name, "code") goto code label checks</span> -<span id="L2143" class="LineNr">2143 </span> <span class="subxS1Comment"># . eax = lookup(info->segment-name)</span> -<span id="L2144" class="LineNr">2144 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2145" class="LineNr">2145 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L2146" class="LineNr">2146 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L2147" class="LineNr">2147 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2148" class="LineNr">2148 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L2149" class="LineNr">2149 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2150" class="LineNr">2150 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2151" class="LineNr">2151 </span> <span class="subxS1Comment"># . eax = string-equal?(eax, "code")</span> -<span id="L2152" class="LineNr">2152 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2153" class="LineNr">2153 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L2154" class="LineNr">2154 </span> 50/push-eax -<span id="L2155" class="LineNr">2155 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2156" class="LineNr">2156 </span> e8/call <a href='../105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L2157" class="LineNr">2157 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2158" class="LineNr">2158 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2159" class="LineNr">2159 </span> <span class="subxS1Comment"># . if (eax != false) goto code label checks</span> -<span id="L2160" class="LineNr">2160 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2161" class="LineNr">2161 </span> 0f 85/jump-if-!= $emit-segments:check-code-label-for-imm8/disp32 -<span id="L2162" class="LineNr">2162 </span><span class="Constant">$emit-segments:check-global-variable-for-disp8</span>: -<span id="L2163" class="LineNr">2163 </span> <span class="subxComment"># if has-metadata?(word-slice, "disp8") abort</span> -<span id="L2164" class="LineNr">2164 </span> <span class="subxS1Comment"># . eax = has-metadata?(word-slice, "disp8")</span> -<span id="L2165" class="LineNr">2165 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2166" class="LineNr">2166 </span> 68/push <span class="Constant">"disp8"</span>/imm32 -<span id="L2167" class="LineNr">2167 </span> 52/push-edx -<span id="L2168" class="LineNr">2168 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2169" class="LineNr">2169 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2170" class="LineNr">2170 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2171" class="LineNr">2171 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2172" class="LineNr">2172 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> -<span id="L2173" class="LineNr">2173 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2174" class="LineNr">2174 </span> 0f 85/jump-if-!= $emit-segments:global-variable-abort/disp32 -<span id="L2175" class="LineNr">2175 </span><span class="Constant">$emit-segments:check-global-variable-for-imm8</span>: -<span id="L2176" class="LineNr">2176 </span> <span class="subxComment"># if has-metadata?(word-slice, "imm8") abort</span> -<span id="L2177" class="LineNr">2177 </span> <span class="subxS1Comment"># . eax = has-metadata?(word-slice, "imm8")</span> -<span id="L2178" class="LineNr">2178 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2179" class="LineNr">2179 </span> 68/push <span class="Constant">"imm8"</span>/imm32 -<span id="L2180" class="LineNr">2180 </span> 52/push-edx -<span id="L2181" class="LineNr">2181 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2182" class="LineNr">2182 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2183" class="LineNr">2183 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2184" class="LineNr">2184 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2185" class="LineNr">2185 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> -<span id="L2186" class="LineNr">2186 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2187" class="LineNr">2187 </span> 0f 85/jump-if-!= $emit-segments:global-variable-abort/disp32 -<span id="L2188" class="LineNr">2188 </span><span class="Constant">$emit-segments:emit-global-variable</span>: -<span id="L2189" class="LineNr">2189 </span> <span class="subxComment"># emit-hex(out, info->address, 4)</span> -<span id="L2190" class="LineNr">2190 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2191" class="LineNr">2191 </span> 68/push 4/imm32 -<span id="L2192" class="LineNr">2192 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+12)</span> -<span id="L2193" class="LineNr">2193 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2194" class="LineNr">2194 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2195" class="LineNr">2195 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L2196" class="LineNr">2196 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2197" class="LineNr">2197 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2198" class="LineNr">2198 </span> <span class="subxComment"># continue</span> -<span id="L2199" class="LineNr">2199 </span> e9/jump $emit-segments:word-loop/disp32 -<span id="L2200" class="LineNr">2200 </span><span class="Constant">$emit-segments:check-code-label-for-imm8</span>: -<span id="L2201" class="LineNr">2201 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm8")) abort</span> -<span id="L2202" class="LineNr">2202 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm8")</span> -<span id="L2203" class="LineNr">2203 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2204" class="LineNr">2204 </span> 68/push <span class="Constant">"imm8"</span>/imm32 -<span id="L2205" class="LineNr">2205 </span> 52/push-edx -<span id="L2206" class="LineNr">2206 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2207" class="LineNr">2207 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2208" class="LineNr">2208 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2209" class="LineNr">2209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2210" class="LineNr">2210 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> -<span id="L2211" class="LineNr">2211 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2212" class="LineNr">2212 </span> 0f 85/jump-if-!= $emit-segments:imm8-abort/disp32 -<span id="L2213" class="LineNr">2213 </span><span class="Constant">$emit-segments:check-code-label-for-imm32</span>: -<span id="L2214" class="LineNr">2214 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm32")) goto next check</span> -<span id="L2215" class="LineNr">2215 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm32")</span> -<span id="L2216" class="LineNr">2216 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2217" class="LineNr">2217 </span> 68/push <span class="Constant">"imm32"</span>/imm32 -<span id="L2218" class="LineNr">2218 </span> 52/push-edx -<span id="L2219" class="LineNr">2219 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2220" class="LineNr">2220 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2221" class="LineNr">2221 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2222" class="LineNr">2222 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2223" class="LineNr">2223 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L2224" class="LineNr">2224 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2225" class="LineNr">2225 </span> 74/jump-if-= $emit-segments:check-code-label-for-disp8/disp8 -<span id="L2226" class="Folded">2226 </span><span class="Folded">+-- 33 lines: #? # dump info->address -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2259" class="LineNr">2259 </span><span class="Constant">$emit-segments:emit-code-label-imm32</span>: -<span id="L2260" class="LineNr">2260 </span> <span class="subxComment"># emit-hex(out, info->address, 4)</span> -<span id="L2261" class="LineNr">2261 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2262" class="LineNr">2262 </span> 68/push 4/imm32 -<span id="L2263" class="LineNr">2263 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+12)</span> +<span id="L2072" class="LineNr">2072 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2073" class="LineNr">2073 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L2074" class="LineNr">2074 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2075" class="LineNr">2075 </span> 0f 85/jump-if-!= $emit-segments:line-loop/disp32 +<span id="L2076" class="LineNr">2076 </span><span class="Constant">$emit-segments:check-for-segment-header</span>: +<span id="L2077" class="LineNr">2077 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> +<span id="L2078" class="LineNr">2078 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L2079" class="LineNr">2079 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2080" class="LineNr">2080 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L2081" class="LineNr">2081 </span> 52/push-edx +<span id="L2082" class="LineNr">2082 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2083" class="LineNr">2083 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L2084" class="LineNr">2084 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2085" class="LineNr">2085 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2086" class="LineNr">2086 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L2087" class="LineNr">2087 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2088" class="LineNr">2088 </span> 0f 85/jump-if-!= $emit-segments:line-loop/disp32 +<span id="L2089" class="LineNr">2089 </span><span class="Constant">$emit-segments:2-character</span>: +<span id="L2090" class="LineNr">2090 </span> <span class="subxComment"># if (size(word-slice) != 2) goto next check</span> +<span id="L2091" class="LineNr">2091 </span> <span class="subxS1Comment"># . eax = size(word-slice)</span> +<span id="L2092" class="LineNr">2092 </span> 8b/copy 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(edx+4) to eax</span> +<span id="L2093" class="LineNr">2093 </span> 2b/subtract 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract *edx from eax</span> +<span id="L2094" class="LineNr">2094 </span> <span class="subxS1Comment"># . if (eax != 2) goto next check</span> +<span id="L2095" class="LineNr">2095 </span> 3d/compare-eax-and 2/imm32 +<span id="L2096" class="LineNr">2096 </span> 75/jump-if-!= $emit-segments:check-metadata/disp8 +<span id="L2097" class="LineNr">2097 </span> <span class="subxComment"># write-slice-buffered(out, word-slice)</span> +<span id="L2098" class="LineNr">2098 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2099" class="LineNr">2099 </span> 52/push-edx +<span id="L2100" class="LineNr">2100 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2101" class="LineNr">2101 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2102" class="LineNr">2102 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L2103" class="LineNr">2103 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2104" class="LineNr">2104 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2105" class="LineNr">2105 </span> <span class="subxComment"># write-buffered(out, " ")</span> +<span id="L2106" class="LineNr">2106 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2107" class="LineNr">2107 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L93'>Space</a></span>/imm32 +<span id="L2108" class="LineNr">2108 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2109" class="LineNr">2109 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2110" class="LineNr">2110 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2111" class="LineNr">2111 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2112" class="LineNr">2112 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2113" class="LineNr">2113 </span> <span class="subxComment"># continue</span> +<span id="L2114" class="LineNr">2114 </span> e9/jump $emit-segments:word-loop/disp32 +<span id="L2115" class="LineNr">2115 </span><span class="Constant">$emit-segments:check-metadata</span>: +<span id="L2116" class="LineNr">2116 </span> <span class="subxH1Comment"># - if we get here, 'word-slice' must be a label to be looked up</span> +<span id="L2117" class="LineNr">2117 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L2118" class="LineNr">2118 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2119" class="LineNr">2119 </span> 68/push <a href='survey_elf.subx.html#L1848'>emit-segments</a>:datum/imm32 +<span id="L2120" class="LineNr">2120 </span> 68/push 0x2f/imm32/slash +<span id="L2121" class="LineNr">2121 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L2122" class="LineNr">2122 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L2123" class="LineNr">2123 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2124" class="LineNr">2124 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L2125" class="LineNr">2125 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2126" class="LineNr">2126 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2127" class="Folded">2127 </span><span class="Folded">+-- 33 lines: #? # dump datum -------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2160" class="LineNr">2160 </span> <span class="subxComment"># info/esi = get-slice(labels, datum, row-size=24, "label table")</span> +<span id="L2161" class="LineNr">2161 </span> <span class="subxS1Comment"># . eax = get-slice(labels, datum, row-size=24, "label table")</span> +<span id="L2162" class="LineNr">2162 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2163" class="LineNr">2163 </span> 68/push <span class="Constant">"label table"</span>/imm32 +<span id="L2164" class="LineNr">2164 </span> 68/push 0x18/imm32/row-size +<span id="L2165" class="LineNr">2165 </span> 68/push <a href='survey_elf.subx.html#L1848'>emit-segments</a>:datum/imm32 +<span id="L2166" class="LineNr">2166 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L2167" class="LineNr">2167 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2168" class="LineNr">2168 </span> e8/call <a href='131table.subx.html#L210'>get-slice</a>/disp32 +<span id="L2169" class="LineNr">2169 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2170" class="LineNr">2170 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L2171" class="LineNr">2171 </span> <span class="subxS1Comment"># . esi = eax</span> +<span id="L2172" class="LineNr">2172 </span> 89/copy 3/mod/direct 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to esi</span> +<span id="L2173" class="LineNr">2173 </span><span class="Constant">$emit-segments:check-imm8</span>: +<span id="L2174" class="LineNr">2174 </span> <span class="subxComment"># if (has-metadata?(word-slice, "imm8")) abort</span> +<span id="L2175" class="LineNr">2175 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm8")</span> +<span id="L2176" class="LineNr">2176 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2177" class="LineNr">2177 </span> 68/push <span class="Constant">"imm8"</span>/imm32 +<span id="L2178" class="LineNr">2178 </span> 52/push-edx +<span id="L2179" class="LineNr">2179 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2180" class="LineNr">2180 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2181" class="LineNr">2181 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2182" class="LineNr">2182 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2183" class="LineNr">2183 </span> <span class="subxS1Comment"># . if (eax != false) abort</span> +<span id="L2184" class="LineNr">2184 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2185" class="LineNr">2185 </span> 0f 85/jump-if-!= $emit-segments:imm8-abort/disp32 +<span id="L2186" class="LineNr">2186 </span><span class="Constant">$emit-segments:check-imm32</span>: +<span id="L2187" class="LineNr">2187 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "imm32")) goto next check</span> +<span id="L2188" class="LineNr">2188 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "imm32")</span> +<span id="L2189" class="LineNr">2189 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2190" class="LineNr">2190 </span> 68/push <span class="Constant">"imm32"</span>/imm32 +<span id="L2191" class="LineNr">2191 </span> 52/push-edx +<span id="L2192" class="LineNr">2192 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2193" class="LineNr">2193 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2194" class="LineNr">2194 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2195" class="LineNr">2195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2196" class="LineNr">2196 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2197" class="LineNr">2197 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2198" class="LineNr">2198 </span> 74/jump-if-= $emit-segments:check-disp8/disp8 +<span id="L2199" class="Folded">2199 </span><span class="Folded">+-- 33 lines: #? # dump info->address -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2232" class="LineNr">2232 </span><span class="Constant">$emit-segments:emit-imm32</span>: +<span id="L2233" class="LineNr">2233 </span> <span class="subxComment"># emit-hex(out, info->address, 4)</span> +<span id="L2234" class="LineNr">2234 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2235" class="LineNr">2235 </span> 68/push 4/imm32 +<span id="L2236" class="LineNr">2236 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+12)</span> +<span id="L2237" class="LineNr">2237 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2238" class="LineNr">2238 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2239" class="LineNr">2239 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L2240" class="LineNr">2240 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2241" class="LineNr">2241 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2242" class="LineNr">2242 </span> <span class="subxComment"># continue</span> +<span id="L2243" class="LineNr">2243 </span> e9/jump $emit-segments:word-loop/disp32 +<span id="L2244" class="LineNr">2244 </span><span class="Constant">$emit-segments:check-disp8</span>: +<span id="L2245" class="LineNr">2245 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp8")) goto next check</span> +<span id="L2246" class="LineNr">2246 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp8")</span> +<span id="L2247" class="LineNr">2247 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2248" class="LineNr">2248 </span> 68/push <span class="Constant">"disp8"</span>/imm32 +<span id="L2249" class="LineNr">2249 </span> 52/push-edx +<span id="L2250" class="LineNr">2250 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2251" class="LineNr">2251 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2252" class="LineNr">2252 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2253" class="LineNr">2253 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2254" class="LineNr">2254 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2255" class="LineNr">2255 </span> 3d/compare-eax-and 0/imm32/false +<span id="L2256" class="LineNr">2256 </span> 74/jump-if-= $emit-segments:check-disp32/disp8 +<span id="L2257" class="LineNr">2257 </span><span class="Constant">$emit-segments:emit-disp8</span>: +<span id="L2258" class="LineNr">2258 </span> <span class="subxComment"># emit-hex(out, info->offset - offset-of-next-instruction, 1)</span> +<span id="L2259" class="LineNr">2259 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2260" class="LineNr">2260 </span> 68/push 1/imm32 +<span id="L2261" class="LineNr">2261 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to eax</span> +<span id="L2262" class="LineNr">2262 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L2263" class="LineNr">2263 </span> 50/push-eax <span id="L2264" class="LineNr">2264 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L2265" class="LineNr">2265 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2266" class="LineNr">2266 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L2266" class="LineNr">2266 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 <span id="L2267" class="LineNr">2267 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2268" class="LineNr">2268 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> <span id="L2269" class="LineNr">2269 </span> <span class="subxComment"># continue</span> <span id="L2270" class="LineNr">2270 </span> e9/jump $emit-segments:word-loop/disp32 -<span id="L2271" class="LineNr">2271 </span><span class="Constant">$emit-segments:check-code-label-for-disp8</span>: -<span id="L2272" class="LineNr">2272 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp8")) goto next check</span> -<span id="L2273" class="LineNr">2273 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp8")</span> +<span id="L2271" class="LineNr">2271 </span><span class="Constant">$emit-segments:check-disp32</span>: +<span id="L2272" class="LineNr">2272 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp32")) abort</span> +<span id="L2273" class="LineNr">2273 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp32")</span> <span id="L2274" class="LineNr">2274 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2275" class="LineNr">2275 </span> 68/push <span class="Constant">"disp8"</span>/imm32 +<span id="L2275" class="LineNr">2275 </span> 68/push <span class="Constant">"disp32"</span>/imm32 <span id="L2276" class="LineNr">2276 </span> 52/push-edx <span id="L2277" class="LineNr">2277 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2278" class="LineNr">2278 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 +<span id="L2278" class="LineNr">2278 </span> e8/call <a href='128subx-words.subx.html#L8'>has-metadata?</a>/disp32 <span id="L2279" class="LineNr">2279 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L2280" class="LineNr">2280 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2281" class="LineNr">2281 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L2281" class="LineNr">2281 </span> <span class="subxS1Comment"># . if (eax == false) abort</span> <span id="L2282" class="LineNr">2282 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2283" class="LineNr">2283 </span> 74/jump-if-= $emit-segments:check-code-label-for-disp32/disp8 -<span id="L2284" class="LineNr">2284 </span><span class="Constant">$emit-segments:emit-code-label-disp8</span>: -<span id="L2285" class="LineNr">2285 </span> <span class="subxComment"># emit-hex(out, info->offset - offset-of-next-instruction, 1)</span> -<span id="L2286" class="LineNr">2286 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2287" class="LineNr">2287 </span> 68/push 1/imm32 -<span id="L2288" class="LineNr">2288 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to eax</span> -<span id="L2289" class="LineNr">2289 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L2290" class="LineNr">2290 </span> 50/push-eax -<span id="L2291" class="LineNr">2291 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2292" class="LineNr">2292 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2293" class="LineNr">2293 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L2294" class="LineNr">2294 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2295" class="LineNr">2295 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2296" class="LineNr">2296 </span> <span class="subxComment"># continue</span> -<span id="L2297" class="LineNr">2297 </span> e9/jump $emit-segments:word-loop/disp32 -<span id="L2298" class="LineNr">2298 </span><span class="Constant">$emit-segments:check-code-label-for-disp32</span>: -<span id="L2299" class="LineNr">2299 </span> <span class="subxComment"># if (!has-metadata?(word-slice, "disp32")) abort</span> -<span id="L2300" class="LineNr">2300 </span> <span class="subxS1Comment"># . eax = has-metadata?(edx, "disp32")</span> -<span id="L2301" class="LineNr">2301 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2302" class="LineNr">2302 </span> 68/push <span class="Constant">"disp32"</span>/imm32 -<span id="L2303" class="LineNr">2303 </span> 52/push-edx -<span id="L2304" class="LineNr">2304 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2305" class="LineNr">2305 </span> e8/call <a href='../128subx-words.subx.html#L8'>has-metadata?</a>/disp32 -<span id="L2306" class="LineNr">2306 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2307" class="LineNr">2307 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2308" class="LineNr">2308 </span> <span class="subxS1Comment"># . if (eax == false) abort</span> -<span id="L2309" class="LineNr">2309 </span> 3d/compare-eax-and 0/imm32/false -<span id="L2310" class="LineNr">2310 </span> 0f 84/jump-if-= $emit-segments:abort/disp32 -<span id="L2311" class="LineNr">2311 </span><span class="Constant">$emit-segments:emit-code-label-disp32</span>: -<span id="L2312" class="LineNr">2312 </span> <span class="subxComment"># emit-hex(out, info->offset - offset-of-next-instruction, 4)</span> -<span id="L2313" class="LineNr">2313 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2314" class="LineNr">2314 </span> 68/push 4/imm32 -<span id="L2315" class="LineNr">2315 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to eax</span> -<span id="L2316" class="LineNr">2316 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> -<span id="L2317" class="LineNr">2317 </span> 50/push-eax -<span id="L2318" class="LineNr">2318 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2319" class="LineNr">2319 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2320" class="LineNr">2320 </span> e8/call <a href='../129emit-hex.subx.html#L7'>emit-hex</a>/disp32 -<span id="L2321" class="LineNr">2321 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2322" class="LineNr">2322 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2323" class="LineNr">2323 </span> <span class="subxComment"># continue</span> -<span id="L2324" class="LineNr">2324 </span> e9/jump $emit-segments:word-loop/disp32 -<span id="L2325" class="LineNr">2325 </span><span class="Constant">$emit-segments:next-line</span>: -<span id="L2326" class="LineNr">2326 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L2327" class="LineNr">2327 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2328" class="LineNr">2328 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L2329" class="LineNr">2329 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L2330" class="LineNr">2330 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2331" class="LineNr">2331 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L2332" class="LineNr">2332 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2333" class="LineNr">2333 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2334" class="LineNr">2334 </span> <span class="subxComment"># loop</span> -<span id="L2335" class="LineNr">2335 </span> e9/jump $emit-segments:line-loop/disp32 -<span id="L2336" class="LineNr">2336 </span><span class="Constant">$emit-segments:end</span>: -<span id="L2337" class="LineNr">2337 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L2338" class="LineNr">2338 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x21c/imm32 <span class="subxComment"># add to esp</span> -<span id="L2339" class="LineNr">2339 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L2340" class="LineNr">2340 </span> 5f/pop-to-edi -<span id="L2341" class="LineNr">2341 </span> 5e/pop-to-esi -<span id="L2342" class="LineNr">2342 </span> 5b/pop-to-ebx -<span id="L2343" class="LineNr">2343 </span> 5a/pop-to-edx -<span id="L2344" class="LineNr">2344 </span> 59/pop-to-ecx -<span id="L2345" class="LineNr">2345 </span> 58/pop-to-eax -<span id="L2346" class="LineNr">2346 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2347" class="LineNr">2347 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2348" class="LineNr">2348 </span> 5d/pop-to-ebp -<span id="L2349" class="LineNr">2349 </span> c3/return -<span id="L2350" class="LineNr">2350 </span> -<span id="L2351" class="LineNr">2351 </span><span class="Constant">$emit-segments:global-variable-abort</span>: -<span id="L2352" class="LineNr">2352 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L2353" class="LineNr">2353 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2354" class="LineNr">2354 </span> 68/push <span class="Constant">"emit-segments: must refer to global variables with /disp32 or /imm32"</span>/imm32 -<span id="L2355" class="LineNr">2355 </span> 68/push 2/imm32/stderr -<span id="L2356" class="LineNr">2356 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2357" class="LineNr">2357 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L2358" class="LineNr">2358 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2359" class="LineNr">2359 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2360" class="LineNr">2360 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2361" class="LineNr">2361 </span> bb/copy-to-ebx 1/imm32 -<span id="L2362" class="LineNr">2362 </span> e8/call syscall_exit/disp32 -<span id="L2363" class="LineNr">2363 </span> <span class="subxComment"># never gets here</span> -<span id="L2364" class="LineNr">2364 </span> -<span id="L2365" class="LineNr">2365 </span><span class="Constant">$emit-segments:imm8-abort</span>: -<span id="L2366" class="LineNr">2366 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L2367" class="LineNr">2367 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2368" class="LineNr">2368 </span> 68/push <span class="Constant">"emit-segments: cannot refer to code labels with /imm8"</span>/imm32 -<span id="L2369" class="LineNr">2369 </span> 68/push 2/imm32/stderr -<span id="L2370" class="LineNr">2370 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2371" class="LineNr">2371 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L2372" class="LineNr">2372 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2373" class="LineNr">2373 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2374" class="LineNr">2374 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2375" class="LineNr">2375 </span> bb/copy-to-ebx 1/imm32 -<span id="L2376" class="LineNr">2376 </span> e8/call syscall_exit/disp32 -<span id="L2377" class="LineNr">2377 </span> <span class="subxComment"># never gets here</span> -<span id="L2378" class="LineNr">2378 </span> -<span id="L2379" class="LineNr">2379 </span><span class="Constant">$emit-segments:abort</span>: -<span id="L2380" class="LineNr">2380 </span> <span class="subxComment"># print(stderr, "missing metadata in " word-slice)</span> -<span id="L2381" class="LineNr">2381 </span> <span class="subxS1Comment"># . _write(2/stderr, "missing metadata in word ")</span> -<span id="L2382" class="LineNr">2382 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2383" class="LineNr">2383 </span> 68/push <span class="Constant">"emit-segments: missing metadata in "</span>/imm32 -<span id="L2384" class="LineNr">2384 </span> 68/push 2/imm32/stderr -<span id="L2385" class="LineNr">2385 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2386" class="LineNr">2386 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L2387" class="LineNr">2387 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2388" class="LineNr">2388 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2389" class="LineNr">2389 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, word-slice)</span> -<span id="L2390" class="LineNr">2390 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2391" class="LineNr">2391 </span> 52/push-edx -<span id="L2392" class="LineNr">2392 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2393" class="LineNr">2393 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2394" class="LineNr">2394 </span> e8/call <a href='../123slice.subx.html#L908'>write-slice-buffered</a>/disp32 -<span id="L2395" class="LineNr">2395 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2396" class="LineNr">2396 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2397" class="LineNr">2397 </span> <span class="subxS1Comment"># . flush(Stderr)</span> -<span id="L2398" class="LineNr">2398 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2399" class="LineNr">2399 </span> 68/push <span class="SpecialChar"><a href='../116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 -<span id="L2400" class="LineNr">2400 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2401" class="LineNr">2401 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2402" class="LineNr">2402 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2403" class="LineNr">2403 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2404" class="LineNr">2404 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L2405" class="LineNr">2405 </span> bb/copy-to-ebx 1/imm32 -<span id="L2406" class="LineNr">2406 </span> e8/call syscall_exit/disp32 -<span id="L2407" class="LineNr">2407 </span> <span class="subxComment"># never gets here</span> -<span id="L2408" class="LineNr">2408 </span> -<span id="L2409" class="LineNr">2409 </span><span class="subxTest">test-emit-segments-global-variable</span>: -<span id="L2410" class="LineNr">2410 </span> <span class="subxComment"># global variables always convert to absolute addresses, regardless of metadata</span> -<span id="L2411" class="LineNr">2411 </span> <span class="subxComment">#</span> -<span id="L2412" class="LineNr">2412 </span> <span class="subxComment"># input:</span> -<span id="L2413" class="LineNr">2413 </span> <span class="subxComment"># in:</span> -<span id="L2414" class="LineNr">2414 </span> <span class="subxComment"># == code 0x1000</span> -<span id="L2415" class="LineNr">2415 </span> <span class="subxComment"># ab cd ef gh</span> -<span id="L2416" class="LineNr">2416 </span> <span class="subxComment"># ij x/disp32</span> -<span id="L2417" class="LineNr">2417 </span> <span class="subxComment"># == data 0x2000</span> -<span id="L2418" class="LineNr">2418 </span> <span class="subxComment"># 00</span> -<span id="L2419" class="LineNr">2419 </span> <span class="subxComment"># x:</span> -<span id="L2420" class="LineNr">2420 </span> <span class="subxComment"># 34</span> -<span id="L2421" class="LineNr">2421 </span> <span class="subxComment"># labels:</span> -<span id="L2422" class="LineNr">2422 </span> <span class="subxComment"># - 'x': {'data', 1, 0x207a}</span> -<span id="L2423" class="LineNr">2423 </span> <span class="subxComment">#</span> -<span id="L2424" class="LineNr">2424 </span> <span class="subxComment"># output:</span> -<span id="L2425" class="LineNr">2425 </span> <span class="subxComment"># ab cd ef gh</span> -<span id="L2426" class="LineNr">2426 </span> <span class="subxComment"># ij 7a 20 00 00</span> -<span id="L2427" class="LineNr">2427 </span> <span class="subxComment"># 00</span> -<span id="L2428" class="LineNr">2428 </span> <span class="subxComment"># 34</span> -<span id="L2429" class="LineNr">2429 </span> <span class="subxComment">#</span> -<span id="L2430" class="LineNr">2430 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2431" class="LineNr">2431 </span> 55/push-ebp -<span id="L2432" class="LineNr">2432 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2433" class="LineNr">2433 </span> <span class="subxComment"># setup</span> -<span id="L2434" class="LineNr">2434 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2435" class="LineNr">2435 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2436" class="LineNr">2436 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2437" class="LineNr">2437 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2438" class="LineNr">2438 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2439" class="LineNr">2439 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2440" class="LineNr">2440 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2441" class="LineNr">2441 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L2442" class="LineNr">2442 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2443" class="LineNr">2443 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2444" class="LineNr">2444 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2445" class="LineNr">2445 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2446" class="LineNr">2446 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2447" class="LineNr">2447 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2448" class="LineNr">2448 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L2449" class="LineNr">2449 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2450" class="LineNr">2450 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2283" class="LineNr">2283 </span> 0f 84/jump-if-= $emit-segments:abort/disp32 +<span id="L2284" class="LineNr">2284 </span><span class="Constant">$emit-segments:emit-disp32</span>: +<span id="L2285" class="LineNr">2285 </span> <span class="subxComment"># var value/eax = info->address</span> +<span id="L2286" class="LineNr">2286 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+12) to eax</span> +<span id="L2287" class="LineNr">2287 </span> <span class="subxComment"># if (far-jump-or-call?) value = info->offset - offset-of-next-instruction</span> +<span id="L2288" class="LineNr">2288 </span> 81 7/subop/compare 3/mod/direct 7/rm32/edi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32/false <span class="subxComment"># compare edi</span> +<span id="L2289" class="LineNr">2289 </span> 74/jump-if-= $emit-segments:really-emit-disp32/disp8 +<span id="L2290" class="LineNr">2290 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to eax</span> +<span id="L2291" class="LineNr">2291 </span> 29/subtract 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># subtract ebx from eax</span> +<span id="L2292" class="LineNr">2292 </span><span class="Constant">$emit-segments:really-emit-disp32</span>: +<span id="L2293" class="LineNr">2293 </span> <span class="subxComment"># emit-hex(out, value, 4)</span> +<span id="L2294" class="LineNr">2294 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2295" class="LineNr">2295 </span> 68/push 4/imm32 +<span id="L2296" class="LineNr">2296 </span> 50/push-eax +<span id="L2297" class="LineNr">2297 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2298" class="LineNr">2298 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2299" class="LineNr">2299 </span> e8/call <a href='129emit-hex.subx.html#L7'>emit-hex</a>/disp32 +<span id="L2300" class="LineNr">2300 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2301" class="LineNr">2301 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2302" class="LineNr">2302 </span> <span class="subxComment"># continue</span> +<span id="L2303" class="LineNr">2303 </span> e9/jump $emit-segments:word-loop/disp32 +<span id="L2304" class="LineNr">2304 </span><span class="Constant">$emit-segments:next-line</span>: +<span id="L2305" class="LineNr">2305 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L2306" class="LineNr">2306 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2307" class="LineNr">2307 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L2308" class="LineNr">2308 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L2309" class="LineNr">2309 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2310" class="LineNr">2310 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L2311" class="LineNr">2311 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2312" class="LineNr">2312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2313" class="LineNr">2313 </span> <span class="subxComment"># loop</span> +<span id="L2314" class="LineNr">2314 </span> e9/jump $emit-segments:line-loop/disp32 +<span id="L2315" class="LineNr">2315 </span><span class="Constant">$emit-segments:end</span>: +<span id="L2316" class="LineNr">2316 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L2317" class="LineNr">2317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x214/imm32 <span class="subxComment"># add to esp</span> +<span id="L2318" class="LineNr">2318 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L2319" class="LineNr">2319 </span> 5f/pop-to-edi +<span id="L2320" class="LineNr">2320 </span> 5e/pop-to-esi +<span id="L2321" class="LineNr">2321 </span> 5b/pop-to-ebx +<span id="L2322" class="LineNr">2322 </span> 5a/pop-to-edx +<span id="L2323" class="LineNr">2323 </span> 59/pop-to-ecx +<span id="L2324" class="LineNr">2324 </span> 58/pop-to-eax +<span id="L2325" class="LineNr">2325 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2326" class="LineNr">2326 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2327" class="LineNr">2327 </span> 5d/pop-to-ebp +<span id="L2328" class="LineNr">2328 </span> c3/return +<span id="L2329" class="LineNr">2329 </span> +<span id="L2330" class="LineNr">2330 </span><span class="Constant">$emit-segments:imm8-abort</span>: +<span id="L2331" class="LineNr">2331 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L2332" class="LineNr">2332 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2333" class="LineNr">2333 </span> 68/push <span class="Constant">"emit-segments: cannot refer to code labels with /imm8"</span>/imm32 +<span id="L2334" class="LineNr">2334 </span> 68/push 2/imm32/stderr +<span id="L2335" class="LineNr">2335 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2336" class="LineNr">2336 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L2337" class="LineNr">2337 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2338" class="LineNr">2338 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2339" class="LineNr">2339 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2340" class="LineNr">2340 </span> bb/copy-to-ebx 1/imm32 +<span id="L2341" class="LineNr">2341 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2342" class="LineNr">2342 </span> <span class="subxComment"># never gets here</span> +<span id="L2343" class="LineNr">2343 </span> +<span id="L2344" class="LineNr">2344 </span><span class="Constant">$emit-segments:abort</span>: +<span id="L2345" class="LineNr">2345 </span> <span class="subxComment"># print(stderr, "missing metadata in " word-slice)</span> +<span id="L2346" class="LineNr">2346 </span> <span class="subxS1Comment"># . _write(2/stderr, "missing metadata in word ")</span> +<span id="L2347" class="LineNr">2347 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2348" class="LineNr">2348 </span> 68/push <span class="Constant">"emit-segments: missing metadata in "</span>/imm32 +<span id="L2349" class="LineNr">2349 </span> 68/push 2/imm32/stderr +<span id="L2350" class="LineNr">2350 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2351" class="LineNr">2351 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L2352" class="LineNr">2352 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2353" class="LineNr">2353 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2354" class="LineNr">2354 </span> <span class="subxS1Comment"># . write-slice-buffered(Stderr, word-slice)</span> +<span id="L2355" class="LineNr">2355 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2356" class="LineNr">2356 </span> 52/push-edx +<span id="L2357" class="LineNr">2357 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2358" class="LineNr">2358 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2359" class="LineNr">2359 </span> e8/call <a href='123slice.subx.html#L908'>write-slice-buffered</a>/disp32 +<span id="L2360" class="LineNr">2360 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2361" class="LineNr">2361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2362" class="LineNr">2362 </span> <span class="subxS1Comment"># . flush(Stderr)</span> +<span id="L2363" class="LineNr">2363 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2364" class="LineNr">2364 </span> 68/push <span class="SpecialChar"><a href='116write-buffered.subx.html#L209'>Stderr</a></span>/imm32 +<span id="L2365" class="LineNr">2365 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2366" class="LineNr">2366 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2367" class="LineNr">2367 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2368" class="LineNr">2368 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2369" class="LineNr">2369 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L2370" class="LineNr">2370 </span> bb/copy-to-ebx 1/imm32 +<span id="L2371" class="LineNr">2371 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L2372" class="LineNr">2372 </span> <span class="subxComment"># never gets here</span> +<span id="L2373" class="LineNr">2373 </span> +<span id="L2374" class="LineNr">2374 </span><span class="subxTest">test-emit-segments-non-far-control-flow</span>: +<span id="L2375" class="LineNr">2375 </span> <span class="subxComment"># labels turn into absolute addresses if opcodes are not far jumps or calls</span> +<span id="L2376" class="LineNr">2376 </span> <span class="subxComment">#</span> +<span id="L2377" class="LineNr">2377 </span> <span class="subxComment"># input:</span> +<span id="L2378" class="LineNr">2378 </span> <span class="subxComment"># in:</span> +<span id="L2379" class="LineNr">2379 </span> <span class="subxComment"># == code 0x1000</span> +<span id="L2380" class="LineNr">2380 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L2381" class="LineNr">2381 </span> <span class="subxComment"># ij x/disp32</span> +<span id="L2382" class="LineNr">2382 </span> <span class="subxComment"># == data 0x2000</span> +<span id="L2383" class="LineNr">2383 </span> <span class="subxComment"># 00</span> +<span id="L2384" class="LineNr">2384 </span> <span class="subxComment"># x:</span> +<span id="L2385" class="LineNr">2385 </span> <span class="subxComment"># 34</span> +<span id="L2386" class="LineNr">2386 </span> <span class="subxComment"># labels:</span> +<span id="L2387" class="LineNr">2387 </span> <span class="subxComment"># - 'x': {'data', 1, 0x207a}</span> +<span id="L2388" class="LineNr">2388 </span> <span class="subxComment">#</span> +<span id="L2389" class="LineNr">2389 </span> <span class="subxComment"># output:</span> +<span id="L2390" class="LineNr">2390 </span> <span class="subxComment"># ab cd ef gh</span> +<span id="L2391" class="LineNr">2391 </span> <span class="subxComment"># ij 7a 20 00 00</span> +<span id="L2392" class="LineNr">2392 </span> <span class="subxComment"># 00</span> +<span id="L2393" class="LineNr">2393 </span> <span class="subxComment"># 34</span> +<span id="L2394" class="LineNr">2394 </span> <span class="subxComment">#</span> +<span id="L2395" class="LineNr">2395 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2396" class="LineNr">2396 </span> 55/push-ebp +<span id="L2397" class="LineNr">2397 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2398" class="LineNr">2398 </span> <span class="subxComment"># setup</span> +<span id="L2399" class="LineNr">2399 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2400" class="LineNr">2400 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2401" class="LineNr">2401 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2402" class="LineNr">2402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2403" class="LineNr">2403 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2404" class="LineNr">2404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2405" class="LineNr">2405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2406" class="LineNr">2406 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2407" class="LineNr">2407 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2408" class="LineNr">2408 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2409" class="LineNr">2409 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2410" class="LineNr">2410 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2411" class="LineNr">2411 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2412" class="LineNr">2412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2413" class="LineNr">2413 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L2414" class="LineNr">2414 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2415" class="LineNr">2415 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2416" class="LineNr">2416 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2417" class="LineNr">2417 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2418" class="LineNr">2418 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2419" class="LineNr">2419 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2420" class="LineNr">2420 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L2421" class="LineNr">2421 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L2422" class="LineNr">2422 </span> 68/push 0xc0/imm32/size +<span id="L2423" class="LineNr">2423 </span> 68/push 0/imm32/read +<span id="L2424" class="LineNr">2424 </span> 68/push 0/imm32/write +<span id="L2425" class="LineNr">2425 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L2426" class="LineNr">2426 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L2427" class="LineNr">2427 </span> 68/push 0/imm32 +<span id="L2428" class="LineNr">2428 </span> 68/push 0/imm32 +<span id="L2429" class="LineNr">2429 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2430" class="LineNr">2430 </span> <span class="subxComment"># initialize input</span> +<span id="L2431" class="LineNr">2431 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> +<span id="L2432" class="LineNr">2432 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2433" class="LineNr">2433 </span> 68/push <span class="Constant">"== code 0x1000\n"</span>/imm32 +<span id="L2434" class="LineNr">2434 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2435" class="LineNr">2435 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2436" class="LineNr">2436 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2437" class="LineNr">2437 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2438" class="LineNr">2438 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2439" class="LineNr">2439 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> +<span id="L2440" class="LineNr">2440 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2441" class="LineNr">2441 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 +<span id="L2442" class="LineNr">2442 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2443" class="LineNr">2443 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2444" class="LineNr">2444 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2445" class="LineNr">2445 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2446" class="LineNr">2446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2447" class="LineNr">2447 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij x/disp32\n")</span> +<span id="L2448" class="LineNr">2448 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2449" class="LineNr">2449 </span> 68/push <span class="Constant">"ij x/disp32\n"</span>/imm32 +<span id="L2450" class="LineNr">2450 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2451" class="LineNr">2451 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2452" class="LineNr">2452 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2452" class="LineNr">2452 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L2453" class="LineNr">2453 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2454" class="LineNr">2454 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2455" class="LineNr">2455 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L2456" class="LineNr">2456 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L2457" class="LineNr">2457 </span> 68/push 0xc0/imm32/size -<span id="L2458" class="LineNr">2458 </span> 68/push 0/imm32/read -<span id="L2459" class="LineNr">2459 </span> 68/push 0/imm32/write -<span id="L2460" class="LineNr">2460 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L2461" class="LineNr">2461 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L2462" class="LineNr">2462 </span> 68/push 0/imm32 -<span id="L2463" class="LineNr">2463 </span> 68/push 0/imm32 -<span id="L2464" class="LineNr">2464 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L2465" class="LineNr">2465 </span> <span class="subxComment"># initialize input</span> -<span id="L2466" class="LineNr">2466 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> -<span id="L2467" class="LineNr">2467 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2468" class="LineNr">2468 </span> 68/push <span class="Constant">"== code 0x1000\n"</span>/imm32 -<span id="L2469" class="LineNr">2469 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2470" class="LineNr">2470 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2471" class="LineNr">2471 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2472" class="LineNr">2472 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2473" class="LineNr">2473 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2474" class="LineNr">2474 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef gh\n")</span> -<span id="L2475" class="LineNr">2475 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2476" class="LineNr">2476 </span> 68/push <span class="Constant">"ab cd ef gh\n"</span>/imm32 -<span id="L2477" class="LineNr">2477 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2478" class="LineNr">2478 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2479" class="LineNr">2479 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2480" class="LineNr">2480 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2481" class="LineNr">2481 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2482" class="LineNr">2482 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ij x/disp32\n")</span> -<span id="L2483" class="LineNr">2483 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2484" class="LineNr">2484 </span> 68/push <span class="Constant">"ij x/disp32\n"</span>/imm32 -<span id="L2485" class="LineNr">2485 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2486" class="LineNr">2486 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2487" class="LineNr">2487 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2488" class="LineNr">2488 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2489" class="LineNr">2489 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2490" class="LineNr">2490 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x2000\n")</span> -<span id="L2491" class="LineNr">2491 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2492" class="LineNr">2492 </span> 68/push <span class="Constant">"== data 0x2000\n"</span>/imm32 -<span id="L2493" class="LineNr">2493 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2494" class="LineNr">2494 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2495" class="LineNr">2495 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2496" class="LineNr">2496 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2497" class="LineNr">2497 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2498" class="LineNr">2498 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> -<span id="L2499" class="LineNr">2499 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2500" class="LineNr">2500 </span> 68/push <span class="Constant">"00\n"</span>/imm32 -<span id="L2501" class="LineNr">2501 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2502" class="LineNr">2502 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2503" class="LineNr">2503 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2504" class="LineNr">2504 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2505" class="LineNr">2505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2506" class="LineNr">2506 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> -<span id="L2507" class="LineNr">2507 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2508" class="LineNr">2508 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 -<span id="L2509" class="LineNr">2509 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2510" class="LineNr">2510 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2511" class="LineNr">2511 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2512" class="LineNr">2512 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2513" class="LineNr">2513 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2514" class="LineNr">2514 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> -<span id="L2515" class="LineNr">2515 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2516" class="LineNr">2516 </span> 68/push <span class="Constant">"34\n"</span>/imm32 -<span id="L2517" class="LineNr">2517 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2454" class="LineNr">2454 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2455" class="LineNr">2455 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== data 0x2000\n")</span> +<span id="L2456" class="LineNr">2456 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2457" class="LineNr">2457 </span> 68/push <span class="Constant">"== data 0x2000\n"</span>/imm32 +<span id="L2458" class="LineNr">2458 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2459" class="LineNr">2459 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2460" class="LineNr">2460 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2461" class="LineNr">2461 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2462" class="LineNr">2462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2463" class="LineNr">2463 </span> <span class="subxS1Comment"># . write(_test-input-stream, "00\n")</span> +<span id="L2464" class="LineNr">2464 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2465" class="LineNr">2465 </span> 68/push <span class="Constant">"00\n"</span>/imm32 +<span id="L2466" class="LineNr">2466 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2467" class="LineNr">2467 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2468" class="LineNr">2468 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2469" class="LineNr">2469 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2470" class="LineNr">2470 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2471" class="LineNr">2471 </span> <span class="subxS1Comment"># . write(_test-input-stream, "x:\n")</span> +<span id="L2472" class="LineNr">2472 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2473" class="LineNr">2473 </span> 68/push <span class="Constant">"x:\n"</span>/imm32 +<span id="L2474" class="LineNr">2474 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2475" class="LineNr">2475 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2476" class="LineNr">2476 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2477" class="LineNr">2477 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2478" class="LineNr">2478 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2479" class="LineNr">2479 </span> <span class="subxS1Comment"># . write(_test-input-stream, "34\n")</span> +<span id="L2480" class="LineNr">2480 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2481" class="LineNr">2481 </span> 68/push <span class="Constant">"34\n"</span>/imm32 +<span id="L2482" class="LineNr">2482 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2483" class="LineNr">2483 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2484" class="LineNr">2484 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2485" class="LineNr">2485 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2486" class="LineNr">2486 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2487" class="LineNr">2487 </span> <span class="subxS1Comment"># . stream-add6(labels, "x", "data", 1, 0x207a)</span> +<span id="L2488" class="LineNr">2488 </span> 68/push 0x207a/imm32/label-address +<span id="L2489" class="LineNr">2489 </span> 68/push 1/imm32/segment-offset +<span id="L2490" class="LineNr">2490 </span> <span class="subxS2Comment"># . . push "data"</span> +<span id="L2491" class="LineNr">2491 </span> 53/push-ebx +<span id="L2492" class="LineNr">2492 </span> 68/push <span class="Constant">"data"</span>/imm32 +<span id="L2493" class="LineNr">2493 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2494" class="LineNr">2494 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2495" class="LineNr">2495 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2496" class="LineNr">2496 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2497" class="LineNr">2497 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2498" class="LineNr">2498 </span> <span class="subxS2Comment"># . . push "l1"</span> +<span id="L2499" class="LineNr">2499 </span> 53/push-ebx +<span id="L2500" class="LineNr">2500 </span> 68/push <span class="Constant">"x"</span>/imm32 +<span id="L2501" class="LineNr">2501 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2502" class="LineNr">2502 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2503" class="LineNr">2503 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2504" class="LineNr">2504 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2505" class="LineNr">2505 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2506" class="LineNr">2506 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L2507" class="LineNr">2507 </span> 52/push-edx +<span id="L2508" class="LineNr">2508 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2509" class="LineNr">2509 </span> e8/call <a href='survey_elf.subx.html#L3522'>stream-add6</a>/disp32 +<span id="L2510" class="LineNr">2510 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2511" class="LineNr">2511 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> +<span id="L2512" class="LineNr">2512 </span> <span class="subxComment"># component under test</span> +<span id="L2513" class="LineNr">2513 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L2514" class="LineNr">2514 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2515" class="LineNr">2515 </span> 52/push-edx +<span id="L2516" class="LineNr">2516 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2517" class="LineNr">2517 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2518" class="LineNr">2518 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2519" class="LineNr">2519 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L2519" class="LineNr">2519 </span> e8/call <a href='survey_elf.subx.html#L1848'>emit-segments</a>/disp32 <span id="L2520" class="LineNr">2520 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2521" class="LineNr">2521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2522" class="LineNr">2522 </span> <span class="subxS1Comment"># . stream-add6(labels, "x", "data", 1, 0x207a)</span> -<span id="L2523" class="LineNr">2523 </span> 68/push 0x207a/imm32/label-address -<span id="L2524" class="LineNr">2524 </span> 68/push 1/imm32/segment-offset -<span id="L2525" class="LineNr">2525 </span> <span class="subxS2Comment"># . . push "data"</span> -<span id="L2526" class="LineNr">2526 </span> 53/push-ebx -<span id="L2527" class="LineNr">2527 </span> 68/push <span class="Constant">"data"</span>/imm32 -<span id="L2528" class="LineNr">2528 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2529" class="LineNr">2529 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L2530" class="LineNr">2530 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2531" class="LineNr">2531 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2532" class="LineNr">2532 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2533" class="LineNr">2533 </span> <span class="subxS2Comment"># . . push "l1"</span> -<span id="L2534" class="LineNr">2534 </span> 53/push-ebx -<span id="L2535" class="LineNr">2535 </span> 68/push <span class="Constant">"x"</span>/imm32 -<span id="L2536" class="LineNr">2536 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2537" class="LineNr">2537 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L2538" class="LineNr">2538 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2539" class="LineNr">2539 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2540" class="LineNr">2540 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2541" class="LineNr">2541 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L2542" class="LineNr">2542 </span> 52/push-edx -<span id="L2543" class="LineNr">2543 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2544" class="LineNr">2544 </span> e8/call <a href='survey.subx.html#L3501'>stream-add6</a>/disp32 -<span id="L2545" class="LineNr">2545 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2546" class="LineNr">2546 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> -<span id="L2547" class="LineNr">2547 </span> <span class="subxComment"># component under test</span> -<span id="L2548" class="LineNr">2548 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> -<span id="L2549" class="LineNr">2549 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2550" class="LineNr">2550 </span> 52/push-edx -<span id="L2551" class="LineNr">2551 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L2552" class="LineNr">2552 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2553" class="LineNr">2553 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2554" class="LineNr">2554 </span> e8/call <a href='survey.subx.html#L1823'>emit-segments</a>/disp32 -<span id="L2555" class="LineNr">2555 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2556" class="LineNr">2556 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2557" class="LineNr">2557 </span> <span class="subxComment"># checks</span> -<span id="L2558" class="LineNr">2558 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L2559" class="LineNr">2559 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2560" class="LineNr">2560 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L2561" class="LineNr">2561 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2562" class="LineNr">2562 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2563" class="LineNr">2563 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2564" class="LineNr">2564 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2565" class="Folded">2565 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2598" class="LineNr">2598 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> -<span id="L2599" class="LineNr">2599 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2600" class="LineNr">2600 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2409'>test-emit-segments-global-variable</a>/0"</span>/imm32 -<span id="L2601" class="LineNr">2601 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 -<span id="L2602" class="LineNr">2602 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2603" class="LineNr">2603 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2604" class="LineNr">2604 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2605" class="LineNr">2605 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2606" class="LineNr">2606 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2607" class="LineNr">2607 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij 7a 20 00 00 ", msg)</span> -<span id="L2608" class="LineNr">2608 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2609" class="LineNr">2609 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2409'>test-emit-segments-global-variable</a>/1"</span>/imm32 -<span id="L2610" class="LineNr">2610 </span> 68/push <span class="Constant">"ij 7a 20 00 00 "</span>/imm32 -<span id="L2611" class="LineNr">2611 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2612" class="LineNr">2612 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2613" class="LineNr">2613 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2614" class="LineNr">2614 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2615" class="LineNr">2615 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2616" class="LineNr">2616 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 ", msg)</span> -<span id="L2617" class="LineNr">2617 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2618" class="LineNr">2618 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2409'>test-emit-segments-global-variable</a>/2"</span>/imm32 -<span id="L2619" class="LineNr">2619 </span> 68/push <span class="Constant">"00 "</span>/imm32 -<span id="L2620" class="LineNr">2620 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2621" class="LineNr">2621 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2622" class="LineNr">2622 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2623" class="LineNr">2623 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2624" class="LineNr">2624 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2625" class="LineNr">2625 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> -<span id="L2626" class="LineNr">2626 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2627" class="LineNr">2627 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2409'>test-emit-segments-global-variable</a>/3"</span>/imm32 -<span id="L2628" class="LineNr">2628 </span> 68/push <span class="Constant">"34 "</span>/imm32 -<span id="L2629" class="LineNr">2629 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2630" class="LineNr">2630 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2631" class="LineNr">2631 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2632" class="LineNr">2632 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2633" class="LineNr">2633 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2634" class="LineNr">2634 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2635" class="LineNr">2635 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2636" class="LineNr">2636 </span> 5d/pop-to-ebp -<span id="L2637" class="LineNr">2637 </span> c3/return -<span id="L2638" class="LineNr">2638 </span> -<span id="L2639" class="LineNr">2639 </span><span class="subxTest">test-emit-segments-code-label</span>: -<span id="L2640" class="LineNr">2640 </span> <span class="subxComment"># labels usually convert to displacements</span> -<span id="L2641" class="LineNr">2641 </span> <span class="subxComment">#</span> -<span id="L2642" class="LineNr">2642 </span> <span class="subxComment"># input:</span> -<span id="L2643" class="LineNr">2643 </span> <span class="subxComment"># in:</span> -<span id="L2644" class="LineNr">2644 </span> <span class="subxComment"># == code 0x1000</span> -<span id="L2645" class="LineNr">2645 </span> <span class="subxComment"># ab cd</span> -<span id="L2646" class="LineNr">2646 </span> <span class="subxComment"># l1:</span> -<span id="L2647" class="LineNr">2647 </span> <span class="subxComment"># ef gh</span> -<span id="L2648" class="LineNr">2648 </span> <span class="subxComment"># ij l1/disp32</span> -<span id="L2649" class="LineNr">2649 </span> <span class="subxComment"># labels:</span> -<span id="L2650" class="LineNr">2650 </span> <span class="subxComment"># - 'l1': {'code', 2, 0x1056}</span> -<span id="L2651" class="LineNr">2651 </span> <span class="subxComment">#</span> -<span id="L2652" class="LineNr">2652 </span> <span class="subxComment"># output:</span> -<span id="L2653" class="LineNr">2653 </span> <span class="subxComment"># ab cd</span> -<span id="L2654" class="LineNr">2654 </span> <span class="subxComment"># ef gh</span> -<span id="L2655" class="LineNr">2655 </span> <span class="subxComment"># ij f9 ff ff ff # -7</span> -<span id="L2656" class="LineNr">2656 </span> <span class="subxComment">#</span> -<span id="L2657" class="LineNr">2657 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2658" class="LineNr">2658 </span> 55/push-ebp -<span id="L2659" class="LineNr">2659 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2660" class="LineNr">2660 </span> <span class="subxComment"># setup</span> -<span id="L2661" class="LineNr">2661 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2662" class="LineNr">2662 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2663" class="LineNr">2663 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2664" class="LineNr">2664 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2665" class="LineNr">2665 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2666" class="LineNr">2666 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2667" class="LineNr">2667 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2668" class="LineNr">2668 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L2669" class="LineNr">2669 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2670" class="LineNr">2670 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2671" class="LineNr">2671 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2672" class="LineNr">2672 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2673" class="LineNr">2673 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2674" class="LineNr">2674 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2675" class="LineNr">2675 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L2676" class="LineNr">2676 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2677" class="LineNr">2677 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2521" class="LineNr">2521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2522" class="LineNr">2522 </span> <span class="subxComment"># checks</span> +<span id="L2523" class="LineNr">2523 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L2524" class="LineNr">2524 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2525" class="LineNr">2525 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2526" class="LineNr">2526 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2527" class="LineNr">2527 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2528" class="LineNr">2528 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2529" class="LineNr">2529 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2530" class="Folded">2530 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2563" class="LineNr">2563 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ef gh ", msg)</span> +<span id="L2564" class="LineNr">2564 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2565" class="LineNr">2565 </span> 68/push <span class="Constant">"F - test-emit-segments-global-variable/0"</span>/imm32 +<span id="L2566" class="LineNr">2566 </span> 68/push <span class="Constant">"ab cd ef gh "</span>/imm32 +<span id="L2567" class="LineNr">2567 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2568" class="LineNr">2568 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2569" class="LineNr">2569 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2570" class="LineNr">2570 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2571" class="LineNr">2571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2572" class="LineNr">2572 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij 7a 20 00 00 ", msg)</span> +<span id="L2573" class="LineNr">2573 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2574" class="LineNr">2574 </span> 68/push <span class="Constant">"F - test-emit-segments-global-variable/1"</span>/imm32 +<span id="L2575" class="LineNr">2575 </span> 68/push <span class="Constant">"ij 7a 20 00 00 "</span>/imm32 +<span id="L2576" class="LineNr">2576 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2577" class="LineNr">2577 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2578" class="LineNr">2578 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2579" class="LineNr">2579 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2580" class="LineNr">2580 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2581" class="LineNr">2581 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "00 ", msg)</span> +<span id="L2582" class="LineNr">2582 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2583" class="LineNr">2583 </span> 68/push <span class="Constant">"F - test-emit-segments-global-variable/2"</span>/imm32 +<span id="L2584" class="LineNr">2584 </span> 68/push <span class="Constant">"00 "</span>/imm32 +<span id="L2585" class="LineNr">2585 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2586" class="LineNr">2586 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2587" class="LineNr">2587 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2588" class="LineNr">2588 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2589" class="LineNr">2589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2590" class="LineNr">2590 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "34 ", msg)</span> +<span id="L2591" class="LineNr">2591 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2592" class="LineNr">2592 </span> 68/push <span class="Constant">"F - test-emit-segments-global-variable/3"</span>/imm32 +<span id="L2593" class="LineNr">2593 </span> 68/push <span class="Constant">"34 "</span>/imm32 +<span id="L2594" class="LineNr">2594 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2595" class="LineNr">2595 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2596" class="LineNr">2596 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2597" class="LineNr">2597 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2598" class="LineNr">2598 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2599" class="LineNr">2599 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2600" class="LineNr">2600 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2601" class="LineNr">2601 </span> 5d/pop-to-ebp +<span id="L2602" class="LineNr">2602 </span> c3/return +<span id="L2603" class="LineNr">2603 </span> +<span id="L2604" class="LineNr">2604 </span><span class="subxTest">test-emit-segments-code-label</span>: +<span id="L2605" class="LineNr">2605 </span> <span class="subxComment"># labels turn into PC-relative addresses if opcodes are far jumps or calls</span> +<span id="L2606" class="LineNr">2606 </span> <span class="subxComment">#</span> +<span id="L2607" class="LineNr">2607 </span> <span class="subxComment"># input:</span> +<span id="L2608" class="LineNr">2608 </span> <span class="subxComment"># in:</span> +<span id="L2609" class="LineNr">2609 </span> <span class="subxComment"># == code 0x1000</span> +<span id="L2610" class="LineNr">2610 </span> <span class="subxComment"># ab cd</span> +<span id="L2611" class="LineNr">2611 </span> <span class="subxComment"># l1:</span> +<span id="L2612" class="LineNr">2612 </span> <span class="subxComment"># ef gh</span> +<span id="L2613" class="LineNr">2613 </span> <span class="subxComment"># e8 l1/disp32</span> +<span id="L2614" class="LineNr">2614 </span> <span class="subxComment"># labels:</span> +<span id="L2615" class="LineNr">2615 </span> <span class="subxComment"># - 'l1': {'code', 2, 0x1056}</span> +<span id="L2616" class="LineNr">2616 </span> <span class="subxComment">#</span> +<span id="L2617" class="LineNr">2617 </span> <span class="subxComment"># output:</span> +<span id="L2618" class="LineNr">2618 </span> <span class="subxComment"># ab cd</span> +<span id="L2619" class="LineNr">2619 </span> <span class="subxComment"># ef gh</span> +<span id="L2620" class="LineNr">2620 </span> <span class="subxComment"># e8 f9 ff ff ff # -7</span> +<span id="L2621" class="LineNr">2621 </span> <span class="subxComment">#</span> +<span id="L2622" class="LineNr">2622 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2623" class="LineNr">2623 </span> 55/push-ebp +<span id="L2624" class="LineNr">2624 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2625" class="LineNr">2625 </span> <span class="subxComment"># setup</span> +<span id="L2626" class="LineNr">2626 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2627" class="LineNr">2627 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2628" class="LineNr">2628 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2629" class="LineNr">2629 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2630" class="LineNr">2630 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2631" class="LineNr">2631 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2632" class="LineNr">2632 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2633" class="LineNr">2633 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2634" class="LineNr">2634 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2635" class="LineNr">2635 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2636" class="LineNr">2636 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2637" class="LineNr">2637 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2638" class="LineNr">2638 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2639" class="LineNr">2639 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2640" class="LineNr">2640 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L2641" class="LineNr">2641 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2642" class="LineNr">2642 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2643" class="LineNr">2643 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2644" class="LineNr">2644 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2645" class="LineNr">2645 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2646" class="LineNr">2646 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2647" class="LineNr">2647 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L2648" class="LineNr">2648 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L2649" class="LineNr">2649 </span> 68/push 0xc0/imm32/size +<span id="L2650" class="LineNr">2650 </span> 68/push 0/imm32/read +<span id="L2651" class="LineNr">2651 </span> 68/push 0/imm32/write +<span id="L2652" class="LineNr">2652 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L2653" class="LineNr">2653 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L2654" class="LineNr">2654 </span> 68/push 0/imm32 +<span id="L2655" class="LineNr">2655 </span> 68/push 0/imm32 +<span id="L2656" class="LineNr">2656 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2657" class="LineNr">2657 </span> <span class="subxComment"># initialize input</span> +<span id="L2658" class="LineNr">2658 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> +<span id="L2659" class="LineNr">2659 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2660" class="LineNr">2660 </span> 68/push <span class="Constant">"== code 0x1000\n"</span>/imm32 +<span id="L2661" class="LineNr">2661 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2662" class="LineNr">2662 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2663" class="LineNr">2663 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2664" class="LineNr">2664 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2665" class="LineNr">2665 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2666" class="LineNr">2666 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L2667" class="LineNr">2667 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2668" class="LineNr">2668 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L2669" class="LineNr">2669 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2670" class="LineNr">2670 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2671" class="LineNr">2671 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2672" class="LineNr">2672 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2673" class="LineNr">2673 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2674" class="LineNr">2674 </span> <span class="subxS1Comment"># . write(_test-input-stream, "l1:\n")</span> +<span id="L2675" class="LineNr">2675 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2676" class="LineNr">2676 </span> 68/push <span class="Constant">"l1:\n"</span>/imm32 +<span id="L2677" class="LineNr">2677 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2678" class="LineNr">2678 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2679" class="LineNr">2679 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2679" class="LineNr">2679 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L2680" class="LineNr">2680 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2681" class="LineNr">2681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2682" class="LineNr">2682 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L2683" class="LineNr">2683 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L2684" class="LineNr">2684 </span> 68/push 0xc0/imm32/size -<span id="L2685" class="LineNr">2685 </span> 68/push 0/imm32/read -<span id="L2686" class="LineNr">2686 </span> 68/push 0/imm32/write -<span id="L2687" class="LineNr">2687 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L2688" class="LineNr">2688 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L2689" class="LineNr">2689 </span> 68/push 0/imm32 -<span id="L2690" class="LineNr">2690 </span> 68/push 0/imm32 -<span id="L2691" class="LineNr">2691 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L2692" class="LineNr">2692 </span> <span class="subxComment"># initialize input</span> -<span id="L2693" class="LineNr">2693 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> -<span id="L2694" class="LineNr">2694 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2695" class="LineNr">2695 </span> 68/push <span class="Constant">"== code 0x1000\n"</span>/imm32 -<span id="L2696" class="LineNr">2696 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2697" class="LineNr">2697 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2698" class="LineNr">2698 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2699" class="LineNr">2699 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2700" class="LineNr">2700 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2701" class="LineNr">2701 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> -<span id="L2702" class="LineNr">2702 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2703" class="LineNr">2703 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 -<span id="L2704" class="LineNr">2704 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2705" class="LineNr">2705 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2706" class="LineNr">2706 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2707" class="LineNr">2707 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2708" class="LineNr">2708 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2709" class="LineNr">2709 </span> <span class="subxS1Comment"># . write(_test-input-stream, "l1:\n")</span> -<span id="L2710" class="LineNr">2710 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2711" class="LineNr">2711 </span> 68/push <span class="Constant">"l1:\n"</span>/imm32 -<span id="L2712" class="LineNr">2712 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2713" class="LineNr">2713 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2714" class="LineNr">2714 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2715" class="LineNr">2715 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2716" class="LineNr">2716 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2717" class="LineNr">2717 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ef gh\n")</span> -<span id="L2718" class="LineNr">2718 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2719" class="LineNr">2719 </span> 68/push <span class="Constant">" ef gh\n"</span>/imm32 -<span id="L2720" class="LineNr">2720 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2721" class="LineNr">2721 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2722" class="LineNr">2722 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2723" class="LineNr">2723 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2724" class="LineNr">2724 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2725" class="LineNr">2725 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ij l1/disp32\n")</span> -<span id="L2726" class="LineNr">2726 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2727" class="LineNr">2727 </span> 68/push <span class="Constant">" ij l1/disp32\n"</span>/imm32 -<span id="L2728" class="LineNr">2728 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2681" class="LineNr">2681 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2682" class="LineNr">2682 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ef gh\n")</span> +<span id="L2683" class="LineNr">2683 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2684" class="LineNr">2684 </span> 68/push <span class="Constant">" ef gh\n"</span>/imm32 +<span id="L2685" class="LineNr">2685 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2686" class="LineNr">2686 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2687" class="LineNr">2687 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2688" class="LineNr">2688 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2689" class="LineNr">2689 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2690" class="LineNr">2690 </span> <span class="subxS1Comment"># . write(_test-input-stream, " e8 l1/disp32\n")</span> +<span id="L2691" class="LineNr">2691 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2692" class="LineNr">2692 </span> 68/push <span class="Constant">" e8 l1/disp32\n"</span>/imm32 +<span id="L2693" class="LineNr">2693 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2694" class="LineNr">2694 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2695" class="LineNr">2695 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2696" class="LineNr">2696 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2697" class="LineNr">2697 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2698" class="LineNr">2698 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "code", 2, 0x1056)</span> +<span id="L2699" class="LineNr">2699 </span> 68/push 0x1056/imm32/label-address +<span id="L2700" class="LineNr">2700 </span> 68/push 2/imm32/segment-offset +<span id="L2701" class="LineNr">2701 </span> <span class="subxS2Comment"># . . push "data"</span> +<span id="L2702" class="LineNr">2702 </span> 53/push-ebx +<span id="L2703" class="LineNr">2703 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2704" class="LineNr">2704 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2705" class="LineNr">2705 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2706" class="LineNr">2706 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2707" class="LineNr">2707 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2708" class="LineNr">2708 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2709" class="LineNr">2709 </span> <span class="subxS2Comment"># . . push "l1"</span> +<span id="L2710" class="LineNr">2710 </span> 53/push-ebx +<span id="L2711" class="LineNr">2711 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L2712" class="LineNr">2712 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2713" class="LineNr">2713 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2714" class="LineNr">2714 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2715" class="LineNr">2715 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2716" class="LineNr">2716 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2717" class="LineNr">2717 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L2718" class="LineNr">2718 </span> 52/push-edx +<span id="L2719" class="LineNr">2719 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2720" class="LineNr">2720 </span> e8/call <a href='survey_elf.subx.html#L3522'>stream-add6</a>/disp32 +<span id="L2721" class="LineNr">2721 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2722" class="LineNr">2722 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> +<span id="L2723" class="LineNr">2723 </span> <span class="subxComment"># component under test</span> +<span id="L2724" class="LineNr">2724 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L2725" class="LineNr">2725 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2726" class="LineNr">2726 </span> 52/push-edx +<span id="L2727" class="LineNr">2727 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2728" class="LineNr">2728 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2729" class="LineNr">2729 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2730" class="LineNr">2730 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L2730" class="LineNr">2730 </span> e8/call <a href='survey_elf.subx.html#L1848'>emit-segments</a>/disp32 <span id="L2731" class="LineNr">2731 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2732" class="LineNr">2732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2733" class="LineNr">2733 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "code", 2, 0x1056)</span> -<span id="L2734" class="LineNr">2734 </span> 68/push 0x1056/imm32/label-address -<span id="L2735" class="LineNr">2735 </span> 68/push 2/imm32/segment-offset -<span id="L2736" class="LineNr">2736 </span> <span class="subxS2Comment"># . . push "data"</span> -<span id="L2737" class="LineNr">2737 </span> 53/push-ebx -<span id="L2738" class="LineNr">2738 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L2739" class="LineNr">2739 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2740" class="LineNr">2740 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L2741" class="LineNr">2741 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2742" class="LineNr">2742 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2743" class="LineNr">2743 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2744" class="LineNr">2744 </span> <span class="subxS2Comment"># . . push "l1"</span> -<span id="L2745" class="LineNr">2745 </span> 53/push-ebx -<span id="L2746" class="LineNr">2746 </span> 68/push <span class="Constant">"l1"</span>/imm32 -<span id="L2747" class="LineNr">2747 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2748" class="LineNr">2748 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L2749" class="LineNr">2749 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2750" class="LineNr">2750 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2751" class="LineNr">2751 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2752" class="LineNr">2752 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L2753" class="LineNr">2753 </span> 52/push-edx -<span id="L2754" class="LineNr">2754 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2755" class="LineNr">2755 </span> e8/call <a href='survey.subx.html#L3501'>stream-add6</a>/disp32 -<span id="L2756" class="LineNr">2756 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2757" class="LineNr">2757 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> -<span id="L2758" class="LineNr">2758 </span> <span class="subxComment"># component under test</span> -<span id="L2759" class="LineNr">2759 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> -<span id="L2760" class="LineNr">2760 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2761" class="LineNr">2761 </span> 52/push-edx -<span id="L2762" class="LineNr">2762 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L2763" class="LineNr">2763 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2764" class="LineNr">2764 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2765" class="LineNr">2765 </span> e8/call <a href='survey.subx.html#L1823'>emit-segments</a>/disp32 -<span id="L2766" class="LineNr">2766 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2767" class="LineNr">2767 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2768" class="LineNr">2768 </span> <span class="subxComment"># checks</span> -<span id="L2769" class="LineNr">2769 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L2770" class="LineNr">2770 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2771" class="LineNr">2771 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L2772" class="LineNr">2772 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2773" class="LineNr">2773 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2774" class="LineNr">2774 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2775" class="LineNr">2775 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2776" class="Folded">2776 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L2809" class="LineNr">2809 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> -<span id="L2810" class="LineNr">2810 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2811" class="LineNr">2811 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2639'>test-emit-segments-code-label</a>/0"</span>/imm32 -<span id="L2812" class="LineNr">2812 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 -<span id="L2813" class="LineNr">2813 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2814" class="LineNr">2814 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2815" class="LineNr">2815 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2816" class="LineNr">2816 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2817" class="LineNr">2817 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2818" class="LineNr">2818 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> -<span id="L2819" class="LineNr">2819 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2820" class="LineNr">2820 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2639'>test-emit-segments-code-label</a>/1"</span>/imm32 -<span id="L2821" class="LineNr">2821 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 -<span id="L2822" class="LineNr">2822 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2823" class="LineNr">2823 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2824" class="LineNr">2824 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2825" class="LineNr">2825 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2826" class="LineNr">2826 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2827" class="LineNr">2827 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij f9 ff ff ff ", msg)</span> -<span id="L2828" class="LineNr">2828 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2829" class="LineNr">2829 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2639'>test-emit-segments-code-label</a>/2"</span>/imm32 -<span id="L2830" class="LineNr">2830 </span> 68/push <span class="Constant">"ij f9 ff ff ff "</span>/imm32 -<span id="L2831" class="LineNr">2831 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2832" class="LineNr">2832 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2833" class="LineNr">2833 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L2834" class="LineNr">2834 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2835" class="LineNr">2835 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2836" class="LineNr">2836 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L2837" class="LineNr">2837 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L2838" class="LineNr">2838 </span> 5d/pop-to-ebp -<span id="L2839" class="LineNr">2839 </span> c3/return -<span id="L2840" class="LineNr">2840 </span> -<span id="L2841" class="LineNr">2841 </span><span class="subxTest">test-emit-segments-code-label-absolute</span>: -<span id="L2842" class="LineNr">2842 </span> <span class="subxComment"># labels can also convert to absolute addresses</span> -<span id="L2843" class="LineNr">2843 </span> <span class="subxComment">#</span> -<span id="L2844" class="LineNr">2844 </span> <span class="subxComment"># input:</span> -<span id="L2845" class="LineNr">2845 </span> <span class="subxComment"># in:</span> -<span id="L2846" class="LineNr">2846 </span> <span class="subxComment"># == code 0x1000</span> -<span id="L2847" class="LineNr">2847 </span> <span class="subxComment"># ab cd</span> -<span id="L2848" class="LineNr">2848 </span> <span class="subxComment"># l1:</span> -<span id="L2849" class="LineNr">2849 </span> <span class="subxComment"># ef gh</span> -<span id="L2850" class="LineNr">2850 </span> <span class="subxComment"># ij l1/imm32</span> -<span id="L2851" class="LineNr">2851 </span> <span class="subxComment"># labels:</span> -<span id="L2852" class="LineNr">2852 </span> <span class="subxComment"># - 'l1': {'code', 2, 0x1056}</span> -<span id="L2853" class="LineNr">2853 </span> <span class="subxComment">#</span> -<span id="L2854" class="LineNr">2854 </span> <span class="subxComment"># output:</span> -<span id="L2855" class="LineNr">2855 </span> <span class="subxComment"># ab cd</span> -<span id="L2856" class="LineNr">2856 </span> <span class="subxComment"># ef gh</span> -<span id="L2857" class="LineNr">2857 </span> <span class="subxComment"># ij 56 10 00 00</span> -<span id="L2858" class="LineNr">2858 </span> <span class="subxComment">#</span> -<span id="L2859" class="LineNr">2859 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L2860" class="LineNr">2860 </span> 55/push-ebp -<span id="L2861" class="LineNr">2861 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L2862" class="LineNr">2862 </span> <span class="subxComment"># setup</span> -<span id="L2863" class="LineNr">2863 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L2864" class="LineNr">2864 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2865" class="LineNr">2865 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2866" class="LineNr">2866 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2867" class="LineNr">2867 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2868" class="LineNr">2868 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2869" class="LineNr">2869 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2870" class="LineNr">2870 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L2871" class="LineNr">2871 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2872" class="LineNr">2872 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L2873" class="LineNr">2873 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2874" class="LineNr">2874 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L2875" class="LineNr">2875 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2876" class="LineNr">2876 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2877" class="LineNr">2877 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> -<span id="L2878" class="LineNr">2878 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2879" class="LineNr">2879 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2732" class="LineNr">2732 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2733" class="LineNr">2733 </span> <span class="subxComment"># checks</span> +<span id="L2734" class="LineNr">2734 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L2735" class="LineNr">2735 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2736" class="LineNr">2736 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2737" class="LineNr">2737 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2738" class="LineNr">2738 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2739" class="LineNr">2739 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2740" class="LineNr">2740 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2741" class="Folded">2741 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2774" class="LineNr">2774 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L2775" class="LineNr">2775 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2776" class="LineNr">2776 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2604'>test-emit-segments-code-label</a>/0"</span>/imm32 +<span id="L2777" class="LineNr">2777 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L2778" class="LineNr">2778 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2779" class="LineNr">2779 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2780" class="LineNr">2780 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2781" class="LineNr">2781 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2782" class="LineNr">2782 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2783" class="LineNr">2783 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L2784" class="LineNr">2784 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2785" class="LineNr">2785 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2604'>test-emit-segments-code-label</a>/1"</span>/imm32 +<span id="L2786" class="LineNr">2786 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L2787" class="LineNr">2787 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2788" class="LineNr">2788 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2789" class="LineNr">2789 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2790" class="LineNr">2790 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2791" class="LineNr">2791 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2792" class="LineNr">2792 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "e8 f9 ff ff ff ", msg)</span> +<span id="L2793" class="LineNr">2793 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2794" class="LineNr">2794 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2604'>test-emit-segments-code-label</a>/2"</span>/imm32 +<span id="L2795" class="LineNr">2795 </span> 68/push <span class="Constant">"e8 f9 ff ff ff "</span>/imm32 +<span id="L2796" class="LineNr">2796 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2797" class="LineNr">2797 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2798" class="LineNr">2798 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2799" class="LineNr">2799 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2800" class="LineNr">2800 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2801" class="LineNr">2801 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L2802" class="LineNr">2802 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L2803" class="LineNr">2803 </span> 5d/pop-to-ebp +<span id="L2804" class="LineNr">2804 </span> c3/return +<span id="L2805" class="LineNr">2805 </span> +<span id="L2806" class="LineNr">2806 </span><span class="subxTest">test-emit-segments-code-label-absolute</span>: +<span id="L2807" class="LineNr">2807 </span> <span class="subxComment"># labels can also convert to absolute addresses</span> +<span id="L2808" class="LineNr">2808 </span> <span class="subxComment">#</span> +<span id="L2809" class="LineNr">2809 </span> <span class="subxComment"># input:</span> +<span id="L2810" class="LineNr">2810 </span> <span class="subxComment"># in:</span> +<span id="L2811" class="LineNr">2811 </span> <span class="subxComment"># == code 0x1000</span> +<span id="L2812" class="LineNr">2812 </span> <span class="subxComment"># ab cd</span> +<span id="L2813" class="LineNr">2813 </span> <span class="subxComment"># l1:</span> +<span id="L2814" class="LineNr">2814 </span> <span class="subxComment"># ef gh</span> +<span id="L2815" class="LineNr">2815 </span> <span class="subxComment"># ij l1/imm32</span> +<span id="L2816" class="LineNr">2816 </span> <span class="subxComment"># labels:</span> +<span id="L2817" class="LineNr">2817 </span> <span class="subxComment"># - 'l1': {'code', 2, 0x1056}</span> +<span id="L2818" class="LineNr">2818 </span> <span class="subxComment">#</span> +<span id="L2819" class="LineNr">2819 </span> <span class="subxComment"># output:</span> +<span id="L2820" class="LineNr">2820 </span> <span class="subxComment"># ab cd</span> +<span id="L2821" class="LineNr">2821 </span> <span class="subxComment"># ef gh</span> +<span id="L2822" class="LineNr">2822 </span> <span class="subxComment"># ij 56 10 00 00</span> +<span id="L2823" class="LineNr">2823 </span> <span class="subxComment">#</span> +<span id="L2824" class="LineNr">2824 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L2825" class="LineNr">2825 </span> 55/push-ebp +<span id="L2826" class="LineNr">2826 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L2827" class="LineNr">2827 </span> <span class="subxComment"># setup</span> +<span id="L2828" class="LineNr">2828 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L2829" class="LineNr">2829 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2830" class="LineNr">2830 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2831" class="LineNr">2831 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2832" class="LineNr">2832 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2833" class="LineNr">2833 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2834" class="LineNr">2834 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2835" class="LineNr">2835 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L2836" class="LineNr">2836 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2837" class="LineNr">2837 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2838" class="LineNr">2838 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2839" class="LineNr">2839 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2840" class="LineNr">2840 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2841" class="LineNr">2841 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2842" class="LineNr">2842 </span> <span class="subxS1Comment"># . clear-stream($_test-output-buffered-file->buffer)</span> +<span id="L2843" class="LineNr">2843 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2844" class="LineNr">2844 </span> 68/push $_test-output-buffered-file->buffer/imm32 +<span id="L2845" class="LineNr">2845 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2846" class="LineNr">2846 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2847" class="LineNr">2847 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2848" class="LineNr">2848 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2849" class="LineNr">2849 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> +<span id="L2850" class="LineNr">2850 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> +<span id="L2851" class="LineNr">2851 </span> 68/push 0xc0/imm32/size +<span id="L2852" class="LineNr">2852 </span> 68/push 0/imm32/read +<span id="L2853" class="LineNr">2853 </span> 68/push 0/imm32/write +<span id="L2854" class="LineNr">2854 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L2855" class="LineNr">2855 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> +<span id="L2856" class="LineNr">2856 </span> 68/push 0/imm32 +<span id="L2857" class="LineNr">2857 </span> 68/push 0/imm32 +<span id="L2858" class="LineNr">2858 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L2859" class="LineNr">2859 </span> <span class="subxComment"># initialize input</span> +<span id="L2860" class="LineNr">2860 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> +<span id="L2861" class="LineNr">2861 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2862" class="LineNr">2862 </span> 68/push <span class="Constant">"== code 0x1000\n"</span>/imm32 +<span id="L2863" class="LineNr">2863 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2864" class="LineNr">2864 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2865" class="LineNr">2865 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2866" class="LineNr">2866 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2867" class="LineNr">2867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2868" class="LineNr">2868 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> +<span id="L2869" class="LineNr">2869 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2870" class="LineNr">2870 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 +<span id="L2871" class="LineNr">2871 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2872" class="LineNr">2872 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2873" class="LineNr">2873 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2874" class="LineNr">2874 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2875" class="LineNr">2875 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2876" class="LineNr">2876 </span> <span class="subxS1Comment"># . write(_test-input-stream, "l1:\n")</span> +<span id="L2877" class="LineNr">2877 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2878" class="LineNr">2878 </span> 68/push <span class="Constant">"l1:\n"</span>/imm32 +<span id="L2879" class="LineNr">2879 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2880" class="LineNr">2880 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2881" class="LineNr">2881 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L2881" class="LineNr">2881 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L2882" class="LineNr">2882 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2883" class="LineNr">2883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2884" class="LineNr">2884 </span> <span class="subxS1Comment"># . var labels/edx: (stream byte 8*24)</span> -<span id="L2885" class="LineNr">2885 </span> 81 5/subop/subtract 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc0/imm32 <span class="subxComment"># subtract from esp</span> -<span id="L2886" class="LineNr">2886 </span> 68/push 0xc0/imm32/size -<span id="L2887" class="LineNr">2887 </span> 68/push 0/imm32/read -<span id="L2888" class="LineNr">2888 </span> 68/push 0/imm32/write -<span id="L2889" class="LineNr">2889 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L2890" class="LineNr">2890 </span> <span class="subxS1Comment"># . var h/ebx: (handle array byte)</span> -<span id="L2891" class="LineNr">2891 </span> 68/push 0/imm32 -<span id="L2892" class="LineNr">2892 </span> 68/push 0/imm32 -<span id="L2893" class="LineNr">2893 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L2894" class="LineNr">2894 </span> <span class="subxComment"># initialize input</span> -<span id="L2895" class="LineNr">2895 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== code 0x1000\n")</span> -<span id="L2896" class="LineNr">2896 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2897" class="LineNr">2897 </span> 68/push <span class="Constant">"== code 0x1000\n"</span>/imm32 -<span id="L2898" class="LineNr">2898 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2899" class="LineNr">2899 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2900" class="LineNr">2900 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2901" class="LineNr">2901 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2902" class="LineNr">2902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2903" class="LineNr">2903 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd\n")</span> -<span id="L2904" class="LineNr">2904 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2905" class="LineNr">2905 </span> 68/push <span class="Constant">"ab cd\n"</span>/imm32 -<span id="L2906" class="LineNr">2906 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2907" class="LineNr">2907 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2908" class="LineNr">2908 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2909" class="LineNr">2909 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2910" class="LineNr">2910 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2911" class="LineNr">2911 </span> <span class="subxS1Comment"># . write(_test-input-stream, "l1:\n")</span> -<span id="L2912" class="LineNr">2912 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2913" class="LineNr">2913 </span> 68/push <span class="Constant">"l1:\n"</span>/imm32 -<span id="L2914" class="LineNr">2914 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2915" class="LineNr">2915 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2916" class="LineNr">2916 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2917" class="LineNr">2917 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2918" class="LineNr">2918 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2919" class="LineNr">2919 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ef gh\n")</span> -<span id="L2920" class="LineNr">2920 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2921" class="LineNr">2921 </span> 68/push <span class="Constant">" ef gh\n"</span>/imm32 -<span id="L2922" class="LineNr">2922 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2923" class="LineNr">2923 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2924" class="LineNr">2924 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L2925" class="LineNr">2925 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2926" class="LineNr">2926 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2927" class="LineNr">2927 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ij l1/imm32\n")</span> -<span id="L2928" class="LineNr">2928 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2929" class="LineNr">2929 </span> 68/push <span class="Constant">" ij l1/imm32\n"</span>/imm32 -<span id="L2930" class="LineNr">2930 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2883" class="LineNr">2883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2884" class="LineNr">2884 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ef gh\n")</span> +<span id="L2885" class="LineNr">2885 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2886" class="LineNr">2886 </span> 68/push <span class="Constant">" ef gh\n"</span>/imm32 +<span id="L2887" class="LineNr">2887 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2888" class="LineNr">2888 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2889" class="LineNr">2889 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2890" class="LineNr">2890 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2891" class="LineNr">2891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2892" class="LineNr">2892 </span> <span class="subxS1Comment"># . write(_test-input-stream, " ij l1/imm32\n")</span> +<span id="L2893" class="LineNr">2893 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2894" class="LineNr">2894 </span> 68/push <span class="Constant">" ij l1/imm32\n"</span>/imm32 +<span id="L2895" class="LineNr">2895 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L2896" class="LineNr">2896 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2897" class="LineNr">2897 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L2898" class="LineNr">2898 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2899" class="LineNr">2899 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L2900" class="LineNr">2900 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "code", 2, 0x1056)</span> +<span id="L2901" class="LineNr">2901 </span> 68/push 0x1056/imm32/label-address +<span id="L2902" class="LineNr">2902 </span> 68/push 2/imm32/segment-offset +<span id="L2903" class="LineNr">2903 </span> <span class="subxS2Comment"># . . push "data"</span> +<span id="L2904" class="LineNr">2904 </span> 53/push-ebx +<span id="L2905" class="LineNr">2905 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L2906" class="LineNr">2906 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2907" class="LineNr">2907 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2908" class="LineNr">2908 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2909" class="LineNr">2909 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2910" class="LineNr">2910 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2911" class="LineNr">2911 </span> <span class="subxS2Comment"># . . push "l1"</span> +<span id="L2912" class="LineNr">2912 </span> 53/push-ebx +<span id="L2913" class="LineNr">2913 </span> 68/push <span class="Constant">"l1"</span>/imm32 +<span id="L2914" class="LineNr">2914 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L2915" class="LineNr">2915 </span> e8/call <a href='120allocate.subx.html#L720'>copy-array</a>/disp32 +<span id="L2916" class="LineNr">2916 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2917" class="LineNr">2917 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> +<span id="L2918" class="LineNr">2918 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> +<span id="L2919" class="LineNr">2919 </span> <span class="subxS2Comment"># . . push labels</span> +<span id="L2920" class="LineNr">2920 </span> 52/push-edx +<span id="L2921" class="LineNr">2921 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2922" class="LineNr">2922 </span> e8/call <a href='survey_elf.subx.html#L3522'>stream-add6</a>/disp32 +<span id="L2923" class="LineNr">2923 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2924" class="LineNr">2924 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> +<span id="L2925" class="LineNr">2925 </span> <span class="subxComment"># component under test</span> +<span id="L2926" class="LineNr">2926 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> +<span id="L2927" class="LineNr">2927 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2928" class="LineNr">2928 </span> 52/push-edx +<span id="L2929" class="LineNr">2929 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2930" class="LineNr">2930 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 <span id="L2931" class="LineNr">2931 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2932" class="LineNr">2932 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L2932" class="LineNr">2932 </span> e8/call <a href='survey_elf.subx.html#L1848'>emit-segments</a>/disp32 <span id="L2933" class="LineNr">2933 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2934" class="LineNr">2934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L2935" class="LineNr">2935 </span> <span class="subxS1Comment"># . stream-add6(labels, "l1", "code", 2, 0x1056)</span> -<span id="L2936" class="LineNr">2936 </span> 68/push 0x1056/imm32/label-address -<span id="L2937" class="LineNr">2937 </span> 68/push 2/imm32/segment-offset -<span id="L2938" class="LineNr">2938 </span> <span class="subxS2Comment"># . . push "data"</span> -<span id="L2939" class="LineNr">2939 </span> 53/push-ebx -<span id="L2940" class="LineNr">2940 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L2941" class="LineNr">2941 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2942" class="LineNr">2942 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L2943" class="LineNr">2943 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2944" class="LineNr">2944 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2945" class="LineNr">2945 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2946" class="LineNr">2946 </span> <span class="subxS2Comment"># . . push "l1"</span> -<span id="L2947" class="LineNr">2947 </span> 53/push-ebx -<span id="L2948" class="LineNr">2948 </span> 68/push <span class="Constant">"l1"</span>/imm32 -<span id="L2949" class="LineNr">2949 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L2950" class="LineNr">2950 </span> e8/call <a href='../120allocate.subx.html#L710'>copy-array</a>/disp32 -<span id="L2951" class="LineNr">2951 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2952" class="LineNr">2952 </span> ff 6/subop/push 1/mod/*+disp8 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebx+4)</span> -<span id="L2953" class="LineNr">2953 </span> ff 6/subop/push 0/mod/indirect 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *ebx</span> -<span id="L2954" class="LineNr">2954 </span> <span class="subxS2Comment"># . . push labels</span> -<span id="L2955" class="LineNr">2955 </span> 52/push-edx -<span id="L2956" class="LineNr">2956 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2957" class="LineNr">2957 </span> e8/call <a href='survey.subx.html#L3501'>stream-add6</a>/disp32 -<span id="L2958" class="LineNr">2958 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2959" class="LineNr">2959 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x1c/imm32 <span class="subxComment"># add to esp</span> -<span id="L2960" class="LineNr">2960 </span> <span class="subxComment"># component under test</span> -<span id="L2961" class="LineNr">2961 </span> <span class="subxS1Comment"># . emit-segments(_test-input-stream, _test-output-buffered-file, labels)</span> -<span id="L2962" class="LineNr">2962 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2963" class="LineNr">2963 </span> 52/push-edx -<span id="L2964" class="LineNr">2964 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L2965" class="LineNr">2965 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L2966" class="LineNr">2966 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2967" class="LineNr">2967 </span> e8/call <a href='survey.subx.html#L1823'>emit-segments</a>/disp32 -<span id="L2968" class="LineNr">2968 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2969" class="LineNr">2969 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L2970" class="LineNr">2970 </span> <span class="subxComment"># checks</span> -<span id="L2971" class="LineNr">2971 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> -<span id="L2972" class="LineNr">2972 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L2973" class="LineNr">2973 </span> 68/push <a href='../115write-byte.subx.html#L423'>_test-output-buffered-file</a>/imm32 -<span id="L2974" class="LineNr">2974 </span> <span class="subxS2Comment"># . . call</span> -<span id="L2975" class="LineNr">2975 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 -<span id="L2976" class="LineNr">2976 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L2977" class="LineNr">2977 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L2978" class="Folded">2978 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3011" class="LineNr">3011 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> -<span id="L3012" class="LineNr">3012 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3013" class="LineNr">3013 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2841'>test-emit-segments-code-label-absolute</a>/0"</span>/imm32 -<span id="L3014" class="LineNr">3014 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 -<span id="L3015" class="LineNr">3015 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3016" class="LineNr">3016 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3017" class="LineNr">3017 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L3018" class="LineNr">3018 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3019" class="LineNr">3019 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3020" class="LineNr">3020 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> -<span id="L3021" class="LineNr">3021 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3022" class="LineNr">3022 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2841'>test-emit-segments-code-label-absolute</a>/1"</span>/imm32 -<span id="L3023" class="LineNr">3023 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 -<span id="L3024" class="LineNr">3024 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3025" class="LineNr">3025 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3026" class="LineNr">3026 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L3027" class="LineNr">3027 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3028" class="LineNr">3028 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3029" class="LineNr">3029 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij f9 ff ff ff ", msg)</span> -<span id="L3030" class="LineNr">3030 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3031" class="LineNr">3031 </span> 68/push <span class="Constant">"F - <a href='survey.subx.html#L2841'>test-emit-segments-code-label-absolute</a>/2"</span>/imm32 -<span id="L3032" class="LineNr">3032 </span> 68/push <span class="Constant">"ij 56 10 00 00 "</span>/imm32 -<span id="L3033" class="LineNr">3033 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L3034" class="LineNr">3034 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3035" class="LineNr">3035 </span> e8/call <a href='../109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 -<span id="L3036" class="LineNr">3036 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3037" class="LineNr">3037 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3038" class="LineNr">3038 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3039" class="LineNr">3039 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3040" class="LineNr">3040 </span> 5d/pop-to-ebp -<span id="L3041" class="LineNr">3041 </span> c3/return -<span id="L3042" class="LineNr">3042 </span> -<span id="L3043" class="LineNr">3043 </span><span class="subxFunction">emit-headers</span>: <span class="subxComment"># out: (addr buffered-file), segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> -<span id="L3044" class="LineNr">3044 </span> <span class="subxComment"># pseudocode:</span> -<span id="L3045" class="LineNr">3045 </span> <span class="subxComment"># emit-elf-header(out, segments, labels)</span> -<span id="L3046" class="LineNr">3046 </span> <span class="subxComment"># var curr-segment-row: (addr handle array byte) = segments->data</span> -<span id="L3047" class="LineNr">3047 </span> <span class="subxComment"># max = &segments->data[segments->write]</span> -<span id="L3048" class="LineNr">3048 </span> <span class="subxComment"># while true</span> -<span id="L3049" class="LineNr">3049 </span> <span class="subxComment"># if (curr-segment >= max) break</span> -<span id="L3050" class="LineNr">3050 </span> <span class="subxComment"># emit-elf-program-header-entry(out, curr-segment-row)</span> -<span id="L3051" class="LineNr">3051 </span> <span class="subxComment"># curr-segment-row += 20 # size of a row</span> -<span id="L3052" class="LineNr">3052 </span> <span class="subxComment">#</span> -<span id="L3053" class="LineNr">3053 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3054" class="LineNr">3054 </span> 55/push-ebp -<span id="L3055" class="LineNr">3055 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3056" class="LineNr">3056 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3057" class="LineNr">3057 </span> 50/push-eax -<span id="L3058" class="LineNr">3058 </span> 51/push-ecx -<span id="L3059" class="LineNr">3059 </span> <span class="subxComment"># emit-elf-header(out, segments, labels)</span> -<span id="L3060" class="LineNr">3060 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3061" class="LineNr">3061 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L3062" class="LineNr">3062 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3063" class="LineNr">3063 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3064" class="LineNr">3064 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3065" class="LineNr">3065 </span> e8/call <a href='survey.subx.html#L3172'>emit-elf-header</a>/disp32 -<span id="L3066" class="LineNr">3066 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3067" class="LineNr">3067 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L3068" class="LineNr">3068 </span> <span class="subxComment"># eax = segments</span> -<span id="L3069" class="LineNr">3069 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L3070" class="LineNr">3070 </span> <span class="subxComment"># ecx = segments->write</span> -<span id="L3071" class="LineNr">3071 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L3072" class="LineNr">3072 </span> <span class="subxComment"># curr-segment/eax = segments->data</span> -<span id="L3073" class="LineNr">3073 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+12 to eax</span> -<span id="L3074" class="LineNr">3074 </span> <span class="subxComment"># max/ecx = &segments->data[segments->write]</span> -<span id="L3075" class="LineNr">3075 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> -<span id="L3076" class="LineNr">3076 </span><span class="Constant">$emit-headers:loop</span>: -<span id="L3077" class="LineNr">3077 </span> <span class="subxComment"># if (curr-segment >= max) break</span> -<span id="L3078" class="LineNr">3078 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> -<span id="L3079" class="LineNr">3079 </span> 0f 83/jump-if-addr>= $emit-headers:end/disp32 -<span id="L3080" class="Folded">3080 </span><span class="Folded">+-- 63 lines: #? # dump curr-segment->name ------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3143" class="Folded">3143 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segment-header\n") -------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3152" class="LineNr">3152 </span> <span class="subxComment"># emit-elf-program-header-entry(out, curr-segment)</span> -<span id="L3153" class="LineNr">3153 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3154" class="LineNr">3154 </span> 50/push-eax -<span id="L3155" class="LineNr">3155 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3156" class="LineNr">3156 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3157" class="LineNr">3157 </span> e8/call <a href='survey.subx.html#L3242'>emit-elf-program-header-entry</a>/disp32 -<span id="L3158" class="LineNr">3158 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3159" class="LineNr">3159 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3160" class="LineNr">3160 </span> <span class="subxComment"># curr-segment += 20 # size of a row</span> -<span id="L3161" class="LineNr">3161 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to eax</span> -<span id="L3162" class="LineNr">3162 </span> e9/jump $emit-headers:<span class="Constant">loop</span>/disp32 -<span id="L3163" class="LineNr">3163 </span><span class="Constant">$emit-headers:end</span>: -<span id="L3164" class="LineNr">3164 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3165" class="LineNr">3165 </span> 59/pop-to-ecx -<span id="L3166" class="LineNr">3166 </span> 58/pop-to-eax -<span id="L3167" class="LineNr">3167 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3168" class="LineNr">3168 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3169" class="LineNr">3169 </span> 5d/pop-to-ebp -<span id="L3170" class="LineNr">3170 </span> c3/return -<span id="L3171" class="LineNr">3171 </span> -<span id="L3172" class="LineNr">3172 </span><span class="subxFunction">emit-elf-header</span>: <span class="subxComment"># out: (addr buffered-file), segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> -<span id="L3173" class="LineNr">3173 </span> <span class="subxComment"># pseudocode</span> -<span id="L3174" class="LineNr">3174 </span> <span class="subxComment"># *$Elf_e_entry = get(labels, "Entry")->address</span> -<span id="L3175" class="LineNr">3175 </span> <span class="subxComment"># *$Elf_e_phnum = segments->write / 20 # size of a row</span> -<span id="L3176" class="LineNr">3176 </span> <span class="subxComment"># emit-hex-array(out, Elf_header)</span> -<span id="L3177" class="LineNr">3177 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L3178" class="LineNr">3178 </span> <span class="subxComment">#</span> -<span id="L3179" class="LineNr">3179 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3180" class="LineNr">3180 </span> 55/push-ebp -<span id="L3181" class="LineNr">3181 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3182" class="LineNr">3182 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3183" class="LineNr">3183 </span> 50/push-eax -<span id="L3184" class="LineNr">3184 </span> 51/push-ecx -<span id="L3185" class="LineNr">3185 </span> 52/push-edx <span class="subxComment"># just because we need to call idiv</span> -<span id="L3186" class="LineNr">3186 </span> <span class="subxComment"># *$Elf_e_entry = get(labels, "Entry")->address</span> -<span id="L3187" class="LineNr">3187 </span> <span class="subxS1Comment"># . eax = labels</span> -<span id="L3188" class="LineNr">3188 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> -<span id="L3189" class="LineNr">3189 </span> <span class="subxS1Comment"># . label-info/eax = get(labels, "Entry", row-size=24, "label table")</span> -<span id="L3190" class="LineNr">3190 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3191" class="LineNr">3191 </span> 68/push <span class="Constant">"label table"</span>/imm32 -<span id="L3192" class="LineNr">3192 </span> 68/push 0x18/imm32/row-size -<span id="L3193" class="LineNr">3193 </span> 68/push <span class="Constant">"Entry"</span>/imm32 -<span id="L3194" class="LineNr">3194 </span> 50/push-eax -<span id="L3195" class="LineNr">3195 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3196" class="LineNr">3196 </span> e8/call <a href='../131table.subx.html#L26'>get</a>/disp32 -<span id="L3197" class="LineNr">3197 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3198" class="LineNr">3198 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> -<span id="L3199" class="LineNr">3199 </span> <span class="subxS1Comment"># . eax = label-info->address</span> -<span id="L3200" class="LineNr">3200 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+12) to eax</span> -<span id="L3201" class="LineNr">3201 </span> <span class="subxS1Comment"># . *$Elf_e_entry = eax</span> -<span id="L3202" class="LineNr">3202 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_e_entry/disp32 <span class="subxComment"># copy eax to *$Elf_e_entry</span> -<span id="L3203" class="LineNr">3203 </span> <span class="subxComment"># *$Elf_e_phnum = segments->write / 20</span> -<span id="L3204" class="LineNr">3204 </span> <span class="subxS1Comment"># . eax = segments</span> -<span id="L3205" class="LineNr">3205 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> -<span id="L3206" class="LineNr">3206 </span> <span class="subxS1Comment"># . len/eax = segments->write</span> -<span id="L3207" class="LineNr">3207 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to eax</span> -<span id="L3208" class="LineNr">3208 </span> <span class="subxS1Comment"># . eax = len / 20 (clobbering ecx and edx)</span> -<span id="L3209" class="LineNr">3209 </span> b9/copy-to-ecx 0x14/imm32 -<span id="L3210" class="LineNr">3210 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> -<span id="L3211" class="LineNr">3211 </span> f7 7/subop/idiv 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># divide edx:eax by ecx, storing quotient in eax and remainder in edx</span> -<span id="L3212" class="LineNr">3212 </span> <span class="subxS1Comment"># . *$Elf_e_phnum = eax</span> -<span id="L3213" class="LineNr">3213 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_e_phnum/disp32 <span class="subxComment"># copy eax to *$Elf_e_phnum</span> -<span id="L3214" class="LineNr">3214 </span> <span class="subxComment"># emit-hex-array(out, Elf_header)</span> -<span id="L3215" class="LineNr">3215 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3216" class="LineNr">3216 </span> 68/push <span class="SpecialChar"><a href='survey.subx.html#L4718'>Elf_header</a></span>/imm32 -<span id="L3217" class="LineNr">3217 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3218" class="LineNr">3218 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3219" class="LineNr">3219 </span> e8/call <a href='../134emit-hex-array.subx.html#L7'>emit-hex-array</a>/disp32 -<span id="L3220" class="LineNr">3220 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3221" class="LineNr">3221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3222" class="LineNr">3222 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L3223" class="LineNr">3223 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3224" class="LineNr">3224 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L3225" class="LineNr">3225 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3226" class="LineNr">3226 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3227" class="LineNr">3227 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3228" class="LineNr">3228 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3229" class="LineNr">3229 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3230" class="LineNr">3230 </span><span class="Constant">$emit-elf-header:end</span>: -<span id="L3231" class="LineNr">3231 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3232" class="LineNr">3232 </span> 5a/pop-to-edx -<span id="L3233" class="LineNr">3233 </span> 59/pop-to-ecx -<span id="L3234" class="LineNr">3234 </span> 58/pop-to-eax -<span id="L3235" class="LineNr">3235 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3236" class="LineNr">3236 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3237" class="LineNr">3237 </span> 5d/pop-to-ebp -<span id="L3238" class="LineNr">3238 </span> c3/return -<span id="L3239" class="LineNr">3239 </span> -<span id="L3240" class="LineNr">3240 </span><span class="subxComment"># segment-info: {address, file-offset, size} (12 bytes)</span> -<span id="L3241" class="LineNr">3241 </span><span class="subxComment"># segments: (addr stream {(handle array byte), segment-info}) (20 bytes per row)</span> -<span id="L3242" class="LineNr">3242 </span><span class="subxFunction">emit-elf-program-header-entry</span>: <span class="subxComment"># out: (addr buffered-file), curr-segment: (addr {(handle array byte), segment-info})</span> -<span id="L3243" class="LineNr">3243 </span> <span class="subxComment"># pseudocode:</span> -<span id="L3244" class="LineNr">3244 </span> <span class="subxComment"># *$Elf_p_offset = curr-segment->file-offset</span> -<span id="L3245" class="LineNr">3245 </span> <span class="subxComment"># *$Elf_p_vaddr = curr-segment->address</span> -<span id="L3246" class="LineNr">3246 </span> <span class="subxComment"># *$Elf_p_paddr = curr-segment->address</span> -<span id="L3247" class="LineNr">3247 </span> <span class="subxComment"># *$Elf_p_filesz = curr-segment->size</span> -<span id="L3248" class="LineNr">3248 </span> <span class="subxComment"># *$Elf_p_memsz = curr-segment->size</span> -<span id="L3249" class="LineNr">3249 </span> <span class="subxComment"># if curr-segment->name == "code"</span> -<span id="L3250" class="LineNr">3250 </span> <span class="subxComment"># *$Elf_p_flags = 5 # r-x</span> -<span id="L3251" class="LineNr">3251 </span> <span class="subxComment"># else</span> -<span id="L3252" class="LineNr">3252 </span> <span class="subxComment"># *$Elf_p_flags = 6 # rw-</span> -<span id="L3253" class="LineNr">3253 </span> <span class="subxComment"># emit-hex-array(out, Elf_program_header_entry)</span> -<span id="L3254" class="LineNr">3254 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L3255" class="LineNr">3255 </span> <span class="subxComment">#</span> -<span id="L3256" class="LineNr">3256 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3257" class="LineNr">3257 </span> 55/push-ebp -<span id="L3258" class="LineNr">3258 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3259" class="LineNr">3259 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3260" class="LineNr">3260 </span> 50/push-eax -<span id="L3261" class="LineNr">3261 </span> 56/push-esi -<span id="L3262" class="LineNr">3262 </span> <span class="subxComment"># esi = curr-segment</span> -<span id="L3263" class="LineNr">3263 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> -<span id="L3264" class="LineNr">3264 </span> <span class="subxComment"># *$Elf_p_offset = curr-segment->file-offset</span> -<span id="L3265" class="LineNr">3265 </span> <span class="subxS1Comment"># . eax = curr-segment->file-offset</span> -<span id="L3266" class="LineNr">3266 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+12) to eax</span> -<span id="L3267" class="LineNr">3267 </span> <span class="subxS1Comment"># . *$Elf_p_offset = eax</span> -<span id="L3268" class="LineNr">3268 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_offset/disp32 <span class="subxComment"># copy eax to *$Elf_p_offset</span> -<span id="L3269" class="LineNr">3269 </span> <span class="subxComment"># *$Elf_p_vaddr = curr-segment->address</span> -<span id="L3270" class="LineNr">3270 </span> <span class="subxS1Comment"># . eax = curr-segment->address</span> -<span id="L3271" class="LineNr">3271 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to eax</span> -<span id="L3272" class="LineNr">3272 </span> <span class="subxS1Comment"># . *$Elf_p_vaddr = eax</span> -<span id="L3273" class="LineNr">3273 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_vaddr/disp32 <span class="subxComment"># copy eax to *$Elf_p_vaddr</span> -<span id="L3274" class="LineNr">3274 </span> <span class="subxComment"># *$Elf_p_paddr = curr-segment->address</span> -<span id="L3275" class="LineNr">3275 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_paddr/disp32 <span class="subxComment"># copy eax to *$Elf_p_paddr</span> -<span id="L3276" class="LineNr">3276 </span> <span class="subxComment"># *$Elf_p_filesz = curr-segment->size</span> -<span id="L3277" class="LineNr">3277 </span> <span class="subxS1Comment"># . eax = curr-segment->size</span> -<span id="L3278" class="LineNr">3278 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+16) to eax</span> -<span id="L3279" class="LineNr">3279 </span> <span class="subxS1Comment"># . *$Elf_p_filesz = eax</span> -<span id="L3280" class="LineNr">3280 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_filesz/disp32 <span class="subxComment"># copy eax to *$Elf_p_filesz</span> -<span id="L3281" class="LineNr">3281 </span> <span class="subxComment"># *$Elf_p_memsz = curr-segment->size</span> -<span id="L3282" class="LineNr">3282 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_memsz/disp32 <span class="subxComment"># copy eax to *$Elf_p_memsz</span> -<span id="L3283" class="LineNr">3283 </span> <span class="subxComment"># if (!string-equal?(name, "code") goto next check</span> -<span id="L3284" class="LineNr">3284 </span> <span class="subxS1Comment"># . var name/eax: (addr array byte) = lookup(curr-segment->name)</span> -<span id="L3285" class="LineNr">3285 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3286" class="LineNr">3286 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> -<span id="L3287" class="LineNr">3287 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> -<span id="L3288" class="LineNr">3288 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3289" class="LineNr">3289 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 -<span id="L3290" class="LineNr">3290 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3291" class="LineNr">3291 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3292" class="LineNr">3292 </span> <span class="subxS1Comment"># . eax = string-equal?(name, "code")</span> -<span id="L3293" class="LineNr">3293 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3294" class="LineNr">3294 </span> 68/push <span class="Constant">"code"</span>/imm32 -<span id="L3295" class="LineNr">3295 </span> 50/push-eax -<span id="L3296" class="LineNr">3296 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3297" class="LineNr">3297 </span> e8/call <a href='../105string-equal.subx.html#L15'>string-equal?</a>/disp32 -<span id="L3298" class="LineNr">3298 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3299" class="LineNr">3299 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3300" class="LineNr">3300 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> -<span id="L3301" class="LineNr">3301 </span> 3d/compare-eax-and 0/imm32/false -<span id="L3302" class="LineNr">3302 </span> 74/jump-if-= $emit-elf-program-header-entry:data/disp8 -<span id="L3303" class="LineNr">3303 </span> <span class="subxComment"># *$Elf_p_flags = r-x</span> -<span id="L3304" class="LineNr">3304 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> $Elf_p_flags/disp32 5/imm32 <span class="subxComment"># copy to *$Elf_p_flags</span> -<span id="L3305" class="LineNr">3305 </span> eb/jump $emit-elf-program-header-entry:really-emit/disp8 -<span id="L3306" class="LineNr">3306 </span><span class="Constant">$emit-elf-program-header-entry:data</span>: -<span id="L3307" class="LineNr">3307 </span> <span class="subxComment"># otherwise *$Elf_p_flags = rw-</span> -<span id="L3308" class="LineNr">3308 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> $Elf_p_flags/disp32 6/imm32 <span class="subxComment"># copy to *$Elf_p_flags</span> -<span id="L3309" class="LineNr">3309 </span><span class="Constant">$emit-elf-program-header-entry:really-emit</span>: -<span id="L3310" class="LineNr">3310 </span> <span class="subxComment"># emit-hex-array(out, Elf_program_header_entry)</span> -<span id="L3311" class="LineNr">3311 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3312" class="LineNr">3312 </span> 68/push <span class="SpecialChar"><a href='survey.subx.html#L4756'>Elf_program_header_entry</a></span>/imm32 -<span id="L3313" class="LineNr">3313 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3315" class="LineNr">3315 </span> e8/call <a href='../134emit-hex-array.subx.html#L7'>emit-hex-array</a>/disp32 -<span id="L3316" class="LineNr">3316 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3317" class="LineNr">3317 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3318" class="LineNr">3318 </span> <span class="subxComment"># write-buffered(out, "\n")</span> -<span id="L3319" class="LineNr">3319 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3320" class="LineNr">3320 </span> 68/push <span class="SpecialChar"><a href='../102test.subx.html#L82'>Newline</a></span>/imm32 -<span id="L3321" class="LineNr">3321 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3322" class="LineNr">3322 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3323" class="LineNr">3323 </span> e8/call <a href='../116write-buffered.subx.html#L8'>write-buffered</a>/disp32 -<span id="L3324" class="LineNr">3324 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3325" class="LineNr">3325 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3326" class="LineNr">3326 </span><span class="Constant">$emit-elf-program-header-entry:end</span>: -<span id="L3327" class="LineNr">3327 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3328" class="LineNr">3328 </span> 5e/pop-to-esi -<span id="L3329" class="LineNr">3329 </span> 58/pop-to-eax -<span id="L3330" class="LineNr">3330 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3331" class="LineNr">3331 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3332" class="LineNr">3332 </span> 5d/pop-to-ebp -<span id="L3333" class="LineNr">3333 </span> c3/return -<span id="L3334" class="LineNr">3334 </span> -<span id="L3335" class="LineNr">3335 </span><span class="subxH1Comment"># - some helpers for tests</span> -<span id="L3336" class="LineNr">3336 </span> -<span id="L3337" class="LineNr">3337 </span><span class="subxFunction">stream-add4</span>: <span class="subxComment"># in: (addr stream byte), key: addr, val1: addr, val2: addr, val3: addr</span> -<span id="L3338" class="LineNr">3338 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3339" class="LineNr">3339 </span> 55/push-ebp -<span id="L3340" class="LineNr">3340 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3341" class="LineNr">3341 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3342" class="LineNr">3342 </span> 50/push-eax -<span id="L3343" class="LineNr">3343 </span> 51/push-ecx -<span id="L3344" class="LineNr">3344 </span> 52/push-edx -<span id="L3345" class="LineNr">3345 </span> 56/push-esi -<span id="L3346" class="LineNr">3346 </span> <span class="subxComment"># esi = in</span> -<span id="L3347" class="LineNr">3347 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L3348" class="LineNr">3348 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> -<span id="L3349" class="LineNr">3349 </span> <span class="subxS1Comment"># . eax = in->write</span> -<span id="L3350" class="LineNr">3350 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L3351" class="LineNr">3351 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> -<span id="L3352" class="LineNr">3352 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> -<span id="L3353" class="LineNr">3353 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> -<span id="L3354" class="LineNr">3354 </span> <span class="subxS1Comment"># . edx = in->size</span> -<span id="L3355" class="LineNr">3355 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> -<span id="L3356" class="LineNr">3356 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> -<span id="L3357" class="LineNr">3357 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> -<span id="L3358" class="LineNr">3358 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3359" class="LineNr">3359 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3360" class="LineNr">3360 </span> 73/jump-if-addr>= $stream-add4:abort/disp8 -<span id="L3361" class="LineNr">3361 </span> <span class="subxComment"># *curr = key</span> -<span id="L3362" class="LineNr">3362 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L3363" class="LineNr">3363 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3364" class="LineNr">3364 </span> <span class="subxComment"># curr += 4</span> -<span id="L3365" class="LineNr">3365 </span> 05/add-to-eax 4/imm32 -<span id="L3366" class="LineNr">3366 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3367" class="LineNr">3367 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3368" class="LineNr">3368 </span> 73/jump-if-addr>= $stream-add4:abort/disp8 -<span id="L3369" class="LineNr">3369 </span> <span class="subxComment"># *curr = val1</span> -<span id="L3370" class="LineNr">3370 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L3371" class="LineNr">3371 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3372" class="LineNr">3372 </span> <span class="subxComment"># curr += 4</span> -<span id="L3373" class="LineNr">3373 </span> 05/add-to-eax 4/imm32 -<span id="L3374" class="LineNr">3374 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3375" class="LineNr">3375 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3376" class="LineNr">3376 </span> 73/jump-if-addr>= $stream-add4:abort/disp8 -<span id="L3377" class="LineNr">3377 </span> <span class="subxComment"># *curr = val2</span> -<span id="L3378" class="LineNr">3378 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> -<span id="L3379" class="LineNr">3379 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3380" class="LineNr">3380 </span> <span class="subxComment"># curr += 4</span> -<span id="L3381" class="LineNr">3381 </span> 05/add-to-eax 4/imm32 -<span id="L3382" class="LineNr">3382 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3383" class="LineNr">3383 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3384" class="LineNr">3384 </span> 73/jump-if-addr>= $stream-add4:abort/disp8 -<span id="L3385" class="LineNr">3385 </span> <span class="subxComment"># *curr = val3</span> -<span id="L3386" class="LineNr">3386 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+24) to ecx</span> -<span id="L3387" class="LineNr">3387 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3388" class="LineNr">3388 </span> <span class="subxComment"># in->write += 16</span> -<span id="L3389" class="LineNr">3389 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to *esi</span> -<span id="L3390" class="LineNr">3390 </span><span class="Constant">$stream-add4:end</span>: -<span id="L3391" class="LineNr">3391 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3392" class="LineNr">3392 </span> 5e/pop-to-esi -<span id="L3393" class="LineNr">3393 </span> 5a/pop-to-edx -<span id="L3394" class="LineNr">3394 </span> 59/pop-to-ecx -<span id="L3395" class="LineNr">3395 </span> 58/pop-to-eax -<span id="L3396" class="LineNr">3396 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3397" class="LineNr">3397 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3398" class="LineNr">3398 </span> 5d/pop-to-ebp -<span id="L3399" class="LineNr">3399 </span> c3/return -<span id="L3400" class="LineNr">3400 </span> -<span id="L3401" class="LineNr">3401 </span><span class="Constant">$stream-add4:abort</span>: -<span id="L3402" class="LineNr">3402 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L3403" class="LineNr">3403 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3404" class="LineNr">3404 </span> 68/push <span class="Constant">"overflow in stream-add4\n"</span>/imm32 -<span id="L3405" class="LineNr">3405 </span> 68/push 2/imm32/stderr -<span id="L3406" class="LineNr">3406 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3407" class="LineNr">3407 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L3408" class="LineNr">3408 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3409" class="LineNr">3409 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3410" class="LineNr">3410 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L3411" class="LineNr">3411 </span> bb/copy-to-ebx 1/imm32 -<span id="L3412" class="LineNr">3412 </span> e8/call syscall_exit/disp32 -<span id="L3413" class="LineNr">3413 </span> <span class="subxComment"># never gets here</span> -<span id="L3414" class="LineNr">3414 </span> -<span id="L3415" class="LineNr">3415 </span><span class="subxFunction">stream-add5</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val1: addr, val2: addr, val3: addr</span> -<span id="L3416" class="LineNr">3416 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3417" class="LineNr">3417 </span> 55/push-ebp -<span id="L3418" class="LineNr">3418 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3419" class="LineNr">3419 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3420" class="LineNr">3420 </span> 50/push-eax -<span id="L3421" class="LineNr">3421 </span> 51/push-ecx -<span id="L3422" class="LineNr">3422 </span> 52/push-edx -<span id="L3423" class="LineNr">3423 </span> 56/push-esi -<span id="L3424" class="LineNr">3424 </span> <span class="subxComment"># esi = in</span> -<span id="L3425" class="LineNr">3425 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L3426" class="LineNr">3426 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> -<span id="L3427" class="LineNr">3427 </span> <span class="subxS1Comment"># . eax = in->write</span> -<span id="L3428" class="LineNr">3428 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L3429" class="LineNr">3429 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> -<span id="L3430" class="LineNr">3430 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> -<span id="L3431" class="LineNr">3431 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> -<span id="L3432" class="LineNr">3432 </span> <span class="subxS1Comment"># . edx = in->size</span> -<span id="L3433" class="LineNr">3433 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> -<span id="L3434" class="LineNr">3434 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> -<span id="L3435" class="LineNr">3435 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> -<span id="L3436" class="LineNr">3436 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3437" class="LineNr">3437 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3438" class="LineNr">3438 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 -<span id="L3439" class="LineNr">3439 </span> <span class="subxComment"># *curr = key->alloc-id</span> -<span id="L3440" class="LineNr">3440 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L3441" class="LineNr">3441 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3442" class="LineNr">3442 </span> <span class="subxComment"># curr += 4</span> -<span id="L3443" class="LineNr">3443 </span> 05/add-to-eax 4/imm32 -<span id="L3444" class="LineNr">3444 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3445" class="LineNr">3445 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3446" class="LineNr">3446 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 -<span id="L3447" class="LineNr">3447 </span> <span class="subxComment"># *curr = key->payload</span> -<span id="L3448" class="LineNr">3448 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L3449" class="LineNr">3449 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3450" class="LineNr">3450 </span> <span class="subxComment"># curr += 4</span> -<span id="L3451" class="LineNr">3451 </span> 05/add-to-eax 4/imm32 -<span id="L3452" class="LineNr">3452 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3453" class="LineNr">3453 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3454" class="LineNr">3454 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 -<span id="L3455" class="LineNr">3455 </span> <span class="subxComment"># *curr = val1</span> -<span id="L3456" class="LineNr">3456 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> -<span id="L3457" class="LineNr">3457 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3458" class="LineNr">3458 </span> <span class="subxComment"># curr += 4</span> -<span id="L3459" class="LineNr">3459 </span> 05/add-to-eax 4/imm32 -<span id="L3460" class="LineNr">3460 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3461" class="LineNr">3461 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3462" class="LineNr">3462 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 -<span id="L3463" class="LineNr">3463 </span> <span class="subxComment"># *curr = val2</span> -<span id="L3464" class="LineNr">3464 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+24) to ecx</span> -<span id="L3465" class="LineNr">3465 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3466" class="LineNr">3466 </span> <span class="subxComment"># curr += 4</span> -<span id="L3467" class="LineNr">3467 </span> 05/add-to-eax 4/imm32 -<span id="L3468" class="LineNr">3468 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3469" class="LineNr">3469 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3470" class="LineNr">3470 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 -<span id="L3471" class="LineNr">3471 </span> <span class="subxComment"># *curr = val3</span> -<span id="L3472" class="LineNr">3472 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+28) to ecx</span> -<span id="L3473" class="LineNr">3473 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3474" class="LineNr">3474 </span> <span class="subxComment"># in->write += 20</span> -<span id="L3475" class="LineNr">3475 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to *esi</span> -<span id="L3476" class="LineNr">3476 </span><span class="Constant">$stream-add5:end</span>: -<span id="L3477" class="LineNr">3477 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3478" class="LineNr">3478 </span> 5e/pop-to-esi -<span id="L3479" class="LineNr">3479 </span> 5a/pop-to-edx -<span id="L3480" class="LineNr">3480 </span> 59/pop-to-ecx -<span id="L3481" class="LineNr">3481 </span> 58/pop-to-eax -<span id="L3482" class="LineNr">3482 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3483" class="LineNr">3483 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3484" class="LineNr">3484 </span> 5d/pop-to-ebp -<span id="L3485" class="LineNr">3485 </span> c3/return -<span id="L3486" class="LineNr">3486 </span> -<span id="L3487" class="LineNr">3487 </span><span class="Constant">$stream-add5:abort</span>: -<span id="L3488" class="LineNr">3488 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L3489" class="LineNr">3489 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3490" class="LineNr">3490 </span> 68/push <span class="Constant">"overflow in stream-add5\n"</span>/imm32 -<span id="L3491" class="LineNr">3491 </span> 68/push 2/imm32/stderr -<span id="L3492" class="LineNr">3492 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3493" class="LineNr">3493 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L3494" class="LineNr">3494 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3495" class="LineNr">3495 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3496" class="LineNr">3496 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L3497" class="LineNr">3497 </span> bb/copy-to-ebx 1/imm32 -<span id="L3498" class="LineNr">3498 </span> e8/call syscall_exit/disp32 -<span id="L3499" class="LineNr">3499 </span> <span class="subxComment"># never gets here</span> -<span id="L3500" class="LineNr">3500 </span> -<span id="L3501" class="LineNr">3501 </span><span class="subxFunction">stream-add6</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val1: addr, val2: addr, val3: addr, val4: addr</span> -<span id="L3502" class="LineNr">3502 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3503" class="LineNr">3503 </span> 55/push-ebp -<span id="L3504" class="LineNr">3504 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3505" class="LineNr">3505 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L3506" class="LineNr">3506 </span> 50/push-eax -<span id="L3507" class="LineNr">3507 </span> 51/push-ecx -<span id="L3508" class="LineNr">3508 </span> 52/push-edx -<span id="L3509" class="LineNr">3509 </span> 56/push-esi -<span id="L3510" class="LineNr">3510 </span> <span class="subxComment"># esi = in</span> -<span id="L3511" class="LineNr">3511 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> -<span id="L3512" class="LineNr">3512 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> -<span id="L3513" class="LineNr">3513 </span> <span class="subxS1Comment"># . eax = in->write</span> -<span id="L3514" class="LineNr">3514 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> -<span id="L3515" class="LineNr">3515 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> -<span id="L3516" class="LineNr">3516 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> -<span id="L3517" class="LineNr">3517 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> -<span id="L3518" class="LineNr">3518 </span> <span class="subxS1Comment"># . edx = in->size</span> -<span id="L3519" class="LineNr">3519 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> -<span id="L3520" class="LineNr">3520 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> -<span id="L3521" class="LineNr">3521 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> -<span id="L3522" class="LineNr">3522 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3523" class="LineNr">3523 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3524" class="LineNr">3524 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 -<span id="L3525" class="LineNr">3525 </span> <span class="subxComment"># *curr = key->alloc-id</span> -<span id="L3526" class="LineNr">3526 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> -<span id="L3527" class="LineNr">3527 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3528" class="LineNr">3528 </span> <span class="subxComment"># curr += 4</span> -<span id="L3529" class="LineNr">3529 </span> 05/add-to-eax 4/imm32 -<span id="L3530" class="LineNr">3530 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3531" class="LineNr">3531 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3532" class="LineNr">3532 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 -<span id="L3533" class="LineNr">3533 </span> <span class="subxComment"># *curr = key->payload</span> -<span id="L3534" class="LineNr">3534 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> -<span id="L3535" class="LineNr">3535 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3536" class="LineNr">3536 </span> <span class="subxComment"># curr += 4</span> -<span id="L3537" class="LineNr">3537 </span> 05/add-to-eax 4/imm32 -<span id="L3538" class="LineNr">3538 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3539" class="LineNr">3539 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3540" class="LineNr">3540 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 -<span id="L3541" class="LineNr">3541 </span> <span class="subxComment"># *curr = val1</span> -<span id="L3542" class="LineNr">3542 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> -<span id="L3543" class="LineNr">3543 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3544" class="LineNr">3544 </span> <span class="subxComment"># curr += 4</span> -<span id="L3545" class="LineNr">3545 </span> 05/add-to-eax 4/imm32 -<span id="L3546" class="LineNr">3546 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3547" class="LineNr">3547 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3548" class="LineNr">3548 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 -<span id="L3549" class="LineNr">3549 </span> <span class="subxComment"># *curr = val2</span> -<span id="L3550" class="LineNr">3550 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+24) to ecx</span> -<span id="L3551" class="LineNr">3551 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3552" class="LineNr">3552 </span> <span class="subxComment"># curr += 4</span> -<span id="L3553" class="LineNr">3553 </span> 05/add-to-eax 4/imm32 -<span id="L3554" class="LineNr">3554 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3555" class="LineNr">3555 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3556" class="LineNr">3556 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 -<span id="L3557" class="LineNr">3557 </span><span class="Constant">$aa-write-segment-offset</span>: -<span id="L3558" class="LineNr">3558 </span> <span class="subxComment"># *curr = val3</span> -<span id="L3559" class="LineNr">3559 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+28) to ecx</span> -<span id="L3560" class="LineNr">3560 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3561" class="LineNr">3561 </span> <span class="subxComment"># curr += 4</span> -<span id="L3562" class="LineNr">3562 </span> 05/add-to-eax 4/imm32 -<span id="L3563" class="LineNr">3563 </span> <span class="subxComment"># if (curr >= max) abort</span> -<span id="L3564" class="LineNr">3564 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> -<span id="L3565" class="LineNr">3565 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 -<span id="L3566" class="LineNr">3566 </span> <span class="subxComment"># *curr = val4</span> -<span id="L3567" class="LineNr">3567 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x20/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+32) to ecx</span> -<span id="L3568" class="LineNr">3568 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> -<span id="L3569" class="LineNr">3569 </span> <span class="subxComment"># in->write += 24</span> -<span id="L3570" class="LineNr">3570 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to *esi</span> -<span id="L3571" class="LineNr">3571 </span><span class="Constant">$stream-add6:end</span>: -<span id="L3572" class="LineNr">3572 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L3573" class="LineNr">3573 </span> 5e/pop-to-esi -<span id="L3574" class="LineNr">3574 </span> 5a/pop-to-edx -<span id="L3575" class="LineNr">3575 </span> 59/pop-to-ecx -<span id="L3576" class="LineNr">3576 </span> 58/pop-to-eax -<span id="L3577" class="LineNr">3577 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3578" class="LineNr">3578 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3579" class="LineNr">3579 </span> 5d/pop-to-ebp -<span id="L3580" class="LineNr">3580 </span> c3/return -<span id="L3581" class="LineNr">3581 </span> -<span id="L3582" class="LineNr">3582 </span><span class="Constant">$stream-add6:abort</span>: -<span id="L3583" class="LineNr">3583 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> -<span id="L3584" class="LineNr">3584 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3585" class="LineNr">3585 </span> 68/push <span class="Constant">"overflow in stream-add6\n"</span>/imm32 -<span id="L3586" class="LineNr">3586 </span> 68/push 2/imm32/stderr -<span id="L3587" class="LineNr">3587 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3588" class="LineNr">3588 </span> e8/call <a href='../101_write.subx.html#L12'>_write</a>/disp32 -<span id="L3589" class="LineNr">3589 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3590" class="LineNr">3590 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3591" class="LineNr">3591 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> -<span id="L3592" class="LineNr">3592 </span> bb/copy-to-ebx 1/imm32 -<span id="L3593" class="LineNr">3593 </span> e8/call syscall_exit/disp32 -<span id="L3594" class="LineNr">3594 </span> <span class="subxComment"># never gets here</span> -<span id="L3595" class="LineNr">3595 </span> -<span id="L3596" class="LineNr">3596 </span><span class="subxComment"># some variants of 'trace' that take multiple arguments in different combinations of types:</span> -<span id="L3597" class="LineNr">3597 </span><span class="subxComment"># n: int</span> -<span id="L3598" class="LineNr">3598 </span><span class="subxComment"># c: character [4-bytes, will eventually be UTF-8]</span> -<span id="L3599" class="LineNr">3599 </span><span class="subxComment"># s: (addr array byte)</span> -<span id="L3600" class="LineNr">3600 </span><span class="subxComment"># l: (addr slice)</span> -<span id="L3601" class="LineNr">3601 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span> +<span id="L2934" class="LineNr">2934 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2935" class="LineNr">2935 </span> <span class="subxComment"># checks</span> +<span id="L2936" class="LineNr">2936 </span> <span class="subxS1Comment"># . flush(_test-output-buffered-file)</span> +<span id="L2937" class="LineNr">2937 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2938" class="LineNr">2938 </span> 68/push <a href='115write-byte.subx.html#L425'>_test-output-buffered-file</a>/imm32 +<span id="L2939" class="LineNr">2939 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2940" class="LineNr">2940 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L2941" class="LineNr">2941 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2942" class="LineNr">2942 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L2943" class="Folded">2943 </span><span class="Folded">+-- 33 lines: #? # dump output ------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L2976" class="LineNr">2976 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ab cd ", msg)</span> +<span id="L2977" class="LineNr">2977 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2978" class="LineNr">2978 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2806'>test-emit-segments-code-label-absolute</a>/0"</span>/imm32 +<span id="L2979" class="LineNr">2979 </span> 68/push <span class="Constant">"ab cd "</span>/imm32 +<span id="L2980" class="LineNr">2980 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2981" class="LineNr">2981 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2982" class="LineNr">2982 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2983" class="LineNr">2983 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2984" class="LineNr">2984 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2985" class="LineNr">2985 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ef gh ", msg)</span> +<span id="L2986" class="LineNr">2986 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2987" class="LineNr">2987 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2806'>test-emit-segments-code-label-absolute</a>/1"</span>/imm32 +<span id="L2988" class="LineNr">2988 </span> 68/push <span class="Constant">"ef gh "</span>/imm32 +<span id="L2989" class="LineNr">2989 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2990" class="LineNr">2990 </span> <span class="subxS2Comment"># . . call</span> +<span id="L2991" class="LineNr">2991 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L2992" class="LineNr">2992 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L2993" class="LineNr">2993 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L2994" class="LineNr">2994 </span> <span class="subxS1Comment"># . check-next-stream-line-equal(_test-output-stream, "ij f9 ff ff ff ", msg)</span> +<span id="L2995" class="LineNr">2995 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L2996" class="LineNr">2996 </span> 68/push <span class="Constant">"F - <a href='survey_elf.subx.html#L2806'>test-emit-segments-code-label-absolute</a>/2"</span>/imm32 +<span id="L2997" class="LineNr">2997 </span> 68/push <span class="Constant">"ij 56 10 00 00 "</span>/imm32 +<span id="L2998" class="LineNr">2998 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L2999" class="LineNr">2999 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3000" class="LineNr">3000 </span> e8/call <a href='109stream-equal.subx.html#L565'>check-next-stream-line-equal</a>/disp32 +<span id="L3001" class="LineNr">3001 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3002" class="LineNr">3002 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3003" class="LineNr">3003 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3004" class="LineNr">3004 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3005" class="LineNr">3005 </span> 5d/pop-to-ebp +<span id="L3006" class="LineNr">3006 </span> c3/return +<span id="L3007" class="LineNr">3007 </span> +<span id="L3008" class="LineNr">3008 </span><span class="subxComment"># reads line to make some checks</span> +<span id="L3009" class="LineNr">3009 </span><span class="subxComment"># don't assume the read state of line after calling this function</span> +<span id="L3010" class="LineNr">3010 </span><span class="subxFunction">far-jump-or-call?</span>: <span class="subxComment"># line: (addr stream byte) -> result/edi: boolean</span> +<span id="L3011" class="LineNr">3011 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3012" class="LineNr">3012 </span> 55/push-ebp +<span id="L3013" class="LineNr">3013 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3014" class="LineNr">3014 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3015" class="LineNr">3015 </span> 50/push-eax +<span id="L3016" class="LineNr">3016 </span> 51/push-ecx +<span id="L3017" class="LineNr">3017 </span> 52/push-edx +<span id="L3018" class="LineNr">3018 </span> 53/push-ebx +<span id="L3019" class="LineNr">3019 </span> <span class="subxComment"># ecx = line</span> +<span id="L3020" class="LineNr">3020 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to ecx</span> +<span id="L3021" class="LineNr">3021 </span> <span class="subxComment"># var word-slice/edx: slice</span> +<span id="L3022" class="LineNr">3022 </span> 68/push 0/imm32/end +<span id="L3023" class="LineNr">3023 </span> 68/push 0/imm32/start +<span id="L3024" class="LineNr">3024 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L3025" class="LineNr">3025 </span> <span class="subxComment"># var datum-slice/ebx: slice</span> +<span id="L3026" class="LineNr">3026 </span> 68/push 0/imm32/end +<span id="L3027" class="LineNr">3027 </span> 68/push 0/imm32/start +<span id="L3028" class="LineNr">3028 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L3029" class="LineNr">3029 </span> <span class="subxComment"># result = false</span> +<span id="L3030" class="LineNr">3030 </span> bf/copy-to-edi 0/imm32/false +<span id="L3031" class="LineNr">3031 </span><span class="Constant">$far-jump-or-call?:check-first-word</span>: +<span id="L3032" class="LineNr">3032 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L3033" class="LineNr">3033 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3034" class="LineNr">3034 </span> 52/push-edx +<span id="L3035" class="LineNr">3035 </span> 51/push-ecx +<span id="L3036" class="LineNr">3036 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3037" class="LineNr">3037 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L3038" class="LineNr">3038 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3039" class="LineNr">3039 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3040" class="LineNr">3040 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L3041" class="LineNr">3041 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L3042" class="LineNr">3042 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3043" class="LineNr">3043 </span> 52/push-edx +<span id="L3044" class="LineNr">3044 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3045" class="LineNr">3045 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L3046" class="LineNr">3046 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3047" class="LineNr">3047 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3048" class="LineNr">3048 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L3049" class="LineNr">3049 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3050" class="LineNr">3050 </span> 0f 85/jump-if-!= $far-jump-or-call?:end/disp32 +<span id="L3051" class="LineNr">3051 </span> <span class="subxComment"># datum = next-token-from-slice(word-slice->start, word-slice->end, "/")</span> +<span id="L3052" class="LineNr">3052 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3053" class="LineNr">3053 </span> 53/push-ebx +<span id="L3054" class="LineNr">3054 </span> 68/push 0x2f/imm32/slash +<span id="L3055" class="LineNr">3055 </span> ff 6/subop/push 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(edx+4)</span> +<span id="L3056" class="LineNr">3056 </span> ff 6/subop/push 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *edx</span> +<span id="L3057" class="LineNr">3057 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3058" class="LineNr">3058 </span> e8/call <a href='124next-token.subx.html#L163'>next-token-from-slice</a>/disp32 +<span id="L3059" class="LineNr">3059 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3060" class="LineNr">3060 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L3061" class="LineNr">3061 </span> <span class="subxComment"># if (datum-slice == "e8") return true</span> +<span id="L3062" class="LineNr">3062 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e8")</span> +<span id="L3063" class="LineNr">3063 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3064" class="LineNr">3064 </span> 68/push <span class="Constant">"e8"</span>/imm32 +<span id="L3065" class="LineNr">3065 </span> 53/push-ebx +<span id="L3066" class="LineNr">3066 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3067" class="LineNr">3067 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L3068" class="LineNr">3068 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3069" class="LineNr">3069 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3070" class="LineNr">3070 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L3071" class="LineNr">3071 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3072" class="LineNr">3072 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L3073" class="LineNr">3073 </span> <span class="subxComment"># if (datum-slice == "e9") return true</span> +<span id="L3074" class="LineNr">3074 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "e9")</span> +<span id="L3075" class="LineNr">3075 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3076" class="LineNr">3076 </span> 68/push <span class="Constant">"e9"</span>/imm32 +<span id="L3077" class="LineNr">3077 </span> 53/push-ebx +<span id="L3078" class="LineNr">3078 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3079" class="LineNr">3079 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L3080" class="LineNr">3080 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3081" class="LineNr">3081 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3082" class="LineNr">3082 </span> <span class="subxS1Comment"># . if (eax != false) return true</span> +<span id="L3083" class="LineNr">3083 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3084" class="LineNr">3084 </span> 75/jump-if-!= $far-jump-or-call?:return-true/disp8 +<span id="L3085" class="LineNr">3085 </span> <span class="subxComment"># if (datum-slice != "0f") return false</span> +<span id="L3086" class="LineNr">3086 </span> <span class="subxS1Comment"># . eax = slice-equal?(datum-slice, "0f")</span> +<span id="L3087" class="LineNr">3087 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3088" class="LineNr">3088 </span> 68/push <span class="Constant">"0f"</span>/imm32 +<span id="L3089" class="LineNr">3089 </span> 53/push-ebx +<span id="L3090" class="LineNr">3090 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3091" class="LineNr">3091 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L3092" class="LineNr">3092 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3093" class="LineNr">3093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3094" class="LineNr">3094 </span> <span class="subxS1Comment"># . if (eax == false) return</span> +<span id="L3095" class="LineNr">3095 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3096" class="LineNr">3096 </span> 74/jump-if-= $far-jump-or-call?:end/disp8 +<span id="L3097" class="LineNr">3097 </span><span class="Constant">$far-jump-or-call?:check-second-word</span>: +<span id="L3098" class="LineNr">3098 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L3099" class="LineNr">3099 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3100" class="LineNr">3100 </span> 52/push-edx +<span id="L3101" class="LineNr">3101 </span> 51/push-ecx +<span id="L3102" class="LineNr">3102 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3103" class="LineNr">3103 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L3104" class="LineNr">3104 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3105" class="LineNr">3105 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3106" class="LineNr">3106 </span> <span class="subxComment"># if (slice-empty?(word-slice)) return false</span> +<span id="L3107" class="LineNr">3107 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L3108" class="LineNr">3108 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3109" class="LineNr">3109 </span> 52/push-edx +<span id="L3110" class="LineNr">3110 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3111" class="LineNr">3111 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L3112" class="LineNr">3112 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3113" class="LineNr">3113 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3114" class="LineNr">3114 </span> <span class="subxS1Comment"># . if (eax != 0) return</span> +<span id="L3115" class="LineNr">3115 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3116" class="LineNr">3116 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L3117" class="LineNr">3117 </span> <span class="subxComment"># if datum of word-slice does not start with "8", return false</span> +<span id="L3118" class="LineNr">3118 </span> <span class="subxS1Comment"># . start/eax = word-slice->start</span> +<span id="L3119" class="LineNr">3119 </span> 8b/copy 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *edx to eax</span> +<span id="L3120" class="LineNr">3120 </span> <span class="subxS1Comment"># . c/eax = *start</span> +<span id="L3121" class="LineNr">3121 </span> 8a/copy-byte 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/AL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *eax to AL</span> +<span id="L3122" class="LineNr">3122 </span> 81 4/subop/and 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xff/imm32 <span class="subxComment"># bitwise and of eax</span> +<span id="L3123" class="LineNr">3123 </span> <span class="subxS1Comment"># . if (eax != '8') return</span> +<span id="L3124" class="LineNr">3124 </span> 3d/compare-eax-and 0x38/imm32/8 +<span id="L3125" class="LineNr">3125 </span> 75/jump-if-!= $far-jump-or-call?:end/disp8 +<span id="L3126" class="LineNr">3126 </span> <span class="subxComment"># otherwise return true</span> +<span id="L3127" class="LineNr">3127 </span><span class="Constant">$far-jump-or-call?:return-true</span>: +<span id="L3128" class="LineNr">3128 </span> bf/copy-to-edi 1/imm32/true +<span id="L3129" class="LineNr">3129 </span><span class="Constant">$far-jump-or-call?:end</span>: +<span id="L3130" class="LineNr">3130 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L3131" class="LineNr">3131 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L3132" class="LineNr">3132 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3133" class="LineNr">3133 </span> 5b/pop-to-ebx +<span id="L3134" class="LineNr">3134 </span> 5a/pop-to-edx +<span id="L3135" class="LineNr">3135 </span> 59/pop-to-ecx +<span id="L3136" class="LineNr">3136 </span> 58/pop-to-eax +<span id="L3137" class="LineNr">3137 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3138" class="LineNr">3138 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3139" class="LineNr">3139 </span> 5d/pop-to-ebp +<span id="L3140" class="LineNr">3140 </span> c3/return +<span id="L3141" class="LineNr">3141 </span> +<span id="L3142" class="LineNr">3142 </span><span class="subxFunction">emit-headers</span>: <span class="subxComment"># out: (addr buffered-file), segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> +<span id="L3143" class="LineNr">3143 </span> <span class="subxComment"># pseudocode:</span> +<span id="L3144" class="LineNr">3144 </span> <span class="subxComment"># emit-elf-header(out, segments, labels)</span> +<span id="L3145" class="LineNr">3145 </span> <span class="subxComment"># var curr-segment-row: (addr handle array byte) = segments->data</span> +<span id="L3146" class="LineNr">3146 </span> <span class="subxComment"># max = &segments->data[segments->write]</span> +<span id="L3147" class="LineNr">3147 </span> <span class="subxComment"># while true</span> +<span id="L3148" class="LineNr">3148 </span> <span class="subxComment"># if (curr-segment >= max) break</span> +<span id="L3149" class="LineNr">3149 </span> <span class="subxComment"># emit-elf-program-header-entry(out, curr-segment-row)</span> +<span id="L3150" class="LineNr">3150 </span> <span class="subxComment"># curr-segment-row += 20 # size of a row</span> +<span id="L3151" class="LineNr">3151 </span> <span class="subxComment">#</span> +<span id="L3152" class="LineNr">3152 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3153" class="LineNr">3153 </span> 55/push-ebp +<span id="L3154" class="LineNr">3154 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3155" class="LineNr">3155 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3156" class="LineNr">3156 </span> 50/push-eax +<span id="L3157" class="LineNr">3157 </span> 51/push-ecx +<span id="L3158" class="LineNr">3158 </span> <span class="subxComment"># emit-elf-header(out, segments, labels)</span> +<span id="L3159" class="LineNr">3159 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3160" class="LineNr">3160 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L3161" class="LineNr">3161 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3162" class="LineNr">3162 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3163" class="LineNr">3163 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3164" class="LineNr">3164 </span> e8/call <a href='survey_elf.subx.html#L3271'>emit-elf-header</a>/disp32 +<span id="L3165" class="LineNr">3165 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3166" class="LineNr">3166 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L3167" class="LineNr">3167 </span> <span class="subxComment"># eax = segments</span> +<span id="L3168" class="LineNr">3168 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L3169" class="LineNr">3169 </span> <span class="subxComment"># ecx = segments->write</span> +<span id="L3170" class="LineNr">3170 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3171" class="LineNr">3171 </span> <span class="subxComment"># curr-segment/eax = segments->data</span> +<span id="L3172" class="LineNr">3172 </span> 8d/copy-address 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+12 to eax</span> +<span id="L3173" class="LineNr">3173 </span> <span class="subxComment"># max/ecx = &segments->data[segments->write]</span> +<span id="L3174" class="LineNr">3174 </span> 01/add 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add eax to ecx</span> +<span id="L3175" class="LineNr">3175 </span><span class="Constant">$emit-headers:loop</span>: +<span id="L3176" class="LineNr">3176 </span> <span class="subxComment"># if (curr-segment >= max) break</span> +<span id="L3177" class="LineNr">3177 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with ecx</span> +<span id="L3178" class="LineNr">3178 </span> 0f 83/jump-if-addr>= $emit-headers:end/disp32 +<span id="L3179" class="Folded">3179 </span><span class="Folded">+-- 63 lines: #? # dump curr-segment->name ------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3242" class="Folded">3242 </span><span class="Folded">+-- 9 lines: #? # write(2/stderr, "emit-segment-header\n") -------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3251" class="LineNr">3251 </span> <span class="subxComment"># emit-elf-program-header-entry(out, curr-segment)</span> +<span id="L3252" class="LineNr">3252 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3253" class="LineNr">3253 </span> 50/push-eax +<span id="L3254" class="LineNr">3254 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3255" class="LineNr">3255 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3256" class="LineNr">3256 </span> e8/call <a href='survey_elf.subx.html#L3341'>emit-elf-program-header-entry</a>/disp32 +<span id="L3257" class="LineNr">3257 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3258" class="LineNr">3258 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3259" class="LineNr">3259 </span> <span class="subxComment"># curr-segment += 20 # size of a row</span> +<span id="L3260" class="LineNr">3260 </span> 81 0/subop/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to eax</span> +<span id="L3261" class="LineNr">3261 </span> e9/jump $emit-headers:<span class="Constant">loop</span>/disp32 +<span id="L3262" class="LineNr">3262 </span><span class="Constant">$emit-headers:end</span>: +<span id="L3263" class="LineNr">3263 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3264" class="LineNr">3264 </span> 59/pop-to-ecx +<span id="L3265" class="LineNr">3265 </span> 58/pop-to-eax +<span id="L3266" class="LineNr">3266 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3267" class="LineNr">3267 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3268" class="LineNr">3268 </span> 5d/pop-to-ebp +<span id="L3269" class="LineNr">3269 </span> c3/return +<span id="L3270" class="LineNr">3270 </span> +<span id="L3271" class="LineNr">3271 </span><span class="subxFunction">emit-elf-header</span>: <span class="subxComment"># out: (addr buffered-file), segments: (addr stream {(handle array byte), segment-info}), labels: (addr stream {(handle array byte), label-info})</span> +<span id="L3272" class="LineNr">3272 </span> <span class="subxComment"># pseudocode</span> +<span id="L3273" class="LineNr">3273 </span> <span class="subxComment"># *$Elf_e_entry = get(labels, "Entry")->address</span> +<span id="L3274" class="LineNr">3274 </span> <span class="subxComment"># *$Elf_e_phnum = segments->write / 20 # size of a row</span> +<span id="L3275" class="LineNr">3275 </span> <span class="subxComment"># emit-hex-array(out, Elf_header)</span> +<span id="L3276" class="LineNr">3276 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L3277" class="LineNr">3277 </span> <span class="subxComment">#</span> +<span id="L3278" class="LineNr">3278 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3279" class="LineNr">3279 </span> 55/push-ebp +<span id="L3280" class="LineNr">3280 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3281" class="LineNr">3281 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3282" class="LineNr">3282 </span> 50/push-eax +<span id="L3283" class="LineNr">3283 </span> 51/push-ecx +<span id="L3284" class="LineNr">3284 </span> 52/push-edx <span class="subxComment"># just because we need to call idiv</span> +<span id="L3285" class="LineNr">3285 </span> <span class="subxComment"># *$Elf_e_entry = get(labels, "Entry")->address</span> +<span id="L3286" class="LineNr">3286 </span> <span class="subxS1Comment"># . eax = labels</span> +<span id="L3287" class="LineNr">3287 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to eax</span> +<span id="L3288" class="LineNr">3288 </span> <span class="subxS1Comment"># . label-info/eax = get(labels, "Entry", row-size=24, "label table")</span> +<span id="L3289" class="LineNr">3289 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3290" class="LineNr">3290 </span> 68/push <span class="Constant">"label table"</span>/imm32 +<span id="L3291" class="LineNr">3291 </span> 68/push 0x18/imm32/row-size +<span id="L3292" class="LineNr">3292 </span> 68/push <span class="Constant">"Entry"</span>/imm32 +<span id="L3293" class="LineNr">3293 </span> 50/push-eax +<span id="L3294" class="LineNr">3294 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3295" class="LineNr">3295 </span> e8/call <a href='131table.subx.html#L26'>get</a>/disp32 +<span id="L3296" class="LineNr">3296 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3297" class="LineNr">3297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> +<span id="L3298" class="LineNr">3298 </span> <span class="subxS1Comment"># . eax = label-info->address</span> +<span id="L3299" class="LineNr">3299 </span> 8b/copy 1/mod/*+disp8 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(eax+12) to eax</span> +<span id="L3300" class="LineNr">3300 </span> <span class="subxS1Comment"># . *$Elf_e_entry = eax</span> +<span id="L3301" class="LineNr">3301 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_e_entry/disp32 <span class="subxComment"># copy eax to *$Elf_e_entry</span> +<span id="L3302" class="LineNr">3302 </span> <span class="subxComment"># *$Elf_e_phnum = segments->write / 20</span> +<span id="L3303" class="LineNr">3303 </span> <span class="subxS1Comment"># . eax = segments</span> +<span id="L3304" class="LineNr">3304 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to eax</span> +<span id="L3305" class="LineNr">3305 </span> <span class="subxS1Comment"># . len/eax = segments->write</span> +<span id="L3306" class="LineNr">3306 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to eax</span> +<span id="L3307" class="LineNr">3307 </span> <span class="subxS1Comment"># . eax = len / 20 (clobbering ecx and edx)</span> +<span id="L3308" class="LineNr">3308 </span> b9/copy-to-ecx 0x14/imm32 +<span id="L3309" class="LineNr">3309 </span> 31/xor 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear edx</span> +<span id="L3310" class="LineNr">3310 </span> f7 7/subop/idiv 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># divide edx:eax by ecx, storing quotient in eax and remainder in edx</span> +<span id="L3311" class="LineNr">3311 </span> <span class="subxS1Comment"># . *$Elf_e_phnum = eax</span> +<span id="L3312" class="LineNr">3312 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_e_phnum/disp32 <span class="subxComment"># copy eax to *$Elf_e_phnum</span> +<span id="L3313" class="LineNr">3313 </span> <span class="subxComment"># emit-hex-array(out, Elf_header)</span> +<span id="L3314" class="LineNr">3314 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3315" class="LineNr">3315 </span> 68/push <span class="SpecialChar"><a href='survey_elf.subx.html#L4632'>Elf_header</a></span>/imm32 +<span id="L3316" class="LineNr">3316 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3317" class="LineNr">3317 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3318" class="LineNr">3318 </span> e8/call <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a>/disp32 +<span id="L3319" class="LineNr">3319 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3320" class="LineNr">3320 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3321" class="LineNr">3321 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L3322" class="LineNr">3322 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3323" class="LineNr">3323 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L3324" class="LineNr">3324 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3325" class="LineNr">3325 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3326" class="LineNr">3326 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3327" class="LineNr">3327 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3328" class="LineNr">3328 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3329" class="LineNr">3329 </span><span class="Constant">$emit-elf-header:end</span>: +<span id="L3330" class="LineNr">3330 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3331" class="LineNr">3331 </span> 5a/pop-to-edx +<span id="L3332" class="LineNr">3332 </span> 59/pop-to-ecx +<span id="L3333" class="LineNr">3333 </span> 58/pop-to-eax +<span id="L3334" class="LineNr">3334 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3335" class="LineNr">3335 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3336" class="LineNr">3336 </span> 5d/pop-to-ebp +<span id="L3337" class="LineNr">3337 </span> c3/return +<span id="L3338" class="LineNr">3338 </span> +<span id="L3339" class="LineNr">3339 </span><span class="subxComment"># segment-info: {address, file-offset, size} (12 bytes)</span> +<span id="L3340" class="LineNr">3340 </span><span class="subxComment"># segments: (addr stream {(handle array byte), segment-info}) (20 bytes per row)</span> +<span id="L3341" class="LineNr">3341 </span><span class="subxFunction">emit-elf-program-header-entry</span>: <span class="subxComment"># out: (addr buffered-file), curr-segment: (addr {(handle array byte), segment-info})</span> +<span id="L3342" class="LineNr">3342 </span> <span class="subxComment"># pseudocode:</span> +<span id="L3343" class="LineNr">3343 </span> <span class="subxComment"># *$Elf_p_offset = curr-segment->file-offset</span> +<span id="L3344" class="LineNr">3344 </span> <span class="subxComment"># *$Elf_p_vaddr = curr-segment->address</span> +<span id="L3345" class="LineNr">3345 </span> <span class="subxComment"># *$Elf_p_paddr = curr-segment->address</span> +<span id="L3346" class="LineNr">3346 </span> <span class="subxComment"># *$Elf_p_filesz = curr-segment->size</span> +<span id="L3347" class="LineNr">3347 </span> <span class="subxComment"># *$Elf_p_memsz = curr-segment->size</span> +<span id="L3348" class="LineNr">3348 </span> <span class="subxComment"># if curr-segment->name == "code"</span> +<span id="L3349" class="LineNr">3349 </span> <span class="subxComment"># *$Elf_p_flags = 5 # r-x</span> +<span id="L3350" class="LineNr">3350 </span> <span class="subxComment"># else</span> +<span id="L3351" class="LineNr">3351 </span> <span class="subxComment"># *$Elf_p_flags = 6 # rw-</span> +<span id="L3352" class="LineNr">3352 </span> <span class="subxComment"># emit-hex-array(out, Elf_program_header_entry)</span> +<span id="L3353" class="LineNr">3353 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L3354" class="LineNr">3354 </span> <span class="subxComment">#</span> +<span id="L3355" class="LineNr">3355 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3356" class="LineNr">3356 </span> 55/push-ebp +<span id="L3357" class="LineNr">3357 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3358" class="LineNr">3358 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3359" class="LineNr">3359 </span> 50/push-eax +<span id="L3360" class="LineNr">3360 </span> 56/push-esi +<span id="L3361" class="LineNr">3361 </span> <span class="subxComment"># esi = curr-segment</span> +<span id="L3362" class="LineNr">3362 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to esi</span> +<span id="L3363" class="LineNr">3363 </span> <span class="subxComment"># *$Elf_p_offset = curr-segment->file-offset</span> +<span id="L3364" class="LineNr">3364 </span> <span class="subxS1Comment"># . eax = curr-segment->file-offset</span> +<span id="L3365" class="LineNr">3365 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+12) to eax</span> +<span id="L3366" class="LineNr">3366 </span> <span class="subxS1Comment"># . *$Elf_p_offset = eax</span> +<span id="L3367" class="LineNr">3367 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_offset/disp32 <span class="subxComment"># copy eax to *$Elf_p_offset</span> +<span id="L3368" class="LineNr">3368 </span> <span class="subxComment"># *$Elf_p_vaddr = curr-segment->address</span> +<span id="L3369" class="LineNr">3369 </span> <span class="subxS1Comment"># . eax = curr-segment->address</span> +<span id="L3370" class="LineNr">3370 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to eax</span> +<span id="L3371" class="LineNr">3371 </span> <span class="subxS1Comment"># . *$Elf_p_vaddr = eax</span> +<span id="L3372" class="LineNr">3372 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_vaddr/disp32 <span class="subxComment"># copy eax to *$Elf_p_vaddr</span> +<span id="L3373" class="LineNr">3373 </span> <span class="subxComment"># *$Elf_p_paddr = curr-segment->address</span> +<span id="L3374" class="LineNr">3374 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_paddr/disp32 <span class="subxComment"># copy eax to *$Elf_p_paddr</span> +<span id="L3375" class="LineNr">3375 </span> <span class="subxComment"># *$Elf_p_filesz = curr-segment->size</span> +<span id="L3376" class="LineNr">3376 </span> <span class="subxS1Comment"># . eax = curr-segment->size</span> +<span id="L3377" class="LineNr">3377 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+16) to eax</span> +<span id="L3378" class="LineNr">3378 </span> <span class="subxS1Comment"># . *$Elf_p_filesz = eax</span> +<span id="L3379" class="LineNr">3379 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_filesz/disp32 <span class="subxComment"># copy eax to *$Elf_p_filesz</span> +<span id="L3380" class="LineNr">3380 </span> <span class="subxComment"># *$Elf_p_memsz = curr-segment->size</span> +<span id="L3381" class="LineNr">3381 </span> 89/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax $Elf_p_memsz/disp32 <span class="subxComment"># copy eax to *$Elf_p_memsz</span> +<span id="L3382" class="LineNr">3382 </span> <span class="subxComment"># if (!string-equal?(name, "code") goto next check</span> +<span id="L3383" class="LineNr">3383 </span> <span class="subxS1Comment"># . var name/eax: (addr array byte) = lookup(curr-segment->name)</span> +<span id="L3384" class="LineNr">3384 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3385" class="LineNr">3385 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> +<span id="L3386" class="LineNr">3386 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> +<span id="L3387" class="LineNr">3387 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3388" class="LineNr">3388 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 +<span id="L3389" class="LineNr">3389 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3390" class="LineNr">3390 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3391" class="LineNr">3391 </span> <span class="subxS1Comment"># . eax = string-equal?(name, "code")</span> +<span id="L3392" class="LineNr">3392 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3393" class="LineNr">3393 </span> 68/push <span class="Constant">"code"</span>/imm32 +<span id="L3394" class="LineNr">3394 </span> 50/push-eax +<span id="L3395" class="LineNr">3395 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3396" class="LineNr">3396 </span> e8/call <a href='105string-equal.subx.html#L15'>string-equal?</a>/disp32 +<span id="L3397" class="LineNr">3397 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3398" class="LineNr">3398 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3399" class="LineNr">3399 </span> <span class="subxS1Comment"># . if (eax == false) goto next check</span> +<span id="L3400" class="LineNr">3400 </span> 3d/compare-eax-and 0/imm32/false +<span id="L3401" class="LineNr">3401 </span> 74/jump-if-= $emit-elf-program-header-entry:data/disp8 +<span id="L3402" class="LineNr">3402 </span> <span class="subxComment"># *$Elf_p_flags = r-x</span> +<span id="L3403" class="LineNr">3403 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> $Elf_p_flags/disp32 5/imm32 <span class="subxComment"># copy to *$Elf_p_flags</span> +<span id="L3404" class="LineNr">3404 </span> eb/jump $emit-elf-program-header-entry:really-emit/disp8 +<span id="L3405" class="LineNr">3405 </span><span class="Constant">$emit-elf-program-header-entry:data</span>: +<span id="L3406" class="LineNr">3406 </span> <span class="subxComment"># otherwise *$Elf_p_flags = rw-</span> +<span id="L3407" class="LineNr">3407 </span> c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> $Elf_p_flags/disp32 6/imm32 <span class="subxComment"># copy to *$Elf_p_flags</span> +<span id="L3408" class="LineNr">3408 </span><span class="Constant">$emit-elf-program-header-entry:really-emit</span>: +<span id="L3409" class="LineNr">3409 </span> <span class="subxComment"># emit-hex-array(out, Elf_program_header_entry)</span> +<span id="L3410" class="LineNr">3410 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3411" class="LineNr">3411 </span> 68/push <span class="SpecialChar"><a href='survey_elf.subx.html#L4670'>Elf_program_header_entry</a></span>/imm32 +<span id="L3412" class="LineNr">3412 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3413" class="LineNr">3413 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3414" class="LineNr">3414 </span> e8/call <a href='134emit-hex-array.subx.html#L7'>emit-hex-array</a>/disp32 +<span id="L3415" class="LineNr">3415 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3416" class="LineNr">3416 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3417" class="LineNr">3417 </span> <span class="subxComment"># write-buffered(out, "\n")</span> +<span id="L3418" class="LineNr">3418 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3419" class="LineNr">3419 </span> 68/push <span class="SpecialChar"><a href='102test.subx.html#L82'>Newline</a></span>/imm32 +<span id="L3420" class="LineNr">3420 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3421" class="LineNr">3421 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3422" class="LineNr">3422 </span> e8/call <a href='116write-buffered.subx.html#L8'>write-buffered</a>/disp32 +<span id="L3423" class="LineNr">3423 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3424" class="LineNr">3424 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3425" class="LineNr">3425 </span><span class="Constant">$emit-elf-program-header-entry:end</span>: +<span id="L3426" class="LineNr">3426 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3427" class="LineNr">3427 </span> 5e/pop-to-esi +<span id="L3428" class="LineNr">3428 </span> 58/pop-to-eax +<span id="L3429" class="LineNr">3429 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3430" class="LineNr">3430 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3431" class="LineNr">3431 </span> 5d/pop-to-ebp +<span id="L3432" class="LineNr">3432 </span> c3/return +<span id="L3433" class="LineNr">3433 </span> +<span id="L3434" class="LineNr">3434 </span><span class="subxH1Comment"># - some helpers for tests</span> +<span id="L3435" class="LineNr">3435 </span> +<span id="L3436" class="LineNr">3436 </span><span class="subxFunction">stream-add5</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val1: addr, val2: addr, val3: addr</span> +<span id="L3437" class="LineNr">3437 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3438" class="LineNr">3438 </span> 55/push-ebp +<span id="L3439" class="LineNr">3439 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3440" class="LineNr">3440 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3441" class="LineNr">3441 </span> 50/push-eax +<span id="L3442" class="LineNr">3442 </span> 51/push-ecx +<span id="L3443" class="LineNr">3443 </span> 52/push-edx +<span id="L3444" class="LineNr">3444 </span> 56/push-esi +<span id="L3445" class="LineNr">3445 </span> <span class="subxComment"># esi = in</span> +<span id="L3446" class="LineNr">3446 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L3447" class="LineNr">3447 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> +<span id="L3448" class="LineNr">3448 </span> <span class="subxS1Comment"># . eax = in->write</span> +<span id="L3449" class="LineNr">3449 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L3450" class="LineNr">3450 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> +<span id="L3451" class="LineNr">3451 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L3452" class="LineNr">3452 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> +<span id="L3453" class="LineNr">3453 </span> <span class="subxS1Comment"># . edx = in->size</span> +<span id="L3454" class="LineNr">3454 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> +<span id="L3455" class="LineNr">3455 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> +<span id="L3456" class="LineNr">3456 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> +<span id="L3457" class="LineNr">3457 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3458" class="LineNr">3458 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3459" class="LineNr">3459 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 +<span id="L3460" class="LineNr">3460 </span> <span class="subxComment"># *curr = key->alloc-id</span> +<span id="L3461" class="LineNr">3461 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L3462" class="LineNr">3462 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3463" class="LineNr">3463 </span> <span class="subxComment"># curr += 4</span> +<span id="L3464" class="LineNr">3464 </span> 05/add-to-eax 4/imm32 +<span id="L3465" class="LineNr">3465 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3466" class="LineNr">3466 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3467" class="LineNr">3467 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 +<span id="L3468" class="LineNr">3468 </span> <span class="subxComment"># *curr = key->payload</span> +<span id="L3469" class="LineNr">3469 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L3470" class="LineNr">3470 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3471" class="LineNr">3471 </span> <span class="subxComment"># curr += 4</span> +<span id="L3472" class="LineNr">3472 </span> 05/add-to-eax 4/imm32 +<span id="L3473" class="LineNr">3473 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3474" class="LineNr">3474 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3475" class="LineNr">3475 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 +<span id="L3476" class="LineNr">3476 </span> <span class="subxComment"># *curr = val1</span> +<span id="L3477" class="LineNr">3477 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> +<span id="L3478" class="LineNr">3478 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3479" class="LineNr">3479 </span> <span class="subxComment"># curr += 4</span> +<span id="L3480" class="LineNr">3480 </span> 05/add-to-eax 4/imm32 +<span id="L3481" class="LineNr">3481 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3482" class="LineNr">3482 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3483" class="LineNr">3483 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 +<span id="L3484" class="LineNr">3484 </span> <span class="subxComment"># *curr = val2</span> +<span id="L3485" class="LineNr">3485 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+24) to ecx</span> +<span id="L3486" class="LineNr">3486 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3487" class="LineNr">3487 </span> <span class="subxComment"># curr += 4</span> +<span id="L3488" class="LineNr">3488 </span> 05/add-to-eax 4/imm32 +<span id="L3489" class="LineNr">3489 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3490" class="LineNr">3490 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3491" class="LineNr">3491 </span> 73/jump-if-addr>= $stream-add5:abort/disp8 +<span id="L3492" class="LineNr">3492 </span> <span class="subxComment"># *curr = val3</span> +<span id="L3493" class="LineNr">3493 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+28) to ecx</span> +<span id="L3494" class="LineNr">3494 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3495" class="LineNr">3495 </span> <span class="subxComment"># in->write += 20</span> +<span id="L3496" class="LineNr">3496 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to *esi</span> +<span id="L3497" class="LineNr">3497 </span><span class="Constant">$stream-add5:end</span>: +<span id="L3498" class="LineNr">3498 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3499" class="LineNr">3499 </span> 5e/pop-to-esi +<span id="L3500" class="LineNr">3500 </span> 5a/pop-to-edx +<span id="L3501" class="LineNr">3501 </span> 59/pop-to-ecx +<span id="L3502" class="LineNr">3502 </span> 58/pop-to-eax +<span id="L3503" class="LineNr">3503 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3504" class="LineNr">3504 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3505" class="LineNr">3505 </span> 5d/pop-to-ebp +<span id="L3506" class="LineNr">3506 </span> c3/return +<span id="L3507" class="LineNr">3507 </span> +<span id="L3508" class="LineNr">3508 </span><span class="Constant">$stream-add5:abort</span>: +<span id="L3509" class="LineNr">3509 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L3510" class="LineNr">3510 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3511" class="LineNr">3511 </span> 68/push <span class="Constant">"overflow in stream-add5\n"</span>/imm32 +<span id="L3512" class="LineNr">3512 </span> 68/push 2/imm32/stderr +<span id="L3513" class="LineNr">3513 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3514" class="LineNr">3514 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L3515" class="LineNr">3515 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3516" class="LineNr">3516 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3517" class="LineNr">3517 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L3518" class="LineNr">3518 </span> bb/copy-to-ebx 1/imm32 +<span id="L3519" class="LineNr">3519 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L3520" class="LineNr">3520 </span> <span class="subxComment"># never gets here</span> +<span id="L3521" class="LineNr">3521 </span> +<span id="L3522" class="LineNr">3522 </span><span class="subxFunction">stream-add6</span>: <span class="subxComment"># in: (addr stream byte), key: handle, val1: addr, val2: addr, val3: addr, val4: addr</span> +<span id="L3523" class="LineNr">3523 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3524" class="LineNr">3524 </span> 55/push-ebp +<span id="L3525" class="LineNr">3525 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3526" class="LineNr">3526 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L3527" class="LineNr">3527 </span> 50/push-eax +<span id="L3528" class="LineNr">3528 </span> 51/push-ecx +<span id="L3529" class="LineNr">3529 </span> 52/push-edx +<span id="L3530" class="LineNr">3530 </span> 56/push-esi +<span id="L3531" class="LineNr">3531 </span> <span class="subxComment"># esi = in</span> +<span id="L3532" class="LineNr">3532 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 6/r32/esi 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+8) to esi</span> +<span id="L3533" class="LineNr">3533 </span> <span class="subxComment"># curr/eax = &in->data[in->write]</span> +<span id="L3534" class="LineNr">3534 </span> <span class="subxS1Comment"># . eax = in->write</span> +<span id="L3535" class="LineNr">3535 </span> 8b/copy 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *esi to eax</span> +<span id="L3536" class="LineNr">3536 </span> <span class="subxS1Comment"># . eax = esi+eax+12</span> +<span id="L3537" class="LineNr">3537 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 0/index/eax <span class="Normal"> . </span> 0/r32/eax 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+eax+12 to eax</span> +<span id="L3538" class="LineNr">3538 </span> <span class="subxComment"># max/edx = &in->data[in->size]</span> +<span id="L3539" class="LineNr">3539 </span> <span class="subxS1Comment"># . edx = in->size</span> +<span id="L3540" class="LineNr">3540 </span> 8b/copy 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(esi+8) to edx</span> +<span id="L3541" class="LineNr">3541 </span> <span class="subxS1Comment"># . edx = esi+edx+12</span> +<span id="L3542" class="LineNr">3542 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 6/base/esi 2/index/edx <span class="Normal"> . </span> 2/r32/edx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy esi+edx+12 to edx</span> +<span id="L3543" class="LineNr">3543 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3544" class="LineNr">3544 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3545" class="LineNr">3545 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 +<span id="L3546" class="LineNr">3546 </span> <span class="subxComment"># *curr = key->alloc-id</span> +<span id="L3547" class="LineNr">3547 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+12) to ecx</span> +<span id="L3548" class="LineNr">3548 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3549" class="LineNr">3549 </span> <span class="subxComment"># curr += 4</span> +<span id="L3550" class="LineNr">3550 </span> 05/add-to-eax 4/imm32 +<span id="L3551" class="LineNr">3551 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3552" class="LineNr">3552 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3553" class="LineNr">3553 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 +<span id="L3554" class="LineNr">3554 </span> <span class="subxComment"># *curr = key->payload</span> +<span id="L3555" class="LineNr">3555 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+16) to ecx</span> +<span id="L3556" class="LineNr">3556 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3557" class="LineNr">3557 </span> <span class="subxComment"># curr += 4</span> +<span id="L3558" class="LineNr">3558 </span> 05/add-to-eax 4/imm32 +<span id="L3559" class="LineNr">3559 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3560" class="LineNr">3560 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3561" class="LineNr">3561 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 +<span id="L3562" class="LineNr">3562 </span> <span class="subxComment"># *curr = val1</span> +<span id="L3563" class="LineNr">3563 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+20) to ecx</span> +<span id="L3564" class="LineNr">3564 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3565" class="LineNr">3565 </span> <span class="subxComment"># curr += 4</span> +<span id="L3566" class="LineNr">3566 </span> 05/add-to-eax 4/imm32 +<span id="L3567" class="LineNr">3567 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3568" class="LineNr">3568 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3569" class="LineNr">3569 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 +<span id="L3570" class="LineNr">3570 </span> <span class="subxComment"># *curr = val2</span> +<span id="L3571" class="LineNr">3571 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+24) to ecx</span> +<span id="L3572" class="LineNr">3572 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3573" class="LineNr">3573 </span> <span class="subxComment"># curr += 4</span> +<span id="L3574" class="LineNr">3574 </span> 05/add-to-eax 4/imm32 +<span id="L3575" class="LineNr">3575 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3576" class="LineNr">3576 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3577" class="LineNr">3577 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 +<span id="L3578" class="LineNr">3578 </span><span class="Constant">$aa-write-segment-offset</span>: +<span id="L3579" class="LineNr">3579 </span> <span class="subxComment"># *curr = val3</span> +<span id="L3580" class="LineNr">3580 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x1c/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+28) to ecx</span> +<span id="L3581" class="LineNr">3581 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3582" class="LineNr">3582 </span> <span class="subxComment"># curr += 4</span> +<span id="L3583" class="LineNr">3583 </span> 05/add-to-eax 4/imm32 +<span id="L3584" class="LineNr">3584 </span> <span class="subxComment"># if (curr >= max) abort</span> +<span id="L3585" class="LineNr">3585 </span> 39/compare 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># compare eax with edx</span> +<span id="L3586" class="LineNr">3586 </span> 73/jump-if-addr>= $stream-add6:abort/disp8 +<span id="L3587" class="LineNr">3587 </span> <span class="subxComment"># *curr = val4</span> +<span id="L3588" class="LineNr">3588 </span> 8b/copy 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx 0x20/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ebp+32) to ecx</span> +<span id="L3589" class="LineNr">3589 </span> 89/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ecx to *eax</span> +<span id="L3590" class="LineNr">3590 </span> <span class="subxComment"># in->write += 24</span> +<span id="L3591" class="LineNr">3591 </span> 81 0/subop/add 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/imm32 <span class="subxComment"># add to *esi</span> +<span id="L3592" class="LineNr">3592 </span><span class="Constant">$stream-add6:end</span>: +<span id="L3593" class="LineNr">3593 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L3594" class="LineNr">3594 </span> 5e/pop-to-esi +<span id="L3595" class="LineNr">3595 </span> 5a/pop-to-edx +<span id="L3596" class="LineNr">3596 </span> 59/pop-to-ecx +<span id="L3597" class="LineNr">3597 </span> 58/pop-to-eax +<span id="L3598" class="LineNr">3598 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3599" class="LineNr">3599 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3600" class="LineNr">3600 </span> 5d/pop-to-ebp +<span id="L3601" class="LineNr">3601 </span> c3/return <span id="L3602" class="LineNr">3602 </span> -<span id="L3603" class="LineNr">3603 </span><span class="subxFunction">trace-sssns</span>: <span class="subxComment"># s1: (addr array byte), s2: (addr array byte), s3: (addr array byte), n4: int, s5: (addr array byte)</span> -<span id="L3604" class="LineNr">3604 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3605" class="LineNr">3605 </span> 55/push-ebp -<span id="L3606" class="LineNr">3606 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3607" class="LineNr">3607 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> -<span id="L3608" class="LineNr">3608 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3609" class="LineNr">3609 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3610" class="LineNr">3610 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3611" class="LineNr">3611 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3612" class="LineNr">3612 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3613" class="LineNr">3613 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3614" class="LineNr">3614 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3615" class="LineNr">3615 </span> <span class="subxComment"># write(*Trace-stream, s2)</span> -<span id="L3616" class="LineNr">3616 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3617" class="LineNr">3617 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3618" class="LineNr">3618 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3619" class="LineNr">3619 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3620" class="LineNr">3620 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3621" class="LineNr">3621 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3622" class="LineNr">3622 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3623" class="LineNr">3623 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> -<span id="L3624" class="LineNr">3624 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3625" class="LineNr">3625 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L3626" class="LineNr">3626 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3627" class="LineNr">3627 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3628" class="LineNr">3628 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3629" class="LineNr">3629 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3630" class="LineNr">3630 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3631" class="LineNr">3631 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> -<span id="L3632" class="LineNr">3632 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3633" class="LineNr">3633 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L3634" class="LineNr">3634 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3635" class="LineNr">3635 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3636" class="LineNr">3636 </span> e8/call <a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 -<span id="L3637" class="LineNr">3637 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3638" class="LineNr">3638 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3639" class="LineNr">3639 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> -<span id="L3640" class="LineNr">3640 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3641" class="LineNr">3641 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L3642" class="LineNr">3642 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3643" class="LineNr">3643 </span> e8/call <a href='../107trace.subx.html#L86'>trace</a>/disp32 -<span id="L3644" class="LineNr">3644 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3645" class="LineNr">3645 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3646" class="LineNr">3646 </span><span class="Constant">$trace-sssns:end</span>: -<span id="L3647" class="LineNr">3647 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3648" class="LineNr">3648 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3649" class="LineNr">3649 </span> 5d/pop-to-ebp -<span id="L3650" class="LineNr">3650 </span> c3/return -<span id="L3651" class="LineNr">3651 </span> -<span id="L3652" class="LineNr">3652 </span><span class="subxTest">test-trace-sssns</span>: -<span id="L3653" class="LineNr">3653 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3654" class="LineNr">3654 </span> 55/push-ebp -<span id="L3655" class="LineNr">3655 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3656" class="LineNr">3656 </span> <span class="subxComment"># setup</span> -<span id="L3657" class="LineNr">3657 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> -<span id="L3658" class="LineNr">3658 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> -<span id="L3659" class="LineNr">3659 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> -<span id="L3660" class="LineNr">3660 </span> <span class="subxComment"># trace-sssns("A" "b" "c " 3 " e")</span> +<span id="L3603" class="LineNr">3603 </span><span class="Constant">$stream-add6:abort</span>: +<span id="L3604" class="LineNr">3604 </span> <span class="subxS1Comment"># . _write(2/stderr, error)</span> +<span id="L3605" class="LineNr">3605 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3606" class="LineNr">3606 </span> 68/push <span class="Constant">"overflow in stream-add6\n"</span>/imm32 +<span id="L3607" class="LineNr">3607 </span> 68/push 2/imm32/stderr +<span id="L3608" class="LineNr">3608 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3609" class="LineNr">3609 </span> e8/call <a href='101_write.subx.html#L12'>_write</a>/disp32 +<span id="L3610" class="LineNr">3610 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3611" class="LineNr">3611 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3612" class="LineNr">3612 </span> <span class="subxS1Comment"># . syscall(exit, 1)</span> +<span id="L3613" class="LineNr">3613 </span> bb/copy-to-ebx 1/imm32 +<span id="L3614" class="LineNr">3614 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 +<span id="L3615" class="LineNr">3615 </span> <span class="subxComment"># never gets here</span> +<span id="L3616" class="LineNr">3616 </span> +<span id="L3617" class="LineNr">3617 </span><span class="subxComment"># some variants of 'trace' that take multiple arguments in different combinations of types:</span> +<span id="L3618" class="LineNr">3618 </span><span class="subxComment"># n: int</span> +<span id="L3619" class="LineNr">3619 </span><span class="subxComment"># c: character [4-bytes, will eventually be UTF-8]</span> +<span id="L3620" class="LineNr">3620 </span><span class="subxComment"># s: (addr array byte)</span> +<span id="L3621" class="LineNr">3621 </span><span class="subxComment"># l: (addr slice)</span> +<span id="L3622" class="LineNr">3622 </span><span class="subxComment"># one gotcha: 's5' must not be empty</span> +<span id="L3623" class="LineNr">3623 </span> +<span id="L3624" class="LineNr">3624 </span><span class="subxFunction">trace-sssns</span>: <span class="subxComment"># s1: (addr array byte), s2: (addr array byte), s3: (addr array byte), n4: int, s5: (addr array byte)</span> +<span id="L3625" class="LineNr">3625 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3626" class="LineNr">3626 </span> 55/push-ebp +<span id="L3627" class="LineNr">3627 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3628" class="LineNr">3628 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L3629" class="LineNr">3629 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3630" class="LineNr">3630 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3631" class="LineNr">3631 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3632" class="LineNr">3632 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3633" class="LineNr">3633 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3634" class="LineNr">3634 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3635" class="LineNr">3635 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3636" class="LineNr">3636 </span> <span class="subxComment"># write(*Trace-stream, s2)</span> +<span id="L3637" class="LineNr">3637 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3638" class="LineNr">3638 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3639" class="LineNr">3639 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3640" class="LineNr">3640 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3641" class="LineNr">3641 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3642" class="LineNr">3642 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3643" class="LineNr">3643 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3644" class="LineNr">3644 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L3645" class="LineNr">3645 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3646" class="LineNr">3646 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L3647" class="LineNr">3647 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3648" class="LineNr">3648 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3649" class="LineNr">3649 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3650" class="LineNr">3650 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3651" class="LineNr">3651 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3652" class="LineNr">3652 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> +<span id="L3653" class="LineNr">3653 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3654" class="LineNr">3654 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L3655" class="LineNr">3655 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3656" class="LineNr">3656 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3657" class="LineNr">3657 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L3658" class="LineNr">3658 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3659" class="LineNr">3659 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3660" class="LineNr">3660 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> <span id="L3661" class="LineNr">3661 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3662" class="LineNr">3662 </span> 68/push <span class="Constant">" e"</span>/imm32 -<span id="L3663" class="LineNr">3663 </span> 68/push 3/imm32 -<span id="L3664" class="LineNr">3664 </span> 68/push <span class="Constant">"c "</span>/imm32 -<span id="L3665" class="LineNr">3665 </span> 68/push <span class="Constant">"b"</span>/imm32 -<span id="L3666" class="LineNr">3666 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L3667" class="LineNr">3667 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3668" class="LineNr">3668 </span> e8/call <a href='survey.subx.html#L3603'>trace-sssns</a>/disp32 -<span id="L3669" class="LineNr">3669 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3670" class="LineNr">3670 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3671" class="Folded">3671 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3697" class="LineNr">3697 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> -<span id="L3698" class="LineNr">3698 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3699" class="LineNr">3699 </span> 68/push <span class="Constant">"F - test-trace-sssns"</span>/imm32 -<span id="L3700" class="LineNr">3700 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 -<span id="L3701" class="LineNr">3701 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3702" class="LineNr">3702 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L3703" class="LineNr">3703 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3704" class="LineNr">3704 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3705" class="LineNr">3705 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3706" class="LineNr">3706 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3707" class="LineNr">3707 </span> 5d/pop-to-ebp -<span id="L3708" class="LineNr">3708 </span> c3/return -<span id="L3709" class="LineNr">3709 </span> -<span id="L3710" class="LineNr">3710 </span><span class="subxFunction">trace-snsns</span>: <span class="subxComment"># s1: (addr array byte), n2: int, s3: (addr array byte), n4: int, s5: (addr array byte)</span> -<span id="L3711" class="LineNr">3711 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3712" class="LineNr">3712 </span> 55/push-ebp -<span id="L3713" class="LineNr">3713 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3714" class="LineNr">3714 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> -<span id="L3715" class="LineNr">3715 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3716" class="LineNr">3716 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3717" class="LineNr">3717 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3718" class="LineNr">3718 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3719" class="LineNr">3719 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3720" class="LineNr">3720 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3721" class="LineNr">3721 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3722" class="LineNr">3722 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n2)</span> -<span id="L3723" class="LineNr">3723 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3724" class="LineNr">3724 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3725" class="LineNr">3725 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3726" class="LineNr">3726 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3727" class="LineNr">3727 </span> e8/call <a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 -<span id="L3728" class="LineNr">3728 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3729" class="LineNr">3729 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3730" class="LineNr">3730 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> -<span id="L3731" class="LineNr">3731 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3732" class="LineNr">3732 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L3733" class="LineNr">3733 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3734" class="LineNr">3734 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3735" class="LineNr">3735 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3736" class="LineNr">3736 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3737" class="LineNr">3737 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3738" class="LineNr">3738 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> -<span id="L3739" class="LineNr">3739 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3740" class="LineNr">3740 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L3741" class="LineNr">3741 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3742" class="LineNr">3742 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3743" class="LineNr">3743 </span> e8/call <a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 -<span id="L3744" class="LineNr">3744 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3745" class="LineNr">3745 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3746" class="LineNr">3746 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> -<span id="L3747" class="LineNr">3747 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3748" class="LineNr">3748 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L3749" class="LineNr">3749 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3750" class="LineNr">3750 </span> e8/call <a href='../107trace.subx.html#L86'>trace</a>/disp32 -<span id="L3751" class="LineNr">3751 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3752" class="LineNr">3752 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3753" class="LineNr">3753 </span><span class="Constant">$trace-snsns:end</span>: -<span id="L3754" class="LineNr">3754 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3755" class="LineNr">3755 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3756" class="LineNr">3756 </span> 5d/pop-to-ebp -<span id="L3757" class="LineNr">3757 </span> c3/return -<span id="L3758" class="LineNr">3758 </span> -<span id="L3759" class="LineNr">3759 </span><span class="subxTest">test-trace-snsns</span>: -<span id="L3760" class="LineNr">3760 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3761" class="LineNr">3761 </span> 55/push-ebp -<span id="L3762" class="LineNr">3762 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3763" class="LineNr">3763 </span> <span class="subxComment"># setup</span> -<span id="L3764" class="LineNr">3764 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> -<span id="L3765" class="LineNr">3765 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> -<span id="L3766" class="LineNr">3766 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> -<span id="L3767" class="LineNr">3767 </span> <span class="subxComment"># trace-snsns("A " 2 " c " 3 " e")</span> +<span id="L3662" class="LineNr">3662 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L3663" class="LineNr">3663 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3664" class="LineNr">3664 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L3665" class="LineNr">3665 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3666" class="LineNr">3666 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3667" class="LineNr">3667 </span><span class="Constant">$trace-sssns:end</span>: +<span id="L3668" class="LineNr">3668 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3669" class="LineNr">3669 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3670" class="LineNr">3670 </span> 5d/pop-to-ebp +<span id="L3671" class="LineNr">3671 </span> c3/return +<span id="L3672" class="LineNr">3672 </span> +<span id="L3673" class="LineNr">3673 </span><span class="subxTest">test-trace-sssns</span>: +<span id="L3674" class="LineNr">3674 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3675" class="LineNr">3675 </span> 55/push-ebp +<span id="L3676" class="LineNr">3676 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3677" class="LineNr">3677 </span> <span class="subxComment"># setup</span> +<span id="L3678" class="LineNr">3678 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L3679" class="LineNr">3679 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> +<span id="L3680" class="LineNr">3680 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> +<span id="L3681" class="LineNr">3681 </span> <span class="subxComment"># trace-sssns("A" "b" "c " 3 " e")</span> +<span id="L3682" class="LineNr">3682 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3683" class="LineNr">3683 </span> 68/push <span class="Constant">" e"</span>/imm32 +<span id="L3684" class="LineNr">3684 </span> 68/push 3/imm32 +<span id="L3685" class="LineNr">3685 </span> 68/push <span class="Constant">"c "</span>/imm32 +<span id="L3686" class="LineNr">3686 </span> 68/push <span class="Constant">"b"</span>/imm32 +<span id="L3687" class="LineNr">3687 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L3688" class="LineNr">3688 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3689" class="LineNr">3689 </span> e8/call <a href='survey_elf.subx.html#L3624'>trace-sssns</a>/disp32 +<span id="L3690" class="LineNr">3690 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3691" class="LineNr">3691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3692" class="Folded">3692 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3718" class="LineNr">3718 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> +<span id="L3719" class="LineNr">3719 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3720" class="LineNr">3720 </span> 68/push <span class="Constant">"F - test-trace-sssns"</span>/imm32 +<span id="L3721" class="LineNr">3721 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 +<span id="L3722" class="LineNr">3722 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3723" class="LineNr">3723 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L3724" class="LineNr">3724 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3725" class="LineNr">3725 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3726" class="LineNr">3726 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3727" class="LineNr">3727 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3728" class="LineNr">3728 </span> 5d/pop-to-ebp +<span id="L3729" class="LineNr">3729 </span> c3/return +<span id="L3730" class="LineNr">3730 </span> +<span id="L3731" class="LineNr">3731 </span><span class="subxFunction">trace-slsls</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), l4: (addr slice), s5: (addr array byte)</span> +<span id="L3732" class="LineNr">3732 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3733" class="LineNr">3733 </span> 55/push-ebp +<span id="L3734" class="LineNr">3734 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3735" class="LineNr">3735 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L3736" class="LineNr">3736 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3737" class="LineNr">3737 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3738" class="LineNr">3738 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3739" class="LineNr">3739 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3740" class="LineNr">3740 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3741" class="LineNr">3741 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3742" class="LineNr">3742 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3743" class="LineNr">3743 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> +<span id="L3744" class="LineNr">3744 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3745" class="LineNr">3745 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3746" class="LineNr">3746 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3747" class="LineNr">3747 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3748" class="LineNr">3748 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L3749" class="LineNr">3749 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3750" class="LineNr">3750 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3751" class="LineNr">3751 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L3752" class="LineNr">3752 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3753" class="LineNr">3753 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L3754" class="LineNr">3754 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3755" class="LineNr">3755 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3756" class="LineNr">3756 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3757" class="LineNr">3757 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3758" class="LineNr">3758 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3759" class="LineNr">3759 </span> <span class="subxComment"># write-slice(*Trace-stream, l4)</span> +<span id="L3760" class="LineNr">3760 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3761" class="LineNr">3761 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L3762" class="LineNr">3762 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3763" class="LineNr">3763 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3764" class="LineNr">3764 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L3765" class="LineNr">3765 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3766" class="LineNr">3766 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3767" class="LineNr">3767 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> <span id="L3768" class="LineNr">3768 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3769" class="LineNr">3769 </span> 68/push <span class="Constant">" e"</span>/imm32 -<span id="L3770" class="LineNr">3770 </span> 68/push 3/imm32 -<span id="L3771" class="LineNr">3771 </span> 68/push <span class="Constant">" c "</span>/imm32 -<span id="L3772" class="LineNr">3772 </span> 68/push 2/imm32 -<span id="L3773" class="LineNr">3773 </span> 68/push <span class="Constant">"A "</span>/imm32 -<span id="L3774" class="LineNr">3774 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3775" class="LineNr">3775 </span> e8/call <a href='survey.subx.html#L3710'>trace-snsns</a>/disp32 -<span id="L3776" class="LineNr">3776 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3777" class="LineNr">3777 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3778" class="Folded">3778 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3804" class="LineNr">3804 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> -<span id="L3805" class="LineNr">3805 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3806" class="LineNr">3806 </span> 68/push <span class="Constant">"F - test-trace-snsns"</span>/imm32 -<span id="L3807" class="LineNr">3807 </span> 68/push <span class="Constant">"A 0x00000002 c 0x00000003 e"</span>/imm32 -<span id="L3808" class="LineNr">3808 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3809" class="LineNr">3809 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L3810" class="LineNr">3810 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3811" class="LineNr">3811 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3812" class="LineNr">3812 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3813" class="LineNr">3813 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3814" class="LineNr">3814 </span> 5d/pop-to-ebp -<span id="L3815" class="LineNr">3815 </span> c3/return -<span id="L3816" class="LineNr">3816 </span> -<span id="L3817" class="LineNr">3817 </span><span class="subxFunction">trace-slsls</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), l4: (addr slice), s5: (addr array byte)</span> -<span id="L3818" class="LineNr">3818 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3819" class="LineNr">3819 </span> 55/push-ebp -<span id="L3820" class="LineNr">3820 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3821" class="LineNr">3821 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> -<span id="L3822" class="LineNr">3822 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3823" class="LineNr">3823 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3824" class="LineNr">3824 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3825" class="LineNr">3825 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3826" class="LineNr">3826 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3827" class="LineNr">3827 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3828" class="LineNr">3828 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3829" class="LineNr">3829 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> -<span id="L3830" class="LineNr">3830 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3831" class="LineNr">3831 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3832" class="LineNr">3832 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3833" class="LineNr">3833 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3834" class="LineNr">3834 </span> e8/call <a href='../123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L3835" class="LineNr">3835 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3836" class="LineNr">3836 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3837" class="LineNr">3837 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> -<span id="L3838" class="LineNr">3838 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3839" class="LineNr">3839 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L3840" class="LineNr">3840 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3841" class="LineNr">3841 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3842" class="LineNr">3842 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3843" class="LineNr">3843 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3844" class="LineNr">3844 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3845" class="LineNr">3845 </span> <span class="subxComment"># write-slice(*Trace-stream, l4)</span> -<span id="L3846" class="LineNr">3846 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3847" class="LineNr">3847 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L3848" class="LineNr">3848 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3849" class="LineNr">3849 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3850" class="LineNr">3850 </span> e8/call <a href='../123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L3851" class="LineNr">3851 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3852" class="LineNr">3852 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3853" class="LineNr">3853 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> -<span id="L3854" class="LineNr">3854 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3855" class="LineNr">3855 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L3856" class="LineNr">3856 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3857" class="LineNr">3857 </span> e8/call <a href='../107trace.subx.html#L86'>trace</a>/disp32 -<span id="L3858" class="LineNr">3858 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3859" class="LineNr">3859 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3860" class="LineNr">3860 </span><span class="Constant">$trace-slsls:end</span>: -<span id="L3861" class="LineNr">3861 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3862" class="LineNr">3862 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3863" class="LineNr">3863 </span> 5d/pop-to-ebp -<span id="L3864" class="LineNr">3864 </span> c3/return -<span id="L3865" class="LineNr">3865 </span> -<span id="L3866" class="LineNr">3866 </span><span class="subxTest">test-trace-slsls</span>: -<span id="L3867" class="LineNr">3867 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3868" class="LineNr">3868 </span> 55/push-ebp -<span id="L3869" class="LineNr">3869 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3870" class="LineNr">3870 </span> <span class="subxComment"># setup</span> -<span id="L3871" class="LineNr">3871 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> -<span id="L3872" class="LineNr">3872 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> -<span id="L3873" class="LineNr">3873 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> -<span id="L3874" class="LineNr">3874 </span> <span class="subxComment"># (eax..ecx) = "b"</span> -<span id="L3875" class="LineNr">3875 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 -<span id="L3876" class="LineNr">3876 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L3877" class="LineNr">3877 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L3878" class="LineNr">3878 </span> 05/add-to-eax 4/imm32 -<span id="L3879" class="LineNr">3879 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> -<span id="L3880" class="LineNr">3880 </span> 51/push-ecx -<span id="L3881" class="LineNr">3881 </span> 50/push-eax -<span id="L3882" class="LineNr">3882 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L3883" class="LineNr">3883 </span> <span class="subxComment"># (eax..ecx) = "d"</span> -<span id="L3884" class="LineNr">3884 </span> b8/copy-to-eax <span class="Constant">"d"</span>/imm32 -<span id="L3885" class="LineNr">3885 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L3886" class="LineNr">3886 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L3887" class="LineNr">3887 </span> 05/add-to-eax 4/imm32 -<span id="L3888" class="LineNr">3888 </span> <span class="subxComment"># var d/edx: slice = {eax, ecx}</span> -<span id="L3889" class="LineNr">3889 </span> 51/push-ecx -<span id="L3890" class="LineNr">3890 </span> 50/push-eax -<span id="L3891" class="LineNr">3891 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> -<span id="L3892" class="LineNr">3892 </span> <span class="subxComment"># trace-slsls("A" b "c" d "e")</span> +<span id="L3769" class="LineNr">3769 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L3770" class="LineNr">3770 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3771" class="LineNr">3771 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L3772" class="LineNr">3772 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3773" class="LineNr">3773 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3774" class="LineNr">3774 </span><span class="Constant">$trace-slsls:end</span>: +<span id="L3775" class="LineNr">3775 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3776" class="LineNr">3776 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3777" class="LineNr">3777 </span> 5d/pop-to-ebp +<span id="L3778" class="LineNr">3778 </span> c3/return +<span id="L3779" class="LineNr">3779 </span> +<span id="L3780" class="LineNr">3780 </span><span class="subxTest">test-trace-slsls</span>: +<span id="L3781" class="LineNr">3781 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3782" class="LineNr">3782 </span> 55/push-ebp +<span id="L3783" class="LineNr">3783 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3784" class="LineNr">3784 </span> <span class="subxComment"># setup</span> +<span id="L3785" class="LineNr">3785 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L3786" class="LineNr">3786 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> +<span id="L3787" class="LineNr">3787 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> +<span id="L3788" class="LineNr">3788 </span> <span class="subxComment"># (eax..ecx) = "b"</span> +<span id="L3789" class="LineNr">3789 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 +<span id="L3790" class="LineNr">3790 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3791" class="LineNr">3791 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L3792" class="LineNr">3792 </span> 05/add-to-eax 4/imm32 +<span id="L3793" class="LineNr">3793 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> +<span id="L3794" class="LineNr">3794 </span> 51/push-ecx +<span id="L3795" class="LineNr">3795 </span> 50/push-eax +<span id="L3796" class="LineNr">3796 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L3797" class="LineNr">3797 </span> <span class="subxComment"># (eax..ecx) = "d"</span> +<span id="L3798" class="LineNr">3798 </span> b8/copy-to-eax <span class="Constant">"d"</span>/imm32 +<span id="L3799" class="LineNr">3799 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3800" class="LineNr">3800 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L3801" class="LineNr">3801 </span> 05/add-to-eax 4/imm32 +<span id="L3802" class="LineNr">3802 </span> <span class="subxComment"># var d/edx: slice = {eax, ecx}</span> +<span id="L3803" class="LineNr">3803 </span> 51/push-ecx +<span id="L3804" class="LineNr">3804 </span> 50/push-eax +<span id="L3805" class="LineNr">3805 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to edx</span> +<span id="L3806" class="LineNr">3806 </span> <span class="subxComment"># trace-slsls("A" b "c" d "e")</span> +<span id="L3807" class="LineNr">3807 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3808" class="LineNr">3808 </span> 68/push <span class="Constant">"e"</span>/imm32 +<span id="L3809" class="LineNr">3809 </span> 52/push-edx +<span id="L3810" class="LineNr">3810 </span> 68/push <span class="Constant">"c"</span>/imm32 +<span id="L3811" class="LineNr">3811 </span> 53/push-ebx +<span id="L3812" class="LineNr">3812 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L3813" class="LineNr">3813 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3814" class="LineNr">3814 </span> e8/call <a href='survey_elf.subx.html#L3731'>trace-slsls</a>/disp32 +<span id="L3815" class="LineNr">3815 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3816" class="LineNr">3816 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3817" class="Folded">3817 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3843" class="LineNr">3843 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> +<span id="L3844" class="LineNr">3844 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3845" class="LineNr">3845 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 +<span id="L3846" class="LineNr">3846 </span> 68/push <span class="Constant">"Abcde"</span>/imm32 +<span id="L3847" class="LineNr">3847 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3848" class="LineNr">3848 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L3849" class="LineNr">3849 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3850" class="LineNr">3850 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3851" class="LineNr">3851 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3852" class="LineNr">3852 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3853" class="LineNr">3853 </span> 5d/pop-to-ebp +<span id="L3854" class="LineNr">3854 </span> c3/return +<span id="L3855" class="LineNr">3855 </span> +<span id="L3856" class="LineNr">3856 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), n4: int, s5: (addr array byte)</span> +<span id="L3857" class="LineNr">3857 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3858" class="LineNr">3858 </span> 55/push-ebp +<span id="L3859" class="LineNr">3859 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3860" class="LineNr">3860 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L3861" class="LineNr">3861 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3862" class="LineNr">3862 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3863" class="LineNr">3863 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3864" class="LineNr">3864 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3865" class="LineNr">3865 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3866" class="LineNr">3866 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3867" class="LineNr">3867 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3868" class="LineNr">3868 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> +<span id="L3869" class="LineNr">3869 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3870" class="LineNr">3870 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3871" class="LineNr">3871 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3872" class="LineNr">3872 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3873" class="LineNr">3873 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L3874" class="LineNr">3874 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3875" class="LineNr">3875 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3876" class="LineNr">3876 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L3877" class="LineNr">3877 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3878" class="LineNr">3878 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L3879" class="LineNr">3879 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3880" class="LineNr">3880 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3881" class="LineNr">3881 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3882" class="LineNr">3882 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3883" class="LineNr">3883 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3884" class="LineNr">3884 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> +<span id="L3885" class="LineNr">3885 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3886" class="LineNr">3886 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L3887" class="LineNr">3887 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3888" class="LineNr">3888 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3889" class="LineNr">3889 </span> e8/call <a href='117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 +<span id="L3890" class="LineNr">3890 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3891" class="LineNr">3891 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3892" class="LineNr">3892 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> <span id="L3893" class="LineNr">3893 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3894" class="LineNr">3894 </span> 68/push <span class="Constant">"e"</span>/imm32 -<span id="L3895" class="LineNr">3895 </span> 52/push-edx -<span id="L3896" class="LineNr">3896 </span> 68/push <span class="Constant">"c"</span>/imm32 -<span id="L3897" class="LineNr">3897 </span> 53/push-ebx -<span id="L3898" class="LineNr">3898 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L3899" class="LineNr">3899 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3900" class="LineNr">3900 </span> e8/call <a href='survey.subx.html#L3817'>trace-slsls</a>/disp32 -<span id="L3901" class="LineNr">3901 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3902" class="LineNr">3902 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L3903" class="Folded">3903 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L3929" class="LineNr">3929 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> -<span id="L3930" class="LineNr">3930 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3931" class="LineNr">3931 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 -<span id="L3932" class="LineNr">3932 </span> 68/push <span class="Constant">"Abcde"</span>/imm32 -<span id="L3933" class="LineNr">3933 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3934" class="LineNr">3934 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L3935" class="LineNr">3935 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3936" class="LineNr">3936 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3937" class="LineNr">3937 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3938" class="LineNr">3938 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3939" class="LineNr">3939 </span> 5d/pop-to-ebp -<span id="L3940" class="LineNr">3940 </span> c3/return -<span id="L3941" class="LineNr">3941 </span> -<span id="L3942" class="LineNr">3942 </span><span class="subxFunction">trace-slsns</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), n4: int, s5: (addr array byte)</span> -<span id="L3943" class="LineNr">3943 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3944" class="LineNr">3944 </span> 55/push-ebp -<span id="L3945" class="LineNr">3945 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3946" class="LineNr">3946 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> -<span id="L3947" class="LineNr">3947 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3948" class="LineNr">3948 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L3949" class="LineNr">3949 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3950" class="LineNr">3950 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3951" class="LineNr">3951 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3952" class="LineNr">3952 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3953" class="LineNr">3953 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3954" class="LineNr">3954 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> -<span id="L3955" class="LineNr">3955 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3956" class="LineNr">3956 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L3957" class="LineNr">3957 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3958" class="LineNr">3958 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3959" class="LineNr">3959 </span> e8/call <a href='../123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L3960" class="LineNr">3960 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3961" class="LineNr">3961 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3962" class="LineNr">3962 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> -<span id="L3963" class="LineNr">3963 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3964" class="LineNr">3964 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L3965" class="LineNr">3965 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3966" class="LineNr">3966 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3967" class="LineNr">3967 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L3968" class="LineNr">3968 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3969" class="LineNr">3969 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3970" class="LineNr">3970 </span> <span class="subxComment"># write-int32-hex(*Trace-stream, n4)</span> -<span id="L3971" class="LineNr">3971 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3972" class="LineNr">3972 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L3973" class="LineNr">3973 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L3974" class="LineNr">3974 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3975" class="LineNr">3975 </span> e8/call <a href='../117write-int-hex.subx.html#L178'>write-int32-hex</a>/disp32 -<span id="L3976" class="LineNr">3976 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3977" class="LineNr">3977 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L3978" class="LineNr">3978 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> -<span id="L3979" class="LineNr">3979 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L3980" class="LineNr">3980 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L3981" class="LineNr">3981 </span> <span class="subxS2Comment"># . . call</span> -<span id="L3982" class="LineNr">3982 </span> e8/call <a href='../107trace.subx.html#L86'>trace</a>/disp32 -<span id="L3983" class="LineNr">3983 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L3984" class="LineNr">3984 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L3985" class="LineNr">3985 </span><span class="Constant">$trace-slsns:end</span>: -<span id="L3986" class="LineNr">3986 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L3987" class="LineNr">3987 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L3988" class="LineNr">3988 </span> 5d/pop-to-ebp -<span id="L3989" class="LineNr">3989 </span> c3/return -<span id="L3990" class="LineNr">3990 </span> -<span id="L3991" class="LineNr">3991 </span><span class="subxTest">test-trace-slsns</span>: -<span id="L3992" class="LineNr">3992 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L3993" class="LineNr">3993 </span> 55/push-ebp -<span id="L3994" class="LineNr">3994 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L3995" class="LineNr">3995 </span> <span class="subxComment"># setup</span> -<span id="L3996" class="LineNr">3996 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> -<span id="L3997" class="LineNr">3997 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> -<span id="L3998" class="LineNr">3998 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> -<span id="L3999" class="LineNr">3999 </span> <span class="subxComment"># (eax..ecx) = "b"</span> -<span id="L4000" class="LineNr">4000 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 -<span id="L4001" class="LineNr">4001 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4002" class="LineNr">4002 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4003" class="LineNr">4003 </span> 05/add-to-eax 4/imm32 -<span id="L4004" class="LineNr">4004 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> -<span id="L4005" class="LineNr">4005 </span> 51/push-ecx -<span id="L4006" class="LineNr">4006 </span> 50/push-eax -<span id="L4007" class="LineNr">4007 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L4008" class="LineNr">4008 </span> <span class="subxComment"># trace-slsls("A" b "c " 3 " e")</span> +<span id="L3894" class="LineNr">3894 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L3895" class="LineNr">3895 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3896" class="LineNr">3896 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L3897" class="LineNr">3897 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3898" class="LineNr">3898 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L3899" class="LineNr">3899 </span><span class="Constant">$trace-slsns:end</span>: +<span id="L3900" class="LineNr">3900 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3901" class="LineNr">3901 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3902" class="LineNr">3902 </span> 5d/pop-to-ebp +<span id="L3903" class="LineNr">3903 </span> c3/return +<span id="L3904" class="LineNr">3904 </span> +<span id="L3905" class="LineNr">3905 </span><span class="subxTest">test-trace-slsns</span>: +<span id="L3906" class="LineNr">3906 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3907" class="LineNr">3907 </span> 55/push-ebp +<span id="L3908" class="LineNr">3908 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3909" class="LineNr">3909 </span> <span class="subxComment"># setup</span> +<span id="L3910" class="LineNr">3910 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L3911" class="LineNr">3911 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> +<span id="L3912" class="LineNr">3912 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> +<span id="L3913" class="LineNr">3913 </span> <span class="subxComment"># (eax..ecx) = "b"</span> +<span id="L3914" class="LineNr">3914 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 +<span id="L3915" class="LineNr">3915 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L3916" class="LineNr">3916 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L3917" class="LineNr">3917 </span> 05/add-to-eax 4/imm32 +<span id="L3918" class="LineNr">3918 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> +<span id="L3919" class="LineNr">3919 </span> 51/push-ecx +<span id="L3920" class="LineNr">3920 </span> 50/push-eax +<span id="L3921" class="LineNr">3921 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L3922" class="LineNr">3922 </span> <span class="subxComment"># trace-slsls("A" b "c " 3 " e")</span> +<span id="L3923" class="LineNr">3923 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3924" class="LineNr">3924 </span> 68/push <span class="Constant">" e"</span>/imm32 +<span id="L3925" class="LineNr">3925 </span> 68/push 3/imm32 +<span id="L3926" class="LineNr">3926 </span> 68/push <span class="Constant">"c "</span>/imm32 +<span id="L3927" class="LineNr">3927 </span> 53/push-ebx +<span id="L3928" class="LineNr">3928 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L3929" class="LineNr">3929 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3930" class="LineNr">3930 </span> e8/call <a href='survey_elf.subx.html#L3856'>trace-slsns</a>/disp32 +<span id="L3931" class="LineNr">3931 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3932" class="LineNr">3932 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L3933" class="Folded">3933 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L3959" class="LineNr">3959 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> +<span id="L3960" class="LineNr">3960 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3961" class="LineNr">3961 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 +<span id="L3962" class="LineNr">3962 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 +<span id="L3963" class="LineNr">3963 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3964" class="LineNr">3964 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L3965" class="LineNr">3965 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3966" class="LineNr">3966 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3967" class="LineNr">3967 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L3968" class="LineNr">3968 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L3969" class="LineNr">3969 </span> 5d/pop-to-ebp +<span id="L3970" class="LineNr">3970 </span> c3/return +<span id="L3971" class="LineNr">3971 </span> +<span id="L3972" class="LineNr">3972 </span><span class="subxFunction">trace-slsss</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), s4: (addr array byte), s5: (addr array byte)</span> +<span id="L3973" class="LineNr">3973 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L3974" class="LineNr">3974 </span> 55/push-ebp +<span id="L3975" class="LineNr">3975 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L3976" class="LineNr">3976 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> +<span id="L3977" class="LineNr">3977 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3978" class="LineNr">3978 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L3979" class="LineNr">3979 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3980" class="LineNr">3980 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3981" class="LineNr">3981 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3982" class="LineNr">3982 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3983" class="LineNr">3983 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3984" class="LineNr">3984 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> +<span id="L3985" class="LineNr">3985 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3986" class="LineNr">3986 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> +<span id="L3987" class="LineNr">3987 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3988" class="LineNr">3988 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3989" class="LineNr">3989 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L3990" class="LineNr">3990 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3991" class="LineNr">3991 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L3992" class="LineNr">3992 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> +<span id="L3993" class="LineNr">3993 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L3994" class="LineNr">3994 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> +<span id="L3995" class="LineNr">3995 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L3996" class="LineNr">3996 </span> <span class="subxS2Comment"># . . call</span> +<span id="L3997" class="LineNr">3997 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L3998" class="LineNr">3998 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L3999" class="LineNr">3999 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4000" class="LineNr">4000 </span> <span class="subxComment"># write(*Trace-stream, s4)</span> +<span id="L4001" class="LineNr">4001 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4002" class="LineNr">4002 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> +<span id="L4003" class="LineNr">4003 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> +<span id="L4004" class="LineNr">4004 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4005" class="LineNr">4005 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4006" class="LineNr">4006 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4007" class="LineNr">4007 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4008" class="LineNr">4008 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> <span id="L4009" class="LineNr">4009 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4010" class="LineNr">4010 </span> 68/push <span class="Constant">" e"</span>/imm32 -<span id="L4011" class="LineNr">4011 </span> 68/push 3/imm32 -<span id="L4012" class="LineNr">4012 </span> 68/push <span class="Constant">"c "</span>/imm32 -<span id="L4013" class="LineNr">4013 </span> 53/push-ebx -<span id="L4014" class="LineNr">4014 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L4015" class="LineNr">4015 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4016" class="LineNr">4016 </span> e8/call <a href='survey.subx.html#L3942'>trace-slsns</a>/disp32 -<span id="L4017" class="LineNr">4017 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4018" class="LineNr">4018 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L4019" class="Folded">4019 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4045" class="LineNr">4045 </span> <span class="subxComment"># check-trace-contains("Abc 0x00000003 e")</span> -<span id="L4046" class="LineNr">4046 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4047" class="LineNr">4047 </span> 68/push <span class="Constant">"F - test-trace-slsls"</span>/imm32 -<span id="L4048" class="LineNr">4048 </span> 68/push <span class="Constant">"Abc 0x00000003 e"</span>/imm32 -<span id="L4049" class="LineNr">4049 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4050" class="LineNr">4050 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L4051" class="LineNr">4051 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4052" class="LineNr">4052 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4053" class="LineNr">4053 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4054" class="LineNr">4054 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4055" class="LineNr">4055 </span> 5d/pop-to-ebp -<span id="L4056" class="LineNr">4056 </span> c3/return -<span id="L4057" class="LineNr">4057 </span> -<span id="L4058" class="LineNr">4058 </span><span class="subxFunction">trace-slsss</span>: <span class="subxComment"># s1: (addr array byte), l2: (addr slice), s3: (addr array byte), s4: (addr array byte), s5: (addr array byte)</span> -<span id="L4059" class="LineNr">4059 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4060" class="LineNr">4060 </span> 55/push-ebp -<span id="L4061" class="LineNr">4061 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4062" class="LineNr">4062 </span> <span class="subxComment"># write(*Trace-stream, s1)</span> -<span id="L4063" class="LineNr">4063 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4064" class="LineNr">4064 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L4065" class="LineNr">4065 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L4066" class="LineNr">4066 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4067" class="LineNr">4067 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4068" class="LineNr">4068 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4069" class="LineNr">4069 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4070" class="LineNr">4070 </span> <span class="subxComment"># write-slice(*Trace-stream, l2)</span> -<span id="L4071" class="LineNr">4071 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4072" class="LineNr">4072 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> -<span id="L4073" class="LineNr">4073 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L4074" class="LineNr">4074 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4075" class="LineNr">4075 </span> e8/call <a href='../123slice.subx.html#L793'>write-slice</a>/disp32 -<span id="L4076" class="LineNr">4076 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4077" class="LineNr">4077 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4078" class="LineNr">4078 </span> <span class="subxComment"># write(*Trace-stream, s3)</span> -<span id="L4079" class="LineNr">4079 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4080" class="LineNr">4080 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+16)</span> -<span id="L4081" class="LineNr">4081 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L4082" class="LineNr">4082 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4083" class="LineNr">4083 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4084" class="LineNr">4084 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4085" class="LineNr">4085 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4086" class="LineNr">4086 </span> <span class="subxComment"># write(*Trace-stream, s4)</span> -<span id="L4087" class="LineNr">4087 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4088" class="LineNr">4088 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+20)</span> -<span id="L4089" class="LineNr">4089 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># push *Trace-stream</span> -<span id="L4090" class="LineNr">4090 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4091" class="LineNr">4091 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4092" class="LineNr">4092 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4093" class="LineNr">4093 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4094" class="LineNr">4094 </span> <span class="subxComment"># trace(s5) # implicitly adds a newline and finalizes the trace line</span> -<span id="L4095" class="LineNr">4095 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4096" class="LineNr">4096 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> -<span id="L4097" class="LineNr">4097 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4098" class="LineNr">4098 </span> e8/call <a href='../107trace.subx.html#L86'>trace</a>/disp32 -<span id="L4099" class="LineNr">4099 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4100" class="LineNr">4100 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4101" class="LineNr">4101 </span><span class="Constant">$trace-slsss:end</span>: -<span id="L4102" class="LineNr">4102 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4103" class="LineNr">4103 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4104" class="LineNr">4104 </span> 5d/pop-to-ebp -<span id="L4105" class="LineNr">4105 </span> c3/return -<span id="L4106" class="LineNr">4106 </span> -<span id="L4107" class="LineNr">4107 </span><span class="subxTest">test-trace-slsss</span>: -<span id="L4108" class="LineNr">4108 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4109" class="LineNr">4109 </span> 55/push-ebp -<span id="L4110" class="LineNr">4110 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4111" class="LineNr">4111 </span> <span class="subxComment"># setup</span> -<span id="L4112" class="LineNr">4112 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> -<span id="L4113" class="LineNr">4113 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='../107trace.subx.html#L21'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> -<span id="L4114" class="LineNr">4114 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> -<span id="L4115" class="LineNr">4115 </span> <span class="subxComment"># (eax..ecx) = "b"</span> -<span id="L4116" class="LineNr">4116 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 -<span id="L4117" class="LineNr">4117 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> -<span id="L4118" class="LineNr">4118 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> -<span id="L4119" class="LineNr">4119 </span> 05/add-to-eax 4/imm32 -<span id="L4120" class="LineNr">4120 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> -<span id="L4121" class="LineNr">4121 </span> 51/push-ecx -<span id="L4122" class="LineNr">4122 </span> 50/push-eax -<span id="L4123" class="LineNr">4123 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> -<span id="L4124" class="LineNr">4124 </span> <span class="subxComment"># trace-slsss("A" b "c" "d" "e")</span> -<span id="L4125" class="LineNr">4125 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4126" class="LineNr">4126 </span> 68/push <span class="Constant">"e"</span>/imm32 -<span id="L4127" class="LineNr">4127 </span> 68/push <span class="Constant">"d"</span>/imm32 -<span id="L4128" class="LineNr">4128 </span> 68/push <span class="Constant">"c"</span>/imm32 -<span id="L4129" class="LineNr">4129 </span> 53/push-ebx -<span id="L4130" class="LineNr">4130 </span> 68/push <span class="Constant">"A"</span>/imm32 -<span id="L4131" class="LineNr">4131 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4132" class="LineNr">4132 </span> e8/call <a href='survey.subx.html#L4058'>trace-slsss</a>/disp32 -<span id="L4133" class="LineNr">4133 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4134" class="LineNr">4134 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> -<span id="L4135" class="Folded">4135 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4161" class="LineNr">4161 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> -<span id="L4162" class="LineNr">4162 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4163" class="LineNr">4163 </span> 68/push <span class="Constant">"F - test-trace-slsss"</span>/imm32 -<span id="L4164" class="LineNr">4164 </span> 68/push <span class="Constant">"Abcde"</span>/imm32 -<span id="L4165" class="LineNr">4165 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4166" class="LineNr">4166 </span> e8/call <a href='../107trace.subx.html#L253'>check-trace-contains</a>/disp32 -<span id="L4167" class="LineNr">4167 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4168" class="LineNr">4168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4169" class="LineNr">4169 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4170" class="LineNr">4170 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4171" class="LineNr">4171 </span> 5d/pop-to-ebp -<span id="L4172" class="LineNr">4172 </span> c3/return -<span id="L4173" class="LineNr">4173 </span> -<span id="L4174" class="LineNr">4174 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line: (addr stream byte) -> eax: int</span> -<span id="L4175" class="LineNr">4175 </span> <span class="subxComment"># pseudocode:</span> -<span id="L4176" class="LineNr">4176 </span> <span class="subxComment"># result = 0</span> -<span id="L4177" class="LineNr">4177 </span> <span class="subxComment"># while true</span> -<span id="L4178" class="LineNr">4178 </span> <span class="subxComment"># var word-slice = next-word(line)</span> -<span id="L4179" class="LineNr">4179 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> -<span id="L4180" class="LineNr">4180 </span> <span class="subxComment"># break</span> -<span id="L4181" class="LineNr">4181 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> -<span id="L4182" class="LineNr">4182 </span> <span class="subxComment"># break</span> -<span id="L4183" class="LineNr">4183 </span> <span class="subxComment"># if is-label?(word-slice) # no need for label declarations anymore</span> -<span id="L4184" class="LineNr">4184 </span> <span class="subxComment"># break</span> -<span id="L4185" class="LineNr">4185 </span> <span class="subxComment"># if slice-equal?(word-slice, "==")</span> -<span id="L4186" class="LineNr">4186 </span> <span class="subxComment"># break # no need for segment header lines</span> -<span id="L4187" class="LineNr">4187 </span> <span class="subxComment"># result += compute-width(word-slice)</span> -<span id="L4188" class="LineNr">4188 </span> <span class="subxComment"># return result</span> -<span id="L4189" class="LineNr">4189 </span> <span class="subxComment">#</span> -<span id="L4190" class="LineNr">4190 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4191" class="LineNr">4191 </span> 55/push-ebp -<span id="L4192" class="LineNr">4192 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4193" class="LineNr">4193 </span> <span class="subxS1Comment"># . save registers</span> -<span id="L4194" class="LineNr">4194 </span> 51/push-ecx -<span id="L4195" class="LineNr">4195 </span> 52/push-edx -<span id="L4196" class="LineNr">4196 </span> 53/push-ebx -<span id="L4197" class="LineNr">4197 </span> <span class="subxComment"># var result/eax = 0</span> -<span id="L4198" class="LineNr">4198 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> -<span id="L4199" class="LineNr">4199 </span> <span class="subxComment"># var word-slice/ecx: slice</span> -<span id="L4200" class="LineNr">4200 </span> 68/push 0/imm32/end -<span id="L4201" class="LineNr">4201 </span> 68/push 0/imm32/start -<span id="L4202" class="LineNr">4202 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> -<span id="L4203" class="Folded">4203 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4229" class="LineNr">4229 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> -<span id="L4230" class="LineNr">4230 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4231" class="LineNr">4231 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L4232" class="LineNr">4232 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4233" class="LineNr">4233 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L4234" class="LineNr">4234 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4235" class="LineNr">4235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4236" class="LineNr">4236 </span><span class="Constant">$num-bytes:loop</span>: -<span id="L4237" class="LineNr">4237 </span> <span class="subxComment"># next-word(line, word-slice)</span> -<span id="L4238" class="LineNr">4238 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4239" class="LineNr">4239 </span> 51/push-ecx -<span id="L4240" class="LineNr">4240 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L4241" class="LineNr">4241 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4242" class="LineNr">4242 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 -<span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4244" class="LineNr">4244 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4245" class="Folded">4245 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> -<span id="L4285" class="LineNr">4285 </span><span class="Constant">$num-bytes:check0</span>: -<span id="L4286" class="LineNr">4286 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> -<span id="L4287" class="LineNr">4287 </span> <span class="subxS1Comment"># . save result</span> -<span id="L4288" class="LineNr">4288 </span> 50/push-eax -<span id="L4289" class="LineNr">4289 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> -<span id="L4290" class="LineNr">4290 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4291" class="LineNr">4291 </span> 51/push-ecx -<span id="L4292" class="LineNr">4292 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4293" class="LineNr">4293 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 -<span id="L4294" class="LineNr">4294 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4295" class="LineNr">4295 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4296" class="LineNr">4296 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L4297" class="LineNr">4297 </span> 3d/compare-eax-and 0/imm32/false -<span id="L4298" class="LineNr">4298 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> -<span id="L4299" class="LineNr">4299 </span> 58/pop-to-eax -<span id="L4300" class="LineNr">4300 </span> 75/jump-if-!= $num-bytes:end/disp8 -<span id="L4301" class="LineNr">4301 </span><span class="Constant">$num-bytes:check-for-comment</span>: -<span id="L4302" class="LineNr">4302 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> -<span id="L4303" class="LineNr">4303 </span> <span class="subxS1Comment"># . start/edx = word-slice->start</span> -<span id="L4304" class="LineNr">4304 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> -<span id="L4305" class="LineNr">4305 </span> <span class="subxS1Comment"># . c/ebx = *start</span> -<span id="L4306" class="LineNr">4306 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L4307" class="LineNr">4307 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to BL</span> -<span id="L4308" class="LineNr">4308 </span> <span class="subxS1Comment"># . if (ebx == '#') break</span> -<span id="L4309" class="LineNr">4309 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x23/imm32/hash <span class="subxComment"># compare ebx</span> -<span id="L4310" class="LineNr">4310 </span> 74/jump-if-= $num-bytes:end/disp8 -<span id="L4311" class="LineNr">4311 </span><span class="Constant">$num-bytes:check-for-label</span>: -<span id="L4312" class="LineNr">4312 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) break</span> -<span id="L4313" class="LineNr">4313 </span> <span class="subxS1Comment"># . end/edx = word-slice->end</span> -<span id="L4314" class="LineNr">4314 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> -<span id="L4315" class="LineNr">4315 </span> <span class="subxS1Comment"># . c/ebx = *(end-1)</span> -<span id="L4316" class="LineNr">4316 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> -<span id="L4317" class="LineNr">4317 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> -<span id="L4318" class="LineNr">4318 </span> <span class="subxS1Comment"># . if (ebx == ':') break</span> -<span id="L4319" class="LineNr">4319 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x3a/imm32/colon <span class="subxComment"># compare ebx</span> -<span id="L4320" class="LineNr">4320 </span> 74/jump-if-= $num-bytes:end/disp8 -<span id="L4321" class="LineNr">4321 </span><span class="Constant">$num-bytes:check-for-segment-header</span>: -<span id="L4322" class="LineNr">4322 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> -<span id="L4323" class="LineNr">4323 </span> <span class="subxS1Comment"># . push result</span> -<span id="L4324" class="LineNr">4324 </span> 50/push-eax -<span id="L4325" class="LineNr">4325 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> -<span id="L4326" class="LineNr">4326 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4327" class="LineNr">4327 </span> 68/push <span class="Constant">"=="</span>/imm32 -<span id="L4328" class="LineNr">4328 </span> 51/push-ecx -<span id="L4329" class="LineNr">4329 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4330" class="LineNr">4330 </span> e8/call <a href='../123slice.subx.html#L120'>slice-equal?</a>/disp32 -<span id="L4331" class="LineNr">4331 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4332" class="LineNr">4332 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4333" class="LineNr">4333 </span> <span class="subxS1Comment"># . if (eax != false) break</span> -<span id="L4334" class="LineNr">4334 </span> 3d/compare-eax-and 0/imm32/false -<span id="L4335" class="LineNr">4335 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> -<span id="L4336" class="LineNr">4336 </span> 58/pop-to-eax -<span id="L4337" class="LineNr">4337 </span> 75/jump-if-!= $num-bytes:end/disp8 -<span id="L4338" class="LineNr">4338 </span><span class="Constant">$num-bytes:loop-body</span>: -<span id="L4339" class="LineNr">4339 </span> <span class="subxComment"># result += compute-width-of-slice(word-slice)</span> -<span id="L4340" class="LineNr">4340 </span> <span class="subxS1Comment"># . copy result to edx</span> -<span id="L4341" class="LineNr">4341 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> -<span id="L4342" class="LineNr">4342 </span> <span class="subxS1Comment"># . eax = compute-width-of-slice(word-slice)</span> -<span id="L4343" class="LineNr">4343 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4344" class="LineNr">4344 </span> 51/push-ecx -<span id="L4345" class="LineNr">4345 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4346" class="LineNr">4346 </span> e8/call <a href='../133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 -<span id="L4347" class="LineNr">4347 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4348" class="LineNr">4348 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4349" class="LineNr">4349 </span> <span class="subxS1Comment"># . eax += result</span> -<span id="L4350" class="LineNr">4350 </span> 01/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edx to eax</span> -<span id="L4351" class="LineNr">4351 </span> e9/jump $num-bytes:<span class="Constant">loop</span>/disp32 -<span id="L4352" class="LineNr">4352 </span><span class="Constant">$num-bytes:end</span>: -<span id="L4353" class="LineNr">4353 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> -<span id="L4354" class="LineNr">4354 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4355" class="LineNr">4355 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> -<span id="L4356" class="LineNr">4356 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4357" class="LineNr">4357 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 -<span id="L4358" class="LineNr">4358 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4359" class="LineNr">4359 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4360" class="LineNr">4360 </span> <span class="subxS1Comment"># . reclaim locals</span> -<span id="L4361" class="LineNr">4361 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4362" class="LineNr">4362 </span> <span class="subxS1Comment"># . restore registers</span> -<span id="L4363" class="LineNr">4363 </span> 5b/pop-to-ebx -<span id="L4364" class="LineNr">4364 </span> 5a/pop-to-edx -<span id="L4365" class="LineNr">4365 </span> 59/pop-to-ecx -<span id="L4366" class="LineNr">4366 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4367" class="LineNr">4367 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4368" class="LineNr">4368 </span> 5d/pop-to-ebp -<span id="L4369" class="LineNr">4369 </span> c3/return -<span id="L4370" class="LineNr">4370 </span> -<span id="L4371" class="LineNr">4371 </span><span class="subxTest">test-num-bytes-handles-empty-string</span>: -<span id="L4372" class="LineNr">4372 </span> <span class="subxComment"># if a line starts with '#', return 0</span> -<span id="L4373" class="LineNr">4373 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4374" class="LineNr">4374 </span> 55/push-ebp -<span id="L4375" class="LineNr">4375 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4376" class="LineNr">4376 </span> <span class="subxComment"># setup</span> -<span id="L4377" class="LineNr">4377 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4378" class="LineNr">4378 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4379" class="LineNr">4379 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4380" class="LineNr">4380 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4381" class="LineNr">4381 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4382" class="LineNr">4382 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4383" class="LineNr">4383 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4384" class="LineNr">4384 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4385" class="LineNr">4385 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4386" class="LineNr">4386 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4387" class="LineNr">4387 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4388" class="LineNr">4388 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4389" class="LineNr">4389 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4390" class="LineNr">4390 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4391" class="LineNr">4391 </span> <span class="subxComment"># no contents in input</span> -<span id="L4392" class="LineNr">4392 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L4393" class="LineNr">4393 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4394" class="LineNr">4394 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4395" class="LineNr">4395 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4396" class="LineNr">4396 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L4397" class="LineNr">4397 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4398" class="LineNr">4398 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4399" class="LineNr">4399 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4400" class="LineNr">4400 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4401" class="LineNr">4401 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-empty-string"</span>/imm32 -<span id="L4402" class="LineNr">4402 </span> 68/push 0/imm32/true -<span id="L4403" class="LineNr">4403 </span> 50/push-eax -<span id="L4404" class="LineNr">4404 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4405" class="LineNr">4405 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4406" class="LineNr">4406 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4407" class="LineNr">4407 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4408" class="LineNr">4408 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4409" class="LineNr">4409 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4410" class="LineNr">4410 </span> 5d/pop-to-ebp -<span id="L4411" class="LineNr">4411 </span> c3/return -<span id="L4412" class="LineNr">4412 </span> -<span id="L4413" class="LineNr">4413 </span><span class="subxTest">test-num-bytes-ignores-comments</span>: -<span id="L4414" class="LineNr">4414 </span> <span class="subxComment"># if a line starts with '#', return 0</span> -<span id="L4415" class="LineNr">4415 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4416" class="LineNr">4416 </span> 55/push-ebp -<span id="L4417" class="LineNr">4417 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4418" class="LineNr">4418 </span> <span class="subxComment"># setup</span> -<span id="L4419" class="LineNr">4419 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4420" class="LineNr">4420 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4421" class="LineNr">4421 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4422" class="LineNr">4422 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4423" class="LineNr">4423 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4424" class="LineNr">4424 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4425" class="LineNr">4425 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4426" class="LineNr">4426 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4427" class="LineNr">4427 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4428" class="LineNr">4428 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4429" class="LineNr">4429 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4430" class="LineNr">4430 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4431" class="LineNr">4431 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4432" class="LineNr">4432 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4433" class="LineNr">4433 </span> <span class="subxComment"># initialize input</span> -<span id="L4434" class="LineNr">4434 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> -<span id="L4435" class="LineNr">4435 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4436" class="LineNr">4436 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 -<span id="L4437" class="LineNr">4437 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4438" class="LineNr">4438 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4439" class="LineNr">4439 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4440" class="LineNr">4440 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4441" class="LineNr">4441 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4442" class="LineNr">4442 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L4443" class="LineNr">4443 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4444" class="LineNr">4444 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4445" class="LineNr">4445 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4446" class="LineNr">4446 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L4447" class="LineNr">4447 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4448" class="LineNr">4448 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4449" class="LineNr">4449 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4450" class="LineNr">4450 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4451" class="LineNr">4451 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-comments"</span>/imm32 -<span id="L4452" class="LineNr">4452 </span> 68/push 0/imm32/true -<span id="L4453" class="LineNr">4453 </span> 50/push-eax -<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4455" class="LineNr">4455 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4456" class="LineNr">4456 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4457" class="LineNr">4457 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4458" class="LineNr">4458 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4459" class="LineNr">4459 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4460" class="LineNr">4460 </span> 5d/pop-to-ebp -<span id="L4461" class="LineNr">4461 </span> c3/return -<span id="L4462" class="LineNr">4462 </span> -<span id="L4463" class="LineNr">4463 </span><span class="subxTest">test-num-bytes-ignores-labels</span>: -<span id="L4464" class="LineNr">4464 </span> <span class="subxComment"># if the first word ends with ':', return 0</span> -<span id="L4465" class="LineNr">4465 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4466" class="LineNr">4466 </span> 55/push-ebp -<span id="L4467" class="LineNr">4467 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4468" class="LineNr">4468 </span> <span class="subxComment"># setup</span> -<span id="L4469" class="LineNr">4469 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4470" class="LineNr">4470 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4471" class="LineNr">4471 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4472" class="LineNr">4472 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4473" class="LineNr">4473 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4474" class="LineNr">4474 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4475" class="LineNr">4475 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4476" class="LineNr">4476 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4477" class="LineNr">4477 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4478" class="LineNr">4478 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4479" class="LineNr">4479 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4480" class="LineNr">4480 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4481" class="LineNr">4481 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4482" class="LineNr">4482 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4483" class="LineNr">4483 </span> <span class="subxComment"># initialize input</span> -<span id="L4484" class="LineNr">4484 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> -<span id="L4485" class="LineNr">4485 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4486" class="LineNr">4486 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 -<span id="L4487" class="LineNr">4487 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4488" class="LineNr">4488 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4489" class="LineNr">4489 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4490" class="LineNr">4490 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4491" class="LineNr">4491 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4492" class="LineNr">4492 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L4493" class="LineNr">4493 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4494" class="LineNr">4494 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4495" class="LineNr">4495 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4496" class="LineNr">4496 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L4497" class="LineNr">4497 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4498" class="LineNr">4498 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4499" class="LineNr">4499 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4500" class="LineNr">4500 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4501" class="LineNr">4501 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-labels"</span>/imm32 -<span id="L4502" class="LineNr">4502 </span> 68/push 0/imm32/true -<span id="L4503" class="LineNr">4503 </span> 50/push-eax -<span id="L4504" class="LineNr">4504 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4505" class="LineNr">4505 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4506" class="LineNr">4506 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4507" class="LineNr">4507 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4508" class="LineNr">4508 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4509" class="LineNr">4509 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4510" class="LineNr">4510 </span> 5d/pop-to-ebp -<span id="L4511" class="LineNr">4511 </span> c3/return -<span id="L4512" class="LineNr">4512 </span> -<span id="L4513" class="LineNr">4513 </span><span class="subxTest">test-num-bytes-ignores-segment-headers</span>: -<span id="L4514" class="LineNr">4514 </span> <span class="subxComment"># if the first word is '==', return 0</span> -<span id="L4515" class="LineNr">4515 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4516" class="LineNr">4516 </span> 55/push-ebp -<span id="L4517" class="LineNr">4517 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4518" class="LineNr">4518 </span> <span class="subxComment"># setup</span> -<span id="L4519" class="LineNr">4519 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4520" class="LineNr">4520 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4521" class="LineNr">4521 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4522" class="LineNr">4522 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4523" class="LineNr">4523 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4524" class="LineNr">4524 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4525" class="LineNr">4525 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4526" class="LineNr">4526 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4527" class="LineNr">4527 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4528" class="LineNr">4528 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4529" class="LineNr">4529 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4530" class="LineNr">4530 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4531" class="LineNr">4531 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4532" class="LineNr">4532 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4533" class="LineNr">4533 </span> <span class="subxComment"># initialize input</span> -<span id="L4534" class="LineNr">4534 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== ab cd")</span> -<span id="L4535" class="LineNr">4535 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4536" class="LineNr">4536 </span> 68/push <span class="Constant">"== ab cd"</span>/imm32 -<span id="L4537" class="LineNr">4537 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4538" class="LineNr">4538 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4539" class="LineNr">4539 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4540" class="LineNr">4540 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4541" class="LineNr">4541 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4542" class="LineNr">4542 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L4543" class="LineNr">4543 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4544" class="LineNr">4544 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4545" class="LineNr">4545 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4546" class="LineNr">4546 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L4547" class="LineNr">4547 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4548" class="LineNr">4548 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4549" class="LineNr">4549 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> -<span id="L4550" class="LineNr">4550 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4551" class="LineNr">4551 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-segment-headers"</span>/imm32 -<span id="L4552" class="LineNr">4552 </span> 68/push 0/imm32/true -<span id="L4553" class="LineNr">4553 </span> 50/push-eax -<span id="L4554" class="LineNr">4554 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4555" class="LineNr">4555 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4556" class="LineNr">4556 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4557" class="LineNr">4557 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4558" class="LineNr">4558 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4559" class="LineNr">4559 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4560" class="LineNr">4560 </span> 5d/pop-to-ebp -<span id="L4561" class="LineNr">4561 </span> c3/return -<span id="L4562" class="LineNr">4562 </span> -<span id="L4563" class="LineNr">4563 </span><span class="subxTest">test-num-bytes-counts-words-by-default</span>: -<span id="L4564" class="LineNr">4564 </span> <span class="subxComment"># without metadata, count words</span> -<span id="L4565" class="LineNr">4565 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4566" class="LineNr">4566 </span> 55/push-ebp -<span id="L4567" class="LineNr">4567 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4568" class="LineNr">4568 </span> <span class="subxComment"># setup</span> -<span id="L4569" class="LineNr">4569 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4570" class="LineNr">4570 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4571" class="LineNr">4571 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4572" class="LineNr">4572 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4573" class="LineNr">4573 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4574" class="LineNr">4574 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4575" class="LineNr">4575 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4576" class="LineNr">4576 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4577" class="LineNr">4577 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4578" class="LineNr">4578 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4579" class="LineNr">4579 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4580" class="LineNr">4580 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4581" class="LineNr">4581 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4582" class="LineNr">4582 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4583" class="LineNr">4583 </span> <span class="subxComment"># initialize input</span> -<span id="L4584" class="LineNr">4584 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef")</span> -<span id="L4585" class="LineNr">4585 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4586" class="LineNr">4586 </span> 68/push <span class="Constant">"ab cd ef"</span>/imm32 -<span id="L4587" class="LineNr">4587 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4588" class="LineNr">4588 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4589" class="LineNr">4589 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4590" class="LineNr">4590 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4591" class="LineNr">4591 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4592" class="LineNr">4592 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L4593" class="LineNr">4593 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4594" class="LineNr">4594 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4595" class="LineNr">4595 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4596" class="LineNr">4596 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L4597" class="LineNr">4597 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4598" class="LineNr">4598 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4599" class="LineNr">4599 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> -<span id="L4600" class="LineNr">4600 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4601" class="LineNr">4601 </span> 68/push <span class="Constant">"F - test-num-bytes-counts-words-by-default"</span>/imm32 -<span id="L4602" class="LineNr">4602 </span> 68/push 3/imm32/true -<span id="L4603" class="LineNr">4603 </span> 50/push-eax -<span id="L4604" class="LineNr">4604 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4605" class="LineNr">4605 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4606" class="LineNr">4606 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4607" class="LineNr">4607 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4608" class="LineNr">4608 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4609" class="LineNr">4609 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4610" class="LineNr">4610 </span> 5d/pop-to-ebp -<span id="L4611" class="LineNr">4611 </span> c3/return -<span id="L4612" class="LineNr">4612 </span> -<span id="L4613" class="LineNr">4613 </span><span class="subxTest">test-num-bytes-ignores-trailing-comment</span>: -<span id="L4614" class="LineNr">4614 </span> <span class="subxComment"># trailing comments appropriately ignored</span> -<span id="L4615" class="LineNr">4615 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4616" class="LineNr">4616 </span> 55/push-ebp -<span id="L4617" class="LineNr">4617 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4618" class="LineNr">4618 </span> <span class="subxComment"># setup</span> -<span id="L4619" class="LineNr">4619 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4620" class="LineNr">4620 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4621" class="LineNr">4621 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4622" class="LineNr">4622 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4623" class="LineNr">4623 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4624" class="LineNr">4624 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4625" class="LineNr">4625 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4626" class="LineNr">4626 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4627" class="LineNr">4627 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4628" class="LineNr">4628 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4629" class="LineNr">4629 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4630" class="LineNr">4630 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4631" class="LineNr">4631 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4632" class="LineNr">4632 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4633" class="LineNr">4633 </span> <span class="subxComment"># initialize input</span> -<span id="L4634" class="LineNr">4634 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd # ef")</span> -<span id="L4635" class="LineNr">4635 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4636" class="LineNr">4636 </span> 68/push <span class="Constant">"ab cd # ef"</span>/imm32 -<span id="L4637" class="LineNr">4637 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4638" class="LineNr">4638 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4639" class="LineNr">4639 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4640" class="LineNr">4640 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4641" class="LineNr">4641 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4642" class="LineNr">4642 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L4643" class="LineNr">4643 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4644" class="LineNr">4644 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4645" class="LineNr">4645 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4646" class="LineNr">4646 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L4647" class="LineNr">4647 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4648" class="LineNr">4648 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4649" class="LineNr">4649 </span> <span class="subxComment"># check-ints-equal(eax, 2, msg)</span> -<span id="L4650" class="LineNr">4650 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4651" class="LineNr">4651 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-trailing-comment"</span>/imm32 -<span id="L4652" class="LineNr">4652 </span> 68/push 2/imm32/true -<span id="L4653" class="LineNr">4653 </span> 50/push-eax -<span id="L4654" class="LineNr">4654 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4655" class="LineNr">4655 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4656" class="LineNr">4656 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4657" class="LineNr">4657 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4658" class="LineNr">4658 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4659" class="LineNr">4659 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4660" class="LineNr">4660 </span> 5d/pop-to-ebp -<span id="L4661" class="LineNr">4661 </span> c3/return -<span id="L4662" class="LineNr">4662 </span> -<span id="L4663" class="LineNr">4663 </span><span class="subxTest">test-num-bytes-handles-imm32</span>: -<span id="L4664" class="LineNr">4664 </span> <span class="subxComment"># if a word has the /imm32 metadata, count it as 4 bytes</span> -<span id="L4665" class="LineNr">4665 </span> <span class="subxS1Comment"># . prologue</span> -<span id="L4666" class="LineNr">4666 </span> 55/push-ebp -<span id="L4667" class="LineNr">4667 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> -<span id="L4668" class="LineNr">4668 </span> <span class="subxComment"># setup</span> -<span id="L4669" class="LineNr">4669 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> -<span id="L4670" class="LineNr">4670 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4671" class="LineNr">4671 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4672" class="LineNr">4672 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4673" class="LineNr">4673 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4674" class="LineNr">4674 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4675" class="LineNr">4675 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4676" class="LineNr">4676 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> -<span id="L4677" class="LineNr">4677 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4678" class="LineNr">4678 </span> 68/push <a href='../115write-byte.subx.html#L285'>_test-output-stream</a>/imm32 -<span id="L4679" class="LineNr">4679 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4680" class="LineNr">4680 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 -<span id="L4681" class="LineNr">4681 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4682" class="LineNr">4682 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4683" class="LineNr">4683 </span> <span class="subxComment"># initialize input</span> -<span id="L4684" class="LineNr">4684 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd/imm32 ef")</span> -<span id="L4685" class="LineNr">4685 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4686" class="LineNr">4686 </span> 68/push <span class="Constant">"ab cd/imm32 ef"</span>/imm32 -<span id="L4687" class="LineNr">4687 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4688" class="LineNr">4688 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4689" class="LineNr">4689 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 -<span id="L4690" class="LineNr">4690 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4691" class="LineNr">4691 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L4692" class="LineNr">4692 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> -<span id="L4693" class="LineNr">4693 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4694" class="LineNr">4694 </span> 68/push <a href='../112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 -<span id="L4695" class="LineNr">4695 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4696" class="LineNr">4696 </span> e8/call <a href='survey.subx.html#L4174'>num-bytes</a>/disp32 -<span id="L4697" class="LineNr">4697 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4698" class="LineNr">4698 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L4699" class="LineNr">4699 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> -<span id="L4700" class="LineNr">4700 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L4701" class="LineNr">4701 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-imm32"</span>/imm32 -<span id="L4702" class="LineNr">4702 </span> 68/push 6/imm32/true -<span id="L4703" class="LineNr">4703 </span> 50/push-eax -<span id="L4704" class="LineNr">4704 </span> <span class="subxS2Comment"># . . call</span> -<span id="L4705" class="LineNr">4705 </span> e8/call <a href='../102test.subx.html#L23'>check-ints-equal</a>/disp32 -<span id="L4706" class="LineNr">4706 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L4707" class="LineNr">4707 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> -<span id="L4708" class="LineNr">4708 </span> <span class="subxS1Comment"># . epilogue</span> -<span id="L4709" class="LineNr">4709 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> -<span id="L4710" class="LineNr">4710 </span> 5d/pop-to-ebp -<span id="L4711" class="LineNr">4711 </span> c3/return -<span id="L4712" class="LineNr">4712 </span> -<span id="L4713" class="LineNr">4713 </span>== data -<span id="L4714" class="LineNr">4714 </span> -<span id="L4715" class="LineNr">4715 </span><span class="subxComment"># This block of bytes gets copied to the start of the output ELF file, with</span> -<span id="L4716" class="LineNr">4716 </span><span class="subxComment"># some fields (the ones with labels capitalized) filled in.</span> -<span id="L4717" class="LineNr">4717 </span><span class="subxComment"># <a href="http://www.sco.com/developers/gabi/latest/ch4.eheader.html">http://www.sco.com/developers/gabi/latest/ch4.eheader.html</a></span> -<span id="L4718" class="LineNr">4718 </span><span class="SpecialChar">Elf_header</span>: -<span id="L4719" class="LineNr">4719 </span> <span class="subxH1Comment"># - size</span> -<span id="L4720" class="LineNr">4720 </span> 0x34/imm32 -<span id="L4721" class="LineNr">4721 </span> <span class="subxH1Comment"># - data</span> -<span id="L4722" class="LineNr">4722 </span><span class="Constant">$e_ident</span>: -<span id="L4723" class="LineNr">4723 </span> 7f 45/E 4c/L 46/F -<span id="L4724" class="LineNr">4724 </span> 01/32-bit 01/little-endian 01/file-version 00/no-os-extensions -<span id="L4725" class="LineNr">4725 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes of padding</span> -<span id="L4726" class="LineNr">4726 </span><span class="Constant">$e_type</span>: -<span id="L4727" class="LineNr">4727 </span> 02 00 -<span id="L4728" class="LineNr">4728 </span><span class="Constant">$e_machine</span>: -<span id="L4729" class="LineNr">4729 </span> 03 00 -<span id="L4730" class="LineNr">4730 </span><span class="Constant">$e_version</span>: -<span id="L4731" class="LineNr">4731 </span> 1/imm32 -<span id="L4732" class="LineNr">4732 </span><span class="Constant">$Elf_e_entry</span>: -<span id="L4733" class="LineNr">4733 </span> 0x09000000/imm32 <span class="subxComment"># approximate default; must be updated</span> -<span id="L4734" class="LineNr">4734 </span><span class="Constant">$e_phoff</span>: -<span id="L4735" class="LineNr">4735 </span> 0x34/imm32 <span class="subxComment"># offset for the 'program header table' containing segment headers</span> -<span id="L4736" class="LineNr">4736 </span><span class="Constant">$e_shoff</span>: -<span id="L4737" class="LineNr">4737 </span> 0/imm32 <span class="subxComment"># no sections</span> -<span id="L4738" class="LineNr">4738 </span><span class="Constant">$e_flags</span>: -<span id="L4739" class="LineNr">4739 </span> 0/imm32 <span class="subxComment"># unused</span> -<span id="L4740" class="LineNr">4740 </span><span class="Constant">$e_ehsize</span>: -<span id="L4741" class="LineNr">4741 </span> 0x34 00 -<span id="L4742" class="LineNr">4742 </span><span class="Constant">$e_phentsize</span>: -<span id="L4743" class="LineNr">4743 </span> 0x20 00 -<span id="L4744" class="LineNr">4744 </span><span class="Constant">$Elf_e_phnum</span>: -<span id="L4745" class="LineNr">4745 </span> 00 00 <span class="subxComment"># number of segments; must be updated</span> -<span id="L4746" class="LineNr">4746 </span><span class="Constant">$e_shentsize</span>: -<span id="L4747" class="LineNr">4747 </span> 00 00 <span class="subxComment"># no sections</span> -<span id="L4748" class="LineNr">4748 </span><span class="Constant">$e_shnum</span>: -<span id="L4749" class="LineNr">4749 </span> 00 00 -<span id="L4750" class="LineNr">4750 </span><span class="Constant">$e_shstrndx</span>: -<span id="L4751" class="LineNr">4751 </span> 00 00 -<span id="L4752" class="LineNr">4752 </span> -<span id="L4753" class="LineNr">4753 </span><span class="subxComment"># This block of bytes gets copied after the Elf_header once for each segment.</span> -<span id="L4754" class="LineNr">4754 </span><span class="subxComment"># Some fields need filling in each time.</span> -<span id="L4755" class="LineNr">4755 </span><span class="subxComment"># <a href="https://docs.oracle.com/cd/E19683-01/816-1386/chapter6-83432/index.html">https://docs.oracle.com/cd/E19683-01/816-1386/chapter6-83432/index.html</a></span> -<span id="L4756" class="LineNr">4756 </span><span class="SpecialChar">Elf_program_header_entry</span>: -<span id="L4757" class="LineNr">4757 </span> <span class="subxH1Comment"># - size</span> -<span id="L4758" class="LineNr">4758 </span> 0x20/imm32 -<span id="L4759" class="LineNr">4759 </span> <span class="subxH1Comment"># - data</span> -<span id="L4760" class="LineNr">4760 </span><span class="Constant">$p_type</span>: -<span id="L4761" class="LineNr">4761 </span> 1/imm32/PT_LOAD -<span id="L4762" class="LineNr">4762 </span><span class="Constant">$Elf_p_offset</span>: -<span id="L4763" class="LineNr">4763 </span> 0/imm32 <span class="subxComment"># byte offset in the file at which a segment begins; must be updated</span> -<span id="L4764" class="LineNr">4764 </span><span class="Constant">$Elf_p_vaddr</span>: -<span id="L4765" class="LineNr">4765 </span> 0/imm32 <span class="subxComment"># starting address to store the segment at before running the program</span> -<span id="L4766" class="LineNr">4766 </span><span class="Constant">$Elf_p_paddr</span>: -<span id="L4767" class="LineNr">4767 </span> 0/imm32 <span class="subxComment"># should have same value as $Elf_p_vaddr</span> -<span id="L4768" class="LineNr">4768 </span><span class="Constant">$Elf_p_filesz</span>: -<span id="L4769" class="LineNr">4769 </span> 0/imm32 -<span id="L4770" class="LineNr">4770 </span><span class="Constant">$Elf_p_memsz</span>: -<span id="L4771" class="LineNr">4771 </span> 0/imm32 <span class="subxComment"># should have same value as $Elf_p_filesz</span> -<span id="L4772" class="LineNr">4772 </span><span class="Constant">$Elf_p_flags</span>: -<span id="L4773" class="LineNr">4773 </span> 6/imm32/rw- <span class="subxComment"># read/write/execute permissions for the segment; must be updated for the code segment</span> -<span id="L4774" class="LineNr">4774 </span><span class="Constant">$p_align</span>: -<span id="L4775" class="LineNr">4775 </span> <span class="subxComment"># we hold this constant; changing it will require adjusting the way we</span> -<span id="L4776" class="LineNr">4776 </span> <span class="subxComment"># compute the starting address for each segment</span> -<span id="L4777" class="LineNr">4777 </span> 0x1000/imm32 -<span id="L4778" class="LineNr">4778 </span> -<span id="L4779" class="LineNr">4779 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> +<span id="L4010" class="LineNr">4010 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x18/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+24)</span> +<span id="L4011" class="LineNr">4011 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4012" class="LineNr">4012 </span> e8/call <a href='107trace.subx.html#L81'>trace</a>/disp32 +<span id="L4013" class="LineNr">4013 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4014" class="LineNr">4014 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4015" class="LineNr">4015 </span><span class="Constant">$trace-slsss:end</span>: +<span id="L4016" class="LineNr">4016 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4017" class="LineNr">4017 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4018" class="LineNr">4018 </span> 5d/pop-to-ebp +<span id="L4019" class="LineNr">4019 </span> c3/return +<span id="L4020" class="LineNr">4020 </span> +<span id="L4021" class="LineNr">4021 </span><span class="subxTest">test-trace-slsss</span>: +<span id="L4022" class="LineNr">4022 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4023" class="LineNr">4023 </span> 55/push-ebp +<span id="L4024" class="LineNr">4024 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4025" class="LineNr">4025 </span> <span class="subxComment"># setup</span> +<span id="L4026" class="LineNr">4026 </span> <span class="subxS1Comment"># . *Trace-stream->write = 0</span> +<span id="L4027" class="LineNr">4027 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="SpecialChar"><a href='107trace.subx.html#L17'>Trace-stream</a></span>/disp32 <span class="subxComment"># copy *Trace-stream to eax</span> +<span id="L4028" class="LineNr">4028 </span> c7 0/subop/copy 0/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/imm32 <span class="subxComment"># clear *eax</span> +<span id="L4029" class="LineNr">4029 </span> <span class="subxComment"># (eax..ecx) = "b"</span> +<span id="L4030" class="LineNr">4030 </span> b8/copy-to-eax <span class="Constant">"b"</span>/imm32 +<span id="L4031" class="LineNr">4031 </span> 8b/copy 0/mod/indirect 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 1/r32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *eax to ecx</span> +<span id="L4032" class="LineNr">4032 </span> 8d/copy-address 1/mod/*+disp8 4/rm32/sib 0/base/eax 1/index/ecx <span class="Normal"> . </span> 1/r32/ecx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy eax+ecx+4 to ecx</span> +<span id="L4033" class="LineNr">4033 </span> 05/add-to-eax 4/imm32 +<span id="L4034" class="LineNr">4034 </span> <span class="subxComment"># var b/ebx: slice = {eax, ecx}</span> +<span id="L4035" class="LineNr">4035 </span> 51/push-ecx +<span id="L4036" class="LineNr">4036 </span> 50/push-eax +<span id="L4037" class="LineNr">4037 </span> 89/copy 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebx</span> +<span id="L4038" class="LineNr">4038 </span> <span class="subxComment"># trace-slsss("A" b "c" "d" "e")</span> +<span id="L4039" class="LineNr">4039 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4040" class="LineNr">4040 </span> 68/push <span class="Constant">"e"</span>/imm32 +<span id="L4041" class="LineNr">4041 </span> 68/push <span class="Constant">"d"</span>/imm32 +<span id="L4042" class="LineNr">4042 </span> 68/push <span class="Constant">"c"</span>/imm32 +<span id="L4043" class="LineNr">4043 </span> 53/push-ebx +<span id="L4044" class="LineNr">4044 </span> 68/push <span class="Constant">"A"</span>/imm32 +<span id="L4045" class="LineNr">4045 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4046" class="LineNr">4046 </span> e8/call <a href='survey_elf.subx.html#L3972'>trace-slsss</a>/disp32 +<span id="L4047" class="LineNr">4047 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4048" class="LineNr">4048 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x14/imm32 <span class="subxComment"># add to esp</span> +<span id="L4049" class="Folded">4049 </span><span class="Folded">+-- 26 lines: #? # dump *Trace-stream -----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4075" class="LineNr">4075 </span> <span class="subxComment"># check-trace-contains("Abcde")</span> +<span id="L4076" class="LineNr">4076 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4077" class="LineNr">4077 </span> 68/push <span class="Constant">"F - test-trace-slsss"</span>/imm32 +<span id="L4078" class="LineNr">4078 </span> 68/push <span class="Constant">"Abcde"</span>/imm32 +<span id="L4079" class="LineNr">4079 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4080" class="LineNr">4080 </span> e8/call <a href='107trace.subx.html#L248'>check-trace-contains</a>/disp32 +<span id="L4081" class="LineNr">4081 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4082" class="LineNr">4082 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4083" class="LineNr">4083 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4084" class="LineNr">4084 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4085" class="LineNr">4085 </span> 5d/pop-to-ebp +<span id="L4086" class="LineNr">4086 </span> c3/return +<span id="L4087" class="LineNr">4087 </span> +<span id="L4088" class="LineNr">4088 </span><span class="subxFunction">num-bytes</span>: <span class="subxComment"># line: (addr stream byte) -> eax: int</span> +<span id="L4089" class="LineNr">4089 </span> <span class="subxComment"># pseudocode:</span> +<span id="L4090" class="LineNr">4090 </span> <span class="subxComment"># result = 0</span> +<span id="L4091" class="LineNr">4091 </span> <span class="subxComment"># while true</span> +<span id="L4092" class="LineNr">4092 </span> <span class="subxComment"># var word-slice = next-word(line)</span> +<span id="L4093" class="LineNr">4093 </span> <span class="subxComment"># if slice-empty?(word-slice) # end of line</span> +<span id="L4094" class="LineNr">4094 </span> <span class="subxComment"># break</span> +<span id="L4095" class="LineNr">4095 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "#") # comment</span> +<span id="L4096" class="LineNr">4096 </span> <span class="subxComment"># break</span> +<span id="L4097" class="LineNr">4097 </span> <span class="subxComment"># if label?(word-slice) # no need for label declarations anymore</span> +<span id="L4098" class="LineNr">4098 </span> <span class="subxComment"># break</span> +<span id="L4099" class="LineNr">4099 </span> <span class="subxComment"># if slice-equal?(word-slice, "==")</span> +<span id="L4100" class="LineNr">4100 </span> <span class="subxComment"># break # no need for segment header lines</span> +<span id="L4101" class="LineNr">4101 </span> <span class="subxComment"># result += compute-width(word-slice)</span> +<span id="L4102" class="LineNr">4102 </span> <span class="subxComment"># return result</span> +<span id="L4103" class="LineNr">4103 </span> <span class="subxComment">#</span> +<span id="L4104" class="LineNr">4104 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4105" class="LineNr">4105 </span> 55/push-ebp +<span id="L4106" class="LineNr">4106 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4107" class="LineNr">4107 </span> <span class="subxS1Comment"># . save registers</span> +<span id="L4108" class="LineNr">4108 </span> 51/push-ecx +<span id="L4109" class="LineNr">4109 </span> 52/push-edx +<span id="L4110" class="LineNr">4110 </span> 53/push-ebx +<span id="L4111" class="LineNr">4111 </span> <span class="subxComment"># var result/eax = 0</span> +<span id="L4112" class="LineNr">4112 </span> 31/xor 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear eax</span> +<span id="L4113" class="LineNr">4113 </span> <span class="subxComment"># var word-slice/ecx: slice</span> +<span id="L4114" class="LineNr">4114 </span> 68/push 0/imm32/end +<span id="L4115" class="LineNr">4115 </span> 68/push 0/imm32/start +<span id="L4116" class="LineNr">4116 </span> 89/copy 3/mod/direct 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ecx</span> +<span id="L4117" class="Folded">4117 </span><span class="Folded">+-- 26 lines: #? # dump line --------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4143" class="LineNr">4143 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L4144" class="LineNr">4144 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4145" class="LineNr">4145 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L4146" class="LineNr">4146 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4147" class="LineNr">4147 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L4148" class="LineNr">4148 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4149" class="LineNr">4149 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4150" class="LineNr">4150 </span><span class="Constant">$num-bytes:loop</span>: +<span id="L4151" class="LineNr">4151 </span> <span class="subxComment"># next-word(line, word-slice)</span> +<span id="L4152" class="LineNr">4152 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4153" class="LineNr">4153 </span> 51/push-ecx +<span id="L4154" class="LineNr">4154 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L4155" class="LineNr">4155 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4156" class="LineNr">4156 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L4157" class="LineNr">4157 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4158" class="LineNr">4158 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4159" class="Folded">4159 </span><span class="Folded">+-- 40 lines: #? # dump word-slice --------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L4199" class="LineNr">4199 </span><span class="Constant">$num-bytes:check0</span>: +<span id="L4200" class="LineNr">4200 </span> <span class="subxComment"># if (slice-empty?(word-slice)) break</span> +<span id="L4201" class="LineNr">4201 </span> <span class="subxS1Comment"># . save result</span> +<span id="L4202" class="LineNr">4202 </span> 50/push-eax +<span id="L4203" class="LineNr">4203 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> +<span id="L4204" class="LineNr">4204 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4205" class="LineNr">4205 </span> 51/push-ecx +<span id="L4206" class="LineNr">4206 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4207" class="LineNr">4207 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L4208" class="LineNr">4208 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4209" class="LineNr">4209 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4210" class="LineNr">4210 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L4211" class="LineNr">4211 </span> 3d/compare-eax-and 0/imm32/false +<span id="L4212" class="LineNr">4212 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L4213" class="LineNr">4213 </span> 58/pop-to-eax +<span id="L4214" class="LineNr">4214 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L4215" class="LineNr">4215 </span><span class="Constant">$num-bytes:check-for-comment</span>: +<span id="L4216" class="LineNr">4216 </span> <span class="subxComment"># if (slice-starts-with?(word-slice, "#")) break</span> +<span id="L4217" class="LineNr">4217 </span> <span class="subxS1Comment"># . start/edx = word-slice->start</span> +<span id="L4218" class="LineNr">4218 </span> 8b/copy 0/mod/indirect 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy *ecx to edx</span> +<span id="L4219" class="LineNr">4219 </span> <span class="subxS1Comment"># . c/ebx = *start</span> +<span id="L4220" class="LineNr">4220 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L4221" class="LineNr">4221 </span> 8a/copy-byte 0/mod/indirect 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy byte at *edx to BL</span> +<span id="L4222" class="LineNr">4222 </span> <span class="subxS1Comment"># . if (ebx == '#') break</span> +<span id="L4223" class="LineNr">4223 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x23/imm32/hash <span class="subxComment"># compare ebx</span> +<span id="L4224" class="LineNr">4224 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L4225" class="LineNr">4225 </span><span class="Constant">$num-bytes:check-for-label</span>: +<span id="L4226" class="LineNr">4226 </span> <span class="subxComment"># if (slice-ends-with?(word-slice, ":")) break</span> +<span id="L4227" class="LineNr">4227 </span> <span class="subxS1Comment"># . end/edx = word-slice->end</span> +<span id="L4228" class="LineNr">4228 </span> 8b/copy 1/mod/*+disp8 1/rm32/ecx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy *(ecx+4) to edx</span> +<span id="L4229" class="LineNr">4229 </span> <span class="subxS1Comment"># . c/ebx = *(end-1)</span> +<span id="L4230" class="LineNr">4230 </span> 31/xor 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># clear ebx</span> +<span id="L4231" class="LineNr">4231 </span> 8a/copy-byte 1/mod/*+disp8 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/BL -1/disp8 <span class="Normal"> . </span> <span class="subxComment"># copy byte at *ecx to BL</span> +<span id="L4232" class="LineNr">4232 </span> <span class="subxS1Comment"># . if (ebx == ':') break</span> +<span id="L4233" class="LineNr">4233 </span> 81 7/subop/compare 3/mod/direct 3/rm32/ebx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x3a/imm32/colon <span class="subxComment"># compare ebx</span> +<span id="L4234" class="LineNr">4234 </span> 74/jump-if-= $num-bytes:end/disp8 +<span id="L4235" class="LineNr">4235 </span><span class="Constant">$num-bytes:check-for-segment-header</span>: +<span id="L4236" class="LineNr">4236 </span> <span class="subxComment"># if (slice-equal?(word-slice, "==")) break</span> +<span id="L4237" class="LineNr">4237 </span> <span class="subxS1Comment"># . push result</span> +<span id="L4238" class="LineNr">4238 </span> 50/push-eax +<span id="L4239" class="LineNr">4239 </span> <span class="subxS1Comment"># . eax = slice-equal?(word-slice, "==")</span> +<span id="L4240" class="LineNr">4240 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4241" class="LineNr">4241 </span> 68/push <span class="Constant">"=="</span>/imm32 +<span id="L4242" class="LineNr">4242 </span> 51/push-ecx +<span id="L4243" class="LineNr">4243 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4244" class="LineNr">4244 </span> e8/call <a href='123slice.subx.html#L120'>slice-equal?</a>/disp32 +<span id="L4245" class="LineNr">4245 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4246" class="LineNr">4246 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4247" class="LineNr">4247 </span> <span class="subxS1Comment"># . if (eax != false) break</span> +<span id="L4248" class="LineNr">4248 </span> 3d/compare-eax-and 0/imm32/false +<span id="L4249" class="LineNr">4249 </span> <span class="subxS1Comment"># . restore result now that ZF is set</span> +<span id="L4250" class="LineNr">4250 </span> 58/pop-to-eax +<span id="L4251" class="LineNr">4251 </span> 75/jump-if-!= $num-bytes:end/disp8 +<span id="L4252" class="LineNr">4252 </span><span class="Constant">$num-bytes:loop-body</span>: +<span id="L4253" class="LineNr">4253 </span> <span class="subxComment"># result += compute-width-of-slice(word-slice)</span> +<span id="L4254" class="LineNr">4254 </span> <span class="subxS1Comment"># . copy result to edx</span> +<span id="L4255" class="LineNr">4255 </span> 89/copy 3/mod/direct 2/rm32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0/r32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy eax to edx</span> +<span id="L4256" class="LineNr">4256 </span> <span class="subxS1Comment"># . eax = compute-width-of-slice(word-slice)</span> +<span id="L4257" class="LineNr">4257 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4258" class="LineNr">4258 </span> 51/push-ecx +<span id="L4259" class="LineNr">4259 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4260" class="LineNr">4260 </span> e8/call <a href='133subx-widths.subx.html#L45'>compute-width-of-slice</a>/disp32 +<span id="L4261" class="LineNr">4261 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4262" class="LineNr">4262 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4263" class="LineNr">4263 </span> <span class="subxS1Comment"># . eax += result</span> +<span id="L4264" class="LineNr">4264 </span> 01/add 3/mod/direct 0/rm32/eax <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 2/r32/edx <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># add edx to eax</span> +<span id="L4265" class="LineNr">4265 </span> e9/jump $num-bytes:<span class="Constant">loop</span>/disp32 +<span id="L4266" class="LineNr">4266 </span><span class="Constant">$num-bytes:end</span>: +<span id="L4267" class="LineNr">4267 </span> <span class="subxS1Comment"># . rewind-stream(line)</span> +<span id="L4268" class="LineNr">4268 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4269" class="LineNr">4269 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> +<span id="L4270" class="LineNr">4270 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4271" class="LineNr">4271 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L4272" class="LineNr">4272 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4273" class="LineNr">4273 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4274" class="LineNr">4274 </span> <span class="subxS1Comment"># . reclaim locals</span> +<span id="L4275" class="LineNr">4275 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4276" class="LineNr">4276 </span> <span class="subxS1Comment"># . restore registers</span> +<span id="L4277" class="LineNr">4277 </span> 5b/pop-to-ebx +<span id="L4278" class="LineNr">4278 </span> 5a/pop-to-edx +<span id="L4279" class="LineNr">4279 </span> 59/pop-to-ecx +<span id="L4280" class="LineNr">4280 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4281" class="LineNr">4281 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4282" class="LineNr">4282 </span> 5d/pop-to-ebp +<span id="L4283" class="LineNr">4283 </span> c3/return +<span id="L4284" class="LineNr">4284 </span> +<span id="L4285" class="LineNr">4285 </span><span class="subxTest">test-num-bytes-handles-empty-string</span>: +<span id="L4286" class="LineNr">4286 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L4287" class="LineNr">4287 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4288" class="LineNr">4288 </span> 55/push-ebp +<span id="L4289" class="LineNr">4289 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4290" class="LineNr">4290 </span> <span class="subxComment"># setup</span> +<span id="L4291" class="LineNr">4291 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4292" class="LineNr">4292 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4293" class="LineNr">4293 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4294" class="LineNr">4294 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4295" class="LineNr">4295 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4296" class="LineNr">4296 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4297" class="LineNr">4297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4298" class="LineNr">4298 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4299" class="LineNr">4299 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4300" class="LineNr">4300 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4301" class="LineNr">4301 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4302" class="LineNr">4302 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4303" class="LineNr">4303 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4304" class="LineNr">4304 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4305" class="LineNr">4305 </span> <span class="subxComment"># no contents in input</span> +<span id="L4306" class="LineNr">4306 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L4307" class="LineNr">4307 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4308" class="LineNr">4308 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4309" class="LineNr">4309 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4310" class="LineNr">4310 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L4311" class="LineNr">4311 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4312" class="LineNr">4312 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4313" class="LineNr">4313 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4314" class="LineNr">4314 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4315" class="LineNr">4315 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-empty-string"</span>/imm32 +<span id="L4316" class="LineNr">4316 </span> 68/push 0/imm32/true +<span id="L4317" class="LineNr">4317 </span> 50/push-eax +<span id="L4318" class="LineNr">4318 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4319" class="LineNr">4319 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4320" class="LineNr">4320 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4321" class="LineNr">4321 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4322" class="LineNr">4322 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4323" class="LineNr">4323 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4324" class="LineNr">4324 </span> 5d/pop-to-ebp +<span id="L4325" class="LineNr">4325 </span> c3/return +<span id="L4326" class="LineNr">4326 </span> +<span id="L4327" class="LineNr">4327 </span><span class="subxTest">test-num-bytes-ignores-comments</span>: +<span id="L4328" class="LineNr">4328 </span> <span class="subxComment"># if a line starts with '#', return 0</span> +<span id="L4329" class="LineNr">4329 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4330" class="LineNr">4330 </span> 55/push-ebp +<span id="L4331" class="LineNr">4331 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4332" class="LineNr">4332 </span> <span class="subxComment"># setup</span> +<span id="L4333" class="LineNr">4333 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4334" class="LineNr">4334 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4335" class="LineNr">4335 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4336" class="LineNr">4336 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4337" class="LineNr">4337 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4338" class="LineNr">4338 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4339" class="LineNr">4339 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4340" class="LineNr">4340 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4341" class="LineNr">4341 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4342" class="LineNr">4342 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4343" class="LineNr">4343 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4344" class="LineNr">4344 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4345" class="LineNr">4345 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4346" class="LineNr">4346 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4347" class="LineNr">4347 </span> <span class="subxComment"># initialize input</span> +<span id="L4348" class="LineNr">4348 </span> <span class="subxS1Comment"># . write(_test-input-stream, "# abcd")</span> +<span id="L4349" class="LineNr">4349 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4350" class="LineNr">4350 </span> 68/push <span class="Constant">"# abcd"</span>/imm32 +<span id="L4351" class="LineNr">4351 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4352" class="LineNr">4352 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4353" class="LineNr">4353 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4354" class="LineNr">4354 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4355" class="LineNr">4355 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4356" class="LineNr">4356 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L4357" class="LineNr">4357 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4358" class="LineNr">4358 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4359" class="LineNr">4359 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4360" class="LineNr">4360 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L4361" class="LineNr">4361 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4362" class="LineNr">4362 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4363" class="LineNr">4363 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4364" class="LineNr">4364 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4365" class="LineNr">4365 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-comments"</span>/imm32 +<span id="L4366" class="LineNr">4366 </span> 68/push 0/imm32/true +<span id="L4367" class="LineNr">4367 </span> 50/push-eax +<span id="L4368" class="LineNr">4368 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4369" class="LineNr">4369 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4370" class="LineNr">4370 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4371" class="LineNr">4371 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4372" class="LineNr">4372 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4373" class="LineNr">4373 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4374" class="LineNr">4374 </span> 5d/pop-to-ebp +<span id="L4375" class="LineNr">4375 </span> c3/return +<span id="L4376" class="LineNr">4376 </span> +<span id="L4377" class="LineNr">4377 </span><span class="subxTest">test-num-bytes-ignores-labels</span>: +<span id="L4378" class="LineNr">4378 </span> <span class="subxComment"># if the first word ends with ':', return 0</span> +<span id="L4379" class="LineNr">4379 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4380" class="LineNr">4380 </span> 55/push-ebp +<span id="L4381" class="LineNr">4381 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4382" class="LineNr">4382 </span> <span class="subxComment"># setup</span> +<span id="L4383" class="LineNr">4383 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4384" class="LineNr">4384 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4385" class="LineNr">4385 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4386" class="LineNr">4386 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4387" class="LineNr">4387 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4388" class="LineNr">4388 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4389" class="LineNr">4389 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4390" class="LineNr">4390 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4391" class="LineNr">4391 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4392" class="LineNr">4392 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4393" class="LineNr">4393 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4394" class="LineNr">4394 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4395" class="LineNr">4395 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4396" class="LineNr">4396 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4397" class="LineNr">4397 </span> <span class="subxComment"># initialize input</span> +<span id="L4398" class="LineNr">4398 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab: # cd")</span> +<span id="L4399" class="LineNr">4399 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4400" class="LineNr">4400 </span> 68/push <span class="Constant">"ab: # cd"</span>/imm32 +<span id="L4401" class="LineNr">4401 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4402" class="LineNr">4402 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4403" class="LineNr">4403 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4404" class="LineNr">4404 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4405" class="LineNr">4405 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4406" class="LineNr">4406 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L4407" class="LineNr">4407 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4408" class="LineNr">4408 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4409" class="LineNr">4409 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4410" class="LineNr">4410 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L4411" class="LineNr">4411 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4412" class="LineNr">4412 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4413" class="LineNr">4413 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4414" class="LineNr">4414 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4415" class="LineNr">4415 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-labels"</span>/imm32 +<span id="L4416" class="LineNr">4416 </span> 68/push 0/imm32/true +<span id="L4417" class="LineNr">4417 </span> 50/push-eax +<span id="L4418" class="LineNr">4418 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4419" class="LineNr">4419 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4420" class="LineNr">4420 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4421" class="LineNr">4421 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4422" class="LineNr">4422 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4423" class="LineNr">4423 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4424" class="LineNr">4424 </span> 5d/pop-to-ebp +<span id="L4425" class="LineNr">4425 </span> c3/return +<span id="L4426" class="LineNr">4426 </span> +<span id="L4427" class="LineNr">4427 </span><span class="subxTest">test-num-bytes-ignores-segment-headers</span>: +<span id="L4428" class="LineNr">4428 </span> <span class="subxComment"># if the first word is '==', return 0</span> +<span id="L4429" class="LineNr">4429 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4430" class="LineNr">4430 </span> 55/push-ebp +<span id="L4431" class="LineNr">4431 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4432" class="LineNr">4432 </span> <span class="subxComment"># setup</span> +<span id="L4433" class="LineNr">4433 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4434" class="LineNr">4434 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4435" class="LineNr">4435 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4436" class="LineNr">4436 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4437" class="LineNr">4437 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4438" class="LineNr">4438 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4439" class="LineNr">4439 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4440" class="LineNr">4440 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4441" class="LineNr">4441 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4442" class="LineNr">4442 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4443" class="LineNr">4443 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4444" class="LineNr">4444 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4445" class="LineNr">4445 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4446" class="LineNr">4446 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4447" class="LineNr">4447 </span> <span class="subxComment"># initialize input</span> +<span id="L4448" class="LineNr">4448 </span> <span class="subxS1Comment"># . write(_test-input-stream, "== ab cd")</span> +<span id="L4449" class="LineNr">4449 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4450" class="LineNr">4450 </span> 68/push <span class="Constant">"== ab cd"</span>/imm32 +<span id="L4451" class="LineNr">4451 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4452" class="LineNr">4452 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4453" class="LineNr">4453 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4454" class="LineNr">4454 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4455" class="LineNr">4455 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4456" class="LineNr">4456 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L4457" class="LineNr">4457 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4458" class="LineNr">4458 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4459" class="LineNr">4459 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4460" class="LineNr">4460 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L4461" class="LineNr">4461 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4462" class="LineNr">4462 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4463" class="LineNr">4463 </span> <span class="subxComment"># check-ints-equal(eax, 0, msg)</span> +<span id="L4464" class="LineNr">4464 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4465" class="LineNr">4465 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-segment-headers"</span>/imm32 +<span id="L4466" class="LineNr">4466 </span> 68/push 0/imm32/true +<span id="L4467" class="LineNr">4467 </span> 50/push-eax +<span id="L4468" class="LineNr">4468 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4469" class="LineNr">4469 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4470" class="LineNr">4470 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4471" class="LineNr">4471 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4472" class="LineNr">4472 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4473" class="LineNr">4473 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4474" class="LineNr">4474 </span> 5d/pop-to-ebp +<span id="L4475" class="LineNr">4475 </span> c3/return +<span id="L4476" class="LineNr">4476 </span> +<span id="L4477" class="LineNr">4477 </span><span class="subxTest">test-num-bytes-counts-words-by-default</span>: +<span id="L4478" class="LineNr">4478 </span> <span class="subxComment"># without metadata, count words</span> +<span id="L4479" class="LineNr">4479 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4480" class="LineNr">4480 </span> 55/push-ebp +<span id="L4481" class="LineNr">4481 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4482" class="LineNr">4482 </span> <span class="subxComment"># setup</span> +<span id="L4483" class="LineNr">4483 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4484" class="LineNr">4484 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4485" class="LineNr">4485 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4486" class="LineNr">4486 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4487" class="LineNr">4487 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4488" class="LineNr">4488 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4489" class="LineNr">4489 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4490" class="LineNr">4490 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4491" class="LineNr">4491 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4492" class="LineNr">4492 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4493" class="LineNr">4493 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4494" class="LineNr">4494 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4495" class="LineNr">4495 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4496" class="LineNr">4496 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4497" class="LineNr">4497 </span> <span class="subxComment"># initialize input</span> +<span id="L4498" class="LineNr">4498 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd ef")</span> +<span id="L4499" class="LineNr">4499 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4500" class="LineNr">4500 </span> 68/push <span class="Constant">"ab cd ef"</span>/imm32 +<span id="L4501" class="LineNr">4501 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4502" class="LineNr">4502 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4503" class="LineNr">4503 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4504" class="LineNr">4504 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4505" class="LineNr">4505 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4506" class="LineNr">4506 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L4507" class="LineNr">4507 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4508" class="LineNr">4508 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4509" class="LineNr">4509 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4510" class="LineNr">4510 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L4511" class="LineNr">4511 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4512" class="LineNr">4512 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4513" class="LineNr">4513 </span> <span class="subxComment"># check-ints-equal(eax, 3, msg)</span> +<span id="L4514" class="LineNr">4514 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4515" class="LineNr">4515 </span> 68/push <span class="Constant">"F - test-num-bytes-counts-words-by-default"</span>/imm32 +<span id="L4516" class="LineNr">4516 </span> 68/push 3/imm32/true +<span id="L4517" class="LineNr">4517 </span> 50/push-eax +<span id="L4518" class="LineNr">4518 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4519" class="LineNr">4519 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4520" class="LineNr">4520 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4521" class="LineNr">4521 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4522" class="LineNr">4522 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4523" class="LineNr">4523 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4524" class="LineNr">4524 </span> 5d/pop-to-ebp +<span id="L4525" class="LineNr">4525 </span> c3/return +<span id="L4526" class="LineNr">4526 </span> +<span id="L4527" class="LineNr">4527 </span><span class="subxTest">test-num-bytes-ignores-trailing-comment</span>: +<span id="L4528" class="LineNr">4528 </span> <span class="subxComment"># trailing comments appropriately ignored</span> +<span id="L4529" class="LineNr">4529 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4530" class="LineNr">4530 </span> 55/push-ebp +<span id="L4531" class="LineNr">4531 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4532" class="LineNr">4532 </span> <span class="subxComment"># setup</span> +<span id="L4533" class="LineNr">4533 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4534" class="LineNr">4534 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4535" class="LineNr">4535 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4536" class="LineNr">4536 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4537" class="LineNr">4537 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4538" class="LineNr">4538 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4539" class="LineNr">4539 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4540" class="LineNr">4540 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4541" class="LineNr">4541 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4542" class="LineNr">4542 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4543" class="LineNr">4543 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4544" class="LineNr">4544 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4545" class="LineNr">4545 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4546" class="LineNr">4546 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4547" class="LineNr">4547 </span> <span class="subxComment"># initialize input</span> +<span id="L4548" class="LineNr">4548 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd # ef")</span> +<span id="L4549" class="LineNr">4549 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4550" class="LineNr">4550 </span> 68/push <span class="Constant">"ab cd # ef"</span>/imm32 +<span id="L4551" class="LineNr">4551 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4552" class="LineNr">4552 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4553" class="LineNr">4553 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4554" class="LineNr">4554 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4555" class="LineNr">4555 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4556" class="LineNr">4556 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L4557" class="LineNr">4557 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4558" class="LineNr">4558 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4559" class="LineNr">4559 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4560" class="LineNr">4560 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L4561" class="LineNr">4561 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4562" class="LineNr">4562 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4563" class="LineNr">4563 </span> <span class="subxComment"># check-ints-equal(eax, 2, msg)</span> +<span id="L4564" class="LineNr">4564 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4565" class="LineNr">4565 </span> 68/push <span class="Constant">"F - test-num-bytes-ignores-trailing-comment"</span>/imm32 +<span id="L4566" class="LineNr">4566 </span> 68/push 2/imm32/true +<span id="L4567" class="LineNr">4567 </span> 50/push-eax +<span id="L4568" class="LineNr">4568 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4569" class="LineNr">4569 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4570" class="LineNr">4570 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4571" class="LineNr">4571 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4572" class="LineNr">4572 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4573" class="LineNr">4573 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4574" class="LineNr">4574 </span> 5d/pop-to-ebp +<span id="L4575" class="LineNr">4575 </span> c3/return +<span id="L4576" class="LineNr">4576 </span> +<span id="L4577" class="LineNr">4577 </span><span class="subxTest">test-num-bytes-handles-imm32</span>: +<span id="L4578" class="LineNr">4578 </span> <span class="subxComment"># if a word has the /imm32 metadata, count it as 4 bytes</span> +<span id="L4579" class="LineNr">4579 </span> <span class="subxS1Comment"># . prologue</span> +<span id="L4580" class="LineNr">4580 </span> 55/push-ebp +<span id="L4581" class="LineNr">4581 </span> 89/copy 3/mod/direct 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/r32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy esp to ebp</span> +<span id="L4582" class="LineNr">4582 </span> <span class="subxComment"># setup</span> +<span id="L4583" class="LineNr">4583 </span> <span class="subxS1Comment"># . clear-stream(_test-input-stream)</span> +<span id="L4584" class="LineNr">4584 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4585" class="LineNr">4585 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4586" class="LineNr">4586 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4587" class="LineNr">4587 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4588" class="LineNr">4588 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4589" class="LineNr">4589 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4590" class="LineNr">4590 </span> <span class="subxS1Comment"># . clear-stream(_test-output-stream)</span> +<span id="L4591" class="LineNr">4591 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4592" class="LineNr">4592 </span> 68/push <a href='115write-byte.subx.html#L287'>_test-output-stream</a>/imm32 +<span id="L4593" class="LineNr">4593 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4594" class="LineNr">4594 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L4595" class="LineNr">4595 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4596" class="LineNr">4596 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4597" class="LineNr">4597 </span> <span class="subxComment"># initialize input</span> +<span id="L4598" class="LineNr">4598 </span> <span class="subxS1Comment"># . write(_test-input-stream, "ab cd/imm32 ef")</span> +<span id="L4599" class="LineNr">4599 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4600" class="LineNr">4600 </span> 68/push <span class="Constant">"ab cd/imm32 ef"</span>/imm32 +<span id="L4601" class="LineNr">4601 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4602" class="LineNr">4602 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4603" class="LineNr">4603 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 +<span id="L4604" class="LineNr">4604 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4605" class="LineNr">4605 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> +<span id="L4606" class="LineNr">4606 </span> <span class="subxComment"># eax = num-bytes(_test-input-stream)</span> +<span id="L4607" class="LineNr">4607 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4608" class="LineNr">4608 </span> 68/push <a href='112read-byte.subx.html#L331'>_test-input-stream</a>/imm32 +<span id="L4609" class="LineNr">4609 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4610" class="LineNr">4610 </span> e8/call <a href='survey_elf.subx.html#L4088'>num-bytes</a>/disp32 +<span id="L4611" class="LineNr">4611 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4612" class="LineNr">4612 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> +<span id="L4613" class="LineNr">4613 </span> <span class="subxComment"># check-ints-equal(eax, 6, msg)</span> +<span id="L4614" class="LineNr">4614 </span> <span class="subxS2Comment"># . . push args</span> +<span id="L4615" class="LineNr">4615 </span> 68/push <span class="Constant">"F - test-num-bytes-handles-imm32"</span>/imm32 +<span id="L4616" class="LineNr">4616 </span> 68/push 6/imm32/true +<span id="L4617" class="LineNr">4617 </span> 50/push-eax +<span id="L4618" class="LineNr">4618 </span> <span class="subxS2Comment"># . . call</span> +<span id="L4619" class="LineNr">4619 </span> e8/call <a href='102test.subx.html#L23'>check-ints-equal</a>/disp32 +<span id="L4620" class="LineNr">4620 </span> <span class="subxS2Comment"># . . discard args</span> +<span id="L4621" class="LineNr">4621 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/imm32 <span class="subxComment"># add to esp</span> +<span id="L4622" class="LineNr">4622 </span> <span class="subxS1Comment"># . epilogue</span> +<span id="L4623" class="LineNr">4623 </span> 89/copy 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 5/r32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># copy ebp to esp</span> +<span id="L4624" class="LineNr">4624 </span> 5d/pop-to-ebp +<span id="L4625" class="LineNr">4625 </span> c3/return +<span id="L4626" class="LineNr">4626 </span> +<span id="L4627" class="LineNr">4627 </span>== data +<span id="L4628" class="LineNr">4628 </span> +<span id="L4629" class="LineNr">4629 </span><span class="subxComment"># This block of bytes gets copied to the start of the output ELF file, with</span> +<span id="L4630" class="LineNr">4630 </span><span class="subxComment"># some fields (the ones with labels capitalized) filled in.</span> +<span id="L4631" class="LineNr">4631 </span><span class="subxComment"># <a href="http://www.sco.com/developers/gabi/latest/ch4.eheader.html">http://www.sco.com/developers/gabi/latest/ch4.eheader.html</a></span> +<span id="L4632" class="LineNr">4632 </span><span class="SpecialChar">Elf_header</span>: +<span id="L4633" class="LineNr">4633 </span> <span class="subxH1Comment"># - size</span> +<span id="L4634" class="LineNr">4634 </span> 0x34/imm32 +<span id="L4635" class="LineNr">4635 </span> <span class="subxH1Comment"># - data</span> +<span id="L4636" class="LineNr">4636 </span><span class="Constant">$e_ident</span>: +<span id="L4637" class="LineNr">4637 </span> 7f 45/E 4c/L 46/F +<span id="L4638" class="LineNr">4638 </span> 01/32-bit 01/little-endian 01/file-version 00/no-os-extensions +<span id="L4639" class="LineNr">4639 </span> 00 00 00 00 00 00 00 00 <span class="subxComment"># 8 bytes of padding</span> +<span id="L4640" class="LineNr">4640 </span><span class="Constant">$e_type</span>: +<span id="L4641" class="LineNr">4641 </span> 02 00 +<span id="L4642" class="LineNr">4642 </span><span class="Constant">$e_machine</span>: +<span id="L4643" class="LineNr">4643 </span> 03 00 +<span id="L4644" class="LineNr">4644 </span><span class="Constant">$e_version</span>: +<span id="L4645" class="LineNr">4645 </span> 1/imm32 +<span id="L4646" class="LineNr">4646 </span><span class="Constant">$Elf_e_entry</span>: +<span id="L4647" class="LineNr">4647 </span> 0x09000000/imm32 <span class="subxComment"># approximate default; must be updated</span> +<span id="L4648" class="LineNr">4648 </span><span class="Constant">$e_phoff</span>: +<span id="L4649" class="LineNr">4649 </span> 0x34/imm32 <span class="subxComment"># offset for the 'program header table' containing segment headers</span> +<span id="L4650" class="LineNr">4650 </span><span class="Constant">$e_shoff</span>: +<span id="L4651" class="LineNr">4651 </span> 0/imm32 <span class="subxComment"># no sections</span> +<span id="L4652" class="LineNr">4652 </span><span class="Constant">$e_flags</span>: +<span id="L4653" class="LineNr">4653 </span> 0/imm32 <span class="subxComment"># unused</span> +<span id="L4654" class="LineNr">4654 </span><span class="Constant">$e_ehsize</span>: +<span id="L4655" class="LineNr">4655 </span> 0x34 00 +<span id="L4656" class="LineNr">4656 </span><span class="Constant">$e_phentsize</span>: +<span id="L4657" class="LineNr">4657 </span> 0x20 00 +<span id="L4658" class="LineNr">4658 </span><span class="Constant">$Elf_e_phnum</span>: +<span id="L4659" class="LineNr">4659 </span> 00 00 <span class="subxComment"># number of segments; must be updated</span> +<span id="L4660" class="LineNr">4660 </span><span class="Constant">$e_shentsize</span>: +<span id="L4661" class="LineNr">4661 </span> 00 00 <span class="subxComment"># no sections</span> +<span id="L4662" class="LineNr">4662 </span><span class="Constant">$e_shnum</span>: +<span id="L4663" class="LineNr">4663 </span> 00 00 +<span id="L4664" class="LineNr">4664 </span><span class="Constant">$e_shstrndx</span>: +<span id="L4665" class="LineNr">4665 </span> 00 00 +<span id="L4666" class="LineNr">4666 </span> +<span id="L4667" class="LineNr">4667 </span><span class="subxComment"># This block of bytes gets copied after the Elf_header once for each segment.</span> +<span id="L4668" class="LineNr">4668 </span><span class="subxComment"># Some fields need filling in each time.</span> +<span id="L4669" class="LineNr">4669 </span><span class="subxComment"># <a href="https://docs.oracle.com/cd/E19683-01/816-1386/chapter6-83432/index.html">https://docs.oracle.com/cd/E19683-01/816-1386/chapter6-83432/index.html</a></span> +<span id="L4670" class="LineNr">4670 </span><span class="SpecialChar">Elf_program_header_entry</span>: +<span id="L4671" class="LineNr">4671 </span> <span class="subxH1Comment"># - size</span> +<span id="L4672" class="LineNr">4672 </span> 0x20/imm32 +<span id="L4673" class="LineNr">4673 </span> <span class="subxH1Comment"># - data</span> +<span id="L4674" class="LineNr">4674 </span><span class="Constant">$p_type</span>: +<span id="L4675" class="LineNr">4675 </span> 1/imm32/PT_LOAD +<span id="L4676" class="LineNr">4676 </span><span class="Constant">$Elf_p_offset</span>: +<span id="L4677" class="LineNr">4677 </span> 0/imm32 <span class="subxComment"># byte offset in the file at which a segment begins; must be updated</span> +<span id="L4678" class="LineNr">4678 </span><span class="Constant">$Elf_p_vaddr</span>: +<span id="L4679" class="LineNr">4679 </span> 0/imm32 <span class="subxComment"># starting address to store the segment at before running the program</span> +<span id="L4680" class="LineNr">4680 </span><span class="Constant">$Elf_p_paddr</span>: +<span id="L4681" class="LineNr">4681 </span> 0/imm32 <span class="subxComment"># should have same value as $Elf_p_vaddr</span> +<span id="L4682" class="LineNr">4682 </span><span class="Constant">$Elf_p_filesz</span>: +<span id="L4683" class="LineNr">4683 </span> 0/imm32 +<span id="L4684" class="LineNr">4684 </span><span class="Constant">$Elf_p_memsz</span>: +<span id="L4685" class="LineNr">4685 </span> 0/imm32 <span class="subxComment"># should have same value as $Elf_p_filesz</span> +<span id="L4686" class="LineNr">4686 </span><span class="Constant">$Elf_p_flags</span>: +<span id="L4687" class="LineNr">4687 </span> 6/imm32/rw- <span class="subxComment"># read/write/execute permissions for the segment; must be updated for the code segment</span> +<span id="L4688" class="LineNr">4688 </span><span class="Constant">$p_align</span>: +<span id="L4689" class="LineNr">4689 </span> <span class="subxComment"># we hold this constant; changing it will require adjusting the way we</span> +<span id="L4690" class="LineNr">4690 </span> <span class="subxComment"># compute the starting address for each segment</span> +<span id="L4691" class="LineNr">4691 </span> 0x1000/imm32 +<span id="L4692" class="LineNr">4692 </span> +<span id="L4693" class="LineNr">4693 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> </pre> </body> </html> diff --git a/html/apps/tests.subx.html b/html/linux/tests.subx.html index b6786cbf..6456ff43 100644 --- a/html/apps/tests.subx.html +++ b/html/linux/tests.subx.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tests.subx</title> +<title>Mu - linux/tests.subx</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.subxH1Comment { color: #005faf; text-decoration: underline; } .subxComment { color: #005faf; } +.subxS1Comment { color: #0000af; } .subxS2Comment { color: #8a8a8a; } -.subxFunction { color: #af5f00; text-decoration: underline; } .LineNr { } -.subxS1Comment { color: #0000af; } +.Constant { color: #008787; } .SpecialChar { color: #d70000; } .Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } -.Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } +.subxFunction { color: #af5f00; text-decoration: underline; } --> </style> @@ -56,13 +56,13 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tests.subx'>https://github.com/akkartik/mu/blob/main/apps/tests.subx</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tests.subx'>https://github.com/akkartik/mu/blob/main/linux/tests.subx</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Generate code for a new function called 'run-tests' which calls in sequence</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment"># all functions starting with 'test-'.</span> <span id="L3" class="LineNr"> 3 </span><span class="subxComment">#</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment"># To build:</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ ./bootstrap translate init.linux 0*.subx apps/subx-params.subx apps/tests.subx -o apps/tests</span> +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># $ bootstrap/bootstrap translate [01]*.subx apps/subx-params.subx apps/tests.subx -o apps/tests</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span>== code <span id="L8" class="LineNr"> 8 </span><span class="subxComment"># instruction effective address register displacement immediate</span> @@ -76,17 +76,17 @@ if ('onhashchange' in window) { <span id="L16" class="LineNr"> 16 </span> <span class="subxComment"># initialize heap</span> <span id="L17" class="LineNr"> 17 </span> <span class="subxS1Comment"># . Heap = new-segment(Heap-size)</span> <span id="L18" class="LineNr"> 18 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L19" class="LineNr"> 19 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L20" class="LineNr"> 20 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='../120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> +<span id="L19" class="LineNr"> 19 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L20" class="LineNr"> 20 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> <span id="L21" class="LineNr"> 21 </span> <span class="subxS2Comment"># . . call</span> -<span id="L22" class="LineNr"> 22 </span> e8/call <a href='../104new-segment.subx.html#L40'>new-segment</a>/disp32 +<span id="L22" class="LineNr"> 22 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 <span id="L23" class="LineNr"> 23 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L24" class="LineNr"> 24 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L25" class="LineNr"> 25 </span> <span class="subxComment"># initialize-trace-stream(256KB)</span> <span id="L26" class="LineNr"> 26 </span> <span class="subxS2Comment"># . . push args</span> <span id="L27" class="LineNr"> 27 </span> 68/push 0x40000/imm32/256KB <span id="L28" class="LineNr"> 28 </span> <span class="subxS2Comment"># . . call</span> -<span id="L29" class="LineNr"> 29 </span> e8/call <a href='../107trace.subx.html#L48'>initialize-trace-stream</a>/disp32 +<span id="L29" class="LineNr"> 29 </span> e8/call <a href='107trace.subx.html#L43'>initialize-trace-stream</a>/disp32 <span id="L30" class="LineNr"> 30 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L31" class="LineNr"> 31 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L32" class="LineNr"> 32 </span> @@ -100,7 +100,7 @@ if ('onhashchange' in window) { <span id="L40" class="LineNr"> 40 </span> 68/push <span class="Constant">"test"</span>/imm32 <span id="L41" class="LineNr"> 41 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L42" class="LineNr"> 42 </span> <span class="subxS2Comment"># . . call</span> -<span id="L43" class="LineNr"> 43 </span> e8/call <a href='../103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 +<span id="L43" class="LineNr"> 43 </span> e8/call <a href='103kernel-string-equal.subx.html#L31'>kernel-string-equal?</a>/disp32 <span id="L44" class="LineNr"> 44 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L45" class="LineNr"> 45 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L46" class="LineNr"> 46 </span> <span class="subxS1Comment"># . if (eax == false) goto run-main</span> @@ -109,14 +109,14 @@ if ('onhashchange' in window) { <span id="L49" class="LineNr"> 49 </span> <span class="subxComment"># run-tests()</span> <span id="L50" class="LineNr"> 50 </span> e8/call run-tests/disp32 <span id="L51" class="LineNr"> 51 </span> <span class="subxComment"># syscall(exit, *Num-test-failures)</span> -<span id="L52" class="LineNr"> 52 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='../102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> +<span id="L52" class="LineNr"> 52 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> <span id="L53" class="LineNr"> 53 </span> eb/jump $subx-tests-main:end/disp8 <span id="L54" class="LineNr"> 54 </span><span class="Constant">$subx-tests-main:interactive</span>: <span id="L55" class="LineNr"> 55 </span> <span class="subxH1Comment"># - otherwise convert stdin</span> <span id="L56" class="LineNr"> 56 </span> <span class="subxComment"># subx-gen-run-tests(Stdin, Stdout)</span> <span id="L57" class="LineNr"> 57 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L58" class="LineNr"> 58 </span> 68/push <span class="SpecialChar"><a href='../115write-byte.subx.html#L10'>Stdout</a></span>/imm32 -<span id="L59" class="LineNr"> 59 </span> 68/push <span class="SpecialChar"><a href='../112read-byte.subx.html#L14'>Stdin</a></span>/imm32 +<span id="L58" class="LineNr"> 58 </span> 68/push <span class="SpecialChar"><a href='115write-byte.subx.html#L10'>Stdout</a></span>/imm32 +<span id="L59" class="LineNr"> 59 </span> 68/push <span class="SpecialChar"><a href='112read-byte.subx.html#L14'>Stdin</a></span>/imm32 <span id="L60" class="LineNr"> 60 </span> <span class="subxS2Comment"># . . call</span> <span id="L61" class="LineNr"> 61 </span> e8/call <a href='tests.subx.html#L69'>subx-gen-run-tests</a>/disp32 <span id="L62" class="LineNr"> 62 </span> <span class="subxS2Comment"># . . discard args</span> @@ -124,7 +124,7 @@ if ('onhashchange' in window) { <span id="L64" class="LineNr"> 64 </span> <span class="subxComment"># syscall(exit, 0)</span> <span id="L65" class="LineNr"> 65 </span> bb/copy-to-ebx 0/imm32 <span id="L66" class="LineNr"> 66 </span><span class="Constant">$subx-tests-main:end</span>: -<span id="L67" class="LineNr"> 67 </span> e8/call syscall_exit/disp32 +<span id="L67" class="LineNr"> 67 </span> e8/call <a href='000init.subx.html#L18'>syscall_exit</a>/disp32 <span id="L68" class="LineNr"> 68 </span> <span id="L69" class="LineNr"> 69 </span><span class="subxFunction">subx-gen-run-tests</span>: <span class="subxComment"># in: (addr buffered-file), out: (addr buffered-file)</span> <span id="L70" class="LineNr"> 70 </span> <span class="subxComment"># pseudocode</span> @@ -142,7 +142,7 @@ if ('onhashchange' in window) { <span id="L82" class="LineNr"> 82 </span> <span class="subxComment"># var word-slice = next-word(line)</span> <span id="L83" class="LineNr"> 83 </span> <span class="subxComment"># if slice-empty?(word-slice) # empty line</span> <span id="L84" class="LineNr"> 84 </span> <span class="subxComment"># continue</span> -<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># if is-label?(word-slice)</span> +<span id="L85" class="LineNr"> 85 </span> <span class="subxComment"># if label?(word-slice)</span> <span id="L86" class="LineNr"> 86 </span> <span class="subxComment"># if slice-starts-with?(word-slice, "test-")</span> <span id="L87" class="LineNr"> 87 </span> <span class="subxComment"># tests-found = true</span> <span id="L88" class="LineNr"> 88 </span> <span class="subxComment"># write(new-code-segment, " e8/call ")</span> @@ -186,9 +186,9 @@ if ('onhashchange' in window) { <span id="L126" class="LineNr">126 </span> 56/push-esi <span id="L127" class="LineNr">127 </span> 68/push 1/imm32 <span id="L128" class="LineNr">128 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar">Segment-size</span>/disp32 <span class="subxComment"># push *Segment-size</span> -<span id="L129" class="LineNr">129 </span> 68/push <span class="SpecialChar"><a href='../120allocate.subx.html#L27'>Heap</a></span>/imm32 +<span id="L129" class="LineNr">129 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 <span id="L130" class="LineNr">130 </span> <span class="subxS2Comment"># . . call</span> -<span id="L131" class="LineNr">131 </span> e8/call <a href='../121new-stream.subx.html#L8'>new-stream</a>/disp32 +<span id="L131" class="LineNr">131 </span> e8/call <a href='121new-stream.subx.html#L8'>new-stream</a>/disp32 <span id="L132" class="LineNr">132 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L133" class="LineNr">133 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0x10/imm32 <span class="subxComment"># add to esp</span> <span id="L134" class="LineNr">134 </span> <span class="subxComment"># var new-code-stream/edi: (addr stream byte) = lookup(*new-code-stream-handle)</span> @@ -197,7 +197,7 @@ if ('onhashchange' in window) { <span id="L137" class="LineNr">137 </span> ff 6/subop/push 1/mod/*+disp8 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(esi+4)</span> <span id="L138" class="LineNr">138 </span> ff 6/subop/push 0/mod/indirect 6/rm32/esi <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="subxComment"># push *esi</span> <span id="L139" class="LineNr">139 </span> <span class="subxS2Comment"># . . call</span> -<span id="L140" class="LineNr">140 </span> e8/call <a href='../120allocate.subx.html#L256'>lookup</a>/disp32 +<span id="L140" class="LineNr">140 </span> e8/call <a href='120allocate.subx.html#L258'>lookup</a>/disp32 <span id="L141" class="LineNr">141 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L142" class="LineNr">142 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L143" class="LineNr">143 </span> <span class="subxS1Comment"># . new-code-stream = eax</span> @@ -207,7 +207,7 @@ if ('onhashchange' in window) { <span id="L147" class="LineNr">147 </span> 68/push <span class="Constant">"\n== code\n"</span>/imm32 <span id="L148" class="LineNr">148 </span> 57/push-edi <span id="L149" class="LineNr">149 </span> <span class="subxS2Comment"># . . call</span> -<span id="L150" class="LineNr">150 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L150" class="LineNr">150 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L151" class="LineNr">151 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L152" class="LineNr">152 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L153" class="LineNr">153 </span> <span class="subxComment"># write(new-code-segment, "run-tests:\n")</span> @@ -215,7 +215,7 @@ if ('onhashchange' in window) { <span id="L155" class="LineNr">155 </span> 68/push <span class="Constant">"run-tests:\n"</span>/imm32 <span id="L156" class="LineNr">156 </span> 57/push-edi <span id="L157" class="LineNr">157 </span> <span class="subxS2Comment"># . . call</span> -<span id="L158" class="LineNr">158 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L158" class="LineNr">158 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L159" class="LineNr">159 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L160" class="LineNr">160 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L161" class="LineNr">161 </span><span class="Constant">$subx-gen-run-tests:loop</span>: @@ -223,7 +223,7 @@ if ('onhashchange' in window) { <span id="L163" class="LineNr">163 </span> <span class="subxS2Comment"># . . push args</span> <span id="L164" class="LineNr">164 </span> 51/push-ecx <span id="L165" class="LineNr">165 </span> <span class="subxS2Comment"># . . call</span> -<span id="L166" class="LineNr">166 </span> e8/call <a href='../106stream.subx.html#L17'>clear-stream</a>/disp32 +<span id="L166" class="LineNr">166 </span> e8/call <a href='106stream.subx.html#L17'>clear-stream</a>/disp32 <span id="L167" class="LineNr">167 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L168" class="LineNr">168 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L169" class="LineNr">169 </span> <span class="subxComment"># read-line-buffered(in, line)</span> @@ -231,7 +231,7 @@ if ('onhashchange' in window) { <span id="L171" class="LineNr">171 </span> 51/push-ecx <span id="L172" class="LineNr">172 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+8)</span> <span id="L173" class="LineNr">173 </span> <span class="subxS2Comment"># . . call</span> -<span id="L174" class="LineNr">174 </span> e8/call <a href='../122read-line.subx.html#L9'>read-line-buffered</a>/disp32 +<span id="L174" class="LineNr">174 </span> e8/call <a href='122read-line.subx.html#L9'>read-line-buffered</a>/disp32 <span id="L175" class="LineNr">175 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L176" class="LineNr">176 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L177" class="LineNr">177 </span><span class="Constant">$subx-gen-run-tests:check0</span>: @@ -243,26 +243,26 @@ if ('onhashchange' in window) { <span id="L183" class="LineNr">183 </span> 52/push-edx <span id="L184" class="LineNr">184 </span> 51/push-ecx <span id="L185" class="LineNr">185 </span> <span class="subxS2Comment"># . . call</span> -<span id="L186" class="LineNr">186 </span> e8/call <a href='../127next-word.subx.html#L11'>next-word</a>/disp32 +<span id="L186" class="LineNr">186 </span> e8/call <a href='127next-word.subx.html#L11'>next-word</a>/disp32 <span id="L187" class="LineNr">187 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L188" class="LineNr">188 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L189" class="LineNr">189 </span><span class="Constant">$subx-gen-run-tests:check-empty</span>: <span id="L190" class="LineNr">190 </span> <span class="subxComment"># if slice-empty?(word-slice) break</span> <span id="L191" class="LineNr">191 </span> <span class="subxS1Comment"># . eax = slice-empty?(word-slice)</span> <span id="L192" class="LineNr">192 </span> 52/push-edx -<span id="L193" class="LineNr">193 </span> e8/call <a href='../123slice.subx.html#L9'>slice-empty?</a>/disp32 +<span id="L193" class="LineNr">193 </span> e8/call <a href='123slice.subx.html#L9'>slice-empty?</a>/disp32 <span id="L194" class="LineNr">194 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L195" class="LineNr">195 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L196" class="LineNr">196 </span> <span class="subxS1Comment"># . if (eax != false) break</span> <span id="L197" class="LineNr">197 </span> 3d/compare-eax-and 0/imm32/false <span id="L198" class="LineNr">198 </span> 75/jump-if-!= $subx-gen-run-tests:<span class="Constant">loop</span>/disp8 <span id="L199" class="LineNr">199 </span><span class="Constant">$subx-gen-run-tests:check-for-label</span>: -<span id="L200" class="LineNr">200 </span> <span class="subxComment"># if (!is-label?(word-slice)) continue</span> -<span id="L201" class="LineNr">201 </span> <span class="subxS1Comment"># . eax = is-label?(word-slice)</span> +<span id="L200" class="LineNr">200 </span> <span class="subxComment"># if (!label?(word-slice)) continue</span> +<span id="L201" class="LineNr">201 </span> <span class="subxS1Comment"># . eax = label?(word-slice)</span> <span id="L202" class="LineNr">202 </span> <span class="subxS2Comment"># . . push args</span> <span id="L203" class="LineNr">203 </span> 52/push-edx <span id="L204" class="LineNr">204 </span> <span class="subxS2Comment"># . . call</span> -<span id="L205" class="LineNr">205 </span> e8/call <a href='../128subx-words.subx.html#L535'>is-label?</a>/disp32 +<span id="L205" class="LineNr">205 </span> e8/call <a href='128subx-words.subx.html#L535'>label?</a>/disp32 <span id="L206" class="LineNr">206 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L207" class="LineNr">207 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L208" class="LineNr">208 </span> <span class="subxS1Comment"># . if (eax == false) continue</span> @@ -276,7 +276,7 @@ if ('onhashchange' in window) { <span id="L216" class="LineNr">216 </span> 68/push <span class="Constant">"test-"</span>/imm32 <span id="L217" class="LineNr">217 </span> 52/push-edx <span id="L218" class="LineNr">218 </span> <span class="subxS2Comment"># . . call</span> -<span id="L219" class="LineNr">219 </span> e8/call <a href='../123slice.subx.html#L487'>slice-starts-with?</a>/disp32 +<span id="L219" class="LineNr">219 </span> e8/call <a href='123slice.subx.html#L487'>slice-starts-with?</a>/disp32 <span id="L220" class="LineNr">220 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L221" class="LineNr">221 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L222" class="LineNr">222 </span> <span class="subxS1Comment"># . if (eax == false) break</span> @@ -290,7 +290,7 @@ if ('onhashchange' in window) { <span id="L230" class="LineNr">230 </span> 68/push <span class="Constant">" e8/call "</span>/imm32 <span id="L231" class="LineNr">231 </span> 57/push-edi <span id="L232" class="LineNr">232 </span> <span class="subxS2Comment"># . . call</span> -<span id="L233" class="LineNr">233 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L233" class="LineNr">233 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L234" class="LineNr">234 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L235" class="LineNr">235 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L236" class="LineNr">236 </span> <span class="subxComment"># write-slice(new-code-segment, word-slice)</span> @@ -298,7 +298,7 @@ if ('onhashchange' in window) { <span id="L238" class="LineNr">238 </span> 52/push-edx <span id="L239" class="LineNr">239 </span> 57/push-edi <span id="L240" class="LineNr">240 </span> <span class="subxS2Comment"># . . call</span> -<span id="L241" class="LineNr">241 </span> e8/call <a href='../123slice.subx.html#L793'>write-slice</a>/disp32 +<span id="L241" class="LineNr">241 </span> e8/call <a href='123slice.subx.html#L793'>write-slice</a>/disp32 <span id="L242" class="LineNr">242 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L243" class="LineNr">243 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L244" class="LineNr">244 </span> <span class="subxComment"># write(new-code-segment, "/disp32\n")</span> @@ -306,7 +306,7 @@ if ('onhashchange' in window) { <span id="L246" class="LineNr">246 </span> 68/push <span class="Constant">"/disp32\n"</span>/imm32 <span id="L247" class="LineNr">247 </span> 57/push-edi <span id="L248" class="LineNr">248 </span> <span class="subxS2Comment"># . . call</span> -<span id="L249" class="LineNr">249 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L249" class="LineNr">249 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L250" class="LineNr">250 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L251" class="LineNr">251 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L252" class="LineNr">252 </span><span class="Constant">$subx-gen-run-tests:continue</span>: @@ -314,7 +314,7 @@ if ('onhashchange' in window) { <span id="L254" class="LineNr">254 </span> <span class="subxS2Comment"># . . push args</span> <span id="L255" class="LineNr">255 </span> 51/push-ecx <span id="L256" class="LineNr">256 </span> <span class="subxS2Comment"># . . call</span> -<span id="L257" class="LineNr">257 </span> e8/call <a href='../106stream.subx.html#L56'>rewind-stream</a>/disp32 +<span id="L257" class="LineNr">257 </span> e8/call <a href='106stream.subx.html#L56'>rewind-stream</a>/disp32 <span id="L258" class="LineNr">258 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L259" class="LineNr">259 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L260" class="LineNr">260 </span> <span class="subxComment"># write-stream-data(out, line)</span> @@ -322,7 +322,7 @@ if ('onhashchange' in window) { <span id="L262" class="LineNr">262 </span> 51/push-ecx <span id="L263" class="LineNr">263 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L264" class="LineNr">264 </span> <span class="subxS2Comment"># . . call</span> -<span id="L265" class="LineNr">265 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L265" class="LineNr">265 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L266" class="LineNr">266 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L267" class="LineNr">267 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L268" class="LineNr">268 </span> <span class="subxComment"># loop</span> @@ -336,7 +336,7 @@ if ('onhashchange' in window) { <span id="L276" class="LineNr">276 </span> 68/push <span class="Constant">" c3/return\n"</span>/imm32 <span id="L277" class="LineNr">277 </span> 57/push-edi <span id="L278" class="LineNr">278 </span> <span class="subxS2Comment"># . . call</span> -<span id="L279" class="LineNr">279 </span> e8/call <a href='../108write.subx.html#L24'>write</a>/disp32 +<span id="L279" class="LineNr">279 </span> e8/call <a href='108write.subx.html#L24'>write</a>/disp32 <span id="L280" class="LineNr">280 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L281" class="LineNr">281 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L282" class="LineNr">282 </span> <span class="subxComment"># write-stream-data(out, new-code-segment)</span> @@ -344,7 +344,7 @@ if ('onhashchange' in window) { <span id="L284" class="LineNr">284 </span> 57/push-edi <span id="L285" class="LineNr">285 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L286" class="LineNr">286 </span> <span class="subxS2Comment"># . . call</span> -<span id="L287" class="LineNr">287 </span> e8/call <a href='../125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 +<span id="L287" class="LineNr">287 </span> e8/call <a href='125write-stream-data.subx.html#L11'>write-stream-data</a>/disp32 <span id="L288" class="LineNr">288 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L289" class="LineNr">289 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> <span id="L290" class="LineNr">290 </span><span class="Constant">$subx-gen-run-tests:end</span>: @@ -352,7 +352,7 @@ if ('onhashchange' in window) { <span id="L292" class="LineNr">292 </span> <span class="subxS2Comment"># . . push args</span> <span id="L293" class="LineNr">293 </span> ff 6/subop/push 1/mod/*+disp8 5/rm32/ebp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 0xc/disp8 <span class="Normal"> . </span> <span class="subxComment"># push *(ebp+12)</span> <span id="L294" class="LineNr">294 </span> <span class="subxS2Comment"># . . call</span> -<span id="L295" class="LineNr">295 </span> e8/call <a href='../115write-byte.subx.html#L81'>flush</a>/disp32 +<span id="L295" class="LineNr">295 </span> e8/call <a href='115write-byte.subx.html#L81'>flush</a>/disp32 <span id="L296" class="LineNr">296 </span> <span class="subxS2Comment"># . . discard args</span> <span id="L297" class="LineNr">297 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> <span id="L298" class="LineNr">298 </span> <span class="subxS1Comment"># . reclaim locals</span> diff --git a/html/apps/texture.mu.html b/html/linux/texture.mu.html index 56888ee6..05d11331 100644 --- a/html/apps/texture.mu.html +++ b/html/linux/texture.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/texture.mu</title> +<title>Mu - linux/texture.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Delimiter { color: #c000c0; } +.CommentedCode { color: #8a8a8a; } .Constant { color: #008787; } .muFunction { color: #af5f00; text-decoration: underline; } -.Delimiter { color: #c000c0; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,62 +55,62 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/texture.mu'>https://github.com/akkartik/mu/blob/main/apps/texture.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/texture.mu'>https://github.com/akkartik/mu/blob/main/linux/texture.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Playing with emitting cool textures.</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> <span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run (on Linux):</span> <span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ git clone <a href="https://github.com/akkartik/mu">https://github.com/akkartik/mu</a></span> <span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ cd mu</span> -<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate_mu apps/texture.mu</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># $ ./translate texture.mu</span> <span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./a.elf > a.ppm</span> <span id="L8" class="LineNr"> 8 </span> <span id="L9" class="LineNr"> 9 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='texture.mu.html#L9'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> <span id="L10" class="LineNr">10 </span><span class="CommentedCode">#? var width/esi: int <- copy 0x190 # 400</span> <span id="L11" class="LineNr">11 </span><span class="CommentedCode">#? var height/edi: int <- copy 0xe1 # 225; aspect ratio 16:9</span> -<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> width/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> -<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> height/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> -<span id="L14" class="LineNr">14 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"P3\n"</span> -<span id="L15" class="LineNr">15 </span> <a href='../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, width -<span id="L16" class="LineNr">16 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> -<span id="L17" class="LineNr">17 </span> <a href='../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, height -<span id="L18" class="LineNr">18 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L19" class="LineNr">19 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"255\n"</span> <span class="muComment"># color depth</span> -<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L12" class="LineNr">12 </span> <span class="PreProc">var</span> width/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> +<span id="L13" class="LineNr">13 </span> <span class="PreProc">var</span> height/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0xff</span> +<span id="L14" class="LineNr">14 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"P3\n"</span> +<span id="L15" class="LineNr">15 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>/screen, width +<span id="L16" class="LineNr">16 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span> +<span id="L17" class="LineNr">17 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>/screen, height +<span id="L18" class="LineNr">18 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"\n"</span> +<span id="L19" class="LineNr">19 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"255\n"</span> <span class="muComment"># color depth</span> +<span id="L20" class="LineNr">20 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L21" class="LineNr">21 </span> <span class="Delimiter">{</span> <span id="L22" class="LineNr">22 </span> compare row, height <span id="L23" class="LineNr">23 </span> <span class="PreProc">break-if->=</span> -<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L25" class="LineNr">25 </span> <span class="Delimiter">{</span> <span id="L26" class="LineNr">26 </span> compare col, width <span id="L27" class="LineNr">27 </span> <span class="PreProc">break-if->=</span> <span id="L28" class="LineNr">28 </span> <span class="muComment"># r</span> -<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy col -<span id="L30" class="LineNr">30 </span> tmp <span class="SpecialChar"><-</span> multiply row -<span id="L31" class="LineNr">31 </span> tmp <span class="SpecialChar"><-</span> and <span class="Constant">0x7f</span> -<span id="L32" class="LineNr">32 </span> tmp <span class="SpecialChar"><-</span> add <span class="Constant">0x80</span> -<span id="L33" class="LineNr">33 </span> tmp <span class="SpecialChar"><-</span> copy <span class="Constant">0xff</span> -<span id="L34" class="LineNr">34 </span> <a href='../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, tmp -<span id="L35" class="LineNr">35 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy col +<span id="L30" class="LineNr">30 </span> tmp <span class="Special"><-</span> multiply row +<span id="L31" class="LineNr">31 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x7f</span> +<span id="L32" class="LineNr">32 </span> tmp <span class="Special"><-</span> add <span class="Constant">0x80</span> +<span id="L33" class="LineNr">33 </span> tmp <span class="Special"><-</span> copy <span class="Constant">0xff</span> +<span id="L34" class="LineNr">34 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>/screen, tmp +<span id="L35" class="LineNr">35 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span> <span id="L36" class="LineNr">36 </span> <span class="muComment"># g</span> -<span id="L37" class="LineNr">37 </span> tmp <span class="SpecialChar"><-</span> copy row -<span id="L38" class="LineNr">38 </span> tmp <span class="SpecialChar"><-</span> multiply col -<span id="L39" class="LineNr">39 </span> tmp <span class="SpecialChar"><-</span> and <span class="Constant">0x7f</span> -<span id="L40" class="LineNr">40 </span> tmp <span class="SpecialChar"><-</span> add <span class="Constant">0x80</span> +<span id="L37" class="LineNr">37 </span> tmp <span class="Special"><-</span> copy row +<span id="L38" class="LineNr">38 </span> tmp <span class="Special"><-</span> multiply col +<span id="L39" class="LineNr">39 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x7f</span> +<span id="L40" class="LineNr">40 </span> tmp <span class="Special"><-</span> add <span class="Constant">0x80</span> <span id="L41" class="LineNr">41 </span><span class="CommentedCode">#? tmp <- copy 0xcf</span> -<span id="L42" class="LineNr">42 </span> <a href='../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, tmp -<span id="L43" class="LineNr">43 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">" "</span> +<span id="L42" class="LineNr">42 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>/screen, tmp +<span id="L43" class="LineNr">43 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">" "</span> <span id="L44" class="LineNr">44 </span> <span class="muComment"># b</span> -<span id="L45" class="LineNr">45 </span> tmp <span class="SpecialChar"><-</span> copy row -<span id="L46" class="LineNr">46 </span> tmp <span class="SpecialChar"><-</span> multiply col -<span id="L47" class="LineNr">47 </span> tmp <span class="SpecialChar"><-</span> and <span class="Constant">0x7f</span> -<span id="L48" class="LineNr">48 </span> tmp <span class="SpecialChar"><-</span> add <span class="Constant">0x80</span> -<span id="L49" class="LineNr">49 </span> <a href='../405screen.mu.html#L480'>print-int32-decimal</a> <span class="Constant">0</span>, tmp -<span id="L50" class="LineNr">50 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L51" class="LineNr">51 </span> col <span class="SpecialChar"><-</span> increment +<span id="L45" class="LineNr">45 </span> tmp <span class="Special"><-</span> copy row +<span id="L46" class="LineNr">46 </span> tmp <span class="Special"><-</span> multiply col +<span id="L47" class="LineNr">47 </span> tmp <span class="Special"><-</span> and <span class="Constant">0x7f</span> +<span id="L48" class="LineNr">48 </span> tmp <span class="Special"><-</span> add <span class="Constant">0x80</span> +<span id="L49" class="LineNr">49 </span> <a href='405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>/screen, tmp +<span id="L50" class="LineNr">50 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"\n"</span> +<span id="L51" class="LineNr">51 </span> col <span class="Special"><-</span> increment <span id="L52" class="LineNr">52 </span> <span class="PreProc">loop</span> <span id="L53" class="LineNr">53 </span> <span class="Delimiter">}</span> -<span id="L54" class="LineNr">54 </span> row <span class="SpecialChar"><-</span> increment +<span id="L54" class="LineNr">54 </span> row <span class="Special"><-</span> increment <span id="L55" class="LineNr">55 </span> <span class="PreProc">loop</span> <span id="L56" class="LineNr">56 </span> <span class="Delimiter">}</span> <span id="L57" class="LineNr">57 </span> <span class="PreProc">return</span> <span class="Constant">0</span> diff --git a/html/apps/tile/box.mu.html b/html/linux/tile/box.mu.html index bed85d6f..30c82324 100644 --- a/html/apps/tile/box.mu.html +++ b/html/linux/tile/box.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/box.mu</title> +<title>Mu - linux/tile/box.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.muComment { color: #005faf; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -54,114 +54,114 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/box.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/box.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/box.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/box.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L1'>draw-box</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <a href='box.mu.html#L26'>draw-horizontal-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, col1, col2 -<span id="L3" class="LineNr"> 3 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, row2, col1 -<span id="L4" class="LineNr"> 4 </span> <a href='box.mu.html#L26'>draw-horizontal-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row2, col1, col2 -<span id="L5" class="LineNr"> 5 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, row2, col2 -<span id="L6" class="LineNr"> 6 </span> <a href='box.mu.html#L50'>draw-top-left-corner</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, col1 -<span id="L7" class="LineNr"> 7 </span> <a href='box.mu.html#L55'>draw-top-right-corner</a> <a href='../../405screen.mu.html#L9'>screen</a>, row1, col2 -<span id="L8" class="LineNr"> 8 </span> <a href='box.mu.html#L60'>draw-bottom-left-corner</a> <a href='../../405screen.mu.html#L9'>screen</a>, row2, col1 -<span id="L9" class="LineNr"> 9 </span> <a href='box.mu.html#L65'>draw-bottom-right-corner</a> <a href='../../405screen.mu.html#L9'>screen</a>, row2, col2 +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L1'>draw-box</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <a href='box.mu.html#L26'>draw-horizontal-line</a> <a href='../405screen.mu.html#L9'>screen</a>, row1, col1, col2 +<span id="L3" class="LineNr"> 3 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../405screen.mu.html#L9'>screen</a>, row1, row2, col1 +<span id="L4" class="LineNr"> 4 </span> <a href='box.mu.html#L26'>draw-horizontal-line</a> <a href='../405screen.mu.html#L9'>screen</a>, row2, col1, col2 +<span id="L5" class="LineNr"> 5 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../405screen.mu.html#L9'>screen</a>, row1, row2, col2 +<span id="L6" class="LineNr"> 6 </span> <a href='box.mu.html#L50'>draw-top-left-corner</a> <a href='../405screen.mu.html#L9'>screen</a>, row1, col1 +<span id="L7" class="LineNr"> 7 </span> <a href='box.mu.html#L55'>draw-top-right-corner</a> <a href='../405screen.mu.html#L9'>screen</a>, row1, col2 +<span id="L8" class="LineNr"> 8 </span> <a href='box.mu.html#L60'>draw-bottom-left-corner</a> <a href='../405screen.mu.html#L9'>screen</a>, row2, col1 +<span id="L9" class="LineNr"> 9 </span> <a href='box.mu.html#L65'>draw-bottom-right-corner</a> <a href='../405screen.mu.html#L9'>screen</a>, row2, col2 <span id="L10" class="LineNr"> 10 </span><span class="Delimiter">}</span> <span id="L11" class="LineNr"> 11 </span> -<span id="L12" class="LineNr"> 12 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L12'>draw-hatching</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy col1 -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> r1/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy row1 -<span id="L15" class="LineNr"> 15 </span> r1 <span class="SpecialChar"><-</span> increment -<span id="L16" class="LineNr"> 16 </span> c <span class="SpecialChar"><-</span> add <span class="Constant">2</span> +<span id="L12" class="LineNr"> 12 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L12'>draw-hatching</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy col1 +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> r1/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy row1 +<span id="L15" class="LineNr"> 15 </span> r1 <span class="Special"><-</span> increment +<span id="L16" class="LineNr"> 16 </span> c <span class="Special"><-</span> add <span class="Constant">2</span> <span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">{</span> <span id="L18" class="LineNr"> 18 </span> compare c, col2 <span id="L19" class="LineNr"> 19 </span> <span class="PreProc">break-if->=</span> -<span id="L20" class="LineNr"> 20 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../../405screen.mu.html#L9'>screen</a>, r1, row2, c -<span id="L21" class="LineNr"> 21 </span> c <span class="SpecialChar"><-</span> add <span class="Constant">2</span> +<span id="L20" class="LineNr"> 20 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../405screen.mu.html#L9'>screen</a>, r1, row2, c +<span id="L21" class="LineNr"> 21 </span> c <span class="Special"><-</span> add <span class="Constant">2</span> <span id="L22" class="LineNr"> 22 </span> <span class="PreProc">loop</span> <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span> <span id="L25" class="LineNr"> 25 </span> -<span id="L26" class="LineNr"> 26 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L26'>draw-horizontal-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col1: int, col2: int <span class="Delimiter">{</span> -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy col1 -<span id="L28" class="LineNr"> 28 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col +<span id="L26" class="LineNr"> 26 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L26'>draw-horizontal-line</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col1: int, col2: int <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy col1 +<span id="L28" class="LineNr"> 28 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col <span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span> <span id="L30" class="LineNr"> 30 </span> compare col, col2 <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">break-if->=</span> -<span id="L32" class="LineNr"> 32 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2500</span> -<span id="L33" class="LineNr"> 33 </span> col <span class="SpecialChar"><-</span> increment +<span id="L32" class="LineNr"> 32 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2500</span> +<span id="L33" class="LineNr"> 33 </span> col <span class="Special"><-</span> increment <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">loop</span> <span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">}</span> <span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> <span id="L37" class="LineNr"> 37 </span> -<span id="L38" class="LineNr"> 38 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L38'>draw-vertical-line</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, row2: int, col: int <span class="Delimiter">{</span> -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy row1 +<span id="L38" class="LineNr"> 38 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L38'>draw-vertical-line</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row1: int, row2: int, col: int <span class="Delimiter">{</span> +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy row1 <span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span> compare row, row2 <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">break-if->=</span> -<span id="L43" class="LineNr"> 43 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L44" class="LineNr"> 44 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2502</span> -<span id="L45" class="LineNr"> 45 </span> row <span class="SpecialChar"><-</span> increment +<span id="L43" class="LineNr"> 43 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L44" class="LineNr"> 44 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2502</span> +<span id="L45" class="LineNr"> 45 </span> row <span class="Special"><-</span> increment <span id="L46" class="LineNr"> 46 </span> <span class="PreProc">loop</span> <span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">}</span> <span id="L48" class="LineNr"> 48 </span><span class="Delimiter">}</span> <span id="L49" class="LineNr"> 49 </span> -<span id="L50" class="LineNr"> 50 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L50'>draw-top-left-corner</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> -<span id="L51" class="LineNr"> 51 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L52" class="LineNr"> 52 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x250c</span> +<span id="L50" class="LineNr"> 50 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L50'>draw-top-left-corner</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> +<span id="L51" class="LineNr"> 51 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L52" class="LineNr"> 52 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x250c</span> <span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> <span id="L54" class="LineNr"> 54 </span> -<span id="L55" class="LineNr"> 55 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L55'>draw-top-right-corner</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> -<span id="L56" class="LineNr"> 56 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L57" class="LineNr"> 57 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2510</span> +<span id="L55" class="LineNr"> 55 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L55'>draw-top-right-corner</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L57" class="LineNr"> 57 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2510</span> <span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L60'>draw-bottom-left-corner</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> -<span id="L61" class="LineNr"> 61 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L62" class="LineNr"> 62 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2514</span> +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L60'>draw-bottom-left-corner</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L62" class="LineNr"> 62 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2514</span> <span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> <span id="L64" class="LineNr"> 64 </span> -<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L65'>draw-bottom-right-corner</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L67" class="LineNr"> 67 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2518</span> +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L65'>draw-bottom-right-corner</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L67" class="LineNr"> 67 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2518</span> <span id="L68" class="LineNr"> 68 </span><span class="Delimiter">}</span> <span id="L69" class="LineNr"> 69 </span> <span id="L70" class="LineNr"> 70 </span><span class="muComment"># erase parts of screen the slow way</span> -<span id="L71" class="LineNr"> 71 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L71'>clear-rect</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> -<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy row1 +<span id="L71" class="LineNr"> 71 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L71'>clear-rect</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, row2: int, col2: int <span class="Delimiter">{</span> +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy row1 <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span> compare i, row2 <span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break-if-></span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy col1 -<span id="L77" class="LineNr"> 77 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, i, j +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy col1 +<span id="L77" class="LineNr"> 77 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, i, j <span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">{</span> <span id="L79" class="LineNr"> 79 </span> compare j, col2 <span id="L80" class="LineNr"> 80 </span> <span class="PreProc">break-if-></span> -<span id="L81" class="LineNr"> 81 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L82" class="LineNr"> 82 </span> j <span class="SpecialChar"><-</span> increment +<span id="L81" class="LineNr"> 81 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span>/space +<span id="L82" class="LineNr"> 82 </span> j <span class="Special"><-</span> increment <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">loop</span> <span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> -<span id="L85" class="LineNr"> 85 </span> i <span class="SpecialChar"><-</span> increment +<span id="L85" class="LineNr"> 85 </span> i <span class="Special"><-</span> increment <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">loop</span> <span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">}</span> <span id="L88" class="LineNr"> 88 </span><span class="Delimiter">}</span> <span id="L89" class="LineNr"> 89 </span> -<span id="L90" class="LineNr"> 90 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L90'>clear-rect2</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, w: int, h: int <span class="Delimiter">{</span> -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">esi</span>: int <span class="SpecialChar"><-</span> copy row1 +<span id="L90" class="LineNr"> 90 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='box.mu.html#L90'>clear-rect2</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row1: int, col1: int, w: int, h: int <span class="Delimiter">{</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy row1 <span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> <span id="L94" class="LineNr"> 94 </span> compare i, w <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if->=</span> -<span id="L96" class="LineNr"> 96 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, curr-row, col1 -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L96" class="LineNr"> 96 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, curr-row, col1 +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> j/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> <span id="L99" class="LineNr"> 99 </span> compare j, h <span id="L100" class="LineNr">100 </span> <span class="PreProc">break-if->=</span> -<span id="L101" class="LineNr">101 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L102" class="LineNr">102 </span> j <span class="SpecialChar"><-</span> increment +<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a> <span class="Constant">0x20</span>/space +<span id="L102" class="LineNr">102 </span> j <span class="Special"><-</span> increment <span id="L103" class="LineNr">103 </span> <span class="PreProc">loop</span> <span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> -<span id="L105" class="LineNr">105 </span> i <span class="SpecialChar"><-</span> increment -<span id="L106" class="LineNr">106 </span> curr-row <span class="SpecialChar"><-</span> increment +<span id="L105" class="LineNr">105 </span> i <span class="Special"><-</span> increment +<span id="L106" class="LineNr">106 </span> curr-row <span class="Special"><-</span> increment <span id="L107" class="LineNr">107 </span> <span class="PreProc">loop</span> <span id="L108" class="LineNr">108 </span> <span class="Delimiter">}</span> <span id="L109" class="LineNr">109 </span><span class="Delimiter">}</span> diff --git a/html/linux/tile/data.mu.html b/html/linux/tile/data.mu.html new file mode 100644 index 00000000..ed78f92a --- /dev/null +++ b/html/linux/tile/data.mu.html @@ -0,0 +1,704 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/tile/data.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.CommentedCode { color: #8a8a8a; } +.Delimiter { color: #c000c0; } +.Special { color: #ff6060; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/data.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/data.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># widgets in the environment share the following pattern of updates:</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># process-* functions read keys and update which object the cursor is at</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># render-* functions print to screen and update which row/col each object's cursor is at</span> +<span id="L4" class="LineNr"> 4 </span> +<span id="L5" class="LineNr"> 5 </span><span class="PreProc">type</span> <a href='data.mu.html#L5'>sandbox</a> <span class="Delimiter">{</span> +<span id="L6" class="LineNr"> 6 </span> setup: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L7" class="LineNr"> 7 </span> data: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L8" class="LineNr"> 8 </span> <span class="muComment"># bookkeeping for process-*</span> +<span id="L9" class="LineNr"> 9 </span> cursor-call-path: (handle <a href='data.mu.html#L77'>call-path-element</a>) +<span id="L10" class="LineNr"> 10 </span> expanded-words: (handle <a href='data.mu.html#L71'>call-path</a>) +<span id="L11" class="LineNr"> 11 </span> partial-name-for-cursor-word: (handle <a href='data.mu.html#L42'>word</a>) <span class="muComment"># only when renaming word</span> +<span id="L12" class="LineNr"> 12 </span> partial-name-for-function: (handle <a href='data.mu.html#L42'>word</a>) <span class="muComment"># only when defining function</span> +<span id="L13" class="LineNr"> 13 </span> <span class="muComment"># bookkeeping for render-*</span> +<span id="L14" class="LineNr"> 14 </span> cursor-row: int +<span id="L15" class="LineNr"> 15 </span> cursor-col: int +<span id="L16" class="LineNr"> 16 </span> <span class="muComment">#</span> +<span id="L17" class="LineNr"> 17 </span> next: (handle <a href='data.mu.html#L5'>sandbox</a>) +<span id="L18" class="LineNr"> 18 </span> prev: (handle <a href='data.mu.html#L5'>sandbox</a>) +<span id="L19" class="LineNr"> 19 </span><span class="Delimiter">}</span> +<span id="L20" class="LineNr"> 20 </span> +<span id="L21" class="LineNr"> 21 </span><span class="PreProc">type</span> <a href='data.mu.html#L21'>function</a> <span class="Delimiter">{</span> +<span id="L22" class="LineNr"> 22 </span> name: (handle array byte) +<span id="L23" class="LineNr"> 23 </span> args: (handle <a href='data.mu.html#L42'>word</a>) <span class="muComment"># in reverse order</span> +<span id="L24" class="LineNr"> 24 </span> body: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L25" class="LineNr"> 25 </span> <span class="muComment"># bookkeeping for process-*</span> +<span id="L26" class="LineNr"> 26 </span> cursor-word: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L27" class="LineNr"> 27 </span> <span class="muComment"># bookkeeping for render-*</span> +<span id="L28" class="LineNr"> 28 </span> cursor-row: int +<span id="L29" class="LineNr"> 29 </span> cursor-col: int +<span id="L30" class="LineNr"> 30 </span> <span class="muComment"># todo: some sort of indication of spatial location</span> +<span id="L31" class="LineNr"> 31 </span> next: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L32" class="LineNr"> 32 </span><span class="Delimiter">}</span> +<span id="L33" class="LineNr"> 33 </span> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">type</span> <a href='data.mu.html#L34'>line</a> <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> name: (handle array byte) +<span id="L36" class="LineNr"> 36 </span> data: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L37" class="LineNr"> 37 </span> <a href='data.mu.html#L82'>result</a>: (handle <a href='data.mu.html#L82'>result</a>) <span class="muComment"># might be cached</span> +<span id="L38" class="LineNr"> 38 </span> next: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L39" class="LineNr"> 39 </span> prev: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L40" class="LineNr"> 40 </span><span class="Delimiter">}</span> +<span id="L41" class="LineNr"> 41 </span> +<span id="L42" class="LineNr"> 42 </span><span class="PreProc">type</span> <a href='data.mu.html#L42'>word</a> <span class="Delimiter">{</span> +<span id="L43" class="LineNr"> 43 </span> scalar-data: (handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) +<span id="L44" class="LineNr"> 44 </span> next: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L45" class="LineNr"> 45 </span> prev: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L46" class="LineNr"> 46 </span><span class="Delimiter">}</span> +<span id="L47" class="LineNr"> 47 </span> +<span id="L48" class="LineNr"> 48 </span><span class="muComment"># todo: turn this into a sum type</span> +<span id="L49" class="LineNr"> 49 </span><span class="PreProc">type</span> <a href='data.mu.html#L49'>value</a> <span class="Delimiter">{</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">type</span>: int +<span id="L51" class="LineNr"> 51 </span> number-data: float <span class="muComment"># if type = 0</span> +<span id="L52" class="LineNr"> 52 </span> text-data: (handle array byte) <span class="muComment"># if type = 1</span> +<span id="L53" class="LineNr"> 53 </span> array-data: (handle array <a href='data.mu.html#L49'>value</a>) <span class="muComment"># if type = 2</span> +<span id="L54" class="LineNr"> 54 </span> file-data: (handle buffered-file) <span class="muComment"># if type = 3</span> +<span id="L55" class="LineNr"> 55 </span> filename: (handle array byte) <span class="muComment"># if type = 3</span> +<span id="L56" class="LineNr"> 56 </span> screen-data: (handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="muComment"># if type = 4</span> +<span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> +<span id="L58" class="LineNr"> 58 </span> +<span id="L59" class="LineNr"> 59 </span><span class="PreProc">type</span> <a href='data.mu.html#L59'>table</a> <span class="Delimiter">{</span> +<span id="L60" class="LineNr"> 60 </span> data: (handle array <a href='data.mu.html#L64'>bind</a>) +<span id="L61" class="LineNr"> 61 </span> next: (handle <a href='data.mu.html#L59'>table</a>) +<span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> +<span id="L63" class="LineNr"> 63 </span> +<span id="L64" class="LineNr"> 64 </span><span class="PreProc">type</span> <a href='data.mu.html#L64'>bind</a> <span class="Delimiter">{</span> +<span id="L65" class="LineNr"> 65 </span> key: (handle array byte) +<span id="L66" class="LineNr"> 66 </span> <a href='data.mu.html#L49'>value</a>: (handle <a href='data.mu.html#L49'>value</a>) <span class="muComment"># I'd inline this but we sometimes want to return a specific value from a table</span> +<span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> +<span id="L68" class="LineNr"> 68 </span> +<span id="L69" class="LineNr"> 69 </span><span class="muComment"># A call-path is a data structure that can unambiguously refer to any specific</span> +<span id="L70" class="LineNr"> 70 </span><span class="muComment"># call arbitrarily deep inside the call hierarchy of a program.</span> +<span id="L71" class="LineNr"> 71 </span><span class="PreProc">type</span> <a href='data.mu.html#L71'>call-path</a> <span class="Delimiter">{</span> +<span id="L72" class="LineNr"> 72 </span> data: (handle <a href='data.mu.html#L77'>call-path-element</a>) +<span id="L73" class="LineNr"> 73 </span> next: (handle <a href='data.mu.html#L71'>call-path</a>) +<span id="L74" class="LineNr"> 74 </span><span class="Delimiter">}</span> +<span id="L75" class="LineNr"> 75 </span> +<span id="L76" class="LineNr"> 76 </span><span class="muComment"># A call-path element is a list of elements, each of which corresponds to some call.</span> +<span id="L77" class="LineNr"> 77 </span><span class="PreProc">type</span> <a href='data.mu.html#L77'>call-path-element</a> <span class="Delimiter">{</span> +<span id="L78" class="LineNr"> 78 </span> <a href='data.mu.html#L42'>word</a>: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L79" class="LineNr"> 79 </span> next: (handle <a href='data.mu.html#L77'>call-path-element</a>) +<span id="L80" class="LineNr"> 80 </span><span class="Delimiter">}</span> +<span id="L81" class="LineNr"> 81 </span> +<span id="L82" class="LineNr"> 82 </span><span class="PreProc">type</span> <a href='data.mu.html#L82'>result</a> <span class="Delimiter">{</span> +<span id="L83" class="LineNr"> 83 </span> data: <a href='value-stack.mu.html#L3'>value-stack</a> +<span id="L84" class="LineNr"> 84 </span> <span class="Special"><a href='../114error.subx.html#L9'>error</a></span>: (handle array byte) <span class="muComment"># single error message for now</span> +<span id="L85" class="LineNr"> 85 </span><span class="Delimiter">}</span> +<span id="L86" class="LineNr"> 86 </span> +<span id="L87" class="LineNr"> 87 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L87'>initialize-sandbox</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Delimiter">{</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L90" class="LineNr"> 90 </span> <a href='../120allocate.subx.html#L66'>allocate</a> line-ah +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *line-ah +<span id="L92" class="LineNr"> 92 </span> <a href='data.mu.html#L102'>initialize-line</a> <a href='data.mu.html#L34'>line</a> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L95" class="LineNr"> 95 </span> <a href='../120allocate.subx.html#L66'>allocate</a> cursor-call-path-ah +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L98" class="LineNr"> 98 </span> copy-object word-ah, dest +<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="muComment"># initialize line with a single empty word</span> +<span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L102'>initialize-line</a></span> _line: (addr <a href='data.mu.html#L34'>line</a>) <span class="Delimiter">{</span> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _line +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L105" class="LineNr">105 </span> <a href='../120allocate.subx.html#L66'>allocate</a> word-ah +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah +<span id="L107" class="LineNr">107 </span> <a href='word.mu.html#L1'>initialize-word</a> <a href='data.mu.html#L42'>word</a> +<span id="L108" class="LineNr">108 </span><span class="Delimiter">}</span> +<span id="L109" class="LineNr">109 </span> +<span id="L110" class="LineNr">110 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L110'>create-primitive-functions</a></span> _self: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Delimiter">{</span> +<span id="L111" class="LineNr">111 </span> <span class="muComment"># x 2* = x 2 *</span> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _self +<span id="L113" class="LineNr">113 </span> <a href='../120allocate.subx.html#L66'>allocate</a> self +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *self +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L117" class="LineNr">117 </span> <a href='data.mu.html#L287'>populate-text-with</a> name-ah, <span class="Constant">"2*"</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L119" class="LineNr">119 </span> <a href='../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *args-ah +<span id="L121" class="LineNr">121 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, body +<span id="L123" class="LineNr">123 </span> <a href='../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L125" class="LineNr">125 </span> <a href='data.mu.html#L102'>initialize-line</a> body +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> curr-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L127" class="LineNr">127 </span> <a href='word.mu.html#L547'>parse-words</a> <span class="Constant">"x 2 *"</span>, curr-word-ah +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-word +<span id="L129" class="LineNr">129 </span> copy-object curr-word-ah, cursor-word-ah +<span id="L130" class="LineNr">130 </span> <span class="muComment"># x 1+ = x 1 +</span> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, next +<span id="L132" class="LineNr">132 </span> <a href='../120allocate.subx.html#L66'>allocate</a> next +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L136" class="LineNr">136 </span> <a href='data.mu.html#L287'>populate-text-with</a> name-ah, <span class="Constant">"1+"</span> +<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L138" class="LineNr">138 </span> <a href='../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *args-ah +<span id="L140" class="LineNr">140 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, body +<span id="L142" class="LineNr">142 </span> <a href='../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L144" class="LineNr">144 </span> <a href='data.mu.html#L102'>initialize-line</a> body +<span id="L145" class="LineNr">145 </span> curr-word-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L146" class="LineNr">146 </span> <a href='word.mu.html#L547'>parse-words</a> <span class="Constant">"x 1 +"</span>, curr-word-ah +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-word +<span id="L148" class="LineNr">148 </span> copy-object curr-word-ah, cursor-word-ah +<span id="L149" class="LineNr">149 </span> <span class="muComment"># x 2+ = x 1+ 1+</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, next +<span id="L151" class="LineNr">151 </span> <a href='../120allocate.subx.html#L66'>allocate</a> next +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L155" class="LineNr">155 </span> <a href='data.mu.html#L287'>populate-text-with</a> name-ah, <span class="Constant">"2+"</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L157" class="LineNr">157 </span> <a href='../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *args-ah +<span id="L159" class="LineNr">159 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, body +<span id="L161" class="LineNr">161 </span> <a href='../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L163" class="LineNr">163 </span> <a href='data.mu.html#L102'>initialize-line</a> body +<span id="L164" class="LineNr">164 </span> curr-word-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L165" class="LineNr">165 </span> <a href='word.mu.html#L547'>parse-words</a> <span class="Constant">"x 1+ 1+"</span>, curr-word-ah +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-word +<span id="L167" class="LineNr">167 </span> copy-object curr-word-ah, cursor-word-ah +<span id="L168" class="LineNr">168 </span> <span class="muComment"># x square = x x *</span> +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, next +<span id="L170" class="LineNr">170 </span> <a href='../120allocate.subx.html#L66'>allocate</a> next +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L174" class="LineNr">174 </span> <a href='data.mu.html#L287'>populate-text-with</a> name-ah, <span class="Constant">"square"</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L176" class="LineNr">176 </span> <a href='../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *args-ah +<span id="L178" class="LineNr">178 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, body +<span id="L180" class="LineNr">180 </span> <a href='../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L182" class="LineNr">182 </span> <a href='data.mu.html#L102'>initialize-line</a> body +<span id="L183" class="LineNr">183 </span> curr-word-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L184" class="LineNr">184 </span> <a href='word.mu.html#L547'>parse-words</a> <span class="Constant">"x x *"</span>, curr-word-ah +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-word +<span id="L186" class="LineNr">186 </span> copy-object curr-word-ah, cursor-word-ah +<span id="L187" class="LineNr">187 </span> <span class="muComment"># x 1- = x 1 -</span> +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, next +<span id="L189" class="LineNr">189 </span> <a href='../120allocate.subx.html#L66'>allocate</a> next +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L193" class="LineNr">193 </span> <a href='data.mu.html#L287'>populate-text-with</a> name-ah, <span class="Constant">"1-"</span> +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L195" class="LineNr">195 </span> <a href='../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *args-ah +<span id="L197" class="LineNr">197 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"x"</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, body +<span id="L199" class="LineNr">199 </span> <a href='../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L201" class="LineNr">201 </span> <a href='data.mu.html#L102'>initialize-line</a> body +<span id="L202" class="LineNr">202 </span> curr-word-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L203" class="LineNr">203 </span> <a href='word.mu.html#L547'>parse-words</a> <span class="Constant">"x 1 -"</span>, curr-word-ah +<span id="L204" class="LineNr">204 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-word +<span id="L205" class="LineNr">205 </span> copy-object curr-word-ah, cursor-word-ah +<span id="L206" class="LineNr">206 </span> <span class="muComment"># x y sub = x y -</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, next +<span id="L208" class="LineNr">208 </span> <a href='../120allocate.subx.html#L66'>allocate</a> next +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L212" class="LineNr">212 </span> <a href='data.mu.html#L287'>populate-text-with</a> name-ah, <span class="Constant">"sub"</span> +<span id="L213" class="LineNr">213 </span> <span class="muComment"># critical lesson: args are stored in reverse order</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L215" class="LineNr">215 </span> <a href='../120allocate.subx.html#L66'>allocate</a> args-ah +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *args-ah +<span id="L217" class="LineNr">217 </span> <a href='word.mu.html#L11'>initialize-word-with</a> args, <span class="Constant">"y"</span> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> next-arg-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> args, next +<span id="L219" class="LineNr">219 </span> <a href='../120allocate.subx.html#L66'>allocate</a> next-arg-ah +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> next-arg/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-arg-ah +<span id="L221" class="LineNr">221 </span> <a href='word.mu.html#L11'>initialize-word-with</a> next-arg, <span class="Constant">"x"</span> +<span id="L222" class="LineNr">222 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, body +<span id="L223" class="LineNr">223 </span> <a href='../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L225" class="LineNr">225 </span> <a href='data.mu.html#L102'>initialize-line</a> body +<span id="L226" class="LineNr">226 </span> curr-word-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L227" class="LineNr">227 </span> <a href='word.mu.html#L547'>parse-words</a> <span class="Constant">"x y -"</span>, curr-word-ah +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-word +<span id="L229" class="LineNr">229 </span> copy-object curr-word-ah, cursor-word-ah +<span id="L230" class="LineNr">230 </span><span class="Delimiter">}</span> +<span id="L231" class="LineNr">231 </span> +<span id="L232" class="LineNr">232 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L232'>function-body</a></span> functions: (addr handle <a href='data.mu.html#L21'>function</a>), _word: (addr handle <a href='data.mu.html#L42'>word</a>), out: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Delimiter">{</span> +<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> function-name-storage: (handle array byte) +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> function-name-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address function-name-storage +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _word +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> gap-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L42'>word</a>, scalar-data +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> gap/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *gap-ah +<span id="L239" class="LineNr">239 </span> <a href='gap-buffer.mu.html#L30'>gap-buffer-to-string</a> gap, function-name-ah +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> _function-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *function-name-ah +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> function-name/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> copy _function-name +<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy functions +<span id="L243" class="LineNr">243 </span> $function-body:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _curr +<span id="L246" class="LineNr">246 </span> compare curr, <span class="Constant">0</span> +<span id="L247" class="LineNr">247 </span> <span class="PreProc">break-if-=</span> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, name +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-name-ah +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> curr-name, function-name +<span id="L251" class="LineNr">251 </span> compare found?, <span class="Constant">0</span>/false +<span id="L252" class="LineNr">252 </span> <span class="Delimiter">{</span> +<span id="L253" class="LineNr">253 </span> <span class="PreProc">break-if-=</span> +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, body +<span id="L255" class="LineNr">255 </span> copy-object src, out +<span id="L256" class="LineNr">256 </span> <span class="PreProc">break</span> $function-body:<span class="PreProc">loop</span> +<span id="L257" class="LineNr">257 </span> <span class="Delimiter">}</span> +<span id="L258" class="LineNr">258 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L259" class="LineNr">259 </span> <span class="PreProc">loop</span> +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> +<span id="L261" class="LineNr">261 </span><span class="Delimiter">}</span> +<span id="L262" class="LineNr">262 </span> +<span id="L263" class="LineNr">263 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L263'>body-length</a></span> functions: (addr handle <a href='data.mu.html#L21'>function</a>), function-name: (addr handle <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> body-storage: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> address body-storage +<span id="L266" class="LineNr">266 </span> <a href='data.mu.html#L232'>function-body</a> functions, function-name, body-ah +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='data.mu.html#L272'>num-words-in-line</a> body +<span id="L269" class="LineNr">269 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L270" class="LineNr">270 </span><span class="Delimiter">}</span> +<span id="L271" class="LineNr">271 </span> +<span id="L272" class="LineNr">272 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L272'>num-words-in-line</a></span> _in: (addr <a href='data.mu.html#L34'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _in +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> in, data +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L276" class="LineNr">276 </span> <span class="Delimiter">{</span> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L278" class="LineNr">278 </span> compare curr, <span class="Constant">0</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">break-if-=</span> +<span id="L280" class="LineNr">280 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L281" class="LineNr">281 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment +<span id="L282" class="LineNr">282 </span> <span class="PreProc">loop</span> +<span id="L283" class="LineNr">283 </span> <span class="Delimiter">}</span> +<span id="L284" class="LineNr">284 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L285" class="LineNr">285 </span><span class="Delimiter">}</span> +<span id="L286" class="LineNr">286 </span> +<span id="L287" class="LineNr">287 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L287'>populate-text-with</a></span> _out: (addr handle array byte), _in: (addr array byte) <span class="Delimiter">{</span> +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> copy _in +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length in +<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> out/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> copy _out +<span id="L291" class="LineNr">291 </span> populate out, n +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> _out-addr/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *out +<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">edx</span>: (addr array byte) <span class="Special"><-</span> copy _out-addr +<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L295" class="LineNr">295 </span> <span class="Delimiter">{</span> +<span id="L296" class="LineNr">296 </span> compare i, n +<span id="L297" class="LineNr">297 </span> <span class="PreProc">break-if->=</span> +<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr byte) <span class="Special"><-</span> index in, i +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: byte <span class="Special"><-</span> copy-byte *src +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr byte) <span class="Special"><-</span> index out-addr, i +<span id="L301" class="LineNr">301 </span> copy-byte-to *dest, val +<span id="L302" class="LineNr">302 </span> i <span class="Special"><-</span> increment +<span id="L303" class="LineNr">303 </span> <span class="PreProc">loop</span> +<span id="L304" class="LineNr">304 </span> <span class="Delimiter">}</span> +<span id="L305" class="LineNr">305 </span><span class="Delimiter">}</span> +<span id="L306" class="LineNr">306 </span> +<span id="L307" class="LineNr">307 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L307'>initialize-path-from-sandbox</a></span> _in: (addr <a href='data.mu.html#L5'>sandbox</a>), _out: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _in +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *line-ah +<span id="L311" class="LineNr">311 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L312" class="LineNr">312 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _out +<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, <a href='data.mu.html#L42'>word</a> +<span id="L315" class="LineNr">315 </span> copy-object src, dest +<span id="L316" class="LineNr">316 </span><span class="Delimiter">}</span> +<span id="L317" class="LineNr">317 </span> +<span id="L318" class="LineNr">318 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L318'>initialize-path-from-line</a></span> _line: (addr <a href='data.mu.html#L34'>line</a>), _out: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _line +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _out +<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, <a href='data.mu.html#L42'>word</a> +<span id="L324" class="LineNr">324 </span> copy-object src, dest +<span id="L325" class="LineNr">325 </span><span class="Delimiter">}</span> +<span id="L326" class="LineNr">326 </span> +<span id="L327" class="LineNr">327 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L327'>find-in-call-paths</a></span> call-paths: (addr handle <a href='data.mu.html#L71'>call-path</a>), needle: (addr handle <a href='data.mu.html#L77'>call-path-element</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> copy call-paths +<span id="L329" class="LineNr">329 </span> $find-in-call-path:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L331" class="LineNr">331 </span> compare curr, <span class="Constant">0</span> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">break-if-=</span> +<span id="L333" class="LineNr">333 </span> <span class="Delimiter">{</span> +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> curr-data/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, data +<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L348'>call-path-element-match?</a> curr-data, needle +<span id="L336" class="LineNr">336 </span> compare match?, <span class="Constant">0</span>/false +<span id="L337" class="LineNr">337 </span> <span class="Delimiter">{</span> +<span id="L338" class="LineNr">338 </span> <span class="PreProc">break-if-=</span> +<span id="L339" class="LineNr">339 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L340" class="LineNr">340 </span> <span class="Delimiter">}</span> +<span id="L341" class="LineNr">341 </span> <span class="Delimiter">}</span> +<span id="L342" class="LineNr">342 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L343" class="LineNr">343 </span> <span class="PreProc">loop</span> +<span id="L344" class="LineNr">344 </span> <span class="Delimiter">}</span> +<span id="L345" class="LineNr">345 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L346" class="LineNr">346 </span><span class="Delimiter">}</span> +<span id="L347" class="LineNr">347 </span> +<span id="L348" class="LineNr">348 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L348'>call-path-element-match?</a></span> _x: (addr handle <a href='data.mu.html#L77'>call-path-element</a>), _y: (addr handle <a href='data.mu.html#L77'>call-path-element</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> x-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _x +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> x-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *x-ah +<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy x-a +<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> y-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _y +<span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> y-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *y-ah +<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> y/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy y-a +<span id="L355" class="LineNr">355 </span> compare x, y +<span id="L356" class="LineNr">356 </span> <span class="Delimiter">{</span> +<span id="L357" class="LineNr">357 </span> <span class="PreProc">break-if-!=</span> +<span id="L358" class="LineNr">358 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L359" class="LineNr">359 </span> <span class="Delimiter">}</span> +<span id="L360" class="LineNr">360 </span> compare x, <span class="Constant">0</span> +<span id="L361" class="LineNr">361 </span> <span class="Delimiter">{</span> +<span id="L362" class="LineNr">362 </span> <span class="PreProc">break-if-!=</span> +<span id="L363" class="LineNr">363 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L364" class="LineNr">364 </span> <span class="Delimiter">}</span> +<span id="L365" class="LineNr">365 </span> compare y, <span class="Constant">0</span> +<span id="L366" class="LineNr">366 </span> <span class="Delimiter">{</span> +<span id="L367" class="LineNr">367 </span> <span class="PreProc">break-if-!=</span> +<span id="L368" class="LineNr">368 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L369" class="LineNr">369 </span> <span class="Delimiter">}</span> +<span id="L370" class="LineNr">370 </span> <span class="muComment"># compare word addresses, not contents</span> +<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> x-data-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> x, <a href='data.mu.html#L42'>word</a> +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> x-data-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *x-data-ah +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> x-data/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy x-data-a +<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> y-data-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> y, <a href='data.mu.html#L42'>word</a> +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> y-data-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *y-data-ah +<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> y-data/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy y-data-a +<span id="L377" class="LineNr">377 </span><span class="CommentedCode">#? print-string 0, "match? "</span> +<span id="L378" class="LineNr">378 </span><span class="CommentedCode">#? print-int32-hex 0, x-data</span> +<span id="L379" class="LineNr">379 </span><span class="CommentedCode">#? print-string 0, " vs "</span> +<span id="L380" class="LineNr">380 </span><span class="CommentedCode">#? print-int32-hex 0, y-data</span> +<span id="L381" class="LineNr">381 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L382" class="LineNr">382 </span> compare x-data, y-data +<span id="L383" class="LineNr">383 </span> <span class="Delimiter">{</span> +<span id="L384" class="LineNr">384 </span> <span class="PreProc">break-if-=</span> +<span id="L385" class="LineNr">385 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L386" class="LineNr">386 </span> <span class="Delimiter">}</span> +<span id="L387" class="LineNr">387 </span> <span class="PreProc">var</span> x-next/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> x, next +<span id="L388" class="LineNr">388 </span> <span class="PreProc">var</span> y-next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> y, next +<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L348'>call-path-element-match?</a> x-next, y-next +<span id="L390" class="LineNr">390 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L391" class="LineNr">391 </span><span class="Delimiter">}</span> +<span id="L392" class="LineNr">392 </span> +<span id="L393" class="LineNr">393 </span><span class="muComment"># order is irrelevant</span> +<span id="L394" class="LineNr">394 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L394'>insert-in-call-path</a></span> list: (addr handle <a href='data.mu.html#L71'>call-path</a>), new: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> new-path-storage: (handle <a href='data.mu.html#L71'>call-path</a>) +<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> new-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> address new-path-storage +<span id="L397" class="LineNr">397 </span> <a href='../120allocate.subx.html#L66'>allocate</a> new-path-ah +<span id="L398" class="LineNr">398 </span> <span class="PreProc">var</span> new-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-path-ah +<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> next/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-path, next +<span id="L400" class="LineNr">400 </span> copy-object list, next +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-path, data +<span id="L402" class="LineNr">402 </span> <a href='data.mu.html#L407'>deep-copy-call-path-element</a> new, dest +<span id="L403" class="LineNr">403 </span> copy-object new-path-ah, list +<span id="L404" class="LineNr">404 </span><span class="Delimiter">}</span> +<span id="L405" class="LineNr">405 </span> +<span id="L406" class="LineNr">406 </span><span class="muComment"># assumes dest is initially clear</span> +<span id="L407" class="LineNr">407 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L407'>deep-copy-call-path-element</a></span> _src: (addr handle <a href='data.mu.html#L77'>call-path-element</a>), _dest: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _src +<span id="L409" class="LineNr">409 </span> <span class="muComment"># if src is null, return</span> +<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> _src-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src +<span id="L411" class="LineNr">411 </span> compare _src-addr, <span class="Constant">0</span> +<span id="L412" class="LineNr">412 </span> <span class="PreProc">break-if-=</span> +<span id="L413" class="LineNr">413 </span> <span class="muComment"># allocate</span> +<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _src-addr +<span id="L415" class="LineNr">415 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _dest +<span id="L416" class="LineNr">416 </span> <a href='../120allocate.subx.html#L66'>allocate</a> dest +<span id="L417" class="LineNr">417 </span> <span class="muComment"># copy data</span> +<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest +<span id="L419" class="LineNr">419 </span> <span class="Delimiter">{</span> +<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> dest-data-addr/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, <a href='data.mu.html#L42'>word</a> +<span id="L421" class="LineNr">421 </span> <span class="PreProc">var</span> src-data-addr/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-addr, <a href='data.mu.html#L42'>word</a> +<span id="L422" class="LineNr">422 </span> copy-object src-data-addr, dest-data-addr +<span id="L423" class="LineNr">423 </span> <span class="Delimiter">}</span> +<span id="L424" class="LineNr">424 </span> <span class="muComment"># recurse</span> +<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> src-next/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-addr, next +<span id="L426" class="LineNr">426 </span> <span class="PreProc">var</span> dest-next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, next +<span id="L427" class="LineNr">427 </span> <a href='data.mu.html#L407'>deep-copy-call-path-element</a> src-next, dest-next +<span id="L428" class="LineNr">428 </span><span class="Delimiter">}</span> +<span id="L429" class="LineNr">429 </span> +<span id="L430" class="LineNr">430 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L430'>delete-in-call-path</a></span> list: (addr handle <a href='data.mu.html#L71'>call-path</a>), needle: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L431" class="LineNr">431 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> copy list +<span id="L432" class="LineNr">432 </span> $delete-in-call-path:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> _curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L434" class="LineNr">434 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> copy _curr +<span id="L435" class="LineNr">435 </span> compare curr, <span class="Constant">0</span> +<span id="L436" class="LineNr">436 </span> <span class="PreProc">break-if-=</span> +<span id="L437" class="LineNr">437 </span> <span class="Delimiter">{</span> +<span id="L438" class="LineNr">438 </span> <span class="PreProc">var</span> curr-data/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, data +<span id="L439" class="LineNr">439 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L348'>call-path-element-match?</a> curr-data, needle +<span id="L440" class="LineNr">440 </span> compare match?, <span class="Constant">0</span>/false +<span id="L441" class="LineNr">441 </span> <span class="Delimiter">{</span> +<span id="L442" class="LineNr">442 </span> <span class="PreProc">break-if-=</span> +<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L444" class="LineNr">444 </span> copy-object next-ah, curr-ah +<span id="L445" class="LineNr">445 </span> <span class="PreProc">loop</span> $delete-in-call-path:<span class="PreProc">loop</span> +<span id="L446" class="LineNr">446 </span> <span class="Delimiter">}</span> +<span id="L447" class="LineNr">447 </span> <span class="Delimiter">}</span> +<span id="L448" class="LineNr">448 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L449" class="LineNr">449 </span> <span class="PreProc">loop</span> +<span id="L450" class="LineNr">450 </span> <span class="Delimiter">}</span> +<span id="L451" class="LineNr">451 </span><span class="Delimiter">}</span> +<span id="L452" class="LineNr">452 </span> +<span id="L453" class="LineNr">453 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L453'>increment-final-element</a></span> list: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy list +<span id="L455" class="LineNr">455 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-ah +<span id="L456" class="LineNr">456 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L42'>word</a> +<span id="L457" class="LineNr">457 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, next +<span id="L459" class="LineNr">459 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-ah +<span id="L460" class="LineNr">460 </span> compare target, <span class="Constant">0</span> +<span id="L461" class="LineNr">461 </span> <span class="PreProc">break-if-=</span> +<span id="L462" class="LineNr">462 </span> copy-object new-ah, val-ah +<span id="L463" class="LineNr">463 </span><span class="Delimiter">}</span> +<span id="L464" class="LineNr">464 </span> +<span id="L465" class="LineNr">465 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L465'>decrement-final-element</a></span> list: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L466" class="LineNr">466 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy list +<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-ah +<span id="L468" class="LineNr">468 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L42'>word</a> +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L470" class="LineNr">470 </span><span class="CommentedCode">#? print-string 0, "replacing "</span> +<span id="L471" class="LineNr">471 </span><span class="CommentedCode">#? {</span> +<span id="L472" class="LineNr">472 </span><span class="CommentedCode">#? var foo/eax: int <- copy val</span> +<span id="L473" class="LineNr">473 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L474" class="LineNr">474 </span><span class="CommentedCode">#? }</span> +<span id="L475" class="LineNr">475 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, prev +<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-ah +<span id="L477" class="LineNr">477 </span> compare target, <span class="Constant">0</span> +<span id="L478" class="LineNr">478 </span> <span class="PreProc">break-if-=</span> +<span id="L479" class="LineNr">479 </span> <span class="muComment"># val = val->prev</span> +<span id="L480" class="LineNr">480 </span><span class="CommentedCode">#? print-string 0, " with "</span> +<span id="L481" class="LineNr">481 </span><span class="CommentedCode">#? {</span> +<span id="L482" class="LineNr">482 </span><span class="CommentedCode">#? var foo/eax: int <- copy target</span> +<span id="L483" class="LineNr">483 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L484" class="LineNr">484 </span><span class="CommentedCode">#? }</span> +<span id="L485" class="LineNr">485 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L486" class="LineNr">486 </span> copy-object new-ah, val-ah +<span id="L487" class="LineNr">487 </span><span class="Delimiter">}</span> +<span id="L488" class="LineNr">488 </span> +<span id="L489" class="LineNr">489 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L489'>move-final-element-to-start-of-line</a></span> list: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy list +<span id="L491" class="LineNr">491 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-ah +<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L42'>word</a> +<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, prev +<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-ah +<span id="L496" class="LineNr">496 </span> compare target, <span class="Constant">0</span> +<span id="L497" class="LineNr">497 </span> <span class="PreProc">break-if-=</span> +<span id="L498" class="LineNr">498 </span> copy-object new-ah, val-ah +<span id="L499" class="LineNr">499 </span> <a href='data.mu.html#L489'>move-final-element-to-start-of-line</a> list +<span id="L500" class="LineNr">500 </span><span class="Delimiter">}</span> +<span id="L501" class="LineNr">501 </span> +<span id="L502" class="LineNr">502 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L502'>move-final-element-to-end-of-line</a></span> list: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L503" class="LineNr">503 </span> <span class="PreProc">var</span> final-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy list +<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> final/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-ah +<span id="L505" class="LineNr">505 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> final, <a href='data.mu.html#L42'>word</a> +<span id="L506" class="LineNr">506 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L507" class="LineNr">507 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, next +<span id="L508" class="LineNr">508 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-ah +<span id="L509" class="LineNr">509 </span> compare target, <span class="Constant">0</span> +<span id="L510" class="LineNr">510 </span> <span class="PreProc">break-if-=</span> +<span id="L511" class="LineNr">511 </span> copy-object new-ah, val-ah +<span id="L512" class="LineNr">512 </span> <a href='data.mu.html#L502'>move-final-element-to-end-of-line</a> list +<span id="L513" class="LineNr">513 </span><span class="Delimiter">}</span> +<span id="L514" class="LineNr">514 </span> +<span id="L515" class="LineNr">515 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L515'>push-to-call-path-element</a></span> list: (addr handle <a href='data.mu.html#L77'>call-path-element</a>), new: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> new-element-storage: (handle <a href='data.mu.html#L77'>call-path-element</a>) +<span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> new-element-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> address new-element-storage +<span id="L518" class="LineNr">518 </span> <a href='../120allocate.subx.html#L66'>allocate</a> new-element-ah +<span id="L519" class="LineNr">519 </span> <span class="PreProc">var</span> new-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-element-ah +<span id="L520" class="LineNr">520 </span> <span class="muComment"># save word</span> +<span id="L521" class="LineNr">521 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-element, <a href='data.mu.html#L42'>word</a> +<span id="L522" class="LineNr">522 </span> copy-object new, dest +<span id="L523" class="LineNr">523 </span> <span class="muComment"># save next</span> +<span id="L524" class="LineNr">524 </span> <span class="PreProc">var</span> dest2/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-element, next +<span id="L525" class="LineNr">525 </span> copy-object list, dest2 +<span id="L526" class="LineNr">526 </span> <span class="muComment"># return</span> +<span id="L527" class="LineNr">527 </span> copy-object new-element-ah, list +<span id="L528" class="LineNr">528 </span><span class="Delimiter">}</span> +<span id="L529" class="LineNr">529 </span> +<span id="L530" class="LineNr">530 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L530'>drop-from-call-path-element</a></span> _list: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> list-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _list +<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> list/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *list-ah +<span id="L533" class="LineNr">533 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> list, next +<span id="L534" class="LineNr">534 </span> copy-object next, _list +<span id="L535" class="LineNr">535 </span><span class="Delimiter">}</span> +<span id="L536" class="LineNr">536 </span> +<span id="L537" class="LineNr">537 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L537'>drop-nested-calls</a></span> _list: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> list-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _list +<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> list/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *list-ah +<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> list, next +<span id="L541" class="LineNr">541 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L542" class="LineNr">542 </span> compare next, <span class="Constant">0</span> +<span id="L543" class="LineNr">543 </span> <span class="PreProc">break-if-=</span> +<span id="L544" class="LineNr">544 </span> copy-object next-ah, _list +<span id="L545" class="LineNr">545 </span> <a href='data.mu.html#L537'>drop-nested-calls</a> _list +<span id="L546" class="LineNr">546 </span><span class="Delimiter">}</span> +<span id="L547" class="LineNr">547 </span> +<span id="L548" class="LineNr">548 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L548'>dump-call-path-element</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _x-ah: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Delimiter">{</span> +<span id="L549" class="LineNr">549 </span> <span class="PreProc">var</span> x-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _x-ah +<span id="L550" class="LineNr">550 </span> <span class="PreProc">var</span> _x/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *x-ah +<span id="L551" class="LineNr">551 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _x +<span id="L552" class="LineNr">552 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> x, <a href='data.mu.html#L42'>word</a> +<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah +<span id="L554" class="LineNr">554 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L42'>word</a> +<span id="L555" class="LineNr">555 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> x, next +<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L557" class="LineNr">557 </span> compare next, <span class="Constant">0</span> +<span id="L558" class="LineNr">558 </span> <span class="Delimiter">{</span> +<span id="L559" class="LineNr">559 </span> <span class="PreProc">break-if-=</span> +<span id="L560" class="LineNr">560 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L561" class="LineNr">561 </span> <a href='data.mu.html#L548'>dump-call-path-element</a> <a href='../405screen.mu.html#L9'>screen</a>, next-ah +<span id="L562" class="LineNr">562 </span> <span class="PreProc">return</span> +<span id="L563" class="LineNr">563 </span> <span class="Delimiter">}</span> +<span id="L564" class="LineNr">564 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"\n"</span> +<span id="L565" class="LineNr">565 </span><span class="Delimiter">}</span> +<span id="L566" class="LineNr">566 </span> +<span id="L567" class="LineNr">567 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L567'>dump-call-paths</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _x-ah: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Delimiter">{</span> +<span id="L568" class="LineNr">568 </span> <span class="PreProc">var</span> x-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> copy _x-ah +<span id="L569" class="LineNr">569 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *x-ah +<span id="L570" class="LineNr">570 </span> compare x, <span class="Constant">0</span> +<span id="L571" class="LineNr">571 </span> <span class="PreProc">break-if-=</span> +<span id="L572" class="LineNr">572 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> x, data +<span id="L573" class="LineNr">573 </span> <a href='data.mu.html#L548'>dump-call-path-element</a> <a href='../405screen.mu.html#L9'>screen</a>, src +<span id="L574" class="LineNr">574 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> x, next +<span id="L575" class="LineNr">575 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L576" class="LineNr">576 </span> compare next, <span class="Constant">0</span> +<span id="L577" class="LineNr">577 </span> <span class="Delimiter">{</span> +<span id="L578" class="LineNr">578 </span> <span class="PreProc">break-if-=</span> +<span id="L579" class="LineNr">579 </span> <a href='data.mu.html#L567'>dump-call-paths</a> <a href='../405screen.mu.html#L9'>screen</a>, next-ah +<span id="L580" class="LineNr">580 </span> <span class="Delimiter">}</span> +<span id="L581" class="LineNr">581 </span><span class="Delimiter">}</span> +<span id="L582" class="LineNr">582 </span> +<span id="L583" class="LineNr">583 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L583'>function-width</a></span> _self: (addr <a href='data.mu.html#L21'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _self +<span id="L585" class="LineNr">585 </span> <span class="PreProc">var</span> args/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, args +<span id="L586" class="LineNr">586 </span> <span class="PreProc">var</span> arg-width/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L528'>word-list-length</a> args +<span id="L587" class="LineNr">587 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy arg-width +<span id="L588" class="LineNr">588 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add <span class="Constant">4</span> <span class="muComment"># function-header-indent + body-indent</span> +<span id="L589" class="LineNr">589 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, body +<span id="L590" class="LineNr">590 </span> <span class="PreProc">var</span> <a href='data.mu.html#L601'>body-width</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='data.mu.html#L601'>body-width</a> body-ah +<span id="L591" class="LineNr">591 </span> <a href='data.mu.html#L601'>body-width</a> <span class="Special"><-</span> add <span class="Constant">1</span> <span class="muComment"># right margin</span> +<span id="L592" class="LineNr">592 </span> <a href='data.mu.html#L601'>body-width</a> <span class="Special"><-</span> add <span class="Constant">2</span> <span class="muComment"># body-indent for "≡ "</span> +<span id="L593" class="LineNr">593 </span> compare <a href='data.mu.html#L82'>result</a>, <a href='data.mu.html#L601'>body-width</a> +<span id="L594" class="LineNr">594 </span> <span class="Delimiter">{</span> +<span id="L595" class="LineNr">595 </span> <span class="PreProc">break-if->=</span> +<span id="L596" class="LineNr">596 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> copy <a href='data.mu.html#L601'>body-width</a> +<span id="L597" class="LineNr">597 </span> <span class="Delimiter">}</span> +<span id="L598" class="LineNr">598 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L599" class="LineNr">599 </span><span class="Delimiter">}</span> +<span id="L600" class="LineNr">600 </span> +<span id="L601" class="LineNr">601 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L601'>body-width</a></span> lines: (addr handle <a href='data.mu.html#L34'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L602" class="LineNr">602 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy lines +<span id="L603" class="LineNr">603 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L604" class="LineNr">604 </span> <span class="Delimiter">{</span> +<span id="L605" class="LineNr">605 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L606" class="LineNr">606 </span> compare curr, <span class="Constant">0</span> +<span id="L607" class="LineNr">607 </span> <span class="PreProc">break-if-=</span> +<span id="L608" class="LineNr">608 </span> <span class="Delimiter">{</span> +<span id="L609" class="LineNr">609 </span> <span class="PreProc">var</span> words/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, data +<span id="L610" class="LineNr">610 </span> <span class="PreProc">var</span> curr-len/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L528'>word-list-length</a> words +<span id="L611" class="LineNr">611 </span> compare curr-len, <a href='data.mu.html#L82'>result</a> +<span id="L612" class="LineNr">612 </span> <span class="PreProc">break-if-<=</span> +<span id="L613" class="LineNr">613 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> copy curr-len +<span id="L614" class="LineNr">614 </span> <span class="Delimiter">}</span> +<span id="L615" class="LineNr">615 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L616" class="LineNr">616 </span> <span class="PreProc">loop</span> +<span id="L617" class="LineNr">617 </span> <span class="Delimiter">}</span> +<span id="L618" class="LineNr">618 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L619" class="LineNr">619 </span><span class="Delimiter">}</span> +<span id="L620" class="LineNr">620 </span> +<span id="L621" class="LineNr">621 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L621'>function-height</a></span> _self: (addr <a href='data.mu.html#L21'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L622" class="LineNr">622 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _self +<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, body +<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='data.mu.html#L629'>line-list-length</a> body-ah +<span id="L625" class="LineNr">625 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment <span class="muComment"># for function header</span> +<span id="L626" class="LineNr">626 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L627" class="LineNr">627 </span><span class="Delimiter">}</span> +<span id="L628" class="LineNr">628 </span> +<span id="L629" class="LineNr">629 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='data.mu.html#L629'>line-list-length</a></span> lines: (addr handle <a href='data.mu.html#L34'>line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L630" class="LineNr">630 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy lines +<span id="L631" class="LineNr">631 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L632" class="LineNr">632 </span> <span class="Delimiter">{</span> +<span id="L633" class="LineNr">633 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L634" class="LineNr">634 </span> compare curr, <span class="Constant">0</span> +<span id="L635" class="LineNr">635 </span> <span class="PreProc">break-if-=</span> +<span id="L636" class="LineNr">636 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L637" class="LineNr">637 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment +<span id="L638" class="LineNr">638 </span> <span class="PreProc">loop</span> +<span id="L639" class="LineNr">639 </span> <span class="Delimiter">}</span> +<span id="L640" class="LineNr">640 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L641" class="LineNr">641 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/tile/environment.mu.html b/html/linux/tile/environment.mu.html new file mode 100644 index 00000000..c0513736 --- /dev/null +++ b/html/linux/tile/environment.mu.html @@ -0,0 +1,2245 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/tile/environment.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.muS2Comment { color: #8a8a8a; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/environment.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/environment.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># The architecture that seems to be crystallizing: the environment has two</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># areas: functions and sandbox.</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment">#</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># Rendering the environment requires rendering all areas.</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># Displaying the cursor requires displaying cursor for the area controlling the cursor.</span> +<span id="L6" class="LineNr"> 6 </span><span class="muComment"># Processing events for the environment requires processing events for the area controlling the cursor.</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment">#</span> +<span id="L8" class="LineNr"> 8 </span><span class="muComment"># Areas can have dialogs.</span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment"># There can also be global dialogs (currently just one: goto function).</span> +<span id="L10" class="LineNr"> 10 </span><span class="muComment"># Areas are responsible for rendering their dialogs.</span> +<span id="L11" class="LineNr"> 11 </span><span class="muComment"># In practice this results in dialogs encapsulating the state they need to</span> +<span id="L12" class="LineNr"> 12 </span><span class="muComment"># decide whether to render.</span> +<span id="L13" class="LineNr"> 13 </span><span class="muComment">#</span> +<span id="L14" class="LineNr"> 14 </span><span class="muComment"># This will be useful if we add more areas in the future.</span> +<span id="L15" class="LineNr"> 15 </span> +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">type</span> <a href='environment.mu.html#L16'>environment</a> <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <a href='../405screen.mu.html#L9'>screen</a>: (handle <a href='../405screen.mu.html#L9'>screen</a>) +<span id="L18" class="LineNr"> 18 </span> functions: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L19" class="LineNr"> 19 </span> sandboxes: (handle <a href='data.mu.html#L5'>sandbox</a>) +<span id="L20" class="LineNr"> 20 </span> partial-function-name: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L21" class="LineNr"> 21 </span> <span class="muComment"># at most one of these will be set</span> +<span id="L22" class="LineNr"> 22 </span> cursor-function: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L23" class="LineNr"> 23 </span> cursor-sandbox: (handle <a href='data.mu.html#L5'>sandbox</a>) +<span id="L24" class="LineNr"> 24 </span> <span class="muComment">#</span> +<span id="L25" class="LineNr"> 25 </span> nrows: int +<span id="L26" class="LineNr"> 26 </span> ncols: int +<span id="L27" class="LineNr"> 27 </span> code-separator-col: int +<span id="L28" class="LineNr"> 28 </span><span class="Delimiter">}</span> +<span id="L29" class="LineNr"> 29 </span> +<span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L30'>initialize-environment</a></span> _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># initialize some predefined function definitions</span> +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> functions/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, functions +<span id="L34" class="LineNr"> 34 </span> <a href='data.mu.html#L110'>create-primitive-functions</a> functions +<span id="L35" class="LineNr"> 35 </span> <span class="muComment"># initialize first sandbox</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, sandboxes +<span id="L37" class="LineNr"> 37 </span> <a href='../120allocate.subx.html#L66'>allocate</a> sandbox-ah +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *sandbox-ah +<span id="L39" class="LineNr"> 39 </span> <a href='data.mu.html#L87'>initialize-sandbox</a> <a href='data.mu.html#L5'>sandbox</a> +<span id="L40" class="LineNr"> 40 </span> <span class="muComment"># initialize cursor sandbox</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> cursor-sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, cursor-sandbox +<span id="L42" class="LineNr"> 42 </span> copy-object sandbox-ah, cursor-sandbox-ah +<span id="L43" class="LineNr"> 43 </span> <span class="muComment"># initialize screen</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L49" class="LineNr"> 49 </span> nrows, ncols <span class="Special"><-</span> <a href='../405screen.mu.html#L60'>screen-size</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, nrows +<span id="L51" class="LineNr"> 51 </span> copy-to *dest, nrows +<span id="L52" class="LineNr"> 52 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, ncols +<span id="L53" class="LineNr"> 53 </span> copy-to *dest, ncols +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> repl-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ncols +<span id="L55" class="LineNr"> 55 </span> repl-col <span class="Special"><-</span> shift-right <span class="Constant">1</span> +<span id="L56" class="LineNr"> 56 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L57" class="LineNr"> 57 </span> copy-to *dest, repl-col +<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L60'>initialize-environment-with-fake-screen</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), nrows: int, ncols: int <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L63" class="LineNr"> 63 </span> <a href='../120allocate.subx.html#L66'>allocate</a> screen-ah +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L65" class="LineNr"> 65 </span> <a href='../405screen.mu.html#L30'>initialize-screen</a> screen-addr, nrows, ncols +<span id="L66" class="LineNr"> 66 </span> <a href='environment.mu.html#L30'>initialize-environment</a> self +<span id="L67" class="LineNr"> 67 </span><span class="Delimiter">}</span> +<span id="L68" class="LineNr"> 68 </span> +<span id="L69" class="LineNr"> 69 </span><span class="muComment">#############</span> +<span id="L70" class="LineNr"> 70 </span><span class="muComment"># Iterate</span> +<span id="L71" class="LineNr"> 71 </span><span class="muComment">#############</span> +<span id="L72" class="LineNr"> 72 </span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L73'>process</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> fn-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> fn-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah +<span id="L77" class="LineNr"> 77 </span> compare fn-name, <span class="Constant">0</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">{</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">break-if-=</span> +<span id="L80" class="LineNr"> 80 </span><span class="CommentedCode">#? print-string 0, "processing goto fn\n"</span> +<span id="L81" class="LineNr"> 81 </span> <a href='environment.mu.html#L105'>process-goto-dialog</a> self, key +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">return</span> +<span id="L83" class="LineNr"> 83 </span> <span class="Delimiter">}</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> function-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, cursor-function +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>function</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *function-ah +<span id="L86" class="LineNr"> 86 </span> compare <a href='data.mu.html#L21'>function</a>, <span class="Constant">0</span> +<span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">{</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">break-if-=</span> +<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? print-string 0, "processing function\n"</span> +<span id="L90" class="LineNr"> 90 </span> <a href='environment.mu.html#L156'>process-function</a> self, <a href='data.mu.html#L21'>function</a>, key +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">return</span> +<span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, cursor-sandbox +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *sandbox-ah +<span id="L95" class="LineNr"> 95 </span> compare <a href='data.mu.html#L5'>sandbox</a>, <span class="Constant">0</span> +<span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">{</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break-if-=</span> +<span id="L98" class="LineNr"> 98 </span><span class="CommentedCode">#? print-string 0, "processing sandbox\n"</span> +<span id="L99" class="LineNr"> 99 </span> <a href='environment.mu.html#L390'>process-sandbox</a> self, <a href='data.mu.html#L5'>sandbox</a>, key +<span id="L100" class="LineNr"> 100 </span> <span class="PreProc">return</span> +<span id="L101" class="LineNr"> 101 </span> <span class="Delimiter">}</span> +<span id="L102" class="LineNr"> 102 </span><span class="Delimiter">}</span> +<span id="L103" class="LineNr"> 103 </span> +<span id="L104" class="LineNr"> 104 </span><span class="muComment"># collect new name in partial-function-name, and move the cursor to function with that name</span> +<span id="L105" class="LineNr"> 105 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L105'>process-goto-dialog</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L106" class="LineNr"> 106 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L107" class="LineNr"> 107 </span> <span class="PreProc">var</span> fn-name-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name +<span id="L108" class="LineNr"> 108 </span> <span class="muComment"># if 'esc' pressed, cancel goto</span> +<span id="L109" class="LineNr"> 109 </span> compare key, <span class="Constant">0x1b</span>/esc +<span id="L110" class="LineNr"> 110 </span> $process-goto-dialog:cancel: <span class="Delimiter">{</span> +<span id="L111" class="LineNr"> 111 </span> <span class="PreProc">break-if-!=</span> +<span id="L112" class="LineNr"> 112 </span> clear-object fn-name-ah +<span id="L113" class="LineNr"> 113 </span> <span class="PreProc">return</span> +<span id="L114" class="LineNr"> 114 </span> <span class="Delimiter">}</span> +<span id="L115" class="LineNr"> 115 </span> <span class="muComment"># if 'enter' pressed, location function and set cursor to it</span> +<span id="L116" class="LineNr"> 116 </span> compare key, <span class="Constant">0xa</span>/enter +<span id="L117" class="LineNr"> 117 </span> $process-goto-dialog:commit: <span class="Delimiter">{</span> +<span id="L118" class="LineNr"> 118 </span> <span class="PreProc">break-if-!=</span> +<span id="L119" class="LineNr"> 119 </span><span class="CommentedCode">#? print-string 0, "jump\n"</span> +<span id="L120" class="LineNr"> 120 </span> <span class="PreProc">var</span> fn-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah +<span id="L121" class="LineNr"> 121 </span> <span class="PreProc">var</span> functions/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, functions +<span id="L122" class="LineNr"> 122 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, cursor-function +<span id="L123" class="LineNr"> 123 </span> <a href='environment.mu.html#L1846'>callee</a> functions, fn-name, dest +<span id="L124" class="LineNr"> 124 </span> <span class="muComment"># we won't clear cursor-sandbox until we start supporting multiple sandboxes</span> +<span id="L125" class="LineNr"> 125 </span> clear-object fn-name-ah +<span id="L126" class="LineNr"> 126 </span> <span class="muComment"># there shouldn't be any need to clear state for other dialogs in the sandbox</span> +<span id="L127" class="LineNr"> 127 </span> <span class="PreProc">return</span> +<span id="L128" class="LineNr"> 128 </span> <span class="Delimiter">}</span> +<span id="L129" class="LineNr"> 129 </span> <span class="muComment">#</span> +<span id="L130" class="LineNr"> 130 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> +<span id="L131" class="LineNr"> 131 </span> $process-goto-dialog:backspace: <span class="Delimiter">{</span> +<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">break-if-!=</span> +<span id="L133" class="LineNr"> 133 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L134" class="LineNr"> 134 </span> <span class="PreProc">var</span> fn-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah +<span id="L135" class="LineNr"> 135 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> fn-name +<span id="L136" class="LineNr"> 136 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L137" class="LineNr"> 137 </span> <span class="Delimiter">{</span> +<span id="L138" class="LineNr"> 138 </span> <span class="PreProc">break-if-!=</span> +<span id="L139" class="LineNr"> 139 </span> <span class="PreProc">var</span> fn-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah +<span id="L140" class="LineNr"> 140 </span> <a href='word.mu.html#L207'>delete-before-cursor</a> fn-name +<span id="L141" class="LineNr"> 141 </span> <span class="Delimiter">}</span> +<span id="L142" class="LineNr"> 142 </span> <span class="PreProc">return</span> +<span id="L143" class="LineNr"> 143 </span> <span class="Delimiter">}</span> +<span id="L144" class="LineNr"> 144 </span> <span class="muComment"># otherwise insert key within current word</span> +<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key +<span id="L146" class="LineNr"> 146 </span> $process-goto-dialog:real-grapheme: <span class="Delimiter">{</span> +<span id="L147" class="LineNr"> 147 </span> compare print?, <span class="Constant">0</span>/false +<span id="L148" class="LineNr"> 148 </span> <span class="PreProc">break-if-=</span> +<span id="L149" class="LineNr"> 149 </span> <span class="PreProc">var</span> fn-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah +<span id="L150" class="LineNr"> 150 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> fn-name, key +<span id="L151" class="LineNr"> 151 </span> <span class="PreProc">return</span> +<span id="L152" class="LineNr"> 152 </span> <span class="Delimiter">}</span> +<span id="L153" class="LineNr"> 153 </span> <span class="muComment"># silently ignore other hotkeys</span> +<span id="L154" class="LineNr"> 154 </span><span class="Delimiter">}</span> +<span id="L155" class="LineNr"> 155 </span> +<span id="L156" class="LineNr"> 156 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L156'>process-function</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L157" class="LineNr"> 157 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L158" class="LineNr"> 158 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>function</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _function +<span id="L159" class="LineNr"> 159 </span> <a href='environment.mu.html#L162'>process-function-edit</a> self, <a href='data.mu.html#L21'>function</a>, key +<span id="L160" class="LineNr"> 160 </span><span class="Delimiter">}</span> +<span id="L161" class="LineNr"> 161 </span> +<span id="L162" class="LineNr"> 162 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L162'>process-function-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L163" class="LineNr"> 163 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L164" class="LineNr"> 164 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>function</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _function +<span id="L165" class="LineNr"> 165 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ebx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L21'>function</a>, cursor-word +<span id="L166" class="LineNr"> 166 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L167" class="LineNr"> 167 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _cursor-word +<span id="L168" class="LineNr"> 168 </span> compare key, <span class="Constant">0x445b1b</span>/left-arrow +<span id="L169" class="LineNr"> 169 </span> $process-function-edit:key-left-arrow: <span class="Delimiter">{</span> +<span id="L170" class="LineNr"> 170 </span> <span class="PreProc">break-if-!=</span> +<span id="L171" class="LineNr"> 171 </span><span class="CommentedCode">#? print-string 0, "left-arrow\n"</span> +<span id="L172" class="LineNr"> 172 </span> <span class="muComment"># if not at start, move left within current word</span> +<span id="L173" class="LineNr"> 173 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word +<span id="L174" class="LineNr"> 174 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L175" class="LineNr"> 175 </span> <span class="Delimiter">{</span> +<span id="L176" class="LineNr"> 176 </span> <span class="PreProc">break-if-!=</span> +<span id="L177" class="LineNr"> 177 </span><span class="CommentedCode">#? print-string 0, "cursor left within word\n"</span> +<span id="L178" class="LineNr"> 178 </span> <a href='word.mu.html#L171'>cursor-left</a> cursor-word +<span id="L179" class="LineNr"> 179 </span> <span class="PreProc">return</span> +<span id="L180" class="LineNr"> 180 </span> <span class="Delimiter">}</span> +<span id="L181" class="LineNr"> 181 </span> <span class="muComment"># otherwise move to end of previous word</span> +<span id="L182" class="LineNr"> 182 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L183" class="LineNr"> 183 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L184" class="LineNr"> 184 </span> <span class="Delimiter">{</span> +<span id="L185" class="LineNr"> 185 </span> compare prev-word, <span class="Constant">0</span> +<span id="L186" class="LineNr"> 186 </span> <span class="PreProc">break-if-=</span> +<span id="L187" class="LineNr"> 187 </span><span class="CommentedCode">#? print-string 0, "move to previous word\n"</span> +<span id="L188" class="LineNr"> 188 </span> <a href='word.mu.html#L192'>cursor-to-end</a> prev-word +<span id="L189" class="LineNr"> 189 </span> copy-object prev-word-ah, cursor-word-ah +<span id="L190" class="LineNr"> 190 </span> <span class="Delimiter">}</span> +<span id="L191" class="LineNr"> 191 </span> <span class="PreProc">return</span> +<span id="L192" class="LineNr"> 192 </span> <span class="Delimiter">}</span> +<span id="L193" class="LineNr"> 193 </span> compare key, <span class="Constant">0x435b1b</span>/right-arrow +<span id="L194" class="LineNr"> 194 </span> $process-function-edit:key-right-arrow: <span class="Delimiter">{</span> +<span id="L195" class="LineNr"> 195 </span> <span class="PreProc">break-if-!=</span> +<span id="L196" class="LineNr"> 196 </span> <span class="muComment"># if not at end, move right within current word</span> +<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word +<span id="L198" class="LineNr"> 198 </span> compare at-end?, <span class="Constant">0</span>/false +<span id="L199" class="LineNr"> 199 </span> <span class="Delimiter">{</span> +<span id="L200" class="LineNr"> 200 </span> <span class="PreProc">break-if-!=</span> +<span id="L201" class="LineNr"> 201 </span> <a href='word.mu.html#L178'>cursor-right</a> cursor-word +<span id="L202" class="LineNr"> 202 </span> <span class="PreProc">return</span> +<span id="L203" class="LineNr"> 203 </span> <span class="Delimiter">}</span> +<span id="L204" class="LineNr"> 204 </span> <span class="muComment"># otherwise, move to the next word</span> +<span id="L205" class="LineNr"> 205 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L206" class="LineNr"> 206 </span> <span class="PreProc">var</span> <a href='../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L207" class="LineNr"> 207 </span> <span class="Delimiter">{</span> +<span id="L208" class="LineNr"> 208 </span> compare <a href='../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> +<span id="L209" class="LineNr"> 209 </span> <span class="PreProc">break-if-=</span> +<span id="L210" class="LineNr"> 210 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> +<span id="L211" class="LineNr"> 211 </span> copy-object next-word-ah, cursor-word-ah +<span id="L212" class="LineNr"> 212 </span> <span class="Delimiter">}</span> +<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">return</span> +<span id="L214" class="LineNr"> 214 </span> <span class="Delimiter">}</span> +<span id="L215" class="LineNr"> 215 </span> <span class="muComment"># word-based motions</span> +<span id="L216" class="LineNr"> 216 </span> compare key, <span class="Constant">2</span>/ctrl-b +<span id="L217" class="LineNr"> 217 </span> $process-function-edit:prev-word: <span class="Delimiter">{</span> +<span id="L218" class="LineNr"> 218 </span> <span class="PreProc">break-if-!=</span> +<span id="L219" class="LineNr"> 219 </span> <span class="muComment"># jump to previous word if possible</span> +<span id="L220" class="LineNr"> 220 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L221" class="LineNr"> 221 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L222" class="LineNr"> 222 </span> <span class="Delimiter">{</span> +<span id="L223" class="LineNr"> 223 </span> compare prev-word, <span class="Constant">0</span> +<span id="L224" class="LineNr"> 224 </span> <span class="PreProc">break-if-=</span> +<span id="L225" class="LineNr"> 225 </span> <a href='word.mu.html#L192'>cursor-to-end</a> prev-word +<span id="L226" class="LineNr"> 226 </span> copy-object prev-word-ah, cursor-word-ah +<span id="L227" class="LineNr"> 227 </span> <span class="Delimiter">}</span> +<span id="L228" class="LineNr"> 228 </span> <span class="PreProc">return</span> +<span id="L229" class="LineNr"> 229 </span> <span class="Delimiter">}</span> +<span id="L230" class="LineNr"> 230 </span> compare key, <span class="Constant">6</span>/ctrl-f +<span id="L231" class="LineNr"> 231 </span> $process-function-edit:<a href='../127next-word.subx.html#L11'>next-word</a>: <span class="Delimiter">{</span> +<span id="L232" class="LineNr"> 232 </span> <span class="PreProc">break-if-!=</span> +<span id="L233" class="LineNr"> 233 </span> <span class="muComment"># jump to previous word if possible</span> +<span id="L234" class="LineNr"> 234 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L235" class="LineNr"> 235 </span> <span class="PreProc">var</span> <a href='../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L236" class="LineNr"> 236 </span> <span class="Delimiter">{</span> +<span id="L237" class="LineNr"> 237 </span> compare <a href='../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> +<span id="L238" class="LineNr"> 238 </span> <span class="PreProc">break-if-=</span> +<span id="L239" class="LineNr"> 239 </span> <a href='word.mu.html#L192'>cursor-to-end</a> <a href='../127next-word.subx.html#L11'>next-word</a> +<span id="L240" class="LineNr"> 240 </span> copy-object next-word-ah, cursor-word-ah +<span id="L241" class="LineNr"> 241 </span> <span class="Delimiter">}</span> +<span id="L242" class="LineNr"> 242 </span> <span class="PreProc">return</span> +<span id="L243" class="LineNr"> 243 </span> <span class="Delimiter">}</span> +<span id="L244" class="LineNr"> 244 </span> <span class="muComment"># line-based motions</span> +<span id="L245" class="LineNr"> 245 </span> compare key, <span class="Constant">1</span>/ctrl-a +<span id="L246" class="LineNr"> 246 </span> $process-function-edit:start-of-line: <span class="Delimiter">{</span> +<span id="L247" class="LineNr"> 247 </span> <span class="PreProc">break-if-!=</span> +<span id="L248" class="LineNr"> 248 </span> <span class="muComment"># move cursor to start of first word</span> +<span id="L249" class="LineNr"> 249 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L21'>function</a>, body +<span id="L250" class="LineNr"> 250 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L251" class="LineNr"> 251 </span> <span class="PreProc">var</span> body-contents-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L252" class="LineNr"> 252 </span> copy-object body-contents-ah, cursor-word-ah +<span id="L253" class="LineNr"> 253 </span> <span class="PreProc">var</span> body-contents/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-contents-ah +<span id="L254" class="LineNr"> 254 </span> <a href='word.mu.html#L185'>cursor-to-start</a> body-contents +<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">return</span> +<span id="L256" class="LineNr"> 256 </span> <span class="Delimiter">}</span> +<span id="L257" class="LineNr"> 257 </span> compare key, <span class="Constant">5</span>/ctrl-e +<span id="L258" class="LineNr"> 258 </span> $process-function-edit:end-of-line: <span class="Delimiter">{</span> +<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">break-if-!=</span> +<span id="L260" class="LineNr"> 260 </span> <span class="muComment"># move cursor to end of final word</span> +<span id="L261" class="LineNr"> 261 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L21'>function</a>, body +<span id="L262" class="LineNr"> 262 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L263" class="LineNr"> 263 </span> <span class="PreProc">var</span> body-contents-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L264" class="LineNr"> 264 </span> copy-object body-contents-ah, cursor-word-ah +<span id="L265" class="LineNr"> 265 </span> <a href='word.mu.html#L114'>final-word</a> cursor-word-ah, cursor-word-ah +<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L267" class="LineNr"> 267 </span> <a href='word.mu.html#L192'>cursor-to-end</a> cursor-word +<span id="L268" class="LineNr"> 268 </span> <span class="PreProc">return</span> +<span id="L269" class="LineNr"> 269 </span> <span class="Delimiter">}</span> +<span id="L270" class="LineNr"> 270 </span> <span class="muComment"># bounce to another function</span> +<span id="L271" class="LineNr"> 271 </span> compare key, <span class="Constant">7</span>/ctrl-g +<span id="L272" class="LineNr"> 272 </span> $process-function-edit:goto-function: <span class="Delimiter">{</span> +<span id="L273" class="LineNr"> 273 </span> <span class="PreProc">break-if-!=</span> +<span id="L274" class="LineNr"> 274 </span> <span class="muComment"># initialize dialog to name function to jump to</span> +<span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> partial-function-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name +<span id="L276" class="LineNr"> 276 </span> <a href='../120allocate.subx.html#L66'>allocate</a> partial-function-name-ah +<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> partial-function-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *partial-function-name-ah +<span id="L278" class="LineNr"> 278 </span> <a href='word.mu.html#L1'>initialize-word</a> partial-function-name +<span id="L279" class="LineNr"> 279 </span> <span class="PreProc">return</span> +<span id="L280" class="LineNr"> 280 </span> <span class="Delimiter">}</span> +<span id="L281" class="LineNr"> 281 </span> <span class="muComment"># bounce to sandbox</span> +<span id="L282" class="LineNr"> 282 </span> compare key, <span class="Constant">9</span>/tab +<span id="L283" class="LineNr"> 283 </span> $process-function-edit:goto-sandbox: <span class="Delimiter">{</span> +<span id="L284" class="LineNr"> 284 </span> <span class="PreProc">break-if-!=</span> +<span id="L285" class="LineNr"> 285 </span> <span class="PreProc">var</span> function-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, cursor-function +<span id="L286" class="LineNr"> 286 </span> clear-object function-ah +<span id="L287" class="LineNr"> 287 </span> <span class="PreProc">return</span> +<span id="L288" class="LineNr"> 288 </span> <span class="Delimiter">}</span> +<span id="L289" class="LineNr"> 289 </span> <span class="muComment"># editing the current function</span> +<span id="L290" class="LineNr"> 290 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> +<span id="L291" class="LineNr"> 291 </span> $process-function-edit:backspace: <span class="Delimiter">{</span> +<span id="L292" class="LineNr"> 292 </span> <span class="PreProc">break-if-!=</span> +<span id="L293" class="LineNr"> 293 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> +<span id="L294" class="LineNr"> 294 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word +<span id="L295" class="LineNr"> 295 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L296" class="LineNr"> 296 </span> <span class="Delimiter">{</span> +<span id="L297" class="LineNr"> 297 </span> <span class="PreProc">break-if-!=</span> +<span id="L298" class="LineNr"> 298 </span> <a href='word.mu.html#L207'>delete-before-cursor</a> cursor-word +<span id="L299" class="LineNr"> 299 </span> <span class="PreProc">return</span> +<span id="L300" class="LineNr"> 300 </span> <span class="Delimiter">}</span> +<span id="L301" class="LineNr"> 301 </span> <span class="muComment"># otherwise delete current word and move to end of prev word</span> +<span id="L302" class="LineNr"> 302 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L303" class="LineNr"> 303 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L304" class="LineNr"> 304 </span> <span class="Delimiter">{</span> +<span id="L305" class="LineNr"> 305 </span> compare prev-word, <span class="Constant">0</span> +<span id="L306" class="LineNr"> 306 </span> <span class="PreProc">break-if-=</span> +<span id="L307" class="LineNr"> 307 </span> <a href='word.mu.html#L192'>cursor-to-end</a> prev-word +<span id="L308" class="LineNr"> 308 </span> <a href='word.mu.html#L222'>delete-next</a> prev-word +<span id="L309" class="LineNr"> 309 </span> copy-object prev-word-ah, cursor-word-ah +<span id="L310" class="LineNr"> 310 </span> <span class="Delimiter">}</span> +<span id="L311" class="LineNr"> 311 </span> <span class="PreProc">return</span> +<span id="L312" class="LineNr"> 312 </span> <span class="Delimiter">}</span> +<span id="L313" class="LineNr"> 313 </span> compare key, <span class="Constant">0x20</span>/space +<span id="L314" class="LineNr"> 314 </span> $process-function-edit:space: <span class="Delimiter">{</span> +<span id="L315" class="LineNr"> 315 </span> <span class="PreProc">break-if-!=</span> +<span id="L316" class="LineNr"> 316 </span><span class="CommentedCode">#? print-string 0, "space\n"</span> +<span id="L317" class="LineNr"> 317 </span> <span class="muComment"># if cursor is at start of word, insert word before</span> +<span id="L318" class="LineNr"> 318 </span> <span class="Delimiter">{</span> +<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word +<span id="L320" class="LineNr"> 320 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L321" class="LineNr"> 321 </span> <span class="PreProc">break-if-=</span> +<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L323" class="LineNr"> 323 </span> <a href='word.mu.html#L356'>append-word</a> prev-word-ah +<span id="L324" class="LineNr"> 324 </span> <span class="PreProc">var</span> new-prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L325" class="LineNr"> 325 </span> copy-object new-prev-word-ah, cursor-word-ah +<span id="L326" class="LineNr"> 326 </span> <span class="PreProc">return</span> +<span id="L327" class="LineNr"> 327 </span> <span class="Delimiter">}</span> +<span id="L328" class="LineNr"> 328 </span> <span class="muComment"># if start of word is quote and grapheme before cursor is not, just insert it as usual</span> +<span id="L329" class="LineNr"> 329 </span> <span class="muComment"># TODO: support string escaping</span> +<span id="L330" class="LineNr"> 330 </span> <span class="Delimiter">{</span> +<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word +<span id="L332" class="LineNr"> 332 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x22</span>/double-quote +<span id="L333" class="LineNr"> 333 </span> <span class="PreProc">break-if-!=</span> +<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> final-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word +<span id="L335" class="LineNr"> 335 </span> compare final-grapheme, <span class="Constant">0x22</span>/double-quote +<span id="L336" class="LineNr"> 336 </span> <span class="PreProc">break-if-=</span> +<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">break</span> $process-function-edit:space +<span id="L338" class="LineNr"> 338 </span> <span class="Delimiter">}</span> +<span id="L339" class="LineNr"> 339 </span> <span class="muComment"># if start of word is '[' and grapheme before cursor is not ']', just insert it as usual</span> +<span id="L340" class="LineNr"> 340 </span> <span class="muComment"># TODO: support nested arrays</span> +<span id="L341" class="LineNr"> 341 </span> <span class="Delimiter">{</span> +<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word +<span id="L343" class="LineNr"> 343 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x5b</span>/[ +<span id="L344" class="LineNr"> 344 </span> <span class="PreProc">break-if-!=</span> +<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> final-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word +<span id="L346" class="LineNr"> 346 </span> compare final-grapheme, <span class="Constant">0x5d</span>/] +<span id="L347" class="LineNr"> 347 </span> <span class="PreProc">break-if-=</span> +<span id="L348" class="LineNr"> 348 </span> <span class="PreProc">break</span> $process-function-edit:space +<span id="L349" class="LineNr"> 349 </span> <span class="Delimiter">}</span> +<span id="L350" class="LineNr"> 350 </span> <span class="muComment"># otherwise insert word after and move cursor to it for the next key</span> +<span id="L351" class="LineNr"> 351 </span> <span class="muComment"># (but we'll continue to track the current cursor-word for the rest of this function)</span> +<span id="L352" class="LineNr"> 352 </span> <a href='word.mu.html#L356'>append-word</a> cursor-word-ah +<span id="L353" class="LineNr"> 353 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L354" class="LineNr"> 354 </span> copy-object next-word-ah, cursor-word-ah +<span id="L355" class="LineNr"> 355 </span> <span class="muComment"># if cursor is at end of word, that's all</span> +<span id="L356" class="LineNr"> 356 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word +<span id="L357" class="LineNr"> 357 </span> compare at-end?, <span class="Constant">0</span>/false +<span id="L358" class="LineNr"> 358 </span> <span class="Delimiter">{</span> +<span id="L359" class="LineNr"> 359 </span> <span class="PreProc">break-if-=</span> +<span id="L360" class="LineNr"> 360 </span> <span class="PreProc">return</span> +<span id="L361" class="LineNr"> 361 </span> <span class="Delimiter">}</span> +<span id="L362" class="LineNr"> 362 </span> <span class="muComment"># otherwise we're in the middle of a word</span> +<span id="L363" class="LineNr"> 363 </span> <span class="muComment"># move everything after cursor to the (just created) next word</span> +<span id="L364" class="LineNr"> 364 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L365" class="LineNr"> 365 </span> <span class="PreProc">var</span> _next-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L366" class="LineNr"> 366 </span> <span class="PreProc">var</span> <a href='../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _next-word +<span id="L367" class="LineNr"> 367 </span> <span class="Delimiter">{</span> +<span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word +<span id="L369" class="LineNr"> 369 </span> compare at-end?, <span class="Constant">0</span>/false +<span id="L370" class="LineNr"> 370 </span> <span class="PreProc">break-if-!=</span> +<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word +<span id="L372" class="LineNr"> 372 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g +<span id="L373" class="LineNr"> 373 </span> <span class="PreProc">loop</span> +<span id="L374" class="LineNr"> 374 </span> <span class="Delimiter">}</span> +<span id="L375" class="LineNr"> 375 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> +<span id="L376" class="LineNr"> 376 </span> <span class="PreProc">return</span> +<span id="L377" class="LineNr"> 377 </span> <span class="Delimiter">}</span> +<span id="L378" class="LineNr"> 378 </span> <span class="muComment"># otherwise insert key within current word</span> +<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy key +<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key +<span id="L381" class="LineNr"> 381 </span> $process-function-edit:real-grapheme: <span class="Delimiter">{</span> +<span id="L382" class="LineNr"> 382 </span> compare print?, <span class="Constant">0</span>/false +<span id="L383" class="LineNr"> 383 </span> <span class="PreProc">break-if-=</span> +<span id="L384" class="LineNr"> 384 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L385" class="LineNr"> 385 </span> <span class="PreProc">return</span> +<span id="L386" class="LineNr"> 386 </span> <span class="Delimiter">}</span> +<span id="L387" class="LineNr"> 387 </span> <span class="muComment"># silently ignore other hotkeys</span> +<span id="L388" class="LineNr"> 388 </span><span class="Delimiter">}</span> +<span id="L389" class="LineNr"> 389 </span> +<span id="L390" class="LineNr"> 390 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L390'>process-sandbox</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L391" class="LineNr"> 391 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L392" class="LineNr"> 392 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L393" class="LineNr"> 393 </span> <span class="PreProc">var</span> rename-word-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word +<span id="L394" class="LineNr"> 394 </span> <span class="PreProc">var</span> rename-word-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *rename-word-mode-ah? +<span id="L395" class="LineNr"> 395 </span> compare rename-word-mode?, <span class="Constant">0</span> +<span id="L396" class="LineNr"> 396 </span> <span class="Delimiter">{</span> +<span id="L397" class="LineNr"> 397 </span> <span class="PreProc">break-if-=</span> +<span id="L398" class="LineNr"> 398 </span><span class="CommentedCode">#? print-string 0, "processing sandbox rename\n"</span> +<span id="L399" class="LineNr"> 399 </span> <a href='environment.mu.html#L855'>process-sandbox-rename</a> <a href='data.mu.html#L5'>sandbox</a>, key +<span id="L400" class="LineNr"> 400 </span> <span class="PreProc">return</span> +<span id="L401" class="LineNr"> 401 </span> <span class="Delimiter">}</span> +<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> define-function-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-function +<span id="L403" class="LineNr"> 403 </span> <span class="PreProc">var</span> define-function-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *define-function-mode-ah? +<span id="L404" class="LineNr"> 404 </span> compare define-function-mode?, <span class="Constant">0</span> +<span id="L405" class="LineNr"> 405 </span> <span class="Delimiter">{</span> +<span id="L406" class="LineNr"> 406 </span> <span class="PreProc">break-if-=</span> +<span id="L407" class="LineNr"> 407 </span><span class="CommentedCode">#? print-string 0, "processing function definition\n"</span> +<span id="L408" class="LineNr"> 408 </span> <span class="PreProc">var</span> functions/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, functions +<span id="L409" class="LineNr"> 409 </span> <a href='environment.mu.html#L971'>process-sandbox-define</a> <a href='data.mu.html#L5'>sandbox</a>, functions, key +<span id="L410" class="LineNr"> 410 </span> <span class="PreProc">return</span> +<span id="L411" class="LineNr"> 411 </span> <span class="Delimiter">}</span> +<span id="L412" class="LineNr"> 412 </span><span class="CommentedCode">#? print-string 0, "processing sandbox edit\n"</span> +<span id="L413" class="LineNr"> 413 </span> <a href='environment.mu.html#L416'>process-sandbox-edit</a> self, <a href='data.mu.html#L5'>sandbox</a>, key +<span id="L414" class="LineNr"> 414 </span><span class="Delimiter">}</span> +<span id="L415" class="LineNr"> 415 </span> +<span id="L416" class="LineNr"> 416 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L416'>process-sandbox-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L417" class="LineNr"> 417 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L419" class="LineNr"> 419 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L420" class="LineNr"> 420 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L421" class="LineNr"> 421 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ebx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L422" class="LineNr"> 422 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _cursor-word +<span id="L424" class="LineNr"> 424 </span> compare key, <span class="Constant">0x445b1b</span>/left-arrow +<span id="L425" class="LineNr"> 425 </span> $process-sandbox-edit:key-left-arrow: <span class="Delimiter">{</span> +<span id="L426" class="LineNr"> 426 </span> <span class="PreProc">break-if-!=</span> +<span id="L427" class="LineNr"> 427 </span><span class="CommentedCode">#? print-string 0, "left-arrow\n"</span> +<span id="L428" class="LineNr"> 428 </span> <span class="muComment"># if not at start, move left within current word</span> +<span id="L429" class="LineNr"> 429 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word +<span id="L430" class="LineNr"> 430 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L431" class="LineNr"> 431 </span> <span class="Delimiter">{</span> +<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">break-if-!=</span> +<span id="L433" class="LineNr"> 433 </span><span class="CommentedCode">#? print-string 0, "cursor left within word\n"</span> +<span id="L434" class="LineNr"> 434 </span> <a href='word.mu.html#L171'>cursor-left</a> cursor-word +<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">return</span> +<span id="L436" class="LineNr"> 436 </span> <span class="Delimiter">}</span> +<span id="L437" class="LineNr"> 437 </span> <span class="muComment"># if current word is expanded, move to the rightmost word in its body</span> +<span id="L438" class="LineNr"> 438 </span> <span class="Delimiter">{</span> +<span id="L439" class="LineNr"> 439 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L440" class="LineNr"> 440 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, expanded-words +<span id="L441" class="LineNr"> 441 </span> <span class="PreProc">var</span> curr-word-is-expanded?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L327'>find-in-call-paths</a> expanded-words, cursor-call-path +<span id="L442" class="LineNr"> 442 </span> compare curr-word-is-expanded?, <span class="Constant">0</span>/false +<span id="L443" class="LineNr"> 443 </span> <span class="PreProc">break-if-=</span> +<span id="L444" class="LineNr"> 444 </span> <span class="muComment"># update cursor-call-path</span> +<span id="L445" class="LineNr"> 445 </span><span class="CommentedCode">#? print-string 0, "curr word is expanded\n"</span> +<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">var</span> self/<span class="Constant">ecx</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self +<span id="L447" class="LineNr"> 447 </span> <span class="PreProc">var</span> functions/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, functions +<span id="L448" class="LineNr"> 448 </span> <span class="PreProc">var</span> body: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L449" class="LineNr"> 449 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> address body +<span id="L450" class="LineNr"> 450 </span> <a href='data.mu.html#L232'>function-body</a> functions, cursor-word-ah, body-ah +<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">var</span> body-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L452" class="LineNr"> 452 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body-addr, data +<span id="L453" class="LineNr"> 453 </span> <span class="PreProc">var</span> final-word-h: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L454" class="LineNr"> 454 </span> <span class="PreProc">var</span> final-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address final-word-h +<span id="L455" class="LineNr"> 455 </span> <a href='word.mu.html#L114'>final-word</a> first-word-ah, final-word-ah +<span id="L456" class="LineNr"> 456 </span> <a href='data.mu.html#L515'>push-to-call-path-element</a> cursor-call-path, final-word-ah +<span id="L457" class="LineNr"> 457 </span> <span class="muComment"># move cursor to end of word</span> +<span id="L458" class="LineNr"> 458 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L459" class="LineNr"> 459 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L461" class="LineNr"> 461 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L462" class="LineNr"> 462 </span> <a href='word.mu.html#L192'>cursor-to-end</a> cursor-word +<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">return</span> +<span id="L464" class="LineNr"> 464 </span> <span class="Delimiter">}</span> +<span id="L465" class="LineNr"> 465 </span> <span class="muComment"># if at first word, look for a caller to jump to</span> +<span id="L466" class="LineNr"> 466 </span> $process-sandbox-edit:key-left-arrow-first-word: <span class="Delimiter">{</span> +<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L469" class="LineNr"> 469 </span> compare prev-word, <span class="Constant">0</span> +<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">break-if-!=</span> +<span id="L471" class="LineNr"> 471 </span> $process-sandbox-edit:key-left-arrow-first-word-and-caller: <span class="Delimiter">{</span> +<span id="L472" class="LineNr"> 472 </span><span class="CommentedCode">#? print-string 0, "return\n"</span> +<span id="L473" class="LineNr"> 473 </span> <span class="Delimiter">{</span> +<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L476" class="LineNr"> 476 </span> <span class="PreProc">var</span> next-cursor-element-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, next +<span id="L477" class="LineNr"> 477 </span> <span class="PreProc">var</span> next-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-cursor-element-ah +<span id="L478" class="LineNr"> 478 </span> compare next-cursor-element, <span class="Constant">0</span> +<span id="L479" class="LineNr"> 479 </span> <span class="PreProc">break-if-=</span> $process-sandbox-edit:key-left-arrow-first-word-and-caller +<span id="L480" class="LineNr"> 480 </span> copy-object next-cursor-element-ah, cursor-call-path-ah +<span id="L481" class="LineNr"> 481 </span> <span class="Delimiter">}</span> +<span id="L482" class="LineNr"> 482 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L483" class="LineNr"> 483 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L485" class="LineNr"> 485 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L486" class="LineNr"> 486 </span> cursor-word <span class="Special"><-</span> copy _cursor-word +<span id="L487" class="LineNr"> 487 </span> <span class="Delimiter">}</span> +<span id="L488" class="LineNr"> 488 </span> <span class="Delimiter">}</span> +<span id="L489" class="LineNr"> 489 </span> <span class="muComment"># then move to end of previous word</span> +<span id="L490" class="LineNr"> 490 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L492" class="LineNr"> 492 </span> <span class="Delimiter">{</span> +<span id="L493" class="LineNr"> 493 </span> compare prev-word, <span class="Constant">0</span> +<span id="L494" class="LineNr"> 494 </span> <span class="PreProc">break-if-=</span> +<span id="L495" class="LineNr"> 495 </span><span class="CommentedCode">#? print-string 0, "move to previous word\n"</span> +<span id="L496" class="LineNr"> 496 </span> <a href='word.mu.html#L192'>cursor-to-end</a> prev-word +<span id="L497" class="LineNr"> 497 </span><span class="CommentedCode">#? {</span> +<span id="L498" class="LineNr"> 498 </span><span class="CommentedCode">#? var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path</span> +<span id="L499" class="LineNr"> 499 </span><span class="CommentedCode">#? var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah</span> +<span id="L500" class="LineNr"> 500 </span><span class="CommentedCode">#? var cursor-word-ah/eax: (addr handle word) <- get cursor-call-path, word</span> +<span id="L501" class="LineNr"> 501 </span><span class="CommentedCode">#? var _cursor-word/eax: (addr word) <- lookup *cursor-word-ah</span> +<span id="L502" class="LineNr"> 502 </span><span class="CommentedCode">#? var cursor-word/ebx: (addr word) <- copy _cursor-word</span> +<span id="L503" class="LineNr"> 503 </span><span class="CommentedCode">#? print-string 0, "word at cursor before: "</span> +<span id="L504" class="LineNr"> 504 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> +<span id="L505" class="LineNr"> 505 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L506" class="LineNr"> 506 </span><span class="CommentedCode">#? }</span> +<span id="L507" class="LineNr"> 507 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L508" class="LineNr"> 508 </span> <a href='data.mu.html#L465'>decrement-final-element</a> cursor-call-path +<span id="L509" class="LineNr"> 509 </span><span class="CommentedCode">#? {</span> +<span id="L510" class="LineNr"> 510 </span><span class="CommentedCode">#? var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path</span> +<span id="L511" class="LineNr"> 511 </span><span class="CommentedCode">#? var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah</span> +<span id="L512" class="LineNr"> 512 </span><span class="CommentedCode">#? var cursor-word-ah/eax: (addr handle word) <- get cursor-call-path, word</span> +<span id="L513" class="LineNr"> 513 </span><span class="CommentedCode">#? var _cursor-word/eax: (addr word) <- lookup *cursor-word-ah</span> +<span id="L514" class="LineNr"> 514 </span><span class="CommentedCode">#? var cursor-word/ebx: (addr word) <- copy _cursor-word</span> +<span id="L515" class="LineNr"> 515 </span><span class="CommentedCode">#? print-string 0, "word at cursor after: "</span> +<span id="L516" class="LineNr"> 516 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> +<span id="L517" class="LineNr"> 517 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L518" class="LineNr"> 518 </span><span class="CommentedCode">#? }</span> +<span id="L519" class="LineNr"> 519 </span> <span class="Delimiter">}</span> +<span id="L520" class="LineNr"> 520 </span> <span class="PreProc">return</span> +<span id="L521" class="LineNr"> 521 </span> <span class="Delimiter">}</span> +<span id="L522" class="LineNr"> 522 </span> compare key, <span class="Constant">0x435b1b</span>/right-arrow +<span id="L523" class="LineNr"> 523 </span> $process-sandbox-edit:key-right-arrow: <span class="Delimiter">{</span> +<span id="L524" class="LineNr"> 524 </span> <span class="PreProc">break-if-!=</span> +<span id="L525" class="LineNr"> 525 </span> <span class="muComment"># if not at end, move right within current word</span> +<span id="L526" class="LineNr"> 526 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word +<span id="L527" class="LineNr"> 527 </span> compare at-end?, <span class="Constant">0</span>/false +<span id="L528" class="LineNr"> 528 </span> <span class="Delimiter">{</span> +<span id="L529" class="LineNr"> 529 </span> <span class="PreProc">break-if-!=</span> +<span id="L530" class="LineNr"> 530 </span><span class="CommentedCode">#? print-string 0, "a\n"</span> +<span id="L531" class="LineNr"> 531 </span> <a href='word.mu.html#L178'>cursor-right</a> cursor-word +<span id="L532" class="LineNr"> 532 </span> <span class="PreProc">return</span> +<span id="L533" class="LineNr"> 533 </span> <span class="Delimiter">}</span> +<span id="L534" class="LineNr"> 534 </span> <span class="muComment"># if at final word, look for a caller to jump to</span> +<span id="L535" class="LineNr"> 535 </span> <span class="Delimiter">{</span> +<span id="L536" class="LineNr"> 536 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L537" class="LineNr"> 537 </span> <span class="PreProc">var</span> <a href='../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L538" class="LineNr"> 538 </span> compare <a href='../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> +<span id="L539" class="LineNr"> 539 </span> <span class="PreProc">break-if-!=</span> +<span id="L540" class="LineNr"> 540 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L541" class="LineNr"> 541 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L542" class="LineNr"> 542 </span> <span class="PreProc">var</span> next-cursor-element-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, next +<span id="L543" class="LineNr"> 543 </span> <span class="PreProc">var</span> next-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-cursor-element-ah +<span id="L544" class="LineNr"> 544 </span> compare next-cursor-element, <span class="Constant">0</span> +<span id="L545" class="LineNr"> 545 </span> <span class="PreProc">break-if-=</span> +<span id="L546" class="LineNr"> 546 </span> copy-object next-cursor-element-ah, cursor-call-path-ah +<span id="L547" class="LineNr"> 547 </span> <span class="PreProc">return</span> +<span id="L548" class="LineNr"> 548 </span> <span class="Delimiter">}</span> +<span id="L549" class="LineNr"> 549 </span> <span class="muComment"># otherwise, move to the next word</span> +<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L551" class="LineNr"> 551 </span> <span class="PreProc">var</span> <a href='../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L552" class="LineNr"> 552 </span> <span class="Delimiter">{</span> +<span id="L553" class="LineNr"> 553 </span> compare <a href='../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> +<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">break-if-=</span> +<span id="L555" class="LineNr"> 555 </span><span class="CommentedCode">#? print-string 0, "b\n"</span> +<span id="L556" class="LineNr"> 556 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> +<span id="L557" class="LineNr"> 557 </span> <span class="muS2Comment"># . . cursor-word now out of date</span> +<span id="L558" class="LineNr"> 558 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L559" class="LineNr"> 559 </span> <a href='data.mu.html#L453'>increment-final-element</a> cursor-call-path +<span id="L560" class="LineNr"> 560 </span> <span class="muComment"># Is the new cursor word expanded? If so, it's a function call. Add a</span> +<span id="L561" class="LineNr"> 561 </span> <span class="muComment"># new level to the cursor-call-path for the call's body.</span> +<span id="L562" class="LineNr"> 562 </span> $process-sandbox-edit:key-right-arrow-next-word-is-call-expanded: <span class="Delimiter">{</span> +<span id="L563" class="LineNr"> 563 </span><span class="CommentedCode">#? print-string 0, "c\n"</span> +<span id="L564" class="LineNr"> 564 </span> <span class="Delimiter">{</span> +<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, expanded-words +<span id="L566" class="LineNr"> 566 </span> <span class="PreProc">var</span> curr-word-is-expanded?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L327'>find-in-call-paths</a> expanded-words, cursor-call-path +<span id="L567" class="LineNr"> 567 </span> compare curr-word-is-expanded?, <span class="Constant">0</span>/false +<span id="L568" class="LineNr"> 568 </span> <span class="PreProc">break-if-=</span> $process-sandbox-edit:key-right-arrow-next-word-is-call-expanded +<span id="L569" class="LineNr"> 569 </span> <span class="Delimiter">}</span> +<span id="L570" class="LineNr"> 570 </span> <span class="PreProc">var</span> callee-h: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L571" class="LineNr"> 571 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> address callee-h +<span id="L572" class="LineNr"> 572 </span> <span class="PreProc">var</span> functions/<span class="Constant">ebx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, functions +<span id="L573" class="LineNr"> 573 </span> <a href='environment.mu.html#L1846'>callee</a> functions, <a href='../127next-word.subx.html#L11'>next-word</a>, callee-ah +<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1846'>callee</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *callee-ah +<span id="L575" class="LineNr"> 575 </span> <span class="PreProc">var</span> callee-body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1846'>callee</a>, body +<span id="L576" class="LineNr"> 576 </span> <span class="PreProc">var</span> callee-body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *callee-body-ah +<span id="L577" class="LineNr"> 577 </span> <span class="PreProc">var</span> callee-body-first-word/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> callee-body, data +<span id="L578" class="LineNr"> 578 </span> <a href='data.mu.html#L515'>push-to-call-path-element</a> cursor-call-path, callee-body-first-word +<span id="L579" class="LineNr"> 579 </span> <span class="muComment"># position cursor at left</span> +<span id="L580" class="LineNr"> 580 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L581" class="LineNr"> 581 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L582" class="LineNr"> 582 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L583" class="LineNr"> 583 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L584" class="LineNr"> 584 </span> <a href='word.mu.html#L185'>cursor-to-start</a> cursor-word +<span id="L585" class="LineNr"> 585 </span><span class="CommentedCode">#? print-string 0, "d\n"</span> +<span id="L586" class="LineNr"> 586 </span> <span class="PreProc">return</span> +<span id="L587" class="LineNr"> 587 </span> <span class="Delimiter">}</span> +<span id="L588" class="LineNr"> 588 </span> <span class="Delimiter">}</span> +<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">return</span> +<span id="L590" class="LineNr"> 590 </span> <span class="Delimiter">}</span> +<span id="L591" class="LineNr"> 591 </span> compare key, <span class="Constant">0xa</span>/enter +<span id="L592" class="LineNr"> 592 </span> <span class="Delimiter">{</span> +<span id="L593" class="LineNr"> 593 </span> <span class="PreProc">break-if-!=</span> +<span id="L594" class="LineNr"> 594 </span> <span class="muComment"># toggle display of subsidiary stack</span> +<span id="L595" class="LineNr"> 595 </span> <a href='environment.mu.html#L1238'>toggle-cursor-word</a> <a href='data.mu.html#L5'>sandbox</a> +<span id="L596" class="LineNr"> 596 </span> <span class="PreProc">return</span> +<span id="L597" class="LineNr"> 597 </span> <span class="Delimiter">}</span> +<span id="L598" class="LineNr"> 598 </span> compare key, <span class="Constant">0xc</span>/ctrl-l +<span id="L599" class="LineNr"> 599 </span> $process-sandbox-edit:new-line: <span class="Delimiter">{</span> +<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">break-if-!=</span> +<span id="L601" class="LineNr"> 601 </span> <span class="muComment"># new line in sandbox</span> +<span id="L602" class="LineNr"> 602 </span> <a href='environment.mu.html#L1264'>append-line</a> <a href='data.mu.html#L5'>sandbox</a> +<span id="L603" class="LineNr"> 603 </span> <span class="PreProc">return</span> +<span id="L604" class="LineNr"> 604 </span> <span class="Delimiter">}</span> +<span id="L605" class="LineNr"> 605 </span> <span class="muComment"># word-based motions</span> +<span id="L606" class="LineNr"> 606 </span> compare key, <span class="Constant">2</span>/ctrl-b +<span id="L607" class="LineNr"> 607 </span> $process-sandbox-edit:prev-word: <span class="Delimiter">{</span> +<span id="L608" class="LineNr"> 608 </span> <span class="PreProc">break-if-!=</span> +<span id="L609" class="LineNr"> 609 </span> <span class="muComment"># jump to previous word at same level</span> +<span id="L610" class="LineNr"> 610 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L611" class="LineNr"> 611 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L612" class="LineNr"> 612 </span> <span class="Delimiter">{</span> +<span id="L613" class="LineNr"> 613 </span> compare prev-word, <span class="Constant">0</span> +<span id="L614" class="LineNr"> 614 </span> <span class="PreProc">break-if-=</span> +<span id="L615" class="LineNr"> 615 </span> <a href='word.mu.html#L192'>cursor-to-end</a> prev-word +<span id="L616" class="LineNr"> 616 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L617" class="LineNr"> 617 </span> <a href='data.mu.html#L465'>decrement-final-element</a> cursor-call-path +<span id="L618" class="LineNr"> 618 </span> <span class="PreProc">return</span> +<span id="L619" class="LineNr"> 619 </span> <span class="Delimiter">}</span> +<span id="L620" class="LineNr"> 620 </span> <span class="muComment"># if previous word doesn't exist, try to bump up one level</span> +<span id="L621" class="LineNr"> 621 </span> <span class="Delimiter">{</span> +<span id="L622" class="LineNr"> 622 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L623" class="LineNr"> 623 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L624" class="LineNr"> 624 </span> <span class="PreProc">var</span> caller-cursor-element-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, next +<span id="L625" class="LineNr"> 625 </span> <span class="PreProc">var</span> caller-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *caller-cursor-element-ah +<span id="L626" class="LineNr"> 626 </span> compare caller-cursor-element, <span class="Constant">0</span> +<span id="L627" class="LineNr"> 627 </span> <span class="PreProc">break-if-=</span> +<span id="L628" class="LineNr"> 628 </span> <span class="muComment"># check if previous word exists in caller</span> +<span id="L629" class="LineNr"> 629 </span> <span class="PreProc">var</span> caller-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> caller-cursor-element, <a href='data.mu.html#L42'>word</a> +<span id="L630" class="LineNr"> 630 </span> <span class="PreProc">var</span> caller-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *caller-word-ah +<span id="L631" class="LineNr"> 631 </span> <span class="PreProc">var</span> word-before-caller-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> caller-word, prev +<span id="L632" class="LineNr"> 632 </span> <span class="PreProc">var</span> word-before-caller/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-before-caller-ah +<span id="L633" class="LineNr"> 633 </span> compare word-before-caller, <span class="Constant">0</span> +<span id="L634" class="LineNr"> 634 </span> <span class="PreProc">break-if-=</span> +<span id="L635" class="LineNr"> 635 </span> <span class="muComment"># if so jump to it</span> +<span id="L636" class="LineNr"> 636 </span> <a href='data.mu.html#L530'>drop-from-call-path-element</a> cursor-call-path-ah +<span id="L637" class="LineNr"> 637 </span> <a href='data.mu.html#L465'>decrement-final-element</a> cursor-call-path-ah +<span id="L638" class="LineNr"> 638 </span> <span class="PreProc">return</span> +<span id="L639" class="LineNr"> 639 </span> <span class="Delimiter">}</span> +<span id="L640" class="LineNr"> 640 </span> <span class="Delimiter">}</span> +<span id="L641" class="LineNr"> 641 </span> compare key, <span class="Constant">6</span>/ctrl-f +<span id="L642" class="LineNr"> 642 </span> $process-sandbox-edit:<a href='../127next-word.subx.html#L11'>next-word</a>: <span class="Delimiter">{</span> +<span id="L643" class="LineNr"> 643 </span> <span class="PreProc">break-if-!=</span> +<span id="L644" class="LineNr"> 644 </span><span class="CommentedCode">#? print-string 0, "AA\n"</span> +<span id="L645" class="LineNr"> 645 </span> <span class="muComment"># jump to previous word at same level</span> +<span id="L646" class="LineNr"> 646 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L647" class="LineNr"> 647 </span> <span class="PreProc">var</span> <a href='../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L648" class="LineNr"> 648 </span> <span class="Delimiter">{</span> +<span id="L649" class="LineNr"> 649 </span> compare <a href='../127next-word.subx.html#L11'>next-word</a>, <span class="Constant">0</span> +<span id="L650" class="LineNr"> 650 </span> <span class="PreProc">break-if-=</span> +<span id="L651" class="LineNr"> 651 </span><span class="CommentedCode">#? print-string 0, "BB\n"</span> +<span id="L652" class="LineNr"> 652 </span> <a href='word.mu.html#L192'>cursor-to-end</a> <a href='../127next-word.subx.html#L11'>next-word</a> +<span id="L653" class="LineNr"> 653 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L654" class="LineNr"> 654 </span> <a href='data.mu.html#L453'>increment-final-element</a> cursor-call-path +<span id="L655" class="LineNr"> 655 </span> <span class="PreProc">return</span> +<span id="L656" class="LineNr"> 656 </span> <span class="Delimiter">}</span> +<span id="L657" class="LineNr"> 657 </span> <span class="muComment"># if next word doesn't exist, try to bump up one level</span> +<span id="L658" class="LineNr"> 658 </span><span class="CommentedCode">#? print-string 0, "CC\n"</span> +<span id="L659" class="LineNr"> 659 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L660" class="LineNr"> 660 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L661" class="LineNr"> 661 </span> <span class="PreProc">var</span> caller-cursor-element-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, next +<span id="L662" class="LineNr"> 662 </span> <span class="PreProc">var</span> caller-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *caller-cursor-element-ah +<span id="L663" class="LineNr"> 663 </span> compare caller-cursor-element, <span class="Constant">0</span> +<span id="L664" class="LineNr"> 664 </span> <span class="PreProc">break-if-=</span> +<span id="L665" class="LineNr"> 665 </span><span class="CommentedCode">#? print-string 0, "DD\n"</span> +<span id="L666" class="LineNr"> 666 </span> copy-object caller-cursor-element-ah, cursor-call-path-ah +<span id="L667" class="LineNr"> 667 </span> <span class="PreProc">return</span> +<span id="L668" class="LineNr"> 668 </span> <span class="Delimiter">}</span> +<span id="L669" class="LineNr"> 669 </span> compare key, <span class="Constant">7</span>/ctrl-g +<span id="L670" class="LineNr"> 670 </span> $process-sandbox-edit:goto-function: <span class="Delimiter">{</span> +<span id="L671" class="LineNr"> 671 </span> <span class="PreProc">break-if-!=</span> +<span id="L672" class="LineNr"> 672 </span> <span class="muComment"># initialize dialog to name function to jump to</span> +<span id="L673" class="LineNr"> 673 </span> <span class="PreProc">var</span> partial-function-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name +<span id="L674" class="LineNr"> 674 </span> <a href='../120allocate.subx.html#L66'>allocate</a> partial-function-name-ah +<span id="L675" class="LineNr"> 675 </span> <span class="PreProc">var</span> partial-function-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *partial-function-name-ah +<span id="L676" class="LineNr"> 676 </span> <a href='word.mu.html#L1'>initialize-word</a> partial-function-name +<span id="L677" class="LineNr"> 677 </span> <span class="PreProc">return</span> +<span id="L678" class="LineNr"> 678 </span> <span class="Delimiter">}</span> +<span id="L679" class="LineNr"> 679 </span> <span class="muComment"># line-based motions</span> +<span id="L680" class="LineNr"> 680 </span> compare key, <span class="Constant">1</span>/ctrl-a +<span id="L681" class="LineNr"> 681 </span> $process-sandbox-edit:start-of-line: <span class="Delimiter">{</span> +<span id="L682" class="LineNr"> 682 </span> <span class="PreProc">break-if-!=</span> +<span id="L683" class="LineNr"> 683 </span> <span class="muComment"># move cursor up past all calls and to start of line</span> +<span id="L684" class="LineNr"> 684 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L685" class="LineNr"> 685 </span> <a href='data.mu.html#L537'>drop-nested-calls</a> cursor-call-path-ah +<span id="L686" class="LineNr"> 686 </span> <a href='data.mu.html#L489'>move-final-element-to-start-of-line</a> cursor-call-path-ah +<span id="L687" class="LineNr"> 687 </span> <span class="muComment"># move cursor to start of word</span> +<span id="L688" class="LineNr"> 688 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L689" class="LineNr"> 689 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L690" class="LineNr"> 690 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L691" class="LineNr"> 691 </span> <a href='word.mu.html#L185'>cursor-to-start</a> cursor-word +<span id="L692" class="LineNr"> 692 </span> <span class="muComment"># this works as long as the first word isn't expanded</span> +<span id="L693" class="LineNr"> 693 </span> <span class="muComment"># but we don't expect to see zero-arg functions first-up</span> +<span id="L694" class="LineNr"> 694 </span> <span class="PreProc">return</span> +<span id="L695" class="LineNr"> 695 </span> <span class="Delimiter">}</span> +<span id="L696" class="LineNr"> 696 </span> compare key, <span class="Constant">5</span>/ctrl-e +<span id="L697" class="LineNr"> 697 </span> $process-sandbox-edit:end-of-line: <span class="Delimiter">{</span> +<span id="L698" class="LineNr"> 698 </span> <span class="PreProc">break-if-!=</span> +<span id="L699" class="LineNr"> 699 </span> <span class="muComment"># move cursor up past all calls and to start of line</span> +<span id="L700" class="LineNr"> 700 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L701" class="LineNr"> 701 </span> <a href='data.mu.html#L537'>drop-nested-calls</a> cursor-call-path-ah +<span id="L702" class="LineNr"> 702 </span> <a href='data.mu.html#L502'>move-final-element-to-end-of-line</a> cursor-call-path-ah +<span id="L703" class="LineNr"> 703 </span> <span class="muComment"># move cursor to end of word</span> +<span id="L704" class="LineNr"> 704 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L705" class="LineNr"> 705 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L706" class="LineNr"> 706 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L707" class="LineNr"> 707 </span> <a href='word.mu.html#L192'>cursor-to-end</a> cursor-word +<span id="L708" class="LineNr"> 708 </span> <span class="muComment"># this works because expanded words lie to the right of their bodies</span> +<span id="L709" class="LineNr"> 709 </span> <span class="muComment"># so the final word is always guaranteed to be at the top-level</span> +<span id="L710" class="LineNr"> 710 </span> <span class="PreProc">return</span> +<span id="L711" class="LineNr"> 711 </span> <span class="Delimiter">}</span> +<span id="L712" class="LineNr"> 712 </span> compare key, <span class="Constant">0x15</span>/ctrl-u +<span id="L713" class="LineNr"> 713 </span> $process-sandbox-edit:clear-line: <span class="Delimiter">{</span> +<span id="L714" class="LineNr"> 714 </span> <span class="PreProc">break-if-!=</span> +<span id="L715" class="LineNr"> 715 </span> <span class="muComment"># clear line in sandbox</span> +<span id="L716" class="LineNr"> 716 </span> <a href='data.mu.html#L87'>initialize-sandbox</a> <a href='data.mu.html#L5'>sandbox</a> +<span id="L717" class="LineNr"> 717 </span> <span class="PreProc">return</span> +<span id="L718" class="LineNr"> 718 </span> <span class="Delimiter">}</span> +<span id="L719" class="LineNr"> 719 </span> <span class="muComment"># if cursor is within a call, disable editing hotkeys below</span> +<span id="L720" class="LineNr"> 720 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L721" class="LineNr"> 721 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L722" class="LineNr"> 722 </span> <span class="PreProc">var</span> next-cursor-element-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, next +<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">var</span> next-cursor-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-cursor-element-ah +<span id="L724" class="LineNr"> 724 </span> compare next-cursor-element, <span class="Constant">0</span> +<span id="L725" class="LineNr"> 725 </span> <span class="Delimiter">{</span> +<span id="L726" class="LineNr"> 726 </span> <span class="PreProc">break-if-=</span> +<span id="L727" class="LineNr"> 727 </span> <span class="PreProc">return</span> +<span id="L728" class="LineNr"> 728 </span> <span class="Delimiter">}</span> +<span id="L729" class="LineNr"> 729 </span> <span class="muComment"># - remaining keys only work at the top row outside any function calls</span> +<span id="L730" class="LineNr"> 730 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> +<span id="L731" class="LineNr"> 731 </span> $process-sandbox-edit:backspace: <span class="Delimiter">{</span> +<span id="L732" class="LineNr"> 732 </span> <span class="PreProc">break-if-!=</span> +<span id="L733" class="LineNr"> 733 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> +<span id="L734" class="LineNr"> 734 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word +<span id="L735" class="LineNr"> 735 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L736" class="LineNr"> 736 </span> <span class="Delimiter">{</span> +<span id="L737" class="LineNr"> 737 </span> <span class="PreProc">break-if-!=</span> +<span id="L738" class="LineNr"> 738 </span> <a href='word.mu.html#L207'>delete-before-cursor</a> cursor-word +<span id="L739" class="LineNr"> 739 </span> <span class="PreProc">return</span> +<span id="L740" class="LineNr"> 740 </span> <span class="Delimiter">}</span> +<span id="L741" class="LineNr"> 741 </span> <span class="muComment"># otherwise delete current word and move to end of prev word</span> +<span id="L742" class="LineNr"> 742 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L743" class="LineNr"> 743 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L744" class="LineNr"> 744 </span> <span class="Delimiter">{</span> +<span id="L745" class="LineNr"> 745 </span> compare prev-word, <span class="Constant">0</span> +<span id="L746" class="LineNr"> 746 </span> <span class="PreProc">break-if-=</span> +<span id="L747" class="LineNr"> 747 </span> <a href='word.mu.html#L192'>cursor-to-end</a> prev-word +<span id="L748" class="LineNr"> 748 </span> <a href='word.mu.html#L222'>delete-next</a> prev-word +<span id="L749" class="LineNr"> 749 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L750" class="LineNr"> 750 </span> <a href='data.mu.html#L465'>decrement-final-element</a> cursor-call-path +<span id="L751" class="LineNr"> 751 </span> <span class="Delimiter">}</span> +<span id="L752" class="LineNr"> 752 </span> <span class="PreProc">return</span> +<span id="L753" class="LineNr"> 753 </span> <span class="Delimiter">}</span> +<span id="L754" class="LineNr"> 754 </span> compare key, <span class="Constant">0x20</span>/space +<span id="L755" class="LineNr"> 755 </span> $process-sandbox-edit:space: <span class="Delimiter">{</span> +<span id="L756" class="LineNr"> 756 </span> <span class="PreProc">break-if-!=</span> +<span id="L757" class="LineNr"> 757 </span><span class="CommentedCode">#? print-string 0, "space\n"</span> +<span id="L758" class="LineNr"> 758 </span> <span class="muComment"># if cursor is at start of word, insert word before</span> +<span id="L759" class="LineNr"> 759 </span> <span class="Delimiter">{</span> +<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word +<span id="L761" class="LineNr"> 761 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">break-if-=</span> +<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, prev +<span id="L764" class="LineNr"> 764 </span> <a href='word.mu.html#L356'>append-word</a> prev-word-ah +<span id="L765" class="LineNr"> 765 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L766" class="LineNr"> 766 </span> <a href='data.mu.html#L465'>decrement-final-element</a> cursor-call-path +<span id="L767" class="LineNr"> 767 </span> <span class="PreProc">return</span> +<span id="L768" class="LineNr"> 768 </span> <span class="Delimiter">}</span> +<span id="L769" class="LineNr"> 769 </span> <span class="muComment"># if start of word is quote and grapheme before cursor is not, just insert it as usual</span> +<span id="L770" class="LineNr"> 770 </span> <span class="muComment"># TODO: support string escaping</span> +<span id="L771" class="LineNr"> 771 </span> <span class="Delimiter">{</span> +<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word +<span id="L773" class="LineNr"> 773 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x22</span>/double-quote +<span id="L774" class="LineNr"> 774 </span> <span class="PreProc">break-if-!=</span> +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> final-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word +<span id="L776" class="LineNr"> 776 </span> compare final-grapheme, <span class="Constant">0x22</span>/double-quote +<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">break-if-=</span> +<span id="L778" class="LineNr"> 778 </span> <span class="PreProc">break</span> $process-sandbox-edit:space +<span id="L779" class="LineNr"> 779 </span> <span class="Delimiter">}</span> +<span id="L780" class="LineNr"> 780 </span> <span class="muComment"># if start of word is '[' and grapheme before cursor is not ']', just insert it as usual</span> +<span id="L781" class="LineNr"> 781 </span> <span class="muComment"># TODO: support nested arrays</span> +<span id="L782" class="LineNr"> 782 </span> <span class="Delimiter">{</span> +<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word +<span id="L784" class="LineNr"> 784 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x5b</span>/[ +<span id="L785" class="LineNr"> 785 </span> <span class="PreProc">break-if-!=</span> +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> final-grapheme/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word +<span id="L787" class="LineNr"> 787 </span> compare final-grapheme, <span class="Constant">0x5d</span>/] +<span id="L788" class="LineNr"> 788 </span> <span class="PreProc">break-if-=</span> +<span id="L789" class="LineNr"> 789 </span> <span class="PreProc">break</span> $process-sandbox-edit:space +<span id="L790" class="LineNr"> 790 </span> <span class="Delimiter">}</span> +<span id="L791" class="LineNr"> 791 </span> <span class="muComment"># otherwise insert word after and move cursor to it for the next key</span> +<span id="L792" class="LineNr"> 792 </span> <span class="muComment"># (but we'll continue to track the current cursor-word for the rest of this function)</span> +<span id="L793" class="LineNr"> 793 </span> <a href='word.mu.html#L356'>append-word</a> cursor-word-ah +<span id="L794" class="LineNr"> 794 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L795" class="LineNr"> 795 </span> <a href='data.mu.html#L453'>increment-final-element</a> cursor-call-path +<span id="L796" class="LineNr"> 796 </span> <span class="muComment"># if cursor is at end of word, that's all</span> +<span id="L797" class="LineNr"> 797 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word +<span id="L798" class="LineNr"> 798 </span> compare at-end?, <span class="Constant">0</span>/false +<span id="L799" class="LineNr"> 799 </span> <span class="Delimiter">{</span> +<span id="L800" class="LineNr"> 800 </span> <span class="PreProc">break-if-=</span> +<span id="L801" class="LineNr"> 801 </span> <span class="PreProc">return</span> +<span id="L802" class="LineNr"> 802 </span> <span class="Delimiter">}</span> +<span id="L803" class="LineNr"> 803 </span> <span class="muComment"># otherwise we're in the middle of a word</span> +<span id="L804" class="LineNr"> 804 </span> <span class="muComment"># move everything after cursor to the (just created) next word</span> +<span id="L805" class="LineNr"> 805 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L806" class="LineNr"> 806 </span> <span class="PreProc">var</span> _next-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L807" class="LineNr"> 807 </span> <span class="PreProc">var</span> <a href='../127next-word.subx.html#L11'>next-word</a>/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _next-word +<span id="L808" class="LineNr"> 808 </span> <span class="Delimiter">{</span> +<span id="L809" class="LineNr"> 809 </span> <span class="PreProc">var</span> at-end?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word +<span id="L810" class="LineNr"> 810 </span> compare at-end?, <span class="Constant">0</span>/false +<span id="L811" class="LineNr"> 811 </span> <span class="PreProc">break-if-!=</span> +<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word +<span id="L813" class="LineNr"> 813 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g +<span id="L814" class="LineNr"> 814 </span> <span class="PreProc">loop</span> +<span id="L815" class="LineNr"> 815 </span> <span class="Delimiter">}</span> +<span id="L816" class="LineNr"> 816 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> +<span id="L817" class="LineNr"> 817 </span> <span class="PreProc">return</span> +<span id="L818" class="LineNr"> 818 </span> <span class="Delimiter">}</span> +<span id="L819" class="LineNr"> 819 </span> compare key, <span class="Constant">0xe</span>/ctrl-n +<span id="L820" class="LineNr"> 820 </span> $process:rename-word: <span class="Delimiter">{</span> +<span id="L821" class="LineNr"> 821 </span> <span class="PreProc">break-if-!=</span> +<span id="L822" class="LineNr"> 822 </span> <span class="muComment"># TODO: ensure current word is not a function</span> +<span id="L823" class="LineNr"> 823 </span> <span class="muComment"># rename word at cursor</span> +<span id="L824" class="LineNr"> 824 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word +<span id="L825" class="LineNr"> 825 </span> <a href='../120allocate.subx.html#L66'>allocate</a> new-name-ah +<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L827" class="LineNr"> 827 </span> <a href='word.mu.html#L1'>initialize-word</a> new-name +<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">return</span> +<span id="L829" class="LineNr"> 829 </span> <span class="Delimiter">}</span> +<span id="L830" class="LineNr"> 830 </span> compare key, <span class="Constant">4</span>/ctrl-d +<span id="L831" class="LineNr"> 831 </span> $process:define-function: <span class="Delimiter">{</span> +<span id="L832" class="LineNr"> 832 </span> <span class="PreProc">break-if-!=</span> +<span id="L833" class="LineNr"> 833 </span> <span class="muComment"># define function out of line at cursor</span> +<span id="L834" class="LineNr"> 834 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-function +<span id="L835" class="LineNr"> 835 </span> <a href='../120allocate.subx.html#L66'>allocate</a> new-name-ah +<span id="L836" class="LineNr"> 836 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L837" class="LineNr"> 837 </span> <a href='word.mu.html#L1'>initialize-word</a> new-name +<span id="L838" class="LineNr"> 838 </span> <span class="PreProc">return</span> +<span id="L839" class="LineNr"> 839 </span> <span class="Delimiter">}</span> +<span id="L840" class="LineNr"> 840 </span> <span class="muComment"># otherwise insert key within current word</span> +<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy key +<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key +<span id="L843" class="LineNr"> 843 </span> $process-sandbox-edit:real-grapheme: <span class="Delimiter">{</span> +<span id="L844" class="LineNr"> 844 </span> compare print?, <span class="Constant">0</span>/false +<span id="L845" class="LineNr"> 845 </span> <span class="PreProc">break-if-=</span> +<span id="L846" class="LineNr"> 846 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L847" class="LineNr"> 847 </span> <span class="PreProc">return</span> +<span id="L848" class="LineNr"> 848 </span> <span class="Delimiter">}</span> +<span id="L849" class="LineNr"> 849 </span> <span class="muComment"># silently ignore other hotkeys</span> +<span id="L850" class="LineNr"> 850 </span><span class="Delimiter">}</span> +<span id="L851" class="LineNr"> 851 </span> +<span id="L852" class="LineNr"> 852 </span><span class="muComment"># collect new name in partial-name-for-cursor-word, and then rename the word</span> +<span id="L853" class="LineNr"> 853 </span><span class="muComment"># at cursor to it</span> +<span id="L854" class="LineNr"> 854 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> +<span id="L855" class="LineNr"> 855 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L855'>process-sandbox-rename</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L857" class="LineNr"> 857 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word +<span id="L858" class="LineNr"> 858 </span> <span class="muComment"># if 'esc' pressed, cancel rename</span> +<span id="L859" class="LineNr"> 859 </span> compare key, <span class="Constant">0x1b</span>/esc +<span id="L860" class="LineNr"> 860 </span> $process-sandbox-rename:cancel: <span class="Delimiter">{</span> +<span id="L861" class="LineNr"> 861 </span> <span class="PreProc">break-if-!=</span> +<span id="L862" class="LineNr"> 862 </span> clear-object new-name-ah +<span id="L863" class="LineNr"> 863 </span> <span class="PreProc">return</span> +<span id="L864" class="LineNr"> 864 </span> <span class="Delimiter">}</span> +<span id="L865" class="LineNr"> 865 </span> <span class="muComment"># if 'enter' pressed, perform rename</span> +<span id="L866" class="LineNr"> 866 </span> compare key, <span class="Constant">0xa</span>/enter +<span id="L867" class="LineNr"> 867 </span> $process-sandbox-rename:commit: <span class="Delimiter">{</span> +<span id="L868" class="LineNr"> 868 </span> <span class="PreProc">break-if-!=</span> +<span id="L869" class="LineNr"> 869 </span><span class="CommentedCode">#? print-string 0, "rename\n"</span> +<span id="L870" class="LineNr"> 870 </span> <span class="muComment"># new line</span> +<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> new-line-h: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L872" class="LineNr"> 872 </span> <span class="PreProc">var</span> new-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> address new-line-h +<span id="L873" class="LineNr"> 873 </span> <a href='../120allocate.subx.html#L66'>allocate</a> new-line-ah +<span id="L874" class="LineNr"> 874 </span> <span class="PreProc">var</span> new-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-line-ah +<span id="L875" class="LineNr"> 875 </span> <a href='data.mu.html#L102'>initialize-line</a> new-line +<span id="L876" class="LineNr"> 876 </span> <span class="PreProc">var</span> new-line-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-line, data +<span id="L877" class="LineNr"> 877 </span> <span class="Delimiter">{</span> +<span id="L878" class="LineNr"> 878 </span> <span class="muComment"># move word at cursor to new line</span> +<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">var</span> cursor-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">var</span> cursor/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-ah +<span id="L881" class="LineNr"> 881 </span> <span class="PreProc">var</span> word-at-cursor-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor, <a href='data.mu.html#L42'>word</a> +<span id="L882" class="LineNr"> 882 </span><span class="CommentedCode">#? print-string 0, "cursor before at word "</span> +<span id="L883" class="LineNr"> 883 </span><span class="CommentedCode">#? {</span> +<span id="L884" class="LineNr"> 884 </span><span class="CommentedCode">#? var cursor-word/eax: (addr word) <- lookup *word-at-cursor-ah</span> +<span id="L885" class="LineNr"> 885 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> +<span id="L886" class="LineNr"> 886 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L887" class="LineNr"> 887 </span><span class="CommentedCode">#? }</span> +<span id="L888" class="LineNr"> 888 </span> <a href='word.mu.html#L51'>move-word-contents</a> word-at-cursor-ah, new-line-word-ah +<span id="L889" class="LineNr"> 889 </span> <span class="muComment"># copy name to word at cursor</span> +<span id="L890" class="LineNr"> 890 </span> <a href='word.mu.html#L74'>copy-word-contents-before-cursor</a> new-name-ah, word-at-cursor-ah +<span id="L891" class="LineNr"> 891 </span><span class="CommentedCode">#? print-string 0, "cursor after at word "</span> +<span id="L892" class="LineNr"> 892 </span><span class="CommentedCode">#? {</span> +<span id="L893" class="LineNr"> 893 </span><span class="CommentedCode">#? var cursor-word/eax: (addr word) <- lookup *word-at-cursor-ah</span> +<span id="L894" class="LineNr"> 894 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> +<span id="L895" class="LineNr"> 895 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L896" class="LineNr"> 896 </span><span class="CommentedCode">#? var foo/eax: int <- copy cursor-word</span> +<span id="L897" class="LineNr"> 897 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L898" class="LineNr"> 898 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L899" class="LineNr"> 899 </span><span class="CommentedCode">#? }</span> +<span id="L900" class="LineNr"> 900 </span><span class="CommentedCode">#? print-string 0, "new name word "</span> +<span id="L901" class="LineNr"> 901 </span><span class="CommentedCode">#? {</span> +<span id="L902" class="LineNr"> 902 </span><span class="CommentedCode">#? var new-name/eax: (addr word) <- lookup *new-name-ah</span> +<span id="L903" class="LineNr"> 903 </span><span class="CommentedCode">#? print-word 0, new-name</span> +<span id="L904" class="LineNr"> 904 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L905" class="LineNr"> 905 </span><span class="CommentedCode">#? var foo/eax: int <- copy new-name</span> +<span id="L906" class="LineNr"> 906 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L907" class="LineNr"> 907 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L908" class="LineNr"> 908 </span><span class="CommentedCode">#? }</span> +<span id="L909" class="LineNr"> 909 </span> <span class="Delimiter">}</span> +<span id="L910" class="LineNr"> 910 </span> <span class="muComment"># prepend '=' to name</span> +<span id="L911" class="LineNr"> 911 </span> <span class="Delimiter">{</span> +<span id="L912" class="LineNr"> 912 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L913" class="LineNr"> 913 </span> <a href='word.mu.html#L185'>cursor-to-start</a> new-name +<span id="L914" class="LineNr"> 914 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, <span class="Constant">0x3d</span>/= +<span id="L915" class="LineNr"> 915 </span> <span class="Delimiter">}</span> +<span id="L916" class="LineNr"> 916 </span> <span class="muComment"># append name to new line</span> +<span id="L917" class="LineNr"> 917 </span> <a href='word.mu.html#L459'>chain-words</a> new-line-word-ah, new-name-ah +<span id="L918" class="LineNr"> 918 </span> <span class="muComment"># new-line->next = sandbox->data</span> +<span id="L919" class="LineNr"> 919 </span> <span class="PreProc">var</span> new-line-next/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-line, next +<span id="L920" class="LineNr"> 920 </span> <span class="PreProc">var</span> sandbox-slot/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L921" class="LineNr"> 921 </span> copy-object sandbox-slot, new-line-next +<span id="L922" class="LineNr"> 922 </span> <span class="muComment"># sandbox->data = new-line</span> +<span id="L923" class="LineNr"> 923 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> new-line-h, sandbox-slot +<span id="L924" class="LineNr"> 924 </span> <span class="muComment"># clear partial-name-for-cursor-word</span> +<span id="L925" class="LineNr"> 925 </span> clear-object new-name-ah +<span id="L926" class="LineNr"> 926 </span><span class="CommentedCode">#? var cursor-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path</span> +<span id="L927" class="LineNr"> 927 </span><span class="CommentedCode">#? var cursor/eax: (addr call-path-element) <- lookup *cursor-ah</span> +<span id="L928" class="LineNr"> 928 </span><span class="CommentedCode">#? var word-at-cursor-ah/eax: (addr handle word) <- get cursor, word</span> +<span id="L929" class="LineNr"> 929 </span><span class="CommentedCode">#? print-string 0, "cursor after rename: "</span> +<span id="L930" class="LineNr"> 930 </span><span class="CommentedCode">#? {</span> +<span id="L931" class="LineNr"> 931 </span><span class="CommentedCode">#? var cursor-word/eax: (addr word) <- lookup *word-at-cursor-ah</span> +<span id="L932" class="LineNr"> 932 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> +<span id="L933" class="LineNr"> 933 </span><span class="CommentedCode">#? print-string 0, " -- "</span> +<span id="L934" class="LineNr"> 934 </span><span class="CommentedCode">#? var foo/eax: int <- copy cursor-word</span> +<span id="L935" class="LineNr"> 935 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L936" class="LineNr"> 936 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L937" class="LineNr"> 937 </span><span class="CommentedCode">#? }</span> +<span id="L938" class="LineNr"> 938 </span> <span class="PreProc">return</span> +<span id="L939" class="LineNr"> 939 </span> <span class="Delimiter">}</span> +<span id="L940" class="LineNr"> 940 </span> <span class="muComment">#</span> +<span id="L941" class="LineNr"> 941 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> +<span id="L942" class="LineNr"> 942 </span> $process-sandbox-rename:backspace: <span class="Delimiter">{</span> +<span id="L943" class="LineNr"> 943 </span> <span class="PreProc">break-if-!=</span> +<span id="L944" class="LineNr"> 944 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L945" class="LineNr"> 945 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L946" class="LineNr"> 946 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> new-name +<span id="L947" class="LineNr"> 947 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L948" class="LineNr"> 948 </span> <span class="Delimiter">{</span> +<span id="L949" class="LineNr"> 949 </span> <span class="PreProc">break-if-!=</span> +<span id="L950" class="LineNr"> 950 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L951" class="LineNr"> 951 </span> <a href='word.mu.html#L207'>delete-before-cursor</a> new-name +<span id="L952" class="LineNr"> 952 </span> <span class="Delimiter">}</span> +<span id="L953" class="LineNr"> 953 </span> <span class="PreProc">return</span> +<span id="L954" class="LineNr"> 954 </span> <span class="Delimiter">}</span> +<span id="L955" class="LineNr"> 955 </span> <span class="muComment"># otherwise insert key within current word</span> +<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key +<span id="L957" class="LineNr"> 957 </span> $process-sandbox-rename:real-grapheme: <span class="Delimiter">{</span> +<span id="L958" class="LineNr"> 958 </span> compare print?, <span class="Constant">0</span>/false +<span id="L959" class="LineNr"> 959 </span> <span class="PreProc">break-if-=</span> +<span id="L960" class="LineNr"> 960 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L961" class="LineNr"> 961 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, key +<span id="L962" class="LineNr"> 962 </span> <span class="PreProc">return</span> +<span id="L963" class="LineNr"> 963 </span> <span class="Delimiter">}</span> +<span id="L964" class="LineNr"> 964 </span> <span class="muComment"># silently ignore other hotkeys</span> +<span id="L965" class="LineNr"> 965 </span><span class="Delimiter">}</span> +<span id="L966" class="LineNr"> 966 </span> +<span id="L967" class="LineNr"> 967 </span><span class="muComment"># collect new name in partial-name-for-function, and then define the last line</span> +<span id="L968" class="LineNr"> 968 </span><span class="muComment"># of the sandbox to be a new function with that name. Replace the last line</span> +<span id="L969" class="LineNr"> 969 </span><span class="muComment"># with a call to the appropriate function.</span> +<span id="L970" class="LineNr"> 970 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> +<span id="L971" class="LineNr"> 971 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L971'>process-sandbox-define</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L973" class="LineNr"> 973 </span> <span class="PreProc">var</span> new-name-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-function +<span id="L974" class="LineNr"> 974 </span> <span class="muComment"># if 'esc' pressed, cancel define</span> +<span id="L975" class="LineNr"> 975 </span> compare key, <span class="Constant">0x1b</span>/esc +<span id="L976" class="LineNr"> 976 </span> $process-sandbox-define:cancel: <span class="Delimiter">{</span> +<span id="L977" class="LineNr"> 977 </span> <span class="PreProc">break-if-!=</span> +<span id="L978" class="LineNr"> 978 </span> clear-object new-name-ah +<span id="L979" class="LineNr"> 979 </span> <span class="PreProc">return</span> +<span id="L980" class="LineNr"> 980 </span> <span class="Delimiter">}</span> +<span id="L981" class="LineNr"> 981 </span> <span class="muComment"># if 'enter' pressed, perform define</span> +<span id="L982" class="LineNr"> 982 </span> compare key, <span class="Constant">0xa</span>/enter +<span id="L983" class="LineNr"> 983 </span> $process-sandbox-define:commit: <span class="Delimiter">{</span> +<span id="L984" class="LineNr"> 984 </span> <span class="PreProc">break-if-!=</span> +<span id="L985" class="LineNr"> 985 </span><span class="CommentedCode">#? print-string 0, "define\n"</span> +<span id="L986" class="LineNr"> 986 </span> <span class="muComment"># create new function</span> +<span id="L987" class="LineNr"> 987 </span> <span class="PreProc">var</span> new-function: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L988" class="LineNr"> 988 </span> <span class="PreProc">var</span> new-function-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> address new-function +<span id="L989" class="LineNr"> 989 </span> <a href='../120allocate.subx.html#L66'>allocate</a> new-function-ah +<span id="L990" class="LineNr"> 990 </span> <span class="PreProc">var</span> _new-function/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-function-ah +<span id="L991" class="LineNr"> 991 </span> <span class="PreProc">var</span> new-function/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _new-function +<span id="L992" class="LineNr"> 992 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-function, next +<span id="L993" class="LineNr"> 993 </span> copy-object functions, dest +<span id="L994" class="LineNr"> 994 </span> copy-object new-function-ah, functions +<span id="L995" class="LineNr"> 995 </span> <span class="muComment"># set function name to new-name</span> +<span id="L996" class="LineNr"> 996 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L997" class="LineNr"> 997 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-function, name +<span id="L998" class="LineNr"> 998 </span> <a href='word.mu.html#L480'>word-to-string</a> new-name, dest +<span id="L999" class="LineNr"> 999 </span> <span class="muComment"># move final line to body</span> +<span id="L1000" class="LineNr">1000 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-function, body +<span id="L1001" class="LineNr">1001 </span> <a href='../120allocate.subx.html#L66'>allocate</a> body-ah +<span id="L1002" class="LineNr">1002 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L1003" class="LineNr">1003 </span> <span class="PreProc">var</span> body-contents/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> body, data +<span id="L1004" class="LineNr">1004 </span> <span class="PreProc">var</span> final-line-storage: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L1005" class="LineNr">1005 </span> <span class="PreProc">var</span> final-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> address final-line-storage +<span id="L1006" class="LineNr">1006 </span> <a href='environment.mu.html#L1526'>final-line</a> <a href='data.mu.html#L5'>sandbox</a>, final-line-ah +<span id="L1007" class="LineNr">1007 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1526'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-line-ah +<span id="L1008" class="LineNr">1008 </span> <span class="PreProc">var</span> final-line-contents/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1526'>final-line</a>, data +<span id="L1009" class="LineNr">1009 </span> copy-object final-line-contents, body-contents +<span id="L1010" class="LineNr">1010 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-function, cursor-word +<span id="L1011" class="LineNr">1011 </span> copy-object final-line-contents, cursor-word-ah +<span id="L1012" class="LineNr">1012 </span> <span class="Delimiter">{</span> +<span id="L1013" class="LineNr">1013 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L1014" class="LineNr">1014 </span> <a href='word.mu.html#L185'>cursor-to-start</a> cursor-word +<span id="L1015" class="LineNr">1015 </span> <span class="Delimiter">}</span> +<span id="L1016" class="LineNr">1016 </span> <span class="muComment">#</span> +<span id="L1017" class="LineNr">1017 </span> <a href='environment.mu.html#L1062'>copy-unbound-words-to-args</a> functions +<span id="L1018" class="LineNr">1018 </span> <span class="muComment">#</span> +<span id="L1019" class="LineNr">1019 </span> <span class="PreProc">var</span> empty-word: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L1020" class="LineNr">1020 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> empty-word, final-line-contents +<span id="L1021" class="LineNr">1021 </span> <a href='environment.mu.html#L1209'>construct-call</a> functions, final-line-contents +<span id="L1022" class="LineNr">1022 </span> <span class="muComment"># clear partial-name-for-function</span> +<span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> empty-word: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L1024" class="LineNr">1024 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> empty-word, new-name-ah +<span id="L1025" class="LineNr">1025 </span> <span class="muComment"># update cursor</span> +<span id="L1026" class="LineNr">1026 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1526'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> final-line-storage +<span id="L1027" class="LineNr">1027 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L1028" class="LineNr">1028 </span> <a href='../120allocate.subx.html#L66'>allocate</a> cursor-call-path-ah <span class="muComment"># leak</span> +<span id="L1029" class="LineNr">1029 </span> <a href='data.mu.html#L318'>initialize-path-from-line</a> <a href='environment.mu.html#L1526'>final-line</a>, cursor-call-path-ah +<span id="L1030" class="LineNr">1030 </span> <span class="PreProc">return</span> +<span id="L1031" class="LineNr">1031 </span> <span class="Delimiter">}</span> +<span id="L1032" class="LineNr">1032 </span> <span class="muComment">#</span> +<span id="L1033" class="LineNr">1033 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> +<span id="L1034" class="LineNr">1034 </span> $process-sandbox-define:backspace: <span class="Delimiter">{</span> +<span id="L1035" class="LineNr">1035 </span> <span class="PreProc">break-if-!=</span> +<span id="L1036" class="LineNr">1036 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L1037" class="LineNr">1037 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L1038" class="LineNr">1038 </span> <span class="PreProc">var</span> at-start?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> new-name +<span id="L1039" class="LineNr">1039 </span> compare at-start?, <span class="Constant">0</span>/false +<span id="L1040" class="LineNr">1040 </span> <span class="Delimiter">{</span> +<span id="L1041" class="LineNr">1041 </span> <span class="PreProc">break-if-!=</span> +<span id="L1042" class="LineNr">1042 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L1043" class="LineNr">1043 </span> <a href='word.mu.html#L207'>delete-before-cursor</a> new-name +<span id="L1044" class="LineNr">1044 </span> <span class="Delimiter">}</span> +<span id="L1045" class="LineNr">1045 </span> <span class="PreProc">return</span> +<span id="L1046" class="LineNr">1046 </span> <span class="Delimiter">}</span> +<span id="L1047" class="LineNr">1047 </span> <span class="muComment"># otherwise insert key within current word</span> +<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key +<span id="L1049" class="LineNr">1049 </span> $process-sandbox-define:real-grapheme: <span class="Delimiter">{</span> +<span id="L1050" class="LineNr">1050 </span> compare print?, <span class="Constant">0</span>/false +<span id="L1051" class="LineNr">1051 </span> <span class="PreProc">break-if-=</span> +<span id="L1052" class="LineNr">1052 </span> <span class="PreProc">var</span> new-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah +<span id="L1053" class="LineNr">1053 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, key +<span id="L1054" class="LineNr">1054 </span> <span class="PreProc">return</span> +<span id="L1055" class="LineNr">1055 </span> <span class="Delimiter">}</span> +<span id="L1056" class="LineNr">1056 </span> <span class="muComment"># silently ignore other hotkeys</span> +<span id="L1057" class="LineNr">1057 </span><span class="Delimiter">}</span> +<span id="L1058" class="LineNr">1058 </span> +<span id="L1059" class="LineNr">1059 </span><span class="muComment"># extract from the body of the first function in 'functions' all words that</span> +<span id="L1060" class="LineNr">1060 </span><span class="muComment"># aren't defined in the rest of 'functions'. Prepend them in reverse order.</span> +<span id="L1061" class="LineNr">1061 </span><span class="muComment"># Assumes function body is a single line for now.</span> +<span id="L1062" class="LineNr">1062 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1062'>copy-unbound-words-to-args</a></span> _functions: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Delimiter">{</span> +<span id="L1063" class="LineNr">1063 </span> <span class="muComment"># target</span> +<span id="L1064" class="LineNr">1064 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _functions +<span id="L1065" class="LineNr">1065 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target-ah +<span id="L1066" class="LineNr">1066 </span> <span class="PreProc">var</span> target/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _target +<span id="L1067" class="LineNr">1067 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, args +<span id="L1068" class="LineNr">1068 </span> <span class="muComment"># next</span> +<span id="L1069" class="LineNr">1069 </span> <span class="PreProc">var</span> functions-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, next +<span id="L1070" class="LineNr">1070 </span> <span class="muComment"># src</span> +<span id="L1071" class="LineNr">1071 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, body +<span id="L1072" class="LineNr">1072 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *line-ah +<span id="L1073" class="LineNr">1073 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L1074" class="LineNr">1074 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L1075" class="LineNr">1075 </span> <span class="Delimiter">{</span> +<span id="L1076" class="LineNr">1076 </span> compare curr, <span class="Constant">0</span> +<span id="L1077" class="LineNr">1077 </span> <span class="PreProc">break-if-=</span> +<span id="L1078" class="LineNr">1078 </span> $copy-unbound-words-to-args:loop-iter: <span class="Delimiter">{</span> +<span id="L1079" class="LineNr">1079 </span> <span class="muComment"># is it a number?</span> +<span id="L1080" class="LineNr">1080 </span> <span class="Delimiter">{</span> +<span id="L1081" class="LineNr">1081 </span> <span class="PreProc">var</span> int?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L487'>word-is-decimal-integer?</a> curr +<span id="L1082" class="LineNr">1082 </span> compare int?, <span class="Constant">0</span>/false +<span id="L1083" class="LineNr">1083 </span> <span class="PreProc">break-if-!=</span> $copy-unbound-words-to-args:loop-iter +<span id="L1084" class="LineNr">1084 </span> <span class="Delimiter">}</span> +<span id="L1085" class="LineNr">1085 </span> <span class="muComment"># is it a pre-existing function?</span> +<span id="L1086" class="LineNr">1086 </span> <span class="PreProc">var</span> bound?/<span class="Constant">ebx</span>: boolean <span class="Special"><-</span> <a href='environment.mu.html#L1106'>bound-function?</a> curr, functions-ah +<span id="L1087" class="LineNr">1087 </span> compare bound?, <span class="Constant">0</span>/false +<span id="L1088" class="LineNr">1088 </span> <span class="PreProc">break-if-!=</span> +<span id="L1089" class="LineNr">1089 </span> <span class="muComment"># is it already bound as an arg?</span> +<span id="L1090" class="LineNr">1090 </span> <span class="PreProc">var</span> dup?/<span class="Constant">ebx</span>: boolean <span class="Special"><-</span> <a href='environment.mu.html#L1200'>arg-exists?</a> _functions, curr <span class="muComment"># _functions = target-ah</span> +<span id="L1091" class="LineNr">1091 </span> compare dup?, <span class="Constant">0</span>/false +<span id="L1092" class="LineNr">1092 </span> <span class="PreProc">break-if-!=</span> $copy-unbound-words-to-args:loop-iter +<span id="L1093" class="LineNr">1093 </span> <span class="muComment"># push copy of curr before dest-ah</span> +<span id="L1094" class="LineNr">1094 </span> <span class="PreProc">var</span> rest-h: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L1095" class="LineNr">1095 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address rest-h +<span id="L1096" class="LineNr">1096 </span> copy-object dest-ah, rest-ah +<span id="L1097" class="LineNr">1097 </span> <a href='word.mu.html#L343'>copy-word</a> curr, dest-ah +<span id="L1098" class="LineNr">1098 </span> <a href='word.mu.html#L459'>chain-words</a> dest-ah, rest-ah +<span id="L1099" class="LineNr">1099 </span> <span class="Delimiter">}</span> +<span id="L1100" class="LineNr">1100 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L1101" class="LineNr">1101 </span> curr <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">loop</span> +<span id="L1103" class="LineNr">1103 </span> <span class="Delimiter">}</span> +<span id="L1104" class="LineNr">1104 </span><span class="Delimiter">}</span> +<span id="L1105" class="LineNr">1105 </span> +<span id="L1106" class="LineNr">1106 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1106'>bound-function?</a></span> w: (addr <a href='data.mu.html#L42'>word</a>), functions-ah: (addr handle <a href='data.mu.html#L21'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: boolean <span class="Delimiter">{</span> +<span id="L1107" class="LineNr">1107 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ebx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">1</span>/true +<span id="L1108" class="LineNr">1108 </span> <span class="Delimiter">{</span> +<span id="L1109" class="LineNr">1109 </span> <span class="muComment">## numbers</span> +<span id="L1110" class="LineNr">1110 </span> <span class="muComment"># if w == "+" return true</span> +<span id="L1111" class="LineNr">1111 </span> <span class="PreProc">var</span> subresult/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"+"</span> +<span id="L1112" class="LineNr">1112 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1113" class="LineNr">1113 </span> <span class="PreProc">break-if-!=</span> +<span id="L1114" class="LineNr">1114 </span> <span class="muComment"># if w == "-" return true</span> +<span id="L1115" class="LineNr">1115 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"-"</span> +<span id="L1116" class="LineNr">1116 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1117" class="LineNr">1117 </span> <span class="PreProc">break-if-!=</span> +<span id="L1118" class="LineNr">1118 </span> <span class="muComment"># if w == "*" return true</span> +<span id="L1119" class="LineNr">1119 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"*"</span> +<span id="L1120" class="LineNr">1120 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1121" class="LineNr">1121 </span> <span class="PreProc">break-if-!=</span> +<span id="L1122" class="LineNr">1122 </span> <span class="muComment"># if w == "/" return true</span> +<span id="L1123" class="LineNr">1123 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"/"</span> +<span id="L1124" class="LineNr">1124 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1125" class="LineNr">1125 </span> <span class="PreProc">break-if-!=</span> +<span id="L1126" class="LineNr">1126 </span> <span class="muComment"># if w == "sqrt" return true</span> +<span id="L1127" class="LineNr">1127 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"sqrt"</span> +<span id="L1128" class="LineNr">1128 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1129" class="LineNr">1129 </span> <span class="PreProc">break-if-!=</span> +<span id="L1130" class="LineNr">1130 </span> <span class="muComment">## strings/arrays</span> +<span id="L1131" class="LineNr">1131 </span> <span class="muComment"># if w == "len" return true</span> +<span id="L1132" class="LineNr">1132 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"len"</span> +<span id="L1133" class="LineNr">1133 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1134" class="LineNr">1134 </span> <span class="PreProc">break-if-!=</span> +<span id="L1135" class="LineNr">1135 </span> <span class="muComment">## files</span> +<span id="L1136" class="LineNr">1136 </span> <span class="muComment"># if w == "open" return true</span> +<span id="L1137" class="LineNr">1137 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"open"</span> +<span id="L1138" class="LineNr">1138 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1139" class="LineNr">1139 </span> <span class="PreProc">break-if-!=</span> +<span id="L1140" class="LineNr">1140 </span> <span class="muComment"># if w == "read" return true</span> +<span id="L1141" class="LineNr">1141 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"read"</span> +<span id="L1142" class="LineNr">1142 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1143" class="LineNr">1143 </span> <span class="PreProc">break-if-!=</span> +<span id="L1144" class="LineNr">1144 </span> <span class="muComment"># if w == "slurp" return true</span> +<span id="L1145" class="LineNr">1145 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"slurp"</span> +<span id="L1146" class="LineNr">1146 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1147" class="LineNr">1147 </span> <span class="PreProc">break-if-!=</span> +<span id="L1148" class="LineNr">1148 </span> <span class="muComment"># if w == "lines" return true</span> +<span id="L1149" class="LineNr">1149 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"lines"</span> +<span id="L1150" class="LineNr">1150 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1151" class="LineNr">1151 </span> <span class="PreProc">break-if-!=</span> +<span id="L1152" class="LineNr">1152 </span> <span class="muComment">## screens</span> +<span id="L1153" class="LineNr">1153 </span> <span class="muComment"># if w == "fake-screen" return true</span> +<span id="L1154" class="LineNr">1154 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"fake-screen"</span> +<span id="L1155" class="LineNr">1155 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1156" class="LineNr">1156 </span> <span class="PreProc">break-if-!=</span> +<span id="L1157" class="LineNr">1157 </span> <span class="muComment"># if w == "print" return true</span> +<span id="L1158" class="LineNr">1158 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"print"</span> +<span id="L1159" class="LineNr">1159 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1160" class="LineNr">1160 </span> <span class="PreProc">break-if-!=</span> +<span id="L1161" class="LineNr">1161 </span> <span class="muComment"># if w == "move" return true</span> +<span id="L1162" class="LineNr">1162 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"move"</span> +<span id="L1163" class="LineNr">1163 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1164" class="LineNr">1164 </span> <span class="PreProc">break-if-!=</span> +<span id="L1165" class="LineNr">1165 </span> <span class="muComment"># if w == "up" return true</span> +<span id="L1166" class="LineNr">1166 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"up"</span> +<span id="L1167" class="LineNr">1167 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1168" class="LineNr">1168 </span> <span class="PreProc">break-if-!=</span> +<span id="L1169" class="LineNr">1169 </span> <span class="muComment"># if w == "down" return true</span> +<span id="L1170" class="LineNr">1170 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"down"</span> +<span id="L1171" class="LineNr">1171 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1172" class="LineNr">1172 </span> <span class="PreProc">break-if-!=</span> +<span id="L1173" class="LineNr">1173 </span> <span class="muComment"># if w == "left" return true</span> +<span id="L1174" class="LineNr">1174 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"left"</span> +<span id="L1175" class="LineNr">1175 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1176" class="LineNr">1176 </span> <span class="PreProc">break-if-!=</span> +<span id="L1177" class="LineNr">1177 </span> <span class="muComment"># if w == "right" return true</span> +<span id="L1178" class="LineNr">1178 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"right"</span> +<span id="L1179" class="LineNr">1179 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1180" class="LineNr">1180 </span> <span class="PreProc">break-if-!=</span> +<span id="L1181" class="LineNr">1181 </span> <span class="muComment">## hacks</span> +<span id="L1182" class="LineNr">1182 </span> <span class="muComment"># if w == "dup" return true</span> +<span id="L1183" class="LineNr">1183 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"dup"</span> +<span id="L1184" class="LineNr">1184 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1185" class="LineNr">1185 </span> <span class="PreProc">break-if-!=</span> +<span id="L1186" class="LineNr">1186 </span> <span class="muComment"># if w == "swap" return true</span> +<span id="L1187" class="LineNr">1187 </span> subresult <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> w, <span class="Constant">"swap"</span> +<span id="L1188" class="LineNr">1188 </span> compare subresult, <span class="Constant">0</span>/false +<span id="L1189" class="LineNr">1189 </span> <span class="PreProc">break-if-!=</span> +<span id="L1190" class="LineNr">1190 </span> <span class="muComment"># return w in functions</span> +<span id="L1191" class="LineNr">1191 </span> <span class="PreProc">var</span> out-h: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L1192" class="LineNr">1192 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> address out-h +<span id="L1193" class="LineNr">1193 </span> <a href='environment.mu.html#L1846'>callee</a> functions-ah, w, out +<span id="L1194" class="LineNr">1194 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *out +<span id="L1195" class="LineNr">1195 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> copy found? +<span id="L1196" class="LineNr">1196 </span> <span class="Delimiter">}</span> +<span id="L1197" class="LineNr">1197 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L1198" class="LineNr">1198 </span><span class="Delimiter">}</span> +<span id="L1199" class="LineNr">1199 </span> +<span id="L1200" class="LineNr">1200 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1200'>arg-exists?</a></span> _f-ah: (addr handle <a href='data.mu.html#L21'>function</a>), arg: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: boolean <span class="Delimiter">{</span> +<span id="L1201" class="LineNr">1201 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f-ah +<span id="L1202" class="LineNr">1202 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *f-ah +<span id="L1203" class="LineNr">1203 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L1204" class="LineNr">1204 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ebx</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L496'>word-exists?</a> args-ah, arg +<span id="L1205" class="LineNr">1205 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L1206" class="LineNr">1206 </span><span class="Delimiter">}</span> +<span id="L1207" class="LineNr">1207 </span> +<span id="L1208" class="LineNr">1208 </span><span class="muComment"># construct a call to `f` with copies of exactly its args</span> +<span id="L1209" class="LineNr">1209 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1209'>construct-call</a></span> _f-ah: (addr handle <a href='data.mu.html#L21'>function</a>), _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L1210" class="LineNr">1210 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f-ah +<span id="L1211" class="LineNr">1211 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *f-ah +<span id="L1212" class="LineNr">1212 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L1213" class="LineNr">1213 </span> <span class="muComment"># append args in reverse</span> +<span id="L1214" class="LineNr">1214 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L1215" class="LineNr">1215 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L1216" class="LineNr">1216 </span> <a href='word.mu.html#L277'>copy-words-in-reverse</a> args-ah, dest-ah +<span id="L1217" class="LineNr">1217 </span> <span class="muComment"># append name</span> +<span id="L1218" class="LineNr">1218 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L1219" class="LineNr">1219 </span> <span class="PreProc">var</span> name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *name-ah +<span id="L1220" class="LineNr">1220 </span> <a href='word.mu.html#L319'>append-word-at-end-with</a> dest-ah, name +<span id="L1221" class="LineNr">1221 </span><span class="Delimiter">}</span> +<span id="L1222" class="LineNr">1222 </span> +<span id="L1223" class="LineNr">1223 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1223'>word-index</a></span> _words: (addr handle <a href='data.mu.html#L42'>word</a>), _n: int, out: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L1224" class="LineNr">1224 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _n +<span id="L1225" class="LineNr">1225 </span> <span class="Delimiter">{</span> +<span id="L1226" class="LineNr">1226 </span> compare n, <span class="Constant">0</span> +<span id="L1227" class="LineNr">1227 </span> <span class="PreProc">break-if-!=</span> +<span id="L1228" class="LineNr">1228 </span> copy-object _words, out +<span id="L1229" class="LineNr">1229 </span> <span class="PreProc">return</span> +<span id="L1230" class="LineNr">1230 </span> <span class="Delimiter">}</span> +<span id="L1231" class="LineNr">1231 </span> <span class="PreProc">var</span> words-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _words +<span id="L1232" class="LineNr">1232 </span> <span class="PreProc">var</span> words/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *words-ah +<span id="L1233" class="LineNr">1233 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> words, next +<span id="L1234" class="LineNr">1234 </span> n <span class="Special"><-</span> decrement +<span id="L1235" class="LineNr">1235 </span> <a href='environment.mu.html#L1223'>word-index</a> next, n, out +<span id="L1236" class="LineNr">1236 </span><span class="Delimiter">}</span> +<span id="L1237" class="LineNr">1237 </span> +<span id="L1238" class="LineNr">1238 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1238'>toggle-cursor-word</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Delimiter">{</span> +<span id="L1239" class="LineNr">1239 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1240" class="LineNr">1240 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, expanded-words +<span id="L1241" class="LineNr">1241 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L1242" class="LineNr">1242 </span><span class="CommentedCode">#? print-string 0, "cursor call path: "</span> +<span id="L1243" class="LineNr">1243 </span><span class="CommentedCode">#? dump-call-path-element 0, cursor-call-path</span> +<span id="L1244" class="LineNr">1244 </span><span class="CommentedCode">#? print-string 0, "expanded words:\n"</span> +<span id="L1245" class="LineNr">1245 </span><span class="CommentedCode">#? dump-call-paths 0, expanded-words</span> +<span id="L1246" class="LineNr">1246 </span> <span class="PreProc">var</span> already-expanded?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L327'>find-in-call-paths</a> expanded-words, cursor-call-path +<span id="L1247" class="LineNr">1247 </span> compare already-expanded?, <span class="Constant">0</span>/false +<span id="L1248" class="LineNr">1248 </span> <span class="Delimiter">{</span> +<span id="L1249" class="LineNr">1249 </span> <span class="PreProc">break-if-!=</span> +<span id="L1250" class="LineNr">1250 </span><span class="CommentedCode">#? print-string 0, "expand\n"</span> +<span id="L1251" class="LineNr">1251 </span> <span class="muComment"># if not already-expanded, insert</span> +<span id="L1252" class="LineNr">1252 </span> <a href='data.mu.html#L394'>insert-in-call-path</a> expanded-words cursor-call-path +<span id="L1253" class="LineNr">1253 </span><span class="CommentedCode">#? print-string 0, "expanded words now:\n"</span> +<span id="L1254" class="LineNr">1254 </span><span class="CommentedCode">#? dump-call-paths 0, expanded-words</span> +<span id="L1255" class="LineNr">1255 </span> <span class="PreProc">return</span> +<span id="L1256" class="LineNr">1256 </span> <span class="Delimiter">}</span> +<span id="L1257" class="LineNr">1257 </span> <span class="Delimiter">{</span> +<span id="L1258" class="LineNr">1258 </span> <span class="PreProc">break-if-=</span> +<span id="L1259" class="LineNr">1259 </span> <span class="muComment"># otherwise delete</span> +<span id="L1260" class="LineNr">1260 </span> <a href='data.mu.html#L430'>delete-in-call-path</a> expanded-words cursor-call-path +<span id="L1261" class="LineNr">1261 </span> <span class="Delimiter">}</span> +<span id="L1262" class="LineNr">1262 </span><span class="Delimiter">}</span> +<span id="L1263" class="LineNr">1263 </span> +<span id="L1264" class="LineNr">1264 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1264'>append-line</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Delimiter">{</span> +<span id="L1265" class="LineNr">1265 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1266" class="LineNr">1266 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L1267" class="LineNr">1267 </span> <span class="Delimiter">{</span> +<span id="L1268" class="LineNr">1268 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *line-ah +<span id="L1269" class="LineNr">1269 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, next +<span id="L1270" class="LineNr">1270 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-line-ah +<span id="L1271" class="LineNr">1271 </span> compare next-line, <span class="Constant">0</span> +<span id="L1272" class="LineNr">1272 </span> <span class="PreProc">break-if-=</span> +<span id="L1273" class="LineNr">1273 </span> line-ah <span class="Special"><-</span> copy next-line-ah +<span id="L1274" class="LineNr">1274 </span> <span class="PreProc">loop</span> +<span id="L1275" class="LineNr">1275 </span> <span class="Delimiter">}</span> +<span id="L1276" class="LineNr">1276 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *line-ah +<span id="L1277" class="LineNr">1277 </span> <span class="PreProc">var</span> final-line-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, next +<span id="L1278" class="LineNr">1278 </span> <a href='../120allocate.subx.html#L66'>allocate</a> final-line-ah +<span id="L1279" class="LineNr">1279 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1526'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-line-ah +<span id="L1280" class="LineNr">1280 </span> <a href='data.mu.html#L102'>initialize-line</a> <a href='environment.mu.html#L1526'>final-line</a> +<span id="L1281" class="LineNr">1281 </span> <span class="PreProc">var</span> final-prev/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1526'>final-line</a>, prev +<span id="L1282" class="LineNr">1282 </span> copy-object line-ah, final-prev +<span id="L1283" class="LineNr">1283 </span> <span class="muComment"># clear cursor</span> +<span id="L1284" class="LineNr">1284 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1526'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-line-ah +<span id="L1285" class="LineNr">1285 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1526'>final-line</a>, data +<span id="L1286" class="LineNr">1286 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L1287" class="LineNr">1287 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L1288" class="LineNr">1288 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L1289" class="LineNr">1289 </span> copy-object word-ah, dest +<span id="L1290" class="LineNr">1290 </span><span class="Delimiter">}</span> +<span id="L1291" class="LineNr">1291 </span> +<span id="L1292" class="LineNr">1292 </span><span class="muComment">#############</span> +<span id="L1293" class="LineNr">1293 </span><span class="muComment"># Visualize</span> +<span id="L1294" class="LineNr">1294 </span><span class="muComment">#############</span> +<span id="L1295" class="LineNr">1295 </span> +<span id="L1296" class="LineNr">1296 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1296'>evaluate-environment</a></span> _env: (addr <a href='environment.mu.html#L16'>environment</a>), stack: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Delimiter">{</span> +<span id="L1297" class="LineNr">1297 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L1298" class="LineNr">1298 </span> <span class="muComment"># functions</span> +<span id="L1299" class="LineNr">1299 </span> <span class="PreProc">var</span> functions/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, functions +<span id="L1300" class="LineNr">1300 </span> <span class="muComment"># line</span> +<span id="L1301" class="LineNr">1301 </span> <span class="PreProc">var</span> sandbox-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, sandboxes +<span id="L1302" class="LineNr">1302 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *sandbox-ah +<span id="L1303" class="LineNr">1303 </span> <span class="PreProc">var</span> line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L1304" class="LineNr">1304 </span> <span class="PreProc">var</span> _line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *line-ah +<span id="L1305" class="LineNr">1305 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _line +<span id="L1306" class="LineNr">1306 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, <span class="Constant">0</span>, <a href='data.mu.html#L34'>line</a>, <span class="Constant">0</span>, stack +<span id="L1307" class="LineNr">1307 </span><span class="Delimiter">}</span> +<span id="L1308" class="LineNr">1308 </span> +<span id="L1309" class="LineNr">1309 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1309'>render</a></span> _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L1310" class="LineNr">1310 </span><span class="CommentedCode">#? print-string 0, "== render\n"</span> +<span id="L1311" class="LineNr">1311 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L1312" class="LineNr">1312 </span> <a href='environment.mu.html#L2013'>clear-canvas</a> env +<span id="L1313" class="LineNr">1313 </span> <span class="muComment"># menu</span> +<span id="L1314" class="LineNr">1314 </span> <a href='environment.mu.html#L1342'>render-menu</a> env +<span id="L1315" class="LineNr">1315 </span> <span class="muComment"># screen</span> +<span id="L1316" class="LineNr">1316 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1317" class="LineNr">1317 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L1318" class="LineNr">1318 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1319" class="LineNr">1319 </span> <span class="muComment"># functions</span> +<span id="L1320" class="LineNr">1320 </span> <span class="PreProc">var</span> sep-col/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L1321" class="LineNr">1321 </span> <span class="PreProc">var</span> functions/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, functions +<span id="L1322" class="LineNr">1322 </span> <a href='environment.mu.html#L2078'>render-functions</a> <a href='../405screen.mu.html#L9'>screen</a>, *sep-col, env +<span id="L1323" class="LineNr">1323 </span> <span class="muComment"># sandbox</span> +<span id="L1324" class="LineNr">1324 </span> <span class="PreProc">var</span> repl-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *sep-col +<span id="L1325" class="LineNr">1325 </span> repl-col <span class="Special"><-</span> add <span class="Constant">2</span>/repl-margin-left +<span id="L1326" class="LineNr">1326 </span> <span class="PreProc">var</span> cursor-sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, cursor-sandbox +<span id="L1327" class="LineNr">1327 </span> <span class="PreProc">var</span> cursor-sandbox/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-sandbox-ah +<span id="L1328" class="LineNr">1328 </span> <span class="muComment"># bindings</span> +<span id="L1329" class="LineNr">1329 </span> <span class="PreProc">var</span> bindings-storage: <a href='data.mu.html#L59'>table</a> +<span id="L1330" class="LineNr">1330 </span> <span class="PreProc">var</span> bindings/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> address bindings-storage +<span id="L1331" class="LineNr">1331 </span> <a href='table.mu.html#L1'>initialize-table</a> bindings, <span class="Constant">0x10</span> +<span id="L1332" class="LineNr">1332 </span><span class="CommentedCode">#? print-string 0, "render-sandbox {\n"</span> +<span id="L1333" class="LineNr">1333 </span> <a href='environment.mu.html#L1448'>render-sandbox</a> <a href='../405screen.mu.html#L9'>screen</a>, functions, bindings, cursor-sandbox, <span class="Constant">3</span>, repl-col +<span id="L1334" class="LineNr">1334 </span><span class="CommentedCode">#? print-string 0, "render-sandbox }\n"</span> +<span id="L1335" class="LineNr">1335 </span> <span class="muComment"># dialogs</span> +<span id="L1336" class="LineNr">1336 </span> <a href='environment.mu.html#L1409'>render-goto-dialog</a> <a href='../405screen.mu.html#L9'>screen</a>, env +<span id="L1337" class="LineNr">1337 </span> <span class="muComment">#</span> +<span id="L1338" class="LineNr">1338 </span> <a href='environment.mu.html#L1364'>position-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, env +<span id="L1339" class="LineNr">1339 </span><span class="Delimiter">}</span> +<span id="L1340" class="LineNr">1340 </span> +<span id="L1341" class="LineNr">1341 </span><span class="muComment"># draw a wordstar-style cheatsheet of shortcuts on the bottom line of the screen</span> +<span id="L1342" class="LineNr">1342 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1342'>render-menu</a></span> _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L1343" class="LineNr">1343 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L1344" class="LineNr">1344 </span> <span class="PreProc">var</span> cursor-function-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, cursor-function +<span id="L1345" class="LineNr">1345 </span> <span class="PreProc">var</span> cursor-function/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-function-ah +<span id="L1346" class="LineNr">1346 </span> <span class="Delimiter">{</span> +<span id="L1347" class="LineNr">1347 </span> compare cursor-function, <span class="Constant">0</span> +<span id="L1348" class="LineNr">1348 </span> <span class="PreProc">break-if-=</span> +<span id="L1349" class="LineNr">1349 </span> <a href='environment.mu.html#L1927'>render-function-menu</a> env +<span id="L1350" class="LineNr">1350 </span> <span class="PreProc">return</span> +<span id="L1351" class="LineNr">1351 </span> <span class="Delimiter">}</span> +<span id="L1352" class="LineNr">1352 </span> <span class="PreProc">var</span> cursor-sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, cursor-sandbox +<span id="L1353" class="LineNr">1353 </span> <span class="PreProc">var</span> cursor-sandbox/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-sandbox-ah +<span id="L1354" class="LineNr">1354 </span> <span class="Delimiter">{</span> +<span id="L1355" class="LineNr">1355 </span> compare cursor-sandbox, <span class="Constant">0</span> +<span id="L1356" class="LineNr">1356 </span> <span class="PreProc">break-if-=</span> +<span id="L1357" class="LineNr">1357 </span> <a href='environment.mu.html#L1964'>render-sandbox-menu</a> env +<span id="L1358" class="LineNr">1358 </span> <span class="PreProc">return</span> +<span id="L1359" class="LineNr">1359 </span> <span class="Delimiter">}</span> +<span id="L1360" class="LineNr">1360 </span><span class="Delimiter">}</span> +<span id="L1361" class="LineNr">1361 </span> +<span id="L1362" class="LineNr">1362 </span><span class="muComment"># HACK: areas currently responsible for positioning their dialogs' cursors. So</span> +<span id="L1363" class="LineNr">1363 </span><span class="muComment"># we just do nothing here if a dialog is up.</span> +<span id="L1364" class="LineNr">1364 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1364'>position-cursor</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L1365" class="LineNr">1365 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L1366" class="LineNr">1366 </span> <span class="PreProc">var</span> goto-function-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, partial-function-name +<span id="L1367" class="LineNr">1367 </span> <span class="PreProc">var</span> goto-function/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *goto-function-ah +<span id="L1368" class="LineNr">1368 </span> <span class="Delimiter">{</span> +<span id="L1369" class="LineNr">1369 </span> compare goto-function, <span class="Constant">0</span> +<span id="L1370" class="LineNr">1370 </span> <span class="PreProc">break-if-=</span> +<span id="L1371" class="LineNr">1371 </span> <span class="PreProc">return</span> +<span id="L1372" class="LineNr">1372 </span> <span class="Delimiter">}</span> +<span id="L1373" class="LineNr">1373 </span> <span class="PreProc">var</span> cursor-function-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, cursor-function +<span id="L1374" class="LineNr">1374 </span> <span class="PreProc">var</span> cursor-function/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-function-ah +<span id="L1375" class="LineNr">1375 </span> <span class="Delimiter">{</span> +<span id="L1376" class="LineNr">1376 </span> compare cursor-function, <span class="Constant">0</span> +<span id="L1377" class="LineNr">1377 </span> <span class="PreProc">break-if-=</span> +<span id="L1378" class="LineNr">1378 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-function, cursor-row +<span id="L1379" class="LineNr">1379 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-function, cursor-col +<span id="L1380" class="LineNr">1380 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, *cursor-row, *cursor-col +<span id="L1381" class="LineNr">1381 </span> <span class="PreProc">return</span> +<span id="L1382" class="LineNr">1382 </span> <span class="Delimiter">}</span> +<span id="L1383" class="LineNr">1383 </span> <span class="PreProc">var</span> cursor-sandbox-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, cursor-sandbox +<span id="L1384" class="LineNr">1384 </span> <span class="PreProc">var</span> cursor-sandbox/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-sandbox-ah +<span id="L1385" class="LineNr">1385 </span> <span class="Delimiter">{</span> +<span id="L1386" class="LineNr">1386 </span> compare cursor-sandbox, <span class="Constant">0</span> +<span id="L1387" class="LineNr">1387 </span> <span class="PreProc">break-if-=</span> +<span id="L1388" class="LineNr">1388 </span> <span class="muComment"># if in a dialog, return</span> +<span id="L1389" class="LineNr">1389 </span> <span class="Delimiter">{</span> +<span id="L1390" class="LineNr">1390 </span> <span class="PreProc">var</span> partial-word-rename-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-sandbox, partial-name-for-cursor-word +<span id="L1391" class="LineNr">1391 </span> <span class="PreProc">var</span> partial-word-rename/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *partial-word-rename-ah +<span id="L1392" class="LineNr">1392 </span> compare partial-word-rename, <span class="Constant">0</span> +<span id="L1393" class="LineNr">1393 </span> <span class="PreProc">break-if-=</span> +<span id="L1394" class="LineNr">1394 </span> <span class="PreProc">return</span> +<span id="L1395" class="LineNr">1395 </span> <span class="Delimiter">}</span> +<span id="L1396" class="LineNr">1396 </span> <span class="Delimiter">{</span> +<span id="L1397" class="LineNr">1397 </span> <span class="PreProc">var</span> partial-function-name-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-sandbox, partial-name-for-function +<span id="L1398" class="LineNr">1398 </span> <span class="PreProc">var</span> partial-function-name/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *partial-function-name-ah +<span id="L1399" class="LineNr">1399 </span> compare partial-function-name, <span class="Constant">0</span> +<span id="L1400" class="LineNr">1400 </span> <span class="PreProc">break-if-=</span> +<span id="L1401" class="LineNr">1401 </span> <span class="PreProc">return</span> +<span id="L1402" class="LineNr">1402 </span> <span class="Delimiter">}</span> +<span id="L1403" class="LineNr">1403 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-sandbox, cursor-row +<span id="L1404" class="LineNr">1404 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-sandbox, cursor-col +<span id="L1405" class="LineNr">1405 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, *cursor-row, *cursor-col +<span id="L1406" class="LineNr">1406 </span> <span class="Delimiter">}</span> +<span id="L1407" class="LineNr">1407 </span><span class="Delimiter">}</span> +<span id="L1408" class="LineNr">1408 </span> +<span id="L1409" class="LineNr">1409 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1409'>render-goto-dialog</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L1410" class="LineNr">1410 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L1411" class="LineNr">1411 </span> <span class="PreProc">var</span> goto-function-mode-ah?/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, partial-function-name +<span id="L1412" class="LineNr">1412 </span> <span class="PreProc">var</span> goto-function-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *goto-function-mode-ah? +<span id="L1413" class="LineNr">1413 </span> compare goto-function-mode?, <span class="Constant">0</span>/false +<span id="L1414" class="LineNr">1414 </span> <span class="PreProc">break-if-=</span> +<span id="L1415" class="LineNr">1415 </span> <span class="muComment"># clear a space for the dialog</span> +<span id="L1416" class="LineNr">1416 </span> <span class="PreProc">var</span> top-row/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">3</span> +<span id="L1417" class="LineNr">1417 </span> <span class="PreProc">var</span> bottom-row/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">9</span> +<span id="L1418" class="LineNr">1418 </span> <span class="PreProc">var</span> sep-col/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L1419" class="LineNr">1419 </span> <span class="PreProc">var</span> left-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *sep-col +<span id="L1420" class="LineNr">1420 </span> left-col <span class="Special"><-</span> subtract <span class="Constant">0x10</span> +<span id="L1421" class="LineNr">1421 </span> <span class="PreProc">var</span> right-col/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *sep-col +<span id="L1422" class="LineNr">1422 </span> right-col <span class="Special"><-</span> add <span class="Constant">0x10</span> +<span id="L1423" class="LineNr">1423 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col +<span id="L1424" class="LineNr">1424 </span> <a href='box.mu.html#L1'>draw-box</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col +<span id="L1425" class="LineNr">1425 </span> <span class="muComment"># render a little menu for the dialog</span> +<span id="L1426" class="LineNr">1426 </span> <span class="PreProc">var</span> menu-row/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy bottom-row +<span id="L1427" class="LineNr">1427 </span> menu-row <span class="Special"><-</span> decrement +<span id="L1428" class="LineNr">1428 </span> <span class="PreProc">var</span> menu-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1429" class="LineNr">1429 </span> menu-col <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L1430" class="LineNr">1430 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, menu-row, menu-col +<span id="L1431" class="LineNr">1431 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1432" class="LineNr">1432 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" esc "</span> +<span id="L1433" class="LineNr">1433 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1434" class="LineNr">1434 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" cancel "</span> +<span id="L1435" class="LineNr">1435 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1436" class="LineNr">1436 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" enter "</span> +<span id="L1437" class="LineNr">1437 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1438" class="LineNr">1438 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" jump "</span> +<span id="L1439" class="LineNr">1439 </span> <span class="muComment"># draw the word, positioned appropriately around the cursor</span> +<span id="L1440" class="LineNr">1440 </span> <span class="PreProc">var</span> start-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1441" class="LineNr">1441 </span> start-col <span class="Special"><-</span> increment +<span id="L1442" class="LineNr">1442 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">6</span>, start-col <span class="muComment"># cursor-row</span> +<span id="L1443" class="LineNr">1443 </span> <span class="PreProc">var</span> word-ah?/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, partial-function-name +<span id="L1444" class="LineNr">1444 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah? +<span id="L1445" class="LineNr">1445 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L42'>word</a> +<span id="L1446" class="LineNr">1446 </span><span class="Delimiter">}</span> +<span id="L1447" class="LineNr">1447 </span> +<span id="L1448" class="LineNr">1448 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1448'>render-sandbox</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), bindings: (addr <a href='data.mu.html#L59'>table</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), top-row: int, left-col: int <span class="Delimiter">{</span> +<span id="L1449" class="LineNr">1449 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1450" class="LineNr">1450 </span> <span class="muComment"># line</span> +<span id="L1451" class="LineNr">1451 </span> <span class="PreProc">var</span> curr-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L1452" class="LineNr">1452 </span> <span class="PreProc">var</span> _curr-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-line-ah +<span id="L1453" class="LineNr">1453 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _curr-line +<span id="L1454" class="LineNr">1454 </span> <span class="muComment">#</span> +<span id="L1455" class="LineNr">1455 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy top-row +<span id="L1456" class="LineNr">1456 </span> <span class="muComment"># cursor row, col</span> +<span id="L1457" class="LineNr">1457 </span> <span class="PreProc">var</span> cursor-row-addr: (addr int) +<span id="L1458" class="LineNr">1458 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-row +<span id="L1459" class="LineNr">1459 </span> copy-to cursor-row-addr, tmp +<span id="L1460" class="LineNr">1460 </span> <span class="PreProc">var</span> cursor-col-addr: (addr int) +<span id="L1461" class="LineNr">1461 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-col +<span id="L1462" class="LineNr">1462 </span> copy-to cursor-col-addr, tmp +<span id="L1463" class="LineNr">1463 </span> <span class="muComment"># render all but final line without stack</span> +<span id="L1464" class="LineNr">1464 </span><span class="CommentedCode">#? print-string 0, "render all but final line\n"</span> +<span id="L1465" class="LineNr">1465 </span> <span class="Delimiter">{</span> +<span id="L1466" class="LineNr">1466 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-line, next +<span id="L1467" class="LineNr">1467 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-line-ah +<span id="L1468" class="LineNr">1468 </span> compare next-line, <span class="Constant">0</span> +<span id="L1469" class="LineNr">1469 </span> <span class="PreProc">break-if-=</span> +<span id="L1470" class="LineNr">1470 </span> <span class="Delimiter">{</span> +<span id="L1471" class="LineNr">1471 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L1472" class="LineNr">1472 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L1473" class="LineNr">1473 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L1474" class="LineNr">1474 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L1475" class="LineNr">1475 </span> <span class="muComment"># it's enough to pass in the first word of the path, because if the path isn't a singleton the word is guaranteed to be unique</span> +<span id="L1476" class="LineNr">1476 </span> <a href='environment.mu.html#L1634'>render-line-without-stack</a> <a href='../405screen.mu.html#L9'>screen</a>, curr-line, curr-row, left-col, cursor-word, cursor-row-addr, cursor-col-addr +<span id="L1477" class="LineNr">1477 </span> <span class="Delimiter">}</span> +<span id="L1478" class="LineNr">1478 </span> curr-line <span class="Special"><-</span> copy next-line +<span id="L1479" class="LineNr">1479 </span> curr-row <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L1480" class="LineNr">1480 </span> <span class="PreProc">loop</span> +<span id="L1481" class="LineNr">1481 </span> <span class="Delimiter">}</span> +<span id="L1482" class="LineNr">1482 </span> <span class="muComment">#</span> +<span id="L1483" class="LineNr">1483 </span> <a href='environment.mu.html#L1489'>render-final-line-with-stack</a> <a href='../405screen.mu.html#L9'>screen</a>, functions, bindings, <a href='data.mu.html#L5'>sandbox</a>, curr-row, left-col, cursor-row-addr, cursor-col-addr +<span id="L1484" class="LineNr">1484 </span> <span class="muComment"># at most one of the following dialogs will be rendered</span> +<span id="L1485" class="LineNr">1485 </span> <a href='environment.mu.html#L1541'>render-rename-dialog</a> <a href='../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L5'>sandbox</a> +<span id="L1486" class="LineNr">1486 </span> <a href='environment.mu.html#L1587'>render-define-dialog</a> <a href='../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L5'>sandbox</a> +<span id="L1487" class="LineNr">1487 </span><span class="Delimiter">}</span> +<span id="L1488" class="LineNr">1488 </span> +<span id="L1489" class="LineNr">1489 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1489'>render-final-line-with-stack</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), bindings: (addr <a href='data.mu.html#L59'>table</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), top-row: int, left-col: int, cursor-row-addr: (addr int), cursor-col-addr: (addr int) <span class="Delimiter">{</span> +<span id="L1490" class="LineNr">1490 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1491" class="LineNr">1491 </span> <span class="muComment"># expanded-words</span> +<span id="L1492" class="LineNr">1492 </span> <span class="PreProc">var</span> expanded-words/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L71'>call-path</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, expanded-words +<span id="L1493" class="LineNr">1493 </span> <span class="muComment"># cursor-word</span> +<span id="L1494" class="LineNr">1494 </span> <span class="PreProc">var</span> cursor-call-path-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L1495" class="LineNr">1495 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-call-path-ah +<span id="L1496" class="LineNr">1496 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-call-path, <a href='data.mu.html#L42'>word</a> +<span id="L1497" class="LineNr">1497 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L1498" class="LineNr">1498 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _cursor-word +<span id="L1499" class="LineNr">1499 </span><span class="CommentedCode">#? print-string 0, "word at cursor: "</span> +<span id="L1500" class="LineNr">1500 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> +<span id="L1501" class="LineNr">1501 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1502" class="LineNr">1502 </span> <span class="muComment"># cursor-call-path</span> +<span id="L1503" class="LineNr">1503 </span> <span class="PreProc">var</span> cursor-call-path: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) +<span id="L1504" class="LineNr">1504 </span> <span class="Delimiter">{</span> +<span id="L1505" class="LineNr">1505 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L1506" class="LineNr">1506 </span> copy-to cursor-call-path, src +<span id="L1507" class="LineNr">1507 </span> <span class="Delimiter">}</span> +<span id="L1508" class="LineNr">1508 </span> <span class="muComment"># first line</span> +<span id="L1509" class="LineNr">1509 </span> <span class="PreProc">var</span> first-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L1510" class="LineNr">1510 </span> <span class="PreProc">var</span> _first-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *first-line-ah +<span id="L1511" class="LineNr">1511 </span> <span class="PreProc">var</span> first-line/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _first-line +<span id="L1512" class="LineNr">1512 </span> <span class="muComment"># final line</span> +<span id="L1513" class="LineNr">1513 </span> <span class="PreProc">var</span> final-line-storage: (handle <a href='data.mu.html#L34'>line</a>) +<span id="L1514" class="LineNr">1514 </span> <span class="PreProc">var</span> final-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> address final-line-storage +<span id="L1515" class="LineNr">1515 </span> <a href='environment.mu.html#L1526'>final-line</a> <a href='data.mu.html#L5'>sandbox</a>, final-line-ah +<span id="L1516" class="LineNr">1516 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1526'>final-line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *final-line-ah +<span id="L1517" class="LineNr">1517 </span> <span class="muComment"># curr-path</span> +<span id="L1518" class="LineNr">1518 </span> <span class="PreProc">var</span> curr-path-storage: (handle <a href='data.mu.html#L77'>call-path-element</a>) +<span id="L1519" class="LineNr">1519 </span> <span class="PreProc">var</span> curr-path/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> address curr-path-storage +<span id="L1520" class="LineNr">1520 </span> <a href='../120allocate.subx.html#L66'>allocate</a> curr-path <span class="muComment"># leak</span> +<span id="L1521" class="LineNr">1521 </span> <a href='data.mu.html#L318'>initialize-path-from-line</a> <a href='environment.mu.html#L1526'>final-line</a>, curr-path +<span id="L1522" class="LineNr">1522 </span> <span class="muComment">#</span> +<span id="L1523" class="LineNr">1523 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='environment.mu.html#L1720'>render-line</a> <a href='../405screen.mu.html#L9'>screen</a>, functions, bindings, first-line, <a href='environment.mu.html#L1526'>final-line</a>, expanded-words, top-row, left-col, curr-path, cursor-word, cursor-call-path, cursor-row-addr, cursor-col-addr +<span id="L1524" class="LineNr">1524 </span><span class="Delimiter">}</span> +<span id="L1525" class="LineNr">1525 </span> +<span id="L1526" class="LineNr">1526 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1526'>final-line</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), out: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Delimiter">{</span> +<span id="L1527" class="LineNr">1527 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1528" class="LineNr">1528 </span> <span class="PreProc">var</span> curr-line-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, data +<span id="L1529" class="LineNr">1529 </span> <span class="Delimiter">{</span> +<span id="L1530" class="LineNr">1530 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-line-ah +<span id="L1531" class="LineNr">1531 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-line, next +<span id="L1532" class="LineNr">1532 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-line-ah +<span id="L1533" class="LineNr">1533 </span> compare next-line, <span class="Constant">0</span> +<span id="L1534" class="LineNr">1534 </span> <span class="PreProc">break-if-=</span> +<span id="L1535" class="LineNr">1535 </span> curr-line-ah <span class="Special"><-</span> copy next-line-ah +<span id="L1536" class="LineNr">1536 </span> <span class="PreProc">loop</span> +<span id="L1537" class="LineNr">1537 </span> <span class="Delimiter">}</span> +<span id="L1538" class="LineNr">1538 </span> copy-object curr-line-ah, out +<span id="L1539" class="LineNr">1539 </span><span class="Delimiter">}</span> +<span id="L1540" class="LineNr">1540 </span> +<span id="L1541" class="LineNr">1541 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1541'>render-rename-dialog</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Delimiter">{</span> +<span id="L1542" class="LineNr">1542 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1543" class="LineNr">1543 </span> <span class="PreProc">var</span> rename-word-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word +<span id="L1544" class="LineNr">1544 </span> <span class="PreProc">var</span> rename-word-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *rename-word-mode-ah? +<span id="L1545" class="LineNr">1545 </span> compare rename-word-mode?, <span class="Constant">0</span>/false +<span id="L1546" class="LineNr">1546 </span> <span class="PreProc">break-if-=</span> +<span id="L1547" class="LineNr">1547 </span> <span class="muComment"># clear a space for the dialog</span> +<span id="L1548" class="LineNr">1548 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-row +<span id="L1549" class="LineNr">1549 </span> <span class="PreProc">var</span> top-row/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *cursor-row +<span id="L1550" class="LineNr">1550 </span> top-row <span class="Special"><-</span> subtract <span class="Constant">3</span> +<span id="L1551" class="LineNr">1551 </span> <span class="PreProc">var</span> bottom-row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-row +<span id="L1552" class="LineNr">1552 </span> bottom-row <span class="Special"><-</span> add <span class="Constant">3</span> +<span id="L1553" class="LineNr">1553 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-col +<span id="L1554" class="LineNr">1554 </span> <span class="PreProc">var</span> left-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *cursor-col +<span id="L1555" class="LineNr">1555 </span> left-col <span class="Special"><-</span> subtract <span class="Constant">0x10</span> +<span id="L1556" class="LineNr">1556 </span> <span class="PreProc">var</span> right-col/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-col +<span id="L1557" class="LineNr">1557 </span> right-col <span class="Special"><-</span> add <span class="Constant">0x10</span> +<span id="L1558" class="LineNr">1558 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col +<span id="L1559" class="LineNr">1559 </span> <a href='box.mu.html#L1'>draw-box</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col +<span id="L1560" class="LineNr">1560 </span> <span class="muComment"># render a little menu for the dialog</span> +<span id="L1561" class="LineNr">1561 </span> <span class="PreProc">var</span> menu-row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bottom-row +<span id="L1562" class="LineNr">1562 </span> menu-row <span class="Special"><-</span> decrement +<span id="L1563" class="LineNr">1563 </span> <span class="PreProc">var</span> menu-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1564" class="LineNr">1564 </span> menu-col <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L1565" class="LineNr">1565 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, menu-row, menu-col +<span id="L1566" class="LineNr">1566 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1567" class="LineNr">1567 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" esc "</span> +<span id="L1568" class="LineNr">1568 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1569" class="LineNr">1569 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" cancel "</span> +<span id="L1570" class="LineNr">1570 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1571" class="LineNr">1571 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" enter "</span> +<span id="L1572" class="LineNr">1572 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1573" class="LineNr">1573 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" rename "</span> +<span id="L1574" class="LineNr">1574 </span> <span class="muComment"># draw the word, positioned appropriately around the cursor</span> +<span id="L1575" class="LineNr">1575 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-col +<span id="L1576" class="LineNr">1576 </span> <span class="PreProc">var</span> start-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-col +<span id="L1577" class="LineNr">1577 </span> <span class="PreProc">var</span> word-ah?/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word +<span id="L1578" class="LineNr">1578 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah? +<span id="L1579" class="LineNr">1579 </span> <span class="PreProc">var</span> <a href='word.mu.html#L199'>cursor-index</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L199'>cursor-index</a> <a href='data.mu.html#L42'>word</a> +<span id="L1580" class="LineNr">1580 </span> start-col <span class="Special"><-</span> subtract <a href='word.mu.html#L199'>cursor-index</a> +<span id="L1581" class="LineNr">1581 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-row +<span id="L1582" class="LineNr">1582 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, *cursor-row, start-col +<span id="L1583" class="LineNr">1583 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah? +<span id="L1584" class="LineNr">1584 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L42'>word</a> +<span id="L1585" class="LineNr">1585 </span><span class="Delimiter">}</span> +<span id="L1586" class="LineNr">1586 </span> +<span id="L1587" class="LineNr">1587 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1587'>render-define-dialog</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Delimiter">{</span> +<span id="L1588" class="LineNr">1588 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1589" class="LineNr">1589 </span> <span class="PreProc">var</span> define-function-mode-ah?/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-function +<span id="L1590" class="LineNr">1590 </span> <span class="PreProc">var</span> define-function-mode?/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *define-function-mode-ah? +<span id="L1591" class="LineNr">1591 </span> compare define-function-mode?, <span class="Constant">0</span>/false +<span id="L1592" class="LineNr">1592 </span> <span class="PreProc">break-if-=</span> +<span id="L1593" class="LineNr">1593 </span> <span class="muComment"># clear a space for the dialog</span> +<span id="L1594" class="LineNr">1594 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-row +<span id="L1595" class="LineNr">1595 </span> <span class="PreProc">var</span> top-row/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *cursor-row +<span id="L1596" class="LineNr">1596 </span> top-row <span class="Special"><-</span> subtract <span class="Constant">3</span> +<span id="L1597" class="LineNr">1597 </span> <span class="PreProc">var</span> bottom-row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-row +<span id="L1598" class="LineNr">1598 </span> bottom-row <span class="Special"><-</span> add <span class="Constant">3</span> +<span id="L1599" class="LineNr">1599 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-col +<span id="L1600" class="LineNr">1600 </span> <span class="PreProc">var</span> left-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *cursor-col +<span id="L1601" class="LineNr">1601 </span> left-col <span class="Special"><-</span> subtract <span class="Constant">0x10</span> +<span id="L1602" class="LineNr">1602 </span> <span class="PreProc">var</span> right-col/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-col +<span id="L1603" class="LineNr">1603 </span> right-col <span class="Special"><-</span> add <span class="Constant">0x10</span> +<span id="L1604" class="LineNr">1604 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col +<span id="L1605" class="LineNr">1605 </span> <a href='box.mu.html#L1'>draw-box</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, left-col, bottom-row, right-col +<span id="L1606" class="LineNr">1606 </span> <span class="muComment"># render a little menu for the dialog</span> +<span id="L1607" class="LineNr">1607 </span> <span class="PreProc">var</span> menu-row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bottom-row +<span id="L1608" class="LineNr">1608 </span> menu-row <span class="Special"><-</span> decrement +<span id="L1609" class="LineNr">1609 </span> <span class="PreProc">var</span> menu-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1610" class="LineNr">1610 </span> menu-col <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L1611" class="LineNr">1611 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, menu-row, menu-col +<span id="L1612" class="LineNr">1612 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1613" class="LineNr">1613 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" esc "</span> +<span id="L1614" class="LineNr">1614 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1615" class="LineNr">1615 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" cancel "</span> +<span id="L1616" class="LineNr">1616 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1617" class="LineNr">1617 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" enter "</span> +<span id="L1618" class="LineNr">1618 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1619" class="LineNr">1619 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" define "</span> +<span id="L1620" class="LineNr">1620 </span> <span class="muComment"># draw the word, positioned appropriately around the cursor</span> +<span id="L1621" class="LineNr">1621 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-col +<span id="L1622" class="LineNr">1622 </span> <span class="PreProc">var</span> start-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-col +<span id="L1623" class="LineNr">1623 </span> <span class="PreProc">var</span> word-ah?/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-function +<span id="L1624" class="LineNr">1624 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah? +<span id="L1625" class="LineNr">1625 </span> <span class="PreProc">var</span> <a href='word.mu.html#L199'>cursor-index</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L199'>cursor-index</a> <a href='data.mu.html#L42'>word</a> +<span id="L1626" class="LineNr">1626 </span> start-col <span class="Special"><-</span> subtract <a href='word.mu.html#L199'>cursor-index</a> +<span id="L1627" class="LineNr">1627 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-row +<span id="L1628" class="LineNr">1628 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, *cursor-row, start-col +<span id="L1629" class="LineNr">1629 </span> <span class="PreProc">var</span> <a href='data.mu.html#L42'>word</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah? +<span id="L1630" class="LineNr">1630 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, <a href='data.mu.html#L42'>word</a> +<span id="L1631" class="LineNr">1631 </span><span class="Delimiter">}</span> +<span id="L1632" class="LineNr">1632 </span> +<span id="L1633" class="LineNr">1633 </span><span class="muComment"># Render just the words in 'line'.</span> +<span id="L1634" class="LineNr">1634 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1634'>render-line-without-stack</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _line: (addr <a href='data.mu.html#L34'>line</a>), curr-row: int, left-col: int, cursor-word: (addr <a href='data.mu.html#L42'>word</a>), cursor-row-addr: (addr int), cursor-col-addr: (addr int) <span class="Delimiter">{</span> +<span id="L1635" class="LineNr">1635 </span> <span class="muComment"># curr-word</span> +<span id="L1636" class="LineNr">1636 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _line +<span id="L1637" class="LineNr">1637 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L1638" class="LineNr">1638 </span> <span class="PreProc">var</span> _curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *first-word-ah +<span id="L1639" class="LineNr">1639 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _curr-word +<span id="L1640" class="LineNr">1640 </span> <span class="muComment">#</span> +<span id="L1641" class="LineNr">1641 </span> <span class="muComment"># loop-carried dependency</span> +<span id="L1642" class="LineNr">1642 </span> <span class="PreProc">var</span> curr-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1643" class="LineNr">1643 </span> <span class="muComment">#</span> +<span id="L1644" class="LineNr">1644 </span> <span class="Delimiter">{</span> +<span id="L1645" class="LineNr">1645 </span> compare curr-word, <span class="Constant">0</span> +<span id="L1646" class="LineNr">1646 </span> <span class="PreProc">break-if-=</span> +<span id="L1647" class="LineNr">1647 </span><span class="CommentedCode">#? print-string 0, "-- word in penultimate lines: "</span> +<span id="L1648" class="LineNr">1648 </span><span class="CommentedCode">#? {</span> +<span id="L1649" class="LineNr">1649 </span><span class="CommentedCode">#? var foo/eax: int <- copy curr-word</span> +<span id="L1650" class="LineNr">1650 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L1651" class="LineNr">1651 </span><span class="CommentedCode">#? }</span> +<span id="L1652" class="LineNr">1652 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1653" class="LineNr">1653 </span> <span class="PreProc">var</span> old-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy curr-col +<span id="L1654" class="LineNr">1654 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, curr-row, curr-col +<span id="L1655" class="LineNr">1655 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, curr-word +<span id="L1656" class="LineNr">1656 </span> <span class="Delimiter">{</span> +<span id="L1657" class="LineNr">1657 </span> <span class="PreProc">var</span> max-width/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L106'>word-length</a> curr-word +<span id="L1658" class="LineNr">1658 </span> curr-col <span class="Special"><-</span> add max-width +<span id="L1659" class="LineNr">1659 </span> curr-col <span class="Special"><-</span> add <span class="Constant">1</span>/margin-right +<span id="L1660" class="LineNr">1660 </span> <span class="Delimiter">}</span> +<span id="L1661" class="LineNr">1661 </span> <span class="muComment"># cache cursor column if necessary</span> +<span id="L1662" class="LineNr">1662 </span> <span class="Delimiter">{</span> +<span id="L1663" class="LineNr">1663 </span> compare curr-word, cursor-word +<span id="L1664" class="LineNr">1664 </span> <span class="PreProc">break-if-!=</span> +<span id="L1665" class="LineNr">1665 </span><span class="CommentedCode">#? print-string 0, "Cursor at "</span> +<span id="L1666" class="LineNr">1666 </span><span class="CommentedCode">#? print-int32-decimal 0, curr-row</span> +<span id="L1667" class="LineNr">1667 </span><span class="CommentedCode">#? print-string 0, ", "</span> +<span id="L1668" class="LineNr">1668 </span><span class="CommentedCode">#? print-int32-decimal 0, old-col</span> +<span id="L1669" class="LineNr">1669 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1670" class="LineNr">1670 </span><span class="CommentedCode">#? print-string 0, "contents: "</span> +<span id="L1671" class="LineNr">1671 </span><span class="CommentedCode">#? print-word 0, cursor-word</span> +<span id="L1672" class="LineNr">1672 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1673" class="LineNr">1673 </span><span class="CommentedCode">#? {</span> +<span id="L1674" class="LineNr">1674 </span><span class="CommentedCode">#? var foo/eax: int <- copy cursor-word</span> +<span id="L1675" class="LineNr">1675 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L1676" class="LineNr">1676 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1677" class="LineNr">1677 </span><span class="CommentedCode">#? }</span> +<span id="L1678" class="LineNr">1678 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> copy cursor-row-addr +<span id="L1679" class="LineNr">1679 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy curr-row +<span id="L1680" class="LineNr">1680 </span> copy-to *dest, src +<span id="L1681" class="LineNr">1681 </span> dest <span class="Special"><-</span> copy cursor-col-addr +<span id="L1682" class="LineNr">1682 </span> copy-to *dest, old-col +<span id="L1683" class="LineNr">1683 </span> <span class="PreProc">var</span> cursor-index-in-word/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L199'>cursor-index</a> curr-word +<span id="L1684" class="LineNr">1684 </span> add-to *dest, cursor-index-in-word +<span id="L1685" class="LineNr">1685 </span> <span class="Delimiter">}</span> +<span id="L1686" class="LineNr">1686 </span> <span class="muComment"># loop update</span> +<span id="L1687" class="LineNr">1687 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-word, next +<span id="L1688" class="LineNr">1688 </span> <span class="PreProc">var</span> _curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L1689" class="LineNr">1689 </span> curr-word <span class="Special"><-</span> copy _curr-word +<span id="L1690" class="LineNr">1690 </span> <span class="PreProc">loop</span> +<span id="L1691" class="LineNr">1691 </span> <span class="Delimiter">}</span> +<span id="L1692" class="LineNr">1692 </span><span class="Delimiter">}</span> +<span id="L1693" class="LineNr">1693 </span> +<span id="L1694" class="LineNr">1694 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1694'>call-depth-at-cursor</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L1695" class="LineNr">1695 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox +<span id="L1696" class="LineNr">1696 </span> <span class="PreProc">var</span> cursor-call-path/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path +<span id="L1697" class="LineNr">1697 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='environment.mu.html#L1702'>call-path-element-length</a> cursor-call-path +<span id="L1698" class="LineNr">1698 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add <span class="Constant">2</span> <span class="muComment"># input-row - 1</span> +<span id="L1699" class="LineNr">1699 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L1700" class="LineNr">1700 </span><span class="Delimiter">}</span> +<span id="L1701" class="LineNr">1701 </span> +<span id="L1702" class="LineNr">1702 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1702'>call-path-element-length</a></span> _x: (addr handle <a href='data.mu.html#L77'>call-path-element</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L1703" class="LineNr">1703 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> copy _x +<span id="L1704" class="LineNr">1704 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1705" class="LineNr">1705 </span> <span class="Delimiter">{</span> +<span id="L1706" class="LineNr">1706 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L1707" class="LineNr">1707 </span> compare curr, <span class="Constant">0</span> +<span id="L1708" class="LineNr">1708 </span> <span class="PreProc">break-if-=</span> +<span id="L1709" class="LineNr">1709 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L1710" class="LineNr">1710 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment +<span id="L1711" class="LineNr">1711 </span> <span class="PreProc">loop</span> +<span id="L1712" class="LineNr">1712 </span> <span class="Delimiter">}</span> +<span id="L1713" class="LineNr">1713 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L1714" class="LineNr">1714 </span><span class="Delimiter">}</span> +<span id="L1715" class="LineNr">1715 </span> +<span id="L1716" class="LineNr">1716 </span><span class="muComment"># Render the line of words in line, along with the state of the stack under each word.</span> +<span id="L1717" class="LineNr">1717 </span><span class="muComment"># Also render any expanded function calls using recursive calls.</span> +<span id="L1718" class="LineNr">1718 </span><span class="muComment">#</span> +<span id="L1719" class="LineNr">1719 </span><span class="muComment"># Along the way, compute the column the cursor should be positioned at (cursor-col-addr).</span> +<span id="L1720" class="LineNr">1720 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1720'>render-line</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), bindings: (addr <a href='data.mu.html#L59'>table</a>), first-line: (addr <a href='data.mu.html#L34'>line</a>), _line: (addr <a href='data.mu.html#L34'>line</a>), expanded-words: (addr handle <a href='data.mu.html#L71'>call-path</a>), top-row: int, left-col: int, curr-path: (addr handle <a href='data.mu.html#L77'>call-path-element</a>), cursor-word: (addr <a href='data.mu.html#L42'>word</a>), cursor-call-path: (addr handle <a href='data.mu.html#L77'>call-path-element</a>), cursor-row-addr: (addr int), cursor-col-addr: (addr int)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L1721" class="LineNr">1721 </span><span class="CommentedCode">#? print-string 0, "render-line\n"</span> +<span id="L1722" class="LineNr">1722 </span><span class="CommentedCode">#? dump-table bindings</span> +<span id="L1723" class="LineNr">1723 </span> <span class="muComment"># curr-word</span> +<span id="L1724" class="LineNr">1724 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy _line +<span id="L1725" class="LineNr">1725 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L1726" class="LineNr">1726 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *first-word-ah +<span id="L1727" class="LineNr">1727 </span> <span class="muComment">#</span> +<span id="L1728" class="LineNr">1728 </span> <span class="muComment"># loop-carried dependency</span> +<span id="L1729" class="LineNr">1729 </span> <span class="PreProc">var</span> curr-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1730" class="LineNr">1730 </span> <span class="muComment">#</span> +<span id="L1731" class="LineNr">1731 </span> <span class="Delimiter">{</span> +<span id="L1732" class="LineNr">1732 </span> compare curr-word, <span class="Constant">0</span> +<span id="L1733" class="LineNr">1733 </span> <span class="PreProc">break-if-=</span> +<span id="L1734" class="LineNr">1734 </span><span class="CommentedCode">#? print-string 0, "-- word "</span> +<span id="L1735" class="LineNr">1735 </span><span class="CommentedCode">#? print-word 0, curr-word</span> +<span id="L1736" class="LineNr">1736 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1737" class="LineNr">1737 </span> <span class="muComment"># if necessary, first render columns for subsidiary stack</span> +<span id="L1738" class="LineNr">1738 </span> $render-line:subsidiary: <span class="Delimiter">{</span> +<span id="L1739" class="LineNr">1739 </span> <span class="Delimiter">{</span> +<span id="L1740" class="LineNr">1740 </span><span class="CommentedCode">#? print-string 0, "check sub\n"</span> +<span id="L1741" class="LineNr">1741 </span> <span class="PreProc">var</span> display-subsidiary-stack?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L327'>find-in-call-paths</a> expanded-words, curr-path +<span id="L1742" class="LineNr">1742 </span> compare display-subsidiary-stack?, <span class="Constant">0</span>/false +<span id="L1743" class="LineNr">1743 </span> <span class="PreProc">break-if-=</span> $render-line:subsidiary +<span id="L1744" class="LineNr">1744 </span> <span class="Delimiter">}</span> +<span id="L1745" class="LineNr">1745 </span><span class="CommentedCode">#? print-string 0, "render subsidiary stack\n"</span> +<span id="L1746" class="LineNr">1746 </span> <span class="muComment"># does function exist?</span> +<span id="L1747" class="LineNr">1747 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1846'>callee</a>/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1748" class="LineNr">1748 </span> <span class="Delimiter">{</span> +<span id="L1749" class="LineNr">1749 </span> <span class="PreProc">var</span> callee-h: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L1750" class="LineNr">1750 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> address callee-h +<span id="L1751" class="LineNr">1751 </span> <a href='environment.mu.html#L1846'>callee</a> functions, curr-word, callee-ah +<span id="L1752" class="LineNr">1752 </span> <span class="PreProc">var</span> _callee/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *callee-ah +<span id="L1753" class="LineNr">1753 </span> <a href='environment.mu.html#L1846'>callee</a> <span class="Special"><-</span> copy _callee +<span id="L1754" class="LineNr">1754 </span> compare <a href='environment.mu.html#L1846'>callee</a>, <span class="Constant">0</span> +<span id="L1755" class="LineNr">1755 </span> <span class="PreProc">break-if-=</span> $render-line:subsidiary +<span id="L1756" class="LineNr">1756 </span> <span class="Delimiter">}</span> +<span id="L1757" class="LineNr">1757 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, curr-col +<span id="L1758" class="LineNr">1758 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">8</span>, <span class="Constant">7</span> +<span id="L1759" class="LineNr">1759 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, curr-word +<span id="L1760" class="LineNr">1760 </span> <span class="Delimiter">{</span> +<span id="L1761" class="LineNr">1761 </span> <span class="PreProc">var</span> word-len/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L106'>word-length</a> curr-word +<span id="L1762" class="LineNr">1762 </span> curr-col <span class="Special"><-</span> add word-len +<span id="L1763" class="LineNr">1763 </span> curr-col <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L1764" class="LineNr">1764 </span> increment top-row +<span id="L1765" class="LineNr">1765 </span> <span class="Delimiter">}</span> +<span id="L1766" class="LineNr">1766 </span> <span class="muComment"># obtain stack at call site</span> +<span id="L1767" class="LineNr">1767 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L3'>value-stack</a> +<span id="L1768" class="LineNr">1768 </span> <span class="PreProc">var</span> stack/<span class="Constant">edx</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> address stack-storage +<span id="L1769" class="LineNr">1769 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack, <span class="Constant">0x10</span> +<span id="L1770" class="LineNr">1770 </span> <span class="Delimiter">{</span> +<span id="L1771" class="LineNr">1771 </span> <span class="PreProc">var</span> prev-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-word, prev +<span id="L1772" class="LineNr">1772 </span> <span class="PreProc">var</span> prev-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-word-ah +<span id="L1773" class="LineNr">1773 </span> compare prev-word, <span class="Constant">0</span> +<span id="L1774" class="LineNr">1774 </span> <span class="PreProc">break-if-=</span> +<span id="L1775" class="LineNr">1775 </span> <span class="PreProc">var</span> bindings2-storage: <a href='data.mu.html#L59'>table</a> +<span id="L1776" class="LineNr">1776 </span> <span class="PreProc">var</span> bindings2/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> address bindings2-storage +<span id="L1777" class="LineNr">1777 </span> <a href='table.mu.html#L7'>deep-copy-table</a> bindings, bindings2 +<span id="L1778" class="LineNr">1778 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, bindings2, first-line, prev-word, stack +<span id="L1779" class="LineNr">1779 </span> <span class="Delimiter">}</span> +<span id="L1780" class="LineNr">1780 </span> <span class="muComment"># construct new bindings</span> +<span id="L1781" class="LineNr">1781 </span> <span class="PreProc">var</span> callee-bindings-storage: <a href='data.mu.html#L59'>table</a> +<span id="L1782" class="LineNr">1782 </span> <span class="PreProc">var</span> callee-bindings/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> address callee-bindings-storage +<span id="L1783" class="LineNr">1783 </span> <a href='table.mu.html#L1'>initialize-table</a> callee-bindings, <span class="Constant">0x10</span> +<span id="L1784" class="LineNr">1784 </span> <a href='rpn.mu.html#L828'>bind-args</a> <a href='environment.mu.html#L1846'>callee</a>, stack, callee-bindings +<span id="L1785" class="LineNr">1785 </span> <span class="muComment"># obtain body</span> +<span id="L1786" class="LineNr">1786 </span> <span class="PreProc">var</span> callee-body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1846'>callee</a>, body +<span id="L1787" class="LineNr">1787 </span> <span class="PreProc">var</span> callee-body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *callee-body-ah +<span id="L1788" class="LineNr">1788 </span> <span class="PreProc">var</span> callee-body-first-word/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> callee-body, data +<span id="L1789" class="LineNr">1789 </span> <span class="muComment"># - render subsidiary stack</span> +<span id="L1790" class="LineNr">1790 </span> <a href='data.mu.html#L515'>push-to-call-path-element</a> curr-path, callee-body-first-word <span class="muComment"># leak</span> +<span id="L1791" class="LineNr">1791 </span><span class="CommentedCode">#? print-string 0, "subsidiary {\n"</span> +<span id="L1792" class="LineNr">1792 </span><span class="CommentedCode">#? dump-table callee-bindings</span> +<span id="L1793" class="LineNr">1793 </span><span class="CommentedCode">#? syscall_exit</span> +<span id="L1794" class="LineNr">1794 </span> curr-col <span class="Special"><-</span> <a href='environment.mu.html#L1720'>render-line</a> <a href='../405screen.mu.html#L9'>screen</a>, functions, callee-bindings, callee-body, callee-body, expanded-words, top-row, curr-col, curr-path, cursor-word, cursor-call-path, cursor-row-addr, cursor-col-addr +<span id="L1795" class="LineNr">1795 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> +<span id="L1796" class="LineNr">1796 </span> <a href='data.mu.html#L530'>drop-from-call-path-element</a> curr-path +<span id="L1797" class="LineNr">1797 </span> <span class="muComment">#</span> +<span id="L1798" class="LineNr">1798 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, curr-col +<span id="L1799" class="LineNr">1799 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x21d7</span>/⇗ +<span id="L1800" class="LineNr">1800 </span> <span class="muComment">#</span> +<span id="L1801" class="LineNr">1801 </span> curr-col <span class="Special"><-</span> add <span class="Constant">2</span> +<span id="L1802" class="LineNr">1802 </span> decrement top-row +<span id="L1803" class="LineNr">1803 </span> <span class="Delimiter">}</span> +<span id="L1804" class="LineNr">1804 </span> <span class="muComment"># render main column</span> +<span id="L1805" class="LineNr">1805 </span> <span class="PreProc">var</span> old-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy curr-col +<span id="L1806" class="LineNr">1806 </span> <span class="PreProc">var</span> bindings2-storage: <a href='data.mu.html#L59'>table</a> +<span id="L1807" class="LineNr">1807 </span> <span class="PreProc">var</span> bindings2/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> address bindings2-storage +<span id="L1808" class="LineNr">1808 </span><span class="CommentedCode">#? print-string 0, "deep-copy {\n"</span> +<span id="L1809" class="LineNr">1809 </span> <a href='table.mu.html#L7'>deep-copy-table</a> bindings, bindings2 +<span id="L1810" class="LineNr">1810 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> +<span id="L1811" class="LineNr">1811 </span><span class="CommentedCode">#? print-string 0, "render column {\n"</span> +<span id="L1812" class="LineNr">1812 </span> curr-col <span class="Special"><-</span> <a href='environment.mu.html#L1858'>render-column</a> <a href='../405screen.mu.html#L9'>screen</a>, functions, bindings2, first-line, <a href='data.mu.html#L34'>line</a>, curr-word, top-row, curr-col +<span id="L1813" class="LineNr">1813 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> +<span id="L1814" class="LineNr">1814 </span> <span class="muComment"># cache cursor column if necessary</span> +<span id="L1815" class="LineNr">1815 </span> $render-line:cache-cursor-column: <span class="Delimiter">{</span> +<span id="L1816" class="LineNr">1816 </span> <span class="Delimiter">{</span> +<span id="L1817" class="LineNr">1817 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='data.mu.html#L348'>call-path-element-match?</a> curr-path, cursor-call-path +<span id="L1818" class="LineNr">1818 </span> compare found?, <span class="Constant">0</span>/false +<span id="L1819" class="LineNr">1819 </span> <span class="PreProc">break-if-=</span> $render-line:cache-cursor-column +<span id="L1820" class="LineNr">1820 </span> <span class="Delimiter">}</span> +<span id="L1821" class="LineNr">1821 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> copy cursor-row-addr +<span id="L1822" class="LineNr">1822 </span> <span class="Delimiter">{</span> +<span id="L1823" class="LineNr">1823 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy top-row +<span id="L1824" class="LineNr">1824 </span> copy-to *dest, src +<span id="L1825" class="LineNr">1825 </span> <span class="Delimiter">}</span> +<span id="L1826" class="LineNr">1826 </span> dest <span class="Special"><-</span> copy cursor-col-addr +<span id="L1827" class="LineNr">1827 </span> copy-to *dest, old-col +<span id="L1828" class="LineNr">1828 </span> <span class="PreProc">var</span> cursor-index-in-word/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L199'>cursor-index</a> curr-word +<span id="L1829" class="LineNr">1829 </span> add-to *dest, cursor-index-in-word +<span id="L1830" class="LineNr">1830 </span> <span class="Delimiter">}</span> +<span id="L1831" class="LineNr">1831 </span> <span class="muComment"># loop update</span> +<span id="L1832" class="LineNr">1832 </span><span class="CommentedCode">#? print-string 0, "next word\n"</span> +<span id="L1833" class="LineNr">1833 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-word, next +<span id="L1834" class="LineNr">1834 </span> curr-word <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah +<span id="L1835" class="LineNr">1835 </span><span class="CommentedCode">#? {</span> +<span id="L1836" class="LineNr">1836 </span><span class="CommentedCode">#? var foo/eax: int <- copy curr-word</span> +<span id="L1837" class="LineNr">1837 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L1838" class="LineNr">1838 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1839" class="LineNr">1839 </span><span class="CommentedCode">#? }</span> +<span id="L1840" class="LineNr">1840 </span> <a href='data.mu.html#L453'>increment-final-element</a> curr-path +<span id="L1841" class="LineNr">1841 </span> <span class="PreProc">loop</span> +<span id="L1842" class="LineNr">1842 </span> <span class="Delimiter">}</span> +<span id="L1843" class="LineNr">1843 </span> <span class="PreProc">return</span> curr-col +<span id="L1844" class="LineNr">1844 </span><span class="Delimiter">}</span> +<span id="L1845" class="LineNr">1845 </span> +<span id="L1846" class="LineNr">1846 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1846'>callee</a></span> functions: (addr handle <a href='data.mu.html#L21'>function</a>), <a href='data.mu.html#L42'>word</a>: (addr <a href='data.mu.html#L42'>word</a>), out: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Delimiter">{</span> +<span id="L1847" class="LineNr">1847 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>) +<span id="L1848" class="LineNr">1848 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L1849" class="LineNr">1849 </span> <a href='word.mu.html#L473'>emit-word</a> <a href='data.mu.html#L42'>word</a>, stream +<span id="L1850" class="LineNr">1850 </span> <a href='rpn.mu.html#L774'>find-function</a> functions, stream, out +<span id="L1851" class="LineNr">1851 </span><span class="Delimiter">}</span> +<span id="L1852" class="LineNr">1852 </span> +<span id="L1853" class="LineNr">1853 </span><span class="muComment"># Render:</span> +<span id="L1854" class="LineNr">1854 </span><span class="muComment"># - starting at top-row, left-col: final-word</span> +<span id="L1855" class="LineNr">1855 </span><span class="muComment"># - starting somewhere below at left-col: the stack result from interpreting first-world to final-word (inclusive)</span> +<span id="L1856" class="LineNr">1856 </span><span class="muComment">#</span> +<span id="L1857" class="LineNr">1857 </span><span class="muComment"># Return the farthest column written.</span> +<span id="L1858" class="LineNr">1858 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1858'>render-column</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), bindings: (addr <a href='data.mu.html#L59'>table</a>), first-line: (addr <a href='data.mu.html#L34'>line</a>), <a href='data.mu.html#L34'>line</a>: (addr <a href='data.mu.html#L34'>line</a>), <a href='word.mu.html#L114'>final-word</a>: (addr <a href='data.mu.html#L42'>word</a>), top-row: int, left-col: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L1859" class="LineNr">1859 </span><span class="CommentedCode">#? print-string 0, "render-column\n"</span> +<span id="L1860" class="LineNr">1860 </span><span class="CommentedCode">#? dump-table bindings</span> +<span id="L1861" class="LineNr">1861 </span> <span class="PreProc">var</span> max-width/<span class="Constant">esi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L1862" class="LineNr">1862 </span> <span class="Delimiter">{</span> +<span id="L1863" class="LineNr">1863 </span> <span class="muComment"># compute stack</span> +<span id="L1864" class="LineNr">1864 </span> <span class="PreProc">var</span> stack: <a href='value-stack.mu.html#L3'>value-stack</a> +<span id="L1865" class="LineNr">1865 </span> <span class="PreProc">var</span> stack-addr/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> address stack +<span id="L1866" class="LineNr">1866 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack-addr, <span class="Constant">0x10</span>/max-words +<span id="L1867" class="LineNr">1867 </span> <span class="muComment"># copy bindings</span> +<span id="L1868" class="LineNr">1868 </span> <span class="PreProc">var</span> bindings2-storage: <a href='data.mu.html#L59'>table</a> +<span id="L1869" class="LineNr">1869 </span> <span class="PreProc">var</span> bindings2/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> address bindings2-storage +<span id="L1870" class="LineNr">1870 </span><span class="CommentedCode">#? print-string 0, "deep copy table {\n"</span> +<span id="L1871" class="LineNr">1871 </span> <a href='table.mu.html#L7'>deep-copy-table</a> bindings, bindings2 +<span id="L1872" class="LineNr">1872 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> +<span id="L1873" class="LineNr">1873 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, bindings2, first-line, <a href='word.mu.html#L114'>final-word</a>, stack-addr +<span id="L1874" class="LineNr">1874 </span> <span class="muComment"># indent stack</span> +<span id="L1875" class="LineNr">1875 </span> <span class="PreProc">var</span> indented-col/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1876" class="LineNr">1876 </span> indented-col <span class="Special"><-</span> add <span class="Constant">1</span>/margin-right +<span id="L1877" class="LineNr">1877 </span> <span class="muComment"># render stack</span> +<span id="L1878" class="LineNr">1878 </span> <span class="PreProc">var</span> curr-row/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy top-row +<span id="L1879" class="LineNr">1879 </span> curr-row <span class="Special"><-</span> add <span class="Constant">2</span>/stack-margin-top +<span id="L1880" class="LineNr">1880 </span> <span class="Delimiter">{</span> +<span id="L1881" class="LineNr">1881 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> stack-addr, <a href='../203stack.subx.html#L338'>top</a> +<span id="L1882" class="LineNr">1882 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L1883" class="LineNr">1883 </span> <span class="PreProc">break-if-<=</span> +<span id="L1884" class="LineNr">1884 </span> decrement *top-addr +<span id="L1885" class="LineNr">1885 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> stack-addr, data +<span id="L1886" class="LineNr">1886 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L1887" class="LineNr">1887 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L1888" class="LineNr">1888 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">ecx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L1889" class="LineNr">1889 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset +<span id="L1890" class="LineNr">1890 </span> <a href='value.mu.html#L1'>render-value-at</a> <a href='../405screen.mu.html#L9'>screen</a>, curr-row, indented-col, val, <span class="Constant">1</span>/top-level=true +<span id="L1891" class="LineNr">1891 </span> <span class="Delimiter">{</span> +<span id="L1892" class="LineNr">1892 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='value.mu.html#L218'>value-width</a> val, <span class="Constant">1</span> +<span id="L1893" class="LineNr">1893 </span> compare width, max-width +<span id="L1894" class="LineNr">1894 </span> <span class="PreProc">break-if-<=</span> +<span id="L1895" class="LineNr">1895 </span> max-width <span class="Special"><-</span> copy width +<span id="L1896" class="LineNr">1896 </span> <span class="Delimiter">}</span> +<span id="L1897" class="LineNr">1897 </span> <span class="PreProc">var</span> height/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='value.mu.html#L314'>value-height</a> val +<span id="L1898" class="LineNr">1898 </span> curr-row <span class="Special"><-</span> add height +<span id="L1899" class="LineNr">1899 </span> <span class="PreProc">loop</span> +<span id="L1900" class="LineNr">1900 </span> <span class="Delimiter">}</span> +<span id="L1901" class="LineNr">1901 </span> <span class="Delimiter">}</span> +<span id="L1902" class="LineNr">1902 </span> +<span id="L1903" class="LineNr">1903 </span> max-width <span class="Special"><-</span> add <span class="Constant">2</span> <span class="muComment"># spaces on either side of items on the stack</span> +<span id="L1904" class="LineNr">1904 </span> +<span id="L1905" class="LineNr">1905 </span> <span class="muComment"># render word, initialize result</span> +<span id="L1906" class="LineNr">1906 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1907" class="LineNr">1907 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, top-row, left-col +<span id="L1908" class="LineNr">1908 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, <a href='word.mu.html#L114'>final-word</a> +<span id="L1909" class="LineNr">1909 </span> <span class="Delimiter">{</span> +<span id="L1910" class="LineNr">1910 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L106'>word-length</a> <a href='word.mu.html#L114'>final-word</a> +<span id="L1911" class="LineNr">1911 </span> compare width, max-width +<span id="L1912" class="LineNr">1912 </span> <span class="PreProc">break-if-<=</span> +<span id="L1913" class="LineNr">1913 </span> max-width <span class="Special"><-</span> copy width +<span id="L1914" class="LineNr">1914 </span> <span class="Delimiter">}</span> +<span id="L1915" class="LineNr">1915 </span> +<span id="L1916" class="LineNr">1916 </span> <span class="muComment"># post-process right-col</span> +<span id="L1917" class="LineNr">1917 </span> <span class="PreProc">var</span> right-col/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy left-col +<span id="L1918" class="LineNr">1918 </span> right-col <span class="Special"><-</span> add max-width +<span id="L1919" class="LineNr">1919 </span> right-col <span class="Special"><-</span> add <span class="Constant">1</span>/margin-right +<span id="L1920" class="LineNr">1920 </span><span class="CommentedCode">#? print-int32-decimal 0, left-col</span> +<span id="L1921" class="LineNr">1921 </span><span class="CommentedCode">#? print-string 0, " => "</span> +<span id="L1922" class="LineNr">1922 </span><span class="CommentedCode">#? print-int32-decimal 0, right-col</span> +<span id="L1923" class="LineNr">1923 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L1924" class="LineNr">1924 </span> <span class="PreProc">return</span> right-col +<span id="L1925" class="LineNr">1925 </span><span class="Delimiter">}</span> +<span id="L1926" class="LineNr">1926 </span> +<span id="L1927" class="LineNr">1927 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1927'>render-function-menu</a></span> _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L1928" class="LineNr">1928 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L1929" class="LineNr">1929 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1930" class="LineNr">1930 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L1931" class="LineNr">1931 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1932" class="LineNr">1932 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, nrows +<span id="L1933" class="LineNr">1933 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, *nrows, <span class="Constant">0</span> +<span id="L1934" class="LineNr">1934 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1935" class="LineNr">1935 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-q "</span> +<span id="L1936" class="LineNr">1936 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1937" class="LineNr">1937 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" quit "</span> +<span id="L1938" class="LineNr">1938 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1939" class="LineNr">1939 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-a "</span> +<span id="L1940" class="LineNr">1940 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1941" class="LineNr">1941 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ⏮ "</span> +<span id="L1942" class="LineNr">1942 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1943" class="LineNr">1943 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-b "</span> +<span id="L1944" class="LineNr">1944 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1945" class="LineNr">1945 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ◀ <a href='data.mu.html#L42'>word</a> "</span> +<span id="L1946" class="LineNr">1946 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1947" class="LineNr">1947 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-f "</span> +<span id="L1948" class="LineNr">1948 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1949" class="LineNr">1949 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" <a href='data.mu.html#L42'>word</a> ▶ "</span> +<span id="L1950" class="LineNr">1950 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1951" class="LineNr">1951 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-e "</span> +<span id="L1952" class="LineNr">1952 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1953" class="LineNr">1953 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ⏭ "</span> +<span id="L1954" class="LineNr">1954 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1955" class="LineNr">1955 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-g "</span> +<span id="L1956" class="LineNr">1956 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1957" class="LineNr">1957 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" go to <a href='data.mu.html#L21'>function</a> "</span> +<span id="L1958" class="LineNr">1958 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1959" class="LineNr">1959 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" tab "</span> +<span id="L1960" class="LineNr">1960 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1961" class="LineNr">1961 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" go to sandbox"</span> +<span id="L1962" class="LineNr">1962 </span><span class="Delimiter">}</span> +<span id="L1963" class="LineNr">1963 </span> +<span id="L1964" class="LineNr">1964 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L1964'>render-sandbox-menu</a></span> _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L1965" class="LineNr">1965 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L1966" class="LineNr">1966 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1967" class="LineNr">1967 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L1968" class="LineNr">1968 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L1969" class="LineNr">1969 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, nrows +<span id="L1970" class="LineNr">1970 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, *nrows, <span class="Constant">0</span> +<span id="L1971" class="LineNr">1971 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1972" class="LineNr">1972 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-q "</span> +<span id="L1973" class="LineNr">1973 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1974" class="LineNr">1974 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" quit "</span> +<span id="L1975" class="LineNr">1975 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1976" class="LineNr">1976 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-a "</span> +<span id="L1977" class="LineNr">1977 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1978" class="LineNr">1978 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ⏮ "</span> +<span id="L1979" class="LineNr">1979 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1980" class="LineNr">1980 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-b "</span> +<span id="L1981" class="LineNr">1981 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1982" class="LineNr">1982 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ◀ <a href='data.mu.html#L42'>word</a> "</span> +<span id="L1983" class="LineNr">1983 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1984" class="LineNr">1984 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-f "</span> +<span id="L1985" class="LineNr">1985 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1986" class="LineNr">1986 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" <a href='data.mu.html#L42'>word</a> ▶ "</span> +<span id="L1987" class="LineNr">1987 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1988" class="LineNr">1988 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-e "</span> +<span id="L1989" class="LineNr">1989 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1990" class="LineNr">1990 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ⏭ "</span> +<span id="L1991" class="LineNr">1991 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1992" class="LineNr">1992 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-g "</span> +<span id="L1993" class="LineNr">1993 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1994" class="LineNr">1994 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" go to <a href='data.mu.html#L21'>function</a> "</span> +<span id="L1995" class="LineNr">1995 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1996" class="LineNr">1996 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-l "</span> +<span id="L1997" class="LineNr">1997 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L1998" class="LineNr">1998 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" new <a href='data.mu.html#L34'>line</a> "</span> +<span id="L1999" class="LineNr">1999 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2000" class="LineNr">2000 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-u "</span> +<span id="L2001" class="LineNr">2001 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2002" class="LineNr">2002 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" clear "</span> +<span id="L2003" class="LineNr">2003 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2004" class="LineNr">2004 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-n "</span> +<span id="L2005" class="LineNr">2005 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2006" class="LineNr">2006 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" name <a href='data.mu.html#L42'>word</a> "</span> +<span id="L2007" class="LineNr">2007 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2008" class="LineNr">2008 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-d "</span> +<span id="L2009" class="LineNr">2009 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2010" class="LineNr">2010 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" define function"</span> +<span id="L2011" class="LineNr">2011 </span><span class="Delimiter">}</span> +<span id="L2012" class="LineNr">2012 </span> +<span id="L2013" class="LineNr">2013 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2013'>clear-canvas</a></span> _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L2014" class="LineNr">2014 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L2015" class="LineNr">2015 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2016" class="LineNr">2016 </span> <span class="PreProc">var</span> _screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L2017" class="LineNr">2017 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _screen +<span id="L2018" class="LineNr">2018 </span> <a href='../405screen.mu.html#L78'>clear-screen</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2019" class="LineNr">2019 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, nrows +<span id="L2020" class="LineNr">2020 </span> <span class="PreProc">var</span> sep-col/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, code-separator-col +<span id="L2021" class="LineNr">2021 </span> <span class="muComment"># divider</span> +<span id="L2022" class="LineNr">2022 </span> <a href='box.mu.html#L38'>draw-vertical-line</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>, *nrows, *sep-col +<span id="L2023" class="LineNr">2023 </span> <span class="muComment"># primitives</span> +<span id="L2024" class="LineNr">2024 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='environment.mu.html#L2028'>render-primitives</a> <a href='../405screen.mu.html#L9'>screen</a>, *nrows, *sep-col +<span id="L2025" class="LineNr">2025 </span><span class="Delimiter">}</span> +<span id="L2026" class="LineNr">2026 </span> +<span id="L2027" class="LineNr">2027 </span><span class="muComment"># return value: top-most row written to</span> +<span id="L2028" class="LineNr">2028 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2028'>render-primitives</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), bottom-margin-row: int, right-col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L2029" class="LineNr">2029 </span> <span class="muComment"># render primitives from the bottom of the screen upward</span> +<span id="L2030" class="LineNr">2030 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy bottom-margin-row +<span id="L2031" class="LineNr">2031 </span> row <span class="Special"><-</span> subtract <span class="Constant">1</span> +<span id="L2032" class="LineNr">2032 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L2033" class="LineNr">2033 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L2034" class="LineNr">2034 </span> row, col <span class="Special"><-</span> <a href='environment.mu.html#L2051'>render-primitive-group</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"numbers: "</span>, <span class="Constant">"+ - * / sqrt "</span> +<span id="L2035" class="LineNr">2035 </span> row, col <span class="Special"><-</span> <a href='environment.mu.html#L2051'>render-primitive-group</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"arrays: "</span>, <span class="Constant">"len "</span> +<span id="L2036" class="LineNr">2036 </span> row, col <span class="Special"><-</span> <a href='environment.mu.html#L2051'>render-primitive-group</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"files: "</span>, <span class="Constant">"open <a href='../111read.subx.html#L48'>read</a> <a href='../132slurp.subx.html#L8'>slurp</a> lines "</span> +<span id="L2037" class="LineNr">2037 </span> row, col <span class="Special"><-</span> <a href='environment.mu.html#L2051'>render-primitive-group</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"misc: "</span>, <span class="Constant">"dup swap "</span> <span class="muComment"># hack: keep these at the right of the bottom row</span> +<span id="L2038" class="LineNr">2038 </span> row, col <span class="Special"><-</span> <a href='environment.mu.html#L2051'>render-primitive-group</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, right-col, <span class="Constant">"screens: "</span>, <span class="Constant">"fake-screen print move up down left right "</span> +<span id="L2039" class="LineNr">2039 </span> <span class="muComment"># finally print heading up top</span> +<span id="L2040" class="LineNr">2040 </span> row <span class="Special"><-</span> decrement +<span id="L2041" class="LineNr">2041 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, <span class="Constant">1</span> +<span id="L2042" class="LineNr">2042 </span> <a href='../405screen.mu.html#L541'>start-bold</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2043" class="LineNr">2043 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"primitives:"</span> +<span id="L2044" class="LineNr">2044 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2045" class="LineNr">2045 </span> <span class="PreProc">return</span> row +<span id="L2046" class="LineNr">2046 </span><span class="Delimiter">}</span> +<span id="L2047" class="LineNr">2047 </span> +<span id="L2048" class="LineNr">2048 </span><span class="muComment"># start at row, col and print the given strings</span> +<span id="L2049" class="LineNr">2049 </span><span class="muComment"># move up one row if there isn't enough room before right-col</span> +<span id="L2050" class="LineNr">2050 </span><span class="muComment"># return row, col printed until</span> +<span id="L2051" class="LineNr">2051 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2051'>render-primitive-group</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _row: int, _col: int, right-col: int, _heading: (addr array byte), _contents: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L2052" class="LineNr">2052 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _row +<span id="L2053" class="LineNr">2053 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _col +<span id="L2054" class="LineNr">2054 </span> <span class="muComment"># decrement row if necessary</span> +<span id="L2055" class="LineNr">2055 </span> <span class="PreProc">var</span> new-col/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy col +<span id="L2056" class="LineNr">2056 </span> <span class="PreProc">var</span> heading/<span class="Constant">esi</span>: (addr array byte) <span class="Special"><-</span> copy _heading +<span id="L2057" class="LineNr">2057 </span> <span class="PreProc">var</span> len1/<span class="Constant">eax</span>: int <span class="Special"><-</span> length heading +<span id="L2058" class="LineNr">2058 </span> new-col <span class="Special"><-</span> add len1 +<span id="L2059" class="LineNr">2059 </span> <span class="PreProc">var</span> contents/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _contents +<span id="L2060" class="LineNr">2060 </span> <span class="PreProc">var</span> len2/<span class="Constant">eax</span>: int <span class="Special"><-</span> length contents +<span id="L2061" class="LineNr">2061 </span> new-col <span class="Special"><-</span> add len2 +<span id="L2062" class="LineNr">2062 </span> <span class="PreProc">var</span> bound/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy right-col +<span id="L2063" class="LineNr">2063 </span> bound <span class="Special"><-</span> decrement +<span id="L2064" class="LineNr">2064 </span> <span class="Delimiter">{</span> +<span id="L2065" class="LineNr">2065 </span> compare new-col, bound +<span id="L2066" class="LineNr">2066 </span> <span class="PreProc">break-if-<=</span> +<span id="L2067" class="LineNr">2067 </span> row <span class="Special"><-</span> decrement +<span id="L2068" class="LineNr">2068 </span> col <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L2069" class="LineNr">2069 </span> <span class="Delimiter">}</span> +<span id="L2070" class="LineNr">2070 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L2071" class="LineNr">2071 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xf6</span>, <span class="Constant">7</span> +<span id="L2072" class="LineNr">2072 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, heading +<span id="L2073" class="LineNr">2073 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2074" class="LineNr">2074 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, contents +<span id="L2075" class="LineNr">2075 </span> <span class="PreProc">return</span> row, new-col +<span id="L2076" class="LineNr">2076 </span><span class="Delimiter">}</span> +<span id="L2077" class="LineNr">2077 </span> +<span id="L2078" class="LineNr">2078 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2078'>render-functions</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), right-col: int, _env: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Delimiter">{</span> +<span id="L2079" class="LineNr">2079 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L2080" class="LineNr">2080 </span> <span class="PreProc">var</span> dummy-col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy right-col +<span id="L2081" class="LineNr">2081 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _env +<span id="L2082" class="LineNr">2082 </span> <span class="PreProc">var</span> functions/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> env, functions +<span id="L2083" class="LineNr">2083 </span> <span class="Delimiter">{</span> +<span id="L2084" class="LineNr">2084 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *functions +<span id="L2085" class="LineNr">2085 </span> compare curr, <span class="Constant">0</span> +<span id="L2086" class="LineNr">2086 </span> <span class="PreProc">break-if-=</span> +<span id="L2087" class="LineNr">2087 </span> row, dummy-col <span class="Special"><-</span> <a href='environment.mu.html#L2096'>render-function-right-aligned</a> <a href='../405screen.mu.html#L9'>screen</a>, row, right-col, curr +<span id="L2088" class="LineNr">2088 </span> functions <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L2089" class="LineNr">2089 </span> row <span class="Special"><-</span> add <span class="Constant">1</span>/inter-function-margin +<span id="L2090" class="LineNr">2090 </span> <span class="PreProc">loop</span> +<span id="L2091" class="LineNr">2091 </span> <span class="Delimiter">}</span> +<span id="L2092" class="LineNr">2092 </span><span class="Delimiter">}</span> +<span id="L2093" class="LineNr">2093 </span> +<span id="L2094" class="LineNr">2094 </span><span class="muComment"># print function starting at row, right-aligned before right-col</span> +<span id="L2095" class="LineNr">2095 </span><span class="muComment"># return row, col printed until</span> +<span id="L2096" class="LineNr">2096 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2096'>render-function-right-aligned</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, right-col: int, f: (addr <a href='data.mu.html#L21'>function</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int, _/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> +<span id="L2097" class="LineNr">2097 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy right-col +<span id="L2098" class="LineNr">2098 </span> col <span class="Special"><-</span> subtract <span class="Constant">1</span>/function-right-margin +<span id="L2099" class="LineNr">2099 </span> <span class="PreProc">var</span> col2/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy col +<span id="L2100" class="LineNr">2100 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='data.mu.html#L583'>function-width</a> f +<span id="L2101" class="LineNr">2101 </span> col <span class="Special"><-</span> subtract width +<span id="L2102" class="LineNr">2102 </span> <span class="PreProc">var</span> new-row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy row +<span id="L2103" class="LineNr">2103 </span> <span class="PreProc">var</span> height/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='data.mu.html#L621'>function-height</a> f +<span id="L2104" class="LineNr">2104 </span> new-row <span class="Special"><-</span> add height +<span id="L2105" class="LineNr">2105 </span> new-row <span class="Special"><-</span> decrement +<span id="L2106" class="LineNr">2106 </span> col <span class="Special"><-</span> subtract <span class="Constant">1</span>/function-left-padding +<span id="L2107" class="LineNr">2107 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf7</span> +<span id="L2108" class="LineNr">2108 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, new-row, col2 +<span id="L2109" class="LineNr">2109 </span> col <span class="Special"><-</span> add <span class="Constant">1</span> +<span id="L2110" class="LineNr">2110 </span><span class="CommentedCode">#? var dummy/eax: grapheme <- read-key-from-real-keyboard</span> +<span id="L2111" class="LineNr">2111 </span> <a href='environment.mu.html#L2121'>render-function</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, f +<span id="L2112" class="LineNr">2112 </span> new-row <span class="Special"><-</span> add <span class="Constant">1</span>/function-bottom-margin +<span id="L2113" class="LineNr">2113 </span> col <span class="Special"><-</span> subtract <span class="Constant">1</span>/function-left-padding +<span id="L2114" class="LineNr">2114 </span> col <span class="Special"><-</span> subtract <span class="Constant">1</span>/function-left-margin +<span id="L2115" class="LineNr">2115 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2116" class="LineNr">2116 </span> <span class="PreProc">return</span> new-row, col +<span id="L2117" class="LineNr">2117 </span><span class="Delimiter">}</span> +<span id="L2118" class="LineNr">2118 </span> +<span id="L2119" class="LineNr">2119 </span><span class="muComment"># render function starting at row, col</span> +<span id="L2120" class="LineNr">2120 </span><span class="muComment"># only single-line functions supported for now</span> +<span id="L2121" class="LineNr">2121 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2121'>render-function</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int, _f: (addr <a href='data.mu.html#L21'>function</a>) <span class="Delimiter">{</span> +<span id="L2122" class="LineNr">2122 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f +<span id="L2123" class="LineNr">2123 </span> <span class="PreProc">var</span> args/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, args +<span id="L2124" class="LineNr">2124 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L2125" class="LineNr">2125 </span> <a href='word.mu.html#L245'>print-words-in-reverse</a> <a href='../405screen.mu.html#L9'>screen</a>, args +<span id="L2126" class="LineNr">2126 </span> <span class="PreProc">var</span> name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L2127" class="LineNr">2127 </span> <span class="PreProc">var</span> name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *name-ah +<span id="L2128" class="LineNr">2128 </span> <a href='../405screen.mu.html#L541'>start-bold</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2129" class="LineNr">2129 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, name +<span id="L2130" class="LineNr">2130 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L2131" class="LineNr">2131 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf7</span> +<span id="L2132" class="LineNr">2132 </span> increment row +<span id="L2133" class="LineNr">2133 </span> add-to col, <span class="Constant">2</span> +<span id="L2134" class="LineNr">2134 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L2135" class="LineNr">2135 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">"≡ "</span> +<span id="L2136" class="LineNr">2136 </span> add-to col, <span class="Constant">2</span> +<span id="L2137" class="LineNr">2137 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-row +<span id="L2138" class="LineNr">2138 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-col +<span id="L2139" class="LineNr">2139 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, cursor-word +<span id="L2140" class="LineNr">2140 </span> <span class="PreProc">var</span> _cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L2141" class="LineNr">2141 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _cursor-word +<span id="L2142" class="LineNr">2142 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, body +<span id="L2143" class="LineNr">2143 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah +<span id="L2144" class="LineNr">2144 </span> <a href='environment.mu.html#L1634'>render-line-without-stack</a> <a href='../405screen.mu.html#L9'>screen</a>, body, row, col, cursor-word, cursor-row, cursor-col +<span id="L2145" class="LineNr">2145 </span><span class="Delimiter">}</span> +<span id="L2146" class="LineNr">2146 </span> +<span id="L2147" class="LineNr">2147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2147'>real-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L2148" class="LineNr">2148 </span> <span class="muComment"># if g == newline return true</span> +<span id="L2149" class="LineNr">2149 </span> compare g, <span class="Constant">0xa</span> +<span id="L2150" class="LineNr">2150 </span> <span class="Delimiter">{</span> +<span id="L2151" class="LineNr">2151 </span> <span class="PreProc">break-if-!=</span> +<span id="L2152" class="LineNr">2152 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L2153" class="LineNr">2153 </span> <span class="Delimiter">}</span> +<span id="L2154" class="LineNr">2154 </span> <span class="muComment"># if g == tab return true</span> +<span id="L2155" class="LineNr">2155 </span> compare g, <span class="Constant">9</span> +<span id="L2156" class="LineNr">2156 </span> <span class="Delimiter">{</span> +<span id="L2157" class="LineNr">2157 </span> <span class="PreProc">break-if-!=</span> +<span id="L2158" class="LineNr">2158 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L2159" class="LineNr">2159 </span> <span class="Delimiter">}</span> +<span id="L2160" class="LineNr">2160 </span> <span class="muComment"># if g < 32 return false</span> +<span id="L2161" class="LineNr">2161 </span> compare g, <span class="Constant">0x20</span> +<span id="L2162" class="LineNr">2162 </span> <span class="Delimiter">{</span> +<span id="L2163" class="LineNr">2163 </span> <span class="PreProc">break-if->=</span> +<span id="L2164" class="LineNr">2164 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L2165" class="LineNr">2165 </span> <span class="Delimiter">}</span> +<span id="L2166" class="LineNr">2166 </span> <span class="muComment"># if g <= 255 return true</span> +<span id="L2167" class="LineNr">2167 </span> compare g, <span class="Constant">0xff</span> +<span id="L2168" class="LineNr">2168 </span> <span class="Delimiter">{</span> +<span id="L2169" class="LineNr">2169 </span> <span class="PreProc">break-if-></span> +<span id="L2170" class="LineNr">2170 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L2171" class="LineNr">2171 </span> <span class="Delimiter">}</span> +<span id="L2172" class="LineNr">2172 </span> <span class="muComment"># if (g&0xff == Esc) it's an escape sequence</span> +<span id="L2173" class="LineNr">2173 </span> and-with g, <span class="Constant">0xff</span> +<span id="L2174" class="LineNr">2174 </span> compare g, <span class="Constant">0x1b</span>/esc +<span id="L2175" class="LineNr">2175 </span> <span class="Delimiter">{</span> +<span id="L2176" class="LineNr">2176 </span> <span class="PreProc">break-if-!=</span> +<span id="L2177" class="LineNr">2177 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L2178" class="LineNr">2178 </span> <span class="Delimiter">}</span> +<span id="L2179" class="LineNr">2179 </span> <span class="muComment"># otherwise return true</span> +<span id="L2180" class="LineNr">2180 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L2181" class="LineNr">2181 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/float-stack.mu.html b/html/linux/tile/float-stack.mu.html index d6d100b7..4ecc2364 100644 --- a/html/apps/tile/float-stack.mu.html +++ b/html/linux/tile/float-stack.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/float-stack.mu</title> +<title>Mu - linux/tile/float-stack.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,12 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -54,42 +53,42 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/float-stack.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/float-stack.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/float-stack.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/float-stack.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='float-stack.mu.html#L1'>float-stack</a> <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> data: (handle array float) -<span id="L3" class="LineNr"> 3 </span> <a href='../../203stack.subx.html#L338'>top</a>: int +<span id="L3" class="LineNr"> 3 </span> <a href='../203stack.subx.html#L338'>top</a>: int <span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='float-stack.mu.html#L6'>initialize-float-stack</a></span> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="Special"><-</span> copy _self +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data <span id="L9" class="LineNr"> 9 </span> populate d, n -<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L11" class="LineNr">11 </span> copy-to *top, <span class="Constant">0</span> <span id="L12" class="LineNr">12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr">13 </span> <span id="L14" class="LineNr">14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='float-stack.mu.html#L14'>clear-float-stack</a></span> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="Delimiter">{</span> -<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="Special"><-</span> copy _self +<span id="L16" class="LineNr">16 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L17" class="LineNr">17 </span> copy-to *top, <span class="Constant">0</span> <span id="L18" class="LineNr">18 </span><span class="Delimiter">}</span> <span id="L19" class="LineNr">19 </span> <span id="L20" class="LineNr">20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='float-stack.mu.html#L20'>push-float-stack</a></span> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>), _val: float <span class="Delimiter">{</span> -<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array float) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy _val +<span id="L21" class="LineNr">21 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="Special"><-</span> copy _self +<span id="L22" class="LineNr">22 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L23" class="LineNr">23 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L24" class="LineNr">24 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array float) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L25" class="LineNr">25 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L27" class="LineNr">27 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy _val <span id="L28" class="LineNr">28 </span> copy-to *dest-addr, val <span id="L29" class="LineNr">29 </span> add-to *top-addr, <span class="Constant">1</span> <span id="L30" class="LineNr">30 </span><span class="Delimiter">}</span> <span id="L31" class="LineNr">31 </span> <span id="L32" class="LineNr">32 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='float-stack.mu.html#L32'>pop-float-stack</a></span> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="Special"><-</span> copy _self +<span id="L34" class="LineNr">34 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L35" class="LineNr">35 </span> <span class="Delimiter">{</span> <span id="L36" class="LineNr">36 </span> compare *top-addr, <span class="Constant">0</span> <span id="L37" class="LineNr">37 </span> <span class="PreProc">break-if-></span> @@ -97,27 +96,27 @@ if ('onhashchange' in window) { <span id="L39" class="LineNr">39 </span> <span class="PreProc">return</span> zero <span id="L40" class="LineNr">40 </span> <span class="Delimiter">}</span> <span id="L41" class="LineNr">41 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L43" class="LineNr">43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array float) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L45" class="LineNr">45 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L42" class="LineNr">42 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L43" class="LineNr">43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array float) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L44" class="LineNr">44 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L45" class="LineNr">45 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> <span id="L46" class="LineNr">46 </span> <span class="PreProc">return</span> *result-addr <span id="L47" class="LineNr">47 </span><span class="Delimiter">}</span> <span id="L48" class="LineNr">48 </span> <span id="L49" class="LineNr">49 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='float-stack.mu.html#L49'>float-stack-empty?</a></span> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L50" class="LineNr">50 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L50" class="LineNr">50 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="Special"><-</span> copy _self +<span id="L51" class="LineNr">51 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L52" class="LineNr">52 </span> compare *top-addr, <span class="Constant">0</span> <span id="L53" class="LineNr">53 </span> <span class="Delimiter">{</span> <span id="L54" class="LineNr">54 </span> <span class="PreProc">break-if-!=</span> -<span id="L55" class="LineNr">55 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L55" class="LineNr">55 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L56" class="LineNr">56 </span> <span class="Delimiter">}</span> -<span id="L57" class="LineNr">57 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L57" class="LineNr">57 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L58" class="LineNr">58 </span><span class="Delimiter">}</span> <span id="L59" class="LineNr">59 </span> <span id="L60" class="LineNr">60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='float-stack.mu.html#L60'>float-stack-length</a></span> _self: (addr <a href='float-stack.mu.html#L1'>float-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L62" class="LineNr">62 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L61" class="LineNr">61 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='float-stack.mu.html#L1'>float-stack</a>) <span class="Special"><-</span> copy _self +<span id="L62" class="LineNr">62 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L63" class="LineNr">63 </span> <span class="PreProc">return</span> *top-addr <span id="L64" class="LineNr">64 </span><span class="Delimiter">}</span> </pre> diff --git a/html/apps/tile/gap-buffer.mu.html b/html/linux/tile/gap-buffer.mu.html index c7c9b7ce..f2995b6d 100644 --- a/html/apps/tile/gap-buffer.mu.html +++ b/html/linux/tile/gap-buffer.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/gap-buffer.mu</title> +<title>Mu - linux/tile/gap-buffer.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.muComment { color: #005faf; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -55,7 +55,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/gap-buffer.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/gap-buffer.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/gap-buffer.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/gap-buffer.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='gap-buffer.mu.html#L1'>gap-buffer</a> <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> left: <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a> @@ -63,24 +63,24 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L9" class="LineNr"> 9 </span> <a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a> left, <span class="Constant">0x10</span> <span class="muComment"># max-word-size</span> -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L11" class="LineNr"> 11 </span> <a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a> right, <span class="Constant">0x10</span> <span class="muComment"># max-word-size</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L9" class="LineNr"> 9 </span> <a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a> left, <span class="Constant">0x10</span>/max-word-size +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L11" class="LineNr"> 11 </span> <a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a> right, <span class="Constant">0x10</span>/max-word-size <span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="muComment"># just for tests</span> <span id="L15" class="LineNr"> 15 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L15'>initialize-gap-buffer-with</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), s: (addr array byte) <span class="Delimiter">{</span> <span id="L16" class="LineNr"> 16 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> self -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># max-word-size</span> -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L19" class="LineNr"> 19 </span> <a href='../../108write.subx.html#L24'>write</a> stream, s +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/max-word-size) +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L19" class="LineNr"> 19 </span> <a href='../108write.subx.html#L24'>write</a> stream, s <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> stream -<span id="L22" class="LineNr"> 22 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> stream +<span id="L22" class="LineNr"> 22 </span> compare done?, <span class="Constant">0</span>/false <span id="L23" class="LineNr"> 23 </span> <span class="PreProc">break-if-!=</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> stream +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> stream <span id="L25" class="LineNr"> 25 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> self, g <span id="L26" class="LineNr"> 26 </span> <span class="PreProc">loop</span> <span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">}</span> @@ -88,86 +88,86 @@ if ('onhashchange' in window) { <span id="L29" class="LineNr"> 29 </span> <span id="L30" class="LineNr"> 30 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L30'>gap-buffer-to-string</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), out: (addr handle array byte) <span class="Delimiter">{</span> <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x100</span>) -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s-storage +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> s/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage <span id="L33" class="LineNr"> 33 </span> <a href='gap-buffer.mu.html#L37'>emit-gap-buffer</a> self, s -<span id="L34" class="LineNr"> 34 </span> <a href='../../310copy-bytes.subx.html#L60'>stream-to-array</a> s, out +<span id="L34" class="LineNr"> 34 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> s, out <span id="L35" class="LineNr"> 35 </span><span class="Delimiter">}</span> <span id="L36" class="LineNr"> 36 </span> <span id="L37" class="LineNr"> 37 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L37'>emit-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L39" class="LineNr"> 39 </span> <a href='../../106stream.subx.html#L17'>clear-stream</a> out -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L39" class="LineNr"> 39 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> out +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L41" class="LineNr"> 41 </span> <a href='gap-buffer.mu.html#L47'>emit-stack-from-bottom</a> left, out -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right <span id="L43" class="LineNr"> 43 </span> <a href='gap-buffer.mu.html#L65'>emit-stack-from-top</a> right, out <span id="L44" class="LineNr"> 44 </span><span class="Delimiter">}</span> <span id="L45" class="LineNr"> 45 </span> <span id="L46" class="LineNr"> 46 </span><span class="muComment"># dump stack from bottom to top</span> <span id="L47" class="LineNr"> 47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L47'>emit-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">{</span> <span id="L55" class="LineNr"> 55 </span> compare i, *top-addr <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if->=</span> -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L58" class="LineNr"> 58 </span> <a href='../../403unicode.mu.html#L379'>write-grapheme</a> out, *g -<span id="L59" class="LineNr"> 59 </span> i <span class="SpecialChar"><-</span> increment +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L58" class="LineNr"> 58 </span> <a href='../403unicode.mu.html#L372'>write-grapheme</a> out, *g +<span id="L59" class="LineNr"> 59 </span> i <span class="Special"><-</span> increment <span id="L60" class="LineNr"> 60 </span> <span class="PreProc">loop</span> <span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> <span id="L64" class="LineNr"> 64 </span><span class="muComment"># dump stack from top to bottom</span> <span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L65'>emit-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L72" class="LineNr"> 72 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L72" class="LineNr"> 72 </span> i <span class="Special"><-</span> decrement <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span> compare i, <span class="Constant">0</span> <span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break-if-<</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L77" class="LineNr"> 77 </span> <a href='../../403unicode.mu.html#L379'>write-grapheme</a> out, *g -<span id="L78" class="LineNr"> 78 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L77" class="LineNr"> 77 </span> <a href='../403unicode.mu.html#L372'>write-grapheme</a> out, *g +<span id="L78" class="LineNr"> 78 </span> i <span class="Special"><-</span> decrement <span id="L79" class="LineNr"> 79 </span> <span class="PreProc">loop</span> <span id="L80" class="LineNr"> 80 </span> <span class="Delimiter">}</span> <span id="L81" class="LineNr"> 81 </span><span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> -<span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L83'>render-gap-buffer</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _gap: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _gap -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, left -<span id="L86" class="LineNr"> 86 </span> <a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a> left, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, right -<span id="L88" class="LineNr"> 88 </span> <a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a> right, <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L83'>render-gap-buffer</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _gap: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _gap +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, left +<span id="L86" class="LineNr"> 86 </span> <a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a> left, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, right +<span id="L88" class="LineNr"> 88 </span> <a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a> right, <a href='../405screen.mu.html#L9'>screen</a> <span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> <span id="L90" class="LineNr"> 90 </span> <span id="L91" class="LineNr"> 91 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L91'>gap-buffer-length</a></span> _gap: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _gap -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, left -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> left-length/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *tmp -<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> right/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> gap, right -<span id="L97" class="LineNr"> 97 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *tmp -<span id="L99" class="LineNr"> 99 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add left-length -<span id="L100" class="LineNr">100 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _gap +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, left +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> left-length/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *tmp +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> right/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> gap, right +<span id="L97" class="LineNr"> 97 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> right, <a href='../203stack.subx.html#L338'>top</a> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tmp +<span id="L99" class="LineNr"> 99 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add left-length +<span id="L100" class="LineNr">100 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L101" class="LineNr">101 </span><span class="Delimiter">}</span> <span id="L102" class="LineNr">102 </span> <span id="L103" class="LineNr">103 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), g: grapheme <span class="Delimiter">{</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L106" class="LineNr">106 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> left, g <span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> <span id="L108" class="LineNr">108 </span> <span id="L109" class="LineNr">109 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L109'>gap-to-start</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L110" class="LineNr">110 </span> <span class="Delimiter">{</span> -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> self +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> self <span id="L112" class="LineNr">112 </span> compare curr, <span class="Constant">-1</span> <span id="L113" class="LineNr">113 </span> <span class="PreProc">loop-if-!=</span> <span id="L114" class="LineNr">114 </span> <span class="Delimiter">}</span> @@ -175,88 +175,88 @@ if ('onhashchange' in window) { <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L117'>gap-to-end</a></span> self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> self +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> self <span id="L120" class="LineNr">120 </span> compare curr, <span class="Constant">-1</span> <span id="L121" class="LineNr">121 </span> <span class="PreProc">loop-if-!=</span> <span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> <span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> <span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L125'>gap-at-start?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> left -<span id="L129" class="LineNr">129 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> left +<span id="L129" class="LineNr">129 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> <span id="L131" class="LineNr">131 </span> <span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L132'>gap-at-end?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> right -<span id="L136" class="LineNr">136 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> right +<span id="L136" class="LineNr">136 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L137" class="LineNr">137 </span><span class="Delimiter">}</span> <span id="L138" class="LineNr">138 </span> <span id="L139" class="LineNr">139 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L139'>gap-right</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L143" class="LineNr">143 </span> g <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> right +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L143" class="LineNr">143 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> right <span id="L144" class="LineNr">144 </span> compare g, <span class="Constant">-1</span> <span id="L145" class="LineNr">145 </span> <span class="Delimiter">{</span> <span id="L146" class="LineNr">146 </span> <span class="PreProc">break-if-=</span> -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left <span id="L148" class="LineNr">148 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> left, g <span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> <span id="L150" class="LineNr">150 </span> <span class="PreProc">return</span> g <span id="L151" class="LineNr">151 </span><span class="Delimiter">}</span> <span id="L152" class="LineNr">152 </span> <span id="L153" class="LineNr">153 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L153'>gap-left</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L158" class="LineNr">158 </span> g <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L158" class="LineNr">158 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left <span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> <span id="L160" class="LineNr">160 </span> compare g, <span class="Constant">-1</span> <span id="L161" class="LineNr">161 </span> <span class="Delimiter">{</span> <span id="L162" class="LineNr">162 </span> <span class="PreProc">break-if-=</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right <span id="L164" class="LineNr">164 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> right, g <span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> <span id="L166" class="LineNr">166 </span> <span class="PreProc">return</span> g <span id="L167" class="LineNr">167 </span><span class="Delimiter">}</span> <span id="L168" class="LineNr">168 </span> <span id="L169" class="LineNr">169 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L169'>gap-index</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L174" class="LineNr">174 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> <span id="L176" class="LineNr">176 </span> <span id="L177" class="LineNr">177 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L177'>first-grapheme-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L179" class="LineNr">179 </span> <span class="muComment"># try to read from left</span> -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> <span id="L182" class="LineNr">182 </span> compare *top-addr, <span class="Constant">0</span> <span id="L183" class="LineNr">183 </span> <span class="Delimiter">{</span> <span id="L184" class="LineNr">184 </span> <span class="PreProc">break-if-<=</span> -<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, data -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <span class="Constant">0</span> +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, data +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, <span class="Constant">0</span> <span id="L188" class="LineNr">188 </span> <span class="PreProc">return</span> *result-addr <span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> <span id="L190" class="LineNr">190 </span> <span class="muComment"># try to read from right</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L192" class="LineNr">192 </span> top-addr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L192" class="LineNr">192 </span> top-addr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> right, <a href='../203stack.subx.html#L338'>top</a> <span id="L193" class="LineNr">193 </span> compare *top-addr, <span class="Constant">0</span> <span id="L194" class="LineNr">194 </span> <span class="Delimiter">{</span> <span id="L195" class="LineNr">195 </span> <span class="PreProc">break-if-<=</span> -<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> right, data -<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L199" class="LineNr">199 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> right, data +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L199" class="LineNr">199 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> <span id="L201" class="LineNr">201 </span> <span class="PreProc">return</span> *result-addr <span id="L202" class="LineNr">202 </span> <span class="Delimiter">}</span> <span id="L203" class="LineNr">203 </span> <span class="muComment"># give up</span> @@ -264,141 +264,141 @@ if ('onhashchange' in window) { <span id="L205" class="LineNr">205 </span><span class="Delimiter">}</span> <span id="L206" class="LineNr">206 </span> <span id="L207" class="LineNr">207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L207'>grapheme-before-cursor-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L209" class="LineNr">209 </span> <span class="muComment"># try to read from left</span> -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> left, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> left, <a href='../203stack.subx.html#L338'>top</a> <span id="L212" class="LineNr">212 </span> compare *top-addr, <span class="Constant">0</span> <span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> <span id="L214" class="LineNr">214 </span> <span class="PreProc">break-if-<=</span> -<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left -<span id="L216" class="LineNr">216 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> left, <a href='data.mu.html#L70'>result</a> -<span id="L217" class="LineNr">217 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left +<span id="L216" class="LineNr">216 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> left, <a href='data.mu.html#L82'>result</a> +<span id="L217" class="LineNr">217 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> <span id="L219" class="LineNr">219 </span> <span class="muComment"># give up</span> <span id="L220" class="LineNr">220 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> <span id="L221" class="LineNr">221 </span><span class="Delimiter">}</span> <span id="L222" class="LineNr">222 </span> <span id="L223" class="LineNr">223 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L223'>delete-before-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> left <span id="L227" class="LineNr">227 </span><span class="Delimiter">}</span> <span id="L228" class="LineNr">228 </span> <span id="L229" class="LineNr">229 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L229'>pop-after-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> right -<span id="L233" class="LineNr">233 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> right +<span id="L233" class="LineNr">233 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> <span id="L235" class="LineNr">235 </span> <span id="L236" class="LineNr">236 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self <span id="L238" class="LineNr">238 </span> <span class="muComment"># complication: graphemes may be multiple bytes</span> <span id="L239" class="LineNr">239 </span> <span class="muComment"># so don't rely on length</span> <span id="L240" class="LineNr">240 </span> <span class="muComment"># instead turn the expected result into a stream and arrange to read from it in order</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>) <span class="muComment"># max-word-size</span> -<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> expected-stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address stream-storage -<span id="L243" class="LineNr">243 </span> <a href='../../108write.subx.html#L24'>write</a> expected-stream, s +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/max-word-size) +<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> expected-stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L243" class="LineNr">243 </span> <a href='../108write.subx.html#L24'>write</a> expected-stream, s <span id="L244" class="LineNr">244 </span> <span class="muComment"># compare left</span> -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L117'>prefix-match?</a> left, expected-stream -<span id="L247" class="LineNr">247 </span> compare <a href='data.mu.html#L70'>result</a>, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L117'>prefix-match?</a> left, expected-stream +<span id="L247" class="LineNr">247 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L248" class="LineNr">248 </span> <span class="Delimiter">{</span> <span id="L249" class="LineNr">249 </span> <span class="PreProc">break-if-!=</span> -<span id="L250" class="LineNr">250 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L251" class="LineNr">251 </span> <span class="Delimiter">}</span> <span id="L252" class="LineNr">252 </span> <span class="muComment"># compare right</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L254" class="LineNr">254 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L145'>suffix-match?</a> right, expected-stream -<span id="L255" class="LineNr">255 </span> compare <a href='data.mu.html#L70'>result</a>, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L254" class="LineNr">254 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L145'>suffix-match?</a> right, expected-stream +<span id="L255" class="LineNr">255 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L256" class="LineNr">256 </span> <span class="Delimiter">{</span> <span id="L257" class="LineNr">257 </span> <span class="PreProc">break-if-!=</span> -<span id="L258" class="LineNr">258 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L258" class="LineNr">258 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L259" class="LineNr">259 </span> <span class="Delimiter">}</span> <span id="L260" class="LineNr">260 </span> <span class="muComment"># ensure there's nothing left over</span> -<span id="L261" class="LineNr">261 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> expected-stream -<span id="L262" class="LineNr">262 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L261" class="LineNr">261 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> expected-stream +<span id="L262" class="LineNr">262 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L263" class="LineNr">263 </span><span class="Delimiter">}</span> <span id="L264" class="LineNr">264 </span> <span id="L265" class="LineNr">265 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L265'>test-gap-buffer-equal-from-end?</a></span> <span class="Delimiter">{</span> <span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L1'>gap-buffer</a> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L268" class="LineNr">268 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g <span id="L269" class="LineNr">269 </span> <span class="muComment">#</span> -<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a <span id="L271" class="LineNr">271 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c <span id="L272" class="LineNr">272 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c <span id="L273" class="LineNr">273 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c <span id="L274" class="LineNr">274 </span> <span class="muComment"># gap is at end (right is empty)</span> -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _result -<span id="L277" class="LineNr">277 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> <a href='data.mu.html#L70'>result</a>, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-end?"</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _result +<span id="L277" class="LineNr">277 </span> <a href='../102test.subx.html#L23'>check-ints-equal</a> <a href='data.mu.html#L82'>result</a>, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-end?"</span> <span id="L278" class="LineNr">278 </span><span class="Delimiter">}</span> <span id="L279" class="LineNr">279 </span> <span id="L280" class="LineNr">280 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L280'>test-gap-buffer-equal-from-middle?</a></span> <span class="Delimiter">{</span> <span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L1'>gap-buffer</a> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g +<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L283" class="LineNr">283 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g <span id="L284" class="LineNr">284 </span> <span class="muComment">#</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a <span id="L286" class="LineNr">286 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c <span id="L287" class="LineNr">287 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c <span id="L288" class="LineNr">288 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g <span id="L290" class="LineNr">290 </span> <span class="muComment"># gap is in the middle</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> -<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _result -<span id="L293" class="LineNr">293 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> <a href='data.mu.html#L70'>result</a>, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-middle?"</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _result +<span id="L293" class="LineNr">293 </span> <a href='../102test.subx.html#L23'>check-ints-equal</a> <a href='data.mu.html#L82'>result</a>, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-middle?"</span> <span id="L294" class="LineNr">294 </span><span class="Delimiter">}</span> <span id="L295" class="LineNr">295 </span> <span id="L296" class="LineNr">296 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L296'>test-gap-buffer-equal-from-start?</a></span> <span class="Delimiter">{</span> <span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L1'>gap-buffer</a> -<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> address _g +<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> address _g <span id="L299" class="LineNr">299 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> g <span id="L300" class="LineNr">300 </span> <span class="muComment">#</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x61</span> <span class="muComment"># 'a'</span> +<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a <span id="L302" class="LineNr">302 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c <span id="L303" class="LineNr">303 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c <span id="L304" class="LineNr">304 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> g, c -<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g -<span id="L306" class="LineNr">306 </span> dummy <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g -<span id="L307" class="LineNr">307 </span> dummy <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g +<span id="L306" class="LineNr">306 </span> dummy <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g +<span id="L307" class="LineNr">307 </span> dummy <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> g <span id="L308" class="LineNr">308 </span> <span class="muComment"># gap is at the start</span> -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _result -<span id="L311" class="LineNr">311 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> <a href='data.mu.html#L70'>result</a>, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-start?"</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> _result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _result +<span id="L311" class="LineNr">311 </span> <a href='../102test.subx.html#L23'>check-ints-equal</a> <a href='data.mu.html#L82'>result</a>, <span class="Constant">1</span>, <span class="Constant">"F - test-gap-buffer-equal-from-start?"</span> <span id="L312" class="LineNr">312 </span><span class="Delimiter">}</span> <span id="L313" class="LineNr">313 </span> <span id="L314" class="LineNr">314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L314'>copy-gap-buffer</a></span> _src-ah: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>), _dest-ah: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Delimiter">{</span> <span id="L315" class="LineNr">315 </span> <span class="muComment"># obtain src-a, dest-a</span> -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _src-ah -<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _src-a -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _dest-ah -<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">edi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _dest-a +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _src-ah +<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _src-a +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L321" class="LineNr">321 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">edi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-a <span id="L322" class="LineNr">322 </span> <span class="muComment"># copy left grapheme-stack</span> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, left -<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-a, left +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, left +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-a, left <span id="L325" class="LineNr">325 </span> <a href='grapheme-stack.mu.html#L59'>copy-grapheme-stack</a> src, dest <span id="L326" class="LineNr">326 </span> <span class="muComment"># copy right grapheme-stack</span> -<span id="L327" class="LineNr">327 </span> src <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-a, right -<span id="L328" class="LineNr">328 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-a, right +<span id="L327" class="LineNr">327 </span> src <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, right +<span id="L328" class="LineNr">328 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-a, right <span id="L329" class="LineNr">329 </span> <a href='grapheme-stack.mu.html#L59'>copy-grapheme-stack</a> src, dest <span id="L330" class="LineNr">330 </span><span class="Delimiter">}</span> <span id="L331" class="LineNr">331 </span> <span id="L332" class="LineNr">332 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L332'>gap-buffer-is-decimal-integer?</a></span> _self: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, left -<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, left +<span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a> curr <span id="L336" class="LineNr">336 </span> <span class="Delimiter">{</span> -<span id="L337" class="LineNr">337 </span> compare <a href='data.mu.html#L70'>result</a>, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L337" class="LineNr">337 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L338" class="LineNr">338 </span> <span class="PreProc">break-if-=</span> -<span id="L339" class="LineNr">339 </span> curr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, right -<span id="L340" class="LineNr">340 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> <a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L339" class="LineNr">339 </span> curr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, right +<span id="L340" class="LineNr">340 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a> curr <span id="L341" class="LineNr">341 </span> <span class="Delimiter">}</span> -<span id="L342" class="LineNr">342 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L342" class="LineNr">342 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L343" class="LineNr">343 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/tile/grapheme-stack.mu.html b/html/linux/tile/grapheme-stack.mu.html index 0d08d5a0..76987f7e 100644 --- a/html/apps/tile/grapheme-stack.mu.html +++ b/html/linux/tile/grapheme-stack.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/grapheme-stack.mu</title> +<title>Mu - linux/tile/grapheme-stack.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,13 +14,13 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.muComment { color: #005faf; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -54,118 +54,118 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/grapheme-stack.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/grapheme-stack.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a> <span class="Delimiter">{</span> <span id="L2" class="LineNr"> 2 </span> data: (handle array grapheme) -<span id="L3" class="LineNr"> 3 </span> <a href='../../203stack.subx.html#L338'>top</a>: int +<span id="L3" class="LineNr"> 3 </span> <a href='../203stack.subx.html#L338'>top</a>: int <span id="L4" class="LineNr"> 4 </span><span class="Delimiter">}</span> <span id="L5" class="LineNr"> 5 </span> <span id="L6" class="LineNr"> 6 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data <span id="L9" class="LineNr"> 9 </span> populate d, n -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L11" class="LineNr"> 11 </span> copy-to *top, <span class="Constant">0</span> <span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L14'>clear-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Delimiter">{</span> -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L17" class="LineNr"> 17 </span> copy-to *top, <span class="Constant">0</span> <span id="L18" class="LineNr"> 18 </span><span class="Delimiter">}</span> <span id="L19" class="LineNr"> 19 </span> <span id="L20" class="LineNr"> 20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L23" class="LineNr"> 23 </span> compare *top, <span class="Constant">0</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="PreProc">break-if-!=</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">}</span> -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L29" class="LineNr"> 29 </span><span class="Delimiter">}</span> <span id="L30" class="LineNr"> 30 </span> <span id="L31" class="LineNr"> 31 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), _val: grapheme <span class="Delimiter">{</span> -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy _val +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy _val <span id="L39" class="LineNr"> 39 </span> copy-to *dest-addr, val <span id="L40" class="LineNr"> 40 </span> add-to *top-addr, <span class="Constant">1</span> <span id="L41" class="LineNr"> 41 </span><span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span> <span id="L43" class="LineNr"> 43 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">{</span> <span id="L47" class="LineNr"> 47 </span> compare *top-addr, <span class="Constant">0</span> <span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break-if-></span> <span id="L49" class="LineNr"> 49 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> <span id="L51" class="LineNr"> 51 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, <a href='../203stack.subx.html#L338'>top</a> <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">return</span> *result-addr <span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> <span id="L58" class="LineNr"> 58 </span> <span id="L59" class="LineNr"> 59 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L59'>copy-grapheme-stack</a></span> _src: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Delimiter">{</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, data -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _src +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, data +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, <a href='../203stack.subx.html#L338'>top</a> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> <span id="L67" class="LineNr"> 67 </span> compare i, *top-addr <span id="L68" class="LineNr"> 68 </span> <span class="PreProc">break-if->=</span> -<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i <span id="L70" class="LineNr"> 70 </span> <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> dest, *g -<span id="L71" class="LineNr"> 71 </span> i <span class="SpecialChar"><-</span> increment +<span id="L71" class="LineNr"> 71 </span> i <span class="Special"><-</span> increment <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">loop</span> <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">}</span> <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">}</span> <span id="L75" class="LineNr"> 75 </span> <span id="L76" class="LineNr"> 76 </span><span class="muComment"># dump stack to screen from bottom to top</span> <span id="L77" class="LineNr"> 77 </span><span class="muComment"># don't move the cursor or anything</span> -<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L78" class="LineNr"> 78 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">{</span> <span id="L86" class="LineNr"> 86 </span> compare i, *top-addr <span id="L87" class="LineNr"> 87 </span> <span class="PreProc">break-if->=</span> -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L89" class="LineNr"> 89 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g -<span id="L90" class="LineNr"> 90 </span> i <span class="SpecialChar"><-</span> increment +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L89" class="LineNr"> 89 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g +<span id="L90" class="LineNr"> 90 </span> i <span class="Special"><-</span> increment <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">loop</span> <span id="L92" class="LineNr"> 92 </span> <span class="Delimiter">}</span> <span id="L93" class="LineNr"> 93 </span><span class="Delimiter">}</span> <span id="L94" class="LineNr"> 94 </span> <span id="L95" class="LineNr"> 95 </span><span class="muComment"># dump stack to screen from top to bottom</span> <span id="L96" class="LineNr"> 96 </span><span class="muComment"># don't move the cursor or anything</span> -<span id="L97" class="LineNr"> 97 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L104" class="LineNr">104 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L97" class="LineNr"> 97 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L104" class="LineNr">104 </span> i <span class="Special"><-</span> decrement <span id="L105" class="LineNr">105 </span> <span class="Delimiter">{</span> <span id="L106" class="LineNr">106 </span> compare i, <span class="Constant">0</span> <span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-<</span> -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L109" class="LineNr">109 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g -<span id="L110" class="LineNr">110 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L109" class="LineNr">109 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g +<span id="L110" class="LineNr">110 </span> i <span class="Special"><-</span> decrement <span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> <span id="L113" class="LineNr">113 </span><span class="Delimiter">}</span> @@ -173,26 +173,26 @@ if ('onhashchange' in window) { <span id="L115" class="LineNr">115 </span><span class="muComment"># compare from bottom</span> <span id="L116" class="LineNr">116 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> <span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L117'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L124" class="LineNr">124 </span> <span class="Delimiter">{</span> <span id="L125" class="LineNr">125 </span> compare i, *top-addr <span id="L126" class="LineNr">126 </span> <span class="PreProc">break-if->=</span> <span id="L127" class="LineNr">127 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L128" class="LineNr">128 </span> <span class="Delimiter">{</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s <span id="L131" class="LineNr">131 </span> <span class="Delimiter">{</span> <span id="L132" class="LineNr">132 </span> compare expected, *curr-a <span id="L133" class="LineNr">133 </span> <span class="PreProc">break-if-=</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L135" class="LineNr">135 </span> <span class="Delimiter">}</span> <span id="L136" class="LineNr">136 </span> <span class="Delimiter">}</span> -<span id="L137" class="LineNr">137 </span> i <span class="SpecialChar"><-</span> increment +<span id="L137" class="LineNr">137 </span> i <span class="Special"><-</span> increment <span id="L138" class="LineNr">138 </span> <span class="PreProc">loop</span> <span id="L139" class="LineNr">139 </span> <span class="Delimiter">}</span> <span id="L140" class="LineNr">140 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> @@ -201,51 +201,51 @@ if ('onhashchange' in window) { <span id="L143" class="LineNr">143 </span><span class="muComment"># compare from bottom</span> <span id="L144" class="LineNr">144 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> <span id="L145" class="LineNr">145 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L145'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L152" class="LineNr">152 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L152" class="LineNr">152 </span> i <span class="Special"><-</span> decrement <span id="L153" class="LineNr">153 </span> <span class="Delimiter">{</span> <span id="L154" class="LineNr">154 </span> compare i, <span class="Constant">0</span> <span id="L155" class="LineNr">155 </span> <span class="PreProc">break-if-<</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">{</span> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s <span id="L159" class="LineNr">159 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> <span id="L161" class="LineNr">161 </span> compare expected, *curr-a <span id="L162" class="LineNr">162 </span> <span class="PreProc">break-if-=</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L163" class="LineNr">163 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L164" class="LineNr">164 </span> <span class="Delimiter">}</span> <span id="L165" class="LineNr">165 </span> <span class="Delimiter">}</span> -<span id="L166" class="LineNr">166 </span> i <span class="SpecialChar"><-</span> decrement +<span id="L166" class="LineNr">166 </span> i <span class="Special"><-</span> decrement <span id="L167" class="LineNr">167 </span> <span class="PreProc">loop</span> <span id="L168" class="LineNr">168 </span> <span class="Delimiter">}</span> <span id="L169" class="LineNr">169 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> <span id="L170" class="LineNr">170 </span><span class="Delimiter">}</span> <span id="L171" class="LineNr">171 </span> <span id="L172" class="LineNr">172 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr array grapheme) <span class="SpecialChar"><-</span> copy _data -<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">1</span>/true <span id="L180" class="LineNr">180 </span> $grapheme-stack-is-integer?:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L181" class="LineNr">181 </span> compare i, *top-addr <span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if->=</span> -<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> index data, i -<span id="L184" class="LineNr">184 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> <a href='../../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> *g -<span id="L185" class="LineNr">185 </span> compare <a href='data.mu.html#L70'>result</a>, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L184" class="LineNr">184 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L306'>decimal-digit?</a> *g +<span id="L185" class="LineNr">185 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0</span>/false <span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-=</span> -<span id="L187" class="LineNr">187 </span> i <span class="SpecialChar"><-</span> increment +<span id="L187" class="LineNr">187 </span> i <span class="Special"><-</span> increment <span id="L188" class="LineNr">188 </span> <span class="PreProc">loop</span> <span id="L189" class="LineNr">189 </span> <span class="Delimiter">}</span> -<span id="L190" class="LineNr">190 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L191" class="LineNr">191 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/linux/tile/main.mu.html b/html/linux/tile/main.mu.html new file mode 100644 index 00000000..bc1b4ad7 --- /dev/null +++ b/html/linux/tile/main.mu.html @@ -0,0 +1,195 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/tile/main.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Delimiter { color: #c000c0; } +.muComment { color: #005faf; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Special { color: #ff6060; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/main.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/main.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L1'>main</a></span> args-on-stack: (addr array addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> args/<span class="Constant">eax</span>: (addr array addr array byte) <span class="Special"><-</span> copy args-on-stack +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length args +<span id="L4" class="LineNr"> 4 </span> compare len, <span class="Constant">2</span> +<span id="L5" class="LineNr"> 5 </span> <span class="Delimiter">{</span> +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">break-if-!=</span> +<span id="L7" class="LineNr"> 7 </span> <span class="muComment"># if single arg is 'test', run tests</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> tmp/<span class="Constant">ecx</span>: (addr addr array byte) <span class="Special"><-</span> index args, <span class="Constant">1</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> tmp2/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"test"</span> +<span id="L10" class="LineNr"> 10 </span> compare tmp2, <span class="Constant">0</span>/false +<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">break-if-=</span> +<span id="L13" class="LineNr"> 13 </span> run-tests +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># TODO: get at Num-test-failures somehow</span> +<span id="L15" class="LineNr"> 15 </span> <span class="Delimiter">}</span> +<span id="L16" class="LineNr"> 16 </span> <span class="muComment"># if single arg is 'screen', run in full-screen mode</span> +<span id="L17" class="LineNr"> 17 </span> tmp2 <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"screen"</span> +<span id="L18" class="LineNr"> 18 </span> compare tmp2, <span class="Constant">0</span>/false +<span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">{</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">break-if-=</span> +<span id="L21" class="LineNr"> 21 </span> <a href='main.mu.html#L49'>interactive</a> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> +<span id="L24" class="LineNr"> 24 </span> <span class="muComment"># if single arg is 'type', run in typewriter mode</span> +<span id="L25" class="LineNr"> 25 </span> tmp2 <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"type"</span> +<span id="L26" class="LineNr"> 26 </span> compare tmp2, <span class="Constant">0</span>/false +<span id="L27" class="LineNr"> 27 </span> <span class="Delimiter">{</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">break-if-=</span> +<span id="L29" class="LineNr"> 29 </span> <a href='main.mu.html#L88'>repl</a> +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">}</span> +<span id="L32" class="LineNr"> 32 </span> <span class="muComment"># if single arg is 'test' ...</span> +<span id="L33" class="LineNr"> 33 </span> tmp2 <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> *tmp, <span class="Constant">"test2"</span> +<span id="L34" class="LineNr"> 34 </span> compare tmp2, <span class="Constant">0</span>/false +<span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">{</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">break-if-=</span> +<span id="L37" class="LineNr"> 37 </span> <a href='main.mu.html#L67'>test</a> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">}</span> +<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">}</span> +<span id="L41" class="LineNr"> 41 </span> <span class="muComment"># otherwise error message</span> +<span id="L42" class="LineNr"> 42 </span> <a href='../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"usage:\n"</span> +<span id="L43" class="LineNr"> 43 </span> <a href='../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" to run tests: tile test\n"</span> +<span id="L44" class="LineNr"> 44 </span> <a href='../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" full-screen mode: tile screen\n"</span> +<span id="L45" class="LineNr"> 45 </span> <a href='../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">" regular REPL: tile type\n"</span> +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">return</span> <span class="Constant">1</span> +<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> +<span id="L48" class="LineNr"> 48 </span> +<span id="L49" class="LineNr"> 49 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L49'>interactive</a></span> <span class="Delimiter">{</span> +<span id="L50" class="LineNr"> 50 </span> <a href='../304screen.subx.html#L6'>enable-screen-grid-mode</a> +<span id="L51" class="LineNr"> 51 </span> <a href='../305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> env-storage: <a href='environment.mu.html#L16'>environment</a> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> address env-storage +<span id="L54" class="LineNr"> 54 </span> <a href='environment.mu.html#L30'>initialize-environment</a> env +<span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <a href='environment.mu.html#L1309'>render</a> env +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L58" class="LineNr"> 58 </span> compare key, <span class="Constant">0x11</span>/ctrl-q +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">break-if-=</span> +<span id="L60" class="LineNr"> 60 </span> <a href='environment.mu.html#L73'>process</a> env, key +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">loop</span> +<span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> +<span id="L63" class="LineNr"> 63 </span> <a href='../305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L64" class="LineNr"> 64 </span> <a href='../304screen.subx.html#L24'>enable-screen-type-mode</a> +<span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> +<span id="L66" class="LineNr"> 66 </span> +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L67'>test</a></span> <span class="Delimiter">{</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> env-storage: <a href='environment.mu.html#L16'>environment</a> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> address env-storage +<span id="L70" class="LineNr"> 70 </span> <a href='environment.mu.html#L60'>initialize-environment-with-fake-screen</a> env, <span class="Constant">0x20</span>, <span class="Constant">0xa0</span> +<span id="L71" class="LineNr"> 71 </span> <a href='environment.mu.html#L1309'>render</a> env +<span id="L72" class="LineNr"> 72 </span><span class="Delimiter">}</span> +<span id="L73" class="LineNr"> 73 </span> +<span id="L74" class="LineNr"> 74 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L74'>process-all</a></span> env: (addr <a href='environment.mu.html#L16'>environment</a>), cmds: (addr array byte) <span class="Delimiter">{</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> cmds-stream: (stream byte <span class="Constant">0x100</span>) +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> cmds-stream-a/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address cmds-stream +<span id="L77" class="LineNr"> 77 </span> <a href='../108write.subx.html#L24'>write</a> cmds-stream-a, cmds +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">{</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> cmds-stream-a +<span id="L80" class="LineNr"> 80 </span> compare done?, <span class="Constant">0</span>/false +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-!=</span> +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> cmds-stream-a +<span id="L83" class="LineNr"> 83 </span> <a href='environment.mu.html#L73'>process</a> env, g +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">loop</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> +<span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> +<span id="L87" class="LineNr"> 87 </span> +<span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L88'>repl</a></span> <span class="Delimiter">{</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">{</span> +<span id="L90" class="LineNr"> 90 </span> <span class="muComment"># prompt</span> +<span id="L91" class="LineNr"> 91 </span> <a href='../304screen.subx.html#L122'>print-string-to-real-screen</a> <span class="Constant">"> "</span> +<span id="L92" class="LineNr"> 92 </span> <span class="muComment"># read</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> line-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address line-storage +<span id="L95" class="LineNr"> 95 </span> <a href='../106stream.subx.html#L17'>clear-stream</a> <a href='data.mu.html#L34'>line</a> +<span id="L96" class="LineNr"> 96 </span> <a href='../305keyboard.subx.html#L158'>read-line-from-real-keyboard</a> <a href='data.mu.html#L34'>line</a> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> <a href='data.mu.html#L34'>line</a> +<span id="L98" class="LineNr"> 98 </span> compare done?, <span class="Constant">0</span>/false +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-!=</span> +<span id="L100" class="LineNr">100 </span> <span class="muComment"># parse</span> +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> env-storage: <a href='environment.mu.html#L16'>environment</a> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> env/<span class="Constant">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> address env-storage +<span id="L103" class="LineNr">103 </span> <a href='environment.mu.html#L30'>initialize-environment</a> env +<span id="L104" class="LineNr">104 </span> <span class="Delimiter">{</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> <a href='data.mu.html#L34'>line</a> +<span id="L106" class="LineNr">106 </span> compare done?, <span class="Constant">0</span>/false +<span id="L107" class="LineNr">107 </span> <span class="PreProc">break-if-!=</span> +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> <a href='data.mu.html#L34'>line</a> +<span id="L109" class="LineNr">109 </span> <a href='environment.mu.html#L73'>process</a> env, g +<span id="L110" class="LineNr">110 </span> <span class="PreProc">loop</span> +<span id="L111" class="LineNr">111 </span> <span class="Delimiter">}</span> +<span id="L112" class="LineNr">112 </span> <span class="muComment"># eval</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L3'>value-stack</a> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> address stack-storage +<span id="L115" class="LineNr">115 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack, <span class="Constant">0x10</span> +<span id="L116" class="LineNr">116 </span> <a href='environment.mu.html#L1296'>evaluate-environment</a> env, stack +<span id="L117" class="LineNr">117 </span> <span class="muComment"># print</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='value-stack.mu.html#L108'>value-stack-empty?</a> stack +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> compare empty?, <span class="Constant">0</span>/false +<span id="L121" class="LineNr">121 </span> <span class="PreProc">break-if-!=</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> stack +<span id="L123" class="LineNr">123 </span> <a href='../412print-float-decimal.mu.html#L151'>print-float-decimal-approximate</a> <span class="Constant">0</span>, <a href='data.mu.html#L82'>result</a>, <span class="Constant">3</span> +<span id="L124" class="LineNr">124 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L125" class="LineNr">125 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"width: "</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../412print-float-decimal.mu.html#L510'>float-size</a> <a href='data.mu.html#L82'>result</a>, <span class="Constant">3</span> +<span id="L127" class="LineNr">127 </span> <a href='../405screen.mu.html#L484'>print-int32-decimal</a> <span class="Constant">0</span>, width +<span id="L128" class="LineNr">128 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L129" class="LineNr">129 </span> <span class="Delimiter">}</span> +<span id="L130" class="LineNr">130 </span> <span class="muComment">#</span> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">loop</span> +<span id="L132" class="LineNr">132 </span> <span class="Delimiter">}</span> +<span id="L133" class="LineNr">133 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/apps/tile/rpn.mu.html b/html/linux/tile/rpn.mu.html index 55564796..d2d51a2d 100644 --- a/html/apps/tile/rpn.mu.html +++ b/html/linux/tile/rpn.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/rpn.mu</title> +<title>Mu - linux/tile/rpn.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } .CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } .muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -56,21 +56,21 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/rpn.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/rpn.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/rpn.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/rpn.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L1'>evaluate</a></span> functions: (addr handle <a href='data.mu.html#L14'>function</a>), bindings: (addr <a href='data.mu.html#L47'>table</a>), scratch: (addr <a href='data.mu.html#L22'>line</a>), end: (addr <a href='data.mu.html#L30'>word</a>), out: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy scratch -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, data -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *word-ah +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L1'>evaluate</a></span> functions: (addr handle <a href='data.mu.html#L21'>function</a>), bindings: (addr <a href='data.mu.html#L59'>table</a>), scratch: (addr <a href='data.mu.html#L34'>line</a>), end: (addr <a href='data.mu.html#L42'>word</a>), out: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy scratch +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, data +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *word-ah <span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> curr-stream-storage: (stream byte <span class="Constant">0x10</span>) -<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> curr-stream/<span class="Constant">edi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address curr-stream-storage +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> curr-stream/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address curr-stream-storage <span id="L7" class="LineNr"> 7 </span> <a href='value-stack.mu.html#L16'>clear-value-stack</a> out <span id="L8" class="LineNr"> 8 </span> $evaluate:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L9" class="LineNr"> 9 </span> <span class="muComment"># precondition (should never hit)</span> <span id="L10" class="LineNr"> 10 </span> compare curr, <span class="Constant">0</span> <span id="L11" class="LineNr"> 11 </span> <span class="PreProc">break-if-=</span> <span id="L12" class="LineNr"> 12 </span> <span class="muComment"># update curr-stream</span> -<span id="L13" class="LineNr"> 13 </span> <a href='word.mu.html#L501'>emit-word</a> curr, curr-stream +<span id="L13" class="LineNr"> 13 </span> <a href='word.mu.html#L473'>emit-word</a> curr, curr-stream <span id="L14" class="LineNr"> 14 </span><span class="CommentedCode">#? print-string-to-real-screen "eval: "</span> <span id="L15" class="LineNr"> 15 </span><span class="CommentedCode">#? print-stream-to-real-screen curr-stream</span> <span id="L16" class="LineNr"> 16 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> @@ -78,590 +78,590 @@ if ('onhashchange' in window) { <span id="L18" class="LineNr"> 18 </span> <span class="muComment">### if curr-stream is an operator, perform it</span> <span id="L19" class="LineNr"> 19 </span> <span class="muComment">## numbers</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"+"</span> -<span id="L22" class="LineNr"> 22 </span> compare is-add?, <span class="Constant">0</span> +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> add?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"+"</span> +<span id="L22" class="LineNr"> 22 </span> compare add?, <span class="Constant">0</span> <span id="L23" class="LineNr"> 23 </span> <span class="PreProc">break-if-=</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L27" class="LineNr"> 27 </span> a <span class="SpecialChar"><-</span> add b +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy _b +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L27" class="LineNr"> 27 </span> a <span class="Special"><-</span> add b <span id="L28" class="LineNr"> 28 </span> <a href='value-stack.mu.html#L22'>push-number-to-value-stack</a> out, a <span id="L29" class="LineNr"> 29 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> <span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">{</span> -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"-"</span> -<span id="L33" class="LineNr"> 33 </span> compare is-sub?, <span class="Constant">0</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> sub?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"-"</span> +<span id="L33" class="LineNr"> 33 </span> compare sub?, <span class="Constant">0</span> <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break-if-=</span> -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L38" class="LineNr"> 38 </span> a <span class="SpecialChar"><-</span> subtract b +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy _b +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L38" class="LineNr"> 38 </span> a <span class="Special"><-</span> subtract b <span id="L39" class="LineNr"> 39 </span> <a href='value-stack.mu.html#L22'>push-number-to-value-stack</a> out, a <span id="L40" class="LineNr"> 40 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L41" class="LineNr"> 41 </span> <span class="Delimiter">}</span> <span id="L42" class="LineNr"> 42 </span> <span class="Delimiter">{</span> -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"*"</span> -<span id="L44" class="LineNr"> 44 </span> compare is-mul?, <span class="Constant">0</span> +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> mul?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"*"</span> +<span id="L44" class="LineNr"> 44 </span> compare mul?, <span class="Constant">0</span> <span id="L45" class="LineNr"> 45 </span> <span class="PreProc">break-if-=</span> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L49" class="LineNr"> 49 </span> a <span class="SpecialChar"><-</span> multiply b +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy _b +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L49" class="LineNr"> 49 </span> a <span class="Special"><-</span> multiply b <span id="L50" class="LineNr"> 50 </span> <a href='value-stack.mu.html#L22'>push-number-to-value-stack</a> out, a <span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">}</span> <span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">{</span> -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> is-div?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"/"</span> -<span id="L55" class="LineNr"> 55 </span> compare is-div?, <span class="Constant">0</span> +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> div?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"/"</span> +<span id="L55" class="LineNr"> 55 </span> compare div?, <span class="Constant">0</span> <span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-=</span> -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="SpecialChar"><-</span> copy _b -<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L60" class="LineNr"> 60 </span> a <span class="SpecialChar"><-</span> divide b +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> _b/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> b/<span class="Constant">xmm1</span>: float <span class="Special"><-</span> copy _b +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L60" class="LineNr"> 60 </span> a <span class="Special"><-</span> divide b <span id="L61" class="LineNr"> 61 </span> <a href='value-stack.mu.html#L22'>push-number-to-value-stack</a> out, a <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L63" class="LineNr"> 63 </span> <span class="Delimiter">}</span> <span id="L64" class="LineNr"> 64 </span> <span class="Delimiter">{</span> -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> is-sqrt?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"sqrt"</span> -<span id="L66" class="LineNr"> 66 </span> compare is-sqrt?, <span class="Constant">0</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> sqrt?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"sqrt"</span> +<span id="L66" class="LineNr"> 66 </span> compare sqrt?, <span class="Constant">0</span> <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">break-if-=</span> -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out -<span id="L69" class="LineNr"> 69 </span> a <span class="SpecialChar"><-</span> square-root a +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> a/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out +<span id="L69" class="LineNr"> 69 </span> a <span class="Special"><-</span> square-root a <span id="L70" class="LineNr"> 70 </span> <a href='value-stack.mu.html#L22'>push-number-to-value-stack</a> out, a <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">}</span> <span id="L73" class="LineNr"> 73 </span> <span class="muComment">## strings/arrays</span> <span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">{</span> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> is-len?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"len"</span> -<span id="L76" class="LineNr"> 76 </span> compare is-len?, <span class="Constant">0</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> len?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"len"</span> +<span id="L76" class="LineNr"> 76 </span> compare len?, <span class="Constant">0</span> <span id="L77" class="LineNr"> 77 </span> <span class="PreProc">break-if-=</span> <span id="L78" class="LineNr"> 78 </span><span class="CommentedCode">#? print-string 0, "is len\n"</span> <span id="L79" class="LineNr"> 79 </span> <span class="muComment"># pop target-val from out</span> -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L82" class="LineNr"> 82 </span> compare *top-addr, <span class="Constant">0</span> <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">break-if-<=</span> <span id="L84" class="LineNr"> 84 </span><span class="CommentedCode">#? print-string 0, "stack has stuff\n"</span> -<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L88" class="LineNr"> 88 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L88" class="LineNr"> 88 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L91" class="LineNr"> 91 </span> <span class="muComment"># check target-val is a string or array</span> -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L93" class="LineNr"> 93 </span> compare *target-type-addr, <span class="Constant">1</span> <span class="muComment"># string</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L93" class="LineNr"> 93 </span> compare *target-type-addr, <span class="Constant">1</span>/string <span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">{</span> <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-!=</span> <span id="L96" class="LineNr"> 96 </span> <span class="muComment"># compute length</span> -<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> length src -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> result-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert <a href='data.mu.html#L70'>result</a> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ebx</span>: int <span class="Special"><-</span> length src +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> result-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert <a href='data.mu.html#L82'>result</a> <span id="L101" class="LineNr">101 </span> <span class="muComment"># save result into target-val</span> -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L103" class="LineNr">103 </span> copy-to *type-addr, <span class="Constant">0</span> <span class="muComment"># int</span> -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> target-string-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L103" class="LineNr">103 </span> copy-to *type-addr, <span class="Constant">0</span>/int +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> target-string-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data <span id="L105" class="LineNr">105 </span> clear-object target-string-ah -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, number-data +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, number-data <span id="L107" class="LineNr">107 </span> copy-to *target, result-f <span id="L108" class="LineNr">108 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L109" class="LineNr">109 </span> <span class="Delimiter">}</span> -<span id="L110" class="LineNr">110 </span> compare *target-type-addr, <span class="Constant">2</span> <span class="muComment"># array of ints</span> +<span id="L110" class="LineNr">110 </span> compare *target-type-addr, <span class="Constant">2</span>/array <span id="L111" class="LineNr">111 </span> <span class="Delimiter">{</span> <span id="L112" class="LineNr">112 </span> <span class="PreProc">break-if-!=</span> <span id="L113" class="LineNr">113 </span> <span class="muComment"># compute length</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, array-data -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> length src -<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> result-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert <a href='data.mu.html#L70'>result</a> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, array-data +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ebx</span>: int <span class="Special"><-</span> length src +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> result-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert <a href='data.mu.html#L82'>result</a> <span id="L118" class="LineNr">118 </span> <span class="muComment"># save result into target-val</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L120" class="LineNr">120 </span> copy-to *type-addr, <span class="Constant">0</span> <span class="muComment"># int</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> target-array-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, array-data +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L120" class="LineNr">120 </span> copy-to *type-addr, <span class="Constant">0</span>/int +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> target-array-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, array-data <span id="L122" class="LineNr">122 </span> clear-object target-array-ah -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, number-data +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, number-data <span id="L124" class="LineNr">124 </span> copy-to *target, result-f <span id="L125" class="LineNr">125 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L126" class="LineNr">126 </span> <span class="Delimiter">}</span> <span id="L127" class="LineNr">127 </span> <span class="Delimiter">}</span> <span id="L128" class="LineNr">128 </span> <span class="muComment">## files</span> <span id="L129" class="LineNr">129 </span> <span class="Delimiter">{</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> is-open?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"open"</span> -<span id="L131" class="LineNr">131 </span> compare is-open?, <span class="Constant">0</span> +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> open?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"open"</span> +<span id="L131" class="LineNr">131 </span> compare open?, <span class="Constant">0</span> <span id="L132" class="LineNr">132 </span> <span class="PreProc">break-if-=</span> <span id="L133" class="LineNr">133 </span> <span class="muComment"># pop target-val from out</span> -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L136" class="LineNr">136 </span> compare *top-addr, <span class="Constant">0</span> <span id="L137" class="LineNr">137 </span> <span class="PreProc">break-if-<=</span> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L141" class="LineNr">141 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L141" class="LineNr">141 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L144" class="LineNr">144 </span> <span class="muComment"># check target-val is a string</span> -<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L146" class="LineNr">146 </span> compare *target-type-addr, <span class="Constant">1</span> <span class="muComment"># string</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L146" class="LineNr">146 </span> compare *target-type-addr, <span class="Constant">1</span>/string <span id="L147" class="LineNr">147 </span> <span class="PreProc">break-if-!=</span> <span id="L148" class="LineNr">148 </span> <span class="muComment"># open target-val as a filename and save the handle in target-val</span> -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ecx</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, file-data -<span id="L152" class="LineNr">152 </span> <a href='../../306files.subx.html#L12'>open</a> src, <span class="Constant">0</span>, result-ah <span class="muComment"># write? = false</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> result-ah/<span class="Constant">ecx</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data +<span id="L152" class="LineNr">152 </span> <a href='../306files.subx.html#L12'>open</a> src, <span class="Constant">0</span>, result-ah <span class="muComment"># write? = false</span> <span id="L153" class="LineNr">153 </span> <span class="muComment"># save result into target-val</span> -<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L155" class="LineNr">155 </span> copy-to *type-addr, <span class="Constant">3</span> <span class="muComment"># file</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> target-string-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> filename-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, filename +<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L155" class="LineNr">155 </span> copy-to *type-addr, <span class="Constant">3</span>/file +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> target-string-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> filename-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, filename <span id="L158" class="LineNr">158 </span> copy-object target-string-ah, filename-ah <span id="L159" class="LineNr">159 </span> clear-object target-string-ah <span id="L160" class="LineNr">160 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L161" class="LineNr">161 </span> <span class="Delimiter">}</span> <span id="L162" class="LineNr">162 </span> <span class="Delimiter">{</span> -<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> is-read?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"read"</span> -<span id="L164" class="LineNr">164 </span> compare is-read?, <span class="Constant">0</span> +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> read?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"read"</span> +<span id="L164" class="LineNr">164 </span> compare read?, <span class="Constant">0</span> <span id="L165" class="LineNr">165 </span> <span class="PreProc">break-if-=</span> <span id="L166" class="LineNr">166 </span> <span class="muComment"># pop target-val from out</span> -<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L169" class="LineNr">169 </span> compare *top-addr, <span class="Constant">0</span> <span id="L170" class="LineNr">170 </span> <span class="PreProc">break-if-<=</span> -<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L174" class="LineNr">174 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L174" class="LineNr">174 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L177" class="LineNr">177 </span> <span class="muComment"># check target-val is a file</span> -<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L179" class="LineNr">179 </span> compare *target-type-addr, <span class="Constant">3</span> <span class="muComment"># file</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L179" class="LineNr">179 </span> compare *target-type-addr, <span class="Constant">3</span>/file <span id="L180" class="LineNr">180 </span> <span class="PreProc">break-if-!=</span> <span id="L181" class="LineNr">181 </span> <span class="muComment"># read a line from the file and save in target-val</span> <span id="L182" class="LineNr">182 </span> <span class="muComment"># read target-val as a filename and save the handle in target-val</span> -<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, file-data -<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> file/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *file-ah +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> file/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *file-ah <span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s -<span id="L187" class="LineNr">187 </span> <a href='../../122read-line.subx.html#L9'>read-line-buffered</a> file, s-addr -<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data -<span id="L189" class="LineNr">189 </span> <a href='../../310copy-bytes.subx.html#L60'>stream-to-array</a> s-addr, target +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L187" class="LineNr">187 </span> <a href='../122read-line.subx.html#L9'>read-line-buffered</a> file, s-addr +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L189" class="LineNr">189 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> s-addr, target <span id="L190" class="LineNr">190 </span> <span class="muComment"># save result into target-val</span> -<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L192" class="LineNr">192 </span> copy-to *type-addr, <span class="Constant">1</span> <span class="muComment"># string</span> -<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> target-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, file-data +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L192" class="LineNr">192 </span> copy-to *type-addr, <span class="Constant">1</span>/string +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> target-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data <span id="L194" class="LineNr">194 </span> clear-object target-file-ah <span id="L195" class="LineNr">195 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L196" class="LineNr">196 </span> <span class="Delimiter">}</span> <span id="L197" class="LineNr">197 </span> <span class="Delimiter">{</span> -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> is-slurp?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"slurp"</span> -<span id="L199" class="LineNr">199 </span> compare is-slurp?, <span class="Constant">0</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> slurp?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"slurp"</span> +<span id="L199" class="LineNr">199 </span> compare slurp?, <span class="Constant">0</span> <span id="L200" class="LineNr">200 </span> <span class="PreProc">break-if-=</span> <span id="L201" class="LineNr">201 </span> <span class="muComment"># pop target-val from out</span> -<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L204" class="LineNr">204 </span> compare *top-addr, <span class="Constant">0</span> <span id="L205" class="LineNr">205 </span> <span class="PreProc">break-if-<=</span> -<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L209" class="LineNr">209 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L209" class="LineNr">209 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L212" class="LineNr">212 </span> <span class="muComment"># check target-val is a file</span> -<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L214" class="LineNr">214 </span> compare *target-type-addr, <span class="Constant">3</span> <span class="muComment"># file</span> +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L214" class="LineNr">214 </span> compare *target-type-addr, <span class="Constant">3</span>/file <span id="L215" class="LineNr">215 </span> <span class="PreProc">break-if-!=</span> <span id="L216" class="LineNr">216 </span> <span class="muComment"># slurp all contents from file and save in target-val</span> <span id="L217" class="LineNr">217 </span> <span class="muComment"># read target-val as a filename and save the handle in target-val</span> -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, file-data -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> file/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *file-ah +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> file/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *file-ah <span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s -<span id="L222" class="LineNr">222 </span> <a href='../../132slurp.subx.html#L8'>slurp</a> file, s-addr -<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data -<span id="L224" class="LineNr">224 </span> <a href='../../310copy-bytes.subx.html#L60'>stream-to-array</a> s-addr, target +<span id="L221" class="LineNr">221 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L222" class="LineNr">222 </span> <a href='../132slurp.subx.html#L8'>slurp</a> file, s-addr +<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L224" class="LineNr">224 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> s-addr, target <span id="L225" class="LineNr">225 </span> <span class="muComment"># save result into target-val</span> -<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L227" class="LineNr">227 </span> copy-to *type-addr, <span class="Constant">1</span> <span class="muComment"># string</span> -<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> target-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, file-data +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L227" class="LineNr">227 </span> copy-to *type-addr, <span class="Constant">1</span>/string +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> target-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data <span id="L229" class="LineNr">229 </span> clear-object target-file-ah <span id="L230" class="LineNr">230 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L231" class="LineNr">231 </span> <span class="Delimiter">}</span> <span id="L232" class="LineNr">232 </span> <span class="Delimiter">{</span> -<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> is-lines?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"lines"</span> -<span id="L234" class="LineNr">234 </span> compare is-lines?, <span class="Constant">0</span> +<span id="L233" class="LineNr">233 </span> <span class="PreProc">var</span> lines?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"lines"</span> +<span id="L234" class="LineNr">234 </span> compare lines?, <span class="Constant">0</span> <span id="L235" class="LineNr">235 </span> <span class="PreProc">break-if-=</span> <span id="L236" class="LineNr">236 </span> <span class="muComment"># pop target-val from out</span> -<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L239" class="LineNr">239 </span> compare *top-addr, <span class="Constant">0</span> <span id="L240" class="LineNr">240 </span> <span class="PreProc">break-if-<=</span> -<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L244" class="LineNr">244 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L243" class="LineNr">243 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L244" class="LineNr">244 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L245" class="LineNr">245 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L247" class="LineNr">247 </span> <span class="muComment"># check target-val is a file</span> -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L249" class="LineNr">249 </span> compare *target-type-addr, <span class="Constant">3</span> <span class="muComment"># file</span> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> target-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L249" class="LineNr">249 </span> compare *target-type-addr, <span class="Constant">3</span>/file <span id="L250" class="LineNr">250 </span> <span class="PreProc">break-if-!=</span> <span id="L251" class="LineNr">251 </span> <span class="muComment"># read all lines from file and save as an array of strings in target-val</span> <span id="L252" class="LineNr">252 </span> <span class="muComment"># read target-val as a filename and save the handle in target-val</span> -<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, file-data -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> file/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *file-ah +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> file/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *file-ah <span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s -<span id="L257" class="LineNr">257 </span> <a href='../../132slurp.subx.html#L8'>slurp</a> file, s-addr -<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data -<span id="L259" class="LineNr">259 </span> <a href='../../310copy-bytes.subx.html#L60'>stream-to-array</a> s-addr, tmp-ah -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *tmp-ah +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L257" class="LineNr">257 </span> <a href='../132slurp.subx.html#L8'>slurp</a> file, s-addr +<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L259" class="LineNr">259 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> s-addr, tmp-ah +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *tmp-ah <span id="L261" class="LineNr">261 </span><span class="CommentedCode">#? enable-screen-type-mode</span> <span id="L262" class="LineNr">262 </span><span class="CommentedCode">#? print-string 0, tmp</span> <span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> h: (handle array (handle array byte)) <span id="L264" class="LineNr">264 </span> <span class="Delimiter">{</span> -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> ah/<span class="Constant">edx</span>: (addr handle array (handle array byte)) <span class="SpecialChar"><-</span> address h -<span id="L266" class="LineNr">266 </span> <a href='../../411string.mu.html#L88'>split-string</a> tmp, <span class="Constant">0xa</span>, ah +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> ah/<span class="Constant">edx</span>: (addr handle array (handle array byte)) <span class="Special"><-</span> address h +<span id="L266" class="LineNr">266 </span> <a href='../411string.mu.html#L88'>split-string</a> tmp, <span class="Constant">0xa</span>, ah <span id="L267" class="LineNr">267 </span> <span class="Delimiter">}</span> -<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, array-data -<span id="L269" class="LineNr">269 </span> <a href='value-stack.mu.html#L151'>save-lines</a> h, target +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, array-data +<span id="L269" class="LineNr">269 </span> <a href='value-stack.mu.html#L125'>save-lines</a> h, target <span id="L270" class="LineNr">270 </span> <span class="muComment"># save result into target-val</span> -<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L272" class="LineNr">272 </span> copy-to *type-addr, <span class="Constant">2</span> <span class="muComment"># array</span> -<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> target-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, file-data +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L272" class="LineNr">272 </span> copy-to *type-addr, <span class="Constant">2</span>/array +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> target-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, file-data <span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> empty-file: (handle buffered-file) -<span id="L275" class="LineNr">275 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> empty-file, target-file-ah -<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> target-text-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, text-data +<span id="L275" class="LineNr">275 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> empty-file, target-file-ah +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> target-text-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, text-data <span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> empty-text: (handle array byte) -<span id="L278" class="LineNr">278 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> empty-text, target-text-ah +<span id="L278" class="LineNr">278 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> empty-text, target-text-ah <span id="L279" class="LineNr">279 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L280" class="LineNr">280 </span> <span class="Delimiter">}</span> <span id="L281" class="LineNr">281 </span> <span class="muComment">## screens</span> <span id="L282" class="LineNr">282 </span> <span class="Delimiter">{</span> -<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> is-fake-screen?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"fake-screen"</span> -<span id="L284" class="LineNr">284 </span> compare is-fake-screen?, <span class="Constant">0</span> +<span id="L283" class="LineNr">283 </span> <span class="PreProc">var</span> fake-screen?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"fake-screen"</span> +<span id="L284" class="LineNr">284 </span> compare fake-screen?, <span class="Constant">0</span> <span id="L285" class="LineNr">285 </span> <span class="PreProc">break-if-=</span> -<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L286" class="LineNr">286 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L287" class="LineNr">287 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L288" class="LineNr">288 </span> compare *top-addr, <span class="Constant">0</span> <span id="L289" class="LineNr">289 </span> <span class="PreProc">break-if-<=</span> <span id="L290" class="LineNr">290 </span> <span class="muComment"># pop width and height from out</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> nrows-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> nrows/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> convert nrows-f -<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> ncols-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> convert ncols-f +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> nrows-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> nrows/<span class="Constant">edx</span>: int <span class="Special"><-</span> convert nrows-f +<span id="L293" class="LineNr">293 </span> <span class="PreProc">var</span> ncols-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ebx</span>: int <span class="Special"><-</span> convert ncols-f <span id="L295" class="LineNr">295 </span> <span class="muComment"># define a new screen with those dimensions</span> -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> screen-h: (handle <a href='../../405screen.mu.html#L9'>screen</a>) -<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> address screen-h -<span id="L298" class="LineNr">298 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> screen-ah -<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> screen-h -<span id="L300" class="LineNr">300 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, nrows, ncols +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> screen-h: (handle <a href='../405screen.mu.html#L9'>screen</a>) +<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-h +<span id="L298" class="LineNr">298 </span> <a href='../120allocate.subx.html#L66'>allocate</a> screen-ah +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> screen-h +<span id="L300" class="LineNr">300 </span> <a href='../405screen.mu.html#L30'>initialize-screen</a> <a href='../405screen.mu.html#L9'>screen</a>, nrows, ncols <span id="L301" class="LineNr">301 </span> <span class="muComment"># push screen to stack</span> -<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr <span id="L305" class="LineNr">305 </span> increment *top-addr -<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L309" class="LineNr">309 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> -<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, screen-data -<span id="L311" class="LineNr">311 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> screen-h, dest +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset +<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L309" class="LineNr">309 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, screen-data +<span id="L311" class="LineNr">311 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> screen-h, dest <span id="L312" class="LineNr">312 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L313" class="LineNr">313 </span> <span class="Delimiter">}</span> <span id="L314" class="LineNr">314 </span> <span class="Delimiter">{</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> is-print?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"print"</span> -<span id="L316" class="LineNr">316 </span> compare is-print?, <span class="Constant">0</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> print?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"print"</span> +<span id="L316" class="LineNr">316 </span> compare print?, <span class="Constant">0</span> <span id="L317" class="LineNr">317 </span> <span class="PreProc">break-if-=</span> -<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L320" class="LineNr">320 </span> compare *top-addr, <span class="Constant">0</span> <span id="L321" class="LineNr">321 </span> <span class="PreProc">break-if-<=</span> <span id="L322" class="LineNr">322 </span> <span class="muComment"># pop string from out</span> -<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L323" class="LineNr">323 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L324" class="LineNr">324 </span> compare *top-addr, <span class="Constant">0</span> <span id="L325" class="LineNr">325 </span> <span class="PreProc">break-if-<=</span> <span id="L326" class="LineNr">326 </span> decrement *top-addr -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L329" class="LineNr">329 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> s/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L329" class="LineNr">329 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _data +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> s/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L333" class="LineNr">333 </span> <span class="muComment"># select target screen from top of out (but don't pop it)</span> <span id="L334" class="LineNr">334 </span> compare *top-addr, <span class="Constant">0</span> <span id="L335" class="LineNr">335 </span> <span class="PreProc">break-if-<=</span> -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L337" class="LineNr">337 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L339" class="LineNr">339 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L341" class="LineNr">341 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L337" class="LineNr">337 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L339" class="LineNr">339 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset +<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L341" class="LineNr">341 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L342" class="LineNr">342 </span> <span class="PreProc">break-if-!=</span> <span id="L343" class="LineNr">343 </span> <span class="muComment"># print string to target screen</span> -<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, screen-data -<span id="L345" class="LineNr">345 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> r/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, cursor-row -<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, cursor-col +<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, screen-data +<span id="L345" class="LineNr">345 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> r/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, cursor-row +<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, cursor-col <span id="L348" class="LineNr">348 </span> <a href='value.mu.html#L1'>render-value-at</a> dest, *r, *c, s, <span class="Constant">0</span> <span id="L349" class="LineNr">349 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L350" class="LineNr">350 </span> <span class="Delimiter">}</span> <span id="L351" class="LineNr">351 </span> <span class="Delimiter">{</span> -<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> is-move?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"move"</span> -<span id="L353" class="LineNr">353 </span> compare is-move?, <span class="Constant">0</span> +<span id="L352" class="LineNr">352 </span> <span class="PreProc">var</span> move?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"move"</span> +<span id="L353" class="LineNr">353 </span> compare move?, <span class="Constant">0</span> <span id="L354" class="LineNr">354 </span> <span class="PreProc">break-if-=</span> -<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out +<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out <span id="L356" class="LineNr">356 </span> <span class="muComment"># pop args</span> -<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> r-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> r/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> convert r-f -<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> c-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> convert c-f +<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> r-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> r/<span class="Constant">ecx</span>: int <span class="Special"><-</span> convert r-f +<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> c-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: int <span class="Special"><-</span> convert c-f <span id="L361" class="LineNr">361 </span> <span class="muComment"># select screen from top of out (but don't pop it)</span> -<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L363" class="LineNr">363 </span> compare *top-addr, <span class="Constant">0</span> <span id="L364" class="LineNr">364 </span> <span class="PreProc">break-if-<=</span> -<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L369" class="LineNr">369 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, target-offset -<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L373" class="LineNr">373 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L365" class="LineNr">365 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _data +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L369" class="LineNr">369 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, target-offset +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L373" class="LineNr">373 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L374" class="LineNr">374 </span> <span class="PreProc">break-if-!=</span> -<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, screen-data -<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target-ah -<span id="L377" class="LineNr">377 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> target, r, c +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, screen-data +<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target-ah +<span id="L377" class="LineNr">377 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> target, r, c <span id="L378" class="LineNr">378 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L379" class="LineNr">379 </span> <span class="Delimiter">}</span> <span id="L380" class="LineNr">380 </span> <span class="Delimiter">{</span> -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> is-up?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"up"</span> -<span id="L382" class="LineNr">382 </span> compare is-up?, <span class="Constant">0</span> +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> up?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"up"</span> +<span id="L382" class="LineNr">382 </span> compare up?, <span class="Constant">0</span> <span id="L383" class="LineNr">383 </span> <span class="PreProc">break-if-=</span> -<span id="L384" class="LineNr">384 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L384" class="LineNr">384 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L386" class="LineNr">386 </span> compare *top-addr, <span class="Constant">0</span> <span id="L387" class="LineNr">387 </span> <span class="PreProc">break-if-<=</span> <span id="L388" class="LineNr">388 </span> <span class="muComment"># pop args</span> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> d-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> convert d-f +<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> d-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="Special"><-</span> convert d-f <span id="L391" class="LineNr">391 </span> <span class="muComment"># select screen from top of out (but don't pop it)</span> <span id="L392" class="LineNr">392 </span> compare *top-addr, <span class="Constant">0</span> <span id="L393" class="LineNr">393 </span> <span class="PreProc">break-if-<=</span> -<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L398" class="LineNr">398 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, target-offset -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L402" class="LineNr">402 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L394" class="LineNr">394 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L395" class="LineNr">395 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _data +<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L398" class="LineNr">398 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L400" class="LineNr">400 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, target-offset +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L402" class="LineNr">402 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L403" class="LineNr">403 </span> <span class="PreProc">break-if-!=</span> -<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, screen-data -<span id="L405" class="LineNr">405 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target-ah -<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _target -<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> r/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-row -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-col -<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *c +<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, screen-data +<span id="L405" class="LineNr">405 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target-ah +<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _target +<span id="L407" class="LineNr">407 </span> <span class="PreProc">var</span> r/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-row +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-col +<span id="L409" class="LineNr">409 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *c <span id="L410" class="LineNr">410 </span> <span class="Delimiter">{</span> <span id="L411" class="LineNr">411 </span> compare d, <span class="Constant">0</span> <span id="L412" class="LineNr">412 </span> <span class="PreProc">break-if-<=</span> <span id="L413" class="LineNr">413 </span> compare *r, <span class="Constant">1</span> <span id="L414" class="LineNr">414 </span> <span class="PreProc">break-if-<=</span> -<span id="L415" class="LineNr">415 </span> <a href='../../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"│"</span> +<span id="L415" class="LineNr">415 </span> <a href='../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"│"</span> <span id="L416" class="LineNr">416 </span> decrement *r -<span id="L417" class="LineNr">417 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> target, *r, col -<span id="L418" class="LineNr">418 </span> d <span class="SpecialChar"><-</span> decrement +<span id="L417" class="LineNr">417 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> target, *r, col +<span id="L418" class="LineNr">418 </span> d <span class="Special"><-</span> decrement <span id="L419" class="LineNr">419 </span> <span class="PreProc">loop</span> <span id="L420" class="LineNr">420 </span> <span class="Delimiter">}</span> <span id="L421" class="LineNr">421 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L422" class="LineNr">422 </span> <span class="Delimiter">}</span> <span id="L423" class="LineNr">423 </span> <span class="Delimiter">{</span> -<span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> is-down?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"down"</span> -<span id="L425" class="LineNr">425 </span> compare is-down?, <span class="Constant">0</span> +<span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> down?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"down"</span> +<span id="L425" class="LineNr">425 </span> compare down?, <span class="Constant">0</span> <span id="L426" class="LineNr">426 </span> <span class="PreProc">break-if-=</span> -<span id="L427" class="LineNr">427 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L427" class="LineNr">427 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L429" class="LineNr">429 </span> compare *top-addr, <span class="Constant">0</span> <span id="L430" class="LineNr">430 </span> <span class="PreProc">break-if-<=</span> <span id="L431" class="LineNr">431 </span> <span class="muComment"># pop args</span> -<span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> d-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> convert d-f +<span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> d-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L433" class="LineNr">433 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="Special"><-</span> convert d-f <span id="L434" class="LineNr">434 </span> <span class="muComment"># select screen from top of out (but don't pop it)</span> <span id="L435" class="LineNr">435 </span> compare *top-addr, <span class="Constant">0</span> <span id="L436" class="LineNr">436 </span> <span class="PreProc">break-if-<=</span> -<span id="L437" class="LineNr">437 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L438" class="LineNr">438 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L439" class="LineNr">439 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L440" class="LineNr">440 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L441" class="LineNr">441 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, target-offset -<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L445" class="LineNr">445 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L437" class="LineNr">437 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L438" class="LineNr">438 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L439" class="LineNr">439 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _data +<span id="L440" class="LineNr">440 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L441" class="LineNr">441 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L442" class="LineNr">442 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L443" class="LineNr">443 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, target-offset +<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L445" class="LineNr">445 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L446" class="LineNr">446 </span> <span class="PreProc">break-if-!=</span> -<span id="L447" class="LineNr">447 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, screen-data -<span id="L448" class="LineNr">448 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target-ah -<span id="L449" class="LineNr">449 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _target -<span id="L450" class="LineNr">450 </span> <span class="PreProc">var</span> bound-a/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, num-rows -<span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> bound/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy *bound-a -<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> r/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-row -<span id="L453" class="LineNr">453 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-col -<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *c +<span id="L447" class="LineNr">447 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, screen-data +<span id="L448" class="LineNr">448 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target-ah +<span id="L449" class="LineNr">449 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _target +<span id="L450" class="LineNr">450 </span> <span class="PreProc">var</span> bound-a/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, num-rows +<span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> bound/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *bound-a +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> r/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-row +<span id="L453" class="LineNr">453 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-col +<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> col/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *c <span id="L455" class="LineNr">455 </span> <span class="Delimiter">{</span> <span id="L456" class="LineNr">456 </span> compare d, <span class="Constant">0</span> <span id="L457" class="LineNr">457 </span> <span class="PreProc">break-if-<=</span> <span id="L458" class="LineNr">458 </span> compare *r, bound <span id="L459" class="LineNr">459 </span> <span class="PreProc">break-if->=</span> -<span id="L460" class="LineNr">460 </span> <a href='../../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"│"</span> +<span id="L460" class="LineNr">460 </span> <a href='../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"│"</span> <span id="L461" class="LineNr">461 </span> increment *r -<span id="L462" class="LineNr">462 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> target, *r, col -<span id="L463" class="LineNr">463 </span> d <span class="SpecialChar"><-</span> decrement +<span id="L462" class="LineNr">462 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> target, *r, col +<span id="L463" class="LineNr">463 </span> d <span class="Special"><-</span> decrement <span id="L464" class="LineNr">464 </span> <span class="PreProc">loop</span> <span id="L465" class="LineNr">465 </span> <span class="Delimiter">}</span> <span id="L466" class="LineNr">466 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L467" class="LineNr">467 </span> <span class="Delimiter">}</span> <span id="L468" class="LineNr">468 </span> <span class="Delimiter">{</span> -<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> is-left?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"left"</span> -<span id="L470" class="LineNr">470 </span> compare is-left?, <span class="Constant">0</span> +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> left?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"left"</span> +<span id="L470" class="LineNr">470 </span> compare left?, <span class="Constant">0</span> <span id="L471" class="LineNr">471 </span> <span class="PreProc">break-if-=</span> -<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L472" class="LineNr">472 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L474" class="LineNr">474 </span> compare *top-addr, <span class="Constant">0</span> <span id="L475" class="LineNr">475 </span> <span class="PreProc">break-if-<=</span> <span id="L476" class="LineNr">476 </span> <span class="muComment"># pop args</span> -<span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> d-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> convert d-f +<span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> d-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="Special"><-</span> convert d-f <span id="L479" class="LineNr">479 </span> <span class="muComment"># select screen from top of out (but don't pop it)</span> <span id="L480" class="LineNr">480 </span> compare *top-addr, <span class="Constant">0</span> <span id="L481" class="LineNr">481 </span> <span class="PreProc">break-if-<=</span> -<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L484" class="LineNr">484 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L486" class="LineNr">486 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L487" class="LineNr">487 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, target-offset -<span id="L489" class="LineNr">489 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L490" class="LineNr">490 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L484" class="LineNr">484 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _data +<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L486" class="LineNr">486 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L487" class="LineNr">487 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, target-offset +<span id="L489" class="LineNr">489 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L490" class="LineNr">490 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L491" class="LineNr">491 </span> <span class="PreProc">break-if-!=</span> -<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, screen-data -<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target-ah -<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _target -<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-col -<span id="L496" class="LineNr">496 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-row -<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *r +<span id="L492" class="LineNr">492 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, screen-data +<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target-ah +<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _target +<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-col +<span id="L496" class="LineNr">496 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-row +<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *r <span id="L498" class="LineNr">498 </span> <span class="Delimiter">{</span> <span id="L499" class="LineNr">499 </span> compare d, <span class="Constant">0</span> <span id="L500" class="LineNr">500 </span> <span class="PreProc">break-if-<=</span> <span id="L501" class="LineNr">501 </span> compare *c, <span class="Constant">1</span> <span id="L502" class="LineNr">502 </span> <span class="PreProc">break-if-<=</span> -<span id="L503" class="LineNr">503 </span> <a href='../../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"─"</span> +<span id="L503" class="LineNr">503 </span> <a href='../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"─"</span> <span id="L504" class="LineNr">504 </span> decrement *c <span id="L505" class="LineNr">505 </span> decrement *c <span class="muComment"># second one to undo the print above</span> -<span id="L506" class="LineNr">506 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> target, row, *c -<span id="L507" class="LineNr">507 </span> d <span class="SpecialChar"><-</span> decrement +<span id="L506" class="LineNr">506 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> target, row, *c +<span id="L507" class="LineNr">507 </span> d <span class="Special"><-</span> decrement <span id="L508" class="LineNr">508 </span> <span class="PreProc">loop</span> <span id="L509" class="LineNr">509 </span> <span class="Delimiter">}</span> <span id="L510" class="LineNr">510 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L511" class="LineNr">511 </span> <span class="Delimiter">}</span> <span id="L512" class="LineNr">512 </span> <span class="Delimiter">{</span> -<span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> is-right?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"right"</span> -<span id="L514" class="LineNr">514 </span> compare is-right?, <span class="Constant">0</span> +<span id="L513" class="LineNr">513 </span> <span class="PreProc">var</span> right?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"right"</span> +<span id="L514" class="LineNr">514 </span> compare right?, <span class="Constant">0</span> <span id="L515" class="LineNr">515 </span> <span class="PreProc">break-if-=</span> -<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L517" class="LineNr">517 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L518" class="LineNr">518 </span> compare *top-addr, <span class="Constant">0</span> <span id="L519" class="LineNr">519 </span> <span class="PreProc">break-if-<=</span> <span id="L520" class="LineNr">520 </span> <span class="muComment"># pop args</span> -<span id="L521" class="LineNr">521 </span> <span class="PreProc">var</span> _d/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 -<span id="L522" class="LineNr">522 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> convert _d +<span id="L521" class="LineNr">521 </span> <span class="PreProc">var</span> _d/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> out2 +<span id="L522" class="LineNr">522 </span> <span class="PreProc">var</span> d/<span class="Constant">ecx</span>: int <span class="Special"><-</span> convert _d <span id="L523" class="LineNr">523 </span> <span class="muComment"># select screen from top of out (but don't pop it)</span> <span id="L524" class="LineNr">524 </span> compare *top-addr, <span class="Constant">0</span> <span id="L525" class="LineNr">525 </span> <span class="PreProc">break-if-<=</span> -<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L527" class="LineNr">527 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L530" class="LineNr">530 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, target-offset -<span id="L533" class="LineNr">533 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> -<span id="L534" class="LineNr">534 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L527" class="LineNr">527 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _data +<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L530" class="LineNr">530 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L531" class="LineNr">531 </span> <span class="PreProc">var</span> target-offset/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, target-offset +<span id="L533" class="LineNr">533 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, <span class="PreProc">type</span> +<span id="L534" class="LineNr">534 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L535" class="LineNr">535 </span> <span class="PreProc">break-if-!=</span> -<span id="L536" class="LineNr">536 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-val, screen-data -<span id="L537" class="LineNr">537 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target-ah -<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _target -<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> bound-a/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, num-rows -<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> bound/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy *bound-a -<span id="L541" class="LineNr">541 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-col -<span id="L542" class="LineNr">542 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-row -<span id="L543" class="LineNr">543 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *r +<span id="L536" class="LineNr">536 </span> <span class="PreProc">var</span> target-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-val, screen-data +<span id="L537" class="LineNr">537 </span> <span class="PreProc">var</span> _target/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target-ah +<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> target/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _target +<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> bound-a/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, num-rows +<span id="L540" class="LineNr">540 </span> <span class="PreProc">var</span> bound/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *bound-a +<span id="L541" class="LineNr">541 </span> <span class="PreProc">var</span> c/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-col +<span id="L542" class="LineNr">542 </span> <span class="PreProc">var</span> r/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-row +<span id="L543" class="LineNr">543 </span> <span class="PreProc">var</span> row/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *r <span id="L544" class="LineNr">544 </span> <span class="Delimiter">{</span> <span id="L545" class="LineNr">545 </span> compare d, <span class="Constant">0</span> <span id="L546" class="LineNr">546 </span> <span class="PreProc">break-if-<=</span> <span id="L547" class="LineNr">547 </span> compare *c, bound <span id="L548" class="LineNr">548 </span> <span class="PreProc">break-if->=</span> -<span id="L549" class="LineNr">549 </span> <a href='../../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"─"</span> +<span id="L549" class="LineNr">549 </span> <a href='../405screen.mu.html#L169'>print-string</a> target <span class="Constant">"─"</span> <span id="L550" class="LineNr">550 </span> <span class="muComment"># no increment; the print took care of it</span> -<span id="L551" class="LineNr">551 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> target, row, *c -<span id="L552" class="LineNr">552 </span> d <span class="SpecialChar"><-</span> decrement +<span id="L551" class="LineNr">551 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> target, row, *c +<span id="L552" class="LineNr">552 </span> d <span class="Special"><-</span> decrement <span id="L553" class="LineNr">553 </span> <span class="PreProc">loop</span> <span id="L554" class="LineNr">554 </span> <span class="Delimiter">}</span> <span id="L555" class="LineNr">555 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L556" class="LineNr">556 </span> <span class="Delimiter">}</span> <span id="L557" class="LineNr">557 </span> <span class="muComment">## HACKS: we're trying to avoid turning this into Forth</span> <span id="L558" class="LineNr">558 </span> <span class="Delimiter">{</span> -<span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> is-dup?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"dup"</span> -<span id="L560" class="LineNr">560 </span> compare is-dup?, <span class="Constant">0</span> +<span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> dup?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"dup"</span> +<span id="L560" class="LineNr">560 </span> compare dup?, <span class="Constant">0</span> <span id="L561" class="LineNr">561 </span> <span class="PreProc">break-if-=</span> <span id="L562" class="LineNr">562 </span> <span class="muComment"># read src-val from out</span> -<span id="L563" class="LineNr">563 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L564" class="LineNr">564 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L563" class="LineNr">563 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L564" class="LineNr">564 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L565" class="LineNr">565 </span> compare *top-addr, <span class="Constant">0</span> <span id="L566" class="LineNr">566 </span> <span class="PreProc">break-if-<=</span> -<span id="L567" class="LineNr">567 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L568" class="LineNr">568 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L569" class="LineNr">569 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L570" class="LineNr">570 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L571" class="LineNr">571 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L572" class="LineNr">572 </span> <span class="PreProc">var</span> src-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, offset +<span id="L567" class="LineNr">567 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L568" class="LineNr">568 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L569" class="LineNr">569 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L570" class="LineNr">570 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L571" class="LineNr">571 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L572" class="LineNr">572 </span> <span class="PreProc">var</span> src-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, offset <span id="L573" class="LineNr">573 </span> <span class="muComment"># push a copy of it</span> -<span id="L574" class="LineNr">574 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> increment -<span id="L575" class="LineNr">575 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L576" class="LineNr">576 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, offset +<span id="L574" class="LineNr">574 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> increment +<span id="L575" class="LineNr">575 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L576" class="LineNr">576 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, offset <span id="L577" class="LineNr">577 </span> copy-object src-val, target-val <span id="L578" class="LineNr">578 </span> <span class="muComment"># commit</span> -<span id="L579" class="LineNr">579 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L579" class="LineNr">579 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L580" class="LineNr">580 </span> increment *top-addr <span id="L581" class="LineNr">581 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L582" class="LineNr">582 </span> <span class="Delimiter">}</span> <span id="L583" class="LineNr">583 </span> <span class="Delimiter">{</span> -<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> is-swap?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"swap"</span> -<span id="L585" class="LineNr">585 </span> compare is-swap?, <span class="Constant">0</span> +<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> swap?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> curr-stream, <span class="Constant">"swap"</span> +<span id="L585" class="LineNr">585 </span> compare swap?, <span class="Constant">0</span> <span id="L586" class="LineNr">586 </span> <span class="PreProc">break-if-=</span> <span id="L587" class="LineNr">587 </span> <span class="muComment"># read top-val from out</span> -<span id="L588" class="LineNr">588 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L589" class="LineNr">589 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L588" class="LineNr">588 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L589" class="LineNr">589 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L590" class="LineNr">590 </span> compare *top-addr, <span class="Constant">0</span> <span id="L591" class="LineNr">591 </span> <span class="PreProc">break-if-<=</span> -<span id="L592" class="LineNr">592 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L593" class="LineNr">593 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L594" class="LineNr">594 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L595" class="LineNr">595 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L596" class="LineNr">596 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L597" class="LineNr">597 </span> <span class="PreProc">var</span> top-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, offset +<span id="L592" class="LineNr">592 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L593" class="LineNr">593 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L594" class="LineNr">594 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L595" class="LineNr">595 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L596" class="LineNr">596 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L597" class="LineNr">597 </span> <span class="PreProc">var</span> top-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, offset <span id="L598" class="LineNr">598 </span> <span class="muComment"># read next val from out</span> -<span id="L599" class="LineNr">599 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L600" class="LineNr">600 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L601" class="LineNr">601 </span> <span class="PreProc">var</span> pen-top-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, offset +<span id="L599" class="LineNr">599 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L600" class="LineNr">600 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L601" class="LineNr">601 </span> <span class="PreProc">var</span> pen-top-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, offset <span id="L602" class="LineNr">602 </span> <span class="muComment"># swap</span> -<span id="L603" class="LineNr">603 </span> <span class="PreProc">var</span> tmp: <a href='data.mu.html#L37'>value</a> -<span id="L604" class="LineNr">604 </span> <span class="PreProc">var</span> tmp-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> address tmp +<span id="L603" class="LineNr">603 </span> <span class="PreProc">var</span> tmp: <a href='data.mu.html#L49'>value</a> +<span id="L604" class="LineNr">604 </span> <span class="PreProc">var</span> tmp-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> address tmp <span id="L605" class="LineNr">605 </span> copy-object top-val, tmp-a <span id="L606" class="LineNr">606 </span> copy-object pen-top-val, top-val <span id="L607" class="LineNr">607 </span> copy-object tmp-a, pen-top-val @@ -669,40 +669,40 @@ if ('onhashchange' in window) { <span id="L609" class="LineNr">609 </span> <span class="Delimiter">}</span> <span id="L610" class="LineNr">610 </span> <span class="muComment">### if curr-stream defines a binding, save top of stack to bindings</span> <span id="L611" class="LineNr">611 </span> <span class="Delimiter">{</span> -<span id="L612" class="LineNr">612 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> curr-stream -<span id="L613" class="LineNr">613 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L612" class="LineNr">612 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> curr-stream +<span id="L613" class="LineNr">613 </span> compare done?, <span class="Constant">0</span>/false <span id="L614" class="LineNr">614 </span> <span class="PreProc">break-if-!=</span> -<span id="L615" class="LineNr">615 </span> <span class="PreProc">var</span> new-byte/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../112read-byte.subx.html#L273'>read-byte</a> curr-stream -<span id="L616" class="LineNr">616 </span> compare new-byte, <span class="Constant">0x3d</span> <span class="muComment"># '='</span> +<span id="L615" class="LineNr">615 </span> <span class="PreProc">var</span> new-byte/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L273'>read-byte</a> curr-stream +<span id="L616" class="LineNr">616 </span> compare new-byte, <span class="Constant">0x3d</span>/= <span id="L617" class="LineNr">617 </span> <span class="PreProc">break-if-!=</span> <span id="L618" class="LineNr">618 </span> <span class="muComment"># pop target-val from out</span> -<span id="L619" class="LineNr">619 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy out -<span id="L620" class="LineNr">620 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L619" class="LineNr">619 </span> <span class="PreProc">var</span> out2/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy out +<span id="L620" class="LineNr">620 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, <a href='../203stack.subx.html#L338'>top</a> <span id="L621" class="LineNr">621 </span> compare *top-addr, <span class="Constant">0</span> <span id="L622" class="LineNr">622 </span> <span class="PreProc">break-if-<=</span> -<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out2, data -<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L625" class="LineNr">625 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L626" class="LineNr">626 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L627" class="LineNr">627 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L628" class="LineNr">628 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out2, data +<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L625" class="LineNr">625 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L626" class="LineNr">626 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L627" class="LineNr">627 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L628" class="LineNr">628 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L629" class="LineNr">629 </span> <span class="muComment"># create binding from curr-stream to target-val</span> <span id="L630" class="LineNr">630 </span> <span class="PreProc">var</span> key-h: (handle array byte) -<span id="L631" class="LineNr">631 </span> <span class="PreProc">var</span> key/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address key-h -<span id="L632" class="LineNr">632 </span> <a href='../../310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream, key +<span id="L631" class="LineNr">631 </span> <span class="PreProc">var</span> key/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address key-h +<span id="L632" class="LineNr">632 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream, key <span id="L633" class="LineNr">633 </span> <a href='table.mu.html#L52'>bind-in-table</a> bindings, key, target-val <span id="L634" class="LineNr">634 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L635" class="LineNr">635 </span> <span class="Delimiter">}</span> -<span id="L636" class="LineNr">636 </span> <a href='../../106stream.subx.html#L56'>rewind-stream</a> curr-stream +<span id="L636" class="LineNr">636 </span> <a href='../106stream.subx.html#L56'>rewind-stream</a> curr-stream <span id="L637" class="LineNr">637 </span> <span class="muComment">### if curr-stream is a known function name, call it appropriately</span> <span id="L638" class="LineNr">638 </span> <span class="Delimiter">{</span> -<span id="L639" class="LineNr">639 </span> <span class="PreProc">var</span> callee-h: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L640" class="LineNr">640 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> address callee-h +<span id="L639" class="LineNr">639 </span> <span class="PreProc">var</span> callee-h: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L640" class="LineNr">640 </span> <span class="PreProc">var</span> callee-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> address callee-h <span id="L641" class="LineNr">641 </span> <a href='rpn.mu.html#L774'>find-function</a> functions, curr-stream, callee-ah -<span id="L642" class="LineNr">642 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1397'>callee</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *callee-ah -<span id="L643" class="LineNr">643 </span> compare <a href='environment.mu.html#L1397'>callee</a>, <span class="Constant">0</span> +<span id="L642" class="LineNr">642 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1846'>callee</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *callee-ah +<span id="L643" class="LineNr">643 </span> compare <a href='environment.mu.html#L1846'>callee</a>, <span class="Constant">0</span> <span id="L644" class="LineNr">644 </span> <span class="PreProc">break-if-=</span> -<span id="L645" class="LineNr">645 </span> <a href='rpn.mu.html#L795'>perform-call</a> <a href='environment.mu.html#L1397'>callee</a>, out, functions +<span id="L645" class="LineNr">645 </span> <a href='rpn.mu.html#L795'>perform-call</a> <a href='environment.mu.html#L1846'>callee</a>, out, functions <span id="L646" class="LineNr">646 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L647" class="LineNr">647 </span> <span class="Delimiter">}</span> <span id="L648" class="LineNr">648 </span> <span class="muComment">### if it's a name, push its value</span> @@ -710,13 +710,13 @@ if ('onhashchange' in window) { <span id="L650" class="LineNr">650 </span> compare bindings, <span class="Constant">0</span> <span id="L651" class="LineNr">651 </span> <span class="PreProc">break-if-=</span> <span id="L652" class="LineNr">652 </span> <span class="PreProc">var</span> tmp: (handle array byte) -<span id="L653" class="LineNr">653 </span> <span class="PreProc">var</span> curr-string-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address tmp -<span id="L654" class="LineNr">654 </span> <a href='../../310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream, curr-string-ah <span class="muComment"># unfortunate leak</span> -<span id="L655" class="LineNr">655 </span> <span class="PreProc">var</span> curr-string/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-string-ah -<span id="L656" class="LineNr">656 </span> <span class="PreProc">var</span> val-storage: (handle <a href='data.mu.html#L37'>value</a>) -<span id="L657" class="LineNr">657 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> address val-storage +<span id="L653" class="LineNr">653 </span> <span class="PreProc">var</span> curr-string-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> address tmp +<span id="L654" class="LineNr">654 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> curr-stream, curr-string-ah <span class="muComment"># unfortunate leak</span> +<span id="L655" class="LineNr">655 </span> <span class="PreProc">var</span> curr-string/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-string-ah +<span id="L656" class="LineNr">656 </span> <span class="PreProc">var</span> val-storage: (handle <a href='data.mu.html#L49'>value</a>) +<span id="L657" class="LineNr">657 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> address val-storage <span id="L658" class="LineNr">658 </span> <a href='table.mu.html#L108'>lookup-binding</a> bindings, curr-string, val-ah -<span id="L659" class="LineNr">659 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah +<span id="L659" class="LineNr">659 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah <span id="L660" class="LineNr">660 </span> compare val, <span class="Constant">0</span> <span id="L661" class="LineNr">661 </span> <span class="PreProc">break-if-=</span> <span id="L662" class="LineNr">662 </span> <a href='value-stack.mu.html#L76'>push-value-stack</a> out, val @@ -724,67 +724,67 @@ if ('onhashchange' in window) { <span id="L664" class="LineNr">664 </span> <span class="Delimiter">}</span> <span id="L665" class="LineNr">665 </span> <span class="muComment">### if the word starts with a quote and ends with a quote, turn it into a string</span> <span id="L666" class="LineNr">666 </span> <span class="Delimiter">{</span> -<span id="L667" class="LineNr">667 </span> <span class="PreProc">var</span> start/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L160'>stream-first</a> curr-stream -<span id="L668" class="LineNr">668 </span> compare start, <span class="Constant">0x22</span> <span class="muComment"># double-quote</span> +<span id="L667" class="LineNr">667 </span> <span class="PreProc">var</span> start/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../309stream.subx.html#L160'>stream-first</a> curr-stream +<span id="L668" class="LineNr">668 </span> compare start, <span class="Constant">0x22</span>/double-quote <span id="L669" class="LineNr">669 </span> <span class="PreProc">break-if-!=</span> -<span id="L670" class="LineNr">670 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L187'>stream-final</a> curr-stream -<span id="L671" class="LineNr">671 </span> compare end, <span class="Constant">0x22</span> <span class="muComment"># double-quote</span> +<span id="L670" class="LineNr">670 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../309stream.subx.html#L187'>stream-final</a> curr-stream +<span id="L671" class="LineNr">671 </span> compare end, <span class="Constant">0x22</span>/double-quote <span id="L672" class="LineNr">672 </span> <span class="PreProc">break-if-!=</span> <span id="L673" class="LineNr">673 </span> <span class="PreProc">var</span> h: (handle array byte) -<span id="L674" class="LineNr">674 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address h -<span id="L675" class="LineNr">675 </span> <a href='../../310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> curr-stream, s <span class="muComment"># leak</span> +<span id="L674" class="LineNr">674 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address h +<span id="L675" class="LineNr">675 </span> <a href='../310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> curr-stream, s <span class="muComment"># leak</span> <span id="L676" class="LineNr">676 </span> <a href='value-stack.mu.html#L39'>push-string-to-value-stack</a> out, *s <span id="L677" class="LineNr">677 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L678" class="LineNr">678 </span> <span class="Delimiter">}</span> <span id="L679" class="LineNr">679 </span> <span class="muComment">### if the word starts with a '[' and ends with a ']', turn it into an array</span> <span id="L680" class="LineNr">680 </span> <span class="Delimiter">{</span> -<span id="L681" class="LineNr">681 </span> <span class="PreProc">var</span> start/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L160'>stream-first</a> curr-stream -<span id="L682" class="LineNr">682 </span> compare start, <span class="Constant">0x5b</span> <span class="muComment"># '['</span> +<span id="L681" class="LineNr">681 </span> <span class="PreProc">var</span> start/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../309stream.subx.html#L160'>stream-first</a> curr-stream +<span id="L682" class="LineNr">682 </span> compare start, <span class="Constant">0x5b</span>/[ <span id="L683" class="LineNr">683 </span> <span class="PreProc">break-if-!=</span> -<span id="L684" class="LineNr">684 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L187'>stream-final</a> curr-stream -<span id="L685" class="LineNr">685 </span> compare end, <span class="Constant">0x5d</span> <span class="muComment"># ']'</span> +<span id="L684" class="LineNr">684 </span> <span class="PreProc">var</span> end/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../309stream.subx.html#L187'>stream-final</a> curr-stream +<span id="L685" class="LineNr">685 </span> compare end, <span class="Constant">0x5d</span>/] <span id="L686" class="LineNr">686 </span> <span class="PreProc">break-if-!=</span> <span id="L687" class="LineNr">687 </span> <span class="muComment"># wastefully create a new input string to strip quotes</span> -<span id="L688" class="LineNr">688 </span> <span class="PreProc">var</span> h: (handle array <a href='data.mu.html#L37'>value</a>) -<span id="L689" class="LineNr">689 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address h -<span id="L690" class="LineNr">690 </span> <a href='../../310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> curr-stream, input-ah <span class="muComment"># leak</span> +<span id="L688" class="LineNr">688 </span> <span class="PreProc">var</span> h: (handle array <a href='data.mu.html#L49'>value</a>) +<span id="L689" class="LineNr">689 </span> <span class="PreProc">var</span> input-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address h +<span id="L690" class="LineNr">690 </span> <a href='../310copy-bytes.subx.html#L120'>unquote-stream-to-array</a> curr-stream, input-ah <span class="muComment"># leak</span> <span id="L691" class="LineNr">691 </span> <span class="muComment"># wastefully parse input into int-array</span> <span id="L692" class="LineNr">692 </span> <span class="muComment"># TODO: support parsing arrays of other types</span> -<span id="L693" class="LineNr">693 </span> <span class="PreProc">var</span> input/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *input-ah +<span id="L693" class="LineNr">693 </span> <span class="PreProc">var</span> input/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *input-ah <span id="L694" class="LineNr">694 </span> <span class="PreProc">var</span> h2: (handle array int) -<span id="L695" class="LineNr">695 </span> <span class="PreProc">var</span> int-array-ah/<span class="Constant">esi</span>: (addr handle array int) <span class="SpecialChar"><-</span> address h2 -<span id="L696" class="LineNr">696 </span> <a href='../../311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> input, int-array-ah <span class="muComment"># leak</span> -<span id="L697" class="LineNr">697 </span> <span class="PreProc">var</span> _int-array/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *int-array-ah -<span id="L698" class="LineNr">698 </span> <span class="PreProc">var</span> int-array/<span class="Constant">esi</span>: (addr array int) <span class="SpecialChar"><-</span> copy _int-array -<span id="L699" class="LineNr">699 </span> <span class="PreProc">var</span> len/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> length int-array +<span id="L695" class="LineNr">695 </span> <span class="PreProc">var</span> int-array-ah/<span class="Constant">esi</span>: (addr handle array int) <span class="Special"><-</span> address h2 +<span id="L696" class="LineNr">696 </span> <a href='../311decimal-int.subx.html#L623'>parse-array-of-decimal-ints</a> input, int-array-ah <span class="muComment"># leak</span> +<span id="L697" class="LineNr">697 </span> <span class="PreProc">var</span> _int-array/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *int-array-ah +<span id="L698" class="LineNr">698 </span> <span class="PreProc">var</span> int-array/<span class="Constant">esi</span>: (addr array int) <span class="Special"><-</span> copy _int-array +<span id="L699" class="LineNr">699 </span> <span class="PreProc">var</span> len/<span class="Constant">ebx</span>: int <span class="Special"><-</span> length int-array <span id="L700" class="LineNr">700 </span> <span class="muComment"># push value-array of same size as int-array</span> -<span id="L701" class="LineNr">701 </span> <span class="PreProc">var</span> h3: (handle array <a href='data.mu.html#L37'>value</a>) -<span id="L702" class="LineNr">702 </span> <span class="PreProc">var</span> value-array-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> address h3 +<span id="L701" class="LineNr">701 </span> <span class="PreProc">var</span> h3: (handle array <a href='data.mu.html#L49'>value</a>) +<span id="L702" class="LineNr">702 </span> <span class="PreProc">var</span> value-array-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> address h3 <span id="L703" class="LineNr">703 </span> populate value-array-ah, len <span id="L704" class="LineNr">704 </span> <a href='value-stack.mu.html#L60'>push-array-to-value-stack</a> out, *value-array-ah <span id="L705" class="LineNr">705 </span> <span class="muComment"># copy int-array into value-array</span> -<span id="L706" class="LineNr">706 </span> <span class="PreProc">var</span> _value-array/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *value-array-ah -<span id="L707" class="LineNr">707 </span> <span class="PreProc">var</span> value-array/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _value-array -<span id="L708" class="LineNr">708 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L706" class="LineNr">706 </span> <span class="PreProc">var</span> _value-array/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *value-array-ah +<span id="L707" class="LineNr">707 </span> <span class="PreProc">var</span> value-array/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _value-array +<span id="L708" class="LineNr">708 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L709" class="LineNr">709 </span> <span class="Delimiter">{</span> <span id="L710" class="LineNr">710 </span> compare i, len <span id="L711" class="LineNr">711 </span> <span class="PreProc">break-if->=</span> -<span id="L712" class="LineNr">712 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> index int-array, i -<span id="L713" class="LineNr">713 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *src-addr -<span id="L714" class="LineNr">714 </span> <span class="PreProc">var</span> src-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert src -<span id="L715" class="LineNr">715 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset value-array, i -<span id="L716" class="LineNr">716 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index value-array, dest-offset -<span id="L717" class="LineNr">717 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-val, number-data +<span id="L712" class="LineNr">712 </span> <span class="PreProc">var</span> src-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> index int-array, i +<span id="L713" class="LineNr">713 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *src-addr +<span id="L714" class="LineNr">714 </span> <span class="PreProc">var</span> src-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert src +<span id="L715" class="LineNr">715 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset value-array, i +<span id="L716" class="LineNr">716 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index value-array, dest-offset +<span id="L717" class="LineNr">717 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-val, number-data <span id="L718" class="LineNr">718 </span> copy-to *dest, src-f -<span id="L719" class="LineNr">719 </span> i <span class="SpecialChar"><-</span> increment +<span id="L719" class="LineNr">719 </span> i <span class="Special"><-</span> increment <span id="L720" class="LineNr">720 </span> <span class="PreProc">loop</span> <span id="L721" class="LineNr">721 </span> <span class="Delimiter">}</span> <span id="L722" class="LineNr">722 </span> <span class="PreProc">break</span> $evaluate:process-word <span id="L723" class="LineNr">723 </span> <span class="Delimiter">}</span> <span id="L724" class="LineNr">724 </span> <span class="muComment">### otherwise assume it's a literal number and push it</span> <span id="L725" class="LineNr">725 </span> <span class="Delimiter">{</span> -<span id="L726" class="LineNr">726 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> curr-stream -<span id="L727" class="LineNr">727 </span> <span class="PreProc">var</span> n-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert n +<span id="L726" class="LineNr">726 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> curr-stream +<span id="L727" class="LineNr">727 </span> <span class="PreProc">var</span> n-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert n <span id="L728" class="LineNr">728 </span> <a href='value-stack.mu.html#L22'>push-number-to-value-stack</a> out, n-f <span id="L729" class="LineNr">729 </span> <span class="Delimiter">}</span> <span id="L730" class="LineNr">730 </span> <span class="Delimiter">}</span> @@ -792,182 +792,182 @@ if ('onhashchange' in window) { <span id="L732" class="LineNr">732 </span> compare curr, end <span id="L733" class="LineNr">733 </span> <span class="PreProc">break-if-=</span> <span id="L734" class="LineNr">734 </span> <span class="muComment"># update</span> -<span id="L735" class="LineNr">735 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr, next -<span id="L736" class="LineNr">736 </span> curr <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah +<span id="L735" class="LineNr">735 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L736" class="LineNr">736 </span> curr <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah <span id="L737" class="LineNr">737 </span> <span class="muComment">#</span> <span id="L738" class="LineNr">738 </span> <span class="PreProc">loop</span> <span id="L739" class="LineNr">739 </span> <span class="Delimiter">}</span> <span id="L740" class="LineNr">740 </span> <span class="muComment"># process next line if necessary</span> -<span id="L741" class="LineNr">741 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> copy scratch -<span id="L742" class="LineNr">742 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='data.mu.html#L22'>line</a>, next -<span id="L743" class="LineNr">743 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-line-ah +<span id="L741" class="LineNr">741 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> copy scratch +<span id="L742" class="LineNr">742 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L34'>line</a>, next +<span id="L743" class="LineNr">743 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-line-ah <span id="L744" class="LineNr">744 </span> compare next-line, <span class="Constant">0</span> <span id="L745" class="LineNr">745 </span> <span class="PreProc">break-if-=</span> <span id="L746" class="LineNr">746 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, bindings, next-line, end, out <span id="L747" class="LineNr">747 </span><span class="Delimiter">}</span> <span id="L748" class="LineNr">748 </span> <span id="L749" class="LineNr">749 </span><span class="PreProc">fn</span> <span class="muTest"><a href='rpn.mu.html#L749'>test-evaluate</a></span> <span class="Delimiter">{</span> -<span id="L750" class="LineNr">750 </span> <span class="PreProc">var</span> line-storage: <a href='data.mu.html#L22'>line</a> -<span id="L751" class="LineNr">751 </span> <span class="PreProc">var</span> <a href='data.mu.html#L22'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> address line-storage -<span id="L752" class="LineNr">752 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> line-storage, data +<span id="L750" class="LineNr">750 </span> <span class="PreProc">var</span> line-storage: <a href='data.mu.html#L34'>line</a> +<span id="L751" class="LineNr">751 </span> <span class="PreProc">var</span> <a href='data.mu.html#L34'>line</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> address line-storage +<span id="L752" class="LineNr">752 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> line-storage, data <span id="L753" class="LineNr">753 </span> <a href='word.mu.html#L19'>allocate-word-with</a> first-word-ah, <span class="Constant">"3"</span> <span id="L754" class="LineNr">754 </span> <a href='word.mu.html#L29'>append-word-with</a> *first-word-ah, <span class="Constant">"=a"</span> -<span id="L755" class="LineNr">755 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> line-storage, next -<span id="L756" class="LineNr">756 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> next-line-ah -<span id="L757" class="LineNr">757 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-line-ah -<span id="L758" class="LineNr">758 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> next-line, data +<span id="L755" class="LineNr">755 </span> <span class="PreProc">var</span> next-line-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> line-storage, next +<span id="L756" class="LineNr">756 </span> <a href='../120allocate.subx.html#L66'>allocate</a> next-line-ah +<span id="L757" class="LineNr">757 </span> <span class="PreProc">var</span> next-line/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-line-ah +<span id="L758" class="LineNr">758 </span> <span class="PreProc">var</span> first-word-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> next-line, data <span id="L759" class="LineNr">759 </span> <a href='word.mu.html#L19'>allocate-word-with</a> first-word-ah, <span class="Constant">"a"</span> -<span id="L760" class="LineNr">760 </span> <span class="PreProc">var</span> functions-storage: (handle <a href='data.mu.html#L14'>function</a>) -<span id="L761" class="LineNr">761 </span> <span class="PreProc">var</span> functions/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> address functions-storage -<span id="L762" class="LineNr">762 </span> <span class="PreProc">var</span> table-storage: <a href='data.mu.html#L47'>table</a> -<span id="L763" class="LineNr">763 </span> <span class="PreProc">var</span> <a href='data.mu.html#L47'>table</a>/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> address table-storage -<span id="L764" class="LineNr">764 </span> <a href='table.mu.html#L1'>initialize-table</a> <a href='data.mu.html#L47'>table</a>, <span class="Constant">0x10</span> +<span id="L760" class="LineNr">760 </span> <span class="PreProc">var</span> functions-storage: (handle <a href='data.mu.html#L21'>function</a>) +<span id="L761" class="LineNr">761 </span> <span class="PreProc">var</span> functions/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> address functions-storage +<span id="L762" class="LineNr">762 </span> <span class="PreProc">var</span> table-storage: <a href='data.mu.html#L59'>table</a> +<span id="L763" class="LineNr">763 </span> <span class="PreProc">var</span> <a href='data.mu.html#L59'>table</a>/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> address table-storage +<span id="L764" class="LineNr">764 </span> <a href='table.mu.html#L1'>initialize-table</a> <a href='data.mu.html#L59'>table</a>, <span class="Constant">0x10</span> <span id="L765" class="LineNr">765 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L3'>value-stack</a> -<span id="L766" class="LineNr">766 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> address stack-storage +<span id="L766" class="LineNr">766 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> address stack-storage <span id="L767" class="LineNr">767 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack, <span class="Constant">0x10</span> -<span id="L768" class="LineNr">768 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, <a href='data.mu.html#L47'>table</a>, <a href='data.mu.html#L22'>line</a>, <span class="Constant">0</span>, stack -<span id="L769" class="LineNr">769 </span> <span class="PreProc">var</span> x-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> stack -<span id="L770" class="LineNr">770 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert x-f -<span id="L771" class="LineNr">771 </span> <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - test-evaluate"</span> +<span id="L768" class="LineNr">768 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, <a href='data.mu.html#L59'>table</a>, <a href='data.mu.html#L34'>line</a>, <span class="Constant">0</span>, stack +<span id="L769" class="LineNr">769 </span> <span class="PreProc">var</span> x-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a> stack +<span id="L770" class="LineNr">770 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert x-f +<span id="L771" class="LineNr">771 </span> <a href='../102test.subx.html#L23'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - test-evaluate"</span> <span id="L772" class="LineNr">772 </span><span class="Delimiter">}</span> <span id="L773" class="LineNr">773 </span> -<span id="L774" class="LineNr">774 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L774'>find-function</a></span> first: (addr handle <a href='data.mu.html#L14'>function</a>), name: (addr stream byte), out: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="Delimiter">{</span> -<span id="L775" class="LineNr">775 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy first +<span id="L774" class="LineNr">774 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L774'>find-function</a></span> first: (addr handle <a href='data.mu.html#L21'>function</a>), name: (addr stream byte), out: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Delimiter">{</span> +<span id="L775" class="LineNr">775 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy first <span id="L776" class="LineNr">776 </span> $find-function:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L777" class="LineNr">777 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr -<span id="L778" class="LineNr">778 </span> <span class="PreProc">var</span> f/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _f +<span id="L777" class="LineNr">777 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr +<span id="L778" class="LineNr">778 </span> <span class="PreProc">var</span> f/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _f <span id="L779" class="LineNr">779 </span> compare f, <span class="Constant">0</span> <span id="L780" class="LineNr">780 </span> <span class="PreProc">break-if-=</span> -<span id="L781" class="LineNr">781 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, name -<span id="L782" class="LineNr">782 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-name-ah -<span id="L783" class="LineNr">783 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../109stream-equal.subx.html#L9'>stream-data-equal?</a> name, curr-name -<span id="L784" class="LineNr">784 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L781" class="LineNr">781 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, name +<span id="L782" class="LineNr">782 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-name-ah +<span id="L783" class="LineNr">783 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> name, curr-name +<span id="L784" class="LineNr">784 </span> compare done?, <span class="Constant">0</span>/false <span id="L785" class="LineNr">785 </span> <span class="Delimiter">{</span> <span id="L786" class="LineNr">786 </span> <span class="PreProc">break-if-=</span> -<span id="L787" class="LineNr">787 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> *curr, out +<span id="L787" class="LineNr">787 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> *curr, out <span id="L788" class="LineNr">788 </span> <span class="PreProc">break</span> $find-function:<span class="PreProc">loop</span> <span id="L789" class="LineNr">789 </span> <span class="Delimiter">}</span> -<span id="L790" class="LineNr">790 </span> curr <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> f, next +<span id="L790" class="LineNr">790 </span> curr <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> f, next <span id="L791" class="LineNr">791 </span> <span class="PreProc">loop</span> <span id="L792" class="LineNr">792 </span> <span class="Delimiter">}</span> <span id="L793" class="LineNr">793 </span><span class="Delimiter">}</span> <span id="L794" class="LineNr">794 </span> -<span id="L795" class="LineNr">795 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L795'>perform-call</a></span> _callee: (addr <a href='data.mu.html#L14'>function</a>), caller-stack: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), functions: (addr handle <a href='data.mu.html#L14'>function</a>) <span class="Delimiter">{</span> -<span id="L796" class="LineNr">796 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1397'>callee</a>/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _callee +<span id="L795" class="LineNr">795 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L795'>perform-call</a></span> _callee: (addr <a href='data.mu.html#L21'>function</a>), caller-stack: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>) <span class="Delimiter">{</span> +<span id="L796" class="LineNr">796 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1846'>callee</a>/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _callee <span id="L797" class="LineNr">797 </span> <span class="muComment"># create bindings for args</span> -<span id="L798" class="LineNr">798 </span> <span class="PreProc">var</span> table-storage: <a href='data.mu.html#L47'>table</a> -<span id="L799" class="LineNr">799 </span> <span class="PreProc">var</span> <a href='data.mu.html#L47'>table</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> address table-storage -<span id="L800" class="LineNr">800 </span> <a href='table.mu.html#L1'>initialize-table</a> <a href='data.mu.html#L47'>table</a>, <span class="Constant">0x10</span> -<span id="L801" class="LineNr">801 </span> <a href='rpn.mu.html#L828'>bind-args</a> <a href='environment.mu.html#L1397'>callee</a>, caller-stack, <a href='data.mu.html#L47'>table</a> +<span id="L798" class="LineNr">798 </span> <span class="PreProc">var</span> table-storage: <a href='data.mu.html#L59'>table</a> +<span id="L799" class="LineNr">799 </span> <span class="PreProc">var</span> <a href='data.mu.html#L59'>table</a>/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> address table-storage +<span id="L800" class="LineNr">800 </span> <a href='table.mu.html#L1'>initialize-table</a> <a href='data.mu.html#L59'>table</a>, <span class="Constant">0x10</span> +<span id="L801" class="LineNr">801 </span> <a href='rpn.mu.html#L828'>bind-args</a> <a href='environment.mu.html#L1846'>callee</a>, caller-stack, <a href='data.mu.html#L59'>table</a> <span id="L802" class="LineNr">802 </span> <span class="muComment"># obtain body</span> -<span id="L803" class="LineNr">803 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1397'>callee</a>, body -<span id="L804" class="LineNr">804 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L22'>line</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *body-ah +<span id="L803" class="LineNr">803 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1846'>callee</a>, body +<span id="L804" class="LineNr">804 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L34'>line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *body-ah <span id="L805" class="LineNr">805 </span> <span class="muComment"># perform call</span> <span id="L806" class="LineNr">806 </span> <span class="PreProc">var</span> stack-storage: <a href='value-stack.mu.html#L3'>value-stack</a> -<span id="L807" class="LineNr">807 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> address stack-storage +<span id="L807" class="LineNr">807 </span> <span class="PreProc">var</span> stack/<span class="Constant">edi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> address stack-storage <span id="L808" class="LineNr">808 </span> <a href='value-stack.mu.html#L8'>initialize-value-stack</a> stack, <span class="Constant">0x10</span> <span id="L809" class="LineNr">809 </span><span class="CommentedCode">#? print-string-to-real-screen "about to enter recursive eval\n"</span> -<span id="L810" class="LineNr">810 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, <a href='data.mu.html#L47'>table</a>, body, <span class="Constant">0</span>, stack +<span id="L810" class="LineNr">810 </span> <a href='rpn.mu.html#L1'>evaluate</a> functions, <a href='data.mu.html#L59'>table</a>, body, <span class="Constant">0</span>, stack <span id="L811" class="LineNr">811 </span><span class="CommentedCode">#? print-string-to-real-screen "exited recursive eval\n"</span> <span id="L812" class="LineNr">812 </span> <span class="muComment"># pop target-val from out</span> -<span id="L813" class="LineNr">813 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> stack, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L813" class="LineNr">813 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> stack, <a href='../203stack.subx.html#L338'>top</a> <span id="L814" class="LineNr">814 </span> compare *top-addr, <span class="Constant">0</span> <span id="L815" class="LineNr">815 </span> <span class="PreProc">break-if-<=</span> -<span id="L816" class="LineNr">816 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> stack, data -<span id="L817" class="LineNr">817 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L818" class="LineNr">818 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L819" class="LineNr">819 </span> <a href='../../203stack.subx.html#L338'>top</a> <span class="SpecialChar"><-</span> decrement -<span id="L820" class="LineNr">820 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L821" class="LineNr">821 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L816" class="LineNr">816 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> stack, data +<span id="L817" class="LineNr">817 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L818" class="LineNr">818 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L819" class="LineNr">819 </span> <a href='../203stack.subx.html#L338'>top</a> <span class="Special"><-</span> decrement +<span id="L820" class="LineNr">820 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L821" class="LineNr">821 </span> <span class="PreProc">var</span> target-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L822" class="LineNr">822 </span> <span class="muComment"># stitch target-val into caller-stack</span> <span id="L823" class="LineNr">823 </span> <a href='value-stack.mu.html#L76'>push-value-stack</a> caller-stack, target-val <span id="L824" class="LineNr">824 </span><span class="Delimiter">}</span> <span id="L825" class="LineNr">825 </span> <span id="L826" class="LineNr">826 </span><span class="muComment"># pop args from the caller-stack and bind them to successive args</span> <span id="L827" class="LineNr">827 </span><span class="muComment"># implies: function args are stored in reverse order</span> -<span id="L828" class="LineNr">828 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L828'>bind-args</a></span> _callee: (addr <a href='data.mu.html#L14'>function</a>), _caller-stack: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), <a href='data.mu.html#L47'>table</a>: (addr <a href='data.mu.html#L47'>table</a>) <span class="Delimiter">{</span> -<span id="L829" class="LineNr">829 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1397'>callee</a>/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L14'>function</a>) <span class="SpecialChar"><-</span> copy _callee -<span id="L830" class="LineNr">830 </span> <span class="PreProc">var</span> curr-arg-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1397'>callee</a>, args -<span id="L831" class="LineNr">831 </span> <span class="PreProc">var</span> curr-arg/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-arg-ah +<span id="L828" class="LineNr">828 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L828'>bind-args</a></span> _callee: (addr <a href='data.mu.html#L21'>function</a>), _caller-stack: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), <a href='data.mu.html#L59'>table</a>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Delimiter">{</span> +<span id="L829" class="LineNr">829 </span> <span class="PreProc">var</span> <a href='environment.mu.html#L1846'>callee</a>/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _callee +<span id="L830" class="LineNr">830 </span> <span class="PreProc">var</span> curr-arg-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='environment.mu.html#L1846'>callee</a>, args +<span id="L831" class="LineNr">831 </span> <span class="PreProc">var</span> curr-arg/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-arg-ah <span id="L832" class="LineNr">832 </span> <span class="muComment">#</span> <span id="L833" class="LineNr">833 </span> <span class="PreProc">var</span> curr-key-storage: (handle array byte) -<span id="L834" class="LineNr">834 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address curr-key-storage +<span id="L834" class="LineNr">834 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> address curr-key-storage <span id="L835" class="LineNr">835 </span> <span class="Delimiter">{</span> <span id="L836" class="LineNr">836 </span> compare curr-arg, <span class="Constant">0</span> <span id="L837" class="LineNr">837 </span> <span class="PreProc">break-if-=</span> <span id="L838" class="LineNr">838 </span> <span class="muComment"># create binding</span> -<span id="L839" class="LineNr">839 </span> <a href='word.mu.html#L508'>word-to-string</a> curr-arg, curr-key +<span id="L839" class="LineNr">839 </span> <a href='word.mu.html#L480'>word-to-string</a> curr-arg, curr-key <span id="L840" class="LineNr">840 </span> <span class="Delimiter">{</span> <span id="L841" class="LineNr">841 </span> <span class="muComment"># pop target-val from caller-stack</span> -<span id="L842" class="LineNr">842 </span> <span class="PreProc">var</span> caller-stack/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _caller-stack -<span id="L843" class="LineNr">843 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> caller-stack, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L842" class="LineNr">842 </span> <span class="PreProc">var</span> caller-stack/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _caller-stack +<span id="L843" class="LineNr">843 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> caller-stack, <a href='../203stack.subx.html#L338'>top</a> <span id="L844" class="LineNr">844 </span> compare *top-addr, <span class="Constant">0</span> <span id="L845" class="LineNr">845 </span> <span class="PreProc">break-if-<=</span> <span id="L846" class="LineNr">846 </span> decrement *top-addr -<span id="L847" class="LineNr">847 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> caller-stack, data -<span id="L848" class="LineNr">848 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L849" class="LineNr">849 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L850" class="LineNr">850 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">ebx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L851" class="LineNr">851 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L847" class="LineNr">847 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> caller-stack, data +<span id="L848" class="LineNr">848 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L849" class="LineNr">849 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L850" class="LineNr">850 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">ebx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L851" class="LineNr">851 </span> <span class="PreProc">var</span> target-val/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L852" class="LineNr">852 </span> <span class="muComment"># create binding from curr-key to target-val</span> -<span id="L853" class="LineNr">853 </span> <a href='table.mu.html#L52'>bind-in-table</a> <a href='data.mu.html#L47'>table</a>, curr-key, target-val +<span id="L853" class="LineNr">853 </span> <a href='table.mu.html#L52'>bind-in-table</a> <a href='data.mu.html#L59'>table</a>, curr-key, target-val <span id="L854" class="LineNr">854 </span> <span class="Delimiter">}</span> <span id="L855" class="LineNr">855 </span> <span class="muComment">#</span> -<span id="L856" class="LineNr">856 </span> <span class="PreProc">var</span> next-arg-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-arg, next -<span id="L857" class="LineNr">857 </span> curr-arg <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-arg-ah +<span id="L856" class="LineNr">856 </span> <span class="PreProc">var</span> next-arg-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-arg, next +<span id="L857" class="LineNr">857 </span> curr-arg <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-arg-ah <span id="L858" class="LineNr">858 </span> <span class="PreProc">loop</span> <span id="L859" class="LineNr">859 </span> <span class="Delimiter">}</span> <span id="L860" class="LineNr">860 </span><span class="Delimiter">}</span> <span id="L861" class="LineNr">861 </span> <span id="L862" class="LineNr">862 </span><span class="muComment"># Copy of 'simplify' that just tracks the maximum stack depth needed</span> <span id="L863" class="LineNr">863 </span><span class="muComment"># Doesn't actually need to simulate the stack, since every word has a predictable effect.</span> -<span id="L864" class="LineNr">864 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L864'>max-stack-depth</a></span> <a href='word.mu.html#L114'>first-word</a>: (addr <a href='data.mu.html#L30'>word</a>), <a href='word.mu.html#L129'>final-word</a>: (addr <a href='data.mu.html#L30'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">edi</span>: int <span class="Delimiter">{</span> -<span id="L865" class="LineNr">865 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> copy <a href='word.mu.html#L114'>first-word</a> -<span id="L866" class="LineNr">866 </span> <span class="PreProc">var</span> curr-depth/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L867" class="LineNr">867 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L864" class="LineNr">864 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L864'>max-stack-depth</a></span> first-word: (addr <a href='data.mu.html#L42'>word</a>), <a href='word.mu.html#L114'>final-word</a>: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">edi</span>: int <span class="Delimiter">{</span> +<span id="L865" class="LineNr">865 </span> <span class="PreProc">var</span> curr-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy first-word +<span id="L866" class="LineNr">866 </span> <span class="PreProc">var</span> curr-depth/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L867" class="LineNr">867 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L868" class="LineNr">868 </span> $max-stack-depth:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L869" class="LineNr">869 </span> $max-stack-depth:process-word: <span class="Delimiter">{</span> <span id="L870" class="LineNr">870 </span> <span class="muComment"># handle operators</span> <span id="L871" class="LineNr">871 </span> <span class="Delimiter">{</span> -<span id="L872" class="LineNr">872 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> curr-word, <span class="Constant">"+"</span> -<span id="L873" class="LineNr">873 </span> compare is-add?, <span class="Constant">0</span> +<span id="L872" class="LineNr">872 </span> <span class="PreProc">var</span> add?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> curr-word, <span class="Constant">"+"</span> +<span id="L873" class="LineNr">873 </span> compare add?, <span class="Constant">0</span> <span id="L874" class="LineNr">874 </span> <span class="PreProc">break-if-=</span> -<span id="L875" class="LineNr">875 </span> curr-depth <span class="SpecialChar"><-</span> decrement +<span id="L875" class="LineNr">875 </span> curr-depth <span class="Special"><-</span> decrement <span id="L876" class="LineNr">876 </span> <span class="PreProc">break</span> $max-stack-depth:process-word <span id="L877" class="LineNr">877 </span> <span class="Delimiter">}</span> <span id="L878" class="LineNr">878 </span> <span class="Delimiter">{</span> -<span id="L879" class="LineNr">879 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> curr-word, <span class="Constant">"-"</span> -<span id="L880" class="LineNr">880 </span> compare is-sub?, <span class="Constant">0</span> +<span id="L879" class="LineNr">879 </span> <span class="PreProc">var</span> sub?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> curr-word, <span class="Constant">"-"</span> +<span id="L880" class="LineNr">880 </span> compare sub?, <span class="Constant">0</span> <span id="L881" class="LineNr">881 </span> <span class="PreProc">break-if-=</span> -<span id="L882" class="LineNr">882 </span> curr-depth <span class="SpecialChar"><-</span> decrement +<span id="L882" class="LineNr">882 </span> curr-depth <span class="Special"><-</span> decrement <span id="L883" class="LineNr">883 </span> <span class="PreProc">break</span> $max-stack-depth:process-word <span id="L884" class="LineNr">884 </span> <span class="Delimiter">}</span> <span id="L885" class="LineNr">885 </span> <span class="Delimiter">{</span> -<span id="L886" class="LineNr">886 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='word.mu.html#L98'>word-equal?</a> curr-word, <span class="Constant">"*"</span> -<span id="L887" class="LineNr">887 </span> compare is-mul?, <span class="Constant">0</span> +<span id="L886" class="LineNr">886 </span> <span class="PreProc">var</span> mul?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L98'>word-equal?</a> curr-word, <span class="Constant">"*"</span> +<span id="L887" class="LineNr">887 </span> compare mul?, <span class="Constant">0</span> <span id="L888" class="LineNr">888 </span> <span class="PreProc">break-if-=</span> -<span id="L889" class="LineNr">889 </span> curr-depth <span class="SpecialChar"><-</span> decrement +<span id="L889" class="LineNr">889 </span> curr-depth <span class="Special"><-</span> decrement <span id="L890" class="LineNr">890 </span> <span class="PreProc">break</span> $max-stack-depth:process-word <span id="L891" class="LineNr">891 </span> <span class="Delimiter">}</span> <span id="L892" class="LineNr">892 </span> <span class="muComment"># otherwise it's an int (do we need error-checking?)</span> -<span id="L893" class="LineNr">893 </span> curr-depth <span class="SpecialChar"><-</span> increment +<span id="L893" class="LineNr">893 </span> curr-depth <span class="Special"><-</span> increment <span id="L894" class="LineNr">894 </span> <span class="muComment"># update max depth if necessary</span> <span id="L895" class="LineNr">895 </span> <span class="Delimiter">{</span> -<span id="L896" class="LineNr">896 </span> compare curr-depth, <a href='data.mu.html#L70'>result</a> +<span id="L896" class="LineNr">896 </span> compare curr-depth, <a href='data.mu.html#L82'>result</a> <span id="L897" class="LineNr">897 </span> <span class="PreProc">break-if-<=</span> -<span id="L898" class="LineNr">898 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> copy curr-depth +<span id="L898" class="LineNr">898 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> copy curr-depth <span id="L899" class="LineNr">899 </span> <span class="Delimiter">}</span> <span id="L900" class="LineNr">900 </span> <span class="Delimiter">}</span> <span id="L901" class="LineNr">901 </span> <span class="muComment"># if curr-word == final-word break</span> -<span id="L902" class="LineNr">902 </span> compare curr-word, <a href='word.mu.html#L129'>final-word</a> +<span id="L902" class="LineNr">902 </span> compare curr-word, <a href='word.mu.html#L114'>final-word</a> <span id="L903" class="LineNr">903 </span> <span class="PreProc">break-if-=</span> <span id="L904" class="LineNr">904 </span> <span class="muComment"># curr-word = curr-word->next</span> -<span id="L905" class="LineNr">905 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L30'>word</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> curr-word, next -<span id="L906" class="LineNr">906 </span> curr-word <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *next-word-ah +<span id="L905" class="LineNr">905 </span> <span class="PreProc">var</span> next-word-ah/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-word, next +<span id="L906" class="LineNr">906 </span> curr-word <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-word-ah <span id="L907" class="LineNr">907 </span> <span class="muComment">#</span> <span id="L908" class="LineNr">908 </span> <span class="PreProc">loop</span> <span id="L909" class="LineNr">909 </span> <span class="Delimiter">}</span> -<span id="L910" class="LineNr">910 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L910" class="LineNr">910 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L911" class="LineNr">911 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/tile/surface.mu.html b/html/linux/tile/surface.mu.html index 12f7127f..e5996396 100644 --- a/html/apps/tile/surface.mu.html +++ b/html/linux/tile/surface.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/surface.mu</title> +<title>Mu - linux/tile/surface.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,15 +14,15 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muTest { color: #5f8700; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -56,7 +56,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/surface.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/surface.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/surface.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/surface.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># A surface is a large 2-D grid that you can only see a subset of through the</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment"># screen.</span> @@ -65,8 +65,8 @@ if ('onhashchange' in window) { <span id="L5" class="LineNr"> 5 </span><span class="muComment"># stability.</span> <span id="L6" class="LineNr"> 6 </span> <span id="L7" class="LineNr"> 7 </span><span class="PreProc">type</span> <a href='surface.mu.html#L7'>surface</a> <span class="Delimiter">{</span> -<span id="L8" class="LineNr"> 8 </span> <a href='../../405screen.mu.html#L9'>screen</a>: (handle <a href='../../405screen.mu.html#L9'>screen</a>) -<span id="L9" class="LineNr"> 9 </span> data: (handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) +<span id="L8" class="LineNr"> 8 </span> <a href='../405screen.mu.html#L9'>screen</a>: (handle <a href='../405screen.mu.html#L9'>screen</a>) +<span id="L9" class="LineNr"> 9 </span> data: (handle array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span id="L10" class="LineNr"> 10 </span> nrows: int <span id="L11" class="LineNr"> 11 </span> ncols: int <span id="L12" class="LineNr"> 12 </span> screen-nrows: int @@ -79,145 +79,145 @@ if ('onhashchange' in window) { <span id="L19" class="LineNr"> 19 </span> <span id="L20" class="LineNr"> 20 </span><span class="muComment"># intended mostly for tests; could be slow</span> <span id="L21" class="LineNr"> 21 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L21'>initialize-surface-with</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), in: (addr array byte) <span class="Delimiter">{</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self <span id="L23" class="LineNr"> 23 </span> <span class="muComment"># fill in nrows, ncols</span> -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L258'>num-lines</a> in -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, nrows +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='surface.mu.html#L258'>num-lines</a> in +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, nrows <span id="L26" class="LineNr"> 26 </span> copy-to *dest, nrows -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> ncols/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L276'>first-line-length</a> in <span class="muComment"># assume all lines are the same length</span> -<span id="L28" class="LineNr"> 28 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> ncols/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='surface.mu.html#L276'>first-line-length</a> in <span class="muComment"># assume all lines are the same length</span> +<span id="L28" class="LineNr"> 28 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, ncols <span id="L29" class="LineNr"> 29 </span> copy-to *dest, ncols <span id="L30" class="LineNr"> 30 </span> <span class="muComment"># fill in data</span> -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy nrows -<span id="L32" class="LineNr"> 32 </span> len <span class="SpecialChar"><-</span> multiply ncols -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> out, data +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy nrows +<span id="L32" class="LineNr"> 32 </span> len <span class="Special"><-</span> multiply ncols +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr handle array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> out, data <span id="L35" class="LineNr"> 35 </span> populate data, len -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">eax</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">eax</span>: (addr array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data <span id="L37" class="LineNr"> 37 </span> <a href='surface.mu.html#L294'>fill-in</a> data-addr, in <span id="L38" class="LineNr"> 38 </span> <span class="muComment"># fill in screen-nrows, screen-ncols</span> <span id="L39" class="LineNr"> 39 </span> <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> _screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _screen-addr -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L45" class="LineNr"> 45 </span> nrows, ncols <span class="SpecialChar"><-</span> <a href='../../405screen.mu.html#L60'>screen-size</a> screen-addr -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-nrows +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> _screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">edi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _screen-addr +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L45" class="LineNr"> 45 </span> nrows, ncols <span class="Special"><-</span> <a href='../405screen.mu.html#L60'>screen-size</a> screen-addr +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, screen-nrows <span id="L47" class="LineNr"> 47 </span> copy-to *dest, nrows -<span id="L48" class="LineNr"> 48 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-ncols +<span id="L48" class="LineNr"> 48 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, screen-ncols <span id="L49" class="LineNr"> 49 </span> copy-to *dest, ncols <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">}</span> <span id="L51" class="LineNr"> 51 </span><span class="Delimiter">}</span> <span id="L52" class="LineNr"> 52 </span> <span id="L53" class="LineNr"> 53 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L53'>pin-surface-at</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), r: int, c: int <span class="Delimiter">{</span> -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-row -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy r +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-row +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy r <span id="L57" class="LineNr"> 57 </span> copy-to *dest, tmp -<span id="L58" class="LineNr"> 58 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-col -<span id="L59" class="LineNr"> 59 </span> tmp <span class="SpecialChar"><-</span> copy c +<span id="L58" class="LineNr"> 58 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-col +<span id="L59" class="LineNr"> 59 </span> tmp <span class="Special"><-</span> copy c <span id="L60" class="LineNr"> 60 </span> copy-to *dest, tmp <span id="L61" class="LineNr"> 61 </span><span class="Delimiter">}</span> <span id="L62" class="LineNr"> 62 </span> <span id="L63" class="LineNr"> 63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L63'>pin-surface-to</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), sr: int, sc: int <span class="Delimiter">{</span> -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-row -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy sr +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-screen-row +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy sr <span id="L67" class="LineNr"> 67 </span> copy-to *dest, tmp -<span id="L68" class="LineNr"> 68 </span> dest <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-col -<span id="L69" class="LineNr"> 69 </span> tmp <span class="SpecialChar"><-</span> copy sc +<span id="L68" class="LineNr"> 68 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-screen-col +<span id="L69" class="LineNr"> 69 </span> tmp <span class="Special"><-</span> copy sc <span id="L70" class="LineNr"> 70 </span> copy-to *dest, tmp <span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span> <span id="L72" class="LineNr"> 72 </span> <span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L73'>render-surface</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span><span class="CommentedCode">#? print-string-to-real-screen "render-surface\n"</span> -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self <span id="L76" class="LineNr"> 76 </span> <span class="muComment"># clear screen</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L79" class="LineNr"> 79 </span> <a href='../../405screen.mu.html#L78'>clear-screen</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L79" class="LineNr"> 79 </span> <a href='../405screen.mu.html#L78'>clear-screen</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L80" class="LineNr"> 80 </span> <span class="muComment">#</span> -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> nrows/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-nrows -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, screen-ncols -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> screen-row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> nrows/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, screen-nrows +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, screen-ncols +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> screen-row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">{</span> <span id="L85" class="LineNr"> 85 </span> compare screen-row, *nrows <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">break-if-></span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> screen-col/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> screen-col/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> compare screen-col, *ncols <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-></span> <span id="L91" class="LineNr"> 91 </span><span class="CommentedCode">#? print-string-to-real-screen "X"</span> <span id="L92" class="LineNr"> 92 </span> <a href='surface.mu.html#L102'>print-surface-cell-at</a> self, screen-row, screen-col -<span id="L93" class="LineNr"> 93 </span> screen-col <span class="SpecialChar"><-</span> increment +<span id="L93" class="LineNr"> 93 </span> screen-col <span class="Special"><-</span> increment <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> <span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> <span id="L96" class="LineNr"> 96 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L97" class="LineNr"> 97 </span> screen-row <span class="SpecialChar"><-</span> increment +<span id="L97" class="LineNr"> 97 </span> screen-row <span class="Special"><-</span> increment <span id="L98" class="LineNr"> 98 </span> <span class="PreProc">loop</span> <span id="L99" class="LineNr"> 99 </span> <span class="Delimiter">}</span> <span id="L100" class="LineNr">100 </span><span class="Delimiter">}</span> <span id="L101" class="LineNr">101 </span> <span id="L102" class="LineNr">102 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L102'>print-surface-cell-at</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), screen-row: int, screen-col: int <span class="Delimiter">{</span> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L197'>screen-row-to-surface</a> self, screen-row -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L227'>screen-col-to-surface</a> self, screen-col -<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> _data-addr/<span class="Constant">eax</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> copy _data-addr -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> idx/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='surface.mu.html#L167'>surface-screen-cell-index</a> self, row, col +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='surface.mu.html#L197'>screen-row-to-surface</a> self, screen-row +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> <a href='surface.mu.html#L227'>screen-col-to-surface</a> self, screen-col +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> _data-addr/<span class="Constant">eax</span>: (addr array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> data-addr/<span class="Constant">edi</span>: (addr array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> copy _data-addr +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> idx/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='surface.mu.html#L167'>surface-screen-cell-index</a> self, row, col <span id="L110" class="LineNr">110 </span> <span class="muComment"># if out of bounds, print ' '</span> <span id="L111" class="LineNr">111 </span> compare idx, <span class="Constant">0</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> <span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if->=</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> space/<span class="Constant">ecx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L117" class="LineNr">117 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, space +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> space/<span class="Constant">ecx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x20</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L117" class="LineNr">117 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, space <span id="L118" class="LineNr">118 </span> <span class="PreProc">return</span> <span id="L119" class="LineNr">119 </span> <span class="Delimiter">}</span> <span id="L120" class="LineNr">120 </span> <span class="muComment"># otherwise print the appropriate screen-cell</span> -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset data-addr, idx -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index data-addr, offset -<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L125" class="LineNr">125 </span> <a href='surface.mu.html#L129'>print-screen-cell</a> <a href='../../405screen.mu.html#L9'>screen</a>, src +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset data-addr, idx +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index data-addr, offset +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">edi</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L125" class="LineNr">125 </span> <a href='surface.mu.html#L129'>print-screen-cell</a> <a href='../405screen.mu.html#L9'>screen</a>, src <span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> <span id="L127" class="LineNr">127 </span> <span id="L128" class="LineNr">128 </span><span class="muComment"># print a cell with all its formatting at the cursor location</span> -<span id="L129" class="LineNr">129 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L129'>print-screen-cell</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _cell: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="Delimiter">{</span> -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> cell/<span class="Constant">esi</span>: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> copy _cell -<span id="L131" class="LineNr">131 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> fg/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, color -<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> bg/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, background-color -<span id="L134" class="LineNr">134 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, *fg, *bg -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr boolean) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, bold? +<span id="L129" class="LineNr">129 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L129'>print-screen-cell</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _cell: (addr <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Delimiter">{</span> +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> cell/<span class="Constant">esi</span>: (addr <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> copy _cell +<span id="L131" class="LineNr">131 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> fg/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, color +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> bg/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, background-color +<span id="L134" class="LineNr">134 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, *fg, *bg +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, bold? <span id="L136" class="LineNr">136 </span> <span class="Delimiter">{</span> <span id="L137" class="LineNr">137 </span> compare *tmp, <span class="Constant">0</span> <span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-=</span> -<span id="L139" class="LineNr">139 </span> <a href='../../405screen.mu.html#L537'>start-bold</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L139" class="LineNr">139 </span> <a href='../405screen.mu.html#L541'>start-bold</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> <span id="L141" class="LineNr">141 </span> <span class="Delimiter">{</span> -<span id="L142" class="LineNr">142 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, underline? +<span id="L142" class="LineNr">142 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, underline? <span id="L143" class="LineNr">143 </span> compare *tmp, <span class="Constant">0</span> <span id="L144" class="LineNr">144 </span> <span class="PreProc">break-if-=</span> -<span id="L145" class="LineNr">145 </span> <a href='../../405screen.mu.html#L551'>start-underline</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L145" class="LineNr">145 </span> <a href='../405screen.mu.html#L555'>start-underline</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L146" class="LineNr">146 </span> <span class="Delimiter">}</span> <span id="L147" class="LineNr">147 </span> <span class="Delimiter">{</span> -<span id="L148" class="LineNr">148 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, reverse? +<span id="L148" class="LineNr">148 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, reverse? <span id="L149" class="LineNr">149 </span> compare *tmp, <span class="Constant">0</span> <span id="L150" class="LineNr">150 </span> <span class="PreProc">break-if-=</span> -<span id="L151" class="LineNr">151 </span> <a href='../../405screen.mu.html#L565'>start-reverse-video</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L151" class="LineNr">151 </span> <a href='../405screen.mu.html#L569'>start-reverse-video</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L152" class="LineNr">152 </span> <span class="Delimiter">}</span> <span id="L153" class="LineNr">153 </span> <span class="Delimiter">{</span> -<span id="L154" class="LineNr">154 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, blink? +<span id="L154" class="LineNr">154 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, blink? <span id="L155" class="LineNr">155 </span> compare *tmp, <span class="Constant">0</span> <span id="L156" class="LineNr">156 </span> <span class="PreProc">break-if-=</span> -<span id="L157" class="LineNr">157 </span> <a href='../../405screen.mu.html#L579'>start-blinking</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L157" class="LineNr">157 </span> <a href='../405screen.mu.html#L583'>start-blinking</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L158" class="LineNr">158 </span> <span class="Delimiter">}</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> cell, data -<span id="L160" class="LineNr">160 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cell, data +<span id="L160" class="LineNr">160 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g <span id="L161" class="LineNr">161 </span><span class="CommentedCode">#? var g2/eax: grapheme <- copy *g</span> <span id="L162" class="LineNr">162 </span><span class="CommentedCode">#? var g3/eax: int <- copy g2</span> <span id="L163" class="LineNr">163 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen g3</span> @@ -225,47 +225,47 @@ if ('onhashchange' in window) { <span id="L165" class="LineNr">165 </span><span class="Delimiter">}</span> <span id="L166" class="LineNr">166 </span> <span id="L167" class="LineNr">167 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L167'>surface-screen-cell-index</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), row: int, col: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self <span id="L169" class="LineNr">169 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen row</span> <span id="L170" class="LineNr">170 </span><span class="CommentedCode">#? print-string-to-real-screen ", "</span> <span id="L171" class="LineNr">171 </span><span class="CommentedCode">#? print-int32-hex-to-real-screen col</span> <span id="L172" class="LineNr">172 </span><span class="CommentedCode">#? print-string-to-real-screen "\n"</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> <span id="L174" class="LineNr">174 </span> <span class="Delimiter">{</span> <span id="L175" class="LineNr">175 </span> compare row, <span class="Constant">1</span> <span id="L176" class="LineNr">176 </span> <span class="PreProc">break-if-<</span> <span id="L177" class="LineNr">177 </span> compare col, <span class="Constant">1</span> <span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-<</span> -<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> nrows-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, nrows -<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *nrows-addr +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> nrows-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, nrows +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *nrows-addr <span id="L181" class="LineNr">181 </span> compare row, nrows <span id="L182" class="LineNr">182 </span> <span class="PreProc">break-if-></span> -<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> ncols-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, ncols -<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy *ncols-addr +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> ncols-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, ncols +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *ncols-addr <span id="L185" class="LineNr">185 </span> compare col, ncols <span id="L186" class="LineNr">186 </span> <span class="PreProc">break-if-></span> <span id="L187" class="LineNr">187 </span> <span class="CommentedCode">#? print-string-to-real-screen "!\n"</span> -<span id="L188" class="LineNr">188 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> copy row -<span id="L189" class="LineNr">189 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> -<span id="L190" class="LineNr">190 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> multiply ncols -<span id="L191" class="LineNr">191 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add col -<span id="L192" class="LineNr">192 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> subtract <span class="Constant">1</span> +<span id="L188" class="LineNr">188 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> copy row +<span id="L189" class="LineNr">189 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> subtract <span class="Constant">1</span> +<span id="L190" class="LineNr">190 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> multiply ncols +<span id="L191" class="LineNr">191 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add col +<span id="L192" class="LineNr">192 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> subtract <span class="Constant">1</span> <span id="L193" class="LineNr">193 </span> <span class="Delimiter">}</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L194" class="LineNr">194 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L195" class="LineNr">195 </span><span class="Delimiter">}</span> <span id="L196" class="LineNr">196 </span> <span id="L197" class="LineNr">197 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L197'>screen-row-to-surface</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), screen-row: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy screen-row -<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-row -<span id="L201" class="LineNr">201 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add *tmp -<span id="L202" class="LineNr">202 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-row -<span id="L203" class="LineNr">203 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> subtract *tmp -<span id="L204" class="LineNr">204 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy screen-row +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-row +<span id="L201" class="LineNr">201 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add *tmp +<span id="L202" class="LineNr">202 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-screen-row +<span id="L203" class="LineNr">203 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> subtract *tmp +<span id="L204" class="LineNr">204 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L205" class="LineNr">205 </span><span class="Delimiter">}</span> <span id="L206" class="LineNr">206 </span> <span id="L207" class="LineNr">207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L207'>max</a></span> _a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _a +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _a <span id="L209" class="LineNr">209 </span> compare a, b <span id="L210" class="LineNr">210 </span> <span class="Delimiter">{</span> <span id="L211" class="LineNr">211 </span> <span class="PreProc">break-if-></span> @@ -275,7 +275,7 @@ if ('onhashchange' in window) { <span id="L215" class="LineNr">215 </span><span class="Delimiter">}</span> <span id="L216" class="LineNr">216 </span> <span id="L217" class="LineNr">217 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L217'>min</a></span> _a: int, b: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _a +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _a <span id="L219" class="LineNr">219 </span> compare a, b <span id="L220" class="LineNr">220 </span> <span class="Delimiter">{</span> <span id="L221" class="LineNr">221 </span> <span class="PreProc">break-if-></span> @@ -285,90 +285,90 @@ if ('onhashchange' in window) { <span id="L225" class="LineNr">225 </span><span class="Delimiter">}</span> <span id="L226" class="LineNr">226 </span> <span id="L227" class="LineNr">227 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L227'>screen-col-to-surface</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), screen-col: int<span class="PreProc"> -> </span>_/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy screen-col -<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-col -<span id="L231" class="LineNr">231 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add *tmp -<span id="L232" class="LineNr">232 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-col -<span id="L233" class="LineNr">233 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> subtract *tmp -<span id="L234" class="LineNr">234 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy screen-col +<span id="L230" class="LineNr">230 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-col +<span id="L231" class="LineNr">231 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add *tmp +<span id="L232" class="LineNr">232 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-screen-col +<span id="L233" class="LineNr">233 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> subtract *tmp +<span id="L234" class="LineNr">234 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L235" class="LineNr">235 </span><span class="Delimiter">}</span> <span id="L236" class="LineNr">236 </span> <span id="L237" class="LineNr">237 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L237'>surface-row-to-screen</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), row: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> -<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy row -<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-row -<span id="L241" class="LineNr">241 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add *tmp -<span id="L242" class="LineNr">242 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-row -<span id="L243" class="LineNr">243 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> subtract *tmp -<span id="L244" class="LineNr">244 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy row +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-screen-row +<span id="L241" class="LineNr">241 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add *tmp +<span id="L242" class="LineNr">242 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-row +<span id="L243" class="LineNr">243 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> subtract *tmp +<span id="L244" class="LineNr">244 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L245" class="LineNr">245 </span><span class="Delimiter">}</span> <span id="L246" class="LineNr">246 </span> <span id="L247" class="LineNr">247 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L247'>surface-col-to-screen</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), col: int<span class="PreProc"> -> </span>_/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> -<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy col -<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-screen-col -<span id="L251" class="LineNr">251 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add *tmp -<span id="L252" class="LineNr">252 </span> tmp <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, pin-col -<span id="L253" class="LineNr">253 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> subtract *tmp -<span id="L254" class="LineNr">254 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L248" class="LineNr">248 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy col +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-screen-col +<span id="L251" class="LineNr">251 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add *tmp +<span id="L252" class="LineNr">252 </span> tmp <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, pin-col +<span id="L253" class="LineNr">253 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> subtract *tmp +<span id="L254" class="LineNr">254 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L255" class="LineNr">255 </span><span class="Delimiter">}</span> <span id="L256" class="LineNr">256 </span> <span id="L257" class="LineNr">257 </span><span class="muComment"># assumes last line doesn't end in '\n'</span> <span id="L258" class="LineNr">258 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L258'>num-lines</a></span> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> <span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s -<span id="L261" class="LineNr">261 </span> <a href='../../108write.subx.html#L24'>write</a> s-addr, in -<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L261" class="LineNr">261 </span> <a href='../108write.subx.html#L24'>write</a> s-addr, in +<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L263" class="LineNr">263 </span> <span class="Delimiter">{</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> s-addr -<span id="L265" class="LineNr">265 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> s-addr +<span id="L265" class="LineNr">265 </span> compare done?, <span class="Constant">0</span>/false <span id="L266" class="LineNr">266 </span> <span class="PreProc">break-if-!=</span> -<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s-addr -<span id="L268" class="LineNr">268 </span> compare g, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s-addr +<span id="L268" class="LineNr">268 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L269" class="LineNr">269 </span> <span class="PreProc">loop-if-!=</span> -<span id="L270" class="LineNr">270 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> increment +<span id="L270" class="LineNr">270 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment <span id="L271" class="LineNr">271 </span> <span class="PreProc">loop</span> <span id="L272" class="LineNr">272 </span> <span class="Delimiter">}</span> -<span id="L273" class="LineNr">273 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L274" class="LineNr">274 </span><span class="Delimiter">}</span> <span id="L275" class="LineNr">275 </span> <span id="L276" class="LineNr">276 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L276'>first-line-length</a></span> in: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">edx</span>: int <span class="Delimiter">{</span> <span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s -<span id="L279" class="LineNr">279 </span> <a href='../../108write.subx.html#L24'>write</a> s-addr, in -<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L279" class="LineNr">279 </span> <a href='../108write.subx.html#L24'>write</a> s-addr, in +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L281" class="LineNr">281 </span> <span class="Delimiter">{</span> -<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> s-addr -<span id="L283" class="LineNr">283 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> s-addr +<span id="L283" class="LineNr">283 </span> compare done?, <span class="Constant">0</span>/false <span id="L284" class="LineNr">284 </span> <span class="PreProc">break-if-!=</span> -<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s-addr -<span id="L286" class="LineNr">286 </span> compare g, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s-addr +<span id="L286" class="LineNr">286 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L287" class="LineNr">287 </span> <span class="PreProc">break-if-=</span> -<span id="L288" class="LineNr">288 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> increment +<span id="L288" class="LineNr">288 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment <span id="L289" class="LineNr">289 </span> <span class="PreProc">loop</span> <span id="L290" class="LineNr">290 </span> <span class="Delimiter">}</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L292" class="LineNr">292 </span><span class="Delimiter">}</span> <span id="L293" class="LineNr">293 </span> -<span id="L294" class="LineNr">294 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L294'>fill-in</a></span> _out: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>), in: (addr array byte) <span class="Delimiter">{</span> +<span id="L294" class="LineNr">294 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L294'>fill-in</a></span> _out: (addr array <a href='../405screen.mu.html#L20'>screen-cell</a>), in: (addr array byte) <span class="Delimiter">{</span> <span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> s: (stream byte <span class="Constant">0x100</span>) -<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> copy _out -<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address s -<span id="L298" class="LineNr">298 </span> <a href='../../108write.subx.html#L24'>write</a> s-addr, in -<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> copy _out +<span id="L297" class="LineNr">297 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address s +<span id="L298" class="LineNr">298 </span> <a href='../108write.subx.html#L24'>write</a> s-addr, in +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> idx/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L300" class="LineNr">300 </span> <span class="Delimiter">{</span> -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../309stream.subx.html#L6'>stream-empty?</a> s-addr -<span id="L302" class="LineNr">302 </span> compare done?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> s-addr +<span id="L302" class="LineNr">302 </span> compare done?, <span class="Constant">0</span>/false <span id="L303" class="LineNr">303 </span> <span class="PreProc">break-if-!=</span> -<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s-addr -<span id="L305" class="LineNr">305 </span> compare g, <span class="Constant">0xa</span> <span class="muComment"># newline</span> +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> s-addr +<span id="L305" class="LineNr">305 </span> compare g, <span class="Constant">0xa</span>/newline <span id="L306" class="LineNr">306 </span> <span class="PreProc">loop-if-=</span> -<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> compute-offset out, idx -<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> index out, offset -<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> dest2/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, data +<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> compute-offset out, idx +<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> index out, offset +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> dest2/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, data <span id="L310" class="LineNr">310 </span> copy-to *dest2, g -<span id="L311" class="LineNr">311 </span> idx <span class="SpecialChar"><-</span> increment +<span id="L311" class="LineNr">311 </span> idx <span class="Special"><-</span> increment <span id="L312" class="LineNr">312 </span> <span class="PreProc">loop</span> <span id="L313" class="LineNr">313 </span> <span class="Delimiter">}</span> <span id="L314" class="LineNr">314 </span><span class="Delimiter">}</span> @@ -376,97 +376,97 @@ if ('onhashchange' in window) { <span id="L316" class="LineNr">316 </span><span class="muComment"># pin (1, 1) to (1, 1) on screen</span> <span id="L317" class="LineNr">317 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L317'>test-surface-pin-at-origin</a></span> <span class="Delimiter">{</span> <span id="L318" class="LineNr">318 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> -<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> address s <span id="L320" class="LineNr">320 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> <span id="L321" class="LineNr">321 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> <span id="L322" class="LineNr">322 </span> <a href='surface.mu.html#L403'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> <span id="L323" class="LineNr">323 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> <span id="L324" class="LineNr">324 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> <span id="L325" class="LineNr">325 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr -<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L328" class="LineNr">328 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> -<span id="L329" class="LineNr">329 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> -<span id="L330" class="LineNr">330 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"mnop"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> +<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> s-addr, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L328" class="LineNr">328 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> +<span id="L329" class="LineNr">329 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> +<span id="L330" class="LineNr">330 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"mnop"</span>, <span class="Constant">"F - test-surface-pin-at-origin"</span> <span id="L331" class="LineNr">331 </span><span class="Delimiter">}</span> <span id="L332" class="LineNr">332 </span> <span id="L333" class="LineNr">333 </span><span class="muComment"># pin (1, 1) to (2, 1) on screen; screen goes past edge of the universe</span> <span id="L334" class="LineNr">334 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L334'>test-surface-pin-2</a></span> <span class="Delimiter">{</span> <span id="L335" class="LineNr">335 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> -<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> address s <span id="L337" class="LineNr">337 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> <span id="L338" class="LineNr">338 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> <span id="L339" class="LineNr">339 </span> <a href='surface.mu.html#L403'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> <span id="L340" class="LineNr">340 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> <span id="L341" class="LineNr">341 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">2</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> <span id="L342" class="LineNr">342 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr -<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> s-addr, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah <span id="L345" class="LineNr">345 </span> <span class="muComment"># surface edge reached (should seldom happen in the app)</span> -<span id="L346" class="LineNr">346 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-surface-pin-2"</span> -<span id="L347" class="LineNr">347 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-surface-pin-2"</span> -<span id="L348" class="LineNr">348 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-2"</span> +<span id="L346" class="LineNr">346 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" "</span>, <span class="Constant">"F - test-surface-pin-2"</span> +<span id="L347" class="LineNr">347 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"abcd"</span>, <span class="Constant">"F - test-surface-pin-2"</span> +<span id="L348" class="LineNr">348 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-2"</span> <span id="L349" class="LineNr">349 </span><span class="Delimiter">}</span> <span id="L350" class="LineNr">350 </span> <span id="L351" class="LineNr">351 </span><span class="muComment"># pin (2, 1) to (1, 1) on screen</span> <span id="L352" class="LineNr">352 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L352'>test-surface-pin-3</a></span> <span class="Delimiter">{</span> <span id="L353" class="LineNr">353 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> -<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L354" class="LineNr">354 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> address s <span id="L355" class="LineNr">355 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> <span id="L356" class="LineNr">356 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> <span id="L357" class="LineNr">357 </span> <a href='surface.mu.html#L403'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> <span id="L358" class="LineNr">358 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">2</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> <span id="L359" class="LineNr">359 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> <span id="L360" class="LineNr">360 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr -<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L363" class="LineNr">363 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-3"</span> -<span id="L364" class="LineNr">364 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"mnop"</span>, <span class="Constant">"F - test-surface-pin-3"</span> -<span id="L365" class="LineNr">365 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"stuv"</span>, <span class="Constant">"F - test-surface-pin-3"</span> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> s-addr, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L362" class="LineNr">362 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L363" class="LineNr">363 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"ghij"</span>, <span class="Constant">"F - test-surface-pin-3"</span> +<span id="L364" class="LineNr">364 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"mnop"</span>, <span class="Constant">"F - test-surface-pin-3"</span> +<span id="L365" class="LineNr">365 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"stuv"</span>, <span class="Constant">"F - test-surface-pin-3"</span> <span id="L366" class="LineNr">366 </span><span class="Delimiter">}</span> <span id="L367" class="LineNr">367 </span> <span id="L368" class="LineNr">368 </span><span class="muComment"># pin (1, 1) to (1, 2) on screen; screen goes past edge of the universe</span> <span id="L369" class="LineNr">369 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L369'>test-surface-pin-4</a></span> <span class="Delimiter">{</span> <span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> address s <span id="L372" class="LineNr">372 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> <span id="L373" class="LineNr">373 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> <span id="L374" class="LineNr">374 </span> <a href='surface.mu.html#L403'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> <span id="L375" class="LineNr">375 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># surface row and column</span> <span id="L376" class="LineNr">376 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">2</span> <span class="muComment"># screen row and column</span> <span id="L377" class="LineNr">377 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr -<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah +<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> s-addr, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah <span id="L380" class="LineNr">380 </span> <span class="muComment"># surface edge reached (should seldom happen in the app)</span> -<span id="L381" class="LineNr">381 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" abc"</span>, <span class="Constant">"F - test-surface-pin-4"</span> -<span id="L382" class="LineNr">382 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" ghi"</span>, <span class="Constant">"F - test-surface-pin-4"</span> -<span id="L383" class="LineNr">383 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">" mno"</span>, <span class="Constant">"F - test-surface-pin-4"</span> +<span id="L381" class="LineNr">381 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">" abc"</span>, <span class="Constant">"F - test-surface-pin-4"</span> +<span id="L382" class="LineNr">382 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">" ghi"</span>, <span class="Constant">"F - test-surface-pin-4"</span> +<span id="L383" class="LineNr">383 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">" mno"</span>, <span class="Constant">"F - test-surface-pin-4"</span> <span id="L384" class="LineNr">384 </span><span class="Delimiter">}</span> <span id="L385" class="LineNr">385 </span> <span id="L386" class="LineNr">386 </span><span class="muComment"># pin (1, 2) to (1, 1) on screen</span> <span id="L387" class="LineNr">387 </span><span class="PreProc">fn</span> <span class="muTest"><a href='surface.mu.html#L387'>test-surface-pin-5</a></span> <span class="Delimiter">{</span> <span id="L388" class="LineNr">388 </span> <span class="PreProc">var</span> s: <a href='surface.mu.html#L7'>surface</a> -<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> address s +<span id="L389" class="LineNr">389 </span> <span class="PreProc">var</span> s-addr/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> address s <span id="L390" class="LineNr">390 </span> <span class="muComment"># surface contents are a fixed grid with 8 rows and 6 columns</span> <span id="L391" class="LineNr">391 </span> <span class="muComment"># (strip vowels second time around to break vertical alignment of letters)</span> <span id="L392" class="LineNr">392 </span> <a href='surface.mu.html#L403'>initialize-surface-with-fake-screen</a> s-addr, <span class="Constant">3</span>, <span class="Constant">4</span>, <span class="Constant">"abcdef\nghijkl\nmnopqr\nstuvwx\nyzabcd\nfghjkl\nmnpqrs\ntvwxyz"</span> <span id="L393" class="LineNr">393 </span> <a href='surface.mu.html#L53'>pin-surface-at</a> s-addr, <span class="Constant">1</span>, <span class="Constant">2</span> <span class="muComment"># surface row and column</span> <span id="L394" class="LineNr">394 </span> <a href='surface.mu.html#L63'>pin-surface-to</a> s-addr, <span class="Constant">1</span>, <span class="Constant">1</span> <span class="muComment"># screen row and column</span> <span id="L395" class="LineNr">395 </span> <a href='surface.mu.html#L73'>render-surface</a> s-addr -<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> s-addr, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L398" class="LineNr">398 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"bcde"</span>, <span class="Constant">"F - test-surface-pin-5"</span> -<span id="L399" class="LineNr">399 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"hijk"</span>, <span class="Constant">"F - test-surface-pin-5"</span> -<span id="L400" class="LineNr">400 </span> <a href='../../405screen.mu.html#L623'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"nopq"</span>, <span class="Constant">"F - test-surface-pin-5"</span> +<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> s-addr, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L398" class="LineNr">398 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">1</span>, <span class="Constant">"bcde"</span>, <span class="Constant">"F - test-surface-pin-5"</span> +<span id="L399" class="LineNr">399 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">2</span>, <span class="Constant">"hijk"</span>, <span class="Constant">"F - test-surface-pin-5"</span> +<span id="L400" class="LineNr">400 </span> <a href='../405screen.mu.html#L627'>check-screen-row</a> screen-addr, <span class="Constant">3</span>, <span class="Constant">"nopq"</span>, <span class="Constant">"F - test-surface-pin-5"</span> <span id="L401" class="LineNr">401 </span><span class="Delimiter">}</span> <span id="L402" class="LineNr">402 </span> <span id="L403" class="LineNr">403 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='surface.mu.html#L403'>initialize-surface-with-fake-screen</a></span> _self: (addr <a href='surface.mu.html#L7'>surface</a>), nrows: int, ncols: int, in: (addr array byte) <span class="Delimiter">{</span> -<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="SpecialChar"><-</span> copy _self +<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='surface.mu.html#L7'>surface</a>) <span class="Special"><-</span> copy _self <span id="L405" class="LineNr">405 </span> <span class="muComment"># fill in screen</span> -<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L407" class="LineNr">407 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> screen-ah -<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L409" class="LineNr">409 </span> <a href='../../405screen.mu.html#L30'>initialize-screen</a> screen-addr, nrows, ncols +<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../405screen.mu.html#L9'>screen</a> +<span id="L407" class="LineNr">407 </span> <a href='../120allocate.subx.html#L66'>allocate</a> screen-ah +<span id="L408" class="LineNr">408 </span> <span class="PreProc">var</span> screen-addr/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L409" class="LineNr">409 </span> <a href='../405screen.mu.html#L30'>initialize-screen</a> screen-addr, nrows, ncols <span id="L410" class="LineNr">410 </span> <span class="muComment"># fill in everything else</span> <span id="L411" class="LineNr">411 </span> <a href='surface.mu.html#L21'>initialize-surface-with</a> self, in <span id="L412" class="LineNr">412 </span><span class="Delimiter">}</span> diff --git a/html/apps/tile/table.mu.html b/html/linux/tile/table.mu.html index 672fdd81..ae8d1259 100644 --- a/html/apps/tile/table.mu.html +++ b/html/linux/tile/table.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/table.mu</title> +<title>Mu - linux/tile/table.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } .LineNr { } -.SpecialChar { color: #d70000; } +.muComment { color: #005faf; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -55,172 +55,172 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/table.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/table.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/table.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/table.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L1'>initialize-table</a></span> _self: (addr <a href='data.mu.html#L47'>table</a>), n: int <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L1'>initialize-table</a></span> _self: (addr <a href='data.mu.html#L59'>table</a>), n: int <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> copy _self +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data <span id="L4" class="LineNr"> 4 </span> populate data-ah, n <span id="L5" class="LineNr"> 5 </span><span class="Delimiter">}</span> <span id="L6" class="LineNr"> 6 </span> -<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L7'>deep-copy-table</a></span> _src: (addr <a href='data.mu.html#L47'>table</a>), _dest: (addr <a href='data.mu.html#L47'>table</a>) <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L7'>deep-copy-table</a></span> _src: (addr <a href='data.mu.html#L59'>table</a>), _dest: (addr <a href='data.mu.html#L59'>table</a>) <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span><span class="CommentedCode">#? print-string 0, "deep-copy-table\n"</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, data -<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> _src-data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-data-ah -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> src-data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _src-data -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length src-data -<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> copy _dest +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> copy _src +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, data +<span id="L11" class="LineNr"> 11 </span> <span class="PreProc">var</span> _src-data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-data-ah +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> src-data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _src-data +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length src-data +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> copy _dest <span id="L15" class="LineNr"> 15 </span> <a href='table.mu.html#L1'>initialize-table</a> dest, n -<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> dest-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, data -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> _dest-data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-data-ah -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> dest-data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _dest-data -<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> dest-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, data +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> _dest-data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-data-ah +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> dest-data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _dest-data +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L20" class="LineNr"> 20 </span> <span class="Delimiter">{</span> <span id="L21" class="LineNr"> 21 </span> compare i, n <span id="L22" class="LineNr"> 22 </span> <span class="PreProc">break-if->=</span> <span id="L23" class="LineNr"> 23 </span><span class="CommentedCode">#? print-string 0, "iter\n"</span> <span id="L24" class="LineNr"> 24 </span> $deep-copy:element: <span class="Delimiter">{</span> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> compute-offset src-data, i -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> src-bind/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> index src-data, offset -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> dest-bind/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> index dest-data, offset -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> src-key-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-bind, key -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> src-key/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-key-ah +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> compute-offset src-data, i +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> src-bind/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> index src-data, offset +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> dest-bind/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> index dest-data, offset +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> src-key-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-bind, key +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> src-key/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-key-ah <span id="L30" class="LineNr"> 30 </span> compare src-key, <span class="Constant">0</span> <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">break-if-=</span> <span id="L32" class="LineNr"> 32 </span> <span class="muComment"># copy key</span> -<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dest-key-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-bind, key +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> dest-key-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-bind, key <span id="L34" class="LineNr"> 34 </span> copy-object src-key-ah, dest-key-ah <span id="L35" class="LineNr"> 35 </span> <span class="muComment"># deep copy value</span> -<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> src-val-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-bind, <a href='data.mu.html#L37'>value</a> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> _src-val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-val-ah -<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> src-val/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _src-val -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> dest-val-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-bind, <a href='data.mu.html#L37'>value</a> -<span id="L40" class="LineNr"> 40 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest-val-ah -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-val-ah +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> src-val-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-bind, <a href='data.mu.html#L49'>value</a> +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> _src-val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-val-ah +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> src-val/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _src-val +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> dest-val-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-bind, <a href='data.mu.html#L49'>value</a> +<span id="L40" class="LineNr"> 40 </span> <a href='../120allocate.subx.html#L66'>allocate</a> dest-val-ah +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-val-ah <span id="L42" class="LineNr"> 42 </span><span class="CommentedCode">#? print-string 0, "deep copy value {\n"</span> <span id="L43" class="LineNr"> 43 </span> <a href='value.mu.html#L338'>deep-copy-value</a> src-val, dest-val <span id="L44" class="LineNr"> 44 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> <span id="L45" class="LineNr"> 45 </span> <span class="Delimiter">}</span> -<span id="L46" class="LineNr"> 46 </span> i <span class="SpecialChar"><-</span> increment +<span id="L46" class="LineNr"> 46 </span> i <span class="Special"><-</span> increment <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">loop</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">}</span> <span id="L49" class="LineNr"> 49 </span><span class="CommentedCode">#? print-string 0, "end deep-copy-table\n"</span> <span id="L50" class="LineNr"> 50 </span><span class="Delimiter">}</span> <span id="L51" class="LineNr"> 51 </span> -<span id="L52" class="LineNr"> 52 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L52'>bind-in-table</a></span> _self: (addr <a href='data.mu.html#L47'>table</a>), key: (addr handle array byte), val: (addr <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> next-empty-slot-index/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='table.mu.html#L63'>next-empty-slot</a> data, key -<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> index data, next-empty-slot-index +<span id="L52" class="LineNr"> 52 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L52'>bind-in-table</a></span> _self: (addr <a href='data.mu.html#L59'>table</a>), key: (addr handle array byte), val: (addr <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> copy _self +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _data +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> next-empty-slot-index/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='table.mu.html#L63'>next-empty-slot</a> data, key +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> index data, next-empty-slot-index <span id="L59" class="LineNr"> 59 </span> <a href='table.mu.html#L98'>make-binding</a> dest, key, val <span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> <span id="L61" class="LineNr"> 61 </span> <span id="L62" class="LineNr"> 62 </span><span class="muComment"># manual test: full array of binds</span> -<span id="L63" class="LineNr"> 63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L63'>next-empty-slot</a></span> _data: (addr array <a href='data.mu.html#L52'>bind</a>), key: (addr handle array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L52'>bind</a>) <span class="Delimiter">{</span> -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length data -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L63" class="LineNr"> 63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L63'>next-empty-slot</a></span> _data: (addr array <a href='data.mu.html#L64'>bind</a>), key: (addr handle array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L64'>bind</a>) <span class="Delimiter">{</span> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _data +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length data +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: (offset <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L68" class="LineNr"> 68 </span> $next-empty-slot:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> -<span id="L69" class="LineNr"> 69 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> compute-offset data, i +<span id="L69" class="LineNr"> 69 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> compute-offset data, i <span id="L70" class="LineNr"> 70 </span> compare i, len <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">break-if->=</span> <span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">{</span> -<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> target/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> index data, <a href='data.mu.html#L70'>result</a> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> target2/<span class="Constant">esi</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, key -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> target3/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target2 +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> target/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> index data, <a href='data.mu.html#L82'>result</a> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> target2/<span class="Constant">esi</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, key +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> target3/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target2 <span id="L76" class="LineNr"> 76 </span> compare target3, <span class="Constant">0</span> <span id="L77" class="LineNr"> 77 </span> <span class="PreProc">break-if-=</span> $next-empty-slot:<span class="PreProc">loop</span> <span id="L78" class="LineNr"> 78 </span> <span class="muComment"># TODO: how to indicate that key already exists? we don't want to permit rebinding</span> <span id="L79" class="LineNr"> 79 </span> <span class="Delimiter">}</span> -<span id="L80" class="LineNr"> 80 </span> i <span class="SpecialChar"><-</span> increment +<span id="L80" class="LineNr"> 80 </span> i <span class="Special"><-</span> increment <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">loop</span> <span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">}</span> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L84" class="LineNr"> 84 </span><span class="Delimiter">}</span> <span id="L85" class="LineNr"> 85 </span> -<span id="L86" class="LineNr"> 86 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L86'>make-number-binding</a></span> _self: (addr <a href='data.mu.html#L52'>bind</a>), key: (addr handle array byte), _val: float <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, key +<span id="L86" class="LineNr"> 86 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L86'>make-number-binding</a></span> _self: (addr <a href='data.mu.html#L64'>bind</a>), key: (addr handle array byte), _val: float <span class="Delimiter">{</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _self +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, key <span id="L89" class="LineNr"> 89 </span> copy-object key, dest -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> dest2/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='data.mu.html#L37'>value</a> -<span id="L91" class="LineNr"> 91 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest2 -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> dest3/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest2 -<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> dest4/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest3, number-data -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy _val +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> dest2/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='data.mu.html#L49'>value</a> +<span id="L91" class="LineNr"> 91 </span> <a href='../120allocate.subx.html#L66'>allocate</a> dest2 +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> dest3/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest2 +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> dest4/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest3, number-data +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy _val <span id="L95" class="LineNr"> 95 </span> copy-to *dest4, val <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> -<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L98'>make-binding</a></span> _self: (addr <a href='data.mu.html#L52'>bind</a>), key: (addr handle array byte), val: (addr <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, key +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L98'>make-binding</a></span> _self: (addr <a href='data.mu.html#L64'>bind</a>), key: (addr handle array byte), val: (addr <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _self +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, key <span id="L101" class="LineNr">101 </span> copy-object key, dest -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> dest2/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='data.mu.html#L37'>value</a> -<span id="L103" class="LineNr">103 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest2 -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> dest3/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest2 +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> dest2/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='data.mu.html#L49'>value</a> +<span id="L103" class="LineNr">103 </span> <a href='../120allocate.subx.html#L66'>allocate</a> dest2 +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> dest3/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest2 <span id="L105" class="LineNr">105 </span> copy-object val, dest3 <span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> <span id="L107" class="LineNr">107 </span> -<span id="L108" class="LineNr">108 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L108'>lookup-binding</a></span> _self: (addr <a href='data.mu.html#L47'>table</a>), key: (addr array byte), out: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> length data -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L108" class="LineNr">108 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L108'>lookup-binding</a></span> _self: (addr <a href='data.mu.html#L59'>table</a>), key: (addr array byte), out: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> copy _self +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _data +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length data +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L115" class="LineNr">115 </span> $lookup-binding:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> <span id="L116" class="LineNr">116 </span> compare i, len <span id="L117" class="LineNr">117 </span> <span class="PreProc">break-if->=</span> <span id="L118" class="LineNr">118 </span> <span class="Delimiter">{</span> -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> compute-offset data, i -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> target-bind/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> target2/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-bind, key -<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> target3/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *target2 +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> compute-offset data, i +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> target-bind/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> index data, offset +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> target2/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-bind, key +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> target3/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *target2 <span id="L123" class="LineNr">123 </span> compare target3, <span class="Constant">0</span> <span id="L124" class="LineNr">124 </span> <span class="PreProc">break-if-=</span> $lookup-binding:<span class="PreProc">loop</span> -<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> is-match?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='../../105string-equal.subx.html#L15'>string-equal?</a> target3, key -<span id="L126" class="LineNr">126 </span> compare is-match?, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> target3, key +<span id="L126" class="LineNr">126 </span> compare match?, <span class="Constant">0</span>/false <span id="L127" class="LineNr">127 </span> <span class="PreProc">break-if-=</span> <span id="L128" class="LineNr">128 </span> <span class="muComment"># found</span> -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-bind, <a href='data.mu.html#L37'>value</a> +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> target/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-bind, <a href='data.mu.html#L49'>value</a> <span id="L130" class="LineNr">130 </span> copy-object target, out <span id="L131" class="LineNr">131 </span> <span class="PreProc">break</span> $lookup-binding:<span class="PreProc">loop</span> <span id="L132" class="LineNr">132 </span> <span class="Delimiter">}</span> -<span id="L133" class="LineNr">133 </span> i <span class="SpecialChar"><-</span> increment +<span id="L133" class="LineNr">133 </span> i <span class="Special"><-</span> increment <span id="L134" class="LineNr">134 </span> <span class="PreProc">loop</span> <span id="L135" class="LineNr">135 </span> <span class="Delimiter">}</span> <span id="L136" class="LineNr">136 </span><span class="Delimiter">}</span> <span id="L137" class="LineNr">137 </span> -<span id="L138" class="LineNr">138 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L138'>dump-table</a></span> _self: (addr <a href='data.mu.html#L47'>table</a>) <span class="Delimiter">{</span> -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L47'>table</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> length data -<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L138" class="LineNr">138 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='table.mu.html#L138'>dump-table</a></span> _self: (addr <a href='data.mu.html#L59'>table</a>) <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L59'>table</a>) <span class="Special"><-</span> copy _self +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">esi</span>: (addr handle array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> copy _data +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length data +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L145" class="LineNr">145 </span> <span class="Delimiter">{</span> <span id="L146" class="LineNr">146 </span> compare i, len <span id="L147" class="LineNr">147 </span> <span class="PreProc">break-if->=</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> compute-offset data, i -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> target-bind/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L52'>bind</a>) <span class="SpecialChar"><-</span> index data, offset -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-bind, key -<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *key-ah +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> compute-offset data, i +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> target-bind/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L64'>bind</a>) <span class="Special"><-</span> index data, offset +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-bind, key +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *key-ah <span id="L152" class="LineNr">152 </span> compare key, <span class="Constant">0</span> <span id="L153" class="LineNr">153 </span> <span class="PreProc">break-if-=</span> -<span id="L154" class="LineNr">154 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, key -<span id="L155" class="LineNr">155 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">": "</span> -<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-bind, <a href='data.mu.html#L37'>value</a> -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, <span class="PreProc">type</span> -<span id="L159" class="LineNr">159 </span> <a href='../../405screen.mu.html#L436'>print-int32-hex</a> <span class="Constant">0</span>, *<span class="PreProc">type</span> -<span id="L160" class="LineNr">160 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> -<span id="L161" class="LineNr">161 </span> i <span class="SpecialChar"><-</span> increment +<span id="L154" class="LineNr">154 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, key +<span id="L155" class="LineNr">155 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">": "</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-bind, <a href='data.mu.html#L49'>value</a> +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, <span class="PreProc">type</span> +<span id="L159" class="LineNr">159 </span> <a href='../405screen.mu.html#L440'>print-int32-hex</a> <span class="Constant">0</span>, *<span class="PreProc">type</span> +<span id="L160" class="LineNr">160 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L161" class="LineNr">161 </span> i <span class="Special"><-</span> increment <span id="L162" class="LineNr">162 </span> <span class="PreProc">loop</span> <span id="L163" class="LineNr">163 </span> <span class="Delimiter">}</span> -<span id="L164" class="LineNr">164 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> +<span id="L164" class="LineNr">164 </span> <a href='../405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>, <span class="Constant">"\n"</span> <span id="L165" class="LineNr">165 </span><span class="Delimiter">}</span> </pre> </body> diff --git a/html/apps/tile/value-stack.mu.html b/html/linux/tile/value-stack.mu.html index b1aeaed9..5338f1d2 100644 --- a/html/apps/tile/value-stack.mu.html +++ b/html/linux/tile/value-stack.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/value-stack.mu</title> +<title>Mu - linux/tile/value-stack.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.CommentedCode { color: #8a8a8a; } -.muComment { color: #005faf; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } -.SpecialChar { color: #d70000; } +.Constant { color: #008787; } +.CommentedCode { color: #8a8a8a; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.muComment { color: #005faf; } --> </style> @@ -55,183 +55,157 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/value-stack.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/value-stack.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/value-stack.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/value-stack.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># support for non-int values is untested</span> <span id="L2" class="LineNr"> 2 </span> <span id="L3" class="LineNr"> 3 </span><span class="PreProc">type</span> <a href='value-stack.mu.html#L3'>value-stack</a> <span class="Delimiter">{</span> -<span id="L4" class="LineNr"> 4 </span> data: (handle array <a href='data.mu.html#L37'>value</a>) -<span id="L5" class="LineNr"> 5 </span> <a href='../../203stack.subx.html#L338'>top</a>: int +<span id="L4" class="LineNr"> 4 </span> data: (handle array <a href='data.mu.html#L49'>value</a>) +<span id="L5" class="LineNr"> 5 </span> <a href='../203stack.subx.html#L338'>top</a>: int <span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> <span id="L7" class="LineNr"> 7 </span> <span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L8'>initialize-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data <span id="L11" class="LineNr"> 11 </span> populate d, n -<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L13" class="LineNr"> 13 </span> copy-to *top, <span class="Constant">0</span> <span id="L14" class="LineNr"> 14 </span><span class="Delimiter">}</span> <span id="L15" class="LineNr"> 15 </span> <span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L16'>clear-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Delimiter">{</span> -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L19" class="LineNr"> 19 </span> copy-to *top, <span class="Constant">0</span> <span id="L20" class="LineNr"> 20 </span><span class="Delimiter">}</span> <span id="L21" class="LineNr"> 21 </span> <span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L22'>push-number-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), _val: float <span class="Delimiter">{</span> -<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, number-data -<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> copy _val +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, number-data +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy _val <span id="L32" class="LineNr"> 32 </span><span class="CommentedCode">#? print-float-decimal-approximate 0, val, 3</span> <span id="L33" class="LineNr"> 33 </span> copy-to *dest-addr2, val <span id="L34" class="LineNr"> 34 </span> increment *top-addr -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> -<span id="L36" class="LineNr"> 36 </span> copy-to *type-addr, <span class="Constant">0</span> <span class="muComment"># number</span> +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> +<span id="L36" class="LineNr"> 36 </span> copy-to *type-addr, <span class="Constant">0</span>/number <span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> <span id="L38" class="LineNr"> 38 </span> <span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L39'>push-string-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), val: (handle array byte) <span class="Delimiter">{</span> -<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, text-data -<span id="L48" class="LineNr"> 48 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> val, dest-addr2 -<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> dest-addr3/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, text-data +<span id="L48" class="LineNr"> 48 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> val, dest-addr2 +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> dest-addr3/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> <span id="L50" class="LineNr"> 50 </span><span class="CommentedCode">#? print-string 0, "setting type to 1: "</span> <span id="L51" class="LineNr"> 51 </span><span class="CommentedCode">#? {</span> <span id="L52" class="LineNr"> 52 </span><span class="CommentedCode">#? var foo/eax: int <- copy dest-addr3</span> <span id="L53" class="LineNr"> 53 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> <span id="L54" class="LineNr"> 54 </span><span class="CommentedCode">#? }</span> <span id="L55" class="LineNr"> 55 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L56" class="LineNr"> 56 </span> copy-to *dest-addr3, <span class="Constant">1</span> <span class="muComment"># type string</span> +<span id="L56" class="LineNr"> 56 </span> copy-to *dest-addr3, <span class="Constant">1</span>/string <span id="L57" class="LineNr"> 57 </span> increment *top-addr <span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> -<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L60'>push-array-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), val: (handle array <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> -<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, array-data -<span id="L69" class="LineNr"> 69 </span> <a href='../../120allocate.subx.html#L489'>copy-handle</a> val, dest-addr2 +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L60'>push-array-to-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), val: (handle array <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> dest-addr2/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, array-data +<span id="L69" class="LineNr"> 69 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> val, dest-addr2 <span id="L70" class="LineNr"> 70 </span> <span class="muComment"># update type</span> -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> dest-addr3/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> -<span id="L72" class="LineNr"> 72 </span> copy-to *dest-addr3, <span class="Constant">2</span> <span class="muComment"># type array</span> +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> dest-addr3/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-addr, <span class="PreProc">type</span> +<span id="L72" class="LineNr"> 72 </span> copy-to *dest-addr3, <span class="Constant">2</span>/array <span id="L73" class="LineNr"> 73 </span> increment *top-addr <span id="L74" class="LineNr"> 74 </span><span class="Delimiter">}</span> <span id="L75" class="LineNr"> 75 </span> -<span id="L76" class="LineNr"> 76 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L76'>push-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), val: (addr <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> -<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset +<span id="L76" class="LineNr"> 76 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L76'>push-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>), val: (addr <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset <span id="L84" class="LineNr"> 84 </span> copy-object val, dest-addr <span id="L85" class="LineNr"> 85 </span> increment *top-addr <span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> <span id="L87" class="LineNr"> 87 </span> <span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L88'>pop-number-from-value-stack</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">xmm0</span>: float <span class="Delimiter">{</span> -<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">{</span> <span id="L92" class="LineNr"> 92 </span> compare *top-addr, <span class="Constant">0</span> <span id="L93" class="LineNr"> 93 </span> <span class="PreProc">break-if-></span> -<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> minus-one/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">-1</span> -<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> minus-one-f/<span class="Constant">xmm0</span>: float <span class="SpecialChar"><-</span> convert minus-one +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> minus-one/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">-1</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> minus-one-f/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert minus-one <span id="L96" class="LineNr"> 96 </span> <span class="PreProc">return</span> minus-one-f <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> <span id="L98" class="LineNr"> 98 </span> decrement *top-addr -<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, dest-offset -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> result-addr2/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> result-addr, number-data +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, data +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset data, <a href='../203stack.subx.html#L338'>top</a> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index data, dest-offset +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> result-addr2/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> result-addr, number-data <span id="L105" class="LineNr">105 </span> <span class="PreProc">return</span> *result-addr2 <span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> <span id="L107" class="LineNr">107 </span> <span id="L108" class="LineNr">108 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L108'>value-stack-empty?</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> <a href='../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L111" class="LineNr">111 </span> compare *top, <span class="Constant">0</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> <span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if-!=</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true <span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> -<span id="L116" class="LineNr">116 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L116" class="LineNr">116 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false <span id="L117" class="LineNr">117 </span><span class="Delimiter">}</span> <span id="L118" class="LineNr">118 </span> <span id="L119" class="LineNr">119 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L119'>value-stack-length</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> +<span id="L120" class="LineNr">120 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="Special"><-</span> copy _self +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> <span id="L122" class="LineNr">122 </span> <span class="PreProc">return</span> *top-addr <span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> -<span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L125'>value-stack-max-width</a></span> _self: (addr <a href='value-stack.mu.html#L3'>value-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='value-stack.mu.html#L3'>value-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, data -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _data -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>: int -<span id="L133" class="LineNr">133 </span> <span class="Delimiter">{</span> -<span id="L134" class="LineNr">134 </span> compare i, *top-addr -<span id="L135" class="LineNr">135 </span> <span class="PreProc">break-if->=</span> -<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> o/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset data, i -<span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> v/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index data, o -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> w/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L218'>value-width</a> v, <span class="Constant">1</span> <span class="muComment"># top-level=true</span> -<span id="L139" class="LineNr">139 </span> <span class="muComment"># if (w > result) w = result</span> -<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> -<span id="L141" class="LineNr">141 </span> compare w, <a href='data.mu.html#L70'>result</a> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">break-if-<=</span> -<span id="L143" class="LineNr">143 </span> copy-to <a href='data.mu.html#L70'>result</a>, w -<span id="L144" class="LineNr">144 </span> <span class="Delimiter">}</span> -<span id="L145" class="LineNr">145 </span> i <span class="SpecialChar"><-</span> increment -<span id="L146" class="LineNr">146 </span> <span class="PreProc">loop</span> -<span id="L147" class="LineNr">147 </span> <span class="Delimiter">}</span> -<span id="L148" class="LineNr">148 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L125'>save-lines</a></span> in-h: (handle array (handle array byte)), _out-ah: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> _in/<span class="Constant">eax</span>: (addr array (handle array byte)) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> in-h +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr array (handle array byte)) <span class="Special"><-</span> copy _in +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length in +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _out-ah +<span id="L130" class="LineNr">130 </span> populate out-ah, len +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *out-ah +<span id="L132" class="LineNr">132 </span> <span class="muComment"># copy in into out</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L134" class="LineNr">134 </span> <span class="Delimiter">{</span> +<span id="L135" class="LineNr">135 </span> compare i, len +<span id="L136" class="LineNr">136 </span> <span class="PreProc">break-if->=</span> +<span id="L137" class="LineNr">137 </span><span class="CommentedCode">#? print-int32-hex 0, i</span> +<span id="L138" class="LineNr">138 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> index in, i +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset out, i +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index out, dest-offset +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-val, text-data +<span id="L143" class="LineNr">143 </span> copy-object src, dest +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-val, <span class="PreProc">type</span> +<span id="L145" class="LineNr">145 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">1</span>/string +<span id="L146" class="LineNr">146 </span> i <span class="Special"><-</span> increment +<span id="L147" class="LineNr">147 </span> <span class="PreProc">loop</span> +<span id="L148" class="LineNr">148 </span> <span class="Delimiter">}</span> <span id="L149" class="LineNr">149 </span><span class="Delimiter">}</span> -<span id="L150" class="LineNr">150 </span> -<span id="L151" class="LineNr">151 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value-stack.mu.html#L151'>save-lines</a></span> in-h: (handle array (handle array byte)), _out-ah: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> -<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> _in/<span class="Constant">eax</span>: (addr array (handle array byte)) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> in-h -<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr array (handle array byte)) <span class="SpecialChar"><-</span> copy _in -<span id="L154" class="LineNr">154 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length in -<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">edi</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _out-ah -<span id="L156" class="LineNr">156 </span> populate out-ah, len -<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *out-ah -<span id="L158" class="LineNr">158 </span> <span class="muComment"># copy in into out</span> -<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> -<span id="L161" class="LineNr">161 </span> compare i, len -<span id="L162" class="LineNr">162 </span> <span class="PreProc">break-if->=</span> -<span id="L163" class="LineNr">163 </span><span class="CommentedCode">#? print-int32-hex 0, i</span> -<span id="L164" class="LineNr">164 </span><span class="CommentedCode">#? print-string 0, "\n"</span> -<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> index in, i -<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> dest-offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset out, i -<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> dest-val/<span class="Constant">edx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index out, dest-offset -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-val, text-data -<span id="L169" class="LineNr">169 </span> copy-object src, dest -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-val, <span class="PreProc">type</span> -<span id="L171" class="LineNr">171 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">1</span> <span class="muComment"># string</span> -<span id="L172" class="LineNr">172 </span> i <span class="SpecialChar"><-</span> increment -<span id="L173" class="LineNr">173 </span> <span class="PreProc">loop</span> -<span id="L174" class="LineNr">174 </span> <span class="Delimiter">}</span> -<span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> </pre> </body> </html> diff --git a/html/apps/tile/value.mu.html b/html/linux/tile/value.mu.html index 51887537..e6840518 100644 --- a/html/apps/tile/value.mu.html +++ b/html/linux/tile/value.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - apps/tile/value.mu</title> +<title>Mu - linux/tile/value.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -14,14 +14,14 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } .CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } .muComment { color: #005faf; } -.LineNr { } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } +.Special { color: #ff6060; } --> </style> @@ -55,429 +55,429 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/apps/tile/value.mu'>https://github.com/akkartik/mu/blob/main/apps/tile/value.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/value.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/value.mu</a> <pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L1'>render-value-at</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int, _val: (addr <a href='data.mu.html#L37'>value</a>), max-width: int <span class="Delimiter">{</span> -<span id="L2" class="LineNr"> 2 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> val/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _val -<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> val-type/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, <span class="PreProc">type</span> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L1'>render-value-at</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int, _val: (addr <a href='data.mu.html#L49'>value</a>), top-level?: boolean <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> val/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _val +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> val-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, <span class="PreProc">type</span> <span id="L5" class="LineNr"> 5 </span> <span class="muComment"># per-type rendering logic goes here</span> -<span id="L6" class="LineNr"> 6 </span> compare *val-type, <span class="Constant">1</span> <span class="muComment"># string</span> +<span id="L6" class="LineNr"> 6 </span> compare *val-type, <span class="Constant">1</span>/string <span id="L7" class="LineNr"> 7 </span> <span class="Delimiter">{</span> <span id="L8" class="LineNr"> 8 </span> <span class="PreProc">break-if-!=</span> -<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, text-data -<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> val-string/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, text-data +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> val-string/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah <span id="L11" class="LineNr"> 11 </span> compare val-string, <span class="Constant">0</span> <span id="L12" class="LineNr"> 12 </span> <span class="PreProc">break-if-=</span> -<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> orig-len/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length val-string +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> orig-len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length val-string <span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> truncated: (handle array byte) -<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> truncated-ah/<span class="Constant">esi</span>: (addr handle array byte) <span class="SpecialChar"><-</span> address truncated -<span id="L16" class="LineNr"> 16 </span> <a href='../../411string.mu.html#L2'>substring</a> val-string, <span class="Constant">0</span>, <span class="Constant">0xc</span>, truncated-ah -<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> truncated-string/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *truncated-ah -<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> length truncated-string -<span id="L19" class="LineNr"> 19 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xf2</span>, <span class="Constant">7</span> -<span id="L20" class="LineNr"> 20 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x275d</span> <span class="muComment"># open-quote</span> -<span id="L21" class="LineNr"> 21 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, truncated-string +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> truncated-ah/<span class="Constant">esi</span>: (addr handle array byte) <span class="Special"><-</span> address truncated +<span id="L16" class="LineNr"> 16 </span> <a href='../411string.mu.html#L2'>substring</a> val-string, <span class="Constant">0</span>, <span class="Constant">0xc</span>, truncated-ah +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> truncated-string/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *truncated-ah +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length truncated-string +<span id="L19" class="LineNr"> 19 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xf2</span>, <span class="Constant">7</span> +<span id="L20" class="LineNr"> 20 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x275d</span>/open-quote +<span id="L21" class="LineNr"> 21 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, truncated-string <span id="L22" class="LineNr"> 22 </span> compare len, orig-len <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> <span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-=</span> -<span id="L25" class="LineNr"> 25 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2026</span> <span class="muComment"># ellipses</span> +<span id="L25" class="LineNr"> 25 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2026</span>/ellipses <span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">}</span> -<span id="L27" class="LineNr"> 27 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x275e</span> <span class="muComment"># close-quote</span> -<span id="L28" class="LineNr"> 28 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L27" class="LineNr"> 27 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x275e</span>/close-quote +<span id="L28" class="LineNr"> 28 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L29" class="LineNr"> 29 </span> <span class="PreProc">return</span> <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">}</span> -<span id="L31" class="LineNr"> 31 </span> compare *val-type, <span class="Constant">2</span> <span class="muComment"># array</span> +<span id="L31" class="LineNr"> 31 </span> compare *val-type, <span class="Constant">2</span>/array <span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">{</span> <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">break-if-!=</span> -<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, array-data -<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> val-array/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L36" class="LineNr"> 36 </span> <a href='value.mu.html#L98'>render-array-at</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, val-array +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, array-data +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> val-array/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L36" class="LineNr"> 36 </span> <a href='value.mu.html#L98'>render-array-at</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, val-array <span id="L37" class="LineNr"> 37 </span> <span class="PreProc">return</span> <span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">}</span> -<span id="L39" class="LineNr"> 39 </span> compare *val-type, <span class="Constant">3</span> <span class="muComment"># file</span> +<span id="L39" class="LineNr"> 39 </span> compare *val-type, <span class="Constant">3</span>/file <span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span> <span class="PreProc">break-if-!=</span> -<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, file-data -<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> val-file/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L44" class="LineNr"> 44 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">7</span> +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, file-data +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> val-file/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L44" class="LineNr"> 44 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">7</span> <span id="L45" class="LineNr"> 45 </span> <span class="muComment"># TODO</span> -<span id="L46" class="LineNr"> 46 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" FILE "</span> +<span id="L46" class="LineNr"> 46 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" FILE "</span> <span id="L47" class="LineNr"> 47 </span> <span class="PreProc">return</span> <span id="L48" class="LineNr"> 48 </span> <span class="Delimiter">}</span> -<span id="L49" class="LineNr"> 49 </span> compare *val-type, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L49" class="LineNr"> 49 </span> compare *val-type, <span class="Constant">4</span>/screen <span id="L50" class="LineNr"> 50 </span> <span class="Delimiter">{</span> <span id="L51" class="LineNr"> 51 </span> <span class="PreProc">break-if-!=</span> <span id="L52" class="LineNr"> 52 </span><span class="CommentedCode">#? print-string 0, "render-screen"</span> -<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, screen-data -<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> val-screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *val-ah -<span id="L55" class="LineNr"> 55 </span> <a href='value.mu.html#L128'>render-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, val-screen +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, screen-data +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> val-screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *val-ah +<span id="L55" class="LineNr"> 55 </span> <a href='value.mu.html#L128'>render-screen</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, val-screen <span id="L56" class="LineNr"> 56 </span><span class="CommentedCode">#? print-string 0, "}\n"</span> <span id="L57" class="LineNr"> 57 </span> <span class="PreProc">return</span> <span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> <span id="L59" class="LineNr"> 59 </span> <span class="muComment"># render ints by default for now</span> -<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> val-num/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> val, number-data -<span id="L61" class="LineNr"> 61 </span> <a href='value.mu.html#L66'>render-number</a> <a href='../../405screen.mu.html#L9'>screen</a>, *val-num, max-width +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> val-num/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> val, number-data +<span id="L61" class="LineNr"> 61 </span> <a href='value.mu.html#L66'>render-number</a> <a href='../405screen.mu.html#L9'>screen</a>, *val-num, top-level? <span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span> <span id="L63" class="LineNr"> 63 </span> <span id="L64" class="LineNr"> 64 </span><span class="muComment"># synaesthesia</span> <span id="L65" class="LineNr"> 65 </span><span class="muComment"># TODO: right-justify</span> -<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L66'>render-number</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), val: float, max-width: int <span class="Delimiter">{</span> -<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># if max-width is 0, we're inside an array. No coloring.</span> -<span id="L68" class="LineNr"> 68 </span> compare max-width, <span class="Constant">0</span> +<span id="L66" class="LineNr"> 66 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L66'>render-number</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), val: float, top-level?: boolean <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <span class="muComment"># if we're inside an array, don't color</span> +<span id="L68" class="LineNr"> 68 </span> compare top-level?, <span class="Constant">0</span> <span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> <span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break-if-!=</span> -<span id="L71" class="LineNr"> 71 </span> <a href='../../412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='../../405screen.mu.html#L9'>screen</a>, val, <span class="Constant">3</span> +<span id="L71" class="LineNr"> 71 </span> <a href='../412print-float-decimal.mu.html#L151'>print-float-decimal-approximate</a> <a href='../405screen.mu.html#L9'>screen</a>, val, <span class="Constant">3</span> <span id="L72" class="LineNr"> 72 </span> <span class="PreProc">return</span> <span id="L73" class="LineNr"> 73 </span> <span class="Delimiter">}</span> -<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> val-int/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> convert val -<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> bg/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L159'>hash-color</a> val-int -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> fg/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">7</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> val-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert val +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> bg/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='value.mu.html#L159'>hash-color</a> val-int +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> fg/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">7</span> <span id="L77" class="LineNr"> 77 </span> <span class="Delimiter">{</span> <span id="L78" class="LineNr"> 78 </span> compare bg, <span class="Constant">2</span> <span id="L79" class="LineNr"> 79 </span> <span class="PreProc">break-if-!=</span> -<span id="L80" class="LineNr"> 80 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L80" class="LineNr"> 80 </span> fg <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> <span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">{</span> <span id="L83" class="LineNr"> 83 </span> compare bg, <span class="Constant">3</span> <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">break-if-!=</span> -<span id="L85" class="LineNr"> 85 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L85" class="LineNr"> 85 </span> fg <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">}</span> <span id="L87" class="LineNr"> 87 </span> <span class="Delimiter">{</span> <span id="L88" class="LineNr"> 88 </span> compare bg, <span class="Constant">6</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-!=</span> -<span id="L90" class="LineNr"> 90 </span> fg <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L90" class="LineNr"> 90 </span> fg <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L91" class="LineNr"> 91 </span> <span class="Delimiter">}</span> -<span id="L92" class="LineNr"> 92 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, fg, bg -<span id="L93" class="LineNr"> 93 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> -<span id="L94" class="LineNr"> 94 </span> <a href='../../412print-float-decimal.mu.html#L159'>print-float-decimal-approximate</a> <a href='../../405screen.mu.html#L9'>screen</a>, val, <span class="Constant">3</span> -<span id="L95" class="LineNr"> 95 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L92" class="LineNr"> 92 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, fg, bg +<span id="L93" class="LineNr"> 93 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space +<span id="L94" class="LineNr"> 94 </span> <a href='../412print-float-decimal.mu.html#L151'>print-float-decimal-approximate</a> <a href='../405screen.mu.html#L9'>screen</a>, val, <span class="Constant">3</span> +<span id="L95" class="LineNr"> 95 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x20</span>/space <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> -<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L98'>render-array-at</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int, _a: (addr array <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> -<span id="L99" class="LineNr"> 99 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xf2</span>, <span class="Constant">7</span> +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L98'>render-array-at</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int, _a: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0xf2</span>, <span class="Constant">7</span> <span id="L100" class="LineNr">100 </span> <span class="muComment"># don't surround in spaces</span> -<span id="L101" class="LineNr">101 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5b</span> <span class="muComment"># '['</span> +<span id="L101" class="LineNr">101 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5b</span>/[ <span id="L102" class="LineNr">102 </span> increment col -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _a -<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> <a href='surface.mu.html#L207'>max</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length a -<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _a +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> <a href='surface.mu.html#L207'>max</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length a +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L106" class="LineNr">106 </span> <span class="Delimiter">{</span> <span id="L107" class="LineNr">107 </span> compare i, <a href='surface.mu.html#L207'>max</a> <span id="L108" class="LineNr">108 </span> <span class="PreProc">break-if->=</span> <span id="L109" class="LineNr">109 </span> <span class="Delimiter">{</span> <span id="L110" class="LineNr">110 </span> compare i, <span class="Constant">0</span> <span id="L111" class="LineNr">111 </span> <span class="PreProc">break-if-=</span> -<span id="L112" class="LineNr">112 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L112" class="LineNr">112 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> <span id="L113" class="LineNr">113 </span> <span class="Delimiter">}</span> -<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> off/<span class="Constant">ecx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset a, i -<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index a, off -<span id="L116" class="LineNr">116 </span> <a href='value.mu.html#L1'>render-value-at</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col, x, <span class="Constant">0</span> +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> off/<span class="Constant">ecx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset a, i +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index a, off +<span id="L116" class="LineNr">116 </span> <a href='value.mu.html#L1'>render-value-at</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, x, <span class="Constant">0</span> <span id="L117" class="LineNr">117 </span> <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> w/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L218'>value-width</a> x, <span class="Constant">0</span> +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> w/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='value.mu.html#L218'>value-width</a> x, <span class="Constant">0</span> <span id="L119" class="LineNr">119 </span> add-to col, w <span id="L120" class="LineNr">120 </span> increment col <span id="L121" class="LineNr">121 </span> <span class="Delimiter">}</span> -<span id="L122" class="LineNr">122 </span> i <span class="SpecialChar"><-</span> increment +<span id="L122" class="LineNr">122 </span> i <span class="Special"><-</span> increment <span id="L123" class="LineNr">123 </span> <span class="PreProc">loop</span> <span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> -<span id="L125" class="LineNr">125 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5d</span> <span class="muComment"># ']'</span> +<span id="L125" class="LineNr">125 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x5d</span>/] <span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> <span id="L127" class="LineNr">127 </span> -<span id="L128" class="LineNr">128 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L128'>render-screen</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), row: int, col: int, _target-screen: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> -<span id="L129" class="LineNr">129 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L130" class="LineNr">130 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> target-screen/<span class="Constant">esi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _target-screen -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> ncols-a/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-screen, num-cols -<span id="L133" class="LineNr">133 </span> <a href='value.mu.html#L192'>print-upper-border</a> <a href='../../405screen.mu.html#L9'>screen</a>, *ncols-a -<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> r/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> -<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> nrows-a/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target-screen, num-rows +<span id="L128" class="LineNr">128 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L128'>render-screen</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), row: int, col: int, _target-screen: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L129" class="LineNr">129 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L130" class="LineNr">130 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> target-screen/<span class="Constant">esi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _target-screen +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> ncols-a/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-screen, num-cols +<span id="L133" class="LineNr">133 </span> <a href='value.mu.html#L192'>print-upper-border</a> <a href='../405screen.mu.html#L9'>screen</a>, *ncols-a +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> r/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> nrows-a/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target-screen, num-rows <span id="L136" class="LineNr">136 </span> <span class="Delimiter">{</span> <span id="L137" class="LineNr">137 </span> compare r, *nrows-a <span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-></span> <span id="L139" class="LineNr">139 </span> increment row <span class="muComment"># mutate arg</span> -<span id="L140" class="LineNr">140 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L141" class="LineNr">141 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> c/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">1</span> +<span id="L140" class="LineNr">140 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L141" class="LineNr">141 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> c/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">1</span> <span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> <span id="L144" class="LineNr">144 </span> compare c, *ncols-a <span id="L145" class="LineNr">145 </span> <span class="PreProc">break-if-></span> -<span id="L146" class="LineNr">146 </span> <a href='value.mu.html#L166'>print-screen-cell-of-fake-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, target-screen, r, c -<span id="L147" class="LineNr">147 </span> c <span class="SpecialChar"><-</span> increment +<span id="L146" class="LineNr">146 </span> <a href='value.mu.html#L166'>print-screen-cell-of-fake-screen</a> <a href='../405screen.mu.html#L9'>screen</a>, target-screen, r, c +<span id="L147" class="LineNr">147 </span> c <span class="Special"><-</span> increment <span id="L148" class="LineNr">148 </span> <span class="PreProc">loop</span> <span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> -<span id="L150" class="LineNr">150 </span> <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> -<span id="L151" class="LineNr">151 </span> r <span class="SpecialChar"><-</span> increment +<span id="L150" class="LineNr">150 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L151" class="LineNr">151 </span> r <span class="Special"><-</span> increment <span id="L152" class="LineNr">152 </span> <span class="PreProc">loop</span> <span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> <span id="L154" class="LineNr">154 </span> increment row <span class="muComment"># mutate arg</span> -<span id="L155" class="LineNr">155 </span> <a href='../../405screen.mu.html#L109'>move-cursor</a> <a href='../../405screen.mu.html#L9'>screen</a>, row, col -<span id="L156" class="LineNr">156 </span> <a href='value.mu.html#L205'>print-lower-border</a> <a href='../../405screen.mu.html#L9'>screen</a>, *ncols-a +<span id="L155" class="LineNr">155 </span> <a href='../405screen.mu.html#L109'>move-cursor</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col +<span id="L156" class="LineNr">156 </span> <a href='value.mu.html#L205'>print-lower-border</a> <a href='../405screen.mu.html#L9'>screen</a>, *ncols-a <span id="L157" class="LineNr">157 </span><span class="Delimiter">}</span> <span id="L158" class="LineNr">158 </span> <span id="L159" class="LineNr">159 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L159'>hash-color</a></span> val: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> quotient/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L162" class="LineNr">162 </span> quotient, remainder <span class="SpecialChar"><-</span> <a href='../../314divide.subx.html#L3'>integer-divide</a> val, <span class="Constant">7</span> <span class="muComment"># assumes that 7 is always the background color</span> +<span id="L160" class="LineNr">160 </span> <span class="PreProc">var</span> quotient/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> remainder/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L162" class="LineNr">162 </span> quotient, remainder <span class="Special"><-</span> <a href='../314divide.subx.html#L3'>integer-divide</a> val, <span class="Constant">7</span> <span class="muComment"># assumes that 7 is always the background color</span> <span id="L163" class="LineNr">163 </span> <span class="PreProc">return</span> remainder <span id="L164" class="LineNr">164 </span><span class="Delimiter">}</span> <span id="L165" class="LineNr">165 </span> -<span id="L166" class="LineNr">166 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L166'>print-screen-cell-of-fake-screen</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _target: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _row: int, _col: int <span class="Delimiter">{</span> -<span id="L167" class="LineNr">167 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf6</span> -<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> target/<span class="Constant">esi</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _target -<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy _row -<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _col +<span id="L166" class="LineNr">166 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L166'>print-screen-cell-of-fake-screen</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _target: (addr <a href='../405screen.mu.html#L9'>screen</a>), _row: int, _col: int <span class="Delimiter">{</span> +<span id="L167" class="LineNr">167 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf6</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> target/<span class="Constant">esi</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _target +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> row/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _row +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> col/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _col <span id="L171" class="LineNr">171 </span> <span class="muComment"># if cursor is at screen-cell, add some fancy</span> <span id="L172" class="LineNr">172 </span> <span class="Delimiter">{</span> -<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-row +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> cursor-row/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-row <span id="L174" class="LineNr">174 </span> compare *cursor-row, row <span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if-!=</span> -<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> target, cursor-col +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> cursor-col/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> target, cursor-col <span id="L177" class="LineNr">177 </span> compare *cursor-col, col <span id="L178" class="LineNr">178 </span> <span class="PreProc">break-if-!=</span> -<span id="L179" class="LineNr">179 </span> <a href='../../405screen.mu.html#L579'>start-blinking</a> <a href='../../405screen.mu.html#L9'>screen</a> -<span id="L180" class="LineNr">180 </span> <a href='../../405screen.mu.html#L519'>start-color</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span> +<span id="L179" class="LineNr">179 </span> <a href='../405screen.mu.html#L583'>start-blinking</a> <a href='../405screen.mu.html#L9'>screen</a> +<span id="L180" class="LineNr">180 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">1</span> <span id="L181" class="LineNr">181 </span> <span class="Delimiter">}</span> -<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> <a href='../../405screen.mu.html#L304'>screen-grapheme-at</a> target, row, col +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../405screen.mu.html#L308'>screen-grapheme-at</a> target, row, col <span id="L183" class="LineNr">183 </span> <span class="Delimiter">{</span> <span id="L184" class="LineNr">184 </span> compare g, <span class="Constant">0</span> <span id="L185" class="LineNr">185 </span> <span class="PreProc">break-if-!=</span> -<span id="L186" class="LineNr">186 </span> g <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> <span class="muComment"># space</span> +<span id="L186" class="LineNr">186 </span> g <span class="Special"><-</span> copy <span class="Constant">0x20</span>/space <span id="L187" class="LineNr">187 </span> <span class="Delimiter">}</span> -<span id="L188" class="LineNr">188 </span> <a href='../../405screen.mu.html#L210'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, g -<span id="L189" class="LineNr">189 </span> <a href='../../405screen.mu.html#L502'>reset-formatting</a> <a href='../../405screen.mu.html#L9'>screen</a> +<span id="L188" class="LineNr">188 </span> <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, g +<span id="L189" class="LineNr">189 </span> <a href='../405screen.mu.html#L506'>reset-formatting</a> <a href='../405screen.mu.html#L9'>screen</a> <span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> <span id="L191" class="LineNr">191 </span> -<span id="L192" class="LineNr">192 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L192'>print-upper-border</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), width: int <span class="Delimiter">{</span> -<span id="L193" class="LineNr">193 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x250c</span> <span class="muComment"># top-left corner</span> -<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L192" class="LineNr">192 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L192'>print-upper-border</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), width: int <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x250c</span>/top-left-corner +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L195" class="LineNr">195 </span> <span class="Delimiter">{</span> <span id="L196" class="LineNr">196 </span> compare i, width <span id="L197" class="LineNr">197 </span> <span class="PreProc">break-if->=</span> -<span id="L198" class="LineNr">198 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2500</span> <span class="muComment"># horizontal line</span> -<span id="L199" class="LineNr">199 </span> i <span class="SpecialChar"><-</span> increment +<span id="L198" class="LineNr">198 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2500</span>/horizontal-line +<span id="L199" class="LineNr">199 </span> i <span class="Special"><-</span> increment <span id="L200" class="LineNr">200 </span> <span class="PreProc">loop</span> <span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> -<span id="L202" class="LineNr">202 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2510</span> <span class="muComment"># top-right corner</span> +<span id="L202" class="LineNr">202 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2510</span>/top-right-corner <span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> <span id="L204" class="LineNr">204 </span> -<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L205'>print-lower-border</a></span> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), width: int <span class="Delimiter">{</span> -<span id="L206" class="LineNr">206 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2514</span> <span class="muComment"># bottom-left corner</span> -<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L205'>print-lower-border</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), width: int <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2514</span>/bottom-left-corner +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L208" class="LineNr">208 </span> <span class="Delimiter">{</span> <span id="L209" class="LineNr">209 </span> compare i, width <span id="L210" class="LineNr">210 </span> <span class="PreProc">break-if->=</span> -<span id="L211" class="LineNr">211 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2500</span> <span class="muComment"># horizontal line</span> -<span id="L212" class="LineNr">212 </span> i <span class="SpecialChar"><-</span> increment +<span id="L211" class="LineNr">211 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2500</span>/horizontal-line +<span id="L212" class="LineNr">212 </span> i <span class="Special"><-</span> increment <span id="L213" class="LineNr">213 </span> <span class="PreProc">loop</span> <span id="L214" class="LineNr">214 </span> <span class="Delimiter">}</span> -<span id="L215" class="LineNr">215 </span> <a href='../../405screen.mu.html#L431'>print-code-point</a> <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2518</span> <span class="muComment"># bottom-right corner</span> +<span id="L215" class="LineNr">215 </span> <a href='../405screen.mu.html#L435'>print-code-point</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0x2518</span>/bottom-right-corner <span id="L216" class="LineNr">216 </span><span class="Delimiter">}</span> <span id="L217" class="LineNr">217 </span> -<span id="L218" class="LineNr">218 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L218'>value-width</a></span> _v: (addr <a href='data.mu.html#L37'>value</a>), top-level: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _v -<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, <span class="PreProc">type</span> +<span id="L218" class="LineNr">218 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L218'>value-width</a></span> _v: (addr <a href='data.mu.html#L49'>value</a>), top-level: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _v +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, <span class="PreProc">type</span> <span id="L221" class="LineNr">221 </span> <span class="Delimiter">{</span> -<span id="L222" class="LineNr">222 </span> compare *<span class="PreProc">type</span>, <span class="Constant">0</span> <span class="muComment"># int</span> +<span id="L222" class="LineNr">222 </span> compare *<span class="PreProc">type</span>, <span class="Constant">0</span>/int <span id="L223" class="LineNr">223 </span> <span class="PreProc">break-if-!=</span> -<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> v-num/<span class="Constant">edx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, number-data -<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='../../412print-float-decimal.mu.html#L511'>float-size</a> *v-num, <span class="Constant">3</span> -<span id="L226" class="LineNr">226 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> v-num/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, number-data +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../412print-float-decimal.mu.html#L510'>float-size</a> *v-num, <span class="Constant">3</span> +<span id="L226" class="LineNr">226 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L227" class="LineNr">227 </span> <span class="Delimiter">}</span> <span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> -<span id="L229" class="LineNr">229 </span> compare *<span class="PreProc">type</span>, <span class="Constant">1</span> <span class="muComment"># string</span> +<span id="L229" class="LineNr">229 </span> compare *<span class="PreProc">type</span>, <span class="Constant">1</span>/string <span id="L230" class="LineNr">230 </span> <span class="PreProc">break-if-!=</span> -<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> s-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, text-data -<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *s-ah +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> s-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, text-data +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> s/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *s-ah <span id="L233" class="LineNr">233 </span> compare s, <span class="Constant">0</span> <span id="L234" class="LineNr">234 </span> <span class="PreProc">break-if-=</span> -<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> length s -<span id="L236" class="LineNr">236 </span> compare <a href='data.mu.html#L70'>result</a>, <span class="Constant">0xd</span> <span class="muComment"># max string size</span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> length s +<span id="L236" class="LineNr">236 </span> compare <a href='data.mu.html#L82'>result</a>, <span class="Constant">0xd</span>/max-string-size <span id="L237" class="LineNr">237 </span> <span class="Delimiter">{</span> <span id="L238" class="LineNr">238 </span> <span class="PreProc">break-if-<=</span> -<span id="L239" class="LineNr">239 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> copy <span class="Constant">0xd</span> +<span id="L239" class="LineNr">239 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> copy <span class="Constant">0xd</span> <span id="L240" class="LineNr">240 </span> <span class="Delimiter">}</span> <span id="L241" class="LineNr">241 </span> <span class="muComment"># if it's a nested string, include space for quotes</span> <span id="L242" class="LineNr">242 </span> <span class="muComment"># we don't do this for the top-level, where the quotes will overflow</span> <span id="L243" class="LineNr">243 </span> <span class="muComment"># into surrounding padding.</span> -<span id="L244" class="LineNr">244 </span> compare top-level, <span class="Constant">0</span> <span class="muComment"># false</span> +<span id="L244" class="LineNr">244 </span> compare top-level, <span class="Constant">0</span>/false <span id="L245" class="LineNr">245 </span> <span class="Delimiter">{</span> <span id="L246" class="LineNr">246 </span> <span class="PreProc">break-if-!=</span> -<span id="L247" class="LineNr">247 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add <span class="Constant">2</span> +<span id="L247" class="LineNr">247 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add <span class="Constant">2</span> <span id="L248" class="LineNr">248 </span> <span class="Delimiter">}</span> -<span id="L249" class="LineNr">249 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L250" class="LineNr">250 </span> <span class="Delimiter">}</span> <span id="L251" class="LineNr">251 </span> <span class="Delimiter">{</span> -<span id="L252" class="LineNr">252 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span> <span class="muComment"># array</span> +<span id="L252" class="LineNr">252 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span>/array <span id="L253" class="LineNr">253 </span> <span class="PreProc">break-if-!=</span> -<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> a-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, array-data -<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *a-ah +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> a-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, array-data +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *a-ah <span id="L256" class="LineNr">256 </span> compare a, <span class="Constant">0</span> <span id="L257" class="LineNr">257 </span> <span class="PreProc">break-if-=</span> -<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L287'>array-width</a> a -<span id="L259" class="LineNr">259 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L258" class="LineNr">258 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='value.mu.html#L287'>array-width</a> a +<span id="L259" class="LineNr">259 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L260" class="LineNr">260 </span> <span class="Delimiter">}</span> <span id="L261" class="LineNr">261 </span> <span class="Delimiter">{</span> -<span id="L262" class="LineNr">262 </span> compare *<span class="PreProc">type</span>, <span class="Constant">3</span> <span class="muComment"># file handle</span> +<span id="L262" class="LineNr">262 </span> compare *<span class="PreProc">type</span>, <span class="Constant">3</span>/file <span id="L263" class="LineNr">263 </span> <span class="PreProc">break-if-!=</span> -<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, file-data -<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *f-ah +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, file-data +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> f/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *f-ah <span id="L266" class="LineNr">266 </span> compare f, <span class="Constant">0</span> <span id="L267" class="LineNr">267 </span> <span class="PreProc">break-if-=</span> <span id="L268" class="LineNr">268 </span> <span class="muComment"># TODO: visualizing file handles</span> <span id="L269" class="LineNr">269 </span> <span class="PreProc">return</span> <span class="Constant">4</span> <span id="L270" class="LineNr">270 </span> <span class="Delimiter">}</span> <span id="L271" class="LineNr">271 </span> <span class="Delimiter">{</span> -<span id="L272" class="LineNr">272 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L272" class="LineNr">272 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L273" class="LineNr">273 </span> <span class="PreProc">break-if-!=</span> -<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, screen-data -<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L276" class="LineNr">276 </span> compare <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, screen-data +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L276" class="LineNr">276 </span> compare <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L277" class="LineNr">277 </span> <span class="PreProc">break-if-=</span> -<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='../../405screen.mu.html#L9'>screen</a>, num-cols -<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *ncols -<span id="L280" class="LineNr">280 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># left/right margins</span> +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='../405screen.mu.html#L9'>screen</a>, num-cols +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *ncols +<span id="L280" class="LineNr">280 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add <span class="Constant">2</span> <span class="muComment"># left/right margins</span> <span id="L281" class="LineNr">281 </span> <span class="PreProc">return</span> *ncols <span id="L282" class="LineNr">282 </span> <span class="Delimiter">}</span> <span id="L283" class="LineNr">283 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L284" class="LineNr">284 </span><span class="Delimiter">}</span> <span id="L285" class="LineNr">285 </span> <span id="L286" class="LineNr">286 </span><span class="muComment"># keep sync'd with render-array-at</span> -<span id="L287" class="LineNr">287 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L287'>array-width</a></span> _a: (addr array <a href='data.mu.html#L37'>value</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _a -<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> <a href='surface.mu.html#L207'>max</a>/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length a -<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">edi</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L287" class="LineNr">287 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L287'>array-width</a></span> _a: (addr array <a href='data.mu.html#L49'>value</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L288" class="LineNr">288 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _a +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> <a href='surface.mu.html#L207'>max</a>/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length a +<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L292" class="LineNr">292 </span> <span class="Delimiter">{</span> <span id="L293" class="LineNr">293 </span> compare i, <a href='surface.mu.html#L207'>max</a> <span id="L294" class="LineNr">294 </span> <span class="PreProc">break-if->=</span> <span id="L295" class="LineNr">295 </span> <span class="Delimiter">{</span> <span id="L296" class="LineNr">296 </span> compare i, <span class="Constant">0</span> <span id="L297" class="LineNr">297 </span> <span class="PreProc">break-if-=</span> -<span id="L298" class="LineNr">298 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> increment <span class="muComment"># for space</span> +<span id="L298" class="LineNr">298 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> increment <span class="muComment"># for space</span> <span id="L299" class="LineNr">299 </span> <span class="Delimiter">}</span> -<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> off/<span class="Constant">ecx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset a, i -<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index a, off +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> off/<span class="Constant">ecx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset a, i +<span id="L301" class="LineNr">301 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index a, off <span id="L302" class="LineNr">302 </span> <span class="Delimiter">{</span> -<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> w/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='value.mu.html#L218'>value-width</a> x, <span class="Constant">0</span> -<span id="L304" class="LineNr">304 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add w +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> w/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='value.mu.html#L218'>value-width</a> x, <span class="Constant">0</span> +<span id="L304" class="LineNr">304 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add w <span id="L305" class="LineNr">305 </span> <span class="Delimiter">}</span> -<span id="L306" class="LineNr">306 </span> i <span class="SpecialChar"><-</span> increment +<span id="L306" class="LineNr">306 </span> i <span class="Special"><-</span> increment <span id="L307" class="LineNr">307 </span> <span class="PreProc">loop</span> <span id="L308" class="LineNr">308 </span> <span class="Delimiter">}</span> <span id="L309" class="LineNr">309 </span> <span class="muComment"># we won't add 2 for surrounding brackets since we don't surround arrays in</span> <span id="L310" class="LineNr">310 </span> <span class="muComment"># spaces like other value types</span> -<span id="L311" class="LineNr">311 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L311" class="LineNr">311 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L312" class="LineNr">312 </span><span class="Delimiter">}</span> <span id="L313" class="LineNr">313 </span> -<span id="L314" class="LineNr">314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L314'>value-height</a></span> _v: (addr <a href='data.mu.html#L37'>value</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _v -<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, <span class="PreProc">type</span> +<span id="L314" class="LineNr">314 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L314'>value-height</a></span> _v: (addr <a href='data.mu.html#L49'>value</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">var</span> v/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _v +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, <span class="PreProc">type</span> <span id="L317" class="LineNr">317 </span> <span class="Delimiter">{</span> -<span id="L318" class="LineNr">318 </span> compare *<span class="PreProc">type</span>, <span class="Constant">3</span> <span class="muComment"># file handle</span> +<span id="L318" class="LineNr">318 </span> compare *<span class="PreProc">type</span>, <span class="Constant">3</span>/file <span id="L319" class="LineNr">319 </span> <span class="PreProc">break-if-!=</span> <span id="L320" class="LineNr">320 </span> <span class="muComment"># TODO: visualizing file handles</span> <span id="L321" class="LineNr">321 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span id="L322" class="LineNr">322 </span> <span class="Delimiter">}</span> <span id="L323" class="LineNr">323 </span> <span class="Delimiter">{</span> -<span id="L324" class="LineNr">324 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L324" class="LineNr">324 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L325" class="LineNr">325 </span> <span class="PreProc">break-if-!=</span> -<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> v, screen-data -<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> <a href='../../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *screen-ah -<span id="L328" class="LineNr">328 </span> compare <a href='../../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> +<span id="L326" class="LineNr">326 </span> <span class="PreProc">var</span> screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> v, screen-data +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> <a href='../405screen.mu.html#L9'>screen</a>/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *screen-ah +<span id="L328" class="LineNr">328 </span> compare <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span> <span id="L329" class="LineNr">329 </span> <span class="PreProc">break-if-=</span> -<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> <a href='../../405screen.mu.html#L9'>screen</a>, num-rows -<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> <a href='data.mu.html#L70'>result</a>/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *nrows -<span id="L332" class="LineNr">332 </span> <a href='data.mu.html#L70'>result</a> <span class="SpecialChar"><-</span> add <span class="Constant">2</span> <span class="muComment"># top and bottom border</span> -<span id="L333" class="LineNr">333 </span> <span class="PreProc">return</span> <a href='data.mu.html#L70'>result</a> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> nrows/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='../405screen.mu.html#L9'>screen</a>, num-rows +<span id="L331" class="LineNr">331 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *nrows +<span id="L332" class="LineNr">332 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add <span class="Constant">2</span> <span class="muComment"># top and bottom border</span> +<span id="L333" class="LineNr">333 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> <span id="L334" class="LineNr">334 </span> <span class="Delimiter">}</span> <span id="L335" class="LineNr">335 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span id="L336" class="LineNr">336 </span><span class="Delimiter">}</span> <span id="L337" class="LineNr">337 </span> -<span id="L338" class="LineNr">338 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L338'>deep-copy-value</a></span> _src: (addr <a href='data.mu.html#L37'>value</a>), _dest: (addr <a href='data.mu.html#L37'>value</a>) <span class="Delimiter">{</span> +<span id="L338" class="LineNr">338 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='value.mu.html#L338'>deep-copy-value</a></span> _src: (addr <a href='data.mu.html#L49'>value</a>), _dest: (addr <a href='data.mu.html#L49'>value</a>) <span class="Delimiter">{</span> <span id="L339" class="LineNr">339 </span><span class="CommentedCode">#? print-string 0, "deep-copy-value\n"</span> -<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _dest -<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ebx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, <span class="PreProc">type</span> -<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, <span class="PreProc">type</span> +<span id="L340" class="LineNr">340 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _src +<span id="L341" class="LineNr">341 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _dest +<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, <span class="PreProc">type</span> +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, <span class="PreProc">type</span> <span id="L344" class="LineNr">344 </span> copy-object <span class="PreProc">type</span>, y <span id="L345" class="LineNr">345 </span> compare *<span class="PreProc">type</span>, <span class="Constant">0</span> <span class="muComment"># int</span> <span id="L346" class="LineNr">346 </span> <span class="Delimiter">{</span> <span id="L347" class="LineNr">347 </span> <span class="PreProc">break-if-!=</span> <span id="L348" class="LineNr">348 </span><span class="CommentedCode">#? print-string 0, "int value\n"</span> -<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> src-n/<span class="Constant">eax</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, number-data -<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> dest-n/<span class="Constant">ecx</span>: (addr float) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, number-data +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> src-n/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, number-data +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> dest-n/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, number-data <span id="L351" class="LineNr">351 </span> copy-object src-n, dest-n <span id="L352" class="LineNr">352 </span> <span class="PreProc">return</span> <span id="L353" class="LineNr">353 </span> <span class="Delimiter">}</span> -<span id="L354" class="LineNr">354 </span> compare *<span class="PreProc">type</span>, <span class="Constant">1</span> <span class="muComment"># string</span> +<span id="L354" class="LineNr">354 </span> compare *<span class="PreProc">type</span>, <span class="Constant">1</span>/string <span id="L355" class="LineNr">355 </span> <span class="Delimiter">{</span> <span id="L356" class="LineNr">356 </span> <span class="PreProc">break-if-!=</span> <span id="L357" class="LineNr">357 </span><span class="CommentedCode">#? print-string 0, "string value\n"</span> -<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, text-data -<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, text-data -<span id="L361" class="LineNr">361 </span> <a href='../../312copy.subx.html#L3'>copy-array-object</a> src, dest-ah +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, text-data +<span id="L359" class="LineNr">359 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L360" class="LineNr">360 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, text-data +<span id="L361" class="LineNr">361 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> src, dest-ah <span id="L362" class="LineNr">362 </span> <span class="PreProc">return</span> <span id="L363" class="LineNr">363 </span> <span class="Delimiter">}</span> -<span id="L364" class="LineNr">364 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span> <span class="muComment"># array</span> +<span id="L364" class="LineNr">364 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span>/array <span id="L365" class="LineNr">365 </span> <span class="Delimiter">{</span> <span id="L366" class="LineNr">366 </span> <span class="PreProc">break-if-!=</span> <span id="L367" class="LineNr">367 </span><span class="CommentedCode">#? print-string 0, "array value\n"</span> -<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, array-data -<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> _src/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah -<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _src -<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> length src -<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, array-data +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, array-data +<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> _src/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _src +<span id="L371" class="LineNr">371 </span> <span class="PreProc">var</span> n/<span class="Constant">ecx</span>: int <span class="Special"><-</span> length src +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edx</span>: (addr handle array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, array-data <span id="L373" class="LineNr">373 </span> populate dest-ah, n -<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah -<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> copy _dest -<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> +<span id="L374" class="LineNr">374 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr array <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> copy _dest +<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> <span id="L377" class="LineNr">377 </span> <span class="Delimiter">{</span> <span id="L378" class="LineNr">378 </span> compare i, n <span id="L379" class="LineNr">379 </span> <span class="PreProc">break-if->=</span> <span id="L380" class="LineNr">380 </span> <span class="Delimiter">{</span> -<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> compute-offset src, i -<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> src-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index src, offset -<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> dest-element/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L37'>value</a>) <span class="SpecialChar"><-</span> index dest, offset +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> offset/<span class="Constant">edx</span>: (offset <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> compute-offset src, i +<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> src-element/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index src, offset +<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> dest-element/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L49'>value</a>) <span class="Special"><-</span> index dest, offset <span id="L384" class="LineNr">384 </span> <a href='value.mu.html#L338'>deep-copy-value</a> src-element, dest-element <span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> -<span id="L386" class="LineNr">386 </span> i <span class="SpecialChar"><-</span> increment +<span id="L386" class="LineNr">386 </span> i <span class="Special"><-</span> increment <span id="L387" class="LineNr">387 </span> <span class="PreProc">loop</span> <span id="L388" class="LineNr">388 </span> <span class="Delimiter">}</span> -<span id="L389" class="LineNr">389 </span> <a href='../../312copy.subx.html#L3'>copy-array-object</a> src, dest-ah +<span id="L389" class="LineNr">389 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> src, dest-ah <span id="L390" class="LineNr">390 </span> <span class="PreProc">return</span> <span id="L391" class="LineNr">391 </span> <span class="Delimiter">}</span> -<span id="L392" class="LineNr">392 </span> compare *<span class="PreProc">type</span>, <span class="Constant">3</span> <span class="muComment"># file</span> +<span id="L392" class="LineNr">392 </span> compare *<span class="PreProc">type</span>, <span class="Constant">3</span>/file <span id="L393" class="LineNr">393 </span> <span class="Delimiter">{</span> <span id="L394" class="LineNr">394 </span> <span class="PreProc">break-if-!=</span> <span id="L395" class="LineNr">395 </span><span class="CommentedCode">#? print-string 0, "file value\n"</span> -<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> src-filename-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, filename -<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> _src-filename/<span class="Constant">eax</span>: (addr array byte) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-filename-ah -<span id="L398" class="LineNr">398 </span> <span class="PreProc">var</span> src-filename/<span class="Constant">ecx</span>: (addr array byte) <span class="SpecialChar"><-</span> copy _src-filename -<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> dest-filename-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, filename -<span id="L400" class="LineNr">400 </span> <a href='../../312copy.subx.html#L3'>copy-array-object</a> src-filename, dest-filename-ah -<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> src-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, file-data -<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> src-file/<span class="Constant">eax</span>: (addr buffered-file) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-file-ah -<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> dest-file-ah/<span class="Constant">edx</span>: (addr handle buffered-file) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, file-data -<span id="L404" class="LineNr">404 </span> <a href='../../312copy.subx.html#L17'>copy-file</a> src-file, dest-file-ah, src-filename +<span id="L396" class="LineNr">396 </span> <span class="PreProc">var</span> src-filename-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, filename +<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> _src-filename/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-filename-ah +<span id="L398" class="LineNr">398 </span> <span class="PreProc">var</span> src-filename/<span class="Constant">ecx</span>: (addr array byte) <span class="Special"><-</span> copy _src-filename +<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> dest-filename-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, filename +<span id="L400" class="LineNr">400 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> src-filename, dest-filename-ah +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> src-file-ah/<span class="Constant">eax</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, file-data +<span id="L402" class="LineNr">402 </span> <span class="PreProc">var</span> src-file/<span class="Constant">eax</span>: (addr buffered-file) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-file-ah +<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> dest-file-ah/<span class="Constant">edx</span>: (addr handle buffered-file) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, file-data +<span id="L404" class="LineNr">404 </span> <a href='../312copy.subx.html#L17'>copy-file</a> src-file, dest-file-ah, src-filename <span id="L405" class="LineNr">405 </span> <span class="PreProc">return</span> <span id="L406" class="LineNr">406 </span> <span class="Delimiter">}</span> -<span id="L407" class="LineNr">407 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span> <span class="muComment"># screen</span> +<span id="L407" class="LineNr">407 </span> compare *<span class="PreProc">type</span>, <span class="Constant">4</span>/screen <span id="L408" class="LineNr">408 </span> <span class="Delimiter">{</span> <span id="L409" class="LineNr">409 </span> <span class="PreProc">break-if-!=</span> <span id="L410" class="LineNr">410 </span><span class="CommentedCode">#? print-string 0, "screen value\n"</span> -<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> src-screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src, screen-data -<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> _src-screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-screen-ah -<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> src-screen/<span class="Constant">ecx</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> copy _src-screen -<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> dest-screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest, screen-data -<span id="L415" class="LineNr">415 </span> <a href='../../120allocate.subx.html#L66'>allocate</a> dest-screen-ah -<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> dest-screen/<span class="Constant">eax</span>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-screen-ah +<span id="L411" class="LineNr">411 </span> <span class="PreProc">var</span> src-screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, screen-data +<span id="L412" class="LineNr">412 </span> <span class="PreProc">var</span> _src-screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-screen-ah +<span id="L413" class="LineNr">413 </span> <span class="PreProc">var</span> src-screen/<span class="Constant">ecx</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> copy _src-screen +<span id="L414" class="LineNr">414 </span> <span class="PreProc">var</span> dest-screen-ah/<span class="Constant">eax</span>: (addr handle <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest, screen-data +<span id="L415" class="LineNr">415 </span> <a href='../120allocate.subx.html#L66'>allocate</a> dest-screen-ah +<span id="L416" class="LineNr">416 </span> <span class="PreProc">var</span> dest-screen/<span class="Constant">eax</span>: (addr <a href='../405screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-screen-ah <span id="L417" class="LineNr">417 </span> copy-object src-screen, dest-screen -<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> dest-screen-data-ah/<span class="Constant">ebx</span>: (addr handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> dest-screen, data -<span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> src-screen-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../131table.subx.html#L26'>get</a> src-screen, data -<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> src-screen-data/<span class="Constant">eax</span>: (addr array <a href='../../405screen.mu.html#L20'>screen-cell</a>) <span class="SpecialChar"><-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *src-screen-data-ah -<span id="L421" class="LineNr">421 </span> <a href='../../312copy.subx.html#L3'>copy-array-object</a> src-screen-data, dest-screen-data-ah +<span id="L418" class="LineNr">418 </span> <span class="PreProc">var</span> dest-screen-data-ah/<span class="Constant">ebx</span>: (addr handle array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-screen, data +<span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> src-screen-data-ah/<span class="Constant">eax</span>: (addr handle array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-screen, data +<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> src-screen-data/<span class="Constant">eax</span>: (addr array <a href='../405screen.mu.html#L20'>screen-cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-screen-data-ah +<span id="L421" class="LineNr">421 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> src-screen-data, dest-screen-data-ah <span id="L422" class="LineNr">422 </span> <span class="PreProc">return</span> <span id="L423" class="LineNr">423 </span> <span class="Delimiter">}</span> <span id="L424" class="LineNr">424 </span><span class="Delimiter">}</span> diff --git a/html/linux/tile/word.mu.html b/html/linux/tile/word.mu.html new file mode 100644 index 00000000..fd8c7964 --- /dev/null +++ b/html/linux/tile/word.mu.html @@ -0,0 +1,636 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/tile/word.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Special { color: #ff6060; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/tile/word.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/word.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L1'>initialize-word</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L4" class="LineNr"> 4 </span> <a href='../120allocate.subx.html#L66'>allocate</a> data-ah +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L6" class="LineNr"> 6 </span> <a href='gap-buffer.mu.html#L6'>initialize-gap-buffer</a> data +<span id="L7" class="LineNr"> 7 </span><span class="Delimiter">}</span> +<span id="L8" class="LineNr"> 8 </span> +<span id="L9" class="LineNr"> 9 </span><span class="muComment">## some helpers for creating words. mostly for tests</span> +<span id="L10" class="LineNr"> 10 </span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L11'>initialize-word-with</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L14" class="LineNr"> 14 </span> <a href='../120allocate.subx.html#L66'>allocate</a> data-ah +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L16" class="LineNr"> 16 </span> <a href='gap-buffer.mu.html#L15'>initialize-gap-buffer-with</a> data, s +<span id="L17" class="LineNr"> 17 </span><span class="Delimiter">}</span> +<span id="L18" class="LineNr"> 18 </span> +<span id="L19" class="LineNr"> 19 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L19'>allocate-word-with</a></span> _out: (addr handle <a href='data.mu.html#L42'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _out +<span id="L21" class="LineNr"> 21 </span> <a href='../120allocate.subx.html#L66'>allocate</a> out +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *out +<span id="L23" class="LineNr"> 23 </span> <a href='word.mu.html#L11'>initialize-word-with</a> out-addr, s +<span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span> +<span id="L25" class="LineNr"> 25 </span> +<span id="L26" class="LineNr"> 26 </span><span class="muComment"># just for tests for now</span> +<span id="L27" class="LineNr"> 27 </span><span class="muComment"># TODO: handle existing next</span> +<span id="L28" class="LineNr"> 28 </span><span class="muComment"># one implication of handles: append must take a handle</span> +<span id="L29" class="LineNr"> 29 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L29'>append-word-with</a></span> self-h: (handle <a href='data.mu.html#L42'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> self-h +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, next +<span id="L32" class="LineNr"> 32 </span> <a href='word.mu.html#L19'>allocate-word-with</a> next-ah, s +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> next, prev +<span id="L35" class="LineNr"> 35 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> self-h, prev-ah +<span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> +<span id="L37" class="LineNr"> 37 </span> +<span id="L38" class="LineNr"> 38 </span><span class="muComment"># just for tests for now</span> +<span id="L39" class="LineNr"> 39 </span><span class="muComment"># TODO: handle existing prev</span> +<span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L40'>prepend-word-with</a></span> self-h: (handle <a href='data.mu.html#L42'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> self-h +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> prev-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, prev +<span id="L43" class="LineNr"> 43 </span> <a href='word.mu.html#L19'>allocate-word-with</a> prev-ah, s +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> prev/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *prev-ah +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> prev, next +<span id="L46" class="LineNr"> 46 </span> <a href='../120allocate.subx.html#L497'>copy-handle</a> self-h, next-ah +<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">}</span> +<span id="L48" class="LineNr"> 48 </span> +<span id="L49" class="LineNr"> 49 </span><span class="muComment">## real primitives</span> +<span id="L50" class="LineNr"> 50 </span> +<span id="L51" class="LineNr"> 51 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L51'>move-word-contents</a></span> _src-ah: (addr handle <a href='data.mu.html#L42'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _src-ah +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> _src/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _src +<span id="L58" class="LineNr"> 58 </span> <a href='word.mu.html#L185'>cursor-to-start</a> src +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, scalar-data +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> src-data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-data-ah +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> src-stack/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-data, right +<span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">{</span> +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> src-stack +<span id="L64" class="LineNr"> 64 </span> compare done?, <span class="Constant">0</span>/false +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">break-if-!=</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> src-stack +<span id="L67" class="LineNr"> 67 </span><span class="CommentedCode">#? print-grapheme 0, g</span> +<span id="L68" class="LineNr"> 68 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L69" class="LineNr"> 69 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> dest, g +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">loop</span> +<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">}</span> +<span id="L72" class="LineNr"> 72 </span><span class="Delimiter">}</span> +<span id="L73" class="LineNr"> 73 </span> +<span id="L74" class="LineNr"> 74 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L74'>copy-word-contents-before-cursor</a></span> _src-ah: (addr handle <a href='data.mu.html#L42'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> _dest/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _src-ah +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> src-data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src, scalar-data +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> src-data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-data-ah +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> src-stack/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-data, left +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> src-stack-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-stack, data +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> _src-stack-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-stack-data-ah +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> src-stack-data/<span class="Constant">edx</span>: (addr array grapheme) <span class="Special"><-</span> copy _src-stack-data +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-stack, <a href='../203stack.subx.html#L338'>top</a> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> +<span id="L89" class="LineNr"> 89 </span> compare i, *top-addr +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if->=</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index src-stack-data, i +<span id="L92" class="LineNr"> 92 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> dest, *g +<span id="L93" class="LineNr"> 93 </span> i <span class="Special"><-</span> increment +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> +<span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> +<span id="L97" class="LineNr"> 97 </span> +<span id="L98" class="LineNr"> 98 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L98'>word-equal?</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L236'>gap-buffer-equal?</a> data, s +<span id="L103" class="LineNr">103 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L104" class="LineNr">104 </span><span class="Delimiter">}</span> +<span id="L105" class="LineNr">105 </span> +<span id="L106" class="LineNr">106 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L106'>word-length</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L91'>gap-buffer-length</a> data +<span id="L111" class="LineNr">111 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> +<span id="L113" class="LineNr">113 </span> +<span id="L114" class="LineNr">114 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L114'>final-word</a></span> _in: (addr handle <a href='data.mu.html#L42'>word</a>), out: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> curr-h: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address curr-h +<span id="L117" class="LineNr">117 </span> copy-object _in, curr-ah +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> next/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L120" class="LineNr">120 </span> <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span> curr <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L122" class="LineNr">122 </span> next <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L123" class="LineNr">123 </span> curr <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next +<span id="L124" class="LineNr">124 </span> compare curr, <span class="Constant">0</span> +<span id="L125" class="LineNr">125 </span> <span class="PreProc">break-if-=</span> +<span id="L126" class="LineNr">126 </span> copy-object next, curr-ah +<span id="L127" class="LineNr">127 </span> <span class="PreProc">loop</span> +<span id="L128" class="LineNr">128 </span> <span class="Delimiter">}</span> +<span id="L129" class="LineNr">129 </span> copy-object curr-ah, out <span class="muComment"># modify 'out' right at the end, just in case it's same as 'in'</span> +<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L132'>first-grapheme</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L177'>first-grapheme-in-gap-buffer</a> data +<span id="L137" class="LineNr">137 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L138" class="LineNr">138 </span><span class="Delimiter">}</span> +<span id="L139" class="LineNr">139 </span> +<span id="L140" class="LineNr">140 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L140'>grapheme-before-cursor</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L143" class="LineNr">143 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L207'>grapheme-before-cursor-in-gap-buffer</a> data +<span id="L145" class="LineNr">145 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L146" class="LineNr">146 </span><span class="Delimiter">}</span> +<span id="L147" class="LineNr">147 </span> +<span id="L148" class="LineNr">148 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L148'>add-grapheme-to-word</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>), c: grapheme <span class="Delimiter">{</span> +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L151" class="LineNr">151 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L152" class="LineNr">152 </span> <a href='gap-buffer.mu.html#L103'>add-grapheme-at-gap</a> data, c +<span id="L153" class="LineNr">153 </span><span class="Delimiter">}</span> +<span id="L154" class="LineNr">154 </span> +<span id="L155" class="LineNr">155 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L155'>cursor-at-start?</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L125'>gap-at-start?</a> data +<span id="L160" class="LineNr">160 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L161" class="LineNr">161 </span><span class="Delimiter">}</span> +<span id="L162" class="LineNr">162 </span> +<span id="L163" class="LineNr">163 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L163'>cursor-at-end?</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L132'>gap-at-end?</a> data +<span id="L168" class="LineNr">168 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L169" class="LineNr">169 </span><span class="Delimiter">}</span> +<span id="L170" class="LineNr">170 </span> +<span id="L171" class="LineNr">171 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L171'>cursor-left</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L153'>gap-left</a> data +<span id="L176" class="LineNr">176 </span><span class="Delimiter">}</span> +<span id="L177" class="LineNr">177 </span> +<span id="L178" class="LineNr">178 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L178'>cursor-right</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L182" class="LineNr">182 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L139'>gap-right</a> data +<span id="L183" class="LineNr">183 </span><span class="Delimiter">}</span> +<span id="L184" class="LineNr">184 </span> +<span id="L185" class="LineNr">185 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L185'>cursor-to-start</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L189" class="LineNr">189 </span> <a href='gap-buffer.mu.html#L109'>gap-to-start</a> data +<span id="L190" class="LineNr">190 </span><span class="Delimiter">}</span> +<span id="L191" class="LineNr">191 </span> +<span id="L192" class="LineNr">192 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L192'>cursor-to-end</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L196" class="LineNr">196 </span> <a href='gap-buffer.mu.html#L117'>gap-to-end</a> data +<span id="L197" class="LineNr">197 </span><span class="Delimiter">}</span> +<span id="L198" class="LineNr">198 </span> +<span id="L199" class="LineNr">199 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L199'>cursor-index</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L203" class="LineNr">203 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L169'>gap-index</a> data +<span id="L204" class="LineNr">204 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L205" class="LineNr">205 </span><span class="Delimiter">}</span> +<span id="L206" class="LineNr">206 </span> +<span id="L207" class="LineNr">207 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L207'>delete-before-cursor</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L211" class="LineNr">211 </span> <a href='gap-buffer.mu.html#L223'>delete-before-gap</a> data +<span id="L212" class="LineNr">212 </span><span class="Delimiter">}</span> +<span id="L213" class="LineNr">213 </span> +<span id="L214" class="LineNr">214 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L214'>pop-after-cursor</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L229'>pop-after-gap</a> data +<span id="L219" class="LineNr">219 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L220" class="LineNr">220 </span><span class="Delimiter">}</span> +<span id="L221" class="LineNr">221 </span> +<span id="L222" class="LineNr">222 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L222'>delete-next</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L223" class="LineNr">223 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, next +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L226" class="LineNr">226 </span> compare next, <span class="Constant">0</span> +<span id="L227" class="LineNr">227 </span> <span class="PreProc">break-if-=</span> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> next-next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> next, next +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> next, prev +<span id="L230" class="LineNr">230 </span> copy-object next-next-ah, next-ah +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> new-next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-next-ah +<span id="L232" class="LineNr">232 </span> compare new-next, <span class="Constant">0</span> +<span id="L233" class="LineNr">233 </span> <span class="PreProc">break-if-=</span> +<span id="L234" class="LineNr">234 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-next, prev +<span id="L235" class="LineNr">235 </span> copy-object self-ah, dest +<span id="L236" class="LineNr">236 </span><span class="Delimiter">}</span> +<span id="L237" class="LineNr">237 </span> +<span id="L238" class="LineNr">238 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L238'>print-word</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L242" class="LineNr">242 </span> <a href='gap-buffer.mu.html#L83'>render-gap-buffer</a> <a href='../405screen.mu.html#L9'>screen</a>, data +<span id="L243" class="LineNr">243 </span><span class="Delimiter">}</span> +<span id="L244" class="LineNr">244 </span> +<span id="L245" class="LineNr">245 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L245'>print-words-in-reverse</a></span> <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>), _words-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> words-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _words-ah +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> words-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *words-ah +<span id="L248" class="LineNr">248 </span> compare words-a, <span class="Constant">0</span> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">break-if-=</span> +<span id="L250" class="LineNr">250 </span> <span class="muComment"># recurse</span> +<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> words-a, next +<span id="L252" class="LineNr">252 </span> <a href='word.mu.html#L245'>print-words-in-reverse</a> <a href='../405screen.mu.html#L9'>screen</a>, next-ah +<span id="L253" class="LineNr">253 </span> <span class="muComment"># print</span> +<span id="L254" class="LineNr">254 </span> <a href='word.mu.html#L238'>print-word</a> <a href='../405screen.mu.html#L9'>screen</a>, words-a +<span id="L255" class="LineNr">255 </span> <a href='../405screen.mu.html#L169'>print-string</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span> +<span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="muComment"># Gotcha with some word operations: ensure dest-ah isn't in the middle of some</span> +<span id="L259" class="LineNr">259 </span><span class="muComment"># existing chain of words. There are two pointers to patch, and you'll forget</span> +<span id="L260" class="LineNr">260 </span><span class="muComment"># to do the other one.</span> +<span id="L261" class="LineNr">261 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L261'>copy-words</a></span> _src-ah: (addr handle <a href='data.mu.html#L42'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _src-ah +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> src-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L264" class="LineNr">264 </span> compare src-a, <span class="Constant">0</span> +<span id="L265" class="LineNr">265 </span> <span class="PreProc">break-if-=</span> +<span id="L266" class="LineNr">266 </span> <span class="muComment"># copy</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L268" class="LineNr">268 </span> <a href='word.mu.html#L343'>copy-word</a> src-a, dest-ah +<span id="L269" class="LineNr">269 </span> <span class="muComment"># recurse</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> rest: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address rest +<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> next-src-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, next +<span id="L273" class="LineNr">273 </span> <a href='word.mu.html#L261'>copy-words</a> next-src-ah, rest-ah +<span id="L274" class="LineNr">274 </span> <a href='word.mu.html#L459'>chain-words</a> dest-ah, rest-ah +<span id="L275" class="LineNr">275 </span><span class="Delimiter">}</span> +<span id="L276" class="LineNr">276 </span> +<span id="L277" class="LineNr">277 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L277'>copy-words-in-reverse</a></span> _src-ah: (addr handle <a href='data.mu.html#L42'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _src-ah +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src-ah +<span id="L280" class="LineNr">280 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _src-a +<span id="L281" class="LineNr">281 </span> compare src-a, <span class="Constant">0</span> +<span id="L282" class="LineNr">282 </span> <span class="PreProc">break-if-=</span> +<span id="L283" class="LineNr">283 </span> <span class="muComment"># recurse</span> +<span id="L284" class="LineNr">284 </span> <span class="PreProc">var</span> next-src-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, next +<span id="L285" class="LineNr">285 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L286" class="LineNr">286 </span> <a href='word.mu.html#L277'>copy-words-in-reverse</a> next-src-ah, dest-ah +<span id="L287" class="LineNr">287 </span> <span class="muComment">#</span> +<span id="L288" class="LineNr">288 </span> <a href='word.mu.html#L291'>copy-word-at-end</a> src-a, dest-ah +<span id="L289" class="LineNr">289 </span><span class="Delimiter">}</span> +<span id="L290" class="LineNr">290 </span> +<span id="L291" class="LineNr">291 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L291'>copy-word-at-end</a></span> src: (addr <a href='data.mu.html#L42'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L292" class="LineNr">292 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L293" class="LineNr">293 </span> <span class="muComment"># if dest is null, copy and return</span> +<span id="L294" class="LineNr">294 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L295" class="LineNr">295 </span> compare dest-a, <span class="Constant">0</span> +<span id="L296" class="LineNr">296 </span> <span class="Delimiter">{</span> +<span id="L297" class="LineNr">297 </span> <span class="PreProc">break-if-!=</span> +<span id="L298" class="LineNr">298 </span> <a href='word.mu.html#L343'>copy-word</a> src, dest-ah +<span id="L299" class="LineNr">299 </span> <span class="PreProc">return</span> +<span id="L300" class="LineNr">300 </span> <span class="Delimiter">}</span> +<span id="L301" class="LineNr">301 </span> <span class="muComment"># copy current word</span> +<span id="L302" class="LineNr">302 </span> <span class="PreProc">var</span> new: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address new +<span id="L304" class="LineNr">304 </span> <a href='word.mu.html#L343'>copy-word</a> src, new-ah +<span id="L305" class="LineNr">305 </span> <span class="muComment"># append it at the end</span> +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy dest-ah +<span id="L307" class="LineNr">307 </span> <span class="Delimiter">{</span> +<span id="L308" class="LineNr">308 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah <span class="muComment"># curr-a guaranteed not to be null</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-a, next +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> next-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L311" class="LineNr">311 </span> compare next-a, <span class="Constant">0</span> +<span id="L312" class="LineNr">312 </span> <span class="PreProc">break-if-=</span> +<span id="L313" class="LineNr">313 </span> curr-ah <span class="Special"><-</span> copy next-ah +<span id="L314" class="LineNr">314 </span> <span class="PreProc">loop</span> +<span id="L315" class="LineNr">315 </span> <span class="Delimiter">}</span> +<span id="L316" class="LineNr">316 </span> <a href='word.mu.html#L459'>chain-words</a> curr-ah, new-ah +<span id="L317" class="LineNr">317 </span><span class="Delimiter">}</span> +<span id="L318" class="LineNr">318 </span> +<span id="L319" class="LineNr">319 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L319'>append-word-at-end-with</a></span> _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L320" class="LineNr">320 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L321" class="LineNr">321 </span> <span class="muComment"># if dest is null, copy and return</span> +<span id="L322" class="LineNr">322 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L323" class="LineNr">323 </span> compare dest-a, <span class="Constant">0</span> +<span id="L324" class="LineNr">324 </span> <span class="Delimiter">{</span> +<span id="L325" class="LineNr">325 </span> <span class="PreProc">break-if-!=</span> +<span id="L326" class="LineNr">326 </span> <a href='word.mu.html#L19'>allocate-word-with</a> dest-ah, s +<span id="L327" class="LineNr">327 </span> <span class="PreProc">return</span> +<span id="L328" class="LineNr">328 </span> <span class="Delimiter">}</span> +<span id="L329" class="LineNr">329 </span> <span class="muComment"># otherwise append at end</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy dest-ah +<span id="L331" class="LineNr">331 </span> <span class="Delimiter">{</span> +<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah <span class="muComment"># curr-a guaranteed not to be null</span> +<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr-a, next +<span id="L334" class="LineNr">334 </span> <span class="PreProc">var</span> next-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L335" class="LineNr">335 </span> compare next-a, <span class="Constant">0</span> +<span id="L336" class="LineNr">336 </span> <span class="PreProc">break-if-=</span> +<span id="L337" class="LineNr">337 </span> curr-ah <span class="Special"><-</span> copy next-ah +<span id="L338" class="LineNr">338 </span> <span class="PreProc">loop</span> +<span id="L339" class="LineNr">339 </span> <span class="Delimiter">}</span> +<span id="L340" class="LineNr">340 </span> <a href='word.mu.html#L29'>append-word-with</a> *curr-ah, s +<span id="L341" class="LineNr">341 </span><span class="Delimiter">}</span> +<span id="L342" class="LineNr">342 </span> +<span id="L343" class="LineNr">343 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L343'>copy-word</a></span> _src-a: (addr <a href='data.mu.html#L42'>word</a>), _dest-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L344" class="LineNr">344 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L345" class="LineNr">345 </span> <a href='../120allocate.subx.html#L66'>allocate</a> dest-ah +<span id="L346" class="LineNr">346 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *dest-ah +<span id="L347" class="LineNr">347 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _dest-a +<span id="L348" class="LineNr">348 </span> <a href='word.mu.html#L1'>initialize-word</a> dest-a +<span id="L349" class="LineNr">349 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> dest-a, scalar-data +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> src-a/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _src-a +<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> src-a, scalar-data +<span id="L352" class="LineNr">352 </span> <a href='gap-buffer.mu.html#L314'>copy-gap-buffer</a> src, dest +<span id="L353" class="LineNr">353 </span><span class="Delimiter">}</span> +<span id="L354" class="LineNr">354 </span> +<span id="L355" class="LineNr">355 </span><span class="muComment"># one implication of handles: append must take a handle</span> +<span id="L356" class="LineNr">356 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L356'>append-word</a></span> _self-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> saved-self-storage: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L358" class="LineNr">358 </span> <span class="PreProc">var</span> saved-self/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address saved-self-storage +<span id="L359" class="LineNr">359 </span> copy-object _self-ah, saved-self +<span id="L360" class="LineNr">360 </span><span class="CommentedCode">#? {</span> +<span id="L361" class="LineNr">361 </span><span class="CommentedCode">#? print-string 0, "self-ah is "</span> +<span id="L362" class="LineNr">362 </span><span class="CommentedCode">#? var foo/eax: int <- copy _self-ah</span> +<span id="L363" class="LineNr">363 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L364" class="LineNr">364 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L365" class="LineNr">365 </span><span class="CommentedCode">#? }</span> +<span id="L366" class="LineNr">366 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self-ah +<span id="L367" class="LineNr">367 </span> <span class="PreProc">var</span> _self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *self-ah +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> self/<span class="Constant">ebx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L369" class="LineNr">369 </span><span class="CommentedCode">#? {</span> +<span id="L370" class="LineNr">370 </span><span class="CommentedCode">#? print-string 0, "0: self is "</span> +<span id="L371" class="LineNr">371 </span><span class="CommentedCode">#? var self-ah/eax: (addr handle word) <- copy _self-ah</span> +<span id="L372" class="LineNr">372 </span><span class="CommentedCode">#? var self/eax: (addr word) <- lookup *self-ah</span> +<span id="L373" class="LineNr">373 </span><span class="CommentedCode">#? var foo/eax: int <- copy self</span> +<span id="L374" class="LineNr">374 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L375" class="LineNr">375 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L376" class="LineNr">376 </span><span class="CommentedCode">#? }</span> +<span id="L377" class="LineNr">377 </span> <span class="muComment"># allocate new handle</span> +<span id="L378" class="LineNr">378 </span> <span class="PreProc">var</span> new: (handle <a href='data.mu.html#L42'>word</a>) +<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> new-ah/<span class="Constant">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address new +<span id="L380" class="LineNr">380 </span> <a href='../120allocate.subx.html#L66'>allocate</a> new-ah +<span id="L381" class="LineNr">381 </span> <span class="PreProc">var</span> new-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> new +<span id="L382" class="LineNr">382 </span> <a href='word.mu.html#L1'>initialize-word</a> new-addr +<span id="L383" class="LineNr">383 </span><span class="CommentedCode">#? {</span> +<span id="L384" class="LineNr">384 </span><span class="CommentedCode">#? print-string 0, "new is "</span> +<span id="L385" class="LineNr">385 </span><span class="CommentedCode">#? var foo/eax: int <- copy new-addr</span> +<span id="L386" class="LineNr">386 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L387" class="LineNr">387 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L388" class="LineNr">388 </span><span class="CommentedCode">#? }</span> +<span id="L389" class="LineNr">389 </span> <span class="muComment"># new->next = self->next</span> +<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, next +<span id="L391" class="LineNr">391 </span><span class="CommentedCode">#? {</span> +<span id="L392" class="LineNr">392 </span><span class="CommentedCode">#? print-string 0, "src is "</span> +<span id="L393" class="LineNr">393 </span><span class="CommentedCode">#? var foo/eax: int <- copy src</span> +<span id="L394" class="LineNr">394 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L395" class="LineNr">395 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L396" class="LineNr">396 </span><span class="CommentedCode">#? }</span> +<span id="L397" class="LineNr">397 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-addr, next +<span id="L398" class="LineNr">398 </span> copy-object src, dest +<span id="L399" class="LineNr">399 </span> <span class="muComment"># new->next->prev = new</span> +<span id="L400" class="LineNr">400 </span> <span class="Delimiter">{</span> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> next-addr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *src +<span id="L402" class="LineNr">402 </span> compare next-addr, <span class="Constant">0</span> +<span id="L403" class="LineNr">403 </span> <span class="PreProc">break-if-=</span> +<span id="L404" class="LineNr">404 </span><span class="CommentedCode">#? {</span> +<span id="L405" class="LineNr">405 </span><span class="CommentedCode">#? print-string 0, "next-addr is "</span> +<span id="L406" class="LineNr">406 </span><span class="CommentedCode">#? var foo/eax: int <- copy next-addr</span> +<span id="L407" class="LineNr">407 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L408" class="LineNr">408 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L409" class="LineNr">409 </span><span class="CommentedCode">#? }</span> +<span id="L410" class="LineNr">410 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> next-addr, prev +<span id="L411" class="LineNr">411 </span><span class="CommentedCode">#? #? {</span> +<span id="L412" class="LineNr">412 </span><span class="CommentedCode">#? #? print-string 0, "self-ah is "</span> +<span id="L413" class="LineNr">413 </span><span class="CommentedCode">#? #? var foo/eax: int <- copy _self-ah</span> +<span id="L414" class="LineNr">414 </span><span class="CommentedCode">#? #? print-int32-hex 0, foo</span> +<span id="L415" class="LineNr">415 </span><span class="CommentedCode">#? #? print-string 0, "\n"</span> +<span id="L416" class="LineNr">416 </span><span class="CommentedCode">#? #? print-string 0, "2: self is "</span> +<span id="L417" class="LineNr">417 </span><span class="CommentedCode">#? #? var self-ah/eax: (addr handle word) <- copy _self-ah</span> +<span id="L418" class="LineNr">418 </span><span class="CommentedCode">#? #? var self/eax: (addr word) <- lookup *self-ah</span> +<span id="L419" class="LineNr">419 </span><span class="CommentedCode">#? #? var foo/eax: int <- copy self</span> +<span id="L420" class="LineNr">420 </span><span class="CommentedCode">#? #? print-int32-hex 0, foo</span> +<span id="L421" class="LineNr">421 </span><span class="CommentedCode">#? #? print-string 0, "\n"</span> +<span id="L422" class="LineNr">422 </span><span class="CommentedCode">#? #? }</span> +<span id="L423" class="LineNr">423 </span><span class="CommentedCode">#? {</span> +<span id="L424" class="LineNr">424 </span><span class="CommentedCode">#? print-string 0, "copying new to "</span> +<span id="L425" class="LineNr">425 </span><span class="CommentedCode">#? var foo/eax: int <- copy dest</span> +<span id="L426" class="LineNr">426 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L427" class="LineNr">427 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L428" class="LineNr">428 </span><span class="CommentedCode">#? }</span> +<span id="L429" class="LineNr">429 </span> copy-object new-ah, dest +<span id="L430" class="LineNr">430 </span><span class="CommentedCode">#? {</span> +<span id="L431" class="LineNr">431 </span><span class="CommentedCode">#? print-string 0, "4: self is "</span> +<span id="L432" class="LineNr">432 </span><span class="CommentedCode">#? var self-ah/eax: (addr handle word) <- copy _self-ah</span> +<span id="L433" class="LineNr">433 </span><span class="CommentedCode">#? var self/eax: (addr word) <- lookup *self-ah</span> +<span id="L434" class="LineNr">434 </span><span class="CommentedCode">#? var foo/eax: int <- copy self</span> +<span id="L435" class="LineNr">435 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L436" class="LineNr">436 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L437" class="LineNr">437 </span><span class="CommentedCode">#? }</span> +<span id="L438" class="LineNr">438 </span> <span class="Delimiter">}</span> +<span id="L439" class="LineNr">439 </span> <span class="muComment"># new->prev = saved-self</span> +<span id="L440" class="LineNr">440 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> new-addr, prev +<span id="L441" class="LineNr">441 </span><span class="CommentedCode">#? {</span> +<span id="L442" class="LineNr">442 </span><span class="CommentedCode">#? print-string 0, "copying "</span> +<span id="L443" class="LineNr">443 </span><span class="CommentedCode">#? var self-ah/esi: (addr handle word) <- copy _self-ah</span> +<span id="L444" class="LineNr">444 </span><span class="CommentedCode">#? var self/eax: (addr word) <- lookup *self-ah</span> +<span id="L445" class="LineNr">445 </span><span class="CommentedCode">#? var foo/eax: int <- copy self</span> +<span id="L446" class="LineNr">446 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L447" class="LineNr">447 </span><span class="CommentedCode">#? print-string 0, " to "</span> +<span id="L448" class="LineNr">448 </span><span class="CommentedCode">#? foo <- copy dest</span> +<span id="L449" class="LineNr">449 </span><span class="CommentedCode">#? print-int32-hex 0, foo</span> +<span id="L450" class="LineNr">450 </span><span class="CommentedCode">#? print-string 0, "\n"</span> +<span id="L451" class="LineNr">451 </span><span class="CommentedCode">#? }</span> +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> saved-self-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> address saved-self-storage +<span id="L453" class="LineNr">453 </span> copy-object saved-self-ah, dest +<span id="L454" class="LineNr">454 </span> <span class="muComment"># self->next = new</span> +<span id="L455" class="LineNr">455 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, next +<span id="L456" class="LineNr">456 </span> copy-object new-ah, dest +<span id="L457" class="LineNr">457 </span><span class="Delimiter">}</span> +<span id="L458" class="LineNr">458 </span> +<span id="L459" class="LineNr">459 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L459'>chain-words</a></span> _self-ah: (addr handle <a href='data.mu.html#L42'>word</a>), _next: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L460" class="LineNr">460 </span> <span class="PreProc">var</span> self-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self-ah +<span id="L461" class="LineNr">461 </span> <span class="PreProc">var</span> _self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *self-ah +<span id="L462" class="LineNr">462 </span> <span class="PreProc">var</span> self/<span class="Constant">ecx</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L463" class="LineNr">463 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, next +<span id="L464" class="LineNr">464 </span> <span class="PreProc">var</span> next-ah/<span class="Constant">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _next +<span id="L465" class="LineNr">465 </span> copy-object next-ah, dest +<span id="L466" class="LineNr">466 </span> <span class="PreProc">var</span> next/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *next-ah +<span id="L467" class="LineNr">467 </span> compare next, <span class="Constant">0</span> +<span id="L468" class="LineNr">468 </span> <span class="PreProc">break-if-=</span> +<span id="L469" class="LineNr">469 </span> dest <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> next, prev +<span id="L470" class="LineNr">470 </span> copy-object self-ah, dest +<span id="L471" class="LineNr">471 </span><span class="Delimiter">}</span> +<span id="L472" class="LineNr">472 </span> +<span id="L473" class="LineNr">473 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L473'>emit-word</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L474" class="LineNr">474 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L475" class="LineNr">475 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L477" class="LineNr">477 </span> <a href='gap-buffer.mu.html#L37'>emit-gap-buffer</a> data, out +<span id="L478" class="LineNr">478 </span><span class="Delimiter">}</span> +<span id="L479" class="LineNr">479 </span> +<span id="L480" class="LineNr">480 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L480'>word-to-string</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>), out: (addr handle array byte) <span class="Delimiter">{</span> +<span id="L481" class="LineNr">481 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L484" class="LineNr">484 </span> <a href='gap-buffer.mu.html#L30'>gap-buffer-to-string</a> data, out +<span id="L485" class="LineNr">485 </span><span class="Delimiter">}</span> +<span id="L486" class="LineNr">486 </span> +<span id="L487" class="LineNr">487 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L487'>word-is-decimal-integer?</a></span> _self: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _self +<span id="L489" class="LineNr">489 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, scalar-data +<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L1'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah +<span id="L491" class="LineNr">491 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L332'>gap-buffer-is-decimal-integer?</a> data +<span id="L492" class="LineNr">492 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L493" class="LineNr">493 </span><span class="Delimiter">}</span> +<span id="L494" class="LineNr">494 </span> +<span id="L495" class="LineNr">495 </span><span class="muComment"># ABSOLUTELY GHASTLY</span> +<span id="L496" class="LineNr">496 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L496'>word-exists?</a></span> _haystack-ah: (addr handle <a href='data.mu.html#L42'>word</a>), _needle: (addr <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: boolean <span class="Delimiter">{</span> +<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> needle-name-storage: (handle array byte) +<span id="L498" class="LineNr">498 </span> <span class="PreProc">var</span> needle-name-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> address needle-name-storage +<span id="L499" class="LineNr">499 </span> <a href='word.mu.html#L480'>word-to-string</a> _needle, needle-name-ah <span class="muComment"># profligate leak</span> +<span id="L500" class="LineNr">500 </span> <span class="PreProc">var</span> _needle-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *needle-name-ah +<span id="L501" class="LineNr">501 </span> <span class="PreProc">var</span> needle-name/<span class="Constant">edi</span>: (addr array byte) <span class="Special"><-</span> copy _needle-name +<span id="L502" class="LineNr">502 </span> <span class="muComment"># base case</span> +<span id="L503" class="LineNr">503 </span> <span class="PreProc">var</span> haystack-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy _haystack-ah +<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *haystack-ah +<span id="L505" class="LineNr">505 </span> compare curr, <span class="Constant">0</span> +<span id="L506" class="LineNr">506 </span> <span class="Delimiter">{</span> +<span id="L507" class="LineNr">507 </span> <span class="PreProc">break-if-!=</span> +<span id="L508" class="LineNr">508 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L509" class="LineNr">509 </span> <span class="Delimiter">}</span> +<span id="L510" class="LineNr">510 </span> <span class="muComment"># check curr</span> +<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> curr-name-storage: (handle array byte) +<span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> curr-name-ah/<span class="Constant">ecx</span>: (addr handle array byte) <span class="Special"><-</span> address curr-name-storage +<span id="L513" class="LineNr">513 </span> <a href='word.mu.html#L480'>word-to-string</a> curr, curr-name-ah <span class="muComment"># profligate leak</span> +<span id="L514" class="LineNr">514 </span> <span class="PreProc">var</span> curr-name/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-name-ah +<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L15'>string-equal?</a> needle-name, curr-name +<span id="L516" class="LineNr">516 </span> compare found?, <span class="Constant">0</span> +<span id="L517" class="LineNr">517 </span> <span class="Delimiter">{</span> +<span id="L518" class="LineNr">518 </span> <span class="PreProc">break-if-=</span> +<span id="L519" class="LineNr">519 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L520" class="LineNr">520 </span> <span class="Delimiter">}</span> +<span id="L521" class="LineNr">521 </span> <span class="muComment"># recurse</span> +<span id="L522" class="LineNr">522 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *haystack-ah +<span id="L523" class="LineNr">523 </span> <span class="PreProc">var</span> next-haystack-ah/<span class="Constant">eax</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L524" class="LineNr">524 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">ebx</span>: boolean <span class="Special"><-</span> <a href='word.mu.html#L496'>word-exists?</a> next-haystack-ah, _needle +<span id="L525" class="LineNr">525 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L526" class="LineNr">526 </span><span class="Delimiter">}</span> +<span id="L527" class="LineNr">527 </span> +<span id="L528" class="LineNr">528 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L528'>word-list-length</a></span> words: (addr handle <a href='data.mu.html#L42'>word</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">esi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy words +<span id="L530" class="LineNr">530 </span> <span class="PreProc">var</span> <a href='data.mu.html#L82'>result</a>/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L531" class="LineNr">531 </span> <span class="Delimiter">{</span> +<span id="L532" class="LineNr">532 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *curr-ah +<span id="L533" class="LineNr">533 </span> compare curr, <span class="Constant">0</span> +<span id="L534" class="LineNr">534 </span> <span class="PreProc">break-if-=</span> +<span id="L535" class="LineNr">535 </span> <span class="Delimiter">{</span> +<span id="L536" class="LineNr">536 </span> <span class="PreProc">var</span> word-len/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='word.mu.html#L106'>word-length</a> curr +<span id="L537" class="LineNr">537 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add word-len +<span id="L538" class="LineNr">538 </span> <a href='data.mu.html#L82'>result</a> <span class="Special"><-</span> add <span class="Constant">1</span>/inter-word-margin +<span id="L539" class="LineNr">539 </span> <span class="Delimiter">}</span> +<span id="L540" class="LineNr">540 </span> curr-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> curr, next +<span id="L541" class="LineNr">541 </span> <span class="PreProc">loop</span> +<span id="L542" class="LineNr">542 </span> <span class="Delimiter">}</span> +<span id="L543" class="LineNr">543 </span> <span class="PreProc">return</span> <a href='data.mu.html#L82'>result</a> +<span id="L544" class="LineNr">544 </span><span class="Delimiter">}</span> +<span id="L545" class="LineNr">545 </span> +<span id="L546" class="LineNr">546 </span><span class="muComment"># out-ah already has a word allocated and initialized</span> +<span id="L547" class="LineNr">547 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='word.mu.html#L547'>parse-words</a></span> in: (addr array byte), out-ah: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Delimiter">{</span> +<span id="L548" class="LineNr">548 </span> <span class="PreProc">var</span> in-stream: (stream byte <span class="Constant">0x100</span>) +<span id="L549" class="LineNr">549 </span> <span class="PreProc">var</span> in-stream-a/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-stream +<span id="L550" class="LineNr">550 </span> <a href='../108write.subx.html#L24'>write</a> in-stream-a, in +<span id="L551" class="LineNr">551 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="Constant">ebx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> copy out-ah +<span id="L552" class="LineNr">552 </span> $parse-words:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> in-stream-a +<span id="L554" class="LineNr">554 </span> compare done?, <span class="Constant">0</span>/false +<span id="L555" class="LineNr">555 </span> <span class="PreProc">break-if-!=</span> +<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> _g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L158'>read-grapheme</a> in-stream-a +<span id="L557" class="LineNr">557 </span> <span class="PreProc">var</span> g/<span class="Constant">ecx</span>: grapheme <span class="Special"><-</span> copy _g +<span id="L558" class="LineNr">558 </span> <span class="muComment"># if not space, insert</span> +<span id="L559" class="LineNr">559 </span> compare g, <span class="Constant">0x20</span>/space +<span id="L560" class="LineNr">560 </span> <span class="Delimiter">{</span> +<span id="L561" class="LineNr">561 </span> <span class="PreProc">break-if-=</span> +<span id="L562" class="LineNr">562 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L563" class="LineNr">563 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L564" class="LineNr">564 </span> <span class="PreProc">loop</span> $parse-words:<span class="PreProc">loop</span> +<span id="L565" class="LineNr">565 </span> <span class="Delimiter">}</span> +<span id="L566" class="LineNr">566 </span> <span class="muComment"># otherwise insert word after and move cursor to it</span> +<span id="L567" class="LineNr">567 </span> <a href='word.mu.html#L356'>append-word</a> cursor-word-ah +<span id="L568" class="LineNr">568 </span> <span class="PreProc">var</span> cursor-word/<span class="Constant">eax</span>: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *cursor-word-ah +<span id="L569" class="LineNr">569 </span> <a href='word.mu.html#L185'>cursor-to-start</a> cursor-word <span class="muComment"># reset cursor in each function</span> +<span id="L570" class="LineNr">570 </span> cursor-word-ah <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> cursor-word, next +<span id="L571" class="LineNr">571 </span> <span class="PreProc">loop</span> +<span id="L572" class="LineNr">572 </span> <span class="Delimiter">}</span> +<span id="L573" class="LineNr">573 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/linux/tui.mu.html b/html/linux/tui.mu.html new file mode 100644 index 00000000..b15448ea --- /dev/null +++ b/html/linux/tui.mu.html @@ -0,0 +1,96 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - linux/tui.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Delimiter { color: #c000c0; } +.Constant { color: #008787; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/linux/tui.mu'>https://github.com/akkartik/mu/blob/main/linux/tui.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Test some primitives for text-mode.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># To run:</span> +<span id="L4" class="LineNr"> 4 </span><span class="muComment"># $ ./translate tui.mu</span> +<span id="L5" class="LineNr"> 5 </span><span class="muComment"># $ ./a.elf</span> +<span id="L6" class="LineNr"> 6 </span> +<span id="L7" class="LineNr"> 7 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tui.mu.html#L7'>main</a></span><span class="PreProc"> -> </span>_/<span class="Constant">ebx</span>: int <span class="Delimiter">{</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">var</span> nrows/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> ncols/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L10" class="LineNr">10 </span> nrows, ncols <span class="Special"><-</span> <a href='405screen.mu.html#L60'>screen-size</a> <span class="Constant">0</span> +<span id="L11" class="LineNr">11 </span> <a href='304screen.subx.html#L6'>enable-screen-grid-mode</a> +<span id="L12" class="LineNr">12 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">5</span>/row, <span class="Constant">0x22</span>/col +<span id="L13" class="LineNr">13 </span> <a href='405screen.mu.html#L523'>start-color</a> <span class="Constant">0</span>/screen, <span class="Constant">1</span>/fg, <span class="Constant">0x7a</span>/bg +<span id="L14" class="LineNr">14 </span> <a href='405screen.mu.html#L583'>start-blinking</a> <span class="Constant">0</span>/screen +<span id="L15" class="LineNr">15 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"Hello world!"</span> +<span id="L16" class="LineNr">16 </span> <a href='405screen.mu.html#L506'>reset-formatting</a> <span class="Constant">0</span>/screen +<span id="L17" class="LineNr">17 </span> <a href='405screen.mu.html#L109'>move-cursor</a> <span class="Constant">0</span>/screen, <span class="Constant">6</span>/row, <span class="Constant">0x22</span>/col +<span id="L18" class="LineNr">18 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"tty dimensions: "</span> +<span id="L19" class="LineNr">19 </span> <a href='405screen.mu.html#L440'>print-int32-hex</a> <span class="Constant">0</span>/screen, nrows +<span id="L20" class="LineNr">20 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">" rows, "</span> +<span id="L21" class="LineNr">21 </span> <a href='405screen.mu.html#L440'>print-int32-hex</a> <span class="Constant">0</span>/screen, ncols +<span id="L22" class="LineNr">22 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">" rows\n"</span> +<span id="L23" class="LineNr">23 </span> +<span id="L24" class="LineNr">24 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"press a key to see its code: "</span> +<span id="L25" class="LineNr">25 </span> <a href='305keyboard.subx.html#L6'>enable-keyboard-immediate-mode</a> +<span id="L26" class="LineNr">26 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='305keyboard.subx.html#L132'>read-key-from-real-keyboard</a> +<span id="L27" class="LineNr">27 </span> <a href='305keyboard.subx.html#L72'>enable-keyboard-type-mode</a> +<span id="L28" class="LineNr">28 </span> <a href='304screen.subx.html#L24'>enable-screen-type-mode</a> +<span id="L29" class="LineNr">29 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"You pressed "</span> +<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> x-int/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy x +<span id="L31" class="LineNr">31 </span> <a href='405screen.mu.html#L440'>print-int32-hex</a> <span class="Constant">0</span>/screen, x-int +<span id="L32" class="LineNr">32 </span> <a href='405screen.mu.html#L169'>print-string</a> <span class="Constant">0</span>/screen, <span class="Constant">"\n"</span> +<span id="L33" class="LineNr">33 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L34" class="LineNr">34 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/mu-init.subx.html b/html/mu-init.subx.html index 8c27bb46..7e26b982 100644 --- a/html/mu-init.subx.html +++ b/html/mu-init.subx.html @@ -18,7 +18,6 @@ a { color:inherit; } .LineNr { } .SpecialChar { color: #d70000; } .Constant { color: #008787; } -.subxH1Comment { color: #005faf; text-decoration: underline; } --> </style> @@ -56,66 +55,33 @@ if ('onhashchange' in window) { <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="subxComment"># Initialize the minimal runtime for Mu programs.</span> <span id="L2" class="LineNr"> 2 </span><span class="subxComment">#</span> -<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># See translate_mu for how this file is used.</span> +<span id="L3" class="LineNr"> 3 </span><span class="subxComment"># See translate for how this file is used.</span> <span id="L4" class="LineNr"> 4 </span><span class="subxComment">#</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># Mu programs start at a function called 'main' with this signature:</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># fn main args: (addr array addr array byte) -> _/ebx: int</span> -<span id="L7" class="LineNr"> 7 </span><span class="subxComment"># If your program doesn't need commandline arguments you can drop it:</span> -<span id="L8" class="LineNr"> 8 </span><span class="subxComment"># fn main -> _/ebx: int</span> -<span id="L9" class="LineNr"> 9 </span><span class="subxComment">#</span> -<span id="L10" class="LineNr">10 </span><span class="subxComment"># Notice that the output must be in ebx, so that the exit() syscall can pick</span> -<span id="L11" class="LineNr">11 </span><span class="subxComment"># it up.</span> -<span id="L12" class="LineNr">12 </span> -<span id="L13" class="LineNr">13 </span>== code -<span id="L14" class="LineNr">14 </span> -<span id="L15" class="LineNr">15 </span><span class="SpecialChar">Entry</span>: -<span id="L16" class="LineNr">16 </span> <span class="subxComment"># we don't use ebp in Entry; just initialize it</span> -<span id="L17" class="LineNr">17 </span> bd/copy-to-ebp 0/imm32 -<span id="L18" class="LineNr">18 </span> <span class="subxH1Comment"># - save argc and argv</span> -<span id="L19" class="LineNr">19 </span> <span class="subxComment"># var argc-and-argv/esi</span> -<span id="L20" class="LineNr">20 </span> 89/<- %esi 4/r32/esp -<span id="L21" class="LineNr">21 </span><span class="Constant">$Entry:initialize-heap</span>: -<span id="L22" class="LineNr">22 </span> <span class="subxH1Comment"># - initialize the heap</span> -<span id="L23" class="LineNr">23 </span> (<a href='104new-segment.subx.html#L40'>new-segment</a> *<span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>) -<span id="L24" class="LineNr">24 </span><span class="Constant">$Entry:initialize-args</span>: -<span id="L25" class="LineNr">25 </span> <span class="subxH1Comment"># - convert argv from null-terminated 'kernel' strings to length-prefixed Mu strings</span> -<span id="L26" class="LineNr">26 </span> <span class="subxComment"># var argc/edx: int</span> -<span id="L27" class="LineNr">27 </span> 8b/-> *esi 2/r32/edx -<span id="L28" class="LineNr">28 </span> <span class="subxComment"># argc is in words; convert it to bytes</span> -<span id="L29" class="LineNr">29 </span> c1/shift 4/subop/left %edx 2/imm8 -<span id="L30" class="LineNr">30 </span> <span class="subxComment"># var tmp/ebx: handle</span> -<span id="L31" class="LineNr">31 </span> 68/push 0/imm32 -<span id="L32" class="LineNr">32 </span> 68/push 0/imm32 -<span id="L33" class="LineNr">33 </span> 89/<- %ebx 4/r32/esp -<span id="L34" class="LineNr">34 </span> <span class="subxComment"># var args/edi: (addr array (addr array byte))</span> -<span id="L35" class="LineNr">35 </span> (<a href='120allocate.subx.html#L576'>allocate-array</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> %edx %ebx) -<span id="L36" class="LineNr">36 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L37" class="LineNr">37 </span> 89/<- %edi 0/r32/eax -<span id="L38" class="LineNr">38 </span> <span class="subxComment"># var curr/ecx: (addr kernel-string) = argv</span> -<span id="L39" class="LineNr">39 </span> 8d/copy-address *(esi+4) 1/r32/ecx -<span id="L40" class="LineNr">40 </span> <span class="subxComment"># var max/edx: (addr kernel-string) = argv+4+argc</span> -<span id="L41" class="LineNr">41 </span> 8d/copy-address *(ecx+edx) 2/r32/edx -<span id="L42" class="LineNr">42 </span> <span class="subxComment"># var dest/esi: (addr (addr array byte)) = args+4</span> -<span id="L43" class="LineNr">43 </span> 8d/copy-address *(edi+4) 6/r32/esi -<span id="L44" class="LineNr">44 </span> { -<span id="L45" class="LineNr">45 </span> <span class="subxComment"># if (curr >= max) break</span> -<span id="L46" class="LineNr">46 </span> 39/compare %ecx 2/r32/edx -<span id="L47" class="LineNr">47 </span> 73/jump-if-addr>= <span class="Constant">break</span>/disp8 -<span id="L48" class="LineNr">48 </span> <span class="subxComment"># *dest = kernel-string-to-string(*curr)</span> -<span id="L49" class="LineNr">49 </span> (<a href='303kernel-string.subx.html#L7'>kernel-string-to-string</a> <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span> *ecx %ebx) -<span id="L50" class="LineNr">50 </span> (<a href='120allocate.subx.html#L256'>lookup</a> *ebx *(ebx+4)) <span class="subxComment"># => eax</span> -<span id="L51" class="LineNr">51 </span> 89/<- *esi 0/r32/eax -<span id="L52" class="LineNr">52 </span> <span class="subxComment"># curr += 4</span> -<span id="L53" class="LineNr">53 </span> 81 0/subop/add %ecx 4/imm32 -<span id="L54" class="LineNr">54 </span> <span class="subxComment"># dest += 4</span> -<span id="L55" class="LineNr">55 </span> 81 0/subop/add %esi 4/imm32 -<span id="L56" class="LineNr">56 </span> <span class="subxComment">#</span> -<span id="L57" class="LineNr">57 </span> eb/jump <span class="Constant">loop</span>/disp8 -<span id="L58" class="LineNr">58 </span> } -<span id="L59" class="LineNr">59 </span> <span class="subxH1Comment"># - run Mu program</span> -<span id="L60" class="LineNr">60 </span> (main %edi) <span class="subxComment"># => ebx</span> -<span id="L61" class="LineNr">61 </span> <span class="subxH1Comment"># - exit</span> -<span id="L62" class="LineNr">62 </span> (syscall_exit) +<span id="L5" class="LineNr"> 5 </span><span class="subxComment"># Mu programs start at a function called 'main' without inouts or outputs.</span> +<span id="L6" class="LineNr"> 6 </span><span class="subxComment"># All tests must pass first (the "power-on unit test").</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span>== code +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr">10 </span><span class="SpecialChar">Entry</span>: +<span id="L11" class="LineNr">11 </span> <span class="subxComment"># initialize stack</span> +<span id="L12" class="LineNr">12 </span> bd/copy-to-ebp 0/imm32 +<span id="L13" class="LineNr">13 </span> <span class="subxComment"># always first run tests</span> +<span id="L14" class="LineNr">14 </span> (run-tests) +<span id="L15" class="LineNr">15 </span> (<a href='104test.subx.html#L17'>num-test-failures</a>) <span class="subxComment"># => eax</span> +<span id="L16" class="LineNr">16 </span> <span class="subxComment"># call main if tests all passed</span> +<span id="L17" class="LineNr">17 </span> { +<span id="L18" class="LineNr">18 </span> 3d/compare-eax-and 0/imm32 +<span id="L19" class="LineNr">19 </span> 75/jump-if-!= <span class="Constant">break</span>/disp8 +<span id="L20" class="LineNr">20 </span> (<a href='500text-screen.mu.html#L226'>clear-real-screen</a>) +<span id="L21" class="LineNr">21 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L170'>Real-screen-cursor-x</a></span> 0/imm32 +<span id="L22" class="LineNr">22 </span> c7 0/subop/copy *<span class="SpecialChar"><a href='103grapheme.subx.html#L172'>Real-screen-cursor-y</a></span> 0/imm32 +<span id="L23" class="LineNr">23 </span> (main) +<span id="L24" class="LineNr">24 </span> } +<span id="L25" class="LineNr">25 </span> +<span id="L26" class="LineNr">26 </span> <span class="subxComment"># hang indefinitely</span> +<span id="L27" class="LineNr">27 </span> { +<span id="L28" class="LineNr">28 </span> eb/jump <span class="Constant">loop</span>/disp8 +<span id="L29" class="LineNr">29 </span> } </pre> </body> </html> diff --git a/html/mu_instructions.html b/html/mu_instructions.html deleted file mode 100644 index 679446a0..00000000 --- a/html/mu_instructions.html +++ /dev/null @@ -1,431 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu's instructions and their table-driven translation</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="use_css,no_foldcolumn,expand_tabs,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-family: monospace; color: #000000; background-color: #c6c6c6; } -* { font-size: 1em; } -.muComment { color: #005faf; } -.SpecialChar { color: #d70000; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } ---> -</style> -</head> -<body> -<pre id='vimCodeElement'> -<span class="muComment">## Mu's instructions and their table-driven translation</span> - -See <a href="http://akkartik.name/akkartik-convivial-20200607.pdf">http://akkartik.name/akkartik-convivial-20200607.pdf</a> for the complete -story. In brief: Mu is a statement-oriented language. Blocks consist of flat -lists of instructions. Instructions can have inputs after the operation, and -outputs to the left of a '<span class="SpecialChar"><-</span>'. Inputs and outputs must be variables. They can't -include nested expressions. Variables can be literals ('n'), or live in a -register ('var/reg') or in memory ('var') at some 'stack-offset' from the 'ebp' -register. Outputs must be registers. To modify a variable in memory, pass it in -by reference as an input. (Inputs are more precisely called 'inouts'.) -Conversely, registers that are just read from must not be passed as outputs. - -The following chart shows all the instruction forms supported by Mu, along with -the SubX instruction they're translated to. - -<span class="muComment">## Integer instructions</span> - -These instructions use the general-purpose registers. - -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"40/increment-eax"</span> -var/<span class="Constant">ecx</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"41/increment-ecx"</span> -var/<span class="Constant">edx</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"42/increment-edx"</span> -var/<span class="Constant">ebx</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"43/increment-ebx"</span> -var/<span class="Constant">esi</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"46/increment-esi"</span> -var/<span class="Constant">edi</span> <span class="SpecialChar"><-</span> increment => <span class="Constant">"47/increment-edi"</span> -increment var => <span class="Constant">"ff 0/subop/increment *(ebp+"</span> var.stack-offset <span class="Constant">")"</span> -increment *var/reg => <span class="Constant">"ff 0/subop/increment *"</span> reg - -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"48/decrement-eax"</span> -var/<span class="Constant">ecx</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"49/decrement-ecx"</span> -var/<span class="Constant">edx</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4a/decrement-edx"</span> -var/<span class="Constant">ebx</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4b/decrement-ebx"</span> -var/<span class="Constant">esi</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4e/decrement-esi"</span> -var/<span class="Constant">edi</span> <span class="SpecialChar"><-</span> decrement => <span class="Constant">"4f/decrement-edi"</span> -decrement var => <span class="Constant">"ff 1/subop/decrement *(ebp+"</span> var.stack-offset <span class="Constant">")"</span> -decrement *var/reg => <span class="Constant">"ff 1/subop/decrement *"</span> reg - -var/reg <span class="SpecialChar"><-</span> add var2/reg2 => <span class="Constant">"01/add-to %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> add var2 => <span class="Constant">"03/add *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> add *var2/reg2 => <span class="Constant">"03/add *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -add-to var1, var2/reg => <span class="Constant">"01/add-to *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -add-to *var1/reg1, var2/reg2 => <span class="Constant">"01/add-to *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> add n => <span class="Constant">"05/add-to-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> add n => <span class="Constant">"81 0/subop/add %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -add-to var, n => <span class="Constant">"81 0/subop/add *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -add-to *var/reg, n => <span class="Constant">"81 0/subop/add *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> subtract var2/reg2 => <span class="Constant">"29/subtract-from %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> subtract var2 => <span class="Constant">"2b/subtract *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> subtract *var2/reg2 => <span class="Constant">"2b/subtract *"</span> reg2 <span class="Constant">" "</span> reg1 <span class="Constant">"/r32"</span> -subtract-from var1, var2/reg2 => <span class="Constant">"29/subtract-from *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg2 <span class="Constant">"/r32"</span> -subtract-from *var1/reg1, var2/reg2 => <span class="Constant">"29/subtract-from *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> subtract n => <span class="Constant">"2d/subtract-from-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> subtract n => <span class="Constant">"81 5/subop/subtract %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -subtract-from var, n => <span class="Constant">"81 5/subop/subtract *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -subtract-from *var/reg, n => <span class="Constant">"81 5/subop/subtract *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> and var2/reg2 => <span class="Constant">"21/and-with %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> and var2 => <span class="Constant">"23/and *(ebp+"</span> var2.stack-offset <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> and *var2/reg2 => <span class="Constant">"23/and *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -and-with var1, var2/reg => <span class="Constant">"21/and-with *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -and-with *var1/reg1, var2/reg2 => <span class="Constant">"21/and-with *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> and n => <span class="Constant">"25/and-with-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> and n => <span class="Constant">"81 4/subop/and %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -and-with var, n => <span class="Constant">"81 4/subop/and *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -and-with *var/reg, n => <span class="Constant">"81 4/subop/and *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> or var2/reg2 => <span class="Constant">"09/or-with %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> or var2 => <span class="Constant">"0b/or *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> or *var2/reg2 => <span class="Constant">"0b/or *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -or-with var1, var2/reg2 => <span class="Constant">"09/or-with *(ebp+"</span> var1.stack-offset <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -or-with *var1/reg1, var2/reg2 => <span class="Constant">"09/or-with *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> or n => <span class="Constant">"0d/or-with-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> or n => <span class="Constant">"81 1/subop/or %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -or-with var, n => <span class="Constant">"81 1/subop/or *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -or-with *var/reg, n => <span class="Constant">"81 1/subop/or *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> xor var2/reg2 => <span class="Constant">"31/xor-with %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> xor var2 => <span class="Constant">"33/xor *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> xor *var2/reg2 => <span class="Constant">"33/xor *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -xor-with var1, var2/reg => <span class="Constant">"31/xor-with *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -xor-with *var1/reg1, var2/reg2 => <span class="Constant">"31/xor-with *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> xor n => <span class="Constant">"35/xor-with-eax "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> xor n => <span class="Constant">"81 6/subop/xor %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -xor-with var, n => <span class="Constant">"81 6/subop/xor *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -xor-with *var/reg, n => <span class="Constant">"81 6/subop/xor *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> negate => <span class="Constant">"f7 3/subop/negate %"</span> reg -negate var => <span class="Constant">"f7 3/subop/negate *(ebp+"</span> var.stack-offset <span class="Constant">")"</span> -negate *var/reg => <span class="Constant">"f7 3/subop/negate *"</span> reg - -var/reg <span class="SpecialChar"><-</span> shift-left n => <span class="Constant">"c1/shift 4/subop/left %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> shift-right n => <span class="Constant">"c1/shift 5/subop/right %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> shift-right-signed n => <span class="Constant">"c1/shift 7/subop/right-signed %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -shift-left var, n => <span class="Constant">"c1/shift 4/subop/left *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -shift-left *var/reg, n => <span class="Constant">"c1/shift 4/subop/left *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -shift-right var, n => <span class="Constant">"c1/shift 5/subop/right *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -shift-right *var/reg, n => <span class="Constant">"c1/shift 5/subop/right *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -shift-right-signed var, n => <span class="Constant">"c1/shift 7/subop/right-signed *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -shift-right-signed *var/reg, n => <span class="Constant">"c1/shift 7/subop/right-signed *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/<span class="Constant">eax</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"b8/copy-to-eax "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">ecx</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"b9/copy-to-ecx "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">edx</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"ba/copy-to-edx "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">ebx</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"bb/copy-to-ebx "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">esi</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"be/copy-to-esi "</span> n <span class="Constant">"/imm32"</span> -var/<span class="Constant">edi</span> <span class="SpecialChar"><-</span> copy n => <span class="Constant">"bf/copy-to-edi "</span> n <span class="Constant">"/imm32"</span> -var/reg <span class="SpecialChar"><-</span> copy var2/reg2 => <span class="Constant">"89/<- %"</span> reg <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -copy-to var1, var2/reg => <span class="Constant">"89/<- *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -copy-to *var1/reg1, var2/reg2 => <span class="Constant">"89/<- *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> copy var2 => <span class="Constant">"8b/-> *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> copy *var2/reg2 => <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> copy n => <span class="Constant">"c7 0/subop/copy %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -copy-to var, n => <span class="Constant">"c7 0/subop/copy *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -copy-to *var/reg, n => <span class="Constant">"c7 0/subop/copy *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> copy-byte var2/reg2 => <span class="Constant">"8a/byte-> %"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - <span class="Constant">"81 4/subop/and %"</span> reg <span class="Constant">" 0xff/imm32"</span> -var/reg <span class="SpecialChar"><-</span> copy-byte *var2/reg2 => <span class="Constant">"8a/byte-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - <span class="Constant">"81 4/subop/and %"</span> reg <span class="Constant">" 0xff/imm32"</span> -copy-byte-to *var1/reg1, var2/reg2 => <span class="Constant">"88/byte<- *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> - -compare var1, var2/reg2 => <span class="Constant">"39/compare *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> reg2 <span class="Constant">"/r32"</span> -compare *var1/reg1, var2/reg2 => <span class="Constant">"39/compare *"</span> reg1 <span class="Constant">" "</span> reg2 <span class="Constant">"/r32"</span> -compare var1/reg1, var2 => <span class="Constant">"3b/compare<- *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg1 <span class="Constant">"/r32"</span> -compare var/reg, *var2/reg2 => <span class="Constant">"3b/compare<- *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -compare var/<span class="Constant">eax</span>, n => <span class="Constant">"3d/compare-eax-with "</span> n <span class="Constant">"/imm32"</span> -compare var/reg, n => <span class="Constant">"81 7/subop/compare %"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> -compare var, n => <span class="Constant">"81 7/subop/compare *(ebp+"</span> var.stack-offset <span class="Constant">") "</span> n <span class="Constant">"/imm32"</span> -compare *var/reg, n => <span class="Constant">"81 7/subop/compare *"</span> reg <span class="Constant">" "</span> n <span class="Constant">"/imm32"</span> - -var/reg <span class="SpecialChar"><-</span> multiply var2 => <span class="Constant">"0f af/multiply *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> multiply var2/reg2 => <span class="Constant">"0f af/multiply %"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> multiply *var2/reg2 => <span class="Constant">"0f af/multiply *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - -<span class="muComment">## Floating-point operations</span> - -These instructions operate on either floating-point registers (xreg) or -general-purpose registers (reg) in indirect mode. - -var/xreg <span class="SpecialChar"><-</span> add var2/xreg2 => <span class="Constant">"f3 0f 58/add %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> add var2 => <span class="Constant">"f3 0f 58/add *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> add *var2/reg2 => <span class="Constant">"f3 0f 58/add *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> subtract var2/xreg2 => <span class="Constant">"f3 0f 5c/subtract %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> subtract var2 => <span class="Constant">"f3 0f 5c/subtract *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> subtract *var2/reg2 => <span class="Constant">"f3 0f 5c/subtract *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> multiply var2/xreg2 => <span class="Constant">"f3 0f 59/multiply %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> multiply var2 => <span class="Constant">"f3 0f 59/multiply *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> multiply *var2/reg2 => <span class="Constant">"f3 0f 59/multiply *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> divide var2/xreg2 => <span class="Constant">"f3 0f 5e/divide %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> divide var2 => <span class="Constant">"f3 0f 5e/divide *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> divide *var2/reg2 => <span class="Constant">"f3 0f 5e/divide *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -There are also some exclusively floating-point instructions: - -var/xreg <span class="SpecialChar"><-</span> reciprocal var2/xreg2 => <span class="Constant">"f3 0f 53/reciprocal %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> reciprocal var2 => <span class="Constant">"f3 0f 53/reciprocal *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> reciprocal *var2/reg2 => <span class="Constant">"f3 0f 53/reciprocal *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> square-root var2/xreg2 => <span class="Constant">"f3 0f 51/square-root %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> square-root var2 => <span class="Constant">"f3 0f 51/square-root *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> square-root *var2/reg2 => <span class="Constant">"f3 0f 51/square-root *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> inverse-square-root var2/xreg2 => <span class="Constant">"f3 0f 52/inverse-square-root %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> inverse-square-root var2 => <span class="Constant">"f3 0f 52/inverse-square-root *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> inverse-square-root *var2/reg2 => <span class="Constant">"f3 0f 52/inverse-square-root *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> min var2/xreg2 => <span class="Constant">"f3 0f 5d/min %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> min var2 => <span class="Constant">"f3 0f 5d/min *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> min *var2/reg2 => <span class="Constant">"f3 0f 5d/min *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -var/xreg <span class="SpecialChar"><-</span> max var2/xreg2 => <span class="Constant">"f3 0f 5f/max %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> max var2 => <span class="Constant">"f3 0f 5f/max *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> max *var2/reg2 => <span class="Constant">"f3 0f 5f/max *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -Remember, when these instructions use indirect mode, they still use an integer -register. Floating-point registers can't hold addresses. - -Most instructions operate exclusively on integer or floating-point operands. -The only exceptions are the instructions for converting between integers and -floating-point numbers. - -var/xreg <span class="SpecialChar"><-</span> convert var2/reg2 => <span class="Constant">"f3 0f 2a/convert-to-float %"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> convert var2 => <span class="Constant">"f3 0f 2a/convert-to-float *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> convert *var2/reg2 => <span class="Constant">"f3 0f 2a/convert-to-float *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -Converting floats to ints performs rounding by default. (We don't mess with the -MXCSR control register.) - -var/reg <span class="SpecialChar"><-</span> convert var2/xreg2 => <span class="Constant">"f3 0f 2d/convert-to-int %"</span> xreg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> convert var2 => <span class="Constant">"f3 0f 2d/convert-to-int *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> convert *var2/reg2 => <span class="Constant">"f3 0f 2d/convert-to-int *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - -There's a separate instruction for truncating the fractional part. - -var/reg <span class="SpecialChar"><-</span> truncate var2/xreg2 => <span class="Constant">"f3 0f 2c/truncate-to-int %"</span> xreg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> truncate var2 => <span class="Constant">"f3 0f 2c/truncate-to-int *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg <span class="SpecialChar"><-</span> truncate *var2/reg2 => <span class="Constant">"f3 0f 2c/truncate-to-int *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - -There are no instructions accepting floating-point literals. To obtain integer -literals in floating-point registers, copy them to general-purpose registers -and then convert them to floating-point. - -One pattern you may have noticed above is that the floating-point instructions -above always write to registers. The only exceptions are `copy` instructions, -which can write to memory locations. - -var/xreg <span class="SpecialChar"><-</span> copy var2/xreg2 => <span class="Constant">"f3 0f 11/<- %"</span> xreg <span class="Constant">" "</span> xreg2 <span class="Constant">"/x32"</span> -copy-to var1, var2/xreg => <span class="Constant">"f3 0f 11/<- *(ebp+"</span> var1.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> copy var2 => <span class="Constant">"f3 0f 10/-> *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg <span class="Constant">"/x32"</span> -var/xreg <span class="SpecialChar"><-</span> copy *var2/reg2 => <span class="Constant">"f3 0f 10/-> *"</span> reg2 <span class="Constant">" "</span> xreg <span class="Constant">"/x32"</span> - -Comparisons must always start with a register: - -compare var1/xreg1, var2/xreg2 => <span class="Constant">"0f 2f/compare %"</span> xreg2 <span class="Constant">" "</span> xreg1 <span class="Constant">"/x32"</span> -compare var1/xreg1, var2 => <span class="Constant">"0f 2f/compare *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> xreg1 <span class="Constant">"/x32"</span> - -<span class="muComment">## Blocks</span> - -In themselves, blocks generate no instructions. However, if a block contains -variable declarations, they must be cleaned up when the block ends. - -Clean up var on the stack => <span class="Constant">"81 0/subop/add %esp "</span> size-of(var) <span class="Constant">"/imm32"</span> -Clean up var/reg => <span class="Constant">"8f 0/subop/pop %"</span> reg - -Clean up var/xreg => <span class="Constant">"f3 0f 10/-> *esp "</span> xreg <span class="Constant">"/x32"</span> - <span class="Constant">"81 0/subop/add %esp 4/imm32"</span> - -<span class="muComment">## Jumps</span> - -Besides having to clean up any variable declarations (see above) between -themselves and their target, jumps translate like this: - -<span class="PreProc">break</span> => <span class="Constant">"e9/jump break/disp32"</span> -<span class="PreProc">break</span> label => <span class="Constant">"e9/jump "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop</span> => <span class="Constant">"e9/jump loop/disp32"</span> -<span class="PreProc">loop</span> label => <span class="Constant">"e9/jump "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-=</span> => <span class="Constant">"0f 84/jump-if-= break/disp32"</span> -<span class="PreProc">break-if-=</span> label => <span class="Constant">"0f 84/jump-if-= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-=</span> => <span class="Constant">"0f 84/jump-if-= loop/disp32"</span> -<span class="PreProc">loop-if-=</span> label => <span class="Constant">"0f 84/jump-if-= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-!=</span> => <span class="Constant">"0f 85/jump-if-!= break/disp32"</span> -<span class="PreProc">break-if-!=</span> label => <span class="Constant">"0f 85/jump-if-!= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-!=</span> => <span class="Constant">"0f 85/jump-if-!= loop/disp32"</span> -<span class="PreProc">loop-if-!=</span> label => <span class="Constant">"0f 85/jump-if-!= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-<</span> => <span class="Constant">"0f 8c/jump-if-< break/disp32"</span> -<span class="PreProc">break-if-<</span> label => <span class="Constant">"0f 8c/jump-if-< "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-<</span> => <span class="Constant">"0f 8c/jump-if-< loop/disp32"</span> -<span class="PreProc">loop-if-<</span> label => <span class="Constant">"0f 8c/jump-if-< "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-></span> => <span class="Constant">"0f 8f/jump-if-> break/disp32"</span> -<span class="PreProc">break-if-></span> label => <span class="Constant">"0f 8f/jump-if-> "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-></span> => <span class="Constant">"0f 8f/jump-if-> loop/disp32"</span> -<span class="PreProc">loop-if-></span> label => <span class="Constant">"0f 8f/jump-if-> "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-<=</span> => <span class="Constant">"0f 8e/jump-if-<= break/disp32"</span> -<span class="PreProc">break-if-<=</span> label => <span class="Constant">"0f 8e/jump-if-<= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-<=</span> => <span class="Constant">"0f 8e/jump-if-<= loop/disp32"</span> -<span class="PreProc">loop-if-<=</span> label => <span class="Constant">"0f 8e/jump-if-<= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if->=</span> => <span class="Constant">"0f 8d/jump-if->= break/disp32"</span> -<span class="PreProc">break-if->=</span> label => <span class="Constant">"0f 8d/jump-if->= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if->=</span> => <span class="Constant">"0f 8d/jump-if->= loop/disp32"</span> -<span class="PreProc">loop-if->=</span> label => <span class="Constant">"0f 8d/jump-if->= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr<</span> => <span class="Constant">"0f 82/jump-if-addr< break/disp32"</span> -<span class="PreProc">break-if-addr<</span> label => <span class="Constant">"0f 82/jump-if-addr< "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr<</span> => <span class="Constant">"0f 82/jump-if-addr< loop/disp32"</span> -<span class="PreProc">loop-if-addr<</span> label => <span class="Constant">"0f 82/jump-if-addr< "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr></span> => <span class="Constant">"0f 87/jump-if-addr> break/disp32"</span> -<span class="PreProc">break-if-addr></span> label => <span class="Constant">"0f 87/jump-if-addr> "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr></span> => <span class="Constant">"0f 87/jump-if-addr> loop/disp32"</span> -<span class="PreProc">loop-if-addr></span> label => <span class="Constant">"0f 87/jump-if-addr> "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr<=</span> => <span class="Constant">"0f 86/jump-if-addr<= break/disp32"</span> -<span class="PreProc">break-if-addr<=</span> label => <span class="Constant">"0f 86/jump-if-addr<= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr<=</span> => <span class="Constant">"0f 86/jump-if-addr<= loop/disp32"</span> -<span class="PreProc">loop-if-addr<=</span> label => <span class="Constant">"0f 86/jump-if-addr<= "</span> label <span class="Constant">":loop/disp32"</span> - -<span class="PreProc">break-if-addr>=</span> => <span class="Constant">"0f 83/jump-if-addr>= break/disp32"</span> -<span class="PreProc">break-if-addr>=</span> label => <span class="Constant">"0f 83/jump-if-addr>= "</span> label <span class="Constant">":break/disp32"</span> -<span class="PreProc">loop-if-addr>=</span> => <span class="Constant">"0f 83/jump-if-addr>= loop/disp32"</span> -<span class="PreProc">loop-if-addr>=</span> label => <span class="Constant">"0f 83/jump-if-addr>= "</span> label <span class="Constant">":loop/disp32"</span> - -Similar float variants like `<span class="PreProc">break-if-float<`</span> are aliases for the corresponding -`addr` equivalents. The x86 instruction set stupidly has floating-point -operations only update a subset of flags. - -<span class="muComment">## Returns</span> - -The `<span class="PreProc">return</span>` instruction cleans up variable declarations just like an unconditional -`<span class="PreProc">jump</span>` to end of function, but also emits a series of copies before the final -`<span class="PreProc">jump</span>`, copying each argument of `<span class="PreProc">return</span>` to the register appropriate to the -respective function output. This doesn't work if a function output register -contains a later `<span class="PreProc">return</span>` argument (e.g. if the registers for two outputs are -swapped in `<span class="PreProc">return</span>`), so you can't do that. - -<span class="PreProc">return</span> => <span class="Constant">"c3/return"</span> - ---- - -In the following instructions types are provided for clarity even if they must -be provided in an earlier 'var' declaration. - -<span class="muComment"># Address operations</span> - -var/reg: (addr T) <span class="SpecialChar"><-</span> address var2: T - => <span class="Constant">"8d/copy-address *(ebp+"</span> var2.stack-offset <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> - -<span class="muComment"># Array operations</span> - -var/reg: (addr T) <span class="SpecialChar"><-</span> index arr/rega: (addr array T), idx/regi: int - | if size-of(T) is <span class="Constant">1</span>, <span class="Constant">2</span>, <span class="Constant">4</span> or <span class="Constant">8</span> - => <span class="Constant">"(__check-mu-array-bounds *"</span> rega <span class="Constant">" %"</span> regi <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - <span class="Constant">"8d/copy-address *("</span> rega <span class="Constant">"+"</span> regi <span class="Constant">"<<"</span> log2(size-of(T)) <span class="Constant">"+4) "</span> reg <span class="Constant">"/r32"</span> -var/reg: (addr T) <span class="SpecialChar"><-</span> index arr: (array T len), idx/regi: int - => <span class="Constant">"(__check-mu-array-bounds *(ebp+"</span> arr.stack-offset <span class="Constant">") %"</span> regi <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - <span class="Constant">"8d/copy-address *(ebp+"</span> regi <span class="Constant">"<<"</span> log2(size-of(T)) <span class="Constant">"+"</span> (arr.stack-offset + <span class="Constant">4</span>) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg: (addr T) <span class="SpecialChar"><-</span> index arr/rega: (addr array T), n - => <span class="Constant">"(__check-mu-array-bounds *"</span> rega <span class="Constant">" "</span> n <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - <span class="Constant">"8d/copy-address *("</span> rega <span class="Constant">"+"</span> (n*size-of(T)+<span class="Constant">4</span>) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg: (addr T) <span class="SpecialChar"><-</span> index arr: (array T len), n - => <span class="Constant">"(__check-mu-array-bounds *(ebp+"</span> arr.stack-offset <span class="Constant">") "</span> n <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - <span class="Constant">"8d/copy-address *(ebp+"</span> (arr.stack-offset+<span class="Constant">4</span>+n*size-of(T)) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> - -var/reg: (offset T) <span class="SpecialChar"><-</span> compute-offset arr: (addr array T), idx/regi: int <span class="muComment"># arr can be in reg or mem</span> - => <span class="Constant">"69/multiply %"</span> regi <span class="Constant">" "</span> size-of(T) <span class="Constant">"/imm32 "</span> reg <span class="Constant">"/r32"</span> -var/reg: (offset T) <span class="SpecialChar"><-</span> compute-offset arr: (addr array T), idx: int <span class="muComment"># arr can be in reg or mem</span> - => <span class="Constant">"69/multiply *(ebp+"</span> idx.stack-offset <span class="Constant">") "</span> size-of(T) <span class="Constant">"/imm32 "</span> reg <span class="Constant">"/r32"</span> -var/reg: (addr T) <span class="SpecialChar"><-</span> index arr/rega: (addr array T), o/rego: (offset T) - => <span class="Constant">"(__check-mu-array-bounds %"</span> rega <span class="Constant">" %"</span> rego <span class="Constant">" 1 \"" function-name "</span>\<span class="Constant">")"</span> - <span class="Constant">"8d/copy-address *("</span> rega <span class="Constant">"+"</span> rego <span class="Constant">"+4) "</span> reg <span class="Constant">"/r32"</span> - -Computing the length of an array is complex. - -var/reg: int <span class="SpecialChar"><-</span> length arr/reg2: (addr array T) - | if T is byte (TODO) - => <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - | if size-of(T) is <span class="Constant">4</span> or <span class="Constant">8</span> or <span class="Constant">16</span> or <span class="Constant">32</span> or <span class="Constant">64</span> or <span class="Constant">128</span> - => <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" "</span> reg <span class="Constant">"/r32"</span> - <span class="Constant">"c1/shift 5/subop/logic-right %"</span> reg <span class="Constant">" "</span> log2(size-of(T)) <span class="Constant">"/imm8"</span> - | otherwise - x86 has no instruction to divide by a literal, so - we need up to <span class="Constant">3</span> extra registers! <span class="Constant">eax</span>/<span class="Constant">edx</span> for division and say <span class="Constant">ecx</span> - => if reg is not <span class="Constant">eax</span> - <span class="Constant">"50/push-eax"</span> - if reg is not <span class="Constant">ecx</span> - <span class="Constant">"51/push-ecx"</span> - if reg is not <span class="Constant">edx</span> - <span class="Constant">"52/push-edx"</span> - <span class="Constant">"8b/-> *"</span> reg2 <span class="Constant">" eax/r32"</span> - <span class="Constant">"31/xor %edx 2/r32/edx"</span> <span class="muComment"># sign-extend, but array size can't be negative</span> - <span class="Constant">"b9/copy-to-ecx "</span> size-of(T) <span class="Constant">"/imm32"</span> - <span class="Constant">"f7 7/subop/idiv-eax-edx-by %ecx"</span> - if reg is not <span class="Constant">eax</span> - <span class="Constant">"89/<- %"</span> reg <span class="Constant">" 0/r32/eax"</span> - if reg is not <span class="Constant">edx</span> - <span class="Constant">"5a/pop-to-edx"</span> - if reg is not <span class="Constant">ecx</span> - <span class="Constant">"59/pop-to-ecx"</span> - if reg is not <span class="Constant">eax</span> - <span class="Constant">"58/pop-to-eax"</span> - -<span class="muComment"># User-defined types</span> - -If a record (product) type T was defined to have elements a, b, c, ... of -types T_a, T_b, T_c, ..., then accessing one of those elements f of type T_f: - -var/reg: (addr T_f) <span class="SpecialChar"><-</span> get var2/reg2: (addr T), f - => <span class="Constant">"8d/copy-address *("</span> reg2 <span class="Constant">"+"</span> offset(f) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> -var/reg: (addr T_f) <span class="SpecialChar"><-</span> get var2: T, f - => <span class="Constant">"8d/copy-address *(ebp+"</span> var2.stack-offset <span class="Constant">"+"</span> offset(f) <span class="Constant">") "</span> reg <span class="Constant">"/r32"</span> - -<span class="muComment"># Allocating memory</span> - -allocate in: (addr handle T) - => <span class="Constant">"(allocate Heap "</span> size-of(T) <span class="Constant">" "</span> in <span class="Constant">")"</span> - -populate in: (addr handle array T), num <span class="muComment"># can be literal or variable on stack or register</span> - => <span class="Constant">"(allocate-array2 Heap "</span> size-of(T) <span class="Constant">" "</span> num <span class="Constant">" "</span> in <span class="Constant">")"</span> - -populate-stream in: (addr handle stream T), num <span class="muComment"># can be literal or variable on stack or register</span> - => <span class="Constant">"(new-stream Heap "</span> size-of(T) <span class="Constant">" "</span> num <span class="Constant">" "</span> in <span class="Constant">")"</span> - -<span class="muComment"># Some miscellaneous helpers to avoid error-prone size computations</span> - -clear x: (addr T) - => <span class="Constant">"(zero-out "</span> s <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - -read-from-stream s: (addr stream T), out: (addr T) - => <span class="Constant">"(read-from-stream "</span> s <span class="Constant">" "</span> out <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - -write-to-stream s: (addr stream T), in: (addr T) - => <span class="Constant">"(write-to-stream "</span> s <span class="Constant">" "</span> in <span class="Constant">" "</span> size-of(T) <span class="Constant">")"</span> - -vim:ft=mu:nowrap:textwidth=<span class="Constant">0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/baremetal/rpn.mu.html b/html/rpn.mu.html index 1fd836f0..8f79a079 100644 --- a/html/baremetal/rpn.mu.html +++ b/html/rpn.mu.html @@ -2,7 +2,7 @@ <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - baremetal/rpn.mu</title> +<title>Mu - rpn.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> @@ -15,9 +15,9 @@ body { font-size:12pt; font-family: monospace; color: #000000; background-color: a { color:inherit; } * { font-size:12pt; font-size: 1em; } .PreProc { color: #c000c0; } +.Special { color: #ff6060; } .LineNr { } .Constant { color: #008787; } -.SpecialChar { color: #d70000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } .muComment { color: #005faf; } @@ -54,7 +54,7 @@ if ('onhashchange' in window) { </script> </head> <body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/baremetal/rpn.mu'>https://github.com/akkartik/mu/blob/main/baremetal/rpn.mu</a> +<a href='https://github.com/akkartik/mu/blob/main/rpn.mu'>https://github.com/akkartik/mu/blob/main/rpn.mu</a> <pre id='vimCodeElement'> <span id="L1" class="LineNr"> 1 </span><span class="muComment"># Integer arithmetic using postfix notation</span> <span id="L2" class="LineNr"> 2 </span><span class="muComment">#</span> @@ -62,7 +62,7 @@ if ('onhashchange' in window) { <span id="L4" class="LineNr"> 4 </span><span class="muComment"># Division not implemented yet.</span> <span id="L5" class="LineNr"> 5 </span><span class="muComment">#</span> <span id="L6" class="LineNr"> 6 </span><span class="muComment"># To build:</span> -<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate_mu_baremetal baremetal/rpn.mu</span> +<span id="L7" class="LineNr"> 7 </span><span class="muComment"># $ ./translate rpn.mu</span> <span id="L8" class="LineNr"> 8 </span><span class="muComment">#</span> <span id="L9" class="LineNr"> 9 </span><span class="muComment"># Example session:</span> <span id="L10" class="LineNr"> 10 </span><span class="muComment"># $ qemu-system-i386 disk.img</span> @@ -75,39 +75,39 @@ if ('onhashchange' in window) { <span id="L17" class="LineNr"> 17 </span> <span id="L18" class="LineNr"> 18 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L18'>main</a></span> <span class="Delimiter">{</span> <span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> in-storage: (stream byte <span class="Constant">0x80</span>) -<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr stream byte) <span class="SpecialChar"><-</span> address in-storage -<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="SpecialChar"><-</span> copy <span class="Constant">0</span> -<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> space/<span class="Constant">edx</span>: grapheme <span class="SpecialChar"><-</span> copy <span class="Constant">0x20</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address in-storage +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> space/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x20</span> <span id="L23" class="LineNr"> 23 </span> <span class="muComment"># read-eval-print loop</span> <span id="L24" class="LineNr"> 24 </span> <span class="Delimiter">{</span> <span id="L25" class="LineNr"> 25 </span> <span class="muComment"># print prompt</span> -<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L81'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"> "</span>, <span class="Constant">0</span>/x, <span class="Constant">0x80</span>/xmax, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='501draw-text.mu.html#L100'>draw-text-rightward</a> <span class="Constant">0</span>/screen, <span class="Constant">"> "</span>, <span class="Constant">0</span>/x, <span class="Constant">0x80</span>/xmax, y, <span class="Constant">3</span>/fg/cyan, <span class="Constant">0</span>/bg <span id="L27" class="LineNr"> 27 </span> <a href='500text-screen.mu.html#L133'>set-cursor-position</a> <span class="Constant">0</span>/screen, x, y <span id="L28" class="LineNr"> 28 </span> <span class="muComment"># read line from keyboard</span> <span id="L29" class="LineNr"> 29 </span> <a href='106stream.subx.html#L20'>clear-stream</a> in <span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">{</span> -<span id="L31" class="LineNr"> 31 </span> <a href='500text-screen.mu.html#L180'>show-cursor</a> <span class="Constant">0</span>/screen, space -<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="SpecialChar"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard +<span id="L31" class="LineNr"> 31 </span> <a href='500text-screen.mu.html#L180'>draw-cursor</a> <span class="Constant">0</span>/screen, space +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard <span id="L33" class="LineNr"> 33 </span> compare key, <span class="Constant">0xa</span>/newline <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break-if-=</span> <span id="L35" class="LineNr"> 35 </span> compare key, <span class="Constant">0</span> <span id="L36" class="LineNr"> 36 </span> <span class="PreProc">loop-if-=</span> -<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> key2/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy key +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> key2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy key <span id="L38" class="LineNr"> 38 </span> <a href='115write-byte.subx.html#L12'>append-byte</a> in, key2 -<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="SpecialChar"><-</span> copy key2 -<span id="L40" class="LineNr"> 40 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy key2 +<span id="L40" class="LineNr"> 40 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, g, <span class="Constant">0xf</span>/fg, <span class="Constant">0</span>/bg <span id="L41" class="LineNr"> 41 </span> <a href='501draw-text.mu.html#L16'>move-cursor-right</a> <span class="Constant">0</span> <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">loop</span> <span id="L43" class="LineNr"> 43 </span> <span class="Delimiter">}</span> <span id="L44" class="LineNr"> 44 </span> <span class="muComment"># clear cursor</span> -<span id="L45" class="LineNr"> 45 </span> <a href='501draw-text.mu.html#L65'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, space, <span class="Constant">3</span>/fg/never-used, <span class="Constant">0</span>/bg +<span id="L45" class="LineNr"> 45 </span> <a href='501draw-text.mu.html#L84'>draw-grapheme-at-cursor</a> <span class="Constant">0</span>/screen, space, <span class="Constant">3</span>/fg/never-used, <span class="Constant">0</span>/bg <span id="L46" class="LineNr"> 46 </span> <span class="muComment"># parse and eval</span> -<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L63'>simplify</a> in +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L63'>simplify</a> in <span id="L48" class="LineNr"> 48 </span> <span class="muComment"># print</span> -<span id="L49" class="LineNr"> 49 </span> y <span class="SpecialChar"><-</span> increment -<span id="L50" class="LineNr"> 50 </span> out, y <span class="SpecialChar"><-</span> <a href='501draw-text.mu.html#L308'>draw-int32-decimal-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, out, <span class="Constant">0</span>/xmin, y, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x30</span>/ymax, <span class="Constant">0</span>/x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L49" class="LineNr"> 49 </span> y <span class="Special"><-</span> increment +<span id="L50" class="LineNr"> 50 </span> out, y <span class="Special"><-</span> <a href='501draw-text.mu.html#L297'>draw-int32-decimal-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, out, <span class="Constant">0</span>/xmin, y, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x30</span>/ymax, <span class="Constant">0</span>/x, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg <span id="L51" class="LineNr"> 51 </span> <span class="muComment"># newline</span> -<span id="L52" class="LineNr"> 52 </span> y <span class="SpecialChar"><-</span> increment +<span id="L52" class="LineNr"> 52 </span> y <span class="Special"><-</span> increment <span id="L53" class="LineNr"> 53 </span> <span class="muComment">#</span> <span id="L54" class="LineNr"> 54 </span> <span class="PreProc">loop</span> <span id="L55" class="LineNr"> 55 </span> <span class="Delimiter">}</span> @@ -120,92 +120,92 @@ if ('onhashchange' in window) { <span id="L62" class="LineNr"> 62 </span> <span id="L63" class="LineNr"> 63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L63'>simplify</a></span> in: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> word-storage: slice -<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> word/<span class="Constant">ecx</span>: (addr slice) <span class="SpecialChar"><-</span> address word-storage +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> word/<span class="Constant">ecx</span>: (addr slice) <span class="Special"><-</span> address word-storage <span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> stack-storage: <a href='rpn.mu.html#L58'>int-stack</a> -<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> stack/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="SpecialChar"><-</span> address stack-storage +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> stack/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="Special"><-</span> address stack-storage <span id="L68" class="LineNr"> 68 </span> <a href='rpn.mu.html#L117'>initialize-int-stack</a> stack, <span class="Constant">0x10</span> <span id="L69" class="LineNr"> 69 </span> $simplify:word-loop: <span class="Delimiter">{</span> <span id="L70" class="LineNr"> 70 </span> <a href='127next-word.subx.html#L11'>next-word</a> in, word -<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='123slice.subx.html#L9'>slice-empty?</a> word +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L9'>slice-empty?</a> word <span id="L72" class="LineNr"> 72 </span> compare done?, <span class="Constant">0</span> <span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-!=</span> <span id="L74" class="LineNr"> 74 </span> <span class="muComment"># if word is an operator, perform it</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> -<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"+"</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> is-add?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"+"</span> <span id="L77" class="LineNr"> 77 </span> compare is-add?, <span class="Constant">0</span> <span id="L78" class="LineNr"> 78 </span> <span class="PreProc">break-if-=</span> -<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack -<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b -<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack -<span id="L82" class="LineNr"> 82 </span> a <span class="SpecialChar"><-</span> add b +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack +<span id="L82" class="LineNr"> 82 </span> a <span class="Special"><-</span> add b <span id="L83" class="LineNr"> 83 </span> <a href='rpn.mu.html#L125'>push-int-stack</a> stack, a <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">loop</span> $simplify:word-loop <span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> <span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">{</span> -<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"-"</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> is-sub?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"-"</span> <span id="L88" class="LineNr"> 88 </span> compare is-sub?, <span class="Constant">0</span> <span id="L89" class="LineNr"> 89 </span> <span class="PreProc">break-if-=</span> -<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack -<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b -<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack -<span id="L93" class="LineNr"> 93 </span> a <span class="SpecialChar"><-</span> subtract b +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack +<span id="L93" class="LineNr"> 93 </span> a <span class="Special"><-</span> subtract b <span id="L94" class="LineNr"> 94 </span> <a href='rpn.mu.html#L125'>push-int-stack</a> stack, a <span id="L95" class="LineNr"> 95 </span> <span class="PreProc">loop</span> $simplify:word-loop <span id="L96" class="LineNr"> 96 </span> <span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">{</span> -<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="SpecialChar"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"*"</span> +<span id="L98" class="LineNr"> 98 </span> <span class="PreProc">var</span> is-mul?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='123slice.subx.html#L120'>slice-equal?</a> word, <span class="Constant">"*"</span> <span id="L99" class="LineNr"> 99 </span> compare is-mul?, <span class="Constant">0</span> <span id="L100" class="LineNr">100 </span> <span class="PreProc">break-if-=</span> -<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack -<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy _b -<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack -<span id="L104" class="LineNr">104 </span> a <span class="SpecialChar"><-</span> multiply b +<span id="L101" class="LineNr">101 </span> <span class="PreProc">var</span> _b/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> b/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _b +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> a/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack +<span id="L104" class="LineNr">104 </span> a <span class="Special"><-</span> multiply b <span id="L105" class="LineNr">105 </span> <a href='rpn.mu.html#L125'>push-int-stack</a> stack, a <span id="L106" class="LineNr">106 </span> <span class="PreProc">loop</span> $simplify:word-loop <span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> <span id="L108" class="LineNr">108 </span> <span class="muComment"># otherwise it's an int</span> -<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> word +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> n/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='311decimal-int.subx.html#L4'>parse-decimal-int-from-slice</a> word <span id="L110" class="LineNr">110 </span> <a href='rpn.mu.html#L125'>push-int-stack</a> stack, n <span id="L111" class="LineNr">111 </span> <span class="PreProc">loop</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">}</span> -<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='rpn.mu.html#L137'>pop-int-stack</a> stack <span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> result <span id="L115" class="LineNr">115 </span><span class="Delimiter">}</span> <span id="L116" class="LineNr">116 </span> <span id="L117" class="LineNr">117 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L117'>initialize-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L58'>int-stack</a>), n: int <span class="Delimiter">{</span> -<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array int) <span class="SpecialChar"><-</span> get self, data +<span id="L118" class="LineNr">118 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array int) <span class="Special"><-</span> get self, data <span id="L120" class="LineNr">120 </span> populate d, n -<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> top/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> get self, top +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> top/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L122" class="LineNr">122 </span> copy-to *top, <span class="Constant">0</span> <span id="L123" class="LineNr">123 </span><span class="Delimiter">}</span> <span id="L124" class="LineNr">124 </span> <span id="L125" class="LineNr">125 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L125'>push-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L58'>int-stack</a>), _val: int <span class="Delimiter">{</span> -<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> get self, top -<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> get self, data -<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="SpecialChar"><-</span> index data, top -<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy _val +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="Special"><-</span> get self, data +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> index data, top +<span id="L132" class="LineNr">132 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _val <span id="L133" class="LineNr">133 </span> copy-to *dest-addr, val <span id="L134" class="LineNr">134 </span> add-to *top-addr, <span class="Constant">1</span> <span id="L135" class="LineNr">135 </span><span class="Delimiter">}</span> <span id="L136" class="LineNr">136 </span> <span id="L137" class="LineNr">137 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='rpn.mu.html#L137'>pop-int-stack</a></span> _self: (addr <a href='rpn.mu.html#L58'>int-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> -<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="SpecialChar"><-</span> copy _self -<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar"><-</span> get self, top +<span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='rpn.mu.html#L58'>int-stack</a>) <span class="Special"><-</span> copy _self +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top <span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> <span id="L141" class="LineNr">141 </span> compare *top-addr, <span class="Constant">0</span> <span id="L142" class="LineNr">142 </span> <span class="PreProc">break-if-></span> <span id="L143" class="LineNr">143 </span> <span class="PreProc">return</span> <span class="Constant">0</span> <span id="L144" class="LineNr">144 </span> <span class="Delimiter">}</span> <span id="L145" class="LineNr">145 </span> subtract-from *top-addr, <span class="Constant">1</span> -<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="SpecialChar"><-</span> get self, data -<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="SpecialChar"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah -<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="SpecialChar"><-</span> copy *top-addr -<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar"><-</span> index data, top -<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="SpecialChar"><-</span> copy *result-addr +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array int) <span class="Special"><-</span> get self, data +<span id="L147" class="LineNr">147 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array int) <span class="Special"><-</span> <a href='120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> index data, top +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *result-addr <span id="L151" class="LineNr">151 </span> <span class="PreProc">return</span> val <span id="L152" class="LineNr">152 </span><span class="Delimiter">}</span> </pre> diff --git a/html/run_one_test.subx.html b/html/run_one_test.subx.html deleted file mode 100644 index ad577913..00000000 --- a/html/run_one_test.subx.html +++ /dev/null @@ -1,91 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> -<html> -<head> -<meta http-equiv="content-type" content="text/html; charset=UTF-8"> -<title>Mu - run_one_test.subx</title> -<meta name="Generator" content="Vim/8.1"> -<meta name="plugin-version" content="vim8.1_v1"> -<meta name="syntax" content="none"> -<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> -<meta name="colorscheme" content="minimal-light"> -<style type="text/css"> -<!-- -pre { font-family: monospace; color: #000000; background-color: #c6c6c6; } -body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } -a { color:inherit; } -* { font-size:12pt; font-size: 1em; } -.subxComment { color: #005faf; } -.subxS2Comment { color: #8a8a8a; } -.LineNr { } -.subxS1Comment { color: #0000af; } -.SpecialChar { color: #d70000; } -.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; } ---> -</style> - -<script type='text/javascript'> -<!-- - -/* function to open any folds containing a jumped-to line before jumping to it */ -function JumpToLine() -{ - var lineNum; - lineNum = window.location.hash; - lineNum = lineNum.substr(1); /* strip off '#' */ - - if (lineNum.indexOf('L') == -1) { - lineNum = 'L'+lineNum; - } - var lineElem = document.getElementById(lineNum); - /* Always jump to new location even if the line was hidden inside a fold, or - * we corrected the raw number to a line ID. - */ - if (lineElem) { - lineElem.scrollIntoView(true); - } - return true; -} -if ('onhashchange' in window) { - window.onhashchange = JumpToLine; -} - ---> -</script> -</head> -<body onload='JumpToLine();'> -<a href='https://github.com/akkartik/mu/blob/main/run_one_test.subx'>https://github.com/akkartik/mu/blob/main/run_one_test.subx</a> -<pre id='vimCodeElement'> -<span id="L1" class="LineNr"> 1 </span><span class="subxComment"># run a single test</span> -<span id="L2" class="LineNr"> 2 </span> -<span id="L3" class="LineNr"> 3 </span>== code -<span id="L4" class="LineNr"> 4 </span><span class="subxComment"># instruction effective address register displacement immediate</span> -<span id="L5" class="LineNr"> 5 </span><span class="subxS1Comment"># . op subop mod rm32 base index scale r32</span> -<span id="L6" class="LineNr"> 6 </span><span class="subxS1Comment"># . 1-3 bytes 3 bits 2 bits 3 bits 3 bits 3 bits 2 bits 2 bits 0/1/2/4 bytes 0/1/2/4 bytes</span> -<span id="L7" class="LineNr"> 7 </span> -<span id="L8" class="LineNr"> 8 </span><span class="SpecialChar">Entry</span>: -<span id="L9" class="LineNr"> 9 </span> <span class="subxComment"># Heap = new-segment(64KB)</span> -<span id="L10" class="LineNr">10 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L11" class="LineNr">11 </span> 68/push <span class="SpecialChar"><a href='120allocate.subx.html#L27'>Heap</a></span>/imm32 -<span id="L12" class="LineNr">12 </span> ff 6/subop/push 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="SpecialChar"><a href='120allocate.subx.html#L34'>Heap-size</a></span>/disp32 <span class="subxComment"># push *Heap-size</span> -<span id="L13" class="LineNr">13 </span> <span class="subxS2Comment"># . . call</span> -<span id="L14" class="LineNr">14 </span> e8/call <a href='104new-segment.subx.html#L40'>new-segment</a>/disp32 -<span id="L15" class="LineNr">15 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L16" class="LineNr">16 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 8/imm32 <span class="subxComment"># add to esp</span> -<span id="L17" class="LineNr">17 </span> <span class="subxComment"># initialize-trace-stream(256KB)</span> -<span id="L18" class="LineNr">18 </span> <span class="subxS2Comment"># . . push args</span> -<span id="L19" class="LineNr">19 </span> 68/push 0x40000/imm32/256KB -<span id="L20" class="LineNr">20 </span> <span class="subxS2Comment"># . . call</span> -<span id="L21" class="LineNr">21 </span> e8/call <a href='107trace.subx.html#L48'>initialize-trace-stream</a>/disp32 -<span id="L22" class="LineNr">22 </span> <span class="subxS2Comment"># . . discard args</span> -<span id="L23" class="LineNr">23 </span> 81 0/subop/add 3/mod/direct 4/rm32/esp <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> <span class="Normal"> . </span> 4/imm32 <span class="subxComment"># add to esp</span> -<span id="L24" class="LineNr">24 </span> <span class="subxComment"># for debugging: run a single test</span> -<span id="L25" class="LineNr">25 </span> e8/call $TEST_NAME/disp32 -<span id="L26" class="LineNr">26 </span> 8b/copy 0/mod/indirect 5/rm32/.disp32 <span class="Normal"> . </span> <span class="Normal"> . </span> 3/r32/ebx <span class="SpecialChar"><a href='102test.subx.html#L89'>Num-test-failures</a></span>/disp32 <span class="subxComment"># copy *Num-test-failures to ebx</span> -<span id="L27" class="LineNr">27 </span> b8/copy-to-eax 1/imm32/exit -<span id="L28" class="LineNr">28 </span> cd/syscall 0x80/imm8 -<span id="L29" class="LineNr">29 </span> -<span id="L30" class="LineNr">30 </span><span class="subxS2Comment"># . . vim:nowrap:textwidth=0</span> -</pre> -</body> -</html> -<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/cell.mu.html b/html/shell/cell.mu.html new file mode 100644 index 00000000..3713e3e9 --- /dev/null +++ b/html/shell/cell.mu.html @@ -0,0 +1,174 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/cell.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/cell.mu'>https://github.com/akkartik/mu/blob/main/shell/cell.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='cell.mu.html#L1'>cell</a> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">type</span>: int +<span id="L3" class="LineNr"> 3 </span> <span class="muComment"># type 0: pair; the unit of lists, trees, DAGS or graphs</span> +<span id="L4" class="LineNr"> 4 </span> left: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L5" class="LineNr"> 5 </span> right: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L6" class="LineNr"> 6 </span> <span class="muComment"># type 1: number</span> +<span id="L7" class="LineNr"> 7 </span> number-data: float +<span id="L8" class="LineNr"> 8 </span> <span class="muComment"># type 2: symbol</span> +<span id="L9" class="LineNr"> 9 </span> <span class="muComment"># type 3: string</span> +<span id="L10" class="LineNr"> 10 </span> text-data: (handle stream byte) +<span id="L11" class="LineNr"> 11 </span> <span class="muComment"># type 4: primitive function</span> +<span id="L12" class="LineNr"> 12 </span> index-data: int +<span id="L13" class="LineNr"> 13 </span> <span class="muComment"># TODO: array, (associative) table, stream</span> +<span id="L14" class="LineNr"> 14 </span><span class="Delimiter">}</span> +<span id="L15" class="LineNr"> 15 </span> +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L16'>allocate-symbol</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L18" class="LineNr"> 18 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L19" class="LineNr"> 19 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L21" class="LineNr"> 21 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data +<span id="L23" class="LineNr"> 23 </span> populate-stream dest-ah, <span class="Constant">0x40</span>/max-symbol-size +<span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span> +<span id="L25" class="LineNr"> 25 </span> +<span id="L26" class="LineNr"> 26 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L26'>initialize-symbol</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), val: (addr array byte) <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *dest-ah +<span id="L31" class="LineNr"> 31 </span> <a href='../108write.subx.html#L11'>write</a> dest, val +<span id="L32" class="LineNr"> 32 </span><span class="Delimiter">}</span> +<span id="L33" class="LineNr"> 33 </span> +<span id="L34" class="LineNr"> 34 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L34'>new-symbol</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), val: (addr array byte) <span class="Delimiter">{</span> +<span id="L35" class="LineNr"> 35 </span> <a href='cell.mu.html#L16'>allocate-symbol</a> out +<span id="L36" class="LineNr"> 36 </span> <a href='cell.mu.html#L26'>initialize-symbol</a> out, val +<span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L39'>allocate-number</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L41" class="LineNr"> 41 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L44" class="LineNr"> 44 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">1</span>/number +<span id="L45" class="LineNr"> 45 </span><span class="Delimiter">}</span> +<span id="L46" class="LineNr"> 46 </span> +<span id="L47" class="LineNr"> 47 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L47'>initialize-integer</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> src/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert n +<span id="L52" class="LineNr"> 52 </span> copy-to *dest-addr, src +<span id="L53" class="LineNr"> 53 </span><span class="Delimiter">}</span> +<span id="L54" class="LineNr"> 54 </span> +<span id="L55" class="LineNr"> 55 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L55'>new-integer</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L56" class="LineNr"> 56 </span> <a href='cell.mu.html#L39'>allocate-number</a> out +<span id="L57" class="LineNr"> 57 </span> <a href='cell.mu.html#L47'>initialize-integer</a> out, n +<span id="L58" class="LineNr"> 58 </span><span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> +<span id="L60" class="LineNr"> 60 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L60'>initialize-float</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: float <span class="Delimiter">{</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> src/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy n +<span id="L65" class="LineNr"> 65 </span> copy-to *dest-ah, src +<span id="L66" class="LineNr"> 66 </span><span class="Delimiter">}</span> +<span id="L67" class="LineNr"> 67 </span> +<span id="L68" class="LineNr"> 68 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L68'>new-float</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: float <span class="Delimiter">{</span> +<span id="L69" class="LineNr"> 69 </span> <a href='cell.mu.html#L39'>allocate-number</a> out +<span id="L70" class="LineNr"> 70 </span> <a href='cell.mu.html#L60'>initialize-float</a> out, n +<span id="L71" class="LineNr"> 71 </span><span class="Delimiter">}</span> +<span id="L72" class="LineNr"> 72 </span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L73'>allocate-pair</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L75" class="LineNr"> 75 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L76" class="LineNr"> 76 </span> <span class="muComment"># new cells have type pair by default</span> +<span id="L77" class="LineNr"> 77 </span><span class="Delimiter">}</span> +<span id="L78" class="LineNr"> 78 </span> +<span id="L79" class="LineNr"> 79 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L79'>initialize-pair</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), left: (handle <a href='cell.mu.html#L1'>cell</a>), right: (handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get out-addr, left +<span id="L83" class="LineNr"> 83 </span> <a href='../120allocate.subx.html#L455'>copy-handle</a> left, dest-ah +<span id="L84" class="LineNr"> 84 </span> dest-ah <span class="Special"><-</span> get out-addr, right +<span id="L85" class="LineNr"> 85 </span> <a href='../120allocate.subx.html#L455'>copy-handle</a> right, dest-ah +<span id="L86" class="LineNr"> 86 </span><span class="Delimiter">}</span> +<span id="L87" class="LineNr"> 87 </span> +<span id="L88" class="LineNr"> 88 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L88'>new-pair</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), left: (handle <a href='cell.mu.html#L1'>cell</a>), right: (handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L89" class="LineNr"> 89 </span> <a href='cell.mu.html#L73'>allocate-pair</a> out +<span id="L90" class="LineNr"> 90 </span> <a href='cell.mu.html#L79'>initialize-pair</a> out, left, right +<span id="L91" class="LineNr"> 91 </span><span class="Delimiter">}</span> +<span id="L92" class="LineNr"> 92 </span> +<span id="L93" class="LineNr"> 93 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L93'>allocate-primitive-function</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L95" class="LineNr"> 95 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out-addr, <span class="PreProc">type</span> +<span id="L98" class="LineNr"> 98 </span> copy-to *<span class="PreProc">type</span>, <span class="Constant">4</span>/primitive-function +<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> +<span id="L100" class="LineNr">100 </span> +<span id="L101" class="LineNr">101 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L101'>initialize-primitive-function</a></span> _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get out-addr, index-data +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy n +<span id="L106" class="LineNr">106 </span> copy-to *dest-addr, src +<span id="L107" class="LineNr">107 </span><span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> +<span id="L109" class="LineNr">109 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='cell.mu.html#L109'>new-primitive-function</a></span> out: (addr handle <a href='cell.mu.html#L1'>cell</a>), n: int <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <a href='cell.mu.html#L93'>allocate-primitive-function</a> out +<span id="L111" class="LineNr">111 </span> <a href='cell.mu.html#L101'>initialize-primitive-function</a> out, n +<span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/eval.mu.html b/html/shell/eval.mu.html new file mode 100644 index 00000000..274475dd --- /dev/null +++ b/html/shell/eval.mu.html @@ -0,0 +1,808 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/eval.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } +.Folded { color: #080808; background-color: #949494; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/eval.mu'>https://github.com/akkartik/mu/blob/main/shell/eval.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># env is an alist of ((sym . val) (sym . val) ...)</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># we never modify `in` or `env`</span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L3'>evaluate</a></span> _in: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L5" class="Folded"> 5 </span><span class="Folded">+-- 12 lines: # trace "evaluate " in " in environment " env -----------------------------------------------------------------------------------------------------------------------------</span> +<span id="L17" class="LineNr"> 17 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in +<span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">{</span> +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">var</span> <a href='print.mu.html#L116'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> in-addr +<span id="L21" class="LineNr"> 21 </span> compare <a href='print.mu.html#L116'>nil?</a>, <span class="Constant">0</span>/false +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">break-if-=</span> +<span id="L23" class="LineNr"> 23 </span> <span class="muComment"># nil is a literal</span> +<span id="L24" class="LineNr"> 24 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"nil"</span> +<span id="L25" class="LineNr"> 25 </span> copy-object _in, out +<span id="L26" class="LineNr"> 26 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">return</span> +<span id="L28" class="LineNr"> 28 </span> <span class="Delimiter">}</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in-addr, <span class="PreProc">type</span> +<span id="L30" class="LineNr"> 30 </span> compare *in-type, <span class="Constant">1</span>/number +<span id="L31" class="LineNr"> 31 </span> <span class="Delimiter">{</span> +<span id="L32" class="LineNr"> 32 </span> <span class="PreProc">break-if-!=</span> +<span id="L33" class="LineNr"> 33 </span> <span class="muComment"># numbers are literals</span> +<span id="L34" class="LineNr"> 34 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"number"</span> +<span id="L35" class="LineNr"> 35 </span> copy-object _in, out +<span id="L36" class="LineNr"> 36 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">return</span> +<span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">}</span> +<span id="L39" class="LineNr"> 39 </span> compare *in-type, <span class="Constant">2</span>/symbol +<span id="L40" class="LineNr"> 40 </span> <span class="Delimiter">{</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">break-if-!=</span> +<span id="L42" class="LineNr"> 42 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"symbol"</span> +<span id="L43" class="LineNr"> 43 </span> <a href='eval.mu.html#L321'>lookup-symbol</a> in-addr, out, env-h, trace +<span id="L44" class="LineNr"> 44 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">return</span> +<span id="L46" class="LineNr"> 46 </span> <span class="Delimiter">}</span> +<span id="L47" class="LineNr"> 47 </span> <span class="muComment"># in-addr is a syntax tree</span> +<span id="L48" class="LineNr"> 48 </span> $evaluate:anonymous-function: <span class="Delimiter">{</span> +<span id="L49" class="LineNr"> 49 </span> <span class="muComment"># trees starting with "fn" are anonymous functions and therefore literals</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> expr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr +<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># if its first elem is not "fn", break</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in-addr, left +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> <a href='eval.mu.html#L694'>fn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='eval.mu.html#L694'>fn?</a> first +<span id="L55" class="LineNr"> 55 </span> compare <a href='eval.mu.html#L694'>fn?</a>, <span class="Constant">0</span>/false +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-=</span> +<span id="L57" class="LineNr"> 57 </span> <span class="muComment">#</span> +<span id="L58" class="LineNr"> 58 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"anonymous function"</span> +<span id="L59" class="LineNr"> 59 </span> copy-object _in, out +<span id="L60" class="LineNr"> 60 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">return</span> +<span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> +<span id="L63" class="LineNr"> 63 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"function call"</span> +<span id="L64" class="LineNr"> 64 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"evaluating list elements"</span> +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> evaluated-list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> evaluated-list-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address evaluated-list-storage +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> curr-out-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy evaluated-list-ah +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy in-addr +<span id="L69" class="LineNr"> 69 </span> $evaluate-list:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L70" class="LineNr"> 70 </span> <a href='cell.mu.html#L73'>allocate-pair</a> curr-out-ah +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> <a href='print.mu.html#L116'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> curr +<span id="L72" class="LineNr"> 72 </span> compare <a href='print.mu.html#L116'>nil?</a>, <span class="Constant">0</span>/false +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-!=</span> +<span id="L74" class="LineNr"> 74 </span> <span class="muComment"># eval left</span> +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> curr-out/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-out-ah +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> left-out-ah/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-out, left +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, left +<span id="L78" class="LineNr"> 78 </span> <a href='eval.mu.html#L3'>evaluate</a> left-ah, left-out-ah, env-h, trace +<span id="L79" class="LineNr"> 79 </span> <span class="muComment">#</span> +<span id="L80" class="LineNr"> 80 </span> curr-out-ah <span class="Special"><-</span> get curr-out, right +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah +<span id="L83" class="LineNr"> 83 </span> curr <span class="Special"><-</span> copy right +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">loop</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> evaluated-list/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *evaluated-list-ah +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> function-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get evaluated-list, left +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get evaluated-list, right +<span id="L89" class="LineNr"> 89 </span><span class="CommentedCode">#? dump-cell args-ah</span> +<span id="L90" class="LineNr"> 90 </span><span class="CommentedCode">#? abort "aaa"</span> +<span id="L91" class="LineNr"> 91 </span> <a href='eval.mu.html#L104'>apply</a> function-ah, args-ah, out, env-h, trace +<span id="L92" class="LineNr"> 92 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L93" class="Folded"> 93 </span><span class="Folded">+-- 9 lines: # trace "=> " out ---------------------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L102" class="LineNr">102 </span><span class="Delimiter">}</span> +<span id="L103" class="LineNr">103 </span> +<span id="L104" class="LineNr">104 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L104'>apply</a></span> _f-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> f-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f-ah +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> _f/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *f-ah +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f +<span id="L108" class="LineNr">108 </span> <span class="muComment"># call primitive functions</span> +<span id="L109" class="LineNr">109 </span> <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> f-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get f, <span class="PreProc">type</span> +<span id="L111" class="LineNr">111 </span> compare *f-type, <span class="Constant">4</span>/primitive-function +<span id="L112" class="LineNr">112 </span> <span class="PreProc">break-if-!=</span> +<span id="L113" class="LineNr">113 </span> <a href='eval.mu.html#L261'>apply-primitive</a> f, args-ah, out, env-h, trace +<span id="L114" class="LineNr">114 </span> <span class="PreProc">return</span> +<span id="L115" class="LineNr">115 </span> <span class="Delimiter">}</span> +<span id="L116" class="LineNr">116 </span> <span class="muComment"># if it's not a primitive function it must be an anonymous function</span> +<span id="L117" class="Folded">117 </span><span class="Folded">+-- 12 lines: # trace "apply anonymous function " f " in environment " env --------------------------------------------------------------------------------------------------------------</span> +<span id="L129" class="LineNr">129 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L130" class="LineNr">130 </span> <span class="Delimiter">{</span> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> f-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get f, <span class="PreProc">type</span> +<span id="L132" class="LineNr">132 </span> compare *f-type, <span class="Constant">0</span>/pair +<span id="L133" class="LineNr">133 </span> <span class="PreProc">break-if-!=</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get f, left +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> <a href='eval.mu.html#L694'>fn?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='eval.mu.html#L694'>fn?</a> first +<span id="L137" class="LineNr">137 </span> compare <a href='eval.mu.html#L694'>fn?</a>, <span class="Constant">0</span>/false +<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-=</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> rest-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get f, right +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> rest/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *rest-ah +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> params-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, left +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get rest, right +<span id="L143" class="LineNr">143 </span> <a href='eval.mu.html#L150'>apply-function</a> params-ah, args-ah, body-ah, out, env-h, trace +<span id="L144" class="LineNr">144 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L145" class="LineNr">145 </span> <span class="PreProc">return</span> +<span id="L146" class="LineNr">146 </span> <span class="Delimiter">}</span> +<span id="L147" class="LineNr">147 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"unknown function"</span> +<span id="L148" class="LineNr">148 </span><span class="Delimiter">}</span> +<span id="L149" class="LineNr">149 </span> +<span id="L150" class="LineNr">150 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L150'>apply-function</a></span> params-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), _body-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L151" class="LineNr">151 </span> <span class="muComment"># push bindings for params to env</span> +<span id="L152" class="LineNr">152 </span> <span class="PreProc">var</span> new-env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L153" class="LineNr">153 </span> <span class="PreProc">var</span> new-env-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address new-env-storage +<span id="L154" class="LineNr">154 </span> <a href='eval.mu.html#L188'>push-bindings</a> params-ah, args-ah, env-h, new-env-ah, trace +<span id="L155" class="LineNr">155 </span> <span class="muComment"># eval all expressions in body, writing result to `out` each time</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> body-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _body-ah +<span id="L157" class="LineNr">157 </span> $apply-function:body: <span class="Delimiter">{</span> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> body/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *body-ah +<span id="L159" class="LineNr">159 </span> <span class="muComment"># stop when body is nil</span> +<span id="L160" class="LineNr">160 </span> <span class="Delimiter">{</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> body-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> body +<span id="L162" class="LineNr">162 </span> compare body-nil?, <span class="Constant">0</span>/false +<span id="L163" class="LineNr">163 </span> <span class="PreProc">break-if-!=</span> $apply-function:body +<span id="L164" class="LineNr">164 </span> <span class="Delimiter">}</span> +<span id="L165" class="LineNr">165 </span> <span class="muComment"># evaluate each expression, writing result to `out`</span> +<span id="L166" class="LineNr">166 </span> <span class="Delimiter">{</span> +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> curr-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get body, left +<span id="L168" class="LineNr">168 </span> <a href='eval.mu.html#L3'>evaluate</a> curr-ah, out, *new-env-ah, trace +<span id="L169" class="LineNr">169 </span> <span class="Delimiter">}</span> +<span id="L170" class="LineNr">170 </span> <span class="muComment">#</span> +<span id="L171" class="LineNr">171 </span> body-ah <span class="Special"><-</span> get body, right +<span id="L172" class="LineNr">172 </span> <span class="PreProc">loop</span> +<span id="L173" class="LineNr">173 </span> <span class="Delimiter">}</span> +<span id="L174" class="LineNr">174 </span> <span class="muComment"># `out` contains result of evaluating final expression</span> +<span id="L175" class="LineNr">175 </span><span class="Delimiter">}</span> +<span id="L176" class="LineNr">176 </span> +<span id="L177" class="LineNr">177 </span><span class="muComment"># Bind params to corresponding args and add the bindings to old-env. Return</span> +<span id="L178" class="LineNr">178 </span><span class="muComment"># the result in env-ah.</span> +<span id="L179" class="LineNr">179 </span><span class="muComment">#</span> +<span id="L180" class="LineNr">180 </span><span class="muComment"># We never modify old-env, but we point to it. This way other parts of the</span> +<span id="L181" class="LineNr">181 </span><span class="muComment"># interpreter can continue using old-env, and everything works harmoniously</span> +<span id="L182" class="LineNr">182 </span><span class="muComment"># even though no cells are copied around.</span> +<span id="L183" class="LineNr">183 </span><span class="muComment">#</span> +<span id="L184" class="LineNr">184 </span><span class="muComment"># env should always be a DAG (ignoring internals of values). It doesn't have</span> +<span id="L185" class="LineNr">185 </span><span class="muComment"># to be a tree (some values may be shared), but there are also no cycles.</span> +<span id="L186" class="LineNr">186 </span><span class="muComment">#</span> +<span id="L187" class="LineNr">187 </span><span class="muComment"># Learn more: <a href="https://en.wikipedia.org/wiki/Persistent_data_structure">https://en.wikipedia.org/wiki/Persistent_data_structure</a></span> +<span id="L188" class="LineNr">188 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L188'>push-bindings</a></span> _params-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), old-env-h: (handle <a href='cell.mu.html#L1'>cell</a>), env-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> params-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _params-ah +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L191" class="LineNr">191 </span> <span class="PreProc">var</span> _params/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *params-ah +<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> params/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _params +<span id="L193" class="LineNr">193 </span> <span class="Delimiter">{</span> +<span id="L194" class="LineNr">194 </span> <span class="PreProc">var</span> params-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> params +<span id="L195" class="LineNr">195 </span> compare params-nil?, <span class="Constant">0</span>/false +<span id="L196" class="LineNr">196 </span> <span class="PreProc">break-if-=</span> +<span id="L197" class="LineNr">197 </span> <span class="muComment"># nil is a literal</span> +<span id="L198" class="LineNr">198 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"done with push-bindings"</span> +<span id="L199" class="LineNr">199 </span> <a href='../120allocate.subx.html#L455'>copy-handle</a> old-env-h, env-ah +<span id="L200" class="LineNr">200 </span> <span class="PreProc">return</span> +<span id="L201" class="LineNr">201 </span> <span class="Delimiter">}</span> +<span id="L202" class="LineNr">202 </span> <span class="muComment"># Params can only be symbols or pairs. Args can be anything.</span> +<span id="L203" class="Folded">203 </span><span class="Folded">+-- 14 lines: # trace "pushing bindings from " params " to " args -----------------------------------------------------------------------------------------------------------------------</span> +<span id="L217" class="LineNr">217 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> params-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get params, <span class="PreProc">type</span> +<span id="L219" class="LineNr">219 </span> compare *params-type, <span class="Constant">2</span>/symbol +<span id="L220" class="LineNr">220 </span> <span class="Delimiter">{</span> +<span id="L221" class="LineNr">221 </span> <span class="PreProc">break-if-!=</span> +<span id="L222" class="LineNr">222 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"symbol; binding to all remaining args"</span> +<span id="L223" class="LineNr">223 </span> <span class="muComment"># create a new binding</span> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">var</span> new-binding-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> new-binding-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address new-binding-storage +<span id="L226" class="LineNr">226 </span> <a href='cell.mu.html#L88'>new-pair</a> new-binding-ah, *params-ah, *args-ah +<span id="L227" class="LineNr">227 </span> <span class="muComment"># push it to env</span> +<span id="L228" class="LineNr">228 </span> <a href='cell.mu.html#L88'>new-pair</a> env-ah, *new-binding-ah, old-env-h +<span id="L229" class="LineNr">229 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L230" class="LineNr">230 </span> <span class="PreProc">return</span> +<span id="L231" class="LineNr">231 </span> <span class="Delimiter">}</span> +<span id="L232" class="LineNr">232 </span> compare *params-type, <span class="Constant">0</span>/pair +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">{</span> +<span id="L234" class="LineNr">234 </span> <span class="PreProc">break-if-=</span> +<span id="L235" class="LineNr">235 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"cannot bind a non-symbol"</span> +<span id="L236" class="LineNr">236 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L237" class="LineNr">237 </span> <span class="PreProc">return</span> +<span id="L238" class="LineNr">238 </span> <span class="Delimiter">}</span> +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> args/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L241" class="LineNr">241 </span> <span class="muComment"># params is now a pair, so args must be also</span> +<span id="L242" class="LineNr">242 </span> <span class="PreProc">var</span> args-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get args, <span class="PreProc">type</span> +<span id="L243" class="LineNr">243 </span> compare *args-type, <span class="Constant">0</span>/pair +<span id="L244" class="LineNr">244 </span> <span class="Delimiter">{</span> +<span id="L245" class="LineNr">245 </span> <span class="PreProc">break-if-=</span> +<span id="L246" class="LineNr">246 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"args not in a proper list"</span> +<span id="L247" class="LineNr">247 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L248" class="LineNr">248 </span> <span class="PreProc">return</span> +<span id="L249" class="LineNr">249 </span> <span class="Delimiter">}</span> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> intermediate-env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L251" class="LineNr">251 </span> <span class="PreProc">var</span> intermediate-env-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address intermediate-env-storage +<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> first-param-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get params, left +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> first-arg-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L254" class="LineNr">254 </span> <a href='eval.mu.html#L188'>push-bindings</a> first-param-ah, first-arg-ah, old-env-h, intermediate-env-ah, trace +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> remaining-params-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get params, right +<span id="L256" class="LineNr">256 </span> <span class="PreProc">var</span> remaining-args-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L257" class="LineNr">257 </span> <a href='eval.mu.html#L188'>push-bindings</a> remaining-params-ah, remaining-args-ah, *intermediate-env-ah, env-ah, trace +<span id="L258" class="LineNr">258 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L259" class="LineNr">259 </span><span class="Delimiter">}</span> +<span id="L260" class="LineNr">260 </span> +<span id="L261" class="LineNr">261 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L261'>apply-primitive</a></span> _f: (addr <a href='cell.mu.html#L1'>cell</a>), args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> f/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _f +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> f-index/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get f, index-data +<span id="L264" class="LineNr">264 </span> <span class="Delimiter">{</span> +<span id="L265" class="LineNr">265 </span> compare *f-index, <span class="Constant">1</span>/add +<span id="L266" class="LineNr">266 </span> <span class="PreProc">break-if-!=</span> +<span id="L267" class="LineNr">267 </span> <a href='eval.mu.html#L273'>apply-add</a> args-ah, out, env-h, trace +<span id="L268" class="LineNr">268 </span> <span class="PreProc">return</span> +<span id="L269" class="LineNr">269 </span> <span class="Delimiter">}</span> +<span id="L270" class="LineNr">270 </span> <a href='../501draw-text.mu.html#L459'>abort</a> <span class="Constant">"unknown primitive function"</span> +<span id="L271" class="LineNr">271 </span><span class="Delimiter">}</span> +<span id="L272" class="LineNr">272 </span> +<span id="L273" class="LineNr">273 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L273'>apply-add</a></span> _args-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L274" class="LineNr">274 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"apply +"</span> +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> args-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args-ah +<span id="L276" class="LineNr">276 </span> <span class="PreProc">var</span> _args/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *args-ah +<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> args/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _args +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> _env/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> env-h +<span id="L279" class="LineNr">279 </span> <span class="PreProc">var</span> env/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env +<span id="L280" class="LineNr">280 </span> <span class="muComment"># TODO: check that args is a pair</span> +<span id="L281" class="LineNr">281 </span> <span class="PreProc">var</span> empty-args?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> args +<span id="L282" class="LineNr">282 </span> compare empty-args?, <span class="Constant">0</span>/false +<span id="L283" class="LineNr">283 </span> <span class="Delimiter">{</span> +<span id="L284" class="LineNr">284 </span> <span class="PreProc">break-if-=</span> +<span id="L285" class="LineNr">285 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"+ needs 2 args but got 0"</span> +<span id="L286" class="LineNr">286 </span> <span class="PreProc">return</span> +<span id="L287" class="LineNr">287 </span> <span class="Delimiter">}</span> +<span id="L288" class="LineNr">288 </span> <span class="muComment"># args->left->value</span> +<span id="L289" class="LineNr">289 </span> <span class="PreProc">var</span> first-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, left +<span id="L290" class="LineNr">290 </span> <span class="PreProc">var</span> first/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *first-ah +<span id="L291" class="LineNr">291 </span> <span class="PreProc">var</span> first-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get first, <span class="PreProc">type</span> +<span id="L292" class="LineNr">292 </span> compare *first-type, <span class="Constant">1</span>/number +<span id="L293" class="LineNr">293 </span> <span class="Delimiter">{</span> +<span id="L294" class="LineNr">294 </span> <span class="PreProc">break-if-=</span> +<span id="L295" class="LineNr">295 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"first arg for + is not a number"</span> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">return</span> +<span id="L297" class="LineNr">297 </span> <span class="Delimiter">}</span> +<span id="L298" class="LineNr">298 </span> <span class="PreProc">var</span> first-value/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get first, number-data +<span id="L299" class="LineNr">299 </span> <span class="muComment"># args->right->left->value</span> +<span id="L300" class="LineNr">300 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get args, right +<span id="L301" class="LineNr">301 </span><span class="CommentedCode">#? dump-cell right-ah</span> +<span id="L302" class="LineNr">302 </span><span class="CommentedCode">#? abort "aaa"</span> +<span id="L303" class="LineNr">303 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah +<span id="L304" class="LineNr">304 </span> <span class="muComment"># TODO: check that right is a pair</span> +<span id="L305" class="LineNr">305 </span> <span class="PreProc">var</span> second-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get right, left +<span id="L306" class="LineNr">306 </span> <span class="PreProc">var</span> second/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *second-ah +<span id="L307" class="LineNr">307 </span> <span class="PreProc">var</span> second-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get second, <span class="PreProc">type</span> +<span id="L308" class="LineNr">308 </span> compare *second-type, <span class="Constant">1</span>/number +<span id="L309" class="LineNr">309 </span> <span class="Delimiter">{</span> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">break-if-=</span> +<span id="L311" class="LineNr">311 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"second arg for + is not a number"</span> +<span id="L312" class="LineNr">312 </span> <span class="PreProc">return</span> +<span id="L313" class="LineNr">313 </span> <span class="Delimiter">}</span> +<span id="L314" class="LineNr">314 </span> <span class="PreProc">var</span> second-value/<span class="Constant">edx</span>: (addr float) <span class="Special"><-</span> get second, number-data +<span id="L315" class="LineNr">315 </span> <span class="muComment"># add</span> +<span id="L316" class="LineNr">316 </span> <span class="PreProc">var</span> result/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *first-value +<span id="L317" class="LineNr">317 </span> result <span class="Special"><-</span> add *second-value +<span id="L318" class="LineNr">318 </span> <a href='cell.mu.html#L68'>new-float</a> out, result +<span id="L319" class="LineNr">319 </span><span class="Delimiter">}</span> +<span id="L320" class="LineNr">320 </span> +<span id="L321" class="LineNr">321 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L321'>lookup-symbol</a></span> sym: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), env-h: (handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L322" class="LineNr">322 </span> <span class="muComment"># trace sym</span> +<span id="L323" class="LineNr">323 </span> <span class="Delimiter">{</span> +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L326" class="LineNr">326 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"look up "</span> +<span id="L327" class="LineNr">327 </span> <span class="PreProc">var</span> sym2/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy sym +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> sym-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get sym2, text-data +<span id="L329" class="LineNr">329 </span> <span class="PreProc">var</span> sym-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *sym-data-ah +<span id="L330" class="LineNr">330 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> sym-data +<span id="L331" class="LineNr">331 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, sym-data +<span id="L332" class="LineNr">332 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">" in "</span> +<span id="L333" class="LineNr">333 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-h +<span id="L334" class="LineNr">334 </span> <a href='print.mu.html#L1'>print-cell</a> env-ah, stream, <span class="Constant">0</span>/no-trace +<span id="L335" class="LineNr">335 </span> trace trace, <span class="Constant">"eval"</span>, stream +<span id="L336" class="LineNr">336 </span> <span class="Delimiter">}</span> +<span id="L337" class="LineNr">337 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L338" class="LineNr">338 </span> <span class="PreProc">var</span> _env/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> env-h +<span id="L339" class="LineNr">339 </span> <span class="PreProc">var</span> env/<span class="Constant">ebx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env +<span id="L340" class="LineNr">340 </span> <span class="muComment"># if env is not a list, abort</span> +<span id="L341" class="LineNr">341 </span> <span class="Delimiter">{</span> +<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> env-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get env, <span class="PreProc">type</span> +<span id="L343" class="LineNr">343 </span> compare *env-type, <span class="Constant">0</span>/pair +<span id="L344" class="LineNr">344 </span> <span class="PreProc">break-if-=</span> +<span id="L345" class="LineNr">345 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"eval found a non-list environment"</span> +<span id="L346" class="LineNr">346 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L347" class="LineNr">347 </span> <span class="PreProc">return</span> +<span id="L348" class="LineNr">348 </span> <span class="Delimiter">}</span> +<span id="L349" class="LineNr">349 </span> <span class="muComment"># if env is nil, look up in globals</span> +<span id="L350" class="LineNr">350 </span> <span class="Delimiter">{</span> +<span id="L351" class="LineNr">351 </span> <span class="PreProc">var</span> env-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> env +<span id="L352" class="LineNr">352 </span> compare env-nil?, <span class="Constant">0</span>/false +<span id="L353" class="LineNr">353 </span> <span class="PreProc">break-if-=</span> +<span id="L354" class="LineNr">354 </span> <a href='eval.mu.html#L443'>lookup-symbol-in-hardcoded-globals</a> sym, out, trace +<span id="L355" class="LineNr">355 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L356" class="Folded">356 </span><span class="Folded">+-- 13 lines: # trace "=> " out " (global)" ---------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L369" class="LineNr">369 </span> <span class="PreProc">return</span> +<span id="L370" class="LineNr">370 </span> <span class="Delimiter">}</span> +<span id="L371" class="LineNr">371 </span> <span class="muComment"># check car</span> +<span id="L372" class="LineNr">372 </span> <span class="PreProc">var</span> env-head-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L373" class="LineNr">373 </span> <span class="PreProc">var</span> env-head-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-head-storage +<span id="L374" class="LineNr">374 </span> <a href='eval.mu.html#L513'>car</a> env, env-head-ah, <span class="Constant">0</span>/no-trace +<span id="L375" class="LineNr">375 </span> <span class="PreProc">var</span> _env-head/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *env-head-ah +<span id="L376" class="LineNr">376 </span> <span class="PreProc">var</span> env-head/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _env-head +<span id="L377" class="LineNr">377 </span> <span class="muComment"># if car is not a list, abort</span> +<span id="L378" class="LineNr">378 </span> <span class="Delimiter">{</span> +<span id="L379" class="LineNr">379 </span> <span class="PreProc">var</span> env-head-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get env-head, <span class="PreProc">type</span> +<span id="L380" class="LineNr">380 </span> compare *env-head-type, <span class="Constant">0</span>/pair +<span id="L381" class="LineNr">381 </span> <span class="PreProc">break-if-=</span> +<span id="L382" class="LineNr">382 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"environment is not a list of (key . value) pairs"</span> +<span id="L383" class="LineNr">383 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L384" class="LineNr">384 </span> <span class="PreProc">return</span> +<span id="L385" class="LineNr">385 </span> <span class="Delimiter">}</span> +<span id="L386" class="LineNr">386 </span> <span class="muComment"># check key</span> +<span id="L387" class="LineNr">387 </span> <span class="PreProc">var</span> curr-key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L388" class="LineNr">388 </span> <span class="PreProc">var</span> curr-key-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-key-storage +<span id="L389" class="LineNr">389 </span> <a href='eval.mu.html#L513'>car</a> env-head, curr-key-ah, trace +<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> curr-key/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-key-ah +<span id="L391" class="LineNr">391 </span> <span class="muComment"># if key is not a symbol, abort</span> +<span id="L392" class="LineNr">392 </span> <span class="Delimiter">{</span> +<span id="L393" class="LineNr">393 </span> <span class="PreProc">var</span> curr-key-type/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-key, <span class="PreProc">type</span> +<span id="L394" class="LineNr">394 </span> compare *curr-key-type, <span class="Constant">2</span>/symbol +<span id="L395" class="LineNr">395 </span> <span class="PreProc">break-if-=</span> +<span id="L396" class="LineNr">396 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"environment contains a binding for a non-symbol"</span> +<span id="L397" class="LineNr">397 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L398" class="LineNr">398 </span> <span class="PreProc">return</span> +<span id="L399" class="LineNr">399 </span> <span class="Delimiter">}</span> +<span id="L400" class="LineNr">400 </span> <span class="muComment"># if key matches sym, return val</span> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='eval.mu.html#L569'>cell-isomorphic?</a> curr-key, sym, trace +<span id="L402" class="LineNr">402 </span> compare match?, <span class="Constant">0</span>/false +<span id="L403" class="LineNr">403 </span> <span class="Delimiter">{</span> +<span id="L404" class="LineNr">404 </span> <span class="PreProc">break-if-=</span> +<span id="L405" class="LineNr">405 </span> <a href='eval.mu.html#L541'>cdr</a> env-head, out, <span class="Constant">0</span>/no-trace +<span id="L406" class="Folded">406 </span><span class="Folded">+-- 13 lines: # trace "=> " out " (match)" ----------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L419" class="LineNr">419 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L420" class="LineNr">420 </span> <span class="PreProc">return</span> +<span id="L421" class="LineNr">421 </span> <span class="Delimiter">}</span> +<span id="L422" class="LineNr">422 </span> <span class="muComment"># otherwise recurse</span> +<span id="L423" class="LineNr">423 </span> <span class="PreProc">var</span> env-tail-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L424" class="LineNr">424 </span> <span class="PreProc">var</span> env-tail-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-tail-storage +<span id="L425" class="LineNr">425 </span> <a href='eval.mu.html#L541'>cdr</a> env, env-tail-ah, trace +<span id="L426" class="LineNr">426 </span> <a href='eval.mu.html#L321'>lookup-symbol</a> sym, out, *env-tail-ah, trace +<span id="L427" class="LineNr">427 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L428" class="Folded">428 </span><span class="Folded">+-- 13 lines: # trace "=> " out " (recurse)" --------------------------------------------------------------------------------------------------------------------------------------------</span> +<span id="L441" class="LineNr">441 </span><span class="Delimiter">}</span> +<span id="L442" class="LineNr">442 </span> +<span id="L443" class="LineNr">443 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L443'>lookup-symbol-in-hardcoded-globals</a></span> _sym: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L444" class="LineNr">444 </span> <span class="PreProc">var</span> sym/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _sym +<span id="L445" class="LineNr">445 </span> <span class="PreProc">var</span> sym-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get sym, text-data +<span id="L446" class="LineNr">446 </span> <span class="PreProc">var</span> _sym-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *sym-data-ah +<span id="L447" class="LineNr">447 </span> <span class="PreProc">var</span> sym-data/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _sym-data +<span id="L448" class="LineNr">448 </span> <span class="Delimiter">{</span> +<span id="L449" class="LineNr">449 </span> <span class="PreProc">var</span> add?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> sym-data, <span class="Constant">"+"</span> +<span id="L450" class="LineNr">450 </span> compare add?, <span class="Constant">0</span>/false +<span id="L451" class="LineNr">451 </span> <span class="PreProc">break-if-=</span> +<span id="L452" class="LineNr">452 </span> <a href='cell.mu.html#L109'>new-primitive-function</a> out, <span class="Constant">1</span>/add +<span id="L453" class="LineNr">453 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"global +"</span> +<span id="L454" class="LineNr">454 </span> <span class="PreProc">return</span> +<span id="L455" class="LineNr">455 </span> <span class="Delimiter">}</span> +<span id="L456" class="LineNr">456 </span> <span class="muComment"># otherwise error "unbound symbol: ", sym</span> +<span id="L457" class="LineNr">457 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L459" class="LineNr">459 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unbound symbol: "</span> +<span id="L460" class="LineNr">460 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> sym-data +<span id="L461" class="LineNr">461 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, sym-data +<span id="L462" class="LineNr">462 </span> trace trace, <span class="Constant">"error"</span>, stream +<span id="L463" class="LineNr">463 </span><span class="Delimiter">}</span> +<span id="L464" class="LineNr">464 </span> +<span id="L465" class="LineNr">465 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L465'>test-lookup-symbol-in-env</a></span> <span class="Delimiter">{</span> +<span id="L466" class="LineNr">466 </span> <span class="muComment"># tmp = (a . 3)</span> +<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> val-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L468" class="LineNr">468 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-storage +<span id="L469" class="LineNr">469 </span> <a href='cell.mu.html#L55'>new-integer</a> val-ah, <span class="Constant">3</span> +<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L471" class="LineNr">471 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address key-storage +<span id="L472" class="LineNr">472 </span> <a href='cell.mu.html#L34'>new-symbol</a> key-ah, <span class="Constant">"a"</span> +<span id="L473" class="LineNr">473 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L474" class="LineNr">474 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L475" class="LineNr">475 </span> <a href='cell.mu.html#L88'>new-pair</a> env-ah, *key-ah, *val-ah +<span id="L476" class="LineNr">476 </span> <span class="muComment"># env = ((a . 3))</span> +<span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L479" class="LineNr">479 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil-ah +<span id="L480" class="LineNr">480 </span> <a href='cell.mu.html#L88'>new-pair</a> env-ah, *env-ah, *nil-ah +<span id="L481" class="LineNr">481 </span> <span class="muComment"># lookup sym(a) in env tmp</span> +<span id="L482" class="LineNr">482 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L484" class="LineNr">484 </span> <a href='cell.mu.html#L34'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> +<span id="L485" class="LineNr">485 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L486" class="LineNr">486 </span> <a href='eval.mu.html#L321'>lookup-symbol</a> in, tmp-ah, *env-ah, <span class="Constant">0</span>/no-trace +<span id="L487" class="LineNr">487 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L488" class="LineNr">488 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L489" class="LineNr">489 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='eval.mu.html#L465'>test-lookup-symbol-in-env</a>/0"</span> +<span id="L490" class="LineNr">490 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L491" class="LineNr">491 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L492" class="LineNr">492 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='eval.mu.html#L465'>test-lookup-symbol-in-env</a>/1"</span> +<span id="L493" class="LineNr">493 </span><span class="Delimiter">}</span> +<span id="L494" class="LineNr">494 </span> +<span id="L495" class="LineNr">495 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L495'>test-lookup-symbol-in-hardcoded-globals</a></span> <span class="Delimiter">{</span> +<span id="L496" class="LineNr">496 </span> <span class="muComment"># env = nil</span> +<span id="L497" class="LineNr">497 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L498" class="LineNr">498 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L499" class="LineNr">499 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil-ah +<span id="L500" class="LineNr">500 </span> <span class="muComment"># lookup sym(a), env</span> +<span id="L501" class="LineNr">501 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L502" class="LineNr">502 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L503" class="LineNr">503 </span> <a href='cell.mu.html#L34'>new-symbol</a> tmp-ah, <span class="Constant">"+"</span> +<span id="L504" class="LineNr">504 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L505" class="LineNr">505 </span> <a href='eval.mu.html#L321'>lookup-symbol</a> in, tmp-ah, *nil-ah, <span class="Constant">0</span>/no-trace +<span id="L506" class="LineNr">506 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L507" class="LineNr">507 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L508" class="LineNr">508 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">4</span>/primitive-function, <span class="Constant">"F - <a href='eval.mu.html#L495'>test-lookup-symbol-in-hardcoded-globals</a>/0"</span> +<span id="L509" class="LineNr">509 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, index-data +<span id="L510" class="LineNr">510 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-value, <span class="Constant">1</span>/add, <span class="Constant">"F - <a href='eval.mu.html#L495'>test-lookup-symbol-in-hardcoded-globals</a>/1"</span> +<span id="L511" class="LineNr">511 </span><span class="Delimiter">}</span> +<span id="L512" class="LineNr">512 </span> +<span id="L513" class="LineNr">513 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L513'>car</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L514" class="LineNr">514 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"car"</span> +<span id="L515" class="LineNr">515 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L516" class="LineNr">516 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L517" class="LineNr">517 </span> <span class="muComment"># if in is not a list, abort</span> +<span id="L518" class="LineNr">518 </span> <span class="Delimiter">{</span> +<span id="L519" class="LineNr">519 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L520" class="LineNr">520 </span> compare *in-type, <span class="Constant">0</span>/pair +<span id="L521" class="LineNr">521 </span> <span class="PreProc">break-if-=</span> +<span id="L522" class="LineNr">522 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"car on a non-list"</span> +<span id="L523" class="LineNr">523 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L524" class="LineNr">524 </span> <span class="PreProc">return</span> +<span id="L525" class="LineNr">525 </span> <span class="Delimiter">}</span> +<span id="L526" class="LineNr">526 </span> <span class="muComment"># if in is nil, abort</span> +<span id="L527" class="LineNr">527 </span> <span class="Delimiter">{</span> +<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> in-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> in +<span id="L529" class="LineNr">529 </span> compare in-nil?, <span class="Constant">0</span>/false +<span id="L530" class="LineNr">530 </span> <span class="PreProc">break-if-=</span> +<span id="L531" class="LineNr">531 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"car on nil"</span> +<span id="L532" class="LineNr">532 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L533" class="LineNr">533 </span> <span class="PreProc">return</span> +<span id="L534" class="LineNr">534 </span> <span class="Delimiter">}</span> +<span id="L535" class="LineNr">535 </span> <span class="PreProc">var</span> in-left/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L536" class="LineNr">536 </span> copy-object in-left, out +<span id="L537" class="LineNr">537 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L538" class="LineNr">538 </span> <span class="PreProc">return</span> +<span id="L539" class="LineNr">539 </span><span class="Delimiter">}</span> +<span id="L540" class="LineNr">540 </span> +<span id="L541" class="LineNr">541 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L541'>cdr</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L542" class="LineNr">542 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"cdr"</span> +<span id="L543" class="LineNr">543 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L544" class="LineNr">544 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L545" class="LineNr">545 </span> <span class="muComment"># if in is not a list, abort</span> +<span id="L546" class="LineNr">546 </span> <span class="Delimiter">{</span> +<span id="L547" class="LineNr">547 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L548" class="LineNr">548 </span> compare *in-type, <span class="Constant">0</span>/pair +<span id="L549" class="LineNr">549 </span> <span class="PreProc">break-if-=</span> +<span id="L550" class="LineNr">550 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"car on a non-list"</span> +<span id="L551" class="LineNr">551 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L552" class="LineNr">552 </span> <span class="PreProc">return</span> +<span id="L553" class="LineNr">553 </span> <span class="Delimiter">}</span> +<span id="L554" class="LineNr">554 </span> <span class="muComment"># if in is nil, abort</span> +<span id="L555" class="LineNr">555 </span> <span class="Delimiter">{</span> +<span id="L556" class="LineNr">556 </span> <span class="PreProc">var</span> in-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> in +<span id="L557" class="LineNr">557 </span> compare in-nil?, <span class="Constant">0</span>/false +<span id="L558" class="LineNr">558 </span> <span class="PreProc">break-if-=</span> +<span id="L559" class="LineNr">559 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"car on nil"</span> +<span id="L560" class="LineNr">560 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L561" class="LineNr">561 </span> <span class="PreProc">return</span> +<span id="L562" class="LineNr">562 </span> <span class="Delimiter">}</span> +<span id="L563" class="LineNr">563 </span> <span class="PreProc">var</span> in-right/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L564" class="LineNr">564 </span> copy-object in-right, out +<span id="L565" class="LineNr">565 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L566" class="LineNr">566 </span> <span class="PreProc">return</span> +<span id="L567" class="LineNr">567 </span><span class="Delimiter">}</span> +<span id="L568" class="LineNr">568 </span> +<span id="L569" class="LineNr">569 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L569'>cell-isomorphic?</a></span> _a: (addr <a href='cell.mu.html#L1'>cell</a>), _b: (addr <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L570" class="LineNr">570 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"cell-isomorphic?"</span> +<span id="L571" class="LineNr">571 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L572" class="LineNr">572 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a +<span id="L573" class="LineNr">573 </span> <span class="PreProc">var</span> b/<span class="Constant">edi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _b +<span id="L574" class="LineNr">574 </span> <span class="muComment"># if types don't match, return false</span> +<span id="L575" class="LineNr">575 </span> <span class="PreProc">var</span> a-type-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get a, <span class="PreProc">type</span> +<span id="L576" class="LineNr">576 </span> <span class="PreProc">var</span> b-type-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get b, <span class="PreProc">type</span> +<span id="L577" class="LineNr">577 </span> <span class="PreProc">var</span> b-type/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *b-type-addr +<span id="L578" class="LineNr">578 </span> compare b-type, *a-type-addr +<span id="L579" class="LineNr">579 </span> <span class="Delimiter">{</span> +<span id="L580" class="LineNr">580 </span> <span class="PreProc">break-if-=</span> +<span id="L581" class="LineNr">581 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L582" class="LineNr">582 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (type)"</span> +<span id="L583" class="LineNr">583 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L584" class="LineNr">584 </span> <span class="Delimiter">}</span> +<span id="L585" class="LineNr">585 </span> <span class="muComment"># if types are number, compare number-data</span> +<span id="L586" class="LineNr">586 </span> <span class="muComment"># TODO: exactly comparing floats is a bad idea</span> +<span id="L587" class="LineNr">587 </span> compare b-type, <span class="Constant">1</span>/number +<span id="L588" class="LineNr">588 </span> <span class="Delimiter">{</span> +<span id="L589" class="LineNr">589 </span> <span class="PreProc">break-if-!=</span> +<span id="L590" class="LineNr">590 </span> <span class="PreProc">var</span> a-val-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get a, number-data +<span id="L591" class="LineNr">591 </span> <span class="PreProc">var</span> b-val-addr/<span class="Constant">ecx</span>: (addr float) <span class="Special"><-</span> get b, number-data +<span id="L592" class="LineNr">592 </span> <span class="PreProc">var</span> a-val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> copy *a-val-addr +<span id="L593" class="LineNr">593 </span> compare a-val, *b-val-addr +<span id="L594" class="LineNr">594 </span> <span class="Delimiter">{</span> +<span id="L595" class="LineNr">595 </span> <span class="PreProc">break-if-=</span> +<span id="L596" class="LineNr">596 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L597" class="LineNr">597 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (numbers)"</span> +<span id="L598" class="LineNr">598 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L599" class="LineNr">599 </span> <span class="Delimiter">}</span> +<span id="L600" class="LineNr">600 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L601" class="LineNr">601 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (numbers)"</span> +<span id="L602" class="LineNr">602 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L603" class="LineNr">603 </span> <span class="Delimiter">}</span> +<span id="L604" class="LineNr">604 </span> compare b-type, <span class="Constant">2</span>/symbol +<span id="L605" class="LineNr">605 </span> <span class="Delimiter">{</span> +<span id="L606" class="LineNr">606 </span> <span class="PreProc">break-if-!=</span> +<span id="L607" class="LineNr">607 </span> <span class="PreProc">var</span> b-val-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get b, text-data +<span id="L608" class="LineNr">608 </span> <span class="PreProc">var</span> _b-val/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-val-ah +<span id="L609" class="LineNr">609 </span> <span class="PreProc">var</span> b-val/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> copy _b-val +<span id="L610" class="LineNr">610 </span> <span class="PreProc">var</span> a-val-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get a, text-data +<span id="L611" class="LineNr">611 </span> <span class="PreProc">var</span> a-val/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-val-ah +<span id="L612" class="LineNr">612 </span> <span class="PreProc">var</span> tmp-array: (handle array byte) +<span id="L613" class="LineNr">613 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle array byte) <span class="Special"><-</span> address tmp-array +<span id="L614" class="LineNr">614 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> a-val +<span id="L615" class="LineNr">615 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> a-val, tmp-ah +<span id="L616" class="LineNr">616 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L617" class="LineNr">617 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> b-val, tmp +<span id="L618" class="LineNr">618 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L619" class="LineNr">619 </span> <span class="Delimiter">{</span> +<span id="L620" class="LineNr">620 </span> compare match?, <span class="Constant">0</span>/false +<span id="L621" class="LineNr">621 </span> <span class="PreProc">break-if-=</span> +<span id="L622" class="LineNr">622 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (symbols)"</span> +<span id="L623" class="LineNr">623 </span> <span class="Delimiter">}</span> +<span id="L624" class="LineNr">624 </span> <span class="Delimiter">{</span> +<span id="L625" class="LineNr">625 </span> compare match?, <span class="Constant">0</span>/false +<span id="L626" class="LineNr">626 </span> <span class="PreProc">break-if-!=</span> +<span id="L627" class="LineNr">627 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (symbols)"</span> +<span id="L628" class="LineNr">628 </span> <span class="Delimiter">}</span> +<span id="L629" class="LineNr">629 </span> <span class="PreProc">return</span> match? +<span id="L630" class="LineNr">630 </span> <span class="Delimiter">}</span> +<span id="L631" class="LineNr">631 </span> <span class="muComment"># if a is nil, b should be nil</span> +<span id="L632" class="LineNr">632 </span> <span class="Delimiter">{</span> +<span id="L633" class="LineNr">633 </span> <span class="muComment"># (assumes nil? returns 0 or 1)</span> +<span id="L634" class="LineNr">634 </span> <span class="PreProc">var</span> _b-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> b +<span id="L635" class="LineNr">635 </span> <span class="PreProc">var</span> b-nil?/<span class="Constant">ecx</span>: boolean <span class="Special"><-</span> copy _b-nil? +<span id="L636" class="LineNr">636 </span> <span class="PreProc">var</span> a-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> a +<span id="L637" class="LineNr">637 </span> <span class="muComment"># a == nil and b == nil => return true</span> +<span id="L638" class="LineNr">638 </span> <span class="Delimiter">{</span> +<span id="L639" class="LineNr">639 </span> compare a-nil?, <span class="Constant">0</span>/false +<span id="L640" class="LineNr">640 </span> <span class="PreProc">break-if-=</span> +<span id="L641" class="LineNr">641 </span> compare b-nil?, <span class="Constant">0</span>/false +<span id="L642" class="LineNr">642 </span> <span class="PreProc">break-if-=</span> +<span id="L643" class="LineNr">643 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L644" class="LineNr">644 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> true (nils)"</span> +<span id="L645" class="LineNr">645 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L646" class="LineNr">646 </span> <span class="Delimiter">}</span> +<span id="L647" class="LineNr">647 </span> <span class="muComment"># a == nil => return false</span> +<span id="L648" class="LineNr">648 </span> <span class="Delimiter">{</span> +<span id="L649" class="LineNr">649 </span> compare a-nil?, <span class="Constant">0</span>/false +<span id="L650" class="LineNr">650 </span> <span class="PreProc">break-if-=</span> +<span id="L651" class="LineNr">651 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L652" class="LineNr">652 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (b != nil)"</span> +<span id="L653" class="LineNr">653 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L654" class="LineNr">654 </span> <span class="Delimiter">}</span> +<span id="L655" class="LineNr">655 </span> <span class="muComment"># b == nil => return false</span> +<span id="L656" class="LineNr">656 </span> <span class="Delimiter">{</span> +<span id="L657" class="LineNr">657 </span> compare b-nil?, <span class="Constant">0</span>/false +<span id="L658" class="LineNr">658 </span> <span class="PreProc">break-if-=</span> +<span id="L659" class="LineNr">659 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L660" class="LineNr">660 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (a != nil)"</span> +<span id="L661" class="LineNr">661 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L662" class="LineNr">662 </span> <span class="Delimiter">}</span> +<span id="L663" class="LineNr">663 </span> <span class="Delimiter">}</span> +<span id="L664" class="LineNr">664 </span> <span class="muComment"># a and b are pairs</span> +<span id="L665" class="LineNr">665 </span> <span class="PreProc">var</span> a-tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L666" class="LineNr">666 </span> <span class="PreProc">var</span> a-tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address a-tmp-storage +<span id="L667" class="LineNr">667 </span> <span class="PreProc">var</span> b-tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L668" class="LineNr">668 </span> <span class="PreProc">var</span> b-tmp-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address b-tmp-storage +<span id="L669" class="LineNr">669 </span> <span class="muComment"># if cars aren't equal, return false</span> +<span id="L670" class="LineNr">670 </span> <a href='eval.mu.html#L513'>car</a> a, a-tmp-ah, trace +<span id="L671" class="LineNr">671 </span> <a href='eval.mu.html#L513'>car</a> b, b-tmp-ah, trace +<span id="L672" class="LineNr">672 </span> <span class="Delimiter">{</span> +<span id="L673" class="LineNr">673 </span> <span class="PreProc">var</span> _a-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-tmp-ah +<span id="L674" class="LineNr">674 </span> <span class="PreProc">var</span> a-tmp/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a-tmp +<span id="L675" class="LineNr">675 </span> <span class="PreProc">var</span> b-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-tmp-ah +<span id="L676" class="LineNr">676 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='eval.mu.html#L569'>cell-isomorphic?</a> a-tmp, b-tmp, trace +<span id="L677" class="LineNr">677 </span> compare result, <span class="Constant">0</span>/false +<span id="L678" class="LineNr">678 </span> <span class="PreProc">break-if-!=</span> +<span id="L679" class="LineNr">679 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L680" class="LineNr">680 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"eval"</span>, <span class="Constant">"=> false (<a href='eval.mu.html#L513'>car</a> mismatch)"</span> +<span id="L681" class="LineNr">681 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L682" class="LineNr">682 </span> <span class="Delimiter">}</span> +<span id="L683" class="LineNr">683 </span> <span class="muComment"># recurse on cdrs</span> +<span id="L684" class="LineNr">684 </span> <a href='eval.mu.html#L541'>cdr</a> a, a-tmp-ah, trace +<span id="L685" class="LineNr">685 </span> <a href='eval.mu.html#L541'>cdr</a> b, b-tmp-ah, trace +<span id="L686" class="LineNr">686 </span> <span class="PreProc">var</span> _a-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-tmp-ah +<span id="L687" class="LineNr">687 </span> <span class="PreProc">var</span> a-tmp/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _a-tmp +<span id="L688" class="LineNr">688 </span> <span class="PreProc">var</span> b-tmp/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-tmp-ah +<span id="L689" class="LineNr">689 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='eval.mu.html#L569'>cell-isomorphic?</a> a-tmp, b-tmp, trace +<span id="L690" class="LineNr">690 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L691" class="LineNr">691 </span> <span class="PreProc">return</span> result +<span id="L692" class="LineNr">692 </span><span class="Delimiter">}</span> +<span id="L693" class="LineNr">693 </span> +<span id="L694" class="LineNr">694 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='eval.mu.html#L694'>fn?</a></span> _x: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L695" class="LineNr">695 </span> <span class="PreProc">var</span> x/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _x +<span id="L696" class="LineNr">696 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get x, <span class="PreProc">type</span> +<span id="L697" class="LineNr">697 </span> compare *<span class="PreProc">type</span>, <span class="Constant">2</span>/symbol +<span id="L698" class="LineNr">698 </span> <span class="Delimiter">{</span> +<span id="L699" class="LineNr">699 </span> <span class="PreProc">break-if-=</span> +<span id="L700" class="LineNr">700 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L701" class="LineNr">701 </span> <span class="Delimiter">}</span> +<span id="L702" class="LineNr">702 </span> <span class="PreProc">var</span> contents-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get x, text-data +<span id="L703" class="LineNr">703 </span> <span class="PreProc">var</span> contents/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *contents-ah +<span id="L704" class="LineNr">704 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../109stream-equal.subx.html#L9'>stream-data-equal?</a> contents, <span class="Constant">"fn"</span> +<span id="L705" class="LineNr">705 </span> <span class="PreProc">return</span> result +<span id="L706" class="LineNr">706 </span><span class="Delimiter">}</span> +<span id="L707" class="LineNr">707 </span> +<span id="L708" class="LineNr">708 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L708'>test-evaluate-is-well-behaved</a></span> <span class="Delimiter">{</span> +<span id="L709" class="LineNr">709 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L710" class="LineNr">710 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L711" class="LineNr">711 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> +<span id="L712" class="LineNr">712 </span> <span class="muComment"># env = nil</span> +<span id="L713" class="LineNr">713 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L714" class="LineNr">714 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L715" class="LineNr">715 </span> <a href='cell.mu.html#L73'>allocate-pair</a> env-ah +<span id="L716" class="LineNr">716 </span> <span class="muComment"># eval sym(a), nil env</span> +<span id="L717" class="LineNr">717 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L718" class="LineNr">718 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L719" class="LineNr">719 </span> <a href='cell.mu.html#L34'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> +<span id="L720" class="LineNr">720 </span> <a href='eval.mu.html#L3'>evaluate</a> tmp-ah, tmp-ah, *env-ah, t +<span id="L721" class="LineNr">721 </span> <span class="muComment"># doesn't die</span> +<span id="L722" class="LineNr">722 </span> <a href='trace.mu.html#L175'>check-trace-contains</a> t, <span class="Constant">"error"</span>, <span class="Constant">"unbound symbol: a"</span>, <span class="Constant">"F - test-evaluate-is-well-behaved"</span> +<span id="L723" class="LineNr">723 </span><span class="Delimiter">}</span> +<span id="L724" class="LineNr">724 </span> +<span id="L725" class="LineNr">725 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L725'>test-evaluate-number</a></span> <span class="Delimiter">{</span> +<span id="L726" class="LineNr">726 </span> <span class="muComment"># env = nil</span> +<span id="L727" class="LineNr">727 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L728" class="LineNr">728 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L729" class="LineNr">729 </span> <a href='cell.mu.html#L73'>allocate-pair</a> env-ah +<span id="L730" class="LineNr">730 </span> <span class="muComment"># tmp = 3</span> +<span id="L731" class="LineNr">731 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L732" class="LineNr">732 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L733" class="LineNr">733 </span> <a href='cell.mu.html#L55'>new-integer</a> tmp-ah, <span class="Constant">3</span> +<span id="L734" class="LineNr">734 </span> <a href='eval.mu.html#L3'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-trace +<span id="L735" class="LineNr">735 </span> <span class="muComment">#</span> +<span id="L736" class="LineNr">736 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L737" class="LineNr">737 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L738" class="LineNr">738 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='eval.mu.html#L725'>test-evaluate-number</a>/0"</span> +<span id="L739" class="LineNr">739 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L740" class="LineNr">740 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L741" class="LineNr">741 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='eval.mu.html#L725'>test-evaluate-number</a>/1"</span> +<span id="L742" class="LineNr">742 </span><span class="Delimiter">}</span> +<span id="L743" class="LineNr">743 </span> +<span id="L744" class="LineNr">744 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L744'>test-evaluate-symbol</a></span> <span class="Delimiter">{</span> +<span id="L745" class="LineNr">745 </span> <span class="muComment"># tmp = (a . 3)</span> +<span id="L746" class="LineNr">746 </span> <span class="PreProc">var</span> val-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L747" class="LineNr">747 </span> <span class="PreProc">var</span> val-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address val-storage +<span id="L748" class="LineNr">748 </span> <a href='cell.mu.html#L55'>new-integer</a> val-ah, <span class="Constant">3</span> +<span id="L749" class="LineNr">749 </span> <span class="PreProc">var</span> key-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L750" class="LineNr">750 </span> <span class="PreProc">var</span> key-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address key-storage +<span id="L751" class="LineNr">751 </span> <a href='cell.mu.html#L34'>new-symbol</a> key-ah, <span class="Constant">"a"</span> +<span id="L752" class="LineNr">752 </span> <span class="PreProc">var</span> env-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L753" class="LineNr">753 </span> <span class="PreProc">var</span> env-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address env-storage +<span id="L754" class="LineNr">754 </span> <a href='cell.mu.html#L88'>new-pair</a> env-ah, *key-ah, *val-ah +<span id="L755" class="LineNr">755 </span> <span class="muComment"># env = ((a . 3))</span> +<span id="L756" class="LineNr">756 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L757" class="LineNr">757 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L758" class="LineNr">758 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil-ah +<span id="L759" class="LineNr">759 </span> <a href='cell.mu.html#L88'>new-pair</a> env-ah, *env-ah, *nil-ah +<span id="L760" class="LineNr">760 </span> <span class="muComment"># eval sym(a), env</span> +<span id="L761" class="LineNr">761 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L762" class="LineNr">762 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L763" class="LineNr">763 </span> <a href='cell.mu.html#L34'>new-symbol</a> tmp-ah, <span class="Constant">"a"</span> +<span id="L764" class="LineNr">764 </span> <a href='eval.mu.html#L3'>evaluate</a> tmp-ah, tmp-ah, *env-ah, <span class="Constant">0</span>/no-trace +<span id="L765" class="LineNr">765 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L766" class="LineNr">766 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L767" class="LineNr">767 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='eval.mu.html#L744'>test-evaluate-symbol</a>/0"</span> +<span id="L768" class="LineNr">768 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L769" class="LineNr">769 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L770" class="LineNr">770 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">3</span>, <span class="Constant">"F - <a href='eval.mu.html#L744'>test-evaluate-symbol</a>/1"</span> +<span id="L771" class="LineNr">771 </span><span class="Delimiter">}</span> +<span id="L772" class="LineNr">772 </span> +<span id="L773" class="LineNr">773 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L773'>test-evaluate-primitive-function</a></span> <span class="Delimiter">{</span> +<span id="L774" class="LineNr">774 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L775" class="LineNr">775 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L776" class="LineNr">776 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil-ah +<span id="L777" class="LineNr">777 </span> <span class="PreProc">var</span> add-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L778" class="LineNr">778 </span> <span class="PreProc">var</span> add-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address add-storage +<span id="L779" class="LineNr">779 </span> <a href='cell.mu.html#L34'>new-symbol</a> add-ah, <span class="Constant">"+"</span> +<span id="L780" class="LineNr">780 </span> <span class="muComment"># eval +, nil env</span> +<span id="L781" class="LineNr">781 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L782" class="LineNr">782 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L783" class="LineNr">783 </span> <a href='eval.mu.html#L3'>evaluate</a> add-ah, tmp-ah, *nil-ah, <span class="Constant">0</span>/no-trace +<span id="L784" class="LineNr">784 </span> <span class="muComment">#</span> +<span id="L785" class="LineNr">785 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L786" class="LineNr">786 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L787" class="LineNr">787 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">4</span>/primitive-function, <span class="Constant">"F - <a href='eval.mu.html#L773'>test-evaluate-primitive-function</a>/0"</span> +<span id="L788" class="LineNr">788 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get result, index-data +<span id="L789" class="LineNr">789 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-value, <span class="Constant">1</span>/add, <span class="Constant">"F - <a href='eval.mu.html#L773'>test-evaluate-primitive-function</a>/1"</span> +<span id="L790" class="LineNr">790 </span><span class="Delimiter">}</span> +<span id="L791" class="LineNr">791 </span> +<span id="L792" class="LineNr">792 </span><span class="PreProc">fn</span> <span class="muTest"><a href='eval.mu.html#L792'>test-evaluate-primitive-function-call</a></span> <span class="Delimiter">{</span> +<span id="L793" class="LineNr">793 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L794" class="LineNr">794 </span> <span class="PreProc">var</span> t/<span class="Constant">edi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L795" class="LineNr">795 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x100</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> +<span id="L796" class="LineNr">796 </span> <span class="muComment">#</span> +<span id="L797" class="LineNr">797 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L798" class="LineNr">798 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L799" class="LineNr">799 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil-ah +<span id="L800" class="LineNr">800 </span> <span class="PreProc">var</span> one-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L801" class="LineNr">801 </span> <span class="PreProc">var</span> one-ah/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address one-storage +<span id="L802" class="LineNr">802 </span> <a href='cell.mu.html#L55'>new-integer</a> one-ah, <span class="Constant">1</span> +<span id="L803" class="LineNr">803 </span> <span class="PreProc">var</span> add-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L804" class="LineNr">804 </span> <span class="PreProc">var</span> add-ah/<span class="Constant">ebx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address add-storage +<span id="L805" class="LineNr">805 </span> <a href='cell.mu.html#L34'>new-symbol</a> add-ah, <span class="Constant">"+"</span> +<span id="L806" class="LineNr">806 </span> <span class="muComment"># eval (+ 1 1), nil env</span> +<span id="L807" class="LineNr">807 </span> <span class="PreProc">var</span> tmp-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L808" class="LineNr">808 </span> <span class="PreProc">var</span> tmp-ah/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tmp-storage +<span id="L809" class="LineNr">809 </span> <a href='cell.mu.html#L88'>new-pair</a> tmp-ah, *one-ah, *nil-ah +<span id="L810" class="LineNr">810 </span> <a href='cell.mu.html#L88'>new-pair</a> tmp-ah, *one-ah, *tmp-ah +<span id="L811" class="LineNr">811 </span> <a href='cell.mu.html#L88'>new-pair</a> tmp-ah, *add-ah, *tmp-ah +<span id="L812" class="LineNr">812 </span><span class="CommentedCode">#? dump-cell tmp-ah</span> +<span id="L813" class="LineNr">813 </span> <a href='eval.mu.html#L3'>evaluate</a> tmp-ah, tmp-ah, *nil-ah, t +<span id="L814" class="LineNr">814 </span><span class="CommentedCode">#? dump-trace t</span> +<span id="L815" class="LineNr">815 </span> <span class="muComment">#</span> +<span id="L816" class="LineNr">816 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *tmp-ah +<span id="L817" class="LineNr">817 </span> <span class="PreProc">var</span> result-type/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get result, <span class="PreProc">type</span> +<span id="L818" class="LineNr">818 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *result-type, <span class="Constant">1</span>/number, <span class="Constant">"F - <a href='eval.mu.html#L792'>test-evaluate-primitive-function-call</a>/0"</span> +<span id="L819" class="LineNr">819 </span> <span class="PreProc">var</span> result-value-addr/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get result, number-data +<span id="L820" class="LineNr">820 </span> <span class="PreProc">var</span> result-value/<span class="Constant">eax</span>: int <span class="Special"><-</span> convert *result-value-addr +<span id="L821" class="LineNr">821 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> result-value, <span class="Constant">2</span>, <span class="Constant">"F - <a href='eval.mu.html#L792'>test-evaluate-primitive-function-call</a>/1"</span> +<span id="L822" class="LineNr">822 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/gap-buffer.mu.html b/html/shell/gap-buffer.mu.html new file mode 100644 index 00000000..10cc1f76 --- /dev/null +++ b/html/shell/gap-buffer.mu.html @@ -0,0 +1,844 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/gap-buffer.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/gap-buffer.mu'>https://github.com/akkartik/mu/blob/main/shell/gap-buffer.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># primitive for editing a single word</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">type</span> <a href='gap-buffer.mu.html#L3'>gap-buffer</a> <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> left: <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a> +<span id="L5" class="LineNr"> 5 </span> right: <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a> +<span id="L6" class="LineNr"> 6 </span> <span class="muComment"># some fields for scanning incrementally through a gap-buffer</span> +<span id="L7" class="LineNr"> 7 </span> left-read-index: int +<span id="L8" class="LineNr"> 8 </span> right-read-index: int +<span id="L9" class="LineNr"> 9 </span><span class="Delimiter">}</span> +<span id="L10" class="LineNr"> 10 </span> +<span id="L11" class="LineNr"> 11 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), max-word-size: int <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L14" class="LineNr"> 14 </span> <a href='grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> left, max-word-size +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L16" class="LineNr"> 16 </span> <a href='grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> right, max-word-size +<span id="L17" class="LineNr"> 17 </span><span class="Delimiter">}</span> +<span id="L18" class="LineNr"> 18 </span> +<span id="L19" class="LineNr"> 19 </span><span class="muComment"># just for tests</span> +<span id="L20" class="LineNr"> 20 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L21" class="LineNr"> 21 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> self, <span class="Constant">0x10</span>/max-word-size +<span id="L22" class="LineNr"> 22 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/max-word-size) +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L24" class="LineNr"> 24 </span> <a href='../108write.subx.html#L11'>write</a> stream, s +<span id="L25" class="LineNr"> 25 </span> <span class="Delimiter">{</span> +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> stream +<span id="L27" class="LineNr"> 27 </span> compare done?, <span class="Constant">0</span>/false +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">break-if-!=</span> +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> stream +<span id="L30" class="LineNr"> 30 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> self, g +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">loop</span> +<span id="L32" class="LineNr"> 32 </span> <span class="Delimiter">}</span> +<span id="L33" class="LineNr"> 33 </span><span class="Delimiter">}</span> +<span id="L34" class="LineNr"> 34 </span> +<span id="L35" class="LineNr"> 35 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L35'>emit-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L37" class="LineNr"> 37 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> out +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L39" class="LineNr"> 39 </span> <a href='gap-buffer.mu.html#L45'>emit-stack-from-bottom</a> left, out +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L41" class="LineNr"> 41 </span> <a href='gap-buffer.mu.html#L63'>emit-stack-from-top</a> right, out +<span id="L42" class="LineNr"> 42 </span><span class="Delimiter">}</span> +<span id="L43" class="LineNr"> 43 </span> +<span id="L44" class="LineNr"> 44 </span><span class="muComment"># dump stack from bottom to top</span> +<span id="L45" class="LineNr"> 45 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L45'>emit-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L52" class="LineNr"> 52 </span> <span class="Delimiter">{</span> +<span id="L53" class="LineNr"> 53 </span> compare i, *top-addr +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">break-if->=</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L56" class="LineNr"> 56 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, *g +<span id="L57" class="LineNr"> 57 </span> i <span class="Special"><-</span> increment +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">loop</span> +<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">}</span> +<span id="L60" class="LineNr"> 60 </span><span class="Delimiter">}</span> +<span id="L61" class="LineNr"> 61 </span> +<span id="L62" class="LineNr"> 62 </span><span class="muComment"># dump stack from top to bottom</span> +<span id="L63" class="LineNr"> 63 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L63'>emit-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), out: (addr stream byte) <span class="Delimiter">{</span> +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L70" class="LineNr"> 70 </span> i <span class="Special"><-</span> decrement +<span id="L71" class="LineNr"> 71 </span> <span class="Delimiter">{</span> +<span id="L72" class="LineNr"> 72 </span> compare i, <span class="Constant">0</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-<</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L75" class="LineNr"> 75 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, *g +<span id="L76" class="LineNr"> 76 </span> i <span class="Special"><-</span> decrement +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">loop</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">}</span> +<span id="L79" class="LineNr"> 79 </span><span class="Delimiter">}</span> +<span id="L80" class="LineNr"> 80 </span> +<span id="L81" class="LineNr"> 81 </span><span class="muComment"># We implicitly render everything editable in a single color, and assume the</span> +<span id="L82" class="LineNr"> 82 </span><span class="muComment"># cursor is a single other color.</span> +<span id="L83" class="LineNr"> 83 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L83'>render-gap-buffer-wrapping-right-then-down</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), _gap: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), xmin: int, ymin: int, xmax: int, ymax: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _gap +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, left +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L88" class="LineNr"> 88 </span> x2, y2 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L86'>render-stack-from-bottom-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, left, xmin, ymin, xmax, ymax, xmin, ymin +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, right +<span id="L90" class="LineNr"> 90 </span> x2, y2 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L123'>render-stack-from-top-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, right, xmin, ymin, xmax, ymax, x2, y2, render-cursor? +<span id="L91" class="LineNr"> 91 </span> <span class="muComment"># decide whether we still need to print a cursor</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> bg/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L93" class="LineNr"> 93 </span> compare render-cursor?, <span class="Constant">0</span>/false +<span id="L94" class="LineNr"> 94 </span> <span class="Delimiter">{</span> +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">break-if-=</span> +<span id="L96" class="LineNr"> 96 </span> <span class="muComment"># if the right side is empty, grapheme stack didn't print the cursor</span> +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> right +<span id="L98" class="LineNr"> 98 </span> compare empty?, <span class="Constant">0</span>/false +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">break-if-=</span> +<span id="L100" class="LineNr">100 </span> bg <span class="Special"><-</span> copy <span class="Constant">7</span>/cursor +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> +<span id="L102" class="LineNr">102 </span> <span class="muComment"># print a grapheme either way so that cursor position doesn't affect printed width</span> +<span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> space/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x20</span> +<span id="L104" class="LineNr">104 </span> x2, y2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L141'>render-grapheme</a> <a href='../500text-screen.mu.html#L9'>screen</a>, space, xmin, ymin, xmax, ymax, x2, y2, <span class="Constant">3</span>/fg=cyan, bg +<span id="L105" class="LineNr">105 </span> <span class="PreProc">return</span> x2, y2 +<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> +<span id="L107" class="LineNr">107 </span> +<span id="L108" class="LineNr">108 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L108'>render-gap-buffer</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), gap: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> _width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> _height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L111" class="LineNr">111 </span> _width, _height <span class="Special"><-</span> <a href='../500text-screen.mu.html#L50'>screen-size</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L112" class="LineNr">112 </span> <span class="PreProc">var</span> width/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _width +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> height/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _height +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L116" class="LineNr">116 </span> x2, y2 <span class="Special"><-</span> <a href='gap-buffer.mu.html#L83'>render-gap-buffer-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gap, x, y, width, height, render-cursor? +<span id="L117" class="LineNr">117 </span> <span class="PreProc">return</span> x2 <span class="muComment"># y2? yolo</span> +<span id="L118" class="LineNr">118 </span><span class="Delimiter">}</span> +<span id="L119" class="LineNr">119 </span> +<span id="L120" class="LineNr">120 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L120'>gap-buffer-length</a></span> _gap: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L121" class="LineNr">121 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _gap +<span id="L122" class="LineNr">122 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, left +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get left, top +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> left-length/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *tmp +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> right/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get gap, right +<span id="L126" class="LineNr">126 </span> tmp <span class="Special"><-</span> get right, top +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *tmp +<span id="L128" class="LineNr">128 </span> result <span class="Special"><-</span> add left-length +<span id="L129" class="LineNr">129 </span> <span class="PreProc">return</span> result +<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), g: grapheme <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L135" class="LineNr">135 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> left, g +<span id="L136" class="LineNr">136 </span><span class="Delimiter">}</span> +<span id="L137" class="LineNr">137 </span> +<span id="L138" class="LineNr">138 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L138'>gap-to-start</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L139" class="LineNr">139 </span> <span class="Delimiter">{</span> +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L182'>gap-left</a> self +<span id="L141" class="LineNr">141 </span> compare curr, <span class="Constant">-1</span> +<span id="L142" class="LineNr">142 </span> <span class="PreProc">loop-if-!=</span> +<span id="L143" class="LineNr">143 </span> <span class="Delimiter">}</span> +<span id="L144" class="LineNr">144 </span><span class="Delimiter">}</span> +<span id="L145" class="LineNr">145 </span> +<span id="L146" class="LineNr">146 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L146'>gap-to-end</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> <span class="Delimiter">{</span> +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L168'>gap-right</a> self +<span id="L149" class="LineNr">149 </span> compare curr, <span class="Constant">-1</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">loop-if-!=</span> +<span id="L151" class="LineNr">151 </span> <span class="Delimiter">}</span> +<span id="L152" class="LineNr">152 </span><span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> +<span id="L154" class="LineNr">154 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L154'>gap-at-start?</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L157" class="LineNr">157 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> left +<span id="L158" class="LineNr">158 </span> <span class="PreProc">return</span> result +<span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span> +<span id="L161" class="LineNr">161 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L161'>gap-at-end?</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L163" class="LineNr">163 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a> right +<span id="L165" class="LineNr">165 </span> <span class="PreProc">return</span> result +<span id="L166" class="LineNr">166 </span><span class="Delimiter">}</span> +<span id="L167" class="LineNr">167 </span> +<span id="L168" class="LineNr">168 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L168'>gap-right</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L170" class="LineNr">170 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L172" class="LineNr">172 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> right +<span id="L173" class="LineNr">173 </span> compare g, <span class="Constant">-1</span> +<span id="L174" class="LineNr">174 </span> <span class="Delimiter">{</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if-=</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L177" class="LineNr">177 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> left, g +<span id="L178" class="LineNr">178 </span> <span class="Delimiter">}</span> +<span id="L179" class="LineNr">179 </span> <span class="PreProc">return</span> g +<span id="L180" class="LineNr">180 </span><span class="Delimiter">}</span> +<span id="L181" class="LineNr">181 </span> +<span id="L182" class="LineNr">182 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L182'>gap-left</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L185" class="LineNr">185 </span> <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L187" class="LineNr">187 </span> g <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> left +<span id="L188" class="LineNr">188 </span> <span class="Delimiter">}</span> +<span id="L189" class="LineNr">189 </span> compare g, <span class="Constant">-1</span> +<span id="L190" class="LineNr">190 </span> <span class="Delimiter">{</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">break-if-=</span> +<span id="L192" class="LineNr">192 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L193" class="LineNr">193 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> right, g +<span id="L194" class="LineNr">194 </span> <span class="Delimiter">}</span> +<span id="L195" class="LineNr">195 </span> <span class="PreProc">return</span> g +<span id="L196" class="LineNr">196 </span><span class="Delimiter">}</span> +<span id="L197" class="LineNr">197 </span> +<span id="L198" class="LineNr">198 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L198'>index-of-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L201" class="LineNr">201 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get left, top +<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L203" class="LineNr">203 </span> <span class="PreProc">return</span> result +<span id="L204" class="LineNr">204 </span><span class="Delimiter">}</span> +<span id="L205" class="LineNr">205 </span> +<span id="L206" class="LineNr">206 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L206'>first-grapheme-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L208" class="LineNr">208 </span> <span class="muComment"># try to read from left</span> +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get left, top +<span id="L211" class="LineNr">211 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L212" class="LineNr">212 </span> <span class="Delimiter">{</span> +<span id="L213" class="LineNr">213 </span> <span class="PreProc">break-if-<=</span> +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data +<span id="L215" class="LineNr">215 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L216" class="LineNr">216 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, <span class="Constant">0</span> +<span id="L217" class="LineNr">217 </span> <span class="PreProc">return</span> *result-addr +<span id="L218" class="LineNr">218 </span> <span class="Delimiter">}</span> +<span id="L219" class="LineNr">219 </span> <span class="muComment"># try to read from right</span> +<span id="L220" class="LineNr">220 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L221" class="LineNr">221 </span> top-addr <span class="Special"><-</span> get right, top +<span id="L222" class="LineNr">222 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L223" class="LineNr">223 </span> <span class="Delimiter">{</span> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">break-if-<=</span> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L227" class="LineNr">227 </span> <span class="PreProc">var</span> top/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L228" class="LineNr">228 </span> top <span class="Special"><-</span> decrement +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, top +<span id="L230" class="LineNr">230 </span> <span class="PreProc">return</span> *result-addr +<span id="L231" class="LineNr">231 </span> <span class="Delimiter">}</span> +<span id="L232" class="LineNr">232 </span> <span class="muComment"># give up</span> +<span id="L233" class="LineNr">233 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> +<span id="L234" class="LineNr">234 </span><span class="Delimiter">}</span> +<span id="L235" class="LineNr">235 </span> +<span id="L236" class="LineNr">236 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L236'>grapheme-before-cursor-in-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L238" class="LineNr">238 </span> <span class="muComment"># try to read from left</span> +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get left, top +<span id="L241" class="LineNr">241 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L242" class="LineNr">242 </span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span> <span class="PreProc">break-if-<=</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> left +<span id="L245" class="LineNr">245 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> left, result +<span id="L246" class="LineNr">246 </span> <span class="PreProc">return</span> result +<span id="L247" class="LineNr">247 </span> <span class="Delimiter">}</span> +<span id="L248" class="LineNr">248 </span> <span class="muComment"># give up</span> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> +<span id="L250" class="LineNr">250 </span><span class="Delimiter">}</span> +<span id="L251" class="LineNr">251 </span> +<span id="L252" class="LineNr">252 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L252'>delete-before-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L254" class="LineNr">254 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L255" class="LineNr">255 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> left +<span id="L256" class="LineNr">256 </span><span class="Delimiter">}</span> +<span id="L257" class="LineNr">257 </span> +<span id="L258" class="LineNr">258 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L258'>pop-after-gap</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L51'>pop-grapheme-stack</a> right +<span id="L262" class="LineNr">262 </span> <span class="PreProc">return</span> result +<span id="L263" class="LineNr">263 </span><span class="Delimiter">}</span> +<span id="L264" class="LineNr">264 </span> +<span id="L265" class="LineNr">265 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L265'>gap-buffer-equal?</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), s: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L267" class="LineNr">267 </span> <span class="muComment"># complication: graphemes may be multiple bytes</span> +<span id="L268" class="LineNr">268 </span> <span class="muComment"># so don't rely on length</span> +<span id="L269" class="LineNr">269 </span> <span class="muComment"># instead turn the expected result into a stream and arrange to read from it in order</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x10</span>/max-word-size) +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> expected-stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L272" class="LineNr">272 </span> <a href='../108write.subx.html#L11'>write</a> expected-stream, s +<span id="L273" class="LineNr">273 </span> <span class="muComment"># compare left</span> +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> left/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L275" class="LineNr">275 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L206'>prefix-match?</a> left, expected-stream +<span id="L276" class="LineNr">276 </span> compare result, <span class="Constant">0</span>/false +<span id="L277" class="LineNr">277 </span> <span class="Delimiter">{</span> +<span id="L278" class="LineNr">278 </span> <span class="PreProc">break-if-!=</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">return</span> result +<span id="L280" class="LineNr">280 </span> <span class="Delimiter">}</span> +<span id="L281" class="LineNr">281 </span> <span class="muComment"># compare right</span> +<span id="L282" class="LineNr">282 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L283" class="LineNr">283 </span> result <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L234'>suffix-match?</a> right, expected-stream +<span id="L284" class="LineNr">284 </span> compare result, <span class="Constant">0</span>/false +<span id="L285" class="LineNr">285 </span> <span class="Delimiter">{</span> +<span id="L286" class="LineNr">286 </span> <span class="PreProc">break-if-!=</span> +<span id="L287" class="LineNr">287 </span> <span class="PreProc">return</span> result +<span id="L288" class="LineNr">288 </span> <span class="Delimiter">}</span> +<span id="L289" class="LineNr">289 </span> <span class="muComment"># ensure there's nothing left over</span> +<span id="L290" class="LineNr">290 </span> result <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> expected-stream +<span id="L291" class="LineNr">291 </span> <span class="PreProc">return</span> result +<span id="L292" class="LineNr">292 </span><span class="Delimiter">}</span> +<span id="L293" class="LineNr">293 </span> +<span id="L294" class="LineNr">294 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L294'>test-gap-buffer-equal-from-end</a></span> <span class="Delimiter">{</span> +<span id="L295" class="LineNr">295 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L296" class="LineNr">296 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g +<span id="L297" class="LineNr">297 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> g, <span class="Constant">0x10</span> +<span id="L298" class="LineNr">298 </span> <span class="muComment">#</span> +<span id="L299" class="LineNr">299 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L300" class="LineNr">300 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L301" class="LineNr">301 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L302" class="LineNr">302 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L303" class="LineNr">303 </span> <span class="muComment"># gap is at end (right is empty)</span> +<span id="L304" class="LineNr">304 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L265'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L305" class="LineNr">305 </span> <a href='../502test.mu.html#L19'>check</a> result, <span class="Constant">"F - test-gap-buffer-equal-from-end"</span> +<span id="L306" class="LineNr">306 </span><span class="Delimiter">}</span> +<span id="L307" class="LineNr">307 </span> +<span id="L308" class="LineNr">308 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L308'>test-gap-buffer-equal-from-middle</a></span> <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g +<span id="L311" class="LineNr">311 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> g, <span class="Constant">0x10</span> +<span id="L312" class="LineNr">312 </span> <span class="muComment">#</span> +<span id="L313" class="LineNr">313 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L314" class="LineNr">314 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L315" class="LineNr">315 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L316" class="LineNr">316 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L317" class="LineNr">317 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L182'>gap-left</a> g +<span id="L318" class="LineNr">318 </span> <span class="muComment"># gap is in the middle</span> +<span id="L319" class="LineNr">319 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L265'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L320" class="LineNr">320 </span> <a href='../502test.mu.html#L19'>check</a> result, <span class="Constant">"F - test-gap-buffer-equal-from-middle"</span> +<span id="L321" class="LineNr">321 </span><span class="Delimiter">}</span> +<span id="L322" class="LineNr">322 </span> +<span id="L323" class="LineNr">323 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L323'>test-gap-buffer-equal-from-start</a></span> <span class="Delimiter">{</span> +<span id="L324" class="LineNr">324 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L325" class="LineNr">325 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g +<span id="L326" class="LineNr">326 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> g, <span class="Constant">0x10</span> +<span id="L327" class="LineNr">327 </span> <span class="muComment">#</span> +<span id="L328" class="LineNr">328 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L329" class="LineNr">329 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L330" class="LineNr">330 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L331" class="LineNr">331 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L332" class="LineNr">332 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L182'>gap-left</a> g +<span id="L333" class="LineNr">333 </span> dummy <span class="Special"><-</span> <a href='gap-buffer.mu.html#L182'>gap-left</a> g +<span id="L334" class="LineNr">334 </span> dummy <span class="Special"><-</span> <a href='gap-buffer.mu.html#L182'>gap-left</a> g +<span id="L335" class="LineNr">335 </span> <span class="muComment"># gap is at the start</span> +<span id="L336" class="LineNr">336 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L265'>gap-buffer-equal?</a> g, <span class="Constant">"aaa"</span> +<span id="L337" class="LineNr">337 </span> <a href='../502test.mu.html#L19'>check</a> result, <span class="Constant">"F - test-gap-buffer-equal-from-start"</span> +<span id="L338" class="LineNr">338 </span><span class="Delimiter">}</span> +<span id="L339" class="LineNr">339 </span> +<span id="L340" class="LineNr">340 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L340'>test-gap-buffer-equal-fails</a></span> <span class="Delimiter">{</span> +<span id="L341" class="LineNr">341 </span> <span class="muComment"># g = "aaa"</span> +<span id="L342" class="LineNr">342 </span> <span class="PreProc">var</span> _g: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L343" class="LineNr">343 </span> <span class="PreProc">var</span> g/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _g +<span id="L344" class="LineNr">344 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> g, <span class="Constant">0x10</span> +<span id="L345" class="LineNr">345 </span> <span class="PreProc">var</span> c/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L346" class="LineNr">346 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L347" class="LineNr">347 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L348" class="LineNr">348 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> g, c +<span id="L349" class="LineNr">349 </span> <span class="muComment">#</span> +<span id="L350" class="LineNr">350 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L265'>gap-buffer-equal?</a> g, <span class="Constant">"aa"</span> +<span id="L351" class="LineNr">351 </span> <a href='../502test.mu.html#L32'>check-not</a> result, <span class="Constant">"F - test-gap-buffer-equal-fails"</span> +<span id="L352" class="LineNr">352 </span><span class="Delimiter">}</span> +<span id="L353" class="LineNr">353 </span> +<span id="L354" class="LineNr">354 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L354'>gap-buffers-equal?</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), g: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L355" class="LineNr">355 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L120'>gap-buffer-length</a> self +<span id="L356" class="LineNr">356 </span> <span class="PreProc">var</span> len/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy tmp +<span id="L357" class="LineNr">357 </span> <span class="PreProc">var</span> leng/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L120'>gap-buffer-length</a> g +<span id="L358" class="LineNr">358 </span> compare len, leng +<span id="L359" class="LineNr">359 </span> <span class="Delimiter">{</span> +<span id="L360" class="LineNr">360 </span> <span class="PreProc">break-if-=</span> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L362" class="LineNr">362 </span> <span class="Delimiter">}</span> +<span id="L363" class="LineNr">363 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L364" class="LineNr">364 </span> <span class="Delimiter">{</span> +<span id="L365" class="LineNr">365 </span> compare i, len +<span id="L366" class="LineNr">366 </span> <span class="PreProc">break-if->=</span> +<span id="L367" class="LineNr">367 </span> <span class="Delimiter">{</span> +<span id="L368" class="LineNr">368 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> self, i +<span id="L369" class="LineNr">369 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: grapheme <span class="Special"><-</span> copy tmp +<span id="L370" class="LineNr">370 </span> <span class="PreProc">var</span> currg/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> g, i +<span id="L371" class="LineNr">371 </span> compare curr, currg +<span id="L372" class="LineNr">372 </span> <span class="PreProc">break-if-=</span> +<span id="L373" class="LineNr">373 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L374" class="LineNr">374 </span> <span class="Delimiter">}</span> +<span id="L375" class="LineNr">375 </span> i <span class="Special"><-</span> increment +<span id="L376" class="LineNr">376 </span> <span class="PreProc">loop</span> +<span id="L377" class="LineNr">377 </span> <span class="Delimiter">}</span> +<span id="L378" class="LineNr">378 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L379" class="LineNr">379 </span><span class="Delimiter">}</span> +<span id="L380" class="LineNr">380 </span> +<span id="L381" class="LineNr">381 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L381'>gap-index</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), _n: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L382" class="LineNr">382 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L383" class="LineNr">383 </span> <span class="PreProc">var</span> n/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _n +<span id="L384" class="LineNr">384 </span> <span class="muComment"># if n < left->length, index into left</span> +<span id="L385" class="LineNr">385 </span> <span class="PreProc">var</span> left/<span class="Constant">edi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L386" class="LineNr">386 </span> <span class="PreProc">var</span> left-len-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get left, top +<span id="L387" class="LineNr">387 </span> compare n, *left-len-a +<span id="L388" class="LineNr">388 </span> <span class="Delimiter">{</span> +<span id="L389" class="LineNr">389 </span> <span class="PreProc">break-if->=</span> +<span id="L390" class="LineNr">390 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data +<span id="L391" class="LineNr">391 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L392" class="LineNr">392 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, n +<span id="L393" class="LineNr">393 </span> <span class="PreProc">return</span> *result +<span id="L394" class="LineNr">394 </span> <span class="Delimiter">}</span> +<span id="L395" class="LineNr">395 </span> <span class="muComment"># shrink n</span> +<span id="L396" class="LineNr">396 </span> n <span class="Special"><-</span> subtract *left-len-a +<span id="L397" class="LineNr">397 </span> <span class="muComment"># if n < right->length, index into right</span> +<span id="L398" class="LineNr">398 </span> <span class="PreProc">var</span> right/<span class="Constant">edi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L399" class="LineNr">399 </span> <span class="PreProc">var</span> right-len-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get right, top +<span id="L400" class="LineNr">400 </span> compare n, *right-len-a +<span id="L401" class="LineNr">401 </span> <span class="Delimiter">{</span> +<span id="L402" class="LineNr">402 </span> <span class="PreProc">break-if->=</span> +<span id="L403" class="LineNr">403 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data +<span id="L404" class="LineNr">404 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L405" class="LineNr">405 </span> <span class="muComment"># idx = right->len - n - 1</span> +<span id="L406" class="LineNr">406 </span> <span class="PreProc">var</span> idx/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy n +<span id="L407" class="LineNr">407 </span> idx <span class="Special"><-</span> subtract *right-len-a +<span id="L408" class="LineNr">408 </span> idx <span class="Special"><-</span> negate +<span id="L409" class="LineNr">409 </span> idx <span class="Special"><-</span> subtract <span class="Constant">1</span> +<span id="L410" class="LineNr">410 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, idx +<span id="L411" class="LineNr">411 </span> <span class="PreProc">return</span> *result +<span id="L412" class="LineNr">412 </span> <span class="Delimiter">}</span> +<span id="L413" class="LineNr">413 </span> <span class="muComment"># error</span> +<span id="L414" class="LineNr">414 </span> <a href='../501draw-text.mu.html#L459'>abort</a> <span class="Constant">"gap-index: out of bounds"</span> +<span id="L415" class="LineNr">415 </span> <span class="PreProc">return</span> <span class="Constant">0</span> +<span id="L416" class="LineNr">416 </span><span class="Delimiter">}</span> +<span id="L417" class="LineNr">417 </span> +<span id="L418" class="LineNr">418 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L418'>test-gap-buffers-equal?</a></span> <span class="Delimiter">{</span> +<span id="L419" class="LineNr">419 </span> <span class="PreProc">var</span> _a: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L420" class="LineNr">420 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _a +<span id="L421" class="LineNr">421 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> a, <span class="Constant">"abc"</span> +<span id="L422" class="LineNr">422 </span> <span class="PreProc">var</span> _b: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L423" class="LineNr">423 </span> <span class="PreProc">var</span> b/<span class="Constant">edi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _b +<span id="L424" class="LineNr">424 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> b, <span class="Constant">"abc"</span> +<span id="L425" class="LineNr">425 </span> <span class="PreProc">var</span> _c: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L426" class="LineNr">426 </span> <span class="PreProc">var</span> c/<span class="Constant">ebx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _c +<span id="L427" class="LineNr">427 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> c, <span class="Constant">"ab"</span> +<span id="L428" class="LineNr">428 </span> <span class="PreProc">var</span> _d: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L429" class="LineNr">429 </span> <span class="PreProc">var</span> d/<span class="Constant">edx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address _d +<span id="L430" class="LineNr">430 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> d, <span class="Constant">"abd"</span> +<span id="L431" class="LineNr">431 </span> <span class="muComment">#</span> +<span id="L432" class="LineNr">432 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L354'>gap-buffers-equal?</a> a, a +<span id="L433" class="LineNr">433 </span> <a href='../502test.mu.html#L19'>check</a> result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L418'>test-gap-buffers-equal?</a> - reflexive"</span> +<span id="L434" class="LineNr">434 </span> result <span class="Special"><-</span> <a href='gap-buffer.mu.html#L354'>gap-buffers-equal?</a> a, b +<span id="L435" class="LineNr">435 </span> <a href='../502test.mu.html#L19'>check</a> result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L418'>test-gap-buffers-equal?</a> - equal"</span> +<span id="L436" class="LineNr">436 </span> <span class="muComment"># length not equal</span> +<span id="L437" class="LineNr">437 </span> result <span class="Special"><-</span> <a href='gap-buffer.mu.html#L354'>gap-buffers-equal?</a> a, c +<span id="L438" class="LineNr">438 </span> <a href='../502test.mu.html#L32'>check-not</a> result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L418'>test-gap-buffers-equal?</a> - not equal"</span> +<span id="L439" class="LineNr">439 </span> <span class="muComment"># contents not equal</span> +<span id="L440" class="LineNr">440 </span> result <span class="Special"><-</span> <a href='gap-buffer.mu.html#L354'>gap-buffers-equal?</a> a, d +<span id="L441" class="LineNr">441 </span> <a href='../502test.mu.html#L32'>check-not</a> result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L418'>test-gap-buffers-equal?</a> - not equal 2"</span> +<span id="L442" class="LineNr">442 </span> result <span class="Special"><-</span> <a href='gap-buffer.mu.html#L354'>gap-buffers-equal?</a> d, a +<span id="L443" class="LineNr">443 </span> <a href='../502test.mu.html#L32'>check-not</a> result, <span class="Constant">"F - <a href='gap-buffer.mu.html#L418'>test-gap-buffers-equal?</a> - not equal 3"</span> +<span id="L444" class="LineNr">444 </span><span class="Delimiter">}</span> +<span id="L445" class="LineNr">445 </span> +<span id="L446" class="LineNr">446 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L446'>test-gap-buffer-index</a></span> <span class="Delimiter">{</span> +<span id="L447" class="LineNr">447 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L448" class="LineNr">448 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage +<span id="L449" class="LineNr">449 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> +<span id="L450" class="LineNr">450 </span> <span class="muComment"># gap is at end, all contents are in left</span> +<span id="L451" class="LineNr">451 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> gap, <span class="Constant">0</span> +<span id="L452" class="LineNr">452 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L453" class="LineNr">453 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - test-gap-index/left-1"</span> +<span id="L454" class="LineNr">454 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> gap, <span class="Constant">1</span> +<span id="L455" class="LineNr">455 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L456" class="LineNr">456 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - test-gap-index/left-2"</span> +<span id="L457" class="LineNr">457 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> gap, <span class="Constant">2</span> +<span id="L458" class="LineNr">458 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L459" class="LineNr">459 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - test-gap-index/left-3"</span> +<span id="L460" class="LineNr">460 </span> <span class="muComment"># now check when everything is to the right</span> +<span id="L461" class="LineNr">461 </span> <a href='gap-buffer.mu.html#L138'>gap-to-start</a> gap +<span id="L462" class="LineNr">462 </span> <a href='gap-buffer.mu.html#L582'>rewind-gap-buffer</a> gap +<span id="L463" class="LineNr">463 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> gap, <span class="Constant">0</span> +<span id="L464" class="LineNr">464 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L465" class="LineNr">465 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - test-gap-index/right-1"</span> +<span id="L466" class="LineNr">466 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> gap, <span class="Constant">1</span> +<span id="L467" class="LineNr">467 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L468" class="LineNr">468 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - test-gap-index/right-2"</span> +<span id="L469" class="LineNr">469 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L381'>gap-index</a> gap, <span class="Constant">2</span> +<span id="L470" class="LineNr">470 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L471" class="LineNr">471 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - test-gap-index/right-3"</span> +<span id="L472" class="LineNr">472 </span><span class="Delimiter">}</span> +<span id="L473" class="LineNr">473 </span> +<span id="L474" class="LineNr">474 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L474'>copy-gap-buffer</a></span> _src-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), _dest-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L475" class="LineNr">475 </span> <span class="muComment"># obtain src-a, dest-a</span> +<span id="L476" class="LineNr">476 </span> <span class="PreProc">var</span> src-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _src-ah +<span id="L477" class="LineNr">477 </span> <span class="PreProc">var</span> _src-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *src-ah +<span id="L478" class="LineNr">478 </span> <span class="PreProc">var</span> src-a/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _src-a +<span id="L479" class="LineNr">479 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-ah +<span id="L480" class="LineNr">480 </span> <span class="PreProc">var</span> _dest-a/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *dest-ah +<span id="L481" class="LineNr">481 </span> <span class="PreProc">var</span> dest-a/<span class="Constant">edi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _dest-a +<span id="L482" class="LineNr">482 </span> <span class="muComment"># copy left grapheme-stack</span> +<span id="L483" class="LineNr">483 </span> <span class="PreProc">var</span> src/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get src-a, left +<span id="L484" class="LineNr">484 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get dest-a, left +<span id="L485" class="LineNr">485 </span> <a href='grapheme-stack.mu.html#L67'>copy-grapheme-stack</a> src, dest +<span id="L486" class="LineNr">486 </span> <span class="muComment"># copy right grapheme-stack</span> +<span id="L487" class="LineNr">487 </span> src <span class="Special"><-</span> get src-a, right +<span id="L488" class="LineNr">488 </span> dest <span class="Special"><-</span> get dest-a, right +<span id="L489" class="LineNr">489 </span> <a href='grapheme-stack.mu.html#L67'>copy-grapheme-stack</a> src, dest +<span id="L490" class="LineNr">490 </span><span class="Delimiter">}</span> +<span id="L491" class="LineNr">491 </span> +<span id="L492" class="LineNr">492 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L492'>gap-buffer-is-decimal-integer?</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L493" class="LineNr">493 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L494" class="LineNr">494 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L495" class="LineNr">495 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L261'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L496" class="LineNr">496 </span> <span class="Delimiter">{</span> +<span id="L497" class="LineNr">497 </span> compare result, <span class="Constant">0</span>/false +<span id="L498" class="LineNr">498 </span> <span class="PreProc">break-if-=</span> +<span id="L499" class="LineNr">499 </span> curr <span class="Special"><-</span> get self, right +<span id="L500" class="LineNr">500 </span> result <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L261'>grapheme-stack-is-decimal-integer?</a> curr +<span id="L501" class="LineNr">501 </span> <span class="Delimiter">}</span> +<span id="L502" class="LineNr">502 </span> <span class="PreProc">return</span> result +<span id="L503" class="LineNr">503 </span><span class="Delimiter">}</span> +<span id="L504" class="LineNr">504 </span> +<span id="L505" class="LineNr">505 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L505'>test-render-gap-buffer-without-cursor</a></span> <span class="Delimiter">{</span> +<span id="L506" class="LineNr">506 </span> <span class="muComment"># setup</span> +<span id="L507" class="LineNr">507 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L508" class="LineNr">508 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage +<span id="L509" class="LineNr">509 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> +<span id="L510" class="LineNr">510 </span> <span class="muComment"># setup: screen</span> +<span id="L511" class="LineNr">511 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L512" class="LineNr">512 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L513" class="LineNr">513 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L514" class="LineNr">514 </span> <span class="muComment">#</span> +<span id="L515" class="LineNr">515 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L108'>render-gap-buffer</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0</span>/no-cursor +<span id="L516" class="LineNr">516 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-without-cursor"</span> +<span id="L517" class="LineNr">517 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L505'>test-render-gap-buffer-without-cursor</a>: result"</span> +<span id="L518" class="LineNr">518 </span> <span class="muComment"># abc</span> +<span id="L519" class="LineNr">519 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L505'>test-render-gap-buffer-without-cursor</a>: bg"</span> +<span id="L520" class="LineNr">520 </span><span class="Delimiter">}</span> +<span id="L521" class="LineNr">521 </span> +<span id="L522" class="LineNr">522 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L522'>test-render-gap-buffer-with-cursor-at-end</a></span> <span class="Delimiter">{</span> +<span id="L523" class="LineNr">523 </span> <span class="muComment"># setup</span> +<span id="L524" class="LineNr">524 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L525" class="LineNr">525 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage +<span id="L526" class="LineNr">526 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> +<span id="L527" class="LineNr">527 </span> <a href='gap-buffer.mu.html#L146'>gap-to-end</a> gap +<span id="L528" class="LineNr">528 </span> <span class="muComment"># setup: screen</span> +<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L530" class="LineNr">530 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L531" class="LineNr">531 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L532" class="LineNr">532 </span> <span class="muComment">#</span> +<span id="L533" class="LineNr">533 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L108'>render-gap-buffer</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/show-cursor +<span id="L534" class="LineNr">534 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-with-cursor-at-end"</span> +<span id="L535" class="LineNr">535 </span> <span class="muComment"># we've drawn one extra grapheme for the cursor</span> +<span id="L536" class="LineNr">536 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L522'>test-render-gap-buffer-with-cursor-at-end</a>: result"</span> +<span id="L537" class="LineNr">537 </span> <span class="muComment"># abc</span> +<span id="L538" class="LineNr">538 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" |"</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L522'>test-render-gap-buffer-with-cursor-at-end</a>: bg"</span> +<span id="L539" class="LineNr">539 </span><span class="Delimiter">}</span> +<span id="L540" class="LineNr">540 </span> +<span id="L541" class="LineNr">541 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L541'>test-render-gap-buffer-with-cursor-in-middle</a></span> <span class="Delimiter">{</span> +<span id="L542" class="LineNr">542 </span> <span class="muComment"># setup</span> +<span id="L543" class="LineNr">543 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L544" class="LineNr">544 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage +<span id="L545" class="LineNr">545 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> +<span id="L546" class="LineNr">546 </span> <a href='gap-buffer.mu.html#L146'>gap-to-end</a> gap +<span id="L547" class="LineNr">547 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L182'>gap-left</a> gap +<span id="L548" class="LineNr">548 </span> <span class="muComment"># setup: screen</span> +<span id="L549" class="LineNr">549 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L550" class="LineNr">550 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L551" class="LineNr">551 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L552" class="LineNr">552 </span> <span class="muComment">#</span> +<span id="L553" class="LineNr">553 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L108'>render-gap-buffer</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/show-cursor +<span id="L554" class="LineNr">554 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-with-cursor-in-middle"</span> +<span id="L555" class="LineNr">555 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L541'>test-render-gap-buffer-with-cursor-in-middle</a>: result"</span> +<span id="L556" class="LineNr">556 </span> <span class="muComment"># abc</span> +<span id="L557" class="LineNr">557 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L541'>test-render-gap-buffer-with-cursor-in-middle</a>: bg"</span> +<span id="L558" class="LineNr">558 </span><span class="Delimiter">}</span> +<span id="L559" class="LineNr">559 </span> +<span id="L560" class="LineNr">560 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L560'>test-render-gap-buffer-with-cursor-at-start</a></span> <span class="Delimiter">{</span> +<span id="L561" class="LineNr">561 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L562" class="LineNr">562 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage +<span id="L563" class="LineNr">563 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> +<span id="L564" class="LineNr">564 </span> <a href='gap-buffer.mu.html#L138'>gap-to-start</a> gap +<span id="L565" class="LineNr">565 </span> <span class="muComment"># setup: screen</span> +<span id="L566" class="LineNr">566 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L567" class="LineNr">567 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L568" class="LineNr">568 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L569" class="LineNr">569 </span> <span class="muComment">#</span> +<span id="L570" class="LineNr">570 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='gap-buffer.mu.html#L108'>render-gap-buffer</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gap, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">1</span>/show-cursor +<span id="L571" class="LineNr">571 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - test-render-gap-buffer-with-cursor-at-start"</span> +<span id="L572" class="LineNr">572 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">4</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L560'>test-render-gap-buffer-with-cursor-at-start</a>: result"</span> +<span id="L573" class="LineNr">573 </span> <span class="muComment"># abc</span> +<span id="L574" class="LineNr">574 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='gap-buffer.mu.html#L560'>test-render-gap-buffer-with-cursor-at-start</a>: bg"</span> +<span id="L575" class="LineNr">575 </span><span class="Delimiter">}</span> +<span id="L576" class="LineNr">576 </span> +<span id="L577" class="LineNr">577 </span><span class="muComment">## some primitives for scanning through a gap buffer</span> +<span id="L578" class="LineNr">578 </span><span class="muComment"># don't modify the gap buffer while scanning</span> +<span id="L579" class="LineNr">579 </span><span class="muComment"># this includes moving the cursor around</span> +<span id="L580" class="LineNr">580 </span> +<span id="L581" class="LineNr">581 </span><span class="muComment"># restart scan without affecting gap-buffer contents</span> +<span id="L582" class="LineNr">582 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L582'>rewind-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L583" class="LineNr">583 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L584" class="LineNr">584 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, left-read-index +<span id="L585" class="LineNr">585 </span> copy-to *dest, <span class="Constant">0</span> +<span id="L586" class="LineNr">586 </span> dest <span class="Special"><-</span> get self, right-read-index +<span id="L587" class="LineNr">587 </span> copy-to *dest, <span class="Constant">0</span> +<span id="L588" class="LineNr">588 </span><span class="Delimiter">}</span> +<span id="L589" class="LineNr">589 </span> +<span id="L590" class="LineNr">590 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L591" class="LineNr">591 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L592" class="LineNr">592 </span> <span class="muComment"># more in left?</span> +<span id="L593" class="LineNr">593 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L594" class="LineNr">594 </span> <span class="PreProc">var</span> left-size/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L33'>grapheme-stack-length</a> left +<span id="L595" class="LineNr">595 </span> <span class="PreProc">var</span> left-read-index/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, left-read-index +<span id="L596" class="LineNr">596 </span> compare *left-read-index, left-size +<span id="L597" class="LineNr">597 </span> <span class="Delimiter">{</span> +<span id="L598" class="LineNr">598 </span> <span class="PreProc">break-if->=</span> +<span id="L599" class="LineNr">599 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L600" class="LineNr">600 </span> <span class="Delimiter">}</span> +<span id="L601" class="LineNr">601 </span> <span class="muComment"># more in right?</span> +<span id="L602" class="LineNr">602 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L603" class="LineNr">603 </span> <span class="PreProc">var</span> right-size/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L33'>grapheme-stack-length</a> right +<span id="L604" class="LineNr">604 </span> <span class="PreProc">var</span> right-read-index/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, right-read-index +<span id="L605" class="LineNr">605 </span> compare *right-read-index, right-size +<span id="L606" class="LineNr">606 </span> <span class="Delimiter">{</span> +<span id="L607" class="LineNr">607 </span> <span class="PreProc">break-if->=</span> +<span id="L608" class="LineNr">608 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L609" class="LineNr">609 </span> <span class="Delimiter">}</span> +<span id="L610" class="LineNr">610 </span> <span class="muComment">#</span> +<span id="L611" class="LineNr">611 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L612" class="LineNr">612 </span><span class="Delimiter">}</span> +<span id="L613" class="LineNr">613 </span> +<span id="L614" class="LineNr">614 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L614'>peek-from-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L615" class="LineNr">615 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L616" class="LineNr">616 </span> <span class="muComment"># more in left?</span> +<span id="L617" class="LineNr">617 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L618" class="LineNr">618 </span> <span class="PreProc">var</span> left-size/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L33'>grapheme-stack-length</a> left +<span id="L619" class="LineNr">619 </span> <span class="PreProc">var</span> left-read-index-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, left-read-index +<span id="L620" class="LineNr">620 </span> compare *left-read-index-a, left-size +<span id="L621" class="LineNr">621 </span> <span class="Delimiter">{</span> +<span id="L622" class="LineNr">622 </span> <span class="PreProc">break-if->=</span> +<span id="L623" class="LineNr">623 </span> <span class="PreProc">var</span> left-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data +<span id="L624" class="LineNr">624 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-data-ah +<span id="L625" class="LineNr">625 </span> <span class="PreProc">var</span> left-read-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *left-read-index-a +<span id="L626" class="LineNr">626 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index left-data, left-read-index +<span id="L627" class="LineNr">627 </span> <span class="PreProc">return</span> *result +<span id="L628" class="LineNr">628 </span> <span class="Delimiter">}</span> +<span id="L629" class="LineNr">629 </span> <span class="muComment"># more in right?</span> +<span id="L630" class="LineNr">630 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L631" class="LineNr">631 </span> <span class="PreProc">var</span> _right-size/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L33'>grapheme-stack-length</a> right +<span id="L632" class="LineNr">632 </span> <span class="PreProc">var</span> right-size/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _right-size +<span id="L633" class="LineNr">633 </span> <span class="PreProc">var</span> right-read-index-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, right-read-index +<span id="L634" class="LineNr">634 </span> compare *right-read-index-a, right-size +<span id="L635" class="LineNr">635 </span> <span class="Delimiter">{</span> +<span id="L636" class="LineNr">636 </span> <span class="PreProc">break-if->=</span> +<span id="L637" class="LineNr">637 </span> <span class="muComment"># read the right from reverse</span> +<span id="L638" class="LineNr">638 </span> <span class="PreProc">var</span> right-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data +<span id="L639" class="LineNr">639 </span> <span class="PreProc">var</span> right-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-data-ah +<span id="L640" class="LineNr">640 </span> <span class="PreProc">var</span> right-read-index/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy right-size +<span id="L641" class="LineNr">641 </span> right-read-index <span class="Special"><-</span> subtract *right-read-index-a +<span id="L642" class="LineNr">642 </span> right-read-index <span class="Special"><-</span> subtract <span class="Constant">1</span> +<span id="L643" class="LineNr">643 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index right-data, right-read-index +<span id="L644" class="LineNr">644 </span> <span class="PreProc">return</span> *result +<span id="L645" class="LineNr">645 </span> <span class="Delimiter">}</span> +<span id="L646" class="LineNr">646 </span> <span class="muComment"># if we get here there's nothing left</span> +<span id="L647" class="LineNr">647 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/nul +<span id="L648" class="LineNr">648 </span><span class="Delimiter">}</span> +<span id="L649" class="LineNr">649 </span> +<span id="L650" class="LineNr">650 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a></span> _self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L651" class="LineNr">651 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _self +<span id="L652" class="LineNr">652 </span> <span class="muComment"># more in left?</span> +<span id="L653" class="LineNr">653 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, left +<span id="L654" class="LineNr">654 </span> <span class="PreProc">var</span> left-size/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L33'>grapheme-stack-length</a> left +<span id="L655" class="LineNr">655 </span> <span class="PreProc">var</span> left-read-index-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, left-read-index +<span id="L656" class="LineNr">656 </span> compare *left-read-index-a, left-size +<span id="L657" class="LineNr">657 </span> <span class="Delimiter">{</span> +<span id="L658" class="LineNr">658 </span> <span class="PreProc">break-if->=</span> +<span id="L659" class="LineNr">659 </span> <span class="PreProc">var</span> left-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get left, data +<span id="L660" class="LineNr">660 </span> <span class="PreProc">var</span> left-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-data-ah +<span id="L661" class="LineNr">661 </span> <span class="PreProc">var</span> left-read-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *left-read-index-a +<span id="L662" class="LineNr">662 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index left-data, left-read-index +<span id="L663" class="LineNr">663 </span> increment *left-read-index-a +<span id="L664" class="LineNr">664 </span> <span class="PreProc">return</span> *result +<span id="L665" class="LineNr">665 </span> <span class="Delimiter">}</span> +<span id="L666" class="LineNr">666 </span> <span class="muComment"># more in right?</span> +<span id="L667" class="LineNr">667 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> get self, right +<span id="L668" class="LineNr">668 </span> <span class="PreProc">var</span> _right-size/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L33'>grapheme-stack-length</a> right +<span id="L669" class="LineNr">669 </span> <span class="PreProc">var</span> right-size/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _right-size +<span id="L670" class="LineNr">670 </span> <span class="PreProc">var</span> right-read-index-a/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, right-read-index +<span id="L671" class="LineNr">671 </span> compare *right-read-index-a, right-size +<span id="L672" class="LineNr">672 </span> <span class="Delimiter">{</span> +<span id="L673" class="LineNr">673 </span> <span class="PreProc">break-if->=</span> +<span id="L674" class="LineNr">674 </span> <span class="muComment"># read the right from reverse</span> +<span id="L675" class="LineNr">675 </span> <span class="PreProc">var</span> right-data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get right, data +<span id="L676" class="LineNr">676 </span> <span class="PreProc">var</span> right-data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-data-ah +<span id="L677" class="LineNr">677 </span> <span class="PreProc">var</span> right-read-index/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy right-size +<span id="L678" class="LineNr">678 </span> right-read-index <span class="Special"><-</span> subtract *right-read-index-a +<span id="L679" class="LineNr">679 </span> right-read-index <span class="Special"><-</span> subtract <span class="Constant">1</span> +<span id="L680" class="LineNr">680 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index right-data, right-read-index +<span id="L681" class="LineNr">681 </span> increment *right-read-index-a +<span id="L682" class="LineNr">682 </span> <span class="PreProc">return</span> *result +<span id="L683" class="LineNr">683 </span> <span class="Delimiter">}</span> +<span id="L684" class="LineNr">684 </span> <span class="muComment"># if we get here there's nothing left</span> +<span id="L685" class="LineNr">685 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/nul +<span id="L686" class="LineNr">686 </span><span class="Delimiter">}</span> +<span id="L687" class="LineNr">687 </span> +<span id="L688" class="LineNr">688 </span><span class="PreProc">fn</span> <span class="muTest"><a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a></span> <span class="Delimiter">{</span> +<span id="L689" class="LineNr">689 </span> <span class="PreProc">var</span> gap-storage: <a href='gap-buffer.mu.html#L3'>gap-buffer</a> +<span id="L690" class="LineNr">690 </span> <span class="PreProc">var</span> gap/<span class="Constant">esi</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> address gap-storage +<span id="L691" class="LineNr">691 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> gap, <span class="Constant">"abc"</span> +<span id="L692" class="LineNr">692 </span> <span class="muComment"># gap is at end, all contents are in left</span> +<span id="L693" class="LineNr">693 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L694" class="LineNr">694 </span> <a href='../502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-1/done"</span> +<span id="L695" class="LineNr">695 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L696" class="LineNr">696 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L697" class="LineNr">697 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-1"</span> +<span id="L698" class="LineNr">698 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L699" class="LineNr">699 </span> <a href='../502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-2/done"</span> +<span id="L700" class="LineNr">700 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L701" class="LineNr">701 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L702" class="LineNr">702 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-2"</span> +<span id="L703" class="LineNr">703 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L704" class="LineNr">704 </span> <a href='../502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-3/done"</span> +<span id="L705" class="LineNr">705 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L706" class="LineNr">706 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L707" class="LineNr">707 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-3"</span> +<span id="L708" class="LineNr">708 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L709" class="LineNr">709 </span> <a href='../502test.mu.html#L19'>check</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-4/done"</span> +<span id="L710" class="LineNr">710 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L711" class="LineNr">711 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L712" class="LineNr">712 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0</span>/nul, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/left-4"</span> +<span id="L713" class="LineNr">713 </span> <span class="muComment"># now check when everything is to the right</span> +<span id="L714" class="LineNr">714 </span> <a href='gap-buffer.mu.html#L138'>gap-to-start</a> gap +<span id="L715" class="LineNr">715 </span> <a href='gap-buffer.mu.html#L582'>rewind-gap-buffer</a> gap +<span id="L716" class="LineNr">716 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L717" class="LineNr">717 </span> <a href='../502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-1/done"</span> +<span id="L718" class="LineNr">718 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L719" class="LineNr">719 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L720" class="LineNr">720 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x61</span>/a, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-1"</span> +<span id="L721" class="LineNr">721 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L722" class="LineNr">722 </span> <a href='../502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-2/done"</span> +<span id="L723" class="LineNr">723 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L724" class="LineNr">724 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L725" class="LineNr">725 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x62</span>/b, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-2"</span> +<span id="L726" class="LineNr">726 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L727" class="LineNr">727 </span> <a href='../502test.mu.html#L32'>check-not</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-3/done"</span> +<span id="L728" class="LineNr">728 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L729" class="LineNr">729 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L730" class="LineNr">730 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0x63</span>/c, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-3"</span> +<span id="L731" class="LineNr">731 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> gap +<span id="L732" class="LineNr">732 </span> <a href='../502test.mu.html#L19'>check</a> done?, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-4/done"</span> +<span id="L733" class="LineNr">733 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> gap +<span id="L734" class="LineNr">734 </span> <span class="PreProc">var</span> x/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy g +<span id="L735" class="LineNr">735 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">0</span>/nul, <span class="Constant">"F - <a href='gap-buffer.mu.html#L688'>test-read-from-gap-buffer</a>/right-4"</span> +<span id="L736" class="LineNr">736 </span><span class="Delimiter">}</span> +<span id="L737" class="LineNr">737 </span> +<span id="L738" class="LineNr">738 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L738'>skip-whitespace-from-gap-buffer</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Delimiter">{</span> +<span id="L739" class="LineNr">739 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> self +<span id="L740" class="LineNr">740 </span> compare done?, <span class="Constant">0</span>/false +<span id="L741" class="LineNr">741 </span> <span class="PreProc">break-if-!=</span> +<span id="L742" class="LineNr">742 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L614'>peek-from-gap-buffer</a> self +<span id="L743" class="LineNr">743 </span> <span class="Delimiter">{</span> +<span id="L744" class="LineNr">744 </span> compare g, <span class="Constant">0x20</span>/space +<span id="L745" class="LineNr">745 </span> <span class="PreProc">break-if-=</span> +<span id="L746" class="LineNr">746 </span> compare g, <span class="Constant">0xa</span>/newline +<span id="L747" class="LineNr">747 </span> <span class="PreProc">break-if-=</span> +<span id="L748" class="LineNr">748 </span> <span class="PreProc">return</span> +<span id="L749" class="LineNr">749 </span> <span class="Delimiter">}</span> +<span id="L750" class="LineNr">750 </span> g <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> self +<span id="L751" class="LineNr">751 </span> <span class="PreProc">loop</span> +<span id="L752" class="LineNr">752 </span><span class="Delimiter">}</span> +<span id="L753" class="LineNr">753 </span> +<span id="L754" class="LineNr">754 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L754'>edit-gap-buffer</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L755" class="LineNr">755 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy key +<span id="L756" class="LineNr">756 </span> <span class="Delimiter">{</span> +<span id="L757" class="LineNr">757 </span> compare g, <span class="Constant">8</span>/backspace +<span id="L758" class="LineNr">758 </span> <span class="PreProc">break-if-!=</span> +<span id="L759" class="LineNr">759 </span> <a href='gap-buffer.mu.html#L252'>delete-before-gap</a> self +<span id="L760" class="LineNr">760 </span> <span class="PreProc">return</span> +<span id="L761" class="LineNr">761 </span> <span class="Delimiter">}</span> +<span id="L762" class="LineNr">762 </span> <span class="muComment"># arrow keys</span> +<span id="L763" class="LineNr">763 </span> <span class="Delimiter">{</span> +<span id="L764" class="LineNr">764 </span> compare g, <span class="Constant">4</span>/ctrl-d +<span id="L765" class="LineNr">765 </span> <span class="PreProc">break-if-!=</span> +<span id="L766" class="LineNr">766 </span> <span class="muComment"># ctrl-d: cursor down</span> +<span id="L767" class="LineNr">767 </span> <span class="PreProc">return</span> +<span id="L768" class="LineNr">768 </span> <span class="Delimiter">}</span> +<span id="L769" class="LineNr">769 </span> <span class="Delimiter">{</span> +<span id="L770" class="LineNr">770 </span> compare g, <span class="Constant">0x15</span>/ctrl-u +<span id="L771" class="LineNr">771 </span> <span class="PreProc">break-if-!=</span> +<span id="L772" class="LineNr">772 </span> <span class="muComment"># ctrl-u: cursor up</span> +<span id="L773" class="LineNr">773 </span> <span class="PreProc">return</span> +<span id="L774" class="LineNr">774 </span> <span class="Delimiter">}</span> +<span id="L775" class="LineNr">775 </span> <span class="muComment"># default: insert character</span> +<span id="L776" class="LineNr">776 </span> <a href='gap-buffer.mu.html#L132'>add-grapheme-at-gap</a> self, g +<span id="L777" class="LineNr">777 </span><span class="Delimiter">}</span> +<span id="L778" class="LineNr">778 </span> +<span id="L779" class="LineNr">779 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='gap-buffer.mu.html#L779'>cursor-on-final-line?</a></span> self: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L780" class="LineNr">780 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L781" class="LineNr">781 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/grapheme-stack.mu.html b/html/shell/grapheme-stack.mu.html new file mode 100644 index 00000000..ccd4a88f --- /dev/null +++ b/html/shell/grapheme-stack.mu.html @@ -0,0 +1,343 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/grapheme-stack.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/shell/grapheme-stack.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># grapheme stacks are the smallest unit of editable text</span> +<span id="L2" class="LineNr"> 2 </span> +<span id="L3" class="LineNr"> 3 </span><span class="PreProc">type</span> <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a> <span class="Delimiter">{</span> +<span id="L4" class="LineNr"> 4 </span> data: (handle array grapheme) +<span id="L5" class="LineNr"> 5 </span> top: int +<span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), n: int <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> d/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L11" class="LineNr"> 11 </span> populate d, n +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> top/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L13" class="LineNr"> 13 </span> copy-to *top, <span class="Constant">0</span> +<span id="L14" class="LineNr"> 14 </span><span class="Delimiter">}</span> +<span id="L15" class="LineNr"> 15 </span> +<span id="L16" class="LineNr"> 16 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L16'>clear-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> top/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L19" class="LineNr"> 19 </span> copy-to *top, <span class="Constant">0</span> +<span id="L20" class="LineNr"> 20 </span><span class="Delimiter">}</span> +<span id="L21" class="LineNr"> 21 </span> +<span id="L22" class="LineNr"> 22 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L22'>grapheme-stack-empty?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L23" class="LineNr"> 23 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">var</span> top/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L25" class="LineNr"> 25 </span> compare *top, <span class="Constant">0</span> +<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">break-if-!=</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> +<span id="L32" class="LineNr"> 32 </span> +<span id="L33" class="LineNr"> 33 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L33'>grapheme-stack-length</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> top/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">return</span> *top +<span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), _val: grapheme <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, top +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy _val +<span id="L47" class="LineNr"> 47 </span> copy-to *dest-addr, val +<span id="L48" class="LineNr"> 48 </span> add-to *top-addr, <span class="Constant">1</span> +<span id="L49" class="LineNr"> 49 </span><span class="Delimiter">}</span> +<span id="L50" class="LineNr"> 50 </span> +<span id="L51" class="LineNr"> 51 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L51'>pop-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L54" class="LineNr"> 54 </span> <span class="Delimiter">{</span> +<span id="L55" class="LineNr"> 55 </span> compare *top-addr, <span class="Constant">0</span> +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-></span> +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">return</span> <span class="Constant">-1</span> +<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">}</span> +<span id="L59" class="LineNr"> 59 </span> subtract-from *top-addr, <span class="Constant">1</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> top/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="Special"><-</span> index data, top +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">return</span> *result-addr +<span id="L65" class="LineNr"> 65 </span><span class="Delimiter">}</span> +<span id="L66" class="LineNr"> 66 </span> +<span id="L67" class="LineNr"> 67 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L67'>copy-grapheme-stack</a></span> _src: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Delimiter">{</span> +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> src/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _src +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get src, data +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get src, top +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L74" class="LineNr"> 74 </span> <span class="Delimiter">{</span> +<span id="L75" class="LineNr"> 75 </span> compare i, *top-addr +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">break-if->=</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L78" class="LineNr"> 78 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> dest, *g +<span id="L79" class="LineNr"> 79 </span> i <span class="Special"><-</span> increment +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">loop</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> +<span id="L82" class="LineNr"> 82 </span><span class="Delimiter">}</span> +<span id="L83" class="LineNr"> 83 </span> +<span id="L84" class="LineNr"> 84 </span><span class="muComment"># dump stack to screen from bottom to top</span> +<span id="L85" class="LineNr"> 85 </span><span class="muComment"># colors hardcoded</span> +<span id="L86" class="LineNr"> 86 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L86'>render-stack-from-bottom-wrapping-right-then-down</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _x +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">{</span> +<span id="L96" class="LineNr"> 96 </span> compare i, *top-addr +<span id="L97" class="LineNr"> 97 </span> <span class="PreProc">break-if->=</span> +<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L100" class="LineNr">100 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L141'>render-grapheme</a> <a href='../500text-screen.mu.html#L9'>screen</a>, *g, xmin, ymin, xmax, ymax, x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">}</span> +<span id="L102" class="LineNr">102 </span> i <span class="Special"><-</span> increment +<span id="L103" class="LineNr">103 </span> <span class="PreProc">loop</span> +<span id="L104" class="LineNr">104 </span> <span class="Delimiter">}</span> +<span id="L105" class="LineNr">105 </span> <span class="PreProc">return</span> x, y +<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span> +<span id="L107" class="LineNr">107 </span> +<span id="L108" class="LineNr">108 </span><span class="muComment"># helper for small words</span> +<span id="L109" class="LineNr">109 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L109'>render-stack-from-bottom</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), x: int, y: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> _width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L111" class="LineNr">111 </span> <span class="PreProc">var</span> _height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L112" class="LineNr">112 </span> _width, _height <span class="Special"><-</span> <a href='../500text-screen.mu.html#L50'>screen-size</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> width/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _width +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> height/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _height +<span id="L115" class="LineNr">115 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L116" class="LineNr">116 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L117" class="LineNr">117 </span> x2, y2 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L86'>render-stack-from-bottom-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, self, x, y, width, height, x, y +<span id="L118" class="LineNr">118 </span> <span class="PreProc">return</span> x2 <span class="muComment"># y2? yolo</span> +<span id="L119" class="LineNr">119 </span><span class="Delimiter">}</span> +<span id="L120" class="LineNr">120 </span> +<span id="L121" class="LineNr">121 </span><span class="muComment"># dump stack to screen from top to bottom</span> +<span id="L122" class="LineNr">122 </span><span class="muComment"># optionally render a 'cursor' with the top grapheme</span> +<span id="L123" class="LineNr">123 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L123'>render-stack-from-top-wrapping-right-then-down</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int, _/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy _x +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L132" class="LineNr">132 </span> i <span class="Special"><-</span> decrement +<span id="L133" class="LineNr">133 </span> <span class="muComment"># if render-cursor?, peel off first iteration</span> +<span id="L134" class="LineNr">134 </span> <span class="Delimiter">{</span> +<span id="L135" class="LineNr">135 </span> compare render-cursor?, <span class="Constant">0</span>/false +<span id="L136" class="LineNr">136 </span> <span class="PreProc">break-if-=</span> +<span id="L137" class="LineNr">137 </span> compare i, <span class="Constant">0</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-<</span> +<span id="L139" class="LineNr">139 </span> <span class="Delimiter">{</span> +<span id="L140" class="LineNr">140 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L141" class="LineNr">141 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L141'>render-grapheme</a> <a href='../500text-screen.mu.html#L9'>screen</a>, *g, xmin, ymin, xmax, ymax, x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">7</span>/bg=cursor +<span id="L142" class="LineNr">142 </span> <span class="Delimiter">}</span> +<span id="L143" class="LineNr">143 </span> i <span class="Special"><-</span> decrement +<span id="L144" class="LineNr">144 </span> <span class="Delimiter">}</span> +<span id="L145" class="LineNr">145 </span> <span class="muComment"># remaining iterations</span> +<span id="L146" class="LineNr">146 </span> <span class="Delimiter">{</span> +<span id="L147" class="LineNr">147 </span> compare i, <span class="Constant">0</span> +<span id="L148" class="LineNr">148 </span> <span class="PreProc">break-if-<</span> +<span id="L149" class="LineNr">149 </span> <span class="Delimiter">{</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L151" class="LineNr">151 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L141'>render-grapheme</a> <a href='../500text-screen.mu.html#L9'>screen</a>, *g, xmin, ymin, xmax, ymax, x, y, <span class="Constant">3</span>/fg=cyan, <span class="Constant">0</span>/bg=cursor +<span id="L152" class="LineNr">152 </span> <span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> i <span class="Special"><-</span> decrement +<span id="L154" class="LineNr">154 </span> <span class="PreProc">loop</span> +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">}</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">return</span> x, y +<span id="L157" class="LineNr">157 </span><span class="Delimiter">}</span> +<span id="L158" class="LineNr">158 </span> +<span id="L159" class="LineNr">159 </span><span class="muComment"># helper for small words</span> +<span id="L160" class="LineNr">160 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L160'>render-stack-from-top</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), x: int, y: int, render-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: int <span class="Delimiter">{</span> +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> _width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> _height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L163" class="LineNr">163 </span> _width, _height <span class="Special"><-</span> <a href='../500text-screen.mu.html#L50'>screen-size</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> width/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy _width +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> height/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _height +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> x2/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L167" class="LineNr">167 </span> <span class="PreProc">var</span> y2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L168" class="LineNr">168 </span> x2, y2 <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L123'>render-stack-from-top-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, self, x, y, width, height, x, y, render-cursor? +<span id="L169" class="LineNr">169 </span> <span class="PreProc">return</span> x2 <span class="muComment"># y2? yolo</span> +<span id="L170" class="LineNr">170 </span><span class="Delimiter">}</span> +<span id="L171" class="LineNr">171 </span> +<span id="L172" class="LineNr">172 </span><span class="PreProc">fn</span> <span class="muTest"><a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a></span> <span class="Delimiter">{</span> +<span id="L173" class="LineNr">173 </span> <span class="muComment"># setup: gs = "abc"</span> +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> gs-storage: <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> gs/<span class="Constant">edi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> address gs-storage +<span id="L176" class="LineNr">176 </span> <a href='grapheme-stack.mu.html#L8'>initialize-grapheme-stack</a> gs, <span class="Constant">5</span> +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> copy <span class="Constant">0x61</span>/a +<span id="L178" class="LineNr">178 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L179" class="LineNr">179 </span> g <span class="Special"><-</span> copy <span class="Constant">0x62</span>/b +<span id="L180" class="LineNr">180 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L181" class="LineNr">181 </span> g <span class="Special"><-</span> copy <span class="Constant">0x63</span>/c +<span id="L182" class="LineNr">182 </span> <a href='grapheme-stack.mu.html#L39'>push-grapheme-stack</a> gs, g +<span id="L183" class="LineNr">183 </span> <span class="muComment"># setup: screen</span> +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L185" class="LineNr">185 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">esi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L186" class="LineNr">186 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>, <span class="Constant">4</span> +<span id="L187" class="LineNr">187 </span> <span class="muComment">#</span> +<span id="L188" class="LineNr">188 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L109'>render-stack-from-bottom</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y +<span id="L189" class="LineNr">189 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"abc "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from bottom"</span> +<span id="L190" class="LineNr">190 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from bottom: result"</span> +<span id="L191" class="LineNr">191 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from bottom: bg"</span> +<span id="L192" class="LineNr">192 </span> <span class="muComment">#</span> +<span id="L193" class="LineNr">193 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L160'>render-stack-from-top</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">1</span>/y, <span class="Constant">0</span>/cursor=false +<span id="L194" class="LineNr">194 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from top without cursor"</span> +<span id="L195" class="LineNr">195 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from top without cursor: result"</span> +<span id="L196" class="LineNr">196 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from top without cursor: bg"</span> +<span id="L197" class="LineNr">197 </span> <span class="muComment">#</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='grapheme-stack.mu.html#L160'>render-stack-from-top</a> <a href='../500text-screen.mu.html#L9'>screen</a>, gs, <span class="Constant">0</span>/x, <span class="Constant">2</span>/y, <span class="Constant">1</span>/cursor=true +<span id="L199" class="LineNr">199 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"cba "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from top with cursor"</span> +<span id="L200" class="LineNr">200 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> x, <span class="Constant">3</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from top without cursor: result"</span> +<span id="L201" class="LineNr">201 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"| "</span>, <span class="Constant">"F - <a href='grapheme-stack.mu.html#L172'>test-render-grapheme-stack</a> from top with cursor: bg"</span> +<span id="L202" class="LineNr">202 </span><span class="Delimiter">}</span> +<span id="L203" class="LineNr">203 </span> +<span id="L204" class="LineNr">204 </span><span class="muComment"># compare from bottom</span> +<span id="L205" class="LineNr">205 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> +<span id="L206" class="LineNr">206 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L206'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L209" class="LineNr">209 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L213" class="LineNr">213 </span> <span class="Delimiter">{</span> +<span id="L214" class="LineNr">214 </span> compare i, *top-addr +<span id="L215" class="LineNr">215 </span> <span class="PreProc">break-if->=</span> +<span id="L216" class="LineNr">216 </span> <span class="muComment"># if curr != expected, return false</span> +<span id="L217" class="LineNr">217 </span> <span class="Delimiter">{</span> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L219" class="LineNr">219 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> s +<span id="L220" class="LineNr">220 </span> <span class="Delimiter">{</span> +<span id="L221" class="LineNr">221 </span> compare expected, *curr-a +<span id="L222" class="LineNr">222 </span> <span class="PreProc">break-if-=</span> +<span id="L223" class="LineNr">223 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L224" class="LineNr">224 </span> <span class="Delimiter">}</span> +<span id="L225" class="LineNr">225 </span> <span class="Delimiter">}</span> +<span id="L226" class="LineNr">226 </span> i <span class="Special"><-</span> increment +<span id="L227" class="LineNr">227 </span> <span class="PreProc">loop</span> +<span id="L228" class="LineNr">228 </span> <span class="Delimiter">}</span> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L230" class="LineNr">230 </span><span class="Delimiter">}</span> +<span id="L231" class="LineNr">231 </span> +<span id="L232" class="LineNr">232 </span><span class="muComment"># compare from bottom</span> +<span id="L233" class="LineNr">233 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> +<span id="L234" class="LineNr">234 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L234'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L236" class="LineNr">236 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L237" class="LineNr">237 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *top-addr +<span id="L241" class="LineNr">241 </span> i <span class="Special"><-</span> decrement +<span id="L242" class="LineNr">242 </span> <span class="Delimiter">{</span> +<span id="L243" class="LineNr">243 </span> compare i, <span class="Constant">0</span> +<span id="L244" class="LineNr">244 </span> <span class="PreProc">break-if-<</span> +<span id="L245" class="LineNr">245 </span> <span class="Delimiter">{</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> s +<span id="L248" class="LineNr">248 </span> <span class="muComment"># if curr != expected, return false</span> +<span id="L249" class="LineNr">249 </span> <span class="Delimiter">{</span> +<span id="L250" class="LineNr">250 </span> compare expected, *curr-a +<span id="L251" class="LineNr">251 </span> <span class="PreProc">break-if-=</span> +<span id="L252" class="LineNr">252 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L253" class="LineNr">253 </span> <span class="Delimiter">}</span> +<span id="L254" class="LineNr">254 </span> <span class="Delimiter">}</span> +<span id="L255" class="LineNr">255 </span> i <span class="Special"><-</span> decrement +<span id="L256" class="LineNr">256 </span> <span class="PreProc">loop</span> +<span id="L257" class="LineNr">257 </span> <span class="Delimiter">}</span> +<span id="L258" class="LineNr">258 </span> <span class="PreProc">return</span> <span class="Constant">1</span> <span class="muComment"># true</span> +<span id="L259" class="LineNr">259 </span><span class="Delimiter">}</span> +<span id="L260" class="LineNr">260 </span> +<span id="L261" class="LineNr">261 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L261'>grapheme-stack-is-decimal-integer?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L262" class="LineNr">262 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L3'>grapheme-stack</a>) <span class="Special"><-</span> copy _self +<span id="L263" class="LineNr">263 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array grapheme) <span class="Special"><-</span> get self, data +<span id="L264" class="LineNr">264 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L265" class="LineNr">265 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr array grapheme) <span class="Special"><-</span> copy _data +<span id="L266" class="LineNr">266 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, top +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> copy <span class="Constant">1</span>/true +<span id="L269" class="LineNr">269 </span> $grapheme-stack-is-integer?:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L270" class="LineNr">270 </span> compare i, *top-addr +<span id="L271" class="LineNr">271 </span> <span class="PreProc">break-if->=</span> +<span id="L272" class="LineNr">272 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="Special"><-</span> index data, i +<span id="L273" class="LineNr">273 </span> result <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> *g +<span id="L274" class="LineNr">274 </span> compare result, <span class="Constant">0</span>/false +<span id="L275" class="LineNr">275 </span> <span class="PreProc">break-if-=</span> +<span id="L276" class="LineNr">276 </span> i <span class="Special"><-</span> increment +<span id="L277" class="LineNr">277 </span> <span class="PreProc">loop</span> +<span id="L278" class="LineNr">278 </span> <span class="Delimiter">}</span> +<span id="L279" class="LineNr">279 </span> <span class="PreProc">return</span> result +<span id="L280" class="LineNr">280 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/main.mu.html b/html/shell/main.mu.html new file mode 100644 index 00000000..3db8fdab --- /dev/null +++ b/html/shell/main.mu.html @@ -0,0 +1,104 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/main.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/main.mu'>https://github.com/akkartik/mu/blob/main/shell/main.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># Experimental Mu shell</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># A Lisp with indent-sensitivity and infix, no macros. Commas are ignored.</span> +<span id="L3" class="LineNr"> 3 </span> +<span id="L4" class="LineNr"> 4 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L4'>main</a></span> <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L7" class="LineNr"> 7 </span> <a href='sandbox.mu.html#L8'>initialize-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L8" class="LineNr"> 8 </span> <a href='main.mu.html#L27'>load-sandbox-from-secondary-disk</a> <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L10" class="LineNr">10 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L11" class="LineNr">11 </span> width, height <span class="Special"><-</span> <a href='../500text-screen.mu.html#L50'>screen-size</a> <span class="Constant">0</span>/screen +<span id="L12" class="LineNr">12 </span> <span class="Delimiter">{</span> +<span id="L13" class="LineNr">13 </span> <a href='sandbox.mu.html#L41'>render-sandbox</a> <span class="Constant">0</span>/screen, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">2</span>/x, <span class="Constant">2</span>/y, width, height +<span id="L14" class="LineNr">14 </span> <span class="Delimiter">{</span> +<span id="L15" class="LineNr">15 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../102keyboard.subx.html#L9'>read-key</a> <span class="Constant">0</span>/keyboard +<span id="L16" class="LineNr">16 </span> compare key, <span class="Constant">0</span> +<span id="L17" class="LineNr">17 </span> <span class="PreProc">loop-if-=</span> +<span id="L18" class="LineNr">18 </span> <span class="muComment"># no way to quit right now; just reboot</span> +<span id="L19" class="LineNr">19 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, key +<span id="L20" class="LineNr">20 </span> <span class="Delimiter">}</span> +<span id="L21" class="LineNr">21 </span> <span class="PreProc">loop</span> +<span id="L22" class="LineNr">22 </span> <span class="Delimiter">}</span> +<span id="L23" class="LineNr">23 </span><span class="Delimiter">}</span> +<span id="L24" class="LineNr">24 </span> +<span id="L25" class="LineNr">25 </span><span class="muComment"># Read a null-terminated sequence of keys from secondary disk and load them</span> +<span id="L26" class="LineNr">26 </span><span class="muComment"># into sandbox.</span> +<span id="L27" class="LineNr">27 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='main.mu.html#L27'>load-sandbox-from-secondary-disk</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Delimiter">{</span> +<span id="L28" class="LineNr">28 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self +<span id="L29" class="LineNr">29 </span> <span class="PreProc">var</span> s-storage: (stream byte <span class="Constant">0x200</span>) +<span id="L30" class="LineNr">30 </span> <span class="PreProc">var</span> s/<span class="Constant">ebx</span>: (addr stream byte) <span class="Special"><-</span> address s-storage +<span id="L31" class="LineNr">31 </span> load-first-sector-from-primary-bus-secondary-drive s +<span id="L32" class="LineNr">32 </span> <span class="Delimiter">{</span> +<span id="L33" class="LineNr">33 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> s +<span id="L34" class="LineNr">34 </span> compare done?, <span class="Constant">0</span>/false +<span id="L35" class="LineNr">35 </span> <span class="PreProc">break-if-!=</span> +<span id="L36" class="LineNr">36 </span> <span class="PreProc">var</span> key/<span class="Constant">eax</span>: byte <span class="Special"><-</span> <a href='../112read-byte.subx.html#L13'>read-byte</a> s +<span id="L37" class="LineNr">37 </span> compare key, <span class="Constant">0</span>/null +<span id="L38" class="LineNr">38 </span> <span class="PreProc">break-if-=</span> +<span id="L39" class="LineNr">39 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> self, key +<span id="L40" class="LineNr">40 </span> <span class="PreProc">loop</span> +<span id="L41" class="LineNr">41 </span> <span class="Delimiter">}</span> +<span id="L42" class="LineNr">42 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/parse.mu.html b/html/shell/parse.mu.html new file mode 100644 index 00000000..c751fb45 --- /dev/null +++ b/html/shell/parse.mu.html @@ -0,0 +1,198 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/parse.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Special { color: #ff6060; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/parse.mu'>https://github.com/akkartik/mu/blob/main/shell/parse.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L1'>parse-input</a></span> tokens: (addr stream <a href='cell.mu.html#L1'>cell</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> tokens +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> tokens +<span id="L4" class="LineNr"> 4 </span> compare empty?, <span class="Constant">0</span>/false +<span id="L5" class="LineNr"> 5 </span> <span class="Delimiter">{</span> +<span id="L6" class="LineNr"> 6 </span> <span class="PreProc">break-if-=</span> +<span id="L7" class="LineNr"> 7 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"nothing to parse"</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">return</span> +<span id="L9" class="LineNr"> 9 </span> <span class="Delimiter">}</span> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='parse.mu.html#L26'>parse-sexpression</a> tokens, out, trace +<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">break-if-=</span> +<span id="L14" class="LineNr"> 14 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"')' is not a valid expression"</span> +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">return</span> +<span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">}</span> +<span id="L17" class="LineNr"> 17 </span> <span class="Delimiter">{</span> +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> tokens +<span id="L19" class="LineNr"> 19 </span> compare empty?, <span class="Constant">0</span>/false +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">break-if-!=</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"unexpected tokens at end; only type in a single expression at a time"</span> +<span id="L22" class="LineNr"> 22 </span> <span class="Delimiter">}</span> +<span id="L23" class="LineNr"> 23 </span><span class="Delimiter">}</span> +<span id="L24" class="LineNr"> 24 </span> +<span id="L25" class="LineNr"> 25 </span><span class="muComment"># return value: true if close-paren was encountered</span> +<span id="L26" class="LineNr"> 26 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L26'>parse-sexpression</a></span> tokens: (addr stream <a href='cell.mu.html#L1'>cell</a>), _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"parse"</span> +<span id="L28" class="LineNr"> 28 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> curr-token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address curr-token-storage +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> empty?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> tokens +<span id="L32" class="LineNr"> 32 </span> compare empty?, <span class="Constant">0</span>/false +<span id="L33" class="LineNr"> 33 </span> <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">break-if-=</span> +<span id="L35" class="LineNr"> 35 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"end of stream; never found a balancing ')'"</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L37" class="LineNr"> 37 </span> <span class="Delimiter">}</span> +<span id="L38" class="LineNr"> 38 </span> <a href='../309stream.subx.html#L107'>read-from-stream</a> tokens, curr-token +<span id="L39" class="LineNr"> 39 </span> $parse-sexpression:type-check: <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="muComment"># not bracket -> parse atom</span> +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L533'>bracket-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L533'>bracket-token?</a> curr-token +<span id="L42" class="LineNr"> 42 </span> compare <a href='tokenize.mu.html#L533'>bracket-token?</a>, <span class="Constant">0</span>/false +<span id="L43" class="LineNr"> 43 </span> <span class="Delimiter">{</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">break-if-!=</span> +<span id="L45" class="LineNr"> 45 </span> <a href='parse.mu.html#L91'>parse-atom</a> curr-token, _out, trace +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">break</span> $parse-sexpression:type-check +<span id="L47" class="LineNr"> 47 </span> <span class="Delimiter">}</span> +<span id="L48" class="LineNr"> 48 </span> <span class="muComment"># open paren -> parse list</span> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> open-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L543'>open-paren-token?</a> curr-token +<span id="L50" class="LineNr"> 50 </span> compare open-paren?, <span class="Constant">0</span>/false +<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">break-if-=</span> +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L54" class="LineNr"> 54 </span> $parse-sexpression:list-loop: <span class="Delimiter">{</span> +<span id="L55" class="LineNr"> 55 </span> <a href='cell.mu.html#L73'>allocate-pair</a> curr +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">var</span> curr-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr +<span id="L57" class="LineNr"> 57 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr-addr, left +<span id="L58" class="LineNr"> 58 </span> <span class="Delimiter">{</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='parse.mu.html#L26'>parse-sexpression</a> tokens, left, trace +<span id="L60" class="LineNr"> 60 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">break-if-!=</span> $parse-sexpression:list-loop +<span id="L62" class="LineNr"> 62 </span> <span class="Delimiter">}</span> +<span id="L63" class="LineNr"> 63 </span> <span class="muComment">#</span> +<span id="L64" class="LineNr"> 64 </span> curr <span class="Special"><-</span> get curr-addr, right +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">loop</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">}</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">break</span> $parse-sexpression:type-check +<span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">}</span> +<span id="L69" class="LineNr"> 69 </span> <span class="muComment"># close paren -> parse list</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> close-paren?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L557'>close-paren-token?</a> curr-token +<span id="L71" class="LineNr"> 71 </span> compare close-paren?, <span class="Constant">0</span>/false +<span id="L72" class="LineNr"> 72 </span> <span class="Delimiter">{</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-=</span> +<span id="L74" class="LineNr"> 74 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">}</span> +<span id="L77" class="LineNr"> 77 </span> <span class="muComment"># otherwise abort</span> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> stream/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L80" class="LineNr"> 80 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"unexpected token "</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-token-data-ah +<span id="L83" class="LineNr"> 83 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> curr-token-data +<span id="L84" class="LineNr"> 84 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, curr-token-data +<span id="L85" class="LineNr"> 85 </span> trace trace, <span class="Constant">"error"</span>, stream +<span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">}</span> +<span id="L87" class="LineNr"> 87 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L89" class="LineNr"> 89 </span><span class="Delimiter">}</span> +<span id="L90" class="LineNr"> 90 </span> +<span id="L91" class="LineNr"> 91 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='parse.mu.html#L91'>parse-atom</a></span> _curr-token: (addr <a href='cell.mu.html#L1'>cell</a>), _out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L92" class="LineNr"> 92 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"parse atom"</span> +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> curr-token/<span class="Constant">ecx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _curr-token +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> _curr-token-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-token-data-ah +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">var</span> curr-token-data/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _curr-token-data +<span id="L97" class="LineNr"> 97 </span> trace trace, <span class="Constant">"read"</span>, curr-token-data +<span id="L98" class="LineNr"> 98 </span> <span class="muComment"># number</span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L523'>number-token?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L523'>number-token?</a> curr-token +<span id="L100" class="LineNr">100 </span> compare <a href='tokenize.mu.html#L523'>number-token?</a>, <span class="Constant">0</span>/false +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">break-if-=</span> +<span id="L103" class="LineNr">103 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> curr-token-data +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> _val/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../311decimal-int.subx.html#L48'>parse-decimal-int-from-stream</a> curr-token-data +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> val/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _val +<span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> val-float/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> convert val +<span id="L107" class="LineNr">107 </span> <a href='cell.mu.html#L39'>allocate-number</a> _out +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L110" class="LineNr">110 </span> <span class="PreProc">var</span> dest/<span class="Constant">edi</span>: (addr float) <span class="Special"><-</span> get out-addr, number-data +<span id="L111" class="LineNr">111 </span> copy-to *dest, val-float +<span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L115" class="LineNr">115 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> number "</span> +<span id="L116" class="LineNr">116 </span> <a href='print.mu.html#L65'>print-number</a> out-addr, stream, <span class="Constant">0</span>/no-trace +<span id="L117" class="LineNr">117 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L118" class="LineNr">118 </span> <span class="Delimiter">}</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">return</span> +<span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> +<span id="L121" class="LineNr">121 </span> <span class="muComment"># default: symbol</span> +<span id="L122" class="LineNr">122 </span> <span class="muComment"># just copy token data</span> +<span id="L123" class="LineNr">123 </span> <a href='cell.mu.html#L16'>allocate-symbol</a> _out +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> curr-token-data-ah/<span class="Constant">ecx</span>: (addr handle stream byte) <span class="Special"><-</span> get curr-token, text-data +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">edx</span>: (addr handle stream byte) <span class="Special"><-</span> get out-addr, text-data +<span id="L128" class="LineNr">128 </span> copy-object curr-token-data-ah, dest-ah +<span id="L129" class="LineNr">129 </span> <span class="Delimiter">{</span> +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L131" class="LineNr">131 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L132" class="LineNr">132 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> symbol "</span> +<span id="L133" class="LineNr">133 </span> <a href='print.mu.html#L48'>print-symbol</a> out-addr, stream, <span class="Constant">0</span>/no-trace +<span id="L134" class="LineNr">134 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L135" class="LineNr">135 </span> <span class="Delimiter">}</span> +<span id="L136" class="LineNr">136 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/print.mu.html b/html/shell/print.mu.html new file mode 100644 index 00000000..f82ded07 --- /dev/null +++ b/html/shell/print.mu.html @@ -0,0 +1,344 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/print.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Special { color: #ff6060; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/print.mu'>https://github.com/akkartik/mu/blob/main/shell/print.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L1'>print-cell</a></span> _in: (addr handle <a href='cell.mu.html#L1'>cell</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"print"</span> +<span id="L3" class="LineNr"> 3 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L4" class="LineNr"> 4 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> in-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in +<span id="L6" class="LineNr"> 6 </span> <span class="Delimiter">{</span> +<span id="L7" class="LineNr"> 7 </span> <span class="PreProc">var</span> <a href='print.mu.html#L116'>nil?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> in-addr +<span id="L8" class="LineNr"> 8 </span> compare <a href='print.mu.html#L116'>nil?</a>, <span class="Constant">0</span>/false +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">break-if-=</span> +<span id="L10" class="LineNr"> 10 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"()"</span> +<span id="L11" class="LineNr"> 11 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">return</span> +<span id="L13" class="LineNr"> 13 </span> <span class="Delimiter">}</span> +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> in-type/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get in-addr, <span class="PreProc">type</span> +<span id="L15" class="LineNr"> 15 </span> compare *in-type, <span class="Constant">0</span>/pair +<span id="L16" class="LineNr"> 16 </span> <span class="Delimiter">{</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">break-if-!=</span> +<span id="L18" class="LineNr"> 18 </span> <a href='print.mu.html#L77'>print-list</a> in-addr, out, trace +<span id="L19" class="LineNr"> 19 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L20" class="LineNr"> 20 </span> <span class="PreProc">return</span> +<span id="L21" class="LineNr"> 21 </span> <span class="Delimiter">}</span> +<span id="L22" class="LineNr"> 22 </span> compare *in-type, <span class="Constant">1</span>/number +<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-!=</span> +<span id="L25" class="LineNr"> 25 </span> <a href='print.mu.html#L65'>print-number</a> in-addr, out, trace +<span id="L26" class="LineNr"> 26 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L27" class="LineNr"> 27 </span> <span class="PreProc">return</span> +<span id="L28" class="LineNr"> 28 </span> <span class="Delimiter">}</span> +<span id="L29" class="LineNr"> 29 </span> compare *in-type, <span class="Constant">2</span>/symbol +<span id="L30" class="LineNr"> 30 </span> <span class="Delimiter">{</span> +<span id="L31" class="LineNr"> 31 </span> <span class="PreProc">break-if-!=</span> +<span id="L32" class="LineNr"> 32 </span> <a href='print.mu.html#L48'>print-symbol</a> in-addr, out, trace +<span id="L33" class="LineNr"> 33 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L34" class="LineNr"> 34 </span> <span class="PreProc">return</span> +<span id="L35" class="LineNr"> 35 </span> <span class="Delimiter">}</span> +<span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span> +<span id="L37" class="LineNr"> 37 </span> +<span id="L38" class="LineNr"> 38 </span><span class="muComment"># debug helper</span> +<span id="L39" class="LineNr"> 39 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L39'>dump-cell</a></span> in-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Delimiter">{</span> +<span id="L40" class="LineNr"> 40 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> stream/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L42" class="LineNr"> 42 </span> <a href='print.mu.html#L1'>print-cell</a> in-ah, stream, <span class="Constant">0</span>/no-trace +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> d1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L44" class="LineNr"> 44 </span> <span class="PreProc">var</span> d2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L45" class="LineNr"> 45 </span> d1, d2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L181'>draw-stream-wrapping-right-then-down</a> <span class="Constant">0</span>/screen, stream, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x80</span>/xmax, <span class="Constant">0x30</span>/ymax, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L46" class="LineNr"> 46 </span><span class="Delimiter">}</span> +<span id="L47" class="LineNr"> 47 </span> +<span id="L48" class="LineNr"> 48 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L48'>print-symbol</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L49" class="LineNr"> 49 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"symbol"</span> +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> data/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _data +<span id="L54" class="LineNr"> 54 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> data +<span id="L55" class="LineNr"> 55 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> out, data +<span id="L56" class="LineNr"> 56 </span> <span class="muComment"># trace</span> +<span id="L57" class="LineNr"> 57 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> data +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L60" class="LineNr"> 60 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> symbol "</span> +<span id="L61" class="LineNr"> 61 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, data +<span id="L62" class="LineNr"> 62 </span> trace trace, <span class="Constant">"print"</span>, stream +<span id="L63" class="LineNr"> 63 </span><span class="Delimiter">}</span> +<span id="L64" class="LineNr"> 64 </span> +<span id="L65" class="LineNr"> 65 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L65'>print-number</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: (addr float) <span class="Special"><-</span> get in, number-data +<span id="L68" class="LineNr"> 68 </span> <a href='../412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> out, *val, <span class="Constant">3</span>/precision +<span id="L69" class="LineNr"> 69 </span> <span class="muComment"># trace</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> stream/<span class="Constant">ecx</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L72" class="LineNr"> 72 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> number "</span> +<span id="L73" class="LineNr"> 73 </span> <a href='../412render-float-decimal.mu.html#L163'>write-float-decimal-approximate</a> stream, *val, <span class="Constant">3</span>/precision +<span id="L74" class="LineNr"> 74 </span> trace trace, <span class="Constant">"print"</span>, stream +<span id="L75" class="LineNr"> 75 </span><span class="Delimiter">}</span> +<span id="L76" class="LineNr"> 76 </span> +<span id="L77" class="LineNr"> 77 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L77'>print-list</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L78" class="LineNr"> 78 </span> <span class="PreProc">var</span> curr/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L79" class="LineNr"> 79 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">"("</span> +<span id="L80" class="LineNr"> 80 </span> $print-list:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, left +<span id="L82" class="LineNr"> 82 </span> <a href='print.mu.html#L1'>print-cell</a> left, out, trace +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> right/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get curr, right +<span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> right-addr/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">{</span> +<span id="L86" class="LineNr"> 86 </span> compare right-addr, <span class="Constant">0</span> +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">break-if-!=</span> +<span id="L88" class="LineNr"> 88 </span> <a href='../501draw-text.mu.html#L459'>abort</a> <span class="Constant">"null encountered"</span> +<span id="L89" class="LineNr"> 89 </span> <span class="Delimiter">}</span> +<span id="L90" class="LineNr"> 90 </span> <span class="Delimiter">{</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> right-nil?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='print.mu.html#L116'>nil?</a> right-addr +<span id="L92" class="LineNr"> 92 </span> compare right-nil?, <span class="Constant">0</span>/false +<span id="L93" class="LineNr"> 93 </span> <span class="Delimiter">{</span> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">break-if-=</span> +<span id="L95" class="LineNr"> 95 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"print"</span>, <span class="Constant">"right is null"</span> +<span id="L96" class="LineNr"> 96 </span> <span class="PreProc">break</span> $print-list:<span class="PreProc">loop</span> +<span id="L97" class="LineNr"> 97 </span> <span class="Delimiter">}</span> +<span id="L98" class="LineNr"> 98 </span> <span class="Delimiter">}</span> +<span id="L99" class="LineNr"> 99 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">" "</span> +<span id="L100" class="LineNr">100 </span> <span class="PreProc">var</span> right-type-addr/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get right-addr, <span class="PreProc">type</span> +<span id="L101" class="LineNr">101 </span> <span class="Delimiter">{</span> +<span id="L102" class="LineNr">102 </span> compare *right-type-addr, <span class="Constant">0</span>/pair +<span id="L103" class="LineNr">103 </span> <span class="PreProc">break-if-=</span> +<span id="L104" class="LineNr">104 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">". "</span> +<span id="L105" class="LineNr">105 </span> <a href='print.mu.html#L1'>print-cell</a> right, out, trace +<span id="L106" class="LineNr">106 </span> <span class="PreProc">break</span> $print-list:<span class="PreProc">loop</span> +<span id="L107" class="LineNr">107 </span> <span class="Delimiter">}</span> +<span id="L108" class="LineNr">108 </span> curr <span class="Special"><-</span> copy right-addr +<span id="L109" class="LineNr">109 </span> <span class="PreProc">loop</span> +<span id="L110" class="LineNr">110 </span> <span class="Delimiter">}</span> +<span id="L111" class="LineNr">111 </span> <a href='../108write.subx.html#L11'>write</a> out, <span class="Constant">")"</span> +<span id="L112" class="LineNr">112 </span><span class="Delimiter">}</span> +<span id="L113" class="LineNr">113 </span> +<span id="L114" class="LineNr">114 </span><span class="muComment"># Most lisps intern nil, but we don't really have globals yet, so we'll be</span> +<span id="L115" class="LineNr">115 </span><span class="muComment"># less efficient for now.</span> +<span id="L116" class="LineNr">116 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='print.mu.html#L116'>nil?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">var</span> in/<span class="Constant">esi</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L118" class="LineNr">118 </span> <span class="muComment"># if type != pair, return false</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> <span class="PreProc">type</span>/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get in, <span class="PreProc">type</span> +<span id="L120" class="LineNr">120 </span> compare *<span class="PreProc">type</span>, <span class="Constant">0</span>/pair +<span id="L121" class="LineNr">121 </span> <span class="Delimiter">{</span> +<span id="L122" class="LineNr">122 </span> <span class="PreProc">break-if-=</span> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> +<span id="L125" class="LineNr">125 </span> <span class="muComment"># if left != null, return false</span> +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> left-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, left +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> left/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *left-ah +<span id="L128" class="LineNr">128 </span> compare left, <span class="Constant">0</span> +<span id="L129" class="LineNr">129 </span> <span class="Delimiter">{</span> +<span id="L130" class="LineNr">130 </span> <span class="PreProc">break-if-=</span> +<span id="L131" class="LineNr">131 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L132" class="LineNr">132 </span> <span class="Delimiter">}</span> +<span id="L133" class="LineNr">133 </span> <span class="muComment"># if right != null, return false</span> +<span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> right-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> get in, right +<span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> right/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *right-ah +<span id="L136" class="LineNr">136 </span> compare right, <span class="Constant">0</span> +<span id="L137" class="LineNr">137 </span> <span class="Delimiter">{</span> +<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-=</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">}</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L142" class="LineNr">142 </span><span class="Delimiter">}</span> +<span id="L143" class="LineNr">143 </span> +<span id="L144" class="LineNr">144 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L144'>test-print-cell-zero</a></span> <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L146" class="LineNr">146 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L147" class="LineNr">147 </span> <a href='cell.mu.html#L55'>new-integer</a> num, <span class="Constant">0</span> +<span id="L148" class="LineNr">148 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L149" class="LineNr">149 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L150" class="LineNr">150 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L151" class="LineNr">151 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"0"</span>, <span class="Constant">"F - test-print-cell-zero"</span> +<span id="L152" class="LineNr">152 </span><span class="Delimiter">}</span> +<span id="L153" class="LineNr">153 </span> +<span id="L154" class="LineNr">154 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L154'>test-print-cell-integer</a></span> <span class="Delimiter">{</span> +<span id="L155" class="LineNr">155 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L157" class="LineNr">157 </span> <a href='cell.mu.html#L55'>new-integer</a> num, <span class="Constant">1</span> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L160" class="LineNr">160 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L161" class="LineNr">161 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"1"</span>, <span class="Constant">"F - test-print-cell-integer"</span> +<span id="L162" class="LineNr">162 </span><span class="Delimiter">}</span> +<span id="L163" class="LineNr">163 </span> +<span id="L164" class="LineNr">164 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L164'>test-print-cell-integer-2</a></span> <span class="Delimiter">{</span> +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L166" class="LineNr">166 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L167" class="LineNr">167 </span> <a href='cell.mu.html#L55'>new-integer</a> num, <span class="Constant">0x30</span> +<span id="L168" class="LineNr">168 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L169" class="LineNr">169 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L170" class="LineNr">170 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L171" class="LineNr">171 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"48"</span>, <span class="Constant">"F - test-print-cell-integer-2"</span> +<span id="L172" class="LineNr">172 </span><span class="Delimiter">}</span> +<span id="L173" class="LineNr">173 </span> +<span id="L174" class="LineNr">174 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L174'>test-print-cell-fraction</a></span> <span class="Delimiter">{</span> +<span id="L175" class="LineNr">175 </span> <span class="PreProc">var</span> num-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> num/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address num-storage +<span id="L177" class="LineNr">177 </span> <span class="PreProc">var</span> val/<span class="Constant">xmm0</span>: float <span class="Special"><-</span> <a href='../408float.mu.html#L18'>rational</a> <span class="Constant">1</span>, <span class="Constant">2</span> +<span id="L178" class="LineNr">178 </span> <a href='cell.mu.html#L68'>new-float</a> num, val +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L181" class="LineNr">181 </span> <a href='print.mu.html#L1'>print-cell</a> num, out, <span class="Constant">0</span>/no-trace +<span id="L182" class="LineNr">182 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"0.5"</span>, <span class="Constant">"F - test-print-cell-fraction"</span> +<span id="L183" class="LineNr">183 </span><span class="Delimiter">}</span> +<span id="L184" class="LineNr">184 </span> +<span id="L185" class="LineNr">185 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L185'>test-print-cell-symbol</a></span> <span class="Delimiter">{</span> +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> sym-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> sym/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address sym-storage +<span id="L188" class="LineNr">188 </span> <a href='cell.mu.html#L34'>new-symbol</a> sym, <span class="Constant">"abc"</span> +<span id="L189" class="LineNr">189 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L190" class="LineNr">190 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L191" class="LineNr">191 </span> <a href='print.mu.html#L1'>print-cell</a> sym, out, <span class="Constant">0</span>/no-trace +<span id="L192" class="LineNr">192 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"abc"</span>, <span class="Constant">"F - test-print-cell-symbol"</span> +<span id="L193" class="LineNr">193 </span><span class="Delimiter">}</span> +<span id="L194" class="LineNr">194 </span> +<span id="L195" class="LineNr">195 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L195'>test-print-cell-nil-list</a></span> <span class="Delimiter">{</span> +<span id="L196" class="LineNr">196 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L197" class="LineNr">197 </span> <span class="PreProc">var</span> nil/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L198" class="LineNr">198 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L200" class="LineNr">200 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L201" class="LineNr">201 </span> <a href='print.mu.html#L1'>print-cell</a> nil, out, <span class="Constant">0</span>/no-trace +<span id="L202" class="LineNr">202 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"()"</span>, <span class="Constant">"F - test-print-cell-nil-list"</span> +<span id="L203" class="LineNr">203 </span><span class="Delimiter">}</span> +<span id="L204" class="LineNr">204 </span> +<span id="L205" class="LineNr">205 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L205'>test-print-cell-singleton-list</a></span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr">206 </span> <span class="muComment"># list</span> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L208" class="LineNr">208 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage +<span id="L209" class="LineNr">209 </span> <a href='cell.mu.html#L34'>new-symbol</a> left, <span class="Constant">"abc"</span> +<span id="L210" class="LineNr">210 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L211" class="LineNr">211 </span> <span class="PreProc">var</span> nil/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L212" class="LineNr">212 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L214" class="LineNr">214 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage +<span id="L215" class="LineNr">215 </span> <a href='cell.mu.html#L88'>new-pair</a> list, *left, *nil +<span id="L216" class="LineNr">216 </span> <span class="muComment">#</span> +<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L219" class="LineNr">219 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace +<span id="L220" class="LineNr">220 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(abc)"</span>, <span class="Constant">"F - test-print-cell-singleton-list"</span> +<span id="L221" class="LineNr">221 </span><span class="Delimiter">}</span> +<span id="L222" class="LineNr">222 </span> +<span id="L223" class="LineNr">223 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L223'>test-print-cell-list</a></span> <span class="Delimiter">{</span> +<span id="L224" class="LineNr">224 </span> <span class="muComment"># list = cons "abc", nil</span> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L226" class="LineNr">226 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage +<span id="L227" class="LineNr">227 </span> <a href='cell.mu.html#L34'>new-symbol</a> left, <span class="Constant">"abc"</span> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> nil/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L230" class="LineNr">230 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil +<span id="L231" class="LineNr">231 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L232" class="LineNr">232 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage +<span id="L233" class="LineNr">233 </span> <a href='cell.mu.html#L88'>new-pair</a> list, *left, *nil +<span id="L234" class="LineNr">234 </span> <span class="muComment"># list = cons 64, list</span> +<span id="L235" class="LineNr">235 </span> <a href='cell.mu.html#L55'>new-integer</a> left, <span class="Constant">0x40</span> +<span id="L236" class="LineNr">236 </span> <a href='cell.mu.html#L88'>new-pair</a> list, *left, *list +<span id="L237" class="LineNr">237 </span> <span class="muComment">#</span> +<span id="L238" class="LineNr">238 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L239" class="LineNr">239 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L240" class="LineNr">240 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace +<span id="L241" class="LineNr">241 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(64 abc)"</span>, <span class="Constant">"F - test-print-cell-list"</span> +<span id="L242" class="LineNr">242 </span><span class="Delimiter">}</span> +<span id="L243" class="LineNr">243 </span> +<span id="L244" class="LineNr">244 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L244'>test-print-cell-list-of-nil</a></span> <span class="Delimiter">{</span> +<span id="L245" class="LineNr">245 </span> <span class="muComment"># list = cons "abc", nil</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L247" class="LineNr">247 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage +<span id="L248" class="LineNr">248 </span> <a href='cell.mu.html#L73'>allocate-pair</a> left +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> nil/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L251" class="LineNr">251 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil +<span id="L252" class="LineNr">252 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L253" class="LineNr">253 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage +<span id="L254" class="LineNr">254 </span> <a href='cell.mu.html#L88'>new-pair</a> list, *left, *nil +<span id="L255" class="LineNr">255 </span> <span class="muComment"># list = cons 64, list</span> +<span id="L256" class="LineNr">256 </span> <a href='cell.mu.html#L55'>new-integer</a> left, <span class="Constant">0x40</span> +<span id="L257" class="LineNr">257 </span> <a href='cell.mu.html#L88'>new-pair</a> list, *left, *list +<span id="L258" class="LineNr">258 </span> <span class="muComment">#</span> +<span id="L259" class="LineNr">259 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L261" class="LineNr">261 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace +<span id="L262" class="LineNr">262 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(64 ())"</span>, <span class="Constant">"F - test-print-cell-list-nil"</span> +<span id="L263" class="LineNr">263 </span><span class="Delimiter">}</span> +<span id="L264" class="LineNr">264 </span> +<span id="L265" class="LineNr">265 </span><span class="PreProc">fn</span> <span class="muTest"><a href='print.mu.html#L265'>test-print-dotted-list</a></span> <span class="Delimiter">{</span> +<span id="L266" class="LineNr">266 </span> <span class="muComment"># list = cons 64, "abc"</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">var</span> left-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L268" class="LineNr">268 </span> <span class="PreProc">var</span> left/<span class="Constant">ecx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address left-storage +<span id="L269" class="LineNr">269 </span> <a href='cell.mu.html#L34'>new-symbol</a> left, <span class="Constant">"abc"</span> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> right-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L271" class="LineNr">271 </span> <span class="PreProc">var</span> right/<span class="Constant">edx</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address right-storage +<span id="L272" class="LineNr">272 </span> <a href='cell.mu.html#L55'>new-integer</a> right, <span class="Constant">0x40</span> +<span id="L273" class="LineNr">273 </span> <span class="PreProc">var</span> list-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L274" class="LineNr">274 </span> <span class="PreProc">var</span> list/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address list-storage +<span id="L275" class="LineNr">275 </span> <a href='cell.mu.html#L88'>new-pair</a> list, *left, *right +<span id="L276" class="LineNr">276 </span> <span class="muComment">#</span> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">var</span> out-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L278" class="LineNr">278 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> address out-storage +<span id="L279" class="LineNr">279 </span> <a href='print.mu.html#L1'>print-cell</a> list, out, <span class="Constant">0</span>/no-trace +<span id="L280" class="LineNr">280 </span> <a href='../109stream-equal.subx.html#L194'>check-stream-equal</a> out, <span class="Constant">"(abc . 64)"</span>, <span class="Constant">"F - test-print-dotted-list"</span> +<span id="L281" class="LineNr">281 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/read.mu.html b/html/shell/read.mu.html new file mode 100644 index 00000000..dc3b51c2 --- /dev/null +++ b/html/shell/read.mu.html @@ -0,0 +1,76 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/read.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.Special { color: #ff6060; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/read.mu'>https://github.com/akkartik/mu/blob/main/shell/read.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='read.mu.html#L1'>read-cell</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr handle <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> <span class="PreProc">var</span> tokens-storage: (stream <a href='cell.mu.html#L1'>cell</a> <span class="Constant">0x100</span>) +<span id="L3" class="LineNr"> 3 </span> <span class="PreProc">var</span> tokens/<span class="Constant">ecx</span>: (addr stream <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address tokens-storage +<span id="L4" class="LineNr"> 4 </span> <a href='tokenize.mu.html#L5'>tokenize</a> in, tokens, trace +<span id="L5" class="LineNr"> 5 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L6" class="LineNr"> 6 </span> compare error?, <span class="Constant">0</span>/false +<span id="L7" class="LineNr"> 7 </span> <span class="Delimiter">{</span> +<span id="L8" class="LineNr"> 8 </span> <span class="PreProc">break-if-=</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">return</span> +<span id="L10" class="LineNr">10 </span> <span class="Delimiter">}</span> +<span id="L11" class="LineNr">11 </span> <span class="muComment"># TODO: insert parens</span> +<span id="L12" class="LineNr">12 </span> <span class="muComment"># TODO: transform infix</span> +<span id="L13" class="LineNr">13 </span> <a href='parse.mu.html#L1'>parse-input</a> tokens, out, trace +<span id="L14" class="LineNr">14 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/sandbox.mu.html b/html/shell/sandbox.mu.html new file mode 100644 index 00000000..fd5dd78b --- /dev/null +++ b/html/shell/sandbox.mu.html @@ -0,0 +1,364 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/sandbox.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.LineNr { } +.CommentedCode { color: #8a8a8a; } +.Constant { color: #008787; } +.muComment { color: #005faf; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.Special { color: #ff6060; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/sandbox.mu'>https://github.com/akkartik/mu/blob/main/shell/sandbox.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="PreProc">type</span> <a href='sandbox.mu.html#L1'>sandbox</a> <span class="Delimiter">{</span> +<span id="L2" class="LineNr"> 2 </span> data: (handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) +<span id="L3" class="LineNr"> 3 </span> value: (handle stream byte) +<span id="L4" class="LineNr"> 4 </span> trace: (handle trace) +<span id="L5" class="LineNr"> 5 </span> cursor-in-trace?: boolean +<span id="L6" class="LineNr"> 6 </span><span class="Delimiter">}</span> +<span id="L7" class="LineNr"> 7 </span> +<span id="L8" class="LineNr"> 8 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L8'>initialize-sandbox</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Delimiter">{</span> +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data +<span id="L11" class="LineNr"> 11 </span> <a href='../120allocate.subx.html#L43'>allocate</a> data-ah +<span id="L12" class="LineNr"> 12 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L13" class="LineNr"> 13 </span> <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> data, <span class="Constant">0x1000</span>/4KB +<span id="L14" class="LineNr"> 14 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get self, value +<span id="L15" class="LineNr"> 15 </span> populate-stream value-ah, <span class="Constant">0x1000</span>/4KB +<span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace +<span id="L17" class="LineNr"> 17 </span> <a href='../120allocate.subx.html#L43'>allocate</a> trace-ah +<span id="L18" class="LineNr"> 18 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L19" class="LineNr"> 19 </span> <a href='trace.mu.html#L35'>initialize-trace</a> trace, <span class="Constant">0x1000</span>/lines, <span class="Constant">0x80</span>/visible-lines +<span id="L20" class="LineNr"> 20 </span><span class="Delimiter">}</span> +<span id="L21" class="LineNr"> 21 </span> +<span id="L22" class="LineNr"> 22 </span><span class="muComment">## some helpers for tests</span> +<span id="L23" class="LineNr"> 23 </span> +<span id="L24" class="LineNr"> 24 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L24'>initialize-sandbox-with</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self +<span id="L26" class="LineNr"> 26 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data +<span id="L27" class="LineNr"> 27 </span> <a href='../120allocate.subx.html#L43'>allocate</a> data-ah +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L29" class="LineNr"> 29 </span> <a href='gap-buffer.mu.html#L20'>initialize-gap-buffer-with</a> data, s +<span id="L30" class="LineNr"> 30 </span><span class="Delimiter">}</span> +<span id="L31" class="LineNr"> 31 </span> +<span id="L32" class="LineNr"> 32 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L32'>allocate-sandbox-with</a></span> _out: (addr handle <a href='sandbox.mu.html#L1'>sandbox</a>), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> out/<span class="Constant">eax</span>: (addr handle <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _out +<span id="L34" class="LineNr"> 34 </span> <a href='../120allocate.subx.html#L43'>allocate</a> out +<span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> out-addr/<span class="Constant">eax</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out +<span id="L36" class="LineNr"> 36 </span> <a href='sandbox.mu.html#L24'>initialize-sandbox-with</a> out-addr, s +<span id="L37" class="LineNr"> 37 </span><span class="Delimiter">}</span> +<span id="L38" class="LineNr"> 38 </span> +<span id="L39" class="LineNr"> 39 </span><span class="muComment">##</span> +<span id="L40" class="LineNr"> 40 </span> +<span id="L41" class="LineNr"> 41 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L41'>render-sandbox</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), xmin: int, ymin: int, xmax: int, ymax: int <span class="Delimiter">{</span> +<span id="L42" class="LineNr"> 42 </span> <a href='../500text-screen.mu.html#L194'>clear-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self +<span id="L44" class="LineNr"> 44 </span> <span class="muComment"># data</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L47" class="LineNr"> 47 </span> <span class="PreProc">var</span> data/<span class="Constant">edx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _data +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin +<span id="L50" class="LineNr"> 50 </span> <span class="PreProc">var</span> cursor-in-sandbox?/<span class="Constant">ebx</span>: boolean <span class="Special"><-</span> copy <span class="Constant">0</span>/false +<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">{</span> +<span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> cursor-in-trace?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-trace? +<span id="L53" class="LineNr"> 53 </span> compare *cursor-in-trace?, <span class="Constant">0</span>/false +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">break-if-!=</span> +<span id="L55" class="LineNr"> 55 </span> cursor-in-sandbox? <span class="Special"><-</span> copy <span class="Constant">1</span>/true +<span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">}</span> +<span id="L57" class="LineNr"> 57 </span> x, y <span class="Special"><-</span> <a href='gap-buffer.mu.html#L83'>render-gap-buffer-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, data, x, y, xmax, ymax, cursor-in-sandbox? +<span id="L58" class="LineNr"> 58 </span> y <span class="Special"><-</span> increment +<span id="L59" class="LineNr"> 59 </span> <span class="muComment"># trace</span> +<span id="L60" class="LineNr"> 60 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> trace/<span class="Constant">edx</span>: (addr trace) <span class="Special"><-</span> copy _trace +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> cursor-in-trace?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-trace? +<span id="L64" class="LineNr"> 64 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, trace, xmin, y, xmax, ymax, *cursor-in-trace? +<span id="L65" class="LineNr"> 65 </span> <span class="muComment"># value</span> +<span id="L66" class="LineNr"> 66 </span> $render-sandbox:value: <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get self, value +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">var</span> _value/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-ah +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> value/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> copy _value +<span id="L70" class="LineNr"> 70 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> value +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../309stream.subx.html#L6'>stream-empty?</a> value +<span id="L72" class="LineNr"> 72 </span> compare done?, <span class="Constant">0</span>/false +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">break-if-!=</span> +<span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L75" class="LineNr"> 75 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"=> "</span>, xmin, y, xmax, ymax, xmin, y, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> x2/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy x +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">var</span> dummy/<span class="Constant">eax</span>: int <span class="Special"><-</span> <a href='../501draw-text.mu.html#L111'>draw-stream-rightward</a> <a href='../500text-screen.mu.html#L9'>screen</a>, value, x2, xmax, y, <span class="Constant">7</span>/fg=grey, <span class="Constant">0</span>/bg +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">}</span> +<span id="L79" class="LineNr"> 79 </span> <span class="muComment"># render menu</span> +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">var</span> cursor-in-trace?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-trace? +<span id="L81" class="LineNr"> 81 </span> compare *cursor-in-trace?, <span class="Constant">0</span>/false +<span id="L82" class="LineNr"> 82 </span> <span class="Delimiter">{</span> +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">break-if-=</span> +<span id="L84" class="LineNr"> 84 </span> <a href='trace.mu.html#L662'>render-trace-menu</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L85" class="LineNr"> 85 </span> <span class="PreProc">return</span> +<span id="L86" class="LineNr"> 86 </span> <span class="Delimiter">}</span> +<span id="L87" class="LineNr"> 87 </span> <a href='sandbox.mu.html#L90'>render-sandbox-menu</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L88" class="LineNr"> 88 </span><span class="Delimiter">}</span> +<span id="L89" class="LineNr"> 89 </span> +<span id="L90" class="LineNr"> 90 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L90'>render-sandbox-menu</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L93" class="LineNr"> 93 </span> width, height <span class="Special"><-</span> <a href='../500text-screen.mu.html#L50'>screen-size</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy height +<span id="L95" class="LineNr"> 95 </span> y <span class="Special"><-</span> decrement +<span id="L96" class="LineNr"> 96 </span> <a href='../500text-screen.mu.html#L133'>set-cursor-position</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/x, y +<span id="L97" class="LineNr"> 97 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L98" class="LineNr"> 98 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" <a href='sandbox.mu.html#L170'>run</a> <a href='sandbox.mu.html#L1'>sandbox</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L99" class="LineNr"> 99 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" tab "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">9</span>/bg=blue +<span id="L100" class="LineNr">100 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" move to trace "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L101" class="LineNr">101 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-d "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L102" class="LineNr">102 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" down "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L103" class="LineNr">103 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-u "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L104" class="LineNr">104 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" up "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L105" class="LineNr">105 </span><span class="Delimiter">}</span> +<span id="L106" class="LineNr">106 </span> +<span id="L107" class="LineNr">107 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L107'>edit-sandbox</a></span> _self: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), key: byte <span class="Delimiter">{</span> +<span id="L108" class="LineNr">108 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> copy _self +<span id="L109" class="LineNr">109 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: grapheme <span class="Special"><-</span> copy key +<span id="L110" class="LineNr">110 </span> <span class="muComment"># running code</span> +<span id="L111" class="LineNr">111 </span> <span class="Delimiter">{</span> +<span id="L112" class="LineNr">112 </span> compare g, <span class="Constant">0x12</span>/ctrl-r +<span id="L113" class="LineNr">113 </span> <span class="PreProc">break-if-!=</span> +<span id="L114" class="LineNr">114 </span> <span class="muComment"># ctrl-r: run function outside sandbox</span> +<span id="L115" class="LineNr">115 </span> <span class="muComment"># required: fn (addr screen), (addr keyboard)</span> +<span id="L116" class="LineNr">116 </span> <span class="muComment"># Mu will pass in the real screen and keyboard.</span> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">return</span> +<span id="L118" class="LineNr">118 </span> <span class="Delimiter">}</span> +<span id="L119" class="LineNr">119 </span> <span class="Delimiter">{</span> +<span id="L120" class="LineNr">120 </span> compare g, <span class="Constant">0x13</span>/ctrl-s +<span id="L121" class="LineNr">121 </span> <span class="PreProc">break-if-!=</span> +<span id="L122" class="LineNr">122 </span> <span class="muComment"># ctrl-s: run sandbox(es)</span> +<span id="L123" class="LineNr">123 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> data/<span class="Constant">ecx</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> copy _data +<span id="L126" class="LineNr">126 </span> <span class="PreProc">var</span> value-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get self, value +<span id="L127" class="LineNr">127 </span> <span class="PreProc">var</span> _value/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *value-ah +<span id="L128" class="LineNr">128 </span> <span class="PreProc">var</span> value/<span class="Constant">edx</span>: (addr stream byte) <span class="Special"><-</span> copy _value +<span id="L129" class="LineNr">129 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace +<span id="L130" class="LineNr">130 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L131" class="LineNr">131 </span> <a href='trace.mu.html#L45'>clear-trace</a> trace +<span id="L132" class="LineNr">132 </span> <a href='sandbox.mu.html#L170'>run</a> data, value, trace +<span id="L133" class="LineNr">133 </span> <span class="muComment"># testing write to disk</span> +<span id="L134" class="LineNr">134 </span><span class="CommentedCode">#? rewind-stream value</span> +<span id="L135" class="LineNr">135 </span><span class="CommentedCode">#? store-first-sector-to-primary-bus-secondary-drive value</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">return</span> +<span id="L137" class="LineNr">137 </span> <span class="Delimiter">}</span> +<span id="L138" class="LineNr">138 </span> <span class="muComment"># tab</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> cursor-in-trace?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get self, cursor-in-trace? +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> compare g, <span class="Constant">9</span>/tab +<span id="L142" class="LineNr">142 </span> <span class="PreProc">break-if-!=</span> +<span id="L143" class="LineNr">143 </span> <span class="muComment"># if cursor in input, switch to trace</span> +<span id="L144" class="LineNr">144 </span> <span class="Delimiter">{</span> +<span id="L145" class="LineNr">145 </span> compare *cursor-in-trace?, <span class="Constant">0</span>/false +<span id="L146" class="LineNr">146 </span> <span class="PreProc">break-if-!=</span> +<span id="L147" class="LineNr">147 </span> copy-to *cursor-in-trace?, <span class="Constant">1</span>/true +<span id="L148" class="LineNr">148 </span> <span class="PreProc">return</span> +<span id="L149" class="LineNr">149 </span> <span class="Delimiter">}</span> +<span id="L150" class="LineNr">150 </span> <span class="muComment"># if cursor in trace, switch to input</span> +<span id="L151" class="LineNr">151 </span> copy-to *cursor-in-trace?, <span class="Constant">0</span>/false +<span id="L152" class="LineNr">152 </span> <span class="PreProc">return</span> +<span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> +<span id="L154" class="LineNr">154 </span> <span class="muComment"># if cursor in trace, send cursor to trace</span> +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">{</span> +<span id="L156" class="LineNr">156 </span> compare *cursor-in-trace?, <span class="Constant">0</span>/false +<span id="L157" class="LineNr">157 </span> <span class="PreProc">break-if-=</span> +<span id="L158" class="LineNr">158 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle trace) <span class="Special"><-</span> get self, trace +<span id="L159" class="LineNr">159 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L160" class="LineNr">160 </span> <a href='trace.mu.html#L683'>edit-trace</a> trace, g +<span id="L161" class="LineNr">161 </span> <span class="PreProc">return</span> +<span id="L162" class="LineNr">162 </span> <span class="Delimiter">}</span> +<span id="L163" class="LineNr">163 </span> <span class="muComment"># otherwise send cursor to input</span> +<span id="L164" class="LineNr">164 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> get self, data +<span id="L165" class="LineNr">165 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L166" class="LineNr">166 </span> <a href='gap-buffer.mu.html#L754'>edit-gap-buffer</a> data, g +<span id="L167" class="LineNr">167 </span> <span class="PreProc">return</span> +<span id="L168" class="LineNr">168 </span><span class="Delimiter">}</span> +<span id="L169" class="LineNr">169 </span> +<span id="L170" class="LineNr">170 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='sandbox.mu.html#L170'>run</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L171" class="LineNr">171 </span> <span class="PreProc">var</span> read-result-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L172" class="LineNr">172 </span> <span class="PreProc">var</span> read-result/<span class="Constant">esi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address read-result-storage +<span id="L173" class="LineNr">173 </span> <a href='read.mu.html#L1'>read-cell</a> in, read-result, trace +<span id="L174" class="LineNr">174 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L175" class="LineNr">175 </span> <span class="Delimiter">{</span> +<span id="L176" class="LineNr">176 </span> compare error?, <span class="Constant">0</span>/false +<span id="L177" class="LineNr">177 </span> <span class="PreProc">break-if-=</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">return</span> +<span id="L179" class="LineNr">179 </span> <span class="Delimiter">}</span> +<span id="L180" class="LineNr">180 </span> <span class="PreProc">var</span> nil-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> nil-ah/<span class="Constant">eax</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address nil-storage +<span id="L182" class="LineNr">182 </span> <a href='cell.mu.html#L73'>allocate-pair</a> nil-ah +<span id="L183" class="LineNr">183 </span> <span class="PreProc">var</span> eval-result-storage: (handle <a href='cell.mu.html#L1'>cell</a>) +<span id="L184" class="LineNr">184 </span> <span class="PreProc">var</span> eval-result/<span class="Constant">edi</span>: (addr handle <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address eval-result-storage +<span id="L185" class="LineNr">185 </span> <a href='eval.mu.html#L3'>evaluate</a> read-result, eval-result, *nil-ah, trace +<span id="L186" class="LineNr">186 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L187" class="LineNr">187 </span> <span class="Delimiter">{</span> +<span id="L188" class="LineNr">188 </span> compare error?, <span class="Constant">0</span>/false +<span id="L189" class="LineNr">189 </span> <span class="PreProc">break-if-=</span> +<span id="L190" class="LineNr">190 </span> <span class="PreProc">return</span> +<span id="L191" class="LineNr">191 </span> <span class="Delimiter">}</span> +<span id="L192" class="LineNr">192 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> out +<span id="L193" class="LineNr">193 </span> <a href='print.mu.html#L1'>print-cell</a> eval-result, out, trace +<span id="L194" class="LineNr">194 </span> <a href='trace.mu.html#L295'>mark-lines-dirty</a> trace +<span id="L195" class="LineNr">195 </span><span class="Delimiter">}</span> +<span id="L196" class="LineNr">196 </span> +<span id="L197" class="LineNr">197 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L197'>test-run-integer</a></span> <span class="Delimiter">{</span> +<span id="L198" class="LineNr">198 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L200" class="LineNr">200 </span> <a href='sandbox.mu.html#L8'>initialize-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L201" class="LineNr">201 </span> <span class="muComment"># type "1"</span> +<span id="L202" class="LineNr">202 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x31</span>/<span class="Constant">1</span> +<span id="L203" class="LineNr">203 </span> <span class="muComment"># eval</span> +<span id="L204" class="LineNr">204 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s +<span id="L205" class="LineNr">205 </span> <span class="muComment"># setup: screen</span> +<span id="L206" class="LineNr">206 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L207" class="LineNr">207 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L208" class="LineNr">208 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L209" class="LineNr">209 </span> <span class="muComment">#</span> +<span id="L210" class="LineNr">210 </span> <a href='sandbox.mu.html#L41'>render-sandbox</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L211" class="LineNr">211 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L197'>test-run-integer</a>/0"</span> +<span id="L212" class="LineNr">212 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L197'>test-run-integer</a>/1"</span> +<span id="L213" class="LineNr">213 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"=> 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L197'>test-run-integer</a>/2"</span> +<span id="L214" class="LineNr">214 </span><span class="Delimiter">}</span> +<span id="L215" class="LineNr">215 </span> +<span id="L216" class="LineNr">216 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L216'>test-run-with-spaces</a></span> <span class="Delimiter">{</span> +<span id="L217" class="LineNr">217 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L218" class="LineNr">218 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L219" class="LineNr">219 </span> <a href='sandbox.mu.html#L8'>initialize-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L220" class="LineNr">220 </span> <span class="muComment"># type input with whitespace before and after</span> +<span id="L221" class="LineNr">221 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x20</span>/space +<span id="L222" class="LineNr">222 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x31</span>/<span class="Constant">1</span> +<span id="L223" class="LineNr">223 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x20</span>/space +<span id="L224" class="LineNr">224 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0xa</span>/newline +<span id="L225" class="LineNr">225 </span> <span class="muComment"># eval</span> +<span id="L226" class="LineNr">226 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s +<span id="L227" class="LineNr">227 </span> <span class="muComment"># setup: screen</span> +<span id="L228" class="LineNr">228 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L230" class="LineNr">230 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L231" class="LineNr">231 </span> <span class="muComment">#</span> +<span id="L232" class="LineNr">232 </span> <a href='sandbox.mu.html#L41'>render-sandbox</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L233" class="LineNr">233 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">" 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L216'>test-run-with-spaces</a>/0"</span> +<span id="L234" class="LineNr">234 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L216'>test-run-with-spaces</a>/1"</span> +<span id="L235" class="LineNr">235 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L216'>test-run-with-spaces</a>/2"</span> +<span id="L236" class="LineNr">236 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"=> 1 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L216'>test-run-with-spaces</a>/3"</span> +<span id="L237" class="LineNr">237 </span><span class="Delimiter">}</span> +<span id="L238" class="LineNr">238 </span> +<span id="L239" class="LineNr">239 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L239'>test-run-error-invalid-integer</a></span> <span class="Delimiter">{</span> +<span id="L240" class="LineNr">240 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L241" class="LineNr">241 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L242" class="LineNr">242 </span> <a href='sandbox.mu.html#L8'>initialize-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L243" class="LineNr">243 </span> <span class="muComment"># type "1a"</span> +<span id="L244" class="LineNr">244 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x31</span>/<span class="Constant">1</span> +<span id="L245" class="LineNr">245 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x61</span>/a +<span id="L246" class="LineNr">246 </span> <span class="muComment"># eval</span> +<span id="L247" class="LineNr">247 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s +<span id="L248" class="LineNr">248 </span> <span class="muComment"># setup: screen</span> +<span id="L249" class="LineNr">249 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L250" class="LineNr">250 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L251" class="LineNr">251 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L252" class="LineNr">252 </span> <span class="muComment">#</span> +<span id="L253" class="LineNr">253 </span> <a href='sandbox.mu.html#L41'>render-sandbox</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L254" class="LineNr">254 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"1a "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L239'>test-run-error-invalid-integer</a>/0"</span> +<span id="L255" class="LineNr">255 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L239'>test-run-error-invalid-integer</a>/0"</span> +<span id="L256" class="LineNr">256 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"invalid number "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L239'>test-run-error-invalid-integer</a>/2"</span> +<span id="L257" class="LineNr">257 </span><span class="Delimiter">}</span> +<span id="L258" class="LineNr">258 </span> +<span id="L259" class="LineNr">259 </span><span class="PreProc">fn</span> <span class="muTest"><a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a></span> <span class="Delimiter">{</span> +<span id="L260" class="LineNr">260 </span> <span class="PreProc">var</span> sandbox-storage: <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">var</span> <a href='sandbox.mu.html#L1'>sandbox</a>/<span class="Constant">esi</span>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <span class="Special"><-</span> address sandbox-storage +<span id="L262" class="LineNr">262 </span> <a href='sandbox.mu.html#L8'>initialize-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a> +<span id="L263" class="LineNr">263 </span> <span class="muComment"># type "12"</span> +<span id="L264" class="LineNr">264 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x31</span>/<span class="Constant">1</span> +<span id="L265" class="LineNr">265 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x32</span>/<span class="Constant">2</span> +<span id="L266" class="LineNr">266 </span> <span class="muComment"># eval</span> +<span id="L267" class="LineNr">267 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0x13</span>/ctrl-s +<span id="L268" class="LineNr">268 </span> <span class="muComment"># setup: screen</span> +<span id="L269" class="LineNr">269 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L270" class="LineNr">270 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L271" class="LineNr">271 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L272" class="LineNr">272 </span> <span class="muComment">#</span> +<span id="L273" class="LineNr">273 </span> <a href='sandbox.mu.html#L41'>render-sandbox</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L274" class="LineNr">274 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/pre-0"</span> +<span id="L275" class="LineNr">275 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/pre-0/cursor"</span> +<span id="L276" class="LineNr">276 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/pre-1"</span> +<span id="L277" class="LineNr">277 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/pre-1/cursor"</span> +<span id="L278" class="LineNr">278 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"=> 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/pre-2"</span> +<span id="L279" class="LineNr">279 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/pre-2/cursor"</span> +<span id="L280" class="LineNr">280 </span> <span class="muComment"># move cursor into trace</span> +<span id="L281" class="LineNr">281 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">9</span>/tab +<span id="L282" class="LineNr">282 </span> <span class="muComment">#</span> +<span id="L283" class="LineNr">283 </span> <a href='sandbox.mu.html#L41'>render-sandbox</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L284" class="LineNr">284 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/trace-0"</span> +<span id="L285" class="LineNr">285 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/trace-0/cursor"</span> +<span id="L286" class="LineNr">286 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/trace-1"</span> +<span id="L287" class="LineNr">287 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/trace-1/cursor"</span> +<span id="L288" class="LineNr">288 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"=> 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/trace-2"</span> +<span id="L289" class="LineNr">289 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/trace-2/cursor"</span> +<span id="L290" class="LineNr">290 </span> <span class="muComment"># move cursor into input</span> +<span id="L291" class="LineNr">291 </span> <a href='sandbox.mu.html#L107'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">9</span>/tab +<span id="L292" class="LineNr">292 </span> <span class="muComment">#</span> +<span id="L293" class="LineNr">293 </span> <a href='sandbox.mu.html#L41'>render-sandbox</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, <span class="Constant">0</span>/x, <span class="Constant">0</span>/y, <span class="Constant">0x80</span>/width, <span class="Constant">0x10</span>/height +<span id="L294" class="LineNr">294 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/input-0"</span> +<span id="L295" class="LineNr">295 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" | "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/input-0/cursor"</span> +<span id="L296" class="LineNr">296 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/input-1"</span> +<span id="L297" class="LineNr">297 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/input-1/cursor"</span> +<span id="L298" class="LineNr">298 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"=> 12 "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/input-2"</span> +<span id="L299" class="LineNr">299 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='sandbox.mu.html#L259'>test-run-move-cursor-into-trace</a>/input-2/cursor"</span> +<span id="L300" class="LineNr">300 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/tokenize.mu.html b/html/shell/tokenize.mu.html new file mode 100644 index 00000000..cd0ce6a3 --- /dev/null +++ b/html/shell/tokenize.mu.html @@ -0,0 +1,631 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/tokenize.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/tokenize.mu'>https://github.com/akkartik/mu/blob/main/shell/tokenize.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># We reuse the cell data structure for tokenization</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># Token cells are special, though. They have no type, they're always atoms,</span> +<span id="L3" class="LineNr"> 3 </span><span class="muComment"># they always have text-data.</span> +<span id="L4" class="LineNr"> 4 </span> +<span id="L5" class="LineNr"> 5 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L5'>tokenize</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L6" class="LineNr"> 6 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"tokenize"</span> +<span id="L7" class="LineNr"> 7 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L8" class="LineNr"> 8 </span> <a href='gap-buffer.mu.html#L582'>rewind-gap-buffer</a> in +<span id="L9" class="LineNr"> 9 </span> <span class="PreProc">var</span> token-storage: <a href='cell.mu.html#L1'>cell</a> +<span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> token/<span class="Constant">edx</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> address token-storage +<span id="L11" class="LineNr"> 11 </span> <span class="Delimiter">{</span> +<span id="L12" class="LineNr"> 12 </span> <a href='gap-buffer.mu.html#L738'>skip-whitespace-from-gap-buffer</a> in +<span id="L13" class="LineNr"> 13 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> in +<span id="L14" class="LineNr"> 14 </span> compare done?, <span class="Constant">0</span>/false +<span id="L15" class="LineNr"> 15 </span> <span class="PreProc">break-if-!=</span> +<span id="L16" class="LineNr"> 16 </span> <span class="muComment"># initialize token data each iteration to avoid aliasing</span> +<span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> dest-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get token, text-data +<span id="L18" class="LineNr"> 18 </span> populate-stream dest-ah, <span class="Constant">0x40</span>/max-token-size +<span id="L19" class="LineNr"> 19 </span> <span class="muComment">#</span> +<span id="L20" class="LineNr"> 20 </span> <a href='tokenize.mu.html#L33'>next-token</a> in, token, trace +<span id="L21" class="LineNr"> 21 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L54'>has-errors?</a> trace +<span id="L22" class="LineNr"> 22 </span> compare error?, <span class="Constant">0</span>/false +<span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">{</span> +<span id="L24" class="LineNr"> 24 </span> <span class="PreProc">break-if-=</span> +<span id="L25" class="LineNr"> 25 </span> <span class="PreProc">return</span> +<span id="L26" class="LineNr"> 26 </span> <span class="Delimiter">}</span> +<span id="L27" class="LineNr"> 27 </span> <a href='../309stream.subx.html#L54'>write-to-stream</a> out, token <span class="muComment"># shallow-copy text-data</span> +<span id="L28" class="LineNr"> 28 </span> <span class="PreProc">loop</span> +<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">}</span> +<span id="L30" class="LineNr"> 30 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> +<span id="L32" class="LineNr"> 32 </span> +<span id="L33" class="LineNr"> 33 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L33'>next-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), _out-cell: (addr <a href='cell.mu.html#L1'>cell</a>), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L34" class="LineNr"> 34 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"next-token"</span> +<span id="L35" class="LineNr"> 35 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> out-cell/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _out-cell +<span id="L37" class="LineNr"> 37 </span> <span class="PreProc">var</span> out-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get out-cell, text-data +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">var</span> _out/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *out-ah +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr stream byte) <span class="Special"><-</span> copy _out +<span id="L40" class="LineNr"> 40 </span> $next-token:body: <span class="Delimiter">{</span> +<span id="L41" class="LineNr"> 41 </span> <a href='../106stream.subx.html#L20'>clear-stream</a> out +<span id="L42" class="LineNr"> 42 </span> <a href='gap-buffer.mu.html#L738'>skip-whitespace-from-gap-buffer</a> in +<span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L614'>peek-from-gap-buffer</a> in +<span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> +<span id="L45" class="LineNr"> 45 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L47" class="LineNr"> 47 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L49" class="LineNr"> 49 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L50" class="LineNr"> 50 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L51" class="LineNr"> 51 </span> <span class="Delimiter">}</span> +<span id="L52" class="LineNr"> 52 </span> <span class="muComment"># digit</span> +<span id="L53" class="LineNr"> 53 </span> <span class="Delimiter">{</span> +<span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> g +<span id="L55" class="LineNr"> 55 </span> compare digit?, <span class="Constant">0</span>/false +<span id="L56" class="LineNr"> 56 </span> <span class="PreProc">break-if-=</span> +<span id="L57" class="LineNr"> 57 </span> <a href='tokenize.mu.html#L169'>next-number-token</a> in, out, trace +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">break</span> $next-token:body +<span id="L59" class="LineNr"> 59 </span> <span class="Delimiter">}</span> +<span id="L60" class="LineNr"> 60 </span> <span class="muComment"># other symbol char</span> +<span id="L61" class="LineNr"> 61 </span> <span class="Delimiter">{</span> +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> symbol?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L220'>symbol-grapheme?</a> g +<span id="L63" class="LineNr"> 63 </span> compare symbol?, <span class="Constant">0</span>/false +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">break-if-=</span> +<span id="L65" class="LineNr"> 65 </span> <a href='tokenize.mu.html#L95'>next-symbol-token</a> in, out, trace +<span id="L66" class="LineNr"> 66 </span> <span class="PreProc">break</span> $next-token:body +<span id="L67" class="LineNr"> 67 </span> <span class="Delimiter">}</span> +<span id="L68" class="LineNr"> 68 </span> <span class="muComment"># brackets are always single-char tokens</span> +<span id="L69" class="LineNr"> 69 </span> <span class="Delimiter">{</span> +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> bracket?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L387'>bracket-grapheme?</a> g +<span id="L71" class="LineNr"> 71 </span> compare bracket?, <span class="Constant">0</span>/false +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">break-if-=</span> +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> in +<span id="L74" class="LineNr"> 74 </span> <a href='tokenize.mu.html#L209'>next-bracket-token</a> g, out, trace +<span id="L75" class="LineNr"> 75 </span> <span class="PreProc">break</span> $next-token:body +<span id="L76" class="LineNr"> 76 </span> <span class="Delimiter">}</span> +<span id="L77" class="LineNr"> 77 </span> <span class="muComment"># non-symbol operators</span> +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">{</span> +<span id="L79" class="LineNr"> 79 </span> <span class="PreProc">var</span> operator?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L421'>operator-grapheme?</a> g +<span id="L80" class="LineNr"> 80 </span> compare operator?, <span class="Constant">0</span>/false +<span id="L81" class="LineNr"> 81 </span> <span class="PreProc">break-if-=</span> +<span id="L82" class="LineNr"> 82 </span> <a href='tokenize.mu.html#L132'>next-operator-token</a> in, out, trace +<span id="L83" class="LineNr"> 83 </span> <span class="PreProc">break</span> $next-token:body +<span id="L84" class="LineNr"> 84 </span> <span class="Delimiter">}</span> +<span id="L85" class="LineNr"> 85 </span> <span class="Delimiter">}</span> +<span id="L86" class="LineNr"> 86 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L87" class="LineNr"> 87 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">var</span> stream/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L89" class="LineNr"> 89 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L90" class="LineNr"> 90 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L91" class="LineNr"> 91 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L92" class="LineNr"> 92 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L93" class="LineNr"> 93 </span><span class="Delimiter">}</span> +<span id="L94" class="LineNr"> 94 </span> +<span id="L95" class="LineNr"> 95 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L95'>next-symbol-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L96" class="LineNr"> 96 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"looking for a symbol"</span> +<span id="L97" class="LineNr"> 97 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L98" class="LineNr"> 98 </span> $next-symbol-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L99" class="LineNr"> 99 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> in +<span id="L100" class="LineNr">100 </span> compare done?, <span class="Constant">0</span>/false +<span id="L101" class="LineNr">101 </span> <span class="PreProc">break-if-!=</span> +<span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L614'>peek-from-gap-buffer</a> in +<span id="L103" class="LineNr">103 </span> <span class="Delimiter">{</span> +<span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L106" class="LineNr">106 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L108" class="LineNr">108 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L109" class="LineNr">109 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L110" class="LineNr">110 </span> <span class="Delimiter">}</span> +<span id="L111" class="LineNr">111 </span> <span class="muComment"># if non-symbol, return</span> +<span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> +<span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L220'>symbol-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L220'>symbol-grapheme?</a> g +<span id="L114" class="LineNr">114 </span> compare <a href='tokenize.mu.html#L220'>symbol-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L115" class="LineNr">115 </span> <span class="PreProc">break-if-!=</span> +<span id="L116" class="LineNr">116 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"stop"</span> +<span id="L117" class="LineNr">117 </span> <span class="PreProc">break</span> $next-symbol-token:<span class="PreProc">loop</span> +<span id="L118" class="LineNr">118 </span> <span class="Delimiter">}</span> +<span id="L119" class="LineNr">119 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> in +<span id="L120" class="LineNr">120 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L121" class="LineNr">121 </span> <span class="PreProc">loop</span> +<span id="L122" class="LineNr">122 </span> <span class="Delimiter">}</span> +<span id="L123" class="LineNr">123 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L124" class="LineNr">124 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L125" class="LineNr">125 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L126" class="LineNr">126 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L127" class="LineNr">127 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L128" class="LineNr">128 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L129" class="LineNr">129 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L130" class="LineNr">130 </span><span class="Delimiter">}</span> +<span id="L131" class="LineNr">131 </span> +<span id="L132" class="LineNr">132 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L132'>next-operator-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L133" class="LineNr">133 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"looking for a operator"</span> +<span id="L134" class="LineNr">134 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L135" class="LineNr">135 </span> $next-operator-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> in +<span id="L137" class="LineNr">137 </span> compare done?, <span class="Constant">0</span>/false +<span id="L138" class="LineNr">138 </span> <span class="PreProc">break-if-!=</span> +<span id="L139" class="LineNr">139 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L614'>peek-from-gap-buffer</a> in +<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> +<span id="L141" class="LineNr">141 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L142" class="LineNr">142 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L143" class="LineNr">143 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L145" class="LineNr">145 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L146" class="LineNr">146 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L147" class="LineNr">147 </span> <span class="Delimiter">}</span> +<span id="L148" class="LineNr">148 </span> <span class="muComment"># if non-operator, return</span> +<span id="L149" class="LineNr">149 </span> <span class="Delimiter">{</span> +<span id="L150" class="LineNr">150 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L421'>operator-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L421'>operator-grapheme?</a> g +<span id="L151" class="LineNr">151 </span> compare <a href='tokenize.mu.html#L421'>operator-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L152" class="LineNr">152 </span> <span class="PreProc">break-if-!=</span> +<span id="L153" class="LineNr">153 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"stop"</span> +<span id="L154" class="LineNr">154 </span> <span class="PreProc">break</span> $next-operator-token:<span class="PreProc">loop</span> +<span id="L155" class="LineNr">155 </span> <span class="Delimiter">}</span> +<span id="L156" class="LineNr">156 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> in +<span id="L157" class="LineNr">157 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L158" class="LineNr">158 </span> <span class="PreProc">loop</span> +<span id="L159" class="LineNr">159 </span> <span class="Delimiter">}</span> +<span id="L160" class="LineNr">160 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L161" class="LineNr">161 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L162" class="LineNr">162 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L163" class="LineNr">163 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L164" class="LineNr">164 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L165" class="LineNr">165 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L166" class="LineNr">166 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L167" class="LineNr">167 </span><span class="Delimiter">}</span> +<span id="L168" class="LineNr">168 </span> +<span id="L169" class="LineNr">169 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L169'>next-number-token</a></span> in: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L170" class="LineNr">170 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"looking for a number"</span> +<span id="L171" class="LineNr">171 </span> <a href='trace.mu.html#L128'>trace-lower</a> trace +<span id="L172" class="LineNr">172 </span> $next-number-token:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L173" class="LineNr">173 </span> <span class="PreProc">var</span> done?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='gap-buffer.mu.html#L590'>gap-buffer-scan-done?</a> in +<span id="L174" class="LineNr">174 </span> compare done?, <span class="Constant">0</span>/false +<span id="L175" class="LineNr">175 </span> <span class="PreProc">break-if-!=</span> +<span id="L176" class="LineNr">176 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L614'>peek-from-gap-buffer</a> in +<span id="L177" class="LineNr">177 </span> <span class="Delimiter">{</span> +<span id="L178" class="LineNr">178 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L179" class="LineNr">179 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L180" class="LineNr">180 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"next: "</span> +<span id="L181" class="LineNr">181 </span> <span class="PreProc">var</span> gval/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy g +<span id="L182" class="LineNr">182 </span> <a href='../117write-int-hex.subx.html#L92'>write-int32-hex</a> stream, gval +<span id="L183" class="LineNr">183 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L184" class="LineNr">184 </span> <span class="Delimiter">}</span> +<span id="L185" class="LineNr">185 </span> <span class="muComment"># if not symbol grapheme, return</span> +<span id="L186" class="LineNr">186 </span> <span class="Delimiter">{</span> +<span id="L187" class="LineNr">187 </span> <span class="PreProc">var</span> <a href='tokenize.mu.html#L220'>symbol-grapheme?</a>/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L220'>symbol-grapheme?</a> g +<span id="L188" class="LineNr">188 </span> compare <a href='tokenize.mu.html#L220'>symbol-grapheme?</a>, <span class="Constant">0</span>/false +<span id="L189" class="LineNr">189 </span> <span class="PreProc">break-if-!=</span> +<span id="L190" class="LineNr">190 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"stop"</span> +<span id="L191" class="LineNr">191 </span> <span class="PreProc">break</span> $next-number-token:<span class="PreProc">loop</span> +<span id="L192" class="LineNr">192 </span> <span class="Delimiter">}</span> +<span id="L193" class="LineNr">193 </span> <span class="muComment"># if not digit grapheme, abort</span> +<span id="L194" class="LineNr">194 </span> <span class="Delimiter">{</span> +<span id="L195" class="LineNr">195 </span> <span class="PreProc">var</span> digit?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> g +<span id="L196" class="LineNr">196 </span> compare digit?, <span class="Constant">0</span>/false +<span id="L197" class="LineNr">197 </span> <span class="PreProc">break-if-!=</span> +<span id="L198" class="LineNr">198 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> trace, <span class="Constant">"invalid number"</span> +<span id="L199" class="LineNr">199 </span> <span class="PreProc">return</span> +<span id="L200" class="LineNr">200 </span> <span class="Delimiter">}</span> +<span id="L201" class="LineNr">201 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"append"</span> +<span id="L202" class="LineNr">202 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='gap-buffer.mu.html#L650'>read-from-gap-buffer</a> in +<span id="L203" class="LineNr">203 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L204" class="LineNr">204 </span> <span class="PreProc">loop</span> +<span id="L205" class="LineNr">205 </span> <span class="Delimiter">}</span> +<span id="L206" class="LineNr">206 </span> <a href='trace.mu.html#L136'>trace-higher</a> trace +<span id="L207" class="LineNr">207 </span><span class="Delimiter">}</span> +<span id="L208" class="LineNr">208 </span> +<span id="L209" class="LineNr">209 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L209'>next-bracket-token</a></span> g: grapheme, out: (addr stream byte), trace: (addr trace) <span class="Delimiter">{</span> +<span id="L210" class="LineNr">210 </span> <a href='trace.mu.html#L101'>trace-text</a> trace, <span class="Constant">"read"</span>, <span class="Constant">"bracket"</span> +<span id="L211" class="LineNr">211 </span> <a href='../403unicode.mu.html#L176'>write-grapheme</a> out, g +<span id="L212" class="LineNr">212 </span> <span class="PreProc">var</span> stream-storage: (stream byte <span class="Constant">0x40</span>) +<span id="L213" class="LineNr">213 </span> <span class="PreProc">var</span> stream/<span class="Constant">esi</span>: (addr stream byte) <span class="Special"><-</span> address stream-storage +<span id="L214" class="LineNr">214 </span> <a href='../108write.subx.html#L11'>write</a> stream, <span class="Constant">"=> "</span> +<span id="L215" class="LineNr">215 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> out +<span id="L216" class="LineNr">216 </span> <a href='../113write-stream.subx.html#L8'>write-stream</a> stream, out +<span id="L217" class="LineNr">217 </span> trace trace, <span class="Constant">"read"</span>, stream +<span id="L218" class="LineNr">218 </span><span class="Delimiter">}</span> +<span id="L219" class="LineNr">219 </span> +<span id="L220" class="LineNr">220 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L220'>symbol-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L221" class="LineNr">221 </span> <span class="muComment">## whitespace</span> +<span id="L222" class="LineNr">222 </span> compare g, <span class="Constant">9</span>/tab +<span id="L223" class="LineNr">223 </span> <span class="Delimiter">{</span> +<span id="L224" class="LineNr">224 </span> <span class="PreProc">break-if-!=</span> +<span id="L225" class="LineNr">225 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L226" class="LineNr">226 </span> <span class="Delimiter">}</span> +<span id="L227" class="LineNr">227 </span> compare g, <span class="Constant">0xa</span>/newline +<span id="L228" class="LineNr">228 </span> <span class="Delimiter">{</span> +<span id="L229" class="LineNr">229 </span> <span class="PreProc">break-if-!=</span> +<span id="L230" class="LineNr">230 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L231" class="LineNr">231 </span> <span class="Delimiter">}</span> +<span id="L232" class="LineNr">232 </span> compare g, <span class="Constant">0x20</span>/space +<span id="L233" class="LineNr">233 </span> <span class="Delimiter">{</span> +<span id="L234" class="LineNr">234 </span> <span class="PreProc">break-if-!=</span> +<span id="L235" class="LineNr">235 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L236" class="LineNr">236 </span> <span class="Delimiter">}</span> +<span id="L237" class="LineNr">237 </span> <span class="muComment">## quotes</span> +<span id="L238" class="LineNr">238 </span> compare g, <span class="Constant">0x22</span>/double-quote +<span id="L239" class="LineNr">239 </span> <span class="Delimiter">{</span> +<span id="L240" class="LineNr">240 </span> <span class="PreProc">break-if-!=</span> +<span id="L241" class="LineNr">241 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L242" class="LineNr">242 </span> <span class="Delimiter">}</span> +<span id="L243" class="LineNr">243 </span> compare g, <span class="Constant">0x60</span>/backquote +<span id="L244" class="LineNr">244 </span> <span class="Delimiter">{</span> +<span id="L245" class="LineNr">245 </span> <span class="PreProc">break-if-!=</span> +<span id="L246" class="LineNr">246 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L247" class="LineNr">247 </span> <span class="Delimiter">}</span> +<span id="L248" class="LineNr">248 </span> <span class="muComment">## brackets</span> +<span id="L249" class="LineNr">249 </span> compare g, <span class="Constant">0x28</span>/open-paren +<span id="L250" class="LineNr">250 </span> <span class="Delimiter">{</span> +<span id="L251" class="LineNr">251 </span> <span class="PreProc">break-if-!=</span> +<span id="L252" class="LineNr">252 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L253" class="LineNr">253 </span> <span class="Delimiter">}</span> +<span id="L254" class="LineNr">254 </span> compare g, <span class="Constant">0x29</span>/close-paren +<span id="L255" class="LineNr">255 </span> <span class="Delimiter">{</span> +<span id="L256" class="LineNr">256 </span> <span class="PreProc">break-if-!=</span> +<span id="L257" class="LineNr">257 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L258" class="LineNr">258 </span> <span class="Delimiter">}</span> +<span id="L259" class="LineNr">259 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket +<span id="L260" class="LineNr">260 </span> <span class="Delimiter">{</span> +<span id="L261" class="LineNr">261 </span> <span class="PreProc">break-if-!=</span> +<span id="L262" class="LineNr">262 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L263" class="LineNr">263 </span> <span class="Delimiter">}</span> +<span id="L264" class="LineNr">264 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket +<span id="L265" class="LineNr">265 </span> <span class="Delimiter">{</span> +<span id="L266" class="LineNr">266 </span> <span class="PreProc">break-if-!=</span> +<span id="L267" class="LineNr">267 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L268" class="LineNr">268 </span> <span class="Delimiter">}</span> +<span id="L269" class="LineNr">269 </span> compare g, <span class="Constant">0x7b</span>/open-curly-bracket +<span id="L270" class="LineNr">270 </span> <span class="Delimiter">{</span> +<span id="L271" class="LineNr">271 </span> <span class="PreProc">break-if-!=</span> +<span id="L272" class="LineNr">272 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L273" class="LineNr">273 </span> <span class="Delimiter">}</span> +<span id="L274" class="LineNr">274 </span> compare g, <span class="Constant">0x7d</span>/close-curly-bracket +<span id="L275" class="LineNr">275 </span> <span class="Delimiter">{</span> +<span id="L276" class="LineNr">276 </span> <span class="PreProc">break-if-!=</span> +<span id="L277" class="LineNr">277 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L278" class="LineNr">278 </span> <span class="Delimiter">}</span> +<span id="L279" class="LineNr">279 </span> <span class="muComment"># - other punctuation</span> +<span id="L280" class="LineNr">280 </span> <span class="muComment"># '!' is a symbol char</span> +<span id="L281" class="LineNr">281 </span> compare g, <span class="Constant">0x23</span>/hash +<span id="L282" class="LineNr">282 </span> <span class="Delimiter">{</span> +<span id="L283" class="LineNr">283 </span> <span class="PreProc">break-if-!=</span> +<span id="L284" class="LineNr">284 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L285" class="LineNr">285 </span> <span class="Delimiter">}</span> +<span id="L286" class="LineNr">286 </span> <span class="muComment"># '$' is a symbol char</span> +<span id="L287" class="LineNr">287 </span> compare g, <span class="Constant">0x25</span>/percent +<span id="L288" class="LineNr">288 </span> <span class="Delimiter">{</span> +<span id="L289" class="LineNr">289 </span> <span class="PreProc">break-if-!=</span> +<span id="L290" class="LineNr">290 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L291" class="LineNr">291 </span> <span class="Delimiter">}</span> +<span id="L292" class="LineNr">292 </span> compare g, <span class="Constant">0x26</span>/ampersand +<span id="L293" class="LineNr">293 </span> <span class="Delimiter">{</span> +<span id="L294" class="LineNr">294 </span> <span class="PreProc">break-if-!=</span> +<span id="L295" class="LineNr">295 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L296" class="LineNr">296 </span> <span class="Delimiter">}</span> +<span id="L297" class="LineNr">297 </span> compare g, <span class="Constant">0x27</span>/single-quote +<span id="L298" class="LineNr">298 </span> <span class="Delimiter">{</span> +<span id="L299" class="LineNr">299 </span> <span class="PreProc">break-if-!=</span> +<span id="L300" class="LineNr">300 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L301" class="LineNr">301 </span> <span class="Delimiter">}</span> +<span id="L302" class="LineNr">302 </span> compare g, <span class="Constant">0x2a</span>/asterisk +<span id="L303" class="LineNr">303 </span> <span class="Delimiter">{</span> +<span id="L304" class="LineNr">304 </span> <span class="PreProc">break-if-!=</span> +<span id="L305" class="LineNr">305 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L306" class="LineNr">306 </span> <span class="Delimiter">}</span> +<span id="L307" class="LineNr">307 </span> compare g, <span class="Constant">0x2b</span>/plus +<span id="L308" class="LineNr">308 </span> <span class="Delimiter">{</span> +<span id="L309" class="LineNr">309 </span> <span class="PreProc">break-if-!=</span> +<span id="L310" class="LineNr">310 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L311" class="LineNr">311 </span> <span class="Delimiter">}</span> +<span id="L312" class="LineNr">312 </span> compare g, <span class="Constant">0x2c</span>/comma +<span id="L313" class="LineNr">313 </span> <span class="Delimiter">{</span> +<span id="L314" class="LineNr">314 </span> <span class="PreProc">break-if-!=</span> +<span id="L315" class="LineNr">315 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L316" class="LineNr">316 </span> <span class="Delimiter">}</span> +<span id="L317" class="LineNr">317 </span> compare g, <span class="Constant">0x2d</span>/dash <span class="muComment"># '-' not allowed in symbols</span> +<span id="L318" class="LineNr">318 </span> <span class="Delimiter">{</span> +<span id="L319" class="LineNr">319 </span> <span class="PreProc">break-if-!=</span> +<span id="L320" class="LineNr">320 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L321" class="LineNr">321 </span> <span class="Delimiter">}</span> +<span id="L322" class="LineNr">322 </span> compare g, <span class="Constant">0x2e</span>/period +<span id="L323" class="LineNr">323 </span> <span class="Delimiter">{</span> +<span id="L324" class="LineNr">324 </span> <span class="PreProc">break-if-!=</span> +<span id="L325" class="LineNr">325 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L326" class="LineNr">326 </span> <span class="Delimiter">}</span> +<span id="L327" class="LineNr">327 </span> compare g, <span class="Constant">0x2f</span>/slash +<span id="L328" class="LineNr">328 </span> <span class="Delimiter">{</span> +<span id="L329" class="LineNr">329 </span> <span class="PreProc">break-if-!=</span> +<span id="L330" class="LineNr">330 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L331" class="LineNr">331 </span> <span class="Delimiter">}</span> +<span id="L332" class="LineNr">332 </span> compare g, <span class="Constant">0x3a</span>/colon +<span id="L333" class="LineNr">333 </span> <span class="Delimiter">{</span> +<span id="L334" class="LineNr">334 </span> <span class="PreProc">break-if-!=</span> +<span id="L335" class="LineNr">335 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L336" class="LineNr">336 </span> <span class="Delimiter">}</span> +<span id="L337" class="LineNr">337 </span> compare g, <span class="Constant">0x3b</span>/semi-colon +<span id="L338" class="LineNr">338 </span> <span class="Delimiter">{</span> +<span id="L339" class="LineNr">339 </span> <span class="PreProc">break-if-!=</span> +<span id="L340" class="LineNr">340 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L341" class="LineNr">341 </span> <span class="Delimiter">}</span> +<span id="L342" class="LineNr">342 </span> compare g, <span class="Constant">0x3c</span>/less-than +<span id="L343" class="LineNr">343 </span> <span class="Delimiter">{</span> +<span id="L344" class="LineNr">344 </span> <span class="PreProc">break-if-!=</span> +<span id="L345" class="LineNr">345 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L346" class="LineNr">346 </span> <span class="Delimiter">}</span> +<span id="L347" class="LineNr">347 </span> compare g, <span class="Constant">0x3d</span>/equal +<span id="L348" class="LineNr">348 </span> <span class="Delimiter">{</span> +<span id="L349" class="LineNr">349 </span> <span class="PreProc">break-if-!=</span> +<span id="L350" class="LineNr">350 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L351" class="LineNr">351 </span> <span class="Delimiter">}</span> +<span id="L352" class="LineNr">352 </span> compare g, <span class="Constant">0x3e</span>/greater-than +<span id="L353" class="LineNr">353 </span> <span class="Delimiter">{</span> +<span id="L354" class="LineNr">354 </span> <span class="PreProc">break-if-!=</span> +<span id="L355" class="LineNr">355 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L356" class="LineNr">356 </span> <span class="Delimiter">}</span> +<span id="L357" class="LineNr">357 </span> <span class="muComment"># '?' is a symbol char</span> +<span id="L358" class="LineNr">358 </span> compare g, <span class="Constant">0x40</span>/at-sign +<span id="L359" class="LineNr">359 </span> <span class="Delimiter">{</span> +<span id="L360" class="LineNr">360 </span> <span class="PreProc">break-if-!=</span> +<span id="L361" class="LineNr">361 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L362" class="LineNr">362 </span> <span class="Delimiter">}</span> +<span id="L363" class="LineNr">363 </span> compare g, <span class="Constant">0x5c</span>/backslash +<span id="L364" class="LineNr">364 </span> <span class="Delimiter">{</span> +<span id="L365" class="LineNr">365 </span> <span class="PreProc">break-if-!=</span> +<span id="L366" class="LineNr">366 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L367" class="LineNr">367 </span> <span class="Delimiter">}</span> +<span id="L368" class="LineNr">368 </span> compare g, <span class="Constant">0x5e</span>/caret +<span id="L369" class="LineNr">369 </span> <span class="Delimiter">{</span> +<span id="L370" class="LineNr">370 </span> <span class="PreProc">break-if-!=</span> +<span id="L371" class="LineNr">371 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L372" class="LineNr">372 </span> <span class="Delimiter">}</span> +<span id="L373" class="LineNr">373 </span> <span class="muComment"># '_' is a symbol char</span> +<span id="L374" class="LineNr">374 </span> compare g, <span class="Constant">0x7c</span>/vertical-line +<span id="L375" class="LineNr">375 </span> <span class="Delimiter">{</span> +<span id="L376" class="LineNr">376 </span> <span class="PreProc">break-if-!=</span> +<span id="L377" class="LineNr">377 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L378" class="LineNr">378 </span> <span class="Delimiter">}</span> +<span id="L379" class="LineNr">379 </span> compare g, <span class="Constant">0x7e</span>/tilde +<span id="L380" class="LineNr">380 </span> <span class="Delimiter">{</span> +<span id="L381" class="LineNr">381 </span> <span class="PreProc">break-if-!=</span> +<span id="L382" class="LineNr">382 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L383" class="LineNr">383 </span> <span class="Delimiter">}</span> +<span id="L384" class="LineNr">384 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L385" class="LineNr">385 </span><span class="Delimiter">}</span> +<span id="L386" class="LineNr">386 </span> +<span id="L387" class="LineNr">387 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L387'>bracket-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L388" class="LineNr">388 </span> compare g, <span class="Constant">0x28</span>/open-paren +<span id="L389" class="LineNr">389 </span> <span class="Delimiter">{</span> +<span id="L390" class="LineNr">390 </span> <span class="PreProc">break-if-!=</span> +<span id="L391" class="LineNr">391 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L392" class="LineNr">392 </span> <span class="Delimiter">}</span> +<span id="L393" class="LineNr">393 </span> compare g, <span class="Constant">0x29</span>/close-paren +<span id="L394" class="LineNr">394 </span> <span class="Delimiter">{</span> +<span id="L395" class="LineNr">395 </span> <span class="PreProc">break-if-!=</span> +<span id="L396" class="LineNr">396 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L397" class="LineNr">397 </span> <span class="Delimiter">}</span> +<span id="L398" class="LineNr">398 </span> compare g, <span class="Constant">0x5b</span>/open-square-bracket +<span id="L399" class="LineNr">399 </span> <span class="Delimiter">{</span> +<span id="L400" class="LineNr">400 </span> <span class="PreProc">break-if-!=</span> +<span id="L401" class="LineNr">401 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L402" class="LineNr">402 </span> <span class="Delimiter">}</span> +<span id="L403" class="LineNr">403 </span> compare g, <span class="Constant">0x5d</span>/close-square-bracket +<span id="L404" class="LineNr">404 </span> <span class="Delimiter">{</span> +<span id="L405" class="LineNr">405 </span> <span class="PreProc">break-if-!=</span> +<span id="L406" class="LineNr">406 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L407" class="LineNr">407 </span> <span class="Delimiter">}</span> +<span id="L408" class="LineNr">408 </span> compare g, <span class="Constant">0x7b</span>/open-curly-bracket +<span id="L409" class="LineNr">409 </span> <span class="Delimiter">{</span> +<span id="L410" class="LineNr">410 </span> <span class="PreProc">break-if-!=</span> +<span id="L411" class="LineNr">411 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L412" class="LineNr">412 </span> <span class="Delimiter">}</span> +<span id="L413" class="LineNr">413 </span> compare g, <span class="Constant">0x7d</span>/close-curly-bracket +<span id="L414" class="LineNr">414 </span> <span class="Delimiter">{</span> +<span id="L415" class="LineNr">415 </span> <span class="PreProc">break-if-!=</span> +<span id="L416" class="LineNr">416 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L417" class="LineNr">417 </span> <span class="Delimiter">}</span> +<span id="L418" class="LineNr">418 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L419" class="LineNr">419 </span><span class="Delimiter">}</span> +<span id="L420" class="LineNr">420 </span> +<span id="L421" class="LineNr">421 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L421'>operator-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L422" class="LineNr">422 </span> <span class="muComment"># '$' is a symbol char</span> +<span id="L423" class="LineNr">423 </span> compare g, <span class="Constant">0x25</span>/percent +<span id="L424" class="LineNr">424 </span> <span class="Delimiter">{</span> +<span id="L425" class="LineNr">425 </span> <span class="PreProc">break-if-!=</span> +<span id="L426" class="LineNr">426 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/false +<span id="L427" class="LineNr">427 </span> <span class="Delimiter">}</span> +<span id="L428" class="LineNr">428 </span> compare g, <span class="Constant">0x26</span>/ampersand +<span id="L429" class="LineNr">429 </span> <span class="Delimiter">{</span> +<span id="L430" class="LineNr">430 </span> <span class="PreProc">break-if-!=</span> +<span id="L431" class="LineNr">431 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L432" class="LineNr">432 </span> <span class="Delimiter">}</span> +<span id="L433" class="LineNr">433 </span> compare g, <span class="Constant">0x27</span>/single-quote +<span id="L434" class="LineNr">434 </span> <span class="Delimiter">{</span> +<span id="L435" class="LineNr">435 </span> <span class="PreProc">break-if-!=</span> +<span id="L436" class="LineNr">436 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L437" class="LineNr">437 </span> <span class="Delimiter">}</span> +<span id="L438" class="LineNr">438 </span> compare g, <span class="Constant">0x2a</span>/asterisk +<span id="L439" class="LineNr">439 </span> <span class="Delimiter">{</span> +<span id="L440" class="LineNr">440 </span> <span class="PreProc">break-if-!=</span> +<span id="L441" class="LineNr">441 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L442" class="LineNr">442 </span> <span class="Delimiter">}</span> +<span id="L443" class="LineNr">443 </span> compare g, <span class="Constant">0x2b</span>/plus +<span id="L444" class="LineNr">444 </span> <span class="Delimiter">{</span> +<span id="L445" class="LineNr">445 </span> <span class="PreProc">break-if-!=</span> +<span id="L446" class="LineNr">446 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L447" class="LineNr">447 </span> <span class="Delimiter">}</span> +<span id="L448" class="LineNr">448 </span> compare g, <span class="Constant">0x2c</span>/comma +<span id="L449" class="LineNr">449 </span> <span class="Delimiter">{</span> +<span id="L450" class="LineNr">450 </span> <span class="PreProc">break-if-!=</span> +<span id="L451" class="LineNr">451 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L452" class="LineNr">452 </span> <span class="Delimiter">}</span> +<span id="L453" class="LineNr">453 </span> compare g, <span class="Constant">0x2d</span>/dash <span class="muComment"># '-' not allowed in symbols</span> +<span id="L454" class="LineNr">454 </span> <span class="Delimiter">{</span> +<span id="L455" class="LineNr">455 </span> <span class="PreProc">break-if-!=</span> +<span id="L456" class="LineNr">456 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L457" class="LineNr">457 </span> <span class="Delimiter">}</span> +<span id="L458" class="LineNr">458 </span> compare g, <span class="Constant">0x2e</span>/period +<span id="L459" class="LineNr">459 </span> <span class="Delimiter">{</span> +<span id="L460" class="LineNr">460 </span> <span class="PreProc">break-if-!=</span> +<span id="L461" class="LineNr">461 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L462" class="LineNr">462 </span> <span class="Delimiter">}</span> +<span id="L463" class="LineNr">463 </span> compare g, <span class="Constant">0x2f</span>/slash +<span id="L464" class="LineNr">464 </span> <span class="Delimiter">{</span> +<span id="L465" class="LineNr">465 </span> <span class="PreProc">break-if-!=</span> +<span id="L466" class="LineNr">466 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L467" class="LineNr">467 </span> <span class="Delimiter">}</span> +<span id="L468" class="LineNr">468 </span> compare g, <span class="Constant">0x3a</span>/colon +<span id="L469" class="LineNr">469 </span> <span class="Delimiter">{</span> +<span id="L470" class="LineNr">470 </span> <span class="PreProc">break-if-!=</span> +<span id="L471" class="LineNr">471 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L472" class="LineNr">472 </span> <span class="Delimiter">}</span> +<span id="L473" class="LineNr">473 </span> compare g, <span class="Constant">0x3b</span>/semi-colon +<span id="L474" class="LineNr">474 </span> <span class="Delimiter">{</span> +<span id="L475" class="LineNr">475 </span> <span class="PreProc">break-if-!=</span> +<span id="L476" class="LineNr">476 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L477" class="LineNr">477 </span> <span class="Delimiter">}</span> +<span id="L478" class="LineNr">478 </span> compare g, <span class="Constant">0x3c</span>/less-than +<span id="L479" class="LineNr">479 </span> <span class="Delimiter">{</span> +<span id="L480" class="LineNr">480 </span> <span class="PreProc">break-if-!=</span> +<span id="L481" class="LineNr">481 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L482" class="LineNr">482 </span> <span class="Delimiter">}</span> +<span id="L483" class="LineNr">483 </span> compare g, <span class="Constant">0x3d</span>/equal +<span id="L484" class="LineNr">484 </span> <span class="Delimiter">{</span> +<span id="L485" class="LineNr">485 </span> <span class="PreProc">break-if-!=</span> +<span id="L486" class="LineNr">486 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L487" class="LineNr">487 </span> <span class="Delimiter">}</span> +<span id="L488" class="LineNr">488 </span> compare g, <span class="Constant">0x3e</span>/greater-than +<span id="L489" class="LineNr">489 </span> <span class="Delimiter">{</span> +<span id="L490" class="LineNr">490 </span> <span class="PreProc">break-if-!=</span> +<span id="L491" class="LineNr">491 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L492" class="LineNr">492 </span> <span class="Delimiter">}</span> +<span id="L493" class="LineNr">493 </span> <span class="muComment"># '?' is a symbol char</span> +<span id="L494" class="LineNr">494 </span> compare g, <span class="Constant">0x40</span>/at-sign +<span id="L495" class="LineNr">495 </span> <span class="Delimiter">{</span> +<span id="L496" class="LineNr">496 </span> <span class="PreProc">break-if-!=</span> +<span id="L497" class="LineNr">497 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L498" class="LineNr">498 </span> <span class="Delimiter">}</span> +<span id="L499" class="LineNr">499 </span> compare g, <span class="Constant">0x5c</span>/backslash +<span id="L500" class="LineNr">500 </span> <span class="Delimiter">{</span> +<span id="L501" class="LineNr">501 </span> <span class="PreProc">break-if-!=</span> +<span id="L502" class="LineNr">502 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L503" class="LineNr">503 </span> <span class="Delimiter">}</span> +<span id="L504" class="LineNr">504 </span> compare g, <span class="Constant">0x5e</span>/caret +<span id="L505" class="LineNr">505 </span> <span class="Delimiter">{</span> +<span id="L506" class="LineNr">506 </span> <span class="PreProc">break-if-!=</span> +<span id="L507" class="LineNr">507 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L508" class="LineNr">508 </span> <span class="Delimiter">}</span> +<span id="L509" class="LineNr">509 </span> <span class="muComment"># '_' is a symbol char</span> +<span id="L510" class="LineNr">510 </span> compare g, <span class="Constant">0x7c</span>/vertical-line +<span id="L511" class="LineNr">511 </span> <span class="Delimiter">{</span> +<span id="L512" class="LineNr">512 </span> <span class="PreProc">break-if-!=</span> +<span id="L513" class="LineNr">513 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L514" class="LineNr">514 </span> <span class="Delimiter">}</span> +<span id="L515" class="LineNr">515 </span> compare g, <span class="Constant">0x7e</span>/tilde +<span id="L516" class="LineNr">516 </span> <span class="Delimiter">{</span> +<span id="L517" class="LineNr">517 </span> <span class="PreProc">break-if-!=</span> +<span id="L518" class="LineNr">518 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L519" class="LineNr">519 </span> <span class="Delimiter">}</span> +<span id="L520" class="LineNr">520 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L521" class="LineNr">521 </span><span class="Delimiter">}</span> +<span id="L522" class="LineNr">522 </span> +<span id="L523" class="LineNr">523 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L523'>number-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L524" class="LineNr">524 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L525" class="LineNr">525 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L526" class="LineNr">526 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah +<span id="L527" class="LineNr">527 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L528" class="LineNr">528 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L529" class="LineNr">529 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../126write-int-decimal.subx.html#L299'>decimal-digit?</a> g +<span id="L530" class="LineNr">530 </span> <span class="PreProc">return</span> result +<span id="L531" class="LineNr">531 </span><span class="Delimiter">}</span> +<span id="L532" class="LineNr">532 </span> +<span id="L533" class="LineNr">533 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L533'>bracket-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L534" class="LineNr">534 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L535" class="LineNr">535 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L536" class="LineNr">536 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah +<span id="L537" class="LineNr">537 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L538" class="LineNr">538 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L539" class="LineNr">539 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='tokenize.mu.html#L387'>bracket-grapheme?</a> g +<span id="L540" class="LineNr">540 </span> <span class="PreProc">return</span> result +<span id="L541" class="LineNr">541 </span><span class="Delimiter">}</span> +<span id="L542" class="LineNr">542 </span> +<span id="L543" class="LineNr">543 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L543'>open-paren-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L544" class="LineNr">544 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L545" class="LineNr">545 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L546" class="LineNr">546 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah +<span id="L547" class="LineNr">547 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L548" class="LineNr">548 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L549" class="LineNr">549 </span> compare g, <span class="Constant">0x28</span>/open-paren +<span id="L550" class="LineNr">550 </span> <span class="Delimiter">{</span> +<span id="L551" class="LineNr">551 </span> <span class="PreProc">break-if-!=</span> +<span id="L552" class="LineNr">552 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L553" class="LineNr">553 </span> <span class="Delimiter">}</span> +<span id="L554" class="LineNr">554 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L555" class="LineNr">555 </span><span class="Delimiter">}</span> +<span id="L556" class="LineNr">556 </span> +<span id="L557" class="LineNr">557 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='tokenize.mu.html#L557'>close-paren-token?</a></span> _in: (addr <a href='cell.mu.html#L1'>cell</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L558" class="LineNr">558 </span> <span class="PreProc">var</span> in/<span class="Constant">eax</span>: (addr <a href='cell.mu.html#L1'>cell</a>) <span class="Special"><-</span> copy _in +<span id="L559" class="LineNr">559 </span> <span class="PreProc">var</span> in-data-ah/<span class="Constant">eax</span>: (addr handle stream byte) <span class="Special"><-</span> get in, text-data +<span id="L560" class="LineNr">560 </span> <span class="PreProc">var</span> in-data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *in-data-ah +<span id="L561" class="LineNr">561 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> in-data +<span id="L562" class="LineNr">562 </span> <span class="PreProc">var</span> g/<span class="Constant">eax</span>: grapheme <span class="Special"><-</span> <a href='../403unicode.mu.html#L92'>read-grapheme</a> in-data +<span id="L563" class="LineNr">563 </span> compare g, <span class="Constant">0x29</span>/open-paren +<span id="L564" class="LineNr">564 </span> <span class="Delimiter">{</span> +<span id="L565" class="LineNr">565 </span> <span class="PreProc">break-if-!=</span> +<span id="L566" class="LineNr">566 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L567" class="LineNr">567 </span> <span class="Delimiter">}</span> +<span id="L568" class="LineNr">568 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L569" class="LineNr">569 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/html/shell/trace.mu.html b/html/shell/trace.mu.html new file mode 100644 index 00000000..78e1a1b4 --- /dev/null +++ b/html/shell/trace.mu.html @@ -0,0 +1,1641 @@ +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> +<html> +<head> +<meta http-equiv="content-type" content="text/html; charset=UTF-8"> +<title>Mu - shell/trace.mu</title> +<meta name="Generator" content="Vim/8.1"> +<meta name="plugin-version" content="vim8.1_v1"> +<meta name="syntax" content="none"> +<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> +<meta name="colorscheme" content="minimal-light"> +<style type="text/css"> +<!-- +pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; } +body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; } +a { color:inherit; } +* { font-size:12pt; font-size: 1em; } +.PreProc { color: #c000c0; } +.Special { color: #ff6060; } +.LineNr { } +.Constant { color: #008787; } +.Delimiter { color: #c000c0; } +.muFunction { color: #af5f00; text-decoration: underline; } +.muTest { color: #5f8700; } +.muComment { color: #005faf; } +--> +</style> + +<script type='text/javascript'> +<!-- + +/* function to open any folds containing a jumped-to line before jumping to it */ +function JumpToLine() +{ + var lineNum; + lineNum = window.location.hash; + lineNum = lineNum.substr(1); /* strip off '#' */ + + if (lineNum.indexOf('L') == -1) { + lineNum = 'L'+lineNum; + } + var lineElem = document.getElementById(lineNum); + /* Always jump to new location even if the line was hidden inside a fold, or + * we corrected the raw number to a line ID. + */ + if (lineElem) { + lineElem.scrollIntoView(true); + } + return true; +} +if ('onhashchange' in window) { + window.onhashchange = JumpToLine; +} + +--> +</script> +</head> +<body onload='JumpToLine();'> +<a href='https://github.com/akkartik/mu/blob/main/shell/trace.mu'>https://github.com/akkartik/mu/blob/main/shell/trace.mu</a> +<pre id='vimCodeElement'> +<span id="L1" class="LineNr"> 1 </span><span class="muComment"># A trace records the evolution of a computation.</span> +<span id="L2" class="LineNr"> 2 </span><span class="muComment"># An integral part of the Mu Shell is facilities for browsing traces.</span> +<span id="L3" class="LineNr"> 3 </span> +<span id="L4" class="LineNr"> 4 </span><span class="PreProc">type</span> trace <span class="Delimiter">{</span> +<span id="L5" class="LineNr"> 5 </span> curr-depth: int <span class="muComment"># depth that will be assigned to next line appended</span> +<span id="L6" class="LineNr"> 6 </span> data: (handle array <a href='trace.mu.html#L26'>trace-line</a>) +<span id="L7" class="LineNr"> 7 </span> first-free: int +<span id="L8" class="LineNr"> 8 </span> first-full: int <span class="muComment"># used only by check-trace-scan</span> +<span id="L9" class="LineNr"> 9 </span> +<span id="L10" class="LineNr"> 10 </span> <span class="muComment"># steady-state life cycle of a trace:</span> +<span id="L11" class="LineNr"> 11 </span> <span class="muComment"># reload loop:</span> +<span id="L12" class="LineNr"> 12 </span> <span class="muComment"># there are already some visible lines</span> +<span id="L13" class="LineNr"> 13 </span> <span class="muComment"># append a bunch of new trace lines to the trace</span> +<span id="L14" class="LineNr"> 14 </span> <span class="muComment"># render loop:</span> +<span id="L15" class="LineNr"> 15 </span> <span class="muComment"># rendering displays trace lines that match visible lines</span> +<span id="L16" class="LineNr"> 16 </span> <span class="muComment"># rendering computes cursor-line based on the cursor-y coordinate</span> +<span id="L17" class="LineNr"> 17 </span> <span class="muComment"># edit-trace updates cursor-y coordinate</span> +<span id="L18" class="LineNr"> 18 </span> <span class="muComment"># edit-trace might add/remove lines to visible</span> +<span id="L19" class="LineNr"> 19 </span> visible: (handle array <a href='trace.mu.html#L26'>trace-line</a>) +<span id="L20" class="LineNr"> 20 </span> recompute-visible?: boolean +<span id="L21" class="LineNr"> 21 </span> top-line-index: int <span class="muComment"># index into data</span> +<span id="L22" class="LineNr"> 22 </span> cursor-y: int <span class="muComment"># row index on screen</span> +<span id="L23" class="LineNr"> 23 </span> cursor-line-index: int <span class="muComment"># index into data</span> +<span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span> +<span id="L25" class="LineNr"> 25 </span> +<span id="L26" class="LineNr"> 26 </span><span class="PreProc">type</span> <a href='trace.mu.html#L26'>trace-line</a> <span class="Delimiter">{</span> +<span id="L27" class="LineNr"> 27 </span> depth: int +<span id="L28" class="LineNr"> 28 </span> label: (handle array byte) +<span id="L29" class="LineNr"> 29 </span> data: (handle array byte) +<span id="L30" class="LineNr"> 30 </span> visible?: boolean +<span id="L31" class="LineNr"> 31 </span><span class="Delimiter">}</span> +<span id="L32" class="LineNr"> 32 </span> +<span id="L33" class="LineNr"> 33 </span><span class="muComment">## generating traces</span> +<span id="L34" class="LineNr"> 34 </span> +<span id="L35" class="LineNr"> 35 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L35'>initialize-trace</a></span> _self: (addr trace), capacity: int, visible-capacity: int <span class="Delimiter">{</span> +<span id="L36" class="LineNr"> 36 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L37" class="LineNr"> 37 </span> compare self, <span class="Constant">0</span> +<span id="L38" class="LineNr"> 38 </span> <span class="PreProc">break-if-=</span> +<span id="L39" class="LineNr"> 39 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L40" class="LineNr"> 40 </span> populate trace-ah, capacity +<span id="L41" class="LineNr"> 41 </span> <span class="PreProc">var</span> visible-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible +<span id="L42" class="LineNr"> 42 </span> populate visible-ah, visible-capacity +<span id="L43" class="LineNr"> 43 </span><span class="Delimiter">}</span> +<span id="L44" class="LineNr"> 44 </span> +<span id="L45" class="LineNr"> 45 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L45'>clear-trace</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L46" class="LineNr"> 46 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L47" class="LineNr"> 47 </span> compare self, <span class="Constant">0</span> +<span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break-if-=</span> +<span id="L49" class="LineNr"> 49 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L50" class="LineNr"> 50 </span> copy-to *len, <span class="Constant">0</span> +<span id="L51" class="LineNr"> 51 </span> <span class="muComment"># might leak memory; existing elements won't be used anymore</span> +<span id="L52" class="LineNr"> 52 </span><span class="Delimiter">}</span> +<span id="L53" class="LineNr"> 53 </span> +<span id="L54" class="LineNr"> 54 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L54'>has-errors?</a></span> _self: (addr trace)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L55" class="LineNr"> 55 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L56" class="LineNr"> 56 </span> <span class="Delimiter">{</span> +<span id="L57" class="LineNr"> 57 </span> compare self, <span class="Constant">0</span> +<span id="L58" class="LineNr"> 58 </span> <span class="PreProc">break-if-!=</span> +<span id="L59" class="LineNr"> 59 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L60" class="LineNr"> 60 </span> <span class="Delimiter">}</span> +<span id="L61" class="LineNr"> 61 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> trace/<span class="Constant">esi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L66" class="LineNr"> 66 </span> <span class="Delimiter">{</span> +<span id="L67" class="LineNr"> 67 </span> compare i, *max +<span id="L68" class="LineNr"> 68 </span> <span class="PreProc">break-if->=</span> +<span id="L69" class="LineNr"> 69 </span> <span class="PreProc">var</span> offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L70" class="LineNr"> 70 </span> <span class="PreProc">var</span> curr/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset +<span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label +<span id="L72" class="LineNr"> 72 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah +<span id="L73" class="LineNr"> 73 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, <span class="Constant">"error"</span> +<span id="L74" class="LineNr"> 74 </span> compare error?, <span class="Constant">0</span>/false +<span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">{</span> +<span id="L76" class="LineNr"> 76 </span> <span class="PreProc">break-if-=</span> +<span id="L77" class="LineNr"> 77 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L78" class="LineNr"> 78 </span> <span class="Delimiter">}</span> +<span id="L79" class="LineNr"> 79 </span> i <span class="Special"><-</span> increment +<span id="L80" class="LineNr"> 80 </span> <span class="PreProc">loop</span> +<span id="L81" class="LineNr"> 81 </span> <span class="Delimiter">}</span> +<span id="L82" class="LineNr"> 82 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L83" class="LineNr"> 83 </span><span class="Delimiter">}</span> +<span id="L84" class="LineNr"> 84 </span> +<span id="L85" class="LineNr"> 85 </span><span class="PreProc">fn</span> <span class="muFunction">trace</span> _self: (addr trace), label: (addr array byte), message: (addr stream byte) <span class="Delimiter">{</span> +<span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L87" class="LineNr"> 87 </span> compare self, <span class="Constant">0</span> +<span id="L88" class="LineNr"> 88 </span> <span class="PreProc">break-if-=</span> +<span id="L89" class="LineNr"> 89 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L90" class="LineNr"> 90 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> index-addr/<span class="Constant">edi</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L92" class="LineNr"> 92 </span> <span class="PreProc">var</span> index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *index-addr +<span id="L93" class="LineNr"> 93 </span> <span class="PreProc">var</span> offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset data, index +<span id="L94" class="LineNr"> 94 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index data, offset +<span id="L95" class="LineNr"> 95 </span> <span class="PreProc">var</span> depth/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, curr-depth +<span id="L96" class="LineNr"> 96 </span> <a href='../106stream.subx.html#L59'>rewind-stream</a> message +<span id="L97" class="LineNr"> 97 </span> <a href='trace.mu.html#L114'>initialize-trace-line</a> *depth, label, message, dest +<span id="L98" class="LineNr"> 98 </span> increment *index-addr +<span id="L99" class="LineNr"> 99 </span><span class="Delimiter">}</span> +<span id="L100" class="LineNr"> 100 </span> +<span id="L101" class="LineNr"> 101 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L101'>trace-text</a></span> self: (addr trace), label: (addr array byte), s: (addr array byte) <span class="Delimiter">{</span> +<span id="L102" class="LineNr"> 102 </span> compare self, <span class="Constant">0</span> +<span id="L103" class="LineNr"> 103 </span> <span class="PreProc">break-if-=</span> +<span id="L104" class="LineNr"> 104 </span> <span class="PreProc">var</span> data-storage: (stream byte <span class="Constant">0x100</span>) +<span id="L105" class="LineNr"> 105 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr stream byte) <span class="Special"><-</span> address data-storage +<span id="L106" class="LineNr"> 106 </span> <a href='../108write.subx.html#L11'>write</a> data, s +<span id="L107" class="LineNr"> 107 </span> trace self, label, data +<span id="L108" class="LineNr"> 108 </span><span class="Delimiter">}</span> +<span id="L109" class="LineNr"> 109 </span> +<span id="L110" class="LineNr"> 110 </span><span class="PreProc">fn</span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> self: (addr trace), message: (addr array byte) <span class="Delimiter">{</span> +<span id="L111" class="LineNr"> 111 </span> <a href='trace.mu.html#L101'>trace-text</a> self, <span class="Constant">"error"</span>, message +<span id="L112" class="LineNr"> 112 </span><span class="Delimiter">}</span> +<span id="L113" class="LineNr"> 113 </span> +<span id="L114" class="LineNr"> 114 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L114'>initialize-trace-line</a></span> depth: int, label: (addr array byte), data: (addr stream byte), _out: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Delimiter">{</span> +<span id="L115" class="LineNr"> 115 </span> <span class="PreProc">var</span> out/<span class="Constant">edi</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _out +<span id="L116" class="LineNr"> 116 </span> <span class="muComment"># depth</span> +<span id="L117" class="LineNr"> 117 </span> <span class="PreProc">var</span> src/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy depth +<span id="L118" class="LineNr"> 118 </span> <span class="PreProc">var</span> dest/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get out, depth +<span id="L119" class="LineNr"> 119 </span> copy-to *dest, src +<span id="L120" class="LineNr"> 120 </span> <span class="muComment"># label</span> +<span id="L121" class="LineNr"> 121 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get out, label +<span id="L122" class="LineNr"> 122 </span> <a href='../312copy.subx.html#L3'>copy-array-object</a> label, dest +<span id="L123" class="LineNr"> 123 </span> <span class="muComment"># data</span> +<span id="L124" class="LineNr"> 124 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get out, data +<span id="L125" class="LineNr"> 125 </span> <a href='../310copy-bytes.subx.html#L60'>stream-to-array</a> data, dest +<span id="L126" class="LineNr"> 126 </span><span class="Delimiter">}</span> +<span id="L127" class="LineNr"> 127 </span> +<span id="L128" class="LineNr"> 128 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L128'>trace-lower</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L129" class="LineNr"> 129 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L130" class="LineNr"> 130 </span> compare self, <span class="Constant">0</span> +<span id="L131" class="LineNr"> 131 </span> <span class="PreProc">break-if-=</span> +<span id="L132" class="LineNr"> 132 </span> <span class="PreProc">var</span> depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, curr-depth +<span id="L133" class="LineNr"> 133 </span> increment *depth +<span id="L134" class="LineNr"> 134 </span><span class="Delimiter">}</span> +<span id="L135" class="LineNr"> 135 </span> +<span id="L136" class="LineNr"> 136 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L136'>trace-higher</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L137" class="LineNr"> 137 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L138" class="LineNr"> 138 </span> compare self, <span class="Constant">0</span> +<span id="L139" class="LineNr"> 139 </span> <span class="PreProc">break-if-=</span> +<span id="L140" class="LineNr"> 140 </span> <span class="PreProc">var</span> depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, curr-depth +<span id="L141" class="LineNr"> 141 </span> decrement *depth +<span id="L142" class="LineNr"> 142 </span><span class="Delimiter">}</span> +<span id="L143" class="LineNr"> 143 </span> +<span id="L144" class="LineNr"> 144 </span><span class="muComment">## checking traces</span> +<span id="L145" class="LineNr"> 145 </span> +<span id="L146" class="LineNr"> 146 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L146'>check-trace-scans-to</a></span> self: (addr trace), label: (addr array byte), data: (addr array byte), message: (addr array byte) <span class="Delimiter">{</span> +<span id="L147" class="LineNr"> 147 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L151'>trace-scans-to?</a> self, label, data +<span id="L148" class="LineNr"> 148 </span> <a href='../502test.mu.html#L19'>check</a> tmp, message +<span id="L149" class="LineNr"> 149 </span><span class="Delimiter">}</span> +<span id="L150" class="LineNr"> 150 </span> +<span id="L151" class="LineNr"> 151 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L151'>trace-scans-to?</a></span> _self: (addr trace), label: (addr array byte), data: (addr array byte)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L152" class="LineNr"> 152 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L153" class="LineNr"> 153 </span> <span class="PreProc">var</span> start/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, first-full +<span id="L154" class="LineNr"> 154 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L196'>trace-contains?</a> self, label, data, *start +<span id="L155" class="LineNr"> 155 </span> <span class="PreProc">return</span> result +<span id="L156" class="LineNr"> 156 </span><span class="Delimiter">}</span> +<span id="L157" class="LineNr"> 157 </span> +<span id="L158" class="LineNr"> 158 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L158'>test-trace-scans-to</a></span> <span class="Delimiter">{</span> +<span id="L159" class="LineNr"> 159 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L160" class="LineNr"> 160 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L161" class="LineNr"> 161 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> +<span id="L162" class="LineNr"> 162 </span> <span class="muComment">#</span> +<span id="L163" class="LineNr"> 163 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 1"</span> +<span id="L164" class="LineNr"> 164 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 2"</span> +<span id="L165" class="LineNr"> 165 </span> <a href='trace.mu.html#L146'>check-trace-scans-to</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 1"</span>, <span class="Constant">"F - <a href='trace.mu.html#L158'>test-trace-scans-to</a>/0"</span> +<span id="L166" class="LineNr"> 166 </span> <a href='trace.mu.html#L146'>check-trace-scans-to</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 2"</span>, <span class="Constant">"F - <a href='trace.mu.html#L158'>test-trace-scans-to</a>/1"</span> +<span id="L167" class="LineNr"> 167 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L151'>trace-scans-to?</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 1"</span> +<span id="L168" class="LineNr"> 168 </span> <a href='../502test.mu.html#L32'>check-not</a> tmp, <span class="Constant">"F - <a href='trace.mu.html#L158'>test-trace-scans-to</a>: fail on previously encountered lines"</span> +<span id="L169" class="LineNr"> 169 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L151'>trace-scans-to?</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 3"</span> +<span id="L170" class="LineNr"> 170 </span> <a href='../502test.mu.html#L32'>check-not</a> tmp, <span class="Constant">"F - <a href='trace.mu.html#L158'>test-trace-scans-to</a>: fail on missing"</span> +<span id="L171" class="LineNr"> 171 </span><span class="Delimiter">}</span> +<span id="L172" class="LineNr"> 172 </span> +<span id="L173" class="LineNr"> 173 </span><span class="muComment"># scan trace from start</span> +<span id="L174" class="LineNr"> 174 </span><span class="muComment"># resets previous scans</span> +<span id="L175" class="LineNr"> 175 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L175'>check-trace-contains</a></span> self: (addr trace), label: (addr array byte), data: (addr array byte), message: (addr array byte) <span class="Delimiter">{</span> +<span id="L176" class="LineNr"> 176 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L196'>trace-contains?</a> self, label, data, <span class="Constant">0</span> +<span id="L177" class="LineNr"> 177 </span> <a href='../502test.mu.html#L19'>check</a> tmp, message +<span id="L178" class="LineNr"> 178 </span><span class="Delimiter">}</span> +<span id="L179" class="LineNr"> 179 </span> +<span id="L180" class="LineNr"> 180 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L180'>test-trace-contains</a></span> <span class="Delimiter">{</span> +<span id="L181" class="LineNr"> 181 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L182" class="LineNr"> 182 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L183" class="LineNr"> 183 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0</span>/visible <span class="muComment"># we don't use trace UI</span> +<span id="L184" class="LineNr"> 184 </span> <span class="muComment">#</span> +<span id="L185" class="LineNr"> 185 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 1"</span> +<span id="L186" class="LineNr"> 186 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 2"</span> +<span id="L187" class="LineNr"> 187 </span> <a href='trace.mu.html#L175'>check-trace-contains</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 1"</span>, <span class="Constant">"F - <a href='trace.mu.html#L180'>test-trace-contains</a>/0"</span> +<span id="L188" class="LineNr"> 188 </span> <a href='trace.mu.html#L175'>check-trace-contains</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 2"</span>, <span class="Constant">"F - <a href='trace.mu.html#L180'>test-trace-contains</a>/1"</span> +<span id="L189" class="LineNr"> 189 </span> <a href='trace.mu.html#L175'>check-trace-contains</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 1"</span>, <span class="Constant">"F - <a href='trace.mu.html#L180'>test-trace-contains</a>: find previously encountered lines"</span> +<span id="L190" class="LineNr"> 190 </span> <span class="PreProc">var</span> tmp/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L196'>trace-contains?</a> t, <span class="Constant">"label"</span>, <span class="Constant">"line 3"</span>, <span class="Constant">0</span>/start +<span id="L191" class="LineNr"> 191 </span> <a href='../502test.mu.html#L32'>check-not</a> tmp, <span class="Constant">"F - <a href='trace.mu.html#L180'>test-trace-contains</a>: fail on missing"</span> +<span id="L192" class="LineNr"> 192 </span><span class="Delimiter">}</span> +<span id="L193" class="LineNr"> 193 </span> +<span id="L194" class="LineNr"> 194 </span><span class="muComment"># this is super-inefficient, string comparing every trace line</span> +<span id="L195" class="LineNr"> 195 </span><span class="muComment"># against every visible line on every render</span> +<span id="L196" class="LineNr"> 196 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L196'>trace-contains?</a></span> _self: (addr trace), label: (addr array byte), data: (addr array byte), start: int<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L197" class="LineNr"> 197 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L198" class="LineNr"> 198 </span> <span class="PreProc">var</span> candidates-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L199" class="LineNr"> 199 </span> <span class="PreProc">var</span> candidates/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *candidates-ah +<span id="L200" class="LineNr"> 200 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy start +<span id="L201" class="LineNr"> 201 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L202" class="LineNr"> 202 </span> <span class="Delimiter">{</span> +<span id="L203" class="LineNr"> 203 </span> compare i, *max +<span id="L204" class="LineNr"> 204 </span> <span class="PreProc">break-if->=</span> +<span id="L205" class="LineNr"> 205 </span> <span class="Delimiter">{</span> +<span id="L206" class="LineNr"> 206 </span> <span class="PreProc">var</span> read-until-index/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, first-full +<span id="L207" class="LineNr"> 207 </span> copy-to *read-until-index, i +<span id="L208" class="LineNr"> 208 </span> <span class="Delimiter">}</span> +<span id="L209" class="LineNr"> 209 </span> <span class="Delimiter">{</span> +<span id="L210" class="LineNr"> 210 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset candidates, i +<span id="L211" class="LineNr"> 211 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index candidates, curr-offset +<span id="L212" class="LineNr"> 212 </span> <span class="muComment"># if curr->label does not match, return false</span> +<span id="L213" class="LineNr"> 213 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label +<span id="L214" class="LineNr"> 214 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah +<span id="L215" class="LineNr"> 215 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, label +<span id="L216" class="LineNr"> 216 </span> compare match?, <span class="Constant">0</span>/false +<span id="L217" class="LineNr"> 217 </span> <span class="PreProc">break-if-=</span> +<span id="L218" class="LineNr"> 218 </span> <span class="muComment"># if curr->data does not match, return false</span> +<span id="L219" class="LineNr"> 219 </span> <span class="PreProc">var</span> curr-data-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, data +<span id="L220" class="LineNr"> 220 </span> <span class="PreProc">var</span> curr-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-data-ah +<span id="L221" class="LineNr"> 221 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-data, data +<span id="L222" class="LineNr"> 222 </span> compare match?, <span class="Constant">0</span>/false +<span id="L223" class="LineNr"> 223 </span> <span class="PreProc">break-if-=</span> +<span id="L224" class="LineNr"> 224 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L225" class="LineNr"> 225 </span> <span class="Delimiter">}</span> +<span id="L226" class="LineNr"> 226 </span> i <span class="Special"><-</span> increment +<span id="L227" class="LineNr"> 227 </span> <span class="PreProc">loop</span> +<span id="L228" class="LineNr"> 228 </span> <span class="Delimiter">}</span> +<span id="L229" class="LineNr"> 229 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L230" class="LineNr"> 230 </span><span class="Delimiter">}</span> +<span id="L231" class="LineNr"> 231 </span> +<span id="L232" class="LineNr"> 232 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L232'>trace-lines-equal?</a></span> _a: (addr <a href='trace.mu.html#L26'>trace-line</a>), _b: (addr <a href='trace.mu.html#L26'>trace-line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L233" class="LineNr"> 233 </span> <span class="PreProc">var</span> a/<span class="Constant">esi</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _a +<span id="L234" class="LineNr"> 234 </span> <span class="PreProc">var</span> b/<span class="Constant">edi</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _b +<span id="L235" class="LineNr"> 235 </span> <span class="PreProc">var</span> a-depth/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get a, depth +<span id="L236" class="LineNr"> 236 </span> <span class="PreProc">var</span> b-depth/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get b, depth +<span id="L237" class="LineNr"> 237 </span> <span class="PreProc">var</span> benchmark/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy *b-depth +<span id="L238" class="LineNr"> 238 </span> compare *a-depth, benchmark +<span id="L239" class="LineNr"> 239 </span> <span class="Delimiter">{</span> +<span id="L240" class="LineNr"> 240 </span> <span class="PreProc">break-if-=</span> +<span id="L241" class="LineNr"> 241 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L242" class="LineNr"> 242 </span> <span class="Delimiter">}</span> +<span id="L243" class="LineNr"> 243 </span> <span class="PreProc">var</span> a-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get a, label +<span id="L244" class="LineNr"> 244 </span> <span class="PreProc">var</span> _a-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-label-ah +<span id="L245" class="LineNr"> 245 </span> <span class="PreProc">var</span> a-label/<span class="Constant">ecx</span>: (addr array byte) <span class="Special"><-</span> copy _a-label +<span id="L246" class="LineNr"> 246 </span> <span class="PreProc">var</span> b-label-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="Special"><-</span> get b, label +<span id="L247" class="LineNr"> 247 </span> <span class="PreProc">var</span> b-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-label-ah +<span id="L248" class="LineNr"> 248 </span> <span class="PreProc">var</span> label-match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> a-label, b-label +<span id="L249" class="LineNr"> 249 </span> <span class="Delimiter">{</span> +<span id="L250" class="LineNr"> 250 </span> compare label-match?, <span class="Constant">0</span>/false +<span id="L251" class="LineNr"> 251 </span> <span class="PreProc">break-if-!=</span> +<span id="L252" class="LineNr"> 252 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L253" class="LineNr"> 253 </span> <span class="Delimiter">}</span> +<span id="L254" class="LineNr"> 254 </span> <span class="PreProc">var</span> a-data-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get a, data +<span id="L255" class="LineNr"> 255 </span> <span class="PreProc">var</span> _a-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *a-data-ah +<span id="L256" class="LineNr"> 256 </span> <span class="PreProc">var</span> a-data/<span class="Constant">ecx</span>: (addr array byte) <span class="Special"><-</span> copy _a-data +<span id="L257" class="LineNr"> 257 </span> <span class="PreProc">var</span> b-data-ah/<span class="Constant">ebx</span>: (addr handle array byte) <span class="Special"><-</span> get b, data +<span id="L258" class="LineNr"> 258 </span> <span class="PreProc">var</span> b-data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *b-data-ah +<span id="L259" class="LineNr"> 259 </span> <span class="PreProc">var</span> data-match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> a-data, b-data +<span id="L260" class="LineNr"> 260 </span> <span class="PreProc">return</span> data-match? +<span id="L261" class="LineNr"> 261 </span><span class="Delimiter">}</span> +<span id="L262" class="LineNr"> 262 </span> +<span id="L263" class="LineNr"> 263 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L263'>dump-trace</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L264" class="LineNr"> 264 </span> <span class="PreProc">var</span> already-hiding-lines?: boolean +<span id="L265" class="LineNr"> 265 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L266" class="LineNr"> 266 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L267" class="LineNr"> 267 </span> compare self, <span class="Constant">0</span> +<span id="L268" class="LineNr"> 268 </span> <span class="Delimiter">{</span> +<span id="L269" class="LineNr"> 269 </span> <span class="PreProc">break-if-!=</span> +<span id="L270" class="LineNr"> 270 </span> <span class="PreProc">return</span> +<span id="L271" class="LineNr"> 271 </span> <span class="Delimiter">}</span> +<span id="L272" class="LineNr"> 272 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L273" class="LineNr"> 273 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L274" class="LineNr"> 274 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L275" class="LineNr"> 275 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L276" class="LineNr"> 276 </span> <span class="PreProc">var</span> max-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L277" class="LineNr"> 277 </span> <span class="PreProc">var</span> max/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *max-addr +<span id="L278" class="LineNr"> 278 </span> $dump-trace:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L279" class="LineNr"> 279 </span> compare i, max +<span id="L280" class="LineNr"> 280 </span> <span class="PreProc">break-if->=</span> +<span id="L281" class="LineNr"> 281 </span> $dump-trace:iter: <span class="Delimiter">{</span> +<span id="L282" class="LineNr"> 282 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L283" class="LineNr"> 283 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset +<span id="L284" class="LineNr"> 284 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label +<span id="L285" class="LineNr"> 285 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah +<span id="L286" class="LineNr"> 286 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L379'>render-trace-line</a> <span class="Constant">0</span>/screen, curr, <span class="Constant">0</span>, y, <span class="Constant">0x80</span>/width, <span class="Constant">0x30</span>/height, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L287" class="LineNr"> 287 </span> <span class="Delimiter">}</span> +<span id="L288" class="LineNr"> 288 </span> i <span class="Special"><-</span> increment +<span id="L289" class="LineNr"> 289 </span> <span class="PreProc">loop</span> +<span id="L290" class="LineNr"> 290 </span> <span class="Delimiter">}</span> +<span id="L291" class="LineNr"> 291 </span><span class="Delimiter">}</span> +<span id="L292" class="LineNr"> 292 </span> +<span id="L293" class="LineNr"> 293 </span><span class="muComment">## UI stuff</span> +<span id="L294" class="LineNr"> 294 </span> +<span id="L295" class="LineNr"> 295 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L295'>mark-lines-dirty</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L296" class="LineNr"> 296 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L297" class="LineNr"> 297 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? +<span id="L298" class="LineNr"> 298 </span> copy-to *dest, <span class="Constant">1</span>/true +<span id="L299" class="LineNr"> 299 </span><span class="Delimiter">}</span> +<span id="L300" class="LineNr"> 300 </span> +<span id="L301" class="LineNr"> 301 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L301'>mark-lines-clean</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L302" class="LineNr"> 302 </span> <span class="PreProc">var</span> self/<span class="Constant">eax</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L303" class="LineNr"> 303 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? +<span id="L304" class="LineNr"> 304 </span> copy-to *dest, <span class="Constant">0</span>/false +<span id="L305" class="LineNr"> 305 </span><span class="Delimiter">}</span> +<span id="L306" class="LineNr"> 306 </span> +<span id="L307" class="LineNr"> 307 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L307'>render-trace</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), _self: (addr trace), xmin: int, ymin: int, xmax: int, ymax: int, show-cursor?: boolean<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L308" class="LineNr"> 308 </span> <span class="PreProc">var</span> already-hiding-lines?: boolean +<span id="L309" class="LineNr"> 309 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin +<span id="L310" class="LineNr"> 310 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L311" class="LineNr"> 311 </span> compare self, <span class="Constant">0</span> +<span id="L312" class="LineNr"> 312 </span> <span class="Delimiter">{</span> +<span id="L313" class="LineNr"> 313 </span> <span class="PreProc">break-if-!=</span> +<span id="L314" class="LineNr"> 314 </span> <span class="PreProc">return</span> ymin +<span id="L315" class="LineNr"> 315 </span> <span class="Delimiter">}</span> +<span id="L316" class="LineNr"> 316 </span> <a href='trace.mu.html#L449'>clamp-cursor-to-top</a> self, y +<span id="L317" class="LineNr"> 317 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L318" class="LineNr"> 318 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L319" class="LineNr"> 319 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L320" class="LineNr"> 320 </span> <span class="PreProc">var</span> i/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L321" class="LineNr"> 321 </span> <span class="PreProc">var</span> max-addr/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L322" class="LineNr"> 322 </span> <span class="PreProc">var</span> max/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *max-addr +<span id="L323" class="LineNr"> 323 </span> $render-trace:<span class="PreProc">loop</span>: <span class="Delimiter">{</span> +<span id="L324" class="LineNr"> 324 </span> compare i, max +<span id="L325" class="LineNr"> 325 </span> <span class="PreProc">break-if->=</span> +<span id="L326" class="LineNr"> 326 </span> $render-trace:iter: <span class="Delimiter">{</span> +<span id="L327" class="LineNr"> 327 </span> <span class="PreProc">var</span> offset/<span class="Constant">ebx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L328" class="LineNr"> 328 </span> <span class="PreProc">var</span> curr/<span class="Constant">ebx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, offset +<span id="L329" class="LineNr"> 329 </span> <span class="PreProc">var</span> curr-label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get curr, label +<span id="L330" class="LineNr"> 330 </span> <span class="PreProc">var</span> curr-label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *curr-label-ah +<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> bg/<span class="Constant">edi</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span>/black +<span id="L332" class="LineNr"> 332 </span> compare show-cursor?, <span class="Constant">0</span>/false +<span id="L333" class="LineNr"> 333 </span> <span class="Delimiter">{</span> +<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">break-if-=</span> +<span id="L335" class="LineNr"> 335 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L336" class="LineNr"> 336 </span> compare *cursor-y, y +<span id="L337" class="LineNr"> 337 </span> <span class="PreProc">break-if-!=</span> +<span id="L338" class="LineNr"> 338 </span> bg <span class="Special"><-</span> copy <span class="Constant">7</span>/cursor-line-bg +<span id="L339" class="LineNr"> 339 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L340" class="LineNr"> 340 </span> copy-to *cursor-line-index, i +<span id="L341" class="LineNr"> 341 </span> <span class="Delimiter">}</span> +<span id="L342" class="LineNr"> 342 </span> <span class="muComment"># always display errors</span> +<span id="L343" class="LineNr"> 343 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> curr-label, <span class="Constant">"error"</span> +<span id="L344" class="LineNr"> 344 </span> <span class="Delimiter">{</span> +<span id="L345" class="LineNr"> 345 </span> compare error?, <span class="Constant">0</span>/false +<span id="L346" class="LineNr"> 346 </span> <span class="PreProc">break-if-=</span> +<span id="L347" class="LineNr"> 347 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L379'>render-trace-line</a> <a href='../500text-screen.mu.html#L9'>screen</a>, curr, xmin, y, xmax, ymax, <span class="Constant">0xc</span>/fg=trace-error, bg +<span id="L348" class="LineNr"> 348 </span> copy-to already-hiding-lines?, <span class="Constant">0</span>/false +<span id="L349" class="LineNr"> 349 </span> <span class="PreProc">break</span> $render-trace:iter +<span id="L350" class="LineNr"> 350 </span> <span class="Delimiter">}</span> +<span id="L351" class="LineNr"> 351 </span> <span class="muComment"># display expanded lines</span> +<span id="L352" class="LineNr"> 352 </span> <span class="PreProc">var</span> display?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L410'>should-render?</a> self, curr +<span id="L353" class="LineNr"> 353 </span> <span class="Delimiter">{</span> +<span id="L354" class="LineNr"> 354 </span> compare display?, <span class="Constant">0</span>/false +<span id="L355" class="LineNr"> 355 </span> <span class="PreProc">break-if-=</span> +<span id="L356" class="LineNr"> 356 </span> y <span class="Special"><-</span> <a href='trace.mu.html#L379'>render-trace-line</a> <a href='../500text-screen.mu.html#L9'>screen</a>, curr, xmin, y, xmax, ymax, <span class="Constant">9</span>/fg=blue, bg +<span id="L357" class="LineNr"> 357 </span> copy-to already-hiding-lines?, <span class="Constant">0</span>/false +<span id="L358" class="LineNr"> 358 </span> <span class="PreProc">break</span> $render-trace:iter +<span id="L359" class="LineNr"> 359 </span> <span class="Delimiter">}</span> +<span id="L360" class="LineNr"> 360 </span> <span class="muComment"># ignore the rest</span> +<span id="L361" class="LineNr"> 361 </span> compare already-hiding-lines?, <span class="Constant">0</span>/false +<span id="L362" class="LineNr"> 362 </span> <span class="Delimiter">{</span> +<span id="L363" class="LineNr"> 363 </span> <span class="PreProc">break-if-!=</span> +<span id="L364" class="LineNr"> 364 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xmin +<span id="L365" class="LineNr"> 365 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, x, y, <span class="Constant">9</span>/fg=trace, bg +<span id="L366" class="LineNr"> 366 </span> y <span class="Special"><-</span> increment +<span id="L367" class="LineNr"> 367 </span> copy-to already-hiding-lines?, <span class="Constant">1</span>/true +<span id="L368" class="LineNr"> 368 </span> <span class="Delimiter">}</span> +<span id="L369" class="LineNr"> 369 </span> <span class="Delimiter">}</span> +<span id="L370" class="LineNr"> 370 </span> i <span class="Special"><-</span> increment +<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">loop</span> +<span id="L372" class="LineNr"> 372 </span> <span class="Delimiter">}</span> +<span id="L373" class="LineNr"> 373 </span> <span class="muComment"># prevent cursor from going too far down</span> +<span id="L374" class="LineNr"> 374 </span> <a href='trace.mu.html#L459'>clamp-cursor-to-bottom</a> self, y, <a href='../500text-screen.mu.html#L9'>screen</a>, xmin, ymin, xmax, ymax +<span id="L375" class="LineNr"> 375 </span> <a href='trace.mu.html#L301'>mark-lines-clean</a> self +<span id="L376" class="LineNr"> 376 </span> <span class="PreProc">return</span> y +<span id="L377" class="LineNr"> 377 </span><span class="Delimiter">}</span> +<span id="L378" class="LineNr"> 378 </span> +<span id="L379" class="LineNr"> 379 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L379'>render-trace-line</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), _self: (addr <a href='trace.mu.html#L26'>trace-line</a>), xmin: int, ymin: int, xmax: int, ymax: int, fg: int, bg: int<span class="PreProc"> -> </span>_/<span class="Constant">ecx</span>: int <span class="Delimiter">{</span> +<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _self +<span id="L381" class="LineNr"> 381 </span> <span class="PreProc">var</span> xsave/<span class="Constant">edx</span>: int <span class="Special"><-</span> copy xmin +<span id="L382" class="LineNr"> 382 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy ymin +<span id="L383" class="LineNr"> 383 </span> <span class="PreProc">var</span> label-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get self, label +<span id="L384" class="LineNr"> 384 </span> <span class="PreProc">var</span> _label/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *label-ah +<span id="L385" class="LineNr"> 385 </span> <span class="PreProc">var</span> label/<span class="Constant">ebx</span>: (addr array byte) <span class="Special"><-</span> copy _label +<span id="L386" class="LineNr"> 386 </span> <span class="PreProc">var</span> error?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='../105string-equal.subx.html#L8'>string-equal?</a> label, <span class="Constant">"error"</span> +<span id="L387" class="LineNr"> 387 </span> compare error?, <span class="Constant">0</span>/false +<span id="L388" class="LineNr"> 388 </span> <span class="Delimiter">{</span> +<span id="L389" class="LineNr"> 389 </span> <span class="PreProc">break-if-!=</span> +<span id="L390" class="LineNr"> 390 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xsave +<span id="L391" class="LineNr"> 391 </span> <span class="Delimiter">{</span> +<span id="L392" class="LineNr"> 392 </span> <span class="PreProc">var</span> depth/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, depth +<span id="L393" class="LineNr"> 393 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L297'>draw-int32-decimal-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, *depth, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L394" class="LineNr"> 394 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" "</span>, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L395" class="LineNr"> 395 </span> <span class="muComment"># don't show label in UI; it's just for tests</span> +<span id="L396" class="LineNr"> 396 </span> <span class="Delimiter">}</span> +<span id="L397" class="LineNr"> 397 </span> xsave <span class="Special"><-</span> copy x +<span id="L398" class="LineNr"> 398 </span> <span class="Delimiter">}</span> +<span id="L399" class="LineNr"> 399 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">eax</span>: (addr handle array byte) <span class="Special"><-</span> get self, data +<span id="L400" class="LineNr"> 400 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array byte) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *data-ah +<span id="L401" class="LineNr"> 401 </span> <span class="PreProc">var</span> data/<span class="Constant">ebx</span>: (addr array byte) <span class="Special"><-</span> copy _data +<span id="L402" class="LineNr"> 402 </span> <span class="PreProc">var</span> x/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy xsave +<span id="L403" class="LineNr"> 403 </span> x, y <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, data, xmin, ymin, xmax, ymax, x, y, fg, bg +<span id="L404" class="LineNr"> 404 </span> y <span class="Special"><-</span> increment +<span id="L405" class="LineNr"> 405 </span> <span class="PreProc">return</span> y +<span id="L406" class="LineNr"> 406 </span><span class="Delimiter">}</span> +<span id="L407" class="LineNr"> 407 </span> +<span id="L408" class="LineNr"> 408 </span><span class="muComment"># this is super-inefficient, string comparing every trace line</span> +<span id="L409" class="LineNr"> 409 </span><span class="muComment"># against every visible line on every render</span> +<span id="L410" class="LineNr"> 410 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L410'>should-render?</a></span> _self: (addr trace), _line: (addr <a href='trace.mu.html#L26'>trace-line</a>)<span class="PreProc"> -> </span>_/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> +<span id="L411" class="LineNr"> 411 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L412" class="LineNr"> 412 </span> <span class="muComment"># if visible? is already cached, just return it</span> +<span id="L413" class="LineNr"> 413 </span> <span class="PreProc">var</span> dest/<span class="Constant">edx</span>: (addr boolean) <span class="Special"><-</span> get self, recompute-visible? +<span id="L414" class="LineNr"> 414 </span> compare *dest, <span class="Constant">0</span>/false +<span id="L415" class="LineNr"> 415 </span> <span class="Delimiter">{</span> +<span id="L416" class="LineNr"> 416 </span> <span class="PreProc">break-if-!=</span> +<span id="L417" class="LineNr"> 417 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line +<span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> result/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? +<span id="L419" class="LineNr"> 419 </span> <span class="PreProc">return</span> *result +<span id="L420" class="LineNr"> 420 </span> <span class="Delimiter">}</span> +<span id="L421" class="LineNr"> 421 </span> <span class="muComment"># recompute</span> +<span id="L422" class="LineNr"> 422 </span> <span class="PreProc">var</span> candidates-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible +<span id="L423" class="LineNr"> 423 </span> <span class="PreProc">var</span> candidates/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *candidates-ah +<span id="L424" class="LineNr"> 424 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L425" class="LineNr"> 425 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length candidates +<span id="L426" class="LineNr"> 426 </span> <span class="Delimiter">{</span> +<span id="L427" class="LineNr"> 427 </span> compare i, len +<span id="L428" class="LineNr"> 428 </span> <span class="PreProc">break-if->=</span> +<span id="L429" class="LineNr"> 429 </span> <span class="Delimiter">{</span> +<span id="L430" class="LineNr"> 430 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset candidates, i +<span id="L431" class="LineNr"> 431 </span> <span class="PreProc">var</span> curr/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index candidates, curr-offset +<span id="L432" class="LineNr"> 432 </span> <span class="PreProc">var</span> match?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L232'>trace-lines-equal?</a> curr, _line +<span id="L433" class="LineNr"> 433 </span> compare match?, <span class="Constant">0</span>/false +<span id="L434" class="LineNr"> 434 </span> <span class="PreProc">break-if-=</span> +<span id="L435" class="LineNr"> 435 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line +<span id="L436" class="LineNr"> 436 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? +<span id="L437" class="LineNr"> 437 </span> copy-to *dest, <span class="Constant">1</span>/true +<span id="L438" class="LineNr"> 438 </span> <span class="PreProc">return</span> <span class="Constant">1</span>/true +<span id="L439" class="LineNr"> 439 </span> <span class="Delimiter">}</span> +<span id="L440" class="LineNr"> 440 </span> i <span class="Special"><-</span> increment +<span id="L441" class="LineNr"> 441 </span> <span class="PreProc">loop</span> +<span id="L442" class="LineNr"> 442 </span> <span class="Delimiter">}</span> +<span id="L443" class="LineNr"> 443 </span> <span class="PreProc">var</span> line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _line +<span id="L444" class="LineNr"> 444 </span> <span class="PreProc">var</span> dest/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get line, visible? +<span id="L445" class="LineNr"> 445 </span> copy-to *dest, <span class="Constant">0</span>/false +<span id="L446" class="LineNr"> 446 </span> <span class="PreProc">return</span> <span class="Constant">0</span>/false +<span id="L447" class="LineNr"> 447 </span><span class="Delimiter">}</span> +<span id="L448" class="LineNr"> 448 </span> +<span id="L449" class="LineNr"> 449 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L449'>clamp-cursor-to-top</a></span> _self: (addr trace), _y: int <span class="Delimiter">{</span> +<span id="L450" class="LineNr"> 450 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy _y +<span id="L451" class="LineNr"> 451 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L452" class="LineNr"> 452 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L453" class="LineNr"> 453 </span> compare *cursor-y, y +<span id="L454" class="LineNr"> 454 </span> <span class="PreProc">break-if->=</span> +<span id="L455" class="LineNr"> 455 </span> copy-to *cursor-y, y +<span id="L456" class="LineNr"> 456 </span><span class="Delimiter">}</span> +<span id="L457" class="LineNr"> 457 </span> +<span id="L458" class="LineNr"> 458 </span><span class="muComment"># extremely hacky; consider deleting test-render-trace-empty-3 when you clean this up</span> +<span id="L459" class="LineNr"> 459 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L459'>clamp-cursor-to-bottom</a></span> _self: (addr trace), _y: int, <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>), xmin: int, ymin: int, xmax: int, ymax: int <span class="Delimiter">{</span> +<span id="L460" class="LineNr"> 460 </span> <span class="PreProc">var</span> y/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy _y +<span id="L461" class="LineNr"> 461 </span> compare y, ymin +<span id="L462" class="LineNr"> 462 </span> <span class="Delimiter">{</span> +<span id="L463" class="LineNr"> 463 </span> <span class="PreProc">break-if-></span> +<span id="L464" class="LineNr"> 464 </span> <span class="PreProc">return</span> +<span id="L465" class="LineNr"> 465 </span> <span class="Delimiter">}</span> +<span id="L466" class="LineNr"> 466 </span> y <span class="Special"><-</span> decrement +<span id="L467" class="LineNr"> 467 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L468" class="LineNr"> 468 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L469" class="LineNr"> 469 </span> compare *cursor-y, y +<span id="L470" class="LineNr"> 470 </span> <span class="PreProc">break-if-<=</span> +<span id="L471" class="LineNr"> 471 </span> copy-to *cursor-y, y +<span id="L472" class="LineNr"> 472 </span> <span class="muComment"># redraw cursor-line</span> +<span id="L473" class="LineNr"> 473 </span> <span class="muComment"># TODO: ugly duplication</span> +<span id="L474" class="LineNr"> 474 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L475" class="LineNr"> 475 </span> <span class="PreProc">var</span> trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L476" class="LineNr"> 476 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L477" class="LineNr"> 477 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr +<span id="L478" class="LineNr"> 478 </span> <span class="PreProc">var</span> first-free/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L479" class="LineNr"> 479 </span> compare cursor-line-index, *first-free +<span id="L480" class="LineNr"> 480 </span> <span class="Delimiter">{</span> +<span id="L481" class="LineNr"> 481 </span> <span class="PreProc">break-if-<</span> +<span id="L482" class="LineNr"> 482 </span> <span class="PreProc">return</span> +<span id="L483" class="LineNr"> 483 </span> <span class="Delimiter">}</span> +<span id="L484" class="LineNr"> 484 </span> <span class="PreProc">var</span> cursor-offset/<span class="Constant">ecx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index +<span id="L485" class="LineNr"> 485 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">ecx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-offset +<span id="L486" class="LineNr"> 486 </span> <span class="PreProc">var</span> display?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L410'>should-render?</a> self, cursor-line +<span id="L487" class="LineNr"> 487 </span> <span class="Delimiter">{</span> +<span id="L488" class="LineNr"> 488 </span> compare display?, <span class="Constant">0</span>/false +<span id="L489" class="LineNr"> 489 </span> <span class="PreProc">break-if-=</span> +<span id="L490" class="LineNr"> 490 </span> <span class="PreProc">var</span> dummy/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L379'>render-trace-line</a> <a href='../500text-screen.mu.html#L9'>screen</a>, cursor-line, xmin, y, xmax, ymax, <span class="Constant">9</span>/fg=blue, <span class="Constant">7</span>/cursor-line-bg +<span id="L491" class="LineNr"> 491 </span> <span class="PreProc">return</span> +<span id="L492" class="LineNr"> 492 </span> <span class="Delimiter">}</span> +<span id="L493" class="LineNr"> 493 </span> <span class="PreProc">var</span> dummy1/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L494" class="LineNr"> 494 </span> <span class="PreProc">var</span> dummy2/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L495" class="LineNr"> 495 </span> dummy1, dummy2 <span class="Special"><-</span> <a href='../501draw-text.mu.html#L167'>draw-text-wrapping-right-then-down</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">"..."</span>, xmin, ymin, xmax, ymax, xmin, y, <span class="Constant">9</span>/fg=trace, <span class="Constant">7</span>/cursor-line-bg +<span id="L496" class="LineNr"> 496 </span><span class="Delimiter">}</span> +<span id="L497" class="LineNr"> 497 </span> +<span id="L498" class="LineNr"> 498 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L498'>test-render-trace-empty</a></span> <span class="Delimiter">{</span> +<span id="L499" class="LineNr"> 499 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L500" class="LineNr"> 500 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L501" class="LineNr"> 501 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L502" class="LineNr"> 502 </span> <span class="muComment"># setup: screen</span> +<span id="L503" class="LineNr"> 503 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L504" class="LineNr"> 504 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L505" class="LineNr"> 505 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height +<span id="L506" class="LineNr"> 506 </span> <span class="muComment">#</span> +<span id="L507" class="LineNr"> 507 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L508" class="LineNr"> 508 </span> <span class="muComment">#</span> +<span id="L509" class="LineNr"> 509 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L498'>test-render-trace-empty</a>/cursor"</span> +<span id="L510" class="LineNr"> 510 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty"</span> +<span id="L511" class="LineNr"> 511 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L498'>test-render-trace-empty</a>/bg"</span> +<span id="L512" class="LineNr"> 512 </span><span class="Delimiter">}</span> +<span id="L513" class="LineNr"> 513 </span> +<span id="L514" class="LineNr"> 514 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L514'>test-render-trace-empty-2</a></span> <span class="Delimiter">{</span> +<span id="L515" class="LineNr"> 515 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L516" class="LineNr"> 516 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L517" class="LineNr"> 517 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L518" class="LineNr"> 518 </span> <span class="muComment"># setup: screen</span> +<span id="L519" class="LineNr"> 519 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L520" class="LineNr"> 520 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L521" class="LineNr"> 521 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height +<span id="L522" class="LineNr"> 522 </span> <span class="muComment">#</span> +<span id="L523" class="LineNr"> 523 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">2</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor <span class="muComment"># cursor below top row</span> +<span id="L524" class="LineNr"> 524 </span> <span class="muComment">#</span> +<span id="L525" class="LineNr"> 525 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L514'>test-render-trace-empty-2</a>/cursor"</span> +<span id="L526" class="LineNr"> 526 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty-2"</span> +<span id="L527" class="LineNr"> 527 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L514'>test-render-trace-empty-2</a>/bg"</span> +<span id="L528" class="LineNr"> 528 </span><span class="Delimiter">}</span> +<span id="L529" class="LineNr"> 529 </span> +<span id="L530" class="LineNr"> 530 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L530'>test-render-trace-empty-3</a></span> <span class="Delimiter">{</span> +<span id="L531" class="LineNr"> 531 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L532" class="LineNr"> 532 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L533" class="LineNr"> 533 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L534" class="LineNr"> 534 </span> <span class="muComment"># setup: screen</span> +<span id="L535" class="LineNr"> 535 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L536" class="LineNr"> 536 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L537" class="LineNr"> 537 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height +<span id="L538" class="LineNr"> 538 </span> <span class="muComment">#</span> +<span id="L539" class="LineNr"> 539 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">2</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor <span class="muComment"># try show cursor</span> +<span id="L540" class="LineNr"> 540 </span> <span class="muComment"># still no cursor to show</span> +<span id="L541" class="LineNr"> 541 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L530'>test-render-trace-empty-3</a>/cursor"</span> +<span id="L542" class="LineNr"> 542 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L530'>test-render-trace-empty-3</a>/line-above-cursor"</span> +<span id="L543" class="LineNr"> 543 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L530'>test-render-trace-empty-3</a>/bg-for-line-above-cursor"</span> +<span id="L544" class="LineNr"> 544 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - test-render-trace-empty-3"</span> +<span id="L545" class="LineNr"> 545 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L530'>test-render-trace-empty-3</a>/bg"</span> +<span id="L546" class="LineNr"> 546 </span><span class="Delimiter">}</span> +<span id="L547" class="LineNr"> 547 </span> +<span id="L548" class="LineNr"> 548 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L548'>test-render-trace-collapsed-by-default</a></span> <span class="Delimiter">{</span> +<span id="L549" class="LineNr"> 549 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L550" class="LineNr"> 550 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L551" class="LineNr"> 551 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L552" class="LineNr"> 552 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> +<span id="L553" class="LineNr"> 553 </span> <span class="muComment"># setup: screen</span> +<span id="L554" class="LineNr"> 554 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L555" class="LineNr"> 555 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L556" class="LineNr"> 556 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">5</span>/width, <span class="Constant">4</span>/height +<span id="L557" class="LineNr"> 557 </span> <span class="muComment">#</span> +<span id="L558" class="LineNr"> 558 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">5</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L559" class="LineNr"> 559 </span> <span class="muComment">#</span> +<span id="L560" class="LineNr"> 560 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L548'>test-render-trace-collapsed-by-default</a>/cursor"</span> +<span id="L561" class="LineNr"> 561 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - test-render-trace-collapsed-by-default"</span> +<span id="L562" class="LineNr"> 562 </span><span class="Delimiter">}</span> +<span id="L563" class="LineNr"> 563 </span> +<span id="L564" class="LineNr"> 564 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L564'>test-render-trace-error</a></span> <span class="Delimiter">{</span> +<span id="L565" class="LineNr"> 565 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L566" class="LineNr"> 566 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L567" class="LineNr"> 567 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L568" class="LineNr"> 568 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L569" class="LineNr"> 569 </span> <span class="muComment"># setup: screen</span> +<span id="L570" class="LineNr"> 570 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L571" class="LineNr"> 571 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L572" class="LineNr"> 572 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height +<span id="L573" class="LineNr"> 573 </span> <span class="muComment">#</span> +<span id="L574" class="LineNr"> 574 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L575" class="LineNr"> 575 </span> <span class="muComment">#</span> +<span id="L576" class="LineNr"> 576 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L564'>test-render-trace-error</a>/cursor"</span> +<span id="L577" class="LineNr"> 577 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - test-render-trace-error"</span> +<span id="L578" class="LineNr"> 578 </span><span class="Delimiter">}</span> +<span id="L579" class="LineNr"> 579 </span> +<span id="L580" class="LineNr"> 580 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L580'>test-render-trace-error-at-start</a></span> <span class="Delimiter">{</span> +<span id="L581" class="LineNr"> 581 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L582" class="LineNr"> 582 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L583" class="LineNr"> 583 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L584" class="LineNr"> 584 </span> <span class="muComment">#</span> +<span id="L585" class="LineNr"> 585 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L586" class="LineNr"> 586 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> +<span id="L587" class="LineNr"> 587 </span> <span class="muComment"># setup: screen</span> +<span id="L588" class="LineNr"> 588 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L589" class="LineNr"> 589 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L590" class="LineNr"> 590 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height +<span id="L591" class="LineNr"> 591 </span> <span class="muComment">#</span> +<span id="L592" class="LineNr"> 592 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L593" class="LineNr"> 593 </span> <span class="muComment">#</span> +<span id="L594" class="LineNr"> 594 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L580'>test-render-trace-error-at-start</a>/cursor"</span> +<span id="L595" class="LineNr"> 595 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L580'>test-render-trace-error-at-start</a>/0"</span> +<span id="L596" class="LineNr"> 596 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L580'>test-render-trace-error-at-start</a>/1"</span> +<span id="L597" class="LineNr"> 597 </span><span class="Delimiter">}</span> +<span id="L598" class="LineNr"> 598 </span> +<span id="L599" class="LineNr"> 599 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L599'>test-render-trace-error-at-end</a></span> <span class="Delimiter">{</span> +<span id="L600" class="LineNr"> 600 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L601" class="LineNr"> 601 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L602" class="LineNr"> 602 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L603" class="LineNr"> 603 </span> <span class="muComment">#</span> +<span id="L604" class="LineNr"> 604 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"data"</span> +<span id="L605" class="LineNr"> 605 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L606" class="LineNr"> 606 </span> <span class="muComment"># setup: screen</span> +<span id="L607" class="LineNr"> 607 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L608" class="LineNr"> 608 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L609" class="LineNr"> 609 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height +<span id="L610" class="LineNr"> 610 </span> <span class="muComment">#</span> +<span id="L611" class="LineNr"> 611 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L612" class="LineNr"> 612 </span> <span class="muComment">#</span> +<span id="L613" class="LineNr"> 613 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L599'>test-render-trace-error-at-end</a>/cursor"</span> +<span id="L614" class="LineNr"> 614 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L599'>test-render-trace-error-at-end</a>/0"</span> +<span id="L615" class="LineNr"> 615 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L599'>test-render-trace-error-at-end</a>/1"</span> +<span id="L616" class="LineNr"> 616 </span><span class="Delimiter">}</span> +<span id="L617" class="LineNr"> 617 </span> +<span id="L618" class="LineNr"> 618 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L618'>test-render-trace-error-in-the-middle</a></span> <span class="Delimiter">{</span> +<span id="L619" class="LineNr"> 619 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L620" class="LineNr"> 620 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L621" class="LineNr"> 621 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L622" class="LineNr"> 622 </span> <span class="muComment">#</span> +<span id="L623" class="LineNr"> 623 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L624" class="LineNr"> 624 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L625" class="LineNr"> 625 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L626" class="LineNr"> 626 </span> <span class="muComment"># setup: screen</span> +<span id="L627" class="LineNr"> 627 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L628" class="LineNr"> 628 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L629" class="LineNr"> 629 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height +<span id="L630" class="LineNr"> 630 </span> <span class="muComment">#</span> +<span id="L631" class="LineNr"> 631 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">0</span>/no-cursor +<span id="L632" class="LineNr"> 632 </span> <span class="muComment">#</span> +<span id="L633" class="LineNr"> 633 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">3</span>, <span class="Constant">"F - <a href='trace.mu.html#L618'>test-render-trace-error-in-the-middle</a>/cursor"</span> +<span id="L634" class="LineNr"> 634 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L618'>test-render-trace-error-in-the-middle</a>/0"</span> +<span id="L635" class="LineNr"> 635 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error"</span>, <span class="Constant">"F - <a href='trace.mu.html#L618'>test-render-trace-error-in-the-middle</a>/1"</span> +<span id="L636" class="LineNr"> 636 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L618'>test-render-trace-error-in-the-middle</a>/2"</span> +<span id="L637" class="LineNr"> 637 </span><span class="Delimiter">}</span> +<span id="L638" class="LineNr"> 638 </span> +<span id="L639" class="LineNr"> 639 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L639'>test-render-trace-cursor-in-single-line</a></span> <span class="Delimiter">{</span> +<span id="L640" class="LineNr"> 640 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L641" class="LineNr"> 641 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L642" class="LineNr"> 642 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L643" class="LineNr"> 643 </span> <span class="muComment">#</span> +<span id="L644" class="LineNr"> 644 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L645" class="LineNr"> 645 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L646" class="LineNr"> 646 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L647" class="LineNr"> 647 </span> <span class="muComment"># setup: screen</span> +<span id="L648" class="LineNr"> 648 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L649" class="LineNr"> 649 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L650" class="LineNr"> 650 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height +<span id="L651" class="LineNr"> 651 </span> <span class="muComment">#</span> +<span id="L652" class="LineNr"> 652 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L653" class="LineNr"> 653 </span> <span class="muComment">#</span> +<span id="L654" class="LineNr"> 654 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L639'>test-render-trace-cursor-in-single-line</a>/0"</span> +<span id="L655" class="LineNr"> 655 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L639'>test-render-trace-cursor-in-single-line</a>/0/cursor"</span> +<span id="L656" class="LineNr"> 656 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L639'>test-render-trace-cursor-in-single-line</a>/1"</span> +<span id="L657" class="LineNr"> 657 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L639'>test-render-trace-cursor-in-single-line</a>/1/cursor"</span> +<span id="L658" class="LineNr"> 658 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L639'>test-render-trace-cursor-in-single-line</a>/2"</span> +<span id="L659" class="LineNr"> 659 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L639'>test-render-trace-cursor-in-single-line</a>/2/cursor"</span> +<span id="L660" class="LineNr"> 660 </span><span class="Delimiter">}</span> +<span id="L661" class="LineNr"> 661 </span> +<span id="L662" class="LineNr"> 662 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L662'>render-trace-menu</a></span> <a href='../500text-screen.mu.html#L9'>screen</a>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> +<span id="L663" class="LineNr"> 663 </span> <span class="PreProc">var</span> width/<span class="Constant">eax</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L664" class="LineNr"> 664 </span> <span class="PreProc">var</span> height/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L665" class="LineNr"> 665 </span> width, height <span class="Special"><-</span> <a href='../500text-screen.mu.html#L50'>screen-size</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L666" class="LineNr"> 666 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy height +<span id="L667" class="LineNr"> 667 </span> y <span class="Special"><-</span> decrement +<span id="L668" class="LineNr"> 668 </span> <a href='../500text-screen.mu.html#L133'>set-cursor-position</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/x, y +<span id="L669" class="LineNr"> 669 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" ctrl-s "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L670" class="LineNr"> 670 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" <a href='sandbox.mu.html#L170'>run</a> <a href='sandbox.mu.html#L1'>sandbox</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L671" class="LineNr"> 671 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" tab "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">3</span>/bg=cyan +<span id="L672" class="LineNr"> 672 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" move to <a href='sandbox.mu.html#L1'>sandbox</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L673" class="LineNr"> 673 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" j "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L674" class="LineNr"> 674 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" down "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L675" class="LineNr"> 675 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" k "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L676" class="LineNr"> 676 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" up "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L677" class="LineNr"> 677 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" enter "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L678" class="LineNr"> 678 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L717'>expand</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L679" class="LineNr"> 679 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" backspace "</span>, width, <span class="Constant">0</span>/fg, <span class="Constant">7</span>/bg=grey +<span id="L680" class="LineNr"> 680 </span> <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">" <a href='trace.mu.html#L757'>collapse</a> "</span>, width, <span class="Constant">7</span>/fg, <span class="Constant">0</span>/bg +<span id="L681" class="LineNr"> 681 </span><span class="Delimiter">}</span> +<span id="L682" class="LineNr"> 682 </span> +<span id="L683" class="LineNr"> 683 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L683'>edit-trace</a></span> _self: (addr trace), key: grapheme <span class="Delimiter">{</span> +<span id="L684" class="LineNr"> 684 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L685" class="LineNr"> 685 </span> <span class="muComment"># cursor down</span> +<span id="L686" class="LineNr"> 686 </span> <span class="Delimiter">{</span> +<span id="L687" class="LineNr"> 687 </span> compare key, <span class="Constant">0x6a</span>/j +<span id="L688" class="LineNr"> 688 </span> <span class="PreProc">break-if-!=</span> +<span id="L689" class="LineNr"> 689 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L690" class="LineNr"> 690 </span> increment *cursor-y +<span id="L691" class="LineNr"> 691 </span> <span class="PreProc">return</span> +<span id="L692" class="LineNr"> 692 </span> <span class="Delimiter">}</span> +<span id="L693" class="LineNr"> 693 </span> <span class="muComment"># cursor up</span> +<span id="L694" class="LineNr"> 694 </span> <span class="Delimiter">{</span> +<span id="L695" class="LineNr"> 695 </span> compare key, <span class="Constant">0x6b</span>/k +<span id="L696" class="LineNr"> 696 </span> <span class="PreProc">break-if-!=</span> +<span id="L697" class="LineNr"> 697 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L698" class="LineNr"> 698 </span> decrement *cursor-y +<span id="L699" class="LineNr"> 699 </span> <span class="PreProc">return</span> +<span id="L700" class="LineNr"> 700 </span> <span class="Delimiter">}</span> +<span id="L701" class="LineNr"> 701 </span> <span class="muComment"># enter = expand</span> +<span id="L702" class="LineNr"> 702 </span> <span class="Delimiter">{</span> +<span id="L703" class="LineNr"> 703 </span> compare key, <span class="Constant">0xa</span>/newline +<span id="L704" class="LineNr"> 704 </span> <span class="PreProc">break-if-!=</span> +<span id="L705" class="LineNr"> 705 </span> <a href='trace.mu.html#L717'>expand</a> self +<span id="L706" class="LineNr"> 706 </span> <span class="PreProc">return</span> +<span id="L707" class="LineNr"> 707 </span> <span class="Delimiter">}</span> +<span id="L708" class="LineNr"> 708 </span> <span class="muComment"># backspace = collapse</span> +<span id="L709" class="LineNr"> 709 </span> <span class="Delimiter">{</span> +<span id="L710" class="LineNr"> 710 </span> compare key, <span class="Constant">8</span>/backspace +<span id="L711" class="LineNr"> 711 </span> <span class="PreProc">break-if-!=</span> +<span id="L712" class="LineNr"> 712 </span> <a href='trace.mu.html#L757'>collapse</a> self +<span id="L713" class="LineNr"> 713 </span> <span class="PreProc">return</span> +<span id="L714" class="LineNr"> 714 </span> <span class="Delimiter">}</span> +<span id="L715" class="LineNr"> 715 </span><span class="Delimiter">}</span> +<span id="L716" class="LineNr"> 716 </span> +<span id="L717" class="LineNr"> 717 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L717'>expand</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L718" class="LineNr"> 718 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L719" class="LineNr"> 719 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L720" class="LineNr"> 720 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L721" class="LineNr"> 721 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L722" class="LineNr"> 722 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L723" class="LineNr"> 723 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr +<span id="L724" class="LineNr"> 724 </span> <span class="PreProc">var</span> cursor-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index +<span id="L725" class="LineNr"> 725 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-line-offset +<span id="L726" class="LineNr"> 726 </span> <span class="PreProc">var</span> cursor-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get cursor-line, visible? +<span id="L727" class="LineNr"> 727 </span> <span class="PreProc">var</span> cursor-line-depth/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get cursor-line, depth +<span id="L728" class="LineNr"> 728 </span> <span class="PreProc">var</span> target-depth/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-line-depth +<span id="L729" class="LineNr"> 729 </span> <span class="muComment"># if cursor-line is already visible, increment target-depth</span> +<span id="L730" class="LineNr"> 730 </span> compare *cursor-line-visible?, <span class="Constant">0</span>/false +<span id="L731" class="LineNr"> 731 </span> <span class="Delimiter">{</span> +<span id="L732" class="LineNr"> 732 </span> <span class="PreProc">break-if-=</span> +<span id="L733" class="LineNr"> 733 </span> target-depth <span class="Special"><-</span> increment +<span id="L734" class="LineNr"> 734 </span> <span class="Delimiter">}</span> +<span id="L735" class="LineNr"> 735 </span> <span class="muComment"># reveal the run of lines starting at cursor-line-index with depth target-depth</span> +<span id="L736" class="LineNr"> 736 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy cursor-line-index +<span id="L737" class="LineNr"> 737 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L738" class="LineNr"> 738 </span> <span class="Delimiter">{</span> +<span id="L739" class="LineNr"> 739 </span> compare i, *max +<span id="L740" class="LineNr"> 740 </span> <span class="PreProc">break-if->=</span> +<span id="L741" class="LineNr"> 741 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L742" class="LineNr"> 742 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset +<span id="L743" class="LineNr"> 743 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth +<span id="L744" class="LineNr"> 744 </span> compare *curr-line-depth, target-depth +<span id="L745" class="LineNr"> 745 </span> <span class="PreProc">break-if-<</span> +<span id="L746" class="LineNr"> 746 </span> <span class="Delimiter">{</span> +<span id="L747" class="LineNr"> 747 </span> <span class="PreProc">break-if-!=</span> +<span id="L748" class="LineNr"> 748 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? +<span id="L749" class="LineNr"> 749 </span> copy-to *curr-line-visible?, <span class="Constant">1</span>/true +<span id="L750" class="LineNr"> 750 </span> <a href='trace.mu.html#L823'>reveal-trace-line</a> self, curr-line +<span id="L751" class="LineNr"> 751 </span> <span class="Delimiter">}</span> +<span id="L752" class="LineNr"> 752 </span> i <span class="Special"><-</span> increment +<span id="L753" class="LineNr"> 753 </span> <span class="PreProc">loop</span> +<span id="L754" class="LineNr"> 754 </span> <span class="Delimiter">}</span> +<span id="L755" class="LineNr"> 755 </span><span class="Delimiter">}</span> +<span id="L756" class="LineNr"> 756 </span> +<span id="L757" class="LineNr"> 757 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L757'>collapse</a></span> _self: (addr trace) <span class="Delimiter">{</span> +<span id="L758" class="LineNr"> 758 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L759" class="LineNr"> 759 </span> <span class="PreProc">var</span> trace-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, data +<span id="L760" class="LineNr"> 760 </span> <span class="PreProc">var</span> _trace/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *trace-ah +<span id="L761" class="LineNr"> 761 </span> <span class="PreProc">var</span> trace/<span class="Constant">edi</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> copy _trace +<span id="L762" class="LineNr"> 762 </span> <span class="PreProc">var</span> cursor-line-index-addr/<span class="Constant">ecx</span>: (addr int) <span class="Special"><-</span> get self, cursor-line-index +<span id="L763" class="LineNr"> 763 </span> <span class="PreProc">var</span> cursor-line-index/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy *cursor-line-index-addr +<span id="L764" class="LineNr"> 764 </span> <span class="PreProc">var</span> cursor-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, cursor-line-index +<span id="L765" class="LineNr"> 765 </span> <span class="PreProc">var</span> cursor-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, cursor-line-offset +<span id="L766" class="LineNr"> 766 </span> <span class="PreProc">var</span> cursor-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get cursor-line, visible? +<span id="L767" class="LineNr"> 767 </span> <span class="muComment"># if cursor-line is not visible, do nothing</span> +<span id="L768" class="LineNr"> 768 </span> compare *cursor-line-visible?, <span class="Constant">0</span>/false +<span id="L769" class="LineNr"> 769 </span> <span class="Delimiter">{</span> +<span id="L770" class="LineNr"> 770 </span> <span class="PreProc">break-if-!=</span> +<span id="L771" class="LineNr"> 771 </span> <span class="PreProc">return</span> +<span id="L772" class="LineNr"> 772 </span> <span class="Delimiter">}</span> +<span id="L773" class="LineNr"> 773 </span> <span class="muComment"># hide all lines between previous and next line with a lower depth</span> +<span id="L774" class="LineNr"> 774 </span> <span class="PreProc">var</span> cursor-line-depth/<span class="Constant">ebx</span>: (addr int) <span class="Special"><-</span> get cursor-line, depth +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, cursor-y +<span id="L776" class="LineNr"> 776 </span> <span class="PreProc">var</span> target-depth/<span class="Constant">ebx</span>: int <span class="Special"><-</span> copy *cursor-line-depth +<span id="L777" class="LineNr"> 777 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy cursor-line-index +<span id="L778" class="LineNr"> 778 </span> $collapse:loop1: <span class="Delimiter">{</span> +<span id="L779" class="LineNr"> 779 </span> compare i, <span class="Constant">0</span> +<span id="L780" class="LineNr"> 780 </span> <span class="PreProc">break-if-<</span> +<span id="L781" class="LineNr"> 781 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L782" class="LineNr"> 782 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">eax</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset +<span id="L783" class="LineNr"> 783 </span> <span class="Delimiter">{</span> +<span id="L784" class="LineNr"> 784 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth +<span id="L785" class="LineNr"> 785 </span> compare *curr-line-depth, target-depth +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">break-if-<</span> $collapse:loop1 +<span id="L787" class="LineNr"> 787 </span> <span class="Delimiter">}</span> +<span id="L788" class="LineNr"> 788 </span> <span class="muComment"># if cursor-line is visible, decrement cursor-y</span> +<span id="L789" class="LineNr"> 789 </span> <span class="Delimiter">{</span> +<span id="L790" class="LineNr"> 790 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? +<span id="L791" class="LineNr"> 791 </span> compare *curr-line-visible?, <span class="Constant">0</span>/false +<span id="L792" class="LineNr"> 792 </span> <span class="PreProc">break-if-=</span> +<span id="L793" class="LineNr"> 793 </span> decrement *cursor-y +<span id="L794" class="LineNr"> 794 </span> <span class="Delimiter">}</span> +<span id="L795" class="LineNr"> 795 </span> i <span class="Special"><-</span> decrement +<span id="L796" class="LineNr"> 796 </span> <span class="PreProc">loop</span> +<span id="L797" class="LineNr"> 797 </span> <span class="Delimiter">}</span> +<span id="L798" class="LineNr"> 798 </span> i <span class="Special"><-</span> increment +<span id="L799" class="LineNr"> 799 </span> <span class="PreProc">var</span> max/<span class="Constant">edx</span>: (addr int) <span class="Special"><-</span> get self, first-free +<span id="L800" class="LineNr"> 800 </span> $collapse:loop2: <span class="Delimiter">{</span> +<span id="L801" class="LineNr"> 801 </span> compare i, *max +<span id="L802" class="LineNr"> 802 </span> <span class="PreProc">break-if->=</span> +<span id="L803" class="LineNr"> 803 </span> <span class="PreProc">var</span> curr-line-offset/<span class="Constant">eax</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset trace, i +<span id="L804" class="LineNr"> 804 </span> <span class="PreProc">var</span> curr-line/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index trace, curr-line-offset +<span id="L805" class="LineNr"> 805 </span> <span class="PreProc">var</span> curr-line-depth/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get curr-line, depth +<span id="L806" class="LineNr"> 806 </span> compare *curr-line-depth, target-depth +<span id="L807" class="LineNr"> 807 </span> <span class="PreProc">break-if-<</span> +<span id="L808" class="LineNr"> 808 </span> <span class="Delimiter">{</span> +<span id="L809" class="LineNr"> 809 </span> <a href='trace.mu.html#L848'>hide-trace-line</a> self, curr-line +<span id="L810" class="LineNr"> 810 </span> <span class="PreProc">var</span> curr-line-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr-line, visible? +<span id="L811" class="LineNr"> 811 </span> copy-to *curr-line-visible?, <span class="Constant">0</span>/false +<span id="L812" class="LineNr"> 812 </span> <span class="Delimiter">}</span> +<span id="L813" class="LineNr"> 813 </span> i <span class="Special"><-</span> increment +<span id="L814" class="LineNr"> 814 </span> <span class="PreProc">loop</span> +<span id="L815" class="LineNr"> 815 </span> <span class="Delimiter">}</span> +<span id="L816" class="LineNr"> 816 </span><span class="Delimiter">}</span> +<span id="L817" class="LineNr"> 817 </span> +<span id="L818" class="LineNr"> 818 </span><span class="muComment"># the 'visible' array is not required to be in order</span> +<span id="L819" class="LineNr"> 819 </span><span class="muComment"># elements can also be deleted out of order</span> +<span id="L820" class="LineNr"> 820 </span><span class="muComment"># so it can have holes</span> +<span id="L821" class="LineNr"> 821 </span><span class="muComment"># however, lines in it always have visible? set</span> +<span id="L822" class="LineNr"> 822 </span><span class="muComment"># we'll use visible? being unset as a sign of emptiness</span> +<span id="L823" class="LineNr"> 823 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L823'>reveal-trace-line</a></span> _self: (addr trace), line: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Delimiter">{</span> +<span id="L824" class="LineNr"> 824 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L825" class="LineNr"> 825 </span> <span class="PreProc">var</span> visible-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible +<span id="L826" class="LineNr"> 826 </span> <span class="PreProc">var</span> visible/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *visible-ah +<span id="L827" class="LineNr"> 827 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L828" class="LineNr"> 828 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length visible +<span id="L829" class="LineNr"> 829 </span> <span class="Delimiter">{</span> +<span id="L830" class="LineNr"> 830 </span> compare i, len +<span id="L831" class="LineNr"> 831 </span> <span class="PreProc">break-if->=</span> +<span id="L832" class="LineNr"> 832 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset visible, i +<span id="L833" class="LineNr"> 833 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index visible, curr-offset +<span id="L834" class="LineNr"> 834 </span> <span class="PreProc">var</span> curr-visible?/<span class="Constant">eax</span>: (addr boolean) <span class="Special"><-</span> get curr, visible? +<span id="L835" class="LineNr"> 835 </span> compare *curr-visible?, <span class="Constant">0</span>/false +<span id="L836" class="LineNr"> 836 </span> <span class="Delimiter">{</span> +<span id="L837" class="LineNr"> 837 </span> <span class="PreProc">break-if-!=</span> +<span id="L838" class="LineNr"> 838 </span> <span class="muComment"># empty slot found</span> +<span id="L839" class="LineNr"> 839 </span> copy-object line, curr +<span id="L840" class="LineNr"> 840 </span> <span class="PreProc">return</span> +<span id="L841" class="LineNr"> 841 </span> <span class="Delimiter">}</span> +<span id="L842" class="LineNr"> 842 </span> i <span class="Special"><-</span> increment +<span id="L843" class="LineNr"> 843 </span> <span class="PreProc">loop</span> +<span id="L844" class="LineNr"> 844 </span> <span class="Delimiter">}</span> +<span id="L845" class="LineNr"> 845 </span> <a href='../501draw-text.mu.html#L459'>abort</a> <span class="Constant">"too many visible lines; increase size of array trace.visible"</span> +<span id="L846" class="LineNr"> 846 </span><span class="Delimiter">}</span> +<span id="L847" class="LineNr"> 847 </span> +<span id="L848" class="LineNr"> 848 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='trace.mu.html#L848'>hide-trace-line</a></span> _self: (addr trace), line: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Delimiter">{</span> +<span id="L849" class="LineNr"> 849 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> copy _self +<span id="L850" class="LineNr"> 850 </span> <span class="PreProc">var</span> visible-ah/<span class="Constant">eax</span>: (addr handle array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> get self, visible +<span id="L851" class="LineNr"> 851 </span> <span class="PreProc">var</span> visible/<span class="Constant">eax</span>: (addr array <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L226'>lookup</a> *visible-ah +<span id="L852" class="LineNr"> 852 </span> <span class="PreProc">var</span> i/<span class="Constant">ecx</span>: int <span class="Special"><-</span> copy <span class="Constant">0</span> +<span id="L853" class="LineNr"> 853 </span> <span class="PreProc">var</span> len/<span class="Constant">edx</span>: int <span class="Special"><-</span> length visible +<span id="L854" class="LineNr"> 854 </span> <span class="Delimiter">{</span> +<span id="L855" class="LineNr"> 855 </span> compare i, len +<span id="L856" class="LineNr"> 856 </span> <span class="PreProc">break-if->=</span> +<span id="L857" class="LineNr"> 857 </span> <span class="PreProc">var</span> curr-offset/<span class="Constant">edx</span>: (offset <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> compute-offset visible, i +<span id="L858" class="LineNr"> 858 </span> <span class="PreProc">var</span> curr/<span class="Constant">edx</span>: (addr <a href='trace.mu.html#L26'>trace-line</a>) <span class="Special"><-</span> index visible, curr-offset +<span id="L859" class="LineNr"> 859 </span> <span class="PreProc">var</span> found?/<span class="Constant">eax</span>: boolean <span class="Special"><-</span> <a href='trace.mu.html#L232'>trace-lines-equal?</a> curr, line +<span id="L860" class="LineNr"> 860 </span> compare found?, <span class="Constant">0</span>/false +<span id="L861" class="LineNr"> 861 </span> <span class="Delimiter">{</span> +<span id="L862" class="LineNr"> 862 </span> <span class="PreProc">break-if-=</span> +<span id="L863" class="LineNr"> 863 </span> clear-object curr +<span id="L864" class="LineNr"> 864 </span> <span class="Delimiter">}</span> +<span id="L865" class="LineNr"> 865 </span> i <span class="Special"><-</span> increment +<span id="L866" class="LineNr"> 866 </span> <span class="PreProc">loop</span> +<span id="L867" class="LineNr"> 867 </span> <span class="Delimiter">}</span> +<span id="L868" class="LineNr"> 868 </span><span class="Delimiter">}</span> +<span id="L869" class="LineNr"> 869 </span> +<span id="L870" class="LineNr"> 870 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a></span> <span class="Delimiter">{</span> +<span id="L871" class="LineNr"> 871 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L872" class="LineNr"> 872 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L873" class="LineNr"> 873 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L874" class="LineNr"> 874 </span> <span class="muComment">#</span> +<span id="L875" class="LineNr"> 875 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L876" class="LineNr"> 876 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L877" class="LineNr"> 877 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L878" class="LineNr"> 878 </span> <span class="muComment"># setup: screen</span> +<span id="L879" class="LineNr"> 879 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L880" class="LineNr"> 880 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L881" class="LineNr"> 881 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height +<span id="L882" class="LineNr"> 882 </span> <span class="muComment">#</span> +<span id="L883" class="LineNr"> 883 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L884" class="LineNr"> 884 </span> <span class="muComment">#</span> +<span id="L885" class="LineNr"> 885 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/pre-0"</span> +<span id="L886" class="LineNr"> 886 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/pre-0/cursor"</span> +<span id="L887" class="LineNr"> 887 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/pre-1"</span> +<span id="L888" class="LineNr"> 888 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/pre-1/cursor"</span> +<span id="L889" class="LineNr"> 889 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/pre-2"</span> +<span id="L890" class="LineNr"> 890 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/pre-2/cursor"</span> +<span id="L891" class="LineNr"> 891 </span> <span class="muComment"># cursor down</span> +<span id="L892" class="LineNr"> 892 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L893" class="LineNr"> 893 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L894" class="LineNr"> 894 </span> <span class="muComment">#</span> +<span id="L895" class="LineNr"> 895 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/down-0"</span> +<span id="L896" class="LineNr"> 896 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/down-0/cursor"</span> +<span id="L897" class="LineNr"> 897 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/down-1"</span> +<span id="L898" class="LineNr"> 898 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/down-1/cursor"</span> +<span id="L899" class="LineNr"> 899 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/down-2"</span> +<span id="L900" class="LineNr"> 900 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/down-2/cursor"</span> +<span id="L901" class="LineNr"> 901 </span> <span class="muComment"># cursor up</span> +<span id="L902" class="LineNr"> 902 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6b</span>/k +<span id="L903" class="LineNr"> 903 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L904" class="LineNr"> 904 </span> <span class="muComment">#</span> +<span id="L905" class="LineNr"> 905 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/up-0"</span> +<span id="L906" class="LineNr"> 906 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/up-0/cursor"</span> +<span id="L907" class="LineNr"> 907 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/up-1"</span> +<span id="L908" class="LineNr"> 908 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/up-1/cursor"</span> +<span id="L909" class="LineNr"> 909 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/up-2"</span> +<span id="L910" class="LineNr"> 910 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L870'>test-cursor-down-and-up-within-trace</a>/up-2/cursor"</span> +<span id="L911" class="LineNr"> 911 </span><span class="Delimiter">}</span> +<span id="L912" class="LineNr"> 912 </span> +<span id="L913" class="LineNr"> 913 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a></span> <span class="Delimiter">{</span> +<span id="L914" class="LineNr"> 914 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L915" class="LineNr"> 915 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L916" class="LineNr"> 916 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L917" class="LineNr"> 917 </span> <span class="muComment">#</span> +<span id="L918" class="LineNr"> 918 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L919" class="LineNr"> 919 </span> <span class="Special"><a href='trace.mu.html#L110'>error</a></span> t, <span class="Constant">"error"</span> +<span id="L920" class="LineNr"> 920 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L921" class="LineNr"> 921 </span> <span class="muComment"># setup: screen</span> +<span id="L922" class="LineNr"> 922 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L923" class="LineNr"> 923 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L924" class="LineNr"> 924 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0xa</span>/width, <span class="Constant">4</span>/height +<span id="L925" class="LineNr"> 925 </span> <span class="muComment">#</span> +<span id="L926" class="LineNr"> 926 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L927" class="LineNr"> 927 </span> <span class="muComment">#</span> +<span id="L928" class="LineNr"> 928 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/pre-0"</span> +<span id="L929" class="LineNr"> 929 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/pre-0/cursor"</span> +<span id="L930" class="LineNr"> 930 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/pre-1"</span> +<span id="L931" class="LineNr"> 931 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/pre-1/cursor"</span> +<span id="L932" class="LineNr"> 932 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/pre-2"</span> +<span id="L933" class="LineNr"> 933 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/pre-2/cursor"</span> +<span id="L934" class="LineNr"> 934 </span> <span class="muComment"># cursor down several times</span> +<span id="L935" class="LineNr"> 935 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L936" class="LineNr"> 936 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L937" class="LineNr"> 937 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L938" class="LineNr"> 938 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L939" class="LineNr"> 939 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L940" class="LineNr"> 940 </span> <span class="muComment"># hack: we do need to render to make this test pass; we're mixing state management with rendering</span> +<span id="L941" class="LineNr"> 941 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0xa</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L942" class="LineNr"> 942 </span> <span class="muComment"># cursor clamps at bottom</span> +<span id="L943" class="LineNr"> 943 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/down-0"</span> +<span id="L944" class="LineNr"> 944 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/down-0/cursor"</span> +<span id="L945" class="LineNr"> 945 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"error "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/down-1"</span> +<span id="L946" class="LineNr"> 946 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/down-1/cursor"</span> +<span id="L947" class="LineNr"> 947 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/down-2"</span> +<span id="L948" class="LineNr"> 948 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L913'>test-cursor-down-past-bottom-of-trace</a>/down-2/cursor"</span> +<span id="L949" class="LineNr"> 949 </span><span class="Delimiter">}</span> +<span id="L950" class="LineNr"> 950 </span> +<span id="L951" class="LineNr"> 951 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L951'>test-expand-within-trace</a></span> <span class="Delimiter">{</span> +<span id="L952" class="LineNr"> 952 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L953" class="LineNr"> 953 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L954" class="LineNr"> 954 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L955" class="LineNr"> 955 </span> <span class="muComment">#</span> +<span id="L956" class="LineNr"> 956 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L957" class="LineNr"> 957 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L958" class="LineNr"> 958 </span> <span class="muComment"># setup: screen</span> +<span id="L959" class="LineNr"> 959 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L960" class="LineNr"> 960 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L961" class="LineNr"> 961 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L962" class="LineNr"> 962 </span> <span class="muComment">#</span> +<span id="L963" class="LineNr"> 963 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L964" class="LineNr"> 964 </span> <span class="muComment">#</span> +<span id="L965" class="LineNr"> 965 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/pre-0"</span> +<span id="L966" class="LineNr"> 966 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/pre-0/cursor"</span> +<span id="L967" class="LineNr"> 967 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/pre-1"</span> +<span id="L968" class="LineNr"> 968 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/pre-1/cursor"</span> +<span id="L969" class="LineNr"> 969 </span> <span class="muComment"># expand</span> +<span id="L970" class="LineNr"> 970 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L971" class="LineNr"> 971 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L972" class="LineNr"> 972 </span> <span class="muComment">#</span> +<span id="L973" class="LineNr"> 973 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/expand-0"</span> +<span id="L974" class="LineNr"> 974 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/expand-0/cursor"</span> +<span id="L975" class="LineNr"> 975 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/expand-1"</span> +<span id="L976" class="LineNr"> 976 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/expand-1/cursor"</span> +<span id="L977" class="LineNr"> 977 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/expand-2"</span> +<span id="L978" class="LineNr"> 978 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L951'>test-expand-within-trace</a>/expand-2/cursor"</span> +<span id="L979" class="LineNr"> 979 </span><span class="Delimiter">}</span> +<span id="L980" class="LineNr"> 980 </span> +<span id="L981" class="LineNr"> 981 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a></span> <span class="Delimiter">{</span> +<span id="L982" class="LineNr"> 982 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L983" class="LineNr"> 983 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L984" class="LineNr"> 984 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L985" class="LineNr"> 985 </span> <span class="muComment">#</span> +<span id="L986" class="LineNr"> 986 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L987" class="LineNr"> 987 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L988" class="LineNr"> 988 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L989" class="LineNr"> 989 </span> <span class="muComment"># setup: screen</span> +<span id="L990" class="LineNr"> 990 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L991" class="LineNr"> 991 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L992" class="LineNr"> 992 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L993" class="LineNr"> 993 </span> <span class="muComment">#</span> +<span id="L994" class="LineNr"> 994 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L995" class="LineNr"> 995 </span> <span class="muComment">#</span> +<span id="L996" class="LineNr"> 996 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/pre-0"</span> +<span id="L997" class="LineNr"> 997 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/pre-0/cursor"</span> +<span id="L998" class="LineNr"> 998 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/pre-1"</span> +<span id="L999" class="LineNr"> 999 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/pre-1/cursor"</span> +<span id="L1000" class="LineNr">1000 </span> <span class="muComment"># expand</span> +<span id="L1001" class="LineNr">1001 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1002" class="LineNr">1002 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1003" class="LineNr">1003 </span> <span class="muComment">#</span> +<span id="L1004" class="LineNr">1004 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/expand-0"</span> +<span id="L1005" class="LineNr">1005 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/expand-0/cursor"</span> +<span id="L1006" class="LineNr">1006 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/expand-1"</span> +<span id="L1007" class="LineNr">1007 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/expand-1/cursor"</span> +<span id="L1008" class="LineNr">1008 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/expand-2"</span> +<span id="L1009" class="LineNr">1009 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L981'>test-trace-expand-skips-lower-depth</a>/expand-2/cursor"</span> +<span id="L1010" class="LineNr">1010 </span><span class="Delimiter">}</span> +<span id="L1011" class="LineNr">1011 </span> +<span id="L1012" class="LineNr">1012 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a></span> <span class="Delimiter">{</span> +<span id="L1013" class="LineNr">1013 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1014" class="LineNr">1014 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1015" class="LineNr">1015 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1016" class="LineNr">1016 </span> <span class="muComment">#</span> +<span id="L1017" class="LineNr">1017 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1018" class="LineNr">1018 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1019" class="LineNr">1019 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1020" class="LineNr">1020 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1021" class="LineNr">1021 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1022" class="LineNr">1022 </span> <span class="muComment"># setup: screen</span> +<span id="L1023" class="LineNr">1023 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1024" class="LineNr">1024 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1025" class="LineNr">1025 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1026" class="LineNr">1026 </span> <span class="muComment">#</span> +<span id="L1027" class="LineNr">1027 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1028" class="LineNr">1028 </span> <span class="muComment">#</span> +<span id="L1029" class="LineNr">1029 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/pre-0"</span> +<span id="L1030" class="LineNr">1030 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/pre-0/cursor"</span> +<span id="L1031" class="LineNr">1031 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/pre-1"</span> +<span id="L1032" class="LineNr">1032 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/pre-1/cursor"</span> +<span id="L1033" class="LineNr">1033 </span> <span class="muComment"># expand</span> +<span id="L1034" class="LineNr">1034 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1035" class="LineNr">1035 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1036" class="LineNr">1036 </span> <span class="muComment">#</span> +<span id="L1037" class="LineNr">1037 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/expand-0"</span> +<span id="L1038" class="LineNr">1038 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/expand-0/cursor"</span> +<span id="L1039" class="LineNr">1039 </span> <span class="muComment"># TODO: might be too wasteful to show every place where lines are hidden</span> +<span id="L1040" class="LineNr">1040 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/expand-1"</span> +<span id="L1041" class="LineNr">1041 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/expand-1/cursor"</span> +<span id="L1042" class="LineNr">1042 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/expand-2"</span> +<span id="L1043" class="LineNr">1043 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1012'>test-trace-expand-continues-past-lower-depth</a>/expand-2/cursor"</span> +<span id="L1044" class="LineNr">1044 </span><span class="Delimiter">}</span> +<span id="L1045" class="LineNr">1045 </span> +<span id="L1046" class="LineNr">1046 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a></span> <span class="Delimiter">{</span> +<span id="L1047" class="LineNr">1047 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1049" class="LineNr">1049 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1050" class="LineNr">1050 </span> <span class="muComment">#</span> +<span id="L1051" class="LineNr">1051 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1052" class="LineNr">1052 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1053" class="LineNr">1053 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1.1"</span> +<span id="L1054" class="LineNr">1054 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1055" class="LineNr">1055 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.2"</span> +<span id="L1056" class="LineNr">1056 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1057" class="LineNr">1057 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1058" class="LineNr">1058 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1059" class="LineNr">1059 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.1"</span> +<span id="L1060" class="LineNr">1060 </span> <span class="muComment"># setup: screen</span> +<span id="L1061" class="LineNr">1061 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1062" class="LineNr">1062 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1063" class="LineNr">1063 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">8</span>/height +<span id="L1064" class="LineNr">1064 </span> <span class="muComment">#</span> +<span id="L1065" class="LineNr">1065 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1066" class="LineNr">1066 </span> <span class="muComment">#</span> +<span id="L1067" class="LineNr">1067 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/pre-0"</span> +<span id="L1068" class="LineNr">1068 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/pre-0/cursor"</span> +<span id="L1069" class="LineNr">1069 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/pre-1"</span> +<span id="L1070" class="LineNr">1070 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/pre-1/cursor"</span> +<span id="L1071" class="LineNr">1071 </span> <span class="muComment"># expand</span> +<span id="L1072" class="LineNr">1072 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1073" class="LineNr">1073 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1074" class="LineNr">1074 </span> <span class="muComment">#</span> +<span id="L1075" class="LineNr">1075 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-0"</span> +<span id="L1076" class="LineNr">1076 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-0/cursor"</span> +<span id="L1077" class="LineNr">1077 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-1"</span> +<span id="L1078" class="LineNr">1078 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-1/cursor"</span> +<span id="L1079" class="LineNr">1079 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 1.2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-2"</span> +<span id="L1080" class="LineNr">1080 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-2/cursor"</span> +<span id="L1081" class="LineNr">1081 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-3"</span> +<span id="L1082" class="LineNr">1082 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-3/cursor"</span> +<span id="L1083" class="LineNr">1083 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-4"</span> +<span id="L1084" class="LineNr">1084 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1046'>test-trace-expand-stops-at-higher-depth</a>/expand-4/cursor"</span> +<span id="L1085" class="LineNr">1085 </span><span class="Delimiter">}</span> +<span id="L1086" class="LineNr">1086 </span> +<span id="L1087" class="LineNr">1087 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1087'>test-trace-expand-twice</a></span> <span class="Delimiter">{</span> +<span id="L1088" class="LineNr">1088 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1089" class="LineNr">1089 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1090" class="LineNr">1090 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1091" class="LineNr">1091 </span> <span class="muComment">#</span> +<span id="L1092" class="LineNr">1092 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1093" class="LineNr">1093 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1094" class="LineNr">1094 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1095" class="LineNr">1095 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1096" class="LineNr">1096 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1097" class="LineNr">1097 </span> <span class="muComment"># setup: screen</span> +<span id="L1098" class="LineNr">1098 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1099" class="LineNr">1099 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1100" class="LineNr">1100 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1101" class="LineNr">1101 </span> <span class="muComment">#</span> +<span id="L1102" class="LineNr">1102 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1103" class="LineNr">1103 </span> <span class="muComment">#</span> +<span id="L1104" class="LineNr">1104 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/pre-0"</span> +<span id="L1105" class="LineNr">1105 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/pre-0/cursor"</span> +<span id="L1106" class="LineNr">1106 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/pre-1"</span> +<span id="L1107" class="LineNr">1107 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/pre-1/cursor"</span> +<span id="L1108" class="LineNr">1108 </span> <span class="muComment"># expand</span> +<span id="L1109" class="LineNr">1109 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1110" class="LineNr">1110 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1111" class="LineNr">1111 </span> <span class="muComment">#</span> +<span id="L1112" class="LineNr">1112 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand-0"</span> +<span id="L1113" class="LineNr">1113 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand-0/cursor"</span> +<span id="L1114" class="LineNr">1114 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand-1"</span> +<span id="L1115" class="LineNr">1115 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand-1/cursor"</span> +<span id="L1116" class="LineNr">1116 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand-2"</span> +<span id="L1117" class="LineNr">1117 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand-2/cursor"</span> +<span id="L1118" class="LineNr">1118 </span> <span class="muComment"># cursor down</span> +<span id="L1119" class="LineNr">1119 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1120" class="LineNr">1120 </span> <span class="muComment"># hack: we need to render here to make this test pass; we're mixing state management with rendering</span> +<span id="L1121" class="LineNr">1121 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1122" class="LineNr">1122 </span> <span class="muComment">#</span> +<span id="L1123" class="LineNr">1123 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/down-0"</span> +<span id="L1124" class="LineNr">1124 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/down-0/cursor"</span> +<span id="L1125" class="LineNr">1125 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/down-1"</span> +<span id="L1126" class="LineNr">1126 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/down-1/cursor"</span> +<span id="L1127" class="LineNr">1127 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/down-2"</span> +<span id="L1128" class="LineNr">1128 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/down-2/cursor"</span> +<span id="L1129" class="LineNr">1129 </span> <span class="muComment"># expand again</span> +<span id="L1130" class="LineNr">1130 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1131" class="LineNr">1131 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1132" class="LineNr">1132 </span> <span class="muComment">#</span> +<span id="L1133" class="LineNr">1133 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand2-0"</span> +<span id="L1134" class="LineNr">1134 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand2-0/cursor"</span> +<span id="L1135" class="LineNr">1135 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"1 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand2-1"</span> +<span id="L1136" class="LineNr">1136 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand2-1/cursor"</span> +<span id="L1137" class="LineNr">1137 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand2-2"</span> +<span id="L1138" class="LineNr">1138 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1087'>test-trace-expand-twice</a>/expand2-2/cursor"</span> +<span id="L1139" class="LineNr">1139 </span><span class="Delimiter">}</span> +<span id="L1140" class="LineNr">1140 </span> +<span id="L1141" class="LineNr">1141 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a></span> <span class="Delimiter">{</span> +<span id="L1142" class="LineNr">1142 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1143" class="LineNr">1143 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1144" class="LineNr">1144 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1145" class="LineNr">1145 </span> <span class="muComment">#</span> +<span id="L1146" class="LineNr">1146 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1147" class="LineNr">1147 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1148" class="LineNr">1148 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1149" class="LineNr">1149 </span> <span class="muComment"># setup: screen</span> +<span id="L1150" class="LineNr">1150 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1151" class="LineNr">1151 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1152" class="LineNr">1152 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1153" class="LineNr">1153 </span> <span class="muComment">#</span> +<span id="L1154" class="LineNr">1154 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1155" class="LineNr">1155 </span> <span class="muComment">#</span> +<span id="L1156" class="LineNr">1156 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/pre-0"</span> +<span id="L1157" class="LineNr">1157 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/pre-0/cursor"</span> +<span id="L1158" class="LineNr">1158 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/pre-1"</span> +<span id="L1159" class="LineNr">1159 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/pre-1/cursor"</span> +<span id="L1160" class="LineNr">1160 </span> <span class="muComment"># expand</span> +<span id="L1161" class="LineNr">1161 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1162" class="LineNr">1162 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1163" class="LineNr">1163 </span> <span class="muComment">#</span> +<span id="L1164" class="LineNr">1164 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/expand-0"</span> +<span id="L1165" class="LineNr">1165 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/expand-0/cursor"</span> +<span id="L1166" class="LineNr">1166 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/expand-1"</span> +<span id="L1167" class="LineNr">1167 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/expand-1/cursor"</span> +<span id="L1168" class="LineNr">1168 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/expand-2"</span> +<span id="L1169" class="LineNr">1169 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/expand-2/cursor"</span> +<span id="L1170" class="LineNr">1170 </span> <span class="muComment"># cursor down</span> +<span id="L1171" class="LineNr">1171 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1172" class="LineNr">1172 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1173" class="LineNr">1173 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1174" class="LineNr">1174 </span> <span class="muComment">#</span> +<span id="L1175" class="LineNr">1175 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/down-0"</span> +<span id="L1176" class="LineNr">1176 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/down-0/cursor"</span> +<span id="L1177" class="LineNr">1177 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/down-1"</span> +<span id="L1178" class="LineNr">1178 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/down-1/cursor"</span> +<span id="L1179" class="LineNr">1179 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/down-2"</span> +<span id="L1180" class="LineNr">1180 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/down-2/cursor"</span> +<span id="L1181" class="LineNr">1181 </span> <span class="muComment"># recreate trace</span> +<span id="L1182" class="LineNr">1182 </span> <a href='trace.mu.html#L45'>clear-trace</a> t +<span id="L1183" class="LineNr">1183 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1184" class="LineNr">1184 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1185" class="LineNr">1185 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1186" class="LineNr">1186 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1187" class="LineNr">1187 </span> <span class="muComment"># cursor remains unchanged</span> +<span id="L1188" class="LineNr">1188 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/refresh-0"</span> +<span id="L1189" class="LineNr">1189 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/refresh-0/cursor"</span> +<span id="L1190" class="LineNr">1190 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/refresh-1"</span> +<span id="L1191" class="LineNr">1191 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/refresh-1/cursor"</span> +<span id="L1192" class="LineNr">1192 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/refresh-2"</span> +<span id="L1193" class="LineNr">1193 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1141'>test-trace-refresh-cursor</a>/refresh-2/cursor"</span> +<span id="L1194" class="LineNr">1194 </span><span class="Delimiter">}</span> +<span id="L1195" class="LineNr">1195 </span> +<span id="L1196" class="LineNr">1196 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a></span> <span class="Delimiter">{</span> +<span id="L1197" class="LineNr">1197 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1198" class="LineNr">1198 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1199" class="LineNr">1199 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1200" class="LineNr">1200 </span> <span class="muComment">#</span> +<span id="L1201" class="LineNr">1201 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1202" class="LineNr">1202 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1203" class="LineNr">1203 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1204" class="LineNr">1204 </span> <span class="muComment"># setup: screen</span> +<span id="L1205" class="LineNr">1205 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1206" class="LineNr">1206 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1207" class="LineNr">1207 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1208" class="LineNr">1208 </span> <span class="muComment">#</span> +<span id="L1209" class="LineNr">1209 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1210" class="LineNr">1210 </span> <span class="muComment">#</span> +<span id="L1211" class="LineNr">1211 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/pre-0"</span> +<span id="L1212" class="LineNr">1212 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/pre-0/cursor"</span> +<span id="L1213" class="LineNr">1213 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/pre-1"</span> +<span id="L1214" class="LineNr">1214 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/pre-1/cursor"</span> +<span id="L1215" class="LineNr">1215 </span> <span class="muComment"># expand</span> +<span id="L1216" class="LineNr">1216 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1217" class="LineNr">1217 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1218" class="LineNr">1218 </span> <span class="muComment">#</span> +<span id="L1219" class="LineNr">1219 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/expand-0"</span> +<span id="L1220" class="LineNr">1220 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/expand-0/cursor"</span> +<span id="L1221" class="LineNr">1221 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/expand-1"</span> +<span id="L1222" class="LineNr">1222 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/expand-1/cursor"</span> +<span id="L1223" class="LineNr">1223 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/expand-2"</span> +<span id="L1224" class="LineNr">1224 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/expand-2/cursor"</span> +<span id="L1225" class="LineNr">1225 </span> <span class="muComment"># cursor down</span> +<span id="L1226" class="LineNr">1226 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1227" class="LineNr">1227 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1228" class="LineNr">1228 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1229" class="LineNr">1229 </span> <span class="muComment">#</span> +<span id="L1230" class="LineNr">1230 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/down-0"</span> +<span id="L1231" class="LineNr">1231 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/down-0/cursor"</span> +<span id="L1232" class="LineNr">1232 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/down-1"</span> +<span id="L1233" class="LineNr">1233 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/down-1/cursor"</span> +<span id="L1234" class="LineNr">1234 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/down-2"</span> +<span id="L1235" class="LineNr">1235 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/down-2/cursor"</span> +<span id="L1236" class="LineNr">1236 </span> <span class="muComment"># recreate trace with slightly different lines</span> +<span id="L1237" class="LineNr">1237 </span> <a href='trace.mu.html#L45'>clear-trace</a> t +<span id="L1238" class="LineNr">1238 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 4"</span> +<span id="L1239" class="LineNr">1239 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 5"</span> +<span id="L1240" class="LineNr">1240 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> <span class="muComment"># cursor line is unchanged</span> +<span id="L1241" class="LineNr">1241 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1242" class="LineNr">1242 </span> <span class="muComment"># cursor remains unchanged</span> +<span id="L1243" class="LineNr">1243 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 4 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/refresh-0"</span> +<span id="L1244" class="LineNr">1244 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/refresh-0/cursor"</span> +<span id="L1245" class="LineNr">1245 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 5 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/refresh-1"</span> +<span id="L1246" class="LineNr">1246 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/refresh-1/cursor"</span> +<span id="L1247" class="LineNr">1247 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/refresh-2"</span> +<span id="L1248" class="LineNr">1248 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1196'>test-trace-preserve-cursor-on-refresh</a>/refresh-2/cursor"</span> +<span id="L1249" class="LineNr">1249 </span><span class="Delimiter">}</span> +<span id="L1250" class="LineNr">1250 </span> +<span id="L1251" class="LineNr">1251 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a></span> <span class="Delimiter">{</span> +<span id="L1252" class="LineNr">1252 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1253" class="LineNr">1253 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1254" class="LineNr">1254 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1255" class="LineNr">1255 </span> <span class="muComment">#</span> +<span id="L1256" class="LineNr">1256 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1257" class="LineNr">1257 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1258" class="LineNr">1258 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 3"</span> +<span id="L1259" class="LineNr">1259 </span> <span class="muComment"># setup: screen</span> +<span id="L1260" class="LineNr">1260 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1261" class="LineNr">1261 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1262" class="LineNr">1262 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1263" class="LineNr">1263 </span> <span class="muComment">#</span> +<span id="L1264" class="LineNr">1264 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1265" class="LineNr">1265 </span> <span class="muComment">#</span> +<span id="L1266" class="LineNr">1266 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/pre-0"</span> +<span id="L1267" class="LineNr">1267 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/pre-0/cursor"</span> +<span id="L1268" class="LineNr">1268 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/pre-1"</span> +<span id="L1269" class="LineNr">1269 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/pre-1/cursor"</span> +<span id="L1270" class="LineNr">1270 </span> <span class="muComment"># expand</span> +<span id="L1271" class="LineNr">1271 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1272" class="LineNr">1272 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1273" class="LineNr">1273 </span> <span class="muComment">#</span> +<span id="L1274" class="LineNr">1274 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/expand-0"</span> +<span id="L1275" class="LineNr">1275 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/expand-0/cursor"</span> +<span id="L1276" class="LineNr">1276 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/expand-1"</span> +<span id="L1277" class="LineNr">1277 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/expand-1/cursor"</span> +<span id="L1278" class="LineNr">1278 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/expand-2"</span> +<span id="L1279" class="LineNr">1279 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/expand-2/cursor"</span> +<span id="L1280" class="LineNr">1280 </span> <span class="muComment"># cursor down</span> +<span id="L1281" class="LineNr">1281 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1282" class="LineNr">1282 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1283" class="LineNr">1283 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1284" class="LineNr">1284 </span> <span class="muComment">#</span> +<span id="L1285" class="LineNr">1285 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/down-0"</span> +<span id="L1286" class="LineNr">1286 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/down-0/cursor"</span> +<span id="L1287" class="LineNr">1287 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/down-1"</span> +<span id="L1288" class="LineNr">1288 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/down-1/cursor"</span> +<span id="L1289" class="LineNr">1289 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 3 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/down-2"</span> +<span id="L1290" class="LineNr">1290 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/down-2/cursor"</span> +<span id="L1291" class="LineNr">1291 </span> <span class="muComment"># recreate trace with entirely different lines</span> +<span id="L1292" class="LineNr">1292 </span> <a href='trace.mu.html#L45'>clear-trace</a> t +<span id="L1293" class="LineNr">1293 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 4"</span> +<span id="L1294" class="LineNr">1294 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 5"</span> +<span id="L1295" class="LineNr">1295 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 6"</span> +<span id="L1296" class="LineNr">1296 </span> <a href='trace.mu.html#L295'>mark-lines-dirty</a> t +<span id="L1297" class="LineNr">1297 </span> <a href='../500text-screen.mu.html#L194'>clear-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1298" class="LineNr">1298 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1299" class="LineNr">1299 </span> <span class="muComment"># trace collapses, and cursor bumps up</span> +<span id="L1300" class="LineNr">1300 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-0"</span> +<span id="L1301" class="LineNr">1301 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-0/cursor"</span> +<span id="L1302" class="LineNr">1302 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-1"</span> +<span id="L1303" class="LineNr">1303 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-1/cursor"</span> +<span id="L1304" class="LineNr">1304 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-2"</span> +<span id="L1305" class="LineNr">1305 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1251'>test-trace-keep-cursor-visible-on-refresh</a>/refresh-2/cursor"</span> +<span id="L1306" class="LineNr">1306 </span><span class="Delimiter">}</span> +<span id="L1307" class="LineNr">1307 </span> +<span id="L1308" class="LineNr">1308 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a></span> <span class="Delimiter">{</span> +<span id="L1309" class="LineNr">1309 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1310" class="LineNr">1310 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1311" class="LineNr">1311 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1312" class="LineNr">1312 </span> <span class="muComment">#</span> +<span id="L1313" class="LineNr">1313 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1314" class="LineNr">1314 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1315" class="LineNr">1315 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1316" class="LineNr">1316 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1317" class="LineNr">1317 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1318" class="LineNr">1318 </span> <span class="muComment"># setup: screen</span> +<span id="L1319" class="LineNr">1319 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1320" class="LineNr">1320 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1321" class="LineNr">1321 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1322" class="LineNr">1322 </span> <span class="muComment">#</span> +<span id="L1323" class="LineNr">1323 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1324" class="LineNr">1324 </span> <span class="muComment">#</span> +<span id="L1325" class="LineNr">1325 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/pre-0"</span> +<span id="L1326" class="LineNr">1326 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/pre-0/cursor"</span> +<span id="L1327" class="LineNr">1327 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/pre-1"</span> +<span id="L1328" class="LineNr">1328 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/pre-1/cursor"</span> +<span id="L1329" class="LineNr">1329 </span> <span class="muComment"># expand</span> +<span id="L1330" class="LineNr">1330 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1331" class="LineNr">1331 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1332" class="LineNr">1332 </span> <span class="muComment">#</span> +<span id="L1333" class="LineNr">1333 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/expand-0"</span> +<span id="L1334" class="LineNr">1334 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/expand-0/cursor"</span> +<span id="L1335" class="LineNr">1335 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/expand-1"</span> +<span id="L1336" class="LineNr">1336 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/expand-1/cursor"</span> +<span id="L1337" class="LineNr">1337 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/expand-2"</span> +<span id="L1338" class="LineNr">1338 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/expand-2/cursor"</span> +<span id="L1339" class="LineNr">1339 </span> <span class="muComment"># collapse</span> +<span id="L1340" class="LineNr">1340 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1341" class="LineNr">1341 </span> <span class="muComment"># hack: we need to render here to make this test pass; we're mixing state management with rendering</span> +<span id="L1342" class="LineNr">1342 </span> <a href='../500text-screen.mu.html#L194'>clear-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1343" class="LineNr">1343 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1344" class="LineNr">1344 </span> <span class="muComment">#</span> +<span id="L1345" class="LineNr">1345 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/post-0/y"</span> +<span id="L1346" class="LineNr">1346 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/post-0"</span> +<span id="L1347" class="LineNr">1347 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/post-0/cursor"</span> +<span id="L1348" class="LineNr">1348 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/post-1"</span> +<span id="L1349" class="LineNr">1349 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1308'>test-trace-collapse-at-top</a>/post-1/cursor"</span> +<span id="L1350" class="LineNr">1350 </span><span class="Delimiter">}</span> +<span id="L1351" class="LineNr">1351 </span> +<span id="L1352" class="LineNr">1352 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1352'>test-trace-collapse</a></span> <span class="Delimiter">{</span> +<span id="L1353" class="LineNr">1353 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1354" class="LineNr">1354 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1355" class="LineNr">1355 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1356" class="LineNr">1356 </span> <span class="muComment">#</span> +<span id="L1357" class="LineNr">1357 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1358" class="LineNr">1358 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1359" class="LineNr">1359 </span> <span class="muComment"># setup: screen</span> +<span id="L1360" class="LineNr">1360 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1361" class="LineNr">1361 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1362" class="LineNr">1362 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1363" class="LineNr">1363 </span> <span class="muComment">#</span> +<span id="L1364" class="LineNr">1364 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1365" class="LineNr">1365 </span> <span class="muComment">#</span> +<span id="L1366" class="LineNr">1366 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/pre-0"</span> +<span id="L1367" class="LineNr">1367 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/pre-0/cursor"</span> +<span id="L1368" class="LineNr">1368 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/pre-1"</span> +<span id="L1369" class="LineNr">1369 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/pre-1/cursor"</span> +<span id="L1370" class="LineNr">1370 </span> <span class="muComment"># expand</span> +<span id="L1371" class="LineNr">1371 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1372" class="LineNr">1372 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1373" class="LineNr">1373 </span> <span class="muComment">#</span> +<span id="L1374" class="LineNr">1374 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/expand-0"</span> +<span id="L1375" class="LineNr">1375 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/expand-0/cursor"</span> +<span id="L1376" class="LineNr">1376 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/expand-1"</span> +<span id="L1377" class="LineNr">1377 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/expand-1/cursor"</span> +<span id="L1378" class="LineNr">1378 </span> <span class="muComment"># cursor down</span> +<span id="L1379" class="LineNr">1379 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1380" class="LineNr">1380 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1381" class="LineNr">1381 </span> <span class="muComment"># collapse</span> +<span id="L1382" class="LineNr">1382 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1383" class="LineNr">1383 </span> <a href='../500text-screen.mu.html#L194'>clear-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1384" class="LineNr">1384 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1385" class="LineNr">1385 </span> <span class="muComment">#</span> +<span id="L1386" class="LineNr">1386 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/post-0/y"</span> +<span id="L1387" class="LineNr">1387 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/post-0"</span> +<span id="L1388" class="LineNr">1388 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/post-0/cursor"</span> +<span id="L1389" class="LineNr">1389 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/post-1"</span> +<span id="L1390" class="LineNr">1390 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1352'>test-trace-collapse</a>/post-1/cursor"</span> +<span id="L1391" class="LineNr">1391 </span><span class="Delimiter">}</span> +<span id="L1392" class="LineNr">1392 </span> +<span id="L1393" class="LineNr">1393 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a></span> <span class="Delimiter">{</span> +<span id="L1394" class="LineNr">1394 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1395" class="LineNr">1395 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1396" class="LineNr">1396 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1397" class="LineNr">1397 </span> <span class="muComment">#</span> +<span id="L1398" class="LineNr">1398 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1399" class="LineNr">1399 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1400" class="LineNr">1400 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1401" class="LineNr">1401 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1402" class="LineNr">1402 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1403" class="LineNr">1403 </span> <span class="muComment"># setup: screen</span> +<span id="L1404" class="LineNr">1404 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1405" class="LineNr">1405 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1406" class="LineNr">1406 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1407" class="LineNr">1407 </span> <span class="muComment">#</span> +<span id="L1408" class="LineNr">1408 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1409" class="LineNr">1409 </span> <span class="muComment">#</span> +<span id="L1410" class="LineNr">1410 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/pre-0"</span> +<span id="L1411" class="LineNr">1411 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/pre-0/cursor"</span> +<span id="L1412" class="LineNr">1412 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/pre-1"</span> +<span id="L1413" class="LineNr">1413 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/pre-1/cursor"</span> +<span id="L1414" class="LineNr">1414 </span> <span class="muComment"># expand</span> +<span id="L1415" class="LineNr">1415 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1416" class="LineNr">1416 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1417" class="LineNr">1417 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1418" class="LineNr">1418 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/expand-0"</span> +<span id="L1419" class="LineNr">1419 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/expand-0/cursor"</span> +<span id="L1420" class="LineNr">1420 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/expand-1"</span> +<span id="L1421" class="LineNr">1421 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/expand-1/cursor"</span> +<span id="L1422" class="LineNr">1422 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/expand-2"</span> +<span id="L1423" class="LineNr">1423 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/expand-2/cursor"</span> +<span id="L1424" class="LineNr">1424 </span> <span class="muComment"># cursor down to second visible line</span> +<span id="L1425" class="LineNr">1425 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1426" class="LineNr">1426 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1427" class="LineNr">1427 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1428" class="LineNr">1428 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1429" class="LineNr">1429 </span> <span class="muComment"># collapse</span> +<span id="L1430" class="LineNr">1430 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1431" class="LineNr">1431 </span> <a href='../500text-screen.mu.html#L194'>clear-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1432" class="LineNr">1432 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1433" class="LineNr">1433 </span> <span class="muComment">#</span> +<span id="L1434" class="LineNr">1434 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/post-0/y"</span> +<span id="L1435" class="LineNr">1435 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y +<span id="L1436" class="LineNr">1436 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/post-0/cursor-y"</span> +<span id="L1437" class="LineNr">1437 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/post-0"</span> +<span id="L1438" class="LineNr">1438 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/post-0/cursor"</span> +<span id="L1439" class="LineNr">1439 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/post-1"</span> +<span id="L1440" class="LineNr">1440 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1393'>test-trace-collapse-skips-invisible-lines</a>/post-1/cursor"</span> +<span id="L1441" class="LineNr">1441 </span><span class="Delimiter">}</span> +<span id="L1442" class="LineNr">1442 </span> +<span id="L1443" class="LineNr">1443 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a></span> <span class="Delimiter">{</span> +<span id="L1444" class="LineNr">1444 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1445" class="LineNr">1445 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1446" class="LineNr">1446 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1447" class="LineNr">1447 </span> <span class="muComment">#</span> +<span id="L1448" class="LineNr">1448 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1449" class="LineNr">1449 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1450" class="LineNr">1450 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1451" class="LineNr">1451 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1452" class="LineNr">1452 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1453" class="LineNr">1453 </span> <span class="muComment"># setup: screen</span> +<span id="L1454" class="LineNr">1454 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1455" class="LineNr">1455 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1456" class="LineNr">1456 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">4</span>/height +<span id="L1457" class="LineNr">1457 </span> <span class="muComment">#</span> +<span id="L1458" class="LineNr">1458 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1459" class="LineNr">1459 </span> <span class="muComment">#</span> +<span id="L1460" class="LineNr">1460 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/pre-0"</span> +<span id="L1461" class="LineNr">1461 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/pre-0/cursor"</span> +<span id="L1462" class="LineNr">1462 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/pre-1"</span> +<span id="L1463" class="LineNr">1463 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/pre-1/cursor"</span> +<span id="L1464" class="LineNr">1464 </span> <span class="muComment"># expand</span> +<span id="L1465" class="LineNr">1465 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1466" class="LineNr">1466 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1467" class="LineNr">1467 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1468" class="LineNr">1468 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand-0"</span> +<span id="L1469" class="LineNr">1469 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand-0/cursor"</span> +<span id="L1470" class="LineNr">1470 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand-1"</span> +<span id="L1471" class="LineNr">1471 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand-1/cursor"</span> +<span id="L1472" class="LineNr">1472 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand-2"</span> +<span id="L1473" class="LineNr">1473 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand-2/cursor"</span> +<span id="L1474" class="LineNr">1474 </span> <span class="muComment"># cursor down to ellipses</span> +<span id="L1475" class="LineNr">1475 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1476" class="LineNr">1476 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1477" class="LineNr">1477 </span> <span class="muComment"># expand</span> +<span id="L1478" class="LineNr">1478 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1479" class="LineNr">1479 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1480" class="LineNr">1480 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1481" class="LineNr">1481 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand2-0"</span> +<span id="L1482" class="LineNr">1482 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand2-0/cursor"</span> +<span id="L1483" class="LineNr">1483 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"1 line 1.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand2-1"</span> +<span id="L1484" class="LineNr">1484 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand2-1/cursor"</span> +<span id="L1485" class="LineNr">1485 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand2-2"</span> +<span id="L1486" class="LineNr">1486 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/expand2-2/cursor"</span> +<span id="L1487" class="LineNr">1487 </span> <span class="muComment"># cursor down to second visible line</span> +<span id="L1488" class="LineNr">1488 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1489" class="LineNr">1489 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1490" class="LineNr">1490 </span> <span class="muComment"># collapse</span> +<span id="L1491" class="LineNr">1491 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1492" class="LineNr">1492 </span> <a href='../500text-screen.mu.html#L194'>clear-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1493" class="LineNr">1493 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">4</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1494" class="LineNr">1494 </span> <span class="muComment">#</span> +<span id="L1495" class="LineNr">1495 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">1</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/post-0/y"</span> +<span id="L1496" class="LineNr">1496 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y +<span id="L1497" class="LineNr">1497 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">0</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/post-0/cursor-y"</span> +<span id="L1498" class="LineNr">1498 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/post-0"</span> +<span id="L1499" class="LineNr">1499 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/post-0/cursor"</span> +<span id="L1500" class="LineNr">1500 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/post-1"</span> +<span id="L1501" class="LineNr">1501 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1443'>test-trace-collapse-two-levels</a>/post-1/cursor"</span> +<span id="L1502" class="LineNr">1502 </span><span class="Delimiter">}</span> +<span id="L1503" class="LineNr">1503 </span> +<span id="L1504" class="LineNr">1504 </span><span class="PreProc">fn</span> <span class="muTest"><a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a></span> <span class="Delimiter">{</span> +<span id="L1505" class="LineNr">1505 </span> <span class="PreProc">var</span> t-storage: trace +<span id="L1506" class="LineNr">1506 </span> <span class="PreProc">var</span> t/<span class="Constant">esi</span>: (addr trace) <span class="Special"><-</span> address t-storage +<span id="L1507" class="LineNr">1507 </span> <a href='trace.mu.html#L35'>initialize-trace</a> t, <span class="Constant">0x10</span>, <span class="Constant">0x10</span> +<span id="L1508" class="LineNr">1508 </span> <span class="muComment">#</span> +<span id="L1509" class="LineNr">1509 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1"</span> +<span id="L1510" class="LineNr">1510 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1511" class="LineNr">1511 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 1.1"</span> +<span id="L1512" class="LineNr">1512 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1513" class="LineNr">1513 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2"</span> +<span id="L1514" class="LineNr">1514 </span> <a href='trace.mu.html#L128'>trace-lower</a> t +<span id="L1515" class="LineNr">1515 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.1"</span> +<span id="L1516" class="LineNr">1516 </span> <a href='trace.mu.html#L101'>trace-text</a> t, <span class="Constant">"l"</span>, <span class="Constant">"line 2.2"</span> +<span id="L1517" class="LineNr">1517 </span> <a href='trace.mu.html#L136'>trace-higher</a> t +<span id="L1518" class="LineNr">1518 </span> <span class="muComment"># setup: screen</span> +<span id="L1519" class="LineNr">1519 </span> <span class="PreProc">var</span> screen-on-stack: <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1520" class="LineNr">1520 </span> <span class="PreProc">var</span> <a href='../500text-screen.mu.html#L9'>screen</a>/<span class="Constant">edi</span>: (addr <a href='../500text-screen.mu.html#L9'>screen</a>) <span class="Special"><-</span> address screen-on-stack +<span id="L1521" class="LineNr">1521 </span> <a href='../500text-screen.mu.html#L23'>initialize-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0x10</span>/width, <span class="Constant">8</span>/height +<span id="L1522" class="LineNr">1522 </span> <span class="muComment">#</span> +<span id="L1523" class="LineNr">1523 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1524" class="LineNr">1524 </span> <span class="muComment">#</span> +<span id="L1525" class="LineNr">1525 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/pre-0"</span> +<span id="L1526" class="LineNr">1526 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/pre-0/cursor"</span> +<span id="L1527" class="LineNr">1527 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/pre-1"</span> +<span id="L1528" class="LineNr">1528 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/pre-1/cursor"</span> +<span id="L1529" class="LineNr">1529 </span> <span class="muComment"># expand</span> +<span id="L1530" class="LineNr">1530 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1531" class="LineNr">1531 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1532" class="LineNr">1532 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1533" class="LineNr">1533 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-0"</span> +<span id="L1534" class="LineNr">1534 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-0/cursor"</span> +<span id="L1535" class="LineNr">1535 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-1"</span> +<span id="L1536" class="LineNr">1536 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-1/cursor"</span> +<span id="L1537" class="LineNr">1537 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-2"</span> +<span id="L1538" class="LineNr">1538 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-2/cursor"</span> +<span id="L1539" class="LineNr">1539 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-3"</span> +<span id="L1540" class="LineNr">1540 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand-3/cursor"</span> +<span id="L1541" class="LineNr">1541 </span> <span class="muComment"># cursor down to bottom</span> +<span id="L1542" class="LineNr">1542 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1543" class="LineNr">1543 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1544" class="LineNr">1544 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1545" class="LineNr">1545 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1546" class="LineNr">1546 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0x6a</span>/j +<span id="L1547" class="LineNr">1547 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1548" class="LineNr">1548 </span> <span class="muComment"># expand</span> +<span id="L1549" class="LineNr">1549 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">0xa</span>/enter +<span id="L1550" class="LineNr">1550 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1551" class="LineNr">1551 </span> <span class="muComment"># two visible lines with an invisible line in between</span> +<span id="L1552" class="LineNr">1552 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-0"</span> +<span id="L1553" class="LineNr">1553 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-0/cursor"</span> +<span id="L1554" class="LineNr">1554 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-1"</span> +<span id="L1555" class="LineNr">1555 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-1/cursor"</span> +<span id="L1556" class="LineNr">1556 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-2"</span> +<span id="L1557" class="LineNr">1557 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-2/cursor"</span> +<span id="L1558" class="LineNr">1558 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"1 line 2.1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-3"</span> +<span id="L1559" class="LineNr">1559 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">"|||||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-3/cursor"</span> +<span id="L1560" class="LineNr">1560 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">4</span>/y, <span class="Constant">"1 line 2.2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-4"</span> +<span id="L1561" class="LineNr">1561 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">4</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/expand2-4/cursor"</span> +<span id="L1562" class="LineNr">1562 </span> <span class="muComment"># collapse</span> +<span id="L1563" class="LineNr">1563 </span> <a href='trace.mu.html#L683'>edit-trace</a> t, <span class="Constant">8</span>/backspace +<span id="L1564" class="LineNr">1564 </span> <a href='../500text-screen.mu.html#L194'>clear-screen</a> <a href='../500text-screen.mu.html#L9'>screen</a> +<span id="L1565" class="LineNr">1565 </span> <span class="PreProc">var</span> y/<span class="Constant">ecx</span>: int <span class="Special"><-</span> <a href='trace.mu.html#L307'>render-trace</a> <a href='../500text-screen.mu.html#L9'>screen</a>, t, <span class="Constant">0</span>/xmin, <span class="Constant">0</span>/ymin, <span class="Constant">0x10</span>/xmax, <span class="Constant">8</span>/ymax, <span class="Constant">1</span>/show-cursor +<span id="L1566" class="LineNr">1566 </span> <span class="muComment">#</span> +<span id="L1567" class="LineNr">1567 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> y, <span class="Constant">4</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-0/y"</span> +<span id="L1568" class="LineNr">1568 </span> <span class="PreProc">var</span> cursor-y/<span class="Constant">eax</span>: (addr int) <span class="Special"><-</span> get t, cursor-y +<span id="L1569" class="LineNr">1569 </span> <a href='../502test.mu.html#L2'>check-ints-equal</a> *cursor-y, <span class="Constant">2</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-0/cursor-y"</span> +<span id="L1570" class="LineNr">1570 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>/y, <span class="Constant">"0 line 1 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-0"</span> +<span id="L1571" class="LineNr">1571 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">0</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-0/cursor"</span> +<span id="L1572" class="LineNr">1572 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">1</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-1"</span> +<span id="L1573" class="LineNr">1573 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">1</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-1/cursor"</span> +<span id="L1574" class="LineNr">1574 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">2</span>/y, <span class="Constant">"0 line 2 "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-2"</span> +<span id="L1575" class="LineNr">1575 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">2</span>/y, <span class="Constant">"|||||||| "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-2/cursor"</span> +<span id="L1576" class="LineNr">1576 </span> <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">3</span>/y, <span class="Constant">"... "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-3"</span> +<span id="L1577" class="LineNr">1577 </span> <a href='../504test-screen.mu.html#L251'>check-background-color-in-screen-row</a> <a href='../500text-screen.mu.html#L9'>screen</a>, <span class="Constant">7</span>/bg=cursor, <span class="Constant">3</span>/y, <span class="Constant">" "</span>, <span class="Constant">"F - <a href='trace.mu.html#L1504'>test-trace-collapse-nested-level</a>/post-3/cursor"</span> +<span id="L1578" class="LineNr">1578 </span><span class="Delimiter">}</span> +</pre> +</body> +</html> +<!-- vim: set foldmethod=manual : --> diff --git a/tools/update_html b/tools/update_html index e040dc89..c4286bef 100755 --- a/tools/update_html +++ b/tools/update_html @@ -1,6 +1,6 @@ #!/bin/bash # Regenerate html files. -# If given a single argument, regenerate just that file. +# If given a single argument, try to regenerate just that file. Not supported everywhere. set -e @@ -39,80 +39,69 @@ convert_html() { mv -i $1.html html/`dirname $1` } -ctags -x *.cc |grep -v '^. ' > /tmp/tags # don't hyperlink every 'i' to the integer register variant -for f in *.cc -do - test $# -gt 0 && test $1 != $f && continue - process $f -done - ctags -x [0-9]*.subx [0-9]*.mu > /tmp/tags -for f in *.subx *.mu +for f in [0-9]*.subx [0-9]*.mu do test $# -gt 0 && test $1 != $f && continue process $f done -for f in apps/*.subx +for f in [^0-9]*.subx [^0-9]*.mu do test $# -gt 0 && test $1 != $f && continue - ( cd apps - ctags -x ../[0-9]*.subx ../[0-9]*.mu `basename $f` > /tmp/tags - ) + ctags -x [0-9]*.subx [0-9]*.mu $f > /tmp/tags process $f done -for f in apps/*.mu +( cd shell + ctags -x ../[0-9]*.subx ../[0-9]*.mu *.mu > /tmp/tags +) +for f in shell/*.mu do - test $# -gt 0 && test $1 != $f && continue - ( cd apps - ctags -x ../[0-9]*.subx ../[0-9]*.mu `basename $f` > /tmp/tags - ) + test $# -gt 0 && test $1 != shell/$f && continue process $f done -for f in apps/*/*.mu +( cd linux + ctags -x [0-9]*.subx [0-9]*.mu > /tmp/tags +) +for f in linux/[0-9]*.subx linux/[0-9]*.mu do - test $# -gt 0 && test $1 != $f && continue - ( cd `dirname $f` - ctags -x ../../[0-9]*.subx ../../[0-9]*.mu *.mu > /tmp/tags - ) process $f done -for f in baremetal/*.hex +for f in linux/[^0-9]*.subx linux/[^0-9]*.mu do - test $# -gt 0 && test $1 != $f && continue - ( cd baremetal - ctags -x [0-9]*.subx [0-9]*.mu `basename $f` > /tmp/tags + ( cd $(dirname $f) + ctags -x [0-9]*.subx [0-9]*.mu $(basename $f) > /tmp/tags ) process $f done -for f in baremetal/*.subx +for f in linux/advent2020/*.mu do - test $# -gt 0 && test $1 != $f && continue - ( cd baremetal - ctags -x [0-9]*.subx [0-9]*.mu `basename $f` > /tmp/tags + ( cd $(dirname $f) + ctags -x ../[0-9]*.subx ../[0-9]*.mu $(basename $f) > /tmp/tags ) process $f done -for f in baremetal/*.mu +for dir in linux/raytracing linux/tile do - test $# -gt 0 && test $1 != $f && continue - ( cd baremetal - ctags -x [0-9]*.subx [0-9]*.mu `basename $f` > /tmp/tags + ( cd $dir + ctags -x ../[0-9]*.subx ../[0-9]*.mu *.mu > /tmp/tags ) - process $f + for f in $dir/*.mu + do + process $f + done done -for f in baremetal/*/*.mu +( cd linux/bootstrap + ctags -x *.cc |grep -v '^. ' > /tmp/tags # don't hyperlink every 'i' to the integer register variant +) +for f in linux/bootstrap/*.cc do - test $# -gt 0 && test $1 != $f && continue - ( cd `dirname $f` - ctags -x ../../[0-9]*.subx ../../[0-9]*.mu *.mu > /tmp/tags - ) process $f done |